151	/Users/nnunley/parrot/lib/Pod/Simple.pm	1604	1836	
==>@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
#@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
151	/Users/nnunley/parrot/lib/Pod/Simple.pm	11282	11437	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
151	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1716	1819	
==>. . . . . . . . . . . . . . . . . . . . . . .
#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684718	685028	
==>{{\@3}});\n      {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685613	685923	
==>{{\@3}});\n      {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259221	259529	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263575	263883	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404711	405019	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405623	405931	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406535	406843	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407448	407756	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408346	408654	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409245	409553	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411077	411385	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411970	412278	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421882	422190	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422775	423083	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423671	423979	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	424568	424876	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607612	607920	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608516	608824	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609423	609731	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610331	610639	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611233	611541	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612136	612444	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613042	613350	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773496	773804	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774406	774714	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775316	775624	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776227	776535	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777135	777443	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778044	778352	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778953	779261	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779863	780171	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780771	781079	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781680	781988	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782589	782897	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783499	783807	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784404	784712	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785310	785618	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786220	786528	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787131	787439	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788040	788348	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788950	789258	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789859	790167	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790769	791077	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791675	791983	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792582	792890	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793486	793794	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794391	794699	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795296	795604	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796202	796510	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797105	797413	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798009	798317	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798913	799221	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799818	800126	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800721	801029	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801625	801933	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802529	802837	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803434	803742	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804334	804642	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805235	805543	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806140	806448	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807046	807354	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807950	808258	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808855	809163	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809759	810067	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810664	810972	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811565	811873	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812467	812775	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921069	921377	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921962	922270	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938623	938931	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939513	939821	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940404	940712	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941296	941604	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942188	942496	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943081	943389	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039406	1039714	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040298	1040606	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041190	1041498	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042083	1042391	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042979	1043287	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043876	1044184	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044769	1045077	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045663	1045971	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046557	1046865	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055688	1055996	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056579	1056887	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057471	1057779	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058363	1058671	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123903	124209	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124777	125083	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125651	125957	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236664	236970	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237546	237852	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238428	238734	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244044	244350	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244976	245282	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369540	369846	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	370425	370731	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374096	374402	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374979	375285	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375862	376168	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376746	377052	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377629	377935	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378513	378819	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379397	379703	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380282	380588	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494393	494699	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495261	495567	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496129	496435	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496998	497304	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497868	498174	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498738	499044	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514176	514482	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515056	515362	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515936	516242	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528682	528988	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529564	529870	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	530446	530752	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564000	564306	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564898	565204	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565790	566096	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566683	566989	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567577	567883	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568472	568778	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569364	569670	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570257	570563	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596244	596550	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632708	633014	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633750	634056	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642339	642645	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643227	643533	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644119	644425	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645012	645318	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656509	656815	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657433	657739	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658351	658657	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659270	659576	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660191	660497	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661113	661419	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662028	662334	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662944	663250	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843265	843571	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844143	844449	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845021	845327	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
145	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845900	846206	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684716	685026	
==>, {{\@3}});\n      {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685611	685921	
==>, {{\@3}});\n      {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259219	259527	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263573	263881	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404709	405017	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405621	405929	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406533	406841	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407446	407754	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408344	408652	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409243	409551	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411075	411383	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411968	412276	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421880	422188	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422773	423081	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423669	423977	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	424566	424874	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607610	607918	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608514	608822	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609421	609729	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610329	610637	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611231	611539	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612134	612442	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613040	613348	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773494	773802	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774404	774712	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775314	775622	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776225	776533	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777133	777441	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778042	778350	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778951	779259	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779861	780169	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780769	781077	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781678	781986	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782587	782895	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783497	783805	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784402	784710	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785308	785616	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786218	786526	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787129	787437	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788038	788346	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788948	789256	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789857	790165	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790767	791075	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791673	791981	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792580	792888	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793484	793792	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794389	794697	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795294	795602	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796200	796508	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797103	797411	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798007	798315	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798911	799219	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799816	800124	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800719	801027	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801623	801931	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802527	802835	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803432	803740	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804332	804640	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805233	805541	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806138	806446	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807044	807352	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807948	808256	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808853	809161	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809757	810065	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810662	810970	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811563	811871	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812465	812773	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921067	921375	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921960	922268	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938621	938929	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939511	939819	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940402	940710	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941294	941602	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942186	942494	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943079	943387	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039404	1039712	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040296	1040604	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041188	1041496	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042081	1042389	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042977	1043285	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043874	1044182	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044767	1045075	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045661	1045969	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046555	1046863	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055686	1055994	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056577	1056885	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057469	1057777	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058361	1058669	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236662	236968	
==>, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237544	237850	
==>, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238426	238732	
==>, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244042	244348	
==>, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244974	245280	
==>, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374094	374400	
==>, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374977	375283	
==>, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375860	376166	
==>, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376744	377050	
==>, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377627	377933	
==>, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378511	378817	
==>, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379395	379701	
==>, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380280	380586	
==>, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494391	494697	
==>, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495259	495565	
==>, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496127	496433	
==>, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496996	497302	
==>, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497866	498172	
==>, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498736	499042	
==>, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563998	564304	
==>, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564896	565202	
==>, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565788	566094	
==>, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566681	566987	
==>, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567575	567881	
==>, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568470	568776	
==>, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569362	569668	
==>, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570255	570561	
==>, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596242	596548	
==>, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632706	633012	
==>, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633748	634054	
==>, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642337	642643	
==>, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643225	643531	
==>, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644117	644423	
==>, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645010	645316	
==>, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656507	656813	
==>, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657431	657737	
==>, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658349	658655	
==>, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659268	659574	
==>, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660189	660495	
==>, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661111	661417	
==>, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662026	662332	
==>, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662942	663248	
==>, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843264	843569	
==>,{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844142	844447	
==>,{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845020	845325	
==>,{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845899	846204	
==>,{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
135	/Users/nnunley/parrot/lib/Test/More.pm	6387	6518	
==>ok( Film->can('db_Main'),            'set_db()' );
    ok( $p->tests == 4,                  'saw tests' );
    ok( !grep !defined $_ <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684709	685019	
==>{{\@2}}, {{\@3}});\n      {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685604	685914	
==>{{\@2}}, {{\@3}});\n      {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259212	259520	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263566	263874	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404702	405010	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405614	405922	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406526	406834	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407439	407747	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408337	408645	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409236	409544	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411068	411376	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411961	412269	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421873	422181	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422766	423074	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423662	423970	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	424559	424867	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607603	607911	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608507	608815	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609414	609722	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610322	610630	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611224	611532	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612127	612435	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613033	613341	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773487	773795	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774397	774705	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775307	775615	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776218	776526	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777126	777434	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778035	778343	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778944	779252	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779854	780162	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780762	781070	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781671	781979	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782580	782888	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783490	783798	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784395	784703	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785301	785609	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786211	786519	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787122	787430	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788031	788339	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788941	789249	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789850	790158	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790760	791068	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791666	791974	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792573	792881	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793477	793785	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794382	794690	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795287	795595	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796193	796501	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797096	797404	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798000	798308	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798904	799212	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799809	800117	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800712	801020	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801616	801924	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802520	802828	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803425	803733	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804325	804633	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805226	805534	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806131	806439	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807037	807345	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807941	808249	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808846	809154	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809750	810058	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810655	810963	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811556	811864	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812458	812766	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921060	921368	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921953	922261	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938614	938922	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939504	939812	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940395	940703	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941287	941595	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942179	942487	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943072	943380	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039397	1039705	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040289	1040597	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041181	1041489	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042074	1042382	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042970	1043278	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043867	1044175	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044760	1045068	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045654	1045962	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046548	1046856	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055679	1055987	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056570	1056878	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057462	1057770	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058354	1058662	
==>{{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236655	236961	
==>{{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237537	237843	
==>{{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238419	238725	
==>{{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374087	374393	
==>{{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374970	375276	
==>{{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375853	376159	
==>{{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376737	377043	
==>{{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377620	377926	
==>{{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378504	378810	
==>{{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379388	379694	
==>{{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380273	380579	
==>{{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494384	494690	
==>{{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495252	495558	
==>{{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496120	496426	
==>{{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496989	497295	
==>{{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497859	498165	
==>{{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498729	499035	
==>{{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563991	564297	
==>{{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564889	565195	
==>{{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565781	566087	
==>{{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566674	566980	
==>{{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567568	567874	
==>{{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568463	568769	
==>{{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569355	569661	
==>{{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570248	570554	
==>{{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596235	596541	
==>{{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632699	633005	
==>{{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633741	634047	
==>{{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642330	642636	
==>{{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643218	643524	
==>{{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644110	644416	
==>{{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645003	645309	
==>{{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656500	656806	
==>{{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657424	657730	
==>{{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658342	658648	
==>{{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659261	659567	
==>{{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660182	660488	
==>{{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661104	661410	
==>{{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662019	662325	
==>{{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662935	663241	
==>{{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843257	843562	
==>{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844135	844440	
==>{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845013	845318	
==>{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845892	846197	
==>{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
133	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeSmart.pm	167	269	
==>ct;
use Pod::Simple;
require Encode;

sub is_dumb  {0}
sub is_smart {1}

sub all_encodings {
  return E <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684715	685025	
==>}, {{\@3}});\n      {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685610	685920	
==>}, {{\@3}});\n      {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259218	259526	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263572	263880	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404708	405016	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405620	405928	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406532	406840	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407445	407753	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408343	408651	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409242	409550	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411074	411382	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411967	412275	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421879	422187	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422772	423080	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423668	423976	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	424565	424873	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607609	607917	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608513	608821	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609420	609728	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610328	610636	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611230	611538	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612133	612441	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613039	613347	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773493	773801	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774403	774711	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775313	775621	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776224	776532	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777132	777440	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778041	778349	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778950	779258	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779860	780168	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780768	781076	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781677	781985	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782586	782894	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783496	783804	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784401	784709	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785307	785615	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786217	786525	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787128	787436	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788037	788345	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788947	789255	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789856	790164	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790766	791074	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791672	791980	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792579	792887	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793483	793791	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794388	794696	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795293	795601	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796199	796507	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797102	797410	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798006	798314	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798910	799218	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799815	800123	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800718	801026	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801622	801930	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802526	802834	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803431	803739	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804331	804639	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805232	805540	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806137	806445	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807043	807351	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807947	808255	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808852	809160	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809756	810064	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810661	810969	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811562	811870	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812464	812772	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921066	921374	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921959	922267	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938620	938928	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939510	939818	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940401	940709	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941293	941601	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942185	942493	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943078	943386	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039403	1039711	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040295	1040603	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041187	1041495	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042080	1042388	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042976	1043284	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043873	1044181	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044766	1045074	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045660	1045968	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046554	1046862	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055685	1055993	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056576	1056884	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057468	1057776	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058360	1058668	
==>}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236661	236967	
==>}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237543	237849	
==>}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238425	238731	
==>}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374093	374399	
==>}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374976	375282	
==>}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375859	376165	
==>}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376743	377049	
==>}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377626	377932	
==>}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378510	378816	
==>}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379394	379700	
==>}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380279	380585	
==>}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494390	494696	
==>}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495258	495564	
==>}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496126	496432	
==>}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496995	497301	
==>}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497865	498171	
==>}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498735	499041	
==>}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563997	564303	
==>}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564895	565201	
==>}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565787	566093	
==>}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566680	566986	
==>}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567574	567880	
==>}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568469	568775	
==>}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569361	569667	
==>}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570254	570560	
==>}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596241	596547	
==>}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632705	633011	
==>}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633747	634053	
==>}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642336	642642	
==>}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643224	643530	
==>}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644116	644422	
==>}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645009	645315	
==>}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656506	656812	
==>}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657430	657736	
==>}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658348	658654	
==>}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659267	659573	
==>}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660188	660494	
==>}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661110	661416	
==>}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662025	662331	
==>}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662941	663247	
==>}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843263	843568	
==>},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844141	844446	
==>},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845019	845324	
==>},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845898	846203	
==>},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
133	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6458	6558	
==>if it is present. Returns undef if nothing
# was skipped, otherwise returns the token skipped.
#
# If <==
133	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	5234	5344	
==>inimum indent
	&clip_excess_lines($desc);
    } if $desc;
    $info->{desc} = $desc;
    return $info;
}

sub d <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684712	685021	
==>@2}}, {{\@3}});\n      {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685607	685916	
==>@2}}, {{\@3}});\n      {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259215	259522	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263569	263876	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404705	405012	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405617	405924	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406529	406836	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407442	407749	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408340	408647	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409239	409546	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411071	411378	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411964	412271	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421876	422183	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422769	423076	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423665	423972	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	424562	424869	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607606	607913	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608510	608817	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609417	609724	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610325	610632	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611227	611534	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612130	612437	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613036	613343	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773490	773797	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774400	774707	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775310	775617	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776221	776528	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777129	777436	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778038	778345	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778947	779254	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779857	780164	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780765	781072	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781674	781981	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782583	782890	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783493	783800	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784398	784705	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785304	785611	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786214	786521	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787125	787432	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788034	788341	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788944	789251	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789853	790160	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790763	791070	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791669	791976	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792576	792883	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793480	793787	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794385	794692	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795290	795597	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796196	796503	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797099	797406	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798003	798310	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798907	799214	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799812	800119	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800715	801022	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801619	801926	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802523	802830	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803428	803735	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804328	804635	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805229	805536	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806134	806441	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807040	807347	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807944	808251	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808849	809156	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809753	810060	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810658	810965	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811559	811866	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812461	812768	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921063	921370	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921956	922263	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938617	938924	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939507	939814	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940398	940705	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941290	941597	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942182	942489	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943075	943382	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039400	1039707	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040292	1040599	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041184	1041491	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042077	1042384	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042973	1043280	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043870	1044177	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044763	1045070	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045657	1045964	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046551	1046858	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055682	1055989	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056573	1056880	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057465	1057772	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058357	1058664	
==>@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236658	236963	
==>@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237540	237845	
==>@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238422	238727	
==>@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374090	374395	
==>@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374973	375278	
==>@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375856	376161	
==>@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376740	377045	
==>@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377623	377928	
==>@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378507	378812	
==>@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379391	379696	
==>@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380276	380581	
==>@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494387	494692	
==>@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495255	495560	
==>@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496123	496428	
==>@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496992	497297	
==>@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497862	498167	
==>@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498732	499037	
==>@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563994	564299	
==>@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564892	565197	
==>@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565784	566089	
==>@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566677	566982	
==>@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567571	567876	
==>@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568466	568771	
==>@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569358	569663	
==>@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570251	570556	
==>@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596238	596543	
==>@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632702	633007	
==>@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633744	634049	
==>@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642333	642638	
==>@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643221	643526	
==>@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644113	644418	
==>@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645006	645311	
==>@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656503	656808	
==>@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657427	657732	
==>@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658345	658650	
==>@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659264	659569	
==>@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660185	660490	
==>@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661107	661412	
==>@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662022	662327	
==>@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662938	663243	
==>@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843260	843564	
==>@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844138	844442	
==>@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845016	845320	
==>@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845895	846199	
==>@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
133	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	14200	14309	
==>$optype$retcount", "", $ot1, $ot2);
					($optype)=$return=~/([N|S])/;
					push @code, $code;
				}
			} else <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684711	685020	
==>\@2}}, {{\@3}});\n      {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685606	685915	
==>\@2}}, {{\@3}});\n      {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259214	259521	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263568	263875	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404704	405011	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405616	405923	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406528	406835	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407441	407748	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408339	408646	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409238	409545	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411070	411377	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411963	412270	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421875	422182	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422768	423075	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423664	423971	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	424561	424868	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607605	607912	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608509	608816	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609416	609723	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610324	610631	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611226	611533	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612129	612436	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613035	613342	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773489	773796	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774399	774706	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775309	775616	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776220	776527	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777128	777435	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778037	778344	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778946	779253	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779856	780163	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780764	781071	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781673	781980	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782582	782889	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783492	783799	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784397	784704	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785303	785610	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786213	786520	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787124	787431	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788033	788340	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788943	789250	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789852	790159	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790762	791069	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791668	791975	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792575	792882	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793479	793786	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794384	794691	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795289	795596	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796195	796502	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797098	797405	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798002	798309	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798906	799213	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799811	800118	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800714	801021	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801618	801925	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802522	802829	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803427	803734	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804327	804634	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805228	805535	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806133	806440	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807039	807346	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807943	808250	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808848	809155	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809752	810059	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810657	810964	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811558	811865	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812460	812767	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921062	921369	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921955	922262	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938616	938923	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939506	939813	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940397	940704	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941289	941596	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942181	942488	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943074	943381	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039399	1039706	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040291	1040598	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041183	1041490	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042076	1042383	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042972	1043279	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043869	1044176	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044762	1045069	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045656	1045963	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046550	1046857	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055681	1055988	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056572	1056879	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057464	1057771	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058356	1058663	
==>\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236657	236962	
==>\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237539	237844	
==>\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238421	238726	
==>\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374089	374394	
==>\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374972	375277	
==>\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375855	376160	
==>\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376739	377044	
==>\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377622	377927	
==>\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378506	378811	
==>\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379390	379695	
==>\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380275	380580	
==>\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494386	494691	
==>\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495254	495559	
==>\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496122	496427	
==>\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496991	497296	
==>\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497861	498166	
==>\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498731	499036	
==>\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563993	564298	
==>\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564891	565196	
==>\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565783	566088	
==>\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566676	566981	
==>\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567570	567875	
==>\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568465	568770	
==>\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569357	569662	
==>\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570250	570555	
==>\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596237	596542	
==>\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632701	633006	
==>\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633743	634048	
==>\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642332	642637	
==>\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643220	643525	
==>\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644112	644417	
==>\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645005	645310	
==>\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656502	656807	
==>\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657426	657731	
==>\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658344	658649	
==>\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659263	659568	
==>\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660184	660489	
==>\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661106	661411	
==>\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662021	662326	
==>\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662937	663242	
==>\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843259	843563	
==>\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844137	844441	
==>\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845015	845319	
==>\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845894	846198	
==>\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684713	685023	
==>2}}, {{\@3}});\n      {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685608	685918	
==>2}}, {{\@3}});\n      {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259216	259524	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263570	263878	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404706	405014	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405618	405926	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406530	406838	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407443	407751	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408341	408649	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409240	409548	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411072	411380	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411965	412273	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421877	422185	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422770	423078	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423666	423974	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	424563	424871	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607607	607915	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608511	608819	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609418	609726	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610326	610634	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611228	611536	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612131	612439	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613037	613345	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773491	773799	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774401	774709	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775311	775619	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776222	776530	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777130	777438	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778039	778347	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778948	779256	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779858	780166	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780766	781074	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781675	781983	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782584	782892	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783494	783802	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784399	784707	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785305	785613	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786215	786523	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787126	787434	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788035	788343	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788945	789253	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789854	790162	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790764	791072	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791670	791978	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792577	792885	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793481	793789	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794386	794694	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795291	795599	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796197	796505	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797100	797408	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798004	798312	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798908	799216	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799813	800121	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800716	801024	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801620	801928	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802524	802832	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803429	803737	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804329	804637	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805230	805538	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806135	806443	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807041	807349	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807945	808253	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808850	809158	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809754	810062	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810659	810967	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811560	811868	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812462	812770	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921064	921372	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921957	922265	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938618	938926	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939508	939816	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940399	940707	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941291	941599	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942183	942491	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943076	943384	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039401	1039709	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040293	1040601	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041185	1041493	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042078	1042386	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042974	1043282	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043871	1044179	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044764	1045072	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045658	1045966	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046552	1046860	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055683	1055991	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056574	1056882	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057466	1057774	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058358	1058666	
==>2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236659	236965	
==>2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237541	237847	
==>2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238423	238729	
==>2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374091	374397	
==>2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374974	375280	
==>2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375857	376163	
==>2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376741	377047	
==>2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377624	377930	
==>2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378508	378814	
==>2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379392	379698	
==>2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380277	380583	
==>2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494388	494694	
==>2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495256	495562	
==>2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496124	496430	
==>2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496993	497299	
==>2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497863	498169	
==>2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498733	499039	
==>2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563995	564301	
==>2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564893	565199	
==>2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565785	566091	
==>2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566678	566984	
==>2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567572	567878	
==>2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568467	568773	
==>2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569359	569665	
==>2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570252	570558	
==>2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596239	596545	
==>2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632703	633009	
==>2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633745	634051	
==>2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642334	642640	
==>2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643222	643528	
==>2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644114	644420	
==>2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645007	645313	
==>2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656504	656810	
==>2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657428	657734	
==>2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658346	658652	
==>2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659265	659571	
==>2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660186	660492	
==>2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661108	661414	
==>2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662023	662329	
==>2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662939	663245	
==>2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843261	843566	
==>2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844139	844444	
==>2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845017	845322	
==>2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
132	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845896	846201	
==>2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684707	684998	
==>, {{\@2}}, {{\@3}});\n      {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685602	685893	
==>, {{\@2}}, {{\@3}});\n      {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259210	259499	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263564	263853	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408335	408624	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409234	409523	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411066	411355	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411959	412248	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421871	422160	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422764	423053	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423660	423949	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	424557	424846	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607601	607890	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608505	608794	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609412	609701	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610320	610609	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611222	611511	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612125	612414	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613031	613320	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773485	773774	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774395	774684	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775305	775594	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776216	776505	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777124	777413	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778033	778322	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778942	779231	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779852	780141	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780760	781049	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781669	781958	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782578	782867	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783488	783777	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784393	784682	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785299	785588	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786209	786498	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787120	787409	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788029	788318	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788939	789228	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789848	790137	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790758	791047	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791664	791953	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792571	792860	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793475	793764	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794380	794669	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795285	795574	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796191	796480	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797094	797383	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797998	798287	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798902	799191	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799807	800096	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800710	800999	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801614	801903	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802518	802807	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803423	803712	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804323	804612	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805224	805513	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806129	806418	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807035	807324	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807939	808228	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808844	809133	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809748	810037	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810653	810942	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811554	811843	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812456	812745	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921058	921347	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921951	922240	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938612	938901	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939502	939791	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940393	940682	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941285	941574	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942177	942466	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943070	943359	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039395	1039684	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040287	1040576	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041179	1041468	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042072	1042361	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042968	1043257	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043865	1044154	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044758	1045047	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045652	1045941	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046546	1046835	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055677	1055966	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056568	1056857	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057460	1057749	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058352	1058641	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236653	236940	
==>, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237535	237822	
==>, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238417	238704	
==>, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374085	374372	
==>, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374968	375255	
==>, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375851	376138	
==>, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376735	377022	
==>, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377618	377905	
==>, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378502	378789	
==>, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379386	379673	
==>, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380271	380558	
==>, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563989	564276	
==>, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564887	565174	
==>, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565779	566066	
==>, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566672	566959	
==>, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567566	567853	
==>, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568461	568748	
==>, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569353	569640	
==>, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570246	570533	
==>, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596233	596520	
==>, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632697	632984	
==>, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633739	634026	
==>, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642328	642615	
==>, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643216	643503	
==>, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644108	644395	
==>, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645001	645288	
==>, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656498	656785	
==>, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657422	657709	
==>, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658340	658627	
==>, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659259	659546	
==>, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660180	660467	
==>, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661102	661389	
==>, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662017	662304	
==>, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662933	663220	
==>, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843256	843541	
==>,{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844134	844419	
==>,{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845012	845297	
==>,{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
122	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845891	846176	
==>,{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138214	138505	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139110	139401	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140006	140297	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140901	141192	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141797	142088	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142693	142984	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143620	143911	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144548	144839	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145476	145767	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146411	146702	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147351	147642	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148292	148583	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149232	149523	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150173	150464	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151150	151441	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152128	152419	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	153071	153362	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154014	154305	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154917	155208	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155821	156112	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156725	157016	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157630	157921	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158533	158824	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159429	159720	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160326	160617	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161223	161514	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162119	162410	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163016	163307	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163913	164204	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164841	165132	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165770	166061	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166699	166990	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167637	167928	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168578	168869	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169520	169811	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170460	170751	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171401	171692	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172378	172669	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173356	173647	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	174305	174596	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175254	175545	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176157	176448	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177061	177352	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177965	178256	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178870	179161	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179773	180064	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180668	180959	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181564	181855	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182460	182751	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183355	183646	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184251	184542	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185147	185438	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186076	186367	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187006	187297	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187936	188227	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188877	189168	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189817	190108	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190758	191049	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191697	191988	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192637	192928	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193615	193906	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194594	194885	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	195542	195833	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196490	196781	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197386	197677	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198283	198574	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199180	199471	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200076	200367	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200973	201264	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201870	202161	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202800	203091	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203731	204022	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204662	204953	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205604	205895	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206545	206836	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207487	207778	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208427	208718	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209368	209659	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210347	210638	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211327	211618	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	212276	212567	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213225	213516	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214166	214457	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215106	215397	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216047	216338	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216986	217277	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217926	218217	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218904	219195	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219883	220174	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	220831	221122	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221779	222070	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222721	223012	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223662	223953	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224604	224895	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225544	225835	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226485	226776	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227464	227755	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228444	228735	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	229393	229684	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	230342	230633	
==>) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
101	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	141	246	
==>e vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
use Carp;

$VERSION   = '0.01';
@ISA       = qw( <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138227	138514	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139123	139410	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140019	140306	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140914	141201	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141810	142097	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142706	142993	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143633	143920	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144561	144848	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145489	145776	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146424	146711	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147364	147651	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148305	148592	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149245	149532	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150186	150473	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151163	151450	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152141	152428	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	153084	153371	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154027	154314	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154930	155217	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155834	156121	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156738	157025	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157643	157930	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158546	158833	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159442	159729	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160339	160626	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161236	161523	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162132	162419	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163029	163316	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163926	164213	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164854	165141	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165783	166070	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166712	166999	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167650	167937	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168591	168878	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169533	169820	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170473	170760	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171414	171701	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172391	172678	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173369	173656	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	174318	174605	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175267	175554	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176170	176457	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177074	177361	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177978	178265	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178883	179170	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179786	180073	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180681	180968	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181577	181864	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182473	182760	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183368	183655	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184264	184551	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185160	185447	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186089	186376	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187019	187306	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187949	188236	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188890	189177	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189830	190117	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190771	191058	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191710	191997	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192650	192937	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193628	193915	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194607	194894	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	195555	195842	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196503	196790	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197399	197686	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198296	198583	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199193	199480	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200089	200376	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200986	201273	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201883	202170	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202813	203100	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203744	204031	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204675	204962	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205617	205904	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206558	206845	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207500	207787	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208440	208727	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209381	209668	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210360	210647	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211340	211627	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	212289	212576	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213238	213525	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214179	214466	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215119	215406	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216060	216347	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216999	217286	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217939	218226	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218917	219204	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219896	220183	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	220844	221131	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221792	222079	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222734	223021	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223675	223962	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224617	224904	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225557	225844	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226498	226785	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227477	227764	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228457	228744	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	229406	229693	
==>{{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656350	656461	
==>],
                  "BODY" => "#line 324 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->v <==
101	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657274	657385	
==>],
                  "BODY" => "#line 324 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->v <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138241	138525	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139137	139421	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140033	140317	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140928	141212	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141824	142108	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142720	143004	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143647	143931	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144575	144859	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145503	145787	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146438	146722	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147378	147662	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148319	148603	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149259	149543	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150200	150484	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151177	151461	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152155	152439	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	153098	153382	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154041	154325	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154944	155228	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155848	156132	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156752	157036	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157657	157941	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158560	158844	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159456	159740	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160353	160637	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161250	161534	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162146	162430	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163043	163327	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163940	164224	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164868	165152	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165797	166081	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166726	167010	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167664	167948	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168605	168889	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169547	169831	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170487	170771	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171428	171712	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172405	172689	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173383	173667	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	174332	174616	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175281	175565	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176184	176468	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177088	177372	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177992	178276	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178897	179181	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179800	180084	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180695	180979	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181591	181875	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182487	182771	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183382	183666	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184278	184562	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185174	185458	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186103	186387	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187033	187317	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187963	188247	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188904	189188	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189844	190128	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190785	191069	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191724	192008	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192664	192948	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193642	193926	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194621	194905	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	195569	195853	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196517	196801	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197413	197697	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198310	198594	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199207	199491	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200103	200387	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201000	201284	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201897	202181	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202827	203111	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203758	204042	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204689	204973	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205631	205915	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206572	206856	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207514	207798	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208454	208738	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209395	209679	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210374	210658	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211354	211638	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	212303	212587	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213252	213536	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214193	214477	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215133	215417	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216074	216358	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217013	217297	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217953	218237	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218931	219215	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219910	220194	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	220858	221142	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221806	222090	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222748	223032	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223689	223973	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224631	224915	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225571	225855	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226512	226796	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227491	227775	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228471	228755	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	229420	229704	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
100	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	4738	4841	
==>URR];  # goto or gosub
	push @{$code{$seg}->{code}}, "\t# On X $branch...\n";
	feedme();
	$loop=0;
	@onl <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138252	138553	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139148	139449	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140044	140345	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140939	141240	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141835	142136	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142731	143032	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143658	143959	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144586	144887	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145514	145815	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146449	146750	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147389	147690	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148330	148631	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149270	149571	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150211	150512	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151188	151489	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152166	152467	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	153109	153410	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154052	154353	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154955	155256	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155859	156160	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156763	157064	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157668	157969	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158571	158872	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159467	159768	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160364	160665	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161261	161562	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162157	162458	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163054	163355	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163951	164252	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164879	165180	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165808	166109	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166737	167038	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167675	167976	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168616	168917	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169558	169859	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170498	170799	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171439	171740	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172416	172717	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173394	173695	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	174343	174644	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175292	175593	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176195	176496	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177099	177400	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178003	178304	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178908	179209	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179811	180112	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180706	181007	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181602	181903	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182498	182799	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183393	183694	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184289	184590	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185185	185486	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186114	186415	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187044	187345	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187974	188275	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188915	189216	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189855	190156	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190796	191097	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191735	192036	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192675	192976	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193653	193954	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194632	194933	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	195580	195881	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196528	196829	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197424	197725	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198321	198622	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199218	199519	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200114	200415	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201011	201312	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201908	202209	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202838	203139	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203769	204070	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204700	205001	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205642	205943	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206583	206884	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207525	207826	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208465	208766	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209406	209707	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210385	210686	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211365	211666	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	212314	212615	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213263	213564	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214204	214505	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215144	215445	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216085	216386	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217024	217325	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217964	218265	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218942	219243	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219921	220222	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	220869	221170	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221817	222118	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222759	223060	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223700	224001	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224642	224943	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225582	225883	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226523	226824	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227502	227803	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228482	228783	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	229431	229732	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
100	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	14285	14392	
==>ck->kind eq 'until') {
        my $parent_block = $peer_block->block;
        my $loop = Jako::Construct::Bl <==
100	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	1095	1185	
==>, '',
			$self->new_item('', 'docs/configuration.pod'),
			$self->new_item('', 'docs/vtable <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138233	138520	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139129	139416	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140025	140312	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140920	141207	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141816	142103	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142712	142999	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143639	143926	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144567	144854	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145495	145782	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146430	146717	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147370	147657	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148311	148598	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149251	149538	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150192	150479	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151169	151456	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152147	152434	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	153090	153377	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154033	154320	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154936	155223	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155840	156127	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156744	157031	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157649	157936	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158552	158839	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159448	159735	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160345	160632	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161242	161529	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162138	162425	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163035	163322	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163932	164219	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164860	165147	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165789	166076	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166718	167005	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167656	167943	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168597	168884	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169539	169826	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170479	170766	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171420	171707	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172397	172684	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173375	173662	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	174324	174611	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175273	175560	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176176	176463	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177080	177367	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177984	178271	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178889	179176	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179792	180079	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180687	180974	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181583	181870	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182479	182766	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183374	183661	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184270	184557	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185166	185453	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186095	186382	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187025	187312	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187955	188242	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188896	189183	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189836	190123	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190777	191064	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191716	192003	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192656	192943	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193634	193921	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194613	194900	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	195561	195848	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196509	196796	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197405	197692	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198302	198589	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199199	199486	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200095	200382	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200992	201279	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201889	202176	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202819	203106	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203750	204037	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204681	204968	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205623	205910	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206564	206851	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207506	207793	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208446	208733	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209387	209674	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210366	210653	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211346	211633	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	212295	212582	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213244	213531	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214185	214472	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215125	215412	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216066	216353	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217005	217292	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217945	218232	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218923	219210	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219902	220189	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	220850	221137	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221798	222085	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222740	223027	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223681	223968	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224623	224910	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225563	225850	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226504	226791	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227483	227770	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228463	228750	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	229412	229699	
==>}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
100	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49536	49649	
==>item)
				      or  _no_rule("<uncommit>",$line);
			}
			elsif ($grammar =~ m/$QUOTELIKEMK/gco)
			{
				_parse(" <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138230	138517	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139126	139413	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140022	140309	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140917	141204	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141813	142100	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142709	142996	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143636	143923	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144564	144851	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145492	145779	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146427	146714	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147367	147654	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148308	148595	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149248	149535	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150189	150476	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151166	151453	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152144	152431	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	153087	153374	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154030	154317	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154933	155220	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155837	156124	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156741	157028	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157646	157933	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158549	158836	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159445	159732	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160342	160629	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161239	161526	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162135	162422	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163032	163319	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163929	164216	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164857	165144	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165786	166073	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166715	167002	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167653	167940	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168594	168881	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169536	169823	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170476	170763	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171417	171704	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172394	172681	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173372	173659	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	174321	174608	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175270	175557	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176173	176460	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177077	177364	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177981	178268	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178886	179173	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179789	180076	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180684	180971	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181580	181867	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182476	182763	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183371	183658	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184267	184554	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185163	185450	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186092	186379	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187022	187309	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187952	188239	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188893	189180	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189833	190120	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190774	191061	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191713	192000	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192653	192940	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193631	193918	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194610	194897	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	195558	195845	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196506	196793	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197402	197689	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198299	198586	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199196	199483	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200092	200379	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200989	201276	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201886	202173	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202816	203103	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203747	204034	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204678	204965	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205620	205907	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206561	206848	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207503	207790	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208443	208730	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209384	209671	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210363	210650	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211343	211630	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	212292	212579	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213241	213528	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214182	214469	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215122	215409	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216063	216350	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217002	217289	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217942	218229	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218920	219207	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219899	220186	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	220847	221134	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221795	222082	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222737	223024	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223678	223965	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224620	224907	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225560	225847	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226501	226788	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227480	227767	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228460	228747	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	229409	229696	
==>@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
100	/Users/nnunley/parrot/lib/Text/Balanced.pm	10947	11042	
==>tpos = pos($$textref) = pos($$textref)||0;
	unless ($$textref =~ m/\G($pre)/gc)
	{
		_failmsg "D <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138235	138523	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139131	139419	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140027	140315	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140922	141210	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141818	142106	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142714	143002	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143641	143929	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144569	144857	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145497	145785	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146432	146720	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147372	147660	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148313	148601	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149253	149541	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150194	150482	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151171	151459	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152149	152437	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	153092	153380	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154035	154323	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154938	155226	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155842	156130	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156746	157034	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157651	157939	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158554	158842	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159450	159738	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160347	160635	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161244	161532	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162140	162428	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163037	163325	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163934	164222	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164862	165150	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165791	166079	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166720	167008	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167658	167946	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168599	168887	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169541	169829	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170481	170769	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171422	171710	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172399	172687	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173377	173665	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	174326	174614	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175275	175563	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176178	176466	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177082	177370	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177986	178274	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178891	179179	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179794	180082	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180689	180977	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181585	181873	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182481	182769	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183376	183664	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184272	184560	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185168	185456	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186097	186385	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187027	187315	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187957	188245	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188898	189186	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189838	190126	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190779	191067	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191718	192006	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192658	192946	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193636	193924	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194615	194903	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	195563	195851	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196511	196799	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197407	197695	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198304	198592	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199201	199489	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200097	200385	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200994	201282	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201891	202179	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202821	203109	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203752	204040	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204683	204971	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205625	205913	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206566	206854	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207508	207796	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208448	208736	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209389	209677	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210368	210656	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211348	211636	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	212297	212585	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213246	213534	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214187	214475	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215127	215415	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216068	216356	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217007	217295	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217947	218235	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218925	219213	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219904	220192	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	220852	221140	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221800	222088	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222742	223030	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223683	223971	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224625	224913	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225565	225853	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226506	226794	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227485	227773	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228465	228753	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	229414	229702	
==>};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
100	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19529	19701	
==>o rfail
#               R or rfail
#               $matchcount++
#         next:
#

# R<min,max>? ->  $matchcount = 0
#                 goto check
#          rfail: if $matc <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138216	138506	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139112	139402	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140008	140298	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140903	141193	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141799	142089	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142695	142985	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143622	143912	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144550	144840	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145478	145768	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146413	146703	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147353	147643	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148294	148584	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149234	149524	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150175	150465	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151152	151442	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152130	152420	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	153073	153363	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154016	154306	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154919	155209	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155823	156113	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156727	157017	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157632	157922	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158535	158825	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159431	159721	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160328	160618	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161225	161515	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162121	162411	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163018	163308	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163915	164205	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164843	165133	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165772	166062	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166701	166991	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167639	167929	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168580	168870	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169522	169812	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170462	170752	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171403	171693	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172380	172670	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173358	173648	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	174307	174597	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175256	175546	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176159	176449	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177063	177353	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177967	178257	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178872	179162	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179775	180065	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180670	180960	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181566	181856	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182462	182752	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183357	183647	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184253	184543	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185149	185439	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186078	186368	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187008	187298	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187938	188228	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188879	189169	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189819	190109	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190760	191050	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191699	191989	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192639	192929	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193617	193907	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194596	194886	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	195544	195834	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196492	196782	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197388	197678	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198285	198575	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199182	199472	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200078	200368	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200975	201265	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201872	202162	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202802	203092	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203733	204023	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204664	204954	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205606	205896	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206547	206837	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207489	207779	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208429	208719	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209370	209660	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210349	210639	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211329	211619	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	212278	212568	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213227	213517	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214168	214458	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215108	215398	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216049	216339	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216988	217278	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217928	218218	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218906	219196	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219885	220175	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	220833	221123	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221781	222071	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222723	223013	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223664	223954	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224606	224896	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225546	225836	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226487	226777	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227466	227756	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228446	228736	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	229395	229685	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
100	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	230344	230634	
==>{\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138231	138519	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139127	139415	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140023	140311	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140918	141206	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141814	142102	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142710	142998	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143637	143925	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144565	144853	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145493	145781	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146428	146716	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147368	147656	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148309	148597	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149249	149537	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150190	150478	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151167	151455	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152145	152433	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	153088	153376	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154031	154319	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154934	155222	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155838	156126	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156742	157030	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157647	157935	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158550	158838	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159446	159734	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160343	160631	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161240	161528	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162136	162424	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163033	163321	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163930	164218	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164858	165146	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165787	166075	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166716	167004	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167654	167942	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168595	168883	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169537	169825	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170477	170765	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171418	171706	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172395	172683	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173373	173661	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	174322	174610	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175271	175559	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176174	176462	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177078	177366	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177982	178270	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178887	179175	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179790	180078	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180685	180973	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181581	181869	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182477	182765	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183372	183660	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184268	184556	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185164	185452	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186093	186381	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187023	187311	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187953	188241	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188894	189182	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189834	190122	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190775	191063	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191714	192002	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192654	192942	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193632	193920	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194611	194899	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	195559	195847	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196507	196795	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197403	197691	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198300	198588	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199197	199485	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200093	200381	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200990	201278	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201887	202175	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202817	203105	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203748	204036	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204679	204967	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205621	205909	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206562	206850	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207504	207792	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208444	208732	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209385	209673	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210364	210652	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211344	211632	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	212293	212581	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213242	213530	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214183	214471	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215123	215411	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216064	216352	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217003	217291	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217943	218231	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218921	219209	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219900	220188	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	220848	221136	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221796	222084	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222738	223026	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223679	223967	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224621	224909	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225561	225849	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226502	226790	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227481	227769	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228461	228749	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	229410	229698	
==>3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138238	138524	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139134	139420	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140030	140316	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140925	141211	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141821	142107	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142717	143003	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143644	143930	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144572	144858	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145500	145786	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146435	146721	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147375	147661	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148316	148602	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149256	149542	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150197	150483	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151174	151460	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152152	152438	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	153095	153381	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154038	154324	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154941	155227	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155845	156131	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156749	157035	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157654	157940	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158557	158843	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159453	159739	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160350	160636	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161247	161533	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162143	162429	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163040	163326	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163937	164223	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164865	165151	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165794	166080	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166723	167009	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167661	167947	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168602	168888	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169544	169830	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170484	170770	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171425	171711	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172402	172688	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173380	173666	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	174329	174615	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175278	175564	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176181	176467	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177085	177371	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177989	178275	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178894	179180	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179797	180083	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180692	180978	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181588	181874	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182484	182770	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183379	183665	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184275	184561	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185171	185457	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186100	186386	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187030	187316	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187960	188246	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188901	189187	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189841	190127	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190782	191068	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191721	192007	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192661	192947	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193639	193925	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194618	194904	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	195566	195852	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196514	196800	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197410	197696	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198307	198593	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199204	199490	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200100	200386	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200997	201283	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201894	202180	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202824	203110	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203755	204041	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204686	204972	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205628	205914	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206569	206855	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207511	207797	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208451	208737	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209392	209678	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210371	210657	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211351	211637	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	212300	212586	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213249	213535	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214190	214476	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215130	215416	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216071	216357	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217010	217296	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217950	218236	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218928	219214	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219907	220193	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	220855	221141	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221803	222089	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222745	223031	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223686	223972	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224628	224914	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225568	225854	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226509	226795	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227488	227774	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228468	228754	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	229417	229703	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138217	138513	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139113	139409	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140009	140305	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140904	141200	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141800	142096	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142696	142992	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143623	143919	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144551	144847	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145479	145775	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146414	146710	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147354	147650	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148295	148591	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149235	149531	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150176	150472	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151153	151449	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152131	152427	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	153074	153370	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154017	154313	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154920	155216	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155824	156120	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156728	157024	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157633	157929	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158536	158832	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159432	159728	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160329	160625	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161226	161522	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162122	162418	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163019	163315	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163916	164212	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164844	165140	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165773	166069	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166702	166998	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167640	167936	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168581	168877	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169523	169819	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170463	170759	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171404	171700	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172381	172677	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173359	173655	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	174308	174604	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175257	175553	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176160	176456	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177064	177360	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177968	178264	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178873	179169	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179776	180072	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180671	180967	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181567	181863	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182463	182759	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183358	183654	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184254	184550	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185150	185446	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186079	186375	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187009	187305	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187939	188235	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188880	189176	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189820	190116	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190761	191057	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191700	191996	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192640	192936	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193618	193914	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194597	194893	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	195545	195841	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196493	196789	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197389	197685	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198286	198582	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199183	199479	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200079	200375	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200976	201272	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201873	202169	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202803	203099	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203734	204030	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204665	204961	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205607	205903	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206548	206844	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207490	207786	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208430	208726	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209371	209667	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210350	210646	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211330	211626	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	212279	212575	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213228	213524	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214169	214465	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215109	215405	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216050	216346	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216989	217285	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217929	218225	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218907	219203	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219886	220182	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	220834	221130	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221782	222078	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222724	223020	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223665	223961	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224607	224903	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225547	225843	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226488	226784	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227467	227763	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228447	228743	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	229396	229692	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138242	138552	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139138	139448	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140034	140344	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140929	141239	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141825	142135	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142721	143031	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143648	143958	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144576	144886	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145504	145814	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146439	146749	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147379	147689	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148320	148630	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149260	149570	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150201	150511	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151178	151488	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152156	152466	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	153099	153409	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154042	154352	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154945	155255	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155849	156159	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156753	157063	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157658	157968	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158561	158871	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159457	159767	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160354	160664	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161251	161561	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162147	162457	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163044	163354	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163941	164251	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164869	165179	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165798	166108	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166727	167037	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167665	167975	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168606	168916	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169548	169858	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170488	170798	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171429	171739	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172406	172716	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173384	173694	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	174333	174643	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175282	175592	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176185	176495	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177089	177399	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177993	178303	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178898	179208	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179801	180111	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180696	181006	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181592	181902	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182488	182798	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183383	183693	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184279	184589	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185175	185485	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186104	186414	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187034	187344	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187964	188274	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188905	189215	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189845	190155	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190786	191096	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191725	192035	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192665	192975	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193643	193953	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194622	194932	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	195570	195880	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196518	196828	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197414	197724	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198311	198621	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199208	199518	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200104	200414	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201001	201311	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201898	202208	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202828	203138	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203759	204069	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204690	205000	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205632	205942	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206573	206883	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207515	207825	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208455	208765	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209396	209706	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210375	210685	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211355	211665	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	212304	212614	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213253	213563	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214194	214504	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215134	215444	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216075	216385	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217014	217324	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217954	218264	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218932	219242	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219911	220221	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	220859	221169	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221807	222117	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222749	223059	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223690	224000	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224632	224942	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225572	225882	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226513	226823	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227492	227802	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228472	228782	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	229421	229731	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NA <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138234	138521	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139130	139417	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140026	140313	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140921	141208	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141817	142104	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142713	143000	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143640	143927	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144568	144855	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145496	145783	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146431	146718	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147371	147658	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148312	148599	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149252	149539	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150193	150480	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151170	151457	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152148	152435	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	153091	153378	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154034	154321	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154937	155224	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155841	156128	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156745	157032	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157650	157937	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158553	158840	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159449	159736	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160346	160633	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161243	161530	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162139	162426	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163036	163323	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163933	164220	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164861	165148	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165790	166077	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166719	167006	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167657	167944	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168598	168885	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169540	169827	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170480	170767	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171421	171708	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172398	172685	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173376	173663	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	174325	174612	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175274	175561	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176177	176464	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177081	177368	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177985	178272	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178890	179177	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179793	180080	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180688	180975	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181584	181871	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182480	182767	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183375	183662	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184271	184558	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185167	185454	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186096	186383	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187026	187313	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187956	188243	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188897	189184	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189837	190124	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190778	191065	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191717	192004	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192657	192944	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193635	193922	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194614	194901	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	195562	195849	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196510	196797	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197406	197693	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198303	198590	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199200	199487	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200096	200383	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200993	201280	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201890	202177	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202820	203107	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203751	204038	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204682	204969	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205624	205911	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206565	206852	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207507	207794	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208447	208734	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209388	209675	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210367	210654	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211347	211634	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	212296	212583	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213245	213532	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214186	214473	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215126	215413	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216067	216354	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217006	217293	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217946	218233	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218924	219211	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219903	220190	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	220851	221138	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221799	222086	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222741	223028	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223682	223969	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224624	224911	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225564	225851	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226505	226792	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227484	227771	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228464	228751	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	229413	229700	
==>}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138254	138560	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139150	139456	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140046	140352	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140941	141247	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141837	142143	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142733	143039	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143660	143966	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144588	144894	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145516	145822	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146451	146757	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147391	147697	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148332	148638	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149272	149578	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150213	150519	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151190	151496	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152168	152474	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	153111	153417	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154054	154360	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154957	155263	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155861	156167	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156765	157071	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157670	157976	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158573	158879	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159469	159775	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160366	160672	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161263	161569	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162159	162465	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163056	163362	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163953	164259	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164881	165187	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165810	166116	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166739	167045	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167677	167983	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168618	168924	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169560	169866	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170500	170806	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171441	171747	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172418	172724	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173396	173702	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	174345	174651	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175294	175600	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176197	176503	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177101	177407	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178005	178311	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178910	179216	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179813	180119	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180708	181014	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181604	181910	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182500	182806	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183395	183701	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184291	184597	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185187	185493	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186116	186422	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187046	187352	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187976	188282	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188917	189223	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189857	190163	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190798	191104	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191737	192043	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192677	192983	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193655	193961	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194634	194940	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	195582	195888	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196530	196836	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197426	197732	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198323	198629	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199220	199526	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200116	200422	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201013	201319	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201910	202216	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202840	203146	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203771	204077	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204702	205008	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205644	205950	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206585	206891	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207527	207833	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208467	208773	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209408	209714	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210387	210693	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211367	211673	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	212316	212622	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213265	213571	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214206	214512	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215146	215452	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216087	216393	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217026	217332	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217966	218272	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218944	219250	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219923	220229	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	220871	221177	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221819	222125	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222761	223067	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223702	224008	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224644	224950	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225584	225890	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226525	226831	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227504	227810	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228484	228790	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	229433	229739	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138228	138516	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139124	139412	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140020	140308	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140915	141203	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141811	142099	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142707	142995	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143634	143922	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144562	144850	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145490	145778	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146425	146713	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147365	147653	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148306	148594	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149246	149534	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150187	150475	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151164	151452	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152142	152430	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	153085	153373	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154028	154316	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154931	155219	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155835	156123	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156739	157027	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157644	157932	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158547	158835	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159443	159731	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160340	160628	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161237	161525	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162133	162421	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163030	163318	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163927	164215	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164855	165143	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165784	166072	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166713	167001	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167651	167939	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168592	168880	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169534	169822	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170474	170762	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171415	171703	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172392	172680	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173370	173658	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	174319	174607	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175268	175556	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176171	176459	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177075	177363	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177979	178267	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178884	179172	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179787	180075	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180682	180970	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181578	181866	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182474	182762	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183369	183657	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184265	184553	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185161	185449	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186090	186378	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187020	187308	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187950	188238	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188891	189179	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189831	190119	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190772	191060	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191711	191999	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192651	192939	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193629	193917	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194608	194896	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	195556	195844	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196504	196792	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197400	197688	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198297	198585	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199194	199482	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200090	200378	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200987	201275	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201884	202172	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202814	203102	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203745	204033	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204676	204964	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205618	205906	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206559	206847	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207501	207789	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208441	208729	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209382	209670	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210361	210649	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211341	211629	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	212290	212578	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213239	213527	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214180	214468	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215120	215408	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216061	216349	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217000	217288	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217940	218228	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218918	219206	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219897	220185	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	220845	221133	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221793	222081	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222735	223023	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223676	223964	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224618	224906	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225558	225846	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226499	226787	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227478	227766	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228458	228746	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
99	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	229407	229695	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259198	259496	
==>(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263552	263850	
==>(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408323	408621	
==>(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409222	409520	
==>(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411054	411352	
==>(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411947	412245	
==>(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421859	422157	
==>(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422752	423050	
==>(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423648	423946	
==>(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	424545	424843	
==>(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607589	607887	
==>(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608493	608791	
==>(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609400	609698	
==>(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610308	610606	
==>(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786197	786495	
==>(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787108	787406	
==>(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788017	788315	
==>(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788927	789225	
==>(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789836	790134	
==>(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790746	791044	
==>(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791652	791950	
==>(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792559	792857	
==>(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806117	806415	
==>(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807023	807321	
==>(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807927	808225	
==>(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808832	809130	
==>(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809736	810034	
==>(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810641	810939	
==>(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811542	811840	
==>(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812444	812742	
==>(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921046	921344	
==>(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921939	922237	
==>(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938600	938898	
==>(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939490	939788	
==>(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940381	940679	
==>(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941273	941571	
==>(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942165	942463	
==>(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943058	943356	
==>(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054538	1054836	
==>(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055665	1055963	
==>(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056556	1056854	
==>(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057448	1057746	
==>(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058340	1058638	
==>(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059233	1059531	
==>(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236641	236937	
==>(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237523	237819	
==>(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238405	238701	
==>(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374073	374369	
==>(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374956	375252	
==>(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375839	376135	
==>(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376723	377019	
==>(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377606	377902	
==>(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378490	378786	
==>(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379374	379670	
==>(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380259	380555	
==>(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565767	566063	
==>(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566660	566956	
==>(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567554	567850	
==>(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568449	568745	
==>(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569341	569637	
==>(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570234	570530	
==>(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596221	596517	
==>(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597114	597410	
==>(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632685	632981	
==>(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633727	634023	
==>(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642316	642612	
==>(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643204	643500	
==>(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644096	644392	
==>(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644989	645285	
==>(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656486	656782	
==>(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657410	657706	
==>(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658328	658624	
==>(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659247	659543	
==>(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660168	660464	
==>(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661090	661386	
==>(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662005	662301	
==>(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662921	663217	
==>(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843244	843538	
==>(interpreter,{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844122	844416	
==>(interpreter,{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845000	845294	
==>(interpreter,{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
81	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845879	846173	
==>(interpreter,{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259209	259498	
==>r, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263563	263852	
==>r, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408334	408623	
==>r, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409233	409522	
==>r, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411065	411354	
==>r, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411958	412247	
==>r, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421870	422159	
==>r, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422763	423052	
==>r, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423659	423948	
==>r, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	424556	424845	
==>r, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607600	607889	
==>r, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608504	608793	
==>r, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609411	609700	
==>r, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610319	610608	
==>r, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786208	786497	
==>r, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787119	787408	
==>r, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788028	788317	
==>r, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788938	789227	
==>r, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789847	790136	
==>r, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790757	791046	
==>r, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791663	791952	
==>r, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792570	792859	
==>r, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806128	806417	
==>r, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807034	807323	
==>r, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807938	808227	
==>r, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808843	809132	
==>r, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809747	810036	
==>r, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810652	810941	
==>r, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811553	811842	
==>r, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812455	812744	
==>r, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921057	921346	
==>r, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921950	922239	
==>r, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938611	938900	
==>r, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939501	939790	
==>r, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940392	940681	
==>r, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941284	941573	
==>r, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942176	942465	
==>r, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943069	943358	
==>r, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055676	1055965	
==>r, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056567	1056856	
==>r, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057459	1057748	
==>r, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058351	1058640	
==>r, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236652	236939	
==>r, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237534	237821	
==>r, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238416	238703	
==>r, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374084	374371	
==>r, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374967	375254	
==>r, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375850	376137	
==>r, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376734	377021	
==>r, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377617	377904	
==>r, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378501	378788	
==>r, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379385	379672	
==>r, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380270	380557	
==>r, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565778	566065	
==>r, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566671	566958	
==>r, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567565	567852	
==>r, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568460	568747	
==>r, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569352	569639	
==>r, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570245	570532	
==>r, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596232	596519	
==>r, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632696	632983	
==>r, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633738	634025	
==>r, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642327	642614	
==>r, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643215	643502	
==>r, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644107	644394	
==>r, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645000	645287	
==>r, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656497	656784	
==>r, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657421	657708	
==>r, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658339	658626	
==>r, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659258	659545	
==>r, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660179	660466	
==>r, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661101	661388	
==>r, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662016	662303	
==>r, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662932	663219	
==>r, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843255	843540	
==>r,{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844133	844418	
==>r,{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845011	845296	
==>r,{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845890	846175	
==>r,{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
79	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	1865	1972	
==>html_link($path)>

Returns the HTML link for the section.

=cut

sub html_link
{
    my $self = shift;
    m <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684719	685029	
==>{\@3}});\n      {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404712	405020	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405624	405932	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406536	406844	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411078	411386	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610332	610640	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611234	611542	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612137	612445	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613043	613351	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773497	773805	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774407	774715	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775317	775625	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776228	776536	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777136	777444	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778045	778353	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778954	779262	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779864	780172	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780772	781080	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781681	781989	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782590	782898	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783500	783808	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784405	784713	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785311	785619	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786221	786529	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787132	787440	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788041	788349	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788951	789259	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789860	790168	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790770	791078	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791676	791984	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792583	792891	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793487	793795	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794392	794700	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795297	795605	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796203	796511	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797106	797414	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798010	798318	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798914	799222	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799819	800127	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800722	801030	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801626	801934	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802530	802838	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803435	803743	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804335	804643	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805236	805544	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806141	806449	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807047	807355	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807951	808259	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808856	809164	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809760	810068	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810665	810973	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811566	811874	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921070	921378	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921963	922271	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939514	939822	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940405	940713	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941297	941605	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942189	942497	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039407	1039715	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040299	1040607	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041191	1041499	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042084	1042392	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042980	1043288	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043877	1044185	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044770	1045078	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045664	1045972	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046558	1046866	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374097	374403	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374980	375286	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375863	376169	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376747	377053	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377630	377936	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378514	378820	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379398	379704	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380283	380589	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515937	516243	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596245	596551	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	267774	268028	
==>(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	268538	268792	
==>(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	425360	425614	
==>(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	602799	603053	
==>(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	603575	603829	
==>(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645927	646181	
==>(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646824	647078	
==>(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647584	647838	
==>(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648345	648599	
==>(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649107	649361	
==>(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649870	650124	
==>(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	652489	652743	
==>(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672995	673249	
==>(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673765	674019	
==>(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	674536	674790	
==>(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	675304	675558	
==>(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681526	681780	
==>(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682300	682554	
==>(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683075	683329	
==>(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683847	684101	
==>(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060181	1060435	
==>(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061086	1061340	
==>(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	689733	689986	
==>(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	690493	690746	
==>(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691249	691502	
==>(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692006	692259	
==>(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025045	1025298	
==>(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025802	1026055	
==>(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026558	1026811	
==>(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1027315	1027568	
==>(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	26841	27093	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	35537	35789	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54871	55123	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55631	55883	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56392	56644	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57154	57406	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57915	58167	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58677	58929	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	337418	337670	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640709	640961	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641473	641725	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655607	655859	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666821	667073	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726042	726294	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726804	727056	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733718	733970	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734482	734734	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738207	738459	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738971	739223	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739748	740000	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740525	740777	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742022	742274	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742787	743039	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743553	743805	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744318	744570	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745084	745336	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752067	752319	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760669	760921	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813253	813505	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862522	862774	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863291	863543	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931891	932143	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932662	932914	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934097	934349	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934872	935124	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936313	936565	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937090	937342	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943892	944144	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944681	944933	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954332	954584	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955123	955375	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009131	1009383	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009895	1010147	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010660	1010912	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011424	1011676	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012189	1012441	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
77	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012958	1013210	
==>(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	267781	268055	
==>reter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	268545	268819	
==>reter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	425367	425641	
==>reter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	602806	603080	
==>reter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	603582	603856	
==>reter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645934	646208	
==>reter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646831	647105	
==>reter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647591	647865	
==>reter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648352	648626	
==>reter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649114	649388	
==>reter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649877	650151	
==>reter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673002	673276	
==>reter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673772	674046	
==>reter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	674543	674817	
==>reter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	675311	675585	
==>reter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681533	681807	
==>reter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682307	682581	
==>reter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683082	683356	
==>reter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683854	684128	
==>reter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061093	1061367	
==>reter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	689740	690013	
==>reter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	690500	690773	
==>reter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691256	691529	
==>reter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692013	692286	
==>reter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025052	1025325	
==>reter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025809	1026082	
==>reter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026565	1026838	
==>reter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	35544	35816	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54878	55150	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55638	55910	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56399	56671	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57161	57433	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57922	58194	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58684	58956	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	337425	337697	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640716	640988	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641480	641752	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655614	655886	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666828	667100	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726049	726321	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726811	727083	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733725	733997	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734489	734761	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738214	738486	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738978	739250	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739755	740027	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740532	740804	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742029	742301	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742794	743066	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743560	743832	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744325	744597	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745091	745363	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752074	752346	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760676	760948	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813260	813532	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862529	862801	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863298	863570	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931898	932170	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932669	932941	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934104	934376	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934879	935151	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936320	936592	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937097	937369	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943899	944171	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944688	944960	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954339	954611	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955130	955402	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009138	1009410	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009902	1010174	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010667	1010939	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011431	1011703	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012196	1012468	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012965	1013237	
==>reter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
75	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	25586	25768	
==>),
               $next =>
              );

    return ($back, @ops);
}

# R?? ->       pushindex
#              goto next
#        back: popindex or R.back
#              R or lastb <==
75	/Users/nnunley/parrot/languages/regex/regex.pl	652	774	
==>if (/--file=(.*)/) {
        $expr_file = $1;
    } elsif (/--language=(.*)/) {
        $language = lc($1);
        $langua <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	267783	268058	
==>ter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	268547	268822	
==>ter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	425369	425644	
==>ter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	602808	603083	
==>ter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	603584	603859	
==>ter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645936	646211	
==>ter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646833	647108	
==>ter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647593	647868	
==>ter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648354	648629	
==>ter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649116	649391	
==>ter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649879	650154	
==>ter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673004	673279	
==>ter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673774	674049	
==>ter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	674545	674820	
==>ter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	675313	675588	
==>ter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681535	681810	
==>ter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682309	682584	
==>ter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683084	683359	
==>ter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683856	684131	
==>ter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061095	1061370	
==>ter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	689742	690016	
==>ter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	690502	690776	
==>ter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691258	691532	
==>ter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692015	692289	
==>ter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025054	1025328	
==>ter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025811	1026085	
==>ter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026567	1026841	
==>ter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	35546	35819	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54880	55153	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55640	55913	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56401	56674	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57163	57436	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57924	58197	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58686	58959	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	337427	337700	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640718	640991	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641482	641755	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655616	655889	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666830	667103	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726051	726324	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726813	727086	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733727	734000	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734491	734764	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738216	738489	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738980	739253	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739757	740030	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740534	740807	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742031	742304	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742796	743069	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743562	743835	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744327	744600	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745093	745366	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752076	752349	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760678	760951	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813262	813535	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862531	862804	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863300	863573	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931900	932173	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932671	932944	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934106	934379	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934881	935154	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936322	936595	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937099	937372	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943901	944174	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944690	944963	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954341	954614	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955132	955405	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009140	1009413	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009904	1010177	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010669	1010942	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011433	1011706	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012198	1012471	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012967	1013240	
==>ter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
75	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3540	3656	
==>e stuff #
#################


sub _CheckParams {
	my($mandatory,$checklist,$inarray,$outhash)=@_;
	my($prm,$val <==
75	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3357	3467	
==>e stuff #
#################


sub _CheckParams {
	my($mandatory,$checklist,$inarray,$outhash)=@_;
	my($prm,$val <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730183	730359	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730918	731094	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731654	731830	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732399	732575	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733145	733321	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733908	734084	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734672	734848	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735407	735583	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736143	736319	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736888	737064	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737634	737810	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738397	738573	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739161	739337	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739938	740114	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740715	740891	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741450	741626	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742212	742388	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742977	743153	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743743	743919	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744508	744684	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745274	745450	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746010	746186	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746745	746921	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747529	747705	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748314	748490	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749097	749273	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749881	750057	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750664	750840	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	751479	751655	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772800	772976	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773709	773885	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774619	774795	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775529	775705	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776440	776616	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777348	777524	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778257	778433	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779166	779342	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780076	780252	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780984	781160	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781893	782069	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782802	782978	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783712	783888	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784617	784793	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785523	785699	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786433	786609	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787344	787520	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788253	788429	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789163	789339	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790072	790248	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790982	791158	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791888	792064	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792795	792971	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793699	793875	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794604	794780	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795509	795685	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796415	796591	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797318	797494	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798222	798398	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799126	799302	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800031	800207	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800934	801110	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801838	802014	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802742	802918	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803647	803823	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804547	804723	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805448	805624	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806353	806529	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807259	807435	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808163	808339	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809068	809244	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809972	810148	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810877	811053	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811778	811954	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
75	/Users/nnunley/parrot/lib/Test/Builder.pm	12616	12722	
==>my($self, $got, $dont_expect, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !define <==
75	/Users/nnunley/parrot/lib/Test/Builder.pm	13060	13166	
==>my($self, $got, $dont_expect, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !define <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	267785	268061	
==>r, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	268549	268825	
==>r, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	425371	425647	
==>r, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	602810	603086	
==>r, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	603586	603862	
==>r, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645938	646214	
==>r, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646835	647111	
==>r, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647595	647871	
==>r, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648356	648632	
==>r, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649118	649394	
==>r, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649881	650157	
==>r, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673006	673282	
==>r, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673776	674052	
==>r, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	674547	674823	
==>r, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	675315	675591	
==>r, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681537	681813	
==>r, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682311	682587	
==>r, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683086	683362	
==>r, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683858	684134	
==>r, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061097	1061373	
==>r, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	689744	690019	
==>r, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	690504	690779	
==>r, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691260	691535	
==>r, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692017	692292	
==>r, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025056	1025331	
==>r, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025813	1026088	
==>r, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026569	1026844	
==>r, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	35548	35822	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54882	55156	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55642	55916	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56403	56677	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57165	57439	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57926	58200	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58688	58962	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	337429	337703	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640720	640994	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641484	641758	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655618	655892	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666832	667106	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726053	726327	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726815	727089	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733729	734003	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734493	734767	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738218	738492	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738982	739256	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739759	740033	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740536	740810	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742033	742307	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742798	743072	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743564	743838	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744329	744603	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745095	745369	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752078	752352	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760680	760954	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813264	813538	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862533	862807	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863302	863576	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931902	932176	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932673	932947	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934108	934382	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934883	935157	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936324	936598	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937101	937375	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943903	944177	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944692	944966	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954343	954617	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955134	955408	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009142	1009416	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009906	1010180	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010671	1010945	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011435	1011709	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012200	1012474	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012969	1013243	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
74	/Users/nnunley/parrot/languages/converter.pl	2179	2279	
==>grammargrammar);

my $file = $ARGV[0];
my @lines;
my @rules;

open FILE,$file or die "Couldn't open ' <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	267775	268030	
==>interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	268539	268794	
==>interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	425361	425616	
==>interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	602800	603055	
==>interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	603576	603831	
==>interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645928	646183	
==>interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646825	647080	
==>interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647585	647840	
==>interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648346	648601	
==>interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649108	649363	
==>interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649871	650126	
==>interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672996	673251	
==>interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673766	674021	
==>interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	674537	674792	
==>interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	675305	675560	
==>interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681527	681782	
==>interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682301	682556	
==>interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683076	683331	
==>interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683848	684103	
==>interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061087	1061342	
==>interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	689734	689988	
==>interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	690494	690748	
==>interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691250	691504	
==>interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692007	692261	
==>interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025046	1025300	
==>interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025803	1026057	
==>interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026559	1026813	
==>interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	35538	35791	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54872	55125	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55632	55885	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56393	56646	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57155	57408	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57916	58169	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58678	58931	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	337419	337672	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640710	640963	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641474	641727	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655608	655861	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666822	667075	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726043	726296	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726805	727058	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733719	733972	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734483	734736	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738208	738461	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738972	739225	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739749	740002	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740526	740779	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742023	742276	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742788	743041	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743554	743807	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744319	744572	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745085	745338	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752068	752321	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760670	760923	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813254	813507	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862523	862776	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863292	863545	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931892	932145	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932663	932916	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934098	934351	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934873	935126	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936314	936567	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937091	937344	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943893	944146	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944682	944935	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954333	954586	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955124	955377	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009132	1009385	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009896	1010149	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010661	1010914	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011425	1011678	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012190	1012443	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012959	1013212	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
74	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10958	11065	
==>t_fh'};
  return print $fh join '',
    $self->doc_init,
    $self->font_table,
    $self->stylesheet,
    $ <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730097	730357	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730832	731092	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731568	731828	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732313	732573	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733059	733319	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733822	734082	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734586	734846	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735321	735581	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736057	736317	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736802	737062	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737548	737808	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738311	738571	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739075	739335	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739852	740112	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740629	740889	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741364	741624	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742126	742386	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742891	743151	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743657	743917	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744422	744682	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745188	745448	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745924	746184	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746659	746919	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747443	747703	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748228	748488	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749011	749271	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749795	750055	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750578	750838	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	751393	751653	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772714	772974	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773623	773883	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774533	774793	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775443	775703	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776354	776614	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777262	777522	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778171	778431	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779080	779340	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779990	780250	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780898	781158	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781807	782067	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782716	782976	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783626	783886	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784531	784791	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785437	785697	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786347	786607	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787258	787518	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788167	788427	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789077	789337	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789986	790246	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790896	791156	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791802	792062	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792709	792969	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793613	793873	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794518	794778	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795423	795683	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796329	796589	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797232	797492	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798136	798396	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799040	799300	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799945	800205	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800848	801108	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801752	802012	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802656	802916	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803561	803821	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804461	804721	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805362	805622	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806267	806527	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807173	807433	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808077	808337	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808982	809242	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809886	810146	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810791	811051	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811692	811952	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	267782	268056	
==>eter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	268546	268820	
==>eter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	425368	425642	
==>eter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	602807	603081	
==>eter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	603583	603857	
==>eter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645935	646209	
==>eter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646832	647106	
==>eter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647592	647866	
==>eter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648353	648627	
==>eter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649115	649389	
==>eter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649878	650152	
==>eter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673003	673277	
==>eter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673773	674047	
==>eter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	674544	674818	
==>eter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	675312	675586	
==>eter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681534	681808	
==>eter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682308	682582	
==>eter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683083	683357	
==>eter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683855	684129	
==>eter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061094	1061368	
==>eter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	689741	690014	
==>eter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	690501	690774	
==>eter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691257	691530	
==>eter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692014	692287	
==>eter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025053	1025326	
==>eter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025810	1026083	
==>eter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026566	1026839	
==>eter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	35545	35817	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54879	55151	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55639	55911	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56400	56672	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57162	57434	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57923	58195	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58685	58957	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	337426	337698	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640717	640989	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641481	641753	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655615	655887	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666829	667101	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726050	726322	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726812	727084	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733726	733998	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734490	734762	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738215	738487	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738979	739251	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739756	740028	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740533	740805	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742030	742302	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742795	743067	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743561	743833	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744326	744598	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745092	745364	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752075	752347	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760677	760949	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813261	813533	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862530	862802	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863299	863571	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931899	932171	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932670	932942	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934105	934377	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934880	935152	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936321	936593	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937098	937370	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943900	944172	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944689	944961	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954340	954612	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955131	955403	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009139	1009411	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009903	1010175	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010668	1010940	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011432	1011704	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012197	1012469	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012966	1013238	
==>eter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	267784	268059	
==>er, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	268548	268823	
==>er, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	425370	425645	
==>er, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	602809	603084	
==>er, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	603585	603860	
==>er, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645937	646212	
==>er, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646834	647109	
==>er, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647594	647869	
==>er, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648355	648630	
==>er, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649117	649392	
==>er, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649880	650155	
==>er, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673005	673280	
==>er, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673775	674050	
==>er, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	674546	674821	
==>er, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	675314	675589	
==>er, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681536	681811	
==>er, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682310	682585	
==>er, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683085	683360	
==>er, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683857	684132	
==>er, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061096	1061371	
==>er, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	689743	690017	
==>er, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	690503	690777	
==>er, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691259	691533	
==>er, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692016	692290	
==>er, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025055	1025329	
==>er, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025812	1026086	
==>er, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026568	1026842	
==>er, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	35547	35820	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54881	55154	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55641	55914	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56402	56675	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57164	57437	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57925	58198	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58687	58960	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	337428	337701	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640719	640992	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641483	641756	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655617	655890	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666831	667104	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726052	726325	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726814	727087	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733728	734001	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734492	734765	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738217	738490	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738981	739254	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739758	740031	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740535	740808	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742032	742305	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742797	743070	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743563	743836	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744328	744601	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745094	745367	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752077	752350	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760679	760952	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813263	813536	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862532	862805	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863301	863574	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931901	932174	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932672	932945	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934107	934380	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934882	935155	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936323	936596	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937100	937373	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943902	944175	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944691	944964	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954342	954615	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955133	955406	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009141	1009414	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009905	1010178	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010670	1010943	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011434	1011707	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012199	1012472	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012968	1013241	
==>er, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730185	730394	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730920	731129	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731656	731865	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732401	732610	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733147	733356	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733910	734119	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734674	734883	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735409	735618	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736145	736354	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736890	737099	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737636	737845	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738399	738608	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739163	739372	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739940	740149	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740717	740926	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741452	741661	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742214	742423	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742979	743188	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743745	743954	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744510	744719	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745276	745485	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746012	746221	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746747	746956	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747531	747740	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748316	748525	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749099	749308	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749883	750092	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750666	750875	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	751481	751690	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772802	773011	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773711	773920	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774621	774830	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775531	775740	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776442	776651	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777350	777559	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778259	778468	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779168	779377	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780078	780287	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780986	781195	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781895	782104	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782804	783013	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783714	783923	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784619	784828	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785525	785734	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786435	786644	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787346	787555	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788255	788464	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789165	789374	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790074	790283	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790984	791193	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791890	792099	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792797	793006	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793701	793910	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794606	794815	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795511	795720	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796417	796626	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797320	797529	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798224	798433	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799128	799337	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800033	800242	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800936	801145	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801840	802049	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802744	802953	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803649	803858	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804549	804758	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805450	805659	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806355	806564	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807261	807470	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808165	808374	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809070	809279	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809974	810183	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810879	811088	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811780	811989	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	267776	268054	
==>nterpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	268540	268818	
==>nterpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	425362	425640	
==>nterpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	602801	603079	
==>nterpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	603577	603855	
==>nterpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645929	646207	
==>nterpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646826	647104	
==>nterpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647586	647864	
==>nterpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648347	648625	
==>nterpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649109	649387	
==>nterpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649872	650150	
==>nterpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672997	673275	
==>nterpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673767	674045	
==>nterpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	674538	674816	
==>nterpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	675306	675584	
==>nterpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681528	681806	
==>nterpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682302	682580	
==>nterpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683077	683355	
==>nterpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683849	684127	
==>nterpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061088	1061366	
==>nterpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	689735	690012	
==>nterpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	690495	690772	
==>nterpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691251	691528	
==>nterpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692008	692285	
==>nterpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025047	1025324	
==>nterpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025804	1026081	
==>nterpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026560	1026837	
==>nterpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	35539	35815	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54873	55149	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55633	55909	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56394	56670	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57156	57432	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57917	58193	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58679	58955	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	337420	337696	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640711	640987	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641475	641751	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655609	655885	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666823	667099	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726044	726320	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726806	727082	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733720	733996	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734484	734760	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738209	738485	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738973	739249	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739750	740026	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740527	740803	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742024	742300	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742789	743065	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743555	743831	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744320	744596	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745086	745362	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752069	752345	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760671	760947	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813255	813531	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862524	862800	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863293	863569	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931893	932169	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932664	932940	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934099	934375	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934874	935150	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936315	936591	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937092	937368	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943894	944170	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944683	944959	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954334	954610	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955125	955401	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009133	1009409	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009897	1010173	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010662	1010938	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011426	1011702	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012191	1012467	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
73	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012960	1013236	
==>nterpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138213	138503	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139109	139399	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140005	140295	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140900	141190	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141796	142086	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142692	142982	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147350	147640	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148291	148581	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149231	149521	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150172	150462	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154916	155206	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155820	156110	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156724	157014	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157629	157919	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158532	158822	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159428	159718	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160325	160615	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161222	161512	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162118	162408	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163015	163305	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163912	164202	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168577	168867	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169519	169809	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170459	170749	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171400	171690	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176156	176446	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177060	177350	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177964	178254	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178869	179159	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179772	180062	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180667	180957	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181563	181853	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182459	182749	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183354	183644	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184250	184540	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185146	185436	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189816	190106	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190757	191047	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191696	191986	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192636	192926	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197385	197675	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198282	198572	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199179	199469	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200075	200365	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200972	201262	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201869	202159	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206544	206834	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207486	207776	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208426	208716	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209367	209657	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215105	215395	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216046	216336	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216985	217275	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217925	218215	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223661	223951	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224603	224893	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225543	225833	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226484	226774	
==>}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
59	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8698	8793	
==>_of_tests_badpass tests of $Test::num_of_tests_run passed unexpectedly");
    }
    $Test::num_o <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138207	138502	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139103	139398	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139999	140294	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140894	141189	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141790	142085	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142686	142981	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147344	147639	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148285	148580	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149225	149520	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150166	150461	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154910	155205	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155814	156109	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156718	157013	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157623	157918	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158526	158821	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159422	159717	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160319	160614	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161216	161511	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162112	162407	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163009	163304	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163906	164201	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168571	168866	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169513	169808	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170453	170748	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171394	171689	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176150	176445	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177054	177349	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177958	178253	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178863	179158	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179766	180061	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180661	180956	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181557	181852	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182453	182748	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183348	183643	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184244	184539	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185140	185435	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189810	190105	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190751	191046	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191690	191985	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192630	192925	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197379	197674	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198276	198571	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199173	199468	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200069	200364	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200966	201261	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201863	202158	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206538	206833	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207480	207775	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208420	208715	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209361	209656	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215099	215394	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216040	216335	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216979	217274	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217919	218214	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223655	223950	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224597	224892	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225537	225832	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
58	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226478	226773	
==>{{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	56	155	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct.pm	119	218	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	52	151	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	59	158	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	52	151	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	50	149	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	54	153	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	52	151	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	52	151	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	56	155	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	53	152	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	53	152	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	54	153	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	51	150	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	59	158	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	56	155	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	51	150	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	56	155	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	58	157	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	52	151	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	53	152	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	54	153	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	54	153	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	53	152	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	58	157	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	55	154	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	53	152	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	57	156	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	58	157	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	54	153	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	55	154	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	52	151	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	48	147	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	57	156	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	52	151	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	57	156	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	59	158	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	51	150	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	54	153	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	52	151	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	55	154	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	54	153	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	51	150	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	54	153	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	53	152	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	57	156	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	54	153	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	53	152	
==>undation.
# This program is free software. It is subject to the same license
# as the Parrot interpr <==
53	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332649	332746	
==>/\n  /* TODO all results from string_to_cstring() need freeing\n     but this generates ugly warni <==
53	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333927	334024	
==>/\n  /* TODO all results from string_to_cstring() need freeing\n     but this generates ugly warni <==
53	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335205	335302	
==>/\n  /* TODO all results from string_to_cstring() need freeing\n     but this generates ugly warni <==
53	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336484	336581	
==>/\n  /* TODO all results from string_to_cstring() need freeing\n     but this generates ugly warni <==
53	/Users/nnunley/parrot/tools/build/pbc2c.pl	7796	7891	
==>undation.
This program is free software. It is subject to the same license
as the Parrot interpr <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684720	685030	
==>\@3}});\n      {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411079	411387	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610333	610641	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611235	611543	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612138	612446	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613044	613352	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773498	773806	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774408	774716	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775318	775626	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776229	776537	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777137	777445	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778046	778354	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778955	779263	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779865	780173	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780773	781081	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781682	781990	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782591	782899	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783501	783809	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784406	784714	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785312	785620	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786222	786530	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787133	787441	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788042	788350	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788952	789260	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789861	790169	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790771	791079	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791677	791985	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792584	792892	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793488	793796	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794393	794701	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795298	795606	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796204	796512	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797107	797415	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798011	798319	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798915	799223	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799820	800128	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800723	801031	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801627	801935	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802531	802839	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803436	803744	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804336	804644	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805237	805545	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806142	806450	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807048	807356	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807952	808260	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808857	809165	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809761	810069	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810666	810974	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811567	811875	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380284	380590	
==>\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
51	/Users/nnunley/parrot/lib/Class/Struct.pm	9798	9898	
==>d on an array, whereas an object of a class created by the
second form is based on a hash. The array- <==
50	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8237	8362	
==>ays have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg = value($reg);

    m <==
50	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7890	8015	
==>ays have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg = value($reg);

    m <==
50	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8679	8804	
==>ays have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg = value($reg);

    m <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	70	172	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct.pm	133	235	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	66	168	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	73	175	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	66	168	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	64	166	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	68	170	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	66	168	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	66	168	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	70	172	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	67	169	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	67	169	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	68	170	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	65	167	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	73	175	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	70	172	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	65	167	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	70	172	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	72	174	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	66	168	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	67	169	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	68	170	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	68	170	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	67	169	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	72	174	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	69	171	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	67	169	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	71	173	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	72	174	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	68	170	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	69	171	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	66	168	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	71	173	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	66	168	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	71	173	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	73	175	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	65	167	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	68	170	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	66	168	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	69	171	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	68	170	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	65	167	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	68	170	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	67	169	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	71	173	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	68	170	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	67	169	
==>is program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /p <==
50	/Users/nnunley/parrot/lib/Text/Balanced.pm	1080	1181	
==>tref) = splice @_, 0, 2;
	my ($extrapos, $extralen) = @_>18 ? splice(@_, -2, 2) : (0,0);
	my ($startle <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	58	157	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct.pm	121	220	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	54	153	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	61	160	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	54	153	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	52	151	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	56	155	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	54	153	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	54	153	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	58	157	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	55	154	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	55	154	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	56	155	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	53	152	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	61	160	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	58	157	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	53	152	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	58	157	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	60	159	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	54	153	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	55	154	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	56	155	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	56	155	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	55	154	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	60	159	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	57	156	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	55	154	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	59	158	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	60	159	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	56	155	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	57	156	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	54	153	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	50	149	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	59	158	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	54	153	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	59	158	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	61	160	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	53	152	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	56	155	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	54	153	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	57	156	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	56	155	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	53	152	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	56	155	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	55	154	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	59	158	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	56	155	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	55	154	
==>dation.
# This program is free software. It is subject to the same license
# as the Parrot interpret <==
50	/Users/nnunley/parrot/tools/build/pbc2c.pl	7798	7893	
==>dation.
This program is free software. It is subject to the same license
as the Parrot interpret <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950647	950953	
==>);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_c <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951607	951913	
==>);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_c <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952567	952873	
==>);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_c <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	103	199	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct.pm	166	262	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	99	195	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	106	202	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	99	195	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	97	193	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	101	197	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	99	195	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	99	195	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	103	199	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	100	196	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	100	196	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	101	197	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	98	194	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	106	202	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	103	199	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	98	194	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	103	199	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	105	201	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	99	195	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	100	196	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	101	197	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	101	197	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	100	196	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	105	201	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	102	198	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	100	196	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	104	200	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	105	201	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	101	197	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	102	198	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	99	195	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	104	200	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	99	195	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	104	200	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	106	202	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	98	194	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	101	197	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	99	195	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	102	198	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	101	197	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	98	194	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	101	197	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	100	196	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	104	200	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	101	197	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	100	196	
==>s subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Ja <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	604370	604646	
==>}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605950	606226	
==>}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606741	607017	
==>}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667603	667879	
==>}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668377	668653	
==>}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669148	669424	
==>}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669920	670196	
==>}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670692	670968	
==>}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671465	671741	
==>}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672234	672510	
==>}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676094	676370	
==>}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676874	677150	
==>}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677651	677927	
==>}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678429	678705	
==>}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679207	679483	
==>}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679986	680262	
==>}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680761	681037	
==>}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037766	1038042	
==>}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038547	1038823	
==>}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688198	688473	
==>}, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688970	689245	
==>}, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83842	84116	
==>}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84748	85022	
==>}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492797	493071	
==>}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493558	493832	
==>}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499532	499806	
==>}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500295	500569	
==>}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663747	664021	
==>}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664519	664793	
==>}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665295	665569	
==>}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666072	666346	
==>}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747350	747624	
==>}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748135	748409	
==>}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748918	749192	
==>}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749702	749976	
==>}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750485	750759	
==>}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752857	753131	
==>}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753644	753918	
==>}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754432	754706	
==>}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755218	755492	
==>}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756005	756279	
==>}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756794	757068	
==>}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757584	757858	
==>}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758356	758630	
==>}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759129	759403	
==>}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759905	760179	
==>}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324766	325039	
==>},{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325559	325832	
==>},{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326349	326622	
==>},{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
50	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1054	1149	
==>LWP::UserAgent->new;
  $ua->agent("pugs-smokeserv-client/" . VERSION);
  $ua->env_proxy;

  my $ <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	604364	604644	
==>{{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605944	606224	
==>{{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606735	607015	
==>{{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667597	667877	
==>{{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668371	668651	
==>{{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669142	669422	
==>{{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669914	670194	
==>{{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670686	670966	
==>{{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671459	671739	
==>{{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672228	672508	
==>{{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676088	676368	
==>{{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676868	677148	
==>{{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677645	677925	
==>{{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678423	678703	
==>{{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679201	679481	
==>{{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679980	680260	
==>{{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680755	681035	
==>{{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037760	1038040	
==>{{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038541	1038821	
==>{{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688192	688471	
==>{{\@1}}, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688964	689243	
==>{{\@1}}, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83836	84114	
==>{{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84742	85020	
==>{{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492791	493069	
==>{{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493552	493830	
==>{{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499526	499804	
==>{{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500289	500567	
==>{{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663741	664019	
==>{{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664513	664791	
==>{{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665289	665567	
==>{{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666066	666344	
==>{{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747344	747622	
==>{{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748129	748407	
==>{{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748912	749190	
==>{{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749696	749974	
==>{{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750479	750757	
==>{{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752851	753129	
==>{{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753638	753916	
==>{{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754426	754704	
==>{{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755212	755490	
==>{{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755999	756277	
==>{{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756788	757066	
==>{{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757578	757856	
==>{{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758350	758628	
==>{{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759123	759401	
==>{{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759899	760177	
==>{{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324760	325037	
==>{{\@1}},{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325553	325830	
==>{{\@1}},{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326343	326620	
==>{{\@1}},{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	57	156	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct.pm	120	219	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	53	152	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	60	159	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	53	152	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	51	150	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	55	154	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	53	152	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	53	152	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	57	156	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	54	153	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	54	153	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	55	154	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	52	151	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	60	159	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	57	156	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	52	151	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	57	156	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	59	158	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	53	152	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	54	153	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	55	154	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	55	154	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	54	153	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	59	158	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	56	155	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	54	153	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	58	157	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	59	158	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	55	154	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	56	155	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	53	152	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	49	148	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	58	157	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	53	152	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	58	157	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	60	159	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	52	151	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	55	154	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	53	152	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	56	155	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	55	154	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	52	151	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	55	154	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	54	153	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	58	157	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	55	154	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	54	153	
==>ndation.
# This program is free software. It is subject to the same license
# as the Parrot interpre <==
49	/Users/nnunley/parrot/tools/build/pbc2c.pl	7797	7892	
==>ndation.
This program is free software. It is subject to the same license
as the Parrot interpre <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	43	154	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct.pm	106	217	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	39	150	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	46	157	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	39	150	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	37	148	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	41	152	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	39	150	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	39	150	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	43	154	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	40	151	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	40	151	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	41	152	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	38	149	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	46	157	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	43	154	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	38	149	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	43	154	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	45	156	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	39	150	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	40	151	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	41	152	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	41	152	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	40	151	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	45	156	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	42	153	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	40	151	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	44	155	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	45	156	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	41	152	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	42	153	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	39	150	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	35	146	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	44	155	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	39	150	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	44	155	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	46	157	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	38	149	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	41	152	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	39	150	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	42	153	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	41	152	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	38	149	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	41	152	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	40	151	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	44	155	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	41	152	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	40	151	
==>, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Parrot interp <==
49	/Users/nnunley/parrot/tools/build/pbc2c.pl	7783	7890	
==>, The Perl Foundation.
This program is free software. It is subject to the same license
as the Parrot interp <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	59	160	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct.pm	122	223	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	55	156	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	62	163	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	55	156	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	53	154	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	57	158	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	55	156	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	55	156	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	59	160	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	56	157	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	56	157	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	57	158	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	54	155	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	62	163	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	59	160	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	54	155	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	59	160	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	61	162	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	55	156	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	56	157	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	57	158	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	57	158	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	56	157	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	61	162	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	58	159	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	56	157	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	60	161	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	61	162	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	57	158	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	58	159	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	55	156	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	51	152	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	60	161	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	55	156	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	60	161	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	62	163	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	54	155	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	57	158	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	55	156	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	58	159	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	57	158	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	54	155	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	57	158	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	56	157	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	60	161	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	57	158	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	56	157	
==>ation.
# This program is free software. It is subject to the same license
# as the Parrot interpreter. <==
49	/Users/nnunley/parrot/tools/build/pbc2c.pl	7799	7896	
==>ation.
This program is free software. It is subject to the same license
as the Parrot interpreter. <==
49	/Users/nnunley/parrot/lib/Pod/Simple.pm	37560	37696	
==>y @section_name = ($2); # might be 0-length
          $ell_content[$j] =  $1;  # might be 0-length

          DEBUG > 3 and
           pr <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	38	138	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct.pm	101	201	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	34	134	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	41	141	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	34	134	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	32	132	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	36	136	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	34	134	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	34	134	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	38	138	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	35	135	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	35	135	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	36	136	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	33	133	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	41	141	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	38	138	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	33	133	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	38	138	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	40	140	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	34	134	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	35	135	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	36	136	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	36	136	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	35	135	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	40	140	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	37	137	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	35	135	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	39	139	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	40	140	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	36	136	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	37	137	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	34	134	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	39	139	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	34	134	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	39	139	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	41	141	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	33	133	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	36	136	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	34	134	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	37	137	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	36	136	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	33	133	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	36	136	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	35	135	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	39	139	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	36	136	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	35	135	
==>-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as t <==
49	/Users/nnunley/parrot/tools/build/pbc2c.pl	7778	7874	
==>-2005, The Perl Foundation.
This program is free software. It is subject to the same license
as t <==
48	/Users/nnunley/parrot/languages/python/pie-thon.pl	28160	28276	
==>_;
    my $ar = temp('P');
    print <<EOC;
	$ar = new PerlHash $cmt
EOC
    push @stack, ["hash", $ar, 'P'];
}
sub R <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	96	194	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct.pm	159	257	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	92	190	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	99	197	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	92	190	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	90	188	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	94	192	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	92	190	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	92	190	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	96	194	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	93	191	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	93	191	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	94	192	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	91	189	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	99	197	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	96	194	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	91	189	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	96	194	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	98	196	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	92	190	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	93	191	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	94	192	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	94	192	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	93	191	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	98	196	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	95	193	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	93	191	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	97	195	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	98	196	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	94	192	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	95	193	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	92	190	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	97	195	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	92	190	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	97	195	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	99	197	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	91	189	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	94	192	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	92	190	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	95	193	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	94	192	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	91	189	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	94	192	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	93	191	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	97	195	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	94	192	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	93	191	
==>e. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/l <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	39	143	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct.pm	102	206	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	35	139	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	42	146	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	35	139	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	33	137	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	37	141	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	35	139	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	35	139	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	39	143	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	36	140	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	36	140	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	37	141	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	34	138	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	42	146	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	39	143	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	34	138	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	39	143	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	41	145	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	35	139	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	36	140	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	37	141	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	37	141	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	36	140	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	41	145	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	38	142	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	36	140	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	40	144	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	41	145	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	37	141	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	38	142	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	35	139	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	40	144	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	35	139	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	40	144	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	42	146	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	34	138	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	37	141	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	35	139	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	38	142	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	37	141	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	34	138	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	37	141	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	36	140	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	40	144	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	37	141	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	36	140	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as the Pa <==
48	/Users/nnunley/parrot/tools/build/pbc2c.pl	7779	7879	
==>2005, The Perl Foundation.
This program is free software. It is subject to the same license
as the Pa <==
48	/Users/nnunley/parrot/languages/dotnet/tools/benchmark.pl	31	131	
==>ose STDERR;

foreach $srm ('Stack', 'Register', 'OptRegister') {
	print "With SRM $srm\n";
	`nmak <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	107	202	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct.pm	170	265	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	103	198	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	110	205	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	103	198	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	101	196	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	105	200	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	103	198	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	103	198	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	107	202	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	104	199	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	104	199	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	105	200	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	102	197	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	110	205	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	107	202	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	102	197	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	107	202	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	109	204	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	103	198	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	104	199	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	105	200	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	105	200	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	104	199	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	109	204	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	106	201	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	104	199	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	108	203	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	109	204	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	105	200	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	106	201	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	103	198	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	108	203	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	103	198	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	108	203	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	110	205	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	102	197	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	105	200	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	103	198	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	106	201	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	105	200	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	102	197	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	105	200	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	104	199	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	108	203	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	105	200	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	104	199	
==>bject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8483	8599	
==>formal_args;

      unless ($self->skip_close_paren) {
        while (1) {
          my $arg_type  = Jako::Construct: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	87	188	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct.pm	150	251	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	83	184	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	90	191	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	83	184	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	81	182	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	85	186	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	83	184	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	83	184	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	87	188	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	84	185	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	84	185	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	85	186	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	82	183	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	90	191	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	87	188	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	82	183	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	87	188	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	89	190	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	83	184	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	84	185	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	85	186	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	85	186	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	84	185	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	89	190	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	86	187	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	84	185	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	88	189	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	89	190	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	85	186	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	86	187	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	83	184	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	88	189	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	83	184	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	88	189	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	90	191	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	82	183	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	85	186	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	83	184	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	86	187	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	85	186	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	82	183	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	85	186	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	84	185	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	88	189	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	85	186	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	84	185	
==>e software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/ <==
48	/Users/nnunley/parrot/lib/Pod/Simple.pm	17383	17493	
==>em 1.", "=item    123412"
    
    $para->[1]{'~orig_content'} = $content;
    $para->[1]{'number'} = $1;  # Ye <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	62	169	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct.pm	125	232	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	58	165	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	65	172	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	58	165	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	56	163	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	60	167	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	58	165	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	58	165	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	62	169	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	59	166	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	59	166	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	60	167	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	57	164	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	65	172	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	62	169	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	57	164	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	62	169	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	64	171	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	58	165	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	59	166	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	60	167	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	60	167	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	59	166	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	64	171	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	61	168	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	59	166	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	63	170	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	64	171	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	60	167	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	61	168	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	58	165	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	54	161	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	63	170	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	58	165	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	63	170	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	65	172	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	57	164	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	60	167	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	58	165	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	61	168	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	60	167	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	57	164	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	60	167	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	59	166	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	63	170	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	60	167	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	59	166	
==>on.
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: <==
48	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	11129	11219	
==>=head2 BLOCK->compile(COMPILER, FILTER)

Compile the block's content using COMPILER. If FIL <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684721	685031	
==>@3}});\n      {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610334	610642	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611236	611544	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612139	612447	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613045	613353	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773499	773807	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774409	774717	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775319	775627	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776230	776538	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777138	777446	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778047	778355	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778956	779264	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779866	780174	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780774	781082	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781683	781991	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782592	782900	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783502	783810	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784407	784715	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785313	785621	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786223	786531	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787134	787442	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788043	788351	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788953	789261	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789862	790170	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790772	791080	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791678	791986	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792585	792893	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793489	793797	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794394	794702	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795299	795607	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796205	796513	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797108	797416	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798012	798320	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798916	799224	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799821	800129	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800724	801032	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801628	801936	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802532	802840	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803437	803745	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804337	804645	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805238	805546	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806143	806451	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807049	807357	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807953	808261	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808858	809166	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809762	810070	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810667	810975	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
48	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811568	811876	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684690	684960	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n      {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685585	685855	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n      {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611205	611473	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612108	612376	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613014	613282	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613921	614189	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773468	773736	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774378	774646	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775288	775556	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776199	776467	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777107	777375	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778016	778284	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778925	779193	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779835	780103	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780743	781011	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781652	781920	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782561	782829	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783471	783739	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784376	784644	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785282	785550	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793458	793726	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794363	794631	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795268	795536	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796174	796442	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797077	797345	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797981	798249	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798885	799153	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799790	800058	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800693	800961	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801597	801865	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802501	802769	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803406	803674	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804306	804574	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805207	805475	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039378	1039646	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040270	1040538	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041162	1041430	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042055	1042323	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042951	1043219	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043848	1044116	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044741	1045009	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045635	1045903	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046529	1046797	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047424	1047692	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563972	564238	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564870	565136	
==>erpreter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	815169	815410	
==>{\@1}} = PMCNULL;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684695	684965	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n      {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685590	685860	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n      {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611210	611478	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612113	612381	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613019	613287	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613926	614194	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773473	773741	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774383	774651	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775293	775561	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776204	776472	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777112	777380	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778021	778289	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778930	779198	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779840	780108	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780748	781016	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781657	781925	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782566	782834	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783476	783744	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784381	784649	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785287	785555	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793463	793731	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794368	794636	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795273	795541	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796179	796447	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797082	797350	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797986	798254	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798890	799158	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799795	800063	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800698	800966	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801602	801870	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802506	802774	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803411	803679	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804311	804579	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805212	805480	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039383	1039651	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040275	1040543	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041167	1041435	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042060	1042328	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042956	1043224	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043853	1044121	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044746	1045014	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045640	1045908	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046534	1046802	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047429	1047697	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563977	564243	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564875	565141	
==>ter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
47	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34565	34663	
==>ookahead"} ? '$text = $_savetext;' : '')
			    .($::RD_NO_TRACE?'':'
			Parse::RecDescent::_trace( <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	105	201	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct.pm	168	264	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	101	197	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	108	204	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	101	197	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	99	195	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	103	199	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	101	197	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	101	197	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	105	201	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	102	198	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	102	198	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	103	199	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	100	196	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	108	204	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	105	201	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	100	196	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	105	201	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	107	203	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	101	197	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	102	198	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	103	199	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	103	199	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	102	198	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	107	203	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	104	200	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	102	198	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	106	202	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	107	203	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	103	199	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	104	200	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	101	197	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	106	202	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	101	197	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	106	202	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	108	204	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	100	196	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	103	199	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	101	197	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	104	200	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	103	199	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	100	196	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	103	199	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	102	198	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	106	202	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	103	199	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	102	198	
==>subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	69	171	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct.pm	132	234	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	65	167	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	72	174	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	65	167	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	63	165	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	67	169	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	65	167	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	65	167	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	69	171	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	66	168	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	66	168	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	67	169	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	64	166	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	72	174	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	69	171	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	64	166	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	69	171	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	71	173	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	65	167	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	66	168	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	67	169	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	67	169	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	66	168	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	71	173	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	68	170	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	66	168	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	70	172	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	71	173	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	67	169	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	68	170	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	65	167	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	70	172	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	65	167	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	70	172	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	72	174	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	64	166	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	67	169	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	65	167	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	68	170	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	67	169	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	64	166	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	67	169	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	66	168	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	70	172	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	67	169	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	66	168	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: / <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	97	198	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct.pm	160	261	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	93	194	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	100	201	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	93	194	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	91	192	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	95	196	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	93	194	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	93	194	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	97	198	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	94	195	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	94	195	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	95	196	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	92	193	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	100	201	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	97	198	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	92	193	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	97	198	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	99	200	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	93	194	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	94	195	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	95	196	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	95	196	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	94	195	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	99	200	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	96	197	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	94	195	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	98	199	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	99	200	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	95	196	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	96	197	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	93	194	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	98	199	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	93	194	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	98	199	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	100	201	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	92	193	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	95	196	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	93	194	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	96	197	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	95	196	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	92	193	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	95	196	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	94	195	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	98	199	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	95	196	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	94	195	
==>. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/J <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	71	185	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct.pm	134	248	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	67	181	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	74	188	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	67	181	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	65	179	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	69	183	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	67	181	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	67	181	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	71	185	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	68	182	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	68	182	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	69	183	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	66	180	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	74	188	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	71	185	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	66	180	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	71	185	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	73	187	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	67	181	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	68	182	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	69	183	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	69	183	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	68	182	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	73	187	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	70	184	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	68	182	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	72	186	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	73	187	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	69	183	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	70	184	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	67	181	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	72	186	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	67	181	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	72	186	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	74	188	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	66	180	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	69	183	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	67	181	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	70	184	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	69	183	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	66	180	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	69	183	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	68	182	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	72	186	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	69	183	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	68	182	
==>s program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languag <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	91	193	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct.pm	154	256	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	87	189	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	94	196	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	87	189	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	85	187	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	89	191	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	87	189	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	87	189	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	91	193	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	88	190	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	88	190	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	89	191	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	86	188	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	94	196	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	91	193	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	86	188	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	91	193	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	93	195	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	87	189	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	88	190	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	89	191	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	89	191	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	88	190	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	93	195	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	90	192	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	88	190	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	92	194	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	93	195	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	89	191	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	90	192	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	87	189	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	92	194	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	87	189	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	92	194	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	94	196	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	86	188	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	89	191	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	87	189	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	90	192	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	89	191	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	86	188	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	89	191	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	88	190	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	92	194	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	89	191	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
47	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	88	190	
==>ftware. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/ <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684696	684997	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n      {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685591	685892	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n      {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611211	611510	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612114	612413	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613020	613319	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773474	773773	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774384	774683	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775294	775593	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776205	776504	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777113	777412	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778022	778321	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778931	779230	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779841	780140	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780749	781048	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781658	781957	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782567	782866	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783477	783776	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784382	784681	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785288	785587	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793464	793763	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794369	794668	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795274	795573	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796180	796479	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797083	797382	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797987	798286	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798891	799190	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799796	800095	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800699	800998	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801603	801902	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802507	802806	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803412	803711	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804312	804611	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805213	805512	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039384	1039683	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040276	1040575	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041168	1041467	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042061	1042360	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042957	1043256	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043854	1044153	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044747	1045046	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045641	1045940	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046535	1046834	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563978	564275	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564876	565173	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613927	614224	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047430	1047727	
==>er, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684686	684949	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n      {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685581	685844	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n      {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611201	611462	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612104	612365	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613010	613271	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613917	614178	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773464	773725	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774374	774635	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775284	775545	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776195	776456	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777103	777364	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778012	778273	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778921	779182	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779831	780092	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780739	781000	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781648	781909	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782557	782818	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783467	783728	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784372	784633	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785278	785539	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793454	793715	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794359	794620	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795264	795525	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796170	796431	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797073	797334	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797977	798238	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798881	799142	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799786	800047	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800689	800950	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801593	801854	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802497	802758	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803402	803663	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804302	804563	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805203	805464	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039374	1039635	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040266	1040527	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041158	1041419	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042051	1042312	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042947	1043208	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043844	1044105	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044737	1044998	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045631	1045892	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046525	1046786	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047420	1047681	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563968	564227	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564866	565125	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684691	684964	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n      {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685586	685859	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n      {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611206	611477	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612109	612380	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613015	613286	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613922	614193	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773469	773740	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774379	774650	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775289	775560	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776200	776471	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777108	777379	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778017	778288	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778926	779197	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779836	780107	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780744	781015	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781653	781924	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782562	782833	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783472	783743	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784377	784648	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785283	785554	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793459	793730	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794364	794635	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795269	795540	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796175	796446	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797078	797349	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797982	798253	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798886	799157	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799791	800062	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800694	800965	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801598	801869	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802502	802773	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803407	803678	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804307	804578	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805208	805479	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039379	1039650	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040271	1040542	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041163	1041434	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042056	1042327	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042952	1043223	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043849	1044120	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044742	1045013	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045636	1045907	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046530	1046801	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047425	1047696	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563973	564242	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564871	565140	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
46	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814349	814559	
==>line",
                  "CODE" => 919,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 562 \"src/ops/set.ops\"\n  {{\@1}} = 0;\n <==
46	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	3268	3414	
==>= "  if argc > $max goto bad_args\n"
            if $max;
    }
    
    return $code;
}

sub helpers {
    my (@args) = @_;
    
    # types prese <==
45	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1329	1431	
==>', YYDEBUG => '');
#Mandatory parameters
my(@params)=('LEX','RULES','STATES');

sub new {
    my($ <==
45	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1285	1382	
==>', YYDEBUG => '');
#Mandatory parameters
my(@params)=('LEX','RULES','STATES');

sub new {
    my($ <==
45	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	21	117	
==>opyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to th <==
45	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct.pm	84	180	
==>opyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to th <==
45	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	17	113	
==>opyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to th <==
45	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	24	120	
==>opyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to th <==
45	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	17	113	
==>opyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to th <==
45	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	15	111	
==>opyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to th <==
45	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	19	115	
==>opyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to th <==
45	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	17	113	
==>opyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to th <==
45	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	21	117	
==>opyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to th <==
45	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	18	114	
==>opyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to th <==
45	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	18	114	
==>opyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to th <==
45	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	16	112	
==>opyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to th <==
45	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	24	120	
==>opyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to th <==
45	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	21	117	
==>opyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to th <==
45	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	16	112	
==>opyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to th <==
45	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	21	117	
==>opyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to th <==
45	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	23	119	
==>opyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to th <==
45	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	17	113	
==>opyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to th <==
45	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	18	114	
==>opyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to th <==
45	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	19	115	
==>opyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to th <==
45	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	19	115	
==>opyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to th <==
45	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	18	114	
==>opyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to th <==
45	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	23	119	
==>opyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to th <==
45	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	20	116	
==>opyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to th <==
45	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	18	114	
==>opyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to th <==
45	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	22	118	
==>opyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to th <==
45	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	23	119	
==>opyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to th <==
45	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	19	115	
==>opyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to th <==
45	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	20	116	
==>opyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to th <==
45	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	17	113	
==>opyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to th <==
45	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	22	118	
==>opyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to th <==
45	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	17	113	
==>opyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to th <==
45	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	22	118	
==>opyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to th <==
45	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	24	120	
==>opyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to th <==
45	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	16	112	
==>opyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to th <==
45	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	19	115	
==>opyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to th <==
45	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	17	113	
==>opyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to th <==
45	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	20	116	
==>opyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to th <==
45	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	19	115	
==>opyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to th <==
45	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	16	112	
==>opyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to th <==
45	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	19	115	
==>opyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to th <==
45	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	22	118	
==>opyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to th <==
45	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	19	115	
==>opyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to th <==
45	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	604362	604637	
==>, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
45	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605942	606217	
==>, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
45	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606733	607008	
==>, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
45	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667595	667870	
==>, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
45	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668369	668644	
==>, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
45	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669140	669415	
==>, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
45	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669912	670187	
==>, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
45	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670684	670959	
==>, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
45	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671457	671732	
==>, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
45	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672226	672501	
==>, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
45	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676086	676361	
==>, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
45	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676866	677141	
==>, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
45	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677643	677918	
==>, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
45	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678421	678696	
==>, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
45	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679199	679474	
==>, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
45	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679978	680253	
==>, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
45	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680753	681028	
==>, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
45	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037758	1038033	
==>, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
45	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038539	1038814	
==>, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
45	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688190	688464	
==>, {{\@1}}, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
45	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688962	689236	
==>, {{\@1}}, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
45	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83834	84107	
==>, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
45	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84740	85013	
==>, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
45	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663739	664012	
==>, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
45	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664511	664784	
==>, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
45	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665287	665560	
==>, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
45	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666064	666337	
==>, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
45	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747342	747615	
==>, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
45	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748127	748400	
==>, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
45	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748910	749183	
==>, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
45	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749694	749967	
==>, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
45	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750477	750750	
==>, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
45	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752849	753122	
==>, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
45	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753636	753909	
==>, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
45	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754424	754697	
==>, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
45	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755210	755483	
==>, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
45	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755997	756270	
==>, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
45	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756786	757059	
==>, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
45	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757576	757849	
==>, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
45	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758348	758621	
==>, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
45	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759121	759394	
==>, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
45	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759897	760170	
==>, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
45	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324758	325030	
==>, {{\@1}},{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
45	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325551	325823	
==>, {{\@1}},{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
45	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326341	326613	
==>, {{\@1}},{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
44	/Users/nnunley/parrot/tools/dev/gen_class.pl	569	665	
==>.

	% perl tools/dev/gen_class.pl Foo > src/pmc/foo.pmc
	% perl tools/build/pmc2c.pl -c src/pm <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107811	108044	
==>ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 167 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} | {{\@3 <==
44	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	15721	15831	
==>', 'branch marker' ]);

    for my $i (0..$#args-1) {
        push @ops, aop('eq', [ '<tmp>', $i, $ibacks[$i] ] <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct.pm	180	273	
==>he same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construc <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	113	206	
==>he same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construc <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	120	213	
==>he same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construc <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	113	206	
==>he same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construc <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	111	204	
==>he same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construc <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	115	208	
==>he same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construc <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	113	206	
==>he same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construc <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	113	206	
==>he same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construc <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	117	210	
==>he same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construc <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	114	207	
==>he same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construc <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	114	207	
==>he same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construc <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	115	208	
==>he same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construc <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	112	205	
==>he same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construc <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	120	213	
==>he same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construc <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	117	210	
==>he same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construc <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	112	205	
==>he same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construc <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	117	210	
==>he same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construc <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	119	212	
==>he same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construc <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	113	206	
==>he same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construc <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	114	207	
==>he same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construc <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	115	208	
==>he same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construc <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	115	208	
==>he same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construc <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	114	207	
==>he same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construc <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	119	212	
==>he same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construc <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	116	209	
==>he same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construc <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	114	207	
==>he same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construc <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	118	211	
==>he same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construc <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	119	212	
==>he same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construc <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	115	208	
==>he same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construc <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	116	209	
==>he same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construc <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	113	206	
==>he same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construc <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	118	211	
==>he same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construc <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	113	206	
==>he same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construc <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	118	211	
==>he same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construc <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	120	213	
==>he same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construc <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	112	205	
==>he same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construc <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	115	208	
==>he same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construc <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	113	206	
==>he same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construc <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	116	209	
==>he same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construc <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	115	208	
==>he same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construc <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	112	205	
==>he same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construc <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	115	208	
==>he same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construc <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138205	138476	
==>= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139101	139372	
==>= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139997	140268	
==>= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140892	141163	
==>= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141788	142059	
==>= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142684	142955	
==>= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147342	147613	
==>= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148283	148554	
==>= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149223	149494	
==>= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150164	150435	
==>= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154908	155179	
==>= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155812	156083	
==>= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156716	156987	
==>= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157621	157892	
==>= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158524	158795	
==>= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159420	159691	
==>= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160317	160588	
==>= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161214	161485	
==>= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162110	162381	
==>= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163007	163278	
==>= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163904	164175	
==>= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168569	168840	
==>= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169511	169782	
==>= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170451	170722	
==>= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171392	171663	
==>= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176148	176419	
==>= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177052	177323	
==>= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177956	178227	
==>= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178861	179132	
==>= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179764	180035	
==>= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197377	197648	
==>= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198274	198545	
==>= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199171	199442	
==>= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200067	200338	
==>= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200964	201235	
==>= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201861	202132	
==>= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206536	206807	
==>= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207478	207749	
==>= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208418	208689	
==>= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209359	209630	
==>= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223653	223924	
==>= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224595	224866	
==>= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225535	225806	
==>= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226476	226747	
==>= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
44	/Users/nnunley/parrot/languages/dotnet/Configure.pl	1732	1830	
==>in makefile template.
	my $fh;
	open $fh, "< config/Makefile.in" or die "Unable to open config/Ma <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	22	118	
==>pyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct.pm	85	181	
==>pyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	18	114	
==>pyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	25	121	
==>pyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	18	114	
==>pyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	16	112	
==>pyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	20	116	
==>pyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	18	114	
==>pyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	22	118	
==>pyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	19	115	
==>pyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	19	115	
==>pyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	17	113	
==>pyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	25	121	
==>pyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	22	118	
==>pyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	17	113	
==>pyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	22	118	
==>pyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	24	120	
==>pyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	18	114	
==>pyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	19	115	
==>pyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	20	116	
==>pyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	20	116	
==>pyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	19	115	
==>pyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	24	120	
==>pyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	21	117	
==>pyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	19	115	
==>pyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	23	119	
==>pyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	24	120	
==>pyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	20	116	
==>pyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	21	117	
==>pyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	18	114	
==>pyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	23	119	
==>pyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	18	114	
==>pyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	23	119	
==>pyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	25	121	
==>pyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	17	113	
==>pyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	20	116	
==>pyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	18	114	
==>pyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	21	117	
==>pyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	20	116	
==>pyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	17	113	
==>pyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	20	116	
==>pyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	23	119	
==>pyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	20	116	
==>pyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913046	913366	
==>2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914057	914377	
==>2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915068	915388	
==>2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916080	916400	
==>2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917091	917411	
==>2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918103	918423	
==>2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919115	919435	
==>2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920128	920448	
==>2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87481	87799	
==>2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88483	88801	
==>2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340282	340600	
==>2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341281	341599	
==>2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342280	342598	
==>2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343280	343598	
==>2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692936	693254	
==>2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693936	694254	
==>2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694936	695254	
==>2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695937	696255	
==>2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696937	697255	
==>2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697938	698256	
==>2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698939	699257	
==>2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699941	700259	
==>2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700931	701249	
==>2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701922	702240	
==>2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702913	703231	
==>2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703905	704223	
==>2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704896	705214	
==>2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705888	706206	
==>2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706880	707198	
==>2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	707873	708191	
==>2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905392	905710	
==>2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906411	906729	
==>2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907430	907748	
==>2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908450	908768	
==>2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964943	965261	
==>2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965951	966269	
==>2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966959	967277	
==>2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967968	968286	
==>2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968976	969294	
==>2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969985	970303	
==>2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970994	971312	
==>2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	972004	972322	
==>2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966774	966941	
==>c",
                              "i"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass( <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967783	967950	
==>c",
                              "i"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass( <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773520	773843	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":ba <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774430	774753	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":ba <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775340	775663	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":ba <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776251	776574	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":ba <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777159	777482	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":ba <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778068	778391	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":ba <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778977	779300	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":ba <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779887	780210	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":ba <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780795	781118	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":ba <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781704	782027	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":ba <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782613	782936	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":ba <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783523	783846	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":ba <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784428	784751	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":ba <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785334	785657	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":ba <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786244	786567	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":ba <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787155	787478	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":ba <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788064	788387	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":ba <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788974	789297	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":ba <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789883	790206	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":ba <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790793	791116	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":ba <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791699	792022	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":ba <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792606	792929	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":ba <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793510	793833	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":ba <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794415	794738	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":ba <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795320	795643	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":ba <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796226	796549	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":ba <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797129	797452	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":ba <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798033	798356	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":ba <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798937	799260	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":ba <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799842	800165	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":ba <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800745	801068	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":ba <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801649	801972	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":ba <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802553	802876	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":ba <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803458	803781	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":ba <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804358	804681	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":ba <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805259	805582	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":ba <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806164	806487	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":ba <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807070	807393	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":ba <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807974	808297	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":ba <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808879	809202	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":ba <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809783	810106	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":ba <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810688	811011	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":ba <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811589	811912	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":ba <==
44	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	20617	20725	
==>,
	[#Rule 21
		 '@1-1', 0,
sub
#line 132 "lib/Regex/Grammar.y"
{ ++$::paren }
	],
	[#Rule 22
		 'expr', 4,
su <==
44	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	35001	35118	
==>stypes\n";
		}
        if ($rule->{'code'} eq '45') {
            $pir .= <<'PIRCODE';
i = elements P_arg_0
SS_PROP_LO <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	31	129	
==>C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct.pm	94	192	
==>C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	27	125	
==>C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	34	132	
==>C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	27	125	
==>C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	25	123	
==>C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	29	127	
==>C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	27	125	
==>C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	31	129	
==>C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	28	126	
==>C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	28	126	
==>C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	26	124	
==>C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	34	132	
==>C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	31	129	
==>C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	26	124	
==>C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	31	129	
==>C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	33	131	
==>C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	27	125	
==>C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	28	126	
==>C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	29	127	
==>C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	29	127	
==>C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	28	126	
==>C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	33	131	
==>C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	30	128	
==>C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	28	126	
==>C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	32	130	
==>C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	33	131	
==>C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	29	127	
==>C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	30	128	
==>C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	27	125	
==>C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	32	130	
==>C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	27	125	
==>C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	32	130	
==>C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	34	132	
==>C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	26	124	
==>C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	29	127	
==>C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	27	125	
==>C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	30	128	
==>C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	29	127	
==>C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	26	124	
==>C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	29	127	
==>C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	32	130	
==>C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
44	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	29	127	
==>C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773551	773873	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "A <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774461	774783	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "A <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775371	775693	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "A <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776282	776604	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "A <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777190	777512	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "A <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778099	778421	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "A <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779008	779330	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "A <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779918	780240	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "A <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780826	781148	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "A <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781735	782057	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "A <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782644	782966	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "A <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783554	783876	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "A <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784459	784781	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "A <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785365	785687	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "A <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786275	786597	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "A <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787186	787508	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "A <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788095	788417	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "A <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789005	789327	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "A <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789914	790236	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "A <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790824	791146	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "A <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791730	792052	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "A <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792637	792959	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "A <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793541	793863	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "A <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794446	794768	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "A <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795351	795673	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "A <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796257	796579	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "A <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797160	797482	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "A <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798064	798386	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "A <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798968	799290	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "A <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799873	800195	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "A <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800776	801098	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "A <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801680	802002	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "A <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802584	802906	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "A <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803489	803811	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "A <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804389	804711	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "A <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805290	805612	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "A <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806195	806517	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "A <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807101	807423	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "A <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808005	808327	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "A <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808910	809232	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "A <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809814	810136	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "A <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810719	811041	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "A <==
44	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811620	811942	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "A <==
44	/Users/nnunley/parrot/lib/Parrot/Op.pm	1548	1654	
==>stant (in-line).
    nc  The argument is a number constant index.
    pc  The argument is a PMC constant in <==
43	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	53967	54099	
==>0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 65
		 'exp', 3,
sub
#line 369 "Lua\lua51.yp"
{
            BuildRelop( $_[0] <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	212	309	
==>pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct.pm	276	373	
==>pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	220	317	
==>pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	234	331	
==>pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	232	329	
==>pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	228	325	
==>pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	236	333	
==>pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	220	317	
==>pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	220	317	
==>pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	233	330	
==>pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	227	324	
==>pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	227	324	
==>pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	224	321	
==>pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	218	315	
==>pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	228	325	
==>pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	234	331	
==>pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	224	321	
==>pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	234	331	
==>pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	226	323	
==>pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	225	322	
==>pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	227	324	
==>pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	229	326	
==>pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	229	326	
==>pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	227	324	
==>pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	237	334	
==>pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	216	313	
==>pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	224	321	
==>pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	236	333	
==>pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	228	325	
==>pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	230	327	
==>pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	224	321	
==>pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	234	331	
==>pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	224	321	
==>pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	234	331	
==>pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	238	335	
==>pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	222	319	
==>pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	228	325	
==>pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	214	311	
==>pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	225	322	
==>pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	223	320	
==>pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	217	314	
==>pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	223	320	
==>pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	34	136	
==>2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct.pm	97	199	
==>2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	30	132	
==>2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	37	139	
==>2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	30	132	
==>2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	28	130	
==>2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	32	134	
==>2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	30	132	
==>2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	34	136	
==>2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	31	133	
==>2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	31	133	
==>2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	29	131	
==>2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	37	139	
==>2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	34	136	
==>2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	29	131	
==>2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	34	136	
==>2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	36	138	
==>2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	30	132	
==>2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	31	133	
==>2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	32	134	
==>2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	32	134	
==>2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	31	133	
==>2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	36	138	
==>2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	33	135	
==>2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	31	133	
==>2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	35	137	
==>2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	36	138	
==>2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	32	134	
==>2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	33	135	
==>2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	30	132	
==>2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	35	137	
==>2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	30	132	
==>2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	35	137	
==>2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	37	139	
==>2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	29	131	
==>2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	32	134	
==>2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	30	132	
==>2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	33	135	
==>2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	32	134	
==>2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	29	131	
==>2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	32	134	
==>2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	35	137	
==>2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	32	134	
==>2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
43	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40875	41008	
==>=> 57
		}
	},
	{#State 171
		DEFAULT => -103
	},
	{#State 172
		DEFAULT => -101
	},
	{#State 173
		ACTIONS => {
			")" => 1 <==
43	/Users/nnunley/parrot/lib/Text/Balanced.pm	51356	51477	
==>ut there's a problem.

A deferred action like this:

                        <defer: {if ($count>10) {$count--}} >

will b <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913045	913365	
==>@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914056	914376	
==>@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915067	915387	
==>@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916079	916399	
==>@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917090	917410	
==>@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918102	918422	
==>@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919114	919434	
==>@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920127	920447	
==>@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87480	87798	
==>@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88482	88800	
==>@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340281	340599	
==>@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341280	341598	
==>@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342279	342597	
==>@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343279	343597	
==>@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692935	693253	
==>@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693935	694253	
==>@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694935	695253	
==>@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695936	696254	
==>@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696936	697254	
==>@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697937	698255	
==>@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698938	699256	
==>@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699940	700258	
==>@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700930	701248	
==>@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701921	702239	
==>@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702912	703230	
==>@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703904	704222	
==>@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704895	705213	
==>@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705887	706205	
==>@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706879	707197	
==>@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	707872	708190	
==>@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905391	905709	
==>@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906410	906728	
==>@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907429	907747	
==>@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908449	908767	
==>@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964942	965260	
==>@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965950	966268	
==>@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966958	967276	
==>@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967967	968285	
==>@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968975	969293	
==>@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969984	970302	
==>@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970993	971311	
==>@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	972003	972321	
==>@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
43	/Users/nnunley/parrot/tools/build/nativecall.pl	14099	14266	
==>l_assign" =~ /return_data/ ?
                              qq{$ret_type_decl return_data;} :
                              q{};

    if (length $params) {
        my $p <==
43	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3231	3330	
==>:DEBUG () { $debug_level }
  use Pod::Simple ();

=head1 SEE ALSO

L<Pod::Simple>

The article "Cons <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct.pm	174	270	
==>t to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Const <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	107	203	
==>t to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Const <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	114	210	
==>t to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Const <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	107	203	
==>t to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Const <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	105	201	
==>t to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Const <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	109	205	
==>t to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Const <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	107	203	
==>t to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Const <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	107	203	
==>t to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Const <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	111	207	
==>t to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Const <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	108	204	
==>t to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Const <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	108	204	
==>t to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Const <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	109	205	
==>t to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Const <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	106	202	
==>t to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Const <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	114	210	
==>t to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Const <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	111	207	
==>t to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Const <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	106	202	
==>t to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Const <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	111	207	
==>t to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Const <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	113	209	
==>t to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Const <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	107	203	
==>t to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Const <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	108	204	
==>t to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Const <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	109	205	
==>t to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Const <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	109	205	
==>t to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Const <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	108	204	
==>t to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Const <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	113	209	
==>t to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Const <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	110	206	
==>t to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Const <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	108	204	
==>t to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Const <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	112	208	
==>t to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Const <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	113	209	
==>t to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Const <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	109	205	
==>t to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Const <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	110	206	
==>t to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Const <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	107	203	
==>t to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Const <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	112	208	
==>t to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Const <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	107	203	
==>t to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Const <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	112	208	
==>t to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Const <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	114	210	
==>t to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Const <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	106	202	
==>t to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Const <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	109	205	
==>t to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Const <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	107	203	
==>t to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Const <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	110	206	
==>t to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Const <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	109	205	
==>t to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Const <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	106	202	
==>t to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Const <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	109	205	
==>t to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Const <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913054	913394	
==>@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914065	914405	
==>@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915076	915416	
==>@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916088	916428	
==>@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917099	917439	
==>@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918111	918451	
==>@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919123	919463	
==>@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920136	920476	
==>@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87489	87827	
==>@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88491	88829	
==>@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340290	340628	
==>@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341289	341627	
==>@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342288	342626	
==>@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343288	343626	
==>@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692944	693282	
==>@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693944	694282	
==>@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694944	695282	
==>@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695945	696283	
==>@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696945	697283	
==>@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697946	698284	
==>@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698947	699285	
==>@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699949	700287	
==>@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700939	701277	
==>@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701930	702268	
==>@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702921	703259	
==>@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703913	704251	
==>@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704904	705242	
==>@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705896	706234	
==>@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706888	707226	
==>@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	707881	708219	
==>@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905400	905738	
==>@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906419	906757	
==>@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907438	907776	
==>@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908458	908796	
==>@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964951	965289	
==>@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965959	966297	
==>@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966967	967305	
==>@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967976	968314	
==>@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968984	969322	
==>@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969993	970331	
==>@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971002	971340	
==>@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	972012	972350	
==>@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
43	/Users/nnunley/parrot/lib/Text/Balanced.pm	17800	17899	
==>msg q{No quotelike operator found after prefix at "} .
			     substr($$textref, pos($$textref), 20) <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	604350	604605	
==>(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605930	606185	
==>(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606721	606976	
==>(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667583	667838	
==>(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668357	668612	
==>(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669128	669383	
==>(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669900	670155	
==>(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670672	670927	
==>(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671445	671700	
==>(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672214	672469	
==>(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676074	676329	
==>(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676854	677109	
==>(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677631	677886	
==>(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678409	678664	
==>(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679187	679442	
==>(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679966	680221	
==>(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680741	680996	
==>(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688178	688432	
==>(interpreter, {{\@1}}, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688950	689204	
==>(interpreter, {{\@1}}, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663727	663980	
==>(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664499	664752	
==>(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665275	665528	
==>(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666052	666305	
==>(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747330	747583	
==>(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748115	748368	
==>(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748898	749151	
==>(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749682	749935	
==>(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750465	750718	
==>(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752837	753090	
==>(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753624	753877	
==>(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754412	754665	
==>(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755198	755451	
==>(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755985	756238	
==>(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756774	757027	
==>(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757564	757817	
==>(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758336	758589	
==>(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759109	759362	
==>(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759885	760138	
==>(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324746	324998	
==>(interpreter, {{\@1}},{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325539	325791	
==>(interpreter, {{\@1}},{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326329	326581	
==>(interpreter, {{\@1}},{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
43	/Users/nnunley/parrot/tools/build/nativecall.pl	11196	11304	
==>ref}, "short t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = (short)GET_NCI_I( <==
43	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2074	2159	
==>d\\li#rtfindent#\\s31\\keepn\\sb90\\sa180\\f2\\fs#head1_halfpoint_size#\\ul{\n",
 '/he <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773500	773842	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":b <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774410	774752	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":b <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775320	775662	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":b <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776231	776573	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":b <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777139	777481	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":b <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778048	778390	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":b <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778957	779299	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":b <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779867	780209	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":b <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780775	781117	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":b <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781684	782026	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":b <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782593	782935	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":b <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783503	783845	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":b <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784408	784750	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":b <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785314	785656	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":b <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786224	786566	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":b <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787135	787477	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":b <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788044	788386	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":b <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788954	789296	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":b <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789863	790205	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":b <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790773	791115	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":b <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791679	792021	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":b <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792586	792928	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":b <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793490	793832	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":b <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794395	794737	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":b <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795300	795642	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":b <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796206	796548	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":b <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797109	797451	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":b <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798013	798355	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":b <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798917	799259	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":b <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799822	800164	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":b <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800725	801067	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":b <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801629	801971	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":b <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802533	802875	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":b <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803438	803780	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":b <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804338	804680	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":b <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805239	805581	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":b <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806144	806486	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":b <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807050	807392	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":b <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807954	808296	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":b <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808859	809201	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":b <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809763	810105	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":b <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810668	811010	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":b <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811569	811911	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":b <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	23	127	
==>yright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same lic <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct.pm	86	190	
==>yright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same lic <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	19	123	
==>yright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same lic <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	26	130	
==>yright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same lic <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	19	123	
==>yright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same lic <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	17	121	
==>yright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same lic <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	21	125	
==>yright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same lic <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	19	123	
==>yright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same lic <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	23	127	
==>yright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same lic <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	20	124	
==>yright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same lic <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	20	124	
==>yright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same lic <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	18	122	
==>yright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same lic <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	26	130	
==>yright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same lic <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	23	127	
==>yright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same lic <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	18	122	
==>yright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same lic <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	23	127	
==>yright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same lic <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	25	129	
==>yright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same lic <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	19	123	
==>yright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same lic <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	20	124	
==>yright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same lic <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	21	125	
==>yright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same lic <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	21	125	
==>yright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same lic <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	20	124	
==>yright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same lic <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	25	129	
==>yright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same lic <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	22	126	
==>yright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same lic <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	20	124	
==>yright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same lic <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	24	128	
==>yright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same lic <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	25	129	
==>yright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same lic <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	21	125	
==>yright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same lic <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	22	126	
==>yright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same lic <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	19	123	
==>yright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same lic <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	24	128	
==>yright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same lic <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	19	123	
==>yright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same lic <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	24	128	
==>yright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same lic <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	26	130	
==>yright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same lic <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	18	122	
==>yright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same lic <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	21	125	
==>yright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same lic <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	19	123	
==>yright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same lic <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	22	126	
==>yright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same lic <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	21	125	
==>yright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same lic <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	18	122	
==>yright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same lic <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	21	125	
==>yright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same lic <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	24	128	
==>yright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same lic <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	21	125	
==>yright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to the same lic <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct.pm	83	179	
==>Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to t <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773521	773872	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774431	774782	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775341	775692	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776252	776603	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777160	777511	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778069	778420	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778978	779329	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779888	780239	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780796	781147	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781705	782056	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782614	782965	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783524	783875	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784429	784780	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785335	785686	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786245	786596	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787156	787507	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788065	788416	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788975	789326	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789884	790235	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790794	791145	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791700	792051	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792607	792958	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793511	793862	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794416	794767	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795321	795672	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796227	796578	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797130	797481	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798034	798385	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798938	799289	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799843	800194	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800746	801097	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801650	802001	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802554	802905	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803459	803810	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804359	804710	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805260	805611	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806165	806516	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807071	807422	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807975	808326	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808880	809231	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809784	810135	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810689	811040	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  " <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811590	811941	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  " <==
43	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	43085	43211	
==>2)
    
    #next unless $p->[$i]   =~ m{^#:([ \^\/\%]*)\n?$}s
    #        and $p->[$i-1] !~ m{^#:[ \^\/\%]*\n?$}s;
     # loo <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	839486	839691	
==>->user_stack, &({{\@1}}),\n                  STACK_ENTRY_STRING);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	13	116	
==>pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to t <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	9	112	
==>pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to t <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	16	119	
==>pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to t <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	9	112	
==>pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to t <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	7	110	
==>pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to t <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	11	114	
==>pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to t <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	9	112	
==>pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to t <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	13	116	
==>pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to t <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	10	113	
==>pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to t <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	10	113	
==>pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to t <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	8	111	
==>pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to t <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	16	119	
==>pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to t <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	13	116	
==>pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to t <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	8	111	
==>pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to t <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	13	116	
==>pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to t <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	15	118	
==>pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to t <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	9	112	
==>pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to t <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	10	113	
==>pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to t <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	11	114	
==>pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to t <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	11	114	
==>pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to t <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	10	113	
==>pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to t <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	15	118	
==>pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to t <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	12	115	
==>pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to t <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	10	113	
==>pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to t <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	14	117	
==>pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to t <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	15	118	
==>pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to t <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	11	114	
==>pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to t <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	12	115	
==>pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to t <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	9	112	
==>pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to t <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	14	117	
==>pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to t <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	9	112	
==>pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to t <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	14	117	
==>pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to t <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	16	119	
==>pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to t <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	8	111	
==>pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to t <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	11	114	
==>pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to t <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	9	112	
==>pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to t <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	12	115	
==>pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to t <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	11	114	
==>pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to t <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	8	111	
==>pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to t <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	11	114	
==>pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to t <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	14	117	
==>pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to t <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	11	114	
==>pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject to t <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773552	773877	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774462	774787	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775372	775697	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776283	776608	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777191	777516	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778100	778425	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779009	779334	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779919	780244	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780827	781152	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781736	782061	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782645	782970	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783555	783880	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784460	784785	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785366	785691	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786276	786601	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787187	787512	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788096	788421	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789006	789331	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789915	790240	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790825	791150	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791731	792056	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792638	792963	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793542	793867	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794447	794772	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795352	795677	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796258	796583	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797161	797486	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798065	798390	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798969	799294	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799874	800199	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800777	801102	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801681	802006	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802585	802910	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803490	803815	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804390	804715	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805291	805616	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806196	806521	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807102	807427	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808006	808331	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808911	809236	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809815	810140	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810720	811045	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
43	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811621	811946	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
43	/Users/nnunley/parrot/config/auto/m4.pm	9	99	
==>ht (C) 2005, The Perl Foundation.
# $Id: /parrot/config/auto/m4.pm 19593 2006-05-30T02:28:1 <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	108	204	
==>ject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct.pm	171	267	
==>ject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	104	200	
==>ject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	111	207	
==>ject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	104	200	
==>ject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	102	198	
==>ject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	106	202	
==>ject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	104	200	
==>ject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	104	200	
==>ject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	108	204	
==>ject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	105	201	
==>ject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	105	201	
==>ject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	106	202	
==>ject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	103	199	
==>ject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	111	207	
==>ject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	108	204	
==>ject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	103	199	
==>ject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	108	204	
==>ject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	110	206	
==>ject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	104	200	
==>ject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	105	201	
==>ject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	106	202	
==>ject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	106	202	
==>ject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	105	201	
==>ject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	110	206	
==>ject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	107	203	
==>ject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	105	201	
==>ject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	109	205	
==>ject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	110	206	
==>ject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	106	202	
==>ject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	107	203	
==>ject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	104	200	
==>ject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	109	205	
==>ject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	104	200	
==>ject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	109	205	
==>ject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	111	207	
==>ject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	103	199	
==>ject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	106	202	
==>ject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	104	200	
==>ject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	107	203	
==>ject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	106	202	
==>ject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	103	199	
==>ject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Co <==
43	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	106	202	
==>ject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Co <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913055	913403	
==>3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914066	914414	
==>3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915077	915425	
==>3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916089	916437	
==>3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917100	917448	
==>3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918112	918460	
==>3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919124	919472	
==>3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920137	920485	
==>3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87490	87836	
==>3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88492	88838	
==>3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340291	340637	
==>3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341290	341636	
==>3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342289	342635	
==>3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343289	343635	
==>3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692945	693291	
==>3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693945	694291	
==>3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694945	695291	
==>3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695946	696292	
==>3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696946	697292	
==>3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697947	698293	
==>3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698948	699294	
==>3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699950	700296	
==>3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700940	701286	
==>3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701931	702277	
==>3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702922	703268	
==>3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703914	704260	
==>3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704905	705251	
==>3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705897	706243	
==>3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706889	707235	
==>3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	707882	708228	
==>3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905401	905747	
==>3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906420	906766	
==>3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907439	907785	
==>3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908459	908805	
==>3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964952	965298	
==>3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965960	966306	
==>3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966968	967314	
==>3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967977	968323	
==>3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968985	969331	
==>3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969994	970340	
==>3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971003	971349	
==>3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	972013	972359	
==>3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863311	863584	
==>});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "byteleng <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	604360	604616	
==>er, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605940	606196	
==>er, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606731	606987	
==>er, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667593	667849	
==>er, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668367	668623	
==>er, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669138	669394	
==>er, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669910	670166	
==>er, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670682	670938	
==>er, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671455	671711	
==>er, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672224	672480	
==>er, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676084	676340	
==>er, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676864	677120	
==>er, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677641	677897	
==>er, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678419	678675	
==>er, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679197	679453	
==>er, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679976	680232	
==>er, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680751	681007	
==>er, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688188	688443	
==>er, {{\@1}}, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688960	689215	
==>er, {{\@1}}, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663737	663991	
==>er, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664509	664763	
==>er, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665285	665539	
==>er, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666062	666316	
==>er, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747340	747594	
==>er, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748125	748379	
==>er, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748908	749162	
==>er, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749692	749946	
==>er, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750475	750729	
==>er, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752847	753101	
==>er, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753634	753888	
==>er, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754422	754676	
==>er, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755208	755462	
==>er, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755995	756249	
==>er, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756784	757038	
==>er, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757574	757828	
==>er, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758346	758600	
==>er, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759119	759373	
==>er, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759895	760149	
==>er, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324756	325009	
==>er, {{\@1}},{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325549	325802	
==>er, {{\@1}},{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326339	326592	
==>er, {{\@1}},{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct.pm	173	268	
==>ct to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Con <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	106	201	
==>ct to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Con <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	113	208	
==>ct to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Con <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	106	201	
==>ct to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Con <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	104	199	
==>ct to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Con <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	108	203	
==>ct to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Con <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	106	201	
==>ct to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Con <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	106	201	
==>ct to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Con <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	110	205	
==>ct to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Con <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	107	202	
==>ct to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Con <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	107	202	
==>ct to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Con <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	108	203	
==>ct to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Con <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	105	200	
==>ct to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Con <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	113	208	
==>ct to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Con <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	110	205	
==>ct to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Con <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	105	200	
==>ct to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Con <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	110	205	
==>ct to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Con <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	112	207	
==>ct to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Con <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	106	201	
==>ct to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Con <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	107	202	
==>ct to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Con <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	108	203	
==>ct to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Con <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	108	203	
==>ct to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Con <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	107	202	
==>ct to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Con <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	112	207	
==>ct to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Con <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	109	204	
==>ct to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Con <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	107	202	
==>ct to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Con <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	111	206	
==>ct to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Con <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	112	207	
==>ct to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Con <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	108	203	
==>ct to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Con <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	109	204	
==>ct to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Con <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	106	201	
==>ct to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Con <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	111	206	
==>ct to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Con <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	106	201	
==>ct to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Con <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	111	206	
==>ct to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Con <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	113	208	
==>ct to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Con <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	105	200	
==>ct to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Con <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	108	203	
==>ct to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Con <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	106	201	
==>ct to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Con <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	109	204	
==>ct to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Con <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	108	203	
==>ct to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Con <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	105	200	
==>ct to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Con <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	108	203	
==>ct to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Con <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	211	308	
==>.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::C <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct.pm	275	372	
==>.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::C <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	219	316	
==>.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::C <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	233	330	
==>.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::C <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	231	328	
==>.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::C <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	227	324	
==>.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::C <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	235	332	
==>.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::C <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	219	316	
==>.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::C <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	219	316	
==>.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::C <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	232	329	
==>.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::C <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	226	323	
==>.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::C <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	226	323	
==>.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::C <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	223	320	
==>.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::C <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	217	314	
==>.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::C <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	227	324	
==>.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::C <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	233	330	
==>.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::C <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	223	320	
==>.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::C <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	233	330	
==>.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::C <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	225	322	
==>.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::C <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	224	321	
==>.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::C <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	226	323	
==>.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::C <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	228	325	
==>.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::C <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	228	325	
==>.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::C <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	226	323	
==>.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::C <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	236	333	
==>.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::C <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	215	312	
==>.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::C <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	223	320	
==>.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::C <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	235	332	
==>.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::C <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	227	324	
==>.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::C <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	229	326	
==>.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::C <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	223	320	
==>.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::C <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	233	330	
==>.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::C <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	223	320	
==>.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::C <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	233	330	
==>.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::C <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	237	334	
==>.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::C <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	221	318	
==>.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::C <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	227	324	
==>.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::C <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	213	310	
==>.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::C <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	224	321	
==>.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::C <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	222	319	
==>.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::C <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	216	313	
==>.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::C <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	222	319	
==>.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::C <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	12	111	
==>.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	8	107	
==>.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	15	114	
==>.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	8	107	
==>.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	6	105	
==>.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	10	109	
==>.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	8	107	
==>.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	12	111	
==>.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	9	108	
==>.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	9	108	
==>.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	7	106	
==>.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	15	114	
==>.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	12	111	
==>.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	7	106	
==>.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	12	111	
==>.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	14	113	
==>.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	8	107	
==>.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	9	108	
==>.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	10	109	
==>.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	10	109	
==>.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	9	108	
==>.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	14	113	
==>.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	11	110	
==>.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	9	108	
==>.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	13	112	
==>.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	14	113	
==>.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	10	109	
==>.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	11	110	
==>.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	8	107	
==>.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	13	112	
==>.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	8	107	
==>.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	13	112	
==>.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	15	114	
==>.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	7	106	
==>.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	10	109	
==>.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	8	107	
==>.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	11	110	
==>.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	10	109	
==>.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	7	106	
==>.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	10	109	
==>.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	13	112	
==>.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	10	109	
==>.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subject <==
42	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	23161	23266	
==>$classname)]}, "ascii",
            PObj_constant_FLAG|PObj_external_FLAG);
        vt_clone->isa_str = st <==
42	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2069	2174	
==>t;
    
    die ref($self) . " doesn't have core_type()";
}

=item C<core_prefix()>

Implemented in subcla <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct.pm	281	377	
==>606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Constr <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	225	321	
==>606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Constr <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	239	335	
==>606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Constr <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	237	333	
==>606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Constr <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	233	329	
==>606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Constr <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	241	337	
==>606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Constr <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	225	321	
==>606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Constr <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	225	321	
==>606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Constr <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	238	334	
==>606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Constr <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	232	328	
==>606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Constr <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	232	328	
==>606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Constr <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	229	325	
==>606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Constr <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	223	319	
==>606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Constr <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	233	329	
==>606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Constr <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	239	335	
==>606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Constr <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	229	325	
==>606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Constr <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	239	335	
==>606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Constr <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	231	327	
==>606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Constr <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	230	326	
==>606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Constr <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	232	328	
==>606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Constr <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	234	330	
==>606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Constr <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	234	330	
==>606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Constr <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	232	328	
==>606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Constr <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	242	338	
==>606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Constr <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	221	317	
==>606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Constr <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	229	325	
==>606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Constr <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	241	337	
==>606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Constr <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	233	329	
==>606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Constr <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	235	331	
==>606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Constr <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	229	325	
==>606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Constr <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	239	335	
==>606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Constr <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	229	325	
==>606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Constr <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	239	335	
==>606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Constr <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	243	339	
==>606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Constr <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	227	323	
==>606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Constr <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	233	329	
==>606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Constr <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	219	315	
==>606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Constr <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	230	326	
==>606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Constr <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	228	324	
==>606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Constr <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	222	318	
==>606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Constr <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	228	324	
==>606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Constr <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913040	913364	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914051	914375	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915062	915386	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916074	916398	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917085	917409	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918097	918421	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919109	919433	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920122	920446	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87475	87797	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88477	88799	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340276	340598	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341275	341597	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342274	342596	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343274	343596	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692930	693252	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693930	694252	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694930	695252	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695931	696253	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696931	697253	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697932	698254	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698933	699255	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699935	700257	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700925	701247	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701916	702238	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702907	703229	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703899	704221	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704890	705212	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705882	706204	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706874	707196	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	707867	708189	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905386	905708	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906405	906727	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907424	907746	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908444	908766	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964937	965259	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965945	966267	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966953	967275	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967962	968284	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968970	969292	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969979	970301	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970988	971310	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971998	972320	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	114	208	
==>e same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/ <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	121	215	
==>e same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/ <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	114	208	
==>e same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/ <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	112	206	
==>e same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/ <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	116	210	
==>e same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/ <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	114	208	
==>e same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/ <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	114	208	
==>e same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/ <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	118	212	
==>e same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/ <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	115	209	
==>e same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/ <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	115	209	
==>e same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/ <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	116	210	
==>e same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/ <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	113	207	
==>e same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/ <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	121	215	
==>e same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/ <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	118	212	
==>e same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/ <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	113	207	
==>e same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/ <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	118	212	
==>e same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/ <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	120	214	
==>e same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/ <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	114	208	
==>e same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/ <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	115	209	
==>e same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/ <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	116	210	
==>e same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/ <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	116	210	
==>e same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/ <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	115	209	
==>e same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/ <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	120	214	
==>e same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/ <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	117	211	
==>e same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/ <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	115	209	
==>e same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/ <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	119	213	
==>e same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/ <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	120	214	
==>e same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/ <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	116	210	
==>e same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/ <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	117	211	
==>e same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/ <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	114	208	
==>e same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/ <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	119	213	
==>e same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/ <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	114	208	
==>e same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/ <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	119	213	
==>e same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/ <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	121	215	
==>e same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/ <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	113	207	
==>e same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/ <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	116	210	
==>e same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/ <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	114	208	
==>e same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/ <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	117	211	
==>e same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/ <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	116	210	
==>e same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/ <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	113	207	
==>e same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/ <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	116	210	
==>e same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/ <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct.pm	181	274	
==>e same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413010	413363	
==>\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414137	414490	
==>\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415264	415617	
==>\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416392	416745	
==>\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417519	417872	
==>\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418647	419000	
==>\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419775	420128	
==>\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420904	421257	
==>\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973095	973446	
==>\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974224	974575	
==>\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975353	975704	
==>\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976483	976834	
==>\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977612	977963	
==>\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978742	979093	
==>\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979872	980223	
==>\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981003	981354	
==>\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982132	982483	
==>\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983262	983613	
==>\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984392	984743	
==>\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985523	985874	
==>\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986653	987004	
==>\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987784	988135	
==>\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988915	989266	
==>\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	990047	990398	
==>\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991183	991534	
==>\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992320	992671	
==>\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993457	993808	
==>\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994595	994946	
==>\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995732	996083	
==>\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996870	997221	
==>\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	998008	998359	
==>\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999147	999498	
==>\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000284	1000635	
==>\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001422	1001773	
==>\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002560	1002911	
==>\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003699	1004050	
==>\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004837	1005188	
==>\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005976	1006327	
==>\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007115	1007466	
==>\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008255	1008606	
==>\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	838	925	
==>terpreter->code->base.data))
#define CUR_OPCODE cur_opcode
#define IREG(i) REG_INT(cur_o <==
42	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	954	1041	
==>terpreter->code->base.data))
#define CUR_OPCODE cur_opcode
#define IREG(i) REG_INT(cur_o <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	604352	604606	
==>nterpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605932	606186	
==>nterpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606723	606977	
==>nterpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667585	667839	
==>nterpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668359	668613	
==>nterpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669130	669384	
==>nterpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669902	670156	
==>nterpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670674	670928	
==>nterpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671447	671701	
==>nterpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672216	672470	
==>nterpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676076	676330	
==>nterpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676856	677110	
==>nterpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677633	677887	
==>nterpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678411	678665	
==>nterpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679189	679443	
==>nterpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679968	680222	
==>nterpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680743	680997	
==>nterpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688180	688433	
==>nterpreter, {{\@1}}, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688952	689205	
==>nterpreter, {{\@1}}, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663729	663981	
==>nterpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664501	664753	
==>nterpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665277	665529	
==>nterpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666054	666306	
==>nterpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747332	747584	
==>nterpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748117	748369	
==>nterpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748900	749152	
==>nterpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749684	749936	
==>nterpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750467	750719	
==>nterpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752839	753091	
==>nterpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753626	753878	
==>nterpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754414	754666	
==>nterpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755200	755452	
==>nterpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755987	756239	
==>nterpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756776	757028	
==>nterpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757566	757818	
==>nterpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758338	758590	
==>nterpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759111	759363	
==>nterpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759887	760139	
==>nterpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324748	324999	
==>nterpreter, {{\@1}},{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325541	325792	
==>nterpreter, {{\@1}},{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326331	326582	
==>nterpreter, {{\@1}},{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
42	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	1153	1291	
==>t::Configure::Data> object.

=cut

sub new
{
    my $class = shift;

    my $self = {
        c        => {},
        triggers => {},
    } <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct.pm	177	272	
==>o the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Constru <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	110	205	
==>o the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Constru <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	117	212	
==>o the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Constru <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	110	205	
==>o the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Constru <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	108	203	
==>o the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Constru <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	112	207	
==>o the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Constru <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	110	205	
==>o the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Constru <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	110	205	
==>o the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Constru <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	114	209	
==>o the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Constru <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	111	206	
==>o the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Constru <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	111	206	
==>o the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Constru <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	112	207	
==>o the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Constru <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	109	204	
==>o the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Constru <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	117	212	
==>o the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Constru <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	114	209	
==>o the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Constru <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	109	204	
==>o the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Constru <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	114	209	
==>o the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Constru <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	116	211	
==>o the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Constru <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	110	205	
==>o the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Constru <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	111	206	
==>o the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Constru <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	112	207	
==>o the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Constru <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	112	207	
==>o the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Constru <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	111	206	
==>o the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Constru <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	116	211	
==>o the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Constru <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	113	208	
==>o the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Constru <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	111	206	
==>o the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Constru <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	115	210	
==>o the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Constru <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	116	211	
==>o the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Constru <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	112	207	
==>o the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Constru <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	113	208	
==>o the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Constru <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	110	205	
==>o the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Constru <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	115	210	
==>o the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Constru <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	110	205	
==>o the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Constru <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	115	210	
==>o the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Constru <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	117	212	
==>o the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Constru <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	109	204	
==>o the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Constru <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	112	207	
==>o the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Constru <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	110	205	
==>o the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Constru <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	113	208	
==>o the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Constru <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	112	207	
==>o the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Constru <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	109	204	
==>o the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Constru <==
42	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	112	207	
==>o the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Constru <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913047	913393	
==>}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914058	914404	
==>}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915069	915415	
==>}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916081	916427	
==>}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917092	917438	
==>}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918104	918450	
==>}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919116	919462	
==>}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920129	920475	
==>}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87482	87826	
==>}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88484	88828	
==>}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340283	340627	
==>}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341282	341626	
==>}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342281	342625	
==>}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343281	343625	
==>}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692937	693281	
==>}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693937	694281	
==>}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694937	695281	
==>}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695938	696282	
==>}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696938	697282	
==>}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697939	698283	
==>}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698940	699284	
==>}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699942	700286	
==>}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700932	701276	
==>}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701923	702267	
==>}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702914	703258	
==>}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703906	704250	
==>}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704897	705241	
==>}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705889	706233	
==>}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706881	707225	
==>}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	707874	708218	
==>}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905393	905737	
==>}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906412	906756	
==>}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907431	907775	
==>}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908451	908795	
==>}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964944	965288	
==>}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965952	966296	
==>}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966960	967304	
==>}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967969	968313	
==>}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968977	969321	
==>}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969986	970330	
==>}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970995	971339	
==>}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
42	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	972005	972349	
==>}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413021	413394	
==>4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414148	414521	
==>4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415275	415648	
==>4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416403	416776	
==>4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417530	417903	
==>4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418658	419031	
==>4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419786	420159	
==>4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420915	421288	
==>4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973106	973477	
==>4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974235	974606	
==>4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975364	975735	
==>4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976494	976865	
==>4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977623	977994	
==>4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978753	979124	
==>4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979883	980254	
==>4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981014	981385	
==>4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982143	982514	
==>4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983273	983644	
==>4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984403	984774	
==>4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985534	985905	
==>4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986664	987035	
==>4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987795	988166	
==>4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988926	989297	
==>4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	990058	990429	
==>4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991194	991565	
==>4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992331	992702	
==>4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993468	993839	
==>4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994606	994977	
==>4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995743	996114	
==>4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996881	997252	
==>4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	998019	998390	
==>4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999158	999529	
==>4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000295	1000666	
==>4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001433	1001804	
==>4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002571	1002942	
==>4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003710	1004081	
==>4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004848	1005219	
==>4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005987	1006358	
==>4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007126	1007497	
==>4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008266	1008637	
==>4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841165	841448	
==>> "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 954,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412997	413321	
==>, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414124	414448	
==>, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415251	415575	
==>, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416379	416703	
==>, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417506	417830	
==>, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418634	418958	
==>, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419762	420086	
==>, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420891	421215	
==>, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973082	973404	
==>, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974211	974533	
==>, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975340	975662	
==>, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976470	976792	
==>, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977599	977921	
==>, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978729	979051	
==>, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979859	980181	
==>, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980990	981312	
==>, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982119	982441	
==>, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983249	983571	
==>, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984379	984701	
==>, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985510	985832	
==>, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986640	986962	
==>, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987771	988093	
==>, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988902	989224	
==>, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	990034	990356	
==>, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991170	991492	
==>, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992307	992629	
==>, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993444	993766	
==>, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994582	994904	
==>, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995719	996041	
==>, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996857	997179	
==>, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997995	998317	
==>, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999134	999456	
==>, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000271	1000593	
==>, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001409	1001731	
==>, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002547	1002869	
==>, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003686	1004008	
==>, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004824	1005146	
==>, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005963	1006285	
==>, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007102	1007424	
==>, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008242	1008564	
==>, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
41	/Users/nnunley/parrot/languages/regex/regex.pl	2098	2200	
==>ut eq '-') {
    open(OUTPUT, ">&STDOUT");
} else {
    open(OUTPUT, ">$output") or die "create $output <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413008	413341	
==>{{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414135	414468	
==>{{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415262	415595	
==>{{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416390	416723	
==>{{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417517	417850	
==>{{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418645	418978	
==>{{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419773	420106	
==>{{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420902	421235	
==>{{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973093	973424	
==>{{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974222	974553	
==>{{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975351	975682	
==>{{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976481	976812	
==>{{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977610	977941	
==>{{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978740	979071	
==>{{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979870	980201	
==>{{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981001	981332	
==>{{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982130	982461	
==>{{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983260	983591	
==>{{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984390	984721	
==>{{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985521	985852	
==>{{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986651	986982	
==>{{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987782	988113	
==>{{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988913	989244	
==>{{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	990045	990376	
==>{{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991181	991512	
==>{{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992318	992649	
==>{{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993455	993786	
==>{{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994593	994924	
==>{{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995730	996061	
==>{{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996868	997199	
==>{{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	998006	998337	
==>{{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999145	999476	
==>{{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000282	1000613	
==>{{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001420	1001751	
==>{{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002558	1002889	
==>{{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003697	1004028	
==>{{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004835	1005166	
==>{{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005974	1006305	
==>{{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007113	1007444	
==>{{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008253	1008584	
==>{{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
41	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	266	357	
==>EST');

=head1 DESCRIPTION

This C<Parrot::IO::File> subclass adds a few documentation-relat <==
41	/Users/nnunley/parrot/config/inter/libparrot.pm	413	511	
==>use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use <==
41	/Users/nnunley/parrot/config/auto/aio.pm	266	359	
==>use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use <==
41	/Users/nnunley/parrot/config/auto/bc.pm	389	482	
==>use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use <==
41	/Users/nnunley/parrot/config/auto/cgoto.pm	289	382	
==>use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use <==
41	/Users/nnunley/parrot/config/auto/env.pm	290	383	
==>use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use <==
41	/Users/nnunley/parrot/config/auto/format.pm	290	383	
==>use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use <==
41	/Users/nnunley/parrot/config/auto/funcptr.pm	302	395	
==>use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use <==
41	/Users/nnunley/parrot/config/auto/gc.pm	642	735	
==>use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use <==
41	/Users/nnunley/parrot/config/auto/gcc.pm	276	369	
==>use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use <==
41	/Users/nnunley/parrot/config/auto/gdbm.pm	334	427	
==>use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use <==
41	/Users/nnunley/parrot/config/auto/gmp.pm	288	381	
==>use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use <==
41	/Users/nnunley/parrot/config/auto/headers.pm	259	352	
==>use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use <==
41	/Users/nnunley/parrot/config/auto/inline.pm	292	385	
==>use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use <==
41	/Users/nnunley/parrot/config/auto/isreg.pm	272	365	
==>use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use <==
41	/Users/nnunley/parrot/config/auto/m4.pm	363	456	
==>use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use <==
41	/Users/nnunley/parrot/config/auto/memalign.pm	291	384	
==>use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use <==
41	/Users/nnunley/parrot/config/auto/msvc.pm	296	389	
==>use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use <==
41	/Users/nnunley/parrot/config/auto/pack.pm	263	356	
==>use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use <==
41	/Users/nnunley/parrot/config/auto/perldoc.pm	293	386	
==>use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use <==
41	/Users/nnunley/parrot/config/auto/python.pm	353	446	
==>use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use <==
41	/Users/nnunley/parrot/config/auto/readline.pm	295	388	
==>use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use <==
41	/Users/nnunley/parrot/config/auto/signal.pm	254	347	
==>use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use <==
41	/Users/nnunley/parrot/config/auto/sizes.pm	270	363	
==>use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use <==
41	/Users/nnunley/parrot/config/auto/snprintf.pm	296	389	
==>use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use <==
41	/Users/nnunley/parrot/config/auto/va_ptr.pm	297	390	
==>use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use <==
41	/Users/nnunley/parrot/config/gen/config_h.pm	467	560	
==>use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use <==
41	/Users/nnunley/parrot/config/gen/config_pm.pm	377	470	
==>use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use <==
41	/Users/nnunley/parrot/config/gen/icu.pm	268	361	
==>use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use <==
41	/Users/nnunley/parrot/config/gen/makefiles.pm	309	402	
==>use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use <==
41	/Users/nnunley/parrot/config/gen/parrot_include.pm	301	394	
==>use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use <==
41	/Users/nnunley/parrot/config/init/defaults.pm	316	409	
==>use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use <==
41	/Users/nnunley/parrot/config/init/hints.pm	330	423	
==>use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use <==
41	/Users/nnunley/parrot/config/init/manifest.pm	308	401	
==>use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use <==
41	/Users/nnunley/parrot/config/init/miniparrot.pm	575	668	
==>use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use <==
41	/Users/nnunley/parrot/config/init/optimize.pm	381	474	
==>use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use <==
41	/Users/nnunley/parrot/config/inter/charset.pm	292	385	
==>use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use <==
41	/Users/nnunley/parrot/config/inter/encoding.pm	297	390	
==>use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use <==
41	/Users/nnunley/parrot/config/inter/ops.pm	272	365	
==>use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use <==
41	/Users/nnunley/parrot/config/inter/progs.pm	411	504	
==>use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use <==
41	/Users/nnunley/parrot/config/inter/shlibs.pm	571	664	
==>use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use <==
41	/Users/nnunley/parrot/config/inter/types.pm	323	416	
==>use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct.pm	277	376	
==>m 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Const <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	221	320	
==>m 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Const <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	235	334	
==>m 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Const <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	233	332	
==>m 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Const <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	229	328	
==>m 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Const <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	237	336	
==>m 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Const <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	221	320	
==>m 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Const <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	221	320	
==>m 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Const <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	234	333	
==>m 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Const <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	228	327	
==>m 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Const <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	228	327	
==>m 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Const <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	225	324	
==>m 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Const <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	219	318	
==>m 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Const <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	229	328	
==>m 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Const <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	235	334	
==>m 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Const <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	225	324	
==>m 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Const <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	235	334	
==>m 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Const <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	227	326	
==>m 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Const <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	226	325	
==>m 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Const <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	228	327	
==>m 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Const <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	230	329	
==>m 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Const <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	230	329	
==>m 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Const <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	228	327	
==>m 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Const <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	238	337	
==>m 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Const <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	217	316	
==>m 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Const <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	225	324	
==>m 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Const <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	237	336	
==>m 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Const <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	229	328	
==>m 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Const <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	231	330	
==>m 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Const <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	225	324	
==>m 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Const <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	235	334	
==>m 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Const <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	225	324	
==>m 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Const <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	235	334	
==>m 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Const <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	239	338	
==>m 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Const <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	223	322	
==>m 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Const <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	229	328	
==>m 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Const <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	215	314	
==>m 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Const <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	226	325	
==>m 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Const <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	224	323	
==>m 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Const <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	218	317	
==>m 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Const <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	224	323	
==>m 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Const <==
41	/Users/nnunley/parrot/tools/build/ops2c.pl	13851	13967	
==>ee(hop);
    }
    hop = 0;
}

END_C

}
else {
    print SOURCE <<END_C;
static void hop_deinit(void) {}
END_C
}

pri <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	604361	604636	
==>r, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605941	606216	
==>r, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606732	607007	
==>r, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667594	667869	
==>r, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668368	668643	
==>r, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669139	669414	
==>r, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669911	670186	
==>r, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670683	670958	
==>r, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671456	671731	
==>r, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672225	672500	
==>r, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676085	676360	
==>r, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676865	677140	
==>r, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677642	677917	
==>r, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678420	678695	
==>r, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679198	679473	
==>r, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679977	680252	
==>r, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680752	681027	
==>r, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688189	688463	
==>r, {{\@1}}, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688961	689235	
==>r, {{\@1}}, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663738	664011	
==>r, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664510	664783	
==>r, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665286	665559	
==>r, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666063	666336	
==>r, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747341	747614	
==>r, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748126	748399	
==>r, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748909	749182	
==>r, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749693	749966	
==>r, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750476	750749	
==>r, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752848	753121	
==>r, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753635	753908	
==>r, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754423	754696	
==>r, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755209	755482	
==>r, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755996	756269	
==>r, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756785	757058	
==>r, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757575	757848	
==>r, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758347	758620	
==>r, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759120	759393	
==>r, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759896	760169	
==>r, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324757	325029	
==>r, {{\@1}},{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325550	325822	
==>r, {{\@1}},{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326340	326612	
==>r, {{\@1}},{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412985	413309	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414112	414436	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415239	415563	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416367	416691	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417494	417818	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418622	418946	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419750	420074	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420879	421203	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973070	973392	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974199	974521	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975328	975650	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976458	976780	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977587	977909	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978717	979039	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979847	980169	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980978	981300	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982107	982429	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983237	983559	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984367	984689	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985498	985820	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986628	986950	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987759	988081	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988890	989212	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	990022	990344	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991158	991480	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992295	992617	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993432	993754	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994570	994892	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995707	996029	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996845	997167	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997983	998305	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999122	999444	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000259	1000581	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001397	1001719	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002535	1002857	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003674	1003996	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004812	1005134	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005951	1006273	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007090	1007412	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008230	1008552	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	252153	252242	
==>\n  {{\@1}} = {{\@2}}->vtable->logical_not(interpreter, {{\@2}}, {{\@1}});\n  {{+=3}};\n", <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	604353	604615	
==>terpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605933	606195	
==>terpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606724	606986	
==>terpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667586	667848	
==>terpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668360	668622	
==>terpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669131	669393	
==>terpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669903	670165	
==>terpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670675	670937	
==>terpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671448	671710	
==>terpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672217	672479	
==>terpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676077	676339	
==>terpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676857	677119	
==>terpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677634	677896	
==>terpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678412	678674	
==>terpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679190	679452	
==>terpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679969	680231	
==>terpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680744	681006	
==>terpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688181	688442	
==>terpreter, {{\@1}}, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688953	689214	
==>terpreter, {{\@1}}, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663730	663990	
==>terpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664502	664762	
==>terpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665278	665538	
==>terpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666055	666315	
==>terpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747333	747593	
==>terpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748118	748378	
==>terpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748901	749161	
==>terpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749685	749945	
==>terpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750468	750728	
==>terpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752840	753100	
==>terpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753627	753887	
==>terpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754415	754675	
==>terpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755201	755461	
==>terpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755988	756248	
==>terpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756777	757037	
==>terpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757567	757827	
==>terpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758339	758599	
==>terpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759112	759372	
==>terpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759888	760148	
==>terpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324749	325008	
==>terpreter, {{\@1}},{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325542	325801	
==>terpreter, {{\@1}},{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326332	326591	
==>terpreter, {{\@1}},{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413012	413365	
==>3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414139	414492	
==>3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415266	415619	
==>3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416394	416747	
==>3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417521	417874	
==>3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418649	419002	
==>3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419777	420130	
==>3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420906	421259	
==>3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973097	973448	
==>3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974226	974577	
==>3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975355	975706	
==>3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976485	976836	
==>3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977614	977965	
==>3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978744	979095	
==>3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979874	980225	
==>3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981005	981356	
==>3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982134	982485	
==>3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983264	983615	
==>3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984394	984745	
==>3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985525	985876	
==>3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986655	987006	
==>3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987786	988137	
==>3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988917	989268	
==>3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	990049	990400	
==>3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991185	991536	
==>3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992322	992673	
==>3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993459	993810	
==>3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994597	994948	
==>3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995734	996085	
==>3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996872	997223	
==>3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	998010	998361	
==>3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999149	999500	
==>3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000286	1000637	
==>3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001424	1001775	
==>3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002562	1002913	
==>3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003701	1004052	
==>3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004839	1005190	
==>3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005978	1006329	
==>3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007117	1007468	
==>3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008257	1008608	
==>3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
41	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	22158	22295	
==>),
                   aop('goto', [ $loop ]),
          $back => $self->dbprint("backtracking into *\n"),
                   aop('popint', <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75326	75743	
==>i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 98,
                  "ARGS" => [
                              "p",
                              "p",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#li <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	226	325	
==>06 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct: <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	240	339	
==>06 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct: <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	238	337	
==>06 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct: <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	234	333	
==>06 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct: <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	242	341	
==>06 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct: <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	226	325	
==>06 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct: <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	226	325	
==>06 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct: <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	239	338	
==>06 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct: <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	233	332	
==>06 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct: <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	233	332	
==>06 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct: <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	230	329	
==>06 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct: <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	224	323	
==>06 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct: <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	234	333	
==>06 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct: <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	240	339	
==>06 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct: <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	230	329	
==>06 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct: <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	240	339	
==>06 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct: <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	232	331	
==>06 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct: <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	231	330	
==>06 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct: <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	233	332	
==>06 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct: <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	235	334	
==>06 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct: <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	235	334	
==>06 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct: <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	233	332	
==>06 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct: <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	243	342	
==>06 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct: <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	222	321	
==>06 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct: <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	230	329	
==>06 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct: <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	242	341	
==>06 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct: <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	234	333	
==>06 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct: <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	236	335	
==>06 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct: <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	230	329	
==>06 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct: <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	240	339	
==>06 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct: <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	230	329	
==>06 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct: <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	240	339	
==>06 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct: <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	244	343	
==>06 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct: <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	228	327	
==>06 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct: <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	234	333	
==>06 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct: <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	220	319	
==>06 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct: <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	231	330	
==>06 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct: <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	229	328	
==>06 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct: <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	223	322	
==>06 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct: <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	229	328	
==>06 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct: <==
41	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct.pm	282	380	
==>06 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876701	877137	
==>RGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 994,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic",
                              "i <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412989	413313	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414116	414440	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415243	415567	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416371	416695	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417498	417822	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418626	418950	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419754	420078	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420883	421207	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973074	973396	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974203	974525	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975332	975654	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976462	976784	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977591	977913	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978721	979043	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979851	980173	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980982	981304	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982111	982433	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983241	983563	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984371	984693	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985502	985824	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986632	986954	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987763	988085	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988894	989216	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	990026	990348	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991162	991484	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992299	992621	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993436	993758	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994574	994896	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995711	996033	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996849	997171	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997987	998309	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999126	999448	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000263	1000585	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001401	1001723	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002539	1002861	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003678	1004000	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004816	1005138	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005955	1006277	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007094	1007416	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008234	1008556	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	2840	2992	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13300	13452	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22344	22496	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23202	23354	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24142	24294	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24733	24885	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	36912	37064	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549318	549470	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550618	550770	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551919	552071	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553110	553262	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554506	554658	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555903	556055	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557140	557292	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558523	558675	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559907	560059	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561128	561280	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562211	562363	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578591	578743	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579895	580047	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581200	581352	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582505	582657	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583811	583963	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584885	585037	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585960	586112	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587145	587297	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588331	588483	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589517	589669	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590704	590856	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591913	592065	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593123	593275	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594333	594485	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597329	597481	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598375	598527	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599422	599574	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600497	600649	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614143	614295	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615293	615445	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028355	1028507	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029206	1029358	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030047	1030199	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => " <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413004	413338	
==>}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414131	414465	
==>}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415258	415592	
==>}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416386	416720	
==>}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417513	417847	
==>}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418641	418975	
==>}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419769	420103	
==>}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420898	421232	
==>}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973089	973421	
==>}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974218	974550	
==>}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975347	975679	
==>}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976477	976809	
==>}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977606	977938	
==>}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978736	979068	
==>}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979866	980198	
==>}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980997	981329	
==>}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982126	982458	
==>}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983256	983588	
==>}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984386	984718	
==>}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985517	985849	
==>}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986647	986979	
==>}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987778	988110	
==>}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988909	989241	
==>}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	990041	990373	
==>}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991177	991509	
==>}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992314	992646	
==>}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993451	993783	
==>}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994589	994921	
==>}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995726	996058	
==>}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996864	997196	
==>}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	998002	998334	
==>}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999141	999473	
==>}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000278	1000610	
==>}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001416	1001748	
==>}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002554	1002886	
==>}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003693	1004025	
==>}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004831	1005163	
==>}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005970	1006302	
==>}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007109	1007441	
==>}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
41	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008249	1008581	
==>}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
41	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	4536	4642	
==>multi_match {
    my ($self, $op, $min, $max, $greedy, $R, @rest) = @_;

    if (($min == 0) && defined($ma <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413011	413364	
==>@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414138	414491	
==>@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415265	415618	
==>@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416393	416746	
==>@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417520	417873	
==>@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418648	419001	
==>@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419776	420129	
==>@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420905	421258	
==>@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973096	973447	
==>@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974225	974576	
==>@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975354	975705	
==>@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976484	976835	
==>@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977613	977964	
==>@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978743	979094	
==>@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979873	980224	
==>@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981004	981355	
==>@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982133	982484	
==>@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983263	983614	
==>@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984393	984744	
==>@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985524	985875	
==>@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986654	987005	
==>@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987785	988136	
==>@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988916	989267	
==>@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	990048	990399	
==>@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991184	991535	
==>@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992321	992672	
==>@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993458	993809	
==>@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994596	994947	
==>@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995733	996084	
==>@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996871	997222	
==>@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	998009	998360	
==>@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999148	999499	
==>@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000285	1000636	
==>@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001423	1001774	
==>@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002561	1002912	
==>@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003700	1004051	
==>@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004838	1005189	
==>@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005977	1006328	
==>@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007116	1007467	
==>@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008256	1008607	
==>@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413009	413343	
==>{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414136	414470	
==>{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415263	415597	
==>{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416391	416725	
==>{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417518	417852	
==>{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418646	418980	
==>{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419774	420108	
==>{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420903	421237	
==>{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973094	973426	
==>{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974223	974555	
==>{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975352	975684	
==>{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976482	976814	
==>{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977611	977943	
==>{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978741	979073	
==>{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979871	980203	
==>{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981002	981334	
==>{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982131	982463	
==>{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983261	983593	
==>{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984391	984723	
==>{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985522	985854	
==>{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986652	986984	
==>{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987783	988115	
==>{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988914	989246	
==>{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	990046	990378	
==>{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991182	991514	
==>{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992319	992651	
==>{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993456	993788	
==>{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994594	994926	
==>{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995731	996063	
==>{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996869	997201	
==>{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	998007	998339	
==>{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999146	999478	
==>{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000283	1000615	
==>{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001421	1001753	
==>{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002559	1002891	
==>{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003698	1004030	
==>{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004836	1005168	
==>{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005975	1006307	
==>{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007114	1007446	
==>{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008254	1008586	
==>{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413005	413340	
==>}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414132	414467	
==>}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415259	415594	
==>}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416387	416722	
==>}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417514	417849	
==>}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418642	418977	
==>}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419770	420105	
==>}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420899	421234	
==>}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973090	973423	
==>}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974219	974552	
==>}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975348	975681	
==>}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976478	976811	
==>}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977607	977940	
==>}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978737	979070	
==>}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979867	980200	
==>}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980998	981331	
==>}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982127	982460	
==>}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983257	983590	
==>}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984387	984720	
==>}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985518	985851	
==>}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986648	986981	
==>}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987779	988112	
==>}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988910	989243	
==>}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	990042	990375	
==>}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991178	991511	
==>}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992315	992648	
==>}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993452	993785	
==>}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994590	994923	
==>}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995727	996060	
==>}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996865	997198	
==>}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	998003	998336	
==>}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999142	999475	
==>}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000279	1000612	
==>}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001417	1001750	
==>}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002555	1002888	
==>}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003694	1004027	
==>}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004832	1005165	
==>}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005971	1006304	
==>}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007110	1007443	
==>}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008250	1008583	
==>}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540647	540783	
==>a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)> <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541899	542035	
==>a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)> <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543151	543287	
==>a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)> <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544434	544570	
==>a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)> <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545770	545906	
==>a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)> <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547106	547242	
==>a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)> <==
40	/Users/nnunley/parrot/config/inter/libparrot.pm	426	521	
==>use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::C <==
40	/Users/nnunley/parrot/config/auto/aio.pm	278	369	
==>use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::C <==
40	/Users/nnunley/parrot/config/auto/cgoto.pm	301	392	
==>use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::C <==
40	/Users/nnunley/parrot/config/auto/env.pm	302	393	
==>use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::C <==
40	/Users/nnunley/parrot/config/auto/format.pm	302	393	
==>use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::C <==
40	/Users/nnunley/parrot/config/auto/funcptr.pm	314	405	
==>use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::C <==
40	/Users/nnunley/parrot/config/auto/gc.pm	654	745	
==>use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::C <==
40	/Users/nnunley/parrot/config/auto/gcc.pm	288	379	
==>use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::C <==
40	/Users/nnunley/parrot/config/auto/headers.pm	271	362	
==>use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::C <==
40	/Users/nnunley/parrot/config/auto/inline.pm	304	395	
==>use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::C <==
40	/Users/nnunley/parrot/config/auto/isreg.pm	284	375	
==>use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::C <==
40	/Users/nnunley/parrot/config/auto/memalign.pm	303	394	
==>use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::C <==
40	/Users/nnunley/parrot/config/auto/msvc.pm	308	399	
==>use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::C <==
40	/Users/nnunley/parrot/config/auto/pack.pm	275	366	
==>use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::C <==
40	/Users/nnunley/parrot/config/auto/perldoc.pm	305	396	
==>use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::C <==
40	/Users/nnunley/parrot/config/auto/python.pm	365	456	
==>use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::C <==
40	/Users/nnunley/parrot/config/auto/signal.pm	266	357	
==>use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::C <==
40	/Users/nnunley/parrot/config/auto/sizes.pm	282	373	
==>use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::C <==
40	/Users/nnunley/parrot/config/auto/snprintf.pm	308	399	
==>use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::C <==
40	/Users/nnunley/parrot/config/auto/va_ptr.pm	309	400	
==>use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::C <==
40	/Users/nnunley/parrot/config/gen/config_h.pm	479	570	
==>use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::C <==
40	/Users/nnunley/parrot/config/gen/config_pm.pm	389	480	
==>use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::C <==
40	/Users/nnunley/parrot/config/gen/cpu.pm	322	413	
==>use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::C <==
40	/Users/nnunley/parrot/config/gen/makefiles.pm	321	412	
==>use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::C <==
40	/Users/nnunley/parrot/config/gen/parrot_include.pm	313	404	
==>use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::C <==
40	/Users/nnunley/parrot/config/init/hints.pm	342	433	
==>use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::C <==
40	/Users/nnunley/parrot/config/init/manifest.pm	320	411	
==>use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::C <==
40	/Users/nnunley/parrot/config/init/miniparrot.pm	587	678	
==>use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::C <==
40	/Users/nnunley/parrot/config/inter/charset.pm	304	395	
==>use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::C <==
40	/Users/nnunley/parrot/config/inter/encoding.pm	309	400	
==>use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::C <==
40	/Users/nnunley/parrot/config/inter/ops.pm	284	375	
==>use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::C <==
40	/Users/nnunley/parrot/config/inter/progs.pm	423	514	
==>use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::C <==
40	/Users/nnunley/parrot/config/inter/shlibs.pm	583	674	
==>use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::C <==
40	/Users/nnunley/parrot/config/inter/types.pm	335	426	
==>use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::C <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412987	413312	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414114	414439	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415241	415566	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416369	416694	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417496	417821	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418624	418949	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419752	420077	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420881	421206	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973072	973395	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974201	974524	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975330	975653	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976460	976783	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977589	977912	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978719	979042	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979849	980172	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980980	981303	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982109	982432	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983239	983562	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984369	984692	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985500	985823	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986630	986953	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987761	988084	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988892	989215	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	990024	990347	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991160	991483	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992297	992620	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993434	993757	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994572	994895	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995709	996032	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996847	997170	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997985	998308	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999124	999447	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000261	1000584	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001399	1001722	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002537	1002860	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003676	1003999	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004814	1005137	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005953	1006276	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007092	1007415	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008232	1008555	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412999	413337	
==>{{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414126	414464	
==>{{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415253	415591	
==>{{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416381	416719	
==>{{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417508	417846	
==>{{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418636	418974	
==>{{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419764	420102	
==>{{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420893	421231	
==>{{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973084	973420	
==>{{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974213	974549	
==>{{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975342	975678	
==>{{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976472	976808	
==>{{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977601	977937	
==>{{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978731	979067	
==>{{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979861	980197	
==>{{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980992	981328	
==>{{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982121	982457	
==>{{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983251	983587	
==>{{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984381	984717	
==>{{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985512	985848	
==>{{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986642	986978	
==>{{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987773	988109	
==>{{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988904	989240	
==>{{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	990036	990372	
==>{{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991172	991508	
==>{{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992309	992645	
==>{{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993446	993782	
==>{{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994584	994920	
==>{{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995721	996057	
==>{{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996859	997195	
==>{{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997997	998333	
==>{{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999136	999472	
==>{{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000273	1000609	
==>{{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001411	1001747	
==>{{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002549	1002885	
==>{{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003688	1004024	
==>{{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004826	1005162	
==>{{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005965	1006301	
==>{{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007104	1007440	
==>{{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008244	1008580	
==>{{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730191	730434	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730926	731169	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731662	731905	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732407	732650	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733153	733396	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733916	734159	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734680	734923	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735415	735658	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736151	736394	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736896	737139	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737642	737885	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738405	738648	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739169	739412	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739946	740189	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740723	740966	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741458	741701	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742220	742463	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742985	743228	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743751	743994	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744516	744759	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745282	745525	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746018	746261	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	751487	751730	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785531	785774	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786441	786684	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787352	787595	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788261	788504	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789171	789414	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790080	790323	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790990	791233	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791896	792139	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805456	805699	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806361	806604	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807267	807510	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808171	808414	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809076	809319	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809980	810223	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810885	811128	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811786	812029	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
40	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26886	27016	
==>,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 83
		ACTIONS => {
			"-" => 24,
			'NAM <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412990	413320	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414117	414447	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415244	415574	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416372	416702	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417499	417829	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418627	418957	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419755	420085	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420884	421214	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973075	973403	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974204	974532	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975333	975661	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976463	976791	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977592	977920	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978722	979050	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979852	980180	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980983	981311	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982112	982440	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983242	983570	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984372	984700	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985503	985831	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986633	986961	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987764	988092	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988895	989223	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	990027	990355	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991163	991491	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992300	992628	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993437	993765	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994575	994903	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995712	996040	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996850	997178	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997988	998316	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999127	999455	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000264	1000592	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001402	1001730	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002540	1002868	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003679	1004007	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004817	1005145	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005956	1006284	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007095	1007423	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008235	1008563	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
40	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	231	326	
==>06-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct:: <==
40	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	245	340	
==>06-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct:: <==
40	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	243	338	
==>06-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct:: <==
40	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	239	334	
==>06-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct:: <==
40	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	247	342	
==>06-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct:: <==
40	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	231	326	
==>06-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct:: <==
40	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	231	326	
==>06-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct:: <==
40	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	244	339	
==>06-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct:: <==
40	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	238	333	
==>06-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct:: <==
40	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	238	333	
==>06-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct:: <==
40	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	235	330	
==>06-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct:: <==
40	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	229	324	
==>06-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct:: <==
40	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	239	334	
==>06-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct:: <==
40	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	245	340	
==>06-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct:: <==
40	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	235	330	
==>06-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct:: <==
40	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	245	340	
==>06-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct:: <==
40	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	237	332	
==>06-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct:: <==
40	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	236	331	
==>06-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct:: <==
40	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	238	333	
==>06-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct:: <==
40	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	240	335	
==>06-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct:: <==
40	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	240	335	
==>06-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct:: <==
40	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	238	333	
==>06-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct:: <==
40	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	248	343	
==>06-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct:: <==
40	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	227	322	
==>06-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct:: <==
40	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	235	330	
==>06-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct:: <==
40	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	247	342	
==>06-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct:: <==
40	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	239	334	
==>06-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct:: <==
40	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	241	336	
==>06-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct:: <==
40	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	235	330	
==>06-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct:: <==
40	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	245	340	
==>06-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct:: <==
40	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	235	330	
==>06-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct:: <==
40	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	245	340	
==>06-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct:: <==
40	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	249	344	
==>06-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct:: <==
40	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	233	328	
==>06-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct:: <==
40	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	239	334	
==>06-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct:: <==
40	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	225	320	
==>06-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct:: <==
40	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	236	331	
==>06-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct:: <==
40	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	234	329	
==>06-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct:: <==
40	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	228	323	
==>06-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct:: <==
40	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	234	329	
==>06-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct:: <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413013	413374	
==>}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414140	414501	
==>}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415267	415628	
==>}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416395	416756	
==>}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417522	417883	
==>}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418650	419011	
==>}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419778	420139	
==>}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420907	421268	
==>}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973098	973457	
==>}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974227	974586	
==>}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975356	975715	
==>}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976486	976845	
==>}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977615	977974	
==>}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978745	979104	
==>}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979875	980234	
==>}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981006	981365	
==>}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982135	982494	
==>}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983265	983624	
==>}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984395	984754	
==>}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985526	985885	
==>}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986656	987015	
==>}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987787	988146	
==>}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988918	989277	
==>}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	990050	990409	
==>}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991186	991545	
==>}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992323	992682	
==>}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993460	993819	
==>}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994598	994957	
==>}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995735	996094	
==>}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996873	997232	
==>}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	998011	998370	
==>}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999150	999509	
==>}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000287	1000646	
==>}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001425	1001784	
==>}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002563	1002922	
==>}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003702	1004061	
==>}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004840	1005199	
==>}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005979	1006338	
==>}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007118	1007477	
==>}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008258	1008617	
==>}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413022	413404	
==>}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414149	414531	
==>}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415276	415658	
==>}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416404	416786	
==>}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417531	417913	
==>}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418659	419041	
==>}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419787	420169	
==>}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420916	421298	
==>}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973107	973487	
==>}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974236	974616	
==>}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975365	975745	
==>}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976495	976875	
==>}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977624	978004	
==>}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978754	979134	
==>}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979884	980264	
==>}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981015	981395	
==>}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982144	982524	
==>}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983274	983654	
==>}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984404	984784	
==>}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985535	985915	
==>}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986665	987045	
==>}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987796	988176	
==>}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988927	989307	
==>}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	990059	990439	
==>}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991195	991575	
==>}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992332	992712	
==>}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993469	993849	
==>}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994607	994987	
==>}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995744	996124	
==>}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996882	997262	
==>}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	998020	998400	
==>}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999159	999539	
==>}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000296	1000676	
==>}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001434	1001814	
==>}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002572	1002952	
==>}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003711	1004091	
==>}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004849	1005229	
==>}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005988	1006368	
==>}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007127	1007507	
==>}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
40	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008267	1008647	
==>}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
39	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	106608	106924	
==>,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
39	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107461	107777	
==>,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
39	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108315	108631	
==>,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
39	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12055	12189	
==>=> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' <==
39	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12707	12841	
==>=> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' <==
39	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14195	14329	
==>=> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' <==
39	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14684	14818	
==>=> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' <==
39	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16700	16834	
==>=> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' <==
39	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17117	17251	
==>=> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' <==
39	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17734	17868	
==>=> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' <==
39	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18151	18285	
==>=> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' <==
39	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19338	19472	
==>=> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' <==
39	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20354	20488	
==>=> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' <==
39	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21028	21162	
==>=> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' <==
39	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21503	21637	
==>=> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' <==
39	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22184	22318	
==>=> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' <==
39	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22602	22736	
==>=> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' <==
39	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23020	23154	
==>=> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' <==
39	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23438	23572	
==>=> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' <==
39	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23856	23990	
==>=> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' <==
39	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24274	24408	
==>=> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' <==
39	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24692	24826	
==>=> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' <==
39	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25110	25244	
==>=> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' <==
39	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25528	25662	
==>=> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' <==
39	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25946	26080	
==>=> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' <==
39	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26584	26718	
==>=> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' <==
39	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27002	27136	
==>=> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' <==
39	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27420	27554	
==>=> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' <==
39	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27838	27972	
==>=> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' <==
39	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28256	28390	
==>=> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' <==
39	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28711	28845	
==>=> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' <==
39	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33018	33152	
==>=> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' <==
39	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33460	33594	
==>=> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' <==
39	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37065	37199	
==>=> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' <==
39	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38386	38520	
==>=> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' <==
39	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39254	39388	
==>=> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' <==
39	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40266	40400	
==>=> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' <==
39	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43109	43243	
==>=> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' <==
39	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43698	43832	
==>=> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' <==
39	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730186	730433	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
39	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730921	731168	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
39	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731657	731904	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
39	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732402	732649	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
39	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733148	733395	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
39	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733911	734158	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
39	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734675	734922	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
39	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735410	735657	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
39	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736146	736393	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
39	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736891	737138	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
39	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737637	737884	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
39	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738400	738647	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
39	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739164	739411	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
39	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739941	740188	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
39	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740718	740965	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
39	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741453	741700	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
39	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742215	742462	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
39	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742980	743227	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
39	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743746	743993	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
39	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744511	744758	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
39	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745277	745524	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
39	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746013	746260	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
39	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	751482	751729	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
39	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785526	785773	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
39	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786436	786683	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
39	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787347	787594	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
39	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788256	788503	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
39	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789166	789413	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
39	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790075	790322	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
39	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790985	791232	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
39	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791891	792138	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
39	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805451	805698	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
39	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806356	806603	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
39	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807262	807509	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
39	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808166	808413	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
39	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809071	809318	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
39	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809975	810222	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
39	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810880	811127	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
39	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811781	812028	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12103	12239	
==>" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUN <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12755	12891	
==>" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUN <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14243	14379	
==>" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUN <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14732	14868	
==>" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUN <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16213	16349	
==>" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUN <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16748	16884	
==>" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUN <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17165	17301	
==>" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUN <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17782	17918	
==>" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUN <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18199	18335	
==>" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUN <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19386	19522	
==>" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUN <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20402	20538	
==>" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUN <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21076	21212	
==>" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUN <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21551	21687	
==>" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUN <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22232	22368	
==>" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUN <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22650	22786	
==>" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUN <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23068	23204	
==>" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUN <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23486	23622	
==>" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUN <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23904	24040	
==>" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUN <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24322	24458	
==>" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUN <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24740	24876	
==>" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUN <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25158	25294	
==>" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUN <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25576	25712	
==>" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUN <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25994	26130	
==>" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUN <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26632	26768	
==>" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUN <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27050	27186	
==>" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUN <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27468	27604	
==>" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUN <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27886	28022	
==>" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUN <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28304	28440	
==>" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUN <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28759	28895	
==>" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUN <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33066	33202	
==>" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUN <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33508	33644	
==>" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUN <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37113	37249	
==>" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUN <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38434	38570	
==>" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUN <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39302	39438	
==>" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUN <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40314	40450	
==>" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUN <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43157	43293	
==>" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUN <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43746	43882	
==>" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUN <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	53568	53700	
==>p( $_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 62
		 'exp', 3,
sub
#line 357 "Lua\lua51.yp"
{
            BuildBinop( <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12118	12248	
==>OT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12770	12900	
==>OT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14258	14388	
==>OT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14747	14877	
==>OT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16228	16358	
==>OT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16763	16893	
==>OT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17180	17310	
==>OT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17797	17927	
==>OT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18214	18344	
==>OT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19401	19531	
==>OT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20417	20547	
==>OT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21091	21221	
==>OT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21566	21696	
==>OT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22247	22377	
==>OT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22665	22795	
==>OT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23083	23213	
==>OT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23501	23631	
==>OT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23919	24049	
==>OT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24337	24467	
==>OT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24755	24885	
==>OT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25173	25303	
==>OT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25591	25721	
==>OT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26009	26139	
==>OT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26647	26777	
==>OT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27065	27195	
==>OT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27483	27613	
==>OT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27901	28031	
==>OT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28319	28449	
==>OT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28774	28904	
==>OT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33081	33211	
==>OT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33523	33653	
==>OT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37128	37258	
==>OT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38449	38579	
==>OT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39317	39447	
==>OT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40329	40459	
==>OT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43172	43302	
==>OT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43761	43891	
==>OT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => <==
38	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9518	9612	
==>tim' or $tagname eq 'X';
}

=item C<process_text_token($token)>

Processes the specified text t <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12087	12223	
==>E' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12739	12875	
==>E' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14227	14363	
==>E' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14716	14852	
==>E' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16197	16333	
==>E' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16732	16868	
==>E' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17149	17285	
==>E' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17766	17902	
==>E' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18183	18319	
==>E' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19370	19506	
==>E' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20386	20522	
==>E' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21060	21196	
==>E' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21535	21671	
==>E' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22216	22352	
==>E' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22634	22770	
==>E' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23052	23188	
==>E' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23470	23606	
==>E' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23888	24024	
==>E' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24306	24442	
==>E' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24724	24860	
==>E' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25142	25278	
==>E' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25560	25696	
==>E' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25978	26114	
==>E' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26616	26752	
==>E' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27034	27170	
==>E' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27452	27588	
==>E' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27870	28006	
==>E' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28288	28424	
==>E' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28743	28879	
==>E' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33050	33186	
==>E' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33492	33628	
==>E' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37097	37233	
==>E' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38418	38554	
==>E' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39286	39422	
==>E' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40298	40434	
==>E' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43141	43277	
==>E' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43730	43866	
==>E' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' <==
38	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	661	793	
==>}

# Return a hash reference where the macro_name is the key
macros:             macro(s)
                  { my $dummy = { map { $_- <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	53598	53741	
==>);
        }
	],
	[#Rule 62
		 'exp', 3,
sub
#line 357 "Lua\lua51.yp"
{
            BuildBinop( $_[0], $_[1], $_[2], $_[3] );
        } <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12093	12229	
==>25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33 <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12745	12881	
==>25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33 <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14233	14369	
==>25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33 <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14722	14858	
==>25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33 <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16203	16339	
==>25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33 <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16738	16874	
==>25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33 <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17155	17291	
==>25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33 <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17772	17908	
==>25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33 <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18189	18325	
==>25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33 <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19376	19512	
==>25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33 <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20392	20528	
==>25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33 <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21066	21202	
==>25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33 <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21541	21677	
==>25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33 <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22222	22358	
==>25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33 <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22640	22776	
==>25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33 <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23058	23194	
==>25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33 <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23476	23612	
==>25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33 <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23894	24030	
==>25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33 <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24312	24448	
==>25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33 <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24730	24866	
==>25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33 <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25148	25284	
==>25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33 <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25566	25702	
==>25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33 <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25984	26120	
==>25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33 <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26622	26758	
==>25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33 <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27040	27176	
==>25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33 <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27458	27594	
==>25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33 <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27876	28012	
==>25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33 <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28294	28430	
==>25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33 <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28749	28885	
==>25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33 <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33056	33192	
==>25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33 <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33498	33634	
==>25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33 <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37103	37239	
==>25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33 <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38424	38560	
==>25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33 <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39292	39428	
==>25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33 <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40304	40440	
==>25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33 <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43147	43283	
==>25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33 <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43736	43872	
==>25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33 <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12110	12244	
==>,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12762	12896	
==>,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14250	14384	
==>,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14739	14873	
==>,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16220	16354	
==>,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16755	16889	
==>,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17172	17306	
==>,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17789	17923	
==>,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18206	18340	
==>,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19393	19527	
==>,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20409	20543	
==>,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21083	21217	
==>,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21558	21692	
==>,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22239	22373	
==>,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22657	22791	
==>,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23075	23209	
==>,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23493	23627	
==>,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23911	24045	
==>,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24329	24463	
==>,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24747	24881	
==>,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25165	25299	
==>,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25583	25717	
==>,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26001	26135	
==>,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26639	26773	
==>,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27057	27191	
==>,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27475	27609	
==>,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27893	28027	
==>,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28311	28445	
==>,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28766	28900	
==>,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33073	33207	
==>,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33515	33649	
==>,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37120	37254	
==>,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38441	38575	
==>,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39309	39443	
==>,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40321	40455	
==>,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43164	43298	
==>,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43753	43887	
==>,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION <==
38	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	155	261	
==>rot::Test::Lua;

use strict;

use Data::Dumper;
use File::Basename;

require Parrot::Test;

=head1 <==
38	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	37685	37839	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS",
                  "NAME" => "rethrow",
                  "FLAGS" => <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12083	12219	
==>'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FA <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12735	12871	
==>'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FA <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14223	14359	
==>'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FA <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14712	14848	
==>'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FA <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16193	16329	
==>'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FA <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16728	16864	
==>'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FA <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17145	17281	
==>'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FA <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17762	17898	
==>'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FA <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18179	18315	
==>'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FA <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19366	19502	
==>'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FA <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20382	20518	
==>'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FA <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21056	21192	
==>'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FA <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21531	21667	
==>'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FA <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22212	22348	
==>'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FA <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22630	22766	
==>'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FA <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23048	23184	
==>'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FA <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23466	23602	
==>'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FA <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23884	24020	
==>'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FA <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24302	24438	
==>'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FA <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24720	24856	
==>'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FA <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25138	25274	
==>'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FA <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25556	25692	
==>'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FA <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25974	26110	
==>'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FA <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26612	26748	
==>'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FA <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27030	27166	
==>'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FA <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27448	27584	
==>'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FA <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27866	28002	
==>'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FA <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28284	28420	
==>'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FA <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28739	28875	
==>'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FA <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33046	33182	
==>'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FA <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33488	33624	
==>'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FA <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37093	37229	
==>'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FA <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38414	38550	
==>'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FA <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39282	39418	
==>'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FA <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40294	40430	
==>'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FA <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43137	43273	
==>'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FA <==
38	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43726	43862	
==>'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FA <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12116	12247	
==>'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12768	12899	
==>'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14256	14387	
==>'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14745	14876	
==>'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16226	16357	
==>'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16761	16892	
==>'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17178	17309	
==>'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17795	17926	
==>'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18212	18343	
==>'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19399	19530	
==>'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20415	20546	
==>'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21089	21220	
==>'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21564	21695	
==>'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22245	22376	
==>'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22663	22794	
==>'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23081	23212	
==>'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23499	23630	
==>'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23917	24048	
==>'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24335	24466	
==>'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24753	24884	
==>'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25171	25302	
==>'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25589	25720	
==>'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26007	26138	
==>'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26645	26776	
==>'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27063	27194	
==>'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27481	27612	
==>'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27899	28030	
==>'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28317	28448	
==>'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28772	28903	
==>'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33079	33210	
==>'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33521	33652	
==>'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37126	37257	
==>'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38447	38578	
==>'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39315	39446	
==>'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40327	40458	
==>'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43170	43301	
==>'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43759	43890	
==>'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12094	12238	
==>5,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FU <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12746	12890	
==>5,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FU <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14234	14378	
==>5,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FU <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14723	14867	
==>5,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FU <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16204	16348	
==>5,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FU <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16739	16883	
==>5,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FU <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17156	17300	
==>5,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FU <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17773	17917	
==>5,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FU <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18190	18334	
==>5,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FU <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19377	19521	
==>5,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FU <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20393	20537	
==>5,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FU <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21067	21211	
==>5,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FU <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21542	21686	
==>5,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FU <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22223	22367	
==>5,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FU <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22641	22785	
==>5,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FU <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23059	23203	
==>5,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FU <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23477	23621	
==>5,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FU <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23895	24039	
==>5,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FU <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24313	24457	
==>5,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FU <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24731	24875	
==>5,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FU <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25149	25293	
==>5,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FU <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25567	25711	
==>5,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FU <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25985	26129	
==>5,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FU <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26623	26767	
==>5,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FU <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27041	27185	
==>5,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FU <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27459	27603	
==>5,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FU <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27877	28021	
==>5,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FU <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28295	28439	
==>5,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FU <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28750	28894	
==>5,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FU <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33057	33201	
==>5,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FU <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33499	33643	
==>5,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FU <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37104	37248	
==>5,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FU <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38425	38569	
==>5,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FU <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39293	39437	
==>5,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FU <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40305	40449	
==>5,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FU <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43148	43292	
==>5,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FU <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43737	43881	
==>5,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FU <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12142	12271	
==>39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12794	12923	
==>39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14282	14411	
==>39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14771	14900	
==>39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16787	16916	
==>39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17204	17333	
==>39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17821	17950	
==>39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18238	18367	
==>39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19425	19554	
==>39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20441	20570	
==>39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21115	21244	
==>39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21590	21719	
==>39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22271	22400	
==>39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22689	22818	
==>39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23107	23236	
==>39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23525	23654	
==>39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23943	24072	
==>39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24361	24490	
==>39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24779	24908	
==>39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25197	25326	
==>39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25615	25744	
==>39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26033	26162	
==>39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26671	26800	
==>39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27089	27218	
==>39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27507	27636	
==>39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27925	28054	
==>39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28343	28472	
==>39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28798	28927	
==>39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33105	33234	
==>39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33547	33676	
==>39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37152	37281	
==>39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38473	38602	
==>39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39341	39470	
==>39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40353	40482	
==>39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43196	43325	
==>39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43785	43914	
==>39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36 <==
37	/Users/nnunley/parrot/lib/Test/Simple.pm	2729	2827	
==>er run Test::Simple
will throw a warning and exit with 255.  If the test died, even after
having su <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12084	12222	
==>TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12736	12874	
==>TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14224	14362	
==>TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14713	14851	
==>TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16194	16332	
==>TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16729	16867	
==>TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17146	17284	
==>TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17763	17901	
==>TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18180	18318	
==>TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19367	19505	
==>TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20383	20521	
==>TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21057	21195	
==>TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21532	21670	
==>TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22213	22351	
==>TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22631	22769	
==>TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23049	23187	
==>TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23467	23605	
==>TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23885	24023	
==>TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24303	24441	
==>TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24721	24859	
==>TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25139	25277	
==>TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25557	25695	
==>TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25975	26113	
==>TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26613	26751	
==>TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27031	27169	
==>TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27449	27587	
==>TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27867	28005	
==>TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28285	28423	
==>TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28740	28878	
==>TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33047	33185	
==>TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33489	33627	
==>TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37094	37232	
==>TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38415	38553	
==>TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39283	39421	
==>TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40295	40433	
==>TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43138	43276	
==>TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43727	43865	
==>TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12135	12264	
==>.." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12787	12916	
==>.." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14275	14404	
==>.." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14764	14893	
==>.." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16780	16909	
==>.." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17197	17326	
==>.." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17814	17943	
==>.." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18231	18360	
==>.." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19418	19547	
==>.." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20434	20563	
==>.." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21108	21237	
==>.." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21583	21712	
==>.." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22264	22393	
==>.." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22682	22811	
==>.." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23100	23229	
==>.." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23518	23647	
==>.." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23936	24065	
==>.." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24354	24483	
==>.." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24772	24901	
==>.." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25190	25319	
==>.." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25608	25737	
==>.." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26026	26155	
==>.." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26664	26793	
==>.." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27082	27211	
==>.." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27500	27629	
==>.." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27918	28047	
==>.." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28336	28465	
==>.." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28791	28920	
==>.." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33098	33227	
==>.." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33540	33669	
==>.." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37145	37274	
==>.." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38466	38595	
==>.." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39334	39463	
==>.." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40346	40475	
==>.." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43189	43318	
==>.." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43778	43907	
==>.." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER <==
37	/Users/nnunley/parrot/lib/Parrot/Op.pm	5886	5988	
==>'auto';

    return $body;
}

# Called from rewrite_body() to perform the actual substitutions.
sub _su <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12077	12218	
==>,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'F <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12729	12870	
==>,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'F <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14217	14358	
==>,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'F <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14706	14847	
==>,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'F <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16187	16328	
==>,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'F <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16722	16863	
==>,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'F <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17139	17280	
==>,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'F <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17756	17897	
==>,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'F <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18173	18314	
==>,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'F <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19360	19501	
==>,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'F <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20376	20517	
==>,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'F <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21050	21191	
==>,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'F <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21525	21666	
==>,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'F <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22206	22347	
==>,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'F <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22624	22765	
==>,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'F <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23042	23183	
==>,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'F <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23460	23601	
==>,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'F <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23878	24019	
==>,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'F <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24296	24437	
==>,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'F <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24714	24855	
==>,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'F <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25132	25273	
==>,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'F <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25550	25691	
==>,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'F <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25968	26109	
==>,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'F <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26606	26747	
==>,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'F <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27024	27165	
==>,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'F <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27442	27583	
==>,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'F <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27860	28001	
==>,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'F <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28278	28419	
==>,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'F <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28733	28874	
==>,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'F <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33040	33181	
==>,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'F <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33482	33623	
==>,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'F <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37087	37228	
==>,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'F <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38408	38549	
==>,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'F <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39276	39417	
==>,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'F <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40288	40429	
==>,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'F <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43131	43272	
==>,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'F <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43720	43861	
==>,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'F <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12088	12228	
==>' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 3 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12740	12880	
==>' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 3 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14228	14368	
==>' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 3 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14717	14857	
==>' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 3 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16198	16338	
==>' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 3 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16733	16873	
==>' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 3 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17150	17290	
==>' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 3 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17767	17907	
==>' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 3 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18184	18324	
==>' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 3 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19371	19511	
==>' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 3 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20387	20527	
==>' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 3 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21061	21201	
==>' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 3 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21536	21676	
==>' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 3 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22217	22357	
==>' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 3 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22635	22775	
==>' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 3 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23053	23193	
==>' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 3 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23471	23611	
==>' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 3 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23889	24029	
==>' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 3 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24307	24447	
==>' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 3 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24725	24865	
==>' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 3 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25143	25283	
==>' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 3 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25561	25701	
==>' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 3 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25979	26119	
==>' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 3 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26617	26757	
==>' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 3 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27035	27175	
==>' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 3 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27453	27593	
==>' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 3 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27871	28011	
==>' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 3 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28289	28429	
==>' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 3 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28744	28884	
==>' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 3 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33051	33191	
==>' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 3 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33493	33633	
==>' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 3 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37098	37238	
==>' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 3 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38419	38559	
==>' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 3 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39287	39427	
==>' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 3 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40299	40439	
==>' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 3 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43142	43282	
==>' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 3 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43731	43871	
==>' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 3 <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12069	12206	
==>ME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12721	12858	
==>ME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14209	14346	
==>ME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14698	14835	
==>ME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16714	16851	
==>ME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17131	17268	
==>ME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17748	17885	
==>ME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18165	18302	
==>ME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19352	19489	
==>ME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20368	20505	
==>ME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21042	21179	
==>ME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21517	21654	
==>ME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22198	22335	
==>ME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22616	22753	
==>ME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23034	23171	
==>ME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23452	23589	
==>ME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23870	24007	
==>ME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24288	24425	
==>ME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24706	24843	
==>ME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25124	25261	
==>ME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25542	25679	
==>ME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25960	26097	
==>ME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26598	26735	
==>ME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27016	27153	
==>ME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27434	27571	
==>ME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27852	27989	
==>ME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28270	28407	
==>ME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28725	28862	
==>ME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33032	33169	
==>ME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33474	33611	
==>ME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37079	37216	
==>ME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38400	38537	
==>ME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39268	39405	
==>ME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40280	40417	
==>ME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43123	43260	
==>ME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" = <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43712	43849	
==>ME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" = <==
37	/Users/nnunley/parrot/config/init/miniparrot.pm	1954	2085	
==>under ANSI C89.
        # so we will have to check every byte.
        ptr_alignment => 1
    );

    #Allow ANSI headers only
    f <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12039	12175	
==>NS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12691	12827	
==>NS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14179	14315	
==>NS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14668	14804	
==>NS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16684	16820	
==>NS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17101	17237	
==>NS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17718	17854	
==>NS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18135	18271	
==>NS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19322	19458	
==>NS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20338	20474	
==>NS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21012	21148	
==>NS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21487	21623	
==>NS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22168	22304	
==>NS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22586	22722	
==>NS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23004	23140	
==>NS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23422	23558	
==>NS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23840	23976	
==>NS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24258	24394	
==>NS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24676	24812	
==>NS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25094	25230	
==>NS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25512	25648	
==>NS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25930	26066	
==>NS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26568	26704	
==>NS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26986	27122	
==>NS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27404	27540	
==>NS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27822	27958	
==>NS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28240	28376	
==>NS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28695	28831	
==>NS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33002	33138	
==>NS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33444	33580	
==>NS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37049	37185	
==>NS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38370	38506	
==>NS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39238	39374	
==>NS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40250	40386	
==>NS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43093	43229	
==>NS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43682	43818	
==>NS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => <==
37	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	751	854	
==>ub output_match_failed {
    return ('set <rx_match>["!POS"], <rx_pos>',
            'set <rx_match>["!R <==
37	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179837	180120	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "l <==
37	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180732	181015	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "l <==
37	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181628	181911	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "l <==
37	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182524	182807	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "l <==
37	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183419	183702	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "l <==
37	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184315	184598	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "l <==
37	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185211	185494	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "l <==
37	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186140	186423	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "l <==
37	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187070	187353	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "l <==
37	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188000	188283	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "l <==
37	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188941	189224	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "l <==
37	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189881	190164	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "l <==
37	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190822	191105	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "l <==
37	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191761	192044	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "l <==
37	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192701	192984	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "l <==
37	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193679	193962	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "l <==
37	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194658	194941	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "l <==
37	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	195606	195889	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "l <==
37	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196554	196837	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "l <==
37	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197450	197733	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "l <==
37	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198347	198630	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "l <==
37	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199244	199527	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "l <==
37	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200140	200423	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "l <==
37	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201037	201320	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "l <==
37	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201934	202217	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "l <==
37	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202864	203147	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "l <==
37	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203795	204078	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "l <==
37	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204726	205009	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "l <==
37	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205668	205951	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "l <==
37	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206609	206892	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "l <==
37	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207551	207834	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "l <==
37	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208491	208774	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "l <==
37	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209432	209715	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "l <==
37	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210411	210694	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "l <==
37	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211391	211674	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "l <==
37	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	212340	212623	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "l <==
37	/Users/nnunley/parrot/tools/util/pirtidy.pl	203	309	
==>on = 'tdy';
my $verbose   = 'that is SO true.';

# loop over all the files specified on the command line
fo <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12119	12252	
==>T' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34, <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12771	12904	
==>T' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34, <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14259	14392	
==>T' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34, <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14748	14881	
==>T' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34, <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16229	16362	
==>T' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34, <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16764	16897	
==>T' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34, <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17181	17314	
==>T' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34, <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17798	17931	
==>T' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34, <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18215	18348	
==>T' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34, <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19402	19535	
==>T' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34, <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20418	20551	
==>T' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34, <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21092	21225	
==>T' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34, <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21567	21700	
==>T' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34, <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22248	22381	
==>T' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34, <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22666	22799	
==>T' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34, <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23084	23217	
==>T' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34, <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23502	23635	
==>T' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34, <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23920	24053	
==>T' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34, <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24338	24471	
==>T' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34, <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24756	24889	
==>T' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34, <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25174	25307	
==>T' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34, <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25592	25725	
==>T' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34, <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26010	26143	
==>T' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34, <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26648	26781	
==>T' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34, <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27066	27199	
==>T' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34, <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27484	27617	
==>T' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34, <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27902	28035	
==>T' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34, <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28320	28453	
==>T' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34, <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28775	28908	
==>T' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34, <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33082	33215	
==>T' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34, <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33524	33657	
==>T' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34, <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37129	37262	
==>T' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34, <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38450	38583	
==>T' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34, <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39318	39451	
==>T' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34, <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40330	40463	
==>T' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34, <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43173	43306	
==>T' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34, <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43762	43895	
==>T' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34, <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12105	12243	
==>=> 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTIO <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12757	12895	
==>=> 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTIO <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14245	14383	
==>=> 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTIO <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14734	14872	
==>=> 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTIO <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16215	16353	
==>=> 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTIO <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16750	16888	
==>=> 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTIO <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17167	17305	
==>=> 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTIO <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17784	17922	
==>=> 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTIO <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18201	18339	
==>=> 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTIO <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19388	19526	
==>=> 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTIO <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20404	20542	
==>=> 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTIO <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21078	21216	
==>=> 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTIO <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21553	21691	
==>=> 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTIO <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22234	22372	
==>=> 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTIO <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22652	22790	
==>=> 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTIO <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23070	23208	
==>=> 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTIO <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23488	23626	
==>=> 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTIO <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23906	24044	
==>=> 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTIO <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24324	24462	
==>=> 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTIO <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24742	24880	
==>=> 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTIO <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25160	25298	
==>=> 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTIO <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25578	25716	
==>=> 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTIO <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25996	26134	
==>=> 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTIO <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26634	26772	
==>=> 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTIO <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27052	27190	
==>=> 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTIO <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27470	27608	
==>=> 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTIO <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27888	28026	
==>=> 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTIO <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28306	28444	
==>=> 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTIO <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28761	28899	
==>=> 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTIO <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33068	33206	
==>=> 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTIO <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33510	33648	
==>=> 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTIO <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37115	37253	
==>=> 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTIO <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38436	38574	
==>=> 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTIO <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39304	39442	
==>=> 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTIO <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40316	40454	
==>=> 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTIO <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43159	43297	
==>=> 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTIO <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43748	43886	
==>=> 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTIO <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12035	12170	
==>CTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			" <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12687	12822	
==>CTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			" <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14175	14310	
==>CTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			" <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14664	14799	
==>CTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			" <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16680	16815	
==>CTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			" <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17097	17232	
==>CTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			" <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17714	17849	
==>CTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			" <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18131	18266	
==>CTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			" <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19318	19453	
==>CTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			" <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20334	20469	
==>CTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			" <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21008	21143	
==>CTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			" <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21483	21618	
==>CTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			" <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22164	22299	
==>CTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			" <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22582	22717	
==>CTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			" <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23000	23135	
==>CTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			" <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23418	23553	
==>CTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			" <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23836	23971	
==>CTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			" <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24254	24389	
==>CTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			" <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24672	24807	
==>CTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			" <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25090	25225	
==>CTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			" <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25508	25643	
==>CTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			" <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25926	26061	
==>CTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			" <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26564	26699	
==>CTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			" <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26982	27117	
==>CTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			" <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27400	27535	
==>CTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			" <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27818	27953	
==>CTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			" <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28236	28371	
==>CTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			" <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28691	28826	
==>CTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			" <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	32998	33133	
==>CTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			" <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33440	33575	
==>CTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			" <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37045	37180	
==>CTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			" <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38366	38501	
==>CTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			" <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39234	39369	
==>CTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			" <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40246	40381	
==>CTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			" <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43089	43224	
==>CTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			" <==
37	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43678	43813	
==>CTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			" <==
37	/Users/nnunley/parrot/lib/Test/More.pm	31651	31769	
==>? $a2->{$k} : $DNE;

        push @Data_Stack, { type => 'HASH', idx => $k, vals => [$e1, $e2] };
        $ok = _deep_c <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12163	12300	
==>9,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12815	12952	
==>9,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14303	14440	
==>9,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14792	14929	
==>9,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16808	16945	
==>9,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17225	17362	
==>9,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17842	17979	
==>9,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19446	19583	
==>9,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20462	20599	
==>9,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21136	21273	
==>9,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21611	21748	
==>9,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22292	22429	
==>9,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22710	22847	
==>9,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23128	23265	
==>9,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23546	23683	
==>9,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23964	24101	
==>9,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24382	24519	
==>9,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24800	24937	
==>9,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25218	25355	
==>9,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25636	25773	
==>9,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26054	26191	
==>9,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26692	26829	
==>9,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27110	27247	
==>9,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27528	27665	
==>9,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27946	28083	
==>9,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28364	28501	
==>9,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28819	28956	
==>9,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33126	33263	
==>9,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33568	33705	
==>9,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37173	37310	
==>9,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38494	38631	
==>9,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39362	39499	
==>9,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40374	40511	
==>9,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43217	43354	
==>9,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43806	43943	
==>9,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp <==
36	/Users/nnunley/parrot/tools/dev/parrotbench.pl	3798	3904	
==>if ( ! @{ $cfg{run_bench} } ) {
    my @regexes = grep defined, $ini->val( regexes => 'include');
    @{ $c <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12123	12263	
==>> 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBE <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12775	12915	
==>> 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBE <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14263	14403	
==>> 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBE <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14752	14892	
==>> 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBE <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16768	16908	
==>> 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBE <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17185	17325	
==>> 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBE <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17802	17942	
==>> 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBE <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18219	18359	
==>> 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBE <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19406	19546	
==>> 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBE <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20422	20562	
==>> 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBE <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21096	21236	
==>> 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBE <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21571	21711	
==>> 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBE <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22252	22392	
==>> 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBE <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22670	22810	
==>> 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBE <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23088	23228	
==>> 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBE <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23506	23646	
==>> 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBE <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23924	24064	
==>> 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBE <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24342	24482	
==>> 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBE <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24760	24900	
==>> 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBE <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25178	25318	
==>> 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBE <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25596	25736	
==>> 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBE <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26014	26154	
==>> 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBE <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26652	26792	
==>> 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBE <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27070	27210	
==>> 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBE <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27488	27628	
==>> 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBE <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27906	28046	
==>> 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBE <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28324	28464	
==>> 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBE <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28779	28919	
==>> 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBE <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33086	33226	
==>> 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBE <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33528	33668	
==>> 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBE <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37133	37273	
==>> 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBE <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38454	38594	
==>> 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBE <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39322	39462	
==>> 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBE <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40334	40474	
==>> 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBE <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43177	43317	
==>> 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBE <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43766	43906	
==>> 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBE <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12070	12217	
==>E' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			' <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12722	12869	
==>E' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			' <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14210	14357	
==>E' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			' <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14699	14846	
==>E' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			' <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16715	16862	
==>E' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			' <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17132	17279	
==>E' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			' <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17749	17896	
==>E' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			' <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18166	18313	
==>E' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			' <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19353	19500	
==>E' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			' <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20369	20516	
==>E' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			' <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21043	21190	
==>E' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			' <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21518	21665	
==>E' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			' <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22199	22346	
==>E' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			' <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22617	22764	
==>E' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			' <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23035	23182	
==>E' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			' <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23453	23600	
==>E' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			' <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23871	24018	
==>E' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			' <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24289	24436	
==>E' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			' <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24707	24854	
==>E' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			' <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25125	25272	
==>E' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			' <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25543	25690	
==>E' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			' <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25961	26108	
==>E' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			' <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26599	26746	
==>E' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			' <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27017	27164	
==>E' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			' <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27435	27582	
==>E' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			' <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27853	28000	
==>E' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			' <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28271	28418	
==>E' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			' <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28726	28873	
==>E' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			' <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33033	33180	
==>E' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			' <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33475	33622	
==>E' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			' <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37080	37227	
==>E' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			' <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38401	38548	
==>E' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			' <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39269	39416	
==>E' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			' <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40281	40428	
==>E' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			' <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43124	43271	
==>E' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			' <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43713	43860	
==>E' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			' <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12143	12276	
==>9,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		} <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12795	12928	
==>9,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		} <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14283	14416	
==>9,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		} <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14772	14905	
==>9,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		} <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16788	16921	
==>9,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		} <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17205	17338	
==>9,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		} <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17822	17955	
==>9,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		} <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19426	19559	
==>9,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		} <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20442	20575	
==>9,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		} <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21116	21249	
==>9,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		} <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21591	21724	
==>9,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		} <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22272	22405	
==>9,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		} <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22690	22823	
==>9,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		} <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23108	23241	
==>9,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		} <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23526	23659	
==>9,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		} <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23944	24077	
==>9,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		} <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24362	24495	
==>9,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		} <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24780	24913	
==>9,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		} <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25198	25331	
==>9,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		} <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25616	25749	
==>9,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		} <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26034	26167	
==>9,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		} <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26672	26805	
==>9,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		} <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27090	27223	
==>9,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		} <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27508	27641	
==>9,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		} <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27926	28059	
==>9,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		} <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28344	28477	
==>9,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		} <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28799	28932	
==>9,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		} <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33106	33239	
==>9,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		} <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33548	33681	
==>9,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		} <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37153	37286	
==>9,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		} <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38474	38607	
==>9,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		} <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39342	39475	
==>9,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		} <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40354	40487	
==>9,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		} <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43197	43330	
==>9,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		} <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43786	43919	
==>9,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		} <==
36	/Users/nnunley/parrot/tools/build/ops2pm.pl	8877	9005	
==>die "Can't open $file, error $!";
  $prev = -1;

  while (<OP>) {
    chomp;
    s/#.*$//;
    s/\s*$//;
    s/^\s*//;
    next u <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12034	12164	
==>ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29, <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12686	12816	
==>ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29, <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14174	14304	
==>ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29, <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14663	14793	
==>ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29, <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16679	16809	
==>ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29, <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17096	17226	
==>ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29, <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17713	17843	
==>ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29, <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18130	18260	
==>ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29, <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19317	19447	
==>ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29, <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20333	20463	
==>ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29, <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21007	21137	
==>ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29, <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21482	21612	
==>ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29, <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22163	22293	
==>ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29, <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22581	22711	
==>ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29, <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22999	23129	
==>ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29, <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23417	23547	
==>ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29, <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23835	23965	
==>ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29, <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24253	24383	
==>ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29, <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24671	24801	
==>ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29, <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25089	25219	
==>ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29, <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25507	25637	
==>ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29, <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25925	26055	
==>ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29, <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26563	26693	
==>ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29, <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26981	27111	
==>ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29, <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27399	27529	
==>ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29, <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27817	27947	
==>ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29, <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28235	28365	
==>ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29, <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28690	28820	
==>ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29, <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	32997	33127	
==>ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29, <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33439	33569	
==>ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29, <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37044	37174	
==>ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29, <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38365	38495	
==>ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29, <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39233	39363	
==>ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29, <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40245	40375	
==>ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29, <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43088	43218	
==>ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29, <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43677	43807	
==>ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29, <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12040	12188	
==>S => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12692	12840	
==>S => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14180	14328	
==>S => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14669	14817	
==>S => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16685	16833	
==>S => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17102	17250	
==>S => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17719	17867	
==>S => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18136	18284	
==>S => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19323	19471	
==>S => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20339	20487	
==>S => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21013	21161	
==>S => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21488	21636	
==>S => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22169	22317	
==>S => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22587	22735	
==>S => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23005	23153	
==>S => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23423	23571	
==>S => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23841	23989	
==>S => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24259	24407	
==>S => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24677	24825	
==>S => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25095	25243	
==>S => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25513	25661	
==>S => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25931	26079	
==>S => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26569	26717	
==>S => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26987	27135	
==>S => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27405	27553	
==>S => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27823	27971	
==>S => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28241	28389	
==>S => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28696	28844	
==>S => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33003	33151	
==>S => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33445	33593	
==>S => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37050	37198	
==>S => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38371	38519	
==>S => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39239	39387	
==>S => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40251	40399	
==>S => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43094	43242	
==>S => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43683	43831	
==>S => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12056	12204	
==>> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12708	12856	
==>> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14196	14344	
==>> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14685	14833	
==>> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16701	16849	
==>> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17118	17266	
==>> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17735	17883	
==>> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18152	18300	
==>> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19339	19487	
==>> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20355	20503	
==>> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21029	21177	
==>> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21504	21652	
==>> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22185	22333	
==>> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22603	22751	
==>> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23021	23169	
==>> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23439	23587	
==>> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23857	24005	
==>> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24275	24423	
==>> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24693	24841	
==>> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25111	25259	
==>> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25529	25677	
==>> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25947	26095	
==>> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26585	26733	
==>> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27003	27151	
==>> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27421	27569	
==>> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27839	27987	
==>> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28257	28405	
==>> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28712	28860	
==>> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33019	33167	
==>> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33461	33609	
==>> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37066	37214	
==>> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38387	38535	
==>> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39255	39403	
==>> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40267	40415	
==>> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43110	43258	
==>> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43699	43847	
==>> 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12170	12303	
==>"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12822	12955	
==>"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14310	14443	
==>"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14799	14932	
==>"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16815	16948	
==>"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17232	17365	
==>"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17849	17982	
==>"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19453	19586	
==>"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20469	20602	
==>"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21143	21276	
==>"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21618	21751	
==>"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22299	22432	
==>"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22717	22850	
==>"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23135	23268	
==>"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23553	23686	
==>"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23971	24104	
==>"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24389	24522	
==>"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24807	24940	
==>"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25225	25358	
==>"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25643	25776	
==>"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26061	26194	
==>"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26699	26832	
==>"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27117	27250	
==>"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27535	27668	
==>"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27953	28086	
==>"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28371	28504	
==>"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28826	28959	
==>"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33133	33266	
==>"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33575	33708	
==>"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37180	37313	
==>"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38501	38634	
==>"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39369	39502	
==>"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40381	40514	
==>"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43224	43357	
==>"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43813	43946	
==>"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' = <==
36	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	18042	18174	
==>ra->[1]{'start_line'}, '~really' => '=for'},
          $target,
        ],
        $para,
        ['=end',
          {'start_line' => <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12136	12270	
==>." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 3 <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12788	12922	
==>." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 3 <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14276	14410	
==>." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 3 <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14765	14899	
==>." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 3 <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16781	16915	
==>." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 3 <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17198	17332	
==>." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 3 <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17815	17949	
==>." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 3 <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18232	18366	
==>." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 3 <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19419	19553	
==>." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 3 <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20435	20569	
==>." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 3 <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21109	21243	
==>." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 3 <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21584	21718	
==>." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 3 <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22265	22399	
==>." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 3 <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22683	22817	
==>." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 3 <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23101	23235	
==>." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 3 <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23519	23653	
==>." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 3 <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23937	24071	
==>." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 3 <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24355	24489	
==>." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 3 <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24773	24907	
==>." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 3 <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25191	25325	
==>." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 3 <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25609	25743	
==>." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 3 <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26027	26161	
==>." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 3 <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26665	26799	
==>." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 3 <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27083	27217	
==>." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 3 <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27501	27635	
==>." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 3 <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27919	28053	
==>." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 3 <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28337	28471	
==>." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 3 <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28792	28926	
==>." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 3 <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33099	33233	
==>." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 3 <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33541	33675	
==>." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 3 <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37146	37280	
==>." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 3 <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38467	38601	
==>." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 3 <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39335	39469	
==>." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 3 <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40347	40481	
==>." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 3 <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43190	43324	
==>." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 3 <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43779	43913	
==>." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 3 <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12036	12174	
==>TIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12688	12826	
==>TIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14176	14314	
==>TIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14665	14803	
==>TIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16681	16819	
==>TIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17098	17236	
==>TIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17715	17853	
==>TIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18132	18270	
==>TIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19319	19457	
==>TIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20335	20473	
==>TIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21009	21147	
==>TIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21484	21622	
==>TIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22165	22303	
==>TIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22583	22721	
==>TIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23001	23139	
==>TIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23419	23557	
==>TIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23837	23975	
==>TIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24255	24393	
==>TIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24673	24811	
==>TIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25091	25229	
==>TIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25509	25647	
==>TIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25927	26065	
==>TIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26565	26703	
==>TIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26983	27121	
==>TIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27401	27539	
==>TIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27819	27957	
==>TIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28237	28375	
==>TIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28692	28830	
==>TIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	32999	33137	
==>TIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33441	33579	
==>TIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37046	37184	
==>TIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38367	38505	
==>TIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39235	39373	
==>TIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40247	40385	
==>TIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43090	43228	
==>TIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" = <==
36	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43679	43817	
==>TIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" = <==
36	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23170	23351	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" = <==
36	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24110	24291	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" = <==
36	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549286	549467	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" = <==
36	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550586	550767	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" = <==
36	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551887	552068	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" = <==
36	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553078	553259	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" = <==
36	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554474	554655	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" = <==
36	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555871	556052	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" = <==
36	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557108	557289	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" = <==
36	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558491	558672	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" = <==
36	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559875	560056	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" = <==
36	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561096	561277	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" = <==
36	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562179	562360	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" = <==
36	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578559	578740	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" = <==
36	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579863	580044	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" = <==
36	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581168	581349	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" = <==
36	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582473	582654	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" = <==
36	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583779	583960	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" = <==
36	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584853	585034	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" = <==
36	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585928	586109	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" = <==
36	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587113	587294	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" = <==
36	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588299	588480	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" = <==
36	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589485	589666	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" = <==
36	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590672	590853	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" = <==
36	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591881	592062	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" = <==
36	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593091	593272	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" = <==
36	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594301	594482	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" = <==
36	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597297	597478	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" = <==
36	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598343	598524	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" = <==
36	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599390	599571	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" = <==
36	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600465	600646	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" = <==
36	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614111	614292	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" = <==
36	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615261	615442	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" = <==
36	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028323	1028504	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" = <==
36	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029174	1029355	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" = <==
36	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030015	1030196	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" = <==
35	/Users/nnunley/parrot/config/inter/libparrot.pm	427	522	
==>se vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Co <==
35	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	1923	2017	
==>p   - CONTEXT(i->ctx)->pred_offset) : NULL)
#endif

#define OP_AS_OFFS(o) (_reg_base + ((opcode <==
35	/Users/nnunley/parrot/config/auto/aio.pm	279	370	
==>se vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Co <==
35	/Users/nnunley/parrot/config/auto/cgoto.pm	302	393	
==>se vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Co <==
35	/Users/nnunley/parrot/config/auto/env.pm	303	394	
==>se vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Co <==
35	/Users/nnunley/parrot/config/auto/format.pm	303	394	
==>se vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Co <==
35	/Users/nnunley/parrot/config/auto/funcptr.pm	315	406	
==>se vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Co <==
35	/Users/nnunley/parrot/config/auto/gc.pm	655	746	
==>se vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Co <==
35	/Users/nnunley/parrot/config/auto/gcc.pm	289	380	
==>se vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Co <==
35	/Users/nnunley/parrot/config/auto/headers.pm	272	363	
==>se vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Co <==
35	/Users/nnunley/parrot/config/auto/inline.pm	305	396	
==>se vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Co <==
35	/Users/nnunley/parrot/config/auto/isreg.pm	285	376	
==>se vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Co <==
35	/Users/nnunley/parrot/config/auto/memalign.pm	304	395	
==>se vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Co <==
35	/Users/nnunley/parrot/config/auto/msvc.pm	309	400	
==>se vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Co <==
35	/Users/nnunley/parrot/config/auto/pack.pm	276	367	
==>se vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Co <==
35	/Users/nnunley/parrot/config/auto/perldoc.pm	306	397	
==>se vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Co <==
35	/Users/nnunley/parrot/config/auto/python.pm	366	457	
==>se vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Co <==
35	/Users/nnunley/parrot/config/auto/signal.pm	267	358	
==>se vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Co <==
35	/Users/nnunley/parrot/config/auto/sizes.pm	283	374	
==>se vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Co <==
35	/Users/nnunley/parrot/config/auto/snprintf.pm	309	400	
==>se vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Co <==
35	/Users/nnunley/parrot/config/auto/va_ptr.pm	310	401	
==>se vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Co <==
35	/Users/nnunley/parrot/config/gen/config_h.pm	480	571	
==>se vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Co <==
35	/Users/nnunley/parrot/config/gen/config_pm.pm	390	481	
==>se vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Co <==
35	/Users/nnunley/parrot/config/gen/cpu.pm	323	414	
==>se vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Co <==
35	/Users/nnunley/parrot/config/gen/makefiles.pm	322	413	
==>se vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Co <==
35	/Users/nnunley/parrot/config/gen/parrot_include.pm	314	405	
==>se vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Co <==
35	/Users/nnunley/parrot/config/init/hints.pm	343	434	
==>se vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Co <==
35	/Users/nnunley/parrot/config/init/manifest.pm	321	412	
==>se vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Co <==
35	/Users/nnunley/parrot/config/init/miniparrot.pm	588	679	
==>se vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Co <==
35	/Users/nnunley/parrot/config/inter/charset.pm	305	396	
==>se vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Co <==
35	/Users/nnunley/parrot/config/inter/encoding.pm	310	401	
==>se vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Co <==
35	/Users/nnunley/parrot/config/inter/ops.pm	285	376	
==>se vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Co <==
35	/Users/nnunley/parrot/config/inter/progs.pm	424	515	
==>se vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Co <==
35	/Users/nnunley/parrot/config/inter/shlibs.pm	584	675	
==>se vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Co <==
35	/Users/nnunley/parrot/config/inter/types.pm	336	427	
==>se vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Co <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913033	913324	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914044	914335	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915055	915346	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916067	916358	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917078	917369	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918090	918381	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919102	919393	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920115	920406	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87468	87757	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88470	88759	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340269	340558	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341268	341557	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342267	342556	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343267	343556	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700918	701207	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701909	702198	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702900	703189	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703892	704181	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704883	705172	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705875	706164	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706867	707156	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	707860	708149	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905379	905668	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906398	906687	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907417	907706	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908437	908726	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964930	965219	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965938	966227	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966946	967235	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967955	968244	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968963	969252	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969972	970261	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970981	971270	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971991	972280	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	48754	48886	
==>t', 8,
sub
#line 157 "Lua\lua51.yp"
{
            BuildForList( $_[0], $_[2], $_[4], $_[7] );
        }
	],
	[#Rule 26
		 '@8 <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12171	12304	
==>(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12823	12956	
==>(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14311	14444	
==>(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14800	14933	
==>(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16816	16949	
==>(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17233	17366	
==>(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17850	17983	
==>(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19454	19587	
==>(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20470	20603	
==>(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21144	21277	
==>(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21619	21752	
==>(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22300	22433	
==>(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22718	22851	
==>(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23136	23269	
==>(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23554	23687	
==>(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23972	24105	
==>(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24390	24523	
==>(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24808	24941	
==>(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25226	25359	
==>(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25644	25777	
==>(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26062	26195	
==>(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26700	26833	
==>(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27118	27251	
==>(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27536	27669	
==>(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27954	28087	
==>(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28372	28505	
==>(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28827	28960	
==>(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33134	33267	
==>(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33576	33709	
==>(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37181	37314	
==>(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38502	38635	
==>(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39370	39503	
==>(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40382	40515	
==>(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43225	43358	
==>(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43814	43947	
==>(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12164	12301	
==>,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12816	12953	
==>,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14304	14441	
==>,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14793	14930	
==>,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16809	16946	
==>,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17226	17363	
==>,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17843	17980	
==>,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19447	19584	
==>,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20463	20600	
==>,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21137	21274	
==>,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21612	21749	
==>,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22293	22430	
==>,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22711	22848	
==>,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23129	23266	
==>,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23547	23684	
==>,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23965	24102	
==>,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24383	24520	
==>,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24801	24938	
==>,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25219	25356	
==>,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25637	25774	
==>,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26055	26192	
==>,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26693	26830	
==>,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27111	27248	
==>,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27529	27666	
==>,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27947	28084	
==>,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28365	28502	
==>,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28820	28957	
==>,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33127	33264	
==>,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33569	33706	
==>,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37174	37311	
==>,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38495	38632	
==>,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39363	39500	
==>,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40375	40512	
==>,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43218	43355	
==>,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43807	43944	
==>,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12144	12299	
==>,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'ex <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12796	12951	
==>,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'ex <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14284	14439	
==>,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'ex <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14773	14928	
==>,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'ex <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16789	16944	
==>,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'ex <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17206	17361	
==>,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'ex <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17823	17978	
==>,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'ex <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19427	19582	
==>,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'ex <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20443	20598	
==>,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'ex <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21117	21272	
==>,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'ex <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21592	21747	
==>,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'ex <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22273	22428	
==>,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'ex <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22691	22846	
==>,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'ex <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23109	23264	
==>,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'ex <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23527	23682	
==>,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'ex <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23945	24100	
==>,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'ex <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24363	24518	
==>,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'ex <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24781	24936	
==>,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'ex <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25199	25354	
==>,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'ex <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25617	25772	
==>,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'ex <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26035	26190	
==>,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'ex <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26673	26828	
==>,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'ex <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27091	27246	
==>,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'ex <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27509	27664	
==>,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'ex <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27927	28082	
==>,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'ex <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28345	28500	
==>,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'ex <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28800	28955	
==>,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'ex <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33107	33262	
==>,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'ex <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33549	33704	
==>,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'ex <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37154	37309	
==>,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'ex <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38475	38630	
==>,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'ex <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39343	39498	
==>,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'ex <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40355	40510	
==>,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'ex <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43198	43353	
==>,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'ex <==
35	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43787	43942	
==>,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'ex <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746748	746957	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747532	747741	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748317	748526	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749100	749309	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749884	750093	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750667	750876	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772803	773012	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773712	773921	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774622	774831	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775532	775741	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776443	776652	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777351	777560	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778260	778469	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779169	779378	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780079	780288	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780987	781196	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781896	782105	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782805	783014	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783715	783924	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784620	784829	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792798	793007	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793702	793911	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794607	794816	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795512	795721	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796418	796627	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797321	797530	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798225	798434	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799129	799338	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800034	800243	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800937	801146	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801841	802050	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802745	802954	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803650	803859	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804550	804759	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
35	/Users/nnunley/parrot/config/gen/core_pmcs.pm	239	335	
==>de/parrot/core_pmcs.h>.

=cut

package gen::core_pmcs;

use strict;
use warnings;

use base qw(Pa <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575623	575899	
==>, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680762	681038	
==>, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681538	681814	
==>, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682312	682588	
==>, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683087	683363	
==>, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683859	684135	
==>, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033562	1033838	
==>, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037767	1038043	
==>, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038548	1038824	
==>, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025057	1025332	
==>, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025814	1026089	
==>, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026570	1026845	
==>, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733730	734004	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734494	734768	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738219	738493	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738983	739257	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739760	740034	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740537	740811	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742034	742308	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742799	743073	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743565	743839	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744330	744604	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745096	745370	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747351	747625	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748136	748410	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748919	749193	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749703	749977	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750486	750760	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759130	759404	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760681	760955	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925253	925527	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010672	1010946	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011436	1011710	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
35	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012201	1012475	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
35	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16130	16229	
==>->_gensym();

  _num_arg ($node, 1, 'null?');

  my $temp = $self->_generate(_get_arg($node,1));
  $ <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746749	746996	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747533	747780	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748318	748565	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749101	749348	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749885	750132	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750668	750915	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772804	773051	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773713	773960	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774623	774870	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775533	775780	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776444	776691	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777352	777599	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778261	778508	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779170	779417	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780080	780327	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780988	781235	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781897	782144	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782806	783053	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783716	783963	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784621	784868	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792799	793046	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793703	793950	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794608	794855	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795513	795760	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796419	796666	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797322	797569	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798226	798473	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799130	799377	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800035	800282	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800938	801185	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801842	802089	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802746	802993	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803651	803898	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804551	804798	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913034	913340	
==>preter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914045	914351	
==>preter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915056	915362	
==>preter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916068	916374	
==>preter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917079	917385	
==>preter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918091	918397	
==>preter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919103	919409	
==>preter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920116	920422	
==>preter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87469	87773	
==>preter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88471	88775	
==>preter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340270	340574	
==>preter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341269	341573	
==>preter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342268	342572	
==>preter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343268	343572	
==>preter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700919	701223	
==>preter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701910	702214	
==>preter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702901	703205	
==>preter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703893	704197	
==>preter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704884	705188	
==>preter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705876	706180	
==>preter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706868	707172	
==>preter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	707861	708165	
==>preter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905380	905684	
==>preter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906399	906703	
==>preter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907418	907722	
==>preter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908438	908742	
==>preter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964931	965235	
==>preter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965939	966243	
==>preter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966947	967251	
==>preter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967956	968260	
==>preter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968964	969268	
==>preter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969973	970277	
==>preter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970982	971286	
==>preter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971992	972296	
==>preter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	230345	230636	
==>\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12318	12437	
==>ctioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{ <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12970	13089	
==>ctioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{ <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14458	14577	
==>ctioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{ <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14947	15066	
==>ctioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{ <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16963	17082	
==>ctioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{ <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17380	17499	
==>ctioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{ <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17997	18116	
==>ctioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{ <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20618	20737	
==>ctioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{ <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21292	21411	
==>ctioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{ <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22448	22567	
==>ctioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{ <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22866	22985	
==>ctioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{ <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23284	23403	
==>ctioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{ <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23702	23821	
==>ctioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{ <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24120	24239	
==>ctioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{ <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24538	24657	
==>ctioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{ <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24956	25075	
==>ctioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{ <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25374	25493	
==>ctioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{ <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25792	25911	
==>ctioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{ <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26210	26329	
==>ctioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{ <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26848	26967	
==>ctioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{ <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27266	27385	
==>ctioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{ <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27684	27803	
==>ctioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{ <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28102	28221	
==>ctioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{ <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28520	28639	
==>ctioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{ <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28975	29094	
==>ctioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{ <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33724	33843	
==>ctioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{ <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37329	37448	
==>ctioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{ <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38650	38769	
==>ctioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{ <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39518	39637	
==>ctioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{ <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40530	40649	
==>ctioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{ <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43373	43492	
==>ctioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{ <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43962	44081	
==>ctioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{ <==
34	/Users/nnunley/parrot/examples/benchmarks/addit.pl	257	348	
==>mples/benchmarks/addit.pl

=head1 DESCRIPTION

Joe Wilson's original Perl version of his C<v <==
34	/Users/nnunley/parrot/config/inter/libparrot.pm	428	535	
==>e vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step <==
34	/Users/nnunley/parrot/config/auto/aio.pm	280	383	
==>e vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step <==
34	/Users/nnunley/parrot/config/auto/cgoto.pm	303	406	
==>e vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step <==
34	/Users/nnunley/parrot/config/auto/env.pm	304	407	
==>e vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step <==
34	/Users/nnunley/parrot/config/auto/format.pm	304	407	
==>e vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step <==
34	/Users/nnunley/parrot/config/auto/funcptr.pm	316	419	
==>e vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step <==
34	/Users/nnunley/parrot/config/auto/gc.pm	656	759	
==>e vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step <==
34	/Users/nnunley/parrot/config/auto/gcc.pm	290	393	
==>e vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step <==
34	/Users/nnunley/parrot/config/auto/headers.pm	273	376	
==>e vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step <==
34	/Users/nnunley/parrot/config/auto/inline.pm	306	409	
==>e vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step <==
34	/Users/nnunley/parrot/config/auto/isreg.pm	286	389	
==>e vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step <==
34	/Users/nnunley/parrot/config/auto/memalign.pm	305	408	
==>e vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step <==
34	/Users/nnunley/parrot/config/auto/msvc.pm	310	413	
==>e vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step <==
34	/Users/nnunley/parrot/config/auto/pack.pm	277	380	
==>e vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step <==
34	/Users/nnunley/parrot/config/auto/perldoc.pm	307	410	
==>e vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step <==
34	/Users/nnunley/parrot/config/auto/python.pm	367	470	
==>e vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step <==
34	/Users/nnunley/parrot/config/auto/signal.pm	268	371	
==>e vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step <==
34	/Users/nnunley/parrot/config/auto/sizes.pm	284	387	
==>e vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step <==
34	/Users/nnunley/parrot/config/auto/snprintf.pm	310	413	
==>e vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step <==
34	/Users/nnunley/parrot/config/auto/va_ptr.pm	311	414	
==>e vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step <==
34	/Users/nnunley/parrot/config/gen/config_h.pm	481	584	
==>e vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step <==
34	/Users/nnunley/parrot/config/gen/config_pm.pm	391	494	
==>e vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step <==
34	/Users/nnunley/parrot/config/gen/cpu.pm	324	427	
==>e vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step <==
34	/Users/nnunley/parrot/config/gen/makefiles.pm	323	426	
==>e vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step <==
34	/Users/nnunley/parrot/config/gen/parrot_include.pm	315	418	
==>e vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step <==
34	/Users/nnunley/parrot/config/init/hints.pm	344	447	
==>e vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step <==
34	/Users/nnunley/parrot/config/init/manifest.pm	322	425	
==>e vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step <==
34	/Users/nnunley/parrot/config/init/miniparrot.pm	589	692	
==>e vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step <==
34	/Users/nnunley/parrot/config/inter/charset.pm	306	409	
==>e vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step <==
34	/Users/nnunley/parrot/config/inter/encoding.pm	311	414	
==>e vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step <==
34	/Users/nnunley/parrot/config/inter/ops.pm	286	389	
==>e vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step <==
34	/Users/nnunley/parrot/config/inter/progs.pm	425	528	
==>e vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step <==
34	/Users/nnunley/parrot/config/inter/shlibs.pm	585	688	
==>e vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step <==
34	/Users/nnunley/parrot/config/inter/types.pm	337	440	
==>e vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12308	12422	
==>,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 2 <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12960	13074	
==>,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 2 <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14448	14562	
==>,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 2 <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14937	15051	
==>,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 2 <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16953	17067	
==>,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 2 <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17370	17484	
==>,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 2 <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17987	18101	
==>,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 2 <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20608	20722	
==>,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 2 <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21282	21396	
==>,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 2 <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22438	22552	
==>,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 2 <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22856	22970	
==>,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 2 <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23274	23388	
==>,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 2 <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23692	23806	
==>,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 2 <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24110	24224	
==>,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 2 <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24528	24642	
==>,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 2 <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24946	25060	
==>,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 2 <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25364	25478	
==>,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 2 <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25782	25896	
==>,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 2 <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26200	26314	
==>,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 2 <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26838	26952	
==>,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 2 <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27256	27370	
==>,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 2 <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27674	27788	
==>,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 2 <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28092	28206	
==>,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 2 <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28510	28624	
==>,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 2 <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28965	29079	
==>,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 2 <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33714	33828	
==>,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 2 <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37319	37433	
==>,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 2 <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37811	37925	
==>,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 2 <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38640	38754	
==>,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 2 <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39508	39622	
==>,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 2 <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40520	40634	
==>,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 2 <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43363	43477	
==>,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 2 <==
34	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43952	44066	
==>,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 2 <==
34	/Users/nnunley/parrot/Configure.pl	4109	4192	
==>nfigure/RunSteps.pm>,
F<lib/Parrot/Configure/Step.pm>, F<docs/configuration.pod>

=c <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913028	913323	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914039	914334	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915050	915345	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916062	916357	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917073	917368	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918085	918380	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919097	919392	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920110	920405	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87463	87756	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88465	88758	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340264	340557	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341263	341556	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342262	342555	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343262	343555	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700913	701206	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701904	702197	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702895	703188	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703887	704180	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704878	705171	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705870	706163	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706862	707155	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	707855	708148	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905374	905667	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906393	906686	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907412	907705	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908432	908725	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964925	965218	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965933	966226	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966941	967234	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967950	968243	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968958	969251	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969967	970260	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970976	971269	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971986	972279	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143619	143909	
==>0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144547	144837	
==>0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145475	145765	
==>0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164840	165130	
==>0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165769	166059	
==>0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166698	166988	
==>0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	174304	174594	
==>0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175253	175543	
==>0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186075	186365	
==>0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187005	187295	
==>0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187935	188225	
==>0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188876	189166	
==>0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193614	193904	
==>0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194593	194883	
==>0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	195541	195831	
==>0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196489	196779	
==>0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202799	203089	
==>0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203730	204020	
==>0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204661	204951	
==>0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205603	205893	
==>0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210346	210636	
==>0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211326	211616	
==>0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	212275	212565	
==>0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213224	213514	
==>0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214165	214455	
==>0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218903	219193	
==>0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219882	220172	
==>0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	220830	221120	
==>0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221778	222068	
==>0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222720	223010	
==>0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227463	227753	
==>0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228443	228733	
==>0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	229392	229682	
==>0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
34	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	230341	230631	
==>0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
33	/Users/nnunley/parrot/config/auto/jit.pm	1962	2078	
==>e   => $osname
    );

    my $jitarchname = "$cpuarch-$osname";
    my ($jitcapable, $execcapable) = (0, 0);

    pr <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12314	12423	
==>'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28 <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12966	13075	
==>'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28 <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14454	14563	
==>'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28 <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14943	15052	
==>'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28 <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16959	17068	
==>'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28 <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17376	17485	
==>'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28 <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17993	18102	
==>'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28 <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20614	20723	
==>'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28 <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21288	21397	
==>'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28 <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22444	22553	
==>'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28 <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22862	22971	
==>'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28 <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23280	23389	
==>'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28 <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23698	23807	
==>'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28 <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24116	24225	
==>'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28 <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24534	24643	
==>'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28 <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24952	25061	
==>'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28 <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25370	25479	
==>'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28 <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25788	25897	
==>'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28 <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26206	26315	
==>'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28 <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26844	26953	
==>'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28 <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27262	27371	
==>'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28 <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27680	27789	
==>'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28 <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28098	28207	
==>'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28 <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28516	28625	
==>'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28 <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28971	29080	
==>'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28 <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33720	33829	
==>'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28 <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37325	37434	
==>'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28 <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37817	37926	
==>'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28 <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38646	38755	
==>'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28 <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39514	39623	
==>'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28 <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40526	40635	
==>'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28 <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43369	43478	
==>'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28 <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43958	44067	
==>'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28 <==
33	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	866547	866739	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
33	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867512	867704	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
33	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868478	868670	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
33	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869444	869636	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
33	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870411	870603	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
33	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871427	871619	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
33	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872444	872636	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
33	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873461	873653	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
33	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874479	874671	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
33	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875496	875688	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
33	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876514	876706	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
33	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877532	877724	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
33	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887391	887583	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
33	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888524	888716	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
33	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889658	889850	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
33	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890792	890984	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
33	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891927	892119	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
33	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893061	893253	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
33	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	894196	894388	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
33	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895331	895523	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
33	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896467	896659	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
33	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897484	897676	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
33	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898502	898694	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
33	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899520	899712	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
33	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900539	900731	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
33	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901557	901749	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
33	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902576	902768	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
33	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903595	903787	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
33	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904615	904807	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
33	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905633	905825	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
33	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906652	906844	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
33	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907671	907863	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
33	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15749	15853	
==>mputerese style-smarts.
  # We don't want to change the "-" to hard-hyphen, because we want to
  #  be ab <==
33	/Users/nnunley/parrot/config/inter/libparrot.pm	414	520	
==>se strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot:: <==
33	/Users/nnunley/parrot/config/auto/aio.pm	267	368	
==>se strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot:: <==
33	/Users/nnunley/parrot/config/auto/cgoto.pm	290	391	
==>se strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot:: <==
33	/Users/nnunley/parrot/config/auto/env.pm	291	392	
==>se strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot:: <==
33	/Users/nnunley/parrot/config/auto/format.pm	291	392	
==>se strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot:: <==
33	/Users/nnunley/parrot/config/auto/funcptr.pm	303	404	
==>se strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot:: <==
33	/Users/nnunley/parrot/config/auto/gc.pm	643	744	
==>se strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot:: <==
33	/Users/nnunley/parrot/config/auto/gcc.pm	277	378	
==>se strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot:: <==
33	/Users/nnunley/parrot/config/auto/headers.pm	260	361	
==>se strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot:: <==
33	/Users/nnunley/parrot/config/auto/inline.pm	293	394	
==>se strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot:: <==
33	/Users/nnunley/parrot/config/auto/isreg.pm	273	374	
==>se strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot:: <==
33	/Users/nnunley/parrot/config/auto/memalign.pm	292	393	
==>se strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot:: <==
33	/Users/nnunley/parrot/config/auto/msvc.pm	297	398	
==>se strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot:: <==
33	/Users/nnunley/parrot/config/auto/pack.pm	264	365	
==>se strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot:: <==
33	/Users/nnunley/parrot/config/auto/perldoc.pm	294	395	
==>se strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot:: <==
33	/Users/nnunley/parrot/config/auto/python.pm	354	455	
==>se strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot:: <==
33	/Users/nnunley/parrot/config/auto/signal.pm	255	356	
==>se strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot:: <==
33	/Users/nnunley/parrot/config/auto/sizes.pm	271	372	
==>se strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot:: <==
33	/Users/nnunley/parrot/config/auto/snprintf.pm	297	398	
==>se strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot:: <==
33	/Users/nnunley/parrot/config/auto/va_ptr.pm	298	399	
==>se strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot:: <==
33	/Users/nnunley/parrot/config/gen/config_h.pm	468	569	
==>se strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot:: <==
33	/Users/nnunley/parrot/config/gen/config_pm.pm	378	479	
==>se strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot:: <==
33	/Users/nnunley/parrot/config/gen/makefiles.pm	310	411	
==>se strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot:: <==
33	/Users/nnunley/parrot/config/gen/parrot_include.pm	302	403	
==>se strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot:: <==
33	/Users/nnunley/parrot/config/init/hints.pm	331	432	
==>se strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot:: <==
33	/Users/nnunley/parrot/config/init/manifest.pm	309	410	
==>se strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot:: <==
33	/Users/nnunley/parrot/config/init/miniparrot.pm	576	677	
==>se strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot:: <==
33	/Users/nnunley/parrot/config/inter/charset.pm	293	394	
==>se strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot:: <==
33	/Users/nnunley/parrot/config/inter/encoding.pm	298	399	
==>se strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot:: <==
33	/Users/nnunley/parrot/config/inter/ops.pm	273	374	
==>se strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot:: <==
33	/Users/nnunley/parrot/config/inter/progs.pm	412	513	
==>se strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot:: <==
33	/Users/nnunley/parrot/config/inter/shlibs.pm	572	673	
==>se strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot:: <==
33	/Users/nnunley/parrot/config/inter/types.pm	324	425	
==>se strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot:: <==
33	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741794	742015	
==>CODE" => 834,
                  "ARGS" => [
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 169 \"src/ops/set.ops\"\n  {{\@1}} = strin <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12320	12440	
==>ioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#St <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12972	13092	
==>ioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#St <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14460	14580	
==>ioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#St <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14949	15069	
==>ioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#St <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16965	17085	
==>ioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#St <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17382	17502	
==>ioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#St <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17999	18119	
==>ioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#St <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20620	20740	
==>ioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#St <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21294	21414	
==>ioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#St <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22450	22570	
==>ioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#St <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22868	22988	
==>ioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#St <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23286	23406	
==>ioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#St <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23704	23824	
==>ioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#St <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24122	24242	
==>ioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#St <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24540	24660	
==>ioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#St <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24958	25078	
==>ioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#St <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25376	25496	
==>ioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#St <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25794	25914	
==>ioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#St <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26212	26332	
==>ioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#St <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26850	26970	
==>ioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#St <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27268	27388	
==>ioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#St <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27686	27806	
==>ioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#St <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28104	28224	
==>ioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#St <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28522	28642	
==>ioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#St <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28977	29097	
==>ioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#St <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33726	33846	
==>ioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#St <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37331	37451	
==>ioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#St <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38652	38772	
==>ioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#St <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39520	39640	
==>ioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#St <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40532	40652	
==>ioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#St <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43375	43495	
==>ioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#St <==
33	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43964	44084	
==>ioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#St <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12321	12443	
==>oncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12973	13095	
==>oncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14461	14583	
==>oncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14950	15072	
==>oncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16966	17088	
==>oncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17383	17505	
==>oncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18000	18122	
==>oncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20621	20743	
==>oncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21295	21417	
==>oncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22451	22573	
==>oncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22869	22991	
==>oncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23287	23409	
==>oncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23705	23827	
==>oncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24123	24245	
==>oncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24541	24663	
==>oncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24959	25081	
==>oncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25377	25499	
==>oncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25795	25917	
==>oncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26213	26335	
==>oncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26851	26973	
==>oncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27269	27391	
==>oncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27687	27809	
==>oncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28105	28227	
==>oncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28523	28645	
==>oncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28978	29100	
==>oncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33727	33849	
==>oncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37332	37454	
==>oncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38653	38775	
==>oncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39521	39643	
==>oncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40533	40655	
==>oncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43376	43498	
==>oncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43965	44087	
==>oncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24075	24289	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549251	549465	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550551	550765	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551852	552066	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553043	553257	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554439	554653	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555836	556050	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557073	557287	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558456	558670	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559840	560054	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561061	561275	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562144	562358	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578524	578738	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579828	580042	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581133	581347	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582438	582652	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583744	583958	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584818	585032	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585893	586107	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587078	587292	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588264	588478	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589450	589664	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590637	590851	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591846	592060	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593056	593270	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594266	594480	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597262	597476	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598308	598522	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599355	599569	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600430	600644	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614076	614290	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615226	615440	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973120	973491	
==>\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974249	974620	
==>\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975378	975749	
==>\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976508	976879	
==>\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977637	978008	
==>\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978767	979138	
==>\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979897	980268	
==>\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981028	981399	
==>\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982157	982528	
==>\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983287	983658	
==>\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984417	984788	
==>\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985548	985919	
==>\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986678	987049	
==>\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987809	988180	
==>\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988940	989311	
==>\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	990072	990443	
==>\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991208	991579	
==>\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992345	992716	
==>\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993482	993853	
==>\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994620	994991	
==>\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995757	996128	
==>\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996895	997266	
==>\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	998033	998404	
==>\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999172	999543	
==>\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000309	1000680	
==>\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001447	1001818	
==>\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002585	1002956	
==>\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003724	1004095	
==>\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004862	1005233	
==>\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1006001	1006372	
==>\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007140	1007511	
==>\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find <==
32	/Users/nnunley/parrot/tools/build/headerize.pl	2994	3116	
==>or my $ofile ( @ofiles ) {
        next if $ofile =~ m/^\Qsrc$PConfig{slash}ops\E/;

        my $cfile = $ofile;
        $c <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12319	12439	
==>tioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#S <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12971	13091	
==>tioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#S <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14459	14579	
==>tioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#S <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14948	15068	
==>tioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#S <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16964	17084	
==>tioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#S <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17381	17501	
==>tioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#S <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17998	18118	
==>tioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#S <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20619	20739	
==>tioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#S <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21293	21413	
==>tioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#S <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22449	22569	
==>tioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#S <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22867	22987	
==>tioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#S <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23285	23405	
==>tioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#S <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23703	23823	
==>tioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#S <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24121	24241	
==>tioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#S <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24539	24659	
==>tioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#S <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24957	25077	
==>tioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#S <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25375	25495	
==>tioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#S <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25793	25913	
==>tioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#S <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26211	26331	
==>tioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#S <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26849	26969	
==>tioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#S <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27267	27387	
==>tioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#S <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27685	27805	
==>tioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#S <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28103	28223	
==>tioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#S <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28521	28641	
==>tioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#S <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28976	29096	
==>tioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#S <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33725	33845	
==>tioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#S <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37330	37450	
==>tioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#S <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38651	38771	
==>tioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#S <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39519	39639	
==>tioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#S <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40531	40651	
==>tioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#S <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43374	43494	
==>tioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#S <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43963	44083	
==>tioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#S <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12315	12433	
==>functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	}, <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12967	13085	
==>functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	}, <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14455	14573	
==>functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	}, <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14944	15062	
==>functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	}, <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16960	17078	
==>functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	}, <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17377	17495	
==>functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	}, <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17994	18112	
==>functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	}, <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20615	20733	
==>functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	}, <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21289	21407	
==>functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	}, <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22445	22563	
==>functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	}, <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22863	22981	
==>functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	}, <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23281	23399	
==>functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	}, <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23699	23817	
==>functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	}, <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24117	24235	
==>functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	}, <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24535	24653	
==>functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	}, <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24953	25071	
==>functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	}, <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25371	25489	
==>functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	}, <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25789	25907	
==>functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	}, <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26207	26325	
==>functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	}, <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26845	26963	
==>functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	}, <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27263	27381	
==>functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	}, <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27681	27799	
==>functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	}, <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28099	28217	
==>functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	}, <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28517	28635	
==>functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	}, <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28972	29090	
==>functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	}, <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33721	33839	
==>functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	}, <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37326	37444	
==>functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	}, <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38647	38765	
==>functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	}, <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39515	39633	
==>functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	}, <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40527	40645	
==>functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	}, <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43370	43488	
==>functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	}, <==
32	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43959	44077	
==>functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	}, <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	866566	866780	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867531	867745	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868497	868711	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869463	869677	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870430	870644	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871446	871660	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872463	872677	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873480	873694	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874498	874712	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875515	875729	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876533	876747	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877551	877765	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887410	887624	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888543	888757	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889677	889891	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890811	891025	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891946	892160	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893080	893294	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	894215	894429	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895350	895564	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896486	896700	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897503	897717	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898521	898735	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899539	899753	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900558	900772	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901576	901790	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902595	902809	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903614	903828	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904634	904848	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905652	905866	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906671	906885	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907690	907904	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973063	973373	
==>_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ] <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974192	974502	
==>_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ] <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975321	975631	
==>_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ] <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976451	976761	
==>_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ] <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977580	977890	
==>_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ] <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978710	979020	
==>_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ] <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979840	980150	
==>_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ] <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980971	981281	
==>_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ] <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982100	982410	
==>_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ] <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983230	983540	
==>_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ] <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984360	984670	
==>_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ] <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985491	985801	
==>_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ] <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986621	986931	
==>_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ] <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987752	988062	
==>_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ] <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988883	989193	
==>_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ] <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	990015	990325	
==>_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ] <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991151	991461	
==>_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ] <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992288	992598	
==>_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ] <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993425	993735	
==>_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ] <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994563	994873	
==>_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ] <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995700	996010	
==>_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ] <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996838	997148	
==>_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ] <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997976	998286	
==>_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ] <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999115	999425	
==>_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ] <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000252	1000562	
==>_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ] <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001390	1001700	
==>_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ] <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002528	1002838	
==>_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ] <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003667	1003977	
==>_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ] <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004805	1005115	
==>_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ] <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005944	1006254	
==>_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ] <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007083	1007393	
==>_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ] <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008223	1008533	
==>_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ] <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	972364	972729	
==>_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973492	973857	
==>_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974621	974986	
==>_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975750	976115	
==>_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976880	977245	
==>_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978009	978374	
==>_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979139	979504	
==>_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980269	980634	
==>_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981400	981765	
==>_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982529	982894	
==>_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983659	984024	
==>_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984789	985154	
==>_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985920	986285	
==>_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987050	987415	
==>_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988181	988546	
==>_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989312	989677	
==>_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	990448	990813	
==>_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991584	991949	
==>_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992721	993086	
==>_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993858	994223	
==>_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994996	995361	
==>_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996133	996498	
==>_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997271	997636	
==>_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	998409	998774	
==>_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999548	999913	
==>_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000685	1001050	
==>_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001823	1002188	
==>_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002961	1003326	
==>_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004100	1004465	
==>_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005238	1005603	
==>_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1006377	1006742	
==>_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007516	1007881	
==>_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	866515	866737	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867480	867702	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868446	868668	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869412	869634	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870379	870601	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871395	871617	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872412	872634	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873429	873651	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874447	874669	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875464	875686	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876482	876704	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877500	877722	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887359	887581	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888492	888714	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889626	889848	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890760	890982	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891895	892117	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893029	893251	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	894164	894386	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895299	895521	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896435	896657	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897452	897674	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898470	898692	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899488	899710	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900507	900729	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901525	901747	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902544	902766	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903563	903785	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904583	904805	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905601	905823	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906620	906842	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
32	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907639	907861	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973116	973490	
==>}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fin <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974245	974619	
==>}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fin <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975374	975748	
==>}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fin <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976504	976878	
==>}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fin <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977633	978007	
==>}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fin <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978763	979137	
==>}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fin <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979893	980267	
==>}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fin <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981024	981398	
==>}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fin <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982153	982527	
==>}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fin <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983283	983657	
==>}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fin <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984413	984787	
==>}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fin <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985544	985918	
==>}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fin <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986674	987048	
==>}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fin <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987805	988179	
==>}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fin <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988936	989310	
==>}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fin <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	990068	990442	
==>}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fin <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991204	991578	
==>}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fin <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992341	992715	
==>}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fin <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993478	993852	
==>}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fin <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994616	994990	
==>}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fin <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995753	996127	
==>}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fin <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996891	997265	
==>}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fin <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	998029	998403	
==>}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fin <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999168	999542	
==>}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fin <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000305	1000679	
==>}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fin <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001443	1001817	
==>}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fin <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002581	1002955	
==>}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fin <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003720	1004094	
==>}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fin <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004858	1005232	
==>}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fin <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005997	1006371	
==>}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fin <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007136	1007510	
==>}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fin <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867410	867701	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGD <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868376	868667	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGD <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869342	869633	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGD <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870309	870600	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGD <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871325	871616	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGD <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872342	872633	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGD <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873359	873650	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGD <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874377	874668	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGD <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875394	875685	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGD <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876412	876703	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGD <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877430	877721	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGD <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887289	887580	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGD <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888422	888713	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGD <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889556	889847	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGD <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890690	890981	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGD <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891825	892116	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGD <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892959	893250	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGD <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	894094	894385	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGD <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895229	895520	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGD <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896365	896656	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGD <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897382	897673	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGD <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898400	898691	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGD <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899418	899709	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGD <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900437	900728	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGD <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901455	901746	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGD <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902474	902765	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGD <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903493	903784	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGD <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904513	904804	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGD <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905531	905822	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGD <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906550	906841	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGD <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907569	907860	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGD <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973121	973492	
==>n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974250	974621	
==>n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975379	975750	
==>n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976509	976880	
==>n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977638	978009	
==>n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978768	979139	
==>n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979898	980269	
==>n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981029	981400	
==>n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982158	982529	
==>n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983288	983659	
==>n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984418	984789	
==>n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985549	985920	
==>n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986679	987050	
==>n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987810	988181	
==>n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988941	989312	
==>n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	990073	990444	
==>n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991209	991580	
==>n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992346	992717	
==>n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993483	993854	
==>n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994621	994992	
==>n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995758	996129	
==>n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996896	997267	
==>n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	998034	998405	
==>n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999173	999544	
==>n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000310	1000681	
==>n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001448	1001819	
==>n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002586	1002957	
==>n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003725	1004096	
==>n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004863	1005234	
==>n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1006002	1006373	
==>n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007141	1007512	
==>n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ <==
31	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	97	195	
==>containing internal methods and spit out a chunk of
# PIR that can look up the built-in that's need <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730055	730326	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core", <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730790	731061	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core", <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731526	731797	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core", <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732271	732542	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core", <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733017	733288	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core", <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733780	734051	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core", <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734544	734815	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core", <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735279	735550	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core", <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736015	736286	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core", <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736760	737031	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core", <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737506	737777	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core", <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738269	738540	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core", <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739033	739304	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core", <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739810	740081	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core", <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740587	740858	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core", <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741322	741593	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core", <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742084	742355	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core", <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742849	743120	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core", <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743615	743886	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core", <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744380	744651	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core", <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745146	745417	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core", <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745882	746153	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core", <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746617	746888	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core", <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747401	747672	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core", <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748186	748457	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core", <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748969	749240	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core", <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749753	750024	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core", <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750536	750807	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core", <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	751351	751622	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core", <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772672	772943	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core", <==
31	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36601	36705	
==>hink that these will be out by one - NWC
    my $l = $self->line_directive($line, "null.c");
    return < <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730030	730322	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_co <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730765	731057	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_co <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731501	731793	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_co <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732246	732538	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_co <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732992	733284	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_co <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733755	734047	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_co <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734519	734811	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_co <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735254	735546	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_co <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735990	736282	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_co <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736735	737027	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_co <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737481	737773	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_co <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738244	738536	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_co <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739008	739300	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_co <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739785	740077	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_co <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740562	740854	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_co <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741297	741589	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_co <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742059	742351	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_co <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742824	743116	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_co <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743590	743882	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_co <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744355	744647	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_co <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745121	745413	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_co <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745857	746149	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_co <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746592	746884	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_co <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747376	747668	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_co <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748161	748453	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_co <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748944	749236	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_co <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749728	750020	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_co <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750511	750803	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_co <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	751326	751618	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_co <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772647	772939	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_co <==
31	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77265	77370	
==>';

sub _trace($;$$)
{
	$tracemsg      = $_[0];
	$tracecontext  = $_[1]||$lastcontext;
	$tracerulename = $ <==
31	/Users/nnunley/parrot/lib/Text/Balanced.pm	35688	35782	
==>edded C<'E<gt>'> is unbalanced. (In a scalar context, this call would
return an empty string. I <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730022	730312	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730757	731047	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731493	731783	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732238	732528	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732984	733274	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733747	734037	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734511	734801	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735246	735536	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735982	736272	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736727	737017	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737473	737763	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738236	738526	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739000	739290	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739777	740067	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740554	740844	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741289	741579	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742051	742341	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742816	743106	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743582	743872	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744347	744637	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745113	745403	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745849	746139	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746584	746874	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747368	747658	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748153	748443	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748936	749226	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749720	750010	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750503	750793	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	751318	751608	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => <==
31	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772639	772929	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => <==
31	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	1478	1588	
==>e> is -1.

=cut

sub parse_vtable {

    my $file = defined $_[0] ? shift() : 'vtable.tbl';
    my $vtable = [] <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730052	730325	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core" <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730787	731060	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core" <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731523	731796	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core" <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732268	732541	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core" <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733014	733287	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core" <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733777	734050	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core" <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734541	734814	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core" <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735276	735549	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core" <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736012	736285	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core" <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736757	737030	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core" <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737503	737776	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core" <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738266	738539	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core" <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739030	739303	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core" <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739807	740080	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core" <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740584	740857	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core" <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741319	741592	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core" <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742081	742354	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core" <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742846	743119	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core" <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743612	743885	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core" <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744377	744650	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core" <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745143	745416	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core" <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745879	746152	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core" <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746614	746887	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core" <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747398	747671	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core" <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748183	748456	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core" <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748966	749239	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core" <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749750	750023	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core" <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750533	750806	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core" <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	751348	751621	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core" <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772669	772942	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core" <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730056	730351	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730791	731086	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731527	731822	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732272	732567	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733018	733313	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733781	734076	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734545	734840	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735280	735575	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736016	736311	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736761	737056	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737507	737802	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738270	738565	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739034	739329	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739811	740106	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740588	740883	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741323	741618	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742085	742380	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742850	743145	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743616	743911	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744381	744676	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745147	745442	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745883	746178	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746618	746913	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747402	747697	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748187	748482	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748970	749265	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749754	750049	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750537	750832	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	751352	751647	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772673	772968	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730023	730319	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730758	731054	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731494	731790	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732239	732535	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732985	733281	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733748	734044	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734512	734808	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735247	735543	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735983	736279	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736728	737024	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737474	737770	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738237	738533	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739001	739297	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739778	740074	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740555	740851	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741290	741586	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742052	742348	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742817	743113	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743583	743879	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744348	744644	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745114	745410	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745850	746146	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746585	746881	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747369	747665	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748154	748450	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748937	749233	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749721	750017	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750504	750800	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	751319	751615	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772640	772936	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772631	772928	
==>\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" = <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730015	730311	
==>\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" = <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730751	731046	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" = <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731487	731782	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" = <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732232	732527	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" = <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732978	733273	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" = <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733741	734036	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" = <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734505	734800	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" = <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735240	735535	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" = <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735976	736271	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" = <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736721	737016	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" = <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737467	737762	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" = <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738230	738525	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" = <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738994	739289	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" = <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739771	740066	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" = <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740548	740843	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" = <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741283	741578	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" = <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742045	742340	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" = <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742810	743105	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" = <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743576	743871	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" = <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744341	744636	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" = <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745107	745402	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" = <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745843	746138	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" = <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746578	746873	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" = <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747362	747657	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" = <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748147	748442	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" = <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748930	749225	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" = <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749714	750009	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" = <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750497	750792	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" = <==
30	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	751312	751607	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" = <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772809	773052	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773718	773961	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774628	774871	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775538	775781	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776449	776692	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777357	777600	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778266	778509	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779175	779418	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780085	780328	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780993	781236	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781902	782145	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782811	783054	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783721	783964	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784626	784869	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792804	793047	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793708	793951	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794613	794856	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795518	795761	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796424	796667	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797327	797570	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798231	798474	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799135	799378	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800040	800283	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800943	801186	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801847	802090	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802751	802994	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803656	803899	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804556	804799	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
29	/Users/nnunley/parrot/lib/Text/Balanced.pm	63254	63347	
==>outermost
opening bracket.

=item C<Did not find opening tag: /%s/>

C<extract_tagged> did not <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772855	773155	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773764	774064	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774674	774974	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775584	775884	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776495	776795	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777403	777703	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778312	778612	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779221	779521	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780131	780431	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781039	781339	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781948	782248	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782857	783157	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783767	784067	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784672	784972	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792850	793150	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793754	794054	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794659	794959	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795564	795864	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796470	796770	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797373	797673	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798277	798577	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799181	799481	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800086	800386	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800989	801289	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801893	802193	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802797	803097	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803702	804002	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804602	804902	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
29	/Users/nnunley/parrot/languages/lua/Lua/build.pm	34913	35033	
==>,
    );
    my $lbl_end = new_label($parser);
    push @opcodes1, new BranchIfOp( $parser,
        'arg1'   => $nil- <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871290	871592	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872307	872609	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873324	873626	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874342	874644	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875359	875661	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876377	876679	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877395	877697	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887254	887556	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888387	888689	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889521	889823	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890655	890957	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891790	892092	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892924	893226	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	894059	894361	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895194	895496	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896330	896632	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897347	897649	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898365	898667	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899383	899685	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900402	900704	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901420	901722	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902439	902741	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903458	903760	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904478	904780	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905496	905798	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906515	906817	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core", <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907534	907836	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core", <==
29	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	2053	2163	
==>ined($status) || $status) {
        die "assemble failed with status " . ($? >> 8);
    }
}

sub generate_regul <==
29	/Users/nnunley/parrot/languages/regex/test.pl	3727	3837	
==>ined($status) || $status) {
        die "assemble failed with status " . ($? >> 8);
    }
}

sub generate_regul <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171862	172248	
==>"i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 206,
                  "ARGS" => [
                              "p",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772858	773157	
==>P" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773767	774066	
==>P" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774677	774976	
==>P" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775587	775886	
==>P" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776498	776797	
==>P" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777406	777705	
==>P" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778315	778614	
==>P" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779224	779523	
==>P" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780134	780433	
==>P" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781042	781341	
==>P" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781951	782250	
==>P" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782860	783159	
==>P" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783770	784069	
==>P" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784675	784974	
==>P" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792853	793152	
==>P" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793757	794056	
==>P" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794662	794961	
==>P" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795567	795866	
==>P" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796473	796772	
==>P" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797376	797675	
==>P" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798280	798579	
==>P" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799184	799483	
==>P" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800089	800388	
==>P" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800992	801291	
==>P" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801896	802195	
==>P" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802800	803099	
==>P" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803705	804004	
==>P" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804605	804904	
==>P" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
29	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88869	89165	
==>S" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 110,
                  "ARGS" => [
                              "i" <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6107	6329	
==>(interpreter, {{\@1}});\n    {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	865757	865978	
==>(interpreter, {{\@1}});\n   {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	866410	866631	
==>(interpreter, {{\@1}});\n   {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43696	43916	
==>(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44340	44560	
==>(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44981	45201	
==>(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45623	45843	
==>(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59359	59579	
==>(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60007	60227	
==>(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60656	60876	
==>(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61306	61526	
==>(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61949	62169	
==>(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62593	62813	
==>(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63238	63458	
==>(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	98890	99110	
==>(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103334	103554	
==>(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	251452	251672	
==>(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	331572	331792	
==>(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449385	449605	
==>(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	466890	467110	
==>(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492061	492281	
==>(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510318	510538	
==>(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	708623	708843	
==>(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	709272	709492	
==>(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	933358	933578	
==>(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	935572	935792	
==>(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937792	938012	
==>(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937594	937782	
==>ODE" => 1054,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 460 \"src/ops/string.ops\"\n  string_titlecas <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772857	773156	
==>MP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773766	774065	
==>MP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774676	774975	
==>MP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775586	775885	
==>MP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776497	776796	
==>MP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777405	777704	
==>MP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778314	778613	
==>MP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779223	779522	
==>MP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780133	780432	
==>MP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781041	781340	
==>MP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781950	782249	
==>MP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782859	783158	
==>MP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783769	784068	
==>MP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784674	784973	
==>MP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792852	793151	
==>MP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793756	794055	
==>MP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794661	794960	
==>MP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795566	795865	
==>MP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796472	796771	
==>MP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797375	797674	
==>MP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798279	798578	
==>MP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799183	799482	
==>MP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800088	800387	
==>MP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800991	801290	
==>MP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801895	802194	
==>MP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802799	803098	
==>MP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803704	804003	
==>MP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804604	804903	
==>MP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6110	6351	
==>terpreter, {{\@1}});\n    {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	865760	866000	
==>terpreter, {{\@1}});\n   {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	866413	866653	
==>terpreter, {{\@1}});\n   {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43699	43938	
==>terpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44343	44582	
==>terpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44984	45223	
==>terpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45626	45865	
==>terpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59362	59601	
==>terpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60010	60249	
==>terpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60659	60898	
==>terpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61309	61548	
==>terpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61952	62191	
==>terpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62596	62835	
==>terpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63241	63480	
==>terpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	98893	99132	
==>terpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103337	103576	
==>terpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	251455	251694	
==>terpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	331575	331814	
==>terpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449388	449627	
==>terpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	466893	467132	
==>terpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492064	492303	
==>terpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510321	510560	
==>terpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	708626	708865	
==>terpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	709275	709514	
==>terpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	933361	933600	
==>terpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	935575	935814	
==>terpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937795	938034	
==>terpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
28	/Users/nnunley/parrot/tools/build/vtable_extend.pl	1517	1619	
==>ter calls code which calls these functions, so most
   extension code is safe, no problem.

   The prob <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772859	773189	
==>" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773768	774098	
==>" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774678	775008	
==>" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775588	775918	
==>" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776499	776829	
==>" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777407	777737	
==>" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778316	778646	
==>" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779225	779555	
==>" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780135	780465	
==>" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781043	781373	
==>" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781952	782282	
==>" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782861	783191	
==>" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783771	784101	
==>" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784676	785006	
==>" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792854	793184	
==>" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793758	794088	
==>" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794663	794993	
==>" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795568	795898	
==>" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796474	796804	
==>" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797377	797707	
==>" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798281	798611	
==>" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799185	799515	
==>" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800090	800420	
==>" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800993	801323	
==>" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801897	802227	
==>" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802801	803131	
==>" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803706	804036	
==>" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804606	804936	
==>" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871291	871612	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872308	872629	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873325	873646	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874343	874664	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875360	875681	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876378	876699	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877396	877717	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887255	887576	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888388	888709	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889522	889843	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890656	890977	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891791	892112	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892925	893246	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	894060	894381	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895195	895516	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896331	896652	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897348	897669	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898366	898687	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899384	899705	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900403	900724	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901421	901742	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902440	902761	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903459	903780	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904479	904800	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905497	905818	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906516	906837	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907535	907856	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  " <==
28	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	2048	2202	
==>nless $usage;
        die "invalid usage: '$usage'\n"
            unless $usage =~ s/^$type//;
        
        my $arg = {};
            
        $arg->{o <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772810	773153	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773719	774062	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774629	774972	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775539	775882	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776450	776793	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777358	777701	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778267	778610	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779176	779519	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780086	780429	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780994	781337	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781903	782246	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782812	783155	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783722	784065	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784627	784970	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792805	793148	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793709	794052	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794614	794957	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795519	795862	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796425	796768	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797328	797671	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798232	798575	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799136	799479	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800041	800384	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800944	801287	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801848	802191	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802752	803095	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803657	804000	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
28	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804557	804900	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
27	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	23916	24016	
==>tback) = @_;

    my $back = $self->genlabel('plus_backloop');
    my $rfail = $self->genlabel('plus_ <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459859	459953	
==>n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{ <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460847	460941	
==>n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{ <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461835	461929	
==>n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{ <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462826	462920	
==>n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{ <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463823	463917	
==>n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{ <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464820	464914	
==>n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{ <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467640	467734	
==>n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{ <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468511	468605	
==>n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{ <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469385	469479	
==>n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{ <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470260	470354	
==>n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{ <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471202	471296	
==>n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{ <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472189	472283	
==>n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{ <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473176	473270	
==>n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{ <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474166	474260	
==>n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{ <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475157	475251	
==>n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{ <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476148	476242	
==>n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{ <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477063	477157	
==>n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{ <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477959	478053	
==>n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{ <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478858	478952	
==>n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{ <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479750	479844	
==>n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{ <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480709	480803	
==>n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{ <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481712	481806	
==>n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{ <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482715	482809	
==>n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{ <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483721	483815	
==>n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{ <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484720	484814	
==>n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{ <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485719	485813	
==>n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{ <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871207	871547	
==>);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872224	872564	
==>);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873241	873581	
==>);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874259	874599	
==>);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875276	875616	
==>);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876294	876634	
==>);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877312	877652	
==>);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878331	878671	
==>);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879434	879774	
==>);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880538	880878	
==>);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881642	881982	
==>);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882747	883087	
==>);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883852	884192	
==>);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884958	885298	
==>);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886064	886404	
==>);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887171	887511	
==>);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897264	897604	
==>);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898282	898622	
==>);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899300	899640	
==>);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900319	900659	
==>);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901337	901677	
==>);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902356	902696	
==>);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903375	903715	
==>);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904395	904735	
==>);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905413	905753	
==>);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906432	906772	
==>);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907451	907791	
==>);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6108	6350	
==>interpreter, {{\@1}});\n    {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	865758	865999	
==>interpreter, {{\@1}});\n   {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	866411	866652	
==>interpreter, {{\@1}});\n   {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43697	43937	
==>interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44341	44581	
==>interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44982	45222	
==>interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45624	45864	
==>interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59360	59600	
==>interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60008	60248	
==>interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60657	60897	
==>interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61307	61547	
==>interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61950	62190	
==>interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62594	62834	
==>interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63239	63479	
==>interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	98891	99131	
==>interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103335	103575	
==>interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	251453	251693	
==>interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	331573	331813	
==>interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449386	449626	
==>interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	466891	467131	
==>interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492062	492302	
==>interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510319	510559	
==>interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	708624	708864	
==>interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	709273	709513	
==>interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	933359	933599	
==>interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	935573	935813	
==>interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937793	938033	
==>interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459868	459958	
==>_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460856	460946	
==>_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461844	461934	
==>_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462835	462925	
==>_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463832	463922	
==>_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464829	464919	
==>_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467649	467739	
==>_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468520	468610	
==>_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469394	469484	
==>_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470269	470359	
==>_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471211	471301	
==>_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472198	472288	
==>_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473185	473275	
==>_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474175	474265	
==>_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475166	475256	
==>_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476157	476247	
==>_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477072	477162	
==>_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477968	478058	
==>_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478867	478957	
==>_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479759	479849	
==>_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480718	480808	
==>_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481721	481811	
==>_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482724	482814	
==>_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483730	483820	
==>_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484729	484819	
==>_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485728	485818	
==>_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} <==
27	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4410	4489	
==>-config|libparrot.def|CFLAGS|myconfig|(?:core_pmcs|exec_(?:cpu|dep)|fingerprint| <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6111	6359	
==>erpreter, {{\@1}});\n    {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	865761	866008	
==>erpreter, {{\@1}});\n   {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	866414	866661	
==>erpreter, {{\@1}});\n   {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43700	43946	
==>erpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44344	44590	
==>erpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44985	45231	
==>erpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45627	45873	
==>erpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59363	59609	
==>erpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60011	60257	
==>erpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60660	60906	
==>erpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61310	61556	
==>erpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61953	62199	
==>erpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62597	62843	
==>erpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63242	63488	
==>erpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	98894	99140	
==>erpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103338	103584	
==>erpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	251456	251702	
==>erpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	331576	331822	
==>erpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449389	449635	
==>erpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	466894	467140	
==>erpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492065	492311	
==>erpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510322	510568	
==>erpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	708627	708873	
==>erpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	709276	709522	
==>erpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	933362	933608	
==>erpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	935576	935822	
==>erpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
27	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937796	938042	
==>erpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459856	459952	
==>0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  { <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460844	460940	
==>0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  { <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461832	461928	
==>0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  { <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462823	462919	
==>0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  { <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463820	463916	
==>0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  { <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464817	464913	
==>0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  { <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467637	467733	
==>0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  { <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468508	468604	
==>0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  { <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469382	469478	
==>0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  { <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470257	470353	
==>0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  { <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471199	471295	
==>0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  { <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472186	472282	
==>0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  { <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473173	473269	
==>0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  { <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474163	474259	
==>0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  { <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475154	475250	
==>0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  { <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476145	476241	
==>0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  { <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477060	477156	
==>0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  { <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477956	478052	
==>0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  { <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478855	478951	
==>0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  { <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479747	479843	
==>0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  { <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480706	480802	
==>0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  { <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481709	481805	
==>0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  { <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482712	482808	
==>0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  { <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483718	483814	
==>0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  { <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484717	484813	
==>0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  { <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485716	485812	
==>0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  { <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459864	459957	
==>real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1} <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460852	460945	
==>real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1} <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461840	461933	
==>real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1} <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462831	462924	
==>real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1} <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463828	463921	
==>real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1} <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464825	464918	
==>real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1} <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467645	467738	
==>real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1} <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468516	468609	
==>real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1} <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469390	469483	
==>real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1} <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470265	470358	
==>real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1} <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471207	471300	
==>real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1} <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472194	472287	
==>real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1} <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473181	473274	
==>real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1} <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474171	474264	
==>real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1} <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475162	475255	
==>real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1} <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476153	476246	
==>real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1} <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477068	477161	
==>real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1} <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477964	478057	
==>real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1} <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478863	478956	
==>real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1} <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479755	479848	
==>real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1} <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480714	480807	
==>real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1} <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481717	481810	
==>real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1} <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482720	482813	
==>real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1} <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483726	483819	
==>real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1} <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484725	484818	
==>real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1} <==
26	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485724	485817	
==>real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1} <==
26	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19455	19589	
==>" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 1 <==
26	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20471	20605	
==>" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 1 <==
26	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21145	21279	
==>" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 1 <==
26	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21620	21754	
==>" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 1 <==
26	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22301	22435	
==>" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 1 <==
26	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22719	22853	
==>" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 1 <==
26	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23137	23271	
==>" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 1 <==
26	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23555	23689	
==>" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 1 <==
26	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23973	24107	
==>" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 1 <==
26	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24391	24525	
==>" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 1 <==
26	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24809	24943	
==>" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 1 <==
26	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25227	25361	
==>" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 1 <==
26	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25645	25779	
==>" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 1 <==
26	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26063	26197	
==>" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 1 <==
26	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26701	26835	
==>" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 1 <==
26	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27119	27253	
==>" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 1 <==
26	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27537	27671	
==>" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 1 <==
26	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27955	28089	
==>" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 1 <==
26	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28373	28507	
==>" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 1 <==
26	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28828	28962	
==>" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 1 <==
26	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33135	33269	
==>" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 1 <==
26	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33577	33711	
==>" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 1 <==
26	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37182	37316	
==>" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 1 <==
26	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38503	38637	
==>" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 1 <==
26	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39371	39505	
==>" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 1 <==
26	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40383	40517	
==>" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 1 <==
26	/Users/nnunley/parrot/config/inter/libparrot.pm	443	538	
==>ription @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ': <==
26	/Users/nnunley/parrot/config/auto/aio.pm	295	386	
==>ription @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ': <==
26	/Users/nnunley/parrot/config/auto/cgoto.pm	318	409	
==>ription @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ': <==
26	/Users/nnunley/parrot/config/auto/env.pm	319	410	
==>ription @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ': <==
26	/Users/nnunley/parrot/config/auto/funcptr.pm	331	422	
==>ription @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ': <==
26	/Users/nnunley/parrot/config/auto/gc.pm	671	762	
==>ription @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ': <==
26	/Users/nnunley/parrot/config/auto/gcc.pm	305	396	
==>ription @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ': <==
26	/Users/nnunley/parrot/config/auto/headers.pm	288	379	
==>ription @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ': <==
26	/Users/nnunley/parrot/config/auto/inline.pm	321	412	
==>ription @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ': <==
26	/Users/nnunley/parrot/config/auto/isreg.pm	301	392	
==>ription @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ': <==
26	/Users/nnunley/parrot/config/auto/memalign.pm	320	411	
==>ription @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ': <==
26	/Users/nnunley/parrot/config/auto/msvc.pm	325	416	
==>ription @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ': <==
26	/Users/nnunley/parrot/config/auto/perldoc.pm	322	413	
==>ription @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ': <==
26	/Users/nnunley/parrot/config/auto/python.pm	382	473	
==>ription @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ': <==
26	/Users/nnunley/parrot/config/auto/signal.pm	283	374	
==>ription @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ': <==
26	/Users/nnunley/parrot/config/auto/sizes.pm	299	390	
==>ription @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ': <==
26	/Users/nnunley/parrot/config/auto/va_ptr.pm	326	417	
==>ription @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ': <==
26	/Users/nnunley/parrot/config/gen/config_h.pm	496	587	
==>ription @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ': <==
26	/Users/nnunley/parrot/config/gen/makefiles.pm	338	429	
==>ription @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ': <==
26	/Users/nnunley/parrot/config/gen/parrot_include.pm	330	421	
==>ription @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ': <==
26	/Users/nnunley/parrot/config/inter/charset.pm	321	412	
==>ription @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ': <==
26	/Users/nnunley/parrot/config/inter/encoding.pm	326	417	
==>ription @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ': <==
26	/Users/nnunley/parrot/config/inter/ops.pm	301	392	
==>ription @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ': <==
26	/Users/nnunley/parrot/config/inter/progs.pm	440	531	
==>ription @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ': <==
26	/Users/nnunley/parrot/config/inter/shlibs.pm	600	691	
==>ription @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ': <==
26	/Users/nnunley/parrot/config/inter/types.pm	352	443	
==>ription @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ': <==
25	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980270	980635	
==>cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11 <==
25	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981401	981766	
==>cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11 <==
25	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982530	982895	
==>cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11 <==
25	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983660	984025	
==>cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11 <==
25	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984790	985155	
==>cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11 <==
25	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985921	986286	
==>cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11 <==
25	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987051	987416	
==>cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11 <==
25	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988182	988547	
==>cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11 <==
25	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989313	989678	
==>cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11 <==
25	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	990449	990814	
==>cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11 <==
25	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991585	991950	
==>cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11 <==
25	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992722	993087	
==>cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11 <==
25	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993859	994224	
==>cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11 <==
25	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994997	995362	
==>cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11 <==
25	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996134	996499	
==>cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11 <==
25	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997272	997637	
==>cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11 <==
25	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	998410	998775	
==>cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11 <==
25	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999549	999914	
==>cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11 <==
25	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000686	1001051	
==>cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11 <==
25	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001824	1002189	
==>cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11 <==
25	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002962	1003327	
==>cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11 <==
25	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004101	1004466	
==>cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11 <==
25	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005239	1005604	
==>cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11 <==
25	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1006378	1006743	
==>cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11 <==
25	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007517	1007882	
==>cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11 <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761884	762243	
==>RS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 860,
                  "ARGS" => [
                              "ic",
                              "p"
                            ],
                  "BODY" => "#line 305 \ <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730199	730492	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730934	731227	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731670	731963	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732415	732708	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733161	733454	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733924	734217	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734688	734981	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735423	735716	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736159	736452	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736904	737197	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737650	737943	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738413	738706	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739177	739470	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739954	740247	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740731	741024	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741466	741759	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742228	742521	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742993	743286	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743759	744052	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744524	744817	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745290	745583	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746026	746319	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	751495	751788	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	866572	866819	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867537	867784	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868503	868750	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869469	869716	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870436	870683	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871452	871699	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872469	872716	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873486	873733	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874504	874751	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875521	875768	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876539	876786	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877557	877804	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887416	887663	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888549	888796	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889683	889930	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890817	891064	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891952	892199	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893086	893333	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	894221	894468	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895356	895603	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904640	904887	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905658	905905	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906677	906924	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907696	907943	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	373487	373804	
==>> 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374369	374686	
==>> 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375252	375569	
==>> 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376135	376452	
==>> 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377019	377336	
==>> 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377902	378219	
==>> 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378786	379103	
==>> 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379670	379987	
==>> 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180058	180236	
==>JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i" <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180953	181131	
==>JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i" <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181849	182027	
==>JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i" <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182745	182923	
==>JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i" <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183640	183818	
==>JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i" <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184536	184714	
==>JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i" <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185432	185610	
==>JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i" <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186361	186539	
==>JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i" <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187291	187469	
==>JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i" <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188221	188399	
==>JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i" <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189162	189340	
==>JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i" <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190102	190280	
==>JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i" <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191043	191221	
==>JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i" <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191982	192160	
==>JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i" <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192922	193100	
==>JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i" <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193900	194078	
==>JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i" <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	230659	230956	
==>AME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231562	231859	
==>AME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232466	232763	
==>AME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233370	233667	
==>AME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234273	234570	
==>AME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235177	235474	
==>AME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236081	236378	
==>AME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236962	237259	
==>AME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237844	238141	
==>AME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238726	239023	
==>AME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	239619	239916	
==>AME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240566	240863	
==>AME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241514	241811	
==>AME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242462	242759	
==>AME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243411	243708	
==>AME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244342	244639	
==>AME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667606	667881	
==>{{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pu <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668380	668655	
==>{{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pu <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669151	669426	
==>{{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pu <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669923	670198	
==>{{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pu <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670695	670970	
==>{{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pu <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671468	671743	
==>{{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pu <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	35551	35824	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pu <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666835	667108	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pu <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730248	730530	
==>,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730983	731265	
==>,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731719	732001	
==>,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732464	732746	
==>,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733210	733492	
==>,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733973	734255	
==>,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734737	735019	
==>,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735472	735754	
==>,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736208	736490	
==>,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736953	737235	
==>,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737699	737981	
==>,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738462	738744	
==>,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739226	739508	
==>,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740003	740285	
==>,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740780	741062	
==>,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741515	741797	
==>,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742277	742559	
==>,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743042	743324	
==>,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743808	744090	
==>,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744573	744855	
==>,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745339	745621	
==>,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746075	746357	
==>,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	751544	751826	
==>,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
24	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	3082	3218	
==>orial
    $I100 = %1
    $I100 = fact $I100
    %1 = $I100
END_PIR

    $P0['monadic:*']      =  "    %1 = exp %1"      # exp
    $P0[uni <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730238	730503	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730973	731238	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731709	731974	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732454	732719	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733200	733465	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733963	734228	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734727	734992	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735462	735727	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736198	736463	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736943	737208	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737689	737954	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738452	738717	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739216	739481	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739993	740258	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740770	741035	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741505	741770	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742267	742532	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743032	743297	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743798	744063	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744563	744828	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745329	745594	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746065	746330	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
24	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	751534	751799	
==>JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
24	/Users/nnunley/parrot/tools/build/jit2c.pl	7675	7759	
==>_jit_vtable_1r332_op Parrot_jit_normal_op
#define Parrot_jit_vtable_1r221_op Parrot_j <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730192	730491	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730927	731226	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731663	731962	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732408	732707	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733154	733453	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733917	734216	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734681	734980	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735416	735715	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736152	736451	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736897	737196	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737643	737942	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738406	738705	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739170	739469	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739947	740246	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740724	741023	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741459	741758	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742221	742520	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742986	743285	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743752	744051	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744517	744816	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745283	745582	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746019	746318	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	751488	751787	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260073	260382	
==>{{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260925	261234	
==>{{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261777	262086	
==>{{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262630	262939	
==>{{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264429	264738	
==>{{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265283	265592	
==>{{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266137	266446	
==>{{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266992	267301	
==>{{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271146	271453	
==>{{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271992	272299	
==>{{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272838	273145	
==>{{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273683	273990	
==>{{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	274529	274836	
==>{{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	275375	275682	
==>{{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	282307	282614	
==>{{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283152	283459	
==>{{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283997	284304	
==>{{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290929	291236	
==>{{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291775	292082	
==>{{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292621	292928	
==>{{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299600	299907	
==>{{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300446	300753	
==>{{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301292	301599	
==>{{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730210	730502	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730945	731237	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731681	731973	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732426	732718	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733172	733464	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733935	734227	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734699	734991	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735434	735726	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736170	736462	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736915	737207	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737661	737953	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738424	738716	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739188	739480	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739965	740257	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740742	741034	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741477	741769	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742239	742531	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743004	743296	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743770	744062	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744535	744827	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745301	745593	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746037	746329	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	751506	751798	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158597	158881	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159493	159777	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160390	160674	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161287	161571	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162183	162467	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163080	163364	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163977	164261	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164905	165189	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165834	166118	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166763	167047	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167701	167985	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168642	168926	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169584	169868	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170524	170808	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171465	171749	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172442	172726	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173420	173704	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	174369	174653	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175318	175602	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176221	176505	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177125	177409	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178029	178313	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178934	179218	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411053	411320	
==>d(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411946	412213	
==>d(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421858	422125	
==>d(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422751	423018	
==>d(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806116	806383	
==>d(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807022	807289	
==>d(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807926	808193	
==>d(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808831	809098	
==>d(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809735	810002	
==>d(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810640	810907	
==>d(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811541	811808	
==>d(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812443	812710	
==>d(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642315	642580	
==>d(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643203	643468	
==>d(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658327	658592	
==>d(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659246	659511	
==>d(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662004	662269	
==>d(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662920	663185	
==>d(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843243	843506	
==>d(interpreter,{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844121	844384	
==>d(interpreter,{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844999	845262	
==>d(interpreter,{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845878	846141	
==>d(interpreter,{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
23	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54417	54533	
==>cent::Directive(
					      'my $oldskip = $skip; $skip='.$1.'; $oldskip',
					      $lookahead,$line,$code);
				$p <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730239	730529	
==>UMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730974	731264	
==>UMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731710	732000	
==>UMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732455	732745	
==>UMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733201	733491	
==>UMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733964	734254	
==>UMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734728	735018	
==>UMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735463	735753	
==>UMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736199	736489	
==>UMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736944	737234	
==>UMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737690	737980	
==>UMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738453	738743	
==>UMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739217	739507	
==>UMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739994	740284	
==>UMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740771	741061	
==>UMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741506	741796	
==>UMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742268	742558	
==>UMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743033	743323	
==>UMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743799	744089	
==>UMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744564	744854	
==>UMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745330	745620	
==>UMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746066	746356	
==>UMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	751535	751825	
==>UMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761534	761809	
==>{{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762387	762662	
==>{{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763239	763514	
==>{{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764092	764367	
==>{{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764945	765220	
==>{{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765799	766074	
==>{{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766651	766926	
==>{{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767504	767779	
==>{{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768357	768632	
==>{{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769211	769486	
==>{{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770063	770338	
==>{{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770916	771191	
==>{{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771769	772044	
==>{{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772623	772898	
==>{{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730743	731016	
==>{{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731479	731752	
==>{{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735232	735505	
==>{{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735968	736241	
==>{{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736713	736986	
==>{{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737459	737732	
==>{{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741275	741548	
==>{{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745835	746108	
==>{{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746570	746843	
==>{{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730268	730536	
==>"NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731003	731271	
==>"NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731739	732007	
==>"NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732484	732752	
==>"NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733230	733498	
==>"NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733993	734261	
==>"NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734757	735025	
==>"NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735492	735760	
==>"NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736228	736496	
==>"NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736973	737241	
==>"NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737719	737987	
==>"NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738482	738750	
==>"NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739246	739514	
==>"NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740023	740291	
==>"NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740800	741068	
==>"NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741535	741803	
==>"NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742297	742565	
==>"NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743062	743330	
==>"NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743828	744096	
==>"NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744593	744861	
==>"NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745359	745627	
==>"NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746095	746363	
==>"NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
23	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	751564	751832	
==>"NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813475	813726	
==>( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inlin <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814100	814351	
==>( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inlin <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814722	814973	
==>( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inlin <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	815350	815601	
==>( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inlin <==
22	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15459	15556	
==>is program is distributed in the hope that it will be useful, but
without any warranty; without ev <==
22	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4423	4520	
==>is program is distributed in the hope that it will be useful, but
without any warranty; without ev <==
22	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3638	3735	
==>is program is distributed in the hope that it will be useful, but
without any warranty; without ev <==
22	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3031	3128	
==>is program is distributed in the hope that it will be useful, but
without any warranty; without ev <==
22	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3639	3736	
==>is program is distributed in the hope that it will be useful, but
without any warranty; without ev <==
22	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12395	12492	
==>is program is distributed in the hope that it will be useful, but
without any warranty; without ev <==
22	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3313	3410	
==>is program is distributed in the hope that it will be useful, but
without any warranty; without ev <==
22	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2620	2717	
==>is program is distributed in the hope that it will be useful, but
without any warranty; without ev <==
22	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20986	21083	
==>is program is distributed in the hope that it will be useful, but
without any warranty; without ev <==
22	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1890	1987	
==>is program is distributed in the hope that it will be useful, but
without any warranty; without ev <==
22	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3057	3154	
==>is program is distributed in the hope that it will be useful, but
without any warranty; without ev <==
22	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2177	2274	
==>is program is distributed in the hope that it will be useful, but
without any warranty; without ev <==
22	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3051	3148	
==>is program is distributed in the hope that it will be useful, but
without any warranty; without ev <==
22	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20708	20805	
==>is program is distributed in the hope that it will be useful, but
without any warranty; without ev <==
22	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3645	3742	
==>is program is distributed in the hope that it will be useful, but
without any warranty; without ev <==
22	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3868	3965	
==>is program is distributed in the hope that it will be useful, but
without any warranty; without ev <==
22	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1598	1695	
==>is program is distributed in the hope that it will be useful, but
without any warranty; without ev <==
22	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3291	3388	
==>is program is distributed in the hope that it will be useful, but
without any warranty; without ev <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260071	260380	
==>= {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260923	261232	
==>= {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261775	262084	
==>= {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262628	262937	
==>= {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264427	264736	
==>= {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265281	265590	
==>= {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266135	266444	
==>= {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266990	267299	
==>= {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271144	271451	
==>= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271990	272297	
==>= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272836	273143	
==>= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273681	273988	
==>= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	274527	274834	
==>= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	275373	275680	
==>= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290927	291234	
==>= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291773	292080	
==>= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292619	292926	
==>= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299598	299905	
==>= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300444	300751	
==>= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301290	301597	
==>= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
22	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	26978	27115	
==>dent'} = $1;
        if($1 == 0) {
          $self->whine(
            $para->[1]{'start_line'},
            "Can't have a 0 in =over $con <==
22	/Users/nnunley/parrot/lib/File/Which.pm	62	161	
==>hich::ISA       = qw(Exporter);

@File::Which::EXPORT    = qw(which);
@File::Which::EXPORT_OK = qw(w <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138278	138562	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139174	139458	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140070	140354	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140965	141249	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141861	142145	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142757	143041	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143684	143968	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144612	144896	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145540	145824	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146475	146759	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147415	147699	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148356	148640	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149296	149580	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150237	150521	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151214	151498	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152192	152476	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	153135	153419	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154078	154362	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154981	155265	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155885	156169	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156789	157073	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157694	157978	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408322	408589	
==>t(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409221	409488	
==>t(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786196	786463	
==>t(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787107	787374	
==>t(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788016	788283	
==>t(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788926	789193	
==>t(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789835	790102	
==>t(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790745	791012	
==>t(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791651	791918	
==>t(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792558	792825	
==>t(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940380	940647	
==>t(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941272	941539	
==>t(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942164	942431	
==>t(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943057	943324	
==>t(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632684	632949	
==>t(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633726	633991	
==>t(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644095	644360	
==>t(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644988	645253	
==>t(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656485	656750	
==>t(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657409	657674	
==>t(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660167	660432	
==>t(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661089	661354	
==>t(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683861	684136	
==>{{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	535809	536082	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732223	732496	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732969	733242	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733732	734005	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734496	734769	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738221	738494	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738985	739258	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739762	740035	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740539	740812	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742036	742309	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742801	743074	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743567	743840	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744332	744605	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745098	745371	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747353	747626	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748138	748411	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748921	749194	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749705	749978	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750488	750761	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759132	759405	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760683	760956	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459869	459960	
==>exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460857	460948	
==>exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461845	461936	
==>exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462836	462927	
==>exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463833	463924	
==>exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464830	464921	
==>exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471212	471303	
==>exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472199	472290	
==>exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473186	473277	
==>exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474176	474267	
==>exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475167	475258	
==>exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476158	476249	
==>exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477073	477164	
==>exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477969	478060	
==>exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478868	478959	
==>exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479760	479851	
==>exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480719	480810	
==>exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481722	481813	
==>exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482725	482816	
==>exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483731	483822	
==>exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484730	484821	
==>exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = <==
22	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485729	485820	
==>exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143617	143908	
==>= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144545	144836	
==>= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145473	145764	
==>= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164838	165129	
==>= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165767	166058	
==>= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166696	166987	
==>= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	174302	174593	
==>= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175251	175542	
==>= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202797	203088	
==>= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203728	204019	
==>= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204659	204950	
==>= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205601	205892	
==>= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210344	210635	
==>= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211324	211615	
==>= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	212273	212564	
==>= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213222	213513	
==>= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222718	223009	
==>= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227461	227752	
==>= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228441	228732	
==>= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	229390	229681	
==>= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	230339	230630	
==>= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683862	684137	
==>{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732224	732497	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732970	733243	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733733	734006	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734497	734770	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738222	738495	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738986	739259	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739763	740036	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740540	740813	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742037	742310	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742802	743075	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743568	743841	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744333	744606	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745099	745372	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747354	747627	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748139	748412	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748922	749195	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749706	749979	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750489	750762	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759133	759406	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760684	760957	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set <==
21	/Users/nnunley/parrot/config/gen/icu.pm	3416	3565	
==>= 0;
                warn "error: ICU header '$header' not found\n";
            }
        }
    }

    die <<"HELP" unless $ok; # this text is also i <==
21	/Users/nnunley/parrot/lib/Pod/Simple.pm	9145	9254	
==>his = shift;
  
  foreach my $new_code (@_) {
    next unless defined $new_code and length $new_code;
    if(A <==
21	/Users/nnunley/parrot/lib/Pod/Simple.pm	10409	10518	
==>his = shift;
  
  foreach my $new_code (@_) {
    next unless defined $new_code and length $new_code;
    if(A <==
21	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15366	15464	
==>e software; you can redistribute it and/or modify
it under the same terms as Perl itself.

This pro <==
21	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4330	4428	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This pro <==
21	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3545	3643	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This pro <==
21	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2938	3036	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This pro <==
21	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3546	3644	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This pro <==
21	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12302	12400	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This pro <==
21	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3220	3318	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This pro <==
21	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2527	2625	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This pro <==
21	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20893	20991	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This pro <==
21	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1797	1895	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This pro <==
21	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2964	3062	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This pro <==
21	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2084	2182	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This pro <==
21	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2958	3056	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This pro <==
21	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20615	20713	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This pro <==
21	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3552	3650	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This pro <==
21	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3775	3873	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This pro <==
21	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1505	1603	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This pro <==
21	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3198	3296	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This pro <==
21	/Users/nnunley/parrot/lib/Class/Struct.pm	13622	13719	
==><croak> if this is not an appropriate object
reference.

If the element type does not start with a <==
21	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	6431	6528	
==>ry is free software; you can redistribute it and/or
modify it under the same terms as Perl itself. <==
21	/Users/nnunley/parrot/lib/File/Which.pm	6778	6875	
==>ry is free software; you can redistribute it and/or modify it under
the same terms as Perl itself. <==
21	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15357	15454	
==>ry is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
21	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4321	4418	
==>ry is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
21	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3536	3633	
==>ry is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
21	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2929	3026	
==>ry is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
21	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3537	3634	
==>ry is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
21	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12293	12390	
==>ry is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
21	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3211	3308	
==>ry is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
21	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2518	2615	
==>ry is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
21	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20884	20981	
==>ry is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
21	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1788	1885	
==>ry is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
21	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2955	3052	
==>ry is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
21	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2075	2172	
==>ry is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
21	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2949	3046	
==>ry is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
21	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20606	20703	
==>ry is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
21	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3543	3640	
==>ry is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
21	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3766	3863	
==>ry is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
21	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1496	1593	
==>ry is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
21	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3189	3286	
==>ry is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050237	1050332	
==>class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(interpreter, {{\@2}}, {{\@3}} <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051271	1051366	
==>class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(interpreter, {{\@2}}, {{\@3}} <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052305	1052400	
==>class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(interpreter, {{\@2}}, {{\@3}} <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053340	1053435	
==>class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(interpreter, {{\@2}}, {{\@3}} <==
21	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4545	4639	
==>of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke@ <==
21	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3760	3854	
==>of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke@ <==
21	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3153	3247	
==>of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke@ <==
21	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3761	3855	
==>of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke@ <==
21	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12517	12611	
==>of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke@ <==
21	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3435	3529	
==>of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke@ <==
21	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2742	2836	
==>of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke@ <==
21	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21108	21202	
==>of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke@ <==
21	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	2012	2106	
==>of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke@ <==
21	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3179	3273	
==>of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke@ <==
21	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2299	2393	
==>of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke@ <==
21	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3173	3267	
==>of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke@ <==
21	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20830	20924	
==>of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke@ <==
21	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3767	3861	
==>of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke@ <==
21	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3990	4084	
==>of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke@ <==
21	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1720	1814	
==>of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke@ <==
21	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3413	3507	
==>of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke@ <==
21	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2769	2888	
==>s);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use eval_is()";
        &Test::is.goto($re <==
21	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	6427	6524	
==>ibrary is free software; you can redistribute it and/or
modify it under the same terms as Perl its <==
21	/Users/nnunley/parrot/lib/File/Which.pm	6774	6871	
==>ibrary is free software; you can redistribute it and/or modify it under
the same terms as Perl its <==
21	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15353	15450	
==>ibrary is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
21	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4317	4414	
==>ibrary is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
21	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3532	3629	
==>ibrary is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
21	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2925	3022	
==>ibrary is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
21	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3533	3630	
==>ibrary is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
21	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12289	12386	
==>ibrary is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
21	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3207	3304	
==>ibrary is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
21	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2514	2611	
==>ibrary is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
21	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20880	20977	
==>ibrary is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
21	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1784	1881	
==>ibrary is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
21	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2951	3048	
==>ibrary is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
21	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2071	2168	
==>ibrary is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
21	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2945	3042	
==>ibrary is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
21	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20602	20699	
==>ibrary is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
21	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3539	3636	
==>ibrary is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
21	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3762	3859	
==>ibrary is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
21	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1492	1589	
==>ibrary is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
21	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3185	3282	
==>ibrary is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	603574	603828	
==>e(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645926	646180	
==>e(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646823	647077	
==>e(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647583	647837	
==>e(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648344	648598	
==>e(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060180	1060434	
==>e(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061085	1061339	
==>e(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	690492	690745	
==>e(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	26840	27092	
==>e(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640708	640960	
==>e(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641472	641724	
==>e(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813252	813504	
==>e(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931890	932142	
==>e(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932661	932913	
==>e(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934096	934348	
==>e(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934871	935123	
==>e(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936312	936564	
==>e(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937089	937341	
==>e(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009894	1010146	
==>e(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010659	1010911	
==>e(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
21	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	13376	13517	
==>-Para.  Reseeking H1\n";
        $state = 0;
      }
    }
    
    elsif($state == 3) {
      # accumulating text until end of Para
      if( <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761532	761808	
==>= {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762385	762661	
==>= {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763237	763513	
==>= {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764090	764366	
==>= {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764943	765219	
==>= {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765797	766073	
==>= {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766649	766925	
==>= {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767502	767778	
==>= {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768355	768631	
==>= {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769209	769485	
==>= {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770061	770337	
==>= {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770914	771190	
==>= {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771767	772043	
==>= {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772621	772897	
==>= {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730741	731015	
==>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731477	731751	
==>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735230	735504	
==>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735966	736240	
==>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741273	741547	
==>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745833	746107	
==>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
21	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746568	746842	
==>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
20	/Users/nnunley/parrot/config/auto/alignptrs.pm	751	853	
==>>data->get('ptr_alignment'))) {
        $align  = $conf->data->get('ptr_alignment');
        $self->set <==
20	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	2897	3041	
==>.tbl                                      [devel]
);

open my $MANI, '>', 'MANIFEST';
print $MANI '# $' . 'Id' . '$' . "\n";  # confuse SVN
print <==
20	/Users/nnunley/parrot/tools/build/dynclasses.pl	6745	6867	
==>$pmc.pmc")
          or die "pmc2c dump failed ($?)\n";
    }
}

sub generate_c {
    my ($pmc) = @_;

    if (needs_build( <==
20	/Users/nnunley/parrot/tools/build/dynpmc.pl	6956	7078	
==>$pmc.pmc")
          or die "pmc2c dump failed ($?)\n";
    }
}

sub generate_c {
    my ($pmc) = @_;

    if (needs_build( <==
20	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15467	15565	
==>am is distributed in the hope that it will be useful, but
without any warranty; without even the im <==
20	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4431	4529	
==>am is distributed in the hope that it will be useful, but
without any warranty; without even the im <==
20	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3646	3744	
==>am is distributed in the hope that it will be useful, but
without any warranty; without even the im <==
20	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3039	3137	
==>am is distributed in the hope that it will be useful, but
without any warranty; without even the im <==
20	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3647	3745	
==>am is distributed in the hope that it will be useful, but
without any warranty; without even the im <==
20	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12403	12501	
==>am is distributed in the hope that it will be useful, but
without any warranty; without even the im <==
20	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3321	3419	
==>am is distributed in the hope that it will be useful, but
without any warranty; without even the im <==
20	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2628	2726	
==>am is distributed in the hope that it will be useful, but
without any warranty; without even the im <==
20	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20994	21092	
==>am is distributed in the hope that it will be useful, but
without any warranty; without even the im <==
20	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1898	1996	
==>am is distributed in the hope that it will be useful, but
without any warranty; without even the im <==
20	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3065	3163	
==>am is distributed in the hope that it will be useful, but
without any warranty; without even the im <==
20	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2185	2283	
==>am is distributed in the hope that it will be useful, but
without any warranty; without even the im <==
20	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3059	3157	
==>am is distributed in the hope that it will be useful, but
without any warranty; without even the im <==
20	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20716	20814	
==>am is distributed in the hope that it will be useful, but
without any warranty; without even the im <==
20	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3653	3751	
==>am is distributed in the hope that it will be useful, but
without any warranty; without even the im <==
20	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3876	3974	
==>am is distributed in the hope that it will be useful, but
without any warranty; without even the im <==
20	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1606	1704	
==>am is distributed in the hope that it will be useful, but
without any warranty; without even the im <==
20	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3299	3397	
==>am is distributed in the hope that it will be useful, but
without any warranty; without even the im <==
20	/Users/nnunley/parrot/lib/Pod/Simple.pm	18018	18128	
==>e-o pre-cooked paragraphs:
    #  just have the first line be a reference to a ['~Top', {}, ...]
    # We use t <==
20	/Users/nnunley/parrot/tools/dev/install_files.pl	2636	2737	
==>ename);
use File::Copy;
use File::Spec;
use strict;

# When run from the makefile, which is probably t <==
20	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15372	15470	
==>ware; you can redistribute it and/or modify
it under the same terms as Perl itself.

This program i <==
20	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4336	4434	
==>ware; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program i <==
20	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3551	3649	
==>ware; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program i <==
20	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2944	3042	
==>ware; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program i <==
20	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3552	3650	
==>ware; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program i <==
20	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12308	12406	
==>ware; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program i <==
20	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3226	3324	
==>ware; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program i <==
20	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2533	2631	
==>ware; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program i <==
20	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20899	20997	
==>ware; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program i <==
20	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1803	1901	
==>ware; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program i <==
20	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2970	3068	
==>ware; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program i <==
20	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2090	2188	
==>ware; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program i <==
20	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2964	3062	
==>ware; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program i <==
20	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20621	20719	
==>ware; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program i <==
20	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3558	3656	
==>ware; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program i <==
20	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3781	3879	
==>ware; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program i <==
20	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1511	1609	
==>ware; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program i <==
20	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3204	3302	
==>ware; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program i <==
20	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	915	1012	
==>ons or in general when svn is not available).
# See docs/submissions.pod on how to recreate this f <==
20	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3770	3867	
==>ons or in general when svn is not available).
# See docs/submissions.pod on how to recreate this f <==
20	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	6428	6527	
==>brary is free software; you can redistribute it and/or
modify it under the same terms as Perl itself <==
20	/Users/nnunley/parrot/lib/File/Which.pm	6775	6874	
==>brary is free software; you can redistribute it and/or modify it under
the same terms as Perl itself <==
20	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15354	15453	
==>brary is free software; you can redistribute it and/or modify
it under the same terms as Perl itself <==
20	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4318	4417	
==>brary is free software; you can redistribute it and/or modify it
under the same terms as Perl itself <==
20	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3533	3632	
==>brary is free software; you can redistribute it and/or modify it
under the same terms as Perl itself <==
20	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2926	3025	
==>brary is free software; you can redistribute it and/or modify it
under the same terms as Perl itself <==
20	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3534	3633	
==>brary is free software; you can redistribute it and/or modify it
under the same terms as Perl itself <==
20	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12290	12389	
==>brary is free software; you can redistribute it and/or modify it
under the same terms as Perl itself <==
20	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3208	3307	
==>brary is free software; you can redistribute it and/or modify it
under the same terms as Perl itself <==
20	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2515	2614	
==>brary is free software; you can redistribute it and/or modify it
under the same terms as Perl itself <==
20	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20881	20980	
==>brary is free software; you can redistribute it and/or modify it
under the same terms as Perl itself <==
20	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1785	1884	
==>brary is free software; you can redistribute it and/or modify it
under the same terms as Perl itself <==
20	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2952	3051	
==>brary is free software; you can redistribute it and/or modify it
under the same terms as Perl itself <==
20	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2072	2171	
==>brary is free software; you can redistribute it and/or modify it
under the same terms as Perl itself <==
20	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2946	3045	
==>brary is free software; you can redistribute it and/or modify it
under the same terms as Perl itself <==
20	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20603	20702	
==>brary is free software; you can redistribute it and/or modify it
under the same terms as Perl itself <==
20	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3540	3639	
==>brary is free software; you can redistribute it and/or modify it
under the same terms as Perl itself <==
20	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3763	3862	
==>brary is free software; you can redistribute it and/or modify it
under the same terms as Perl itself <==
20	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1493	1592	
==>brary is free software; you can redistribute it and/or modify it
under the same terms as Perl itself <==
20	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3186	3285	
==>brary is free software; you can redistribute it and/or modify it
under the same terms as Perl itself <==
20	/Users/nnunley/parrot/lib/Text/Balanced.pm	39732	39834	
==>text, '/para', '/endpara', undef,
				{reject => '/para', fail => MAX );

	# EXTRACTED: "/para line 1\n <==
20	/Users/nnunley/parrot/lib/Text/Balanced.pm	40046	40147	
==>text, '/para', '/endpara', undef,
			{reject => '/para', fail => MAX );

	# EXTRACTED: "/para line 1\n <==
20	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15342	15440	
==>ed.

This library is free software; you can redistribute it and/or modify
it under the same terms a <==
20	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4306	4404	
==>ed.

This library is free software; you can redistribute it and/or modify it
under the same terms a <==
20	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3521	3619	
==>ed.

This library is free software; you can redistribute it and/or modify it
under the same terms a <==
20	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2914	3012	
==>ed.

This library is free software; you can redistribute it and/or modify it
under the same terms a <==
20	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3522	3620	
==>ed.

This library is free software; you can redistribute it and/or modify it
under the same terms a <==
20	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12278	12376	
==>ed.

This library is free software; you can redistribute it and/or modify it
under the same terms a <==
20	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3196	3294	
==>ed.

This library is free software; you can redistribute it and/or modify it
under the same terms a <==
20	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2503	2601	
==>ed.

This library is free software; you can redistribute it and/or modify it
under the same terms a <==
20	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20869	20967	
==>ed.

This library is free software; you can redistribute it and/or modify it
under the same terms a <==
20	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1773	1871	
==>ed.

This library is free software; you can redistribute it and/or modify it
under the same terms a <==
20	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2940	3038	
==>ed.

This library is free software; you can redistribute it and/or modify it
under the same terms a <==
20	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2060	2158	
==>ed.

This library is free software; you can redistribute it and/or modify it
under the same terms a <==
20	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2934	3032	
==>ed.

This library is free software; you can redistribute it and/or modify it
under the same terms a <==
20	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20591	20689	
==>ed.

This library is free software; you can redistribute it and/or modify it
under the same terms a <==
20	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3528	3626	
==>ed.

This library is free software; you can redistribute it and/or modify it
under the same terms a <==
20	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3751	3849	
==>ed.

This library is free software; you can redistribute it and/or modify it
under the same terms a <==
20	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1481	1579	
==>ed.

This library is free software; you can redistribute it and/or modify it
under the same terms a <==
20	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3174	3272	
==>ed.

This library is free software; you can redistribute it and/or modify it
under the same terms a <==
20	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	2331	2452	
==>return shift->is('exfix-arith');   }
sub is_goto          { return shift->is('goto');          }
sub is_ident         { re <==
20	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4252	4353	
==>s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		return(<<CODE, $result);
	set $result, 0 <==
20	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15437	15535	
==>ms as Perl itself.

This program is distributed in the hope that it will be useful, but
without any <==
20	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4401	4499	
==>ms as Perl itself.

This program is distributed in the hope that it will be useful, but
without any <==
20	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3616	3714	
==>ms as Perl itself.

This program is distributed in the hope that it will be useful, but
without any <==
20	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3009	3107	
==>ms as Perl itself.

This program is distributed in the hope that it will be useful, but
without any <==
20	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3617	3715	
==>ms as Perl itself.

This program is distributed in the hope that it will be useful, but
without any <==
20	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12373	12471	
==>ms as Perl itself.

This program is distributed in the hope that it will be useful, but
without any <==
20	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3291	3389	
==>ms as Perl itself.

This program is distributed in the hope that it will be useful, but
without any <==
20	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2598	2696	
==>ms as Perl itself.

This program is distributed in the hope that it will be useful, but
without any <==
20	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20964	21062	
==>ms as Perl itself.

This program is distributed in the hope that it will be useful, but
without any <==
20	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1868	1966	
==>ms as Perl itself.

This program is distributed in the hope that it will be useful, but
without any <==
20	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3035	3133	
==>ms as Perl itself.

This program is distributed in the hope that it will be useful, but
without any <==
20	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2155	2253	
==>ms as Perl itself.

This program is distributed in the hope that it will be useful, but
without any <==
20	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3029	3127	
==>ms as Perl itself.

This program is distributed in the hope that it will be useful, but
without any <==
20	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20686	20784	
==>ms as Perl itself.

This program is distributed in the hope that it will be useful, but
without any <==
20	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3623	3721	
==>ms as Perl itself.

This program is distributed in the hope that it will be useful, but
without any <==
20	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3846	3944	
==>ms as Perl itself.

This program is distributed in the hope that it will be useful, but
without any <==
20	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1576	1674	
==>ms as Perl itself.

This program is distributed in the hope that it will be useful, but
without any <==
20	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3269	3367	
==>ms as Perl itself.

This program is distributed in the hope that it will be useful, but
without any <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871253	871591	
==>=> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core" <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872270	872608	
==>=> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core" <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873287	873625	
==>=> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core" <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874305	874643	
==>=> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core" <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875322	875660	
==>=> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core" <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876340	876678	
==>=> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core" <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877358	877696	
==>=> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core" <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887217	887555	
==>=> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core" <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897310	897648	
==>=> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core" <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898328	898666	
==>=> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core" <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899346	899684	
==>=> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core" <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900365	900703	
==>=> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core" <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901383	901721	
==>=> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core" <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902402	902740	
==>=> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core" <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903421	903759	
==>=> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core" <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904441	904779	
==>=> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core" <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905459	905797	
==>=> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core" <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906478	906816	
==>=> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core" <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907497	907835	
==>=> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core" <==
20	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	240	335	
==>(.*)/gm;
	print join("\n", @c), "\n====================== $tn\n" if @c;
	$tn++;
	open(OF, ">_tes <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554363	554626	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555760	556023	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556997	557260	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562068	562331	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579752	580015	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581057	581320	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582362	582625	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583668	583931	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587002	587265	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588188	588451	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589374	589637	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590561	590824	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591770	592033	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592980	593243	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594190	594453	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597186	597449	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614000	614263	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615150	615413	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT <==
20	/Users/nnunley/parrot/lib/Text/Balanced.pm	7202	7322	
==>eject})	       ? $options{reject}
		    :					 ''
		    ;
	my $ignore  = ref($options{ignore}) eq 'ARRAY' ? join('|', @{$ <==
20	/Users/nnunley/parrot/lib/Text/Balanced.pm	24204	24324	
==>eject})	       ? $options{reject}
		    :					 ''
		    ;
	my $ignore  = ref($options{ignore}) eq 'ARRAY' ? join('|', @{$ <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51359	51688	
==>"trace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 66,
                  "ARGS" => [
                              "i"
                            ],
                  " <==
20	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	3150	3246	
==>es to return the run core C code for
section after the address table. C<$base_suffix> is the same <==
20	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15498	15593	
==>hat it will be useful, but
without any warranty; without even the implied warranty of
merchantab <==
20	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4462	4557	
==>hat it will be useful, but
without any warranty; without even the implied warranty of
merchantab <==
20	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3677	3772	
==>hat it will be useful, but
without any warranty; without even the implied warranty of
merchantab <==
20	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3070	3165	
==>hat it will be useful, but
without any warranty; without even the implied warranty of
merchantab <==
20	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3678	3773	
==>hat it will be useful, but
without any warranty; without even the implied warranty of
merchantab <==
20	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12434	12529	
==>hat it will be useful, but
without any warranty; without even the implied warranty of
merchantab <==
20	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3352	3447	
==>hat it will be useful, but
without any warranty; without even the implied warranty of
merchantab <==
20	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2659	2754	
==>hat it will be useful, but
without any warranty; without even the implied warranty of
merchantab <==
20	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21025	21120	
==>hat it will be useful, but
without any warranty; without even the implied warranty of
merchantab <==
20	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1929	2024	
==>hat it will be useful, but
without any warranty; without even the implied warranty of
merchantab <==
20	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3096	3191	
==>hat it will be useful, but
without any warranty; without even the implied warranty of
merchantab <==
20	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2216	2311	
==>hat it will be useful, but
without any warranty; without even the implied warranty of
merchantab <==
20	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3090	3185	
==>hat it will be useful, but
without any warranty; without even the implied warranty of
merchantab <==
20	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20747	20842	
==>hat it will be useful, but
without any warranty; without even the implied warranty of
merchantab <==
20	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3684	3779	
==>hat it will be useful, but
without any warranty; without even the implied warranty of
merchantab <==
20	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3907	4002	
==>hat it will be useful, but
without any warranty; without even the implied warranty of
merchantab <==
20	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1637	1732	
==>hat it will be useful, but
without any warranty; without even the implied warranty of
merchantab <==
20	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3330	3425	
==>hat it will be useful, but
without any warranty; without even the implied warranty of
merchantab <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871248	871585	
==>ELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872265	872602	
==>ELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873282	873619	
==>ELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874300	874637	
==>ELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875317	875654	
==>ELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876335	876672	
==>ELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877353	877690	
==>ELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887212	887549	
==>ELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897305	897642	
==>ELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898323	898660	
==>ELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899341	899678	
==>ELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900360	900697	
==>ELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901378	901715	
==>ELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902397	902734	
==>ELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903416	903753	
==>ELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904436	904773	
==>ELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905454	905791	
==>ELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906473	906810	
==>ELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907492	907829	
==>ELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base <==
20	/Users/nnunley/parrot/lib/Text/Balanced.pm	39848	39943	
==>Suppose instead, that if no matching "/endpara" tag is found, the "/para"
tag refers only to the <==
20	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	6421	6523	
==>This library is free software; you can redistribute it and/or
modify it under the same terms as Perl it <==
20	/Users/nnunley/parrot/lib/File/Which.pm	6768	6870	
==>This library is free software; you can redistribute it and/or modify it under
the same terms as Perl it <==
20	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15347	15449	
==>This library is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
20	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4311	4413	
==>This library is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
20	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3526	3628	
==>This library is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
20	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2919	3021	
==>This library is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
20	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3527	3629	
==>This library is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
20	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12283	12385	
==>This library is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
20	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3201	3303	
==>This library is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
20	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2508	2610	
==>This library is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
20	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20874	20976	
==>This library is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
20	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1778	1880	
==>This library is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
20	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2945	3047	
==>This library is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
20	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2065	2167	
==>This library is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
20	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2939	3041	
==>This library is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
20	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20596	20698	
==>This library is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
20	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3533	3635	
==>This library is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
20	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3756	3858	
==>This library is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
20	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1486	1588	
==>This library is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
20	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3179	3281	
==>This library is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871250	871587	
==>S" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_c <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872267	872604	
==>S" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_c <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873284	873621	
==>S" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_c <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874302	874639	
==>S" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_c <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875319	875656	
==>S" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_c <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876337	876674	
==>S" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_c <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877355	877692	
==>S" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_c <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887214	887551	
==>S" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_c <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897307	897644	
==>S" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_c <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898325	898662	
==>S" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_c <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899343	899680	
==>S" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_c <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900362	900699	
==>S" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_c <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901380	901717	
==>S" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_c <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902399	902736	
==>S" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_c <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903418	903755	
==>S" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_c <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904438	904775	
==>S" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_c <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905456	905793	
==>S" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_c <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906475	906812	
==>S" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_c <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907494	907831	
==>S" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_c <==
20	/Users/nnunley/parrot/Configure.pl	5593	5702	
==>er supports inline
   --optimize           Optimized compile
   --optimize=flags     Add given optimizer flags <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871213	871549	
==>{{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr", <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872230	872566	
==>{{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr", <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873247	873583	
==>{{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr", <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874265	874601	
==>{{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr", <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875282	875618	
==>{{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr", <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876300	876636	
==>{{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr", <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877318	877654	
==>{{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr", <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887177	887513	
==>{{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr", <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897270	897606	
==>{{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr", <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898288	898624	
==>{{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr", <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899306	899642	
==>{{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr", <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900325	900661	
==>{{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr", <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901343	901679	
==>{{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr", <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902362	902698	
==>{{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr", <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903381	903717	
==>{{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr", <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904401	904737	
==>{{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr", <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905419	905755	
==>{{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr", <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906438	906774	
==>{{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr", <==
20	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907457	907793	
==>{{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr", <==
20	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	486	586	
==>ant;
}


# Internal routine to emit code to really do any moves we've done lazily.
sub _do_lazy_moves <==
19	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33469	33583	
==>{
	my $class = ref($_[0]) || $_[0];
	bless 
	{
		"subrule"   => $_[1],
		"lookahead" => $_[2],
		"line"      => $_[ <==
19	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15390	15486	
==>stribute it and/or modify
it under the same terms as Perl itself.

This program is distributed in <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4354	4450	
==>stribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3569	3665	
==>stribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2962	3058	
==>stribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3570	3666	
==>stribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in <==
19	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12326	12422	
==>stribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in <==
19	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3244	3340	
==>stribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2551	2647	
==>stribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20917	21013	
==>stribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1821	1917	
==>stribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2988	3084	
==>stribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2108	2204	
==>stribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2982	3078	
==>stribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in <==
19	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20639	20735	
==>stribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in <==
19	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3576	3672	
==>stribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3799	3895	
==>stribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in <==
19	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1529	1625	
==>stribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in <==
19	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3222	3318	
==>stribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in <==
19	/Users/nnunley/parrot/lib/Parrot/Test.pm	19194	19331	
==>= sub {
            my ( $language, @remaining ) = @_;

            my $meth = $language_test_map{$func};
            if ( my $prefix = $b <==
19	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15505	15600	
==>will be useful, but
without any warranty; without even the implied warranty of
merchantability o <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4469	4564	
==>will be useful, but
without any warranty; without even the implied warranty of
merchantability o <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3684	3779	
==>will be useful, but
without any warranty; without even the implied warranty of
merchantability o <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3077	3172	
==>will be useful, but
without any warranty; without even the implied warranty of
merchantability o <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3685	3780	
==>will be useful, but
without any warranty; without even the implied warranty of
merchantability o <==
19	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12441	12536	
==>will be useful, but
without any warranty; without even the implied warranty of
merchantability o <==
19	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3359	3454	
==>will be useful, but
without any warranty; without even the implied warranty of
merchantability o <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2666	2761	
==>will be useful, but
without any warranty; without even the implied warranty of
merchantability o <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21032	21127	
==>will be useful, but
without any warranty; without even the implied warranty of
merchantability o <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1936	2031	
==>will be useful, but
without any warranty; without even the implied warranty of
merchantability o <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3103	3198	
==>will be useful, but
without any warranty; without even the implied warranty of
merchantability o <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2223	2318	
==>will be useful, but
without any warranty; without even the implied warranty of
merchantability o <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3097	3192	
==>will be useful, but
without any warranty; without even the implied warranty of
merchantability o <==
19	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20754	20849	
==>will be useful, but
without any warranty; without even the implied warranty of
merchantability o <==
19	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3691	3786	
==>will be useful, but
without any warranty; without even the implied warranty of
merchantability o <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3914	4009	
==>will be useful, but
without any warranty; without even the implied warranty of
merchantability o <==
19	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1644	1739	
==>will be useful, but
without any warranty; without even the implied warranty of
merchantability o <==
19	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3337	3432	
==>will be useful, but
without any warranty; without even the implied warranty of
merchantability o <==
19	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8902	8997	
==>of_tests_planned = undef;
    $Test::force_todo_test_junction = undef;
    $Test::testing_starte <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732227	732519	
==>2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  " <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732973	733265	
==>2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  " <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733736	734028	
==>2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  " <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734500	734792	
==>2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  " <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738225	738517	
==>2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  " <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738989	739281	
==>2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  " <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739766	740058	
==>2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  " <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740543	740835	
==>2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  " <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742040	742332	
==>2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  " <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742805	743097	
==>2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  " <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743571	743863	
==>2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  " <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744336	744628	
==>2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  " <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745102	745394	
==>2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  " <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747357	747649	
==>2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  " <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748142	748434	
==>2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  " <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748925	749217	
==>2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  " <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749709	750001	
==>2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  " <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750492	750784	
==>2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  " <==
19	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	2035	2157	
==>reach my $name (@{$contents{'headers'}})
        {
            push @contents,
                $dist->relative_path($dist-> <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554404	554650	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NA <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555801	556047	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NA <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557038	557284	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NA <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562109	562355	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NA <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579793	580039	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NA <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581098	581344	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NA <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582403	582649	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NA <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583709	583955	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NA <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587043	587289	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NA <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588229	588475	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NA <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589415	589661	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NA <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590602	590848	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NA <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591811	592057	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NA <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593021	593267	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NA <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594231	594477	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NA <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597227	597473	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NA <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614041	614287	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NA <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615191	615437	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NA <==
19	/Users/nnunley/parrot/Configure.pl	218	309	
==>Configure.pl [options]

=head1 DESCRIPTION

This is Parrot's configuration script. It should <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871249	871586	
==>LS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_ <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872266	872603	
==>LS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_ <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873283	873620	
==>LS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_ <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874301	874638	
==>LS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_ <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875318	875655	
==>LS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_ <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876336	876673	
==>LS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_ <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877354	877691	
==>LS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_ <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887213	887550	
==>LS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_ <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897306	897643	
==>LS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_ <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898324	898661	
==>LS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_ <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899342	899679	
==>LS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_ <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900361	900698	
==>LS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_ <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901379	901716	
==>LS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_ <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902398	902735	
==>LS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_ <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903417	903754	
==>LS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_ <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904437	904774	
==>LS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_ <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905455	905792	
==>LS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_ <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906474	906811	
==>LS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_ <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907493	907830	
==>LS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_ <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459550	459819	
==>ne",
                  "CODE" => 527,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 282 \"src/ops/math.ops\"\n  INTV <==
19	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15495	15591	
==>e that it will be useful, but
without any warranty; without even the implied warranty of
merchant <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4459	4555	
==>e that it will be useful, but
without any warranty; without even the implied warranty of
merchant <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3674	3770	
==>e that it will be useful, but
without any warranty; without even the implied warranty of
merchant <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3067	3163	
==>e that it will be useful, but
without any warranty; without even the implied warranty of
merchant <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3675	3771	
==>e that it will be useful, but
without any warranty; without even the implied warranty of
merchant <==
19	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12431	12527	
==>e that it will be useful, but
without any warranty; without even the implied warranty of
merchant <==
19	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3349	3445	
==>e that it will be useful, but
without any warranty; without even the implied warranty of
merchant <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2656	2752	
==>e that it will be useful, but
without any warranty; without even the implied warranty of
merchant <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21022	21118	
==>e that it will be useful, but
without any warranty; without even the implied warranty of
merchant <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1926	2022	
==>e that it will be useful, but
without any warranty; without even the implied warranty of
merchant <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3093	3189	
==>e that it will be useful, but
without any warranty; without even the implied warranty of
merchant <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2213	2309	
==>e that it will be useful, but
without any warranty; without even the implied warranty of
merchant <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3087	3183	
==>e that it will be useful, but
without any warranty; without even the implied warranty of
merchant <==
19	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20744	20840	
==>e that it will be useful, but
without any warranty; without even the implied warranty of
merchant <==
19	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3681	3777	
==>e that it will be useful, but
without any warranty; without even the implied warranty of
merchant <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3904	4000	
==>e that it will be useful, but
without any warranty; without even the implied warranty of
merchant <==
19	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1634	1730	
==>e that it will be useful, but
without any warranty; without even the implied warranty of
merchant <==
19	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3327	3423	
==>e that it will be useful, but
without any warranty; without even the implied warranty of
merchant <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871210	871548	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr" <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872227	872565	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr" <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873244	873582	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr" <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874262	874600	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr" <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875279	875617	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr" <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876297	876635	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr" <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877315	877653	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr" <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887174	887512	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr" <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897267	897605	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr" <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898285	898623	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr" <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899303	899641	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr" <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900322	900660	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr" <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901340	901678	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr" <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902359	902697	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr" <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903378	903716	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr" <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904398	904736	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr" <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905416	905754	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr" <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906435	906773	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr" <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907454	907792	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr" <==
19	/Users/nnunley/parrot/tools/build/jit2c.pl	1708	1813	
==>_maps;
}
else {
    $jit_cpu = ($cpuarch eq 'i386') ? 0 : 1;
    push @jit_funcs, "Parrot_jit_fn_info_t op <==
19	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15541	15634	
==>anty; without even the implied warranty of
merchantability or fitness for a particular purpose <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4505	4598	
==>anty; without even the implied warranty of
merchantability or fitness for a particular purpose <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3720	3813	
==>anty; without even the implied warranty of
merchantability or fitness for a particular purpose <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3113	3206	
==>anty; without even the implied warranty of
merchantability or fitness for a particular purpose <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3721	3814	
==>anty; without even the implied warranty of
merchantability or fitness for a particular purpose <==
19	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12477	12570	
==>anty; without even the implied warranty of
merchantability or fitness for a particular purpose <==
19	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3395	3488	
==>anty; without even the implied warranty of
merchantability or fitness for a particular purpose <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2702	2795	
==>anty; without even the implied warranty of
merchantability or fitness for a particular purpose <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21068	21161	
==>anty; without even the implied warranty of
merchantability or fitness for a particular purpose <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1972	2065	
==>anty; without even the implied warranty of
merchantability or fitness for a particular purpose <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3139	3232	
==>anty; without even the implied warranty of
merchantability or fitness for a particular purpose <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2259	2352	
==>anty; without even the implied warranty of
merchantability or fitness for a particular purpose <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3133	3226	
==>anty; without even the implied warranty of
merchantability or fitness for a particular purpose <==
19	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20790	20883	
==>anty; without even the implied warranty of
merchantability or fitness for a particular purpose <==
19	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3727	3820	
==>anty; without even the implied warranty of
merchantability or fitness for a particular purpose <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3950	4043	
==>anty; without even the implied warranty of
merchantability or fitness for a particular purpose <==
19	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1680	1773	
==>anty; without even the implied warranty of
merchantability or fitness for a particular purpose <==
19	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3373	3466	
==>anty; without even the implied warranty of
merchantability or fitness for a particular purpose <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185497	185813	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 221,
                  " <==
19	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15403	15500	
==>nd/or modify
it under the same terms as Perl itself.

This program is distributed in the hope that <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4367	4464	
==>nd/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3582	3679	
==>nd/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2975	3072	
==>nd/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3583	3680	
==>nd/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that <==
19	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12339	12436	
==>nd/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that <==
19	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3257	3354	
==>nd/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2564	2661	
==>nd/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20930	21027	
==>nd/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1834	1931	
==>nd/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3001	3098	
==>nd/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2121	2218	
==>nd/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2995	3092	
==>nd/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that <==
19	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20652	20749	
==>nd/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that <==
19	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3589	3686	
==>nd/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3812	3909	
==>nd/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that <==
19	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1542	1639	
==>nd/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that <==
19	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3235	3332	
==>nd/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772893	773191	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773802	774100	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774712	775010	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775622	775920	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776533	776831	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777441	777739	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778350	778648	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779259	779557	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780169	780467	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781077	781375	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781986	782284	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782895	783193	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783805	784103	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784710	785008	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792888	793186	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793792	794090	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794697	794995	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795602	795900	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796508	796806	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871214	871584	
==>{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":bas <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872231	872601	
==>{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":bas <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873248	873618	
==>{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":bas <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874266	874636	
==>{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":bas <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875283	875653	
==>{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":bas <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876301	876671	
==>{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":bas <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877319	877689	
==>{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":bas <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887178	887548	
==>{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":bas <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897271	897641	
==>{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":bas <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898289	898659	
==>{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":bas <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899307	899677	
==>{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":bas <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900326	900696	
==>{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":bas <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901344	901714	
==>{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":bas <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902363	902733	
==>{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":bas <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903382	903752	
==>{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":bas <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904402	904772	
==>{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":bas <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905420	905790	
==>{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":bas <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906439	906809	
==>{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":bas <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907458	907828	
==>{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":bas <==
19	/Users/nnunley/parrot/tools/dev/lib_deps.pl	1347	1448	
==>es) = @ARGV;

if ($mode !~ /^(source|object)$/ || ! @files) {
    die "Usage: $0 object <object files. <==
19	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15379	15476	
==>ou can redistribute it and/or modify
it under the same terms as Perl itself.

This program is dist <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4343	4440	
==>ou can redistribute it and/or modify it
under the same terms as Perl itself.

This program is dist <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3558	3655	
==>ou can redistribute it and/or modify it
under the same terms as Perl itself.

This program is dist <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2951	3048	
==>ou can redistribute it and/or modify it
under the same terms as Perl itself.

This program is dist <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3559	3656	
==>ou can redistribute it and/or modify it
under the same terms as Perl itself.

This program is dist <==
19	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12315	12412	
==>ou can redistribute it and/or modify it
under the same terms as Perl itself.

This program is dist <==
19	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3233	3330	
==>ou can redistribute it and/or modify it
under the same terms as Perl itself.

This program is dist <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2540	2637	
==>ou can redistribute it and/or modify it
under the same terms as Perl itself.

This program is dist <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20906	21003	
==>ou can redistribute it and/or modify it
under the same terms as Perl itself.

This program is dist <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1810	1907	
==>ou can redistribute it and/or modify it
under the same terms as Perl itself.

This program is dist <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2977	3074	
==>ou can redistribute it and/or modify it
under the same terms as Perl itself.

This program is dist <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2097	2194	
==>ou can redistribute it and/or modify it
under the same terms as Perl itself.

This program is dist <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2971	3068	
==>ou can redistribute it and/or modify it
under the same terms as Perl itself.

This program is dist <==
19	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20628	20725	
==>ou can redistribute it and/or modify it
under the same terms as Perl itself.

This program is dist <==
19	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3565	3662	
==>ou can redistribute it and/or modify it
under the same terms as Perl itself.

This program is dist <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3788	3885	
==>ou can redistribute it and/or modify it
under the same terms as Perl itself.

This program is dist <==
19	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1518	1615	
==>ou can redistribute it and/or modify it
under the same terms as Perl itself.

This program is dist <==
19	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3211	3308	
==>ou can redistribute it and/or modify it
under the same terms as Perl itself.

This program is dist <==
19	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15332	15429	
==>hts reserved.

This library is free software; you can redistribute it and/or modify
it under the s <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4296	4393	
==>hts reserved.

This library is free software; you can redistribute it and/or modify it
under the s <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3511	3608	
==>hts reserved.

This library is free software; you can redistribute it and/or modify it
under the s <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2904	3001	
==>hts reserved.

This library is free software; you can redistribute it and/or modify it
under the s <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3512	3609	
==>hts reserved.

This library is free software; you can redistribute it and/or modify it
under the s <==
19	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12268	12365	
==>hts reserved.

This library is free software; you can redistribute it and/or modify it
under the s <==
19	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3186	3283	
==>hts reserved.

This library is free software; you can redistribute it and/or modify it
under the s <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2493	2590	
==>hts reserved.

This library is free software; you can redistribute it and/or modify it
under the s <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20859	20956	
==>hts reserved.

This library is free software; you can redistribute it and/or modify it
under the s <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1763	1860	
==>hts reserved.

This library is free software; you can redistribute it and/or modify it
under the s <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2930	3027	
==>hts reserved.

This library is free software; you can redistribute it and/or modify it
under the s <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2050	2147	
==>hts reserved.

This library is free software; you can redistribute it and/or modify it
under the s <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2924	3021	
==>hts reserved.

This library is free software; you can redistribute it and/or modify it
under the s <==
19	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20581	20678	
==>hts reserved.

This library is free software; you can redistribute it and/or modify it
under the s <==
19	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3518	3615	
==>hts reserved.

This library is free software; you can redistribute it and/or modify it
under the s <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3741	3838	
==>hts reserved.

This library is free software; you can redistribute it and/or modify it
under the s <==
19	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1471	1568	
==>hts reserved.

This library is free software; you can redistribute it and/or modify it
under the s <==
19	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3164	3261	
==>hts reserved.

This library is free software; you can redistribute it and/or modify it
under the s <==
19	/Users/nnunley/parrot/tools/dev/parrotbench.pl	2348	2443	
==>riginally written by:

Sebastian Riedel, C<sri@oook.de>

=cut

# Create Default Configuration 
m <==
19	/Users/nnunley/parrot/tools/dev/parrotbench.pl	6627	6754	
==>tion ) {
        my ($prog, $sect) = ($program[$_], $section[$_]);
        if ( $bench{ $name }{ $prog } ) {
            my $sta <==
19	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15445	15542	
==>rl itself.

This program is distributed in the hope that it will be useful, but
without any warran <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4409	4506	
==>rl itself.

This program is distributed in the hope that it will be useful, but
without any warran <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3624	3721	
==>rl itself.

This program is distributed in the hope that it will be useful, but
without any warran <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3017	3114	
==>rl itself.

This program is distributed in the hope that it will be useful, but
without any warran <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3625	3722	
==>rl itself.

This program is distributed in the hope that it will be useful, but
without any warran <==
19	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12381	12478	
==>rl itself.

This program is distributed in the hope that it will be useful, but
without any warran <==
19	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3299	3396	
==>rl itself.

This program is distributed in the hope that it will be useful, but
without any warran <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2606	2703	
==>rl itself.

This program is distributed in the hope that it will be useful, but
without any warran <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20972	21069	
==>rl itself.

This program is distributed in the hope that it will be useful, but
without any warran <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1876	1973	
==>rl itself.

This program is distributed in the hope that it will be useful, but
without any warran <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3043	3140	
==>rl itself.

This program is distributed in the hope that it will be useful, but
without any warran <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2163	2260	
==>rl itself.

This program is distributed in the hope that it will be useful, but
without any warran <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3037	3134	
==>rl itself.

This program is distributed in the hope that it will be useful, but
without any warran <==
19	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20694	20791	
==>rl itself.

This program is distributed in the hope that it will be useful, but
without any warran <==
19	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3631	3728	
==>rl itself.

This program is distributed in the hope that it will be useful, but
without any warran <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3854	3951	
==>rl itself.

This program is distributed in the hope that it will be useful, but
without any warran <==
19	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1584	1681	
==>rl itself.

This program is distributed in the hope that it will be useful, but
without any warran <==
19	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3277	3374	
==>rl itself.

This program is distributed in the hope that it will be useful, but
without any warran <==
19	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	924	1023	
==>$todo, :$depends);
}

## is

sub is (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns <==
19	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15388	15483	
==>distribute it and/or modify
it under the same terms as Perl itself.

This program is distributed <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4352	4447	
==>distribute it and/or modify it
under the same terms as Perl itself.

This program is distributed <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3567	3662	
==>distribute it and/or modify it
under the same terms as Perl itself.

This program is distributed <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2960	3055	
==>distribute it and/or modify it
under the same terms as Perl itself.

This program is distributed <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3568	3663	
==>distribute it and/or modify it
under the same terms as Perl itself.

This program is distributed <==
19	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12324	12419	
==>distribute it and/or modify it
under the same terms as Perl itself.

This program is distributed <==
19	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3242	3337	
==>distribute it and/or modify it
under the same terms as Perl itself.

This program is distributed <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2549	2644	
==>distribute it and/or modify it
under the same terms as Perl itself.

This program is distributed <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20915	21010	
==>distribute it and/or modify it
under the same terms as Perl itself.

This program is distributed <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1819	1914	
==>distribute it and/or modify it
under the same terms as Perl itself.

This program is distributed <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2986	3081	
==>distribute it and/or modify it
under the same terms as Perl itself.

This program is distributed <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2106	2201	
==>distribute it and/or modify it
under the same terms as Perl itself.

This program is distributed <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2980	3075	
==>distribute it and/or modify it
under the same terms as Perl itself.

This program is distributed <==
19	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20637	20732	
==>distribute it and/or modify it
under the same terms as Perl itself.

This program is distributed <==
19	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3574	3669	
==>distribute it and/or modify it
under the same terms as Perl itself.

This program is distributed <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3797	3892	
==>distribute it and/or modify it
under the same terms as Perl itself.

This program is distributed <==
19	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1527	1622	
==>distribute it and/or modify it
under the same terms as Perl itself.

This program is distributed <==
19	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3220	3315	
==>distribute it and/or modify it
under the same terms as Perl itself.

This program is distributed <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732230	732522	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLA <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732976	733268	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLA <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733739	734031	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLA <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734503	734795	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLA <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738228	738520	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLA <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738992	739284	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLA <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739769	740061	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLA <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740546	740838	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLA <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742043	742335	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLA <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742808	743100	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLA <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743574	743866	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLA <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744339	744631	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLA <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745105	745397	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLA <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747360	747652	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLA <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748145	748437	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLA <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748928	749220	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLA <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749712	750004	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLA <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750495	750787	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLA <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	751310	751602	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLA <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554337	554618	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JU <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555734	556015	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JU <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556971	557252	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JU <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562042	562323	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JU <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579726	580007	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JU <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581031	581312	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JU <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582336	582617	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JU <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583642	583923	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JU <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586976	587257	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JU <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588162	588443	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JU <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589348	589629	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JU <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590535	590816	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JU <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591744	592025	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JU <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592954	593235	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JU <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594164	594445	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JU <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597160	597441	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JU <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613974	614255	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JU <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615124	615405	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JU <==
19	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	1438	1572	
==>s with - in them.
        $test =~ s/-/_/g;
        system("rm $test") if -e $test;

        open my $ffh, '<', $file;
        %tests = <==
19	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	2774	2906	
==>memnt line, skip it.
        next if !$in_heredoc && /^\s*#|^\s*$/;
        
        # Is this a new rule?
        if (!$in_heredoc & <==
19	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15320	15417	
==>ke.  All rights reserved.

This library is free software; you can redistribute it and/or modify
it <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4284	4381	
==>ke.  All rights reserved.

This library is free software; you can redistribute it and/or modify it <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3499	3596	
==>ke.  All rights reserved.

This library is free software; you can redistribute it and/or modify it <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2892	2989	
==>ke.  All rights reserved.

This library is free software; you can redistribute it and/or modify it <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3500	3597	
==>ke.  All rights reserved.

This library is free software; you can redistribute it and/or modify it <==
19	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12256	12353	
==>ke.  All rights reserved.

This library is free software; you can redistribute it and/or modify it <==
19	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3174	3271	
==>ke.  All rights reserved.

This library is free software; you can redistribute it and/or modify it <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2481	2578	
==>ke.  All rights reserved.

This library is free software; you can redistribute it and/or modify it <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20847	20944	
==>ke.  All rights reserved.

This library is free software; you can redistribute it and/or modify it <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1751	1848	
==>ke.  All rights reserved.

This library is free software; you can redistribute it and/or modify it <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2918	3015	
==>ke.  All rights reserved.

This library is free software; you can redistribute it and/or modify it <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2038	2135	
==>ke.  All rights reserved.

This library is free software; you can redistribute it and/or modify it <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2912	3009	
==>ke.  All rights reserved.

This library is free software; you can redistribute it and/or modify it <==
19	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20569	20666	
==>ke.  All rights reserved.

This library is free software; you can redistribute it and/or modify it <==
19	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3506	3603	
==>ke.  All rights reserved.

This library is free software; you can redistribute it and/or modify it <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3729	3826	
==>ke.  All rights reserved.

This library is free software; you can redistribute it and/or modify it <==
19	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1459	1556	
==>ke.  All rights reserved.

This library is free software; you can redistribute it and/or modify it <==
19	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3152	3249	
==>ke.  All rights reserved.

This library is free software; you can redistribute it and/or modify it <==
19	/Users/nnunley/parrot/tools/build/jit2c.pl	1494	1597	
==>_op_jit[$core_numops] = {\n";
    $func_end = '_jit';
    $normal_op = 'Parrot_jit_normal_op';
    $cpcf <==
19	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15432	15530	
==>e terms as Perl itself.

This program is distributed in the hope that it will be useful, but
withou <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4396	4494	
==>e terms as Perl itself.

This program is distributed in the hope that it will be useful, but
withou <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3611	3709	
==>e terms as Perl itself.

This program is distributed in the hope that it will be useful, but
withou <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3004	3102	
==>e terms as Perl itself.

This program is distributed in the hope that it will be useful, but
withou <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3612	3710	
==>e terms as Perl itself.

This program is distributed in the hope that it will be useful, but
withou <==
19	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12368	12466	
==>e terms as Perl itself.

This program is distributed in the hope that it will be useful, but
withou <==
19	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3286	3384	
==>e terms as Perl itself.

This program is distributed in the hope that it will be useful, but
withou <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2593	2691	
==>e terms as Perl itself.

This program is distributed in the hope that it will be useful, but
withou <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20959	21057	
==>e terms as Perl itself.

This program is distributed in the hope that it will be useful, but
withou <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1863	1961	
==>e terms as Perl itself.

This program is distributed in the hope that it will be useful, but
withou <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3030	3128	
==>e terms as Perl itself.

This program is distributed in the hope that it will be useful, but
withou <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2150	2248	
==>e terms as Perl itself.

This program is distributed in the hope that it will be useful, but
withou <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3024	3122	
==>e terms as Perl itself.

This program is distributed in the hope that it will be useful, but
withou <==
19	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20681	20779	
==>e terms as Perl itself.

This program is distributed in the hope that it will be useful, but
withou <==
19	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3618	3716	
==>e terms as Perl itself.

This program is distributed in the hope that it will be useful, but
withou <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3841	3939	
==>e terms as Perl itself.

This program is distributed in the hope that it will be useful, but
withou <==
19	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1571	1669	
==>e terms as Perl itself.

This program is distributed in the hope that it will be useful, but
withou <==
19	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3264	3362	
==>e terms as Perl itself.

This program is distributed in the hope that it will be useful, but
withou <==
19	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15392	15489	
==>ribute it and/or modify
it under the same terms as Perl itself.

This program is distributed in th <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4356	4453	
==>ribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in th <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3571	3668	
==>ribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in th <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2964	3061	
==>ribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in th <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3572	3669	
==>ribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in th <==
19	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12328	12425	
==>ribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in th <==
19	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3246	3343	
==>ribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in th <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2553	2650	
==>ribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in th <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20919	21016	
==>ribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in th <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1823	1920	
==>ribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in th <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2990	3087	
==>ribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in th <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2110	2207	
==>ribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in th <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2984	3081	
==>ribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in th <==
19	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20641	20738	
==>ribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in th <==
19	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3578	3675	
==>ribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in th <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3801	3898	
==>ribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in th <==
19	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1531	1628	
==>ribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in th <==
19	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3224	3321	
==>ribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in th <==
19	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	1243	1335	
==>w_section('Cola', 'cola.html', '', 'languages/cola'),
        $self->new_section('Commun Lisp <==
19	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22084	22220	
==>"(" => 123
		},
		GOTOS => {
			'funcbody' => 122
		}
	},
	{#State 71
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => <==
19	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15517	15611	
==>ul, but
without any warranty; without even the implied warranty of
merchantability or fitness f <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4481	4575	
==>ul, but
without any warranty; without even the implied warranty of
merchantability or fitness f <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3696	3790	
==>ul, but
without any warranty; without even the implied warranty of
merchantability or fitness f <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3089	3183	
==>ul, but
without any warranty; without even the implied warranty of
merchantability or fitness f <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3697	3791	
==>ul, but
without any warranty; without even the implied warranty of
merchantability or fitness f <==
19	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12453	12547	
==>ul, but
without any warranty; without even the implied warranty of
merchantability or fitness f <==
19	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3371	3465	
==>ul, but
without any warranty; without even the implied warranty of
merchantability or fitness f <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2678	2772	
==>ul, but
without any warranty; without even the implied warranty of
merchantability or fitness f <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21044	21138	
==>ul, but
without any warranty; without even the implied warranty of
merchantability or fitness f <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1948	2042	
==>ul, but
without any warranty; without even the implied warranty of
merchantability or fitness f <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3115	3209	
==>ul, but
without any warranty; without even the implied warranty of
merchantability or fitness f <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2235	2329	
==>ul, but
without any warranty; without even the implied warranty of
merchantability or fitness f <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3109	3203	
==>ul, but
without any warranty; without even the implied warranty of
merchantability or fitness f <==
19	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20766	20860	
==>ul, but
without any warranty; without even the implied warranty of
merchantability or fitness f <==
19	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3703	3797	
==>ul, but
without any warranty; without even the implied warranty of
merchantability or fitness f <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3926	4020	
==>ul, but
without any warranty; without even the implied warranty of
merchantability or fitness f <==
19	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1656	1750	
==>ul, but
without any warranty; without even the implied warranty of
merchantability or fitness f <==
19	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3349	3443	
==>ul, but
without any warranty; without even the implied warranty of
merchantability or fitness f <==
19	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	3409	3527	
==>Copy::copy($from, $to);

    # Make sure the timestamp is updated
    my $now = time;
    utime $now, $now, $to;

    r <==
19	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15511	15605	
==>e useful, but
without any warranty; without even the implied warranty of
merchantability or fit <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4475	4569	
==>e useful, but
without any warranty; without even the implied warranty of
merchantability or fit <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3690	3784	
==>e useful, but
without any warranty; without even the implied warranty of
merchantability or fit <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3083	3177	
==>e useful, but
without any warranty; without even the implied warranty of
merchantability or fit <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3691	3785	
==>e useful, but
without any warranty; without even the implied warranty of
merchantability or fit <==
19	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12447	12541	
==>e useful, but
without any warranty; without even the implied warranty of
merchantability or fit <==
19	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3365	3459	
==>e useful, but
without any warranty; without even the implied warranty of
merchantability or fit <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2672	2766	
==>e useful, but
without any warranty; without even the implied warranty of
merchantability or fit <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21038	21132	
==>e useful, but
without any warranty; without even the implied warranty of
merchantability or fit <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1942	2036	
==>e useful, but
without any warranty; without even the implied warranty of
merchantability or fit <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3109	3203	
==>e useful, but
without any warranty; without even the implied warranty of
merchantability or fit <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2229	2323	
==>e useful, but
without any warranty; without even the implied warranty of
merchantability or fit <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3103	3197	
==>e useful, but
without any warranty; without even the implied warranty of
merchantability or fit <==
19	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20760	20854	
==>e useful, but
without any warranty; without even the implied warranty of
merchantability or fit <==
19	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3697	3791	
==>e useful, but
without any warranty; without even the implied warranty of
merchantability or fit <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3920	4014	
==>e useful, but
without any warranty; without even the implied warranty of
merchantability or fit <==
19	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1650	1744	
==>e useful, but
without any warranty; without even the implied warranty of
merchantability or fit <==
19	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3343	3437	
==>e useful, but
without any warranty; without even the implied warranty of
merchantability or fit <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554360	554622	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_E <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555757	556019	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_E <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556994	557256	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_E <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562065	562327	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_E <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579749	580011	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_E <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581054	581316	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_E <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582359	582621	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_E <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583665	583927	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_E <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586999	587261	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_E <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588185	588447	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_E <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589371	589633	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_E <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590558	590820	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_E <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591767	592029	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_E <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592977	593239	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_E <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594187	594449	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_E <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597183	597445	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_E <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613997	614259	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_E <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615147	615409	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_E <==
19	/Users/nnunley/parrot/lib/Test/Simple.pm	4468	4568	
==>ilures in its exit
code.  If this is a problem, you probably have a huge test script.
Split it into m <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237218	237487	
==>"TYPE" => "inline",
                  "CODE" => 276,
                  "ARGS" => [
                              "i",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 606 \"src/ops/cm <==
19	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15533	15626	
==>any warranty; without even the implied warranty of
merchantability or fitness for a particular <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4497	4590	
==>any warranty; without even the implied warranty of
merchantability or fitness for a particular <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3712	3805	
==>any warranty; without even the implied warranty of
merchantability or fitness for a particular <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3105	3198	
==>any warranty; without even the implied warranty of
merchantability or fitness for a particular <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3713	3806	
==>any warranty; without even the implied warranty of
merchantability or fitness for a particular <==
19	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12469	12562	
==>any warranty; without even the implied warranty of
merchantability or fitness for a particular <==
19	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3387	3480	
==>any warranty; without even the implied warranty of
merchantability or fitness for a particular <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2694	2787	
==>any warranty; without even the implied warranty of
merchantability or fitness for a particular <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21060	21153	
==>any warranty; without even the implied warranty of
merchantability or fitness for a particular <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1964	2057	
==>any warranty; without even the implied warranty of
merchantability or fitness for a particular <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3131	3224	
==>any warranty; without even the implied warranty of
merchantability or fitness for a particular <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2251	2344	
==>any warranty; without even the implied warranty of
merchantability or fitness for a particular <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3125	3218	
==>any warranty; without even the implied warranty of
merchantability or fitness for a particular <==
19	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20782	20875	
==>any warranty; without even the implied warranty of
merchantability or fitness for a particular <==
19	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3719	3812	
==>any warranty; without even the implied warranty of
merchantability or fitness for a particular <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3942	4035	
==>any warranty; without even the implied warranty of
merchantability or fitness for a particular <==
19	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1672	1765	
==>any warranty; without even the implied warranty of
merchantability or fitness for a particular <==
19	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3365	3458	
==>any warranty; without even the implied warranty of
merchantability or fitness for a particular <==
19	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	2319	2435	
==>) {
    if (defined $name) {
      $self->SYNTAX_ERROR("No loop '%s' in loop control.", $name);
    } else {
      $s <==
19	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15476	15573	
==>tributed in the hope that it will be useful, but
without any warranty; without even the implied wa <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4440	4537	
==>tributed in the hope that it will be useful, but
without any warranty; without even the implied wa <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3655	3752	
==>tributed in the hope that it will be useful, but
without any warranty; without even the implied wa <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3048	3145	
==>tributed in the hope that it will be useful, but
without any warranty; without even the implied wa <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3656	3753	
==>tributed in the hope that it will be useful, but
without any warranty; without even the implied wa <==
19	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12412	12509	
==>tributed in the hope that it will be useful, but
without any warranty; without even the implied wa <==
19	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3330	3427	
==>tributed in the hope that it will be useful, but
without any warranty; without even the implied wa <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2637	2734	
==>tributed in the hope that it will be useful, but
without any warranty; without even the implied wa <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21003	21100	
==>tributed in the hope that it will be useful, but
without any warranty; without even the implied wa <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1907	2004	
==>tributed in the hope that it will be useful, but
without any warranty; without even the implied wa <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3074	3171	
==>tributed in the hope that it will be useful, but
without any warranty; without even the implied wa <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2194	2291	
==>tributed in the hope that it will be useful, but
without any warranty; without even the implied wa <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3068	3165	
==>tributed in the hope that it will be useful, but
without any warranty; without even the implied wa <==
19	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20725	20822	
==>tributed in the hope that it will be useful, but
without any warranty; without even the implied wa <==
19	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3662	3759	
==>tributed in the hope that it will be useful, but
without any warranty; without even the implied wa <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3885	3982	
==>tributed in the hope that it will be useful, but
without any warranty; without even the implied wa <==
19	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1615	1712	
==>tributed in the hope that it will be useful, but
without any warranty; without even the implied wa <==
19	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3308	3405	
==>tributed in the hope that it will be useful, but
without any warranty; without even the implied wa <==
19	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15443	15540	
==>Perl itself.

This program is distributed in the hope that it will be useful, but
without any warr <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4407	4504	
==>Perl itself.

This program is distributed in the hope that it will be useful, but
without any warr <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3622	3719	
==>Perl itself.

This program is distributed in the hope that it will be useful, but
without any warr <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3015	3112	
==>Perl itself.

This program is distributed in the hope that it will be useful, but
without any warr <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3623	3720	
==>Perl itself.

This program is distributed in the hope that it will be useful, but
without any warr <==
19	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12379	12476	
==>Perl itself.

This program is distributed in the hope that it will be useful, but
without any warr <==
19	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3297	3394	
==>Perl itself.

This program is distributed in the hope that it will be useful, but
without any warr <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2604	2701	
==>Perl itself.

This program is distributed in the hope that it will be useful, but
without any warr <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20970	21067	
==>Perl itself.

This program is distributed in the hope that it will be useful, but
without any warr <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1874	1971	
==>Perl itself.

This program is distributed in the hope that it will be useful, but
without any warr <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3041	3138	
==>Perl itself.

This program is distributed in the hope that it will be useful, but
without any warr <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2161	2258	
==>Perl itself.

This program is distributed in the hope that it will be useful, but
without any warr <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3035	3132	
==>Perl itself.

This program is distributed in the hope that it will be useful, but
without any warr <==
19	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20692	20789	
==>Perl itself.

This program is distributed in the hope that it will be useful, but
without any warr <==
19	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3629	3726	
==>Perl itself.

This program is distributed in the hope that it will be useful, but
without any warr <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3852	3949	
==>Perl itself.

This program is distributed in the hope that it will be useful, but
without any warr <==
19	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1582	1679	
==>Perl itself.

This program is distributed in the hope that it will be useful, but
without any warr <==
19	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3275	3372	
==>Perl itself.

This program is distributed in the hope that it will be useful, but
without any warr <==
19	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	92	183	
==>333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Libs - Parrot librar <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871251	871588	
==>" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_co <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872268	872605	
==>" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_co <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873285	873622	
==>" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_co <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874303	874640	
==>" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_co <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875320	875657	
==>" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_co <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876338	876675	
==>" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_co <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877356	877693	
==>" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_co <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887215	887552	
==>" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_co <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897308	897645	
==>" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_co <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898326	898663	
==>" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_co <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899344	899681	
==>" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_co <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900363	900700	
==>" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_co <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901381	901718	
==>" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_co <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902400	902737	
==>" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_co <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903419	903756	
==>" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_co <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904439	904776	
==>" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_co <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905457	905794	
==>" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_co <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906476	906813	
==>" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_co <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907495	907832	
==>" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_co <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4521	4614	
==>en the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3736	3829	
==>en the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3129	3222	
==>en the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3737	3830	
==>en the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR <==
19	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12493	12586	
==>en the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR <==
19	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3411	3504	
==>en the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2718	2811	
==>en the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21084	21177	
==>en the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1988	2081	
==>en the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3155	3248	
==>en the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2275	2368	
==>en the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3149	3242	
==>en the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR <==
19	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20806	20899	
==>en the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR <==
19	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3743	3836	
==>en the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3966	4059	
==>en the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR <==
19	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1696	1789	
==>en the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR <==
19	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3389	3482	
==>en the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787929	788019	
==>" => "#line 422 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed_int(in <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788839	788929	
==>" => "#line 422 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed_int(in <==
19	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	641	739	
==>t which arguments of an op are labels, and return an array of
their indices.

=cut

sub label_indic <==
19	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15522	15617	
==>ut
without any warranty; without even the implied warranty of
merchantability or fitness for a p <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4486	4581	
==>ut
without any warranty; without even the implied warranty of
merchantability or fitness for a p <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3701	3796	
==>ut
without any warranty; without even the implied warranty of
merchantability or fitness for a p <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3094	3189	
==>ut
without any warranty; without even the implied warranty of
merchantability or fitness for a p <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3702	3797	
==>ut
without any warranty; without even the implied warranty of
merchantability or fitness for a p <==
19	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12458	12553	
==>ut
without any warranty; without even the implied warranty of
merchantability or fitness for a p <==
19	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3376	3471	
==>ut
without any warranty; without even the implied warranty of
merchantability or fitness for a p <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2683	2778	
==>ut
without any warranty; without even the implied warranty of
merchantability or fitness for a p <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21049	21144	
==>ut
without any warranty; without even the implied warranty of
merchantability or fitness for a p <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1953	2048	
==>ut
without any warranty; without even the implied warranty of
merchantability or fitness for a p <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3120	3215	
==>ut
without any warranty; without even the implied warranty of
merchantability or fitness for a p <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2240	2335	
==>ut
without any warranty; without even the implied warranty of
merchantability or fitness for a p <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3114	3209	
==>ut
without any warranty; without even the implied warranty of
merchantability or fitness for a p <==
19	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20771	20866	
==>ut
without any warranty; without even the implied warranty of
merchantability or fitness for a p <==
19	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3708	3803	
==>ut
without any warranty; without even the implied warranty of
merchantability or fitness for a p <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3931	4026	
==>ut
without any warranty; without even the implied warranty of
merchantability or fitness for a p <==
19	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1661	1756	
==>ut
without any warranty; without even the implied warranty of
merchantability or fitness for a p <==
19	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3354	3449	
==>ut
without any warranty; without even the implied warranty of
merchantability or fitness for a p <==
19	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	275221	275393	
==>"n",
                              "nc"
                            ],
                  "BODY" => "#line 876 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}} <==
19	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18927	19022	
==>il/ ) ) {
		push @{$code{$seg}->{code}}, "\ngoto DO_$do->{jump}\t# Unconditional\n";
		push @{$c <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4513	4606	
==>thout even the implied warranty of
merchantability or fitness for a particular purpose.

=head <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3728	3821	
==>thout even the implied warranty of
merchantability or fitness for a particular purpose.

=head <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3121	3214	
==>thout even the implied warranty of
merchantability or fitness for a particular purpose.

=head <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3729	3822	
==>thout even the implied warranty of
merchantability or fitness for a particular purpose.

=head <==
19	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12485	12578	
==>thout even the implied warranty of
merchantability or fitness for a particular purpose.

=head <==
19	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3403	3496	
==>thout even the implied warranty of
merchantability or fitness for a particular purpose.

=head <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2710	2803	
==>thout even the implied warranty of
merchantability or fitness for a particular purpose.

=head <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21076	21169	
==>thout even the implied warranty of
merchantability or fitness for a particular purpose.

=head <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1980	2073	
==>thout even the implied warranty of
merchantability or fitness for a particular purpose.

=head <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3147	3240	
==>thout even the implied warranty of
merchantability or fitness for a particular purpose.

=head <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2267	2360	
==>thout even the implied warranty of
merchantability or fitness for a particular purpose.

=head <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3141	3234	
==>thout even the implied warranty of
merchantability or fitness for a particular purpose.

=head <==
19	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20798	20891	
==>thout even the implied warranty of
merchantability or fitness for a particular purpose.

=head <==
19	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3735	3828	
==>thout even the implied warranty of
merchantability or fitness for a particular purpose.

=head <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3958	4051	
==>thout even the implied warranty of
merchantability or fitness for a particular purpose.

=head <==
19	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1688	1781	
==>thout even the implied warranty of
merchantability or fitness for a particular purpose.

=head <==
19	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3381	3474	
==>thout even the implied warranty of
merchantability or fitness for a particular purpose.

=head <==
19	/Users/nnunley/parrot/tools/dev/cc_flags.pl	623	806	
==>at.

=head1 SEE ALSO

F<config/gen/cflags/root.in>.

=cut

################################################################################

use strict;

my $cflags = shift;

open F, $ <==
19	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15530	15624	
==>ut any warranty; without even the implied warranty of
merchantability or fitness for a particul <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4494	4588	
==>ut any warranty; without even the implied warranty of
merchantability or fitness for a particul <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3709	3803	
==>ut any warranty; without even the implied warranty of
merchantability or fitness for a particul <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3102	3196	
==>ut any warranty; without even the implied warranty of
merchantability or fitness for a particul <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3710	3804	
==>ut any warranty; without even the implied warranty of
merchantability or fitness for a particul <==
19	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12466	12560	
==>ut any warranty; without even the implied warranty of
merchantability or fitness for a particul <==
19	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3384	3478	
==>ut any warranty; without even the implied warranty of
merchantability or fitness for a particul <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2691	2785	
==>ut any warranty; without even the implied warranty of
merchantability or fitness for a particul <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21057	21151	
==>ut any warranty; without even the implied warranty of
merchantability or fitness for a particul <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1961	2055	
==>ut any warranty; without even the implied warranty of
merchantability or fitness for a particul <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3128	3222	
==>ut any warranty; without even the implied warranty of
merchantability or fitness for a particul <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2248	2342	
==>ut any warranty; without even the implied warranty of
merchantability or fitness for a particul <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3122	3216	
==>ut any warranty; without even the implied warranty of
merchantability or fitness for a particul <==
19	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20779	20873	
==>ut any warranty; without even the implied warranty of
merchantability or fitness for a particul <==
19	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3716	3810	
==>ut any warranty; without even the implied warranty of
merchantability or fitness for a particul <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3939	4033	
==>ut any warranty; without even the implied warranty of
merchantability or fitness for a particul <==
19	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1669	1763	
==>ut any warranty; without even the implied warranty of
merchantability or fitness for a particul <==
19	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3362	3456	
==>ut any warranty; without even the implied warranty of
merchantability or fitness for a particul <==
19	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15405	15503	
==>/or modify
it under the same terms as Perl itself.

This program is distributed in the hope that it <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4369	4467	
==>/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that it <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3584	3682	
==>/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that it <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2977	3075	
==>/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that it <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3585	3683	
==>/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that it <==
19	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12341	12439	
==>/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that it <==
19	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3259	3357	
==>/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that it <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2566	2664	
==>/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that it <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20932	21030	
==>/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that it <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1836	1934	
==>/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that it <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3003	3101	
==>/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that it <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2123	2221	
==>/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that it <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2997	3095	
==>/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that it <==
19	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20654	20752	
==>/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that it <==
19	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3591	3689	
==>/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that it <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3814	3912	
==>/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that it <==
19	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1544	1642	
==>/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that it <==
19	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3237	3335	
==>/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that it <==
19	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	2278	2370	
==>tion('Python', 'python.html', '', 'languages/python'),
        $self->new_section('Regex', 'r <==
19	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9456	9558	
==>= "Hello" then print "Whoa"

' Count by .5's and True! after 3
for t=1 to 10 step 0.5
print t,
print sq <==
19	/Users/nnunley/parrot/lib/Text/Balanced.pm	32931	33031	
==>nstance, if C<$text> contained the string:

	"if ('./cmd' =~ m/$UNIXCMD/s) { $cmd = $1; }"
	
then aft <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4224	4320	
==>d1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This libra <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3439	3535	
==>d1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This libra <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2832	2928	
==>d1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This libra <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3440	3536	
==>d1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This libra <==
19	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12196	12292	
==>d1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This libra <==
19	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3114	3210	
==>d1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This libra <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2421	2517	
==>d1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This libra <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20787	20883	
==>d1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This libra <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1691	1787	
==>d1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This libra <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2858	2954	
==>d1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This libra <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1978	2074	
==>d1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This libra <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2852	2948	
==>d1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This libra <==
19	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20509	20605	
==>d1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This libra <==
19	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3446	3542	
==>d1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This libra <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3669	3765	
==>d1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This libra <==
19	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1399	1495	
==>d1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This libra <==
19	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3092	3188	
==>d1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This libra <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	12464	12572	
==>gy (DESCRIPTION)
          and ($max_content_length
            ? (length($head1_text_content) <= $max_conten <==
19	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15451	15549	
==>elf.

This program is distributed in the hope that it will be useful, but
without any warranty; wit <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4415	4513	
==>elf.

This program is distributed in the hope that it will be useful, but
without any warranty; wit <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3630	3728	
==>elf.

This program is distributed in the hope that it will be useful, but
without any warranty; wit <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3023	3121	
==>elf.

This program is distributed in the hope that it will be useful, but
without any warranty; wit <==
19	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3631	3729	
==>elf.

This program is distributed in the hope that it will be useful, but
without any warranty; wit <==
19	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12387	12485	
==>elf.

This program is distributed in the hope that it will be useful, but
without any warranty; wit <==
19	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3305	3403	
==>elf.

This program is distributed in the hope that it will be useful, but
without any warranty; wit <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2612	2710	
==>elf.

This program is distributed in the hope that it will be useful, but
without any warranty; wit <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20978	21076	
==>elf.

This program is distributed in the hope that it will be useful, but
without any warranty; wit <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1882	1980	
==>elf.

This program is distributed in the hope that it will be useful, but
without any warranty; wit <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3049	3147	
==>elf.

This program is distributed in the hope that it will be useful, but
without any warranty; wit <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2169	2267	
==>elf.

This program is distributed in the hope that it will be useful, but
without any warranty; wit <==
19	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3043	3141	
==>elf.

This program is distributed in the hope that it will be useful, but
without any warranty; wit <==
19	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20700	20798	
==>elf.

This program is distributed in the hope that it will be useful, but
without any warranty; wit <==
19	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3637	3735	
==>elf.

This program is distributed in the hope that it will be useful, but
without any warranty; wit <==
19	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3860	3958	
==>elf.

This program is distributed in the hope that it will be useful, but
without any warranty; wit <==
19	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1590	1688	
==>elf.

This program is distributed in the hope that it will be useful, but
without any warranty; wit <==
19	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3283	3381	
==>elf.

This program is distributed in the hope that it will be useful, but
without any warranty; wit <==
18	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15309	15416	
==>Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and/or modify
i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4273	4380	
==>Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and/or modify i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3488	3595	
==>Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and/or modify i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2881	2988	
==>Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and/or modify i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3489	3596	
==>Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and/or modify i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12245	12352	
==>Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and/or modify i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3163	3270	
==>Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and/or modify i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2470	2577	
==>Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and/or modify i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20836	20943	
==>Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and/or modify i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1740	1847	
==>Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and/or modify i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2907	3014	
==>Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and/or modify i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2027	2134	
==>Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and/or modify i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2901	3008	
==>Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and/or modify i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20558	20665	
==>Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and/or modify i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3495	3602	
==>Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and/or modify i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3718	3825	
==>Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and/or modify i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1448	1555	
==>Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and/or modify i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3141	3248	
==>Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and/or modify i <==
18	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	327	416	
==>ko::Processor);

use Jako::Construct::Block;
use Jako::Construct::Block::Bare;
use Jako::C <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	990431	990777	
==>AME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991567	991913	
==>AME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992704	993050	
==>AME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993841	994187	
==>AME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994979	995325	
==>AME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996116	996462	
==>AME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997254	997600	
==>AME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	998392	998738	
==>AME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999531	999877	
==>AME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000668	1001014	
==>AME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001806	1002152	
==>AME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002944	1003290	
==>AME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004083	1004429	
==>AME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005221	1005567	
==>AME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1006360	1006706	
==>AME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007499	1007845	
==>AME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
18	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20788	20887	
==>w P0, .PerlArray
TYPE
		foreach(@types) {
			print CODE<<ADDT;
	new P1, .PerlHash
	P1["name"]= '$_-> <==
18	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5671	5767	
==>refix . "$base */\n\n";
}

=item C<init_func_init1($base)>

Returns the C code for the init funct <==
18	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15534	15633	
==>ny warranty; without even the implied warranty of
merchantability or fitness for a particular purpos <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4498	4597	
==>ny warranty; without even the implied warranty of
merchantability or fitness for a particular purpos <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3713	3812	
==>ny warranty; without even the implied warranty of
merchantability or fitness for a particular purpos <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3106	3205	
==>ny warranty; without even the implied warranty of
merchantability or fitness for a particular purpos <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3714	3813	
==>ny warranty; without even the implied warranty of
merchantability or fitness for a particular purpos <==
18	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12470	12569	
==>ny warranty; without even the implied warranty of
merchantability or fitness for a particular purpos <==
18	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3388	3487	
==>ny warranty; without even the implied warranty of
merchantability or fitness for a particular purpos <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2695	2794	
==>ny warranty; without even the implied warranty of
merchantability or fitness for a particular purpos <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21061	21160	
==>ny warranty; without even the implied warranty of
merchantability or fitness for a particular purpos <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1965	2064	
==>ny warranty; without even the implied warranty of
merchantability or fitness for a particular purpos <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3132	3231	
==>ny warranty; without even the implied warranty of
merchantability or fitness for a particular purpos <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2252	2351	
==>ny warranty; without even the implied warranty of
merchantability or fitness for a particular purpos <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3126	3225	
==>ny warranty; without even the implied warranty of
merchantability or fitness for a particular purpos <==
18	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20783	20882	
==>ny warranty; without even the implied warranty of
merchantability or fitness for a particular purpos <==
18	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3720	3819	
==>ny warranty; without even the implied warranty of
merchantability or fitness for a particular purpos <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3943	4042	
==>ny warranty; without even the implied warranty of
merchantability or fitness for a particular purpos <==
18	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1673	1772	
==>ny warranty; without even the implied warranty of
merchantability or fitness for a particular purpos <==
18	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3366	3465	
==>ny warranty; without even the implied warranty of
merchantability or fitness for a particular purpos <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732228	732521	
==>}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FL <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732974	733267	
==>}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FL <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733737	734030	
==>}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FL <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734501	734794	
==>}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FL <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738226	738519	
==>}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FL <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738990	739283	
==>}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FL <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739767	740060	
==>}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FL <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740544	740837	
==>}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FL <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742041	742334	
==>}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FL <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742806	743099	
==>}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FL <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743572	743865	
==>}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FL <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744337	744630	
==>}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FL <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745103	745396	
==>}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FL <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747358	747651	
==>}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FL <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748143	748436	
==>}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FL <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748926	749219	
==>}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FL <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749710	750003	
==>}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FL <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750493	750786	
==>}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FL <==
18	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15460	15564	
==>s program is distributed in the hope that it will be useful, but
without any warranty; without even the i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4424	4528	
==>s program is distributed in the hope that it will be useful, but
without any warranty; without even the i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3639	3743	
==>s program is distributed in the hope that it will be useful, but
without any warranty; without even the i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3032	3136	
==>s program is distributed in the hope that it will be useful, but
without any warranty; without even the i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3640	3744	
==>s program is distributed in the hope that it will be useful, but
without any warranty; without even the i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12396	12500	
==>s program is distributed in the hope that it will be useful, but
without any warranty; without even the i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3314	3418	
==>s program is distributed in the hope that it will be useful, but
without any warranty; without even the i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2621	2725	
==>s program is distributed in the hope that it will be useful, but
without any warranty; without even the i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20987	21091	
==>s program is distributed in the hope that it will be useful, but
without any warranty; without even the i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1891	1995	
==>s program is distributed in the hope that it will be useful, but
without any warranty; without even the i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3058	3162	
==>s program is distributed in the hope that it will be useful, but
without any warranty; without even the i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2178	2282	
==>s program is distributed in the hope that it will be useful, but
without any warranty; without even the i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3052	3156	
==>s program is distributed in the hope that it will be useful, but
without any warranty; without even the i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20709	20813	
==>s program is distributed in the hope that it will be useful, but
without any warranty; without even the i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3646	3750	
==>s program is distributed in the hope that it will be useful, but
without any warranty; without even the i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3869	3973	
==>s program is distributed in the hope that it will be useful, but
without any warranty; without even the i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1599	1703	
==>s program is distributed in the hope that it will be useful, but
without any warranty; without even the i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3292	3396	
==>s program is distributed in the hope that it will be useful, but
without any warranty; without even the i <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	972269	972512	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973397	973640	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974526	974769	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975655	975898	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976785	977028	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977914	978157	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979044	979287	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980174	980417	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981305	981548	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982434	982677	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983564	983807	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984694	984937	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985825	986068	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986955	987198	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988086	988329	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989217	989460	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
18	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	20984	21150	
==>[$#mmds + 1, $variant->[0]];
                    $init_mmds{$variant->[0]} = 1;
                }
                else {
                    $right = "enum_class_$vari <==
18	/Users/nnunley/parrot/tools/build/vtable_extend.pl	578	684	
==>size_t  */
#include <stddef.h>

EOF

print OUT $protos;

print OUT <<'EOF';

#endif
EOF

close OUT or die $ <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554405	554651	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAM <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555802	556048	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAM <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557039	557285	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAM <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562110	562356	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAM <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579794	580040	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAM <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581099	581345	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAM <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582404	582650	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAM <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583710	583956	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAM <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587044	587290	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAM <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588230	588476	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAM <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589416	589662	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAM <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590603	590849	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAM <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591812	592058	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAM <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593022	593268	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAM <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594232	594478	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAM <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597228	597474	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAM <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614042	614288	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAM <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615192	615438	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAM <==
18	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15438	15539	
==>s as Perl itself.

This program is distributed in the hope that it will be useful, but
without any war <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4402	4503	
==>s as Perl itself.

This program is distributed in the hope that it will be useful, but
without any war <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3617	3718	
==>s as Perl itself.

This program is distributed in the hope that it will be useful, but
without any war <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3010	3111	
==>s as Perl itself.

This program is distributed in the hope that it will be useful, but
without any war <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3618	3719	
==>s as Perl itself.

This program is distributed in the hope that it will be useful, but
without any war <==
18	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12374	12475	
==>s as Perl itself.

This program is distributed in the hope that it will be useful, but
without any war <==
18	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3292	3393	
==>s as Perl itself.

This program is distributed in the hope that it will be useful, but
without any war <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2599	2700	
==>s as Perl itself.

This program is distributed in the hope that it will be useful, but
without any war <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20965	21066	
==>s as Perl itself.

This program is distributed in the hope that it will be useful, but
without any war <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1869	1970	
==>s as Perl itself.

This program is distributed in the hope that it will be useful, but
without any war <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3036	3137	
==>s as Perl itself.

This program is distributed in the hope that it will be useful, but
without any war <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2156	2257	
==>s as Perl itself.

This program is distributed in the hope that it will be useful, but
without any war <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3030	3131	
==>s as Perl itself.

This program is distributed in the hope that it will be useful, but
without any war <==
18	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20687	20788	
==>s as Perl itself.

This program is distributed in the hope that it will be useful, but
without any war <==
18	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3624	3725	
==>s as Perl itself.

This program is distributed in the hope that it will be useful, but
without any war <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3847	3948	
==>s as Perl itself.

This program is distributed in the hope that it will be useful, but
without any war <==
18	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1577	1678	
==>s as Perl itself.

This program is distributed in the hope that it will be useful, but
without any war <==
18	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3270	3371	
==>s as Perl itself.

This program is distributed in the hope that it will be useful, but
without any war <==
18	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15343	15443	
==>d.

This library is free software; you can redistribute it and/or modify
it under the same terms as P <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4307	4407	
==>d.

This library is free software; you can redistribute it and/or modify it
under the same terms as P <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3522	3622	
==>d.

This library is free software; you can redistribute it and/or modify it
under the same terms as P <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2915	3015	
==>d.

This library is free software; you can redistribute it and/or modify it
under the same terms as P <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3523	3623	
==>d.

This library is free software; you can redistribute it and/or modify it
under the same terms as P <==
18	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12279	12379	
==>d.

This library is free software; you can redistribute it and/or modify it
under the same terms as P <==
18	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3197	3297	
==>d.

This library is free software; you can redistribute it and/or modify it
under the same terms as P <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2504	2604	
==>d.

This library is free software; you can redistribute it and/or modify it
under the same terms as P <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20870	20970	
==>d.

This library is free software; you can redistribute it and/or modify it
under the same terms as P <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1774	1874	
==>d.

This library is free software; you can redistribute it and/or modify it
under the same terms as P <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2941	3041	
==>d.

This library is free software; you can redistribute it and/or modify it
under the same terms as P <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2061	2161	
==>d.

This library is free software; you can redistribute it and/or modify it
under the same terms as P <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2935	3035	
==>d.

This library is free software; you can redistribute it and/or modify it
under the same terms as P <==
18	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20592	20692	
==>d.

This library is free software; you can redistribute it and/or modify it
under the same terms as P <==
18	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3529	3629	
==>d.

This library is free software; you can redistribute it and/or modify it
under the same terms as P <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3752	3852	
==>d.

This library is free software; you can redistribute it and/or modify it
under the same terms as P <==
18	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1482	1582	
==>d.

This library is free software; you can redistribute it and/or modify it
under the same terms as P <==
18	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3175	3275	
==>d.

This library is free software; you can redistribute it and/or modify it
under the same terms as P <==
18	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15507	15604	
==>ll be useful, but
without any warranty; without even the implied warranty of
merchantability or fi <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4471	4568	
==>ll be useful, but
without any warranty; without even the implied warranty of
merchantability or fi <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3686	3783	
==>ll be useful, but
without any warranty; without even the implied warranty of
merchantability or fi <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3079	3176	
==>ll be useful, but
without any warranty; without even the implied warranty of
merchantability or fi <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3687	3784	
==>ll be useful, but
without any warranty; without even the implied warranty of
merchantability or fi <==
18	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12443	12540	
==>ll be useful, but
without any warranty; without even the implied warranty of
merchantability or fi <==
18	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3361	3458	
==>ll be useful, but
without any warranty; without even the implied warranty of
merchantability or fi <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2668	2765	
==>ll be useful, but
without any warranty; without even the implied warranty of
merchantability or fi <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21034	21131	
==>ll be useful, but
without any warranty; without even the implied warranty of
merchantability or fi <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1938	2035	
==>ll be useful, but
without any warranty; without even the implied warranty of
merchantability or fi <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3105	3202	
==>ll be useful, but
without any warranty; without even the implied warranty of
merchantability or fi <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2225	2322	
==>ll be useful, but
without any warranty; without even the implied warranty of
merchantability or fi <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3099	3196	
==>ll be useful, but
without any warranty; without even the implied warranty of
merchantability or fi <==
18	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20756	20853	
==>ll be useful, but
without any warranty; without even the implied warranty of
merchantability or fi <==
18	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3693	3790	
==>ll be useful, but
without any warranty; without even the implied warranty of
merchantability or fi <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3916	4013	
==>ll be useful, but
without any warranty; without even the implied warranty of
merchantability or fi <==
18	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1646	1743	
==>ll be useful, but
without any warranty; without even the implied warranty of
merchantability or fi <==
18	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3339	3436	
==>ll be useful, but
without any warranty; without even the implied warranty of
merchantability or fi <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732225	732499	
==>\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set", <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732971	733245	
==>\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set", <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733734	734008	
==>\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set", <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734498	734772	
==>\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set", <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738223	738497	
==>\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set", <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738987	739261	
==>\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set", <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739764	740038	
==>\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set", <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740541	740815	
==>\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set", <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742038	742312	
==>\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set", <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742803	743077	
==>\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set", <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743569	743843	
==>\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set", <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744334	744608	
==>\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set", <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745100	745374	
==>\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set", <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747355	747629	
==>\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set", <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748140	748414	
==>\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set", <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748923	749197	
==>\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set", <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749707	749981	
==>\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set", <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750490	750764	
==>\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set", <==
18	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15391	15488	
==>tribute it and/or modify
it under the same terms as Perl itself.

This program is distributed in t <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4355	4452	
==>tribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in t <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3570	3667	
==>tribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in t <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2963	3060	
==>tribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in t <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3571	3668	
==>tribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in t <==
18	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12327	12424	
==>tribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in t <==
18	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3245	3342	
==>tribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in t <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2552	2649	
==>tribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in t <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20918	21015	
==>tribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in t <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1822	1919	
==>tribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in t <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2989	3086	
==>tribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in t <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2109	2206	
==>tribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in t <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2983	3080	
==>tribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in t <==
18	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20640	20737	
==>tribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in t <==
18	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3577	3674	
==>tribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in t <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3800	3897	
==>tribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in t <==
18	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1530	1627	
==>tribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in t <==
18	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3223	3320	
==>tribute it and/or modify it
under the same terms as Perl itself.

This program is distributed in t <==
18	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15531	15625	
==>t any warranty; without even the implied warranty of
merchantability or fitness for a particula <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4495	4589	
==>t any warranty; without even the implied warranty of
merchantability or fitness for a particula <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3710	3804	
==>t any warranty; without even the implied warranty of
merchantability or fitness for a particula <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3103	3197	
==>t any warranty; without even the implied warranty of
merchantability or fitness for a particula <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3711	3805	
==>t any warranty; without even the implied warranty of
merchantability or fitness for a particula <==
18	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12467	12561	
==>t any warranty; without even the implied warranty of
merchantability or fitness for a particula <==
18	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3385	3479	
==>t any warranty; without even the implied warranty of
merchantability or fitness for a particula <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2692	2786	
==>t any warranty; without even the implied warranty of
merchantability or fitness for a particula <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21058	21152	
==>t any warranty; without even the implied warranty of
merchantability or fitness for a particula <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1962	2056	
==>t any warranty; without even the implied warranty of
merchantability or fitness for a particula <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3129	3223	
==>t any warranty; without even the implied warranty of
merchantability or fitness for a particula <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2249	2343	
==>t any warranty; without even the implied warranty of
merchantability or fitness for a particula <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3123	3217	
==>t any warranty; without even the implied warranty of
merchantability or fitness for a particula <==
18	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20780	20874	
==>t any warranty; without even the implied warranty of
merchantability or fitness for a particula <==
18	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3717	3811	
==>t any warranty; without even the implied warranty of
merchantability or fitness for a particula <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3940	4034	
==>t any warranty; without even the implied warranty of
merchantability or fitness for a particula <==
18	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1670	1764	
==>t any warranty; without even the implied warranty of
merchantability or fitness for a particula <==
18	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3363	3457	
==>t any warranty; without even the implied warranty of
merchantability or fitness for a particula <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196748	196910	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197644	197806	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198541	198703	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199438	199600	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200334	200496	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201231	201393	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202128	202290	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203058	203220	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203989	204151	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204920	205082	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205862	206024	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206803	206965	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207745	207907	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208685	208847	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209626	209788	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210605	210767	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
18	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1572	1662	
==>NAL_ERROR("Type is not a Jako::Construct::Type instance!")
    unless UNIVERSAL::isa($type, <==
18	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1420	1510	
==>NAL_ERROR("Type is not a Jako::Construct::Type instance!")
    unless UNIVERSAL::isa($type, <==
18	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15452	15555	
==>lf.

This program is distributed in the hope that it will be useful, but
without any warranty; without e <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4416	4519	
==>lf.

This program is distributed in the hope that it will be useful, but
without any warranty; without e <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3631	3734	
==>lf.

This program is distributed in the hope that it will be useful, but
without any warranty; without e <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3024	3127	
==>lf.

This program is distributed in the hope that it will be useful, but
without any warranty; without e <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3632	3735	
==>lf.

This program is distributed in the hope that it will be useful, but
without any warranty; without e <==
18	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12388	12491	
==>lf.

This program is distributed in the hope that it will be useful, but
without any warranty; without e <==
18	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3306	3409	
==>lf.

This program is distributed in the hope that it will be useful, but
without any warranty; without e <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2613	2716	
==>lf.

This program is distributed in the hope that it will be useful, but
without any warranty; without e <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20979	21082	
==>lf.

This program is distributed in the hope that it will be useful, but
without any warranty; without e <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1883	1986	
==>lf.

This program is distributed in the hope that it will be useful, but
without any warranty; without e <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3050	3153	
==>lf.

This program is distributed in the hope that it will be useful, but
without any warranty; without e <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2170	2273	
==>lf.

This program is distributed in the hope that it will be useful, but
without any warranty; without e <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3044	3147	
==>lf.

This program is distributed in the hope that it will be useful, but
without any warranty; without e <==
18	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20701	20804	
==>lf.

This program is distributed in the hope that it will be useful, but
without any warranty; without e <==
18	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3638	3741	
==>lf.

This program is distributed in the hope that it will be useful, but
without any warranty; without e <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3861	3964	
==>lf.

This program is distributed in the hope that it will be useful, but
without any warranty; without e <==
18	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1591	1694	
==>lf.

This program is distributed in the hope that it will be useful, but
without any warranty; without e <==
18	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3284	3387	
==>lf.

This program is distributed in the hope that it will be useful, but
without any warranty; without e <==
18	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15468	15572	
==>m is distributed in the hope that it will be useful, but
without any warranty; without even the implied w <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4432	4536	
==>m is distributed in the hope that it will be useful, but
without any warranty; without even the implied w <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3647	3751	
==>m is distributed in the hope that it will be useful, but
without any warranty; without even the implied w <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3040	3144	
==>m is distributed in the hope that it will be useful, but
without any warranty; without even the implied w <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3648	3752	
==>m is distributed in the hope that it will be useful, but
without any warranty; without even the implied w <==
18	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12404	12508	
==>m is distributed in the hope that it will be useful, but
without any warranty; without even the implied w <==
18	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3322	3426	
==>m is distributed in the hope that it will be useful, but
without any warranty; without even the implied w <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2629	2733	
==>m is distributed in the hope that it will be useful, but
without any warranty; without even the implied w <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20995	21099	
==>m is distributed in the hope that it will be useful, but
without any warranty; without even the implied w <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1899	2003	
==>m is distributed in the hope that it will be useful, but
without any warranty; without even the implied w <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3066	3170	
==>m is distributed in the hope that it will be useful, but
without any warranty; without even the implied w <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2186	2290	
==>m is distributed in the hope that it will be useful, but
without any warranty; without even the implied w <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3060	3164	
==>m is distributed in the hope that it will be useful, but
without any warranty; without even the implied w <==
18	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20717	20821	
==>m is distributed in the hope that it will be useful, but
without any warranty; without even the implied w <==
18	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3654	3758	
==>m is distributed in the hope that it will be useful, but
without any warranty; without even the implied w <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3877	3981	
==>m is distributed in the hope that it will be useful, but
without any warranty; without even the implied w <==
18	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1607	1711	
==>m is distributed in the hope that it will be useful, but
without any warranty; without even the implied w <==
18	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3300	3404	
==>m is distributed in the hope that it will be useful, but
without any warranty; without even the implied w <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554365	554649	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "N <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555762	556046	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "N <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556999	557283	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "N <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562070	562354	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "N <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579754	580038	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "N <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581059	581343	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "N <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582364	582648	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "N <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583670	583954	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "N <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587004	587288	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "N <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588190	588474	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "N <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589376	589660	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "N <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590563	590847	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "N <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591772	592056	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "N <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592982	593266	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "N <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594192	594476	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "N <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597188	597472	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "N <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614002	614286	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "N <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615152	615436	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "N <==
18	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11833	11938	
==>R] eq "PUN" and $syms[CURR] =~ /-/) {
			if ($type[NEXT] =~ /INT|FLO/) {
				feedme();
				$syms[CURR]="-$ <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4511	4604	
==>without even the implied warranty of
merchantability or fitness for a particular purpose.

=he <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3726	3819	
==>without even the implied warranty of
merchantability or fitness for a particular purpose.

=he <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3119	3212	
==>without even the implied warranty of
merchantability or fitness for a particular purpose.

=he <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3727	3820	
==>without even the implied warranty of
merchantability or fitness for a particular purpose.

=he <==
18	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12483	12576	
==>without even the implied warranty of
merchantability or fitness for a particular purpose.

=he <==
18	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3401	3494	
==>without even the implied warranty of
merchantability or fitness for a particular purpose.

=he <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2708	2801	
==>without even the implied warranty of
merchantability or fitness for a particular purpose.

=he <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21074	21167	
==>without even the implied warranty of
merchantability or fitness for a particular purpose.

=he <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1978	2071	
==>without even the implied warranty of
merchantability or fitness for a particular purpose.

=he <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3145	3238	
==>without even the implied warranty of
merchantability or fitness for a particular purpose.

=he <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2265	2358	
==>without even the implied warranty of
merchantability or fitness for a particular purpose.

=he <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3139	3232	
==>without even the implied warranty of
merchantability or fitness for a particular purpose.

=he <==
18	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20796	20889	
==>without even the implied warranty of
merchantability or fitness for a particular purpose.

=he <==
18	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3733	3826	
==>without even the implied warranty of
merchantability or fitness for a particular purpose.

=he <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3956	4049	
==>without even the implied warranty of
merchantability or fitness for a particular purpose.

=he <==
18	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1686	1779	
==>without even the implied warranty of
merchantability or fitness for a particular purpose.

=he <==
18	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3379	3472	
==>without even the implied warranty of
merchantability or fitness for a particular purpose.

=he <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196635	196871	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => " <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197531	197767	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => " <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198428	198664	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => " <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199325	199561	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => " <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200221	200457	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => " <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201118	201354	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => " <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202015	202251	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => " <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202945	203181	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => " <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203876	204112	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => " <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204807	205043	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => " <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205749	205985	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => " <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206690	206926	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => " <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207632	207868	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => " <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208572	208808	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => " <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209513	209749	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => " <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210492	210728	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => " <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50172	50269	
==>rpreter,   PARROT_PROFILE_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_PROFIL <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50965	51062	
==>rpreter,   PARROT_PROFILE_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_PROFIL <==
18	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15497	15592	
==>that it will be useful, but
without any warranty; without even the implied warranty of
merchanta <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4461	4556	
==>that it will be useful, but
without any warranty; without even the implied warranty of
merchanta <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3676	3771	
==>that it will be useful, but
without any warranty; without even the implied warranty of
merchanta <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3069	3164	
==>that it will be useful, but
without any warranty; without even the implied warranty of
merchanta <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3677	3772	
==>that it will be useful, but
without any warranty; without even the implied warranty of
merchanta <==
18	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12433	12528	
==>that it will be useful, but
without any warranty; without even the implied warranty of
merchanta <==
18	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3351	3446	
==>that it will be useful, but
without any warranty; without even the implied warranty of
merchanta <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2658	2753	
==>that it will be useful, but
without any warranty; without even the implied warranty of
merchanta <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21024	21119	
==>that it will be useful, but
without any warranty; without even the implied warranty of
merchanta <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1928	2023	
==>that it will be useful, but
without any warranty; without even the implied warranty of
merchanta <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3095	3190	
==>that it will be useful, but
without any warranty; without even the implied warranty of
merchanta <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2215	2310	
==>that it will be useful, but
without any warranty; without even the implied warranty of
merchanta <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3089	3184	
==>that it will be useful, but
without any warranty; without even the implied warranty of
merchanta <==
18	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20746	20841	
==>that it will be useful, but
without any warranty; without even the implied warranty of
merchanta <==
18	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3683	3778	
==>that it will be useful, but
without any warranty; without even the implied warranty of
merchanta <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3906	4001	
==>that it will be useful, but
without any warranty; without even the implied warranty of
merchanta <==
18	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1636	1731	
==>that it will be useful, but
without any warranty; without even the implied warranty of
merchanta <==
18	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3329	3424	
==>that it will be useful, but
without any warranty; without even the implied warranty of
merchanta <==
18	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15380	15482	
==>u can redistribute it and/or modify
it under the same terms as Perl itself.

This program is distribute <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4344	4446	
==>u can redistribute it and/or modify it
under the same terms as Perl itself.

This program is distribute <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3559	3661	
==>u can redistribute it and/or modify it
under the same terms as Perl itself.

This program is distribute <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2952	3054	
==>u can redistribute it and/or modify it
under the same terms as Perl itself.

This program is distribute <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3560	3662	
==>u can redistribute it and/or modify it
under the same terms as Perl itself.

This program is distribute <==
18	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12316	12418	
==>u can redistribute it and/or modify it
under the same terms as Perl itself.

This program is distribute <==
18	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3234	3336	
==>u can redistribute it and/or modify it
under the same terms as Perl itself.

This program is distribute <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2541	2643	
==>u can redistribute it and/or modify it
under the same terms as Perl itself.

This program is distribute <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20907	21009	
==>u can redistribute it and/or modify it
under the same terms as Perl itself.

This program is distribute <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1811	1913	
==>u can redistribute it and/or modify it
under the same terms as Perl itself.

This program is distribute <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2978	3080	
==>u can redistribute it and/or modify it
under the same terms as Perl itself.

This program is distribute <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2098	2200	
==>u can redistribute it and/or modify it
under the same terms as Perl itself.

This program is distribute <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2972	3074	
==>u can redistribute it and/or modify it
under the same terms as Perl itself.

This program is distribute <==
18	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20629	20731	
==>u can redistribute it and/or modify it
under the same terms as Perl itself.

This program is distribute <==
18	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3566	3668	
==>u can redistribute it and/or modify it
under the same terms as Perl itself.

This program is distribute <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3789	3891	
==>u can redistribute it and/or modify it
under the same terms as Perl itself.

This program is distribute <==
18	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1519	1621	
==>u can redistribute it and/or modify it
under the same terms as Perl itself.

This program is distribute <==
18	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3212	3314	
==>u can redistribute it and/or modify it
under the same terms as Perl itself.

This program is distribute <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4536	4631	
==>warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3751	3846	
==>warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3144	3239	
==>warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3752	3847	
==>warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C <==
18	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12508	12603	
==>warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C <==
18	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3426	3521	
==>warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2733	2828	
==>warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21099	21194	
==>warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	2003	2098	
==>warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3170	3265	
==>warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2290	2385	
==>warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3164	3259	
==>warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C <==
18	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20821	20916	
==>warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C <==
18	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3758	3853	
==>warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3981	4076	
==>warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C <==
18	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1711	1806	
==>warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C <==
18	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3404	3499	
==>warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C <==
18	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	5951	6041	
==>shift->require('open-brace');    }
sub require_open_bracket  { return shift->require('open- <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	990078	990447	
==>+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991214	991583	
==>+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992351	992720	
==>+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993488	993857	
==>+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994626	994995	
==>+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995763	996132	
==>+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996901	997270	
==>+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	998039	998408	
==>+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999178	999547	
==>+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000315	1000684	
==>+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001453	1001822	
==>+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002591	1002960	
==>+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003730	1004099	
==>+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004868	1005237	
==>+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1006007	1006376	
==>+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007146	1007515	
==>+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10959	11045	
==>> "#line 206 \"src/ops/core.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx) <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11748	11834	
==>> "#line 206 \"src/ops/core.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx) <==
18	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15373	15475	
==>are; you can redistribute it and/or modify
it under the same terms as Perl itself.

This program is dis <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4337	4439	
==>are; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program is dis <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3552	3654	
==>are; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program is dis <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2945	3047	
==>are; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program is dis <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3553	3655	
==>are; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program is dis <==
18	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12309	12411	
==>are; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program is dis <==
18	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3227	3329	
==>are; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program is dis <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2534	2636	
==>are; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program is dis <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20900	21002	
==>are; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program is dis <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1804	1906	
==>are; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program is dis <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2971	3073	
==>are; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program is dis <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2091	2193	
==>are; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program is dis <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2965	3067	
==>are; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program is dis <==
18	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20622	20724	
==>are; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program is dis <==
18	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3559	3661	
==>are; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program is dis <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3782	3884	
==>are; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program is dis <==
18	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1512	1614	
==>are; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program is dis <==
18	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3205	3307	
==>are; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program is dis <==
18	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15446	15548	
==>l itself.

This program is distributed in the hope that it will be useful, but
without any warranty; wi <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4410	4512	
==>l itself.

This program is distributed in the hope that it will be useful, but
without any warranty; wi <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3625	3727	
==>l itself.

This program is distributed in the hope that it will be useful, but
without any warranty; wi <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3018	3120	
==>l itself.

This program is distributed in the hope that it will be useful, but
without any warranty; wi <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3626	3728	
==>l itself.

This program is distributed in the hope that it will be useful, but
without any warranty; wi <==
18	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12382	12484	
==>l itself.

This program is distributed in the hope that it will be useful, but
without any warranty; wi <==
18	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3300	3402	
==>l itself.

This program is distributed in the hope that it will be useful, but
without any warranty; wi <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2607	2709	
==>l itself.

This program is distributed in the hope that it will be useful, but
without any warranty; wi <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20973	21075	
==>l itself.

This program is distributed in the hope that it will be useful, but
without any warranty; wi <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1877	1979	
==>l itself.

This program is distributed in the hope that it will be useful, but
without any warranty; wi <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3044	3146	
==>l itself.

This program is distributed in the hope that it will be useful, but
without any warranty; wi <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2164	2266	
==>l itself.

This program is distributed in the hope that it will be useful, but
without any warranty; wi <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3038	3140	
==>l itself.

This program is distributed in the hope that it will be useful, but
without any warranty; wi <==
18	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20695	20797	
==>l itself.

This program is distributed in the hope that it will be useful, but
without any warranty; wi <==
18	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3632	3734	
==>l itself.

This program is distributed in the hope that it will be useful, but
without any warranty; wi <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3855	3957	
==>l itself.

This program is distributed in the hope that it will be useful, but
without any warranty; wi <==
18	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1585	1687	
==>l itself.

This program is distributed in the hope that it will be useful, but
without any warranty; wi <==
18	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3278	3380	
==>l itself.

This program is distributed in the hope that it will be useful, but
without any warranty; wi <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	972266	972476	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973394	973604	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974523	974733	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975652	975862	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976782	976992	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977911	978121	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979041	979251	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980171	980381	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981302	981512	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982431	982641	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983561	983771	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984691	984901	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985822	986032	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986952	987162	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988083	988293	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989214	989424	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
18	/Users/nnunley/parrot/config/auto/perldoc.pm	1304	1417	
==>set_result('no');
    }
    unlink "c99da7c4.tmp";

    $conf->data->set(
        has_perldoc => $version != 0 ? 1 <==
18	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2416	2517	
==>Yacc file'
);

# These are the various types of files without suffix.

my %type_for_name = (
	'Artisti <==
18	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15404	15502	
==>d/or modify
it under the same terms as Perl itself.

This program is distributed in the hope that i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4368	4466	
==>d/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3583	3681	
==>d/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2976	3074	
==>d/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3584	3682	
==>d/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12340	12438	
==>d/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3258	3356	
==>d/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2565	2663	
==>d/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20931	21029	
==>d/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1835	1933	
==>d/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3002	3100	
==>d/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2122	2220	
==>d/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2996	3094	
==>d/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20653	20751	
==>d/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3590	3688	
==>d/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3813	3911	
==>d/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1543	1641	
==>d/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3236	3334	
==>d/or modify it
under the same terms as Perl itself.

This program is distributed in the hope that i <==
18	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15499	15597	
==>at it will be useful, but
without any warranty; without even the implied warranty of
merchantabilit <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4463	4561	
==>at it will be useful, but
without any warranty; without even the implied warranty of
merchantabilit <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3678	3776	
==>at it will be useful, but
without any warranty; without even the implied warranty of
merchantabilit <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3071	3169	
==>at it will be useful, but
without any warranty; without even the implied warranty of
merchantabilit <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3679	3777	
==>at it will be useful, but
without any warranty; without even the implied warranty of
merchantabilit <==
18	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12435	12533	
==>at it will be useful, but
without any warranty; without even the implied warranty of
merchantabilit <==
18	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3353	3451	
==>at it will be useful, but
without any warranty; without even the implied warranty of
merchantabilit <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2660	2758	
==>at it will be useful, but
without any warranty; without even the implied warranty of
merchantabilit <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21026	21124	
==>at it will be useful, but
without any warranty; without even the implied warranty of
merchantabilit <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1930	2028	
==>at it will be useful, but
without any warranty; without even the implied warranty of
merchantabilit <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3097	3195	
==>at it will be useful, but
without any warranty; without even the implied warranty of
merchantabilit <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2217	2315	
==>at it will be useful, but
without any warranty; without even the implied warranty of
merchantabilit <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3091	3189	
==>at it will be useful, but
without any warranty; without even the implied warranty of
merchantabilit <==
18	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20748	20846	
==>at it will be useful, but
without any warranty; without even the implied warranty of
merchantabilit <==
18	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3685	3783	
==>at it will be useful, but
without any warranty; without even the implied warranty of
merchantabilit <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3908	4006	
==>at it will be useful, but
without any warranty; without even the implied warranty of
merchantabilit <==
18	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1638	1736	
==>at it will be useful, but
without any warranty; without even the implied warranty of
merchantabilit <==
18	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3331	3429	
==>at it will be useful, but
without any warranty; without even the implied warranty of
merchantabilit <==
18	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15333	15438	
==>ts reserved.

This library is free software; you can redistribute it and/or modify
it under the same terms <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4297	4402	
==>ts reserved.

This library is free software; you can redistribute it and/or modify it
under the same terms <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3512	3617	
==>ts reserved.

This library is free software; you can redistribute it and/or modify it
under the same terms <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2905	3010	
==>ts reserved.

This library is free software; you can redistribute it and/or modify it
under the same terms <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3513	3618	
==>ts reserved.

This library is free software; you can redistribute it and/or modify it
under the same terms <==
18	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12269	12374	
==>ts reserved.

This library is free software; you can redistribute it and/or modify it
under the same terms <==
18	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3187	3292	
==>ts reserved.

This library is free software; you can redistribute it and/or modify it
under the same terms <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2494	2599	
==>ts reserved.

This library is free software; you can redistribute it and/or modify it
under the same terms <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20860	20965	
==>ts reserved.

This library is free software; you can redistribute it and/or modify it
under the same terms <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1764	1869	
==>ts reserved.

This library is free software; you can redistribute it and/or modify it
under the same terms <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2931	3036	
==>ts reserved.

This library is free software; you can redistribute it and/or modify it
under the same terms <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2051	2156	
==>ts reserved.

This library is free software; you can redistribute it and/or modify it
under the same terms <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2925	3030	
==>ts reserved.

This library is free software; you can redistribute it and/or modify it
under the same terms <==
18	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20582	20687	
==>ts reserved.

This library is free software; you can redistribute it and/or modify it
under the same terms <==
18	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3519	3624	
==>ts reserved.

This library is free software; you can redistribute it and/or modify it
under the same terms <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3742	3847	
==>ts reserved.

This library is free software; you can redistribute it and/or modify it
under the same terms <==
18	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1472	1577	
==>ts reserved.

This library is free software; you can redistribute it and/or modify it
under the same terms <==
18	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3165	3270	
==>ts reserved.

This library is free software; you can redistribute it and/or modify it
under the same terms <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4268	4368	
==>2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3483	3583	
==>2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2876	2976	
==>2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3484	3584	
==>2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and <==
18	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12240	12340	
==>2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and <==
18	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3158	3258	
==>2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2465	2565	
==>2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20831	20931	
==>2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1735	1835	
==>2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2902	3002	
==>2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2022	2122	
==>2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2896	2996	
==>2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and <==
18	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20553	20653	
==>2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and <==
18	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3490	3590	
==>2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3713	3813	
==>2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and <==
18	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1443	1543	
==>2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and <==
18	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3136	3236	
==>2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and <==
18	/Users/nnunley/parrot/tools/dev/parrotbench.pl	1264	1358	
==>an option both in the configuration file and the
command line, the command line takes precedenc <==
18	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15393	15499	
==>ibute it and/or modify
it under the same terms as Perl itself.

This program is distributed in the hope tha <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4357	4463	
==>ibute it and/or modify it
under the same terms as Perl itself.

This program is distributed in the hope tha <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3572	3678	
==>ibute it and/or modify it
under the same terms as Perl itself.

This program is distributed in the hope tha <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2965	3071	
==>ibute it and/or modify it
under the same terms as Perl itself.

This program is distributed in the hope tha <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3573	3679	
==>ibute it and/or modify it
under the same terms as Perl itself.

This program is distributed in the hope tha <==
18	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12329	12435	
==>ibute it and/or modify it
under the same terms as Perl itself.

This program is distributed in the hope tha <==
18	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3247	3353	
==>ibute it and/or modify it
under the same terms as Perl itself.

This program is distributed in the hope tha <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2554	2660	
==>ibute it and/or modify it
under the same terms as Perl itself.

This program is distributed in the hope tha <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20920	21026	
==>ibute it and/or modify it
under the same terms as Perl itself.

This program is distributed in the hope tha <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1824	1930	
==>ibute it and/or modify it
under the same terms as Perl itself.

This program is distributed in the hope tha <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2991	3097	
==>ibute it and/or modify it
under the same terms as Perl itself.

This program is distributed in the hope tha <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2111	2217	
==>ibute it and/or modify it
under the same terms as Perl itself.

This program is distributed in the hope tha <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2985	3091	
==>ibute it and/or modify it
under the same terms as Perl itself.

This program is distributed in the hope tha <==
18	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20642	20748	
==>ibute it and/or modify it
under the same terms as Perl itself.

This program is distributed in the hope tha <==
18	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3579	3685	
==>ibute it and/or modify it
under the same terms as Perl itself.

This program is distributed in the hope tha <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3802	3908	
==>ibute it and/or modify it
under the same terms as Perl itself.

This program is distributed in the hope tha <==
18	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1532	1638	
==>ibute it and/or modify it
under the same terms as Perl itself.

This program is distributed in the hope tha <==
18	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3225	3331	
==>ibute it and/or modify it
under the same terms as Perl itself.

This program is distributed in the hope tha <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4526	4620	
==>e implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3741	3835	
==>e implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3134	3228	
==>e implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3742	3836	
==>e implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean <==
18	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12498	12592	
==>e implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean <==
18	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3416	3510	
==>e implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2723	2817	
==>e implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21089	21183	
==>e implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1993	2087	
==>e implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3160	3254	
==>e implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2280	2374	
==>e implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3154	3248	
==>e implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean <==
18	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20811	20905	
==>e implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean <==
18	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3748	3842	
==>e implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3971	4065	
==>e implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean <==
18	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1701	1795	
==>e implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean <==
18	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3394	3488	
==>e implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean <==
18	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	533	622	
==>atimFormatted');
  return $new;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
18	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15358	15463	
==>y is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

This pr <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4322	4427	
==>y is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This pr <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3537	3642	
==>y is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This pr <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2930	3035	
==>y is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This pr <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3538	3643	
==>y is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This pr <==
18	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12294	12399	
==>y is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This pr <==
18	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3212	3317	
==>y is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This pr <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2519	2624	
==>y is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This pr <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20885	20990	
==>y is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This pr <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1789	1894	
==>y is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This pr <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2956	3061	
==>y is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This pr <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2076	2181	
==>y is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This pr <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2950	3055	
==>y is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This pr <==
18	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20607	20712	
==>y is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This pr <==
18	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3544	3649	
==>y is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This pr <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3767	3872	
==>y is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This pr <==
18	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1497	1602	
==>y is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This pr <==
18	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3190	3295	
==>y is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This pr <==
18	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15444	15541	
==>erl itself.

This program is distributed in the hope that it will be useful, but
without any warra <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4408	4505	
==>erl itself.

This program is distributed in the hope that it will be useful, but
without any warra <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3623	3720	
==>erl itself.

This program is distributed in the hope that it will be useful, but
without any warra <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3016	3113	
==>erl itself.

This program is distributed in the hope that it will be useful, but
without any warra <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3624	3721	
==>erl itself.

This program is distributed in the hope that it will be useful, but
without any warra <==
18	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12380	12477	
==>erl itself.

This program is distributed in the hope that it will be useful, but
without any warra <==
18	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3298	3395	
==>erl itself.

This program is distributed in the hope that it will be useful, but
without any warra <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2605	2702	
==>erl itself.

This program is distributed in the hope that it will be useful, but
without any warra <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20971	21068	
==>erl itself.

This program is distributed in the hope that it will be useful, but
without any warra <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1875	1972	
==>erl itself.

This program is distributed in the hope that it will be useful, but
without any warra <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3042	3139	
==>erl itself.

This program is distributed in the hope that it will be useful, but
without any warra <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2162	2259	
==>erl itself.

This program is distributed in the hope that it will be useful, but
without any warra <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3036	3133	
==>erl itself.

This program is distributed in the hope that it will be useful, but
without any warra <==
18	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20693	20790	
==>erl itself.

This program is distributed in the hope that it will be useful, but
without any warra <==
18	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3630	3727	
==>erl itself.

This program is distributed in the hope that it will be useful, but
without any warra <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3853	3950	
==>erl itself.

This program is distributed in the hope that it will be useful, but
without any warra <==
18	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1583	1680	
==>erl itself.

This program is distributed in the hope that it will be useful, but
without any warra <==
18	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3276	3373	
==>erl itself.

This program is distributed in the hope that it will be useful, but
without any warra <==
18	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15523	15623	
==>t
without any warranty; without even the implied warranty of
merchantability or fitness for a particu <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4487	4587	
==>t
without any warranty; without even the implied warranty of
merchantability or fitness for a particu <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3702	3802	
==>t
without any warranty; without even the implied warranty of
merchantability or fitness for a particu <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3095	3195	
==>t
without any warranty; without even the implied warranty of
merchantability or fitness for a particu <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3703	3803	
==>t
without any warranty; without even the implied warranty of
merchantability or fitness for a particu <==
18	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12459	12559	
==>t
without any warranty; without even the implied warranty of
merchantability or fitness for a particu <==
18	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3377	3477	
==>t
without any warranty; without even the implied warranty of
merchantability or fitness for a particu <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2684	2784	
==>t
without any warranty; without even the implied warranty of
merchantability or fitness for a particu <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21050	21150	
==>t
without any warranty; without even the implied warranty of
merchantability or fitness for a particu <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1954	2054	
==>t
without any warranty; without even the implied warranty of
merchantability or fitness for a particu <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3121	3221	
==>t
without any warranty; without even the implied warranty of
merchantability or fitness for a particu <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2241	2341	
==>t
without any warranty; without even the implied warranty of
merchantability or fitness for a particu <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3115	3215	
==>t
without any warranty; without even the implied warranty of
merchantability or fitness for a particu <==
18	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20772	20872	
==>t
without any warranty; without even the implied warranty of
merchantability or fitness for a particu <==
18	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3709	3809	
==>t
without any warranty; without even the implied warranty of
merchantability or fitness for a particu <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3932	4032	
==>t
without any warranty; without even the implied warranty of
merchantability or fitness for a particu <==
18	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1662	1762	
==>t
without any warranty; without even the implied warranty of
merchantability or fitness for a particu <==
18	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3355	3455	
==>t
without any warranty; without even the implied warranty of
merchantability or fitness for a particu <==
18	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15368	15468	
==>software; you can redistribute it and/or modify
it under the same terms as Perl itself.

This program <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4332	4432	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3547	3647	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2940	3040	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3548	3648	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program <==
18	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12304	12404	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program <==
18	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3222	3322	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2529	2629	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20895	20995	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1799	1899	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2966	3066	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2086	2186	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2960	3060	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program <==
18	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20617	20717	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program <==
18	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3554	3654	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3777	3877	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program <==
18	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1507	1607	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program <==
18	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3200	3300	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

This program <==
18	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	977	1090	
==>r;

require 5.004;

use strict;

use vars qw ( $VERSION $COMPATIBLE $FILENAME );

$VERSION = '1.05';
$COM <==
18	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	949	1053	
==>r;

require 5.004;

use strict;

use vars qw ( $VERSION $COMPATIBLE $FILENAME );

$VERSION = '1.05';
$COM <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991089	991174	
==>636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\ <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992226	992311	
==>636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\ <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993363	993448	
==>636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\ <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994501	994586	
==>636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\ <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995638	995723	
==>636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\ <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996776	996861	
==>636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\ <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997914	997999	
==>636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\ <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999053	999138	
==>636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\ <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000190	1000275	
==>636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\ <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001328	1001413	
==>636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\ <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002466	1002551	
==>636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\ <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003605	1003690	
==>636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\ <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004743	1004828	
==>636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\ <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005882	1005967	
==>636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\ <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007021	1007106	
==>636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\ <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008161	1008246	
==>636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\ <==
18	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15406	15529	
==>or modify
it under the same terms as Perl itself.

This program is distributed in the hope that it will be useful, but
witho <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4370	4493	
==>or modify it
under the same terms as Perl itself.

This program is distributed in the hope that it will be useful, but
witho <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3585	3708	
==>or modify it
under the same terms as Perl itself.

This program is distributed in the hope that it will be useful, but
witho <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2978	3101	
==>or modify it
under the same terms as Perl itself.

This program is distributed in the hope that it will be useful, but
witho <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3586	3709	
==>or modify it
under the same terms as Perl itself.

This program is distributed in the hope that it will be useful, but
witho <==
18	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12342	12465	
==>or modify it
under the same terms as Perl itself.

This program is distributed in the hope that it will be useful, but
witho <==
18	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3260	3383	
==>or modify it
under the same terms as Perl itself.

This program is distributed in the hope that it will be useful, but
witho <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2567	2690	
==>or modify it
under the same terms as Perl itself.

This program is distributed in the hope that it will be useful, but
witho <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20933	21056	
==>or modify it
under the same terms as Perl itself.

This program is distributed in the hope that it will be useful, but
witho <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1837	1960	
==>or modify it
under the same terms as Perl itself.

This program is distributed in the hope that it will be useful, but
witho <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3004	3127	
==>or modify it
under the same terms as Perl itself.

This program is distributed in the hope that it will be useful, but
witho <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2124	2247	
==>or modify it
under the same terms as Perl itself.

This program is distributed in the hope that it will be useful, but
witho <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2998	3121	
==>or modify it
under the same terms as Perl itself.

This program is distributed in the hope that it will be useful, but
witho <==
18	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20655	20778	
==>or modify it
under the same terms as Perl itself.

This program is distributed in the hope that it will be useful, but
witho <==
18	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3592	3715	
==>or modify it
under the same terms as Perl itself.

This program is distributed in the hope that it will be useful, but
witho <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3815	3938	
==>or modify it
under the same terms as Perl itself.

This program is distributed in the hope that it will be useful, but
witho <==
18	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1545	1668	
==>or modify it
under the same terms as Perl itself.

This program is distributed in the hope that it will be useful, but
witho <==
18	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3238	3361	
==>or modify it
under the same terms as Perl itself.

This program is distributed in the hope that it will be useful, but
witho <==
18	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	26973	27088	
==>) {
        $cout .= $self->{const}->methods($l, $out_name);
        $cout .= $self->{const}->init_func;
    }
    $ <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4246	4346	
==>AIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you c <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3461	3561	
==>AIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you c <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2854	2954	
==>AIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you c <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3462	3562	
==>AIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you c <==
18	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12218	12318	
==>AIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you c <==
18	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3136	3236	
==>AIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you c <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2443	2543	
==>AIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you c <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20809	20909	
==>AIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you c <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1713	1813	
==>AIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you c <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2880	2980	
==>AIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you c <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2000	2100	
==>AIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you c <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2874	2974	
==>AIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you c <==
18	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20531	20631	
==>AIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you c <==
18	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3468	3568	
==>AIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you c <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3691	3791	
==>AIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you c <==
18	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1421	1521	
==>AIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you c <==
18	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3114	3214	
==>AIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you c <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196555	196838	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197451	197734	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198348	198631	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199245	199528	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200141	200424	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201038	201321	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201935	202218	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202865	203148	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203796	204079	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204727	205010	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205669	205952	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206610	206893	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207552	207835	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208492	208775	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209433	209716	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210412	210695	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211392	211675	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	212341	212624	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179838	180121	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180733	181016	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181629	181912	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182525	182808	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183420	183703	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184316	184599	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185212	185495	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186141	186424	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187071	187354	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188001	188284	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188942	189225	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189882	190165	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190823	191106	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191762	192045	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192702	192985	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193680	193963	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194659	194942	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	195607	195890	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt <==
18	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15513	15609	
==>useful, but
without any warranty; without even the implied warranty of
merchantability or fitness <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4477	4573	
==>useful, but
without any warranty; without even the implied warranty of
merchantability or fitness <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3692	3788	
==>useful, but
without any warranty; without even the implied warranty of
merchantability or fitness <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3085	3181	
==>useful, but
without any warranty; without even the implied warranty of
merchantability or fitness <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3693	3789	
==>useful, but
without any warranty; without even the implied warranty of
merchantability or fitness <==
18	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12449	12545	
==>useful, but
without any warranty; without even the implied warranty of
merchantability or fitness <==
18	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3367	3463	
==>useful, but
without any warranty; without even the implied warranty of
merchantability or fitness <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2674	2770	
==>useful, but
without any warranty; without even the implied warranty of
merchantability or fitness <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21040	21136	
==>useful, but
without any warranty; without even the implied warranty of
merchantability or fitness <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1944	2040	
==>useful, but
without any warranty; without even the implied warranty of
merchantability or fitness <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3111	3207	
==>useful, but
without any warranty; without even the implied warranty of
merchantability or fitness <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2231	2327	
==>useful, but
without any warranty; without even the implied warranty of
merchantability or fitness <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3105	3201	
==>useful, but
without any warranty; without even the implied warranty of
merchantability or fitness <==
18	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20762	20858	
==>useful, but
without any warranty; without even the implied warranty of
merchantability or fitness <==
18	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3699	3795	
==>useful, but
without any warranty; without even the implied warranty of
merchantability or fitness <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3922	4018	
==>useful, but
without any warranty; without even the implied warranty of
merchantability or fitness <==
18	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1652	1748	
==>useful, but
without any warranty; without even the implied warranty of
merchantability or fitness <==
18	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3345	3441	
==>useful, but
without any warranty; without even the implied warranty of
merchantability or fitness <==
18	/Users/nnunley/parrot/lib/Class/Struct.pm	19559	19676	
==>truct/member template builder
    #   12mar95
    #   Dean Roehrich
    #
    # changes/bugs fixed since 28nov94 versi <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4223	4319	
==>ad1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This libr <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3438	3534	
==>ad1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This libr <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2831	2927	
==>ad1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This libr <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3439	3535	
==>ad1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This libr <==
18	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12195	12291	
==>ad1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This libr <==
18	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3113	3209	
==>ad1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This libr <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2420	2516	
==>ad1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This libr <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20786	20882	
==>ad1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This libr <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1690	1786	
==>ad1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This libr <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2857	2953	
==>ad1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This libr <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1977	2073	
==>ad1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This libr <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2851	2947	
==>ad1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This libr <==
18	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20508	20604	
==>ad1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This libr <==
18	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3445	3541	
==>ad1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This libr <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3668	3764	
==>ad1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This libr <==
18	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1398	1494	
==>ad1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This libr <==
18	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3091	3187	
==>ad1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This libr <==
18	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Compilers.pm	1009	1119	
==>ilers/tge' ),
        $self->new_group( 'PAST', 'the Parrot/Punie Abstract Syntax Tree',
            'compile <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1462	1560	
==>::Simple::DEBUG = non-constant $variable with val $value\n";
  } else {
    *Pod::Simple::DEBUG = e <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785585	785883	
==>> 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786495	786793	
==>> 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787406	787704	
==>> 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788315	788613	
==>> 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789225	789523	
==>> 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790134	790432	
==>> 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791044	791342	
==>> 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791950	792248	
==>> 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805510	805808	
==>> 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806415	806713	
==>> 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807321	807619	
==>> 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808225	808523	
==>> 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809130	809428	
==>> 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810034	810332	
==>> 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810939	811237	
==>> 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811840	812138	
==>> 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56354	56496	
==>s/core.ops\"\n  {{\@1}} = interpinfo_p(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57116	57258	
==>s/core.ops\"\n  {{\@1}} = interpinfo_p(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
18	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15321	15427	
==>e.  All rights reserved.

This library is free software; you can redistribute it and/or modify
it under the <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4285	4391	
==>e.  All rights reserved.

This library is free software; you can redistribute it and/or modify it
under the <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3500	3606	
==>e.  All rights reserved.

This library is free software; you can redistribute it and/or modify it
under the <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2893	2999	
==>e.  All rights reserved.

This library is free software; you can redistribute it and/or modify it
under the <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3501	3607	
==>e.  All rights reserved.

This library is free software; you can redistribute it and/or modify it
under the <==
18	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12257	12363	
==>e.  All rights reserved.

This library is free software; you can redistribute it and/or modify it
under the <==
18	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3175	3281	
==>e.  All rights reserved.

This library is free software; you can redistribute it and/or modify it
under the <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2482	2588	
==>e.  All rights reserved.

This library is free software; you can redistribute it and/or modify it
under the <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20848	20954	
==>e.  All rights reserved.

This library is free software; you can redistribute it and/or modify it
under the <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1752	1858	
==>e.  All rights reserved.

This library is free software; you can redistribute it and/or modify it
under the <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2919	3025	
==>e.  All rights reserved.

This library is free software; you can redistribute it and/or modify it
under the <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2039	2145	
==>e.  All rights reserved.

This library is free software; you can redistribute it and/or modify it
under the <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2913	3019	
==>e.  All rights reserved.

This library is free software; you can redistribute it and/or modify it
under the <==
18	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20570	20676	
==>e.  All rights reserved.

This library is free software; you can redistribute it and/or modify it
under the <==
18	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3507	3613	
==>e.  All rights reserved.

This library is free software; you can redistribute it and/or modify it
under the <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3730	3836	
==>e.  All rights reserved.

This library is free software; you can redistribute it and/or modify it
under the <==
18	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1460	1566	
==>e.  All rights reserved.

This library is free software; you can redistribute it and/or modify it
under the <==
18	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3153	3259	
==>e.  All rights reserved.

This library is free software; you can redistribute it and/or modify it
under the <==
18	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15434	15534	
==>terms as Perl itself.

This program is distributed in the hope that it will be useful, but
without an <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4398	4498	
==>terms as Perl itself.

This program is distributed in the hope that it will be useful, but
without an <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3613	3713	
==>terms as Perl itself.

This program is distributed in the hope that it will be useful, but
without an <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3006	3106	
==>terms as Perl itself.

This program is distributed in the hope that it will be useful, but
without an <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3614	3714	
==>terms as Perl itself.

This program is distributed in the hope that it will be useful, but
without an <==
18	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12370	12470	
==>terms as Perl itself.

This program is distributed in the hope that it will be useful, but
without an <==
18	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3288	3388	
==>terms as Perl itself.

This program is distributed in the hope that it will be useful, but
without an <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2595	2695	
==>terms as Perl itself.

This program is distributed in the hope that it will be useful, but
without an <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20961	21061	
==>terms as Perl itself.

This program is distributed in the hope that it will be useful, but
without an <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1865	1965	
==>terms as Perl itself.

This program is distributed in the hope that it will be useful, but
without an <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3032	3132	
==>terms as Perl itself.

This program is distributed in the hope that it will be useful, but
without an <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2152	2252	
==>terms as Perl itself.

This program is distributed in the hope that it will be useful, but
without an <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3026	3126	
==>terms as Perl itself.

This program is distributed in the hope that it will be useful, but
without an <==
18	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20683	20783	
==>terms as Perl itself.

This program is distributed in the hope that it will be useful, but
without an <==
18	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3620	3720	
==>terms as Perl itself.

This program is distributed in the hope that it will be useful, but
without an <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3843	3943	
==>terms as Perl itself.

This program is distributed in the hope that it will be useful, but
without an <==
18	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1573	1673	
==>terms as Perl itself.

This program is distributed in the hope that it will be useful, but
without an <==
18	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3266	3366	
==>terms as Perl itself.

This program is distributed in the hope that it will be useful, but
without an <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554332	554617	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_J <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555729	556014	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_J <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556966	557251	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_J <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562037	562322	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_J <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579721	580006	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_J <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581026	581311	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_J <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582331	582616	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_J <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583637	583922	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_J <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586971	587256	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_J <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588157	588442	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_J <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589343	589628	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_J <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590530	590815	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_J <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591739	592024	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_J <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592949	593234	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_J <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594159	594444	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_J <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597155	597440	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_J <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613969	614254	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_J <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615119	615404	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_J <==
18	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	10236	10335	
==>@expr);
}
sub pushthing {
	my($code, $optype, $sym, $type, $oldresult)=@_;
	my $ts="INVALID";

	if ( <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4530	4625	
==>plied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. B <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3745	3840	
==>plied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. B <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3138	3233	
==>plied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. B <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3746	3841	
==>plied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. B <==
18	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12502	12597	
==>plied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. B <==
18	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3420	3515	
==>plied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. B <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2727	2822	
==>plied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. B <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21093	21188	
==>plied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. B <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1997	2092	
==>plied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. B <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3164	3259	
==>plied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. B <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2284	2379	
==>plied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. B <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3158	3253	
==>plied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. B <==
18	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20815	20910	
==>plied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. B <==
18	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3752	3847	
==>plied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. B <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3975	4070	
==>plied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. B <==
18	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1705	1800	
==>plied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. B <==
18	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3398	3493	
==>plied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. B <==
18	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15542	15635	
==>nty; without even the implied warranty of
merchantability or fitness for a particular purpose. <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4506	4599	
==>nty; without even the implied warranty of
merchantability or fitness for a particular purpose. <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3721	3814	
==>nty; without even the implied warranty of
merchantability or fitness for a particular purpose. <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3114	3207	
==>nty; without even the implied warranty of
merchantability or fitness for a particular purpose. <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3722	3815	
==>nty; without even the implied warranty of
merchantability or fitness for a particular purpose. <==
18	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12478	12571	
==>nty; without even the implied warranty of
merchantability or fitness for a particular purpose. <==
18	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3396	3489	
==>nty; without even the implied warranty of
merchantability or fitness for a particular purpose. <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2703	2796	
==>nty; without even the implied warranty of
merchantability or fitness for a particular purpose. <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21069	21162	
==>nty; without even the implied warranty of
merchantability or fitness for a particular purpose. <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1973	2066	
==>nty; without even the implied warranty of
merchantability or fitness for a particular purpose. <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3140	3233	
==>nty; without even the implied warranty of
merchantability or fitness for a particular purpose. <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2260	2353	
==>nty; without even the implied warranty of
merchantability or fitness for a particular purpose. <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3134	3227	
==>nty; without even the implied warranty of
merchantability or fitness for a particular purpose. <==
18	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20791	20884	
==>nty; without even the implied warranty of
merchantability or fitness for a particular purpose. <==
18	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3728	3821	
==>nty; without even the implied warranty of
merchantability or fitness for a particular purpose. <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3951	4044	
==>nty; without even the implied warranty of
merchantability or fitness for a particular purpose. <==
18	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1681	1774	
==>nty; without even the implied warranty of
merchantability or fitness for a particular purpose. <==
18	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3374	3467	
==>nty; without even the implied warranty of
merchantability or fitness for a particular purpose. <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213289	213572	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "g <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214230	214513	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "g <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215170	215453	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "g <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216111	216394	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "g <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217050	217333	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "g <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217990	218273	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "g <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218968	219251	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "g <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219947	220230	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "g <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	220895	221178	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "g <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221843	222126	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "g <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222785	223068	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "g <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223726	224009	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "g <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224668	224951	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "g <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225608	225891	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "g <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226549	226832	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "g <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227528	227811	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "g <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228508	228791	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "g <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	229457	229740	
==>LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "g <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554338	554621	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555735	556018	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556972	557255	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562043	562326	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579727	580010	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581032	581315	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582337	582620	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583643	583926	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586977	587260	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588163	588446	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589349	589632	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590536	590819	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591745	592028	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592955	593238	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594165	594448	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597161	597444	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613975	614258	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615125	615408	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ <==
18	/Users/nnunley/parrot/tools/build/ops2c.pl	7913	8015	
==>e_after_addr_table($bs);
}

if ($suffix =~ /cgp/) {
    print SOURCE <<END_C;
#ifdef __GNUC__
# ifdef I <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4265	4363	
==>c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3480	3578	
==>c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2873	2971	
==>c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3481	3579	
==>c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12237	12335	
==>c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3155	3253	
==>c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2462	2560	
==>c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20828	20926	
==>c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1732	1830	
==>c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2899	2997	
==>c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2019	2117	
==>c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2893	2991	
==>c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20550	20648	
==>c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3487	3585	
==>c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3710	3808	
==>c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1440	1538	
==>c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3133	3231	
==>c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute i <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	230584	230861	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231487	231764	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232391	232668	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233295	233572	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234198	234475	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235102	235379	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236006	236283	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236887	237164	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237769	238046	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238651	238928	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	239544	239821	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240491	240768	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241439	241716	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242387	242664	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243336	243613	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244267	244544	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
18	/Users/nnunley/parrot/examples/mops/mops.pl	498	598	
==>ok iterations, 

=item * the estimated number of ops performed,

=item * the elapsed time, and 

=ite <==
18	/Users/nnunley/parrot/examples/benchmarks/mops.pl	502	600	
==>ok iterations,

=item * the estimated number of ops performed,

=item * the elapsed time, and

=ite <==
18	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15518	15615	
==>l, but
without any warranty; without even the implied warranty of
merchantability or fitness for a <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4482	4579	
==>l, but
without any warranty; without even the implied warranty of
merchantability or fitness for a <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3697	3794	
==>l, but
without any warranty; without even the implied warranty of
merchantability or fitness for a <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3090	3187	
==>l, but
without any warranty; without even the implied warranty of
merchantability or fitness for a <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3698	3795	
==>l, but
without any warranty; without even the implied warranty of
merchantability or fitness for a <==
18	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12454	12551	
==>l, but
without any warranty; without even the implied warranty of
merchantability or fitness for a <==
18	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3372	3469	
==>l, but
without any warranty; without even the implied warranty of
merchantability or fitness for a <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2679	2776	
==>l, but
without any warranty; without even the implied warranty of
merchantability or fitness for a <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21045	21142	
==>l, but
without any warranty; without even the implied warranty of
merchantability or fitness for a <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1949	2046	
==>l, but
without any warranty; without even the implied warranty of
merchantability or fitness for a <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3116	3213	
==>l, but
without any warranty; without even the implied warranty of
merchantability or fitness for a <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2236	2333	
==>l, but
without any warranty; without even the implied warranty of
merchantability or fitness for a <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3110	3207	
==>l, but
without any warranty; without even the implied warranty of
merchantability or fitness for a <==
18	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20767	20864	
==>l, but
without any warranty; without even the implied warranty of
merchantability or fitness for a <==
18	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3704	3801	
==>l, but
without any warranty; without even the implied warranty of
merchantability or fitness for a <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3927	4024	
==>l, but
without any warranty; without even the implied warranty of
merchantability or fitness for a <==
18	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1657	1754	
==>l, but
without any warranty; without even the implied warranty of
merchantability or fitness for a <==
18	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3350	3447	
==>l, but
without any warranty; without even the implied warranty of
merchantability or fitness for a <==
18	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	6025	6126	
==>t if there are files with no suffix then the empty string will
be included in this list.

=cut

sub fi <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4239	4336	
==>D DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free softw <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3454	3551	
==>D DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free softw <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2847	2944	
==>D DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free softw <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3455	3552	
==>D DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free softw <==
18	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12211	12308	
==>D DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free softw <==
18	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3129	3226	
==>D DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free softw <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2436	2533	
==>D DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free softw <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20802	20899	
==>D DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free softw <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1706	1803	
==>D DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free softw <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2873	2970	
==>D DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free softw <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1993	2090	
==>D DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free softw <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2867	2964	
==>D DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free softw <==
18	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20524	20621	
==>D DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free softw <==
18	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3461	3558	
==>D DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free softw <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3684	3781	
==>D DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free softw <==
18	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1414	1511	
==>D DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free softw <==
18	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3107	3204	
==>D DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free softw <==
18	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	124	223	
==>tokens and @tokdsc
# Then compile.
use strict;
use Getopt::Std;
use vars qw( @tokens @tokdsc);
use v <==
18	/Users/nnunley/parrot/languages/python/pie-thon.pl	30049	30176	
==>_;
    print "\t\t$cmt\n";
    my $v = pop @stack;
    my $w = pop @stack;
    push @stack, $w;
    push @stack, $v;
}

sub STOR <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4519	4612	
==>even the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTH <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3734	3827	
==>even the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTH <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3127	3220	
==>even the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTH <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3735	3828	
==>even the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTH <==
18	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12491	12584	
==>even the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTH <==
18	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3409	3502	
==>even the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTH <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2716	2809	
==>even the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTH <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21082	21175	
==>even the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTH <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1986	2079	
==>even the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTH <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3153	3246	
==>even the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTH <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2273	2366	
==>even the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTH <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3147	3240	
==>even the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTH <==
18	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20804	20897	
==>even the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTH <==
18	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3741	3834	
==>even the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTH <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3964	4057	
==>even the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTH <==
18	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1694	1787	
==>even the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTH <==
18	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3387	3480	
==>even the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTH <==
18	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15389	15485	
==>istribute it and/or modify
it under the same terms as Perl itself.

This program is distributed i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4353	4449	
==>istribute it and/or modify it
under the same terms as Perl itself.

This program is distributed i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3568	3664	
==>istribute it and/or modify it
under the same terms as Perl itself.

This program is distributed i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2961	3057	
==>istribute it and/or modify it
under the same terms as Perl itself.

This program is distributed i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3569	3665	
==>istribute it and/or modify it
under the same terms as Perl itself.

This program is distributed i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12325	12421	
==>istribute it and/or modify it
under the same terms as Perl itself.

This program is distributed i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3243	3339	
==>istribute it and/or modify it
under the same terms as Perl itself.

This program is distributed i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2550	2646	
==>istribute it and/or modify it
under the same terms as Perl itself.

This program is distributed i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20916	21012	
==>istribute it and/or modify it
under the same terms as Perl itself.

This program is distributed i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1820	1916	
==>istribute it and/or modify it
under the same terms as Perl itself.

This program is distributed i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2987	3083	
==>istribute it and/or modify it
under the same terms as Perl itself.

This program is distributed i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2107	2203	
==>istribute it and/or modify it
under the same terms as Perl itself.

This program is distributed i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2981	3077	
==>istribute it and/or modify it
under the same terms as Perl itself.

This program is distributed i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20638	20734	
==>istribute it and/or modify it
under the same terms as Perl itself.

This program is distributed i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3575	3671	
==>istribute it and/or modify it
under the same terms as Perl itself.

This program is distributed i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3798	3894	
==>istribute it and/or modify it
under the same terms as Perl itself.

This program is distributed i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1528	1624	
==>istribute it and/or modify it
under the same terms as Perl itself.

This program is distributed i <==
18	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3221	3317	
==>istribute it and/or modify it
under the same terms as Perl itself.

This program is distributed i <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	230601	230918	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231504	231821	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232408	232725	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233312	233629	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234215	234532	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235119	235436	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236023	236340	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236904	237221	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237786	238103	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238668	238985	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	239561	239878	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240508	240825	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241456	241773	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242404	242721	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243353	243670	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244284	244601	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
18	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	4538	4649	
==>= arg
    bsr print_value
    .return (result)

  print_vector:
    .local pmc shape, iter
    .local string val <==
18	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	10446	10545	
==>next atom. This
# routine disables all of those checks. So you should call
# add_checks() to put the <==
18	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15477	15590	
==>ributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of
merchan <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4441	4554	
==>ributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of
merchan <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3656	3769	
==>ributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of
merchan <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3049	3162	
==>ributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of
merchan <==
18	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3657	3770	
==>ributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of
merchan <==
18	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12413	12526	
==>ributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of
merchan <==
18	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3331	3444	
==>ributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of
merchan <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2638	2751	
==>ributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of
merchan <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21004	21117	
==>ributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of
merchan <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1908	2021	
==>ributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of
merchan <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3075	3188	
==>ributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of
merchan <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2195	2308	
==>ributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of
merchan <==
18	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3069	3182	
==>ributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of
merchan <==
18	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20726	20839	
==>ributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of
merchan <==
18	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3663	3776	
==>ributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of
merchan <==
18	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3886	3999	
==>ributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of
merchan <==
18	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1616	1729	
==>ributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of
merchan <==
18	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3309	3422	
==>ributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of
merchan <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554361	554624	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENE <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555758	556021	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENE <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556995	557258	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENE <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562066	562329	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENE <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579750	580013	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENE <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581055	581318	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENE <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582360	582623	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENE <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583666	583929	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENE <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587000	587263	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENE <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588186	588449	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENE <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589372	589635	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENE <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590559	590822	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENE <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591768	592031	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENE <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592978	593241	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENE <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594188	594451	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENE <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597184	597447	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENE <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613998	614261	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENE <==
18	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615148	615411	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENE <==
18	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10852	10960	
==>run_command(".${slash}test${exe}", './test.out', './test.out',
            $verbose);
    }

    my $output = <==
17	/Users/nnunley/parrot/languages/python/pie-thon.pl	8686	8794	
==>>";
	}
	$cmt = "\t\t# $opcode\t$arg $rest" unless $opt{n};
	gen_pir($opcode, $arg, $rest, $cmt);
    }
    pr <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	990344	990519	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991480	991655	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992617	992792	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993754	993929	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994892	995067	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996029	996204	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997167	997342	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	998305	998480	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999444	999619	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000581	1000756	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001719	1001894	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002857	1003032	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003996	1004171	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005134	1005309	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1006273	1006448	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007412	1007587	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
17	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5382	5491	
==>= concat ${STOREREG}
${INS} = concat " = pop s\n"
PIR
	}

	return $pir;
}

sub pre_call() {
    my $self = shi <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137557	137712	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138452	138607	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139348	139503	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140244	140399	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141139	141294	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142035	142190	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142931	143086	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143858	144013	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144786	144941	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145714	145869	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146649	146804	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147589	147744	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148530	148685	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149470	149625	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150411	150566	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151388	151543	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core", <==
17	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	1307	1406	
==>ing
    # works and ignore stderr.
    $exit_code = Parrot::Test::run_command($pycmd, STDOUT => $py_ <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4225	4335	
==>1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free soft <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3440	3550	
==>1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free soft <==
17	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2833	2943	
==>1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free soft <==
17	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3441	3551	
==>1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free soft <==
17	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12197	12307	
==>1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free soft <==
17	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3115	3225	
==>1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free soft <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2422	2532	
==>1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free soft <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20788	20898	
==>1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free soft <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1692	1802	
==>1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free soft <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2859	2969	
==>1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free soft <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1979	2089	
==>1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free soft <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2853	2963	
==>1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free soft <==
17	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20510	20620	
==>1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free soft <==
17	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3447	3557	
==>1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free soft <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3670	3780	
==>1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free soft <==
17	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1400	1510	
==>1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free soft <==
17	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3093	3203	
==>1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free soft <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158600	158883	
==>ELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159496	159779	
==>ELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160393	160676	
==>ELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161290	161573	
==>ELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162186	162469	
==>ELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163083	163366	
==>ELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163980	164263	
==>ELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164908	165191	
==>ELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165837	166120	
==>ELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166766	167049	
==>ELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167704	167987	
==>ELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168645	168928	
==>ELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169587	169870	
==>ELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170527	170810	
==>ELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171468	171751	
==>ELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172445	172728	
==>ELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne", <==
17	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	49742	49870	
==>Rule 31
		 'stat', 2,
sub
#line 187 "Lua\lua51.yp"
{
            InsertList( $_[0], $_[2] );
            BuildAssigns( $_[0 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	972353	972699	
==>E" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973481	973827	
==>E" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974610	974956	
==>E" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975739	976085	
==>E" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976869	977215	
==>E" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977998	978344	
==>E" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979128	979474	
==>E" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980258	980604	
==>E" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981389	981735	
==>E" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982518	982864	
==>E" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983648	983994	
==>E" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984778	985124	
==>E" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985909	986255	
==>E" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987039	987385	
==>E" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988170	988516	
==>E" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989301	989647	
==>E" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
17	/Users/nnunley/parrot/tools/build/ops2pm.pl	1915	2006	
==>he above operations explicitly supported.

Otherwise, the Parrot build and interpreter start <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180079	180376	
==>_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180974	181271	
==>_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181870	182167	
==>_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182766	183063	
==>_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183661	183958	
==>_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184557	184854	
==>_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185453	185750	
==>_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186382	186679	
==>_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187312	187609	
==>_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188242	188539	
==>_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189183	189480	
==>_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190123	190420	
==>_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191064	191361	
==>_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192003	192300	
==>_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192943	193240	
==>_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193921	194218	
==>_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	8894	9171	
==>r labels

                if ($use =~ /label(\w*)/)
                {
                    push @labels, 1;
                    $use = "in$1";
                }
                else
                {
                    push @labels, 0;
                }

                if ($us <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	972291	972625	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973419	973753	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974548	974882	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975677	976011	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976807	977141	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977936	978270	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979066	979400	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980196	980530	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981327	981661	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982456	982790	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983586	983920	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984716	985050	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985847	986181	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986977	987311	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988108	988442	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989239	989573	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	485	596	
==>ens, $count);
      push @{$temp->{children}}, $expr;
    }
    $count++;
  }
  elsif ($tokens->[$count] eq "'") <==
17	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	9724	9833	
==>$dest_locals ? ', ' : '.local string ';
		$dest_locals .= "dest$_";
		$mv->{"DEST$_"} = "dest$_";
	}

    # Em <==
17	/Users/nnunley/parrot/config/auto/aio.pm	297	387	
==>ption @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':a <==
17	/Users/nnunley/parrot/config/auto/cgoto.pm	320	410	
==>ption @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':a <==
17	/Users/nnunley/parrot/config/auto/env.pm	321	411	
==>ption @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':a <==
17	/Users/nnunley/parrot/config/auto/funcptr.pm	333	423	
==>ption @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':a <==
17	/Users/nnunley/parrot/config/auto/gc.pm	673	763	
==>ption @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':a <==
17	/Users/nnunley/parrot/config/auto/gcc.pm	307	397	
==>ption @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':a <==
17	/Users/nnunley/parrot/config/auto/headers.pm	290	380	
==>ption @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':a <==
17	/Users/nnunley/parrot/config/auto/inline.pm	323	413	
==>ption @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':a <==
17	/Users/nnunley/parrot/config/auto/isreg.pm	303	393	
==>ption @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':a <==
17	/Users/nnunley/parrot/config/auto/memalign.pm	322	412	
==>ption @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':a <==
17	/Users/nnunley/parrot/config/auto/msvc.pm	327	417	
==>ption @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':a <==
17	/Users/nnunley/parrot/config/auto/perldoc.pm	324	414	
==>ption @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':a <==
17	/Users/nnunley/parrot/config/auto/python.pm	384	474	
==>ption @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':a <==
17	/Users/nnunley/parrot/config/auto/signal.pm	285	375	
==>ption @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':a <==
17	/Users/nnunley/parrot/config/auto/sizes.pm	301	391	
==>ption @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':a <==
17	/Users/nnunley/parrot/config/auto/va_ptr.pm	328	418	
==>ption @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':a <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180007	180161	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180902	181056	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181798	181952	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182694	182848	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183589	183743	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184485	184639	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185381	185535	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186310	186464	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187240	187394	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188170	188324	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189111	189265	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190051	190205	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190992	191146	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191931	192085	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192871	193025	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193849	194003	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	175	256	
==>rot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm 19606 2006-05-30T15: <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785552	785869	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786462	786779	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787373	787690	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788282	788599	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789192	789509	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790101	790418	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791011	791328	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791917	792234	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805477	805794	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806382	806699	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807288	807605	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808192	808509	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809097	809414	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810001	810318	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810906	811223	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811807	812124	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
17	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	8135	8238	
==>= @{$thisparser->{errors}};

	my $score;
	my $score_return;
	my $_tok;
	my $return = undef;
	my $_matche <==
17	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	6649	6780	
==>(ifndef|ifdef|if)\s+(.*)/) {
            next if (/PARROT_IN_CORE|_GUARD/);

            my $indent = "  " x (@stack);
            i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973041	973132	
==>} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974170	974261	
==>} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975299	975390	
==>} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976429	976520	
==>} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977558	977649	
==>} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978688	978779	
==>} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979818	979909	
==>} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980949	981040	
==>} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982078	982169	
==>} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983208	983299	
==>} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984338	984429	
==>} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985469	985560	
==>} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986599	986690	
==>} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987730	987821	
==>} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988861	988952	
==>} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989993	990084	
==>} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\ <==
17	/Users/nnunley/parrot/languages/lua/Lua/build.pm	7273	7446	
==>lt],
                    'arg1'   => $fct,
                    'arg2'   => [ $result, $num_key, $callop->{result}[0] ],
                );
                push @opcodes2, <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158771	158925	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159667	159821	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160564	160718	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161461	161615	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162357	162511	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163254	163408	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164151	164305	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165079	165233	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166008	166162	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166937	167091	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167875	168029	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168816	168970	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169758	169912	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170698	170852	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171639	171793	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172616	172770	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core" <==
17	/Users/nnunley/parrot/tools/build/jit2c.pl	3225	3414	
==>$2;
                $asm = q{};
                next;
            }
        }
        if ($line =~ m/^}/) { #{
            # 1. check templates
            while (my($t, $body) = each(%templ <==
17	/Users/nnunley/parrot/config/init/defaults.pm	4116	4250	
==>sym_import => '',

        # Library build directory
        blib_dir      => 'blib/lib',

        # libparrot library names
        li <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578613	578746	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sub <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579917	580050	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sub <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581222	581355	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sub <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582527	582660	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sub <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583833	583966	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sub <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584907	585040	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sub <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585982	586115	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sub <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587167	587300	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sub <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588353	588486	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sub <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589539	589672	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sub <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590726	590859	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sub <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591935	592068	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sub <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593145	593278	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sub <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594355	594488	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sub <==
17	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	185	281	
==>Jako/Parser.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

pac <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137619	137915	
==>T_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138514	138810	
==>T_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139410	139706	
==>T_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140306	140602	
==>T_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141201	141497	
==>T_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142097	142393	
==>T_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142993	143289	
==>T_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143920	144216	
==>T_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144848	145144	
==>T_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145776	146072	
==>T_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146711	147007	
==>T_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147651	147947	
==>T_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148592	148888	
==>T_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149532	149828	
==>T_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150473	150769	
==>T_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151450	151746	
==>T_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
17	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	214	317	
==>ract_quotelike extract_delimited );

use vars qw ( $skip );

sub linenum
{
	my ($thisline) = @_;
	my $tl <==
17	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Compilers.pm	525	657	
==>=item C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shift;
    
    return $self->SUPER::new(
        ' <==
17	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	510	635	
==>=item C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shift;
        
    return $self->SUPER::new(
        ' <==
17	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	2383	2504	
==>=item C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shift;
    
    return $self->SUPER::new(
        ' <==
17	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Examples.pm	553	674	
==>=item C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shift;
    
    return $self->SUPER::new(
        ' <==
17	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	494	615	
==>=item C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shift;
    
    return $self->SUPER::new(
        ' <==
17	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	502	623	
==>=item C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shift;
    
    return $self->SUPER::new(
        ' <==
17	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1176	1293	
==>=item C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shift;

    return $self->SUPER::new(
        ' <==
17	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	505	611	
==>=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new(
		' <==
17	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	1340	1446	
==>=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new(
		' <==
17	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	493	599	
==>=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new(
		' <==
17	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	501	607	
==>=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new(
		' <==
17	/Users/nnunley/parrot/lib/Parrot/Docs/Section/EditorPlugins.pm	532	638	
==>=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new(
		' <==
17	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	461	567	
==>=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new(
		' <==
17	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	470	576	
==>=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new(
		' <==
17	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Ops.pm	473	579	
==>=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new(
		' <==
17	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	479	585	
==>=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new(
		' <==
17	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tests.pm	474	580	
==>=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new(
		' <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554331	554613	
==>t}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555728	556010	
==>t}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556965	557247	
==>t}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562036	562318	
==>t}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579720	580002	
==>t}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581025	581307	
==>t}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582330	582612	
==>t}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583636	583918	
==>t}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586970	587252	
==>t}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588156	588438	
==>t}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589342	589624	
==>t}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590529	590811	
==>t}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591738	592020	
==>t}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592948	593230	
==>t}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594158	594440	
==>t}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615118	615400	
==>t}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARR <==
17	/Users/nnunley/parrot/languages/lua/Lua/build.pm	40006	40121	
==>@opcodes, new EndDir($parser);
        foreach my $op (@opcodes) {
            if ( $op and $op->isa('BranchOp') ) <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	990447	990811	
==>t_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991583	991947	
==>t_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992720	993084	
==>t_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993857	994221	
==>t_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994995	995359	
==>t_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996132	996496	
==>t_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997270	997634	
==>t_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	998408	998772	
==>t_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999547	999911	
==>t_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000684	1001048	
==>t_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001822	1002186	
==>t_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002960	1003324	
==>t_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004099	1004463	
==>t_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005237	1005601	
==>t_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1006376	1006740	
==>t_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007515	1007879	
==>t_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
17	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	28319	28453	
==>{'~type'} )
        );
      } else {
        DEBUG > 1 and print "=back found without a matching =over.  Stack: (",
            join(' <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196701	196874	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":ba <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197597	197770	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":ba <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198494	198667	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":ba <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199391	199564	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":ba <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200287	200460	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":ba <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201184	201357	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":ba <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202081	202254	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":ba <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203011	203184	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":ba <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203942	204115	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":ba <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204873	205046	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":ba <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205815	205988	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":ba <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206756	206929	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":ba <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207698	207871	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":ba <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208638	208811	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":ba <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209579	209752	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":ba <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210558	210731	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":ba <==
17	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30882	30977	
==>t found\\n"
	_platform_shutdown()
	end
DISP2
RTJUMP:
	push @{$code{$seg}->{code}}, <<RTB;
	# Sev <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196565	196865	
==>[
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197461	197761	
==>[
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198358	198658	
==>[
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199255	199555	
==>[
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200151	200451	
==>[
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201048	201348	
==>[
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201945	202245	
==>[
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202875	203175	
==>[
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203806	204106	
==>[
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204737	205037	
==>[
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205679	205979	
==>[
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206620	206920	
==>[
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207562	207862	
==>[
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208502	208802	
==>[
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209443	209743	
==>[
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210422	210722	
==>[
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	33958	34182	
==>preter, {{\@1}}, (CUR_OPCODE + {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ), <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158608	158908	
==>[
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159504	159804	
==>[
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160401	160701	
==>[
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161298	161598	
==>[
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162194	162494	
==>[
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163091	163391	
==>[
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163988	164288	
==>[
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164916	165216	
==>[
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165845	166145	
==>[
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166774	167074	
==>[
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167712	168012	
==>[
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168653	168953	
==>[
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169595	169895	
==>[
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170535	170835	
==>[
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171476	171776	
==>[
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172453	172753	
==>[
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS <==
17	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	513	598	
==>ruct::Block::Conditional::Unless;
use Jako::Construct::Block::File;
use Jako::Construc <==
17	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	8759	8850	
==>);
	$fd=$syms[CURR];
	push @{$code{$seg}->{code}},<<OPEN;
@code	noop
	_OPEN($result,"$mode", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	230627	230926	
==>JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231530	231829	
==>JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232434	232733	
==>JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233338	233637	
==>JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234241	234540	
==>JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235145	235444	
==>JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236049	236348	
==>JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236930	237229	
==>JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237812	238111	
==>JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238694	238993	
==>JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	239587	239886	
==>JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240534	240833	
==>JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241482	241781	
==>JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242430	242729	
==>JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243379	243678	
==>JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244310	244609	
==>JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
17	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	43908	44013	
==>($self, $node);
      } else {
	my @args = map { $self->_generate($_); } _get_args($node);
	$return = $sel <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578610	578744	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "s <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579914	580048	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "s <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581219	581353	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "s <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582524	582658	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "s <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583830	583964	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "s <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584904	585038	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "s <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585979	586113	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "s <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587164	587298	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "s <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588350	588484	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "s <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589536	589670	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "s <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590723	590857	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "s <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591932	592066	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "s <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593142	593276	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "s <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594352	594486	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "s <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028374	1028508	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "s <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029225	1029359	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "s <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030066	1030200	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "s <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4266	4364	
==>) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3481	3579	
==>) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it <==
17	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2874	2972	
==>) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it <==
17	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3482	3580	
==>) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it <==
17	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12238	12336	
==>) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it <==
17	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3156	3254	
==>) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2463	2561	
==>) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20829	20927	
==>) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1733	1831	
==>) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2900	2998	
==>) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2020	2118	
==>) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2894	2992	
==>) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it <==
17	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20551	20649	
==>) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it <==
17	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3488	3586	
==>) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3711	3809	
==>) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it <==
17	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1441	1539	
==>) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it <==
17	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3134	3232	
==>) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it <==
17	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1726	1816	
==>self->INTERNAL_ERROR("Constant definition involves undefined type name!")
    unless define <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137622	137917	
==>UMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138517	138812	
==>UMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139413	139708	
==>UMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140309	140604	
==>UMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141204	141499	
==>UMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142100	142395	
==>UMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142996	143291	
==>UMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143923	144218	
==>UMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144851	145146	
==>UMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145779	146074	
==>UMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146714	147009	
==>UMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147654	147949	
==>UMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148595	148890	
==>UMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149535	149830	
==>UMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150476	150771	
==>UMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151453	151748	
==>UMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
17	/Users/nnunley/parrot/tools/build/ops2pm.pl	3633	3736	
==>le =~ /experimental/;

    # mark experimental ops
    if ($experimental) {
	for $_ (@{$temp_ops->{OPS}} <==
17	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9826	9922	
==>ect nothing
Dim A(10)
z=3
c=c+a(z)

' String function, whoa
function a$
	a$="Whoa"
end function
p <==
17	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	888	993	
==>atim_begin = qr{ ^= }smx;
my $verbatim_end   = qr{ ^=cut }smx;

sub get_formatted {
    my ($self) = shift <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4512	4605	
==>ithout even the implied warranty of
merchantability or fitness for a particular purpose.

=hea <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3727	3820	
==>ithout even the implied warranty of
merchantability or fitness for a particular purpose.

=hea <==
17	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3120	3213	
==>ithout even the implied warranty of
merchantability or fitness for a particular purpose.

=hea <==
17	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3728	3821	
==>ithout even the implied warranty of
merchantability or fitness for a particular purpose.

=hea <==
17	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12484	12577	
==>ithout even the implied warranty of
merchantability or fitness for a particular purpose.

=hea <==
17	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3402	3495	
==>ithout even the implied warranty of
merchantability or fitness for a particular purpose.

=hea <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2709	2802	
==>ithout even the implied warranty of
merchantability or fitness for a particular purpose.

=hea <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21075	21168	
==>ithout even the implied warranty of
merchantability or fitness for a particular purpose.

=hea <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1979	2072	
==>ithout even the implied warranty of
merchantability or fitness for a particular purpose.

=hea <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3146	3239	
==>ithout even the implied warranty of
merchantability or fitness for a particular purpose.

=hea <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2266	2359	
==>ithout even the implied warranty of
merchantability or fitness for a particular purpose.

=hea <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3140	3233	
==>ithout even the implied warranty of
merchantability or fitness for a particular purpose.

=hea <==
17	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20797	20890	
==>ithout even the implied warranty of
merchantability or fitness for a particular purpose.

=hea <==
17	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3734	3827	
==>ithout even the implied warranty of
merchantability or fitness for a particular purpose.

=hea <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3957	4050	
==>ithout even the implied warranty of
merchantability or fitness for a particular purpose.

=hea <==
17	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1687	1780	
==>ithout even the implied warranty of
merchantability or fitness for a particular purpose.

=hea <==
17	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3380	3473	
==>ithout even the implied warranty of
merchantability or fitness for a particular purpose.

=hea <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067253	1067575	
==>{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068439	1068761	
==>{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069625	1069947	
==>{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070812	1071134	
==>{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080616	1080938	
==>{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081681	1082003	
==>{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082746	1083068	
==>{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083812	1084134	
==>{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088971	1089293	
==>{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089919	1090241	
==>{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099400	1099722	
==>{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100598	1100920	
==>{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101796	1102118	
==>{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102995	1103317	
==>{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104209	1104531	
==>{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105424	1105746	
==>{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
17	/Users/nnunley/parrot/tools/dev/parrot_api.pl	1185	1278	
==>ed but has no C<Parrot_> prefix (or prefix deemed
Parroty enough, like C<PDB_>, C<PF_>, C<PIO_ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	675976	676083	
==>,
                  "BODY" => "#line 473 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_integer(interpret <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676756	676863	
==>,
                  "BODY" => "#line 473 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_integer(interpret <==
17	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3377	3466	
==>TEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1 <==
17	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4231	4320	
==>TEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1 <==
17	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5139	5228	
==>TEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1 <==
17	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8051	8140	
==>TEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1 <==
17	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8908	8997	
==>TEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1 <==
17	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11816	11905	
==>TEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1 <==
17	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2124	2213	
==>TEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1 <==
17	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2647	2736	
==>TEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1 <==
17	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3376	3465	
==>TEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1 <==
17	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6005	6094	
==>TEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1 <==
17	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6563	6652	
==>TEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1 <==
17	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8879	8968	
==>TEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1 <==
17	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1430	1519	
==>TEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1 <==
17	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1957	2046	
==>TEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1 <==
17	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3140	3229	
==>TEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	972143	972431	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973271	973559	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974400	974688	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975529	975817	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976659	976947	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977788	978076	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978918	979206	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980048	980336	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981179	981467	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982308	982596	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983438	983726	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984568	984856	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985699	985987	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986829	987117	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987960	988248	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989091	989379	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIR <==
17	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	7371	7471	
==>mary.html..\n" if $DEBUG;
    open (OUT, ">$HTMLDIR/file_summary.html") or
      die "Can't open $HTM <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180031	180194	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180926	181089	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181822	181985	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182718	182881	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183613	183776	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184509	184672	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185405	185568	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186334	186497	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187264	187427	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188194	188357	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189135	189298	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190075	190238	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191016	191179	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191955	192118	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192895	193058	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193873	194036	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
17	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4997	5093	
==>elete;
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::IO::Directory>

=item C<Parrot::IO::Pa <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067261	1067584	
==>n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068447	1068770	
==>n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069633	1069956	
==>n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070820	1071143	
==>n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080624	1080947	
==>n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081689	1082012	
==>n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082754	1083077	
==>n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083820	1084143	
==>n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088979	1089302	
==>n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089927	1090250	
==>n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099408	1099731	
==>n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100606	1100929	
==>n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101804	1102127	
==>n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103003	1103326	
==>n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104217	1104540	
==>n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105432	1105755	
==>n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
17	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19393	19493	
==>[#Rule 11
		 'expr', 1,
sub
#line 113 "lib/Regex/Grammar.y"
{ return op('match' => [ ord($_[1]) ]); } <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4241	4343	
==>DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; yo <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3456	3558	
==>DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; yo <==
17	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2849	2951	
==>DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; yo <==
17	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3457	3559	
==>DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; yo <==
17	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12213	12315	
==>DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; yo <==
17	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3131	3233	
==>DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; yo <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2438	2540	
==>DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; yo <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20804	20906	
==>DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; yo <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1708	1810	
==>DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; yo <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2875	2977	
==>DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; yo <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1995	2097	
==>DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; yo <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2869	2971	
==>DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; yo <==
17	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20526	20628	
==>DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; yo <==
17	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3463	3565	
==>DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; yo <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3686	3788	
==>DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; yo <==
17	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1416	1518	
==>DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; yo <==
17	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3109	3211	
==>DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; yo <==
17	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	15572	15709	
==>TIONS => {
			":" => 51,
			"[" => 47,
			"(" => 48,
			"." => 49,
			'STRING' => 44,
			"{" => 38
		},
		DEFAULT => -56,
		GOTOS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991113	991200	
==>\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992250	992337	
==>\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993387	993474	
==>\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994525	994612	
==>\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995662	995749	
==>\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996800	996887	
==>\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997938	998025	
==>\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999077	999164	
==>\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000214	1000301	
==>\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001352	1001439	
==>\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002490	1002577	
==>\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003629	1003716	
==>\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004767	1004854	
==>\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005906	1005993	
==>\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007045	1007132	
==>\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008185	1008272	
==>\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773808	774124	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 874,
                  "A <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973023	973111	
==>ng.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974152	974240	
==>ng.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975281	975369	
==>ng.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976411	976499	
==>ng.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977540	977628	
==>ng.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978670	978758	
==>ng.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979800	979888	
==>ng.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980931	981019	
==>ng.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982060	982148	
==>ng.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983190	983278	
==>ng.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984320	984408	
==>ng.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985451	985539	
==>ng.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986581	986669	
==>ng.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987712	987800	
==>ng.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988843	988931	
==>ng.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989975	990063	
==>ng.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, { <==
17	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	52500	52606	
==>prod and $prod->additem($item)
				      or  _no_rule("<reject:$code>",$line);
			}
			elsif ($grammar =~ m <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158643	158912	
==>,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159539	159808	
==>,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160436	160705	
==>,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161333	161602	
==>,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162229	162498	
==>,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163126	163395	
==>,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164023	164292	
==>,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164951	165220	
==>,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165880	166149	
==>,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166809	167078	
==>,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167747	168016	
==>,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168688	168957	
==>,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169630	169899	
==>,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170570	170839	
==>,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171511	171780	
==>,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172488	172757	
==>,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => <==
17	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7598	7756	
==>nt$2\" because it is inside of " . (join ' > ', @stack) . ")\n")
            }

            pop @stack;

            next;
        }

        next unless @stac <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179918	180154	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180813	181049	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181709	181945	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182605	182841	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183500	183736	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184396	184632	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185292	185528	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186221	186457	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187151	187387	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188081	188317	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189022	189258	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189962	190198	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190903	191139	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191842	192078	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192782	193018	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193760	193996	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => " <==
17	/Users/nnunley/parrot/lib/Class/Struct.pm	4341	4480	
==>pe'))\n";
            $out .= "            { \$r->$elem = \$init{'$name'} } $cmt\n";
            $out .= "       else { croak 'Initializer f <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	230629	230928	
==>MP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231532	231831	
==>MP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232436	232735	
==>MP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233340	233639	
==>MP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234243	234542	
==>MP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235147	235446	
==>MP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236051	236350	
==>MP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236932	237231	
==>MP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237814	238113	
==>MP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238696	238995	
==>MP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	239589	239888	
==>MP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240536	240835	
==>MP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241484	241783	
==>MP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242432	242731	
==>MP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243381	243680	
==>MP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244312	244611	
==>MP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820907	821148	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "depth",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ], <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196726	196880	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_cor <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197622	197776	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_cor <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198519	198673	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_cor <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199416	199570	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_cor <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200312	200466	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_cor <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201209	201363	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_cor <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202106	202260	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_cor <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203036	203190	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_cor <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203967	204121	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_cor <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204898	205052	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_cor <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205840	205994	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_cor <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206781	206935	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_cor <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207723	207877	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_cor <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208663	208817	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_cor <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209604	209758	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_cor <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210583	210737	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_cor <==
17	/Users/nnunley/parrot/lib/Test/Builder.pm	5841	5969	
==>lan' ) {
        $self->no_plan;
    }
    elsif( $cmd eq 'skip_all' ) {
        return $self->skip_all($arg);
    }
    elsif( $ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158769	158923	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_cor <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159665	159819	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_cor <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160562	160716	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_cor <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161459	161613	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_cor <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162355	162509	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_cor <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163252	163406	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_cor <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164149	164303	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_cor <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165077	165231	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_cor <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166006	166160	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_cor <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166935	167089	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_cor <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167873	168027	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_cor <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168814	168968	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_cor <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169756	169910	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_cor <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170696	170850	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_cor <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171637	171791	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_cor <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172614	172768	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_cor <==
17	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	3392	3502	
==>lf = shift;

  push @{$self->{BLOCKS}}, shift;
}


#
# pop_block()
#
# Pop the top block off the block stack an <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438988	439319	
==>" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 503,
                  "ARGS" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196777	196989	
==>MP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197673	197885	
==>MP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198570	198782	
==>MP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199467	199679	
==>MP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200363	200575	
==>MP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201260	201472	
==>MP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202157	202369	
==>MP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203087	203299	
==>MP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204018	204230	
==>MP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204949	205161	
==>MP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205891	206103	
==>MP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206832	207044	
==>MP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207774	207986	
==>MP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208714	208926	
==>MP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209655	209867	
==>MP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210634	210846	
==>MP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	230602	230919	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231505	231822	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232409	232726	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233313	233630	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234216	234533	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235120	235437	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236024	236341	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236905	237222	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237787	238104	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238669	238986	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	239562	239879	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240509	240826	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241457	241774	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242405	242722	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243354	243671	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244285	244602	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
17	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	1276	1365	
==>),
			$self->new_item('', 'docs/memory_internals.pod'),
			$self->new_item('', 'docs/parro <==
17	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	3850	3954	
==>=> sub {
		return("\t$_[2] = $_[0] * $_[1]", $_[2]);
	},
	'/' => sub {
		return("\t$_[2] = $_[1] / $_[0]" <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4271	4369	
==>2 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and/ <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3486	3584	
==>2 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and/ <==
17	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2879	2977	
==>2 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and/ <==
17	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3487	3585	
==>2 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and/ <==
17	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12243	12341	
==>2 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and/ <==
17	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3161	3259	
==>2 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and/ <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2468	2566	
==>2 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and/ <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20834	20932	
==>2 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and/ <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1738	1836	
==>2 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and/ <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2905	3003	
==>2 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and/ <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2025	2123	
==>2 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and/ <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2899	2997	
==>2 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and/ <==
17	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20556	20654	
==>2 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and/ <==
17	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3493	3591	
==>2 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and/ <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3716	3814	
==>2 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and/ <==
17	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1446	1544	
==>2 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and/ <==
17	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3139	3237	
==>2 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and/ <==
17	/Users/nnunley/parrot/config/auto/gcc.pm	5969	6084	
==>aligned_funcptr => 1
    );

    $conf->data->set(HAS_aligned_funcptr => 0)
        if $^O eq 'hpux';

    return $s <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	972998	973085	
==>"#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974127	974214	
==>"#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975256	975343	
==>"#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976386	976473	
==>"#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977515	977602	
==>"#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978645	978732	
==>"#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979775	979862	
==>"#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980906	980993	
==>"#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982035	982122	
==>"#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983165	983252	
==>"#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984295	984382	
==>"#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985426	985513	
==>"#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986556	986643	
==>"#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987687	987774	
==>"#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988818	988905	
==>"#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989950	990037	
==>"#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{ <==
17	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	11699	11807	
==>}

sub _op_and {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991080	991167	
==>> "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpret <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992217	992304	
==>> "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpret <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993354	993441	
==>> "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpret <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994492	994579	
==>> "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpret <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995629	995716	
==>> "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpret <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996767	996854	
==>> "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpret <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997905	997992	
==>> "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpret <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999044	999131	
==>> "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpret <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000181	1000268	
==>> "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpret <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001319	1001406	
==>> "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpret <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002457	1002544	
==>> "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpret <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003596	1003683	
==>> "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpret <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004734	1004821	
==>> "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpret <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005873	1005960	
==>> "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpret <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007012	1007099	
==>> "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpret <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008152	1008239	
==>> "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpret <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973162	973532	
==>" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974291	974661	
==>" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975420	975790	
==>" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976550	976920	
==>" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977679	978049	
==>" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978809	979179	
==>" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979939	980309	
==>" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981070	981440	
==>" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982199	982569	
==>" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983329	983699	
==>" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984459	984829	
==>" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985590	985960	
==>" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986720	987090	
==>" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987851	988221	
==>" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988982	989352	
==>" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "" <==
17	/Users/nnunley/parrot/config/init/defaults.pm	4201	4314	
==>ib',

        # libparrot library names
        libparrot_static => 'libparrot'.$Config{_a},
        libparrot_sha <==
17	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	4843	4950	
==>has_pop, $has_args, $has_trans,
	    $has_typeinfo);

    # Iterate over keys and do validation.
    for (ke <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883090	883421	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884195	884526	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885301	885632	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886407	886738	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904736	905067	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905754	906085	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906773	907104	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907792	908123	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912399	912730	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913409	913740	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914420	914751	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915431	915762	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916443	916774	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917454	917785	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918466	918797	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919478	919809	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
17	/Users/nnunley/parrot/tools/build/jit2c.pl	13719	13814	
==>int jit_op_count() { return $core_numops; }
EOC
}

print("jit2c: JITed $njit (+ $vjit vtable) of <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4514	4611	
==>hout even the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUT <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3729	3826	
==>hout even the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUT <==
17	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3122	3219	
==>hout even the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUT <==
17	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3730	3827	
==>hout even the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUT <==
17	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12486	12583	
==>hout even the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUT <==
17	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3404	3501	
==>hout even the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUT <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2711	2808	
==>hout even the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUT <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21077	21174	
==>hout even the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUT <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1981	2078	
==>hout even the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUT <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3148	3245	
==>hout even the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUT <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2268	2365	
==>hout even the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUT <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3142	3239	
==>hout even the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUT <==
17	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20799	20896	
==>hout even the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUT <==
17	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3736	3833	
==>hout even the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUT <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3959	4056	
==>hout even the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUT <==
17	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1689	1786	
==>hout even the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUT <==
17	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3382	3479	
==>hout even the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUT <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158779	158952	
==>,
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159675	159848	
==>,
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160572	160745	
==>,
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161469	161642	
==>,
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162365	162538	
==>,
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163262	163435	
==>,
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164159	164332	
==>,
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165087	165260	
==>,
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166016	166189	
==>,
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166945	167118	
==>,
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167883	168056	
==>,
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168824	168997	
==>,
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169766	169939	
==>,
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170706	170879	
==>,
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171647	171820	
==>,
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172624	172797	
==>,
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
17	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9079	9191	
==>icolon;
      }
      else {
        my $sub = Jako::Construct::Block::Sub->new($block, $type, $ident, { %props } <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196779	196992	
==>" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197675	197888	
==>" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198572	198785	
==>" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199469	199682	
==>" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200365	200578	
==>" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201262	201475	
==>" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202159	202372	
==>" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203089	203302	
==>" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204020	204233	
==>" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204951	205164	
==>" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205893	206106	
==>" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206834	207047	
==>" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207776	207989	
==>" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208716	208929	
==>" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209657	209870	
==>" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210636	210849	
==>" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
17	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	1288	1383	
==>ion is more important than big-picture browsing.

=item * Is absense of "[...]"s in the indescri <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180062	180274	
==>" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180957	181169	
==>" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181853	182065	
==>" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182749	182961	
==>" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183644	183856	
==>" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184540	184752	
==>" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185436	185648	
==>" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186365	186577	
==>" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187295	187507	
==>" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188225	188437	
==>" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189166	189378	
==>" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190106	190318	
==>" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191047	191259	
==>" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191986	192198	
==>" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192926	193138	
==>" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193904	194116	
==>" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
17	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21196	21320	
==>' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 119,
			'functioncall' => 31,
			'functi <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180034	180197	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180929	181092	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181825	181988	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182721	182884	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183616	183779	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184512	184675	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185408	185571	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186337	186500	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187267	187430	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188197	188360	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189138	189301	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190078	190241	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191019	191182	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191958	192121	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192898	193061	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193876	194039	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
17	/Users/nnunley/parrot/lib/Test/More.pm	18604	18712	
==>QUIRE;
package $pack;
require $module;
REQUIRE

    my $ok = $Test->ok( !$@, "require $module;" );

    unles <==
17	/Users/nnunley/parrot/lib/Test/Builder.pm	33783	33897	
==>$idx ( 0..$self->{Expected_Tests}-1 ) {
            $test_results->[$idx] = $empty_result
              unless defi <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	972293	972627	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973421	973755	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974550	974884	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975679	976013	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976809	977143	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977938	978272	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979068	979402	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980198	980532	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981329	981663	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982458	982792	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983588	983922	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984718	985052	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985849	986183	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986979	987313	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988110	988444	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989241	989575	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Text/Balanced.pm	60421	60517	
==>r 4

=item  C<Did not find a suitable bracket: "%s">

The delimiter provided to C<extract_bracket <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4520	4613	
==>ven the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHO <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3735	3828	
==>ven the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHO <==
17	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3128	3221	
==>ven the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHO <==
17	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3736	3829	
==>ven the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHO <==
17	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12492	12585	
==>ven the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHO <==
17	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3410	3503	
==>ven the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHO <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2717	2810	
==>ven the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHO <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21083	21176	
==>ven the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHO <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1987	2080	
==>ven the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHO <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3154	3247	
==>ven the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHO <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2274	2367	
==>ven the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHO <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3148	3241	
==>ven the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHO <==
17	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20805	20898	
==>ven the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHO <==
17	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3742	3835	
==>ven the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHO <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3965	4058	
==>ven the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHO <==
17	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1695	1788	
==>ven the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHO <==
17	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3388	3481	
==>ven the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHO <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158775	158948	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "AR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159671	159844	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "AR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160568	160741	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "AR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161465	161638	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "AR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162361	162534	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "AR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163258	163431	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "AR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164155	164328	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "AR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165083	165256	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "AR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166012	166185	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "AR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166941	167114	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "AR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167879	168052	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "AR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168820	168993	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "AR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169762	169935	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "AR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170702	170875	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "AR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171643	171816	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "AR <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172620	172793	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "AR <==
17	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1416	1520	
==>re exposed to the user.

1;

__END__

# TODO: let it be an option whether a given subclass even wants lit <==
17	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65331	65444	
==>addcall($name);
					}
				}
				elsif ($grammar =~ m/$ATLEAST/gco)
				{
					_parse("a $1-or-more subrule match" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	972263	972473	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973391	973601	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974520	974730	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975649	975859	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976779	976989	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977908	978118	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979038	979248	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980168	980378	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981299	981509	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982428	982638	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983558	983768	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984688	984898	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985819	986029	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986949	987159	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988080	988290	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989211	989421	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
17	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	60762	60856	
==>rror,$line);
			$item = new Parse::RecDescent::InterpLit($1,$lookahead,$line);
			$prod and $pr <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1898	1993	
==>an object is, you then know what
subclass it belongs to, and therefore what methods it supports. <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973019	973106	
==>string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974148	974235	
==>string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975277	975364	
==>string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976407	976494	
==>string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977536	977623	
==>string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978666	978753	
==>string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979796	979883	
==>string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980927	981014	
==>string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982056	982143	
==>string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983186	983273	
==>string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984316	984403	
==>string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985447	985534	
==>string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986577	986664	
==>string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987708	987795	
==>string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988839	988926	
==>string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989971	990058	
==>string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
17	/Users/nnunley/parrot/config/init/defaults.pm	149	240	
==>/init/defaults.pm - Configuration Defaults

=head1 DESCRIPTION

Sets up the configuration sy <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991100	991185	
==>ps/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992237	992322	
==>ps/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993374	993459	
==>ps/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994512	994597	
==>ps/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995649	995734	
==>ps/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996787	996872	
==>ps/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997925	998010	
==>ps/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999064	999149	
==>ps/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000201	1000286	
==>ps/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001339	1001424	
==>ps/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002477	1002562	
==>ps/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003616	1003701	
==>ps/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004754	1004839	
==>ps/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005893	1005978	
==>ps/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007032	1007117	
==>ps/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008172	1008257	
==>ps/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327147	327423	
==>TVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327949	328225	
==>TVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	524801	525077	
==>TVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	525554	525830	
==>TVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527078	527354	
==>TVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527831	528107	
==>TVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	531227	531503	
==>TVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	531980	532256	
==>TVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	532731	533007	
==>TVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	533481	533757	
==>TVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	534236	534512	
==>TVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	535804	536080	
==>TVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	536573	536849	
==>TVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	537324	537600	
==>TVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	538077	538353	
==>TVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	538828	539104	
==>TVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539581	539857	
==>TVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4507	4603	
==>ty; without even the implied warranty of
merchantability or fitness for a particular purpose.

=h <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3722	3818	
==>ty; without even the implied warranty of
merchantability or fitness for a particular purpose.

=h <==
17	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3115	3211	
==>ty; without even the implied warranty of
merchantability or fitness for a particular purpose.

=h <==
17	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3723	3819	
==>ty; without even the implied warranty of
merchantability or fitness for a particular purpose.

=h <==
17	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12479	12575	
==>ty; without even the implied warranty of
merchantability or fitness for a particular purpose.

=h <==
17	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3397	3493	
==>ty; without even the implied warranty of
merchantability or fitness for a particular purpose.

=h <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2704	2800	
==>ty; without even the implied warranty of
merchantability or fitness for a particular purpose.

=h <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21070	21166	
==>ty; without even the implied warranty of
merchantability or fitness for a particular purpose.

=h <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1974	2070	
==>ty; without even the implied warranty of
merchantability or fitness for a particular purpose.

=h <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3141	3237	
==>ty; without even the implied warranty of
merchantability or fitness for a particular purpose.

=h <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2261	2357	
==>ty; without even the implied warranty of
merchantability or fitness for a particular purpose.

=h <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3135	3231	
==>ty; without even the implied warranty of
merchantability or fitness for a particular purpose.

=h <==
17	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20792	20888	
==>ty; without even the implied warranty of
merchantability or fitness for a particular purpose.

=h <==
17	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3729	3825	
==>ty; without even the implied warranty of
merchantability or fitness for a particular purpose.

=h <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3952	4048	
==>ty; without even the implied warranty of
merchantability or fitness for a particular purpose.

=h <==
17	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1682	1778	
==>ty; without even the implied warranty of
merchantability or fitness for a particular purpose.

=h <==
17	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3375	3471	
==>ty; without even the implied warranty of
merchantability or fitness for a particular purpose.

=h <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	230665	230963	
==>> "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 2 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231568	231866	
==>> "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 2 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232472	232770	
==>> "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 2 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233376	233674	
==>> "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 2 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234279	234577	
==>> "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 2 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235183	235481	
==>> "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 2 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236087	236385	
==>> "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 2 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236968	237266	
==>> "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 2 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237850	238148	
==>> "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 2 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238732	239030	
==>> "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 2 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	239625	239923	
==>> "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 2 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240572	240870	
==>> "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 2 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241520	241818	
==>> "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 2 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242468	242766	
==>> "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 2 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243417	243715	
==>> "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 2 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244348	244646	
==>> "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 2 <==
17	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	355	451	
==>system.

=head2 Class Methods

=over

=cut

package Parrot::Docs::Section::BigNum;

use strict;
u <==
17	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5379	5469	
==>tive_to_source($source, $path)>

If C<$path> is an immediate subdirectory of C<$source>, th <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991086	991172	
==>ne 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992223	992309	
==>ne 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993360	993446	
==>ne 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994498	994584	
==>ne 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995635	995721	
==>ne 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996773	996859	
==>ne 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997911	997997	
==>ne 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999050	999136	
==>ne 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000187	1000273	
==>ne 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001325	1001411	
==>ne 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002463	1002549	
==>ne 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003602	1003688	
==>ne 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004740	1004826	
==>ne 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005879	1005965	
==>ne 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007018	1007104	
==>ne 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008158	1008244	
==>ne 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, { <==
17	/Users/nnunley/parrot/config/init/defaults.pm	670	781	
==>re!
    $conf->data->set(
        debugging => $conf->options->get('debugging') ? 1 : 0,
        optimize  => '' <==
17	/Users/nnunley/parrot/tools/build/jit2c.pl	9605	9706	
==>$core_ops{$core_opfunc[$i]}[0];
    $extern = $core_ops{$core_opfunc[$i]}[1];

    my $jit_func;
    m <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196724	196878	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197620	197774	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198517	198671	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199414	199568	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200310	200464	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201207	201361	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202104	202258	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203034	203188	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203965	204119	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204896	205050	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205838	205992	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206779	206933	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207721	207875	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208661	208815	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209602	209756	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210581	210735	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/tools/build/pmc2c.pl	2960	3057	
==>gs> are:

=over 4

=item C<extends PMCPARENT>

All methods not defined in PMCNAME are inherited fr <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158767	158921	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159663	159817	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160560	160714	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161457	161611	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162353	162507	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163250	163404	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164147	164301	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165075	165229	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166004	166158	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166933	167087	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167871	168025	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168812	168966	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169754	169908	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170694	170848	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171635	171789	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172612	172766	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_c <==
17	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	147	233	
==>rrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Statement/LoopCont <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785608	785905	
==>"NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786518	786815	
==>"NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787429	787726	
==>"NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788338	788635	
==>"NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789248	789545	
==>"NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790157	790454	
==>"NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791067	791364	
==>"NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791973	792270	
==>"NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805533	805830	
==>"NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806438	806735	
==>"NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807344	807641	
==>"NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808248	808545	
==>"NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809153	809450	
==>"NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810057	810354	
==>"NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810962	811259	
==>"NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811863	812160	
==>"NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
17	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13306	13429	
==>ro SELF
      \.(\w+)           # other_method
      \(\s*(.*?)\)      # capture argument list
     /"Parrot_${class}_$1(".f <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196793	197090	
==>UMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197689	197986	
==>UMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198586	198883	
==>UMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199483	199780	
==>UMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200379	200676	
==>UMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201276	201573	
==>UMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202173	202470	
==>UMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203103	203400	
==>UMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204034	204331	
==>UMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204965	205262	
==>UMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205907	206204	
==>UMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206848	207145	
==>UMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207790	208087	
==>UMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208730	209027	
==>UMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209671	209968	
==>UMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210650	210947	
==>UMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
17	/Users/nnunley/parrot/tools/dev/parrotbench.pl	6788	6908	
==>);
            system(
                $ini->val($sect, 'exe') . " " . File::Spec->catdir( $cfg{bench_path}, $name . $ben <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196729	196883	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197625	197779	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198522	198676	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199419	199573	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200315	200469	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201212	201366	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202109	202263	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203039	203193	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203970	204124	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204901	205055	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205843	205997	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206784	206938	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207726	207880	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208666	208820	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209607	209761	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210586	210740	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core", <==
17	/Users/nnunley/parrot/config/auto/sizes.pm	1474	1580	
==>sults) {
        $conf->data->set($_ => $results{$_});
    }

    if ($results{ptrsize} != $results{intvals <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755613	755936	
==>",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 852,
                  "ARGS" => [
                              "p",
                              "nc"
                            ],
                  "BODY" => "#line 266 \"src/ops <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991110	991196	
==>ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992247	992333	
==>ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993384	993470	
==>ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994522	994608	
==>ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995659	995745	
==>ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996797	996883	
==>ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997935	998021	
==>ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999074	999160	
==>ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000211	1000297	
==>ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001349	1001435	
==>ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002487	1002573	
==>ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003626	1003712	
==>ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004764	1004850	
==>ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005903	1005989	
==>ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007042	1007128	
==>ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008182	1008268	
==>ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793453	793710	
==>d(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794358	794615	
==>d(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795263	795520	
==>d(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796169	796426	
==>d(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797072	797329	
==>d(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797976	798233	
==>d(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798880	799137	
==>d(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799785	800042	
==>d(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800688	800945	
==>d(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801592	801849	
==>d(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802496	802753	
==>d(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803401	803658	
==>d(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804301	804558	
==>d(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805202	805459	
==>d(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563967	564222	
==>d(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564865	565120	
==>d(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
17	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7507	7620	
==>if ($syms[NEXT] eq "=") {
	#	# Assignment statement
	#	my $var=$syms[CURR];
	#	feedme;  # Get the =
	#	#print "Goi <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4546	4654	
==>f
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke@cpan.org>

=cut <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3761	3869	
==>f
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke@cpan.org>

=cut <==
17	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3154	3262	
==>f
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke@cpan.org>

=cut <==
17	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3762	3870	
==>f
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke@cpan.org>

=cut <==
17	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12518	12626	
==>f
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke@cpan.org>

=cut <==
17	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3436	3544	
==>f
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke@cpan.org>

=cut <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2743	2851	
==>f
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke@cpan.org>

=cut <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21109	21217	
==>f
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke@cpan.org>

=cut <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	2013	2121	
==>f
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke@cpan.org>

=cut <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3180	3288	
==>f
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke@cpan.org>

=cut <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2300	2408	
==>f
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke@cpan.org>

=cut <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3174	3282	
==>f
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke@cpan.org>

=cut <==
17	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20831	20939	
==>f
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke@cpan.org>

=cut <==
17	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3768	3876	
==>f
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke@cpan.org>

=cut <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3991	4099	
==>f
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke@cpan.org>

=cut <==
17	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1721	1829	
==>f
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke@cpan.org>

=cut <==
17	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3414	3522	
==>f
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke@cpan.org>

=cut <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1014212	1014304	
==>rc/ops/sys.ops\"\n  const char * const tmp = strerror(errno);\n  {{\@1}} = string_make(interp <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991115	991202	
==>\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992252	992339	
==>\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993389	993476	
==>\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994527	994614	
==>\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995664	995751	
==>\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996802	996889	
==>\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997940	998027	
==>\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999079	999166	
==>\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000216	1000303	
==>\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001354	1001441	
==>\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002492	1002579	
==>\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003631	1003718	
==>\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004769	1004856	
==>\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005908	1005995	
==>\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007047	1007134	
==>\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008187	1008274	
==>\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@ <==
17	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	40210	40331	
==>e .= '
		  # MATCH LEFTARG
		  ' . $leftarg->code(@_[1..2]) . '

		  $repcount++;

		  my $savetext = $text;
		  my $backt <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991073	991162	
==>BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(inte <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992210	992299	
==>BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(inte <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993347	993436	
==>BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(inte <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994485	994574	
==>BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(inte <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995622	995711	
==>BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(inte <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996760	996849	
==>BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(inte <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997898	997987	
==>BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(inte <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999037	999126	
==>BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(inte <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000174	1000263	
==>BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(inte <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001312	1001401	
==>BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(inte <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002450	1002539	
==>BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(inte <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003589	1003678	
==>BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(inte <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004727	1004816	
==>BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(inte <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005866	1005955	
==>BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(inte <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007005	1007094	
==>BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(inte <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008145	1008234	
==>BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(inte <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	990349	990558	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991485	991694	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992622	992831	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993759	993968	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994897	995106	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996034	996243	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997172	997381	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	998310	998519	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999449	999658	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000586	1000795	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001724	1001933	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002862	1003071	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004001	1004210	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005139	1005348	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1006278	1006487	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007417	1007626	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
17	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35322	35424	
==>This cheats, assuming that all return types can be cast from zero.
        $ret = "return ($method->{ty <==
17	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3918	4174	
==>in the line
        (                               # then contain one of...
        catch {                       # a catch statement

        |                               # or
        proc                            # a procedure definition
        tes <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158794	158959	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159690	159855	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160587	160752	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161484	161649	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162380	162545	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163277	163442	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164174	164339	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165102	165267	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166031	166196	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166960	167125	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167898	168063	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168839	169004	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169781	169946	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170721	170886	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171662	171827	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172639	172804	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443053	443415	
==>base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 507,
                  "ARGS" => [
                              "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	972179	972435	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973307	973563	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974436	974692	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975565	975821	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976695	976951	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977824	978080	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978954	979210	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980084	980340	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981215	981471	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982344	982600	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983474	983730	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984604	984860	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985735	985991	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986865	987121	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987996	988252	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989127	989383	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813782	813974	
==>"ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 557 \"src/ops/set.ops\"\n  {{\@1}} = NULL;\n  {{+=2}};\n",
                  "LAB <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991143	991249	
==>find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992280	992386	
==>find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993417	993523	
==>find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994555	994661	
==>find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995692	995798	
==>find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996830	996936	
==>find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997968	998074	
==>find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999107	999213	
==>find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000244	1000350	
==>find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001382	1001488	
==>find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002520	1002626	
==>find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003659	1003765	
==>find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004797	1004903	
==>find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005936	1006042	
==>find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007075	1007181	
==>find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008215	1008321	
==>find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	230580	230823	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231483	231726	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232387	232630	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233291	233534	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234194	234437	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235098	235341	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236002	236245	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236883	237126	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237765	238008	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238647	238890	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	239540	239783	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240487	240730	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241435	241678	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242383	242626	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243332	243575	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244263	244506	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
17	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21765	21867	
==>"} ? '$text = $_savetext;' : '' ) .'
'
}


1;

package Parse::RecDescent::Directive;

sub sethashname { <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20341	20434	
==>re instead just
writing a program that does something simple with a Pod::PullParser
object (an <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991120	991205	
==>{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992257	992342	
==>{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993394	993479	
==>{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994532	994617	
==>{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995669	995754	
==>{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996807	996892	
==>{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997945	998030	
==>{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999084	999169	
==>{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000221	1000306	
==>{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001359	1001444	
==>{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002497	1002582	
==>{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003636	1003721	
==>{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004774	1004859	
==>{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005913	1005998	
==>{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007052	1007137	
==>{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008192	1008277	
==>{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	839814	840124	
==>S" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 952,
                  "ARGS" => [
                              "i"
                            ],
                  "BO <==
17	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	2586	2761	
==>R=0
                        SRC="$resources/parrot.small.png" 
                        ALT="parrot">
                </TD>
            </TR>
        </TABLE>
    </BODY>
</HTML <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991102	991187	
==>/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992239	992324	
==>/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993376	993461	
==>/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994514	994599	
==>/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995651	995736	
==>/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996789	996874	
==>/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997927	998012	
==>/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999066	999151	
==>/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000203	1000288	
==>/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001341	1001426	
==>/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002479	1002564	
==>/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003618	1003703	
==>/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004756	1004841	
==>/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005895	1005980	
==>/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007034	1007119	
==>/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008174	1008259	
==>/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319807	320026	
==>74,
                  "ARGS" => [
                              "i",
                              "n"
                            ],
                  "BODY" => "#line 124 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (INTVAL)((P <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973010	973095	
==>"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974139	974224	
==>"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975268	975353	
==>"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976398	976483	
==>"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977527	977612	
==>"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978657	978742	
==>"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979787	979872	
==>"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980918	981003	
==>"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982047	982132	
==>"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983177	983262	
==>"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984307	984392	
==>"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985438	985523	
==>"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986568	986653	
==>"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987699	987784	
==>"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988830	988915	
==>"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989962	990047	
==>"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\ <==
17	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	18992	19083	
==>mpos};

	}

	if ($parser->{_AUTOACTION} && defined($item) && !$item->isa("Parse::RecDescent: <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4220	4318	
==>=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This lib <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3435	3533	
==>=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This lib <==
17	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2828	2926	
==>=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This lib <==
17	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3436	3534	
==>=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This lib <==
17	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12192	12290	
==>=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This lib <==
17	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3110	3208	
==>=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This lib <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2417	2515	
==>=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This lib <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20783	20881	
==>=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This lib <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1687	1785	
==>=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This lib <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2854	2952	
==>=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This lib <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1974	2072	
==>=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This lib <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2848	2946	
==>=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This lib <==
17	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20505	20603	
==>=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This lib <==
17	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3442	3540	
==>=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This lib <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3665	3763	
==>=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This lib <==
17	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1395	1493	
==>=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This lib <==
17	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3088	3186	
==>=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This lib <==
17	/Users/nnunley/parrot/config/gen/config_pm.pm	1516	1612	
==><<"END";
# Generated by config/gen/config_pm.pm from the template
# '$template' and \%PConfig
# T <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991095	991179	
==>src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992232	992316	
==>src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993369	993453	
==>src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994507	994591	
==>src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995644	995728	
==>src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996782	996866	
==>src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997920	998004	
==>src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999059	999143	
==>src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000196	1000280	
==>src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001334	1001418	
==>src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002472	1002556	
==>src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003611	1003695	
==>src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004749	1004833	
==>src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005888	1005972	
==>src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007027	1007111	
==>src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008167	1008251	
==>src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	972360	972723	
==>find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973488	973851	
==>find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974617	974980	
==>find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975746	976109	
==>find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976876	977239	
==>find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978005	978368	
==>find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979135	979498	
==>find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980265	980628	
==>find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981396	981759	
==>find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982525	982888	
==>find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983655	984018	
==>find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984785	985148	
==>find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985916	986279	
==>find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987046	987409	
==>find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988177	988540	
==>find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989308	989671	
==>find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
17	/Users/nnunley/parrot/tools/build/nativecall.pl	105	196	
==>06-06-25T03:57:27.771662Z petdance  $

=head1 NAME

tools/build/nativecall.pl - Build up the <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785555	785873	
==>( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786465	786783	
==>( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787376	787694	
==>( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788285	788603	
==>( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789195	789513	
==>( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790104	790422	
==>( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791014	791332	
==>( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791920	792238	
==>( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805480	805798	
==>( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806385	806703	
==>( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807291	807609	
==>( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808195	808513	
==>( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809100	809418	
==>( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810004	810322	
==>( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810909	811227	
==>( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811810	812128	
==>( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	17174	17396	
==>E" => 23,
                  "ARGS" => [
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 300 \"src/ops/core.ops\"\n  if ({{\@1}} != 0.0) <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973054	973161	
==>ring_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974183	974290	
==>ring_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975312	975419	
==>ring_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976442	976549	
==>ring_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977571	977678	
==>ring_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978701	978808	
==>ring_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979831	979938	
==>ring_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980962	981069	
==>ring_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982091	982198	
==>ring_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983221	983328	
==>ring_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984351	984458	
==>ring_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985482	985589	
==>ring_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986612	986719	
==>ring_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987743	987850	
==>ring_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988874	988981	
==>ring_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	990006	990113	
==>ring_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS <==
17	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3124	3217	
==>$vars=1;
	if ($noreloop) {
		push @{$code{$seg}->{code}}, "\t#ne \$I0, $vars, ERR_INPFIELDS\n" <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4528	4623	
==>implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3743	3838	
==>implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. <==
17	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3136	3231	
==>implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. <==
17	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3744	3839	
==>implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. <==
17	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12500	12595	
==>implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. <==
17	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3418	3513	
==>implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2725	2820	
==>implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21091	21186	
==>implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1995	2090	
==>implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3162	3257	
==>implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2282	2377	
==>implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3156	3251	
==>implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. <==
17	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20813	20908	
==>implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. <==
17	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3750	3845	
==>implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3973	4068	
==>implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. <==
17	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1703	1798	
==>implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. <==
17	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3396	3491	
==>implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4522	4619	
==>n the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sea <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3737	3834	
==>n the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sea <==
17	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3130	3227	
==>n the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sea <==
17	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3738	3835	
==>n the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sea <==
17	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12494	12591	
==>n the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sea <==
17	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3412	3509	
==>n the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sea <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2719	2816	
==>n the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sea <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21085	21182	
==>n the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sea <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1989	2086	
==>n the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sea <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3156	3253	
==>n the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sea <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2276	2373	
==>n the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sea <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3150	3247	
==>n the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sea <==
17	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20807	20904	
==>n the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sea <==
17	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3744	3841	
==>n the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sea <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3967	4064	
==>n the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sea <==
17	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1697	1794	
==>n the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sea <==
17	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3390	3487	
==>n the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sea <==
17	/Users/nnunley/parrot/lib/Text/Balanced.pm	55681	55779	
==>ed into the appropriate class, 

If the extractor fails to match (in the case of a regex extractor) <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991132	991218	
==>rot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992269	992355	
==>rot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993406	993492	
==>rot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994544	994630	
==>rot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995681	995767	
==>rot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996819	996905	
==>rot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997957	998043	
==>rot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999096	999182	
==>rot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000233	1000319	
==>rot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001371	1001457	
==>rot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002509	1002595	
==>rot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003648	1003734	
==>rot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004786	1004872	
==>rot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005925	1006011	
==>rot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007064	1007150	
==>rot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008204	1008290	
==>rot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}} <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749483	749679	
==>[
                              "p",
                              "nc"
                            ],
                  "BODY" => "#line 199 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_number_nati <==
17	/Users/nnunley/parrot/config/auto/aio.pm	299	391	
==>ion @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto' <==
17	/Users/nnunley/parrot/config/auto/cgoto.pm	322	414	
==>ion @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto' <==
17	/Users/nnunley/parrot/config/auto/env.pm	323	415	
==>ion @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto' <==
17	/Users/nnunley/parrot/config/auto/funcptr.pm	335	427	
==>ion @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto' <==
17	/Users/nnunley/parrot/config/auto/gc.pm	675	767	
==>ion @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto' <==
17	/Users/nnunley/parrot/config/auto/gcc.pm	309	401	
==>ion @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto' <==
17	/Users/nnunley/parrot/config/auto/headers.pm	292	384	
==>ion @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto' <==
17	/Users/nnunley/parrot/config/auto/inline.pm	325	417	
==>ion @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto' <==
17	/Users/nnunley/parrot/config/auto/isreg.pm	305	397	
==>ion @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto' <==
17	/Users/nnunley/parrot/config/auto/memalign.pm	324	416	
==>ion @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto' <==
17	/Users/nnunley/parrot/config/auto/msvc.pm	329	421	
==>ion @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto' <==
17	/Users/nnunley/parrot/config/auto/perldoc.pm	326	418	
==>ion @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto' <==
17	/Users/nnunley/parrot/config/auto/python.pm	386	478	
==>ion @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto' <==
17	/Users/nnunley/parrot/config/auto/signal.pm	287	379	
==>ion @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto' <==
17	/Users/nnunley/parrot/config/auto/sizes.pm	303	395	
==>ion @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto' <==
17	/Users/nnunley/parrot/config/auto/va_ptr.pm	330	422	
==>ion @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto' <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259119	259227	
==>} == {{\@3}})\n        {{\@1}} = 1;\n    else\n        {{\@1}} = VTABLE_is_same(interpreter, {{\@2}}, {{\@3}} <==
17	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	5607	5794	
==>s => {
          name  => $name,
          type  => $type,
          kind  => 'op',
          oplib => $oplib,
          op    => $op
        }
      });
    }
    else {
      $handler->s <==
17	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	40513	40612	
==>key} = $value;
		$pir =~ s/\$\{$key\}/$value/g;
	}
	while ($pir =~ /\$\{([INSP])TEMP(\d+)\}/g) {
		m <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785584	785882	
==>=> 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786494	786792	
==>=> 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787405	787703	
==>=> 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788314	788612	
==>=> 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789224	789522	
==>=> 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790133	790431	
==>=> 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791043	791341	
==>=> 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791949	792247	
==>=> 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805509	805807	
==>=> 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806414	806712	
==>=> 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807320	807618	
==>=> 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808224	808522	
==>=> 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809129	809427	
==>=> 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810033	810331	
==>=> 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810938	811236	
==>=> 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811839	812137	
==>=> 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
17	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1824	1928	
==>e {
  foreach my $x (@_) {
    $x =~ s/([^\x00-\xFF])/sprintf'\x{%X}',ord($1)/eg;
    # Escape things ver <==
17	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	10438	10538	
==>{
    DEBUG and print " Putting in HACKRAW (no-op) encoding mode.\n";

  } elsif( Pod::Simple::Transc <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4531	4629	
==>lied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3746	3844	
==>lied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke <==
17	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3139	3237	
==>lied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke <==
17	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3747	3845	
==>lied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke <==
17	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12503	12601	
==>lied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke <==
17	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3421	3519	
==>lied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2728	2826	
==>lied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21094	21192	
==>lied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1998	2096	
==>lied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3165	3263	
==>lied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2285	2383	
==>lied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3159	3257	
==>lied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke <==
17	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20816	20914	
==>lied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke <==
17	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3753	3851	
==>lied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3976	4074	
==>lied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke <==
17	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1706	1804	
==>lied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke <==
17	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3399	3497	
==>lied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137606	137818	
==>MP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138501	138713	
==>MP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139397	139609	
==>MP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140293	140505	
==>MP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141188	141400	
==>MP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142084	142296	
==>MP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142980	143192	
==>MP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143907	144119	
==>MP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144835	145047	
==>MP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145763	145975	
==>MP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146698	146910	
==>MP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147638	147850	
==>MP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148579	148791	
==>MP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149519	149731	
==>MP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150460	150672	
==>MP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151437	151649	
==>MP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/Test.pm	2688	2782	
==>the PAST code and passes the test if output matches the expected
result.

=item C<past_output_i <==
17	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59152	59248	
==>).");
			}
			$rule = new Parse::RecDescent::Rule($rulename,$self,$line,$replace);
			$prod->chec <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960520	960941	
==>" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1081,
                  "ARGS" => [
                              "s",
                              "s",
                              "i"
                            ],
                  "BODY" => " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196731	196904	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "A <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197627	197800	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "A <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198524	198697	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "A <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199421	199594	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "A <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200317	200490	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "A <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201214	201387	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "A <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202111	202284	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "A <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203041	203214	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "A <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203972	204145	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "A <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204903	205076	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "A <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205845	206018	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "A <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206786	206959	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "A <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207728	207901	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "A <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208668	208841	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "A <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209609	209782	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "A <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210588	210761	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "A <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	972271	972514	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973399	973642	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974528	974771	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975657	975900	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976787	977030	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977916	978159	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979046	979289	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980176	980419	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981307	981550	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982436	982679	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983566	983809	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984696	984939	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985827	986070	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986957	987200	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988088	988331	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989219	989462	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
17	/Users/nnunley/parrot/lib/Test/More.pm	32826	32961	
==>eq_array(
           [sort { ref $a ? -1 : ref $b ? 1 : $a cmp $b } @$a1],
           [sort { ref $a ? -1 : ref $b ? 1 : $a cmp $b } @$a <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137617	137912	
==>ROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138512	138807	
==>ROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139408	139703	
==>ROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140304	140599	
==>ROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141199	141494	
==>ROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142095	142390	
==>ROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142991	143286	
==>ROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143918	144213	
==>ROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144846	145141	
==>ROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145774	146069	
==>ROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146709	147004	
==>ROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147649	147944	
==>ROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148590	148885	
==>ROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149530	149825	
==>ROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150471	150766	
==>ROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151448	151743	
==>ROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
17	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	25099	25245	
==>t_end( $scratch = 'Document' );
      next; # Hasta la byebye
    }


    # ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137603	137781	
==>"JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138498	138676	
==>"JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139394	139572	
==>"JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140290	140468	
==>"JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141185	141363	
==>"JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142081	142259	
==>"JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142977	143155	
==>"JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143904	144082	
==>"JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144832	145010	
==>"JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145760	145938	
==>"JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146695	146873	
==>"JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147635	147813	
==>"JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148576	148754	
==>"JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149516	149694	
==>"JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150457	150635	
==>"JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151434	151612	
==>"JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
17	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	3065	3183	
==>f>.

=cut

sub parent
{
    my $self = shift;
    
    return unless $self->parent_path;
    
    return $self->directo <==
17	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	12356	12463	
==>gs, $verbose) = @_;

    $progs = [$progs] unless ref $progs eq 'ARRAY';

    print "checking for program: " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973016	973102	
==>ps/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974145	974231	
==>ps/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975274	975360	
==>ps/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976404	976490	
==>ps/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977533	977619	
==>ps/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978663	978749	
==>ps/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979793	979879	
==>ps/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980924	981010	
==>ps/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982053	982139	
==>ps/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983183	983269	
==>ps/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984313	984399	
==>ps/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985444	985530	
==>ps/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986574	986660	
==>ps/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987705	987791	
==>ps/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988836	988922	
==>ps/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989968	990054	
==>ps/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, { <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158829	159105	
==>ARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ] <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159725	160001	
==>ARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ] <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160622	160898	
==>ARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ] <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161519	161795	
==>ARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ] <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162415	162691	
==>ARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ] <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163312	163588	
==>ARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ] <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164209	164485	
==>ARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ] <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165137	165413	
==>ARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ] <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166066	166342	
==>ARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ] <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166995	167271	
==>ARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ] <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167933	168209	
==>ARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ] <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168874	169150	
==>ARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ] <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169816	170092	
==>ARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ] <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170756	171032	
==>ARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ] <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171697	171973	
==>ARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ] <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172674	172950	
==>ARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ] <==
17	/Users/nnunley/parrot/config/auto/python.pm	968	1079	
==>$has_python) {
        $has_python_2_4 = ($major eq '2' && $minor eq '4') ? 1 : 0;
        $self->set_result("ye <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4248	4361	
==>MERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3463	3576	
==>MERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute <==
17	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2856	2969	
==>MERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute <==
17	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3464	3577	
==>MERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute <==
17	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12220	12333	
==>MERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute <==
17	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3138	3251	
==>MERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2445	2558	
==>MERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20811	20924	
==>MERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1715	1828	
==>MERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2882	2995	
==>MERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2002	2115	
==>MERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2876	2989	
==>MERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute <==
17	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20533	20646	
==>MERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute <==
17	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3470	3583	
==>MERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3693	3806	
==>MERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute <==
17	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1423	1536	
==>MERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute <==
17	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3116	3229	
==>MERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53404	53645	
==>G_FLAG); }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gc_d <==
17	/Users/nnunley/parrot/config/inter/types.pm	656	757	
==>';
    my $floatval = $conf->options->get('floatval') || 'double';
    my $opcode   = $conf->options-> <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	972995	973082	
==>=> "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974124	974211	
==>=> "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975253	975340	
==>=> "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976383	976470	
==>=> "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977512	977599	
==>=> "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978642	978729	
==>=> "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979772	979859	
==>=> "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980903	980990	
==>=> "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982032	982119	
==>=> "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983162	983249	
==>=> "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984292	984379	
==>=> "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985423	985510	
==>=> "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986553	986640	
==>=> "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987684	987771	
==>=> "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988815	988902	
==>=> "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989947	990034	
==>=> "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, <==
17	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	882	986	
==>timize_tree($tree, $ctx);
    }

    my $rewrite = Regex::Rewrite->new(%options);
    my $code = $rewrite <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991108	991194	
==>g.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992245	992331	
==>g.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993382	993468	
==>g.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994520	994606	
==>g.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995657	995743	
==>g.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996795	996881	
==>g.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997933	998019	
==>g.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999072	999158	
==>g.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000209	1000295	
==>g.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001347	1001433	
==>g.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002485	1002571	
==>g.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003624	1003710	
==>g.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004762	1004848	
==>g.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005901	1005987	
==>g.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007040	1007126	
==>g.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008180	1008266	
==>g.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4537	4638	
==>arranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3752	3853	
==>arranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke <==
17	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	3145	3246	
==>arranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke <==
17	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3753	3854	
==>arranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke <==
17	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12509	12610	
==>arranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke <==
17	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3427	3528	
==>arranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2734	2835	
==>arranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21100	21201	
==>arranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	2004	2105	
==>arranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	3171	3272	
==>arranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	2291	2392	
==>arranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke <==
17	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	3165	3266	
==>arranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke <==
17	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20822	20923	
==>arranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke <==
17	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3759	3860	
==>arranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke <==
17	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3982	4083	
==>arranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke <==
17	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1712	1813	
==>arranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke <==
17	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3405	3506	
==>arranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	866577	866856	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867542	867821	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868508	868787	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869474	869753	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870441	870720	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871457	871736	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872474	872753	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873491	873770	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874509	874788	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875526	875805	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876544	876823	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877562	877841	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904645	904924	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905663	905942	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906682	906961	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907701	907980	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
17	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	949	1055	
==>SSORS:
#

sub file
{
  my $self = shift;
  return defined $self->{FILE} ? $self->{FILE} : '<NO FILE>';
}

s <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019859	1019951	
==>26];\n  Parrot_localtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = str <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020790	1020882	
==>26];\n  Parrot_localtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = str <==
17	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3415	3505	
==>g_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${ST <==
17	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4269	4359	
==>g_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${ST <==
17	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5177	5267	
==>g_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${ST <==
17	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8089	8179	
==>g_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${ST <==
17	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8946	9036	
==>g_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${ST <==
17	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10450	10540	
==>g_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${ST <==
17	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11854	11944	
==>g_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${ST <==
17	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2162	2252	
==>g_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${ST <==
17	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2685	2775	
==>g_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${ST <==
17	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3414	3504	
==>g_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${ST <==
17	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5462	5552	
==>g_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${ST <==
17	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6043	6133	
==>g_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${ST <==
17	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6601	6691	
==>g_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${ST <==
17	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7834	7924	
==>g_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${ST <==
17	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8917	9007	
==>g_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${ST <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785539	785867	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786449	786777	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787360	787688	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788269	788597	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789179	789507	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790088	790416	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790998	791326	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791904	792232	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805464	805792	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806369	806697	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807275	807603	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808179	808507	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809084	809412	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809988	810316	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810893	811221	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811794	812122	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
17	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	2973	3075	
==>story', '',
            $self->new_item('Provide a timeline of changes made to the project.', 'ChangeLo <==
17	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29330	29422	
==>:Standard Instance Methods

Standard behavior.

=over 4

=cut

package Parrot::Pmc2c::Standar <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180072	180367	
==>OT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180967	181262	
==>OT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181863	182158	
==>OT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182759	183054	
==>OT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183654	183949	
==>OT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184550	184845	
==>OT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185446	185741	
==>OT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186375	186670	
==>OT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187305	187600	
==>OT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188235	188530	
==>OT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189176	189471	
==>OT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190116	190411	
==>OT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191057	191352	
==>OT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191996	192291	
==>OT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192936	193231	
==>OT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193914	194209	
==>OT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
17	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	9284	9450	
==>]));
    }
    push @ops, (
                     aop('match', [ $char, $lastback ]),
                     aop('increment', [ 1, $lastback ]),
                     aop( <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	990353	990596	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991489	991732	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992626	992869	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993763	994006	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994901	995144	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996038	996281	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997176	997419	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	998314	998557	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999453	999696	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000590	1000833	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001728	1001971	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002866	1003109	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004005	1004248	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005143	1005386	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1006282	1006525	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007421	1007664	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
17	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	263	361	
==>ate files and their contents.

=head2 Class Methods

=over

=cut

package Parrot::IO::File;

use st <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	990399	990765	
==>JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991535	991901	
==>JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992672	993038	
==>JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993809	994175	
==>JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994947	995313	
==>JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996084	996450	
==>JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997222	997588	
==>JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	998360	998726	
==>JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999499	999865	
==>JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000636	1001002	
==>JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001774	1002140	
==>JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002912	1003278	
==>JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004051	1004417	
==>JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005189	1005555	
==>JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1006328	1006694	
==>JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007467	1007833	
==>JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
17	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	9681	9785	
==>}\": $!\n";
  truncate $fh, 0     or die "Couldn't truncate \"@{[ BUCKET ]}\": $!\n";

  store_fd [$bucke <==
17	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	311445	311534	
==>interpreter,&interpreter->string_reg, -1);\n        PDB_print_pmc(interpreter,&interpreter <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	972937	973081	
==>"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974066	974210	
==>"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975195	975339	
==>"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976325	976469	
==>"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977454	977598	
==>"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978584	978728	
==>"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979714	979858	
==>"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980845	980989	
==>"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981974	982118	
==>"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983104	983248	
==>"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984234	984378	
==>"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985365	985509	
==>"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986495	986639	
==>"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987626	987770	
==>"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988757	988901	
==>"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989889	990033	
==>"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973160	973529	
==>LS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974289	974658	
==>LS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975418	975787	
==>LS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976548	976917	
==>LS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977677	978046	
==>LS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978807	979176	
==>LS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979937	980306	
==>LS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981068	981437	
==>LS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982197	982566	
==>LS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983327	983696	
==>LS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984457	984826	
==>LS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985588	985957	
==>LS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986718	987087	
==>LS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987849	988218	
==>LS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988980	989349	
==>LS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780458	780710	
==>CODE" => 881,
                  "ARGS" => [
                              "p",
                              "ki",
                              "s"
                            ],
                  "BODY" => "#line 387 \"src/ops/set.ops\"\n    {{\@1}}-> <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	990401	990776	
==>MP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991537	991912	
==>MP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992674	993049	
==>MP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993811	994186	
==>MP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994949	995324	
==>MP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996086	996461	
==>MP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997224	997599	
==>MP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	998362	998737	
==>MP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999501	999876	
==>MP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000638	1001013	
==>MP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001776	1002151	
==>MP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002914	1003289	
==>MP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004053	1004428	
==>MP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005191	1005566	
==>MP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1006330	1006705	
==>MP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007469	1007844	
==>MP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158642	158909	
==>0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159538	159805	
==>0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160435	160702	
==>0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161332	161599	
==>0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162228	162495	
==>0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163125	163392	
==>0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164022	164289	
==>0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164950	165217	
==>0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165879	166146	
==>0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166808	167075	
==>0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167746	168013	
==>0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168687	168954	
==>0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169629	169896	
==>0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170569	170836	
==>0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171510	171777	
==>0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172487	172754	
==>0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137559	137780	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138454	138675	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139350	139571	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140246	140467	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141141	141362	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142037	142258	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142933	143154	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143860	144081	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144788	145009	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145716	145937	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146651	146872	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147591	147812	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148532	148753	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149472	149693	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150413	150634	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151390	151611	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196730	196903	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197626	197799	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198523	198696	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199420	199593	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200316	200489	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201213	201386	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202110	202283	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203040	203213	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203971	204144	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204902	205075	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205844	206017	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206785	206958	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207727	207900	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208667	208840	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209608	209781	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210587	210760	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	972294	972698	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973422	973826	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974551	974955	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975680	976084	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976810	977214	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977939	978343	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979069	979473	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980199	980603	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981330	981734	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982459	982863	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983589	983993	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984719	985123	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985850	986254	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986980	987384	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988111	988515	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989242	989646	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067254	1067582	
==>+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068440	1068768	
==>+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069626	1069954	
==>+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070813	1071141	
==>+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080617	1080945	
==>+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081682	1082010	
==>+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082747	1083075	
==>+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083813	1084141	
==>+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088972	1089300	
==>+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089920	1090248	
==>+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099401	1099729	
==>+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100599	1100927	
==>+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101797	1102125	
==>+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102996	1103324	
==>+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104210	1104538	
==>+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105425	1105753	
==>+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180033	180196	
==>ss( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180928	181091	
==>ss( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181824	181987	
==>ss( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182720	182883	
==>ss( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183615	183778	
==>ss( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184511	184674	
==>ss( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185407	185570	
==>ss( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186336	186499	
==>ss( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187266	187429	
==>ss( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188196	188359	
==>ss( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189137	189300	
==>ss( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190077	190240	
==>ss( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191018	191181	
==>ss( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191957	192120	
==>ss( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192897	193060	
==>ss( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193875	194038	
==>ss( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973021	973108	
==>ring.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974150	974237	
==>ring.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975279	975366	
==>ring.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976409	976496	
==>ring.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977538	977625	
==>ring.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978668	978755	
==>ring.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979798	979885	
==>ring.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980929	981016	
==>ring.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982058	982145	
==>ring.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983188	983275	
==>ring.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984318	984405	
==>ring.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985449	985536	
==>ring.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986579	986666	
==>ring.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987710	987797	
==>ring.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988841	988928	
==>ring.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989973	990060	
==>ring.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}} <==
16	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3374	3465	
==>${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP <==
16	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4228	4319	
==>${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP <==
16	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5136	5227	
==>${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP <==
16	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8048	8139	
==>${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP <==
16	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8905	8996	
==>${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP <==
16	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11813	11904	
==>${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP <==
16	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2121	2212	
==>${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP <==
16	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2644	2735	
==>${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP <==
16	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3373	3464	
==>${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP <==
16	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6002	6093	
==>${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP <==
16	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6560	6651	
==>${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP <==
16	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8876	8967	
==>${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP <==
16	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1427	1518	
==>${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP <==
16	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1954	2045	
==>${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP <==
16	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3137	3228	
==>${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP <==
16	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7448	7539	
==>${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786191	786448	
==>ed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787102	787359	
==>ed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788011	788268	
==>ed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788921	789178	
==>ed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789830	790087	
==>ed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790740	790997	
==>ed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791646	791903	
==>ed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792553	792810	
==>ed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644090	644345	
==>ed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644983	645238	
==>ed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656480	656735	
==>ed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657404	657659	
==>ed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660162	660417	
==>ed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661084	661339	
==>ed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103951	1104036	
==>rrot_autoload_class(interpreter, class);\n\t\ttype = pmc_type(interpreter, class);\n\t <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105166	1105251	
==>rrot_autoload_class(interpreter, class);\n\t\ttype = pmc_type(interpreter, class);\n\t <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	230585	230917	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231488	231820	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232392	232724	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233296	233628	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234199	234531	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235103	235435	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236007	236339	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236888	237220	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237770	238102	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238652	238984	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	239545	239877	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240492	240824	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241440	241772	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242388	242720	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243337	243669	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244268	244600	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785551	785868	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786461	786778	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787372	787689	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788281	788598	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789191	789508	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790100	790417	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791010	791327	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791916	792233	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805476	805793	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806381	806698	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807287	807604	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808191	808508	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809096	809413	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810000	810317	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810905	811222	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811806	812123	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973132	973500	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974261	974629	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975390	975758	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976520	976888	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977649	978017	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978779	979147	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979909	980277	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981040	981408	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982169	982537	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983299	983667	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984429	984797	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985560	985928	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986690	987058	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987821	988189	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988952	989320	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass", <==
16	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	817	926	
==>t event!  set to stack, and set as root.
  }
  DEBUG > 3 and print "Stack is now: ",
    join(">", map $_->[0] <==
16	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1785	1883	
==>"Redeclaration of identifier '%s'. Previous declaration on line %d of file '%s'.",
      $name, $sy <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137530	137710	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138425	138605	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139321	139501	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140217	140397	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141112	141292	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142008	142188	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142904	143084	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143831	144011	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144759	144939	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145687	145867	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146622	146802	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147562	147742	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148503	148683	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149443	149623	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150384	150564	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151361	151541	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	230581	230860	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231484	231763	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232388	232667	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233292	233571	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234195	234474	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235099	235378	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236003	236282	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236884	237163	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237766	238045	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238648	238927	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	239541	239820	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240488	240767	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241436	241715	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242384	242663	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243333	243612	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244264	244543	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	524799	525071	
==>OATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	525552	525824	
==>OATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527076	527348	
==>OATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527829	528101	
==>OATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	531225	531497	
==>OATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	531978	532250	
==>OATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	532729	533001	
==>OATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	533479	533751	
==>OATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	534234	534506	
==>OATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	535802	536074	
==>OATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	536571	536843	
==>OATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	537322	537594	
==>OATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	538075	538347	
==>OATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	538826	539098	
==>OATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539579	539851	
==>OATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
16	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18731	18821	
==>odeblock_halfpoint_size( I<halfpoint_integer> );

This method sets the size (in half-points <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605929	606163	
==>e(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606720	606954	
==>e(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747329	747561	
==>e(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748114	748346	
==>e(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748897	749129	
==>e(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749681	749913	
==>e(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750464	750696	
==>e(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753623	753855	
==>e(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754411	754643	
==>e(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755197	755429	
==>e(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755984	756216	
==>e(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756773	757005	
==>e(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757563	757795	
==>e(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324745	324976	
==>e(interpreter, {{\@1}},{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325538	325769	
==>e(interpreter, {{\@1}},{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326328	326559	
==>e(interpreter, {{\@1}},{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785532	785846	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786442	786756	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787353	787667	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788262	788576	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789172	789486	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790081	790395	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790991	791305	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791897	792211	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805457	805771	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806362	806676	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807268	807582	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808172	808486	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809077	809391	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809981	810295	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810886	811200	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811787	812101	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991121	991217	
==>\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992258	992354	
==>\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993395	993491	
==>\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994533	994629	
==>\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995670	995766	
==>\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996808	996904	
==>\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997946	998042	
==>\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999085	999181	
==>\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000222	1000318	
==>\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001360	1001456	
==>\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002498	1002594	
==>\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003637	1003733	
==>\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004775	1004871	
==>\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005914	1006010	
==>\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007053	1007149	
==>\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008193	1008289	
==>\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179952	180160	
==>1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180847	181055	
==>1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181743	181951	
==>1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182639	182847	
==>1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183534	183742	
==>1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184430	184638	
==>1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185326	185534	
==>1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186255	186463	
==>1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187185	187393	
==>1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188115	188323	
==>1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189056	189264	
==>1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189996	190204	
==>1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190937	191145	
==>1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191876	192084	
==>1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192816	193024	
==>1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193794	194002	
==>1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196720	196877	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197616	197773	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198513	198670	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199410	199567	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200306	200463	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201203	201360	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202100	202257	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203030	203187	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203961	204118	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204892	205049	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205834	205991	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206775	206932	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207717	207874	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208657	208814	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209598	209755	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210577	210734	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039408	1039716	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "st <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040300	1040608	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "st <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041192	1041500	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "st <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042085	1042393	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "st <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042981	1043289	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "st <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043878	1044186	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "st <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044771	1045079	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "st <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045665	1045973	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "st <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046559	1046867	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "st <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374098	374404	
==>\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "st <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374981	375287	
==>\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "st <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375864	376170	
==>\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "st <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376748	377054	
==>\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "st <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377631	377937	
==>\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "st <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378515	378821	
==>\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "st <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379399	379705	
==>\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "st <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	230660	230961	
==>ME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231563	231864	
==>ME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232467	232768	
==>ME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233371	233672	
==>ME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234274	234575	
==>ME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235178	235479	
==>ME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236082	236383	
==>ME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236963	237264	
==>ME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237845	238146	
==>ME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238727	239028	
==>ME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	239620	239921	
==>ME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240567	240868	
==>ME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241515	241816	
==>ME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242463	242764	
==>ME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243412	243713	
==>ME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244343	244644	
==>ME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3432	3530	
==>>


=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This <==
16	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3084	3182	
==>>


=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This <==
16	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4217	4314	
==>>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This <==
16	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3432	3529	
==>>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This <==
16	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2825	2922	
==>>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This <==
16	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12189	12286	
==>>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This <==
16	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3107	3204	
==>>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This <==
16	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2414	2511	
==>>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This <==
16	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1684	1781	
==>>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This <==
16	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2851	2948	
==>>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This <==
16	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1971	2068	
==>>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This <==
16	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2845	2942	
==>>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This <==
16	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20502	20599	
==>>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This <==
16	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3439	3536	
==>>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This <==
16	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3662	3759	
==>>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This <==
16	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1392	1489	
==>>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

This <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973046	973159	
==>arrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974175	974288	
==>arrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975304	975417	
==>arrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976434	976547	
==>arrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977563	977676	
==>arrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978693	978806	
==>arrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979823	979936	
==>arrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980954	981067	
==>arrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982083	982196	
==>arrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983213	983326	
==>arrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984343	984456	
==>arrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985474	985587	
==>arrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986604	986717	
==>arrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987735	987848	
==>arrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988866	988979	
==>arrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989998	990111	
==>arrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973000	973094	
==>line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974129	974223	
==>line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975258	975352	
==>line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976388	976482	
==>line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977517	977611	
==>line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978647	978741	
==>line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979777	979871	
==>line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980908	981002	
==>line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982037	982131	
==>line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983167	983261	
==>line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984297	984391	
==>line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985428	985522	
==>line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986558	986652	
==>line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987689	987783	
==>line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988820	988914	
==>line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989952	990046	
==>line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158601	158907	
==>LS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159497	159803	
==>LS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160394	160700	
==>LS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161291	161597	
==>LS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162187	162493	
==>LS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163084	163390	
==>LS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163981	164287	
==>LS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164909	165215	
==>LS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165838	166144	
==>LS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166767	167073	
==>LS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167705	168011	
==>LS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168646	168952	
==>LS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169588	169894	
==>LS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170528	170834	
==>LS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171469	171775	
==>LS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172446	172752	
==>LS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973126	973495	
==>+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ccl <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974255	974624	
==>+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ccl <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975384	975753	
==>+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ccl <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976514	976883	
==>+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ccl <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977643	978012	
==>+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ccl <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978773	979142	
==>+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ccl <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979903	980272	
==>+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ccl <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981034	981403	
==>+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ccl <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982163	982532	
==>+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ccl <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983293	983662	
==>+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ccl <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984423	984792	
==>+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ccl <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985554	985923	
==>+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ccl <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986684	987053	
==>+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ccl <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987815	988184	
==>+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ccl <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988946	989315	
==>+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ccl <==
16	/Users/nnunley/parrot/tools/dev/run_indent.pl	1615	1722	
==>lags' => $ccflags;
    $c->set('includeDirs' => \@incdirs);
    $/="\n";  # i don't know why, but this is ne <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	972272	972590	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973400	973718	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974529	974847	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975658	975976	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976788	977106	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977917	978235	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979047	979365	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980177	980495	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981308	981626	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982437	982755	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983567	983885	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984697	985015	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985828	986146	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986958	987276	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988089	988407	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989220	989538	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	866581	866858	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867546	867823	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868512	868789	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869478	869755	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870445	870722	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871461	871738	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872478	872755	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873495	873772	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874513	874790	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875530	875807	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876548	876825	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877566	877843	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904649	904926	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905667	905944	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906686	906963	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907705	907982	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	990076	990446	
==>{{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_no <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991212	991582	
==>{{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_no <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992349	992719	
==>{{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_no <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993486	993856	
==>{{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_no <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994624	994994	
==>{{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_no <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995761	996131	
==>{{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_no <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996899	997269	
==>{{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_no <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	998037	998407	
==>{{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_no <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999176	999546	
==>{{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_no <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000313	1000683	
==>{{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_no <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001451	1001821	
==>{{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_no <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002589	1002959	
==>{{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_no <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003728	1004098	
==>{{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_no <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004866	1005236	
==>{{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_no <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1006005	1006375	
==>{{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_no <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007144	1007514	
==>{{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_no <==
16	/Users/nnunley/parrot/config/auto/aio.pm	298	388	
==>tion @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':au <==
16	/Users/nnunley/parrot/config/auto/cgoto.pm	321	411	
==>tion @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':au <==
16	/Users/nnunley/parrot/config/auto/env.pm	322	412	
==>tion @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':au <==
16	/Users/nnunley/parrot/config/auto/funcptr.pm	334	424	
==>tion @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':au <==
16	/Users/nnunley/parrot/config/auto/gc.pm	674	764	
==>tion @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':au <==
16	/Users/nnunley/parrot/config/auto/gcc.pm	308	398	
==>tion @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':au <==
16	/Users/nnunley/parrot/config/auto/headers.pm	291	381	
==>tion @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':au <==
16	/Users/nnunley/parrot/config/auto/inline.pm	324	414	
==>tion @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':au <==
16	/Users/nnunley/parrot/config/auto/isreg.pm	304	394	
==>tion @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':au <==
16	/Users/nnunley/parrot/config/auto/memalign.pm	323	413	
==>tion @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':au <==
16	/Users/nnunley/parrot/config/auto/msvc.pm	328	418	
==>tion @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':au <==
16	/Users/nnunley/parrot/config/auto/perldoc.pm	325	415	
==>tion @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':au <==
16	/Users/nnunley/parrot/config/auto/python.pm	385	475	
==>tion @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':au <==
16	/Users/nnunley/parrot/config/auto/signal.pm	286	376	
==>tion @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':au <==
16	/Users/nnunley/parrot/config/auto/sizes.pm	302	392	
==>tion @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':au <==
16	/Users/nnunley/parrot/config/auto/va_ptr.pm	329	419	
==>tion @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':au <==
16	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24639	24739	
==>rse_for {   # for var = start to finish [step increment]
	my($endexpr, $stepexpr, @stepcode);

	$forl <==
16	/Users/nnunley/parrot/lib/Pod/Simple.pm	11269	11354	
==>return;
}


#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
16	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	46896	46981	
==>return;
}


#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
16	/Users/nnunley/parrot/lib/Pod/Simple.pm	5863	5947	
==>return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
16	/Users/nnunley/parrot/lib/Pod/Simple.pm	8911	8995	
==>return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
16	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41489	41573	
==>return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
16	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	52544	52628	
==>return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
16	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3508	3592	
==>return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
16	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2113	2197	
==>return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
16	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2261	2345	
==>return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
16	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	7135	7219	
==>return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
16	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15528	15612	
==>return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
16	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3038	3122	
==>return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
16	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	753	837	
==>return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
16	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2364	2448	
==>return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
16	/Users/nnunley/parrot/lib/Pod/Simple.pm	7551	7634	
==>return
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196669	196872	
==>1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ": <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197565	197768	
==>1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ": <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198462	198665	
==>1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ": <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199359	199562	
==>1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ": <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200255	200458	
==>1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ": <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201152	201355	
==>1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ": <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202049	202252	
==>1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ": <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202979	203182	
==>1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ": <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203910	204113	
==>1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ": <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204841	205044	
==>1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ": <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205783	205986	
==>1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ": <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206724	206927	
==>1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ": <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207666	207869	
==>1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ": <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208606	208809	
==>1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ": <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209547	209750	
==>1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ": <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210526	210729	
==>1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ": <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991144	991324	
==>ind_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992281	992461	
==>ind_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993418	993598	
==>ind_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994556	994736	
==>ind_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995693	995873	
==>ind_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996831	997011	
==>ind_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997969	998149	
==>ind_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999108	999288	
==>ind_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000245	1000425	
==>ind_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001383	1001563	
==>ind_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002521	1002701	
==>ind_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003660	1003840	
==>ind_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004798	1004978	
==>ind_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005937	1006117	
==>ind_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007076	1007256	
==>ind_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008216	1008396	
==>ind_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180073	180374	
==>T_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180968	181269	
==>T_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181864	182165	
==>T_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182760	183061	
==>T_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183655	183956	
==>T_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184551	184852	
==>T_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185447	185748	
==>T_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186376	186677	
==>T_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187306	187607	
==>T_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188236	188537	
==>T_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189177	189478	
==>T_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190117	190418	
==>T_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191058	191359	
==>T_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191997	192298	
==>T_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192937	193238	
==>T_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193915	194216	
==>T_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991021	991160	
==>"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(in <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992158	992297	
==>"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(in <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993295	993434	
==>"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(in <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994433	994572	
==>"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(in <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995570	995709	
==>"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(in <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996708	996847	
==>"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(in <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997846	997985	
==>"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(in <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	998985	999124	
==>"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(in <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000122	1000261	
==>"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(in <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001260	1001399	
==>"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(in <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002398	1002537	
==>"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(in <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003537	1003676	
==>"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(in <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004675	1004814	
==>"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(in <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005814	1005953	
==>"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(in <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1006953	1007092	
==>"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(in <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008093	1008232	
==>"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(in <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180064	180366	
==>=> "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180959	181261	
==>=> "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181855	182157	
==>=> "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182751	183053	
==>=> "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183646	183948	
==>=> "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184542	184844	
==>=> "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185438	185740	
==>=> "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186367	186669	
==>=> "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187297	187599	
==>=> "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188227	188529	
==>=> "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189168	189470	
==>=> "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190108	190410	
==>=> "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191049	191351	
==>=> "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191988	192290	
==>=> "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192928	193230	
==>=> "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193906	194208	
==>=> "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785553	785871	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786463	786781	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787374	787692	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788283	788601	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789193	789511	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790102	790420	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791012	791330	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791918	792236	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805478	805796	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806383	806701	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807289	807607	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808193	808511	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809098	809416	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810002	810320	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810907	811225	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811808	812126	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158791	158956	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159687	159852	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160584	160749	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161481	161646	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162377	162542	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163274	163439	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164171	164336	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165099	165264	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166028	166193	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166957	167122	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167895	168060	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168836	169001	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169778	169943	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170718	170883	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171659	171824	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172636	172801	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991133	991248	
==>ot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABEL <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992270	992385	
==>ot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABEL <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993407	993522	
==>ot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABEL <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994545	994660	
==>ot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABEL <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995682	995797	
==>ot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABEL <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996820	996935	
==>ot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABEL <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997958	998073	
==>ot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABEL <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999097	999212	
==>ot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABEL <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000234	1000349	
==>ot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABEL <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001372	1001487	
==>ot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABEL <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002510	1002625	
==>ot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABEL <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003649	1003764	
==>ot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABEL <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004787	1004902	
==>ot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABEL <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005926	1006041	
==>ot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABEL <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007065	1007180	
==>ot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABEL <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008205	1008320	
==>ot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABEL <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692953	693292	
==>@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "m <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693953	694292	
==>@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "m <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694953	695292	
==>@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "m <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695954	696293	
==>@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "m <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696954	697293	
==>@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "m <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697955	698294	
==>@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "m <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698956	699295	
==>@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "m <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699958	700297	
==>@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "m <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700948	701287	
==>@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "m <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701939	702278	
==>@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "m <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702930	703269	
==>@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "m <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703922	704261	
==>@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "m <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704913	705252	
==>@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "m <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705905	706244	
==>@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "m <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706897	707236	
==>@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "m <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	533462	533694	
==>{{\@1}} = log((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158797	159072	
==>{
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159693	159968	
==>{
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160590	160865	
==>{
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161487	161762	
==>{
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162383	162658	
==>{
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163280	163555	
==>{
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164177	164452	
==>{
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165105	165380	
==>{
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166034	166309	
==>{
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166963	167238	
==>{
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167901	168176	
==>{
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168842	169117	
==>{
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169784	170059	
==>{
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170724	170999	
==>{
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171665	171940	
==>{
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172642	172917	
==>{
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	972268	972511	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973396	973639	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974525	974768	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975654	975897	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976784	977027	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977913	978156	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979043	979286	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980173	980416	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981304	981547	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982433	982676	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983563	983806	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984693	984936	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985824	986067	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986954	987197	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988085	988328	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989216	989459	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991101	991186	
==>s/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992238	992323	
==>s/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993375	993460	
==>s/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994513	994598	
==>s/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995650	995735	
==>s/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996788	996873	
==>s/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997926	998011	
==>s/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999065	999150	
==>s/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000202	1000287	
==>s/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001340	1001425	
==>s/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002478	1002563	
==>s/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003617	1003702	
==>s/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004755	1004840	
==>s/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005894	1005979	
==>s/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007033	1007118	
==>s/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008173	1008258	
==>s/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	230553	230822	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231456	231725	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232360	232629	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233264	233533	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234167	234436	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235071	235340	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235975	236244	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236856	237125	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237738	238007	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238620	238889	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	239513	239782	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240460	240729	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241408	241677	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242356	242625	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243305	243574	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244236	244505	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180035	180235	
==>( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180930	181130	
==>( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181826	182026	
==>( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182722	182922	
==>( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183617	183817	
==>( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184513	184713	
==>( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185409	185609	
==>( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186338	186538	
==>( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187268	187468	
==>( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188198	188398	
==>( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189139	189339	
==>( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190079	190279	
==>( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191020	191220	
==>( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191959	192159	
==>( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192899	193099	
==>( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193877	194077	
==>( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158776	158950	
==>' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGD <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159672	159846	
==>' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGD <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160569	160743	
==>' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGD <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161466	161640	
==>' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGD <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162362	162536	
==>' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGD <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163259	163433	
==>' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGD <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164156	164330	
==>' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGD <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165084	165258	
==>' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGD <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166013	166187	
==>' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGD <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166942	167116	
==>' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGD <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167880	168054	
==>' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGD <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168821	168995	
==>' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGD <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169763	169937	
==>' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGD <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170703	170877	
==>' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGD <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171644	171818	
==>' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGD <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172621	172795	
==>' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGD <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231312	231616	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232216	232520	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233120	233424	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234023	234327	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234927	235231	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235831	236135	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236712	237016	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237594	237898	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238476	238780	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	239369	239673	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240316	240620	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241264	241568	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242212	242516	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243161	243465	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244092	244396	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/config/inter/progs.pm	4232	4320	
==>know why.
    $ccwarn = integrate($conf->data->get('ccwarn'), $conf->options->get('ccwarn <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196732	196909	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197628	197805	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198525	198702	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199422	199599	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200318	200495	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201215	201392	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202112	202289	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203042	203219	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203973	204150	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204904	205081	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205846	206023	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206787	206964	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207729	207906	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208669	208846	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209610	209787	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210589	210766	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196795	197093	
==>P_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197691	197989	
==>P_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198588	198886	
==>P_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199485	199783	
==>P_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200381	200679	
==>P_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201278	201576	
==>P_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202175	202473	
==>P_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203105	203403	
==>P_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204036	204334	
==>P_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204967	205265	
==>P_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205909	206207	
==>P_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206850	207148	
==>P_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207792	208090	
==>P_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208732	209030	
==>P_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209673	209971	
==>P_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210652	210950	
==>P_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991116	991204	
==>n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992253	992341	
==>n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993390	993478	
==>n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994528	994616	
==>n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995665	995753	
==>n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996803	996891	
==>n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997941	998029	
==>n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999080	999168	
==>n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000217	1000305	
==>n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001355	1001443	
==>n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002493	1002581	
==>n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003632	1003720	
==>n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004770	1004858	
==>n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005909	1005997	
==>n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007048	1007136	
==>n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008188	1008276	
==>n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	990350	990595	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991486	991731	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992623	992868	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993760	994005	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994898	995143	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996035	996280	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997173	997418	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	998311	998556	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999450	999695	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000587	1000832	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001725	1001970	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002863	1003108	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004002	1004247	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005140	1005385	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1006279	1006524	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007418	1007663	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158678	158920	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159574	159816	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160471	160713	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161368	161610	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162264	162506	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163161	163403	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164058	164300	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164986	165228	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165915	166157	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166844	167086	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167782	168024	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168723	168965	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169665	169907	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170605	170847	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171546	171788	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172523	172765	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	990432	990810	
==>ME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991568	991946	
==>ME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992705	993083	
==>ME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993842	994220	
==>ME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994980	995358	
==>ME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996117	996495	
==>ME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997255	997633	
==>ME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	998393	998771	
==>ME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999532	999910	
==>ME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000669	1001047	
==>ME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001807	1002185	
==>ME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002945	1003323	
==>ME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004084	1004462	
==>ME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005222	1005600	
==>ME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1006361	1006739	
==>ME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007500	1007878	
==>ME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231315	231639	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "A <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232219	232543	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "A <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233123	233447	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "A <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234026	234350	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "A <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234930	235254	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "A <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235834	236158	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "A <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236715	237039	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "A <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237597	237921	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "A <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238479	238803	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "A <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	239372	239696	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "A <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240319	240643	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "A <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241267	241591	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "A <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242215	242539	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "A <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243164	243488	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "A <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244095	244419	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "A <==
16	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	27396	27504	
==>s $self->{DEBUG};

    my $method = "describe_" . $op->{name};
    my $desc = $op->{name};
    if ($self->can <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451619	451846	
==>DY" => "#line 225 \"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452358	452585	
==>DY" => "#line 225 \"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578614	578747	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subc <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579918	580051	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subc <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581223	581356	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subc <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582528	582661	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subc <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583834	583967	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subc <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584908	585041	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subc <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585983	586116	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subc <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587168	587301	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subc <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588354	588487	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subc <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589540	589673	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subc <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590727	590860	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subc <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591936	592069	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subc <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593146	593279	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subc <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594356	594489	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subc <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24009	24257	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549185	549433	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550485	550733	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551786	552034	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552977	553225	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558390	558638	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559774	560022	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560995	561243	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578458	578706	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584752	585000	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585827	586075	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598242	598490	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599289	599537	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600364	600612	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1027354	1027602	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ <==
16	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10292	10401	
==>st.out', undef, $verbose);
    }

    my $output = _slurp('./test.out');

    return $output;
}

=item C<cc_ru <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973056	973236	
==>ng_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974185	974365	
==>ng_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975314	975494	
==>ng_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976444	976624	
==>ng_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977573	977753	
==>ng_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978703	978883	
==>ng_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979833	980013	
==>ng_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980964	981144	
==>ng_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982093	982273	
==>ng_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983223	983403	
==>ng_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984353	984533	
==>ng_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985484	985664	
==>ng_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986614	986794	
==>ng_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987745	987925	
==>ng_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988876	989056	
==>ng_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	990008	990188	
==>ng_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138283	138585	
==>S" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "F <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139179	139481	
==>S" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "F <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140075	140377	
==>S" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "F <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140970	141272	
==>S" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "F <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141866	142168	
==>S" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "F <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142762	143064	
==>S" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "F <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143689	143991	
==>S" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "F <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144617	144919	
==>S" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "F <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145545	145847	
==>S" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "F <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146480	146782	
==>S" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "F <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147420	147722	
==>S" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "F <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148361	148663	
==>S" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "F <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149301	149603	
==>S" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "F <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150242	150544	
==>S" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "F <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151219	151521	
==>S" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "F <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623515	623626	
==>dest_pred[1]);\n    }\n    else {\n\tsig = NULL;\n\tdest_pred = NULL;\n    }\n    lru = &mic->lru;\n    if (lru- <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	972996	973084	
==>> "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, { <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974125	974213	
==>> "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, { <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975254	975342	
==>> "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, { <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976384	976472	
==>> "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, { <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977513	977601	
==>> "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, { <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978643	978731	
==>> "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, { <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979773	979861	
==>> "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, { <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980904	980992	
==>> "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, { <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982033	982121	
==>> "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, { <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983163	983251	
==>> "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, { <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984293	984381	
==>> "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, { <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985424	985512	
==>> "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, { <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986554	986642	
==>> "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, { <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987685	987773	
==>> "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, { <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988816	988904	
==>> "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, { <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989948	990036	
==>> "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, { <==
16	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	22018	22122	
==>Rule 35
		 'charclass', 4,
sub
#line 164 "lib/Regex/Grammar.y"
{ return [ 'neg', $_[3] ]; }
	],
	[#Rule 3 <==
16	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3418	3508	
==>ype_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP <==
16	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4272	4362	
==>ype_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP <==
16	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5180	5270	
==>ype_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP <==
16	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8092	8182	
==>ype_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP <==
16	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8949	9039	
==>ype_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP <==
16	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10453	10543	
==>ype_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP <==
16	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11857	11947	
==>ype_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP <==
16	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2165	2255	
==>ype_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP <==
16	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2688	2778	
==>ype_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP <==
16	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3417	3507	
==>ype_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP <==
16	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5465	5555	
==>ype_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP <==
16	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6046	6136	
==>ype_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP <==
16	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6604	6694	
==>ype_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP <==
16	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7837	7927	
==>ype_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP <==
16	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8920	9010	
==>ype_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP <==
16	/Users/nnunley/parrot/config/auto/gcc.pm	1330	1446	
==>rint " (no) " if $verbose;
        $self->set_result('no');
        $conf->data->set(gccversion => undef);
        re <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761391	761492	
==>"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound reg <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762244	762345	
==>"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound reg <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763096	763197	
==>"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound reg <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763949	764050	
==>"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound reg <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764802	764903	
==>"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound reg <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765656	765757	
==>"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound reg <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766508	766609	
==>"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound reg <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767361	767462	
==>"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound reg <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768214	768315	
==>"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound reg <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769068	769169	
==>"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound reg <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769920	770021	
==>"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound reg <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770773	770874	
==>"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound reg <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771626	771727	
==>"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound reg <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772480	772581	
==>"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound reg <==
16	/Users/nnunley/parrot/lib/Text/Balanced.pm	10976	11072	
==>$textref)||0;
	unless ($$textref =~ m/\G($pre)/gc)
	{
		_failmsg "Did not find prefix: /$pre/", p <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158772	158947	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "A <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159668	159843	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "A <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160565	160740	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "A <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161462	161637	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "A <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162358	162533	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "A <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163255	163430	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "A <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164152	164327	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "A <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165080	165255	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "A <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166009	166184	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "A <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166938	167113	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "A <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167876	168051	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "A <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168817	168992	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "A <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169759	169934	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "A <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170699	170874	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "A <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171640	171815	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "A <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172617	172792	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "A <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180059	180273	
==>UMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180954	181168	
==>UMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181850	182064	
==>UMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182746	182960	
==>UMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183641	183855	
==>UMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184537	184751	
==>UMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185433	185647	
==>UMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186362	186576	
==>UMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187292	187506	
==>UMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188222	188436	
==>UMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189163	189377	
==>UMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190103	190317	
==>UMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191044	191258	
==>UMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191983	192197	
==>UMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192923	193137	
==>UMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193901	194115	
==>UMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231286	231609	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":ba <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232190	232513	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":ba <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233094	233417	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":ba <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233997	234320	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":ba <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234901	235224	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":ba <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235805	236128	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":ba <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236686	237009	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":ba <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237568	237891	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":ba <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238450	238773	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":ba <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	239343	239666	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":ba <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240290	240613	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":ba <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241238	241561	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":ba <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242186	242509	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":ba <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243135	243458	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":ba <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244066	244389	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":ba <==
16	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	7009	7122	
==>ref($_) || $_ !~ /^\d+$/ } @subop_startset;
        foreach (@subop_startset) {
            return 0 if exists($st <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137621	137916	
==>JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138516	138811	
==>JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139412	139707	
==>JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140308	140603	
==>JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141203	141498	
==>JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142099	142394	
==>JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142995	143290	
==>JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143922	144217	
==>JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144850	145145	
==>JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145778	146073	
==>JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146713	147008	
==>JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147653	147948	
==>JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148594	148889	
==>JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149534	149829	
==>JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150475	150770	
==>JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151452	151747	
==>JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	990346	990557	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991482	991693	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992619	992830	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993756	993967	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994894	995105	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996031	996242	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997169	997380	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	998307	998518	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999446	999657	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000583	1000794	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001721	1001932	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002859	1003070	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003998	1004209	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005136	1005347	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1006275	1006486	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007414	1007625	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	230603	230925	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231506	231828	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232410	232732	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233314	233636	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234217	234539	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235121	235443	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236025	236347	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236906	237228	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237788	238110	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238670	238992	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	239563	239885	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240510	240832	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241458	241780	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242406	242728	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243355	243677	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244286	244608	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	972108	972430	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDI <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973236	973558	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDI <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974365	974687	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDI <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975494	975816	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDI <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976624	976946	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDI <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977753	978075	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDI <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978883	979205	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDI <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980013	980335	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDI <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981144	981466	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDI <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982273	982595	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDI <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983403	983725	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDI <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984533	984855	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDI <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985664	985986	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDI <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986794	987116	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDI <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987925	988247	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDI <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989056	989378	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDI <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	972361	972727	
==>ind_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973489	973855	
==>ind_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974618	974984	
==>ind_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975747	976113	
==>ind_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976877	977243	
==>ind_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978006	978372	
==>ind_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979136	979502	
==>ind_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980266	980632	
==>ind_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981397	981763	
==>ind_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982526	982892	
==>ind_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983656	984022	
==>ind_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984786	985152	
==>ind_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985917	986283	
==>ind_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987047	987413	
==>ind_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988178	988544	
==>ind_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989309	989675	
==>ind_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973017	973104	
==>s/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974146	974233	
==>s/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975275	975362	
==>s/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976405	976492	
==>s/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977534	977621	
==>s/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978664	978751	
==>s/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979794	979881	
==>s/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980925	981012	
==>s/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982054	982141	
==>s/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983184	983271	
==>s/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984314	984401	
==>s/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985445	985532	
==>s/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986575	986662	
==>s/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987706	987793	
==>s/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988837	988924	
==>s/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989969	990056	
==>s/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137607	137892	
==>P" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ], <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138502	138787	
==>P" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ], <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139398	139683	
==>P" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ], <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140294	140579	
==>P" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ], <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141189	141474	
==>P" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ], <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142085	142370	
==>P" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ], <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142981	143266	
==>P" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ], <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143908	144193	
==>P" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ], <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144836	145121	
==>P" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ], <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145764	146049	
==>P" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ], <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146699	146984	
==>P" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ], <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147639	147924	
==>P" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ], <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148580	148865	
==>P" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ], <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149520	149805	
==>P" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ], <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150461	150746	
==>P" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ], <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151438	151723	
==>P" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ], <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196778	196990	
==>P" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197674	197886	
==>P" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198571	198783	
==>P" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199468	199680	
==>P" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200364	200576	
==>P" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201261	201473	
==>P" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202158	202370	
==>P" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203088	203300	
==>P" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204019	204231	
==>P" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204950	205162	
==>P" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205892	206104	
==>P" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206833	207045	
==>P" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207775	207987	
==>P" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208715	208927	
==>P" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209656	209868	
==>P" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210635	210847	
==>P" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196556	196864	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197452	197760	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198349	198657	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199246	199554	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200142	200450	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201039	201347	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201936	202244	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202866	203174	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203797	204105	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204728	205036	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205670	205978	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206611	206919	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207553	207861	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208493	208801	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209434	209742	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210413	210721	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158599	158882	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159495	159778	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160392	160675	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161289	161572	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162185	162468	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163082	163365	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163979	164262	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164907	165190	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165836	166119	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166765	167048	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167703	167986	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168644	168927	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169586	169869	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170526	170809	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171467	171750	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172444	172727	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785557	785881	
==>{
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786467	786791	
==>{
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787378	787702	
==>{
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788287	788611	
==>{
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789197	789521	
==>{
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790106	790430	
==>{
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791016	791340	
==>{
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791922	792246	
==>{
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805482	805806	
==>{
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806387	806711	
==>{
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807293	807617	
==>{
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808197	808521	
==>{
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809102	809426	
==>{
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810006	810330	
==>{
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810911	811235	
==>{
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811812	812136	
==>{
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196782	197087	
==>> "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197678	197983	
==>> "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198575	198880	
==>> "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199472	199777	
==>> "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200368	200673	
==>> "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201265	201570	
==>> "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202162	202467	
==>> "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203092	203397	
==>> "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204023	204328	
==>> "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204954	205259	
==>> "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205896	206201	
==>> "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206837	207142	
==>> "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207779	208084	
==>> "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208719	209024	
==>> "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209660	209965	
==>> "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210639	210944	
==>> "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785587	785904	
==>0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786497	786814	
==>0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787408	787725	
==>0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788317	788634	
==>0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789227	789544	
==>0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790136	790453	
==>0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791046	791363	
==>0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791952	792269	
==>0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805512	805829	
==>0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806417	806734	
==>0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807323	807640	
==>0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808227	808544	
==>0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809132	809449	
==>0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810036	810353	
==>0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810941	811258	
==>0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811842	812159	
==>0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137623	137922	
==>MP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138518	138817	
==>MP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139414	139713	
==>MP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140310	140609	
==>MP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141205	141504	
==>MP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142101	142400	
==>MP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142997	143296	
==>MP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143924	144223	
==>MP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144852	145151	
==>MP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145780	146079	
==>MP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146715	147014	
==>MP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147655	147954	
==>MP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148596	148895	
==>MP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149536	149835	
==>MP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150477	150776	
==>MP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151454	151753	
==>MP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991082	991170	
==>"#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992219	992307	
==>"#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993356	993444	
==>"#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994494	994582	
==>"#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995631	995719	
==>"#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996769	996857	
==>"#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997907	997995	
==>"#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999046	999134	
==>"#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000183	1000271	
==>"#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001321	1001409	
==>"#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002459	1002547	
==>"#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003598	1003686	
==>"#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004736	1004824	
==>"#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005875	1005963	
==>"#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007014	1007102	
==>"#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008154	1008242	
==>"#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231274	231598	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLA <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232178	232502	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLA <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233082	233406	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLA <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233985	234309	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLA <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234889	235213	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLA <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235793	236117	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLA <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236674	236998	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLA <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237556	237880	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLA <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238438	238762	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLA <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	239331	239655	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLA <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240278	240602	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLA <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241226	241550	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLA <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242174	242498	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLA <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243123	243447	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLA <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244054	244378	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLA <==
16	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1924	2051	
==>ode->{type} = 'REAL'    if $node->{value} =~
                                 /^[-]?\d+\.(\d+([-+]?[eE]\d+)?)?/;
    $node->{typ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231282	231606	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232186	232510	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233090	233414	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233993	234317	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234897	235221	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235801	236125	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236682	237006	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237564	237888	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238446	238770	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	239339	239663	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240286	240610	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241234	241558	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242182	242506	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243131	243455	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244062	244386	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => " <==
16	/Users/nnunley/parrot/config/inter/libparrot.pm	834	940	
==>>data->get('parrot_is_shared'),
            $parrot_is_shared);

    $parrot_is_shared = 0 unless $conf- <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973025	973128	
==>.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974154	974257	
==>.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975283	975386	
==>.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976413	976516	
==>.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977542	977645	
==>.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978672	978775	
==>.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979802	979905	
==>.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980933	981036	
==>.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982062	982165	
==>.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983192	983295	
==>.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984322	984425	
==>.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985453	985556	
==>.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986583	986686	
==>.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987714	987817	
==>.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988845	988948	
==>.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989977	990080	
==>.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n  {{+=6 <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	972213	972438	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973341	973566	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974470	974695	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975599	975824	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976729	976954	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977858	978083	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978988	979213	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980118	980343	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981249	981474	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982378	982603	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983508	983733	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984638	984863	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985769	985994	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986899	987124	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988030	988255	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989161	989386	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	972264	972474	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973392	973602	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974521	974731	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975650	975860	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976780	976990	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977909	978119	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979039	979249	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980169	980379	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981300	981510	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982429	982639	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983559	983769	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984689	984899	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985820	986030	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986950	987160	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988081	988291	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989212	989422	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	972292	972626	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973420	973754	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974549	974883	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975678	976012	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976808	977142	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977937	978271	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979067	979401	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980197	980531	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981328	981662	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982457	982791	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983587	983921	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984717	985051	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985848	986182	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986978	987312	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988109	988443	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989240	989574	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196725	196879	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_co <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197621	197775	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_co <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198518	198672	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_co <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199415	199569	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_co <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200311	200465	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_co <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201208	201362	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_co <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202105	202259	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_co <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203035	203189	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_co <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203966	204120	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_co <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204897	205051	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_co <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205839	205993	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_co <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206780	206934	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_co <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207722	207876	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_co <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208662	208816	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_co <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209603	209757	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_co <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210582	210736	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_co <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180008	180192	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180903	181087	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181799	181983	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182695	182879	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183590	183774	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184486	184670	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185382	185566	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186311	186495	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187241	187425	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188171	188355	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189112	189296	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190052	190236	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190993	191177	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191932	192116	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192872	193056	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193850	194034	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158768	158922	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_co <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159664	159818	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_co <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160561	160715	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_co <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161458	161612	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_co <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162354	162508	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_co <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163251	163405	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_co <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164148	164302	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_co <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165076	165230	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_co <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166005	166159	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_co <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166934	167088	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_co <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167872	168026	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_co <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168813	168967	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_co <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169755	169909	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_co <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170695	170849	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_co <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171636	171790	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_co <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172613	172767	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_co <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991109	991195	
==>.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992246	992332	
==>.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993383	993469	
==>.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994521	994607	
==>.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995658	995744	
==>.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996796	996882	
==>.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997934	998020	
==>.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999073	999159	
==>.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000210	1000296	
==>.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001348	1001434	
==>.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002486	1002572	
==>.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003625	1003711	
==>.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004763	1004849	
==>.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005902	1005988	
==>.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007041	1007127	
==>.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008181	1008267	
==>.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578702	578946	
==>JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580006	580250	
==>JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581311	581555	
==>JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582616	582860	
==>JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586071	586315	
==>JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587256	587500	
==>JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588442	588686	
==>JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589628	589872	
==>JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590815	591059	
==>JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592024	592268	
==>JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593234	593478	
==>JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594444	594688	
==>JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72669	72756	
==>lsym(PMC_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_cstring_free <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74271	74358	
==>lsym(PMC_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_cstring_free <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75873	75960	
==>lsym(PMC_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_cstring_free <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77476	77563	
==>lsym(PMC_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_cstring_free <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196727	196882	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197623	197778	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198520	198675	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199417	199572	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200313	200468	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201210	201365	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202107	202262	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203037	203192	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203968	204123	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204899	205054	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205841	205996	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206782	206937	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207724	207879	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208664	208819	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209605	209760	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210584	210739	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158770	158924	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159666	159820	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160563	160717	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161460	161614	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162356	162510	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163253	163407	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164150	164304	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165078	165232	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166007	166161	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166936	167090	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167874	168028	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168815	168969	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169757	169911	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170697	170851	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171638	171792	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172615	172769	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179839	180152	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180734	181047	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181630	181943	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182526	182839	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183421	183734	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184317	184630	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185213	185526	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186142	186455	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187072	187385	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188002	188315	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188943	189256	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189883	190196	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190824	191137	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191763	192076	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192703	193016	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193681	193994	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	524795	525047	
==>((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	525548	525800	
==>((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527072	527324	
==>((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527825	528077	
==>((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	531221	531473	
==>((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	531974	532226	
==>((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	532725	532977	
==>((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	533475	533727	
==>((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	534230	534482	
==>((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	535798	536050	
==>((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	536567	536819	
==>((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	537318	537570	
==>((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	538071	538323	
==>((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	538822	539074	
==>((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539575	539827	
==>((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
16	/Users/nnunley/parrot/lib/Text/Balanced.pm	36898	36988	
==>act_codeblock">.


=head2 C<extract_tagged>

C<extract_tagged> extracts and segments text b <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973156	973524	
==>LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974285	974653	
==>LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975414	975782	
==>LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976544	976912	
==>LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977673	978041	
==>LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978803	979171	
==>LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979933	980301	
==>LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981064	981432	
==>LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982193	982561	
==>LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983323	983691	
==>LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984453	984821	
==>LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985584	985952	
==>LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986714	987082	
==>LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987845	988213	
==>LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAG <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988976	989344	
==>LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAG <==
16	/Users/nnunley/parrot/Configure.pl	5284	5401	
==>ose for step matching description
   --nomanicheck        Don't check the MANIFEST
   --prefix             Set the ins <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067252	1067574	
==>{{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068438	1068760	
==>{{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069624	1069946	
==>{{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070811	1071133	
==>{{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080615	1080937	
==>{{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081680	1082002	
==>{{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082745	1083067	
==>{{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083811	1084133	
==>{{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088970	1089292	
==>{{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089918	1090240	
==>{{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099399	1099721	
==>{{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100597	1100919	
==>{{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101795	1102117	
==>{{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102994	1103316	
==>{{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104208	1104530	
==>{{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105423	1105745	
==>{{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231288	231611	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232192	232515	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233096	233419	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233999	234322	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234903	235226	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235807	236130	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236688	237011	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237570	237893	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238452	238775	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	239345	239668	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240292	240615	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241240	241563	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242188	242511	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243137	243460	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244068	244391	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base <==
16	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3391	3485	
==>shift;
	my $suffix = shift;
	
	return $type_for_suffix{$suffix} if exists $type_for_suffix{$suf <==
16	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	37416	37522	
==>tring=?'      => \&_op_string_eq_p,
  'string<?'      => \&_op_string_lt_p,
  'string>?'      => \&_op_stri <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	972270	972513	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973398	973641	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974527	974770	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975656	975899	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976786	977029	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977915	978158	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979045	979288	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980175	980418	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981306	981549	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982435	982678	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983565	983808	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984695	984938	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985826	986069	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986956	987199	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988087	988330	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989218	989461	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137604	137783	
==>JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138499	138678	
==>JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139395	139574	
==>JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140291	140470	
==>JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141186	141365	
==>JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142082	142261	
==>JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142978	143157	
==>JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143905	144084	
==>JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144833	145012	
==>JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145761	145940	
==>JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146696	146875	
==>JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147636	147815	
==>JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148577	148756	
==>JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149517	149696	
==>JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150458	150637	
==>JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151435	151614	
==>JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991075	991166	
==>DY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpre <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992212	992303	
==>DY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpre <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993349	993440	
==>DY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpre <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994487	994578	
==>DY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpre <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995624	995715	
==>DY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpre <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996762	996853	
==>DY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpre <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997900	997991	
==>DY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpre <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999039	999130	
==>DY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpre <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000176	1000267	
==>DY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpre <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001314	1001405	
==>DY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpre <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002452	1002543	
==>DY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpre <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003591	1003682	
==>DY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpre <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004729	1004820	
==>DY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpre <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005868	1005959	
==>DY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpre <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007007	1007098	
==>DY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpre <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008147	1008238	
==>DY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpre <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	230630	230955	
==>P" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231533	231858	
==>P" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232437	232762	
==>P" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233341	233666	
==>P" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234244	234569	
==>P" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235148	235473	
==>P" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236052	236377	
==>P" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236933	237258	
==>P" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237815	238140	
==>P" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238697	239022	
==>P" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	239590	239915	
==>P" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240537	240862	
==>P" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241485	241810	
==>P" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242433	242758	
==>P" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243382	243707	
==>P" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244313	244638	
==>P" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	230628	230927	
==>UMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231531	231830	
==>UMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232435	232734	
==>UMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233339	233638	
==>UMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234242	234541	
==>UMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235146	235445	
==>UMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236050	236349	
==>UMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236931	237230	
==>UMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237813	238112	
==>UMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238695	238994	
==>UMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	239588	239887	
==>UMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240535	240834	
==>UMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241483	241782	
==>UMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242431	242730	
==>UMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243380	243679	
==>UMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244311	244610	
==>UMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196749	196954	
==>ess( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197645	197850	
==>ess( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198542	198747	
==>ess( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199439	199644	
==>ess( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200335	200540	
==>ess( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201232	201437	
==>ess( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202129	202334	
==>ess( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203059	203264	
==>ess( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203990	204195	
==>ess( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204921	205126	
==>ess( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205863	206068	
==>ess( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206804	207009	
==>ess( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207746	207951	
==>ess( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208686	208891	
==>ess( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209627	209832	
==>ess( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210606	210811	
==>ess( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i", <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991114	991201	
==>"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992251	992338	
==>"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993388	993475	
==>"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994526	994613	
==>"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995663	995750	
==>"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996801	996888	
==>"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997939	998026	
==>"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999078	999165	
==>"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000215	1000302	
==>"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001353	1001440	
==>"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002491	1002578	
==>"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003630	1003717	
==>"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004768	1004855	
==>"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005907	1005994	
==>"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007046	1007133	
==>"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008186	1008273	
==>"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991103	991193	
==>string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992240	992330	
==>string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993377	993467	
==>string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994515	994605	
==>string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995652	995742	
==>string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996790	996880	
==>string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997928	998018	
==>string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999067	999157	
==>string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000204	1000294	
==>string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001342	1001432	
==>string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002480	1002570	
==>string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003619	1003709	
==>string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004757	1004847	
==>string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005896	1005986	
==>string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007035	1007125	
==>string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008175	1008265	
==>string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973011	973100	
==>src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974140	974229	
==>src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975269	975358	
==>src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976399	976488	
==>src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977528	977617	
==>src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978658	978747	
==>src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979788	979877	
==>src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980919	981008	
==>src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982048	982137	
==>src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983178	983267	
==>src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984308	984397	
==>src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985439	985528	
==>src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986569	986658	
==>src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987700	987789	
==>src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988831	988920	
==>src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989963	990052	
==>src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(interpreter, {{\@2}}, {{\@3}}, <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578639	578781	
==>ess( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579943	580085	
==>ess( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581248	581390	
==>ess( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582553	582695	
==>ess( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583859	584001	
==>ess( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584933	585075	
==>ess( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586008	586150	
==>ess( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587193	587335	
==>ess( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588379	588521	
==>ess( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589565	589707	
==>ess( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590752	590894	
==>ess( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591961	592103	
==>ess( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593171	593313	
==>ess( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" = <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594381	594523	
==>ess( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" = <==
16	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10829	10938	
==>ft;
        ref($class)
    and $class=ref($class);

    my($self)=$class->SUPER::new( yyversion => '1.05' <==
16	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11829	11934	
==>ft;
        ref($class)
    and $class=ref($class);

    my($self)=$class->SUPER::new( yyversion => '1.05' <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354105	354363	
==>i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 413,
                  "ARGS" => [
                              "sc"
                            ],
                  "BODY" => "#line 200 \"src/ops/io.o <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773456	773713	
==>eyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774366	774623	
==>eyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775276	775533	
==>eyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776187	776444	
==>eyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777095	777352	
==>eyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778004	778261	
==>eyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778913	779170	
==>eyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779823	780080	
==>eyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780731	780988	
==>eyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781640	781897	
==>eyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782549	782806	
==>eyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783459	783716	
==>eyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784364	784621	
==>eyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785270	785527	
==>eyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768104	768278	
==>i",
                              "sc"
                            ],
                  "BODY" => "#line 335 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTE <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196599	196869	
==>0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197495	197765	
==>0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198392	198662	
==>0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199289	199559	
==>0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200185	200455	
==>0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201082	201352	
==>0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201979	202249	
==>0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202909	203179	
==>0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203840	204110	
==>0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204771	205041	
==>0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205713	205983	
==>0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206654	206924	
==>0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207596	207866	
==>0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208536	208806	
==>0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209477	209747	
==>0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210456	210726	
==>0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	972144	972433	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973272	973561	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974401	974690	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975530	975819	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976660	976949	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977789	978078	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978919	979208	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980049	980338	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981180	981469	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982309	982598	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983439	983728	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984569	984858	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985700	985989	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986830	987119	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987961	988250	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989092	989381	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	990354	990744	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991490	991880	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992627	993017	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993764	994154	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994902	995292	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996039	996429	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997177	997567	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	998315	998705	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999454	999844	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000591	1000981	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001729	1002119	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002867	1003257	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004006	1004396	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005144	1005534	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1006283	1006673	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007422	1007812	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	972354	972722	
==>" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973482	973850	
==>" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974611	974979	
==>" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975740	976108	
==>" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976870	977238	
==>" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977999	978367	
==>" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979129	979497	
==>" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980259	980627	
==>" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981390	981758	
==>" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982519	982887	
==>" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983649	984017	
==>" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984779	985147	
==>" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985910	986278	
==>" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987040	987408	
==>" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988171	988539	
==>" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989302	989670	
==>" => "find_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991096	991184	
==>rc/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992233	992321	
==>rc/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993370	993458	
==>rc/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994508	994596	
==>rc/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995645	995733	
==>rc/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996783	996871	
==>rc/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997921	998009	
==>rc/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999060	999148	
==>rc/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000197	1000285	
==>rc/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001335	1001423	
==>rc/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002473	1002561	
==>rc/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003612	1003700	
==>rc/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004750	1004838	
==>rc/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005889	1005977	
==>rc/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007028	1007116	
==>rc/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008168	1008256	
==>rc/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991087	991173	
==>e 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992224	992310	
==>e 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993361	993447	
==>e 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994499	994585	
==>e 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995636	995722	
==>e 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996774	996860	
==>e 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997912	997998	
==>e 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999051	999137	
==>e 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000188	1000274	
==>e 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001326	1001412	
==>e 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002464	1002550	
==>e 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003603	1003689	
==>e 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004741	1004827	
==>e 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005880	1005966	
==>e 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007019	1007105	
==>e 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008159	1008245	
==>e 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137618	137913	
==>OT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138513	138808	
==>OT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139409	139704	
==>OT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140305	140600	
==>OT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141200	141495	
==>OT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142096	142391	
==>OT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142992	143287	
==>OT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143919	144214	
==>OT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144847	145142	
==>OT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145775	146070	
==>OT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146710	147005	
==>OT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147650	147945	
==>OT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148591	148886	
==>OT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149531	149826	
==>OT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150472	150767	
==>OT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151449	151744	
==>OT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973129	973498	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974258	974627	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975387	975756	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976517	976886	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977646	978015	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978776	979145	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979906	980275	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981037	981406	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982166	982535	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983296	983665	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984426	984795	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985557	985926	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986687	987056	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987818	988187	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988949	989318	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass <==
16	/Users/nnunley/parrot/config/inter/libparrot.pm	109	206	
==>5.110975Z coke  $

=head1 NAME

config/inter/libparrot.pm - Determines build information for l <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991090	991178	
==>36 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992227	992315	
==>36 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993364	993452	
==>36 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994502	994590	
==>36 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995639	995727	
==>36 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996777	996865	
==>36 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997915	998003	
==>36 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999054	999142	
==>36 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000191	1000279	
==>36 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001329	1001417	
==>36 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002467	1002555	
==>36 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003606	1003694	
==>36 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004744	1004832	
==>36 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005883	1005971	
==>36 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007022	1007110	
==>36 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008162	1008250	
==>36 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}} <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785609	785912	
==>NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786519	786822	
==>NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787430	787733	
==>NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788339	788642	
==>NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789249	789552	
==>NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790158	790461	
==>NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791068	791371	
==>NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791974	792277	
==>NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805534	805837	
==>NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806439	806742	
==>NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807345	807648	
==>NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808249	808552	
==>NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809154	809457	
==>NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810058	810361	
==>NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810963	811266	
==>NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811864	812167	
==>NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991111	991199	
==>ps\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, { <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992248	992336	
==>ps\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, { <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993385	993473	
==>ps\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, { <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994523	994611	
==>ps\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, { <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995660	995748	
==>ps\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, { <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996798	996886	
==>ps\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, { <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997936	998024	
==>ps\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, { <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999075	999163	
==>ps\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, { <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000212	1000300	
==>ps\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, { <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001350	1001438	
==>ps\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, { <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002488	1002576	
==>ps\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, { <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003627	1003715	
==>ps\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, { <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004765	1004853	
==>ps\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, { <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005904	1005992	
==>ps\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, { <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007043	1007131	
==>ps\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, { <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008183	1008271	
==>ps\"\n  {{\@1}} = Parrot_string_find_not_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, { <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	990079	990517	
==>=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991215	991653	
==>=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992352	992790	
==>=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993489	993927	
==>=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994627	995065	
==>=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995764	996202	
==>=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996902	997340	
==>=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	998040	998478	
==>=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999179	999617	
==>=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000316	1000754	
==>=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001454	1001892	
==>=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002592	1003030	
==>=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003731	1004169	
==>=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004869	1005307	
==>=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1006008	1006446	
==>=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007147	1007585	
==>=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_not_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24039	24286	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NA <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549215	549462	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NA <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550515	550762	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NA <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551816	552063	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NA <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553007	553254	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NA <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558420	558667	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NA <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559804	560051	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NA <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561025	561272	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NA <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578488	578735	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NA <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584782	585029	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NA <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585857	586104	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NA <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598272	598519	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NA <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599319	599566	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NA <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600394	600641	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NA <==
16	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11929	12031	
==>in(",", map {$_->[0]} (reverse @args));
			$pir_args = ",$pir_args" if $pir_args;
			$extern=$sym;
			$ <==
16	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	12339	12441	
==>in(",", map {$_->[0]} (reverse @args));
			$pir_args = ",$pir_args" if $pir_args;
			$extern=$sym;
			$ <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158830	159136	
==>RROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159726	160032	
==>RROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160623	160929	
==>RROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161520	161826	
==>RROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162416	162722	
==>RROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163313	163619	
==>RROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164210	164516	
==>RROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165138	165444	
==>RROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166067	166373	
==>RROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166996	167302	
==>RROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167934	168240	
==>RROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168875	169181	
==>RROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169817	170123	
==>RROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170757	171063	
==>RROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171698	172004	
==>RROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
16	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172675	172981	
==>RROT_JUMP_RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138204	138475	
==>== {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139100	139371	
==>== {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139996	140267	
==>== {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140891	141162	
==>== {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141787	142058	
==>== {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142683	142954	
==>== {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147341	147612	
==>== {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148282	148553	
==>== {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149222	149493	
==>== {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150163	150434	
==>== {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154907	155178	
==>== {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155811	156082	
==>== {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156715	156986	
==>== {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157620	157891	
==>== {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158523	158794	
==>== {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578664	578787	
==>"JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":ob <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579968	580091	
==>"JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":ob <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581273	581396	
==>"JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":ob <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582578	582701	
==>"JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":ob <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583884	584007	
==>"JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":ob <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584958	585081	
==>"JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":ob <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586033	586156	
==>"JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":ob <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587218	587341	
==>"JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":ob <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588404	588527	
==>"JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":ob <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589590	589713	
==>"JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":ob <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590777	590900	
==>"JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":ob <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591986	592109	
==>"JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":ob <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593196	593319	
==>"JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":ob <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594406	594529	
==>"JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":ob <==
15	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	6173	6279	
==>sub _contains($@)
{
	my $target = shift;
	my $item;
	foreach $item ( @_ ) { return 1 if $target eq $item; } <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3378	3469	
==>EMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4232	4323	
==>EMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5140	5231	
==>EMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8052	8143	
==>EMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8909	9000	
==>EMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11817	11908	
==>EMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2125	2216	
==>EMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2648	2739	
==>EMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3377	3468	
==>EMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6006	6097	
==>EMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6564	6655	
==>EMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8880	8971	
==>EMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1431	1522	
==>EMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1958	2049	
==>EMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3141	3232	
==>EMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = <==
15	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	2629	2739	
==>cal pmc regex_sub
    .local pmc result
    .local int matched
    .local pmc stack
    stack = new .ResizableP <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761406	761509	
==>s\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762259	762362	
==>s\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763111	763214	
==>s\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763964	764067	
==>s\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764817	764920	
==>s\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765671	765774	
==>s\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766523	766626	
==>s\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767376	767479	
==>s\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768229	768332	
==>s\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769083	769186	
==>s\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769935	770038	
==>s\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770788	770891	
==>s\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771641	771744	
==>s\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772495	772598	
==>s\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\ <==
15	/Users/nnunley/parrot/tools/build/c2str.pl	3923	4013	
==>ne CONCAT(a,b) a##b
#define _S(name) (__PARROT_STATIC_STR(__LINE__))
#define __PARROT_STATI <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973130	973499	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974259	974628	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975388	975757	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976518	976887	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977647	978016	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978777	979146	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979907	980276	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981038	981407	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982167	982536	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983297	983666	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984427	984796	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985558	985927	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986688	987057	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987819	988188	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988950	989319	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass" <==
15	/Users/nnunley/parrot/lib/Parrot/Config.pm	442	599	
==>devel',
             'HAS_C99_SNPRINTF' => 1,
             'HAS_GMP' => 1,
             'HAS_READLINE' => 1,
             'HAS_SNPRINTF' => 1,
             'H <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578669	578792	
==>" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579973	580096	
==>" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581278	581401	
==>" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582583	582706	
==>" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583889	584012	
==>" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584963	585086	
==>" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586038	586161	
==>" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587223	587346	
==>" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588409	588532	
==>" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589595	589718	
==>" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590782	590905	
==>" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591991	592114	
==>" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593201	593324	
==>" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594411	594534	
==>" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_ <==
15	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	860	963	
==>my ($meth, $section) = @_;

    warn "no $meth\n" unless $section;
    return exists $writes{$section} | <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761399	761501	
==>/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register acc <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762252	762354	
==>/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register acc <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763104	763206	
==>/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register acc <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763957	764059	
==>/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register acc <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764810	764912	
==>/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register acc <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765664	765766	
==>/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register acc <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766516	766618	
==>/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register acc <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767369	767471	
==>/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register acc <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768222	768324	
==>/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register acc <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769076	769178	
==>/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register acc <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769928	770030	
==>/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register acc <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770781	770883	
==>/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register acc <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771634	771736	
==>/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register acc <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772488	772590	
==>/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register acc <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773458	773715	
==>ed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774368	774625	
==>ed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775278	775535	
==>ed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776189	776446	
==>ed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777097	777354	
==>ed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778006	778263	
==>ed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778915	779172	
==>ed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779825	780082	
==>ed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780733	780990	
==>ed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781642	781899	
==>ed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782551	782808	
==>ed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783461	783718	
==>ed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784366	784623	
==>ed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785272	785529	
==>ed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	371504	371592	
==>ta(pio);\n    if (!io)\n\treal_exception(interpreter, NULL, PIO_ERROR,\n\t\t\"Cannot read <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761526	761801	
==>@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762379	762654	
==>@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763231	763506	
==>@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764084	764359	
==>@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764937	765212	
==>@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765791	766066	
==>@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766643	766918	
==>@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767496	767771	
==>@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768349	768624	
==>@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769203	769478	
==>@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770055	770330	
==>@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770908	771183	
==>@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771761	772036	
==>@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772615	772890	
==>@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
15	/Users/nnunley/parrot/lib/Parrot/PMC.pm	828	930	
==>> 35,
	SharedRef => 36,
	Array => 37,
	FixedIntegerArray => 38,
	IntList => 39,
	Iterator => 40,
	SArra <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	626498	626790	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627641	627933	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628785	629077	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631827	632119	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632868	633160	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633910	634202	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635027	635319	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636145	636437	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637263	637555	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079737	1080029	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080801	1081093	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081866	1082158	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082931	1083223	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103180	1103472	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104394	1104686	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231283	231608	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":b <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232187	232512	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":b <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233091	233416	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":b <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233994	234319	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":b <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234898	235223	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":b <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235802	236127	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":b <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236683	237008	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":b <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237565	237890	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":b <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238447	238772	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":b <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	239340	239665	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":b <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240287	240612	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":b <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241235	241560	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":b <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242183	242508	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":b <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243132	243457	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":b <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244063	244388	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":b <==
15	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6795	6956	
==>tart_element({
        Name       => 'sub',
        Attributes => {
          name  => $name,
          type  => $type,
          kind  => 'fn',
          fnlib = <==
15	/Users/nnunley/parrot/config/auto/aio.pm	307	399	
==>s);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$desc <==
15	/Users/nnunley/parrot/config/auto/cgoto.pm	330	422	
==>s);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$desc <==
15	/Users/nnunley/parrot/config/auto/env.pm	331	423	
==>s);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$desc <==
15	/Users/nnunley/parrot/config/auto/funcptr.pm	343	435	
==>s);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$desc <==
15	/Users/nnunley/parrot/config/auto/gc.pm	683	775	
==>s);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$desc <==
15	/Users/nnunley/parrot/config/auto/gcc.pm	317	409	
==>s);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$desc <==
15	/Users/nnunley/parrot/config/auto/inline.pm	333	425	
==>s);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$desc <==
15	/Users/nnunley/parrot/config/auto/isreg.pm	313	405	
==>s);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$desc <==
15	/Users/nnunley/parrot/config/auto/memalign.pm	332	424	
==>s);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$desc <==
15	/Users/nnunley/parrot/config/auto/msvc.pm	337	429	
==>s);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$desc <==
15	/Users/nnunley/parrot/config/auto/python.pm	394	486	
==>s);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$desc <==
15	/Users/nnunley/parrot/config/auto/signal.pm	295	387	
==>s);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$desc <==
15	/Users/nnunley/parrot/config/auto/sizes.pm	311	403	
==>s);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$desc <==
15	/Users/nnunley/parrot/config/auto/va_ptr.pm	338	430	
==>s);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$desc <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973124	973494	
==>{{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cc <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974253	974623	
==>{{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cc <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975382	975752	
==>{{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cc <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976512	976882	
==>{{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cc <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977641	978011	
==>{{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cc <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978771	979141	
==>{{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cc <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979901	980271	
==>{{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cc <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981032	981402	
==>{{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cc <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982161	982531	
==>{{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cc <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983291	983661	
==>{{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cc <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984421	984791	
==>{{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cc <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985552	985922	
==>{{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cc <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986682	987052	
==>{{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cc <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987813	988183	
==>{{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cc <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988944	989314	
==>{{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cc <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	425501	425724	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426387	426610	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427274	427497	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428160	428383	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429047	429270	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429933	430156	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430820	431043	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431706	431929	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432720	432943	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433735	433958	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434749	434972	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435764	435987	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436778	437001	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437793	438016	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
15	/Users/nnunley/parrot/lib/Parrot/Config.pm	10187	10271	
==>b.pmc closure.pmc continuation.pmc retcontinuation.pmc exception_handler.pmc coroutin <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231308	231615	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_cor <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232212	232519	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_cor <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233116	233423	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_cor <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234019	234326	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_cor <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234923	235230	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_cor <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235827	236134	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_cor <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236708	237015	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_cor <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237590	237897	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_cor <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238472	238779	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_cor <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	239365	239672	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_cor <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240312	240619	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_cor <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241260	241567	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_cor <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242208	242515	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_cor <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243157	243464	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_cor <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244088	244395	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_cor <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578690	578831	
==>RESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579994	580135	
==>RESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581299	581440	
==>RESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582604	582745	
==>RESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583910	584051	
==>RESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584984	585125	
==>RESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586059	586200	
==>RESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587244	587385	
==>RESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588430	588571	
==>RESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589616	589757	
==>RESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590803	590944	
==>RESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592012	592153	
==>RESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593222	593363	
==>RESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594432	594573	
==>RESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" = <==
15	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1534	1643	
==>new
{
  my $class = shift;

  my $root = Jako::Construct::Block::File->new(
    undef,  # No parent
    'file' <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159419	159690	
==>!= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160316	160587	
==>!= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161213	161484	
==>!= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162109	162380	
==>!= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163006	163277	
==>!= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163903	164174	
==>!= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168568	168839	
==>!= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169510	169781	
==>!= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170450	170721	
==>!= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171391	171662	
==>!= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176147	176418	
==>!= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177051	177322	
==>!= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177955	178226	
==>!= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178860	179131	
==>!= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179763	180034	
==>!= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	425558	425767	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426444	426653	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427331	427540	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428217	428426	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429104	429313	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429990	430199	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430877	431086	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431763	431972	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432777	432986	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433792	434001	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434806	435015	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435821	436030	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436835	437044	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437850	438059	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i" <==
15	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10293	10395	
==>ock.

=cut

sub content
{
  my $self = shift; # Required: Jako::Construct::Block

  confess "No block!" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973157	973528	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974286	974657	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975415	975786	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976545	976916	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977674	978045	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978804	979175	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979934	980305	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981065	981436	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982194	982565	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983324	983695	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984454	984825	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985585	985956	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986715	987086	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987846	988217	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988977	989348	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913063	913404	
==>@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "i <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914074	914415	
==>@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "i <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915085	915426	
==>@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "i <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916097	916438	
==>@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "i <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917108	917449	
==>@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "i <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918120	918461	
==>@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "i <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919132	919473	
==>@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "i <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908467	908806	
==>@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "i <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964960	965299	
==>@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "i <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965968	966307	
==>@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "i <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966976	967315	
==>@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "i <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967985	968324	
==>@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "i <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968993	969332	
==>@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "i <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970002	970341	
==>@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "i <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971011	971350	
==>@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "i <==
15	/Users/nnunley/parrot/lib/Pod/Simple.pm	11270	11355	
==>eturn;
}


#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
15	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	46897	46982	
==>eturn;
}


#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
15	/Users/nnunley/parrot/lib/Pod/Simple.pm	5864	5948	
==>eturn;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
15	/Users/nnunley/parrot/lib/Pod/Simple.pm	8912	8996	
==>eturn;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
15	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41490	41574	
==>eturn;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
15	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	52545	52629	
==>eturn;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
15	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3509	3593	
==>eturn;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
15	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2114	2198	
==>eturn;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
15	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2262	2346	
==>eturn;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
15	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	7136	7220	
==>eturn;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
15	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15529	15613	
==>eturn;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
15	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3039	3123	
==>eturn;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
15	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	754	838	
==>eturn;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
15	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2365	2449	
==>eturn;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
15	/Users/nnunley/parrot/lib/Pod/Simple.pm	7552	7635	
==>eturn
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836766	837025	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837498	837757	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838232	838491	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838964	839223	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42383	42601	
==>\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|P <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47090	47308	
==>\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|P <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47873	48091	
==>\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|P <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48680	48898	
==>\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|P <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49470	49688	
==>\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|P <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50280	50498	
==>\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|P <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51073	51291	
==>\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|P <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51873	52091	
==>\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|P <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934051	934158	
==>/ops/string.ops\"\n  {{\@1}} = string_downcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LAB <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934826	934933	
==>/ops/string.ops\"\n  {{\@1}} = string_downcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LAB <==
15	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	1629	1722	
==>nconst argument containing a branch offset or address

Argument direction is used to determine <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432526	432864	
==>{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433541	433879	
==>{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434555	434893	
==>{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435570	435908	
==>{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436584	436922	
==>{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437599	437937	
==>{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438613	438951	
==>{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439627	439965	
==>{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440642	440980	
==>{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441656	441994	
==>{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442671	443009	
==>{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443685	444023	
==>{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444700	445038	
==>{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	445714	446052	
==>{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
15	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33692	33790	
==>end code it generates.
		my $post_store = $srm->post_store($dest_reg);
		$pir .= "### post_store\n" <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3416	3507	
==>_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEM <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4270	4361	
==>_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEM <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5178	5269	
==>_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEM <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8090	8181	
==>_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEM <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8947	9038	
==>_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEM <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10451	10542	
==>_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEM <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11855	11946	
==>_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEM <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2163	2254	
==>_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEM <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2686	2777	
==>_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEM <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3415	3506	
==>_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEM <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5463	5554	
==>_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEM <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6044	6135	
==>_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEM <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6602	6693	
==>_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEM <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7835	7926	
==>_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEM <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8918	9009	
==>_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEM <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786187	786443	
==>_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787098	787354	
==>_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788007	788263	
==>_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788917	789173	
==>_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789826	790082	
==>_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790736	790992	
==>_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791642	791898	
==>_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792549	792805	
==>_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644086	644340	
==>_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644979	645233	
==>_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656476	656730	
==>_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657400	657654	
==>_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660158	660412	
==>_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661080	661334	
==>_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
15	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	534	653	
==>2 = %2
    $N1 = pow $N1, $N2
	%1 = $N1

END_PIR

    '\x{d7}' => [ 'Multiply', '%1 = %1 * %2' ],
    '\x{f7}' => [ 'Div <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692954	693296	
==>4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvt <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693954	694296	
==>4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvt <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694954	695296	
==>4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvt <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695955	696297	
==>4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvt <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696955	697297	
==>4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvt <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697956	698298	
==>4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvt <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698957	699299	
==>4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvt <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699959	700301	
==>4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvt <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700949	701291	
==>4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvt <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701940	702282	
==>4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvt <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702931	703273	
==>4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvt <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703923	704265	
==>4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvt <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704914	705256	
==>4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvt <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705906	706248	
==>4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvt <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706898	707240	
==>4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvt <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231273	231597	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FL <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232177	232501	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FL <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233081	233405	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FL <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233984	234308	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FL <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234888	235212	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FL <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235792	236116	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FL <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236673	236997	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FL <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237555	237879	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FL <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238437	238761	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FL <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	239330	239654	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FL <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240277	240601	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FL <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241225	241549	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FL <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242173	242497	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FL <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243122	243446	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FL <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244053	244377	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FL <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231287	231610	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":bas <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232191	232514	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":bas <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233095	233418	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":bas <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233998	234321	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":bas <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234902	235225	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":bas <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235806	236129	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":bas <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236687	237010	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":bas <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237569	237892	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":bas <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238451	238774	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":bas <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	239344	239667	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":bas <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240291	240614	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":bas <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241239	241562	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":bas <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242187	242510	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":bas <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243136	243459	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":bas <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244067	244390	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":bas <==
15	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	15070	15199	
==>$self->decl($classname, $method, 1);
            $sub_meth_decl =~ /(\w+)\(/;
            my $sub_meth_name = $1;
            my $ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761410	761518	
==>n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762263	762371	
==>n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763115	763223	
==>n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763968	764076	
==>n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764821	764929	
==>n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765675	765783	
==>n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766527	766635	
==>n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767380	767488	
==>n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768233	768341	
==>n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769087	769195	
==>n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769939	770047	
==>n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770792	770900	
==>n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771645	771753	
==>n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772499	772607	
==>n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_ <==
15	/Users/nnunley/parrot/lib/Test/Simple.pm	437	544	
==>=head1 SYNOPSIS

  use Test::Simple tests => 1;

  ok( $foo eq $bar, 'foo is bar' );


=head1 DESCRIPTION

* <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231313	231618	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core", <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232217	232522	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core", <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233121	233426	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core", <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234024	234329	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core", <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234928	235233	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core", <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235832	236137	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core", <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236713	237018	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core", <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237595	237900	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core", <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238477	238782	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core", <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	239370	239675	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core", <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240317	240622	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core", <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241265	241570	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core", <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242213	242518	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core", <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243162	243467	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core", <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244093	244398	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core", <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380373	380661	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIR <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381384	381672	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIR <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382396	382684	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIR <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383408	383696	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIR <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384421	384709	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIR <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385551	385839	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIR <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386682	386970	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIR <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387813	388101	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIR <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388945	389233	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIR <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390076	390364	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIR <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391208	391496	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIR <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392340	392628	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIR <==
15	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31891	32008	
==>ne, $out_name);
    }
    my $parameters = $method->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} <==
15	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33468	33585	
==>ne, $out_name);
    }
    my $parameters = $method->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} <==
15	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40525	40642	
==>ne, $out_name);
    }
    my $parameters = $method->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710171	710345	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIR <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711004	711178	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIR <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711838	712012	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIR <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712944	713118	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIR <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714051	714225	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIR <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714973	715147	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIR <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715896	716070	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIR <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717384	717558	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIR <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718315	718489	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIR <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719247	719421	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIR <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720446	720620	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIR <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721646	721820	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIR <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722674	722848	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIR <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723703	723877	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIR <==
15	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	13360	13456	
==>ds("string")` parameter to most of the functions is a way
to provide a comment that refers to ano <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973133	973523	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLA <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974262	974652	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLA <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975391	975781	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLA <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976521	976911	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLA <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977650	978040	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLA <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978780	979170	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLA <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979910	980300	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLA <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981041	981431	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLA <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982170	982560	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLA <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983300	983690	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLA <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984430	984820	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLA <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985561	985951	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLA <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986691	987081	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLA <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987822	988212	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLA <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988953	989343	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLA <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231318	231646	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232222	232550	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233126	233454	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234029	234357	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234933	235261	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235837	236165	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236718	237046	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237600	237928	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238482	238810	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	239375	239703	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240322	240650	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241270	241598	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242218	242546	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243167	243495	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244098	244426	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213334	213601	
==>0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214275	214542	
==>0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215215	215482	
==>0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216156	216423	
==>0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217095	217362	
==>0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218035	218302	
==>0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219013	219280	
==>0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350524	350785	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351185	351446	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351847	352108	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352504	352765	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353162	353423	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353906	354167	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354651	354912	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" = <==
15	/Users/nnunley/parrot/lib/Test/More.pm	7814	7913	
==>re testing for (beyond the name), but is() and
isnt() know what the test was and why it failed.  For <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578752	579048	
==>",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580056	580352	
==>",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581361	581657	
==>",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582666	582962	
==>",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586121	586417	
==>",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587306	587602	
==>",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588492	588788	
==>",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589678	589974	
==>",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590865	591161	
==>",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592074	592370	
==>",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593284	593580	
==>",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594494	594790	
==>",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614307	614603	
==>",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615457	615753	
==>",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
15	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	28102	28197	
==>enerate($node->{children}[1]);
  $self->_add_inst('',           'gt', [$return,0,"DONE_$label"]) <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3419	3510	
==>pe_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1} <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4273	4364	
==>pe_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1} <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5181	5272	
==>pe_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1} <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8093	8184	
==>pe_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1} <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8950	9041	
==>pe_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1} <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10454	10545	
==>pe_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1} <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11858	11949	
==>pe_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1} <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2166	2257	
==>pe_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1} <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2689	2780	
==>pe_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1} <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3418	3509	
==>pe_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1} <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5466	5557	
==>pe_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1} <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6047	6138	
==>pe_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1} <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6605	6696	
==>pe_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1} <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7838	7929	
==>pe_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1} <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8921	9012	
==>pe_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1} <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	617992	618274	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "pic_inli <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578667	578790	
==>MP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":objec <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579971	580094	
==>MP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":objec <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581276	581399	
==>MP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":objec <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582581	582704	
==>MP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":objec <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583887	584010	
==>MP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":objec <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584961	585084	
==>MP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":objec <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586036	586159	
==>MP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":objec <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587221	587344	
==>MP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":objec <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588407	588530	
==>MP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":objec <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589593	589716	
==>MP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":objec <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590780	590903	
==>MP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":objec <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591989	592112	
==>MP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":objec <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593199	593322	
==>MP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":objec <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594409	594532	
==>MP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":objec <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578672	578794	
==>> "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_cl <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579976	580098	
==>> "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_cl <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581281	581403	
==>> "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_cl <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582586	582708	
==>> "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_cl <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583892	584014	
==>> "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_cl <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584966	585088	
==>> "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_cl <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586041	586163	
==>> "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_cl <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587226	587348	
==>> "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_cl <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588412	588534	
==>> "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_cl <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589598	589720	
==>> "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_cl <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590785	590907	
==>> "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_cl <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591994	592116	
==>> "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_cl <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593204	593326	
==>> "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_cl <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594414	594536	
==>> "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_cl <==
15	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6422	6533	
==>int("At end: %<rx_pos> >= %<rx_len>?\n"),
            "goto $fail if <rx_pos> < <rx_len>; # at end?");
}

sub ou <==
15	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	22542	22656	
==>t MMD_init _temp_mmd_init[] = {
        $mmd_list
    };
    /*  Dynamic PMCs need the runtime type
	which is passe <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761396	761497	
==>ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762249	762350	
==>ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763101	763202	
==>ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763954	764055	
==>ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764807	764908	
==>ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765661	765762	
==>ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766513	766614	
==>ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767366	767467	
==>ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768219	768320	
==>ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769073	769174	
==>ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769925	770026	
==>ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770778	770879	
==>ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771631	771732	
==>ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772485	772586	
==>ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431854	432183	
==>nfix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432868	433197	
==>nfix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433883	434212	
==>nfix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434897	435226	
==>nfix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435912	436241	
==>nfix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436926	437255	
==>nfix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437941	438270	
==>nfix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438957	439286	
==>nfix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439971	440300	
==>nfix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440986	441315	
==>nfix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442000	442329	
==>nfix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443015	443344	
==>nfix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444029	444358	
==>nfix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	445044	445373	
==>nfix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
15	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	13842	13952	
==>ody =~ s/\bexpr\s+OFFSET\(\( (.*?) \)\)/{{^+$1}}/mg;
                      $body =~ s/\bexpr\s+ADDRESS\(\( (.*? <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3410	3504	
==>}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${S <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4264	4358	
==>}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${S <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5172	5266	
==>}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${S <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8084	8178	
==>}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${S <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8941	9035	
==>}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${S <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10445	10539	
==>}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${S <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11849	11943	
==>}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${S <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2157	2251	
==>}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${S <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2680	2774	
==>}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${S <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3409	3503	
==>}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${S <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5457	5551	
==>}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${S <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6038	6132	
==>}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${S <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6596	6690	
==>}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${S <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7829	7923	
==>}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${S <==
15	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8912	9006	
==>}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${S <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	425466	425721	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGD <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426352	426607	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGD <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427239	427494	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGD <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428125	428380	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGD <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429012	429267	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGD <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429898	430153	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGD <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430785	431040	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGD <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431671	431926	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGD <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432685	432940	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGD <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433700	433955	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGD <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434714	434969	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGD <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435729	435984	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGD <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436743	436998	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGD <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437758	438013	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGD <==
15	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	739	860	
==>ces {
    my ($self, $op) = @_;
    my @indices;
    for my $i (0..$#{ $op->{args} }) {
        my $arg = $op->{args}->[$i <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231277	231604	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232181	232508	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233085	233412	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233988	234315	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234892	235219	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235796	236123	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236677	237004	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237559	237886	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238441	238768	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	239334	239661	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240281	240608	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241229	241556	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242177	242504	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243126	243453	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244057	244384	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710177	710352	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711010	711185	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711844	712019	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712950	713125	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714057	714232	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714979	715154	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715902	716077	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717390	717565	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718321	718496	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719253	719428	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720452	720627	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721652	721827	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722680	722855	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [ <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723709	723884	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [ <==
15	/Users/nnunley/parrot/tools/build/nativecall.pl	19580	19678	
==>\nCAN_BUILD_CALL_FRAMES is enabled, this should not happen", 58, "ascii", 0);
#else
    ns = string <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973164	973556	
==>=> [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARG <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974293	974685	
==>=> [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARG <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975422	975814	
==>=> [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARG <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976552	976944	
==>=> [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARG <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977681	978073	
==>=> [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARG <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978811	979203	
==>=> [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARG <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979941	980333	
==>=> [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARG <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981072	981464	
==>=> [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARG <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982201	982593	
==>=> [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARG <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983331	983723	
==>=> [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARG <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984461	984853	
==>=> [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARG <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985592	985984	
==>=> [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARG <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986722	987114	
==>=> [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARG <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987853	988245	
==>=> [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARG <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988984	989376	
==>=> [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => "",
                  "ARG <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138280	138584	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139176	139480	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140072	140376	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140967	141271	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141863	142167	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142759	143063	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143686	143990	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144614	144918	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145542	145846	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146477	146781	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147417	147721	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148358	148662	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149298	149602	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150239	150543	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151216	151520	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578681	578821	
==>_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579985	580125	
==>_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581290	581430	
==>_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582595	582735	
==>_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583901	584041	
==>_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584975	585115	
==>_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586050	586190	
==>_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587235	587375	
==>_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588421	588561	
==>_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589607	589747	
==>_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590794	590934	
==>_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592003	592143	
==>_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593213	593353	
==>_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594423	594563	
==>_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  " <==
15	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	6106	6239	
==>d
           )
           (\x20{1,10})(?![\cm\cj\n]) # capture some spaces not at line-end
          /$1$2\n/gx     # and put a NL bef <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	524796	525069	
==>(FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	525549	525822	
==>(FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527073	527346	
==>(FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527826	528099	
==>(FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	531222	531495	
==>(FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	531975	532248	
==>(FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	532726	532999	
==>(FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	533476	533749	
==>(FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	534231	534504	
==>(FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	535799	536072	
==>(FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	536568	536841	
==>(FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	537319	537592	
==>(FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	538072	538345	
==>(FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	538823	539096	
==>(FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539576	539849	
==>(FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578615	578748	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subcl <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579919	580052	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subcl <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581224	581357	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subcl <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582529	582662	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subcl <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583835	583968	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subcl <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584909	585042	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subcl <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585984	586117	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subcl <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587169	587302	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subcl <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588355	588488	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subcl <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589541	589674	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subcl <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590728	590861	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subcl <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591937	592070	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subcl <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593147	593280	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subcl <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594357	594490	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subcl <==
15	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1894	1991	
==>fication of objects of this class;
they stringify to just the text content of the section,
such as <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761529	761806	
==>}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762382	762659	
==>}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763234	763511	
==>}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764087	764364	
==>}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764940	765217	
==>}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765794	766071	
==>}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766646	766923	
==>}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767499	767776	
==>}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768352	768629	
==>}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769206	769483	
==>}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770058	770335	
==>}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770911	771188	
==>}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771764	772041	
==>}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772618	772895	
==>}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
15	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	5857	5955	
==>l a matching symbol is found or the root block is
encountered without a match (in which case we ret <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24029	24263	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549205	549439	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550505	550739	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551806	552040	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552997	553231	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558410	558644	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559794	560028	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561015	561249	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578478	578712	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584772	585006	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585847	586081	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598262	598496	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599309	599543	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600384	600618	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT" <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1027374	1027607	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT <==
15	/Users/nnunley/parrot/languages/converter.pl	656	757	
==>{ "$item[1] : $item[3]" }

production	: terminal production
#		{[@item]}
		{ "$item[1] $item[2]" }
		| <==
15	/Users/nnunley/parrot/config/auto/aio.pm	313	403	
==>se base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$descript <==
15	/Users/nnunley/parrot/config/auto/cgoto.pm	336	426	
==>se base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$descript <==
15	/Users/nnunley/parrot/config/auto/env.pm	337	427	
==>se base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$descript <==
15	/Users/nnunley/parrot/config/auto/funcptr.pm	349	439	
==>se base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$descript <==
15	/Users/nnunley/parrot/config/auto/gc.pm	689	779	
==>se base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$descript <==
15	/Users/nnunley/parrot/config/auto/gcc.pm	323	413	
==>se base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$descript <==
15	/Users/nnunley/parrot/config/auto/inline.pm	339	429	
==>se base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$descript <==
15	/Users/nnunley/parrot/config/auto/isreg.pm	319	409	
==>se base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$descript <==
15	/Users/nnunley/parrot/config/auto/memalign.pm	338	428	
==>se base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$descript <==
15	/Users/nnunley/parrot/config/auto/msvc.pm	343	433	
==>se base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$descript <==
15	/Users/nnunley/parrot/config/auto/python.pm	400	490	
==>se base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$descript <==
15	/Users/nnunley/parrot/config/auto/signal.pm	301	391	
==>se base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$descript <==
15	/Users/nnunley/parrot/config/auto/sizes.pm	317	407	
==>se base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$descript <==
15	/Users/nnunley/parrot/config/auto/va_ptr.pm	344	434	
==>se base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$descript <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786190	786446	
==>yed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787101	787357	
==>yed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788010	788266	
==>yed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788920	789176	
==>yed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789829	790085	
==>yed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790739	790995	
==>yed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791645	791901	
==>yed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792552	792808	
==>yed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644089	644343	
==>yed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644982	645236	
==>yed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656479	656733	
==>yed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657403	657657	
==>yed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660161	660415	
==>yed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661083	661337	
==>yed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
15	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22409	22517	
==>title if $title =~ m<^\s*$>; # make sure it's contentful!
      last;

    } elsif ($pattern =~ m{<head(\d)>( <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	689700	689905	
==>\@1}} = {{\@2}}->vtable->getprops(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973127	973497	
==>=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclas <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974256	974626	
==>=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclas <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975385	975755	
==>=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclas <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976515	976885	
==>=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclas <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977644	978014	
==>=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclas <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978774	979144	
==>=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclas <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979904	980274	
==>=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclas <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981035	981405	
==>=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclas <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982164	982534	
==>=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclas <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983294	983664	
==>=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclas <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984424	984794	
==>=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclas <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985555	985925	
==>=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclas <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986685	987055	
==>=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclas <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987816	988186	
==>=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclas <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988947	989317	
==>=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclas <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138284	138596	
==>" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ": <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139180	139492	
==>" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ": <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140076	140388	
==>" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ": <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140971	141283	
==>" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ": <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141867	142179	
==>" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ": <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142763	143075	
==>" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ": <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143690	144002	
==>" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ": <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144618	144930	
==>" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ": <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145546	145858	
==>" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ": <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146481	146793	
==>" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ": <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147421	147733	
==>" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ": <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148362	148674	
==>" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ": <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149302	149614	
==>" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ": <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150243	150555	
==>" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ": <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151220	151532	
==>" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ": <==
15	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1927	2048	
==>->YYData->{lex_num} = 0;
##    warn "PushScopeF\n";
}

sub PopScopeF {
    my ($parser) = @_;

    my $lex_num = sh <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973161	973531	
==>S" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974290	974660	
==>S" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975419	975789	
==>S" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976549	976919	
==>S" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977678	978048	
==>S" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978808	979178	
==>S" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979938	980308	
==>S" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981069	981439	
==>S" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982198	982568	
==>S" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983328	983698	
==>S" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984458	984828	
==>S" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985589	985959	
==>S" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986719	987089	
==>S" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987850	988220	
==>S" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988981	989351	
==>S" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578693	578869	
==>S|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579997	580173	
==>S|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581302	581478	
==>S|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582607	582783	
==>S|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583913	584089	
==>S|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584987	585163	
==>S|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586062	586238	
==>S|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587247	587423	
==>S|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588433	588609	
==>S|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589619	589795	
==>S|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590806	590982	
==>S|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592015	592191	
==>S|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593225	593401	
==>S|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 " <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594435	594611	
==>S|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 " <==
15	/Users/nnunley/parrot/languages/python/pie-thon.pl	3027	3137	
==>arg_names, %func_info);

sub decode_line {
    my $l = shift;
    my ($pc, $line ,$opcode, $arg, $rest);
    if <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24003	24256	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549179	549432	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550479	550732	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551780	552033	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552971	553224	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558384	558637	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559768	560021	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560989	561242	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578452	578705	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584746	584999	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585821	586074	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598236	598489	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599283	599536	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600358	600611	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP <==
15	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1027348	1027601	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710152	710344	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDI <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710985	711177	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDI <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711819	712011	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDI <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712925	713117	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDI <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714032	714224	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDI <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714954	715146	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDI <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715877	716069	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDI <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717365	717557	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDI <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718296	718488	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDI <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719228	719420	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDI <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720427	720619	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDI <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721627	721819	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDI <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722655	722847	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDI <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723684	723876	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDI <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773459	773720	
==>d_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774369	774630	
==>d_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775279	775540	
==>d_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776190	776451	
==>d_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777098	777359	
==>d_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778007	778268	
==>d_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778916	779177	
==>d_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779826	780087	
==>d_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780734	780995	
==>d_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781643	781904	
==>d_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782552	782813	
==>d_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783462	783723	
==>d_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784367	784628	
==>d_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785273	785534	
==>d_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24041	24287	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAM <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549217	549463	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAM <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550517	550763	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAM <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551818	552064	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAM <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553009	553255	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAM <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558422	558668	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAM <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559806	560052	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAM <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561027	561273	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAM <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578490	578736	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAM <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584784	585030	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAM <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585859	586105	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAM <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598274	598520	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAM <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599321	599567	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAM <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600396	600642	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAM <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819075	819336	
==>"entrytype",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820034	820295	
==>"entrytype",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037167	1037377	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037947	1038157	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038728	1038938	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039619	1039829	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040511	1040721	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041403	1041613	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042296	1042506	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043192	1043402	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044089	1044299	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044982	1045192	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045876	1046086	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046770	1046980	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761397	761500	
==>ps/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register ac <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762250	762353	
==>ps/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register ac <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763102	763205	
==>ps/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register ac <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763955	764058	
==>ps/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register ac <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764808	764911	
==>ps/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register ac <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765662	765765	
==>ps/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register ac <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766514	766617	
==>ps/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register ac <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767367	767470	
==>ps/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register ac <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768220	768323	
==>ps/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register ac <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769074	769177	
==>ps/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register ac <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769926	770029	
==>ps/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register ac <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770779	770882	
==>ps/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register ac <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771632	771735	
==>ps/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register ac <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772486	772589	
==>ps/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register ac <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432523	432863	
==>, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433538	433878	
==>, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434552	434892	
==>, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435567	435907	
==>, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436581	436921	
==>, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437596	437936	
==>, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438610	438950	
==>, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439624	439964	
==>, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440639	440979	
==>, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441653	441993	
==>, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442668	443008	
==>, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443682	444022	
==>, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444697	445037	
==>, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	445711	446051	
==>, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
14	/Users/nnunley/parrot/config/auto/inline.pm	1238	1400	
==>sult('yes');
        } else {
            print " no " if $verbose;
            $self->set_result('no');
            $test   = '';
        }
    }

    $conf->data <==
14	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	5048	5160	
==>e
    if old_type != value_type goto print_space
    goto iter_loop
  print_space:
    result .= ' '
    goto ite <==
14	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	237	332	
==>30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block: <==
14	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	251	346	
==>30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block: <==
14	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	249	344	
==>30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block: <==
14	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	245	340	
==>30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block: <==
14	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	253	348	
==>30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block: <==
14	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	237	332	
==>30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block: <==
14	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	237	332	
==>30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block: <==
14	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	250	345	
==>30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block: <==
14	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	244	339	
==>30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block: <==
14	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	244	339	
==>30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block: <==
14	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	241	336	
==>30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block: <==
14	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	235	330	
==>30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block: <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522224	522356	
==>,
                  "BODY" => "#line 744 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABE <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523079	523211	
==>,
                  "BODY" => "#line 744 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABE <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523934	524066	
==>,
                  "BODY" => "#line 744 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABE <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138171	138286	
==>src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" = <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139067	139182	
==>src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" = <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139963	140078	
==>src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" = <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140858	140973	
==>src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" = <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141754	141869	
==>src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" = <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142650	142765	
==>src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" = <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154874	154989	
==>src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" = <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155778	155893	
==>src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" = <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156682	156797	
==>src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" = <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157587	157702	
==>src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" = <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158490	158605	
==>src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" = <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806111	806382	
==>_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807017	807288	
==>_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807921	808192	
==>_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808826	809097	
==>_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809730	810001	
==>_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810635	810906	
==>_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811536	811807	
==>_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812438	812709	
==>_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642310	642579	
==>_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643198	643467	
==>_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658322	658591	
==>_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659241	659510	
==>_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661999	662268	
==>_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662915	663184	
==>_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432527	432866	
==>\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433542	433881	
==>\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434556	434895	
==>\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435571	435910	
==>\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436585	436924	
==>\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437600	437939	
==>\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438614	438953	
==>\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439628	439967	
==>\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440643	440982	
==>\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441657	441996	
==>\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442672	443011	
==>\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443686	444025	
==>\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444701	445040	
==>\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	445715	446054	
==>\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578694	578909	
==>|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579998	580213	
==>|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581303	581518	
==>|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582608	582823	
==>|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583914	584129	
==>|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584988	585203	
==>|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586063	586278	
==>|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587248	587463	
==>|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588434	588649	
==>|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589620	589835	
==>|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590807	591022	
==>|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592016	592231	
==>|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593226	593441	
==>|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594436	594651	
==>|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761527	761804	
==>1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762380	762657	
==>1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763232	763509	
==>1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764085	764362	
==>1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764938	765215	
==>1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765792	766069	
==>1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766644	766921	
==>1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767497	767774	
==>1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768350	768627	
==>1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769204	769481	
==>1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770056	770333	
==>1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770909	771186	
==>1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771762	772039	
==>1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772616	772893	
==>1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786192	786462	
==>d_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787103	787373	
==>d_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788012	788282	
==>d_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788922	789192	
==>d_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789831	790101	
==>d_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790741	791011	
==>d_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791647	791917	
==>d_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792554	792824	
==>d_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644091	644359	
==>d_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644984	645252	
==>d_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656481	656749	
==>d_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657405	657673	
==>d_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660163	660431	
==>d_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661085	661353	
==>d_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088964	1089272	
==>\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089912	1090220	
==>\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099393	1099701	
==>\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100591	1100899	
==>\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101789	1102097	
==>\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102988	1103296	
==>\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067248	1067554	
==>\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068434	1068740	
==>\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069620	1069926	
==>\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070807	1071113	
==>\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080611	1080917	
==>\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081676	1081982	
==>\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082741	1083047	
==>\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083807	1084113	
==>\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578640	578786	
==>ss( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":o <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579944	580090	
==>ss( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":o <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581249	581395	
==>ss( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":o <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582554	582700	
==>ss( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":o <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583860	584006	
==>ss( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":o <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584934	585080	
==>ss( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":o <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586009	586155	
==>ss( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":o <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587194	587340	
==>ss( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":o <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588380	588526	
==>ss( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":o <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589566	589712	
==>ss( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":o <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590753	590899	
==>ss( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":o <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591962	592108	
==>ss( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":o <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593172	593318	
==>ss( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":o <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594382	594528	
==>ss( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":o <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761407	761516	
==>\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    RE <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762260	762369	
==>\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    RE <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763112	763221	
==>\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    RE <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763965	764074	
==>\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    RE <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764818	764927	
==>\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    RE <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765672	765781	
==>\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    RE <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766524	766633	
==>\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    RE <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767377	767486	
==>\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    RE <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768230	768339	
==>\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    RE <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769084	769193	
==>\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    RE <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769936	770045	
==>\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    RE <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770789	770898	
==>\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    RE <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771642	771751	
==>\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    RE <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772496	772605	
==>\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    RE <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773454	773712	
==>_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774364	774622	
==>_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775274	775532	
==>_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776185	776443	
==>_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777093	777351	
==>_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778002	778260	
==>_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778911	779169	
==>_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779821	780079	
==>_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780729	780987	
==>_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781638	781896	
==>_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782547	782805	
==>_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783457	783715	
==>_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784362	784620	
==>_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785268	785526	
==>_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793448	793709	
==>_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794353	794614	
==>_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795258	795519	
==>_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796164	796425	
==>_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797067	797328	
==>_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797971	798232	
==>_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798875	799136	
==>_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799780	800041	
==>_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800683	800944	
==>_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801587	801848	
==>_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802491	802752	
==>_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803396	803657	
==>_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804296	804557	
==>_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805197	805458	
==>_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578691	578834	
==>ESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [ <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579995	580138	
==>ESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [ <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581300	581443	
==>ESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [ <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582605	582748	
==>ESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [ <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583911	584054	
==>ESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [ <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584985	585128	
==>ESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [ <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586060	586203	
==>ESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [ <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587245	587388	
==>ESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [ <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588431	588574	
==>ESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [ <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589617	589760	
==>ESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [ <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590804	590947	
==>ESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [ <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592013	592156	
==>ESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [ <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593223	593366	
==>ESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [ <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594433	594576	
==>ESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [ <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578671	578793	
==>=> "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_c <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579975	580097	
==>=> "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_c <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581280	581402	
==>=> "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_c <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582585	582707	
==>=> "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_c <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583891	584013	
==>=> "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_c <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584965	585087	
==>=> "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_c <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586040	586162	
==>=> "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_c <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587225	587347	
==>=> "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_c <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588411	588533	
==>=> "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_c <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589597	589719	
==>=> "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_c <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590784	590906	
==>=> "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_c <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591993	592115	
==>=> "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_c <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593203	593325	
==>=> "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_c <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594413	594535	
==>=> "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_c <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710178	710389	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711011	711222	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711845	712056	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712951	713162	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714058	714269	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714980	715191	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715903	716114	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717391	717602	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718322	718533	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719254	719465	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720453	720664	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721653	721864	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722681	722892	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723710	723921	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459256	459553	
==>,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460243	460540	
==>,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461231	461528	
==>,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462219	462516	
==>,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463215	463512	
==>,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464212	464509	
==>,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93376	93648	
==>2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94156	94428	
==>2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101871	102143	
==>2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102642	102914	
==>2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109700	109972	
==>2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110479	110751	
==>2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133905	134177	
==>2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134686	134958	
==>2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494991	495243	
==>E" => 568,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 590 \"src/ops/math.ops\"\n  {{\@1}} = int <==
14	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	75612	75755	
==>$tracecontext
| ~~       |                                      |^<<<<<<<<<<<<<<<<<<<<<<<<<<<<
						   $tracecontext
.


select TRACECONTEXT;
$ <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579442	579528	
==>ter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580747	580833	
==>ter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582052	582138	
==>ter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583358	583444	
==>ter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584575	584661	
==>ter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585650	585736	
==>ter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586797	586883	
==>ter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587983	588069	
==>ter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589169	589255	
==>ter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590356	590442	
==>ter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598091	598177	
==>ter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599138	599224	
==>ter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761390	761491	
==>\"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound re <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762243	762344	
==>\"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound re <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763095	763196	
==>\"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound re <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763948	764049	
==>\"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound re <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764801	764902	
==>\"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound re <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765655	765756	
==>\"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound re <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766507	766608	
==>\"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound re <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767360	767461	
==>\"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound re <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768213	768314	
==>\"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound re <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769067	769168	
==>\"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound re <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769919	770020	
==>\"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound re <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770772	770873	
==>\"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound re <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771625	771726	
==>\"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound re <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772479	772580	
==>\"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound re <==
14	/Users/nnunley/parrot/tools/build/dynclasses.pl	2584	2707	
==>s/blib/..\\blib/g;
        $extraLibs =~ s/\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else {
        $libl <==
14	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2893	3016	
==>s/blib/..\\blib/g;
        $extraLibs =~ s/\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else {
        $libl <==
14	/Users/nnunley/parrot/tools/build/dynpmc.pl	2688	2811	
==>s/blib/..\\blib/g;
        $extraLibs =~ s/\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else {
        $libl <==
14	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13767	13863	
==>d to accumulate
the number of lines, C<$out_name> is the name of the output file we are
generatin <==
14	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16155	16251	
==>d to accumulate
the number of lines, C<$out_name> is the name of the output file we are
generatin <==
14	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29550	29646	
==>d to accumulate
the number of lines, C<$out_name> is the name of the output file we are
generatin <==
14	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30192	30288	
==>d to accumulate
the number of lines, C<$out_name> is the name of the output file we are
generatin <==
14	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31417	31513	
==>d to accumulate
the number of lines, C<$out_name> is the name of the output file we are
generatin <==
14	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33030	33126	
==>d to accumulate
the number of lines, C<$out_name> is the name of the output file we are
generatin <==
14	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34718	34814	
==>d to accumulate
the number of lines, C<$out_name> is the name of the output file we are
generatin <==
14	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36048	36144	
==>d to accumulate
the number of lines, C<$out_name> is the name of the output file we are
generatin <==
14	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37993	38089	
==>d to accumulate
the number of lines, C<$out_name> is the name of the output file we are
generatin <==
14	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40037	40133	
==>d to accumulate
the number of lines, C<$out_name> is the name of the output file we are
generatin <==
14	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	14393	14487	
==>nt CODE<<CASE_SETUP;
	goto CASE_${jump}_FIN
CASE_${jump}_${incase}:
	new P12, .PerlArray   # OR <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773457	773714	
==>yed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774367	774624	
==>yed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775277	775534	
==>yed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776188	776445	
==>yed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777096	777353	
==>yed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778005	778262	
==>yed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778914	779171	
==>yed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779824	780081	
==>yed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780732	780989	
==>yed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781641	781898	
==>yed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782550	782807	
==>yed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783460	783717	
==>yed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784365	784622	
==>yed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785271	785528	
==>yed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578668	578791	
==>P" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579972	580095	
==>P" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581277	581400	
==>P" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582582	582705	
==>P" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583888	584011	
==>P" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584962	585085	
==>P" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586037	586160	
==>P" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587222	587345	
==>P" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588408	588531	
==>P" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589594	589717	
==>P" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590781	590904	
==>P" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591990	592113	
==>P" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593200	593323	
==>P" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594410	594533	
==>P" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627606	627932	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628750	629076	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631792	632118	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632833	633159	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633875	634201	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634992	635318	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636110	636436	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637228	637554	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079702	1080028	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080766	1081092	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081831	1082157	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082896	1083222	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103145	1103471	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104359	1104685	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	425551	425766	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426437	426652	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427324	427539	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428210	428425	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429097	429312	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429983	430198	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430870	431085	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431756	431971	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432770	432985	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433785	434000	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434799	435014	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435814	436029	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436828	437043	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437843	438058	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
14	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	20034	20161	
==>MMD method
        if ($method->{mmd} =~ /MMD_/ && !$defaulted) {
            my ($func, $left, $right);
            $func = $me <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462822	462913	
==>.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\") <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463819	463910	
==>.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\") <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464816	464907	
==>.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\") <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469381	469472	
==>.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\") <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470256	470347	
==>.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\") <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474162	474253	
==>.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\") <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475153	475244	
==>.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\") <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476144	476235	
==>.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\") <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478854	478945	
==>.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\") <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479746	479837	
==>.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\") <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483717	483808	
==>.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\") <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484716	484807	
==>.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\") <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485715	485806	
==>.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\") <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578665	578789	
==>JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":obje <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579969	580093	
==>JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":obje <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581274	581398	
==>JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":obje <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582579	582703	
==>JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":obje <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583885	584009	
==>JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":obje <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584959	585083	
==>JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":obje <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586034	586158	
==>JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":obje <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587219	587343	
==>JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":obje <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588405	588529	
==>JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":obje <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589591	589715	
==>JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":obje <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590778	590902	
==>JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":obje <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591987	592111	
==>JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":obje <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593197	593321	
==>JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":obje <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594407	594531	
==>JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":obje <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138189	138453	
==>n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot: <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139085	139349	
==>n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot: <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139981	140245	
==>n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot: <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140876	141140	
==>n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot: <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141772	142036	
==>n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot: <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142668	142932	
==>n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot: <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154892	155156	
==>n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot: <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155796	156060	
==>n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot: <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156700	156964	
==>n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot: <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157605	157869	
==>n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot: <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158508	158772	
==>n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot: <==
14	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	524	613	
==>($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("D <==
14	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	515	604	
==>($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("D <==
14	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	404	493	
==>($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("D <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	425559	425803	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426445	426689	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427332	427576	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428218	428462	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429105	429349	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429991	430235	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430878	431122	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431764	432008	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432778	433022	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433793	434037	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434807	435051	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435822	436066	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436836	437080	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437851	438095	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870487	870818	
==>MP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871503	871834	
==>MP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872520	872851	
==>MP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873537	873868	
==>MP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874555	874886	
==>MP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875572	875903	
==>MP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876590	876921	
==>MP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877608	877939	
==>MP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904691	905022	
==>MP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905709	906040	
==>MP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906728	907059	
==>MP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907747	908078	
==>MP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
14	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	2764	2882	
==>options{arguments} })
    {
        # Someone specified tests for me to run.
        return grep { -f $_ } @{ $options{ <==
14	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	44395	44489	
==>LIT		= q{\G\s*"((\\\\["\\\\]|[^"])*)"};
my $SUBRULE		= '\G\s*(\w+)';
my $MATCHRULE		= '\G(\s*<m <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761530	761807	
==>) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762383	762660	
==>) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763235	763512	
==>) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764088	764365	
==>) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764941	765218	
==>) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765795	766072	
==>) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766647	766924	
==>) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767500	767777	
==>) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768353	768630	
==>) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769207	769484	
==>) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770059	770336	
==>) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770912	771189	
==>) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771765	772042	
==>) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772619	772896	
==>) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578682	578829	
==>JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579986	580133	
==>JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581291	581438	
==>JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582596	582743	
==>JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583902	584049	
==>JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584976	585123	
==>JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586051	586198	
==>JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587236	587383	
==>JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588422	588569	
==>JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589608	589755	
==>JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590795	590942	
==>JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592004	592151	
==>JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593214	593361	
==>JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594424	594571	
==>JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578753	579051	
==>,
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 6 <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580057	580355	
==>,
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 6 <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581362	581660	
==>,
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 6 <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582667	582965	
==>,
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 6 <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586122	586420	
==>,
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 6 <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587307	587605	
==>,
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 6 <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588493	588791	
==>,
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 6 <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589679	589977	
==>,
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 6 <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590866	591164	
==>,
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 6 <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592075	592373	
==>,
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 6 <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593285	593583	
==>,
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 6 <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594495	594793	
==>,
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 6 <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614308	614606	
==>,
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 6 <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615458	615756	
==>,
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 6 <==
14	/Users/nnunley/parrot/config/auto/aio.pm	316	410	
==>base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = ' <==
14	/Users/nnunley/parrot/config/auto/cgoto.pm	339	433	
==>base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = ' <==
14	/Users/nnunley/parrot/config/auto/env.pm	340	434	
==>base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = ' <==
14	/Users/nnunley/parrot/config/auto/funcptr.pm	352	446	
==>base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = ' <==
14	/Users/nnunley/parrot/config/auto/gc.pm	692	786	
==>base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = ' <==
14	/Users/nnunley/parrot/config/auto/gcc.pm	326	420	
==>base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = ' <==
14	/Users/nnunley/parrot/config/auto/inline.pm	342	436	
==>base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = ' <==
14	/Users/nnunley/parrot/config/auto/isreg.pm	322	416	
==>base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = ' <==
14	/Users/nnunley/parrot/config/auto/memalign.pm	341	435	
==>base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = ' <==
14	/Users/nnunley/parrot/config/auto/msvc.pm	346	440	
==>base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = ' <==
14	/Users/nnunley/parrot/config/auto/python.pm	403	497	
==>base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = ' <==
14	/Users/nnunley/parrot/config/auto/signal.pm	304	398	
==>base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = ' <==
14	/Users/nnunley/parrot/config/auto/sizes.pm	320	414	
==>base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = ' <==
14	/Users/nnunley/parrot/config/auto/va_ptr.pm	347	441	
==>base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = ' <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786188	786445	
==>keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787099	787356	
==>keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788008	788265	
==>keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788918	789175	
==>keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789827	790084	
==>keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790737	790994	
==>keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791643	791900	
==>keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792550	792807	
==>keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644087	644342	
==>keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644980	645235	
==>keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656477	656732	
==>keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657401	657656	
==>keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660159	660414	
==>keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661081	661336	
==>keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	425467	425722	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426353	426608	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427240	427495	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428126	428381	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429013	429268	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429899	430154	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430786	431041	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431672	431927	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432686	432941	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433701	433956	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434715	434970	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435730	435985	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436744	436999	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437759	438014	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
14	/Users/nnunley/parrot/config/auto/aio.pm	303	398	
==>@args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$des <==
14	/Users/nnunley/parrot/config/auto/cgoto.pm	326	421	
==>@args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$des <==
14	/Users/nnunley/parrot/config/auto/env.pm	327	422	
==>@args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$des <==
14	/Users/nnunley/parrot/config/auto/funcptr.pm	339	434	
==>@args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$des <==
14	/Users/nnunley/parrot/config/auto/gc.pm	679	774	
==>@args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$des <==
14	/Users/nnunley/parrot/config/auto/gcc.pm	313	408	
==>@args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$des <==
14	/Users/nnunley/parrot/config/auto/inline.pm	329	424	
==>@args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$des <==
14	/Users/nnunley/parrot/config/auto/isreg.pm	309	404	
==>@args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$des <==
14	/Users/nnunley/parrot/config/auto/memalign.pm	328	423	
==>@args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$des <==
14	/Users/nnunley/parrot/config/auto/msvc.pm	333	428	
==>@args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$des <==
14	/Users/nnunley/parrot/config/auto/python.pm	390	485	
==>@args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$des <==
14	/Users/nnunley/parrot/config/auto/signal.pm	291	386	
==>@args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$des <==
14	/Users/nnunley/parrot/config/auto/sizes.pm	307	402	
==>@args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$des <==
14	/Users/nnunley/parrot/config/auto/va_ptr.pm	334	429	
==>@args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$des <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761522	761800	
==>({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762375	762653	
==>({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763227	763505	
==>({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764080	764358	
==>({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764933	765211	
==>({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765787	766065	
==>({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766639	766917	
==>({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767492	767770	
==>({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768345	768623	
==>({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769199	769477	
==>({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770051	770329	
==>({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770904	771182	
==>({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771757	772035	
==>({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772611	772889	
==>({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631936	632254	
==>P" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632977	633295	
==>P" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634019	634337	
==>P" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635136	635454	
==>P" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636254	636572	
==>P" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637372	637690	
==>P" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079846	1080164	
==>P" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080910	1081228	
==>P" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081975	1082293	
==>P" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083040	1083358	
==>P" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103289	1103607	
==>P" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104503	1104821	
==>P" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650743	650990	
==>< enum_last_type)\n        {{\@1}} = 1;\n    else\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651665	651912	
==>< enum_last_type)\n        {{\@1}} = 1;\n    else\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431853	432182	
==>infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432867	433196	
==>infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433882	434211	
==>infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434896	435225	
==>infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435911	436240	
==>infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436925	437254	
==>infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437940	438269	
==>infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438956	439285	
==>infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439970	440299	
==>infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440985	441314	
==>infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441999	442328	
==>infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443014	443343	
==>infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444028	444357	
==>infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	445043	445372	
==>infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562031	562313	
==>{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579715	579997	
==>{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581020	581302	
==>{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582325	582607	
==>{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583631	583913	
==>{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586965	587247	
==>{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588151	588433	
==>{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589337	589619	
==>{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590524	590806	
==>{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591733	592015	
==>{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592943	593225	
==>{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594153	594435	
==>{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615113	615395	
==>{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS <==
14	/Users/nnunley/parrot/tools/build/pmc2c.pl	8624	8733	
==>gs and comments so that
    # unbalanced {} can be used in them in PMCs, being careful to
    # preserve strin <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	251422	251609	
==>{{\@2}}->vtable->i_logical_not(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, ' <==
14	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3372	3462	
==>.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${ST <==
14	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4226	4316	
==>.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${ST <==
14	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5134	5224	
==>.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${ST <==
14	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8046	8136	
==>.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${ST <==
14	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8903	8993	
==>.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${ST <==
14	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2119	2209	
==>.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${ST <==
14	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2642	2732	
==>.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${ST <==
14	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3371	3461	
==>.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${ST <==
14	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6000	6090	
==>.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${ST <==
14	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6558	6648	
==>.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${ST <==
14	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1425	1515	
==>.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${ST <==
14	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1952	2042	
==>.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${ST <==
14	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3135	3225	
==>.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${ST <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578674	578801	
==>"PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes", <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579978	580105	
==>"PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes", <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581283	581410	
==>"PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes", <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582588	582715	
==>"PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes", <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583894	584021	
==>"PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes", <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584968	585095	
==>"PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes", <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586043	586170	
==>"PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes", <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587228	587355	
==>"PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes", <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588414	588541	
==>"PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes", <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589600	589727	
==>"PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes", <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590787	590914	
==>"PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes", <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591996	592123	
==>"PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes", <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593206	593333	
==>"PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes", <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594416	594543	
==>"PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes", <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24035	24285	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "N <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549211	549461	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "N <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550511	550761	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "N <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551812	552062	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "N <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553003	553253	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "N <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558416	558666	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "N <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559800	560050	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "N <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561021	561271	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "N <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578484	578734	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "N <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584778	585028	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "N <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585853	586103	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "N <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598268	598518	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "N <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599315	599565	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "N <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600390	600640	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "N <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431855	432186	
==>fix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432869	433200	
==>fix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433884	434215	
==>fix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434898	435229	
==>fix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435913	436244	
==>fix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436927	437258	
==>fix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437942	438273	
==>fix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438958	439289	
==>fix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439972	440303	
==>fix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440987	441318	
==>fix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442001	442332	
==>fix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443016	443347	
==>fix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444030	444361	
==>fix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	445045	445376	
==>fix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761400	761507	
==>set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\") <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762253	762360	
==>set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\") <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763105	763212	
==>set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\") <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763958	764065	
==>set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\") <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764811	764918	
==>set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\") <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765665	765772	
==>set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\") <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766517	766624	
==>set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\") <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767370	767477	
==>set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\") <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768223	768330	
==>set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\") <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769077	769184	
==>set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\") <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769929	770036	
==>set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\") <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770782	770889	
==>set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\") <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771635	771742	
==>set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\") <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772489	772596	
==>set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\") <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667604	667880	
==>, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "p <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668378	668654	
==>, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "p <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669149	669425	
==>, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "p <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669921	670197	
==>, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "p <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670693	670969	
==>, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "p <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671466	671742	
==>, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "p <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672235	672511	
==>, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "p <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673007	673283	
==>, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "p <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673777	674053	
==>, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "p <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	674548	674824	
==>, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "p <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688971	689246	
==>, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "p <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	35549	35823	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "p <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666833	667107	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "p <==
14	/Users/nnunley/parrot/lib/Test/Builder.pm	30758	30869	
==>evel().

=cut

sub caller {
    my($self, $height) = @_;
    $height ||= 0;

    my @caller = CORE::caller($self <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761392	761496	
==>src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound registe <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762245	762349	
==>src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound registe <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763097	763201	
==>src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound registe <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763950	764054	
==>src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound registe <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764803	764907	
==>src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound registe <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765657	765761	
==>src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound registe <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766509	766613	
==>src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound registe <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767362	767466	
==>src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound registe <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768215	768319	
==>src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound registe <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769069	769173	
==>src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound registe <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769921	770025	
==>src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound registe <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770774	770878	
==>src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound registe <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771627	771731	
==>src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound registe <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772481	772585	
==>src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound registe <==
14	/Users/nnunley/parrot/config/auto/aio.pm	308	401	
==>);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$descri <==
14	/Users/nnunley/parrot/config/auto/cgoto.pm	331	424	
==>);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$descri <==
14	/Users/nnunley/parrot/config/auto/env.pm	332	425	
==>);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$descri <==
14	/Users/nnunley/parrot/config/auto/funcptr.pm	344	437	
==>);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$descri <==
14	/Users/nnunley/parrot/config/auto/gc.pm	684	777	
==>);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$descri <==
14	/Users/nnunley/parrot/config/auto/gcc.pm	318	411	
==>);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$descri <==
14	/Users/nnunley/parrot/config/auto/inline.pm	334	427	
==>);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$descri <==
14	/Users/nnunley/parrot/config/auto/isreg.pm	314	407	
==>);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$descri <==
14	/Users/nnunley/parrot/config/auto/memalign.pm	333	426	
==>);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$descri <==
14	/Users/nnunley/parrot/config/auto/msvc.pm	338	431	
==>);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$descri <==
14	/Users/nnunley/parrot/config/auto/python.pm	395	488	
==>);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$descri <==
14	/Users/nnunley/parrot/config/auto/signal.pm	296	389	
==>);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$descri <==
14	/Users/nnunley/parrot/config/auto/sizes.pm	312	405	
==>);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$descri <==
14	/Users/nnunley/parrot/config/auto/va_ptr.pm	339	432	
==>);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$descri <==
14	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8913	9042	
==>1 == 3 goto three
    if $I1 == 4 goto four
    if $I1 == 5 goto five
    if $I1 == 6 goto six
    if $I1 == 7 goto seven
    if $ <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462818	462910	
==>== 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463815	463907	
==>== 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464812	464904	
==>== 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469377	469469	
==>== 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470252	470344	
==>== 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474158	474250	
==>== 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475149	475241	
==>== 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476140	476232	
==>== 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478850	478942	
==>== 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479742	479834	
==>== 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483713	483805	
==>== 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484712	484804	
==>== 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485711	485803	
==>== 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710173	710350	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711006	711183	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711840	712017	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712946	713123	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714053	714230	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714975	715152	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715898	716075	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717386	717563	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718317	718494	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719249	719426	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720448	720625	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721648	721825	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722676	722853	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723705	723882	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350460	350724	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351121	351385	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351783	352047	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352440	352704	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353098	353362	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353842	354106	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354587	354851	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361054	361318	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361952	362216	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362851	363115	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363753	364017	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364656	364920	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365495	365759	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366335	366599	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578616	578779	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579920	580083	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581225	581388	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582530	582693	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583836	583999	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584910	585073	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585985	586148	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587170	587333	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588356	588519	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589542	589705	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590729	590892	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591938	592101	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593148	593311	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594358	594521	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578612	578745	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "su <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579916	580049	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "su <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581221	581354	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "su <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582526	582659	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "su <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583832	583965	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "su <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584906	585039	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "su <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585981	586114	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "su <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587166	587299	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "su <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588352	588485	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "su <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589538	589671	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "su <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590725	590858	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "su <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591934	592067	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "su <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593144	593277	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "su <==
14	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594354	594487	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "su <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037166	1037342	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037946	1038122	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038727	1038903	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039618	1039794	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040510	1040686	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041402	1041578	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042295	1042471	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043191	1043367	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044088	1044264	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044981	1045157	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045875	1046051	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046769	1046945	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
13	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	529	624	
==>);

use Parrot::Docs::File;

=item C<file_class()>

Returns C<Parrot::Docs::File>.

=cut

sub fi <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426272	426576	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427159	427463	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428045	428349	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428932	429236	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429818	430122	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430705	431009	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431591	431895	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base <==
13	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31663	31771	
==>t_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::imple <==
13	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33240	33348	
==>t_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::imple <==
13	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34951	35059	
==>t_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::imple <==
13	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36254	36362	
==>t_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::imple <==
13	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38201	38309	
==>t_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::imple <==
13	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40297	40405	
==>t_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::imple <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95014	95319	
==>{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95907	96212	
==>{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96800	97105	
==>{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111336	111641	
==>{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112228	112533	
==>{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113120	113425	
==>{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135545	135850	
==>{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136439	136744	
==>{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858715	859020	
==>{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859719	860024	
==>{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860723	861028	
==>{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861728	862033	
==>{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
13	/Users/nnunley/parrot/lib/Text/Balanced.pm	61246	61335	
==>expected.

=item  C<Unmatched opening bracket(s): "%s">

C<extract_bracketed>, C<extract_q <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710120	710342	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARG <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710953	711175	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARG <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711787	712009	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARG <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712893	713115	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARG <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714000	714222	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARG <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714922	715144	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARG <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715845	716067	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARG <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718264	718486	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARG <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719196	719418	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARG <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720395	720617	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARG <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721595	721817	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARG <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722623	722845	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARG <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723652	723874	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARG <==
13	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3862	3963	
==>") foreach (@oplibs);
	}
} 
elsif ($mode eq 'copy') {
	# Copy *.so -> destination, where destination i <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579426	579511	
==>ception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstr <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580731	580816	
==>ception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstr <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582036	582121	
==>ception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstr <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583342	583427	
==>ception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstr <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584559	584644	
==>ception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstr <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585634	585719	
==>ception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstr <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586781	586866	
==>ception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstr <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587967	588052	
==>ception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstr <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589153	589238	
==>ception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstr <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590340	590425	
==>ception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstr <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598075	598160	
==>ception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstr <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599122	599207	
==>ception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstr <==
13	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28895	28989	
==>}{$meth};
    return $self->{methods}[$n]{'loc'} ne 'nci';
}


=item C<implements_vtable($metho <==
13	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	12940	13063	
==>$_ =~ /call \d+ returns = 0%/) {
                print OUT qq($atag<font color="red">$_</font>)
            } elsif ($_ =~ / <==
13	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	462	567	
==>e qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shi <==
13	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	478	583	
==>e qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shi <==
13	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	473	575	
==>e qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shi <==
13	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	461	563	
==>e qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shi <==
13	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	469	571	
==>e qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shi <==
13	/Users/nnunley/parrot/lib/Parrot/Docs/Section/EditorPlugins.pm	500	602	
==>e qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shi <==
13	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	429	531	
==>e qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shi <==
13	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	438	540	
==>e qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shi <==
13	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Ops.pm	441	543	
==>e qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shi <==
13	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	469	571	
==>e qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shi <==
13	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	447	549	
==>e qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shi <==
13	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tests.pm	442	544	
==>e qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shi <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870464	870814	
==>{
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871480	871830	
==>{
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872497	872847	
==>{
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873514	873864	
==>{
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874532	874882	
==>{
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875549	875899	
==>{
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876567	876917	
==>{
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877585	877935	
==>{
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904668	905018	
==>{
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905686	906036	
==>{
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906705	907055	
==>{
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907724	908074	
==>{
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
13	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	48763	48893	
==>ub
#line 157 "Lua\lua51.yp"
{
            BuildForList( $_[0], $_[2], $_[4], $_[7] );
        }
	],
	[#Rule 26
		 '@8-1', 0, <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62755	63015	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorsoff",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63400	63660	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorsoff",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16624	16882	
==>{\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "P <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	17398	17656	
==>{\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "P <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18193	18451	
==>{\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "P <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19002	19260	
==>{\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "P <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19778	20036	
==>{\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "P <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20556	20814	
==>{\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "P <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21356	21614	
==>{\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "P <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22170	22428	
==>{\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "P <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305665	305923	
==>{\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "P <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	306441	306699	
==>{\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "P <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307234	307492	
==>{\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "P <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631939	632259	
==>=> 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632980	633300	
==>=> 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634022	634342	
==>=> 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635139	635459	
==>=> 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636257	636577	
==>=> 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637375	637695	
==>=> 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079849	1080169	
==>=> 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080913	1081233	
==>=> 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081978	1082298	
==>=> 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083043	1083363	
==>=> 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103292	1103612	
==>=> 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104506	1104826	
==>=> 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
13	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23938	24068	
==>op> <value>);
    #   redo unless (<value> <op> <value>);
    #
    #   redo <label>;
    #   redo <label> if     (<value> <op> <va <==
13	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	6370	6470	
==>nt of the checks is *not* always optimal. But
# they should do a pretty decent job of making things f <==
13	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10793	10889	
==>nfess "No block!"        unless defined $self and ref $self and $self->isa("Jako::Construct::Bloc <==
13	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3986	4076	
==>nfess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Construct::Bloc <==
13	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4469	4559	
==>nfess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Construct::Bloc <==
13	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4976	5066	
==>nfess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Construct::Bloc <==
13	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6154	6244	
==>nfess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Construct::Bloc <==
13	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7097	7187	
==>nfess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Construct::Bloc <==
13	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7895	7985	
==>nfess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Construct::Bloc <==
13	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8542	8632	
==>nfess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Construct::Bloc <==
13	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9210	9300	
==>nfess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Construct::Bloc <==
13	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9879	9969	
==>nfess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Construct::Bloc <==
13	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	11810	11900	
==>nfess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Construct::Bloc <==
13	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10379	10468	
==>nfess "No block!" unless defined $self and ref $self and $self->isa("Jako::Construct::Bloc <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95016	95322	
==>@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95909	96215	
==>@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96802	97108	
==>@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111338	111644	
==>@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112230	112536	
==>@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113122	113428	
==>@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135547	135853	
==>@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136441	136747	
==>@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858717	859023	
==>@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859721	860027	
==>@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860725	861031	
==>@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861730	862036	
==>@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
13	/Users/nnunley/parrot/tools/build/nativecall.pl	3085	3180	
==>i_I(interpreter, &st, *return_data);",
       3 => "set_nci_I(interpreter, &st, *return_data);", <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462819	462912	
==>= 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463816	463909	
==>= 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464813	464906	
==>= 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469378	469471	
==>= 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470253	470346	
==>= 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474159	474252	
==>= 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475150	475243	
==>= 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476141	476234	
==>= 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478851	478944	
==>= 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479743	479836	
==>= 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483714	483807	
==>= 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484713	484806	
==>= 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485712	485805	
==>= 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747323	747560	
==>_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748108	748345	
==>_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748891	749128	
==>_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749675	749912	
==>_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750458	750695	
==>_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753617	753854	
==>_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754405	754642	
==>_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755191	755428	
==>_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755978	756215	
==>_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756767	757004	
==>_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757557	757794	
==>_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324739	324975	
==>_native(interpreter, {{\@1}},{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325532	325768	
==>_native(interpreter, {{\@1}},{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578749	579044	
==>ass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580053	580348	
==>ass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581358	581653	
==>ass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582663	582958	
==>ass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586118	586413	
==>ass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587303	587598	
==>ass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588489	588784	
==>ass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589675	589970	
==>ass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590862	591157	
==>ass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592071	592366	
==>ass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593281	593576	
==>ass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594491	594786	
==>ass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
13	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	2772	2954	
==>ools/build/pbc2c.pl                            [devel]
    tools/build/revision_c.pl                       [devel]
    vtable.tbl                                      [devel]
);

open <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909391	909699	
==>{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910288	910596	
==>{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911185	911493	
==>{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912083	912391	
==>{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634865	635171	
==>{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635983	636289	
==>{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637101	637407	
==>{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638220	638526	
==>{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849934	850240	
==>{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850821	851127	
==>{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851708	852014	
==>{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852596	852902	
==>{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
13	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	1628	1792	
==>nfant.pod                             [devel]doc
    docs/dev/pmc_freeze.pod                         [devel]doc
    examples/sdl/anim_image.pir                     [ <==
13	/Users/nnunley/parrot/languages/python/pie-thon.pl	11659	11780	
==>OC
	$p = $pmc;
    }
    else {
	$p = promote($tos);
	if ($cur_func eq 'test::main') {
	    $main_names{$c} = $p;
	    pri <==
13	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3382	3473	
==>} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = sta <==
13	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4236	4327	
==>} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = sta <==
13	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5144	5235	
==>} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = sta <==
13	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8056	8147	
==>} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = sta <==
13	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8913	9004	
==>} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = sta <==
13	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11821	11912	
==>} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = sta <==
13	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2129	2220	
==>} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = sta <==
13	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2652	2743	
==>} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = sta <==
13	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3381	3472	
==>} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = sta <==
13	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6010	6101	
==>} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = sta <==
13	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6568	6659	
==>} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = sta <==
13	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8884	8975	
==>} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = sta <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138172	138287	
==>rc/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139068	139183	
==>rc/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139964	140079	
==>rc/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140859	140974	
==>rc/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141755	141870	
==>rc/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142651	142766	
==>rc/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154875	154990	
==>rc/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155779	155894	
==>rc/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156683	156798	
==>rc/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157588	157703	
==>rc/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158491	158606	
==>rc/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => <==
13	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	4410	4521	
==>return)(?!\w)(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, $1, undef, $1);
      $text = <==
13	/Users/nnunley/parrot/config/gen/config_h.pm	1661	1761	
==>"\n#define BUILD_OS_NAME \"$^O\"\n";

    my $define = $conf->options->get('define');

    if ($defin <==
13	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21079	21186	
==>::Value->new($block, $self->require_value);
      }

      $self->require_semicolon;

      foreach my $left <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579444	579531	
==>r, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580749	580836	
==>r, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582054	582141	
==>r, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583360	583447	
==>r, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584577	584664	
==>r, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585652	585739	
==>r, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586799	586886	
==>r, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587985	588072	
==>r, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589171	589258	
==>r, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590358	590445	
==>r, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598093	598180	
==>r, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599140	599227	
==>r, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615106	615394	
==>\n    {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRES <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562026	562312	
==>\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRES <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579710	579996	
==>\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRES <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581015	581301	
==>\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRES <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582320	582606	
==>\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRES <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583626	583912	
==>\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRES <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586960	587246	
==>\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRES <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588146	588432	
==>\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRES <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589332	589618	
==>\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRES <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590519	590805	
==>\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRES <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591728	592014	
==>\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRES <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592938	593224	
==>\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRES <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594148	594434	
==>\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRES <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380474	380668	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381485	381679	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382497	382691	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383509	383703	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384522	384716	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385652	385846	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386783	386977	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387914	388108	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389046	389240	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390177	390371	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391309	391503	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392441	392635	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [ <==
13	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22568	22690	
==>AME' )
    ) {
      # Well, it fits a fallback pattern
      DEBUG and print "Seems to match NAMEless pattern.\n";
      $ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459850	459946	
==>}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\") <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460838	460934	
==>}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\") <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461826	461922	
==>}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\") <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467631	467727	
==>}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\") <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468502	468598	
==>}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\") <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471193	471289	
==>}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\") <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472180	472276	
==>}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\") <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473167	473263	
==>}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\") <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477054	477150	
==>}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\") <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477950	478046	
==>}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\") <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480700	480796	
==>}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\") <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481703	481799	
==>}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\") <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482706	482802	
==>}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\") <==
13	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	8526	8676	
==>*", $17),
      id            => $18,
      filename      => $name,
      link          => BASEHTTPDIR . $name, 
    };
  return ();
}

sub runcore2hum <==
13	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	482	601	
==>( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shift;
        
    r <==
13	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	466	581	
==>( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shift;
    
    r <==
13	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	477	583	
==>( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	r <==
13	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	465	571	
==>( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	r <==
13	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	473	579	
==>( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	r <==
13	/Users/nnunley/parrot/lib/Parrot/Docs/Section/EditorPlugins.pm	504	610	
==>( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	r <==
13	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	433	539	
==>( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	r <==
13	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	442	548	
==>( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	r <==
13	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Ops.pm	445	551	
==>( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	r <==
13	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	451	557	
==>( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	r <==
13	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tests.pm	446	552	
==>( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	r <==
13	/Users/nnunley/parrot/lib/Test/Builder.pm	21897	21995	
==>e.  Why?  Because diag() is often used in conjunction with
a failing test (C<ok() || diag()>) it "p <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578738	579016	
==>" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580042	580320	
==>" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581347	581625	
==>" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582652	582930	
==>" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586107	586385	
==>" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587292	587570	
==>" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588478	588756	
==>" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589664	589942	
==>" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590851	591129	
==>" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592060	592338	
==>" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593270	593548	
==>" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594480	594758	
==>" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
13	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	28232	28334	
==>);
  $self->_add_inst('',           'mul',[$return,$return,$temp]);
  $self->_restore($temp);
  $self-> <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037174	1037417	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037954	1038197	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038735	1038978	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039626	1039869	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040518	1040761	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041410	1041653	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042303	1042546	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043199	1043442	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044096	1044339	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044989	1045232	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045883	1046126	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046777	1047020	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
13	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7061	7200	
==>enting should be 
            # back even with the opening brace.
            my $indent = "  " x (@stack-1);
            if ($1 ne $indent) <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407449	407757	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408347	408655	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812468	812776	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943082	943390	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236665	236971	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237547	237853	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238429	238735	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244045	244351	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244977	245283	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	530447	530753	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564899	565205	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565791	566097	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845901	846207	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380408	380663	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381419	381674	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382431	382686	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383443	383698	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384456	384711	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385586	385841	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386717	386972	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387848	388103	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388980	389235	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390111	390366	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391243	391498	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392375	392630	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" <==
13	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	31252	31351	
==>E;
	print "Runtime branch of "
	print JUMPLABEL
	print " not found\\n"
	_platform_shutdown()
	end
RT <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462815	462909	
==>}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zer <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463812	463906	
==>}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zer <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464809	464903	
==>}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zer <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469374	469468	
==>}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zer <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470249	470343	
==>}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zer <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474155	474249	
==>}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zer <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475146	475240	
==>}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zer <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476137	476231	
==>}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zer <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478847	478941	
==>}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zer <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479739	479833	
==>}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zer <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483710	483804	
==>}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zer <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484709	484803	
==>}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zer <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485708	485802	
==>}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zer <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116735	117123	
==>",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 145,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 209 \ <==
13	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	457	561	
==>e base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
    my $self <==
13	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	473	577	
==>e base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
    my $self <==
13	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	468	569	
==>e base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self <==
13	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	456	557	
==>e base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self <==
13	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	464	565	
==>e base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self <==
13	/Users/nnunley/parrot/lib/Parrot/Docs/Section/EditorPlugins.pm	495	596	
==>e base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self <==
13	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	424	525	
==>e base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self <==
13	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	433	534	
==>e base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self <==
13	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Ops.pm	436	537	
==>e base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self <==
13	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	464	565	
==>e base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self <==
13	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	442	543	
==>e base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self <==
13	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tests.pm	437	538	
==>e base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159401	159665	
==>\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160298	160562	
==>\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161195	161459	
==>\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162091	162355	
==>\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162988	163252	
==>\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163885	164149	
==>\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176129	176393	
==>\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177033	177297	
==>\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177937	178201	
==>\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178842	179106	
==>\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179745	180009	
==>\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
13	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4282	4389	
==>n"
PIR
	} else {
		# Translator needs to emit an instruction to push the value in the
		# load register onto <==
13	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	26759	26859	
==>e};
    $cout .= $self->line_directive_here($cout, $out_name)
	. $self->includes;
    my $l = count_n <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	27963	28211	
==>VE",
                  "NAME" => "get_results",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
13	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	121	212	
==>license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Bloc <==
13	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	128	219	
==>license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Bloc <==
13	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	121	212	
==>license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Bloc <==
13	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	119	210	
==>license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Bloc <==
13	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	123	214	
==>license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Bloc <==
13	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	121	212	
==>license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Bloc <==
13	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	121	212	
==>license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Bloc <==
13	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	125	216	
==>license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Bloc <==
13	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	122	213	
==>license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Bloc <==
13	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	122	213	
==>license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Bloc <==
13	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	123	214	
==>license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Bloc <==
13	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	120	211	
==>license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Bloc <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426317	426606	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARG <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427204	427493	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARG <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428090	428379	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARG <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428977	429266	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARG <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429863	430152	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARG <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430750	431039	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARG <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431636	431925	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARG <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432650	432939	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARG <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433665	433954	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARG <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434679	434968	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARG <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435694	435983	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARG <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436708	436997	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARG <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437723	438012	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARG <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870519	870831	
==>E" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871535	871847	
==>E" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872552	872864	
==>E" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873569	873881	
==>E" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874587	874899	
==>E" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875604	875916	
==>E" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876622	876934	
==>E" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877640	877952	
==>E" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904723	905035	
==>E" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905741	906053	
==>E" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906760	907072	
==>E" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907779	908091	
==>E" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
13	/Users/nnunley/parrot/tools/build/ops2c.pl	8460	8567	
==>= 300;
for (my $i = 0; $i < @op_funcs; $i++) {
    if ($i && $i % $CORE_SPLIT == 0 && $trans->can("run_core_ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380497	380706	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i", <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381508	381717	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i", <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382520	382729	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i", <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383532	383741	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i", <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384545	384754	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i", <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385675	385884	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i", <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386806	387015	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i", <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387937	388146	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i", <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389069	389278	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i", <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390200	390409	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i", <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391332	391541	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i", <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392464	392673	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i", <==
13	/Users/nnunley/parrot/lib/Text/Balanced.pm	50758	50869	
==>or quotelike operators)

                extract_codeblock $text, "(){}", '[^(]*';


The ability to specify a di <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631878	632156	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632919	633197	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633961	634239	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635078	635356	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636196	636474	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637314	637592	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079788	1080066	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080852	1081130	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081917	1082195	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082982	1083260	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103231	1103509	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104445	1104723	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
13	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	5172	5287	
==>c} = $doc;
    }
    do {
	$desc =~ s/^ {0,1}(\S)/  $1/mg; # minimum indent
	&clip_excess_lines($desc);
    } if $de <==
13	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	1430	1541	
==>1, %2)"
    $P0['monadic:'] =  "    $P0 = find_global 'APL', %0\n    %1 = $P0(%1)"

    # special-purpose parrot <==
13	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	235	330	
==>5-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Bloc <==
13	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	249	344	
==>5-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Bloc <==
13	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	247	342	
==>5-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Bloc <==
13	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	243	338	
==>5-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Bloc <==
13	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	251	346	
==>5-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Bloc <==
13	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	235	330	
==>5-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Bloc <==
13	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	235	330	
==>5-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Bloc <==
13	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	248	343	
==>5-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Bloc <==
13	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	242	337	
==>5-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Bloc <==
13	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	242	337	
==>5-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Bloc <==
13	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	239	334	
==>5-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Bloc <==
13	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	233	328	
==>5-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Bloc <==
13	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	3727	3834	
==>r the module is linked to.

=cut

sub process_code_start_token
{
    my $self = shift;
    my $token = shift <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579407	579497	
==>ss)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\t <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580712	580802	
==>ss)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\t <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582017	582107	
==>ss)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\t <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583323	583413	
==>ss)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\t <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584540	584630	
==>ss)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\t <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585615	585705	
==>ss)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\t <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586762	586852	
==>ss)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\t <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587948	588038	
==>ss)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\t <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589134	589224	
==>ss)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\t <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590321	590411	
==>ss)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\t <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598056	598146	
==>ss)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\t <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599103	599193	
==>ss)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\t <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631932	632251	
==>"JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632973	633292	
==>"JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634015	634334	
==>"JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635132	635451	
==>"JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636250	636569	
==>"JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637368	637687	
==>"JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079842	1080161	
==>"JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080906	1081225	
==>"JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081971	1082290	
==>"JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083036	1083355	
==>"JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103285	1103604	
==>"JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104499	1104818	
==>"JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
13	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9066	9151	
==>,/* 19 */
GG,$b,$c,$d,$a,$_[4],20,0xe9b6c7aa,/* 20 */
GG,$a,$b,$c,$d,$_[9],5,0xd62f105 <==
13	/Users/nnunley/parrot/config/inter/charset.pm	1634	1757	
==>set${slash}/g;

    $conf->data->set(
        charset            => $charset_list,
        TEMP_charset_o     => $TEMP_chars <==
13	/Users/nnunley/parrot/languages/python/pie-thon.pl	14631	14739	
==>les{$f}) {
	    print <<EOC;
	# $namespace{$f} => $vtables{$f}
EOC
	    #$namespace{$f} => $vtables{$f}
	}
	e <==
13	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3268	3364	
==>} > 0 goto PRE_OP_${CURIC}_LAZY_MOVE_$register_num

# No lazy move available - need to refer to r <==
13	/Users/nnunley/parrot/config/auto/aio.pm	328	417	
==>ot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determi <==
13	/Users/nnunley/parrot/config/auto/cgoto.pm	351	440	
==>ot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determi <==
13	/Users/nnunley/parrot/config/auto/env.pm	352	441	
==>ot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determi <==
13	/Users/nnunley/parrot/config/auto/gc.pm	704	793	
==>ot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determi <==
13	/Users/nnunley/parrot/config/auto/gcc.pm	338	427	
==>ot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determi <==
13	/Users/nnunley/parrot/config/auto/inline.pm	354	443	
==>ot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determi <==
13	/Users/nnunley/parrot/config/auto/isreg.pm	334	423	
==>ot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determi <==
13	/Users/nnunley/parrot/config/auto/memalign.pm	353	442	
==>ot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determi <==
13	/Users/nnunley/parrot/config/auto/msvc.pm	358	447	
==>ot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determi <==
13	/Users/nnunley/parrot/config/auto/python.pm	415	504	
==>ot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determi <==
13	/Users/nnunley/parrot/config/auto/signal.pm	316	405	
==>ot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determi <==
13	/Users/nnunley/parrot/config/auto/sizes.pm	332	421	
==>ot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determi <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870531	870862	
==>r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 9 <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871547	871878	
==>r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 9 <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872564	872895	
==>r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 9 <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873581	873912	
==>r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 9 <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874599	874930	
==>r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 9 <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875616	875947	
==>r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 9 <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876634	876965	
==>r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 9 <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877652	877983	
==>r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 9 <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878673	879004	
==>r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 9 <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879776	880107	
==>r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 9 <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880880	881211	
==>r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 9 <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881984	882315	
==>r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 9 <==
13	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4504	4605	
==>el) {
      my $block = $self->current_block();
      my $ident = Jako::Construct::Expression::Value:: <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578701	578945	
==>_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580005	580249	
==>_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581310	581554	
==>_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582615	582859	
==>_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586070	586314	
==>_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587255	587499	
==>_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588441	588685	
==>_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589627	589871	
==>_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590814	591058	
==>_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592023	592267	
==>_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593233	593477	
==>_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594443	594687	
==>_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
13	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	524	617	
==>ops, $args) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::B <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343599	343898	
==>" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344840	345139	
==>" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346082	346381	
==>" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347324	347623	
==>" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879252	879346	
==>c/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(inter <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880356	880450	
==>c/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(inter <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881460	881554	
==>c/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(inter <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882565	882659	
==>c/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(inter <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883670	883764	
==>c/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(inter <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884776	884870	
==>c/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(inter <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885882	885976	
==>c/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(inter <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886989	887083	
==>c/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(inter <==
13	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	349	434	
==>/luaaux.pir"
.include "languages/lua/lib/luabasic.pir"
.include "languages/lua/lib/l <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870489	870821	
==>" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871505	871837	
==>" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872522	872854	
==>" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873539	873871	
==>" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874557	874889	
==>" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875574	875906	
==>" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876592	876924	
==>" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877610	877942	
==>" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904693	905025	
==>" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905711	906043	
==>" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906730	907062	
==>" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907749	908081	
==>" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
13	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	5983	6073	
==>=item C<pod_as_html()>

Runs C<Parrot::Docs::POD2HTML> on the contents of the file. Executa <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562032	562317	
==>=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PAR <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579716	580001	
==>=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PAR <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581021	581306	
==>=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PAR <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582326	582611	
==>=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PAR <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583632	583917	
==>=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PAR <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586966	587251	
==>=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PAR <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588152	588437	
==>=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PAR <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589338	589623	
==>=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PAR <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590525	590810	
==>=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PAR <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591734	592019	
==>=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PAR <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592944	593229	
==>=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PAR <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594154	594439	
==>=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PAR <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615114	615399	
==>=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PAR <==
13	/Users/nnunley/parrot/lib/Text/Balanced.pm	48984	49077	
==>t. It also takes an optional fourth parameter, which allows the
outermost delimiter brackets t <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579440	579526	
==>reter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interprete <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580745	580831	
==>reter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interprete <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582050	582136	
==>reter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interprete <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583356	583442	
==>reter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interprete <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584573	584659	
==>reter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interprete <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585648	585734	
==>reter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interprete <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586795	586881	
==>reter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interprete <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587981	588067	
==>reter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interprete <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589167	589253	
==>reter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interprete <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590354	590440	
==>reter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interprete <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598089	598175	
==>reter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interprete <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599136	599222	
==>reter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interprete <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908713	908888	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909609	909784	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910506	910681	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911403	911578	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912301	912476	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913311	913486	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914322	914497	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915333	915508	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916345	916520	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917356	917531	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918368	918543	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919380	919555	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
13	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	3272	3400	
==>ss;
        my ( $symb, $klass, $type, $subtype, $name ) = @_;
        $self->{symbol}  = $symb;
        $self->{class}   = $k <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404029	404271	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404940	405182	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405852	406094	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406764	407006	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
13	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14598	14695	
==>er_halfpoint_size,
    $title,
    $self->normal_halfpoint_size,
  ;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~ <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385195	385289	
==>BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}} <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386326	386420	
==>BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}} <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387457	387551	
==>BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}} <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388589	388683	
==>BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}} <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389720	389814	
==>BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}} <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390852	390946	
==>BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}} <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391984	392078	
==>BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}} <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393117	393211	
==>BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}} <==
13	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10143	10260	
==>shift;
    my $link = shift;
    my $to = $link->attr('to');
    my $section = $link->attr('section');
    
    return <==
13	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3387	3477	
==>$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_d <==
13	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4241	4331	
==>$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_d <==
13	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5149	5239	
==>$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_d <==
13	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8061	8151	
==>$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_d <==
13	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8918	9008	
==>$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_d <==
13	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11826	11916	
==>$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_d <==
13	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2134	2224	
==>$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_d <==
13	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2657	2747	
==>$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_d <==
13	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3386	3476	
==>$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_d <==
13	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6015	6105	
==>$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_d <==
13	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6573	6663	
==>$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_d <==
13	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8889	8979	
==>$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_d <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380500	380743	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381511	381754	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382523	382766	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383535	383778	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384548	384791	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385678	385921	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386809	387052	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387940	388183	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389072	389315	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390203	390446	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391335	391578	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392467	392710	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
13	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	24479	24601	
==>UG and print "Okay, stack is empty now.\n";
      }
      
      # Try generating errata section, if applicable
      unles <==
13	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	593	691	
==>the harness.

my $teetcl = 't_tcl';

my @b= map {s/.*\/(.*)\.t/$1/; $_} (glob ("$teetcl/*.t"));

my <==
13	/Users/nnunley/parrot/lib/Text/Balanced.pm	54372	54465	
==>ally also return two further arguments: a string
representing the text left after extraction ( <==
13	/Users/nnunley/parrot/tools/dev/lib_deps.pl	12358	12477	
==>ath.h
lrintf      math.h
lrintl      math.h
lround      math.h
lroundf     math.h
lroundl     math.h
malloc      stdlib. <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579433	579519	
==>(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( int <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580738	580824	
==>(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( int <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582043	582129	
==>(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( int <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583349	583435	
==>(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( int <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584566	584652	
==>(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( int <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585641	585727	
==>(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( int <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586788	586874	
==>(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( int <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587974	588060	
==>(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( int <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589160	589246	
==>(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( int <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590347	590433	
==>(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( int <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598082	598168	
==>(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( int <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599129	599215	
==>(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( int <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578746	579042	
==>bclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580050	580346	
==>bclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581355	581651	
==>bclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582660	582956	
==>bclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586115	586411	
==>bclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587300	587596	
==>bclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588486	588782	
==>bclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589672	589968	
==>bclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590859	591155	
==>bclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592068	592364	
==>bclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593278	593574	
==>bclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
13	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594488	594784	
==>bclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
13	/Users/nnunley/parrot/tools/build/jit2c.pl	12039	12163	
==>}
        # *) $X->vtable->{vtable}(interp, $Y, $Z, $A)
        elsif ($opbody =~ /
        ^(?:.*\.ops")\s+
        {{\@(\d) <==
13	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39416	39520	
==>e.c");
    return <<EOC;
$l
${decl} {
    $ret_def
    STRING *meth = CONST_STRING(interpreter, "__$meth" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578748	579043	
==>lass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580052	580347	
==>lass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581357	581652	
==>lass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582662	582957	
==>lass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586117	586412	
==>lass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587302	587597	
==>lass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588488	588783	
==>lass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589674	589969	
==>lass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590861	591156	
==>lass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592070	592365	
==>lass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593280	593575	
==>lass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594490	594785	
==>lass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037169	1037416	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037949	1038196	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038730	1038977	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039621	1039868	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040513	1040760	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041405	1041652	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042298	1042545	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043194	1043441	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044091	1044338	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044984	1045231	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045878	1046125	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046772	1047019	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138202	138474	
==>} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139098	139370	
==>} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139994	140266	
==>} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140889	141161	
==>} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141785	142057	
==>} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142681	142953	
==>} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154905	155177	
==>} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155809	156081	
==>} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156713	156985	
==>} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157618	157890	
==>} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158521	158793	
==>} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
12	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28001	28103	
==>trans\n";
		}

		# Finally, call post_op and append code it generates.
		my $post_op = $srm->post_op($r <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579441	579527	
==>eter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580746	580832	
==>eter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582051	582137	
==>eter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583357	583443	
==>eter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584574	584660	
==>eter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585649	585735	
==>eter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586796	586882	
==>eter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587982	588068	
==>eter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589168	589254	
==>eter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590355	590441	
==>eter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598090	598176	
==>eter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599137	599223	
==>eter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579434	579525	
==>interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpret <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580739	580830	
==>interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpret <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582044	582135	
==>interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpret <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583350	583441	
==>interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpret <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584567	584658	
==>interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpret <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585642	585733	
==>interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpret <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586789	586880	
==>interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpret <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587975	588066	
==>interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpret <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589161	589252	
==>interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpret <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590348	590439	
==>interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpret <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598083	598174	
==>interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpret <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599130	599221	
==>interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpret <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578703	579015	
==>UMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580007	580319	
==>UMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581312	581624	
==>UMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582617	582929	
==>UMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586072	586384	
==>UMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587257	587569	
==>UMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588443	588755	
==>UMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589629	589941	
==>UMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590816	591128	
==>UMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592025	592337	
==>UMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593235	593547	
==>UMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594445	594757	
==>UMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909392	909701	
==>\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910289	910598	
==>\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911186	911495	
==>\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912084	912393	
==>\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634866	635173	
==>\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635984	636291	
==>\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637102	637409	
==>\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638221	638528	
==>\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849935	850242	
==>\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850822	851129	
==>\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851709	852016	
==>\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852597	852904	
==>\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909388	909698	
==>, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910285	910595	
==>, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911182	911492	
==>, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912080	912390	
==>, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634862	635170	
==>, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635980	636288	
==>, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637098	637406	
==>, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638217	638525	
==>, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849931	850239	
==>, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850818	851126	
==>, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851705	852013	
==>, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852593	852901	
==>, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870484	870817	
==>"JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871500	871833	
==>"JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872517	872850	
==>"JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873534	873867	
==>"JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874552	874885	
==>"JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875569	875902	
==>"JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876587	876920	
==>"JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877605	877938	
==>"JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904688	905021	
==>"JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905706	906039	
==>"JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906725	907058	
==>"JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907744	908077	
==>"JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95017	95325	
==>3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95910	96218	
==>3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96803	97111	
==>3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111339	111647	
==>3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112231	112539	
==>3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113123	113431	
==>3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135548	135856	
==>3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136442	136750	
==>3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858718	859026	
==>3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859722	860030	
==>3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860726	861034	
==>3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861731	862039	
==>3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404117	404414	
==>",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405028	405325	
==>",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405940	406237	
==>",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406852	407149	
==>",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407764	408061	
==>",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408662	408959	
==>",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	410498	410795	
==>",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411390	411687	
==>",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421303	421600	
==>",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422195	422492	
==>",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423090	423387	
==>",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423986	424283	
==>",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	238	333	
==>0T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block:: <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	252	347	
==>0T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block:: <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	250	345	
==>0T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block:: <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	246	341	
==>0T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block:: <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	254	349	
==>0T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block:: <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	238	333	
==>0T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block:: <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	238	333	
==>0T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block:: <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	251	346	
==>0T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block:: <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	245	340	
==>0T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block:: <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	245	340	
==>0T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block:: <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	242	337	
==>0T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block:: <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	236	331	
==>0T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block:: <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037081	1037340	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037861	1038120	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038642	1038901	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039533	1039792	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040425	1040684	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041317	1041576	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042210	1042469	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043106	1043365	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044003	1044262	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044896	1045155	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045790	1046049	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046684	1046943	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	236	331	
==>-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	250	345	
==>-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	248	343	
==>-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	244	339	
==>-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	252	347	
==>-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	236	331	
==>-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	236	331	
==>-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	249	344	
==>-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	243	338	
==>-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	243	338	
==>-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	240	335	
==>-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	234	329	
==>-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	4697	4802	
==>lf->type) {
      $compiler->emit("  .local " . $self->type . " __result");
      $compiler->emit("  __res <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	453	553	
==>e warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	441	541	
==>e warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	449	549	
==>e warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/EditorPlugins.pm	480	580	
==>e warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	409	509	
==>e warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	442	542	
==>e warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	458	558	
==>e warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	418	518	
==>e warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Ops.pm	421	521	
==>e warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	427	527	
==>e warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tests.pm	422	522	
==>e warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	464	569	
==>qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shift <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	480	585	
==>qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shift <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	475	577	
==>qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	463	565	
==>qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	471	573	
==>qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/EditorPlugins.pm	502	604	
==>qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	431	533	
==>qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	440	542	
==>qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Ops.pm	443	545	
==>qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	471	573	
==>qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	449	551	
==>qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tests.pm	444	546	
==>qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift <==
12	/Users/nnunley/parrot/tools/build/nativecall.pl	17861	17975	
==>interpreter, pmc_nci, signature);

#endif
    if (result)
        return result;

    /* And in here is the platfor <==
12	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2135	2240	
==>TDOUT => $out_f, STDERR => $out_f);
  
    unless ($pass) {
      my $file = Parrot::Test::slurp_file($out <==
12	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1078	1183	
==>TDOUT => $out_f, STDERR => $out_f );
    unless ($pass) {
        my $file = Parrot::Test::slurp_file($out <==
12	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1119	1224	
==>TDOUT => $out_f, STDERR => $out_f );
    unless ($pass) {
        my $file = Parrot::Test::slurp_file($out <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396055	396144	
==>/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@ <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397135	397224	
==>/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@ <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398215	398304	
==>/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@ <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399296	399385	
==>/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@ <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400376	400465	
==>/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@ <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401457	401546	
==>/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@ <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402538	402627	
==>/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@ <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403620	403709	
==>/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@ <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380498	380742	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381509	381753	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382521	382765	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383533	383777	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384546	384790	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385676	385920	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386807	387051	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387938	388182	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389070	389314	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390201	390445	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391333	391577	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392465	392709	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631859	632155	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632900	633196	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633942	634238	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635059	635355	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636177	636473	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637295	637591	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079769	1080065	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080833	1081129	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081898	1082194	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082963	1083259	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103212	1103508	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104426	1104722	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579445	579547	
==>, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580750	580852	
==>, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582055	582157	
==>, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583361	583463	
==>, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584578	584680	
==>, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585653	585755	
==>, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586800	586902	
==>, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587986	588088	
==>, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589172	589274	
==>, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590359	590461	
==>, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598094	598196	
==>, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599141	599243	
==>, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159394	159640	
==>cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ] <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160291	160537	
==>cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ] <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161188	161434	
==>cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ] <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162084	162330	
==>cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ] <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162981	163227	
==>cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ] <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163878	164124	
==>cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ] <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176122	176368	
==>cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ] <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177026	177272	
==>cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ] <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177930	178176	
==>cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ] <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178835	179081	
==>cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ] <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179738	179984	
==>cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ] <==
12	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	730	861	
==>$path>.

=cut

sub new
{
    my $self = shift;
    my $path = shift;
    
    return unless defined $path and ! -d $path;
    
    r <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159384	159498	
==>\"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160281	160395	
==>\"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161178	161292	
==>\"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162074	162188	
==>\"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162971	163085	
==>\"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163868	163982	
==>\"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176112	176226	
==>\"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177016	177130	
==>\"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177920	178034	
==>\"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178825	178939	
==>\"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179728	179842	
==>\"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	32220	32319	
==>MC. */\n\t    sig = PF_CONST(PMC_cont(cc)->seg, results[1])->u.key;\n\t}\n    }\n\n    /* If no elem <==
12	/Users/nnunley/parrot/config/auto/perldoc.pm	842	1029	
==>'yes, old version');
        } else {
            if (open FH, "< c99da7c4.tmp") {
                local $/;
                $a = <FH>;
                close FH;
                $version = <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138169	138283	
==>\"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139065	139179	
==>\"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139961	140075	
==>\"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140856	140970	
==>\"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141752	141866	
==>\"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142648	142762	
==>\"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154872	154986	
==>\"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155776	155890	
==>\"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156680	156794	
==>\"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157585	157699	
==>\"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158488	158602	
==>\"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908714	909001	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909610	909897	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910507	910794	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911404	911691	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912302	912589	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913312	913599	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914323	914610	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915334	915621	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916346	916633	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917357	917644	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918369	918656	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919381	919668	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115457	115763	
==>{{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116312	116618	
==>{{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117167	117473	
==>{{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	119498	119804	
==>{{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120353	120659	
==>{{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519745	520051	
==>{{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520600	520906	
==>{{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	521455	521761	
==>{{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522309	522615	
==>{{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523164	523470	
==>{{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	524019	524325	
==>{{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
12	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	526	620	
==>ub is_label {
    return UNIVERSAL::isa(shift(), 'Regex::Ops::Label');
}

=item method label_in <==
12	/Users/nnunley/parrot/config/auto/aio.pm	329	421	
==>t::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining <==
12	/Users/nnunley/parrot/config/auto/cgoto.pm	352	444	
==>t::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining <==
12	/Users/nnunley/parrot/config/auto/env.pm	353	445	
==>t::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining <==
12	/Users/nnunley/parrot/config/auto/gc.pm	705	797	
==>t::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining <==
12	/Users/nnunley/parrot/config/auto/gcc.pm	339	431	
==>t::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining <==
12	/Users/nnunley/parrot/config/auto/inline.pm	355	447	
==>t::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining <==
12	/Users/nnunley/parrot/config/auto/isreg.pm	335	427	
==>t::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining <==
12	/Users/nnunley/parrot/config/auto/memalign.pm	354	446	
==>t::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining <==
12	/Users/nnunley/parrot/config/auto/msvc.pm	359	451	
==>t::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining <==
12	/Users/nnunley/parrot/config/auto/python.pm	416	508	
==>t::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining <==
12	/Users/nnunley/parrot/config/auto/signal.pm	317	409	
==>t::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining <==
12	/Users/nnunley/parrot/config/auto/sizes.pm	333	425	
==>t::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263913	264274	
==>"FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 307,
                  "ARGS" => [
                              "i",
                              " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704553	704851	
==>inline",
                  "CODE" => 790,
                  "ARGS" => [
                              "p",
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451058	451280	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451796	452018	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452535	452757	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453273	453495	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454012	454234	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454866	455088	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455721	455943	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456576	456798	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457430	457652	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458285	458507	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16632	16886	
==>{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	17406	17660	
==>{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18201	18455	
==>{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19010	19264	
==>{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19786	20040	
==>{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20564	20818	
==>{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21364	21618	
==>{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22178	22432	
==>{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305673	305927	
==>{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	306449	306703	
==>{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307242	307496	
==>{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	185	278	
==>s/jako/lib/Jako/Symbol.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use w <==
12	/Users/nnunley/parrot/lib/Pod/Simple.pm	11271	11358	
==>turn;
}


#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
12	/Users/nnunley/parrot/lib/Pod/Simple.pm	5865	5951	
==>turn;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
12	/Users/nnunley/parrot/lib/Pod/Simple.pm	8913	8999	
==>turn;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
12	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3510	3596	
==>turn;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
12	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2115	2201	
==>turn;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
12	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2263	2349	
==>turn;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
12	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	7137	7223	
==>turn;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
12	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15530	15616	
==>turn;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
12	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3040	3126	
==>turn;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
12	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	755	841	
==>turn;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
12	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2366	2452	
==>turn;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
12	/Users/nnunley/parrot/lib/Pod/Simple.pm	7553	7638	
==>turn
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578750	579046	
==>ss",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580054	580350	
==>ss",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581359	581655	
==>ss",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582664	582960	
==>ss",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586119	586415	
==>ss",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587304	587600	
==>ss",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588490	588786	
==>ss",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589676	589972	
==>ss",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590863	591159	
==>ss",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592072	592368	
==>ss",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593282	593578	
==>ss",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594492	594788	
==>ss",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
12	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6308	6407	
==>{  # it's a blank line
      if(!$self->{'start_of_pod_block'} and @$paras and $paras->[-1][0] eq '~ <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	779	872	
==>p, $right) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Bl <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	807	900	
==>p, $right) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Bl <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	491	584	
==>p, $right) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Bl <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822227	822320	
==>tx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\") <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823295	823388	
==>tx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\") <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824362	824455	
==>tx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\") <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825433	825526	
==>tx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\") <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826503	826596	
==>tx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\") <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827573	827666	
==>tx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\") <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828642	828735	
==>tx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\") <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829710	829803	
==>tx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\") <==
12	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	1816	1945	
==>6[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', ' <==
12	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	1954	2083	
==>6[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', ' <==
12	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2092	2221	
==>6[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', ' <==
12	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2230	2359	
==>6[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', ' <==
12	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2368	2497	
==>6[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', ' <==
12	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2507	2636	
==>6[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', ' <==
12	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2646	2775	
==>6[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', ' <==
12	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2785	2914	
==>6[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', ' <==
12	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2924	3053	
==>6[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', ' <==
12	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3063	3192	
==>6[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', ' <==
12	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3202	3331	
==>6[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', ' <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	513241	513330	
==>Y" => "#line 695 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}}->vtable->neg(interpreter, {{\@2 <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380501	380781	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381512	381792	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382524	382804	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383536	383816	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384549	384829	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385679	385959	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386810	387090	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387941	388221	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389073	389353	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390204	390484	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391336	391616	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392468	392748	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870457	870794	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871473	871810	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872490	872827	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873507	873844	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874525	874862	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875542	875879	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876560	876897	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877578	877915	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904661	904998	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905679	906016	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906698	907035	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907717	908054	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
12	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13692	13788	
==>$line, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the nu <==
12	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29475	29571	
==>$line, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the nu <==
12	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30117	30213	
==>$line, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the nu <==
12	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31342	31438	
==>$line, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the nu <==
12	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32955	33051	
==>$line, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the nu <==
12	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34643	34739	
==>$line, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the nu <==
12	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35973	36069	
==>$line, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the nu <==
12	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37918	38014	
==>$line, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the nu <==
12	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39962	40058	
==>$line, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the nu <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123832	123922	
==>line 257 \"src/ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4}} <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124706	124796	
==>line 257 \"src/ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4}} <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125580	125670	
==>line 257 \"src/ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4}} <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	287742	288071	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288597	288926	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289453	289782	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290309	290638	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291154	291483	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292000	292329	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292846	293175	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293721	294050	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294597	294926	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295473	295802	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
12	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2093	2198	
==>pogated to this instruction. If we do then we should also
    # clear up any lazy moves.
	my $pir .= <<'PI <==
12	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	10562	10657	
==>me, $L_trymatch, $L_backup, $num_groups, $startup) = @_;

    my $trymatch = $self->output_label <==
12	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3380	3472	
==>P0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = st <==
12	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4234	4326	
==>P0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = st <==
12	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5142	5234	
==>P0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = st <==
12	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8054	8146	
==>P0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = st <==
12	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8911	9003	
==>P0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = st <==
12	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11819	11911	
==>P0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = st <==
12	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2127	2219	
==>P0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = st <==
12	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2650	2742	
==>P0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = st <==
12	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3379	3471	
==>P0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = st <==
12	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6008	6100	
==>P0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = st <==
12	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6566	6658	
==>P0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = st <==
12	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8882	8974	
==>P0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = st <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579381	579496	
==>}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\ <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580686	580801	
==>}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\ <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581991	582106	
==>}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\ <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583297	583412	
==>}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\ <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584514	584629	
==>}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\ <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585589	585704	
==>}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\ <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586736	586851	
==>}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\ <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587922	588037	
==>}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\ <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589108	589223	
==>}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\ <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590295	590410	
==>}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\ <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598030	598145	
==>}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\ <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599077	599192	
==>}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\ <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631937	632255	
==>" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632978	633296	
==>" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634020	634338	
==>" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635137	635455	
==>" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636255	636573	
==>" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637373	637691	
==>" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079847	1080165	
==>" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080911	1081229	
==>" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081976	1082294	
==>" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083041	1083359	
==>" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103290	1103608	
==>" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104504	1104822	
==>" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	278912	279234	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAG <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279766	280088	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAG <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	280621	280943	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAG <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	281476	281798	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAG <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	282320	282642	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAG <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283165	283487	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAG <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284010	284332	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAG <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284886	285208	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAG <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285763	286085	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAG <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286640	286962	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAG <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607519	607610	
==>Y" => "#line 473 \"src/ops/object.ops\"\n    {{\@1}} = VTABLE_get_attr(interpreter, {{\@2}}, <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608423	608514	
==>Y" => "#line 473 \"src/ops/object.ops\"\n    {{\@1}} = VTABLE_get_attr(interpreter, {{\@2}}, <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	491	610	
==>:Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shift;
        
    return $se <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	475	590	
==>:Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shift;
    
    return $se <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	486	592	
==>:Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $se <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	474	580	
==>:Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $se <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	482	588	
==>:Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $se <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/EditorPlugins.pm	513	619	
==>:Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $se <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	442	548	
==>:Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $se <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	451	557	
==>:Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $se <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Ops.pm	454	560	
==>:Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $se <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	460	566	
==>:Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $se <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tests.pm	455	561	
==>:Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $se <==
12	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	18795	18891	
==>item = ${$self->{items}}[$i];

		$code .= preitempos() if $parser->{_check}{itempos};

		$code .= <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578700	578910	
==>T_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580004	580214	
==>T_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581309	581519	
==>T_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582614	582824	
==>T_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586069	586279	
==>T_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587254	587464	
==>T_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588440	588650	
==>T_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589626	589836	
==>T_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590813	591023	
==>T_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592022	592232	
==>T_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593232	593442	
==>T_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594442	594652	
==>T_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	504	623	
==>n );

=item C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shift;
        
    return $self->SUPER::ne <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	488	603	
==>n );

=item C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shift;
    
    return $self->SUPER::ne <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	499	605	
==>n );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::ne <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	487	593	
==>n );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::ne <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	495	601	
==>n );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::ne <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/EditorPlugins.pm	526	632	
==>n );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::ne <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	455	561	
==>n );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::ne <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	464	570	
==>n );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::ne <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Ops.pm	467	573	
==>n );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::ne <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	473	579	
==>n );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::ne <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tests.pm	468	574	
==>n );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::ne <==
12	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	1444	1539	
==>describe_file() - it shouldn't both `cat` and dispatch
on file suffix.

=item * Finish making th <==
12	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3384	3475	
==>= "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack <==
12	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4238	4329	
==>= "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack <==
12	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5146	5237	
==>= "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack <==
12	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8058	8149	
==>= "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack <==
12	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8915	9006	
==>= "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack <==
12	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11823	11914	
==>= "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack <==
12	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2131	2222	
==>= "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack <==
12	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2654	2745	
==>= "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack <==
12	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3383	3474	
==>= "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack <==
12	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6012	6103	
==>= "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack <==
12	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6570	6661	
==>= "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack <==
12	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8886	8977	
==>= "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381094	381185	
==>\"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382106	382197	
==>\"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383118	383209	
==>\"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384131	384222	
==>\"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385215	385306	
==>\"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386346	386437	
==>\"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387477	387568	
==>\"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388609	388700	
==>\"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389740	389831	
==>\"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390872	390963	
==>\"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392004	392095	
==>\"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393137	393228	
==>\"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	117	211	
==>ame license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Blo <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	124	218	
==>ame license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Blo <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	117	211	
==>ame license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Blo <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	115	209	
==>ame license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Blo <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	119	213	
==>ame license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Blo <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	117	211	
==>ame license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Blo <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	117	211	
==>ame license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Blo <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	121	215	
==>ame license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Blo <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	118	212	
==>ame license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Blo <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	118	212	
==>ame license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Blo <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	119	213	
==>ame license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Blo <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	116	210	
==>ame license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Blo <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380493	380705	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381504	381716	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382516	382728	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383528	383740	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384541	384753	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385671	385883	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386802	387014	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387933	388145	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389065	389277	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390196	390408	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391328	391540	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392460	392672	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380372	380660	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDI <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381383	381671	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDI <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382395	382683	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDI <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383407	383695	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDI <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384420	384708	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDI <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385550	385838	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDI <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386681	386969	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDI <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387812	388100	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDI <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388944	389232	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDI <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390075	390363	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDI <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391207	391495	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDI <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392339	392627	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDI <==
12	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3390	3498	
==>${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = conc <==
12	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4244	4352	
==>${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = conc <==
12	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5152	5260	
==>${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = conc <==
12	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8064	8172	
==>${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = conc <==
12	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8921	9029	
==>${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = conc <==
12	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11829	11937	
==>${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = conc <==
12	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2137	2245	
==>${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = conc <==
12	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2660	2768	
==>${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = conc <==
12	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3389	3497	
==>${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = conc <==
12	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6018	6126	
==>${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = conc <==
12	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6576	6684	
==>${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = conc <==
12	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8892	9000	
==>${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = conc <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221844	222127	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222786	223069	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223727	224010	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224669	224952	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225609	225892	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226550	226833	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227529	227812	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228509	228792	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	229458	229741	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge <==
12	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7019	7179	
==>lue=undef;
                next;
            };

            #reduce
            my($lhs,$len,$code,@sempar,$semval);
            ($lhs,$len,$code)=@{$$rul <==
12	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6693	6847	
==>lue=undef;
                next;
            };

            #reduce
            my($lhs,$len,$code,@sempar,$semval);
            ($lhs,$len,$code)=@{$$rul <==
12	/Users/nnunley/parrot/lib/Text/Balanced.pm	16589	16709	
==>r($$textref, pos($$textref), 20) .
			     q{..."},
		         pos $$textref;
		return; 
	}
	$oppos = pos($$textref);

	m <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	441	540	
==>e strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new sectio <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	429	528	
==>e strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new sectio <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	437	536	
==>e strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new sectio <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/EditorPlugins.pm	468	567	
==>e strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new sectio <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	397	496	
==>e strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new sectio <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	430	529	
==>e strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new sectio <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	446	545	
==>e strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new sectio <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	406	505	
==>e strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new sectio <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Ops.pm	409	508	
==>e strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new sectio <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	415	514	
==>e strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new sectio <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tests.pm	410	509	
==>e strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new sectio <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	4378	4469	
==>text =~ m{^(next|last|redo|goto|return)(?!\w)(.*)$}) {
      push @tokens, Jako::Token->new( <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631880	632230	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632921	633271	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633963	634313	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635080	635430	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636198	636548	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637316	637666	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079790	1080140	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080854	1081204	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081919	1082269	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082984	1083334	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103233	1103583	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104447	1104797	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function" <==
12	/Users/nnunley/parrot/config/auto/aio.pm	322	416	
==>w(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determ <==
12	/Users/nnunley/parrot/config/auto/cgoto.pm	345	439	
==>w(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determ <==
12	/Users/nnunley/parrot/config/auto/env.pm	346	440	
==>w(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determ <==
12	/Users/nnunley/parrot/config/auto/gc.pm	698	792	
==>w(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determ <==
12	/Users/nnunley/parrot/config/auto/gcc.pm	332	426	
==>w(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determ <==
12	/Users/nnunley/parrot/config/auto/inline.pm	348	442	
==>w(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determ <==
12	/Users/nnunley/parrot/config/auto/isreg.pm	328	422	
==>w(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determ <==
12	/Users/nnunley/parrot/config/auto/memalign.pm	347	441	
==>w(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determ <==
12	/Users/nnunley/parrot/config/auto/msvc.pm	352	446	
==>w(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determ <==
12	/Users/nnunley/parrot/config/auto/python.pm	409	503	
==>w(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determ <==
12	/Users/nnunley/parrot/config/auto/signal.pm	310	404	
==>w(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determ <==
12	/Users/nnunley/parrot/config/auto/sizes.pm	326	420	
==>w(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determ <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138186	138450	
==>\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139082	139346	
==>\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139978	140242	
==>\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140873	141137	
==>\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141769	142033	
==>\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142665	142929	
==>\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154889	155153	
==>\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155793	156057	
==>\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156697	156961	
==>\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157602	157866	
==>\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158505	158769	
==>\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	168	249	
==>parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm 19606 2006-05-30T15:08: <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95015	95320	
==>\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95908	96213	
==>\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96801	97106	
==>\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111337	111642	
==>\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112229	112534	
==>\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113121	113426	
==>\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135546	135851	
==>\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136440	136745	
==>\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858716	859021	
==>\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859720	860025	
==>\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860724	861029	
==>\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861729	862034	
==>\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908589	908886	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909485	909782	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910382	910679	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911279	911576	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912177	912474	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913187	913484	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914198	914495	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915209	915506	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916221	916518	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917232	917529	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918244	918541	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919256	919553	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143033	143330	
==>E" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143960	144257	
==>E" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144888	145185	
==>E" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145816	146113	
==>E" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146751	147048	
==>E" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147691	147988	
==>E" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148632	148929	
==>E" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149572	149869	
==>E" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150513	150810	
==>E" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151490	151787	
==>E" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
12	/Users/nnunley/parrot/languages/lua/Lua/build.pm	40145	40309	
==>( $op->{result} eq 'break' ) {
                    $parser->Error("no loop to break\n");
                }
            }
        }
        unshift @{ $parser->Y <==
12	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39072	39216	
==>( $op->{result} eq 'break' ) {
                $parser->Error("no loop to break\n");
            }
        }
    }
    unshift @{ $parser->Y <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579443	579530	
==>er, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, { <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580748	580835	
==>er, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, { <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582053	582140	
==>er, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, { <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583359	583446	
==>er, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, { <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584576	584663	
==>er, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, { <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585651	585738	
==>er, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, { <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586798	586885	
==>er, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, { <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587984	588071	
==>er, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, { <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589170	589257	
==>er, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, { <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590357	590444	
==>er, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, { <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598092	598179	
==>er, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, { <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599139	599226	
==>er, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, { <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138177	138359	
==>s/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139073	139255	
==>s/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139969	140151	
==>s/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140864	141046	
==>s/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141760	141942	
==>s/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142656	142838	
==>s/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154880	155062	
==>s/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155784	155966	
==>s/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156688	156870	
==>s/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157593	157775	
==>s/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158496	158678	
==>s/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
12	/Users/nnunley/parrot/lib/Test/Builder.pm	761	942	
==>\[$@%]) {
            my $type = ref $_[0];
            my $data;

            if( $type eq 'HASH' ) {
                %$data = %{$_[0]};
            }
            elsif( $type eq 'A <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159414	159686	
==>@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160311	160583	
==>@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161208	161480	
==>@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162104	162376	
==>@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163001	163273	
==>@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163898	164170	
==>@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176142	176414	
==>@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177046	177318	
==>@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177950	178222	
==>@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178855	179127	
==>@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179758	180030	
==>@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
12	/Users/nnunley/parrot/lib/Pod/Simple.pm	48293	48406	
==>::croak "But $class->_duo takes two parameters, not: @_"
   unless @_ == 2;

  my(@out);
  
  while( @_ ) {
    my <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327152	327425	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "co <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327954	328227	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "co <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	531232	531505	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "co <==
12	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5308	5401	
==>result
EQ_${eqnum}_a:
	eq $a2, $ot2, EQ_$eqnum
	inc $result
EQ_$eqnum: ne $result, 2.0, EQ_${e <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95013	95318	
==>{{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95906	96211	
==>{{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96799	97104	
==>{{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111335	111640	
==>{{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112227	112532	
==>{{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113119	113424	
==>{{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135544	135849	
==>{{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136438	136743	
==>{{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858714	859019	
==>{{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859718	860023	
==>{{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860722	861027	
==>{{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861727	862032	
==>{{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	122	214	
==>icense
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/ <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	129	221	
==>icense
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/ <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	122	214	
==>icense
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/ <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	120	212	
==>icense
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/ <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	124	216	
==>icense
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/ <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	122	214	
==>icense
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/ <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	122	214	
==>icense
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/ <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	126	218	
==>icense
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/ <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	123	215	
==>icense
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/ <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	123	215	
==>icense
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/ <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	124	216	
==>icense
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/ <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	121	213	
==>icense
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/ <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870488	870819	
==>P" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871504	871835	
==>P" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872521	872852	
==>P" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873538	873869	
==>P" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874556	874887	
==>P" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875573	875904	
==>P" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876591	876922	
==>P" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877609	877940	
==>P" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904692	905023	
==>P" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905710	906041	
==>P" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906729	907060	
==>P" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907748	908079	
==>P" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631934	632253	
==>UMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632975	633294	
==>UMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634017	634336	
==>UMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635134	635453	
==>UMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636252	636571	
==>UMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637370	637689	
==>UMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079844	1080163	
==>UMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080908	1081227	
==>UMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081973	1082292	
==>UMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083038	1083357	
==>UMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103287	1103606	
==>UMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104501	1104820	
==>UMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579427	579518	
==>eption(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( in <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580732	580823	
==>eption(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( in <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582037	582128	
==>eption(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( in <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583343	583434	
==>eption(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( in <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584560	584651	
==>eption(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( in <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585635	585726	
==>eption(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( in <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586782	586873	
==>eption(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( in <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587968	588059	
==>eption(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( in <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589154	589245	
==>eption(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( in <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590341	590432	
==>eption(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( in <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598076	598167	
==>eption(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( in <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599123	599214	
==>eption(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( in <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10791	10888	
==>confess "No block!"        unless defined $self and ref $self and $self->isa("Jako::Construct::Blo <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3984	4075	
==>confess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Construct::Blo <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4467	4558	
==>confess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Construct::Blo <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4974	5065	
==>confess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Construct::Blo <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6152	6243	
==>confess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Construct::Blo <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7095	7186	
==>confess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Construct::Blo <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7893	7984	
==>confess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Construct::Blo <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8540	8631	
==>confess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Construct::Blo <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9208	9299	
==>confess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Construct::Blo <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9877	9968	
==>confess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Construct::Blo <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	11808	11899	
==>confess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Construct::Blo <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10377	10467	
==>confess "No block!" unless defined $self and ref $self and $self->isa("Jako::Construct::Blo <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870520	870860	
==>" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871536	871876	
==>" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872553	872893	
==>" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873570	873910	
==>" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874588	874928	
==>" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875605	875945	
==>" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876623	876963	
==>" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877641	877981	
==>" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904724	905064	
==>" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905742	906082	
==>" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906761	907101	
==>" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907780	908120	
==>" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	232	329	
==>6-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Blo <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	246	343	
==>6-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Blo <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	244	341	
==>6-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Blo <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	240	337	
==>6-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Blo <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	248	345	
==>6-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Blo <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	232	329	
==>6-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Blo <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	232	329	
==>6-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Blo <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	245	342	
==>6-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Blo <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	239	336	
==>6-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Blo <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	239	336	
==>6-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Blo <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	236	333	
==>6-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Blo <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	230	327	
==>6-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Blo <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138195	138456	
==>({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139091	139352	
==>({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139987	140248	
==>({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140882	141143	
==>({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141778	142039	
==>({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142674	142935	
==>({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154898	155159	
==>({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155802	156063	
==>({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156706	156967	
==>({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157611	157872	
==>({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158514	158775	
==>({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op <==
12	/Users/nnunley/parrot/languages/python/pie-thon.pl	25993	26104	
==>cmt
EOC
    }
    my $opcode = $code[$code_l]->[2];
    if ($opcode eq 'POP_TOP') {
	print "# POP_TOP\n";
	$code <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16635	16889	
==>{{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	17409	17663	
==>{{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18204	18458	
==>{{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19013	19267	
==>{{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19789	20043	
==>{{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20567	20821	
==>{{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21367	21621	
==>{{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22181	22435	
==>{{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305676	305930	
==>{{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	306452	306706	
==>{{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307245	307499	
==>{{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
12	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	38541	38678	
==>($fors[-1][1]{'target'}) is a non-resolver\n";
            $para->[0] = $para_type = 'Data';
          }
        }
      }

      #~~~~~~~ <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	459	566	
==>base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
    my $self = sh <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	475	582	
==>base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
    my $self = sh <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	470	574	
==>base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = sh <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	458	562	
==>base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = sh <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	466	570	
==>base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = sh <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/EditorPlugins.pm	497	601	
==>base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = sh <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	426	530	
==>base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = sh <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	435	539	
==>base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = sh <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Ops.pm	438	542	
==>base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = sh <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	466	570	
==>base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = sh <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	444	548	
==>base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = sh <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tests.pm	439	543	
==>base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = sh <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870491	870830	
==>=> 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871507	871846	
==>=> 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872524	872863	
==>=> 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873541	873880	
==>=> 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874559	874898	
==>=> 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875576	875915	
==>=> 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876594	876933	
==>=> 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877612	877951	
==>=> 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904695	905034	
==>=> 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905713	906052	
==>=> 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906732	907071	
==>=> 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907751	908090	
==>=> 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833627	833825	
==>ACK_ENTRY_PMC, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	496	615	
==>::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shift;
        
    return $self->S <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	480	595	
==>::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shift;
    
    return $self->S <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	491	597	
==>::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->S <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	479	585	
==>::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->S <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	487	593	
==>::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->S <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/EditorPlugins.pm	518	624	
==>::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->S <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	447	553	
==>::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->S <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	456	562	
==>::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->S <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Ops.pm	459	565	
==>::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->S <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	465	571	
==>::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->S <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tests.pm	460	566	
==>::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->S <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451279	451638	
==>S" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 517,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 225 \" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319502	319766	
==>JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320271	320535	
==>JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321041	321305	
==>JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
12	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	35345	35485	
==>te,
  'round'            => \&_op_round,
  'rationalize'      => \&_op_rationalize,
  'exp'              => \&_op_exp,
  'log'              = <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	555	650	
==>= @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  conf <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	536	631	
==>= @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  conf <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	507	602	
==>= @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  conf <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	443	538	
==>= @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  conf <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	790	885	
==>= @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  conf <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	818	913	
==>= @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  conf <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	502	597	
==>= @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  conf <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	455	560	
==>use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
    my $sel <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	471	576	
==>use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
    my $sel <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	466	568	
==>use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $sel <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	454	556	
==>use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $sel <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	462	564	
==>use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $sel <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/EditorPlugins.pm	493	595	
==>use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $sel <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	422	524	
==>use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $sel <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	431	533	
==>use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $sel <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Ops.pm	434	536	
==>use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $sel <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	462	564	
==>use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $sel <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	440	542	
==>use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $sel <==
12	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tests.pm	435	537	
==>use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $sel <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70929	71201	
==>{{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71698	71970	
==>{{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100438	100710	
==>{{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104886	105158	
==>{{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	252998	253270	
==>{{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450927	451199	
==>{{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	513326	513598	
==>{{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948910	949182	
==>{{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949710	949982	
==>{{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959364	959636	
==>{{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960166	960438	
==>{{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
12	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	3243	3380	
==>};
        bless $self, $class;
        my ( $symb, $klass, $type, $subtype, $name ) = @_;
        $self->{symbol}  = $symb;
        $ <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24002	24251	
==>t}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550478	550727	
==>t}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551779	552028	
==>t}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552970	553219	
==>t}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558383	558632	
==>t}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559767	560016	
==>t}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560988	561237	
==>t}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584745	584994	
==>t}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585820	586069	
==>t}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598235	598484	
==>t}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599282	599531	
==>t}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600357	600606	
==>t}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10794	10905	
==>fess "No block!"        unless defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess " <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3987	4092	
==>fess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess " <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4470	4575	
==>fess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess " <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4977	5082	
==>fess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess " <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6155	6260	
==>fess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess " <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7098	7203	
==>fess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess " <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7896	8001	
==>fess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess " <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8543	8648	
==>fess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess " <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9211	9316	
==>fess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess " <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9880	9985	
==>fess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess " <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	11811	11916	
==>fess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess " <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10380	10484	
==>fess "No block!" unless defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess " <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579408	579510	
==>s)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cst <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580713	580815	
==>s)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cst <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582018	582120	
==>s)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cst <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583324	583426	
==>s)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cst <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584541	584643	
==>s)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cst <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585616	585718	
==>s)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cst <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586763	586865	
==>s)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cst <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587949	588051	
==>s)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cst <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589135	589237	
==>s)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cst <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590322	590424	
==>s)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cst <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598057	598159	
==>s)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cst <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599104	599206	
==>s)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cst <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380442	380665	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" = <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381453	381676	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" = <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382465	382688	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" = <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383477	383700	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" = <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384490	384713	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" = <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385620	385843	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" = <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386751	386974	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" = <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387882	388105	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" = <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389014	389237	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" = <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390145	390368	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" = <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391277	391500	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" = <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392409	392632	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" = <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	602811	603087	
==>, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83843	84118	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "co <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84749	85024	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "co <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85655	85930	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "co <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009143	1009418	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "co <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009907	1010182	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "co <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324767	325041	
==>,{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "co <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325560	325834	
==>,{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "co <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326350	326624	
==>,{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "co <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726054	726328	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943904	944178	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944693	944967	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
12	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	11565	11678	
==>ector, APLVector) # without
    .param pmc op1
    .param pmc op2

    .local pmc result
    result = new 'APLVect <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	244	339	
==>15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statement <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	256	351	
==>15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statement <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	248	343	
==>15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statement <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	250	345	
==>15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statement <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	244	339	
==>15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statement <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	254	349	
==>15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statement <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	244	339	
==>15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statement <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	254	349	
==>15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statement <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	258	353	
==>15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statement <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	242	337	
==>15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statement <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	248	343	
==>15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statement <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539676	539931	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "AR <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540927	541182	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "AR <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542179	542434	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "AR <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066218	1066473	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "AR <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067403	1067658	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "AR <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068589	1068844	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "AR <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069775	1070030	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "AR <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070962	1071217	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "AR <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073146	1073401	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "AR <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075331	1075586	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "AR <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077516	1077771	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "AR <==
12	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	114	207	
==>the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Symbol. <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632799	633123	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633841	634165	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634958	635282	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636076	636400	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637194	637518	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079668	1079992	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080732	1081056	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081797	1082121	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082862	1083186	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103111	1103435	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104325	1104649	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
12	/Users/nnunley/parrot/tools/dev/lib_deps.pl	6868	6959	
==>lied object files.\n", scalar(@internal_symbols), scalar(@files));
    printf("Found %d exte <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578740	579021	
==>=> "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580044	580325	
==>=> "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581349	581630	
==>=> "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582654	582935	
==>=> "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586109	586390	
==>=> "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587294	587575	
==>=> "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588480	588761	
==>=> "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589666	589947	
==>=> "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590853	591134	
==>=> "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592062	592343	
==>=> "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593272	593553	
==>=> "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594482	594763	
==>=> "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380407	380662	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381418	381673	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382430	382685	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383442	383697	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384455	384710	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385585	385840	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386716	386971	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387847	388102	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388979	389234	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390110	390365	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391242	391497	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392374	392629	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159396	159659	
==>p.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160293	160556	
==>p.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161190	161453	
==>p.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162086	162349	
==>p.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162983	163246	
==>p.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163880	164143	
==>p.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176124	176387	
==>p.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177028	177291	
==>p.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177932	178195	
==>p.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178837	179100	
==>p.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, <==
12	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179740	180003	
==>p.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, <==
12	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2592	2693	
==>tml = $CGI->param("smoke");

  my $id = md5_hex $html;
  if(glob "parrot-smoke-*-$id.html") {
    prin <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	287569	287892	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288424	288747	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289280	289603	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290136	290459	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290981	291304	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291827	292150	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292673	292996	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293548	293871	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294424	294747	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295300	295623	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
11	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	450	541	
==>i > src/null_config.c
    % perl tools/build/parrot_config_c.pl --install > src/install_conf <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296240	296565	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297095	297420	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297951	298276	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298807	299132	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299652	299977	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300498	300823	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301344	301669	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302219	302544	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303095	303420	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303971	304296	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
11	/Users/nnunley/parrot/lib/Text/Balanced.pm	5087	5195	
==>rtpos;
		return;
	}

	my @nesting = ( $1 );
	my $textlen = length $$textref;
	while (pos $$textref < $textlen <==
11	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	10681	10793	
==>seg}->{declarations}->{$sym};
			}
			return $sym;
		} elsif ($type eq "STARTARG") {
			return;
		} else {
			die <==
11	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13766	13862	
==>ed to accumulate
the number of lines, C<$out_name> is the name of the output file we are
generati <==
11	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16154	16250	
==>ed to accumulate
the number of lines, C<$out_name> is the name of the output file we are
generati <==
11	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29549	29645	
==>ed to accumulate
the number of lines, C<$out_name> is the name of the output file we are
generati <==
11	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30191	30287	
==>ed to accumulate
the number of lines, C<$out_name> is the name of the output file we are
generati <==
11	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31416	31512	
==>ed to accumulate
the number of lines, C<$out_name> is the name of the output file we are
generati <==
11	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33029	33125	
==>ed to accumulate
the number of lines, C<$out_name> is the name of the output file we are
generati <==
11	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34717	34813	
==>ed to accumulate
the number of lines, C<$out_name> is the name of the output file we are
generati <==
11	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36047	36143	
==>ed to accumulate
the number of lines, C<$out_name> is the name of the output file we are
generati <==
11	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37992	38088	
==>ed to accumulate
the number of lines, C<$out_name> is the name of the output file we are
generati <==
11	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40036	40132	
==>ed to accumulate
the number of lines, C<$out_name> is the name of the output file we are
generati <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	484	609	
==>Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shift;
        
    return $s <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	468	589	
==>Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shift;
    
    return $s <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	479	591	
==>Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $s <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	467	579	
==>Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $s <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	475	587	
==>Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $s <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/EditorPlugins.pm	506	618	
==>Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $s <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	435	547	
==>Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $s <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	444	556	
==>Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $s <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Ops.pm	447	559	
==>Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $s <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	453	565	
==>Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $s <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tests.pm	448	560	
==>Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $s <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	270349	270672	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271194	271517	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272040	272363	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272886	273209	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273731	274054	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	274577	274900	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	275423	275746	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276300	276623	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277178	277501	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	278056	278379	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/config/gen/platform.pm	5349	5491	
==>ERE";
/*
** $_:
*/
#line 1 "$_"
END_HERE
            print PLATFORM_C <IN_C>, "\n\n";
            close IN_C;
        }
    }

    close PLATFO <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296236	296559	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297091	297414	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297947	298270	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298803	299126	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299648	299971	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300494	300817	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301340	301663	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302215	302538	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303091	303414	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303967	304290	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	3286	3401	
==>$stmt };
	    $labels{$curlabel->{label}} = $output2[-1] if $curlabel;
	    undef $curlabel;
	}
    }

    # Second, <==
11	/Users/nnunley/parrot/lib/Test/Builder.pm	33010	33110	
==>uire Test::Simple" 
    # doesn't puke.
    if( ($self->{Original_Pid} != $$) or
	(!$self->{Have_Plan <==
11	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13753	13849	
==><$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output file we <==
11	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16141	16237	
==><$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output file we <==
11	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29536	29632	
==><$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output file we <==
11	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30178	30274	
==><$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output file we <==
11	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31403	31499	
==><$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output file we <==
11	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33016	33112	
==><$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output file we <==
11	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34704	34800	
==><$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output file we <==
11	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36034	36130	
==><$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output file we <==
11	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37979	38075	
==><$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output file we <==
11	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40023	40119	
==><$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output file we <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16625	16885	
==>\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARR <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	17399	17659	
==>\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARR <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18194	18454	
==>\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARR <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19003	19263	
==>\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARR <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19779	20039	
==>\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARR <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20557	20817	
==>\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARR <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21357	21617	
==>\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARR <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22171	22431	
==>\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARR <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305666	305926	
==>\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARR <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	306442	306702	
==>\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARR <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307235	307495	
==>\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARR <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319535	319798	
==>ME" => "conv_i4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320304	320567	
==>ME" => "conv_i4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321074	321337	
==>ME" => "conv_i4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912992	913086	
==>ps\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914003	914097	
==>ps\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915014	915108	
==>ps\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916026	916120	
==>ps\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917037	917131	
==>ps\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918049	918143	
==>ps\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919061	919155	
==>ps\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920074	920168	
==>ps\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138192	138455	
==>if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::O <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139088	139351	
==>if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::O <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139984	140247	
==>if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::O <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140879	141142	
==>if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::O <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141775	142038	
==>if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::O <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142671	142934	
==>if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::O <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154895	155158	
==>if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::O <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155799	156062	
==>if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::O <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156703	156966	
==>if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::O <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157608	157871	
==>if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::O <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158511	158774	
==>if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::O <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324168	324442	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ] <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324960	325234	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ] <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325753	326027	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ] <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326543	326817	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ] <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327344	327618	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ] <==
11	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31769	31872	
==>plements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self-> <==
11	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33346	33449	
==>plements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self-> <==
11	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35057	35160	
==>plements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self-> <==
11	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36360	36463	
==>plements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self-> <==
11	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38307	38410	
==>plements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self-> <==
11	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40403	40506	
==>plements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self-> <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159395	159658	
==>mp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                } <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160292	160555	
==>mp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                } <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161189	161452	
==>mp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                } <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162085	162348	
==>mp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                } <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162982	163245	
==>mp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                } <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163879	164142	
==>mp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                } <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176123	176386	
==>mp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                } <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177027	177290	
==>mp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                } <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177931	178194	
==>mp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                } <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178836	179099	
==>mp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                } <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179739	180002	
==>mp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                } <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147336	147608	
==>1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148277	148549	
==>1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149217	149489	
==>1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150158	150430	
==>1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061282	1061491	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061953	1062162	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062822	1063031	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063691	1063900	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064561	1064770	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065434	1065643	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7660	7752	
==>C<short_description()>

Returns a short description of the file extracted from the C<NAME> se <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70930	71206	
==>{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71699	71975	
==>{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100439	100715	
==>{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104887	105163	
==>{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	252999	253275	
==>{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450928	451204	
==>{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	513327	513603	
==>{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948911	949187	
==>{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949711	949987	
==>{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959365	959641	
==>{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960167	960443	
==>{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038744	1039071	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039635	1039962	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040527	1040854	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041419	1041746	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042312	1042639	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043208	1043535	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044105	1044432	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044998	1045325	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045892	1046219	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046786	1047113	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
11	/Users/nnunley/parrot/tools/build/ops2c.pl	1505	1601	
==>he Parrot core opcode library.

=item C<--no-lines>

Do not generate C<#line> directives in the g <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	506	624	
==>);

=item C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shift;
        
    return $self->SUPER::new <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	490	604	
==>);

=item C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shift;
    
    return $self->SUPER::new <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	501	606	
==>);

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	489	594	
==>);

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	497	602	
==>);

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/EditorPlugins.pm	528	633	
==>);

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	457	562	
==>);

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	466	571	
==>);

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Ops.pm	469	574	
==>);

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	475	580	
==>);

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tests.pm	470	575	
==>);

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185491	185788	
==>> "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186420	186717	
==>> "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187350	187647	
==>> "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188280	188577	
==>> "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189221	189518	
==>> "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190161	190458	
==>> "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191102	191399	
==>> "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192041	192338	
==>> "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192981	193278	
==>> "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193959	194256	
==>> "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
11	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	7624	7783	
==>),
                        $self->dbprint("pushing end[$group]: "),
                        aop('pushint', [ '<tmp>' ]),
                        aop('setstart', <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	287708	287970	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288563	288825	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289419	289681	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290275	290537	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291120	291382	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291966	292228	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292812	293074	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293687	293949	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294563	294825	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295439	295701	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
11	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	12379	12498	
==>y deleted, so you may not want
    to link directly to a smoke.
  </p>
    
  <p> 
    Note: Timezone is UTC.<br />
  </ <==
11	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25709	25828	
==>'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 132,
			'functioncall' => 31,
			'function' => 2 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871136	871245	
==>1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "L <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872153	872262	
==>1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "L <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873170	873279	
==>1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "L <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874188	874297	
==>1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "L <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875205	875314	
==>1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "L <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876223	876332	
==>1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "L <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877241	877350	
==>1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "L <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878260	878369	
==>1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "L <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791610	791699	
==>\@1}} = {{\@2}}->vtable->get_pmc_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792517	792606	
==>\@1}} = {{\@2}}->vtable->get_pmc_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	287564	287887	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIR <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288419	288742	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIR <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289275	289598	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIR <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290131	290454	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIR <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290976	291299	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIR <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291822	292145	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIR <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292668	292991	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIR <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293543	293866	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIR <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294419	294742	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIR <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295295	295618	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIR <==
11	/Users/nnunley/parrot/config/gen/makefiles.pm	1804	1969	
==>_pl.in' => 'tools/build/dynoplibs.pl',
        commentType                             => '#',
        replace_slashes                         => 0,
        condition <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632754	633077	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDI <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633796	634119	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDI <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634913	635236	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDI <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636031	636354	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDI <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637149	637472	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDI <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080687	1081010	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDI <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081752	1082075	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDI <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082817	1083140	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDI <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103066	1103389	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDI <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104280	1104603	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDI <==
11	/Users/nnunley/parrot/lib/Text/Balanced.pm	39184	39279	
==>ct_tagged> returns the complete text up to the point of failure.
If the string is "PARA", C<extr <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451090	451282	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451828	452020	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452567	452759	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453305	453497	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454044	454236	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454898	455090	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455753	455945	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456608	456800	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457462	457654	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458317	458509	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
11	/Users/nnunley/parrot/tools/build/ops2c.pl	3517	3615	
==>ynoplibs/! || $dynamic_flag) {
    $source  =~ s!src/ops/!!;
    $header = "${base}_ops${suffix}.h" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279113	279422	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279967	280276	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	280822	281131	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	281677	281986	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	282521	282830	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283366	283675	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284211	284520	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285087	285396	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285964	286273	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286841	287150	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
11	/Users/nnunley/parrot/lib/Test/More.pm	32943	33048	
==>1 : $a cmp $b } @$a2]
    );
}

=back


=head2 Extending and Embedding Test::More

Sometimes the Test::Mor <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039423	1039726	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040315	1040618	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041207	1041510	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042100	1042403	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042996	1043299	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043893	1044196	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044786	1045089	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045680	1045983	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046574	1046877	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global <==
11	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25642	25752	
==>temp);
  } else {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $te <==
11	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27540	27650	
==>temp);
  } else {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $te <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	270347	270670	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDI <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271192	271515	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDI <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272038	272361	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDI <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272884	273207	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDI <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273729	274052	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDI <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	274575	274898	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDI <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	275421	275744	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDI <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276298	276621	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDI <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277176	277499	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDI <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	278054	278377	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDI <==
11	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	37341	37442	
==>f'    => \&_op_string_ref,
  'string-set!'   => \&_op_string_set_bang,
  'string=?'      => \&_op_stri <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579708	579993	
==>);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADD <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581013	581298	
==>);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADD <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582318	582603	
==>);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADD <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583624	583909	
==>);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADD <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586958	587243	
==>);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADD <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588144	588429	
==>);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADD <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589330	589615	
==>);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADD <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590517	590802	
==>);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADD <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591726	592011	
==>);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADD <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592936	593221	
==>);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADD <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594146	594431	
==>);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADD <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	270543	270862	
==>( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271388	271707	
==>( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272234	272553	
==>( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273080	273399	
==>( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273925	274244	
==>( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	274771	275090	
==>( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	275617	275936	
==>( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276494	276813	
==>( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277372	277691	
==>( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	278250	278569	
==>( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87340	87477	
==>"s"
                            ],
                  "BODY" => "#line 1215 \"src/ops/core.ops\"\n  {{\@1}} = Parrot_make_cb(interpreter, { <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279109	279387	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279963	280241	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	280818	281096	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	281673	281951	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	282517	282795	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283362	283640	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284207	284485	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285083	285361	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285960	286238	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286837	287115	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
11	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	530	629	
==>tests) returns Void is export {
    $Test::testing_started = 1;
    $Test::num_of_tests_planned = $n <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296404	296733	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297259	297588	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298115	298444	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298971	299300	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299816	300145	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300662	300991	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301508	301837	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302383	302712	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303259	303588	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	304135	304464	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
11	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	46889	47042	
==>PushScope( $_[0] );
        }
	],
	[#Rule 12
		 'stat', 4,
sub
#line 100 "Lua\lua51.yp"
{
            $_[3];
        }
	],
	[#Rule 13
		 '@2-1 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64840	65091	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173744	174103	
==>ase_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 208,
                  "ARGS" => [
                              "p",
                              " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154364	154660	
==>addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155267	155563	
==>addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156171	156467	
==>addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157075	157371	
==>addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157980	158276	
==>addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175604	175900	
==>addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176507	176803	
==>addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177411	177707	
==>addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178315	178611	
==>addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179220	179516	
==>addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
11	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13137	13255	
==>If we are not currently 'inside' a block, then we've got no business
      # seeing a close-brace.
      #

      $self <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049618	1049915	
==>ME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050651	1050948	
==>ME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051685	1051982	
==>ME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052719	1053016	
==>ME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053754	1054051	
==>ME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054880	1055177	
==>ME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055989	1056286	
==>ME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056880	1057177	
==>ME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057772	1058069	
==>ME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058664	1058961	
==>ME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
11	/Users/nnunley/parrot/lib/Pod/Simple.pm	13754	13866	
==>o we tolerate being a class method
  
  if(!defined $source)             { $source = *STDIN{IO}
  } elsif(ref(\$s <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	444	558	
==>warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
    my $s <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	460	574	
==>warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
    my $s <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	455	566	
==>warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $s <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	443	554	
==>warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $s <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	451	562	
==>warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $s <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/EditorPlugins.pm	482	593	
==>warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $s <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	411	522	
==>warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $s <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	420	531	
==>warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $s <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Ops.pm	423	534	
==>warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $s <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	429	540	
==>warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $s <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tests.pm	424	535	
==>warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $s <==
11	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	1867	1965	
==>}) . 
    " $args " . File::Spec->join($path_to_tcl, 'tcl.pbc');
    if (defined($ENV{PARROT_TCLSH} <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263893	264242	
==>,
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 307,
                  "ARGS" => [
                              "i", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451024	451279	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451762	452017	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452501	452756	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453239	453494	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453978	454233	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454832	455087	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455687	455942	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456542	456797	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457396	457651	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458251	458506	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632798	633122	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633840	634164	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634957	635281	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636075	636399	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637193	637517	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079667	1079991	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080731	1081055	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081796	1082120	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082861	1083185	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103110	1103434	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104324	1104648	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159397	159664	
==>.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160294	160561	
==>.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161191	161458	
==>.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162087	162354	
==>.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162984	163251	
==>.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163881	164148	
==>.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176125	176392	
==>.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177029	177296	
==>.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177933	178200	
==>.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178838	179105	
==>.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179741	180008	
==>.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159415	159689	
==>1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160312	160586	
==>1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161209	161483	
==>1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162105	162379	
==>1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163002	163276	
==>1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163899	164173	
==>1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176143	176417	
==>1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177047	177321	
==>1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177951	178225	
==>1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178856	179130	
==>1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179759	180033	
==>1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279090	279351	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279944	280205	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	280799	281060	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	281654	281915	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	282498	282759	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283343	283604	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284188	284449	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285064	285325	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285941	286202	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286818	287079	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
11	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	47005	47109	
==>ormatting_codes {
  # Given a paragraph, returns a treelet.  Full of scary tokenizing code.
  #  Like [ ' <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143034	143331	
==>" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143961	144258	
==>" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144889	145186	
==>" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145817	146114	
==>" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146752	147049	
==>" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147692	147989	
==>" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148633	148930	
==>" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149573	149870	
==>" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150514	150811	
==>" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151491	151788	
==>" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
11	/Users/nnunley/parrot/tools/dev/nm.pl	7260	7396	
==>~ /^[Ss]$/) {
			$small  = 1;
			$uninit = 1;
		    }
		    $zeroed = 1;
		}
		if ($^O eq 'irix' && $type =~ /^[Rr]$/) {
		    $const = 1 <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	439	539	
==>use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new secti <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	427	527	
==>use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new secti <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	435	535	
==>use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new secti <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/EditorPlugins.pm	466	566	
==>use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new secti <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	395	495	
==>use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new secti <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	428	528	
==>use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new secti <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	444	544	
==>use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new secti <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	404	504	
==>use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new secti <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Ops.pm	407	507	
==>use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new secti <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	413	513	
==>use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new secti <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tests.pm	408	508	
==>use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new secti <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16636	16893	
==>{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	17410	17667	
==>{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18205	18462	
==>{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19014	19271	
==>{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19790	20047	
==>{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20568	20825	
==>{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21368	21625	
==>{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22182	22439	
==>{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305677	305934	
==>{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	306453	306710	
==>{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307246	307503	
==>{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	492	614	
==>Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shift;
        
    return $self-> <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	476	594	
==>Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shift;
    
    return $self-> <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	487	596	
==>Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self-> <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	475	584	
==>Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self-> <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	483	592	
==>Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self-> <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/EditorPlugins.pm	514	623	
==>Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self-> <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	443	552	
==>Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self-> <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	452	561	
==>Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self-> <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Ops.pm	455	564	
==>Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self-> <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	461	570	
==>Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self-> <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tests.pm	456	565	
==>Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self-> <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476470	476679	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477365	477574	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478261	478470	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479152	479361	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480044	480253	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481046	481255	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482049	482258	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483052	483261	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484050	484259	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485049	485258	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
11	/Users/nnunley/parrot/lib/Text/Balanced.pm	724	824	
==>TURN VALUES IN VARIOUS CONTEXTS

sub _failmsg {
	my ($message, $pos) = @_;
	$@ = bless { error=>$mess <==
11	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	775	891	
==>return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => ' <==
11	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1788	1904	
==>return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => ' <==
11	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	2403	2519	
==>return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => ' <==
11	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	3731	3847	
==>return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => ' <==
11	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	3530	3646	
==>return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => ' <==
11	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	4192	4308	
==>return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => ' <==
11	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1603	1719	
==>return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => ' <==
11	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	3249	3365	
==>return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => ' <==
11	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1420	1536	
==>return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => ' <==
11	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1414	1530	
==>return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => ' <==
11	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	1257	1373	
==>return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => ' <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516062	516317	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516800	517055	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517539	517794	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518277	518532	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519016	519271	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519870	520125	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520725	520980	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	521580	521835	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522434	522689	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523289	523544	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1108399	1108519	
==>rpreter, NULL, NO_CLASS,\n                    \"Class '%Ss' not found\", PMC_str_val({{\@2}}));\n            {{\@1}} = pm <==
11	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13750	13846	
==>. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output file <==
11	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16138	16234	
==>. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output file <==
11	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29533	29629	
==>. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output file <==
11	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30175	30271	
==>. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output file <==
11	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31400	31496	
==>. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output file <==
11	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33013	33109	
==>. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output file <==
11	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34701	34797	
==>. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output file <==
11	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36031	36127	
==>. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output file <==
11	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37976	38072	
==>. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output file <==
11	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40020	40116	
==>. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output file <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196429	196523	
==>_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_NUMCMP) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	278989	279314	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279843	280168	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	280698	281023	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	281553	281878	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	282397	282722	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283242	283567	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284087	284412	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284963	285288	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285840	286165	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286717	287042	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
11	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	255	357	
==>rint <<HEADING;
Name & Done & Total & Percent \\\\
\\hline
HEADING
foreach (@results) {
	print "$_ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432517	432836	
==>{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433532	433851	
==>{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434546	434865	
==>{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435561	435880	
==>{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436575	436894	
==>{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437590	437909	
==>{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438604	438923	
==>{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
11	/Users/nnunley/parrot/tools/build/dynclasses.pl	3684	3786	
==>oup_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert <==
11	/Users/nnunley/parrot/tools/build/dynclasses.pl	4045	4147	
==>oup_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert <==
11	/Users/nnunley/parrot/tools/build/dynpmc.pl	3788	3890	
==>oup_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert <==
11	/Users/nnunley/parrot/tools/build/dynpmc.pl	4149	4251	
==>oup_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296428	296747	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297283	297602	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298139	298458	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298995	299314	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299840	300159	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300686	301005	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301532	301851	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302407	302726	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303283	303602	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	304159	304478	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
11	/Users/nnunley/parrot/lib/Parrot/Op.pm	8326	8421	
==>ck

=head1 SEE ALSO

=over 4

=item C<Parrot::OpsFile>

=item C<Parrot::OpTrans>

=item F<tools/ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296454	296772	
==>UMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297309	297627	
==>UMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298165	298483	
==>UMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299021	299339	
==>UMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299866	300184	
==>UMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300712	301030	
==>UMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301558	301876	
==>UMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302433	302751	
==>UMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303309	303627	
==>UMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	304185	304503	
==>UMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
11	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	941	1049	
==>turn "re_opengroup P0, $n";
}

sub output_end {
    my ($self, $n) = @_;
    return "re_closegroup P0, $n";
} <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159385	159608	
==>"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160282	160505	
==>"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161179	161402	
==>"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162075	162298	
==>"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162972	163195	
==>"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163869	164092	
==>"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176113	176336	
==>"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177017	177240	
==>"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177921	178144	
==>"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178826	179049	
==>"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179729	179952	
==>"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138170	138284	
==>"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139066	139180	
==>"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139962	140076	
==>"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140857	140971	
==>"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141753	141867	
==>"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142649	142763	
==>"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154873	154987	
==>"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155777	155891	
==>"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156681	156795	
==>"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157586	157700	
==>"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158489	158603	
==>"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16649	16901	
==>}\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	17423	17675	
==>}\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18218	18470	
==>}\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19027	19279	
==>}\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19803	20055	
==>}\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20581	20833	
==>}\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21381	21633	
==>}\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305690	305942	
==>}\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	306466	306718	
==>}\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307259	307511	
==>}\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE <==
11	/Users/nnunley/parrot/lib/Text/Balanced.pm	54559	54656	
==>ion (like $` in a pattern match). Note that this is designed
to facilitate the use of other Text:: <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143030	143328	
==>NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143957	144255	
==>NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144885	145183	
==>NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145813	146111	
==>NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146748	147046	
==>NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147688	147986	
==>NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148629	148927	
==>NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149569	149867	
==>NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150510	150808	
==>NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151487	151785	
==>NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
11	/Users/nnunley/parrot/lib/Text/Balanced.pm	55776	55873	
==>tor), or returns an empty list or an undefined value (in the case of a subroutine extractor), it i <==
11	/Users/nnunley/parrot/tools/dev/lib_deps.pl	7067	7166	
==>ar(@non_ansi_external_symbols));

    print "    $_ (in " . (join ',', @{$referenced_in{$_}}) . ")\n <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	287731	288040	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288586	288895	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289442	289751	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290298	290607	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291143	291452	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291989	292298	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292835	293144	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293710	294019	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294586	294895	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295462	295771	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
11	/Users/nnunley/parrot/lib/Test/More.pm	5379	5481	
==>sic multi-variable
  not ok 5 - simple exponential
  ok 6 - force == mass * acceleration

The later giv <==
11	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	122	222	
==>ame license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Statement <==
11	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	123	223	
==>ame license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Statement <==
11	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	119	219	
==>ame license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Statement <==
11	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	120	220	
==>ame license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Statement <==
11	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	117	217	
==>ame license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Statement <==
11	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	122	222	
==>ame license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Statement <==
11	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	117	217	
==>ame license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Statement <==
11	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	122	222	
==>ame license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Statement <==
11	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	124	224	
==>ame license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Statement <==
11	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	116	216	
==>ame license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Statement <==
11	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	119	219	
==>ame license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Statement <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511014	511269	
==>.ops\"\n  {{\@1}} = - {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511752	512007	
==>.ops\"\n  {{\@1}} = - {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
11	/Users/nnunley/parrot/tools/docs/pod_errors.pl	103	195	
==>7 2006-05-30T15:23:20.183054Z coke  $

=head1 NAME

tools/docs/pod_errors.pl - Reports POD er <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879342	879431	
==>interpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880446	880535	
==>interpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881550	881639	
==>interpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882655	882744	
==>interpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883760	883849	
==>interpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884866	884955	
==>interpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885972	886061	
==>interpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887079	887168	
==>interpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950985	951346	
==>GS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1070,
                  "ARGS" => [
                              "s",
                              "s <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872565	872896	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 99 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873582	873913	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 99 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874600	874931	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 99 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875617	875948	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 99 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876635	876966	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 99 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877653	877984	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 99 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878674	879005	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 99 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879777	880108	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 99 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880881	881212	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 99 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881985	882316	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 99 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94345	94554	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95237	95446	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96130	96339	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627123	627212	
==>terpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628267	628356	
==>terpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632525	632614	
==>terpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633567	633656	
==>terpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634624	634713	
==>terpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635742	635831	
==>terpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636860	636949	
==>terpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637979	638068	
==>terpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747321	747542	
==>er_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748106	748327	
==>er_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748889	749110	
==>er_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749673	749894	
==>er_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753615	753836	
==>er_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754403	754624	
==>er_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755189	755410	
==>er_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755976	756197	
==>er_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324737	324957	
==>er_native(interpreter, {{\@1}},{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325530	325750	
==>er_native(interpreter, {{\@1}},{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
11	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2607	2700	
==>_maps{$type};

    return sprintf($arg_maps{$type}, $num);
}

=item C<restart_offset($offset)> <==
11	/Users/nnunley/parrot/lib/Pod/Simple.pm	22678	22818	
==>ap('>', @$is), "\n" )
            : "tag $is<...>.\n";
        }
      }
      
      if(!defined $is) {
        $self->whine($start_line, "D <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202208	202505	
==>AME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203138	203435	
==>AME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204069	204366	
==>AME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205000	205297	
==>AME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205942	206239	
==>AME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206883	207180	
==>AME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207825	208122	
==>AME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208765	209062	
==>AME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209706	210003	
==>AME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210685	210982	
==>AME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
11	/Users/nnunley/parrot/tools/build/headerize.pl	2461	2572	
==>r die "Couldn't handle $proto";
    my $funcname = $1;
    $parms = $2;
    my @parms = split( /\s*,\s*/, $parms <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572477	572740	
==>lass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 6 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573386	573649	
==>lass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 6 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574296	574559	
==>lass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 6 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575099	575362	
==>lass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 6 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577926	578189	
==>lass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 6 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597486	597749	
==>lass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 6 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598532	598795	
==>lass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 6 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599579	599842	
==>lass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 6 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600654	600917	
==>lass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 6 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	602308	602571	
==>lass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 6 <==
11	/Users/nnunley/parrot/lib/Test/Builder.pm	10271	10409	
==>lf  = shift;

    local($@,$!);

    eval { require overload } || return;

    foreach my $thing (@_) {
        eval { 
            if( def <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16659	16927	
==>}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	17433	17701	
==>}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18228	18496	
==>}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19037	19305	
==>}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19813	20081	
==>}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20591	20859	
==>}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21391	21659	
==>}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305700	305968	
==>}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	306476	306744	
==>}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307269	307537	
==>}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME <==
11	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	3169	3276	
==>: '';
    
    return $self->{SUFFIX};
}

=item C<has_suffix()>

Finds out whether the name has a .xyz suffi <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185459	185756	
==>IVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186388	186685	
==>IVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187318	187615	
==>IVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188248	188545	
==>IVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189189	189486	
==>IVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190129	190426	
==>IVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191070	191367	
==>IVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192009	192306	
==>IVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192949	193246	
==>IVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193927	194224	
==>IVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
11	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	61156	61282	
==>}          = undef;
    $parser->YYData->{self}        = undef;
    $parser->YYData->{idx_tmp}     = 0;
    $parser->YYData- <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	270540	270859	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271385	271704	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272231	272550	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273077	273396	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273922	274241	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	274768	275087	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	275614	275933	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276491	276810	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277369	277688	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	278247	278566	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
11	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	15225	15390	
==>1}}/mg)
        {
            $next = 0;
            $restart = 1;
        }

        $body =~ s/\$(\d+)/{{\@$1}}/mg;

        my $file_escaped = $file;
        $file <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	287791	288109	
==>0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288646	288964	
==>0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289502	289820	
==>0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290358	290676	
==>0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291203	291521	
==>0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292049	292367	
==>0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292895	293213	
==>0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293770	294088	
==>0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294646	294964	
==>0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295522	295840	
==>0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
11	/Users/nnunley/parrot/lib/Text/Balanced.pm	42071	42168	
==>routine which in turn takes a single argument (the text to
be extracted from).

In other words, th <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296462	296780	
==>0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297317	297635	
==>0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298173	298491	
==>0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299029	299347	
==>0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299874	300192	
==>0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300720	301038	
==>0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301566	301884	
==>0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302441	302759	
==>0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303317	303635	
==>0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	304193	304511	
==>0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
11	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5661	5754	
==>/* PARROT_IN_OBJECTS_C */

/* Need this for add, subtract, multiply, divide, mod, cmod, bitwis <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632732	633074	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "AR <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633774	634116	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "AR <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634891	635233	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "AR <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636009	636351	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "AR <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637127	637469	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "AR <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080665	1081007	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "AR <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081730	1082072	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "AR <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082795	1083137	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "AR <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103044	1103386	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "AR <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104258	1104600	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "AR <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478353	478616	
==>"fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 548, <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16633	16888	
==>+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	17407	17662	
==>+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18202	18457	
==>+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19011	19266	
==>+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19787	20042	
==>+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20565	20820	
==>+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21365	21620	
==>+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22179	22434	
==>+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305674	305929	
==>+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	306450	306705	
==>+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307243	307498	
==>+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296347	296639	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297202	297494	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298058	298350	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298914	299206	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299759	300051	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300605	300897	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301451	301743	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302326	302618	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303202	303494	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	304078	304370	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
11	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22507	22641	
==>or' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 72
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70927	71200	
==>, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71696	71969	
==>, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100436	100709	
==>, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104884	105157	
==>, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	252996	253269	
==>, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450925	451198	
==>, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	513324	513597	
==>, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948908	949181	
==>, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949708	949981	
==>, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959362	959635	
==>, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960164	960437	
==>, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	270322	270645	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271167	271490	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272013	272336	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272859	273182	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273704	274027	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	274550	274873	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	275396	275719	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276273	276596	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277151	277474	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	278029	278352	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "", <==
11	/Users/nnunley/parrot/lib/Text/Balanced.pm	44921	45018	
==>the right delimiter of the second block of the operation (if any),

=item [10]

the trailing modif <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	278920	279243	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279774	280097	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	280629	280952	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	281484	281807	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	282328	282651	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283173	283496	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284018	284341	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284894	285217	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285771	286094	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286648	286971	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "", <==
11	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3461	3575	
==>++;
	}

	# Return generated code.
	return $pir;
}

sub post_branch($) {
	# Nothing to do here.
	return "";
}

# Pre <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296209	296532	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297064	297387	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297920	298243	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298776	299099	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299621	299944	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300467	300790	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301313	301636	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302188	302511	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303064	303387	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303940	304263	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "", <==
11	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	34174	34311	
==>e 121
		ACTIONS => {
			"," => 151,
			'DO' => 168
		}
	},
	{#State 122
		DEFAULT => -96
	},
	{#State 123
		ACTIONS => {
			'NA <==
11	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	35505	35595	
==>_branch and append code it generates.
		my $post_branch = $srm->post_branch($rule->{'pop'}) <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500473	500650	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501211	501388	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501950	502127	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502688	502865	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503427	503604	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504281	504458	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505136	505313	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505991	506168	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506845	507022	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507700	507877	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
11	/Users/nnunley/parrot/lib/Parrot/Config.pm	6918	7047	
==>'i_varhdr' => 'stdarg.h',
             'i_vfork' => undef,
             'icu_dir' => '/opt/local',
             'icu_shared' => '- <==
11	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	1810	1943	
==>', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', <==
11	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	1948	2081	
==>', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', <==
11	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2086	2219	
==>', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', <==
11	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2224	2357	
==>', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', <==
11	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2362	2495	
==>', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', <==
11	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2501	2634	
==>', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', <==
11	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2640	2773	
==>', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', <==
11	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2779	2912	
==>', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', <==
11	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2918	3051	
==>', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', <==
11	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3057	3190	
==>', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', <==
11	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3196	3329	
==>', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752261	752436	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753040	753215	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753827	754002	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754615	754790	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755401	755576	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756188	756363	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756977	757152	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757767	757942	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758539	758714	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
11	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	1763	1865	
==>hift;

    my $verbose = defined $self->get('verbose') && $self->get('verbose') == 2;

    print "Setti <==
11	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	24312	24402	
==>?:...>' : '<error...>' }
sub sethashname { $_[0]->{hashname} = '__DIRECTIVE' . ++$_[1]->{di <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279164	279483	
==>JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	280018	280337	
==>JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	280873	281192	
==>JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	281728	282047	
==>JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	282572	282891	
==>JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283417	283736	
==>JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284262	284581	
==>JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285138	285457	
==>JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286015	286334	
==>JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286892	287211	
==>JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
11	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	2702	2830	
==>without_suffix
{
    my $self = shift;
    my $name = $self->name;
    
    $name =~ s/\.[^\.]*$//o;
    
    return $name;    
} <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	287529	287851	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLA <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288384	288706	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLA <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289240	289562	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLA <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290096	290418	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLA <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290941	291263	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLA <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291787	292109	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLA <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292633	292955	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLA <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293508	293830	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLA <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294384	294706	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLA <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295260	295582	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLA <==
11	/Users/nnunley/parrot/languages/lua/Lua/build.pm	38058	38172	
==>1 = ();
    my @opcodes2 = ();
    if ( $parser->YYData->{self} ) {
        unshift @{$params}, $parser->YYData- <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	287525	287849	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "F <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288380	288704	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "F <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289236	289560	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "F <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290092	290416	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "F <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290937	291261	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "F <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291783	292107	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "F <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292629	292953	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "F <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293504	293828	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "F <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294380	294704	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "F <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295256	295580	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "F <==
11	/Users/nnunley/parrot/tools/build/vtable_extend.pl	716	814	
==>le.c" or die $!;

print OUT $header, <<'EOF';

/*
Copyright (C) 2001-2003, 2005, The Perl Foundatio <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185455	185752	
==>ELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186384	186681	
==>ELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187314	187611	
==>ELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188244	188541	
==>ELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189185	189482	
==>ELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190125	190422	
==>ELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191066	191363	
==>ELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192005	192302	
==>ELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192945	193242	
==>ELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193923	194220	
==>ELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	410056	410151	
==>ine 545 \"src/ops/io.ops\"\n    STRING *dest = {{\@3}};\n    {{\@1}} = (INTVAL)PIO_recv(interpre <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164221	164518	
==>ELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165149	165446	
==>ELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166078	166375	
==>ELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167007	167304	
==>ELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167945	168242	
==>ELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168886	169183	
==>ELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169828	170125	
==>ELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170768	171065	
==>ELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171709	172006	
==>ELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172686	172983	
==>ELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
11	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	1082	1201	
==>ON (B) goto LABEL" ],
    [ "fail()" ],
    [ "nop()" ],

    [ "push_reg(r)" ],
    [ "pop_reg(r)" ],

    [ "pushmark( <==
11	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	611	713	
==>DO

Make better use of CPAN modules.

=head1 HISTORY

Started by josh in 2002.

=head1 AUTHOR

josh

=h <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279136	279455	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279990	280309	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	280845	281164	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	281700	282019	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	282544	282863	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283389	283708	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284234	284553	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285110	285429	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285987	286306	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286864	287183	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
11	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	168	299	
==>x::CodeGen';
use strict;

sub output_preamble {
    my $self = shift;

    return (
            'new P0, PerlRegex',
            're <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	287786	288104	
==>" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288641	288959	
==>" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289497	289815	
==>" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290353	290671	
==>" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291198	291516	
==>" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292044	292362	
==>" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292890	293208	
==>" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293765	294083	
==>" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294641	294959	
==>" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295517	295835	
==>" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
11	/Users/nnunley/parrot/Configure.pl	6456	6561	
==>n   Quick hack to use inet_aton instead of inet_pton

Parrot Options:

   --intval=(type)      Use the giv <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296457	296775	
==>" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297312	297630	
==>" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298168	298486	
==>" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299024	299342	
==>" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299869	300187	
==>" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300715	301033	
==>" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301561	301879	
==>" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302436	302754	
==>" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303312	303630	
==>" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	304188	304506	
==>" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
11	/Users/nnunley/parrot/lib/Test/Builder.pm	27469	27588	
==>$test_results} = $num - 1;
        }
    }
    return $self->{Curr_Test};
}


=item B<summary>

    my @tests = $Test->s <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185486	185784	
==>ME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186415	186713	
==>ME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187345	187643	
==>ME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188275	188573	
==>ME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189216	189514	
==>ME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190156	190454	
==>ME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191097	191395	
==>ME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192036	192334	
==>ME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192976	193274	
==>ME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193954	194252	
==>ME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
11	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30304	30415	
==>ody
{
    my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};

    my $decl = $self->de <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627816	628191	
==>GS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 704,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  " <==
11	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	1194	1345	
==>w
{
    my $class = shift;

    my $self = {
        c        => {},
        triggers => {},
    };

    bless $self, ref $class || $class;
    return $ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412893	413003	
==>],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414020	414130	
==>],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415147	415257	
==>],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416275	416385	
==>],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417402	417512	
==>],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418530	418640	
==>],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419658	419768	
==>],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420787	420897	
==>],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2 <==
11	/Users/nnunley/parrot/tools/build/pmc2c.pl	11130	11231	
==>anced($code);

    my $lineno  = 1 + count_newlines($pre);
    $classblock = substr($classblock, 1,-1) <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500423	500645	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501161	501383	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501900	502122	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502638	502860	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503377	503599	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504231	504453	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505086	505308	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505941	506163	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506795	507017	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507650	507872	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
11	/Users/nnunley/parrot/tools/build/jit2c.pl	6159	6290	
==>unless ($vtable) {
        $vtable = parse_vtable();
    }
    my $i = 0;
    $vjit++;
    for my $entry (@{$vtable}) {
        next <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143009	143306	
==>,
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143936	144233	
==>,
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144864	145161	
==>,
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145792	146089	
==>,
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146727	147024	
==>,
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147667	147964	
==>,
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148608	148905	
==>,
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149548	149845	
==>,
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150489	150786	
==>,
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151466	151763	
==>,
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
11	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	586	722	
==>) {
        if ($part =~ /^\%/) {
            push @ops, $self->output_print(substr($part, 2, -1));
        } else {
            $part =~ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539677	540015	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540928	541266	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542180	542518	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066219	1066557	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067404	1067742	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068590	1068928	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069776	1070114	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070963	1071301	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073147	1073485	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075332	1075670	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077517	1077855	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	270310	270634	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FL <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271155	271479	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FL <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272001	272325	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FL <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272847	273171	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FL <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273692	274016	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FL <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	274538	274862	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FL <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	275384	275708	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FL <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276261	276585	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FL <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277139	277463	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FL <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	278017	278341	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FL <==
11	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9248	9349	
==>eturn

' Expect Hello A World
print "Hello " + chr$(65);
print " World"

' Expect 21 and "Correct"
pri <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632762	633120	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633804	634162	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634921	635279	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636039	636397	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637157	637515	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080695	1081053	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081760	1082118	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082825	1083183	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103074	1103432	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104288	1104646	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
11	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9722	9829	
==>return ($self-> popop . " $reg, <rx_stack> # popint");
    }
}

sub output_substr {
    my ($self, $dest, $s <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	497	622	
==>:Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shift;
        
    return $self->SUPER::n <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	481	602	
==>:Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shift;
    
    return $self->SUPER::n <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	492	604	
==>:Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::n <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	480	592	
==>:Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::n <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	488	600	
==>:Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::n <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/EditorPlugins.pm	519	631	
==>:Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::n <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	448	560	
==>:Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::n <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	457	569	
==>:Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::n <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Ops.pm	460	572	
==>:Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::n <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	466	578	
==>:Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::n <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tests.pm	461	573	
==>:Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::n <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296233	296556	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGD <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297088	297411	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGD <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297944	298267	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGD <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298800	299123	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGD <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299645	299968	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGD <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300491	300814	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGD <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301337	301660	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGD <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302212	302535	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGD <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303088	303411	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGD <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303964	304287	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGD <==
11	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	3858	3951	
==>tributes => { type => $self->type->name, name => $self->name } });
  $self->value->sax($handle <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16622	16881	
==>) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	17396	17655	
==>) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18191	18450	
==>) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19000	19259	
==>) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19776	20035	
==>) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20554	20813	
==>) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21354	21613	
==>) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22168	22427	
==>) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305663	305922	
==>) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	306439	306698	
==>) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307232	307491	
==>) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => " <==
11	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	236	338	
==>6-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statemen <==
11	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	248	350	
==>6-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statemen <==
11	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	240	342	
==>6-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statemen <==
11	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	242	344	
==>6-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statemen <==
11	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	236	338	
==>6-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statemen <==
11	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	246	348	
==>6-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statemen <==
11	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	236	338	
==>6-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statemen <==
11	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	246	348	
==>6-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statemen <==
11	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	250	352	
==>6-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statemen <==
11	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	234	336	
==>6-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statemen <==
11	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	240	342	
==>6-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statemen <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476416	476638	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477311	477533	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478207	478429	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479098	479320	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479990	480212	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480992	481214	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481995	482217	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482998	483220	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483996	484218	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484995	485217	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
11	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	301	393	
==>ings";

package Jako::Construct::Block::Loop::Until;

use Carp;

use base qw(Jako::Construct: <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	443	552	
==>strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

su <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	431	540	
==>strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

su <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	439	548	
==>strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

su <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/EditorPlugins.pm	470	579	
==>strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

su <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	399	508	
==>strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

su <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	432	541	
==>strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

su <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	448	557	
==>strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

su <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	408	517	
==>strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

su <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Ops.pm	411	520	
==>strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

su <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	417	526	
==>strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

su <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tests.pm	412	521	
==>strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

su <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912329	912661	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913339	913671	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914350	914682	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915361	915693	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916373	916705	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917384	917716	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918396	918728	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919408	919740	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
11	/Users/nnunley/parrot/tools/build/vtable_extend.pl	1809	1911	
==>d
   suchlike things. This is perfectly legal -- in fact it's what
   we've documented should be done - <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605884	605974	
==>src/ops/object.ops\"\n    Parrot_add_attribute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}} <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606675	606765	
==>src/ops/object.ops\"\n    Parrot_add_attribute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}} <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084795	1085105	
==>{{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085848	1086158	
==>{{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086901	1087211	
==>{{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087955	1088265	
==>{{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090909	1091219	
==>{{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1091969	1092279	
==>{{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374055	374309	
==>t_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374938	375192	
==>t_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375821	376075	
==>t_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376705	376959	
==>t_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
11	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	4746	4858	
==>{
	my $class = ref($_[0]) || $_[0];
	my $name  = $_[1];
	my $owner = $_[2];
	my $line  = $_[3];
	my $replace = $_ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	287535	287859	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288390	288714	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289246	289570	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290102	290426	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290947	291271	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291793	292117	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292639	292963	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293514	293838	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294390	294714	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295266	295590	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => " <==
11	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	13218	13317	
==>var name=percentage>&nbsp;%&nbsp;ok</td>
	    <tmpl_loop name=summary>
	      <td class="leftsep num <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038824	1039121	
==>store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 11 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039715	1040012	
==>store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 11 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040607	1040904	
==>store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 11 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041499	1041796	
==>store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 11 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042392	1042689	
==>store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 11 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043288	1043585	
==>store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 11 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044185	1044482	
==>store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 11 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045078	1045375	
==>store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 11 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045972	1046269	
==>store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 11 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046866	1047163	
==>store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 11 <==
11	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	17146	17243	
==>send RTF files thru the mail
  # without the slightest worry that paragraphs beginning with "From" <==
11	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	1817	1946	
==>[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P <==
11	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	1955	2084	
==>[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P <==
11	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2093	2222	
==>[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P <==
11	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2231	2360	
==>[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P <==
11	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2369	2498	
==>[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P <==
11	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2508	2637	
==>[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P <==
11	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2647	2776	
==>[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P <==
11	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2786	2915	
==>[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P <==
11	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2925	3054	
==>[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P <==
11	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3064	3193	
==>[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P <==
11	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3203	3332	
==>[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138196	138473	
==>{{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         ble <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139092	139369	
==>{{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         ble <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139988	140265	
==>{{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         ble <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140883	141160	
==>{{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         ble <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141779	142056	
==>{{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         ble <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142675	142952	
==>{{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         ble <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154899	155176	
==>{{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         ble <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155803	156080	
==>{{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         ble <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156707	156984	
==>{{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         ble <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157612	157889	
==>{{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         ble <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158515	158792	
==>{{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         ble <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	278911	279233	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLA <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279765	280087	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLA <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	280620	280942	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLA <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	281475	281797	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLA <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	282319	282641	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLA <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283164	283486	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLA <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284009	284331	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLA <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284885	285207	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLA <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285762	286084	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLA <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286639	286961	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLA <==
11	/Users/nnunley/parrot/tools/build/pbc2c.pl	2283	2397	
==>($offset + sizeof('op') <= $length) {
	my ($src, $is_branch);

        $pc       = $new_pc;
	$op_code  = unpack "x$ <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879363	879472	
==>{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "L <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880467	880576	
==>{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "L <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881571	881680	
==>{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "L <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882676	882785	
==>{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "L <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883781	883890	
==>{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "L <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884887	884996	
==>{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "L <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885993	886102	
==>{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "L <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887100	887209	
==>{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "L <==
11	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31189	31294	
==>ts($method)>

Always true for vtables.

=cut

sub implements
{
    my ($self, $meth) = @_;
    $self->impl <==
11	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32652	32757	
==>ts($method)>

Always true for vtables.

=cut

sub implements
{
    my ($self, $meth) = @_;
    $self->impl <==
11	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39809	39914	
==>ts($method)>

Always true for vtables.

=cut

sub implements
{
    my ($self, $meth) = @_;
    $self->impl <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724856	725137	
==>",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 812,
                  "ARGS" => [
                              " <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	2071	2175	
==>w_item('The status of the Parrot test suite.', 't/TESTS.STATUS.pod'),
        ),
        $self->new_group <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	34861	35152	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_addr",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471277	471549	
==>de by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472264	472536	
==>de by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473251	473523	
==>de by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474241	474513	
==>de by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475232	475504	
==>de by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476223	476495	
==>de by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
11	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2132	2235	
==>Otherwise, we assume the programmer wanted to shadow the
  # previous definition.
  #

  if (defined $sy <==
11	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1652	1755	
==>Otherwise, we assume the programmer wanted to shadow the
  # previous definition.
  #

  if (defined $sy <==
11	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1879	1982	
==>Otherwise, we assume the programmer wanted to shadow the
  # previous definition.
  #

  if (defined $sy <==
11	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	693	778	
==>arrot::Docs::Section::PMCs;
use Parrot::Docs::Section::DynaPMCs;
use Parrot::Docs::Sec <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	603587	603863	
==>, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "a <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605951	606227	
==>, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "a <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752079	752353	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "a <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752858	753132	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "a <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753645	753919	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "a <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754433	754707	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "a <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755219	755493	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "a <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756006	756280	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "a <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756795	757069	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "a <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757585	757859	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "a <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758357	758631	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "a <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296200	296522	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLA <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297055	297377	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLA <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297911	298233	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLA <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298767	299089	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLA <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299612	299934	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLA <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300458	300780	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLA <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301304	301626	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLA <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302179	302501	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLA <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303055	303377	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLA <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303931	304253	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLA <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877975	878256	
==>ODE" => 995,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  { <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948139	948427	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAG <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948938	949226	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAG <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949738	950026	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAG <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950496	950586	
==>"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Par <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951456	951546	
==>"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Par <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952416	952506	
==>"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Par <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953377	953467	
==>"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Par <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960953	961043	
==>"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Par <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961915	962005	
==>"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Par <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962877	962967	
==>"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Par <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963840	963930	
==>"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Par <==
11	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	2278	2383	
==>', $name);

  unless (defined $loop_block) {
    if (defined $name) {
      $self->SYNTAX_ERROR("No loop ' <==
11	/Users/nnunley/parrot/lib/Pod/Simple.pm	4250	4332	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

#sub <==
11	/Users/nnunley/parrot/lib/Pod/Simple.pm	3494	3575	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub <==
11	/Users/nnunley/parrot/lib/Pod/Simple.pm	3952	4033	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub <==
11	/Users/nnunley/parrot/lib/Pod/Simple.pm	4957	5038	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub <==
11	/Users/nnunley/parrot/lib/Pod/Simple.pm	5471	5552	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub <==
11	/Users/nnunley/parrot/lib/Pod/Simple.pm	11361	11442	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub <==
11	/Users/nnunley/parrot/lib/Pod/Simple.pm	15966	16047	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub <==
11	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	372	453	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub <==
11	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	371	452	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub <==
11	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1763	1844	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159402	159675	
==>"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ), <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160299	160572	
==>"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ), <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161196	161469	
==>"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ), <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162092	162365	
==>"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ), <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162989	163262	
==>"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ), <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163886	164159	
==>"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ), <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176130	176403	
==>"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ), <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177034	177307	
==>"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ), <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177938	178211	
==>"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ), <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178843	179116	
==>"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ), <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179746	180019	
==>"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ), <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138187	138452	
==>"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139083	139348	
==>"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139979	140244	
==>"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140874	141139	
==>"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141770	142035	
==>"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142666	142931	
==>"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154890	155155	
==>"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155794	156059	
==>"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156698	156963	
==>"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157603	157868	
==>"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158506	158771	
==>"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138178	138449	
==>/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139074	139345	
==>/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139970	140241	
==>/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140865	141136	
==>/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141761	142032	
==>/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142657	142928	
==>/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154881	155152	
==>/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155785	156056	
==>/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156689	156960	
==>/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157594	157865	
==>/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158497	158768	
==>/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038816	1039113	
==>ME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039707	1040004	
==>ME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040599	1040896	
==>ME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041491	1041788	
==>ME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042384	1042681	
==>ME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043280	1043577	
==>ME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044177	1044474	
==>ME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045070	1045367	
==>ME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045964	1046261	
==>ME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046858	1047155	
==>ME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
11	/Users/nnunley/parrot/lib/Pod/Simple.pm	19109	19210	
==>nless $nixx or $merge;

  DEBUG > 2 and print "\nStarting _wrap_up traversal.\n",
   $merge ? (" Merge <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	287758	288077	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288613	288932	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289469	289788	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290325	290644	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291170	291489	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292016	292335	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292862	293181	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293737	294056	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294613	294932	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295489	295808	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
11	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	8977	9075	
==>ift->_get_titled_section(
  'NAME', max_token => 50, desperate => 1, @_)
}
sub get_version     { sh <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138173	138358	
==>c/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139069	139254	
==>c/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139965	140150	
==>c/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140860	141045	
==>c/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141756	141941	
==>c/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142652	142837	
==>c/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154876	155061	
==>c/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155780	155965	
==>c/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156684	156869	
==>c/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157589	157774	
==>c/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158492	158677	
==>c/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321608	321861	
==>terpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323964	324217	
==>terpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	329422	329675	
==>terpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	330900	331153	
==>terpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	751291	751544	
==>terpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945492	945745	
==>terpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946302	946555	
==>terpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955936	956189	
==>terpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
11	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956748	957001	
==>terpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
11	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7587	7695	
==>eedme;  # Get the =
	#	#print "Going to expression with $syms[CURR]\n";
	#	EXPRESSION;		# Evaluate the expres <==
11	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	10440	10547	
==>' Expect Correct
t=0
g=0
if t then
	print "Wrong"
else 
	if g then
		print "Wrong again"
	else 
		print "Cor <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038817	1039120	
==>E" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039708	1040011	
==>E" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040600	1040903	
==>E" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041492	1041795	
==>E" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042385	1042688	
==>E" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043281	1043584	
==>E" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044178	1044481	
==>E" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045071	1045374	
==>E" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045965	1046268	
==>E" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046859	1047162	
==>E" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
10	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1367	1496	
==>exit_code and not $pass;
    }

    unless($ENV{POSTMORTEM}) {
        unlink $lang_f;
        unlink $out_f;
    }

    return $p <==
10	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1408	1537	
==>exit_code and not $pass;
    }

    unless($ENV{POSTMORTEM}) {
        unlink $lang_f;
        unlink $out_f;
    }

    return $p <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822376	822466	
==>nternal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823444	823534	
==>nternal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824514	824604	
==>nternal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825585	825675	
==>nternal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826654	826744	
==>nternal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827724	827814	
==>nternal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828791	828881	
==>nternal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829859	829949	
==>nternal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	373424	373668	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374306	374550	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375189	375433	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376072	376316	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376956	377200	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377839	378083	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378723	378967	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379607	379851	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
10	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21826	21959	
==>26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 68
		ACTIONS => {
			"^" => 79
		},
		D <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4509	4602	
==>d from a F<*.dump> file generated
by F<tools/build/pmc2c.pl> from a F<*.pmc> file. It is C<ble <==
10	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	1891	1991	
==>$currline="";	# The last labeled line before a "data" statement.
	my $singleif=0;
	my $elsetag=0;
	my <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13686	13781	
==>thod, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29469	29564	
==>thod, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30111	30206	
==>thod, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31336	31431	
==>thod, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32949	33044	
==>thod, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34637	34732	
==>thod, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35967	36062	
==>thod, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37912	38007	
==>thod, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39956	40051	
==>thod, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	287565	287891	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288420	288746	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289276	289602	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290132	290458	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290977	291303	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291823	292149	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292669	292995	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293544	293870	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294420	294746	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295296	295622	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896585	896914	
==>str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897602	897931	
==>str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898620	898949	
==>str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899638	899967	
==>str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900657	900986	
==>str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901675	902004	
==>str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902694	903023	
==>str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903713	904042	
==>str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
10	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	3368	3475	
==>/nm.pl'),
            $self->new_item('', 'tools/util/ncidef2pasm.pl'),
            $self->new_item('', 'too <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	227	323	
==>oopControl.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

pack <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	604349	604583	
==>t(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669127	669361	
==>t(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669899	670133	
==>t(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677630	677864	
==>t(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678408	678642	
==>t(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665274	665506	
==>t(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666051	666283	
==>t(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758335	758567	
==>t(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759108	759340	
==>t(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
10	/Users/nnunley/parrot/tools/dev/run_indent.pl	2885	2992	
==>s.  " if ($errors);
    print STDERR "Found " . scalar(keys %$typedefs) . " typedefs.\n";
    my $cmd = "ind <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185456	185755	
==>LATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186385	186684	
==>LATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187315	187614	
==>LATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188245	188544	
==>LATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189186	189485	
==>LATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190126	190425	
==>LATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191067	191366	
==>LATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192006	192305	
==>LATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192946	193245	
==>LATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193924	194223	
==>LATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
10	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	2048	2159	
==>! defined($status) || $status) {
        die "assemble failed with status " . ($? >> 8);
    }
}

sub generate_r <==
10	/Users/nnunley/parrot/languages/regex/test.pl	3722	3833	
==>! defined($status) || $status) {
        die "assemble failed with status " . ($? >> 8);
    }
}

sub generate_r <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193499	193587	
==>/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpre <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194478	194566	
==>/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpre <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210230	210318	
==>/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpre <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211210	211298	
==>/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpre <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218788	218876	
==>/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpre <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219767	219855	
==>/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpre <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227347	227435	
==>/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpre <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228327	228415	
==>/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpre <==
10	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3139	3250	
==>and 'ld' the same.
        $conf->data->set(link => $conf->data->get('ld'));

        # We can't use -opt: and - <==
10	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4643	4754	
==>and 'ld' the same.
        $conf->data->set(link => $conf->data->get('ld'));

        # We can't use -opt: and - <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396117	396211	
==>\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397197	397291	
==>\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398277	398371	
==>\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399358	399452	
==>\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400438	400532	
==>\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401519	401613	
==>\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402600	402694	
==>\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403682	403776	
==>\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253238	253537	
==>P" => 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254100	254399	
==>P" => 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254963	255262	
==>P" => 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710184	710444	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "T <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711017	711277	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "T <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711851	712111	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "T <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712957	713217	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "T <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714064	714324	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "T <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714986	715246	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "T <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715909	716169	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "T <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	270323	270669	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGD <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271168	271514	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGD <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272014	272360	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGD <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272860	273206	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGD <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273705	274051	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGD <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	274551	274897	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGD <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	275397	275743	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGD <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276274	276620	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGD <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277152	277498	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGD <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	278030	278376	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGD <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143000	143305	
==>RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143927	144232	
==>RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144855	145160	
==>RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145783	146088	
==>RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146718	147023	
==>RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147658	147963	
==>RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148599	148904	
==>RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149539	149844	
==>RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150480	150785	
==>RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151457	151762	
==>RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980271	980636	
==>class",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 110 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981402	981767	
==>class",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 110 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982531	982896	
==>class",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 110 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983661	984026	
==>class",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 110 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984791	985156	
==>class",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 110 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985922	986287	
==>class",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 110 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987052	987417	
==>class",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 110 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988183	988548	
==>class",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 110 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989314	989679	
==>class",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 110 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	990450	990815	
==>class",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 110 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991586	991951	
==>class",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 111 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992723	993088	
==>class",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 111 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993860	994225	
==>class",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 111 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994998	995363	
==>class",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 111 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996135	996500	
==>class",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 111 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997273	997638	
==>class",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 111 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	998411	998776	
==>class",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 111 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999550	999915	
==>class",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 111 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000687	1001052	
==>class",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 111 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001825	1002190	
==>class",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 111 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	270348	270671	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271193	271516	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272039	272362	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272885	273208	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273730	274053	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	274576	274899	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	275422	275745	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276299	276622	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277177	277500	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	278055	278378	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516061	516316	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516799	517054	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517538	517793	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518276	518531	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519015	519270	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519869	520124	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520724	520979	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	521579	521834	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522433	522688	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523288	523543	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	278921	279312	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279775	280166	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	280630	281021	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	281485	281876	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	282329	282720	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283174	283565	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284019	284410	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284895	285286	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285772	286163	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286649	287040	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332775	333068	
==>\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334053	334346	
==>\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335331	335624	
==>\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336610	336903	
==>\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550232	550322	
==>LE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_exception(interp <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551533	551623	
==>LE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_exception(interp <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554085	554175	
==>LE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_exception(interp <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555482	555572	
==>LE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_exception(interp <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558137	558227	
==>LE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_exception(interp <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559521	559611	
==>LE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_exception(interp <==
10	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	2350	2455	
==>ome of people who have contributed to Parrot.', 'CREDITS'),
        ),
        $self->new_group('Contents' <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	991	1090	
==>UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK     => <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	1003	1102	
==>UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK     => <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	921	1016	
==>UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	759	854	
==>UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	912	1007	
==>UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	801	896	
==>UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1181	1276	
==>UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1209	1304	
==>UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	881	976	
==>UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516096	516358	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516834	517096	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517573	517835	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518311	518573	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519050	519312	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519904	520166	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520759	521021	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	521614	521876	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522468	522730	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523323	523585	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871167	871457	
==>, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872184	872474	
==>, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873201	873491	
==>, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874219	874509	
==>, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875236	875526	
==>, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876254	876544	
==>, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877272	877562	
==>, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878291	878581	
==>, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552552	552650	
==>est;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n\n  object = {{\@1}};\n  method_pmc = {{\@2}} <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556608	556706	
==>est;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n\n  object = {{\@1}};\n  method_pmc = {{\@2}} <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435915	436247	
==>x",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 50 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436929	437261	
==>x",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 50 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437944	438276	
==>x",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 50 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438960	439292	
==>x",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 50 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439974	440306	
==>x",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 50 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440989	441321	
==>x",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 50 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442003	442335	
==>x",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 50 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443018	443350	
==>x",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 50 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444032	444364	
==>x",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 50 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	445047	445379	
==>x",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 50 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550411	550551	
==>(opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551712	551852	
==>(opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552903	553043	
==>(opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554264	554404	
==>(opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555661	555801	
==>(opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556898	557038	
==>(opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558316	558456	
==>(opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559700	559840	
==>(opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560921	561061	
==>(opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0 <==
10	/Users/nnunley/parrot/config/inter/progs.pm	1275	1382	
==>int <<'END';


    Okay, I'm going to start by asking you a couple questions about your
    compiler and lin <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798322	798638	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 901,
                  "AR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629630	629733	
==>LL, NO_CLASS,\n            \"Class '%Ss' not found\", class);\n  {{\@1}} = pmc_new(interpreter, type);\n <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385355	385449	
==>l_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n", <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386486	386580	
==>l_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n", <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387617	387711	
==>l_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n", <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388749	388843	
==>l_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n", <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389880	389974	
==>l_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n", <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391012	391106	
==>l_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n", <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392144	392238	
==>l_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n", <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393277	393371	
==>l_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n", <==
10	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	55934	56039	
==>y $types = eval 'no strict; local $SIG{__WARN__} = sub {0}; my @arr=('.$code.'); @arr' || (); 
				if (!$t <==
10	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	980	1073	
==>asic.html', '', 'languages/BASIC'),
        $self->new_section('bc', 'bc.html', '', 'languages <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31802	31895	
==>= $self->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $ <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33379	33472	
==>= $self->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $ <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35090	35183	
==>= $self->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $ <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36393	36486	
==>= $self->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $ <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38340	38433	
==>= $self->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $ <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40436	40529	
==>= $self->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $ <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	280	372	
==>t;
eval "use warnings";

package Jako::Construct::Type::Number;

use base qw(Jako::Construct: <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29759	29848	
==>= $self->{has_method}{$meth};
    return $self->SUPER::body($self->{methods}[$n], $line, $ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913067	913408	
==>);\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914078	914419	
==>);\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915089	915430	
==>);\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916101	916442	
==>);\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917112	917453	
==>);\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918124	918465	
==>);\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919136	919477	
==>);\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908471	908810	
==>);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index <==
10	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	356	472	
==>p->{children} = [];
    $count++;
    while($tokens->[$count] ne ')') {
      my $expr;
      ($count, $expr) = _buil <==
10	/Users/nnunley/parrot/tools/build/nativecall.pl	1872	1969	
==>( p => "PMC *final_destination = pmc_new(interpreter, enum_class_UnManagedStruct);",
       t => " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143029	143326	
==>"NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143956	144253	
==>"NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144884	145181	
==>"NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145812	146109	
==>"NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146747	147044	
==>"NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147687	147984	
==>"NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148628	148925	
==>"NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149568	149865	
==>"NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150509	150806	
==>"NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151486	151783	
==>"NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13769	13865	
==>to accumulate
the number of lines, C<$out_name> is the name of the output file we are
generating. <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16157	16253	
==>to accumulate
the number of lines, C<$out_name> is the name of the output file we are
generating. <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29552	29648	
==>to accumulate
the number of lines, C<$out_name> is the name of the output file we are
generating. <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30194	30290	
==>to accumulate
the number of lines, C<$out_name> is the name of the output file we are
generating. <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31419	31515	
==>to accumulate
the number of lines, C<$out_name> is the name of the output file we are
generating. <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33032	33128	
==>to accumulate
the number of lines, C<$out_name> is the name of the output file we are
generating. <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34720	34816	
==>to accumulate
the number of lines, C<$out_name> is the name of the output file we are
generating. <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36050	36146	
==>to accumulate
the number of lines, C<$out_name> is the name of the output file we are
generating. <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37995	38091	
==>to accumulate
the number of lines, C<$out_name> is the name of the output file we are
generating. <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40039	40135	
==>to accumulate
the number of lines, C<$out_name> is the name of the output file we are
generating. <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	487211	487433	
==>\"src/ops/math.ops\"\n  {{\@1}} = (INTVAL)ceil({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396182	396482	
==>eter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397262	397562	
==>eter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398342	398642	
==>eter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399423	399723	
==>eter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400503	400803	
==>eter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401584	401884	
==>eter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402665	402965	
==>eter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403747	404047	
==>eter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
10	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	552	657	
==>irectory.

=cut

sub tmp_file
{
    my $self = shift;
    
    return $self->new(File::Spec->catfile(File: <==
10	/Users/nnunley/parrot/lib/Test/More.pm	15739	15836	
==>e tests => 1, 'no_diag'>.  This is useful
if you have diagnostics for personal testing but then wi <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180659	180930	
==>< {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181555	181826	
==>< {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182451	182722	
==>< {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183346	183617	
==>< {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184242	184513	
==>< {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185138	185409	
==>< {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189808	190079	
==>< {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190749	191020	
==>< {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191688	191959	
==>< {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192628	192899	
==>< {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871174	871474	
==>}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872191	872491	
==>}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873208	873508	
==>}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874226	874526	
==>}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875243	875543	
==>}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876261	876561	
==>}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877279	877579	
==>}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878298	878598	
==>}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
10	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37445	37547	
==>($text),
				  q{' . $rule->{"name"} . '})
					if defined $::RD_TRACE;').'
		$Parse::RecDescent::laste <==
10	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39848	39950	
==>($text),
				  q{' . $rule->{"name"} . '})
					if defined $::RD_TRACE;').'
		$Parse::RecDescent::laste <==
10	/Users/nnunley/parrot/lib/Parrot/Config.pm	4841	4984	
==>o' => undef,
             'i_netinetin' => 'define',
             'i_netinettcp' => 'define',
             'i_poll' => undef,
             'i_pr <==
10	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54061	54183	
==>_)) { q{''} # empty string
    } elsif(
      $_ eq '0' # very common case
      or(
         m/^-?(?:[123456789]\d*|0)(?:\ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822150	822236	
==>_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823218	823304	
==>_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824285	824371	
==>_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825356	825442	
==>_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826426	826512	
==>_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827496	827582	
==>_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828565	828651	
==>_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829633	829719	
==>_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_ <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13704	13801	
==>name)>

Returns the C code for the method body. C<$line> is used to accumulate
the number of lines <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29487	29584	
==>name)>

Returns the C code for the method body. C<$line> is used to accumulate
the number of lines <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30129	30226	
==>name)>

Returns the C code for the method body. C<$line> is used to accumulate
the number of lines <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31354	31451	
==>name)>

Returns the C code for the method body. C<$line> is used to accumulate
the number of lines <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32967	33064	
==>name)>

Returns the C code for the method body. C<$line> is used to accumulate
the number of lines <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34655	34752	
==>name)>

Returns the C code for the method body. C<$line> is used to accumulate
the number of lines <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35985	36082	
==>name)>

Returns the C code for the method body. C<$line> is used to accumulate
the number of lines <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37930	38027	
==>name)>

Returns the C code for the method body. C<$line> is used to accumulate
the number of lines <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39974	40071	
==>name)>

Returns the C code for the method body. C<$line> is used to accumulate
the number of lines <==
10	/Users/nnunley/parrot/tools/build/pbc2c.pl	7665	7755	
==>DITIONAL

=head1 AUTHOR

Gregor N. Purdy E<lt>gregor@focusresearch.comE<gt>

=head1 COPYRIG <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279114	279454	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279968	280308	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	280823	281163	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	281678	282018	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	282522	282862	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283367	283707	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284212	284552	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285088	285428	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285965	286305	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286842	287182	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16640	16899	
==>}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATI <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	17414	17673	
==>}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATI <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18209	18468	
==>}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATI <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19018	19277	
==>}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATI <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19794	20053	
==>}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATI <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20572	20831	
==>}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATI <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21372	21631	
==>}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATI <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305681	305940	
==>}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATI <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	306457	306716	
==>}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATI <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307250	307509	
==>}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATI <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279111	279389	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279965	280243	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	280820	281098	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	281675	281953	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	282519	282797	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283364	283642	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284209	284487	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285085	285363	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285962	286240	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286839	287117	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396196	396535	
==>ss_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397276	397615	
==>ss_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398356	398695	
==>ss_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399437	399776	
==>ss_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400517	400856	
==>ss_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401598	401937	
==>ss_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402679	403018	
==>ss_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403761	404100	
==>ss_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
10	/Users/nnunley/parrot/lib/Test/Builder.pm	12623	12730	
==>f, $got, $dont_expect, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $dont_ <==
10	/Users/nnunley/parrot/lib/Test/Builder.pm	13067	13174	
==>f, $got, $dont_expect, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $dont_ <==
10	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Examples.pm	263	355	
==>ion::Examples;

=head1 DESCRIPTION

A documentation section describing all the Parrot example <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385261	385353	
==>PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      re <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386392	386484	
==>PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      re <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387523	387615	
==>PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      re <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388655	388747	
==>PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      re <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389786	389878	
==>PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      re <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390918	391010	
==>PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      re <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392050	392142	
==>PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      re <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393183	393275	
==>PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      re <==
10	/Users/nnunley/parrot/lib/Text/Balanced.pm	26257	26348	
==>$remainder) =
		extract_tagged($text,"BEGIN","END",undef,{bad=>["BEGIN"]});


 # Extract the <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296406	296746	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297261	297601	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298117	298457	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298973	299313	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299818	300158	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300664	301004	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301510	301850	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302385	302725	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303261	303601	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	304137	304477	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879356	879449	
==>);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880460	880553	
==>);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881564	881657	
==>);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882669	882762	
==>);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883774	883867	
==>);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884880	884973	
==>);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885986	886079	
==>);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887093	887186	
==>);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n <==
10	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5895	5984	
==>al-Gordon C<brent@brentdax.com>.

=head1 AUTHOR

Joshua Hoblitt C<jhoblitt@cpan.org>

=hea <==
10	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6744	6833	
==>al-Gordon C<brent@brentdax.com>.

=head1 AUTHOR

Joshua Hoblitt C<jhoblitt@cpan.org>

=hea <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279166	279491	
==>MP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	280020	280345	
==>MP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	280875	281200	
==>MP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	281730	282055	
==>MP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	282574	282899	
==>MP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283419	283744	
==>MP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284264	284589	
==>MP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285140	285465	
==>MP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286017	286342	
==>MP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286894	287219	
==>MP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296455	296774	
==>MP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297310	297629	
==>MP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298166	298485	
==>MP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299022	299341	
==>MP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299867	300186	
==>MP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300713	301032	
==>MP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301559	301878	
==>MP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302434	302753	
==>MP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303310	303629	
==>MP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	304186	304505	
==>MP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	8766	8927	
==>ern = "extern ";
	    $newl = " ";
	    $semi = ";";
        $interp = $pmc = "";
    }
    else {
	    $export = "";
	    $extern = "";
	    $newl = "\n";
	    $ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897204	897313	
==>eplace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898222	898331	
==>eplace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899240	899349	
==>eplace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900259	900368	
==>eplace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901277	901386	
==>eplace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902296	902405	
==>eplace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903315	903424	
==>eplace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904335	904444	
==>eplace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [ <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9643	9745	
==>.str"
EOC
    }
    "$cout\n";
}


=item C<full_arguments($args)>

Prepends C<INTERP, SELF> to C<$args> <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747322	747544	
==>r_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748107	748329	
==>r_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748890	749112	
==>r_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749674	749896	
==>r_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753616	753838	
==>r_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754404	754626	
==>r_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755190	755412	
==>r_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755977	756199	
==>r_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324738	324959	
==>r_native(interpreter, {{\@1}},{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325531	325752	
==>r_native(interpreter, {{\@1}},{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90861	91167	
==>{{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "b <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91715	92021	
==>{{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "b <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92569	92875	
==>{{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "b <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107186	107492	
==>{{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "b <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108040	108346	
==>{{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "b <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108894	109200	
==>{{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "b <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131387	131693	
==>{{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "b <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132242	132548	
==>{{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "b <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133097	133403	
==>{{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "b <==
10	/Users/nnunley/parrot/Configure.pl	4040	4128	
==>ble.

=back

=head1 SEE ALSO

F<config/init/data.pl>, F<lib/Parrot/Configure/RunSteps.pm> <==
10	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	17168	17273	
==>self->dbprint("matching dynalt[%<$counter>]\n"),
                 @R_ops,
		 aop('pushint', [ $counter, "d <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13713	13809	
==>eturns the C code for the method body. C<$line> is used to accumulate
the number of lines, C<$out <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29496	29592	
==>eturns the C code for the method body. C<$line> is used to accumulate
the number of lines, C<$out <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30138	30234	
==>eturns the C code for the method body. C<$line> is used to accumulate
the number of lines, C<$out <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31363	31459	
==>eturns the C code for the method body. C<$line> is used to accumulate
the number of lines, C<$out <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32976	33072	
==>eturns the C code for the method body. C<$line> is used to accumulate
the number of lines, C<$out <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34664	34760	
==>eturns the C code for the method body. C<$line> is used to accumulate
the number of lines, C<$out <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35994	36090	
==>eturns the C code for the method body. C<$line> is used to accumulate
the number of lines, C<$out <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37939	38035	
==>eturns the C code for the method body. C<$line> is used to accumulate
the number of lines, C<$out <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39983	40079	
==>eturns the C code for the method body. C<$line> is used to accumulate
the number of lines, C<$out <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296234	296558	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297089	297413	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297945	298269	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298801	299125	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299646	299970	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300492	300816	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301338	301662	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302213	302537	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303089	303413	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303965	304289	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	13832	13941	
==>le)>

Returns the HTML for the specified file.

=cut

sub html_for_file
{
    my $self = shift;
    my $file = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462784	462878	
==>VAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivision <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463781	463875	
==>VAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivision <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464778	464872	
==>VAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivision <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474124	474218	
==>VAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivision <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475115	475209	
==>VAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivision <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476106	476200	
==>VAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivision <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483679	483773	
==>VAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivision <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484678	484772	
==>VAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivision <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485677	485771	
==>VAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivision <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	278913	279242	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279767	280096	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	280622	280951	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	281477	281806	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	282321	282650	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283166	283495	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284011	284340	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284887	285216	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285764	286093	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286641	286970	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492165	492427	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492925	493187	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493686	493948	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494553	494815	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495421	495683	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496289	496551	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497158	497420	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498028	498290	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498898	499160	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499660	499922	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Text/Balanced.pm	7149	7270	
==>('|', @{$options{reject}})
		    : defined($options{reject})	       ? $options{reject}
		    :					 ''
		    ;
	my $ignore <==
10	/Users/nnunley/parrot/lib/Text/Balanced.pm	24151	24272	
==>('|', @{$options{reject}})
		    : defined($options{reject})	       ? $options{reject}
		    :					 ''
		    ;
	my $ignore <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913006	913116	
==>1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914017	914127	
==>1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915028	915138	
==>1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916040	916150	
==>1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917051	917161	
==>1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918063	918173	
==>1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919075	919185	
==>1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920088	920198	
==>1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752099	752391	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752878	753170	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753665	753957	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754453	754745	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755239	755531	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756026	756318	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756815	757107	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757605	757897	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758377	758669	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => " <==
10	/Users/nnunley/parrot/languages/python/pie-thon.pl	832	981	
==>ash => 1,
    hex => 1,
    id => 1,
    iter => 1,
    filter => 1,
    list => 1,
    long => 1,
    int => 1,
    map => 1,
    max => 'v',
    min <==
10	/Users/nnunley/parrot/tools/dev/lib_deps.pl	7105	7199	
==>print "    $_ (in " . (join ',', @{$referenced_in{$_}}) . ")\n" foreach (@non_ansi_external_sym <==
10	/Users/nnunley/parrot/lib/Parrot/Config.pm	6539	6682	
==>' => 'define',
             'i_sysvfs' => undef,
             'i_syswait' => 'define',
             'i_termio' => undef,
             'i_termios <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462761	462855	
==>ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interprete <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463758	463852	
==>ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interprete <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464755	464849	
==>ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interprete <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474101	474195	
==>ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interprete <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475092	475186	
==>ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interprete <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476083	476177	
==>ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interprete <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483656	483750	
==>ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interprete <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484655	484749	
==>ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interprete <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485654	485748	
==>ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interprete <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586933	587218	
==>terpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588119	588404	
==>terpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589305	589590	
==>terpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590492	590777	
==>terpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591701	591986	
==>terpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592911	593196	
==>terpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594121	594406	
==>terpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595332	595617	
==>terpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
10	/Users/nnunley/parrot/languages/python/pie-thon.pl	21964	22097	
==>K $_->[0] $_->[1] $_->[2]\n";
    }
}


sub ret_val {
    my $a = shift;
    my %rets = (
	'id'       => 'I',
    );
    return $rets{ <==
10	/Users/nnunley/parrot/tools/dev/parrotbench.pl	2326	2420	
==>ion_2000@Yahoo.com>

Originally written by:

Sebastian Riedel, C<sri@oook.de>

=cut

# Create D <==
10	/Users/nnunley/parrot/lib/Test/More.pm	20220	20332	
==>$lint->parse( $html );
        is( $lint->errors, 0, "No errors found in HTML" );
    }

If the user does not hav <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13744	13840	
==>d body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the outpu <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29527	29623	
==>d body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the outpu <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30169	30265	
==>d body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the outpu <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31394	31490	
==>d body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the outpu <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33007	33103	
==>d body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the outpu <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34695	34791	
==>d body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the outpu <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36025	36121	
==>d body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the outpu <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37970	38066	
==>d body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the outpu <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40014	40110	
==>d body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the outpu <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73288	73643	
==>=> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74890	75245	
==>=> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76492	76847	
==>=> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72965	73068	
==>\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(in <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74567	74670	
==>\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(in <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76169	76272	
==>\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(in <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77772	77875	
==>\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(in <==
10	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13807	13910	
==>parsing)"
				: "an unconditional <reject>";
		my $caveat = $items[0]->describe =~ /<rulevar/
				? " af <==
10	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8154	8249	
==>h_name($name)>

Returns a directory with the specified name in the directory.

=cut

sub existin <==
10	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	4311	4403	
==>:RecDescent::OffsetCounter;

sub TIESCALAR	# ($classname, \$text, $thisparser, $prev)
{
	bles <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476448	476644	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477343	477539	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478239	478435	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479130	479326	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480022	480218	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481024	481220	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482027	482223	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483030	483226	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484028	484224	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485027	485223	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	338155	338393	
==>"LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getstdout",
                  "FLAGS" => ":bas <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13677	13772	
==><body($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to a <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29460	29555	
==><body($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to a <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30102	30197	
==><body($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to a <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31327	31422	
==><body($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to a <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32940	33035	
==><body($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to a <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34628	34723	
==><body($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to a <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35958	36053	
==><body($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to a <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37903	37998	
==><body($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to a <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39947	40042	
==><body($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to a <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632764	633121	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633806	634163	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634923	635280	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636041	636398	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637159	637516	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080697	1081054	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081762	1082119	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082827	1083184	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103076	1103433	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104290	1104647	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459795	459889	
==>rc/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460783	460877	
==>rc/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461771	461865	
==>rc/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471138	471232	
==>rc/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472125	472219	
==>rc/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473112	473206	
==>rc/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480645	480739	
==>rc/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481648	481742	
==>rc/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482651	482745	
==>rc/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter <==
10	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	78432	78526	
==>rrortext = "Treating \"$what\" as $_[0]";
	$errorprefix = "Parse::RecDescent";
	$errortext =~ s <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431843	432155	
==>NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432857	433169	
==>NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433872	434184	
==>NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434886	435198	
==>NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435901	436213	
==>NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436915	437227	
==>NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437930	438242	
==>NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
10	/Users/nnunley/parrot/lib/Parrot/Config.pm	1653	1738	
==>nclude -fno-common -no-cpp-precomp  -pipe -Wdeclaration-after-statement -I/usr/local/i <==
10	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1041	1126	
==>nclude -fno-common -no-cpp-precomp  -pipe -Wdeclaration-after-statement -I/usr/local/i <==
10	/Users/nnunley/parrot/tools/build/dynpmc.pl	1045	1130	
==>nclude -fno-common -no-cpp-precomp  -pipe -Wdeclaration-after-statement -I/usr/local/i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699978	700332	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700968	701322	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701959	702313	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702950	703304	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703942	704296	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704933	705287	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705925	706279	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706917	707271	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150951	151094	
==>"ic"
                            ],
                  "BODY" => "#line 112 \"src/ops/cmp.ops\"\n  if (0 == string_equal(interpreter,\n      {{\@ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151929	152072	
==>"ic"
                            ],
                  "BODY" => "#line 112 \"src/ops/cmp.ops\"\n  if (0 == string_equal(interpreter,\n      {{\@ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188310	188607	
==>GS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 224,
                  "ARGS" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462799	462890	
==>}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463796	463887	
==>}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464793	464884	
==>}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474139	474230	
==>}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475130	475221	
==>}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476121	476212	
==>}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483694	483785	
==>}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484693	484784	
==>}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485692	485783	
==>}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	287530	287857	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288385	288712	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289241	289568	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290097	290424	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290942	291269	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291788	292115	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292634	292961	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293509	293836	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294385	294712	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295261	295588	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901790	902238	
==>"io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1017,
                  "ARGS" => [
                              "s",
                              "ic",
                              "i",
                              "sc"
                            ],
                  "BOD <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	3259	3373	
==>}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'call', A <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385308	385401	
==>2({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"see <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386439	386532	
==>2({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"see <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387570	387663	
==>2({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"see <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388702	388795	
==>2({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"see <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389833	389926	
==>2({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"see <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390965	391058	
==>2({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"see <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392097	392190	
==>2({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"see <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393230	393323	
==>2({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"see <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632752	633076	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGD <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633794	634118	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGD <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634911	635235	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGD <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636029	636353	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGD <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637147	637471	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGD <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080685	1081009	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGD <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081750	1082074	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGD <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082815	1083139	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGD <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103064	1103388	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGD <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104278	1104602	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGD <==
10	/Users/nnunley/parrot/examples/benchmarks/mops.pl	258	348	
==>SCRIPTION

A Perl implementation of the F<examples/mops/mops.pasm> example program,
for spe <==
10	/Users/nnunley/parrot/examples/mops/mops.pl	254	344	
==>SCRIPTION

A Perl implementation of the F<examples/mops/mops.pasm> example program,
for spe <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396054	396143	
==>c/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397134	397223	
==>c/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398214	398303	
==>c/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399295	399384	
==>c/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400375	400464	
==>c/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401456	401545	
==>c/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402537	402626	
==>c/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403619	403708	
==>c/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458686	458954	
==>=> "inline",
                  "CODE" => 526,
                  "ARGS" => [
                              "n",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 240 \"src/ops/math.ops <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13696	13792	
==>e, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the number <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29479	29575	
==>e, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the number <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30121	30217	
==>e, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the number <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31346	31442	
==>e, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the number <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32959	33055	
==>e, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the number <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34647	34743	
==>e, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the number <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35977	36073	
==>e, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the number <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37922	38018	
==>e, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the number <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39966	40062	
==>e, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the number <==
10	/Users/nnunley/parrot/lib/Test/Builder.pm	36022	36164	
==>red a failure and will exit with 255.

So the exit codes are...

    0                   all tests successful
    255                 test died <==
10	/Users/nnunley/parrot/lib/Test/More.pm	34093	34235	
==>red a failure and will exit with 255.

So the exit codes are...

    0                   all tests successful
    255                 test died <==
10	/Users/nnunley/parrot/lib/Test/Simple.pm	2888	3030	
==>red a failure and will exit with 255.

So the exit codes are...

    0                   all tests successful
    255                 test died <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	243	338	
==>30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expres <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	242	337	
==>30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expres <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	244	339	
==>30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expres <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	246	341	
==>30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expres <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	246	341	
==>30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expres <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	244	339	
==>30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expres <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	254	349	
==>30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expres <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752134	752423	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752913	753202	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753700	753989	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754488	754777	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755274	755563	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756061	756350	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756850	757139	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757640	757929	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758412	758701	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  " <==
10	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3385	3515	
==>, 'apply_ARRAY'],
  ['',            'inc', 'I2'],
  ['',            'set', 'P17', 'P17[1]'],
  ['',            'typeof', 'I16', 'P1 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185488	185787	
==>" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186417	186716	
==>" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187347	187646	
==>" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188277	188576	
==>" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189218	189517	
==>" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190158	190457	
==>" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191099	191398	
==>" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192038	192337	
==>" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192978	193277	
==>" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193956	194255	
==>" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997738	997967	
==>i",
                              "sc",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459823	459916	
==>den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460811	460904	
==>den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461799	461892	
==>den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471166	471259	
==>den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472153	472246	
==>den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473140	473233	
==>den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480673	480766	
==>den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481676	481769	
==>den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482679	482772	
==>den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476381	476637	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477276	477532	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478172	478428	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479063	479319	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479955	480211	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480957	481213	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481960	482216	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482963	483219	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483961	484217	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484960	485216	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
10	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7100	7204	
==>);

  my $copy = $self->_new_pair;

  $self->_add_inst('', 'set', [$head, $copy]);

  # maybe ensure that <==
10	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	132	226	
==>ead1 NAME

Parrot::Docs::Group - Group of documentation items

=head1 SYNOPSIS

	use Parrot::Do <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396090	396182	
==>et(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpre <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397170	397262	
==>et(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpre <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398250	398342	
==>et(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpre <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399331	399423	
==>et(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpre <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400411	400503	
==>et(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpre <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401492	401584	
==>et(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpre <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402573	402665	
==>et(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpre <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403655	403747	
==>et(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpre <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	821598	821841	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822665	822908	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823733	823976	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824803	825046	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825874	826117	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826943	827186	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828013	828256	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829080	829323	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
10	/Users/nnunley/parrot/lib/Test/More.pm	25082	25186	
==>ack %Refs_Seen);
my $DNE = bless [], 'Does::Not::Exist';
sub is_deeply {
    unless( @_ == 2 or @_ == 3 ) <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	207	299	
==>t/Block/Conditional/Else.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "us <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878655	878967	
==>"NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879758	880070	
==>"NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880862	881174	
==>"NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881966	882278	
==>"NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883071	883383	
==>"NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884176	884488	
==>"NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885282	885594	
==>"NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886388	886700	
==>"NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	896	996	
==>cros required by the ops.

=cut

sub defines
{
    return <<END;
#define REL_PC ((size_t)((opcode_t*) <==
10	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1026	1126	
==>cros required by the ops.

=cut

sub defines
{
    return <<END;
#define REL_PC ((size_t)((opcode_t*) <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279137	279481	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279991	280335	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	280846	281190	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	281701	282045	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	282545	282889	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283390	283734	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284235	284579	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285111	285455	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285988	286332	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286865	287209	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
10	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	7166	7263	
==>"group_iback");
    my $back = $self->genlabel("group_back");
    my $next = $self->genlabel("grou <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	287727	288007	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288582	288862	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289438	289718	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290294	290574	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291139	291419	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291985	292265	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292831	293111	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293706	293986	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294582	294862	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295458	295738	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
10	/Users/nnunley/parrot/lib/Pod/Simple.pm	23924	24057	
==>ts first two (non-child) items)
        );
        --$i;  # back up for new stuff
      } else {
        # otherwise it's unremarkable <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462795	462886	
==>{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463792	463883	
==>{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464789	464880	
==>{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474135	474226	
==>{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475126	475217	
==>{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476117	476208	
==>{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483690	483781	
==>{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484689	484780	
==>{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485688	485779	
==>{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	821681	821943	
==>"lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822748	823010	
==>"lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823816	824078	
==>"lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824886	825148	
==>"lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825957	826219	
==>"lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827026	827288	
==>"lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828096	828358	
==>"lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829163	829425	
==>"lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
10	/Users/nnunley/parrot/config/auto/jit.pm	5289	5418	
==>ed
        #
        # test for some instructions
        if ($jitcpuarch eq 'i386') {
            cc_gen('config/auto/jit/test_c. <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4863	4963	
==>l tables of parent blocks.

=cut

sub dump_symbols
{
  my $self = shift; # Required: Jako::Construct: <==
10	/Users/nnunley/parrot/tools/dev/symlink.pl	2312	2426	
==>ot a symlink\n";
		}
	    }
	    if (!defined $readlink || $readlink ne $srcfile) {
		print "$dstfile\n" if $v;
		i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822246	822342	
==>\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823314	823410	
==>\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824381	824477	
==>\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825452	825548	
==>\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826522	826618	
==>\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827592	827688	
==>\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828661	828757	
==>\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829729	829825	
==>\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_ <==
10	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	2499	2595	
==>ady defined, Pod::Simple::Debug will
throw a fatal error to the effect that
"it's s too late to c <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	466994	467256	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467864	468126	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468735	468997	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469609	469871	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470484	470746	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471470	471732	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472457	472719	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473444	473706	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474434	474696	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475425	475687	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/Op.pm	5441	5559	
==>_)
    {
        $self->{JUMP} = shift;
    }

    return $self->{JUMP};
}

=item C<full_body()>

For manual ops, C<ful <==
10	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	1552	1653	
==>t_in_ops;
    if (opcode_addr == NULL) return NULL;
    offset_in_ops = opcode_addr - (opcode_t*) inte <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412935	413023	
==>\"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}} <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414062	414150	
==>\"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}} <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415189	415277	
==>\"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}} <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416317	416405	
==>\"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}} <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417444	417532	
==>\"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}} <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418572	418660	
==>\"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}} <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419700	419788	
==>\"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}} <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420829	420917	
==>\"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}} <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231246	231596	
==>> {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "F <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232150	232500	
==>> {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "F <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233054	233404	
==>> {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "F <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233957	234307	
==>> {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "F <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234861	235211	
==>> {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "F <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235765	236115	
==>> {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "F <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240250	240600	
==>> {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "F <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241198	241548	
==>> {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "F <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242146	242496	
==>> {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "F <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243095	243445	
==>> {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "F <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16651	16926	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	17425	17700	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18220	18495	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19029	19304	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19805	20080	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20583	20858	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21383	21658	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305692	305967	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	306468	306743	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307261	307536	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
10	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	38532	38706	
==>rocedure_p,
  'apply'                           => \&_op_apply,
  'map'                             => \&_op_map,
  'for-each'                        => \&_op_for_each,
  'for <==
10	/Users/nnunley/parrot/tools/build/jit2c.pl	11565	11692	
==>unc $extern\n";
        }
        # *) $R = $X->vtable->{vtable}(interp, $Y, $Z)
        elsif ($opbody =~ /
        ^(?:.*\.ops <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692887	692995	
==>\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "L <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693887	693995	
==>\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "L <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694887	694995	
==>\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "L <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695888	695996	
==>\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "L <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696888	696996	
==>\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "L <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697889	697997	
==>\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "L <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698890	698998	
==>\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "L <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699892	700000	
==>\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "L <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296379	296712	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297234	297567	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298090	298423	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298946	299279	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299791	300124	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300637	300970	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301483	301816	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302358	302691	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303234	303567	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	304110	304443	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500476	500685	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501214	501423	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501953	502162	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502691	502900	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503430	503639	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504284	504493	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505139	505348	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505994	506203	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506848	507057	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507703	507912	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	373436	373764	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374318	374646	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375201	375529	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376084	376412	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376968	377296	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377851	378179	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378735	379063	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379619	379947	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
10	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	44066	44186	
==>ore(@args);
      }
    } else {
      my @args = map { $self->_generate($_); } _get_args($node, 0);
      $return = $sel <==
10	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	223	314	
==>20350 2006-06-25T03:57:27.771662Z petdance  $' =~ /^\$[iI][dD]:\s(.*)\$$/;

=head1 NAME

too <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13721	13817	
==>he C code for the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> i <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29504	29600	
==>he C code for the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> i <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30146	30242	
==>he C code for the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> i <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31371	31467	
==>he C code for the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> i <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32984	33080	
==>he C code for the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> i <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34672	34768	
==>he C code for the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> i <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36002	36098	
==>he C code for the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> i <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37947	38043	
==>he C code for the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> i <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39991	40087	
==>he C code for the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1288	1375	
==>VAL*, void **);\n\n\n\n/*\n** pmc.ops\n*/\n\n\n\n/*\n** python.ops\n*/\n\n/* XXX in io/i <==
10	/Users/nnunley/parrot/lib/Test/Builder.pm	35400	35534	
==>55 ) && return;
    }
    else {
        $self->diag("No tests run!\n");
        _my_exit( 255 ) && return;
    }
}

END {
    $Test->_ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462782	462876	
==>ATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisi <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463779	463873	
==>ATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisi <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464776	464870	
==>ATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisi <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474122	474216	
==>ATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisi <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475113	475207	
==>ATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisi <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476104	476198	
==>ATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisi <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483677	483771	
==>ATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisi <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484676	484770	
==>ATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisi <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485675	485769	
==>ATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisi <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	270541	270861	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271386	271706	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272232	272552	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273078	273398	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273923	274243	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	274769	275089	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	275615	275935	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276492	276812	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277370	277690	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	278248	278568	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
10	/Users/nnunley/parrot/tools/build/pmc2c.pl	11220	11327	
==>block, 1,-1); # trim out the { }

    my (@methods, %meth_hash, $class_init);

    while ($classblock =~ s/( <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459807	459903	
==>ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_Zero <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460795	460891	
==>ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_Zero <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461783	461879	
==>ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_Zero <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471150	471246	
==>ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_Zero <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472137	472233	
==>ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_Zero <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473124	473220	
==>ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_Zero <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480657	480753	
==>ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_Zero <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481660	481756	
==>ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_Zero <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482663	482759	
==>ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_Zero <==
10	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	8579	8710	
==>hift;
    my $tagname = $token->tagname;
    
    if ( $tagname =~ m/^over-/s ) 
    {
        pop @{$self->{STACK}};
    }
    elsi <==
10	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	6056	6159	
==>group_setup {
    my ($self, $group) = @_;
    $self->{_setup_starts}{$group} = 1;
    $self->{_setup_en <==
10	/Users/nnunley/parrot/config/auto/bc.pm	395	488	
==>rict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Confi <==
10	/Users/nnunley/parrot/config/auto/gdbm.pm	340	433	
==>rict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Confi <==
10	/Users/nnunley/parrot/config/auto/gmp.pm	294	387	
==>rict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Confi <==
10	/Users/nnunley/parrot/config/auto/m4.pm	369	462	
==>rict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Confi <==
10	/Users/nnunley/parrot/config/auto/readline.pm	301	394	
==>rict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Confi <==
10	/Users/nnunley/parrot/config/gen/icu.pm	274	367	
==>rict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Confi <==
10	/Users/nnunley/parrot/config/init/defaults.pm	322	415	
==>rict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Confi <==
10	/Users/nnunley/parrot/config/init/optimize.pm	387	480	
==>rict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Confi <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231570	231867	
==>"cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 27 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232474	232771	
==>"cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 27 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233378	233675	
==>"cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 27 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234281	234578	
==>"cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 27 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235185	235482	
==>"cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 27 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236089	236386	
==>"cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 27 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236970	237267	
==>"cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 27 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237852	238149	
==>"cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 27 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238734	239031	
==>"cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 27 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	239627	239924	
==>"cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 27 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888308	888678	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ": <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889442	889812	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ": <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890576	890946	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ": <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891711	892081	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ": <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892845	893215	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ": <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893980	894350	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ": <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895115	895485	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ": <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896251	896621	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ": <==
10	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	3570	3693	
==>ly all string.
        next if /^\s*\".*\"(\);|,)?$/;

        if (length($_) > 79) {
            warning($file, $line, "lin <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1776	1882	
==>t;
  my ($compiler) = @_;

  my $block = $self->block;
  my $name  = $self->ident ? $self->ident->value : u <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909408	909730	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FL <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910305	910627	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FL <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911202	911524	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FL <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912100	912422	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FL <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540392	540497	
==>TVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541644	541749	
==>TVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542896	543001	
==>TVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544165	544270	
==>TVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545501	545606	
==>TVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546837	546942	
==>TVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	287732	288069	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288587	288924	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289443	289780	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290299	290636	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291144	291481	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291990	292327	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292836	293173	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293711	294048	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294587	294924	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295463	295800	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384572	384923	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385702	386053	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386833	387184	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387964	388315	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389096	389447	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390227	390578	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391359	391710	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392491	392842	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	3959	4056	
==>y $token = $self->get;

  $self->file($token->file);
  $self->line($token->line);

  return $token <==
10	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	23	110	
==>he Perl Foundation.
# $Id: /parrot/lib/Parrot/Docs/HTMLPage.pm 20321 2006-06-20T20:02:00 <==
10	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27312	27432	
==>new BranchOp( $parser,
        'result' => $l_continue,
    );
    push @opcodes, new LabelOp( $parser,
        'arg1 <==
10	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28191	28311	
==>new BranchOp( $parser,
        'result' => $l_continue,
    );
    push @opcodes, new LabelOp( $parser,
        'arg1 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396060	396150	
==>io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) { <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397140	397230	
==>io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) { <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398220	398310	
==>io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) { <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399301	399391	
==>io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) { <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400381	400471	
==>io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) { <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401462	401552	
==>io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) { <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402543	402633	
==>io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) { <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403625	403715	
==>io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) { <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061983	1062267	
==>{
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fun <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062852	1063136	
==>{
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fun <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063721	1064005	
==>{
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fun <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064591	1064875	
==>{
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fun <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065464	1065748	
==>{
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fun <==
10	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	3537	3668	
==>) {
            last unless $children[0]->{name} eq 'seq';
            my ($S0, @Srest) = @{ $children[0]->{args} };
            las <==
10	/Users/nnunley/parrot/lib/Test/More.pm	22404	22503	
==>ike having a programmatic todo list.  You know
how much work is left to be done, you're aware of wha <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	628	715	
==>dest) . ") is not Identifier!") unless UNIVERSAL::isa($dest, 'Jako::Construct::Expressio <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	619	706	
==>dest) . ") is not Identifier!") unless UNIVERSAL::isa($dest, 'Jako::Construct::Expressio <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	508	595	
==>dest) . ") is not Identifier!") unless UNIVERSAL::isa($dest, 'Jako::Construct::Expressio <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396138	396250	
==>f(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABE <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397218	397330	
==>f(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABE <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398298	398410	
==>f(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABE <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399379	399491	
==>f(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABE <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400459	400571	
==>f(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABE <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401540	401652	
==>f(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABE <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402621	402733	
==>f(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABE <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403703	403815	
==>f(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABE <==
10	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	1043	1144	
==>about new generated files.
# 
# Ignore the SVN directories
\B\.svn\b

# debian/ should not go into rel <==
10	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3898	3998	
==>about new generated files.
#
# Ignore the SVN directories
\B\.svn\b

# debian/ should not go into rel <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	652488	652742	
==>r(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672994	673248	
==>r(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681525	681779	
==>r(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	35536	35788	
==>r(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739747	739999	
==>r(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752066	752318	
==>r(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943891	944143	
==>r(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944680	944932	
==>r(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954331	954583	
==>r(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955122	955374	
==>r(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964225	964576	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965232	965583	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966240	966591	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967248	967599	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968257	968608	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969265	969616	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970274	970625	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971283	971634	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
10	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	3111	3225	
==>)$/;
    
    $self->{SUFFIX} = defined $suffix ? $suffix : '';
    
    return $self->{SUFFIX};
}

=item C<has_suf <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	617660	617750	
==>oto runit_v_pp;\n\tif (++lru->u.type == lr_types)\n\t    goto runit_v_pp;\n\tmic->pic->miss <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	395403	395702	
==>{
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396482	396781	
==>{
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397562	397861	
==>{
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398642	398941	
==>{
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399723	400022	
==>{
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400803	401102	
==>{
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401884	402183	
==>{
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402965	403264	
==>{
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i" <==
10	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7254	7414	
==>DERR "Reduce using rule ".-$act." ($lhs,$len): ";

                $act
            or  $self->YYAccept();

            $$dotpos=$len;

                un <==
10	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6918	7071	
==>DERR "Reduce using rule ".-$act." ($lhs,$len): ";

                $act
            or  $self->YYAccept();

            $$dotpos=$len;

                un <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731007	731272	
==>E" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 82 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731743	732008	
==>E" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 82 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732488	732753	
==>E" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 82 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733234	733499	
==>E" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 82 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733997	734262	
==>E" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 82 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734761	735026	
==>E" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 82 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735496	735761	
==>E" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 82 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736232	736497	
==>E" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 82 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736977	737242	
==>E" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 82 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737723	737988	
==>E" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 82 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738486	738751	
==>E" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 83 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739250	739515	
==>E" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 83 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740027	740292	
==>E" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 83 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740804	741069	
==>E" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 83 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741539	741804	
==>E" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 83 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742301	742566	
==>E" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 83 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743066	743331	
==>E" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 83 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743832	744097	
==>E" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 83 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744597	744862	
==>E" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 83 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745363	745628	
==>E" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 83 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185454	185751	
==>RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186383	186680	
==>RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187313	187610	
==>RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188243	188540	
==>RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189184	189481	
==>RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190124	190421	
==>RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191065	191362	
==>RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192004	192301	
==>RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192944	193241	
==>RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193922	194219	
==>RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321613	321885	
==>eter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323969	324241	
==>eter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	329427	329699	
==>eter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	330905	331177	
==>eter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	751296	751568	
==>eter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945497	945769	
==>eter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946307	946579	
==>eter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955941	956213	
==>eter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956753	957025	
==>eter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
10	/Users/nnunley/parrot/lib/Pod/Simple.pm	25862	25978	
==>acks_one eq '0' or $fallbacks_one eq '1'
    ) {
      $self->whine(
        $para->[1]{'start_line'},
        "Forma <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	270309	270633	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "F <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271154	271478	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "F <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272000	272324	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "F <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272846	273170	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "F <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273691	274015	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "F <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	274537	274861	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "F <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	275383	275707	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "F <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276260	276584	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "F <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277138	277462	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "F <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	278016	278340	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "F <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296196	296521	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FL <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297051	297376	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FL <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297907	298232	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FL <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298763	299088	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FL <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299608	299933	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FL <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300454	300779	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FL <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301300	301625	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FL <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302175	302500	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FL <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303051	303376	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FL <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303927	304252	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FL <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	257	353	
==>5:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statement:: <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	249	345	
==>5:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statement:: <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	251	347	
==>5:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statement:: <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	245	341	
==>5:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statement:: <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	255	351	
==>5:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statement:: <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	245	341	
==>5:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statement:: <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	255	351	
==>5:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statement:: <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	259	355	
==>5:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statement:: <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	243	339	
==>5:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statement:: <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	249	345	
==>5:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statement:: <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049595	1049914	
==>,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050628	1050947	
==>,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051662	1051981	
==>,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052696	1053015	
==>,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053731	1054050	
==>,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054857	1055176	
==>,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055966	1056285	
==>,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056857	1057176	
==>,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057749	1058068	
==>,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058641	1058960	
==>,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
10	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	12880	13002	
==>T qq($atag<font color="red">$_</font>)
            } elsif ($_ =~ /call \d+ returns = 0%/) {
                print OUT qq($ <==
10	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28002	28105	
==>lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse <==
10	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30076	30179	
==>lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse <==
10	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32277	32380	
==>lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse <==
10	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34873	34976	
==>lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse <==
10	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41983	42086	
==>lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse <==
10	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74534	74635	
==>lastexpected
		    && !$Parse::RecDescent::failed++) {
			$Parse::RecDescent::expected
			    = $Parse <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186013	186109	
==>.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186943	187039	
==>.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187873	187969	
==>.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451108	451320	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451846	452058	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452585	452797	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453323	453535	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454062	454274	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454916	455128	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455771	455983	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456626	456838	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457480	457692	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458335	458547	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13733	13830	
==>r the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29516	29613	
==>r the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30158	30255	
==>r the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31383	31480	
==>r the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32996	33093	
==>r the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34684	34781	
==>r the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36014	36111	
==>r the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37959	38056	
==>r the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40003	40100	
==>r the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of <==
10	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19361	19455	
==>y-string
("").

=item $author_name   = $parser->get_author

This works like get_title except th <==
10	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1280	1381	
==>(1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
dec ${ITEMP0}
${PTEMP0} = $ <==
10	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2990	3091	
==>(1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
dec ${ITEMP0}
${PTEMP0} = $ <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	756	844	
==>fess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct:: <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	504	592	
==>fess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct:: <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	480	568	
==>fess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct:: <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	495	583	
==>fess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct:: <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	384	472	
==>fess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct:: <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	482	570	
==>fess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct:: <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	482	570	
==>fess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct:: <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	471	559	
==>fess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct:: <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	287743	288076	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288598	288931	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289454	289787	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290310	290643	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291155	291488	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292001	292334	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292847	293180	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293722	294055	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294598	294931	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295474	295807	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879413	879732	
==>}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880517	880836	
==>}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881621	881940	
==>}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882726	883045	
==>}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883831	884150	
==>}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884937	885256	
==>}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886043	886362	
==>}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887150	887469	
==>}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	19055	19159	
==>PMC_IS_SINGLETON';
    }
    if (exists $self->{flags}{is_shared}) {
        $vtbl_flag .= '|VTABLE_IS_SH <==
10	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	144	237	
==>NAME

Parrot::Docs::Libs - Parrot libraries documentation section

=head1 SYNOPSIS

	use Parro <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	311219	311315	
==>is disabled\\n\");\n#else\n\t/*\n\t * XXX adjust register layout\n\t */\n        PDB_print_int(in <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459847	459940	
==>\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by z <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460835	460928	
==>\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by z <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461823	461916	
==>\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by z <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471190	471283	
==>\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by z <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472177	472270	
==>\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by z <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473164	473257	
==>\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by z <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480697	480790	
==>\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by z <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481700	481793	
==>\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by z <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482703	482796	
==>\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by z <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039430	1039751	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLA <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040322	1040643	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLA <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041214	1041535	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLA <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042107	1042428	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLA <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043003	1043324	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLA <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043900	1044221	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLA <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044793	1045114	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLA <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045687	1046008	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLA <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046581	1046902	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLA <==
10	/Users/nnunley/parrot/lib/Text/Balanced.pm	57656	57752	
==>d extract a ' or " delimited string, otherwise extract anything up to a comma...">.
The undef thi <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480095	480393	
==>"JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481097	481395	
==>"JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482100	482398	
==>"JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483103	483401	
==>"JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484101	484399	
==>"JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485100	485398	
==>"JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
10	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	2074	2205	
==>"END_PIR"             # or
    $I100 = %1
    $I101 = %2
    $I100 = or $I100, $I101
    %1 = $I100
END_PIR

    $P0[unicode:"dyadic <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1959	2050	
==>ue);
    $self->SYNTAX_ERROR("Expression involves unknown variable %s.", $left->value) unles <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1917	2008	
==>ue);
    $self->SYNTAX_ERROR("Expression involves unknown variable %s.", $left->value) unles <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1839	1930	
==>ue);
    $self->SYNTAX_ERROR("Expression involves unknown variable %s.", $left->value) unles <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	287570	287968	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288425	288823	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289281	289679	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290137	290535	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290982	291380	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291828	292226	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292674	293072	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293549	293947	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294425	294823	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295301	295699	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039415	1039722	
==>\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_gl <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040307	1040614	
==>\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_gl <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041199	1041506	
==>\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_gl <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042092	1042399	
==>\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_gl <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042988	1043295	
==>\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_gl <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043885	1044192	
==>\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_gl <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044778	1045085	
==>\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_gl <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045672	1045979	
==>\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_gl <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046566	1046873	
==>\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_gl <==
10	/Users/nnunley/parrot/lib/Test/More.pm	13966	14130	
==>ref $object;
            $diag = "$obj_name isn't a '$class' it's a '$ref'";
        }
    }
            
      

    my $ok;
    if( $diag ) {
        $ok = $Test-> <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327470	327843	
==>u_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 384,
                  "ARGS" => [
                              "p",
                              "nc"
                            ],
                  "BO <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462807	462899	
==>f ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Div <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463804	463896	
==>f ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Div <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464801	464893	
==>f ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Div <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474147	474239	
==>f ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Div <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475138	475230	
==>f ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Div <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476129	476221	
==>f ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Div <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483702	483794	
==>f ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Div <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484701	484793	
==>f ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Div <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485700	485792	
==>f ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Div <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164222	164554	
==>LATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165150	165482	
==>LATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166079	166411	
==>LATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167008	167340	
==>LATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167946	168278	
==>LATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168887	169219	
==>LATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169829	170161	
==>LATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170769	171101	
==>LATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171710	172042	
==>LATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172687	173019	
==>LATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
10	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15548	15635	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

1;


__END__

=he <==
10	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2133	2219	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__END__

=he <==
10	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3058	3144	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__END__

=he <==
10	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	773	859	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__END__

=he <==
10	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3528	3613	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__END__

=he <==
10	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2281	2366	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__END__

=he <==
10	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11790	11875	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

1;
__END__

=he <==
10	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2384	2469	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__END__

=he <==
10	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11041	11125	
==>---------------------------------------------------------------------
1;
__END__

=he <==
10	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1585	1669	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1;
__END__

=he <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627141	627236	
==>e_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628285	628380	
==>e_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632543	632638	
==>e_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633585	633680	
==>e_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634642	634737	
==>e_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635760	635855	
==>e_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636878	636973	
==>e_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637997	638092	
==>e_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", <==
10	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1776	1869	
==>ref(interpreter, $addr)))";
  }
}

=item C<goto_offset($offset)>

Transforms the C<goto OFFSET <==
10	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9137	9222	
==>[9],5,0xd62f105d,/* 21 */
GG,$d,$a,$b,$c,$_[14],9,0x2441453,/* 22 */
GG,$c,$d,$a,$b,$_ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296210	296555	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARG <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297065	297410	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARG <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297921	298266	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARG <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298777	299122	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARG <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299622	299967	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARG <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300468	300813	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARG <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301314	301659	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARG <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302189	302534	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARG <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303065	303410	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARG <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303941	304286	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARG <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279024	279350	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279878	280204	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	280733	281059	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	281588	281914	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	282432	282758	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283277	283603	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284122	284448	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284998	285324	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285875	286201	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286752	287078	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143032	143329	
==>ME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143959	144256	
==>ME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144887	145184	
==>ME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145815	146112	
==>ME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146750	147047	
==>ME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147690	147987	
==>ME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148631	148928	
==>ME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149571	149868	
==>ME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150512	150809	
==>ME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151489	151786	
==>ME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	287537	287886	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDI <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288392	288741	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDI <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289248	289597	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDI <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290104	290453	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDI <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290949	291298	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDI <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291795	292144	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDI <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292641	292990	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDI <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293516	293865	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDI <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294392	294741	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDI <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295268	295617	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDI <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202177	202504	
==>RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203107	203434	
==>RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204038	204365	
==>RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204969	205296	
==>RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205911	206238	
==>RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206852	207179	
==>RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207794	208121	
==>RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208734	209061	
==>RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209675	210002	
==>RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210654	210981	
==>RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164220	164517	
==>RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165148	165445	
==>RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166077	166374	
==>RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167006	167303	
==>RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167944	168241	
==>RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168885	169182	
==>RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169827	170124	
==>RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170767	171064	
==>RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171708	172005	
==>RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172685	172982	
==>RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038755	1039112	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039646	1040003	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040538	1040895	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041430	1041787	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042323	1042680	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043219	1043576	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044116	1044473	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045009	1045366	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045903	1046260	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046797	1047154	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912353	912684	
==>JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913363	913694	
==>JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914374	914705	
==>JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915385	915716	
==>JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916397	916728	
==>JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917408	917739	
==>JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918420	918751	
==>JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919432	919763	
==>JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359288	359383	
==>"#line 250 \"src/ops/io.ops\"\n  STRING * const s = {{\@1}};\n  if (s && string_length(interpret <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360036	360131	
==>"#line 250 \"src/ops/io.ops\"\n  STRING * const s = {{\@1}};\n  if (s && string_length(interpret <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049619	1049922	
==>E" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 11 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050652	1050955	
==>E" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 11 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051686	1051989	
==>E" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 11 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052720	1053023	
==>E" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 11 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053755	1054058	
==>E" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 11 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054881	1055184	
==>E" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 11 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055990	1056293	
==>E" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 11 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056881	1057184	
==>E" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 11 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057773	1058076	
==>E" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 11 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058665	1058968	
==>E" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 11 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071140	1071485	
==>=> "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073324	1073669	
==>=> "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075509	1075854	
==>=> "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077694	1078039	
==>=> "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459203	459480	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460190	460467	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461178	461455	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462166	462443	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463162	463439	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464159	464436	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692901	693075	
==>ster_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693901	694075	
==>ster_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694901	695075	
==>ster_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695902	696076	
==>ster_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696902	697076	
==>ster_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697903	698077	
==>ster_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698904	699078	
==>ster_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699906	700080	
==>ster_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
10	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1268	1374	
==>ut, $desc );
        $self->{builder}->diag("'$cmd' failed with exit code $exit_code")
        if $exit_cod <==
10	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1309	1415	
==>ut, $desc );
        $self->{builder}->diag("'$cmd' failed with exit code $exit_code")
        if $exit_cod <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185460	185782	
==>VE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186389	186711	
==>VE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187319	187641	
==>VE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188249	188571	
==>VE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189190	189512	
==>VE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190130	190452	
==>VE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191071	191393	
==>VE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192010	192332	
==>VE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192950	193272	
==>VE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193928	194250	
==>VE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878577	878786	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879680	879889	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880784	880993	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881888	882097	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882993	883202	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884098	884307	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885204	885413	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886310	886519	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	393	510	
==>::Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected 5 args!" unless @_ == 5;

  my ($bl <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	393	510	
==>::Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected 5 args!" unless @_ == 5;

  my ($bl <==
10	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8482	8591	
==>DBG>			and	print STDERR 
#DBG>				    "go to state $$states[$$stack[-1][0]]{GOTOS}{$lhs}.\n";

#DBG>				$de <==
10	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8097	8203	
==>DBG>			and	print STDERR 
#DBG>				    "go to state $$states[$$stack[-1][0]]{GOTOS}{$lhs}.\n";

#DBG>				$de <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385329	385423	
==>{{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386460	386554	
==>{{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387591	387685	
==>{{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388723	388817	
==>{{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389854	389948	
==>{{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390986	391080	
==>{{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392118	392212	
==>{{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393251	393345	
==>{{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871176	871476	
==>, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872193	872493	
==>, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873210	873510	
==>, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874228	874528	
==>, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875245	875545	
==>, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876263	876563	
==>, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877281	877581	
==>, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878300	878600	
==>, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	448651	448884	
==>{{\@2}};\n  }\n  else {\n    {{\@1}} = (FLOATVAL){{\@2}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
10	/Users/nnunley/parrot/config/gen/core_pmcs.pm	1654	1752	
==>{_}_class_init(Interp *, int, int);\n" foreach (@pmcs);

    print OUT <<"END_C";

void Parrot_regi <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	270545	270893	
==>{
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271390	271738	
==>{
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272236	272584	
==>{
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273082	273430	
==>{
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273927	274275	
==>{
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	274773	275121	
==>{
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	275619	275967	
==>{
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276496	276844	
==>{
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277374	277722	
==>{
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	278252	278600	
==>{
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
10	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	2181	2286	
==>ple', '',
            $self->new_item('A list of some of the Parrot developers with SVN commit access.', ' <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13737	13833	
==>e method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of th <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29520	29616	
==>e method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of th <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30162	30258	
==>e method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of th <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31387	31483	
==>e method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of th <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33000	33096	
==>e method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of th <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34688	34784	
==>e method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of th <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36018	36114	
==>e method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of th <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37963	38059	
==>e method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of th <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40007	40103	
==>e method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of th <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	133	224	
==>e
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Statement/ <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	129	220	
==>e
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Statement/ <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	130	221	
==>e
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Statement/ <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	127	218	
==>e
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Statement/ <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	132	223	
==>e
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Statement/ <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	127	218	
==>e
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Statement/ <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	132	223	
==>e
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Statement/ <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	134	225	
==>e
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Statement/ <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	126	217	
==>e
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Statement/ <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	129	220	
==>e
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Statement/ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412270	412616	
==>AME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413396	413742	
==>AME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414523	414869	
==>AME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415650	415996	
==>AME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416778	417124	
==>AME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417905	418251	
==>AME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419033	419379	
==>AME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420161	420507	
==>AME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
10	/Users/nnunley/parrot/lib/Text/Balanced.pm	47914	48045	
==>ranges the string to an equivalent piece of Perl:

        <<'EOMSG'
        This is the message.
        EOMSG
        || die;
	exi <==
10	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2355	2453	
==>the C code for the run
core function declaration. C<$base> is the name of the main ops file minus
t <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	525559	525832	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "as <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752081	752354	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "as <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752860	753133	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "as <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753647	753920	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "as <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754435	754708	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "as <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755221	755494	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "as <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756008	756281	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "as <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756797	757070	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "as <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757587	757860	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "as <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758359	758632	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "as <==
10	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	7148	7246	
==>= $self->genlabel("group_iback");
    my $back = $self->genlabel("group_back");
    my $next = $sel <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459820	459914	
==>AL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionErr <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460808	460902	
==>AL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionErr <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461796	461890	
==>AL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionErr <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471163	471257	
==>AL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionErr <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472150	472244	
==>AL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionErr <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473137	473231	
==>AL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionErr <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480670	480764	
==>AL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionErr <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481673	481767	
==>AL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionErr <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482676	482770	
==>AL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionErr <==
10	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1302	1410	
==>errata!
      $_[0]{'Errata_seen'} = 1;
      $_[0]{'Thispara'} = $_[0]{'source_filename'} ?
        "$_[0]{' <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459838	459932	
==>n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Div <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460826	460920	
==>n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Div <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461814	461908	
==>n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Div <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471181	471275	
==>n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Div <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472168	472262	
==>n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Div <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473155	473249	
==>n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Div <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480688	480782	
==>n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Div <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481691	481785	
==>n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Div <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482694	482788	
==>n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Div <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634851	635137	
==>eter, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635969	636255	
==>eter, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637087	637373	
==>eter, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638206	638492	
==>eter, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
10	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11284	11390	
==>Altho, hmm, what about that ord?  Presumably that won't work right
        #  under non-ASCII charsets.  So <==
10	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17124	17230	
==>Altho, hmm, what about that ord?  Presumably that won't work right
        #  under non-ASCII charsets.  So <==
10	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4630	4735	
==>Altho, hmm, what about that ord?  Presumably that won't work right
       #  under non-ASCII charsets.  So <==
10	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2117	2219	
==>Altho, hmm, what about that ord?  Presumably that won't work right
    #  under non-ASCII charsets.  So <==
10	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10540	10642	
==>Altho, hmm, what about that ord?  Presumably that won't work right
    #  under non-ASCII charsets.  So <==
10	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2220	2322	
==>Altho, hmm, what about that ord?  Presumably that won't work right
    #  under non-ASCII charsets.  So <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500455	500647	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501193	501385	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501932	502124	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502670	502862	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503409	503601	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504263	504455	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505118	505310	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505973	506165	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506827	507019	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507682	507874	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572476	572738	
==>class",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573385	573647	
==>class",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574295	574557	
==>class",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575098	575360	
==>class",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577925	578187	
==>class",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597485	597747	
==>class",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598531	598793	
==>class",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599578	599840	
==>class",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600653	600915	
==>class",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	602307	602569	
==>class",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13702	13799	
==>t_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the number of lin <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29485	29582	
==>t_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the number of lin <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30127	30224	
==>t_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the number of lin <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31352	31449	
==>t_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the number of lin <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32965	33062	
==>t_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the number of lin <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34653	34750	
==>t_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the number of lin <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35983	36080	
==>t_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the number of lin <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37928	38025	
==>t_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the number of lin <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39972	40069	
==>t_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the number of lin <==
10	/Users/nnunley/parrot/lib/Parrot/Test.pm	3903	3990	
==><pir_2_pasm_is($code, $expected, $description)>

Compile the Parrot Intermediate Represe <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202209	202513	
==>ME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 2 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203139	203443	
==>ME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 2 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204070	204374	
==>ME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 2 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205001	205305	
==>ME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 2 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205943	206247	
==>ME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 2 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206884	207188	
==>ME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 2 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207826	208130	
==>ME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 2 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208766	209070	
==>ME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 2 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209707	210011	
==>ME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 2 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210686	210990	
==>ME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 2 <==
10	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11138	11284	
==>h @opcodes, @{ $key->[1] };
                        my $result2 = new_tmp( $parser, 'pmc' );
                        push @opcodes, new LocalDir( <==
10	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9365	9503	
==>h @opcodes, @{ $key->[1] };
                    my $result2 = new_tmp( $parser, 'pmc' );
                    push @opcodes, new LocalDir( <==
10	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8349	8471	
==>h @opcodes, @{ $key->[1] };
            my $result2 = new_tmp( $parser, 'pmc' );
            push @opcodes, new LocalDir( <==
10	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17567	17681	
==>h @opcodes, @{ $key->[1] };
        my $result2 = new_tmp( $parser, 'pmc' );
        push @opcodes, new LocalDir( <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72860	72951	
==>ter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"u <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74462	74553	
==>ter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"u <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76064	76155	
==>ter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"u <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77667	77758	
==>ter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"u <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79188	79279	
==>ter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"u <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80709	80800	
==>ter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"u <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692796	692932	
==>"p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, { <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693796	693932	
==>"p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, { <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694796	694932	
==>"p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, { <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695797	695933	
==>"p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, { <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696797	696933	
==>"p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, { <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697798	697934	
==>"p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, { <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698799	698935	
==>"p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, { <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699801	699937	
==>"p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, { <==
10	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	4347	4453	
==>SCALAR	# ($classname, \$text, $thisparser, $prev)
{
	bless {
		text    => $_[1],
		parser  => $_[2],
		prev <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897262	897601	
==>LL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898280	898619	
==>LL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899298	899637	
==>LL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900317	900656	
==>LL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901335	901674	
==>LL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902354	902693	
==>LL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903373	903712	
==>LL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904393	904732	
==>LL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub <==
10	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	670	779	
==>e labels, and return an array of
their indices.

=cut

sub label_indices {
    my ($self, $op) = @_;
    my @i <==
10	/Users/nnunley/parrot/lib/Text/Balanced.pm	6692	6787	
==>=~ tr/[({</])}>/;
	return $brack;
}

my $XMLNAME = q{[a-zA-Z_:][a-zA-Z0-9_:.-]*};

sub extract_t <==
10	/Users/nnunley/parrot/lib/Test/Builder.pm	1973	2080	
==>(ok);

  my $Test = Test::Builder->new;
  $Test->output('my_logfile');

  sub import {
      my($self) = shi <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459810	459906	
==>\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDiv <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460798	460894	
==>\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDiv <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461786	461882	
==>\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDiv <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471153	471249	
==>\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDiv <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472140	472236	
==>\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDiv <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473127	473223	
==>\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDiv <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480660	480756	
==>\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDiv <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481663	481759	
==>\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDiv <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482666	482762	
==>\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDiv <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321616	321889	
==>r, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323972	324245	
==>r, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	329430	329703	
==>r, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	330908	331181	
==>r, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	751299	751572	
==>r, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945500	945773	
==>r, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946310	946583	
==>r, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955944	956217	
==>r, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956756	957029	
==>r, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
10	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	8113	8199	
==>goto post_call_HAS_RETURN_${CURIC}
if "${CURIC}" == "73" goto post_call_HAS_RETURN_${CU <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	278907	279232	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FL <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279761	280086	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FL <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	280616	280941	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FL <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	281471	281796	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FL <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	282315	282640	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FL <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283160	283485	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FL <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284005	284330	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FL <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284881	285206	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FL <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285758	286083	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FL <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286635	286960	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FL <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13754	13861	
==>$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output file we are
generat <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16142	16249	
==>$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output file we are
generat <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29537	29644	
==>$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output file we are
generat <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30179	30286	
==>$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output file we are
generat <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31404	31511	
==>$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output file we are
generat <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33017	33124	
==>$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output file we are
generat <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34705	34812	
==>$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output file we are
generat <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36035	36142	
==>$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output file we are
generat <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37980	38087	
==>$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output file we are
generat <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40024	40131	
==>$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output file we are
generat <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13752	13848	
==>C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output file w <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16140	16236	
==>C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output file w <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29535	29631	
==>C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output file w <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30177	30273	
==>C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output file w <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31402	31498	
==>C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output file w <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33015	33111	
==>C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output file w <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34703	34799	
==>C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output file w <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36033	36129	
==>C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output file w <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37978	38074	
==>C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output file w <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40022	40118	
==>C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output file w <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500388	500644	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501126	501382	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501865	502121	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502603	502859	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503342	503598	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504196	504452	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505051	505307	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505906	506162	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506760	507016	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507615	507871	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13724	13820	
==>C code for the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is t <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29507	29603	
==>C code for the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is t <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30149	30245	
==>C code for the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is t <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31374	31470	
==>C code for the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is t <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32987	33083	
==>C code for the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is t <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34675	34771	
==>C code for the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is t <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36005	36101	
==>C code for the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is t <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37950	38046	
==>C code for the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is t <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39994	40090	
==>C code for the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is t <==
10	/Users/nnunley/parrot/tools/build/jit2c.pl	7485	7571	
==>normal_op
#define Parrot_jit_vtable_1123_op Parrot_jit_normal_op
#define Parrot_jit_vta <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385469	385806	
==>"LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":ba <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386600	386937	
==>"LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":ba <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387731	388068	
==>"LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":ba <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388863	389200	
==>"LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":ba <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389994	390331	
==>"LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":ba <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391126	391463	
==>"LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":ba <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392258	392595	
==>"LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":ba <==
10	/Users/nnunley/parrot/languages/regex/regex.pl	474	602	
==>sif (/--main/ || $_ eq '-m') {
        $main = 1;
    } elsif (/--debug/ || $_ eq '-d') {
        $debug = 1;
    } elsif (/--out <==
10	/Users/nnunley/parrot/tools/dev/nm.pl	5514	5632	
==>@ARGV) {
    show_help();
    exit(1);
}

sub warn_if_both {
    my ($a, $b, $sa, $sb) = @_;
    if (defined $a && defi <==
10	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	18979	19077	
==>anslation code dispatch table.
	cur_ic = bc.read_uint8()
	next_pc += 1
PIRCODE
    $pir .= binary_d <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039462	1039784	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARG <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040354	1040676	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARG <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041246	1041568	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARG <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042139	1042461	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARG <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043035	1043357	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARG <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043932	1044254	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARG <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044825	1045147	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARG <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045719	1046041	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARG <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046613	1046935	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARG <==
10	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2381	2485	
==>_offset
{
    my ($self, $offset) = @_;

    return "cur_opcode + $offset";
}

=item C<goto_offset($offse <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7270	7387	
==>d $value;
        }
        elsif ($access eq 'const') {
          my $const = Jako::Construct::Declaration::Constant- <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879237	879334	
==>"#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880341	880438	
==>"#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881445	881542	
==>"#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882550	882647	
==>"#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883655	883752	
==>"#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884761	884858	
==>"#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885867	885964	
==>"#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886974	887071	
==>"#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_ <==
10	/Users/nnunley/parrot/tools/build/ops2pm.pl	2064	2158	
==>oncatenate separate ops files.

=head1 SEE ALSO

=over 4

=item F<tools/build/ops2c.pl>.

=back <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	287526	287850	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FL <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288381	288705	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FL <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289237	289561	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FL <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290093	290417	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FL <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290938	291262	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FL <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291784	292108	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FL <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292630	292954	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FL <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293505	293829	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FL <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294381	294705	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FL <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295257	295581	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FL <==
10	/Users/nnunley/parrot/lib/Pod/Simple.pm	24475	24575	
==>eme, move back to a more comfortable place"
  #  -- /Oblique Strategies/,  Brian Eno and Peter Schmid <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13680	13775	
==>dy($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to accu <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29463	29558	
==>dy($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to accu <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30105	30200	
==>dy($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to accu <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31330	31425	
==>dy($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to accu <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32943	33038	
==>dy($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to accu <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34631	34726	
==>dy($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to accu <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35961	36056	
==>dy($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to accu <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37906	38001	
==>dy($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to accu <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39950	40045	
==>dy($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to accu <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13748	13845	
==>dy. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output fil <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29531	29628	
==>dy. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output fil <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30173	30270	
==>dy. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output fil <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31398	31495	
==>dy. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output fil <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33011	33108	
==>dy. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output fil <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34699	34796	
==>dy. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output fil <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36029	36126	
==>dy. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output fil <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37974	38071	
==>dy. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output fil <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40018	40115	
==>dy. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output fil <==
10	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	4501	4596	
==>f->{'source_arrayref'}) {
      DEBUG and print "$self 's source is arrayref $self->{'source_arr <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	603567	603801	
==>BLE_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640701	640933	
==>BLE_name(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412980	413189	
==>_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0, <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414107	414316	
==>_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0, <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415234	415443	
==>_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0, <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416362	416571	
==>_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0, <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417489	417698	
==>_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0, <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418617	418826	
==>_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0, <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419745	419954	
==>_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0, <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420874	421083	
==>_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0, <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879411	879730	
==>@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880515	880834	
==>@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881619	881938	
==>@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882724	883043	
==>@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883829	884148	
==>@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884935	885254	
==>@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886041	886360	
==>@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887148	887467	
==>@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
10	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2806	2925	
==>) {
        DEBUG and print "Big-endian UTF-16 BOM seen.  Aborting parsing.\n";
        $self->scream(
          $self-> <==
10	/Users/nnunley/parrot/tools/dev/symlink.pl	364	467	
==>se File::Basename;
use File::Spec;
use Cwd;

my $self = $0;
my $cwd  = getcwd();

$self = readlink($self <==
10	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34952	35055	
==>:expected
				   = $Parse::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = $Parse: <==
10	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42062	42165	
==>:expected
				   = $Parse::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = $Parse: <==
10	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24428	24529	
==>n = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 <==
10	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24659	24760	
==>n = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 <==
10	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25317	25418	
==>n = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 <==
10	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25670	25771	
==>n = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 <==
10	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26327	26428	
==>n = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 <==
10	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26558	26659	
==>n = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 <==
10	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27217	27318	
==>n = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 <==
10	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27568	27669	
==>n = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651327	651552	
==>ODE" => 728,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 247 \"src/ops/pmc.ops\"\n    if ({{\@2}} > 0 && <==
10	/Users/nnunley/parrot/languages/python/pie-thon.pl	17914	18026	
==>t <<EOC;
	unless $tos->[1] goto $targ $cmt
EOC
}

sub JUMP_IF_TRUE
{
    my ($n, $c, $cmt) = @_;
    my $tos = po <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875917	876215	
==>,
                  "CODE" => 993,
                  "ARGS" => [
                              "s",
                              "sc",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047676	1047849	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDI <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048599	1048772	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDI <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049523	1049696	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDI <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050556	1050729	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDI <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051590	1051763	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDI <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052624	1052797	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDI <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053659	1053832	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDI <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054785	1054958	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDI <==
10	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	4789	4879	
==>ifstack;
		push(@{$elsestack->{$elsetag}}, $elseline);
		($result, $type, @code)=EXPRESSION <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143036	143336	
==>=> "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143963	144263	
==>=> "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144891	145191	
==>=> "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145819	146119	
==>=> "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146754	147054	
==>=> "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147694	147994	
==>=> "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148635	148935	
==>=> "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149575	149875	
==>=> "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150516	150816	
==>=> "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151493	151793	
==>=> "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
10	/Users/nnunley/parrot/lib/Test/Builder.pm	27720	27829	
==>f course, test #1 is $tests[0], etc...

=cut

sub summary {
    my($self) = shift;

    return map { $_->{'ok' <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459834	459930	
==>}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"D <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460822	460918	
==>}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"D <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461810	461906	
==>}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"D <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471177	471273	
==>}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"D <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472164	472260	
==>}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"D <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473151	473247	
==>}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"D <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480684	480780	
==>}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"D <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481687	481783	
==>}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"D <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482690	482786	
==>}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"D <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	270350	270858	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271195	271703	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272041	272549	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272887	273395	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273732	274240	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	274578	275086	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	275424	275932	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276301	276809	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277179	277687	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	278057	278565	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772624	772923	
==>{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLA <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730744	731041	
==>{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLA <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731480	731777	
==>{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLA <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735233	735530	
==>{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLA <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735969	736266	
==>{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLA <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736714	737011	
==>{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLA <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737460	737757	
==>{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLA <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741276	741573	
==>{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLA <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745836	746133	
==>{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLA <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746571	746868	
==>{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLA <==
10	/Users/nnunley/parrot/lib/Pod/Simple.pm	49038	49134	
==>d.

have the POD FORMATTING ERRORS section note the localtime, and the
version of Pod::Simple.

o <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462756	462850	
==>"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(inter <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463753	463847	
==>"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(inter <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464750	464844	
==>"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(inter <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474096	474190	
==>"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(inter <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475087	475181	
==>"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(inter <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476078	476172	
==>"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(inter <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483651	483745	
==>"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(inter <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484650	484744	
==>"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(inter <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485649	485743	
==>"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(inter <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	287759	288103	
==>( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288614	288958	
==>( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289470	289814	
==>( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290326	290670	
==>( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291171	291515	
==>( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292017	292361	
==>( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292863	293207	
==>( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293738	294082	
==>( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294614	294958	
==>( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295490	295834	
==>( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
10	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10219	10317	
==>nction_branch_coverage{$source_file}{$function} %" : "n/a" ]}</a></td>
             <td><a href="$o <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459827	459919	
==>= {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460815	460907	
==>= {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461803	461895	
==>= {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471170	471262	
==>= {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472157	472249	
==>= {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473144	473236	
==>= {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480677	480769	
==>= {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481680	481772	
==>= {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482683	482775	
==>= {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296237	296562	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297092	297417	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297948	298273	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298804	299129	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299649	299974	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300495	300820	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301341	301666	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302216	302541	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303092	303417	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303968	304293	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38264	38481	
==>}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42395	42612	
==>}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46302	46519	
==>}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47102	47319	
==>}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47885	48102	
==>}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48692	48909	
==>}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49482	49699	
==>}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50292	50509	
==>}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51085	51302	
==>}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51885	52102	
==>}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385268	385360	
==>k(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exce <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386399	386491	
==>k(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exce <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387530	387622	
==>k(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exce <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388662	388754	
==>k(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exce <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389793	389885	
==>k(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exce <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390925	391017	
==>k(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exce <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392057	392149	
==>k(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exce <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393190	393282	
==>k(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exce <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3563	3654	
==>$self->SYNTAX_ERROR("Sub declaration has no fnlib property, and parent block is not a module <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6227	6318	
==>$self->SYNTAX_ERROR("Sub declaration has no fnlib property, and parent block is not a module <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897228	897518	
==>1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898246	898536	
==>1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899264	899554	
==>1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900283	900573	
==>1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901301	901591	
==>1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902320	902610	
==>1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903339	903629	
==>1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904359	904649	
==>1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
10	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29157	29266	
==>"lookahead"   => $_[2],
		"line"        => $_[3],
		"description" => "'$desc'",
	}, $class;
}


sub code($$$$) <==
10	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31259	31363	
==>"lookahead" => $_[2],
		"line"      => $_[3],
		"description" => "'$desc'",
	}, $class;
}

sub code($$$$) <==
10	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	50920	51056	
==>p @lineage;
      } else {
        DEBUG > 4 and print " It's just stuff.\n";
        push @{ $lineage[-1] }, $4;
      }

    } elsif(de <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459832	459923	
==>@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460820	460911	
==>@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461808	461899	
==>@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471175	471266	
==>@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472162	472253	
==>@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473149	473240	
==>@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480682	480773	
==>@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481685	481776	
==>@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482688	482779	
==>@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185493	185790	
==>"lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 2 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186422	186719	
==>"lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 2 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187352	187649	
==>"lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 2 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188282	188579	
==>"lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 2 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189223	189520	
==>"lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 2 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190163	190460	
==>"lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 2 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191104	191401	
==>"lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 2 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192043	192340	
==>"lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 2 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192983	193280	
==>"lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 2 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193961	194258	
==>"lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 2 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	395398	395664	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396477	396743	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397557	397823	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398637	398903	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399718	399984	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400798	401064	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401879	402145	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402960	403226	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733656	733748	
==>" => "#line 134 \"src/ops/set.ops\"\n  {{\@1}} = string_to_int(interpreter, {{\@2}});\n  {{+= <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734420	734512	
==>" => "#line 134 \"src/ops/set.ops\"\n  {{\@1}} = string_to_int(interpreter, {{\@2}});\n  {{+= <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038736	1039070	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039627	1039961	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040519	1040853	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041411	1041745	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042304	1042638	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043200	1043534	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044097	1044431	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044990	1045324	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045884	1046218	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046778	1047112	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	917	1012	
==>list of the files of a particular type.

C<$recursive> and C<$ignore> function as specified in C <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459798	459893	
==>ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NU <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460786	460881	
==>ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NU <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461774	461869	
==>ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NU <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471141	471236	
==>ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NU <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472128	472223	
==>ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NU <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473115	473210	
==>ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NU <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480648	480743	
==>ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NU <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481651	481746	
==>ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NU <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482654	482749	
==>ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NU <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412193	412436	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413319	413562	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414446	414689	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415573	415816	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416701	416944	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417828	418071	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418956	419199	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420084	420327	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584694	584915	
==>TABLE_subclass(interpreter, class, NULL);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585769	585990	
==>TABLE_subclass(interpreter, class, NULL);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550460	550713	
==>, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551761	552014	
==>, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552952	553205	
==>, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558365	558618	
==>, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559749	560002	
==>, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560970	561223	
==>, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
10	/Users/nnunley/parrot/languages/converter.pl	1769	1877	
==>otes($item[3]);
		  "/[$lhs-$rhs]/"
		}
		| terminal
#		{[@item]}
		{ $item[1] }


terminal	: "'" /[^']*/ "'" <==
10	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	912	1020	
==>nt << "EOF";
/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automat <==
10	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1113	1221	
==>nt << "EOF";
/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automat <==
10	/Users/nnunley/parrot/tools/build/revision_c.pl	488	595	
==>nt <<"EOF";
/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automat <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	270313	270644	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271158	271489	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272004	272335	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272850	273181	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273695	274026	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	274541	274872	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	275387	275718	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276264	276595	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277142	277473	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	278020	278351	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  "FLAGS" => "" <==
10	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Posix.pm	520	683	
==>$posix_bc = ($^O =~ /MSWin32/) ? 
                     'bc'
                     :
                     'bc --standard --quiet';

    return ( "$posix_bc ${test_pro <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632755	633085	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633797	634127	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634914	635244	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636032	636362	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637150	637480	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080688	1081018	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081753	1082083	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082818	1083148	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103067	1103397	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104281	1104611	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
10	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3662	3759	
==>syntax of a document

=head1 SYNOPSIS

  perl -MPod::Simple::Checker -e \
   "exit Pod::Simple::Ch <==
10	/Users/nnunley/parrot/lib/Text/Balanced.pm	27103	27198	
==>ate a string representing an optimized pattern (a la Friedl)
# that matches a substring delimite <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964885	964974	
==>s\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965893	965982	
==>s\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966901	966990	
==>s\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967910	967999	
==>s\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968918	969007	
==>s\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969927	970016	
==>s\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970936	971025	
==>s\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971946	972035	
==>s\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700004	700360	
==>LS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700994	701350	
==>LS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701985	702341	
==>LS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702976	703332	
==>LS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703968	704324	
==>LS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704959	705315	
==>LS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705951	706307	
==>LS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706943	707299	
==>LS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  " <==
10	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	9116	9259	
==>k');
        @debugging = ($lastback =>
                      $self->dbprint("failed to match $char at %<rx_pos>\n"),
                      aop( <==
10	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	8475	8576	
==>tarting plain para at line ${$self}{'line_count'}\n";
      }
      $self->{'last_was_blank'} = $self- <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154363	154659	
==>_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155266	155562	
==>_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156170	156466	
==>_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157074	157370	
==>_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157979	158275	
==>_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175603	175899	
==>_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176506	176802	
==>_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177410	177706	
==>_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178314	178610	
==>_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179219	179515	
==>_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3786	3903	
==>ld]",

        'i'  => "(*(INTVAL *)OP_AS_OFFS(%ld))",
        'ki'  => "(*(INTVAL *)OP_AS_OFFS(%ld))",
        'n'  = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896548	896879	
==>> 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897565	897896	
==>> 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898583	898914	
==>> 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899601	899932	
==>> 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900620	900951	
==>> 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901638	901969	
==>> 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902657	902988	
==>> 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903676	904007	
==>> 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
10	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9966	10055	
==>es[$$stack[-1][0]]{ACTIONS}{error})
					or	$$states[$$stack[-1][0]]{ACTIONS}{error} <= 0 <==
10	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9519	9607	
==>es[$$stack[-1][0]]{ACTIONS}{error})
					or	$$states[$$stack[-1][0]]{ACTIONS}{error} <= 0 <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752206	752428	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752985	753207	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753772	753994	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754560	754782	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755346	755568	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756133	756355	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756922	757144	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757712	757934	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758484	758706	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
10	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1273	1378	
==>RTNUMVAL)\nAborting");
  }

  if( defined $variable ) {
    # make a not-really-constant
    *Pod::Simple: <==
10	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1457	1587	
==>e of:
        #  languages
        #  languages/m4

        my $language = 'm4';
        my $path_to_parrot = Parrot::Test::path_to <==
10	/Users/nnunley/parrot/config/inter/progs.pm	3863	3964	
==>'n';
    $debug = 'y' if $conf->options->get('debugging');
    $debug = prompt("Do you want a debuggin <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879352	879445	
==>r, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5} <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880456	880549	
==>r, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5} <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881560	881653	
==>r, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5} <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882665	882758	
==>r, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5} <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883770	883863	
==>r, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5} <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884876	884969	
==>r, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5} <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885982	886075	
==>r, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5} <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887089	887182	
==>r, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5} <==
10	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3205	3315	
==>et('ld'));

        # We can't use -opt: and -debug together.
        if ($conf->data->get('ld_debug') =~ /-deb <==
10	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4709	4819	
==>et('ld'));

        # We can't use -opt: and -debug together.
        if ($conf->data->get('ld_debug') =~ /-deb <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822121	822209	
==>"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTE <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823189	823277	
==>"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTE <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824256	824344	
==>"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTE <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825327	825415	
==>"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTE <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826397	826485	
==>"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTE <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827467	827555	
==>"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTE <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828536	828624	
==>"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTE <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829604	829692	
==>"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTE <==
10	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	3927	4031	
==>rn("\t$_[2] = $_[1] / $_[0]", $_[2]);
	},
	'=' => sub {
		my ($a1, $a2, $result, $op)=@_;
		$op="eq" unle <==
10	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	12760	12863	
==>';
    $mv->{'RETTYPE'} = 'rettype';
    $mv->{'LABELNUM'} = 'label_num';
    $mv->{'EHANDLERS'} = 'ehs' <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048219	1048314	
==>s/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get nul <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049143	1049238	
==>s/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get nul <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050139	1050234	
==>s/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get nul <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051173	1051268	
==>s/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get nul <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052207	1052302	
==>s/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get nul <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053242	1053337	
==>s/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get nul <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060021	1060116	
==>s/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get nul <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060926	1061021	
==>s/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get nul <==
10	/Users/nnunley/parrot/examples/benchmarks/oo2.pl	37	152	
==>.. 500000) {
	my $o = new Foo();
}
my $o = new Foo();
print $o->[0], "\n";

package Foo;

sub new {
    my $self = r <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462770	462867	
==>ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_Z <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463767	463864	
==>ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_Z <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464764	464861	
==>ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_Z <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474110	474207	
==>ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_Z <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475101	475198	
==>ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_Z <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476092	476189	
==>ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_Z <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483665	483762	
==>ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_Z <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484664	484761	
==>ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_Z <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485663	485760	
==>ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_Z <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279108	279352	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279962	280206	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	280817	281061	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	281672	281916	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	282516	282760	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283361	283605	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284206	284450	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285082	285326	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285959	286203	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286836	287080	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964284	964615	
==>ME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965291	965622	
==>ME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966299	966630	
==>ME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967307	967638	
==>ME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968316	968647	
==>ME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969324	969655	
==>ME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970333	970664	
==>ME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971342	971673	
==>ME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670661	670884	
==>push_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671434	671657	
==>push_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
10	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	2562	2688	
==>unicode:"dyadic:\u2371"]  = <<"END_PIR"             # nor
    $I100 = %1
    $I101 = %2
    $I100 = or $I100, $I101
    $I100 = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459876	459968	
==>on(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460864	460956	
==>on(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461852	461944	
==>on(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471219	471311	
==>on(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472206	472298	
==>on(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473193	473285	
==>on(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474183	474275	
==>on(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475174	475266	
==>on(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476165	476257	
==>on(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} <==
10	/Users/nnunley/parrot/lib/Parrot/Test.pm	10270	10395	
==>st_map = (
        pbc_output_is      => 'is_eq',
        pbc_output_isnt    => 'isnt_eq',
        pbc_output_like    => 'like <==
10	/Users/nnunley/parrot/tools/build/ops2pm.pl	6186	6285	
==>lib";
if (! -d $inc_dir) {
    mkdir($inc_dir, 0755) or die "ops2pm.pl: Could not mkdir $inc_dir: $! <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964879	964966	
==>ing.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965887	965974	
==>ing.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966895	966982	
==>ing.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967904	967991	
==>ing.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968912	968999	
==>ing.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969921	970008	
==>ing.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970930	971017	
==>ing.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971940	972027	
==>ing.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\ <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296201	296531	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297056	297386	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297912	298242	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298768	299098	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299613	299943	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300459	300789	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301305	301635	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302180	302510	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303056	303386	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303932	304262	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16660	16933	
==>};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	17434	17707	
==>};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18229	18502	
==>};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19038	19311	
==>};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19814	20087	
==>};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20592	20865	
==>};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21392	21665	
==>};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305701	305974	
==>};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	306477	306750	
==>};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307270	307543	
==>};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367873	368104	
==>DIN(interpreter), (size_t){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368665	368896	
==>DIN(interpreter), (size_t){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888198	888286	
==>tring_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n", <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889332	889420	
==>tring_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n", <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890466	890554	
==>tring_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n", <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891601	891689	
==>tring_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n", <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892735	892823	
==>tring_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n", <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893870	893958	
==>tring_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n", <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895005	895093	
==>tring_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n", <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896141	896229	
==>tring_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n", <==
10	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	376	484	
==>equire_compression_modules();

use constant {
  VERSION     => 0.4,
  MAX_SIZE    => 2**20 * 3.0,  # MiB limi <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039452	1039756	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040344	1040648	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041236	1041540	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042129	1042433	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043025	1043329	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043922	1044226	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044815	1045119	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045709	1046013	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" = <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046603	1046907	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" = <==
10	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	6874	6974	
==>r with that for now. (It'll rarely
# have a valid previous value anyway; I think that'll only come in <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296243	296638	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297098	297493	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297954	298349	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298810	299205	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299655	300050	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300501	300896	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301347	301742	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302222	302617	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303098	303493	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303974	304369	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451023	451278	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451761	452016	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452500	452755	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453238	453493	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453977	454232	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454831	455086	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455686	455941	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456541	456796	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457395	457650	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458250	458505	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
10	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5338	5452	
==>self->_save_1 ('P');

      __quoted ($self, $_, $item, $special);

      my $pair = $self->_new_pair();

      $se <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550405	550512	
==>est = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551706	551813	
==>est = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552897	553004	
==>est = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554258	554365	
==>est = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555655	555762	
==>est = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556892	556999	
==>est = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558310	558417	
==>est = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559694	559801	
==>est = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560915	561022	
==>est = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	287788	288107	
==>=> 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288643	288962	
==>=> 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289499	289818	
==>=> 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290355	290674	
==>=> 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291200	291519	
==>=> 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292046	292365	
==>=> 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292892	293211	
==>=> 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293767	294086	
==>=> 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294643	294962	
==>=> 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295519	295838	
==>=> 0,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
10	/Users/nnunley/parrot/lib/Test/Builder.pm	25103	25211	
==>undef
           UNIVERSAL::can((tied($maybe_fh) || ''), 'TIEHANDLE');
}


sub _autoflush {
    my($fh) = shi <==
10	/Users/nnunley/parrot/config/auto/isreg.pm	97	191	
==>-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/isreg - S_ISREG

=head1 DESCRIPTION

Det <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692862	692948	
==>ine 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693862	693948	
==>ine 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694862	694948	
==>ine 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695863	695949	
==>ine 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696863	696949	
==>ine 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697864	697950	
==>ine 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698865	698951	
==>ine 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699867	699953	
==>ine 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, <==
10	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2833	2941	
==>rites the header file for the library.

=cut

sub gen_h {
    my ($self) = @_;
    my $hout = dont_edit('vari <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	993	1093	
==>IVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK     => $b <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	1005	1105	
==>IVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK     => $b <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	923	1019	
==>IVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $b <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	761	857	
==>IVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $b <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	914	1010	
==>IVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $b <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	803	899	
==>IVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $b <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1183	1279	
==>IVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $b <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1211	1307	
==>IVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $b <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	883	979	
==>IVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $b <==
10	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5468	5561	
==>_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}

${ <==
10	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3421	3513	
==>_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${ <==
10	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4275	4367	
==>_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${ <==
10	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5183	5275	
==>_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${ <==
10	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8095	8187	
==>_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${ <==
10	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2168	2260	
==>_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${ <==
10	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2691	2783	
==>_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${ <==
10	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3420	3512	
==>_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${ <==
10	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6049	6141	
==>_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${ <==
10	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8923	9015	
==>_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${ <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	218	315	
==>e.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako:: <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	230	327	
==>e.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako:: <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	218	315	
==>e.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako:: <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	231	328	
==>e.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako:: <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	225	322	
==>e.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako:: <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	222	319	
==>e.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako:: <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	232	329	
==>e.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako:: <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	225	322	
==>e.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako:: <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	228	325	
==>e.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako:: <==
10	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	212	309	
==>e.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako:: <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296459	296778	
==>=> 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297314	297633	
==>=> 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298170	298489	
==>=> 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299026	299345	
==>=> 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299871	300190	
==>=> 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300717	301036	
==>=> 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301563	301882	
==>=> 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302438	302757	
==>=> 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303314	303633	
==>=> 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	304190	304509	
==>=> 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197376	197647	
==><= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198273	198544	
==><= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199170	199441	
==><= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200066	200337	
==><= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200963	201234	
==><= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201860	202131	
==><= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206535	206806	
==><= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207477	207748	
==><= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208417	208688	
==><= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209358	209629	
==><= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296429	296771	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297284	297626	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298140	298482	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298996	299338	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299841	300183	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300687	301029	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301533	301875	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302408	302750	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303284	303626	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
10	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	304160	304502	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412217	412551	
==>{
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413343	413677	
==>{
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414470	414804	
==>{
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415597	415931	
==>{
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416725	417059	
==>{
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417852	418186	
==>{
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418980	419314	
==>{
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420108	420442	
==>{
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i <==
9	/Users/nnunley/parrot/lib/Pod/Simple.pm	18810	18921	
==>Very common case!
  }
  
  splice @$treelet, 0, 2;  # lop the top off

  return $treelet;
}

#:.:.:.:.:.:.:.:.:. <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700116	700408	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701106	701398	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702097	702389	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703088	703380	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704080	704372	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705071	705363	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706063	706355	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	707055	707347	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
9	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	5815	5962	
==>e for class in rule $rule->{'name'}\n";
            }
        }

        # push
        elsif (/^push$/) {
            if ($rule->{$_} =~ /^\d+$/) { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700011	700365	
==>[
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDI <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701001	701355	
==>[
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDI <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701992	702346	
==>[
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDI <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702983	703337	
==>[
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDI <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703975	704329	
==>[
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDI <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704966	705320	
==>[
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDI <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705958	706312	
==>[
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDI <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706950	707304	
==>[
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDI <==
9	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	650	746	
==>eturn "cg_";
}

=item C<core_type()>

The core type is C<PARROT_CGOTO_CORE>.

=cut

sub core_type <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964978	965332	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLA <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965986	966340	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLA <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966994	967348	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLA <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968003	968357	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLA <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969011	969365	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLA <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970020	970374	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLA <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971029	971383	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLA <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355128	355227	
==>p = {{\@1}};\n  STRING * const s = (VTABLE_get_string(interpreter, p));\n  if (s) {\n    PIO_putps(i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360828	360927	
==>p = {{\@1}};\n  STRING * const s = (VTABLE_get_string(interpreter, p));\n  if (s) {\n    PIO_putps(i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385217	385307	
==>src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386348	386438	
==>src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387479	387569	
==>src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388611	388701	
==>src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389742	389832	
==>src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390874	390964	
==>src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392006	392096	
==>src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393139	393229	
==>src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset3 <==
9	/Users/nnunley/parrot/config/init/hints/solaris.pm	67	154	
==>it/hints/solaris.pm 19593 2006-05-30T02:28:15.110975Z coke  $

package init::hints::sola <==
9	/Users/nnunley/parrot/config/inter/progs.pm	3710	3807	
==>onf->options->get('cxx'));
    $cxx = prompt("What C++ compiler do you want to use?", $cxx) if $as <==
9	/Users/nnunley/parrot/tools/build/nativecall.pl	14705	14839	
==>my @temp;
        for my $i (0..$#$args) {
            if ($args->[$i] =~ /^\((.+)\*\)&(.+)$/) {
                $temp[$i] = [ $1, $2 ] <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	246	341	
==>15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expressio <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	245	340	
==>15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expressio <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	247	342	
==>15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expressio <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	249	344	
==>15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expressio <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	249	344	
==>15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expressio <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	247	342	
==>15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expressio <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	257	352	
==>15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expressio <==
9	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8273	8358	
==>78,/* 1 */
FF,$d,$a,$b,$c,$_[5],12,0xe8c7b756,/* 2 */
FF,$c,$d,$a,$b,$_[6],17,0x242070 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321609	321884	
==>erpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323965	324240	
==>erpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	329423	329698	
==>erpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	330901	331176	
==>erpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	751292	751567	
==>erpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945493	945768	
==>erpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946303	946578	
==>erpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955937	956212	
==>erpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956749	957024	
==>erpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
9	/Users/nnunley/parrot/lib/Parrot/Test.pm	447	549	
==>DE
    this is ok
    OUTPUT

=head1 DESCRIPTION

This module provides various Parrot-specific test fun <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385285	385376	
==>\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interprete <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386416	386507	
==>\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interprete <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387547	387638	
==>\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interprete <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388679	388770	
==>\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interprete <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389810	389901	
==>\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interprete <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390942	391033	
==>\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interprete <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392074	392165	
==>\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interprete <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393207	393298	
==>\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interprete <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964794	964930	
==>"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(inter <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965802	965938	
==>"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(inter <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966810	966946	
==>"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(inter <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967819	967955	
==>"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(inter <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968827	968963	
==>"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(inter <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969836	969972	
==>"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(inter <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970845	970981	
==>"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(inter <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971855	971991	
==>"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(inter <==
9	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4199	4317	
==>e {
        return "sub <rx_tmp>, $lenvar, <rx_pos> # need $needed more chars",
               "lt <rx_tmp>, $needed, $ <==
9	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16554	16721	
==>new_tmp( $parser, 'pmc' );
                push @opcodes, new LocalDir( $parser,
                    'result' => $result,
                );
                push @o <==
9	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17133	17300	
==>new_tmp( $parser, 'pmc' );
                push @opcodes, new LocalDir( $parser,
                    'result' => $result,
                );
                push @o <==
9	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10701	10863	
==>new_tmp( $parser, 'pmc' );
                    push @opcodes,
                        new LocalDir( $parser, 'result' => $result, );
                    push @o <==
9	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15523	15642	
==>new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @o <==
9	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18182	18301	
==>new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @o <==
9	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19276	19395	
==>new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @o <==
9	/Users/nnunley/parrot/languages/lua/Lua/build.pm	23237	23356	
==>new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @o <==
9	/Users/nnunley/parrot/lib/Test/Simple.pm	1458	1559	
==>).  If it's
true, the test passed.  If it's false, it didn't.  That's about it.

ok() prints out eithe <==
9	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	12	101	
==>(C) 2001-2004, The Perl Foundation.
# $Id: /parrot/lib/Parrot/OpTrans/Compiled.pm 20333 20 <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13693	13791	
==>line, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the numbe <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29476	29574	
==>line, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the numbe <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30118	30216	
==>line, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the numbe <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31343	31441	
==>line, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the numbe <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32956	33054	
==>line, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the numbe <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34644	34742	
==>line, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the numbe <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35974	36072	
==>line, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the numbe <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37919	38017	
==>line, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the numbe <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39963	40061	
==>line, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the numbe <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3008	3125	
==>x
{
  my $self = shift;
  my ($handler) = @_;

  my $block = $self->block;
  my $kind  = $self->kind;
  my $name  = $s <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879308	879400	
==>st)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880412	880504	
==>st)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881516	881608	
==>st)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882621	882713	
==>st)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883726	883818	
==>st)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884832	884924	
==>st)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885938	886030	
==>st)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887045	887137	
==>st)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374070	374335	
==>val(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374953	375218	
==>val(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375836	376101	
==>val(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376720	376985	
==>val(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377603	377868	
==>val(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378487	378752	
==>val(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379371	379636	
==>val(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380256	380521	
==>val(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
9	/Users/nnunley/parrot/config/inter/progs.pm	3003	3107	
==>=> $linkflags);

    $ldflags = $conf->data->get('ldflags');
    $ldflags =~ s/-libpath:\S+//g;   # XXX N <==
9	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1386	1492	
==>s/lua/lib/luaos.pbc"
#  load_bytecode "languages/lua/lib/luadebug.pbc"
  _main()
.end

};
        ret <==
9	/Users/nnunley/parrot/tools/docs/pod_errors.pl	422	517	
==>r = Parrot::Docs::Directory->new(shift || '.');
my $ignore = shift || '^(icu)$';

foreach my $fi <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584416	584507	
==>/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585491	585582	
==>/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586638	586729	
==>/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587824	587915	
==>/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589010	589101	
==>/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590197	590288	
==>/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597932	598023	
==>/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598979	599070	
==>/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692929	693228	
==>}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693929	694228	
==>}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694929	695228	
==>}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695930	696229	
==>}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696930	697229	
==>}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697931	698230	
==>}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698932	699231	
==>}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699934	700233	
==>}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
9	/Users/nnunley/parrot/tools/build/nativecall.pl	6106	6208	
==>($sig, $ret, $args, [@arg], $ret_type{$ret},
                 $ret_type_decl{$ret}, $func_call_assign{$ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459824	459918	
==>en = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460812	460906	
==>en = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461800	461894	
==>en = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471167	471261	
==>en = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472154	472248	
==>en = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473141	473235	
==>en = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480674	480768	
==>en = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481677	481771	
==>en = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482680	482774	
==>en = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\ <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18412	18504	
==>ck = $self->current_block();
      my $sub_name = Jako::Construct::Expression::Value::Identif <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12373	12477	
==>ent and $self->get(1)->is_bit_assign) {
      my $block = $self->current_block;

      my $ident = Jako:: <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193516	193603	
==>(string_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194495	194582	
==>(string_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210247	210334	
==>(string_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211227	211314	
==>(string_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218805	218892	
==>(string_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219784	219871	
==>(string_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227364	227451	
==>(string_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228344	228431	
==>(string_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700879	700969	
==>/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701870	701960	
==>/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702861	702951	
==>/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703853	703943	
==>/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704844	704934	
==>/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705836	705926	
==>/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706828	706918	
==>/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	707821	707911	
==>/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n", <==
9	/Users/nnunley/parrot/tools/build/pmc2c.pl	4528	4618	
==>class_init>
routine suitable for dynamic loading at runtime. See the F<src/dynpmc>
director <==
9	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	5206	5348	
==>$fh $scratch;
        next;
      }

      DEBUG > 1 and print "  $type " , $token->text, "\n";
      
      $scratch = $token->text;
      $sc <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24488	24599	
==>=~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($ <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24719	24830	
==>=~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($ <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25377	25488	
==>=~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($ <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25730	25841	
==>=~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($ <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26387	26498	
==>=~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($ <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26618	26729	
==>=~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($ <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27277	27388	
==>=~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($ <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27628	27739	
==>=~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	513489	513681	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514368	514560	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515248	515440	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1098420	1098612	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099617	1099809	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100815	1101007	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102013	1102205	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327067	327150	
==>ps/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, (INTVAL <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327869	327952	
==>ps/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, (INTVAL <==
9	/Users/nnunley/parrot/tools/dev/nm.pl	4598	4707	
==>_gnu = 1;
    $nm_ro  = 1;
} else {
    # Hope for BSD-style nm output.
}

Getopt::Long::Configure ("bundling" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412214	412514	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413340	413640	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414467	414767	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415594	415894	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416722	417022	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417849	418149	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418977	419277	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420105	420405	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i" <==
9	/Users/nnunley/parrot/config/gen/icu.pm	977	1075	
==>cu config parameter,\nICU autodetection disabled.\n" if $verbose;
        } elsif (!defined $icucon <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462796	462889	
==>\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463793	463886	
==>\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464790	464883	
==>\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474136	474229	
==>\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475127	475220	
==>\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476118	476211	
==>\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483691	483784	
==>\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484690	484783	
==>\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485689	485782	
==>\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396150	396362	
==>{\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397230	397442	
==>{\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398310	398522	
==>{\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399391	399603	
==>{\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400471	400683	
==>{\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401552	401764	
==>{\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402633	402845	
==>{\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403715	403927	
==>{\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	607	705	
==>rict;
use warnings;

use File::Basename;
use File::Spec;
use Parrot::Config;

require Exporter;
req <==
9	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	36264	36367	
==>desc = $parser->{"rules"}{$subrule}->expected }

	if ($lookahead)
	{
		if ($min>0)
		{
		   return new P <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396157	396429	
==>{{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ] <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397237	397509	
==>{{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ] <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398317	398589	
==>{{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ] <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399398	399670	
==>{{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ] <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400478	400750	
==>{{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ] <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401559	401831	
==>{{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ] <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402640	402912	
==>{{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ] <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403722	403994	
==>{{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ] <==
9	/Users/nnunley/parrot/config/inter/ops.pm	452	589	
==>ld be compiled in';

@args = qw(ask ops);

sub runstep
{
    my ($self, $conf) = @_;

    my @ops = (
        sort {
            if ($a =~ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438666	439002	
==>> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_cor <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439680	440016	
==>> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_cor <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440695	441031	
==>> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_cor <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441709	442045	
==>> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_cor <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442724	443060	
==>> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_cor <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443738	444074	
==>> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_cor <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444753	445089	
==>> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_cor <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	777	873	
==>ess "Type (" . ref($type) . ") is not!"   if defined $type and not UNIVERSAL::isa($type, qw(Jako: <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	660	753	
==>ess "Type (". ref($type) . ") is not!" if defined $type and not UNIVERSAL::isa($type, qw(Jako: <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396201	396541	
==>def);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397281	397621	
==>def);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398361	398701	
==>def);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399442	399782	
==>def);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400522	400862	
==>def);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401603	401943	
==>def);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402684	403024	
==>def);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403766	404106	
==>def);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
9	/Users/nnunley/parrot/lib/Text/Balanced.pm	59370	59462	
==>elimited_pat(q{'"},q{/%});

If more delimiters than escape chars are specified, the last esca <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	821643	821908	
==>MP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fu <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822710	822975	
==>MP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fu <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823778	824043	
==>MP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fu <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824848	825113	
==>MP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fu <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825919	826184	
==>MP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fu <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826988	827253	
==>MP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fu <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828058	828323	
==>MP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fu <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829125	829390	
==>MP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fu <==
9	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18454	18548	
==>se_return {
	if ($type[NEXT] ne "BARE") {
		push @{$code{$seg}->{code}}, <<RETURN1;
	JUMPLABEL= <==
9	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	29659	29771	
==>l' => [ $name, 1, $uid ]),
               $handle => aop('call_result' => [ $uid, $capture ? $name : undef, $last <==
9	/Users/nnunley/parrot/config/inter/libparrot.pm	454	552	
==>gs);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$de <==
9	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	4495	4591	
==>s $self->{'source_arrayref'}) {
      DEBUG and print "$self 's source is arrayref $self->{'sourc <==
9	/Users/nnunley/parrot/config/inter/charset.pm	332	424	
==>gs);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$de <==
9	/Users/nnunley/parrot/config/inter/encoding.pm	337	429	
==>gs);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$de <==
9	/Users/nnunley/parrot/config/inter/ops.pm	312	404	
==>gs);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$de <==
9	/Users/nnunley/parrot/config/inter/progs.pm	451	543	
==>gs);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$de <==
9	/Users/nnunley/parrot/config/inter/shlibs.pm	611	703	
==>gs);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$de <==
9	/Users/nnunley/parrot/config/inter/types.pm	363	455	
==>gs);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$de <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	2048	2155	
==>@$arg;
    my $imcc_type = $arg_type->imcc;

    $compiler->emit("  .param $imcc_type $arg_name");
  }

  $c <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879302	879395	
==>f (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interprete <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880406	880499	
==>f (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interprete <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881510	881603	
==>f (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interprete <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882615	882708	
==>f (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interprete <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883720	883813	
==>f (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interprete <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884826	884919	
==>f (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interprete <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885932	886025	
==>f (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interprete <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887039	887132	
==>f (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interprete <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909371	909640	
==>erpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910268	910537	
==>erpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911165	911434	
==>erpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912063	912332	
==>erpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849914	850181	
==>erpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850801	851068	
==>erpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851688	851955	
==>erpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852576	852843	
==>erpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
9	/Users/nnunley/parrot/lib/Text/Balanced.pm	43040	43145	
==>n:

	extract_quotelike 'q # an octothorpe: \# (not the end of the q!) #'
	
	extract_quotelike '  "You said <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871142	871249	
==>string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABEL <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872159	872266	
==>string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABEL <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873176	873283	
==>string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABEL <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874194	874301	
==>string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABEL <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875211	875318	
==>string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABEL <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876229	876336	
==>string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABEL <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877247	877354	
==>string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABEL <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878266	878373	
==>string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABEL <==
9	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7956	8051	
==>FBRANCH_$_:\n";
		}
=cut
UNK:	if (($type[CURR] eq "STMT" or $type[CURR] eq "COMM") and $singleif <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912355	912686	
==>MP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913365	913696	
==>MP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914376	914707	
==>MP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915387	915718	
==>MP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916399	916730	
==>MP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917410	917741	
==>MP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918422	918753	
==>MP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919434	919765	
==>MP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
9	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	446	541	
==>=cut

package Parrot::Docs::Section::Parrot;

use strict;
use warnings;

use base qw( Parrot::Do <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396178	396477	
==>erpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397258	397557	
==>erpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398338	398637	
==>erpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399419	399718	
==>erpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400499	400798	
==>erpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401580	401879	
==>erpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402661	402960	
==>erpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403743	404042	
==>erpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
9	/Users/nnunley/parrot/lib/Text/Balanced.pm	31781	31878	
==>tring is not found, the first
element of the array is the empty string, the second is the complete <==
9	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	17255	17352	
==>e set before you can parse anything.  The lowest-level
way is to call C<set_source>:

=over

=item <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396121	396217	
==>}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397201	397297	
==>}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398281	398377	
==>}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399362	399458	
==>}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400442	400538	
==>}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401523	401619	
==>}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402604	402700	
==>}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403686	403782	
==>}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+ <==
9	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1234	1329	
==>modules which are not located on Pugs's default
search path.

= LIMITATIONS & CAVEATS

Currently <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385206	385298	
==>line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_mak <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386337	386429	
==>line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_mak <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387468	387560	
==>line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_mak <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388600	388692	
==>line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_mak <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389731	389823	
==>line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_mak <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390863	390955	
==>line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_mak <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391995	392087	
==>line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_mak <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393128	393220	
==>line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_mak <==
9	/Users/nnunley/parrot/lib/Text/Balanced.pm	51136	51251	
==>nce: subject verb object
                        <defer: {$::theVerb = $item{verb}} >

Parse::RecDescent uses C<extr <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700881	700990	
==>mc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "L <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701872	701981	
==>mc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "L <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702863	702972	
==>mc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "L <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703855	703964	
==>mc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "L <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704846	704955	
==>mc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "L <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705838	705947	
==>mc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "L <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706830	706939	
==>mc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "L <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	707823	707932	
==>mc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "L <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11582	11790	
==>> "inline",
                  "CODE" => 15,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 206 \"src/ops/core.ops\"\n  stack_ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981973	982109	
==>c"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(in <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983103	983239	
==>c"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(in <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984233	984369	
==>c"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(in <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985364	985500	
==>c"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(in <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986494	986630	
==>c"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(in <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987625	987761	
==>c"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(in <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988756	988892	
==>c"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(in <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989888	990024	
==>c"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(in <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964198	964442	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965205	965449	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966213	966457	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967221	967465	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968230	968474	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969238	969482	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970247	970491	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971256	971500	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
9	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1993	2112	
==>.*),(.*)\)\+(.*)$//;

	#my $rotate = "(($2 << $3) || (($2 >> (32 - $3)) & (1 << $2) - 1)))"; 
	$c = "\$r = $2;
        $ <==
9	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4070	4163	
==>et, $pattern) = (shift, shift);

    unshift @_ => Parrot::Test::PGE::_generate_glob_for($targ <==
9	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11260	11376	
==>to run under.
        # Altho, hmm, what about that ord?  Presumably that won't work right
        #  under non-ASCII <==
9	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17100	17216	
==>to run under.
        # Altho, hmm, what about that ord?  Presumably that won't work right
        #  under non-ASCII <==
9	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4607	4721	
==>to run under.
       # Altho, hmm, what about that ord?  Presumably that won't work right
       #  under non-ASCII <==
9	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2097	2205	
==>to run under.
    # Altho, hmm, what about that ord?  Presumably that won't work right
    #  under non-ASCII <==
9	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10520	10628	
==>to run under.
    # Altho, hmm, what about that ord?  Presumably that won't work right
    #  under non-ASCII <==
9	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2200	2308	
==>to run under.
    # Altho, hmm, what about that ord?  Presumably that won't work right
    #  under non-ASCII <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552859	552946	
==>_string(interpreter, method_pmc);\n  dest = (opcode_t *)VTABLE_invoke(interpreter, metho <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556854	556941	
==>_string(interpreter, method_pmc);\n  dest = (opcode_t *)VTABLE_invoke(interpreter, metho <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560877	560964	
==>_string(interpreter, method_pmc);\n  dest = (opcode_t *)VTABLE_invoke(interpreter, metho <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692926	693225	
==>@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693926	694225	
==>@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694926	695225	
==>@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695927	696226	
==>@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696927	697226	
==>@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697928	698227	
==>@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698929	699228	
==>@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699931	700230	
==>@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431483	431590	
==>math.ops\"\n  mmd_dispatch_v_pp(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913005	913115	
==>@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914016	914126	
==>@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915027	915137	
==>@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916039	916149	
==>@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917050	917160	
==>@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918062	918172	
==>@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919074	919184	
==>@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920087	920197	
==>@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" = <==
9	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	13730	13818	
==>oshade><i>Last Updated: @{[ scalar(localtime) . strftime(' (%Z)', localtime(time)) ]} </i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384605	384936	
==>0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385735	386066	
==>0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386866	387197	
==>0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387997	388328	
==>0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389129	389460	
==>0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390260	390591	
==>0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391392	391723	
==>0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392524	392855	
==>0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
9	/Users/nnunley/parrot/tools/build/pbc2c.pl	6995	7104	
==>mg;
	    $source =~ s/CUR_OPCODE/(start_code + $pc)/mg;

	    printf("\n    /* %s */\n    {\n%s}\n", $op->full <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888248	888599	
==>}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889382	889733	
==>}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890516	890867	
==>}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891651	892002	
==>}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892785	893136	
==>}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893920	894271	
==>}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895055	895406	
==>}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896191	896542	
==>}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893549	893860	
==>> 1009,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic",
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{ <==
9	/Users/nnunley/parrot/languages/python/pie-thon.pl	2519	2630	
==>1) x scalar @dir1;
    @dir2{@dir2} = (1) x scalar @dir2;
    my @diff;
    foreach (keys(%dir2)) {
	push @diff, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385250	385340	
==>{\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386381	386471	
==>{\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387512	387602	
==>{\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388644	388734	
==>{\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389775	389865	
==>{\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390907	390997	
==>{\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392039	392129	
==>{\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393172	393262	
==>{\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0 <==
9	/Users/nnunley/parrot/lib/Pod/Escapes.pm	1359	1468	
==>s numeric Unicode value.
      $in = $Name2character{$in};
      return undef unless defined $in;  # (if there <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822125	822213	
==>/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823193	823281	
==>/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824260	824348	
==>/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825331	825419	
==>/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826401	826489	
==>/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827471	827559	
==>/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828540	828628	
==>/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829608	829696	
==>/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039409	1039721	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_g <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040301	1040613	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_g <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041193	1041505	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_g <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042086	1042398	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_g <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042982	1043294	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_g <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043879	1044191	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_g <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044772	1045084	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_g <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045666	1045978	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_g <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046560	1046872	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_g <==
9	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	20752	20855	
==>and print " Making note to treat contents as ",
        ($to_resolve ? 'verbatim/plain' : 'data'), " par <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	755	843	
==>nfess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct: <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	503	591	
==>nfess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct: <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	479	567	
==>nfess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct: <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	494	582	
==>nfess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct: <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	383	471	
==>nfess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct: <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	481	569	
==>nfess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct: <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	481	569	
==>nfess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct: <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	470	558	
==>nfess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct: <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24444	24552	
==>rate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_m <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24675	24783	
==>rate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_m <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25333	25441	
==>rate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_m <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25686	25794	
==>rate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_m <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26343	26451	
==>rate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_m <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26574	26682	
==>rate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_m <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27233	27341	
==>rate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_m <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27584	27692	
==>rate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_m <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	33359	33458	
==>op_car,
  'cdr'      => \&_op_cdr,
  'set-car!' => \&_op_set_car_bang,
  'set-cdr!' => \&_op_set_cdr <==
9	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	1870	1969	
==>code',
	'pl' => 'Perl script',
	'pm' => 'Perl module',
	'pmc' => 'PMC code',
	'pod' => 'POD document <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385327	385422	
==>, {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386458	386553	
==>, {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387589	387684	
==>, {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388721	388816	
==>, {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389852	389947	
==>, {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390984	391079	
==>, {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392116	392211	
==>, {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393249	393344	
==>, {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896586	896917	
==>tr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897603	897934	
==>tr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898621	898952	
==>tr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899639	899970	
==>tr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900658	900989	
==>tr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901676	902007	
==>tr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902695	903026	
==>tr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903714	904045	
==>tr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
9	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16381	16474	
==>as <gaal@forum2.org>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey Tang. All rights reserved. <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459796	459892	
==>c/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, N <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460784	460880	
==>c/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, N <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461772	461868	
==>c/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, N <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471139	471235	
==>c/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, N <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472126	472222	
==>c/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, N <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473113	473209	
==>c/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, N <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480646	480742	
==>c/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, N <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481649	481745	
==>c/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, N <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482652	482748	
==>c/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, N <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871163	871453	
==>eter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872180	872470	
==>eter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873197	873487	
==>eter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874215	874505	
==>eter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875232	875522	
==>eter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876250	876540	
==>eter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877268	877558	
==>eter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878287	878577	
==>eter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
9	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	7	96	
==>ight (C) 2004, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Docs/Section/Languages.pm 20 <==
9	/Users/nnunley/parrot/lib/Pod/Simple.pm	14752	14846	
==>-----------------------------------

sub whine {
  #my($self,$line,$complaint) = @_;
  my $self <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584407	584495	
==>\"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opco <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585482	585570	
==>\"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opco <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586629	586717	
==>\"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opco <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587815	587903	
==>\"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opco <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589001	589089	
==>\"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opco <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590188	590276	
==>\"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opco <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597923	598011	
==>\"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opco <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598970	599058	
==>\"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opco <==
9	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	1515	1653	
==>args || [],
                       %opts }, (ref($class) || $class);

    $self->init();
    return $self;
}

sub init {
    # Nothing to d <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879359	879451	
==>n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880463	880555	
==>n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881567	881659	
==>n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882672	882764	
==>n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883777	883869	
==>n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884883	884975	
==>n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885989	886081	
==>n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887096	887188	
==>n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n", <==
9	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	1477	1574	
==>$pirate_file;

    $exit_code |= Parrot::Test::run_command($cmd, STDOUT => $pirate_out_f);
    $pi <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822249	822345	
==>}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_typ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823317	823413	
==>}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_typ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824384	824480	
==>}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_typ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825455	825551	
==>}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_typ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826525	826621	
==>}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_typ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827595	827691	
==>}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_typ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828664	828760	
==>}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_typ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829732	829828	
==>}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_typ <==
9	/Users/nnunley/parrot/lib/Text/Balanced.pm	18682	18791	
==>s;
			return;
		}
		$rd1pos = pos($$textref);
		$$textref =~ m{$label\n}gc;
		$ld2pos = pos($$textref);
		retu <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396096	396190	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enu <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397176	397270	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enu <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398256	398350	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enu <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399337	399431	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enu <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400417	400511	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enu <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401498	401592	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enu <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402579	402673	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enu <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403661	403755	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enu <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	32189	32282	
==>get results PMC index and get PMC. */\n\t    sig = PF_CONST(PMC_cont(cc)->seg, results[1])->u. <==
9	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	2293	2387	
==>ified file. This is used to compare files.

Any lines matching the regular expression specified <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879337	879426	
==>ader(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, & <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880441	880530	
==>ader(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, & <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881545	881634	
==>ader(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, & <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882650	882739	
==>ader(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, & <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883755	883844	
==>ader(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, & <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884861	884950	
==>ader(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, & <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885967	886056	
==>ader(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, & <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887074	887163	
==>ader(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, & <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039416	1039725	
==>n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_globa <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040308	1040617	
==>n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_globa <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041200	1041509	
==>n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_globa <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042093	1042402	
==>n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_globa <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042989	1043298	
==>n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_globa <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043886	1044195	
==>n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_globa <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044779	1045088	
==>n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_globa <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045673	1045982	
==>n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_globa <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046567	1046876	
==>n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_globa <==
9	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	1177	1281	
==>s his lovely new perl6 code back into APL.

.sub "__load_pirtable" :load
    $P0 = new .Hash
    store_gl <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888182	888271	
==>"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889316	889405	
==>"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890450	890539	
==>"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891585	891674	
==>"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892719	892808	
==>"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893854	893943	
==>"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	894989	895078	
==>"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896125	896214	
==>"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\ <==
9	/Users/nnunley/parrot/config/auto/msvc.pm	1654	1759	
==>e;
    $self->set_result('yes');

    $conf->data->set(msvcversion => $msvcversion);

    # Add Visual C++ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396042	396131	
==>ine 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}}) <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397122	397211	
==>ine 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}}) <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398202	398291	
==>ine 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}}) <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399283	399372	
==>ine 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}}) <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400363	400452	
==>ine 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}}) <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401444	401533	
==>ine 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}}) <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402525	402614	
==>ine 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}}) <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403607	403696	
==>ine 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}}) <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321617	321892	
==>, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323973	324248	
==>, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	329431	329706	
==>, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	330909	331184	
==>, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945501	945776	
==>, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	751300	751574	
==>, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946311	946585	
==>, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955945	956219	
==>, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956757	957031	
==>, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22696	22794	
==>("DONE_$label");
  $self->_restore($temp_0,$temp_1);
  return $return;
}

sub _op_even_p {
  my ($s <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396080	396173	
==>= PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397160	397253	
==>= PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398240	398333	
==>= PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399321	399414	
==>= PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400401	400494	
==>= PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401482	401575	
==>= PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402563	402656	
==>= PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403645	403738	
==>= PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627155	627245	
==>real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628299	628389	
==>real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632557	632647	
==>real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633599	633689	
==>real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634656	634746	
==>real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635774	635864	
==>real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636892	636982	
==>real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638011	638101	
==>real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\ <==
9	/Users/nnunley/parrot/config/auto/byteorder.pm	29	116	
==>e Perl Foundation.
# $Id: /parrot/config/auto/byteorder.pm 19593 2006-05-30T02:28:15.110 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462757	462854	
==>src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpret <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463754	463851	
==>src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpret <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464751	464848	
==>src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpret <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474097	474194	
==>src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpret <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475088	475185	
==>src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpret <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476079	476176	
==>src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpret <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483652	483749	
==>src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpret <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484651	484748	
==>src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpret <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485650	485747	
==>src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpret <==
9	/Users/nnunley/parrot/config/gen/makefiles.pm	946	1053	
==>-- A.D.  March 12, 2004
    if ($conf->data->get('cpuarch') =~ /sun4|sparc64/) {

        # CFLAGS entries m <==
9	/Users/nnunley/parrot/config/gen/cpu.pm	290	386	
==>cpu;

use strict;
use warnings;
use vars qw($description @args);

use base qw(Parrot::Configure:: <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822213	822304	
==>interpreter->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stac <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823281	823372	
==>interpreter->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stac <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824348	824439	
==>interpreter->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stac <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825419	825510	
==>interpreter->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stac <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826489	826580	
==>interpreter->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stac <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827559	827650	
==>interpreter->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stac <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828628	828719	
==>interpreter->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stac <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829696	829787	
==>interpreter->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stac <==
9	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4239	4361	
==>r, <rx_pos> # need $needed more chars",
               "lt <rx_tmp>, $needed, $fail";
    }
}

sub output_match {
    my ($ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822129	822217	
==>/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(inter <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823197	823285	
==>/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(inter <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824264	824352	
==>/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(inter <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825335	825423	
==>/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(inter <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826405	826493	
==>/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(inter <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827475	827563	
==>/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(inter <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828544	828632	
==>/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(inter <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829612	829700	
==>/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(inter <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	1042	1144	
==>n shift->{VALUE}; }


#
# compile()
#
# Essentially a no-op for values (except string literals... q.v.) <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879253	879347	
==>/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(interp <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880357	880451	
==>/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(interp <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881461	881555	
==>/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(interp <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882566	882660	
==>/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(interp <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883671	883765	
==>/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(interp <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884777	884871	
==>/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(interp <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885883	885977	
==>/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(interp <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886990	887084	
==>/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(interp <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964226	964577	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965233	965584	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966241	966592	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967249	967600	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968258	968609	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969266	969617	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970275	970626	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971284	971635	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
9	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	9315	9442	
==>max = @args;

    my $is_repeating; 

    foreach my $arg (@args) {
        $min-- if $arg->{optional};

        # XXX this isn' <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871159	871449	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872176	872466	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873193	873483	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874211	874501	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875228	875518	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876246	876536	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877264	877554	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878283	878573	
==>erpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
9	/Users/nnunley/parrot/languages/regex/test.pl	1281	1375	
==>xaaabb
OUTPUT:
Match found
0: 8..10
1: 8..9
INPUT:
aaaaaaaaaaaa
OUTPUT:
Match found
0: 0..11
IN <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964212	964573	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965219	965580	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966227	966588	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967235	967596	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968244	968605	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969252	969613	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970261	970622	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971270	971631	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
9	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	3121	3271	
==>{
                $diag .= "'$test_prog' failed with exit code $exit_code."
            }
            if ( $diag ) {
                $self->{builder}-> <==
9	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8234	8317	
==>_DATA__
FF,$a,$b,$c,$d,$_[4],7,0xd76aa478,/* 1 */
FF,$d,$a,$b,$c,$_[5],12,0xe8c7b756 <==
9	/Users/nnunley/parrot/config/auto/format.pm	791	904	
==>$iv eq "long") || ($iv eq "long int")) {
        $ivformat = "%ld";
    } elsif (($iv eq "long long") || ($iv eq " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627162	627256	
==>ception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  } <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628306	628400	
==>ception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  } <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632564	632658	
==>ception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  } <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633606	633700	
==>ception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  } <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634663	634757	
==>ception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  } <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635781	635875	
==>ception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  } <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636899	636993	
==>ception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  } <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638018	638112	
==>ception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  } <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467829	468085	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468700	468956	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469574	469830	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470449	470705	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471435	471691	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472422	472678	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473409	473665	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474399	474655	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475390	475646	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361116	361410	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362014	362308	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362913	363207	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363815	364109	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364718	365012	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365557	365851	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366397	366691	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  " <==
9	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8819	8930	
==>(max)
for i = 0 to 100
	b=rnd*max+1
	a(b)=a(b)+1
next i
for i = 1 to max
	print ,
	for j = 0 to a(i)
		print "*" <==
9	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20060	20171	
==>(max)
for i = 0 to 100
	b=rnd*max+1
	a(b)=a(b)+1
next i
for i = 1 to max
	print ,
	for j = 0 to a(i)
		print "*" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692259	692594	
==>> 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693258	693593	
==>> 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694258	694593	
==>> 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695258	695593	
==>> 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696259	696594	
==>> 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697259	697594	
==>> 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698260	698595	
==>> 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699261	699596	
==>> 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
9	/Users/nnunley/parrot/lib/Text/Balanced.pm	34582	34676	
==>r must be
balanced and correctly nested within the substring, and any other kind of
("non-delim <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180641	180905	
==>\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parro <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181537	181801	
==>\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parro <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182433	182697	
==>\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parro <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183328	183592	
==>\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parro <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184224	184488	
==>\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parro <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185120	185384	
==>\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parro <==
9	/Users/nnunley/parrot/tools/build/dynclasses.pl	2805	2926	
==>LAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $ <==
9	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3114	3235	
==>LAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $ <==
9	/Users/nnunley/parrot/tools/build/dynpmc.pl	2909	3030	
==>LAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $ <==
9	/Users/nnunley/parrot/lib/Text/Balanced.pm	7481	7578	
==>d_pat(q{'"}) . '|[^>])*>'; }
	$@ = undef;

	my @match = _match_tagged($textref, $pre, $ldel, $rdel <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	2859	2993	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "c <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549337	549471	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "c <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550637	550771	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "c <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551938	552072	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "c <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553129	553263	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "c <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554525	554659	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "c <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555922	556056	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "c <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614162	614296	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "c <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615312	615446	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "c <==
9	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	7250	7347	
==>esultx)
XNOTY
	}
}
sub parse_color {
	my($f,$b);
	my($resultb, $typeb, @codeb);
	my($resultf, $typ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	395458	395770	
==>E" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396537	396849	
==>E" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397617	397929	
==>E" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398697	399009	
==>E" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399778	400090	
==>E" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400858	401170	
==>E" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401939	402251	
==>E" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403020	403332	
==>E" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	876	978	
==>ind eq 'literal';

  return undef;
}

sub block { return shift->{BLOCK}; }
sub token { return shift->{T <==
9	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	463	564	
==>my ($self) = @_;
    return $self->{state}->genlabel("L");
}

sub is_label {
    return UNIVERSAL::isa <==
9	/Users/nnunley/parrot/tools/build/c2str.pl	942	1056	
==>+$i) {
		$h += $h << 5;
		$h &= 0xffffffff;
		$h += ord substr($s, $i, 1);
		$h &= 0xffffffff;
	}
	return sprintf(" <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	1960	2052	
==>e Scheme:Tokenizer;

  my @code = Scheme::Tokenizer->new($file_name)->tokenize();

=head1 DES <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964863	964949	
==>08 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965871	965957	
==>08 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966879	966965	
==>08 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967888	967974	
==>08 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968896	968982	
==>08 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969905	969991	
==>08 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970914	971000	
==>08 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971924	972010	
==>08 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	269752	270190	
==>"",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 314,
                  "ARGS" => [
                              "i",
                              "p",
                              "p"
                            ],
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413043	413431	
==>+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "F <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414170	414558	
==>+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "F <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415297	415685	
==>+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "F <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416425	416813	
==>+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "F <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417552	417940	
==>+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "F <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418680	419068	
==>+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "F <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419808	420196	
==>+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "F <==
9	/Users/nnunley/parrot/config/init/hints/darwin.pm	1018	1125	
==>flags      => '-dynamiclib -undefined suppress',
        ld_load_flags       => '-bundle -undefined suppress <==
9	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2250	2357	
==>de
        my $parrotdir = dirname( $self->{parrot} );
        Parrot::Test::write_code_to_file( $code, $l <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385301	385393	
==>offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERRO <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386432	386524	
==>offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERRO <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387563	387655	
==>offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERRO <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388695	388787	
==>offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERRO <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389826	389918	
==>offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERRO <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390958	391050	
==>offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERRO <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392090	392182	
==>offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERRO <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393223	393315	
==>offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERRO <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	821595	821804	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822662	822871	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823730	823939	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824800	825009	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825871	826080	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826940	827149	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828010	828219	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829077	829286	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	27861	28031	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "get_results",
                  "FL <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692286	692617	
==>E" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693285	693616	
==>E" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694285	694616	
==>E" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695285	695616	
==>E" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696286	696617	
==>E" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697286	697617	
==>E" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698287	698618	
==>E" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699288	699619	
==>E" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842723	843021	
==>GS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 956,
                  "ARGS" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236345	236613	
==>> "inline",
                  "CODE" => 275,
                  "ARGS" => [
                              "i",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 606 \"src/ops/cmp.ops\"\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193522	193610	
==>g_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194501	194589	
==>g_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210253	210341	
==>g_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211233	211321	
==>g_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218811	218899	
==>g_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219790	219878	
==>g_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227370	227458	
==>g_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228350	228438	
==>g_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) <==
9	/Users/nnunley/parrot/lib/Parrot/Op.pm	3470	3565	
==>e()>

For argumentless ops, it's the same as C<name()>. For ops with
arguments, an underscore fo <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396111	396203	
==>}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397191	397283	
==>}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398271	398363	
==>}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399352	399444	
==>}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400432	400524	
==>}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401513	401605	
==>}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402594	402686	
==>}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403676	403768	
==>}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351075	351313	
==>"LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351737	351975	
==>"LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352394	352632	
==>"LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353052	353290	
==>"LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353796	354034	
==>"LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354541	354779	
==>"LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361008	361246	
==>"LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	12059	12167	
==>$label");
  return $return;
}

sub _op_or {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gens <==
9	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3586	3690	
==>) * (M0 - M) * .0001)
print w

' INT madness.  0, 0, 0, -1, -1, 3
print int(.8),
print int(.3),
print int <==
9	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tests.pm	248	341	
==>ection::Tests;

=head1 DESCRIPTION

A documentation section describing Parrot tests.

=head2 C <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752082	752388	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752861	753167	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753648	753954	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754436	754742	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755222	755528	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756009	756315	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756798	757104	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757588	757894	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758360	758666	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" = <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13678	13774	
==>body($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to acc <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29461	29557	
==>body($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to acc <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30103	30199	
==>body($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to acc <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31328	31424	
==>body($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to acc <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32941	33037	
==>body($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to acc <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34629	34725	
==>body($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to acc <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35959	36055	
==>body($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to acc <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37904	38000	
==>body($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to acc <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39948	40044	
==>body($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to acc <==
9	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	17602	17696	
==>urations.

=head1 LICENSE

Copyright (C) 2005-2006, The Perl Foundation.

This is free software <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822262	822356	
==>entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823330	823424	
==>entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824397	824491	
==>entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825468	825562	
==>entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826538	826632	
==>entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827608	827702	
==>entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828677	828771	
==>entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829745	829839	
==>entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ <==
9	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	814	899	
==>"basicvar.pasm"
.include "basic.pasm"
.include "instructions.pasm"
.include "expr.pasm <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505556	505790	
==>" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 631 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72891	72991	
==>,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_n <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74493	74593	
==>,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_n <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76095	76195	
==>,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_n <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77698	77798	
==>,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_n <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79219	79319	
==>,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_n <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80740	80840	
==>,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_n <==
9	/Users/nnunley/parrot/tools/build/ops2pm.pl	4313	4408	
==>id ops from ops.num
# or from experimental

my $real_ops = Parrot::OpsFile->new( [ ], $nolines_f <==
9	/Users/nnunley/parrot/lib/Text/Balanced.pm	62080	62171	
==>em  C<No block delimiter found after quotelike "%s">

C<extract_quotelike> or C<extract_code <==
9	/Users/nnunley/parrot/languages/python/pie-thon.pl	6412	6520	
==>}\n";
	# XXX this is wrong, the default args should be evaluated once
	#     if this value depends on a globa <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871122	871213	
==>.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872139	872230	
==>.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873156	873247	
==>.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874174	874265	
==>.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875191	875282	
==>.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876209	876300	
==>.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877227	877318	
==>.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878246	878337	
==>.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  { <==
9	/Users/nnunley/parrot/Configure.pl	9995	10094	
==>>options->set(%args);
# Run the actual steps
$conf->runsteps or exit(1);

# tell users what to do ne <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692856	692945	
==>=> "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693856	693945	
==>=> "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694856	694945	
==>=> "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695857	695946	
==>=> "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696857	696946	
==>=> "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697858	697947	
==>=> "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698859	698948	
==>=> "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699861	699950	
==>=> "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3 <==
9	/Users/nnunley/parrot/languages/python/pie-thon.pl	21732	21847	
==>cmt
$label
EOC
    }
    else {
	my $nl = promote($l);
	my $nr = $r->[1];
	$nr = promote($r) if $op =~ /addr/;
	prin <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24427	24528	
==>rn = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_ <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24658	24759	
==>rn = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_ <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25316	25417	
==>rn = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_ <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25669	25770	
==>rn = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_ <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26326	26427	
==>rn = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_ <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26557	26658	
==>rn = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_ <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27216	27317	
==>rn = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_ <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27567	27668	
==>rn = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_ <==
9	/Users/nnunley/parrot/lib/Parrot/Test.pm	6200	6292	
==>ert_line_endings($text)>

Convert Win32 style line endins with Unix style line endings.

=ite <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912977	913065	
==>rc/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913988	914076	
==>rc/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914999	915087	
==>rc/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916011	916099	
==>rc/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917022	917110	
==>rc/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918034	918122	
==>rc/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919046	919134	
==>rc/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920059	920147	
==>rc/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
9	/Users/nnunley/parrot/lib/Parrot/Config.pm	2361	2494	
==>n 28 10:53:19 2006',
             'cp' => 'perl -MExtUtils::Command -e cp',
             'cpuarch' => 'ppc',
             'cxx' => '', <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897176	897262	
==>ring.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NUL <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898194	898280	
==>ring.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NUL <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899212	899298	
==>ring.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NUL <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900231	900317	
==>ring.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NUL <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901249	901335	
==>ring.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NUL <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902268	902354	
==>ring.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NUL <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903287	903373	
==>ring.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NUL <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904307	904393	
==>ring.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NUL <==
9	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	6856	6973	
==>c #s.
    $out ~~ s:P5:g/#/\\#/;

    my $context_out = $context.defined ?? " # $context" !! "";

    print "not " unl <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879370	879478	
==>= string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880474	880582	
==>= string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881578	881686	
==>= string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882683	882791	
==>= string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883788	883896	
==>= string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884894	885002	
==>= string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886000	886108	
==>= string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887107	887215	
==>= string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" <==
9	/Users/nnunley/parrot/tools/build/pmc2c.pl	10606	10742	
==>a hash ref of attributes.

=cut

sub parse_pmc {
    my $code = shift;

    my $signature_re = qr{
    ^
    (?:                 #blank s <==
9	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	7961	8096	
==>");
          $str =~ s/ /&nbsp;/g;
          # hack, to make the timestamps not break so the smoke reports look
          # good even o <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31809	31901	
==>->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_na <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33386	33478	
==>->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_na <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35097	35189	
==>->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_na <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36400	36492	
==>->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_na <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38347	38439	
==>->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_na <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40443	40535	
==>->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_na <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29766	29854	
==>->{has_method}{$meth};
    return $self->SUPER::body($self->{methods}[$n], $line, $out_na <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351031	351271	
==>{{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "prin <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351693	351933	
==>{{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "prin <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352350	352590	
==>{{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "prin <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353008	353248	
==>{{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "prin <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356712	356952	
==>{{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "prin <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357372	357612	
==>{{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "prin <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358035	358275	
==>{{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "prin <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358699	358939	
==>{{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "prin <==
9	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	75179	75275	
==>my $tracemsg;
my $tracecontext;
my $tracerulename;

open (TRACE, ">&STDERR");
format TRACE =
|@|| <==
9	/Users/nnunley/parrot/lib/Text/Balanced.pm	52435	52530	
==>iple> starts at the current C<pos> of the string, and
sets that C<pos> appropriately after it ma <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897246	897565	
==>3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898264	898583	
==>3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899282	899601	
==>3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900301	900620	
==>3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901319	901638	
==>3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902338	902657	
==>3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903357	903676	
==>3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904377	904696	
==>3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
9	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10277	10372	
==>------------------------


#line 1 "lib/Regex/Grammar.y"


use constant TRUE => "TRUE";
use cons <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586901	587044	
==>\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588087	588230	
==>\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589273	589416	
==>\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590460	590603	
==>\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591669	591812	
==>\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592879	593022	
==>\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594089	594232	
==>\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595300	595443	
==>\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0, <==
9	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	4183	4325	
==>) {
    my @cnt = m/( - )/g;
    if ($#cnt) {
        my @a = split /\n(?=(?:.*?) - )/, $_;
        foreach (@a) {
            m/^\s*(.*?) - (. <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879428	879768	
==>est, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880532	880872	
==>est, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881636	881976	
==>est, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882741	883081	
==>est, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883846	884186	
==>est, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884952	885292	
==>est, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886058	886398	
==>est, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887165	887505	
==>est, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Text/Balanced.pm	62512	62607	
==>_variable> found a '$', '@', or '%' indicating a variable, but that
character was not followed b <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878658	878970	
==>ME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879761	880073	
==>ME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880865	881177	
==>ME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881969	882281	
==>ME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883074	883386	
==>ME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884179	884491	
==>ME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885285	885597	
==>ME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886391	886703	
==>ME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
9	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	11095	11218	
==>olor: #050; }
    .tests_failed   { color: #500; }
    .tests_todo     { color: #030; }
    .tests_skipped  { color: #555; } <==
9	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2151	2253	
==>lso leaves it output file in this directory, which we need
    # to move to the appropriate place, alon <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822132	822220	
==>ack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpre <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823200	823288	
==>ack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpre <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824267	824355	
==>ack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpre <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825338	825426	
==>ack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpre <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826408	826496	
==>ack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpre <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827478	827566	
==>ack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpre <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828547	828635	
==>ack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpre <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829615	829703	
==>ack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpre <==
9	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	2938	3050	
==>em('', 'tools/dev/mk_native_pbc'),
        ),
        $self->new_group('Benchmarking', '',
            $self->new <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879306	879397	
==>dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880410	880501	
==>dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881514	881605	
==>dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882619	882710	
==>dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883724	883815	
==>dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884830	884921	
==>dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885936	886027	
==>dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887043	887134	
==>dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361803	362062	
==>n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362702	362961	
==>n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363604	363863	
==>n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364507	364766	
==>n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365346	365605	
==>n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366186	366445	
==>n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367084	367343	
==>n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718042	718131	
==>" \");\n  PIO_fprintf(interpreter, io, INTVAL_FMT, (INTVAL){{\@2}});\n  PIO_softspace(inte <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718974	719063	
==>" \");\n  PIO_fprintf(interpreter, io, INTVAL_FMT, (INTVAL){{\@2}});\n  PIO_softspace(inte <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	373459	373778	
==>{
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374341	374660	
==>{
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375224	375543	
==>{
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376107	376426	
==>{
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376991	377310	
==>{
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377874	378193	
==>{
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378758	379077	
==>{
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379642	379961	
==>{
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function" <==
9	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	3552	3667	
==>ub c_header_file_with_name
{
    my $self = shift;
    my $name = shift || return;
    
    $name .= '.h' unless $na <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24518	24627	
==>elf->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $te <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24749	24858	
==>elf->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $te <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25407	25516	
==>elf->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $te <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25760	25869	
==>elf->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $te <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26417	26526	
==>elf->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $te <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26648	26757	
==>elf->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $te <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27307	27416	
==>elf->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $te <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27658	27767	
==>elf->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $te <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	553	652	
==>K, KIND, TYPE, PREFIX)

If BLOCK is defined, it is the new Block's parent.

The KIND tells what kind <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	265	366	
==>$
#

use strict;
eval "use warnings";

package Jako::Construct::Statement::New;

use Carp;

use base q <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459837	459931	
==>\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Di <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460825	460919	
==>\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Di <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461813	461907	
==>\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Di <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471180	471274	
==>\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Di <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472167	472261	
==>\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Di <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473154	473248	
==>\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Di <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480687	480781	
==>\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Di <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481690	481784	
==>\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Di <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482693	482787	
==>\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Di <==
9	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	36143	36238	
==>x, $min) = ( $min, $max) if ($max<$min);

	my $desc;
	if ($subrule=~/\A_alternation_\d+_of_produ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822139	822229	
==>\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx) <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823207	823297	
==>\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx) <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824274	824364	
==>\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx) <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825345	825435	
==>\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx) <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826415	826505	
==>\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx) <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827485	827575	
==>\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx) <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828554	828644	
==>\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx) <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829622	829712	
==>\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx) <==
9	/Users/nnunley/parrot/languages/python/pie-thon.pl	21719	21832	
==>>[1], $targ $cmt
$label
EOC
    }
    else {
	my $nl = promote($l);
	my $nr = $r->[1];
	$nr = promote($r) if $op = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822152	822238	
==>ntry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_st <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823220	823306	
==>ntry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_st <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824287	824373	
==>ntry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_st <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825358	825444	
==>ntry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_st <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826428	826514	
==>ntry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_st <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827498	827584	
==>ntry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_st <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828567	828653	
==>ntry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_st <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829635	829721	
==>ntry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_st <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896516	896816	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897533	897833	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898551	898851	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899569	899869	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900588	900888	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901606	901906	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902625	902925	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903644	903944	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i <==
9	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29090	29228	
==>,
	{#State 89
		DEFAULT => -109
	},
	{#State 90
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" = <==
9	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	6900	7001	
==>t the destination of any jump (these
    # are the ones that were marked reachable because the previou <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822233	822330	
==>ser_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (e <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823301	823398	
==>ser_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (e <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824368	824465	
==>ser_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (e <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825439	825536	
==>ser_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (e <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826509	826606	
==>ser_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (e <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827579	827676	
==>ser_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (e <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828648	828745	
==>ser_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (e <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829716	829813	
==>ser_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (e <==
9	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	212	312	
==>irectory to put the tests in
$DIR = 't_tcl';

use Fatal qw{open};
use File::Spec;
use Getopt::Std;
us <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385278	385370	
==>ter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(inte <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386409	386501	
==>ter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(inte <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387540	387632	
==>ter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(inte <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388672	388764	
==>ter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(inte <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389803	389895	
==>ter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(inte <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390935	391027	
==>ter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(inte <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392067	392159	
==>ter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(inte <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393200	393292	
==>ter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(inte <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385343	385442	
==>{\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386474	386573	
==>{\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387605	387704	
==>{\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388737	388836	
==>{\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389868	389967	
==>{\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391000	391099	
==>{\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392132	392231	
==>{\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393265	393364	
==>{\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5 <==
9	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	4446	4540	
==>a*/x/g doesn't go into infinite loop)
# This is sometimes a runtime property.
sub rewrite_multi <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426275	426579	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_co <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427162	427466	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_co <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428048	428352	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_co <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428935	429239	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_co <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429821	430125	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_co <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430708	431012	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_co <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431594	431898	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_co <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	603018	603250	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "classname",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1096124	1096356	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "classname",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459829	459922	
==>{{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460817	460910	
==>{{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461805	461898	
==>{{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471172	471265	
==>{{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472159	472252	
==>{{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473146	473239	
==>{{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480679	480772	
==>{{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481682	481775	
==>{{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482685	482778	
==>{{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887439	887739	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888572	888872	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889706	890006	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890840	891140	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891975	892275	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893109	893409	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	894244	894544	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895379	895679	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 " <==
9	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2979	3073	
==>better for sending to an XML processor (that is, it has
no ignoreable whitespace). But
Pod::Sim <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785616	785914	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786526	786824	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787437	787735	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788346	788644	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789256	789554	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790165	790463	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791075	791373	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791981	792279	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	831	973	
==>dump, # vtable.dump
          pmc1        => $pmc1_dump,
          pmc2        => $pmc2_dump,
          ... );

Creates a new library object. I <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797411	797710	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 90 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798315	798614	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 90 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799219	799518	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 90 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800124	800423	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 90 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801027	801326	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 90 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801931	802230	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 90 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802835	803134	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 90 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803740	804039	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 90 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804640	804939	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 90 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700003	700340	
==>ELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700993	701330	
==>ELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701984	702321	
==>ELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702975	703312	
==>ELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703967	704304	
==>ELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704958	705295	
==>ELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705950	706287	
==>ELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706942	707279	
==>ELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "", <==
9	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3785	3900	
==>%ld]",

        'i'  => "(*(INTVAL *)OP_AS_OFFS(%ld))",
        'ki'  => "(*(INTVAL *)OP_AS_OFFS(%ld))",
        'n' <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841458	841656	
==>[
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 40 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	395376	395551	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396455	396630	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397535	397710	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398615	398790	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399696	399871	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400776	400951	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401857	402032	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402938	403113	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [ <==
9	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4213	4315	
==>register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${S <==
9	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2106	2208	
==>register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${S <==
9	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2629	2731	
==>register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${S <==
9	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3358	3460	
==>register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${S <==
9	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5987	6089	
==>register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${S <==
9	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6545	6647	
==>register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${S <==
9	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1412	1514	
==>register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${S <==
9	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1939	2041	
==>register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${S <==
9	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3122	3224	
==>register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${S <==
9	/Users/nnunley/parrot/config/auto/gcc.pm	1352	1476	
==>ose;
        $self->set_result('no');
        $conf->data->set(gccversion => undef);
        return $self;
    }
    if ($maj <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888165	888252	
==>c/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889299	889386	
==>c/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890433	890520	
==>c/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891568	891655	
==>c/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892702	892789	
==>c/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893837	893924	
==>c/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	894972	895059	
==>c/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896108	896195	
==>c/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, { <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	161	294	
==>of', 'I0', 'P5'],
  ['',             'ne', 'I0', '.Undef', 'write_N_UNDEF'],
  ['',             'print', '"()"'],
  ['',             ' <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879266	879366	
==>ps\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880370	880470	
==>ps\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881474	881574	
==>ps\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882579	882679	
==>ps\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883684	883784	
==>ps\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884790	884890	
==>ps\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885896	885996	
==>ps\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887003	887103	
==>ps\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1 <==
9	/Users/nnunley/parrot/config/auto/headers.pm	255	351	
==>s;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

us <==
9	/Users/nnunley/parrot/config/auto/sizes.pm	266	362	
==>s;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

us <==
9	/Users/nnunley/parrot/config/gen/makefiles.pm	305	401	
==>s;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

us <==
9	/Users/nnunley/parrot/config/init/defaults.pm	312	408	
==>s;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

us <==
9	/Users/nnunley/parrot/config/init/hints.pm	326	422	
==>s;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

us <==
9	/Users/nnunley/parrot/config/inter/ops.pm	268	364	
==>s;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

us <==
9	/Users/nnunley/parrot/config/inter/progs.pm	407	503	
==>s;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

us <==
9	/Users/nnunley/parrot/config/inter/shlibs.pm	567	663	
==>s;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

us <==
9	/Users/nnunley/parrot/config/inter/types.pm	319	415	
==>s;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

us <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244354	244670	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 284,
                  "A <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374072	374337	
==>l(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374955	375220	
==>l(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375838	376103	
==>l(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376722	376987	
==>l(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377605	377870	
==>l(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378489	378754	
==>l(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379373	379638	
==>l(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380258	380523	
==>l(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396197	396536	
==>s_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397277	397616	
==>s_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398357	398696	
==>s_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399438	399777	
==>s_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400518	400857	
==>s_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401599	401938	
==>s_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402680	403019	
==>s_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403762	404101	
==>s_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4534	4639	
==>{
      $string = substr($string, 1, -1); # Without the surrounding quotes.

      $handler->start_element <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878374	878711	
==>S" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879477	879814	
==>S" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880581	880918	
==>S" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881685	882022	
==>S" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882790	883127	
==>S" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883895	884232	
==>S" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885001	885338	
==>S" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886107	886444	
==>S" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611804	612073	
==>TYPE" => "inline",
                  "CODE" => 693,
                  "ARGS" => [
                              "p",
                              "ic",
                              "p"
                            ],
                  "BODY" => "#line 491 \"src/ops/obj <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412307	412651	
==>AGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413433	413777	
==>AGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414560	414904	
==>AGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415687	416031	
==>AGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416815	417159	
==>AGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417942	418286	
==>AGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419070	419414	
==>AGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420198	420542	
==>AGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30009	30102	
==>dard::Const;
use base 'Parrot::Pmc2c::Standard';
import Parrot::Pmc2c qw( gen_ret );

=item C< <==
9	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2222	2321	
==>------------------
sub e2charnum {
  my $in = $_[0];
  return undef unless defined $in and length $i <==
9	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	13253	13397	
==>d a space around the argument,
        # like so:
        #
        #    goto OFFSET(( (void*)interpreter->happy_place ))
        #
        # Lat <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412210	412476	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413336	413602	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414463	414729	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415590	415856	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416718	416984	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417845	418111	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418973	419239	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420101	420367	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
9	/Users/nnunley/parrot/config/inter/encoding.pm	985	1100	
==>like?', $encoding_list);
        }
    }

    # names of class files for src/pmc/Makefile
    (my $TEMP_encoding_o = <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	994	1098	
==>VERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK     => $block, <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	1006	1110	
==>VERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK     => $block, <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	924	1024	
==>VERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block, <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	762	862	
==>VERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block, <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	915	1015	
==>VERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block, <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	804	904	
==>VERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block, <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1184	1284	
==>VERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block, <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1212	1312	
==>VERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block, <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	884	984	
==>VERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871151	871326	
==>bstr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872168	872343	
==>bstr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873185	873360	
==>bstr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874203	874378	
==>bstr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875220	875395	
==>bstr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876238	876413	
==>bstr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877256	877431	
==>bstr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878275	878450	
==>bstr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0, <==
9	/Users/nnunley/parrot/tools/build/nativecall.pl	1678	1831	
==>ct
       S => "STRING *",
       I => "INTVAL",
       N => "FLOATVAL",
       b => "void *",
       B => "void **",
       L => "long *",
       T => "c <==
9	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16075	16164	
==>an Little <stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vincent <jesse@ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572957	573042	
==>ew(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, name, {{\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573867	573952	
==>ew(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, name, {{\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576462	576547	
==>ew(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, name, {{\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577474	577559	
==>ew(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, name, {{\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579562	579647	
==>ew(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, name, {{\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580867	580952	
==>ew(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, name, {{\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582172	582257	
==>ew(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, name, {{\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583478	583563	
==>ew(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, name, {{\ <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10807	10907	
==>k!"        unless defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "No <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4000	4094	
==>k!"  unless defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "No <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6168	6262	
==>k!"  unless defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "No <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7111	7205	
==>k!"  unless defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "No <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7909	8003	
==>k!"  unless defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "No <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8556	8650	
==>k!"  unless defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "No <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9224	9318	
==>k!"  unless defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "No <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9893	9987	
==>k!"  unless defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "No <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	11824	11918	
==>k!"  unless defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "No <==
9	/Users/nnunley/parrot/tools/build/pbc2c.pl	6951	7063	
==>/\n/\n    /mg;
	    $source =~ s/#line.*\n//mg;
	    $source =~ s/CUR_OPCODE/(start_code + $pc)/mg;

	    printf( <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627090	627181	
==>if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpreter, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628234	628325	
==>if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpreter, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632492	632583	
==>if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpreter, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633534	633625	
==>if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpreter, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634591	634682	
==>if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpreter, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635709	635800	
==>if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpreter, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636827	636918	
==>if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpreter, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637946	638037	
==>if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpreter, <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13746	13843	
==>body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output f <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29529	29626	
==>body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output f <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30171	30268	
==>body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output f <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31396	31493	
==>body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output f <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33009	33106	
==>body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output f <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34697	34794	
==>body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output f <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36027	36124	
==>body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output f <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37972	38069	
==>body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output f <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40016	40113	
==>body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the output f <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038825	1039122	
==>tore_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 116 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039716	1040013	
==>tore_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 116 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040608	1040905	
==>tore_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 116 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041500	1041797	
==>tore_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 116 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042393	1042690	
==>tore_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 116 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043289	1043586	
==>tore_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 116 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044186	1044483	
==>tore_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 116 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045079	1045376	
==>tore_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 116 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045973	1046270	
==>tore_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 116 <==
9	/Users/nnunley/parrot/lib/Class/Struct.pm	8866	8961	
==>names and types, and optionally
a class name, C<struct> creates a Perl 5 class that implements
a <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822377	822467	
==>ternal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823445	823535	
==>ternal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824515	824605	
==>ternal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825586	825676	
==>ternal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826655	826745	
==>ternal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827725	827815	
==>ternal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828792	828882	
==>ternal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829860	829950	
==>ternal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912314	912590	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913324	913600	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914335	914611	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915346	915622	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916358	916634	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917369	917645	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918381	918657	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919393	919669	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i", <==
9	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11694	11779	
==>s\lang1024\noproof\sbasedon0 \snext0 pod-codeblock;}
{\*\cs21 \additive \lang1024\nopr <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888352	888687	
==>0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889486	889821	
==>0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890620	890955	
==>0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891755	892090	
==>0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892889	893224	
==>0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	894024	894359	
==>0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895159	895494	
==>0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896295	896630	
==>0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core <==
9	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Compilers.pm	794	917	
==>s/ast',
            'compilers/imcc' ),
        $self->new_group( 'PGE', 'the Parrot Grammar Engine',
            'compil <==
9	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4303	4398	
==>urn $self;
}

=item C<settrigger($key, $trigger, $cb)>

Set a callback on C<$key> named C<$trigg <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822224	822318	
==>->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823292	823386	
==>->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824359	824453	
==>->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825430	825524	
==>->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826500	826594	
==>->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827570	827664	
==>->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828639	828733	
==>->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829707	829801	
==>->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888120	888228	
==>,
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889254	889362	
==>,
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890388	890496	
==>,
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891523	891631	
==>,
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892657	892765	
==>,
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893792	893900	
==>,
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	894927	895035	
==>,
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896063	896171	
==>,
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@ <==
9	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8220	8323	
==>ned)) {
        say("1..$Test::num_of_tests_run");
    }
    elsif ($Test::num_of_tests_planned != $Test <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912932	913042	
==>],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913943	914053	
==>],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914954	915064	
==>],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915966	916076	
==>],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916977	917087	
==>],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917989	918099	
==>],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919001	919111	
==>],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920014	920124	
==>],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, { <==
9	/Users/nnunley/parrot/tools/dev/parrot_api.pl	761	860	
==>isted with
the object file it was found in.

Good things are listed with C<+++> (at the moment the o <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374100	374406	
==>3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374983	375289	
==>3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375866	376172	
==>3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376750	377056	
==>3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377633	377939	
==>3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378517	378823	
==>3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379401	379707	
==>3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3644	3749	
==>ot a module!")
        unless $self->block->kind eq 'module';

      my %module_props = $self->block->prop <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6308	6413	
==>ot a module!")
        unless $self->block->kind eq 'module';

      my %module_props = $self->block->prop <==
9	/Users/nnunley/parrot/lib/Pod/Simple.pm	47245	47331	
==>return $new;
}


#--------------------------------------------------------------------- <==
9	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	967	1052	
==>return $new;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
9	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	355	440	
==>return $new;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
9	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	354	439	
==>return $new;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
9	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4061	4146	
==>return $new;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
9	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	751	836	
==>return $new;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
9	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	296	381	
==>return $new;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
9	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	603	688	
==>return $new;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
9	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	552	637	
==>return $new;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13714	13815	
==>turns the C code for the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29497	29598	
==>turns the C code for the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30139	30240	
==>turns the C code for the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31364	31465	
==>turns the C code for the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32977	33078	
==>turns the C code for the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34665	34766	
==>turns the C code for the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35995	36096	
==>turns the C code for the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37940	38041	
==>turns the C code for the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39984	40085	
==>turns the C code for the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049585	1049882	
==>UMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050618	1050915	
==>UMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051652	1051949	
==>UMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052686	1052983	
==>UMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053721	1054018	
==>UMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054847	1055144	
==>UMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
9	/Users/nnunley/parrot/languages/python/pie-thon.pl	17772	17894	
==>stack empty\n";
	return;
    }
    my $tos = pop @stack;
    my $targ = "pc_xxx";
    if ($c =~ /to (\d+)/) {
	$targ = "pc_ <==
9	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6353	6462	
==>h the array.
WHILE Exchange          ' Sort until no elements are exchanged.
   Exchange=FALSE
   ' Compare th <==
9	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16006	16115	
==>h the array.
WHILE Exchange          ' Sort until no elements are exchanged.
   Exchange=FALSE
   ' Compare th <==
9	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3265	3360	
==>foo$
	foo$="Right one"
	exit function
	foo$="Wrong one"
end function
call mysub( 78, 80)
t$=foo$ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396113	396206	
==>, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397193	397286	
==>, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398273	398366	
==>, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399354	399447	
==>, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400434	400527	
==>, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401515	401608	
==>, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402596	402689	
==>, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403678	403771	
==>, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888228	888551	
==>@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889362	889685	
==>@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890496	890819	
==>@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891631	891954	
==>@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892765	893088	
==>@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893900	894223	
==>@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895035	895358	
==>@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896171	896494	
==>@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599870	600071	
==>" => [
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 363 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_look <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879402	879703	
==>@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880506	880807	
==>@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881610	881911	
==>@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882715	883016	
==>@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883820	884121	
==>@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884926	885227	
==>@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886032	886333	
==>@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887139	887440	
==>@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	270262	270519	
==>(interpreter, {{\@2}}, {{\@3}}, MMD_CMP) >= 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871189	871508	
==>\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872206	872525	
==>\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873223	873542	
==>\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874241	874560	
==>\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875258	875577	
==>\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876276	876595	
==>\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877294	877613	
==>\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878313	878632	
==>\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	626381	626583	
==>ion)(interpreter, sig_bits, args);\n    {{=pc}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
9	/Users/nnunley/parrot/languages/lua/Lua/build.pm	555	670	
==>) = @_;
    my @opcodes = ();
    unless ( $parser->YYData->{_G} ) {
        $parser->YYData->{_G} = new_tmp( $pa <==
9	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	14819	14917	
==>_path(
        $docs_file->parent->relative_path($target->parent_path));

    my $name = $target->n <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385209	385301	
==>e 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_o <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386340	386432	
==>e 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_o <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387471	387563	
==>e 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_o <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388603	388695	
==>e 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_o <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389734	389826	
==>e 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_o <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390866	390958	
==>e 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_o <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391998	392090	
==>e 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_o <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393131	393223	
==>e 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_o <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	329885	330092	
==>TYPE" => "inline",
                  "CODE" => 387,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 169 \"src/ops/dotgnu.ops\" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385244	385334	
==>@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386375	386465	
==>@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387506	387596	
==>@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388638	388728	
==>@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389769	389859	
==>@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390901	390991	
==>@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392033	392123	
==>@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393166	393256	
==>@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830722	830971	
==>, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831463	831712	
==>, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832190	832439	
==>, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832918	833167	
==>, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833640	833889	
==>, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834365	834614	
==>, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835091	835340	
==>, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835843	836092	
==>, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836596	836845	
==>, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396181	396480	
==>reter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397261	397560	
==>reter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398341	398640	
==>reter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399422	399721	
==>reter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400502	400801	
==>reter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401583	401882	
==>reter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402664	402963	
==>reter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403746	404045	
==>reter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1014285	1014475	
==>= string_make(interpreter, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                } <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396186	396505	
==>, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397266	397585	
==>, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398346	398665	
==>, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399427	399746	
==>, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400507	400826	
==>, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401588	401907	
==>, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402669	402988	
==>, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403751	404070	
==>, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
9	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	51611	51737	
==>length;
        $x = $code . ("<" x $ender_length) . " $x " . (">" x $ender_length);
      } else {
        $x = $code . "<$x>" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412248	412611	
==>,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413374	413737	
==>,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414501	414864	
==>,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415628	415991	
==>,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416756	417119	
==>,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417883	418246	
==>,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419011	419374	
==>,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420139	420502	
==>,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
9	/Users/nnunley/parrot/tools/dev/manicheck.pl	950	1042	
==>nifest::Quiet = 1;
my $manifest  = ExtUtils::Manifest::maniread();
my $file_list = ExtUtils:: <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	395318	395540	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "AR <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396397	396619	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "AR <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397477	397699	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "AR <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398557	398779	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "AR <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399638	399860	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "AR <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400718	400940	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "AR <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401799	402021	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "AR <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402880	403102	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "AR <==
9	/Users/nnunley/parrot/lib/File/Which.pm	780	888	
==>.com .exe .bat); # Win9X or other: doesn't have PATHEXT, so needs hardcoded.
    }
}
elsif ($Is_VMS) { 
    p <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897229	897530	
==>}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898247	898548	
==>}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899265	899566	
==>}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900284	900585	
==>}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901302	901603	
==>}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902321	902622	
==>}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903340	903641	
==>}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904360	904661	
==>}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
9	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	13245	13350	
==>y $self = $_[0];
  # Return 0 or more fake-o paragraphs explaining the accumulated
  #  errors on this doc <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13697	13798	
==>, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the number of li <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29480	29581	
==>, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the number of li <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30122	30223	
==>, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the number of li <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31347	31448	
==>, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the number of li <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32960	33061	
==>, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the number of li <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34648	34749	
==>, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the number of li <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35978	36079	
==>, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the number of li <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37923	38024	
==>, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the number of li <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39967	40068	
==>, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the number of li <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385364	385478	
==>on(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386495	386609	
==>on(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387626	387740	
==>on(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388758	388872	
==>on(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389889	390003	
==>on(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391021	391135	
==>on(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392153	392267	
==>on(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393286	393400	
==>on(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	17114	17208	
==>ans)>

Returns any lines found prior to first op definition.

If C<$trans> (an C<Parrot::OpTran <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887536	887882	
==>AGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888669	889015	
==>AGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889803	890149	
==>AGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890937	891283	
==>AGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892072	892418	
==>AGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893206	893552	
==>AGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	894341	894687	
==>AGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895476	895822	
==>AGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
9	/Users/nnunley/parrot/lib/Test/More.pm	24783	24881	
==>t does a deep comparison walking each data structure to
see if they are equivalent.  If the two str <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396147	396327	
==>}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397227	397407	
==>}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398307	398487	
==>}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399388	399568	
==>}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400468	400648	
==>}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401549	401729	
==>}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402630	402810	
==>}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403712	403892	
==>}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
9	/Users/nnunley/parrot/lib/Text/Balanced.pm	34180	34269	
==>balanced-bracket-delimited substring" is a substring bounded by
matched brackets, such tha <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888266	888638	
==>1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889400	889772	
==>1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890534	890906	
==>1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891669	892041	
==>1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892803	893175	
==>1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893938	894310	
==>1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895073	895445	
==>1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896209	896581	
==>1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	3754	3845	
==>nism within the core's init function.
C<$base_suffix> is the same as for C<ops_addr_decl()>. <==
9	/Users/nnunley/parrot/tools/build/pmc2c.pl	3560	3654	
==>. For instance, any class using
C<PMC_data> will have C<need_ext>.

=item C<does interface>

Th <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412940	413029	
==>/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414067	414156	
==>/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415194	415283	
==>/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416322	416411	
==>/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417449	417538	
==>/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418577	418666	
==>/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419705	419794	
==>/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420834	420923	
==>/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@ <==
9	/Users/nnunley/parrot/lib/Text/Balanced.pm	50886	50978	
==>t delimiter bracket is useful
in some circumstances. For example, in the Parse::RecDescent mo <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	448690	448944	
==>(FLOATVAL){{\@2}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700200	700410	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701190	701400	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702181	702391	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703172	703382	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704164	704374	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705155	705365	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706147	706357	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	707139	707349	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822479	822752	
==>entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "look <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823547	823820	
==>entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "look <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824617	824890	
==>entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "look <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825688	825961	
==>entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "look <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826757	827030	
==>entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "look <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827827	828100	
==>entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "look <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828894	829167	
==>entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "look <==
9	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	1627	1739	
==>arks!
		emit("STRING");
		fetch;
		goto MAIN;
	}
	if ( ($cur eq "'") or 
	     ($cur=~/[Rr]/ and $next=~/[Ee]/ an <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	619574	619655	
==>if (PARROT_ERRORS_test(interpreter,PARROT_ERRORS_OVERFLOW_FLAG)) {\n\t\treal_excep <==
9	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	1058	1159	
==>sitional//EN"
    "http://www.w3.org/TR/REC-html40/loose.dtd">
<HTML>  
    <HEAD>
        <TITLE>$tit <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412240	412586	
==>MP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413366	413712	
==>MP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414493	414839	
==>MP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415620	415966	
==>MP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416748	417094	
==>MP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417875	418221	
==>MP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419003	419349	
==>MP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420131	420477	
==>MP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082291	1082539	
==>CODE" => 1201,
                  "ARGS" => [
                              "p",
                              "i",
                              "kc"
                            ],
                  "BODY" => "#line 145 \"src/ops/experimental.ops\"\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	312011	312189	
==>(interpreter);\n    {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	67800	67976	
==>(interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	68240	68416	
==>(interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	68681	68857	
==>(interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	69122	69298	
==>(interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	69564	69740	
==>(interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	816302	816478	
==>(interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	816745	816921	
==>(interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	817188	817364	
==>(interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693004	693359	
==>> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694004	694359	
==>> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695004	695359	
==>> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696005	696360	
==>> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697005	697360	
==>> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698006	698361	
==>> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699007	699362	
==>> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1606	1709	
==>> ( ref $pattern
        ? Parrot::Test::PGE::_generate_subrule_pir($target, $pattern)
        : Parrot: <==
9	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2129	2232	
==>> ( ref $pattern
        ? Parrot::Test::PGE::_generate_subrule_pir($target, $pattern)
        : Parrot: <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385294	385386	
==>O_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, P <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386425	386517	
==>O_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, P <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387556	387648	
==>O_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, P <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388688	388780	
==>O_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, P <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389819	389911	
==>O_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, P <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390951	391043	
==>O_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, P <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392083	392175	
==>O_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, P <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393216	393308	
==>O_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, P <==
9	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28763	28852	
==>:RecDescent::Literal;

sub sethashname { $_[0]->{hashname} = '__STRING' . ++$_[1]->{strcou <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279276	279697	
==>[
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 325,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 90 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412969	413078	
==>(INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414096	414205	
==>(INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415223	415332	
==>(INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416351	416460	
==>(INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417478	417587	
==>(INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418606	418715	
==>(INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419734	419843	
==>(INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420863	420972	
==>(INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24451	24560	
==>ode->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($t <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24682	24791	
==>ode->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($t <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25340	25449	
==>ode->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($t <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25693	25802	
==>ode->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($t <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26350	26459	
==>ode->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($t <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26581	26690	
==>ode->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($t <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27240	27349	
==>ode->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($t <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27591	27700	
==>ode->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($t <==
9	/Users/nnunley/parrot/config/gen/core_pmcs.pm	2506	2598	
==>ables[pmc_id]->whoami;
    VTABLE_set_integer_keyed_str(interp, registry, key, pmc_id);
}

vo <==
9	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38412	38538	
==>},
					  
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{"name"} .'})
						if defined $::RD_TRACE;
		') . <==
9	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35244	35366	
==>},
					  
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{"name"} .'})
						if defined $::RD_TRACE;'). <==
9	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34726	34843	
==>},
						  Parse::RecDescent::_tracefirst($text),
						  q{' . $rule->{"name"} .'})
							if defined $::RD_TRACE;'). <==
9	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38137	38254	
==>},
						  Parse::RecDescent::_tracefirst($text),
						  q{' . $rule->{"name"} .'})
							if defined $::RD_TRACE;'). <==
9	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41836	41953	
==>},
						  Parse::RecDescent::_tracefirst($text),
						  q{' . $rule->{"name"} .'})
							if defined $::RD_TRACE;'). <==
9	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42376	42490	
==>},
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{"name"} .'})
						if defined $::RD_TRACE;'). <==
9	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33848	33960	
==>},
				  Parse::RecDescent::_tracefirst($text),
				  q{' . $rule->{"name"} . '})
					if defined $::RD_TRACE;'). <==
9	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37406	37518	
==>},
				  Parse::RecDescent::_tracefirst($text),
				  q{' . $rule->{"name"} . '})
					if defined $::RD_TRACE;'). <==
9	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39809	39921	
==>},
				  Parse::RecDescent::_tracefirst($text),
				  q{' . $rule->{"name"} . '})
					if defined $::RD_TRACE;'). <==
9	/Users/nnunley/parrot/lib/Text/Balanced.pm	48934	49031	
==>r brackets to look for, and a prefix to
match first. It also takes an optional fourth parameter, w <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888257	888628	
==>}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889391	889762	
==>}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890525	890896	
==>}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891660	892031	
==>}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892794	893165	
==>}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893929	894300	
==>}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895064	895435	
==>}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896200	896571	
==>}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
9	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	15483	15593	
==>h @ops, $self->dbprint("Trying alternative $i of 0..$#args\n");
        push @ops, @{ $iops[$i] };
        push <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700230	700581	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701220	701571	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702211	702562	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703202	703553	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704194	704545	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705185	705536	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706177	706528	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	707169	707520	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
9	/Users/nnunley/parrot/lib/Parrot/Test.pm	24544	24659	
==>g{o}";
        $cmd =   "$PConfig{link} $PConfig{linkflags} $PConfig{ld_debug} "
               . "$obj_f $cfg $PCon <==
9	/Users/nnunley/parrot/config/inter/libparrot.pm	940	1031	
==>->data->get('has_dynamic_linking');

    if ($conf->options->get('ask') && $conf->data->ge <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700228	700579	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701218	701569	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702209	702560	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703200	703551	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704192	704543	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705183	705534	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706175	706526	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	707167	707518	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559013	559183	
==>"p",
                              "sc"
                            ],
                  "BODY" => "#line 131 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	395433	395763	
==>0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396512	396842	
==>0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397592	397922	
==>0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398672	399002	
==>0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399753	400083	
==>0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400833	401163	
==>0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401914	402244	
==>0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402995	403325	
==>0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
9	/Users/nnunley/parrot/languages/python/pie-thon.pl	21059	21172	
==>'in'   => 'exists'
	);
	my $res = temp('I');
	my $pres = temp('P');
	$op = $is_map{$c};
	my $isnot = '';
	if ($c e <==
9	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	13514	13639	
==>ms, $arg->[0]
					} else {
						push @return_params, "\$" .
						  optype_of($arg->[0], $arg) .
						  $retcount++;
					} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822239	822336	
==>ack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry-> <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823307	823404	
==>ack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry-> <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824374	824471	
==>ack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry-> <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825445	825542	
==>ack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry-> <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826515	826612	
==>ack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry-> <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827585	827682	
==>ack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry-> <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828654	828751	
==>ack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry-> <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829722	829819	
==>ack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry-> <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1298	1412	
==>ft->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub com <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1289	1403	
==>ft->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub com <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1178	1292	
==>ft->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub com <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1637	1751	
==>ft->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub com <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1773	1887	
==>ft->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub com <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1416	1530	
==>ft->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub com <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22185	22292	
==>ession::Value->new($block, $self->require_value);

        $self->require_close_paren;
      }

      $self- <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23118	23225	
==>ession::Value->new($block, $self->require_value);

        $self->require_close_paren;
      }

      $self- <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24764	24870	
==>ession::Value->new($block, $self->require_value);
        $self->require_close_paren;
      }

      $self- <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964913	965152	
==>ng_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965921	966160	
==>ng_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966929	967168	
==>ng_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967938	968177	
==>ng_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968946	969185	
==>ng_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969955	970194	
==>ng_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970964	971203	
==>ng_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971974	972213	
==>ng_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0 <==
9	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_assignments.pm	236	330	
==>licit conversions into/from STRING
sub ASSIGNMENT_FUNC {
	my($varname)=@_;	# P6 already has the <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462809	462907	
==>({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by z <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463806	463904	
==>({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by z <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464803	464901	
==>({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by z <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474149	474247	
==>({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by z <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475140	475238	
==>({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by z <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476131	476229	
==>({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by z <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483704	483802	
==>({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by z <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484703	484801	
==>({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by z <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485702	485800	
==>({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by z <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459870	459967	
==>xception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460858	460955	
==>xception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461846	461943	
==>xception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471213	471310	
==>xception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472200	472297	
==>xception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473187	473284	
==>xception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474177	474274	
==>xception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475168	475265	
==>xception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476159	476256	
==>xception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2} <==
9	/Users/nnunley/parrot/config/gen/platform.pm	4398	4510	
==>D_HERE';
#include "parrot/parrot.h"

END_HERE

    for (@impls) {
        my $impl_file = "config/gen/platform/ge <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692881	692969	
==>mc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693881	693969	
==>mc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694881	694969	
==>mc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695882	695970	
==>mc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696882	696970	
==>mc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697883	697971	
==>mc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698884	698972	
==>mc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699886	699974	
==>mc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586939	587225	
==>ter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588125	588411	
==>ter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589311	589597	
==>ter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590498	590784	
==>ter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591707	591993	
==>ter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592917	593203	
==>ter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594127	594413	
==>ter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595338	595624	
==>ter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
9	/Users/nnunley/parrot/lib/Test/More.pm	20474	20567	
==>s skipped, but passing, tests.

It's important that $how_many accurately reflects the number o <==
9	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2514	2610	
==>Pod into XML

=head1 SYNOPSIS

  perl -MPod::Simple::XMLOutStream -e \
   "exit Pod::Simple::XMLO <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048211	1048303	
==>\"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049135	1049227	
==>\"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050131	1050223	
==>\"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051165	1051257	
==>\"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052199	1052291	
==>\"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053234	1053326	
==>\"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060013	1060105	
==>\"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060918	1061010	
==>\"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13703	13800	
==>_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the number of line <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29486	29583	
==>_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the number of line <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30128	30225	
==>_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the number of line <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31353	31450	
==>_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the number of line <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32966	33063	
==>_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the number of line <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34654	34751	
==>_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the number of line <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35984	36081	
==>_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the number of line <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37929	38026	
==>_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the number of line <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39973	40070	
==>_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the number of line <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627145	627240	
==>x) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (in <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628289	628384	
==>x) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (in <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632547	632642	
==>x) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (in <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633589	633684	
==>x) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (in <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634646	634741	
==>x) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (in <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635764	635859	
==>x) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (in <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636882	636977	
==>x) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (in <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638001	638096	
==>x) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (in <==
9	/Users/nnunley/parrot/config/gen/config_pm.pm	46	137	
==>.
# $Id: /parrot/config/gen/config_pm.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 N <==
9	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	17398	17520	
==>y %lookup = ( '#' => "_hash",
				  	'!' => "",
					'&' => "_amp",
					'%' => "_percent",
					);
	$name=~s/(%|!|\#|&)$/$ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385228	385319	
==>ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386359	386450	
==>ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387490	387581	
==>ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388622	388713	
==>ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389753	389844	
==>ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390885	390976	
==>ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392017	392108	
==>ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393150	393241	
==>ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888313	888685	
==>" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_co <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889447	889819	
==>" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_co <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890581	890953	
==>" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_co <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891716	892088	
==>" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_co <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892850	893222	
==>" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_co <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893985	894357	
==>" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_co <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895120	895492	
==>" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_co <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896256	896628	
==>" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_co <==
9	/Users/nnunley/parrot/lib/Text/Balanced.pm	11141	11233	
==>ess ($$textref =~ m{\G\$\s*(\d+|[][&`'+*./|,";%=~:?!\@<>()-]|\^[a-z]?)}gci)
	{
	    unless ($ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	373453	373772	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374335	374654	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375218	375537	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376101	376420	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376985	377304	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377868	378187	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378752	379071	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379636	379955	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
9	/Users/nnunley/parrot/lib/Text/Balanced.pm	1010	1116	
==>ay;
	return undef;
}

sub _succeed
{
	$@ = undef;
	my ($wantarray,$textref) = splice @_, 0, 2;
	my ($extrap <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412245	412609	
==>> 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413371	413735	
==>> 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414498	414862	
==>> 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415625	415989	
==>> 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416753	417117	
==>> 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417880	418244	
==>> 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419008	419372	
==>> 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420136	420500	
==>> 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
9	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	39600	39705	
==>y $pir = shift;
	my $mv = shift;

	# Loop over keys to look for automagicals and build up declaration list <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70916	71168	
==>interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71685	71937	
==>interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100425	100677	
==>interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104873	105125	
==>interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	252985	253237	
==>interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450914	451166	
==>interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	513313	513565	
==>interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578415	578667	
==>interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736450	736688	
==>YPE" => "inline",
                  "CODE" => 827,
                  "ARGS" => [
                              "n",
                              "i"
                            ],
                  "BODY" => "#line 144 \"src/ops/set.ops\" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878634	878966	
==>0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879737	880069	
==>0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880841	881173	
==>0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881945	882277	
==>0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883050	883382	
==>0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884155	884487	
==>0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885261	885593	
==>0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886367	886699	
==>0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
9	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	434	536	
==>us versions were
based on ast2past and versions before that on pie-thon.

=cut

sub new {
    return bl <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888269	888642	
==>);\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subs <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889403	889776	
==>);\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subs <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890537	890910	
==>);\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subs <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891672	892045	
==>);\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subs <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892806	893179	
==>);\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subs <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893941	894314	
==>);\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subs <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895076	895449	
==>);\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subs <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896212	896585	
==>);\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subs <==
9	/Users/nnunley/parrot/lib/Pod/Simple.pm	8975	9070	
==>@@@@@@@@@@@@@@@@@@@@@@@@@
#
# And now codes (not targets or directives)

sub accept_code { shift <==
9	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	6042	6145	
==>xt or _contains($next,@expected) )
		{
			push @expected, $next;
		}
	}

	return $self->{"expected"} = j <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	131	222	
==>nse
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expressi <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	125	216	
==>nse
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expressi <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	126	217	
==>nse
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expressi <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	127	218	
==>nse
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expressi <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	127	218	
==>nse
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expressi <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	126	217	
==>nse
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expressi <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	131	222	
==>nse
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expressi <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	128	219	
==>nse
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expressi <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550400	550511	
==>\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551701	551812	
==>\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552892	553003	
==>\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554253	554364	
==>\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555650	555761	
==>\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556887	556998	
==>\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558305	558416	
==>\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559689	559800	
==>\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560910	561021	
==>\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS <==
9	/Users/nnunley/parrot/lib/Class/Struct.pm	7140	7252	
==>T_TYPE, ... ]);
            # declare struct, based on hash:
    struct( CLASS_NAME => { ELEMENT_NAME => ELEMENT_ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897146	897234	
==>DY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898164	898252	
==>DY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899182	899270	
==>DY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900201	900289	
==>DY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901219	901307	
==>DY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902238	902326	
==>DY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903257	903345	
==>DY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904277	904365	
==>DY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{ <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5339	5448	
==>ops{$prop} = $value;
      }

      $self->require_open_brace;

      my $module = Jako::Construct::Block::Mod <==
9	/Users/nnunley/parrot/lib/Parrot/Config.pm	3782	3912	
==>lsize' => '16',
             'hugeintval' => 'long long',
             'hugeintvalsize' => 8,
             'i_arpainet' => 'define' <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964963	965302	
==>});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_c <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965971	966310	
==>});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_c <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966979	967318	
==>});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_c <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967988	968327	
==>});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_c <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968996	969335	
==>});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_c <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970005	970344	
==>});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_c <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971014	971353	
==>});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_c <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906085	906366	
==>021,
                  "ARGS" => [
                              "s",
                              "p",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 262 \"src/ops/string.ops\"\n  {{\@1}} = { <==
9	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	55898	55999	
==>~ s/\A\s*<token:(.*)>\Z/$1/s;

				my $types = eval 'no strict; local $SIG{__WARN__} = sub {0}; my @ar <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94990	95292	
==>(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95883	96185	
==>(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96776	97078	
==>(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111312	111614	
==>(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112204	112506	
==>(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113096	113398	
==>(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135521	135823	
==>(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136415	136717	
==>(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137309	137611	
==>(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913013	913188	
==>tring_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914024	914199	
==>tring_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915035	915210	
==>tring_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916047	916222	
==>tring_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917058	917233	
==>tring_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918070	918245	
==>tring_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919082	919257	
==>tring_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920095	920270	
==>tring_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0, <==
9	/Users/nnunley/parrot/lib/Test/Simple.pm	2370	2465	
==>at lets Test::Harness know how many tests you plan on running in
case something goes horribly wr <==
9	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28141	28264	
==>'result' => $l_break,
    );
    push @opcodes, new BranchOp( $parser,
        'result' => $l_continue,
    );
    push <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385319	385415	
==>{{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bi <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386450	386546	
==>{{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bi <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387581	387677	
==>{{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bi <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388713	388809	
==>{{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bi <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389844	389940	
==>{{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bi <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390976	391072	
==>{{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bi <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392108	392204	
==>{{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bi <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393241	393337	
==>{{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bi <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949908	950235	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950867	951194	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951827	952154	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952787	953114	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18956	19046	
==>f->_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self->_add_inst("DON <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19444	19534	
==>f->_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self->_add_inst("DON <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19932	20022	
==>f->_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self->_add_inst("DON <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20421	20511	
==>f->_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self->_add_inst("DON <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20910	21000	
==>f->_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self->_add_inst("DON <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13670	13770	
==>=item C<body($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29453	29553	
==>=item C<body($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30095	30195	
==>=item C<body($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31320	31420	
==>=item C<body($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32933	33033	
==>=item C<body($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34621	34721	
==>=item C<body($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35951	36051	
==>=item C<body($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37896	37996	
==>=item C<body($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39940	40040	
==>=item C<body($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039454	1039783	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "AR <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040346	1040675	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "AR <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041238	1041567	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "AR <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042131	1042460	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "AR <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043027	1043356	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "AR <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043924	1044253	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "AR <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044817	1045146	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "AR <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045711	1046040	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "AR <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046605	1046934	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "AR <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385383	385678	
==>L, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386514	386809	
==>L, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387645	387940	
==>L, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388777	389072	
==>L, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389908	390203	
==>L, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391040	391335	
==>L, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392172	392467	
==>L, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393305	393600	
==>L, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
9	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23353	23447	
==>ibe { $_[1] ? '' : $_[0]->{name} }
sub sethashname { $_[0]->{hashname} = '__DIRECTIVE' . ++$_[1 <==
9	/Users/nnunley/parrot/lib/Text/Balanced.pm	868	968	
==>";
}

sub _fail
{
	my ($wantarray, $textref, $message, $pos) = @_;
	_failmsg $message, $pos if $messa <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879239	879335	
==>line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_h <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880343	880439	
==>line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_h <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881447	881543	
==>line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_h <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882552	882648	
==>line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_h <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883657	883753	
==>line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_h <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884763	884859	
==>line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_h <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885869	885965	
==>line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_h <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886976	887072	
==>line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_h <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047694	1047892	
==>ess( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048617	1048815	
==>ess( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049541	1049739	
==>ess( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050574	1050772	
==>ess( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051608	1051806	
==>ess( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052642	1052840	
==>ess( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053677	1053875	
==>ess( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054803	1055001	
==>ess( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
9	/Users/nnunley/parrot/languages/python/pie-thon.pl	443	538	
==>ace, %may_be_none);
$DIS = 'python mydis.py';
$DEFVAR = 'PerlInt';

getopts('dnD', \%opt);
$file <==
9	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1384	1494	
==>return 0;
}

sub generate_regular_pir {
    my ($filename, $pattern) = @_;
    my $PIR;
    open($PIR, '>', $fi <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822167	822251	
==>entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}}) <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823235	823319	
==>entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}}) <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824302	824386	
==>entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}}) <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825373	825457	
==>entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}}) <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826443	826527	
==>entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}}) <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827513	827597	
==>entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}}) <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828582	828666	
==>entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}}) <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829650	829734	
==>entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}}) <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896582	896911	
==>substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897599	897928	
==>substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898617	898946	
==>substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899635	899964	
==>substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900654	900983	
==>substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901672	902001	
==>substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902691	903020	
==>substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903710	904039	
==>substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
9	/Users/nnunley/parrot/lib/Pod/Simple.pm	10169	10276	
==>" in the treelet simply turns
    #  into "W".
  }
  
  return;
}

#---------------------------------------- <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213290	213573	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214231	214514	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215171	215454	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216112	216395	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217051	217334	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217991	218274	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218969	219252	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219948	220231	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	220896	221179	
==>ABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt <==
9	/Users/nnunley/parrot/lib/Class/Struct.pm	14964	15110	
==>oseconds
    });

    struct( timeval => [
        tv_secs  => '$',
        tv_usecs => '$',
    ]);

        # create an object:
    my $t = new r <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692849	692937	
==>"BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693849	693937	
==>"BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694849	694937	
==>"BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695850	695938	
==>"BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696850	696938	
==>"BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697851	697939	
==>"BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698852	698940	
==>"BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699854	699942	
==>"BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039424	1039750	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FL <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040316	1040642	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FL <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041208	1041534	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FL <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042101	1042427	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FL <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042997	1043323	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FL <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043894	1044220	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FL <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044787	1045113	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FL <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045681	1046007	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FL <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046575	1046901	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FL <==
9	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15147	15253	
==>pr,
		);
	}

	return @ass;
}
sub EXPRESSION {
	my(%opts);
	%opts=%{$_[0]} if @_;
	my(@expr, @stream, @left, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822203	822294	
==>, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception( <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823271	823362	
==>, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception( <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824338	824429	
==>, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception( <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825409	825500	
==>, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception( <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826479	826570	
==>, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception( <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827549	827640	
==>, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception( <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828618	828709	
==>, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception( <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829686	829777	
==>, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception( <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539774	540017	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541025	541268	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542277	542520	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066316	1066559	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067501	1067744	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068687	1068930	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069873	1070116	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
9	/Users/nnunley/parrot/examples/benchmarks/stress.pl	160	254	
==>nchmarks/stress.pl - GC stress-testing

=head1 SYNOPSIS

    % time perl examples/benchmarks/st <==
9	/Users/nnunley/parrot/config/auto/gc.pm	455	547	
==>library C<malloc>.

=item C<malloc>

Use the malloc in F<src/res_lea.c>.

=item C<malloc-trac <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459799	459902	
==>ps/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_Zer <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460787	460890	
==>ps/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_Zer <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461775	461878	
==>ps/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_Zer <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471142	471245	
==>ps/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_Zer <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472129	472232	
==>ps/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_Zer <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473116	473219	
==>ps/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_Zer <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480649	480752	
==>ps/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_Zer <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481652	481755	
==>ps/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_Zer <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482655	482758	
==>ps/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_Zer <==
9	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3076	3175	
==>) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth] <==
9	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4834	4933	
==>) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth] <==
9	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1998	2097	
==>) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth] <==
9	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3250	3349	
==>) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth] <==
9	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7762	7860	
==>) {
		$pir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth] <==
9	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8618	8716	
==>) {
		$pir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth] <==
9	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5880	5978	
==>) {
		$pir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth] <==
9	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6438	6536	
==>) {
		$pir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth] <==
9	/Users/nnunley/parrot/lib/Pod/Escapes.pm	303	399	
==>ar_to_fallback
  e2char
  e2charnum
);
%EXPORT_TAGS = ('ALL' => \@EXPORT_OK);

#================= <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462785	462885	
==>AL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463782	463882	
==>AL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464779	464879	
==>AL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474125	474225	
==>AL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475116	475216	
==>AL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476107	476207	
==>AL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483680	483780	
==>AL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484679	484779	
==>AL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485678	485778	
==>AL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\ <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	35943	36056	
==>p_imag_part,
  'magnitude'        => \&_op_magnitude,
  'angle'            => \&_op_angle,
  'exact->inexact'   => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627143	627238	
==>max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", ( <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628287	628382	
==>max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", ( <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632545	632640	
==>max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", ( <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633587	633682	
==>max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", ( <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634644	634739	
==>max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", ( <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635762	635857	
==>max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", ( <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636880	636975	
==>max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", ( <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637999	638094	
==>max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", ( <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693076	693364	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDI <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694076	694364	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDI <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695076	695364	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDI <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696077	696365	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDI <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697077	697365	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDI <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698078	698366	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDI <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699079	699367	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDI <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	622054	622141	
==>plain opcode */\n    ((void**)cur_opcode)[0] =\n\tparrot_pic_opcode(interpreter, PARROT_ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623907	623994	
==>plain opcode */\n    ((void**)cur_opcode)[0] =\n\tparrot_pic_opcode(interpreter, PARROT_ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459792	459888	
==>\"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interprete <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460780	460876	
==>\"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interprete <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461768	461864	
==>\"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interprete <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471135	471231	
==>\"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interprete <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472122	472218	
==>\"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interprete <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473109	473205	
==>\"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interprete <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480642	480738	
==>\"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interprete <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481645	481741	
==>\"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interprete <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482648	482744	
==>\"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interprete <==
9	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	487	590	
==>arset /);

#
# charset tables to create
#
my %table = (
    "en_US.iso88591" => "Parrot_iso_8859_1_typet <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13687	13787	
==>hod, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the n <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29470	29570	
==>hod, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the n <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30112	30212	
==>hod, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the n <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31337	31437	
==>hod, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the n <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32950	33050	
==>hod, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the n <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34638	34738	
==>hod, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the n <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35968	36068	
==>hod, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the n <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37913	38013	
==>hod, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the n <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39957	40057	
==>hod, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulate
the n <==
9	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2587	2698	
==>{$$self{NBERR}};
}

sub YYRecovering {
	my($self)=shift;

	${$$self{ERRST}} != 0;
}

sub YYAbort {
	my <==
9	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2475	2576	
==>{$$self{NBERR}};
}

sub YYRecovering {
	my($self)=shift;

	${$$self{ERRST}} != 0;
}

sub YYAbort {
	my <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31813	31911	
==>as_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_name);
    } <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33390	33488	
==>as_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_name);
    } <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35101	35199	
==>as_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_name);
    } <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36404	36502	
==>as_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_name);
    } <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38351	38449	
==>as_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_name);
    } <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40447	40545	
==>as_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_name);
    } <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29770	29860	
==>as_method}{$meth};
    return $self->SUPER::body($self->{methods}[$n], $line, $out_name);
} <==
9	/Users/nnunley/parrot/lib/Pod/Simple.pm	2142	2263	
==>able.
                       # Used only in some derived classes.

  'hide_line_numbers', # For some dumping subclasses: w <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879246	879344	
==>4 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(int <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880350	880448	
==>4 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(int <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881454	881552	
==>4 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(int <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882559	882657	
==>4 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(int <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883664	883762	
==>4 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(int <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884770	884868	
==>4 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(int <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885876	885974	
==>4 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(int <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886983	887081	
==>4 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(int <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991020	991156	
==>i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclas <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992157	992293	
==>i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclas <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993294	993430	
==>i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclas <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994432	994568	
==>i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclas <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995569	995705	
==>i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclas <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996707	996843	
==>i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclas <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997845	997981	
==>i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclas <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	998984	999120	
==>i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclas <==
9	/Users/nnunley/parrot/config/gen/cpu.pm	109	206	
==>0975Z coke  $

=head1 NAME

config/gen/cpu.pm - CPU specific Files

=head1 DESCRIPTION

Runs C<&ru <==
9	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	20683	20786	
==>"ignore contents of this region\n";
      DEBUG > 1 and $dont_ignore and print " Making note to treat co <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	246726	246866	
==>d_dispatch_i_pp(interpreter, {{\@2}}, {{\@3}}, MMD_NUMCMP);\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385414	385758	
==>bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386545	386889	
==>bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387676	388020	
==>bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388808	389152	
==>bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389939	390283	
==>bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391071	391415	
==>bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392203	392547	
==>bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393336	393680	
==>bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
9	/Users/nnunley/parrot/lib/Class/Struct.pm	7356	7460	
==>ray, implicit class name:
    struct( ELEMENT_NAME => ELEMENT_TYPE, ... );

    # Declare struct at compi <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897194	897301	
==>d)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898212	898319	
==>d)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899230	899337	
==>d)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900249	900356	
==>d)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901267	901374	
==>d)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902286	902393	
==>d)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903305	903412	
==>d)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904325	904432	
==>d)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  " <==
9	/Users/nnunley/parrot/tools/dev/run_indent.pl	2942	3044	
==>ys %$typedefs) . " typedefs.\n";
    my $cmd = "indent -kr -nce -sc -cp0 -l79 -lc79 -psl -nut -cdw -ncs <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879420	879760	
==>@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880524	880864	
==>@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881628	881968	
==>@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882733	883073	
==>@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883838	884178	
==>@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884944	885284	
==>@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886050	886390	
==>@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887157	887497	
==>@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
9	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Examples.pm	508	604	
==>arrot::Docs::Item;
use Parrot::Docs::Group;

=item C<new()>

Returns a new section.

=cut

sub ne <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871178	871477	
==>{{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872195	872494	
==>{{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873212	873511	
==>{{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874230	874529	
==>{{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875247	875546	
==>{{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876265	876564	
==>{{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877283	877582	
==>{{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878302	878601	
==>{{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
9	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	660	760	
==>e();
$rules_file = shift @ARGV;
usage() if !$rules_file || @ARGV;

# Attempt to laod stack to registe <==
9	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2313	2426	
==>undef, $desc, $todo, "eval was fatal: $!", :$depends);
    }
    else {
        #diag "'$desc' was non-fatal and m <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888173	888261	
==>ring.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, & <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889307	889395	
==>ring.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, & <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890441	890529	
==>ring.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, & <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891576	891664	
==>ring.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, & <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892710	892798	
==>ring.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, & <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893845	893933	
==>ring.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, & <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	894980	895068	
==>ring.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, & <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896116	896204	
==>ring.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, & <==
9	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	10715	10824	
==>_stack> = <rx_match>{'!STACK'};
#     }
# END
        @ops = ("sub _rule_$name {", 'my ($rx_mode, $rx_input, $ <==
9	/Users/nnunley/parrot/config/init/optimize.pm	94	185	
==>006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/init/optimize.pm - Optimization

=he <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461623	461826	
==>"i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 282 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897156	897242	
==>ine 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898174	898260	
==>ine 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899192	899278	
==>ine 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900211	900297	
==>ine 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901229	901315	
==>ine 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902248	902334	
==>ine 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903267	903353	
==>ine 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904287	904373	
==>ine 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908744	909060	
==>{
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909640	909956	
==>{
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910537	910853	
==>{
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911434	911750	
==>{
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18465	18558	
==>f->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_generate($node->{childr <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19178	19271	
==>f->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_generate($node->{childr <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19666	19759	
==>f->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_generate($node->{childr <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20155	20248	
==>f->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_generate($node->{childr <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20644	20737	
==>f->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_generate($node->{childr <==
9	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21983	22090	
==>' Default case fallthrough
t=3
select case t
	case 1
		print "One"
	case 2
		print "Two"
	case 3
		print "Co <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24424	24525	
==>eturn = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_sa <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24655	24756	
==>eturn = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_sa <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25313	25414	
==>eturn = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_sa <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25666	25767	
==>eturn = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_sa <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26323	26424	
==>eturn = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_sa <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26554	26655	
==>eturn = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_sa <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27213	27314	
==>eturn = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_sa <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27564	27665	
==>eturn = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_sa <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871135	871244	
==>@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872152	872261	
==>@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873169	873278	
==>@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874187	874296	
==>@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875204	875313	
==>@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876222	876331	
==>@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877240	877349	
==>@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878259	878368	
==>@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  " <==
9	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	34	130	
==>rnings;
use POSIX qw(locale_h);
use locale;
use File::Spec;


=head1 NAME

tools/dev/gen_charset_ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	270887	271139	
==>E" => 315,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 871 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964874	964960	
==>s/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965882	965968	
==>s/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966890	966976	
==>s/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967899	967985	
==>s/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968907	968993	
==>s/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969916	970002	
==>s/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970925	971011	
==>s/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971935	972021	
==>s/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@ <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24448	24556	
==>($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24679	24787	
==>($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25337	25445	
==>($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25690	25798	
==>($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26347	26455	
==>($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26578	26686	
==>($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27237	27345	
==>($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27588	27696	
==>($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	718	813	
==>dent;
  $compiler->emit("__INLINE_0()");
  $compiler->emit("end");
  $compiler->outdent;
  $comp <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912328	912660	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913338	913670	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914349	914681	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915360	915692	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916372	916704	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917383	917715	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918395	918727	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919407	919739	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
9	/Users/nnunley/parrot/config/auto/python.pm	1040	1151	
==>) ? 1 : 0;
        $self->set_result("yes, $major.$minor.$revision");
    } else {
        $self->set_result('no <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540892	541181	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "A <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542144	542433	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "A <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067368	1067657	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "A <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068554	1068843	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "A <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069740	1070029	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "A <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070927	1071216	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "A <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073111	1073400	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "A <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075296	1075585	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "A <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077481	1077770	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "A <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	395372	395545	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396451	396624	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397531	397704	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398611	398784	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399692	399865	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400772	400945	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401853	402026	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402934	403107	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS <==
9	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	3563	3657	
==>rom, $to, $ignorePattern)>

Moves the file specified by C<$from> to the location specified by C <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878600	878900	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879703	880003	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880807	881107	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881911	882211	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883016	883316	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884121	884421	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885227	885527	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886333	886633	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 " <==
9	/Users/nnunley/parrot/lib/Text/Balanced.pm	34310	34403	
==>acket I<within> the substring is also matched by an opposite
(right or left) delimiter bracket <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878551	878742	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGD <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879654	879845	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGD <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880758	880949	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGD <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881862	882053	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGD <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882967	883158	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGD <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884072	884263	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGD <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885178	885369	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGD <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886284	886475	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGD <==
9	/Users/nnunley/parrot/lib/File/Which.pm	208	313	
==>ile::Spec;

my $Is_VMS    = ($^O eq 'VMS');
my $Is_MacOS  = ($^O eq 'MacOS');
my $Is_DOSish = (($^O eq 'MS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897261	897600	
==>ULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "su <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898279	898618	
==>ULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "su <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899297	899636	
==>ULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "su <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900316	900655	
==>ULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "su <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901334	901673	
==>ULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "su <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902353	902692	
==>ULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "su <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903372	903711	
==>ULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "su <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904392	904731	
==>ULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "su <==
9	/Users/nnunley/parrot/languages/dotnet/Configure.pl	1776	1869	
==>"< config/Makefile.in" or die "Unable to open config/Makefile.in\n";
	my $makefile = join('', <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459833	459928	
==>3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460821	460916	
==>3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461809	461904	
==>3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471176	471271	
==>3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472163	472258	
==>3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473150	473245	
==>3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480683	480778	
==>3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481686	481781	
==>3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482689	482784	
==>3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \ <==
9	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	3600	3691	
==>[_\.][ch]\.in$/;
    return &describe_perl_file($info,$text)
	if $path =~ /\.(pl|pm|t|PL|pod <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550412	550586	
==>opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551713	551887	
==>opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552904	553078	
==>opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554265	554439	
==>opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555662	555836	
==>opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556899	557073	
==>opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558317	558491	
==>opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559701	559875	
==>opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560922	561096	
==>opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426221	426526	
==>@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427108	427413	
==>@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427994	428299	
==>@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428881	429186	
==>@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429767	430072	
==>@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430654	430959	
==>@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431540	431845	
==>@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
9	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	39481	39607	
==>i]) { # just for aliasing
            while( $line =~
              # Sort of adapted from Text::Tabs -- yes, it's hardwired in <==
9	/Users/nnunley/parrot/config/inter/ops.pm	1182	1307	
==>opcode files would you like?', $ops);

            if ($ops !~ m{\bcore\.ops}) {
                print "core.ops must be the f <==
9	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	44084	44189	
==>c
	       to be part of.");
}

my $NEGLOOKAHEAD	= '\G(\s*\.\.\.\!)';
my $POSLOOKAHEAD	= '\G(\s*\.\.\.)';
m <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	129	220	
==>cense
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expres <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	123	214	
==>cense
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expres <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	124	215	
==>cense
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expres <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	125	216	
==>cense
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expres <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	125	216	
==>cense
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expres <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	124	215	
==>cense
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expres <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	129	220	
==>cense
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expres <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	126	217	
==>cense
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expres <==
9	/Users/nnunley/parrot/lib/Test/Builder.pm	14637	14732	
==>t recognised.

For example, a version of like(), sans the useful diagnostic messages,
could be w <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878368	878706	
==>"LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879471	879809	
==>"LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880575	880913	
==>"LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881679	882017	
==>"LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882784	883122	
==>"LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883889	884227	
==>"LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884995	885333	
==>"LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886101	886439	
==>"LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => " <==
9	/Users/nnunley/parrot/editor/kate_syntax.pl	3373	3480	
==>pod" String="^\\=($pod_start_rx).*" />
          <HlCOct attribute="Octal" context="#stay" />
          <HlC <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879412	879731	
==>3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880516	880835	
==>3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881620	881939	
==>3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882725	883044	
==>3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883830	884149	
==>3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884936	885255	
==>3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886042	886361	
==>3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887149	887468	
==>3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1321	1420	
==>fess "No Compiler!" unless defined $compiler;

  my $type = $self->type;

#  $self->DEBUG(0, "Compil <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539791	540089	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541042	541340	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542294	542592	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066333	1066631	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067518	1067816	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068704	1069002	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069890	1070188	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
9	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	4510	4613	
==>eption thrown", :$depends);
    }
}

## lives ok

sub lives_ok (Code &code, Str $desc?, :$todo, :$depend <==
9	/Users/nnunley/parrot/lib/Text/Balanced.pm	44523	44621	
==>atch or substitution or the target list of a
translation),

=item [6]

the right delimiter of the f <==
9	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17580	17722	
==>ara->[$i] =~ s/^\s*(\S+)\s*//s) {
          $target = $1;
          last;
        }
      }
      unless(defined $target) {
        $self->whin <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822148	822234	
==>ck_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->use <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823216	823302	
==>ck_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->use <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824283	824369	
==>ck_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->use <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825354	825440	
==>ck_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->use <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826424	826510	
==>ck_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->use <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827494	827580	
==>ck_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->use <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828563	828649	
==>ck_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->use <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829631	829717	
==>ck_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->use <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321614	321888	
==>ter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323970	324244	
==>ter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	329428	329702	
==>ter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	330906	331180	
==>ter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	751297	751571	
==>ter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945498	945772	
==>ter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946308	946582	
==>ter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955942	956216	
==>ter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956754	957028	
==>ter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878624	878936	
==>"JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879727	880039	
==>"JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880831	881143	
==>"JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881935	882247	
==>"JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883040	883352	
==>"JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884145	884457	
==>"JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885251	885563	
==>"JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886357	886669	
==>"JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
9	/Users/nnunley/parrot/lib/Parrot/Test.pm	2405	2497	
==>on of the output with the unexpected result is false.

=item C<past_output_is($code, $expecte <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396218	396573	
==>=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FL <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397298	397653	
==>=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FL <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398378	398733	
==>=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FL <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399459	399814	
==>=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FL <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400539	400894	
==>=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FL <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401620	401975	
==>=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FL <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402701	403056	
==>=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FL <==
9	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	852	943	
==>erns should be specified as strings
and without leading/trailing pattern delimiters.

(Hint: <==
9	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2950	3041	
==>erns should be specified as strings
and without leading/trailing pattern delimiters.

(Hint: <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385389	385683	
==>_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386520	386814	
==>_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387651	387945	
==>_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388783	389077	
==>_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389914	390208	
==>_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391046	391340	
==>_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392178	392472	
==>_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393311	393605	
==>_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
9	/Users/nnunley/parrot/config/auto/cgoto.pm	912	1045	
==>_build(); 1; } || 0;
        cc_clean();
    }

    if ($test) {
        $conf->data->set(
            TEMP_cg_h => '$(INC_DIR)/oplib/ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	331825	332121	
==>open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333102	333398	
==>open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334380	334676	
==>open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335658	335954	
==>open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343636	343932	
==>open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344877	345173	
==>open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346119	346415	
==>open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347361	347657	
==>open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
9	/Users/nnunley/parrot/lib/Test/Simple.pm	119	225	
==>N;    # make the alpha version come out as a number


use Test::Builder;
my $Test = Test::Builder->new;

su <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586936	587221	
==>preter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588122	588407	
==>preter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589308	589593	
==>preter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590495	590780	
==>preter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591704	591989	
==>preter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592914	593199	
==>preter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594124	594409	
==>preter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595335	595620	
==>preter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	69923	70131	
==>function",
                  "CODE" => 93,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 1094 \"src/ops/core.ops\"\n   PObj_n <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385418	385761	
==>\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386549	386892	
==>\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387680	388023	
==>\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388812	389155	
==>\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389943	390286	
==>\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391075	391418	
==>\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392207	392550	
==>\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393340	393683	
==>\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
9	/Users/nnunley/parrot/config/auto/cgoto.pm	2043	2160	
==>_cg.c \
                    $(INC_DIR)/oplib/core_ops_cgp.h $(OPS_DIR)/core_ops_cgp.c',
            cg_flag => '-DHAVE <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878341	878696	
==>5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "F <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879444	879799	
==>5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "F <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880548	880903	
==>5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "F <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881652	882007	
==>5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "F <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882757	883112	
==>5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "F <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883862	884217	
==>5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "F <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884968	885323	
==>5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "F <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886074	886429	
==>5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "F <==
9	/Users/nnunley/parrot/lib/Test/Builder.pm	14156	14247	
==>egex_ok($this, $regex, '!~', $name);
}

=item B<maybe_regex>

  $Test->maybe_regex(qr/$regex <==
9	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	1613	1716	
==>}_main()
		#ret
	#.end
#INIT
	my($edit,@saves);
	#print CODE "\t.sub ${seg}_main\n\t\tsaveall\n";

	# If <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888162	888248	
==>"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889296	889382	
==>"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890430	890516	
==>"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891565	891651	
==>"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892699	892785	
==>"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893834	893920	
==>"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	894969	895055	
==>"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896105	896191	
==>"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
9	/Users/nnunley/parrot/config/inter/lex.pm	299	397	
==>lex;

use strict;

use vars qw( $description @args $prompt $util );

use base qw(Parrot::Configure: <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11105	11237	
==>Construct::Statement::Decrement->new($block, $ident);
      }

      next;
    }

    #
    # Arithmetic assigns:
    #
    #   <var> <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887444	887778	
==>{
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888577	888911	
==>{
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889711	890045	
==>{
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890845	891179	
==>{
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891980	892314	
==>{
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893114	893448	
==>{
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	894249	894583	
==>{
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895384	895718	
==>{
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i <==
9	/Users/nnunley/parrot/lib/Text/Balanced.pm	21459	21550	
==>tract_multiple (;$$$$)	# ($text, $functions_ref, $max_fields, $ignoreunknown)
{
	my $textref <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213294	213596	
==>S" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "F <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214235	214537	
==>S" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "F <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215175	215477	
==>S" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "F <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216116	216418	
==>S" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "F <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217055	217357	
==>S" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "F <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217995	218297	
==>S" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "F <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218973	219275	
==>S" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "F <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	481	583	
==>left, $op, $right) = @_;

  confess "Block is not defined!" unless defined $block;
  confess "Left is n <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	493	595	
==>left, $op, $right) = @_;

  confess "Block is not defined!" unless defined $block;
  confess "Left is n <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902813	903262	
==>,
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1018,
                  "ARGS" => [
                              "s",
                              "i",
                              "ic",
                              "sc"
                            ],
                  "BODY" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692289	692619	
==>=> "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693288	693618	
==>=> "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694288	694618	
==>=> "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695288	695618	
==>=> "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696289	696619	
==>=> "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697289	697619	
==>=> "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698290	698620	
==>=> "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699291	699621	
==>=> "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
9	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	5548	5659	
==>+'}\s*)+)/
	  if !$first_comment;

    return $info if !$first_comment;

    local $_ = $first_comment;

    s/^ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459821	459915	
==>L den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionErro <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460809	460903	
==>L den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionErro <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461797	461891	
==>L den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionErro <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471164	471258	
==>L den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionErro <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472151	472245	
==>L den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionErro <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473138	473232	
==>L den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionErro <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480671	480765	
==>L den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionErro <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481674	481768	
==>L den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionErro <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482677	482771	
==>L den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionErro <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	7008	7124	
==>le '$file' for reading.\n"
    unless $fh;

  my @lines = <$fh>;

  return @lines;
}


#
# scan_file()
#

sub scan_fi <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913002	913111	
==>{{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABEL <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914013	914122	
==>{{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABEL <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915024	915133	
==>{{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABEL <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916036	916145	
==>{{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABEL <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917047	917156	
==>{{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABEL <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918059	918168	
==>{{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABEL <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919071	919180	
==>{{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABEL <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920084	920193	
==>{{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABEL <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964260	964611	
==>0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965267	965618	
==>0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966275	966626	
==>0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967283	967634	
==>0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968292	968643	
==>0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969300	969651	
==>0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970309	970660	
==>0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971318	971669	
==>0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
9	/Users/nnunley/parrot/tools/dev/parrot_api.pl	276	372	
==>head1 DESCRIPTION

Displays the API (the visible symbols, code or data) of the Parrot lib.

First <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13726	13827	
==>code for the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29509	29610	
==>code for the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30151	30252	
==>code for the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31376	31477	
==>code for the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32989	33090	
==>code for the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34677	34778	
==>code for the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36007	36108	
==>code for the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37952	38053	
==>code for the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39996	40097	
==>code for the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name <==
9	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	12146	12255	
==>t any branch coverage lines.
    do_filter(sub { /^branch/ } );

    print OUT "</pre>";
    print OUT page_fo <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572950	573036	
==>= pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, nam <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573860	573946	
==>= pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, nam <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576455	576541	
==>= pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, nam <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577467	577553	
==>= pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, nam <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579555	579641	
==>= pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, nam <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580860	580946	
==>= pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, nam <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582165	582251	
==>= pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, nam <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583471	583557	
==>= pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, nam <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385411	385735	
==>(64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386542	386866	
==>(64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387673	387997	
==>(64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388805	389129	
==>(64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389936	390260	
==>(64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391068	391392	
==>(64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392200	392524	
==>(64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393333	393657	
==>(64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
9	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11341	11459	
==>ork right
        #  under non-ASCII charsets.  Something should be done about that.
    }
    
    # Pod::Simple::HTML <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	821651	821914	
==>,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822718	822981	
==>,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823786	824049	
==>,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824856	825119	
==>,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825927	826190	
==>,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826996	827259	
==>,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828066	828329	
==>,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829133	829396	
==>,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function <==
9	/Users/nnunley/parrot/tools/build/jit2c.pl	5360	5464	
==>(jit_info->objfile, NULL, RTYPE_DATA, "const_table", 0);/g;
                $asm =~ s/jit_emit_end/exec_e <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439611	439929	
==>{{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440626	440944	
==>{{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441640	441958	
==>{{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442655	442973	
==>{{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443669	443987	
==>{{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444684	445002	
==>{{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	445698	446016	
==>{{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
9	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2992	3109	
==>ode[%ld]",

    'i'  => "IREG(%ld)",
    'n'  => "NREG(%ld)",
    'p'  => "PREG(%ld)",
    's'  => "SREG(%ld)",
    'k <==
9	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1911	2022	
==>ode[%ld]",

  'i'   => "IREG(%ld)",
  'n'   => "NREG(%ld)",
  'p'   => "PREG(%ld)",
  's'   => "SREG(%ld)",
  'k <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	675555	675840	
==>" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676334	676619	
==>" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677114	677399	
==>" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677891	678176	
==>" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678669	678954	
==>" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679447	679732	
==>" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680226	680511	
==>" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240090	240199	
==>],
                  "BODY" => "#line 616 \"src/ops/cmp.ops\"\n  INTVAL l = VTABLE_get_integer(interpreter, {{ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241038	241147	
==>],
                  "BODY" => "#line 616 \"src/ops/cmp.ops\"\n  INTVAL l = VTABLE_get_integer(interpreter, {{ <==
9	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	820	927	
==>e "Could not open VERSION file!";
    $parrot_version = <$VERSION>;
    close $VERSION;

    chomp $parrot_v <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822127	822215	
==>ps/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(int <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823195	823283	
==>ps/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(int <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824262	824350	
==>ps/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(int <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825333	825421	
==>ps/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(int <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826403	826491	
==>ps/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(int <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827473	827561	
==>ps/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(int <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828542	828630	
==>ps/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(int <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829610	829698	
==>ps/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(int <==
9	/Users/nnunley/parrot/lib/Parrot/Op.pm	5697	5807	
==>return value. See the note on op types above.

=cut

sub full_body
{
    my $self = shift;
    my $body = $self <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888171	888258	
==>string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889305	889392	
==>string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890439	890526	
==>string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891574	891661	
==>string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892708	892795	
==>string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893843	893930	
==>string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	894978	895065	
==>string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896114	896201	
==>string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62907	63201	
==>"ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 82,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 964 \"src <==
9	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	14662	14791	
==>ll smoke report">View full smoke report</a>
            </td>
          </tr>
        </tmpl_loop>
      </tmpl_loop>
    </tmpl_l <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822163	822248	
==>nst entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823231	823316	
==>nst entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824298	824383	
==>nst entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825369	825454	
==>nst entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826439	826524	
==>nst entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827509	827594	
==>nst entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828578	828663	
==>nst entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829646	829731	
==>nst entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396184	396503	
==>er, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397264	397583	
==>er, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398344	398663	
==>er, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399425	399744	
==>er, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400505	400824	
==>er, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401586	401905	
==>er, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402667	402986	
==>er, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403749	404068	
==>er, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
9	/Users/nnunley/parrot/lib/Pod/Escapes.pm	1925	2039	
==>:
  if($in =~ m/^\d+$/s) {
    if($] < 5.007  and  $in > 255) { # can't be trusted with Unicode
      return $FAR_C <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199887	200091	
==>n",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 373 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047681	1047854	
==>,
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048604	1048777	
==>,
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049528	1049701	
==>,
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050561	1050734	
==>,
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051595	1051768	
==>,
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052629	1052802	
==>,
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053664	1053837	
==>,
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054790	1054963	
==>,
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752102	752403	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752881	753182	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753668	753969	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754456	754757	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755242	755543	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756029	756330	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756818	757119	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757608	757909	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758380	758681	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core", <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	503	622	
==>ray', 'write_ARRAY'],
  ['',             'print', 'P5'],
  ['',             'branch', 'write_RET'],
  ['write_ARRAY',  ' <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396165	396454	
==>= pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397245	397534	
==>= pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398325	398614	
==>= pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399406	399695	
==>= pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400486	400775	
==>= pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401567	401856	
==>= pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402648	402937	
==>= pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403730	404019	
==>= pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
9	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	70035	70129	
==>$grammar)=pos($_[2]);
	return if $grammar =~ m/$OPTIONAL/gco || $grammar =~ m/$ANY/gco;
	my $mi <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	639494	639591	
==>max) {\n\t      real_exception(interpreter, NULL, E_ValueError,\n\t\t      \"Illegal PMC enum (%d) <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897165	897249	
==>"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898183	898267	
==>"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899201	899285	
==>"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900220	900304	
==>"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901238	901322	
==>"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902257	902341	
==>"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903276	903360	
==>"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904296	904380	
==>"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897258	897598	
==>, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898276	898616	
==>, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899294	899634	
==>, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900313	900653	
==>, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901331	901671	
==>, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902350	902690	
==>, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903369	903709	
==>, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904389	904729	
==>, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
9	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	1504	1613	
==>CCLASS_HEXADECIMAL    
    $ret |= 0x0020 if $chr =~ /^[[:space:]\x85\xa0]$/;  # CCLASS_WHITESPACE     
    $r <==
9	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21756	21868	
==>0,
			'functioncall' => 31,
			'explist1' => 121,
			'function' => 26,
			'tableconstructor' => 32,
			'var' <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964855	964943	
==>"#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965863	965951	
==>"#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966871	966959	
==>"#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967880	967968	
==>"#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968888	968976	
==>"#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969897	969985	
==>"#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970906	970994	
==>"#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971916	972004	
==>"#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752135	752427	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGD <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752914	753206	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGD <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753701	753993	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGD <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754489	754781	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGD <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755275	755567	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGD <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756062	756354	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGD <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756851	757143	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGD <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757641	757933	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGD <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758413	758705	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGD <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13736	13832	
==>he method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of t <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29519	29615	
==>he method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of t <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30161	30257	
==>he method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of t <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31386	31482	
==>he method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of t <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32999	33095	
==>he method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of t <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34687	34783	
==>he method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of t <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36017	36113	
==>he method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of t <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37962	38058	
==>he method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of t <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40006	40102	
==>he method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of t <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692915	693205	
==>preter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693915	694205	
==>preter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694915	695205	
==>preter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695916	696206	
==>preter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696916	697206	
==>preter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697917	698207	
==>preter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698918	699208	
==>preter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699920	700210	
==>preter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
9	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2870	2965	
==>= &describe_file($_);
	if($info->{desc}) {
	    print "\n* $info->{path}\n\n$info->{desc}\n";
	} <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1685	1807	
==>>left;
  my $op    = $self->op;
  my $right = $self->right;

  #
  # Find the enclosing sub block:
  #

  my $sub_block = $ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385369	385550	
==>terpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386500	386681	
==>terpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387631	387812	
==>terpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388763	388944	
==>terpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389894	390075	
==>terpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391026	391207	
==>terpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392158	392339	
==>terpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393291	393472	
==>terpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
9	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37132	37234	
==>lass;
}

sub code($$$$)
{
	my ($self, $namespace, $rule) = @_;
	
	my ($subrule, $repspec, $min, $max, $ <==
9	/Users/nnunley/parrot/lib/Parrot/Config.pm	8341	8468	
==>ibparrot.dylib',
             'libparrot_static' => 'libparrot.a',
             'libs' => '-lm -lgmp -lreadline',
             ' <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897161	897246	
==>57 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898179	898264	
==>57 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899197	899282	
==>57 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900216	900301	
==>57 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901234	901319	
==>57 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902253	902338	
==>57 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903272	903357	
==>57 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904292	904377	
==>57 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459811	459913	
==>"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionEr <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460799	460901	
==>"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionEr <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461787	461889	
==>"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionEr <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471154	471256	
==>"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionEr <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472141	472243	
==>"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionEr <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473128	473230	
==>"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionEr <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480661	480763	
==>"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionEr <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481664	481766	
==>"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionEr <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482667	482769	
==>"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionEr <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878656	878968	
==>NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879759	880071	
==>NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880863	881175	
==>NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881967	882279	
==>NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883072	883384	
==>NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884177	884489	
==>NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885283	885595	
==>NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886389	886701	
==>NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
9	/Users/nnunley/parrot/lib/Pod/Simple.pm	37222	37339	
==>if found
      DEBUG > 3 and print "  Peering at L-content for a '/' ...\n";
      for(my $j = 0; $j < @ell_content; + <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710042	710313	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":bas <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718186	718457	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":bas <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719118	719389	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":bas <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720317	720588	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":bas <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721517	721788	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":bas <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722545	722816	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":bas <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723574	723845	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":bas <==
9	/Users/nnunley/parrot/tools/build/nativecall.pl	19073	19179	
==>ble->base_type == enum_class_UnManagedStruct)
        return F2DPTR(PMC_data(b));

    /*
      These three <==
9	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	644	741	
==>);

=item C<new($path)>

Returns the instance for C<$path> if it already exists, otherwise it is
c <==
9	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	897	986	
==>lossary.pod'),
			$self->new_item('', 'docs/faq.pod'),
			$self->new_item('', 'docs/practi <==
9	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	2777	2893	
==>} }
   ),
   @{ $self->{'token_buffer'} } ? '' : '       (no tokens)',
   "\n"
  ;

  until( @{ $self->{'token_buffer <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396087	396180	
==>ocket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interp <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397167	397260	
==>ocket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interp <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398247	398340	
==>ocket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interp <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399328	399421	
==>ocket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interp <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400408	400501	
==>ocket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interp <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401489	401582	
==>ocket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interp <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402570	402663	
==>ocket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interp <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403652	403745	
==>ocket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interp <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896576	896889	
==>" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897593	897906	
==>" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898611	898924	
==>" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899629	899942	
==>" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900648	900961	
==>" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901666	901979	
==>" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902685	902998	
==>" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903704	904017	
==>" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
9	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	9648	9773	
==>~ /\./) {
            error("MANIFEST", $line, "$_: more than one '.' in a filename");
        }
        $filebase  = substr($ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385402	385726	
==>k failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386533	386857	
==>k failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387664	387988	
==>k failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388796	389120	
==>k failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389927	390251	
==>k failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391059	391383	
==>k failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392191	392515	
==>k failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393324	393648	
==>k failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
9	/Users/nnunley/parrot/lib/Parrot/Config.pm	9585	9742	
==>',
             'optimize' => '',
             'osname' => 'darwin',
             'packtype_b' => 'C',
             'packtype_i' => 'l!',
             'packty <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396189	396507	
==>num_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397269	397587	
==>num_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398349	398667	
==>num_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399430	399748	
==>num_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400510	400828	
==>num_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401591	401909	
==>num_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402672	402990	
==>num_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403754	404072	
==>num_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	203	310	
==>Carp;

$VERSION   = '0.01';
@ISA       = qw(Exporter);
@EXPORT_OK = qw(generate);

use Data::Dumper;
use Sch <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197888	198242	
==>,
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 234,
                  "ARGS" => [
                              "ic",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 366 \"src <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950504	950594	
==>/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_stri <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951464	951554	
==>/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_stri <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952424	952514	
==>/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_stri <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953385	953475	
==>/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_stri <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960961	961051	
==>/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_stri <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961923	962013	
==>/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_stri <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962885	962975	
==>/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_stri <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963848	963938	
==>/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_stri <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462762	462865	
==>ps/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463759	463862	
==>ps/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464756	464859	
==>ps/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474102	474205	
==>ps/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475093	475196	
==>ps/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476084	476187	
==>ps/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483657	483760	
==>ps/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484656	484759	
==>ps/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485655	485758	
==>ps/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964205	964482	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965212	965489	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966220	966497	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967228	967505	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968237	968514	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969245	969522	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970254	970531	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971263	971540	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i", <==
9	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	719	819	
==>then use Test::Harness to run and report results.

=head1 SYNOPSIS

  tcl-test.pl [-c] [-u]

  -c Con <==
9	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	2344	2459	
==>unt";
}

sub output_assign {
    my ($self, $var, $val) = @_;
    return "set $var, $val";
}

sub output_if {
    my <==
9	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15549	15636	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

1;


__END__

=hea <==
9	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2134	2220	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__END__

=hea <==
9	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3059	3145	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__END__

=hea <==
9	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	774	860	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__END__

=hea <==
9	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3529	3614	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__END__

=hea <==
9	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2282	2367	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__END__

=hea <==
9	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2385	2470	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__END__

=hea <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	373433	373761	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374315	374643	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375198	375526	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376081	376409	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376965	377293	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377848	378176	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378732	379060	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379616	379944	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380911	381147	
==>GS" => [
                              "p",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 455 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579368	579460	
==>*next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580673	580765	
==>*next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581978	582070	
==>*next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583284	583376	
==>*next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586723	586815	
==>*next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587909	588001	
==>*next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589095	589187	
==>*next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590282	590374	
==>*next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS <==
9	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	2945	3035	
==>changed.

The regular expression specified by C<$ignorePattern> is passed to
C<file_checksu <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459848	459942	
==>@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zer <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460836	460930	
==>@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zer <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461824	461918	
==>@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zer <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471191	471285	
==>@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zer <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472178	472272	
==>@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zer <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473165	473259	
==>@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zer <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480698	480792	
==>@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zer <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481701	481795	
==>@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zer <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482704	482798	
==>@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zer <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	617347	617439	
==>e << 16) | right->vtable->base_type;\n    if (lru->u.type == lr_types) {\nrunit_v_pp:\n\t((mm <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692206	692449	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693205	693448	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694205	694448	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695205	695448	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696206	696449	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697206	697449	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698207	698450	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699208	699451	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
9	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	7844	7941	
==>s extension under the terms of the GNU or Artistic
licenses.

=head1 AUTHORS

The original MD5 int <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203147	203444	
==>le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 24 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204078	204375	
==>le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 24 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205009	205306	
==>le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 24 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205951	206248	
==>le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 24 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206892	207189	
==>le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 24 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207834	208131	
==>le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 24 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208774	209071	
==>le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 24 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209715	210012	
==>le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 24 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210694	210991	
==>le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 24 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699974	700329	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FL <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700964	701319	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FL <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701955	702310	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FL <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702946	703301	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FL <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703938	704293	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FL <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704929	705284	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FL <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705921	706276	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FL <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706913	707268	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FL <==
9	/Users/nnunley/parrot/lib/File/Which.pm	2100	2215	
==>File::Spec->catfile($_, $exec) } @path) {
       for my $ext (@path_ext) {
            my $file = $base.$ext;
# prin <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412973	413082	
==>VAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414100	414209	
==>VAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415227	415336	
==>VAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416355	416464	
==>VAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417482	417591	
==>VAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418610	418719	
==>VAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419738	419847	
==>VAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420867	420976	
==>VAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => <==
9	/Users/nnunley/parrot/lib/Test/More.pm	6144	6241	
==>is eq $that> is just a
simple example) and uses that to determine if the test succeeded or
failed. <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185494	185791	
==>lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 22 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186423	186720	
==>lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 22 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187353	187650	
==>lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 22 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188283	188580	
==>lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 22 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189224	189521	
==>lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 22 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190164	190461	
==>lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 22 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191105	191402	
==>lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 22 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192044	192341	
==>lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 22 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192984	193281	
==>lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 22 <==
9	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48589	48712	
==>T/gco)
					{ $maxrep = $1 }
				elsif ($grammar =~ m/$MANY/gco)
					{ }
				elsif ($grammar =~ m/$BADREP/gco)
				{
					_ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412922	413014	
==>> "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414049	414141	
==>> "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415176	415268	
==>> "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416304	416396	
==>> "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417431	417523	
==>> "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418559	418651	
==>> "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419687	419779	
==>> "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420816	420908	
==>> "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}} <==
9	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	15877	16020	
==>" => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => <==
9	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18677	18820	
==>" => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => <==
9	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29730	29873	
==>" => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => <==
9	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30245	30388	
==>" => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => <==
9	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	32685	32828	
==>" => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => <==
9	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36791	36934	
==>" => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => <==
9	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	42075	42218	
==>" => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => <==
9	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44855	44998	
==>" => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38472	38577	
==>>decl($self->{class}, $method, 0);
    my $parameters = $method->{parameters};
    my $n=0;
    my @args = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222077	222372	
==>ROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223019	223314	
==>ROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223960	224255	
==>ROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224902	225197	
==>ROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225842	226137	
==>ROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226783	227078	
==>ROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227762	228057	
==>ROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
9	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	5315	5416	
==>n) = @_;
  my $type = $token->attr('type');
  if(!defined $type) {
    $self->whine("Typeless L!?", $t <==
9	/Users/nnunley/parrot/lib/Text/Balanced.pm	48416	48516	
==>iable as an interpolated literal:

        $quotelike = extract_quotelike("$var");


=head2 C<extract <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	6164	6258	
==>ion()>

Creates a hash of all the method names containing vtable section. Called
from C<init()> <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871099	871187	
==>ne 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872116	872204	
==>ne 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873133	873221	
==>ne 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874151	874239	
==>ne 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875168	875256	
==>ne 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876186	876274	
==>ne 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877204	877292	
==>ne 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878223	878311	
==>ne 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, { <==
9	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	17613	17709	
==>=head1 LICENSE

Copyright (C) 2005-2006, The Perl Foundation.

This is free software; you may red <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396091	396183	
==>t(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpret <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397171	397263	
==>t(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpret <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398251	398343	
==>t(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpret <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399332	399424	
==>t(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpret <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400412	400504	
==>t(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpret <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401493	401585	
==>t(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpret <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402574	402666	
==>t(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpret <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403656	403748	
==>t(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpret <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492890	493146	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493651	493907	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494518	494774	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495386	495642	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496254	496510	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497123	497379	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497993	498249	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498863	499119	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499625	499881	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40097	40249	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40944	41096	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42499	42651	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47206	47358	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48796	48948	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50396	50548	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51989	52141	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	817693	817845	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818471	818623	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => " <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24491	24601	
==>/^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($re <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24722	24832	
==>/^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($re <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25380	25490	
==>/^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($re <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25733	25843	
==>/^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($re <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26390	26500	
==>/^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($re <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26621	26731	
==>/^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($re <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27280	27390	
==>/^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($re <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27631	27741	
==>/^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($re <==
9	/Users/nnunley/parrot/examples/benchmarks/addit.pl	160	255	
==>xamples/benchmarks/addit.pl - Variable Argument Subroutines

=head1 SYNOPSIS

    % time perl ex <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13705	13808	
==>ame)>

Returns the C code for the method body. C<$line> is used to accumulate
the number of lines, C<$ou <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29488	29591	
==>ame)>

Returns the C code for the method body. C<$line> is used to accumulate
the number of lines, C<$ou <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30130	30233	
==>ame)>

Returns the C code for the method body. C<$line> is used to accumulate
the number of lines, C<$ou <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31355	31458	
==>ame)>

Returns the C code for the method body. C<$line> is used to accumulate
the number of lines, C<$ou <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32968	33071	
==>ame)>

Returns the C code for the method body. C<$line> is used to accumulate
the number of lines, C<$ou <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34656	34759	
==>ame)>

Returns the C code for the method body. C<$line> is used to accumulate
the number of lines, C<$ou <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35986	36089	
==>ame)>

Returns the C code for the method body. C<$line> is used to accumulate
the number of lines, C<$ou <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37931	38034	
==>ame)>

Returns the C code for the method body. C<$line> is used to accumulate
the number of lines, C<$ou <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39975	40078	
==>ame)>

Returns the C code for the method body. C<$line> is used to accumulate
the number of lines, C<$ou <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912395	912724	
==>ndex",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913405	913734	
==>ndex",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914416	914745	
==>ndex",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915427	915756	
==>ndex",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916439	916768	
==>ndex",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917450	917779	
==>ndex",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918462	918791	
==>ndex",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919474	919803	
==>ndex",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
9	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	234	325	
==>ot::Docs::Section::IMCC;

=head1 DESCRIPTION

A documentation section describing IMCC.

=hea <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879433	879772	
==>1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subs <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880537	880876	
==>1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subs <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881641	881980	
==>1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subs <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882746	883085	
==>1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subs <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883851	884190	
==>1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subs <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884957	885296	
==>1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subs <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886063	886402	
==>1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subs <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887170	887509	
==>1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subs <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	3090	3190	
==>e block stack.
#

sub current_block
{
  my $self = shift;

  $self->INTERNAL_ERROR("Attempt to refere <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692763	692929	
==>",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693763	693929	
==>",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694763	694929	
==>",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695764	695930	
==>",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696764	696930	
==>",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697765	697931	
==>",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698766	698932	
==>",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699768	699934	
==>",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}} <==
9	/Users/nnunley/parrot/tools/dev/lib_deps.pl	13289	13421	
==>.h
remquol     math.h
rename      stdio.h
rewind      stdio.h
rint        math.h
rintf       math.h
rintl       math.h
round       ma <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70471	70846	
==>GS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 94,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692178	692370	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693177	693369	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694177	694369	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695177	695369	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696178	696370	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697178	697370	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698179	698371	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699180	699372	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
9	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	149	244	
==>SSION);
use Data::Dumper;
use vars qw( %code $seg $debug $runtime_jump );

require "COMP_parsefu <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462755	462849	
==>\"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(inte <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463752	463846	
==>\"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(inte <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464749	464843	
==>\"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(inte <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474095	474189	
==>\"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(inte <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475086	475180	
==>\"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(inte <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476077	476171	
==>\"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(inte <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483650	483744	
==>\"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(inte <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484649	484743	
==>\"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(inte <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485648	485742	
==>\"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(inte <==
9	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	1184	1291	
==>>{args} };
	my @pieces;
	foreach (@pre_pieces) {
	    if (ref $_ && $_->{name} eq 'seq') {
		push @pieces, @ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888150	888238	
==>"#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889284	889372	
==>"#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890418	890506	
==>"#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891553	891641	
==>"#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892687	892775	
==>"#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893822	893910	
==>"#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	894957	895045	
==>"#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896093	896181	
==>"#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462800	462898	
==>};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Di <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463797	463895	
==>};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Di <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464794	464892	
==>};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Di <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474140	474238	
==>};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Di <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475131	475229	
==>};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Di <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476122	476220	
==>};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Di <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483695	483793	
==>};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Di <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484694	484792	
==>};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Di <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485693	485791	
==>};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Di <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879391	879681	
==>preter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880495	880785	
==>preter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881599	881889	
==>preter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882704	882994	
==>preter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883809	884099	
==>preter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884915	885205	
==>preter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886021	886311	
==>preter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887128	887418	
==>preter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
9	/Users/nnunley/parrot/examples/benchmarks/freeze.pl	693	805	
==>();
my @b = @{ thaw $image };
$e = time();
printf "  thaw time %.6f\n", $e-$s;

#$s = time();
#my $c = dclone \@a <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752238	752434	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753017	753213	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753804	754000	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754592	754788	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755378	755574	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756165	756361	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756954	757150	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757744	757940	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758516	758712	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
9	/Users/nnunley/parrot/lib/Test/More.pm	4878	5055	
==>mport' ) {
            push @imports, @{$_[$idx+1]};
            $idx++;
        }
        else {
            push @plan, $item;
        }

        $idx++;
    }

    plan(@plan) <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047667	1047820	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048590	1048743	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049514	1049667	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050547	1050700	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051581	1051734	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052615	1052768	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053650	1053803	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054776	1054929	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666851	667141	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667624	667914	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668398	668688	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669169	669459	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669941	670231	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670713	671003	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671486	671776	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9786	9880	
==>ako::Construct::Expression::Value->new($block, $self->require_value);
      my $op    = $self-> <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25322	25416	
==>ako::Construct::Expression::Value->new($block, $self->require_value);
      my $op    = $self-> <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888221	888543	
==>er, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889355	889677	
==>er, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890489	890811	
==>er, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891624	891946	
==>er, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892758	893080	
==>er, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893893	894215	
==>er, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895028	895350	
==>er, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896164	896486	
==>er, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
9	/Users/nnunley/parrot/languages/python/pie-thon.pl	13483	13590	
==><<"EOC";
	print_item $tos->[1] $cmt
EOC
}

sub PRINT_NEWLINE
{
    my ($n, $c, $cmt) = @_;
    print <<"EOC" <==
9	/Users/nnunley/parrot/tools/build/vtable_h.pl	21	111	
==>t (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/tools/build/vtable_h.pl 20350 2006-06- <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193519	193607	
==>ring_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194498	194586	
==>ring_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210250	210338	
==>ring_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211230	211318	
==>ring_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218808	218896	
==>ring_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219787	219875	
==>ring_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227367	227455	
==>ring_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228347	228435	
==>ring_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879385	879675	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, ' <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880489	880779	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, ' <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881593	881883	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, ' <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882698	882988	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, ' <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883803	884093	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, ' <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884909	885199	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, ' <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886015	886305	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, ' <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887122	887412	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, ' <==
9	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	6801	6923	
==>op1
    goto pos
neg:
    unless op1 goto done
    # pop off the end and unshift onto the beginning
    $P1 = pop op2
    u <==
9	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	15874	16016	
==>".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^ <==
9	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18674	18816	
==>".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^ <==
9	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29727	29869	
==>".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^ <==
9	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30242	30384	
==>".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^ <==
9	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	32682	32824	
==>".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^ <==
9	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36788	36930	
==>".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^ <==
9	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	42072	42214	
==>".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^ <==
9	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44852	44994	
==>".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^ <==
9	/Users/nnunley/parrot/config/gen/platform.pm	1786	1899	
==>pm
*/

END_HERE

    foreach (@headers) {
        my $header_file = "config/gen/platform/generic/$_";
        if ( <==
9	/Users/nnunley/parrot/config/inter/yacc.pm	596	707	
==>enerator, like bison or yacc?";
@args        = qw( yacc ask maintainer );

sub runstep
{
    my ($self, $conf) = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627116	627207	
==>} >= interpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Il <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628260	628351	
==>} >= interpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Il <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632518	632609	
==>} >= interpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Il <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633560	633651	
==>} >= interpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Il <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634617	634708	
==>} >= interpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Il <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635735	635826	
==>} >= interpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Il <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636853	636944	
==>} >= interpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Il <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637972	638063	
==>} >= interpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Il <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227813	228110	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 266, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586921	587175	
==>_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588107	588361	
==>_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589293	589547	
==>_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590480	590734	
==>_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591689	591943	
==>_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592899	593153	
==>_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594109	594363	
==>_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595320	595574	
==>_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
9	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	6509	6605	
==>f="file_summary.html">File Summary</a>
              <li><a href="function_summary.html">Function <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879387	879677	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880491	880781	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881595	881885	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882700	882990	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883805	884095	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884911	885201	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886017	886307	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887124	887414	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
9	/Users/nnunley/parrot/lib/Class/Struct.pm	8957	9052	
==>nts
a "struct-like" data structure.

The new class is given a constructor method, C<new>, for cr <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459247	459546	
==>UMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460234	460533	
==>UMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461222	461521	
==>UMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462210	462509	
==>UMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463206	463505	
==>UMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464203	464502	
==>UMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557807	557909	
==>t;\n  opcode_t *next = {{^+3}};\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  interpret <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559191	559293	
==>t;\n  opcode_t *next = {{^+3}};\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  interpret <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	293	389	
==>nings";

package Jako::Construct::Block::Bare;

use Carp;

use Jako::Compiler;

use base qw(Jako: <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	821672	821916	
==>NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822739	822983	
==>NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823807	824051	
==>NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824877	825121	
==>NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825948	826192	
==>NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827017	827261	
==>NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828087	828331	
==>NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829154	829398	
==>NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function", <==
9	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	13328	13488	
==>rewrite($R, $advance);

    my @ops = (
                  $scan => @R_body,
                           aop('goto', [ $next ]),
               $advance => $self-> <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897215	897505	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, ' <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898233	898523	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, ' <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899251	899541	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, ' <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900270	900560	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, ' <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901288	901578	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, ' <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902307	902597	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, ' <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903326	903616	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, ' <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904346	904636	
==>rpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, ' <==
9	/Users/nnunley/parrot/languages/lua/luac.pl	986	1096	
==>>YYData->{nb_error} ) {
    $parser->Generate();
}

__END__

=head1 NAME

luac - Lua compiler

=head1 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503521	503819	
==>> "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504375	504673	
==>> "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505230	505528	
==>> "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506085	506383	
==>> "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506939	507237	
==>> "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507794	508092	
==>> "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
9	/Users/nnunley/parrot/tools/dev/parrotbench.pl	5380	5519	
==>.. @program ) {
        for my $row ( @rows ) {
            Longest( $max[$_] , length $row->[$_] );
        }
    }
    for my $col ( @rows <==
9	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	3913	4038	
==>ser, $prevflag)
{
	bless {
		text    => $_[1],
		parser  => $_[2],
		prev    => $_[3]?1:0,
	      }, $_[0];
}

sub FETCH    
{ <==
9	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	2917	3039	
==>ser, $prevflag)
{
	bless {
		text    => $_[1],
		parser  => $_[2],
		prev	=> $_[3]?1:0,
	      }, $_[0];
}

sub FETCH    
{ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913024	913314	
==>ndex(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914035	914325	
==>ndex(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915046	915336	
==>ndex(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916058	916348	
==>ndex(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917069	917359	
==>ndex(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918081	918371	
==>ndex(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919093	919383	
==>ndex(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920106	920396	
==>ndex(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
9	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	40197	40318	
==>l any number of terminal newlines
          $self->_verbatim_format($para);
        } else {
          push @$para, join " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964209	964552	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965216	965559	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966224	966567	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967232	967575	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968241	968584	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969249	969592	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970258	970601	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971267	971610	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
9	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	1684	1792	
==>ents,
    }, $self;

    return $self;
}


=back

=head2 Instance Methods

=over 4

=item C<set_parent($paren <==
9	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	3925	4030	
==>d OK", :$todo, :$depends);
    }
}

## throws ok

sub throws_ok (Code &code, Any $match, Str $desc?, :$tod <==
9	/Users/nnunley/parrot/config/auto/aio.pm	648	754	
==>nf->data->add(' ', libs => '-lrt');

    cc_gen('config/auto/aio/aio.in');
    eval { cc_build(); };
    if <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385242	385331	
==>{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386373	386462	
==>{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387504	387593	
==>{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388636	388725	
==>{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389767	389856	
==>{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390899	390988	
==>{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392031	392120	
==>{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393164	393253	
==>{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\ <==
9	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	3	99	
==>NET CLI To PIR Translator
# Base class for implementing stack to register mapping algorithms.

pa <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627094	627186	
==>{{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpreter, 0, N <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628238	628330	
==>{{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpreter, 0, N <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632496	632588	
==>{{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpreter, 0, N <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633538	633630	
==>{{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpreter, 0, N <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634595	634687	
==>{{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpreter, 0, N <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635713	635805	
==>{{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpreter, 0, N <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636831	636923	
==>{{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpreter, 0, N <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637950	638042	
==>{{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpreter, 0, N <==
9	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	476	581	
==>cal pmc s
    s = new ResizablePMCArray
CODE
PIR
}

# Post translation hook.
sub post_translation() {
	# N <==
9	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	3567	3655	
==>$base> is the same as for C<run_core_func_decl()>.

=item C<init_set_dispatch($base_suffi <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822179	822264	
==>tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n  if (!ent <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823247	823332	
==>tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n  if (!ent <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824314	824399	
==>tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n  if (!ent <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825385	825470	
==>tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n  if (!ent <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826455	826540	
==>tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n  if (!ent <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827525	827610	
==>tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n  if (!ent <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828594	828679	
==>tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n  if (!ent <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829662	829747	
==>tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n  if (!ent <==
9	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1380	1492	
==>cro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($self, $addr) = @_;

    #print ST <==
9	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1905	2017	
==>cro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($self, $addr) = @_;

    #print ST <==
9	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1796	1908	
==>cro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($self, $addr) = @_;

    #print ST <==
9	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1520	1632	
==>cro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($self, $addr) = @_;

    #print ST <==
9	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	13457	13558	
==>pir = concat ".local pmc saved_ehs\nsaved_ehs = new .FixedPMCArray\nsaved_ehs = "
    tmp = i
    gen_ <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	240	335	
==>6-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::D <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	246	341	
==>6-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::D <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	236	331	
==>6-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::D <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	246	341	
==>6-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::D <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896571	896884	
==>"NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897588	897901	
==>"NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898606	898919	
==>"NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899624	899937	
==>"NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900643	900956	
==>"NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901661	901974	
==>"NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902680	902993	
==>"NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903699	904012	
==>"NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
9	/Users/nnunley/parrot/tools/dev/symlink.pl	1620	1719	
==>@manifile);
	    my $srcfile = File::Spec->catfile($topsrcdir, @manifile);
	    unless (-f $srcfile) <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385395	385700	
==>, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386526	386831	
==>, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387657	387962	
==>, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388789	389094	
==>, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389920	390225	
==>, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391052	391357	
==>, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392184	392489	
==>, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393317	393622	
==>, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
9	/Users/nnunley/parrot/tools/dev/run_indent.pl	2937	3038	
==>ar(keys %$typedefs) . " typedefs.\n";
    my $cmd = "indent -kr -nce -sc -cp0 -l79 -lc79 -psl -nut -cd <==
9	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1613	1745	
==>0]{'indent'}, "</", $_[1], ">\n";
  return;
}

# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

sub _xm <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912386	912719	
==>ME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913396	913729	
==>ME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914407	914740	
==>ME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915418	915751	
==>ME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916430	916763	
==>ME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917441	917774	
==>ME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918453	918786	
==>ME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919465	919798	
==>ME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	645	733	
==>n 'Parrot::Docs::File';
}

=item C<directory_class()>

Returns C<Parrot::Docs::Directory> <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871202	871542	
==>}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872219	872559	
==>}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873236	873576	
==>}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874254	874594	
==>}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875271	875611	
==>}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876289	876629	
==>}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877307	877647	
==>}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878326	878666	
==>}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
9	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8666	8753	
==>ERR.say("# Looks like $Test::num_of_tests_badpass tests of $Test::num_of_tests_run passe <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884520	884801	
==>" => 1001,
                  "ARGS" => [
                              "s",
                              "sc",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRI <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24422	24523	
==>$return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_ <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24653	24754	
==>$return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_ <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25311	25412	
==>$return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_ <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25664	25765	
==>$return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_ <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26321	26422	
==>$return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_ <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26552	26653	
==>$return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_ <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27211	27312	
==>$return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_ <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27562	27663	
==>$return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_ <==
9	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Compilers.pm	106	199	
==>head1 NAME

Parrot::Docs::Section::Compilers - Compilers documentation section

=head1 SYN <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42392	42610	
==>+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46299	46517	
==>+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47099	47317	
==>+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47882	48100	
==>+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48689	48907	
==>+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49479	49697	
==>+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50289	50507	
==>+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51082	51300	
==>+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUM <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51882	52100	
==>+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUM <==
9	/Users/nnunley/parrot/lib/Pod/Simple.pm	18588	18689	
==>reat_Es($treelet);
    $self->_treat_Ss($treelet);  # S has to come after E

    $self->_wrap_up($tree <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412284	412648	
==>,
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413410	413774	
==>,
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414537	414901	
==>,
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415664	416028	
==>,
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416792	417156	
==>,
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417919	418283	
==>,
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419047	419411	
==>,
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420175	420539	
==>,
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
9	/Users/nnunley/parrot/lib/Test/More.pm	15650	15744	
==>iag()s can be made silent by passing the "no_diag" option to
Test::More.  C<use Test::More test <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964894	965001	
==>\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965902	966009	
==>\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966910	967017	
==>\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967919	968026	
==>\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968927	969034	
==>\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969936	970043	
==>\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970945	971052	
==>\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971955	972062	
==>\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	1593	1687	
==>w_group('Documentation', '',
            $self->new_item('', 'tools/dev/extract_file_descriptio <==
9	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	637	729	
==>urce","$targ")
KEYS
}
sub parse_common {
	feedme();
	while($type[CURR] !~ /COMP|COMM|STMT/) { <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385299	385391	
==>e_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ER <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386430	386522	
==>e_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ER <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387561	387653	
==>e_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ER <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388693	388785	
==>e_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ER <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389824	389916	
==>e_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ER <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390956	391048	
==>e_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ER <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392088	392180	
==>e_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ER <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393221	393313	
==>e_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ER <==
9	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	16630	16716	
==>minrep, $maxrep, splice(@{$self->{"items"}}, -3));
		$self->{items}[-1]->sethashname($s <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878339	878675	
==>+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879442	879778	
==>+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880546	880882	
==>+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881650	881986	
==>+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882755	883091	
==>+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883860	884196	
==>+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884966	885302	
==>+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886072	886408	
==>+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r", <==
9	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1204	1310	
==>ere> is suitably cast.

=cut

sub gen_goto
{
    my ($self, $where_str) = @_;

    return "return (opcode_t <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964254	964587	
==>P" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965261	965594	
==>P" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966269	966602	
==>P" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967277	967610	
==>P" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968286	968619	
==>P" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969294	969627	
==>P" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970303	970636	
==>P" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971312	971645	
==>P" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
9	/Users/nnunley/parrot/tools/build/list_unjitted.pl	539	638	
==>$.";}
}

close OPS or die "Noo.. $!";

open JIT, '<', "jit/$ARGV[0]/core.jit" or die "Could not open <==
9	/Users/nnunley/parrot/config/init/hints/vms.pm	603	714	
==>ccflags test.c") and die "C compiler died!";
            system("link/exe=test test")        and die "Link faile <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24458	24568	
==>hildren}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $re <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24689	24799	
==>hildren}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $re <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25347	25457	
==>hildren}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $re <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25700	25810	
==>hildren}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $re <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26357	26467	
==>hildren}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $re <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26588	26698	
==>hildren}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $re <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27247	27357	
==>hildren}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $re <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27598	27708	
==>hildren}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $re <==
9	/Users/nnunley/parrot/lib/Test/Builder.pm	8217	8319	
==>s optional.

=over 4

=item B<ok>

  $Test->ok($test, $name);

Your basic test.  Pass if $test is true, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871093	871182	
==>> "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872110	872199	
==>> "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873127	873216	
==>> "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874145	874234	
==>> "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875162	875251	
==>> "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876180	876269	
==>> "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877198	877287	
==>> "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878217	878306	
==>> "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349725	350048	
==>o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 407,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 162 \"src/op <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667022	667318	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667795	668091	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668569	668865	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669340	669636	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670112	670408	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670884	671180	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671657	671953	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7551	7643	
==>INISH_$label"]);

  $temp = $self->_new_pair;
  $self->_add_inst('', 'set', [$copy.'[1]',$tem <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888286	888675	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889420	889809	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890554	890943	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891689	892078	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892823	893212	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893958	894347	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895093	895482	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896229	896618	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	819	909	
==>if defined $type and not UNIVERSAL::isa($type, qw(Jako::Construct::Type));
  confess "Value <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700008	700363	
==>=> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARG <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700998	701353	
==>=> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARG <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701989	702344	
==>=> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARG <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702980	703335	
==>=> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARG <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703972	704327	
==>=> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARG <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704963	705318	
==>=> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARG <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705955	706310	
==>=> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARG <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706947	707302	
==>=> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARG <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	278	369	
==>lasses|/SUBCLASSES> defined in this
file) is used by F<tools/build/pmc2c.pl> to generate C c <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	821684	821947	
==>okback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 93 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822751	823014	
==>okback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 93 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823819	824082	
==>okback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 93 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824889	825152	
==>okback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 93 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825960	826223	
==>okback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 93 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827029	827292	
==>okback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 93 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828099	828362	
==>okback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 93 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829166	829429	
==>okback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 93 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	36999	37207	
==>ROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "throw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ] <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692923	693212	
==>{{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693923	694212	
==>{{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694923	695212	
==>{{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695924	696213	
==>{{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696924	697213	
==>{{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697925	698214	
==>{{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698926	699215	
==>{{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699928	700217	
==>{{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	445632	445719	
==>/math.ops\"\n  {{\@2}} = mmd_dispatch_p_ppp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321605	321860	
==>(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323961	324216	
==>(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	329419	329674	
==>(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	330897	331152	
==>(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	751288	751543	
==>(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945489	945744	
==>(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946299	946554	
==>(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955933	956188	
==>(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956745	957000	
==>(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047670	1047824	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048593	1048747	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049517	1049671	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050550	1050704	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051584	1051738	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052618	1052772	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053653	1053807	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054779	1054933	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "", <==
9	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33160	33289	
==>ed value of $expected_value\n";
            $self->whine(
              $para->[1]{'start_line'},
              "You have '=item " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197370	197632	
==>\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ), <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198267	198529	
==>\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ), <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199164	199426	
==>\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ), <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200060	200322	
==>\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ), <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200957	201219	
==>\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ), <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201854	202116	
==>\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ), <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540476	540576	
==>? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n w <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541728	541828	
==>? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n w <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542980	543080	
==>? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n w <==
9	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	1686	1783	
==>Opcode numbering file',
	'o' => 'Compiled file',
	'ook' => 'Ook! code',
	'ops' => 'Parrot opcode f <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412946	413036	
==>o.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414073	414163	
==>o.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415200	415290	
==>o.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416328	416418	
==>o.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417455	417545	
==>o.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418583	418673	
==>o.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419711	419801	
==>o.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420840	420930	
==>o.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	11979	12071	
==>compiler->isa("Jako::Compiler");
  confess "Bad options!" if defined $options and not (ref $o <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897144	897231	
==>BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898162	898249	
==>BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899180	899267	
==>BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900199	900286	
==>BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901217	901304	
==>BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902236	902323	
==>BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903255	903342	
==>BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904275	904362	
==>BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879417	879737	
==>{{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880521	880841	
==>{{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881625	881945	
==>{{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882730	883050	
==>{{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883835	884155	
==>{{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884941	885261	
==>{{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886047	886367	
==>{{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887154	887474	
==>{{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
9	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4497	4594	
==>all callbacks that
are defined will be called.  Triggers are passed the key and value that was set <==
9	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	96	188	
==>3 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Section::C - C source c <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871104	871191	
==>9 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872121	872208	
==>9 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873138	873225	
==>9 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874156	874243	
==>9 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875173	875260	
==>9 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876191	876278	
==>9 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877209	877296	
==>9 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878228	878315	
==>9 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271148	271454	
==>\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isl <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271994	272300	
==>\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isl <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272840	273146	
==>\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isl <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273685	273991	
==>\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isl <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	274531	274837	
==>\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isl <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	275377	275683	
==>\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isl <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	282309	282615	
==>\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isl <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283154	283460	
==>\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isl <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283999	284305	
==>\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isl <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887469	887834	
==>" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888602	888967	
==>" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889736	890101	
==>" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890870	891235	
==>" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892005	892370	
==>" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893139	893504	
==>" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	894274	894639	
==>" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895409	895774	
==>" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
9	/Users/nnunley/parrot/lib/Text/Balanced.pm	30783	30876	
==>racters)
and extracts the initial substring of the text that
is appropriately delimited. If th <==
9	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	15859	16001	
==>"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND <==
9	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18659	18801	
==>"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND <==
9	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29712	29854	
==>"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND <==
9	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30227	30369	
==>"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND <==
9	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	32667	32809	
==>"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND <==
9	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36773	36915	
==>"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND <==
9	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	42057	42199	
==>"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND <==
9	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44837	44979	
==>"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND <==
9	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49724	49828	
==>escent::Directive(
					'my ($match,@res);
					 ($match,$text,undef,@res) =
						  Text::Balanced::extr <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565285	565707	
==>> [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 646,
                  "ARGS" => [
                              "i",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 1 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897148	897236	
==>" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898166	898254	
==>" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899184	899272	
==>" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900203	900291	
==>" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901221	901309	
==>" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902240	902328	
==>" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903259	903347	
==>" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904279	904367	
==>" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896499	896777	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897516	897794	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898534	898812	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899552	899830	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900571	900849	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901589	901867	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902608	902886	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903627	903905	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 " <==
9	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	508	605	
==>:Docs::File;

use strict;
use warnings;

use base qw( Parrot::IO::File );

use Pod::Simple::Checke <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396145	396292	
==>1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397225	397372	
==>1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398305	398452	
==>1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399386	399533	
==>1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400466	400613	
==>1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401547	401694	
==>1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402628	402775	
==>1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403710	403857	
==>1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0 <==
9	/Users/nnunley/parrot/lib/Class/Struct.pm	334	456	
==>] >= 5.003_95);

my $print = 0;
sub printem {
    if (@_) { $print = shift }
    else    { $print++ }
}

{
    package Clas <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773452	773708	
==>er_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774362	774618	
==>er_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775272	775528	
==>er_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776183	776439	
==>er_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777091	777347	
==>er_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778000	778256	
==>er_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778909	779165	
==>er_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779819	780075	
==>er_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
9	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	24466	24572	
==>c.read_int32()\n    next_pc += 4\n";
			$arg_name = "I_ARG_$arg_num";
		}

		# float32
		elsif (/^float32$/ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878573	878746	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879676	879849	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880780	880953	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881884	882057	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882989	883162	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884094	884267	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885200	885373	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886306	886479	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
9	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	998	1129	
==>ata->{verbose_warning} );
}

sub Info {
    my $parser = shift;
    my ($msg) = @_;

    $msg ||= ".\n";

    if ( exists $ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	689524	689725	
==>ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 590 \"src/ops/pmc.ops\"\n   {{\@1}} = {{\@2}}->vtable->g <==
9	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	578	678	
==>one per non-verbatim paragraph), and
# to call the proper callbacks on the treelets.
#
# Every node i <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047673	1047846	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "AR <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048596	1048769	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "AR <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049520	1049693	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "AR <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050553	1050726	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "AR <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051587	1051760	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "AR <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052621	1052794	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "AR <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053656	1053829	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "AR <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054782	1054955	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "AR <==
9	/Users/nnunley/parrot/tools/dev/manicheck.pl	1187	1278	
==>ls::Manifest::skipcheck();

printf "Found %d distinct files among MANIFEST and directory con <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	675324	675599	
==>});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676103	676378	
==>});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676883	677158	
==>});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677660	677935	
==>});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678438	678713	
==>});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679216	679491	
==>});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679995	680270	
==>});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift" <==
9	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	5453	5635	
==>hed"
            $captures
            goto end
          match_fail:
            print "failed"
            goto end
          rule_fail:
            print "rule error"
          end <==
9	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3421	3528	
==>if (! $debug) {
		print CODE ".end\t# outer segment\n";
		next;
	}
	print CODE<<EOD;
	.sub ${seg}_debug
		sa <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	535044	535318	
==>/ temp;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sec", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981939	982106	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983069	983236	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984199	984366	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985330	985497	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986460	986627	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987591	987758	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988722	988889	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989854	990021	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass <==
9	/Users/nnunley/parrot/lib/File/Which.pm	5266	5362	
==>e, C<perl>).

If it finds an executable with the name you specified, C<which()> will return
the a <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887423	887666	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888556	888799	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889690	889933	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890824	891067	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891959	892202	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893093	893336	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	894228	894471	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io", <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895363	895606	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io", <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35803	35902	
==>=item C<implements($method)>

True for vtable methods.

=cut

sub implements
{

    my ($self, $meth <==
9	/Users/nnunley/parrot/lib/Pod/Escapes.pm	9604	9740	
==>X',
   89, 'Y',
   90, 'Z',
   91, '[',
   92, "\\", #!
   93, ']',
   94, '^',
   95, '_',
   96, '`',
   97, 'a',
   98, 'b',
   99, 'c <==
9	/Users/nnunley/parrot/tools/build/headerize.pl	2472	2590	
==>dn't handle $proto";
    my $funcname = $1;
    $parms = $2;
    my @parms = split( /\s*,\s*/, $parms );
    for ( @par <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879295	879390	
==>};\n  if (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(inter <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880399	880494	
==>};\n  if (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(inter <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881503	881598	
==>};\n  if (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(inter <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882608	882703	
==>};\n  if (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(inter <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883713	883808	
==>};\n  if (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(inter <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884819	884914	
==>};\n  if (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(inter <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885925	886020	
==>};\n  if (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(inter <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887032	887127	
==>};\n  if (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(inter <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950620	950906	
==>ter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951580	951866	
==>ter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952540	952826	
==>ter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953501	953787	
==>ter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961078	961364	
==>ter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962040	962326	
==>ter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963002	963288	
==>ter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963965	964251	
==>ter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
9	/Users/nnunley/parrot/tools/dev/manicheck.pl	1564	1688	
==>tra) {
    print "\n";
    print "Extra files:\n";
    foreach (@extra) {
        print "  $_\n";
    }
}

exit scalar(@missi <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462772	462875	
==>s\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivis <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463769	463872	
==>s\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivis <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464766	464869	
==>s\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivis <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474112	474215	
==>s\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivis <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475103	475206	
==>s\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivis <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476094	476197	
==>s\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivis <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483667	483770	
==>s\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivis <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484666	484769	
==>s\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivis <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485665	485768	
==>s\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivis <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404582	404692	
==>,
                  "BODY" => "#line 535 \"src/ops/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsign <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405494	405604	
==>,
                  "BODY" => "#line 535 \"src/ops/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsign <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406406	406516	
==>,
                  "BODY" => "#line 535 \"src/ops/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsign <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407319	407429	
==>,
                  "BODY" => "#line 535 \"src/ops/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsign <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19008	19100	
==>',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return $retu <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19496	19588	
==>',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return $retu <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19984	20076	
==>',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return $retu <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20473	20565	
==>',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return $retu <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20962	21054	
==>',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return $retu <==
9	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	10294	10413	
==>2 = op2 + $N2
    $N2 = ln $N2
    .return ($N2)
neg_seven: # arctanh(x) = .5 * (ln (1+x) - ln (1 -x))
    $N1 = op2 + 1 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459808	459905	
==>ps\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDi <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460796	460893	
==>ps\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDi <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461784	461881	
==>ps\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDi <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471151	471248	
==>ps\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDi <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472138	472235	
==>ps\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDi <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473125	473222	
==>ps\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDi <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480658	480755	
==>ps\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDi <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481661	481758	
==>ps\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDi <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482664	482761	
==>ps\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDi <==
9	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	1717	1841	
==>=sup
      big=big
      small=small
      underline=u
      strikethrough=s
    ]  # no point in providing a way to get <q>. <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700871	700961	
==>"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+= <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701862	701952	
==>"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+= <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702853	702943	
==>"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+= <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703845	703935	
==>"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+= <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704836	704926	
==>"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+= <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705828	705918	
==>"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+= <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706820	706910	
==>"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+= <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	707813	707903	
==>"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+= <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878579	878788	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879682	879891	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880786	880995	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881890	882099	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882995	883204	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884100	884309	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885206	885415	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886312	886521	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
9	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	18412	18517	
==>tack.)

sub rewrite_greedy_range {
    my ($self, $op, $R, $min, $max, $lastback) = @_;

    my ($loop, $b <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878670	879001	
==>tr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879773	880104	
==>tr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880877	881208	
==>tr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881981	882312	
==>tr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883086	883417	
==>tr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884191	884522	
==>tr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885297	885628	
==>tr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886403	886734	
==>tr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
9	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	15715	15825	
==>YPED_EH_FOUND_"
    gen_pir = concat tmp
    gen_pir = concat ":\n"

    # Need to fix up stack type state. Cre <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730716	730950	
==>ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731452	731686	
==>ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735205	735439	
==>ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735941	736175	
==>ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741248	741482	
==>ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745808	746042	
==>ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746543	746777	
==>ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
9	/Users/nnunley/parrot/lib/Pod/Simple.pm	1075	1177	
==>ES() >= 1) {
    die "MANY_LINES is too small (", MANY_LINES(), ")!\nAborting";
  }
  if(defined &UNICO <==
9	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	50443	50539	
==>iable marker", $aftererror,$line);
				$item = new Parse::RecDescent::Directive(
					'Text::Bala <==
9	/Users/nnunley/parrot/lib/Text/Balanced.pm	8278	8385	
==>to failed;
	}

	$textpos = pos($$textref);

	if (!defined $rdel)
	{
		$rdelspec = $&;
		unless ($rdelspec =~ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692872	692957	
==>src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}) <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693872	693957	
==>src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}) <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694872	694957	
==>src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}) <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695873	695958	
==>src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}) <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696873	696958	
==>src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}) <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697874	697959	
==>src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}) <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698875	698960	
==>src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}) <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699877	699962	
==>src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}) <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20764	20901	
==>>require_assign;
      }

      my $constructing;
      my $right;

      if ($self->skip_new) {
        $constructing = 1;
        $right <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396101	396194	
==>ter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_cl <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397181	397274	
==>ter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_cl <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398261	398354	
==>ter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_cl <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399342	399435	
==>ter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_cl <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400422	400515	
==>ter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_cl <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401503	401596	
==>ter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_cl <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402584	402677	
==>ter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_cl <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403666	403759	
==>ter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_cl <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	675316	675592	
==>, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "u <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676095	676371	
==>, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "u <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676875	677151	
==>, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "u <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677652	677928	
==>, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "u <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678430	678706	
==>, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "u <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679208	679484	
==>, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "u <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679987	680263	
==>, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "u <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931903	932177	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "u <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932674	932948	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "u <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692878	692967	
==>s/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693878	693967	
==>s/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694878	694967	
==>s/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695879	695968	
==>s/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696879	696968	
==>s/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697880	697969	
==>s/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698881	698970	
==>s/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699883	699972	
==>s/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5 <==
9	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13569	13656	
==>o=1
x.other.bar="one"
x.narf=99
x.pnext.foo=2
x.pnext.bar="two"
y=x
print y.narf
t=x.oth <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	395382	395626	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396461	396705	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397541	397785	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398621	398865	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399702	399946	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400782	401026	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401863	402107	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402944	403188	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
9	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	13597	13709	
==>ooter to the end
of the document.

=cut

sub do_end 
{
    my $self = shift;
    
    print {$self->{'output_fh'} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550406	550517	
==>st = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551707	551818	
==>st = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552898	553009	
==>st = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554259	554370	
==>st = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555656	555767	
==>st = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556893	557004	
==>st = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558311	558422	
==>st = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559695	559806	
==>st = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560916	561027	
==>st = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [ <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	730	821	
==>confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess " <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	742	833	
==>confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess " <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	564	655	
==>confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess " <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	545	636	
==>confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess " <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	516	607	
==>confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess " <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	452	543	
==>confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess " <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	799	890	
==>confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess " <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	827	918	
==>confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess " <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	511	602	
==>confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692208	692486	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693207	693485	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694207	694485	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695207	695485	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696208	696486	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697208	697486	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698209	698487	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699210	699488	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
9	/Users/nnunley/parrot/lib/Test/More.pm	1457	1565	
==>s  ($this, $that,    $test_name);
  isnt($this, $that,    $test_name);

  # Rather than print STDERR "# here' <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752262	752471	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753041	753250	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753828	754037	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754616	754825	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755402	755611	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756189	756398	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756978	757187	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757768	757977	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758540	758749	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793447	793704	
==>r_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794352	794609	
==>r_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795257	795514	
==>r_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796163	796420	
==>r_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797066	797323	
==>r_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797970	798227	
==>r_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798874	799131	
==>r_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799779	800036	
==>r_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
9	/Users/nnunley/parrot/lib/Class/Struct.pm	19575	19707	
==>plate builder
    #   12mar95
    #   Dean Roehrich
    #
    # changes/bugs fixed since 28nov94 version:
    #  - podified
    # cha <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51287	51427	
==>EXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "trace",
                  "FLAGS" => "",
                  "ARGDIRS" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385309	385404	
==>({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek f <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386440	386535	
==>({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek f <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387571	387666	
==>({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek f <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388703	388798	
==>({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek f <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389834	389929	
==>({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek f <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390966	391061	
==>({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek f <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392098	392193	
==>({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek f <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393231	393326	
==>({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek f <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107782	108034	
==>" => 134,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 167 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2 <==
9	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26080	26212	
==>' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 133,
			'functi <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	765	889	
==>);
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	3721	3845	
==>);
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	3520	3644	
==>);
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	4182	4306	
==>);
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1593	1717	
==>);
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	3239	3363	
==>);
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1410	1534	
==>);
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1404	1528	
==>);
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => <==
9	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	4450	4590	
==>ndex_html .= "<br>\n";
        }
    }
    
    return '' unless $index_html;
    
    if ( ! $self->{TEXT} and @short_desc )
    {
        m <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760505	760672	
==>",
                              "p"
                            ],
                  "BODY" => "#line 286 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}}->vtable->get_pmc(int <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627124	627214	
==>erpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal P <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628268	628358	
==>erpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal P <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632526	632616	
==>erpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal P <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633568	633658	
==>erpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal P <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634625	634715	
==>erpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal P <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635743	635833	
==>erpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal P <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636861	636951	
==>erpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal P <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637980	638070	
==>erpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal P <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13722	13818	
==>e C code for the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29505	29601	
==>e C code for the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30147	30243	
==>e C code for the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31372	31468	
==>e C code for the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32985	33081	
==>e C code for the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34673	34769	
==>e C code for the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36003	36099	
==>e C code for the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37948	38044	
==>e C code for the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39992	40088	
==>e C code for the method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964250	964583	
==>"JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965257	965590	
==>"JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966265	966598	
==>"JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967273	967606	
==>"JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968282	968615	
==>"JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969290	969623	
==>"JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970299	970632	
==>"JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971308	971641	
==>"JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
9	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	16948	17061	
==>END_PIR
        }

        $template .= <<"END_POSTAMBLE"
    .return (op1) # might be pre-empted
.end
END_POSTAMB <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887502	887847	
==>=> "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888635	888980	
==>=> "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889769	890114	
==>=> "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890903	891248	
==>=> "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892038	892383	
==>=> "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893172	893517	
==>=> "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	894307	894652	
==>=> "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895442	895787	
==>=> "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
9	/Users/nnunley/parrot/tools/dev/nm.pl	6987	7120	
==>$type =~ /^[Tt]$/  ) ? 1 : 0;
		my $undef    = ($type =~ /^[Uu]$/  ) ? 1 : 0;
		my $zeroed   = 0;
		my $const    = 0;
		my $local    = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830734	830974	
==>NUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sav <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831475	831715	
==>NUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sav <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832202	832442	
==>NUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sav <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832930	833170	
==>NUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sav <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833652	833892	
==>NUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sav <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834377	834617	
==>NUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sav <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835103	835343	
==>NUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sav <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835855	836095	
==>NUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sav <==
9	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	50420	50531	
==>3 and print "Found apparent simple end-text code \"$4\"\n";

      if(@stack and ! $stack[-1]) {
        # We're <==
9	/Users/nnunley/parrot/lib/Text/Balanced.pm	53036	53126	
==>ubroutine references and/or qr// objects and/or
literal strings and/or hash references, spe <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964866	964952	
==>\"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965874	965960	
==>\"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966882	966968	
==>\"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967891	967977	
==>\"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968899	968985	
==>\"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969908	969994	
==>\"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970917	971003	
==>\"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971927	972013	
==>\"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3 <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039464	1039787	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIR <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040356	1040679	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIR <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041248	1041571	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIR <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042141	1042464	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIR <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043037	1043360	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIR <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043934	1044257	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIR <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044827	1045150	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIR <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045721	1046044	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIR <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046615	1046938	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIR <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586928	587193	
==>ss(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588114	588379	
==>ss(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589300	589565	
==>ss(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590487	590752	
==>ss(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591696	591961	
==>ss(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592906	593171	
==>ss(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594116	594381	
==>ss(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595327	595592	
==>ss(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832654	832842	
==>E" => 942,
                  "ARGS" => [
                              "nc"
                            ],
                  "BODY" => "#line 192 \"src/ops/stack.ops\"\n  stack_push(interpr <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70919	71172	
==>erpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71688	71941	
==>erpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100428	100681	
==>erpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104876	105129	
==>erpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	252988	253241	
==>erpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450917	451170	
==>erpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	513316	513569	
==>erpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578418	578671	
==>erpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
9	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	408	521	
==>lf = shift;
    my $distance = shift || 1;
    return "re_advance P0, $distance";
}

sub output_onfail {
    my ($ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896540	896871	
==>"JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897557	897888	
==>"JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898575	898906	
==>"JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899593	899924	
==>"JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900612	900943	
==>"JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901630	901961	
==>"JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902649	902980	
==>"JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903668	903999	
==>"JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	217	313	
==>ment/Bitwise.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

pa <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700904	701191	
==>md_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701895	702182	
==>md_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702886	703173	
==>md_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703878	704165	
==>md_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704869	705156	
==>md_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705861	706148	
==>md_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706853	707140	
==>md_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	707846	708133	
==>md_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
9	/Users/nnunley/parrot/lib/Text/Balanced.pm	55707	55807	
==>ass, 

If the extractor fails to match (in the case of a regex extractor), or returns an empty list o <==
9	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	9526	9661	
==>e} $dir->{result}->{symbol} :optional\n";
        }
    }

    sub visitReturnDir {
        my $self  = shift;
        my ($dir) = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897171	897256	
==>ps/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898189	898274	
==>ps/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899207	899292	
==>ps/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900226	900311	
==>ps/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901244	901329	
==>ps/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902263	902348	
==>ps/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903282	903367	
==>ps/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904302	904387	
==>ps/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4} <==
9	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	7567	7672	
==>tor'

    iter_two = new .Iterator, op2
loop_two:
    unless iter_two goto loop_two_end
    item_two = shi <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	992	1092	
==>NIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK     => $ <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	1004	1104	
==>NIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK     => $ <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	922	1018	
==>NIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $ <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	760	856	
==>NIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $ <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	913	1009	
==>NIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $ <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	802	898	
==>NIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $ <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1182	1278	
==>NIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $ <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1210	1306	
==>NIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $ <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	882	978	
==>NIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $ <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320039	320312	
==>{{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320809	321082	
==>{{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322390	322663	
==>{{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323162	323435	
==>{{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871157	871446	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872174	872463	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873191	873480	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874209	874498	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875226	875515	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876244	876533	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877262	877551	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878281	878570	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
9	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	2300	2397	
==>"Looking up $_[0]$seg...\n";
	$_ =(grep /^\Q$_[0]$seg\E$/i, keys %arrays );
	#print "$_\n";
	retur <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692896	693003	
==>_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693896	694003	
==>_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694896	695003	
==>_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695897	696004	
==>_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696897	697004	
==>_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697898	698005	
==>_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698899	699006	
==>_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699901	700008	
==>_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" = <==
9	/Users/nnunley/parrot/editor/kate_syntax.pl	4638	4733	
==>ttribute="String Interp" lineEndContext="#pop">
          <HlCStringChar attribute="SpChar" cont <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462783	462877	
==>TVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisio <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463780	463874	
==>TVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisio <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464777	464871	
==>TVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisio <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474123	474217	
==>TVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisio <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475114	475208	
==>TVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisio <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476105	476199	
==>TVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisio <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483678	483772	
==>TVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisio <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484677	484771	
==>TVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisio <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485676	485770	
==>TVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisio <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039431	1039753	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040323	1040645	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041215	1041537	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042108	1042430	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043004	1043326	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043901	1044223	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044794	1045116	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045688	1046010	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046582	1046904	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS <==
9	/Users/nnunley/parrot/Configure.pl	9283	9397	
==>:va_ptr
    auto::pack
    auto::format
    auto::isreg
    auto::jit
    gen::cpu
    auto::funcptr
    auto::cgot <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24446	24554	
==>te($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_mor <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24677	24785	
==>te($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_mor <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25335	25443	
==>te($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_mor <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25688	25796	
==>te($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_mor <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26345	26453	
==>te($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_mor <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26576	26684	
==>te($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_mor <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27235	27343	
==>te($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_mor <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27586	27694	
==>te($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_mor <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23906	23998	
==>rent_cont = {{\@2}};\n  dest = (opcode_t *)p->vtable->invoke(interpreter, p, {{^+3}});\n  {{= <==
9	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2280	2374	
==>nitions($file, $source);
    check_cuddled_else($file, $source);
    check_comments($file, $sou <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908483	908840	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913081	913438	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914092	914449	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915103	915460	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916115	916472	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917126	917483	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918138	918495	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" = <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919150	919507	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" = <==
9	/Users/nnunley/parrot/languages/javascript/bootstrap.pm	479	570	
==>= $context->eval(q!
	Object.prototype.__defineProperty__ = function (a,b,c,d,e) {
	};
	debug <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692252	692583	
==>JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693251	693582	
==>JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694251	694582	
==>JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695251	695582	
==>JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696252	696583	
==>JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697252	697583	
==>JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698253	698584	
==>JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699254	699585	
==>JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
9	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	283	377	
==>more related paths with some optional
descriptive text.

Directory paths will be expanded to al <==
9	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	230	327	
==>ant.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459841	459938	
==>if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460829	460926	
==>if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461817	461914	
==>if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471184	471281	
==>if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472171	472268	
==>if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473158	473255	
==>if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480691	480788	
==>if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481694	481791	
==>if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482697	482794	
==>if ({{\@3}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	32379	32477	
==>-------

my %global_ops = (

#----------------------
#
# Section 4 Expressions
#
#----------------- <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822236	822333	
==>_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entr <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823304	823401	
==>_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entr <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824371	824468	
==>_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entr <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825442	825539	
==>_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entr <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826512	826609	
==>_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entr <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827582	827679	
==>_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entr <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828651	828748	
==>_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entr <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829719	829816	
==>_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entr <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13739	13839	
==>method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the outp <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29522	29622	
==>method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the outp <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30164	30264	
==>method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the outp <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31389	31489	
==>method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the outp <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33002	33102	
==>method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the outp <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34690	34790	
==>method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the outp <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36020	36120	
==>method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the outp <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37965	38065	
==>method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the outp <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40009	40109	
==>method body. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of the outp <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13681	13780	
==>y($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulat <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29464	29563	
==>y($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulat <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30106	30205	
==>y($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulat <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31331	31430	
==>y($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulat <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32944	33043	
==>y($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulat <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34632	34731	
==>y($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulat <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35962	36061	
==>y($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulat <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37907	38006	
==>y($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulat <==
9	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39951	40050	
==>y($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is used to accumulat <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950630	950936	
==>}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951590	951896	
==>}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952550	952856	
==>}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953511	953817	
==>}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961088	961394	
==>}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962050	962356	
==>}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963012	963318	
==>}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963975	964281	
==>}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
9	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17780	17873	
==>$self->_add_inst ('', 'branch',["NEXT_$label"]);
  # XXX Use exceptions here
  $self->_add_ins <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822267	822361	
==>)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823335	823429	
==>)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824402	824496	
==>)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825473	825567	
==>)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826543	826637	
==>)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827613	827707	
==>)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828682	828776	
==>)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829750	829844	
==>)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY <==
9	/Users/nnunley/parrot/tools/build/dynclasses.pl	135	223	
==>erl Foundation.  All Rights Reserved.
# $Id: /parrot/config/gen/makefiles/dynclasses_pl.i <==
9	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2650	2745	
==>info',
	'CREDITS' => 'Project info',
	'DEVELOPING' => 'Project info',
	'harness' => 'Perl test h <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964859	964945	
==>ne 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965867	965953	
==>ne 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966875	966961	
==>ne 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967884	967970	
==>ne 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968892	968978	
==>ne 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969901	969987	
==>ne 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970910	970996	
==>ne 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}} <==
9	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971920	972006	
==>ne 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}} <==
9	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	15842	15984	
==>ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">= <==
9	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18642	18784	
==>ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">= <==
9	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29695	29837	
==>ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">= <==
9	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30210	30352	
==>ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">= <==
9	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	32650	32792	
==>ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">= <==
9	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36756	36898	
==>ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">= <==
9	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	42040	42182	
==>ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">= <==
9	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44820	44962	
==>ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">= <==
9	/Users/nnunley/parrot/lib/Pod/Simple.pm	22687	22827	
==>$is), "\n" )
            : "tag $is<...>.\n";
        }
      }
      
      if(!defined $is) {
        $self->whine($start_line, "Deleting u <==
9	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	10624	10715	
==>my $trymatch = $self->output_label_use($L_trymatch);
    my $backup = $self->output_label_us <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879364	879477	
==>\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880468	880581	
==>\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881572	881685	
==>\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882677	882790	
==>\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883782	883895	
==>\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884888	885001	
==>\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885994	886107	
==>\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887101	887214	
==>\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896517	896851	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897534	897868	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898552	898886	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899570	899904	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900589	900923	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901607	901941	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902626	902960	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903645	903979	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	821596	821840	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822663	822907	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823731	823975	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824801	825045	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825872	826116	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826941	827185	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828011	828255	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829078	829322	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710885	711142	
==>n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711719	711976	
==>n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712825	713082	
==>n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713932	714189	
==>n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714854	715111	
==>n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715777	716034	
==>n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => " <==
8	/Users/nnunley/parrot/lib/Test/Builder.pm	9086	9198	
==>elf->caller;

    my $todo = $self->todo($pack);
    $self->_unoverload(\$todo);

    my $out;
    my $result = & <==
8	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5372	5481	
==>R'
${INS} = concat ${STOREREG}
${INS} = concat " = pop s\n"
PIR
	}

	return $pir;
}

sub pre_call() {
    my $ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42384	42607	
==>n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47091	47314	
==>n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47874	48097	
==>n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48681	48904	
==>n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49471	49694	
==>n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50281	50504	
==>n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51074	51297	
==>n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51874	52097	
==>n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692287	692618	
==>" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693286	693617	
==>" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694286	694617	
==>" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695286	695617	
==>" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696287	696618	
==>" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697287	697618	
==>" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698288	698619	
==>" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699289	699620	
==>" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396082	396178	
==>PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(inte <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397162	397258	
==>PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(inte <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398242	398338	
==>PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(inte <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399323	399419	
==>PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(inte <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400403	400499	
==>PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(inte <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401484	401580	
==>PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(inte <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402565	402661	
==>PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(inte <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403647	403743	
==>PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(inte <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213537	213834	
==>IVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214478	214775	
==>IVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215418	215715	
==>IVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216359	216656	
==>IVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217298	217595	
==>IVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218238	218535	
==>IVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219216	219513	
==>IVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
8	/Users/nnunley/parrot/tools/dev/lib_deps.pl	7627	7760	
==>h.h
asinh       math.h
asinhf      math.h
asinhl      math.h
asinl       math.h
atan        math.h
atan2       math.h
atan2f      math <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710187	710446	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYP <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711020	711279	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYP <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711854	712113	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYP <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712960	713219	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYP <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714067	714326	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYP <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714989	715248	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYP <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715912	716171	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYP <==
8	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	11497	11614	
==>ommand = join " ", @_;

    # disable STDERR
    open OLDERR, ">&STDERR";
    open STDERR, ">test.err";

    my $outpu <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396139	396258	
==>(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397219	397338	
==>(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398299	398418	
==>(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399380	399499	
==>(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400460	400579	
==>(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401541	401660	
==>(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402622	402741	
==>(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403704	403823	
==>(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700005	700362	
==>S" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "AR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700995	701352	
==>S" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "AR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701986	702343	
==>S" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "AR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702977	703334	
==>S" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "AR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703969	704326	
==>S" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "AR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704960	705317	
==>S" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "AR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705952	706309	
==>S" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "AR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706944	707301	
==>S" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "AR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412936	413028	
==>"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414063	414155	
==>"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415190	415282	
==>"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416318	416410	
==>"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417445	417537	
==>"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418573	418665	
==>"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419701	419793	
==>"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420830	420922	
==>"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\ <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	2276	2373	
==>elf->pos unless defined $index;

  $count = 1 unless defined $count;

  $self->INTERNAL_ERROR("Att <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24416	24522	
==>{
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self-> <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24647	24753	
==>{
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self-> <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25305	25411	
==>{
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self-> <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25658	25764	
==>{
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self-> <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26315	26421	
==>{
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self-> <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26546	26652	
==>{
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self-> <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27205	27311	
==>{
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self-> <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27556	27662	
==>{
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self-> <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221846	222129	
==>ELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222788	223071	
==>ELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223729	224012	
==>ELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224671	224954	
==>ELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225611	225894	
==>ELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226552	226835	
==>ELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227531	227814	
==>ELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge", <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	68537	68646	
==>ive lookahead ("...")' ;
			_warn(1,"Found two or more lookahead specifiers in a
			       row.",$line)
			and <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213292	213575	
==>ELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214233	214516	
==>ELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215173	215456	
==>ELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216114	216397	
==>ELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217053	217336	
==>ELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217993	218276	
==>ELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218971	219254	
==>ELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044445	1044716	
==>ction",
                  "CODE" => 1167,
                  "ARGS" => [
                              "k",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 130 \"src/ops/var.ops\"\n    P <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897145	897233	
==>ODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, { <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898163	898251	
==>ODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, { <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899181	899269	
==>ODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, { <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900200	900288	
==>ODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, { <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901218	901306	
==>ODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, { <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902237	902325	
==>ODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, { <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903256	903344	
==>ODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, { <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904276	904364	
==>ODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, { <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438889	439189	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439903	440203	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440918	441218	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441932	442232	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442947	443247	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443961	444261	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444976	445276	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	37517	37617	
==>p_string_gt_p,
  'string<=?'     => \&_op_string_le_p,
  'string>=?'     => \&_op_string_ge_p,
  'str <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692873	692965	
==>rc/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693873	693965	
==>rc/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694873	694965	
==>rc/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695874	695966	
==>rc/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696874	696966	
==>rc/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697875	697967	
==>rc/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698876	698968	
==>rc/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699878	699970	
==>rc/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692859	692947	
==>"#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693859	693947	
==>"#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694859	694947	
==>"#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695860	695948	
==>"#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696860	696948	
==>"#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697861	697949	
==>"#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698862	698950	
==>"#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699864	699952	
==>"#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438916	439247	
==>P" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439930	440261	
==>P" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440945	441276	
==>P" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441959	442290	
==>P" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442974	443305	
==>P" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443988	444319	
==>P" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	445003	445334	
==>P" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3436	3533	
==>ee">

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

T <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503443	503751	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504297	504605	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505152	505460	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506007	506315	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506861	507169	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507716	508024	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
8	/Users/nnunley/parrot/lib/Text/Balanced.pm	52428	52521	
==>ct_multiple> starts at the current C<pos> of the string, and
sets that C<pos> appropriately af <==
8	/Users/nnunley/parrot/examples/benchmarks/addit.pl	83	172	
==>benchmarks/addit.pl 19601 2006-05-30T13:32:26.641316Z coke  $

=head1 NAME

examples/bench <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412971	413081	
==>NTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414098	414208	
==>NTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415225	415335	
==>NTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416353	416463	
==>NTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417480	417590	
==>NTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418608	418718	
==>NTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419736	419846	
==>NTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420865	420975	
==>NTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351032	351272	
==>{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351694	351934	
==>{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352351	352591	
==>{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353009	353249	
==>{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356713	356953	
==>{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357373	357613	
==>{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358036	358276	
==>{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358700	358940	
==>{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822268	822362	
==>\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823336	823430	
==>\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824403	824497	
==>\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825474	825568	
==>\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826544	826638	
==>\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827614	827708	
==>\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828683	828777	
==>\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829751	829845	
==>\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374147	374471	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375030	375354	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375913	376237	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376797	377121	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377680	378004	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378564	378888	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379448	379772	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
8	/Users/nnunley/parrot/tools/build/ops2c.pl	688	783	
==>orms

The first command-line argument is the last package name component of a
subclass of C<Parr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888267	888640	
==>}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "su <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889401	889774	
==>}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "su <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890535	890908	
==>}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "su <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891670	892043	
==>}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "su <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892804	893177	
==>}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "su <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893939	894312	
==>}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "su <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895074	895447	
==>}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "su <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896210	896583	
==>}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "su <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213465	213638	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214406	214579	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215346	215519	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216287	216460	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217226	217399	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218166	218339	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219144	219317	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  " <==
8	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	31	119	
==>-2006, The Perl Foundation.
# $Id: /parrot/tools/dev/check_source_standards.pl 19607 2006 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374145	374468	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375028	375351	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375911	376234	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376795	377118	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377678	378001	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378562	378885	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379446	379769	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS <==
8	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	8667	8771	
==>||
	         $rule->{'class'} eq 'load' || $rule->{'class'} eq 'calling')) {
		die "typeinfo must be supp <==
8	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	12302	12409	
==>urn ($back, @ops);
}

sub rewrite_advance {
    my ($self, $op, $howfar, $lastback) = @_;
    my $back = $se <==
8	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	15021	15135	
==>ame, $method);
            my $sub_meth_decl_h = $self->decl($classname, $method, 1);
            $sub_meth_decl =~ <==
8	/Users/nnunley/parrot/languages/python/pie-thon.pl	19945	20048	
==>}
    if ($opcode eq 'Label') {
	$label = "pc_" . $code[$code_l]->[3] . ":";
	$code_l++;
	($opcode, $res <==
8	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	410	513	
==>{
  my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  #$new- <==
8	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	708	810	
==>{
  my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new- <==
8	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	214	316	
==>{
  my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new- <==
8	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	213	315	
==>{
  my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new- <==
8	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	462	564	
==>{
  my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new- <==
8	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	174	276	
==>{
  my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new- <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396158	396453	
==>{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397238	397533	
==>{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398318	398613	
==>{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399399	399694	
==>{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400479	400774	
==>{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401560	401855	
==>{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402641	402936	
==>{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403723	404018	
==>{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
8	/Users/nnunley/parrot/config/init/hints/solaris.pm	762	864	
==>version test.  (If we were to
    # wait till it's normally run, the linker question would have already <==
8	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15544	15629	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

1;


__END_ <==
8	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2129	2213	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__END_ <==
8	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3054	3138	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__END_ <==
8	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	769	853	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__END_ <==
8	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3524	3607	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__END_ <==
8	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2277	2360	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__END_ <==
8	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2380	2463	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__END_ <==
8	/Users/nnunley/parrot/lib/Pod/Simple.pm	27309	27436	
==>xtension '$e'\n";
      }
    }


    if( defined $canonical_form ) {
      # We found a good N => elementname mapping
      $se <==
8	/Users/nnunley/parrot/config/inter/libparrot.pm	445	539	
==>ption @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':i <==
8	/Users/nnunley/parrot/config/inter/charset.pm	323	413	
==>ption @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':i <==
8	/Users/nnunley/parrot/config/inter/encoding.pm	328	418	
==>ption @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':i <==
8	/Users/nnunley/parrot/config/inter/ops.pm	303	393	
==>ption @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':i <==
8	/Users/nnunley/parrot/config/inter/progs.pm	442	532	
==>ption @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':i <==
8	/Users/nnunley/parrot/config/inter/shlibs.pm	602	692	
==>ption @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':i <==
8	/Users/nnunley/parrot/config/inter/types.pm	354	444	
==>ption @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692882	692994	
==>c.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693882	693994	
==>c.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694882	694994	
==>c.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695883	695995	
==>c.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696883	696995	
==>c.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697884	697996	
==>c.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698885	698997	
==>c.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699887	699999	
==>c.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213459	213613	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_c <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214400	214554	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_c <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215340	215494	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_c <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216281	216435	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_c <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217220	217374	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_c <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218160	218314	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_c <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219138	219292	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_c <==
8	/Users/nnunley/parrot/config/init/defaults.pm	6033	6153	
==>[1],
        PATCH   => $main::parrot_version[2],
        DEVEL   => (-e 'DEVELOPING' ? '-devel' : ''),

        configda <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627086	627180	
==>\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpreter <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628230	628324	
==>\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpreter <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632488	632582	
==>\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpreter <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633530	633624	
==>\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpreter <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634587	634681	
==>\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpreter <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635705	635799	
==>\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpreter <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636823	636917	
==>\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpreter <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637942	638036	
==>\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpreter <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70917	71170	
==>nterpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71686	71939	
==>nterpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100426	100679	
==>nterpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104874	105127	
==>nterpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	252986	253239	
==>nterpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450915	451168	
==>nterpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	513314	513567	
==>nterpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578416	578669	
==>nterpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438635	438990	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439649	440004	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440664	441019	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441678	442033	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442693	443048	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443707	444062	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444722	445077	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438240	438538	
==>line",
                  "CODE" => 502,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 99 \"src/ops/math.ops\" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879307	879399	
==>est)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, { <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880411	880503	
==>est)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, { <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881515	881607	
==>est)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, { <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882620	882712	
==>est)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, { <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883725	883817	
==>est)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, { <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884831	884923	
==>est)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, { <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885937	886029	
==>est)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, { <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887044	887136	
==>est)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, { <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439590	439879	
==>nterpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440605	440894	
==>nterpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441619	441908	
==>nterpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442634	442923	
==>nterpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443648	443937	
==>nterpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444663	444952	
==>nterpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	445677	445966	
==>nterpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
8	/Users/nnunley/parrot/tools/build/nativecall.pl	1894	1988	
==>tination = pmc_new(interpreter, enum_class_UnManagedStruct);",
       t => "STRING *final_desti <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63768	63900	
==>rule,
										   $argcode);
										   
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$line,"$code$ <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63061	63179	
==>rule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$line,"$code$ <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64498	64616	
==>rule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$line,"$code$ <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65153	65271	
==>rule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$line,"$code$ <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65813	65931	
==>rule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$line,"$code$ <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	66532	66650	
==>rule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$line,"$code$ <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62427	62542	
==>rule,
									   $argcode);
					$prod and $prod->additem($item)
					      or  _no_rule("repetition",$line,"$code$ <==
8	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	271	373	
==>ift;
	return bless {}, $invocant;
}

# Pre-translation hook.
sub pre_translation() {
	# We need to emit <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871203	871545	
==>}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subs <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872220	872562	
==>}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subs <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873237	873579	
==>}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subs <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874255	874597	
==>}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subs <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875272	875614	
==>}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subs <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876290	876632	
==>}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subs <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877308	877650	
==>}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subs <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878327	878669	
==>}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subs <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822240	822341	
==>ck, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823308	823409	
==>ck, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824375	824476	
==>ck, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825446	825547	
==>ck, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826516	826617	
==>ck, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827586	827687	
==>ck, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828655	828756	
==>ck, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829723	829824	
==>ck, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396118	396216	
==>@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397198	397296	
==>@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398278	398376	
==>@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399359	399457	
==>@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400439	400537	
==>@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401520	401618	
==>@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402601	402699	
==>@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403683	403781	
==>@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	972366	972731	
==>class",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 109 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973494	973859	
==>class",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 109 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974623	974988	
==>class",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 109 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975752	976117	
==>class",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 109 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976882	977247	
==>class",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 109 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978011	978376	
==>class",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 109 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979141	979506	
==>class",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 109 <==
8	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	20486	20665	
==>};
            } else {
                # Not a group; jump straight to instruction.
                my $name = $_->{'name'};
                $name =~ s/\./_/g;
                $pi <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950621	950916	
==>er, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951581	951876	
==>er, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952541	952836	
==>er, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953502	953797	
==>er, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961079	961374	
==>er, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962041	962336	
==>er, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963003	963298	
==>er, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963966	964261	
==>er, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503921	504094	
==>",
                              "i"
                            ],
                  "BODY" => "#line 631 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504776	504949	
==>",
                              "i"
                            ],
                  "BODY" => "#line 631 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550303	550399	
==>eal_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  } <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551604	551700	
==>eal_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  } <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554156	554252	
==>eal_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  } <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555553	555649	
==>eal_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  } <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558208	558304	
==>eal_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  } <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559592	559688	
==>eal_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  } <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692897	693041	
==>register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693897	694041	
==>register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694897	695041	
==>register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695898	696042	
==>register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696898	697042	
==>register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697899	698043	
==>register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698900	699044	
==>register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699902	700046	
==>register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385449	385805	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":b <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386580	386936	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":b <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387711	388067	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":b <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388843	389199	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":b <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389974	390330	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":b <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391106	391462	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":b <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392238	392594	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":b <==
8	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5955	6056	
==>turn qq!$reg = <rx_match>{"$group"}->[0]; # get group $group start!;
}

sub output_getend {
    my ($s <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426197	426453	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427084	427340	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427970	428226	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428857	429113	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429743	429999	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430630	430886	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431516	431772	
==>nterpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
8	/Users/nnunley/parrot/config/gen/platform.pm	1151	1254	
==>rated = '' unless defined $generated;
    print " ($generated) " if $verbose;
    print("\n") if defined <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454072	454315	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454926	455169	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455781	456024	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456636	456879	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457490	457733	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458345	458588	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9594	9714	
==>BG>				$debug & 0x10
#DBG>			and	print STDERR "**At eof: aborting.\n";
				return(undef);
			};

#DBG>			$debug & 0x <==
8	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9162	9277	
==>BG>				$debug & 0x10
#DBG>			and	print STDERR "**At eof: aborting.\n";
				return(undef);
			};

#DBG>			$debug & 0x <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385416	385760	
==>t)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386547	386891	
==>t)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387678	388022	
==>t)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388810	389154	
==>t)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389941	390285	
==>t)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391073	391417	
==>t)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392205	392549	
==>t)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393338	393682	
==>t)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964200	964481	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965207	965488	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966215	966496	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967223	967504	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968232	968513	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969240	969521	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970249	970530	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971258	971539	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	821682	821946	
==>lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 9 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822749	823013	
==>lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 9 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823817	824081	
==>lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 9 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824887	825151	
==>lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 9 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825958	826222	
==>lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 9 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827027	827291	
==>lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 9 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828097	828361	
==>lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 9 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829164	829428	
==>lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 9 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909372	909695	
==>rpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910269	910592	
==>rpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911166	911489	
==>rpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912064	912387	
==>rpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849915	850236	
==>rpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850802	851123	
==>rpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851689	852010	
==>rpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852577	852898	
==>rpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	339033	339343	
==>> ":base_io",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 397,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717415	717698	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718346	718629	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719278	719561	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720477	720760	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721677	721960	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722705	722988	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723734	724017	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385446	385803	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386577	386934	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387708	388065	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388840	389197	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389971	390328	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391103	391460	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392235	392592	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209749	210077	
==>":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 247,
                  "ARGS" => [
                              "p <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830690	830879	
==>>user_stack, &i, STACK_ENTRY_INT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'P <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831431	831620	
==>>user_stack, &i, STACK_ENTRY_INT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'P <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23848	23953	
==>rse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;
		') . <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22436	22539	
==>rse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE; ') . <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21024	21125	
==>rse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;'). <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27333	27434	
==>rse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;'). <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29443	29544	
==>rse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;'). <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31540	31641	
==>rse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;'). <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23846	23950	
==>Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;
		' <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22434	22536	
==>Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE; ' <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20357	20458	
==>Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;' <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21022	21123	
==>Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;' <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27331	27432	
==>Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;' <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29441	29542	
==>Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;' <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31538	31639	
==>Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;' <==
8	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tests.pm	617	705	
==>ew_group('Tools', '', 't/harness'),
		$self->new_group('Native Bytecode Tests', '', 't/na <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	675554	675838	
==>P" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676333	676617	
==>P" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677113	677397	
==>P" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677890	678174	
==>P" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678668	678952	
==>P" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679446	679730	
==>P" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680225	680509	
==>P" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
8	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1501	1595	
==>n $addr;
}

=item C<expr_offset($offset)>

Returns the C code for C<OFFSET($offset)>. Called by <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849936	850243	
==>@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850823	851130	
==>@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851710	852017	
==>@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852598	852905	
==>@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867320	867627	
==>@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868286	868593	
==>@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869252	869559	
==>@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870219	870526	
==>@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396098	396193	
==>preter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_c <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397178	397273	
==>preter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_c <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398258	398353	
==>preter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_c <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399339	399434	
==>preter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_c <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400419	400514	
==>preter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_c <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401500	401595	
==>preter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_c <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402581	402676	
==>preter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_c <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403663	403758	
==>preter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_c <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383662	384021	
==>base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 448,
                  "ARGS" => [
                              "p",
                              "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431816	432148	
==>" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432830	433162	
==>" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433845	434177	
==>" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434859	435191	
==>" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435874	436206	
==>" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436888	437220	
==>" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437903	438235	
==>" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950611	950905	
==>(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951571	951865	
==>(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952531	952825	
==>(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953492	953786	
==>(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961069	961363	
==>(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962031	962325	
==>(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962993	963287	
==>(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963956	964250	
==>(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385311	385412	
==>{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (6 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386442	386543	
==>{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (6 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387573	387674	
==>{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (6 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388705	388806	
==>{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (6 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389836	389937	
==>{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (6 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390968	391069	
==>{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (6 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392100	392201	
==>{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (6 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393233	393334	
==>{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (6 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871164	871456	
==>ter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872181	872473	
==>ter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873198	873490	
==>ter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874216	874508	
==>ter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875233	875525	
==>ter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876251	876543	
==>ter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877269	877561	
==>ter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878288	878580	
==>ter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385286	385384	
==>@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386417	386515	
==>@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387548	387646	
==>@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388680	388778	
==>@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389811	389909	
==>@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390943	391041	
==>@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392075	392173	
==>@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393208	393306	
==>@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888183	888285	
==>\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889317	889419	
==>\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890451	890553	
==>\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891586	891688	
==>\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892720	892822	
==>\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893855	893957	
==>\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	894990	895092	
==>\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896126	896228	
==>\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692863	692956	
==>ne 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693863	693956	
==>ne 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694863	694956	
==>ne 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695864	695957	
==>ne 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696864	696957	
==>ne 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697865	697958	
==>ne 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698866	698959	
==>ne 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699868	699961	
==>ne 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700231	700626	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701221	701616	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702212	702607	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703203	703598	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704195	704590	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705186	705581	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706178	706573	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	707170	707565	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550421	550642	
==>*)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551722	551943	
==>*)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552913	553134	
==>*)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558326	558547	
==>*)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559710	559931	
==>*)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560931	561152	
==>*)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
8	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	3146	3278	
==>osname}       = $1;
  $html =~ /cc: ([\w\d]+)/         and $smoke{cc}           = $1;
  $html =~ /DEVEL: -?(\w+)/        and $smoke{D <==
8	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	58	147	
==>lib/Parrot/Docs/Section.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Par <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099022	1099122	
==>DY" => "#line 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100220	1100320	
==>DY" => "#line 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101418	1101518	
==>DY" => "#line 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102617	1102717	
==>DY" => "#line 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950558	950646	
==>rpreter, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951518	951606	
==>rpreter, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952478	952566	
==>rpreter, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953439	953527	
==>rpreter, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412194	412475	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413320	413601	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414447	414728	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415574	415855	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416702	416983	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417829	418110	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418957	419238	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420085	420366	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454067	454276	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454921	455130	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455776	455985	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456631	456840	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457485	457694	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458340	458549	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6841	6986	
==>or recovery.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push(@$stack,[ $act, $$value ]);

					$$token ne ''	#Don't e <==
8	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6524	6661	
==>or recovery.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push(@$stack,[ $act, $$value ]);

					$$token ne ''	#Don't e <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	821673	821941	
==>AME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822740	823008	
==>AME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823808	824076	
==>AME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824878	825146	
==>AME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825949	826217	
==>AME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827018	827286	
==>AME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828088	828356	
==>AME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829155	829423	
==>AME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361791	362033	
==>}\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362690	362932	
==>}\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363592	363834	
==>}\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364495	364737	
==>}\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365334	365576	
==>}\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366174	366416	
==>}\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367072	367314	
==>}\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
8	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3488	3587	
==>tch. The same pattern argument syntax above applies here.

=cut

sub pgeglob_isnt {
    my ($target, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888309	888682	
==>BELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889443	889816	
==>BELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890577	890950	
==>BELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891712	892085	
==>BELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892846	893219	
==>BELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893981	894354	
==>BELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895116	895489	
==>BELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896252	896625	
==>BELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385143	385288	
==>"
                            ],
                  "BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386274	386419	
==>"
                            ],
                  "BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387405	387550	
==>"
                            ],
                  "BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388537	388682	
==>"
                            ],
                  "BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389668	389813	
==>"
                            ],
                  "BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390800	390945	
==>"
                            ],
                  "BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391932	392077	
==>"
                            ],
                  "BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393065	393210	
==>"
                            ],
                  "BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871143	871325	
==>tring_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872160	872342	
==>tring_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873177	873359	
==>tring_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874195	874377	
==>tring_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875212	875394	
==>tring_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876230	876412	
==>tring_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877248	877430	
==>tring_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878267	878449	
==>tring_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586894	587043	
==>);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588080	588229	
==>);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589266	589415	
==>);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590453	590602	
==>);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591662	591811	
==>);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592872	593021	
==>);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594082	594231	
==>);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595293	595442	
==>);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385384	385682	
==>, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386515	386813	
==>, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387646	387944	
==>, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388778	389076	
==>, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389909	390207	
==>, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391041	391339	
==>, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392173	392471	
==>, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393306	393604	
==>, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692207	692484	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693206	693483	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694206	694483	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695206	695483	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696207	696484	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697207	697484	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698208	698485	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699209	699486	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879353	879448	
==>, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880457	880552	
==>, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881561	881656	
==>, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882666	882761	
==>, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883771	883866	
==>, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884877	884972	
==>, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885983	886078	
==>, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887090	887185	
==>, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412247	412610	
==>0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413373	413736	
==>0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414500	414863	
==>0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415627	415990	
==>0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416755	417118	
==>0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417882	418245	
==>0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419010	419373	
==>0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420138	420501	
==>0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822130	822219	
==>stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823198	823287	
==>stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824265	824354	
==>stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825336	825425	
==>stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826406	826495	
==>stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827476	827565	
==>stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828545	828634	
==>stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829613	829702	
==>stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385344	385448	
==>\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386475	386579	
==>\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387606	387710	
==>\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388738	388842	
==>\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389869	389973	
==>\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391001	391105	
==>\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392133	392237	
==>\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393266	393370	
==>\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692797	692936	
==>p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693797	693936	
==>p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694797	694936	
==>p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695798	695937	
==>p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696798	696937	
==>p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697799	697938	
==>p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698800	698939	
==>p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699802	699941	
==>p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964251	964586	
==>JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965258	965593	
==>JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966266	966601	
==>JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967274	967609	
==>JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968283	968618	
==>JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969291	969626	
==>JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970300	970635	
==>JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971309	971644	
==>JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822126	822214	
==>ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(in <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823194	823282	
==>ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(in <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824261	824349	
==>ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(in <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825332	825420	
==>ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(in <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826402	826490	
==>ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(in <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827472	827560	
==>ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(in <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828541	828629	
==>ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(in <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829609	829697	
==>ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(in <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584418	584512	
==>bject.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585493	585587	
==>bject.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586640	586734	
==>bject.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587826	587920	
==>bject.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589012	589106	
==>bject.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590199	590293	
==>bject.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597934	598028	
==>bject.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598981	599075	
==>bject.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871106	871210	
==>\"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872123	872227	
==>\"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873140	873244	
==>\"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874158	874262	
==>\"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875175	875279	
==>\"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876193	876297	
==>\"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877211	877315	
==>\"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878230	878334	
==>\"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n <==
8	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	1329	1462	
==>chunk .= $line;
            $verbatim_chunk .= "\n";

            # bracket the verbatim chunk with whitespace.
            push @outp <==
8	/Users/nnunley/parrot/lib/Parrot/PMC.pm	1111	1209	
==>> 51,
	AddrRegistry => 52,
	Bound_NCI => 53,
	deleg_pmc => 54,
	Enumerate => 55,
	FixedBooleanArray <==
8	/Users/nnunley/parrot/tools/build/c2str.pl	4308	4402	
==>ic_string_${line} static_string_$known_strings{$text}

DATA
  }
  else {
    $known_strings{$te <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896588	896921	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 101 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897605	897938	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 101 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898623	898956	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 101 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899641	899974	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 101 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900660	900993	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 101 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901678	902011	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 101 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902697	903030	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 101 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903716	904049	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 101 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912354	912685	
==>UMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913364	913695	
==>UMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914375	914706	
==>UMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915386	915717	
==>UMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916398	916729	
==>UMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917409	917740	
==>UMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918421	918752	
==>UMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919433	919764	
==>UMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	3874	4042	
==>->short_description;
            
            next unless $short_desc;
            
            next if grep {$_ eq $short_desc} @short_desc;
            
            pu <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912356	912697	
==>P" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913366	913707	
==>P" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914377	914718	
==>P" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915388	915729	
==>P" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916400	916741	
==>P" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917411	917752	
==>P" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918423	918764	
==>P" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919435	919776	
==>P" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
8	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3202	3302	
==>output_ge {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_test('>=', $val1, $val2, $des <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95007	95317	
==>@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95900	96210	
==>@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96793	97103	
==>@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111329	111639	
==>@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112221	112531	
==>@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113113	113423	
==>@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135538	135848	
==>@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136432	136742	
==>@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385440	385795	
==>+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386571	386926	
==>+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387702	388057	
==>+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388834	389189	
==>+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389965	390320	
==>+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391097	391452	
==>+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392229	392584	
==>+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131161	131395	
==>GS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 306 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} ^ {{\@3}};\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822168	822263	
==>ntry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n  if (!en <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823236	823331	
==>ntry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n  if (!en <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824303	824398	
==>ntry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n  if (!en <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825374	825469	
==>ntry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n  if (!en <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826444	826539	
==>ntry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n  if (!en <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827514	827609	
==>ntry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n  if (!en <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828583	828678	
==>ntry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n  if (!en <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829651	829746	
==>ntry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n  if (!en <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	513518	513795	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514397	514674	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515277	515554	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1098449	1098726	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099646	1099923	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100844	1101121	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102042	1102319	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
8	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	27149	27252	
==>extname, $extargs, $lastback ]));
    }
}

sub describe_seq { undef };
sub describe_check { undef };
sub <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822234	822332	
==>er_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (ent <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823302	823400	
==>er_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (ent <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824369	824467	
==>er_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (ent <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825440	825538	
==>er_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (ent <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826510	826608	
==>er_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (ent <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827580	827678	
==>er_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (ent <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828649	828747	
==>er_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (ent <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829717	829815	
==>er_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (ent <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700182	700409	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701172	701399	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702163	702390	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703154	703381	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704146	704373	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705137	705364	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706129	706356	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	707121	707348	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888353	888688	
==>,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889487	889822	
==>,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890621	890956	
==>,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891756	892091	
==>,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892890	893225	
==>,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	894025	894360	
==>,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895160	895495	
==>,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896296	896631	
==>,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438944	439256	
==>NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439958	440270	
==>NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440973	441285	
==>NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441987	442299	
==>NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443002	443314	
==>NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444016	444328	
==>NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	445031	445343	
==>NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
8	/Users/nnunley/parrot/lib/Test/Simple.pm	4451	4550	
==>maximum of 254 failures in its exit
code.  If this is a problem, you probably have a huge test scrip <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781993	782309	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 883,
                  "AR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	675495	675739	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676274	676518	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677054	677298	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677831	678075	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678609	678853	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679387	679631	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680166	680410	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385370	385677	
==>erpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386501	386808	
==>erpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387632	387939	
==>erpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388764	389071	
==>erpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389895	390202	
==>erpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391027	391334	
==>erpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392159	392466	
==>erpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393292	393599	
==>erpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	445908	446130	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	446544	446766	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447181	447403	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	448003	448225	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	448829	449051	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449489	449711	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
8	/Users/nnunley/parrot/config/gen/platform.pm	4968	5101	
==>ATFORM_C <IN_C>, "\n\n";
            close IN_C;
        }
    }

    # append generated c files
    @impls = grep { /\.c$/ } split(', <==
8	/Users/nnunley/parrot/tools/build/nativecall.pl	2162	2260	
==>_header(interpreter);\nPObj_external_SET(final_destination)",
     );

my %ret_type_decl =
     ( p <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871169	871473	
==>{{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872186	872490	
==>{{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873203	873507	
==>{{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874221	874525	
==>{{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875238	875542	
==>{{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876256	876560	
==>{{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877274	877578	
==>{{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878293	878597	
==>{{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	395459	395806	
==>" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396538	396885	
==>" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397618	397965	
==>" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398698	399045	
==>" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399779	400126	
==>" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400859	401206	
==>" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401940	402287	
==>" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403021	403368	
==>" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888174	888269	
==>ing.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}}) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889308	889403	
==>ing.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}}) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890442	890537	
==>ing.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}}) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891577	891672	
==>ing.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}}) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892711	892806	
==>ing.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}}) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893846	893941	
==>ing.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}}) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	894981	895076	
==>ing.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}}) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896117	896212	
==>ing.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}}) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23996	24245	
==>{{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS| <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550472	550721	
==>{{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS| <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551773	552022	
==>{{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS| <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552964	553213	
==>{{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS| <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558377	558626	
==>{{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS| <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559761	560010	
==>{{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS| <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560982	561231	
==>{{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS| <==
8	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	1122	1232	
==>op->{args} });
}

sub lookup_var {
    my ($self, $var, $ctx) = @_;
    return $ctx->{$var} || $var;
}

sub out <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	7	106	
==>e.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subjec <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	7	106	
==>e.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subjec <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	11	110	
==>e.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subjec <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	8	107	
==>e.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subjec <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	11	110	
==>e.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subjec <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	8	107	
==>e.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subjec <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	10	109	
==>e.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subjec <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	7	106	
==>e.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subjec <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396185	396504	
==>r, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397265	397584	
==>r, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398345	398664	
==>r, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399426	399745	
==>r, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400506	400825	
==>r, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401587	401906	
==>r, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402668	402987	
==>r, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403750	404069	
==>r, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627146	627244	
==>) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628290	628388	
==>) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632548	632646	
==>) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633590	633688	
==>) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634647	634745	
==>) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635765	635863	
==>) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636883	636981	
==>) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638002	638100	
==>) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432487	432776	
==>terpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433502	433791	
==>terpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434516	434805	
==>terpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435531	435820	
==>terpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436545	436834	
==>terpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437560	437849	
==>terpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438574	438863	
==>terpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
8	/Users/nnunley/parrot/languages/lua/Lua/build.pm	25411	25527	
==>des = ();
    my $cond = get_cond( $parser, $expr );
    push @opcodes, @{ $cond->[1] };
    my $l_end  = new_labe <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2630	2724	
==>f->left->sax($handler);
    $self->right->sax($handler);
    $handler->end_element({ Name => 'o <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2507	2601	
==>f->left->sax($handler);
    $self->right->sax($handler);
    $handler->end_element({ Name => 'o <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747287	747374	
==>ps\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748072	748159	
==>ps\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753581	753668	
==>ps\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754369	754456	
==>ps\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324703	324789	
==>ps\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}},{{\@2}});\n  {{+=3}};\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325496	325582	
==>ps\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}},{{\@2}});\n  {{+=3}};\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822128	822216	
==>s/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(inte <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823196	823284	
==>s/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(inte <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824263	824351	
==>s/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(inte <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825334	825422	
==>s/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(inte <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826404	826492	
==>s/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(inte <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827474	827562	
==>s/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(inte <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828543	828631	
==>s/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(inte <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829611	829699	
==>s/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(inte <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699976	700331	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAG <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700966	701321	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAG <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701957	702312	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAG <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702948	703303	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAG <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703940	704295	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAG <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704931	705286	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAG <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705923	706278	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAG <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706915	707270	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAG <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830732	830973	
==>EANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sa <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831473	831714	
==>EANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sa <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832200	832441	
==>EANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sa <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832928	833169	
==>EANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sa <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833650	833891	
==>EANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sa <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834375	834616	
==>EANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sa <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835101	835342	
==>EANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sa <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835853	836094	
==>EANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sa <==
8	/Users/nnunley/parrot/config/auto/bc.pm	396	494	
==>ict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use <==
8	/Users/nnunley/parrot/config/auto/gdbm.pm	341	439	
==>ict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use <==
8	/Users/nnunley/parrot/config/auto/gmp.pm	295	393	
==>ict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use <==
8	/Users/nnunley/parrot/config/auto/m4.pm	370	468	
==>ict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use <==
8	/Users/nnunley/parrot/config/auto/readline.pm	302	400	
==>ict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use <==
8	/Users/nnunley/parrot/config/gen/icu.pm	275	373	
==>ict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use <==
8	/Users/nnunley/parrot/config/init/defaults.pm	323	421	
==>ict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use <==
8	/Users/nnunley/parrot/config/init/optimize.pm	388	486	
==>ict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586902	587174	
==>n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588088	588360	
==>n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589274	589546	
==>n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590461	590733	
==>n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591670	591942	
==>n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592880	593152	
==>n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594090	594362	
==>n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595301	595573	
==>n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
8	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Compilers.pm	641	746	
==>::new(
        'Compilers', 'compilers.html', '',
        $self->new_group( 'IMCC', 'the Intermediate Co <==
8	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	906	999	
==>C<c_pair_item($text, $name)>

Returns a new C source and header file documentation item.

=cut <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550172	550261	
==>\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_method(interpreter, ob <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551473	551562	
==>\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_method(interpreter, ob <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554025	554114	
==>\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_method(interpreter, ob <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555422	555511	
==>\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_method(interpreter, ob <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558077	558166	
==>\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_method(interpreter, ob <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559461	559550	
==>\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_method(interpreter, ob <==
8	/Users/nnunley/parrot/tools/dev/nm.pl	1730	1828	
==>cal.

=item C<--type=bsd>

=item C<-B>

The same as C<--t>.

=item C<--type=long>

=item C<-L>

App <==
8	/Users/nnunley/parrot/lib/Text/Balanced.pm	27563	27657	
==>peated calls, so it only works under Perl 5.005 or later.

	$extract_head = gen_extract_tagged( <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550374	550466	
==>' not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551675	551767	
==>' not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554227	554319	
==>' not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555624	555716	
==>' not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558279	558371	
==>' not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559663	559755	
==>' not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912390	912723	
==>=> "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913400	913733	
==>=> "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914411	914744	
==>=> "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915422	915755	
==>=> "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916434	916767	
==>=> "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917445	917778	
==>=> "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918457	918790	
==>=> "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919469	919802	
==>=> "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878334	878674	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879437	879777	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880541	880881	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881645	881985	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882750	883090	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883855	884195	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884961	885301	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886067	886407	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047671	1047845	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "A <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048594	1048768	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "A <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049518	1049692	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "A <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050551	1050725	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "A <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051585	1051759	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "A <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052619	1052793	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "A <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053654	1053828	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "A <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054780	1054954	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "A <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692969	693305	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693969	694305	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694969	695305	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695970	696306	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696970	697306	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697971	698307	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698972	699308	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900039	900266	
==>s",
                              "ic",
                              "ic",
                              "s"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896541	896878	
==>JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897558	897895	
==>JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898576	898913	
==>JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899594	899931	
==>JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900613	900950	
==>JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901631	901968	
==>JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902650	902987	
==>JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903669	904006	
==>JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888163	888250	
==>src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889297	889384	
==>src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890431	890518	
==>src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891566	891653	
==>src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892700	892787	
==>src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893835	893922	
==>src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	894970	895057	
==>src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896106	896193	
==>src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700201	700578	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701191	701568	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702182	702559	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703173	703550	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704165	704542	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705156	705533	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706148	706525	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	707140	707517	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579369	579472	
==>next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '% <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580674	580777	
==>next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '% <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581979	582082	
==>next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '% <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583285	583388	
==>next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '% <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586724	586827	
==>next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '% <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587910	588013	
==>next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '% <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589096	589199	
==>next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '% <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590283	590386	
==>next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '% <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361811	362068	
==>Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362710	362967	
==>Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363612	363869	
==>Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364515	364772	
==>Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365354	365611	
==>Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366194	366451	
==>Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367092	367349	
==>Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
8	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	29344	29451	
==>k);
#    }

    my $uid = "_rule_${name}_" . ++$call_uid;

    my $handle = $self->genlabel('handle_call_res <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454684	454973	
==>n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455539	455828	
==>n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456394	456683	
==>n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457248	457537	
==>n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458103	458392	
==>n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458958	459247	
==>n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
8	/Users/nnunley/parrot/lib/Text/Balanced.pm	49119	49211	
==>mitting the first argument (input text) means process C<$_> instead.
Omitting the second argu <==
8	/Users/nnunley/parrot/lib/Text/Balanced.pm	41098	41189	
==>ad2 C<gen_extract_tagged>

(Note: This subroutine is only available under Perl5.005)

C<gen_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964860	964948	
==>e 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, { <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965868	965956	
==>e 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, { <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966876	966964	
==>e 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, { <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967885	967973	
==>e 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, { <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968893	968981	
==>e 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, { <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969902	969990	
==>e 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, { <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970911	970999	
==>e 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, { <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971921	972009	
==>e 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, { <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586922	587192	
==>subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588108	588378	
==>subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589294	589564	
==>subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590481	590751	
==>subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591690	591960	
==>subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592900	593170	
==>subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594110	594380	
==>subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595321	595591	
==>subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	282289	282576	
==>\@1}} = {{\@2}} < {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283134	283421	
==>\@1}} = {{\@2}} < {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283979	284266	
==>\@1}} = {{\@2}} < {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072529	1072628	
==>{{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we used abs({{\@4} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074714	1074813	
==>{{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we used abs({{\@4} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076899	1076998	
==>{{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we used abs({{\@4} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079085	1079184	
==>{{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we used abs({{\@4} <==
8	/Users/nnunley/parrot/tools/build/jit2c.pl	479	575	
==>lib 'lib';

use Parrot::OpLib::core;
use Parrot::Op;
use Parrot::OpTrans::C;

my $trans = Parrot: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879429	879771	
==>st, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880533	880875	
==>st, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881637	881979	
==>st, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882742	883084	
==>st, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883847	884189	
==>st, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884953	885295	
==>st, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886059	886401	
==>st, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887166	887508	
==>st, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24492	24626	
==>^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $t <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24723	24857	
==>^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $t <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25381	25515	
==>^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $t <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25734	25868	
==>^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $t <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26391	26525	
==>^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $t <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26622	26756	
==>^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $t <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27281	27415	
==>^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $t <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27632	27766	
==>^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $t <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879418	879758	
==>{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880522	880862	
==>{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881626	881966	
==>{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882731	883071	
==>{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883836	884176	
==>{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884942	885282	
==>{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886048	886388	
==>{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887155	887495	
==>{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396146	396293	
==>}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397226	397373	
==>}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398306	398453	
==>}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399387	399534	
==>}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400467	400614	
==>}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401548	401695	
==>}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402629	402776	
==>}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403711	403858	
==>}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	821671	821915	
==>"NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822738	822982	
==>"NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823806	824050	
==>"NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824876	825120	
==>"NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825947	826191	
==>"NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827016	827260	
==>"NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828086	828330	
==>"NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829153	829397	
==>"NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700009	700364	
==>> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGD <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700999	701354	
==>> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGD <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701990	702345	
==>> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGD <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702981	703336	
==>> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGD <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703973	704328	
==>> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGD <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704964	705319	
==>> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGD <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705956	706311	
==>> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGD <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706948	707303	
==>> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGD <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667607	667883	
==>{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668381	668657	
==>{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669152	669428	
==>{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669924	670200	
==>{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670696	670972	
==>{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671469	671745	
==>{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	35552	35826	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666836	667110	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897231	897564	
==>, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898249	898582	
==>, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899267	899600	
==>, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900286	900619	
==>, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901304	901637	
==>, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902323	902656	
==>, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903342	903675	
==>, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904362	904695	
==>, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879388	879680	
==>terpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880492	880784	
==>terpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881596	881888	
==>terpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882701	882993	
==>terpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883806	884098	
==>terpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884912	885204	
==>terpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886018	886310	
==>terpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887125	887417	
==>terpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24449	24559	
==>$node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($ <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24680	24790	
==>$node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($ <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25338	25448	
==>$node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($ <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25691	25801	
==>$node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($ <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26348	26458	
==>$node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($ <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26579	26689	
==>$node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($ <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27238	27348	
==>$node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($ <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27589	27699	
==>$node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350526	350786	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351187	351447	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351849	352109	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352506	352766	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353164	353424	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353908	354168	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354653	354913	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	624521	624717	
==>DE" => 702,
                  "ARGS" => [
                              "pc"
                            ],
                  "BODY" => "#line 247 \"src/ops/pic.ops\"\n    Parrot_MIC *mic;\n    Par <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273398	273667	
==>e",
                  "CODE" => 318,
                  "ARGS" => [
                              "i",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 876 \"src/ops/cmp.ops\"\n  {{\@1} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264385	264648	
==>src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265239	265502	
==>src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266093	266356	
==>src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266948	267211	
==>src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299558	299817	
==>src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300404	300663	
==>src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301250	301509	
==>src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213470	213643	
==>),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214411	214584	
==>),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215351	215524	
==>),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216292	216465	
==>),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217231	217404	
==>),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218171	218344	
==>),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219149	219322	
==>),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	1685	1796	
==>nt if $pos > $count; # Just past the end (in case we get more tokens)

    $self->{POS} = $pos;

    $self->file <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	821535	821803	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822602	822870	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823670	823938	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824740	825008	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825811	826079	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826880	827148	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827950	828218	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829017	829285	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2953	3053	
==>ck->set_symbol($self->name, $sym);

  $block->push_content($self);

  return $self;
}


#
# ACCESSORS <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3966	4061	
==>(TODO: domain)

  confess "No block!"  unless defined $self and ref $self and $self->isa("Jako:: <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6134	6229	
==>(TODO: domain)

  confess "No block!"  unless defined $self and ref $self and $self->isa("Jako:: <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7077	7172	
==>(TODO: domain)

  confess "No block!"  unless defined $self and ref $self and $self->isa("Jako:: <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7875	7970	
==>(TODO: domain)

  confess "No block!"  unless defined $self and ref $self and $self->isa("Jako:: <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8522	8617	
==>(TODO: domain)

  confess "No block!"  unless defined $self and ref $self and $self->isa("Jako:: <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9190	9285	
==>(TODO: domain)

  confess "No block!"  unless defined $self and ref $self and $self->isa("Jako:: <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9859	9954	
==>(TODO: domain)

  confess "No block!"  unless defined $self and ref $self and $self->isa("Jako:: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047579	1047819	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048502	1048742	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049426	1049666	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050459	1050699	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051493	1051733	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052527	1052767	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053562	1053802	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054688	1054928	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438622	438960	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439636	439974	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440651	440989	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441665	442003	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442680	443018	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443694	444032	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444709	445047	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix <==
8	/Users/nnunley/parrot/lib/Parrot/Config.pm	12279	12422	
==>',
             'sym_import' => '',
             'test_prog' => 'parrot',
             'testheader' => undef,
             'testheaders' => unde <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396188	396506	
==>enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397268	397586	
==>enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398348	398666	
==>enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399429	399747	
==>enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400509	400827	
==>enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401590	401908	
==>enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402671	402989	
==>enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403753	404071	
==>enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
8	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30218	30324	
==>nd translation\n";

		# Push load type onto the stack types array.
		$pir .= "    stypes = push loadtype\n" <==
8	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15536	15624	
==>}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

1;


_ <==
8	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2121	2208	
==>}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


_ <==
8	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3046	3133	
==>}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


_ <==
8	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	761	848	
==>}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


_ <==
8	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3516	3602	
==>}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

_ <==
8	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2269	2355	
==>}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

_ <==
8	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2372	2458	
==>}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692210	692582	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693209	693581	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694209	694581	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695209	695581	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696210	696582	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697210	697582	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698211	698583	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699212	699584	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	373454	373776	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functio <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374336	374658	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functio <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375219	375541	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functio <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376102	376424	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functio <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376986	377308	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functio <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377869	378191	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functio <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378753	379075	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functio <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379637	379959	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functio <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871175	871475	
==>}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872192	872492	
==>}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873209	873509	
==>}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874227	874527	
==>}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875244	875544	
==>}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876262	876562	
==>}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877280	877580	
==>}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878299	878599	
==>}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981971	982108	
==>"ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983101	983238	
==>"ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984231	984368	
==>"ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985362	985499	
==>"ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986492	986629	
==>"ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987623	987760	
==>"ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988754	988891	
==>"ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989886	990023	
==>"ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964075	964406	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426231	426537	
==>1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infi <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427118	427424	
==>1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infi <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428004	428310	
==>1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infi <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428891	429197	
==>1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infi <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429777	430083	
==>1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infi <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430664	430970	
==>1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infi <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431550	431856	
==>1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infi <==
8	/Users/nnunley/parrot/lib/Pod/Simple.pm	14683	14767	
==>->parse_file($source);
}

#---------------------------------------------------------- <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380523	380840	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381534	381851	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382546	382863	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383558	383875	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867097	867237	
==>"
                            ],
                  "BODY" => "#line 232 \"src/ops/string.ops\"\n  INTVAL len;\n  len = string_length(interpre <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868063	868203	
==>"
                            ],
                  "BODY" => "#line 232 \"src/ops/string.ops\"\n  INTVAL len;\n  len = string_length(interpre <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869029	869169	
==>"
                            ],
                  "BODY" => "#line 232 \"src/ops/string.ops\"\n  INTVAL len;\n  len = string_length(interpre <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869996	870136	
==>"
                            ],
                  "BODY" => "#line 232 \"src/ops/string.ops\"\n  INTVAL len;\n  len = string_length(interpre <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692290	692626	
==>> "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693289	693625	
==>> "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694289	694625	
==>> "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695289	695625	
==>> "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696290	696626	
==>> "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697290	697626	
==>> "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698291	698627	
==>> "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699292	699628	
==>> "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193490	193586	
==>\"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194469	194565	
==>\"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210221	210317	
==>\"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211201	211297	
==>\"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218779	218875	
==>\"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219758	219854	
==>\"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227338	227434	
==>\"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228318	228414	
==>\"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231208	231484	
==>@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232112	232388	
==>@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233016	233292	
==>@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233919	234195	
==>@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234823	235099	
==>@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235727	236003	
==>@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101859	102111	
==>preter, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102630	102882	
==>preter, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879338	879430	
==>der(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880442	880534	
==>der(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881546	881638	
==>der(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882651	882743	
==>der(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883756	883848	
==>der(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884862	884954	
==>der(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885968	886060	
==>der(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887075	887167	
==>der(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692111	692368	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693110	693367	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694110	694367	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695110	695367	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696111	696368	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697111	697368	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698112	698369	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699113	699370	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61313	61426	
==>elike($grammar);
				 $code }
		      )

		{
			_parse("an m/../ pattern terminal", $aftererror,$line,$code);
			$ <==
8	/Users/nnunley/parrot/lib/Class/Struct.pm	17652	17747	
==>";

=back

=head1 Author and Modification History

Modified by Damian Conway, 2001-09-10, v0.62. <==
8	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16404	16483	
==>\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789] <==
8	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16746	16825	
==>\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789] <==
8	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1869	1948	
==>\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789] <==
8	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9947	10026	
==>\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789] <==
8	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10190	10269	
==>\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789] <==
8	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1972	2051	
==>\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789] <==
8	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	4187	4313	
==>sub inline {
    my $line = shift;
    return "  pir .= \"$line\"\n";
}

sub arguments {
    my (@args) = @_;
    
    my %conv <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	842	955	
==>while') ? 'unless' : 'if';

    $compiler->emit("${prefix}_NEXT:");

    my $op    = $self->op;
    my $left  = $s <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344156	344254	
==>.ops\"\n  /* These char * need to go away soon */\n  const char * const path = string_to_cstring(in <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345398	345496	
==>.ops\"\n  /* These char * need to go away soon */\n  const char * const path = string_to_cstring(in <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346640	346738	
==>.ops\"\n  /* These char * need to go away soon */\n  const char * const path = string_to_cstring(in <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347883	347981	
==>.ops\"\n  /* These char * need to go away soon */\n  const char * const path = string_to_cstring(in <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349051	349149	
==>.ops\"\n  /* These char * need to go away soon */\n  const char * const path = string_to_cstring(in <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350053	350151	
==>.ops\"\n  /* These char * need to go away soon */\n  const char * const path = string_to_cstring(in <==
8	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	10364	10466	
==>type=~/STRING|INT|FLO|BARE/) {
			$$optype="N";
			if ($type=~/STRING/) {
				$$optype="S";
				$sym=qq <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	514	606	
==>k (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  con <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	490	582	
==>k (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  con <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	505	597	
==>k (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  con <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	394	486	
==>k (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  con <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	492	584	
==>k (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  con <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	492	584	
==>k (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  con <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	481	573	
==>k (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  con <==
8	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39517	39652	
==>Sub',
    );
    push @opcodes1, new NewClosureOp( $parser,
        'result' => $result,
        'arg1'   => $fct,
    );
    retu <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93354	93587	
==>rpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94134	94367	
==>rpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109678	109911	
==>rpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110457	110690	
==>rpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133883	134116	
==>rpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134664	134897	
==>rpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439495	439603	
==>,
                  "BODY" => "#line 104 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440510	440618	
==>,
                  "BODY" => "#line 104 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396112	396204	
==>}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397192	397284	
==>}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398272	398364	
==>}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399353	399445	
==>}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400433	400525	
==>}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401514	401606	
==>}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402595	402687	
==>}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403677	403769	
==>}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396198	396540	
==>_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397278	397620	
==>_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398358	398700	
==>_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399439	399781	
==>_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400519	400861	
==>_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401600	401942	
==>_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402681	403023	
==>_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403763	404105	
==>_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12976	13097	
==>all' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 1 <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33730	33851	
==>all' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 1 <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37335	37456	
==>all' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 1 <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38656	38777	
==>all' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 1 <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39524	39645	
==>all' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 1 <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40536	40657	
==>all' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 1 <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43379	43500	
==>all' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 1 <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43968	44089	
==>all' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 1 <==
8	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	8753	8865	
==>>  "CGP",
	  switch => "switch",
	  fast => "fast",
	  default => "default",
  );

  $runcore{$_[0]};
}

sub runc <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	2594	2700	
==>dler->start_element({ Name => 'sub', Attributes => { name => $name, type => $type } });
  }
  else {
    $h <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591454	591551	
==>);\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(int <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592664	592761	
==>);\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(int <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593874	593971	
==>);\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(int <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595085	595182	
==>);\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(int <==
8	/Users/nnunley/parrot/examples/benchmarks/stress.pl	679	762	
==>benchmarks/stress1.pasm>, 
F<examples/benchmarks/stress1.pl>, 
F<examples/benchmarks <==
8	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	623	706	
==>benchmarks/stress1.pasm>, 
F<examples/benchmarks/stress1.pl>, 
F<examples/benchmarks <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22454	22575	
==>all' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 7 <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22872	22993	
==>all' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 7 <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23290	23411	
==>all' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 7 <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23708	23829	
==>all' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 7 <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24126	24247	
==>all' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 7 <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24544	24665	
==>all' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 7 <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24962	25083	
==>all' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 7 <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25380	25501	
==>all' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 7 <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25798	25919	
==>all' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 8 <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26216	26337	
==>all' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 8 <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26854	26975	
==>all' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 8 <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27272	27393	
==>all' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 8 <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27690	27811	
==>all' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 8 <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28108	28229	
==>all' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 8 <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28526	28647	
==>all' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 8 <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28981	29102	
==>all' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 8 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640094	640389	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640848	641143	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641612	641907	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642499	642794	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643387	643682	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644279	644574	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645172	645467	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646068	646363	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515980	516284	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519788	520092	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520643	520947	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	521498	521802	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522352	522656	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523207	523511	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369210	369479	
==>TYPE" => "function",
                  "CODE" => 432,
                  "ARGS" => [
                              "s",
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 341 \"src/ops/io <==
8	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7389	7501	
==>");
}

sub output_restore {
    my ($self, $reg) = @_;
    $reg = value($reg);
    return ("$reg = pop \@::STATES <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	753	842	
==>confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	501	590	
==>confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	477	566	
==>confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	492	581	
==>confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	381	470	
==>confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	479	568	
==>confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	479	568	
==>confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	468	557	
==>confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353744	353986	
==>preter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354489	354731	
==>preter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355256	355498	
==>preter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359438	359680	
==>preter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360186	360428	
==>preter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360956	361198	
==>preter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	1296	1409	
==>tch;

  DEBUG > 4 and 
   print "# Parsing starting at line ", $self->{'line_count'}, ".\n";

  DEBUG > 5 and
   p <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2317	2426	
==>e block stack. We fill in the
  # IDENT entry within the block.
  #

  $sym = Jako::Symbol->new(
    $self->bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	675336	675626	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676115	676405	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676895	677185	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677672	677962	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678450	678740	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679228	679518	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680007	680297	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" <==
8	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	6800	6936	
==>e->{'name'}\n";
            } else {
                my @args = split(/\s*,\s+/, $rule->{'arguments'});
                foreach (@args) { <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888140	888237	
==>"BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889274	889371	
==>"BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890408	890505	
==>"BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891543	891640	
==>"BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892677	892774	
==>"BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893812	893909	
==>"BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	894947	895044	
==>"BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896083	896180	
==>"BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374112	374434	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374995	375317	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375878	376200	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376762	377084	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377645	377967	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378529	378851	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379413	379735	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	512758	513041	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "n_neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1323	1435	
==>{ return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shi <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1314	1426	
==>{ return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shi <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1203	1315	
==>{ return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shi <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1662	1774	
==>{ return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shi <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1798	1910	
==>{ return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shi <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1441	1553	
==>{ return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shi <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133853	133960	
==>s\"\n  string_bitwise_xor(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABEL <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134634	134741	
==>s\"\n  string_bitwise_xor(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABEL <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384553	384922	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385683	386052	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386814	387183	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387945	388314	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389077	389446	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390208	390577	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391340	391709	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392472	392841	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700229	700580	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701219	701570	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702210	702561	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703201	703552	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704193	704544	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705184	705535	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706176	706527	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	707168	707519	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385330	385441	
==>{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+= <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386461	386572	
==>{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+= <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387592	387703	
==>{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+= <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388724	388835	
==>{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+= <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389855	389966	
==>{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+= <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390987	391098	
==>{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+= <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392119	392230	
==>{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+= <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393252	393363	
==>{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+= <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264423	264733	
==>}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265277	265587	
==>}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266131	266441	
==>}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266986	267296	
==>}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299594	299902	
==>}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300440	300748	
==>}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301286	301594	
==>}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
8	/Users/nnunley/parrot/config/auto/gdbm.pm	1384	1523	
==>n32/i) {
        if ($cc =~ /^gcc/i) {
            eval { cc_build('', '-llibgdbm'); };
        } else {
            eval { cc_build('', 'gd <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385404	385733	
==>failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386535	386864	
==>failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387666	387995	
==>failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388798	389127	
==>failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389929	390258	
==>failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391061	391390	
==>failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392193	392522	
==>failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393326	393655	
==>failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
8	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	9174	9275	
==>ssion {
	my(%opts)=@_;
	my $parens;
	my @expr;

	goto PROCEXP_NOFEED if $opts{lhs};
	goto PROCEXP_NOFE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806446	806745	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 91 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807352	807651	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 91 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808256	808555	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 91 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809161	809460	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 91 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810065	810364	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 91 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810970	811269	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 91 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811871	812170	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 91 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805541	805839	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 9 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822483	822756	
==>y);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823551	823824	
==>y);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824621	824894	
==>y);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825692	825965	
==>y);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826761	827034	
==>y);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827831	828104	
==>y);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828898	829171	
==>y);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback <==
8	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11724	11812	
==>Either request them individually, as with
C<use Pod::Escapes qw(symbolname symbolname2... <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572958	573043	
==>w(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, name, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573868	573953	
==>w(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, name, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576463	576548	
==>w(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, name, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577475	577560	
==>w(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, name, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579563	579648	
==>w(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, name, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580868	580953	
==>w(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, name, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582173	582258	
==>w(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, name, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583479	583564	
==>w(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, name, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438619	438958	
==>);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_inf <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439633	439972	
==>);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_inf <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440648	440987	
==>);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_inf <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441662	442001	
==>);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_inf <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442677	443016	
==>);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_inf <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443691	444030	
==>);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_inf <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444706	445045	
==>);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_inf <==
8	/Users/nnunley/parrot/lib/Class/Struct.pm	17996	18095	
==>ginal over-helpfulness was fraught with problems:
       * the class's constructor might not be call <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896492	896741	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897509	897758	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898527	898776	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899545	899794	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900564	900813	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901582	901831	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902601	902850	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903620	903869	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822471	822748	
==>(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823539	823816	
==>(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824609	824886	
==>(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825680	825957	
==>(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826749	827026	
==>(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827819	828096	
==>(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828886	829163	
==>(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829954	830231	
==>(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871190	871541	
==>@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872207	872558	
==>@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873224	873575	
==>@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874242	874593	
==>@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875259	875610	
==>@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876277	876628	
==>@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877295	877646	
==>@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878314	878665	
==>@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912396	912729	
==>dex",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913406	913739	
==>dex",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914417	914750	
==>dex",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915428	915761	
==>dex",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916440	916773	
==>dex",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917451	917784	
==>dex",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918463	918796	
==>dex",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919475	919808	
==>dex",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871123	871224	
==>ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872140	872241	
==>ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873157	873258	
==>ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874175	874276	
==>ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875192	875293	
==>ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876210	876311	
==>ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877228	877329	
==>ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878247	878348	
==>ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n", <==
8	/Users/nnunley/parrot/config/inter/libparrot.pm	452	550	
==>args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$ <==
8	/Users/nnunley/parrot/config/inter/charset.pm	330	422	
==>args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$ <==
8	/Users/nnunley/parrot/config/inter/encoding.pm	335	427	
==>args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$ <==
8	/Users/nnunley/parrot/config/inter/ops.pm	310	402	
==>args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$ <==
8	/Users/nnunley/parrot/config/inter/progs.pm	449	541	
==>args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$ <==
8	/Users/nnunley/parrot/config/inter/shlibs.pm	609	701	
==>args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$ <==
8	/Users/nnunley/parrot/config/inter/types.pm	361	453	
==>args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$ <==
8	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	169	259	
==>Section::PMCs - PMCs documentation section

=head1 SYNOPSIS

	use Parrot::Docs::Section::PM <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374142	374465	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGD <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375025	375348	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGD <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375908	376231	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGD <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376792	377115	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGD <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377675	377998	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGD <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378559	378882	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGD <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379443	379766	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGD <==
8	/Users/nnunley/parrot/lib/Test/More.pm	8087	8219	
==>s foo the same as bar?
    #     Failed test (foo.t at line 139)
    #          got: 'waffle'
    #     expected: 'yarblokos'

So you <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519166	519482	
==>,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520020	520336	
==>,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520875	521191	
==>,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	521730	522046	
==>,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522584	522900	
==>,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523439	523755	
==>,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	2326	2434	
==>f->new_item('A list of some of people who have contributed to Parrot.', 'CREDITS'),
        ),
        $self- <==
8	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10360	10454	
==>t, label_num, sp_dest
    .local int i, j, type, try_offset, try_length, try_end, handler_offse <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830152	830412	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830892	831152	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831633	831893	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832360	832620	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833088	833348	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833810	834070	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834535	834795	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1919	2033	
==>t("  $temp = \"\"");

    while (1) {
      last unless defined $string and
        $string =~ m/(^|^.*?[^\\])\$((( <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964285	964622	
==>E" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965292	965629	
==>E" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966300	966637	
==>E" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967308	967645	
==>E" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968317	968654	
==>E" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969325	969662	
==>E" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970334	970671	
==>E" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971343	971680	
==>E" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964875	964964	
==>/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965883	965972	
==>/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966891	966980	
==>/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967900	967989	
==>/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968908	968997	
==>/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969917	970006	
==>/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970926	971015	
==>/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971936	972025	
==>/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}}) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413049	413438	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414176	414565	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415303	415692	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416431	416820	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417558	417947	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418686	419075	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419814	420203	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" = <==
8	/Users/nnunley/parrot/lib/Test/More.pm	8421	8526	
==>r false!

  # XXX BAD!
  is( exists $brooklyn{tree}, 1, 'A tree grows in Brooklyn' );

This does not check <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047692	1047857	
==>bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048615	1048780	
==>bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049539	1049704	
==>bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050572	1050737	
==>bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051606	1051771	
==>bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052640	1052805	
==>bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053675	1053840	
==>bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054801	1054966	
==>bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754707	754970	
==>assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 851, <==
8	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	5875	5987	
==>'in_pod'} = 0;
      # ++$self->{'pod_para_count'};
      $self->_ponder_paragraph_buffer();
       # by now it's <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193521	193608	
==>ng_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194500	194587	
==>ng_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210252	210339	
==>ng_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211232	211319	
==>ng_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218810	218897	
==>ng_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219789	219876	
==>ng_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227369	227456	
==>ng_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228349	228436	
==>ng_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385322	385420	
==>@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\") <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386453	386551	
==>@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\") <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387584	387682	
==>@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\") <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388716	388814	
==>@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\") <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389847	389945	
==>@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\") <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390979	391077	
==>@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\") <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392111	392209	
==>@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\") <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393244	393342	
==>@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\") <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413073	413444	
==>LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":ba <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414200	414571	
==>LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":ba <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415327	415698	
==>LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":ba <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416455	416826	
==>LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":ba <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417582	417953	
==>LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":ba <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418710	419081	
==>LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":ba <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419838	420209	
==>LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":ba <==
8	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	849	970	
==>les
  -u Update the tests from CVS.

=cut

main();

##
## main()
##
sub main {
    usage() and exit if $opt_h;
    checkou <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396061	396172	
==>o.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_ne <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397141	397252	
==>o.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_ne <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398221	398332	
==>o.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_ne <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399302	399413	
==>o.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_ne <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400382	400493	
==>o.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_ne <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401463	401574	
==>o.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_ne <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402544	402655	
==>o.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_ne <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403626	403737	
==>o.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_ne <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080654	1080977	
==>ental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081719	1082042	
==>ental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082784	1083107	
==>ental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103033	1103356	
==>ental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104247	1104570	
==>ental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS <==
8	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	12645	12842	
==>dress
        #   OP_SIZE            {{^S}}   S             op size
        #
        #   HALT()             {{=0}}   PC' = 0       Halts run_ops loop, no resume
        #
        #   restart OFFSET <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436472	436561	
==>ODY" => "#line 94 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437487	437576	
==>ODY" => "#line 94 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909367	909638	
==>(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910264	910535	
==>(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911161	911432	
==>(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912059	912330	
==>(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849910	850179	
==>(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850797	851066	
==>(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851684	851953	
==>(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852572	852841	
==>(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822142	822233	
==>n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->us <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823210	823301	
==>n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->us <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824277	824368	
==>n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->us <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825348	825439	
==>n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->us <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826418	826509	
==>n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->us <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827488	827579	
==>n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->us <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828557	828648	
==>n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->us <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829625	829716	
==>n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->us <==
8	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	14861	14983	
==>\tset $tn, $ti",
				"\t$left = $tn",
			);
		} else {
			# Simple a=expr case.
			@ass=(
				@$rightexpr,
				"\t$left = $ <==
8	/Users/nnunley/parrot/tools/build/dynclasses.pl	3353	3465	
==>my ($group, $pmcs) = each %$group_files) {
        my @pmcfiles = map { "$_.pmc" } @$pmcs;
        if (needs_buil <==
8	/Users/nnunley/parrot/tools/build/dynpmc.pl	3457	3569	
==>my ($group, $pmcs) = each %$group_files) {
        my @pmcfiles = map { "$_.pmc" } @$pmcs;
        if (needs_buil <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854989	855098	
==>g.ops\"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABEL <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855878	855987	
==>g.ops\"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABEL <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856767	856876	
==>g.ops\"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABEL <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857657	857766	
==>g.ops\"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABEL <==
8	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	208	301	
==>rrot::OpTrans> is the abstract superclass for the Parrot op to C
transforms. Each transform co <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586940	587226	
==>er, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588126	588412	
==>er, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589312	589598	
==>er, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590499	590785	
==>er, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591708	591994	
==>er, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592918	593204	
==>er, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594128	594414	
==>er, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595339	595625	
==>er, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
8	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15040	15140	
==>.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
    }
    return;
  } elsif(wantarray) {  # return <==
8	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16223	16323	
==>.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
    }
    return;
  } elsif(wantarray) {  # return <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471235	471332	
==>NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472222	472319	
==>NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473209	473306	
==>NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474199	474296	
==>NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475190	475287	
==>NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476181	476278	
==>NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830147	830409	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830887	831149	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831628	831890	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832355	832617	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833083	833345	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833805	834067	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834530	834792	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	2117	2242	
==>"  concat $temp, \"$1\"")
        if defined $1 and $1 ne '';

      my $ident = $2;
      $ident =~ s/^{(.*)}$/$1/; # Strip ' <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3937	4037	
==>_pmc();
    my $temp_pmc = $compiler->temp_pmc();

    $compiler->emit("  $temp_pmc = new $pmc_type") <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1576	1676	
==>_pmc();
    my $temp_pmc = $compiler->temp_pmc();

    $compiler->emit("  $temp_pmc = new $pmc_type") <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591505	591598	
==>class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_exception(interpr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592715	592808	
==>class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_exception(interpr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593925	594018	
==>class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_exception(interpr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595136	595229	
==>class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_exception(interpr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600148	600241	
==>class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_exception(interpr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601224	601317	
==>class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_exception(interpr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897205	897503	
==>place(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898223	898521	
==>place(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899241	899539	
==>place(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900260	900558	
==>place(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901278	901576	
==>place(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902297	902595	
==>place(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903316	903614	
==>place(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904336	904634	
==>place(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504377	504674	
==>"mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 58 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505232	505529	
==>"mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 58 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506087	506384	
==>"mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 58 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506941	507238	
==>"mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 58 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507796	508093	
==>"mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 58 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302154	302442	
==>\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303030	303318	
==>\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303906	304194	
==>\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	675557	675841	
==>=> 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676336	676620	
==>=> 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677116	677400	
==>=> 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677893	678177	
==>=> 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678671	678955	
==>=> 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679449	679733	
==>=> 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680228	680512	
==>=> 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
8	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	15291	15389	
==>_exception[\"obj\"]\n"
    class_type = eh.get_class_type()
    class_id = eh.get_class_id()
    ge <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822153	822247	
==>try_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823221	823315	
==>try_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824288	824382	
==>try_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825359	825453	
==>try_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826429	826523	
==>try_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827499	827593	
==>try_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828568	828662	
==>try_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829636	829730	
==>try_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787903	788012	
==>],
                  "BODY" => "#line 422 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788813	788922	
==>],
                  "BODY" => "#line 422 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714653	714753	
==>{\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715576	715676	
==>{\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716521	716621	
==>{\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722340	722440	
==>{\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723369	723469	
==>{\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724413	724513	
==>{\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692917	693211	
==>eter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693917	694211	
==>eter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694917	695211	
==>eter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695918	696212	
==>eter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696918	697212	
==>eter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697919	698213	
==>eter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698920	699214	
==>eter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699922	700216	
==>eter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
8	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18374	18499	
==>'arg1'   => $obj->[0],
        'arg2'   => $key->[0],
    );
    my $fct = [ $result, \@opcodes ];
    unshift @{$args}, $ <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3970	4065	
==>O: domain)

  confess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Cons <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6138	6233	
==>O: domain)

  confess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Cons <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7081	7176	
==>O: domain)

  confess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Cons <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7879	7974	
==>O: domain)

  confess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Cons <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8526	8621	
==>O: domain)

  confess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Cons <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9194	9289	
==>O: domain)

  confess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Cons <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9863	9958	
==>O: domain)

  confess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Cons <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879240	879340	
==>ine 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880344	880444	
==>ine 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881448	881548	
==>ine 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882553	882653	
==>ine 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883658	883758	
==>ine 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884764	884864	
==>ine 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885870	885970	
==>ine 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886977	887077	
==>ine 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459193	459368	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460180	460355	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461168	461343	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462156	462331	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463152	463327	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464149	464324	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
8	/Users/nnunley/parrot/tools/dev/lib_deps.pl	13275	13404	
==>mquof     math.h
remquol     math.h
rename      stdio.h
rewind      stdio.h
rint        math.h
rintf       math.h
rintl       math <==
8	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2691	2789	
==>eed in.

This is a subclass of L<Pod::Simple> and inherits all its methods.

=head1 SEE ALSO

L<Pod <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222015	222169	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_cor <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222957	223111	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_cor <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223898	224052	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_cor <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224840	224994	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_cor <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225780	225934	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_cor <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226721	226875	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_cor <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227700	227854	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_cor <==
8	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14376	14472	
==>ng1024\noproof ' . $title
   if $is_obviously_module_name;

  return sprintf <<'END', 
\deflang%s <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385262	385359	
==>IO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exc <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386393	386490	
==>IO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exc <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387524	387621	
==>IO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exc <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388656	388753	
==>IO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exc <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389787	389884	
==>IO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exc <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390919	391016	
==>IO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exc <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392051	392148	
==>IO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exc <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393184	393281	
==>IO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exc <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964255	964590	
==>" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965262	965597	
==>" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966270	966605	
==>" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967278	967613	
==>" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968287	968622	
==>" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969295	969630	
==>" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970304	970639	
==>" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971313	971648	
==>" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432514	432833	
==>, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433529	433848	
==>, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434543	434862	
==>, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435558	435877	
==>, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436572	436891	
==>, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437587	437906	
==>, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438601	438920	
==>, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383625	383922	
==>eek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 448 <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	757	851	
==>ess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block') <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	505	599	
==>ess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block') <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	481	575	
==>ess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block') <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	496	590	
==>ess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block') <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	385	479	
==>ess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block') <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	483	577	
==>ess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block') <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	483	577	
==>ess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block') <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	472	566	
==>ess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block') <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412215	412515	
==>( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413341	413641	
==>( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414468	414768	
==>( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415595	415895	
==>( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416723	417023	
==>( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417850	418150	
==>( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418978	419278	
==>( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420106	420406	
==>( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888172	888259	
==>tring.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889306	889393	
==>tring.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890440	890527	
==>tring.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891575	891662	
==>tring.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892709	892796	
==>tring.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893844	893931	
==>tring.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	894979	895066	
==>tring.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896115	896202	
==>tring.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131360	131629	
==>s\"\n  {{\@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132215	132484	
==>s\"\n  {{\@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133070	133339	
==>s\"\n  {{\@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324165	324408	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324957	325200	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325750	325993	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326540	326783	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327341	327584	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896502	896815	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897519	897832	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898537	898850	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899555	899868	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900574	900887	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901592	901905	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902611	902924	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903630	903943	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887425	887704	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888558	888837	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889692	889971	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890826	891105	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891961	892240	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893095	893374	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	894230	894509	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895365	895644	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964281	964614	
==>"NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965288	965621	
==>"NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966296	966629	
==>"NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967304	967637	
==>"NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968313	968646	
==>"NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969321	969654	
==>"NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970330	970663	
==>"NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971339	971672	
==>"NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350522	350782	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351183	351443	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351845	352105	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352502	352762	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353160	353420	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353904	354164	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354649	354909	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Pod/Simple.pm	17285	17384	
==>rn $para->[1]{'~type'} = 'bullet';

  } elsif($content =~ m/^\s*(\d+)\.?\s*$/s) {
    # Like: "=item <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655001	655245	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655796	656040	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656719	656963	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657643	657887	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658561	658805	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
8	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4597	4698	
==>d post branch operation hooks.
sub pre_branch($) {
	my $self = shift;
	my $pops = shift;
	my $register <==
8	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3013	3114	
==>d post branch operation hooks.
sub pre_branch($) {
	my $self = shift;
	my $pops = shift;
	my $register <==
8	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2660	2761	
==>d post branch operation hooks.
sub pre_branch($) {
	my $self = shift;
	my $pops = shift;
	my $register <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	675339	675629	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676118	676408	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676898	677188	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677675	677965	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678453	678743	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679231	679521	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680010	680300	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => <==
8	/Users/nnunley/parrot/lib/Test/More.pm	17991	18094	
==>d--compilation aborted at $filename line $line.}m;
        $Test->diag(<<DIAGNOSTIC);
    Tried to use ' <==
8	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	1951	2094	
==>get_token )
    {
        $type = $token->type;
        
        if ( $type eq 'start' ) 
        {
            $self->process_start_token($toke <==
8	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15542	15627	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

1;


__EN <==
8	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2127	2211	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__EN <==
8	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3052	3136	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__EN <==
8	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	767	851	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__EN <==
8	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3522	3605	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__EN <==
8	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2275	2358	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__EN <==
8	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2378	2461	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__EN <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912993	913110	
==>s\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914004	914121	
==>s\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915015	915132	
==>s\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916027	916144	
==>s\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917038	917155	
==>s\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918050	918167	
==>s\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919062	919179	
==>s\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920075	920192	
==>s\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912902	913040	
==>"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913913	914051	
==>"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914924	915062	
==>"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915936	916074	
==>"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916947	917085	
==>"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917959	918097	
==>"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918971	919109	
==>"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919984	920122	
==>"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396102	396202	
==>er, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Unde <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397182	397282	
==>er, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Unde <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398262	398362	
==>er, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Unde <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399343	399443	
==>er, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Unde <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400423	400523	
==>er, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Unde <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401504	401604	
==>er, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Unde <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402585	402685	
==>er, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Unde <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403667	403767	
==>er, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Unde <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666859	667168	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARG <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667632	667941	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARG <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668406	668715	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARG <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669177	669486	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARG <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669949	670258	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARG <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670721	671030	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARG <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671494	671803	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARG <==
8	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25491	25580	
==>p, 0.0, FOR_GT_$forloop
	lt $result, FORLOOP_END_$forloop, AFTER_NEXT_$forloop
	goto FOR_L <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221923	222158	
==>0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222865	223100	
==>0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223806	224041	
==>0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224748	224983	
==>0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225688	225923	
==>0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226629	226864	
==>0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227608	227843	
==>0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715257	715464	
==>unction",
                  "CODE" => 802,
                  "ARGS" => [
                              "sc"
                            ],
                  "BODY" => "#line 75 \"src/ops/python.ops\"\n  STRIN <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692283	692616	
==>NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693282	693615	
==>NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694282	694615	
==>NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695282	695615	
==>NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696283	696616	
==>NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697283	697616	
==>NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698284	698617	
==>NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699285	699618	
==>NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1659	1754	
==>_queue->head ?  \\
		Parrot_do_check_events(i, n) : n
END
}

=item C<goto_address($address)>

Tr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412268	412614	
==>"NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413394	413740	
==>"NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414521	414867	
==>"NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415648	415994	
==>"NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416776	417122	
==>"NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417903	418249	
==>"NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419031	419377	
==>"NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420159	420505	
==>"NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666888	667214	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667661	667987	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668435	668761	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669206	669532	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669978	670304	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670750	671076	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671523	671849	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	51101	51211	
==>_CHECK = 1;
				}
			}
			elsif ($grammar =~ m/$AUTOSTUBMK/gco)
			{
				_parse("an autostub marker", $aftererr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964211	964553	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965218	965560	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966226	966568	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967234	967576	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968243	968585	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969251	969593	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970260	970602	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971269	971611	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887440	887742	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888573	888875	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889707	890009	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890841	891143	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891976	892278	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893110	893412	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	894245	894547	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895380	895682	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572945	573034	
==>name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573855	573944	
==>name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576450	576539	
==>name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577462	577551	
==>name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579550	579639	
==>name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580855	580944	
==>name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582160	582249	
==>name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583466	583555	
==>name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356281	356512	
==>AME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356940	357171	
==>AME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357600	357831	
==>AME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358263	358494	
==>AME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358927	359158	
==>AME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359674	359905	
==>AME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360422	360653	
==>AME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
8	/Users/nnunley/parrot/languages/python/pie-thon.pl	20481	20573	
==>' && $code[$code_l+1]->[2] eq 'JUMP_IF_FALSE') {
	$code_l++;
	print "\t\t\t# UNARY_NOT\n\t\t\ <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20303	20390	
==>p_1 = $self->_generate($node->{children}[$_]);
    $self->_add_inst('','gt',[$temp_0,$te <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432519	432857	
==>@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433534	433872	
==>@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434548	434886	
==>@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435563	435901	
==>@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436577	436915	
==>@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437592	437930	
==>@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438606	438944	
==>@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
8	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28437	28556	
==>block ) = @_;
    my @opcodes = ();
    unless ( defined $e_step ) {
        $e_step = BuildLiteral( $parser, 1, 'num <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578774	579052	
==>FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 66 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580078	580356	
==>FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 66 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581383	581661	
==>FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 66 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582688	582966	
==>FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 66 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586143	586421	
==>FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 66 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587328	587606	
==>FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 66 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588514	588792	
==>FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 66 <==
8	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27707	27819	
==>R] eq "BARE") {   # Variable name parameter
			$a=$syms[CURR];
			if ($syms[NEXT] eq "as") {
				feedme();  # Get <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385300	385392	
==>_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386431	386523	
==>_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387562	387654	
==>_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388694	388786	
==>_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389825	389917	
==>_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390957	391049	
==>_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392089	392181	
==>_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393222	393314	
==>_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897147	897235	
==>Y" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898165	898253	
==>Y" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899183	899271	
==>Y" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900202	900290	
==>Y" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901220	901308	
==>Y" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902239	902327	
==>Y" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903258	903346	
==>Y" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904278	904366	
==>Y" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29958	30050	
==>d body.

=over 4

=cut

package Parrot::Pmc2c::Standard::Const;
use base 'Parrot::Pmc2c::Stan <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047500	1047783	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050380	1050663	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051414	1051697	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052448	1052731	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053483	1053766	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054609	1054892	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059304	1059587	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_ <==
8	/Users/nnunley/parrot/lib/Text/Balanced.pm	20927	21032	
==>os-$startpos,	# PREFIX
		$oppos,		length($op),		# OPERATOR
		$ld1pos,	1,			# LEFT DEL
		$str1pos,	$rd1pos- <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879254	879363	
==>ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880358	880467	
==>ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881462	881571	
==>ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882567	882676	
==>ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883672	883781	
==>ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884778	884887	
==>ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885884	885993	
==>ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886991	887100	
==>ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672423	672718	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673195	673490	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673965	674260	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	674736	675031	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855038	855325	
==>{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855927	856214	
==>{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856816	857103	
==>{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857706	857993	
==>{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1689	1792	
==>me;

#  printf STDERR "%s: About to copy symbol table to parent block.\n", __PACKAGE__;

  foreach my $s <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550286	550383	
==>hod_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not foun <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551587	551684	
==>hod_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not foun <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554139	554236	
==>hod_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not foun <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555536	555633	
==>hod_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not foun <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558191	558288	
==>hod_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not foun <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559575	559672	
==>hod_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not foun <==
8	/Users/nnunley/parrot/tools/build/jit2c.pl	7624	7708	
==>vtable_1r223_op Parrot_jit_normal_op
#define Parrot_jit_vtable_1r332_op Parrot_jit_no <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878370	878710	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":bas <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879473	879813	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":bas <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880577	880917	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":bas <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881681	882021	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":bas <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882786	883126	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":bas <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883891	884231	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":bas <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884997	885337	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":bas <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886103	886443	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":bas <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878659	878998	
==>E" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879762	880101	
==>E" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880866	881205	
==>E" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881970	882309	
==>E" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883075	883414	
==>E" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884180	884519	
==>E" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885286	885625	
==>E" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886392	886731	
==>E" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18420	18526	
==>$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19133	19239	
==>$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19621	19727	
==>$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20110	20216	
==>$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20599	20705	
==>$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = <==
8	/Users/nnunley/parrot/lib/Parrot/Test.pm	3931	4021	
==>ted, $description)>

Compile the Parrot Intermediate Representation and generate Parrot Ass <==
8	/Users/nnunley/parrot/lib/Parrot/Test.pm	4114	4204	
==>ted, $description)>

Compile the Parrot Intermediate Representation and generate Parrot Ass <==
8	/Users/nnunley/parrot/lib/Parrot/Test.pm	4304	4394	
==>ted, $description)>

Compile the Parrot Intermediate Representation and generate Parrot Ass <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	675328	675621	
==>n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "F <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676107	676400	
==>n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "F <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676887	677180	
==>n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "F <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677664	677957	
==>n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "F <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678442	678735	
==>n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "F <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679220	679513	
==>n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "F <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679999	680292	
==>n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "F <==
8	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	3445	3553	
==>}} );

    return $cout;
}

=item C<includes()>

Returns the set of C C<#include>s for the library.

=cut

su <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579355	579459	
==>\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLAS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580660	580764	
==>\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLAS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581965	582069	
==>\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLAS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583271	583375	
==>\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLAS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586710	586814	
==>\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLAS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587896	588000	
==>\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLAS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589082	589186	
==>\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLAS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590269	590373	
==>\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLAS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412211	412513	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413337	413639	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414464	414766	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415591	415893	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416719	417021	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417846	418148	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418974	419276	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420102	420404	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413033	413407	
==>);\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pol <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414160	414534	
==>);\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pol <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415287	415661	
==>);\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pol <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416415	416789	
==>);\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pol <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417542	417916	
==>);\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pol <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418670	419044	
==>);\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pol <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419798	420172	
==>);\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pol <==
8	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11769	11854	
==>rn $string;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879422	879766	
==>}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880526	880870	
==>}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881630	881974	
==>}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882735	883079	
==>}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883840	884184	
==>}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884946	885290	
==>}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886052	886396	
==>}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887159	887503	
==>}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396115	396210	
==>{{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  } <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397195	397290	
==>{{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  } <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398275	398370	
==>{{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  } <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399356	399451	
==>{{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  } <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400436	400531	
==>{{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  } <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401517	401612	
==>{{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  } <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402598	402693	
==>{{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  } <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403680	403775	
==>{{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  } <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917737	918037	
==>TYPE" => "inline",
                  "CODE" => 1033,
                  "ARGS" => [
                              "i",
                              "sc",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 289 \"src/o <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439588	439877	
==>(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440603	440892	
==>(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441617	441906	
==>(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442632	442921	
==>(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443646	443935	
==>(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444661	444950	
==>(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	445675	445964	
==>(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385412	385756	
==>64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386543	386887	
==>64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387674	388018	
==>64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388806	389150	
==>64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389937	390281	
==>64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391069	391413	
==>64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392201	392545	
==>64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393334	393678	
==>64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897216	897516	
==>preter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898234	898534	
==>preter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899252	899552	
==>preter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900271	900571	
==>preter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901289	901589	
==>preter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902308	902608	
==>preter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903327	903627	
==>preter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904347	904647	
==>preter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879251	879345	
==>rc/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(inte <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880355	880449	
==>rc/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(inte <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881459	881553	
==>rc/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(inte <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882564	882658	
==>rc/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(inte <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883669	883763	
==>rc/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(inte <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884775	884869	
==>rc/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(inte <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885881	885975	
==>rc/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(inte <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886988	887082	
==>rc/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(inte <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222119	222416	
==>E" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223061	223358	
==>E" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224002	224299	
==>E" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224944	225241	
==>E" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225884	226181	
==>E" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226825	227122	
==>E" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227804	228101	
==>E" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
8	/Users/nnunley/parrot/config/gen/cpu.pm	828	940	
==>(cpu hints = '$hints') " if $verbose;

    eval "use $hints";
    unless ($@) {
        $hints->runstep($conf, @_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888152	888247	
==>line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889286	889381	
==>line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890420	890515	
==>line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891555	891650	
==>line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892689	892784	
==>line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893824	893919	
==>line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	894959	895054	
==>line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896095	896190	
==>line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883088	883420	
==>_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884193	884525	
==>_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885299	885631	
==>_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886405	886737	
==>_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878672	879002	
==>_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879775	880105	
==>_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880879	881209	
==>_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881983	882313	
==>_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384606	384971	
==>,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385736	386101	
==>,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386867	387232	
==>,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387998	388363	
==>,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389130	389495	
==>,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390261	390626	
==>,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391393	391758	
==>,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392525	392890	
==>,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396190	396534	
==>um_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397270	397614	
==>um_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398350	398694	
==>um_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399431	399775	
==>um_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400511	400855	
==>um_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401592	401936	
==>um_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402673	403017	
==>um_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403755	404099	
==>um_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752318	752582	
==>=> 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753097	753361	
==>=> 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753884	754148	
==>=> 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754672	754936	
==>=> 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755458	755722	
==>=> 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756245	756509	
==>=> 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757034	757298	
==>=> 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	1740	1864	
==>ny).
    KIND    => $kind,   # One of file, sub, if, else, while, etc.
    TYPE    => $type,   # Return type, if any.
    PRE <==
8	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2427	2529	
==>"]
	P0= P1["$var"]	# Pull the original
	P2= P10[I25]
	P3= P2["$stype"]
	P3["$var"]= P0	# Hack in the al <==
8	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2654	2756	
==>"]
	P0= P1["$var"]	# Pull the original
	P2= P10[I25]
	P3= P2["$stype"]
	P3["$var"]= P0	# Hack in the al <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72886	72985	
==>_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74488	74587	
==>_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76090	76189	
==>_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77693	77792	
==>_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79214	79313	
==>_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80735	80834	
==>_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = <==
8	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	468	587	
==>) {
	$arr1[$_] = buildarray();
    }

    my @arr2;
    foreach (1..20) {
	$arr2[$_] = buildarray();
    }
}

sub builda <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361139	361423	
==>{
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362037	362321	
==>{
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362936	363220	
==>{
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363838	364122	
==>{
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364741	365025	
==>{
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365580	365864	
==>{
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366420	366704	
==>{
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
8	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	3253	3351	
==>()>

These are the names of all the files and subdirectories in the
directory.

=cut

sub file_and_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356106	356362	
==>=> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "AR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356765	357021	
==>=> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "AR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357425	357681	
==>=> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "AR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358088	358344	
==>=> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "AR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358752	359008	
==>=> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "AR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359499	359755	
==>=> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "AR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360247	360503	
==>=> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "AR <==
8	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	411	506	
==>yms[CURR];
	feedme();
	feedme() while($syms[CURR] =~ /[(),]/);
	my $source=$syms[CURR];
	feedme( <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896550	896882	
==>0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897567	897899	
==>0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898585	898917	
==>0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899603	899935	
==>0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900622	900954	
==>0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901640	901972	
==>0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902659	902991	
==>0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903678	904010	
==>0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610916	611187	
==>ne",
                  "CODE" => 692,
                  "ARGS" => [
                              "p",
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 491 \"src/ops/object.ops\"\n    VT <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63719	63879	
==>ad,$line,
										   $self,
										   $matchrule,
										   $argcode);
										   
						$prod and $prod->additem($item)
						      or  _no_rule("repe <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63012	63158	
==>ad,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("repe <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64449	64595	
==>ad,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("repe <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65104	65250	
==>ad,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("repe <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65764	65910	
==>ad,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("repe <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	66483	66629	
==>ad,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("repe <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62380	62521	
==>ad,$line,
									   $self,
									   $matchrule,
									   $argcode);
					$prod and $prod->additem($item)
					      or  _no_rule("repe <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897263	897602	
==>L);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subs <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898281	898620	
==>L);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subs <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899299	899638	
==>L);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subs <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900318	900657	
==>L);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subs <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901336	901675	
==>L);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subs <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902355	902694	
==>L);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subs <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903374	903713	
==>L);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subs <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904394	904733	
==>L);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subs <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	373480	373803	
==>JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374362	374685	
==>JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375245	375568	
==>JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376128	376451	
==>JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377012	377335	
==>JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377895	378218	
==>JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378779	379102	
==>JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379663	379986	
==>JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25133	25231	
==>rn;
  my $num_children = defined $node->{children} ? @{$node->{children}} - 1 : 0;

  if($num_child <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27033	27131	
==>rn;
  my $num_children = defined $node->{children} ? @{$node->{children}} - 1 : 0;

  if($num_child <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24245	24342	
==>rn;
  my $num_children = defined $node->{children} ? @{$node->{children}} - 1 : 0;
  if($num_child <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26144	26241	
==>rn;
  my $num_children = defined $node->{children} ? @{$node->{children}} - 1: 0;

  if($num_child <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	844	937	
==>ssion::Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($r <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	682	775	
==>ssion::Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($r <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	835	928	
==>ssion::Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($r <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	724	817	
==>ssion::Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($r <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879297	879393	
==>\n  if (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpre <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880401	880497	
==>\n  if (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpre <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881505	881601	
==>\n  if (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpre <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882610	882706	
==>\n  if (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpre <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883715	883811	
==>\n  if (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpre <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884821	884917	
==>\n  if (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpre <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885927	886023	
==>\n  if (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpre <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887034	887130	
==>\n  if (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpre <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462837	462929	
==>xception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = f <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463834	463926	
==>xception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = f <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464831	464923	
==>xception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = f <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478869	478961	
==>xception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = f <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479761	479853	
==>xception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = f <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483732	483824	
==>xception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = f <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484731	484823	
==>xception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = f <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485730	485822	
==>xception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = f <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830142	830384	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ], <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830882	831124	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ], <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831623	831865	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ], <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832350	832592	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ], <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833078	833320	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ], <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833800	834042	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ], <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834525	834767	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ], <==
8	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17909	18016	
==>ase t
case 10
	print "Wrong"
case 50
	select case g
	case 6
		print "Wrong again!"
	case 0
		print "Right (n <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	15860	16015	
==>-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			" <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18660	18815	
==>-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			" <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29713	29868	
==>-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			" <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30228	30383	
==>-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			" <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	32668	32823	
==>-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			" <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36774	36929	
==>-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			" <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	42058	42213	
==>-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			" <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44838	44993	
==>-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412238	412585	
==>JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413364	413711	
==>JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414491	414838	
==>JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415618	415965	
==>JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416746	417093	
==>JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417873	418220	
==>JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419001	419348	
==>JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420129	420476	
==>JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175489	175643	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":ba <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176392	176546	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":ba <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177296	177450	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":ba <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178200	178354	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":ba <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179105	179259	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":ba <==
8	/Users/nnunley/parrot/config/auto/env.pm	656	763	
==>, 0);

    cc_gen('config/auto/env/test_setenv.in');
    eval { cc_build(); };
    unless ($@ || cc_run() !~ <==
8	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	2606	2712	
==>le (<$file>) {
        next if defined($ignorePattern) && /$ignorePattern/;
        $sum += unpack("%32C*", <==
8	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30089	30186	
==>t );

=item C<body($method, $line, $out_name)>

Returns the C code for the method body. C<$line> i <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24423	24524	
==>return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_s <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24654	24755	
==>return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_s <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25312	25413	
==>return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_s <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25665	25766	
==>return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_s <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26322	26423	
==>return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_s <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26553	26654	
==>return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_s <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27212	27313	
==>return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_s <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27563	27664	
==>return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_s <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964858	964944	
==>ine 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965866	965952	
==>ine 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966874	966960	
==>ine 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967883	967969	
==>ine 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968891	968977	
==>ine 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969900	969986	
==>ine 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970909	970995	
==>ine 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971919	972005	
==>ine 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356074	356331	
==>\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ": <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356733	356990	
==>\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ": <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357393	357650	
==>\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ": <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358056	358313	
==>\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ": <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358720	358977	
==>\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ": <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359467	359724	
==>\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ": <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360215	360472	
==>\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ": <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3398	3495	
==>-+]?\d+$/) {
    $return = $self->_save_1 ('I');
    $self->_add_inst ('', 'set', [$return,$value] <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385207	385300	
==>ine 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386338	386431	
==>ine 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387469	387562	
==>ine 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388601	388694	
==>ine 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389732	389825	
==>ine 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390864	390957	
==>ine 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391996	392089	
==>ine 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393129	393222	
==>ine 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_ <==
8	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11264	11380	
==>un under.
        # Altho, hmm, what about that ord?  Presumably that won't work right
        #  under non-ASCII cha <==
8	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17104	17220	
==>un under.
        # Altho, hmm, what about that ord?  Presumably that won't work right
        #  under non-ASCII cha <==
8	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3970	4085	
==>s> < $needed; # need $needed more chars";
    }
}

sub output_match {
    my ($self, $code, $failLabel) = @_;
    my <==
8	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4611	4725	
==>un under.
       # Altho, hmm, what about that ord?  Presumably that won't work right
       #  under non-ASCII cha <==
8	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2101	2209	
==>un under.
    # Altho, hmm, what about that ord?  Presumably that won't work right
    #  under non-ASCII cha <==
8	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10524	10632	
==>un under.
    # Altho, hmm, what about that ord?  Presumably that won't work right
    #  under non-ASCII cha <==
8	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2204	2312	
==>un under.
    # Altho, hmm, what about that ord?  Presumably that won't work right
    #  under non-ASCII cha <==
8	/Users/nnunley/parrot/lib/Text/Balanced.pm	42881	42970	
==>p(3)>) Nested backslashed delimiters, embedded balanced bracket
delimiters (for the quotel <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540633	540751	
==>n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541885	542003	
==>n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543137	543255	
==>n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544420	544538	
==>n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545756	545874	
==>n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547092	547210	
==>n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938561	938673	
==>string.ops\"\n    {{\@1}} = string_join(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939451	939563	
==>string.ops\"\n    {{\@1}} = string_join(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494381	494666	
==>od({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495249	495534	
==>od({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496117	496402	
==>od({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496986	497271	
==>od({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497856	498141	
==>od({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498726	499011	
==>od({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
8	/Users/nnunley/parrot/config/auto/socklen_t.pm	286	381	
==>trict;
use warnings;

use base qw(Parrot::Configure::Step::Base);

use Config;

use Parrot::Conf <==
8	/Users/nnunley/parrot/config/auto/jit.pm	330	424	
==>trict;
use warnings;

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Conf <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692999	693335	
==>LS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693999	694335	
==>LS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694999	695335	
==>LS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696000	696336	
==>LS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697000	697336	
==>LS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698001	698337	
==>LS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699002	699338	
==>LS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => <==
8	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	616	716	
==>ry' : '';
	my $output = `mcs -out:$file_name $kind $opt $file_name.cs`;
	if ($output) {
		print "comp <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666992	667253	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667765	668026	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668539	668800	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669310	669571	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670082	670343	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670854	671115	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671627	671888	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/Test.pm	9750	9857	
==>ext =~ s/\cM\cJ/\n/g;
}

sub path_to_parrot {

    my $path = $INC{'Parrot/Config.pm'};
    $path   =~ s{ /l <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70915	71167	
==>(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71684	71936	
==>(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100424	100676	
==>(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104872	105124	
==>(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	252984	253236	
==>(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450913	451165	
==>(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	513312	513564	
==>(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578414	578666	
==>(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964227	964581	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965234	965588	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966242	966596	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967250	967604	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968259	968613	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969267	969621	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970276	970630	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971285	971639	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385390	385699	
==>ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386521	386830	
==>ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387652	387961	
==>ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388784	389093	
==>ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389915	390224	
==>ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391047	391356	
==>ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392179	392488	
==>ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393312	393621	
==>ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5757	5870	
==>ir;
}

sub post_branch($) {
	my $self = shift;
	my $pops = shift;
	my $pir = '';

	# Branches mean we need to deal <==
8	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3695	3808	
==>ir;
}

sub post_branch($) {
	my $self = shift;
	my $pops = shift;
	my $pir = '';

	# Branches mean we need to deal <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1288	1398	
==>return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compil <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1279	1389	
==>return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compil <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1168	1278	
==>return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compil <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1627	1737	
==>return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compil <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1763	1873	
==>return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compil <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1406	1516	
==>return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compil <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24445	24553	
==>ate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_mo <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24676	24784	
==>ate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_mo <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25334	25442	
==>ate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_mo <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25687	25795	
==>ate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_mo <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26344	26452	
==>ate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_mo <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26575	26683	
==>ate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_mo <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27234	27342	
==>ate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_mo <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27585	27693	
==>ate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_mo <==
8	/Users/nnunley/parrot/lib/Pod/Escapes.pm	16401	16512	
==>>) {
    if(m/<!ENTITY\s+(\S+)\s+"&#([^;]+);">/) {
      my($name, $value) = ($1,$2);
      next if $name eq 'qu <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047469	1047770	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050349	1050650	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051383	1051684	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052417	1052718	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053452	1053753	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054578	1054879	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059273	1059574	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NA <==
8	/Users/nnunley/parrot/lib/Text/Balanced.pm	13224	13317	
==>er, $rdel_outer, $ldel_inner, $rdel_inner, $rd) = @_;
	my $startpos = pos($$textref) = pos($$t <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627156	627252	
==>eal_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628300	628396	
==>eal_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632558	632654	
==>eal_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633600	633696	
==>eal_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634657	634753	
==>eal_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635775	635871	
==>eal_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636893	636989	
==>eal_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638012	638108	
==>eal_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396151	396397	
==>\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397231	397477	
==>\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398311	398557	
==>\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399392	399638	
==>\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400472	400718	
==>\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401553	401799	
==>\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402634	402880	
==>\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403716	403962	
==>\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699979	700339	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700969	701329	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701960	702320	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702951	703311	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703943	704303	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704934	705294	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705926	706286	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706918	707278	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "" <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	123	219	
==>ame license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expre <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	117	213	
==>ame license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expre <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	118	214	
==>ame license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expre <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	119	215	
==>ame license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expre <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	119	215	
==>ame license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expre <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	118	214	
==>ame license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expre <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	123	219	
==>ame license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expre <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	120	216	
==>ame license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expre <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888318	888686	
==>[
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_cor <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889452	889820	
==>[
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_cor <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890586	890954	
==>[
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_cor <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891721	892089	
==>[
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_cor <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892855	893223	
==>[
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_cor <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893990	894358	
==>[
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_cor <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895125	895493	
==>[
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_cor <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896261	896629	
==>[
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_cor <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40065	40246	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40912	41093	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42467	42648	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47174	47355	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48764	48945	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50364	50545	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51957	52138	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" = <==
8	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	657	759	
==>lass)" => "return if start of input is charclass, advance 1" ],

    [ "start(n)" => "mark start of n-t <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426222	426527	
==>3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427109	427414	
==>3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427995	428300	
==>3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428882	429187	
==>3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429768	430073	
==>3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430655	430960	
==>3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431541	431846	
==>3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	306418	306647	
==>ops\"\n  if (!{{\@1}}) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' <==
8	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	4792	4955	
==>ree')) {
                # $arg is a reference variable, remember.
                $arg = $self->pass1($arg, $ctx);
            }
        }
        return $t;
    } <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950644	950950	
==>est);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "tran <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951604	951910	
==>est);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "tran <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952564	952870	
==>est);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "tran <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961102	961408	
==>est);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "tran <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962064	962370	
==>est);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "tran <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963026	963332	
==>est);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "tran <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583963	584224	
==>"subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585037	585298	
==>"subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
8	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10691	10830	
==>$result = new_tmp( $parser, 'pmc' );
                    push @opcodes,
                        new LocalDir( $parser, 'result' => $result <==
8	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16544	16675	
==>$result = new_tmp( $parser, 'pmc' );
                push @opcodes, new LocalDir( $parser,
                    'result' => $result <==
8	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17123	17254	
==>$result = new_tmp( $parser, 'pmc' );
                push @opcodes, new LocalDir( $parser,
                    'result' => $result <==
8	/Users/nnunley/parrot/languages/lua/Lua/build.pm	2635	2760	
==>er);
    $parser->YYData->{lex_num} ++;
##    warn "PushScope\n";
}

sub PopScope {
    my ($parser) = @_;

    my $sy <==
8	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15513	15620	
==>$result = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result <==
8	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18172	18279	
==>$result = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result <==
8	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19266	19373	
==>$result = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result <==
8	/Users/nnunley/parrot/languages/lua/Lua/build.pm	23227	23334	
==>$result = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897247	897596	
==>}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898265	898614	
==>}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899283	899632	
==>}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900302	900651	
==>}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901320	901669	
==>}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902339	902688	
==>}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903358	903707	
==>}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904378	904727	
==>}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667067	667352	
==>UMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667840	668125	
==>UMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668614	668899	
==>UMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669385	669670	
==>UMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670157	670442	
==>UMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670929	671214	
==>UMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671702	671987	
==>UMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
8	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	1788	1886	
==>ift;
    
    return $self->isa('Parrot::Docs::Section::Parrot');
}

=item C<html_link($path)>

Ret <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913064	913407	
==>4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inde <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914075	914418	
==>4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inde <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915086	915429	
==>4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inde <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916098	916441	
==>4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inde <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917109	917452	
==>4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inde <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918121	918464	
==>4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inde <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919133	919476	
==>4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inde <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908468	908809	
==>4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inde <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584408	584504	
==>"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *nex <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585483	585579	
==>"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *nex <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586630	586726	
==>"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *nex <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587816	587912	
==>"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *nex <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589002	589098	
==>"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *nex <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590189	590285	
==>"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *nex <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597924	598020	
==>"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *nex <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598971	599067	
==>"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *nex <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	972902	973072	
==>",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(in <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974031	974201	
==>",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(in <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975160	975330	
==>",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(in <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976290	976460	
==>",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(in <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977419	977589	
==>",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(in <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978549	978719	
==>",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(in <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979679	979849	
==>",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(in <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980810	980980	
==>",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclass(in <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896579	896910	
==>> "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897596	897927	
==>> "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898614	898945	
==>> "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899632	899963	
==>> "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900651	900982	
==>> "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901669	902000	
==>> "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902688	903019	
==>> "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903707	904038	
==>> "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213530	213826	
==>P_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214471	214767	
==>P_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215411	215707	
==>P_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216352	216648	
==>P_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217291	217587	
==>P_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218231	218527	
==>P_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219209	219505	
==>P_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
8	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	23172	23282	
==>ing title <$title>\n" }
    else { print "Returning title <>\n" }
  }
  
  return '' unless defined $title;
  r <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888272	888672	
==>n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889406	889806	
==>n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890540	890940	
==>n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891675	892075	
==>n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892809	893209	
==>n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893944	894344	
==>n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895079	895479	
==>n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896215	896615	
==>n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692196	692448	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693195	693447	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694195	694447	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695195	695447	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696196	696448	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697196	697448	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698197	698449	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699198	699450	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63722	63882	
==>$line,
										   $self,
										   $matchrule,
										   $argcode);
										   
						$prod and $prod->additem($item)
						      or  _no_rule("repetit <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63015	63161	
==>$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("repetit <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64452	64598	
==>$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("repetit <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65107	65253	
==>$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("repetit <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65767	65913	
==>$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("repetit <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	66486	66632	
==>$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("repetit <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62383	62524	
==>$line,
									   $self,
									   $matchrule,
									   $argcode);
					$prod and $prod->additem($item)
					      or  _no_rule("repetit <==
8	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	14696	14818	
==>pr' => 28,
			'charclass' => 12,
			'range' => 25
		}
	},
	{#State 29
		DEFAULT => -8
	},
	{#State 30
		ACTIONS => {
			'NU <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454153	454451	
==>" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455007	455305	
==>" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455862	456160	
==>" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456717	457015	
==>" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457571	457869	
==>" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458426	458724	
==>" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
8	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	842	966	
==>er Dialogue Steps',
        'auto' => 'System Test Steps',
        'gen' => 'File Creation Steps',
    );
    
    foreach my <==
8	/Users/nnunley/parrot/lib/Parrot/Test.pm	7006	7108	
==>PACKAGE__ );
}

# this kludge is an hopefully portable way of having
# redirections ( tested on Linux a <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	395776	396076	
==>,
                  "CODE" => 459,
                  "ARGS" => [
                              "p",
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438864	439073	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439878	440087	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440893	441102	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441907	442116	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442922	443131	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443936	444145	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444951	445160	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	2611	2765	
==>->catfile( $dir, '*/*.t' ) )
                    );
        print join( "\n", @files );
        print "\n" if @files;
        exit;
    }
    elsif (@{ $op <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412981	413290	
==>poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ] <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414108	414417	
==>poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ] <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415235	415544	
==>poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ] <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416363	416672	
==>poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ] <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417490	417799	
==>poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ] <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418618	418927	
==>poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ] <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419746	420055	
==>poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ] <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420875	421184	
==>poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ] <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692888	693001	
==>"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693888	694001	
==>"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694888	695001	
==>"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695889	696002	
==>"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696889	697002	
==>"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697890	698003	
==>"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698891	699004	
==>"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699893	700006	
==>"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912330	912683	
==>( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913340	913693	
==>( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914351	914704	
==>( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915362	915715	
==>( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916374	916727	
==>( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917385	917738	
==>( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918397	918750	
==>( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919409	919762	
==>( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264418	264726	
==>{{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265272	265580	
==>{{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266126	266434	
==>{{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266981	267289	
==>{{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299589	299895	
==>{{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300435	300741	
==>{{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301281	301587	
==>{{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
8	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	1956	2069	
==>TION    
    $ret |= 0x0800 if $chr =~ /^[[:alnum:]]$/;  # CCLASS_ALPHANUMERIC   
    $ret |= 0x1000 if $chr =~ /^ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	395373	395549	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396452	396628	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397532	397708	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398612	398788	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399693	399869	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400773	400949	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401854	402030	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402935	403111	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => <==
8	/Users/nnunley/parrot/lib/Class/Struct.pm	3441	3547	
==>efined(\$init{'$name'}) && ref(\$init{'$name'}) ne 'ARRAY';\n";
            $out .= "    \$r->$elem = $init <==
8	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1228	1333	
==>d $_[0]{'hide_line_numbers'};
        _xml_escape($value);
        print $fh $ATTR_PAD, $key, '="', $value <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72932	73030	
==>ame, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  } <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74534	74632	
==>ame, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  } <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76136	76234	
==>ame, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  } <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77739	77837	
==>ame, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  } <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79260	79358	
==>ame, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  } <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80781	80879	
==>ame, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  } <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878578	878787	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879681	879890	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880785	880994	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881889	882098	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882994	883203	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884099	884308	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885205	885414	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886311	886520	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897157	897245	
==>ne 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898175	898263	
==>ne 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899193	899281	
==>ne 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900212	900300	
==>ne 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901230	901318	
==>ne 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902249	902337	
==>ne 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903268	903356	
==>ne 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904288	904376	
==>ne 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264391	264653	
==>s/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265245	265507	
==>s/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266099	266361	
==>s/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266954	267216	
==>s/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299564	299822	
==>s/cmp.ops\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300410	300668	
==>s/cmp.ops\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301256	301514	
==>s/cmp.ops\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9627	9721	
==>d that uses find_symbol() to locate a matching
symbol, and then returns that symbol's access (c <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186071	186364	
==>) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187001	187294	
==>) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187931	188224	
==>) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188872	189165	
==>) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193610	193903	
==>) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194589	194882	
==>) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	195537	195830	
==>) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196485	196778	
==>) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412941	413035	
==>ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414068	414162	
==>ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415195	415289	
==>ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416323	416417	
==>ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417450	417544	
==>ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418578	418672	
==>ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419706	419800	
==>ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420835	420929	
==>ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\ <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	130	221	
==>ense
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Express <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	124	215	
==>ense
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Express <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	125	216	
==>ense
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Express <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	126	217	
==>ense
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Express <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	126	217	
==>ense
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Express <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	125	216	
==>ense
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Express <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	130	221	
==>ense
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Express <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	127	218	
==>ense
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Express <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	425610	425909	
==>P" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426496	426795	
==>P" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427383	427682	
==>P" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428269	428568	
==>P" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429156	429455	
==>P" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430042	430341	
==>P" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430929	431228	
==>P" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
8	/Users/nnunley/parrot/languages/python/pie-thon.pl	15863	15976	
==>Y_RSHIFT
{
    my ($n, $c, $cmt) = @_;
    binary_word('shr', $cmt);
}

sub BINARY_ADD
{
    my ($n, $c, $cmt) = @ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412894	413012	
==>,
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414021	414139	
==>,
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415148	415266	
==>,
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416276	416394	
==>,
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417403	417521	
==>,
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418531	418649	
==>,
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419659	419777	
==>,
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420788	420906	
==>,
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887503	887881	
==>> "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888636	889014	
==>> "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889770	890148	
==>> "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890904	891282	
==>> "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892039	892417	
==>> "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893173	893551	
==>> "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	894308	894686	
==>> "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895443	895821	
==>> "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412926	413022	
==>line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414053	414149	
==>line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415180	415276	
==>line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416308	416404	
==>line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417435	417531	
==>line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418563	418659	
==>line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419691	419787	
==>line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420820	420916	
==>line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822151	822237	
==>Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_s <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823219	823305	
==>Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_s <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824286	824372	
==>Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_s <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825357	825443	
==>Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_s <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826427	826513	
==>Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_s <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827497	827583	
==>Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_s <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828566	828652	
==>Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_s <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829634	829720	
==>Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_s <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879386	879676	
==>interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880490	880780	
==>interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881594	881884	
==>interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882699	882989	
==>interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883804	884094	
==>interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884910	885200	
==>interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886016	886306	
==>interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887123	887413	
==>interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717412	717695	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "T <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718343	718626	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "T <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719275	719558	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "T <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720474	720757	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "T <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721674	721957	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "T <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722702	722985	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "T <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723731	724014	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "T <==
8	/Users/nnunley/parrot/lib/Test/Builder.pm	3239	3337	
==>tem B<create>

  my $Test = Test::Builder->create;

Ok, so there can be more than one Test::Builder <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822237	822335	
==>stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry- <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823305	823403	
==>stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry- <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824372	824470	
==>stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry- <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825443	825541	
==>stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry- <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826513	826611	
==>stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry- <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827583	827681	
==>stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry- <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828652	828750	
==>stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry- <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829720	829818	
==>stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry- <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913025	913317	
==>dex(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914036	914328	
==>dex(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915047	915339	
==>dex(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916059	916351	
==>dex(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917070	917362	
==>dex(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918082	918374	
==>dex(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919094	919386	
==>dex(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920107	920399	
==>dex(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146410	146700	
==>)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151149	151439	
==>)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152127	152417	
==>)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	153070	153360	
==>)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154013	154303	
==>)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167636	167926	
==>)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172377	172667	
==>)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173355	173645	
==>)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	990986	991155	
==>",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_ccla <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992123	992292	
==>",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_ccla <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993260	993429	
==>",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_ccla <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994398	994567	
==>",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_ccla <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995535	995704	
==>",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_ccla <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996673	996842	
==>",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_ccla <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997811	997980	
==>",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_ccla <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	998950	999119	
==>",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_ccla <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385211	385304	
==>464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offs <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386342	386435	
==>464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offs <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387473	387566	
==>464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offs <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388605	388698	
==>464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offs <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389736	389829	
==>464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offs <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390868	390961	
==>464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offs <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392000	392093	
==>464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offs <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393133	393226	
==>464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offs <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888089	888227	
==>"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889223	889361	
==>"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890357	890495	
==>"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891492	891630	
==>"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892626	892764	
==>"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893761	893899	
==>"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	894896	895034	
==>"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896032	896170	
==>"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896573	896887	
==>AME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897590	897904	
==>AME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898608	898922	
==>AME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899626	899940	
==>AME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900645	900959	
==>AME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901663	901977	
==>AME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902682	902996	
==>AME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903701	904015	
==>AME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385356	385476	
==>_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386487	386607	
==>_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387618	387738	
==>_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388750	388870	
==>_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389881	390001	
==>_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391013	391133	
==>_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392145	392265	
==>_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393278	393398	
==>_exception(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	395399	395701	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396478	396780	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397558	397860	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398638	398940	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399719	400021	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400799	401101	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401880	402182	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402961	403263	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	1130	1265	
==>s one of:

    in            the argument passes a value into the op
    out           the argument passes a value out of the op
    ino <==
8	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15559	15649	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

1;


__END__

=head1 NAME

Pod: <==
8	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2144	2233	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__END__

=head1 NAME

Pod: <==
8	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3069	3158	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__END__

=head1 NAME

Pod: <==
8	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	784	873	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__END__

=head1 NAME

Pod: <==
8	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3539	3627	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__END__

=head1 NAME

Pod: <==
8	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2292	2380	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__END__

=head1 NAME

Pod: <==
8	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2395	2483	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__END__

=head1 NAME

Pod: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38397	38528	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39261	39392	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41821	41952	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46435	46566	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48018	48149	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49615	49746	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51218	51349	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  " <==
8	/Users/nnunley/parrot/config/gen/config_h.pm	2176	2296	
==>T_HAS_\U$1 1\n";
        }
    }
    print HH <<EOF;

/*
 * D_(\\w+) config entries
 */

EOF
    for (sort($conf->data->k <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385471	385808	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386602	386939	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387733	388070	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388865	389202	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389996	390333	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391128	391465	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392260	392597	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base <==
8	/Users/nnunley/parrot/languages/converter.pl	1184	1294	
==>][0];
		  $return .= " ( $item[3] )(?) ";
		  $return .= $item[5][0] if defined $item[5][0];
		}
		| terminal(? <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897166	897255	
==>src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898184	898273	
==>src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899202	899291	
==>src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900221	900310	
==>src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901239	901328	
==>src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902258	902347	
==>src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903277	903366	
==>src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904297	904386	
==>src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822180	822293	
==>stack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823248	823361	
==>stack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824315	824428	
==>stack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825386	825499	
==>stack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826456	826569	
==>stack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827526	827639	
==>stack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828595	828708	
==>stack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829663	829776	
==>stack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822247	822344	
==>@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_ty <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823315	823412	
==>@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_ty <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824382	824479	
==>@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_ty <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825453	825550	
==>@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_ty <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826523	826620	
==>@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_ty <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827593	827690	
==>@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_ty <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828662	828759	
==>@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_ty <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829730	829827	
==>@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_ty <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	821599	821907	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "f <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822666	822974	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "f <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823734	824042	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "f <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824804	825112	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "f <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825875	826183	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "f <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826944	827252	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "f <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828014	828322	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "f <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829081	829389	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "f <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964880	964973	
==>ng.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+= <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965888	965981	
==>ng.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+= <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966896	966989	
==>ng.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+= <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967905	967998	
==>ng.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+= <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968913	969006	
==>ng.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+= <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969922	970015	
==>ng.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+= <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970931	971024	
==>ng.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+= <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971941	972034	
==>ng.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+= <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158869	159166	
==>"NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159765	160062	
==>"NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160662	160959	
==>"NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161559	161856	
==>"NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162455	162752	
==>"NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163352	163649	
==>"NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
8	/Users/nnunley/parrot/config/gen/makefiles.pm	4203	4359	
==>nguages/cola/Makefile',
        commentType                    => '#',
        replace_slashes                => 1
    );
    genfile(
        'languages/HQ9 <==
8	/Users/nnunley/parrot/config/init/defaults.pm	3684	3796	
==>cc executable output file (different on Win32)
        cc_exe_out => '-o ',

        # prefix for ldflags (necess <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047695	1047932	
==>ss( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048618	1048855	
==>ss( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049542	1049779	
==>ss( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050575	1050812	
==>ss( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051609	1051846	
==>ss( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052643	1052880	
==>ss( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053678	1053915	
==>ss( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054804	1055041	
==>ss( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413119	413454	
==>,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414246	414581	
==>,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415373	415708	
==>,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416501	416836	
==>,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417628	417963	
==>,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418756	419091	
==>,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419884	420219	
==>,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network <==
8	/Users/nnunley/parrot/lib/Test/More.pm	4644	4762	
==>an);
}

sub import {
    my($class) = shift;

    my $caller = caller;

    $Test->exported_to($caller);

    my $idx = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878574	878751	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879677	879854	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880781	880958	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881885	882062	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882990	883167	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884095	884272	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885201	885378	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886307	886484	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879362	879471	
==>{{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880466	880575	
==>{{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881570	881679	
==>{{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882675	882784	
==>{{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883780	883889	
==>{{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884886	884995	
==>{{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885992	886101	
==>{{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887099	887208	
==>{{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471307	471616	
==>\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472294	472603	
==>\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473281	473590	
==>\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474271	474580	
==>\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475262	475571	
==>\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476253	476562	
==>\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/tools/dev/parrotbench.pl	719	834	
==>obench        skip benchmarks matching regexes (multiple)
   -time              show times instead of percentage

=h <==
8	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	1569	1669	
==>le code.
 4. Eliminate jumps to the following address.
 5. Eliminate unused labels.

TODO:

 1. I wou <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981938	982105	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclas <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983068	983235	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclas <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984198	984365	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclas <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985329	985496	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclas <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986459	986626	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclas <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987590	987757	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclas <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988721	988888	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclas <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989853	990020	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclas <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240227	240513	
==>\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241175	241461	
==>\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242123	242409	
==>\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243072	243358	
==>\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
8	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31759	31887	
==>rs} ) == 0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcod <==
8	/Users/nnunley/parrot/languages/lua/Lua/build.pm	32410	32538	
==>rs} ) == 0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcod <==
8	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33060	33188	
==>rs} ) == 0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcod <==
8	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33583	33711	
==>rs} ) == 0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcod <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950505	950603	
==>string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951465	951563	
==>string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952425	952523	
==>string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953386	953484	
==>string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960962	961060	
==>string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961924	962022	
==>string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962886	962984	
==>string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963849	963947	
==>string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	331826	332122	
==>pen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333103	333399	
==>pen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334381	334677	
==>pen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335659	335955	
==>pen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343637	343933	
==>pen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344878	345174	
==>pen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346120	346416	
==>pen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347362	347658	
==>pen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
8	/Users/nnunley/parrot/lib/Text/Balanced.pm	46218	46314	
==>s, a here document is rarely
a contiguous substring. For example, a typical piece of code using
h <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897162	897248	
==>7 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898180	898266	
==>7 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899198	899284	
==>7 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900217	900303	
==>7 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901235	901321	
==>7 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902254	902340	
==>7 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903273	903359	
==>7 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904293	904379	
==>7 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}} <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	764	886	
==>");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	3720	3842	
==>");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	3519	3641	
==>");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	4181	4303	
==>");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1592	1714	
==>");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	3238	3360	
==>");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1409	1531	
==>");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1403	1525	
==>");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	126	219	
==>se
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expression/ <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	127	220	
==>se
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expression/ <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	128	221	
==>se
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expression/ <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	128	221	
==>se
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expression/ <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	127	220	
==>se
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expression/ <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	132	225	
==>se
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expression/ <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	129	222	
==>se
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expression/ <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	132	224	
==>se
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expression <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586937	587223	
==>reter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588123	588409	
==>reter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589309	589595	
==>reter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590496	590782	
==>reter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591705	591991	
==>reter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592915	593201	
==>reter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594125	594411	
==>reter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595336	595622	
==>reter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396179	396479	
==>rpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397259	397559	
==>rpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398339	398639	
==>rpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399420	399720	
==>rpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400500	400800	
==>rpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401581	401881	
==>rpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402662	402962	
==>rpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403744	404044	
==>rpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740889	741247	
==>> [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 833,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 164 \"src/ <==
8	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31812	31904	
==>has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_name) <==
8	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33389	33481	
==>has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_name) <==
8	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35100	35192	
==>has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_name) <==
8	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36403	36495	
==>has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_name) <==
8	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38350	38442	
==>has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_name) <==
8	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40446	40538	
==>has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_name) <==
8	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29769	29857	
==>has_method}{$meth};
    return $self->SUPER::body($self->{methods}[$n], $line, $out_name) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356202	356443	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ] <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356861	357102	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ] <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357521	357762	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ] <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358184	358425	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ] <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358848	359089	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ] <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359595	359836	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ] <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360343	360584	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ] <==
8	/Users/nnunley/parrot/lib/Class/Struct.pm	17815	17912	
==>also take an object ref instead of requiring a hash ref.
   Also default initializes nested object <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412863	413002	
==>"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413990	414129	
==>"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415117	415256	
==>"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416245	416384	
==>"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417372	417511	
==>"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418500	418639	
==>"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419628	419767	
==>"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420757	420896	
==>"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351085	351341	
==>> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351747	352003	
==>> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352404	352660	
==>> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353062	353318	
==>> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353806	354062	
==>> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354551	354807	
==>> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361018	361274	
==>> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIR <==
8	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	13051	13156	
==>iable
    push @ops, <<'END';
{
my %MATCH;
while (my ($key, $val) = each %rx_match) {
    if (UNIVERSAL::i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426276	426580	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_cor <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427163	427467	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_cor <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428049	428353	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_cor <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428936	429240	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_cor <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429822	430126	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_cor <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430709	431013	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_cor <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431595	431899	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_cor <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20485	20597	
==>($block, $token);

      my @left = ($left);

      $self->require_assign;

      while ($self->get()->is_ident a <==
8	/Users/nnunley/parrot/lib/Parrot/Test.pm	4512	4609	
==>iles and runs the C code, passing the test if a string comparison of
output with the expected resu <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438703	439005	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439717	440019	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440732	441034	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441746	442048	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442761	443063	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443775	444077	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444790	445092	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core", <==
8	/Users/nnunley/parrot/config/auto/gdbm.pm	113	210	
==>75Z coke  $

=head1 NAME

config/auto/gdbm.pm - Test for GNU dbm (gdbm) library

=head1 DESCRIPTIO <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700798	700959	
==>"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701789	701950	
==>"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702780	702941	
==>"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703772	703933	
==>"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704763	704924	
==>"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705755	705916	
==>"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706747	706908	
==>"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	707740	707901	
==>"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700045	700371	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701035	701361	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702026	702352	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703017	703343	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704009	704335	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705000	705326	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705992	706318	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706984	707310	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047473	1047776	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050353	1050656	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051387	1051690	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052421	1052724	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053456	1053759	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054582	1054885	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059277	1059580	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27361	27479	
==>n);
      $self->_restore ($return);
      $return = $temp;
    }
    my $temp = $self->_constant(1);
    $self->_add_i <==
8	/Users/nnunley/parrot/tools/dev/nm.pl	6126	6226	
==>ype=$Type unknown\n"
    if defined $Type && $Type ne '' && !exists $Type{$Type};

my $TypeLong = def <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763093	763195	
==>0 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound r <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763946	764048	
==>0 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound r <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764799	764901	
==>0 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound r <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765653	765755	
==>0 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound r <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769917	770019	
==>0 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound r <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770770	770872	
==>0 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound r <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771623	771725	
==>0 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound r <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772477	772579	
==>0 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound r <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961060	961315	
==>_encoding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962022	962277	
==>_encoding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962984	963239	
==>_encoding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963947	964202	
==>_encoding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066936	1067041	
==>\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATV <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068122	1068227	
==>\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATV <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069308	1069413	
==>\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATV <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070495	1070600	
==>\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATV <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878580	878865	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879683	879968	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880787	881072	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881891	882176	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882996	883281	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884101	884386	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885207	885492	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886313	886598	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822226	822319	
==>ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823294	823387	
==>ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824361	824454	
==>ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825432	825525	
==>ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826502	826595	
==>ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827572	827665	
==>ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828641	828734	
==>ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829709	829802	
==>ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385302	385400	
==>ffset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"se <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386433	386531	
==>ffset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"se <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387564	387662	
==>ffset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"se <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388696	388794	
==>ffset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"se <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389827	389925	
==>ffset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"se <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390959	391057	
==>ffset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"se <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392091	392189	
==>ffset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"se <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393224	393322	
==>ffset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"se <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913003	913113	
==>{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914014	914124	
==>{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915025	915135	
==>{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916037	916147	
==>{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917048	917158	
==>{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918060	918170	
==>{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919072	919182	
==>{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920085	920195	
==>{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" <==
8	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	346	446	
==>O::File;

use strict;
use warnings;

use base qw( Parrot::IO::Path );

use FileHandle;
use Parrot::IO <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897177	897281	
==>ing.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898195	898299	
==>ing.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899213	899317	
==>ing.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900232	900336	
==>ing.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901250	901354	
==>ing.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902269	902373	
==>ing.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903288	903392	
==>ing.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904308	904412	
==>ing.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93370	93647	
==>, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94150	94427	
==>, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101865	102142	
==>, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102636	102913	
==>, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109694	109971	
==>, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110473	110750	
==>, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133899	134176	
==>, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134680	134957	
==>, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700873	700968	
==>rc/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701864	701959	
==>rc/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702855	702950	
==>rc/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703847	703942	
==>rc/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704838	704933	
==>rc/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705830	705925	
==>rc/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706822	706917	
==>rc/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	707815	707910	
==>rc/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879358	879450	
==>\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880462	880554	
==>\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881566	881658	
==>\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882671	882763	
==>\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883776	883868	
==>\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884882	884974	
==>\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885988	886080	
==>\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887095	887187	
==>\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n" <==
8	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15454	15562	
==>next i
print
for i = 10 to 3 step -1
	print i
next i
print

' For loops.  3..6 nested in 1..3
function foo
	f <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193517	193605	
==>string_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194496	194584	
==>string_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210248	210336	
==>string_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211228	211316	
==>string_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218806	218894	
==>string_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219785	219873	
==>string_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227365	227453	
==>string_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228345	228433	
==>string_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950497	950593	
==>src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_str <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951457	951553	
==>src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_str <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952417	952513	
==>src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_str <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953378	953474	
==>src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_str <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960954	961050	
==>src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_str <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961916	962012	
==>src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_str <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962878	962974	
==>src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_str <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963841	963937	
==>src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_str <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830139	830349	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830879	831089	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831620	831830	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832347	832557	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833075	833285	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833797	834007	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834522	834732	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
8	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	1323	1419	
==>t stack to register mapper\n";
}
sub post_call {
	die "post_call not implemented for current stac <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700880	700989	
==>pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701871	701980	
==>pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702862	702971	
==>pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703854	703963	
==>pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704845	704954	
==>pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705837	705946	
==>pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706829	706938	
==>pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	707822	707931	
==>pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  " <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	15843	16000	
==>CTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AN <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18643	18800	
==>CTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AN <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29696	29853	
==>CTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AN <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30211	30368	
==>CTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AN <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	32651	32808	
==>CTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AN <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36757	36914	
==>CTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AN <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	42041	42198	
==>CTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AN <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44821	44978	
==>CTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AN <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	14	113	
==>l.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subjec <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	8	107	
==>l.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subjec <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	7	106	
==>l.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subjec <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	10	109	
==>l.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subjec <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	8	107	
==>l.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subjec <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	7	106	
==>l.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subjec <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	14	113	
==>l.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subjec <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	9	108	
==>l.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subjec <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871137	871248	
==>}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872154	872265	
==>}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873171	873282	
==>}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874189	874300	
==>}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875206	875317	
==>}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876224	876335	
==>}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877242	877353	
==>}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878261	878372	
==>}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343549	343758	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344790	344999	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346032	346241	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347274	347483	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348517	348726	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349518	349727	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o", <==
8	/Users/nnunley/parrot/lib/Pod/Simple.pm	18298	18408	
==>he top off
    return $treelet;
  } else {
    $treelet = $self->_treelet_from_formatting_codes(@_);
  }
  
  i <==
8	/Users/nnunley/parrot/config/inter/libparrot.pm	302	401	
==>guration
step determines whether it should be build static or shared.

=cut

package inter::lib <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950595	950832	
==>ng_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951555	951792	
==>ng_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952515	952752	
==>ng_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953476	953713	
==>ng_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	3071	3239	
==>RGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 3,
                  "ARGS" => [],
                  "BODY" => "#line 117 \"src/ops/core <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35847	35944	
==>f ($_[0]->{matchrule})
		{ return "sub { goto &{''.qq{$_[1]$_[0]->{subrule}}} }"; }
	else
		{ retu <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350945	351033	
==>BODY" => "#line 190 \"src/ops/io.ops\"\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351607	351695	
==>BODY" => "#line 190 \"src/ops/io.ops\"\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830085	830307	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830825	831047	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831566	831788	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832293	832515	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833021	833243	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833743	833965	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834468	834690	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
8	/Users/nnunley/parrot/languages/lua/Lua/build.pm	22308	22434	
==>isne',
    );
    my @opcodes = ();
    my $flag = new_tmp( $parser, 'int' );
    push @opcodes, @{ $expr1->[1] };
    pus <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396122	396249	
==>, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LAB <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397202	397329	
==>, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LAB <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398282	398409	
==>, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LAB <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399363	399490	
==>, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LAB <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400443	400570	
==>, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LAB <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401524	401651	
==>, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LAB <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402605	402732	
==>, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LAB <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403687	403814	
==>, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LAB <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385243	385332	
==>\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386374	386463	
==>\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387505	387594	
==>\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388637	388726	
==>\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389768	389857	
==>\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390900	390989	
==>\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392032	392121	
==>\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393165	393254	
==>\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@ <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24430	24551	
==>= $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_ <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24661	24782	
==>= $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_ <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25319	25440	
==>= $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_ <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25672	25793	
==>= $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_ <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26329	26450	
==>= $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_ <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26560	26681	
==>= $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_ <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27219	27340	
==>= $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_ <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27570	27691	
==>= $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	373437	373771	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374319	374653	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375202	375536	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376085	376419	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376969	377303	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377852	378186	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378736	379070	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379620	379954	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	15875	16019	
==>.." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" = <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18675	18819	
==>.." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" = <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29728	29872	
==>.." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" = <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30243	30387	
==>.." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" = <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	32683	32827	
==>.." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" = <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36789	36933	
==>.." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" = <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	42073	42217	
==>.." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" = <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44853	44997	
==>.." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878340	878695	
==>=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879443	879798	
==>=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880547	880902	
==>=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881651	882006	
==>=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882756	883111	
==>=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883861	884216	
==>=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884967	885322	
==>=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886073	886428	
==>=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879372	879673	
==>string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880476	880777	
==>string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881580	881881	
==>string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882685	882986	
==>string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883790	884091	
==>string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884896	885197	
==>string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886002	886303	
==>string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887109	887410	
==>string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822122	822212	
==>src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT( <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823190	823280	
==>src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT( <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824257	824347	
==>src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT( <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825328	825418	
==>src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT( <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826398	826488	
==>src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT( <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827468	827558	
==>src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT( <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828537	828627	
==>src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT( <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829605	829695	
==>src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT( <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830735	830975	
==>UP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831476	831716	
==>UP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832203	832443	
==>UP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832931	833171	
==>UP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833653	833893	
==>UP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834378	834618	
==>UP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835104	835344	
==>UP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835856	836096	
==>UP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350348	350637	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAG <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361840	362129	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAG <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362739	363028	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAG <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363641	363930	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAG <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364544	364833	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAG <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365383	365672	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAG <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366223	366512	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAG <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	1383	1509	
==>'arg' or $kind eq 'const';

  my $self = bless {
    BLOCK  => $block,

    SCOPE  => $scope,
    KIND   => $kind,
    TYPE   = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730730	731005	
==>n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731466	731741	
==>n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735219	735494	
==>n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735955	736230	
==>n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741262	741537	
==>n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745822	746097	
==>n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746557	746832	
==>n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
8	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1029	1145	
==>extra => '-def:src/libnci_test.def',
    );

    if ($is_msvc) {

        # Check the output of cl.exe to see if it c <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396183	396502	
==>ter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397263	397582	
==>ter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398343	398662	
==>ter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399424	399743	
==>ter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400504	400823	
==>ter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401585	401904	
==>ter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402666	402985	
==>ter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403748	404067	
==>ter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470630	470927	
==>"div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 54 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471616	471913	
==>"div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 54 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472603	472900	
==>"div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 54 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473590	473887	
==>"div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 54 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474580	474877	
==>"div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 54 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475571	475868	
==>"div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 54 <==
8	/Users/nnunley/parrot/languages/python/pie-thon.pl	25041	25157	
==>R   # builtin opcode
	$t = $func $args   $cmt
EOC
    }
    elsif ($name =~/^obj (\S+) attr (\w+)/) {  # convert to m <==
8	/Users/nnunley/parrot/lib/Parrot/Test.pm	4404	4495	
==>de.
Pass unless the generated PASM is $expected.

=item C<c_output_is($code, $expected, $des <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	373489	373809	
==>0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374371	374691	
==>0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375254	375574	
==>0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376137	376457	
==>0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377021	377341	
==>0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377904	378224	
==>0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378788	379108	
==>0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379672	379992	
==>0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822133	822226	
==>ck.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->c <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823201	823294	
==>ck.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->c <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824268	824361	
==>ck.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->c <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825339	825432	
==>ck.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->c <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826409	826502	
==>ck.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->c <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827479	827572	
==>ck.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->c <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828548	828641	
==>ck.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->c <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829616	829709	
==>ck.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->c <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879305	879396	
==>!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpreter <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880409	880500	
==>!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpreter <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881513	881604	
==>!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpreter <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882618	882709	
==>!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpreter <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883723	883814	
==>!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpreter <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884829	884920	
==>!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpreter <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885935	886026	
==>!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpreter <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887042	887133	
==>!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpreter <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42329	42518	
==>\"\n  do_exception(interpreter, EXCEPT_exit, {{\@1}});\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43019	43208	
==>\"\n  do_exception(interpreter, EXCEPT_exit, {{\@1}});\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576466	576551	
==>nterpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, name, {{\@3}} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577478	577563	
==>nterpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, name, {{\@3}} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579566	579651	
==>nterpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, name, {{\@3}} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580871	580956	
==>nterpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, name, {{\@3}} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582176	582261	
==>nterpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, name, {{\@3}} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583482	583567	
==>nterpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, name, {{\@3}} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931889	932140	
==>se(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932660	932911	
==>se(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934095	934346	
==>se(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934870	935121	
==>se(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936311	936562	
==>se(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937088	937339	
==>se(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009893	1010144	
==>se(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010658	1010909	
==>se(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25130	25228	
==>eturn;
  my $num_children = defined $node->{children} ? @{$node->{children}} - 1 : 0;

  if($num_ch <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27030	27128	
==>eturn;
  my $num_children = defined $node->{children} ? @{$node->{children}} - 1 : 0;

  if($num_ch <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24242	24339	
==>eturn;
  my $num_children = defined $node->{children} ? @{$node->{children}} - 1 : 0;
  if($num_ch <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26141	26238	
==>eturn;
  my $num_children = defined $node->{children} ? @{$node->{children}} - 1: 0;

  if($num_ch <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926020	926116	
==>ODY" => "#line 385 \"src/ops/string.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO_HEADER:   {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927490	927586	
==>ODY" => "#line 385 \"src/ops/string.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO_HEADER:   {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928960	929056	
==>ODY" => "#line 385 \"src/ops/string.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO_HEADER:   {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930431	930527	
==>ODY" => "#line 385 \"src/ops/string.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO_HEADER:   {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	513600	513897	
==>=> "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514479	514776	
==>=> "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515359	515656	
==>=> "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1098531	1098828	
==>=> "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099728	1100025	
==>=> "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100926	1101223	
==>=> "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102124	1102421	
==>=> "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4150	4327	
==>arguments!" if @_;

  return $self->{SYMBOLS}{$name};
}


###############################################################################

=head2 BLOCK->symbol_names()

Returns t <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260064	260372	
==>\@2}} == {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260916	261224	
==>\@2}} == {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261768	262076	
==>\@2}} == {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262621	262929	
==>\@2}} == {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290920	291226	
==>\@2}} == {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291766	292072	
==>\@2}} == {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292612	292918	
==>\@2}} == {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
8	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20141	20237	
==>ethod.  If you're
writing a Pod-formatter class, you should define a C<run> just so
that users ca <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822164	822250	
==>st entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823232	823318	
==>st entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824299	824385	
==>st entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825370	825456	
==>st entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826440	826526	
==>st entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827510	827596	
==>st entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828579	828665	
==>st entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829647	829733	
==>st entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}} <==
8	/Users/nnunley/parrot/lib/Pod/Simple.pm	20561	20680	
==>ng;
          foreach my $attrname ('section', 'to') {        
            if(defined($thing = $treelet->[$i][1]{$attrna <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1340	1455	
==>OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1331	1446	
==>OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1220	1335	
==>OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1679	1794	
==>OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1815	1930	
==>OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1458	1573	
==>OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) <==
8	/Users/nnunley/parrot/lib/Pod/Simple.pm	42047	42162	
==>ng;
        foreach my $attrname ('section', 'to') {        
          if(defined($thing = $treelet->[$i][1]{$attrna <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264402	264695	
==>\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265256	265549	
==>\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266110	266403	
==>\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266965	267258	
==>\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299575	299864	
==>\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300421	300710	
==>\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301267	301556	
==>\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
8	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	15078	15180	
==>alt_next');
    my @tries = map { $self->genlabel('alt_try') } 2..@args;
    my @fails = (@tries, $last <==
8	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4130	4227	
==>, EQ_$eqnum
	set $result, 0.0
EQ_$eqnum: noop
CODE
	},
	'and' => sub {
		my($a1,$a2,$result,$op,$o <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692253	692590	
==>UMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693252	693589	
==>UMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694252	694589	
==>UMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695252	695589	
==>UMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696253	696590	
==>UMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697253	697590	
==>UMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698254	698591	
==>UMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699255	699592	
==>UMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627125	627234	
==>rpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628269	628378	
==>rpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632527	632636	
==>rpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633569	633678	
==>rpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634626	634735	
==>rpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635744	635853	
==>rpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636862	636971	
==>rpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637981	638090	
==>rpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438873	439149	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439887	440163	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440902	441178	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441916	442192	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442931	443207	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443945	444221	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444960	445236	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 " <==
8	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	1497	1627	
==>_};
    }
}
gather();

sub output {
    my @r;
    my $curlabel = "\t";
    for my $op (@_) {
	if (! ref($op)) {
	    push @r, $cur <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878601	878935	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879704	880038	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880808	881142	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881912	882246	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883017	883351	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884122	884456	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885228	885562	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886334	886668	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912933	913064	
==>,
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913944	914075	
==>,
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914955	915086	
==>,
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915967	916098	
==>,
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916978	917109	
==>,
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917990	918121	
==>,
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919002	919133	
==>,
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920015	920146	
==>,
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222081	222377	
==>JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223023	223319	
==>JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223964	224260	
==>JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224906	225202	
==>JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225846	226142	
==>JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226787	227083	
==>JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227766	228062	
==>JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
8	/Users/nnunley/parrot/config/gen/config_pm.pm	935	1046	
==>: $!";

    print OUT "# Generated by config/gen/config_pm.pm\n";

    my $data = $conf->data;

    while (<IN>) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539821	540120	
==>" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541072	541371	
==>" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542324	542623	
==>" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066363	1066662	
==>" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067548	1067847	
==>" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068734	1069033	
==>" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069920	1070219	
==>" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
8	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	7554	7658	
==>NEXT] =~ /PUN/) {
			feedme();
			($resultb, $typeb, @codeb)=EXPRESSION();
		}
	}
	if (@codeb and @codef) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627095	627206	
==>{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"I <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628239	628350	
==>{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"I <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632497	632608	
==>{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"I <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633539	633650	
==>{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"I <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634596	634707	
==>{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"I <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635714	635825	
==>{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"I <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636832	636943	
==>{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"I <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637951	638062	
==>{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"I <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699964	700328	
==>\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "F <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700954	701318	
==>\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "F <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701945	702309	
==>\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "F <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702936	703300	
==>\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "F <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703928	704292	
==>\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "F <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704919	705283	
==>\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "F <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705911	706275	
==>\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "F <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706903	707267	
==>\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtfind",
                  "F <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426237	426561	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "F <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427124	427448	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "F <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428010	428334	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "F <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428897	429221	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "F <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429783	430107	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "F <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430670	430994	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "F <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431556	431880	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "F <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	832	930	
==>ef, undef);
sub BOF { return $BOF }

my $EOF = Jako::Token->new_eof(undef, undef);
sub EOF { return <==
8	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31807	31899	
==>lf->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_ <==
8	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33384	33476	
==>lf->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_ <==
8	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35095	35187	
==>lf->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_ <==
8	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36398	36490	
==>lf->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_ <==
8	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38345	38437	
==>lf->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_ <==
8	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40441	40533	
==>lf->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_ <==
8	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	18	106	
==>01-2006, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Configure/Step.pm 20340 2006-06-2 <==
8	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29764	29852	
==>lf->{has_method}{$meth};
    return $self->SUPER::body($self->{methods}[$n], $line, $out_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439608	439927	
==>}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440623	440942	
==>}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441637	441956	
==>}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442652	442971	
==>}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443666	443985	
==>}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444681	445000	
==>}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	445695	446014	
==>}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
8	/Users/nnunley/parrot/config/gen/PodText.pm	836	930	
==>xt;

use strict;
use vars qw($description $result @args);

use base qw(Parrot::Configure::Step: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888222	888549	
==>r, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889356	889683	
==>r, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890490	890817	
==>r, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891625	891952	
==>r, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892759	893086	
==>r, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893894	894221	
==>r, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895029	895356	
==>r, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896165	896492	
==>r, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047498	1047781	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "fin <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050378	1050661	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "fin <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051412	1051695	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "fin <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052446	1052729	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "fin <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053481	1053764	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "fin <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054607	1054890	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "fin <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059302	1059585	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "fin <==
8	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	42	127	
==>tion.
# $Id: /parrot/lib/Parrot/Docs/Section/BigNum.pm 20333 2006-06-21T18:44:31.11156 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396089	396181	
==>ket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397169	397261	
==>ket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398249	398341	
==>ket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399330	399422	
==>ket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400410	400502	
==>ket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401491	401583	
==>ket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402572	402664	
==>ket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403654	403746	
==>ket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539855	540151	
==>> "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541106	541402	
==>> "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542358	542654	
==>> "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066397	1066693	
==>> "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067582	1067878	
==>> "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068768	1069064	
==>> "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069954	1070250	
==>> "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1530	1635	
==>{
  my $node = shift;

  if(exists $node->{children}) {
    for(@{$node->{children}}) {
      _dataflow($_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4992	5095	
==>b goto_offset 
{
    my $self = shift;

    return $self->gen_goto($self->expr_offset(@_));
}

=item C<g <==
8	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	5834	5935	
==>GOTO allowed";
		}
		push @{$code{$seg}->{code}}, "ON_${ons}_$i:\n";
		$i++;
	}
	if ($branch eq "gosub <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576508	576594	
==>set_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577520	577606	
==>set_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579608	579694	
==>set_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580913	580999	
==>set_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582218	582304	
==>set_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583524	583610	
==>set_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385246	385338	
==>}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386377	386469	
==>}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387508	387600	
==>}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388640	388732	
==>}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389771	389863	
==>}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390903	390995	
==>}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392035	392127	
==>}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393168	393260	
==>}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	425616	425913	
==>0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426502	426799	
==>0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427389	427686	
==>0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428275	428572	
==>0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429162	429459	
==>0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430048	430345	
==>0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430935	431232	
==>0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13910	14033	
==>operly.
      #
      # Put on an empty continue block and then pop it back off. It will be in the
      # parent block's co <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160672	160970	
==>"ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 194, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222094	222392	
==>",
                  "NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223036	223334	
==>",
                  "NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223977	224275	
==>",
                  "NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224919	225217	
==>",
                  "NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225859	226157	
==>",
                  "NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226800	227098	
==>",
                  "NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227779	228077	
==>",
                  "NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438668	439003	
==>[
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439682	440017	
==>[
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440697	441032	
==>[
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441711	442046	
==>[
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442726	443061	
==>[
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443740	444075	
==>[
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444755	445090	
==>[
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core <==
8	/Users/nnunley/parrot/tools/build/ops2c.pl	1502	1598	
==>d the Parrot core opcode library.

=item C<--no-lines>

Do not generate C<#line> directives in th <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879392	879701	
==>reter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880496	880805	
==>reter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881600	881909	
==>reter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882705	883014	
==>reter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883810	884119	
==>reter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884916	885225	
==>reter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886022	886331	
==>reter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887129	887438	
==>reter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412271	412646	
==>ME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413397	413772	
==>ME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414524	414899	
==>ME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415651	416026	
==>ME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416779	417154	
==>ME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417906	418281	
==>ME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419034	419409	
==>ME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420162	420537	
==>ME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350425	350680	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361917	362172	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362816	363071	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363718	363973	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364621	364876	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365460	365715	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366300	366555	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIR <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	42204	42310	
==>c_obj]) unless $func_obj eq 'P0';
  $self->_add_inst('', 'set', ['I0', 0]);        # Pass all args in Px re <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356253	356484	
==>" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356912	357143	
==>" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357572	357803	
==>" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358235	358466	
==>" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358899	359130	
==>" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359646	359877	
==>" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360394	360625	
==>" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function", <==
8	/Users/nnunley/parrot/config/auto/gcc.pm	4609	4744	
==>isy.
            # -Wunreachable-code might be useful in a non debugging version
        );
        $warns = "";
        while (my ($ver <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412305	412650	
==>FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413431	413776	
==>FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414558	414903	
==>FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415685	416030	
==>FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416813	417158	
==>FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417940	418285	
==>FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419068	419413	
==>FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420196	420541	
==>FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950631	950946	
==>}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951591	951906	
==>}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952551	952866	
==>}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953512	953827	
==>}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961089	961404	
==>}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962051	962366	
==>}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963013	963328	
==>}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963976	964291	
==>}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/config/auto/bc.pm	390	487	
==>se strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Conf <==
8	/Users/nnunley/parrot/config/auto/gdbm.pm	335	432	
==>se strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Conf <==
8	/Users/nnunley/parrot/config/auto/gmp.pm	289	386	
==>se strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Conf <==
8	/Users/nnunley/parrot/config/auto/m4.pm	364	461	
==>se strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Conf <==
8	/Users/nnunley/parrot/config/auto/readline.pm	296	393	
==>se strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Conf <==
8	/Users/nnunley/parrot/config/gen/icu.pm	269	366	
==>se strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Conf <==
8	/Users/nnunley/parrot/config/init/defaults.pm	317	414	
==>se strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Conf <==
8	/Users/nnunley/parrot/config/init/optimize.pm	382	479	
==>se strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Conf <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193500	193601	
==>cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194479	194580	
==>cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210231	210332	
==>cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211211	211312	
==>cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218789	218890	
==>cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219768	219869	
==>cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227348	227449	
==>cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228328	228429	
==>cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351046	351303	
==>+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351708	351965	
==>+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352365	352622	
==>+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353023	353280	
==>+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353767	354024	
==>+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354512	354769	
==>+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360979	361236	
==>+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781443	781641	
==>,
                              "kic",
                              "s"
                            ],
                  "BODY" => "#line 387 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_key <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913069	913435	
==>\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914080	914446	
==>\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915091	915457	
==>\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916103	916469	
==>\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917114	917480	
==>\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918126	918492	
==>\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919138	919504	
==>\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908473	908837	
==>\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450948	451238	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451686	451976	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452425	452715	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453163	453453	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453902	454192	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037004	1037274	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037784	1038054	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038565	1038835	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964864	964950	
==>8 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965872	965958	
==>8 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966880	966966	
==>8 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967889	967975	
==>8 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968897	968983	
==>8 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969906	969992	
==>8 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970915	971001	
==>8 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971925	972011	
==>8 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627118	627211	
==>>= interpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illega <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628262	628355	
==>>= interpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illega <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632520	632613	
==>>= interpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illega <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633562	633655	
==>>= interpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illega <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634619	634712	
==>>= interpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illega <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635737	635830	
==>>= interpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illega <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636855	636948	
==>>= interpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illega <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637974	638067	
==>>= interpreter->n_vtable_max) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illega <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755542	755917	
==>",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 852,
                  "ARGS" => [
                              "p",
                              "nc"
                            ],
                  "BODY" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072459	1072566	
==>) );\n  {{\@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074644	1074751	
==>) );\n  {{\@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076829	1076936	
==>) );\n  {{\@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079015	1079122	
==>) );\n  {{\@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n <==
8	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	1551	1654	
==>pe') && $atom->type eq 'ResizablePMCArray') {
        $R = op('external' => [ 'array', [ $atom, $ctx ] ] <==
8	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10016	10116	
==>n} ? "$function_line_coverage{$source_file}{$function} %" : "n/a" ]}</a></td>
             <td><a hre <==
8	/Users/nnunley/parrot/config/auto/snprintf.pm	90	182	
==>93 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/snprintf.pm - Test for snpri <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	675527	675812	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676306	676591	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677086	677371	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677863	678148	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678641	678926	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679419	679704	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680198	680483	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
8	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	3872	3962	
==>=item C<file_for_perl_module($module)>

Returns the Perl module file for the specified modu <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426250	426573	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":b <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427137	427460	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":b <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428023	428346	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":b <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428910	429233	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":b <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429796	430119	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":b <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430683	431006	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":b <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431569	431892	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":b <==
8	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	1185	1282	
==>::Ops::Tree::seq::ISA          = qw(Regex::Ops::Tree);
@Regex::Ops::Tree::alternate::ISA    = qw(R <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822205	822303	
==>CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Sta <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823273	823371	
==>CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Sta <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824340	824438	
==>CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Sta <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825411	825509	
==>CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Sta <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826481	826579	
==>CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Sta <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827551	827649	
==>CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Sta <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828620	828718	
==>CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Sta <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829688	829786	
==>CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Sta <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871152	871445	
==>str(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                } <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872169	872462	
==>str(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                } <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873186	873479	
==>str(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                } <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874204	874497	
==>str(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                } <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875221	875514	
==>str(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                } <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876239	876532	
==>str(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                } <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877257	877550	
==>str(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                } <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878276	878569	
==>str(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                } <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888199	888542	
==>ring_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                } <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889333	889676	
==>ring_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                } <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890467	890810	
==>ring_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                } <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891602	891945	
==>ring_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                } <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892736	893079	
==>ring_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                } <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893871	894214	
==>ring_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                } <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895006	895349	
==>ring_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                } <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896142	896485	
==>ring_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                } <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047677	1047852	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048600	1048775	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049524	1049699	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050557	1050732	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051591	1051766	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052625	1052800	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053660	1053835	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054786	1054961	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385428	385768	
==>}\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386559	386899	
==>}\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387690	388030	
==>}\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388822	389162	
==>}\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389953	390293	
==>}\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391085	391425	
==>}\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392217	392557	
==>}\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	3653	3781	
==>");
  }
  else {
    $compiler->emit("  .const $type $name = $value");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = s <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24519	24636	
==>lf->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    } <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24750	24867	
==>lf->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    } <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25408	25525	
==>lf->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    } <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25761	25878	
==>lf->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    } <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26418	26535	
==>lf->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    } <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26649	26766	
==>lf->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    } <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27308	27425	
==>lf->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    } <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27659	27776	
==>lf->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    } <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24489	24600	
==>~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($r <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24720	24831	
==>~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($r <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25378	25489	
==>~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($r <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25731	25842	
==>~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($r <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26388	26499	
==>~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($r <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26619	26730	
==>~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($r <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27278	27389	
==>~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($r <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27629	27740	
==>~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($r <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666926	667251	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667699	668024	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668473	668798	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669244	669569	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670016	670341	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670788	671113	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671561	671886	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1108329	1108465	
==>}}));\n            if (type <= 0)\n                real_exception(interpreter, NULL, NO_CLASS,\n                    \"Class '%Ss' not fou <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047674	1047848	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGD <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048597	1048771	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGD <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049521	1049695	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGD <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050554	1050728	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGD <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051588	1051762	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGD <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052622	1052796	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGD <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053657	1053831	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGD <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054783	1054957	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGD <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	425565	425842	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426451	426728	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427338	427615	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428224	428501	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429111	429388	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429997	430274	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430884	431161	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i <==
8	/Users/nnunley/parrot/tools/dev/install_files.pl	4532	4671	
==>ble/) {
            push @installable_exe, [$src, $dest];
            next;
        }
    } elsif ($meta{include}) {
        $dest =~ s/^inc <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692924	693224	
==>{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693924	694224	
==>{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694924	695224	
==>{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695925	696225	
==>{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696925	697225	
==>{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697926	698226	
==>{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698927	699227	
==>{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699929	700229	
==>{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667065	667349	
==>"JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667838	668122	
==>"JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668612	668896	
==>"JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669383	669667	
==>"JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670155	670439	
==>"JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670927	671211	
==>"JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671700	671984	
==>"JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
8	/Users/nnunley/parrot/languages/lua/Lua/build.pm	14904	15029	
==>es2, @{ $expr->[1] };
        my $assign = $var->[2];
        if ( $assign->isa('AssignOp') ) {
            $assign->config <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871179	871507	
==>{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872196	872524	
==>{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873213	873541	
==>{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874231	874559	
==>{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875248	875576	
==>{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876266	876594	
==>{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877284	877612	
==>{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878303	878631	
==>{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385229	385330	
==>ps\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386360	386461	
==>ps\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387491	387592	
==>ps\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388623	388724	
==>ps\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389754	389855	
==>ps\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390886	390987	
==>ps\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392018	392119	
==>ps\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393151	393252	
==>ps\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897260	897599	
==>NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898278	898617	
==>NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899296	899635	
==>NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900315	900654	
==>NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901333	901672	
==>NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902352	902691	
==>NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903371	903710	
==>NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904391	904730	
==>NULL);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586929	587198	
==>s(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588115	588384	
==>s(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589301	589570	
==>s(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590488	590757	
==>s(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591697	591966	
==>s(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592907	593176	
==>s(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594117	594386	
==>s(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595328	595597	
==>s(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673462	673719	
==>,
                  "TYPE" => "inline",
                  "CODE" => 754,
                  "ARGS" => [
                              "n",
                              "p"
                            ],
                  "BODY" => "#line 444 \"src/ops/pmc.op <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540581	540701	
==>( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541833	541953	
==>( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543085	543205	
==>( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544368	544488	
==>( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545704	545824	
==>( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547040	547160	
==>( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & <==
8	/Users/nnunley/parrot/tools/dev/parrotbench.pl	1293	1388	
==>ration file and the
command line, the command line takes precedence.

Here is an example parrotb <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3270	3368	
==>:Construct::Type::String')) {
    my $string = $self->value;

    if ($string =~ m/(^"|^".*?[^\\])\ <==
8	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15563	15654	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

1;


__END__

=head1 NAME

Pod::Simp <==
8	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2148	2238	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__END__

=head1 NAME

Pod::Simp <==
8	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3073	3163	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__END__

=head1 NAME

Pod::Simp <==
8	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	788	878	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__END__

=head1 NAME

Pod::Simp <==
8	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3543	3632	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__END__

=head1 NAME

Pod::Simp <==
8	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2296	2385	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__END__

=head1 NAME

Pod::Simp <==
8	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2399	2488	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__END__

=head1 NAME

Pod::Simp <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385218	385317	
==>rc/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386349	386448	
==>rc/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387480	387579	
==>rc/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388612	388711	
==>rc/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389743	389842	
==>rc/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390875	390974	
==>rc/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392007	392106	
==>rc/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393140	393239	
==>rc/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572953	573041	
==>mc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, name, {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573863	573951	
==>mc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, name, {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576458	576546	
==>mc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, name, {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577470	577558	
==>mc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, name, {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579558	579646	
==>mc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, name, {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580863	580951	
==>mc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, name, {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582168	582256	
==>mc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, name, {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583474	583562	
==>mc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, name, {{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213540	213859	
==>",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214481	214800	
==>",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215421	215740	
==>",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216362	216681	
==>",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217301	217620	
==>",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218241	218560	
==>",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219219	219538	
==>",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
8	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2610	2708	
==>$self, $offset) = @_;

    return "goto *ops_addr[*(cur_opcode += $offset)]";
}

=item C<goto_pop() <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908486	908876	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "A <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913084	913474	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "A <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914095	914485	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "A <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915106	915496	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "A <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916118	916508	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "A <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917129	917519	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "A <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918141	918531	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "A <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919153	919543	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "A <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356071	356328	
==>}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356730	356987	
==>}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357390	357647	
==>}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358053	358310	
==>}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358717	358974	
==>}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359464	359721	
==>}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360212	360469	
==>}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => <==
8	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	3022	3163	
==>$diag = q{};
            my $test_prog = join( ' && ', @test_prog );
            if ( $exit_code ) {
                $diag .= "'$test_prog' fa <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888230	888598	
==>}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889364	889732	
==>}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890498	890866	
==>}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891633	892001	
==>}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892767	893135	
==>}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893902	894270	
==>}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895037	895405	
==>}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896173	896541	
==>}}, {{\@3}}, {{\@4}}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413045	413433	
==>6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414172	414560	
==>6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415299	415687	
==>6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416427	416815	
==>6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417554	417942	
==>6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418682	419070	
==>6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419810	420198	
==>6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452166	452404	
==>line",
                  "CODE" => 518,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 225 \"src/ops/math.ops\"\n  {{\@1 <==
8	/Users/nnunley/parrot/config/auto/isreg.pm	81	174	
==>pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/isreg - S_ISREG

=head1 <==
8	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	5228	5363	
==>n't open $file, $!/$^E";

    if ( ! ($file =~ s/\.ops$/.c/) )
    {
        $file .= ".c";
    }

    #
    # Read through the file, cr <==
8	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15552	15640	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

1;


__END__

=head1 N <==
8	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2137	2224	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__END__

=head1 N <==
8	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3062	3149	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__END__

=head1 N <==
8	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	777	864	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__END__

=head1 N <==
8	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3532	3618	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__END__

=head1 N <==
8	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2285	2371	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__END__

=head1 N <==
8	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2388	2474	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__END__

=head1 N <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369539	369844	
==>){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	370424	370729	
==>){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514175	514480	
==>){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515055	515360	
==>){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515935	516240	
==>){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528681	528986	
==>){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529563	529868	
==>){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	530445	530750	
==>){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264410	264700	
==>\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265264	265554	
==>\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266118	266408	
==>\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266973	267263	
==>\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299581	299869	
==>\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300427	300715	
==>\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301273	301561	
==>\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11517	11630	
==>d $to and length $to;
    $out .= "#" . $section if defined $section and length $section;
    
    return unless l <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879414	879735	
==>}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880518	880839	
==>}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881622	881943	
==>}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882727	883048	
==>}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883832	884153	
==>}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884938	885259	
==>}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886044	886365	
==>}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887151	887472	
==>}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396202	396547	
==>ef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sock <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397282	397627	
==>ef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sock <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398362	398707	
==>ef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sock <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399443	399788	
==>ef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sock <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400523	400868	
==>ef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sock <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401604	401949	
==>ef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sock <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402685	403030	
==>ef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sock <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403767	404112	
==>ef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sock <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964868	964959	
==>src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965876	965967	
==>src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966884	966975	
==>src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967893	967984	
==>src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968901	968992	
==>src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969910	970001	
==>src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970919	971010	
==>src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971929	972020	
==>src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\ <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	2225	2348	
==>};   }

sub left      { return shift->{LEFT};  }
sub op        { return shift->{OP};    }
sub right     { return shift->{RIG <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1270	1379	
==>};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIG <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1261	1370	
==>};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIG <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1150	1259	
==>};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIG <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1609	1718	
==>};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIG <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1745	1854	
==>};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIG <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1388	1497	
==>};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIG <==
8	/Users/nnunley/parrot/lib/Text/Balanced.pm	33899	33989	
==>st of delimiters passed as
C<extract_bracketed>'s second argument. Delimiter brackets are
s <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878375	878741	
==>" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARG <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879478	879844	
==>" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARG <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880582	880948	
==>" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARG <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881686	882052	
==>" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARG <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882791	883157	
==>" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARG <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883896	884262	
==>" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARG <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885002	885368	
==>" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARG <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886108	886474	
==>" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARG <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202794	203087	
==>) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203725	204018	
==>) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204656	204949	
==>) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205598	205891	
==>) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210341	210634	
==>) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211321	211614	
==>) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	212270	212563	
==>) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213219	213512	
==>) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822214	822316	
==>nterpreter->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wron <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823282	823384	
==>nterpreter->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wron <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824349	824451	
==>nterpreter->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wron <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825420	825522	
==>nterpreter->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wron <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826490	826592	
==>nterpreter->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wron <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827560	827662	
==>nterpreter->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wron <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828629	828731	
==>nterpreter->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wron <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829697	829799	
==>nterpreter->ctx)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wron <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879404	879729	
==>}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880508	880833	
==>}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881612	881937	
==>}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882717	883042	
==>}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883822	884147	
==>}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884928	885253	
==>}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886034	886359	
==>}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887141	887466	
==>}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904735	905066	
==>r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905753	906084	
==>r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906772	907103	
==>r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907791	908122	
==>r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830200	830449	
==>0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830940	831189	
==>0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831681	831930	
==>0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832408	832657	
==>0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833136	833385	
==>0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833858	834107	
==>0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834583	834832	
==>0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
8	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10954	11056	
==>utput = _slurp('./test.out');

    return $output;
}

=item C<cc_clean()>

Cleans up all files in the r <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700882	701190	
==>c.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                } <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701873	702181	
==>c.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                } <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702864	703172	
==>c.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                } <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703856	704164	
==>c.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                } <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704847	705155	
==>c.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                } <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705839	706147	
==>c.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                } <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706831	707139	
==>c.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                } <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	707824	708132	
==>c.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                } <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710200	710450	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711033	711283	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711867	712117	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712973	713223	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714080	714330	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715002	715252	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715925	716175	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" = <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	18257	18362	
==>Descent::_tracefirst($_[1]),
					  q{' . $rule ->{name}. '})
						if defined $::RD_TRACE;').'
		my $this <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500528	500793	
==>"JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501266	501531	
==>"JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502005	502270	
==>"JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502743	503008	
==>"JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240186	240318	
==>nterpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241134	241266	
==>nterpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242082	242214	
==>nterpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243031	243163	
==>nterpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896583	896913	
==>ubstr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897600	897930	
==>ubstr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898618	898948	
==>ubstr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899636	899966	
==>ubstr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900655	900985	
==>ubstr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901673	902003	
==>ubstr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902692	903022	
==>ubstr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903711	904041	
==>ubstr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964962	965301	
==>}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965970	966309	
==>}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966978	967317	
==>}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967987	968326	
==>}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968995	969334	
==>}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970004	970343	
==>}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971013	971352	
==>}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379139	379369	
==>> [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 432 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_in <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374057	374334	
==>stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374940	375217	
==>stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375823	376100	
==>stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376707	376984	
==>stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377590	377867	
==>stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378474	378751	
==>stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379358	379635	
==>stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380243	380520	
==>stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730736	731010	
==>@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731472	731746	
==>@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735225	735499	
==>@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735961	736235	
==>@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741268	741542	
==>@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745828	746102	
==>@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746563	746837	
==>@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
8	/Users/nnunley/parrot/lib/Test/More.pm	36153	36248	
==>iding more flexibility than the existing Test.pm.  As such, the
names of the most common routine <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871160	871452	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872177	872469	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873194	873486	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874212	874504	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875229	875521	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876247	876539	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877265	877557	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878284	878576	
==>rpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412974	413188	
==>AL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414101	414315	
==>AL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415228	415442	
==>AL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416356	416570	
==>AL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417483	417697	
==>AL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418611	418825	
==>AL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419739	419953	
==>AL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420868	421082	
==>AL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965048	965413	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966056	966421	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967064	967429	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968073	968438	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969081	969446	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970090	970455	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971099	971464	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
8	/Users/nnunley/parrot/tools/dev/lib_deps.pl	13485	13601	
==>calblnf    math.h
scalblnl    math.h
scalbn      math.h
scalbnf     math.h
scalbnl     math.h
scanf       stdio.h
set <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361197	361461	
==>=> "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 42 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362095	362359	
==>=> "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 42 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362994	363258	
==>=> "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 42 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363896	364160	
==>=> "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 42 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364799	365063	
==>=> "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 42 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365638	365902	
==>=> "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 42 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366478	366742	
==>=> "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 42 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081269	1081501	
==>[
                              "p",
                              "ic",
                              "k"
                            ],
                  "BODY" => "#line 145 \"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879343	879444	
==>nterpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880447	880548	
==>nterpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881551	881652	
==>nterpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882656	882757	
==>nterpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883761	883862	
==>nterpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884867	884968	
==>nterpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885973	886074	
==>nterpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887080	887181	
==>nterpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, &dest, 1);\n  {{+=5 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426212	426497	
==>@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427099	427384	
==>@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427985	428270	
==>@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428872	429157	
==>@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429758	430043	
==>@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430645	430930	
==>@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431531	431816	
==>@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
8	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	509	607	
==>->{'total'}; } @results;
my $percent = int(($done / $total) * 100);
print "\\hline\nSummary & $do <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210718	211015	
==>FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 248,
                  "AR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70924	71197	
==>ter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71693	71966	
==>ter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100433	100706	
==>ter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104881	105154	
==>ter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	252993	253266	
==>ter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450922	451195	
==>ter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	513321	513594	
==>ter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24452	24567	
==>de->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $r <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24683	24798	
==>de->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $r <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25341	25456	
==>de->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $r <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25694	25809	
==>de->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $r <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26351	26466	
==>de->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $r <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26582	26697	
==>de->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $r <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27241	27356	
==>de->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $r <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27592	27707	
==>de->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $r <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34742	34844	
==>::RecDescent::_tracefirst($text),
						  q{' . $rule->{"name"} .'})
							if defined $::RD_TRACE;').' <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38153	38255	
==>::RecDescent::_tracefirst($text),
						  q{' . $rule->{"name"} .'})
							if defined $::RD_TRACE;').' <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41852	41954	
==>::RecDescent::_tracefirst($text),
						  q{' . $rule->{"name"} .'})
							if defined $::RD_TRACE;').' <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35267	35367	
==>::RecDescent::_tracefirst($text),
					  q{' . $rule->{"name"} .'})
						if defined $::RD_TRACE;').' <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42391	42491	
==>::RecDescent::_tracefirst($text),
					  q{' . $rule->{"name"} .'})
						if defined $::RD_TRACE;').' <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33862	33961	
==>::RecDescent::_tracefirst($text),
				  q{' . $rule->{"name"} . '})
					if defined $::RD_TRACE;').' <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37420	37519	
==>::RecDescent::_tracefirst($text),
				  q{' . $rule->{"name"} . '})
					if defined $::RD_TRACE;').' <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39823	39922	
==>::RecDescent::_tracefirst($text),
				  q{' . $rule->{"name"} . '})
					if defined $::RD_TRACE;').' <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470624	470921	
==>E" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471610	471907	
==>E" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472597	472894	
==>E" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473584	473881	
==>E" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474574	474871	
==>E" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475565	475862	
==>E" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
8	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7711	7812	
==>ister, determine register name now.
	if (!$dest_reg) {
		$pir .= <<'PIR'
# Get type (so we can find re <==
8	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5829	5930	
==>ister, determine register name now.
	if (!$dest_reg) {
		$pir .= <<'PIR'
# Get type (so we can find re <==
8	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	39785	39918	
==>)TEMP(\d+)$/) {
			my $type = $1 eq 'I' ? 'int' :
			           $1 eq 'N' ? 'num' :
					   $1 eq 'S' ? 'string' : 'pmc';
			$decls .= <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832073	832155	
==>"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_st <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832801	832883	
==>"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_st <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833528	833610	
==>"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_st <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834250	834332	
==>"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_st <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834976	835058	
==>"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_st <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835702	835784	
==>"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_st <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836455	836537	
==>"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_st <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632726	633050	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633768	634092	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634885	635209	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636003	636327	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637121	637445	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	922981	923305	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615066	615342	
==>object\");\n    }\n    {{\@1}} = offset;\n    {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616217	616493	
==>object\");\n    }\n    {{\@1}} = offset;\n    {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710019	710309	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718163	718453	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719095	719385	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720294	720584	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721494	721784	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722522	722812	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723551	723841	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910924	911157	
==>S" => [
                              "i",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 284 \"src/ops/string.ops\"\n    {{\@1}} = string_str_in <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897172	897261	
==>s/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NU <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898190	898279	
==>s/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NU <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899208	899297	
==>s/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NU <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900227	900316	
==>s/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NU <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901245	901334	
==>s/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NU <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902264	902353	
==>s/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NU <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903283	903372	
==>s/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NU <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904303	904392	
==>s/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NU <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	395385	395663	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396464	396742	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397544	397822	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398624	398902	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399705	399983	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400785	401063	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401866	402144	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402947	403225	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260070	260378	
==>== {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260922	261230	
==>== {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261774	262082	
==>== {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262627	262935	
==>== {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290926	291232	
==>== {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291772	292078	
==>== {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292618	292924	
==>== {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366768	366975	
==>S" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 313 \"src/ops/io.ops\"\n  if ({{\@2}} && {{\@1}}) {\n    STRING * <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752312	752577	
==>JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753091	753356	
==>JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753878	754143	
==>JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754666	754931	
==>JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755452	755717	
==>JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756239	756504	
==>JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757028	757293	
==>JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
8	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	13081	13180	
==>y live or die.

=== A Note about TODO-ing tests

Sometimes a test is broken because something is not <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24425	24527	
==>turn = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24656	24758	
==>turn = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25314	25416	
==>turn = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25667	25769	
==>turn = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26324	26426	
==>turn = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26555	26657	
==>turn = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27214	27316	
==>turn = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27565	27667	
==>turn = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964895	965118	
==>@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965903	966126	
==>@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966911	967134	
==>@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967920	968143	
==>@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968928	969151	
==>@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969937	970160	
==>@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970946	971169	
==>@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971956	972179	
==>@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878342	878703	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879445	879806	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880549	880910	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881653	882014	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882758	883119	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883863	884224	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884969	885330	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886075	886436	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627144	627239	
==>ax) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628288	628383	
==>ax) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632546	632641	
==>ax) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633588	633683	
==>ax) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634645	634740	
==>ax) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635763	635858	
==>ax) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636881	636976	
==>ax) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638000	638095	
==>ax) {\n    real_exception(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260042	260315	
==>ps\"\n    {{\@1}} = {{\@2}} == {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260894	261167	
==>ps\"\n    {{\@1}} = {{\@2}} == {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261746	262019	
==>ps\"\n    {{\@1}} = {{\@2}} == {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262599	262872	
==>ps\"\n    {{\@1}} = {{\@2}} == {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290900	291169	
==>ps\"\n  {{\@1}} = {{\@2}} == {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291746	292015	
==>ps\"\n  {{\@1}} = {{\@2}} == {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292592	292861	
==>ps\"\n  {{\@1}} = {{\@2}} == {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	13871	14005	
==>DEFAULT => -4,
		GOTOS => {
			'block' => 64,
			'chunk' => 57
		}
	},
	{#State 20
		ACTIONS => {
			"=" => 65
		},
		DEFAULT <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396092	396188	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, e <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397172	397268	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, e <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398252	398348	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, e <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399333	399429	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, e <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400413	400509	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, e <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401494	401590	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, e <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402575	402671	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, e <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403657	403753	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, e <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70920	71173	
==>rpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71689	71942	
==>rpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100429	100682	
==>rpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104877	105130	
==>rpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	252989	253242	
==>rpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450918	451171	
==>rpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	513317	513570	
==>rpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578419	578672	
==>rpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	395978	396129	
==>"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397058	397209	
==>"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398138	398289	
==>"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399219	399370	
==>"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400299	400450	
==>"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401380	401531	
==>"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402461	402612	
==>"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403543	403694	
==>"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864190	864467	
==>n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	865082	865359	
==>n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947209	947486	
==>n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948111	948388	
==>n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957658	957935	
==>n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958563	958840	
==>n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	875	987	
==>}

sub PRINT {
  my $it = shift;
  foreach my $x (@_) { $$$it .= $x }

  #Pod::Simple::DEBUG > 10 and print " app <==
8	/Users/nnunley/parrot/lib/Pod/Simple.pm	14866	14961	
==>self->{'errors_seen'};
  if($self->{'no_whining'}) {
    DEBUG > 9 and print "Discarding complai <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773453	773709	
==>r_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774363	774619	
==>r_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775273	775529	
==>r_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776184	776440	
==>r_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777092	777348	
==>r_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778001	778257	
==>r_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778910	779166	
==>r_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779820	780076	
==>r_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	11714	11818	
==>{
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0) <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18406	18510	
==>{
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0) <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19119	19223	
==>{
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0) <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19607	19711	
==>{
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0) <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20096	20200	
==>{
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0) <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20585	20689	
==>{
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0) <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21077	21181	
==>{
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0) <==
8	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	454	543	
==>nger than that won't get an <a name="...">

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
8	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16552	16720	
==>= new_tmp( $parser, 'pmc' );
                push @opcodes, new LocalDir( $parser,
                    'result' => $result,
                );
                push @ <==
8	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17131	17299	
==>= new_tmp( $parser, 'pmc' );
                push @opcodes, new LocalDir( $parser,
                    'result' => $result,
                );
                push @ <==
8	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10699	10862	
==>= new_tmp( $parser, 'pmc' );
                    push @opcodes,
                        new LocalDir( $parser, 'result' => $result, );
                    push @ <==
8	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	13818	13948	
==>=> 6,
			"." => 15
		},
		GOTOS => {
			'expr' => 38,
			'charclass' => 12
		}
	},
	{#State 22
		ACTIONS => {
			'NUM' => 40,
			"? <==
8	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15521	15641	
==>= new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @ <==
8	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18180	18300	
==>= new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @ <==
8	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19274	19394	
==>= new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @ <==
8	/Users/nnunley/parrot/languages/lua/Lua/build.pm	23235	23355	
==>= new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	395423	395761	
==>"JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396502	396840	
==>"JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397582	397920	
==>"JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398662	399000	
==>"JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399743	400081	
==>"JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400823	401161	
==>"JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401904	402242	
==>"JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402985	403323	
==>"JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667016	667310	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYP <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667789	668083	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYP <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668563	668857	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYP <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669334	669628	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYP <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670106	670400	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYP <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670878	671172	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYP <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671651	671945	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYP <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	2185	2282	
==>we'll be applying the control statement to:
  #

  my $loop_block = $block->find_block('while', $n <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24459	24598	
==>ildren}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ( <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24690	24829	
==>ildren}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ( <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25348	25487	
==>ildren}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ( <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25701	25840	
==>ildren}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ( <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26358	26497	
==>ildren}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ( <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26589	26728	
==>ildren}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ( <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27248	27387	
==>ildren}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ( <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27599	27738	
==>ildren}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ( <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692927	693227	
==>1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693927	694227	
==>1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694927	695227	
==>1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695928	696228	
==>1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696928	697228	
==>1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697929	698229	
==>1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698930	699230	
==>1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699932	700232	
==>1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539793	540110	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541044	541361	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542296	542613	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066335	1066652	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067520	1067837	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068706	1069023	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069892	1070209	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
8	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1027	1124	
==>(1 << 16) << 16) ? ' & ' . MAX : '';
#	FF => "X0=rotate_left(((X1&X2)|(~X1&X3))+X0+X4+X6$MSK,X5)+X <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539850	540147	
==>ME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541101	541398	
==>ME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542353	542650	
==>ME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066392	1066689	
==>ME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067577	1067874	
==>ME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068763	1069060	
==>ME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069949	1070246	
==>ME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
8	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	13334	13457	
==>^" => 32
		},
		DEFAULT => -40,
		GOTOS => {
			'classpieces' => 30
		}
	},
	{#State 15
		DEFAULT => -38
	},
	{#State 16
		D <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24447	24555	
==>e($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morp <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24678	24786	
==>e($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morp <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25336	25444	
==>e($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morp <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25689	25797	
==>e($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morp <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26346	26454	
==>e($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morp <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26577	26685	
==>e($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morp <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27236	27344	
==>e($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morp <==
8	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27587	27695	
==>e($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self->_save_1 ('P');
      $self->_morp <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912325	912627	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913335	913637	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914346	914648	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915357	915659	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916369	916671	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917380	917682	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918392	918694	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919404	919706	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	4154	4261	
==>ig;

our %op_body;
our @EXPORT = qw( %op_body );

# private sub  _trim()
#
# Trim leading and trailing space <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2667	2763	
==>ght->sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ Name <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2544	2640	
==>ght->sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ Name <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2919	3015	
==>ght->sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ Name <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3593	3689	
==>ght->sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ Name <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3683	3779	
==>ght->sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ Name <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5464	5556	
==>ght->sax($handler);
  $handler->end_element({ Name => 'op' });
  $handler->end_element({ Name <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3527	3619	
==>ght->sax($handler);
  $handler->end_element({ Name => 'op' });
  $handler->end_element({ Name <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964970	965306	
==>{{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclas <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965978	966314	
==>{{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclas <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966986	967322	
==>{{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclas <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967995	968331	
==>{{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclas <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969003	969339	
==>{{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclas <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970012	970348	
==>{{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclas <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971021	971357	
==>{{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclas <==
8	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7579	7678	
==>ash.
	my ($path, $desc) = split /\s+--?\s+/, $text, 2;
	
	return $desc;
}

=item C<short_description <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	373434	373763	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374316	374645	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375199	375528	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376082	376411	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376966	377295	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377849	378178	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378733	379062	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379617	379946	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385365	385516	
==>n(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386496	386647	
==>n(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387627	387778	
==>n(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388759	388910	
==>n(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389890	390041	
==>n(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391022	391173	
==>n(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392154	392305	
==>n(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393287	393438	
==>n(interpreter, NULL, PIO_ERROR, \"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0, <==
8	/Users/nnunley/parrot/tools/build/pmc2c.pl	2615	2709	
==>ables> array.

The .c file is generated by appending the functions after the various
directives <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539827	540124	
==>,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541078	541375	
==>,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542330	542627	
==>,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066369	1066666	
==>,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067554	1067851	
==>,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068740	1069037	
==>,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069926	1070223	
==>,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
8	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	23635	23749	
==>args) {
		my $out;
		my $arg_name;

		# uint8
		if (/^uint8$/) {
			$out =  "    \${I_ARG_$arg_num} = bc.read_uint8 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213520	213764	
==>PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214461	214705	
==>PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215401	215645	
==>PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216342	216586	
==>PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217281	217525	
==>PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218221	218465	
==>PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219199	219443	
==>PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	670	773	
==>refix : $compiler->block_label($kind);
    $self->prefix($prefix);
  }

  my $namespace = $prefix;

  if <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361787	362031	
==>\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362686	362930	
==>\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363588	363832	
==>\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364491	364735	
==>\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365330	365574	
==>\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366170	366414	
==>\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367068	367312	
==>\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/tools/dev/lib_deps.pl	14760	14880	
==>dio.h
tolower     ctype.h
toupper     ctype.h
trunc       math.h
truncf      math.h
truncl      math.h
ungetc      stdio. <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	395248	395539	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "A <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396327	396618	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "A <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397407	397698	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "A <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398487	398778	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "A <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399568	399859	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "A <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400648	400939	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "A <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401729	402020	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "A <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402810	403101	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "A <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047462	1047748	
==>n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050342	1050628	
==>n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051376	1051662	
==>n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052410	1052696	
==>n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053445	1053731	
==>n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054571	1054857	
==>n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059266	1059552	
==>n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT", <==
8	/Users/nnunley/parrot/lib/Pod/Simple.pm	10295	10386	
==>----------------
sub unaccept_code { shift->unaccept_codes(@_) }

sub unaccept_codes { # rem <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166116	166414	
==>"ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 20 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167045	167343	
==>"ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 20 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167983	168281	
==>"ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 20 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168924	169222	
==>"ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 20 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169866	170164	
==>"ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 20 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170806	171104	
==>"ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 20 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171747	172045	
==>"ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 20 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172724	173022	
==>"ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 20 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822120	822208	
==>\"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONT <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823188	823276	
==>\"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONT <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824255	824343	
==>\"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONT <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825326	825414	
==>\"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONT <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826396	826484	
==>\"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONT <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827466	827554	
==>\"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONT <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828535	828623	
==>\"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONT <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829603	829691	
==>\"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CONT <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426203	426469	
==>eter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427090	427356	
==>eter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427976	428242	
==>eter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428863	429129	
==>eter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429749	430015	
==>eter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430636	430902	
==>eter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431522	431788	
==>eter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
8	/Users/nnunley/parrot/tools/build/c2str.pl	4967	5068	
==>f m/^\s*#/; # ignore preprocessor
  next unless s/.*\b_S\b//;

  my $str = extract_bracketed $_, '(")' <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586934	587220	
==>erpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588120	588406	
==>erpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589306	589592	
==>erpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590493	590779	
==>erpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591702	591988	
==>erpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592912	593198	
==>erpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594122	594408	
==>erpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595333	595619	
==>erpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
8	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	598	710	
==>= 1 });
    # Add necessary checks back in
    $t = $self->add_checks($t, 0, 0);
    # Delete the no-implicit-che <==
8	/Users/nnunley/parrot/config/inter/libparrot.pm	463	557	
==>se base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$descrip <==
8	/Users/nnunley/parrot/config/inter/charset.pm	339	429	
==>se base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$descrip <==
8	/Users/nnunley/parrot/config/inter/encoding.pm	344	434	
==>se base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$descrip <==
8	/Users/nnunley/parrot/config/inter/ops.pm	319	409	
==>se base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$descrip <==
8	/Users/nnunley/parrot/config/inter/progs.pm	458	548	
==>se base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$descrip <==
8	/Users/nnunley/parrot/config/inter/shlibs.pm	618	708	
==>se base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$descrip <==
8	/Users/nnunley/parrot/config/inter/types.pm	370	460	
==>se base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$descrip <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048212	1048313	
==>"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get nu <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049136	1049237	
==>"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get nu <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050132	1050233	
==>"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get nu <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051166	1051267	
==>"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get nu <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052200	1052301	
==>"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get nu <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053235	1053336	
==>"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get nu <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060014	1060115	
==>"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get nu <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060919	1061020	
==>"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get nu <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361110	361319	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362008	362217	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362907	363116	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363809	364018	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364712	364921	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365551	365760	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366391	366600	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i", <==
8	/Users/nnunley/parrot/lib/File/Which.pm	932	1064	
==>{
    my ($exec) = @_;

    return undef unless $exec;

    my $all = wantarray;
    my @results = ();
    
    # check for aliases f <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822366	822465	
==>) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVa <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823434	823533	
==>) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVa <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824504	824603	
==>) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVa <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825575	825674	
==>) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVa <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826644	826743	
==>) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVa <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827714	827813	
==>) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVa <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828781	828880	
==>) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVa <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829849	829948	
==>) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVa <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9629	9744	
==>rint STDERR "**At eof: aborting.\n";
				return(undef);
			};

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "* <==
8	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9196	9306	
==>rint STDERR "**At eof: aborting.\n";
				return(undef);
			};

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "* <==
8	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11140	11248	
==>es, stipulate the list without a range, so that this can work right on
        #  all charsets that this modu <==
8	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16980	17088	
==>es, stipulate the list without a range, so that this can work right on
        #  all charsets that this modu <==
8	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4488	4595	
==>es, stipulate the list without a range, so that this can work right on
       #  all charsets that this modu <==
8	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1981	2085	
==>es, stipulate the list without a range, so that this can work right on
    #  all charsets that this modu <==
8	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10404	10508	
==>es, stipulate the list without a range, so that this can work right on
    #  all charsets that this modu <==
8	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2084	2188	
==>es, stipulate the list without a range, so that this can work right on
    #  all charsets that this modu <==
8	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16548	16716	
==>ult = new_tmp( $parser, 'pmc' );
                push @opcodes, new LocalDir( $parser,
                    'result' => $result,
                );
                pu <==
8	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17127	17295	
==>ult = new_tmp( $parser, 'pmc' );
                push @opcodes, new LocalDir( $parser,
                    'result' => $result,
                );
                pu <==
8	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10695	10858	
==>ult = new_tmp( $parser, 'pmc' );
                    push @opcodes,
                        new LocalDir( $parser, 'result' => $result, );
                    pu <==
8	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15517	15637	
==>ult = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    pu <==
8	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18176	18296	
==>ult = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    pu <==
8	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19270	19390	
==>ult = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    pu <==
8	/Users/nnunley/parrot/languages/lua/Lua/build.pm	23231	23351	
==>ult = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    pu <==
8	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	1106	1210	
==>lf->$method(@{ $op->{args} });
}

sub lookup_var {
    my ($self, $var, $ctx) = @_;
    return $ctx->{$va <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260045	260339	
==>"\n    {{\@1}} = {{\@2}} == {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260897	261191	
==>"\n    {{\@1}} = {{\@2}} == {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261749	262043	
==>"\n    {{\@1}} = {{\@2}} == {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262602	262896	
==>"\n    {{\@1}} = {{\@2}} == {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290903	291193	
==>"\n  {{\@1}} = {{\@2}} == {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291749	292039	
==>"\n  {{\@1}} = {{\@2}} == {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292595	292885	
==>"\n  {{\@1}} = {{\@2}} == {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3259	3354	
==>name);
#  warn "Definition of symbol '$name' shadows definition in parent block!" if $self->find <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158847	159144	
==>E",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159743	160040	
==>E",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160640	160937	
==>E",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161537	161834	
==>E",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162433	162730	
==>E",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163330	163627	
==>E",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	619	708	
==>Jako::Construct::Block');
  confess "Ident is not!" unless UNIVERSAL::isa($ident, 'Jako::C <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	507	596	
==>Jako::Construct::Block');
  confess "Ident is not!" unless UNIVERSAL::isa($ident, 'Jako::C <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871095	871185	
==>"#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872112	872202	
==>"#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873129	873219	
==>"#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874147	874237	
==>"#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875164	875254	
==>"#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876182	876272	
==>"#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877200	877290	
==>"#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878219	878309	
==>"#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385279	385375	
==>er, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpret <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386410	386506	
==>er, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpret <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387541	387637	
==>er, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpret <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388673	388769	
==>er, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpret <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389804	389900	
==>er, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpret <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390936	391032	
==>er, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpret <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392068	392164	
==>er, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpret <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393201	393297	
==>er, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpret <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385295	385390	
==>_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_E <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386426	386521	
==>_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_E <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387557	387652	
==>_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_E <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388689	388784	
==>_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_E <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389820	389915	
==>_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_E <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390952	391047	
==>_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_E <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392084	392179	
==>_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_E <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393217	393312	
==>_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(interpreter, NULL, PIO_E <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	821644	821913	
==>P" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functio <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822711	822980	
==>P" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functio <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823779	824048	
==>P" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functio <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824849	825118	
==>P" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functio <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825920	826189	
==>P" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functio <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826989	827258	
==>P" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functio <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828059	828328	
==>P" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functio <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829126	829395	
==>P" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functio <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180639	180903	
==>ps\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181535	181799	
==>ps\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182431	182695	
==>ps\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183326	183590	
==>ps\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184222	184486	
==>ps\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185118	185382	
==>ps\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943850	943957	
==>\n  {{\@1}} = Parrot_charset_number_of_str(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944639	944746	
==>\n  {{\@1}} = Parrot_charset_number_of_str(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897150	897240	
==>=> "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898168	898258	
==>=> "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899186	899276	
==>=> "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900205	900295	
==>=> "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901223	901313	
==>=> "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902242	902332	
==>=> "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903261	903351	
==>=> "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904281	904371	
==>=> "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}}, {{\@2}}, <==
8	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11842	12066	
==>last_key->[0],
                        'arg2'   => undef,
                        'result' => $result,
                    );
                    return [ $defn, \@opcodes, $assign ];
                }
                e <==
8	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10038	10238	
==>last_key->[0],
                    'arg2'   => undef,
                    'result' => $result,
                );
                return [ $defn, \@opcodes, $assign ];
            }
            e <==
8	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8885	9037	
==>last_key->[0],
            'arg2'   => undef,
            'result' => $result,
        );
        return [ $defn, \@opcodes, $assign ];
    }
    e <==
8	/Users/nnunley/parrot/lib/Pod/Simple.pm	23206	23344	
==>elet->[$i][0] = pop @dynasty;
        my $nugget;
        while(@dynasty) {
          DEBUG > 4 and printf
           "    Grafting a new % <==
8	/Users/nnunley/parrot/config/inter/lex.pm	1974	2104	
==>options->get('ask')) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    # if '--ve <==
8	/Users/nnunley/parrot/config/inter/make.pm	1848	1978	
==>options->get('ask')) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    # if '--ve <==
8	/Users/nnunley/parrot/config/inter/yacc.pm	1988	2118	
==>options->get('ask')) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    # if '--ve <==
8	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10007	10092	
==>{$function} ? "$function_line_coverage{$source_file}{$function} %" : "n/a" ]}</a></td> <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878625	878963	
==>JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879728	880066	
==>JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880832	881170	
==>JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881936	882274	
==>JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883041	883379	
==>JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884146	884484	
==>JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885252	885590	
==>JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886358	886696	
==>JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23990	24242	
==>);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550466	550718	
==>);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551767	552019	
==>);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552958	553210	
==>);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558371	558623	
==>);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559755	560007	
==>);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560976	561228	
==>);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRE <==
8	/Users/nnunley/parrot/tools/build/nativecall.pl	6462	6575	
==>b print_head {
    my ($definitions) = @_;
    print NCI << "HEAD";
/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS F <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515951	516273	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519759	520081	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520614	520936	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	521469	521791	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522323	522645	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523178	523500	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863568	863831	
==>AME" => "bytelength",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864459	864722	
==>AME" => "bytelength",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
8	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	28743	28863	
==>codes!!!
      
      # Here we start using $para_type for our own twisted purposes, to
      #  mean how it should get t <==
8	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	595	684	
==>parrot_config.c

=head1 DESCRIPTION

Create F<src/parrot_config.c> with relevant runtime f <==
8	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16380	16460	
==>\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMN <==
8	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16722	16802	
==>\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMN <==
8	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1845	1925	
==>\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMN <==
8	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9923	10003	
==>\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMN <==
8	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10166	10246	
==>\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMN <==
8	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1948	2028	
==>\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMN <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412308	412656	
==>GS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413434	413782	
==>GS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414561	414909	
==>GS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415688	416036	
==>GS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416816	417164	
==>GS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417943	418291	
==>GS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419071	419419	
==>GS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420199	420547	
==>GS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627164	627258	
==>ption(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628308	628402	
==>ption(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632566	632660	
==>ption(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633608	633702	
==>ption(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634665	634759	
==>ption(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635783	635877	
==>ption(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636901	636995	
==>ption(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638020	638114	
==>ption(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897092	897230	
==>"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898110	898248	
==>"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899128	899266	
==>"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900147	900285	
==>"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901165	901303	
==>"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902184	902322	
==>"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903203	903341	
==>"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904223	904361	
==>"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\@1}} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964824	964941	
==>],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965832	965949	
==>],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966840	966957	
==>],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967849	967966	
==>],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968857	968974	
==>],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969866	969983	
==>],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970875	970992	
==>],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971885	972002	
==>],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	373425	373760	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374307	374642	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375190	375525	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376073	376408	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376957	377292	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377840	378175	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378724	379059	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379608	379943	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63716	63876	
==>ahead,$line,
										   $self,
										   $matchrule,
										   $argcode);
										   
						$prod and $prod->additem($item)
						      or  _no_rule("r <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63009	63155	
==>ahead,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("r <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64446	64592	
==>ahead,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("r <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65101	65247	
==>ahead,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("r <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65761	65907	
==>ahead,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("r <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	66480	66626	
==>ahead,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("r <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62377	62518	
==>ahead,$line,
									   $self,
									   $matchrule,
									   $argcode);
					$prod and $prod->additem($item)
					      or  _no_rule("r <==
8	/Users/nnunley/parrot/lib/Pod/Simple.pm	30090	30207	
==>S>", the name is undef.)
# 

############# The "section" attribute (which might be next, or a treelet)
# Fourth:
# The <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888258	888636	
==>}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889392	889770	
==>}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890526	890904	
==>}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891661	892039	
==>}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892795	893173	
==>}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893930	894308	
==>}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895065	895443	
==>}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896201	896579	
==>}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700905	701200	
==>d_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701896	702191	
==>d_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702887	703182	
==>d_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703879	704174	
==>d_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704870	705165	
==>d_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705862	706157	
==>d_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706854	707149	
==>d_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	707847	708142	
==>d_vtfind(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413084	413452	
==>[
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_netwo <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414211	414579	
==>[
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_netwo <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415338	415706	
==>[
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_netwo <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416466	416834	
==>[
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_netwo <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417593	417961	
==>[
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_netwo <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418721	419089	
==>[
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_netwo <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419849	420217	
==>[
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_netwo <==
8	/Users/nnunley/parrot/lib/Test/Simple.pm	5999	6090	
==>ng module.

=item L<Test::Unit>

Elaborate unit testing.

=item L<Test::Inline>, L<SelfTest> <==
8	/Users/nnunley/parrot/lib/Test/Simple.pm	6150	6249	
==>rets the output of your test program.

=back


=head1 AUTHORS

Idea by Tony Bowden and Paul Johnson, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374118	374461	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375001	375344	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375884	376227	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376768	377111	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377651	377994	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378535	378878	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379419	379762	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  " <==
8	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4731	4849	
==>.  Something should be done about that.
    }
  }
  
  my $out = $to if defined $to and length $to;
  $out .= "#" . $se <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384573	384935	
==>( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385703	386065	
==>( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386834	387196	
==>( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387965	388327	
==>( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389097	389459	
==>( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390228	390590	
==>( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391360	391722	
==>( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392492	392854	
==>( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730738	731013	
==>}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731474	731749	
==>}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735227	735502	
==>}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735963	736238	
==>}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741270	741545	
==>}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745830	746105	
==>}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746565	746840	
==>}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	1775	1879	
==>1;
}

size_t
PackFile_write_fingerprint (void *cursor)
{
    memset (cursor, 0, $len);
    return $len;
} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264400	264673	
==>\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265254	265527	
==>\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266108	266381	
==>\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266963	267236	
==>\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299573	299842	
==>\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300419	300688	
==>\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301265	301534	
==>\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
8	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	413	507	
==>n";
}
sub post_translation {
	die "post_translation not implemented for current stack to regist <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197368	197629	
==>{{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198265	198526	
==>{{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199162	199423	
==>{{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200058	200319	
==>{{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200955	201216	
==>{{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201852	202113	
==>{{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' <==
8	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28616	28730	
==>n$/;
		$pir .= "### end typeinfo\n";

		# Does the translator code actually load a value or just give back a
		# re <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	3864	3961	
==>converting left...");
    my $temp = $compiler->temp_reg($calc_type);
    $left = $left->compile($ <==
8	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8211	8304	
==>=pop(@{$elsestack->{$elsetag}})) {
			push @{$code{$seg}->{code}}, "ELSEBRANCH_$_:\n";
		}
		p <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048220	1048315	
==>/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049144	1049239	
==>/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050140	1050235	
==>/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051174	1051269	
==>/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052208	1052303	
==>/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053243	1053338	
==>/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060022	1060117	
==>/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060927	1061022	
==>/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692880	692968	
==>pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693880	693968	
==>pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694880	694968	
==>pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695881	695969	
==>pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696881	696969	
==>pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697882	697970	
==>pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698883	698971	
==>pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699885	699973	
==>pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692764	692930	
==>,
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693764	693930	
==>,
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694764	694930	
==>,
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695765	695931	
==>,
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696765	696931	
==>,
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697766	697932	
==>,
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698767	698933	
==>,
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699769	699935	
==>,
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412241	412608	
==>P" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413367	413734	
==>P" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414494	414861	
==>P" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415621	415988	
==>P" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416749	417116	
==>P" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417876	418243	
==>P" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419004	419371	
==>P" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420132	420499	
==>P" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	373339	373667	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374221	374549	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375104	375432	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375987	376315	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376871	377199	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377754	378082	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378638	378966	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379522	379850	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385434	385772	
==>\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386565	386903	
==>\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387696	388034	
==>\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388828	389166	
==>\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389959	390297	
==>\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391091	391429	
==>\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392223	392561	
==>\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek", <==
8	/Users/nnunley/parrot/lib/Text/Balanced.pm	15215	15317	
==>ef }

	unless ($matched)
	{
		_failmsg 'No match found for opening bracket', pos $$textref
			unless $@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879269	879389	
==>"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(inte <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880373	880493	
==>"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(inte <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881477	881597	
==>"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(inte <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882582	882702	
==>"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(inte <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883687	883807	
==>"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(inte <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884793	884913	
==>"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(inte <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885899	886019	
==>"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(inte <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887006	887126	
==>"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(inte <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879309	879424	
==>t)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880413	880528	
==>t)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881517	881632	
==>t)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882622	882737	
==>t)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883727	883842	
==>t)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884833	884948	
==>t)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885939	886054	
==>t)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887046	887161	
==>t)\n    dest = new_string_header(interpreter, 0);\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	425647	425943	
==>"infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426533	426829	
==>"infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427420	427716	
==>"infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428306	428602	
==>"infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429193	429489	
==>"infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430079	430375	
==>"infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430966	431262	
==>"infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	153930	154016	
==>src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_NUMEQ)) { <==
8	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2838	2955	
==>-endian UTF-16 BOM seen.  Aborting parsing.\n";
        $self->scream(
          $self->{'line_count'},
          "UTF <==
8	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3236	3353	
==>-endian UTF-16 BOM seen.  Aborting parsing.\n";
        $self->scream(
          $self->{'line_count'},
          "UTF <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747298	747402	
==>@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABEL <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748083	748187	
==>@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABEL <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753592	753696	
==>@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABEL <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754380	754484	
==>@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABEL <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324714	324817	
==>@1}}->vtable->set_integer_native(interpreter, {{\@1}},{{\@2}});\n  {{+=3}};\n",
                  "LABEL <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325507	325610	
==>@1}}->vtable->set_integer_native(interpreter, {{\@1}},{{\@2}});\n  {{+=3}};\n",
                  "LABEL <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822149	822235	
==>k_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823217	823303	
==>k_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824284	824370	
==>k_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825355	825441	
==>k_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826425	826511	
==>k_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827495	827581	
==>k_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828564	828650	
==>k_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829632	829718	
==>k_Entry_t * const entry =\n  \tstack_entry(interpreter, CONTEXT(interpreter->ctx)->user <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350343	350634	
==>}\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "F <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361835	362126	
==>}\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "F <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362734	363025	
==>}\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "F <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363636	363927	
==>}\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "F <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364539	364830	
==>}\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "F <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365378	365669	
==>}\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "F <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366218	366509	
==>}\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "F <==
8	/Users/nnunley/parrot/lib/Pod/Simple.pm	42741	42847	
==>treelet->[$i]} == 3 and $treelet->[$i][2] eq '')
      ) {
        $self->whine( $start_line, "An empty E<> <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	7451	7559	
==>a-zA-Z_][a-zA-Z0-9_]*)*)\s*;\s*(.*?)\s*$/) {

      my $use_file = $1;
      my $leftover = $3;

#print STDER <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550320	550421	
==>erpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t * <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551621	551722	
==>erpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t * <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554173	554274	
==>erpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t * <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555570	555671	
==>erpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t * <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558225	558326	
==>erpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t * <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559609	559710	
==>erpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t * <==
8	/Users/nnunley/parrot/lib/Text/Balanced.pm	60903	60995	
==>found after prefix: "%s">

C<extract_quotelike> didn't find one of the quotelike operators C< <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822228	822329	
==>x)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if ( <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823296	823397	
==>x)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if ( <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824363	824464	
==>x)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if ( <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825434	825535	
==>x)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if ( <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826504	826605	
==>x)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if ( <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827574	827675	
==>x)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if ( <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828643	828744	
==>x)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if ( <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829711	829812	
==>x)->user_stack, {{\@2}});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if ( <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692902	693203	
==>ter_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693902	694203	
==>ter_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694902	695203	
==>ter_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695903	696204	
==>ter_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696903	697204	
==>ter_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697904	698205	
==>ter_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698905	699206	
==>ter_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699907	700208	
==>ter_sub(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710051	710339	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718195	718483	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719127	719415	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720326	720614	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721526	721814	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722554	722842	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723583	723871	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1793	1887	
==>$addr)))";
  }
}

=item C<goto_offset($offset)>

Transforms the C<goto OFFSET($offset)> macro i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710004	710276	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718148	718420	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719080	719352	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720279	720551	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721479	721751	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722507	722779	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723536	723808	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833563	833646	
==>interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}}, STACK_ENTRY_PMC, STACK <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964206	964519	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965213	965526	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966221	966534	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967229	967542	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968238	968551	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969246	969559	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970255	970568	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971264	971577	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879176	879333	
==>"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880280	880437	
==>"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881384	881541	
==>"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882489	882646	
==>"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883594	883751	
==>"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884700	884857	
==>"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885806	885963	
==>"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886913	887070	
==>"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest = new_string <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627091	627184	
==>f ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpreter, 0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628235	628328	
==>f ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpreter, 0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632493	632586	
==>f ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpreter, 0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633535	633628	
==>f ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpreter, 0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634592	634685	
==>f ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpreter, 0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635710	635803	
==>f ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpreter, 0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636828	636921	
==>f ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpreter, 0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637947	638040	
==>f ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpreter, 0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385419	385766	
==>");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386550	386897	
==>");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387681	388028	
==>");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388813	389160	
==>");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389944	390291	
==>");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391076	391423	
==>");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392208	392555	
==>");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393341	393688	
==>");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888166	888257	
==>/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889300	889391	
==>/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890434	890525	
==>/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891569	891660	
==>/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892703	892794	
==>/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893838	893929	
==>/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	894973	895064	
==>/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896109	896200	
==>/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5} <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396216	396571	
==>{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397296	397651	
==>{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398376	398731	
==>{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399457	399812	
==>{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400537	400892	
==>{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401618	401973	
==>{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402699	403054	
==>{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  " <==
8	/Users/nnunley/parrot/tools/build/nativecall.pl	18078	18171	
==>len = string_length(interpreter, signature);
    if (0 == signature_len) return F2DPTR(pcf_v_) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964223	964575	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965230	965582	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966238	966590	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967246	967598	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968255	968607	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969263	969615	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970272	970624	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971281	971633	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356198	356373	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356857	357032	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357517	357692	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358180	358355	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358844	359019	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359591	359766	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360339	360514	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [ <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	4854	4980	
==>ind,
      $tok->type || '',
      $tok->text;

    last if $tok->is_eof;
  }

=cut

}


#
# require()
#
# Require consumes and <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356066	356322	
==>{{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356725	356981	
==>{{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357385	357641	
==>{{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358048	358304	
==>{{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358712	358968	
==>{{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359459	359715	
==>{{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLA <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360207	360463	
==>{{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLA <==
8	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	5041	5151	
==>) returns Bool is export {
    for (1 .. $count) {
        # Hack -- PIL2JS doesn't support multisubs correctly <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822263	822360	
==>ntry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823331	823428	
==>ntry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824398	824495	
==>ntry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825469	825566	
==>ntry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826539	826636	
==>ntry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827609	827706	
==>ntry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828678	828775	
==>ntry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829746	829843	
==>ntry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412062	412401	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413188	413527	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414315	414654	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415442	415781	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416570	416909	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417697	418036	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418825	419164	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419953	420292	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o", <==
8	/Users/nnunley/parrot/lib/Class/Struct.pm	15542	15642	
==>nonnegative, so we redefine the C<count>
accessor accordingly.

    package MyObj;
    use Class::Str <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396148	396328	
==>) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397228	397408	
==>) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398308	398488	
==>) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399389	399569	
==>) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400469	400649	
==>) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401550	401730	
==>) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402631	402811	
==>) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403713	403893	
==>) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0, <==
8	/Users/nnunley/parrot/lib/Test/Builder.pm	14680	14783	
==>ke(), sans the useful diagnostic messages,
could be written as:

  sub laconic_like {
      my ($self, $ <==
8	/Users/nnunley/parrot/lib/Test/More.pm	36753	36848	
==>tures.
And it plays well with Test::More.

L<Test::Class> is like XUnit but more perlish.

L<Tes <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632617	632710	
==>MC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633659	633752	
==>MC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080511	1080604	
==>MC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081576	1081669	
==>MC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082641	1082734	
==>MC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083707	1083800	
==>MC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688199	688474	
==>, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "d <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655619	655893	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "d <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663748	664022	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "d <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664520	664794	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "d <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665296	665570	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "d <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759906	760180	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "d <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934109	934383	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "d <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934884	935158	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "d <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	267786	268062	
==>, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	268550	268826	
==>, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	425372	425648	
==>, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54883	55157	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55643	55917	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56404	56678	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57166	57440	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57927	58201	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "i <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	99655	99929	
==>, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104101	104375	
==>, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	252216	252490	
==>, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450147	450421	
==>, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	512551	512825	
==>, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627514	627788	
==>, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628658	628932	
==>, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n <==
8	/Users/nnunley/parrot/lib/Test/Builder.pm	32615	32724	
==>r( my $stack = 1;  my $sub = (CORE::caller($stack))[3];  $stack++ ) {
        $in_eval = 1 if $sub =~ /^\(eval <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645939	646215	
==>, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "t <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	690505	690780	
==>, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "t <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691261	691536	
==>, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "t <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640721	640995	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "t <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641485	641759	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "t <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936325	936599	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "t <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937102	937376	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "t <==
8	/Users/nnunley/parrot/tools/build/list_unjitted.pl	132	250	
==>:";
    opendir DIR, 'jit' or die $!;
    while (my $dir = readdir DIR){
        next if $dir =~ /^\./ or $dir eq '\.sv <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950495	950585	
==>\"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Pa <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951455	951545	
==>\"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Pa <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952415	952505	
==>\"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Pa <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953376	953466	
==>\"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Pa <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960952	961042	
==>\"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Pa <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961914	962004	
==>\"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Pa <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962876	962966	
==>\"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Pa <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963839	963929	
==>\"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Pa <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374071	374336	
==>al(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374954	375219	
==>al(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375837	376102	
==>al(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376721	376986	
==>al(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377604	377869	
==>al(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378488	378753	
==>al(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379372	379637	
==>al(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380257	380522	
==>al(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396167	396476	
==>pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397247	397556	
==>pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398327	398636	
==>pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399408	399717	
==>pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400488	400797	
==>pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401569	401878	
==>pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402650	402959	
==>pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403732	404041	
==>pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912978	913085	
==>c/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913989	914096	
==>c/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915000	915107	
==>c/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916012	916119	
==>c/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917023	917130	
==>c/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918035	918142	
==>c/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919047	919154	
==>c/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920060	920167	
==>c/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	395350	395544	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396429	396623	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397509	397703	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398589	398783	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399670	399864	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400750	400944	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401831	402025	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402912	403106	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692850	692943	
==>BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693850	693943	
==>BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694850	694943	
==>BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695851	695944	
==>BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696851	696944	
==>BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697852	697945	
==>BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698853	698946	
==>BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699855	699948	
==>BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1}}, {{\@2}}, {{\ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320040	320316	
==>{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320810	321086	
==>{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321620	321896	
==>{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322391	322667	
==>{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323163	323439	
==>{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323976	324252	
==>{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	329434	329710	
==>{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	338280	338530	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "getstdout",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" = <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	15879	16039	
==>=> 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80, <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18679	18839	
==>=> 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80, <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29732	29892	
==>=> 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80, <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30247	30407	
==>=> 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80, <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	32687	32847	
==>=> 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80, <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36793	36953	
==>=> 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80, <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	42077	42237	
==>=> 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80, <==
8	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44857	45017	
==>=> 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80, <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	66984	67102	
==>code$&\" cannot have
					       a maximum repetition of zero, nor can they have
					       negative components in the <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221849	222151	
==>" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FL <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222791	223093	
==>" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FL <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223732	224034	
==>" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FL <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224674	224976	
==>" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FL <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225614	225916	
==>" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FL <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226555	226857	
==>" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FL <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227534	227836	
==>" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FL <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45280	45375	
==>my $AUTOTREEMK		= '\G\s*<autotree>';
my $AUTOSTUBMK		= '\G\s*<autostub>';
my $REJECTMK		= '\G\s* <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822250	822355	
==>});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823318	823423	
==>});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824385	824490	
==>});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825456	825561	
==>});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826526	826631	
==>});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827596	827701	
==>});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828665	828770	
==>});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829733	829838	
==>});\n  if (!entry)\n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1342	1469	
==>};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $ <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1333	1460	
==>};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $ <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1222	1349	
==>};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $ <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1681	1808	
==>};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $ <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1817	1944	
==>};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $ <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1460	1587	
==>};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $ <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1000	1125	
==>};  }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $ <==
8	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	1008	1133	
==>};  }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878569	878745	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879672	879848	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880776	880952	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881880	882056	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882985	883161	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884090	884266	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885196	885372	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886302	886478	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438658	438995	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":b <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439672	440009	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":b <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440687	441024	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":b <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441701	442038	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":b <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442716	443053	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":b <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443730	444067	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":b <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444745	445082	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":b <==
8	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	23908	24021	
==>+= 1\n";
			$arg_name = "I_ARG_$arg_num";
		}

		# uint16
		elsif (/^uint16$/) {
			$out =  "    \${I_ARG_$arg_num <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63743	63889	
==>self,
										   $matchrule,
										   $argcode);
										   
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$l <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63036	63168	
==>self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$l <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64473	64605	
==>self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$l <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65128	65260	
==>self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$l <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65788	65920	
==>self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$l <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	66507	66639	
==>self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$l <==
8	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62403	62531	
==>self,
									   $matchrule,
									   $argcode);
					$prod and $prod->additem($item)
					      or  _no_rule("repetition",$l <==
8	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	284	383	
==>or $_[0] eq "COMM" or $_[0] eq "DIRECTIVE") {
		$curtok=~tr/A-Z/a-z/;
	}
	push(@tokens, $curtok);
	p <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888249	888608	
==>}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889383	889742	
==>}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890517	890876	
==>}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891652	892011	
==>}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892786	893145	
==>}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893921	894280	
==>}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895056	895415	
==>}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896192	896551	
==>}, {{\@5}}, &{{\@1}});\n  {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396044	396142	
==>e 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397124	397222	
==>e 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398204	398302	
==>e 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399285	399383	
==>e 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400365	400463	
==>e 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401446	401544	
==>e 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402527	402625	
==>e 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403609	403707	
==>e 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480054	480331	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481056	481333	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482059	482336	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483062	483339	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484060	484337	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485059	485336	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
8	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	3532	3637	
==>f, $op, $R, $lastback) = @_;
    return aop('goto', [ $R ]) if $R->{name} eq 'LABEL';
    return $self->re <==
8	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1953	2050	
==>he text content of the section,
such as "foo" for
C<< LZ<><Stuff/foo> >>, and "bar" for 
C<< LZ<>< <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385397	385725	
==>\"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386528	386856	
==>\"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387659	387987	
==>\"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388791	389119	
==>\"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389922	390250	
==>\"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391054	391382	
==>\"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392186	392514	
==>\"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393319	393647	
==>\"seek failed (64bit)\");\n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887471	887846	
==>=> 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888604	888979	
==>=> 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889738	890113	
==>=> 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890872	891247	
==>=> 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892007	892382	
==>=> 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893141	893516	
==>=> 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	894276	894651	
==>=> 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895411	895786	
==>=> 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047668	1047823	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048591	1048746	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049515	1049670	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050548	1050703	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051582	1051737	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052616	1052771	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053651	1053806	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054777	1054932	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897195	897311	
==>)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898213	898329	
==>)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899231	899347	
==>)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900250	900366	
==>)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901268	901384	
==>)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902287	902403	
==>)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903306	903422	
==>)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904326	904442	
==>)string_replace(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}}, NULL);\n  {{+=5}};\n",
                  "LABELS" => <==
8	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	5041	5194	
==>epth.
            $f=length($1);
            next;
        }

        if (/^\s*([\#\}])/) {
            # skip the last line of the func or cpp directives <==
8	/Users/nnunley/parrot/config/inter/libparrot.pm	448	542	
==>on @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inte <==
8	/Users/nnunley/parrot/config/inter/charset.pm	326	416	
==>on @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inte <==
8	/Users/nnunley/parrot/config/inter/encoding.pm	331	421	
==>on @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inte <==
8	/Users/nnunley/parrot/config/inter/ops.pm	306	396	
==>on @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inte <==
8	/Users/nnunley/parrot/config/inter/progs.pm	445	535	
==>on @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inte <==
8	/Users/nnunley/parrot/config/inter/shlibs.pm	605	695	
==>on @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inte <==
8	/Users/nnunley/parrot/config/inter/types.pm	357	447	
==>on @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inte <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913014	913313	
==>ring_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914025	914324	
==>ring_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915036	915335	
==>ring_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916048	916347	
==>ring_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917059	917358	
==>ring_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918071	918370	
==>ring_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919083	919382	
==>ring_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920096	920395	
==>ring_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431791	432141	
==>{
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432805	433155	
==>{
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433820	434170	
==>{
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434834	435184	
==>{
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435849	436199	
==>{
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436863	437213	
==>{
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437878	438228	
==>{
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
8	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	17192	17317	
==>T => -22
	},
	{#State 57
		DEFAULT => -33
	},
	{#State 58
		ACTIONS => {
			"." => 66
		}
	},
	{#State 59
		DEFAULT => -31
	}, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752346	752610	
==>E" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753125	753389	
==>E" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753912	754176	
==>E" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754700	754964	
==>E" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755486	755750	
==>E" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756273	756537	
==>E" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757062	757326	
==>E" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
8	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36276	36415	
==>y, huh?
        unless ($mv->{'ARG0'}) {
            $mv->{'ARG0'} = 'I_arg_0';
            push @localmv, 'ARG0';
        }

		# Insert typ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888307	888677	
==>LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889441	889811	
==>LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890575	890945	
==>LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891710	892080	
==>LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892844	893214	
==>LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893979	894349	
==>LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895114	895484	
==>LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896250	896620	
==>LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396056	396148	
==>ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397136	397228	
==>ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398216	398308	
==>ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399297	399389	
==>ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400377	400469	
==>ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401458	401550	
==>ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402539	402631	
==>ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403621	403713	
==>ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  if(!{{\@1}}) <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887421	887665	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888554	888798	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889688	889932	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890822	891066	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891957	892201	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893091	893335	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	894226	894470	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895361	895605	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000086	1000257	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclas <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001224	1001395	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclas <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002362	1002533	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclas <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003501	1003672	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclas <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004639	1004810	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclas <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005778	1005949	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclas <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1006917	1007088	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclas <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008057	1008228	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_cclas <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	652500	652755	
==>r, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUM <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060192	1060447	
==>r, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUM <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1027326	1027580	
==>r, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUM <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	26852	27105	
==>r, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUM <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18774	18973	
==>ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 314 \"src/ops/core.ops\"\n  if ({{\@1}}->vtable->get_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4764	4865	
==>ode prior to the run core function.

=cut

sub run_core_func_start
{
    return <<END_C;
#if defined(_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3052	3153	
==>ode prior to the run core function.

=cut

sub run_core_func_start
{
    return <<END_C;
#if defined(_ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	371670	371765	
==>IO_setlinebuf(interpreter, pio);\n    {{\@1}} = PIO_reads(interpreter, pio, 0);\n    {{+=3}};\n" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964914	965212	
==>g_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965922	966220	
==>g_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966930	967228	
==>g_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967939	968237	
==>g_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968947	969245	
==>g_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969956	970254	
==>g_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970965	971263	
==>g_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971975	972273	
==>g_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
8	/Users/nnunley/parrot/config/auto/gdbm.pm	1077	1200	
==>) {
        if (-f "/sw/include/gdbm.h") {
            $conf->data->add(' ', linkflags => '-L/sw/lib');
            $conf->d <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213524	213819	
==>OT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214465	214760	
==>OT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215405	215700	
==>OT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216346	216641	
==>OT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217285	217580	
==>OT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218225	218520	
==>OT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219203	219498	
==>OT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
8	/Users/nnunley/parrot/lib/Text/Balanced.pm	26145	26244	
==>string of $text that is bounded by
 # a C<BEGIN>...C<END> pair. Don't allow nested C<BEGIN> tags

	( <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692973	693328	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FL <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693973	694328	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FL <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694973	695328	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FL <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695974	696329	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FL <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696974	697329	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FL <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697975	698330	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FL <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698976	699331	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FL <==
8	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25944	26044	
==>RE") {   # next  (no variable)
		push @{$code{$seg}->{code}}, <<NEXT;
	add $ps->{var}, $ps->{var}, FO <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964886	964981	
==>\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965894	965989	
==>\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966902	966997	
==>\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967911	968006	
==>\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968919	969014	
==>\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969928	970023	
==>\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970937	971032	
==>\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971947	972042	
==>\"\n  {{\@1}} = Parrot_string_is_cclass(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n", <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871158	871448	
==>terpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, ' <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872175	872465	
==>terpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, ' <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873192	873482	
==>terpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, ' <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874210	874500	
==>terpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, ' <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875227	875517	
==>terpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, ' <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876245	876535	
==>terpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, ' <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877263	877553	
==>terpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, ' <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878282	878572	
==>terpreter, {{\@2}}, {{\@3}}, {{\@4}}, &{{\@1}}, 0);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, ' <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431850	432180	
==>> "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432864	433194	
==>> "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433879	434209	
==>> "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434893	435223	
==>> "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435908	436238	
==>> "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436922	437252	
==>> "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437937	438267	
==>> "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
8	/Users/nnunley/parrot/lib/Parrot/PMC.pm	1385	1477	
==>tArray => 65,
	ResizableIntegerArray => 66,
	ResizablePMCArray => 67,
	ResizableStringArray = <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913007	913187	
==>}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914018	914198	
==>}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915029	915209	
==>}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916041	916221	
==>}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917052	917232	
==>}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918064	918244	
==>}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919076	919256	
==>}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920089	920269	
==>}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385269	385369	
==>(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(int <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386400	386500	
==>(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(int <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387531	387631	
==>(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(int <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388663	388763	
==>(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(int <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389794	389894	
==>(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(int <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390926	391026	
==>(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(int <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392058	392158	
==>(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(int <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393191	393291	
==>(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      real_exception(int <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871034	871181	
==>"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872051	872198	
==>"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873068	873215	
==>"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874086	874233	
==>"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875103	875250	
==>"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876121	876268	
==>"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877139	877286	
==>"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878158	878305	
==>"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	425568	425876	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ] <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426454	426762	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ] <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427341	427649	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ] <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428227	428535	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ] <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429114	429422	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ] <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430000	430308	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ] <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430887	431195	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ] <==
8	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	973	1100	
==>visitor->$func( $self, @_ );
        }
        warn "Please implement a function 'visit", ref $self, "' in '",
            re <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93377	93654	
==>}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "b <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94157	94434	
==>}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "b <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101872	102149	
==>}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "b <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102643	102920	
==>}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "b <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109701	109978	
==>}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "b <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110480	110757	
==>}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "b <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133906	134183	
==>}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "b <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134687	134964	
==>}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "b <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351076	351314	
==>LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351738	351976	
==>LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352395	352633	
==>LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353053	353291	
==>LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353797	354035	
==>LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354542	354780	
==>LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io" <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361009	361247	
==>LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io" <==
8	/Users/nnunley/parrot/tools/build/pmc2c.pl	6112	6205	
==>idden implementation of the current method in the nearest
superclass, using the static type of <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793446	793703	
==>er_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794351	794608	
==>er_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795256	795513	
==>er_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796162	796419	
==>er_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797065	797322	
==>er_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797969	798226	
==>er_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798873	799130	
==>er_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799778	800035	
==>er_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730722	730976	
==>t.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731458	731712	
==>t.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735211	735465	
==>t.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735947	736201	
==>t.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741254	741508	
==>t.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745814	746068	
==>t.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746549	746803	
==>t.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
8	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	1419	1542	
==>ag name_len ',' substitution_len name substitution 
                  { [ @item[5,1,6] ] }       

# TODO: What does this me <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878657	878969	
==>AME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879760	880072	
==>AME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880864	881176	
==>AME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881968	882280	
==>AME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883073	883385	
==>AME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884178	884490	
==>AME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885284	885596	
==>AME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886390	886702	
==>AME" => "substr_r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887465	887833	
==>JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888598	888966	
==>JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889732	890100	
==>JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890866	891234	
==>JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892001	892369	
==>JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893135	893503	
==>JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	894270	894638	
==>JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895405	895773	
==>JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385251	385352	
==>\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      r <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386382	386483	
==>\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      r <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387513	387614	
==>\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      r <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388645	388746	
==>\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      r <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389776	389877	
==>\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      r <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390908	391009	
==>\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      r <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392040	392141	
==>\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      r <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393173	393274	
==>\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset32({{\@2}}, {{\@3}}), {{\@4}}) < 0) {\n      r <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693040	693361	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "AR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694040	694361	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "AR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695040	695361	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "AR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696041	696362	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "AR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697041	697362	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "AR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698042	698363	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "AR <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699043	699364	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "AR <==
8	/Users/nnunley/parrot/tools/build/pbc2c.pl	5162	5289	
==>reter;
    struct PackFile *          pf;
    INTVAL i;
    PMC *userargv;

    interpreter = Parrot_new(NULL);
    if (!interpr <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412947	413076	
==>.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414074	414203	
==>.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415201	415330	
==>.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416329	416458	
==>.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417456	417585	
==>.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418584	418713	
==>.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419712	419841	
==>.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABE <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420841	420970	
==>.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\@2}}, {{\@3}}, {{\@4}}, {{\@5}});\n    {{+=6}};\n",
                  "LABE <==
8	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5398	5525	
==>less ($first);
                print {$FH} "$_->{symbol}";
                if ( exists $_->{pragma} and $_->{pragma} eq 'multi <==
8	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6430	6557	
==>less ($first);
                print {$FH} "$_->{symbol}";
                if ( exists $_->{pragma} and $_->{pragma} eq 'multi <==
8	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5827	5946	
==>less ($first);
            print {$FH} "$_->{symbol}";
            if ( exists $_->{pragma} and $_->{pragma} eq 'multi <==
8	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6922	7041	
==>less ($first);
            print {$FH} "$_->{symbol}";
            if ( exists $_->{pragma} and $_->{pragma} eq 'multi <==
8	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	9836	9955	
==>less ($first);
            print {$FH} "$_->{symbol}";
            if ( exists $_->{pragma} and $_->{pragma} eq 'multi <==
8	/Users/nnunley/parrot/lib/Test/Builder.pm	35689	35787	
==>ything failed it will exit with how many failed.  If
you run less (or more) tests than you planned, <==
8	/Users/nnunley/parrot/lib/Test/More.pm	33760	33858	
==>ything failed it will exit with how many failed.  If
you run less (or more) tests than you planned, <==
8	/Users/nnunley/parrot/lib/Test/Simple.pm	2556	2654	
==>ything failed it will exit with how many failed.  If
you run less (or more) tests than you planned, <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	395434	395769	
==>,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396513	396848	
==>,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397593	397928	
==>,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398673	399008	
==>,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399754	400089	
==>,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400834	401169	
==>,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401915	402250	
==>,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402996	403331	
==>,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385196	385297	
==>ODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_ma <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386327	386428	
==>ODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_ma <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387458	387559	
==>ODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_ma <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388590	388691	
==>ODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_ma <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389721	389822	
==>ODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_ma <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390853	390954	
==>ODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_ma <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391985	392086	
==>ODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_ma <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393118	393219	
==>ODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_ma <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	395377	395624	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396456	396703	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397536	397783	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398616	398863	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399697	399944	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400777	401024	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401858	402105	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402939	403186	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459027	459331	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_co <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460014	460318	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_co <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461002	461306	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_co <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461990	462294	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_co <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462986	463290	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_co <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463983	464287	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_co <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	68688	68864	
==>reter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "collect <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	69129	69305	
==>reter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "collect <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871100	871190	
==>e 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872117	872207	
==>e 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873134	873224	
==>e 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874152	874242	
==>e 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875169	875259	
==>e 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876187	876277	
==>e 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877205	877295	
==>e 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878224	878314	
==>e 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, {{\@ <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586954	587239	
==>@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588140	588425	
==>@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589326	589611	
==>@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590513	590798	
==>@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591722	592007	
==>@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592932	593217	
==>@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
8	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594142	594427	
==>@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
8	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	5348	5452	
==>ribe_c_file {
    my($info,$text) = @_;
    my $comment_is_at_beginning = $text =~ /^\/\*/;
    my($first <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	247	342	
==>5:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expression <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	246	341	
==>5:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expression <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	248	343	
==>5:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expression <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	250	345	
==>5:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expression <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	250	345	
==>5:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expression <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	248	343	
==>5:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expression <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	258	353	
==>5:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expression <==
7	/Users/nnunley/parrot/lib/Class/Struct.pm	7653	7771	
==>:Struct;
            # declare struct with four types of elements:
    struct( s => '$', a => '@', h => '%', c => 'My_O <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28007	28110	
==>xpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse::Rec <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30081	30184	
==>xpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse::Rec <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32282	32385	
==>xpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse::Rec <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34878	34981	
==>xpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse::Rec <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41988	42091	
==>xpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse::Rec <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74539	74640	
==>xpected
		    && !$Parse::RecDescent::failed++) {
			$Parse::RecDescent::expected
			    = $Parse::Rec <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054514	1054723	
==>}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055641	1055850	
==>}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056532	1056741	
==>}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057424	1057633	
==>}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058316	1058525	
==>}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059209	1059418	
==>}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30759	30861	
==>ahead"} ? '$text = $_savetext;' : '' ) .'
';

	return $code;
}

1;

package Parse::RecDescent::InterpLi <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396219	396595	
==>5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397299	397675	
==>5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398379	398755	
==>5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399460	399836	
==>5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400540	400916	
==>5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401621	401997	
==>5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402702	403078	
==>5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_network <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421885	422193	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bin <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591384	591473	
==>bject.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592594	592683	
==>bject.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593804	593893	
==>bject.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595015	595104	
==>bject.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600027	600116	
==>bject.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601103	601192	
==>bject.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314352	314580	
==>conv_i1_ovf",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
7	/Users/nnunley/parrot/lib/Test/More.pm	6424	6551	
==>'set_db()' );
    ok( $p->tests == 4,                  'saw tests' );
    ok( !grep !defined $_, @items,       'items populated' <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18435	18536	
==>my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_g <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19148	19249	
==>my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_g <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19636	19737	
==>my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_g <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20125	20226	
==>my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_g <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20614	20715	
==>my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_g <==
7	/Users/nnunley/parrot/config/gen/makefiles.pm	8642	8761	
==>undef);

        open MAKEFILE, ">> docs/Makefile" or die "open >> docs/Makefile: $!";

        my $slash       = $conf- <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31786	31893	
==>{
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33363	33470	
==>{
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35074	35181	
==>{
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36377	36484	
==>{
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38324	38431	
==>{
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40420	40527	
==>{
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, <==
7	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	28312	28427	
==>f ($self->can($method)) {
            return $self->$method($op, @{ $op->{args} }, $lastback)
              unless $ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550361	550454	
==>\"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, metho <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551662	551755	
==>\"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, metho <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554214	554307	
==>\"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, metho <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555611	555704	
==>\"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, metho <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558266	558359	
==>\"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, metho <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559650	559743	
==>\"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, metho <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2665	2762	
==>right->sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ Nam <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2542	2639	
==>right->sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ Nam <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2917	3014	
==>right->sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ Nam <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3591	3688	
==>right->sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ Nam <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3681	3778	
==>right->sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ Nam <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5462	5555	
==>right->sax($handler);
  $handler->end_element({ Name => 'op' });
  $handler->end_element({ Nam <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3525	3618	
==>right->sax($handler);
  $handler->end_element({ Name => 'op' });
  $handler->end_element({ Nam <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514162	514446	
==>}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515042	515326	
==>}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515922	516206	
==>}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528668	528952	
==>}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529550	529834	
==>}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	530432	530716	
==>}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	43450	43547	
==>t ' ' x $depth; print "($node->{value}\n";
  if(defined $node->{children}) {
    for(@{$node->{chi <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710916	711173	
==>=> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "A <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711750	712007	
==>=> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "A <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712856	713113	
==>=> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "A <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713963	714220	
==>=> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "A <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714885	715142	
==>=> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "A <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715808	716065	
==>=> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "A <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	22	109	
==>The Perl Foundation.
# $Id: /parrot/lib/Parrot/Docs/Section/Perl.pm 20333 2006-06-21T18: <==
7	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	442	562	
==>snt_eq'
                        );

foreach my $func ( keys %language_test_map ) {

  *{"Parrot::Test::Tcl::$func"} = sub <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591500	591593	
==>NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_exception(in <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592710	592803	
==>NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_exception(in <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593920	594013	
==>NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_exception(in <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595131	595224	
==>NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_exception(in <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600143	600236	
==>NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_exception(in <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601219	601312	
==>NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_exception(in <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374149	374511	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375032	375394	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375915	376277	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376799	377161	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377682	378044	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378566	378928	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379450	379812	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539773	540016	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541024	541267	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542276	542519	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066315	1066558	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067500	1067743	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068686	1068929	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069872	1070115	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071059	1071302	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073243	1073486	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075428	1075671	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077613	1077856	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31985	32104	
==>grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $para <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33562	33681	
==>grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $para <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40619	40738	
==>grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $para <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31735	31844	
==>t emitted
    if ($self->SUPER::implements($meth)) {
        my $n = $self->{has_method}{$meth};
        retur <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33312	33421	
==>t emitted
    if ($self->SUPER::implements($meth)) {
        my $n = $self->{has_method}{$meth};
        retur <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35023	35132	
==>t emitted
    if ($self->SUPER::implements($meth)) {
        my $n = $self->{has_method}{$meth};
        retur <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36326	36435	
==>t emitted
    if ($self->SUPER::implements($meth)) {
        my $n = $self->{has_method}{$meth};
        retur <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38273	38382	
==>t emitted
    if ($self->SUPER::implements($meth)) {
        my $n = $self->{has_method}{$meth};
        retur <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40369	40478	
==>t emitted
    if ($self->SUPER::implements($meth)) {
        my $n = $self->{has_method}{$meth};
        retur <==
7	/Users/nnunley/parrot/tools/build/dynclasses.pl	1167	1251	
==>Wstrict-prototypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wcast-a <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63744	63899	
==>elf,
										   $matchrule,
										   $argcode);
										   
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$line,"$code <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63037	63178	
==>elf,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$line,"$code <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64474	64615	
==>elf,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$line,"$code <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65129	65270	
==>elf,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$line,"$code <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65789	65930	
==>elf,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$line,"$code <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	66508	66649	
==>elf,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$line,"$code <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62404	62541	
==>elf,
									   $matchrule,
									   $argcode);
					$prod and $prod->additem($item)
					      or  _no_rule("repetition",$line,"$code <==
7	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2175	2401	
==>/
                and $str .= "\f",      # form feed
                last;
            s/^\\n//
                and $str .= "\n",      # new line
                last;
            s/^\\r//
                and $str .= "\r <==
7	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3689	3915	
==>/
                and $str .= "\f",      # form feed
                last;
            s/^\\n//
                and $str .= "\n",      # new line
                last;
            s/^\\r//
                and $str .= "\r <==
7	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5405	5555	
==>first);
                print {$FH} "$_->{symbol}";
                if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                    pri <==
7	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6437	6587	
==>first);
                print {$FH} "$_->{symbol}";
                if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                    pri <==
7	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5834	5972	
==>first);
            print {$FH} "$_->{symbol}";
            if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                pri <==
7	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6929	7067	
==>first);
            print {$FH} "$_->{symbol}";
            if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                pri <==
7	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	9843	9981	
==>first);
            print {$FH} "$_->{symbol}";
            if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                pri <==
7	/Users/nnunley/parrot/lib/Text/Balanced.pm	4627	4720	
==>pre, $ldel, $qdel, $quotelike, $rdel
{
	my ($textref, $pre, $ldel, $qdel, $quotelike, $rdel) = <==
7	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	15967	16114	
==>==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			"<=" => 85,
			'OR' => 84,
			")" => 81,
			">" => 86
		}
	},
	{ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260065	260377	
==>@2}} == {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260917	261229	
==>@2}} == {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261769	262081	
==>@2}} == {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262622	262934	
==>@2}} == {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290921	291231	
==>@2}} == {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291767	292077	
==>@2}} == {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292613	292923	
==>@2}} == {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385448	385804	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ": <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386579	386935	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ": <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387710	388066	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ": <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388842	389198	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ": <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389973	390329	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ": <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391105	391461	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ": <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392237	392593	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ": <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356107	356371	
==>> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356766	357030	
==>> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357426	357690	
==>> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358089	358353	
==>> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358753	359017	
==>> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359500	359764	
==>> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360248	360512	
==>> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264426	264734	
==>!= {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265280	265588	
==>!= {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266134	266442	
==>!= {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266989	267297	
==>!= {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299597	299903	
==>!= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300443	300749	
==>!= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301289	301595	
==>!= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	331819	332115	
==>=> "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333096	333392	
==>=> "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334374	334670	
==>=> "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335652	335948	
==>=> "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451171	451454	
==>> 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451909	452192	
==>> 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452648	452931	
==>> 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453386	453669	
==>> 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23528	23649	
==>less 
	{
		"lookahead" => $_[1],
		"line"      => $_[2],
		"name"      => $_[3],
	}, $class;
}

# MARK, YOU MAY WANT TO OP <==
7	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	7279	7374	
==>T page_footer();
}


sub write_file_coverage_summary {

    print "Writing $HTMLDIR/file_summary <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	10952	11042	
==>eturn $ret;
}

=item C<rewrite_nci_method($class, $method, $super, $super_table)>

Rewrites <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519116	519424	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519970	520278	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520825	521133	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	521680	521988	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522534	522842	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523389	523697	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2136	2257	
==>ill in the
  # IDENT entry within the block.
  #

  $sym = Jako::Symbol->new(
    $self->block,
    'global',         # TO <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438874	439188	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439888	440202	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440903	441217	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441917	442231	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442932	443246	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443946	444260	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444961	445275	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231219	231505	
==>3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232123	232409	
==>3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233027	233313	
==>3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233930	234216	
==>3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234834	235120	
==>3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235738	236024	
==>3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
7	/Users/nnunley/parrot/tools/build/ops2c.pl	6705	6814	
==>) {
    my $func_name  = $op->func_name($trans);
    my $arg_types  = "$opsarraytype *, Interp *";
    my $pro <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476301	476605	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480877	481181	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481880	482184	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482883	483187	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483881	484185	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484880	485184	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_ <==
7	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	21298	21448	
==>ack
#               goto lastback
#         back: R or rfail
#               pushmark
#         next:
#
# conversion to using a temporary (not implemen <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	13933	14041	
==>y $file = shift;
    my $string = "";
    
    $self->output_string(\$string);
    $self->parse_file($file->p <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413031	413406	
==>}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "po <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414158	414533	
==>}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "po <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415285	415660	
==>}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "po <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416413	416788	
==>}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "po <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417540	417915	
==>}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "po <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418668	419043	
==>}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "po <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419796	420171	
==>}});\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "po <==
7	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7596	7694	
==>ine =~ m/^\s/s) {

        if(!$self->{'start_of_pod_block'} and @$paras and $paras->[-1][0] eq '~V <==
7	/Users/nnunley/parrot/config/auto/bc.pm	407	500	
==>rs qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parro <==
7	/Users/nnunley/parrot/config/auto/gdbm.pm	352	445	
==>rs qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parro <==
7	/Users/nnunley/parrot/config/auto/gmp.pm	306	399	
==>rs qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parro <==
7	/Users/nnunley/parrot/config/auto/m4.pm	381	474	
==>rs qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parro <==
7	/Users/nnunley/parrot/config/auto/readline.pm	313	406	
==>rs qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parro <==
7	/Users/nnunley/parrot/config/init/optimize.pm	399	492	
==>rs qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parro <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730737	731011	
==>1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731473	731747	
==>1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735226	735500	
==>1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735962	736236	
==>1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741269	741543	
==>1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745829	746103	
==>1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746564	746838	
==>1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717394	717694	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718325	718625	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719257	719557	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720456	720756	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721656	721956	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722684	722984	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723713	724013	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256846	257268	
==>" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 299,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#li <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830742	831001	
==>);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831483	831742	
==>);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832210	832469	
==>);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832938	833197	
==>);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833660	833919	
==>);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834385	834644	
==>);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAG <==
7	/Users/nnunley/parrot/lib/Text/Balanced.pm	825	918	
==>age, pos=>$pos }, "Text::Balanced::ErrorMsg";
}

sub _fail
{
	my ($wantarray, $textref, $messa <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16413	16493	
==>\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(or <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16755	16835	
==>\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(or <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1878	1958	
==>\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(or <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9956	10036	
==>\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(or <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10199	10279	
==>\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(or <==
7	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1981	2061	
==>\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(or <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752263	752576	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753042	753355	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753829	754142	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754617	754930	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755403	755716	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756190	756503	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756979	757292	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710181	710443	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711014	711276	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711848	712110	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712954	713216	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714061	714323	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714983	715245	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715906	716168	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438702	439004	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439716	440018	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440731	441033	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441745	442047	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442760	443062	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443774	444076	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444789	445091	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93350	93574	
==>interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94130	94354	
==>interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109674	109898	
==>interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110453	110677	
==>interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133879	134103	
==>interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134660	134884	
==>interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	317	412	
==>ion describing Parrot's big number subsystem.

=head2 Class Methods

=over

=cut

package Parrot <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550441	550693	
==>rpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551742	551994	
==>rpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552933	553185	
==>rpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558346	558598	
==>rpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559730	559982	
==>rpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560951	561203	
==>rpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
7	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11555	11656	
==>'t write $outfile: $!\n";

    print OUT page_header("Branch Coverage for $source_file");
    print OU <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454158	454455	
==>"add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 52 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455012	455309	
==>"add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 52 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455867	456164	
==>"add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 52 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456722	457019	
==>"add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 52 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457576	457873	
==>"add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 52 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458431	458728	
==>"add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 52 <==
7	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	2336	2440	
==>sub convert_rx_beg {
    my ($self, $tree, $ctx) = @_;
    return $self->convert($tree, $ctx);
}

sub con <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413051	413442	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ": <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414178	414569	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ": <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415305	415696	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ": <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416433	416824	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ": <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417560	417951	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ": <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418688	419079	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ": <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419816	420207	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ": <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471262	471528	
==>n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472249	472515	
==>n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473236	473502	
==>n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474226	474492	
==>n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475217	475483	
==>n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476208	476474	
==>n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
7	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	59	156	
==>l 4793 2005-05-31T14:22:35.671857Z svm  $

=head1 DESCRIPTION

=head1 SYNTAX

=cut

# pragmata
use <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202780	203042	
==>\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203711	203973	
==>\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204642	204904	
==>\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598196	598455	
==>n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599243	599502	
==>n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600318	600577	
==>n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601394	601653	
==>n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836731	836922	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837463	837654	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838197	838388	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838929	839120	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
7	/Users/nnunley/parrot/tools/build/dynclasses.pl	2179	2300	
==>rget, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various libraries in <==
7	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2471	2592	
==>rget, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various libraries in <==
7	/Users/nnunley/parrot/tools/build/dynpmc.pl	2266	2387	
==>rget, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various libraries in <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12510	12615	
==>subrule();
		return $subrule if defined $subrule;
	}

	return ();
}

sub checkleftmost($)
{
	my @items = @ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23081	23300	
==>dest);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25520	25739	
==>dest);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADD <==
7	/Users/nnunley/parrot/languages/python/pie-thon.pl	2380	2495	
==>[$//;
    $dir2 =~ s/\[$//;
    my @dir1 = split(/,/, $dir1);
    my @dir2 = split(/,/, $dir2);
    my (%dir1, %dir2 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940328	940421	
==>86 \"src/ops/string.ops\"\n    {{\@1}} = string_split(interpreter, {{\@2}}, {{\@3}});\n    {{+ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941220	941313	
==>86 \"src/ops/string.ops\"\n    {{\@1}} = string_split(interpreter, {{\@2}}, {{\@3}});\n    {{+ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942112	942205	
==>86 \"src/ops/string.ops\"\n    {{\@1}} = string_split(interpreter, {{\@2}}, {{\@3}});\n    {{+ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943005	943098	
==>86 \"src/ops/string.ops\"\n    {{\@1}} = string_split(interpreter, {{\@2}}, {{\@3}});\n    {{+ <==
7	/Users/nnunley/parrot/lib/Parrot/Test.pm	6048	6141	
==>mmand("make test", CD => "some_dir");

=item C<slurp_file($file_name)>

Read the whole file $f <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510479	510722	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511217	511460	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511955	512198	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11124	11243	
==>/eg;
        # Yes, stipulate the list without a range, so that this can work right on
        #  all charsets that this <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4473	4590	
==>/eg;
       # Yes, stipulate the list without a range, so that this can work right on
       #  all charsets that this <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1969	2080	
==>/eg;
    # Yes, stipulate the list without a range, so that this can work right on
    #  all charsets that this <==
7	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2072	2183	
==>/eg;
    # Yes, stipulate the list without a range, so that this can work right on
    #  all charsets that this <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	445482	445680	
==>,
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 119 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_ppp(inter <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180633	180879	
==>/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ] <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181529	181775	
==>/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ] <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182425	182671	
==>/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ] <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183320	183566	
==>/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ] <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184216	184462	
==>/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ] <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185112	185358	
==>/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ] <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37332	37439	
==>);
    return 'v' if ($type eq 'void');
    return '?';
}

=item C<signature($params)>

Returns the method s <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271128	271415	
==>@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271974	272261	
==>@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272820	273107	
==>@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273665	273952	
==>@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	274511	274798	
==>@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	275357	275644	
==>@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
7	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8799	8901	
==>-

%Code2USASCII = (
# mostly generated by
#  perl -e "printf qq{  \x25 3s, '\x25s',\n}, $_, chr($_) fo <==
7	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	48793	48905	
==>ineage[-2] }, $lineage[-1];
      
    } elsif(defined $3) {
      DEBUG > 3 and print "Found apparent complex en <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31775	31878	
==>ts($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{metho <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33352	33455	
==>ts($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{metho <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35063	35166	
==>ts($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{metho <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36366	36469	
==>ts($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{metho <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38313	38416	
==>ts($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{metho <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40409	40512	
==>ts($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{metho <==
7	/Users/nnunley/parrot/tools/dev/nm.pl	7159	7280	
==>r    = 0;
		if (($^O eq 'irix' || $^O eq 'dec_osf') &&
		    $type =~ /^[BbSs]$/) {
		    if ($type =~ /^[Ss]$/) {
			$sma <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576504	576590	
==>BLE_set_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpr <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577516	577602	
==>BLE_set_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpr <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579604	579690	
==>BLE_set_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpr <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580909	580995	
==>BLE_set_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpr <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582214	582300	
==>BLE_set_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpr <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583520	583606	
==>BLE_set_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpr <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480096	480396	
==>JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481098	481398	
==>JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482101	482401	
==>JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483104	483404	
==>JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484102	484402	
==>JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485101	485401	
==>JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	3432	3551	
==>it("  global \"$name\" = $reg");
  }
  else {
    $compiler->emit("  .local $type $name");
  }

  return 1;
}


#
# sax( <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	675333	675624	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676112	676403	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676892	677183	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677669	677960	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678447	678738	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679225	679516	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680004	680295	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832074	832159	
==>src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832802	832887	
==>src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833529	833614	
==>src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834251	834336	
==>src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834977	835062	
==>src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835703	835788	
==>src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836456	836541	
==>src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, <==
7	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	407	524	
==>curtok="";
}

sub tokenize {

	fetch;	
	fetch;
	fetch;
MAIN:
	goto END if $cur eq -1;
	if ($cur =~ /[\t ]/) {   # Whit <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11302	11407	
==>bout that ord?  Presumably that won't work right
        #  under non-ASCII charsets.  Something should be <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17142	17247	
==>bout that ord?  Presumably that won't work right
        #  under non-ASCII charsets.  Something should be <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4648	4752	
==>bout that ord?  Presumably that won't work right
       #  under non-ASCII charsets.  Something should be <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2135	2236	
==>bout that ord?  Presumably that won't work right
    #  under non-ASCII charsets.  Something should be <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10558	10659	
==>bout that ord?  Presumably that won't work right
    #  under non-ASCII charsets.  Something should be <==
7	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2238	2339	
==>bout that ord?  Presumably that won't work right
    #  under non-ASCII charsets.  Something should be <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	513519	513896	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514398	514775	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515278	515655	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1098450	1098827	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099647	1100024	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100845	1101222	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102043	1102420	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055690	1055998	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fi <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056581	1056889	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fi <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057473	1057781	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fi <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058365	1058673	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fi <==
7	/Users/nnunley/parrot/tools/build/nativecall.pl	12649	12768	
==>/ && do {
        push @{$temps_ref}, "STRING *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_ <==
7	/Users/nnunley/parrot/tools/build/nativecall.pl	12856	12975	
==>/ && do {
        push @{$temps_ref}, "STRING *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_ <==
7	/Users/nnunley/parrot/tools/build/nativecall.pl	13341	13460	
==>/ && do {
        push @{$temps_ref}, "STRING *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830757	831014	
==>n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831498	831755	
==>n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832225	832482	
==>n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832953	833210	
==>n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833675	833932	
==>n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834400	834657	
==>n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_ <==
7	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30878	30991	
==>or rule $rule->{'name'}");
		$pir .= "### end post_load\n";

        # Emit code to clone value types for the need <==
7	/Users/nnunley/parrot/config/inter/lex.pm	1693	1803	
==>k')) {
        $prog = prompt($prompt, $prog ? $prog : $conf->data->get($util));
    }

    my ($stdout, $stder <==
7	/Users/nnunley/parrot/config/inter/make.pm	1567	1677	
==>k')) {
        $prog = prompt($prompt, $prog ? $prog : $conf->data->get($util));
    }

    my ($stdout, $stder <==
7	/Users/nnunley/parrot/config/inter/yacc.pm	1707	1817	
==>k')) {
        $prog = prompt($prompt, $prog ? $prog : $conf->data->get($util));
    }

    my ($stdout, $stder <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773409	773494	
==>s/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774319	774404	
==>s/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775229	775314	
==>s/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776140	776225	
==>s/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471287	471577	
==>\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472274	472564	
==>\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473261	473551	
==>\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474251	474541	
==>\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475242	475532	
==>\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476233	476523	
==>\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
7	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	3345	3493	
==>rn @methods;
}


# Generate the lookup table.
# ##########################
sub generate_lookup {
    my @methods = @_;
    my $pir = "";

    # Group <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454094	454411	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454948	455265	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455803	456120	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456658	456975	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457512	457829	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458367	458684	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
7	/Users/nnunley/parrot/lib/Text/Balanced.pm	56074	56168	
==>h are thus removed are accumulated and
eventually become the next field (unless the fourth argu <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271106	271365	
==>c/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271952	272211	
==>c/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272798	273057	
==>c/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273643	273902	
==>c/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	274489	274748	
==>c/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	275335	275594	
==>c/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
7	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	23467	23598	
==>', '&' => 'long',
				       '!' => 'single',  '#' => 'double',
				       '$' => 'string'  );
			my $ut="";
			if ($syms[NEXT] eq " <==
7	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	830	943	
==>y languages/${lang_fn}", 
             "$self->{parrot} languages/${pir_fn}" );
}
 
 

sub skip_why {
    my $self <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	3538	3648	
==>k
# stack to make sure we don't pop off the file scope block.
#

sub pop_block
{
  my $self = shift;

  $self-> <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32733	32832	
==>th) = @_;
    $self->implements_vtable($meth);
}

=item C<gen_ret($type)>

Generate the C code for a <==
7	/Users/nnunley/parrot/config/init/hints/linux.pm	1450	1573	
==>d_share_flags,
        ld_load_flags  => $ld_share_flags,
        i_lib_pthread  => 1,              # XXX fake a header entr <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591389	591480	
==>.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592599	592690	
==>.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593809	593900	
==>.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595020	595111	
==>.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600032	600123	
==>.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601108	601199	
==>.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+ <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	19253	19381	
==>$self->{vtable}{methods}} ) {
        my $meth = $method->{meth};
        my $meth_name;
        my $defaulted = 0;
        my $c <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31615	31728	
==>t

sub body
{
    my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing meth <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33192	33305	
==>t

sub body
{
    my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing meth <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34903	35016	
==>t

sub body
{
    my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing meth <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36206	36319	
==>t

sub body
{
    my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing meth <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38153	38266	
==>t

sub body
{
    my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing meth <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40249	40362	
==>t

sub body
{
    my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing meth <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047499	1047782	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050379	1050662	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051413	1051696	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052447	1052730	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053482	1053765	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054608	1054891	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059303	1059586	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find <==
7	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	1921	2026	
==>ines;
}

=item C<write(@lines)>

Writes the specified lines to the file.

=cut

sub write
{
    my $self = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72818	72907	
==>rot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '% <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74420	74509	
==>rot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '% <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76022	76111	
==>rot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '% <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77625	77714	
==>rot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '% <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79146	79235	
==>rot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '% <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80667	80756	
==>rot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '% <==
7	/Users/nnunley/parrot/config/inter/libparrot.pm	466	573	
==>base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$description = 'Determin <==
7	/Users/nnunley/parrot/config/inter/charset.pm	342	445	
==>base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$description = 'Determin <==
7	/Users/nnunley/parrot/config/inter/encoding.pm	347	450	
==>base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$description = 'Determin <==
7	/Users/nnunley/parrot/config/inter/ops.pm	322	425	
==>base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$description = 'Determin <==
7	/Users/nnunley/parrot/config/inter/progs.pm	461	564	
==>base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$description = 'Determin <==
7	/Users/nnunley/parrot/config/inter/shlibs.pm	621	724	
==>base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$description = 'Determin <==
7	/Users/nnunley/parrot/config/inter/types.pm	373	476	
==>base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$description = 'Determin <==
7	/Users/nnunley/parrot/lib/Pod/Simple.pm	20135	20264	
==>EBUG > 4 and print "    Now: ", $i-1, ":[$treelet->[$i-1]]\n";
        --$i;
        next; 
        # since we just pulled the pos <==
7	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27469	27570	
==>slation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule- <==
7	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29936	30037	
==>slation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule- <==
7	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33354	33455	
==>slation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule- <==
7	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34608	34709	
==>slation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule- <==
7	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37018	37119	
==>slation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule- <==
7	/Users/nnunley/parrot/tools/build/pbc2c.pl	5692	5790	
==>new(interpreter, enum_class_PerlArray);
    /* immediately anchor pmc to root set */
    interprete <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374099	374405	
==>@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sta <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374982	375288	
==>@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sta <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375865	376171	
==>@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sta <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376749	377055	
==>@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sta <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377632	377938	
==>@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sta <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378516	378822	
==>@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sta <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379400	379706	
==>@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sta <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439587	439876	
==>p(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440602	440891	
==>p(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441616	441905	
==>p(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442631	442920	
==>p(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443645	443934	
==>p(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444660	444949	
==>p(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	445674	445963	
==>p(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	425648	425945	
==>infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 4 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426534	426831	
==>infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 4 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427421	427718	
==>infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 4 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428307	428604	
==>infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 4 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429194	429491	
==>infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 4 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430080	430377	
==>infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 4 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430967	431264	
==>infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 4 <==
7	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9554	9791	
==>sult2,
                    );
                    push @opcodes, new KeyedGetOp(
                        $parser,
                        'result' => $result2,
                        'arg1'   => $result,
                        'ar <==
7	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11339	11571	
==>sult2,
                        );
                        push @opcodes, new KeyedGetOp( $parser,
                            'result' => $result2,
                            'arg1'   => $result,
                            'ar <==
7	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12851	13063	
==>sult2,
                    );
                    push @opcodes, new KeyedGetOp( $parser,
                        'result' => $result2,
                        'arg1'   => $result,
                        'ar <==
7	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8514	8686	
==>sult2,
            );
            push @opcodes, new KeyedGetOp( $parser,
                'result' => $result2,
                'arg1'   => $result,
                'ar <==
7	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17720	17872	
==>sult2,
        );
        push @opcodes, new KeyedGetOp( $parser,
            'result' => $result2,
            'arg1'   => $result,
            'ar <==
7	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1144	1238	
==>4

=item * C<new()>

Basic constructor.

Accepts no arguments and returns a L<Parrot::Configure <==
7	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	681	775	
==>4

=item * C<new()>

Basic constructor.

Accepts no arguments and returns a L<Parrot::Configure <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264383	264646	
==>\"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265237	265500	
==>\"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266091	266354	
==>\"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266946	267209	
==>\"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299556	299815	
==>\"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300402	300661	
==>\"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301248	301507	
==>\"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948295	948504	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949094	949303	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949894	950103	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950853	951062	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951813	952022	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952773	952982	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21701	21800	
==>self->{hashname} .'}=$_tok;' : '' ) .'
		' . ($self->{"lookahead"} ? '$text = $_savetext;' : '' ) .' <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260027	260314	
==>\"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} == {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260879	261166	
==>\"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} == {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261731	262018	
==>\"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} == {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262584	262871	
==>\"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} == {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290885	291168	
==>\"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} == {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291731	292014	
==>\"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} == {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292577	292860	
==>\"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} == {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519187	519484	
==>NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520041	520338	
==>NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520896	521193	
==>NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	521751	522048	
==>NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522605	522902	
==>NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523460	523757	
==>NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727320	727560	
==>ction",
                  "CODE" => 815,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 50 \"src/ops/set.ops\"\n   const IN <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550434	550666	
==>ke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551735	551967	
==>ke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552926	553158	
==>ke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558339	558571	
==>ke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559723	559955	
==>ke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560944	561176	
==>ke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24284	24383	
==>nt;
      my $target;
      $target = Jako::Construct::Expression::Value::Identifier->new($block, $t <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964964	965305	
==>);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_ccla <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965972	966313	
==>);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_ccla <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966980	967321	
==>);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_ccla <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967989	968330	
==>);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_ccla <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968997	969338	
==>);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_ccla <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970006	970347	
==>);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_ccla <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971015	971356	
==>);\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_ccla <==
7	/Users/nnunley/parrot/tools/build/dynclasses.pl	2922	3056	
==>ist $PATHQUOTE$LIBPARROT$PATHQUOTE";
}

our $NOW = time();

################### MAIN PROGRAM ################

my ($mode, @pmcs) = @ARG <==
7	/Users/nnunley/parrot/tools/build/dynpmc.pl	3026	3160	
==>ist $PATHQUOTE$LIBPARROT$PATHQUOTE";
}

our $NOW = time();

################### MAIN PROGRAM ################

my ($mode, @pmcs) = @ARG <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	409	511	
==>l;

use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new sec <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780668	780754	
==>line 387 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed_int(interpreter, {{ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781577	781663	
==>line 387 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed_int(interpreter, {{ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782486	782572	
==>line 387 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed_int(interpreter, {{ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783396	783482	
==>line 387 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed_int(interpreter, {{ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710912	711150	
==>LS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711746	711984	
==>LS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712852	713090	
==>LS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713959	714197	
==>LS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714881	715119	
==>LS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715804	716042	
==>LS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13034	13149	
==>begin {
  my ($self, $node) = @_;
  my $temp = 'none';

  my @args = _get_args ($node);

  for (@args) {
    $self-> <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666852	667167	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "AR <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667625	667940	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "AR <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668399	668714	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "AR <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669170	669485	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "AR <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669942	670257	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "AR <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670714	671029	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "AR <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671487	671802	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "AR <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137656	137953	
==>NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138551	138848	
==>NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139447	139744	
==>NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140343	140640	
==>NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141238	141535	
==>NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142134	142431	
==>NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/config/init/hints/mswin32.pm	53	140	
==>rrot/config/init/hints/mswin32.pm 19593 2006-05-30T02:28:15.110975Z coke  $

package ini <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73226	73546	
==>rivate1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74828	75148	
==>rivate1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76430	76750	
==>rivate1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78033	78353	
==>rivate1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
7	/Users/nnunley/parrot/lib/Pod/Simple.pm	1852	1953	
==>_accessorize(
  'nbsp_for_S',        # Whether to map S<...>'s to \xA0 characters
  'source_filename', <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21582	21675	
==>gensym();

  $return = $self->_constant(1);
  my $temp = $self->_generate($node->{children}[1] <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21967	22060	
==>gensym();

  $return = $self->_constant(1);
  my $temp = $self->_generate($node->{children}[1] <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471254	471470	
==>nError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472241	472457	
==>nError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473228	473444	
==>nError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474218	474434	
==>nError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475209	475425	
==>nError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476200	476416	
==>nError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	15511	15622	
==>href".

=cut

sub html_link
{
    my $self = shift;
    my $href = $self->href_path(shift);
    my $text = shift <==
7	/Users/nnunley/parrot/tools/build/nativecall.pl	13802	13907	
==>$other_decl ||= "";

    $other_decl .= join("\n    ", @{$temps_ref});
    my $call_state = 'struct call_s <==
7	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	5747	5848	
==>)
IF E$ <> "O" THEN 5030
print "Wrong!"
end
5030 print "Ok"
	end

' Equals bug, should print = greetin <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584612	584702	
==>sn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_sub <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585687	585777	
==>sn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_sub <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586834	586924	
==>sn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_sub <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588020	588110	
==>sn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_sub <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589206	589296	
==>sn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_sub <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590393	590483	
==>sn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_sub <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152477	152773	
==>_str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173705	174001	
==>_str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194943	195239	
==>_str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211676	211972	
==>_str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	220232	220528	
==>_str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228793	229089	
==>_str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
7	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1685	1789	
==>his program and exits.
  --help
    Show this help.

Options may be abbreviated to uniqueness.
USAGE

# N <==
7	/Users/nnunley/parrot/lib/Pod/Simple.pm	9566	9697	
==>de =~ m/^[-\.0-9]/s
        or $new_code =~ m/:[-\.0-9]/s;
            # The legal under-0x80 Name characters that 
            #  a <==
7	/Users/nnunley/parrot/lib/Pod/Simple.pm	10830	10961	
==>de =~ m/^[-\.0-9]/s
        or $new_code =~ m/:[-\.0-9]/s;
            # The legal under-0x80 Name characters that 
            #  a <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18415	18520	
==>self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $te <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19128	19233	
==>self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $te <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19616	19721	
==>self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $te <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20105	20210	
==>self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $te <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20594	20699	
==>self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $te <==
7	/Users/nnunley/parrot/lib/Parrot/Config.pm	11168	11257	
==>etContinuation Exception_Handler Coroutine Eval NCI Float Integer BigInt Complex String Bo <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640813	641105	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641577	641869	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642464	642756	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643352	643644	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644244	644536	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645137	645429	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646033	646325	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221847	222150	
==>LS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "F <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222789	223092	
==>LS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "F <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223730	224033	
==>LS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "F <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224672	224975	
==>LS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "F <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225612	225915	
==>LS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "F <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226553	226856	
==>LS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "F <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227532	227835	
==>LS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "F <==
7	/Users/nnunley/parrot/lib/Parrot/Op.pm	3861	3961	
==>PRECATED/);

    return $name;
}

=item C<func_name()>

The same as C<full_name()>, but with 'C<Parro <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27989	28083	
==>:RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::ex <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30063	30157	
==>:RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::ex <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32264	32358	
==>:RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::ex <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34860	34954	
==>:RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::ex <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41970	42064	
==>:RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::ex <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74521	74613	
==>:RecDescent::lastexpected
		    && !$Parse::RecDescent::failed++) {
			$Parse::RecDescent::ex <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213293	213595	
==>LS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214234	214536	
==>LS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215174	215476	
==>LS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216115	216417	
==>LS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217054	217356	
==>LS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217994	218296	
==>LS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218972	219274	
==>LS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  " <==
7	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16545	16715	
==>result = new_tmp( $parser, 'pmc' );
                push @opcodes, new LocalDir( $parser,
                    'result' => $result,
                );
                p <==
7	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17124	17294	
==>result = new_tmp( $parser, 'pmc' );
                push @opcodes, new LocalDir( $parser,
                    'result' => $result,
                );
                p <==
7	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10692	10857	
==>result = new_tmp( $parser, 'pmc' );
                    push @opcodes,
                        new LocalDir( $parser, 'result' => $result, );
                    p <==
7	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15514	15636	
==>result = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    p <==
7	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18173	18295	
==>result = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    p <==
7	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19267	19389	
==>result = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    p <==
7	/Users/nnunley/parrot/languages/lua/Lua/build.pm	23228	23350	
==>result = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    p <==
7	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15543	15628	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

1;


__END <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2128	2212	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__END <==
7	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3053	3137	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__END <==
7	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	768	852	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__END <==
7	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3523	3606	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__END <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2276	2359	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__END <==
7	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2379	2462	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__END <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494395	494701	
==>\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mo <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495263	495569	
==>\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mo <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496131	496437	
==>\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mo <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497000	497306	
==>\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mo <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497870	498176	
==>\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mo <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498740	499046	
==>\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mo <==
7	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	10192	10337	
==>et the op so we can start the next
        # one.
        #

        if (/^}\s*$/)
        {
            $count += $self->make_op($count, $type, $ <==
7	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	52912	53119	
==>$_->[1]{'target'})
             : $_->[0]
        }
    @$curr_open
  ;
}

###########################################################################
my %pretty_form = (
  "\a" => '\a', # ding!
  "\b" => '\b <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710043	710319	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718187	718463	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719119	719395	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720318	720594	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721518	721794	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722546	722822	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723575	723851	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730723	731004	
==>.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731459	731740	
==>.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735212	735493	
==>.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735948	736229	
==>.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741255	741536	
==>.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745815	746096	
==>.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746550	746831	
==>.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2994	3101	
==>ed to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# G <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4752	4859	
==>ed to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# G <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1916	2023	
==>ed to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# G <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3168	3275	
==>ed to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# G <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1207	1314	
==>ed to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# G <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2917	3024	
==>ed to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# G <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	462	555	
==>xpected
	    = $Parse::RecDescent::defexpected->expected()
	    unless $Parse::RecDescent::exp <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493830	494127	
==>> "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494697	494994	
==>> "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495565	495862	
==>> "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496433	496730	
==>> "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497302	497599	
==>> "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498172	498469	
==>> "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
7	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	13668	13803	
==>S => {
			'@2-1' => 60
		}
	},
	{#State 17
		ACTIONS => {
			'NAME' => 62,
			'FUNCTION' => 61
		},
		GOTOS => {
			'namelist' <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180627	180777	
==>rc/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181523	181673	
==>rc/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182419	182569	
==>rc/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183314	183464	
==>rc/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184210	184360	
==>rc/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185106	185256	
==>rc/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	18912	19016	
==>}{need_ext}) {
        $vtbl_flag .= '|VTABLE_PMC_NEEDS_EXT';
    }
    if (exists $self->{flags}{singlet <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813499	813749	
==>UMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814124	814374	
==>UMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814746	814996	
==>UMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	815374	815624	
==>UMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276159	276249	
==>Y" => "#line 881 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277037	277127	
==>Y" => "#line 881 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277915	278005	
==>Y" => "#line 881 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356203	356483	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356862	357142	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357522	357802	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358185	358465	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358849	359129	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359596	359876	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360344	360624	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23997	24250	
==>{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARRO <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550473	550726	
==>{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARRO <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551774	552027	
==>{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARRO <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552965	553218	
==>{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARRO <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558378	558631	
==>{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARRO <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559762	560015	
==>{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARRO <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560983	561236	
==>{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARRO <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432483	432775	
==>p(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433498	433790	
==>p(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434512	434804	
==>p(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435527	435819	
==>p(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436541	436833	
==>p(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437556	437848	
==>p(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438570	438862	
==>p(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361829	362103	
==>*/\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362728	363002	
==>*/\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363630	363904	
==>*/\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364533	364807	
==>*/\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365372	365646	
==>*/\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366212	366486	
==>*/\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print <==
7	/Users/nnunley/parrot/lib/Text/Balanced.pm	9015	9114	
==>textref =~ m/\G($bad)/gcs)
		{
			pos($$textref) -= length($1);	# CUT OFF WHATEVER CAUSED THE SHORTN <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519132	519449	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519986	520303	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520841	521158	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	521696	522013	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522550	522867	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523405	523722	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
7	/Users/nnunley/parrot/lib/Pod/Simple.pm	704	788	
==>------------------------------------------------------------------------
# Set up som <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1306	1426	
==>T};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $s <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1297	1417	
==>T};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $s <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1186	1306	
==>T};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $s <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1645	1765	
==>T};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $s <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1781	1901	
==>T};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $s <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1424	1544	
==>T};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $s <==
7	/Users/nnunley/parrot/tools/dev/nm.pl	6152	6251	
==>f defined $Type && $Type ne '' && !exists $Type{$Type};

my $TypeLong = defined $Type && $Type eq 'l <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222115	222415	
==>"NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223057	223357	
==>"NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223998	224298	
==>"NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224940	225240	
==>"NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225880	226180	
==>"NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226821	227121	
==>"NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227800	228100	
==>"NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
7	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11417	11527	
==>s {
    my ($self, $name) = @_;
    return ($self->output_match_succeeded(),
            ".return (<rx_match>)" <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11526	11626	
==>::Construct::Expression::Value->new($block, $self->forth);

      $self->require_semicolon;

      my <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12073	12173	
==>::Construct::Expression::Value->new($block, $self->forth);

      $self->require_semicolon;

      my <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12616	12716	
==>::Construct::Expression::Value->new($block, $self->forth);

      $self->require_semicolon;

      my <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16471	16571	
==>::Construct::Expression::Value->new($block, $self->forth);

      $self->require_semicolon;

      my <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17242	17342	
==>::Construct::Expression::Value->new($block, $self->forth);

      $self->require_semicolon;

      my <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18047	18147	
==>::Construct::Expression::Value->new($block, $self->forth);

      $self->require_semicolon;

      my <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63720	63881	
==>d,$line,
										   $self,
										   $matchrule,
										   $argcode);
										   
						$prod and $prod->additem($item)
						      or  _no_rule("repeti <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63013	63160	
==>d,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("repeti <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64450	64597	
==>d,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("repeti <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65105	65252	
==>d,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("repeti <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65765	65912	
==>d,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("repeti <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	66484	66631	
==>d,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("repeti <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62381	62523	
==>d,$line,
									   $self,
									   $matchrule,
									   $argcode);
					$prod and $prod->additem($item)
					      or  _no_rule("repeti <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361788	362032	
==>n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362687	362931	
==>n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363589	363833	
==>n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364492	364736	
==>n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365331	365575	
==>n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366171	366415	
==>n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367069	367313	
==>n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413153	413456	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414280	414583	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415407	415710	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416535	416838	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417662	417965	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418790	419093	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419918	420221	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084807	1085128	
==>@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085860	1086181	
==>@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086913	1087234	
==>@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087967	1088288	
==>@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090921	1091242	
==>@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1091981	1092302	
==>@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	371597	371687	
==>e from empty filehandle\");\n\n    if (!(io->flags & PIO_F_LINEBUF))\n\tPIO_setlinebuf(inte <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2013	2118	
==>own variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->type;
  }
  else {
    $lef <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1971	2076	
==>own variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->type;
  }
  else {
    $lef <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1893	1998	
==>own variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->type;
  }
  else {
    $lef <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25354	25437	
==>= CONTEXT(interpreter->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->current_co <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557927	558010	
==>= CONTEXT(interpreter->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->current_co <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559311	559394	
==>= CONTEXT(interpreter->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->current_co <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560683	560766	
==>= CONTEXT(interpreter->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->current_co <==
7	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	39667	39766	
==>omagicals and build up declaration list.
	my $decls = "";
	for (keys %$mv) {
		if (/^([INSP])_ARG_(\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213525	213825	
==>T_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214466	214766	
==>T_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215406	215706	
==>T_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216347	216647	
==>T_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217286	217586	
==>T_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218226	218526	
==>T_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219204	219504	
==>T_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667010	667309	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TY <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667783	668082	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TY <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668557	668856	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TY <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669328	669627	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TY <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670100	670399	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TY <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670872	671171	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TY <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671645	671944	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TY <==
7	/Users/nnunley/parrot/config/init/hints/cygwin.pm	1014	1164	
==>s      => '-shared',
        ld_load_flags       => '-shared',
        libs                => $libs,
        has_static_linking  => 0,
        has_dyna <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471238	471354	
==>L, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472225	472341	
==>L, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473212	473328	
==>L, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474202	474318	
==>L, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475193	475309	
==>L, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476184	476300	
==>L, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43691	43909	
==>_mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44335	44553	
==>_mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44976	45194	
==>_mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45618	45836	
==>_mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
7	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3502	3610	
==>nstance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) = @_;

    #print STDERR " <==
7	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3301	3409	
==>nstance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) = @_;

    #print STDERR " <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1117	1208	
==>Section::Tests;
use Parrot::Docs::Section::EditorPlugins;

=item C<new()>

Returns a new sec <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539794	540119	
==>( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541045	541370	
==>( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542297	542622	
==>( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066336	1066661	
==>( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067521	1067846	
==>( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068707	1069032	
==>( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069893	1070218	
==>( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	492	586	
==>arted.\n";

setup_compression() if $compression_wanted;

my %request = (upload => 1, version => <==
7	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24811	24944	
==>=> 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 13 <==
7	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25229	25362	
==>=> 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 13 <==
7	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25647	25780	
==>=> 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 13 <==
7	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26065	26198	
==>=> 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 13 <==
7	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26703	26836	
==>=> 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 13 <==
7	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27121	27254	
==>=> 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 13 <==
7	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27539	27672	
==>=> 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 13 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374143	374467	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIR <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375026	375350	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIR <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375909	376233	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIR <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376793	377117	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIR <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377676	378000	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIR <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378560	378884	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIR <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379444	379768	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIR <==
7	/Users/nnunley/parrot/config/inter/libparrot.pm	455	555	
==>s);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$descr <==
7	/Users/nnunley/parrot/config/inter/charset.pm	333	427	
==>s);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$descr <==
7	/Users/nnunley/parrot/config/inter/encoding.pm	338	432	
==>s);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$descr <==
7	/Users/nnunley/parrot/config/inter/ops.pm	313	407	
==>s);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$descr <==
7	/Users/nnunley/parrot/config/inter/progs.pm	452	546	
==>s);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$descr <==
7	/Users/nnunley/parrot/config/inter/shlibs.pm	612	706	
==>s);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$descr <==
7	/Users/nnunley/parrot/config/inter/types.pm	364	458	
==>s);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$descr <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323998	324288	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ": <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324790	325080	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ": <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325583	325873	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ": <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326373	326663	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ": <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327174	327464	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ": <==
7	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	7188	7292	
==>ree?
    return $t if (defined($t->maxlen()) && $guarantee >= $t->maxlen());

    # Need more for even th <==
7	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1594	1698	
==>mokeserv.pl
    Sets the path to the smoke server.
  --version
    Outputs the version of this program an <==
7	/Users/nnunley/parrot/tools/dev/lib_deps.pl	9647	9771	
==>csqrtl      complex.h
ctan        complex.h
ctanf       complex.h
ctanh       complex.h
ctanhf      complex.h
ctanhl      com <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31701	31810	
==>>{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($meth)) {
        my $n = $self-> <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33278	33387	
==>>{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($meth)) {
        my $n = $self-> <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34989	35098	
==>>{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($meth)) {
        my $n = $self-> <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36292	36401	
==>>{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($meth)) {
        my $n = $self-> <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38239	38348	
==>>{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($meth)) {
        my $n = $self-> <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40335	40444	
==>>{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($meth)) {
        my $n = $self-> <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454670	454928	
==>ps/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455525	455783	
==>ps/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456380	456638	
==>ps/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457234	457492	
==>ps/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458089	458347	
==>ps/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458944	459202	
==>ps/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	8304	8404	
==>%item = ();') . '
	my $repeating =  defined($_[2]) && $_[2];
	my $_noactions = defined($_[3]) && $_[3 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774868	775222	
==>"i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 875,
                  "ARGS" => [
                              "p",
                              "ki",
                              "ic"
                            ],
                  "BODY" => "#line 377 \" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54938	55227	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIR <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55698	55987	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIR <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56459	56748	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIR <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57221	57510	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIR <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57982	58271	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIR <==
7	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2253	2337	
==>pserver:anonymous:\@tcl.cvs.sourceforge.net:/cvsroot/tcl co -d $DIR tcl/tests
END_COM <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438865	439114	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439879	440128	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440894	441143	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441908	442157	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442923	443172	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443937	444186	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444952	445201	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o", <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	2856	2979	
==>ast          { return shift->is('last');          }
sub is_literal       { return shift->is('literal');       }
sub is_modul <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175566	175863	
==>IVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176469	176766	
==>IVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177373	177670	
==>IVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178277	178574	
==>IVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179182	179479	
==>IVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
7	/Users/nnunley/parrot/lib/Pod/Simple.pm	17379	17483	
==>"=item 1.", "=item    123412"
    
    $para->[1]{'~orig_content'} = $content;
    $para->[1]{'number'} = <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	1181	1270	
==>e::Number->new($token)  if $type eq 'num';
  return Jako::Construct::Type::PMC->new($token <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356283	356514	
==>E" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356942	357173	
==>E" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357602	357833	
==>E" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358265	358496	
==>E" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358929	359160	
==>E" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359676	359907	
==>E" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360424	360655	
==>E" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
7	/Users/nnunley/parrot/tools/dev/pbc_header.pl	1852	1967	
==>[$i],$c;
	}
    }
}

sub main {
    my ($result, $upd_fp);
    $result = GetOptions(
	"update-fingerprint"     => \$ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353748	353991	
==>er), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pri <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354493	354736	
==>er), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pri <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359442	359685	
==>er), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pri <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360190	360433	
==>er), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pri <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360960	361203	
==>er), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pri <==
7	/Users/nnunley/parrot/examples/benchmarks/addit.pl	662	773	
==>1] = 7.100;
$args[2] = 87;
$args[3] = "3.87";
$args[4] = "21000000";
for (my $x = 500000; $x >= 0; --$x) {
    $ <==
7	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	7982	8073	
==>inton@axion.bt.co.uk>).

C<Digest::MD5> was made by Gisle Aas <gisle@aas.no> (I took his Int <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361747	361851	
==>n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362646	362750	
==>n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363548	363652	
==>n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364451	364555	
==>n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367028	367132	
==>n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n", <==
7	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	905	1004	
==>ired by the ops.

=cut

sub defines
{
    return <<END;
#define REL_PC ((size_t)((opcode_t*)cur_opco <==
7	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1035	1134	
==>ired by the ops.

=cut

sub defines
{
    return <<END;
#define REL_PC ((size_t)((opcode_t*)cur_opco <==
7	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	1316	1440	
==>le($syms[CURR] ne ")") {
				feedme;
			}
			feedme;
		}
		$stype="";
		$user=0;
		if ($syms[CURR] eq "as") {
			feedme;
			$ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344157	344255	
==>ops\"\n  /* These char * need to go away soon */\n  const char * const path = string_to_cstring(int <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345399	345497	
==>ops\"\n  /* These char * need to go away soon */\n  const char * const path = string_to_cstring(int <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346641	346739	
==>ops\"\n  /* These char * need to go away soon */\n  const char * const path = string_to_cstring(int <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347884	347982	
==>ops\"\n  /* These char * need to go away soon */\n  const char * const path = string_to_cstring(int <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349052	349150	
==>ops\"\n  /* These char * need to go away soon */\n  const char * const path = string_to_cstring(int <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350054	350152	
==>ops\"\n  /* These char * need to go away soon */\n  const char * const path = string_to_cstring(int <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802992	803346	
==>i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 906,
                  "ARGS" => [
                              "p",
                              "kc",
                              "sc"
                            ],
                  "BODY" => "#line 467 \"s <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471271	471532	
==>\"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472258	472519	
==>\"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473245	473506	
==>\"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474235	474496	
==>\"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475226	475487	
==>\"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476217	476478	
==>\"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
7	/Users/nnunley/parrot/tools/dev/pbc_header.pl	1395	1504	
==>: major, minor
	print F pack "cc", $major, $minor;
	seek F, 6, 0;	# pos 6: pad = finger_print
	print F $fp;
	c <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31674	31780	
==>_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($me <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33251	33357	
==>_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($me <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34962	35068	
==>_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($me <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36265	36371	
==>_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($me <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38212	38318	
==>_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($me <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40308	40414	
==>_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($me <==
7	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15553	15648	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

1;


__END__

=head1 NAME

Pod <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2138	2232	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__END__

=head1 NAME

Pod <==
7	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3063	3157	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__END__

=head1 NAME

Pod <==
7	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	778	872	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__END__

=head1 NAME

Pod <==
7	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3533	3626	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__END__

=head1 NAME

Pod <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2286	2379	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__END__

=head1 NAME

Pod <==
7	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2389	2482	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__END__

=head1 NAME

Pod <==
7	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15565	15658	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

1;


__END__

=head1 NAME

Pod::Simple:: <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2150	2242	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__END__

=head1 NAME

Pod::Simple:: <==
7	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3075	3167	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__END__

=head1 NAME

Pod::Simple:: <==
7	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	790	882	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__END__

=head1 NAME

Pod::Simple:: <==
7	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3545	3636	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__END__

=head1 NAME

Pod::Simple:: <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2298	2389	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__END__

=head1 NAME

Pod::Simple:: <==
7	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2401	2492	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__END__

=head1 NAME

Pod::Simple:: <==
7	/Users/nnunley/parrot/tools/build/pmc2c.pl	3870	3986	
==>s
    event    : PMC that can be used with event queue
    hash     : container PMC with string-keyed elements
    li <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519727	520016	
==>\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520582	520871	
==>\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	521437	521726	
==>\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522291	522580	
==>\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523146	523435	
==>\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	524001	524290	
==>\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25521	25606	
==>esult, FORLOOP_END_$forloop, AFTER_NEXT_$forloop
	goto FOR_LOOP_BODY_$forloop
FOR_GT_$ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539775	540088	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541026	541339	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542278	542591	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066317	1066630	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067502	1067815	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068688	1069001	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069874	1070187	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38336	38508	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39200	39372	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41760	41932	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46374	46546	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47957	48129	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49554	49726	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51157	51329	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART", <==
7	/Users/nnunley/parrot/lib/Class/Struct.pm	889	1011	
==>ft;

    if ( @_ == 0 ) {
      $self->export_to_level( 1, $self, @EXPORT );
    } elsif ( @_ == 1 ) {
	# This is admittedl <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197341	197455	
==>\"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198238	198352	
==>\"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199135	199249	
==>\"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200031	200145	
==>\"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200928	201042	
==>\"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201825	201939	
==>\"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413075	413451	
==>BELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_netw <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414202	414578	
==>BELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_netw <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415329	415705	
==>BELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_netw <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416457	416833	
==>BELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_netw <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417584	417960	
==>BELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_netw <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418712	419088	
==>BELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_netw <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419840	420216	
==>BELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_netw <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175553	175797	
==>OT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176456	176700	
==>OT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177360	177604	
==>OT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178264	178508	
==>OT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179169	179413	
==>OT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	2540	2645	
==>e;
  my @args  = $self->args;

  if ($type) {
    $handler->start_element({ Name => 'sub', Attributes => { <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9412	9507	
==>output_fh'}} $self->{'Tagmap'}{"/$tagname"} || return;
    
    --$self->{DONT_WRAP} if $tagname <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692994	693334	
==>"LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693994	694334	
==>"LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694994	695334	
==>"LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695995	696335	
==>"LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696995	697335	
==>"LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697996	698336	
==>"LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698997	699337	
==>"LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540856	541159	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542108	542411	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067332	1067635	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068518	1068821	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069704	1070007	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070891	1071194	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math" <==
7	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	9108	9216	
==>est {
    open(F, "<MANIFEST") || die "Unable to read MANIFEST: $!\n";

    my %files_in_dir_nocase;
    my % <==
7	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3880	3972	
==>idity of Pod.
It works by basically acting like a simple-minded version of
L<Pod::Simple::Tex <==
7	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7570	7777	
==>me '$lhs' ill formed: ".
                        "report it as a BUG.\n";
                $$dotpos = $1;
            };

            @sempar =       $$dotpos
                        ?   map { $$_[1] } @ <==
7	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7224	7425	
==>me '$lhs' ill formed: ".
                        "report it as a BUG.\n";
                $$dotpos = $1;
            };

            @sempar =       $$dotpos
                        ?   map { $$_[1] } @ <==
7	/Users/nnunley/parrot/lib/Text/Balanced.pm	25564	25661	
==>tract the initial substring of $text that is delimited by
 # two (unescaped) instances of the firs <==
7	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	724	818	
==>ttern, $description, @todo)>

Runs the target string against the Perl 6 pattern, passing the te <==
7	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1841	1935	
==>ttern, $description, @todo)>

Runs the target string against the Perl 6 pattern, passing the te <==
7	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2822	2916	
==>ttern, $description, @todo)>

Runs the target string against the Perl 6 pattern, passing the te <==
7	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3373	3467	
==>ttern, $description, @todo)>

Runs the target string against the Perl 6 pattern, passing the te <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480828	481135	
==>\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481831	482138	
==>\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482834	483141	
==>\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483832	484139	
==>\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484831	485138	
==>\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485830	486137	
==>\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
7	/Users/nnunley/parrot/lib/Pod/Simple.pm	36564	36684	
==>t @link_text, splice @ell_content, 0, $j;
            # leaving only things at J and after
          @ell_content =  grep <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948242	948464	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949041	949263	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949841	950063	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950800	951022	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951760	951982	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952720	952942	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" <==
7	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	8128	8254	
==>($cmd, @args) = @_;
    
    my $usage = create_usage(@args);
    my $code  = "bad_args: \n"
              . ".throw('wrong # a <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54334	54621	
==>( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functio <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55093	55380	
==>( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functio <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55853	56140	
==>( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functio <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56614	56901	
==>( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functio <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57376	57663	
==>( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functio <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58137	58424	
==>( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functio <==
7	/Users/nnunley/parrot/tools/build/jit2c.pl	5340	5444	
==>add_text_rellocation(jit_info->objfile, NULL, RTYPE_DATA, "const_table", 0);/g;
                $asm =~ s <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213335	213612	
==>,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214276	214553	
==>,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215216	215493	
==>,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216157	216434	
==>,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217096	217373	
==>,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218036	218313	
==>,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219014	219291	
==>,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470623	470920	
==>ME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471609	471906	
==>ME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472596	472893	
==>ME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473583	473880	
==>ME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474573	474870	
==>ME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475564	475861	
==>ME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	3657	3751	
==>ON
#include "parrot/parrot.h"
#include "parrot/extend.h"
#include "parrot/dynext.h"
EOC
    for <==
7	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	5102	5228	
==>e->{$_} =~ /^([0-9A-F]{2}\s+)*[0-9A-F]{2}$/) {
                if ($has_code) {
                    die "Duplicate value for co <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540571	540691	
==>n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541823	541943	
==>n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543075	543195	
==>n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544358	544478	
==>n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545694	545814	
==>n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547030	547150	
==>n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672418	672712	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TY <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673190	673484	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TY <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673960	674254	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TY <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	674731	675025	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TY <==
7	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7840	7937	
==>(string)"
i%=0
if i% then print "Should not happen (int)"
i%=54
if i% then print "This is true" el <==
7	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14827	14924	
==>(string)"
i%=0
if i% then print "Should not happen (int)"
i%=54
if i% then print "This is true" el <==
7	/Users/nnunley/parrot/lib/Test/More.pm	9554	9651	
==>he end (C<'/that/i'>).

Its advantages over ok() are similar to that of is() and isnt().  Better
d <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356075	356361	
==>n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "A <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356734	357020	
==>n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "A <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357394	357680	
==>n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "A <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358057	358343	
==>n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "A <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358721	359007	
==>n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "A <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359468	359754	
==>n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "A <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360216	360502	
==>n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "A <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471259	471525	
==>r,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472246	472512	
==>r,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473233	473499	
==>r,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474223	474489	
==>r,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475214	475480	
==>r,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476205	476471	
==>r,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38721	38824	
==>::RecDescent::Result;

sub issubrule { 0 }
sub isterminal { 0 }
sub describe { '' }

sub new
{
	my ($cla <==
7	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27435	27536	
==>ion directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir <==
7	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29902	30003	
==>ion directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir <==
7	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33320	33421	
==>ion directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir <==
7	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34574	34675	
==>ion directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir <==
7	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36984	37085	
==>ion directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2757	2846	
==>_type, 'Jako::Construct::Type::Integer');
  $self->SYNTAX_ERROR("Can only do bitwise ops o <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2887	2976	
==>_type, 'Jako::Construct::Type::Integer');
  $self->SYNTAX_ERROR("Can only do bitwise ops o <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071840	1071945	
==>*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = {{\@5}} < 0 ? -{{\@5}} : {{\@5 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074025	1074130	
==>*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = {{\@5}} < 0 ? -{{\@5}} : {{\@5 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076210	1076315	
==>*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = {{\@5}} < 0 ? -{{\@5}} : {{\@5 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078396	1078501	
==>*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = {{\@5}} < 0 ? -{{\@5}} : {{\@5 <==
7	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	11193	11284	
==>body, $args, $argdirs, $line, $file, $labels, $flags, $nolines)>

Returns a new C<Parrot::Op <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11253	11343	
==>concat ${STEMP0}
inc stack_depth
${STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
pre_ca <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8439	8529	
==>concat ${STEMP0}
inc stack_depth
${STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
pre_ca <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432544	432899	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433559	433914	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434573	434928	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435588	435943	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436602	436957	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437617	437972	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" <==
7	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	7215	7336	
==>t;
        my $text_count_here = 0;
        $self->{'rtfitemkeepn'} = '';
        # Some heuristics to stop item-*'s funct <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	675528	675837	
==>( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676307	676616	
==>( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677087	677396	
==>( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677864	678173	
==>( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678642	678951	
==>( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679420	679729	
==>( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680199	680508	
==>( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084832	1085187	
==>5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085885	1086240	
==>5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086938	1087293	
==>5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087992	1088347	
==>5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090946	1091301	
==>5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1092006	1092361	
==>5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	6944	7051	
==>hods) {
	my $meth = $entry->{meth};
	if (does_write($meth, $self->{all}{$meth})) {
            # create meth <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396574	396886	
==>AGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 46 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397654	397966	
==>AGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 46 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398734	399046	
==>AGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 46 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399815	400127	
==>AGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 46 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400895	401207	
==>AGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 46 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401976	402288	
==>AGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 46 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403057	403369	
==>AGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 46 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714670	714765	
==>ftspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715593	715688	
==>ftspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716538	716633	
==>ftspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722357	722452	
==>ftspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723386	723481	
==>ftspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724430	724525	
==>ftspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter <==
7	/Users/nnunley/parrot/lib/Pod/Simple.pm	17741	17823	
==>--------------------------------------------------------------------

sub _make_tre <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710085	710341	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "AR <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718229	718485	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "AR <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719161	719417	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "AR <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720360	720616	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "AR <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721560	721816	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "AR <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722588	722844	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "AR <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723617	723873	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "AR <==
7	/Users/nnunley/parrot/lib/Class/Struct.pm	17148	17294	
==>cat = Cat->new( name     => 'Socks',
                        kittens  => ['Monica', 'Kenneth'],
                        markings => { socks=>1, bla <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	1275	1381	
==>rted_ops{$op};

  confess "Unrecognized op '$op'!" unless defined $new_op;

  return $new_op;
}
 

#
# new( <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	757	846	
==>" . ref($left) . ") is not Value") unless UNIVERSAL::isa($left, 'Jako::Construct::Expressi <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	595	684	
==>" . ref($left) . ") is not Value") unless UNIVERSAL::isa($left, 'Jako::Construct::Expressi <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	748	837	
==>" . ref($left) . ") is not Value") unless UNIVERSAL::isa($left, 'Jako::Construct::Expressi <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	637	726	
==>" . ref($left) . ") is not Value") unless UNIVERSAL::isa($left, 'Jako::Construct::Expressi <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	586	675	
==>" . ref($left) . ") is not Value") unless UNIVERSAL::isa($left, 'Jako::Construct::Expressi <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	972365	972730	
==>cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973493	973858	
==>cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974622	974987	
==>cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975751	976116	
==>cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976881	977246	
==>cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978010	978375	
==>cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979140	979505	
==>cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361111	361390	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ], <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362009	362288	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ], <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362908	363187	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ], <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363810	364089	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ], <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364713	364992	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ], <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365552	365831	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ], <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366392	366671	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ], <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413035	413430	
==>\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414162	414557	
==>\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415289	415684	
==>\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416417	416812	
==>\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417544	417939	
==>\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418672	419067	
==>\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419800	420195	
==>\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	310088	310190	
==>tate & PDB_BREAK)) {\n        interpreter->pdb->state |= PDB_BREAK;\n        interpreter->pdb->state |= <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72829	72920	
==>();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74431	74522	
==>();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76033	76124	
==>();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77636	77727	
==>();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79157	79248	
==>();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80678	80769	
==>();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: <==
7	/Users/nnunley/parrot/config/gen/platform.pm	3571	3723	
==>ath.c
        memalign.c
        signal.c
        itimer.c
        memexec.c
        exec.c
        misc.c
        /;

    open PLATFORM_C, "> src/platfo <==
7	/Users/nnunley/parrot/config/auto/bc.pm	424	516	
==>n @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Configure::St <==
7	/Users/nnunley/parrot/config/auto/gdbm.pm	369	461	
==>n @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Configure::St <==
7	/Users/nnunley/parrot/config/auto/gmp.pm	323	415	
==>n @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Configure::St <==
7	/Users/nnunley/parrot/config/auto/m4.pm	398	490	
==>n @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Configure::St <==
7	/Users/nnunley/parrot/config/auto/readline.pm	330	422	
==>n @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Configure::St <==
7	/Users/nnunley/parrot/config/init/optimize.pm	416	508	
==>n @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Configure::St <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	311672	311857	
==>( {
                  "JUMP" => 0,
                  "NAME" => "backtrace",
                  "FLAGS" => ":base_debug",
                  "ARGDIRS" => [],
                  "TYPE" => "fu <==
7	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2450	2548	
==>iles in ( parenthesis ) did not have extractable descriptions.\n";
    if($show_full) {
	print "The <==
7	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	3483	3578	
==>ally implemented in subclasses to return the C code for the core's
init function. C<$base> is th <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858637	858727	
==>ative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL) <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859641	859731	
==>ative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL) <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860645	860735	
==>ative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL) <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861650	861740	
==>ative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL) <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93366	93619	
==>@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94146	94399	
==>@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109690	109943	
==>@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110469	110722	
==>@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133895	134148	
==>@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134676	134929	
==>@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	781	903	
==>ade absolute.

=cut

sub new
{
    my $self = ref $_[0] ? ref shift : shift;
    my $path = shift;
    
    return unless d <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	35845	35959	
==>'       => \&_op_make_point,
  'real-part'        => \&_op_real_part,
  'imag-part'        => \&_op_imag_part,
  'm <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3022	3128	
==>uff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find reg <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4780	4886	
==>uff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find reg <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1944	2050	
==>uff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find reg <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3196	3302	
==>uff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find reg <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1235	1341	
==>uff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find reg <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2945	3051	
==>uff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find reg <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540583	540703	
==>!((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541835	541955	
==>!((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543087	543207	
==>!((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544370	544490	
==>!((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545706	545826	
==>!((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547042	547162	
==>!((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1 <==
7	/Users/nnunley/parrot/lib/Test/More.pm	24491	24586	
==>lent.  For these
instances Test::More provides a handful of useful functions.

B<NOTE> I'm not q <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	425579	425908	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426465	426794	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427352	427681	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428238	428567	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429125	429454	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430011	430340	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430898	431227	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
7	/Users/nnunley/parrot/lib/Test/Builder.pm	37032	37125	
==><lt>schwern@pobox.comE<gt>.

This program is free software; you can redistribute it and/or 
mo <==
7	/Users/nnunley/parrot/lib/Test/More.pm	37441	37534	
==><lt>schwern@pobox.comE<gt>.

This program is free software; you can redistribute it and/or 
mo <==
7	/Users/nnunley/parrot/lib/Test/Simple.pm	6401	6494	
==><lt>schwern@pobox.comE<gt>.

This program is free software; you can redistribute it and/or 
mo <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796997	797085	
==>DY" => "#line 462 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed(interpreter, <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797901	797989	
==>DY" => "#line 462 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed(interpreter, <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798805	798893	
==>DY" => "#line 462 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed(interpreter, <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799710	799798	
==>DY" => "#line 462 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed(interpreter, <==
7	/Users/nnunley/parrot/languages/python/pie-thon.pl	10778	10894	
==>= new .BigInt $cmt
	$pmc = "$c"
EOC
	push @stack, [$n, $pmc, 'P'];
	return;
    }
    elsif ($typ =~ /[US]/) {   # st <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361785	362030	
==>);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362684	362929	
==>);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363586	363831	
==>);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364489	364734	
==>);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365328	365573	
==>);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366168	366413	
==>);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367066	367311	
==>);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504062	504369	
==>{{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504917	505224	
==>{{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505772	506079	
==>{{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506626	506933	
==>{{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507481	507788	
==>{{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	508336	508643	
==>{{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	1273	1366	
==>lative to the
C<$target> argument in C<write_html()>. There should be at least one
path otherw <==
7	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11160	11263	
==>[0]\t\t# $_->[0]};
	#}
	pop @$work;  # REmove startarg tag...
	return(scalar @args, @args);
}
sub optype <==
7	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	19249	19352	
==>known instruction (code "
	str_ic = cur_ic
	err = concat str_ic
	err = concat ")"
    ex["_message"] = e <==
7	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27552	27646	
==>pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction' <==
7	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30019	30113	
==>pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction' <==
7	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33437	33531	
==>pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction' <==
7	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34691	34785	
==>pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction' <==
7	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37101	37195	
==>pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction' <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439612	439961	
==>{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440627	440976	
==>{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441641	441990	
==>{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442656	443005	
==>{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443670	444019	
==>{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444685	445034	
==>{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	445699	446048	
==>{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	32	118	
==>erl Foundation.
# $Id: /parrot/lib/Parrot/Docs/Section/BigNum.pm 20333 2006-06-21T18:44 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062041	1062305	
==>=> "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 11 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062910	1063174	
==>=> "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 11 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063779	1064043	
==>=> "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 11 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064649	1064913	
==>=> "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 11 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065522	1065786	
==>=> "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 11 <==
7	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11430	11531	
==>code {   # Will return a result register, or something.
	my($lhs,@stream)=@_;
	my(@code,@work);

	my $ <==
7	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	2277	2375	
==>::Simple::Methody);
     sub start_L { print Dumper($_[1]{'section'} ) }
     __PACKAGE__->new->par <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666775	666882	
==>src/ops/pmc.ops\"\n  {{\@1}} = VTABLE_elements(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LAB <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493826	494123	
==>E" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494693	494990	
==>E" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495561	495858	
==>E" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496429	496726	
==>E" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497298	497595	
==>E" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498168	498465	
==>E" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
7	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1198	1309	
==>, Str $desc?, :$todo, :$depends) returns Bool is export {
    # hack for now
    my $got_perl = $got.perl;
    m <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841071	841246	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841834	842009	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842598	842773	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843475	843650	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844353	844528	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845231	845406	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
7	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	60986	61093	
==>opef}      = [];
    $parser->YYData->{symbtab}     = new SymbTabVar($parser);
    $parser->YYData->{symbt <==
7	/Users/nnunley/parrot/languages/python/pie-thon.pl	33335	33467	
==>w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   prin <==
7	/Users/nnunley/parrot/languages/python/pie-thon.pl	34084	34216	
==>w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   prin <==
7	/Users/nnunley/parrot/languages/python/pie-thon.pl	35008	35140	
==>w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   prin <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084771	1084900	
==>e(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LA <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085824	1085953	
==>e(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LA <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086877	1087006	
==>e(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LA <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087931	1088060	
==>e(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LA <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432529	432869	
==>1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inf <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433544	433884	
==>1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inf <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434558	434898	
==>1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inf <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435573	435913	
==>1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inf <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436587	436927	
==>1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inf <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437602	437942	
==>1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inf <==
7	/Users/nnunley/parrot/tools/dev/run_indent.pl	1453	1567	
==>$file =~ /\.[ch]$/);
    my %bad_fdecls;
    
    print STDERR "Scanning $file.. ";
    my $c = new C::Scan 'filena <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137628	137925	
==>LATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138523	138820	
==>LATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139419	139716	
==>LATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140315	140612	
==>LATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141210	141507	
==>LATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142106	142403	
==>LATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
7	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	841	947	
==>w();

# Ensure rules file exists and parse it.
my @rules = ();
if (-e $rules_file) {
    @rules = parse_rul <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18189	18447	
==>})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18998	19256	
==>})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21352	21610	
==>})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22166	22424	
==>})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305661	305919	
==>})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307230	307488	
==>})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/config/inter/encoding.pm	902	1034	
==>oding
END
        {
            $encoding_list = prompt('Which encodings would you like?', $encoding_list);
        }
    }

    # na <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31750	31856	
==>f ($self->SUPER::implements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUP <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33327	33433	
==>f ($self->SUPER::implements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUP <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35038	35144	
==>f ($self->SUPER::implements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUP <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36341	36447	
==>f ($self->SUPER::implements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUP <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38288	38394	
==>f ($self->SUPER::implements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUP <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40384	40490	
==>f ($self->SUPER::implements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUP <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	7792	7880	
==>>{"rules"}{"' . $self->{"name"} . '"};
	'.($::RD_NO_TRACE?'':'
	Parse::RecDescent::_trace <==
7	/Users/nnunley/parrot/lib/Test/Builder.pm	10927	11046	
==>got, $expect, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # undef <==
7	/Users/nnunley/parrot/lib/Test/Builder.pm	11345	11464	
==>got, $expect, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # undef <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4838	4932	
==>my $block = $self->current_block;

      my $ident = Jako::Construct::Expression::Value::Identi <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11329	11423	
==>my $block = $self->current_block;

      my $ident = Jako::Construct::Expression::Value::Identi <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11876	11970	
==>my $block = $self->current_block;

      my $ident = Jako::Construct::Expression::Value::Identi <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12419	12513	
==>my $block = $self->current_block;

      my $ident = Jako::Construct::Expression::Value::Identi <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22633	22726	
==>my $block = $self->current_block;
      my $ident = Jako::Construct::Expression::Value::Identi <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	339636	339947	
==>=> "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340634	340945	
==>=> "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341633	341944	
==>=> "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342632	342943	
==>=> "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4139	4233	
==>so we can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign register name.
${STEM <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2555	2649	
==>so we can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign register name.
${STEM <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1865	1959	
==>so we can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign register name.
${STEM <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438737	439038	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439751	440052	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440766	441067	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441780	442081	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442795	443096	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443809	444110	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444824	445125	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
7	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5400	5528	
==>ss ($first);
                print {$FH} "$_->{symbol}";
                if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) <==
7	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6432	6560	
==>ss ($first);
                print {$FH} "$_->{symbol}";
                if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) <==
7	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5829	5949	
==>ss ($first);
            print {$FH} "$_->{symbol}";
            if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) <==
7	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6924	7044	
==>ss ($first);
            print {$FH} "$_->{symbol}";
            if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) <==
7	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	9838	9958	
==>ss ($first);
            print {$FH} "$_->{symbol}";
            if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) <==
7	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	10675	10767	
==>e, Bool :$todo, Str :$depends) returns Bool`

*NOTE:* This function currently uses `require() <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2198	2289	
==>p"><img alt="^" border=0 src="../resources/up.gif"></a></h2>\n\n) . $index_html;
	}
	
	retur <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540636	540756	
==>\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   el <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541888	542008	
==>\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   el <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543140	543260	
==>\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   el <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544423	544543	
==>\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   el <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545759	545879	
==>\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   el <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547095	547215	
==>\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   el <==
7	/Users/nnunley/parrot/lib/Text/Balanced.pm	1330	1430	
==>f,$from,$len);
		}
		if ($extralen) {	# CORRECT FILLET
			my $extra = substr($res[0], $extrapos-$star <==
7	/Users/nnunley/parrot/lib/Parrot/Configure.pm	4467	4618	
==>on
            elsif ($description =~ /$verbose_step/) {
                $self->options->set(verbose => 2);
            }
        }

        # XXX cc_bu <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	41005	41105	
==>call_function_sym {
  my $self = shift;
  my $symbol = shift;
  my $func_obj = $self->_find_lex($symb <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2505	2604	
==>=> 'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2382	2481	
==>=> 'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2775	2874	
==>=> 'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3449	3548	
==>=> 'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3539	3638	
==>=> 'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256385	256486	
==>\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4}};\n <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257293	257394	
==>\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4}};\n <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258201	258302	
==>\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4}};\n <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	694	787	
==>k) . ") is not!"  unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type ( <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	569	661	
==>k) . ") is not!" unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type ( <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	578	670	
==>k) . ") is not!" unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type ( <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	560	652	
==>k) . ") is not!" unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type ( <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747319	747540	
==>eger_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748104	748325	
==>eger_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753613	753834	
==>eger_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754401	754622	
==>eger_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324735	324955	
==>eger_native(interpreter, {{\@1}},{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325528	325748	
==>eger_native(interpreter, {{\@1}},{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Examples.pm	234	329	
==>S

    use Parrot::Docs::Section::Examples;

=head1 DESCRIPTION

A documentation section describ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343542	343715	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344783	344956	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346025	346198	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347267	347440	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348510	348683	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349511	349684	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" <==
7	/Users/nnunley/parrot/lib/Test/More.pm	16221	16318	
==>you're testing loads ok, rather
than just vomiting if its load fails.  For such purposes we have
C <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514148	514402	
==>FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515028	515282	
==>FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515908	516162	
==>FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528654	528908	
==>FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529536	529790	
==>FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	530418	530672	
==>FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
7	/Users/nnunley/parrot/lib/Parrot/Config.pm	4212	4369	
==>define',
             'i_fp' => undef,
             'i_fp_class' => undef,
             'i_gdbm' => undef,
             'i_grp' => 'define',
             'i_i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73230	73569	
==>te1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74832	75171	
==>te1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76434	76773	
==>te1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78037	78376	
==>te1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
7	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7875	7974	
==>ould not happen (int)"
i%=54
if i% then print "This is true" else print "Oops (int)"
i=0
if i then p <==
7	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14862	14961	
==>ould not happen (int)"
i%=54
if i% then print "This is true" else print "Oops (int)"
i=0
if i then p <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	2594	2689	
==>$value->compile($compiler);

    if ($arg_type->name ne $return_type->name) { # TODO: Yuck! shou <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54482	54594	
==>oldskip',
					      $lookahead,$line,$code);
				$prod and $prod->additem($item)
				      or  _no_rule($code,$l <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550364	550456	
==>ethod '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551665	551757	
==>ethod '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554217	554309	
==>ethod '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555614	555706	
==>ethod '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558269	558361	
==>ethod '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559653	559745	
==>ethod '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_ <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2812	2917	
==>lement({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
    $left->sax($handler);
    $r <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3486	3591	
==>lement({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
    $left->sax($handler);
    $r <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3576	3681	
==>lement({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
    $left->sax($handler);
    $r <==
7	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1535	1637	
==>' }
sub start_head4 {  $_[0]{'Thispara'} = '' }

sub start_Verbatim    { $_[0]{'Thispara'} = ''   }
sub <==
7	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1065	1167	
==>' }
sub start_head4 {  $_[0]{'Thispara'} = '' }

sub start_Verbatim    { $_[0]{'Thispara'} = ''   }
sub <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5361	5462	
==>lement({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
  $left->sax($handler);
  $r <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3424	3525	
==>lement({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
  $left->sax($handler);
  $r <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426213	426525	
==>2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427100	427412	
==>2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427986	428298	
==>2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428873	429185	
==>2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429759	430071	
==>2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430646	430958	
==>2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431532	431844	
==>2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426204	426496	
==>ter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427091	427383	
==>ter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427977	428269	
==>ter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428864	429156	
==>ter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429750	430042	
==>ter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430637	430929	
==>ter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431523	431815	
==>ter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540390	540494	
==>INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3} <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541642	541746	
==>INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3} <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542894	542998	
==>INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3} <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544163	544267	
==>INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3} <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545499	545603	
==>INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3} <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546835	546939	
==>INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3} <==
7	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2306	2394	
==>\\par}\n",
 'head3'   => "\n{\\pard\\li#rtfindent#\\s33\\keepn\\sb90\\sa180\\f2\\fs#head3 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770028	770267	
==>access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770881	771120	
==>access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771734	771973	
==>access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772588	772827	
==>access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11101	11183	
==>ll_HAS_RETURN_${CURIC}
goto pre_call_NO_RETURN_${CURIC}
pre_call_HAS_RETURN_${CURIC <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8287	8369	
==>ll_HAS_RETURN_${CURIC}
goto pre_call_NO_RETURN_${CURIC}
pre_call_HAS_RETURN_${CURIC <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5949	6031	
==>ll_HAS_RETURN_${CURIC}
goto pre_call_NO_RETURN_${CURIC}
pre_call_HAS_RETURN_${CURIC <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550418	550640	
==>_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551719	551941	
==>_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552910	553132	
==>_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558323	558545	
==>_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559707	559929	
==>_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560928	561150	
==>_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
7	/Users/nnunley/parrot/languages/python/pie-thon.pl	16389	16516	
==>NARY_POWER
{
    my ($op, $cmt) = @_;
    my $r = pop @stack;
    my $l = pop @stack;
    my ($t, $n);
    if ($r->[2] eq 'I' && <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356199	356410	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356858	357069	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357518	357729	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358181	358392	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358845	359056	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359592	359803	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360340	360551	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221851	222157	
==>=> [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222793	223099	
==>=> [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223734	224040	
==>=> [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224676	224982	
==>=> [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225616	225922	
==>=> [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226557	226863	
==>=> [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227536	227842	
==>=> [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438625	438988	
==>{{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439639	440002	
==>{{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440654	441017	
==>{{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441668	442031	
==>{{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442683	443046	
==>{{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443697	444060	
==>{{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444712	445075	
==>{{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" <==
7	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16565	16732	
==>arser, 'pmc' );
                push @opcodes, new LocalDir( $parser,
                    'result' => $result,
                );
                push @opcodes, new <==
7	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17144	17311	
==>arser, 'pmc' );
                push @opcodes, new LocalDir( $parser,
                    'result' => $result,
                );
                push @opcodes, new <==
7	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10712	10874	
==>arser, 'pmc' );
                    push @opcodes,
                        new LocalDir( $parser, 'result' => $result, );
                    push @opcodes, new <==
7	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15534	15653	
==>arser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new <==
7	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18193	18312	
==>arser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new <==
7	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19287	19406	
==>arser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new <==
7	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	59881	60000	
==>],
	[#Rule 111
		 'field', 3,
sub
#line 595 "Lua\lua51.yp"
{
            [ BuildLiteral( $_[0], $_[1], 'key' ), $_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361813	362100	
==>ndle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pr <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362712	362999	
==>ndle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pr <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363614	363901	
==>ndle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pr <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364517	364804	
==>ndle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pr <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365356	365643	
==>ndle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pr <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366196	366483	
==>ndle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pr <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367094	367379	
==>ndle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222120	222423	
==>" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 26 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223062	223365	
==>" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 26 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224003	224306	
==>" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 26 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224945	225248	
==>" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 26 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225885	226188	
==>" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 26 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226826	227129	
==>" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 26 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227805	228108	
==>" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 26 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503485	503784	
==>MP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504339	504638	
==>MP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505194	505493	
==>MP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506049	506348	
==>MP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506903	507202	
==>MP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507758	508057	
==>MP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
7	/Users/nnunley/parrot/config/gen/platform.pm	46	137	
==>.
# $Id: /parrot/config/gen/platform.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NA <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906796	907127	
==>LAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1022,
                  " <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	767	867	
==>));
  confess "Type (" . ref($type) . ") is not!"   if defined $type and not UNIVERSAL::isa($type, qw <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	650	747	
==>));
  confess "Type (". ref($type) . ") is not!" if defined $type and not UNIVERSAL::isa($type, qw <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83664	83754	
==>C * const compreg_hash = VTABLE_get_pmc_keyed_int(interpreter,\n      interpreter->iglobals <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84570	84660	
==>C * const compreg_hash = VTABLE_get_pmc_keyed_int(interpreter,\n      interpreter->iglobals <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85475	85565	
==>C * const compreg_hash = VTABLE_get_pmc_keyed_int(interpreter,\n      interpreter->iglobals <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86382	86472	
==>C * const compreg_hash = VTABLE_get_pmc_keyed_int(interpreter,\n      interpreter->iglobals <==
7	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4433	4536	
==>>full_name]}"
        unless exists $arg_maps{$type};

    return sprintf($arg_maps{$type}, $num);
}

=b <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714663	714758	
==>(PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(inte <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715586	715681	
==>(PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(inte <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716531	716626	
==>(PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(inte <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722350	722445	
==>(PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(inte <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723379	723474	
==>(PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(inte <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724423	724518	
==>(PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(inte <==
7	/Users/nnunley/parrot/languages/python/pie-thon.pl	3012	3116	
==>, @loops, %def_arg_names, %func_info);

sub decode_line {
    my $l = shift;
    my ($pc, $line ,$opcode, <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454702	455009	
==>}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455557	455864	
==>}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456412	456719	
==>}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457266	457573	
==>}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458121	458428	
==>}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458976	459283	
==>}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17475	17566	
==>= $self->_save_1 ('I');
  $self->_add_inst ("NEXT_$label", 'typeof',[$type,$list]);
  $self- <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438621	438959	
==>\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infi <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439635	439973	
==>\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infi <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440650	440988	
==>\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infi <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441664	442002	
==>\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infi <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442679	443017	
==>\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infi <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443693	444031	
==>\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infi <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444708	445046	
==>\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infi <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11436	11543	
==>lock, $token);
      my $op    = substr($self->forth->text, 0, -1);
      my $value = Jako::Construct::Expre <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11983	12090	
==>lock, $token);
      my $op    = substr($self->forth->text, 0, -1);
      my $value = Jako::Construct::Expre <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12526	12633	
==>lock, $token);
      my $op    = substr($self->forth->text, 0, -1);
      my $value = Jako::Construct::Expre <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344402	344495	
==>n  /* string_cstring_free(mode); */\n  /* string_cstring_free(path); */\n  if(!{{\@1}} || !PMC <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345644	345737	
==>n  /* string_cstring_free(mode); */\n  /* string_cstring_free(path); */\n  if(!{{\@1}} || !PMC <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346886	346979	
==>n  /* string_cstring_free(mode); */\n  /* string_cstring_free(path); */\n  if(!{{\@1}} || !PMC <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348129	348222	
==>n  /* string_cstring_free(mode); */\n  /* string_cstring_free(path); */\n  if(!{{\@1}} || !PMC <==
7	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6686	6793	
==>sh @ops, "push \@<rx_stack>, -1; # pushmark";
    return @ops;
}

sub output_pushindex {
    my ($self, $reg <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550188	550279	
==>>current_method = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551489	551580	
==>>current_method = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554041	554132	
==>>current_method = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555438	555529	
==>>current_method = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558093	558184	
==>>current_method = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559477	559568	
==>>current_method = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432488	432832	
==>erpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433503	433847	
==>erpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434517	434861	
==>erpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435532	435876	
==>erpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436546	436890	
==>erpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437561	437905	
==>erpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438575	438919	
==>erpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431844	432179	
==>AME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432858	433193	
==>AME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433873	434208	
==>AME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434887	435222	
==>AME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435902	436237	
==>AME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436916	437251	
==>AME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437931	438266	
==>AME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504055	504343	
==>@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504910	505198	
==>@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505765	506053	
==>@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506619	506907	
==>@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507474	507762	
==>@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	508329	508617	
==>@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	31234	31476	
==>MS(signature);\n    {{+=argc + 2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438890	439246	
==>( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439904	440260	
==>( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440919	441275	
==>( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441933	442289	
==>( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442948	443304	
==>( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443962	444318	
==>( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444977	445333	
==>( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	43748	43858	
==>t_arg ($node, 0);
    if (exists $func->{value}) {
      my $symbol = $func->{value};
      if (exists $global_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591374	591462	
==>"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opc <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592584	592672	
==>"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opc <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593794	593882	
==>"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opc <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595005	595093	
==>"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opc <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600017	600105	
==>"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opc <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601093	601181	
==>"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opc <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049584	1049881	
==>JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050617	1050914	
==>JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051651	1051948	
==>JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052685	1052982	
==>JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053720	1054017	
==>JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054846	1055143	
==>JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28203	28309	
==>op for rule $rule->{'name'}");
		$pir .= "### end post_op\n";
	}

	# Loads (load class).
	elsif ($rule->{'c <==
7	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	15041	15145	
==>something we generate at this level, depending on
  # a currently open =over region

  # Events fired:  B <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2014	2112	
==>'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set registe <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3266	3364	
==>'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set registe <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5896	5993	
==>'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set registe <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6454	6551	
==>'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set registe <==
7	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	699	782	
==>ples/benchmarks/stress.pasm>, 
F<examples/benchmarks/stress.pl>, 
F<examples/benchma <==
7	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	546	629	
==>ples/benchmarks/stress.pasm>, 
F<examples/benchmarks/stress.pl>, 
F<examples/benchma <==
7	/Users/nnunley/parrot/config/inter/libparrot.pm	453	551	
==>rgs);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$d <==
7	/Users/nnunley/parrot/config/inter/charset.pm	331	423	
==>rgs);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$d <==
7	/Users/nnunley/parrot/config/inter/encoding.pm	336	428	
==>rgs);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$d <==
7	/Users/nnunley/parrot/config/inter/ops.pm	311	403	
==>rgs);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$d <==
7	/Users/nnunley/parrot/config/inter/progs.pm	450	542	
==>rgs);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$d <==
7	/Users/nnunley/parrot/config/inter/shlibs.pm	610	702	
==>rgs);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$d <==
7	/Users/nnunley/parrot/config/inter/types.pm	362	454	
==>rgs);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$d <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426251	426575	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":bas <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427138	427462	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":bas <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428024	428348	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":bas <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428911	429235	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":bas <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429797	430121	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":bas <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430684	431008	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":bas <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431570	431894	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":bas <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31694	31802	
==>method->{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($meth)) {
        my $n = <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33271	33379	
==>method->{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($meth)) {
        my $n = <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34982	35090	
==>method->{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($meth)) {
        my $n = <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36285	36393	
==>method->{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($meth)) {
        my $n = <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38232	38340	
==>method->{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($meth)) {
        my $n = <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40328	40436	
==>method->{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($meth)) {
        my $n = <==
7	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	23179	23281	
==>p, $R, $lastback) = @_;

    my $loop = $self->genlabel('plus_loop');
    my $rfail = $self->genlabel(' <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196802	197099	
==>IVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197698	197995	
==>IVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198595	198892	
==>IVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199492	199789	
==>IVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200388	200685	
==>IVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201285	201582	
==>IVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29689	29778	
==>ctx->caller_ctx = caller_ctx->caller_ctx;\n\t/* ordinarily, this will free the context imm <==
7	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	1273	1412	
==>l:" . ($reachable ? "" : " (unreachable)");
}

##################################

use vars qw(%OUTPUT);
sub gather {
    foreach (keys %Reg <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	12474	12604	
==>,
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT",
                  "NAME" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1027522	1027652	
==>,
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT",
                  "NAME" <==
7	/Users/nnunley/parrot/config/auto/cgoto.pm	540	648	
==>ub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_res <==
7	/Users/nnunley/parrot/config/auto/headers.pm	475	583	
==>ub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_res <==
7	/Users/nnunley/parrot/config/auto/jit.pm	626	734	
==>ub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_res <==
7	/Users/nnunley/parrot/config/gen/cpu.pm	538	646	
==>ub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_res <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	47058	47155	
==>LOOP
		}
		elsif ($grammar =~ m/$POSLOOKAHEAD/gco)
		{
			_parse("a positive lookahead",$aftererro <==
7	/Users/nnunley/parrot/config/inter/libparrot.pm	446	541	
==>tion @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':int <==
7	/Users/nnunley/parrot/config/inter/charset.pm	324	415	
==>tion @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':int <==
7	/Users/nnunley/parrot/config/inter/encoding.pm	329	420	
==>tion @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':int <==
7	/Users/nnunley/parrot/config/inter/ops.pm	304	395	
==>tion @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':int <==
7	/Users/nnunley/parrot/config/inter/progs.pm	443	534	
==>tion @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':int <==
7	/Users/nnunley/parrot/config/inter/shlibs.pm	603	694	
==>tion @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':int <==
7	/Users/nnunley/parrot/config/inter/types.pm	355	446	
==>tion @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':int <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31644	31754	
==>$method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($s <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33221	33331	
==>$method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($s <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34932	35042	
==>$method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($s <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36235	36345	
==>$method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($s <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38182	38292	
==>$method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($s <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40278	40388	
==>$method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($s <==
7	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12393	12489	
==>s returns undef.

=item e2charnum($e_content)

Given a name or number that could appear in a
C<EE <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	675325	675620	
==>);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676104	676399	
==>);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676884	677179	
==>);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677661	677956	
==>);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678439	678734	
==>);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679217	679512	
==>);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679996	680291	
==>);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	425567	425843	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426453	426729	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427340	427616	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428226	428502	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429113	429389	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429999	430275	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430886	431162	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197344	197459	
==>rc/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198241	198356	
==>rc/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199138	199253	
==>rc/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200034	200149	
==>rc/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200931	201046	
==>rc/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201828	201943	
==>rc/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => <==
7	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	158	261	
==>nes operators that can be used to construct a
# syntax tree for a regular expression.
#

# Core ops gene <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	71274	71404	
==>be providing this rule
					       later, or did you perhaps
					       misspell \"$call\"? Otherwise
					       it will be treat <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591489	591584	
==>if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_exc <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592699	592794	
==>if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_exc <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593909	594004	
==>if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_exc <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595120	595215	
==>if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_exc <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600132	600227	
==>if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_exc <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601208	601303	
==>if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_exc <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	394547	394966	
==>ARGDIRS" => [
                                 "o",
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 458,
                  "ARGS" => [
                              "i",
                              "i",
                              "p"
                            ],
                  "BO <==
7	/Users/nnunley/parrot/tools/dev/nm.pl	9269	9394	
==>ol = $TypeLong ? "undef" : "U";
			} else {
			    $symbol = $TypeLong ? "unknown" : "?";
			}
			if ($TypeLong) {
			    $sho <==
7	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1556	1657	
==>GlobalOp;
use base qw(Lua::opcode);

package FindLexOp;
use base qw(Lua::opcode);

package Store <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154852	154951	
==>BODY" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155756	155855	
==>BODY" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156660	156759	
==>BODY" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157565	157664	
==>BODY" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+ <==
7	/Users/nnunley/parrot/lib/Class/Struct.pm	2629	2771	
==>ype eq 'HASH' ){
        $out .= "    my(\$r) = {};\n";
        $cmt = '';
    }
    elsif( $base_type eq 'ARRAY' ){
        $out .= "    my(\$ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72925	73021	
==>\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Und <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74527	74623	
==>\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Und <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76129	76225	
==>\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Und <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77732	77828	
==>\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Und <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79253	79349	
==>\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Und <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80774	80870	
==>\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Und <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350527	350788	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351188	351449	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351850	352111	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352507	352768	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353165	353426	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353909	354170	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354654	354915	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413118	413453	
==>0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_networ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414245	414580	
==>0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_networ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415372	415707	
==>0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_networ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416500	416835	
==>0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_networ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417627	417962	
==>0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_networ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418755	419090	
==>0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_networ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419883	420218	
==>0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_networ <==
7	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	349	504	
==>$self->{$_};
            }
        }
        $self->{Lineno} = $parser->YYData->{lineno};
        return $self;
    }

    sub configure {
        m <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480102	480401	
==>=> 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481104	481403	
==>=> 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482107	482406	
==>=> 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483110	483409	
==>=> 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484108	484407	
==>=> 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485107	485406	
==>=> 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/Configure.pm	614	707	
==>on.pod> for further details about the configuration
framework.

=head1 USAGE

=head2 Import Pa <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438615	438957	
==>@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_in <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439629	439971	
==>@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_in <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440644	440986	
==>@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_in <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441658	442000	
==>@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_in <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442673	443015	
==>@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_in <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443687	444029	
==>@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_in <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444702	445044	
==>@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_in <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586941	587238	
==>r, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUM <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588127	588424	
==>r, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUM <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589313	589610	
==>r, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUM <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590500	590797	
==>r, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUM <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591709	592006	
==>r, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUM <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592919	593216	
==>r, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUM <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594129	594426	
==>r, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUM <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557260	557523	
==>T",
                  "NAME" => "tailcallmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558643	558906	
==>T",
                  "NAME" => "tailcallmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560027	560290	
==>T",
                  "NAME" => "tailcallmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
7	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	2194	2312	
==>$language_test_map{$func};
           # That's the reason for:   no strict 'refs';
           my $pass = $self->{builde <==
7	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2654	2770	
==>$language_test_map{$func};

        # That's the reason for:   no strict 'refs';
        my $pass = $self->{builde <==
7	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2184	2296	
==>$language_test_map{$func};
        # That's the reason for:   no strict 'refs';
        my $pass = $self->{builde <==
7	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2723	2835	
==>$language_test_map{$func};
        # That's the reason for:   no strict 'refs';
        my $pass = $self->{builde <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1409	1529	
==>=> $out_f, 
        );
        my $prog_output = Parrot::Test::slurp_file( "$out_f" );

        @_ = ( $prog_output, $out <==
7	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1325	1445	
==>=> $out_f, 
        );
        my $prog_output = Parrot::Test::slurp_file( "$out_f" );

        @_ = ( $prog_output, $out <==
7	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	554	649	
==>nto treelets (generally one per non-verbatim paragraph), and
# to call the proper callbacks on t <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1656	1744	
==>->find_symbol($dest->value);
  $self->SYNTAX_ERROR("Assigning to unknown variable %s.", $ <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1614	1702	
==>->find_symbol($dest->value);
  $self->SYNTAX_ERROR("Assigning to unknown variable %s.", $ <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1536	1624	
==>->find_symbol($dest->value);
  $self->SYNTAX_ERROR("Assigning to unknown variable %s.", $ <==
7	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10200	10285	
==>],4,0xd9d4d039,/* 45 */
HH,$d,$a,$b,$c,$_[16],11,0xe6db99e5,/* 46 */
HH,$c,$d,$a,$b,$_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	425617	425942	
==>,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426503	426828	
==>,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427390	427715	
==>,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428276	428601	
==>,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429163	429488	
==>,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430049	430374	
==>,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430936	431261	
==>,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439609	439928	
==>, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440624	440943	
==>, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441638	441957	
==>, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442653	442972	
==>, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443667	443986	
==>, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444682	445001	
==>, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	445696	446015	
==>, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514174	514479	
==>L){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515054	515359	
==>L){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515934	516239	
==>L){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528680	528985	
==>L){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529562	529867	
==>L){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	530444	530749	
==>L){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
7	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	14398	14501	
==>r dyadic ops.
my @type_pairs = (
  [ 'Float', 'Float' ],
  [ 'Float', 'APLVector' ], 
  [ 'APLVector', ' <==
7	/Users/nnunley/parrot/languages/python/pie-thon.pl	24957	25066	
==>$tos->[2] eq 'o') {	# builtin opcode
	$t = temp('P');
	print <<EOC;
	$t = new $DEFVAR   # builtin opcode
	$t = <==
7	/Users/nnunley/parrot/tools/build/dynclasses.pl	4072	4178	
==>c_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert lib-GROUP.so + A.so + B.so ... <==
7	/Users/nnunley/parrot/tools/build/dynpmc.pl	4176	4282	
==>c_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert lib-GROUP.so + A.so + B.so ... <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332699	332801	
==>need freeing\n     but this generates ugly warnings WRT discarding the const\n     qualifier -lt\n   */ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333977	334079	
==>need freeing\n     but this generates ugly warnings WRT discarding the const\n     qualifier -lt\n   */ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335255	335357	
==>need freeing\n     but this generates ugly warnings WRT discarding the const\n     qualifier -lt\n   */ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336534	336636	
==>need freeing\n     but this generates ugly warnings WRT discarding the const\n     qualifier -lt\n   */ <==
7	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	40	125	
==>dation.
# $Id: /parrot/lib/Parrot/OpTrans/CSwitch.pm 20333 2006-06-21T18:44:31.111564Z <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264419	264730	
==>{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265273	265584	
==>{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266127	266438	
==>{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266982	267293	
==>{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299590	299899	
==>{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300436	300745	
==>{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301282	301591	
==>{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	512	605	
==>ock (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  co <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	488	581	
==>ock (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  co <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	503	596	
==>ock (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  co <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	392	485	
==>ock (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  co <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	490	583	
==>ock (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  co <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	490	583	
==>ock (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  co <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	479	572	
==>ock (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  co <==
7	/Users/nnunley/parrot/tools/build/pmc2c.pl	5490	5582	
==>>

Converted to the interpreter object.

=item C<OtherClass.SELF.method(a,b,c)>

Calls the st <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344172	344268	
==>se char * need to go away soon */\n  const char * const path = string_to_cstring(interpreter, {{\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345414	345510	
==>se char * need to go away soon */\n  const char * const path = string_to_cstring(interpreter, {{\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346656	346752	
==>se char * need to go away soon */\n  const char * const path = string_to_cstring(interpreter, {{\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347899	347995	
==>se char * need to go away soon */\n  const char * const path = string_to_cstring(interpreter, {{\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349067	349163	
==>se char * need to go away soon */\n  const char * const path = string_to_cstring(interpreter, {{\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350069	350165	
==>se char * need to go away soon */\n  const char * const path = string_to_cstring(interpreter, {{\ <==
7	/Users/nnunley/parrot/languages/lua/luac.pl	783	877	
==>ning(s).\n";
}
if ( $parser->YYData->{verbose_info}
    and exists $parser->YYData->{nb_info <==
7	/Users/nnunley/parrot/config/auto/socklen_t.pm	524	630	
==>_;

    my $verbose = $conf->options->get('verbose');

    my $d_socklen_t = $Config{d_socklen_t};
    my $ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550199	550291	
==>thod = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pm <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551500	551592	
==>thod = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pm <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554052	554144	
==>thod = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pm <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555449	555541	
==>thod = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pm <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558104	558196	
==>thod = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pm <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559488	559580	
==>thod = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pm <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049581	1049876	
==>OT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050614	1050909	
==>OT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051648	1051943	
==>OT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052682	1052977	
==>OT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053717	1054012	
==>OT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054843	1055138	
==>OT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	5862	6002	
==>elf->new_group(
            'Extensions', 
            '',
            $self->c_pair_item('', 'extend'),
        ),
        $self->new_group( <==
7	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	15643	15746	
==>self->{'paras'}};
  my $curr_open = ($self->{'curr_open'} ||= []);

  my $scratch;

  DEBUG > 10 and pri <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550288	550385	
==>d_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551589	551686	
==>d_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554141	554238	
==>d_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555538	555635	
==>d_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558193	558290	
==>d_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559577	559674	
==>d_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438945	439284	
==>AME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439959	440298	
==>AME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440974	441313	
==>AME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441988	442327	
==>AME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443003	443342	
==>AME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444017	444356	
==>AME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	445032	445371	
==>AME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539851	540150	
==>E" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541102	541401	
==>E" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542354	542653	
==>E" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066393	1066692	
==>E" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067578	1067877	
==>E" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068764	1069063	
==>E" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069950	1070249	
==>E" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2370	2499	
==>0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P1 <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2509	2638	
==>0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P1 <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2648	2777	
==>0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P1 <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2787	2916	
==>0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P1 <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2926	3055	
==>0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P1 <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3065	3194	
==>0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P1 <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3204	3333	
==>0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P1 <==
7	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15545	15634	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

1;


__END__

=h <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2130	2218	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__END__

=h <==
7	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3055	3143	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__END__

=h <==
7	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	770	858	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__END__

=h <==
7	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3525	3612	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__END__

=h <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2278	2365	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__END__

=h <==
7	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2381	2468	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__END__

=h <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830201	830452	
==>,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 9 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830941	831192	
==>,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 9 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831682	831933	
==>,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 9 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832409	832660	
==>,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 9 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833137	833388	
==>,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 9 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833859	834110	
==>,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 9 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834584	834835	
==>,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 9 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470628	470926	
==>> "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471614	471912	
==>> "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472601	472899	
==>> "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473588	473886	
==>> "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474578	474876	
==>> "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475569	475867	
==>> "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
7	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	51759	51908	
==>}
	],
	[#Rule 46
		 'var', 4,
sub
#line 280 "Lua\lua51.yp"
{
            [ $_[2], $_[4] ];
        }
	],
	[#Rule 47
		 'var', 2,
sub
#lin <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	7330	7419	
==>->unget_token(@to_unget);
}

=item C<process_data_start_token($token)>

Processes a data s <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350349	350679	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDI <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361841	362171	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDI <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362740	363070	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDI <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363642	363972	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDI <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364545	364875	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDI <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365384	365714	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDI <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366224	366554	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDI <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202790	203062	
==>@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203721	203993	
==>@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204652	204924	
==>@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210337	210609	
==>@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211317	211589	
==>@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
7	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33670	33803	
==>sa('CallOp') )
    {
        push @opcodes2, @{ $expr->[1] };
        my $callop = pop @opcodes2;
        my $ass    = pop @opcode <==
7	/Users/nnunley/parrot/examples/benchmarks/freeze.pl	218	314	
==>ead1 SYNOPSIS

    % time perl examples/benchmarks/freeze.pl

=head1 DESCRIPTION

Freeze/thaw a C <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38398	38538	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39262	39402	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41822	41962	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46436	46576	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48019	48159	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49616	49756	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51219	51359	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54251	54475	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55010	55234	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55770	55994	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56531	56755	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57293	57517	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58054	58278	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
7	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	449	546	
==>the methods.
my $fh;
open $fh, "< $input_file" or die "Could not open $input_file: $!\n";
my $inpu <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11173	11291	
==>range, so that this can work right on
        #  all charsets that this module happens to run under.
        # Altho, h <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17013	17131	
==>range, so that this can work right on
        #  all charsets that this module happens to run under.
        # Altho, h <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4521	4637	
==>range, so that this can work right on
       #  all charsets that this module happens to run under.
       # Altho, h <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2014	2124	
==>range, so that this can work right on
    #  all charsets that this module happens to run under.
    # Altho, h <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10437	10547	
==>range, so that this can work right on
    #  all charsets that this module happens to run under.
    # Altho, h <==
7	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2117	2227	
==>range, so that this can work right on
    #  all charsets that this module happens to run under.
    # Altho, h <==
7	/Users/nnunley/parrot/lib/Text/Balanced.pm	53897	53992	
==>be reset).

=item 4.

A value indicating whether unmatched substrings (see below) within the
tex <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3017	3123	
==>op stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can fin <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4775	4881	
==>op stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can fin <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1939	2045	
==>op stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can fin <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3191	3297	
==>op stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can fin <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1230	1336	
==>op stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can fin <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2940	3046	
==>op stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can fin <==
7	/Users/nnunley/parrot/tools/dev/cc_flags.pl	413	508	
==>ransform compiler flags

=head1 DESCRIPTION

This script is used in a F<Makefile> to process the <==
7	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4654	4746	
==>dress($address)>

Transforms the C<goto ADDRESS($address)> macro in an ops file into the
rele <==
7	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1319	1411	
==>dress($address)>

Transforms the C<goto ADDRESS($address)> macro in an ops file into the
rele <==
7	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1844	1936	
==>dress($address)>

Transforms the C<goto ADDRESS($address)> macro in an ops file into the
rele <==
7	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1735	1827	
==>dress($address)>

Transforms the C<goto ADDRESS($address)> macro in an ops file into the
rele <==
7	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1459	1551	
==>dress($address)>

Transforms the C<goto ADDRESS($address)> macro in an ops file into the
rele <==
7	/Users/nnunley/parrot/config/init/hints/mswin32.pm	6542	6631	
==>i32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid -lws2_32 -lmpr -lwinmm -lversion -lodbc <==
7	/Users/nnunley/parrot/config/init/hints/msys.pm	433	522	
==>i32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid -lws2_32 -lmpr -lwinmm -lversion -lodbc <==
7	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2652	2757	
==>val $code;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was fatal: $!", $expect <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072521	1072622	
==>\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we used abs( <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074706	1074807	
==>\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we used abs( <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076891	1076992	
==>\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we used abs( <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079077	1079178	
==>\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we used abs( <==
7	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2343	2442	
==>HARING;
	# Sharing $stype $var with main  (array=$array)
	P0= P10[0]
	P1= P0["$stype"]
	P0= P1["$var <==
7	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2570	2669	
==>HARING;
	# Sharing $stype $var with main  (array=$array)
	P0= P10[0]
	P1= P0["$stype"]
	P0= P1["$var <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752313	752581	
==>UMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753092	753360	
==>UMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753879	754147	
==>UMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754667	754935	
==>UMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755453	755721	
==>UMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756240	756508	
==>UMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757029	757297	
==>UMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403322	403622	
==>E" => "function",
                  "CODE" => 466,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 527 \"src/op <==
7	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	718	824	
==>Void is export {
     $Test::force_todo_test_junction = join ' ', '', @todo_tests, '';
}

## ok

sub ok (Bo <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3897	3996	
==>uired: Jako::Construct::Block
  my $name = shift; # Required: string (TODO: domain)

  confess "No b <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7806	7905	
==>uired: Jako::Construct::Block
  my $name = shift; # Required: string (TODO: domain)

  confess "No b <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8453	8552	
==>uired: Jako::Construct::Block
  my $name = shift; # Required: string (TODO: domain)

  confess "No b <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9121	9220	
==>uired: Jako::Construct::Block
  my $name = shift; # Required: string (TODO: domain)

  confess "No b <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9790	9889	
==>uired: Jako::Construct::Block
  my $name = shift; # Required: string (TODO: domain)

  confess "No b <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054535	1054803	
==>l_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055662	1055930	
==>l_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056553	1056821	
==>l_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057445	1057713	
==>l_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058337	1058605	
==>l_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059230	1059498	
==>l_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1300	1403	
==>cat strPC
${INS} = concat ": "
PIR
	
	# This is also a good place (as we call gen_label before translati <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213531	213833	
==>_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214472	214774	
==>_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215412	215714	
==>_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216353	216655	
==>_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217292	217594	
==>_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218232	218534	
==>_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219210	219512	
==>_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049626	1049923	
==>find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 117 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050659	1050956	
==>find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 117 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051693	1051990	
==>find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 117 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052727	1053024	
==>find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 117 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053762	1054059	
==>find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 117 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054888	1055185	
==>find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 117 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055997	1056294	
==>find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 117 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730710	730949	
==>\"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731446	731685	
==>\"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735199	735438	
==>\"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735935	736174	
==>\"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741242	741481	
==>\"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745802	746041	
==>\"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746537	746776	
==>\"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693627	693906	
==>9,
                  "ARGS" => [
                              "ic",
                              "i",
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_s <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11199	11318	
==>rk right on
        #  all charsets that this module happens to run under.
        # Altho, hmm, what about that ord?  P <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17039	17158	
==>rk right on
        #  all charsets that this module happens to run under.
        # Altho, hmm, what about that ord?  P <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4547	4664	
==>rk right on
       #  all charsets that this module happens to run under.
       # Altho, hmm, what about that ord?  P <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2040	2151	
==>rk right on
    #  all charsets that this module happens to run under.
    # Altho, hmm, what about that ord?  P <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10463	10574	
==>rk right on
    #  all charsets that this module happens to run under.
    # Altho, hmm, what about that ord?  P <==
7	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2143	2254	
==>rk right on
    #  all charsets that this module happens to run under.
    # Altho, hmm, what about that ord?  P <==
7	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11394	11631	
==>{
            if ($c eq '{') {
                ++$depth;
            } elsif ($c eq '}') {
                if (--$depth == 0) {
                    $state = 0;
                }
            }
            $tokens[-1] .= $c;
        }
    } <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	508505	508729	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509136	509360	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509767	509991	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510422	510646	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511160	511384	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511898	512122	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
7	/Users/nnunley/parrot/lib/Parrot/Op.pm	2579	2680	
==>C<label>'.

C<$flags> is one or more (comma-separated) I<hints>.

=cut

sub new
{
    my $class = shif <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31510	31603	
==>ating.

Overrides the default implementation to direct all unknown methods to
the thing referr <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11387	11477	
==>e_method($class, $method, $super, $super_table)>

Rewrites the method body performing the v <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73052	73141	
==>@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74654	74743	
==>@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76256	76345	
==>@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77859	77948	
==>@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960359	960636	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961320	961597	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962282	962559	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963244	963521	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
7	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11046	11153	
==>f->stylesheet,
    $self->color_table,
    $self->doc_info,
    $self->doc_start,
    "\n"
  ;
}

sub do_end <==
7	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3604	3697	
==>tory,$checklist,$inarray,$outhash)=@_;
	my($prm,$value);
	my($prmlst)={};

	while(($prm,$v <==
7	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3416	3505	
==>tory,$checklist,$inarray,$outhash)=@_;
	my($prm,$value);
	my($prmlst)={};

	while(($prm,$v <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	466418	466669	
==>( {
                  "JUMP" => 0,
                  "NAME" => "dec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31656	31765	
==>ne, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER: <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33233	33342	
==>ne, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER: <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34944	35053	
==>ne, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER: <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36247	36356	
==>ne, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER: <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38194	38303	
==>ne, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER: <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40290	40399	
==>ne, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER: <==
7	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15533	15619	
==>n;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

1 <==
7	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3513	3598	
==>n;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1 <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2118	2203	
==>n;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1 <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2266	2351	
==>n;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1 <==
7	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3043	3128	
==>n;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1 <==
7	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	758	843	
==>n;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1 <==
7	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2369	2454	
==>n;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356255	356509	
==>=> 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356914	357168	
==>=> 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357574	357828	
==>=> 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358237	358491	
==>=> 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358901	359155	
==>=> 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359648	359902	
==>=> 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360396	360650	
==>=> 0,
                  "NAME" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
7	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	2465	2564	
==>Spec->catfile( $options{language}, 't' );
        my @files = ( glob( File::Spec->catfile( $dir, '*. <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	725336	725595	
==>0);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clone",
                  "FL <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667017	667317	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667790	668090	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668564	668864	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669335	669635	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670107	670407	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670879	671179	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671652	671952	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	232	329	
==>l.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako:: <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	225	322	
==>l.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako:: <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	223	320	
==>l.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako:: <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	235	332	
==>l.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako:: <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	214	311	
==>l.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako:: <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	222	319	
==>l.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako:: <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	236	333	
==>l.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako:: <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481402	481671	
==>ne",
                  "CODE" => 551,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 446 \"src/ops/math.ops\"\n  INT <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471257	471521	
==>ror,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472244	472508	
==>ror,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473231	473495	
==>ror,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474221	474485	
==>ror,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475212	475476	
==>ror,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476203	476467	
==>ror,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413046	413435	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414173	414562	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415300	415689	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416428	416817	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417555	417944	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418683	419072	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419811	420200	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9211	9427	
==>}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JU <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23098	23314	
==>}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JU <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25537	25753	
==>}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JU <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028251	1028467	
==>}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JU <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029102	1029318	
==>}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JU <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029943	1030159	
==>}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JU <==
7	/Users/nnunley/parrot/lib/Test/More.pm	26956	27167	
==>defined $val ? 'undef'          :
                      $val eq $DNE  ? "Does not exist" :
	              ref $val      ? "$val"           :
                                      "'$val'";
    }

    $out .= "$va <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454677	454947	
==>.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455532	455802	
==>.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456387	456657	
==>.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457241	457511	
==>.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458096	458366	
==>.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458951	459221	
==>.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758075	758313	
==>E" => "inline",
                  "CODE" => 855,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 276 \"src/ops/set.ops\"\n <==
7	/Users/nnunley/parrot/lib/Text/Balanced.pm	55798	55895	
==>pty list or an undefined value (in the case of a subroutine extractor), it is
assumed to have fail <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356067	356327	
==>{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356726	356986	
==>{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357386	357646	
==>{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358049	358309	
==>{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358713	358973	
==>{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359460	359720	
==>{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360208	360468	
==>{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1143	1241	
==>text content.  It is
mainly meant for use by the Pod::Simple test suite, but you may find
some othe <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550228	550318	
==>VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_exception(in <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551529	551619	
==>VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_exception(in <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554081	554171	
==>VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_exception(in <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555478	555568	
==>VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_exception(in <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558133	558223	
==>VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_exception(in <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559517	559607	
==>VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_exception(in <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494410	494733	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495278	495601	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496146	496469	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497015	497338	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497885	498208	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498755	499078	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1108580	1108706	
==>enum_class_Key:\n            type = pmc_type_p(interpreter, {{\@2}});\n            if (type <= 0)\n                real_excepti <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752319	752608	
==>> 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753098	753387	
==>> 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753885	754174	
==>> 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754673	754962	
==>> 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755459	755748	
==>> 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756246	756535	
==>> 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757035	757324	
==>> 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	6592	6742	
==>'',
            $self->c_item(
                'Parrot\'s layer-based I/O subsystem.', 
                'headers' => ['io'], 
                'contents <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11229	11335	
==>rsets that this module happens to run under.
        # Altho, hmm, what about that ord?  Presumably that wo <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17069	17175	
==>rsets that this module happens to run under.
        # Altho, hmm, what about that ord?  Presumably that wo <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4576	4681	
==>rsets that this module happens to run under.
       # Altho, hmm, what about that ord?  Presumably that wo <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2066	2168	
==>rsets that this module happens to run under.
    # Altho, hmm, what about that ord?  Presumably that wo <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10489	10591	
==>rsets that this module happens to run under.
    # Altho, hmm, what about that ord?  Presumably that wo <==
7	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2169	2271	
==>rsets that this module happens to run under.
    # Altho, hmm, what about that ord?  Presumably that wo <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432518	432856	
==>\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433533	433871	
==>\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434547	434885	
==>\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435562	435900	
==>\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436576	436914	
==>\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437591	437929	
==>\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438605	438943	
==>\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
7	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeSmart.pm	54	148	
==>PY!
## This module is to be use()'d only by Pod::Simple::Transcode

package Pod::Simple::Transc <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72546	72636	
==>6 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74148	74238	
==>6 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75750	75840	
==>6 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77353	77443	
==>6 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78881	78971	
==>6 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80402	80492	
==>6 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830759	831016	
==>,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_co <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831500	831757	
==>,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_co <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832227	832484	
==>,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_co <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832955	833212	
==>,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_co <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833677	833934	
==>,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_co <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834402	834659	
==>,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_co <==
7	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	726	829	
==>ity will not need it. Althoug this may be a 
# niave understanding of what this stuff is for, so if it i <==
7	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18104	18217	
==>parser, $meth, 'key' );
    push @opcodes, @{ $key->[1] };
    my $result = new_tmp( $parser, 'pmc' );
    push <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550463	550715	
==>ext);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_AD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551764	552016	
==>ext);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_AD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552955	553207	
==>ext);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_AD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558368	558620	
==>ext);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_AD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559752	560004	
==>ext);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_AD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560973	561225	
==>ext);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_AD <==
7	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	23370	23468	
==>=> 'FLO', long => 'INT', integer => 'INT', string => 'STRING');
			my %sigilmap=( '%' => 'integer', <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4443	4546	
==>pir =~ s/\$push_num/$push_num/g;
		$push_num++;
	}

	# Return generated code.
	return $pir;
}

sub post_ <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2859	2962	
==>pir =~ s/\$push_num/$push_num/g;
		$push_num++;
	}

	# Return generated code.
	return $pir;
}

sub post_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175163	175248	
==>"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_NUMCMP) <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196400	196485	
==>"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_NUMCMP) <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213134	213219	
==>"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_NUMCMP) <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221689	221774	
==>"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_NUMCMP) <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	230251	230336	
==>"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_NUMCMP) <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	251358	251463	
==>,
                  "BODY" => "#line 703 \"src/ops/cmp.ops\"\n  {{\@2}}->vtable->i_logical_not(interpreter <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31763	31866	
==>ER::implements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($ <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33340	33443	
==>ER::implements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($ <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35051	35154	
==>ER::implements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($ <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36354	36457	
==>ER::implements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($ <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38301	38404	
==>ER::implements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($ <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40397	40500	
==>ER::implements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350523	350783	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351184	351444	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351846	352106	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352503	352763	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353161	353421	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353905	354165	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354650	354910	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746834	747099	
==>E" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 84 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747618	747883	
==>E" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 84 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748403	748668	
==>E" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 84 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749186	749451	
==>E" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 84 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749970	750235	
==>E" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 84 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750753	751018	
==>E" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 84 <==
7	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9436	9554	
==>= '=' . ($token->attr('type') || 'pod');
        
      } elsif ($tagname eq 'Data') {
        my $next = $self->get_to <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964961	965300	
==>4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965969	966308	
==>4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966977	967316	
==>4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967986	968325	
==>4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968994	969333	
==>4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970003	970342	
==>4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971012	971351	
==>4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351077	351340	
==>ABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDI <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351739	352002	
==>ABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDI <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352396	352659	
==>ABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDI <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353054	353317	
==>ABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDI <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353798	354061	
==>ABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDI <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354543	354806	
==>ABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDI <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361010	361273	
==>ABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDI <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693006	693360	
==>[
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "A <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694006	694360	
==>[
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "A <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695006	695360	
==>[
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "A <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696007	696361	
==>[
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "A <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697007	697361	
==>[
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "A <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698008	698362	
==>[
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "A <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699009	699363	
==>[
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "A <==
7	/Users/nnunley/parrot/config/inter/progs.pm	112	209	
==>10975Z coke  $

=head1 NAME

config/inter/progs.pm - C Compiler and Linker

=head1 DESCRIPTION

As <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049577	1049872	
==>PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050610	1050905	
==>PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051644	1051939	
==>PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052678	1052973	
==>PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053713	1054008	
==>PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054839	1055134	
==>PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
7	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26634	26754	
==>r, $expr, $block ) = @_;
    my @opcodes    = ();
    my $l_continue = new_label($parser);
    my $l_break    = new_la <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	4949	5071	
==>ef']);
    for (reverse @$children) {
      if (exists $_->{children}) {
        my $arg0 = _get_arg($_, 0);
        if (ex <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550255	550347	
==>ter, object, meth);\n  if (!method_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOU <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551556	551648	
==>ter, object, meth);\n  if (!method_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOU <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554108	554200	
==>ter, object, meth);\n  if (!method_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOU <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555505	555597	
==>ter, object, meth);\n  if (!method_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOU <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558160	558252	
==>ter, object, meth);\n  if (!method_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOU <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559544	559636	
==>ter, object, meth);\n  if (!method_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOU <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11202	11320	
==>right on
        #  all charsets that this module happens to run under.
        # Altho, hmm, what about that ord?  Pre <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17042	17160	
==>right on
        #  all charsets that this module happens to run under.
        # Altho, hmm, what about that ord?  Pre <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4550	4666	
==>right on
       #  all charsets that this module happens to run under.
       # Altho, hmm, what about that ord?  Pre <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2043	2153	
==>right on
    #  all charsets that this module happens to run under.
    # Altho, hmm, what about that ord?  Pre <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10466	10576	
==>right on
    #  all charsets that this module happens to run under.
    # Altho, hmm, what about that ord?  Pre <==
7	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2146	2256	
==>right on
    #  all charsets that this module happens to run under.
    # Altho, hmm, what about that ord?  Pre <==
7	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	1875	1972	
==>sts";
print "$cmd\n";
system $cmd;

print "we are skipping $total_skipped total tests.\n";
print " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550392	550505	
==>h);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551693	551806	
==>h);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554245	554358	
==>h);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555642	555755	
==>h);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558297	558410	
==>h);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559681	559794	
==>h);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1338	1427	
==>expr_address($address)>

Returns the C code for C<ADDRESS($address)>. Called by C<goto_add <==
7	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5504	5622	
==>(@{$vtable}) {
    next if ($entry->[4] =~ /MMD_/);
    $macros .= <<"EOM";
        \"__$entry->[1]\",
EOM
    }
    $m <==
7	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	1344	1454	
==>ig> if C<$new> is undefined.

=cut

sub integrate
{
    my ($orig, $new) = @_;

    # Rather than sprinkling "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550271	550370	
==>h);\n  if (!method_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method ' <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551572	551671	
==>h);\n  if (!method_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method ' <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554124	554223	
==>h);\n  if (!method_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method ' <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555521	555620	
==>h);\n  if (!method_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method ' <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558176	558275	
==>h);\n  if (!method_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method ' <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559560	559659	
==>h);\n  if (!method_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method ' <==
7	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15560	15652	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

1;


__END__

=head1 NAME

Pod::Si <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2145	2236	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__END__

=head1 NAME

Pod::Si <==
7	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3070	3161	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__END__

=head1 NAME

Pod::Si <==
7	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	785	876	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__END__

=head1 NAME

Pod::Si <==
7	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3540	3630	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__END__

=head1 NAME

Pod::Si <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2293	2383	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__END__

=head1 NAME

Pod::Si <==
7	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2396	2486	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__END__

=head1 NAME

Pod::Si <==
7	/Users/nnunley/parrot/config/auto/signal.pm	1489	1628	
==>define',
            has_sig_atomic_t => 'define'
        );
        print " (setitimer) " if $verbose;
    }
    cc_clean();

    # now gen <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16425	16506	
==>efghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16767	16848	
==>efghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1890	1971	
==>efghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9968	10049	
==>efghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10211	10292	
==>efghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg <==
7	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1993	2074	
==>efghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454097	454414	
==>{
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454951	455268	
==>{
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455806	456123	
==>{
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456661	456978	
==>{
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457515	457832	
==>{
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458370	458687	
==>{
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30555	30676	
==>);
    my $cout = <<"EOC";
$decl {
EOC
    if ($meth eq 'morph') {
        $cout .= <<EOC;
    if (1 || Parrot_is_const_pm <==
7	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	5490	5628	
==>lass$/) {
            if ($rule->{$_} =~ /^(op|load|store|branch|calling)$/) {
                if ($has_class) {
                    die "D <==
7	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1250	1353	
==>);
    $code->{code} = [ $opt2->optimize($code->{code}, $ctx) ];
    return $code;
}

sub list_to_pasm { <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4188	4279	
==>ES}[${ITEMP0}]

# Assign register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_shor <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2604	2695	
==>ES}[${ITEMP0}]

# Assign register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_shor <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1387	1478	
==>ES}[${ITEMP0}]

# Assign register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_shor <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1914	2005	
==>ES}[${ITEMP0}]

# Assign register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_shor <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3097	3188	
==>ES}[${ITEMP0}]

# Assign register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_shor <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730733	731008	
==>{{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731469	731744	
==>{{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735222	735497	
==>{{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735958	736233	
==>{{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741265	741540	
==>{{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745825	746100	
==>{{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746560	746835	
==>{{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213563	213869	
==>AME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 25 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214504	214810	
==>AME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 25 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215444	215750	
==>AME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 25 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216385	216691	
==>AME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 25 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217324	217630	
==>AME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 25 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218264	218570	
==>AME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 25 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219242	219548	
==>AME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 25 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426277	426604	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "A <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427164	427491	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "A <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428050	428377	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "A <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428937	429264	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "A <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429823	430150	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "A <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430710	431037	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "A <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431596	431923	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "A <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666891	667216	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667664	667989	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668438	668763	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669209	669534	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669981	670306	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670753	671078	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671526	671851	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494408	494730	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495276	495598	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496144	496466	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497013	497335	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497883	498205	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498753	499075	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" <==
7	/Users/nnunley/parrot/lib/Pod/Escapes.pm	358	443	
==>'ALL' => \@EXPORT_OK);

#============================================================= <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264403	264698	
==>n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265257	265552	
==>n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266111	266406	
==>n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266966	267261	
==>n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299576	299867	
==>n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300422	300713	
==>n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301268	301559	
==>n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260047	260371	
==>n    {{\@1}} = {{\@2}} == {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260899	261223	
==>n    {{\@1}} = {{\@2}} == {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261751	262075	
==>n    {{\@1}} = {{\@2}} == {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262604	262928	
==>n    {{\@1}} = {{\@2}} == {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290905	291225	
==>n  {{\@1}} = {{\@2}} == {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291751	292071	
==>n  {{\@1}} = {{\@2}} == {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292597	292917	
==>n  {{\@1}} = {{\@2}} == {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730717	730975	
==>ps/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731453	731711	
==>ps/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735206	735464	
==>ps/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735942	736200	
==>ps/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741249	741507	
==>ps/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745809	746067	
==>ps/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746544	746802	
==>ps/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426240	426572	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ": <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427127	427459	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ": <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428013	428345	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ": <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428900	429232	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ": <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429786	430118	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ": <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430673	431005	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ": <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431559	431891	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ": <==
7	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	6898	6993	
==>1991-2, RSA Data Security, Inc. Created 1991. All
rights reserved.

License to copy and use this <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576493	576583	
==>ng);\n  VTABLE_set_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass( <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577505	577595	
==>ng);\n  VTABLE_set_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass( <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579593	579683	
==>ng);\n  VTABLE_set_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass( <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580898	580988	
==>ng);\n  VTABLE_set_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass( <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582203	582293	
==>ng);\n  VTABLE_set_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass( <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583509	583599	
==>ng);\n  VTABLE_set_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass( <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480129	480426	
==>ME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481131	481428	
==>ME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482134	482431	
==>ME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483137	483434	
==>ME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484135	484432	
==>ME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485134	485431	
==>ME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	42074	42189	
==>ed;
      }
      $self->_add_inst ('','set',["P$count",$arg]);
    }
    $count++;
  }

  $self->_add_inst('', 'set <==
7	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	7191	7302	
==>_for_directory_with_name
{
    my $self = shift;
    my $name = shift || return;
    
    return File::Spec->cat <==
7	/Users/nnunley/parrot/lib/Test/More.pm	8485	8583	
==>grows in Brooklyn' );

This does not check if C<exists $brooklyn{tree}> is true, it checks if
it re <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858539	858634	
==>/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat with n <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859543	859638	
==>/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat with n <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860547	860642	
==>/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat with n <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861552	861647	
==>/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat with n <==
7	/Users/nnunley/parrot/tools/build/jit2c.pl	7520	7606	
==>_1123_op Parrot_jit_normal_op
#define Parrot_jit_vtable_2231_op Parrot_jit_normal_op
#d <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271135	271441	
==>{{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271981	272287	
==>{{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272827	273133	
==>{{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273672	273978	
==>{{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	274518	274824	
==>{{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	275364	275670	
==>{{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
7	/Users/nnunley/parrot/lib/Test/Builder.pm	13753	13844	
==>nlike($this, qr/$regex/, $name);
  $Test->unlike($this, '/$regex/', $name);

Like Test::More <==
7	/Users/nnunley/parrot/config/init/miniparrot.pm	75	164	
==>miniparrot.pm 20320 2006-06-20T19:26:31.775154Z bernhard  $

=head1 NAME

config/init/mini <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047470	1047773	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050350	1050653	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051384	1051687	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052418	1052721	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053453	1053756	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054579	1054882	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059274	1059577	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	532970	533254	
==>P" => 0,
                  "NAME" => "ln",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31634	31740	
==>y ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emit <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33211	33317	
==>y ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emit <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34922	35028	
==>y ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emit <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36225	36331	
==>y ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emit <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38172	38278	
==>y ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emit <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40268	40374	
==>y ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emit <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426232	426560	
==>}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427119	427447	
==>}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428005	428333	
==>}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428892	429220	
==>}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429778	430106	
==>}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430665	430993	
==>}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431551	431879	
==>}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47045	47233	
==>CLEAR(interpreter, PARROT_ALL_DEBUG_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47828	48016	
==>CLEAR(interpreter, PARROT_ALL_DEBUG_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot <==
7	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	5844	5955	
==>tch(a)
#  check(1)
#  match(b)
#  check(1)
#  match(c)
#
# where check(n) is "am I closer than n away from the e <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579288	579381	
==>C *class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4} <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580593	580686	
==>C *class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4} <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581898	581991	
==>C *class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4} <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583204	583297	
==>C *class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4} <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539857	540155	
==>"gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541108	541406	
==>"gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542360	542658	
==>"gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066399	1066697	
==>"gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067584	1067882	
==>"gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068770	1069068	
==>"gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069956	1070254	
==>"gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083259	1083579	
==>"i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1202,
                  "ARGS" => [
                              "p",
                              "ic",
                              "kc"
                            ],
                  "BODY" => "#line 145 \"s <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454125	454423	
==>> 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454979	455277	
==>> 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455834	456132	
==>> 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456689	456987	
==>> 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457543	457841	
==>> 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458398	458696	
==>> 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
7	/Users/nnunley/parrot/lib/Test/More.pm	25500	25624	
==>my($this, $that, $name) = @_;

    my $ok;
    if( !ref $this and !ref $that ) {  		# neither is a reference
        $ok = $T <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72887	72987	
==>FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = p <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74489	74589	
==>FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = p <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76091	76191	
==>FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = p <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77694	77794	
==>FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = p <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79215	79315	
==>FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = p <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80736	80836	
==>FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = p <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666879	667178	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667652	667951	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668426	668725	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669197	669496	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669969	670268	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670741	671040	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671514	671813	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
7	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	6656	6772	
==>1 <  0 goto neg
pos:
    unless op1 goto done
    # shift off the beginning and push onto the end.
    $P1 = shift op <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72832	72923	
==>\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74434	74525	
==>\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76036	76127	
==>\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77639	77730	
==>\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79160	79251	
==>\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80681	80772	
==>\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s <==
7	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	1043	1162	
==>nt   badargs($cmd, @args);
print    footer();

sub open_tmt {
    my ($filename) = @_;

    local $/ = undef;
    open m <==
7	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	1816	1919	
==>) && $self->get('verbose') == 2;

    print "Setting Configuration Data:\n(\n" if $verbose;

    while ( <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	10736	10831	
==>return;
	}
	splice @{$thisparser->{errors}}, $err_at;
	$return = $item[$#item] unless defined $r <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579467	579559	
==>ass '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580772	580864	
==>ass '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582077	582169	
==>ass '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583383	583475	
==>ass '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828219	828542	
==>",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 937,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 159 \"src/op <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231215	231490	
==>{{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232119	232394	
==>{{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233023	233298	
==>{{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233926	234201	
==>{{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234830	235105	
==>{{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235734	236009	
==>{{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20347	20456	
==>},
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21012	21121	
==>},
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29431	29540	
==>},
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31528	31637	
==>},
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23837	23945	
==>},
					 Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22426	22533	
==>},
					Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27328	27430	
==>}, Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361808	362065	
==>/* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362707	362964	
==>/* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363609	363866	
==>/* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364512	364769	
==>/* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365351	365608	
==>/* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366191	366448	
==>/* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367089	367346	
==>/* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721936	722193	
==>,
                  "TYPE" => "function",
                  "CODE" => 809,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 149 \"src/ops/pyth <==
7	/Users/nnunley/parrot/config/auto/gcc.pm	2380	2495	
==>h harder to compile using
        # the system headers, which may well be tuned to a non-strict
        # environmen <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3950	4047	
==>equired: string (TODO: domain)

  confess "No block!"  unless defined $self and ref $self and $sel <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7859	7956	
==>equired: string (TODO: domain)

  confess "No block!"  unless defined $self and ref $self and $sel <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8506	8603	
==>equired: string (TODO: domain)

  confess "No block!"  unless defined $self and ref $self and $sel <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9174	9271	
==>equired: string (TODO: domain)

  confess "No block!"  unless defined $self and ref $self and $sel <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9843	9940	
==>equired: string (TODO: domain)

  confess "No block!"  unless defined $self and ref $self and $sel <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3967	4064	
==>TODO: domain)

  confess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Con <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6135	6232	
==>TODO: domain)

  confess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Con <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7078	7175	
==>TODO: domain)

  confess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Con <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7876	7973	
==>TODO: domain)

  confess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Con <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8523	8620	
==>TODO: domain)

  confess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Con <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9191	9288	
==>TODO: domain)

  confess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Con <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9860	9957	
==>TODO: domain)

  confess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Con <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454664	454922	
==>"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455519	455777	
==>"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456374	456632	
==>"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457228	457486	
==>"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458083	458341	
==>"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458938	459196	
==>"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
7	/Users/nnunley/parrot/lib/Text/Balanced.pm	9627	9729	
==>tagpos = pos($$textref);
	goto matched if $omode eq 'MAX';
	goto failed unless $omode eq 'PARA';

	if ( <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519702	519960	
==>"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520557	520815	
==>"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	521412	521670	
==>"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522266	522524	
==>"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523121	523379	
==>"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523976	524234	
==>"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7523	7627	
==>/-/o;
	
	# There has to be some space each side of the dash.
	my ($path, $desc) = split /\s+--?\s+/, $tex <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	602798	603052	
==>s(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	689732	689985	
==>s(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025044	1025297	
==>s(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025801	1026054	
==>s(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57914	58166	
==>s(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58676	58928	
==>s(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666820	667072	
==>s(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70925	71199	
==>er, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71694	71968	
==>er, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100434	100708	
==>er, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104882	105156	
==>er, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	252994	253268	
==>er, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450923	451197	
==>er, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	513322	513596	
==>er, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	675496	675811	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676275	676590	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677055	677370	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677832	678147	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678610	678925	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679388	679703	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680167	680482	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31810	31903	
==>>{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_name <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33387	33480	
==>>{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_name <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35098	35191	
==>>{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_name <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36401	36494	
==>>{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_name <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38348	38441	
==>>{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_name <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40444	40537	
==>>{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_name <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29767	29856	
==>>{has_method}{$meth};
    return $self->SUPER::body($self->{methods}[$n], $line, $out_name <==
7	/Users/nnunley/parrot/config/auto/bc.pm	682	796	
==>c;
    my $osname = $Config{osname};

    # There were some problems with a hanging bc reported.
    # So check for <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158842	159139	
==>LATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159738	160035	
==>LATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160635	160932	
==>LATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161532	161829	
==>LATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162428	162725	
==>LATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163325	163622	
==>LATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
7	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	5546	5676	
==>os (@labels) {
                    push @Q, $labels{$stmt->{code}->{args}->[$pos]->{label}};
                    pop @Q if ! define <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540638	540774	
==>\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541890	542026	
==>\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543142	543278	
==>\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544425	544561	
==>\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545761	545897	
==>\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547097	547233	
==>\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	4346	4479	
==>pcode_t *pc = CUR_OPCODE;\n    DO_OP(pc, interpreter);\n    {{=pc}};\n",
                  "LABELS" => []
                }, 'Parrot:: <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504048	504337	
==>\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504903	505192	
==>\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505758	506047	
==>\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506612	506901	
==>\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507467	507756	
==>\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	508322	508611	
==>\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314039	314131	
==>Y" => "#line 62 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (INTVAL)((signed char)({{\@1}}));\n  {{+= <==
7	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	9731	9838	
==>ps);
}

sub rewrite_check {
    my ($self, $op, $amount, $R, $lastback) = @_;
    my ($R_back, @R_body) = $s <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747289	747376	
==>\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748074	748161	
==>\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753583	753670	
==>\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754371	754458	
==>\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324705	324791	
==>\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}},{{\@2}});\n  {{+=3}};\n" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325498	325584	
==>\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}},{{\@2}});\n  {{+=3}};\n" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500483	500726	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501221	501464	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501960	502203	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502698	502941	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i" <==
7	/Users/nnunley/parrot/config/init/hints/irix.pm	683	792	
==>>get('cc');
    my $cxx  = $conf->data->get('cxx');
    my $ld   = $conf->data->get('ld');
    my $link = $con <==
7	/Users/nnunley/parrot/languages/python/pie-thon.pl	10872	10981	
==>typ =~ /[US]/) {   # strings
	# parrot has double quoted escapes
	$c =~ s/"/\\"/g;	# XXX unescape
	my $u = def <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	347	443	
==>ation-related
methods to do with POD and file type.

It's used by the documentation tools in F<to <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439589	439878	
==>interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440604	440893	
==>interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441618	441907	
==>interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442633	442922	
==>interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443647	443936	
==>interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444662	444951	
==>interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	445676	445965	
==>interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	1293	1389	
==>all not implemented for current stack to register mapper\n";
}
sub post_call {
	die "post_call no <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550382	550475	
==>und\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=d <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551683	551776	
==>und\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=d <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554235	554328	
==>und\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=d <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555632	555725	
==>und\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=d <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558287	558380	
==>und\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=d <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559671	559764	
==>und\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=d <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	977	1084	
==>cumentation item.

=cut

sub c_pair_item
{
    my $self = shift;
    
    return $self->c_item(shift, 'pairs <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061960	1062254	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062829	1063123	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063698	1063992	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064568	1064862	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065441	1065735	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
7	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	20737	20838	
==>d $dont_ignore and print " Making note to treat contents as ",
        ($to_resolve ? 'verbatim/plain' <==
7	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6477	6572	
==>et('verbose') && $self->get('verbose') == 2;

    print "Removing trigger $trigger on configurat <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1314	1433	
==>ub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = s <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1305	1424	
==>ub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = s <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1194	1313	
==>ub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = s <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1653	1772	
==>ub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = s <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1789	1908	
==>ub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = s <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1432	1551	
==>ub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = s <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	1289	1389	
==>line) = caller;
	if (substr($file,0,1) eq '-' && $line == 0)
	{
		_die("Usage: perl -MLocalTest - <gr <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514172	514476	
==>VAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515052	515356	
==>VAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515932	516236	
==>VAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528678	528982	
==>VAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529560	529864	
==>VAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	530442	530746	
==>VAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
7	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35743	35908	
==>ntless
            }
          }

        } else {
          die "Unhandled =over type \"$over_type\"?";
          # Shouldn't happen!
        }

        $para_type = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770011	770242	
==>f bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770864	771095	
==>f bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771717	771948	
==>f bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772571	772802	
==>f bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	498	597	
==>t_name, $attr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBUG and print "++ $_[1] <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	497	596	
==>t_name, $attr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBUG and print "++ $_[1] <==
7	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	692	791	
==>t_name, $attr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBUG and print "++ $_[1] <==
7	/Users/nnunley/parrot/tools/build/jit2c.pl	13341	13460	
==>unc[$i] . $func_end .
        $jit_fn_params . "\n{\n" .
        $body . "}\n";
    }
    push @jit_funcs, "{ $jit_func, <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550202	550296	
==>d = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551503	551597	
==>d = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554055	554149	
==>d = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555452	555546	
==>d = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558107	558201	
==>d = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559491	559585	
==>d = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\ <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2668	2768	
==>ht->sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ Name => ' <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2545	2645	
==>ht->sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ Name => ' <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2920	3020	
==>ht->sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ Name => ' <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3594	3694	
==>ht->sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ Name => ' <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3684	3784	
==>ht->sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ Name => ' <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5465	5561	
==>ht->sax($handler);
  $handler->end_element({ Name => 'op' });
  $handler->end_element({ Name => ' <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3528	3624	
==>ht->sax($handler);
  $handler->end_element({ Name => 'op' });
  $handler->end_element({ Name => ' <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21491	21599	
==>turn;
}

sub _op_positive_p {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $retu <==
7	/Users/nnunley/parrot/tools/build/pmc2c.pl	16898	16996	
==>h of the passed files (which can be
found in the given directories). A '*.pmc' glob may also be pas <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18972	19066	
==>p_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self- <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19460	19554	
==>p_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self- <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19948	20042	
==>p_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self- <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20437	20531	
==>p_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self- <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20926	21020	
==>p_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self- <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385771	386102	
==>",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 45 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386902	387233	
==>",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 45 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388033	388364	
==>",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 45 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389165	389496	
==>",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 45 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390296	390627	
==>",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 45 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391428	391759	
==>",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 45 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392560	392891	
==>",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 45 <==
7	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	7917	8072	
==>>text_r}) > 150 ){
              DEBUG > 1 and print "    item-* is too long to be keepn'd.\n";
              last;
            }
          } elsif (@to_ung <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470562	470879	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471548	471865	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472535	472852	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473522	473839	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474512	474829	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475503	475820	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	451	548	
==>nt, @args) = @_;

  confess("Block (" . ref($block) . ") is not!") unless UNIVERSAL::isa($block, ' <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1289	1399	
==>eturn shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1280	1390	
==>eturn shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1169	1279	
==>eturn shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1628	1738	
==>eturn shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1764	1874	
==>eturn shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1407	1517	
==>eturn shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile <==
7	/Users/nnunley/parrot/config/auto/socklen_t.pm	705	809	
==>$self->set_result( $has_socklen_t ? 'yes' : 'no' );
    $conf->data->set(
        has_socklen_t   => $has <==
7	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16549	16718	
==>lt = new_tmp( $parser, 'pmc' );
                push @opcodes, new LocalDir( $parser,
                    'result' => $result,
                );
                push <==
7	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17128	17297	
==>lt = new_tmp( $parser, 'pmc' );
                push @opcodes, new LocalDir( $parser,
                    'result' => $result,
                );
                push <==
7	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10696	10860	
==>lt = new_tmp( $parser, 'pmc' );
                    push @opcodes,
                        new LocalDir( $parser, 'result' => $result, );
                    push <==
7	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15518	15639	
==>lt = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push <==
7	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18177	18298	
==>lt = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push <==
7	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19271	19392	
==>lt = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push <==
7	/Users/nnunley/parrot/languages/lua/Lua/build.pm	23232	23353	
==>lt = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264392	264672	
==>/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265246	265526	
==>/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266100	266380	
==>/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266955	267235	
==>/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299565	299841	
==>/cmp.ops\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300411	300687	
==>/cmp.ops\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301257	301533	
==>/cmp.ops\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213482	213763	
==>bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214423	214704	
==>bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215363	215644	
==>bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216304	216585	
==>bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217243	217524	
==>bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218183	218464	
==>bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219161	219442	
==>bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	425611	425912	
==>" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426497	426798	
==>" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427384	427685	
==>" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428270	428571	
==>" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429157	429458	
==>" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430043	430344	
==>" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430930	431231	
==>" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3028	3133	
==>f the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4786	4891	
==>f the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1950	2055	
==>f the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3202	3307	
==>f the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1241	1346	
==>f the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2951	3056	
==>f the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register <==
7	/Users/nnunley/parrot/lib/File/Which.pm	146	247	
==>EXPORT_OK = qw(where);

$File::Which::VERSION = '0.05';

use File::Spec;

my $Is_VMS    = ($^O eq 'VMS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260043	260317	
==>s\"\n    {{\@1}} = {{\@2}} == {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260895	261169	
==>s\"\n    {{\@1}} = {{\@2}} == {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261747	262021	
==>s\"\n    {{\@1}} = {{\@2}} == {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262600	262874	
==>s\"\n    {{\@1}} = {{\@2}} == {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290901	291171	
==>s\"\n  {{\@1}} = {{\@2}} == {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291747	292017	
==>s\"\n  {{\@1}} = {{\@2}} == {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292593	292863	
==>s\"\n  {{\@1}} = {{\@2}} == {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695617	695898	
==>ODE" => 781,
                  "ARGS" => [
                              "ic",
                              "ic",
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_r <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591530	591621	
==>me = readable_name(interpreter, {{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592740	592831	
==>me = readable_name(interpreter, {{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593950	594041	
==>me = readable_name(interpreter, {{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595161	595252	
==>me = readable_name(interpreter, {{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600173	600264	
==>me = readable_name(interpreter, {{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601249	601340	
==>me = readable_name(interpreter, {{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \ <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	423	525	
==>s;

use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new sec <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	431	533	
==>s;

use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new sec <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/Section/EditorPlugins.pm	462	564	
==>s;

use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new sec <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	440	542	
==>s;

use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new sec <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	400	502	
==>s;

use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new sec <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Ops.pm	403	505	
==>s;

use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new sec <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tests.pm	404	506	
==>s;

use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new sec <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385470	385807	
==>LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":bas <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386601	386938	
==>LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":bas <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387732	388069	
==>LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":bas <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388864	389201	
==>LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":bas <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389995	390332	
==>LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":bas <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391127	391464	
==>LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":bas <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392259	392596	
==>LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":bas <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180636	180900	
==>p.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, ' <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181532	181796	
==>p.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, ' <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182428	182692	
==>p.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, ' <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183323	183587	
==>p.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, ' <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184219	184483	
==>p.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, ' <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185115	185379	
==>p.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, ' <==
7	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	502	614	
==>$self->convert($tree, $ctx) ]);
    }
}

sub convert {
    my ($self, $tree, $ctx) = @_;

    my $type = ref($tre <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385441	385800	
==>=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386572	386931	
==>=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387703	388062	
==>=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388835	389194	
==>=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389966	390325	
==>=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391098	391457	
==>=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392230	392589	
==>=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099142	1099267	
==>{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100340	1100465	
==>{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101538	1101663	
==>{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102737	1102862	
==>{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1805	1896	
==>type;

  my $left_type;
  if (UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value::Ide <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1763	1854	
==>type;

  my $left_type;
  if (UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value::Ide <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1685	1776	
==>type;

  my $left_type;
  if (UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value::Ide <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458990	459314	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FL <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459977	460301	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FL <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460965	461289	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FL <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461953	462277	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FL <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462949	463273	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FL <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463946	464270	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FL <==
7	/Users/nnunley/parrot/lib/Test/Builder.pm	16365	16460	
==>t->cmp_ok($this, $type, $that, $name);

Works just like Test::More's cmp_ok().

    $Test->cmp_o <==
7	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4	94	
==>pyright (C) 2004-2006, The Perl Foundation.
# $Id: /parrot/lib/Parrot/IO/File.pm 20333 2006 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964971	965331	
==>{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FL <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965979	966339	
==>{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FL <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966987	967347	
==>{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FL <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967996	968356	
==>{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FL <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969004	969364	
==>{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FL <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970013	970373	
==>{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FL <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971022	971382	
==>{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FL <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180650	180911	
==>({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181546	181807	
==>({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182442	182703	
==>({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183337	183598	
==>({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184233	184494	
==>({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185129	185390	
==>({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' <==
7	/Users/nnunley/parrot/lib/Class/Struct.pm	13469	13564	
==>or to one of its subclasses. The element is not initialized
by default.

The accessor's argument <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353738	353980	
==>(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354483	354725	
==>(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355250	355492	
==>(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359432	359674	
==>(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360180	360422	
==>(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360950	361192	
==>(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
7	/Users/nnunley/parrot/tools/dev/parrotbench.pl	5704	5807	
==>program < 2 ) {
    print "WARNING: Switching percentage to time - not enough executables\n";
    $cfg{u <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54331	54616	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fu <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55090	55375	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fu <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55850	56135	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fu <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56611	56896	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fu <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57373	57658	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fu <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58134	58419	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fu <==
7	/Users/nnunley/parrot/tools/dev/lib_deps.pl	7143	7240	
==>ferenced_in{$_}}) . ")\n" foreach (@non_ansi_external_symbols);
}

    
__END__
# The following sy <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841078	841321	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841841	842084	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842605	842848	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843482	843725	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844360	844603	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845238	845481	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
7	/Users/nnunley/parrot/languages/lua/Lua/build.pm	3666	3844	
==>onstDir( $parser,
                'prolog' => 1,
                'result' => $defn,
                'arg1'   => $value,
                'type'   => 'LuaString',
            ) <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586955	587242	
==>3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_AD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588141	588428	
==>3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_AD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589327	589614	
==>3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_AD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590514	590801	
==>3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_AD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591723	592010	
==>3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_AD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592933	593220	
==>3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_AD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594143	594430	
==>3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_AD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	425359	425613	
==>t(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673764	674018	
==>t(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682299	682553	
==>t(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733717	733969	
==>t(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734481	734733	
==>t(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742786	743038	
==>t(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743552	743804	
==>t(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084839	1085195	
==>,
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085892	1086248	
==>,
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086945	1087301	
==>,
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087999	1088355	
==>,
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090953	1091309	
==>,
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1092013	1092369	
==>,
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
7	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	30937	31041	
==>e, $trymatch, $backup, $num_groups ]);

    my @declarations;
    while (my ($var, $type) = each %{ $self <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11155	11264	
==>he list without a range, so that this can work right on
        #  all charsets that this module happens to ru <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16995	17104	
==>he list without a range, so that this can work right on
        #  all charsets that this module happens to ru <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4503	4611	
==>he list without a range, so that this can work right on
       #  all charsets that this module happens to ru <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1996	2101	
==>he list without a range, so that this can work right on
    #  all charsets that this module happens to ru <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10419	10524	
==>he list without a range, so that this can work right on
    #  all charsets that this module happens to ru <==
7	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2099	2204	
==>he list without a range, so that this can work right on
    #  all charsets that this module happens to ru <==
7	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	19166	19263	
==>IRCODE;
INS_NOT_FOUND_ERROR:
    ex = new Exception
	err = "Attempt to translate unknown instructi <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203183	203511	
==>base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 240,
                  "ARGS" => [
                              "sc" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746777	747063	
==>( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747561	747847	
==>( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748346	748632	
==>( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749129	749415	
==>( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749913	750199	
==>( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750696	750982	
==>( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27999	28102	
==>t::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Pa <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30073	30176	
==>t::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Pa <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32274	32377	
==>t::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Pa <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34870	34973	
==>t::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Pa <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41980	42083	
==>t::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Pa <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74531	74632	
==>t::lastexpected
		    && !$Parse::RecDescent::failed++) {
			$Parse::RecDescent::expected
			    = $Pa <==
7	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	875	972	
==>n't pass a C<compiler> argument pair, the harness will run the tests
with C<perl>.  If you I<do> p <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12062	12156	
==>ackFile/ConstTable.pm.html being turned into
        # Parrot/PackFile%2FConstTable.pm.html and <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830144	830406	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TY <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830884	831146	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TY <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831625	831887	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TY <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832352	832614	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TY <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833080	833342	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TY <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833802	834064	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TY <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834527	834789	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TY <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847616	847871	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848395	848650	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849175	849430	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850061	850316	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850948	851203	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851835	852090	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGD <==
7	/Users/nnunley/parrot/lib/Test/More.pm	29075	29186	
==>lar.
    local %Refs_Seen = %Refs_Seen;

    {
        # Quiet uninitialized value warnings when comparing undef <==
7	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4876	4968	
==>to_offset($offset)>

Transforms the C<goto OFFSET($offset)> macro in an ops file into the
rel <==
7	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1821	1913	
==>to_offset($offset)>

Transforms the C<goto OFFSET($offset)> macro in an ops file into the
rel <==
7	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2470	2562	
==>to_offset($offset)>

Transforms the C<goto OFFSET($offset)> macro in an ops file into the
rel <==
7	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2189	2281	
==>to_offset($offset)>

Transforms the C<goto OFFSET($offset)> macro in an ops file into the
rel <==
7	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2150	2242	
==>to_offset($offset)>

Transforms the C<goto OFFSET($offset)> macro in an ops file into the
rel <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947016	947105	
==>> "#line 526 \"src/ops/string.ops\"\n  INTVAL n = Parrot_charset_number(interpreter, {{\@2 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947918	948007	
==>> "#line 526 \"src/ops/string.ops\"\n  INTVAL n = Parrot_charset_number(interpreter, {{\@2 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595688	595985	
==>"FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 675,
                  "A <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099131	1099261	
==>AL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100329	1100459	
==>AL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101527	1101657	
==>AL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102726	1102856	
==>AL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\ <==
7	/Users/nnunley/parrot/config/inter/progs.pm	2042	2142	
==>your linker?", $link) if $ask;
    $conf->data->set(link => $link);

    $ld = integrate($conf->data- <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	888	978	
==>onfess "Value (" . ref($value) . ") is not!" unless UNIVERSAL::isa($value, qw(Jako::Constru <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262903	263220	
==>=> 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263849	264166	
==>=> 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264702	265019	
==>=> 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265556	265873	
==>=> 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266410	266727	
==>=> 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
7	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	34	204	
==>b;
{

    sub new {
        my $proto    = shift;
        my $class    = ref($proto) || $proto;
        my ($parser) = @_;
        my $self     = {};
        bless <==
7	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10462	10583	
==>($_, $_);
        }
        push @ranges, [ ord($first), ord($last) ];
    }

    return _ranges_to_incexc(\@ranges);
}

s <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31944	32069	
==>parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". j <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33521	33646	
==>parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". j <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38538	38663	
==>parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". j <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40578	40703	
==>parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". j <==
7	/Users/nnunley/parrot/config/init/hints/freebsd.pm	1021	1121	
==>red_alias  => 'libparrot$(SHARE_EXT)',
        libparrot_soname        => '-Wl,-soname=libparrot$(SHA <==
7	/Users/nnunley/parrot/config/init/hints/linux.pm	1859	1959	
==>red_alias  => 'libparrot$(SHARE_EXT)',
        libparrot_soname        => '-Wl,-soname=libparrot$(SHA <==
7	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3062	3154	
==>tecode, but goto OFFSET(n) returns a pointer into the
prederef array. (see expr_pop(), above, <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133221	133476	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134001	134256	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134782	135037	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135675	135930	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136569	136824	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGD <==
7	/Users/nnunley/parrot/config/init/hints/solaris.pm	1901	2010	
==>PIC for Sun's compiler, -fPIC for
    # gcc.  We don't know which compiler we're using till after the
    # gc <==
7	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	7992	8091	
==>NOTB;
@codef	noop
	_screen_color($resultf)	# Broke!
FNOTB
	}
}
sub parse_cls {
	if (! $type[NEXT] =~ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396210	396551	
==>}\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397290	397631	
==>}\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398370	398711	
==>}\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399451	399792	
==>}\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400531	400872	
==>}\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401612	401953	
==>}\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402693	403034	
==>}\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772895	773192	
==>"set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 87 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773804	774101	
==>"set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 87 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774714	775011	
==>"set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 87 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775624	775921	
==>"set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 87 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776535	776832	
==>"set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 87 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777443	777740	
==>"set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 87 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778352	778649	
==>"set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 87 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779261	779558	
==>"set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 88 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780171	780468	
==>"set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 88 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781079	781376	
==>"set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 88 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781988	782285	
==>"set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 88 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782897	783194	
==>"set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 88 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783807	784104	
==>"set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 88 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784712	785009	
==>"set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 88 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667023	667348	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667796	668121	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668570	668895	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669341	669666	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670113	670438	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670885	671210	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671658	671983	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8801	8927	
==>kindex {
    my $self = shift;
    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsi <==
7	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8461	8587	
==>kindex {
    my $self = shift;
    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsi <==
7	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2873	2966	
==>head1 SEE ALSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot <==
7	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	6327	6420	
==>head1 SEE ALSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot <==
7	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4543	4636	
==>head1 SEE ALSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot <==
7	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4520	4613	
==>head1 SEE ALSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot <==
7	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3904	3997	
==>head1 SEE ALSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264412	264706	
==>1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265266	265560	
==>1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266120	266414	
==>1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266975	267269	
==>1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299583	299875	
==>1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300429	300721	
==>1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301275	301567	
==>1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385429	385771	
==>\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386560	386902	
==>\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387691	388033	
==>\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388823	389165	
==>\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389954	390296	
==>\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391086	391428	
==>\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392218	392560	
==>\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103000	103293	
==>> [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 128,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 135 \"src/ops/bit. <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540624	540746	
==>n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)> <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541876	541998	
==>n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)> <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543128	543250	
==>n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)> <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544411	544533	
==>n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)> <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545747	545869	
==>n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)> <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547083	547205	
==>n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)> <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351047	351312	
==>=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351709	351974	
==>=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352366	352631	
==>=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353024	353289	
==>=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353768	354033	
==>=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354513	354778	
==>=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360980	361245	
==>=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_i <==
7	/Users/nnunley/parrot/tools/build/headerize.pl	271	363	
==>eaders in F<include/parrot> with the function declarations in
the F<*.pmc> or F<*.c> files th <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	244	340	
==>0T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expressi <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	243	339	
==>0T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expressi <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	245	341	
==>0T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expressi <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	247	343	
==>0T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expressi <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	247	343	
==>0T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expressi <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	245	341	
==>0T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expressi <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	255	351	
==>0T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expressi <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471276	471548	
==>ide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472263	472535	
==>ide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473250	473522	
==>ide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474240	474512	
==>ide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475231	475503	
==>ide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476222	476494	
==>ide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	1558	1649	
==>e document. This splits up the long C<do_middle()>
method in C<Pod:Simple::HTML>, calling th <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2976	3078	
==>e for each pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) { <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4734	4836	
==>e for each pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) { <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1898	2000	
==>e for each pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) { <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3150	3252	
==>e for each pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) { <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1189	1291	
==>e for each pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) { <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2899	3001	
==>e for each pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) { <==
7	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2241	2333	
==>I<attrname> attribute for this start-token object to
I<newvalue>.  You probably won't need to <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471284	471555	
==>ero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472271	472542	
==>ero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473258	473529	
==>ero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474248	474519	
==>ero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475239	475510	
==>ero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476230	476501	
==>ero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
7	/Users/nnunley/parrot/tools/dev/parrot_api.pl	5360	5464	
==>K\n", $api, $API{$api} || "-";
    }
}

printf "=== $Obj: %d interfaces ===\n", scalar keys %API;

my @AP <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72825	72916	
==>rror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not fo <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74427	74518	
==>rror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not fo <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76029	76120	
==>rror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not fo <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77632	77723	
==>rror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not fo <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79153	79244	
==>rror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not fo <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80674	80765	
==>rror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not fo <==
7	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4441	4520	
==>config|(?:core_pmcs|exec_(?:cpu|dep)|fingerprint|jit_(?:cpu|emit)|nci|platform(? <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964979	965368	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIR <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965987	966376	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIR <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966995	967384	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIR <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968004	968393	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIR <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969012	969401	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIR <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970021	970410	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIR <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971030	971419	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIR <==
7	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	13909	14016	
==>=link>" title="Full smoke report">&raquo;</a></td>
          </tr>
          <tr class="details" id="details <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28032	28126	
==>::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse::RecDescent::lastexp <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30106	30200	
==>::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse::RecDescent::lastexp <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32307	32401	
==>::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse::RecDescent::lastexp <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34903	34997	
==>::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse::RecDescent::lastexp <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42013	42107	
==>::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse::RecDescent::lastexp <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74563	74656	
==>::RecDescent::failed++) {
			$Parse::RecDescent::expected
			    = $Parse::RecDescent::lastexp <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271131	271420	
==>} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271977	272266	
==>} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272823	273112	
==>} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273668	273957	
==>} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	274514	274803	
==>} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	275360	275649	
==>} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
7	/Users/nnunley/parrot/tools/dev/lib_deps.pl	13819	13950	
==>tf     stdio.h
sqrt        math.h
sqrtf       math.h
sqrtl       math.h
srand       stdlib.h
sscanf      stdio.h
stderr      stdio.h <==
7	/Users/nnunley/parrot/tools/build/nativecall.pl	12680	12788	
==>_ref}, "STRING *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_S($reg <==
7	/Users/nnunley/parrot/tools/build/nativecall.pl	12887	12995	
==>_ref}, "STRING *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_S($reg <==
7	/Users/nnunley/parrot/tools/build/nativecall.pl	13372	13480	
==>_ref}, "STRING *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_S($reg <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067025	1067130	
==>{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( (F <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068211	1068316	
==>{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( (F <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069397	1069502	
==>{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( (F <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070584	1070689	
==>{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( (F <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693041	693363	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694041	694363	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695041	695363	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696042	696364	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697042	697364	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698043	698365	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699044	699366	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "",
                  "ARGD <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13667	13762	
==>}

=item C<body($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31317	31412	
==>}

=item C<body($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32930	33025	
==>}

=item C<body($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34618	34713	
==>}

=item C<body($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35948	36043	
==>}

=item C<body($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37893	37988	
==>}

=item C<body($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39937	40032	
==>}

=item C<body($method, $line, $out_name)>

Returns the C code for the method body. C<$line> is <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710039	710312	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":ba <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718183	718456	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":ba <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719115	719388	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":ba <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720314	720587	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":ba <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721514	721787	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":ba <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722542	722815	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":ba <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723571	723844	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":ba <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93356	93589	
==>reter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94136	94369	
==>reter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109680	109913	
==>reter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110459	110692	
==>reter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133885	134118	
==>reter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134666	134899	
==>reter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
7	/Users/nnunley/parrot/config/inter/progs.pm	3082	3178	
==>-libpath:\S+//g;   # XXX No idea why.
    $ldflags = integrate($ldflags, $conf->options->get('ldf <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597364	597515	
==>,
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598410	598561	
==>,
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599457	599608	
==>,
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600532	600683	
==>,
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143554	143648	
==>/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144482	144576	
==>/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145410	145504	
==>/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480739	480831	
==>r, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@2} <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481742	481834	
==>r, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@2} <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482745	482837	
==>r, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@2} <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344484	344574	
==>@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345726	345816	
==>@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346968	347058	
==>@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348211	348301	
==>@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\ <==
7	/Users/nnunley/parrot/config/gen/makefiles.pm	219	315	
==>ious F<Makefile>s and other files needed to build Parrot.

=cut

package gen::makefiles;

use str <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480823	481129	
==>or({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481826	482132	
==>or({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482829	483135	
==>or({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483827	484133	
==>or({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484826	485132	
==>or({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485825	486131	
==>or({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
7	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	6153	6307	
==>CONDITIONED_LINE\(([^)]+)\):(.*)/s) {
                next if $conf->data->get($1);
                $line = $2;
            }
        }

        # interopl <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439591	439926	
==>terpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440606	440941	
==>terpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441620	441955	
==>terpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442635	442970	
==>terpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443649	443984	
==>terpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444664	444999	
==>terpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	445678	446013	
==>terpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31638	31743	
==>self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33215	33320	
==>self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34926	35031	
==>self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36229	36334	
==>self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38176	38281	
==>self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40272	40377	
==>self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted <==
7	/Users/nnunley/parrot/lib/Test/Builder.pm	14122	14223	
==>$Level = $Level + 1;
    $self->_regex_ok($this, $regex, '!~', $name);
}

=item B<maybe_regex>

  $Tes <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515958	516281	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":ba <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519766	520089	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":ba <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520621	520944	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":ba <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	521476	521799	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":ba <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522330	522653	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":ba <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523185	523508	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":ba <==
7	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	31732	31869	
==>tor' => 46,
			'args' => 52,
			'key' => 53
		}
	},
	{#State 109
		ACTIONS => {
			"," => 151
		},
		DEFAULT => -9
	},
	{#State <==
7	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10018	10119	
==>s[$$stack[-1][0]]{ACTIONS}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Pop st <==
7	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9570	9668	
==>s[$$stack[-1][0]]{ACTIONS}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Pop st <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	7351	7446	
==>et);
}

=item C<process_data_start_token($token)>

Processes a data start token.

=cut

sub proc <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332669	332763	
==>ults from string_to_cstring() need freeing\n     but this generates ugly warnings WRT discardin <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333947	334041	
==>ults from string_to_cstring() need freeing\n     but this generates ugly warnings WRT discardin <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335225	335319	
==>ults from string_to_cstring() need freeing\n     but this generates ugly warnings WRT discardin <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336504	336598	
==>ults from string_to_cstring() need freeing\n     but this generates ugly warnings WRT discardin <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667068	667355	
==>MP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667841	668128	
==>MP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668615	668902	
==>MP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669386	669673	
==>MP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670158	670445	
==>MP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670930	671217	
==>MP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671703	671990	
==>MP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1300	1414	
==>->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compi <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1291	1405	
==>->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compi <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1180	1294	
==>->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compi <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1639	1753	
==>->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compi <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1775	1889	
==>->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compi <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1418	1532	
==>->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compi <==
7	/Users/nnunley/parrot/lib/Parrot/Op.pm	3146	3251	
==>y $self = shift;

    return $self->{CODE};
}

=item C<type()>

The type of the op, either 'inline' or 'fu <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31808	31900	
==>f->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_n <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33385	33477	
==>f->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_n <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35096	35188	
==>f->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_n <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36399	36491	
==>f->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_n <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38346	38438	
==>f->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_n <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40442	40534	
==>f->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_n <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29765	29853	
==>f->{has_method}{$meth};
    return $self->SUPER::body($self->{methods}[$n], $line, $out_n <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432535	432873	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433550	433888	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434564	434902	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435579	435917	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436593	436931	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437608	437946	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix", <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36470	36576	
==>ds}[$n], $line, $out_name);
    }
    my $decl = $self->decl($self->{class}, $method, 0);
    my $ret = gen <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051845	1052199	
==>i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1175,
                  "ARGS" => [
                              "p",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 172 \ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470539	470748	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471525	471734	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472512	472721	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473499	473708	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474489	474698	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475480	475689	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
7	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	4309	4410	
==>ame($name);
    }
    
    return $dir->existing_file_with_name($module);
}

=item C<docs_directory()> <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	985	1080	
==>nless UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BL <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	997	1092	
==>nless UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BL <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	915	1010	
==>nless UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BL <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	753	848	
==>nless UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BL <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	906	1001	
==>nless UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BL <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	795	890	
==>nless UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BL <==
7	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2388	2484	
==>iption, @todo)>

Runs the target string against the Perl 6 pattern, passing the test
if the outpu <==
7	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3822	3918	
==>iption, @todo)>

Runs the target string against the Perl 6 pattern, passing the test
if the outpu <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	810	900	
==>isa($left, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($right) . ") is <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	648	738	
==>isa($left, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($right) . ") is <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	801	891	
==>isa($left, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($right) . ") is <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	690	780	
==>isa($left, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($right) . ") is <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	639	729	
==>isa($left, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($right) . ") is <==
7	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	6327	6448	
==>op = shift;
    my %start;
    foreach (@{ $op->{args} }) {
        @start{$_->startset()} = ();
    }
    return Regex::O <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28063	28159	
==>Parse::RecDescent::expected
				   = $Parse::RecDescent::lastexpected;
				$Parse::RecDescent::un <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30137	30233	
==>Parse::RecDescent::expected
				   = $Parse::RecDescent::lastexpected;
				$Parse::RecDescent::un <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32338	32434	
==>Parse::RecDescent::expected
				   = $Parse::RecDescent::lastexpected;
				$Parse::RecDescent::un <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34934	35030	
==>Parse::RecDescent::expected
				   = $Parse::RecDescent::lastexpected;
				$Parse::RecDescent::un <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42044	42140	
==>Parse::RecDescent::expected
				   = $Parse::RecDescent::lastexpected;
				$Parse::RecDescent::un <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74593	74688	
==>Parse::RecDescent::expected
			    = $Parse::RecDescent::lastexpected;
			$Parse::RecDescent::un <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374120	374464	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375003	375347	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375886	376230	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376770	377114	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377653	377997	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378537	378881	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379421	379765	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213538	213836	
==>VE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214479	214777	
==>VE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215419	215717	
==>VE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216360	216658	
==>VE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217299	217597	
==>VE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218239	218537	
==>VE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219217	219515	
==>VE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	37222	37322	
==>ring'   => \&_op_make_string,
  'string'        => \&_op_string,
  'string-length' => \&_op_string_le <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197371	197643	
==>@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198268	198540	
==>@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199165	199437	
==>@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200061	200333	
==>@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200958	201230	
==>@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201855	202127	
==>@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
7	/Users/nnunley/parrot/languages/python/pie-thon.pl	28639	28757	
==>= "Foo"
EOC
	$throw = "throw $x # TODO create, args";
    }
    print <<EOC;
	$throw $cmt
EOC
}
sub GET_ITER
{
    my ( <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	2230	2354	
==>}

sub left      { return shift->{LEFT};  }
sub op        { return shift->{OP};    }
sub right     { return shift->{RIGHT}; } <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1274	1393	
==>}
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# c <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1265	1384	
==>}
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# c <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1154	1273	
==>}
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# c <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1613	1732	
==>}
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# c <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1749	1868	
==>}
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# c <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1392	1511	
==>}
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# c <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22066	22168	
==>$self->_add_inst(''           ,'lt'    ,[$temp,0,"DONE_$label"]);
  $self->_restore($temp);
  $self->_a <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692959	693304	
==>\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693959	694304	
==>\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694959	695304	
==>\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695960	696305	
==>\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696960	697305	
==>\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697961	698306	
==>\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698962	699307	
==>\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492782	493033	
==>tval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493543	493794	
==>tval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499517	499768	
==>tval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500280	500531	
==>tval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
7	/Users/nnunley/parrot/config/inter/libparrot.pm	1634	1755	
==>>data->get('rpath')
          .  $conf->data->get('build_dir')
          .  $conf->data->get('slash')
          .  $con <==
7	/Users/nnunley/parrot/lib/Text/Balanced.pm	12389	12498	
==>my $pre        = defined $_[2] ? $_[2] : '\s*';
	my $ldel_outer = defined $_[3] ? $_[3] : $ldel_inner;
	my $rd <==
7	/Users/nnunley/parrot/tools/build/nativecall.pl	2988	3092	
==>&st, return_data);",
       c => "set_nci_I(interpreter, &st, return_data);",
       4 => "set_nci_I(inte <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061976	1062259	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062845	1063128	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063714	1063997	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064584	1064867	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065457	1065740	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" <==
7	/Users/nnunley/parrot/config/init/defaults.pm	746	865	
==>g') ? 1 : 0,
        optimize  => '',
        verbose   => $conf->options->get('verbose'),
        build_dir => $FindBin <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	6906	7013	
==>ed"} = 1;
	return 1;
}

sub addautoscore
{
	my ( $self, $code ) = @_;
	$self->{"autoscore"} = $code;
	$self- <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31804	31898	
==>$self->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33381	33475	
==>$self->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35092	35186	
==>$self->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36395	36489	
==>$self->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38342	38436	
==>$self->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40438	40532	
==>$self->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29761	29851	
==>$self->{has_method}{$meth};
    return $self->SUPER::body($self->{methods}[$n], $line, $out <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851177	851596	
==>e",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 966,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic"
                            ], <==
7	/Users/nnunley/parrot/config/init/hints/irix.pm	141	248	
==>hinits::irix;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    my $ccflags = $conf->data->get('c <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632625	632717	
==>(%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633667	633759	
==>(%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080519	1080611	
==>(%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081584	1081676	
==>(%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082649	1082741	
==>(%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083715	1083807	
==>(%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822480	822755	
==>ntry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookbac <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823548	823823	
==>ntry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookbac <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824618	824893	
==>ntry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookbac <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825689	825964	
==>ntry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookbac <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826758	827033	
==>ntry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookbac <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827828	828103	
==>ntry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookbac <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828895	829170	
==>ntry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookbac <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	425561	425841	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426447	426727	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427334	427614	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428220	428500	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429107	429387	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429993	430273	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430880	431160	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431766	432140	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432780	433154	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433795	434169	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434809	435183	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435824	436198	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436838	437212	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437853	438227	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949898	950141	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950857	951100	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951817	952060	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952777	953020	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833537	833620	
==>stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834259	834342	
==>stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834985	835068	
==>stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539792	540109	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541043	541360	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542295	542612	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066334	1066651	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067519	1067836	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068705	1069022	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069891	1070208	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221924	222168	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_co <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222866	223110	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_co <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223807	224051	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_co <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224749	224993	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_co <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225689	225933	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_co <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226630	226874	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_co <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227609	227853	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_co <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717416	717704	
==>( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718347	718635	
==>( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719279	719567	
==>( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720478	720766	
==>( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721678	721966	
==>( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722706	722994	
==>( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723735	724023	
==>( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	675558	675843	
==>> 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676337	676622	
==>> 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677117	677402	
==>> 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677894	678179	
==>> 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678672	678957	
==>> 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679450	679735	
==>> 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680229	680514	
==>> 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
7	/Users/nnunley/parrot/tools/build/c2str.pl	2126	2222	
==>rocessor
	next unless s/.*\bCONST_STRING\s*\(\w+\s*,//;

	if ($lines_seen{$line}++) {
	    die "S <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550220	550312	
==>d_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_except <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551521	551613	
==>d_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_except <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554073	554165	
==>d_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_except <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555470	555562	
==>d_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_except <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558125	558217	
==>d_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_except <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559509	559601	
==>d_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_except <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95019	95326	
==>}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "b <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95912	96219	
==>}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "b <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96805	97112	
==>}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "b <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111341	111648	
==>}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "b <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112233	112540	
==>}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "b <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135550	135857	
==>}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "b <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136444	136751	
==>}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "b <==
7	/Users/nnunley/parrot/languages/regex/regex.pl	1096	1201	
==>ined $expr && ! defined $expr_file) {
    die "need expression!";
}

if (defined $expr_file) {
    local * <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644082	644336	
==>type_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644975	645229	
==>type_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	360	474	
==>Jako::Construct::Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  return bless {
    TOKEN    => $toke <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	357	471	
==>Jako::Construct::Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  return bless {
    TOKEN    => $toke <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	348	462	
==>Jako::Construct::Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  return bless {
    TOKEN    => $toke <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	357	471	
==>Jako::Construct::Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  return bless {
    TOKEN    => $toke <==
7	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	2609	2720	
==>a};
	$self
}

sub add(@) {
	my $self = shift;
	$self->{data} .= join'', @_;
	$self
}

sub addfile {
  	my ($self <==
7	/Users/nnunley/parrot/tools/dev/parrot_api.pl	559	651	
==>+)\(/>), then finds
out the visible symbols in the Parrot lib (by default
F<blib/lib/libparro <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550184	550272	
==>ter->current_method = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth) <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551485	551573	
==>ter->current_method = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth) <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554037	554125	
==>ter->current_method = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth) <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555434	555522	
==>ter->current_method = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth) <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558089	558177	
==>ter->current_method = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth) <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559473	559561	
==>ter->current_method = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth) <==
7	/Users/nnunley/parrot/tools/build/jit2c.pl	10958	11097	
==>\s*
        {{\@2}}
        \);
        \s+{{\+=\d}}/xm) {
            $jit_func = 'Parrot_jit_vtable1r_op';
            $extern = vtable_nu <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27987	28081	
==>e::RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent:: <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30061	30155	
==>e::RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent:: <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32262	32356	
==>e::RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent:: <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34858	34952	
==>e::RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent:: <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41968	42062	
==>e::RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent:: <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74519	74611	
==>e::RecDescent::lastexpected
		    && !$Parse::RecDescent::failed++) {
			$Parse::RecDescent:: <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63723	63888	
==>line,
										   $self,
										   $matchrule,
										   $argcode);
										   
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$ <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63016	63167	
==>line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$ <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64453	64604	
==>line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$ <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65108	65259	
==>line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$ <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65768	65919	
==>line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$ <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	66487	66638	
==>line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$ <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62384	62530	
==>line,
									   $self,
									   $matchrule,
									   $argcode);
					$prod and $prod->additem($item)
					      or  _no_rule("repetition",$ <==
7	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	17109	17239	
==>$counter, 0 ]),
                 @N_ops,
         $try => $self->dbprint("matching dynalt[%<$counter>]\n"),
                 @R_ops <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72822	72912	
==>dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' no <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74424	74514	
==>dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' no <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76026	76116	
==>dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' no <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77629	77719	
==>dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' no <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79150	79240	
==>dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' no <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80671	80761	
==>dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' no <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605156	605430	
==>\@2}}, {{\@1}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	99650	99922	
==>\@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104096	104368	
==>\@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	252211	252483	
==>\@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450142	450414	
==>\@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	512546	512818	
==>\@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6412	6512	
==>ere.
  return $sym if defined $sym;

  return undef unless defined $self->block; # Terminate recursio <==
7	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	7221	7384	
==>1;
            }
        }

        # instruction or pir
        elsif (/^(instruction|pir)$/) {
            if ($has_trans) {
                die "Only one of inst <==
7	/Users/nnunley/parrot/config/auto/socklen_t.pm	308	398	
==>use base qw(Parrot::Configure::Step::Base);

use Config;

use Parrot::Configure::Step ':aut <==
7	/Users/nnunley/parrot/config/auto/bc.pm	435	524	
==>use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Configure::Step ':aut <==
7	/Users/nnunley/parrot/config/auto/gdbm.pm	380	469	
==>use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Configure::Step ':aut <==
7	/Users/nnunley/parrot/config/auto/gmp.pm	334	423	
==>use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Configure::Step ':aut <==
7	/Users/nnunley/parrot/config/auto/m4.pm	409	498	
==>use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Configure::Step ':aut <==
7	/Users/nnunley/parrot/config/auto/readline.pm	341	430	
==>use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Configure::Step ':aut <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	675341	675704	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676120	676483	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676900	677263	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677677	678040	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678455	678818	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679233	679596	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680012	680375	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i", <==
7	/Users/nnunley/parrot/tools/build/nativecall.pl	10982	11091	
==>ps_ref}, "PMC *t_$temp_num;";
        push @{$extra_preamble_ref},
             "t_$temp_num = GET_NCI_P($reg_ <==
7	/Users/nnunley/parrot/tools/build/nativecall.pl	9994	10102	
==>ps_ref}, "PMC *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_P($reg_ <==
7	/Users/nnunley/parrot/tools/build/nativecall.pl	10386	10494	
==>ps_ref}, "PMC *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_P($reg_ <==
7	/Users/nnunley/parrot/tools/build/nativecall.pl	11585	11693	
==>ps_ref}, "PMC* t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_P($reg_ <==
7	/Users/nnunley/parrot/tools/build/nativecall.pl	13149	13257	
==>ps_ref}, "PMC *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_P($reg_ <==
7	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	902	1007	
==>pp module for use and distribution rights)
#

package Parse::Yapp::Driver;

require 5.004;

use str <==
7	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	877	975	
==>pp module for use and distribution rights)
#

package Parse::Yapp::Driver;

require 5.004;

use str <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830163	830447	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830903	831187	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831644	831928	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832371	832655	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833099	833383	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833821	834105	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834546	834830	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63769	63908	
==>ule,
										   $argcode);
										   
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$line,"$code$argcode( <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63062	63187	
==>ule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$line,"$code$argcode( <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64499	64624	
==>ule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$line,"$code$argcode( <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65154	65279	
==>ule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$line,"$code$argcode( <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65814	65939	
==>ule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$line,"$code$argcode( <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	66533	66658	
==>ule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$line,"$code$argcode( <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62428	62550	
==>ule,
									   $argcode);
					$prod and $prod->additem($item)
					      or  _no_rule("repetition",$line,"$code$argcode( <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478380	478644	
==>FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 548,
                  "ARGS" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550268	550366	
==>meth);\n  if (!method_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Meth <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551569	551667	
==>meth);\n  if (!method_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Meth <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554121	554219	
==>meth);\n  if (!method_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Meth <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555518	555616	
==>meth);\n  if (!method_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Meth <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558173	558271	
==>meth);\n  if (!method_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Meth <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559557	559655	
==>meth);\n  if (!method_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Meth <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258370	258660	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259313	259603	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260164	260454	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261016	261306	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261868	262158	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
7	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	23861	23963	
==>b rewrite_nongreedy_plus {
    my ($self, $op, $R, $lastback) = @_;

    my $back = $self->genlabel('pl <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29002	29104	
==>$_[0];

	my $pattern = $_[1];

	my $desc = $pattern;
	$desc=~s/\\/\\\\/g;
	$desc=~s/}/\\}/g;
	$desc=~s/ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710005	710307	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718149	718451	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719081	719383	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720280	720582	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721480	721782	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722508	722810	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723537	723839	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385435	385794	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FL <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386566	386925	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FL <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387697	388056	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FL <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388829	389188	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FL <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389960	390319	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FL <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391092	391451	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FL <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392224	392583	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FL <==
7	/Users/nnunley/parrot/lib/Pod/Simple.pm	13155	13272	
==>s at a time
      local $/ = $NL;
      push @lines, scalar(<$source>);  # readline
      last unless defined $lines[- <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27996	28098	
==>cent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30070	30172	
==>cent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32271	32373	
==>cent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34867	34969	
==>cent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41977	42079	
==>cent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74528	74628	
==>cent::lastexpected
		    && !$Parse::RecDescent::failed++) {
			$Parse::RecDescent::expected
			    = <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31781	31884	
==>th)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33358	33461	
==>th)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35069	35172	
==>th)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36372	36475	
==>th)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38319	38422	
==>th)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40415	40518	
==>th)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n <==
7	/Users/nnunley/parrot/lib/Parrot/Configure.pm	2589	2686	
==>ng the class name of the step register.  All other
parameters are saved and passed to the register <==
7	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	149	244	
==>return };

GetOptions(
  "smokeserv=s" =>
    \(my $smokeserv = "http://smoke.parrotcode.org/smo <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3424	3515	
==>ort"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${ST <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5186	5277	
==>ort"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${ST <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8098	8189	
==>ort"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${ST <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2171	2262	
==>ort"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${ST <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3423	3514	
==>ort"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${ST <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6052	6143	
==>ort"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${ST <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544198	544299	
==>< 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = a, save <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545534	545635	
==>< 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = a, save <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546870	546971	
==>< 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = a, save <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905339	905427	
==>\@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906358	906446	
==>\@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907377	907465	
==>\@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908397	908485	
==>\@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\ <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	516	612	
==>(" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess(" <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	492	588	
==>(" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess(" <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	507	603	
==>(" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess(" <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	396	492	
==>(" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess(" <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	494	590	
==>(" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess(" <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	494	590	
==>(" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess(" <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	483	579	
==>(" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess(" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374146	374469	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375029	375352	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375912	376235	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376796	377119	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377679	378002	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378563	378886	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379447	379770	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519720	520009	
==>"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520575	520864	
==>"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	521430	521719	
==>"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522284	522573	
==>"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523139	523428	
==>"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523994	524283	
==>"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
7	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	4118	4238	
==>)% of (\d+)(?: source)? lines executed in function (.*)/;
            if ($total_lines) {
                $function_line_ <==
7	/Users/nnunley/parrot/lib/Text/Balanced.pm	38054	38153	
==>The various options that can be specified are:

=over 4

=item C<reject =E<gt> $listref>

The list r <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584621	584712	
==>t\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(inte <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585696	585787	
==>t\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(inte <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586843	586934	
==>t\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(inte <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588029	588120	
==>t\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(inte <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589215	589306	
==>t\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(inte <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590402	590493	
==>t\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(inte <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196798	197095	
==>ELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197694	197991	
==>ELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198591	198888	
==>ELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199488	199785	
==>ELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200384	200681	
==>ELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201281	201578	
==>ELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
7	/Users/nnunley/parrot/tools/build/jit2c.pl	8035	8126	
==>AP
# define MAP(i) jit_info->optimizer->map_branch[jit_info->op_i + (i)]
#endif

extern PARR <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747311	747532	
==>>set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748096	748317	
==>>set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753605	753826	
==>>set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754393	754614	
==>>set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324727	324947	
==>>set_integer_native(interpreter, {{\@1}},{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325520	325740	
==>>set_integer_native(interpreter, {{\@1}},{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
7	/Users/nnunley/parrot/lib/Pod/Escapes.pm	7287	7411	
==>9,
 'lfloor'   , 8970,
 'rfloor'   , 8971,
 'lang'     , 9001,
 'rang'     , 9002,
 'loz'      , 9674,
 'spades'   , 9824,
 ' <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454075	454352	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454929	455206	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455784	456061	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456639	456916	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457493	457770	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458348	458625	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
7	/Users/nnunley/parrot/tools/build/dynclasses.pl	1234	1320	
==>cast-qual -Wcast-align -Wwrite-strings -Waggregate-return -Winline -W -Wno-unused -Wsig <==
7	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	3102	3204	
==>$type[CURR];
			last unless $_;
			last if $_ =~ /STMT|COMM|COMP/;
			push @{$code{$seg}->{code}}, "$sy <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049589	1049886	
==>ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050622	1050919	
==>ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051656	1051953	
==>ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052690	1052987	
==>ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053725	1054022	
==>ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054851	1055148	
==>ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
7	/Users/nnunley/parrot/languages/lua/Lua/build.pm	13355	13564	
==>,
                    'arg2'   => undef,
                    'result' => $result,
                );
                return [ $result, \@opcodes, $assign ];
            }
        }
    }
}

sub BuildA <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350344	350636	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLA <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361836	362128	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLA <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362735	363027	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLA <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363637	363929	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLA <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364540	364832	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLA <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365379	365671	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLA <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366219	366511	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLA <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63717	63878	
==>head,$line,
										   $self,
										   $matchrule,
										   $argcode);
										   
						$prod and $prod->additem($item)
						      or  _no_rule("rep <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63010	63157	
==>head,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("rep <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64447	64594	
==>head,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("rep <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65102	65249	
==>head,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("rep <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65762	65909	
==>head,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("rep <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	66481	66628	
==>head,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule("rep <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62378	62520	
==>head,$line,
									   $self,
									   $matchrule,
									   $argcode);
					$prod and $prod->additem($item)
					      or  _no_rule("rep <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047467	1047769	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "N <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050347	1050649	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "N <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051381	1051683	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "N <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052415	1052717	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "N <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053450	1053752	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "N <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054576	1054878	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "N <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059271	1059573	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "N <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494444	494768	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "A <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495312	495636	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "A <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496180	496504	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "A <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497049	497373	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "A <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497919	498243	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "A <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498789	499113	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "A <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24376	24481	
==>lock, $target_token) if $target_token;

      my ($cond, $left, $op, $right);

      if ($self->get(1)->is <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221845	222128	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222787	223070	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223728	224011	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224670	224953	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225610	225893	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226551	226834	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227530	227813	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710879	711135	
==>=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711713	711969	
==>=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712819	713075	
==>=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713926	714182	
==>=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714848	715104	
==>=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715771	716027	
==>=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAG <==
7	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	6586	6691	
==>- The number of atoms we are currently guaranteed to have for
#      the current node (NOT for this node a <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173422	173705	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	174371	174654	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175320	175603	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176223	176506	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177127	177410	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178031	178314	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178936	179219	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_ <==
7	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	625	755	
==>thread/) {
        $libs .= ' -lpthread';
    }
    if ($libs !~ /-laio/) {
        $libs .= ' -laio';
    }
    $conf->data->set(l <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344177	344272	
==>ar * need to go away soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2}} <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345419	345514	
==>ar * need to go away soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2}} <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346661	346756	
==>ar * need to go away soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2}} <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347904	347999	
==>ar * need to go away soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2}} <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349072	349167	
==>ar * need to go away soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2}} <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350074	350169	
==>ar * need to go away soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2}} <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693000	693339	
==>S" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694000	694339	
==>S" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695000	695339	
==>S" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696001	696340	
==>S" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697001	697340	
==>S" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698002	698341	
==>S" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699003	699342	
==>S" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS" => "", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468039	468335	
==>GS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 537,
                  "ARGS" => [
                              "i <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28009	28112	
==>ected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse::RecDe <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30083	30186	
==>ected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse::RecDe <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32284	32387	
==>ected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse::RecDe <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34880	34983	
==>ected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse::RecDe <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41990	42093	
==>ected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse::RecDe <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74541	74642	
==>ected
		    && !$Parse::RecDescent::failed++) {
			$Parse::RecDescent::expected
			    = $Parse::RecDe <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63696	63875	
==>,
										   $lookahead,$line,
										   $self,
										   $matchrule,
										   $argcode);
										   
						$prod and $prod->additem($item)
						      or  _no_rule(" <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62989	63154	
==>,
										   $lookahead,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule(" <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64426	64591	
==>,
										   $lookahead,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule(" <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65081	65246	
==>,
										   $lookahead,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule(" <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65741	65906	
==>,
										   $lookahead,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule(" <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	66460	66625	
==>,
										   $lookahead,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_rule(" <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62358	62517	
==>,
									   $lookahead,$line,
									   $self,
									   $matchrule,
									   $argcode);
					$prod and $prod->additem($item)
					      or  _no_rule(" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721819	722177	
==>IRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 809,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 14 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061227	1061451	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061898	1062122	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062767	1062991	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063636	1063860	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064506	1064730	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065379	1065603	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
7	/Users/nnunley/parrot/lib/Pod/Simple.pm	5479	5561	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_ <==
7	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	9120	9202	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_ <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	380	462	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_ <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	379	461	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_ <==
7	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	321	403	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub _handle_ <==
7	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	318	400	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub _handle_ <==
7	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	574	656	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub _handle_ <==
7	/Users/nnunley/parrot/lib/Test/Builder.pm	34399	34501	
==>if( $self->{Curr_Test} > $self->{Expected_Tests} ) {
            my $num_extra = $self->{Curr_Test} - $ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	425374	425649	
==>{{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "in <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54885	55158	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "in <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55645	55918	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "in <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56406	56679	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "in <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57168	57441	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "in <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57929	58202	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "in <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490139	490412	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "in <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	2276	2406	
==>the
##                          stack for the file scope.
##
## NOTE: Do NOT access the block stack directly. Access it via routine <==
7	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	10026	10112	
==>html11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
<head>
  <title> <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374101	374433	
==>}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374984	375316	
==>}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375867	376199	
==>}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376751	377083	
==>}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377634	377966	
==>}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378518	378850	
==>}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379402	379734	
==>}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667066	667350	
==>JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667839	668123	
==>JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668613	668897	
==>JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669384	669668	
==>JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670156	670440	
==>JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670928	671212	
==>JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671701	671985	
==>JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351040	351302	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351702	351964	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352359	352621	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353017	353279	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353761	354023	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354506	354768	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360973	361235	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438917	439255	
==>" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439931	440269	
==>" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440946	441284	
==>" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441960	442298	
==>" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442975	443313	
==>" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443989	444327	
==>" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	445004	445342	
==>" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493769	494087	
==>( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494636	494954	
==>( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495504	495822	
==>( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496372	496690	
==>( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497241	497559	
==>( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498111	498429	
==>( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
7	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	194	284	
==>e File::Basename;

package Parrot::Test::ParrotCompiler;

=head1 NAME

Parrot/Test/ParrotCo <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471250	471400	
==>isionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472237	472387	
==>isionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473224	473374	
==>isionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474214	474364	
==>isionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475205	475355	
==>isionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476196	476346	
==>isionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2235	2340	
==>m/$push_num/g;
		$register_num++;
		$push_num++;
	}

	# Return generated code.
	return $pir;
}

sub post_o <==
7	/Users/nnunley/parrot/config/init/hints/mswin32.pm	7296	7404	
==>ld_share_flags       => '-shared ',
            libparrot_ldflags    => $conf->data->get('build_dir') . '/lib <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16397	16477	
==>\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ01234 <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16739	16819	
==>\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ01234 <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1862	1942	
==>\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ01234 <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9940	10020	
==>\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ01234 <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10183	10263	
==>\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ01234 <==
7	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1965	2045	
==>\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ01234 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061158	1061446	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDI <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062698	1062986	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDI <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063567	1063855	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDI <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064437	1064725	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDI <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065310	1065598	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDI <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	7535	7660	
==>),
            $self->c_pair_item('', 'smallobject'),
            $self->c_pair_item('', 'headers'),
        ),
        $self- <==
7	/Users/nnunley/parrot/editor/kate_syntax.pl	338	441	
==>to your Parrot directory as the only\n",
        "argument. The XML file will be written to the standard <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54359	54624	
==>MP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55118	55383	
==>MP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55878	56143	
==>MP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56639	56904	
==>MP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57401	57666	
==>MP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58162	58427	
==>MP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function", <==
7	/Users/nnunley/parrot/config/gen/core_pmcs.pm	1412	1517	
==>>data->get('pmc_names'));

    open(OUT, ">$file.tmp");

    print OUT <<"END_C";
/*
 * DO NOT EDIT THIS F <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596217	596482	
==>lass(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597110	597375	
==>lass(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
7	/Users/nnunley/parrot/languages/lua/Lua/build.pm	13294	13489	
==>yedSetOp( $parser,
                    'arg1'   => $key->[0],
                    'arg2'   => undef,
                    'result' => $result,
                );
                return [ $resu <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072835	1072961	
==>{{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "exper <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075020	1075146	
==>{{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "exper <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077205	1077331	
==>{{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "exper <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079391	1079517	
==>{{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "exper <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356062	356321	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FL <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356721	356980	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FL <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357381	357640	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FL <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358044	358303	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FL <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358708	358967	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FL <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359455	359714	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FL <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360203	360462	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FL <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1374	1474	
==>stack depth and a string for label gen and some
	# storage for stack depths and stack type states tha <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	461	561	
==>stack depth and a string for label gen and some
	# storage for stack depths and stack type states tha <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2069	2162	
==>MP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3321	3414	
==>MP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5950	6043	
==>MP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6508	6601	
==>MP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Ops.pm	40	126	
==>n.
# $Id: /parrot/lib/Parrot/Docs/Section/Ops.pm 20333 2006-06-21T18:44:31.111564Z bern <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565569	565767	
==>",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 194 \"src/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->can( <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31627	31738	
==>{
    my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get em <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33204	33315	
==>{
    my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get em <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34915	35026	
==>{
    my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get em <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36218	36329	
==>{
    my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get em <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38165	38276	
==>{
    my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get em <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40261	40372	
==>{
    my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get em <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470625	470923	
==>" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471611	471909	
==>" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472598	472896	
==>" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473585	473883	
==>" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474575	474873	
==>" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475566	475864	
==>" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
7	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	14414	14517	
==>ternate") ];
    push(@$ref, $_->reftree()) foreach (@{ $op->{args} });
    return $ref;
}

sub Regex::O <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218637	218834	
==>,
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 469 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540419	540520	
==>\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}} <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541671	541772	
==>\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}} <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542923	543024	
==>\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}} <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7834	7933	
==>t is preferred.

=cut

sub short_description
{
	my $self = shift;

	return '' unless $self->contains <==
7	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	1476	1569	
==>inal_pir($srm, $metavars);

# Finally, we need to insert auto-magically instantiated local var <==
7	/Users/nnunley/parrot/tools/dev/nm.pl	3061	3151	
==>ised data symbols (Dd)
--uninit|-u	uninitialised data symbols (Bb)
--local|-l	local symbols <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140396	140815	
==>re",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 172,
                  "ARGS" => [
                              "n",
                              "n",
                              "ic"
                            ] <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591482	591579	
==>}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    rea <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592692	592789	
==>}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    rea <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593902	593999	
==>}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    rea <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595113	595210	
==>}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    rea <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600125	600222	
==>}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    rea <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601201	601298	
==>}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    rea <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1097800	1098056	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "debug_brk",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343552	343795	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344793	345036	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346035	346278	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347277	347520	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348520	348763	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349521	349764	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459191	459366	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460178	460353	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461166	461341	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462154	462329	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463150	463325	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464147	464322	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
7	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	3777	3881	
==>int "The submitted smoke has an invalid format!";
    exit;
  }

  $smoke{runcore}   = runcore_from_args( <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454687	454976	
==>{{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455542	455831	
==>{{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456397	456686	
==>{{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457251	457540	
==>{{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458106	458395	
==>{{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458961	459250	
==>{{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
7	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1207	1308	
==>ackage BinaryOp;
use base qw(Lua::opcode);

package RelationalOp;
use base qw(Lua::opcode);

pac <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180114	180412	
==>" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181009	181307	
==>" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181905	182203	
==>" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182801	183099	
==>" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183696	183994	
==>" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184592	184890	
==>" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	1176	1272	
==>rns the "DO NOT EDIT THIS FILE" warning text. C<$pmcfile> is the name
of the original source F<*. <==
7	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1677	1931	
==>N5 - $N1;              # sub    N2, N5, N1
                              #
print "Elapsed time:  $N2\n"; # print  "Elapsed time:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = <==
7	/Users/nnunley/parrot/examples/mops/mops.pl	1677	1931	
==>N5 - $N1;              # sub    N2, N5, N1
                              #
print "Elapsed time:  $N2\n"; # print  "Elapsed time:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672993	673246	
==>er(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681524	681777	
==>er(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	35535	35786	
==>er(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739746	739997	
==>er(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752065	752316	
==>er(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837628	837941	
==>",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 949,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 240 \" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550326	550427	
==>er, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTABL <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551627	551728	
==>er, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTABL <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554179	554280	
==>er, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTABL <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555576	555677	
==>er, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTABL <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558231	558332	
==>er, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTABL <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559615	559716	
==>er, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTABL <==
7	/Users/nnunley/parrot/tools/dev/parrot_api.pl	2518	2617	
==>type
for it).

=head2 Data is not an API

Consider making the data const(ant), or moving it into the <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459024	459328	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460011	460315	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460999	461303	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461987	462291	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462983	463287	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463980	464284	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	2280	2376	
==>onstant { return shift->kind eq 'const'; }
sub is_variable { my $self = shift; return ($self->kin <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494414	494737	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":b <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495282	495605	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":b <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496150	496473	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":b <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497019	497342	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":b <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497889	498212	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":b <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498759	499082	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":b <==
7	/Users/nnunley/parrot/config/gen/config_h.pm	958	1062	
==>.in', 'include/parrot/feature.h',
        commentType   => '/*',
        ignorePattern => 'PARROT_CONFIG_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692971	693326	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693971	694326	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694971	695326	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695972	696327	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696972	697327	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697973	698328	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698974	699329	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746803	747068	
==>P" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747587	747852	
==>P" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748372	748637	
==>P" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749155	749420	
==>P" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749939	750204	
==>P" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750722	750987	
==>P" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13670	13777	
==>uring parsing)"
		         : $items[0]->describe =~ /<autoscore/
				? "an <autoscore> (which acts like an u <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426223	426536	
==>}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inf <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427110	427423	
==>}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inf <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427996	428309	
==>}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inf <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428883	429196	
==>}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inf <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429769	430082	
==>}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inf <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430656	430969	
==>}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inf <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431542	431855	
==>}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inf <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047501	1047784	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_g <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050381	1050664	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_g <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051415	1051698	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_g <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052449	1052732	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_g <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053484	1053767	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_g <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054610	1054893	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_g <==
7	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	18062	18225	
==>} = shift;
    }
    elsif (@_ == 3)
    {
        $self->{VERSION} = join('.', @_);
    }
    elsif (@_ == 0)
    {
        if (wantarray)
        {
            re <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730739	731014	
==>} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731475	731750	
==>} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735228	735503	
==>} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735964	736239	
==>} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741271	741546	
==>} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745831	746106	
==>} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746566	746841	
==>} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
7	/Users/nnunley/parrot/config/gen/makefiles.pm	6642	6801	
==>le',
        commentType                     => '#',
        replace_slashes                 => 1
    );
    genfile(
        'config/gen/makefiles/scheme.in' = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054503	1054616	
==>\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055630	1055743	
==>\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056521	1056634	
==>\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057413	1057526	
==>\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058305	1058418	
==>\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059198	1059311	
==>\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432516	432835	
==>{{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433531	433850	
==>{{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434545	434864	
==>{{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435560	435879	
==>{{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436574	436893	
==>{{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437589	437908	
==>{{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438603	438922	
==>{{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830141	830350	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830881	831090	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831622	831831	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832349	832558	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833077	833286	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833799	834008	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834524	834733	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047459	1047747	
==>);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050339	1050627	
==>);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051373	1051661	
==>);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052407	1052695	
==>);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053442	1053730	
==>);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054568	1054856	
==>);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059263	1059551	
==>);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359754	360048	
==>ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 421,
                  "ARGS" => [
                              "sc"
                            ],
                  "BODY" => "#line 250 \" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454078	454386	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454932	455240	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455787	456095	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456642	456950	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457496	457804	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458351	458659	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	588	676	
==>'', 
		$self->new_group('Documentation', '', 'docs/imcc'),
		$self->new_group('Examples', <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008655	1009001	
==>,
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1125,
                  "ARGS" => [
                              "s",
                              " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550323	550425	
==>reter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTA <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551624	551726	
==>reter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTA <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554176	554278	
==>reter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTA <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555573	555675	
==>reter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTA <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558228	558330	
==>reter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTA <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559612	559714	
==>reter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTA <==
7	/Users/nnunley/parrot/languages/python/pie-thon.pl	35210	35322	
==>k)->[1];
    print <<EOC;
	\t $cmt
	delete $dest\[ $vv .. $ww ]
EOC
    #push @stack, [-1, $dest, 'P'];
}
sub DEL <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2985	3091	
==>h pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= << <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4743	4849	
==>h pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= << <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1907	2013	
==>h pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= << <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3159	3265	
==>h pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= << <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1198	1304	
==>h pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= << <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2908	3014	
==>h pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= << <==
7	/Users/nnunley/parrot/tools/dev/nm.pl	7579	7714	
==>q 'darwin') {
		    $other = 1;
		}
		if ($nm_gnu) {
		    if ($type =~ /^[Rr]$/) {
			$const = 1;
			$init  = 1;
		    } elsif ($type = <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11189	11307	
==>his can work right on
        #  all charsets that this module happens to run under.
        # Altho, hmm, what about t <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17029	17147	
==>his can work right on
        #  all charsets that this module happens to run under.
        # Altho, hmm, what about t <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4537	4653	
==>his can work right on
       #  all charsets that this module happens to run under.
       # Altho, hmm, what about t <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2030	2140	
==>his can work right on
    #  all charsets that this module happens to run under.
    # Altho, hmm, what about t <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10453	10563	
==>his can work right on
    #  all charsets that this module happens to run under.
    # Altho, hmm, what about t <==
7	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2133	2243	
==>his can work right on
    #  all charsets that this module happens to run under.
    # Altho, hmm, what about t <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494449	494770	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495317	495638	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496185	496506	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497054	497375	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497924	498245	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498794	499115	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARG <==
7	/Users/nnunley/parrot/languages/scheme/Scheme.pm	146	237	
==>me::Tokenizer();
use Scheme::Parser();
use Scheme::Generator();
use Scheme::Builtins;

=head <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	25024	25135	
==>t::linenum($thisline)];'; 
		}
	}
	else	  # GENERATE ERROR MESSAGE DURING PARSE
	{
		$action .= '
		my $rule = $ <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11304	11410	
==>ut that ord?  Presumably that won't work right
        #  under non-ASCII charsets.  Something should be do <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17144	17250	
==>ut that ord?  Presumably that won't work right
        #  under non-ASCII charsets.  Something should be do <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4650	4755	
==>ut that ord?  Presumably that won't work right
       #  under non-ASCII charsets.  Something should be do <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2137	2239	
==>ut that ord?  Presumably that won't work right
    #  under non-ASCII charsets.  Something should be do <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10560	10662	
==>ut that ord?  Presumably that won't work right
    #  under non-ASCII charsets.  Something should be do <==
7	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2240	2342	
==>ut that ord?  Presumably that won't work right
    #  under non-ASCII charsets.  Something should be do <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213460	213618	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214401	214559	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215341	215499	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216282	216440	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217221	217379	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218161	218319	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219139	219297	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core", <==
7	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15540	15626	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

1;


__E <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2125	2210	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__E <==
7	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3050	3135	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__E <==
7	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	765	850	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__E <==
7	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3520	3604	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__E <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2273	2357	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__E <==
7	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2376	2460	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__E <==
7	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	10992	11101	
==>MATCH" : "BACKTRACK", "\\n";);
        push @ops, qq(print "INPUT:\$rx_input\\n";);
        push @ops, qq(prin <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3426	3517	
==>t"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STAC <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5188	5279	
==>t"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STAC <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8100	8191	
==>t"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STAC <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2173	2264	
==>t"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STAC <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3425	3516	
==>t"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STAC <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6054	6145	
==>t"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STAC <==
7	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	20397	20532	
==>$prefix$_->{'code'}\n";
                $byte2_todo{"$prefix$_->{'code'}"} = $_->{'group'};
            } else {
                # Not a <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540569	540688	
==>}\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   e <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541821	541940	
==>}\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   e <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543073	543192	
==>}\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   e <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544356	544475	
==>}\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   e <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545692	545811	
==>}\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   e <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547028	547147	
==>}\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   e <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907981	908365	
==>i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1023,
                  "ARGS" => [
                              "s",
                              "p",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 2 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106167	1106270	
==>DY" => "#line 352 \"src/ops/experimental.ops\"\n    int typ = {{\@2}};\n    if (typ < 1 || typ >= interp <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107143	1107246	
==>DY" => "#line 352 \"src/ops/experimental.ops\"\n    int typ = {{\@2}};\n    if (typ < 1 || typ >= interp <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344346	344438	
==>n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345588	345680	
==>n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346830	346922	
==>n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348073	348165	
==>n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n <==
7	/Users/nnunley/parrot/config/auto/gdbm.pm	1511	1656	
==>build('', 'gdbm.lib'); };
        }
    } else {
        eval { cc_build('', '-lgdbm'); };
    }
    my $has_gdbm = 0;
    if (!$@) {
        my $ <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1304	1422	
==>EFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  m <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1295	1413	
==>EFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  m <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1184	1302	
==>EFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  m <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1643	1761	
==>EFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  m <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1779	1897	
==>EFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  m <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1422	1540	
==>EFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  m <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765800	766075	
==>{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766652	766927	
==>{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767505	767780	
==>{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768358	768633	
==>{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454657	454916	
==>e 235 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455512	455771	
==>e 235 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456367	456626	
==>e 235 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
7	/Users/nnunley/parrot/lib/Test/More.pm	7565	7686	
==>e:

    ok( ultimate_answer() eq 42,        "Meaning of Life" );
    ok( $foo ne '',     "Got some foo" );

(Mnemonic:  "T <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72894	72994	
==>\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_new( <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74496	74596	
==>\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_new( <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76098	76198	
==>\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_new( <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77701	77801	
==>\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_new( <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79222	79322	
==>\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_new( <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80743	80843	
==>\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_new( <==
7	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	5111	5283	
==>( $type, $str );

            s/^(.)//
                and $str .= $1,
                last;
        }
    }

    $parser->Error("Untermined raw string.\n");
    $p <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528263	528617	
==>i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 610,
                  "ARGS" => [
                              "n",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 838 \"src <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3000	3106	
==>set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get ty <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4758	4864	
==>set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get ty <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1922	2028	
==>set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get ty <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3174	3280	
==>set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get ty <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1213	1319	
==>set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get ty <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2923	3029	
==>set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get ty <==
7	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	763	869	
==>} = {};
    $self->{_temp_int_count} = 3;
    $self->{state} ||= Regex->global_state();
    my $FAIL = $sel <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72842	72927	
==>rrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74444	74529	
==>rrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76046	76131	
==>rrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77649	77734	
==>rrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79170	79255	
==>rrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80691	80776	
==>rrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\ <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	238	337	
==>6-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expre <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	237	336	
==>6-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expre <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	239	338	
==>6-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expre <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	241	340	
==>6-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expre <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	241	340	
==>6-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expre <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	239	338	
==>6-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expre <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	249	348	
==>6-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expre <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70921	71196	
==>preter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71690	71965	
==>preter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100430	100705	
==>preter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104878	105153	
==>preter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	252990	253265	
==>preter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450919	451194	
==>preter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	513318	513593	
==>preter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	268825	269142	
==>"isgt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 313,
                  "ARGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262897	263196	
==>JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263843	264142	
==>JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264696	264995	
==>JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265550	265849	
==>JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266404	266703	
==>JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Test/Builder.pm	10710	10804	
==>expected.  This is the
string version.

=item B<is_num>

  $Test->is_num($got, $expected, $name <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	40841	40967	
==>op @item if $backtrack;

		  ';
	}
	else
	{
		$code .= '
		  my $savetext = $text;
		  my $backtrack;
		  # MATCH (LEFTARG OP)( <==
7	/Users/nnunley/parrot/lib/Test/Builder.pm	7995	8104	
==>ut .= "\n";

    $self->{Skip_All} = 1;

    $self->_print($out) unless $self->no_header;
    exit(0);
}

=bac <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31816	31920	
==>method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my $ <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33393	33497	
==>method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my $ <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35104	35208	
==>method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my $ <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36407	36511	
==>method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my $ <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38354	38458	
==>method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my $ <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40450	40554	
==>method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my $ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47086	47307	
==>); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT| <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47869	48090	
==>); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT| <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48676	48897	
==>); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT| <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49466	49687	
==>); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT| <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50276	50497	
==>); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT| <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51069	51290	
==>); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT| <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51869	52090	
==>); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT| <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862258	862495	
==>=> "inline",
                  "CODE" => 978,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 138 \"src/ops/string.ops\"\ <==
7	/Users/nnunley/parrot/config/auto/bc.pm	416	509	
==>scription @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Config <==
7	/Users/nnunley/parrot/config/auto/gdbm.pm	361	454	
==>scription @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Config <==
7	/Users/nnunley/parrot/config/auto/gmp.pm	315	408	
==>scription @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Config <==
7	/Users/nnunley/parrot/config/auto/m4.pm	390	483	
==>scription @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Config <==
7	/Users/nnunley/parrot/config/auto/readline.pm	322	415	
==>scription @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Config <==
7	/Users/nnunley/parrot/config/init/optimize.pm	408	501	
==>scription @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Config <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832466	832728	
==>FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 942,
                  "ARGS" => [
                              "nc" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028000	1028099	
==>line 295 \"src/ops/sys.ops\"\n  opcode_t *next = {{^+2}};\n  if ({{\@1}} < 0) {\n      real_exceptio <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028851	1028950	
==>line 295 \"src/ops/sys.ops\"\n  opcode_t *next = {{^+2}};\n  if ({{\@1}} < 0) {\n      real_exceptio <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477089	477181	
==>reter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477985	478077	
==>reter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480735	480827	
==>reter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481738	481830	
==>reter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482741	482833	
==>reter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72879	72977	
==>S_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      { <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74481	74579	
==>S_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      { <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76083	76181	
==>S_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      { <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77686	77784	
==>S_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      { <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79207	79305	
==>S_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      { <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80728	80826	
==>S_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      { <==
7	/Users/nnunley/parrot/lib/Pod/Simple.pm	12441	12538	
==>or parse_file");
  } elsif(ref(\$source) eq 'GLOB') {
    $self->{'source_filename'} = '' . ($sour <==
7	/Users/nnunley/parrot/tools/build/pmc2c.pl	8853	8999	
==>] )* "     # remove " strings
        | /\* .*? \*/ )             # remove C comments
    ]
    [ "-" x length $1 ]sexg;

    /^\{/ or die "bad blo <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213466	213641	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214407	214582	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215347	215522	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216288	216463	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217227	217402	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218167	218342	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219145	219320	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137633	137930	
==>E",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138528	138825	
==>E",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139424	139721	
==>E",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140320	140617	
==>E",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141215	141512	
==>E",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142111	142408	
==>E",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
7	/Users/nnunley/parrot/lib/Text/Balanced.pm	38737	38832	
==>, undef, undef, {ignore => ['<[^>]*/>']} );

(also see L<"gen_delimited_pat"> below).


=item C< <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540650	540787	
==>) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541902	542039	
==>) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543154	543291	
==>) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544437	544574	
==>) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545773	545910	
==>) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547109	547246	
==>) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\ <==
7	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2041	2160	
==>pos += $distance";
    } elsif ($distance < 0) {
        $comment = "pos -= ".(-$distance);
    }

    return ("add <rx_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	675338	675628	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676117	676407	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676897	677187	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677674	677964	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678452	678742	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679230	679520	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680009	680299	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385423	385767	
==>n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386554	386898	
==>n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387685	388029	
==>n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388817	389161	
==>n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389948	390292	
==>n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391080	391424	
==>n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392212	392556	
==>n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047476	1047780	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "fi <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050356	1050660	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "fi <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051390	1051694	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "fi <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052424	1052728	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "fi <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053459	1053763	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "fi <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054585	1054889	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "fi <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059280	1059584	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "fi <==
7	/Users/nnunley/parrot/lib/Test/More.pm	3985	4086	
==>u can use the plan() function.  Useful for when you
have to calculate the number of tests.

  use Test <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	210	307	
==>r.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako:: <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	223	320	
==>r.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako:: <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	221	318	
==>r.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako:: <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	204	301	
==>r.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako:: <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	195	292	
==>r.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako:: <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	212	309	
==>r.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako:: <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152194	152477	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	153137	153420	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154080	154363	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154983	155266	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155887	156170	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156791	157074	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157696	157979	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264401	264675	
==>"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265255	265529	
==>"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266109	266383	
==>"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266964	267238	
==>"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299574	299844	
==>"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300420	300690	
==>"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301266	301536	
==>"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428465	428819	
==>,
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 492,
                  "ARGS" => [
                              "ic",
                              "p",
                              "nc"
                            ],
                  "BODY" => "#line 69 \"src/ <==
7	/Users/nnunley/parrot/tools/build/pbc2c.pl	7374	7481	
==>_file($file_name)
      or die "Unable to unpack file $file_name: $!";

#    dump_const_table($pf);
    comp <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632607	632700	
==>"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633649	633742	
==>"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080501	1080594	
==>"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081566	1081659	
==>"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082631	1082724	
==>"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083697	1083790	
==>"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540577	540696	
==>hile( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if ( <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541829	541948	
==>hile( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if ( <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543081	543200	
==>hile( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if ( <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544364	544483	
==>hile( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if ( <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545700	545819	
==>hile( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if ( <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547036	547155	
==>hile( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if ( <==
7	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	8212	8327	
==>provided in rule " .
            "$rule->{'name'}\n";
    }

	# typeinfo must be supplied with op, load and calling, <==
7	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1768	1880	
==>15, S44 => 21
  );

  my $insert = "";
  while(<DATA>) {
	chomp;
	next unless /^[FGHI]/;
	my ($func,@x) = split / <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550373	550465	
==>s' not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551674	551766	
==>s' not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554226	554318	
==>s' not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555623	555715	
==>s' not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558278	558370	
==>s' not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559662	559754	
==>s' not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666960	667252	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667733	668025	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668507	668799	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669278	669570	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670050	670342	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670822	671114	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671595	671887	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
7	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15550	15638	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

1;


__END__

=head1 <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2135	2222	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__END__

=head1 <==
7	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3060	3147	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__END__

=head1 <==
7	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	775	862	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__END__

=head1 <==
7	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3530	3616	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__END__

=head1 <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2283	2369	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__END__

=head1 <==
7	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2386	2472	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__END__

=head1 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830788	831044	
==>=> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831529	831785	
==>=> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832256	832512	
==>=> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832984	833240	
==>=> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833706	833962	
==>=> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834431	834687	
==>=> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGD <==
7	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	477	599	
==>1[$_] = buildarray();
    }

    my @arr2;
    foreach (1..20) {
	$arr2[$_] = buildarray();
    }
}

sub buildarray {
    m <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605146	605402	
==>preter, {{\@2}}, {{\@1}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	99640	99894	
==>preter, {{\@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104086	104340	
==>preter, {{\@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	252201	252455	
==>preter, {{\@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450132	450386	
==>preter, {{\@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	512536	512790	
==>preter, {{\@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
7	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	48818	48940	
==>];
      
    } elsif(defined $3) {
      DEBUG > 3 and print "Found apparent complex end-text code \"$3\"\n";
      # This <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	675318	675598	
==>{{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676097	676377	
==>{{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676877	677157	
==>{{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677654	677934	
==>{{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678432	678712	
==>{{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679210	679490	
==>{{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679989	680269	
==>{{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unshift <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832072	832154	
==>\"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_s <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832800	832882	
==>\"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_s <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833527	833609	
==>\"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_s <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834249	834331	
==>\"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_s <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834975	835057	
==>\"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_s <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835701	835783	
==>\"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_s <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836454	836536	
==>\"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_s <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222016	222352	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ], <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222958	223294	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ], <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223899	224235	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ], <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224841	225177	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ], <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225781	226117	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ], <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226722	227058	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ], <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227701	228037	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ], <==
7	/Users/nnunley/parrot/config/auto/aio.pm	333	429	
==>onfigure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining if your <==
7	/Users/nnunley/parrot/config/auto/env.pm	357	453	
==>onfigure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining if your <==
7	/Users/nnunley/parrot/config/auto/gcc.pm	343	439	
==>onfigure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining if your <==
7	/Users/nnunley/parrot/config/auto/inline.pm	359	455	
==>onfigure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining if your <==
7	/Users/nnunley/parrot/config/auto/isreg.pm	339	435	
==>onfigure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining if your <==
7	/Users/nnunley/parrot/config/auto/memalign.pm	358	454	
==>onfigure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining if your <==
7	/Users/nnunley/parrot/config/auto/msvc.pm	363	459	
==>onfigure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining if your <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830117	830313	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830857	831053	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831598	831794	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832325	832521	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833053	833249	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833775	833971	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834500	834696	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605152	605427	
==>, {{\@2}}, {{\@1}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	99646	99919	
==>, {{\@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104092	104365	
==>, {{\@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	252207	252480	
==>, {{\@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450138	450411	
==>, {{\@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	512542	512815	
==>, {{\@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	665	757	
==>e';
}

=item C<directory_class()>

Returns C<Parrot::Docs::Directory>.

=cut

sub directory_c <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471221	471315	
==>(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / d <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472208	472302	
==>(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / d <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473195	473289	
==>(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / d <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474185	474279	
==>(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / d <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475176	475270	
==>(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / d <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476167	476261	
==>(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / d <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	36273	36359	
==>ABLE_set_pointer(interpreter, eh, CUR_OPCODE + {{\@1}});\n  push_exception(interpreter, <==
7	/Users/nnunley/parrot/lib/Test/Builder.pm	11739	11851	
==>_is_diag {
    my($self, $got, $type, $expect) = @_;

    foreach my $val (\$got, \$expect) {
        if( defined <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550380	550473	
==>found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551681	551774	
==>found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554233	554326	
==>found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555630	555723	
==>found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558285	558378	
==>found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559669	559762	
==>found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{ <==
7	/Users/nnunley/parrot/config/init/defaults.pm	3105	3235	
==>> $Config{lddlflags},

        libs => $Config{libs},

        cc_inc     => "-I./include",
        cc_debug   => '-g',
        lin <==
7	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	23277	23401	
==>bel('plus_rfail');
    my ($R_back, @R_ops) = $self->rewrite($R, $rfail);
    my @ops = (
                        aop('pushma <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11292	11397	
==>mm, what about that ord?  Presumably that won't work right
        #  under non-ASCII charsets.  Something <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17132	17237	
==>mm, what about that ord?  Presumably that won't work right
        #  under non-ASCII charsets.  Something <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4638	4742	
==>mm, what about that ord?  Presumably that won't work right
       #  under non-ASCII charsets.  Something <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2125	2226	
==>mm, what about that ord?  Presumably that won't work right
    #  under non-ASCII charsets.  Something <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10548	10649	
==>mm, what about that ord?  Presumably that won't work right
    #  under non-ASCII charsets.  Something <==
7	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2228	2329	
==>mm, what about that ord?  Presumably that won't work right
    #  under non-ASCII charsets.  Something <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493764	494081	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494631	494948	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495499	495816	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496367	496684	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497236	497553	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498106	498423	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
7	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	8731	8829	
==>:Tree::nop;
sub minlen { 0 }
sub maxlen { 0 }

package Regex::Ops::Tree::check;
sub minlen { $_[0]- <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503455	503772	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504309	504626	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505164	505481	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506019	506336	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506873	507190	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507728	508045	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
7	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1466	1571	
==>Op;
use base qw(Lua::opcode);

package NoOp;
use base qw(Lua::opcode);

package FindGlobalOp;
use b <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196804	197101	
==>E",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197700	197997	
==>E",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198597	198894	
==>E",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199494	199791	
==>E",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200390	200687	
==>E",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201287	201584	
==>E",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3723	3816	
==>parent blocks'
symbol tables.

TODO: We should generate real compiler errors and warnings inst <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213291	213574	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214232	214515	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215172	215455	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216113	216396	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217052	217335	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217992	218275	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218970	219253	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822476	822751	
==>y->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "loo <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823544	823819	
==>y->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "loo <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824614	824889	
==>y->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "loo <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825685	825960	
==>y->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "loo <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826754	827029	
==>y->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "loo <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827824	828099	
==>y->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "loo <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828891	829166	
==>y->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "loo <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539823	540123	
==>=> 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541074	541374	
==>=> 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542326	542626	
==>=> 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066365	1066665	
==>=> 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067550	1067850	
==>=> 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068736	1069036	
==>=> 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069922	1070222	
==>=> 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550443	550696	
==>reter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551744	551997	
==>reter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552935	553188	
==>reter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558348	558601	
==>reter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559732	559985	
==>reter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560953	561206	
==>reter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
7	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	13134	13253	
==>olor="red">$_</font>)
            } elsif ($_ =~ /^branch \d+ never executed/) {
                print OUT qq($atag<font <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550446	550699	
==>er, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551747	552000	
==>er, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552938	553191	
==>er, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558351	558604	
==>er, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559735	559988	
==>er, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560956	561209	
==>er, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
7	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	1953	2065	
==>TUATION    
    $ret |= 0x0800 if $chr =~ /^[[:alnum:]]$/;  # CCLASS_ALPHANUMERIC   
    $ret |= 0x1000 if $chr = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746809	747091	
==>0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747593	747875	
==>0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748378	748660	
==>0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749161	749443	
==>0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749945	750227	
==>0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750728	751010	
==>0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	23150	23248	
==>rations for arguments, but it needs to know the argument
	# type. Thus we assign to meta-variable I <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494354	494611	
==>ops\"\n  {{\@1}} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495222	495479	
==>ops\"\n  {{\@1}} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496090	496347	
==>ops\"\n  {{\@1}} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72777	72876	
==>NULLfunc) {\n      const char * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNI <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74379	74478	
==>NULLfunc) {\n      const char * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNI <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75981	76080	
==>NULLfunc) {\n      const char * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNI <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77584	77683	
==>NULLfunc) {\n      const char * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNI <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350516	350781	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYP <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351177	351442	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYP <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351839	352104	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYP <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352496	352761	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYP <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353154	353419	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYP <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353898	354163	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYP <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354643	354908	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYP <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11146	11254	
==>ipulate the list without a range, so that this can work right on
        #  all charsets that this module hap <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16986	17094	
==>ipulate the list without a range, so that this can work right on
        #  all charsets that this module hap <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4494	4601	
==>ipulate the list without a range, so that this can work right on
       #  all charsets that this module hap <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1987	2091	
==>ipulate the list without a range, so that this can work right on
    #  all charsets that this module hap <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10410	10514	
==>ipulate the list without a range, so that this can work right on
    #  all charsets that this module hap <==
7	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2090	2194	
==>ipulate the list without a range, so that this can work right on
    #  all charsets that this module hap <==
7	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14106	14195	
==>ine=100
end function
dim z as second
z.number=13
z.pointer.foo=12
print mine(foo,20,z.poin <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1336	1451	
==>t->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compi <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1327	1442	
==>t->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compi <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1216	1331	
==>t->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compi <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1675	1790	
==>t->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compi <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1811	1926	
==>t->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compi <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1454	1569	
==>t->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compi <==
7	/Users/nnunley/parrot/lib/Test/Builder.pm	26151	26245	
==>$Test->current_test;
    $Test->current_test($num);

Gets/sets the current test number we're on <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470547	470824	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471533	471810	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472520	472797	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473507	473784	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474497	474774	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475488	475765	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/Test.pm	14409	14563	
==>ilder->skip( "no native tests with -r" );
            }

            my ( $exit_code, $cmd );
            unless ( $run_exec ) {
                if ( $args <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470596	470894	
==>=> 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471582	471880	
==>=> 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472569	472867	
==>=> 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473556	473854	
==>=> 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474546	474844	
==>=> 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475537	475835	
==>=> 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1130	1235	
==>path
{
    my $self = shift;
    
    return $self->directory_class->new(@_);
}

=item C<file_with_path($p <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822484	822823	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "AR <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823552	823891	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "AR <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824622	824961	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "AR <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825693	826032	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "AR <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826762	827101	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "AR <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827832	828171	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "AR <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828899	829238	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "AR <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	3176	3282	
==>=> { label => $name } });
  $handler->end_element({ Name => 'goto' });

  if (defined $cond) {
    $handler <==
7	/Users/nnunley/parrot/lib/Pod/Simple.pm	32280	32386	
==>it's empty
      if(  @{$treelet->[$i]} == 2
       or (@{$treelet->[$i]} == 3 and $treelet->[$i][2] eq '') <==
7	/Users/nnunley/parrot/lib/Pod/Simple.pm	42682	42788	
==>it's empty
      if(  @{$treelet->[$i]} == 2
       or (@{$treelet->[$i]} == 3 and $treelet->[$i][2] eq '') <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25368	25452	
==>rpreter->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLAG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557941	558025	
==>rpreter->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLAG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559325	559409	
==>rpreter->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLAG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560697	560781	
==>rpreter->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLAG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494402	494726	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FL <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495270	495594	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FL <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496138	496462	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FL <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497007	497331	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FL <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497877	498201	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FL <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498747	499071	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FL <==
7	/Users/nnunley/parrot/lib/Test/Builder.pm	17825	17936	
==>>_unoverload(\$why);

    unless( $self->{Have_Plan} ) {
        require Carp;
        Carp::croak("You tried to <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527105	527395	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":bas <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527858	528148	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":bas <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099089	1099215	
==>{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100287	1100413	
==>{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101485	1101611	
==>{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102684	1102810	
==>{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\ <==
7	/Users/nnunley/parrot/lib/Text/Balanced.pm	6496	6599	
==>1, $endpos-$ldelpos-2,		# CONTENTS
		$endpos-1,  1,				# CLOSING BRACKET
		$endpos,    length($$textref) <==
7	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	1731	1901	
==>, extracting each method.
# ###################################################
sub parse($) {
    my $input = shift;
    my @methods = ();
    my $cur_method;
    my $lin <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550211	550306	
==>\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551512	551607	
==>\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554064	554159	
==>\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555461	555556	
==>\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558116	558211	
==>\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559500	559595	
==>\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_ <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	489	588	
==>t) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Constru <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	465	564	
==>t) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Constru <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	480	579	
==>t) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Constru <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	369	468	
==>t) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Constru <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	467	566	
==>t) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Constru <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	467	566	
==>t) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Constru <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	456	555	
==>t) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Constru <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426195	426451	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427082	427338	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427968	428224	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428855	429111	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429741	429997	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430628	430884	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431514	431770	
==>(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710186	710445	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TY <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711019	711278	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TY <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711853	712112	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TY <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712959	713218	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TY <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714066	714325	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TY <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714988	715247	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TY <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715911	716170	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TY <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350339	350633	
==>\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361831	362125	
==>\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362730	363024	
==>\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363632	363926	
==>\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364535	364829	
==>\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365374	365668	
==>\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366214	366508	
==>\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  " <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	1974	2073	
==>dulefile .= ".pm";

		open OUT, ">$modulefile"
			or croak("Can't write to new module file '$modulef <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550222	550314	
==>pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_exceptio <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551523	551615	
==>pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_exceptio <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554075	554167	
==>pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_exceptio <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555472	555564	
==>pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_exceptio <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558127	558219	
==>pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_exceptio <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559511	559603	
==>pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_exceptio <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262632	262940	
==>\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isn <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264431	264739	
==>\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isn <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265285	265593	
==>\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isn <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266139	266447	
==>\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isn <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299602	299908	
==>\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isn <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300448	300754	
==>\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isn <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301294	301600	
==>\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isn <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137631	137928	
==>IVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138526	138823	
==>IVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139422	139719	
==>IVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140318	140615	
==>IVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141213	141510	
==>IVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142109	142406	
==>IVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/tools/build/jit2c.pl	3446	3604	
==>sm =~ /$t\s+/) {
                    my $tbody = $body;
                    while ($asm =~ s/\b(s(.).+?\2.*?\2)(?:\s+)?//) {
                        eval "\$tb <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454121	454420	
==>P" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454975	455274	
==>P" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455830	456129	
==>P" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456685	456984	
==>P" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457539	457838	
==>P" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458394	458693	
==>P" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
7	/Users/nnunley/parrot/tools/dev/nm.pl	8486	8583	
==>t_show(\$show, $Const,  $const ) if $show;
		want_show(\$show, $Global, $global) if $show;
		want_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641727	642044	
==>0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642614	642931	
==>0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643502	643819	
==>0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644394	644711	
==>0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	14917	15032	
==>name;
    
    # This is a cheat because we know that all top-level sections
    # have their indexes in the root di <==
7	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3572	3673	
==>ESSION({ stuff => "\$X99", choose => 1 });
		push @{$code{$seg}->{code}}, "@code";
		feedme();
		if ($ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22102	22191	
==>core.ops\"\n  if (!{{\@1}}->vtable->get_bool(interpreter, {{\@1}})) {\n    {{+={{\@2}}}};\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540826	541151	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanc <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542078	542403	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanc <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067302	1067627	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanc <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068488	1068813	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanc <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069674	1069999	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanc <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070861	1071186	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanc <==
7	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	3667	3783	
==>= @_;
    return "save $reg";
}

sub output_pop_reg {
    my ($self, $reg) = @_;
    return "restore $reg";
}

sub ou <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35981	36073	
==>sub new ($$$$$$$$$$)
{
	my ($self, $subrule, $repspec, $min, $max, $lookahead, $line, $parser <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584634	584724	
==>ing_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, cla <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585709	585799	
==>ing_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, cla <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586856	586946	
==>ing_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, cla <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588042	588132	
==>ing_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, cla <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589228	589318	
==>ing_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, cla <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590415	590505	
==>ing_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, cla <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23992	24244	
==>\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550468	550720	
==>\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551769	552021	
==>\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552960	553212	
==>\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558373	558625	
==>\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559757	560009	
==>\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560978	561230	
==>\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS <==
7	/Users/nnunley/parrot/languages/python/pie-thon.pl	26547	26671	
==>$c;
	$lexicals{$c} = $c;
	$names{$c} = $c;
	print <<EOC;
        \t $cmt
EOC
    }
    push @stack, [$n, $c, 'P'];
}

sub STO <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31660	31769	
==>$out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::imp <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33237	33346	
==>$out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::imp <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34948	35057	
==>$out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::imp <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36251	36360	
==>$out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::imp <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38198	38307	
==>$out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::imp <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40294	40403	
==>$out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::imp <==
7	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8593	8674	
==>TER"
data "DAMAGES","DESTRUCT","DOCK","IDLE","IMPULSE","LRSCAN","NAVIGATE","PHASER <==
7	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21457	21538	
==>TER"
data "DAMAGES","DESTRUCT","DOCK","IDLE","IMPULSE","LRSCAN","NAVIGATE","PHASER <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	40709	40790	
==>-----------------------------------------------------------------------------

sub <==
7	/Users/nnunley/parrot/lib/Pod/Simple.pm	14710	14791	
==>-----------------------------------------------------------------------------

sub <==
7	/Users/nnunley/parrot/lib/Pod/Simple.pm	17732	17813	
==>-----------------------------------------------------------------------------

sub <==
7	/Users/nnunley/parrot/lib/Pod/Simple.pm	46060	46141	
==>-----------------------------------------------------------------------------

sub <==
7	/Users/nnunley/parrot/lib/Pod/Simple.pm	47263	47344	
==>-----------------------------------------------------------------------------

sub <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413044	413432	
==>=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FL <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414171	414559	
==>=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FL <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415298	415686	
==>=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FL <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416426	416814	
==>=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FL <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417553	417941	
==>=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FL <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418681	419069	
==>=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FL <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419809	420197	
==>=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FL <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361117	361422	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362015	362320	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362914	363219	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363816	364121	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364719	365024	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365558	365863	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366398	366703	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11248	11366	
==>ule happens to run under.
        # Altho, hmm, what about that ord?  Presumably that won't work right
        #  under <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17088	17206	
==>ule happens to run under.
        # Altho, hmm, what about that ord?  Presumably that won't work right
        #  under <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4595	4711	
==>ule happens to run under.
       # Altho, hmm, what about that ord?  Presumably that won't work right
       #  under <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2085	2195	
==>ule happens to run under.
    # Altho, hmm, what about that ord?  Presumably that won't work right
    #  under <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10508	10618	
==>ule happens to run under.
    # Altho, hmm, what about that ord?  Presumably that won't work right
    #  under <==
7	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2188	2298	
==>ule happens to run under.
    # Altho, hmm, what about that ord?  Presumably that won't work right
    #  under <==
7	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	1549	1649	
==>en
	print "OK"
end if



' Passing string arrays, expect 99 and "Hello"
function foo(i, thing$())
	pr <==
7	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1027	1120	
==>okeserv\"... ";
  my $ua = LWP::UserAgent->new;
  $ua->agent("pugs-smokeserv-client/" . VERSIO <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550231	550321	
==>BLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_exception(inter <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551532	551622	
==>BLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_exception(inter <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554084	554174	
==>BLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_exception(inter <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555481	555571	
==>BLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_exception(inter <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558136	558226	
==>BLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_exception(inter <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559520	559610	
==>BLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_exception(inter <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746775	747060	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747559	747844	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748344	748629	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749127	749412	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749911	750196	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750694	750979	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Test/More.pm	7357	7472	
==>eded or failed.  So these:

    # Is the ultimate answer 42?
    is( ultimate_answer(), 42,          "Meaning of Lif <==
7	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5242	5366	
==>< 32 or ord($_) > 126)
#DBG>					?	sprintf('<%02X>',ord($_))
#DBG>					:	$_;
#DBG>		}
#DBG>		$tok.='<';
#DBG>	};

	$$e <==
7	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4991	5108	
==>< 32 or ord($_) > 126)
#DBG>					?	sprintf('<%02X>',ord($_))
#DBG>					:	$_;
#DBG>		}
#DBG>		$tok.='<';
#DBG>	};

	$$e <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18442	18542	
==>urn;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_generat <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19155	19255	
==>urn;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_generat <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19643	19743	
==>urn;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_generat <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20132	20232	
==>urn;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_generat <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20621	20721	
==>urn;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_generat <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514232	514553	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "ARG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515112	515433	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "ARG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099481	1099802	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "ARG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100679	1101000	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "ARG <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101877	1102198	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "ARG <==
7	/Users/nnunley/parrot/lib/Text/Balanced.pm	38029	38128	
==>ions (see below)

=back

The various options that can be specified are:

=over 4

=item C<reject =E< <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	669	761	
==>ko::Construct::Type::PMC;
use Jako::Construct::Type::String;

my %types = ( 'I' => 'int', 'N' <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264387	264652	
==>c/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265241	265506	
==>c/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266095	266360	
==>c/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266950	267215	
==>c/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299560	299821	
==>c/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300406	300667	
==>c/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301252	301513	
==>c/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540580	540699	
==>e( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541832	541951	
==>e( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543084	543203	
==>e( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544367	544486	
==>e( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545703	545822	
==>e( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547039	547158	
==>e( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b <==
7	/Users/nnunley/parrot/config/gen/icu.pm	4221	4315	
==>r>\n");
    $conf->data->set(testheader  => "$header");
    cc_gen('config/auto/headers/test_c. <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271126	271413	
==>{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271972	272259	
==>{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272818	273105	
==>{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273663	273950	
==>{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	274509	274796	
==>{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	275355	275642	
==>{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
7	/Users/nnunley/parrot/languages/python/pie-thon.pl	18467	18570	
==>k;
	my $n = temp($tos->[2]);
	print <<EOC;
	$n = not $tos->[1] $cmt
EOC
	push @stack, [-1, $n, $tos->[2] <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061278	1061454	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061949	1062125	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062818	1062994	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063687	1063863	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064557	1064733	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065430	1065606	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
7	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5049	5181	
==>max;
        $maxlen += $kidmax;
    }
    return $maxlen;
}

sub startset {
    my $op = shift;
    my %start;
    foreach (@{ $op-> <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539847	540127	
==>"NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541098	541378	
==>"NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542350	542630	
==>"NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066389	1066669	
==>"NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067574	1067854	
==>"NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068760	1069040	
==>"NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069946	1070226	
==>"NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	553	649	
==>) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  con <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	534	630	
==>) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  con <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	505	601	
==>) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  con <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	441	537	
==>) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  con <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	788	884	
==>) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  con <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	816	912	
==>) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  con <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	500	596	
==>) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  con <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3971	4073	
==>: domain)

  confess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Construct::B <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6139	6241	
==>: domain)

  confess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Construct::B <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7082	7184	
==>: domain)

  confess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Construct::B <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7880	7982	
==>: domain)

  confess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Construct::B <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8527	8629	
==>: domain)

  confess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Construct::B <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9195	9297	
==>: domain)

  confess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Construct::B <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9864	9966	
==>: domain)

  confess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Construct::B <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470589	470888	
==>"JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471575	471874	
==>"JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472562	472861	
==>"JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473549	473848	
==>"JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474539	474838	
==>"JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475530	475829	
==>"JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Test/More.pm	19490	19587	
==>).

For more details on the mechanics of skip and todo tests see
L<Test::Harness>.

The way Test:: <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	557	652	
==>@_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confes <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	538	633	
==>@_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confes <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	509	604	
==>@_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confes <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	445	540	
==>@_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confes <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	792	887	
==>@_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confes <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	820	915	
==>@_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confes <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	504	599	
==>@_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confes <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550448	550702	
==>, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "P <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551749	552003	
==>, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "P <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552940	553194	
==>, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "P <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558353	558607	
==>, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "P <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559737	559991	
==>, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "P <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560958	561212	
==>, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "P <==
7	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	1382	1504	
==>on: 'translit'
macro:              flag name_len ',' substitution_len name substitution 
                  { [ @item[5,1,6] <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	1901	2112	
==>in source code.
    SYMBOLS => { },     # Identifiers
    CONTENT => [ ]      # Constructs
  }, $class;
}


###############################################################################

#
# ACCESSORS:
#

sub p <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374113	374440	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374996	375323	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375879	376206	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376763	377090	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377646	377973	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378530	378857	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379414	379741	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "" <==
7	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	1535	1646	
==>t

sub output_is 
{
  my $self = shift;
  my ( $code, $expected, $desc ) = @_;
  
  my $test_no = $self->{builde <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847702	847877	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848481	848656	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849261	849436	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850147	850322	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851034	851209	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851921	852096	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
7	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	9676	9793	
==>h op2
    .return ($N1)
neg_one:
    $N1 = asin op2
    .return ($N1)
neg_two:
    $N1 = acos op2
    .return ($N1)
ne <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396217	396572	
==>+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "F <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397297	397652	
==>+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "F <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398377	398732	
==>+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "F <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399458	399813	
==>+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "F <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400538	400893	
==>+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "F <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401619	401974	
==>+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "F <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402700	403055	
==>+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "F <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049593	1049890	
==>T",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050626	1050923	
==>T",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051660	1051957	
==>T",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052694	1052991	
==>T",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053729	1054026	
==>T",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054855	1055152	
==>T",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function" <==
7	/Users/nnunley/parrot/languages/python/pie-thon.pl	33764	33874	
==>LICE_plus_2 {
    return Slice(@_, 2);
}
sub SLICE_plus_3 {
    return Slice(@_, 3);
}

sub Store_Slice
{
    m <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488177	488352	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488817	488992	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	489570	489745	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9525	9618	
==>CALL_RETURN_${CURIC}

# It's a call. Get details of method we're calling.
(${PTEMP0}, ${STEMP0 <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7039	7132	
==>CALL_RETURN_${CURIC}

# It's a call. Get details of method we're calling.
(${PTEMP0}, ${STEMP0 <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5595	5688	
==>CALL_RETURN_${CURIC}

# It's a call. Get details of method we're calling.
(${PTEMP0}, ${STEMP0 <==
7	/Users/nnunley/parrot/tools/dev/parrot_api.pl	380	470	
==>the Parrot public embedding API as described in the public
headers F<include/parrot/embed.h <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710198	710448	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711031	711281	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711865	712115	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712971	713221	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714078	714328	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715000	715250	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715923	716173	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627530	627821	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628674	628965	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629737	630028	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630726	631017	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631716	632007	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924478	924769	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => <==
7	/Users/nnunley/parrot/config/auto/env.pm	242	341	
==>> and C<unsetenv()>.

=cut

package auto::env;

use strict;
use vars qw($description @args);

use ba <==
7	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	2091	2194	
==>preter pointer is passed in

=item P

PMC.

=item 2

Pointer to short.

Taken from an I register.

=item <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550430	550652	
==>invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551731	551953	
==>invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552922	553144	
==>invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558335	558557	
==>invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559719	559941	
==>invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560940	561162	
==>invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
7	/Users/nnunley/parrot/config/init/defaults.pm	2526	2637	
==>ynamically loadable
        # modules. Often $cc on Unix-ish systems, but apparently sometimes
        # it's ld <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997704	997964	
==>",
                              "i",
                              "sc",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_stri <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231182	231312	
==>cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABE <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232086	232216	
==>cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABE <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232990	233120	
==>cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABE <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233893	234023	
==>cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABE <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234797	234927	
==>cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABE <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235701	235831	
==>cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABE <==
7	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29217	29313	
==>{DEST0\}/) {
			$need_dest = 1;
		} elsif ($rule->{'pir'} =~ /\$\{LOADREG\}/ || $rule->{'instruct <==
7	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16555	16728	
==>ew_tmp( $parser, 'pmc' );
                push @opcodes, new LocalDir( $parser,
                    'result' => $result,
                );
                push @opcodes, <==
7	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17134	17307	
==>ew_tmp( $parser, 'pmc' );
                push @opcodes, new LocalDir( $parser,
                    'result' => $result,
                );
                push @opcodes, <==
7	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10702	10870	
==>ew_tmp( $parser, 'pmc' );
                    push @opcodes,
                        new LocalDir( $parser, 'result' => $result, );
                    push @opcodes, <==
7	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15524	15649	
==>ew_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, <==
7	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18183	18308	
==>ew_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, <==
7	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19277	19402	
==>ew_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, <==
7	/Users/nnunley/parrot/languages/lua/Lua/build.pm	23238	23363	
==>ew_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514146	514399	
==>((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515026	515279	
==>((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515906	516159	
==>((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528652	528905	
==>((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529534	529787	
==>((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	530416	530669	
==>((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
7	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	16244	16342	
==>ir .= "### pop_all (typed eh)\n";
	$pir .= sub_meta($pop_all, $mv, "pop_all for typed exception han <==
7	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	47745	47877	
==>le 19
		 'stat', 4,
sub
#line 128 "Lua\lua51.yp"
{
            BuildIf( $_[0], $_[1], $_[2], $_[3], undef );
        }
	],
	[ <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31650	31760	
==>d, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->S <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33227	33337	
==>d, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->S <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34938	35048	
==>d, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->S <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36241	36351	
==>d, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->S <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38188	38298	
==>d, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->S <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40284	40394	
==>d, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->S <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	513507	513760	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514386	514639	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515266	515519	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1098438	1098691	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099635	1099888	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100833	1101086	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102031	1102284	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432572	432909	
==>BELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433587	433924	
==>BELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434601	434938	
==>BELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435616	435953	
==>BELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436630	436967	
==>BELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437645	437982	
==>BELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base <==
7	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	18379	18493	
==>ontent = join ' ', splice @$para, 2;
      $content =~ s/^\s+//s;
      $content =~ s/\s+$//s;
      unless(length( <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438659	439001	
==>BELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_co <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439673	440015	
==>BELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_co <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440688	441030	
==>BELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_co <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441702	442044	
==>BELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_co <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442717	443059	
==>BELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_co <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443731	444073	
==>BELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_co <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444746	445088	
==>BELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ":base_co <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431818	432154	
==>=> 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432832	433168	
==>=> 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433847	434183	
==>=> 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434861	435197	
==>=> 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435876	436212	
==>=> 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436890	437226	
==>=> 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437905	438241	
==>=> 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	1056	1179	
==>name('config/' . $group);
        my @files = $dir->files_with_suffix('pm', 1);    
        push @groups,
            $self- <==
7	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4866	4964	
==>(6)
	t(3)=2
	mine=a*2
	print t(3)*2
end function
dim t(7)
t(3)=5.6
a=mine(5)
print t(3)

' Unary mi <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18936	19032	
==>_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self-> <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19424	19520	
==>_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self-> <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19912	20008	
==>_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self-> <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20401	20497	
==>_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self-> <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20890	20986	
==>_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self-> <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431811	432147	
==>"JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432825	433161	
==>"JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433840	434176	
==>"JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434854	435190	
==>"JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435869	436205	
==>"JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436883	437219	
==>"JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437898	438234	
==>"JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470822	471142	
==>"i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 540,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 394 \"src/op <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830738	830997	
==>NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831479	831738	
==>NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832206	832465	
==>NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832934	833193	
==>NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833656	833915	
==>NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834381	834640	
==>NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  " <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1767	1918	
==>NON_BLOCK_COUNT => 0,
    BLOCK_COUNT      => 0,
    BLOCKS           => [ $root ], # Block stack
    ROOT             => $root,
    TOKENS           => <==
7	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	10057	10156	
==>me}{$filename_8dot3} ($filename_8dot3)");
        }
        $files_in_dir_8dot3{$dirname}{$filename_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356072	356330	
==>};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356731	356989	
==>};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357391	357649	
==>};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358054	358312	
==>};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358718	358976	
==>};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359465	359723	
==>};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360213	360471	
==>};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  "FLAGS" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717413	717697	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYP <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718344	718628	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYP <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719276	719560	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYP <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720475	720759	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYP <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721675	721959	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYP <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722703	722987	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYP <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723732	724016	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYP <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361159	361460	
==>"JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362057	362358	
==>"JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362956	363257	
==>"JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363858	364159	
==>"JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364761	365062	
==>"JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365600	365901	
==>"JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366440	366741	
==>"JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11252	11370	
==>happens to run under.
        # Altho, hmm, what about that ord?  Presumably that won't work right
        #  under non <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17092	17210	
==>happens to run under.
        # Altho, hmm, what about that ord?  Presumably that won't work right
        #  under non <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4599	4715	
==>happens to run under.
       # Altho, hmm, what about that ord?  Presumably that won't work right
       #  under non <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2089	2199	
==>happens to run under.
    # Altho, hmm, what about that ord?  Presumably that won't work right
    #  under non <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10512	10622	
==>happens to run under.
    # Altho, hmm, what about that ord?  Presumably that won't work right
    #  under non <==
7	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2192	2302	
==>happens to run under.
    # Altho, hmm, what about that ord?  Presumably that won't work right
    #  under non <==
7	/Users/nnunley/parrot/lib/Pod/Simple.pm	16909	17014	
==>turn $para->[1]{'~type'} = 'bullet';

  } elsif($content =~ m/^\s*\*\s+(.+)/s) {  # tolerance
  
    # Lik <==
7	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	1196	1335	
==>if ( $line =~ $verbatim_begin ) {
            $verbatim = 1;
        }
        if ( $line =~ $verbatim_end ) {
            $verbatim_chunk . <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31771	31875	
==>ements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{me <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33348	33452	
==>ements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{me <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35059	35163	
==>ements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{me <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36362	36466	
==>ements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{me <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38309	38413	
==>ements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{me <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40405	40509	
==>ements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{me <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	73938	74042	
==>[1]} = $text }

	$ERRORS = 0;
	return $retval;
}

sub _parserepeat($$$$$$$$$)	# RETURNS A REF TO AN ARRAY <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503487	503787	
==>" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504341	504641	
==>" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505196	505496	
==>" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506051	506351	
==>" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506905	507205	
==>" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507760	508060	
==>" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
7	/Users/nnunley/parrot/tools/build/nativecall.pl	11528	11647	
==>"t_$temp_num";
    };
    /2/ && do {
        push @{$temps_ref}, "PMC* t_$temp_num;";
        push @{$extra_preamble_re <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049571	1049817	
==>" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050604	1050850	
==>" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051638	1051884	
==>" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052672	1052918	
==>" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053707	1053953	
==>" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054833	1055079	
==>" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
7	/Users/nnunley/parrot/lib/Pod/Escapes.pm	13634	13727	
==>om C<%Name2character>'s behavior under pre-5.7 Perls.

Note that this hash does not
include nu <==
7	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	127	235	
==>ests => 2;
  use Parrot::Test::PGE;

  p6rule_is('abc', '^abc', 'BOS abc');
  p6rule_is("   int argc ",
    [ <==
7	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	729	825	
==>, $description, @todo)>

Runs the target string against the Perl 6 pattern, passing the test
if t <==
7	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1846	1942	
==>, $description, @todo)>

Runs the target string against the Perl 6 pattern, passing the test if
t <==
7	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2380	2476	
==>, $description, @todo)>

Runs the target string against the Perl 6 pattern, passing the test
if t <==
7	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2827	2923	
==>, $description, @todo)>

Runs the target string against the Perl 6 pattern, passing the test
if t <==
7	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3378	3474	
==>, $description, @todo)>

Runs the target string against the Perl 6 pattern, passing the test if
t <==
7	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3814	3910	
==>, $description, @todo)>

Runs the target string against the Perl 6 pattern, passing the test
if t <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350576	350826	
==>,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 4 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351237	351487	
==>,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 4 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351899	352149	
==>,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 4 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352556	352806	
==>,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 4 <==
7	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	2095	2193	
==>nfig{slash}$file`;
    if (!$ret) {
	print STDERR "TEST FAILED: $file didn't return a value, Parrot <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2467	2560	
==>ed $formal_arg_type;

    $self->INTERNAL_ERROR("Can't determine type of actual argument (%s)! <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2167	2260	
==>ed $formal_arg_type;

    $self->INTERNAL_ERROR("Can't determine type of actual argument (%s)! <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514169	514473	
==>OATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515049	515353	
==>OATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515929	516233	
==>OATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528675	528979	
==>OATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529557	529861	
==>OATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	530439	530743	
==>OATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
7	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12391	12487	
==>his returns undef.

=item e2charnum($e_content)

Given a name or number that could appear in a
C< <==
7	/Users/nnunley/parrot/config/inter/libparrot.pm	449	544	
==>n @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter' <==
7	/Users/nnunley/parrot/config/inter/charset.pm	327	418	
==>n @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter' <==
7	/Users/nnunley/parrot/config/inter/encoding.pm	332	423	
==>n @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter' <==
7	/Users/nnunley/parrot/config/inter/ops.pm	307	398	
==>n @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter' <==
7	/Users/nnunley/parrot/config/inter/progs.pm	446	537	
==>n @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter' <==
7	/Users/nnunley/parrot/config/inter/shlibs.pm	606	697	
==>n @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter' <==
7	/Users/nnunley/parrot/config/inter/types.pm	358	449	
==>n @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter' <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465929	466223	
==>ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 534,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 348 \"sr <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3920	4022	
==>:Block
  my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless defined $se <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7829	7931	
==>:Block
  my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless defined $se <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8476	8578	
==>:Block
  my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless defined $se <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9144	9246	
==>:Block
  my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless defined $se <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9813	9915	
==>:Block
  my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless defined $se <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6381	6479	
==>s the item text or head start token.

=cut

sub process_item_text_or_head_start_token
{
    my $sel <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39028	39156	
==>d->{type});
        $ret = "return ret_val;";
        if ($type !~ /\*/) {
            $ret_type = "_ret" . lc substr $type, 0, 1 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72813	72902	
==>= Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symb <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74415	74504	
==>= Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symb <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76017	76106	
==>= Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symb <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77620	77709	
==>= Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symb <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79141	79230	
==>= Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symb <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80662	80751	
==>= Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symb <==
7	/Users/nnunley/parrot/languages/python/pie-thon.pl	21466	21585	
==>}
	print <<EOC;
	$pres = new .Boolean
	$pres = $res # ugly
EOC
	push @stack, [-1, $pres, 'P'];
	return;

    }
    # XXX <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16423	16504	
==>cdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/ <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16765	16846	
==>cdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/ <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1888	1969	
==>cdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/ <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9966	10047	
==>cdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/ <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10209	10290	
==>cdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/ <==
7	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1991	2072	
==>cdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667609	667913	
==>@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668383	668687	
==>@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669154	669458	
==>@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669926	670230	
==>@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670698	671002	
==>@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671471	671775	
==>@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666838	667140	
==>@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push",
                  "FLAGS" = <==
7	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1134	1250	
==>q',
};


## create a map of test names and info
my $test_map = {};
for my $t ( keys %{$tests} ) {
    for my $s ( key <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28037	28139	
==>Descent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse::RecDescent::lastexpected;
				$P <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30111	30213	
==>Descent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse::RecDescent::lastexpected;
				$P <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32312	32414	
==>Descent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse::RecDescent::lastexpected;
				$P <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34908	35010	
==>Descent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse::RecDescent::lastexpected;
				$P <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42018	42120	
==>Descent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse::RecDescent::lastexpected;
				$P <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74568	74668	
==>Descent::failed++) {
			$Parse::RecDescent::expected
			    = $Parse::RecDescent::lastexpected;
			$P <==
7	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27513	27632	
==>$parser, $block, $expr ) = @_;
    my @opcodes    = ();
    my $l_continue = new_label($parser);
    my $l_break    = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351087	351342	
==>[
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351749	352004	
==>[
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352406	352661	
==>[
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353064	353319	
==>[
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353808	354063	
==>[
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354553	354808	
==>[
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361020	361275	
==>[
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS <==
7	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8792	8925	
==>p1
    .param num op2
    $I1 = op1
    if $I1 == 0 goto zero
    if $I1 == 1 goto one
    if $I1 == 2 goto two
    if $I1 == 3 goto t <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31688	31796	
==>th = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($meth)) {
        m <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33265	33373	
==>th = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($meth)) {
        m <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34976	35084	
==>th = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($meth)) {
        m <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36279	36387	
==>th = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($meth)) {
        m <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38226	38334	
==>th = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($meth)) {
        m <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40322	40430	
==>th = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($meth)) {
        m <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213295	213600	
==>" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214236	214541	
==>" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215176	215481	
==>" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216117	216422	
==>" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217056	217361	
==>" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217996	218301	
==>" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218974	219279	
==>" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426273	426578	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_c <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427160	427465	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_c <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428046	428351	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_c <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428933	429238	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_c <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429819	430124	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_c <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430706	431011	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_c <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431592	431897	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_c <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457695	458083	
==>,
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 525,
                  "ARGS" => [
                              "n",
                              "nc",
                              "n"
                            ],
                  "BODY" => "#line 240 \" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213521	213818	
==>ARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214462	214759	
==>ARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215402	215699	
==>ARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216343	216640	
==>ARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217282	217579	
==>ARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218222	218519	
==>ARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219200	219497	
==>ARROT_JUMP_RELATIVE",
                  "NAME" => "gt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854380	854623	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855268	855511	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856157	856400	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857046	857289	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16381	16486	
==>e->new($block, $self->forth);
      my $op    = $self->forth->text;
      my $right = Jako::Construct::Exp <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17152	17257	
==>e->new($block, $self->forth);
      my $op    = $self->forth->text;
      my $right = Jako::Construct::Exp <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17957	18062	
==>e->new($block, $self->forth);
      my $op    = $self->forth->text;
      my $right = Jako::Construct::Exp <==
7	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	13073	13176	
==>y follow)
      if($token->is_start and $content_containers{ $token->tagname }) {
        DEBUG and prin <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344163	344261	
==>n  /* These char * need to go away soon */\n  const char * const path = string_to_cstring(interpret <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345405	345503	
==>n  /* These char * need to go away soon */\n  const char * const path = string_to_cstring(interpret <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346647	346745	
==>n  /* These char * need to go away soon */\n  const char * const path = string_to_cstring(interpret <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347890	347988	
==>n  /* These char * need to go away soon */\n  const char * const path = string_to_cstring(interpret <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349058	349156	
==>n  /* These char * need to go away soon */\n  const char * const path = string_to_cstring(interpret <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350060	350158	
==>n  /* These char * need to go away soon */\n  const char * const path = string_to_cstring(interpret <==
7	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32815	32936	
==>fo'}, $mv, 
			    "typeinfo for rule $rule->{'name'}");
		    $pir .= "\n" if $pir !~ /\n$/;
		    $pir .= "### end typei <==
7	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26819	26928	
==>fo'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir .= "\n" if $pir !~ /\n$/;
		$pir .= "### end typei <==
7	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28535	28644	
==>fo'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir .= "\n" if $pir !~ /\n$/;
		$pir .= "### end typei <==
7	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36517	36626	
==>fo'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir .= "\n" if $pir !~ /\n$/;
		$pir .= "### end typei <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9816	9911	
==>} = shift ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over each parameter and put them into ${ <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7330	7425	
==>} = shift ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over each parameter and put them into ${ <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6294	6389	
==>} = shift ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over each parameter and put them into ${ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710201	710453	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711034	711286	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711868	712120	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712974	713226	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714081	714333	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715003	715255	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715926	716178	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => " <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1155	1261	
==>NE  => $dest->line
  }, $class;

  $block->push_content($self);

  return $self;
}

sub dest  { return shif <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1146	1252	
==>NE  => $dest->line
  }, $class;

  $block->push_content($self);

  return $self;
}

sub dest  { return shif <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1035	1141	
==>NE  => $dest->line
  }, $class;

  $block->push_content($self);

  return $self;
}

sub dest  { return shif <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332376	332471	
==>o go away soon */\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333654	333749	
==>o go away soon */\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334932	335027	
==>o go away soon */\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336211	336306	
==>o go away soon */\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830151	830411	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830891	831151	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831632	831892	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832359	832619	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833087	833347	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833809	834069	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834534	834794	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" = <==
7	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	833	939	
==>te the $0 script instead.
 *
 * Created by $svnid
 *  Overview:
 *     This file contains various charset t <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16393	16474	
==>\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ01 <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16735	16816	
==>\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ01 <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1858	1939	
==>\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ01 <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9936	10017	
==>\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ01 <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10179	10260	
==>\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ01 <==
7	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1961	2042	
==>\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ01 <==
7	/Users/nnunley/parrot/config/gen/platform.pm	5330	5450	
==>PLATFORM_C <<"END_HERE";
/*
** $_:
*/
#line 1 "$_"
END_HERE
            print PLATFORM_C <IN_C>, "\n\n";
            clos <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11313	11418	
==>rd?  Presumably that won't work right
        #  under non-ASCII charsets.  Something should be done about <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17153	17258	
==>rd?  Presumably that won't work right
        #  under non-ASCII charsets.  Something should be done about <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4659	4763	
==>rd?  Presumably that won't work right
       #  under non-ASCII charsets.  Something should be done about <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2146	2247	
==>rd?  Presumably that won't work right
    #  under non-ASCII charsets.  Something should be done about <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10569	10670	
==>rd?  Presumably that won't work right
    #  under non-ASCII charsets.  Something should be done about <==
7	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2249	2350	
==>rd?  Presumably that won't work right
    #  under non-ASCII charsets.  Something should be done about <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385472	385837	
==>BELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386603	386968	
==>BELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387734	388099	
==>BELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388866	389231	
==>BELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389997	390362	
==>BELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391129	391494	
==>BELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392261	392626	
==>BELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGD <==
7	/Users/nnunley/parrot/tools/build/ops2c.pl	5514	5603	
==>ch_version}";
my $init_func = "Parrot_DynOp_${base}${suffix}_$mmp_v";

print HEADER $pream <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16405	16484	
==>[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789]) <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16747	16826	
==>[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789]) <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1870	1949	
==>[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789]) <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9948	10027	
==>[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789]) <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10191	10270	
==>[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789]) <==
7	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1973	2052	
==>[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789]) <==
7	/Users/nnunley/parrot/lib/Text/Balanced.pm	30742	30836	
==>pattern to be skipped, and any escape characters)
and extracts the initial substring of the tex <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72870	72961	
==>T_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown rea <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74472	74563	
==>T_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown rea <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76074	76165	
==>T_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown rea <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77677	77768	
==>T_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown rea <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79198	79289	
==>T_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown rea <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80719	80810	
==>T_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown rea <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11287	11393	
==>ho, hmm, what about that ord?  Presumably that won't work right
        #  under non-ASCII charsets.  Somet <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17127	17233	
==>ho, hmm, what about that ord?  Presumably that won't work right
        #  under non-ASCII charsets.  Somet <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4633	4738	
==>ho, hmm, what about that ord?  Presumably that won't work right
       #  under non-ASCII charsets.  Somet <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2120	2222	
==>ho, hmm, what about that ord?  Presumably that won't work right
    #  under non-ASCII charsets.  Somet <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10543	10645	
==>ho, hmm, what about that ord?  Presumably that won't work right
    #  under non-ASCII charsets.  Somet <==
7	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2223	2325	
==>ho, hmm, what about that ord?  Presumably that won't work right
    #  under non-ASCII charsets.  Somet <==
7	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	236	329	
==>RIPTION

Generate character set tables.

=cut


my ($svnid) = '$Id: /parrot/tools/dev/gen_char <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432520	432860	
==>2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433535	433875	
==>2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434549	434889	
==>2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435564	435904	
==>2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436578	436918	
==>2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437593	437933	
==>2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438607	438947	
==>2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
7	/Users/nnunley/parrot/lib/Class/Struct.pm	1051	1167	
==>ort anything else than 'struct'...?
      $self->export_to_level( 1, $self, @_ );
    } else {
      &struct;
    }
} <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550313	550413	
==>ion(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (op <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551614	551714	
==>ion(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (op <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554166	554266	
==>ion(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (op <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555563	555663	
==>ion(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (op <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558218	558318	
==>ion(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (op <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559602	559702	
==>ion(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (op <==
7	/Users/nnunley/parrot/languages/lua/Lua/build.pm	24894	25044	
==>f );
        push @opcodes, new LocalDir( $parser,
            'prolog' => 1,
            'result' => $defn,
        );
        push @opcodes, new <==
7	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	406	510	
==>new {
  my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  #$n <==
7	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	704	807	
==>new {
  my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $n <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	210	313	
==>new {
  my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $n <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	209	312	
==>new {
  my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $n <==
7	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	458	561	
==>new {
  my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $n <==
7	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	170	273	
==>new {
  my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $n <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	18816	18912	
==>ST_TOO' : $self->{flags}{is_const} ?
	  'VTABLE_IS_CONST_FLAG' : 0;
    if (exists $self->{flags} <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16415	16495	
==>\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord( <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16757	16837	
==>\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord( <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1880	1960	
==>\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord( <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9958	10038	
==>\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord( <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10201	10281	
==>\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord( <==
7	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1983	2063	
==>\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord( <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72890	72990	
==>G,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74492	74592	
==>G,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76094	76194	
==>G,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77697	77797	
==>G,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79218	79318	
==>G,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80739	80839	
==>G,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_ <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2204	2302	
==>RPM build specification',
	't' => 'Test file',
	'tbl' => 'Vtable file',
	'tcl' => 'TCL code',
	'txt <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11197	11314	
==>work right on
        #  all charsets that this module happens to run under.
        # Altho, hmm, what about that ord <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17037	17154	
==>work right on
        #  all charsets that this module happens to run under.
        # Altho, hmm, what about that ord <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4545	4660	
==>work right on
       #  all charsets that this module happens to run under.
       # Altho, hmm, what about that ord <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2038	2147	
==>work right on
    #  all charsets that this module happens to run under.
    # Altho, hmm, what about that ord <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10461	10570	
==>work right on
    #  all charsets that this module happens to run under.
    # Altho, hmm, what about that ord <==
7	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2141	2250	
==>work right on
    #  all charsets that this module happens to run under.
    # Altho, hmm, what about that ord <==
7	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3452	3545	
==>>1

' Mathmagic
dim m(1), ba(1)
fa=-1
m0=48100
m=48000
w=-19
t=3
m(t)=-100
ba(fa+1)=9
w=w+M(T) <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519190	519490	
==>E" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520044	520344	
==>E" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520899	521199	
==>E" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	521754	522054	
==>E" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522608	522908	
==>E" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523463	523763	
==>E" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
7	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32086	32184	
==>'} =~ /\$\{STACK0\}/ &&
		    $rule->{'instruction'} =~ /\$\{STOREREG\}/) {
			die "instruction mus <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503517	503816	
==>E" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504371	504670	
==>E" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505226	505525	
==>E" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506081	506380	
==>E" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506935	507234	
==>E" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507790	508089	
==>E" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	4299	4388	
==>ckage Parse::RecDescent::OffsetCounter;

sub TIESCALAR	# ($classname, \$text, $thisparser, <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813936	814194	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814558	814816	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	815186	815444	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867203	867294	
==>en;\n  len = string_length(interpreter, {{\@2}});\n  {{\@1}} = string_substr(interpreter, {{ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868169	868260	
==>en;\n  len = string_length(interpreter, {{\@2}});\n  {{\@1}} = string_substr(interpreter, {{ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869135	869226	
==>en;\n  len = string_length(interpreter, {{\@2}});\n  {{\@1}} = string_substr(interpreter, {{ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870102	870193	
==>en;\n  len = string_length(interpreter, {{\@2}});\n  {{\@1}} = string_substr(interpreter, {{ <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29753	29846	
==>my $n = $self->{has_method}{$meth};
    return $self->SUPER::body($self->{methods}[$n], $line, <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222078	222375	
==>OT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223020	223317	
==>OT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223961	224258	
==>OT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224903	225200	
==>OT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225843	226140	
==>OT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226784	227081	
==>OT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227763	228060	
==>OT_JUMP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
7	/Users/nnunley/parrot/tools/build/ops2c.pl	8484	8593	
==>i < @op_funcs; $i++) {
    if ($i && $i % $CORE_SPLIT == 0 && $trans->can("run_core_split")) {
        print S <==
7	/Users/nnunley/parrot/languages/regex/test.pl	2078	2211	
==>|--debug)$/) {
        $DEBUG = 1;
    } elsif (! defined $testfile) {
        $testfile = $_;
    } else {
        usage "too many ar <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	255	358	
==>Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block::File;

use Carp;

use Jak <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2802	2901	
==>r->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
    $left->sax($ <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3476	3575	
==>r->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
    $left->sax($ <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3566	3665	
==>r->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
    $left->sax($ <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5351	5448	
==>r->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
  $left->sax($ <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3414	3511	
==>r->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
  $left->sax($ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426198	426468	
==>terpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427085	427355	
==>terpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427971	428241	
==>terpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428858	429128	
==>terpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429744	430014	
==>terpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430631	430901	
==>terpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431517	431787	
==>terpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431852	432181	
==>"infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432866	433195	
==>"infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433881	434210	
==>"infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434895	435224	
==>"infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435910	436239	
==>"infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436924	437253	
==>"infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437939	438268	
==>"infix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
7	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	13020	13126	
==>n't open $filename: $!";
    my $text = do {local $/; <$fh>};
    close($fh) or die "Can't close $filename: <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632631	632724	
==>n new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+= <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633673	633766	
==>n new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+= <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080525	1080618	
==>n new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+= <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081590	1081683	
==>n new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+= <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082655	1082748	
==>n new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+= <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083721	1083814	
==>n new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+= <==
7	/Users/nnunley/parrot/config/inter/pmc.pm	2366	2485	
==>END";


The following PMC files are available:
  @pmc
END
        {
            $pmc_list = prompt('Which PMC files woul <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632612	632705	
==>gal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}} <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633654	633747	
==>gal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}} <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080506	1080599	
==>gal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}} <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081571	1081664	
==>gal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}} <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082636	1082729	
==>gal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}} <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083702	1083795	
==>gal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}} <==
7	/Users/nnunley/parrot/lib/Test/More.pm	36688	36783	
==>l.

L<Test::Differences> for more ways to test complex data structures.
And it plays well with T <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584602	584694	
==>s '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VT <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585677	585769	
==>s '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VT <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586824	586916	
==>s '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VT <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588010	588102	
==>s '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VT <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589196	589288	
==>s '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VT <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590383	590475	
==>s '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VT <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361792	362061	
==>\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362691	362960	
==>\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363593	363862	
==>\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364496	364765	
==>\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365335	365604	
==>\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366175	366444	
==>\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367073	367342	
==>\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
7	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1296	1407	
==>->{code}, $ctx) ];
    return $code;
}

sub list_to_pasm {
    my ($list_regex, $ctx, %options) = @_;
    my $cg <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2979	3084	
==>or each pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pi <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4737	4842	
==>or each pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pi <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1901	2006	
==>or each pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pi <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3153	3258	
==>or each pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pi <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1192	1297	
==>or each pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pi <==
7	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2902	3007	
==>or each pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pi <==
7	/Users/nnunley/parrot/tools/build/dynclasses.pl	2158	2284	
==>ink_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put vari <==
7	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2450	2576	
==>ink_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put vari <==
7	/Users/nnunley/parrot/tools/build/dynpmc.pl	2245	2371	
==>ink_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put vari <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	8719	8837	
==>name eq 'Para' ) 
    {
        $tagname = 'Para_item' 
            if @{$self->{STACK}} and $self->{STACK}->[-1] eq 't <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	8102	8219	
==>name eq 'Para') 
    {
        $tagname = 'Para_item' 
            if @{$self->{STACK}} and $self->{STACK}->[-1] eq 't <==
7	/Users/nnunley/parrot/lib/Parrot/Op.pm	7936	8038	
==>P' ||
	  ref($trans) eq 'Parrot::OpTrans::CSwitch')) {
        return qq{PANIC("How did you do that");r <==
7	/Users/nnunley/parrot/tools/build/ops2c.pl	8787	8880	
==>OURCE file.
#

close(SOURCE);
open(SOURCE, "<$source") || die "Error re-reading $source: $!\n" <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	853	959	
==>@tokens, Jako::Token->new(
      $file, $line, 'label', 'N', $2);
    $text = $3; # The "(?!:)" is non-capt <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28003	28106	
==>astexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse: <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30077	30180	
==>astexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse: <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32278	32381	
==>astexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse: <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34874	34977	
==>astexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse: <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41984	42087	
==>astexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse: <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74535	74636	
==>astexpected
		    && !$Parse::RecDescent::failed++) {
			$Parse::RecDescent::expected
			    = $Parse: <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350426	350681	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361918	362173	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362817	363072	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363719	363974	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364622	364877	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365461	365716	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366301	366556	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS <==
7	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64031	64145	
==>CHECK;
					}
				}
				elsif ($grammar =~ m/$EXACTLY/gco)
				{
					_parse("an exactly-$1-times subrule match", $ <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591494	591587	
==>MC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_except <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592704	592797	
==>MC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_except <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593914	594007	
==>MC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_except <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595125	595218	
==>MC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_except <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600137	600230	
==>MC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_except <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601213	601306	
==>MC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_except <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12626	12743	
==>\w+)           # other_method
      \(\s*(.*?)\)      # capture argument list
     /"pmc->vtable->$1(" . full_argument <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79498	79594	
==>lue */\n      {{\@1}} = pmc_new(interpreter, enum_class_UnManagedStruct);\n      PMC_data({{\@1}} <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81019	81115	
==>lue */\n      {{\@1}} = pmc_new(interpreter, enum_class_UnManagedStruct);\n      PMC_data({{\@1}} <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	838	931	
==>:Expression::Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL:: <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	676	769	
==>:Expression::Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL:: <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	829	922	
==>:Expression::Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL:: <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	718	811	
==>:Expression::Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL:: <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222083	222390	
==>MP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223025	223332	
==>MP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223966	224273	
==>MP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224908	225215	
==>MP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225848	226155	
==>MP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226789	227096	
==>MP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227768	228075	
==>MP_RELATIVE",
                  "NAME" => "ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11178	11297	
==>, so that this can work right on
        #  all charsets that this module happens to run under.
        # Altho, hmm, wh <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17018	17137	
==>, so that this can work right on
        #  all charsets that this module happens to run under.
        # Altho, hmm, wh <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4526	4643	
==>, so that this can work right on
       #  all charsets that this module happens to run under.
       # Altho, hmm, wh <==
7	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2019	2130	
==>, so that this can work right on
    #  all charsets that this module happens to run under.
    # Altho, hmm, wh <==
7	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10442	10553	
==>, so that this can work right on
    #  all charsets that this module happens to run under.
    # Altho, hmm, wh <==
7	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2122	2233	
==>, so that this can work right on
    #  all charsets that this module happens to run under.
    # Altho, hmm, wh <==
7	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	588	692	
==>2HTML;

use strict;
use warnings;

use base qw( Pod::Simple::HTML );

# This is just here to keep Pod::Si <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550456	550710	
==>_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551757	552011	
==>_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552948	553202	
==>_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558361	558615	
==>_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559745	559999	
==>_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560966	561220	
==>_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
7	/Users/nnunley/parrot/lib/Parrot/Configure.pm	4373	4518	
==>{
                $self->options->set(verbose => 2);
            }

            # by description
            elsif ($description =~ /$verbose_step <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459033	459355	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460020	460342	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461008	461330	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461996	462318	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462992	463314	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463989	464311	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  " <==
7	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28800	28901	
==>h) = @_;

    return 0 unless exists $self->{has_method}{$meth};
    my $n = $self->{has_method}{$meth <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438636	438994	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ": <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439650	440008	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ": <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440665	441023	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ": <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441679	442037	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ": <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442694	443052	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ": <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443708	444066	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ": <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444723	445081	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_infix",
                  "FLAGS" => ": <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852820	853063	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "io",
                                 "i" <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853601	853844	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "io",
                                 "i" <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18419	18524	
==>,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19132	19237	
==>,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19620	19725	
==>,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20109	20214	
==>,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 <==
7	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20598	20703	
==>,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 <==
7	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	261	417	
==><HEADING;
NAME                                              DONE      TOTAL     PERCENT
HEADING
foreach (@results) {
	print $_->{'name'} . (' ' x (50 - l <==
7	/Users/nnunley/parrot/languages/python/pie-thon.pl	3999	4112	
==>gument
		    $def_arg_names{$f}{$a} = $i;
		    # print STDERR "def $f($a = $i)\n";
		}
		push @code, [$line, $pc, <==
7	/Users/nnunley/parrot/languages/python/pie-thon.pl	4498	4611	
==>gument
		    $def_arg_names{$f}{$a} = $i;
		    # print STDERR "def $f($a = $i)\n";
		}
		push @code, [$line, $pc, <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773383	773471	
==>DY" => "#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpr <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774293	774381	
==>DY" => "#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpr <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775203	775291	
==>DY" => "#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpr <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776114	776202	
==>DY" => "#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpr <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332337	332435	
==>/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const mode = string_to_cst <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333615	333713	
==>/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const mode = string_to_cst <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334893	334991	
==>/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const mode = string_to_cst <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336172	336270	
==>/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const mode = string_to_cst <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	766	855	
==>fier (" . ref($ident) . ") is not!" unless UNIVERSAL::isa($ident, qw(Jako::Construct::Expr <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	791	880	
==>fier (". ref($ident) . ") is not!"  unless UNIVERSAL::isa($ident, qw(Jako::Construct::Expr <==
7	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	755	844	
==>fier (". ref($ident) . ") is not!"  unless UNIVERSAL::isa($ident, qw(Jako::Construct::Expr <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752347	752613	
==>" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753126	753392	
==>" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753913	754179	
==>" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754701	754967	
==>" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755487	755753	
==>" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756274	756540	
==>" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
7	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757063	757329	
==>" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72861	72960	
==>er, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown re <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74463	74562	
==>er, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown re <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76065	76164	
==>er, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown re <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77668	77767	
==>er, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown re <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79189	79288	
==>er, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown re <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80710	80809	
==>er, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown re <==
6	/Users/nnunley/parrot/lib/Test/Builder.pm	15203	15330	
==>exp' ) {
        $usable_regex = $regex;
    }
    # Check for '/foo/' or 'm,foo,'
    elsif( ($re, $opts)        = $regex =~ m{ <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27561	27661	
==>ule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				" <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30028	30128	
==>ule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				" <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33446	33546	
==>ule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				" <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34700	34800	
==>ule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				" <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37110	37210	
==>ule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062626	1062905	
==>}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063495	1063774	
==>}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064365	1064644	
==>}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065238	1065517	
==>}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066112	1066391	
==>}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	666	769	
==>s($t, 0, 0);
    # Delete the no-implicit-check marker
    $t = $self->maptree($t, sub { delete shift->{ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672213	672447	
==>c(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680740	680974	
==>c(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752836	753068	
==>c(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759884	760116	
==>c(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
6	/Users/nnunley/parrot/examples/benchmarks/oo2.pl	17	129	
==>rict;

for my $i (1 .. 500000) {
	my $o = new Foo();
}
my $o = new Foo();
print $o->[0], "\n";

package Foo;

sub <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	208	299	
==>ast if /STOPPLEASE/;
	@c=m/^'\s*(.*)/gm;
	print join("\n", @c), "\n====================== $t <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380329	380633	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381340	381644	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382352	382656	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383364	383668	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384377	384681	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io <==
6	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	5673	5781	
==>regular expressions for files to skip
   foreach my $dir ( sort keys %dir_list ) {
       next if $dir =~ m/\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1027898	1028073	
==>" => [
                              "i"
                            ],
                  "BODY" => "#line 295 \"src/ops/sys.ops\"\n  opcode_t *next = {{^+2}};\n  if ({{\@1}} < <==
6	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1535	1687	
==>{
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = $op- <==
6	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2195	2347	
==>{
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = $op- <==
6	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2631	2783	
==>{
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = $op- <==
6	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2435	2574	
==>{
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  $op->{result}->{symbol} = $op- <==
6	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	4881	5020	
==>{
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  $op->{result}->{symbol} = $op- <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055908	1056151	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056799	1057042	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057691	1057934	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058583	1058826	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
6	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1291	1406	
==>he
        # standard edition compiler' warning each time we compile.
        # The logo gets printed to STDERR; hen <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	29997	30095	
==>_op_substring {
}

sub _op_string_append {
}

sub _op_string_list {
}

sub _op_list_string {
}

sub <==
6	/Users/nnunley/parrot/lib/Pod/Escapes.pm	9445	9580	
==>, 'K',
   76, 'L',
   77, 'M',
   78, 'N',
   79, 'O',
   80, 'P',
   81, 'Q',
   82, 'R',
   83, 'S',
   84, 'T',
   85, 'U',
   86, 'V <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8224	8344	
==>die "Must always have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg = v <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9006	9126	
==>die "Must always have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg = v <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7877	7997	
==>die "Must always have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg = v <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8666	8786	
==>die "Must always have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg = v <==
6	/Users/nnunley/parrot/Configure.pl	8991	9105	
==>make
    inter::lex
    inter::yacc
    auto::gcc
    auto::msvc
    init::optimize
    inter::shlibs
    inter::li <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680972	681257	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681748	682033	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682522	682807	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683297	683582	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
6	/Users/nnunley/parrot/config/auto/msvc.pm	1358	1475	
==>c{_MSC_VER} % 100;
    unless (defined $major && defined $minor) {
        print " (no) " if $verbose;
        $self-> <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19471	19568	
==>atically
					  appended.");
	}
	elsif ($parser->{_AUTOTREE} && defined($item) && !$item->isa("Par <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727592	727851	
==>} = {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	728389	728648	
==>} = {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729183	729442	
==>} = {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729983	730242	
==>} = {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	21656	21761	
==>"    if cur_ic >= 0x$r2[0]->{'code'} goto INS_BRANCH_$prefix$r2[0]->{'code'}\n";
        $pir .= "    if c <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	807	902	
==>()> 

Reimplements the C<Pod::Simple::HTML> method to add a header to the start
of the document. <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353740	353985	
==>nterpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354485	354730	
==>nterpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355252	355497	
==>nterpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359434	359679	
==>nterpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360182	360427	
==>nterpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360952	361197	
==>nterpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262649	262971	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAG <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263595	263917	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAG <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264448	264770	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAG <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265302	265624	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAG <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266156	266478	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAG <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	2445	2624	
==>X};
}


###############################################################################

=head2 BLOCK->set_symbol(NAME, VALUE)

Set a symbol in this block's symbol table. If the sy <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	9058	9170	
==>E_CALL_END_${CURIC}:
PIR
}

sub post_call {
    # Nothing to do.
    return "";
}

sub pop_all {
    return "stac <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18919	19011	
==>p_0,$temp_1,"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$ <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19407	19499	
==>p_0,$temp_1,"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$ <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19895	19987	
==>p_0,$temp_1,"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$ <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20384	20476	
==>p_0,$temp_1,"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$ <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20873	20965	
==>p_0,$temp_1,"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$ <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1325	1450	
==>return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($comp <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1316	1441	
==>return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($comp <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1205	1330	
==>return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($comp <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1664	1789	
==>return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($comp <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1800	1925	
==>return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($comp <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1443	1568	
==>return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($comp <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054504	1054689	
==>n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055631	1055816	
==>n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056522	1056707	
==>n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057414	1057599	
==>n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058306	1058491	
==>n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059199	1059384	
==>n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
6	/Users/nnunley/parrot/editor/kate_syntax.pl	4336	4439	
==>te="Comment" context="#pop" String="^\\=cut\\s*\$" />
      </context>

END

print <<END;
      <context <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5656	5743	
==><Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans:: <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3232	3319	
==><Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans:: <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2960	3047	
==><Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans:: <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4638	4725	
==><Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans:: <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	4022	4109	
==><Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans:: <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494411	494736	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ": <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495279	495604	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ": <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496147	496472	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ": <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497016	497341	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ": <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497886	498211	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ": <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498756	499081	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ": <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766062	766325	
==>NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766914	767177	
==>NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767767	768030	
==>NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768620	768883	
==>NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19317	19407	
==>>current_block();
      my $left = Jako::Construct::Expression::Value::Identifier->new($blo <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20399	20489	
==>>current_block();
      my $left = Jako::Construct::Expression::Value::Identifier->new($blo <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	31055	31202	
==>'tableconstructor' => 46,
			'args' => 153
		}
	},
	{#State 104
		DEFAULT => -42
	},
	{#State 105
		ACTIONS => {
			"(" => 123
		},
		GOT <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2818	2913	
==>:Simple>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserv <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12182	12277	
==>:Simple>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserv <==
6	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3100	3195	
==>:Simple>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserv <==
6	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2838	2933	
==>:Simple>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserv <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	112	206	
==>rnext;
	$afternext=getc(D);
	$afternext="" if (! defined $afternext);
	$stmts++ if $afternext=~ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613947	614235	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047450	1047738	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054559	1054847	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059254	1059542	
==>, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597135	597421	
==>, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
6	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1238	1353	
==>hispara'} = '';
  } else {
    if($_[1]{'errata'}) { # start of errata!
      $_[0]{'Errata_seen'} = 1;
      $_[0]{ <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8025	8153	
==>{
    my $self = shift;

    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7678	7806	
==>{
    my $self = shift;

    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8808	8935	
==>{
    my $self = shift;
    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8468	8595	
==>{
    my $self = shift;
    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == <==
6	/Users/nnunley/parrot/tools/dev/cc_flags.pl	840	966	
==>";

my @options;

while (<F>) {
    chomp;
    s/#.*//;
    next unless /\S/;

    my $regex;
    if (s/^\{(.*?)\}\s*//) {
	nex <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20180	20277	
==>j
	print 
next i

' Square roots and sgn
print 10,sqr(10)
print 32767,sqr(32767)
print 0,sqr(0)
pr <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158870	159175	
==>NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 19 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159766	160071	
==>NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 19 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160663	160968	
==>NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 19 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161560	161865	
==>NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 19 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162456	162761	
==>NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 19 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163353	163658	
==>NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 19 <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	247	343	
==>:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expression:: <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	249	345	
==>:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expression:: <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	251	347	
==>:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expression:: <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	251	347	
==>:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expression:: <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	249	345	
==>:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expression:: <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	259	355	
==>:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expression:: <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867273	867512	
==>substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868239	868478	
==>substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869205	869444	
==>substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870172	870411	
==>substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1474	1595	
==>urp_file( "$out_f" );

        @_ = ( $prog_output, $output, $desc );
        #goto &{"Test::More::$meth"};
        my $ok <==
6	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1390	1511	
==>urp_file( "$out_f" );

        @_ = ( $prog_output, $output, $desc );
        #goto &{"Test::More::$meth"};
        my $ok <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471220	471313	
==>n(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472207	472300	
==>n(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473194	473287	
==>n(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474184	474277	
==>n(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475175	475268	
==>n(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476166	476259	
==>n(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / <==
6	/Users/nnunley/parrot/lib/Pod/Simple.pm	37726	37844	
==>,
             "  Splitting to page [...$1] + section [$2...]\n";

          push @section_name, splice @ell_content, 1 <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27351	27453	
==>, just take that. If not, we need
		# to generate it from the "to generate" instruction directive.
		$p <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29818	29920	
==>, just take that. If not, we need
		# to generate it from the "to generate" instruction directive.
		$p <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33236	33338	
==>, just take that. If not, we need
		# to generate it from the "to generate" instruction directive.
		$p <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34490	34592	
==>, just take that. If not, we need
		# to generate it from the "to generate" instruction directive.
		$p <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36900	37002	
==>, just take that. If not, we need
		# to generate it from the "to generate" instruction directive.
		$p <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90314	90611	
==>band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91167	91464	
==>band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92021	92318	
==>band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11 <==
6	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	3611	3737	
==>); # readline
        DEBUG > 3 and print "  Line is: ",
          defined($lines[-1]) ? $lines[-1] : "<undef>\n";
        unle <==
6	/Users/nnunley/parrot/tools/dev/lib_deps.pl	13219	13334	
==>inderl  math.h
remove      stdio.h
remquo      math.h
remquof     math.h
remquol     math.h
rename      stdio.h
rewi <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	11423	11524	
==>foreach $next ( @left )
	{
		next unless defined $rules->{$next}; # SKIP NON-EXISTENT RULES
		return 1 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540570	540689	
==>\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   el <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541822	541941	
==>\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   el <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543074	543193	
==>\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   el <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544357	544476	
==>\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   el <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545693	545812	
==>\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   el <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547029	547148	
==>\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   el <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584742	584991	
==>next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PAR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585817	586066	
==>next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PAR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598232	598481	
==>next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PAR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599279	599528	
==>next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PAR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600354	600603	
==>next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PAR <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13172	13272	
==>t list
     /"Parrot_${1}_$2(" . full_arguments($3) . ')'/xeg;

    # Rewrite SELF.other_method(args. <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515945	516272	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519753	520080	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520608	520935	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	521463	521790	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522317	522644	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523172	523499	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS <==
6	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1582	1710	
==>GF/ if $cc_output =~ m/Version (\d+)/ && $1 >= 13;

        $conf->data->set(
            share_ext  => '.dll',
            load_ <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1770	1878	
==>lation() {
	# Nothing to do.
	return "";
}

# Extra subroutines required for the mapper.
sub subs() {
	# No e <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	810	918	
==>lation() {
	# Nothing to do.
	return "";
}

# Extra subroutines required for the mapper.
sub subs() {
	# No e <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	567	675	
==>lation() {
	# Nothing to do.
	return "";
}

# Extra subroutines required for the mapper.
sub subs() {
	# No e <==
6	/Users/nnunley/parrot/lib/Pod/Simple.pm	9335	9442	
==>Carp::croak "\"$new_code\" isn't a valid element name"
        if $new_code =~
          m/[\x00-\x2C\x2F\x3 <==
6	/Users/nnunley/parrot/lib/Pod/Simple.pm	10599	10706	
==>Carp::croak "\"$new_code\" isn't a valid element name"
        if $new_code =~
          m/[\x00-\x2C\x2F\x3 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262907	263225	
==>,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263853	264171	
==>,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264706	265024	
==>,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265560	265878	
==>,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266414	266732	
==>,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	4646	4747	
==>_on {
	my($result, $type, @code)=EXPRESSION;  # The switch...
	feedme();
	my $branch=$syms[CURR];  # g <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747312	747539	
==>set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748097	748324	
==>set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753606	753833	
==>set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754394	754621	
==>set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324728	324954	
==>set_integer_native(interpreter, {{\@1}},{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325521	325747	
==>set_integer_native(interpreter, {{\@1}},{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454073	454351	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454927	455205	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455782	456060	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456637	456915	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457491	457769	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458346	458624	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1433	1540	
==>$compiler->indent;
      $self->SUPER::compile($compiler);
      $compiler->outdent;
      $compiler->emit(" <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1789	1896	
==>$compiler->indent;
      $self->SUPER::compile($compiler);
      $compiler->outdent;
      $compiler->emit(" <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1230	1337	
==>$compiler->indent;
      $self->SUPER::compile($compiler);
      $compiler->outdent;
      $compiler->emit(" <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1538	1645	
==>$compiler->indent;
      $self->SUPER::compile($compiler);
      $compiler->outdent;
      $compiler->emit(" <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	636	737	
==>$compiler->indent;
    $self->SUPER::compile($compiler);
    $compiler->outdent;
    $compiler->emit(" <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	2154	2250	
==>$compiler->indent;
  $self->SUPER::compile($compiler);
  $compiler->outdent;

  $compiler->emit(" <==
6	/Users/nnunley/parrot/tools/build/dynclasses.pl	4180	4282	
==>-> GROUP.so
    while (my ($group, $pmcs) = each %$group_files) {
        partial_link($group, $group_l <==
6	/Users/nnunley/parrot/tools/build/dynpmc.pl	4284	4386	
==>-> GROUP.so
    while (my ($group, $pmcs) = each %$group_files) {
        partial_link($group, $group_l <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9954	10050	
==>ck last to first, but need to be first to last in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITE <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7468	7564	
==>ck last to first, but need to be first to last in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITE <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6432	6528	
==>ck last to first, but need to be first to last in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITE <==
6	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2425	2521	
==>=item $token->dump

This returns a handy stringified value of this object.  This
is useful for de <==
6	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	5881	5973	
==>y $label = qr/ *[A-Z][a-zA-Z ]+:/;
	($desc) = /(?:^|\n) *Overview: *\n(((?!$label) *[^\n]+\n) <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3442	3559	
==>));
  }

  #
  # For regular (user-defined) and NCI (Native Call Interface) subs:
  #

  else {
#    $self->DEBUG(0, " <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2451	2547	
==>start_element({ Name => 'block', Attributes => { kind => 'test' } });
    $handler->start_element <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2328	2424	
==>start_element({ Name => 'block', Attributes => { kind => 'test' } });
    $handler->start_element <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2721	2817	
==>start_element({ Name => 'block', Attributes => { kind => 'test' } });
    $handler->start_element <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3395	3491	
==>start_element({ Name => 'block', Attributes => { kind => 'test' } });
    $handler->start_element <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3485	3581	
==>start_element({ Name => 'block', Attributes => { kind => 'test' } });
    $handler->start_element <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550431	550665	
==>nvoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551732	551966	
==>nvoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552923	553157	
==>nvoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558336	558570	
==>nvoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559720	559954	
==>nvoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560941	561175	
==>nvoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	4101	4246	
==>p('if', [ $op1, $test, $op2, $dest ]);
    } else {
        my $testop = rop('test', [ $op1, $rev_test, $op2,
                                   r <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	2727	2835	
==>ift;

  return $self->{BLOCKS}[shift];
}


#
# block_depth()
#
# Block depth zero is when the only block on t <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344376	344467	
==>reter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* string_cstring_free(path <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345618	345709	
==>reter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* string_cstring_free(path <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346860	346951	
==>reter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* string_cstring_free(path <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348103	348194	
==>reter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* string_cstring_free(path <==
6	/Users/nnunley/parrot/examples/benchmarks/addit.pl	678	787	
==>s[2] = 87;
$args[3] = "3.87";
$args[4] = "21000000";
for (my $x = 500000; $x >= 0; --$x) {
    $result = varar <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	4782	4890	
==>_pair_item('', 'key'),
            $self->c_pair_item('', 'sub'),
            $self->c_header_item('', 'pobj' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467606	467699	
==>n = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468477	468570	
==>n = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477029	477122	
==>n = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477925	478018	
==>n = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940257	940396	
==>"s"
                            ],
                  "BODY" => "#line 486 \"src/ops/string.ops\"\n    {{\@1}} = string_split(interpreter, {{ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941149	941288	
==>"s"
                            ],
                  "BODY" => "#line 486 \"src/ops/string.ops\"\n    {{\@1}} = string_split(interpreter, {{ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467662	467757	
==>terpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468533	468628	
==>terpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469407	469502	
==>terpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470282	470377	
==>terpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3} <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11156	11289	
==>e list without a range, so that this can work right on
        #  all charsets that this module happens to run under.
        # Altho, <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16996	17129	
==>e list without a range, so that this can work right on
        #  all charsets that this module happens to run under.
        # Altho, <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4504	4635	
==>e list without a range, so that this can work right on
       #  all charsets that this module happens to run under.
       # Altho, <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1997	2122	
==>e list without a range, so that this can work right on
    #  all charsets that this module happens to run under.
    # Altho, <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10420	10545	
==>e list without a range, so that this can work right on
    #  all charsets that this module happens to run under.
    # Altho, <==
6	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2100	2225	
==>e list without a range, so that this can work right on
    #  all charsets that this module happens to run under.
    # Altho, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454076	454385	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454930	455239	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455785	456094	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456640	456949	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457494	457803	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458349	458658	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948274	948469	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949073	949268	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949873	950068	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950832	951027	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951792	951987	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952752	952947	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11285	11392	
==>ltho, hmm, what about that ord?  Presumably that won't work right
        #  under non-ASCII charsets.  Some <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17125	17232	
==>ltho, hmm, what about that ord?  Presumably that won't work right
        #  under non-ASCII charsets.  Some <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4631	4737	
==>ltho, hmm, what about that ord?  Presumably that won't work right
       #  under non-ASCII charsets.  Some <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2118	2221	
==>ltho, hmm, what about that ord?  Presumably that won't work right
    #  under non-ASCII charsets.  Some <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10541	10644	
==>ltho, hmm, what about that ord?  Presumably that won't work right
    #  under non-ASCII charsets.  Some <==
6	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2221	2324	
==>ltho, hmm, what about that ord?  Presumably that won't work right
    #  under non-ASCII charsets.  Some <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7282	7397	
==>elf, $reg, $db_desc) = @_;
    $reg = value($reg);

    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($db_d <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6924	7039	
==>elf, $reg, $db_desc) = @_;
    $reg = value($reg);

    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($db_d <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9382	9496	
==>elf, $reg, $db_desc) = @_;
    $reg = value($reg);
    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($db_d <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9076	9190	
==>elf, $reg, $db_desc) = @_;
    $reg = value($reg);
    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($db_d <==
6	/Users/nnunley/parrot/tools/build/pmc2c.pl	9876	9983	
==>ough the pmc declaration header for flags such as noinit
    while ($$c =~ s/^\s*(\w+)//s) {
        my $fla <==
6	/Users/nnunley/parrot/languages/regex/test.pl	3323	3429	
==>w('pir', emit_main => 1);

    print PIR <<"END";
# Regular expression test
# Generated by $0
# Pattern >>$ <==
6	/Users/nnunley/parrot/languages/regex/regex.pl	1932	2034	
==>ch (@$trees);
    exit;
} elsif ($operation eq 'dump') {
    print $_->dump_tree(), "\n" foreach (@$tre <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18522	18615	
==>p_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19235	19328	
==>p_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19723	19816	
==>p_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20212	20305	
==>p_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20701	20794	
==>p_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 <==
6	/Users/nnunley/parrot/languages/python/pie-thon.pl	15361	15470	
==>mp($t = 'P');
	my $nr = $r->[1];
#	$nr = promote($r) if $r->[2] eq 'S';
	$nr = promote($r);
	print <<"EOC";
	$ <==
6	/Users/nnunley/parrot/config/auto/bc.pm	418	515	
==>ription @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Configure::S <==
6	/Users/nnunley/parrot/config/auto/gdbm.pm	363	460	
==>ription @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Configure::S <==
6	/Users/nnunley/parrot/config/auto/gmp.pm	317	414	
==>ription @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Configure::S <==
6	/Users/nnunley/parrot/config/auto/m4.pm	392	489	
==>ription @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Configure::S <==
6	/Users/nnunley/parrot/config/auto/readline.pm	324	421	
==>ription @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Configure::S <==
6	/Users/nnunley/parrot/config/init/optimize.pm	410	507	
==>ription @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Configure::S <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28008	28111	
==>pected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse::RecD <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30082	30185	
==>pected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse::RecD <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32283	32386	
==>pected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse::RecD <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34879	34982	
==>pected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse::RecD <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41989	42092	
==>pected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse::RecD <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74540	74641	
==>pected
		    && !$Parse::RecDescent::failed++) {
			$Parse::RecDescent::expected
			    = $Parse::RecD <==
6	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	968	1064	
==>($mini_parrot, $install_parrot);

$mini_parrot = 1    if @ARGV && $ARGV[0] =~ /mini/;
$install_pa <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663806	664130	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664578	664902	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665354	665678	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7175	7282	
==>$$rules[-$act]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print STDERR "Reduce using rule ".-$a <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27512	27615	
==>hname, $prefix)=@_;		
	my @params;
	while(feedme()) {
		last if ($type[CURR] eq "STMT");
		last if ($typ <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6843	6946	
==>$$rules[-$act]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print STDERR "Reduce using rule ".-$a <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476501	476785	
==>{
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477396	477680	
==>{
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478292	478576	
==>{
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479183	479467	
==>{
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "i <==
6	/Users/nnunley/parrot/config/init/hints/solaris.pm	1631	1805	
==>");
    };
    $conf->data->settrigger("cc", "solaris_link", $solaris_link_cb);

    ################################################################
    # cc_shared:  Flags t <==
6	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	2119	2223	
==>00 if $chr =~ /^[[:alnum:]_]$/; # CCLASS_WORD

    return $ret;
}


=item B<create_table>( $name )

Creat <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288378	288703	
==>0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289234	289559	
==>0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290090	290415	
==>0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293502	293827	
==>0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294378	294703	
==>0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295254	295579	
==>0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540629	540750	
==>++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541881	542002	
==>++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543133	543254	
==>++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544416	544537	
==>++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545752	545873	
==>++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547088	547209	
==>++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080649	1080972	
==>perimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081714	1082037	
==>perimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082779	1083102	
==>perimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103028	1103351	
==>perimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104242	1104565	
==>perimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  " <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	971	1066	
==>'alternate' => [ map { $self->convert($_, $ctx) } @{ $tree->branches } ]);
}

sub convert_rx_seq <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743142	743499	
==>RGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 836,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467675	467789	
==>LL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468546	468660	
==>LL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469420	469534	
==>LL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470295	470409	
==>LL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS <==
6	/Users/nnunley/parrot/lib/Text/Balanced.pm	35228	35326	
==>tring.)

Likewise the call in:

	@result = extract_bracketed( $text, '{[' );

would return the same <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563419	563716	
==>",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 6 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564316	564613	
==>",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 6 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610652	610949	
==>",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 6 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611554	611851	
==>",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 6 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612457	612754	
==>",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 6 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613363	613660	
==>",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 6 <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28066	28176	
==>se::RecDescent::expected
				   = $Parse::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30140	30250	
==>se::RecDescent::expected
				   = $Parse::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32341	32451	
==>se::RecDescent::expected
				   = $Parse::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34937	35047	
==>se::RecDescent::expected
				   = $Parse::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42047	42157	
==>se::RecDescent::expected
				   = $Parse::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74596	74705	
==>se::RecDescent::expected
			    = $Parse::RecDescent::lastexpected;
			$Parse::RecDescent::unexpected
			    = <==
6	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	508	630	
==>nd {
  $_[1] =~ tr/-:./__/;
  ( $_[0]->can( 'end_' . $_[1] )
    || return
  )->(
    $_[0]
  );
}

1;


__END__

=head1 NA <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27531	27632	
==>>{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule-> <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29998	30099	
==>>{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule-> <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33416	33517	
==>>{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule-> <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34670	34771	
==>>{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule-> <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37080	37181	
==>>{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule-> <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31737	31853	
==>emitted
    if ($self->SUPER::implements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self-> <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33314	33430	
==>emitted
    if ($self->SUPER::implements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self-> <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35025	35141	
==>emitted
    if ($self->SUPER::implements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self-> <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36328	36444	
==>emitted
    if ($self->SUPER::implements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self-> <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38275	38391	
==>emitted
    if ($self->SUPER::implements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self-> <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40371	40487	
==>emitted
    if ($self->SUPER::implements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self-> <==
6	/Users/nnunley/parrot/tools/dev/parrot_api.pl	1062	1159	
==>ot lib.

Either the API listing is wrong or the implementation is missing.

=item No Parrotish Pre <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22168	22261	
==>::Construct::Expression::Value->new($block, $self->require_value);

        $self->require_clo <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23101	23194	
==>::Construct::Expression::Value->new($block, $self->require_value);

        $self->require_clo <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24747	24839	
==>::Construct::Expression::Value->new($block, $self->require_value);
        $self->require_clo <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9928	10019	
==>::Construct::Expression::Value->new($block, $self->require_value);

      $self->require_clo <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25464	25555	
==>::Construct::Expression::Value->new($block, $self->require_value);

      $self->require_clo <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454068	454314	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454922	455168	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455777	456023	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456632	456878	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457486	457732	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458341	458587	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88745	88920	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89482	89657	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90220	90395	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91073	91248	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91927	92102	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	14733	14843	
==>ath($rel_path);
    
    $self->{DOCS_FILE} = $docs_file;

    $rel_path = $self->href_path(
        $docs_file <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084833	1085193	
==>}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085886	1086246	
==>}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086939	1087299	
==>}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087993	1088353	
==>}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090947	1091307	
==>}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1092007	1092367	
==>}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591492	591586	
==>(PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_excep <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592702	592796	
==>(PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_excep <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593912	594006	
==>(PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_excep <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595123	595217	
==>(PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_excep <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600135	600229	
==>(PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_excep <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601211	601305	
==>(PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_excep <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550233	550346	
==>E_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_exception(interpreter, next, METH_NOT_FO <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551534	551647	
==>E_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_exception(interpreter, next, METH_NOT_FO <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554086	554199	
==>E_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_exception(interpreter, next, METH_NOT_FO <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555483	555596	
==>E_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_exception(interpreter, next, METH_NOT_FO <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558138	558251	
==>E_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_exception(interpreter, next, METH_NOT_FO <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559522	559635	
==>E_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_exception(interpreter, next, METH_NOT_FO <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494396	494725	
==>@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "F <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495264	495593	
==>@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "F <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496132	496461	
==>@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "F <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497001	497330	
==>@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "F <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497871	498200	
==>@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "F <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498741	499070	
==>@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "F <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628035	628258	
==>> 704,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 53 \"src/ops/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2 <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6052	6142	
==>STEMP0} = ${PTEMP1}["reg_type_short"]
${DEST0} = concat ${STEMP0}
${DEST0} = concat "0"
pre <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504087	504410	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504942	505265	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505797	506120	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506651	506974	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507506	507829	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" = <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	32594	32717	
==>\&_op_define,
  'set!'       => \&_op_set_bang,
  'cond'       => \&_op_cond,
  'case'       => \&_op_case,
  'and'        = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	337165	337405	
==>",
                  "CODE" => 394,
                  "ARGS" => [
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 81 \"src/ops/io.ops\"\n  {{\@1}} = (INTV <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19017	19114	
==>n,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return $return;
}

sub _op <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19505	19602	
==>n,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return $return;
}

sub _op <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19993	20090	
==>n,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return $return;
}

sub _op <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20482	20579	
==>n,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return $return;
}

sub _op <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20971	21068	
==>n,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return $return;
}

sub _op <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16399	16482	
==>=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16741	16824	
==>=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1864	1947	
==>=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9942	10025	
==>=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10185	10268	
==>=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 <==
6	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1967	2050	
==>=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137632	137929	
==>VE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138527	138824	
==>VE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139423	139720	
==>VE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140319	140616	
==>VE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141214	141511	
==>VE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142110	142407	
==>VE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196803	197100	
==>VE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197699	197996	
==>VE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198596	198893	
==>VE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199493	199790	
==>VE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200389	200686	
==>VE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201286	201583	
==>VE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7585	7693	
==>peration hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If the destin <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5703	5811	
==>peration hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If the destin <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4545	4653	
==>peration hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If the destin <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11160	11246	
==>_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1}["reg_type_short"]
${DES <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8346	8432	
==>_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1}["reg_type_short"]
${DES <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6008	6094	
==>_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1}["reg_type_short"]
${DES <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515959	516283	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519767	520091	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520622	520946	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	521477	521801	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522331	522655	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523186	523510	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632613	632709	
==>al PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633655	633751	
==>al PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080507	1080603	
==>al PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081572	1081668	
==>al PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082637	1082733	
==>al PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083703	1083799	
==>al PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605148	605426	
==>eter, {{\@2}}, {{\@1}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	99642	99918	
==>eter, {{\@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104088	104364	
==>eter, {{\@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	252203	252479	
==>eter, {{\@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450134	450410	
==>eter, {{\@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	512538	512814	
==>eter, {{\@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659272	659578	
==>\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ex <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660193	660499	
==>\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ex <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661115	661421	
==>\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ex <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662030	662336	
==>\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ex <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8348	8558	
==>E" => "branch_cs",
                  "FLAGS" => ":base_loop,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inli <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9463	9673	
==>E" => "branch_cs",
                  "FLAGS" => ":base_loop,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inli <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540578	540698	
==>ile( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!( <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541830	541950	
==>ile( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!( <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543082	543202	
==>ile( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!( <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544365	544485	
==>ile( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!( <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545701	545821	
==>ile( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!( <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547037	547157	
==>ile( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!( <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071106	1071472	
==>P" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073290	1073656	
==>P" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075475	1075841	
==>P" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077660	1078026	
==>P" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
6	/Users/nnunley/parrot/tools/build/dynclasses.pl	6222	6326	
==>(\%group_files, \%group_libs, \%pmc_group, \%pmc_libs);
}

sub modtime {
    my $ago = (-M shift);

    i <==
6	/Users/nnunley/parrot/tools/build/dynpmc.pl	6433	6537	
==>(\%group_files, \%group_libs, \%pmc_group, \%pmc_libs);
}

sub modtime {
    my $ago = (-M shift);

    i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950645	950952	
==>st);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951605	951912	
==>st);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952565	952872	
==>st);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961103	961410	
==>st);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962065	962372	
==>st);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963027	963334	
==>st);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565124	565400	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "can",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566016	566292	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "can",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	331756	332022	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333033	333299	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334311	334577	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335589	335855	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480820	481128	
==>floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481823	482131	
==>floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482826	483134	
==>floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483824	484132	
==>floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484823	485131	
==>floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485822	486130	
==>floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11139	11247	
==>Yes, stipulate the list without a range, so that this can work right on
        #  all charsets that this mod <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16979	17087	
==>Yes, stipulate the list without a range, so that this can work right on
        #  all charsets that this mod <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4487	4594	
==>Yes, stipulate the list without a range, so that this can work right on
       #  all charsets that this mod <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1980	2084	
==>Yes, stipulate the list without a range, so that this can work right on
    #  all charsets that this mod <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10403	10507	
==>Yes, stipulate the list without a range, so that this can work right on
    #  all charsets that this mod <==
6	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2083	2187	
==>Yes, stipulate the list without a range, so that this can work right on
    #  all charsets that this mod <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23125	23321	
==>LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEX <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25564	25760	
==>LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEX <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028278	1028474	
==>LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEX <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029129	1029325	
==>LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEX <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029970	1030166	
==>LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEX <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20371	20463	
==>'','gt',[$temp_0,$temp_1,"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_ins <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727007	727250	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exchange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727805	728048	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exchange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	728602	728845	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exchange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729396	729639	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exchange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7336	7475	
==>efined $next;
        unless( $next->type eq 'text' ) {
          $self->unget_token($next);
          next;
        }
        DEBUG and pri <==
6	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9581	9720	
==>efined $next;
        unless( $next->type eq 'text' ) {
          $self->unget_token($next);
          next;
        }
        DEBUG and pri <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3957	4060	
==>: string (TODO: domain)

  confess "No block!"  unless defined $self and ref $self and $self->isa("Jako: <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7068	7171	
==>: string (TODO: domain)

  confess "No block!"  unless defined $self and ref $self and $self->isa("Jako: <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7866	7969	
==>: string (TODO: domain)

  confess "No block!"  unless defined $self and ref $self and $self->isa("Jako: <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8513	8616	
==>: string (TODO: domain)

  confess "No block!"  unless defined $self and ref $self and $self->isa("Jako: <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9181	9284	
==>: string (TODO: domain)

  confess "No block!"  unless defined $self and ref $self and $self->isa("Jako: <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9850	9953	
==>: string (TODO: domain)

  confess "No block!"  unless defined $self and ref $self and $self->isa("Jako: <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471239	471366	
==>, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472226	472353	
==>, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473213	473340	
==>, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474203	474330	
==>, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475194	475321	
==>, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476185	476312	
==>, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632618	632715	
==>C enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}}) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633660	633757	
==>C enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}}) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080512	1080609	
==>C enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}}) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081577	1081674	
==>C enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}}) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082642	1082739	
==>C enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}}) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083708	1083805	
==>C enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}}) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380332	380655	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381343	381666	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382355	382678	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383367	383690	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384380	384703	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  " <==
6	/Users/nnunley/parrot/lib/Test/Builder.pm	17618	17729	
==>"Bail out!  $reason");
    exit 255;
}

=item B<skip>

    $Test->skip;
    $Test->skip($why);

Skips the curren <==
6	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	984	1088	
==>pod on how to recreate this file after SVN
# has been told about new generated files.
# 
# Ignore the SVN <==
6	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3839	3942	
==>pod on how to recreate this file after SVN
# has been told about new generated files.
#
# Ignore the SVN <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332431	332518	
==>o_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHANDLE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333709	333796	
==>o_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHANDLE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334987	335074	
==>o_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHANDLE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336266	336353	
==>o_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHANDLE <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2970	3076	
==>Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4728	4834	
==>Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1892	1998	
==>Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3144	3250	
==>Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1183	1289	
==>Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2893	2999	
==>Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514149	514445	
==>LOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515029	515325	
==>LOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515909	516205	
==>LOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528655	528951	
==>LOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529537	529833	
==>LOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	530419	530715	
==>LOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
6	/Users/nnunley/parrot/config/auto/bc.pm	402	499	
==>se vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parr <==
6	/Users/nnunley/parrot/config/auto/gdbm.pm	347	444	
==>se vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parr <==
6	/Users/nnunley/parrot/config/auto/gmp.pm	301	398	
==>se vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parr <==
6	/Users/nnunley/parrot/config/auto/m4.pm	376	473	
==>se vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parr <==
6	/Users/nnunley/parrot/config/auto/readline.pm	308	405	
==>se vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parr <==
6	/Users/nnunley/parrot/config/init/optimize.pm	394	491	
==>se vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parr <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654916	655207	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655711	656002	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656634	656925	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657558	657849	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658476	658767	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	1178	1295	
==>r)" ],

    [ "pushmark()" ],
    [ "popmark()" ],
    [ "pushindex()" ],
    [ "popindex()" ],

    [ "preamble()" ], <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	13565	13695	
==>ssigns {
    my ( $parser, $vars, $exprs ) = @_;
    my @opcodes1 = ();
    my @opcodes2 = ();
    my @opcodes3 = ();
    whil <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478874	478966	
==>ion(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor( <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479766	479858	
==>ion(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor( <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483737	483829	
==>ion(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor( <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484736	484828	
==>ion(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor( <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485735	485827	
==>ion(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor( <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27997	28101	
==>ent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $P <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30071	30175	
==>ent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $P <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32272	32376	
==>ent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $P <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34868	34972	
==>ent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $P <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41978	42082	
==>ent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $P <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74529	74631	
==>ent::lastexpected
		    && !$Parse::RecDescent::failed++) {
			$Parse::RecDescent::expected
			    = $P <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137626	137924	
==>RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138521	138819	
==>RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139417	139715	
==>RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140313	140611	
==>RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141208	141506	
==>RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142104	142402	
==>RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11200	11400	
==>t2 = new_tmp( $parser, 'pmc' );
                        push @opcodes, new LocalDir( $parser,
                            'result' => $result2,
                        );
                        pu <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9423	9607	
==>t2 = new_tmp( $parser, 'pmc' );
                    push @opcodes, new LocalDir( $parser,
                        'result' => $result2,
                    );
                    pu <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12720	12904	
==>t2 = new_tmp( $parser, 'pmc' );
                    push @opcodes, new LocalDir( $parser,
                        'result' => $result2,
                    );
                    pu <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8399	8551	
==>t2 = new_tmp( $parser, 'pmc' );
            push @opcodes, new LocalDir( $parser,
                'result' => $result2,
            );
            pu <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17613	17749	
==>t2 = new_tmp( $parser, 'pmc' );
        push @opcodes, new LocalDir( $parser,
            'result' => $result2,
        );
        pu <==
6	/Users/nnunley/parrot/tools/util/pirtidy.pl	1362	1457	
==>ever changes the input file.

=head1 BUGS

Missing all of the perltidy-ish geeknobs and options. <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	8246	8356	
==>text';
      }
      print $fh $self->{'Tagmap'}{"/$tagname"} || next;
      --$dont_wrap if $tagname eq 'Verba <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18476	18574	
==>);

  $return = $self->_constant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2 <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19189	19287	
==>);

  $return = $self->_constant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2 <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19677	19775	
==>);

  $return = $self->_constant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2 <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20166	20264	
==>);

  $return = $self->_constant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2 <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20655	20753	
==>);

  $return = $self->_constant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2 <==
6	/Users/nnunley/parrot/tools/build/nativecall.pl	10980	11089	
==>emps_ref}, "PMC *t_$temp_num;";
        push @{$extra_preamble_ref},
             "t_$temp_num = GET_NCI_P($re <==
6	/Users/nnunley/parrot/tools/build/nativecall.pl	9992	10100	
==>emps_ref}, "PMC *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_P($re <==
6	/Users/nnunley/parrot/tools/build/nativecall.pl	10384	10492	
==>emps_ref}, "PMC *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_P($re <==
6	/Users/nnunley/parrot/tools/build/nativecall.pl	11583	11691	
==>emps_ref}, "PMC* t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_P($re <==
6	/Users/nnunley/parrot/tools/build/nativecall.pl	13147	13255	
==>emps_ref}, "PMC *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_P($re <==
6	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	470	568	
==>ctions

For ops that have trivial bodies (such as just a call to some other
function and a C<return <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381250	381512	
==>LL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382262	382524	
==>LL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383274	383536	
==>LL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384287	384549	
==>LL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
6	/Users/nnunley/parrot/examples/benchmarks/oo6.pl	4	111	
==>erl -w
use strict;

my $o = new Foo();
for my $i (1 .. 500000) {
	$o->i($i);
	$o->j($i);
}
print $o->i, "\n" <==
6	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	4711	4817	
==>($self->{FILE}) {
	$self->{FILE}=~s/, $//;
	$self->{FILE}=~s/, $//;
    }

    return $self;
}

=back

=hea <==
6	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5433	5567	
==>nt {$FH} "$_->{symbol}";
                if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                    print {$FH} " : <==
6	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6465	6599	
==>nt {$FH} "$_->{symbol}";
                if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                    print {$FH} " : <==
6	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5858	5984	
==>nt {$FH} "$_->{symbol}";
            if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                print {$FH} " : <==
6	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6953	7079	
==>nt {$FH} "$_->{symbol}";
            if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                print {$FH} " : <==
6	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	9867	9993	
==>nt {$FH} "$_->{symbol}";
            if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                print {$FH} " : <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	28297	28390	
==>lishname}_ARGOK
	print "Function $englishname received "
	print argc
	print " arguments expect <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369518	369783	
==>ter, {{\@2}}, (size_t){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	370403	370668	
==>ter, {{\@2}}, (size_t){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6773	6882	
==>st load operation hooks.
sub pre_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If we <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4711	4820	
==>st load operation hooks.
sub pre_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If we <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3583	3692	
==>st load operation hooks.
sub pre_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If we <==
6	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	12075	12160	
==>*\cs26 \additive \f1\lang1024\noproof\sbasedon25 pod-codelbock-ital;}
{\*\cs27 \additi <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454753	455058	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455608	455913	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456463	456768	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457317	457622	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458172	458477	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core <==
6	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	44817	44924	
==>> 4 and print "Formatting <$formatting>    on <", $p->[$i-1], ">\n";


    my @new_line;
    while( $formatt <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93357	93617	
==>eter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94137	94397	
==>eter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109681	109941	
==>eter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110460	110720	
==>eter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133886	134146	
==>eter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134667	134927	
==>eter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470548	470878	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471534	471864	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472521	472851	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473508	473838	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474498	474828	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475489	475819	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31651	31764	
==>, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33228	33341	
==>, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34939	35052	
==>, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36242	36355	
==>, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38189	38302	
==>, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40285	40398	
==>, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER <==
6	/Users/nnunley/parrot/tools/dev/install_files.pl	5038	5149	
==>use case to make this configurable we'll add a seperate
        # --pkgconfigdir option.
        $dest = File::S <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2491	2593	
==>tes => { kind => 'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infi <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2368	2470	
==>tes => { kind => 'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infi <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2761	2863	
==>tes => { kind => 'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infi <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3435	3537	
==>tes => { kind => 'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infi <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3525	3627	
==>tes => { kind => 'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infi <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	601	701	
==>trict;
use warnings;

use base qw( Pod::Simple::HTML );

# This is just here to keep Pod::Simple::HTM <==
6	/Users/nnunley/parrot/lib/Parrot/Test.pm	15906	16028	
==>>diag("'$cmd' failed with exit code $exit_code")
                  if $exit_code and not $pass;

            unless($ENV{PO <==
6	/Users/nnunley/parrot/lib/Parrot/Test.pm	18457	18579	
==>>diag("'$cmd' failed with exit code $exit_code")
                  if $exit_code and not $pass;

            unless($ENV{PO <==
6	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	4067	4189	
==>>diag("'$cmd' failed with exit code $exit_code")
                  if $exit_code and not $pass;

            unless($ENV{PO <==
6	/Users/nnunley/parrot/lib/Parrot/Test.pm	25499	25603	
==>>diag("'$cmd' failed with exit code $exit_code") if $exit_code and not $pass;

            unless($ENV{PO <==
6	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	1719	1820	
==>>diag("'$cmd' failed with exit code $exit_code")
    if $exit_code and not $pass;

    unless ($ENV{PO <==
6	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	3280	3377	
==>ure is
C<PConfig>.

Accepts no arguments and returns a string.

=cut

# Data::Dumper supports Sort <==
6	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	13448	13556	
==>fined $self->VERSION;
     $tag = $class . $tag;
   }

   return sprintf <<'END',
{\info{\doccomm
%s
 using % <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478876	478968	
==>n(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({{ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479768	479860	
==>n(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({{ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483739	483831	
==>n(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({{ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484738	484830	
==>n(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({{ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485737	485829	
==>n(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({{ <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	15671	15800	
==>=> 38
		},
		DEFAULT => -56,
		GOTOS => {
			'tableconstructor' => 46,
			'args' => 52,
			'key' => 53
		}
	},
	{#State 3 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344464	344557	
==>path); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, en <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345706	345799	
==>path); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, en <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346948	347041	
==>path); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, en <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348191	348284	
==>path); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, en <==
6	/Users/nnunley/parrot/lib/Pod/Simple.pm	10255	10338	
==>--------------------------------------------------------
sub unaccept_code { shift-> <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16395	16476	
==>\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123 <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16737	16818	
==>\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123 <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1860	1941	
==>\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123 <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9938	10019	
==>\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123 <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10181	10262	
==>\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123 <==
6	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1963	2044	
==>\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955898	956004	
==>y(interpreter, Parrot_encoding_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956710	956816	
==>y(interpreter, Parrot_encoding_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332397	332488	
==>const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333675	333766	
==>const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334953	335044	
==>const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336232	336323	
==>const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846487	846691	
==>"ARGS" => [
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 56 \"src/ops/string.ops\"\n  STRING *s;\n  s = string_chr( <==
6	/Users/nnunley/parrot/lib/Test/More.pm	27449	27557	
==>ype);
    }

    return '';
}


=head2 Discouraged comparison functions

The use of the following functions i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067022	1067127	
==>: {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068208	1068313	
==>: {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069394	1069499	
==>: {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070581	1070686	
==>: {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( <==
6	/Users/nnunley/parrot/tools/build/jit2c.pl	8083	8174	
==>ch[jit_info->op_i + (i)]
#endif

extern PARROT_API char **Parrot_exec_rel_addr;
extern PARRO <==
6	/Users/nnunley/parrot/config/gen/platform.pm	530	635	
==>(miniparrot verbose);

sub runstep {
    my ($self, $conf) = @_;

    my $verbose  = $conf->options->get(' <==
6	/Users/nnunley/parrot/config/auto/gcc.pm	481	585	
==>(miniparrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get(' <==
6	/Users/nnunley/parrot/config/auto/memalign.pm	497	601	
==>(miniparrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get(' <==
6	/Users/nnunley/parrot/config/auto/signal.pm	442	546	
==>(miniparrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get(' <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37478	37575	
==>e"} . '})
					if defined $::RD_TRACE;').'
		$Parse::RecDescent::lastexpected = ' . ($rule->haslef <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39881	39978	
==>e"} . '})
					if defined $::RD_TRACE;').'
		$Parse::RecDescent::lastexpected = ' . ($rule->haslef <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154274	154436	
==>ss( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGD <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155177	155339	
==>ss( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGD <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156081	156243	
==>ss( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGD <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156985	157147	
==>ss( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGD <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157890	158052	
==>ss( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGD <==
6	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	4534	4634	
==>uly blank lines, between the # comment lines
	s/\n(\# *\n){2,}/\n\#\n/sg; # crush down double blank l <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909393	909702	
==>@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910290	910599	
==>@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911187	911496	
==>@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912085	912394	
==>@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638222	638529	
==>@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "i <==
6	/Users/nnunley/parrot/lib/Pod/Escapes.pm	4474	4594	
==>acirc'    , 226,
 'atilde'   , 227,
 'auml'     , 228,
 'aring'    , 229,
 'aelig'    , 230,
 'ccedil'   , 231,
 'egrave' <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11265	11389	
==>n under.
        # Altho, hmm, what about that ord?  Presumably that won't work right
        #  under non-ASCII charsets.  S <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17105	17229	
==>n under.
        # Altho, hmm, what about that ord?  Presumably that won't work right
        #  under non-ASCII charsets.  S <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4612	4734	
==>n under.
       # Altho, hmm, what about that ord?  Presumably that won't work right
       #  under non-ASCII charsets.  S <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2102	2218	
==>n under.
    # Altho, hmm, what about that ord?  Presumably that won't work right
    #  under non-ASCII charsets.  S <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10525	10641	
==>n under.
    # Altho, hmm, what about that ord?  Presumably that won't work right
    #  under non-ASCII charsets.  S <==
6	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2205	2321	
==>n under.
    # Altho, hmm, what about that ord?  Presumably that won't work right
    #  under non-ASCII charsets.  S <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105017	105239	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105754	105976	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	106492	106714	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107345	107567	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108199	108421	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
6	/Users/nnunley/parrot/lib/Pod/Simple.pm	26892	26996	
==>xtensor: Fallbacks <%s> Elements <%s>.\n",
     @fallbacks, @elements;

    my $canonical_form;
    forea <==
6	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	2037	2155	
==>);
    if (! defined($status) || $status) {
        die "assemble failed with status " . ($? >> 8);
    }
}

sub genera <==
6	/Users/nnunley/parrot/languages/regex/test.pl	3711	3829	
==>);
    if (! defined($status) || $status) {
        die "assemble failed with status " . ($? >> 8);
    }
}

sub genera <==
6	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30805	30915	
==>ontent of the item if it's a number or bullet.
          DEBUG and print " Item is of type ", $para->[0], " und <==
6	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	31770	31880	
==>ontent of the item if it's a number or bullet.
          DEBUG and print " Item is of type ", $para->[0], " und <==
6	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34093	34203	
==>ontent of the item if it's a number or bullet.
          DEBUG and print " Item is of type ", $para->[0], " und <==
6	/Users/nnunley/parrot/lib/Test/Builder.pm	8878	8983	
==>);

    $self->diag(<<ERR) if defined $name and $name =~ /^[\d\s]+$/;
    You named your test '$name'.  Yo <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273639	273900	
==>\"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	274485	274746	
==>\"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	275331	275592	
==>\"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	626713	627071	
==>> [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 703,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 53 \"src <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	361	475	
==>ako::Construct::Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  return bless {
    TOKEN    => $token <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	358	472	
==>ako::Construct::Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  return bless {
    TOKEN    => $token <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	349	463	
==>ako::Construct::Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  return bless {
    TOKEN    => $token <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	358	472	
==>ako::Construct::Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  return bless {
    TOKEN    => $token <==
6	/Users/nnunley/parrot/languages/python/pie-thon.pl	7184	7290	
==>P0 = getinterp
    \$P0."recursion_limit"(998)
    .local pmc __name__
    __name__ = new $DEFVAR
    __nam <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613951	614238	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047454	1047741	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054563	1054850	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059258	1059545	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597139	597424	
==>\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
6	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	10100	10213	
==>arlier one went okay
    } else {
      $enc_error = "Encoding is already set to " . $self->{'encoding'};
      DE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494375	494665	
==>tval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495243	495533	
==>tval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496111	496401	
==>tval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496980	497270	
==>tval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497850	498140	
==>tval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498720	499010	
==>tval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830739	831000	
==>ULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLA <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831480	831741	
==>ULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLA <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832207	832468	
==>ULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLA <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832935	833196	
==>ULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLA <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833657	833918	
==>ULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLA <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834382	834643	
==>ULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLA <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25132	25230	
==>urn;
  my $num_children = defined $node->{children} ? @{$node->{children}} - 1 : 0;

  if($num_chil <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27032	27130	
==>urn;
  my $num_children = defined $node->{children} ? @{$node->{children}} - 1 : 0;

  if($num_chil <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	3247	3345	
==>ot::Docs::HTMLPage->footer('', '../resources'));
    
    return $self->html_link . "<br>\n";
}

=b <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24244	24341	
==>urn;
  my $num_children = defined $node->{children} ? @{$node->{children}} - 1 : 0;
  if($num_chil <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26143	26240	
==>urn;
  my $num_children = defined $node->{children} ? @{$node->{children}} - 1: 0;

  if($num_chil <==
6	/Users/nnunley/parrot/config/auto/funcptr.pm	14	103	
==>) 2001-2003, The Perl Foundation.
# $Id: /parrot/config/auto/funcptr.pm 19593 2006-05-30T0 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123252	123529	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124125	124402	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124999	125276	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164657	164824	
==>s",
                              "ic"
                            ],
                  "BODY" => "#line 190 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165586	165753	
==>s",
                              "ic"
                            ],
                  "BODY" => "#line 190 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1} <==
6	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	19084	19182	
==>sh @{$self->{OPS}}, $op;
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::Op>

=item C<Parrot::O <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332844	333148	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_o <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334122	334426	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_o <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335400	335704	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_o <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1744	1845	
==>ation hook.
sub post_translation() {
	# Nothing to do.
	return "";
}

# Extra subroutines required for <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	784	885	
==>ation hook.
sub post_translation() {
	# Nothing to do.
	return "";
}

# Extra subroutines required for <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	541	642	
==>ation hook.
sub post_translation() {
	# Nothing to do.
	return "";
}

# Extra subroutines required for <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5620	5706	
==>tem C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans:: <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3196	3282	
==>tem C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans:: <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4625	4711	
==>tem C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans:: <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4602	4688	
==>tem C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans:: <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3986	4072	
==>tem C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans:: <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	984	1079	
==>unless UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    B <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	996	1091	
==>unless UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    B <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	914	1009	
==>unless UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    B <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	752	847	
==>unless UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    B <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	905	1000	
==>unless UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    B <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	794	889	
==>unless UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    B <==
6	/Users/nnunley/parrot/config/inter/progs.pm	4024	4189	
==>bug || $debug =~ /n/i) {
        $conf->data->set(
            cc_debug   => '',
            link_debug => '',
            ld_debug   => ''
        );
    }

    # Th <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73234	73574	
==>FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74836	75176	
==>FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76438	76778	
==>FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78041	78381	
==>FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	7971	8064	
==>de{$seg}->{code}},<<FNOTB;
@codef	noop
	_screen_color($resultf)	# Broke!
FNOTB
	}
}
sub parse_ <==
6	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4512	4600	
==>irectory_exists_with_name($name)>

Returns whether a subdirectory with the specified name <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1446	1549	
==>dent;
      $self->SUPER::compile($compiler);
      $compiler->outdent;
      $compiler->emit(".endnames <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1802	1905	
==>dent;
      $self->SUPER::compile($compiler);
      $compiler->outdent;
      $compiler->emit(".endnames <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1243	1346	
==>dent;
      $self->SUPER::compile($compiler);
      $compiler->outdent;
      $compiler->emit(".endnames <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1551	1654	
==>dent;
      $self->SUPER::compile($compiler);
      $compiler->outdent;
      $compiler->emit(".endnames <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	649	746	
==>dent;
    $self->SUPER::compile($compiler);
    $compiler->outdent;
    $compiler->emit(".endnames <==
6	/Users/nnunley/parrot/tools/build/pmc2c.pl	21942	22036	
==>int $fh "LIBRARY $group\nEXPORTS\n\tParrot_lib_${group}_load\n" unless $defexists;
        prin <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135516	135771	
==>e_xor(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136410	136665	
==>e_xor(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137304	137559	
==>e_xor(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2788	2896	
==>test, $val1, $val2, $dest) = @_;
    $val1 = value($val1);
    $val2 = value($val2);
    return "$test $val1, <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	632	736	
==>>prefix;
  }
  else {
    $prefix = $self->peer ? $peer->prefix : $compiler->block_label($kind);
    $sel <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	612	716	
==>>prefix;
  }
  else {
    $prefix = $self->peer ? $peer->prefix : $compiler->block_label($kind);
    $sel <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471285	471576	
==>ro\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472272	472563	
==>ro\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473259	473550	
==>ro\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474249	474540	
==>ro\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475240	475531	
==>ro\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476231	476522	
==>ro\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8251	8370	
==>print STDERR "Abort.\n";

				return(undef);

			};

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Back to state <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7878	7990	
==>print STDERR "Abort.\n";

				return(undef);

			};

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Back to state <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3013	3106	
==>> 'Project info',
	'README' => 'README file',
	'RELEASE_INSTRUCTIONS' => 'Project info',
	'RES <==
6	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	116	207	
==>pl src/builtins/foo.tmt > src/builtins/foo.pir

=head1 DESCRIPTION

Use this script to gener <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017973	1018064	
==>_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_gmtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018898	1018989	
==>_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_gmtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863327	863616	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bytelength",
                  "FLAGS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864218	864507	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bytelength",
                  "FLAGS" = <==
6	/Users/nnunley/parrot/config/gen/makefiles.pm	1412	1552	
==>replace_slashes                => 1,
        conditioned_lines              => 1
    );
    genfile(
        'config/gen/makefiles/dynpmc_pl. <==
6	/Users/nnunley/parrot/tools/build/dynclasses.pl	583	681	
==>to work, but it's safer than "" as some platforms
# (eg FreeBSD) have ""s embedded in their substut <==
6	/Users/nnunley/parrot/tools/build/dynoplibs.pl	541	639	
==>to work, but it's safer than "" as some platforms
# (eg FreeBSD) have ""s embedded in their substut <==
6	/Users/nnunley/parrot/tools/build/dynpmc.pl	545	643	
==>to work, but it's safer than "" as some platforms
# (eg FreeBSD) have ""s embedded in their substut <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550304	550412	
==>al_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (o <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551605	551713	
==>al_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (o <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554157	554265	
==>al_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (o <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555554	555662	
==>al_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (o <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558209	558317	
==>al_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (o <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559593	559701	
==>al_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (o <==
6	/Users/nnunley/parrot/tools/build/ops2c.pl	12820	12926	
==>atic int get_op(const char * name, int full) {
    HOP * p;
    const size_t hidx = hash_str(name) % OP_HAS <==
6	/Users/nnunley/parrot/lib/Pod/Simple.pm	6544	6643	
==>n_directives{$d};
    $this->{'accept_directives'}{$d} = $type;
    DEBUG > 2 and print "Learning to <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849856	849945	
==>ne 83 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@2}}, {{\@3}}, 0);\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850743	850832	
==>ne 83 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@2}}, {{\@3}}, 0);\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851630	851719	
==>ne 83 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@2}}, {{\@3}}, 0);\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852518	852607	
==>ne 83 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@2}}, {{\@3}}, 0);\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494415	494747	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495283	495615	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496151	496483	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497020	497352	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497890	498222	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498760	499092	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core", <==
6	/Users/nnunley/parrot/languages/python/pie-thon.pl	26915	27032	
==>ne{$c};
		print <<"EOC";
	    ne_addr $c, None, temp_$code_l
	    $c = new $DEFVAR
temp_$code_l:
EOC
	    }
	    print <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18539	18632	
==>erate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_genera <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19252	19345	
==>erate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_genera <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19740	19833	
==>erate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_genera <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20229	20322	
==>erate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_genera <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20718	20811	
==>erate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_genera <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34450	34559	
==>tions')
		. ($self->{argcode} ? ",sub { return $self->{argcode} }"
				   : ',undef')
		. ')))
		{
			'.($self <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	1237	1346	
==>{
    my ($self, $ops, $ctx) = @_;

    if (ref($ops->[0]) eq 'LABEL_COMMENTS') {
        $self->{_label_comme <==
6	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1791	1898	
==>ude/config.fpmc';
    open F, $image_file or die "Can't read '$image_file': $!";
    my $image;
    local $/ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381191	381285	
==>2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (32bit) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382203	382297	
==>2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (32bit) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383215	383309	
==>2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (32bit) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384228	384322	
==>2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (32bit) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943867	944087	
==>rot_charset_number_of_str(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944656	944876	
==>rot_charset_number_of_str(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579219	579328	
==>,
                  "BODY" => "#line 289 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interprete <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580524	580633	
==>,
                  "BODY" => "#line 289 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interprete <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581829	581938	
==>,
                  "BODY" => "#line 289 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interprete <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583135	583244	
==>,
                  "BODY" => "#line 289 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interprete <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9189	9318	
==>$errstatus # if 0, then YYErrok has been called
            or  next;       # so continue parsing

#DBG>			$debug & 0x10
#DBG> <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8774	8899	
==>$errstatus # if 0, then YYErrok has been called
            or  next;       # so continue parsing

#DBG>			$debug & 0x10
#DBG> <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072025	1072137	
==>\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074210	1074322	
==>\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076395	1076507	
==>\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078581	1078693	
==>\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175324	175607	
==>" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176227	176510	
==>" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177131	177414	
==>" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178035	178318	
==>" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178940	179223	
==>" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19989	20088	
==>ns",
	return

' Random number distribution
randomize timer
max=10
dim a(max)
for i = 0 to 100
	b=rnd <==
6	/Users/nnunley/parrot/lib/Test/Builder.pm	15479	15591	
==>x = length $opts ? "(?$opts)$re" : $re;
    }

    return $usable_regex;
};

sub _regex_ok {
    my($self, $this, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061146	1061416	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062686	1062956	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063555	1063825	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064425	1064695	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065298	1065568	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" = <==
6	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	5176	5285	
==>h svn or svk
   my $svn_cmd;
   if (defined $Parrot::Revision::svn_entries 
            && $Parrot::Revision:: <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27527	27628	
==>ule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($ru <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29994	30095	
==>ule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($ru <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33412	33513	
==>ule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($ru <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34666	34767	
==>ule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($ru <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37076	37177	
==>ule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($ru <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20562	20654	
==>ckage Parse::RecDescent::Action;

sub describe { undef }

sub sethashname { $_[0]->{hashname} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180634	180898	
==>cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181530	181794	
==>cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182426	182690	
==>cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183321	183585	
==>cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184217	184481	
==>cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185113	185377	
==>cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109104	109316	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109882	110094	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110661	110873	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111552	111764	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112444	112656	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	4285	4386	
==>ep"]= 1   # Turn on stepping mode
	\$P0=new .PerlHash
	\$P1["break"]= \$P0  # Breakpoints
	\$P0=new .P <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	14059	14181	
==>ody =~ s/^\t/        /mg;
    $body =~ s/^[ ]{4}//mg;
    my $super = $self->{super}{$meth};

    my $total_body;
    if ($ <==
6	/Users/nnunley/parrot/lib/Test/Builder.pm	35746	35840	
==>run less (or more) tests than you planned, the missing (or extras)
will be considered failures. <==
6	/Users/nnunley/parrot/lib/Test/More.pm	33817	33911	
==>run less (or more) tests than you planned, the missing (or extras)
will be considered failures. <==
6	/Users/nnunley/parrot/lib/Test/Simple.pm	2613	2707	
==>run less (or more) tests than you planned, the missing (or extras)
will be considered failures. <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1500	1588	
==>t ${STEMP1}
${STEMP1} = "$register_num"
${STEMP0} = concat ${STEMP1}
${STACK$register_num <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3210	3298	
==>t ${STEMP1}
${STEMP1} = "$register_num"
${STEMP0} = concat ${STEMP1}
${STACK$register_num <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079853	1080171	
==>,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080917	1081235	
==>,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081982	1082300	
==>,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083047	1083365	
==>,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103296	1103614	
==>,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104510	1104828	
==>,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631943	632261	
==>,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 7 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632984	633302	
==>,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 7 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634026	634344	
==>,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 7 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635143	635461	
==>,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 7 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636261	636579	
==>,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 7 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637379	637697	
==>,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 7 <==
6	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18087	18180	
==>nting in MSWord, WordPad/write.exe, TextEdit, etc.

This is a subclass of L<Pod::Simple> and i <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	197	289	
==>/Construct/Statement/New.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "us <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27445	27552	
==>ive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"p <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29912	30019	
==>ive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"p <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33330	33437	
==>ive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"p <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34584	34691	
==>ive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"p <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36994	37101	
==>ive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"p <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	2807	2906	
==>dump info (PMC metadata).

This function is exported.

=cut

sub dynext_load_code {
    my ($libname <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1311	1428	
==>}
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $sel <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1302	1419	
==>}
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $sel <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1191	1308	
==>}
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $sel <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1650	1767	
==>}
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $sel <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1786	1903	
==>}
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $sel <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1429	1546	
==>}
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $sel <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180637	180902	
==>.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Pa <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181533	181798	
==>.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Pa <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182429	182694	
==>.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Pa <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183324	183589	
==>.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Pa <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184220	184485	
==>.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Pa <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185116	185381	
==>.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Pa <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477201	477491	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478097	478387	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478988	479278	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479880	480170	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" = <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11866	11957	
==>ac,@args)=pushargs(\@code, \$optype, \@work);
			$pir_args = join(",", map {$_->[0]} (revers <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	12276	12367	
==>ac,@args)=pushargs(\@code, \$optype, \@work);
			$pir_args = join(",", map {$_->[0]} (revers <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852723	853022	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853504	853803	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854286	854585	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855174	855473	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856063	856362	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856952	857251	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836806	837037	
==>UMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837538	837769	
==>UMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838272	838503	
==>UMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	839004	839235	
==>UMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline <==
6	/Users/nnunley/parrot/lib/Pod/Escapes.pm	5405	5539	
==>'Tau'      , 932,
 'Upsilon'  , 933,
 'Phi'      , 934,
 'Chi'      , 935,
 'Psi'      , 936,
 'Omega'    , 937,
 'alpha'    , 945,
 'b <==
6	/Users/nnunley/parrot/languages/python/pie-thon.pl	34449	34551	
==>{
    return Store_Slice(@_, 0);
}
sub STORE_SLICE_plus_1 {
    return Store_Slice(@_, 1);
}
sub STORE_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748884	749105	
==>_number_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749668	749889	
==>_number_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755184	755405	
==>_number_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755971	756192	
==>_number_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352112	352319	
==>inline",
                  "CODE" => 410,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 195 \"src/ops/io.ops\"\n  PIO_printf <==
6	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	1070	1188	
==>desc, %options ) = @_;
  
        my $count = $self->{builder}->current_test() + 1;

        # These are the thing that <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247638	247945	
==>: {{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	248502	248809	
==>: {{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	249366	249673	
==>: {{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627521	627813	
==>}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "F <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628665	628957	
==>}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "F <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924469	924761	
==>}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "F <==
6	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	731	827	
==>$description, @todo)>

Runs the target string against the Perl 6 pattern, passing the test
if the <==
6	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1848	1944	
==>$description, @todo)>

Runs the target string against the Perl 6 pattern, passing the test if
the <==
6	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2382	2478	
==>$description, @todo)>

Runs the target string against the Perl 6 pattern, passing the test
if the <==
6	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2829	2925	
==>$description, @todo)>

Runs the target string against the Perl 6 pattern, passing the test
if the <==
6	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3380	3476	
==>$description, @todo)>

Runs the target string against the Perl 6 pattern, passing the test if
the <==
6	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3816	3912	
==>$description, @todo)>

Runs the target string against the Perl 6 pattern, passing the test
if the <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288346	288637	
==>}} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289202	289493	
==>}} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290058	290349	
==>}} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
6	/Users/nnunley/parrot/languages/python/pie-thon.pl	893	1036	
==>r => 1,
    list => 1,
    long => 1,
    int => 1,
    map => 1,
    max => 'v',
    min => 'v',
    range => 1,
    xrange => 1,
    reduce => <==
6	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	261	354	
==>OUT{IO};
  $new->nix_X_codes(1);
  return $new;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
6	/Users/nnunley/parrot/config/auto/env.pm	40	130	
==>dation.
# $Id: /parrot/config/auto/env.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1229	1382	
==>m:
      s/(
         [^\n]{55}         # Snare some characters from a line
         [^\n\ ]{0,50}     #  and finish any current word
        )
        \x <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1173	1326	
==>m:
      s/(
         [^\n]{55}         # Snare some characters from a line
         [^\n\ ]{0,50}     #  and finish any current word
        )
        \x <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712374	712471	
==>*s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  s = Parrot <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713481	713578	
==>*s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  s = Parrot <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719841	719938	
==>*s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  s = Parrot <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721041	721138	
==>*s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  s = Parrot <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7925	8017	
==>ned $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "No identifier na <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8572	8664	
==>ned $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "No identifier na <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9240	9332	
==>ned $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "No identifier na <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9909	10001	
==>ned $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "No identifier na <==
6	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	369	460	
==>~~~~~~~~~~~~~~~~~~

sub _handle_element_start {
  print {$_[0]{'output_fh'}} "\n"  unless $_ <==
6	/Users/nnunley/parrot/config/auto/aio.pm	7	97	
==>ight (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/config/auto/aio.pm 19593 2006-05-30 <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11261	11379	
==>o run under.
        # Altho, hmm, what about that ord?  Presumably that won't work right
        #  under non-ASCII ch <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17101	17219	
==>o run under.
        # Altho, hmm, what about that ord?  Presumably that won't work right
        #  under non-ASCII ch <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4608	4724	
==>o run under.
       # Altho, hmm, what about that ord?  Presumably that won't work right
       #  under non-ASCII ch <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2098	2208	
==>o run under.
    # Altho, hmm, what about that ord?  Presumably that won't work right
    #  under non-ASCII ch <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10521	10631	
==>o run under.
    # Altho, hmm, what about that ord?  Presumably that won't work right
    #  under non-ASCII ch <==
6	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2201	2311	
==>o run under.
    # Altho, hmm, what about that ord?  Presumably that won't work right
    #  under non-ASCII ch <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450977	451248	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_co <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451715	451986	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_co <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452454	452725	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_co <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453192	453463	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_co <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453931	454202	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_co <==
6	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	586	736	
==>my $pir_fn  = $options->{with_past} ?
                    Parrot::Test::per_test( '_antlr2.pir', $count )
                    :
                    Par <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540635	540755	
==>}\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   e <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541887	542007	
==>}\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   e <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543139	543259	
==>}\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   e <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544422	544542	
==>}\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   e <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545758	545878	
==>}\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   e <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547094	547214	
==>}\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   e <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1738	1838	
==>e = $_->{type} if $_->{type} eq 'REAL';
    }
    $node->{type} = $cur_type;#$node->{children}[0]{typ <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2485	2584	
==>ttributes => { kind => 'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2362	2461	
==>ttributes => { kind => 'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2755	2854	
==>ttributes => { kind => 'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3429	3528	
==>ttributes => { kind => 'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3519	3618	
==>ttributes => { kind => 'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54908	55197	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55668	55957	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56429	56718	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57191	57480	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57952	58241	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => <==
6	/Users/nnunley/parrot/lib/Parrot/Test.pm	9372	9469	
==>we do it.
*plan = \&Test::More::plan;
*skip = \&Test::More::skip;

# What about File::Slurp?
sub s <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471278	471553	
==>e by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472265	472540	
==>e by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473252	473527	
==>e by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474242	474517	
==>e by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475233	475508	
==>e by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476224	476499	
==>e by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197372	197646	
==>1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198269	198543	
==>1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199166	199440	
==>1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200062	200336	
==>1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200959	201233	
==>1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201856	202130	
==>1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124571	124769	
==>i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 257 \"src/ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540648	540785	
==>>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541900	542037	
==>>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543152	543289	
==>>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544435	544572	
==>>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545771	545908	
==>>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547107	547244	
==>>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1 <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	774	873	
==>uld remain unchanged.
#
# (c) Copyright 1998-2001 Francois Desarmenien, all rights reserved.
# (s <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	752	848	
==>uld remain unchanged.
#
# (c) Copyright 1998-2001 Francois Desarmenien, all rights reserved.
# (s <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858528	858622	
==>8 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot r <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859532	859626	
==>8 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot r <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860536	860630	
==>8 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot r <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861541	861635	
==>8 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot r <==
6	/Users/nnunley/parrot/lib/Test/More.pm	10319	10422	
==>at, 'this && that' );
    ...etc...

Its advantage over ok() is when the test fails you'll know what $th <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2447	2544	
==>er->start_element({ Name => 'block', Attributes => { kind => 'test' } });
    $handler->start_elem <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2324	2421	
==>er->start_element({ Name => 'block', Attributes => { kind => 'test' } });
    $handler->start_elem <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2717	2814	
==>er->start_element({ Name => 'block', Attributes => { kind => 'test' } });
    $handler->start_elem <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3391	3488	
==>er->start_element({ Name => 'block', Attributes => { kind => 'test' } });
    $handler->start_elem <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3481	3578	
==>er->start_element({ Name => 'block', Attributes => { kind => 'test' } });
    $handler->start_elem <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471264	471531	
==>t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472251	472518	
==>t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473238	473505	
==>t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474228	474495	
==>t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475219	475486	
==>t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476210	476477	
==>t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344144	344253	
==>\"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const path = string_to_cstring(i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345386	345495	
==>\"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const path = string_to_cstring(i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346628	346737	
==>\"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const path = string_to_cstring(i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347871	347980	
==>\"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const path = string_to_cstring(i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349039	349148	
==>\"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const path = string_to_cstring(i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350041	350150	
==>\"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const path = string_to_cstring(i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746754	747058	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747538	747842	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748323	748627	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749106	749410	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749890	750194	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750673	750977	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	17591	17691	
==>";
		feedme();  # At the while/until
		my $which=$syms[CURR];
		push @{$code{$seg}->{code}}, "DO_$doc <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	33943	34042	
==>_p,
  'symbol->string' => \&_op_symbol_string,
  'string->symbol' => \&_op_string_symbol,

###
### N <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586706	586800	
==>}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587892	587986	
==>}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589078	589172	
==>}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590265	590359	
==>}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830758	831015	
==>",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_c <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831499	831756	
==>",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_c <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832226	832483	
==>",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_c <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832954	833211	
==>",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_c <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833676	833933	
==>",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_c <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834401	834658	
==>",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_c <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262757	263050	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263703	263996	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264556	264849	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265410	265703	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266264	266557	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	4279	4430	
==>),
            $self->c_source_item('', 'byteorder'),
        ),
        $self->new_group(
            'Data Types',
            '',
            $self-> <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	15935	16043	
==>ally be allowing the shift constant to be negative?
    #

    if ($token->is_ident
      and $self->get(1)-> <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	5376	5473	
==>pe) {
    $self->whine("Typeless L!?", $token->attr('start_line'));
  } elsif( $type eq 'pod') { r <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151098	151190	
==>->vtable->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152076	152168	
==>->vtable->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172326	172418	
==>->vtable->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173304	173396	
==>->vtable->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\ <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	517	626	
==>emit code to really do any moves we've done lazily.
sub _do_lazy_moves {
    my $suffix = shift || "";  
    m <==
6	/Users/nnunley/parrot/lib/Test/Builder.pm	37069	37167	
==>gram is free software; you can redistribute it and/or 
modify it under the same terms as Perl itsel <==
6	/Users/nnunley/parrot/lib/Test/More.pm	37478	37576	
==>gram is free software; you can redistribute it and/or 
modify it under the same terms as Perl itsel <==
6	/Users/nnunley/parrot/lib/Test/Simple.pm	6438	6536	
==>gram is free software; you can redistribute it and/or 
modify it under the same terms as Perl itsel <==
6	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16485	16582	
==>gram is free software; you can redistribute it and/or modify it
under the same terms as Perl itsel <==
6	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1699	1796	
==>gram is free software; you can redistribute it and/or modify it
under the same terms as Perl itsel <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065743	1065980	
==>> "function",
                  "CODE" => 1190,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 260 \"src/ops/var.ops\"\ <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4213	4308	
==>,$result,$op,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2 <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4477	4572	
==>,$result,$op,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2 <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5113	5208	
==>,$result,$op,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2 <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5489	5584	
==>,$result,$op,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2 <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5921	6016	
==>,$result,$op,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454756	455060	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455611	455915	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456466	456770	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457320	457624	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458175	458479	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core", <==
6	/Users/nnunley/parrot/examples/benchmarks/primes2.pl	159	256	
==>printf("N primes calculated to %d is %d\nlast is: %d\n",$max,$i6,$i7);

sub isprime1
{
    my($inp <==
6	/Users/nnunley/parrot/lib/Test/Builder.pm	37075	37174	
==>s free software; you can redistribute it and/or 
modify it under the same terms as Perl itself.

See <==
6	/Users/nnunley/parrot/lib/Test/More.pm	37484	37583	
==>s free software; you can redistribute it and/or 
modify it under the same terms as Perl itself.

See <==
6	/Users/nnunley/parrot/lib/Test/Simple.pm	6444	6543	
==>s free software; you can redistribute it and/or 
modify it under the same terms as Perl itself.

See <==
6	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16491	16589	
==>s free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See <==
6	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1705	1803	
==>s free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See <==
6	/Users/nnunley/parrot/tools/dev/parrot_api.pl	2014	2110	
==>t so that only the Parrot
itself sees those shortened definitions, the defines must not leak
to t <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654839	655162	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARG <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656557	656880	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARG <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657481	657804	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARG <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658399	658722	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARG <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89797	90035	
==>"inline",
                  "CODE" => 111,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 38 \"src/ops/bit.ops\"\n  {{\@ <==
6	/Users/nnunley/parrot/lib/Pod/Simple.pm	20863	21008	
==>" as an attribute value to tweak.\n";
            }
          }
        }
      }
    }
  }
  DEBUG > 2 and print "End of _wrap_up traversal.\n\n" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961063	961318	
==>coding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962025	962280	
==>coding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962987	963242	
==>coding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963950	964205	
==>coding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46946	47049	
==>\n  if ({{\@1}} != 0) { Interp_debug_SET(interpreter,   {{\@1}}); }\n  else         { Interp_debug_CLEAR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47729	47832	
==>\n  if ({{\@1}} != 0) { Interp_debug_SET(interpreter,   {{\@1}}); }\n  else         { Interp_debug_CLEAR <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1612	1744	
==>[0]{'indent'}, "</", $_[1], ">\n";
  return;
}

# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

sub _x <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4665	4761	
==>ess)>

Transforms the C<goto ADDRESS($address)> macro in an ops file into the
relevant C code.

= <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1330	1426	
==>ess)>

Transforms the C<goto ADDRESS($address)> macro in an ops file into the
relevant C code.

= <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1855	1951	
==>ess)>

Transforms the C<goto ADDRESS($address)> macro in an ops file into the
relevant C code.

= <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1746	1842	
==>ess)>

Transforms the C<goto ADDRESS($address)> macro in an ops file into the
relevant C code.

= <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1470	1566	
==>ess)>

Transforms the C<goto ADDRESS($address)> macro in an ops file into the
relevant C code.

= <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3425	3527	
==>ib} and $props{fnlib}) {
      $fnlib = $props{fnlib}->value; # TODO: We should make sure its a string, <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6089	6191	
==>ib} and $props{fnlib}) {
      $fnlib = $props{fnlib}->value; # TODO: We should make sure its a string, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018064	1018154	
==>, resultbuffer);\n  {{\@1}} = string_from_cstring(interpreter, resultbuffer, 26);\n  {{+=3} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018989	1019079	
==>, resultbuffer);\n  {{\@1}} = string_from_cstring(interpreter, resultbuffer, 26);\n  {{+=3} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019919	1020009	
==>, resultbuffer);\n  {{\@1}} = string_from_cstring(interpreter, resultbuffer, 26);\n  {{+=3} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020850	1020940	
==>, resultbuffer);\n  {{\@1}} = string_from_cstring(interpreter, resultbuffer, 26);\n  {{+=3} <==
6	/Users/nnunley/parrot/languages/python/pie-thon.pl	5231	5344	
==>s]!;
	if ($vtables{$arg}) {
	    $real_name = $vtables{$arg};
	}
    }
    print <<EOC;
.end		# $cur_func
.namespa <==
6	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1360	1467	
==>ine=ulwave
   ]
   # But no double-strikethrough, because MSWord can't agree with the
   #  RTF spec on whet <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858639	858730	
==>ive arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859643	859734	
==>ive arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860647	860738	
==>ive arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861652	861743	
==>ive arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61911	62024	
==>$name =~ s/\s*>\Z//;
				$matchrule = 1;
			}

		# EXTRACT TRAILING ARG LIST (IF ANY)

			my ($argcode) = extract_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763128	763230	
==>1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763981	764083	
==>1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764834	764936	
==>1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765688	765790	
==>1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\ <==
6	/Users/nnunley/parrot/tools/build/nativecall.pl	9297	9390	
==>rpreter, st);
}

static void
set_nci_P(Interp *interpreter, struct call_state *st, PMC* val)
{ <==
6	/Users/nnunley/parrot/editor/kate_syntax.pl	2688	2804	
==>+enum_class_(\w+)\,/);
    my $type = $1;
    $type =~ s/\./\&046;/g;
    print "      <item>$type</item>\n";
    $ty <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2862	2960	
==>}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C< <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	6316	6414	
==>}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C< <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4532	4630	
==>}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C< <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4509	4607	
==>}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C< <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3893	3991	
==>}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C< <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747299	747531	
==>1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748084	748316	
==>1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753593	753825	
==>1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754381	754613	
==>1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324715	324946	
==>1}}->vtable->set_integer_native(interpreter, {{\@1}},{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325508	325739	
==>1}}->vtable->set_integer_native(interpreter, {{\@1}},{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3425	3516	
==>rt"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STA <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5187	5278	
==>rt"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STA <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8099	8190	
==>rt"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STA <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2172	2263	
==>rt"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STA <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3424	3515	
==>rt"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STA <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6053	6144	
==>rt"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STA <==
6	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2374	2482	
==>nley/parrot/src/pmc' . $PATHQUOTE . " " .
        $source;
};

sub partial_link_cmd {
    my ($target, $libs, <==
6	/Users/nnunley/parrot/tools/build/dynpmc.pl	2169	2277	
==>nley/parrot/src/pmc' . $PATHQUOTE . " " .
        $source;
};

sub partial_link_cmd {
    my ($target, $libs, <==
6	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	584	674	
==>imple::PullParser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple: <==
6	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1003	1093	
==>imple::PullParser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple: <==
6	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	490	580	
==>imple::PullParser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple: <==
6	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1477	1567	
==>imple::PullParser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple: <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841750	842008	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842514	842772	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843391	843649	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844269	844527	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845147	845405	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772294	772518	
==>CODE" => 872,
                  "ARGS" => [
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 350 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	6840	6941	
==>rint $fh "<a name=\"", esc($name), "\"\n>";
          DEBUG and print "Linearized ", scalar(@to_unget) <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31702	31843	
==>{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($meth)) {
        my $n = $self->{has_method}{$meth};
        retu <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33279	33420	
==>{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($meth)) {
        my $n = $self->{has_method}{$meth};
        retu <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34990	35131	
==>{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($meth)) {
        my $n = $self->{has_method}{$meth};
        retu <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36293	36434	
==>{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($meth)) {
        my $n = $self->{has_method}{$meth};
        retu <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38240	38381	
==>{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($meth)) {
        my $n = $self->{has_method}{$meth};
        retu <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40336	40477	
==>{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($meth)) {
        my $n = $self->{has_method}{$meth};
        retu <==
6	/Users/nnunley/parrot/languages/APL/t/APL.pm	1668	1815	
==>if (! $todo) {
        $todo = "not implemented";
      }
      if ($ENV{APLDEV}) {
        TODO: {
          local $TODO = $todo;
          Parrot: <==
6	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3028	3145	
==>lf->{'Thispara'} = '';
  
  return;
}

# . . . . . . . . . . And then off by its lonesome:

sub end_Verbatim  {
  retu <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72895	73020	
==>t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Un <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74497	74622	
==>t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Un <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76099	76224	
==>t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Un <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77702	77827	
==>t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Un <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79223	79348	
==>t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Un <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80744	80869	
==>t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Un <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072699	1072812	
==>ecessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074884	1074997	
==>ecessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077069	1077182	
==>ecessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079255	1079368	
==>ecessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2306	2398	
==>stack height.
dec stack_depth
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$register_num <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3558	3650	
==>stack height.
dec stack_depth
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$register_num <==
6	/Users/nnunley/parrot/config/auto/sizes.pm	3178	3311	
==>set(int8_t => $type);
        eval {
            cc_gen('config/auto/sizes/test2_c.in');
            cc_build();
            %hugeintv <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1577	1700	
==>rn (0);"
    }
    else
    {
        return "if ((opcode_t *) $addr == 0)
	  return 0;
   _reg_base = (char*)interpreter->c <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18502	18593	
==>nstant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{childr <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19215	19306	
==>nstant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{childr <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19703	19794	
==>nstant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{childr <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20192	20283	
==>nstant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{childr <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20681	20772	
==>nstant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{childr <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432546	432908	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":bas <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433561	433923	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":bas <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434575	434937	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":bas <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435590	435952	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":bas <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436604	436966	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":bas <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437619	437981	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":bas <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24752	24886	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "t <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	36931	37065	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "t <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557159	557293	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "t <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558542	558676	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "t <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559926	560060	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "t <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4976	5066	
==>{eqnum}
TRUE_${eqnum}: set $result, 1.0
NOT_${eqnum}: noop
CODE
		die "$a1,$a2,$result,$op, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83846	84119	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "com <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84752	85025	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "com <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85658	85931	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "com <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009146	1009419	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "com <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009910	1010183	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "com <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5253	5353	
==>erate
	# the name of the destination register emulating the stack position and
	# generate a move ins <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27978	28080	
==>if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent: <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30052	30154	
==>if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent: <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32253	32355	
==>if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent: <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34849	34951	
==>if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent: <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41959	42061	
==>if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent: <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74510	74610	
==>if ($Parse::RecDescent::lastexpected
		    && !$Parse::RecDescent::failed++) {
			$Parse::RecDescent: <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454155	454454	
==>=> "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455009	455308	
==>=> "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455864	456163	
==>=> "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456719	457018	
==>=> "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457573	457872	
==>=> "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458428	458727	
==>=> "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
6	/Users/nnunley/parrot/tools/build/vtable_extend.pl	1298	1402	
==>er 4

=cut

*/

/* Some internal notes. Parrot will die a horrible and bizarre death
   if the stack star <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27484	27586	
==>f ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29951	30053	
==>f ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33369	33471	
==>f ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34623	34725	
==>f ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37033	37135	
==>f ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279759	280084	
==>0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	280614	280939	
==>0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	281469	281794	
==>0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284879	285204	
==>0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285756	286081	
==>0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286633	286958	
==>0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	2225	2352	
==>arent_path )
    {
        # This dies if it fails.
        mkpath($self->parent_path);
    }
    
    return -e $self->parent_p <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2864	2968	
==>x', name => $op } });
    $left->sax($handler);
    $right->sax($handler);
    $handler->end_element({ Na <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3538	3642	
==>x', name => $op } });
    $left->sax($handler);
    $right->sax($handler);
    $handler->end_element({ Na <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3628	3732	
==>x', name => $op } });
    $left->sax($handler);
    $right->sax($handler);
    $handler->end_element({ Na <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5413	5511	
==>x', name => $op } });
  $left->sax($handler);
  $right->sax($handler);
  $handler->end_element({ Na <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3476	3574	
==>x', name => $op } });
  $left->sax($handler);
  $right->sax($handler);
  $handler->end_element({ Na <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080541	1080652	
==>\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experi <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081606	1081717	
==>\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experi <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082671	1082782	
==>\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experi <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083737	1083848	
==>\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experi <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1170	1277	
==>PES}
PIR

	# Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	fo <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2880	2987	
==>PES}
PIR

	# Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	fo <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857735	858057	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858738	859060	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859742	860064	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860746	861068	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352289	352395	
==>"src/ops/io.ops\"\n  PIO_printf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "L <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352947	353053	
==>"src/ops/io.ops\"\n  PIO_printf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "L <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22303	22436	
==>=> 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 12 <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22721	22854	
==>=> 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 12 <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23139	23272	
==>=> 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 12 <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23557	23690	
==>=> 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 12 <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23975	24108	
==>=> 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 12 <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24393	24526	
==>=> 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 12 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540393	540498	
==>VAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541645	541750	
==>VAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542897	543002	
==>VAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544166	544271	
==>VAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545502	545607	
==>VAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546838	546943	
==>VAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11218	11309	
==>a*factorial(a-1) else factorial=1
end function
T=factorial(5)
print T!

' Correct and factor <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3423	3514	
==>hort"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${S <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5185	5276	
==>hort"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${S <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8097	8188	
==>hort"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${S <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2170	2261	
==>hort"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${S <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3422	3513	
==>hort"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${S <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6051	6142	
==>hort"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${S <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18645	18750	
==>hildren}[$_]);
    if (substr ($temp_0, 0, 1) ne substr ($temp_1, 0, 1)) {
      my $temp_2 = $self->_save <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4909	5007	
==>he C<goto OFFSET($offset)> macro in an ops file into the
relevant C code.

=cut

sub goto_offset 
{ <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1854	1951	
==>he C<goto OFFSET($offset)> macro in an ops file into the
relevant C code.

=cut

sub goto_offset
{ <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2503	2600	
==>he C<goto OFFSET($offset)> macro in an ops file into the
relevant C code.

=cut

sub goto_offset
{ <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2222	2319	
==>he C<goto OFFSET($offset)> macro in an ops file into the
relevant C code.

=cut

sub goto_offset
{ <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2183	2280	
==>he C<goto OFFSET($offset)> macro in an ops file into the
relevant C code.

=cut

sub goto_offset
{ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	445940	446170	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	446576	446806	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447213	447443	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	448035	448265	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	448861	449091	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449521	449751	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504056	504367	
==>1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504911	505222	
==>1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505766	506077	
==>1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506620	506931	
==>1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507475	507786	
==>1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	508330	508641	
==>1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519729	520050	
==>1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520584	520905	
==>1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	521439	521760	
==>1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522293	522614	
==>1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523148	523469	
==>1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	524003	524324	
==>1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7466	7574	
==>tch\n"
FIN:
for i = 1 to 3
	on i gosub oats, peas, beans
next i
print
end
100 print "100!"
    goto FIN
200 p <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19749	19857	
==>tch\n"
FIN:
for i = 1 to 3
	on i gosub oats, peas, beans
next i
print
end
100 print "100!"
    goto FIN
200 p <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	7123	7217	
==>esulty)
YNOTX
	} elsif (@codex and not @codey) {
	push @{$code{$seg}->{code}},<<XNOTY;
@codex	n <==
6	/Users/nnunley/parrot/lib/Test/Builder.pm	37102	37196	
==>distribute it and/or 
modify it under the same terms as Perl itself.

See F<http://www.perl.com <==
6	/Users/nnunley/parrot/lib/Test/More.pm	37511	37605	
==>distribute it and/or 
modify it under the same terms as Perl itself.

See F<http://www.perl.com <==
6	/Users/nnunley/parrot/lib/Test/Simple.pm	6471	6565	
==>distribute it and/or 
modify it under the same terms as Perl itself.

See F<http://www.perl.com <==
6	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	50115	50243	
==>ineage[-1] }, $3;
        next;
      }
      #print "\nHOOBOY ", scalar(@{$lineage[-1]}), "!!!\n";
      
      push @{ $lineage <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8639	8749	
==>allback)." # was a mark?";
    push @ops, "set $reg, <rx_tmp> # nope, set pos := popped index"
      unless $re <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3050	3150	
==>aintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4808	4908	
==>aintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1972	2072	
==>aintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3224	3324	
==>aintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54904	55193	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55664	55953	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56425	56714	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57187	57476	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57948	58237	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS <==
6	/Users/nnunley/parrot/lib/Class/Struct.pm	6510	6634	
==>n";
            $out .= "    \@_ ? ($pre\$r->$elem$sel = shift$pst) : $pre\$r->$elem$sel$pst;\n";
            $out .= "  }\n" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950640	950949	
==>}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "tra <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951600	951909	
==>}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "tra <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952560	952869	
==>}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "tra <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961098	961407	
==>}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "tra <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962060	962369	
==>}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "tra <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963022	963331	
==>}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "tra <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576464	576550	
==>(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, name, {{\@3} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577476	577562	
==>(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, name, {{\@3} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579564	579650	
==>(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, name, {{\@3} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580869	580955	
==>(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, name, {{\@3} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582174	582260	
==>(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, name, {{\@3} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583480	583566	
==>(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, name, {{\@3} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067061	1067167	
==>< 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068247	1068353	
==>< 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069433	1069539	
==>< 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070620	1070726	
==>< 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	10916	11016	
==>pe,$work)=@_;

	return unless @$work;
	my @args=();

	while($$work[-1]->[0] ne "STARTARG") {
		my $it <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	1615	1711	
==>ert_automagicals($pir, $metavars);

# Append any custom subs that the SRM wants.
my $csubs = $srm <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	31083	31176	
==>time_jump) {
		foreach(sort keys %labels) {
			push @{$code{$seg}->{code}}, qq|\teq JUMPLABEL, <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4653	4745	
==>ddress($address)>

Transforms the C<goto ADDRESS($address)> macro in an ops file into the
rel <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1318	1410	
==>ddress($address)>

Transforms the C<goto ADDRESS($address)> macro in an ops file into the
rel <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1843	1935	
==>ddress($address)>

Transforms the C<goto ADDRESS($address)> macro in an ops file into the
rel <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1734	1826	
==>ddress($address)>

Transforms the C<goto ADDRESS($address)> macro in an ops file into the
rel <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1458	1550	
==>ddress($address)>

Transforms the C<goto ADDRESS($address)> macro in an ops file into the
rel <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921071	921379	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sp <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921964	922272	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sp <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939515	939823	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sp <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940406	940714	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sp <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941298	941606	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sp <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942190	942498	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sp <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	10001	10111	
==>a method body
(see F<src/call_list>).

=cut

my %calltype = (
  "char"     => "c",
  "short"    => "s",
  "char <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961022	961113	
==>, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961984	962075	
==>, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962946	963037	
==>, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963909	964000	
==>, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+ <==
6	/Users/nnunley/parrot/config/auto/jit.pm	31	118	
==>Perl Foundation.
# $Id: /parrot/config/auto/jit.pm 20320 2006-06-20T19:26:31.775154Z ber <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550173	550271	
==>n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551474	551572	
==>n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554026	554124	
==>n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555423	555521	
==>n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558078	558176	
==>n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559462	559560	
==>n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31814	31918	
==>s_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33391	33495	
==>s_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35102	35206	
==>s_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36405	36509	
==>s_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38352	38456	
==>s_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40448	40552	
==>s_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my <==
6	/Users/nnunley/parrot/tools/build/pbc2c.pl	4839	4947	
==>is now packed PBC
    $byte_code = $pf->pack();

    $offset = 0;
    while($offset < length($byte_code)){
	p <==
6	/Users/nnunley/parrot/tools/util/pirtidy.pl	1355	1451	
==>rtidy never changes the input file.

=head1 BUGS

Missing all of the perltidy-ish geeknobs and op <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854981	855071	
==>ps/string.ops\"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855870	855960	
==>ps/string.ops\"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856759	856849	
==>ps/string.ops\"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857649	857739	
==>ps/string.ops\"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11303	11409	
==>out that ord?  Presumably that won't work right
        #  under non-ASCII charsets.  Something should be d <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17143	17249	
==>out that ord?  Presumably that won't work right
        #  under non-ASCII charsets.  Something should be d <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4649	4754	
==>out that ord?  Presumably that won't work right
       #  under non-ASCII charsets.  Something should be d <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2136	2238	
==>out that ord?  Presumably that won't work right
    #  under non-ASCII charsets.  Something should be d <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10559	10661	
==>out that ord?  Presumably that won't work right
    #  under non-ASCII charsets.  Something should be d <==
6	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2239	2341	
==>out that ord?  Presumably that won't work right
    #  under non-ASCII charsets.  Something should be d <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925380	925602	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringinfo",
                  "FLAGS" => ":base_core",
                  "A <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926849	927071	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringinfo",
                  "FLAGS" => ":base_core",
                  "A <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928319	928541	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringinfo",
                  "FLAGS" => ":base_core",
                  "A <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929789	930011	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringinfo",
                  "FLAGS" => ":base_core",
                  "A <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495099	495267	
==>c",
                              "i"
                            ],
                  "BODY" => "#line 590 \"src/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@2}}, {{\@3}} <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	9014	9109	
==>tion_dispatch();
		parse_struct_copy_dispatch();
		parse_data_setup();
		check_branches();
		ret <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054515	1054801	
==>} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055642	1055928	
==>} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056533	1056819	
==>} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057425	1057711	
==>} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058317	1058603	
==>} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059210	1059496	
==>} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	2786	2895	
==>{
  my $self = shift; # Required: Jako::Construct::Block
  my $name = shift; # Required: string (TODO: domain) <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3870	3979	
==>{
  my $self = shift; # Required: Jako::Construct::Block
  my $name = shift; # Required: string (TODO: domain) <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7779	7888	
==>{
  my $self = shift; # Required: Jako::Construct::Block
  my $name = shift; # Required: string (TODO: domain) <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8426	8535	
==>{
  my $self = shift; # Required: Jako::Construct::Block
  my $name = shift; # Required: string (TODO: domain) <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9094	9203	
==>{
  my $self = shift; # Required: Jako::Construct::Block
  my $name = shift; # Required: string (TODO: domain) <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9763	9872	
==>{
  my $self = shift; # Required: Jako::Construct::Block
  my $name = shift; # Required: string (TODO: domain) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939814	940111	
==>ME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940705	941002	
==>ME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941597	941894	
==>ME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942489	942786	
==>ME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	606	701	
==>a($block, qw(Jako::Construct::Block));
  confess "Type (" . ref($type) . ") is not!"  unless UNI <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	597	690	
==>a($block, qw(Jako::Construct::Block));
  confess "Type (". ref($type) . ") is not!" unless UNI <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	14873	14998	
==>cent::Directive->new(
			      "local \$^W;
			       my \$thisscore = do { $code } + 0;
			       if (!defined(\$score) || \$ <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	10421	10530	
==>rrect"
   return


' Expect Correct
t=0
g=0
if t then
	print "Wrong"
else 
	if g then
		print "Wrong again"
	e <==
6	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	593	683	
==>llParser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullPars <==
6	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1012	1102	
==>llParser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullPars <==
6	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	499	589	
==>llParser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullPars <==
6	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1486	1576	
==>llParser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullPars <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504049	504341	
==>n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504904	505196	
==>n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505759	506051	
==>n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506613	506905	
==>n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507468	507760	
==>n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	508323	508615	
==>n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852615	852937	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855066	855388	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855955	856277	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856844	857166	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS <==
6	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	685	810	
==>{
        my $self = shift;
        my ( $code, $output, $desc ) = @_;
  
        my $count = $self->{builder}->current_test + <==
6	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1052	1177	
==>{
        my $self = shift;
        my ( $code, $output, $desc ) = @_;
  
        my $count = $self->{builder}->current_test + <==
6	/Users/nnunley/parrot/config/auto/snprintf.pm	900	1007	
==>nprintf/) {
        $conf->data->set(HAS_OLD_SNPRINTF => 1);
    }
    print " ($res) " if $conf->options->g <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2252	2352	
==>= "" goto NOWT_TO_PROPOGATE
PIR
    $pir .= _do_lazy_moves('_BDEST');
    $pir .= <<'PIR';
stack_dept <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	847	940	
==>on::Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($righ <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	685	778	
==>on::Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($righ <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	838	931	
==>on::Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($righ <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	727	820	
==>on::Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($righ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099342	1099550	
==>< 0) {\n\tres = 1.0/res;\n    }\n    {{\@1}} = res;\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100540	1100748	
==>< 0) {\n\tres = 1.0/res;\n    }\n    {{\@1}} = res;\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101738	1101946	
==>< 0) {\n\tres = 1.0/res;\n    }\n    {{\@1}} = res;\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102937	1103145	
==>< 0) {\n\tres = 1.0/res;\n    }\n    {{\@1}} = res;\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0 <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	4033	4208	
==>es, new NewOp( $parser,
                'prolog' => 1,
                'result' => $defn,
                'arg1'   => '.Lua' . ucfirst($type),
            );
            u <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	1696	1800	
==>$c_name\n" if $opt->{verbose};
    open my $C, '>', $c_name or die "Can't write '$c_name";
    print $C $ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500313	500603	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501051	501341	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501790	502080	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502528	502818	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503267	503557	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => <==
6	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8311	8396	
==>8c7b756,/* 2 */
FF,$c,$d,$a,$b,$_[6],17,0x242070db,/* 3 */
FF,$b,$c,$d,$a,$_[7],22,0xc <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72892	72993	
==>\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_new <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74494	74595	
==>\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_new <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76096	76197	
==>\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_new <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77699	77800	
==>\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_new <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79220	79321	
==>\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_new <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80741	80842	
==>\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_new <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550272	550382	
==>);\n  if (!method_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not fou <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551573	551683	
==>);\n  if (!method_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not fou <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554125	554235	
==>);\n  if (!method_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not fou <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555522	555632	
==>);\n  if (!method_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not fou <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558177	558287	
==>);\n  if (!method_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not fou <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559561	559671	
==>);\n  if (!method_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not fou <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72880	72983	
==>_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74482	74585	
==>_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76084	76187	
==>_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77687	77790	
==>_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79208	79311	
==>_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80729	80832	
==>_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} <==
6	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2732	2836	
==>{$FH}
            "  $op->{result}->{symbol} = $op->{arg1}->{symbol}\[$op->{arg2}->{symbol}\]\n";
    } <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151082	151177	
==>,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n  } <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152060	152155	
==>,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n  } <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172310	172405	
==>,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n  } <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173288	173383	
==>,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n  } <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11637	11731	
==>$currline)=@_;
	$currline="" unless defined $currline;
	my @ld=();
	feedme();
OUTDATA:while($ty <==
6	/Users/nnunley/parrot/tools/dev/install_files.pl	5714	5825	
==>e directory $dir
	    my @dirs;
	    while (! -d $dir) { # Scan up to nearest existing ancestor
		unshift @dirs, <==
6	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1669	1768	
==>odo, $got, $expected, $depends, :negate);
}

## like

sub like (Str $got, Rule $expected, Str $desc? <==
6	/Users/nnunley/parrot/lib/Pod/Simple.pm	29734	29831	
==>his is the text that we'll infer in its place. (E.g., for
# "L<Getopt::Std>", the inferred link te <==
6	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1928	2024	
==>head2 Instance Methods

=over 4

=item C<create_path()>

This is called from C<new()> to create t <==
6	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	905	1001	
==>head2 Instance Methods

=over 4

=item C<create_path()>

This is called from C<new()> to create t <==
6	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	1914	2010	
==>head2 Instance Methods

=over 4

=item C<create_path()>

This is called from C<new()> to create t <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780720	780829	
==>et_string_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781629	781738	
==>et_string_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782538	782647	
==>et_string_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783448	783557	
==>et_string_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [ <==
6	/Users/nnunley/parrot/tools/build/dynclasses.pl	1790	1896	
==>build/pmc2c.pl] . $PATHQUOTE;

# Actual commands
sub compile_cmd {
    my ($target, $source) = @_;

    ret <==
6	/Users/nnunley/parrot/tools/build/dynpmc.pl	1881	1987	
==>build/pmc2c.pl] . $PATHQUOTE;

# Actual commands
sub compile_cmd {
    my ($target, $source) = @_;

    ret <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	597	695	
==>mplemented for current stack to register mapper\n";
}

# Label generation.
sub gen_label {
	die "ge <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2048	2146	
==><goto_pop()>

Transforms the C<goto POP()> macro in an ops file into the relevant C
code.

=cut

su <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2698	2796	
==><goto_pop()>

Transforms the C<goto POP()> macro in an ops file into the relevant C
code.

=cut

su <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2421	2519	
==><goto_pop()>

Transforms the C<goto POP()> macro in an ops file into the relevant C
code.

=cut

su <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2601	2699	
==><goto_pop()>

Transforms the C<goto POP()> macro in an ops file into the relevant C
code.

=cut

su <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3629	3723	
==>at name, then we return undef.

See also: find_symbol(), which will also search (recursively) p <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470563	470886	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471549	471872	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472536	472859	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473523	473846	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474513	474836	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475504	475827	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23824	23957	
==>tate 75
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344173	344271	
==>e char * need to go away soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345415	345513	
==>e char * need to go away soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346657	346755	
==>e char * need to go away soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347900	347998	
==>e char * need to go away soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349068	349166	
==>e char * need to go away soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350070	350168	
==>e char * need to go away soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258406	258697	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259349	259640	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260200	260491	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261052	261343	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261904	262195	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
6	/Users/nnunley/parrot/lib/Text/Balanced.pm	56029	56119	
==>action
subroutines reapplied. Characters which are thus removed are accumulated and
eventua <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258497	258806	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259440	259749	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260291	260600	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261143	261452	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261995	262304	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
6	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	4346	4470	
==>NOT EDIT THIS FILE",
            "Generated by " . __PACKAGE__ . " from $source"
        );

        if ($options{commentType <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	66550	66826	
==>",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sweep",
                  "FLAGS" => "",
                  "ARG <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143504	143612	
==>],
                  "BODY" => "#line 84 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144432	144540	
==>],
                  "BODY" => "#line 84 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145360	145468	
==>],
                  "BODY" => "#line 84 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2} <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1991	2098	
==>d;
  my $name  = $self->ident ? $self->ident->value : undef;
  my $cond  = $self->cond;
  my $left  = $self- <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3107	3214	
==>d;
  my $name  = $self->ident ? $self->ident->value : undef;
  my $cond  = $self->cond;
  my $left  = $self- <==
6	/Users/nnunley/parrot/config/gen/revision.pm	294	390	
==>this field is empty.

=cut

package gen::revision;

use strict;
use vars qw($description $result) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670665	670889	
==>_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671438	671662	
==>_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679180	679404	
==>_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679959	680183	
==>_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
6	/Users/nnunley/parrot/tools/dev/as2c.pl	307	420	
==>glue("$src.c");

sub print_header {
    my $s = shift;
    print <<EOT;
/*
 * DO NOT EDIT THIS FILE
 *
 * Generate <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5025	5119	
==>0} > 0 goto PRE_BRANCH_${CURIC}_LAZY_MOVE_$register_num

# No lazy move available - need to ref <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	9281	9448	
==>ck ]));
    }
    push @ops, (
                     aop('match', [ $char, $lastback ]),
                     aop('increment', [ 1, $lastback ]),
                     ao <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93355	93588	
==>preter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94135	94368	
==>preter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109679	109912	
==>preter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110458	110691	
==>preter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133884	134117	
==>preter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134665	134898	
==>preter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
6	/Users/nnunley/parrot/examples/benchmarks/oo1.pl	93	207	
==>int $o->[0], "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift;
    return bless [ 10, 20 <==
6	/Users/nnunley/parrot/examples/benchmarks/oo2.pl	93	207	
==>int $o->[0], "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift;
    return bless [ 10, 20 <==
6	/Users/nnunley/parrot/examples/benchmarks/oo3.pl	109	223	
==>int $o->[0], "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift;
    return bless [ 10, 20 <==
6	/Users/nnunley/parrot/examples/benchmarks/oo4.pl	103	217	
==>int $o->[0], "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift;
    return bless [ 10, 20 <==
6	/Users/nnunley/parrot/lib/Text/Balanced.pm	47533	47629	
==>owever, the matching position of the input variable would be set to
"exit;" (i.e. I<after> the cl <==
6	/Users/nnunley/parrot/lib/Text/Balanced.pm	46468	46558	
==>r context, C<extract_quotelike>
would correctly return the string "<<'EOMSG'\nThis is the m <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584592	584693	
==>SS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = V <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585667	585768	
==>SS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = V <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586814	586915	
==>SS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = V <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588000	588101	
==>SS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = V <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589186	589287	
==>SS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = V <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590373	590474	
==>SS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = V <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048209	1048302	
==>2 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Trie <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049133	1049226	
==>2 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Trie <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050129	1050222	
==>2 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Trie <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051163	1051256	
==>2 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Trie <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052197	1052290	
==>2 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Trie <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053232	1053325	
==>2 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Trie <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1449	1546	
==>y($errst,$nberr,$token,$value,$check,$dotpos);
    my($self)={ ERROR => \&_Error,
				ERRST => \ <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1399	1494	
==>y($errst,$nberr,$token,$value,$check,$dotpos);
    my($self)={ ERROR => \&_Error,
				ERRST => \ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579508	579601	
==>cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(interpreter, enum_class_String);\n  V <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580813	580906	
==>cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(interpreter, enum_class_String);\n  V <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582118	582211	
==>cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(interpreter, enum_class_String);\n  V <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583424	583517	
==>cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(interpreter, enum_class_String);\n  V <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450987	451276	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGD <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451725	452014	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGD <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452464	452753	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGD <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453202	453491	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGD <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453941	454230	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGD <==
6	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3056	3142	
==>);


#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sub ne <==
6	/Users/nnunley/parrot/config/gen/parrot_include.pm	2294	2420	
==>= ($inc =~ m[/]) ? "$inc" : "$destdir/$inc";

                #move_if_diff("$inc.tmp", "$destdir/$inc");
                #push <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332364	332459	
==>har * need to go away soon */\n  const char * const mode = string_to_cstring(interpreter, {{\@3} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333642	333737	
==>har * need to go away soon */\n  const char * const mode = string_to_cstring(interpreter, {{\@3} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334920	335015	
==>har * need to go away soon */\n  const char * const mode = string_to_cstring(interpreter, {{\@3} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336199	336294	
==>har * need to go away soon */\n  const char * const mode = string_to_cstring(interpreter, {{\@3} <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	1250	1341	
==>interpreted as being relative to the
C<$target> argument in C<write_html()>. There should be <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121333	121588	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122244	122499	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123156	123411	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124029	124284	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124903	125158	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
6	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3312	3420	
==>my $i = ' ' x ( 2 * $self->{'Indent'} + 4);
  
  $self->{'Thispara'} =~ s/^/$i/mg;
  
  print { $self->{'outp <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137657	137960	
==>AME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138552	138855	
==>AME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139448	139751	
==>AME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140344	140647	
==>AME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141239	141542	
==>AME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142135	142438	
==>AME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	2337	2455	
==>e;
#  }

  return $self->SUPER::compile($compiler, $options );

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shi <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6647	6765	
==>ma;
      }

      my $value;

      if ($self->skip_assign) {
        $value = Jako::Construct::Expression::Value->new <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154870	154985	
==>4 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABEL <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155774	155889	
==>4 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABEL <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156678	156793	
==>4 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABEL <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157583	157698	
==>4 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABEL <==
6	/Users/nnunley/parrot/tools/build/dynclasses.pl	1504	1609	
==>ere comes some stuff for Win32.
our $PATHQUOTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as t <==
6	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1549	1654	
==>ere comes some stuff for Win32.
our $PATHQUOTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as t <==
6	/Users/nnunley/parrot/tools/build/dynpmc.pl	1553	1658	
==>ere comes some stuff for Win32.
our $PATHQUOTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as t <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	2396	2497	
==>e;
	#print "Type $type[CURR] Sym $syms[CURR]\n";
	goto UNK if ($type[CURR] ne 'BARE');
	goto BARE if ( <==
6	/Users/nnunley/parrot/lib/Pod/Escapes.pm	252	346	
==>racter_number
  %Latin1Code_to_fallback
  %Latin1Char_to_fallback
  e2char
  e2charnum
);
%EXPO <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11381	11474	
==>st int ELEMENT_TYPE_FNPTR = 0x1B
	.const int ELEMENT_TYPE_OBJECT = 0x1C
	.const int ELEMENT_TY <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7231	7359	
==>_unget);

      } elsif ($tagname eq 'Data') {
        my $next = $self->get_token;
        next unless defined $next;
        un <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	784	870	
==>Value") unless UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess(" <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	622	708	
==>Value") unless UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess(" <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	775	861	
==>Value") unless UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess(" <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	664	750	
==>Value") unless UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess(" <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	613	699	
==>Value") unless UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess(" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262845	263088	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263791	264034	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264644	264887	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265498	265741	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266352	266595	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	21322	21451	
==>ext_pc += 1\n";
            $pir .= binary_dispatch_table($_, @rules);
        }
    } else {
        # Otherwise, split the rules <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31773	31877	
==>ents($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{meth <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33350	33454	
==>ents($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{meth <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35061	35165	
==>ents($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{meth <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36364	36468	
==>ents($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{meth <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38311	38415	
==>ents($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{meth <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40407	40511	
==>ents($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{meth <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11230	11364	
==>sets that this module happens to run under.
        # Altho, hmm, what about that ord?  Presumably that won't work right
        #  und <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17070	17204	
==>sets that this module happens to run under.
        # Altho, hmm, what about that ord?  Presumably that won't work right
        #  und <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4577	4709	
==>sets that this module happens to run under.
       # Altho, hmm, what about that ord?  Presumably that won't work right
       #  und <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2067	2193	
==>sets that this module happens to run under.
    # Altho, hmm, what about that ord?  Presumably that won't work right
    #  und <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10490	10616	
==>sets that this module happens to run under.
    # Altho, hmm, what about that ord?  Presumably that won't work right
    #  und <==
6	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2170	2296	
==>sets that this module happens to run under.
    # Altho, hmm, what about that ord?  Presumably that won't work right
    #  und <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103976	104083	
==>],
                  "BODY" => "#line 140 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}}->vtable->bitwise_nots(int <==
6	/Users/nnunley/parrot/lib/Parrot/Test.pm	511	601	
==>ovides various Parrot-specific test functions.

=head2 Functions

The parameter C<$language <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960931	961020	
==>"BODY" => "#line 595 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interprete <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961893	961982	
==>"BODY" => "#line 595 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interprete <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962855	962944	
==>"BODY" => "#line 595 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interprete <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963818	963907	
==>"BODY" => "#line 595 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interprete <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917736	918036	
==>"TYPE" => "inline",
                  "CODE" => 1033,
                  "ARGS" => [
                              "i",
                              "sc",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 289 \"src/ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540652	540795	
==>{\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541904	542047	
==>{\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543156	543299	
==>{\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544439	544582	
==>{\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545775	545918	
==>{\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547111	547254	
==>{\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n <==
6	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15019	15114	
==>this as a mutually recursive multi-
sub which will be able to handle structures of arbitrary dep <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18990	19078	
==>>_add_inst('','set',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($t <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19478	19566	
==>>_add_inst('','set',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($t <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19966	20054	
==>>_add_inst('','set',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($t <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20455	20543	
==>>_add_inst('','set',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($t <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20944	21032	
==>>_add_inst('','set',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($t <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54357	54623	
==>JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55116	55382	
==>JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55876	56142	
==>JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56637	56903	
==>JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57399	57665	
==>JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58160	58426	
==>JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841021	841245	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54839	55063	
==>re.ops\"\n  {{\@1}} = interpinfo(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55599	55823	
==>re.ops\"\n  {{\@1}} = interpinfo(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11801	11941	
==>age_link 
{
    my $self = shift;
    my $to = shift;
    my $section = shift;
    
    if ( $to =~ /^Parrot::/o )
    {
        my $href = $ <==
6	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	3634	3770	
==>TODO
            my $call_pkg = $b->exported_to() || '';
            local *{ $call_pkg . '::TODO' } = \$extra{todo}
                if d <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1383	1506	
==>\"$ident_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $hand <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1377	1500	
==>\"$ident_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $hand <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454671	454945	
==>s/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455526	455800	
==>s/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456381	456655	
==>s/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457235	457509	
==>s/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458090	458364	
==>s/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458945	459219	
==>s/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154225	154395	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155128	155298	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156032	156202	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156936	157106	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157841	158011	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2626	2717	
==>DEBUG(0, "Arithmetic with right type $right_type...");

  $self->INTERNAL_ERROR("No type for <==
6	/Users/nnunley/parrot/lib/Text/Balanced.pm	59490	59584	
==>aining delimiters.
If no escape char is specified for a given specified delimiter, '\' is used. <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710880	711140	
==>2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711714	711974	
==>2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712820	713080	
==>2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713927	714187	
==>2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714849	715109	
==>2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715772	716032	
==>2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550435	550692	
==>e(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551736	551993	
==>e(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552927	553184	
==>e(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558340	558597	
==>e(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559724	559981	
==>e(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560945	561202	
==>e(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
6	/Users/nnunley/parrot/tools/dev/lib_deps.pl	5697	5815	
==>{
            print "    $include, included by:\n";
            foreach my $file (sort keys %{$system_include{$include} <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2907	3009	
==>er);
    $right->sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element( <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3581	3683	
==>er);
    $right->sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element( <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3671	3773	
==>er);
    $right->sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element( <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5454	5550	
==>er);
  $right->sax($handler);
  $handler->end_element({ Name => 'op' });
  $handler->end_element( <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3517	3613	
==>er);
  $right->sax($handler);
  $handler->end_element({ Name => 'op' });
  $handler->end_element( <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	331782	332079	
==>JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333059	333356	
==>JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334337	334634	
==>JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335615	335912	
==>JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
6	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr3.pm	251	350	
==>ount, $options ) = @_;

    return Parrot::Test::per_test( '_antlr3.out', $count );
}

sub get_test_ <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11154	11329	
==>key->[1] };
                        my $result2 = new_tmp( $parser, 'pmc' );
                        push @opcodes, new LocalDir( $parser,
                            'resul <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9381	9544	
==>key->[1] };
                    my $result2 = new_tmp( $parser, 'pmc' );
                    push @opcodes, new LocalDir( $parser,
                        'resul <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	58926	59067	
==>s a subrule of other rules).
                                       It can't be directly called because
				       Parse::RecDescent::$rulenam <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8365	8504	
==>key->[1] };
            my $result2 = new_tmp( $parser, 'pmc' );
            push @opcodes, new LocalDir( $parser,
                'resul <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17583	17710	
==>key->[1] };
        my $result2 = new_tmp( $parser, 'pmc' );
        push @opcodes, new LocalDir( $parser,
            'resul <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25352	25439	
==>}->{code}}, <<COND;
@code	FORLOOP_END_$forloop= $endexpr
@stepcode
	FORLOOP_STEP_$forloo <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855043	855349	
==>}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855932	856238	
==>}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856821	857127	
==>}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857711	858017	
==>}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355490	355720	
==>"NAME" => "write",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
6	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3861	3956	
==>g the syntactic validity of Pod.
It works by basically acting like a simple-minded version of
L< <==
6	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5899	6060	
==>( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                print {$FH} " :flat";
            }
            $first = 0;
        }
        print {$F <==
6	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6994	7155	
==>( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                print {$FH} " :flat";
            }
            $first = 0;
        }
        print {$F <==
6	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	9908	10069	
==>( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                print {$FH} " :flat";
            }
            $first = 0;
        }
        print {$F <==
6	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	13613	13747	
==>ine' => $m, '~cooked' => 1},
        #['~Top', {'start_line' => $m},
        $_
        #]
        ],
        @{$self->{'errata'}{$line <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	2673	2785	
==>ond) {
    $compiler->emit("  goto $label");
  } else {
    if ($cond eq 'unless') {
      $op = $compiler->inver <==
6	/Users/nnunley/parrot/tools/build/vtable_extend.pl	1798	1898	
==>ontents, and
   suchlike things. This is perfectly legal -- in fact it's what
   we've documented sho <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28000	28104	
==>::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Pars <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30074	30178	
==>::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Pars <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32275	32379	
==>::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Pars <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34871	34975	
==>::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Pars <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41981	42085	
==>::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Pars <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74532	74634	
==>::lastexpected
		    && !$Parse::RecDescent::failed++) {
			$Parse::RecDescent::expected
			    = $Pars <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550395	550508	
==>\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LAB <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551696	551809	
==>\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LAB <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554248	554361	
==>\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LAB <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555645	555758	
==>\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LAB <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558300	558413	
==>\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LAB <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559684	559797	
==>\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LAB <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454117	454419	
==>"JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454971	455273	
==>"JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455826	456128	
==>"JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456681	456983	
==>"JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457535	457837	
==>"JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458390	458692	
==>"JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13738	13842	
==>t
	foo as integer
	bar as string
end type
function mine (a, b, c as first)
	a=12
	b=99
	c.foo=103
	mine=1 <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2881	2974	
==>E ALSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTran <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	6335	6428	
==>E ALSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTran <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4551	4644	
==>E ALSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTran <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4528	4621	
==>E ALSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTran <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3912	4005	
==>E ALSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTran <==
6	/Users/nnunley/parrot/lib/Pod/Simple.pm	23105	23222	
==>dynasty = @$is;
        DEBUG > 4 and print "    Renaming $was node to $dynasty[-1]\n"; 
        $treelet->[$i][0] = p <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	312882	313133	
==>UMP" => 0,
                  "NAME" => "getfile",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374036	374144	
==>\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374919	375027	
==>\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375802	375910	
==>\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376686	376794	
==>\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716361	716458	
==>/ops/python.ops\"\n  PMC * const p = {{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  STRI <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018118	1018370	
==>rpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019043	1019295	
==>rpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019973	1020225	
==>rpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020904	1021156	
==>rpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
6	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	6383	6535	
==>ser->YYData->{shebang} = undef;
                s/^#(.*)\n//    # Shebang
                    and $parser->YYData->{lineno}++,
                    las <==
6	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	11280	11381	
==>ype="text/javascript">//<![CDATA[[
    function toggle_visibility (id) {
      var elem     = document <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904737	905068	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 102 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905755	906086	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 102 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906774	907105	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 102 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907793	908124	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 102 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912400	912731	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 102 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913410	913741	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 102 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914421	914752	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 103 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915432	915763	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 103 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916444	916775	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 103 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917455	917786	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 103 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918467	918798	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 103 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919479	919810	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 103 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746804	747090	
==>" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747588	747874	
==>" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748373	748659	
==>" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749156	749442	
==>" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749940	750226	
==>" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750723	751009	
==>" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271100	271363	
==>1 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271946	272209	
==>1 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272792	273055	
==>1 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64423	64583	
==>,$1,
										   $lookahead,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _n <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	66457	66617	
==>,$1,
										   $lookahead,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _n <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	2392	2517	
==>YData->{_G} = $g;
##    warn "PopScopeF\n";
    PopScope($parser);
}

sub PushScope {
    my ($parser) = @_;

    unsh <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480838	481144	
==>n);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481841	482147	
==>n);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482844	483150	
==>n);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483842	484148	
==>n);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484841	485147	
==>n);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv", <==
6	/Users/nnunley/parrot/lib/Test/Builder.pm	11198	11308	
==>ot, 'eq', $expect) unless $test;
        return $test;
    }

    return $self->cmp_ok($got, 'eq', $expect, $na <==
6	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1803	1904	
==>is export {
    my $test := $got ~~ $expected;
    Test::proclaim($test, $desc, $todo, $got, $expected <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634539	634635	
==>=> "#line 107 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635657	635753	
==>=> "#line 107 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636775	636871	
==>=> "#line 107 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637894	637990	
==>=> "#line 107 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n <==
6	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1452	1548	
==>sub usage { print STDERR <<USAGE; exit }
Usage: $0 [options] -- smoke1.html smoke2.html ...

Avai <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830779	831043	
==>"LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARG <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831520	831784	
==>"LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARG <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832247	832511	
==>"LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARG <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832975	833239	
==>"LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARG <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833697	833961	
==>"LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARG <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834422	834686	
==>"LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARG <==
6	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	4767	4874	
==>ATEGORY-1]
  ] for keys %cats;

  my %delete = map { $_->{filename} => 1 } @smokes;
  for(map { @$_ } values <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344255	344346	
==>terpreter, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345497	345588	
==>terpreter, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346739	346830	
==>terpreter, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347982	348073	
==>terpreter, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	12061	12151	
==>pop lazy_moves

# Put in params array.
PRE_CALL_${CURIC}_LAZY_MOVE_RET_CONT:
${PARAMS}[0] = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470627	470924	
==>=> "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471613	471910	
==>=> "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472600	472897	
==>=> "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473587	473884	
==>=> "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474577	474874	
==>=> "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475568	475865	
==>=> "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11198	11315	
==>ork right on
        #  all charsets that this module happens to run under.
        # Altho, hmm, what about that ord? <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17038	17155	
==>ork right on
        #  all charsets that this module happens to run under.
        # Altho, hmm, what about that ord? <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4546	4661	
==>ork right on
       #  all charsets that this module happens to run under.
       # Altho, hmm, what about that ord? <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2039	2148	
==>ork right on
    #  all charsets that this module happens to run under.
    # Altho, hmm, what about that ord? <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10462	10571	
==>ork right on
    #  all charsets that this module happens to run under.
    # Altho, hmm, what about that ord? <==
6	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2142	2251	
==>ork right on
    #  all charsets that this module happens to run under.
    # Altho, hmm, what about that ord? <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857944	858252	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858947	859255	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859951	860259	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860955	861263	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56135	56373	
==>unction",
                  "CODE" => 72,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 869 \"src/ops/core.ops\"\n  {{\@ <==
6	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	825	924	
==>e($source);
  $self->output_fh(*STDOUT{IO});

  $self->run; # define run() in a subclass if you want <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591501	591597	
==>ULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_exception(interp <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592711	592807	
==>ULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_exception(interp <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593921	594017	
==>ULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_exception(interp <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595132	595228	
==>ULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_exception(interp <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600144	600240	
==>ULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_exception(interp <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601220	601316	
==>ULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_exception(interp <==
6	/Users/nnunley/parrot/examples/benchmarks/mops.pl	938	1187	
==>4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, I1
                              #
print "Estimated ops: $I5\n"; # print  "Estim <==
6	/Users/nnunley/parrot/examples/mops/mops.pl	938	1187	
==>4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, I1
                              #
print "Estimated ops: $I5\n"; # print  "Estim <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579267	579359	
==>ps/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  o <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580572	580664	
==>ps/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  o <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581877	581969	
==>ps/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  o <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583183	583275	
==>ps/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  o <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848268	848490	
==>tring_chopn(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849048	849270	
==>tring_chopn(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7954	8048	
==>self->isa("Jako::Construct::Block");
  confess "No identifier name!"  unless defined $name;
  c <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8601	8695	
==>self->isa("Jako::Construct::Block");
  confess "No identifier name!"  unless defined $name;
  c <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9269	9363	
==>self->isa("Jako::Construct::Block");
  confess "No identifier name!"  unless defined $name;
  c <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9938	10032	
==>self->isa("Jako::Construct::Block");
  confess "No identifier name!"  unless defined $name;
  c <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519721	520013	
==>\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520576	520868	
==>\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	521431	521723	
==>\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522285	522577	
==>\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523140	523432	
==>\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523995	524287	
==>\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3018	3127	
==>p stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find re <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4776	4885	
==>p stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find re <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1940	2049	
==>p stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find re <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3192	3301	
==>p stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find re <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1231	1340	
==>p stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find re <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2941	3050	
==>p stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find re <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	239953	240184	
==>=> [
                              "i",
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 616 \"src/ops/cmp.ops\"\n  INTVAL l = VTABLE_get_integer( <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477086	477178	
==>erpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477982	478074	
==>erpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480732	480824	
==>erpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481735	481827	
==>erpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482738	482830	
==>erpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151497	151893	
==>eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 184,
                  "ARGS" => [
                              "p",
                              " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147698	147995	
==>eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 18 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148639	148936	
==>eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 18 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149579	149876	
==>eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 18 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150520	150817	
==>eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 18 <==
6	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	799	895	
==>oof',

  'VerbatimI=cs26\i',
  'VerbatimB=cs27\b',
  'VerbatimBI=cs28\b\i',

  map {; m/^([-a-z]+ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105717	1106001	
==>MP" => 0,
                  "NAME" => "getclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106692	1106976	
==>MP" => 0,
                  "NAME" => "getclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16048	16221	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARG <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16820	16993	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARG <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	17594	17767	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARG <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18389	18562	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARG <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115455	115762	
==>< {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116310	116617	
==>< {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117165	117472	
==>< {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	282305	282612	
==>< {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283150	283457	
==>< {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283995	284302	
==>< {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1318	1434	
==>p    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = sh <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1309	1425	
==>p    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = sh <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1198	1314	
==>p    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = sh <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1657	1773	
==>p    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = sh <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1793	1909	
==>p    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = sh <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1436	1552	
==>p    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = sh <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500315	500606	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ": <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501053	501344	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ": <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501792	502083	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ": <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502530	502821	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ": <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503269	503560	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ": <==
6	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10175	10259	
==>4 */
HH,$a,$b,$c,$d,$_[13],4,0xd9d4d039,/* 45 */
HH,$d,$a,$b,$c,$_[16],11,0xe6db99e5, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576467	576581	
==>terpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclas <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577479	577593	
==>terpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclas <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579567	579681	
==>terpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclas <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580872	580986	
==>terpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclas <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582177	582291	
==>terpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclas <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583483	583597	
==>terpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclas <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17842	17943	
==>a$;b$;c$;d$;e$
next j,i

' Select-case (all positive)
t=50
select case t
case 10
	print "Wrong"
case 5 <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2835	2936	
==>Attributes => { kind => 'infix', name => $op } });
    $left->sax($handler);
    $right->sax($handler) <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3509	3610	
==>Attributes => { kind => 'infix', name => $op } });
    $left->sax($handler);
    $right->sax($handler) <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3599	3700	
==>Attributes => { kind => 'infix', name => $op } });
    $left->sax($handler);
    $right->sax($handler) <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5384	5481	
==>Attributes => { kind => 'infix', name => $op } });
  $left->sax($handler);
  $right->sax($handler) <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3447	3544	
==>Attributes => { kind => 'infix', name => $op } });
  $left->sax($handler);
  $right->sax($handler) <==
6	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	1538	1642	
==>e oil)
 
 * 1 tablespoon garam masala
 * 1/2 teaspoon red chili powder, or to taste
 * Salt, to taste (pr <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1442	1545	
==>->indent;
      $self->SUPER::compile($compiler);
      $compiler->outdent;
      $compiler->emit(".endn <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1798	1901	
==>->indent;
      $self->SUPER::compile($compiler);
      $compiler->outdent;
      $compiler->emit(".endn <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1239	1342	
==>->indent;
      $self->SUPER::compile($compiler);
      $compiler->outdent;
      $compiler->emit(".endn <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1547	1650	
==>->indent;
      $self->SUPER::compile($compiler);
      $compiler->outdent;
      $compiler->emit(".endn <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	645	742	
==>->indent;
    $self->SUPER::compile($compiler);
    $compiler->outdent;
    $compiler->emit(".endn <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	55321	55438	
==>:(.*)>\Z/$1/s;
				if ($code =~ /\A\s*[^{]|[^}]\s*\Z/)
				{
					$code = "{ $code }"
				}

				$item = new Parse::Re <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4186	4278	
==>YPES}[${ITEMP0}]

# Assign register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_sho <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2602	2694	
==>YPES}[${ITEMP0}]

# Assign register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_sho <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1385	1477	
==>YPES}[${ITEMP0}]

# Assign register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_sho <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1912	2004	
==>YPES}[${ITEMP0}]

# Assign register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_sho <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3095	3187	
==>YPES}[${ITEMP0}]

# Assign register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_sho <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871000	871167	
==>,
                              "i"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872017	872184	
==>,
                              "i"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873034	873201	
==>,
                              "i"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874052	874219	
==>,
                              "i"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9307	9399	
==>include "parrot/parrot.h"
#include "parrot/extend.h"
#include "parrot/dynext.h"
EOC
    forea <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	3661	3753	
==>include "parrot/parrot.h"
#include "parrot/extend.h"
#include "parrot/dynext.h"
EOC
    forea <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258525	258843	
==>{
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259468	259786	
==>{
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260319	260637	
==>{
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261171	261489	
==>{
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262023	262341	
==>{
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
6	/Users/nnunley/parrot/lib/Test/Builder.pm	7940	8057	
==>1..0";
    $out .= " # Skip $reason" if $reason;
    $out .= "\n";

    $self->{Skip_All} = 1;

    $self->_print($out <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361830	362104	
==>/\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362729	363003	
==>/\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363631	363905	
==>/\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364534	364808	
==>/\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365373	365647	
==>/\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366213	366487	
==>/\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459976	460300	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "F <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460964	461288	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "F <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461952	462276	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "F <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462948	463272	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "F <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463945	464269	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "F <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471328	471652	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472315	472639	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473302	473626	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474292	474616	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475283	475607	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => " <==
6	/Users/nnunley/parrot/lib/Test/More.pm	26611	26750	
==>' ) {
            $var = "\${$var}";
        }
    }

    my @vals = @{$Stack[-1]{vals}}[0,1];
    my @vars = ();
    ($vars[0] = $var) =~ s <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38509	38614	
==>if defined $::RD_TRACE;
		') . ($::RD_NO_HITEM ? ''
		     : '$item{q{' . $self->describe . '}} = $_tok;') <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27538	27639	
==>}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instr <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30005	30106	
==>}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instr <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33423	33524	
==>}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instr <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34677	34778	
==>}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instr <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37087	37188	
==>}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instr <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047457	1047744	
==>}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054566	1054853	
==>}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059261	1059548	
==>}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENE <==
6	/Users/nnunley/parrot/tools/build/dynclasses.pl	2768	2887	
==>turn
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQU <==
6	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3077	3196	
==>turn
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQU <==
6	/Users/nnunley/parrot/tools/build/dynpmc.pl	2872	2991	
==>turn
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQU <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540574	540694	
==>n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541826	541946	
==>n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543078	543198	
==>n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544361	544481	
==>n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545697	545817	
==>n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547033	547153	
==>n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6106	6328	
==>e(interpreter, {{\@1}});\n    {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	331571	331791	
==>e(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449384	449604	
==>e(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	933357	933577	
==>e(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	935571	935791	
==>e(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937791	938011	
==>e(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061280	1061490	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061951	1062161	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062820	1063030	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063689	1063899	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064559	1064769	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065432	1065642	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
6	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1283	1559	
==>n"
                              #
$N1 = time_hires();           # time N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DO <==
6	/Users/nnunley/parrot/examples/mops/mops.pl	1283	1559	
==>n"
                              #
$N1 = time_hires();           # time N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DO <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579460	579551	
==>S, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  na <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580765	580856	
==>S, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  na <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582070	582161	
==>S, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  na <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583376	583467	
==>S, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  na <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509907	510157	
==>E" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 587,
                  "A <==
6	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	6514	6607	
==>as Perl itself.

 Copyright 2000 Christian Lackas, Imperia Software Solutions
 Copyright 1998- <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843198	843284	
==>\"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@3}});\n  {{+=4}} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844076	844162	
==>\"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@3}});\n  {{+=4}} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844954	845040	
==>\"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@3}});\n  {{+=4}} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845833	845919	
==>\"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@3}});\n  {{+=4}} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71896	72257	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73497	73858	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75099	75460	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76701	77062	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40190	40451	
==>MP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TY <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41037	41298	
==>MP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TY <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365686	366059	
==>io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 428,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	35548	35645	
==>$post_branch = $srm->post_branch($rule->{'pop'});
		$pir .= "### post_branch\n";
		$pir .= sub_met <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632606	632699	
==>\"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, { <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633648	633741	
==>\"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, { <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080500	1080593	
==>\"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, { <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081565	1081658	
==>\"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, { <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082630	1082723	
==>\"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, { <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083696	1083789	
==>\"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, { <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	245535	245804	
==>TYPE" => "inline",
                  "CODE" => 285,
                  "ARGS" => [
                              "i",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 638 \"src/ops/cmp. <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332487	332580	
==>en(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(int <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333765	333858	
==>en(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(int <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335043	335136	
==>en(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(int <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336322	336415	
==>en(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(int <==
6	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2161	2253	
==>h the value "Bar".

=item $token->attr(I<attrname>, I<newvalue>)

This sets the I<attrname> a <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514220	514524	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515100	515404	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099469	1099773	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100667	1100971	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101865	1102169	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4927	5032	
==>ister opcode_t *cur_opcode asm ("esi") = cur_op;
#else
    opcode_t *cur_opcode = cur_op;
#endif

    stat <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550269	550368	
==>eth);\n  if (!method_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551570	551669	
==>eth);\n  if (!method_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554122	554221	
==>eth);\n  if (!method_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555519	555618	
==>eth);\n  if (!method_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558174	558273	
==>eth);\n  if (!method_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559558	559657	
==>eth);\n  if (!method_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72732	72833	
==>);\n  string_cstring_free(name);\n  if (p == NULLfunc) {\n      const char * err = Parrot_dlerror();\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74334	74435	
==>);\n  string_cstring_free(name);\n  if (p == NULLfunc) {\n      const char * err = Parrot_dlerror();\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75936	76037	
==>);\n  string_cstring_free(name);\n  if (p == NULLfunc) {\n      const char * err = Parrot_dlerror();\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77539	77640	
==>);\n  string_cstring_free(name);\n  if (p == NULLfunc) {\n      const char * err = Parrot_dlerror();\n <==
6	/Users/nnunley/parrot/tools/build/dynclasses.pl	4141	4239	
==>Convert lib-GROUP.so + A.so + B.so ... -> GROUP.so
    while (my ($group, $pmcs) = each %$group_fil <==
6	/Users/nnunley/parrot/tools/build/dynpmc.pl	4245	4343	
==>Convert lib-GROUP.so + A.so + B.so ... -> GROUP.so
    while (my ($group, $pmcs) = each %$group_fil <==
6	/Users/nnunley/parrot/languages/python/pie-thon.pl	26439	26561	
==>print <<EOC;
	\t # '$c' := $p $cmt
EOC
	$c = $p;
    }
    else {
	my $p = 5 + keys %params;
	$params{$c} = $c;
	$lexicals{ <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24816	24929	
==>lf->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_ <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25827	25940	
==>lf->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_ <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26715	26828	
==>lf->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_ <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27725	27838	
==>lf->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_ <==
6	/Users/nnunley/parrot/tools/build/ops2pm.pl	5142	5244	
==>ble for the MODULE file:
#

my $version = $real_ops->version();

# Hide the pod.

(my $pod = <<"END_POD <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049586	1049885	
==>MP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050619	1050918	
==>MP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051653	1051952	
==>MP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052687	1052986	
==>MP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053722	1054021	
==>MP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054848	1055147	
==>MP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344178	344276	
==>r * need to go away soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2}});\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345420	345518	
==>r * need to go away soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2}});\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346662	346760	
==>r * need to go away soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2}});\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347905	348003	
==>r * need to go away soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2}});\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349073	349171	
==>r * need to go away soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2}});\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350075	350173	
==>r * need to go away soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2}});\n <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16368	16459	
==>\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLM <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16710	16801	
==>\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLM <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1833	1924	
==>\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLM <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9911	10002	
==>\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLM <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10154	10245	
==>\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLM <==
6	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1936	2027	
==>\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLM <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062583	1062799	
==>(interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063452	1063668	
==>(interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064322	1064538	
==>(interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065195	1065411	
==>(interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066069	1066285	
==>(interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	4023	4129	
==>stand out.
    
    print {$self->{'output_fh'}} '<b>' if $self->{IN_ITEM_TEXT};
    
    print {$self->{'o <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550363	550455	
==>Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551664	551756	
==>Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554216	554308	
==>Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555613	555705	
==>Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558268	558360	
==>Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559652	559744	
==>Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175162	175247	
==>\"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_NUMCMP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196399	196484	
==>\"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_NUMCMP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213133	213218	
==>\"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_NUMCMP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221688	221773	
==>\"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_NUMCMP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	230250	230335	
==>\"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_NUMCMP <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11190	11313	
==>is can work right on
        #  all charsets that this module happens to run under.
        # Altho, hmm, what about that or <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17030	17153	
==>is can work right on
        #  all charsets that this module happens to run under.
        # Altho, hmm, what about that or <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4538	4659	
==>is can work right on
       #  all charsets that this module happens to run under.
       # Altho, hmm, what about that or <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2031	2146	
==>is can work right on
    #  all charsets that this module happens to run under.
    # Altho, hmm, what about that or <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10454	10569	
==>is can work right on
    #  all charsets that this module happens to run under.
    # Altho, hmm, what about that or <==
6	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2134	2249	
==>is can work right on
    #  all charsets that this module happens to run under.
    # Altho, hmm, what about that or <==
6	/Users/nnunley/parrot/config/inter/charset.pm	357	448	
==>:Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$description = 'Determining <==
6	/Users/nnunley/parrot/config/inter/encoding.pm	362	453	
==>:Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$description = 'Determining <==
6	/Users/nnunley/parrot/config/inter/ops.pm	337	428	
==>:Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$description = 'Determining <==
6	/Users/nnunley/parrot/config/inter/progs.pm	476	567	
==>:Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$description = 'Determining <==
6	/Users/nnunley/parrot/config/inter/shlibs.pm	636	727	
==>:Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$description = 'Determining <==
6	/Users/nnunley/parrot/config/inter/types.pm	388	479	
==>:Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$description = 'Determining <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279733	280022	
==>({{\@2}} < {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	280588	280877	
==>({{\@2}} < {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	281443	281732	
==>({{\@2}} < {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
6	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14827	14934	
==>nteger;
sub rtf_esc {
  my $x; # scratch
  if(!defined wantarray) { # void context: alter in-place!
    for( <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	6448	6553	
==>[%s:%d]: '%s'\n", $file, $line, $1;
      push @tokens, Jako::Token->new(
        $file, $line, 'ident', u <==
6	/Users/nnunley/parrot/lib/Test/Builder.pm	19272	19369	
==>eturn 1;
}


=begin _unimplemented

=item B<skip_rest>

  $Test->skip_rest;
  $Test->skip_rest($re <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271108	271412	
==>ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271954	272258	
==>ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272800	273104	
==>ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273645	273949	
==>ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	274491	274795	
==>ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	275337	275641	
==>ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476559	476823	
==>=> "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 54 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477454	477718	
==>=> "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 54 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478350	478614	
==>=> "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 54 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479241	479505	
==>=> "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 54 <==
6	/Users/nnunley/parrot/tools/build/dynoplibs.pl	828	918	
==>S = qq[-L/opt/local/lib -L/usr/local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS = qq[-bundl <==
6	/Users/nnunley/parrot/tools/build/dynpmc.pl	832	922	
==>S = qq[-L/opt/local/lib -L/usr/local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS = qq[-bundl <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54332	54618	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "func <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55091	55377	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "func <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55851	56137	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "func <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56612	56898	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "func <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57374	57660	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "func <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58135	58421	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "func <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550200	550293	
==>hod = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551501	551594	
==>hod = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554053	554146	
==>hod = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555450	555543	
==>hod = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558105	558198	
==>hod = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559489	559582	
==>hod = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849263	849475	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850149	850361	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851036	851248	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851923	852135	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847704	847915	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848483	848694	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714654	714757	
==>\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(int <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715577	715680	
==>\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(int <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716522	716625	
==>\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(int <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722341	722444	
==>\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(int <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723370	723473	
==>\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(int <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724414	724517	
==>\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(int <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049582	1049879	
==>T_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050615	1050912	
==>T_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051649	1051946	
==>T_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052683	1052980	
==>T_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053718	1054015	
==>T_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054844	1055141	
==>T_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	5165	5327	
==>_item(
                '', 
                'pairs' => ['string_primitives', 'string'],
                'headers' => ['string_funcs']
            ),
            $s <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926243	926396	
==>}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927713	927866	
==>}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929183	929336	
==>}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930654	930807	
==>}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\ <==
6	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	11418	11548	
==>elete;
    }
    
    foreach my $dir ($self->directories)
    {
        $dir->delete;
    }
}

=back

=head1 SEE ALSO

=over 4

=i <==
6	/Users/nnunley/parrot/tools/build/pmc2c.pl	14742	14860	
==>me (@{ $self->{parents} } ) {
            if (exists ($self->{has_parent}{$pname}{$meth} )) {
                $self->{s <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27346	27445	
==>ction, just take that. If not, we need
		# to generate it from the "to generate" instruction directi <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29813	29912	
==>ction, just take that. If not, we need
		# to generate it from the "to generate" instruction directi <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33231	33330	
==>ction, just take that. If not, we need
		# to generate it from the "to generate" instruction directi <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34485	34584	
==>ction, just take that. If not, we need
		# to generate it from the "to generate" instruction directi <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36895	36994	
==>ction, just take that. If not, we need
		# to generate it from the "to generate" instruction directi <==
6	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5180	5332	
==>"  ";
        if ( exists $op->{result} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $first = 1;
            fore <==
6	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6212	6364	
==>"  ";
        if ( exists $op->{result} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $first = 1;
            fore <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332712	332817	
==>n     but this generates ugly warnings WRT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333990	334095	
==>n     but this generates ugly warnings WRT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335268	335373	
==>n     but this generates ugly warnings WRT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336547	336652	
==>n     but this generates ugly warnings WRT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649106	649360	
==>p(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649869	650123	
==>p(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56391	56643	
==>p(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57153	57405	
==>p(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
6	/Users/nnunley/parrot/config/auto/gcc.pm	4911	5054	
==>cumulate-outgoing-args/) {
                use Config;
                if ($Config{archname} !~ /86/) {
                    $opt =~ s/-mno-accum <==
6	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1307	1404	
==>NS & CAVEATS

Currently this will only work during runtime since Pugs 
does not yet support `BEGIN <==
6	/Users/nnunley/parrot/lib/Pod/Simple.pm	25227	25339	
==>id thing to entend.\n";
      $self->whine(
        $para->[1]{'start_line'},
        "You can extend only format <==
6	/Users/nnunley/parrot/lib/Test/More.pm	24046	24142	
==>rk() or symlinks), or maybe
you need an Internet connection and one isn't available.

B<If it's s <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	125	217	
==>me license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/De <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	122	214	
==>me license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/De <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	117	209	
==>me license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/De <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	122	214	
==>me license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/De <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31645	31759	
==>method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self-> <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33222	33336	
==>method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self-> <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34933	35047	
==>method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self-> <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36236	36350	
==>method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self-> <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38183	38297	
==>method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self-> <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40279	40393	
==>method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self-> <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887537	887883	
==>GS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 100 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888670	889016	
==>GS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 100 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889804	890150	
==>GS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 100 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890938	891284	
==>GS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 100 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892073	892419	
==>GS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 100 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893207	893553	
==>GS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 100 <==
6	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	37110	37233	
==>{'start_line'},
          "Unknown directive: $para->[0]"
        );

        # And maybe treat it as text instead of just l <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273623	273738	
==>" => "#line 876 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	274469	274584	
==>" => "#line 876 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	275315	275430	
==>" => "#line 876 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [ <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	52507	52612	
==>d $prod->additem($item)
				      or  _no_rule("<reject:$code>",$line);
			}
			elsif ($grammar =~ m/(?=$S <==
6	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	2344	2448	
==>tions{prefix}/$dest";
    }

    push @{ $FILES{$package} }, $entry;
}

while (my ($package, $files) = ea <==
6	/Users/nnunley/parrot/lib/Pod/Simple.pm	4237	4324	
==>N)";
  }
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
6	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5407	5557	
==>rst);
                print {$FH} "$_->{symbol}";
                if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                    print <==
6	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6439	6589	
==>rst);
                print {$FH} "$_->{symbol}";
                if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                    print <==
6	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5836	5974	
==>rst);
            print {$FH} "$_->{symbol}";
            if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                print <==
6	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6931	7069	
==>rst);
            print {$FH} "$_->{symbol}";
            if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                print <==
6	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	9845	9983	
==>rst);
            print {$FH} "$_->{symbol}";
            if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                print <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16607	16715	
==>p_list {
  my ($self, $node) = @_;
  my $label = $self->_gensym ();
  my $return = $self->_save_1 ('P');

  $ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055712	1056033	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAG <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056603	1056924	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAG <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057495	1057816	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAG <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058387	1058708	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAG <==
6	/Users/nnunley/parrot/config/init/hints/freebsd.pm	461	575	
==>hing.

    my $osversion;
    if (-e "/sbin/sysctl") {
        $osversion = `/sbin/sysctl -n kern.osreldate`;
    } <==
6	/Users/nnunley/parrot/config/auto/env.pm	389	482	
==>ot::Configure::Step ':auto';

$description = 'Determining if your C library has setenv / unset <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154320	154615	
==>_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155223	155518	
==>_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156127	156422	
==>_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157031	157326	
==>_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157936	158231	
==>_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
6	/Users/nnunley/parrot/config/init/hints/cygwin.pm	406	517	
==>l\b//g;

    my $build_dir = $conf->data->get('build_dir');
    $build_dir =~ s/ /\\ /g;

    # A note about bui <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11203	11334	
==>ight on
        #  all charsets that this module happens to run under.
        # Altho, hmm, what about that ord?  Presumably that w <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17043	17174	
==>ight on
        #  all charsets that this module happens to run under.
        # Altho, hmm, what about that ord?  Presumably that w <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4551	4680	
==>ight on
       #  all charsets that this module happens to run under.
       # Altho, hmm, what about that ord?  Presumably that w <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2044	2167	
==>ight on
    #  all charsets that this module happens to run under.
    # Altho, hmm, what about that ord?  Presumably that w <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10467	10590	
==>ight on
    #  all charsets that this module happens to run under.
    # Altho, hmm, what about that ord?  Presumably that w <==
6	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2147	2270	
==>ight on
    #  all charsets that this module happens to run under.
    # Altho, hmm, what about that ord?  Presumably that w <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500321	500611	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501059	501349	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501798	502088	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502536	502826	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503275	503565	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_ <==
6	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2585	2693	
==>ction below, "
	    ."marked with \"#=#=#=\".\n";
    } else {
	print "Run this script with --plus-misses, an <==
6	/Users/nnunley/parrot/config/gen/makefiles.pm	3418	3601	
==>/Makefile',
        commentType                     => '#',
        replace_slashes                 => 1,
        conditioned_lines               => 1
    );
    genfile(
        'lang <==
6	/Users/nnunley/parrot/config/gen/makefiles.pm	7004	7184	
==>/Makefile',
        commentType                    => '#',
        replace_slashes                => 1,
        conditioned_lines              => 1
    );
    genfile(
        'lang <==
6	/Users/nnunley/parrot/config/gen/makefiles.pm	7228	7408	
==>/Makefile',
        commentType                    => '#',
        replace_slashes                => 1,
        conditioned_lines              => 1
    );
    genfile(
        'lang <==
6	/Users/nnunley/parrot/config/gen/makefiles.pm	5000	5177	
==>/Makefile',
        commentType                   => '#',
        replace_slashes               => 1,
        conditioned_lines             => 1
    );
    genfile(
        'lang <==
6	/Users/nnunley/parrot/config/gen/makefiles.pm	5233	5410	
==>/Makefile',
        commentType                   => '#',
        replace_slashes               => 1,
        conditioned_lines             => 1
    );
    genfile(
        'lang <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	4694	4799	
==>eachability analysis to find
    # unreachable basic blocks. We'll store a 'reachable' flag in the
    # 3 <==
6	/Users/nnunley/parrot/tools/build/c2str.pl	3429	3541	
==>TVAL len;
    Parrot_UInt4 hash_val;
    const char *string;
} parrot_cstrings[] = {
	{ 0, 0, "" },
HEADER
    my <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18438	18539	
==>$return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_gene <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19151	19252	
==>$return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_gene <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19639	19740	
==>$return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_gene <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20128	20229	
==>$return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_gene <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20617	20718	
==>$return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_gene <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6530	6630	
==>} + j
    prop_type_state[${ITEMP0}] = ${STYPES}
    prop_stack_depth[${ITEMP0}] = stack_depth
    go <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4468	4568	
==>} + j
    prop_type_state[${ITEMP0}] = ${STYPES}
    prop_stack_depth[${ITEMP0}] = stack_depth
    go <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5536	5635	
==>self->output_label_def($passLabel);
    return @ops;
}

sub output_initgroup {
    my ($self, $group <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5229	5328	
==>self->output_label_def($passLabel);
    return @ops;
}

sub output_initgroup {
    my ($self, $group <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83663	83753	
==>MC * const compreg_hash = VTABLE_get_pmc_keyed_int(interpreter,\n      interpreter->iglobal <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84569	84659	
==>MC * const compreg_hash = VTABLE_get_pmc_keyed_int(interpreter,\n      interpreter->iglobal <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85474	85564	
==>MC * const compreg_hash = VTABLE_get_pmc_keyed_int(interpreter,\n      interpreter->iglobal <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86381	86471	
==>MC * const compreg_hash = VTABLE_get_pmc_keyed_int(interpreter,\n      interpreter->iglobal <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611199	611457	
==>tr(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612102	612360	
==>tr(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613008	613266	
==>tr(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613915	614173	
==>tr(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042945	1043203	
==>tr(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043842	1044100	
==>tr(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467760	468050	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":bas <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468631	468921	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":bas <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469505	469795	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":bas <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470380	470670	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":bas <==
6	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3156	3265	
==>.
        $conf->data->set(link => $conf->data->get('ld'));

        # We can't use -opt: and -debug together. <==
6	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4660	4769	
==>.
        $conf->data->set(link => $conf->data->get('ld'));

        # We can't use -opt: and -debug together. <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459028	459335	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460015	460322	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461003	461310	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461991	462298	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462987	463294	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463984	464291	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	153387	153684	
==>,
                  "NAME" => "eq_num",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133309	133483	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134089	134263	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134870	135044	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135763	135937	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136657	136831	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605154	605429	
==>{{\@2}}, {{\@1}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	99648	99921	
==>{{\@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104094	104367	
==>{{\@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	252209	252482	
==>{{\@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450140	450413	
==>{{\@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	512544	512817	
==>{{\@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4190	4289	
==>' => sub {
		my($a1,$a2,$result,$op,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1) <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4454	4553	
==>' => sub {
		my($a1,$a2,$result,$op,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1) <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4778	4877	
==>' => sub {
		my($a1,$a2,$result,$op,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1) <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5090	5189	
==>' => sub {
		my($a1,$a2,$result,$op,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1) <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5466	5565	
==>' => sub {
		my($a1,$a2,$result,$op,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1) <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5898	5997	
==>' => sub {
		my($a1,$a2,$result,$op,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454690	455007	
==>@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455545	455862	
==>@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456400	456717	
==>@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457254	457571	
==>@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458109	458426	
==>@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458964	459281	
==>@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939707	939898	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940598	940789	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941490	941681	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942382	942573	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	8418	8573	
==>$back => aop('setend', [ $group, -2 ]),
                        aop('goto', [ $R_back ]),
               $next =>

              );

    return ($back, @ops <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5135	5248	
==>$syms[CURR] eq "else") {   #  and $singleif) {
		my $c=pop @ifstack;
		push(@ifstack, -1);
		if (! $c) { 
			die " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584635	584727	
==>ng_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585710	585802	
==>ng_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586857	586949	
==>ng_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588043	588135	
==>ng_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589229	589321	
==>ng_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590416	590508	
==>ng_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, <==
6	/Users/nnunley/parrot/tools/build/nativecall.pl	10994	11115	
==>C *t_$temp_num;";
        push @{$extra_preamble_ref},
             "t_$temp_num = GET_NCI_P($reg_num);";
        return " <==
6	/Users/nnunley/parrot/tools/build/nativecall.pl	10006	10126	
==>C *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_P($reg_num);";
        return " <==
6	/Users/nnunley/parrot/tools/build/nativecall.pl	10398	10518	
==>C *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_P($reg_num);";
        return " <==
6	/Users/nnunley/parrot/tools/build/nativecall.pl	11597	11717	
==>C* t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_P($reg_num);";
        return " <==
6	/Users/nnunley/parrot/tools/build/nativecall.pl	13161	13281	
==>C *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_P($reg_num);";
        return " <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	31209	31321	
==>e clone");
            my $post_op = $srm->post_op(1, 1);
		    $post_op = sub_meta($post_op, $mv, "post_op for r <==
6	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	465	579	
==>cc)
        $ccflags .= ' -D_XOPEN_SOURCE=500';
    }
    $conf->data->set(ccflags => $ccflags);

    my $libs = $c <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071979	1072093	
==>1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVA <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074164	1074278	
==>1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVA <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076349	1076463	
==>1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVA <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078535	1078649	
==>1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVA <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	25612	25701	
==>f->{"lookahead"},0,$self->describe); 
	$dir->{hashname} = $self->{hashname};
	return $dir- <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454796	455084	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGD <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455651	455939	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGD <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456506	456794	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGD <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457360	457648	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGD <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458215	458503	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGD <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554956	555206	
==>CODE" => 637,
                  "ARGS" => [
                              "p",
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line 94 \"src/ops/object.ops\"\n  opcode_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550376	550472	
==>not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  { <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551677	551773	
==>not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  { <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554229	554325	
==>not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  { <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555626	555722	
==>not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  { <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558281	558377	
==>not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  { <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559665	559761	
==>not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  { <==
6	/Users/nnunley/parrot/tools/build/dynclasses.pl	3453	3555	
==>f (needs_build("$group.c", @pmcfiles)) {
            run("$PMC2C --library $group --c " . join(" ",@pmc <==
6	/Users/nnunley/parrot/tools/build/dynpmc.pl	3557	3659	
==>f (needs_build("$group.c", @pmcfiles)) {
            run("$PMC2C --library $group --c " . join(" ",@pmc <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858546	858641	
==>.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat with negative <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859550	859645	
==>.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat with negative <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860554	860649	
==>.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat with negative <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861559	861654	
==>.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat with negative <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857763	858067	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858766	859070	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859770	860074	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860774	861078	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824484	824573	
==>= STACK_ENTRY_STRING) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stac <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825555	825644	
==>= STACK_ENTRY_STRING) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stac <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2824	2928	
==>e => 'op', Attributes => { kind => 'infix', name => $op } });
    $left->sax($handler);
    $right->sax($ <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3498	3602	
==>e => 'op', Attributes => { kind => 'infix', name => $op } });
    $left->sax($handler);
    $right->sax($ <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3588	3692	
==>e => 'op', Attributes => { kind => 'infix', name => $op } });
    $left->sax($handler);
    $right->sax($ <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5373	5473	
==>e => 'op', Attributes => { kind => 'infix', name => $op } });
  $left->sax($handler);
  $right->sax($ <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3436	3536	
==>e => 'op', Attributes => { kind => 'infix', name => $op } });
  $left->sax($handler);
  $right->sax($ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432573	432937	
==>ELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "A <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433588	433952	
==>ELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "A <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434602	434966	
==>ELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "A <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435617	435981	
==>ELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "A <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436631	436995	
==>ELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "A <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437646	438010	
==>ELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "A <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27488	27589	
==>rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} el <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29955	30056	
==>rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} el <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33373	33474	
==>rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} el <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34627	34728	
==>rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} el <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37037	37138	
==>rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} el <==
6	/Users/nnunley/parrot/tools/build/jit2c.pl	9216	9304	
==>nt JITCPU "#define ECONST(i) (int *)(jit_info->cur_op[i] * sizeof(struct PackFile_Constan <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	8711	8844	
==>antee);

        foreach my $kid (@{ $t->{args} }) {
            $kid_follow_min += $kid->minlen();
        }

        foreach my $kid <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634582	634676	
==>lass;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interp <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635700	635794	
==>lass;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interp <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636818	636912	
==>lass;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interp <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637937	638031	
==>lass;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interp <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1781	1875	
==>to return the type of core created by the
transform. This default implementation raises an exce <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1682	1789	
==>p 0 start := pos');
}

sub output_increment {
    my ($self, $distance, $failLabel) = @_;
    die "invalid d <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1435	1542	
==>p 0 start := pos');
}

sub output_increment {
    my ($self, $distance, $failLabel) = @_;
    die "invalid d <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763124	763226	
==>{{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763977	764079	
==>{{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764830	764932	
==>{{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765684	765786	
==>{{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350567	350817	
==>UMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351228	351478	
==>UMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351890	352140	
==>UMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352547	352797	
==>UMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
6	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	1546	1654	
==>memcpy (cursor, fingerprint, $len);
    return $len;
}
EOF

} else { # !DEVELOPING

  print << "EOF";
/* fing <==
6	/Users/nnunley/parrot/languages/python/pie-thon.pl	31324	31431	
==>eh, .Exception_Handler, $targ $cmt
	set_eh $eh
EOC
}
sub POP_BLOCK
{
    my ($n, $c, $cmt) = @_;
    if (@lo <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19984	20084	
==>th=( single => 'FLO', double => 'FLO', long => 'INT', integer => 'INT', string => 'STRING');
			die " <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22178	22269	
==>t::Expression::Value->new($block, $self->require_value);

        $self->require_close_paren <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23111	23202	
==>t::Expression::Value->new($block, $self->require_value);

        $self->require_close_paren <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24757	24847	
==>t::Expression::Value->new($block, $self->require_value);
        $self->require_close_paren <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9938	10027	
==>t::Expression::Value->new($block, $self->require_value);

      $self->require_close_paren <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25474	25563	
==>t::Expression::Value->new($block, $self->require_value);

      $self->require_close_paren <==
6	/Users/nnunley/parrot/tools/dev/nm.pl	3179	3270	
==>l symbols (TDBRUF)
--const|-C	const (read-only) data symbols (Rr) [1]
--undef|-U	undefined s <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5651	5737	
==>tem C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpT <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3227	3313	
==>tem C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpT <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2955	3041	
==>tem C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpT <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4633	4719	
==>tem C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpT <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	4017	4103	
==>tem C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpT <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168554	168816	
==>ter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169496	169758	
==>ter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170436	170698	
==>ter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171377	171639	
==>ter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60037	60293	
==>=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "warningsoff",
                  "FLA <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60686	60942	
==>=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "warningsoff",
                  "FLA <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493827	494125	
==>" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494694	494992	
==>" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495562	495860	
==>" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496430	496728	
==>" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497299	497597	
==>" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498169	498467	
==>" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500482	500725	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501220	501463	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501959	502202	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502697	502940	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1396	1519	
==>>{PC} = shift;
    }
    else
    {
        return $self->{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/gets th <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1005	1128	
==>>{PC} = shift;
    }
    else
    {
        return $self->{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/gets th <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9484	9668	
==>codes, new LocalDir( $parser,
                        'result' => $result2,
                    );
                    push @opcodes, new KeyedGetOp(
                        $parser <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11265	11436	
==>codes, new LocalDir( $parser,
                            'result' => $result2,
                        );
                        push @opcodes, new KeyedGetOp( $parser <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12781	12940	
==>codes, new LocalDir( $parser,
                        'result' => $result2,
                    );
                    push @opcodes, new KeyedGetOp( $parser <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8452	8587	
==>codes, new LocalDir( $parser,
                'result' => $result2,
            );
            push @opcodes, new KeyedGetOp( $parser <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17662	17785	
==>codes, new LocalDir( $parser,
            'result' => $result2,
        );
        push @opcodes, new KeyedGetOp( $parser <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	2453	2575	
==>2c
    if ($special_class_name{$classname}) {
        $nclass .= "::" . $classname;
    }
    else {
        $nclass .= ":: <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450952	451243	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":ba <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451690	451981	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":ba <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452429	452720	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":ba <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453167	453458	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":ba <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453906	454197	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":ba <==
6	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6	145	
==>strict;

package pirVisitor;
{

    sub new {
        my $proto = shift;
        my $class = ref($proto) || $proto;
        my $self <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3923	4026	
==>ock
  my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless defined $self a <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7832	7935	
==>ock
  my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless defined $self a <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8479	8582	
==>ock
  my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless defined $self a <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9147	9250	
==>ock
  my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless defined $self a <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9816	9919	
==>ock
  my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless defined $self a <==
6	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3633	3724	
==>le::TextContent>, L<Pod::Text>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19472	19554	
==>= Jako::Construct::Expression::Value::Identifier->new($block, $self->require_ident) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154831	154949	
==>,
                  "BODY" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  { <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155735	155853	
==>,
                  "BODY" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  { <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156639	156757	
==>,
                  "BODY" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  { <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157544	157662	
==>,
                  "BODY" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  { <==
6	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	7248	7349	
==>)
.end

.sub unicode:"dyadic:\u2373" :multi(APLVector, APLVector) # index of
    .param pmc op1
    .p <==
6	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	16063	16161	
==>sor->new;
 $parser->set_source( \@document_lines );
 $parser->run;

And elsewhere:

 require 5;
 pa <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324241	324504	
==>E" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325033	325296	
==>E" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325826	326089	
==>E" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326616	326879	
==>E" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327417	327680	
==>E" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
6	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21713	21846	
==>-1]->tagname eq 'Para'
        #and
        ($pattern = join('',
         map {;
            ($_->type eq 'start') ? ("<" . $_->tagnam <==
6	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2137	2240	
==>_par {
  my($self, $tweak_indent) = splice(@_,0,2);
  my $indent = ' ' x ( 2 * $self->{'Indent'} + 4 + ( <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9618	9858	
==>s, new KeyedGetOp(
                        $parser,
                        'result' => $result2,
                        'arg1'   => $result,
                        'arg2'   => $key->[0],
                    );
                    $r <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11411	11646	
==>s, new KeyedGetOp( $parser,
                            'result' => $result2,
                            'arg1'   => $result,
                            'arg2'   => $key->[0],
                        );
                        $r <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12915	13130	
==>s, new KeyedGetOp( $parser,
                        'result' => $result2,
                        'arg1'   => $result,
                        'arg2'   => $key->[0],
                    );
                    $r <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8562	8737	
==>s, new KeyedGetOp( $parser,
                'result' => $result2,
                'arg1'   => $result,
                'arg2'   => $key->[0],
            );
            $r <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17760	17915	
==>s, new KeyedGetOp( $parser,
            'result' => $result2,
            'arg1'   => $result,
            'arg2'   => $key->[0],
        );
        $r <==
6	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	811	906	
==>lds.  For example, parsing
CZ<><foo> will return a C start-token, a text-token, and a C end-toke <==
6	/Users/nnunley/parrot/config/gen/makefiles.pm	4176	4313	
==>n/makefiles/cola.in' => 'languages/cola/Makefile',
        commentType                    => '#',
        replace_slashes                = <==
6	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	3026	3137	
==>nts and returns a list.

=cut

sub keys
{
    my $self = shift;

    return keys %{$self->{c}};
}

=item C<dump( <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11195	11342	
==>result2 = new_tmp( $parser, 'pmc' );
                        push @opcodes, new LocalDir( $parser,
                            'result' => $result <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9418	9557	
==>result2 = new_tmp( $parser, 'pmc' );
                    push @opcodes, new LocalDir( $parser,
                        'result' => $result <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12715	12854	
==>result2 = new_tmp( $parser, 'pmc' );
                    push @opcodes, new LocalDir( $parser,
                        'result' => $result <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8394	8517	
==>result2 = new_tmp( $parser, 'pmc' );
            push @opcodes, new LocalDir( $parser,
                'result' => $result <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17608	17723	
==>result2 = new_tmp( $parser, 'pmc' );
        push @opcodes, new LocalDir( $parser,
            'result' => $result <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	1588	1688	
==>e::scan::ISA         = qw(Regex::Ops::Tree::_onearg);
@Regex::Ops::Tree::atend::ISA        = qw(Regex <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93349	93571	
==>(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94129	94351	
==>(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109673	109895	
==>(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110452	110674	
==>(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133878	134100	
==>(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134659	134881	
==>(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	2380	2493	
==>}

=item C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shift;
    
    return $self->SUPER::new <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	1337	1441	
==>}

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072515	1072617	
==>x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we used <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074700	1074802	
==>x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we used <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076885	1076987	
==>x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we used <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079071	1079173	
==>x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we used <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180640	180904	
==>s\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181536	181800	
==>s\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182432	182696	
==>s\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183327	183591	
==>s\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184223	184487	
==>s\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185119	185383	
==>s\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31618	31737	
==>sub body
{
    my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get e <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33195	33314	
==>sub body
{
    my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get e <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34906	35025	
==>sub body
{
    my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get e <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36209	36328	
==>sub body
{
    my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get e <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38156	38275	
==>sub body
{
    my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get e <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40252	40371	
==>sub body
{
    my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get e <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	701	805	
==>$block,

    TOKEN  => $token,
    VALUE  => $token->text,
    SCOPE  => $block->scope_of_ident($token->t <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361742	361846	
==>}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362641	362745	
==>}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363543	363647	
==>}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364446	364550	
==>}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367023	367127	
==>}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480824	481133	
==>r({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481827	482136	
==>r({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482830	483139	
==>r({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483828	484137	
==>r({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484827	485136	
==>r({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485826	486135	
==>r({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
6	/Users/nnunley/parrot/tools/build/ops2c.pl	7595	7708	
==>able, sprintf("  %-50s /* %6ld */\n",
            "$func_name,", $index);
    }
    $one_op .= "$definition $comme <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27436	27537	
==>on directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir' <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29903	30004	
==>on directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir' <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33321	33422	
==>on directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir' <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34575	34676	
==>on directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir' <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36985	37086	
==>on directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471310	471618	
==>}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "di <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472297	472605	
==>}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "di <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473284	473592	
==>}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "di <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474274	474582	
==>}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "di <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475265	475573	
==>}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "di <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	21416	21551	
==>eths);
    my $mmd_list = join(",\n        ", map {
        "{ $_->[0], $_->[1], $_->[2],
                    (funcptr_t) $_->[3] }" } @ <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11293	11406	
==>m, what about that ord?  Presumably that won't work right
        #  under non-ASCII charsets.  Something should b <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17133	17246	
==>m, what about that ord?  Presumably that won't work right
        #  under non-ASCII charsets.  Something should b <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4639	4751	
==>m, what about that ord?  Presumably that won't work right
       #  under non-ASCII charsets.  Something should b <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2126	2235	
==>m, what about that ord?  Presumably that won't work right
    #  under non-ASCII charsets.  Something should b <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10549	10658	
==>m, what about that ord?  Presumably that won't work right
    #  under non-ASCII charsets.  Something should b <==
6	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2229	2338	
==>m, what about that ord?  Presumably that won't work right
    #  under non-ASCII charsets.  Something should b <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8124	8251	
==>'pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallba <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8906	9033	
==>'pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallba <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7777	7904	
==>'pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallba <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8566	8693	
==>'pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallba <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19683	19787	
==>lti_match' => [ 0, -1, TRUE, $_[1] ]); }
	],
	[#Rule 14
		 'expr', 3,
sub
#line 119 "lib/Regex/Grammar.y" <==
6	/Users/nnunley/parrot/lib/Parrot/Configure.pm	2230	2327	
==>he order in which
they were registered in.

Accepts no arguments and returns a list in list contex <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271133	271421	
==>= {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271979	272267	
==>= {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272825	273113	
==>= {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273670	273958	
==>= {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	274516	274804	
==>= {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	275362	275650	
==>= {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480056	480392	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481058	481394	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482061	482397	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483064	483400	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484062	484398	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485061	485397	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
6	/Users/nnunley/parrot/tools/build/c2str.pl	1451	1559	
==>/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically from ' <==
6	/Users/nnunley/parrot/tools/build/c2str.pl	3211	3319	
==>/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically from ' <==
6	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	925	1033	
==>/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically from ' <==
6	/Users/nnunley/parrot/tools/build/jit2c.pl	6553	6661	
==>/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically from ' <==
6	/Users/nnunley/parrot/tools/build/ops2c.pl	5246	5354	
==>/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically from ' <==
6	/Users/nnunley/parrot/tools/build/ops2pm.pl	6366	6474	
==>/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically from ' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72833	72926	
==>n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74435	74528	
==>n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76037	76130	
==>n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77640	77733	
==>n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79161	79254	
==>n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80682	80775	
==>n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262899	263198	
==>MP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263845	264144	
==>MP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264698	264997	
==>MP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265552	265851	
==>MP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266406	266705	
==>MP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	9677	9780	
==>";
	for (0..$max_push - 1) {
		$dest_locals .= $dest_locals ? ', ' : '.local string ';
		$dest_locals .= <==
6	/Users/nnunley/parrot/config/inter/types.pm	487	590	
==>ypes Parrot should use';

@args = qw(ask intval opcode floatval);

sub runstep
{
    my ($self, $conf) = <==
6	/Users/nnunley/parrot/config/init/hints.pm	175	271	
==>ts

=head1 DESCRIPTION

Loads the platform and local hints files, modifying the defaults set up i <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31433	31529	
==>the number of lines, C<$out_name> is the name of the output file we are
generating.

Overrides th <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33046	33142	
==>the number of lines, C<$out_name> is the name of the output file we are
generating.

Overrides th <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34734	34830	
==>the number of lines, C<$out_name> is the name of the output file we are
generating.

Overrides th <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40053	40149	
==>the number of lines, C<$out_name> is the name of the output file we are
generating.

Overrides th <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781149	781568	
==>RGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 882,
                  "ARGS" => [
                              "p",
                              "kic",
                              "s"
                            ],
                  "BOD <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024360	1024650	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025116	1025406	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025873	1026163	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026629	1026919	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	4263	4364	
==>code"]= \$P0
	\$P1["step"]= 1   # Turn on stepping mode
	\$P0=new .PerlHash
	\$P1["break"]= \$P0  # Br <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	24015	24123	
==>arg_num} = bc.read_uint16()\n    next_pc += 2\n";
			$arg_name = "I_ARG_$arg_num";
		}

		# int16
		elsif (/^ <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19004	19096	
==>'set',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return $ <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19492	19584	
==>'set',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return $ <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19980	20072	
==>'set',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return $ <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20469	20561	
==>'set',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return $ <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20958	21050	
==>'set',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return $ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454719	455041	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAG <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455574	455896	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAG <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456429	456751	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAG <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457283	457605	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAG <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458138	458460	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAG <==
6	/Users/nnunley/parrot/lib/Pod/Simple.pm	28264	28367	
==>ive algorithm implemented iteratively!  Whee!

  while($treelet = shift @stack) {
    for($i = 2; $i < @ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432528	432867	
==>@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433543	433882	
==>@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434557	434896	
==>@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435572	435911	
==>@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436586	436925	
==>@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437601	437940	
==>@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584604	584701	
==>'%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_su <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585679	585776	
==>'%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_su <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586826	586923	
==>'%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_su <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588012	588109	
==>'%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_su <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589198	589295	
==>'%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_su <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590385	590482	
==>'%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_su <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	534426	534669	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "log2",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18505	18596	
==>ant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children} <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19218	19309	
==>ant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children} <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19706	19797	
==>ant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children} <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20195	20286	
==>ant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children} <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20684	20775	
==>ant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684685	684944	
==>p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n      {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685580	685839	
==>p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n      {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044736	1044993	
==>p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045630	1045887	
==>p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046524	1046781	
==>p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047419	1047676	
==>p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841079	841323	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841842	842086	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842606	842850	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843483	843727	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844361	844605	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845239	845483	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
6	/Users/nnunley/parrot/lib/Pod/Escapes.pm	5582	5712	
==>'    , 948,
 'epsilon'  , 949,
 'zeta'     , 950,
 'eta'      , 951,
 'theta'    , 952,
 'iota'     , 953,
 'kappa'    , 954,
 'lam <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4541	4632	
==>t_block();
      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $to <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	10787	10878	
==>t_block();
      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $to <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16201	16292	
==>t_block();
      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $to <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16972	17063	
==>t_block();
      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $to <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17777	17868	
==>t_block();
      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $to <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467680	467795	
==>_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468551	468666	
==>_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469425	469540	
==>_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470300	470415	
==>_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [ <==
6	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	13859	13955	
==>head1', {'start_line' => $m, 'errata' => 1}, 'POD ERRORS'],
    ['~Para', {'start_line' => $m, '~ <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10325	10419	
==>ext_pc, bc_length, cur_ic, pop_count, label_num, sp_dest
    .local int i, j, type, try_offset, <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	14723	14822	
==>, line=>$line,
		  offset=> scalar(@{$self->{items}}) };
}

sub addscore
{
	my ( $self, $code, $look <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	839477	839664	
==>ter->ctx)->user_stack, &({{\@1}}),\n                  STACK_ENTRY_STRING);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ] <==
6	/Users/nnunley/parrot/lib/Test/Builder.pm	135	237	
==>s in older perls.
$^C ||= 0;

use strict;
use vars qw($VERSION);
$VERSION = '0.30';
$VERSION = eval $VE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071782	1071883	
==>Y" => "#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073967	1074068	
==>Y" => "#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076152	1076253	
==>Y" => "#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078338	1078439	
==>Y" => "#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{ <==
6	/Users/nnunley/parrot/tools/build/nativecall.pl	2018	2100	
==>*final_destination = new_buffer_header(interpreter);\nPObj_external_SET(final_desti <==
6	/Users/nnunley/parrot/tools/build/nativecall.pl	2131	2213	
==>*final_destination = new_buffer_header(interpreter);\nPObj_external_SET(final_desti <==
6	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	17371	17488	
==>ift;
    $code =~ s/%1/$op1/g;
    $code =~ s/%2/$op2/g;
    $code .= "\n";
    return($code);
}

__END__ 

=head1 NAM <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18493	18584	
==>self->_constant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19206	19297	
==>self->_constant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19694	19785	
==>self->_constant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20183	20274	
==>self->_constant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20672	20763	
==>self->_constant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node <==
6	/Users/nnunley/parrot/lib/Test/Builder.pm	30232	30343	
==>o be sure, tell it explicitly
what $pack to use.

=cut

sub todo {
    my($self, $pack) = @_;

    $pack = $pack <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	622825	622928	
==>c/ops/pic.ops\"\n    Parrot_MIC *mic;\n    Parrot_PIC_lru *lru;\n    PMC *sig, *ccont;\n    opcode_t *de <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858538	858632	
==>s/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat with <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859542	859636	
==>s/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat with <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860546	860640	
==>s/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat with <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861551	861645	
==>s/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat with <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72809	72901	
==>err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Sym <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74411	74503	
==>err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Sym <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76013	76105	
==>err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Sym <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77616	77708	
==>err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Sym <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79137	79229	
==>err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Sym <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80658	80750	
==>err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Sym <==
6	/Users/nnunley/parrot/tools/dev/lib_deps.pl	3237	3384	
==>$file;
        
        # beginning of function block
        if (/FUNCTION : (.*) \[(.*)\]/) {
            $function = $1;
            my $function <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353696	353842	
==>) {\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354441	354587	
==>) {\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355208	355354	
==>) {\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0 <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29204	29304	
==>],
		"description" => "'$desc'",
	}, $class;
}


sub code($$$$)
{
	my ($self, $namespace, $rule, $che <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31302	31401	
==>],
		"description" => "'$desc'",
	}, $class;
}

sub code($$$$)
{
	my ($self, $namespace, $rule, $che <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72819	72911	
==>ot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74421	74513	
==>ot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76023	76115	
==>ot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77626	77718	
==>ot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79147	79239	
==>ot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80668	80760	
==>ot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258500	258828	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259443	259771	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260294	260622	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261146	261474	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261998	262326	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	368	484	
==>te_N_LAMBDA'],
  ['',             'print', '"lambda"'],
  ['',             'branch', 'write_RET'],
  ['write_N_LAMBDA <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26439	26567	
==>RING' => 44
		},
		GOTOS => {
			'tableconstructor' => 46,
			'args' => 135,
			'key' => 136
		}
	},
	{#State 82
		ACTIO <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154868	154983	
==>134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LAB <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155772	155887	
==>134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LAB <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156676	156791	
==>134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LAB <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157581	157696	
==>134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LAB <==
6	/Users/nnunley/parrot/lib/Pod/Simple.pm	15012	15112	
==>n.\n";
    return;
  }
  return $self->_complain_warn(@_) if $self->{'complain_stderr'};
  return $se <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061109	1061383	
==>\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namesp <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062649	1062923	
==>\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namesp <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063518	1063792	
==>\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namesp <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064388	1064662	
==>\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namesp <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065261	1065535	
==>\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namesp <==
6	/Users/nnunley/parrot/config/inter/charset.pm	253	351	
==>clude.

=cut

package inter::charset;

use strict;
use vars qw($description @args);

use base qw(Pa <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54891	55164	
==>});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpin <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55651	55924	
==>});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpin <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56412	56685	
==>});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpin <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57174	57447	
==>});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpin <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57935	58208	
==>});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpin <==
6	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	1096	1192	
==>s that you can write your tests in your language itself and run them
through your compiler itself <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3030	3140	
==>the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type). <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4788	4898	
==>the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type). <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1952	2062	
==>the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type). <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3204	3314	
==>the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type). <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1243	1353	
==>the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type). <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2953	3063	
==>the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type). <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180651	180929	
==>{{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181547	181825	
==>{{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182443	182721	
==>{{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183338	183616	
==>{{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184234	184512	
==>{{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185130	185408	
==>{{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857960	858277	
==>( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858963	859280	
==>( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859967	860284	
==>( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860971	861288	
==>( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
6	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	5555	5659	
==>nless iter goto loop_end_2d
    value_type = typeof value
    if newline goto print_newline
    if value_ <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29135	29231	
==>xists $self->{has_method}{$meth};
    my $n = $self->{vtable}{has_method}{$meth};
    return $sel <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72826	72919	
==>ror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74428	74521	
==>ror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76030	76123	
==>ror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77633	77726	
==>ror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79154	79247	
==>ror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80675	80768	
==>ror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044711	1044822	
==>n    Parrot_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045605	1045716	
==>n    Parrot_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046499	1046610	
==>n    Parrot_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047394	1047505	
==>n    Parrot_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" <==
6	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1704	1787	
==>"\n{\\pard\\li#rtfindent##rtfkeep#\\plain\\s20\\sa180\\f1\\fs18\\lang1024\\noproof\n <==
6	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1846	1929	
==>"\n{\\pard\\li#rtfindent##rtfkeep#\\plain\\s20\\sa180\\f1\\fs18\\lang1024\\noproof\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492219	492428	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492979	493188	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498952	499161	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499714	499923	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
6	/Users/nnunley/parrot/tools/build/dynclasses.pl	4007	4110	
==>if ($mode eq 'linklibs') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_g <==
6	/Users/nnunley/parrot/tools/build/dynpmc.pl	4111	4214	
==>if ($mode eq 'linklibs') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_g <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493740	494080	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494607	494947	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495475	495815	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496343	496683	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497212	497552	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498082	498422	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
6	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	381	478	
==>is and generates the
actual compiler for that command.

Many builtins need to use the same type of <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4646	4737	
==><goto_address($address)>

Transforms the C<goto ADDRESS($address)> macro in an ops file into <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1311	1402	
==><goto_address($address)>

Transforms the C<goto ADDRESS($address)> macro in an ops file into <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1836	1927	
==><goto_address($address)>

Transforms the C<goto ADDRESS($address)> macro in an ops file into <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1727	1818	
==><goto_address($address)>

Transforms the C<goto ADDRESS($address)> macro in an ops file into <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1451	1542	
==><goto_address($address)>

Transforms the C<goto ADDRESS($address)> macro in an ops file into <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11141	11253	
==>s, stipulate the list without a range, so that this can work right on
        #  all charsets that this module ha <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16981	17093	
==>s, stipulate the list without a range, so that this can work right on
        #  all charsets that this module ha <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4489	4600	
==>s, stipulate the list without a range, so that this can work right on
       #  all charsets that this module ha <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1982	2090	
==>s, stipulate the list without a range, so that this can work right on
    #  all charsets that this module ha <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10405	10513	
==>s, stipulate the list without a range, so that this can work right on
    #  all charsets that this module ha <==
6	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2085	2193	
==>s, stipulate the list without a range, so that this can work right on
    #  all charsets that this module ha <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3001	3122	
==>et up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can fi <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4759	4880	
==>et up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can fi <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1923	2044	
==>et up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can fi <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3175	3296	
==>et up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can fi <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1214	1335	
==>et up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can fi <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2924	3045	
==>et up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can fi <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493765	494085	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494632	494952	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495500	495820	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496368	496688	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497237	497557	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498107	498427	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067241	1067545	
==>)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068427	1068731	
==>)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069613	1069917	
==>)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070800	1071104	
==>)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3893	4003	
==>rameter '$prm'");
        $prm=unpack('@2A*',$prm);
		$$outhash{$prm}=$value;
	}
	for (@$mandatory) {
			e <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3696	3801	
==>rameter '$prm'");
        $prm=unpack('@2A*',$prm);
		$$outhash{$prm}=$value;
	}
	for (@$mandatory) {
			e <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550221	550313	
==>_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_excepti <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551522	551614	
==>_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_excepti <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554074	554166	
==>_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_excepti <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555471	555563	
==>_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_excepti <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558126	558218	
==>_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_excepti <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559510	559602	
==>_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_excepti <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9539	9748	
==>'result' => $result2,
                    );
                    push @opcodes, new KeyedGetOp(
                        $parser,
                        'result' => $result2,
                        'arg1' <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11324	11524	
==>'result' => $result2,
                        );
                        push @opcodes, new KeyedGetOp( $parser,
                            'result' => $result2,
                            'arg1' <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12836	13020	
==>'result' => $result2,
                    );
                    push @opcodes, new KeyedGetOp( $parser,
                        'result' => $result2,
                        'arg1' <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8499	8651	
==>'result' => $result2,
            );
            push @opcodes, new KeyedGetOp( $parser,
                'result' => $result2,
                'arg1' <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17705	17841	
==>'result' => $result2,
        );
        push @opcodes, new KeyedGetOp( $parser,
            'result' => $result2,
            'arg1' <==
6	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	9216	9339	
==>tail</i>
    );

    foreach my $source_file (sort keys %file_line_coverage) {

        print OUT qq(
            <hr noshad <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931887	932139	
==>case(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932658	932910	
==>case(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934093	934345	
==>case(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934868	935120	
==>case(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936309	936561	
==>case(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937086	937338	
==>case(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23047	23236	
==>p->vtable->invoke(interpreter, p, dest);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25486	25675	
==>p->vtable->invoke(interpreter, p, dest);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950531	950618	
==>st = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpr <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951491	951578	
==>st = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpr <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952451	952538	
==>st = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpr <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953412	953499	
==>st = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpr <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454679	454972	
==>ps\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455534	455827	
==>ps\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456389	456682	
==>ps\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457243	457536	
==>ps\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458098	458391	
==>ps\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458953	459246	
==>ps\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765846	766117	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766698	766969	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767551	767822	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768404	768675	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	44206	44321	
==>bj(@args);
      $self->_restore(@args);
    }
  } else {
    my $value = $node->{value};
    if ($value =~ /^[a-zA- <==
6	/Users/nnunley/parrot/lib/Pod/Simple/Transcode.pm	191	285	
==>}

foreach my $class (
  'Pod::Simple::TranscodeSmart',
  'Pod::Simple::TranscodeDumb',
  '',
) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476302	476635	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGD <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480878	481211	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGD <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481881	482214	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGD <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482884	483217	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGD <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483882	484215	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGD <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484881	485214	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGD <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948207	948463	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949006	949262	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949806	950062	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950765	951021	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951725	951981	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952685	952941	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS <==
6	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	2991	3103	
==>elf = shift;
    
    return $self->{SUFFIX} if exists $self->{SUFFIX};
    
    my ($suffix) = $self->name =~ /\ <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27610	27708	
==>meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= " <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30077	30175	
==>meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= " <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33495	33593	
==>meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= " <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34749	34847	
==>meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= " <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37159	37257	
==>meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056285	1056539	
==>DE" => 1179,
                  "ARGS" => [
                              "p",
                              "k",
                              "s"
                            ],
                  "BODY" => "#line 194 \"src/ops/var.ops\"\n    {{\@1}} = Par <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	14740	14901	
==>, [ $result, [] ];
                push @{ $callop->{result} }, $result;
            }
            push @{ $expr->[1] }, $callop;
        }
        push @opc <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7974	8070	
==>struct::Block");
  confess "No identifier name!"  unless defined $name;
  confess "Extra argument <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8621	8717	
==>struct::Block");
  confess "No identifier name!"  unless defined $name;
  confess "Extra argument <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9289	9385	
==>struct::Block");
  confess "No identifier name!"  unless defined $name;
  confess "Extra argument <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9958	10054	
==>struct::Block");
  confess "No identifier name!"  unless defined $name;
  confess "Extra argument <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	61642	61792	
==>ver actions (shifts, reduces, accept...)
        #    0x08         Parse Stack dump
        #    0x10         Error Recovery tracing
    );

    c <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9346	9483	
==>TDERR "**Entering Error recovery.\n";
#DBG>			++$dbgerror;
#DBG>		};

            ++$$nberror;

        };

			$$errstatus == 3	#T <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8926	9055	
==>TDERR "**Entering Error recovery.\n";
#DBG>			++$dbgerror;
#DBG>		};

            ++$$nberror;

        };

			$$errstatus == 3	#T <==
6	/Users/nnunley/parrot/lib/Parrot/Test.pm	17098	17221	
==>, $test_no);

            my $opt = $code_f =~ m!opt(.)! ? "-O$1" : "-O1";
            my $args = $ENV{TEST_PROG_ARGS} || '' <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	1830	1935	
==>clarations}}) {
		if (exists $main::common{$var}) {
			push(@saves, $var);
		}
	}
	if (@saves) {
		print C <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3121	3226	
==>clarations}}) {
		if (exists $main::common{$var}) {
			push(@saves, $var);
		}
	}
	if (@saves) {
		print C <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423647	423914	
==>n(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	424544	424811	
==>n(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938599	938866	
==>n(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939489	939756	
==>n(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565766	566031	
==>n(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566659	566924	
==>n(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049590	1049889	
==>NEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050623	1050922	
==>NEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051657	1051956	
==>NEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052691	1052990	
==>NEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053726	1054025	
==>NEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054852	1055151	
==>NEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769417	769700	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770269	770552	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771122	771405	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771975	772258	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYP <==
6	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1949	2048	
==>s

=over 4

=item C<create_path()>

This is called from C<new()> to create the path if necessary.

= <==
6	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	926	1025	
==>s

=over 4

=item C<create_path()>

This is called from C<new()> to create the path if necessary.

= <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550289	550396	
==>_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551590	551697	
==>_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554142	554249	
==>_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555539	555646	
==>_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558194	558301	
==>_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559578	559685	
==>_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31754	31865	
==>self->SUPER::implements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body( <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33331	33442	
==>self->SUPER::implements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body( <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35042	35153	
==>self->SUPER::implements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body( <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36345	36456	
==>self->SUPER::implements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body( <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38292	38403	
==>self->SUPER::implements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body( <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40388	40499	
==>self->SUPER::implements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body( <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494447	494769	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "AR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495315	495637	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "AR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496183	496505	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "AR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497052	497374	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "AR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497922	498244	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "AR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498792	499114	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "AR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344166	344267	
==>/* These char * need to go away soon */\n  const char * const path = string_to_cstring(interpreter, {{ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345408	345509	
==>/* These char * need to go away soon */\n  const char * const path = string_to_cstring(interpreter, {{ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346650	346751	
==>/* These char * need to go away soon */\n  const char * const path = string_to_cstring(interpreter, {{ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347893	347994	
==>/* These char * need to go away soon */\n  const char * const path = string_to_cstring(interpreter, {{ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349061	349162	
==>/* These char * need to go away soon */\n  const char * const path = string_to_cstring(interpreter, {{ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350063	350164	
==>/* These char * need to go away soon */\n  const char * const path = string_to_cstring(interpreter, {{ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197342	197458	
==>"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198239	198355	
==>"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199136	199252	
==>"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200032	200148	
==>"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200929	201045	
==>"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201826	201942	
==>"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072620	1072725	
==>bs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074805	1074910	
==>bs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076990	1077095	
==>bs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079176	1079281	
==>bs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if <==
6	/Users/nnunley/parrot/config/inter/progs.pm	1442	1541	
==>t ENTER to accept them.  If you don't understand a question, the
    default will usually work--they <==
6	/Users/nnunley/parrot/tools/build/jit2c.pl	8720	8816	
==>[jit_info->cur_op[i]]
END_C
}
else {
    print JITCPU <<'END_C';
#define CONST(i) (int *)(jit_inf <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849894	850151	
==>} = string_chopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850781	851038	
==>} = string_chopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851668	851925	
==>} = string_chopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852556	852813	
==>} = string_chopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53583	53700	
==>& } else { undef }',
					      $lookahead,$line,"<resync>");
				$prod and $prod->additem($item)
				      or  _no_ru <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	14239	14348	
==>n starts with $what. That means that the
					  production can never successfully match, so it was
					  opti <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1683	1825	
==>type
    undef   # No prefix
  );

  return bless {
    DEBUG            => 1,
    ANON_BLOCK_COUNT => 0,
    BLOCK_COUNT      => 0,
    BLOCKS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769974	770077	
==>NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    { <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770827	770930	
==>NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    { <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771680	771783	
==>NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    { <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772534	772637	
==>NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    { <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4946	5037	
==>set $result, 0.0
	branch NOT_${eqnum}
TRUE_${eqnum}: set $result, 1.0
NOT_${eqnum}: noop
COD <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071792	1071892	
==>ne 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : { <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073977	1074077	
==>ne 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : { <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076162	1076262	
==>ne 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : { <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078348	1078448	
==>ne 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : { <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	808	902	
==>pyright 1998-2001 Francois Desarmenien, all rights reserved.
# (see the pod text in Parse::Yap <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	784	877	
==>pyright 1998-2001 Francois Desarmenien, all rights reserved.
# (see the pod text in Parse::Yap <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	42893	43027	
==>188
		ACTIONS => {
			'END' => 200
		}
	},
	{#State 189
		DEFAULT => -4,
		GOTOS => {
			'block' => 201,
			'chunk' => 57
		} <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	4791	4923	
==>n",
      $i,
      $tok->file,
      $tok->line,
      $tok->kind,
      $tok->type || '',
      $tok->text;

    last if $tok->is_e <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	9675	9772	
==>yms[CURR])
					and !isbuiltin($syms[CURR] ))));
		last if (not $parens and not $opts{ignorecomma} <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9747	9838	
==>t arg.
if "${CURIC}" != "73" goto pre_call_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEMP2}
pre <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7261	7352	
==>t arg.
if "${CURIC}" != "73" goto pre_call_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEMP2}
pre <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6225	6316	
==>t arg.
if "${CURIC}" != "73" goto pre_call_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEMP2}
pre <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084796	1085116	
==>{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085849	1086169	
==>{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086902	1087222	
==>{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087956	1088276	
==>{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090910	1091230	
==>{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1091970	1092290	
==>{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344127	344228	
==>Y" => "#line 148 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const p <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345369	345470	
==>Y" => "#line 148 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const p <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346611	346712	
==>Y" => "#line 148 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const p <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347854	347955	
==>Y" => "#line 148 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const p <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1736	1831	
==>of arguments (expected %d, got %d) in call to '%s'.",
    scalar(@formal_args), scalar(@args), $ <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1436	1531	
==>of arguments (expected %d, got %d) in call to '%s'.",
    scalar(@formal_args), scalar(@args), $ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062590	1062824	
==>reter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063459	1063693	
==>reter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064329	1064563	
==>reter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065202	1065436	
==>reter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066076	1066310	
==>reter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	23847	23952	
==>out =  "    \${I_ARG_$arg_num} = bc.read_int8()\n    next_pc += 1\n";
			$arg_name = "I_ARG_$arg_num";
		} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550206	550304	
==>meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    rea <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551507	551605	
==>meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    rea <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554059	554157	
==>meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    rea <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555456	555554	
==>meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    rea <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558111	558209	
==>meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    rea <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559495	559593	
==>meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    rea <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	11723	11827	
==>self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  for(_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426535	426832	
==>nfix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 49 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427422	427719	
==>nfix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 49 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428308	428605	
==>nfix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 49 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429195	429492	
==>nfix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 49 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430081	430378	
==>nfix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 49 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430968	431265	
==>nfix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 49 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846092	846284	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846887	847079	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72780	72879	
==>Lfunc) {\n      const char * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74382	74481	
==>Lfunc) {\n      const char * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75984	76083	
==>Lfunc) {\n      const char * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77587	77686	
==>Lfunc) {\n      const char * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324164	324407	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324956	325199	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325749	325992	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326539	326782	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327340	327583	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	1277	1392	
==>$regs{$type}->{$count};
    }
  }
}

sub _save_1 {
  my $self = shift;
  my $type = shift || 'I';
  my @temp = $self <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6664	6763	
==>epth
${STEMP0} = concat ${STEMP1}

# Emit move.
${INS} = concat ${STOREREG}
${INS} = concat " = "
${ <==
6	/Users/nnunley/parrot/config/auto/aio.pm	579	680	
==>->get('verbose');
    my $libs    = $conf->data->get('libs');
    $conf->data->add(' ', libs => '-lrt' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72815	72906	
==>Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol ' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74417	74508	
==>Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol ' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76019	76110	
==>Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol ' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77622	77713	
==>Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol ' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79143	79234	
==>Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol ' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80664	80755	
==>Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol ' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940379	940646	
==>it(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941271	941538	
==>it(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942163	942430	
==>it(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943056	943323	
==>it(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632683	632948	
==>it(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633725	633990	
==>it(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
6	/Users/nnunley/parrot/lib/Test/Builder.pm	5836	5963	
==>'no_plan' ) {
        $self->no_plan;
    }
    elsif( $cmd eq 'skip_all' ) {
        return $self->skip_all($arg);
    }
    el <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050249	1050349	
==>\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(interpreter, {{\@2}}, {{\@3}}, next);\n    {{+ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051283	1051383	
==>\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(interpreter, {{\@2}}, {{\@3}}, next);\n    {{+ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052317	1052417	
==>\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(interpreter, {{\@2}}, {{\@3}}, next);\n    {{+ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053352	1053452	
==>\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(interpreter, {{\@2}}, {{\@3}}, next);\n    {{+ <==
6	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20397	20486	
==>e.

=head1 SEE ALSO

L<Pod::Simple>, L<RTF::Writer>, L<RTF::Cookbook>, L<RTF::Document>,
L <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591385	591479	
==>ject.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592595	592689	
==>ject.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593805	593899	
==>ject.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595016	595110	
==>ject.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600028	600122	
==>ject.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601104	601198	
==>ject.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^ <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	12639	12730	
==>RAY_LOOKUP_$optype("$extern$seg",$ac$pir_args)};
				push @work, [ "result of $extern()", "R <==
6	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18843	18932	
==>int)
that codeblocks ("verbatim sections") will appear as.

=item $parser->header_halfpoin <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961017	961105	
==>reter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, {{\@2}}, {{\@3}}, dest) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961979	962067	
==>reter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, {{\@2}}, {{\@3}}, dest) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962941	963029	
==>reter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, {{\@2}}, {{\@3}}, dest) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963904	963992	
==>reter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, {{\@2}}, {{\@3}}, dest) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111310	111567	
==>or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112202	112459	
==>or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113094	113351	
==>or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135519	135776	
==>or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136413	136670	
==>or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137307	137564	
==>or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747320	747541	
==>ger_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748105	748326	
==>ger_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753614	753835	
==>ger_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754402	754623	
==>ger_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324736	324956	
==>ger_native(interpreter, {{\@1}},{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325529	325749	
==>ger_native(interpreter, {{\@1}},{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175511	175673	
==>bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "A <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176414	176576	
==>bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "A <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177318	177480	
==>bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "A <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178222	178384	
==>bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "A <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179127	179289	
==>bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "A <==
6	/Users/nnunley/parrot/config/init/hints/linux.pm	301	405	
==>ta->get('ccflags');
    my $cc        = $conf->data->get('cc');
    my $linkflags = $conf->data->get('lin <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494382	494669	
==>d({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495250	495537	
==>d({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496118	496405	
==>d({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496987	497274	
==>d({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497857	498144	
==>d({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498727	499014	
==>d({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	35259	35497	
==>line",
                  "CODE" => 44,
                  "ARGS" => [
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 637 \"src/ops/core.ops\"\n  {{\@1}} <==
6	/Users/nnunley/parrot/config/gen/makefiles.pm	2615	2813	
==>efile',
        commentType                          => '#',
        replace_slashes                      => 1,
        conditioned_lines                    => 1
    );
    genfile(
        'config/g <==
6	/Users/nnunley/parrot/config/gen/makefiles.pm	1349	1529	
==>efile',
        commentType                    => '#',
        replace_slashes                => 1,
        conditioned_lines              => 1
    );
    genfile(
        'config/g <==
6	/Users/nnunley/parrot/config/gen/makefiles.pm	4416	4590	
==>efile',
        commentType                  => '#',
        replace_slashes              => 1,
        conditioned_lines            => 1
    );
    genfile(
        'config/g <==
6	/Users/nnunley/parrot/config/gen/makefiles.pm	5466	5640	
==>efile',
        commentType                  => '#',
        replace_slashes              => 1,
        conditioned_lines            => 1
    );
    genfile(
        'config/g <==
6	/Users/nnunley/parrot/tools/build/jit2c.pl	12635	12769	
==>)/;
            $extern = vtable_num($1);
            #print "$jit_func $extern\n";
        }
        elsif ($op->full_name eq 'unless_ <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11288	11396	
==>o, hmm, what about that ord?  Presumably that won't work right
        #  under non-ASCII charsets.  Somethin <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17128	17236	
==>o, hmm, what about that ord?  Presumably that won't work right
        #  under non-ASCII charsets.  Somethin <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4634	4741	
==>o, hmm, what about that ord?  Presumably that won't work right
       #  under non-ASCII charsets.  Somethin <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2121	2225	
==>o, hmm, what about that ord?  Presumably that won't work right
    #  under non-ASCII charsets.  Somethin <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10544	10648	
==>o, hmm, what about that ord?  Presumably that won't work right
    #  under non-ASCII charsets.  Somethin <==
6	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2224	2328	
==>o, hmm, what about that ord?  Presumably that won't work right
    #  under non-ASCII charsets.  Somethin <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061152	1061444	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARG <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062692	1062984	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARG <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063561	1063853	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARG <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064431	1064723	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARG <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065304	1065596	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARG <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	27323	27434	
==>p {
    my ($self, $op, $back, @ops) = @_;
    return ($back, @ops) unless $self->{DEBUG};

    my $method = "de <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180116	180414	
==>=> "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 2 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181011	181309	
==>=> "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 2 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181907	182205	
==>=> "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 2 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182803	183101	
==>=> "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 2 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183698	183996	
==>=> "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 2 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184594	184892	
==>=> "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 2 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72830	72922	
==>);\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: % <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74432	74524	
==>);\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: % <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76034	76126	
==>);\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: % <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77637	77729	
==>);\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: % <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79158	79250	
==>);\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: % <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80679	80771	
==>);\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: % <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4663	4757	
==>dress)>

Transforms the C<goto ADDRESS($address)> macro in an ops file into the
relevant C code <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1328	1422	
==>dress)>

Transforms the C<goto ADDRESS($address)> macro in an ops file into the
relevant C code <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1853	1947	
==>dress)>

Transforms the C<goto ADDRESS($address)> macro in an ops file into the
relevant C code <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1744	1838	
==>dress)>

Transforms the C<goto ADDRESS($address)> macro in an ops file into the
relevant C code <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1468	1562	
==>dress)>

Transforms the C<goto ADDRESS($address)> macro in an ops file into the
relevant C code <==
6	/Users/nnunley/parrot/config/auto/funcptr.pm	435	528	
==>cription = 'Verifying that the compiler supports function pointer casts';

@args = qw(verbose) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909326	909439	
==>ing.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910223	910336	
==>ing.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911120	911233	
==>ing.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912018	912131	
==>ing.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  " <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7197	7299	
==>BG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print STDERR "Reduce using rule ".-$act." ($lhs,$len): <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6863	6963	
==>BG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print STDERR "Reduce using rule ".-$act." ($lhs,$len): <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324023	324294	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324815	325086	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325608	325879	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326398	326669	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327199	327470	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu <==
6	/Users/nnunley/parrot/lib/Parrot/PMC.pm	221	329	
==>);

%pmc_types = (
	Null => 1,
	Env => 2,
	Key => 3,
	Random => 4,
	UnManagedStruct => 5,
	ManagedStruct => 6 <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6030	6126	
==>quire('open-bracket');  }
sub require_open_paren    { return shift->require('open-paren');    }
s <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1341	1457	
==>P};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1332	1448	
==>P};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1221	1337	
==>P};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1680	1796	
==>P};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1816	1932	
==>P};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1459	1575	
==>P};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630717	631014	
==>);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631707	632004	
==>);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627523	627818	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628667	628962	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629730	630025	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924471	924766	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515952	516280	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":b <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519760	520088	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":b <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520615	520943	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":b <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	521470	521798	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":b <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522324	522652	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":b <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523179	523507	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":b <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550287	550384	
==>od_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551588	551685	
==>od_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554140	554237	
==>od_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555537	555634	
==>od_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558192	558289	
==>od_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559576	559673	
==>od_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550462	550714	
==>next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_A <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551763	552015	
==>next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_A <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552954	553206	
==>next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_A <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558367	558619	
==>next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_A <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559751	560003	
==>next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_A <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560972	561224	
==>next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_A <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352335	352555	
==>"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352993	353213	
==>"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358020	358240	
==>"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358684	358904	
==>"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
6	/Users/nnunley/parrot/lib/Test/Builder.pm	24379	24495	
==>($self, $fh) = @_;

    if( defined $fh ) {
        $self->{Todo_FH} = _new_fh($fh);
    }
    return $self->{Todo_FH <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1480	1580	
==>mbol($name);

  unless ($sym) {
#    $self->block->dump_symbols;
    $self->SYNTAX_ERROR("Call to unk <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471255	471520	
==>Error,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472242	472507	
==>Error,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473229	473494	
==>Error,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474219	474484	
==>Error,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475210	475475	
==>Error,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476201	476466	
==>Error,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830736	830977	
==>P_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831477	831718	
==>P_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832204	832445	
==>P_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832932	833173	
==>P_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833654	833895	
==>P_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834379	834620	
==>P_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save", <==
6	/Users/nnunley/parrot/tools/build/nativecall.pl	10987	11097	
==>f}, "PMC *t_$temp_num;";
        push @{$extra_preamble_ref},
             "t_$temp_num = GET_NCI_P($reg_num);" <==
6	/Users/nnunley/parrot/tools/build/nativecall.pl	9999	10108	
==>f}, "PMC *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_P($reg_num);" <==
6	/Users/nnunley/parrot/tools/build/nativecall.pl	10391	10500	
==>f}, "PMC *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_P($reg_num);" <==
6	/Users/nnunley/parrot/tools/build/nativecall.pl	11590	11699	
==>f}, "PMC* t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_P($reg_num);" <==
6	/Users/nnunley/parrot/tools/build/nativecall.pl	13154	13263	
==>f}, "PMC *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_P($reg_num);" <==
6	/Users/nnunley/parrot/tools/dev/symlink.pl	1623	1726	
==>nifile);
	    my $srcfile = File::Spec->catfile($topsrcdir, @manifile);
	    unless (-f $srcfile) {
		wa <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579651	579828	
==>});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580956	581133	
==>});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582261	582438	
==>});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583567	583744	
==>});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441606	441780	
==>patch_p_pnp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442621	442795	
==>patch_p_pnp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
6	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	881	1018	
==>t if /^OUTPUT:/;
             $input .= $_;
         }
         chomp($input);
         die "EOF during INPUT section" if ! defined($outpu <==
6	/Users/nnunley/parrot/languages/regex/test.pl	2772	2889	
==>t if /^OUTPUT:/;
        $input .= $_;
    }
    chomp($input);
    die "EOF during INPUT section" if ! defined($outpu <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1312	1419	
==>. They really should not be
  # triggered in normal operation, even with bad source code as input.
  #

  $s <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1257	1364	
==>. They really should not be
  # triggered in normal operation, even with bad source code as input.
  #

  $s <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1160	1267	
==>. They really should not be
  # triggered in normal operation, even with bad source code as input.
  #

  $s <==
6	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	6531	6638	
==>{2,}/\n\n/sg; # excess blank lines
    s/^\s*//s; s/\s*$/\n/s; # trim (and ends with a newline)
    s/^ {0,1 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653363	653454	
==>@1}} = {{\@2}}->vtable->find_method(interpreter, {{\@2}}, {{\@3}});\n    if (!{{\@1}} || !VT <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654524	654615	
==>@1}} = {{\@2}}->vtable->find_method(interpreter, {{\@2}}, {{\@3}});\n    if (!{{\@1}} || !VT <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	138	226	
==>as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/Condi <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	131	219	
==>as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/Condi <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	129	217	
==>as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/Condi <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	133	221	
==>as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/Condi <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361753	361872	
==>IO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "L <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362652	362771	
==>IO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "L <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363554	363673	
==>IO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "L <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364457	364576	
==>IO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "L <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367034	367153	
==>IO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "L <==
6	/Users/nnunley/parrot/config/init/hints/cygwin.pm	226	328	
==>n's perl is compiled with -lutil, which for some reason is not
    # in the standard installation, so w <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351030	351270	
==>){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pri <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351692	351932	
==>){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pri <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352349	352589	
==>){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pri <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353007	353247	
==>){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pri <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358034	358274	
==>){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pri <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358698	358938	
==>){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pri <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776833	777083	
==>7,
                  "ARGS" => [
                              "p",
                              "ki",
                              "n"
                            ],
                  "BODY" => "#line 382 \"src/ops/set.ops\"\n    {{\@1}}->vtable->s <==
6	/Users/nnunley/parrot/config/inter/lex.pm	2015	2136	
==>ck to default
        $self->set_result('no');
        return $self;
    }

    # if '--version' returns a string assume t <==
6	/Users/nnunley/parrot/config/inter/make.pm	1889	2010	
==>ck to default
        $self->set_result('no');
        return $self;
    }

    # if '--version' returns a string assume t <==
6	/Users/nnunley/parrot/config/inter/yacc.pm	2029	2150	
==>ck to default
        $self->set_result('no');
        return $self;
    }

    # if '--version' returns a string assume t <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3120	3239	
==>ain
                   'program - only to SUB1.
' Exit tests
sub mysub(b,c)
	print "Print me"
	exit sub
	print "Don't pr <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17087	17206	
==>ain
                   'program - only to SUB1.
' Exit tests
sub mysub(b,c)
	print "Print me"
	exit sub
	print "Don't pr <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939742	940050	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940633	940941	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941525	941833	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942417	942725	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	25718	25843	
==>= my_enum_class_$entry->[1];
EOC
        }
    }
    # just to be safe
    foreach my $dynpmc (keys %init_mmds) {
        next <==
6	/Users/nnunley/parrot/lib/Parrot/Configure.pm	3981	4097	
==>>new;

        # XXX This works. but is probably not a good design.
        # Using $step->description() would be nic <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632626	632723	
==>%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633668	633765	
==>%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080520	1080617	
==>%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081585	1081682	
==>%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082650	1082747	
==>%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083716	1083813	
==>%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+ <==
6	/Users/nnunley/parrot/languages/python/pie-thon.pl	15685	15798	
==>$cmt);
}

sub BINARY_XOR
{
    my ($n, $c, $cmt) = @_;
    binary_word('xor', $cmt);
}

sub BINARY_LSHIFT
{
    my <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858689	858944	
==>reter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859693	859948	
==>reter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860697	860952	
==>reter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861702	861957	
==>reter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
6	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	3430	3550	
==>{
	$res .= substr pack('u', $1), 1;
	chop $res;
    }
    $res =~ tr|` -_|AA-Za-z0-9+/|;#`
    chop $res;chop $res;
    $ <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	55272	55368	
==>tererror,$line,$code);
				$code =~ s/\A\s*<defer:(.*)>\Z/$1/s;
				if ($code =~ /\A\s*[^{]|[^}]\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867285	867542	
==>preter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868251	868508	
==>preter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869217	869474	
==>preter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870184	870441	
==>preter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
6	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	2368	2470	
==>--files indicates the 'languages/t/harness' wants a list of test files
        my $dir   = File::Spec-> <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1023	1118	
==>ent->compile($compiler);

  $compiler->emit("  inc $ident");

  if (($self->ident->kind eq 'var' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061955	1062198	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062824	1063067	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063693	1063936	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064563	1064806	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065436	1065679	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
6	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	6833	6931	
==>red by the following copyright:

=over 4

=item *

Copyright (C) 1991-2, RSA Data Security, Inc. Cr <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63791	63910	
==>code);
										   
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$line,"$code$argcode($1 <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63084	63189	
==>code);
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$line,"$code$argcode($1 <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64521	64626	
==>code);
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$line,"$code$argcode($1 <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65176	65281	
==>code);
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$line,"$code$argcode($1 <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65836	65941	
==>code);
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$line,"$code$argcode($1 <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62449	62552	
==>code);
					$prod and $prod->additem($item)
					      or  _no_rule("repetition",$line,"$code$argcode($1 <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2868	2977	
==>f)=shift;

	${$$self{CHECK}}='ERROR';
    undef;
}

sub YYSemval {
	my($self)=shift;
	my($index)= $_[0 <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2732	2833	
==>f)=shift;

	${$$self{CHECK}}='ERROR';
    undef;
}

sub YYSemval {
	my($self)=shift;
	my($index)= $_[0 <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2082	2173	
==>ES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3334	3425	
==>ES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5963	6054	
==>ES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6521	6612	
==>ES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2842	2949	
==>tes => { kind => 'infix', name => $op } });
    $left->sax($handler);
    $right->sax($handler);
    $handle <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3516	3623	
==>tes => { kind => 'infix', name => $op } });
    $left->sax($handler);
    $right->sax($handler);
    $handle <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3606	3713	
==>tes => { kind => 'infix', name => $op } });
    $left->sax($handler);
    $right->sax($handler);
    $handle <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5391	5492	
==>tes => { kind => 'infix', name => $op } });
  $left->sax($handler);
  $right->sax($handler);
  $handle <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3454	3555	
==>tes => { kind => 'infix', name => $op } });
  $left->sax($handler);
  $right->sax($handler);
  $handle <==
6	/Users/nnunley/parrot/lib/Text/Balanced.pm	57622	57716	
==>e second argument means:
I<"Try and extract a ' or " delimited string, otherwise extract anythi <==
6	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	550	644	
==>sions more declarative, this
lets us do this work B<once> instead of many times, which B<should <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180080	180411	
==>RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180975	181306	
==>RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181871	182202	
==>RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182767	183098	
==>RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183662	183993	
==>RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184558	184889	
==>RELATIVE",
                  "NAME" => "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838812	839052	
==>MC);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477088	477180	
==>preter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477984	478076	
==>preter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480734	480826	
==>preter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481737	481829	
==>preter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482740	482832	
==>preter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591506	591618	
==>lass)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_exception(interpreter, next, NO_CLASS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592716	592828	
==>lass)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_exception(interpreter, next, NO_CLASS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593926	594038	
==>lass)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_exception(interpreter, next, NO_CLASS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595137	595249	
==>lass)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_exception(interpreter, next, NO_CLASS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600149	600261	
==>lass)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_exception(interpreter, next, NO_CLASS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601225	601337	
==>lass)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_exception(interpreter, next, NO_CLASS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047502	1047812	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "F <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050382	1050692	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "F <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051416	1051726	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "F <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052450	1052760	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "F <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053485	1053795	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "F <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054611	1054921	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "F <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067103	1067219	
==>3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  } <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068289	1068405	
==>3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  } <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069475	1069591	
==>3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  } <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070662	1070778	
==>3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  } <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	1834	1933	
==>= $generator->gen_h($h_name);
    print $hout if $opt->{debug};
    print "Writing $h_name\n" if $op <==
6	/Users/nnunley/parrot/lib/Test/More.pm	2328	2424	
==>d writing tests, have a look at
Test::Simple first.  This is a drop in replacement for Test::Simp <==
6	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3300	3434	
==>PM

    for my $num (0 .. $#pmcs) {
        my $id = $num + 1;
        print OUT "\t$pmcs[$num] => $id,\n";
    }

    print OUT <<'END <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084736	1084828	
==>l.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    { <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085789	1085881	
==>l.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    { <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086842	1086934	
==>l.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    { <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087896	1087988	
==>l.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    { <==
6	/Users/nnunley/parrot/tools/build/jit2c.pl	249	339	
==>cture-name> src/jit_cpu.c

=head1 DESCRIPTION

This script creates F<src/jit_cpu.c>. It par <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16132	16239	
==>lt=$assignto;
	} elsif ($opts{stuff}) {
		#print STDERR "Stuff\n";
		$opts{lhs}=1;
		feedme();
		# Do the le <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	4762	4868	
==>if the file has been modified since it was checked. 

=cut

sub check_pod
{
	my $self = shift;
	
	return if <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467586	467682	
==>h.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_Ze <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468457	468553	
==>h.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_Ze <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477009	477105	
==>h.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_Ze <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477905	478001	
==>h.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_Ze <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20127	20235	
==>e)" unless ( exists $th{$type} or
							  exists $usertypes{$type});
			my $marker;
			if (exists $th{$type} <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18427	18533	
==>= @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self- <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19140	19246	
==>= @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self- <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19628	19734	
==>= @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self- <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20117	20223	
==>= @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self- <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20606	20712	
==>= @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self- <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1164	1287	
==>$text);
    $text =~  # A not-totally-brilliant wrapping algorithm:
      s/(
         [^\n]{55}         # Snare some charac <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1108	1231	
==>$text);
    $text =~  # A not-totally-brilliant wrapping algorithm:
      s/(
         [^\n]{55}         # Snare some charac <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332613	332706	
==>}\n  /* string_cstring_free(mode); */\n  /* TODO all results from string_to_cstring() need fre <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333891	333984	
==>}\n  /* string_cstring_free(mode); */\n  /* TODO all results from string_to_cstring() need fre <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335169	335262	
==>}\n  /* string_cstring_free(mode); */\n  /* TODO all results from string_to_cstring() need fre <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336448	336541	
==>}\n  /* string_cstring_free(mode); */\n  /* TODO all results from string_to_cstring() need fre <==
6	/Users/nnunley/parrot/lib/Test/Builder.pm	37062	37161	
==>his program is free software; you can redistribute it and/or 
modify it under the same terms as Perl <==
6	/Users/nnunley/parrot/lib/Test/More.pm	37471	37570	
==>his program is free software; you can redistribute it and/or 
modify it under the same terms as Perl <==
6	/Users/nnunley/parrot/lib/Test/Simple.pm	6431	6530	
==>his program is free software; you can redistribute it and/or 
modify it under the same terms as Perl <==
6	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16478	16576	
==>his program is free software; you can redistribute it and/or modify it
under the same terms as Perl <==
6	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1692	1790	
==>his program is free software; you can redistribute it and/or modify it
under the same terms as Perl <==
6	/Users/nnunley/parrot/lib/Class/Struct.pm	18693	18789	
==>dded classname prefixes to keys in hash-based classes
    (refer to "Perl Cookbook", Recipe 13.12 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855026	855292	
==>terpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855915	856181	
==>terpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856804	857070	
==>terpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857694	857960	
==>terpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471029	471207	
==>,
                              "i"
                            ],
                  "BODY" => "#line 394 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    r <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472016	472194	
==>,
                              "i"
                            ],
                  "BODY" => "#line 394 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    r <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	526510	526719	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "asin",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1367	1486	
==>{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $block = $self->block;
  my <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1715	1834	
==>{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $block = $self->block;
  my <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1851	1970	
==>{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $block = $self->block;
  my <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1494	1613	
==>{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $block = $self->block;
  my <==
6	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	6828	6934	
==>oken -- it's a string!"
     unless ref $t;
    Carp::croak "Can't unget $t, because it's not a token objec <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33293	33428	
==>);
        push @return1, $var;
    }
    else {
        push @opcodes2, @{ $expr->[1] };
        push @opcodes3, new AssignOp( $pa <==
6	/Users/nnunley/parrot/tools/build/dynclasses.pl	4407	4508	
==>uped PMCs individually
    my @ungrouped_pmcs = grep { ! exists $pmc_group->{$_} } @pmcs;
    partial_ <==
6	/Users/nnunley/parrot/tools/build/dynpmc.pl	4511	4612	
==>uped PMCs individually
    my @ungrouped_pmcs = grep { ! exists $pmc_group->{$_} } @pmcs;
    partial_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579353	579448	
==>e;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, ne <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580658	580753	
==>e;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, ne <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581963	582058	
==>e;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, ne <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583269	583364	
==>e;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, ne <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	394164	394388	
==>{\@1}} = (INTVAL)PIO_tell(interpreter, {{\@2}});\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
6	/Users/nnunley/parrot/config/init/hints/linux.pm	758	896	
==>e as its C compiler
        $link = 'icc';

        # don't allow icc to pretend it's gcc
        $cflags .= ' -no-gcc';

        # suppres <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9584	9670	
==>we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method_info_from_token(${ <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7098	7184	
==>we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method_info_from_token(${ <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5654	5740	
==>we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method_info_from_token(${ <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7874	7960	
==>we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method_info_from_token(${ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276237	276524	
==>{{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277115	277402	
==>{{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277993	278280	
==>{{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
6	/Users/nnunley/parrot/tools/build/jit2c.pl	11715	11858	
==>}}\s*=\s*
        {{\@(\d)}}->vtable->
        (\w+)
        \(interpreter,
        \s*
        {{\@(\d)}},\s*{{\@(\d)}}
        \);
        \s+ <==
6	/Users/nnunley/parrot/languages/python/pie-thon.pl	8924	9047	
==>$rest, $cmt);
}

sub temp {
    my $t = $_[0];
    "\$$t" . ++$temp;
}

sub is_num {
    my $c = $_[0];
    my ($pointfloat, <==
6	/Users/nnunley/parrot/languages/python/pie-thon.pl	28854	28968	
==>);
    print <<EOC;
	$it = iter $var $cmt
EOC
    push @stack, [$tos->[0], $it, 'P']
}
sub FOR_ITER
{
    my ($n, $ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653194	653372	
==>",
                              "s"
                            ],
                  "BODY" => "#line 292 \"src/ops/pmc.ops\"\n    opcode_t * resume = {{^+4}};\n    {{\@1}} = {{\ <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4530	4620	
==>elf->current_block();
      my $ident = Jako::Construct::Expression::Value::Identifier->new <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	10776	10866	
==>elf->current_block();
      my $ident = Jako::Construct::Expression::Value::Identifier->new <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16190	16280	
==>elf->current_block();
      my $ident = Jako::Construct::Expression::Value::Identifier->new <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16961	17051	
==>elf->current_block();
      my $ident = Jako::Construct::Expression::Value::Identifier->new <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17766	17856	
==>elf->current_block();
      my $ident = Jako::Construct::Expression::Value::Identifier->new <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680974	681278	
==>( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681750	682054	
==>( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682524	682828	
==>( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683299	683603	
==>( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	6439	6545	
==>R "IDENT [%s:%d]: '%s'\n", $file, $line, $1;
      push @tokens, Jako::Token->new(
        $file, $line, 'i <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	2169	2261	
==>nt;
  $self->SUPER::compile($compiler);
  $compiler->outdent;

  $compiler->emit("_${name}_LE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344138	344238	
==>e 148 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const path = stri <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345380	345480	
==>e 148 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const path = stri <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346622	346722	
==>e 148 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const path = stri <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347865	347965	
==>e 148 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const path = stri <==
6	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4612	4699	
==>e && $self->do_end;
}


#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3243	3329	
==>e && $self->do_end;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279744	280060	
==>{{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	280599	280915	
==>{{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	281454	281770	
==>{{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288363	288679	
==>{{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289219	289535	
==>{{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290075	290391	
==>{{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540584	540744	
==>((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541836	541996	
==>((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543088	543248	
==>((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544371	544531	
==>((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545707	545867	
==>((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547043	547203	
==>((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072125	1072255	
==>n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074310	1074440	
==>n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076495	1076625	
==>n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078681	1078811	
==>n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4506	4624	
==>'concat' });
    }
    else {
      $string = substr($string, 1, -1); # Without the surrounding quotes.

      $handler <==
6	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	1081	1181	
==>arser->parse_lines(@lines)
  # an undef means end-of-stream
  my $self = shift;

  my $code_handler = <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1618	1732	
==>lue = $self->value;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $s <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3238	3352	
==>lue = $self->value;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $s <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154858	154957	
==>=> "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155762	155861	
==>=> "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156666	156765	
==>=> "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157571	157670	
==>=> "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\ <==
6	/Users/nnunley/parrot/config/auto/funcptr.pm	728	850	
==>};

        if ($@ || cc_run() !~ /OK/) {
            print <<"END";
Although it is not required by the ANSI C standard,
Pa <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94955	95064	
==>s\"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "L <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95848	95957	
==>s\"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "L <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96741	96850	
==>s\"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "L <==
6	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	756	860	
==>rom the VERSION file.
    open my $VERSION, '<', 'VERSION' or die "Could not open VERSION file!";
    $pa <==
6	/Users/nnunley/parrot/config/auto/funcptr.pm	150	242	
==>uto/funcptr.pm - Function Pointer Casts

=head1 DESCRIPTION

Verifies that the compiler suppo <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	54186	54318	
==>a\lua51.yp"
{
            BuildRelop( $_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 67
		 'exp', 3,
sub
#line 377 "Lua\ <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18931	19027	
==>"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $s <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19419	19515	
==>"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $s <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19907	20003	
==>"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $s <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20396	20492	
==>"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $s <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20885	20981	
==>"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $s <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432538	432898	
==>{{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433553	433913	
==>{{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434567	434927	
==>{{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435582	435942	
==>{{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436596	436956	
==>{{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437611	437971	
==>{{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231209	231488	
==>2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232113	232392	
==>2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233017	233296	
==>2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233920	234199	
==>2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234824	235103	
==>2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235728	236007	
==>2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830789	831046	
==>> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831530	831787	
==>> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832257	832514	
==>> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832985	833242	
==>> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833707	833964	
==>> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834432	834689	
==>> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694295	694626	
==>vtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 78 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695295	695626	
==>vtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 78 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696296	696627	
==>vtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 78 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697296	697627	
==>vtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 78 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698297	698628	
==>vtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 78 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699298	699629	
==>vtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 78 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180642	180910	
==>"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181538	181806	
==>"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182434	182702	
==>"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183329	183597	
==>"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184225	184493	
==>"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185121	185389	
==>"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613006	613263	
==>_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613913	614170	
==>_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042943	1043200	
==>_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043840	1044097	
==>_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
6	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	6047	6159	
==>.  Byebye
        $self->SUPER::parse_lines(undef);
        delete $self->{'source_scalar_ref'};
        DEBUG an <==
6	/Users/nnunley/parrot/tools/build/ops2pm.pl	681	775	
==>ode.

=item C<--renum>

Renumber opcodes according to existing ops in ops/num and natural
order <==
6	/Users/nnunley/parrot/tools/dev/lib_deps.pl	1090	1274	
==>fore less conclusive.

=back

=cut

################################################################################

use strict;
use File::Find;
use File::Spec;


my %defined_in;
my %r <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	750	840	
==>"Left (" . ref($left) . ") is not Value") unless UNIVERSAL::isa($left, 'Jako::Construct::Ex <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	588	678	
==>"Left (" . ref($left) . ") is not Value") unless UNIVERSAL::isa($left, 'Jako::Construct::Ex <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	741	831	
==>"Left (" . ref($left) . ") is not Value") unless UNIVERSAL::isa($left, 'Jako::Construct::Ex <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	630	720	
==>"Left (" . ref($left) . ") is not Value") unless UNIVERSAL::isa($left, 'Jako::Construct::Ex <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	579	669	
==>"Left (" . ref($left) . ") is not Value") unless UNIVERSAL::isa($left, 'Jako::Construct::Ex <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504028	504336	
==>\"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504883	505191	
==>\"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505738	506046	
==>\"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506592	506900	
==>\"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507447	507755	
==>\"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	508302	508610	
==>\"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27043	27177	
==>,
    );

    foreach my $op ( @{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'brea <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	30574	30708	
==>,
    );

    foreach my $op ( @{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'brea <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27726	27858	
==>,
    );
    foreach my $op ( @{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'brea <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	35123	35255	
==>,
    );
    foreach my $op ( @{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'brea <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7185	7281	
==>DEST0} = concat ${STEMP0}
${STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
PIR
	}

	return $pi <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5007	5103	
==>DEST0} = concat ${STEMP0}
${STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
PIR
	}

	return $pi <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49605	49705	
==>mmar =~ m/$QUOTELIKEMK/gco)
			{
				_parse("an perl quotelike marker", $aftererror,$line);
				$item <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	487	582	
==>ght) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::C <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	463	558	
==>ght) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::C <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	478	573	
==>ght) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::C <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	367	462	
==>ght) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::C <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	454	549	
==>ght) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::C <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72843	72950	
==>rot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74445	74552	
==>rot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76047	76154	
==>rot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77650	77757	
==>rot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79171	79278	
==>rot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80692	80799	
==>rot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574377	574736	
==>" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 656,
                  "ARGS" => [
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 249 \"sr <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38295	38491	
==>LS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46333	46529	
==>LS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47916	48112	
==>LS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49513	49709	
==>LS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51116	51312	
==>LS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467135	467400	
==>" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 53 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468005	468270	
==>" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 53 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468876	469141	
==>" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 53 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469750	470015	
==>" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 53 <==
6	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	949	1045	
==>1 ..." line will give you
a start-token with the tagname of "head1", token(s) for its
content, an <==
6	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1377	1473	
==>1 ..." line will give you
a start-token with the tagname of "head1", token(s) for its
content, an <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302100	302210	
==>ps/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302976	303086	
==>ps/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303852	303962	
==>ps/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  " <==
6	/Users/nnunley/parrot/config/gen/core_pmcs.pm	2900	3007	
==>@_;

    my $file = "lib/Parrot/PMC.pm";
    my @pmcs = split(/ /, $conf->data->get('pmc_names'));

    open <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1800	1899	
==>ope};
    $parser->YYData->{scope} = [];
    unshift @{ $parser->YYData->{scopef} }, $parser->YYDa <==
6	/Users/nnunley/parrot/tools/dev/parrot_api.pl	4265	4363	
==>clude/parrot/embed.h include/parrot/extend.h);

for my $h (@H) {
    if (open(H, $h)) {
	while (<H> <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31770	31873	
==>lements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{ <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33347	33450	
==>lements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{ <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35058	35161	
==>lements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{ <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36361	36464	
==>lements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{ <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38308	38411	
==>lements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{ <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40404	40507	
==>lements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566684	566990	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "d <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567578	567884	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "d <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656510	656816	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "d <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657434	657740	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "d <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658352	658658	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "d <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662945	663251	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "d <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214161	214453	
==>) > 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218899	219191	
==>) > 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219878	220170	
==>) > 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	220826	221118	
==>) > 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221774	222066	
==>) > 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
6	/Users/nnunley/parrot/lib/Pod/Simple.pm	4282	4375	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

#sub curr_open { # read-only list accessor
#  r <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494394	494700	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "m <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495262	495568	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "m <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496130	496436	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "m <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496999	497305	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "m <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497869	498175	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "m <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498739	499045	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "m <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	13351	13456	
==>null ehs goto NO_EH_HEADER
    i = elements ehs
    gen_pir = concat ".local pmc cur_exception\n"
    gen_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864189	864465	
==>\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	865081	865357	
==>\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947208	947484	
==>\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948110	948386	
==>\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957657	957933	
==>\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958562	958838	
==>\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680813	681103	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681589	681879	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682363	682653	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683138	683428	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIR <==
6	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	43741	43871	
==>e {
      DEBUG > 5 and print "  It's not a formatty line.  Ignoring\n";
      next;
    }

    # A formatty line has to have #: in <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	20274	20399	
==>ch code for that.
            if ($_->{'group'}) {
                $pir .= "    if cur_ic == 0x$_->{'code'} goto B2_BRANCH_$pr <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121592	121950	
==>> [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 151,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 248 \"src/ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080653	1080976	
==>mental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAG <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081718	1082041	
==>mental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAG <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082783	1083106	
==>mental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAG <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103032	1103355	
==>mental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAG <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104246	1104569	
==>mental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAG <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231221	231560	
==>} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232125	232464	
==>} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233029	233368	
==>} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233932	234271	
==>} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234836	235175	
==>} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235740	236079	
==>} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544601	544858	
==>ed_var1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545937	546194	
==>ed_var1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547273	547530	
==>ed_var1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	2522	2650	
==>( $tagname eq 'L' ) 
    {
        $self->process_link_start_token($token);
    }
    elsif ( $tagname eq 'F' )
    {
        $se <==
6	/Users/nnunley/parrot/languages/python/pie-thon.pl	7484	7602	
==>r (@dis) {
	if (/Information of <?([\w:]+)>?/) {
	    $in_info = 1;
	    $cur_f = $1;
	}
	elsif ($in_info) {
	    if (/ <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	945	1045	
==>shift;
  return '_ANON_LABEL_' . ++$self->{ANON_LBL_COUNT};
}


#
# invert_relop()
#

my %inverted_op <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470597	470919	
==>> 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471583	471905	
==>> 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472570	472892	
==>> 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473557	473879	
==>> 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474547	474869	
==>> 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475538	475860	
==>> 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34760	34867	
==>cefirst($text),
						  q{' . $rule->{"name"} .'})
							if defined $::RD_TRACE;').'
			if ($Parse::RecDesc <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41870	41977	
==>cefirst($text),
						  q{' . $rule->{"name"} .'})
							if defined $::RD_TRACE;').'
			if ($Parse::RecDesc <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332680	332774	
==>tring_to_cstring() need freeing\n     but this generates ugly warnings WRT discarding the const <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333958	334052	
==>tring_to_cstring() need freeing\n     but this generates ugly warnings WRT discarding the const <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335236	335330	
==>tring_to_cstring() need freeing\n     but this generates ugly warnings WRT discarding the const <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336515	336609	
==>tring_to_cstring() need freeing\n     but this generates ugly warnings WRT discarding the const <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432531	432872	
==>});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433546	433887	
==>});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434560	434901	
==>});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435575	435916	
==>});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436589	436930	
==>});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437604	437945	
==>});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix" <==
6	/Users/nnunley/parrot/config/inter/make.pm	1282	1407	
==>');
    } else {
        $prog = check_progs(['gmake', 'mingw32-make', 'nmake', 'make'],
            $verbose);

        unles <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6759	6876	
==>>				and	$$errstatus == 0
#DBG>				and	do {
#DBG>					print STDERR "**End of Error recovery.\n";
#DBG>					$dbgerro <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6444	6558	
==>>				and	$$errstatus == 0
#DBG>				and	do {
#DBG>					print STDERR "**End of Error recovery.\n";
#DBG>					$dbgerro <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8631	8744	
==>>			and	$$errstatus == 0
#DBG>			and	do {
#DBG>				print STDERR "**End of Error recovery.\n";
#DBG>				$dbgerro <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8241	8351	
==>>			and	$$errstatus == 0
#DBG>			and	do {
#DBG>				print STDERR "**End of Error recovery.\n";
#DBG>				$dbgerro <==
6	/Users/nnunley/parrot/config/auto/jit.pm	876	977	
==>ath for jit sources
    my $archname = $Config{archname};
    my ($cpuarch, $osname) = split(/-/, $arc <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	2444	2541	
==>rking find_lex/store_lex
sub _find_lex {
  my ($self, $symbol) = @_;
  my $return = $self->_save_1 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471331	471654	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":b <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472318	472641	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":b <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473305	473628	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":b <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474295	474618	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":b <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475286	475609	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":b <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	190	284	
==>Languages documentation section

=head1 SYNOPSIS

    use Parrot::Docs::Section::Languages;

=h <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049578	1049875	
==>ARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050611	1050908	
==>ARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051645	1051942	
==>ARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052679	1052976	
==>ARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053714	1054011	
==>ARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054840	1055137	
==>ARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16563	16731	
==>$parser, 'pmc' );
                push @opcodes, new LocalDir( $parser,
                    'result' => $result,
                );
                push @opcodes, ne <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17142	17310	
==>$parser, 'pmc' );
                push @opcodes, new LocalDir( $parser,
                    'result' => $result,
                );
                push @opcodes, ne <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10710	10873	
==>$parser, 'pmc' );
                    push @opcodes,
                        new LocalDir( $parser, 'result' => $result, );
                    push @opcodes, ne <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15532	15652	
==>$parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, ne <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18191	18311	
==>$parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, ne <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19285	19405	
==>$parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, ne <==
6	/Users/nnunley/parrot/tools/build/dynclasses.pl	2190	2313	
==>, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various libraries in the link lin <==
6	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2482	2605	
==>, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various libraries in the link lin <==
6	/Users/nnunley/parrot/tools/build/dynpmc.pl	2277	2400	
==>, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various libraries in the link lin <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471119	471218	
==>" => "#line 394 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_excepti <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472106	472205	
==>" => "#line 394 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_excepti <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473093	473192	
==>" => "#line 394 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_excepti <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54360	54654	
==>P" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 7 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55119	55413	
==>P" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 7 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55879	56173	
==>P" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 7 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56640	56934	
==>P" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 7 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57402	57696	
==>P" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 7 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58163	58457	
==>P" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 7 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471272	471537	
==>"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472259	472524	
==>"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473246	473511	
==>"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474236	474501	
==>"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475227	475492	
==>"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476218	476483	
==>"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72549	72637	
==>"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74151	74239	
==>"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75753	75841	
==>"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77356	77444	
==>"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78884	78972	
==>"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80405	80493	
==>"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154298	154480	
==>"JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155201	155383	
==>"JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156105	156287	
==>"JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157009	157191	
==>"JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157914	158096	
==>"JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	8121	8216	
==>g version
		@e=EXPRESSION();
	}
	push @{$code{$seg}->{code}},<<CLS;
	_screen_clear()
CLS
	feedme <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21725	21843	
==>,
		GOTOS => {
			'exp' => 100,
			'functioncall' => 31,
			'explist1' => 121,
			'function' => 26,
			'tablecons <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2673	2771	
==>ax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ Name => 'blo <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2550	2648	
==>ax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ Name => 'blo <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2925	3023	
==>ax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ Name => 'blo <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3599	3697	
==>ax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ Name => 'blo <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3689	3787	
==>ax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ Name => 'blo <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361744	361850	
==>);\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362643	362749	
==>);\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363545	363651	
==>);\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364448	364554	
==>);\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367025	367131	
==>);\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n" <==
6	/Users/nnunley/parrot/config/auto/gc.pm	1856	1953	
==>FILES) \$(SRC_DIR)/res_lea.c
EOF
            TEMP_gc_o => "\$(SRC_DIR)\/$gc\$(O) \$(SRC_DIR)/res_l <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1305	1423	
==>FT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1296	1414	
==>FT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1185	1303	
==>FT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1644	1762	
==>FT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1780	1898	
==>FT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1423	1541	
==>FT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714671	714766	
==>tspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715594	715689	
==>tspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716539	716634	
==>tspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722358	722453	
==>tspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723387	723482	
==>tspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724431	724526	
==>tspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, <==
6	/Users/nnunley/parrot/config/gen/config_h.pm	757	877	
==>nclude/parrot/config.h',
        commentType       => '/*',
        ignorePattern     => 'PARROT_CONFIG_DATE',
        co <==
6	/Users/nnunley/parrot/config/init/hints/darwin.pm	243	359	
==>$libs) = $conf->data->get(qw(ccflags ldflags libs));

    my $OSVers = `uname -r`;
    chomp $OSVers;
    {
        l <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332597	332691	
==>lass_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all results from string_to_cst <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333875	333969	
==>lass_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all results from string_to_cst <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335153	335247	
==>lass_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all results from string_to_cst <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336432	336526	
==>lass_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all results from string_to_cst <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31764	31871	
==>R::implements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self- <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33341	33448	
==>R::implements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self- <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35052	35159	
==>R::implements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self- <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36355	36462	
==>R::implements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self- <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38302	38409	
==>R::implements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self- <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40398	40505	
==>R::implements($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self- <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854508	854867	
==>base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 970,
                  "ARGS" => [
                              "s",
                              "s" <==
6	/Users/nnunley/parrot/lib/Parrot/Test.pm	106	201	
==>8.862833Z coke  $

=head1 NAME

Parrot::Test - testing routines for Parrot and language implemen <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773406	773491	
==>/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774316	774401	
==>/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775226	775311	
==>/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776137	776222	
==>/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	246827	247150	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "and",
                  "FLAGS" => ":base_core",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247690	248013	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "and",
                  "FLAGS" => ":base_core",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	248554	248877	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "and",
                  "FLAGS" => ":base_core",
                  " <==
6	/Users/nnunley/parrot/config/inter/lex.pm	1242	1343	
==>never override the user.  If a non-existent program is specified then
    # the user is responsible fo <==
6	/Users/nnunley/parrot/config/inter/make.pm	1063	1164	
==>never override the user.  If a non-existent program is specified then
    # the user is responsible fo <==
6	/Users/nnunley/parrot/config/inter/yacc.pm	1239	1340	
==>never override the user.  If a non-existent program is specified then
    # the user is responsible fo <==
6	/Users/nnunley/parrot/config/auto/bc.pm	408	507	
==>s qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Conf <==
6	/Users/nnunley/parrot/config/auto/gdbm.pm	353	452	
==>s qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Conf <==
6	/Users/nnunley/parrot/config/auto/gmp.pm	307	406	
==>s qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Conf <==
6	/Users/nnunley/parrot/config/auto/m4.pm	382	481	
==>s qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Conf <==
6	/Users/nnunley/parrot/config/auto/readline.pm	314	413	
==>s qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Conf <==
6	/Users/nnunley/parrot/config/init/optimize.pm	400	499	
==>s qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Conf <==
6	/Users/nnunley/parrot/languages/dotnet/tools/fail_analysis.pl	58	171	
==>^\s*\*\*FAILED\*\*\s*\(//;
	s/\)$//;
	
	# Remove instruction code
	s/ \(code \d+\)//;
	
	$res{$_}++;
}

p <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1448	1551	
==>nt;
      $self->SUPER::compile($compiler);
      $compiler->outdent;
      $compiler->emit(".endnamespa <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1804	1907	
==>nt;
      $self->SUPER::compile($compiler);
      $compiler->outdent;
      $compiler->emit(".endnamespa <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1245	1348	
==>nt;
      $self->SUPER::compile($compiler);
      $compiler->outdent;
      $compiler->emit(".endnamespa <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1553	1656	
==>nt;
      $self->SUPER::compile($compiler);
      $compiler->outdent;
      $compiler->emit(".endnamespa <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	651	748	
==>nt;
    $self->SUPER::compile($compiler);
    $compiler->outdent;
    $compiler->emit(".endnamespa <==
6	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	18726	18818	
==>-string
("").

=item my $title_string = $parser->get_short_title

This is just like get_title <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658692	659084	
==>" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 736,
                  "ARGS" => [
                              "i",
                              "p",
                              "kc <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27567	27666	
==>ule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir f <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30034	30133	
==>ule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir f <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33452	33551	
==>ule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir f <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34706	34805	
==>ule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir f <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37116	37215	
==>ule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir f <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	21229	21322	
==>NOTUSER;
	new P1, .PerlHash
	P1["name"]= '$_->[0]'
	P1["type"]= '$_->[2]'
	P1["value"]= $val{$ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	174214	174299	
==>"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_STRCMP) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	195452	195537	
==>"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_STRCMP) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	212185	212270	
==>"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_STRCMP) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	220741	220826	
==>"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_STRCMP) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	229302	229387	
==>"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_STRCMP) <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2856	2961	
==>=> 'infix', name => $op } });
    $left->sax($handler);
    $right->sax($handler);
    $handler->end_eleme <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3530	3635	
==>=> 'infix', name => $op } });
    $left->sax($handler);
    $right->sax($handler);
    $handler->end_eleme <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3620	3725	
==>=> 'infix', name => $op } });
    $left->sax($handler);
    $right->sax($handler);
    $handler->end_eleme <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5405	5504	
==>=> 'infix', name => $op } });
  $left->sax($handler);
  $right->sax($handler);
  $handler->end_eleme <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3468	3567	
==>=> 'infix', name => $op } });
  $left->sax($handler);
  $right->sax($handler);
  $handler->end_eleme <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20013	20111	
==>_inst("DONE_$label");
  $self->_restore($temp_0);
  return $return;
}

sub _op_leq {
  my ($self,$n <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	3084	3232	
==>estruction; Misc functions; Run Ops and Methods.', 
                'pairs' => ['interpreter'], 
                'sources' => [
                    ' <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3925	4028	
==>k
  my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless defined $self and <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7834	7937	
==>k
  my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless defined $self and <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8481	8584	
==>k
  my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless defined $self and <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9149	9252	
==>k
  my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless defined $self and <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9818	9921	
==>k
  my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless defined $self and <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650702	650814	
==>f ({{\@2}} >= enum_first_type && {{\@2}} < enum_last_type)\n        {{\@1}} = 1;\n    else\n        {{\@1}} = 0;\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651624	651736	
==>f ({{\@2}} >= enum_first_type && {{\@2}} < enum_last_type)\n        {{\@1}} = 1;\n    else\n        {{\@1}} = 0;\ <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2254	2361	
==>egister_num++;
		$push_num++;
	}

	# Return generated code.
	return $pir;
}

sub post_op($$) {
	my $self = s <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	28035	28136	
==>$return;
  my $label     = $self->_gensym();

  $return = $self->_generate($node->{children}[1]);
  $s <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2632	2726	
==>>left->sax($handler);
    $self->right->sax($handler);
    $handler->end_element({ Name => 'op' <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2509	2603	
==>>left->sax($handler);
    $self->right->sax($handler);
    $handler->end_element({ Name => 'op' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054537	1054804	
==>p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055664	1055931	
==>p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056555	1056822	
==>p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057447	1057714	
==>p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058339	1058606	
==>p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059232	1059499	
==>p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600176	600275	
==>= readable_name(interpreter, {{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n         \ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601252	601351	
==>= readable_name(interpreter, {{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n         \ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591533	591623	
==>= readable_name(interpreter, {{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592743	592833	
==>= readable_name(interpreter, {{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593953	594043	
==>= readable_name(interpreter, {{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595164	595254	
==>= readable_name(interpreter, {{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n\ <==
6	/Users/nnunley/parrot/tools/build/dynclasses.pl	4595	4700	
==>') {
    # Copy *.so -> destination, where destination is the first
    # argument, given as --destination <==
6	/Users/nnunley/parrot/tools/build/dynpmc.pl	4699	4804	
==>') {
    # Copy *.so -> destination, where destination is the first
    # argument, given as --destination <==
6	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3911	4013	
==>') {
	# Copy *.so -> destination, where destination is the first
    # argument, given as --destination <==
6	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	6431	6528	
==>y = join("-", map { $smoke{summary}{$_} } qw<total ok failed todo skipped unexpect>);
  my $args = <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11070	11165	
==>KLMNOPQRSTUVWXYZ0123456789])/sprintf('%%%02X',ord($1))/eg;
        # Yes, stipulate the list wit <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4419	4513	
==>KLMNOPQRSTUVWXYZ0123456789])/sprintf('%%%02X',ord($1))/eg;
       # Yes, stipulate the list wit <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113251	113506	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113989	114244	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114728	114983	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115582	115837	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116437	116692	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	36104	36216	
==>pcodes) and $opcodes[-1]->isa('CallOp') ) {
        unless ( exists $returns[-1]->{pragma} ) {
            $ret <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454729	455052	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":bas <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455584	455907	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":bas <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456439	456762	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":bas <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457293	457616	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":bas <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458148	458471	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":bas <==
6	/Users/nnunley/parrot/config/inter/progs.pm	2880	2978	
==>ptions->get('linkflags'));
    $linkflags = prompt("And your linker?", $linkflags) if $ask;
    $co <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12258	12399	
==>ue);
      next;
    }

    #
    # Bitwise assigns:
    #
    #   <var> <op> <value>;
    #

    if ($token->is_ident and $self->get(1)->is_b <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2837	2945	
==>tributes => { kind => 'infix', name => $op } });
    $left->sax($handler);
    $right->sax($handler);
    $ha <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3511	3619	
==>tributes => { kind => 'infix', name => $op } });
    $left->sax($handler);
    $right->sax($handler);
    $ha <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3601	3709	
==>tributes => { kind => 'infix', name => $op } });
    $left->sax($handler);
    $right->sax($handler);
    $ha <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5386	5488	
==>tributes => { kind => 'infix', name => $op } });
  $left->sax($handler);
  $right->sax($handler);
  $ha <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3449	3551	
==>tributes => { kind => 'infix', name => $op } });
  $left->sax($handler);
  $right->sax($handler);
  $ha <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72823	72915	
==>lerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not f <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74425	74517	
==>lerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not f <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76027	76119	
==>lerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not f <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77630	77722	
==>lerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not f <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79151	79243	
==>lerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not f <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80672	80764	
==>lerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not f <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	17561	17682	
==>xit 0;
    my (@mmds, $found);
    for my $super_mmd (@{ $self->{super_mmd} }) {
        my ($super, $variants);
        $ <==
6	/Users/nnunley/parrot/config/init/hints/mswin32.pm	7149	7299	
==>ta->set(
            parrot_is_shared     => 1,
            has_dynamic_linking  => 1,
            ld_load_flags        => '-shared ',
            ld_s <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080482	1080575	
==>rnal_exception(1, \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081547	1081640	
==>rnal_exception(1, \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082612	1082705	
==>rnal_exception(1, \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083678	1083771	
==>rnal_exception(1, \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29557	29646	
==>n    if (PObj_get_FLAGS(ccont) & SUB_FLAG_TAILCALL) {\n\tPObj_get_FLAGS(ccont) &= ~SUB_FLA <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503520	503817	
==>=> "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504374	504671	
==>=> "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505229	505526	
==>=> "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506084	506381	
==>=> "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506938	507235	
==>=> "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507793	508090	
==>=> "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504125	504447	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "AR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504980	505302	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "AR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505835	506157	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "AR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506689	507011	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "AR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507544	507866	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "AR <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33989	34087	
==>fs};
		$Parse::RecDescent::lastexpected = ' . ($rule->hasleftmost($self) ? 'q{}'
				# WAS : 'qq{'. <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503490	503813	
==>> 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504344	504667	
==>> 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505199	505522	
==>> 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506054	506377	
==>> 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506908	507231	
==>> 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507763	508086	
==>> 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305435	305655	
==>" => 355,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 1005 \"src/ops/cmp.ops\"\n  if (PMC_IS_NULL({ <==
6	/Users/nnunley/parrot/config/init/hints/linux.pm	673	814	
==>-fPIC';
    }

    if ($cc =~ /icc/) {

        # Intel C++ compiler has the same name as its C compiler
        $link = 'icc';

        # don <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	297	402	
==>Exporter Test::More);

sub import {
    my( $class, $plan, @args ) = @_;

    Test::More->import( $plan, @ <==
6	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	214	319	
==>Exporter Test::More);

sub import {
    my( $class, $plan, @args ) = @_;

    Test::More->import( $plan, @ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791563	791653	
==>BODY" => "#line 432 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed_int(i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792470	792560	
==>BODY" => "#line 432 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed_int(i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	972868	973066	
==>,
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_ccl <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973997	974195	
==>,
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_ccl <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975126	975324	
==>,
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_ccl <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976256	976454	
==>,
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_ccl <==
6	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33807	33919	
==>BUG and print "Can't assimilate following ", $paras->[0][0], "\n";
              push @$para, '';  # Just so it's <==
6	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35620	35732	
==>BUG and print "Can't assimilate following ", $paras->[0][0], "\n";
              push @$para, '';  # Just so it's <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27494	27601	
==>{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29961	30068	
==>{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33379	33486	
==>{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34633	34740	
==>{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37043	37150	
==>{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir <==
6	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6145	6242	
==>ger on C<$key> named by C<$trigger>

Accepts a key name & a trigger name and returns a L<Parrot::C <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344158	344260	
==>ps\"\n  /* These char * need to go away soon */\n  const char * const path = string_to_cstring(interpre <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345400	345502	
==>ps\"\n  /* These char * need to go away soon */\n  const char * const path = string_to_cstring(interpre <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346642	346744	
==>ps\"\n  /* These char * need to go away soon */\n  const char * const path = string_to_cstring(interpre <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347885	347987	
==>ps\"\n  /* These char * need to go away soon */\n  const char * const path = string_to_cstring(interpre <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349053	349155	
==>ps\"\n  /* These char * need to go away soon */\n  const char * const path = string_to_cstring(interpre <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350055	350157	
==>ps\"\n  /* These char * need to go away soon */\n  const char * const path = string_to_cstring(interpre <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4596	4701	
==>claration.

=cut

sub ops_addr_decl
{
    my ($self, $bs) = @_;

    return "static void *const* ${bs}ops_ <==
6	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	2398	2496	
==>es.

Add the salt and chick peas and cook, stirring, until heated through.

Stir in the lime juice, <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3192	3287	
==>c' => "CONST(%ld)->u.number",
    'pc' => "CONST(%ld)->u.key",
    'sc' => "CONST(%ld)->u.string <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3000	3095	
==>c' => "CONST(%ld)->u.number",
    'pc' => "CONST(%ld)->u.key",
    'sc' => "CONST(%ld)->u.string <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2102	2196	
==>c'  => "CONST(%ld)->u.number",
  'pc'  => "CONST(%ld)->u.key",
  'sc'  => "CONST(%ld)->u.string <==
6	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	634	724	
==>ile::Spec->catfile(File::Spec->tmpdir, @_));
}

=item C<new($path)>

Returns the instance f <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324239	324502	
==>AME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325031	325294	
==>AME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325824	326087	
==>AME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326614	326877	
==>AME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327415	327678	
==>AME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028109	1028201	
==>eter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_event(i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028960	1029052	
==>eter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_event(i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029812	1029904	
==>eter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_event(i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030654	1030746	
==>eter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_event(i <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	827	916	
==>opcode - interpreter->code->base.data))
#define CUR_OPCODE cur_opcode
#define IREG(i) REG_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	943	1032	
==>opcode - interpreter->code->base.data))
#define CUR_OPCODE cur_opcode
#define IREG(i) REG_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77174	77406	
==>p",
                              "p",
                              "sc",
                              "sc"
                            ],
                  "BODY" => "#line 1156 \"src/ops/core.ops\"\n  char * const name = string_t <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18911	19005	
==>', [$temp_0,$temp_1,"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','s <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19400	19493	
==>',[$temp_0,$temp_1,"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','s <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19888	19981	
==>',[$temp_0,$temp_1,"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','s <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20377	20470	
==>',[$temp_0,$temp_1,"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','s <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20866	20959	
==>',[$temp_0,$temp_1,"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','s <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1505	1605	
==>_reg = $compiler->temp_reg($imcc_code);

    my $pmc_type = $type->imcc_pmc();
    my $temp_pmc = $co <==
6	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	772	870	
==>or opcode functions that have more internal complexity the
format is:

    op opname (args) :class, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332584	332679	
==>reter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all results from s <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333862	333957	
==>reter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all results from s <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335140	335235	
==>reter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all results from s <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336419	336514	
==>reter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all results from s <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471258	471523	
==>or,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472245	472510	
==>or,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473232	473497	
==>or,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474222	474487	
==>or,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475213	475478	
==>or,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476204	476469	
==>or,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800681	800938	
==>ng_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801585	801842	
==>ng_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802489	802746	
==>ng_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803394	803651	
==>ng_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	331176	331426	
==>ME" => "close",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 389,
                  " <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2653	2751	
==>e($compiler);

  my $dest_name = $dest->value;
  $dest = $dest->compile($compiler);

  $compiler->e <==
6	/Users/nnunley/parrot/tools/build/pbc2c.pl	3191	3302	
==>while($src =~ /{{=(.*?)}}/g){
	    my $offset = $1;
	    $is_branch = 1;
	}
	# relative branch
	while($src =~ /{ <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4887	4971	
==>t = Jako::Construct::Expression::Value::Identifier->new($block, $self->require_ident) <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6490	6574	
==>t = Jako::Construct::Expression::Value::Identifier->new($block, $self->require_ident) <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7881	7965	
==>t = Jako::Construct::Expression::Value::Identifier->new($block, $self->require_ident) <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20901	20985	
==>t = Jako::Construct::Expression::Value::Identifier->new($block, $self->require_ident) <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22681	22765	
==>t = Jako::Construct::Expression::Value::Identifier->new($block, $self->require_ident) <==
6	/Users/nnunley/parrot/config/auto/bc.pm	426	521	
==>@args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Configure::Step ': <==
6	/Users/nnunley/parrot/config/auto/gdbm.pm	371	466	
==>@args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Configure::Step ': <==
6	/Users/nnunley/parrot/config/auto/gmp.pm	325	420	
==>@args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Configure::Step ': <==
6	/Users/nnunley/parrot/config/auto/m4.pm	400	495	
==>@args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Configure::Step ': <==
6	/Users/nnunley/parrot/config/auto/readline.pm	332	427	
==>@args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Configure::Step ': <==
6	/Users/nnunley/parrot/config/init/optimize.pm	418	510	
==>@args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Configure::Step <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084809	1085186	
==>}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085862	1086239	
==>}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086915	1087292	
==>}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087969	1088346	
==>}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090923	1091300	
==>}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1091983	1092360	
==>}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11254	11375	
==>ppens to run under.
        # Altho, hmm, what about that ord?  Presumably that won't work right
        #  under non-ASCI <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17094	17215	
==>ppens to run under.
        # Altho, hmm, what about that ord?  Presumably that won't work right
        #  under non-ASCI <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4601	4720	
==>ppens to run under.
       # Altho, hmm, what about that ord?  Presumably that won't work right
       #  under non-ASCI <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2091	2204	
==>ppens to run under.
    # Altho, hmm, what about that ord?  Presumably that won't work right
    #  under non-ASCI <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10514	10627	
==>ppens to run under.
    # Altho, hmm, what about that ord?  Presumably that won't work right
    #  under non-ASCI <==
6	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2194	2307	
==>ppens to run under.
    # Altho, hmm, what about that ord?  Presumably that won't work right
    #  under non-ASCI <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747290	747401	
==>"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748075	748186	
==>"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753584	753695	
==>"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754372	754483	
==>"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324706	324816	
==>"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}},{{\@2}});\n  {{+=3}};\n",
                  "LABE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325499	325609	
==>"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}},{{\@2}});\n  {{+=3}};\n",
                  "LABE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154310	154520	
==>ARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155213	155423	
==>ARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156117	156327	
==>ARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157021	157231	
==>ARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157926	158136	
==>ARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	13760	13867	
==>f->{RESOURCES_URL});
        
    return 1;
}

=item C<html_for_file($file)>

Returns the HTML for the speci <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550325	550426	
==>ter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTAB <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551626	551727	
==>ter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTAB <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554178	554279	
==>ter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTAB <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555575	555676	
==>ter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTAB <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558230	558331	
==>ter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTAB <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559614	559715	
==>ter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTAB <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550414	550639	
==>code_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551715	551940	
==>code_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552906	553131	
==>code_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558319	558544	
==>code_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559703	559928	
==>code_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560924	561149	
==>code_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3612	3721	
==>pre_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If we need a destination, emit PIR <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2810	2909	
==>_element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
    $left->sax($handler) <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3484	3583	
==>_element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
    $left->sax($handler) <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3574	3673	
==>_element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
    $left->sax($handler) <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5359	5456	
==>_element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
  $left->sax($handler) <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3422	3519	
==>_element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
  $left->sax($handler) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960404	960703	
==>UMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961365	961664	
==>UMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962327	962626	
==>UMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963289	963588	
==>UMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2658	2767	
==>s file into the relevant C
code.

=cut

sub goto_pop
{
    my ($self) = @_;

    return "cur_opcode = pop_dest <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	75327	75426	
==>acerulename, '|', $tracemsg
| ~~       |^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<|
	    $tracemsg
.

se <==
6	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	402	509	
==>sub new {
  my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  #$ <==
6	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	700	806	
==>sub new {
  my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $ <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	206	312	
==>sub new {
  my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $ <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	205	311	
==>sub new {
  my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $ <==
6	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	454	560	
==>sub new {
  my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $ <==
6	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	166	272	
==>sub new {
  my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $ <==
6	/Users/nnunley/parrot/lib/Parrot/Op.pm	3567	3666	
==>lowed by underscore-separated argument types
are appended to the name.

=cut

sub full_name
{
    my <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469321	469415	
==>ps/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exception(interpreter <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470196	470290	
==>ps/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exception(interpreter <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478794	478888	
==>ps/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exception(interpreter <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479686	479780	
==>ps/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exception(interpreter <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	66441	66531	
==>= VTABLE_get_pmc_keyed_int(interpreter, interpreter->iglobals,\n         IGLOBALS_INTERPRET <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494409	494732	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495277	495600	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496145	496468	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497014	497337	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497884	498207	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498754	499077	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" = <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11229	11427	
==>);
                        push @opcodes, new LocalDir( $parser,
                            'result' => $result2,
                        );
                        push @opcodes, new KeyedGetOp <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9452	9634	
==>);
                    push @opcodes, new LocalDir( $parser,
                        'result' => $result2,
                    );
                    push @opcodes, new KeyedGetOp <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12749	12931	
==>);
                    push @opcodes, new LocalDir( $parser,
                        'result' => $result2,
                    );
                    push @opcodes, new KeyedGetOp <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8428	8578	
==>);
            push @opcodes, new LocalDir( $parser,
                'result' => $result2,
            );
            push @opcodes, new KeyedGetOp <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17642	17776	
==>);
        push @opcodes, new LocalDir( $parser,
            'result' => $result2,
        );
        push @opcodes, new KeyedGetOp <==
6	/Users/nnunley/parrot/languages/python/pie-thon.pl	12167	12292	
==>);
	print <<EOC;
	global "$c" = $p $cmt
EOC
    }
    $globals{$c} = $p;
}


sub is_opcode {
    my $f = shift;
    return $bu <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	11753	11856	
==>ompiler
  my $options  = shift; # Optional: Hashref

  confess "No block!"  unless defined $self and ref <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2495	2595	
==>=> { kind => 'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix' <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2372	2472	
==>=> { kind => 'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix' <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2765	2865	
==>=> { kind => 'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix' <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3439	3539	
==>=> { kind => 'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix' <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3529	3629	
==>=> { kind => 'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543396	543684	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lcm",
                  "FLAGS" => ":advanced_math",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544731	545019	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lcm",
                  "FLAGS" => ":advanced_math",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546067	546355	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lcm",
                  "FLAGS" => ":advanced_math",
                  " <==
6	/Users/nnunley/parrot/tools/build/dynclasses.pl	2673	2803	
==>traLibs;
    } else {
        $liblist = join( ' ', map { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_ <==
6	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2982	3112	
==>traLibs;
    } else {
        $liblist = join( ' ', map { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_ <==
6	/Users/nnunley/parrot/tools/build/dynpmc.pl	2777	2907	
==>traLibs;
    } else {
        $liblist = join( ' ', map { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550422	550650	
==>)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551723	551951	
==>)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552914	553142	
==>)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558327	558555	
==>)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559711	559939	
==>)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560932	561160	
==>)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17650	17785	
==>> -47
	},
	{#State 46
		DEFAULT => -93
	},
	{#State 47
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2876	2969	
==>d1 SEE ALSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::O <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	6330	6423	
==>d1 SEE ALSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::O <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4546	4639	
==>d1 SEE ALSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::O <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4523	4616	
==>d1 SEE ALSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::O <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3907	4000	
==>d1 SEE ALSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::O <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471361	471684	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472348	472671	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473335	473658	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474325	474648	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475316	475639	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  " <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33727	33817	
==>espace, $rule) = @_;
	
''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying subrule <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470540	470823	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471526	471809	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472513	472796	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473500	473783	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474490	474773	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475481	475764	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647111	647393	
==>"find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 723,
                  "ARG <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344244	344333	
==>_cstring(interpreter, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345486	345575	
==>_cstring(interpreter, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346728	346817	
==>_cstring(interpreter, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347971	348060	
==>_cstring(interpreter, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter <==
6	/Users/nnunley/parrot/config/init/hints/cygwin.pm	56	143	
==>t/config/init/hints/cygwin.pm 19593 2006-05-30T02:28:15.110975Z coke  $

package init::h <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3817	3925	
==>y, and parent module has no fnlib property either!")
        unless $module_props{fnlib};

      $fnlib = $mo <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6481	6589	
==>y, and parent module has no fnlib property either!")
        unless $module_props{fnlib};

      $fnlib = $mo <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3327	3420	
==>zy move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5089	5182	
==>zy move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8001	8094	
==>zy move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8858	8951	
==>zy move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	1869	1996	
==>,            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P6', 'P16[0]'],
  ['',            'bsr', 'apply_HEL <==
6	/Users/nnunley/parrot/config/auto/jit.pm	3960	4065	
==>>options->get('execcapable')
            if defined $conf->options->get('execcapable');
        if ($execc <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033185	1033284	
==>ps\"\n    parrot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = { <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034283	1034382	
==>ps\"\n    parrot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = { <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035379	1035478	
==>ps\"\n    parrot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = { <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036543	1036642	
==>ps\"\n    parrot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = { <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503074	503296	
==>> [
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 626 \"src/ops/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  " <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31740	31855	
==>(    scalar( @{$exprs} ) == 0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	32391	32506	
==>(    scalar( @{$exprs} ) == 0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33041	33156	
==>(    scalar( @{$exprs} ) == 0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33564	33679	
==>(    scalar( @{$exprs} ) == 0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957469	957556	
==>ne 581 \"src/ops/string.ops\"\n  INTVAL n = Parrot_encoding_number(interpreter, {{\@2}}) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958374	958461	
==>ne 581 \"src/ops/string.ops\"\n  INTVAL n = Parrot_encoding_number(interpreter, {{\@2}}) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258520	258839	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259463	259782	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260314	260633	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261166	261485	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262018	262337	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	55716	55836	
==>NPATMK)/gco
				and do { ($code) = extract_codeblock($grammar,'{',undef,'<');
					 $code;
				       } )
			{
				_parse <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510504	510789	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511242	511527	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511980	512265	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "i <==
6	/Users/nnunley/parrot/config/auto/gdbm.pm	740	839	
==>->get('libs');
    my $linkflags = $conf->data->get('linkflags');
    my $ccflags   = $conf->data->g <==
6	/Users/nnunley/parrot/config/auto/gmp.pm	681	780	
==>->get('libs');
    my $linkflags = $conf->data->get('linkflags');
    my $ccflags   = $conf->data->g <==
6	/Users/nnunley/parrot/config/auto/readline.pm	693	792	
==>->get('libs');
    my $linkflags = $conf->data->get('linkflags');
    my $ccflags   = $conf->data->g <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908802	909098	
==>=> "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909698	909994	
==>=> "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910595	910891	
==>=> "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911492	911788	
==>=> "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15023	15135	
==>.'[0]']);

  return $return;
}

sub _op_cdr {
  my ($self, $node) = @_;

  _num_arg ($node, 1, 'cdr');

  my $ret <==
6	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	533	635	
==>!\n";
my $input = join('', <$fh>);
close $fh;
my @methods = parse($input);

# Start of output.
my $outp <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859288	859555	
==>nline",
                  "CODE" => 975,
                  "ARGS" => [
                              "s",
                              "sc",
                              "i"
                            ],
                  "BODY" => "#line 118 \"src/ops/string.ops\" <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	532	644	
==>os>';
    return '$rx_tmp' if $name eq '<tmp>';
    return '$rx_tmp' if $name eq '<ptmp>';
    return $name;
}

s <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344195	344290	
==>ay soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2}});\n  const char * <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345437	345532	
==>ay soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2}});\n  const char * <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346679	346774	
==>ay soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2}});\n  const char * <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347922	348017	
==>ay soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2}});\n  const char * <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746776	747061	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747560	747845	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748345	748630	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749128	749413	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749912	750197	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750695	750980	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	195	276	
==>/lib/Jako/Construct/Expression/Value/Identifier.pm 19606 2006-05-30T15:08:05.04808 <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31682	31786	
==>my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($meth)) { <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33259	33363	
==>my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($meth)) { <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34970	35074	
==>my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($meth)) { <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36273	36377	
==>my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($meth)) { <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38220	38324	
==>my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($meth)) { <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40316	40420	
==>my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($meth)) { <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794699	795063	
==>"set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 897,
                  "ARGS" => [
                              "p", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792890	793187	
==>"set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 89 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793794	794091	
==>"set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 89 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795604	795901	
==>"set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 89 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796510	796807	
==>"set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 89 <==
6	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	433	543	
==>) {
    no strict 'refs';

    *{"URM::Test::output_$meth"} = sub {
        my( $lang_code, $output, $desc, @ot <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550256	550365	
==>er, object, meth);\n  if (!method_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Met <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551557	551666	
==>er, object, meth);\n  if (!method_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Met <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554109	554218	
==>er, object, meth);\n  if (!method_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Met <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555506	555615	
==>er, object, meth);\n  if (!method_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Met <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558161	558270	
==>er, object, meth);\n  if (!method_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Met <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559545	559654	
==>er, object, meth);\n  if (!method_pmc) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Met <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503456	503783	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504310	504637	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505165	505492	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506020	506347	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506874	507201	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507729	508056	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423022	423338	
==>{
                  "JUMP" => 0,
                  "NAME" => "listen",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423918	424234	
==>{
                  "JUMP" => 0,
                  "NAME" => "listen",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2005	2104	
==>pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3257	3356	
==>pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5887	5985	
==>pir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6445	6543	
==>pir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196797	197094	
==>RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197693	197990	
==>RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198590	198887	
==>RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199487	199784	
==>RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200383	200680	
==>RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201280	201577	
==>RELATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158840	159138	
==>RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159736	160034	
==>RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160633	160931	
==>RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161530	161828	
==>RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162426	162724	
==>RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163323	163621	
==>RELATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	1278	1394	
==>main.
	#                      Bene Gesserit Litany Against Fear
	# Compiler version @{[VERSION]}@{[ grep $_=sprintf(" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072745	1072860	
==>\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074930	1075045	
==>\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077115	1077230	
==>\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079301	1079416	
==>\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n <==
6	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15218	15314	
==>print "== $_[0]\n";
  push @{ $self->{'token_buffer'} },
       $self->{'text_token_class'}->new( <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550445	550698	
==>ter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551746	551999	
==>ter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552937	553190	
==>ter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558350	558603	
==>ter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559734	559987	
==>ter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560955	561208	
==>ter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11180	11305	
==>so that this can work right on
        #  all charsets that this module happens to run under.
        # Altho, hmm, what about <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17020	17145	
==>so that this can work right on
        #  all charsets that this module happens to run under.
        # Altho, hmm, what about <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4528	4651	
==>so that this can work right on
       #  all charsets that this module happens to run under.
       # Altho, hmm, what about <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2021	2138	
==>so that this can work right on
    #  all charsets that this module happens to run under.
    # Altho, hmm, what about <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10444	10561	
==>so that this can work right on
    #  all charsets that this module happens to run under.
    # Altho, hmm, what about <==
6	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2124	2241	
==>so that this can work right on
    #  all charsets that this module happens to run under.
    # Altho, hmm, what about <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180624	180741	
==>\"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181520	181637	
==>\"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182416	182533	
==>\"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183311	183428	
==>\"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184207	184324	
==>\"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185103	185220	
==>\"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271129	271418	
==>1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271975	272264	
==>1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272821	273110	
==>1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273666	273955	
==>1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	274512	274801	
==>1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	275358	275647	
==>1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471288	471613	
==>");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472275	472600	
==>");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473262	473587	
==>");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474252	474577	
==>");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475243	475568	
==>");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476234	476559	
==>");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550215	550311	
==>method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_excep <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551516	551612	
==>method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_excep <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554068	554164	
==>method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_excep <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555465	555561	
==>method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_excep <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558120	558216	
==>method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_excep <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559504	559600	
==>method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_excep <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610351	610673	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611253	611575	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612156	612478	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613062	613384	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/Op.pm	1261	1364	
==>The argument is both incoming and outgoing

Op Type:

    i   The argument is an integer register index. <==
6	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18815	18907	
==>-points, like 21 for 10.5-point)
that codeblocks ("verbatim sections") will appear as.

=item <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121423	121667	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122334	122578	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123246	123490	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124119	124363	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124993	125237	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	2503	2599	
==>rrot safe mode, or for inclusion in miniparrot.

=head2 Op Body (Macro Substitutions)

In the fol <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9158	9293	
==>($block, $type, $ident, { %props }, [ @formal_args ]);
        push @{$self->{BLOCKS}}, $sub;
      }

      next;
    }

    #
    # Lo <==
6	/Users/nnunley/parrot/tools/dev/lib_deps.pl	11865	11982	
==>labs       stdlib.h
llrint      math.h
llrintf     math.h
llrintl     math.h
llround     math.h
llroundf    math.h
llr <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634737	634829	
==>, (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_ne <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635855	635947	
==>, (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_ne <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636973	637065	
==>, (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_ne <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638092	638184	
==>, (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_ne <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	339609	339940	
==>,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340607	340938	
==>,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341606	341937	
==>,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342605	342936	
==>,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	308744	308883	
==>ter->code->base.data;\n        pdb->state |= PDB_RUNNING;\n    }\n\n    {{+=1}};\n",
                  "LABELS" => []
                }, 'Pa <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	6412	6507	
==>ubs{"="}}(@_[0..2], "le") },
	'>=' => sub { &{$opsubs{"="}}(@_[0..2], "ge") },
	'<>' => sub { &{ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071727	1071872	
==>"
                            ],
                  "BODY" => "#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073912	1074057	
==>"
                            ],
                  "BODY" => "#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076097	1076242	
==>"
                            ],
                  "BODY" => "#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078283	1078428	
==>"
                            ],
                  "BODY" => "#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4} <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	10	110	
==>m
#
# Copyright (C) 2003-2005, The Perl Foundation.
# This program is free software. It is subject to <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	12	112	
==>m
#
# Copyright (C) 2003-2005, The Perl Foundation.
# This program is free software. It is subject to <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	619232	619325	
==>er(interpreter, left);\n\tINTVAL b = rt == enum_class_Integer ? PMC_int_val(right) :\n\t    VT <==
6	/Users/nnunley/parrot/config/init/manifest.pm	409	498	
==>::Configure::Step;
use ExtUtils::Manifest qw(manicheck);

$description = 'Checking MANIFES <==
6	/Users/nnunley/parrot/lib/Parrot/Config.pm	1950	2036	
==>gs -Waggregate-return -Winline -W -Wno-unused -Wsign-compare -Wformat-nonliteral -Wform <==
6	/Users/nnunley/parrot/tools/build/dynclasses.pl	1270	1356	
==>gs -Waggregate-return -Winline -W -Wno-unused -Wsign-compare -Wformat-nonliteral -Wform <==
6	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1315	1401	
==>gs -Waggregate-return -Winline -W -Wno-unused -Wsign-compare -Wformat-nonliteral -Wform <==
6	/Users/nnunley/parrot/tools/build/dynpmc.pl	1319	1405	
==>gs -Waggregate-return -Winline -W -Wno-unused -Wsign-compare -Wformat-nonliteral -Wform <==
6	/Users/nnunley/parrot/lib/Pod/Escapes.pm	9111	9245	
==>'/',
   48, '0',
   49, '1',
   50, '2',
   51, '3',
   52, '4',
   53, '5',
   54, '6',
   55, '7',
   56, '8',
   57, '9',
   58, ':' <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2904	3005	
==>ndler);
    $right->sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_elem <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3578	3679	
==>ndler);
    $right->sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_elem <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3668	3769	
==>ndler);
    $right->sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_elem <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5451	5546	
==>ndler);
  $right->sax($handler);
  $handler->end_element({ Name => 'op' });
  $handler->end_elem <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3514	3609	
==>ndler);
  $right->sax($handler);
  $handler->end_element({ Name => 'op' });
  $handler->end_elem <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072934	1073321	
==>n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075119	1075506	
==>n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077304	1077691	
==>n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079490	1079877	
==>n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255432	255575	
==>c"
                            ],
                  "BODY" => "#line 726 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@2}} : {{\@3}};\n  {{+=4} <==
6	/Users/nnunley/parrot/editor/kate_syntax.pl	5201	5292	
==>ata name="Comment" defStyleNum="dsComment" />
      <itemData name="Octal" defStyleNum="dsBa <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550185	550278	
==>er->current_method = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551486	551579	
==>er->current_method = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554038	554131	
==>er->current_method = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555435	555528	
==>er->current_method = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558090	558183	
==>er->current_method = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559474	559567	
==>er->current_method = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459194	459479	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460181	460466	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461169	461454	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462157	462442	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463153	463438	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464150	464435	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080587	1080862	
==>eter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081652	1081927	
==>eter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082717	1082992	
==>eter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083783	1084058	
==>eter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18409	18506	
==>ht!"
end select
a$="one"
select case a$
case "zero"
	print "Bzzt"
case "two"
	print "not"
case "on <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	619665	619759	
==>rpreter, NULL, ERR_OVERFLOW,\n\t\t\t\"Integer overflow\");\n\t    }\n\t    /* TODO preserve typ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422239	422629	
==>rk",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 485,
                  "ARGS" => [
                              "i",
                              "p",
                              "sc <==
6	/Users/nnunley/parrot/config/auto/gcc.pm	5310	5435	
==>w (split ' ', $ccwarn) {
                $w =~ s/^-W(?:no-)?(.*)$/$1/;
                @warns = grep !/^-W(?:no-)?$w$/, @warns <==
6	/Users/nnunley/parrot/config/auto/cgoto.pm	549	656	
==>p
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('ski <==
6	/Users/nnunley/parrot/config/auto/headers.pm	484	591	
==>p
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('ski <==
6	/Users/nnunley/parrot/config/auto/jit.pm	635	742	
==>p
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('ski <==
6	/Users/nnunley/parrot/config/gen/cpu.pm	547	654	
==>p
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('ski <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72926	73027	
==>n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74528	74629	
==>n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76130	76231	
==>n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77733	77834	
==>n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79254	79355	
==>n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80775	80876	
==>n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54283	54615	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "f <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55042	55374	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "f <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55802	56134	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "f <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56563	56895	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "f <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57325	57657	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "f <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58086	58418	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "f <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343550	343794	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344791	345035	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346033	346277	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347275	347519	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348518	348762	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349519	349763	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550450	550708	
==>method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551751	552009	
==>method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552942	553200	
==>method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558355	558613	
==>method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559739	559997	
==>method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560960	561218	
==>method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_ <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	712	807	
==>rrot::Docs::Directory>.

=cut

sub directory_class
{
    return 'Parrot::Docs::Directory';
}

=b <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	344	439	
==>lock::Conditional::Unless;

use Carp;

use base qw(Jako::Construct::Block::Conditional);

#
# ne <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4508	4608	
==>{
      my $block = $self->current_block();
      my $ident = Jako::Construct::Expression::Value::Ide <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	10754	10854	
==>{
      my $block = $self->current_block();
      my $ident = Jako::Construct::Expression::Value::Ide <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16168	16268	
==>{
      my $block = $self->current_block();
      my $ident = Jako::Construct::Expression::Value::Ide <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16939	17039	
==>{
      my $block = $self->current_block();
      my $ident = Jako::Construct::Expression::Value::Ide <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17744	17844	
==>{
      my $block = $self->current_block();
      my $ident = Jako::Construct::Expression::Value::Ide <==
6	/Users/nnunley/parrot/tools/build/jit2c.pl	1635	1733	
==>art_op = 'Parrot_jit_restart_op';
    %argmaps = %Parrot::OpTrans::C::arg_maps;
}
else {
    $jit_c <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88915	89274	
==>" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 110,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 38 \"sr <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31422	31519	
==>accumulate
the number of lines, C<$out_name> is the name of the output file we are
generating.

Ov <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33035	33132	
==>accumulate
the number of lines, C<$out_name> is the name of the output file we are
generating.

Ov <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34723	34820	
==>accumulate
the number of lines, C<$out_name> is the name of the output file we are
generating.

Ov <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40042	40139	
==>accumulate
the number of lines, C<$out_name> is the name of the output file we are
generating.

Ov <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	22526	22620	
==>self->genlabel('nongreedy_star_fail');
        my ($R_back, @R_ops) = $self->rewrite($R, $rfail <==
6	/Users/nnunley/parrot/tools/build/nativecall.pl	10958	11078	
==>do {
        push @{$temps_ref}, "PMC *t_$temp_num;";
        push @{$extra_preamble_ref},
             "t_$temp_num = GE <==
6	/Users/nnunley/parrot/tools/build/nativecall.pl	9970	10089	
==>do {
        push @{$temps_ref}, "PMC *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GE <==
6	/Users/nnunley/parrot/tools/build/nativecall.pl	10362	10481	
==>do {
        push @{$temps_ref}, "PMC *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GE <==
6	/Users/nnunley/parrot/tools/build/nativecall.pl	11561	11680	
==>do {
        push @{$temps_ref}, "PMC* t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GE <==
6	/Users/nnunley/parrot/tools/build/nativecall.pl	13125	13244	
==>do {
        push @{$temps_ref}, "PMC *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GE <==
6	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	29049	29164	
==>$para_type =~ m/^=head\d$/s
         and ! $self->{'accept_heads_anywhere'}
         and @$curr_open
         and $c <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500317	500608	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":ba <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501055	501346	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":ba <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501794	502085	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":ba <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502532	502823	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":ba <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503271	503562	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":ba <==
6	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17902	18039	
==>$target / =end $target\n";
      
      $para->[0] = 'Data';
      
      unshift @$paras,
        ['=begin',
          {'start_line' => $ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647180	647538	
==>IRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 723,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 22 <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2750	2866	
==>ndef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHECK}}='ACCEPT';
    undef;
}

sub YYError {
	my($se <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	83	190	
==>%options) = @_;
    my $self = bless \%options, (ref($proto) || $proto);
    $self->init();
    return $self <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	250	357	
==>%options) = @_;
    my $self = bless \%options, (ref($proto) || $proto);
    $self->init();
    return $self <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	591	698	
==>%options) = @_;
    my $self = bless \%options, (ref($proto) || $proto);
    $self->init();
    return $self <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2625	2730	
==>ndef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHECK}}='ACCEPT';
    undef;
}

sub YYError {
	my($se <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746799	747067	
==>"JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747583	747851	
==>"JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748368	748636	
==>"JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749151	749419	
==>"JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749935	750203	
==>"JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750718	750986	
==>"JUMP" => 0,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	58076	58197	
==>hat functionality is not
					yet implemented. Or did you misspell
					\"$code\"?");
				}
				else
				{
					_error("Un <==
6	/Users/nnunley/parrot/tools/build/dynclasses.pl	538	639	
==>ile::Copy qw(copy);

# qq[] isn't guaranteed to work, but it's safer than "" as some platforms
# (eg F <==
6	/Users/nnunley/parrot/tools/build/dynoplibs.pl	496	597	
==>ile::Copy qw(copy);

# qq[] isn't guaranteed to work, but it's safer than "" as some platforms
# (eg F <==
6	/Users/nnunley/parrot/tools/build/dynpmc.pl	500	601	
==>ile::Copy qw(copy);

# qq[] isn't guaranteed to work, but it's safer than "" as some platforms
# (eg F <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	451	547	
==>y ($block, $ident) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($bl <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	451	547	
==>y ($block, $ident) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($bl <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515981	516315	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519789	520123	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520644	520978	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	521499	521833	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522353	522687	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523208	523542	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710919	711174	
==>[
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "AR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711753	712008	
==>[
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "AR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712859	713114	
==>[
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "AR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713966	714221	
==>[
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "AR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714888	715143	
==>[
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "AR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715811	716066	
==>[
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "AR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471251	471436	
==>sionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472238	472423	
==>sionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473225	473410	
==>sionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474215	474400	
==>sionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475206	475391	
==>sionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476197	476382	
==>sionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16406	16492	
==>\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(o <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16748	16834	
==>\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(o <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1871	1957	
==>\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(o <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9949	10035	
==>\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(o <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10192	10278	
==>\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(o <==
6	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1974	2060	
==>\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(o <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	383	485	
==>ruct::Statement);

my %block_types = (
  'while'    => { PREFIX => "_W", NEXT => 'CONT', REDO => 'REDO' <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	404	506	
==>ruct::Statement);

my %block_types = (
  'while'    => { PREFIX => "_W", NEXT => 'CONT', REDO => 'REDO' <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24213	24310	
==>y ($self,$node) = @_;
  my $return;
  my $num_children = defined $node->{children} ? @{$node->{chi <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25101	25198	
==>y ($self,$node) = @_;
  my $return;
  my $num_children = defined $node->{children} ? @{$node->{chi <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26112	26209	
==>y ($self,$node) = @_;
  my $return;
  my $num_children = defined $node->{children} ? @{$node->{chi <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27001	27098	
==>y ($self,$node) = @_;
  my $return;
  my $num_children = defined $node->{children} ? @{$node->{chi <==
6	/Users/nnunley/parrot/lib/Test/More.pm	22508	22603	
==>gs there are,
and you'll know immediately when they're fixed.

Once a todo test starts succeedin <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27599	27690	
==>pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}" <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30066	30157	
==>pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}" <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33484	33575	
==>pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}" <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34738	34829	
==>pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}" <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37148	37239	
==>pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480098	480399	
==>MP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481100	481401	
==>MP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482103	482404	
==>MP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483106	483407	
==>MP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484104	484405	
==>MP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485103	485404	
==>MP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519186	519483	
==>"NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520040	520337	
==>"NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520895	521192	
==>"NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	521750	522047	
==>"NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522604	522901	
==>"NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523459	523756	
==>"NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180629	180847	
==>/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181525	181743	
==>/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182421	182639	
==>/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183316	183534	
==>/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184212	184430	
==>/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185108	185326	
==>/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1 <==
6	/Users/nnunley/parrot/lib/Pod/Simple.pm	13293	13398	
==>s thru the undef, which will set source_dead to true
    }
    $self->parse_lines(@lines);
  }
  delete($s <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18524	18620	
==>0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $s <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19237	19333	
==>0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $s <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19725	19821	
==>0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $s <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20214	20310	
==>0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $s <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20703	20799	
==>0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $s <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154330	154627	
==>,
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155233	155530	
==>,
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156137	156434	
==>,
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157041	157338	
==>,
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157946	158243	
==>,
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714439	714586	
==>s"
                            ],
                  "BODY" => "#line 75 \"src/ops/python.ops\"\n  STRING * const s = {{\@1}};\n  PMC * const io = PI <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175570	175867	
==>,
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176473	176770	
==>,
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177377	177674	
==>,
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178281	178578	
==>,
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179186	179483	
==>,
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
6	/Users/nnunley/parrot/tools/build/ops2pm.pl	5231	5342	
==>d = <<"END_POD") =~ s/^    //osmg;
    =head1 NAME

    Parrot::OpLib::$package - Parrot Op Info

    =head1 DES <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1299	1413	
==>t->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub comp <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1290	1404	
==>t->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub comp <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1179	1293	
==>t->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub comp <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1638	1752	
==>t->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub comp <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1774	1888	
==>t->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub comp <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1417	1531	
==>t->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub comp <==
6	/Users/nnunley/parrot/editor/kate_syntax.pl	4659	4766	
==>rp" lineEndContext="#pop">
          <HlCStringChar attribute="SpChar" context="#stay" />
          <RegExpr <==
6	/Users/nnunley/parrot/lib/Test/Builder.pm	37067	37165	
==>rogram is free software; you can redistribute it and/or 
modify it under the same terms as Perl its <==
6	/Users/nnunley/parrot/lib/Test/More.pm	37476	37574	
==>rogram is free software; you can redistribute it and/or 
modify it under the same terms as Perl its <==
6	/Users/nnunley/parrot/lib/Test/Simple.pm	6436	6534	
==>rogram is free software; you can redistribute it and/or 
modify it under the same terms as Perl its <==
6	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16483	16580	
==>rogram is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
6	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1697	1794	
==>rogram is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519133	519462	
==>( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519987	520316	
==>( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520842	521171	
==>( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	521697	522026	
==>( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522551	522880	
==>( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523406	523735	
==>( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247628	247935	
==>? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	248492	248799	
==>? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	249356	249663	
==>? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/Config.pm	6689	6832	
==>define',
             'i_time' => undef,
             'i_unistd' => 'define',
             'i_ustat' => undef,
             'i_utime' => 'define <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627406	627496	
==>es the registers. */\n  {{\@1}} = pmc_new_noinit(interpreter, {{\@2}});\n  {{\@1}}->vtable- <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628550	628640	
==>es the registers. */\n  {{\@1}} = pmc_new_noinit(interpreter, {{\@2}});\n  {{\@1}}->vtable- <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540387	540493	
==>\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541639	541745	
==>\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542891	542997	
==>\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544160	544266	
==>\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545496	545602	
==>\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546832	546938	
==>\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836623	836879	
==>{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837355	837611	
==>{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838089	838345	
==>{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838821	839077	
==>{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS <==
6	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1167	1258	
==>::slurp_file($out_f);
        $pass =$self->{builder}->is_eq( Parrot::Test::slurp_file($out_ <==
6	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1208	1299	
==>::slurp_file($out_f);
        $pass =$self->{builder}->is_eq( Parrot::Test::slurp_file($out_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	339630	339942	
==>NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340628	340940	
==>NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341627	341939	
==>NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342626	342938	
==>NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10423	10532	
==>state ".
#DBG>						 $$states[$$stack[-1][0]]{ACTIONS}{error}.
#DBG>						 ".\n";

		push(@$stack, [ $$sta <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9955	10060	
==>state ".
#DBG>						 $$states[$$stack[-1][0]]{ACTIONS}{error}.
#DBG>						 ".\n";

		push(@$stack, [ $$sta <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550383	550484	
==>nd\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551684	551785	
==>nd\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554236	554337	
==>nd\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555633	555734	
==>nd\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558288	558389	
==>nd\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559672	559773	
==>nd\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n" <==
6	/Users/nnunley/parrot/lib/Text/Balanced.pm	62391	62490	
==>', or '%' at the start of
a variable, but didn't find any of them.

=item C<Bad identifier after der <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	923907	924172	
==>MP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924697	924962	
==>MP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11570	11784	
==>arg2'   => $key->[0],
                        );
                        $result = $result2;
                    }
                    push @opcodes, @{ $last_key->[1] };
                    my $assign = new Ke <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9790	9984	
==>arg2'   => $key->[0],
                    );
                    $result = $result2;
                }
                push @opcodes, @{ $last_key->[1] };
                my $assign = new Ke <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8685	8839	
==>arg2'   => $key->[0],
            );
            $result = $result2;
        }
        push @opcodes, @{ $last_key->[1] };
        my $assign = new Ke <==
6	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6574	6682	
==>resting
      
      if(!$self->{'start_of_pod_block'} and !$self->{'last_was_blank'}) {
        DEBUG > 1 an <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591483	591582	
==>};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_e <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592693	592792	
==>};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_e <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593903	594002	
==>};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_e <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595114	595213	
==>};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_e <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600126	600225	
==>};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_e <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601202	601301	
==>};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_e <==
6	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	785	880	
==>ntain a transcript of the svn:ignore properties
# of the directories in the Parrot subversion re <==
6	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3640	3735	
==>ntain a transcript of the svn:ignore properties
# of the directories in the Parrot subversion re <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579482	579572	
==>t exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(interpre <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580787	580877	
==>t exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(interpre <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582092	582182	
==>t exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(interpre <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583398	583488	
==>t exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(interpre <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11200	11319	
==>k right on
        #  all charsets that this module happens to run under.
        # Altho, hmm, what about that ord?  Pr <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17040	17159	
==>k right on
        #  all charsets that this module happens to run under.
        # Altho, hmm, what about that ord?  Pr <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4548	4665	
==>k right on
       #  all charsets that this module happens to run under.
       # Altho, hmm, what about that ord?  Pr <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2041	2152	
==>k right on
    #  all charsets that this module happens to run under.
    # Altho, hmm, what about that ord?  Pr <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10464	10575	
==>k right on
    #  all charsets that this module happens to run under.
    # Altho, hmm, what about that ord?  Pr <==
6	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2144	2255	
==>k right on
    #  all charsets that this module happens to run under.
    # Altho, hmm, what about that ord?  Pr <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576509	576595	
==>et_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577521	577607	
==>et_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579609	579695	
==>et_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580914	581000	
==>et_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582219	582305	
==>et_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583525	583611	
==>et_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072609	1072714	
==>e we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  } <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074794	1074899	
==>e we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  } <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076979	1077084	
==>e we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  } <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079165	1079270	
==>e we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  } <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826607	826694	
==>ntry->entry_type != STACK_ENTRY_FLOAT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827677	827764	
==>ntry->entry_type != STACK_ENTRY_FLOAT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	531467	531732	
==>" => 0,
                  "NAME" => "cosh",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
6	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21875	22017	
==>";
        next;
      }
      
      unless($content =~ m/^\S+$/) {  # i.e., unless it's one word
        $self->whine(
          $para->[1]{' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72552	72642	
==>c/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  fun <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74154	74244	
==>c/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  fun <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75756	75846	
==>c/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  fun <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77359	77449	
==>c/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  fun <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710913	711152	
==>S" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711747	711986	
==>S" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712853	713092	
==>S" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713960	714199	
==>S" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714882	715121	
==>S" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715805	716044	
==>S" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io", <==
6	/Users/nnunley/parrot/tools/build/pbc2c.pl	3771	3878	
==>} = 1 if $is_branch;
    }

    my $enternative;

FINDENTERN:
    foreach my $cur_op (@$Parrot::OpLib::core: <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066972	1067074	
==>= 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068158	1068260	
==>= 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069344	1069446	
==>= 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070531	1070633	
==>= 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3 <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1477	1573	
==>le($compiler);
      $compiler->outdent;
      $compiler->emit(".endnamespace ${namespace}_THEN") <==
6	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	968	1057	
==>eturn $new;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
6	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4062	4151	
==>eturn $new;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
6	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	752	841	
==>eturn $new;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
6	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	297	386	
==>eturn $new;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
6	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	604	693	
==>eturn $new;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
6	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	553	642	
==>eturn $new;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27990	28089	
==>RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30064	30163	
==>RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32265	32364	
==>RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34861	34960	
==>RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41971	42070	
==>RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74522	74619	
==>RecDescent::lastexpected
		    && !$Parse::RecDescent::failed++) {
			$Parse::RecDescent::expected <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576495	576589	
==>);\n  VTABLE_set_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interp <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577507	577601	
==>);\n  VTABLE_set_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interp <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579595	579689	
==>);\n  VTABLE_set_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interp <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580900	580994	
==>);\n  VTABLE_set_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interp <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582205	582299	
==>);\n  VTABLE_set_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interp <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583511	583605	
==>);\n  VTABLE_set_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interp <==
6	/Users/nnunley/parrot/lib/Parrot/Config.pm	3416	3545	
==>python' => 1,
             'has_python_2_4' => 1,
             'has_setitimer' => 'define',
             'has_sig_atomic_t' => 'de <==
6	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10740	10842	
==>h(shift) || return;
    
    return $self->file_with_path($path);
}

=item C<delete()>

Deletes the dir <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050151	1050248	
==>n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null class.\");\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051185	1051282	
==>n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null class.\");\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052219	1052316	
==>n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null class.\");\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053254	1053351	
==>n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null class.\");\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	923173	923349	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	923849	924025	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924639	924815	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [ <==
6	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	446	560	
==>_;
 
    
    my $test_prog_args = $ENV{TEST_PROG_ARGS} || q{};
    my $lang_fn        = Parrot::Test::per_test( '. <==
6	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	464	572	
==>_;

    my $test_prog_args = $ENV{TEST_PROG_ARGS} || q{};
    my $lang_fn        = Parrot::Test::per_test( '. <==
6	/Users/nnunley/parrot/lib/Text/Balanced.pm	31993	32086	
==>tracted substring is returned. In
a void context, the extracted substring (and any prefix) are <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471320	471644	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLA <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472307	472631	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLA <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473294	473618	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLA <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474284	474608	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLA <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475275	475599	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLA <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	14768	14883	
==>ue being 'else'.
      #

      elsif ($peer_block->kind eq 'if' or $peer_block->kind eq 'unless') {
        my $par <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31776	31883	
==>s($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$ <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33353	33460	
==>s($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$ <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35064	35171	
==>s($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$ <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36367	36474	
==>s($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$ <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38314	38421	
==>s($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$ <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40410	40517	
==>s($meth)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454066	454275	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454920	455129	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455775	455984	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456630	456839	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457484	457693	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458339	458548	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765817	766106	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766669	766958	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767522	767811	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768375	768664	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS <==
6	/Users/nnunley/parrot/config/auto/aio.pm	170	267	
==>O

=head1 DESCRIPTION

Determines whether the platform supports AIO.

=cut

package auto::aio;

us <==
6	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2851	2948	
==>files) {
	my $info = &describe_file($_);
	if($info->{desc}) {
	    print "\n* $info->{path}\n\n$in <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	508555	508767	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509186	509398	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509817	510029	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510472	510684	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511210	511422	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511948	512160	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/lib/Test/Simple.pm	2028	2136	
==>e test names.

All tests are run in scalar context.  So this:

    ok( @stuff, 'I have some stuff' );

will d <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9539	9634	
==>CURIC}

# It's a call. Get details of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${ <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7053	7148	
==>CURIC}

# It's a call. Get details of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${ <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5609	5704	
==>CURIC}

# It's a call. Get details of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${ <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7829	7924	
==>CURIC}

# It's a call. Get details of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${ <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37290	37378	
==>kahead} };

''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying repeated subrule <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584624	584723	
==>,\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, cl <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585699	585798	
==>,\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, cl <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586846	586945	
==>,\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, cl <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588032	588131	
==>,\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, cl <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589218	589317	
==>,\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, cl <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590405	590504	
==>,\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, cl <==
6	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	11092	11193	
==>, and complain
    DEBUG and print " Encoding [$e] is unsupported.",
      "\nSupporteds: @supported\n <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27340	27439	
==>instruction, just take that. If not, we need
		# to generate it from the "to generate" instruction d <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29807	29906	
==>instruction, just take that. If not, we need
		# to generate it from the "to generate" instruction d <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33225	33324	
==>instruction, just take that. If not, we need
		# to generate it from the "to generate" instruction d <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34479	34578	
==>instruction, just take that. If not, we need
		# to generate it from the "to generate" instruction d <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36889	36988	
==>instruction, just take that. If not, we need
		# to generate it from the "to generate" instruction d <==
6	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	1954	2081	
==>argument is an integer
    NUM       the argument is an numeric
    STR       the argument is an string
    PMC       the argume <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42401	42616	
==>,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_REST <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47108	47323	
==>,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_REST <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48698	48913	
==>,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_REST <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50298	50513	
==>,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_REST <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51891	52106	
==>,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_REST <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	6450	6643	
==>'name'}\n";
                } else {
                    $has_pop = 1;
                }
            } else {
                die "Invalid value for pop in rule $rule->{'name'}\n";
            } <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	625198	625315	
==>1);\n        args[0] = SIG_ELEMS(sig) ? \n            (_reg_base + ((opcode_t*)pred_pc)[2]) : NULL;\n    }\n    else\n <==
6	/Users/nnunley/parrot/config/auto/format.pm	112	207	
==>10975Z coke  $

=head1 NAME

config/auto/format.pm - Sprintf Formats

=head1 DESCRIPTION

Figure <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950561	950650	
==>eter, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951521	951610	
==>eter, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952481	952570	
==>eter, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953442	953531	
==>eter, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n <==
6	/Users/nnunley/parrot/lib/Parrot/Test.pm	15921	16060	
==>ailed with exit code $exit_code")
                  if $exit_code and not $pass;

            unless($ENV{POSTMORTEM}) {
                unl <==
6	/Users/nnunley/parrot/lib/Parrot/Test.pm	18472	18611	
==>ailed with exit code $exit_code")
                  if $exit_code and not $pass;

            unless($ENV{POSTMORTEM}) {
                unl <==
6	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	4082	4221	
==>ailed with exit code $exit_code")
                  if $exit_code and not $pass;

            unless($ENV{POSTMORTEM}) {
                unl <==
6	/Users/nnunley/parrot/lib/Parrot/Test.pm	25514	25635	
==>ailed with exit code $exit_code") if $exit_code and not $pass;

            unless($ENV{POSTMORTEM}) {
                unl <==
6	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	1734	1844	
==>ailed with exit code $exit_code")
    if $exit_code and not $pass;

    unless ($ENV{POSTMORTEM}) {
        unl <==
6	/Users/nnunley/parrot/languages/urm/urm-old.pl	1120	1217	
==>~ /if *(r\d) *= *(\d) *goto *(\d+)/) {
	$register{$1} = 0 unless defined $register{$1};
	if ($regi <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11206	11405	
==>ew_tmp( $parser, 'pmc' );
                        push @opcodes, new LocalDir( $parser,
                            'result' => $result2,
                        );
                        push @o <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9429	9612	
==>ew_tmp( $parser, 'pmc' );
                    push @opcodes, new LocalDir( $parser,
                        'result' => $result2,
                    );
                    push @o <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12726	12909	
==>ew_tmp( $parser, 'pmc' );
                    push @opcodes, new LocalDir( $parser,
                        'result' => $result2,
                    );
                    push @o <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8405	8556	
==>ew_tmp( $parser, 'pmc' );
            push @opcodes, new LocalDir( $parser,
                'result' => $result2,
            );
            push @o <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17619	17754	
==>ew_tmp( $parser, 'pmc' );
        push @opcodes, new LocalDir( $parser,
            'result' => $result2,
        );
        push @o <==
6	/Users/nnunley/parrot/editor/kate_syntax.pl	4051	4154	
==>-Z_][\\w_]*" />
      </context>

END

print <<END;
      <context name="pod" attribute="Comment" lineEn <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926655	926992	
==>\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928125	928462	
==>\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929595	929932	
==>\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931066	931403	
==>\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627245	627345	
==>\@2}});\n  }\n\n  /* Why?? If we're creating a continuation, the continuation PMC\n   * needs to be i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628389	628489	
==>\@2}});\n  }\n\n  /* Why?? If we're creating a continuation, the continuation PMC\n   * needs to be i <==
6	/Users/nnunley/parrot/languages/python/pie-thon.pl	6574	6696	
==>args{$arg}}; $i--) {
	    my $reg = 4 + $i;
	    my $d = pop @{$def_args{$arg}};
	    my $arg_name = pop @params;
	    $may <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10932	11049	
==>t')) {
      $out .= $t;
    } elsif($t->is_text) {
      $out .= $t->text;
    } elsif($t->is_start and $t->tag eq 'X <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7275	7387	
==>urn $pir;
}

sub post_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If the register nam <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5097	5209	
==>urn $pir;
}

sub post_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If the register nam <==
6	/Users/nnunley/parrot/lib/Test/Builder.pm	27744	27850	
==>sts[0], etc...

=cut

sub summary {
    my($self) = shift;

    return map { $_->{'ok'} } @{ $self->{Test_R <==
6	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	26137	26238	
==>on case
        $list_type = $self->_get_initial_item_type($paras->[0]);

      } elsif($paras->[0][0] <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23847	23951	
==>arse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;
		') <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22435	22537	
==>arse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE; ') <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21023	21124	
==>arse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;') <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27332	27433	
==>arse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;') <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29442	29543	
==>arse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;') <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31539	31640	
==>arse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;') <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18183	18445	
==>{{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18992	19254	
==>{{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21346	21608	
==>{{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22160	22422	
==>{{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305655	305917	
==>{{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307224	307486	
==>{{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550223	550317	
==>mc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_exception(i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551524	551618	
==>mc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_exception(i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554076	554170	
==>mc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_exception(i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555473	555567	
==>mc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_exception(i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558128	558222	
==>mc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_exception(i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559512	559606	
==>mc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_exception(i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773256	773454	
==>"p",
                              "ki",
                              "i"
                            ],
                  "BODY" => "#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540391	540495	
==>NTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541643	541747	
==>NTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542895	542999	
==>NTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544164	544268	
==>NTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545500	545604	
==>NTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546836	546940	
==>NTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960638	960958	
==>"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1081,
                  "ARGS" => [
                              "s",
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 595 \"src/o <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8206	8330	
==>_ == 0) {
        die "Must always have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    } <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8988	9112	
==>_ == 0) {
        die "Must always have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    } <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7859	7983	
==>_ == 0) {
        die "Must always have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    } <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8648	8772	
==>_ == 0) {
        die "Must always have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    } <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5331	5435	
==>= @_;
    return ("<rx_match>{\"$group\"} = [];");
}

sub output_setstart {
    my ($self, $group, $value <==
6	/Users/nnunley/parrot/lib/Parrot/Config.pm	4271	4416	
==>lass' => undef,
             'i_gdbm' => undef,
             'i_grp' => 'define',
             'i_ieeefp' => undef,
             'i_inttypes' => ' <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19822	19919	
==>name=$syms[CURR];
			feedme;
			die "Expected 'as' got $syms[CURR] (source line $sourceline)" unle <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712583	712674	
==>interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(int <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713690	713781	
==>interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(int <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720050	720141	
==>interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(int <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721250	721341	
==>interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(int <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550447	550701	
==>r, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551748	552002	
==>r, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552939	553193	
==>r, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558352	558606	
==>r, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559736	559990	
==>r, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560957	561211	
==>r, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636541	636808	
==>unction",
                  "CODE" => 712,
                  "ARGS" => [
                              "p",
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 107 \"src/ops/pmc.ops\"\ <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	22313	22440	
==>,
    );
    my @opcodes = ();
    my $flag = new_tmp( $parser, 'int' );
    push @opcodes, @{ $expr1->[1] };
    push @opc <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858630	858720	
==>ith negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859634	859724	
==>ith negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860638	860728	
==>ith negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861643	861733	
==>ith negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}} <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1146	1241	
==>$where)>

Reimplements the superclass method so that C<$where> is suitably cast.

=cut

sub gen_ <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18499	18590	
==>_constant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{chi <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19212	19303	
==>_constant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{chi <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19700	19791	
==>_constant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{chi <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20189	20280	
==>_constant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{chi <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20678	20769	
==>_constant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{chi <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476265	476604	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480841	481180	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481844	482183	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482847	483186	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483845	484184	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484844	485183	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258522	258841	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259465	259784	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260316	260635	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261168	261487	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262020	262339	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	6163	6270	
==>ected;
}

sub _contains($@)
{
	my $target = shift;
	my $item;
	foreach $item ( @_ ) { return 1 if $target eq <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454665	454927	
==>src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455520	455782	
==>src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456375	456637	
==>src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457229	457491	
==>src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458084	458346	
==>src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458939	459201	
==>src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568769	569066	
==>NAME" => "isa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569661	569958	
==>NAME" => "isa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570554	570851	
==>NAME" => "isa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571508	571805	
==>NAME" => "isa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2649	2756	
==>lock handled by superclass?

sub kind  { return shift->{KIND};     }
sub type  { return shift->{TYPE};     } <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2766	2863	
==>lock handled by superclass?

sub kind { return shift->{KIND}; }
sub type { return shift->{TYPE}; } <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27492	27598	
==>->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$ <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29959	30065	
==>->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$ <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33377	33483	
==>->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$ <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34631	34737	
==>->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$ <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37041	37147	
==>->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$ <==
6	/Users/nnunley/parrot/config/init/hints/openbsd.pm	48	135	
==>: /parrot/config/init/hints/openbsd.pm 19593 2006-05-30T02:28:15.110975Z coke  $

packag <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9556	9793	
==>lt2,
                    );
                    push @opcodes, new KeyedGetOp(
                        $parser,
                        'result' => $result2,
                        'arg1'   => $result,
                        'arg2 <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11341	11573	
==>lt2,
                        );
                        push @opcodes, new KeyedGetOp( $parser,
                            'result' => $result2,
                            'arg1'   => $result,
                            'arg2 <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12853	13065	
==>lt2,
                    );
                    push @opcodes, new KeyedGetOp( $parser,
                        'result' => $result2,
                        'arg1'   => $result,
                        'arg2 <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8516	8688	
==>lt2,
            );
            push @opcodes, new KeyedGetOp( $parser,
                'result' => $result2,
                'arg1'   => $result,
                'arg2 <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17722	17874	
==>lt2,
        );
        push @opcodes, new KeyedGetOp( $parser,
            'result' => $result2,
            'arg1'   => $result,
            'arg2 <==
6	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	26321	26452	
==>hift @$paras;
        next;
        
      } elsif($paras->[0][0] eq '~end') {
        $self->whine(
          $para->[1]{'start_lin <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710886	711149	
==>",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711720	711983	
==>",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712826	713089	
==>",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713933	714196	
==>",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714855	715118	
==>",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715778	716041	
==>",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_i <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	785	894	
==>lass;

  $block->push_content($self);

  return $self;
}

sub ident  { return shift->{IDENT};  }


#
# compile <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	785	894	
==>lass;

  $block->push_content($self);

  return $self;
}

sub ident  { return shift->{IDENT};  }


#
# compile <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2049	2142	
==>egister type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEM <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3301	3394	
==>egister type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEM <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5930	6023	
==>egister type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEM <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6488	6581	
==>egister type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEM <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741906	742043	
==>"
                            ],
                  "BODY" => "#line 169 \"src/ops/set.ops\"\n  {{\@1}} = string_copy(interpreter, {{\@2}}) <==
6	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	5296	5426	
==>conversions{ $arg->{type} };
        $code .= emit("a_$name = $convert(a_$name)")
            if $convert;
        
        # defau <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25182	25285	
==>} ? @{$node->{children}} - 1 : 0;

  if($num_children==0) {
    $return = $self->_constant(0);
  } elsif <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27082	27185	
==>} ? @{$node->{children}} - 1 : 0;

  if($num_children==0) {
    $return = $self->_constant(0);
  } elsif <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24294	24396	
==>} ? @{$node->{children}} - 1 : 0;
  if($num_children==0) {
    $return = $self->_constant(0);
  } elsif <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26193	26295	
==>} ? @{$node->{children}} - 1: 0;

  if($num_children==0) {
    $return = $self->_constant(0);
  } elsif <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492277	492541	
==>=> 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493037	493301	
==>=> 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499010	499274	
==>=> 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499772	500036	
==>=> 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function" <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2754	2852	
==>INT "ERR this line in main routine should be skipped"
Label1:
   PRINT "5 back in module-level code <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16721	16819	
==>INT "ERR this line in main routine should be skipped"
Label1:
   PRINT "5 back in module-level code <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519703	519989	
==>src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520558	520844	
==>src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	521413	521699	
==>src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522267	522553	
==>src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523122	523408	
==>src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523977	524263	
==>src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	849	951	
==>=item C<defines()>

Returns the C C<#define> macros required by the ops.

=cut

sub defines
{
    retur <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	785	887	
==>=item C<defines()>

Returns the C C<#define> macros required by the ops.

=cut

sub defines
{
    retur <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	805	907	
==>=item C<defines()>

Returns the C C<#define> macros required by the ops.

=cut

sub defines
{
    retur <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	979	1081	
==>=item C<defines()>

Returns the C C<#define> macros required by the ops.

=cut

sub defines
{
    retur <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	524	626	
==>=item C<defines()>

Returns the C C<#define> macros required by the ops.

=cut

sub defines
{
    retur <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	14317	14416	
==>die "Op $sym not implemented?";
			}
			push @work, [ "($op1->[0] $sym $op2->[0])", "RESULT", "\$$op <==
6	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	407	512	
==>ew {
  my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  #$new <==
6	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	705	809	
==>ew {
  my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	211	315	
==>ew {
  my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	210	314	
==>ew {
  my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new <==
6	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	459	563	
==>ew {
  my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new <==
6	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	171	275	
==>ew {
  my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6080	6209	
==>exists($$actions{ACTIONS}{$$token})
                    ?   $$actions{ACTIONS}{$$token}
                    :   exists($$actions <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5792	5919	
==>exists($$actions{ACTIONS}{$$token})
                    ?   $$actions{ACTIONS}{$$token}
                    :   exists($$actions <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72605	72691	
==>ring(interpreter, ({{\@3}}));\n\n  funcptr_t p = D2FPTR(Parrot_dlsym(PMC_IS_NULL({{\@2} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74207	74293	
==>ring(interpreter, ({{\@3}}));\n\n  funcptr_t p = D2FPTR(Parrot_dlsym(PMC_IS_NULL({{\@2} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75809	75895	
==>ring(interpreter, ({{\@3}}));\n\n  funcptr_t p = D2FPTR(Parrot_dlsym(PMC_IS_NULL({{\@2} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77412	77498	
==>ring(interpreter, ({{\@3}}));\n\n  funcptr_t p = D2FPTR(Parrot_dlsym(PMC_IS_NULL({{\@2} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634857	635163	
==>class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635975	636281	
==>class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637093	637399	
==>class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638212	638518	
==>class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
6	/Users/nnunley/parrot/examples/benchmarks/mops.pl	884	1166	
==>rations:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, I1
                              #
print "Estimated ops: $I <==
6	/Users/nnunley/parrot/examples/mops/mops.pl	884	1166	
==>rations:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, I1
                              #
print "Estimated ops: $I <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361764	361918	
==>terpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362663	362817	
==>terpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363565	363719	
==>terpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364468	364622	
==>terpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367045	367199	
==>terpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
6	/Users/nnunley/parrot/tools/build/jit2c.pl	804	919	
==>EG      => 'p',
    STRING_REG   => 's',
    STR_REG      => 's',
);

my $core_numops = scalar @{$Parrot::OpLib::cor <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231183	231483	
==>mp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232087	232387	
==>mp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232991	233291	
==>mp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233894	234194	
==>mp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234798	235098	
==>mp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235702	236002	
==>mp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471222	471331	
==>interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472209	472318	
==>interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473196	473305	
==>interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474186	474295	
==>interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475177	475286	
==>interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476168	476277	
==>interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047740	1048003	
==>P_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functio <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048663	1048926	
==>P_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functio <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072393	1072501	
==>kp1;\n  }\n  {{\@1}} = r1;\n  {{\@2}} = (INTVAL)( xk * pow( -1, n ) );\n  {{\@3}} = (INTVAL)( yk * pow( -1, n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074578	1074686	
==>kp1;\n  }\n  {{\@1}} = r1;\n  {{\@2}} = (INTVAL)( xk * pow( -1, n ) );\n  {{\@3}} = (INTVAL)( yk * pow( -1, n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076763	1076871	
==>kp1;\n  }\n  {{\@1}} = r1;\n  {{\@2}} = (INTVAL)( xk * pow( -1, n ) );\n  {{\@3}} = (INTVAL)( yk * pow( -1, n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078949	1079057	
==>kp1;\n  }\n  {{\@1}} = r1;\n  {{\@2}} = (INTVAL)( xk * pow( -1, n ) );\n  {{\@3}} = (INTVAL)( yk * pow( -1, n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519188	519486	
==>AME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520042	520340	
==>AME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520897	521195	
==>AME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	521752	522050	
==>AME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522606	522904	
==>AME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523461	523759	
==>AME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31657	31767	
==>e, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::i <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33234	33344	
==>e, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::i <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34945	35055	
==>e, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::i <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36248	36358	
==>e, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::i <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38195	38305	
==>e, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::i <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40291	40401	
==>e, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714664	714764	
==>PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interprete <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715587	715687	
==>PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interprete <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716532	716632	
==>PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interprete <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722351	722451	
==>PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interprete <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723380	723480	
==>PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interprete <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724424	724524	
==>PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interprete <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381854	382122	
==>> "function",
                  "CODE" => 446,
                  "ARGS" => [
                              "p",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 455 \"src/ops/io.ops\ <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	17332	17440	
==>]}) ? 0 : 1;
}

# XXX quick hack - to get MMD variants
sub get_super_mmds {
    my ($self, $meth, $right, $fu <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584440	584532	
==>ass = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_N <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585515	585607	
==>ass = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_N <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597956	598048	
==>ass = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_N <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599003	599095	
==>ass = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_N <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2988	3096	
==>op. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR' <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4746	4854	
==>op. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR' <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1910	2018	
==>op. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR' <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3162	3270	
==>op. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR' <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1201	1309	
==>op. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR' <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2911	3019	
==>op. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR' <==
6	/Users/nnunley/parrot/tools/dev/nm.pl	1800	1893	
==>-type=long>

=item C<-L>

Append a long type (e.g. "global_const_init_data" versus "R") to the <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18980	19070	
==>}
  $self->_add_inst('','set',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self->_re <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19468	19558	
==>}
  $self->_add_inst('','set',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self->_re <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19956	20046	
==>}
  $self->_add_inst('','set',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self->_re <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20445	20535	
==>}
  $self->_add_inst('','set',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self->_re <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20934	21024	
==>}
  $self->_add_inst('','set',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self->_re <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253211	253529	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254073	254391	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254936	255254	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19460	19592	
==>40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 100, <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21625	21757	
==>40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 100, <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33140	33272	
==>40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 100, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605140	605399	
==>(interpreter, {{\@2}}, {{\@1}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	99634	99891	
==>(interpreter, {{\@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104080	104337	
==>(interpreter, {{\@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	252195	252452	
==>(interpreter, {{\@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450126	450383	
==>(interpreter, {{\@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	512530	512787	
==>(interpreter, {{\@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
6	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	696	807	
==>for proper nesting

my $block_begin = qr{ ( ^ \.sub | ^push_eh) }smx;

my $block_end = qr{
  (
    ^\.end$
    | <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27571	27671	
==>>{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for ru <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30038	30138	
==>>{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for ru <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33456	33556	
==>>{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for ru <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34710	34810	
==>>{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for ru <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37120	37220	
==>>{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for ru <==
6	/Users/nnunley/parrot/lib/Pod/Escapes.pm	3945	4068	
==>ig'    , 198,
 'Ccedil'   , 199,
 'Egrave'   , 200,
 'Eacute'   , 201,
 'Ecirc'    , 202,
 'Euml'     , 203,
 'Igrave'   , 2 <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4519	4611	
==>$block = $self->current_block();
      my $ident = Jako::Construct::Expression::Value::Identi <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	10765	10857	
==>$block = $self->current_block();
      my $ident = Jako::Construct::Expression::Value::Identi <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16179	16271	
==>$block = $self->current_block();
      my $ident = Jako::Construct::Expression::Value::Identi <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16950	17042	
==>$block = $self->current_block();
      my $ident = Jako::Construct::Expression::Value::Identi <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17755	17847	
==>$block = $self->current_block();
      my $ident = Jako::Construct::Expression::Value::Identi <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747288	747375	
==>s\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748073	748160	
==>s\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753582	753669	
==>s\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754370	754457	
==>s\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324704	324790	
==>s\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}},{{\@2}});\n  {{+=3}};\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325497	325583	
==>s\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}},{{\@2}});\n  {{+=3}};\n <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33940	34046	
==>k types array.
		$pir .= "    type_trans = pop stypes\n";
	}

	# Branches (branch class).
	elsif ($rule->{' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494483	494772	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495351	495640	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496219	496508	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497088	497377	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497958	498247	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498828	499117	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
6	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	3127	3219	
==>tem C<dump()>

Provides a L<Data::Dumper> serialized string of the objects key/value pairs
su <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31662	31770	
==>ut_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::impl <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33239	33347	
==>ut_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::impl <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34950	35058	
==>ut_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::impl <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36253	36361	
==>ut_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::impl <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38200	38308	
==>ut_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::impl <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40296	40404	
==>ut_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::impl <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262857	263184	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263803	264130	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264656	264983	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265510	265837	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266364	266691	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	7757	7909	
==>, 'dod'),
            $self->c_source_item('', 'cpu_dep'),
        ),
        $self->new_group(
            'Debugging', 
            '',
            $se <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27415	27518	
==>o generate" instruction directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29882	29985	
==>o generate" instruction directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33300	33403	
==>o generate" instruction directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34554	34657	
==>o generate" instruction directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36964	37067	
==>o generate" instruction directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub <==
6	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	11131	11225	
==>odo, Str :$depends) returns Bool is export`
- `unlike (Str $got, Rule $expected, Str $desc?, Bo <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688201	688475	
==>{{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "de <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655621	655894	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "de <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663750	664023	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "de <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664522	664795	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "de <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665298	665571	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "de <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759908	760181	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "de <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740028	740293	
==>" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 832 <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18411	18516	
==>y ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19124	19229	
==>y ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19612	19717	
==>y ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20101	20206	
==>y ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20590	20695	
==>y ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680674	680762	
==>=> "#line 488 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_pmc(interpreter, {{\@1}}, <==
6	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2424	2551	
==>oose(@vars)
##
## Select the first defined variable.
##
sub choose {
    for (@_) {
        return $_ if defined $_;
    }
    r <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	1249	1352	
==>lf->{NAME} = $name;
	
	return $self;
}

=back

=head2 Instance Methods

=over 4

=item C<name()>

Return <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712391	712484	
==>ftspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  s = Parrot_sprintf_c(in <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713498	713591	
==>ftspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  s = Parrot_sprintf_c(in <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719858	719951	
==>ftspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  s = Parrot_sprintf_c(in <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721058	721151	
==>ftspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  s = Parrot_sprintf_c(in <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896658	897123	
==>RS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1012,
                  "ARGS" => [
                              "s",
                              "i",
                              "i",
                              "s"
                            ], <==
6	/Users/nnunley/parrot/config/inter/lex.pm	1764	1871	
==>($util));
    }

    my ($stdout, $stderr, $ret) = capture_output($prog, '--version');

    # don't override <==
6	/Users/nnunley/parrot/config/inter/make.pm	1638	1745	
==>($util));
    }

    my ($stdout, $stderr, $ret) = capture_output($prog, '--version');

    # don't override <==
6	/Users/nnunley/parrot/config/inter/yacc.pm	1778	1885	
==>($util));
    }

    my ($stdout, $stderr, $ret) = capture_output($prog, '--version');

    # don't override <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835760	835842	
==>nterpreter->ctx)->user_stack, string_copy(interpreter, {{\@1}}), STACK_ENTRY_STRING <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836513	836595	
==>nterpreter->ctx)->user_stack, string_copy(interpreter, {{\@1}}), STACK_ENTRY_STRING <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20988	21086	
==>::_trace(q{Trying action},
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	805	892	
==>SAL::isa($left, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($right) <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	643	730	
==>SAL::isa($left, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($right) <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	796	883	
==>SAL::isa($left, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($right) <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	685	772	
==>SAL::isa($left, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($right) <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	634	721	
==>SAL::isa($left, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($right) <==
6	/Users/nnunley/parrot/tools/dev/lib_deps.pl	3280	3465	
==>tion block
        if (/FUNCTION : (.*) \[(.*)\]/) {
            $function = $1;
            my $function_scope = $2;
            
            next;
        }
        
        # end of f <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4375	4471	
==>$failLabel) = @_;
    my $comment = Regex::Ops::Tree::isplain($code) ? " # match '".chr($code)."' <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4062	4158	
==>$failLabel) = @_;
    my $comment = Regex::Ops::Tree::isplain($code) ? " # match '".chr($code)."' <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	623	717	
==>::Construct::Block));
  confess "Type (" . ref($type) . ") is not!"  unless UNIVERSAL::isa($typ <==
6	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2319	2412	
==>led_else($file, $source);
    check_comments($file, $source);
    check_mandatory_boilerplate( <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	614	706	
==>::Construct::Block));
  confess "Type (". ref($type) . ") is not!" unless UNIVERSAL::isa($typ <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11250	11368	
==>e happens to run under.
        # Altho, hmm, what about that ord?  Presumably that won't work right
        #  under n <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17090	17208	
==>e happens to run under.
        # Altho, hmm, what about that ord?  Presumably that won't work right
        #  under n <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4597	4713	
==>e happens to run under.
       # Altho, hmm, what about that ord?  Presumably that won't work right
       #  under n <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2087	2197	
==>e happens to run under.
    # Altho, hmm, what about that ord?  Presumably that won't work right
    #  under n <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10510	10620	
==>e happens to run under.
    # Altho, hmm, what about that ord?  Presumably that won't work right
    #  under n <==
6	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2190	2300	
==>e happens to run under.
    # Altho, hmm, what about that ord?  Presumably that won't work right
    #  under n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819738	819969	
==>et_entry_type(interpreter, entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820698	820929	
==>et_entry_type(interpreter, entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
6	/Users/nnunley/parrot/lib/Test/More.pm	18073	18192	
==>C);
    Tried to use '$module'.
    Error:  $@
DIAGNOSTIC

    }

    return $ok;
}

=item B<require_ok>

   require_ok( <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	2253	2353	
==>),
        $self->new_section('Python', 'python.html', '', 'languages/python'),
        $self->new_se <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063328	1063421	
==>BODY" => "#line 253 \"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064198	1064291	
==>BODY" => "#line 253 \"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519117	519448	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519971	520302	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520826	521157	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	521681	522012	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522535	522866	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523390	523721	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084029	1084290	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085081	1085342	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086134	1086395	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087187	1087448	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
6	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1525	1658	
==>er = shift;
    my $str    = q{};
    my $type   = 'STRING';

    while ( $parser->YYData->{INPUT} ) {

        for ( $parser->Y <==
6	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3040	3173	
==>er = shift;
    my $str    = q{};
    my $type   = 'STRING';

    while ( $parser->YYData->{INPUT} ) {

        for ( $parser->Y <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550419	550641	
==>t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551720	551942	
==>t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552911	553133	
==>t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558324	558546	
==>t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559708	559930	
==>t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560929	561151	
==>t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31639	31753	
==>elf, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($ <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33216	33330	
==>elf, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($ <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34927	35041	
==>elf, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($ <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36230	36344	
==>elf, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($ <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38177	38291	
==>elf, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($ <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40273	40387	
==>elf, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($ <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	3794	3911	
==>ext;
    }

    if ($text =~ m{^([\{\}])(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, $1 eq '{ <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18473	18570	
==>ym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  f <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19186	19283	
==>ym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  f <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19674	19771	
==>ym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  f <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20163	20260	
==>ym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  f <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20652	20749	
==>ym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  f <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550458	550712	
==>mc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551759	552013	
==>mc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552950	553204	
==>mc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558363	558617	
==>mc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559747	560001	
==>mc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560968	561222	
==>mc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
6	/Users/nnunley/parrot/config/inter/make.pm	1471	1599	
==>lf->set_result('no');
            return $self;
        }
    }

    if ($conf->options->get('ask')) {
        $prog = prompt($pr <==
6	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7595	7723	
==>le::Spec->devnull
            if $_ and $_ eq '/dev/null';
    }

    if ($out and $err and $out eq $err) {
        $err = "&STDO <==
6	/Users/nnunley/parrot/tools/build/vtable_extend.pl	1223	1324	
==>kwards compatibility for as long as we possibly
can.

=head2 Functions

=over 4

=cut

*/

/* Some int <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	453	547	
==>b _handle_element_start {
  # ($self, $element_name, $attr_hash_r)
  my $fh = $_[0]{'output_fh' <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	452	546	
==>b _handle_element_start {
  # ($self, $element_name, $attr_hash_r)
  my $fh = $_[0]{'output_fh' <==
6	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	647	741	
==>b _handle_element_start {
  # ($self, $element_name, $attr_hash_r)
  my $fh = $_[0]{'output_fh' <==
6	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	5587	5715	
==>ail:
            print "rule error"
          end:
        .end\n);
}

sub _generate_subrule_pir {
    my($target, $pattern) = @_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867257	867366	
==>{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LA <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868223	868332	
==>{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LA <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869189	869298	
==>{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LA <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870156	870265	
==>{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LA <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61508	61614	
==>ine);
			$prod and $prod->additem($item)
			      or  _no_rule("pattern terminal",$line,$code);
		}
		elsif <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1885	1999	
==>compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $block = $self->block;
  my $kind  = $self->kind;
  my $ <==
6	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	9964	10064	
==>erms of the available parrot opcodes.
neg_five:  # arcsinh(x) = ln(x+sqrt(x*x+1))
    $N1 = op2 * op2 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344479	344568	
==>(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Un <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345721	345810	
==>(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Un <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346963	347052	
==>(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Un <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348206	348295	
==>(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Un <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550442	550694	
==>preter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551743	551995	
==>preter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552934	553186	
==>preter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558347	558599	
==>preter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559731	559983	
==>preter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560952	561204	
==>preter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090882	1090991	
==>vtable->slice(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1091942	1092051	
==>vtable->slice(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1 <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25150	25249	
==>ldren = defined $node->{children} ? @{$node->{children}} - 1 : 0;

  if($num_children==0) {
    $ret <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27050	27149	
==>ldren = defined $node->{children} ? @{$node->{children}} - 1 : 0;

  if($num_children==0) {
    $ret <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24262	24360	
==>ldren = defined $node->{children} ? @{$node->{children}} - 1 : 0;
  if($num_children==0) {
    $ret <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26161	26259	
==>ldren = defined $node->{children} ? @{$node->{children}} - 1: 0;

  if($num_children==0) {
    $ret <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550464	550717	
==>xt);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551765	552018	
==>xt);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552956	553209	
==>xt);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558369	558622	
==>xt);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559753	560006	
==>xt);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560974	561227	
==>xt);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDR <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18921	19014	
==>0,$temp_1,"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$ret <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19409	19502	
==>0,$temp_1,"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$ret <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19897	19990	
==>0,$temp_1,"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$ret <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20386	20479	
==>0,$temp_1,"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$ret <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20875	20968	
==>0,$temp_1,"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$ret <==
6	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	5225	5315	
==>->{DEVEL} eq "devel" ? "repository snapshot" : "release",
	  runcore2human($_[0]->{runcore} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072905	1073247	
==>-{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075090	1075432	
==>-{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077275	1077617	
==>-{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079461	1079803	
==>-{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5236	5335	
==>op;
  my $right = $self->right;

  $handler->start_element({ Name => 'assign' });
  $dest->sax($hand <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3299	3398	
==>op;
  my $right = $self->right;

  $handler->start_element({ Name => 'assign' });
  $dest->sax($hand <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024544	1024828	
==>0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025300	1025584	
==>0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026057	1026341	
==>0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026813	1027097	
==>0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11 <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	12251	12360	
==>y ($self, $name, $mode, $uid) = @_;
#    if ($mode) {
        return split(/\n/, <<"END");
\$$uid = _rule_$nam <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30819	30915	
==>t_load\n";
		$pir .= sub_meta($post_load, $mv, "post_load for rule $rule->{'name'}");
		$pir .= " <==
6	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	649	755	
==>y ( $code, $test_no ) = @_;
  
  # flatten filenames (don't use directories)
  my $code_f   = Parrot::Test: <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27490	27591	
==>le->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29957	30058	
==>le->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33375	33476	
==>le->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34629	34730	
==>le->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37039	37140	
==>le->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1337	1454	
==>->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1328	1445	
==>->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1217	1334	
==>->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1676	1793	
==>->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1812	1929	
==>->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1455	1572	
==>->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154326	154623	
==>IVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155229	155526	
==>IVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156133	156430	
==>IVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157037	157334	
==>IVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157942	158239	
==>IVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	13075	13297	
==>ey->[0],
                    );
                    $result = $result2;
                    $key    = $key2;
                    push @opcodes, @{ $key->[1] };
                }
                my $assign = new KeyedS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175327	175609	
==>> [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176230	176512	
==>> [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177134	177416	
==>> [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178038	178320	
==>> [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178943	179225	
==>> [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr", <==
6	/Users/nnunley/parrot/lib/Text/Balanced.pm	44157	44252	
==>ke substring (including trailing modifiers),

=item [1]

the remainder of the input text,

=item <==
6	/Users/nnunley/parrot/tools/build/jit2c.pl	13821	13931	
==>_numops ops\n");

sub make_subs {
    my ($ptr, $type, $index) = @_;

    return(($ptr eq '&' ? '&' : '') . spr <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18560	18653	
==>n}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_generate($node->{children}[ <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19273	19366	
==>n}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_generate($node->{children}[ <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19761	19854	
==>n}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_generate($node->{children}[ <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20250	20343	
==>n}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_generate($node->{children}[ <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20739	20832	
==>n}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_generate($node->{children}[ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576505	576593	
==>LE_set_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interprete <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577517	577605	
==>LE_set_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interprete <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579605	579693	
==>LE_set_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interprete <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580910	580998	
==>LE_set_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interprete <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582215	582303	
==>LE_set_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interprete <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583521	583609	
==>LE_set_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interprete <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1290	1411	
==>turn shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub co <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1281	1402	
==>turn shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub co <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1170	1291	
==>turn shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub co <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1629	1750	
==>turn shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub co <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1765	1886	
==>turn shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub co <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1408	1529	
==>turn shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub co <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16381	16472	
==>(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16723	16814	
==>(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1846	1937	
==>(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9924	10015	
==>(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10167	10258	
==>(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ <==
6	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1949	2040	
==>(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ <==
6	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7248	7365	
==>elf->{'pod_para_count'};
        
        $self->_ponder_paragraph_buffer();
         # by now it's safe to consider t <==
6	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7866	7978	
==>elf->{'pod_para_count'};
          $self->_ponder_paragraph_buffer();
           # by now it's safe to consider t <==
6	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	8223	8331	
==>elf->{'pod_para_count'};
        $self->_ponder_paragraph_buffer();
         # by now it's safe to consider t <==
6	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	5902	6006	
==>elf->{'pod_para_count'};
      $self->_ponder_paragraph_buffer();
       # by now it's safe to consider t <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	973	1057	
==>PC ((size_t)((opcode_t*)cur_opcode - (opcode_t*)interpreter->code->prederef.code))
#d <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1103	1187	
==>PC ((size_t)((opcode_t*)cur_opcode - (opcode_t*)interpreter->code->prederef.code))
#d <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	448362	448600	
==>PE" => "inline",
                  "CODE" => 513,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 180 \"src/ops/math.ops\" <==
6	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	975	1061	
==>new;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

su <==
6	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	759	845	
==>new;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

su <==
6	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	304	390	
==>new;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

su <==
6	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	611	697	
==>new;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

su <==
6	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	560	646	
==>new;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

su <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332343	332441	
==>o.ops\"\n  /* These char * need to go away soon */\n  const char * const mode = string_to_cstring(i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333621	333719	
==>o.ops\"\n  /* These char * need to go away soon */\n  const char * const mode = string_to_cstring(i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334899	334997	
==>o.ops\"\n  /* These char * need to go away soon */\n  const char * const mode = string_to_cstring(i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336178	336276	
==>o.ops\"\n  /* These char * need to go away soon */\n  const char * const mode = string_to_cstring(i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434487	434576	
==>\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435502	435591	
==>\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11305	11417	
==>t that ord?  Presumably that won't work right
        #  under non-ASCII charsets.  Something should be done abou <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17145	17257	
==>t that ord?  Presumably that won't work right
        #  under non-ASCII charsets.  Something should be done abou <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4651	4762	
==>t that ord?  Presumably that won't work right
       #  under non-ASCII charsets.  Something should be done abou <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2138	2246	
==>t that ord?  Presumably that won't work right
    #  under non-ASCII charsets.  Something should be done abou <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10561	10669	
==>t that ord?  Presumably that won't work right
    #  under non-ASCII charsets.  Something should be done abou <==
6	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2241	2349	
==>t that ord?  Presumably that won't work right
    #  under non-ASCII charsets.  Something should be done abou <==
6	/Users/nnunley/parrot/lib/Pod/Simple.pm	43434	43539	
==>BUG > 1 and print "Ogling E<$content>\n";

      $charnum  = Pod::Escapes::e2charnum($content);
      DEBU <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27575	27676	
==>ame'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $r <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30042	30143	
==>ame'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $r <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33460	33561	
==>ame'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $r <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34714	34815	
==>ame'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $r <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37124	37225	
==>ame'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $r <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	4848	4955	
==>ml = '<p>' . $index_html . "</p>\n";
    }
    
    return $index_html;
}

=item C<contents_relative_to_sour <==
6	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1892	1991	
==>ot, $expected, $depends);
}

## unlike

sub unlike (Str $got, Rule $expected, Str $desc?, :$todo, :$ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11010	11093	
==>erpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATI <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11799	11882	
==>erpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATI <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13036	13119	
==>erpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATI <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13880	13963	
==>erpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATI <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2476	2573	
==>block', Attributes => { kind => 'test' } });
    $handler->start_element({ Name => 'op', Attribute <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2353	2450	
==>block', Attributes => { kind => 'test' } });
    $handler->start_element({ Name => 'op', Attribute <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2746	2843	
==>block', Attributes => { kind => 'test' } });
    $handler->start_element({ Name => 'op', Attribute <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3420	3517	
==>block', Attributes => { kind => 'test' } });
    $handler->start_element({ Name => 'op', Attribute <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3510	3607	
==>block', Attributes => { kind => 'test' } });
    $handler->start_element({ Name => 'op', Attribute <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	187	276	
==>ko/lib/Jako/Construct/Statement/Call.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use s <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9613	9808	
==>pcodes, new KeyedGetOp(
                        $parser,
                        'result' => $result2,
                        'arg1'   => $result,
                        'arg2'   => $key->[0 <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11406	11588	
==>pcodes, new KeyedGetOp( $parser,
                            'result' => $result2,
                            'arg1'   => $result,
                            'arg2'   => $key->[0 <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12910	13080	
==>pcodes, new KeyedGetOp( $parser,
                        'result' => $result2,
                        'arg1'   => $result,
                        'arg2'   => $key->[0 <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8557	8703	
==>pcodes, new KeyedGetOp( $parser,
                'result' => $result2,
                'arg1'   => $result,
                'arg2'   => $key->[0 <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17755	17889	
==>pcodes, new KeyedGetOp( $parser,
            'result' => $result2,
            'arg1'   => $result,
            'arg2'   => $key->[0 <==
6	/Users/nnunley/parrot/lib/Test/Builder.pm	17561	17677	
==>AILOUT {
    my($self, $reason) = @_;

    $self->_print("Bail out!  $reason");
    exit 255;
}

=item B<skip>

    $ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324184	324470	
==>( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324976	325262	
==>( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325769	326055	
==>( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326559	326845	
==>( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327360	327646	
==>( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	790	898	
==>mpiler->outdent;
  $compiler->emit(".end");

  foreach my $construct ($self->content) {
    if (
         $co <==
6	/Users/nnunley/parrot/lib/Pod/Simple.pm	11262	11353	
==>}
  
  return;
}


#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
6	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	46891	46980	
==>}

  return;
}


#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
6	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	52540	52627	
==>}
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2109	2196	
==>}
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2257	2344	
==>}
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
6	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2360	2447	
==>}
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506132	506551	
==>re",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 582,
                  "ARGS" => [
                              "n",
                              "n",
                              "n"
                            ], <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22156	22249	
==>right = Jako::Construct::Expression::Value->new($block, $self->require_value);

        $self- <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23089	23182	
==>right = Jako::Construct::Expression::Value->new($block, $self->require_value);

        $self- <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24735	24827	
==>right = Jako::Construct::Expression::Value->new($block, $self->require_value);
        $self- <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9916	10007	
==>right = Jako::Construct::Expression::Value->new($block, $self->require_value);

      $self- <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25452	25543	
==>right = Jako::Construct::Expression::Value->new($block, $self->require_value);

      $self- <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454079	454410	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454933	455264	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455788	456119	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456643	456974	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457497	457828	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458352	458683	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283427	283745	
==>,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 33 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284272	284590	
==>,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 33 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285148	285466	
==>,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 33 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286025	286343	
==>,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 33 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286902	287220	
==>,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 33 <==
6	/Users/nnunley/parrot/lib/Parrot/Op.pm	5589	5686	
==>dy()>. For auto ops
this method adds a final C<goto NEXT()> line to the code to represent
the auto <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540641	540782	
==>while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541893	542034	
==>while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543145	543286	
==>while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544428	544569	
==>while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545764	545905	
==>while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547100	547241	
==>while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b) <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	7807	7913	
==>@codeb and not @codef) {
		push @{$code{$seg}->{code}},<<BNOTF;
@codeb  noop
	_screen_color($resultb)	# Bro <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050148	1050244	
==>\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null class.\" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051182	1051278	
==>\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null class.\" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052216	1052312	
==>\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null class.\" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053251	1053347	
==>\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null class.\" <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	971	1066	
==>turn "rx_oneof P0, $class, ".$self->output_label_use($failLabel);
}

sub output_start {
    my ( <==
6	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	1896	2068	
==>exists $symbtab->{table}{$symb} ) {
                            my $defn = $symbtab->{table}{$symb};

                        #                        warn "\tfound in $s <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	27099	27205	
==>{
        return ($lastback, aop('external' => [ $extname, $extargs, $lastback ]));
    }
}

sub describe_s <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	906	995	
==>Value") unless UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	744	833	
==>Value") unless UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	897	986	
==>Value") unless UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	786	875	
==>Value") unless UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830744	831013	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831485	831754	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832212	832481	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832940	833209	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833662	833931	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834387	834656	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1092895	1093198	
==>\n    {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1097678	1097981	
==>\n    {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106427	1106730	
==>\n    {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107403	1107706	
==>\n    {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093699	1094000	
==>\n  {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094502	1094803	
==>\n  {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
6	/Users/nnunley/parrot/lib/Text/Balanced.pm	57299	57510	
==>rsing:

        @fields = extract_multiple($csv_text,
                                  [
                                        sub { extract_delimited($_[0],q{'"}) },
                                        qr <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072193	1072332	
==>2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = x <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074378	1074517	
==>2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = x <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076563	1076702	
==>2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = x <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078749	1078888	
==>2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = x <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	3616	3725	
==>ift;
  my ($offset) = @_;

  $offset = 1 unless defined $offset;

  my $pos = $self->pos;

  $self->INTERNAL_E <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2995	3105	
==>d to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get t <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4753	4863	
==>d to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get t <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1917	2027	
==>d to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get t <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3169	3279	
==>d to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get t <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1208	1318	
==>d to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get t <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2918	3028	
==>d to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get t <==
6	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	1709	1823	
==>~ /^[[:graph:]]$/;  # CCLASS_GRAPHICAL      
    $ret |= 0x0100 if $chr =~ /^[[:blank:]]$/;  # CCLASS_BLANK  
    $ <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	1167	1277	
==>ft(@$types), shift(@$vals) if (@$types);
        return ('', undef);
    };
    my $parser = new Regex::Grammar <==
6	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	932	1036	
==>harset tables.
 *  Data Structure and Algorithms:
 *  History:
 *  Notes:
 *  References:
 */
HEADER

=ov <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10763	10864	
==>: Jako::Construct::Block

  confess "No block!"        unless defined $self and ref $self and $self->i <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4439	4534	
==>: Jako::Construct::Block

  confess "No block!"  unless defined $self and ref $self and $self->i <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4946	5041	
==>: Jako::Construct::Block

  confess "No block!"  unless defined $self and ref $self and $self->i <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10349	10443	
==>: Jako::Construct::Block

  confess "No block!" unless defined $self and ref $self and $self->i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516179	516464	
==>( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516917	517202	
==>( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517656	517941	
==>( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518394	518679	
==>( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "i <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3186	3284	
==>ysub(b,c)
	print "Print me"
	exit sub
	print "Don't print me"
end sub
function foo$
	foo$="Right on <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17153	17251	
==>ysub(b,c)
	print "Print me"
	exit sub
	print "Don't print me"
end sub
function foo$
	foo$="Right on <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186067	186340	
==>@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186997	187270	
==>@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187927	188200	
==>@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193606	193879	
==>@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194585	194858	
==>@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
6	/Users/nnunley/parrot/editor/ops2vim.pl	232	341	
==>ameter has been passed
@ARGV = @ARGV
    ? map {glob $_} @ARGV
    : die "usage: " . basename($0) . " FILE [ F <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93367	93623	
==>1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94147	94403	
==>1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109691	109947	
==>1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110470	110726	
==>1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133896	134152	
==>1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134677	134933	
==>1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908740	909057	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909636	909953	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910533	910850	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911430	911747	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19989	20097	
==>ression, but here its treated as a statment with the assign.
      #

      my $call = Jako::Construct::Expre <==
6	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	12449	12533	
==>90\sa180\f2\fs%s\ul\sbasedon0 \snext0 pod-head3;}
{\s34\ql \keepn\sb90\sa180\f2\fs%s\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137629	137927	
==>ATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138524	138822	
==>ATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139420	139718	
==>ATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140316	140614	
==>ATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141211	141509	
==>ATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142107	142405	
==>ATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158843	159143	
==>ATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159739	160039	
==>ATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160636	160936	
==>ATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161533	161833	
==>ATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162429	162729	
==>ATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163326	163626	
==>ATIVE",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910999	911171	
==>",
                              "sc"
                            ],
                  "BODY" => "#line 284 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interprete <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911897	912069	
==>",
                              "sc"
                            ],
                  "BODY" => "#line 284 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interprete <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916911	917083	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interprete <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917923	918095	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interprete <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918935	919107	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interprete <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919948	920120	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interprete <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2885	2976	
==>SO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans: <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	6339	6430	
==>SO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans: <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4555	4646	
==>SO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans: <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4532	4623	
==>SO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans: <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3916	4007	
==>SO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans: <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1278	1368	
==>*)cur_opcode)[o])

END
}

=item C<goto_address($address)>

Transforms the C<goto ADDRESS($a <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2804	2905	
==>>start_element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
    $left->sax($hand <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3478	3579	
==>>start_element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
    $left->sax($hand <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3568	3669	
==>>start_element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
    $left->sax($hand <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5353	5452	
==>>start_element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
  $left->sax($hand <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3416	3515	
==>>start_element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
  $left->sax($hand <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	552	644	
==>o::Construct::Block');
  confess("Ident (" . ref($ident) . ") is not!") unless UNIVERSAL::isa <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454095	454413	
==>( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454949	455267	
==>( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455804	456122	
==>( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456659	456977	
==>( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457513	457831	
==>( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458368	458686	
==>( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	195806	195967	
==>{
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt_num",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
6	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	915	1022	
==><< "EOF";
/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatic <==
6	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1116	1223	
==><< "EOF";
/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatic <==
6	/Users/nnunley/parrot/tools/build/revision_c.pl	491	597	
==><<"EOF";
/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatic <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18461	18559	
==>rn {
	if ($type[NEXT] ne "BARE") {
		push @{$code{$seg}->{code}}, <<RETURN1;
	JUMPLABEL= ""
	ret
RE <==
6	/Users/nnunley/parrot/tools/build/ops2pm.pl	1348	1445	
==>at it was a mechanism for building a bigger
virtual ops file from multiple physical ops files.

Th <==
6	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	486	606	
==>%% DOMAIN_ERROR %%
power_ok:
    $N1 = %1
    $N2 = %2
    $N1 = pow $N1, $N2
	%1 = $N1

END_PIR

    '\x{d7}' => [ 'Mult <==
6	/Users/nnunley/parrot/lib/Parrot/Config.pm	10967	11054	
==>ManagedStruct ManagedStruct delegate CSub Compiler Exception Version VtableCache ParrotI <==
6	/Users/nnunley/parrot/lib/Parrot/Config.pm	2009	2093	
==>e -Wformat-nonliteral -Wformat-security -Wpacked -Wdisabled-optimization -falign-func <==
6	/Users/nnunley/parrot/tools/build/dynclasses.pl	1329	1413	
==>e -Wformat-nonliteral -Wformat-security -Wpacked -Wdisabled-optimization -falign-func <==
6	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1374	1458	
==>e -Wformat-nonliteral -Wformat-security -Wpacked -Wdisabled-optimization -falign-func <==
6	/Users/nnunley/parrot/tools/build/dynpmc.pl	1378	1462	
==>e -Wformat-nonliteral -Wformat-security -Wpacked -Wdisabled-optimization -falign-func <==
6	/Users/nnunley/parrot/languages/python/pie-thon.pl	29341	29464	
==>$tos = pop @stack;
    my $seq = $tos->[1];
    my ($p, $i);
    for ($i = $n-1; $i >= 0; $i--) {
	$p = temp('P');
	print << <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	2143	2246	
==>ent block.\n", __PACKAGE__;

  return 1 unless $self->content;

#  if ($options->{PACKAGE}) {
#    $opti <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332464	332555	
==>n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333742	333833	
==>n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335020	335111	
==>n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336299	336390	
==>n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6780	6929	
==>== 0
#DBG>				and	do {
#DBG>					print STDERR "**End of Error recovery.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push(@ <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6465	6606	
==>== 0
#DBG>				and	do {
#DBG>					print STDERR "**End of Error recovery.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push(@ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832070	832153	
==>2 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832798	832881	
==>2 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834247	834330	
==>2 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834973	835056	
==>2 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061277	1061452	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061948	1062123	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062817	1062992	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063686	1063861	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064556	1064731	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065429	1065604	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
6	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	892	999	
==>less($key =~ m/^~/s) {
        next if $key eq 'start_line' and $_[0]{'hide_line_numbers'};
        _xml_esc <==
6	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1166	1273	
==>less($key =~ m/^~/s) {
        next if $key eq 'start_line' and $_[0]{'hide_line_numbers'};
        _xml_esc <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29338	29441	
==>NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying terminal: [' . $self->describe
					  . ']},
					  P <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31435	31538	
==>NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying terminal: [' . $self->describe
					  . ']},
					  P <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	711	814	
==>less($key =~ m/^~/s) {
      next if $key eq 'start_line' and $_[0]{'hide_line_numbers'};
      _xml_esc <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27235	27331	
==>NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying terminal: [' . $self->describe
					  . ']}, P <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164835	165127	
==>) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165764	166056	
==>) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166693	166985	
==>) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	174299	174591	
==>) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175248	175540	
==>) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	26169	26324	
==>ke(interpreter, p, {{^+1}});\n  {{=dest}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271127	271414	
==>\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271973	272260	
==>\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272819	273106	
==>\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273664	273951	
==>\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	274510	274797	
==>\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	275356	275643	
==>\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454127	454449	
==>0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454981	455303	
==>0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455836	456158	
==>0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456691	457013	
==>0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457545	457867	
==>0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458400	458722	
==>0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	42075	42190	
==>d;
      }
      $self->_add_inst ('','set',["P$count",$arg]);
    }
    $count++;
  }

  $self->_add_inst('', 'set' <==
6	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	3876	3986	
==>e the full paths of all the files in the directory.

=cut

sub file_paths()
{
    my $self = shift;

    return <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634748	634839	
==>2}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new_from_str <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635866	635957	
==>2}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new_from_str <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636984	637075	
==>2}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new_from_str <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638103	638194	
==>2}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new_from_str <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27402	27503	
==>t from the "to generate" instruction directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) { <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29869	29970	
==>t from the "to generate" instruction directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) { <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33287	33388	
==>t from the "to generate" instruction directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) { <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34541	34642	
==>t from the "to generate" instruction directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) { <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36951	37052	
==>t from the "to generate" instruction directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) { <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6069	6159	
==>Jako::Construct::Type->new($self->require_type);

      $self->INTERNAL_ERROR("Could not de <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471236	471334	
==>ULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472223	472321	
==>ULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473210	473308	
==>ULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474200	474298	
==>ULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475191	475289	
==>ULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476182	476280	
==>ULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849619	849888	
==>line",
                  "CODE" => 964,
                  "ARGS" => [
                              "s",
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 83 \"src/ops/string.ops\"\n  { <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11198	11371	
==>ult2 = new_tmp( $parser, 'pmc' );
                        push @opcodes, new LocalDir( $parser,
                            'result' => $result2,
                        ) <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9421	9582	
==>ult2 = new_tmp( $parser, 'pmc' );
                    push @opcodes, new LocalDir( $parser,
                        'result' => $result2,
                    ) <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12718	12879	
==>ult2 = new_tmp( $parser, 'pmc' );
                    push @opcodes, new LocalDir( $parser,
                        'result' => $result2,
                    ) <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8397	8534	
==>ult2 = new_tmp( $parser, 'pmc' );
            push @opcodes, new LocalDir( $parser,
                'result' => $result2,
            ) <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17611	17736	
==>ult2 = new_tmp( $parser, 'pmc' );
        push @opcodes, new LocalDir( $parser,
            'result' => $result2,
        ) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480130	480434	
==>E" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 55 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481132	481436	
==>E" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 55 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482135	482439	
==>E" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 55 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483138	483442	
==>E" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 55 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484136	484440	
==>E" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 55 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485135	485439	
==>E" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 55 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454709	455015	
==>\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455564	455870	
==>\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456419	456725	
==>\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457273	457579	
==>\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458128	458434	
==>\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add <==
6	/Users/nnunley/parrot/config/init/hints/aix.pm	167	313	
==>ub runstep
{
    my ($self, $conf) = @_;

    $conf->data->set(
        cc           => 'cc_r',
        link         => 'cc_r',
        platform_as <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380326	380630	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381337	381641	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382349	382653	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383361	383665	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384374	384678	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base <==
6	/Users/nnunley/parrot/lib/Test/Builder.pm	30387	30494	
==>vel);
    return 0 unless $pack;

    no strict 'refs';
    return defined ${$pack.'::TODO'} ? ${$pack.'::TO <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14658	14792	
==>7
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29 <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17708	17842	
==>7
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29 <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21477	21611	
==>7
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29 <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24666	24800	
==>7
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29 <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	32992	33126	
==>7
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29 <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40240	40374	
==>7
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500354	500642	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501092	501380	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501831	502119	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502569	502857	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503308	503596	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
6	/Users/nnunley/parrot/tools/build/pmc2c.pl	18603	18740	
==>$file, 1);

    my $fh = open_file( "<", $file );

    my $class;
    eval do { local $/; <$fh> };
    die $@ if $@;

    close $fh;
    $ <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28033	28130	
==>:RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse::RecDescent::lastexpecte <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30107	30204	
==>:RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse::RecDescent::lastexpecte <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32308	32405	
==>:RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse::RecDescent::lastexpecte <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34904	35001	
==>:RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse::RecDescent::lastexpecte <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42014	42111	
==>:RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse::RecDescent::lastexpecte <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74564	74660	
==>:RecDescent::failed++) {
			$Parse::RecDescent::expected
			    = $Parse::RecDescent::lastexpecte <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262851	263160	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263797	264106	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264650	264959	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265504	265813	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266358	266667	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3765	3858	
==>num );
}

=item C<restart_address($address)>

Returns the C code for C<restart ADDRESS($addres <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572439	572703	
==>> 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573348	573612	
==>> 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574258	574522	
==>> 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575061	575325	
==>> 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "i <==
6	/Users/nnunley/parrot/tools/build/nativecall.pl	6246	6399	
==>et}, $ret_assign{$ret},
                 \@temps,
                 \@extra_preamble, \@extra_postamble,
                 \@put_pointer,
                 \ <==
6	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	9402	9516	
==>arg->{optional};

        # XXX this isn't quite right. Need to be more clever with options.
        $max++ if $arg <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28010	28125	
==>cted
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse::RecDescent::lastex <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30084	30199	
==>cted
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse::RecDescent::lastex <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32285	32400	
==>cted
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse::RecDescent::lastex <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34881	34996	
==>cted
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse::RecDescent::lastex <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41991	42106	
==>cted
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse::RecDescent::lastex <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74542	74655	
==>cted
		    && !$Parse::RecDescent::failed++) {
			$Parse::RecDescent::expected
			    = $Parse::RecDescent::lastex <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	10827	10940	
==>_pos, $rx_stack) = @_;');
#    }

    if ($self->{DEBUG}) {
        push @ops, qq(print "Calling $name at \$rx_pos <==
6	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2424	2521	
==>ing against the Perl 6 pattern, passing the test
if the output produced by the test code matches t <==
6	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3858	3955	
==>ing against the Perl 6 pattern, passing the test
if the output produced by the test code matches t <==
6	/Users/nnunley/parrot/config/gen/core_pmcs.pm	297	389	
==>e strict;
use warnings;

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure:: <==
6	/Users/nnunley/parrot/config/inter/pmc.pm	274	366	
==>e strict;
use warnings;

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure:: <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6735	6823	
==>PES}[${ITEMP2}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP1}["reg_type_short"]
${STEMP0} = conca <==
6	/Users/nnunley/parrot/lib/Pod/Simple.pm	4246	4331	
==>}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

#su <==
6	/Users/nnunley/parrot/lib/Pod/Simple.pm	3948	4032	
==>}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

su <==
6	/Users/nnunley/parrot/lib/Pod/Simple.pm	4953	5037	
==>}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

su <==
6	/Users/nnunley/parrot/lib/Pod/Simple.pm	15962	16046	
==>}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

su <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	368	452	
==>}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

su <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	367	451	
==>}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

su <==
6	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	28452	28569	
==>(', ', map $_->[0], @$curr_open), ").\n";
        $self->whine(
          $para->[1]{'start_line'},
          '=back w <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22165	22256	
==>ako::Construct::Expression::Value->new($block, $self->require_value);

        $self->requir <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23098	23189	
==>ako::Construct::Expression::Value->new($block, $self->require_value);

        $self->requir <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24744	24834	
==>ako::Construct::Expression::Value->new($block, $self->require_value);
        $self->requir <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9925	10014	
==>ako::Construct::Expression::Value->new($block, $self->require_value);

      $self->requir <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25461	25550	
==>ako::Construct::Expression::Value->new($block, $self->require_value);

      $self->requir <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175515	175678	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176418	176581	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177322	177485	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178226	178389	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179131	179294	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6745	6844	
==>Blocks for a Block with the
specified kind (such as a while loop) and label (if given).

This is use <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519748	520054	
==>@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520603	520909	
==>@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	521458	521764	
==>@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522312	522618	
==>@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523167	523473	
==>@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub" <==
6	/Users/nnunley/parrot/tools/build/dynclasses.pl	972	1069	
==>];
our $LOAD_EXT = qq[.bundle];
our $O = qq[.o];
our $CFLAGS = qq[-g -pipe -fno-common -no-cpp-pre <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605157	605436	
==>@2}}, {{\@1}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	99651	99928	
==>@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104097	104374	
==>@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	252212	252489	
==>@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450143	450420	
==>@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	512547	512824	
==>@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627532	627823	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628676	628967	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629739	630030	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630728	631019	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631718	632009	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924480	924771	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => " <==
6	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	5894	6002	
==>., unless it's a zero-length "empty line" at the very
         #  end of "foo\nbar\n" (i.e., between the \n a <==
6	/Users/nnunley/parrot/lib/Pod/Simple.pm	11838	11944	
==>., unless it's a zero-length "empty line" at the very
       #  end of "foo\nbar\n" (i.e., between the \n a <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084732	1084819	
==>ental.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085785	1085872	
==>ental.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086838	1086925	
==>ental.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087892	1087979	
==>ental.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}} <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2829	2928	
==>id *const l_ops_addr[] = {
END_C
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::OpTrans>

=item <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27317	27421	
==>If we have PIR for the instruction, just take that. If not, we need
		# to generate it from the "to gener <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29784	29888	
==>If we have PIR for the instruction, just take that. If not, we need
		# to generate it from the "to gener <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33202	33306	
==>If we have PIR for the instruction, just take that. If not, we need
		# to generate it from the "to gener <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34456	34560	
==>If we have PIR for the instruction, just take that. If not, we need
		# to generate it from the "to gener <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36866	36970	
==>If we have PIR for the instruction, just take that. If not, we need
		# to generate it from the "to gener <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	23372	23475	
==>turns out to me. We also keep track of the fact that ARG0 should
	# only exist inside this rule.
	my @ar <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31689	31800	
==>h = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($meth)) {
        my $n <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33266	33377	
==>h = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($meth)) {
        my $n <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34977	35088	
==>h = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($meth)) {
        my $n <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36280	36391	
==>h = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($meth)) {
        my $n <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38227	38338	
==>h = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($meth)) {
        my $n <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40323	40434	
==>h = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($meth)) {
        my $n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550365	550464	
==>thod '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, nex <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551666	551765	
==>thod '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, nex <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554218	554317	
==>thod '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, nex <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555615	555714	
==>thod '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, nex <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558270	558369	
==>thod '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, nex <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559654	559753	
==>thod '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, nex <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	5477	5593	
==>opcodes1 = ();
    my @opcodes2 = ();
    my $result   = new_tmp( $parser, 'pmc', 'table' );
    push @opcodes1, n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210271	210365	
==>ter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) <= 0) {\n    {{+={{\@3} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211251	211345	
==>ter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) <= 0) {\n    {{+={{\@3} <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5459	5552	
==>dd_inst ('', 'set', [$pair.'[0]',$item]);
      $self->_add_inst ('', 'set', [$pair.'[1]',$ret <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17010	17099	
==>dd_inst ('', 'set',[$pair.'[0]',$item]);
    $self->_add_inst ('', 'set',[$pair.'[1]',$ret <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6499	6586	
==>dd_inst('', 'set', [$pair.'[0]',$item]);
  $self->_add_inst('', 'set', [$pair.'[1]',$ret <==
6	/Users/nnunley/parrot/config/auto/env.pm	490	603	
==>args        = qw(verbose);

sub runstep
{
    my ($self, $conf) = (shift, shift);

    my $verbose = $conf->option <==
6	/Users/nnunley/parrot/config/auto/gdbm.pm	538	644	
==>args = qw(verbose);

sub runstep
{
    my ($self, $conf) = (shift, shift);

    my $verbose = $conf->option <==
6	/Users/nnunley/parrot/config/auto/msvc.pm	499	605	
==>args = qw(verbose);

sub runstep
{
    my ($self, $conf) = (shift, shift);

    my $verbose = $conf->option <==
6	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7231	7326	
==>, $line, "Improper indenting for \"$_\"\n(should be \"#$indent$2\" because it is inside of " . ( <==
6	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7538	7633	
==>, $line, "Improper indenting for \"$_\"\n(should be \"#$indent$2\" because it is inside of " . ( <==
6	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7896	7991	
==>, $line, "Improper indenting for \"$_\"\n(should be \"#$indent$2\" because it is inside of " . ( <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	5306	5479	
==>t' => $defn,
                );
            }
        }
        return [ $defn, \@opcodes ];
    }
}

sub BuildTable {
    my ( $parser, $fields ) = @_;
    my @opc <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2916	3012	
==>$right->sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ N <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3590	3686	
==>$right->sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ N <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3680	3776	
==>$right->sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ N <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5461	5553	
==>$right->sax($handler);
  $handler->end_element({ Name => 'op' });
  $handler->end_element({ N <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3524	3616	
==>$right->sax($handler);
  $handler->end_element({ Name => 'op' });
  $handler->end_element({ N <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323992	324281	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324784	325073	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325577	325866	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326367	326656	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327168	327457	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	2544	2653	
==>int OUT $self->_code();

		print OUT "}\npackage $class; sub new { ";
# SEAN: this is bad.
# 		print OUT "my " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459204	459545	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460191	460532	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461179	461520	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462167	462508	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463163	463504	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464160	464501	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323985	324276	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324777	325068	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325570	325861	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326360	326651	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327161	327452	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2984	3085	
==>':' . __LINE__ . ' File not found:' . $name ."\n";

    return;
}

=item C<c_header_file_directories() <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27452	27557	
==>$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir fo <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29919	30024	
==>$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir fo <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33337	33442	
==>$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir fo <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34591	34696	
==>$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir fo <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37001	37106	
==>$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir fo <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24001	24095	
==>rays{"${var}${seg}"}=1;
			#print STDERR "Marking ${var}${seg}\n";
			push @{$code{$seg}->{code <==
6	/Users/nnunley/parrot/lib/Parrot/Op.pm	6557	6660	
==>t($1);  /me;
    s/{{-=([^{]*?)}}/     $trans->goto_offset(-$1); /me;
    s/{{=([^*][^{]*?)}}/  $trans-> <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18466	18559	
==>->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_generate($node->{childre <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19179	19272	
==>->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_generate($node->{childre <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19667	19760	
==>->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_generate($node->{childre <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20156	20249	
==>->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_generate($node->{childre <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20645	20738	
==>->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_generate($node->{childre <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522124	522327	
==>,
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 744 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}} <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18556	18649	
==>ldren}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_generate($node->{childr <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19269	19362	
==>ldren}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_generate($node->{childr <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19757	19850	
==>ldren}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_generate($node->{childr <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20246	20339	
==>ldren}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_generate($node->{childr <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20735	20828	
==>ldren}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_generate($node->{childr <==
6	/Users/nnunley/parrot/lib/Class/Struct.pm	16033	16178	
==>};
    }

    package main;
    $x = new MyObj;
    print "\$x->count(5) = ", $x->count(5), "\n";
                            # prints '$x->count( <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	15974	16066	
==>s)>

=item C<esc($string)>

Reimplemented here to silence a C<Pod::Simple::HTML> warning.

=c <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080418	1080510	
==>{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \"Illegal P <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081483	1081575	
==>{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \"Illegal P <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082548	1082640	
==>{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \"Illegal P <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083614	1083706	
==>{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \"Illegal P <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	986	1089	
==>less UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK     = <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	998	1101	
==>less UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK     = <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	916	1015	
==>less UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK = <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	754	853	
==>less UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK = <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	907	1006	
==>less UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK = <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	796	895	
==>less UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480045	480330	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481047	481332	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482050	482335	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483053	483338	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484051	484336	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485050	485335	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062609	1062873	
==>@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063478	1063742	
==>@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064348	1064612	
==>@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065221	1065485	
==>@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066095	1066359	
==>@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
6	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15511	15607	
==>s Bool;

Because these functions will be mutually recursive, they will easily be
able handle arbi <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175494	175648	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_co <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176397	176551	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_co <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177301	177455	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_co <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178205	178359	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_co <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179110	179264	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_co <==
6	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	16529	16626	
==>on events.

This is a subclass of L<Pod::Simple> and inherits all its methods.

A subclass of Pod: <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18422	18530	
==>ode) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $se <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19135	19243	
==>ode) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $se <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19623	19731	
==>ode) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $se <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20112	20220	
==>ode) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $se <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20601	20709	
==>ode) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $se <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	3094	3181	
==>self->new_item('Documents incompatible changes to Parrot that invalidate existing byteco <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958659	958957	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959460	959758	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960262	960560	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961223	961521	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962185	962483	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963147	963445	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133288	133479	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134068	134259	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134849	135040	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135742	135933	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136636	136827	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
6	/Users/nnunley/parrot/lib/Pod/Simple.pm	9819	9930	
==>itself -- just so that when we
    #  see "=extend W [whatever] thatelementname", we say that W maps
    #  to w <==
6	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	525	648	
==>pattern = <$spec_fh>;
    chomp($pattern);

    $_ = <$spec_fh>;
    my @spec;
    while (1) {
         my ($input, $output) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54889	55162	
==>2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interp <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55649	55922	
==>2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interp <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56410	56683	
==>2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interp <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57172	57445	
==>2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interp <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57933	58206	
==>2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interp <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	509	609	
==>r mapper\n";
}

# Extra subroutines required for the mapper.
sub subs {
	die "subs not implemented fo <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072255	1072387	
==>r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    y <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074440	1074572	
==>r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    y <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076625	1076757	
==>r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    y <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078811	1078943	
==>r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    y <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1194	1317	
==>turns a new section.

=cut

sub new
{
    my $self = shift;

    return $self->SUPER::new(
        'Contents', 
        'ind <==
6	/Users/nnunley/parrot/tools/build/jit2c.pl	544	650	
==>OpTrans::C;

my $trans = Parrot::OpTrans::C->new;

my %type_to_arg = (
    INT_CONST    => 'ic',
    NUM_CO <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4685	4782	
==>e C<goto ADDRESS($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1350	1447	
==>e C<goto ADDRESS($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1875	1972	
==>e C<goto ADDRESS($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1766	1863	
==>e C<goto ADDRESS($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1490	1587	
==>e C<goto ADDRESS($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address <==
6	/Users/nnunley/parrot/lib/Test/More.pm	20649	20745	
==>your plan is C<no_plan> $how_many is optional and will default to 1.

It's perfectly safe to nest <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	40	135	
==>est.pm 4793 2005-05-31T14:22:35.671857Z svm  $

package Scheme::Test;

use strict;
use vars qw(@ <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11203	11402	
==>= new_tmp( $parser, 'pmc' );
                        push @opcodes, new LocalDir( $parser,
                            'result' => $result2,
                        );
                        push <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9426	9609	
==>= new_tmp( $parser, 'pmc' );
                    push @opcodes, new LocalDir( $parser,
                        'result' => $result2,
                    );
                    push <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12723	12906	
==>= new_tmp( $parser, 'pmc' );
                    push @opcodes, new LocalDir( $parser,
                        'result' => $result2,
                    );
                    push <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8402	8553	
==>= new_tmp( $parser, 'pmc' );
            push @opcodes, new LocalDir( $parser,
                'result' => $result2,
            );
            push <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17616	17751	
==>= new_tmp( $parser, 'pmc' );
        push @opcodes, new LocalDir( $parser,
            'result' => $result2,
        );
        push <==
6	/Users/nnunley/parrot/lib/Text/Balanced.pm	3542	3649	
==>ted (;$$$)
{
	my $textref = defined $_[0] ? \$_[0] : \$_;
	my $ldel = defined $_[1] ? $_[1] : '{([<';
	my $p <==
6	/Users/nnunley/parrot/languages/APL/t/APL.pm	209	316	
==>kip_all => "APL tests require Test::Base.;";';
    exit 0;
  }
}

use Parrot::Config;
use Parrot::Test;

our <==
6	/Users/nnunley/parrot/languages/python/pie-thon.pl	426	519	
==>in_names, %namespace, %may_be_none);
$DIS = 'python mydis.py';
$DEFVAR = 'PerlInt';

getopts(' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10998	11081	
==>ack_push(interpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STACK_ENT <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11787	11870	
==>ack_push(interpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STACK_ENT <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13024	13107	
==>ack_push(interpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STACK_ENT <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13868	13951	
==>ack_push(interpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STACK_ENT <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	620	724	
==>e "Unimplemented: variable-length advances with rx backend";
    } else {
        return ("rx_advance P0, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769963	770063	
==>{{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = { <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770816	770916	
==>{{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = { <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771669	771769	
==>{{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = { <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772523	772623	
==>{{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = { <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	17736	17831	
==>o'} = $prevoffset;
		$itempos[$#itempos]{'line'}{'to'}   = $prevline;
		$itempos[$#itempos]{'col <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32752	32860	
==>pir .= "### typeinfo\n";
		    $pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			    "typeinfo for rule $rule->{ <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26760	26860	
==>pir .= "### typeinfo\n";
		$pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{ <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28476	28576	
==>pir .= "### typeinfo\n";
		$pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{ <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36458	36558	
==>pir .= "### typeinfo\n";
		$pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{ <==
6	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2399	2481	
==>enchmarks/mops.pasm>,
F<examples/mops/mops.c>,
F<examples/mops/mops.cs>,
F<examples <==
6	/Users/nnunley/parrot/examples/mops/mops.pl	2399	2481	
==>enchmarks/mops.pasm>,
F<examples/mops/mops.c>,
F<examples/mops/mops.cs>,
F<examples <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504089	504413	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504944	505268	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505799	506123	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506653	506977	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507508	507832	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => " <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13937	14038	
==>rint 100, 103
type first
	foo as integer
	bar as string
end type
type second
	pointer as first
	number <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2578	2689	
==>$value) = @_;
    $reg = value($reg);
    return "set $reg, $value";
}

sub output_print {
    my ($self, $what) <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3919	4021	
==>::Block
  my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless defined $s <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7828	7930	
==>::Block
  my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless defined $s <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8475	8577	
==>::Block
  my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless defined $s <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9143	9245	
==>::Block
  my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless defined $s <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9812	9914	
==>::Block
  my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless defined $s <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710872	711134	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLA <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711706	711968	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLA <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712812	713074	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLA <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713919	714181	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLA <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714841	715103	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLA <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715764	716026	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLA <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1261	1387	
==>ot::Test::run_command( 
            "./parrot languages/$pasm_f",
            CD => '..', # $self->{relpath}, 
            STDO <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27363	27468	
==>that. If not, we need
		# to generate it from the "to generate" instruction directive.
		$pir .= "### tran <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29830	29935	
==>that. If not, we need
		# to generate it from the "to generate" instruction directive.
		$pir .= "### tran <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33248	33353	
==>that. If not, we need
		# to generate it from the "to generate" instruction directive.
		$pir .= "### tran <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34502	34607	
==>that. If not, we need
		# to generate it from the "to generate" instruction directive.
		$pir .= "### tran <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36912	37017	
==>that. If not, we need
		# to generate it from the "to generate" instruction directive.
		$pir .= "### tran <==
6	/Users/nnunley/parrot/config/gen/PodText.pm	1151	1258	
==>Pod::Text->new(width => 79);

    my $count = 0; # number of processed files
    foreach my $pod (keys %docs <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361781	362016	
==>}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362680	362915	
==>}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363582	363817	
==>}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364485	364720	
==>}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367062	367297	
==>}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	1782	1891	
==>kethrough=s
    ]  # no point in providing a way to get <q>...</q>, I think
  ),
  
  '/item-bullet' => "</li> <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	603570	603826	
==>_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645922	646178	
==>_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646819	647075	
==>_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060176	1060432	
==>_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061081	1061337	
==>_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640704	640958	
==>_name(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2740	2839	
==>eturn "cur_opcode = pop_dest(interpreter);\ngoto switch_label";
}

my %arg_maps = (
    'i'  => "IRE <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27601	27696	
==>r .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}");
		} <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30068	30163	
==>r .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}");
		} <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33486	33581	
==>r .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}");
		} <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34740	34835	
==>r .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}");
		} <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37150	37245	
==>r .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}");
		} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458977	459313	
==>} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "F <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454703	455013	
==>} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "a <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455558	455868	
==>} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "a <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456413	456723	
==>} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "a <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457267	457577	
==>} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "a <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458122	458432	
==>} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "a <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16424	16505	
==>defghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/e <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16766	16847	
==>defghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/e <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1889	1970	
==>defghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/e <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9967	10048	
==>defghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/e <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10210	10291	
==>defghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/e <==
6	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1992	2073	
==>defghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/e <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973639	974118	
==>"i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1094,
                  "ARGS" => [
                              "i",
                              "ic",
                              "s",
                              "i",
                              "i"
                            ],
                  "B <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9495	9703	
==>LocalDir( $parser,
                        'result' => $result2,
                    );
                    push @opcodes, new KeyedGetOp(
                        $parser,
                        'result' <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11276	11475	
==>LocalDir( $parser,
                            'result' => $result2,
                        );
                        push @opcodes, new KeyedGetOp( $parser,
                            'result' <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12792	12975	
==>LocalDir( $parser,
                        'result' => $result2,
                    );
                    push @opcodes, new KeyedGetOp( $parser,
                        'result' <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8463	8614	
==>LocalDir( $parser,
                'result' => $result2,
            );
            push @opcodes, new KeyedGetOp( $parser,
                'result' <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17673	17808	
==>LocalDir( $parser,
            'result' => $result2,
        );
        push @opcodes, new KeyedGetOp( $parser,
            'result' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762388	762663	
==>{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763240	763515	
==>{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764093	764368	
==>{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764946	765221	
==>{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn <==
6	/Users/nnunley/parrot/config/auto/pack.pm	1012	1152	
==>ongsize) && ($size == $Config{longsize})) {
            $format = 'l!';
        } elsif ($size == 4) {
            $format = 'l';
        } e <==
6	/Users/nnunley/parrot/config/inter/pmc.pm	2665	2769	
==>tests needed, that check for vital classes

    # names of class files for src/pmc/Makefile
    (my $TEMP <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30318	30420	
==>th S0 set to the type
	# Source in P6
	# Dest returned in P1
STRUCT_COPY:
SCOPYDIS
	foreach(keys %usert <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	30011	30128	
==>bel($parser);
    push @opcodes, new BranchOp( $parser,
        'result' => $lbl_blk,
    );
    push @opcodes, ne <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18958	19048	
==>>_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self->_add_inst("DONE_ <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19446	19536	
==>>_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self->_add_inst("DONE_ <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19934	20024	
==>>_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self->_add_inst("DONE_ <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20423	20513	
==>>_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self->_add_inst("DONE_ <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20912	21002	
==>>_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self->_add_inst("DONE_ <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4269	4386	
==>_init(interpreter, type$class, pass);
EOC
    }
    $cout .= <<"EOC";
    }
    return pmc;
}

EOC
}

=back

=head2 Cl <==
6	/Users/nnunley/parrot/lib/Parrot/Test.pm	6081	6175	
==>r");

=item C<slurp_file($file_name)>

Read the whole file $file_name and return the content as <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3325	3418	
==>lazy move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_ty <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5087	5180	
==>lazy move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_ty <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7999	8092	
==>lazy move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_ty <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8856	8949	
==>lazy move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_ty <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514147	514400	
==>(FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515027	515280	
==>(FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515907	516160	
==>(FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528653	528906	
==>(FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529535	529788	
==>(FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	530417	530670	
==>(FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632633	632752	
==>new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633675	633794	
==>new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080527	1080646	
==>new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081592	1081711	
==>new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082657	1082776	
==>new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083723	1083842	
==>new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262682	263005	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDI <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263628	263951	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDI <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264481	264804	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDI <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265335	265658	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDI <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266189	266512	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDI <==
6	/Users/nnunley/parrot/lib/Test/Builder.pm	21733	21832	
==>interfere
with test output.  A newline will be put on the end if there isn't one
already.

We encour <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732683	732940	
==>],
                  "TYPE" => "inline",
                  "CODE" => 822,
                  "ARGS" => [
                              "i",
                              "nc"
                            ],
                  "BODY" => "#line 129 \"src/ops/set. <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1506	1620	
==>ck = $self->block;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $se <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5142	5256	
==>ck = $self->block;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $se <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1464	1578	
==>ck = $self->block;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $se <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1386	1500	
==>ck = $self->block;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $se <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3205	3319	
==>ck = $self->block;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $se <==
6	/Users/nnunley/parrot/tools/util/pirtidy.pl	149	255	
==>e lib 'lib';

use Parrot::PIR::Formatter;

my $extension = 'tdy';
my $verbose   = 'that is SO true.';

# lo <==
6	/Users/nnunley/parrot/editor/kate_syntax.pl	5668	5761	
==>fStyleNum="dsString" color="#FF6C6C" selColor="#FF6C6C" bold="0" italic="0" />
      <itemData <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2889	2980	
==>ather like this class.
Pod::Simple::XMLOutStream's output is space-padded in a way
that's be <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27713	27801	
==>"/e and '
		. ($check->{itempos}? 'do {'.Parse::RecDescent::Production::incitempos().' 1} <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29823	29911	
==>"/e and '
		. ($check->{itempos}? 'do {'.Parse::RecDescent::Production::incitempos().' 1} <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31920	32008	
==>"/e and '
		. ($check->{itempos}? 'do {'.Parse::RecDescent::Production::incitempos().' 1} <==
6	/Users/nnunley/parrot/Configure.pl	7924	8053	
==>y not be implemented):

   --maintainer         Create imcc's parser and lexer files. Needs a working
                        pars <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2844	2951	
==>s => { kind => 'infix', name => $op } });
    $left->sax($handler);
    $right->sax($handler);
    $handler- <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3518	3625	
==>s => { kind => 'infix', name => $op } });
    $left->sax($handler);
    $right->sax($handler);
    $handler- <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3608	3715	
==>s => { kind => 'infix', name => $op } });
    $left->sax($handler);
    $right->sax($handler);
    $handler- <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5393	5494	
==>s => { kind => 'infix', name => $op } });
  $left->sax($handler);
  $right->sax($handler);
  $handler- <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3456	3557	
==>s => { kind => 'infix', name => $op } });
  $left->sax($handler);
  $right->sax($handler);
  $handler- <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055714	1056035	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAGS" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056605	1056926	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAGS" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057497	1057818	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAGS" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058389	1058710	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAGS" <==
6	/Users/nnunley/parrot/config/init/hints/mswin32.pm	5139	5281	
==>l',
            load_ext   => '.dll',
            cc         => ${cc},
            ccflags    => '-O2 -w-8066 -DWIN32 -DNO_STRICT -DNDEBUG -D_C <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4701	4805	
==>($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address 
{
    my $self = shif <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90853	91159	
==>\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91707	92013	
==>\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92561	92867	
==>\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133935	134225	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134716	135006	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base <==
6	/Users/nnunley/parrot/languages/python/pie-thon.pl	34704	34823	
==>t) = @_;
    my $agg = pop @stack;
    print <<EOC;
	$agg->[1] = 0
EOC
}

sub Del_Slice
{
    my ($n, $c, $cmt, $sl_n) = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504064	504377	
==>\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504919	505232	
==>\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505774	506087	
==>\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506628	506941	
==>\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507483	507796	
==>\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	508338	508651	
==>\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500348	500638	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "A <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501086	501376	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "A <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501825	502115	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "A <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502563	502853	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "A <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503302	503592	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "A <==
6	/Users/nnunley/parrot/tools/dev/parrot_api.pl	17	110	
==>w
# Copyright (C) 2004, The Perl Foundation.
# $Id: /parrot/tools/dev/parrot_api.pl 19607 2006 <==
6	/Users/nnunley/parrot/config/inter/pmc.pm	5113	5251	
==>e in this
        # order
        push @names, $name;
        push @names, "Const$name" if $const;
    }

    $conf->data->set(
        pmc <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	967	1073	
==>DEBUG => 1,
    FILE  => $ident->file,
    LINE  => $ident->line
  }, $class;

  $block->push_content($self <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1121	1227	
==>DEBUG => 1,
    FILE  => $ident->file,
    LINE  => $ident->line
  }, $class;

  $block->push_content($self <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	971	1077	
==>DEBUG => 1,
    FILE  => $ident->file,
    LINE  => $ident->line
  }, $class;

  $block->push_content($self <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	710	816	
==>DEBUG => 1,
    FILE  => $ident->file,
    LINE  => $ident->line
  }, $class;

  $block->push_content($self <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1392	1498	
==>DEBUG => 1,
    FILE  => $ident->file,
    LINE  => $ident->line
  }, $class;

  $block->push_content($self <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18190	18448	
==>)) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18999	19257	
==>)) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21353	21611	
==>)) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22167	22425	
==>)) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305662	305920	
==>)) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307231	307489	
==>)) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27503	27610	
==>{
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_m <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29970	30077	
==>{
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_m <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33388	33495	
==>{
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_m <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34642	34749	
==>{
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_m <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37052	37159	
==>{
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_m <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10824	10919	
==>_arg ($node, 1)->{value};
  my $temp = $self->_generate(_get_arg($node,2));
  if ($temp !~ /^P/) <==
6	/Users/nnunley/parrot/lib/Parrot/Test.pm	13203	13423	
==>"},
                            CD     => $path_to_parrot,
                            STDOUT => $out_f,
                            STDERR => $out_f);
                if ( -e $pbc_f ) {
                    run_command(qq <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	918	1019	
==>sh_content($self);

  return $self;
}

sub name { return shift->{NAME};  }
sub args { return @{shift-> <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584504	584597	
==>xt = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS, \" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585579	585672	
==>xt = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS, \" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598020	598113	
==>xt = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS, \" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599067	599160	
==>xt = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS, \" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353745	353988	
==>reter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354490	354733	
==>reter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355257	355500	
==>reter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359439	359682	
==>reter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360187	360430	
==>reter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360957	361200	
==>reter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271136	271449	
==>{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271982	272295	
==>{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272828	273141	
==>{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273673	273986	
==>{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	274519	274832	
==>{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	275365	275678	
==>{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	7031	7164	
==>$/ } @subop_startset;
        foreach (@subop_startset) {
            return 0 if exists($start{$_});
        }
    }

    return 1;
} <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1366	1468	
==>($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($self, $ad <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1891	1993	
==>($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($self, $ad <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1782	1884	
==>($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($self, $ad <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1506	1608	
==>($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($self, $ad <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	55870	55972	
==>or,$line,$code);
				$code =~ s/\A\s*<token:(.*)>\Z/$1/s;

				my $types = eval 'no strict; local $SIG{ <==
6	/Users/nnunley/parrot/languages/python/pie-thon.pl	28408	28533	
==>y $x = (pop @stack)->[1];
	$throw = "throw $x $cmt";
    }
    else {
	for (my $i = $n-1; $i > 0; $i--) {
	    my $p = pop @st <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332639	332737	
==>e(mode); */\n  /* TODO all results from string_to_cstring() need freeing\n     but this generates u <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333917	334015	
==>e(mode); */\n  /* TODO all results from string_to_cstring() need freeing\n     but this generates u <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335195	335293	
==>e(mode); */\n  /* TODO all results from string_to_cstring() need freeing\n     but this generates u <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336474	336572	
==>e(mode); */\n  /* TODO all results from string_to_cstring() need freeing\n     but this generates u <==
6	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19417	19511	
==>or

This works like get_title except that it returns the contents of the
"=head1 AUTHOR\n\nPara <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1232	1343	
==>CK!
  }, $class;

  $block->push_content($self);

  return $self;
}


#
# ACCESSORS:
#

sub value { return shift <==
6	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	13566	13656	
==>ests_skipped"><tmpl_var name=skipped>,</td>
	      <td class="num tests_unexpect"><tmpl_var <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404620	404708	
==>35 \"src/ops/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405532	405620	
==>35 \"src/ops/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406444	406532	
==>35 \"src/ops/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407357	407445	
==>35 \"src/ops/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480829	481138	
==>@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481832	482141	
==>@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482835	483144	
==>@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483833	484142	
==>@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484832	485141	
==>@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485831	486140	
==>@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477233	477504	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478129	478400	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479020	479291	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479912	480183	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807875	807967	
==>s\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808780	808872	
==>s\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115458	115764	
==>{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sh <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116313	116619	
==>{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sh <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117168	117474	
==>{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sh <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	119499	119805	
==>{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sh <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120354	120660	
==>{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sh <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572763	572964	
==>"ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 242 \"src/ops/object.ops\"\n  PMC *name = pmc_new(inter <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231216	231503	
==>{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232120	232407	
==>{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233024	233311	
==>{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233927	234214	
==>{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234831	235118	
==>{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235735	236022	
==>{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550189	550290	
==>current_method = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_p <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551490	551591	
==>current_method = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_p <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554042	554143	
==>current_method = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_p <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555439	555540	
==>current_method = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_p <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558094	558195	
==>current_method = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_p <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559478	559579	
==>current_method = meth;\n  method_pmc = VTABLE_find_method(interpreter, object, meth);\n  if (!method_p <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11225	11424	
==>mc' );
                        push @opcodes, new LocalDir( $parser,
                            'result' => $result2,
                        );
                        push @opcodes, new KeyedGe <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9448	9631	
==>mc' );
                    push @opcodes, new LocalDir( $parser,
                        'result' => $result2,
                    );
                    push @opcodes, new KeyedGe <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12745	12928	
==>mc' );
                    push @opcodes, new LocalDir( $parser,
                        'result' => $result2,
                    );
                    push @opcodes, new KeyedGe <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8424	8575	
==>mc' );
            push @opcodes, new LocalDir( $parser,
                'result' => $result2,
            );
            push @opcodes, new KeyedGe <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17638	17773	
==>mc' );
        push @opcodes, new LocalDir( $parser,
            'result' => $result2,
        );
        push @opcodes, new KeyedGe <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	4120	4227	
==>$self->{'output_fh'}} $self->{'Tagmap'}{$tagname};
    
    my $next = $self->get_token;
    
    unless ( $ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492770	493003	
==>{{\@1}} = intval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493531	493764	
==>{{\@1}} = intval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714630	714724	
==>ength(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interprete <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715553	715647	
==>ength(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interprete <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722317	722411	
==>ength(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interprete <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723346	723440	
==>ength(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interprete <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	4337	4550	
==>for ( split //, $value ) {
                        if ( ord $_ < 32 ) {
                            $str .= sprintf( '\x%02x', ord $_ );
                        }
                        elsif ( ord $_ >= 128 ) <==
6	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2999	3119	
==>ag .= "'$test_prog' failed with exit code $exit_code."
                if $exit_code;
            $self->{builder}->dia <==
6	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	2611	2716	
==>ag .= "'$test_prog' failed with exit code $exit_code." if $exit_code;
               $self->{builder}->dia <==
6	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2610	2712	
==>ag .= "'$test_prog' failed with exit code $exit_code." if $exit_code;
            $self->{builder}->dia <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15892	15987	
==>ry -, functions, etc...
		@stream=convert_to_rpn(@expr);	# Get infix into RPN
		($result,$type,@ <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	17043	17138	
==>ry -, functions, etc...
		@stream=convert_to_rpn(@expr);	# Get infix into RPN
		($result,$type,@ <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1183	1279	
==>mpiler->emit(".namespace ${namespace}");
      $compiler->indent;
      $self->SUPER::compile($co <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	591	683	
==>mpiler->emit(".namespace ${namespace}");
    $compiler->indent;
    $self->SUPER::compile($co <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905328	905415	
==>ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906347	906434	
==>ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907366	907453	
==>ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908386	908473	
==>ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421934	422238	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bind",
                  "FLAGS" => ":base_netwo <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769216	769491	
==>}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770068	770343	
==>}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770921	771196	
==>}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771774	772049	
==>}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind <==
6	/Users/nnunley/parrot/config/gen/cpu/i386/auto.pm	927	1073	
==>f (cc_run() =~ /ok/) {
                $conf->data->set(
                    "i386_has_$suffix" => '1',
                    "HAS_i386_$suffix" => ' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	922968	923303	
==>);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632715	633048	
==>);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633757	634090	
==>);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634874	635207	
==>);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635992	636325	
==>);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637110	637443	
==>);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40189	40291	
==>unknown methods to
the PMC in the first attribute slot.

=cut

sub body
{
    my ($self, $method, $line <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31425	31521	
==>umulate
the number of lines, C<$out_name> is the name of the output file we are
generating.

Over <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33038	33134	
==>umulate
the number of lines, C<$out_name> is the name of the output file we are
generating.

Over <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34726	34822	
==>umulate
the number of lines, C<$out_name> is the name of the output file we are
generating.

Over <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40045	40141	
==>umulate
the number of lines, C<$out_name> is the name of the output file we are
generating.

Over <==
6	/Users/nnunley/parrot/config/gen/PodText.pm	871	964	
==>iption $result @args);

use base qw(Parrot::Configure::Step::Base);

use Pod::Text;

$descript <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591373	591461	
==>\"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  op <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592583	592671	
==>\"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  op <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593793	593881	
==>\"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  op <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595004	595092	
==>\"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  op <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600016	600104	
==>\"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  op <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601092	601180	
==>\"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  op <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514170	514475	
==>ATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515050	515355	
==>ATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515930	516235	
==>ATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528676	528981	
==>ATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529558	529863	
==>ATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	530440	530745	
==>ATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1301	1418	
==>>{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{ <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1292	1409	
==>>{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{ <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1181	1298	
==>>{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{ <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1640	1757	
==>>{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{ <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1776	1893	
==>>{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{ <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1419	1536	
==>>{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572469	572731	
==>=> "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573378	573640	
==>=> "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574288	574550	
==>=> "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575091	575353	
==>=> "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
6	/Users/nnunley/parrot/config/auto/gcc.pm	2929	3055	
==>for undefined idenfiers in #if
            # ? -Wbad-function-cast
            #   Warn whenever a function call is cast to a n <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	2978	3086	
==>({ Name => 'arg' });
  }

  foreach my $content ($self->content) {
    $content->sax($handler);
  }

  $handl <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27337	27436	
==>he instruction, just take that. If not, we need
		# to generate it from the "to generate" instructio <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29804	29903	
==>he instruction, just take that. If not, we need
		# to generate it from the "to generate" instructio <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33222	33321	
==>he instruction, just take that. If not, we need
		# to generate it from the "to generate" instructio <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34476	34575	
==>he instruction, just take that. If not, we need
		# to generate it from the "to generate" instructio <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36886	36985	
==>he instruction, just take that. If not, we need
		# to generate it from the "to generate" instructio <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	1687	1784	
==>"Writing $c_name\n" if $opt->{verbose};
    open my $C, '>', $c_name or die "Can't write '$c_name" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494403	494729	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495271	495597	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496139	496465	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497008	497334	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497878	498204	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498748	499074	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS <==
6	/Users/nnunley/parrot/config/init/hints/netbsd.pm	100	208	
==>nstep
{
    my ($self, $conf) = @_;

    my $ccflags = $conf->data->get('ccflags');
    if ($ccflags !~ /-pth <==
6	/Users/nnunley/parrot/config/init/hints/openbsd.pm	192	300	
==>nstep
{
    my ($self, $conf) = @_;

    my $ccflags = $conf->data->get('ccflags');
    if ($ccflags !~ /-pth <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777082	777190	
==>>set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777991	778099	
==>>set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778900	779008	
==>>set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779810	779918	
==>>set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" = <==
6	/Users/nnunley/parrot/config/auto/headers.pm	721	826	
==>se later, particularly once we break free and start doing all
    # probing ourselves
    my %mapping = (i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941908	942161	
==>,
                  "ARGS" => [
                              "p",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 486 \"src/ops/string.ops\"\n    {{\@1}} = string_sp <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4859	4951	
==>rrent_block;

      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $ <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11350	11442	
==>rrent_block;

      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $ <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11897	11989	
==>rrent_block;

      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $ <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12440	12532	
==>rrent_block;

      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $ <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22654	22745	
==>rrent_block;
      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $ <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28004	28109	
==>stexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse::Re <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30078	30183	
==>stexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse::Re <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32279	32384	
==>stexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse::Re <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34875	34980	
==>stexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse::Re <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41985	42090	
==>stexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse::Re <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74536	74639	
==>stexpected
		    && !$Parse::RecDescent::failed++) {
			$Parse::RecDescent::expected
			    = $Parse::Re <==
6	/Users/nnunley/parrot/lib/Parrot/Test.pm	284	380	
==>rrot::Test tests => 8;

Write individual tests like this:

    pasm_output_is(<<'CODE', <<'OUTPUT <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2055	2145	
==>:Expression::Value::Identifier')) {
      my $arg_sym = $self->block->find_symbol($args[$i] <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1755	1845	
==>:Expression::Value::Identifier')) {
      my $arg_sym = $self->block->find_symbol($args[$i] <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10972	11059	
==>ITEMP0} = ${PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pre_call_HAS_RETURN_$ <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8158	8245	
==>ITEMP0} = ${PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pre_call_HAS_RETURN_$ <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5820	5907	
==>ITEMP0} = ${PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pre_call_HAS_RETURN_$ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258304	258627	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259247	259570	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260098	260421	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260950	261273	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261802	262125	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "", <==
6	/Users/nnunley/parrot/languages/urm/urm-old.pl	331	434	
==>d,]+)\)/) {
	print "Werte für $1: ";
	my $input = readline(STDIN);
	my @register = split (",", $1);
	ch <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271149	271477	
==>@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271995	272323	
==>@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272841	273169	
==>@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273686	274014	
==>@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	274532	274860	
==>@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	275378	275706	
==>@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349423	349683	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	97960	98199	
==>> "inline",
                  "CODE" => 121,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 91 \"src/ops/bit.ops\"\n  {{\@ <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13063	13165	
==>OT 99)
type first
	foo as integer
	bar as string
end type
type second
	link as first
end type
type thir <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24371	24463	
==>f->_constant(0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{childre <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25260	25352	
==>f->_constant(0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{childre <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26270	26362	
==>f->_constant(0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{childre <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27160	27252	
==>f->_constant(0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{childre <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343543	343757	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344784	344998	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346026	346240	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347268	347482	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348511	348725	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349512	349726	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258555	258872	
==>0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259498	259815	
==>0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260349	260666	
==>0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261201	261518	
==>0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262053	262370	
==>0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567250	567517	
==>"inline",
                  "CODE" => 648,
                  "ARGS" => [
                              "i",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 213 \"src/ops/object.ops\ <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1278	1407	
==>ome characters from a line
         [^\n\ ]{0,50}     #  and finish any current word
        )
        \x20{1,10}(?!\n)   # captur <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1222	1351	
==>ome characters from a line
         [^\n\ ]{0,50}     #  and finish any current word
        )
        \x20{1,10}(?!\n)   # captur <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712592	712683	
==>er, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(interpreter, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713699	713790	
==>er, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(interpreter, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720059	720150	
==>er, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(interpreter, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721259	721350	
==>er, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(interpreter, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258294	258616	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FL <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259237	259559	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FL <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260088	260410	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FL <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260940	261262	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FL <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261792	262114	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FL <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	828	932	
==>d $count>0;
  die "Illegal register type"
    unless $type and $type=~/^[INPS]$/;
  my @temp;
  for(0..31 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225065	225451	
==>"i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 263,
                  "ARGS" => [
                              "p",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9505	9714	
==>$parser,
                        'result' => $result2,
                    );
                    push @opcodes, new KeyedGetOp(
                        $parser,
                        'result' => $result <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11286	11486	
==>$parser,
                            'result' => $result2,
                        );
                        push @opcodes, new KeyedGetOp( $parser,
                            'result' => $result <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12802	12986	
==>$parser,
                        'result' => $result2,
                    );
                    push @opcodes, new KeyedGetOp( $parser,
                        'result' => $result <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8473	8625	
==>$parser,
                'result' => $result2,
            );
            push @opcodes, new KeyedGetOp( $parser,
                'result' => $result <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17683	17819	
==>$parser,
            'result' => $result2,
        );
        push @opcodes, new KeyedGetOp( $parser,
            'result' => $result <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049594	1049891	
==>",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050627	1050924	
==>",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051661	1051958	
==>",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052695	1052992	
==>",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053730	1054027	
==>",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054856	1055153	
==>",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361826	362102	
==>re */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "prin <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362725	363001	
==>re */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "prin <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363627	363903	
==>re */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "prin <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364530	364806	
==>re */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "prin <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365369	365645	
==>re */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "prin <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366209	366485	
==>re */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "prin <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231172	231311	
==>\"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LAB <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232076	232215	
==>\"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LAB <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232980	233119	
==>\"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LAB <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233883	234022	
==>\"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LAB <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234787	234926	
==>\"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LAB <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235691	235830	
==>\"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LAB <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6850	6996	
==>ry.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push(@$stack,[ $act, $$value ]);

					$$token ne ''	#Don't eat the eof <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6533	6671	
==>ry.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push(@$stack,[ $act, $$value ]);

					$$token ne ''	#Don't eat the eof <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1411	1518	
==>evant C code.

=cut

sub goto_address
{
    my ($self, $addr) = @_;

    #print STDERR "pbcc: map_ret_abs($a <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1936	2043	
==>evant C code.

=cut

sub goto_address
{
    my ($self, $addr) = @_;

    #print STDERR "pbcc: map_ret_abs($a <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1827	1934	
==>evant C code.

=cut

sub goto_address
{
    my ($self, $addr) = @_;

    #print STDERR "pbcc: map_ret_abs($a <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1551	1658	
==>evant C code.

=cut

sub goto_address
{
    my ($self, $addr) = @_;

    #print STDERR "pbcc: map_ret_abs($a <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088962	1089269	
==>);\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089910	1090217	
==>);\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080609	1080914	
==>);\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081674	1081979	
==>);\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082739	1083044	
==>);\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083805	1084110	
==>);\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
6	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	3578	3708	
==>lper conversion subroutines
    my %helpers = (
        # type     subroutine
        channel => '__channel',
        expr    => '_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4875	4967	
==>oto_offset($offset)>

Transforms the C<goto OFFSET($offset)> macro in an ops file into the
re <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1820	1912	
==>oto_offset($offset)>

Transforms the C<goto OFFSET($offset)> macro in an ops file into the
re <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2469	2561	
==>oto_offset($offset)>

Transforms the C<goto OFFSET($offset)> macro in an ops file into the
re <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2188	2280	
==>oto_offset($offset)>

Transforms the C<goto OFFSET($offset)> macro in an ops file into the
re <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2149	2241	
==>oto_offset($offset)>

Transforms the C<goto OFFSET($offset)> macro in an ops file into the
re <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196805	197132	
==>",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 23 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197701	198028	
==>",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 23 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198598	198925	
==>",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 23 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199495	199822	
==>",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 23 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200391	200718	
==>",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 23 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201288	201615	
==>",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 23 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158848	159165	
==>",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159744	160061	
==>",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160641	160958	
==>",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161538	161855	
==>",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162434	162751	
==>",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163331	163648	
==>",
                  "NAME" => "ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949923	950240	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950882	951199	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951842	952159	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952802	953119	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441574	441661	
==>/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442589	442676	
==>/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584613	584709	
==>n't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585688	585784	
==>n't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586835	586931	
==>n't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588021	588117	
==>n't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589207	589303	
==>n't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590394	590490	
==>n't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503444	503771	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504298	504625	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505153	505480	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506008	506335	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506862	507189	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507717	508044	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175564	175860	
==>ATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176467	176763	
==>ATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177371	177667	
==>ATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178275	178571	
==>ATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179180	179476	
==>ATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
6	/Users/nnunley/parrot/lib/Text/Balanced.pm	29935	30034	
==>H1> tag. Such a prefix
pattern will only succeed if the <H1> tag is on the current line, since
. nor <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961122	961443	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLA <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962084	962405	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLA <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963046	963367	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLA <==
6	/Users/nnunley/parrot/lib/Test/Builder.pm	37021	37113	
==>G Schwern E<lt>schwern@pobox.comE<gt>.

This program is free software; you can redistribute i <==
6	/Users/nnunley/parrot/lib/Test/More.pm	37430	37522	
==>G Schwern E<lt>schwern@pobox.comE<gt>.

This program is free software; you can redistribute i <==
6	/Users/nnunley/parrot/lib/Test/Simple.pm	6390	6482	
==>G Schwern E<lt>schwern@pobox.comE<gt>.

This program is free software; you can redistribute i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504080	504404	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FL <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504935	505259	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FL <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505790	506114	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FL <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506644	506968	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FL <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507499	507823	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FL <==
6	/Users/nnunley/parrot/languages/scheme/Scheme.pm	948	1052	
==>sing, $link->{functions};
    }

    # XXX: Move Generator::_format_columns to own class
    Scheme::Gene <==
6	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	5956	6085	
==>code;
}

sub emit {
    my ($code, @args) = @_;
    
    chomp $code;
    
    my $pir = '';
    while ($code =~ s/^([^%]*)%(\d+)/ <==
6	/Users/nnunley/parrot/lib/Text/Balanced.pm	2626	2732	
==>del";
		}
		else
		{
			push @pat, "$del(?:[^$esc$del]*(?:$esc.[^$esc$del]*)*)$del";
		}
	}
	my $pat = join <==
6	/Users/nnunley/parrot/lib/Parrot/Config.pm	1996	2079	
==>-Wsign-compare -Wformat-nonliteral -Wformat-security -Wpacked -Wdisabled-optimizatio <==
6	/Users/nnunley/parrot/tools/build/dynclasses.pl	1316	1399	
==>-Wsign-compare -Wformat-nonliteral -Wformat-security -Wpacked -Wdisabled-optimizatio <==
6	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1361	1444	
==>-Wsign-compare -Wformat-nonliteral -Wformat-security -Wpacked -Wdisabled-optimizatio <==
6	/Users/nnunley/parrot/tools/build/dynpmc.pl	1365	1448	
==>-Wsign-compare -Wformat-nonliteral -Wformat-security -Wpacked -Wdisabled-optimizatio <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24057	24168	
==>ue> <op> <value>);
    #   redo <label> unless (<value> <op> <value>);
    #

    if ($token->is_loop_control) { <==
6	/Users/nnunley/parrot/lib/Pod/Simple.pm	41725	41837	
==>es' attributes.

  #my @ells_to_tweak;

  while($treelet = shift @stack) {
    for(my $i = 2; $i < @$treelet; ++$ <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	10395	10496	
==>gh
# atoms left in the input before looking at the next atom. This
# routine disables all of those che <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550321	550423	
==>rpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)V <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551622	551724	
==>rpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)V <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554174	554276	
==>rpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)V <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555571	555673	
==>rpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)V <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558226	558328	
==>rpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)V <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559610	559712	
==>rpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)V <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101344	101608	
==>=> 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102114	102378	
==>=> 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103550	103814	
==>=> 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29211	29354	
==>" => 73,
			"+" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41317	41460	
==>" => 73,
			"+" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44463	44606	
==>" => 73,
			"+" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	30615	30722	
==>st this = CUR_OPCODE;\n    parrot_context_t *ctx;\n    PMC *ccont;\n    PMC *signature = {{\@1}};\n    INTVA <==
6	/Users/nnunley/parrot/lib/Pod/Simple.pm	29115	29213	
==>ng perlpodspec:

# In parsing an L<...> code, Pod parsers must distinguish at least four
# attribut <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634705	634797	
==>\"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635823	635915	
==>\"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636941	637033	
==>\"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638060	638152	
==>\"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084793	1085104	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085846	1086157	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086899	1087210	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087953	1088264	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090907	1091218	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1091967	1092278	
==>, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7775	7945	
==>} @$stack[ -$$dotpos .. -1 ]
                        :   ();

            $semval = $code ? &$code( $self, @sempar )
                            : @sempar ? $sempar[0] <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7423	7589	
==>} @$stack[ -$$dotpos .. -1 ]
                        :   ();

            $semval = $code ? &$code( $self, @sempar )
                            : @sempar ? $sempar[0] <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606922	607077	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getattribute",
                  "FLAGS" => ":object_classes <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607825	607980	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getattribute",
                  "FLAGS" => ":object_classes <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608729	608884	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getattribute",
                  "FLAGS" => ":object_classes <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609636	609791	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getattribute",
                  "FLAGS" => ":object_classes <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	865756	865977	
==>n(interpreter, {{\@1}});\n   {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	866409	866630	
==>n(interpreter, {{\@1}});\n   {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59358	59578	
==>n(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60006	60226	
==>n(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61948	62168	
==>n(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62592	62812	
==>n(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72933	73042	
==>me, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74535	74644	
==>me, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76137	76246	
==>me, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77740	77849	
==>me, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79261	79370	
==>me, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80782	80891	
==>me, err ? err : \"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1350	1449	
==>Mandatory parameters
my(@params)=('LEX','RULES','STATES');

sub new {
    my($class)=shift;
	my <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72987	73082	
==>pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(interpreter, enu <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74589	74684	
==>pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(interpreter, enu <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76191	76286	
==>pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(interpreter, enu <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77794	77889	
==>pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(interpreter, enu <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1305	1399	
==>Mandatory parameters
my(@params)=('LEX','RULES','STATES');

sub new {
    my($class)=shift;
	my <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27455	27561	
==>r .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for ru <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29922	30028	
==>r .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for ru <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33340	33446	
==>r .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for ru <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34594	34700	
==>r .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for ru <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37004	37110	
==>r .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for ru <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	19243	19345	
==>ate unknown instruction (code "
	str_ic = cur_ic
	err = concat str_ic
	err = concat ")"
    ex["_messag <==
6	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	1510	1676	
==>me);
my %totals = (
    lines            => 0,
    covered_lines    => 0,
    branches         => 0,
    covered_branches => 0,              
    calls            => 0 <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	845	956	
==>rn shift->temp_reg('S'); }


#
# anon_lbl()
#

my $anon_lbl_count = 0;

sub anon_lbl
{
  my $self = shift;
  ret <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033396	1033480	
==>{\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034494	1034578	
==>{\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035706	1035790	
==>{\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036870	1036954	
==>{\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\ <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	326	433	
==>p;
use FileHandle;

use base qw(Jako::Processor);


#
# block_label()
#

sub block_label
{
  my $self = shif <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2459	2557	
==>ement({ Name => 'block', Attributes => { kind => 'test' } });
    $handler->start_element({ Name => <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2336	2434	
==>ement({ Name => 'block', Attributes => { kind => 'test' } });
    $handler->start_element({ Name => <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2729	2827	
==>ement({ Name => 'block', Attributes => { kind => 'test' } });
    $handler->start_element({ Name => <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3403	3501	
==>ement({ Name => 'block', Attributes => { kind => 'test' } });
    $handler->start_element({ Name => <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3493	3591	
==>ement({ Name => 'block', Attributes => { kind => 'test' } });
    $handler->start_element({ Name => <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16414	16494	
==>`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16756	16836	
==>`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1879	1959	
==>`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9957	10037	
==>`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10200	10280	
==>`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord <==
6	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1982	2062	
==>`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	249853	250061	
==>=> "inline",
                  "CODE" => 290,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 693 \"src/ops/cmp.ops\"\n  {{\@1} <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2815	2920	
==>ent({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
    $left->sax($handler);
    $righ <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3489	3594	
==>ent({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
    $left->sax($handler);
    $righ <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3579	3684	
==>ent({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
    $left->sax($handler);
    $righ <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5364	5465	
==>ent({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
  $left->sax($handler);
  $righ <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3427	3528	
==>ent({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
  $left->sax($handler);
  $righ <==
6	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	7500	7612	
==>1
    inc not_found

    .local pmc result
    result = new 'APLVector'

    iter_two = new .Iterator, op2
loop_t <==
6	/Users/nnunley/parrot/config/gen/parrot_include.pm	1198	1305	
==>fine='def', in enum='enum'
        my ($inc, $prefix, $last_val, $subst, %values);
        my (%var, $match, <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63103	63207	
==>and $prod->additem($item)
						      or  _no_rule("repetition",$line,"$code$argcode($1)");

						!$matc <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63824	63928	
==>and $prod->additem($item)
						      or  _no_rule("repetition",$line,"$code$argcode($1)");

						!$matc <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64540	64644	
==>and $prod->additem($item)
						      or  _no_rule("repetition",$line,"$code$argcode($1)");

						!$matc <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62467	62569	
==>and $prod->additem($item)
					      or  _no_rule("repetition",$line,"$code$argcode($1)");

					!$matc <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459248	459552	
==>MP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460235	460539	
==>MP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461223	461527	
==>MP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462211	462515	
==>MP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463207	463511	
==>MP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464204	464508	
==>MP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53278	53388	
==>head,$line,$code);
				$prod and $prod->additem($item)
				      or  _no_rule($code,$line);
			}
			elsif ($gra <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54090	54200	
==>head,$line,$code);
				$prod and $prod->additem($item)
				      or  _no_rule($code,$line);
			}
			elsif ($gra <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54509	54619	
==>head,$line,$code);
				$prod and $prod->additem($item)
				      or  _no_rule($code,$line);
			}
			elsif ($gra <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54987	55097	
==>head,$line,$code);
				$prod and $prod->additem($item)
				      or  _no_rule($code,$line);
			}
			elsif ($gra <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1377	1473	
==>arams)=('LEX','RULES','STATES');

sub new {
    my($class)=shift;
	my($errst,$nberr,$token,$v <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1331	1423	
==>arams)=('LEX','RULES','STATES');

sub new {
    my($class)=shift;
	my($errst,$nberr,$token,$v <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080625	1080948	
==>",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081690	1082013	
==>",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082755	1083078	
==>",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103004	1103327	
==>",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104218	1104541	
==>",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	411	538	
==>s;
        $type="" unless defined $type;
         $sym="" unless defined $sym;
        unshift(@type, $type);
        unshift(@ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857985	858284	
==>MP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858988	859287	
==>MP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859992	860291	
==>MP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860996	861295	
==>MP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
6	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	3572	3744	
==>*/
    PMC *class;              /* for PMCs: a PMC of that type
                                for objects: the class PMC */
    PMC *mro;                /* array PMC of [c <==
6	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	7098	7198	
==>$negate) unless $cond;

    return $cond;
}

sub report_failure (Str $todo?, Str $got?, Str $expected <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549339	549480	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethod <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550639	550780	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethod <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551940	552081	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethod <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553131	553272	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethod <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554527	554668	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethod <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555924	556065	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethod <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16416	16503	
==>{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';' <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16758	16845	
==>{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';' <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1881	1968	
==>{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';' <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9959	10046	
==>{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';' <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10202	10289	
==>{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';' <==
6	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1984	2071	
==>{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878862	879246	
==>"i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 996,
                  "ARGS" => [
                              "s",
                              "s",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 244 <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	800	904	
==>.

=cut

sub core_prefix
{
    return "cgp_";
}

=item C<defines()>

Returns the C C<#define> macros requ <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	6512	6613	
==>);
	my($resulty, $typey, @codey);
	my($resultx, $typex, @codex);
	if ($type[NEXT] =~ /PUN/) {  # Y onl <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2435	2533	
==>al_arg_name) 
      unless defined $formal_arg_type;

    $self->INTERNAL_ERROR("Can't determine ty <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2135	2233	
==>al_arg_name) 
      unless defined $formal_arg_type;

    $self->INTERNAL_ERROR("Can't determine ty <==
6	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	464	560	
==>(' ' x (10 - length($_->{'done'})));
	print $_->{'total'} . (' ' x (10 - length($_->{'total'}))) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680783	681073	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681559	681849	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682333	682623	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683108	683398	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => <==
6	/Users/nnunley/parrot/tools/build/pbc2c.pl	3337	3451	
==>= $1;
	    my $forward_off = $2;

	    # Substitute constant branch values
	    if($forward_off =~ /\@(\d+)/){
		$f <==
6	/Users/nnunley/parrot/lib/Test/More.pm	3449	3545	
==>verything has failed.  See L<BUGS and CAVEATS>)

In some cases, you'll want to completely skip an <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1420	1529	
==>rx_pos>; # group 0 start := pos');
}

sub output_increment {
    my ($self, $distance, $failLabel) = @_;
    d <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1668	1776	
==>rx_pos> # group 0 start := pos');
}

sub output_increment {
    my ($self, $distance, $failLabel) = @_;
    d <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168500	168590	
==>cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+= <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169442	169532	
==>cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+= <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103898	1103981	
==>pmc_type(interpreter, class);\n\tif (!type) {\n\t\tParrot_autoload_class(interpreter <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105113	1105196	
==>pmc_type(interpreter, class);\n\tif (!type) {\n\t\tParrot_autoload_class(interpreter <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550314	550419	
==>on(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551615	551720	
==>on(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554167	554272	
==>on(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555564	555669	
==>on(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558219	558324	
==>on(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559603	559708	
==>on(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072789	1072908	
==>\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074974	1075093	
==>\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077159	1077278	
==>\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079345	1079464	
==>\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\ <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6484	6590	
==>lain text rather than POD it may be directly linked to.

=cut

sub is_docs_link
{
	my $self = shift;

	# TO <==
6	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5081	5178	
==>eturn $self;
}

=item C<gettriggers($key)>

Get the names of all triggers set for C<$key>.

Accept <==
6	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	50297	50432	
==>e element from being childless
      
      pop @stack;
      pop @lineage;
      
    } elsif(defined $4) {
      DEBUG > 3 and print " <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	637	761	
==>@ops, $self->output_print(substr($part, 2, -1));
        } else {
            $part =~ s/(["'\\])/\\$1/g;
            $part = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072694	1072806	
==>ion necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  els <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074879	1074991	
==>ion necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  els <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077064	1077176	
==>ion necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  els <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079250	1079362	
==>ion necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  els <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550229	550320	
==>TABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_exception(inte <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551530	551621	
==>TABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_exception(inte <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554082	554173	
==>TABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_exception(inte <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555479	555570	
==>TABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_exception(inte <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558134	558225	
==>TABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_exception(inte <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559518	559609	
==>TABLE_find_method(interpreter, object, meth);\n  if (!method_pmc) {\n    real_exception(inte <==
6	/Users/nnunley/parrot/tools/build/jit2c.pl	9042	9131	
==>it_info->objfile, jit_info->native_ptr, f); \
    emitm_calll(jit_info->native_ptr, EXEC_C <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	13376	13518	
==>-1' => 54
		}
	},
	{#State 13
		ACTIONS => {
			"," => 55,
			"=" => 56
		}
	},
	{#State 14
		DEFAULT => -4,
		GOTOS => {
			'block <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4528	4618	
==>$self->current_block();
      my $ident = Jako::Construct::Expression::Value::Identifier->n <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	10774	10864	
==>$self->current_block();
      my $ident = Jako::Construct::Expression::Value::Identifier->n <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16188	16278	
==>$self->current_block();
      my $ident = Jako::Construct::Expression::Value::Identifier->n <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16959	17049	
==>$self->current_block();
      my $ident = Jako::Construct::Expression::Value::Identifier->n <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17764	17854	
==>$self->current_block();
      my $ident = Jako::Construct::Expression::Value::Identifier->n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175548	175759	
==>"PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176451	176662	
==>"PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177355	177566	
==>"PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178259	178470	
==>"PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179164	179375	
==>"PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
6	/Users/nnunley/parrot/lib/Test/Builder.pm	18103	18279	
==>hare({
        'ok'      => 1,
        actual_ok => 1,
        name      => '',
        type      => 'skip',
        reason    => $why,
    });

    my $out = "ok";
    $out   . <==
6	/Users/nnunley/parrot/config/gen/parrot_include.pm	3470	3642	
==>w+)\s*(?!=)/) {
                    $last_val++;
                    $values{$1} = $last_val;
                    local $_ = "$prefix$1\t$last_val";
                    eval <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18508	18600	
==>(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children}}) { <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19221	19313	
==>(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children}}) { <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19709	19801	
==>(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children}}) { <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20198	20290	
==>(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children}}) { <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20687	20779	
==>(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children}}) { <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516233	516496	
==>NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516971	517234	
==>NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517710	517973	
==>NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518448	518711	
==>NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
6	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	5594	5751	
==>>{type} eq 'int' ? ''       : "'";
            my $default = $arg->{default};
            
            $code .= "  goto done_$name \n";
            $code .= " <==
6	/Users/nnunley/parrot/tools/build/jit2c.pl	13874	13972	
==>, $index) = @_;

    return(($ptr eq '&' ? '&' : '') . sprintf($argmaps{$type_to_arg{$type}}, $inde <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576446	576534	
==>\n  name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpret <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577458	577546	
==>\n  name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpret <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579546	579634	
==>\n  name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpret <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580851	580939	
==>\n  name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpret <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582156	582244	
==>\n  name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpret <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583462	583550	
==>\n  name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpret <==
6	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	44920	45036	
==>rmatting =~ m{\G(( +)|(\^+)|(\/+)|(\%+))}g ) {
      #print "Format matches $1\n";

      if($2) {
        #print "SK <==
6	/Users/nnunley/parrot/config/auto/snprintf.pm	412	506	
==>ep qw(cc_gen cc_build cc_clean cc_run);

$description = 'Testing snprintf';

@args = qw(verbose <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586877	586970	
==>preter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588063	588156	
==>preter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589249	589342	
==>preter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590436	590529	
==>preter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next <==
6	/Users/nnunley/parrot/config/auto/socklen_t.pm	309	400	
==>se base qw(Parrot::Configure::Step::Base);

use Config;

use Parrot::Configure::Step ':auto' <==
6	/Users/nnunley/parrot/config/auto/bc.pm	436	526	
==>se base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Configure::Step ':auto' <==
6	/Users/nnunley/parrot/config/auto/gdbm.pm	381	471	
==>se base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Configure::Step ':auto' <==
6	/Users/nnunley/parrot/config/auto/gmp.pm	335	425	
==>se base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Configure::Step ':auto' <==
6	/Users/nnunley/parrot/config/auto/m4.pm	410	500	
==>se base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Configure::Step ':auto' <==
6	/Users/nnunley/parrot/config/auto/readline.pm	342	432	
==>se base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Configure::Step ':auto' <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493832	494130	
==>"mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 5 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494699	494997	
==>"mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 5 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495567	495865	
==>"mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 5 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496435	496733	
==>"mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 5 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497304	497602	
==>"mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 5 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498174	498472	
==>"mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 5 <==
6	/Users/nnunley/parrot/config/inter/lex.pm	1533	1670	
==>, $verbose);

    unless ($prog) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    if ($ <==
6	/Users/nnunley/parrot/config/inter/yacc.pm	1547	1684	
==>, $verbose);

    unless ($prog) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    if ($ <==
6	/Users/nnunley/parrot/editor/kate_syntax.pl	5120	5218	
==>sKeyword" />
      <itemData name="Type" defStyleNum="dsDataType" />
      <itemData name="Comment" <==
6	/Users/nnunley/parrot/lib/Parrot/Config.pm	1678	1762	
==>p-precomp  -pipe -Wdeclaration-after-statement -I/usr/local/include -I/opt/local/incl <==
6	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1066	1150	
==>p-precomp  -pipe -Wdeclaration-after-statement -I/usr/local/include -I/opt/local/incl <==
6	/Users/nnunley/parrot/tools/build/dynpmc.pl	1070	1154	
==>p-precomp  -pipe -Wdeclaration-after-statement -I/usr/local/include -I/opt/local/incl <==
6	/Users/nnunley/parrot/tools/build/pmc2c.pl	4412	4511	
==>ist, but merely a snapshot of what's in use.

=item C<dynpmc>

The class is a dynamic class. These h <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19014	19110	
==>turn,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return $return;
}

sub <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19502	19598	
==>turn,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return $return;
}

sub <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19990	20086	
==>turn,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return $return;
}

sub <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20479	20575	
==>turn,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return $return;
}

sub <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20968	21064	
==>turn,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return $return;
}

sub <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454122	454422	
==>" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454976	455276	
==>" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455831	456131	
==>" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456686	456986	
==>" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457540	457840	
==>" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458395	458695	
==>" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480105	480425	
==>0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481107	481427	
==>0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482110	482430	
==>0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483113	483433	
==>0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484111	484431	
==>0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485110	485430	
==>0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540637	540757	
==>n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   els <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541889	542009	
==>n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   els <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543141	543261	
==>n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   els <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544424	544544	
==>n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   els <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545760	545880	
==>n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   els <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547096	547216	
==>n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   els <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072896	1073239	
==>{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075081	1075424	
==>{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077266	1077609	
==>{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079452	1079795	
==>{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	43358	43456	
==>elf, $class;
	shift;
	return $self->Replace(@_)
}

sub Compile($$$$) {

	die "Compilation of Parse: <==
6	/Users/nnunley/parrot/lib/Text/Balanced.pm	36054	36146	
==>rticular species of quote character is included in the
delimiter specification, then that typ <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31782	31888	
==>h)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $ <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33359	33465	
==>h)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $ <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35070	35176	
==>h)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $ <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36373	36479	
==>h)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $ <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38320	38426	
==>h)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $ <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40416	40522	
==>h)) {
        my $n = $self->{has_method}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049568	1049816	
==>UMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050601	1050849	
==>UMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051635	1051883	
==>UMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052669	1052917	
==>UMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053704	1053952	
==>UMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054830	1055078	
==>UMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766066	766330	
==>" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766918	767182	
==>" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767771	768035	
==>" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768624	768888	
==>" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
6	/Users/nnunley/parrot/lib/Pod/Simple.pm	539	643	
==>directives       = qw(head1 head2 head3 head4 item over back); 
%Known_directives       = map(($_=>'Plain <==
6	/Users/nnunley/parrot/lib/Text/Balanced.pm	62962	63052	
==>tem  C<Missing second block for quotelike "%s">

C<extract_codeblock> or C<extract_quotelik <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747285	747372	
==>.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748070	748157	
==>.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753579	753666	
==>.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754367	754454	
==>.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324701	324787	
==>.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}},{{\@2}});\n  {{+=3}} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325494	325580	
==>.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}},{{\@2}});\n  {{+=3}} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	12569	12796	
==>UMP_GNEXT",
                  "NAME" => "jsr",
                  "FLAGS" => ":base_core,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYP <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92760	92951	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93539	93730	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94319	94510	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95211	95402	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96104	96295	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519104	519423	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519958	520277	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520813	521132	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	521668	521987	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522522	522841	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523377	523696	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459034	459365	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460021	460352	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461009	461340	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461997	462328	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462993	463324	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463990	464321	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746810	747098	
==>,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747594	747882	
==>,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748379	748667	
==>,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749162	749450	
==>,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749946	750234	
==>,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750729	751017	
==>,
                  "NAME" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258495	258772	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259438	259715	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260289	260566	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261141	261418	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261993	262270	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	10500	10601	
==>self->INTERNAL_ERROR("Unexpected loop kind %s!", $kind);
      }

      push @{$self->{BLOCKS}}, $loop <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31695	31809	
==>ethod->{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($meth)) {
        my $n = $self- <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33272	33386	
==>ethod->{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($meth)) {
        my $n = $self- <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34983	35097	
==>ethod->{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($meth)) {
        my $n = $self- <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36286	36400	
==>ethod->{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($meth)) {
        my $n = $self- <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38233	38347	
==>ethod->{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($meth)) {
        my $n = $self- <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40329	40443	
==>ethod->{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($meth)) {
        my $n = $self- <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503486	503785	
==>P" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504340	504639	
==>P" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505195	505494	
==>P" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506050	506349	
==>P" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506904	507203	
==>P" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507759	508058	
==>P" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3561	3668	
==>contents)
	{
		# We wait until now to do this because only now are all
		# the contents guaranteed to be ins <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18093	18232	
==>ary' => 28
		}
	},
	{#State 48
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"... <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137634	137952	
==>",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138529	138847	
==>",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139425	139743	
==>",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140321	140639	
==>",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141216	141534	
==>",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142112	142430	
==>",
                  "NAME" => "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514163	514472	
==>}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515043	515352	
==>}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515923	516232	
==>}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528669	528978	
==>}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529551	529860	
==>}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	530433	530742	
==>}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655002	655247	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655797	656042	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656720	656965	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657644	657889	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658562	658807	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
6	/Users/nnunley/parrot/lib/Parrot/Op.pm	7664	7758	
==>n $body;
}

=item C<source($trans)>

Returns the L<C<full_body()>> of the op with substitutions <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33616	33743	
==>{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcodes2, @{ $expr->[1] };
        m <==
6	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	8311	8417	
==>[0]") || Carp::croak "Can't open $_[0]: $!";
      $handle = *PODSOURCE{IO};
    }
    $self->{'source_file <==
6	/Users/nnunley/parrot/tools/build/dynclasses.pl	3671	3770	
==>{
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs) <==
6	/Users/nnunley/parrot/tools/build/dynclasses.pl	4032	4131	
==>{
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs) <==
6	/Users/nnunley/parrot/tools/build/dynpmc.pl	3775	3874	
==>{
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs) <==
6	/Users/nnunley/parrot/tools/build/dynpmc.pl	4136	4235	
==>{
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061193	1061448	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062733	1062988	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063602	1063857	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064472	1064727	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065345	1065600	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638742	638935	
==>E" => 714,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 128 \"src/ops/pmc.ops\"\n  opcode_t* arg_op;\n  PMC * <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503431	503750	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504285	504604	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505140	505459	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505995	506314	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506849	507168	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507704	508023	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	1767	1897	
==>e to be inserted.

=cut

sub do_middle 
{
    my $self = shift;
    my $token;
    my $type;
    
    $self->{STACK} = [];
    $sel <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4309	4420	
==>])",
        'kc' => "((PMC *)cur_opcode[%ld])",
    );

    die "Unrecognized type '$type' for num '$num' in op <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	962	1070	
==>->{$type}{$_} == 1;
    last if $count<=0;
    push @temp,"$type$_";
    $self->{regs}->{$type}{$_}=1;
    $c <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	678	765	
==>isa($dest, 'Jako::Construct::Expression::Value::Identifier');
  confess("Left (" . ref($ <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	669	756	
==>isa($dest, 'Jako::Construct::Expression::Value::Identifier');
  confess("Left (" . ref($ <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	558	645	
==>isa($dest, 'Jako::Construct::Expression::Value::Identifier');
  confess("Left (" . ref($ <==
6	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	411	533	
==>%language_test_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    output_isnt       => 'isnt_eq <==
6	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	750	872	
==>%language_test_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    output_isnt       => 'isnt_eq <==
6	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	758	880	
==>%language_test_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    output_isnt       => 'isnt_eq <==
6	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	325	447	
==>%language_test_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    output_isnt       => 'isnt_eq <==
6	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	496	603	
==>%language_test_map = (
    output_is   => 'is_eq',
    output_like => 'like',
    output_isnt => 'isnt_eq <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	32441	32546	
==>on 4 Expressions
#
#----------------------

  'quote'      => \&_op_quote,
  'lambda'     => \&_op_lambda, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061119	1061408	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062659	1062948	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063528	1063817	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064398	1064687	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065271	1065560	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  " <==
6	/Users/nnunley/parrot/config/auto/jit.pm	2359	2466	
==>/core.jit" && $jit_is_working{$cpuarch}) {
        $jitcapable = 1;
    }

    if (-e "$jitbase/$cpuarch/$ji <==
6	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2718	2826	
==>st =~ s/gdbm\.lib/-llibgdbm/i;
        }
        my $extraLibs = '-lm -lgmp -lreadline -lpthread -lm -L/opt/l <==
6	/Users/nnunley/parrot/tools/build/dynpmc.pl	2513	2621	
==>st =~ s/gdbm\.lib/-llibgdbm/i;
        }
        my $extraLibs = '-lm -lgmp -lreadline -lpthread -lm -L/opt/l <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11017	11102	
==>r, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11806	11891	
==>r, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13043	13128	
==>r, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13887	13972	
==>r, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761388	761490	
==>5 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound r <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762241	762343	
==>5 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound r <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766505	766607	
==>5 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound r <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767358	767460	
==>5 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound r <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768211	768313	
==>5 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound r <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769065	769167	
==>5 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound r <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550381	550474	
==>ound\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{= <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551682	551775	
==>ound\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{= <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554234	554327	
==>ound\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{= <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555631	555724	
==>ound\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{= <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558286	558379	
==>ound\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{= <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559670	559763	
==>ound\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{= <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641697	642015	
==>{
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642584	642902	
==>{
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643472	643790	
==>{
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644364	644682	
==>{
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
6	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3077	3188	
==>needs to be link.exe, not cl.exe.
        # This makes 'link' and 'ld' the same.
        $conf->data->set(link = <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36629	36733	
==>by one - NWC
    my $l = $self->line_directive($line, "null.c");
    return <<EOC;
$l
${decl} {
	real_exc <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	639798	639893	
==>PLEMENTED, \n\t\t  \"uninplement class argument in instantiate\");\n\t  class = NULL; /* just fo <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197369	197631	
==>{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198266	198528	
==>{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199163	199425	
==>{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200059	200321	
==>{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200956	201218	
==>{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201853	202115	
==>{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841072	841286	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841835	842049	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842599	842813	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843476	843690	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844354	844568	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845232	845446	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72871	72970	
==>_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74473	74572	
==>_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76075	76174	
==>_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77678	77777	
==>_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79199	79298	
==>_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80720	80819	
==>_WARNINGS_UNDEF_FLAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31633	31739	
==>my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emi <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33210	33316	
==>my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emi <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34921	35027	
==>my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emi <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36224	36330	
==>my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emi <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38171	38277	
==>my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emi <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40267	40373	
==>my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emi <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470538	470747	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471524	471733	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472511	472720	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473498	473707	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474488	474697	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475479	475688	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154124	154391	
==>,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FL <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155027	155294	
==>,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FL <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155931	156198	
==>,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FL <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156835	157102	
==>,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FL <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157740	158007	
==>,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FL <==
6	/Users/nnunley/parrot/config/auto/headers.pm	2100	2201	
==>eader], [@found_headers, $header]) {
            $conf->data->set(testheaders => join('', map { "#incl <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	513422	513679	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514301	514558	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515181	515438	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099550	1099807	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100748	1101005	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101946	1102203	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19659	19788	
==>s,
    );
    return [ $result, \@opcodes ];
}

sub BuildVoidFunctionCall {
    my ( $parser, $expr )    = @_;
    my ( $de <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72562	72655	
==>.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  funcptr_t p = D2 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74164	74257	
==>.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  funcptr_t p = D2 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75766	75859	
==>.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  funcptr_t p = D2 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77369	77462	
==>.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  funcptr_t p = D2 <==
6	/Users/nnunley/parrot/config/auto/cgoto.pm	90	182	
==>2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/cgoto.pm - Computed C<goto>

=h <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9722	9817	
==>G>		and	print STDERR "**Dicard invalid token ".&$ShowCurToken.".\n";

			$$token=$$value=undef <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9284	9377	
==>G>		and	print STDERR "**Dicard invalid token ".&$ShowCurToken.".\n";

			$$token=$$value=undef <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747273	747356	
==>"src/ops/set.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748058	748141	
==>"src/ops/set.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753567	753650	
==>"src/ops/set.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754355	754438	
==>"src/ops/set.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186062	186335	
==>, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         ble <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186992	187265	
==>, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         ble <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187922	188195	
==>, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         ble <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193601	193874	
==>, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         ble <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194580	194853	
==>, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         ble <==
6	/Users/nnunley/parrot/lib/Parrot/Op.pm	5681	5784	
==>e auto-computed return value. See the note on op types above.

=cut

sub full_body
{
    my $self = shif <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055962	1056260	
==>=> 0,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056853	1057151	
==>=> 0,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057745	1058043	
==>=> 0,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058637	1058935	
==>=> 0,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function <==
6	/Users/nnunley/parrot/lib/Text/Balanced.pm	22884	22992	
==>unkpos);
						if (defined $unkpos)
						{
							push @fields, substr($$textref, $unkpos, $lastpos-$unkpos) <==
6	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	5558	5662	
==>ss iter goto loop_end_2d
    value_type = typeof value
    if newline goto print_newline
    if value_typ <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11520	11614	
==>= Jako::Construct::Expression::Value->new($block, $self->forth);

      $self->require_semicolo <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12067	12161	
==>= Jako::Construct::Expression::Value->new($block, $self->forth);

      $self->require_semicolo <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12610	12704	
==>= Jako::Construct::Expression::Value->new($block, $self->forth);

      $self->require_semicolo <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16465	16559	
==>= Jako::Construct::Expression::Value->new($block, $self->forth);

      $self->require_semicolo <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17236	17330	
==>= Jako::Construct::Expression::Value->new($block, $self->forth);

      $self->require_semicolo <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18041	18135	
==>= Jako::Construct::Expression::Value->new($block, $self->forth);

      $self->require_semicolo <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591375	591472	
==>src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *nex <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592585	592682	
==>src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *nex <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593795	593892	
==>src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *nex <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595006	595103	
==>src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *nex <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600018	600115	
==>src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *nex <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601094	601191	
==>src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *nex <==
6	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	4949	5066	
==>nd this argument
        $code .= "  .local int    r_$name \n";
        $code .= "  (r_$name, \$S0) = compiler(registe <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3183	3279	
==>we have anything on the lazy moves stack?
${ITEMP0} = elements lazy_moves
if ${ITEMP0} > 0 goto P <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4941	5037	
==>we have anything on the lazy moves stack?
${ITEMP0} = elements lazy_moves
if ${ITEMP0} > 0 goto P <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7868	7964	
==>we have anything on the lazy moves stack?
${ITEMP0} = elements lazy_moves
if ${ITEMP0} > 0 goto P <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8724	8820	
==>we have anything on the lazy moves stack?
${ITEMP0} = elements lazy_moves
if ${ITEMP0} > 0 goto P <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11564	11660	
==>we have anything on the lazy moves stack?
${ITEMP0} = elements lazy_moves
if ${ITEMP0} > 0 goto P <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470590	470893	
==>JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471576	471879	
==>JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472563	472866	
==>JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473550	473853	
==>JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474540	474843	
==>JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475531	475834	
==>JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	11604	11716	
==>ack);
}

sub rewrite_charclass {
    my ($self, $op, $incexc, $lastback) = @_;

    my @ops;
    push @ops, aop(' <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	809	899	
==>:isa($left, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($right) . ") i <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	647	737	
==>:isa($left, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($right) . ") i <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	800	890	
==>:isa($left, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($right) . ") i <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	689	779	
==>:isa($left, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($right) . ") i <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	638	728	
==>:isa($left, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($right) . ") i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175363	175630	
==>0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "F <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176266	176533	
==>0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "F <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177170	177437	
==>0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "F <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178074	178341	
==>0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "F <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178979	179246	
==>0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "F <==
6	/Users/nnunley/parrot/lib/Test/Builder.pm	316	424	
==>thread-safe for ithreads.
BEGIN {
    use Config;
    # Load threads::shared when threads are turned on
    i <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18541	18634	
==>ate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_generate <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19254	19347	
==>ate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_generate <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19742	19835	
==>ate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_generate <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20231	20324	
==>ate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_generate <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20720	20813	
==>ate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_generate <==
6	/Users/nnunley/parrot/lib/Text/Balanced.pm	54601	54693	
==>t this is designed
to facilitate the use of other Text::Balanced subroutines with
C<extract_m <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11174	11296	
==>ange, so that this can work right on
        #  all charsets that this module happens to run under.
        # Altho, hmm, w <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17014	17136	
==>ange, so that this can work right on
        #  all charsets that this module happens to run under.
        # Altho, hmm, w <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4522	4642	
==>ange, so that this can work right on
       #  all charsets that this module happens to run under.
       # Altho, hmm, w <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2015	2129	
==>ange, so that this can work right on
    #  all charsets that this module happens to run under.
    # Altho, hmm, w <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10438	10552	
==>ange, so that this can work right on
    #  all charsets that this module happens to run under.
    # Altho, hmm, w <==
6	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2118	2232	
==>ange, so that this can work right on
    #  all charsets that this module happens to run under.
    # Altho, hmm, w <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471261	471526	
==>\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472248	472513	
==>\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473235	473500	
==>\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474225	474490	
==>\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475216	475481	
==>\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476207	476472	
==>\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42430	42644	
==>=> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAM <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47137	47351	
==>=> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAM <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48727	48941	
==>=> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAM <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50327	50541	
==>=> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAM <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51920	52134	
==>=> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAM <==
6	/Users/nnunley/parrot/config/init/headers.pm	426	521	
==>qw(maniread);

our $description = 'Determining nongenerated header files';
our @args;

sub runst <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540858	541160	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542110	542412	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067334	1067636	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068520	1068822	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069706	1070008	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070893	1071195	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830962	831193	
==>NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 94 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831703	831934	
==>NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 94 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832430	832661	
==>NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 94 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833158	833389	
==>NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 94 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833880	834111	
==>NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 94 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834605	834836	
==>NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 94 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646836	647112	
==>, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "f <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647596	647872	
==>, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "f <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648357	648633	
==>, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "f <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649119	649395	
==>, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "f <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034660	1034936	
==>, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "f <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	689745	690020	
==>, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "f <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9212	9430	
==>};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23099	23317	
==>};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25538	25756	
==>};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028252	1028470	
==>};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029103	1029321	
==>};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029944	1030162	
==>};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061148	1061419	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062688	1062959	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063557	1063828	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064427	1064698	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065300	1065571	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	639042	639145	
==>ion(interpreter, NULL, NULL_REG_ACCESS,\n            \"No set_args with instantiate\");\n  }\n  sig = CO <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154276	154438	
==>( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155179	155341	
==>( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156083	156245	
==>( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156987	157149	
==>( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157892	158054	
==>( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
6	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	95	188	
==>nfig_c.pl 20350 2006-06-25T03:57:27.771662Z petdance  $
use strict;

my ($svnid) = '$Id: /parr <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28040	28156	
==>cent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse::RecDescent::lastexpected;
				$Parse::RecDescent: <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30114	30230	
==>cent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse::RecDescent::lastexpected;
				$Parse::RecDescent: <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32315	32431	
==>cent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse::RecDescent::lastexpected;
				$Parse::RecDescent: <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34911	35027	
==>cent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse::RecDescent::lastexpected;
				$Parse::RecDescent: <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42021	42137	
==>cent::failed++) {
				$Parse::RecDescent::expected
				   = $Parse::RecDescent::lastexpected;
				$Parse::RecDescent: <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74571	74685	
==>cent::failed++) {
			$Parse::RecDescent::expected
			    = $Parse::RecDescent::lastexpected;
			$Parse::RecDescent: <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258504	258832	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259447	259775	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260298	260626	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261150	261478	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262002	262330	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723957	724246	
==>"i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 811,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 161 \"src/ops/ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407111	407378	
==>unction",
                  "CODE" => 470,
                  "ARGS" => [
                              "s",
                              "ic",
                              "sc"
                            ],
                  "BODY" => "#line 535 \"src/ops/io.ops\"\ <==
6	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	9059	9162	
==>_version     { shift->_get_titled_section(
   'VERSION',
    max_token => 400,
    accept_verbatim => 1, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080431	1080522	
==>| {{\@2}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \"Illegal PMC enum (%d) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081496	1081587	
==>| {{\@2}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \"Illegal PMC enum (%d) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082561	1082652	
==>| {{\@2}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \"Illegal PMC enum (%d) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083627	1083718	
==>| {{\@2}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \"Illegal PMC enum (%d) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049573	1049871	
==>=> "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050606	1050904	
==>=> "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051640	1051938	
==>=> "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052674	1052972	
==>=> "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053709	1054007	
==>=> "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054835	1055133	
==>=> "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2659	2773	
==>f{ERRST}} != 0;
}

sub YYAbort {
	my($self)=shift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccept <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2541	2645	
==>f{ERRST}} != 0;
}

sub YYAbort {
	my($self)=shift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccept <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586697	586792	
==>er, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(inte <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587883	587978	
==>er, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(inte <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589069	589164	
==>er, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(inte <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590256	590351	
==>er, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(inte <==
6	/Users/nnunley/parrot/editor/ops2vim.pl	457	607	
==>($1) + length($cline) > 72) {
            print "$cline\n";
            $cline = $prefix;
        }
        $cline .= " $1";
    }
}

###
print "$cline <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27428	27529	
==>nstruction directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29895	29996	
==>nstruction directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33313	33414	
==>nstruction directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34567	34668	
==>nstruction directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36977	37078	
==>nstruction directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule <==
6	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	12793	12914	
==></font>)
            } elsif ($_ =~ /branch \d+ taken = 0%/) {
                print OUT qq($atag<font color="red">$_</fon <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18943	19040	
==>"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self->_add_ins <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19431	19528	
==>"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self->_add_ins <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19919	20016	
==>"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self->_add_ins <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20408	20505	
==>"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self->_add_ins <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20897	20994	
==>"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self->_add_ins <==
6	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	27976	28077	
==>nd $curr_open->[-1][0] eq '=over') {
        DEBUG > 1 and print "=back happily closes matching =over\ <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct.pm	274	371	
==>t.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako:: <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	232	329	
==>t.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako:: <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	222	319	
==>t.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako:: <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	232	329	
==>t.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako:: <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	232	329	
==>t.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako:: <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454723	455048	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455578	455903	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456433	456758	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457287	457612	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458142	458467	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => " <==
6	/Users/nnunley/parrot/config/inter/make.pm	2117	2228	
==>_version => "$1.$2");
    }

    $conf->data->set($util => $prog);
    $self->set_result('yes');

    # setup ma <==
6	/Users/nnunley/parrot/tools/dev/lib_deps.pl	12229	12365	
==>logb        math.h
logbf       math.h
logbl       math.h
logf        math.h
logl        math.h
longjmp     setjmp.h
lrint       math.h
lr <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	11644	11753	
==>n ("# End of rule $name", "}");
}

sub output_rule_pass {
    my ($self, $name) = @_;
    return split(/\n/, < <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793410	793501	
==>ps\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    { <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794315	794406	
==>ps\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    { <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795220	795311	
==>ps\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    { <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796126	796217	
==>ps\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    { <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27988	28082	
==>::RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::e <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30062	30156	
==>::RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::e <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32263	32357	
==>::RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::e <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34859	34953	
==>::RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::e <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41969	42063	
==>::RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::RecDescent::e <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74520	74612	
==>::RecDescent::lastexpected
		    && !$Parse::RecDescent::failed++) {
			$Parse::RecDescent::e <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	894713	895006	
==>GS" => [
                              "s",
                              "s",
                              "i",
                              "ic",
                              "sc"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = str <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31664	31779	
==>_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($m <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33241	33356	
==>_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($m <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34952	35067	
==>_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($m <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36255	36370	
==>_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($m <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38202	38317	
==>_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($m <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40298	40413	
==>_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitted
    if ($self->SUPER::implements($m <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262687	263008	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263633	263954	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264486	264807	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265340	265661	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266194	266515	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" <==
6	/Users/nnunley/parrot/editor/kate_syntax.pl	2812	2922	
==>pe} = 1;
}

print <<END;
    </list>

    <contexts>

      <context name="default" attribute="Normal Text" lin <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4600	4709	
==>left $op $right");
    $compiler->emit("  $dest = $temp");
  }
  else {
    $compiler->emit("  $dest = $left $ <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	3249	3354	
==>xt =~ m{^([;])(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, 'semicolon', undef, $1 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800624	800710	
==>ne 467 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed(interpreter, {{\@1}}, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801528	801614	
==>ne 467 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed(interpreter, {{\@1}}, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802432	802518	
==>ne 467 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed(interpreter, {{\@1}}, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803337	803423	
==>ne 467 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed(interpreter, {{\@1}}, <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27522	27623	
==>ta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pi <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29989	30090	
==>ta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pi <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33407	33508	
==>ta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pi <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34661	34762	
==>ta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pi <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37071	37172	
==>ta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pi <==
6	/Users/nnunley/parrot/lib/Text/Balanced.pm	12802	12899	
==>'.join('|',map { quotemeta $_ } split('',$_)).')'
	}
	pos = $posbug;

	my @match = _match_codebloc <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763023	763174	
==>"
                            ],
                  "BODY" => "#line 320 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        P <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763876	764027	
==>"
                            ],
                  "BODY" => "#line 320 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        P <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764729	764880	
==>"
                            ],
                  "BODY" => "#line 320 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        P <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765583	765734	
==>"
                            ],
                  "BODY" => "#line 320 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        P <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	395	512	
==>Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected 5 args!" unless @_ == 5;

  my ($bloc <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	395	512	
==>Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected 5 args!" unless @_ == 5;

  my ($bloc <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19043	19317	
==>,
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19819	20093	
==>,
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20597	20871	
==>,
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21397	21671	
==>,
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	306482	306756	
==>,
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307275	307549	
==>,
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343420	343714	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344661	344955	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345903	346197	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347145	347439	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348388	348682	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	916	1001	
==>self->new_item('', 'docs/faq.pod'),
			$self->new_item('', 'docs/practical_notes.pod') <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32822	32942	
==>mv, 
			    "typeinfo for rule $rule->{'name'}");
		    $pir .= "\n" if $pir !~ /\n$/;
		    $pir .= "### end typeinfo\n" <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26826	26934	
==>mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir .= "\n" if $pir !~ /\n$/;
		$pir .= "### end typeinfo\n" <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28542	28650	
==>mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir .= "\n" if $pir !~ /\n$/;
		$pir .= "### end typeinfo\n" <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36524	36632	
==>mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir .= "\n" if $pir !~ /\n$/;
		$pir .= "### end typeinfo\n" <==
6	/Users/nnunley/parrot/tools/dev/nm.pl	2130	2229	
==>ict;
use Getopt::Long;
use File::Basename;

use vars qw($VERSION);

require 5.005;

$VERSION = sprin <==
6	/Users/nnunley/parrot/tools/docs/write_docs.pl	238	328	
==>ols/docs/write_docs.pl [--silent] [--delete]

=head1 DESCRIPTION

This script writes the HT <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	626555	626849	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627698	627992	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628842	629136	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202766	203011	
==>nterpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ] <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203697	203942	
==>nterpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ] <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204628	204873	
==>nterpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ] <==
6	/Users/nnunley/parrot/tools/dev/lib_deps.pl	10108	10244	
==>h
expl        math.h
expm1       math.h
expm1f      math.h
expm1l      math.h
fabs        math.h
fabsf       math.h
fabsl       math.h
fc <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27421	27523	
==>rate" instruction directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29888	29990	
==>rate" instruction directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33306	33408	
==>rate" instruction directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34560	34662	
==>rate" instruction directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36970	37072	
==>rate" instruction directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta <==
6	/Users/nnunley/parrot/lib/Test/Builder.pm	2927	3023	
==>modules share such global information as the test counter and
where test output is going.

If you <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939824	940121	
==>lit",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940715	941012	
==>lit",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941607	941904	
==>lit",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942499	942796	
==>lit",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
6	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	9759	9878	
==>$N1 = acos op2
    .return ($N1)
neg_three:
    $N1 = atan op2
    .return ($N1)
neg_four:
    $N1 = op2 * op2
    $N1 = <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19352	19457	
==>rn op('seq' => [ $_[1], $_[2] ]); }
	],
	[#Rule 11
		 'expr', 1,
sub
#line 113 "lib/Regex/Grammar.y"
{ ret <==
6	/Users/nnunley/parrot/tools/build/c2str.pl	3169	3280	
==>rivate_h': $!";
    print OUT <<"HEADER";
/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This <==
6	/Users/nnunley/parrot/config/auto/byteorder.pm	194	287	
==>1 DESCRIPTION

Computes the native byteorder for Parrot's wordsize.

=cut

package auto::byteo <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837222	837305	
==>k.ops\"\n  (void)stack_pop(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837954	838037	
==>k.ops\"\n  (void)stack_pop(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838688	838771	
==>k.ops\"\n  (void)stack_pop(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	839420	839503	
==>k.ops\"\n  (void)stack_pop(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{ <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8060	8184	
==>eg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8842	8966	
==>eg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7713	7837	
==>eg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8502	8626	
==>eg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649056	649169	
==>e 234 \"src/ops/pmc.ops\"\n    {{\@1}} = pmc_type_p(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LA <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649819	649932	
==>e 234 \"src/ops/pmc.ops\"\n    {{\@1}} = pmc_type_p(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LA <==
6	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2296	2384	
==>to &Parrot::Test::pir_output_is;
}

=item C<p6rule_like($target, $pattern, $expected, $de <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11314	11430	
==>d?  Presumably that won't work right
        #  under non-ASCII charsets.  Something should be done about that.
    } <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17154	17270	
==>d?  Presumably that won't work right
        #  under non-ASCII charsets.  Something should be done about that.
    } <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4660	4775	
==>d?  Presumably that won't work right
       #  under non-ASCII charsets.  Something should be done about that.
    } <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2147	2257	
==>d?  Presumably that won't work right
    #  under non-ASCII charsets.  Something should be done about that.
  } <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10570	10680	
==>d?  Presumably that won't work right
    #  under non-ASCII charsets.  Something should be done about that.
  } <==
6	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2250	2360	
==>d?  Presumably that won't work right
    #  under non-ASCII charsets.  Something should be done about that.
  } <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028247	1028463	
==>next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARRO <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029098	1029314	
==>next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARRO <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029939	1030155	
==>next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARRO <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2796	2889	
==>!")  unless defined $left_type;
  $self->INTERNAL_ERROR("No type for right!") unless defined $ <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2562	2655	
==>!")  unless defined $left_type;
  $self->INTERNAL_ERROR("No type for right!") unless defined $ <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2484	2577	
==>!")  unless defined $left_type;
  $self->INTERNAL_ERROR("No type for right!") unless defined $ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528076	528373	
==>0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528957	529254	
==>0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529839	530136	
==>0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	446469	446727	
==>+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ": <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447106	447364	
==>+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ": <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449414	449672	
==>+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ": <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11529	11628	
==>onstruct::Expression::Value->new($block, $self->forth);

      $self->require_semicolon;

      my $ <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12076	12175	
==>onstruct::Expression::Value->new($block, $self->forth);

      $self->require_semicolon;

      my $ <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12619	12718	
==>onstruct::Expression::Value->new($block, $self->forth);

      $self->require_semicolon;

      my $ <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16474	16573	
==>onstruct::Expression::Value->new($block, $self->forth);

      $self->require_semicolon;

      my $ <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17245	17344	
==>onstruct::Expression::Value->new($block, $self->forth);

      $self->require_semicolon;

      my $ <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18050	18149	
==>onstruct::Expression::Value->new($block, $self->forth);

      $self->require_semicolon;

      my $ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324157	324331	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324949	325123	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325742	325916	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326532	326706	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327333	327507	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" = <==
6	/Users/nnunley/parrot/lib/Test/More.pm	1426	1536	
==>his eq $that, $test_name);

  is  ($this, $that,    $test_name);
  isnt($this, $that,    $test_name);

  # Rath <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071914	1072025	
==>= {{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074099	1074210	
==>= {{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076284	1076395	
==>= {{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078470	1078581	
==>= {{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\ <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	19168	19272	
==>G';
    }
    my (@meths, @mmds, @init_mmds, %init_mmds);
    foreach my $method (@{ $self->{vtable}{meth <==
6	/Users/nnunley/parrot/editor/kate_syntax.pl	1601	1694	
==>s" extensions="*.imc;*.pasm" mimetype="">

  <highlighting>

    <list name="special_directive <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	35983	36133	
==>7,
			">=" => 78,
			"*" => 80,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		D <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36241	36391	
==>7,
			">=" => 78,
			"*" => 80,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		D <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066837	1066983	
==>"
                            ],
                  "BODY" => "#line 49 \"src/ops/experimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOA <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068023	1068169	
==>"
                            ],
                  "BODY" => "#line 49 \"src/ops/experimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOA <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069209	1069355	
==>"
                            ],
                  "BODY" => "#line 49 \"src/ops/experimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOA <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070396	1070542	
==>"
                            ],
                  "BODY" => "#line 49 \"src/ops/experimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOA <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100624	100833	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101287	101496	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102057	102266	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102828	103037	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103493	103702	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	49824	49956	
==>$_[0], $_[2] );
            BuildAssigns( $_[0], $_[2], [] );
        }
	],
	[#Rule 32
		 '_if_then', 3,
sub
#line 195 "Lua\lu <==
6	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	5024	5145	
==>e>.

=cut

sub files
{
    my $self = shift;
    my $recursive = shift;
    my $ignore = shift;
    my @files = map {$self <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	801	889	
==>IVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($rig <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	639	727	
==>IVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($rig <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	792	880	
==>IVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($rig <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	681	769	
==>IVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($rig <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	630	718	
==>IVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($rig <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175600	175895	
==>"ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176503	176798	
==>"ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177407	177702	
==>"ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178311	178606	
==>"ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179216	179511	
==>"ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
6	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	19948	20083	
==>ther target names
      }

      if($neg) {
        if( $dont_ignore ) {
          $dont_ignore = '';
          delete $para->[1]{'targe <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175554	175798	
==>T_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176457	176701	
==>T_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177361	177605	
==>T_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178265	178509	
==>T_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179170	179414	
==>T_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
6	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	1478	1579	
==>ath);
}

=item C<read()>

This reads the contents of the file and returns it as an array or string
dep <==
6	/Users/nnunley/parrot/config/gen/makefiles.pm	3420	3603	
==>akefile',
        commentType                     => '#',
        replace_slashes                 => 1,
        conditioned_lines               => 1
    );
    genfile(
        'langua <==
6	/Users/nnunley/parrot/config/gen/makefiles.pm	7006	7186	
==>akefile',
        commentType                    => '#',
        replace_slashes                => 1,
        conditioned_lines              => 1
    );
    genfile(
        'langua <==
6	/Users/nnunley/parrot/config/gen/makefiles.pm	7230	7410	
==>akefile',
        commentType                    => '#',
        replace_slashes                => 1,
        conditioned_lines              => 1
    );
    genfile(
        'langua <==
6	/Users/nnunley/parrot/config/gen/makefiles.pm	5002	5179	
==>akefile',
        commentType                   => '#',
        replace_slashes               => 1,
        conditioned_lines             => 1
    );
    genfile(
        'langua <==
6	/Users/nnunley/parrot/config/gen/makefiles.pm	5235	5412	
==>akefile',
        commentType                   => '#',
        replace_slashes               => 1,
        conditioned_lines             => 1
    );
    genfile(
        'langua <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	60258	60344	
==>$rule->addprod(new Parse::RecDescent::Production($line))
			or  _no_rule("production",$ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458993	459327	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":bas <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459980	460314	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":bas <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460968	461302	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":bas <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461956	462290	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":bas <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462952	463286	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":bas <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463949	464283	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":bas <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324133	324324	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARG <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324925	325116	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARG <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325718	325909	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARG <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326508	326699	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARG <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327309	327500	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARG <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	14076	14221	
==>1]->isa('CallOp') )
        {
            my $result;
            my $callop = pop @{ $expr->[1] };
            my $nil = BuildLiteral( $parse <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	56143	56261	
==>rective requires a list
					       of one or more strings representing possible
					       types of the specified tok <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4884	4978	
==>t($offset)>

Transforms the C<goto OFFSET($offset)> macro in an ops file into the
relevant C co <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1829	1923	
==>t($offset)>

Transforms the C<goto OFFSET($offset)> macro in an ops file into the
relevant C co <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2478	2572	
==>t($offset)>

Transforms the C<goto OFFSET($offset)> macro in an ops file into the
relevant C co <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2197	2291	
==>t($offset)>

Transforms the C<goto OFFSET($offset)> macro in an ops file into the
relevant C co <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2158	2252	
==>t($offset)>

Transforms the C<goto OFFSET($offset)> macro in an ops file into the
relevant C co <==
6	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	906	1023	
==>IN:
	new P20, .PerlHash     # PerlHash   # Numerics
	new P21, .PerlHash     # Alphabetics.
	new P22, .PerlHash     # ? <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	3509	3601	
==>rocess_code_start_token($token)>

Processes the code start token. If the code text is the nam <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084699	1084788	
==>" => "#line 163 \"src/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085752	1085841	
==>" => "#line 163 \"src/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086805	1086894	
==>" => "#line 163 \"src/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087859	1087948	
==>" => "#line 163 \"src/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\ <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	21528	21635	
==>ange', 5,
sub
#line 153 "lib/Regex/Grammar.y"
{ return { min => 0, max => $_[4] }; }
	],
	[#Rule 31
		 'rang <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	20743	20846	
==>mds, [ $func, $left, $right, $meth_name ];
            foreach my $variant (@{ $self->{mmd_variants}{$me <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	25183	25355	
==>ops) = $self->rewrite($R, $rfail);

    my @ops = (
                        @R_ops,
                        aop('pushint', [ 1 ]),
                        aop('goto', [ $nex <==
6	/Users/nnunley/parrot/lib/Test/Builder.pm	12864	12969	
==>f->ok($test, $name);
        $self->_cmp_diag($got, 'ne', $dont_expect) unless $test;
        return $test <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579262	579351	
==>src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *na <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580567	580656	
==>src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *na <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581872	581961	
==>src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *na <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583178	583267	
==>src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *na <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31636	31742	
==>($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitte <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33213	33319	
==>($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitte <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34924	35030	
==>($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitte <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36227	36333	
==>($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitte <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38174	38280	
==>($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitte <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40270	40376	
==>($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing methods get emitte <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	62050	62161	
==>pen my $FH, '>', $filename
        or die "can't open $filename ($!).\n";

    my $generator = new pirVisitor <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27333	27433	
==>or the instruction, just take that. If not, we need
		# to generate it from the "to generate" instruc <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29800	29900	
==>or the instruction, just take that. If not, we need
		# to generate it from the "to generate" instruc <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33218	33318	
==>or the instruction, just take that. If not, we need
		# to generate it from the "to generate" instruc <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34472	34572	
==>or the instruction, just take that. If not, we need
		# to generate it from the "to generate" instruc <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36882	36982	
==>or the instruction, just take that. If not, we need
		# to generate it from the "to generate" instruc <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	153420	153716	
==>_num",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	174654	174950	
==>_num",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	195891	196187	
==>_num",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	212625	212921	
==>_num",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221180	221476	
==>_num",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	229742	230038	
==>_num",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544192	544293	
==>\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = a <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545528	545629	
==>\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = a <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546864	546965	
==>\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = a <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11799	11888	
==>S}[${ITEMP1}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat $ <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8862	8951	
==>S}[${ITEMP1}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat $ <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7434	7523	
==>S}[${ITEMP1}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat $ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632608	632704	
==>Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633650	633746	
==>Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080502	1080598	
==>Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081567	1081663	
==>Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082632	1082728	
==>Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083698	1083794	
==>Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2} <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	12460	12572	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT|PARROT_JUMP_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25662	25774	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT|PARROT_JUMP_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1027508	1027620	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT|PARROT_JUMP_ <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9337	9448	
==>ed index");
}

sub output_popint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);
    if ($self->{ <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9031	9142	
==>ed index");
}

sub output_popint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);
    if ($self->{ <==
6	/Users/nnunley/parrot/lib/Test/Builder.pm	21987	22087	
==>)>) it "passes through" the failure.

    return ok(...) || diag(...);

=for blame transfer
Mark Fowl <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3427	3518	
==>"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5189	5280	
==>"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8101	8192	
==>"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2174	2265	
==>"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3426	3517	
==>"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6055	6146	
==>"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540560	540684	
==>{{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541812	541936	
==>{{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543064	543188	
==>{{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544347	544471	
==>{{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545683	545807	
==>{{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547019	547143	
==>{{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) a>>=1;\n <==
6	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1093	1189	
==>eople writing Pod formatters based on Pod::Simple.

This class (which is very small -- read the s <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4639	4729	
==>=item C<goto_address($address)>

Transforms the C<goto ADDRESS($address)> macro in an ops f <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1304	1394	
==>=item C<goto_address($address)>

Transforms the C<goto ADDRESS($address)> macro in an ops f <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1829	1919	
==>=item C<goto_address($address)>

Transforms the C<goto ADDRESS($address)> macro in an ops f <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1720	1810	
==>=item C<goto_address($address)>

Transforms the C<goto ADDRESS($address)> macro in an ops f <==
6	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1444	1534	
==>=item C<goto_address($address)>

Transforms the C<goto ADDRESS($address)> macro in an ops f <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11208	11407	
==>_tmp( $parser, 'pmc' );
                        push @opcodes, new LocalDir( $parser,
                            'result' => $result2,
                        );
                        push @opc <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9431	9614	
==>_tmp( $parser, 'pmc' );
                    push @opcodes, new LocalDir( $parser,
                        'result' => $result2,
                    );
                    push @opc <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12728	12911	
==>_tmp( $parser, 'pmc' );
                    push @opcodes, new LocalDir( $parser,
                        'result' => $result2,
                    );
                    push @opc <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8407	8558	
==>_tmp( $parser, 'pmc' );
            push @opcodes, new LocalDir( $parser,
                'result' => $result2,
            );
            push @opc <==
6	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17621	17756	
==>_tmp( $parser, 'pmc' );
        push @opcodes, new LocalDir( $parser,
            'result' => $result2,
        );
        push @opc <==
6	/Users/nnunley/parrot/lib/Class/Struct.pm	11545	11641	
==>or C<'*$'>)

The element is a scalar, and by default is initialized to C<undef>
(but see L<Initia <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493771	494122	
==>{
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494638	494989	
==>{
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495506	495857	
==>{
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496374	496725	
==>{
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497243	497594	
==>{
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498113	498464	
==>{
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39091	39340	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39956	40205	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40803	41052	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41651	41900	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569267	569356	
==>DY" => "#line 218 \"src/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->isa(interpreter, {{ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570160	570249	
==>DY" => "#line 218 \"src/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->isa(interpreter, {{ <==
6	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10874	10971	
==>moves the instance from
the cache, and undefines it.

Raises an exception if the delete fails.

=c <==
6	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4708	4805	
==>moves the instance from the cache, and undefines it.

Raises an exception if the delete fails.

=c <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332384	332479	
==>y soon */\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = P <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333662	333757	
==>y soon */\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = P <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334940	335035	
==>y soon */\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = P <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336219	336314	
==>y soon */\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = P <==
6	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	8397	8525	
==>lerplate;

    my $ok = 1;
    my $idx = -@end_boilerplate;
    my $mismatch_at = 0;
    while ($idx < 0) {
        next unless d <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7755	7853	
==>est_reg) {
		$pir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8611	8709	
==>est_reg) {
		$pir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5873	5971	
==>est_reg) {
		$pir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6431	6529	
==>est_reg) {
		$pir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack <==
6	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20413	20507	
==>:PullParser
object (and not an object of a subclass), then there's no reason to
bother subclass <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	767	855	
==>eft) . ") is not Value") unless UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	605	693	
==>eft) . ") is not Value") unless UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	758	846	
==>eft) . ") is not Value") unless UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	647	735	
==>eft) . ") is not Value") unless UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	596	684	
==>eft) . ") is not Value") unless UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value <==
6	/Users/nnunley/parrot/tools/dev/gen_class.pl	43	131	
==>l Foundation.
# $Id: /parrot/tools/dev/gen_class.pl 19607 2006-05-30T15:23:20.183054Z co <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11147	11263	
==>pulate the list without a range, so that this can work right on
        #  all charsets that this module happens to r <==
6	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16987	17103	
==>pulate the list without a range, so that this can work right on
        #  all charsets that this module happens to r <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4495	4610	
==>pulate the list without a range, so that this can work right on
       #  all charsets that this module happens to r <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1988	2100	
==>pulate the list without a range, so that this can work right on
    #  all charsets that this module happens to r <==
6	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10411	10523	
==>pulate the list without a range, so that this can work right on
    #  all charsets that this module happens to r <==
6	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2091	2203	
==>pulate the list without a range, so that this can work right on
    #  all charsets that this module happens to r <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765979	766153	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766831	767005	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767684	767858	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768537	768711	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572986	573075	
==>ring);\n  VTABLE_set_string_native(interpreter, name, {{\@2}});\n  {{\@1}} = pmc_new_init( <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573896	573985	
==>ring);\n  VTABLE_set_string_native(interpreter, name, {{\@2}});\n  {{\@1}} = pmc_new_init( <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18441	18541	
==>turn;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_genera <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19154	19254	
==>turn;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_genera <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19642	19742	
==>turn;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_genera <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20131	20231	
==>turn;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_genera <==
6	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20620	20720	
==>turn;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_genera <==
6	/Users/nnunley/parrot/languages/python/pie-thon.pl	1785	1884	
==>(%type_map)) {
    $rev_type_map{$v} = $k;
};

get_dis($DIS, $file);
get_source($file);
exit if $opt <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540848	541158	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542100	542410	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067324	1067634	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068510	1068820	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069696	1070006	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070883	1071193	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6408	6507	
==>ements are exchanged.
   Exchange=FALSE
   ' Compare the array elements by pairs. When two are excha <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16061	16160	
==>ements are exchanged.
   Exchange=FALSE
   ' Compare the array elements by pairs. When two are excha <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6544	6638	
==>_type_state[${ITEMP0}] = ${STYPES}
    prop_stack_depth[${ITEMP0}] = stack_depth
    goto POST_ <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4482	4576	
==>_type_state[${ITEMP0}] = ${STYPES}
    prop_stack_depth[${ITEMP0}] = stack_depth
    goto POST_ <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6225	6311	
==>_type_state[${ITEMP0}] = ${STYPES}
prop_stack_depth[${ITEMP0}] = stack_depth
goto POST_ <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4163	4249	
==>_type_state[${ITEMP0}] = ${STYPES}
prop_stack_depth[${ITEMP0}] = stack_depth
goto POST_ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432086	432437	
==>"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 496,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 84 \"src/ <==
6	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19932	20152	
==>tive <autotree> was specified,
                                          so any production not ending
                                          in an explicit action has
                                          some pars <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080400	1080493	
==>tal.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    internal_excepti <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081465	1081558	
==>tal.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    internal_excepti <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082530	1082623	
==>tal.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    internal_excepti <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083596	1083689	
==>tal.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    internal_excepti <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459276	459583	
==>"NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460263	460570	
==>"NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461251	461558	
==>"NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462239	462546	
==>"NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463235	463542	
==>"NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464232	464539	
==>"NAME" => "cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2982	3088	
==>each pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4740	4846	
==>each pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1904	2010	
==>each pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3156	3262	
==>each pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1195	1301	
==>each pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2905	3011	
==>each pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2978	3082	
==>for each pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$ <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4736	4840	
==>for each pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$ <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1900	2004	
==>for each pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$ <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3152	3256	
==>for each pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$ <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1191	1295	
==>for each pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$ <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2901	3005	
==>for each pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$pops) {
		$ <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	15913	16055	
==>73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			"<=" => 85, <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29766	29908	
==>73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			"<=" => 85, <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30281	30423	
==>73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			"<=" => 85, <==
6	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36827	36969	
==>73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			"<=" => 85, <==
6	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	14787	14898	
==>k::reftree {
    my $op = shift;
    return [ annotated($op, "check($op->{args}->[0])"),
             $op->{args <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	133	232	
==>d @tokdsc
# Then compile.
use strict;
use Getopt::Std;
use vars qw( @tokens @tokdsc);
use vars qw(%c <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591495	591592	
==>C_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_exception(i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592705	592802	
==>C_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_exception(i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593915	594012	
==>C_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_exception(i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595126	595223	
==>C_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_exception(i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600138	600235	
==>C_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_exception(i <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601214	601311	
==>C_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    real_exception(i <==
6	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21767	21932	
==>arget'} . '")' )
            : ''
          )
        );
        DEBUG and print "Ignoring targetless =end\n";
        next;
      }
      
      unless($content =~ m <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31929	32044	
==>rs = $method->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33506	33621	
==>rs = $method->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38523	38638	
==>rs = $method->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40563	40678	
==>rs = $method->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg <==
6	/Users/nnunley/parrot/config/auto/pack.pm	598	707	
==>ier only works for perl 5.6.x or greater.
    #

    my $intsize  = $conf->data->get('intsize');
    my $longs <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454663	454921	
==>\"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455518	455776	
==>\"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456373	456631	
==>\"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457227	457485	
==>\"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458082	458340	
==>\"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458937	459195	
==>\"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519701	519959	
==>\"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520556	520814	
==>\"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	521411	521669	
==>\"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522265	522523	
==>\"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523120	523378	
==>\"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523975	524233	
==>\"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
6	/Users/nnunley/parrot/examples/benchmarks/fib.pl	270	362	
==>=head1 DESCRIPTION

Calculates the Fibonacci Number for C<n> (defaults to 28 if
unspecified). <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4851	4942	
==>self->current_block;

      my $ident = Jako::Construct::Expression::Value::Identifier->new( <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11342	11433	
==>self->current_block;

      my $ident = Jako::Construct::Expression::Value::Identifier->new( <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11889	11980	
==>self->current_block;

      my $ident = Jako::Construct::Expression::Value::Identifier->new( <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12432	12523	
==>self->current_block;

      my $ident = Jako::Construct::Expression::Value::Identifier->new( <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22646	22736	
==>self->current_block;
      my $ident = Jako::Construct::Expression::Value::Identifier->new( <==
6	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	414	514	
==>my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  #$new-> <==
6	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	712	811	
==>my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new-> <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	218	317	
==>my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new-> <==
6	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	217	316	
==>my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new-> <==
6	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	466	565	
==>my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new-> <==
6	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	178	277	
==>my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new-> <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93352	93586	
==>terpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94132	94366	
==>terpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109676	109910	
==>terpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110455	110689	
==>terpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133881	134115	
==>terpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134662	134896	
==>terpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1281	1397	
==>eft  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compi <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1272	1388	
==>eft  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compi <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1161	1277	
==>eft  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compi <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1620	1736	
==>eft  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compi <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1756	1872	
==>eft  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compi <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1399	1515	
==>eft  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RIGHT}; }


#
# compi <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3023	3132	
==>ff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find registe <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4781	4890	
==>ff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find registe <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1945	2054	
==>ff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find registe <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3197	3306	
==>ff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find registe <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1236	1345	
==>ff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find registe <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2946	3055	
==>ff off the stack
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find registe <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31609	31727	
==>.

=cut

sub body
{
    my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing met <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33186	33304	
==>.

=cut

sub body
{
    my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing met <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34897	35015	
==>.

=cut

sub body
{
    my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing met <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36200	36318	
==>.

=cut

sub body
{
    my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing met <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38147	38265	
==>.

=cut

sub body
{
    my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing met <==
6	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40243	40361	
==>.

=cut

sub body
{
    my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existing met <==
6	/Users/nnunley/parrot/lib/Parrot/Op.pm	6870	6972	
==>]*?)}}/     $trans->expr_address($1); /me;

    return $_;
}

=item C<rewrite_body($body, $trans)>

Per <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27536	27637	
==>r'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'ins <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30003	30104	
==>r'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'ins <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33421	33522	
==>r'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'ins <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34675	34776	
==>r'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'ins <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37085	37186	
==>r'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'ins <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714651	714752	
==>) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putp <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715574	715675	
==>) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putp <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716519	716620	
==>) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putp <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722338	722439	
==>) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putp <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723367	723468	
==>) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putp <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724411	724512	
==>) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putp <==
6	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4595	4707	
==>ompile, linklibs, or copy\n";
}

sub run {
    print join(" ", @_), "\n";

    return system(@_) == 0;
}

sub mod <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27586	27683	
==>} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{' <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30053	30150	
==>} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{' <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33471	33568	
==>} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{' <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34725	34822	
==>} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{' <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37135	37232	
==>} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{' <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	40701	40805	
==>/\$\{$key\}/$value/g;
	}

    # If we have any unsubstituted variables, error.
    if ($pir =~ /\$\{([^}] <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	5237	5340	
==>sym = $self->block->find_symbol($name);

  my %props = $sym->props;

  if (exists $props{op}) {
    my $ <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344456	344548	
==>ng_free(path); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interp <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345698	345790	
==>ng_free(path); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interp <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346940	347032	
==>ng_free(path); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interp <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348183	348275	
==>ng_free(path); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interp <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240194	240394	
==>er, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241142	241342	
==>er, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242090	242290	
==>er, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243039	243239	
==>er, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3429	3531	
==>and $props{fnlib}) {
      $fnlib = $props{fnlib}->value; # TODO: We should make sure its a string, som <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6093	6195	
==>and $props{fnlib}) {
      $fnlib = $props{fnlib}->value; # TODO: We should make sure its a string, som <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908768	909067	
==>P" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909664	909963	
==>P" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910561	910860	
==>P" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911458	911757	
==>P" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
6	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	917	1014	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub parse_line { shift->parse_lines(@_) } # alias

# - - -  Turn back <==
6	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5464	5553	
==>crement stack height.
PRE_BRANCH_${CURIC}_CONT_$register_num:
dec stack_depth
PIR
		$pir = <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847617	847875	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848396	848654	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849176	849434	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850062	850320	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850949	851207	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851836	852094	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550327	550452	
==>r, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, met <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551628	551753	
==>r, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, met <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554180	554305	
==>r, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, met <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555577	555702	
==>r, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, met <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558232	558357	
==>r, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, met <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559616	559741	
==>r, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", meth);\n  }\n  dest = (opcode_t *)VTABLE_invoke(interpreter, met <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925997	926109	
==>],
                  "BODY" => "#line 385 \"src/ops/string.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO_HEADE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927467	927579	
==>],
                  "BODY" => "#line 385 \"src/ops/string.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO_HEADE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928937	929049	
==>],
                  "BODY" => "#line 385 \"src/ops/string.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO_HEADE <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930408	930520	
==>],
                  "BODY" => "#line 385 \"src/ops/string.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO_HEADE <==
6	/Users/nnunley/parrot/config/inter/progs.pm	144	238	
==>fig/inter/progs.pm - C Compiler and Linker

=head1 DESCRIPTION

Asks the user which compiler, l <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566923	567240	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "does",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567817	568134	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "does",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072527	1072627	
==>* {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we used abs({{\@4 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074712	1074812	
==>* {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we used abs({{\@4 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076897	1076997	
==>* {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we used abs({{\@4 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079083	1079183	
==>* {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we used abs({{\@4 <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926615	926905	
==>NFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928085	928375	
==>NFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929555	929845	
==>NFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931026	931316	
==>NFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
6	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	10002	10087	
==>"$_: 8.3 name collision with $files_in_dir_8dot3{$dirname}{$filename_8dot3} ($filename <==
6	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10267	10350	
==>/
HH,$c,$d,$a,$b,$_[19],16,0x1fa27cf8,/* 47 */
HH,$b,$c,$d,$a,$_[6],23,0xc4ac5665,/* <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459025	459330	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_c <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460012	460317	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_c <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461000	461305	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_c <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461988	462293	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_c <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462984	463289	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_c <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463981	464286	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  "FLAGS" => ":base_c <==
6	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	3475	3587	
==>or

}
sub false {
	my($type)=@_;
	if ($type eq "N") {
		return "0.0";
	} else {
		return qq{""};
	}
}
my $eqnum=0 <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27389	27490	
==>to generate it from the "to generate" instruction directive.
		$pir .= "### translation\n";
		if ($rul <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29856	29957	
==>to generate it from the "to generate" instruction directive.
		$pir .= "### translation\n";
		if ($rul <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33274	33375	
==>to generate it from the "to generate" instruction directive.
		$pir .= "### translation\n";
		if ($rul <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34528	34629	
==>to generate it from the "to generate" instruction directive.
		$pir .= "### translation\n";
		if ($rul <==
6	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36938	37039	
==>to generate it from the "to generate" instruction directive.
		$pir .= "### translation\n";
		if ($rul <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72888	72989	
==>LAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74490	74591	
==>LAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76092	76193	
==>LAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77695	77796	
==>LAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79216	79317	
==>LAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80737	80838	
==>LAG,\n\t \"Symbol '%s' not found: %s\\n\", name, err ? err : \"unknown reason\");\n      {{\@1}} = pmc <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072175	1072312	
==>q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xk <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074360	1074497	
==>q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xk <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076545	1076682	
==>q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xk <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078731	1078868	
==>q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xk <==
6	/Users/nnunley/parrot/tools/build/pmc2c.pl	2361	2457	
==>lues.

Finally, the .c and .h files are generated. The appropriate base class
header files are in <==
6	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2692	2780	
==>dent##rtfitemkeepn#\\sb60\\sa150\\fi-120\n",
 '/item-bullet' => "\n\\par}\n",
 'item-numb <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711981	712293	
==>e_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 799,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 5 <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3914	4015	
==>truct::Block
  my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless defi <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7823	7924	
==>truct::Block
  my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless defi <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8470	8571	
==>truct::Block
  my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless defi <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9138	9239	
==>truct::Block
  my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless defi <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9807	9908	
==>truct::Block
  my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless defi <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514173	514477	
==>AL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515053	515357	
==>AL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515933	516237	
==>AL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528679	528983	
==>AL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529561	529865	
==>AL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	530443	530747	
==>AL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640176	640461	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640930	641215	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645254	645539	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646150	646435	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	622018	622117	
==>+=n}};\n    }\n    /* no match redo plain opcode */\n    ((void**)cur_opcode)[0] =\n\tparrot_pic_opc <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623871	623970	
==>+=n}};\n    }\n    /* no match redo plain opcode */\n    ((void**)cur_opcode)[0] =\n\tparrot_pic_opc <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197345	197628	
==>c/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198242	198525	
==>c/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199139	199422	
==>c/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200035	200318	
==>c/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200932	201215	
==>c/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201829	202112	
==>c/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504117	504421	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_co <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504972	505276	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_co <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505827	506131	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_co <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506681	506985	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_co <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507536	507840	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_co <==
6	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	1421	1518	
==>oid *cursor)
{
    return memcmp (cursor, fingerprint, $len) == 0;
}

size_t
PackFile_write_finger <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196799	197098	
==>LATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197695	197994	
==>LATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198592	198891	
==>LATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199489	199788	
==>LATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200385	200684	
==>LATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201282	201581	
==>LATIVE",
                  "NAME" => "le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
6	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2879	2984	
==>124,

 'lchevron' => 171, # legacy for laquo
 'rchevron' => 187, # legacy for raquo

 # Remember, grave lo <==
6	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	901	996	
==>class
{
    return 'Parrot::IO::File';
}

=item C<directory_with_path($path)>

Returns the direc <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867174	867267	
==>/ops/string.ops\"\n  INTVAL len;\n  len = string_length(interpreter, {{\@2}});\n  {{\@1}} = st <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868140	868233	
==>/ops/string.ops\"\n  INTVAL len;\n  len = string_length(interpreter, {{\@2}});\n  {{\@1}} = st <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869106	869199	
==>/ops/string.ops\"\n  INTVAL len;\n  len = string_length(interpreter, {{\@2}});\n  {{\@1}} = st <==
6	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870073	870166	
==>/ops/string.ops\"\n  INTVAL len;\n  len = string_length(interpreter, {{\@2}});\n  {{\@1}} = st <==
6	/Users/nnunley/parrot/languages/python/pie-thon.pl	12862	12983	
==>($c))) {
	print <<EOC;
	# builtin $c $cmt $o
EOC
	push @stack, [$c, $c, $o];
	return;
    }
    # params TODO
    if ($nam <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4188	4290	
==>);
    my $temp = $compiler->temp_reg($calc_type);
    $right = $right->compile($compiler);
    $compil <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4839	4939	
==>->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();

    $compiler->emit("  $pmc_reg = new $pmc_type <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2902	3002	
==>->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();

    $compiler->emit("  $pmc_reg = new $pmc_type <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1205	1304	
==>->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();
    $compiler->emit("  $pmc_reg = new $pmc_type <==
6	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1199	1298	
==>->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();
    $compiler->emit("  $pmc_reg = new $pmc_type <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727093	727356	
==>hange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "io"
                               ],
                  "TYPE" => "function",
                  "CODE" => 8 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727891	728154	
==>hange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "io"
                               ],
                  "TYPE" => "function",
                  "CODE" => 8 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	728688	728951	
==>hange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "io"
                               ],
                  "TYPE" => "function",
                  "CODE" => 8 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729482	729745	
==>hange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "io"
                               ],
                  "TYPE" => "function",
                  "CODE" => 8 <==
5	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11249	11370	
==>sub { /^(call|branch)/ } );

    print OUT "</pre>";
    print OUT page_footer();

    close(OUT);
    close(IN);


    $o <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27437	27551	
==>n directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				" <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29904	30018	
==>n directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				" <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33322	33436	
==>n directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				" <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34576	34690	
==>n directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				" <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36986	37100	
==>n directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				" <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27429	27535	
==>struction directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pi <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29896	30002	
==>struction directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pi <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33314	33420	
==>struction directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pi <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34568	34674	
==>struction directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pi <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36978	37084	
==>struction directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417336	417506	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418464	418634	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419592	419762	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420721	420891	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	19853	19966	
==>reach (@rules) {
        if ($_->{'code'} =~ /\w\s+\w/) {
            die "Currently unable to build dispatch tabl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504081	504408	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504936	505263	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505791	506118	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506645	506972	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507500	507827	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63793	63911	
==>de);
										   
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$line,"$code$argcode($1) <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	13396	13508	
==>oreach my $arg (@args) {
					next if $arg->[0] =~ /^\$P\d+$/;
					if ($arg->[2] eq "BARE") {
						push @return <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63086	63190	
==>de);
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$line,"$code$argcode($1) <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64523	64627	
==>de);
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$line,"$code$argcode($1) <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62451	62553	
==>de);
					$prod and $prod->additem($item)
					      or  _no_rule("repetition",$line,"$code$argcode($1) <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26596	26717	
==>}

sub BuildWhile {
    my ( $parser, $expr, $block ) = @_;
    my @opcodes    = ();
    my $l_continue = new_label($ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712586	712677	
==>erpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(interp <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713693	713784	
==>erpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(interp <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720053	720144	
==>erpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(interp <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721253	721344	
==>erpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(interp <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072499	1072605	
==>, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong bec <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074684	1074790	
==>, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong bec <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076869	1076975	
==>, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong bec <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079055	1079161	
==>, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong bec <==
5	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9790	9888	
==>nction of being the very first module written for Pugs.

It provides a simple set of common test ut <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467730	468005	
==>n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468601	468876	
==>n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469475	469750	
==>n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470350	470625	
==>n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
5	/Users/nnunley/parrot/lib/Test/More.pm	32650	32759	
==>em, as long as both arrays are sorted
    # with the same algorithm.
    # Have to inline the sort routine due <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92622	92944	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95073	95395	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95966	96288	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  " <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7534	7645	
==>t
end
100 print "100!"
    goto FIN
200 print "200!"
    goto FIN
300 print "300!"
    goto FIN
oats:
	print "Oa <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19817	19928	
==>t
end
100 print "100!"
    goto FIN
200 print "200!"
    goto FIN
300 print "300!"
    goto FIN
oats:
	print "Oa <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401998	402422	
==>",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 465,
                  "ARGS" => [
                              "p",
                              "i",
                              " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793399	793484	
==>c/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794304	794389	
==>c/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795209	795294	
==>c/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796115	796200	
==>c/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, <==
5	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	5485	5660	
==>litpath( $_ ) )[1];
                         $dir =~ s!\.svn/$!!;
                         $dir => 1 
                       } keys %{ ExtUtils::Manifest::manifind() };
   my @ <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	32715	32858	
==>=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			'DO' = <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44885	45028	
==>=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			'DO' = <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	29918	30015	
==>do() is about finding the right package to look for $TODO in.  It
uses the exported_to() package t <==
5	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	52	148	
==>2yaml.pl 4793 2005-05-31T14:22:35.671857Z svm  $

=head1 DESCRIPTION

=head1 SYNTAX

=cut

# prag <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90830	91099	
==>t.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91684	91953	
==>t.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92538	92807	
==>t.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	3926	4078	
==>{
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = clon <==
5	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15073	15159	
==>d ditto for
C<$Name2character{$name}> and
C<chr($Name2character_number{$name})>.

=head <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126582	126707	
==>AL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (I <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127717	127842	
==>AL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (I <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128852	128977	
==>AL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (I <==
5	/Users/nnunley/parrot/config/auto/jit.pm	977	1097	
==>chname);

    if (!defined $osname) {
        ($osname, $cpuarch) = ($cpuarch, q{});
    }

    # This was added to conve <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	53422	53523	
==>ass::Classless
  # Not the most brilliant routine, but passable.
  # Don't give it a cyclic data struc <==
5	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	7445	7598	
==>$1_%0/g;
        }

        # args
        while ($line =~ s/\$(?!(?:P|S|N|I)\d+|R\b)(\w+)/a_$1/)
        {
            my $name = $1;
            my $arg <==
5	/Users/nnunley/parrot/tools/build/dynclasses.pl	2880	3002	
==>_$PATHQUOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUOTE";
}

our $NOW = time();

################### M <==
5	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3189	3311	
==>_$PATHQUOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUOTE";
}

our $NOW = time();

################### M <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	2984	3106	
==>_$PATHQUOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUOTE";
}

our $NOW = time();

################### M <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7301	7395	
==>im$(a$)
print rtrim$(a$);"<"
' A's and -'s
print string$(10,75-10)
print string$(20, "-")

' ON <==
5	/Users/nnunley/parrot/tools/dev/install_files.pl	974	1069	
==>of the MANIFEST (currently MANIFEST and MANIFEST.generated
are used) is:

    source_path <white <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905309	905394	
==>2 \"src/ops/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906328	906413	
==>2 \"src/ops/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907347	907432	
==>2 \"src/ops/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908367	908452	
==>2 \"src/ops/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909394	909703	
==>3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910291	910600	
==>3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911188	911497	
==>3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912086	912395	
==>3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638223	638530	
==>3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "in <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9540	9790	
==>result' => $result2,
                    );
                    push @opcodes, new KeyedGetOp(
                        $parser,
                        'result' => $result2,
                        'arg1'   => $result,
                        'a <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11325	11570	
==>result' => $result2,
                        );
                        push @opcodes, new KeyedGetOp( $parser,
                            'result' => $result2,
                            'arg1'   => $result,
                            'a <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12837	13062	
==>result' => $result2,
                    );
                    push @opcodes, new KeyedGetOp( $parser,
                        'result' => $result2,
                        'arg1'   => $result,
                        'a <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8500	8685	
==>result' => $result2,
            );
            push @opcodes, new KeyedGetOp( $parser,
                'result' => $result2,
                'arg1'   => $result,
                'a <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17706	17871	
==>result' => $result2,
        );
        push @opcodes, new KeyedGetOp( $parser,
            'result' => $result2,
            'arg1'   => $result,
            'a <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	11269	11401	
==>($e);
    $norm =~ tr[-_][]d;
    my $n;
    foreach my $enc (@supported) {
      $n = lc($enc);
      $n =~ tr[-_][]d;
      next un <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2233	2357	
==>rse()';#Do not create stab entry on compile
        $@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $retv <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2150	2268	
==>rse()';#Do not create stab entry on compile
        $@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $retv <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	12152	12248	
==>$self->_apply_binmode($source, ':raw');
  #binmode($source, ":raw");

  return;
}

#:.:.:.:.:.:.: <==
5	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	17	101	
==>nguages/bc/lib/Parrot/Test/Bc/Antlr2.pm 16454 2006-02-01T20:44:27.448243Z bernhard  $ <==
5	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11577	11687	
==>n";

    print OUT page_header("Branch Coverage for $source_file");
    print OUT "<pre>";

    # filter out an <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10778	10878	
==>ct::Block

  confess "No block!"        unless defined $self and ref $self and $self->isa("Jako::Cons <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4454	4548	
==>ct::Block

  confess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Cons <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4961	5055	
==>ct::Block

  confess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Cons <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10364	10457	
==>ct::Block

  confess "No block!" unless defined $self and ref $self and $self->isa("Jako::Cons <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	1121	1257	
==>',
    LEFT      => $left,
    OP        => $op,
    RIGHT     => $right,

    CONTENT   => [ ]
  }, $class;

  $block->push_content($sel <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	1137	1273	
==>',
    LEFT      => $left,
    OP        => $op,
    RIGHT     => $right,

    CONTENT   => [ ]
  }, $class;

  $block->push_content($sel <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	648	784	
==>',
    LEFT      => $left,
    OP        => $op,
    RIGHT     => $right,

    CONTENT   => [ ]
  }, $class;

  $block->push_content($sel <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	648	784	
==>',
    LEFT      => $left,
    OP        => $op,
    RIGHT     => $right,

    CONTENT   => [ ]
  }, $class;

  $block->push_content($sel <==
5	/Users/nnunley/parrot/config/inter/encoding.pm	99	191	
==>05-30T02:28:15.110975Z coke  $

=head1 NAME

config/inter/encoding.pm - encoding files

=head <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71911	72264	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73512	73865	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75114	75467	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76716	77069	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
5	/Users/nnunley/parrot/config/auto/sizes.pm	1883	1996	
==>e {
        $conf->data->set(int2_t => 'int');
        print <<'END';

Can't find a int type with size 2, conversi <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3283	3387	
==>Undef', 'apply_CALL'],
  ['',            'set', 'P17', 'P16'],
  ['apply_COUNT', 'ne', 'I16', '.Undef', ' <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18429	18535	
==>@_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19142	19248	
==>@_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19630	19736	
==>@_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20119	20225	
==>@_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20608	20714	
==>@_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_ <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	824	916	
==>on('amber', 'amber.html', '', 'languages/amber'),
        $self->new_section('APL', 'apl.html <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467611	467702	
==>{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468482	468573	
==>{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477034	477125	
==>{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477930	478021	
==>{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072488	1072595	
==>k * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074673	1074780	
==>k * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076858	1076965	
==>k * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079044	1079151	
==>k * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be <==
5	/Users/nnunley/parrot/tools/build/jit2c.pl	7760	7847	
==>it_normal_op

#define Parrot_jit_vtable_ifp_op Parrot_jit_cpcf_op
#define Parrot_jit_vta <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646884	647155	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647644	647915	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648405	648676	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649167	649438	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "", <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34557	34655	
==>elf->{"lookahead"} ? '$text = $_savetext;' : '')
			    .($::RD_NO_TRACE?'':'
			Parse::RecDescent: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722444	722673	
==>terpreter, io, s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723473	723702	
==>terpreter, io, s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724517	724746	
==>terpreter, io, s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1372	1468	
==>my(@params)=('LEX','RULES','STATES');

sub new {
    my($class)=shift;
	my($errst,$nberr,$tok <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1326	1418	
==>my(@params)=('LEX','RULES','STATES');

sub new {
    my($class)=shift;
	my($errst,$nberr,$tok <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467709	467946	
==>\"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468580	468817	
==>\"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469454	469691	
==>\"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470329	470566	
==>\"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/tools/build/pmc2c.pl	20435	20559	
==>de, "pmc_$pmcname.h", 1);

        my $fh = open_file( "<", $file );
        while (<$fh>) {
            if (/^(?:extern\s+)? <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27400	27502	
==>})
						if defined $::RD_TRACE;').'
		$lastsep = "";
		$Parse::RecDescent::lastexpected = q{' . ($rule <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29510	29612	
==>})
						if defined $::RD_TRACE;').'
		$lastsep = "";
		$Parse::RecDescent::lastexpected = q{' . ($rule <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31607	31709	
==>})
						if defined $::RD_TRACE;').'
		$lastsep = "";
		$Parse::RecDescent::lastexpected = q{' . ($rule <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22341	22434	
==>elf->_gensym();

  my $temp_0 = $self->_generate($node->{children}[1]);
  $return = $self->_co <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22842	22935	
==>elf->_gensym();

  my $temp_0 = $self->_generate($node->{children}[1]);
  $return = $self->_co <==
5	/Users/nnunley/parrot/config/auto/env.pm	363	455	
==>re::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining if your C <==
5	/Users/nnunley/parrot/config/auto/gcc.pm	349	441	
==>re::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining if your C <==
5	/Users/nnunley/parrot/config/auto/isreg.pm	345	437	
==>re::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining if your C <==
5	/Users/nnunley/parrot/config/auto/memalign.pm	364	456	
==>re::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining if your C <==
5	/Users/nnunley/parrot/config/auto/msvc.pm	369	461	
==>re::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining if your C <==
5	/Users/nnunley/parrot/tools/build/pmc2c.pl	23454	23581	
==>tions require files
    if ( !@ARGV ) {
        die "No files specified.\n";
    }

    if ( $action{dump} ) {
        dump_pmc( <==
5	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10548	10644	
==>h($path)>

Returns a file with the specified relative path below the directory.

=cut

sub file_w <==
5	/Users/nnunley/parrot/config/gen/makefiles.pm	3419	3602	
==>Makefile',
        commentType                     => '#',
        replace_slashes                 => 1,
        conditioned_lines               => 1
    );
    genfile(
        'langu <==
5	/Users/nnunley/parrot/config/gen/makefiles.pm	7005	7185	
==>Makefile',
        commentType                    => '#',
        replace_slashes                => 1,
        conditioned_lines              => 1
    );
    genfile(
        'langu <==
5	/Users/nnunley/parrot/config/gen/makefiles.pm	7229	7409	
==>Makefile',
        commentType                    => '#',
        replace_slashes                => 1,
        conditioned_lines              => 1
    );
    genfile(
        'langu <==
5	/Users/nnunley/parrot/config/gen/makefiles.pm	5001	5178	
==>Makefile',
        commentType                   => '#',
        replace_slashes               => 1,
        conditioned_lines             => 1
    );
    genfile(
        'langu <==
5	/Users/nnunley/parrot/config/gen/makefiles.pm	5234	5411	
==>Makefile',
        commentType                   => '#',
        replace_slashes               => 1,
        conditioned_lines             => 1
    );
    genfile(
        'langu <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	28390	28505	
==>} }, $lastback)
              unless $self->{DEBUG};
            return $self->wrap($op, $self->$method($op, @{ $op- <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	10716	10834	
==>e {
    my ($self, $t, $sub) = @_;
    $sub->($t);
    foreach my $arg (@{ $t->{args} }) {
        if (UNIVERSAL::isa($ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151080	151173	
==>er,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152058	152151	
==>er,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172308	172401	
==>er,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173286	173379	
==>er,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926185	926309	
==>n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927655	927779	
==>n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929125	929249	
==>n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930596	930720	
==>n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRI <==
5	/Users/nnunley/parrot/config/auto/gc.pm	296	393	
==>locator accordingly.

C<--gc> can take the values:

=over

=item C<gc>

The default. Use the memor <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	6632	6738	
==>eed to have for
#      the current node (NOT for this node and everything following it)
#  follow_min - The <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579623	579714	
==>ve(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580928	581019	
==>ve(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582233	582324	
==>ve(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583539	583630	
==>ve(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114824	115101	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115678	115955	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116533	116810	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100742	101004	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 125,
                  "ARGS" => [
                              "s <==
5	/Users/nnunley/parrot/lib/Parrot/Op.pm	7462	7576	
==>able->\s*(\w+)\(
        !VTABLE_$1(!sgx;

    while (1)
    {
        my $new_body = $self->_substitute($body, $tr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762650	762913	
==>NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763502	763765	
==>NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764355	764618	
==>NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765208	765471	
==>NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	1437	1564	
==>or my $op (@$ops) {
        die $op if ! ref $op;

        if ($op->{name} eq 'LABEL') {
            $label .= $self->output_lab <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4484	4599	
==>my @ops =
      (
       "ord <rx_tmp>, <rx_input>, <rx_pos> # tmp = INPUT[pos]",
       "ne <rx_tmp>, $code, ".$sel <==
5	/Users/nnunley/parrot/Configure.pl	7881	7986	
==>ocate ICU's data file(s)

Other Options (may not be implemented):

   --maintainer         Create imcc's p <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	5248	5351	
==>gs}[0];
    } elsif ($type eq 'classmatch') {
	return $R->{args}[0] eq $S->{args}[0];
    } elsif ($type <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056488	1056580	
==>=> "#line 194 \"src/ops/var.ops\"\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057380	1057472	
==>=> "#line 194 \"src/ops/var.ops\"\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058272	1058364	
==>=> "#line 194 \"src/ops/var.ops\"\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059165	1059257	
==>=> "#line 194 \"src/ops/var.ops\"\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025041	1025293	
==>fo_s(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025798	1026050	
==>fo_s(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57911	58162	
==>fo_s(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58673	58924	
==>fo_s(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	8453	8568	
==>} } : ();
	my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
	my $text;
	my $lastsep="";
	local ($Parse::RecDesc <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332386	332480	
==>soon */\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333664	333758	
==>soon */\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334942	335036	
==>soon */\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336221	336315	
==>soon */\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PI <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	9649	9736	
==>elf->_generate(_get_arg($node,3));
  $self->_morph($return,$false);
  $self->_restore($f <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	10712	10842	
==>m);";
        return "t_$temp_num";
    };
    /I/ && do {
        push @{$temps_ref}, "INTVAL t_$temp_num;";
        push @{$extra <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83687	83774	
==>= VTABLE_get_pmc_keyed_int(interpreter,\n      interpreter->iglobals, IGLOBALS_COMPREG_H <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84593	84680	
==>= VTABLE_get_pmc_keyed_int(interpreter,\n      interpreter->iglobals, IGLOBALS_COMPREG_H <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85498	85585	
==>= VTABLE_get_pmc_keyed_int(interpreter,\n      interpreter->iglobals, IGLOBALS_COMPREG_H <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86405	86492	
==>= VTABLE_get_pmc_keyed_int(interpreter,\n      interpreter->iglobals, IGLOBALS_COMPREG_H <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4877	4977	
==>o_offset($offset)>

Transforms the C<goto OFFSET($offset)> macro in an ops file into the
relevant C c <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1822	1922	
==>o_offset($offset)>

Transforms the C<goto OFFSET($offset)> macro in an ops file into the
relevant C c <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2471	2571	
==>o_offset($offset)>

Transforms the C<goto OFFSET($offset)> macro in an ops file into the
relevant C c <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2190	2290	
==>o_offset($offset)>

Transforms the C<goto OFFSET($offset)> macro in an ops file into the
relevant C c <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2151	2251	
==>o_offset($offset)>

Transforms the C<goto OFFSET($offset)> macro in an ops file into the
relevant C c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672210	672444	
==>_pmc(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680737	680971	
==>_pmc(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752833	753065	
==>_pmc(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759881	760113	
==>_pmc(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	29684	29779	
==>substring is not returned.

=head2 A note about prefixes

Prefix patterns are matched without an <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	19441	19553	
==>delimiter found after quotelike $op",
		         pos $$textref;
		pos $$textref = $startpos;
		return;
	}
	pos($$ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	220520	220771	
==>"CODE" => 258,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 477 \"src/ops/cmp.ops\"\n  if (mmd_d <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061156	1061445	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062696	1062985	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063565	1063854	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064435	1064724	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065308	1065597	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGD <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27077	27212	
==>@{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{resul <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27758	27893	
==>@{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{resul <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	30608	30743	
==>@{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{resul <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	35155	35290	
==>@{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{resul <==
5	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2645	2739	
==>a_seen" \
   thingy.pod

=head1 DESCRIPTION

Pod::Simple::XMLOutStream is a subclass of L<Pod:: <==
5	/Users/nnunley/parrot/Configure.pl	252	346	
==>CRIPTION

This is Parrot's configuration script. It should be run to create the necessary
syste <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050125	1050219	
==>e 172 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"T <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051159	1051253	
==>e 172 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"T <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052193	1052287	
==>e 172 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"T <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053228	1053322	
==>e 172 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"T <==
5	/Users/nnunley/parrot/config/auto/sizes.pm	2046	2159	
==>ortsize} == 4) {
        $conf->data->set(int4_t => 'short');
    } elsif ($results{intsize} == 4) {
        $conf <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544213	544314	
==>: {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = a, saved_var2 = b; \n\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545549	545650	
==>: {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = a, saved_var2 = b; \n\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546885	546986	
==>: {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = a, saved_var2 = b; \n\ <==
5	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	609	705	
==>nclude a non-dynamic fingerprint.c.

=cut


use strict;
use lib 'lib';
use Digest::Perl::MD5 qw(m <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793323	793459	
==>"
                            ],
                  "BODY" => "#line 457 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(inter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794228	794364	
==>"
                            ],
                  "BODY" => "#line 457 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(inter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795133	795269	
==>"
                            ],
                  "BODY" => "#line 457 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(inter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796039	796175	
==>"
                            ],
                  "BODY" => "#line 457 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(inter <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	13472	13607	
==>e 14
		DEFAULT => -4,
		GOTOS => {
			'block' => 58,
			'chunk' => 57
		}
	},
	{#State 15
		DEFAULT => -11,
		GOTOS => {
			'@ <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27073	27210	
==>p ( @{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{res <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27754	27891	
==>p ( @{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{res <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	30604	30741	
==>p ( @{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{res <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	35151	35288	
==>p ( @{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{res <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10825	10956	
==>h $section;
    }
    
    foreach my $it ($to, $section) 
    {
        next unless defined $it;

        $it =~ s/([^\x00-\xFF])/j <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80185	80437	
==>ODE" => 101,
                  "ARGS" => [
                              "p",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 1176 \"src/ops/core.ops\"\n  char * con <==
5	/Users/nnunley/parrot/examples/benchmarks/vpm.pl	30	133	
==>ner posted on Vienna-PM list
#
use strict;

my $big;
my $string="just another perl hacker";

for (0 .. 9 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629813	630068	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":object_classes",
                  "A <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630802	631057	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":object_classes",
                  "A <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107525	1107780	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":object_classes",
                  "A <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16704	16804	
==>hoose}) {
			$opts{stuff}=~s/X/$type/g;
		}
		# The rhs was passed in
		@stream=build_assignment($ass <==
5	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	7811	7907	
==>ny version of Perl
containing this extension under the terms of the GNU or Artistic
licenses.

=h <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067154	1067285	
==>n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "ex <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068340	1068471	
==>n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "ex <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069526	1069657	
==>n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "ex <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070713	1070844	
==>n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "ex <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	385	492	
==>w(Jako::Construct::Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected parent a <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262841	263087	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263787	264033	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264640	264886	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265494	265740	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266348	266594	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381203	381303	
==>}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382215	382315	
==>}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383227	383327	
==>}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384240	384340	
==>}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	49210	49303	
==>gument (delimiter brackets) indicates that only C<'{'> is to be used.
Omitting the third argum <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7249	7367	
==>lf->{'pod_para_count'};
        
        $self->_ponder_paragraph_buffer();
         # by now it's safe to consider the <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7867	7980	
==>lf->{'pod_para_count'};
          $self->_ponder_paragraph_buffer();
           # by now it's safe to consider the <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	8224	8333	
==>lf->{'pod_para_count'};
        $self->_ponder_paragraph_buffer();
         # by now it's safe to consider the <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	5903	6008	
==>lf->{'pod_para_count'};
      $self->_ponder_paragraph_buffer();
       # by now it's safe to consider the <==
5	/Users/nnunley/parrot/lib/Parrot/Config.pm	1605	1707	
==>> ' ',
             'ccflags' => '-I/opt/local/include -fno-common -no-cpp-precomp  -pipe -Wdeclaration <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	5476	5602	
==>s = $self->label_indices($stmt->{code});
                foreach my $pos (@labels) {
                    push @Q, $labels{$stmt <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995499	995697	
==>",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996637	996835	
==>",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997775	997973	
==>",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	998914	999112	
==>",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	839474	839596	
==>preter->ctx)->user_stack, &({{\@1}}),\n                  STACK_ENTRY_STRING);\n  {{+=2}};\n",
                  "LABELS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672424	672720	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673196	673492	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673966	674262	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	674737	675033	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => " <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	3712	3840	
==>pairs' => ['stacks'], 
                'sources' => ['stack_common']
            ),
            $self->c_header_item('', 'enums') <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104982	105238	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105719	105975	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	106457	106713	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107310	107566	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108164	108420	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610605	610901	
==>=> 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611507	611803	
==>=> 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612410	612706	
==>=> 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613316	613612	
==>=> 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
5	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	2093	2255	
==>sage'\n"
            unless $usage =~ s/^$type//;
        
        my $arg = {};
            
        $arg->{optional}    = !!$1;
        $arg->{option}      = !!$ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575802	575976	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subclass",
                  "FLAGS" => ":object_base",
                  "ARG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576813	576987	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subclass",
                  "FLAGS" => ":object_base",
                  "ARG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595562	595736	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subclass",
                  "FLAGS" => ":object_base",
                  "ARG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596454	596628	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subclass",
                  "FLAGS" => ":object_base",
                  "ARG <==
5	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12789	12889	
==>mean "/", whose Unicode number is 47.  If
the name has no known value (as with a name of "qacute") or <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	2960	3069	
==>html = "<BR>\n" . $index_html;
    }

    my $index = $target->file_with_name($self->{INDEX_PATH});
    
    $ <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3121	3218	
==>find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have anything on the lazy moves s <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4879	4976	
==>find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have anything on the lazy moves s <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7806	7903	
==>find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have anything on the lazy moves s <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8662	8759	
==>find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have anything on the lazy moves s <==
5	/Users/nnunley/parrot/tools/dev/nm.pl	8989	9112	
==>";
			    } elsif ($init) {
				$symbol = $TypeLong ? "init" : "D";
			    } elsif ($uninit) {
				$symbol = $TypeLong ? "un <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028105	1028197	
==>erpreter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_eve <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028956	1029048	
==>erpreter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_eve <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029808	1029900	
==>erpreter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_eve <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030650	1030742	
==>erpreter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_eve <==
5	/Users/nnunley/parrot/Configure.pl	2364	2460	
==>systems that lack inet_pton:

  --define=inet_aton

=back

Parrot Options

=over

=item C<--intva <==
5	/Users/nnunley/parrot/config/gen/parrot_include.pm	2644	2793	
==>eq 'def') {
                if (/#define\s+(\w+)\s+(-?\w+|".*?")/) {
                    local $_ = "$prefix$1\t$2";
                    eval $subst i <==
5	/Users/nnunley/parrot/lib/Parrot/Config.pm	5789	5932	
==>',
             'i_sysmman' => 'define',
             'i_sysmode' => undef,
             'i_sysmount' => 'define',
             'i_sysndir' => u <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22192	22299	
==>:Value->new($block, $self->require_value);

        $self->require_close_paren;
      }

      $self->requir <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23125	23232	
==>:Value->new($block, $self->require_value);

        $self->require_close_paren;
      }

      $self->requir <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24771	24877	
==>:Value->new($block, $self->require_value);
        $self->require_close_paren;
      }

      $self->requir <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16054	16229	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16826	17001	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	17600	17775	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18395	18570	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	6244	6360	
==>= @_;

    return <<END_C;
        ${bs}ops_addr = (void**) init;
END_C
}

=back

=head1 SEE ALSO

=over 4

=item C<P <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2826	2935	
==>=> 'op', Attributes => { kind => 'infix', name => $op } });
    $left->sax($handler);
    $right->sax($handler <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3500	3609	
==>=> 'op', Attributes => { kind => 'infix', name => $op } });
    $left->sax($handler);
    $right->sax($handler <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3590	3699	
==>=> 'op', Attributes => { kind => 'infix', name => $op } });
    $left->sax($handler);
    $right->sax($handler <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5375	5480	
==>=> 'op', Attributes => { kind => 'infix', name => $op } });
  $left->sax($handler);
  $right->sax($handler <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3438	3543	
==>=> 'op', Attributes => { kind => 'infix', name => $op } });
  $left->sax($handler);
  $right->sax($handler <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462713	462831	
==>],
                  "BODY" => "#line 322 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    r <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463710	463828	
==>],
                  "BODY" => "#line 322 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    r <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464707	464825	
==>],
                  "BODY" => "#line 322 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    r <==
5	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	4889	4998	
==>value_type
    value = shift iter
    bsr print_value
    unless iter goto iter_end
    value_type = typeof va <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3591	3691	
==>I0= \$P0["step"]
		ne \$I0, 0, DEBUGGER_STOP
		\$P1= \$P0["break"]
		\$I0= \$P1
		eq \$I0, 0, DEBUGGE <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1875	1989	
==>alue : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->r <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2480	2594	
==>alue : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->r <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	2038	2152	
==>alue : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->r <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3154	3268	
==>alue : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->r <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5812	5911	
==>t_arg($node,1);

  return __quoted ($self, $item, $return, {});
}

sub _op_quasiquote {
  my ($self, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	603133	603506	
==>ect_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 683,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "B <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549923	550018	
==>/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551224	551319	
==>/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553786	553881	
==>/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555183	555278	
==>/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth <==
5	/Users/nnunley/parrot/tools/build/ops2c.pl	8030	8136	
==>f (cur_opcode == (opcode_t *) 1)
    asm ("jmp *4(%ebp)");	/* jump to ret addr, used by JIT */
# endif
#end <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072569	1072669	
==>/* correct the sign (can be wrong because we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074754	1074854	
==>/* correct the sign (can be wrong because we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076939	1077039	
==>/* correct the sign (can be wrong because we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079125	1079225	
==>/* correct the sign (can be wrong because we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	48155	48255	
==>t, but now the rest of the line
on which the here document starts is not skipped.

To prevent <extrac <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028090	1028183	
==>l_exception(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parro <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028941	1029034	
==>l_exception(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parro <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029793	1029886	
==>l_exception(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parro <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030635	1030728	
==>l_exception(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parro <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597514	597777	
==>AGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 677,
                  "ARGS" <==
5	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	695	849	
==>";
            return $defn;
        }
        else {
            my $parser = $self->{parser};
            for my $symbtab ( @{ $parser->YYData->{sco <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10035	10137	
==>{ACTIONS}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Pop state $$stack[-1][0] <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63987	64088	
==>nsatiable($name,$1,$grammar,$line) if $::RD_CHECK;
					}
				}
				elsif ($grammar =~ m/$EXACTLY/gco) <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9587	9686	
==>{ACTIONS}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Pop state $$stack[-1][0] <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672426	672723	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673198	673495	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673968	674265	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	674739	675036	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inl <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12970	13081	
==>(with the value zero) if the
					  rule is not 'commited' when it is
					  tried. Since you almost certainly w <==
5	/Users/nnunley/parrot/tools/build/dynclasses.pl	7322	7435	
==>ms) = @_;

    my @sources = map { "$_$O" } @$stems;
    if (needs_build("$group$LOAD_EXT", @sources)) {
        r <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	7533	7646	
==>ms) = @_;

    my @sources = map { "$_$O" } @$stems;
    if (needs_build("$group$LOAD_EXT", @sources)) {
        r <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471126	471222	
==>line 394 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472113	472209	
==>line 394 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473100	473196	
==>line 394 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(i <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6745	6860	
==>dbgerror
#DBG>				and	$$errstatus == 0
#DBG>				and	do {
#DBG>					print STDERR "**End of Error recovery.\n";
#D <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8617	8729	
==>dbgerror
#DBG>			and	$$errstatus == 0
#DBG>			and	do {
#DBG>				print STDERR "**End of Error recovery.\n";
#D <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6431	6542	
==>dbgerror
#DBG>				and	$$errstatus == 0
#DBG>				and	do {
#DBG>					print STDERR "**End of Error recovery.\n";
#D <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8228	8336	
==>dbgerror
#DBG>			and	$$errstatus == 0
#DBG>			and	do {
#DBG>				print STDERR "**End of Error recovery.\n";
#D <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	2620	2720	
==>es/unlambda'),
        $self->new_section('URM', 'urm.html', '', 'languages/urm'),
        $self->new <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672446	672751	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673218	673523	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673988	674293	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	674759	675064	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	2193	2293	
==>RING

sub gen_delimited_pat($;$)  # ($delimiters;$escapes)
{
	my ($dels, $escs) = @_;
	return "" unle <==
5	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	1943	2067	
==>ect.pir                      [devel]
    examples/sdl/bounce_parrot_logo.pir             [devel]
    examples/sdl/lcd/clock.p <==
5	/Users/nnunley/parrot/tools/build/ops2pm.pl	4269	4370	
==>$ops->{OPS}} );
}

# create opsfile with valid ops from ops.num
# or from experimental

my $real_ops = <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	29	126	
==>) 2001-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	30	127	
==>) 2001-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	29	126	
==>) 2001-2005, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
5	/Users/nnunley/parrot/tools/build/pbc2c.pl	7772	7867	
==>) 2001-2005, The Perl Foundation.
This program is free software. It is subject to the same licen <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610384	610688	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":obj <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611286	611590	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":obj <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612189	612493	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":obj <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613095	613399	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":obj <==
5	/Users/nnunley/parrot/tools/dev/as2c.pl	367	477	
==>rint <<EOT;
/*
 * DO NOT EDIT THIS FILE
 *
 * Generated from $s.c via $s.s
 * by '$0 $s'
 */

EOT
}
sub create_ <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	18007	18142	
==>ack: if $matchcount == 0 goto lastback
#               $matchcount--
#               goto R.back
#        check: if $matchcount < min go <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	15514	15632	
==>$re;
    }

    return $usable_regex;
};

sub _regex_ok {
    my($self, $this, $regex, $cmp, $name) = @_;

    local $L <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777068	777156	
==>\@1}}->vtable->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777977	778065	
==>\@1}}->vtable->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778886	778974	
==>\@1}}->vtable->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779796	779884	
==>\@1}}->vtable->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}} <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9984	10077	
==>be first to last in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
p <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7498	7591	
==>be first to last in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
p <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6462	6555	
==>be first to last in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
p <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	13506	13597	
==>st->like($this, qr/$regex/, $name);
  $Test->like($this, '/$regex/', $name);

Like Test::Mor <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11179	11374	
==>tokens, $c;
                    push @types, $c;
                }
            }
        } elsif ($state == 1) {
            push @tokens, $c;
            push @types, 'CHAR';
            $state = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940318	940409	
==>> "#line 486 \"src/ops/string.ops\"\n    {{\@1}} = string_split(interpreter, {{\@2}}, {{\@3} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941210	941301	
==>> "#line 486 \"src/ops/string.ops\"\n    {{\@1}} = string_split(interpreter, {{\@2}}, {{\@3} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942102	942193	
==>> "#line 486 \"src/ops/string.ops\"\n    {{\@1}} = string_split(interpreter, {{\@2}}, {{\@3} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942995	943086	
==>> "#line 486 \"src/ops/string.ops\"\n    {{\@1}} = string_split(interpreter, {{\@2}}, {{\@3} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568528	568849	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" => ":object_base",
                  "A <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569420	569741	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" => ":object_base",
                  "A <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570313	570634	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" => ":object_base",
                  "A <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571267	571588	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" => ":object_base",
                  "A <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	2807	2917	
==>lsif ( $index_html !~ /<DIV CLASS="pod">[^<]*<[Hh]/o )
    {
        # If there is no heading or text then we h <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39027	39250	
==>@2}});\n  do_exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39892	40115	
==>@2}});\n  do_exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40739	40962	
==>@2}});\n  do_exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41587	41810	
==>@2}});\n  do_exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
5	/Users/nnunley/parrot/lib/Class/Struct.pm	17282	17416	
==>socks=>1, blaze=>"white" },
                        breed    => Breed->new(name=>'short-hair', cross=>1),
                   or:  breed <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11196	11344	
==>esult2 = new_tmp( $parser, 'pmc' );
                        push @opcodes, new LocalDir( $parser,
                            'result' => $result2, <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9419	9559	
==>esult2 = new_tmp( $parser, 'pmc' );
                    push @opcodes, new LocalDir( $parser,
                        'result' => $result2, <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12716	12856	
==>esult2 = new_tmp( $parser, 'pmc' );
                    push @opcodes, new LocalDir( $parser,
                        'result' => $result2, <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8395	8519	
==>esult2 = new_tmp( $parser, 'pmc' );
            push @opcodes, new LocalDir( $parser,
                'result' => $result2, <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17609	17725	
==>esult2 = new_tmp( $parser, 'pmc' );
        push @opcodes, new LocalDir( $parser,
            'result' => $result2, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374045	374186	
==>}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374928	375069	
==>}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375811	375952	
==>}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376695	376836	
==>}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10050	10134	
==>,$d,$a,$b,$c,$_[4],11,0xeaa127fa,/* 42 */
HH,$c,$d,$a,$b,$_[7],16,0xd4ef3085,/* 43 */ <==
5	/Users/nnunley/parrot/config/auto/jit.pm	207	300	
==>the CPU architecture, the operating system, and whether there is JIT
capability available.

=c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634852	635139	
==>ter, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635970	636257	
==>ter, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637088	637375	
==>ter, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638207	638494	
==>ter, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4314	4415	
==>return(<<CODE, $result);
	set $result, 0.0
	eq $a1, $ot1, EQ_$eqnum
	eq $a2, $ot2, EQ_$eqnum
	set $res <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33918	34052	
==>'s not contentless
            }
          }


        } elsif($over_type eq 'bullet') {
          my $item_type = $self->_get_item_typ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905300	905386	
==>"#line 262 \"src/ops/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_str(interpreter, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906319	906405	
==>"#line 262 \"src/ops/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_str(interpreter, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907338	907424	
==>"#line 262 \"src/ops/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_str(interpreter, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908358	908444	
==>"#line 262 \"src/ops/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_str(interpreter, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38497	38779	
==>MP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39361	39643	
==>MP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40208	40490	
==>MP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41055	41337	
==>MP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	9979	10102	
==>";

    $self->_print($out);

    unless( $test ) {
        my $msg = $todo ? "Failed (TODO)" : "Failed";
        $self->_pr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16076	16340	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ], <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16848	17112	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ], <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	17622	17886	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ], <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18417	18681	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ], <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	6330	6429	
==>ult, $a2, $a1
CODE
	},
	'^' => "POW",	
);
%opsubs=(%opsubs, 
	'<=' => sub { &{$opsubs{"="}}(@_[0..2] <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11153	11327	
==>$key->[1] };
                        my $result2 = new_tmp( $parser, 'pmc' );
                        push @opcodes, new LocalDir( $parser,
                            'res <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9380	9542	
==>$key->[1] };
                    my $result2 = new_tmp( $parser, 'pmc' );
                    push @opcodes, new LocalDir( $parser,
                        'res <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8364	8502	
==>$key->[1] };
            my $result2 = new_tmp( $parser, 'pmc' );
            push @opcodes, new LocalDir( $parser,
                'res <==
5	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	1669	1795	
==>P0['dyadic:>']       =  <<"END_PIR"            # greater than
    $I100 = isgt %1, %2
    %1 = $I100
END_PIR

    $P0['dyadic:= <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17582	17708	
==>$key->[1] };
        my $result2 = new_tmp( $parser, 'pmc' );
        push @opcodes, new LocalDir( $parser,
            'res <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2452	2556	
==>tart_element({ Name => 'block', Attributes => { kind => 'test' } });
    $handler->start_element({ Name = <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2329	2433	
==>tart_element({ Name => 'block', Attributes => { kind => 'test' } });
    $handler->start_element({ Name = <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2722	2826	
==>tart_element({ Name => 'block', Attributes => { kind => 'test' } });
    $handler->start_element({ Name = <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3396	3500	
==>tart_element({ Name => 'block', Attributes => { kind => 'test' } });
    $handler->start_element({ Name = <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3486	3590	
==>tart_element({ Name => 'block', Attributes => { kind => 'test' } });
    $handler->start_element({ Name = <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	51931	52098	
==>{
            [ $_[1], $_[2] ];
        }
	],
	[#Rule 48
		 'var', 2,
sub
#line 288 "Lua\lua51.yp"
{
            [ @{ $_[1] }, $_[2] ];
        }
	],
	[#Rul <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099293	1099409	
==>\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n\tres = 1.0/res;\n    }\n    {{\@1}} = res;\n    {{+=4}};\n" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100491	1100607	
==>\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n\tres = 1.0/res;\n    }\n    {{\@1}} = res;\n    {{+=4}};\n" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101689	1101805	
==>\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n\tres = 1.0/res;\n    }\n    {{\@1}} = res;\n    {{+=4}};\n" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102888	1103004	
==>\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n\tres = 1.0/res;\n    }\n    {{\@1}} = res;\n    {{+=4}};\n" <==
5	/Users/nnunley/parrot/tools/build/dynclasses.pl	2717	2854	
==>n( ' ', map { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        jo <==
5	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3026	3163	
==>n( ' ', map { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        jo <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	2821	2958	
==>n( ' ', map { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        jo <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	920	1021	
==>$block->push_content($self);

  return $self;
}

sub left  { return shift->{LEFT};  }
sub right { retu <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	928	1029	
==>$block->push_content($self);

  return $self;
}

sub left  { return shift->{LEFT};  }
sub right { retu <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	271	367	
==>RIPTION

A documentation section describing IMCC.

=head2 Class Methods

=over

=cut

package Par <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	687	778	
==>f($block) . ") is not!"  unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confes <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	562	652	
==>f($block) . ") is not!" unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confes <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	571	661	
==>f($block) . ") is not!" unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confes <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	553	643	
==>f($block) . ") is not!" unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confes <==
5	/Users/nnunley/parrot/lib/Test/More.pm	22515	22610	
==>e are,
and you'll know immediately when they're fixed.

Once a todo test starts succeeding, simp <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579477	579567	
==>oesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(int <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580782	580872	
==>oesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(int <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582087	582177	
==>oesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(int <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583393	583483	
==>oesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(int <==
5	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	13783	13892	
==>ADDRESS\(\( (.*?) \)\)/{{=$1}}/mg;
                      $body =~ s/\bexpr\s+OFFSET\(\( (.*?) \)\)/{{^+$1}}/mg <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9562	9652	
==>Get details of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method_ <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7076	7166	
==>Get details of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method_ <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5632	5722	
==>Get details of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method_ <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7852	7942	
==>Get details of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method_ <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	67347	67517	
==>:RecDescent::Subrule($name,
								       $lookahead,
								       $line,
								       $desc,
								       $matchrule,
								       $argcode);
	 
				$prod and $p <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	3983	4137	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS",
                  "NAME" => "wrapper__",
                  "FLAGS" => ":inter <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1843	1932	
==>L::isa($left, 'Jako::Construct::Expression::Value::Identifier')) {
    my $left_sym = $blo <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1801	1890	
==>L::isa($left, 'Jako::Construct::Expression::Value::Identifier')) {
    my $left_sym = $blo <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1723	1812	
==>L::isa($left, 'Jako::Construct::Expression::Value::Identifier')) {
    my $left_sym = $blo <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	15939	16065	
==>started'} = 1;
    
    my $starting_contentless;
    $starting_contentless =
     (
       !@$curr_open  
       and @$paras a <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332429	332516	
==>_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHAND <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333707	333794	
==>_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHAND <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334985	335072	
==>_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHAND <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336264	336351	
==>_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHAND <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	339557	339800	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340555	340798	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341554	341797	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342553	342796	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	26541	26652	
==>(@fallbacks) {
      next if exists $Known_formatting_codes{$f} or $f eq '0' or $f eq '1';
      DEBUG > 2 and p <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	1829	1967	
==>" if ! ref $_; };

        # opt(|R) -> opt(R)??
        # opt(|R|S) -> opt(R|S)??
        # opt(|||R|S) -> opt(R|S)??
        # opt(|||) - <==
5	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2432	2529	
==>nst the Perl 6 pattern, passing the test
if the output produced by the test code matches the C<$ex <==
5	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3866	3963	
==>nst the Perl 6 pattern, passing the test
if the output produced by the test code matches the C<$ex <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1013	1096	
==>code_t*)interpreter->code->prederef.code))
#define CUR_OPCODE ((opcode_t*)cur_opcode <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1143	1226	
==>code_t*)interpreter->code->prederef.code))
#define CUR_OPCODE ((opcode_t*)cur_opcode <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	32784	32930	
==>,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			'DO' => 163,
			"<=" => 85,
			'OR' => 84,
			">" => 86
		}
	},
	{#State <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1870	1984	
==>nt->value : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $se <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2475	2589	
==>nt->value : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $se <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	2033	2147	
==>nt->value : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $se <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3149	3263	
==>nt->value : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $se <==
5	/Users/nnunley/parrot/lib/Test/More.pm	36719	36814	
==>re ways to test complex data structures.
And it plays well with Test::More.

L<Test::Class> is l <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	17064	17160	
==>name = $self->{class};
    return dynext_load_code($classname, $classname => {});
}

=item C<pmc_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25364	25448	
==>interpreter->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557937	558021	
==>interpreter->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559321	559405	
==>interpreter->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560693	560777	
==>interpreter->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_ <==
5	/Users/nnunley/parrot/tools/build/dynclasses.pl	2274	2391	
==>to put various libraries in the link line.
        $liblist = join( ' ', map { "$_.lib" } keys %$libs );
        if ($ <==
5	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2566	2683	
==>to put various libraries in the link line.
        $liblist = join( ' ', map { "$_.lib" } keys %$libs );
        if ($ <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	2361	2478	
==>to put various libraries in the link line.
        $liblist = join( ' ', map { "$_.lib" } keys %$libs );
        if ($ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5101	5212	
==>= shift;
  my ($handler) = @_;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $self->left <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3164	3275	
==>= shift;
  my ($handler) = @_;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $self->left <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2258	2367	
==>elf->{'line_count'}++ ) {
      ($line = $source_line) =~ tr/\n\r//d;
       # If we don't have two vars, we'l <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080937	1081236	
==>"NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 12 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082002	1082301	
==>"NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 12 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083067	1083366	
==>"NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 12 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103316	1103615	
==>"NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 12 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104530	1104829	
==>"NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 12 <==
5	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	3683	3787	
==>\s+(\S+)/s;
    
    return $version;
}

=item C<is_hidden()>

Returns whether the file is "hidden", i.e. <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24380	24479	
==>ant(0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{children}[1]);
    if ( <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25269	25368	
==>ant(0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{children}[1]);
    if ( <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26279	26378	
==>ant(0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{children}[1]);
    if ( <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27169	27268	
==>ant(0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{children}[1]);
    if ( <==
5	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3228	3344	
==>ISA = qw( Exporter );
@EXPORT_OK = qw( %pmc_types);

%pmc_types = (
END_PM

    for my $num (0 .. $#pmcs) {
        m <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071992	1072105	
==>NTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074177	1074290	
==>NTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076362	1076475	
==>NTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078548	1078661	
==>NTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\ <==
5	/Users/nnunley/parrot/config/auto/msvc.pm	1586	1692	
==>sion = "$major.$minor";
    print " (yep: $msvcversion )" if $verbose;
    $self->set_result('yes');

    $ <==
5	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	4467	4570	
==>//m; $info->{Id} = $1;
	s/^\#\s*Author:.+//m;
	
	s/^\s*\n//mg; # truly blank lines, between the # commen <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215032	215122	
==>.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215973	216063	
==>.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	36788	36877	
==>har-numeric?'    => \&_op_char_numeric_p,
  'char-whitespace?' => \&_op_char_whitespace_p, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836753	836927	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837485	837659	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838219	838393	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838951	839125	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	614	716	
==>ance 1 char
# code : Embedded code, in some language

# Stuff that is used for optimization
# --------- <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39066	39319	
==>@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39931	40184	
==>@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40778	41031	
==>@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41626	41879	
==>@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARR <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23936	24042	
==>::RD_TRACE;
		') . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) .'

		$_tok = undef;
		' . ($self-> <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	46756	46877	
==>nt
         "No terminal newline on #$i: {$p->[$i]}, after {$p->[$i-1]} !?\n";
      }
      last; # we only want the next <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072410	1072520	
==>1}} = r1;\n  {{\@2}} = (INTVAL)( xk * pow( -1, n ) );\n  {{\@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074595	1074705	
==>1}} = r1;\n  {{\@2}} = (INTVAL)( xk * pow( -1, n ) );\n  {{\@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076780	1076890	
==>1}} = r1;\n  {{\@2}} = (INTVAL)( xk * pow( -1, n ) );\n  {{\@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078966	1079076	
==>1}} = r1;\n  {{\@2}} = (INTVAL)( xk * pow( -1, n ) );\n  {{\@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168564	168837	
==>}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         ble <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169506	169779	
==>}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         ble <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170446	170719	
==>}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         ble <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171387	171660	
==>}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         ble <==
5	/Users/nnunley/parrot/tools/build/pmc2c.pl	1797	1889	
==>g. F<perlint.pmc> -> F<perlint.c> and F<perlint.h>).

Next, the file is searched for C</pmcla <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137356	137665	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	304877	305186	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616270	616579	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	617957	618266	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	620119	620428	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	32406	32506	
==>eginning of $text:

		$substring = extract_delimited($text, "'", '', "'");

	# Extract a single- or d <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050204	1050302	
==>exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051238	1051336	
==>exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052272	1052370	
==>exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053307	1053405	
==>exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	153713	153964	
==>" => 186,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 127 \"src/ops/cmp.ops\"\n  if (mmd_dispat <==
5	/Users/nnunley/parrot/tools/build/dynclasses.pl	1515	1620	
==>ome stuff for Win32.
our $PATHQUOTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as they may con <==
5	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1560	1665	
==>ome stuff for Win32.
our $PATHQUOTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as they may con <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	1564	1669	
==>ome stuff for Win32.
our $PATHQUOTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as they may con <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	25648	25739	
==>es of the first character in $delim.

	($extracted, $remainder) = extract_delimited($text,$d <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813474	813725	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inli <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814099	814350	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inli <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814721	814972	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inli <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	815349	815600	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inli <==
5	/Users/nnunley/parrot/config/inter/pmc.pm	4979	5097	
==>ie "No pmclass declaration found in $pmc_file"
            if !defined $name;

        # please note that normal and Co <==
5	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2742	2859	
==>.*)\./) {
            my $path = "$dirname/$1";
            rename($1, "$dirname/$1") or die("Couldn't rename $1 to $d <==
5	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2635	2752	
==>my $builder_func = $language_test_map{$func};

        # That's the reason for:   no strict 'refs';
        my $pas <==
5	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2165	2278	
==>my $builder_func = $language_test_map{$func};
        # That's the reason for:   no strict 'refs';
        my $pas <==
5	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2704	2817	
==>my $builder_func = $language_test_map{$func};
        # That's the reason for:   no strict 'refs';
        my $pas <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650591	650696	
==>rc/ops/pmc.ops\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtable_max)\n        {{\@1}} = 1;\n    e <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651513	651618	
==>rc/ops/pmc.ops\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtable_max)\n        {{\@1}} = 1;\n    e <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	32045	32163	
==>ss $tos->[1]", $cl, 'P'];
}
sub LOAD_ATTR
{
    my ($n, $c, $cmt) = @_;
    my $tos = pop @stack;  # object
    my $att <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3437	3527	
==>0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK$register <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5199	5289	
==>0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK$register <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2184	2274	
==>0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK$register <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3436	3526	
==>0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK$register <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926445	926597	
==>t_FLAGS({{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1}} = {{\@2}}->bufused;\n                              break;\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927915	928067	
==>t_FLAGS({{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1}} = {{\@2}}->bufused;\n                              break;\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929385	929537	
==>t_FLAGS({{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1}} = {{\@2}}->bufused;\n                              break;\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930856	931008	
==>t_FLAGS({{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1}} = {{\@2}}->bufused;\n                              break;\ <==
5	/Users/nnunley/parrot/config/auto/memalign.pm	1778	1881	
==>conf->data->set(memalign => $f);
    print($test ? " (Yep:$f) " : " (no) ") if $verbose;
    $self->set_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099202	1099321	
==>\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100400	1100519	
==>\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101598	1101717	
==>\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102797	1102916	
==>\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1 <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	1655	1757	
==>e
    # IMCC's facilities for creating local vars.
    return $self->alloc_temp_int($name);
}

sub new_ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17699	17790	
==>nst ('', 'inc',[$return]);
  $self->_add_inst ('', 'set',[$list,$list.'[1]']);
  $self->_add <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344336	344427	
==>{{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345578	345669	
==>{{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346820	346911	
==>{{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348063	348154	
==>{{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73207	73497	
==>({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74809	75099	
==>({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76411	76701	
==>({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78014	78304	
==>({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	53797	53895	
==>his argument is 
automatically reset to 1 (under C<-w>, a warning is issued if the argument 
has to <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	212852	213140	
==>],
                  "TYPE" => "function",
                  "CODE" => 250,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 423 \"src/op <==
5	/Users/nnunley/parrot/tools/dev/run_indent.pl	1333	1445	
==>$1; }
my $i_flags = join ' ', map { "-I$_" } @incdirs;

my %all_errors;
foreach my $file (@ARGV) {    
    next u <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540368	540467	
==>"src/ops/math.ops\"\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541620	541719	
==>"src/ops/math.ops\"\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542872	542971	
==>"src/ops/math.ops\"\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@ <==
5	/Users/nnunley/parrot/lib/Test/More.pm	36479	36576	
==>orward
compatible).

L<Test> is the old testing module.  Its main benefit is that it has
been dist <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344268	344362	
==>\@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345510	345604	
==>\@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346752	346846	
==>\@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347995	348089	
==>\@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236666	236974	
==>\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237548	237856	
==>\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238430	238738	
==>\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244046	244354	
==>\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244978	245285	
==>\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	490	601	
==>ler = shift; # Required

#  my $namespace = "FILE"; # TODO: Don't we need to do better than this?

  return 1 un <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	2517	2611	
==>> 'module', Attributes => { name => $self->name } });
  $_->sax($handler) foreach $self->conten <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344372	344463	
==>terpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* string_cstring_free( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345614	345705	
==>terpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* string_cstring_free( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346856	346947	
==>terpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* string_cstring_free( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348099	348190	
==>terpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* string_cstring_free( <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34292	34405	
==>.= "### end pre_branch\n";

        # Add pre-translate code, if any.
        $pir .= sub_meta($pre_translate_code <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381137	381229	
==>f (PIO_seek(interpreter, {{\@1}}, PIO_make_offset({{\@2}}), {{\@3}}) < 0) {\n      real_excep <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382149	382241	
==>f (PIO_seek(interpreter, {{\@1}}, PIO_make_offset({{\@2}}), {{\@3}}) < 0) {\n      real_excep <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383161	383253	
==>f (PIO_seek(interpreter, {{\@1}}, PIO_make_offset({{\@2}}), {{\@3}}) < 0) {\n      real_excep <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384174	384266	
==>f (PIO_seek(interpreter, {{\@1}}, PIO_make_offset({{\@2}}), {{\@3}}) < 0) {\n      real_excep <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	310764	310938	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "debug_print",
                  "FLAGS" => ":base_debug",
                  "AR <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10757	10858	
==>quired: Jako::Construct::Block

  confess "No block!"        unless defined $self and ref $self and $s <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4433	4528	
==>quired: Jako::Construct::Block

  confess "No block!"  unless defined $self and ref $self and $s <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4940	5035	
==>quired: Jako::Construct::Block

  confess "No block!"  unless defined $self and ref $self and $s <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10343	10437	
==>quired: Jako::Construct::Block

  confess "No block!" unless defined $self and ref $self and $s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549952	550054	
==>st;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551253	551355	
==>st;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553815	553917	
==>st;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555212	555314	
==>st;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = { <==
5	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	628	726	
==>arnings;

=head2 Methods

=head3 Constructors

=over 4

=item * C<new()>

Basic constructor.

Accep <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	46028	46196	
==>\lua51.yp"
{
            [ @{ $_[1] }, @{ $_[2] } ];
        }
	],
	[#Rule 4
		 'chunk', 0,
sub
#line 61 "Lua\lua51.yp"
{
            [];
        }
	],
	[#R <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579493	579583	
==>n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(interpreter, enum_c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580798	580888	
==>n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(interpreter, enum_c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582103	582193	
==>n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(interpreter, enum_c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583409	583499	
==>n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(interpreter, enum_c <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	1095	1244	
==>ock,

    KIND      => 'if',
    LEFT      => $left,
    OP        => $op,
    RIGHT     => $right,

    CONTENT   => [ ]
  }, $class;

  $block->push <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072709	1072828	
==>/\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074894	1075013	
==>/\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077079	1077198	
==>/\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079265	1079384	
==>/\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072643	1072759	
==>@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074828	1074944	
==>@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077013	1077129	
==>@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079199	1079315	
==>@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = <==
5	/Users/nnunley/parrot/tools/build/vtable_h.pl	466	564	
==>Vtable;

my $vtable = parse_vtable();

open OUT, ">include/parrot/vtable.h" or die $!;

print OUT < <==
5	/Users/nnunley/parrot/lib/Class/Struct.pm	4708	4850	
==>pe";
        }
        $idx += 2;
    }
    $out .= "    bless \$r, \$class;\n  }\n";

    # Create accessor methods.

    my( $pre, $pst, $sel <==
5	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	1149	1266	
==>ef;
    open my $file, "<", $filename
        or die "can't open '$filename' for reading";

    return $file;
}

sub e <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	2506	2609	
==>ined, Pod::Simple::Debug will
throw a fatal error to the effect that
"it's s too late to call Pod::Simpl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408315	408571	
==>_connect(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409214	409470	
==>_connect(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
5	/Users/nnunley/parrot/tools/build/jit2c.pl	10134	10247	
==>me eq 'new_p_ic') {
            $jit_func = "Parrot_jit_vtable_newp_ic_op";
            $opbody =~ /vtable->(\w+)/ <==
5	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	1109	1208	
==>ired by the various opcodes. XXX This should go away
# Once PMI ports his lovely new perl6 code back <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	20019	20114	
==>treelet->[$i-1]] and $i\:[$treelet->[$i]]\n";
        $treelet->[$i-1] .= ( splice(@$treelet, $i <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18467	18565	
==>>_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_generate($node->{children}[1]) <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19180	19278	
==>>_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_generate($node->{children}[1]) <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19668	19766	
==>>_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_generate($node->{children}[1]) <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20157	20255	
==>>_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_generate($node->{children}[1]) <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20646	20744	
==>>_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_generate($node->{children}[1]) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573155	573426	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":obj <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574065	574336	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":obj <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574868	575139	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":obj <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	50755	50866	
==>lineage[-1] } ) { # Closing a childless element
          push @{ $lineage[-1] }, ''; # keep it from being reall <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147321	147583	
==>terpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, ' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148262	148524	
==>terpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, ' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149202	149464	
==>terpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, ' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150143	150405	
==>terpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, ' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860319	860570	
==>CODE" => 976,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 118 \"src/ops/string.ops\"\n  if ({{\ <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27537	27638	
==>'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'inst <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30004	30105	
==>'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'inst <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33422	33523	
==>'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'inst <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34676	34777	
==>'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'inst <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37086	37187	
==>'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'inst <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4649	4745	
==>= ord(substr(<rx_input>, <rx_pos>)); # tmp = INPUT[pos]");
    my $fail = $self->output_label_use <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858519	858614	
==>"#line 118 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859523	859618	
==>"#line 118 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860527	860622	
==>"#line 118 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861532	861627	
==>"#line 118 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \" <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8179	8305	
==>lback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } else {
        die "Too many argum <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8961	9087	
==>lback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } else {
        die "Too many argum <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7832	7958	
==>lback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } else {
        die "Too many argum <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8621	8747	
==>lback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } else {
        die "Too many argum <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	12523	12627	
==>um));";
        push @{$extra_postamble_ref}, "string_cstring_free(t_$temp_num);";
        return "t_$tem <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	811	904	
==>sa($left, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($right) . ") is not <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	649	742	
==>sa($left, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($right) . ") is not <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	802	895	
==>sa($left, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($right) . ") is not <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	691	784	
==>sa($left, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($right) . ") is not <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	640	733	
==>sa($left, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($right) . ") is not <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956766	957039	
==>));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_enc <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72533	72624	
==>=> "#line 1156 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74135	74226	
==>=> "#line 1156 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75737	75828	
==>=> "#line 1156 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77340	77431	
==>=> "#line 1156 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	119445	119623	
==>line 231 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120300	120478	
==>line 231 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121155	121333	
==>line 231 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28185	28275	
==>ep||"").$text;
			}'.($::RD_NO_TRACE?'':'
			Parse::RecDescent::_trace(q{<<Didn\'t match te <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32460	32550	
==>ep||"").$text;
			}'.($::RD_NO_TRACE?'':'
			Parse::RecDescent::_trace(q{<<Didn\'t match te <==
5	/Users/nnunley/parrot/lib/Class/Struct.pm	14354	14452	
==>is an object of the corresponding class,
or of one of it's subclasses, or a reference to a hash con <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905338	905425	
==>{\@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906357	906444	
==>{\@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907376	907463	
==>{\@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908396	908483	
==>{\@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332776	333069	
==>n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334054	334347	
==>n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335332	335625	
==>n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336611	336904	
==>n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9692	9816	
==>ub process_text_token
{
    my $self = shift;
    my $token = shift;
    my $text = $token->text;
    
    esc($text);
    $t <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663189	663492	
==>{
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663960	664263	
==>{
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664732	665035	
==>{
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665508	665811	
==>{
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
5	/Users/nnunley/parrot/tools/dev/symlink.pl	446	542	
==>$self = readlink($self) while -l $self;

$self = File::Spec->catfile($cwd, $self)
    unless File <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855027	855294	
==>erpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855916	856183	
==>erpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856805	857072	
==>erpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857695	857962	
==>erpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	48244	48342	
==>@_) if @_ and ref($_[0] || '') eq 'CODE';

  Carp::croak "But $class->_duo takes two parameters, no <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579677	579942	
==>bclass(interpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580982	581247	
==>bclass(interpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582287	582552	
==>bclass(interpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583593	583858	
==>bclass(interpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
5	/Users/nnunley/parrot/lib/Parrot/Config.pm	4920	5065	
==>' => 'define',
             'i_poll' => undef,
             'i_prot' => undef,
             'i_pthread' => 'define',
             'i_pwd' => 'defi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979144	979528	
==>ss",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1099,
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	6729	6858	
==>e and args.
        # We query the Parrot::Op for the op size, etc., which we use later.
        #
        # Either of these two f <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27539	27643	
==>f->describe ) . '};
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self->{"looka <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29649	29753	
==>f->describe ) . '};
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self->{"looka <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31746	31850	
==>f->describe ) . '};
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self->{"looka <==
5	/Users/nnunley/parrot/editor/kate_syntax.pl	4327	4423	
==>r attribute="Comment" context="#pop" String="^\\=cut\\s*\$" />
      </context>

END

print <<END <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099261	1099380	
==>\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n\tres = 1.0/res;\n    }\n    {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100459	1100578	
==>\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n\tres = 1.0/res;\n    }\n    {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101657	1101776	
==>\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n\tres = 1.0/res;\n    }\n    {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102856	1102975	
==>\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n\tres = 1.0/res;\n    }\n    {{ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4137	4243	
==>Tokenize the input, and possibly dump the tokens.
#

sub parse
{
  my $self = shift;

  my $root = $self->b <==
5	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2692	2813	
==>cc/i) {
            $liblist =~ s/gdbm\.lib/-llibgdbm/i;
        }
        my $extraLibs = '-lm -lgmp -lreadline -lpthread <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	2487	2608	
==>cc/i) {
            $liblist =~ s/gdbm\.lib/-llibgdbm/i;
        }
        my $extraLibs = '-lm -lgmp -lreadline -lpthread <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2528	2630	
==>s until late to do
	# otherwise. Also, putting a label everywhere doesn't hurt the final
	# Parrot byte <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1106	1208	
==>s until late to do
	# otherwise. Also, putting a label everywhere doesn't hurt the final
	# Parrot byte <==
5	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12151	12237	
==>057')> all return "/",
because C<EE<lt>solE<gt>>, C<EE<lt>47E<gt>>, C<EE<lt>0x2fE<gt>>, <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10264	10355	
==>-------------------------------------


#line 1 "lib/Regex/Grammar.y"


use constant TRUE => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727582	727824	
==>n   {{\@1}} = {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	728379	728621	
==>n   {{\@1}} = {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729173	729415	
==>n   {{\@1}} = {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729973	730215	
==>n   {{\@1}} = {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
5	/Users/nnunley/parrot/config/auto/gc.pm	1622	1751	
==>gc = 'malloc';
    }

=cut

    }

    if ($gc =~ /^malloc(?:-trace)?$/) {
        $conf->data->set(
            TEMP_gc_c => <<"E <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35190	35299	
==>>{subrule} . ']<< (return value: [}
					. $_tok . q{]},
					  
					  Parse::RecDescent::_tracefirst($text), <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712705	712797	
==>nterpreter, \"e\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(interp <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713812	713904	
==>nterpreter, \"e\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(interp <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720172	720264	
==>nterpreter, \"e\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(interp <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721372	721464	
==>nterpreter, \"e\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(interp <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	339547	339720	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340545	340718	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341544	341717	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342543	342716	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	61106	61193	
==>hed closing bracket: "%c">

C<extract_bracketed>, C<extract_quotelike> or C<extract_code <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4195	4307	
==>sub {
		my($a1,$a2,$result,$op,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4459	4571	
==>sub {
		my($a1,$a2,$result,$op,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5095	5207	
==>sub {
		my($a1,$a2,$result,$op,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5471	5583	
==>sub {
		my($a1,$a2,$result,$op,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5903	6015	
==>sub {
		my($a1,$a2,$result,$op,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21435	21553	
==>\s+$//s;
      DEBUG and print "Ogling '=end $content' directive\n";
      
      unless(length($content)) {
        $s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857992	858289	
==>0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858995	859292	
==>0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859999	860296	
==>0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861003	861300	
==>0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1475	1577	
==>= "MODULE"; # TODO: Don't we need to do better than this?

#  printf STDERR "%s: Compiling module '%s'. <==
5	/Users/nnunley/parrot/tools/dev/cc_flags.pl	2083	2252	
==>@ARGV;
        }
        else {
            foreach my $arg (@ARGV) {
                $arg =~ s/$option->[2]/$option->[3]/;
            }
        }
    }
}

# print "@ARG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38974	39066	
==>ops\"\n  if ({{\@1}} == EXCEPT_doomed)\n    _exit({{\@2}});\n  do_exception(interpreter, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39839	39931	
==>ops\"\n  if ({{\@1}} == EXCEPT_doomed)\n    _exit({{\@2}});\n  do_exception(interpreter, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40686	40778	
==>ops\"\n  if ({{\@1}} == EXCEPT_doomed)\n    _exit({{\@2}});\n  do_exception(interpreter, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41534	41626	
==>ops\"\n  if ({{\@1}} == EXCEPT_doomed)\n    _exit({{\@2}});\n  do_exception(interpreter, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024541	1024827	
==>=> 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025297	1025583	
==>=> 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026054	1026340	
==>=> 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026810	1027096	
==>=> 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	636	758	
==>en =~ /^[-]\d+(\.\d+)?[eE]/)) { # Dashes could be a neg. expt
      $token .= $ch;
    } elsif($ch eq '?' and
            $ <==
5	/Users/nnunley/parrot/config/gen/makefiles.pm	5889	6069	
==>,
        commentType                               => '#',
        replace_slashes                           => 1
    );
    genfile(
        'config/gen/makefiles/perl6.in' => 'la <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73123	73212	
==>t_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR(p));\n      PObj_get_FLAGS({{\@1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74725	74814	
==>t_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR(p));\n      PObj_get_FLAGS({{\@1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76327	76416	
==>t_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR(p));\n      PObj_get_FLAGS({{\@1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77930	78019	
==>t_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR(p));\n      PObj_get_FLAGS({{\@1 <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	15180	15290	
==>tback);

    my (@ibacks, @iops);
    foreach (@args) {
        my ($iback, @ops) = $self->rewrite($_, shift(@f <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19396	19519	
==>pcodes, new AssignOp( $parser,
        'result' => $result,
        'arg1'   => $nil->[0],
    );
    push @returns, $re <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404633	404726	
==>io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\n    { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405545	405638	
==>io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\n    { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406457	406550	
==>io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\n    { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407370	407463	
==>io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\n    { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553214	553390	
==>PARROT_JUMP_ENEXT",
                  "NAME" => "callmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554610	554786	
==>PARROT_JUMP_ENEXT",
                  "NAME" => "callmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556007	556183	
==>PARROT_JUMP_ENEXT",
                  "NAME" => "callmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609337	609426	
==>e 478 \"src/ops/object.ops\"\n    {{\@1}} = VTABLE_get_attr_str(interpreter, {{\@2}}, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610245	610334	
==>e 478 \"src/ops/object.ops\"\n    {{\@1}} = VTABLE_get_attr_str(interpreter, {{\@2}}, {{\@ <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27417	27522	
==>generate" instruction directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_met <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29884	29989	
==>generate" instruction directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_met <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33302	33407	
==>generate" instruction directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_met <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34556	34661	
==>generate" instruction directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_met <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36966	37071	
==>generate" instruction directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_met <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1357	1459	
==>o ADDRESS($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($ <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1882	1984	
==>o ADDRESS($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($ <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1773	1875	
==>o ADDRESS($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($ <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1497	1599	
==>o ADDRESS($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($ <==
5	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	2149	2250	
==>turn a list of files to process.  This list is one per line, and
is relative to the languages dir.

If <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	18998	19094	
==>head1 NAME
  
  Hoo::Boy::Wowza -- Stuff B<wow> yeah!

then $parser->get_short_title on that docu <==
5	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	17505	17598	
==>rator_defs.pl - Generate the definitions for all the various
APL operators in all possible con <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772124	772482	
==>> [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 872,
                  "ARGS" => [
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 350 \"sr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067176	1067301	
==>*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068362	1068487	
==>*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069548	1069673	
==>*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070735	1070860	
==>*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1 <==
5	/Users/nnunley/parrot/lib/Parrot/Op.pm	2678	2802	
==>hift;
    my ($code, $type, $name, $args, $argdirs, $labels, $flags) = @_;

    my $self = {
        CODE => $code,
        T <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634667	634762	
==>ion(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635785	635880	
==>ion(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636903	636998	
==>ion(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638022	638117	
==>ion(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451113	451322	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451851	452060	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452590	452799	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453328	453537	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	9169	9271	
==>@@@@@@@@@@@@@@@@@@@@

sub _handle_encoding_line {
  my($self, $line) = @_;
  
  # The point of this rou <==
5	/Users/nnunley/parrot/config/gen/config_h.pm	1709	1825	
==>fine = $conf->options->get('define');

    if ($define) {
        my @vals = split /,/, $define;
        print HH <<E <==
5	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10603	10711	
==>ght
    #  under non-ASCII charsets.  Something should be done about that.
  }
  return @_;
}

#~~~~~~~~~~~~~ <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11876	11973	
==>on a$(u$)
	u$="No way"
	a$="Hello"
end function
t$="Not me"
e$=a$(t$)
print t$

' references to re <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8792	8882	
==>p it.
${ITEMP1} = elements ${STYPES}
dec ${ITEMP1}
${PTEMP0} = ${STYPES}[${ITEMP1}]
${STEMP <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7364	7454	
==>p it.
${ITEMP1} = elements ${STYPES}
dec ${ITEMP1}
${PTEMP0} = ${STYPES}[${ITEMP1}]
${STEMP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	97018	97193	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnot",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	97648	97823	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnot",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	98385	98560	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnot",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	99047	99222	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnot",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	21549	21657	
==>ef = defined($_[0]) ? \$_[0] : \$_;
	my $posbug = pos;
	my ($lastpos, $firstpos);
	my @fields = ();

	#for ($ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380327	380632	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381338	381643	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382350	382655	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383362	383667	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384375	384680	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024357	1024647	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025113	1025403	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025870	1026160	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026626	1026916	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38179	38303	
==>-84,
		GOTOS => {
			'tableconstructor' => 46,
			'args' => 135,
			'key' => 136
		}
	},
	{#State 149
		DEFAULT => -9 <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7649	7742	
==>hortcut method that uses find_symbol() to locate a matching
symbol, and then returns that symb <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8296	8389	
==>hortcut method that uses find_symbol() to locate a matching
symbol, and then returns that symb <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8944	9037	
==>hortcut method that uses find_symbol() to locate a matching
symbol, and then returns that symb <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9614	9707	
==>hortcut method that uses find_symbol() to locate a matching
symbol, and then returns that symb <==
5	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1341	1430	
==>5)+X1$MSK;",
	HH => "X0=rotate_left((X1^X2^X3)+X0+X4+X6$MSK,X5)+X1$MSK;",
	II => "X0=rotat <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	8103	8198	
==>ack

=head2 Running tests

These actually run the tests, analogous to the functions in
Test::Mor <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	883	971	
==>ef($right) . ") is not Value") unless UNIVERSAL::isa($right, 'Jako::Construct::Expression <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	721	809	
==>ef($right) . ") is not Value") unless UNIVERSAL::isa($right, 'Jako::Construct::Expression <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	874	962	
==>ef($right) . ") is not Value") unless UNIVERSAL::isa($right, 'Jako::Construct::Expression <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	763	851	
==>ef($right) . ") is not Value") unless UNIVERSAL::isa($right, 'Jako::Construct::Expression <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2813	2919	
==>ement({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
    $left->sax($handler);
    $rig <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3487	3593	
==>ement({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
    $left->sax($handler);
    $rig <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3577	3683	
==>ement({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
    $left->sax($handler);
    $rig <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5362	5464	
==>ement({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
  $left->sax($handler);
  $rig <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3425	3527	
==>ement({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
  $left->sax($handler);
  $rig <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4185	4276	
==>TYPES}[${ITEMP0}]

# Assign register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_s <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2601	2692	
==>TYPES}[${ITEMP0}]

# Assign register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_s <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1384	1475	
==>TYPES}[${ITEMP0}]

# Assign register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_s <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1911	2002	
==>TYPES}[${ITEMP0}]

# Assign register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_s <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3094	3185	
==>TYPES}[${ITEMP0}]

# Assign register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72328	72593	
==>RGS" => [
                              "p",
                              "p",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 1156 \"src/ops/core.ops\"\n  char * const name = st <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050186	1050282	
==>@2}})\n\tinternal_exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051220	1051316	
==>@2}})\n\tinternal_exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052254	1052350	
==>@2}})\n\tinternal_exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053289	1053385	
==>@2}})\n\tinternal_exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	6867	6973	
==>ars"} .= "my $var;\n" }
	$self->{"changed"} = 1;
	return 1;
}

sub addautoscore
{
	my ( $self, $code ) = @_ <==
5	/Users/nnunley/parrot/lib/Test/Simple.pm	40	143	
==>trict 'vars';
use vars qw($VERSION);
$VERSION = '0.60';
$VERSION = eval $VERSION;    # make the alpha ve <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2040	2134	
==>an find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$ <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3292	3386	
==>an find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$ <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5921	6015	
==>an find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$ <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6479	6573	
==>an find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$ <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	1454	1569	
==>ined $ignore and $dir->name =~ /$ignore/;
            
            push @files, $dir->files_of_type($type, 1, $ignor <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332500	332594	
==>r, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333778	333872	
==>r, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335056	335150	
==>r, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336335	336429	
==>r, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	7218	7444	
==>],
                  "TYPE" => "inline",
                  "CODE" => 10,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 171 \"src/ops/core.ops\" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712407	712502	
==>ter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  s = Parrot_sprintf_c(interpreter, \"%.12g <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713514	713609	
==>ter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  s = Parrot_sprintf_c(interpreter, \"%.12g <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719874	719969	
==>ter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  s = Parrot_sprintf_c(interpreter, \"%.12g <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721074	721169	
==>ter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  s = Parrot_sprintf_c(interpreter, \"%.12g <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	20252	20354	
==>al(self);
    return_data = ($ret_type)(*pointer)($params);
    $ret_reg  = return_data;
    REG_INT(0) <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7967	8063	
==>ko::Construct::Block");
  confess "No identifier name!"  unless defined $name;
  confess "Extra a <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8614	8710	
==>ko::Construct::Block");
  confess "No identifier name!"  unless defined $name;
  confess "Extra a <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9282	9378	
==>ko::Construct::Block");
  confess "No identifier name!"  unless defined $name;
  confess "Extra a <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9951	10047	
==>ko::Construct::Block");
  confess "No identifier name!"  unless defined $name;
  confess "Extra a <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	538067	538317	
==>sinh((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5604	5692	
==>:OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Par <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4609	4697	
==>:OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Par <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4586	4674	
==>:OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Par <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3970	4058	
==>:OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Par <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713073	713383	
==>LAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 800,
                  "ARGS" => [
                              "nc"
                            ],
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843200	843287	
==>src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@3}});\n  {{+=4}};\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844078	844165	
==>src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@3}});\n  {{+=4}};\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844956	845043	
==>src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@3}});\n  {{+=4}};\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845835	845922	
==>src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@3}});\n  {{+=4}};\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516204	516469	
==>MP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516942	517207	
==>MP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517681	517946	
==>MP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518419	518684	
==>MP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	10239	10338	
==>pr);
}
sub pushthing {
	my($code, $optype, $sym, $type, $oldresult)=@_;
	my $ts="INVALID";

	if ($ty <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2404	2499	
==>ubclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights res <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1674	1769	
==>ubclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights res <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2841	2936	
==>ubclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights res <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1961	2056	
==>ubclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights res <==
5	/Users/nnunley/parrot/Configure.pl	264	356	
==>is is Parrot's configuration script. It should be run to create the necessary
system-specific <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3087	3188	
==>.= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we hav <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4845	4946	
==>.= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we hav <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7773	7873	
==>.= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we hav <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8629	8729	
==>.= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we hav <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	194	292	
==>/Jako/Token.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#
#

use strict;
eval "use warnings";

pac <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4260	4374	
==>ss}_class_init(interpreter, type$class, pass);
EOC
    }
    $cout .= <<"EOC";
    }
    return pmc;
}

EOC
}

=bac <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586684	586780	
==>kup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_ex <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587870	587966	
==>kup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_ex <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589056	589152	
==>kup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_ex <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590243	590339	
==>kup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_ex <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770034	770274	
==>\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770887	771127	
==>\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771740	771980	
==>\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772594	772834	
==>\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	5668	5790	
==>ools/dev/]    ? '[devel]' :
        '[]';
    }
    printf $MANI "%- 49s %s\n", $File::Find::name, $loc;

    return;
}

cl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867297	867565	
==>2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868263	868531	
==>2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869229	869497	
==>2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870196	870464	
==>2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	42661	42794	
==><=" => 85,
			'DO' => 196,
			">" => 86
		}
	},
	{#State 186
		DEFAULT => -4,
		GOTOS => {
			'block' => 197,
			'chunk' => 5 <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11099	11216	
==>Jako::Construct::Statement::Decrement->new($block, $ident);
      }

      next;
    }

    #
    # Arithmetic assigns <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9600	9685	
==>${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method_info_from_token(${ASSEMBLY}, ${AR <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7114	7199	
==>${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method_info_from_token(${ASSEMBLY}, ${AR <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5670	5755	
==>${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method_info_from_token(${ASSEMBLY}, ${AR <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7890	7975	
==>${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method_info_from_token(${ASSEMBLY}, ${AR <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	64725	64824	
==>free software. It may be used, redistributed
     and/or modified under the same terms as Perl itsel <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960997	961083	
==>string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961959	962045	
==>string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962921	963007	
==>string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963884	963970	
==>string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, { <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31192	31297	
==>$method)>

Always true for vtables.

=cut

sub implements
{
    my ($self, $meth) = @_;
    $self->impleme <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32655	32760	
==>$method)>

Always true for vtables.

=cut

sub implements
{
    my ($self, $meth) = @_;
    $self->impleme <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39812	39917	
==>$method)>

Always true for vtables.

=cut

sub implements
{
    my ($self, $meth) = @_;
    $self->impleme <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	698	788	
==>t, 'Jako::Construct::Expression::Value::Identifier');
  confess "Props are not hash!" if de <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	777	867	
==>t, 'Jako::Construct::Expression::Value::Identifier');
  confess "Props are not hash!" if de <==
5	/Users/nnunley/parrot/lib/Test/More.pm	34366	34468	
==>4.

B<NOTE>  This behavior may go away in future versions.


=head1 CAVEATS and NOTES

=over 4

=item B <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2348	2447	
==>nknown variable %s.", $right->value) unless $right_sym;
    $right_type = $right_sym->type;
  }
  el <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2306	2405	
==>nknown variable %s.", $right->value) unless $right_sym;
    $right_type = $right_sym->type;
  }
  el <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2228	2327	
==>nknown variable %s.", $right->value) unless $right_sym;
    $right_type = $right_sym->type;
  }
  el <==
5	/Users/nnunley/parrot/lib/Test/More.pm	35036	35130	
==>lexible testing functions for
complex data structures.


=item Threads

Test::More will only be <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	7967	8075	
==>unless $op->{arg1}->{symbol} goto $op->{result}->{symbol}\n";
        }
    }

    sub visitBranchUnlessN <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858629	858719	
==>with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859633	859723	
==>with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860637	860727	
==>with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861642	861732	
==>with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610355	610677	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611257	611579	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612160	612482	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613066	613388	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAG <==
5	/Users/nnunley/parrot/lib/Parrot/Test.pm	19826	19959	
==>anguage);

                # make sure TODO will work, by telling Test::Builder which
                # package the .t file is in (one <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	119458	119716	
==>c/ops/bit.ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120313	120571	
==>c/ops/bit.ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121168	121426	
==>c/ops/bit.ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
5	/Users/nnunley/parrot/tools/build/vtable_h.pl	378	480	
==>ad1 SEE ALSO

=over 4

=item C<Parrot::Vtable>

=back

=cut

use lib 'lib';
use Parrot::Vtable;

my $vt <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9128	9227	
==>udes()>

Returns the C C<#include> for the header file of each of the PMC's
superclasses.

=cut

sub <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926605	926814	
==>se STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928075	928284	
==>se STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929545	929754	
==>se STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931016	931225	
==>se STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
5	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3505	3597	
==>P '# generated by tools/dev/mk_manifest_and_skip.pl ', scalar( localtime() ), "\n";
print $SK <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214163	214454	
==>> 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218901	219192	
==>> 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219880	220171	
==>> 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	220828	221119	
==>> 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221776	222067	
==>> 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147335	147597	
==>@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ), <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148276	148538	
==>@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ), <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149216	149478	
==>@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ), <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150157	150419	
==>@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ), <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	826	923	
==>sub pre_op {
	die "pre_op not implemented for current stack to register mapper\n";
}
sub post_op { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223646	223919	
==>@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224588	224861	
==>@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225528	225801	
==>@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226469	226742	
==>@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
5	/Users/nnunley/parrot/tools/dev/symlink.pl	1893	1990	
==>Spec->catdir(@manifile[0..$i]);
		    if (!-d $dstdir && !$dstdir{$dstdir}++) {
			unless (mkdir($ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926327	926452	
==>{{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FLAGS( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927797	927922	
==>{{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FLAGS( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929267	929392	
==>{{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FLAGS( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930738	930863	
==>{{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FLAGS( <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	228	336	
==>egex::Ops::Tree qw(rop);
use Carp qw(croak);
use strict;

sub new {
    my ($proto, %opts) = @_;
    my $self <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500536	500819	
==>> 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501274	501557	
==>> 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502013	502296	
==>> 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502751	503034	
==>> 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
5	/Users/nnunley/parrot/config/auto/sizes.pm	3729	3833	
==>ned($hugeintval{hugeintvalsize})
        || $hugeintval{hugeintvalsize} == $intvalsize) {

        # Coul <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002963	1003328	
==>class",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 112 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004102	1004467	
==>class",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 112 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005240	1005605	
==>class",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 112 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1006379	1006744	
==>class",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 112 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007518	1007883	
==>class",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 112 <==
5	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1828	1934	
==>pcode);

package ToBoolOp;
use base qw(Lua::opcode);

package CallOp;
use base qw(Lua::opcode);

pa <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035662	1035752	
==>eter, lex_pad, lex_name);\n    if (!result) {\n\treal_exception(interpreter, NULL, LEX_NOT_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036826	1036916	
==>eter, lex_pad, lex_name);\n    if (!result) {\n\treal_exception(interpreter, NULL, LEX_NOT_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1029	1114	
==>ter->code->prederef.code))
#define CUR_OPCODE ((opcode_t*)cur_opcode + CONTEXT(interpr <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	963	1048	
==>ter->code->prederef.code))
#define CUR_OPCODE ((opcode_t*)cur_opcode + CONTEXT(interpr <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1159	1244	
==>ter->code->prederef.code))
#define CUR_OPCODE ((opcode_t*)cur_opcode + CONTEXT(interpr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718128	718401	
==>interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719060	719333	
==>interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720259	720532	
==>interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721459	721732	
==>interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
5	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3647	3749	
==>pod_page_link($to, $section);
    return undef unless defined $to and length $to;
     # resolve_pod_pa <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	13510	13621	
==>[1] $cmt
EOC
}

sub PRINT_NEWLINE
{
    my ($n, $c, $cmt) = @_;
    print <<"EOC";
	print_newline $cmt
EOC
}

su <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25320	25408	
==>2}};\n  interpreter->current_cont = CONTEXT(interpreter->ctx)->current_cont;\n  PObj_get_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557893	557981	
==>2}};\n  interpreter->current_cont = CONTEXT(interpreter->ctx)->current_cont;\n  PObj_get_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559277	559365	
==>2}};\n  interpreter->current_cont = CONTEXT(interpreter->ctx)->current_cont;\n  PObj_get_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560649	560737	
==>2}};\n  interpreter->current_cont = CONTEXT(interpreter->ctx)->current_cont;\n  PObj_get_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039368	1039625	
==>global(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040260	1040517	
==>global(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041152	1041409	
==>global(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042045	1042302	
==>global(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
5	/Users/nnunley/parrot/config/auto/memalign.pm	1349	1481	
==>cc_build(); };
    unless ($@ || cc_run_capture() !~ /ok/) {
        $test = 1;
    }
    cc_clean();

    my $test2 = 0;

    cc_gen <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586417	586669	
==>=> 667,
                  "ARGS" => [
                              "p",
                              "s",
                              "k"
                            ],
                  "BODY" => "#line 314 \"src/ops/object.ops\"\n  PMC *class = Pa <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867199	867291	
==>AL len;\n  len = string_length(interpreter, {{\@2}});\n  {{\@1}} = string_substr(interpreter, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868165	868257	
==>AL len;\n  len = string_length(interpreter, {{\@2}});\n  {{\@1}} = string_substr(interpreter, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869131	869223	
==>AL len;\n  len = string_length(interpreter, {{\@2}});\n  {{\@1}} = string_substr(interpreter, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870098	870190	
==>AL len;\n  len = string_length(interpreter, {{\@2}});\n  {{\@1}} = string_substr(interpreter, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080536	1080648	
==>nt){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "ex <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081601	1081713	
==>nt){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "ex <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082666	1082778	
==>nt){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "ex <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083732	1083844	
==>nt){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "ex <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	58542	58653	
==>/ )
			{	
				_warn(2,"Rule \"$rulename\" hidden by method
				       Parse::RecDescent::$rulename",$line)
				a <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	21687	21798	
==>>{flags}{does} }));
    my $n = exists $self->{has_method}{class_init} ?
                   $self->{has_method}{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763142	763242	
==>@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763995	764095	
==>@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764848	764948	
==>@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765702	765802	
==>@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831925	832113	
==>ODE" => 941,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 192 \"src/ops/stack.ops\"\n  stack_push(interp <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066914	1067014	
==>ops/experimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068100	1068200	
==>ops/experimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069286	1069386	
==>ops/experimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070473	1070573	
==>ops/experimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{ <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	940	1038	
==>:ISA      = qw(Regex::Ops::Tree);

@Regex::Ops::Tree::match::ISA        = qw(Regex::Ops::Tree::_ato <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83643	83735	
==>/ops/core.ops\"\n  PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interpreter,\n      in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84549	84641	
==>/ops/core.ops\"\n  PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interpreter,\n      in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85454	85546	
==>/ops/core.ops\"\n  PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interpreter,\n      in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86361	86453	
==>/ops/core.ops\"\n  PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interpreter,\n      in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223644	223905	
==>{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224586	224847	
==>{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225526	225787	
==>{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226467	226728	
==>{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	399	495	
==>arrot::Docs::Section::Info;

use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=i <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2886	2979	
==>O

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CG <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	6340	6433	
==>O

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CG <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4556	4649	
==>O

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CG <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4533	4626	
==>O

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CG <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3917	4010	
==>O

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471311	471643	
==>} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472298	472630	
==>} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473285	473617	
==>} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474275	474607	
==>} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475266	475598	
==>} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647023	647317	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647783	648077	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648544	648838	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649306	649600	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
5	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15116	15221	
==>if(wantarray) {  # return an array
    return map {; ($x = $_) =~
      s/([F\x00-\x1F\-\\\{\}\x7F-\xFF])/ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54892	55192	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55652	55952	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56413	56713	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57175	57475	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57936	58236	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAG <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18421	18528	
==>node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19134	19241	
==>node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19622	19729	
==>node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20111	20218	
==>node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20600	20707	
==>node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $ <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39319	39440	
==>odes1, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes1, new ConstDir( $parser,
        ' <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	12886	13043	
==>rgs} }, $lastback ]);
}

# scan(R) ->   scan: R or advance
#                    goto next
#           advance: pos++ or lastback
#                    goto sca <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1460	1578	
==>self, $addr) = @_;

    #print STDERR "pbcc: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
        return "return <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1985	2103	
==>self, $addr) = @_;

    #print STDERR "pbcc: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
        return "return <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1876	1993	
==>self, $addr) = @_;

    #print STDERR "pbcc: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
  	    return "return <==
5	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2765	2863	
==>~~~~~~~~~~~~~~~

sub new {
  my $new = shift->SUPER::new(@_);
  #$new->nix_X_codes(1);
  $new->nbsp <==
5	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3121	3217	
==>~~~~~~~~~~~~~~~
sub new {
  my $new = shift->SUPER::new(@_);
  $new->nix_X_codes(1);
  $new->nbsp <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41712	41857	
==>=> 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -53
	},
	{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332512	332606	
==>OHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333790	333884	
==>OHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335068	335162	
==>OHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336347	336441	
==>OHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33501	33616	
==>0];
	bless 
	{
		"subrule"   => $_[1],
		"lookahead" => $_[2],
		"line"      => $_[3],
		"implicit"  => $_[4] || und <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584483	584577	
==>2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585558	585652	
==>2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597999	598093	
==>2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599046	599140	
==>2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27405	27517	
==>rom the "to generate" instruction directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= su <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29872	29984	
==>rom the "to generate" instruction directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= su <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33290	33402	
==>rom the "to generate" instruction directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= su <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34544	34656	
==>rom the "to generate" instruction directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= su <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36954	37066	
==>rom the "to generate" instruction directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= su <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926595	926743	
==>k;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928065	928213	
==>k;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929535	929683	
==>k;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931006	931154	
==>k;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => <==
5	/Users/nnunley/parrot/tools/docs/pod_errors.pl	677	784	
==>>path, 
		' has ', 
		$file->num_pod_errors, 
		' error',
		$file->num_pod_errors != 1 ? 's' : '', 
		":\n", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113250	113505	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113988	114243	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114727	114982	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115581	115836	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116436	116691	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117291	117588	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118029	118326	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118768	119065	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	119622	119919	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120477	120774	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	1331	1455	
==>an follow a decimal point
             $token =~ /^\d/)) {  # Digits can follow other digits
      $token .= $ch;
    } elsif <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	46002	46102	
==>etter have nbsp_for_S off.
    }
  }

  return $is_s;
}

#------------------------------------------- <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	710	806	
==>methods,
and adds these methods:

=over

=item $token->text

This returns the text that this toke <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088885	1088979	
==>.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089833	1089927	
==>.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072108	1072229	
==>n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074293	1074414	
==>n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076478	1076599	
==>n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078664	1078785	
==>n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	5586	5701	
==>escapes.
sub dbprint {
    my ($self, $what) = @_;
    return () unless $self->{DEBUG};
    my @ops;
    $what = "%< <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206530	206802	
==>1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207472	207744	
==>1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208412	208684	
==>1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209353	209625	
==>1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
5	/Users/nnunley/parrot/tools/build/jit2c.pl	13452	13569	
==>jit_func, $extern }, \t" .
            "/* op $i: $core_opfunc[$i] */\n";
}

print JITCPU @jit_funcs, "};\n";

if ($ge <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	8077	8174	
==>n_line($_, $file, $line);
    }
  }

  push @{$self->{TOKENS}}, Jako::Token->new_eof($file, $line) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514221	514552	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "AR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515101	515432	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "AR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099470	1099801	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "AR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100668	1100999	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "AR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101866	1102197	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "AR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19250	19494	
==>JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ], <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20026	20270	
==>JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ], <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20804	21048	
==>JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ], <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21604	21848	
==>JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ], <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	872	987	
==>r to the start
of the document.

=cut

sub do_beginning 
{
    my $self = shift;

    # We have to do this because i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710203	710454	
==>( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711036	711287	
==>( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711870	712121	
==>( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712976	713227	
==>( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "i <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6316	6437	
==>'type');          }

sub require_value         { return shift->require('ident', 'literal'); }


#
# skip()
#
# Skips the t <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253241	253539	
==>=> 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254103	254401	
==>=> 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254966	255264	
==>=> 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	21367	21465	
==>st::Builder's default output settings will not be affected.

=over 4

=item B<diag>

    $Test->dia <==
5	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	1639	1733	
==>< "EOF";
/* fingerprint checking is only enabled in development versions */

int
PackFile_check <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071855	1071958	
==>INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = {{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  INTVAL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074040	1074143	
==>INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = {{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  INTVAL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076225	1076328	
==>INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = {{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  INTVAL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078411	1078514	
==>INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = {{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  INTVAL <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	30	129	
==>e::Text;
use strict;
use Carp ();
use Pod::Simple::Methody ();
use Pod::Simple ();
use vars qw( @ISA <==
5	/Users/nnunley/parrot/config/inter/pmc.pm	4114	4214	
==>str) =~ s/^| / src${slash}pmc${slash}/g;
    (my $TEMP_pmc_classes_pmc = $pmc_list)     =~ s/^| / src <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2093	2185	
==>epth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3345	3437	
==>epth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5974	6066	
==>epth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6532	6624	
==>epth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} <==
5	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	1359	1466	
==>R

    # Return.
END:
    .return(body)
.end
PIR_OUT

# Write output.
open $fh, "> $output_file" or die "Can <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5621	5707	
==>em C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::C <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3197	3283	
==>em C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::C <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4626	4712	
==>em C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::C <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4603	4689	
==>em C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::C <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3987	4073	
==>em C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::C <==
5	/Users/nnunley/parrot/config/gen/makefiles.pm	9389	9516	
==>OD) 0644 ..${slash}ops${slash}$pod\n\n";
            }
        }

    } else {
        print "\nNo Perldoc, not generating a doc <==
5	/Users/nnunley/parrot/Configure.pl	10111	10209	
==>onf->data->get('make');

print <<"END";

Okay, we're done!

You can now use `$make' to build your P <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12711	12853	
==>my $result2 = new_tmp( $parser, 'pmc' );
                    push @opcodes, new LocalDir( $parser,
                        'result' => $resul <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067180	1067323	
==>n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "L <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068366	1068509	
==>n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "L <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069552	1069695	
==>n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "L <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070739	1070882	
==>n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "L <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	56560	56654	
==>se. The delimited and bracketed
parts are also blessed to identify them (the "anything else" is <==
5	/Users/nnunley/parrot/tools/build/pbc2c.pl	2569	2695	
==>s{$pc}->{op} = $op;
        $new_pc   = $pc + $op->size;

        @args = ();

        foreach (1 .. scalar($op->arg_types) - 1 <==
5	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	530	630	
==>data->set(ccflags => $ccflags);

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread <==
5	/Users/nnunley/parrot/config/init/hints/irix.pm	475	575	
==>data->set(ccflags => $ccflags);

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread <==
5	/Users/nnunley/parrot/config/init/hints/netbsd.pm	268	368	
==>data->set(ccflags => $ccflags);

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread <==
5	/Users/nnunley/parrot/config/init/hints/openbsd.pm	360	460	
==>data->set(ccflags => $ccflags);

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3457	3551	
==>:Wrap>, so you can change
C<$Text::Wrap::columns> as you like.

This is a subclass of L<Pod::Si <==
5	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1368	1517	
==>n to get to
        # the tcl binary.

        # There are basically 2 choices: run in one of:
        #  languages
        #  languages/m4

        m <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926032	926127	
==>ne 385 \"src/ops/string.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927502	927597	
==>ne 385 \"src/ops/string.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928972	929067	
==>ne 385 \"src/ops/string.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930443	930538	
==>ne 385 \"src/ops/string.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22166	22258	
==>ko::Construct::Expression::Value->new($block, $self->require_value);

        $self->require_ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23099	23191	
==>ko::Construct::Expression::Value->new($block, $self->require_value);

        $self->require_ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24745	24836	
==>ko::Construct::Expression::Value->new($block, $self->require_value);
        $self->require_ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9926	10016	
==>ko::Construct::Expression::Value->new($block, $self->require_value);

      $self->require_ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25462	25552	
==>ko::Construct::Expression::Value->new($block, $self->require_value);

      $self->require_ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	804	907	
==>b sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'block', Attribut <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1817	1920	
==>b sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'block', Attribut <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32070	32173	
==>oin(' ', @args) if @args;
    $parameters = ", $parameters" if $parameters;
    my $body = "VTABLE_$meth <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33647	33750	
==>oin(' ', @args) if @args;
    $parameters = ", $parameters" if $parameters;
    my $body = "VTABLE_$meth <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40704	40807	
==>oin(' ', @args) if @args;
    $parameters = ", $parameters" if $parameters;
    my $body = "VTABLE_$meth <==
5	/Users/nnunley/parrot/lib/Parrot/Op.pm	4789	4895	
==>AGS} = shift;
    }

    return $self->{FLAGS};
}

=item C<arg_dir($index)>

Returns the direction of the o <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712572	712663	
==>_str_index(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_st <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713679	713770	
==>_str_index(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_st <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720039	720130	
==>_str_index(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_st <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721239	721330	
==>_str_index(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_st <==
5	/Users/nnunley/parrot/lib/Parrot/Test.pm	8616	8756	
==>de = $? >> 8;

    close STDOUT             or die "Can't close    stdout" if $out;
    close STDERR             or die "Can't close    stder <==
5	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8160	8276	
==>de = $? >> 8;

    close STDOUT or die "Can't close    stdout" if $out;
    close STDERR or die "Can't close    stder <==
5	/Users/nnunley/parrot/config/gen/config_h.pm	525	614	
==>Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':gen';

$description = 'Gene <==
5	/Users/nnunley/parrot/config/gen/makefiles.pm	367	456	
==>Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':gen';

$description = 'Gene <==
5	/Users/nnunley/parrot/config/gen/parrot_include.pm	359	448	
==>Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':gen';

$description = 'Gene <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168559	168820	
==>{{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169501	169762	
==>{{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170441	170702	
==>{{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171382	171643	
==>{{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	23508	23623	
==>t_FLAG|PObj_external_FLAG);
EOC
    }
    else {
        $cout .= <<"EOC";
        vt_clone->whoami = CONST_STRING(i <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4114	4215	
==>.0
	$op $a2, $a1, EQ_$eqnum
	set $result, 0.0
EQ_$eqnum: noop
CODE
	},
	'and' => sub {
		my($a1,$a2,$r <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071786	1071886	
==>> "#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073971	1074071	
==>> "#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076156	1076256	
==>> "#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078342	1078442	
==>> "#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527266	527509	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528019	528262	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528900	529143	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529782	530025	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	31623	31740	
==>);
    if ($temp =~ /[INS]/) {
      $self->_add_inst('','print',[$temp]);
    }
    else {  
      $self->_call_funct <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849905	850160	
==>chopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850792	851047	
==>chopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851679	851934	
==>chopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852567	852822	
==>chopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7421	7523	
==>ut it on the lazy
	# moves stack.
	if (!$need_dest) {
		$pir .= <<'PIR'
inc stack_depth
lazy_moves = pu <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3673	3782	
==>s $props{fn} or exists $props{fnlib}) {
      $name .= "_THUNK";
    }

    $compiler->emit("  $dest = _${name <==
5	/Users/nnunley/parrot/config/gen/platform.pm	4144	4247	
==>"Can't open begin.c: $!";
        print PLATFORM_C <<"END_HERE";
/*
** begin.c
*/
#line 1 "config/gen/pl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94942	95029	
==>rc/ops/bit.ops\"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95835	95922	
==>rc/ops/bit.ops\"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96728	96815	
==>rc/ops/bit.ops\"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n <==
5	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10747	10857	
==>1}/g; # interpolate
      print $fh $scratch;
    }
  }
  return 1;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579303	579397	
==>ot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580608	580702	
==>ot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581913	582007	
==>ot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583219	583313	
==>ot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2068	2178	
==>$left_type = $left_sym->type;
  }
  else {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVERSAL <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2026	2136	
==>$left_type = $left_sym->type;
  }
  else {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVERSAL <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1948	2058	
==>$left_type = $left_sym->type;
  }
  else {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVERSAL <==
5	/Users/nnunley/parrot/lib/Parrot/Test.pm	7829	7939	
==>OUT" or die "Can't save     stdout" if $out;
    open  OLDERR, ">&STDERR" or die "Can't save     stderr" if $er <==
5	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7879	7988	
==>OUT" or die "Can't save     stdout" if $out;
    open OLDERR, ">&STDERR" or die "Can't save     stderr" if $er <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	56319	56482	
==>ract_multiple($text,
                                   [ sub { extract_variable($_[0]) } ],
                                   undef, 1);

This example separates a <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3173	3272	
==>th]

# Do we have anything on the lazy moves stack?
${ITEMP0} = elements lazy_moves
if ${ITEMP0} > 0 <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4931	5030	
==>th]

# Do we have anything on the lazy moves stack?
${ITEMP0} = elements lazy_moves
if ${ITEMP0} > 0 <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7858	7957	
==>th]

# Do we have anything on the lazy moves stack?
${ITEMP0} = elements lazy_moves
if ${ITEMP0} > 0 <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8714	8813	
==>th]

# Do we have anything on the lazy moves stack?
${ITEMP0} = elements lazy_moves
if ${ITEMP0} > 0 <==
5	/Users/nnunley/parrot/editor/kate_syntax.pl	936	1027	
==>_yield .namespace .endnamespace .macro .include);
my @pod_start = qw(head[1-6] over back ite <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18413	18519	
==>($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $t <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19126	19232	
==>($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $t <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19614	19720	
==>($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $t <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20103	20209	
==>($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $t <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20592	20698	
==>($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $t <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	28344	28444	
==>"#line 502 \"src/ops/core.ops\"\n    opcode_t * const this = CUR_OPCODE;\n    PMC * const signature = <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5635	5723	
==>pTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3211	3299	
==>pTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4617	4705	
==>pTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	4001	4089	
==>pTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3079	3199	
==>K}[$index][1];

	undef;	#Invalid index
}

sub YYCurtok {
	my($self)=shift;

        @_
    and ${$$self{TOKEN}}= <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8458	8570	
==>_reg = shift;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the store.
	# Otherw <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6278	6390	
==>_reg = shift;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the store.
	# Otherw <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5193	5305	
==>_reg = shift;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the store.
	# Otherw <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2931	3042	
==>K}[$index][1];

	undef;	#Invalid index
}

sub YYCurtok {
	my($self)=shift;

        @_
    and ${$$self{TOKEN}}= <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31768	31894	
==>0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcodes1, ne <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	32419	32545	
==>0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcodes1, ne <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33069	33195	
==>0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcodes1, ne <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627365	627459	
==>egister before its init method\n   * copies the registers. */\n  {{\@1}} = pmc_new_noinit(inter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628509	628603	
==>egister before its init method\n   * copies the registers. */\n  {{\@1}} = pmc_new_noinit(inter <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20550	20672	
==>4,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 115,
			'functioncall' => 31,
			'function' => 26,
			'tableconst <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10768	10868	
==>o::Construct::Block

  confess "No block!"        unless defined $self and ref $self and $self->isa(" <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4444	4538	
==>o::Construct::Block

  confess "No block!"  unless defined $self and ref $self and $self->isa(" <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4951	5045	
==>o::Construct::Block

  confess "No block!"  unless defined $self and ref $self and $self->isa(" <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10354	10447	
==>o::Construct::Block

  confess "No block!" unless defined $self and ref $self and $self->isa(" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680765	681040	
==>{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681541	681816	
==>{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682315	682590	
==>{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683090	683365	
==>{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shi <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	2257	2365	
==>y ($self, $tree, $ctx) = @_;
    die "unimplemented meta $tree";
}

# FIXME!!!
sub convert_rx_beg {
    my ($ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	15226	15398	
==>ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 247 \"src/ops/core.ops\"\n  opcode_t * const loc = INTVAL2PTR <==
5	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	980	1112	
==>rrot::Test::run_command($cmd, CD => $self->{relpath},
                                           STDOUT => $out_f, STDERR => $out_f ) <==
5	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1021	1153	
==>rrot::Test::run_command($cmd, CD => $self->{relpath},
                                           STDOUT => $out_f, STDERR => $out_f ) <==
5	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	1138	1264	
==>rrot::Test::run_command( $cmd, 
						    CD     => $self->{relpath},
						    STDOUT => $out_f, 
						    STDERR => $out_f ) <==
5	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2071	2168	
==>rrot::Test::run_command($cmd, #CD => $self->{relpath},
					   STDOUT => $out_f, STDERR => $out_f) <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	19717	19823	
==>et $target_name!\n";
        $to_resolve = 1
          if $self->{'accept_targets'}{$target_name} eq 'force <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344446	344538	
==>ring_cstring_free(path); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345688	345780	
==>ring_cstring_free(path); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346930	347022	
==>ring_cstring_free(path); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348173	348265	
==>ring_cstring_free(path); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305154	305437	
==>E",
                  "NAME" => "if_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305942	306225	
==>E",
                  "NAME" => "if_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
5	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	8814	8922	
==>t => "default",
  );

  $runcore{$_[0]};
}

sub runcore_from_args {
  local $_ = shift;

  /\b-g\b/ and retur <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	432	539	
==>{
  my $class = shift;

  confess "Expected 5 args!" unless @_ == 5;

  my ($block, $prefix, $left, $op, $ri <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	432	539	
==>{
  my $class = shift;

  confess "Expected 5 args!" unless @_ == 5;

  my ($block, $prefix, $left, $op, $ri <==
5	/Users/nnunley/parrot/config/auto/msvc.pm	1721	1844	
==>=> $msvcversion);

    # Add Visual C++ specifics here
    if ($msvcversion >= 14.00) {

        # Version 14 (aka Visual C+ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712708	712800	
==>rpreter, \"e\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(interpret <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713815	713907	
==>rpreter, \"e\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(interpret <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720175	720267	
==>rpreter, \"e\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(interpret <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721375	721467	
==>rpreter, \"e\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(interpret <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121367	121631	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122278	122542	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123190	123454	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124063	124327	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124937	125201	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	508	608	
==>er mapper\n";
}

# Extra subroutines required for the mapper.
sub subs {
	die "subs not implemented f <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926082	926208	
==>{\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927552	927678	
==>{\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929022	929148	
==>{\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930493	930619	
==>{\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STR <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16688	16802	
==>methods
    foreach my $method (@{ $self->{methods}} ) {
        next unless $method->{loc} eq 'nci';
        my $r <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	35201	35361	
==>BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $lbl_end;
            }
        }
    }
    push @opcodes1, @{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218813	218901	
==>compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) > <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219792	219880	
==>compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) > <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227372	227460	
==>compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) > <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228352	228440	
==>compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) > <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527264	527473	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528017	528226	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528898	529107	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529780	529989	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o" <==
5	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10518	10624	
==>n_capture
{
    my $exe   = $conf->data->get('exe');
    my $slash = $conf->data->get('slash');
    my $ver <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925488	925785	
==>MP" => 0,
                  "NAME" => "stringinfo",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926957	927254	
==>MP" => 0,
                  "NAME" => "stringinfo",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928427	928724	
==>MP" => 0,
                  "NAME" => "stringinfo",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929897	930194	
==>MP" => 0,
                  "NAME" => "stringinfo",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	1258	1352	
==>', 'cola.html', '', 'languages/cola'),
        $self->new_section('Commun Lisp', 'lisp.html', ' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849901	850156	
==>ing_chopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850788	851043	
==>ing_chopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851675	851930	
==>ing_chopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852563	852818	
==>ing_chopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
5	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	1520	1623	
==>a oil (or vegetable oil)
 
 * 1 tablespoon garam masala
 * 1/2 teaspoon red chili powder, or to taste
 * <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072478	1072584	
==>INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074663	1074769	
==>INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076848	1076954	
==>INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079034	1079140	
==>INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the s <==
5	/Users/nnunley/parrot/tools/build/ops2pm.pl	5755	5849	
==>use strict;

package Parrot::OpLib::$package;

use vars qw(\$VERSION \$ops \$preamble);

\$VERS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710859	711101	
==>eter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711693	711935	
==>eter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712799	713041	
==>eter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713906	714148	
==>eter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49971	50162	
==>4,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 800 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426540	426856	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 490,
                  "AR <==
5	/Users/nnunley/parrot/examples/benchmarks/mops.pl	876	1158	
==>nt  "Iterations:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, I1
                              #
print "Estimated <==
5	/Users/nnunley/parrot/examples/mops/mops.pl	876	1158	
==>nt  "Iterations:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, I1
                              #
print "Estimated <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819635	819732	
==>k, {{\@2}});\n\n  if (!entry) {\n    internal_exception(99, \"Stack Depth wrong\");\n  }\n  {{\@1} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820595	820692	
==>k, {{\@2}});\n\n  if (!entry) {\n    internal_exception(99, \"Stack Depth wrong\");\n  }\n  {{\@1} <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4531	4631	
==>lf->current_block();
      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $t <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	10777	10877	
==>lf->current_block();
      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $t <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16191	16291	
==>lf->current_block();
      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $t <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16962	17062	
==>lf->current_block();
      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $t <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17767	17867	
==>lf->current_block();
      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $t <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	13687	13803	
==>pogate = new .Hash
TRANS_LOOP:
    pc = bc.get_pos()
	next_pc = pc
    if pc >= bc_length goto COMPLETE
    
    # If <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	343	451	
==>e Carp;

use Jako::Compiler;

use base qw(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my $sel <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	343	451	
==>e Carp;

use Jako::Compiler;

use base qw(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my $sel <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	343	451	
==>e Carp;

use Jako::Compiler;

use base qw(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my $sel <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	364	471	
==>e Carp;
use Jako::Compiler;

use base qw(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my $sel <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13778	13876	
==>late
the number of lines, C<$out_name> is the name of the output file we are
generating.

=cut

sub <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16166	16264	
==>late
the number of lines, C<$out_name> is the name of the output file we are
generating.

=cut

sub <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29561	29659	
==>late
the number of lines, C<$out_name> is the name of the output file we are
generating.

=cut

sub <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30203	30301	
==>late
the number of lines, C<$out_name> is the name of the output file we are
generating.

=cut

sub <==
5	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	12482	12571	
==>ext0 pod-head3;}
{\s34\ql \keepn\sb90\sa180\f2\fs%s\ul\sbasedon0 \snext0 pod-head4;}
}

EN <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632727	633073	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "A <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633769	634115	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "A <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634886	635232	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "A <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636004	636350	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "A <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637122	637468	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "A <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324158	324372	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324950	325164	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325743	325957	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326533	326747	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327334	327548	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i", <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27632	27738	
==>>{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$p <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30099	30205	
==>>{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$p <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33517	33623	
==>>{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$p <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37181	37287	
==>>{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$p <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	511	605	
==>nings;

use base qw( Parrot::Docs::Section );

use Parrot::Distribution;

use Parrot::Docs::Sec <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763224	763480	
==>NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764077	764333	
==>NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764930	765186	
==>NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765784	766040	
==>NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	40183	40288	
==>&_op_define_syntax,
  'syntax-rules'        => \&_op_syntax_rules,
  'let-syntax'          => \&_op_let_sy <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	1770	1883	
==>write '$c_name";
    print $C $cout;
    close $C;
    my $hout = $generator->gen_h($h_name);
    print $hout if $ <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2208	2318	
==>sub end_head1       { $_[0]->emit_par(-4) }
sub end_head2       { $_[0]->emit_par(-3) }
sub end_head3       { $ <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1776	1886	
==>sub end_head1       { $_[0]->emit_par(-4) }
sub end_head2       { $_[0]->emit_par(-3) }
sub end_head3       { $ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	47	149	
==>w($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

$VERSION   = '0.01';
@ISA       = qw(Exporter);
@EXP <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	50	152	
==>w($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

$VERSION   = '0.01';
@ISA       = qw(Exporter);
@EXP <==
5	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	974	1108	
==>e = Parrot::Test::run_command($cmd, CD => $self->{relpath},
                                           STDOUT => $out_f, STDERR => $out <==
5	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1015	1149	
==>e = Parrot::Test::run_command($cmd, CD => $self->{relpath},
                                           STDOUT => $out_f, STDERR => $out <==
5	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	1132	1260	
==>e = Parrot::Test::run_command( $cmd, 
						    CD     => $self->{relpath},
						    STDOUT => $out_f, 
						    STDERR => $out <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	24015	24121	
==>[3] ? %{$_[3]} : ();
	my $omode   = defined $options{fail} ? $options{fail} : '';
	my $bad     = ref($optio <==
5	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2065	2165	
==>e = Parrot::Test::run_command($cmd, #CD => $self->{relpath},
					   STDOUT => $out_f, STDERR => $out <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3355	3445	
==>refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = conc <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5117	5207	
==>refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = conc <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8029	8119	
==>refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = conc <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8886	8976	
==>refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = conc <==
5	/Users/nnunley/parrot/tools/docs/write_docs.pl	13	102	
==>Copyright (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/tools/docs/write_docs.pl 1960 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072353	1072470	
==>1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  {{\@2}} = (INTVAL)( xk * pow( -1, n ) );\n  {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074538	1074655	
==>1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  {{\@2}} = (INTVAL)( xk * pow( -1, n ) );\n  {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076723	1076840	
==>1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  {{\@2}} = (INTVAL)( xk * pow( -1, n ) );\n  {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078909	1079026	
==>1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  {{\@2}} = (INTVAL)( xk * pow( -1, n ) );\n  {{\@ <==
5	/Users/nnunley/parrot/lib/Test/More.pm	19447	19547	
==>il
but will work in the future (a todo test).

For more details on the mechanics of skip and todo tes <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279737	280028	
==>@2}} < {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	280592	280883	
==>@2}} < {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	281447	281738	
==>@2}} < {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6519	6660	
==>act > 0
            and do {        #shift

#DBG>				$debug & 0x04
#DBG>			and	print STDERR "Shift and go to state $act.\n";

					$$err <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6216	6351	
==>act > 0
            and do {        #shift

#DBG>				$debug & 0x04
#DBG>			and	print STDERR "Shift and go to state $act.\n";

					$$err <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20737	20867	
==>{#State 61
		DEFAULT => -28,
		GOTOS => {
			'@9-2' => 116
		}
	},
	{#State 62
		DEFAULT => -52
	},
	{#State 63
		ACTIONS <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25181	25284	
==>n} ? @{$node->{children}} - 1 : 0;

  if($num_children==0) {
    $return = $self->_constant(0);
  } elsi <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27081	27184	
==>n} ? @{$node->{children}} - 1 : 0;

  if($num_children==0) {
    $return = $self->_constant(0);
  } elsi <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24293	24395	
==>n} ? @{$node->{children}} - 1 : 0;
  if($num_children==0) {
    $return = $self->_constant(0);
  } elsi <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26192	26294	
==>n} ? @{$node->{children}} - 1: 0;

  if($num_children==0) {
    $return = $self->_constant(0);
  } elsi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141280	141609	
==>> ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 173,
                  "ARGS" => [
                              "nc <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	20956	21083	
==>isge',
	    '<' => 'islt',
	    '<=' => 'isle',
	    'is' => 'issame',
	    'is not' => 'issame',
	    'in'   => 'exists'
	);
	m <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29776	29886	
==>";

		# If we have PIR for the instruction, just take that. If not, we need
		# to generate it from the "to gen <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33194	33304	
==>";

		# If we have PIR for the instruction, just take that. If not, we need
		# to generate it from the "to gen <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36858	36968	
==>";

		# If we have PIR for the instruction, just take that. If not, we need
		# to generate it from the "to gen <==
5	/Users/nnunley/parrot/config/inter/pmc.pm	2398	2535	
==>are available:
  @pmc
END
        {
            $pmc_list = prompt('Which PMC files would you like?', $pmc_list);
        }
    }

    # X <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	498	613	
==>AST' },
  'if'       => { PREFIX => "_I", NEXT => 'TEST', REDO => 'THEN', LAST => 'ELSE' },
  'sub'      => { PREFIX <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	519	634	
==>AST' },
  'if'       => { PREFIX => "_I", NEXT => 'TEST', REDO => 'THEN', LAST => 'ELSE' },
  'sub'      => { PREFIX <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2410	2518	
==>return ("print $what;");
}

sub output_test {
    my ($self, $test, $val1, $val2, $dest) = @_;
    $val1 = va <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2727	2834	
==>return ("print $what");
}

sub output_test {
    my ($self, $test, $val1, $val2, $dest) = @_;
    $val1 = va <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13169	13390	
==>de_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14013	14234	
==>de_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14717	14938	
==>de_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	15404	15625	
==>de_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_ <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	501	594	
==>kage Parrot::Docs::HTMLPage;

use strict;
use warnings;

=item C<header($title, $navigation, $ <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	29629	29771	
==>UnlessOp( $parser,
        'arg1'   => $_step,
        'op'     => '>',
        'arg2'   => $zero->[0],
        'result' => $lbl_or,
    ) <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2007	2108	
==>r .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set reg <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3259	3360	
==>r .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set reg <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5889	5989	
==>r .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set reg <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6447	6547	
==>r .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set reg <==
5	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	645	737	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub TIEHANDLE {  # Ties to just a scalar r <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154243	154435	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155146	155338	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156050	156242	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156954	157146	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157859	158051	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	249099	249351	
==>E" => 289,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 670 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773394	773480	
==>ne 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774304	774390	
==>ne 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775214	775300	
==>ne 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776125	776211	
==>ne 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73183	73430	
==>);\n      PObj_get_FLAGS({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74785	75032	
==>);\n      PObj_get_FLAGS({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76387	76634	
==>);\n      PObj_get_FLAGS({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77990	78237	
==>);\n      PObj_get_FLAGS({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0 <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	4758	4857	
==>"elseif") {
		my $c;
		$c=pop @ifstack;
		push(@{$elsestack->{$elsetag}}, $elseline);
		($result, $t <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73214	73515	
==>}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74816	75117	
==>}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76418	76719	
==>}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78021	78322	
==>}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	24459	24557	
==>'<\w+(?:' . gen_delimited_pat(q{'"}) . '|[^>])*>'; }

	my $posbug = pos;
	for ($ldel, $pre, $bad, $ <==
5	/Users/nnunley/parrot/lib/Class/Struct.pm	11608	11702	
==>ized to C<undef>
(but see L<Initializing with new>).

The accessor's argument, if any, is assig <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584437	584529	
==>*class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_I <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585512	585604	
==>*class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_I <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597953	598045	
==>*class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_I <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599000	599092	
==>*class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_I <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083069	1083368	
==>AME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1202 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579484	579573	
==>exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(interpret <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580789	580878	
==>exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(interpret <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582094	582183	
==>exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(interpret <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583400	583489	
==>exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(interpret <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	17098	17195	
==>a->[1]{'~_freaky_para_hack'} = $1;
    DEBUG > 2 and print " Tolerating $$para[2] as =item *\\n\\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5593	5679	
==>m C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto> <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4598	4684	
==>m C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto> <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4575	4661	
==>m C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto> <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3959	4045	
==>m C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto> <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748879	749100	
==>->set_number_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749663	749884	
==>->set_number_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755179	755400	
==>->set_number_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755966	756187	
==>->set_number_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
5	/Users/nnunley/parrot/tools/build/ops2pm.pl	454	546	
==>nd line and outputs a
C<Parrot::OpLib::core> module containing information about the ops.

=h <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504118	504446	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "A <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504973	505301	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "A <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505828	506156	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "A <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506682	507010	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "A <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507537	507865	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "A <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133313	133522	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134093	134302	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	68546	68658	
==>head ("...")' ;
			_warn(1,"Found two or more lookahead specifiers in a
			       row.",$line)
			and
			_hint("M <==
5	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11365	11467	
==>80-\x9F//d if 'A' eq chr(65);
  return undef if length $out > $Linearization_Limit;
  
  $out = $self-> <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	59952	60043	
==>ition, on failure in I<any> context, the C<$@> variable is set.
Accessing C<$@-E<gt>{error}> <==
5	/Users/nnunley/parrot/tools/build/c2str.pl	3215	3323	
==>x: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically from '$out <==
5	/Users/nnunley/parrot/tools/build/c2str.pl	1455	1560	
==>x: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically from '$ <==
5	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	929	1034	
==>x: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically from '$ <==
5	/Users/nnunley/parrot/tools/build/ops2c.pl	5250	5355	
==>x: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically from '$ <==
5	/Users/nnunley/parrot/tools/build/ops2pm.pl	6370	6475	
==>x: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically from '$ <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	37064	37164	
==>s program is free software; you can redistribute it and/or 
modify it under the same terms as Perl it <==
5	/Users/nnunley/parrot/lib/Test/More.pm	37473	37573	
==>s program is free software; you can redistribute it and/or 
modify it under the same terms as Perl it <==
5	/Users/nnunley/parrot/lib/Test/Simple.pm	6433	6533	
==>s program is free software; you can redistribute it and/or 
modify it under the same terms as Perl it <==
5	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16480	16579	
==>s program is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
5	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1694	1793	
==>s program is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	38996	39125	
==>ift;
    my $mv = shift;
    
    # Emit complete label.
    my $pir .= "COMPLETE:\n";

    # SRM post translation code
    $pir . <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926226	926347	
==>PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927696	927817	
==>PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929166	929287	
==>PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930637	930758	
==>PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925601	926020	
==>"ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1042,
                  "ARGS" => [
                              "i",
                              "s",
                              "i"
                            ],
                  "BO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501021	501277	
==>"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501760	502016	
==>"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502498	502754	
==>"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503237	503493	
==>"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	3386	3515	
==>}
sub is_sub           { return shift->is('sub');           }
sub is_unless        { return shift->is('unless');        }
sub is_u <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099287	1099404	
==>*= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n\tres = 1.0/res;\n    }\n    {{\@1}} = res;\n    {{+=4} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100485	1100602	
==>*= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n\tres = 1.0/res;\n    }\n    {{\@1}} = res;\n    {{+=4} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101683	1101800	
==>*= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n\tres = 1.0/res;\n    }\n    {{\@1}} = res;\n    {{+=4} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102882	1102999	
==>*= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n\tres = 1.0/res;\n    }\n    {{\@1}} = res;\n    {{+=4} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579321	579420	
==>terpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    re <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580626	580725	
==>terpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    re <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581931	582030	
==>terpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    re <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583237	583336	
==>terpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    re <==
5	/Users/nnunley/parrot/config/init/miniparrot.pm	1570	1754	
==>0,
        cc_hasjit          => '',
        TEMP_jit_o         => '',
        TEMP_exec_h        => '',
        TEMP_exec_o        => '',
        asmfun_o           => '',
        has_ <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2944	3057	
==>m = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we're maintaini <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4702	4815	
==>m = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we're maintaini <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1866	1979	
==>m = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we're maintaini <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3118	3231	
==>m = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we're maintaini <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	53845	53979	
==>_) ;
      $x;
    } elsif(ref($_) eq 'HASH') {
      my $hr = $_;
      $x = "{" . join(", ",
        map(pretty($_) . '=>' . pretty($ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381212	381311	
==>\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n  {{+=4} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382224	382323	
==>\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n  {{+=4} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383236	383335	
==>\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n  {{+=4} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384249	384348	
==>\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n  {{+=4} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256156	256407	
==>=> 298,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 740 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2} <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5649	5758	
==>t "\n"
PIR
	}

	return $pir;
}

# Pre and post store operation hooks.
sub pre_store($) {
	my $self = shift;
	m <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4491	4600	
==>t "\n"
PIR
	}

	return $pir;
}

# Pre and post store operation hooks.
sub pre_store($) {
	my $self = shift;
	m <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	4984	5084	
==>{POD_ERRORS_TIME} or 
		$self->modified_since($self->{POD_ERRORS_TIME}) )
	{
		my $checker = Pod::Sim <==
5	/Users/nnunley/parrot/tools/build/ops2c.pl	14522	14611	
==>>init_func_init1($base);
}

my $init_set_dispatch = "";
if ($trans->can("init_set_dispatch <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72711	72810	
==>_data({{\@2}}), name));\n  string_cstring_free(name);\n  if (p == NULLfunc) {\n      const char * er <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74313	74412	
==>_data({{\@2}}), name));\n  string_cstring_free(name);\n  if (p == NULLfunc) {\n      const char * er <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75915	76014	
==>_data({{\@2}}), name));\n  string_cstring_free(name);\n  if (p == NULLfunc) {\n      const char * er <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77518	77617	
==>_data({{\@2}}), name));\n  string_cstring_free(name);\n  if (p == NULLfunc) {\n      const char * er <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15020	15115	
==>is true" else print "Oops (flo)"

' Passing arrays (expect 12)
function arrfunc(x())
	print x(4) <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	9577	9709	
==>\.0-9]/s
        or $new_code =~ m/:[-\.0-9]/s;
            # The legal under-0x80 Name characters that 
            #  an XML Name s <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	10841	10973	
==>\.0-9]/s
        or $new_code =~ m/:[-\.0-9]/s;
            # The legal under-0x80 Name characters that 
            #  an XML Name s <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	22089	22200	
==>r <mark@twoshortplanks.com>

=cut

sub diag {
    my($self, @msgs) = @_;
    return unless @msgs;

    # Prevent <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	47749	47848	
==>print " _out to ", \$out, "\n";
  
  $mutor->($parser) if $mutor;

  $parser->parse_string_document( <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45513	45609	
==><skip:';
my $OPMK		= '\G\s*<(left|right)op:';
my $ENDDIRECTIVEMK	= '\G\s*>';
my $RESYNCMK		= '\G\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113914	114205	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114653	114944	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => " <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	21391	21497	
==>rn '' }
	],
	[#Rule 29
		 'range', 6,
sub
#line 151 "lib/Regex/Grammar.y"
{ return { min => $_[2], max => $ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	3036	3134	
==>$handler->start_element({ Name => 'block', Attributes => { kind => 'then' } });
  }

  $handler->st <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3800	3898	
==>$handler->start_element({ Name => 'block', Attributes => { kind => 'then' } });
  }

  $handler->st <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39096	39344	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39961	40209	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40808	41056	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41656	41904	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21307	21396	
==>$_tok)
		{'.($::RD_NO_TRACE?'':'
			Parse::RecDescent::_trace(q{<<Didn\'t match action>> ( <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18483	18583	
==>return = $self->_constant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$nod <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19196	19296	
==>return = $self->_constant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$nod <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19684	19784	
==>return = $self->_constant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$nod <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20173	20273	
==>return = $self->_constant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$nod <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20662	20762	
==>return = $self->_constant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$nod <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	12204	12322	
==>return "my \$$uid;";
}

sub output_call {
    my ($self, $name, $mode, $uid) = @_;
#    if ($mode) {
        return spl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714623	714717	
==>tring_length(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(int <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715546	715640	
==>tring_length(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(int <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722310	722404	
==>tring_length(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(int <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723339	723433	
==>tring_length(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(int <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633328	633563	
==>GS" => [
                              "p",
                              "ic",
                              "p"
                            ],
                  "BODY" => "#line 91 \"src/ops/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072127	1072258	
==>n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074312	1074443	
==>n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076497	1076628	
==>n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078683	1078814	
==>n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = <==
5	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11263	11365	
==>ing POD, la la la...
  $text = e2char($e_node->label);
  unless(defined $text) {
    print "Unknown E s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080374	1080464	
==>ne 145 \"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081439	1081529	
==>ne 145 \"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082504	1082594	
==>ne 145 \"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083570	1083660	
==>ne 145 \"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189297	189717	
==>S" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 225,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic"
                            ],
                  "BODY" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73071	73159	
==>rpreter, enum_class_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74673	74761	
==>rpreter, enum_class_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76275	76363	
==>rpreter, enum_class_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77878	77966	
==>rpreter, enum_class_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944249	944604	
==>"ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1062,
                  "ARGS" => [
                              "i",
                              "sc"
                            ],
                  "BODY" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072495	1072601	
==>( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074680	1074786	
==>( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076865	1076971	
==>( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079051	1079157	
==>( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597431	597607	
==>S|PARROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598477	598653	
==>S|PARROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599524	599700	
==>S|PARROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600599	600775	
==>S|PARROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42856	42955	
==>+;
}

sub new ($$)
{
	my $class = ref($_[0]) || $_[0];
	local $Parse::RecDescent::compiling = $_[2], <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926640	926956	
==>{\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928110	928426	
==>{\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929580	929896	
==>{\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931051	931367	
==>{\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	25679	25783	
==>////////////////////////////////////////
      $self->whine(
        $para->[1]{'start_line'},
        "= <==
5	/Users/nnunley/parrot/lib/Parrot/PMC.pm	1002	1107	
==>,
	Hash => 45,
	OrderedHash => 46,
	TQueue => 47,
	ParrotClass => 48,
	ParrotObject => 49,
	OS => 50,
	Fil <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4375	4489	
==>$self, $core) = @_;

    return "opcode_t * " .
        $self->core_prefix .
        "$core(opcode_t *cur_op, Parro <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2863	2977	
==>$self, $core) = @_;

    return "opcode_t * " .
        $self->core_prefix .
        "$core(opcode_t *cur_op, Parro <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4591	4693	
==>Pre and post branch operation hooks.
sub pre_branch($) {
	my $self = shift;
	my $pops = shift;
	my $reg <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3007	3109	
==>Pre and post branch operation hooks.
sub pre_branch($) {
	my $self = shift;
	my $pops = shift;
	my $reg <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2654	2756	
==>Pre and post branch operation hooks.
sub pre_branch($) {
	my $self = shift;
	my $pops = shift;
	my $reg <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099166	1099291	
==>n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100364	1100489	
==>n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101562	1101687	
==>n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102761	1102886	
==>n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2 <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2325	2421	
==>->type() eq "text" >>

=item $token->is_end

This is a shortcut for C<< $token->type() eq "end" > <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18945	19045	
==>);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self->_add_inst("DO <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19433	19533	
==>);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self->_add_inst("DO <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19921	20021	
==>);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self->_add_inst("DO <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20410	20510	
==>);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self->_add_inst("DO <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20899	20999	
==>);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self->_add_inst("DO <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1750	1852	
==>hook.
sub post_translation() {
	# Nothing to do.
	return "";
}

# Extra subroutines required for the ma <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	790	892	
==>hook.
sub post_translation() {
	# Nothing to do.
	return "";
}

# Extra subroutines required for the ma <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	547	649	
==>hook.
sub post_translation() {
	# Nothing to do.
	return "";
}

# Extra subroutines required for the ma <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4276	4377	
==>_;
	my(@drv);
	open(DRV,"<$fname") or die "Report this as a BUG: Cannot open $fname";
	while(<DRV>) <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4058	4156	
==>_;
	my(@drv);
	open(DRV,"<$fname") or die "Report this as a BUG: Cannot open $fname";
	while(<DRV>) <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27493	27599	
==>>{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$p <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29960	30066	
==>>{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$p <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33378	33484	
==>>{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$p <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34632	34738	
==>>{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$p <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37042	37148	
==>>{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$p <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253266	253563	
==>NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254128	254425	
==>NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254991	255288	
==>NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031000	1031283	
==>=> "sizeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1153,
                  "ARGS" <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	25916	26027	
==>num_class_$dynpmc != enum_class_default);
EOC
    }
    if (scalar @mmds) {
        $cout .= <<"EOC";
#define N_ <==
5	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	5171	5306	
==>lf->file_paths;
    
    if ( $recursive )
    {
        foreach my $dir ($self->directories)
        {
            next if defined $ign <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15466	15567	
==>' ', map { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair unary -, functions, etc...
		@stream=conv <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15828	15929	
==>' ', map { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair unary -, functions, etc...
		@stream=conv <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16355	16456	
==>' ', map { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair unary -, functions, etc...
		@stream=conv <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16979	17080	
==>' ', map { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair unary -, functions, etc...
		@stream=conv <==
5	/Users/nnunley/parrot/config/inter/encoding.pm	1064	1161	
==>c/Makefile
    (my $TEMP_encoding_o = $encoding_list) =~ s/\.c/\$(O)/g;

    my $TEMP_encoding_bui <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050142	1050238	
==>ar.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null cl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051176	1051272	
==>ar.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null cl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052210	1052306	
==>ar.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null cl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053245	1053341	
==>ar.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null cl <==
5	/Users/nnunley/parrot/config/inter/types.pm	391	497	
==>nfigure::Step::Base);

use Parrot::Configure::Step ':inter';

$description = 'Determining what types Parrot <==
5	/Users/nnunley/parrot/config/inter/charset.pm	360	453	
==>nfigure::Step::Base);

use Parrot::Configure::Step ':inter';

$description = 'Determining what <==
5	/Users/nnunley/parrot/config/inter/encoding.pm	365	458	
==>nfigure::Step::Base);

use Parrot::Configure::Step ':inter';

$description = 'Determining what <==
5	/Users/nnunley/parrot/config/inter/ops.pm	340	433	
==>nfigure::Step::Base);

use Parrot::Configure::Step ':inter';

$description = 'Determining what <==
5	/Users/nnunley/parrot/config/inter/progs.pm	479	572	
==>nfigure::Step::Base);

use Parrot::Configure::Step ':inter';

$description = 'Determining what <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492275	492540	
==>" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493035	493300	
==>" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499008	499273	
==>" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499770	500035	
==>" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	7768	7865	
==>l;
  $Test->skip_all($reason);

Skips all the tests, using the given $reason.  Exits immediately w <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83847	84120	
==>\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "comp <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84753	85026	
==>\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "comp <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85659	85932	
==>\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "comp <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009147	1009420	
==>\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "comp <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009911	1010184	
==>\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "comp <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	45995	46103	
==>= 'VerbatimFormatted';

  # Collapse adjacent text nodes, just for kicks.
  for( my $i = 2; $i > $#$p; $i++ ) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344196	344292	
==>y soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2}});\n  const char * c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345438	345534	
==>y soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2}});\n  const char * c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346680	346776	
==>y soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2}});\n  const char * c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347923	348019	
==>y soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2}});\n  const char * c <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9127	9220	
==>$thisparser, 1;
	':'') . ($parser->{_check}{thiscolumn}?'
	my $thiscolumn;
	tie $thiscolumn, q <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332724	332841	
==>is generates ugly warnings WRT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334002	334119	
==>is generates ugly warnings WRT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335280	335397	
==>is generates ugly warnings WRT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336559	336676	
==>is generates ugly warnings WRT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABE <==
5	/Users/nnunley/parrot/examples/benchmarks/arriter.pl	1007	1101	
==>DE'};
print $ha{'BBBBB'};
print $ha{'CCCCC'};
print $ha{'HHHHH'};
print $ha{'IIIII'};
print "\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43949	44259	
==>shmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 56,
                  "ARGS" => [
                              "ic"
                            ], <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13154	13373	
==>INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13998	14217	
==>INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14702	14921	
==>INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	15389	15608	
==>INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	491215	491422	
==>inline",
                  "CODE" => 563,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 539 \"src/ops/math.ops\"\n  {{\@1}}+ <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3159	3254	
==>PES}[stack_depth]

# Do we have anything on the lazy moves stack?
${ITEMP0} = elements lazy_move <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4917	5012	
==>PES}[stack_depth]

# Do we have anything on the lazy moves stack?
${ITEMP0} = elements lazy_move <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7844	7939	
==>PES}[stack_depth]

# Do we have anything on the lazy moves stack?
${ITEMP0} = elements lazy_move <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8700	8795	
==>PES}[stack_depth]

# Do we have anything on the lazy moves stack?
${ITEMP0} = elements lazy_move <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71935	72270	
==>JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73536	73871	
==>JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75138	75473	
==>JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76740	77075	
==>JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1232	1341	
==>'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block,

    KIND  => $kind,
    IDE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610649	610944	
==>ute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611551	611846	
==>ute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612454	612749	
==>ute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613360	613655	
==>ute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	1314	1406	
==>esserit Litany Against Fear
	# Compiler version @{[VERSION]}@{[ grep $_=sprintf("\n\t#%22s %s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926353	926512	
==>2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}});\n                              break;\n    case ST <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927823	927982	
==>2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}});\n                              break;\n    case ST <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929293	929452	
==>2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}});\n                              break;\n    case ST <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930764	930923	
==>2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}});\n                              break;\n    case ST <==
5	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	4739	4849	
==>ILE}=~s/, $//;
	$self->{FILE}=~s/, $//;
    }

    return $self;
}

=back

=head2 Instance Methods

=over 4

=i <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	9924	10057	
==>lastback ]),
               @R_body
              );
    return ($R_back, @ops);
}

sub _translate_classpieces {
    my ($pieces) = @_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858563	858661	
==>@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859567	859665	
==>@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860571	860669	
==>@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861576	861674	
==>@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\ <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12371	12481	
==>}};
	return 0;
}

sub leftmostsubrule($)
{
	my $self = shift;

	if ( $#{$self->{"items"}} >= 0 )
	{
		my $subru <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3361	3451	
==>to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${S <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5123	5213	
==>to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${S <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8035	8125	
==>to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${S <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8892	8982	
==>to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${S <==
5	/Users/nnunley/parrot/tools/dev/pbc_header.pl	905	1021	
==>lose IN;

    my $len = 10;
    my $fingerprint = md5 join "\n", grep { ! /^#/ } @lines;
    return substr $fingerpri <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950691	951014	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951651	951974	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952611	952934	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  " <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	19689	19803	
==>> 'lt',
	'<=' => 'le',
	'is' => 'eq_addr',
	'is not' => 'ne_addr',
    );
    my $op = $rev_map{$c};
    my ($opcod <==
5	/Users/nnunley/parrot/tools/build/pmc2c.pl	4001	4112	
==>hat corresponds to a dynamic library
    ref      : PMC that references another PMC
    string   : PMC that beha <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4839	4941	
==>y $block = $self->current_block;

      my $ident = Jako::Construct::Expression::Value::Identifier->new <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11330	11432	
==>y $block = $self->current_block;

      my $ident = Jako::Construct::Expression::Value::Identifier->new <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11877	11979	
==>y $block = $self->current_block;

      my $ident = Jako::Construct::Expression::Value::Identifier->new <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12420	12522	
==>y $block = $self->current_block;

      my $ident = Jako::Construct::Expression::Value::Identifier->new <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22634	22735	
==>y $block = $self->current_block;
      my $ident = Jako::Construct::Expression::Value::Identifier->new <==
5	/Users/nnunley/parrot/lib/Parrot/Test.pm	9713	9827	
==>ings {
    my ( $text ) = @_;

    $text =~ s/\cM\cJ/\n/g;
}

sub path_to_parrot {

    my $path = $INC{'Parrot/Con <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377541	377627	
==>line 432 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(interpreter, {{\@2}}, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378425	378511	
==>line 432 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(interpreter, {{\@2}}, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379309	379395	
==>line 432 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(interpreter, {{\@2}}, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380194	380280	
==>line 432 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(interpreter, {{\@2}}, <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	427	531	
==>->_export_to_level( 2, __PACKAGE__ );
}

my $count;

foreach my $meth ( qw(is isnt like) ) {
    no stric <==
5	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	344	448	
==>->_export_to_level( 2, __PACKAGE__ );
}

my $count;

foreach my $meth ( qw(is isnt like) ) {
    no stric <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111272	111362	
==>bit.ops\"\n  {{\@1}} = string_bitwise_or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112164	112254	
==>bit.ops\"\n  {{\@1}} = string_bitwise_or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113056	113146	
==>bit.ops\"\n  {{\@1}} = string_bitwise_or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\ <==
5	/Users/nnunley/parrot/config/gen/makefiles.pm	981	1089	
==>nf->data->get('cpuarch') =~ /sun4|sparc64/) {

        # CFLAGS entries must be left-aligned.
        print C <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27603	27706	
==>.= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30070	30173	
==>.= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33488	33591	
==>.= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34742	34845	
==>.= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37152	37255	
==>.= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568744	569042	
==>=> 0,
                  "NAME" => "isa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569636	569934	
==>=> 0,
                  "NAME" => "isa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570529	570827	
==>=> 0,
                  "NAME" => "isa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571483	571781	
==>=> 0,
                  "NAME" => "isa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	4999	5096	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub new {
  # takes no parameters
  my $class = ref($_[0]) || <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381279	381589	
==>(32bit)\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382291	382601	
==>(32bit)\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383303	383613	
==>(32bit)\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384316	384626	
==>(32bit)\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	11866	11967	
==>f->_generate($_);
    $self->_add_inst(''         ,'eq' ,[$temp,0,"DONE_$label"]);
    $self->_restore <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	1261	1381	
==>rray=0;
		if ($syms[CURR] eq "(") {
			$array=1;
			while($syms[CURR] ne ")") {
				feedme;
			}
			feedme;
		}
		$stype= <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067032	1067136	
==>\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( (FLOATVA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068218	1068322	
==>\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( (FLOATVA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069404	1069508	
==>\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( (FLOATVA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070591	1070695	
==>\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( (FLOATVA <==
5	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	10001	10097	
==>s new features are
added to Pugs, new test functions will be defined to facilitate the
testing of <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16357	16442	
==>$x =~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuv <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16699	16784	
==>$x =~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuv <==
5	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9900	9985	
==>$x =~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuv <==
5	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10143	10228	
==>$x =~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuv <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062338	1062539	
==>[
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 246 \"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root_nam <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404652	404761	
==>}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405564	405673	
==>}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406476	406585	
==>}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407389	407498	
==>}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072903	1073245	
==>= -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075088	1075430	
==>= -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077273	1077615	
==>= -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079459	1079801	
==>= -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	31572	31697	
==>[ '<tmp>', "save rule $name start" ]),
                     aop('rule_pass', [ $name ]),
            $back => aop('rule_fail', <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92693	92950	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93472	93729	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94252	94509	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95144	95401	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96037	96294	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080561	1080688	
==>1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LAB <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081626	1081753	
==>1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LAB <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082691	1082818	
==>1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LAB <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083757	1083884	
==>1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LAB <==
5	/Users/nnunley/parrot/config/auto/gcc.pm	4408	4533	
==>t of -Wall
            # -Wfloat-equal may not be what we want
            # We shouldn't be using __packed__, but I doubt -Wp <==
5	/Users/nnunley/parrot/config/auto/sizes.pm	2566	2683	
==>le');
        print <<'END';

Can't find a float type with size 4, conversion ops might fail!

END
    }
    if ($resu <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800620	800707	
==>"#line 467 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed(interpreter, {{\@1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801524	801611	
==>"#line 467 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed(interpreter, {{\@1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802428	802515	
==>"#line 467 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed(interpreter, {{\@1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803333	803420	
==>"#line 467 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed(interpreter, {{\@1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024319	1024608	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025075	1025364	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025832	1026121	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026588	1026877	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAG <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	407	512	
==>eturn $self;
}

sub init {
}

sub output_header {
}

sub output_rule {
    my ($self, $fh, $subname, $rule <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584494	584587	
==>code_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585569	585662	
==>code_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598010	598103	
==>code_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599057	599150	
==>code_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	23340	23476	
==>new %s node between %s and %s\n",
           $dynasty[-1], $treelet->[0], $treelet->[$i][0], 
          ;
          
          #$nugget = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586887	586999	
==>\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588073	588185	
==>\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589259	589371	
==>\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590446	590558	
==>\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926054	926178	
==>g.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927524	927648	
==>g.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928994	929118	
==>g.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930465	930589	
==>g.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              b <==
5	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	13823	13913	
==>d>">&raquo;</span></td>
	    <td><a style="text-decoration: none" href="<tmpl_var name=link <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65043	65178	
==>scent::Repetition($name,"$1..$2",$1,$2,
										   $lookahead,$line,
										   $self,
										   $matchrule,
										   $argcod <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	570	660	
==>nless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Type is not!" if defined <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	529	617	
==>Pod::Simple::PullParser

=head1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head1 DESCRI <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	948	1036	
==>Pod::Simple::PullParser

=head1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head1 DESCRI <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	435	523	
==>Pod::Simple::PullParser

=head1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head1 DESCRI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848311	848603	
==>1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849091	849383	
==>1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  " <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2212	2306	
==>xpression::Value::Identifier')) {
    my $right_sym = $block->find_symbol($right->value);
    $ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2170	2264	
==>xpression::Value::Identifier')) {
    my $right_sym = $block->find_symbol($right->value);
    $ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2092	2186	
==>xpression::Value::Identifier')) {
    my $right_sym = $block->find_symbol($right->value);
    $ <==
5	/Users/nnunley/parrot/lib/Class/Struct.pm	7009	7125	
==>1 SYNOPSIS

    use Class::Struct;
            # declare struct, based on array:
    struct( CLASS_NAME => [ ELEMENT_ <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3101	3197	
==>Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have anythin <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4859	4955	
==>Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have anythin <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7786	7882	
==>Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have anythin <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8642	8738	
==>Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have anythin <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8412	8521	
==>b post_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If destination is a register th <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6232	6341	
==>b post_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If destination is a register th <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5147	5256	
==>b post_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If destination is a register th <==
5	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3808	3906	
==>es %cores) {
		partial_link({}, $_ . "_ops$core_suffix") foreach (@oplibs);
	}
} 
elsif ($mode eq ' <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	52509	52605	
==>ropriately after it matches.

Hence, the aim of of a call to C<extract_multiple> in a list contex <==
5	/Users/nnunley/parrot/tools/build/pmc2c.pl	16137	16237	
==>l of the 'default' methods
from the F<vtable.dump>.

=cut

sub add_defaulted {
    my ($class, $vt) = <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3071	3170	
==>$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_d <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4829	4928	
==>$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_d <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1993	2092	
==>$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_d <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3245	3344	
==>$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_d <==
5	/Users/nnunley/parrot/tools/build/dynclasses.pl	5210	5346	
==>orms
        if ($^O eq 'hpux' or $^O eq 'cygwin') {
            chmod 0755, "$dest/$_$LOAD_EXT";
        }

    }
}
else {
    die "inva <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	5421	5557	
==>orms
        if ($^O eq 'hpux' or $^O eq 'cygwin') {
            chmod 0755, "$dest/$_$LOAD_EXT";
        }

    }
}
else {
    die "inva <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549394	549517	
==>MP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ":o <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550694	550817	
==>MP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ":o <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551995	552118	
==>MP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ":o <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374040	374146	
==>{{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374923	375029	
==>{{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375806	375912	
==>{{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376690	376796	
==>{{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	42454	42550	
==>t('', 'set', [$return,'P5']) unless $return eq 'P5';
  $self->_restore_set;

  $return =~ /(\w)(\ <==
5	/Users/nnunley/parrot/lib/Test/More.pm	8416	8522	
==>rue or false!

  # XXX BAD!
  is( exists $brooklyn{tree}, 1, 'A tree grows in Brooklyn' );

This does not c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586620	586707	
==>line 314 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587806	587893	
==>line 314 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588992	589079	
==>line 314 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590179	590266	
==>line 314 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606931	607104	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607834	608007	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608738	608911	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609645	609818	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19781	19871	
==>n\nParagraph...\n" section, assuming that that section
isn't terribly long.

=item $version <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	5461	5558	
==>cessary transcoding:
    $self->{'_transcoder'} && $self->{'_transcoder'}->($line);

    # HERE WE <==
5	/Users/nnunley/parrot/tools/dev/nm.pl	7882	7995	
==>$uninit) {
			    warn "$.:$_: both init and uninit?\n";
			} elsif (!$init && !$uninit) {
			    warn "$.:$_: nei <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854990	855099	
==>.ops\"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855879	855988	
==>.ops\"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856768	856877	
==>.ops\"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857658	857767	
==>.ops\"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27563	27664	
==>e $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30030	30131	
==>e $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33448	33549	
==>e $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34702	34803	
==>e $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37112	37213	
==>e $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949956	950253	
==>0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950915	951212	
==>0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951875	952172	
==>0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952835	953132	
==>0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function <==
5	/Users/nnunley/parrot/config/gen/platform.pm	2001	2138	
==>";
        }

        if (-e $header_file) {
            local $/ = undef;
            print("\t$header_file\n") if defined $verbose && $v <==
5	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	959	1071	
==>,
  
  'head1' => "\n<h1>",  # And also stick in an <a name="...">
  'head2' => "\n<h2>",  #  ''
  'head3' => "\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714635	714730	
==>(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715558	715653	
==>(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722322	722417	
==>(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723351	723446	
==>(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492848	493119	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493609	493880	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499583	499854	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core", <==
5	/Users/nnunley/parrot/tools/build/dynclasses.pl	5595	5710	
==>y ( %group_files, %group_libs, %pmc_group, %pmc_libs );
    for my $pmc (@pmcs) {
        our $class;
        requir <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	5806	5921	
==>y ( %group_files, %group_libs, %pmc_group, %pmc_libs );
    for my $pmc (@pmcs) {
        our $class;
        requir <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	577	679	
==>ft;
  my ($file, $line) = @_;

  return $class->new($file, $line, 'bof', undef, '__BOF__');
}

sub new_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712664	712752	
==>r_index(interpreter, s,\n\tconst_string(interpreter, \"e\"), 0) == -1)\n    PIO_puts(inte <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713771	713859	
==>r_index(interpreter, s,\n\tconst_string(interpreter, \"e\"), 0) == -1)\n    PIO_puts(inte <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720131	720219	
==>r_index(interpreter, s,\n\tconst_string(interpreter, \"e\"), 0) == -1)\n    PIO_puts(inte <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721331	721419	
==>r_index(interpreter, s,\n\tconst_string(interpreter, \"e\"), 0) == -1)\n    PIO_puts(inte <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117213	117517	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_cor <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	119544	119848	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_cor <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120399	120703	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_cor <==
5	/Users/nnunley/parrot/config/init/hints/cygwin.pm	392	502	
==>ibs =~ s/-lutil\b//g;

    my $build_dir = $conf->data->get('build_dir');
    $build_dir =~ s/ /\\ /g;

    # A <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24385	24495	
==>e();
				goto &parse_dim;			
			}
		} elsif ($syms[CURR] eq "shared") {
			print "WARNING: SHARED keyword curre <==
5	/Users/nnunley/parrot/tools/build/pmc2c.pl	14649	14757	
==>$meth = $entry->{meth};
        next if exists $self->{super}{$meth};
        foreach my $pname (@{ $self->{p <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579318	579413	
==>(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580623	580718	
==>(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581928	582023	
==>(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583234	583329	
==>(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\ <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	31393	31488	
==>how your tests ran without a plan!');
    _whoa($self->{Curr_Test} != @{ $self->{Test_Results} } <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960932	961021	
==>BODY" => "#line 595 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961894	961983	
==>BODY" => "#line 595 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962856	962945	
==>BODY" => "#line 595 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963819	963908	
==>BODY" => "#line 595 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18557	18652	
==>dren}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_generate($node->{children} <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19270	19365	
==>dren}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_generate($node->{children} <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19758	19853	
==>dren}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_generate($node->{children} <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20247	20342	
==>dren}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_generate($node->{children} <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20736	20831	
==>dren}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_generate($node->{children} <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	703	796	
==>'s version_tag_comment() happy.
our $VERSION = '1.0';

use Parrot::Docs::HTMLPage;

=item C<do <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797043	797131	
==>@1}}->vtable->set_number_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797947	798035	
==>@1}}->vtable->set_number_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798851	798939	
==>@1}}->vtable->set_number_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799756	799844	
==>@1}}->vtable->set_number_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n", <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	14270	14378	
==>ilmsg q{Mismatched closing bracket at "} .
					     substr($$textref,pos($$textref),20) .
					     qq{...". <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8005	8105	
==>identifier name!"  unless defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->fi <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8652	8752	
==>identifier name!"  unless defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->fi <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9320	9420	
==>identifier name!"  unless defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->fi <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9989	10089	
==>identifier name!"  unless defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->fi <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7244	7360	
==>++$self->{'pod_para_count'};
        
        $self->_ponder_paragraph_buffer();
         # by now it's safe to consi <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7862	7973	
==>++$self->{'pod_para_count'};
          $self->_ponder_paragraph_buffer();
           # by now it's safe to consi <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	8219	8326	
==>++$self->{'pod_para_count'};
        $self->_ponder_paragraph_buffer();
         # by now it's safe to consi <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3189	3293	
==>est);
}

sub output_ge {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_test('>=', $val1, $v <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	5898	6001	
==>++$self->{'pod_para_count'};
      $self->_ponder_paragraph_buffer();
       # by now it's safe to consi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947194	947450	
==>d\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948096	948352	
==>d\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957643	957899	
==>d\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958548	958804	
==>d\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	466	573	
==>itions of R
# group : Capture a group
# scan : Scan through input until R matches
# atend : At the end of th <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27970	28072	
==>').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::Rec <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30044	30146	
==>').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::Rec <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32245	32347	
==>').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::Rec <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34841	34943	
==>').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::Rec <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41951	42053	
==>').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse::Rec <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	22336	22457	
==>temp('P');
    # TODO make op or function
    print <<EOC;
        $s = classname $cl->[1]
	$i = isa $ob, $s
	$b = new Boo <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044673	1044763	
==>DY" => "#line 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interpreter, {{\@1}}, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045567	1045657	
==>DY" => "#line 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interpreter, {{\@1}}, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046461	1046551	
==>DY" => "#line 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interpreter, {{\@1}}, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047356	1047446	
==>DY" => "#line 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interpreter, {{\@1}}, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572380	572553	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573289	573462	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574199	574372	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575002	575175	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARG <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	26074	26205	
==>ve it like "
        . $fallbacks_one
      );
      return;
    }
    
    unless($elements_one =~ m/^[^ ,]+(,[^ ,]+)*$/s) { # like <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947201	947477	
==>\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948103	948379	
==>\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957650	957926	
==>\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958555	958831	
==>\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	1830	1933	
==>pe (reverse keys %regs) {
    for (my $count=31; $count>=0; $count--) {
      $self->_add_inst ('','rest <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	972867	973065	
==>",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cc <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973996	974194	
==>",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cc <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975125	975323	
==>",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cc <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976255	976453	
==>",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cc <==
5	/Users/nnunley/parrot/lib/Parrot/Op.pm	2924	3061	
==>$labels ],
        FLAGS   => $flags,
        BODY => '',
        JUMP => 0,
    };

    return bless $self, $class;
}

=back

=head2 Inst <==
5	/Users/nnunley/parrot/tools/build/pmc2c.pl	3274	3368	
==>tree.

=item C<noinit>

Used with C<abstract>: No C<class_init> code is generated.

=item C<con <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867314	867620	
==>, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868280	868586	
==>, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869246	869552	
==>, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870213	870519	
==>, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
5	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3887	3982	
==>nd similar) symbols to
the outside world.  Be careful to only scan Parrot's defines, not
system' <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16376	16481	
==>:Value->new($block, $self->forth);
      my $op    = $self->forth->text;
      my $right = Jako::Construct <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17147	17252	
==>:Value->new($block, $self->forth);
      my $op    = $self->forth->text;
      my $right = Jako::Construct <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17952	18057	
==>:Value->new($block, $self->forth);
      my $op    = $self->forth->text;
      my $right = Jako::Construct <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5263	5359	
==>ght;

  $handler->start_element({ Name => 'assign' });
  $dest->sax($handler);
  $handler->start_ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3326	3422	
==>ght;

  $handler->start_element({ Name => 'assign' });
  $dest->sax($handler);
  $handler->start_ <==
5	/Users/nnunley/parrot/config/auto/inline.pm	947	1127	
==>auto/inline/test_2.in');
            eval { cc_build(); };
            if (!$@) {
                $test = cc_run();
                chomp $test if $test;
            }
            c <==
5	/Users/nnunley/parrot/lib/Parrot/Config.pm	1988	2072	
==>-unused -Wsign-compare -Wformat-nonliteral -Wformat-security -Wpacked -Wdisabled-opti <==
5	/Users/nnunley/parrot/tools/build/dynclasses.pl	1308	1392	
==>-unused -Wsign-compare -Wformat-nonliteral -Wformat-security -Wpacked -Wdisabled-opti <==
5	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1353	1437	
==>-unused -Wsign-compare -Wformat-nonliteral -Wformat-security -Wpacked -Wdisabled-opti <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	1357	1441	
==>-unused -Wsign-compare -Wformat-nonliteral -Wformat-security -Wpacked -Wdisabled-opti <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360607	360816	
==>YPE" => "function",
                  "CODE" => 422,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 258 \"src/ops/io.ops\"\n  P <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088428	1088847	
==>GDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1207,
                  "ARGS" => [
                              "p",
                              "p",
                              "k"
                            ],
                  "BODY" <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8110	8237	
==>$fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must alwa <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8892	9019	
==>$fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must alwa <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7763	7890	
==>$fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must alwa <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8552	8679	
==>$fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must alwa <==
5	/Users/nnunley/parrot/Configure.pl	6970	7090	
==>ype)          Determine the type of garbage collection
                        type=(gc|libc|malloc|malloc-trace) default <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	68682	68858	
==>interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	69123	69299	
==>interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	816303	816479	
==>interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	816746	816922	
==>interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	817189	817365	
==>interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30605	30714	
==>E <<SCOPYDIS;
	#
	# Structure create dispatch routine
	# Call with S0 set to the type
	# Dest returned in P0
S <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	6397	6499	
==>lways optimal. But
# they should do a pretty decent job of making things fail early if
# you get too cl <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6542	6636	
==>op_type_state[${ITEMP0}] = ${STYPES}
    prop_stack_depth[${ITEMP0}] = stack_depth
    goto POS <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4480	4574	
==>op_type_state[${ITEMP0}] = ${STYPES}
    prop_stack_depth[${ITEMP0}] = stack_depth
    goto POS <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	26861	26955	
==>ions of the specified functions
 # or regular expressions

	@extracted = extract_multiple($text <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6223	6309	
==>op_type_state[${ITEMP0}] = ${STYPES}
prop_stack_depth[${ITEMP0}] = stack_depth
goto POS <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4161	4247	
==>op_type_state[${ITEMP0}] = ${STYPES}
prop_stack_depth[${ITEMP0}] = stack_depth
goto POS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130770	131087	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131624	131941	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132479	132796	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1858	1951	
==>t_over_number  { ++$_[0]{'Indent'} }
sub start_over_text    { ++$_[0]{'Indent'} }
sub start_ov <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1426	1519	
==>t_over_number  { ++$_[0]{'Indent'} }
sub start_over_text    { ++$_[0]{'Indent'} }
sub start_ov <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9395	9541	
==>$dbgerror;
#DBG>		};

            ++$$nberror;

        };

			$$errstatus == 3	#The next token is not valid: discard it
		and	do {
				$$ <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8974	9111	
==>$dbgerror;
#DBG>		};

            ++$$nberror;

        };

			$$errstatus == 3	#The next token is not valid: discard it
		and	do {
				$$ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514090	514180	
==>DY" => "#line 708 \"src/ops/math.ops\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514970	515060	
==>DY" => "#line 708 \"src/ops/math.ops\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515850	515940	
==>DY" => "#line 708 \"src/ops/math.ops\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451676	451968	
==>2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "F <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452415	452707	
==>2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "F <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453153	453445	
==>2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "F <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453892	454184	
==>2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "F <==
5	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	1279	1423	
==>G_ARGS} || q{};
        my @test_prog;
        if ( $lua_test eq 'lua' ) {
            @test_prog = (
                "$ENV{PARROT_LUA_TEST_P <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133222	133478	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134002	134258	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134783	135039	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135676	135932	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136570	136826	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
5	/Users/nnunley/parrot/lib/Parrot/Test.pm	5973	6078	
==>in

For example:

    # equivalent to "cd some_dir && make test"
    run_command("make test", CD => "some_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54886	55161	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55646	55921	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56407	56682	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57169	57444	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57930	58205	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inter <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	23562	23671	
==>s unless defined $firstpos;
			$lastpos = length $$textref;
		}
		last;
	}

	pos $$textref = $lastpos;
	return <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099216	1099337	
==>n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100414	1100535	
==>n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101612	1101733	
==>n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102811	1102932	
==>n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	3590	3691	
==>pe block.
#

sub pop_block
{
  my $self = shift;

  $self->INTERNAL_ERROR("Attempt to pop file-scope b <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	24956	25076	
==>";
			$arg_name = "I_ARG_$arg_num";
		}

        # tmethod
		elsif (/^tmethod$/) {
			$out =  "    \${I_ARG_$arg_num} = b <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30796	30896	
==>st);
		$pir .= "### post_load\n";
		$pir .= sub_meta($post_load, $mv, "post_load for rule $rule->{'na <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293419	293510	
==>45 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294295	294386	
==>45 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295171	295262	
==>45 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+ <==
5	/Users/nnunley/parrot/config/auto/cgoto.pm	525	637	
==>ot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $se <==
5	/Users/nnunley/parrot/config/auto/headers.pm	460	572	
==>ot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $se <==
5	/Users/nnunley/parrot/config/gen/cpu.pm	523	635	
==>ot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $se <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957543	957637	
==>eter, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\"encoding '%Ss' not <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958448	958542	
==>eter, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\"encoding '%Ss' not <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175364	175642	
==>,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176267	176545	
==>,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177171	177449	
==>,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178075	178353	
==>,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178980	179258	
==>,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":b <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	35031	35156	
==>>{Curr_Test}.
FAIL

            _my_exit( 255 ) && return;
        }

        _my_exit( $num_failed <= 254 ? $num_failed : 254 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591578	591668	
==>eal_exception(interpreter, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\", name);\n  } <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592788	592878	
==>eal_exception(interpreter, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\", name);\n  } <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593998	594088	
==>eal_exception(interpreter, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\", name);\n  } <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595209	595299	
==>eal_exception(interpreter, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\", name);\n  } <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4298	4408	
==>om;

sub minlen { 1 }
sub maxlen { 1 }
sub dfa_safe { 1 }
sub hasback { 1 }

# Sequences of regexes like RS
pac <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	56823	56923	
==>lookahead,$line,"<commit>");
				$prod and $prod->additem($item)
				      or  _no_rule("<commit>",$l <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1970	2066	
==>0]{'Indent'} }

sub   end_over_bullet  { --$_[0]{'Indent'} }
sub   end_over_number  { --$_[0]{'In <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1538	1634	
==>0]{'Indent'} }

sub   end_over_bullet  { --$_[0]{'Indent'} }
sub   end_over_number  { --$_[0]{'In <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	51244	51332	
==>s C<extract_codeblock($text, '{}E<lt>E<gt>')> to extract the code
within the C<E<lt>defer <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766622	766862	
==>\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767475	767715	
==>\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768328	768568	
==>\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769182	769422	
==>\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	857	964	
==>e ['']

END_PIR

my %static_cmds = map { $_ => 1 } @static_cmds;
for my $cmd (@dynamic_cmds) {
    # skip if <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926303	926429	
==>se STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927773	927899	
==>se STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929243	929369	
==>se STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930714	930840	
==>se STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{ <==
5	/Users/nnunley/parrot/lib/Test/More.pm	20452	20543	
==>::Harness interprets as skipped, but passing, tests.

It's important that $how_many accurate <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494350	494607	
==>ath.ops\"\n  {{\@1}} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495218	495475	
==>ath.ops\"\n  {{\@1}} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496086	496343	
==>ath.ops\"\n  {{\@1}} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	8146	8312	
==>oup end' ]),
                        aop('setend', [ $group, '<tmp>' ] ),
                        aop('popint', [ '<tmp>', 'group start' ]),
                        ao <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	6609	6697	
==>generated automatically by tools/build/nativecall.pl
 * from definitions in @$definitions <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854401	854718	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855289	855606	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856178	856495	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857067	857384	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/lib/Parrot/PMC.pm	972	1075	
==>Array => 43,
	MultiArray => 44,
	Hash => 45,
	OrderedHash => 46,
	TQueue => 47,
	ParrotClass => 48,
	Par <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480831	481143	
==>}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481834	482146	
==>}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482837	483149	
==>}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483835	484147	
==>}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484834	485146	
==>}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381290	381601	
==>\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382302	382613	
==>\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383314	383625	
==>\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384327	384638	
==>\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	6025	6154	
==>efined $min) || ($min > $len);
    }
    return $min || 0;
}

sub maxlen {
    my $op = shift;
    my $max = 0;
    foreach (@{ $o <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	8298	8387	
==>{INS} = concat ${DEST0}
${INS} = concat "\n"
post_call_NO_RETURN_${CURIC}:

POST_CALL_END_ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18424	18532	
==>e) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19137	19245	
==>e) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19625	19733	
==>e) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20114	20222	
==>e) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20603	20711	
==>e) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27491	27593	
==>e->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else { <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29958	30060	
==>e->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else { <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33376	33478	
==>e->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else { <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34630	34732	
==>e->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else { <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37040	37142	
==>e->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else { <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4910	5014	
==>e C<goto OFFSET($offset)> macro in an ops file into the
relevant C code.

=cut

sub goto_offset 
{
    my <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1855	1958	
==>e C<goto OFFSET($offset)> macro in an ops file into the
relevant C code.

=cut

sub goto_offset
{
    my <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2504	2607	
==>e C<goto OFFSET($offset)> macro in an ops file into the
relevant C code.

=cut

sub goto_offset
{
    my <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2223	2326	
==>e C<goto OFFSET($offset)> macro in an ops file into the
relevant C code.

=cut

sub goto_offset
{
    my <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2184	2287	
==>e C<goto OFFSET($offset)> macro in an ops file into the
relevant C code.

=cut

sub goto_offset
{
    my <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	1619	1741	
==>Termination
	# ###################

SHUTDOWN
}

use vars qw( %functions );
use vars qw( %usertypes );
use vars qw( $funcnam <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	15077	15187	
==>H_START

    # Emit code to get the .NET exception object and check if it's of the type that
    # is accepted. <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3245	3341	
==>e"
end sub
function foo$
	foo$="Right one"
	exit function
	foo$="Wrong one"
end function
call mys <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17212	17308	
==>e"
end sub
function foo$
	foo$="Right one"
	exit function
	foo$="Wrong one"
end function
call mys <==
5	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	10005	10090	
==>: 8.3 name collision with $files_in_dir_8dot3{$dirname}{$filename_8dot3} ($filename_8d <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949949	950248	
==>MP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950908	951207	
==>MP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951868	952167	
==>MP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952828	953127	
==>MP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	273	370	
==>.\n";
}

# Pre and post translation hooks.
sub pre_translation {
	die "pre_translation not impleme <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9557	9807	
==>t2,
                    );
                    push @opcodes, new KeyedGetOp(
                        $parser,
                        'result' => $result2,
                        'arg1'   => $result,
                        'arg2'   => $key->[ <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11342	11587	
==>t2,
                        );
                        push @opcodes, new KeyedGetOp( $parser,
                            'result' => $result2,
                            'arg1'   => $result,
                            'arg2'   => $key->[ <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12854	13079	
==>t2,
                    );
                    push @opcodes, new KeyedGetOp( $parser,
                        'result' => $result2,
                        'arg1'   => $result,
                        'arg2'   => $key->[ <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8517	8702	
==>t2,
            );
            push @opcodes, new KeyedGetOp( $parser,
                'result' => $result2,
                'arg1'   => $result,
                'arg2'   => $key->[ <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17723	17888	
==>t2,
        );
        push @opcodes, new KeyedGetOp( $parser,
            'result' => $result2,
            'arg1'   => $result,
            'arg2'   => $key->[ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926348	926507	
==>({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}});\n                              break;\n    ca <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927818	927977	
==>({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}});\n                              break;\n    ca <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929288	929447	
==>({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}});\n                              break;\n    ca <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930759	930918	
==>({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}});\n                              break;\n    ca <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	559	672	
==>k.
#

sub new {
    my ($proto, %options) = @_;
    my $self = bless \%options, (ref($proto) || $proto);
    $self <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14158	14253	
==>NE_$label"]);
    $self->_add_inst ("FAIL_$label", 'set', [$return,0]);
    $self->_add_inst ("D <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712311	712405	
==>n.ops\"\n  PMC * const io = PIO_STDOUT(interpreter);\n  STRING *s;\n  if (PIO_softspace(interpr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713418	713512	
==>n.ops\"\n  PMC * const io = PIO_STDOUT(interpreter);\n  STRING *s;\n  if (PIO_softspace(interpr <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	17810	17903	
==>tempos[$#itempos]{'column'}{'to'} = $prevcolumn;
	}
}

sub code($$$$)
{
	my ($self,$namespace, <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16426	16517	
==>NE_$label"]);
  $self->_add_inst ("FAIL_$label", 'set', [$return,0]);
  $self->_add_inst ("D <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857931	858106	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858934	859109	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859938	860113	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860942	861117	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [ <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	42444	42587	
==>" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"," => 195,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324769	325044	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325562	325837	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326352	326627	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327153	327428	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327955	328230	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572431	572694	
==>"JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TY <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573340	573603	
==>"JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TY <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574250	574513	
==>"JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TY <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575053	575316	
==>"JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TY <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	4738	4839	
==>if (($min == 0) && (!defined($max) || ($max == -1))) {
        return $self->rewrite_star($op, $R, $gr <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3091	3191	
==><'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have a <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4849	4949	
==><'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have a <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7777	7876	
==><'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have a <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8633	8732	
==><'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have a <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1577	1673	
==>n array
C<opcode_t>, but the prederef runops core uses an array of C<void*> to
do its clever tric <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16060	16268	
==>),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16832	17040	
==>),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	17606	17814	
==>),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18401	18609	
==>),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	1241	1348	
==>name
of the original source F<*.pmc> file.

=cut

sub dont_edit {
    my ($pmcfile) = @_;

    return <<"EOC <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	7057	7151	
==>{$seg}->{code}},<<YNOTX;
@codey	noop			# Broke!
	_screen_locate($resulty)
YNOTX
	} elsif (@code <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909705	910002	
==>ex",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1025 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352325	352525	
==>rpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352983	353183	
==>rpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358010	358210	
==>rpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358674	358874	
==>rpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20595	20711	
==>" if $type[CURR] eq "COMM";
				feedme;
			}
			$sourceline++;
		}
		feedme;   # Collect the "type"
		$usertypes{$typ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786082	786191	
==>],
                  "BODY" => "#line 417 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keye <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786993	787102	
==>],
                  "BODY" => "#line 417 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keye <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	362	461	
==>ract_quotelike
				&extract_codeblock
				&extract_variable
				&extract_tagged
				&extract_multipl <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11078	11171	
==>nst int ELEMENT_TYPE_PTR = 0x0F
	.const int ELEMENT_TYPE_BYREF = 0x10
	.const int ELEMENT_TYPE <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	2472	2587	
==>shift;
    my $tagname = $token->tagname;

    if ( $tagname eq 'L' ) 
    {
        $self->process_link_start_token <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54101	54213	
==>$code);
				$prod and $prod->additem($item)
				      or  _no_rule($code,$line);
			}
			elsif ($grammar =~ m/(?= <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54520	54632	
==>$code);
				$prod and $prod->additem($item)
				      or  _no_rule($code,$line);
			}
			elsif ($grammar =~ m/(?= <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54998	55110	
==>$code);
				$prod and $prod->additem($item)
				      or  _no_rule($code,$line);
			}
			elsif ($grammar =~ m/(?= <==
5	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	942	1034	
==>a directory argument, should recursively descend.

=item * Should create descriptive hashes e <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	20603	20714	
==>$_[1] ]); }
	],
	[#Rule 21
		 '@1-1', 0,
sub
#line 132 "lib/Regex/Grammar.y"
{ ++$::paren }
	],
	[#Rule 22
		 'e <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9567	9656	
==>etails of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method_info <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7081	7170	
==>etails of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method_info <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5637	5726	
==>etails of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method_info <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7857	7946	
==>etails of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method_info <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138558	138856	
==>> "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 17 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139454	139752	
==>> "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 17 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140350	140648	
==>> "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 17 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141245	141543	
==>> "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 17 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142141	142439	
==>> "eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 17 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561963	562211	
==>_NOT_FOUND,\n        \"Method '%Ss' not found\", {{\@3}});\n  }\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563047	563295	
==>_NOT_FOUND,\n        \"Method '%Ss' not found\", {{\@3}});\n  }\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1783	1880	
==>= shift;

    return $self->{ARGS}[shift];
}

=item C<goto_address($address)>

Transforms the C<go <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1398	1495	
==>= shift;

    return $self->{ARGS}[shift];
}

=item C<goto_address($address)>

Transforms the C<go <==
5	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	84	174	
==>se vars qw(@ISA %Tagmap $Computerese $Lame $Linearization_Limit $VERSION);
@ISA = ('Pod::Si <==
5	/Users/nnunley/parrot/tools/dev/parrot_api.pl	5096	5205	
==>);
} else {
    die "$0: nm.pl -Bgo '$Obj': $!\n";
}
for my $api (keys %API) {
    delete $API{$api} unless ex <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857927	858103	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858930	859106	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859934	860110	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860938	861114	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3775	3881	
==>ur_opcode[%ld]",

        'i'  => "(*(INTVAL *)OP_AS_OFFS(%ld))",
        'ki'  => "(*(INTVAL *)OP_AS_OFFS( <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10374	10522	
==>$_) {
            ($first, $last) = @$_;
        } else {
            ($first, $last) = ($_, $_);
        }
        push @ranges, [ ord($first), ord( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10996	11079	
==>stack_push(interpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STACK_E <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11785	11868	
==>stack_push(interpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STACK_E <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13022	13105	
==>stack_push(interpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STACK_E <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13866	13949	
==>stack_push(interpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STACK_E <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451655	451911	
==>\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452394	452650	
==>\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453132	453388	
==>\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453871	454127	
==>\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	43758	43867	
==>de, 0);
    if (exists $func->{value}) {
      my $symbol = $func->{value};
      if (exists $global_ops{$symb <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20473	20606	
==>=> 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 11 <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21147	21280	
==>=> 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 11 <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16279	16381	
==>ew($block, $token);

      $self->require_assign;

      my $left  = Jako::Construct::Expression::Value <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17050	17152	
==>ew($block, $token);

      $self->require_assign;

      my $left  = Jako::Construct::Expression::Value <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17855	17957	
==>ew($block, $token);

      $self->require_assign;

      my $left  = Jako::Construct::Expression::Value <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5408	5565	
==>st);
                print {$FH} "$_->{symbol}";
                if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                    print {$FH} " <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6440	6597	
==>st);
                print {$FH} "$_->{symbol}";
                if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                    print {$FH} " <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5837	5982	
==>st);
            print {$FH} "$_->{symbol}";
            if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                print {$FH} " <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6932	7077	
==>st);
            print {$FH} "$_->{symbol}";
            if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                print {$FH} " <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	9846	9991	
==>st);
            print {$FH} "$_->{symbol}";
            if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                print {$FH} " <==
5	/Users/nnunley/parrot/config/gen/makefiles.pm	1465	1581	
==>ned_lines              => 1
    );
    genfile(
        'config/gen/makefiles/dynpmc_pl.in' => 'tools/build/dynpmc.pl <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4516	4610	
==>my $block = $self->current_block();
      my $ident = Jako::Construct::Expression::Value::Ident <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	10762	10856	
==>my $block = $self->current_block();
      my $ident = Jako::Construct::Expression::Value::Ident <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16176	16270	
==>my $block = $self->current_block();
      my $ident = Jako::Construct::Expression::Value::Ident <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16947	17041	
==>my $block = $self->current_block();
      my $ident = Jako::Construct::Expression::Value::Ident <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17752	17846	
==>my $block = $self->current_block();
      my $ident = Jako::Construct::Expression::Value::Ident <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769337	769560	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770189	770412	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771042	771265	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771895	772118	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDI <==
5	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	688	784	
==>e_todo (*@todo_tests) returns Void is export {
     $Test::force_todo_test_junction = join ' ', ' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92578	92902	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "F <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95029	95353	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "F <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95922	96246	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "F <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33644	33768	
==>NCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 166,
			'functioncall' => 31,
			'function' => 26,
			' <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	504	597	
==>( Parrot::OpTrans::C );

=item C<core_type()>

The core type is C<PARROT_PREDEREF_CORE>.

=cut <==
5	/Users/nnunley/parrot/tools/dev/cc_flags.pl	1555	1684	
==>else {
	    last;
	}
    }
}

my ($cfile) = grep /\.c$/, @ARGV;

my ($inject_point, $where);

foreach (@ARGV) {
  last if $_ eq '' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044693	1044784	
==>src/ops/var.ops\"\n    Parrot_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045587	1045678	
==>src/ops/var.ops\"\n    Parrot_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046481	1046572	
==>src/ops/var.ops\"\n    Parrot_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047376	1047467	
==>src/ops/var.ops\"\n    Parrot_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908771	909069	
==>=> 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909667	909965	
==>=> 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910564	910862	
==>=> 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911461	911759	
==>=> 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
5	/Users/nnunley/parrot/tools/build/c2str.pl	2357	2469	
==>G at line $line" unless $cnt == 2;

	my $str = extract_delimited; # $_, '"';
	$str = substr $str, 1, -1;
	## prin <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871833	872133	
==>PE" => "inline",
                  "CODE" => 989,
                  "ARGS" => [
                              "s",
                              "sc",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 239 \"src/ops/s <==
5	/Users/nnunley/parrot/lib/Parrot/Config.pm	1957	2042	
==>gregate-return -Winline -W -Wno-unused -Wsign-compare -Wformat-nonliteral -Wformat-sec <==
5	/Users/nnunley/parrot/tools/build/dynclasses.pl	1277	1362	
==>gregate-return -Winline -W -Wno-unused -Wsign-compare -Wformat-nonliteral -Wformat-sec <==
5	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1322	1407	
==>gregate-return -Winline -W -Wno-unused -Wsign-compare -Wformat-nonliteral -Wformat-sec <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	1326	1411	
==>gregate-return -Winline -W -Wno-unused -Wsign-compare -Wformat-nonliteral -Wformat-sec <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848297	848570	
==>1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849077	849350	
==>1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853406	853679	
==>1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854188	854461	
==>1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
5	/Users/nnunley/parrot/tools/build/vtable_extend.pl	1858	1961	
==>in fact it's what
   we've documented should be done -- but the problem is that the
   stack base pointe <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	246731	246968	
==>patch_i_pp(interpreter, {{\@2}}, {{\@3}}, MMD_NUMCMP);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748853	748939	
==>t.ops\"\n  {{\@1}}->vtable->set_number_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749637	749723	
==>t.ops\"\n  {{\@1}}->vtable->set_number_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755153	755239	
==>t.ops\"\n  {{\@1}}->vtable->set_number_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755940	756026	
==>t.ops\"\n  {{\@1}}->vtable->set_number_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634838	635094	
==>tring(interpreter, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635956	636212	
==>tring(interpreter, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637074	637330	
==>tring(interpreter, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638193	638449	
==>tring(interpreter, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	4217	4326	
==>bda_count";
		print "#xxxxxxxxx $f\n";
		my $args = $1;
		++$lambda_count;
		my @args = split(/,/, $args);
		m <==
5	/Users/nnunley/parrot/tools/dev/nm.pl	5222	5344	
==>=> \$Help,
		   'version|v'    => \$Version,
		  )) {
    show_help();
    exit(1);
}

if ($Const && !$nm_ro) {
    warn "$ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088863	1088949	
==>\"src/ops/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089811	1089897	
==>\"src/ops/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090829	1090915	
==>\"src/ops/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1091889	1091975	
==>\"src/ops/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2}} <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5563	5667	
==>ister_num/$register_num/g;
		$register_num++;
	}

    # Need to emit code to do any lazy moves that we've <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960989	961076	
==>t = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interpr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961951	962038	
==>t = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interpr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962913	963000	
==>t = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interpr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963876	963963	
==>t = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interpr <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	2683	2804	
==>ken);
    }
    elsif ( $tagname eq 'C' )
    {
        $self->process_code_start_token($token);
    }
    elsif ($tagname <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2299	2393	
==>$op)>

Returns the C code for the specified op argument type (see
C<Parrot::OpTrans>) and value <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3391	3485	
==>$op)>

Returns the C code for the specified op argument type (see
C<Parrot::OpTrans>) and value <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3535	3629	
==>$op)>

Returns the C code for the specified op argument type (see
C<Parrot::OpTrans>) and value <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3190	3284	
==>$op)>

Returns the C code for the specified op argument type (see
C<Parrot::OpTrans>) and value <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050199	1050297	
==>rnal_exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_g <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051233	1051331	
==>rnal_exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_g <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052267	1052365	
==>rnal_exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_g <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053302	1053400	
==>rnal_exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_g <==
5	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	2493	2589	
==>es joined together by C<$delim>.

Accepts a delimiter value followed by a list of C<key => value> <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7254	7372	
==>'pod_para_count'};
        
        $self->_ponder_paragraph_buffer();
         # by now it's safe to consider the prev <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7872	7985	
==>'pod_para_count'};
          $self->_ponder_paragraph_buffer();
           # by now it's safe to consider the prev <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	451	563	
==>lf = shift;
  my ($compiler) = @_;

  my $namespace = "BARE"; # TODO: Don't we need to do better than this?

  if <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	8229	8338	
==>'pod_para_count'};
        $self->_ponder_paragraph_buffer();
         # by now it's safe to consider the prev <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	5908	6013	
==>'pod_para_count'};
      $self->_ponder_paragraph_buffer();
       # by now it's safe to consider the prev <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	23692	23811	
==>'ar'} ne 'None') {
	    $nfix -= $nf;
	    BUILD_TUPLE($nfix, '', "\t\t #call_args");
	    my $t = pop @stack;
	    unsh <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018032	1018121	
==>t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = string_from_cstring(interpre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018957	1019046	
==>t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = string_from_cstring(interpre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019887	1019976	
==>t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = string_from_cstring(interpre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020818	1020907	
==>t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = string_from_cstring(interpre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492244	492527	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493004	493287	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498977	499260	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499739	500022	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5314	5422	
==>t && $next[0] eq '');
    }

    return Regex::Ops::Tree::order_startset(\%start);
}

sub dfa_safe {
    my $ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39059	39312	
==>er, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39924	40177	
==>er, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40771	41024	
==>er, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41619	41872	
==>er, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
5	/Users/nnunley/parrot/tools/dev/install_files.pl	1055	1145	
==>rce_path <whitespace> [package]meta1,meta2,...

or you may optionally specify a different d <==
5	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6456	6574	
==>/_STR$/);
    next if ($entry->[4] =~ /_FLOAT$/);
    $macros .= <<"EOM";
        \"__$entry->[1]\",
EOM
    }
    $mac <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634681	634778	
==>r, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpret <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635799	635896	
==>r, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpret <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636917	637014	
==>r, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpret <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638036	638133	
==>r, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpret <==
5	/Users/nnunley/parrot/languages/perms.pl	478	590	
==>join('', @tumbler);
    return $ret;
	};
}

=cut
00
10
20
30
40
50
60
01
11
21
31
=cut

my $it = deeper(5, \@thin <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1362	1463	
==>RESS($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($self <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1887	1988	
==>RESS($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($self <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1778	1879	
==>RESS($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($self <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1502	1603	
==>RESS($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($self <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34041	34139	
==>le->{'class'} eq 'branch') {
		# Call pre_branch and append code that it generates.
		my $pre_branc <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800643	800730	
==>t.ops\"\n    {{\@1}}->vtable->set_string_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801547	801634	
==>t.ops\"\n    {{\@1}}->vtable->set_string_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802451	802538	
==>t.ops\"\n    {{\@1}}->vtable->set_string_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803356	803443	
==>t.ops\"\n    {{\@1}}->vtable->set_string_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\ <==
5	/Users/nnunley/parrot/tools/dev/install_files.pl	2714	2813	
==>ile, which is probably the only time this
# script will ever be used, all of these defaults will get <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858613	858705	
==>\"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, ( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859617	859709	
==>\"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, ( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860621	860713	
==>\"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, ( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861626	861718	
==>\"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, ( <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	14233	14393	
==>nil' );
            push @{ $expr->[1] }, @{ $nil->[1] };
            my $n = scalar( @{$vars} );
            while ( $n-- ) {
                $result = new_ <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2294	2399	
==>{$code{$seg}->{declarations}}) {
				if (exists $main::common{$var}) {
					push(@saves, $var);
				}
			} <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2703	2808	
==>{$code{$seg}->{declarations}}) {
				if (exists $main::common{$var}) {
					push(@saves, $var);
				}
			} <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	1813	1910	
==>{$code{$seg}->{declarations}}) {
		if (exists $main::common{$var}) {
			push(@saves, $var);
		}
	} <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3104	3201	
==>{$code{$seg}->{declarations}}) {
		if (exists $main::common{$var}) {
			push(@saves, $var);
		}
	} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361754	361917	
==>O_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362653	362816	
==>O_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363555	363718	
==>O_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364458	364621	
==>O_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367035	367198	
==>O_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	264	357	
==>d1 DESCRIPTION

A documentation section describing all the POD documentation in F<docs>.

=hea <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	132	223	
==>nse
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Declarat <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	129	220	
==>nse
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Declarat <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	124	215	
==>nse
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Declarat <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	129	220	
==>nse
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Declarat <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170922	171308	
==>i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 205,
                  "ARGS" => [
                              "p",
                              "nc",
                              "ic"
                            ],
                  "BODY" => "#line <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687607	687851	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688378	688622	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528597	528686	
==>" => "#line 838 \"src/ops/math.ops\"\n  {{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529479	529568	
==>" => "#line 838 \"src/ops/math.ops\"\n  {{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	530361	530450	
==>" => "#line 838 \"src/ops/math.ops\"\n  {{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516680	516914	
==>/ops/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517419	517653	
==>/ops/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518157	518391	
==>/ops/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518896	519130	
==>/ops/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	566	653	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub any_errata_seen {  # read-only <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718141	718415	
==>io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719073	719347	
==>io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720272	720546	
==>io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721472	721746	
==>io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print <==
5	/Users/nnunley/parrot/tools/dev/lib_deps.pl	8909	9032	
==>cimagl      complex.h
clearerr    stdio.h
clock       time.h
clog        complex.h
clogf       complex.h
clogl       complex <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10577	10698	
==>);

    }

    #never reached
	croak("Error in driver logic. Please, report it as a BUG");

}#_Parse
#DO NOT remov <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	66415	66536	
==>rse::RecDescent::Repetition($name,"..$1",1,$1,
										   $lookahead,$line,
										   $self,
										   $matchrule, <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10105	10218	
==>);

    }

    #never reached
	croak("Error in driver logic. Please, report it as a BUG");

}#_Parse
#DO NOT remov <==
5	/Users/nnunley/parrot/lib/Parrot/Test.pm	15575	15679	
==>ilder->exported_to() || '';
            # die Dumper( $code, $expected, $desc, \%extra, $extra{todo}, $ca <==
5	/Users/nnunley/parrot/lib/Parrot/Test.pm	18126	18230	
==>ilder->exported_to() || '';
            # die Dumper( $code, $expected, $desc, \%extra, $extra{todo}, $ca <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909341	909485	
==>{{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910238	910382	
==>{{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911135	911279	
==>{{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912033	912177	
==>{{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	742	838	
==>f the block.

The PREFIX tells the prefix that will be used for block-related labels. For
example <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1507	1629	
==>k = $self->block;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5143	5265	
==>k = $self->block;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1465	1587	
==>k = $self->block;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1387	1509	
==>k = $self->block;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3206	3328	
==>k = $self->block;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9592	9698	
==>tput_length {
    my ($self, $dest, $string) = @_;
    return ("$dest = length $string;");
}

sub output_ar <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344387	344481	
==>, path, mode);\n  /* string_cstring_free(mode); */\n  /* string_cstring_free(path); */\n  if(!{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345629	345723	
==>, path, mode);\n  /* string_cstring_free(mode); */\n  /* string_cstring_free(path); */\n  if(!{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346871	346965	
==>, path, mode);\n  /* string_cstring_free(mode); */\n  /* string_cstring_free(path); */\n  if(!{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348114	348208	
==>, path, mode);\n  /* string_cstring_free(mode); */\n  /* string_cstring_free(path); */\n  if(!{ <==
5	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4611	4707	
==>en changed.

Accepts a key name, a trigger name, & a C<CODE> ref and returns a
L<Parrot::Configur <==
5	/Users/nnunley/parrot/lib/Parrot/Config.pm	2008	2092	
==>re -Wformat-nonliteral -Wformat-security -Wpacked -Wdisabled-optimization -falign-fun <==
5	/Users/nnunley/parrot/tools/build/dynclasses.pl	1328	1412	
==>re -Wformat-nonliteral -Wformat-security -Wpacked -Wdisabled-optimization -falign-fun <==
5	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1373	1457	
==>re -Wformat-nonliteral -Wformat-security -Wpacked -Wdisabled-optimization -falign-fun <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	1377	1461	
==>re -Wformat-nonliteral -Wformat-security -Wpacked -Wdisabled-optimization -falign-fun <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610559	610732	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611461	611634	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612364	612537	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613270	613443	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => <==
5	/Users/nnunley/parrot/Configure.pl	1595	1688	
==>r to use.

=item C<--ccflags=(flags)>

Use the given compiler flags.

=item C<--ccwarn=(flags) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465282	465593	
==>core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 533,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72538	72627	
==>line 1156 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74140	74229	
==>line 1156 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75742	75831	
==>line 1156 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77345	77434	
==>line 1156 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	5320	5438	
==>ymbol} = $level;
    }

    $block = $block->block; # Collect symbols from the parent block next
    $level++;
  }

  p <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777074	777181	
==>>vtable->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777983	778090	
==>>vtable->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778892	778999	
==>>vtable->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779802	779909	
==>>vtable->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	34633	34748	
==>mplicit'} = 'yes';
          $treelet->[$i][1]{'to'  } =
            Pod::Simple::LinkSection->new( $it ); # treelet <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	35211	35326	
==>mplicit'} = 'yes';
          $treelet->[$i][1]{'to'  } =
            Pod::Simple::LinkSection->new( $it ); # treelet <==
5	/Users/nnunley/parrot/tools/build/vtable_extend.pl	197	298	
==>x: set ro:
** !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
**
** This file is generated automatically fro <==
5	/Users/nnunley/parrot/tools/build/vtable_h.pl	577	678	
==>x: set ro:
** !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
**
** This file is generated automatically fro <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1940	2033	
==>_Run_core_t> C<enum> in
F<include/parrot/interpreter.h> for a list of the core types.

=cut

s <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	2864	2978	
==>ntil($cur eq "\n" and $next eq "_" and $afternext =~ /\w/) {
			append;
			fetch;
		}
		append;
		fetch;
		emit("DI <==
5	/Users/nnunley/parrot/tools/build/jit2c.pl	12420	12540	
==>print $op->full_name .": $jit_func $extern\n";
        }
        # some specials
        elsif ($op->full_name eq 'if_p_i <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	864	954	
==>nfess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($right, 'Jako::Cons <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	702	792	
==>nfess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($right, 'Jako::Cons <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	855	945	
==>nfess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($right, 'Jako::Cons <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	744	834	
==>nfess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($right, 'Jako::Cons <==
5	/Users/nnunley/parrot/tools/dev/pbc_header.pl	1787	1907	
==>1;
	    $c = unpack 'c', $c;
	    printf "\t%-12s= %s\n", $fields[$i],$c;
	}
    }
}

sub main {
    my ($result, $upd_fp <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73062	73149	
==>_new(interpreter, enum_class_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74664	74751	
==>_new(interpreter, enum_class_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76266	76353	
==>_new(interpreter, enum_class_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77869	77956	
==>_new(interpreter, enum_class_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpr <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27532	27636	
==>{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'in <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29999	30103	
==>{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'in <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33417	33521	
==>{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'in <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34671	34775	
==>{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'in <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37081	37185	
==>{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'in <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2332	2460	
==>brary) {
        my $hout = $self->gen_h($library);
        my $h = "$library.h";
        my $c = "$library.c";
        _write_a_ <==
5	/Users/nnunley/parrot/tools/dev/nm.pl	9111	9241	
==>uninit" : "B";
			    } else {
				$symbol = $TypeLong ? "unknown" : "D?";
			    }
			    $symbol .= "_data" if $TypeLong;
			} el <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634573	634670	
==>n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635691	635788	
==>n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636809	636906	
==>n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637928	638025	
==>n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099117	1099250	
==>1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    whi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100315	1100448	
==>1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    whi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101513	1101646	
==>1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    whi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102712	1102845	
==>1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    whi <==
5	/Users/nnunley/parrot/lib/Parrot/Test.pm	2214	2300	
==>sult.

=item C<pasm_output_isnt($code, $unexpected, $description)> or C<output_isnt($co <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30747	30865	
==>elf->_get_item_type($para);
            # That kills the content of the item if it's a number or bullet.
          DEBU <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	31712	31830	
==>elf->_get_item_type($para);
            # That kills the content of the item if it's a number or bullet.
          DEBU <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34035	34153	
==>elf->_get_item_type($para);
            # That kills the content of the item if it's a number or bullet.
          DEBU <==
5	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	1187	1288	
==>q 'lua' ? '.orig_out' : '.parrot_out', $count );
        my $test_prog_args = $ENV{TEST_PROG_ARGS} || <==
5	/Users/nnunley/parrot/examples/benchmarks/freeze.pl	884	978	
==>th($image), "\n";
print "array size ", scalar(@b), "\n";

=head1 SEE ALSO

F<examples/benchmark <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27487	27588	
==>$rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} e <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29954	30055	
==>$rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} e <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33372	33473	
==>$rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} e <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34626	34727	
==>$rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} e <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37036	37137	
==>$rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} e <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4018	4145	
==>ami);
EOC
    }
    $cout .= <<"EOC";

    /* do class_init code */
    for (pass = 0; pass <= 1; ++pass) {
EOC
    while (my ($ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123846	123954	
==>/ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124720	124828	
==>/ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125594	125702	
==>/ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" <==
5	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	2234	2341	
==>t != $expect) {
	print STDERR "TEST FAILED: $file (got $ret expected $expect)\n";
	return;
    }
    print " <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1447	1550	
==>ent;
      $self->SUPER::compile($compiler);
      $compiler->outdent;
      $compiler->emit(".endnamesp <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1803	1906	
==>ent;
      $self->SUPER::compile($compiler);
      $compiler->outdent;
      $compiler->emit(".endnamesp <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1244	1347	
==>ent;
      $self->SUPER::compile($compiler);
      $compiler->outdent;
      $compiler->emit(".endnamesp <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1552	1655	
==>ent;
      $self->SUPER::compile($compiler);
      $compiler->outdent;
      $compiler->emit(".endnamesp <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	650	747	
==>ent;
    $self->SUPER::compile($compiler);
    $compiler->outdent;
    $compiler->emit(".endnamesp <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664785	665069	
==>AME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 743,
                  "AR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018112	1018344	
==>g(interpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019037	1019269	
==>g(interpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019967	1020199	
==>g(interpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020898	1021130	
==>g(interpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	17709	17824	
==>y);

Skips the current test, reporting $why.

=cut

sub skip {
    my($self, $why) = @_;
    $why ||= '';
    $self- <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056508	1056600	
==>ops/var.ops\"\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057400	1057492	
==>ops/var.ops\"\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058292	1058384	
==>ops/var.ops\"\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059185	1059277	
==>ops/var.ops\"\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}} <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	319	419	
==>struct::Block::File;

use Carp;

use Jako::Compiler;

use base qw(Jako::Construct::Block);


#
# comp <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16238	16336	
==>nstruct::Expression::Value::Identifier->new($block, $token);

      $self->require_assign;

      m <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17009	17107	
==>nstruct::Expression::Value::Identifier->new($block, $token);

      $self->require_assign;

      m <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17814	17912	
==>nstruct::Expression::Value::Identifier->new($block, $token);

      $self->require_assign;

      m <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19360	19458	
==>nstruct::Expression::Value::Identifier->new($block, $token);

      $self->require_assign;

      m <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48675	48895	
==>G); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEX <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49465	49685	
==>G); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEX <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50275	50495	
==>G); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEX <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51068	51288	
==>G); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEX <==
5	/Users/nnunley/parrot/tools/build/pmc2c.pl	17059	17171	
==>=cut

sub dump_pmc {
    my ($include, @files) = @_;
    # help these dumb 'shells' that are no shells
    @files <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240189	240322	
==>rpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241137	241270	
==>rpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242085	242218	
==>rpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243034	243167	
==>rpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	46637	46732	
==>. In other words,
the two separate pieces of the here document are successfully extracted and
co <==
5	/Users/nnunley/parrot/lib/Parrot/Config.pm	10689	10774	
==>pmc lexinfo.pmc multisub.pmc namespace.pmc none.pmc pair.pmc resizablebooleanarray.pmc <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19015	19113	
==>urn,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return $return;
}

sub _o <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19503	19601	
==>urn,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return $return;
}

sub _o <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19991	20089	
==>urn,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return $return;
}

sub _o <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20480	20578	
==>urn,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return $return;
}

sub _o <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20969	21067	
==>urn,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return $return;
}

sub _o <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848302	848576	
==>{{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849082	849356	
==>{{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853411	853685	
==>{{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854193	854467	
==>{{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	20456	20549	
==>if ($opcode eq 'UNARY_NOT' && $code[$code_l+1]->[2] eq 'JUMP_IF_FALSE') {
	$code_l++;
	print " <==
5	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	16	112	
==>age Pod::Simple::LinkSection;
  # Based somewhat dimly on Array::Autojoin

use strict;
use Pod::S <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858545	858640	
==>g.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat with negativ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859549	859644	
==>g.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat with negativ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860553	860648	
==>g.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat with negativ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861558	861653	
==>g.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat with negativ <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	16515	16631	
==>&& $l->[2] eq 'I') {
	$n = temp($t = 'N');
	print <<"EOC";
	$n = pow $l->[1], $r->[1] $cmt
EOC
    }
    else {
	my $ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	339575	339875	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340573	340873	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341572	341872	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342571	342871	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i <==
5	/Users/nnunley/parrot/lib/Class/Struct.pm	17177	17344	
==>Socks',
                        kittens  => ['Monica', 'Kenneth'],
                        markings => { socks=>1, blaze=>"white" },
                        breed    => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597476	597739	
==>" => "getclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598522	598785	
==>" => "getclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599569	599832	
==>" => "getclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600644	600907	
==>" => "getclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
5	/Users/nnunley/parrot/tools/build/pmc2c.pl	2902	3002	
==>> declaration:

    pmclass PMCNAME [flags] {

where C<flags> are:

=over 4

=item C<extends PMCPAREN <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083962	1084253	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085014	1085305	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086067	1086358	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087120	1087411	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/Test.pm	9212	9327	
==>'>', $code_f or die "Unable to open '$code_f'";
    binmode $CODE;
    print $CODE $code;
    close $CODE;

    retu <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27508	27629	
==>eth->{meth})) {
            $hout .= $self->decl($classname, $meth, 1);
        }
    }
    foreach my $method (@{ $self-> <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24813	24926	
==>$self->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25824	25937	
==>$self->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26712	26825	
==>$self->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27722	27835	
==>$self->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self <==
5	/Users/nnunley/parrot/config/inter/libparrot.pm	1554	1648	
==>rpath_blib => ($parrot_is_shared && $conf->data->get('rpath'))
        ? $conf->data->get('rpa <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24368	24461	
==>self->_constant(0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{child <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25257	25350	
==>self->_constant(0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{child <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26267	26360	
==>self->_constant(0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{child <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27157	27250	
==>self->_constant(0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{child <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1838	1950	
==>ame  = $self->ident ? $self->ident->value : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2443	2555	
==>ame  = $self->ident ? $self->ident->value : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	2001	2113	
==>ame  = $self->ident ? $self->ident->value : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3117	3229	
==>ame  = $self->ident ? $self->ident->value : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op <==
5	/Users/nnunley/parrot/tools/dev/install_files.pl	1379	1469	
==>meta2,... <whitespace> destination

The square brackets around C<package> are literal. C<pa <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18201	18304	
==>tring {
}

sub _op_string_symbol {
}

sub _op_number_p {
}

sub _op_complex_p {
}

sub _op_real_p {
}

s <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24373	24465	
==>>_constant(0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{children} <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25262	25354	
==>>_constant(0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{children} <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26272	26364	
==>>_constant(0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{children} <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27162	27254	
==>>_constant(0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{children} <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2860	2965	
==>infix', name => $op } });
    $left->sax($handler);
    $right->sax($handler);
    $handler->end_element({ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3534	3639	
==>infix', name => $op } });
    $left->sax($handler);
    $right->sax($handler);
    $handler->end_element({ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3624	3729	
==>infix', name => $op } });
    $left->sax($handler);
    $right->sax($handler);
    $handler->end_element({ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5409	5508	
==>infix', name => $op } });
  $left->sax($handler);
  $right->sax($handler);
  $handler->end_element({ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3472	3571	
==>infix', name => $op } });
  $left->sax($handler);
  $right->sax($handler);
  $handler->end_element({ <==
5	/Users/nnunley/parrot/tools/dev/nm.pl	3336	3435	
==>) symbols (Ff)
If more than one of all the above options are given, they are ANDed.
They can also be <==
5	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	711	803	
==>($target, $pattern, $description, @todo)>

Runs the target string against the Perl 6 pattern, <==
5	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1828	1920	
==>($target, $pattern, $description, @todo)>

Runs the target string against the Perl 6 pattern, <==
5	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2809	2901	
==>($target, $pattern, $description, @todo)>

Runs the target string against the Perl 6 pattern, <==
5	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3360	3452	
==>($target, $pattern, $description, @todo)>

Runs the target string against the Perl 6 pattern, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898652	898982	
==>=> ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1014,
                  "ARGS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056516	1056628	
==>ops\"\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LAB <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057408	1057520	
==>ops\"\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LAB <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058300	1058412	
==>ops\"\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LAB <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059193	1059305	
==>ops\"\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LAB <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5686	5772	
==>m C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot::OpT <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3262	3348	
==>m C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot::OpT <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2990	3076	
==>m C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot::OpT <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	6442	6528	
==>m C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot::OpT <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099156	1099283	
==>nt s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    r <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100354	1100481	
==>nt s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    r <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101552	1101679	
==>nt s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    r <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102751	1102878	
==>nt s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    r <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3634	3725	
==>.*?[^\\])\$((([A-Za-z][A-Za-z0-9_]*)\b)|({[A-Za-z][A-Za-z0-9_]*}))(.*)$/;

        if (defin <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1861	1973	
==>self->ident->value : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2466	2578	
==>self->ident->value : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	2024	2136	
==>self->ident->value : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3140	3252	
==>self->ident->value : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $ <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28145	28242	
==>:RecDescent::unexpected
				   = ($lastsep||"").$text;
			}'.($::RD_NO_TRACE?'':'
			Parse::RecDes <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30219	30316	
==>:RecDescent::unexpected
				   = ($lastsep||"").$text;
			}'.($::RD_NO_TRACE?'':'
			Parse::RecDes <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32420	32517	
==>:RecDescent::unexpected
				   = ($lastsep||"").$text;
			}'.($::RD_NO_TRACE?'':'
			Parse::RecDes <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10380	10468	
==>EMP3} = ${STYPES}[${ITEMP2}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP3}["reg_type_short"]
${ST <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7764	7852	
==>EMP3} = ${STYPES}[${ITEMP2}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP3}["reg_type_short"]
${ST <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	38025	38139	
==>,
  'string-fill!'  => \&_op_string_fill_bang,

###
### Vector
###

  'vector?'       => \&_op_vector_p,
  'make-ve <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960938	961028	
==>=> "#line 595 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961900	961990	
==>=> "#line 595 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962862	962952	
==>=> "#line 595 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963825	963915	
==>=> "#line 595 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31756	31884	
==>exprs} ) == 0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @op <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	32407	32535	
==>exprs} ) == 0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @op <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33057	33185	
==>exprs} ) == 0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @op <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33580	33708	
==>exprs} ) == 0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @op <==
5	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1980	2079	
==>gument syntax above applies here.

=cut

sub p6rule_isnt {
    my ($target, $pattern) = (shift, shif <==
5	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2666	2793	
==>name
{
    my $self = shift;
    my $name = shift || return;
    
    $name .= '.c' unless $name =~ /\.[Cc]$/o;
    
    foreach <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950586	950691	
==>rrot_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951546	951651	
==>rrot_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952506	952611	
==>rrot_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953467	953572	
==>rrot_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758635	758917	
==>gn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 856,
                  "ARG <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	17463	17559	
==>OOPUP
}
my $docounter=0;
sub parse_do {
	$docounter++;
	if ($syms[NEXT] eq "until" or $syms[NEXT] <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332493	332587	
==>erpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interprete <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333771	333865	
==>erpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interprete <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335049	335143	
==>erpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interprete <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336328	336422	
==>erpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interprete <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27489	27590	
==>ule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} els <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29956	30057	
==>ule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} els <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33374	33475	
==>ule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} els <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34628	34729	
==>ule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} els <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37038	37139	
==>ule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} els <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	10002	10103	
==>e'};
  my $accept_verbatim      = delete $options{'accept_verbatim'};
  my $max_content_length   = del <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586688	586783	
==>interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_excep <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587874	587969	
==>interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_excep <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589060	589155	
==>interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_excep <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590247	590342	
==>interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_excep <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769473	769736	
==>"NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770325	770588	
==>"NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771178	771441	
==>"NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772031	772294	
==>"NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
5	/Users/nnunley/parrot/lib/Parrot/Op.pm	599	692	
==>RETURN()> statements, while auto ops can count
on an automatically generated next-op to be app <==
5	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1305	1414	
==>->diag("'$cmd' failed with exit code $exit_code")
        if $exit_code and not $pass;
    }

    unless($ENV{ <==
5	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1346	1455	
==>->diag("'$cmd' failed with exit code $exit_code")
        if $exit_code and not $pass;
    }

    unless($ENV{ <==
5	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2469	2576	
==>->diag("'$cmd' failed with exit code $exit_code")
      if $exit_code and not $pass;
    }

    unless($ENV{ <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	943	1046	
==>y($self) = @_;
   ...
 }
 
...and start_/end_ methods for whatever other events you want to catch.

=hea <==
5	/Users/nnunley/parrot/tools/build/pbc2c.pl	7628	7725	
==>le($_)
}

exit 0;

__END__

=begin ADDITIONAL

=head1 AUTHOR

Gregor N. Purdy E<lt>gregor@focusres <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24330	24430	
==>if($num_children==0) {
    $return = $self->_constant(0);
  } elsif($num_children==1) {
    $return = <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25219	25319	
==>if($num_children==0) {
    $return = $self->_constant(0);
  } elsif($num_children==1) {
    $return = <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26229	26329	
==>if($num_children==0) {
    $return = $self->_constant(0);
  } elsif($num_children==1) {
    $return = <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27119	27219	
==>if($num_children==0) {
    $return = $self->_constant(0);
  } elsif($num_children==1) {
    $return = <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6464	6558	
==>ile (1) {
        my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $self <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	21019	21122	
==>1pos,	$rd1pos-$str1pos,	# STR/PAT
		$rd1pos,	1,			# RIGHT DEL
		$ld2pos,	$second_arg,		# 2ND LDEL (MAYBE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353619	353717	
==>ps\"\n  STRING * const s = {{\@1}};\n  if (s && string_length(interpreter, s)) {\n    PIO_putps(int <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354364	354462	
==>ps\"\n  STRING * const s = {{\@1}};\n  if (s && string_length(interpreter, s)) {\n    PIO_putps(int <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359313	359411	
==>ps\"\n  STRING * const s = {{\@1}};\n  if (s && string_length(interpreter, s)) {\n    PIO_putps(int <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360061	360159	
==>ps\"\n  STRING * const s = {{\@1}};\n  if (s && string_length(interpreter, s)) {\n    PIO_putps(int <==
5	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	19071	19177	
==>= @_;

    push @{$self->{OPS}}, $op;
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::Op>

=item C<Parr <==
5	/Users/nnunley/parrot/lib/Parrot/Test.pm	3973	4065	
==>termediate Representation and generate Parrot Assembler Code.
Pass if the generated PASM is $ <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	555	646	
==>head1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head1 DESCRIPTION

When you do $parser->g <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	974	1065	
==>head1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head1 DESCRIPTION

When you do $parser->g <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	461	552	
==>head1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head1 DESCRIPTION

When you do $parser->g <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22531	22633	
==>0,$temp_0,$temp_1]);
  $self->_add_inst(''           ,'eq'    ,[$temp_0,1,"DONE_$label"]);
  $self->_ad <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5664	5749	
==>:OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::CSwitc <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3240	3325	
==>:OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::CSwitc <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2968	3053	
==>:OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::CSwitc <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	4030	4115	
==>:OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::CSwitc <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	34402	34515	
==>strictive a RE
          DEBUG > 1 and print "Catching \"$it\" as manpage link.\n";
          $treelet->[$i][1]{'t <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072158	1072294	
==>while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1* <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074343	1074479	
==>while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1* <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076528	1076664	
==>while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1* <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078714	1078850	
==>while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1* <==
5	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	1405	1524	
==>the verbatim chunk with whitespace.
            push @output, [ 1, q{} ];
            push @output, [ 0, $verbatim_chunk <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188286	188602	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 224,
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72724	72825	
==>), name));\n  string_cstring_free(name);\n  if (p == NULLfunc) {\n      const char * err = Parrot_dler <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74326	74427	
==>), name));\n  string_cstring_free(name);\n  if (p == NULLfunc) {\n      const char * err = Parrot_dler <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75928	76029	
==>), name));\n  string_cstring_free(name);\n  if (p == NULLfunc) {\n      const char * err = Parrot_dler <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77531	77632	
==>), name));\n  string_cstring_free(name);\n  if (p == NULLfunc) {\n      const char * err = Parrot_dler <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067123	1067235	
==>loor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (I <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068309	1068421	
==>loor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (I <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069495	1069607	
==>loor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (I <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070682	1070794	
==>loor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (I <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2601	2708	
==>nction
sub rop {
    return __PACKAGE__->op(@_);
}

use vars qw(%MARKERS);
sub mark {
    my $name = shift | <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27069	27207	
==>y $op ( @{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{ <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27750	27888	
==>y $op ( @{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{ <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	30600	30738	
==>y $op ( @{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{ <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	35147	35285	
==>y $op ( @{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{ <==
5	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6434	6545	
==>xt if ($entry->[4] =~ /_STR$/);
    next if ($entry->[4] =~ /_FLOAT$/);
    $macros .= <<"EOM";
        \"__$ent <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453072	453204	
==>],
                  "BODY" => "#line 230 \"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453811	453943	
==>],
                  "BODY" => "#line 230 \"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [ <==
5	/Users/nnunley/parrot/config/init/hints/netbsd.pm	241	350	
==>pthread';
    }
    $conf->data->set(ccflags => $ccflags);

    my $libs = $conf->data->get('libs');
    if ($ <==
5	/Users/nnunley/parrot/config/init/hints/openbsd.pm	333	442	
==>pthread';
    }
    $conf->data->set(ccflags => $ccflags);

    my $libs = $conf->data->get('libs');
    if ($ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17327	17427	
==>I');

  _num_arg ($node, 1, 'length');

  my $list = $self->_generate(_get_arg($node,1));

  $self->_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704657	704886	
==>",
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpre <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11712	11853	
==>h @opcodes, @{ $last_key->[1] };
                    my $assign = new KeyedSetOp( $parser,
                        'arg1'   => $last_key->[0 <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9916	10049	
==>h @opcodes, @{ $last_key->[1] };
                my $assign = new KeyedSetOp( $parser,
                    'arg1'   => $last_key->[0 <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8779	8896	
==>h @opcodes, @{ $last_key->[1] };
        my $assign = new KeyedSetOp( $parser,
            'arg1'   => $last_key->[0 <==
5	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2623	2724	
==>ile =~ /^[^\/]*\.c$/);

    my $dev_file = $file; $dev_file =~ s/(.*)\.c$/docs\/dev\/$1.dev/g;
    ret <==
5	/Users/nnunley/parrot/examples/benchmarks/oo1.pl	102	219	
==>0], "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift;
    return bless [ 10, 20 ], $self;
} <==
5	/Users/nnunley/parrot/examples/benchmarks/oo2.pl	102	219	
==>0], "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift;
    return bless [ 10, 20 ], $self;
} <==
5	/Users/nnunley/parrot/examples/benchmarks/oo3.pl	118	235	
==>0], "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift;
    return bless [ 10, 20 ], $self;
} <==
5	/Users/nnunley/parrot/examples/benchmarks/oo4.pl	112	229	
==>0], "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift;
    return bless [ 10, 20 ], $self;
} <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	48170	48265	
==>rest of the line
on which the here document starts is not skipped.

To prevent <extract_quotelik <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	976	1062	
==>ew;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	760	846	
==>ew;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub <==
5	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	305	391	
==>ew;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub <==
5	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	612	698	
==>ew;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub <==
5	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	561	647	
==>ew;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361752	361871	
==>PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362651	362770	
==>PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363553	363672	
==>PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364456	364575	
==>PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367033	367152	
==>PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  " <==
5	/Users/nnunley/parrot/config/auto/gc.pm	44	137	
==>on.
# $Id: /parrot/config/auto/gc.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	604398	604686	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "removeparent",
                  "FLAGS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812777	813059	
==>lone",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 917,
                  "AR <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	35755	35851	
==>ld
return an empty string. In a void context, C<$text> would be unchanged.)

Note that the embedd <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579631	579722	
==>preter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580936	581027	
==>preter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582241	582332	
==>preter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583547	583638	
==>preter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}} <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	52568	52662	
==>o C<extract_multiple> in a list context
is to split the processed string into as many non-overl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773411	773497	
==>set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774321	774407	
==>set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775231	775317	
==>set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776142	776228	
==>set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{ <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	50124	50217	
==>m 3.

Try to match an opening delimiter bracket. If found, call
C<extract_codeblock> recursive <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332648	332745	
==>*/\n  /* TODO all results from string_to_cstring() need freeing\n     but this generates ugly warn <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333926	334023	
==>*/\n  /* TODO all results from string_to_cstring() need freeing\n     but this generates ugly warn <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335204	335301	
==>*/\n  /* TODO all results from string_to_cstring() need freeing\n     but this generates ugly warn <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336483	336580	
==>*/\n  /* TODO all results from string_to_cstring() need freeing\n     but this generates ugly warn <==
5	/Users/nnunley/parrot/tools/dev/parrot_api.pl	647	738	
==>parrot.a>), and then cross-references the dubious API
symbols according to the below categor <==
5	/Users/nnunley/parrot/config/inter/encoding.pm	711	815	
==>nf->options->get('encoding')
        || join(' ', grep { defined $_ } @encoding);

    if ($conf->options <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31460	31555	
==>_name> is the name of the output file we are
generating.

Overrides the default implementation t <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33073	33168	
==>_name> is the name of the output file we are
generating.

Overrides the default implementation t <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34761	34856	
==>_name> is the name of the output file we are
generating.

Overrides the default implementation t <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40080	40175	
==>_name> is the name of the output file we are
generating.

Overrides the default implementation t <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218352	218772	
==>[
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 256,
                  "ARGS" => [
                              "p",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#lin <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	98199	98473	
==>@1}} = ~ {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16864	16991	
==>ve out "- so that "--" won't make it thru in X-generated comments
        #  with text in them.
        
        # Yes, stipulat <==
5	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10304	10415	
==>ve out "- so that "--" won't make it thru in X-generated comments
    #  with text in them.

    # Yes, stipulat <==
5	/Users/nnunley/parrot/lib/File/Which.pm	546	650	
==>er
my @path_ext = ('');
if ($Is_DOSish) {
    if ($ENV{PATHEXT} and $Is_DOSish) {    # WinNT. PATHEXT mig <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061192	1061447	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062732	1062987	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063601	1063856	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064471	1064726	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065344	1065599	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134932	135229	
==>0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135825	136122	
==>0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136719	137016	
==>0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
5	/Users/nnunley/parrot/config/auto/gmp.pm	1338	1455	
==>ata->add(' ', linkflags => '-L/sw/lib');
            $conf->data->add(' ', ldflags   => '-L/sw/lib');
            $con <==
5	/Users/nnunley/parrot/config/auto/readline.pm	1427	1544	
==>ata->add(' ', linkflags => '-L/sw/lib');
            $conf->data->add(' ', ldflags   => '-L/sw/lib');
            $con <==
5	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2003	2132	
==>HQUOTE;
our %cores = (
    C       => '',
   CGP     => '_cgp',
   CGoto   => '_cg',
    CSwitch => '_switch'
);

# Actual command <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344355	344448	
==>1}} = PIO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* strin <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345597	345690	
==>1}} = PIO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* strin <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346839	346932	
==>1}} = PIO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* strin <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348082	348175	
==>1}} = PIO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* strin <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2788	2900	
==>);
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
    $left->sax( <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3462	3574	
==>);
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
    $left->sax( <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3552	3664	
==>);
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
    $left->sax( <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5339	5447	
==>);
  $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
  $left->sax( <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3402	3510	
==>);
  $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
  $left->sax( <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23943	24072	
==>value>);
    #   redo unless (<value> <op> <value>);
    #
    #   redo <label>;
    #   redo <label> if     (<value> <op> <value> <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72606	72692	
==>ing(interpreter, ({{\@3}}));\n\n  funcptr_t p = D2FPTR(Parrot_dlsym(PMC_IS_NULL({{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74208	74294	
==>ing(interpreter, ({{\@3}}));\n\n  funcptr_t p = D2FPTR(Parrot_dlsym(PMC_IS_NULL({{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75810	75896	
==>ing(interpreter, ({{\@3}}));\n\n  funcptr_t p = D2FPTR(Parrot_dlsym(PMC_IS_NULL({{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77413	77499	
==>ing(interpreter, ({{\@3}}));\n\n  funcptr_t p = D2FPTR(Parrot_dlsym(PMC_IS_NULL({{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344565	344871	
==>s_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345807	346113	
==>s_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347049	347355	
==>s_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348292	348598	
==>s_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
5	/Users/nnunley/parrot/tools/build/pmc2c.pl	23251	23373	
==>../src/pmc/";

    if ( 0 == grep { $action{$_} } keys %action ) {
        die "No action specified!\n";
    }

    if ($ac <==
5	/Users/nnunley/parrot/config/gen/core_pmcs.pm	1371	1476	
==>pmcs.c";
    my @pmcs = split(/ /, $conf->data->get('pmc_names'));

    open(OUT, ">$file.tmp");

    prin <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381180	381275	
==>offset({{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek fail <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382192	382287	
==>offset({{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek fail <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383204	383299	
==>offset({{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek fail <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384217	384312	
==>offset({{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek fail <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2698	2825	
==>coding_line( "=encode utf8" );
        $line =~ tr/\n\r//d;
        
      } elsif( $line =~ s/^\xFE\xFF//s ) {
        DEBUG an <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659481	659725	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exists",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660402	660646	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exists",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661324	661568	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exists",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662239	662483	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exists",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46186	46293	
==>],
                  "BODY" => "#line 742 \"src/ops/core.ops\"\n  Parrot_push_action(interpreter, {{\@1}});\ <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	3896	3990	
==>y ($op) = @_; $op->{args}->[0]->minlen() }
sub maxlen { my ($op) = @_; $op->{args}->[0]->maxlen <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374007	374094	
==>"#line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374890	374977	
==>"#line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375773	375860	
==>"#line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376657	376744	
==>"#line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, <==
5	/Users/nnunley/parrot/languages/dotnet/Configure.pl	1206	1310	
==>) {
	# Try to include config information from Parrot tree.
	my %config = eval {
		require "$_[0]/lib/P <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332361	332458	
==>e char * need to go away soon */\n  const char * const mode = string_to_cstring(interpreter, {{\@3 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333639	333736	
==>e char * need to go away soon */\n  const char * const mode = string_to_cstring(interpreter, {{\@3 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334917	335014	
==>e char * need to go away soon */\n  const char * const mode = string_to_cstring(interpreter, {{\@3 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336196	336293	
==>e char * need to go away soon */\n  const char * const mode = string_to_cstring(interpreter, {{\@3 <==
5	/Users/nnunley/parrot/tools/build/vtable_extend.pl	60	155	
==>se Parrot::Vtable;

my $vtable = parse_vtable( 'vtable.tbl' );

my ($funcs, $protos) = vtbl_embe <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867337	867659	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868303	868625	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869269	869591	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870236	870558	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS <==
5	/Users/nnunley/parrot/Configure.pl	10201	10300	
==>ld your Parrot.
(NOTE: do not use `$make -j <n>'!)
After that, you can use `$make test' to run the t <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78373	78671	
==>"NAME" => "dlvar",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79893	80191	
==>"NAME" => "dlvar",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314103	314342	
==>gned char)({{\@1}}));\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	315564	315803	
==>gned char)({{\@1}}));\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
5	/Users/nnunley/parrot/languages/scheme/Scheme.pm	535	636	
==>eys %{$main->{scope}};

  my $code = $main->{code};
  my $header = << 'END_HEADER';
# Header informati <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072793	1072912	
==>};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074978	1075097	
==>};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077163	1077282	
==>};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079349	1079468	
==>};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}} <==
5	/Users/nnunley/parrot/tools/dev/install_files.pl	2685	2789	
==>t;

# When run from the makefile, which is probably the only time this
# script will ever be used, all of <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8301	8451	
==>quire_literal);
        }

        $props{$prop} = $value;
      }

      #
      # Require there to be a formal arguments list:
      #

      $self-> <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634739	634830	
==>(int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635857	635948	
==>(int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636975	637066	
==>(int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638094	638185	
==>(int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new <==
5	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	622	739	
==>ct 'refs';

    *{"Parrot::Test::HQ9plus::$func"} = sub ($$;$) {
        my $self = shift;
        my ( $code, $output <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044707	1044818	
==>s\"\n    Parrot_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LAB <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045601	1045712	
==>s\"\n    Parrot_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LAB <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046495	1046606	
==>s\"\n    Parrot_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LAB <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047390	1047501	
==>s\"\n    Parrot_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LAB <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39078	39330	
==>});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39943	40195	
==>});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40790	41042	
==>});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41638	41890	
==>});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENE <==
5	/Users/nnunley/parrot/config/init/headers.pm	25	113	
==>, The Perl Foundation.
# $Id: /parrot/config/init/headers.pm 20700 2006-06-26T19:26:45.69 <==
5	/Users/nnunley/parrot/tools/dev/as2c.pl	1172	1288	
==>pe\s+(\w+)\s*,\s*\@function/) {
	    $in_comment = 0;
	    $func = $1;
	    print " *\n */\n";
	    print "static con <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	960	1072	
==>,

    DEBUG => 1,
    FILE  => $ident->file,
    LINE  => $ident->line
  }, $class;

  $block->push_content($sel <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1114	1226	
==>,

    DEBUG => 1,
    FILE  => $ident->file,
    LINE  => $ident->line
  }, $class;

  $block->push_content($sel <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	964	1076	
==>,

    DEBUG => 1,
    FILE  => $ident->file,
    LINE  => $ident->line
  }, $class;

  $block->push_content($sel <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	703	815	
==>,

    DEBUG => 1,
    FILE  => $ident->file,
    LINE  => $ident->line
  }, $class;

  $block->push_content($sel <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1385	1497	
==>,

    DEBUG => 1,
    FILE  => $ident->file,
    LINE  => $ident->line
  }, $class;

  $block->push_content($sel <==
5	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	11996	12101	
==>languages targetting parrot (e.g. tcl),
    are also available.
  </p>

  <p>
    Submitting your own smok <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63111	63215	
==>d->additem($item)
						      or  _no_rule("repetition",$line,"$code$argcode($1)");

						!$matchrule an <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63832	63936	
==>d->additem($item)
						      or  _no_rule("repetition",$line,"$code$argcode($1)");

						!$matchrule an <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64548	64652	
==>d->additem($item)
						      or  _no_rule("repetition",$line,"$code$argcode($1)");

						!$matchrule an <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62475	62577	
==>d->additem($item)
					      or  _no_rule("repetition",$line,"$code$argcode($1)");

					!$matchrule an <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31940	32063	
==>d->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = " <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33517	33640	
==>d->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = " <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38534	38657	
==>d->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = " <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40574	40697	
==>d->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	865717	865826	
==>67 \"src/ops/string.ops\"\n   string_pin(interpreter, {{\@1}});\n   {{+=2}};\n",
                  "LABELS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450978	451275	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451716	452013	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452455	452752	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453193	453490	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453932	454229	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARG <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3921	4024	
==>Block
  my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless defined $self <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7830	7933	
==>Block
  my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless defined $self <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8477	8580	
==>Block
  my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless defined $self <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9145	9248	
==>Block
  my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless defined $self <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9814	9917	
==>Block
  my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless defined $self <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24757	24878	
==>ve_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    for(2. <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25768	25889	
==>ve_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    for(2. <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26656	26777	
==>ve_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    for(2. <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27666	27787	
==>ve_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    for(2. <==
5	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2201	2295	
==>file, $source);
    check_code_indents($file, $source);
    check_function_definitions($file, $ <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	18084	18243	
==>{Curr_Test}-1] = &share({
        'ok'      => 1,
        actual_ok => 1,
        name      => '',
        type      => 'skip',
        reason    => $why,
    } <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	21798	21893	
==>there isn't one
already.

We encourage using this rather than calling print directly.

Returns f <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1136	1225	
==>ght is not Value!" if defined $right and not UNIVERSAL::isa($right, 'Jako::Construct::Expr <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1164	1253	
==>ght is not Value!" if defined $right and not UNIVERSAL::isa($right, 'Jako::Construct::Expr <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	836	925	
==>ght is not Value!" if defined $right and not UNIVERSAL::isa($right, 'Jako::Construct::Expr <==
5	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	6789	6934	
==>('slash');
                '/' x ($len/2) . ($len%2 ? $slash : '');
            }eg;
            # replace \* with \\*, so make will not eat the \ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569272	569360	
==>> "#line 218 \"src/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->isa(interpreter, {{\@2} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570165	570253	
==>> "#line 218 \"src/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->isa(interpreter, {{\@2} <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	680	767	
==>a($dest, 'Jako::Construct::Expression::Value::Identifier');
  confess("Left (" . ref($le <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	671	758	
==>a($dest, 'Jako::Construct::Expression::Value::Identifier');
  confess("Left (" . ref($le <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	560	647	
==>a($dest, 'Jako::Construct::Expression::Value::Identifier');
  confess("Left (" . ref($le <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1589	1698	
==>lock = $self->block;
  my $value = $self->value;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $o <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3209	3318	
==>lock = $self->block;
  my $value = $self->value;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $o <==
5	/Users/nnunley/parrot/tools/build/pmc2c.pl	19607	19708	
==>p($include, $_) } @files;

    Parrot::Pmc2c::Library
        ->new( \%opt, read_dump($include, "vtabl <==
5	/Users/nnunley/parrot/lib/Test/More.pm	290	389	
==>_, " at $file line $line\n";
}



require Exporter;
use vars qw($VERSION @ISA @EXPORT %EXPORT_TAGS $ <==
5	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4007	4101	
==>point_size(17);
  $new->normal_halfpoint_size(25);

  return $new;
}

#~~~~~~~~~~~~~~~~~~~~~~~~ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2994	3109	
==>, 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P14', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'], <==
5	/Users/nnunley/parrot/tools/build/dynclasses.pl	6490	6602	
==>me($target)
      or return 1;
    for my $source (@sources) {
        return 1 if modtime($source) > $target_mod <==
5	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4910	5022	
==>me($target)
      or return 1;
    for my $source (@sources) {
        return 1 if modtime($source) > $target_mod <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	6701	6813	
==>me($target)
      or return 1;
    for my $source (@sources) {
        return 1 if modtime($source) > $target_mod <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49853	49961	
==>p);
					  $match ? \@res : undef;
					', $lookahead,$line,"<perl_quotelike>");
				$prod and $prod->additem <==
5	/Users/nnunley/parrot/config/auto/gdbm.pm	302	400	
==>MC.

=cut

package auto::gdbm;

use strict;
use vars qw($description @args);

use base qw(Parrot::C <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836660	836917	
==>" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837392	837649	
==>" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838126	838383	
==>" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838858	839115	
==>" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  " <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	30137	30260	
==>p( $parser,
        'arg1' => $lbl_or,
    );
    push @opcodes, new BranchUnlessOp( $parser,
        'arg1'   => $_var, <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	30453	30550	
==>g ($node, 1, 'procedure?');

  $return = $self->_constant(0);

  my $temp = $self->_generate(_get_ <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11371	11466	
==>inished.
goto PRE_CALL_END_${CURIC}

# It's a return. See if we have a return value.
PRE_CALL_RE <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8557	8652	
==>inished.
goto PRE_CALL_END_${CURIC}

# It's a return. See if we have a return value.
PRE_CALL_RE <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7129	7224	
==>inished.
goto PRE_CALL_END_${CURIC}

# It's a return. See if we have a return value.
PRE_CALL_RE <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	2716	2810	
==>->html_docs_directory, $silent);
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::Docs::Sect <==
5	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	15564	15667	
==>ude/parrot/op.h
        or_flag(\$jumps, "PARROT_JUMP_RELATIVE")   if ($branch);
        or_flag(\$jumps <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634699	634794	
==>t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635817	635912	
==>t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636935	637030	
==>t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638054	638149	
==>t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763054	763176	
==>,
                  "BODY" => "#line 320 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PAN <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763907	764029	
==>,
                  "BODY" => "#line 320 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PAN <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764760	764882	
==>,
                  "BODY" => "#line 320 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PAN <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765614	765736	
==>,
                  "BODY" => "#line 320 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PAN <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	8149	8267	
==>r set_source");
  } else {  # It's a filename!
    DEBUG and print "$self 's source is filename $_[0]\n";
    {
      l <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151140	151411	
==>, {{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152118	152389	
==>, {{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172368	172639	
==>, {{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173346	173617	
==>, {{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	33820	33925	
==>elet->[$i][1]{'to'}[0] = ''; # set the copy's tagname to nil
          die "SANITY FAILURE" if $treelet->[ <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37234	37329	
==>$lookahead) =
		@{$self}{ qw{subrule repspec min max lookahead} };

''.($::RD_NO_TRACE?'':'
		Pa <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858526	858619	
==>118 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Canno <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859530	859623	
==>118 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Canno <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860534	860627	
==>118 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Canno <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861539	861632	
==>118 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Canno <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572377	572551	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "A <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573286	573460	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "A <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574196	574370	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "A <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574999	575173	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "A <==
5	/Users/nnunley/parrot/tools/build/pbc2c.pl	7555	7661	
==>PROGRAM:
#

@ARGV = qw(-) unless @ARGV;

foreach (@ARGV) {
    compile_file($_)
}

exit 0;

__END__

=begin <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15472	15571	
==>ap { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair unary -, functions, etc...
		@stream=convert_ <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15834	15933	
==>ap { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair unary -, functions, etc...
		@stream=convert_ <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16361	16460	
==>ap { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair unary -, functions, etc...
		@stream=convert_ <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16985	17084	
==>ap { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair unary -, functions, etc...
		@stream=convert_ <==
5	/Users/nnunley/parrot/config/init/hints.pm	17	105	
==>001-2003, The Perl Foundation.
# $Id: /parrot/config/init/hints.pm 19593 2006-05-30T02:28 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258295	258626	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259238	259569	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260089	260420	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260941	261272	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261793	262124	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "" <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	1697	1801	
==>ow write
			keys
		);

sub dumpq {
	print "Upcoming: $type[0] $syms[0]\n";
	print "Current : $type[1] $sy <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3105	3201	
==>type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have anything on <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4863	4959	
==>type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have anything on <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7790	7886	
==>type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have anything on <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8646	8742	
==>type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have anything on <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732220	732492	
==>L)({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732966	733238	
==>L)({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	8306	8467	
==>();
    if (@sub && $sub[0] ne '') {
        if ($op->minlen() == 0) {
            return ('', @sub);
        } else {
            return @sub;
        }
    } el <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2063	2161	
==>{'Indent'} }
sub   end_over_text    { --$_[0]{'Indent'} }
sub   end_over_block   { --$_[0]{'Indent' <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1631	1729	
==>{'Indent'} }
sub   end_over_text    { --$_[0]{'Indent'} }
sub   end_over_block   { --$_[0]{'Indent' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504072	504403	
==>{{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "F <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504927	505258	
==>{{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "F <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505782	506113	
==>{{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "F <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506636	506967	
==>{{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "F <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507491	507822	
==>{{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "F <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492302	492565	
==>NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493062	493325	
==>NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499035	499298	
==>NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499797	500060	
==>NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	1353	1467	
==>my %contents = @_;
    my @contents = ();
    my $dist = Parrot::Distribution->new;
    
    if ( exists $contents{ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18440	18540	
==>eturn;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_gener <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19153	19253	
==>eturn;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_gener <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19641	19741	
==>eturn;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_gener <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20130	20230	
==>eturn;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_gener <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20619	20719	
==>eturn;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_gener <==
5	/Users/nnunley/parrot/tools/build/ops2c.pl	13295	13408	
==>= ${bs}op_lib.op_info_table;
    /* store full names */
    for (i = 0; i < ${bs}op_lib.op_count; i++)
        sto <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	10	110	
==>er.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subjec <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	12	112	
==>er.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subjec <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	9	109	
==>er.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subjec <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	8	108	
==>er.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subjec <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404047	404344	
==>{
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404958	405255	
==>{
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405870	406167	
==>{
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406782	407079	
==>{
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	6048	6229	
==>n rule $rule->{'name'}\n";
                } else {
                    $has_push = 1;
                }
            } else {
                die "Invalid value for push in rule $rul <==
5	/Users/nnunley/parrot/config/auto/gcc.pm	3171	3308	
==>t a previous
            #   declaration -Wmissing-noreturn
            # ? -Wredundant-decls
            #    Warn if anything is declare <==
5	/Users/nnunley/parrot/config/init/hints/os2.pm	466	588	
==>long",
        nv       => "double",
        opcode_t => "long",
        ccflags  => "-I. -fno-strict-aliasing -mieee-fp -I <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19198	19301	
==>ub
#line 109 "lib/Regex/Grammar.y"
{ return op('alternate' => [ $_[1], $_[3] ]); }
	],
	[#Rule 10
		 'ex <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	867	963	
==>ft, 'Jako::Construct::Expression::Value');
  confess "Op is not scalar!" if ref $op;
  confess "R <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	879	975	
==>ft, 'Jako::Construct::Expression::Value');
  confess "Op is not scalar!" if ref $op;
  confess "R <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818252	818350	
==>* arbitrary branch opcodes too. While it's a bit of overkill,\n   * we don't have an opcode annotat <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591364	591451	
==>line 325 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592574	592661	
==>line 325 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593784	593871	
==>line 325 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594995	595082	
==>line 325 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854381	854625	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855269	855513	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856158	856402	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857047	857291	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20085	20211	
==>' => 13,
			'_if_then' => 14,
			'stat' => 7
		}
	},
	{#State 58
		DEFAULT => -35,
		GOTOS => {
			'_elseif_star' => 11 <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	1063	1172	
==>="COMMON";
			$common{$var}=1;
		}

	}
}

sub parse_shared {		# Keyword only
	feedme();
	$loop=0;
	while($type <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072605	1072708	
==>cause we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary * <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074790	1074893	
==>cause we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary * <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076975	1077078	
==>cause we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary * <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079161	1079264	
==>cause we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary * <==
5	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1322	1591	
==>= time_hires();           # time N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DO <==
5	/Users/nnunley/parrot/examples/mops/mops.pl	1322	1591	
==>= time_hires();           # time N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DO <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22615	22720	
==>el"]);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$label");
  $self- <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23116	23221	
==>el"]);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$label");
  $self- <==
5	/Users/nnunley/parrot/lib/Parrot/Test.pm	4919	5010	
==>cted result is false.

=item C<example_output_is( $example_f, $expected, @todo )>

Determine <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2843	2950	
==>es => { kind => 'infix', name => $op } });
    $left->sax($handler);
    $right->sax($handler);
    $handler <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3517	3624	
==>es => { kind => 'infix', name => $op } });
    $left->sax($handler);
    $right->sax($handler);
    $handler <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3607	3714	
==>es => { kind => 'infix', name => $op } });
    $left->sax($handler);
    $right->sax($handler);
    $handler <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5392	5493	
==>es => { kind => 'infix', name => $op } });
  $left->sax($handler);
  $right->sax($handler);
  $handler <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3455	3556	
==>es => { kind => 'infix', name => $op } });
  $left->sax($handler);
  $right->sax($handler);
  $handler <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392671	393119	
==>i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 456,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic",
                              "ic"
                            ],
                  "BOD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284865	285172	
==>}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285742	286049	
==>}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286619	286926	
==>}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	2710	2836	
==>') {
        return "lt $a, $b, $where";
    } elsif ($cond eq '<=') {
        return "le $a, $b, $where";
    } elsif ($cond e <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30347	30455	
==>h terminal>>},
						  Parse::RecDescent::_tracefirst($text))
							if defined $::RD_TRACE;').'
			last;
		} <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32547	32655	
==>h terminal>>},
						  Parse::RecDescent::_tracefirst($text))
							if defined $::RD_TRACE;').'
			last;
		} <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28272	28379	
==>h terminal>>},
						  Parse::RecDescent::_tracefirst($text))
					if defined $::RD_TRACE;').'

			last;
		} <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7098	7188	
==>.= <<'PIR'
inc stack_depth 
${DEST0} = "$"
${STEMP0} = ${LOADTYPE}["reg_type_short"]
${DEST <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4920	5010	
==>.= <<'PIR'
inc stack_depth 
${DEST0} = "$"
${STEMP0} = ${LOADTYPE}["reg_type_short"]
${DEST <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080571	1080732	
==>new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081636	1081797	
==>new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082701	1082862	
==>new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083767	1083928	
==>new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0, <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3360	3463	
==>*?[^\\])\$/) { # Double-quote with an unescaped '$'.
      $string = substr($string, 1, -1); # Without t <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7262	7381	
==>a_count'};
        
        $self->_ponder_paragraph_buffer();
         # by now it's safe to consider the previous para <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7880	7994	
==>a_count'};
          $self->_ponder_paragraph_buffer();
           # by now it's safe to consider the previous para <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	8237	8347	
==>a_count'};
        $self->_ponder_paragraph_buffer();
         # by now it's safe to consider the previous para <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	5916	6022	
==>a_count'};
      $self->_ponder_paragraph_buffer();
       # by now it's safe to consider the previous para <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	62615	62708	
==>al Perl identifier.

=item C<Did not find expected opening bracket at %s>

C<extract_codeblock <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39057	39309	
==>eter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39922	40174	
==>eter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40769	41021	
==>eter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41617	41869	
==>eter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	14508	14611	
==>t()
    try_length = eh.get_try_length()
    if try_offset != pc goto NOT_TRY_START
    gen_pir = concat <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072036	1072148	
==>xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074221	1074333	
==>xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076406	1076518	
==>xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078592	1078704	
==>xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	12626	12737	
==>lf = shift;
    my ($name, $tree) = @{ $self->{args} };
    my $expr = $tree->render;
    if ($name eq 'default' <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	7771	7935	
==>oin(", ", map { ref($_) ? $_->{label} : $_ } @{ $_->{args} || [] });
            }
        } @_;
    } else {
        map {
            my $str;
            if ($_-> <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084709	1084796	
==>e 163 \"src/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085762	1085849	
==>e 163 \"src/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086815	1086902	
==>e 163 \"src/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087869	1087956	
==>e 163 \"src/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{ <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21449	21578	
==>',
        '..' => 'concat',
    );
    my @opcodes = ();
    my $result = new_tmp( $parser, 'pmc', $type{$op} );
    push @o <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072736	1072851	
==>= -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074921	1075036	
==>= -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077106	1077221	
==>= -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079292	1079407	
==>= -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344527	344784	
==>\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345769	346026	
==>\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347011	347268	
==>\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348254	348511	
==>\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351481	351669	
==>E" => 409,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 190 \"src/ops/io.ops\"\n  PIO_printf(interprete <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516202	516467	
==>JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inli <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516940	517205	
==>JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inli <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517679	517944	
==>JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inli <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518417	518682	
==>JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inli <==
5	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4214	4301	
==>$self->file_and_directory_paths;
}

=item C<file_exists_with_name($name)>

Returns wheth <==
5	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	3765	3869	
==>check_function_definitions {
    # In function definitions, the name starts in column 0, with the
    # r <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080490	1080583	
==>eption(1, \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(inte <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081555	1081648	
==>eption(1, \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(inte <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082620	1082713	
==>eption(1, \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(inte <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083686	1083779	
==>eption(1, \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(inte <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072729	1072847	
==>x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074914	1075032	
==>x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077099	1077217	
==>x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079285	1079403	
==>x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{ <==
5	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10868	10967	
==>_fallback = ();
  my($k,$v);
  while( ($k,$v) = each %Latin1Code_to_fallback) {
    $Latin1Char_to_f <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5615	5705	
==>>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans: <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3191	3281	
==>>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans: <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4620	4710	
==>>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans: <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4597	4687	
==>>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans: <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3981	4071	
==>>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336986	337362	
==>,
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 394,
                  "ARGS" => [
                              "i",
                              "p"
                            ],
                  "BODY" => "#li <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30713	30858	
==>'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		D <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40063	40208	
==>'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		D <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41690	41835	
==>'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		D <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1382	1488	
==>} elsif($token->is_end) {
      ...access $token->tagname...
    
    }
  }

(Also see L<Pod::Simple::PullP <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	36850	36940	
==>';

See also: C<"extract_quotelike"> and C<"extract_codeblock">.


=head2 C<extract_tagged> <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28517	28641	
==>$self = $self->{const};
        $hout .= "\n/* Const */\n";
        $hout .= $self->hdecls();
    }
    $hout .= <<"EOH";

#e <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072725	1072845	
==>f ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = - <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074910	1075030	
==>f ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = - <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077095	1077215	
==>f ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = - <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079281	1079401	
==>f ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = - <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	282251	282431	
==>> "#line 908 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283096	283276	
==>> "#line 908 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283941	284121	
==>> "#line 908 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/PMC.pm	1416	1515	
==>Array => 66,
	ResizablePMCArray => 67,
	ResizableStringArray => 68,
	Slice => 69,
	Super => 70,
	Und <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22201	22299	
==>$return,0]);
  $self->_add_inst("DONE_$label");
  return $return;
}

sub _op_odd_p {
  my ($self,$n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718133	718407	
==>preter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719065	719339	
==>preter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720264	720538	
==>preter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721464	721738	
==>preter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
5	/Users/nnunley/parrot/config/init/hints.pm	537	649	
==>e );

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    my $hints <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926614	926904	
==>INFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928084	928374	
==>INFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929554	929844	
==>INFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931025	931315	
==>INFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
5	/Users/nnunley/parrot/tools/dev/lib_deps.pl	9362	9485	
==>projf      complex.h
cprojl      complex.h
creal       complex.h
crealf      complex.h
creall      complex.h
csin        com <==
5	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	6855	6972	
==>op off the end and unshift onto the beginning
    $P1 = pop op2
    unshift op2, $P1
    inc op1
    goto neg

done:
n <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15498	15594	
==>expr=fixup(@expr);		# Repair unary -, functions, etc...
		@stream=convert_to_rpn(@expr);	# Get in <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15860	15956	
==>expr=fixup(@expr);		# Repair unary -, functions, etc...
		@stream=convert_to_rpn(@expr);	# Get in <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16387	16483	
==>expr=fixup(@expr);		# Repair unary -, functions, etc...
		@stream=convert_to_rpn(@expr);	# Get in <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	17011	17107	
==>expr=fixup(@expr);		# Repair unary -, functions, etc...
		@stream=convert_to_rpn(@expr);	# Get in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958206	958426	
==>078,
                  "ARGS" => [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 581 \"src/ops/string.ops\"\n  INTVAL n = Parrot_en <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151145	151435	
==>@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152123	152413	
==>@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172373	172663	
==>@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173351	173641	
==>@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	229682	229860	
==>" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge_num",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i" <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	2478	2599	
==>q '&' or $cur eq '%') {
			append;
			fetch;
		}
		emit("BASE");
		goto MAIN;
	}
	if ($cur eq ">" or $cur eq "<" or $cur e <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3054	3156	
==>aining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${S <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4812	4914	
==>aining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${S <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1976	2078	
==>aining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${S <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3228	3330	
==>aining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${S <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1438	1544	
==>iler->indent;
      $self->SUPER::compile($compiler);
      $compiler->outdent;
      $compiler->emit(".end <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1794	1900	
==>iler->indent;
      $self->SUPER::compile($compiler);
      $compiler->outdent;
      $compiler->emit(".end <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1235	1341	
==>iler->indent;
      $self->SUPER::compile($compiler);
      $compiler->outdent;
      $compiler->emit(".end <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1543	1649	
==>iler->indent;
      $self->SUPER::compile($compiler);
      $compiler->outdent;
      $compiler->emit(".end <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	641	741	
==>iler->indent;
    $self->SUPER::compile($compiler);
    $compiler->outdent;
    $compiler->emit(".end <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170229	170426	
==>p",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 211 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634567	634664	
==>ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exce <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635685	635782	
==>ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exce <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636803	636900	
==>ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exce <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637922	638019	
==>ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exce <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29229	29372	
==>> 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"<=" => 8 <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41335	41478	
==>> 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"<=" => 8 <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44481	44624	
==>> 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"<=" => 8 <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	8158	8276	
==>rce");
  } else {  # It's a filename!
    DEBUG and print "$self 's source is filename $_[0]\n";
    {
      local *POD <==
5	/Users/nnunley/parrot/tools/build/jit2c.pl	13249	13351	
==>end";
    }

    unless($precompiled){
    print JITCPU "\nstatic $jit_fn_retn\n" .$core_opfunc[$i] . $ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323983	324256	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324775	325048	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325568	325841	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326358	326631	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327159	327432	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8", <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	38328	38444	
==>graph as such because the containing =for ($fors[-1][1]{'target'}) is a resolver\n";
            }
          } else { <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1277	1387	
==>f);

  return $self;
}


#
# ACCESSORS:
#

sub value { return shift->{VALUE}; }
sub cond  { return shift->{COND <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	711	805	
==>t of this class.

This is a subclass of L<Pod::Simple::PullParserToken> and inherits all its me <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1137	1231	
==>t of this class.

This is a subclass of L<Pod::Simple::PullParserToken> and inherits all its me <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	617	711	
==>t of this class.

This is a subclass of L<Pod::Simple::PullParserToken> and inherits all its me <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	3399	3505	
==>lass, $info) = each %classes) {
	next if $info->{flags}->{noinit};
        $cout .= <<"EOC";
    Parrot_Int <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769961	770061	
==>| {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770814	770914	
==>| {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771667	771767	
==>| {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772521	772621	
==>| {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16387	16505	
==>lf->{vtable}{methods}} ) {
        my $meth = $method->{meth};
        next if $meth eq 'class_init';
        if ($self <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	12220	12478	
==>r, $options);
  }
}


1;

__END__

###############################################################################
###############################################################################

=head1 VERSION

$Id: /parrot/languages/jako/lib/Jako/Construct/ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218563	218814	
==>E" => 256,
                  "ARGS" => [
                              "p",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 469 \"src/ops/cmp.ops\"\n  if (string_co <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	47974	48215	
==>s
        |
        (               # $5: stuff containing no start-codes or end-codes
          (?:
            [^A-Z\ >]+
            |
            (?:
              [A-Z](?!<)
            )
            |
            (?:
              \ (?! <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48600	48718	
==>LAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_BOUNDS_FLAG); }\n  {{=0,+=2}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49390	49508	
==>LAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_BOUNDS_FLAG); }\n  {{=0,+=2}};\n",
                  " <==
5	/Users/nnunley/parrot/config/gen/PodText.pm	1872	1998	
==>ing to the end of the file.
        seek $fh, 0, 0;
        print $fh $text;
        close($fh) or die "can not close file $pla <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332572	332666	
==>c_new(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all r <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333850	333944	
==>c_new(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all r <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335128	335222	
==>c_new(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all r <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336407	336501	
==>c_new(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all r <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842633	842950	
==>{
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843510	843827	
==>{
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844388	844705	
==>{
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845266	845583	
==>{
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072180	1072316	
==>r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074365	1074501	
==>r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076550	1076686	
==>r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078736	1078872	
==>r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	28589	28689	
==>pop @stack)->[1];
	print <<EOC;
	$x\["_message"\] = "Foo"
EOC
	$throw = "throw $x # TODO create, args <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926217	926341	
==>{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927687	927811	
==>{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929157	929281	
==>{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930628	930752	
==>{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_ <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	22253	22375	
==>pos($$textref) < length($$textref))
		{
			my $field;
			my @bits;
			foreach my $i ( 0..$#func )
			{
				my $pref;
				$f <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080584	1080859	
==>rpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081649	1081924	
==>rpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082714	1082989	
==>rpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083780	1084055	
==>rpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
5	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	15950	16056	
==>NEXT")      if (($jumps) && ($fixedargs[@fixedargs - 1]) && ($fixedargs[@fixedargs - 1] eq 'i'));
        o <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240212	240490	
==>{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241160	241438	
==>{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242108	242386	
==>{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243057	243335	
==>{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	37103	37246	
==>pcodes2, @{ $nil->[1] };
        push @opcodes2, new LexDir( $parser,
            'prolog' => 1,
            'result' => $idf,
            ' <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1357	1473	
==>rn shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $block = $self <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1705	1821	
==>rn shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $block = $self <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1841	1957	
==>rn shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $block = $self <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1484	1600	
==>rn shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $block = $self <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28003	28105	
==>ans\n";
		}

		# Finally, call post_op and append code it generates.
		my $post_op = $srm->post_op($rul <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852643	852947	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":bas <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855094	855398	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":bas <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855983	856287	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":bas <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856872	857176	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":bas <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	9798	9901	
==>URR] eq "STMT" or $type[CURR] eq "COMP" or $type[CURR] eq "COMM") {
			last;
		}
		last if (iskeyword($s <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	4038	4161	
==>rata sections in the world, it was
          ## least-pessimal to abort processing the file.  But now we can
          ## ju <==
5	/Users/nnunley/parrot/tools/build/dynclasses.pl	5065	5169	
==>EXT", $dest) or die "Copy $_$LOAD_EXT failed ($?)\n";

        # Execute permissions on libraries is espe <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	5276	5380	
==>EXT", $dest) or die "Copy $_$LOAD_EXT failed ($?)\n";

        # Execute permissions on libraries is espe <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	5944	6038	
==>@@@@@@@@
#
# And now directives (not targets)

sub accept_directive_as_verbatim  { shift->_acce <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	52684	52778	
==>ible, by repeatedly applying each of the specified extractors
to the remainder of the string. T <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3650	3739	
==>${STACK$register_num} = pop lazy_moves

# Decrement stack height.
PRE_OP_${CURIC}_CONT_$re <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	1203	1370	
==>red::share($_[0]);

            if( $type eq 'HASH' ) {
                %{$_[0]} = %$data;
            }
            elsif( $type eq 'ARRAY' ) {
                @{$_[0] <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	36128	36227	
==>|| $self;
	($max, $min) = ( $min, $max) if ($max<$min);

	my $desc;
	if ($subrule=~/\A_alternation_\ <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31270	31366	
==>th) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $line, $out_name)>

Retur <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35901	35997	
==>th) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $line, $out_name)>

Retur <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39890	39986	
==>th) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $line, $out_name)>

Retur <==
5	/Users/nnunley/parrot/lib/Test/Simple.pm	4663	4760	
==>t status).

Because VMS's exit codes are much, much different than the rest of the
universe, and p <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381274	381566	
==>iled (32bit)\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382286	382578	
==>iled (32bit)\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383298	383590	
==>iled (32bit)\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384311	384603	
==>iled (32bit)\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	20909	21049	
==>[0],
            'result' => $result,
        );
    }
    return [ $result, \@opcodes ];
}

sub BuildBinop {
    my ( $parser, $expr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061149	1061441	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062689	1062981	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063558	1063850	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064428	1064720	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065301	1065593	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  " <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	10983	11095	
==>s_ref}, "PMC *t_$temp_num;";
        push @{$extra_preamble_ref},
             "t_$temp_num = GET_NCI_P($reg_num) <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	9995	10106	
==>s_ref}, "PMC *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_P($reg_num) <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	10387	10498	
==>s_ref}, "PMC *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_P($reg_num) <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	11586	11697	
==>s_ref}, "PMC* t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_P($reg_num) <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	13150	13261	
==>s_ref}, "PMC *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_P($reg_num) <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	7015	7120	
==>accept_directives(@_) };

sub unaccept_directives {
  my $this = shift;
  foreach my $d (@_) {
    next un <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344412	344502	
==>ng_cstring_free(mode); */\n  /* string_cstring_free(path); */\n  if(!{{\@1}} || !PMC_struct <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345654	345744	
==>ng_cstring_free(mode); */\n  /* string_cstring_free(path); */\n  if(!{{\@1}} || !PMC_struct <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346896	346986	
==>ng_cstring_free(mode); */\n  /* string_cstring_free(path); */\n  if(!{{\@1}} || !PMC_struct <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348139	348229	
==>ng_cstring_free(mode); */\n  /* string_cstring_free(path); */\n  if(!{{\@1}} || !PMC_struct <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680770	681064	
==>});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681546	681840	
==>});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682320	682614	
==>});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683095	683389	
==>});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  " <==
5	/Users/nnunley/parrot/languages/urm/urm-old.pl	587	690	
==>register{$1} = 0 unless defined $register{$1}}
    if ($line =~ /out\((r\d+)/) { $outreg = $1 }
    if ( <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	12231	12489	
==>);
  }
}


1;

__END__

###############################################################################
###############################################################################

=head1 VERSION

$Id: /parrot/languages/jako/lib/Jako/Construct/Block.pm 19 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586613	586705	
==>" => "#line 314 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587799	587891	
==>" => "#line 314 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588985	589077	
==>" => "#line 314 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590172	590264	
==>" => "#line 314 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262721	263013	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263667	263959	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264520	264812	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265374	265666	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266228	266520	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/Configure.pm	4233	4362	
==>rbosity
        if (defined $verbose_step) {

            # by step number
            if ($verbose_step =~ /^\d+$/ && $n == $verb <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926061	926190	
==>\n  switch ({{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927531	927660	
==>\n  switch ({{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929001	929130	
==>\n  switch ({{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930472	930601	
==>\n  switch ({{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680785	681076	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681561	681852	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682335	682626	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683110	683401	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "" <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11650	11758	
==>rx_match>)");
}

sub output_call_setup {
    my ($self, $name, $uid) = @_;
    return ".local pmc $uid";
}

s <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	15593	15708	
==>h @ops, aop('pushint', [ $i ]);
        push @ops, aop('goto', [ $next ]);
    }

    push @ops, $back => aop('popin <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18500	18592	
==>constant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{child <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19213	19305	
==>constant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{child <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19701	19793	
==>constant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{child <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20190	20282	
==>constant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{child <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20679	20771	
==>constant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{child <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	3556	3674	
==>t unless $children[0]->{name} eq 'seq';
            my ($S0, @Srest) = @{ $children[0]->{args} };
            last unle <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3084	3184	
==>ir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4842	4942	
==>ir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7770	7869	
==>ir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8626	8725	
==>ir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we <==
5	/Users/nnunley/parrot/editor/kate_syntax.pl	2586	2683	
==>pmcsh_file" or
  die "Can't read $parrot/$parrot_pmcsh_file!";
while (<TYPES>) {
    next unless ( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777027	777114	
==>=> "#line 382 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(interpreter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777936	778023	
==>=> "#line 382 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(interpreter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778845	778932	
==>=> "#line 382 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(interpreter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779755	779842	
==>=> "#line 382 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(interpreter <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	38514	38678	
==>//s;
            DEBUG > 3 and
             print "     Quotes removed: ", pretty(@section_name), "\n";
          } else {
            DEBUG > 3 and
             pri <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	17351	17456	
==>failed dynalt, advancing from dynalt[%<$counter>]/%<$N>\n"),
                 aop('add', [ $counter, 1 ]), <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	32519	32618	
==>d substring from the
	# beginning of $text, optionally after some whitespace
	# (note the list conte <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	10884	10982	
==>}
sub pushargs {
	my($code,$optype,$work)=@_;

	return unless @$work;
	my @args=();

	while($$work[ <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	5668	5764	
==>tive matching
# operations (eg matching single characters or character ranges) won't
# have to do <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510594	510859	
==>FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 588,
                  "ARGS" => [ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	4312	4435	
==>p()
#
# Dump the tokens.
#

sub dump
{
  my $self = shift;


  while (1) {
    my $tok = $self->forth;

    printf STDERR "% <==
5	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	509	615	
==>tr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBUG and print "++ $_[1]\n";
  
  print $f <==
5	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	508	614	
==>tr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBUG and print "++ $_[1]\n";
  
  print $f <==
5	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	703	806	
==>tr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBUG and print "++ $_[1]\n";
  print $f <==
5	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1077	1193	
==>sg) = @_;

    $msg ||= ".\n";

    if ( exists $parser->YYData->{nb_info} ) {
        $parser->YYData->{nb_info <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72950	73052	
==>"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74552	74654	
==>"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76154	76256	
==>"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77757	77859	
==>"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{\@ <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	32507	32663	
==>') )
    {
        push @opcodes1, new AssignOp( $parser,
            'result' => $state,
            'arg1'   => $nil->[0],
        );
        push @r <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926203	926322	
==>FO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927673	927792	
==>FO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929143	929262	
==>FO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930614	930733	
==>FO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18920	19012	
==>_0,$temp_1,"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$r <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19408	19500	
==>_0,$temp_1,"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$r <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19896	19988	
==>_0,$temp_1,"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$r <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20385	20477	
==>_0,$temp_1,"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$r <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20874	20966	
==>_0,$temp_1,"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$r <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062591	1062852	
==>eter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063460	1063721	
==>eter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064330	1064591	
==>eter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065203	1065464	
==>eter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066077	1066338	
==>eter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/tools/build/jit2c.pl	9004	9092	
==>arrot_exec_add_text_rellocation_func(jit_info->objfile, jit_info->native_ptr, f); \
    e <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	24062	24191	
==>}})[0];
      my $maps = (keys %{$self->{flags}{maps}})[0];
      $cout .= <<"EOC";

        {
            /* Register this PMC as <==
5	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	972	1068	
==>ges/tcl/t

    my $path_to_parrot = $INC{"Parrot/Config.pm"};
    $path_to_parrot =~ s:/lib/Parro <==
5	/Users/nnunley/parrot/lib/Pod/Escapes.pm	4849	4969	
==>5,
 'ouml'     , 246,
 'divide'   , 247,
 'oslash'   , 248,
 'ugrave'   , 249,
 'uacute'   , 250,
 'ucirc'    , 251,
 'uu <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32803	32917	
==>le->{'typeinfo'}, $mv, 
			    "typeinfo for rule $rule->{'name'}");
		    $pir .= "\n" if $pir !~ /\n$/;
		    $pi <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26807	26909	
==>le->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir .= "\n" if $pir !~ /\n$/;
		$pi <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28523	28625	
==>le->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir .= "\n" if $pir !~ /\n$/;
		$pi <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36505	36607	
==>le->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir .= "\n" if $pir !~ /\n$/;
		$pi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374032	374140	
==>ps\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374915	375023	
==>ps\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375798	375906	
==>ps\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376682	376790	
==>ps\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	1092	1190	
==>and returns it if it finds it.
The search is only performed once.

The criterion is that there shou <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11086	11262	
==>h my $key ( @{$var} ) {
                        push @opcodes, @{ $key->[1] };
                        my $result2 = new_tmp( $parser, 'pmc' );
                        push @ <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9317	9481	
==>h my $key ( @{$var} ) {
                    push @opcodes, @{ $key->[1] };
                    my $result2 = new_tmp( $parser, 'pmc' );
                    push @ <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8309	8449	
==>h my $key ( @{$var} ) {
            push @opcodes, @{ $key->[1] };
            my $result2 = new_tmp( $parser, 'pmc' );
            push @ <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17531	17659	
==>h my $key ( @{$var} ) {
        push @opcodes, @{ $key->[1] };
        my $result2 = new_tmp( $parser, 'pmc' );
        push @ <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	23372	23478	
==>ernal_FLAG);
        vt_clone->does_str = string_make(interp,
            "$does", @{[length($does)]}, "asc <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	223	319	
==>nal/Else.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

packag <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067197	1067369	
==>3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068383	1068555	
==>3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069569	1069741	
==>3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070756	1070928	
==>3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0, <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	525	630	
==>ed_pat
			       ) ] );

Exporter::export_ok_tags('ALL');

# PROTOTYPES

sub _match_bracketed($$$$$$);
sub <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072229	1072365	
==>n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074414	1074550	
==>n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076599	1076735	
==>n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078785	1078921	
==>n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\ <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	1763	1854	
==>cs/embed.pod'),
		),
		$self->new_group('Development Documentation', '', 'docs/dev'),
		$sel <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39120	39349	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEX <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41680	41909	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEX <==
5	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7193	7299	
==>$indent) {
                error($file, $line, "Improper indenting for \"$_\"\n(should be \"#$indent$2\" be <==
5	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7500	7606	
==>$indent) {
                error($file, $line, "Improper indenting for \"$_\"\n(should be \"#$indent$2\" be <==
5	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7858	7964	
==>$indent) {
                error($file, $line, "Improper indenting for \"$_\"\n(should be \"#$indent$2\" be <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83253	83629	
==>,
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 104,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#li <==
5	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	1886	2009	
==>an object method.

=cut

sub args
{
    my $class = shift;
    $class = ref $class || $class;
    {
        no strict 'refs' <==
5	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	2373	2475	
==>es indicates the 'languages/t/harness' wants a list of test files
        my $dir   = File::Spec->catfi <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1097	1191	
==>($self->ident->kind eq 'var') and ($self->ident->scope eq 'global')) {
    my $pmc_type = $self <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1091	1185	
==>($self->ident->kind eq 'var') and ($self->ident->scope eq 'global')) {
    my $pmc_type = $self <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262858	263195	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263804	264141	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264657	264994	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265511	265848	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266365	266702	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	866659	866955	
==>> "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867624	867920	
==>> "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868590	868886	
==>> "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869556	869852	
==>> "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	3268	3386	
==>fore you can call get_token');
       
      DEBUG and print "$self 's source is filehandle $fh.\n";
      # Read those <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27470	27580	
==>lation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}" <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29937	30047	
==>lation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}" <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33355	33465	
==>lation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}" <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34609	34719	
==>lation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}" <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37019	37129	
==>lation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765844	766115	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":ba <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766696	766967	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":ba <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767549	767820	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":ba <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768402	768673	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":ba <==
5	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	443	539	
==>ount = $self->{builder}->current_test + 1;

    my $lang_f    = Parrot::Test::per_test('.apl',$co <==
5	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1980	2203	
==>/^\\a//
                and $str .= "\a",      # bell
                last;
            s/^\\b//
                and $str .= "\b",      # backspace
                last;
            s/^\\f//
                and $str . <==
5	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3494	3717	
==>/^\\a//
                and $str .= "\a",      # bell
                last;
            s/^\\b//
                and $str .= "\b",      # backspace
                last;
            s/^\\f//
                and $str . <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	53724	53856	
==>_[3] );
        }
	],
	[#Rule 63
		 'exp', 3,
sub
#line 361 "Lua\lua51.yp"
{
            BuildBinop( $_[0], $_[1], $_[2], $_[ <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7260	7377	
==>0}
PIR
	}

	return $pir;
}

sub post_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If the re <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5082	5199	
==>0}
PIR
	}

	return $pir;
}

sub post_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If the re <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202791	203085	
==>2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203722	204016	
==>2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204653	204947	
==>2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210338	210632	
==>2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211318	211612	
==>2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206519	206781	
==>reter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207461	207723	
==>reter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208401	208663	
==>reter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209342	209604	
==>reter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
5	/Users/nnunley/parrot/config/auto/aio.pm	76	169	
==>io.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/aio.pm - Test for AI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223636	223899	
==>reter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parro <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224578	224841	
==>reter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parro <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225518	225781	
==>reter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parro <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226459	226722	
==>reter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parro <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9566	9686	
==>) {
	    my $name = lc $self->{class};
	    $cout .= <<"EOC";
#include "$name.str"
EOC
    }
    "$cout\n";
}


=item C<f <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813971	814209	
==>"LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_cor <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814593	814831	
==>"LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_cor <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	815221	815459	
==>"LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_cor <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822315	822405	
==>ong\");\n  if (entry->entry_type != STACK_ENTRY_INT) {\n    internal_exception(ERROR_BAD_ST <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823383	823473	
==>ong\");\n  if (entry->entry_type != STACK_ENTRY_INT) {\n    internal_exception(ERROR_BAD_ST <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062584	1062823	
==>interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063453	1063692	
==>interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064323	1064562	
==>interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065196	1065435	
==>interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066070	1066309	
==>interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072168	1072305	
==>{\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074353	1074490	
==>{\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076538	1076675	
==>{\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078724	1078861	
==>{\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\ <==
5	/Users/nnunley/parrot/lib/Test/Simple.pm	4952	5045	
==>ately, I can't differentiate any further.


=head1 NOTES

Test::Simple is B<explicitly> tested <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356021	356222	
==>erpreter), s->strstart, s->bufused);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544319	544429	
==>(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n wh <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545655	545765	
==>(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n wh <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546991	547101	
==>(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n wh <==
5	/Users/nnunley/parrot/tools/dev/parrot_api.pl	4110	4205	
==>s defined $Obj;
$Obj = 'blib/lib/libparrot.a' unless defined $Obj;
die "$0: '$Obj': No such file <==
5	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4412	4590	
==>'blib\\lib',
            ccflags              => $ccflags,
            ccwarn               => '',
            has_dynamic_linking  => 1
        );

        # 'link' needs to be x <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5710	5799	
==>ederef>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot::OpTrans::Compiled>

=back

=cu <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3286	3375	
==>ederef>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot::OpTrans::Compiled>

=back

=cu <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	3014	3103	
==>ederef>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot::OpTrans::Compiled>

=back

=cu <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	6466	6555	
==>ederef>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot::OpTrans::Compiled>

=back

=cu <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	5069	5179	
==>my $stmt (reverse @output2) {
	$stmt->{'next'} = $next;
	$next = $stmt;
    }

    # Push first statement on th <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176099	176198	
==>> "#line 240 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177003	177102	
==>> "#line 240 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177907	178006	
==>> "#line 240 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178812	178911	
==>> "#line 240 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440012	440374	
==>e_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 504,
                  "ARGS" => [
                              "ic", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284817	284962	
==>\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285694	285839	
==>\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286571	286716	
==>\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34846	34966	
==>ly a PROPER item-number element is allowed
             #  to have a number attribute.
          } elsif($item_type eq 't <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8214	8342	
==>{
        die "Must always have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg = <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8996	9124	
==>{
        die "Must always have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg = <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7867	7995	
==>{
        die "Must always have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg = <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8656	8784	
==>{
        die "Must always have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg = <==
5	/Users/nnunley/parrot/config/inter/pmc.pm	3905	4006	
==>t of libraries for link line in Makefile
    my $slash = $conf->data->get('slash');
    (my $TEMP_pmc_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857958	858275	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858961	859278	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859965	860282	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860969	861286	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	8924	9041	
==>check', [ 1, $lastback ])
      unless ($op->{nocheck});

    my @debugging;
    if ($self->{DEBUG}) {
        my $old <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378324	378491	
==>"ic",
                              "i"
                            ],
                  "BODY" => "#line 432 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634719	634812	
==>enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class;\n  {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635837	635930	
==>enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class;\n  {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636955	637048	
==>enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class;\n  {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638074	638167	
==>enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class;\n  {{ <==
5	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	11321	11451	
==>lete_contents
{
    my $self = shift;

    foreach my $file ($self->files)
    {
        $file->delete;
    }
    
    foreach my $ <==
5	/Users/nnunley/parrot/tools/build/dynclasses.pl	7014	7113	
==>($src_stem, $dest_stem) = @_;

    $dest_stem ||= $src_stem;
    if (needs_build("$dest_stem$O", "$s <==
5	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5308	5407	
==>($src_stem, $dest_stem) = @_;

    $dest_stem ||= $src_stem;
    if (needs_build("$dest_stem$O", "$s <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	7225	7324	
==>($src_stem, $dest_stem) = @_;

    $dest_stem ||= $src_stem;
    if (needs_build("$dest_stem$O", "$s <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3863	3953	
==>priate type.
${DEST0} = "$"
${STEMP0} = ${LOADTYPE}["reg_type_short"]
${DEST0} = concat ${S <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606949	607147	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "getattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607852	608050	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "getattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608756	608954	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "getattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609663	609861	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "getattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	42367	42521	
==>k.\n";
          }
        }
        
        unshift @stack, $treelet->[$i]; # recurse
        next;
      } elsif($treelet->[$i][0] ne 'E') {
        uns <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404072	404369	
==>" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404983	405280	
==>" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405895	406192	
==>" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406807	407104	
==>" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	4207	4307	
==>P0[",$_+1,"]= \"$line\"\n";
	}
	print CODE<<FOO;
	\$P1["code"]= \$P0
	\$P1["step"]= 1   # Turn on ste <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73014	73115	
==>lass_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}}->vta <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74616	74717	
==>lass_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}}->vta <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76218	76319	
==>lass_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}}->vta <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77821	77922	
==>lass_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}}->vta <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	954	1048	
==>('', 'tools/build/vtable_h.pl'),
            $self->new_item('', 'tools/build/vtable_extend.pl' <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15505	15602	
==>xup(@expr);		# Repair unary -, functions, etc...
		@stream=convert_to_rpn(@expr);	# Get infix into <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15867	15964	
==>xup(@expr);		# Repair unary -, functions, etc...
		@stream=convert_to_rpn(@expr);	# Get infix into <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16394	16491	
==>xup(@expr);		# Repair unary -, functions, etc...
		@stream=convert_to_rpn(@expr);	# Get infix into <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	17018	17115	
==>xup(@expr);		# Repair unary -, functions, etc...
		@stream=convert_to_rpn(@expr);	# Get infix into <==
5	/Users/nnunley/parrot/config/auto/headers.pm	351	447	
==>se Parrot::Configure::Step ':auto';
use Config;

$description = 'Probing for C headers';

@args = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500349	500641	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501087	501379	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501826	502118	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502564	502856	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503303	503595	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2059	2167	
==>>

Transforms the C<goto POP()> macro in an ops file into the relevant C
code.

=cut

sub goto_pop
{
    my ( <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2709	2817	
==>>

Transforms the C<goto POP()> macro in an ops file into the relevant C
code.

=cut

sub goto_pop
{
    my ( <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2432	2540	
==>>

Transforms the C<goto POP()> macro in an ops file into the relevant C
code.

=cut

sub goto_pop
{
    my ( <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2612	2720	
==>>

Transforms the C<goto POP()> macro in an ops file into the relevant C
code.

=cut

sub goto_pop
{
    my ( <==
5	/Users/nnunley/parrot/config/auto/jit.pm	83	176	
==>0320 2006-06-20T19:26:31.775154Z bernhard  $

=head1 NAME

config/auto/jit - JIT Capability

= <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	31	180	
==>itor;
{

    sub new {
        my $proto = shift;
        my $class = ref($proto) || $proto;
        my $self  = {};
        bless $self, $clas <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5683	5769	
==>item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot:: <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3259	3345	
==>item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot:: <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2987	3073	
==>item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot:: <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	6439	6525	
==>item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot:: <==
5	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	3199	3315	
==>ry rebuilds)
    if (-r $to) {
        my $from_sum = file_checksum($from, $ignorePattern);
        my $to_sum   = fi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381190	381284	
==>@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (32bit <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382202	382296	
==>@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (32bit <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383214	383308	
==>@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (32bit <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384227	384321	
==>@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (32bit <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4828	4931	
==>) {
      my $block = $self->current_block;

      my $ident = Jako::Construct::Expression::Value::Ident <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11319	11422	
==>) {
      my $block = $self->current_block;

      my $ident = Jako::Construct::Expression::Value::Ident <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11866	11969	
==>) {
      my $block = $self->current_block;

      my $ident = Jako::Construct::Expression::Value::Ident <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12409	12512	
==>) {
      my $block = $self->current_block;

      my $ident = Jako::Construct::Expression::Value::Ident <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22623	22725	
==>) {
      my $block = $self->current_block;
      my $ident = Jako::Construct::Expression::Value::Ident <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	14710	14807	
==>ype=>$whichop, line=>$line,
		  offset=> scalar(@{$self->{items}}) };
}

sub addscore
{
	my ( $sel <==
5	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	4474	4587	
==>error($file, $line, "Cuddled else (\"} else {\") found.");
        }
    }
}


# for now just try to catch glaring <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773435	773542	
==>vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774345	774452	
==>vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775255	775362	
==>vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776166	776273	
==>vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	41924	42018	
==>tine takes up to four optional arguments (the same set as
C<extract_tagged> except for the stri <==
5	/Users/nnunley/parrot/lib/Test/More.pm	29943	30080	
==>ype($e1);
            $type = 'DIFFERENT' unless _type($e2) eq $type;

            if( $type eq 'DIFFERENT' ) {
                push @Data <==
5	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	972	1105	
==>ode = Parrot::Test::run_command($cmd, CD => $self->{relpath},
                                           STDOUT => $out_f, STDERR => $ <==
5	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1013	1146	
==>ode = Parrot::Test::run_command($cmd, CD => $self->{relpath},
                                           STDOUT => $out_f, STDERR => $ <==
5	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	1130	1257	
==>ode = Parrot::Test::run_command( $cmd, 
						    CD     => $self->{relpath},
						    STDOUT => $out_f, 
						    STDERR => $ <==
5	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2063	2162	
==>ode = Parrot::Test::run_command($cmd, #CD => $self->{relpath},
					   STDOUT => $out_f, STDERR => $ <==
5	/Users/nnunley/parrot/lib/Parrot/Test.pm	24359	24521	
==>le($build_f));
                unlink $build_f;
                $builder->ok(0,$desc);
                return 0;
            }

        my $cfg = "src$PConfig{slas <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611192	611449	
==>_set_attr(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612095	612352	
==>_set_attr(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27700	27789	
==>tsep=$1 and ""/e and '
		. ($check->{itempos}? 'do {'.Parse::RecDescent::Production::incit <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29810	29899	
==>tsep=$1 and ""/e and '
		. ($check->{itempos}? 'do {'.Parse::RecDescent::Production::incit <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31907	31996	
==>tsep=$1 and ""/e and '
		. ($check->{itempos}? 'do {'.Parse::RecDescent::Production::incit <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717445	717709	
==>=> 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718376	718640	
==>=> 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719308	719572	
==>=> 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720507	720771	
==>=> 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	5307	5405	
==>own()
	end
ONOK_${ons}:
ON
	$i=1;
	for my $jumps (@onlab) {
		push @{$code{$seg}->{code}}, "\tne $r <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	10389	10525	
==>C
	    $names{$c} = 1;
	}
	else {
	    my $typ = $DEFVAR;
	    if (is_imag($c)) {
		$typ = '.Complex';
		$c = qq!"$c"!;
	    }
	    my $p <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044704	1044815	
==>.ops\"\n    Parrot_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045598	1045709	
==>.ops\"\n    Parrot_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046492	1046603	
==>.ops\"\n    Parrot_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047387	1047498	
==>.ops\"\n    Parrot_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73166	73280	
==>{\@4}}, F2DPTR(p));\n      PObj_get_FLAGS({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "L <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74768	74882	
==>{\@4}}, F2DPTR(p));\n      PObj_get_FLAGS({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "L <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76370	76484	
==>{\@4}}, F2DPTR(p));\n      PObj_get_FLAGS({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "L <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77973	78087	
==>{\@4}}, F2DPTR(p));\n      PObj_get_FLAGS({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "L <==
5	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	4717	4818	
==>of '<reg> = opcode' syntax where that syntax will
   eventually be prohibited.

Or not. =-)

=back

=h <==
5	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	4023	4121	
==>$self->path);
}

=item C<delete()>

Removes the instance from the cache, and undefines it.

=cut

s <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14779	14888	
==>urn $return;
}

sub _op_car {
  my ($self, $node) = @_;

  _num_arg ($node, 1, 'car');

  my $return = $self-> <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591625	591716	
==>\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592835	592926	
==>\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594045	594136	
==>\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595256	595347	
==>\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084866	1085203	
==>mental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085919	1086256	
==>mental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086972	1087309	
==>mental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012990	1013281	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "err",
                  "FLAGS" => "", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015141	1015432	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "err",
                  "FLAGS" => "", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072298	1072425	
==>+ xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  {{\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074483	1074610	
==>+ xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  {{\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076668	1076795	
==>+ xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  {{\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078854	1078981	
==>+ xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  {{\ <==
5	/Users/nnunley/parrot/tools/dev/nm.pl	440	536	
==>ject or archive files.

=head2 Command-Line Options

The following options can be used to limit t <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	8138	8258	
==>'start_line' => $self->{'line_count'}}, $line];
        }
      } else {
        ++$self->{'pod_para_count'};
        $se <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071850	1071955	
==>/\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = {{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  INT <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074035	1074140	
==>/\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = {{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  INT <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076220	1076325	
==>/\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = {{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  INT <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078406	1078511	
==>/\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = {{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  INT <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7276	7392	
==>my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);

    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ( <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6918	7034	
==>my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);

    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ( <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9376	9491	
==>my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);
    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ( <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9070	9185	
==>my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);
    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ( <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	3663	3765	
==>->is('while');         }

sub is_loop_control  { return shift->is('next', 'last', 'redo'); }
sub is_val <==
5	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	5852	6027	
==>]\S+
          )
         )
        /\cb$1\cc/xsg
      ;
      
      rtf_esc($scratch);
      $scratch =~
         s/(
            [^\cm\cj\n]{65}        # Snare 65 character <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264367	264486	
==>" => "#line 806 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265221	265340	
==>" => "#line 806 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266075	266194	
==>" => "#line 806 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266930	267049	
==>" => "#line 806 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3951	4053	
==>quired: string (TODO: domain)

  confess "No block!"  unless defined $self and ref $self and $self->isa <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7860	7962	
==>quired: string (TODO: domain)

  confess "No block!"  unless defined $self and ref $self and $self->isa <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8507	8609	
==>quired: string (TODO: domain)

  confess "No block!"  unless defined $self and ref $self and $self->isa <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9175	9277	
==>quired: string (TODO: domain)

  confess "No block!"  unless defined $self and ref $self and $self->isa <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9844	9946	
==>quired: string (TODO: domain)

  confess "No block!"  unless defined $self and ref $self and $self->isa <==
5	/Users/nnunley/parrot/lib/Parrot/Config.pm	7815	7931	
==>d_out' => '-o ',
             'ld_share_flags' => '-dynamiclib -undefined suppress',
             'ldflags' => '-L/op <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584422	584513	
==>t.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585497	585588	
==>t.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597938	598029	
==>t.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598985	599076	
==>t.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3 <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	243	333	
==>se Parrot::Docs::Section::Info;

=head1 DESCRIPTION

A documentation section describing Par <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1313	1417	
==>k->find_symbol($ident_name);

  confess "No such symbol '$ident_name'!" unless defined $sym;

  if (($kin <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3599	3703	
==>'N');
    $self->_add_inst ('', 'set', [$return,$value]);
  }
  else {
    $return = $self->_save_1 ('I') <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16320	16422	
==>_assign;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->forth);
      my $op <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17091	17193	
==>_assign;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->forth);
      my $op <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17896	17998	
==>_assign;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->forth);
      my $op <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071082	1071415	
==>{
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073266	1073599	
==>{
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075451	1075784	
==>{
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077636	1077969	
==>{
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 " <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	1116	1216	
==>ndef means end-of-stream
  my $self = shift;

  my $code_handler = $self->{'code_handler'};
  my $cut <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29186	29333	
==>1,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AN <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41292	41439	
==>1,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AN <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44438	44585	
==>1,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AN <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1539	1640	
==>sub start_head4 {  $_[0]{'Thispara'} = '' }

sub start_Verbatim    { $_[0]{'Thispara'} = ''   }
sub st <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1069	1170	
==>sub start_head4 {  $_[0]{'Thispara'} = '' }

sub start_Verbatim    { $_[0]{'Thispara'} = ''   }
sub st <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143040	143337	
==>eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 17 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143967	144264	
==>eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 17 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144895	145192	
==>eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 17 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145823	146120	
==>eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 17 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146758	147055	
==>eq",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 17 <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	28021	28126	
==>e) = @_;
  my $return;
  my $label     = $self->_gensym();

  $return = $self->_generate($node->{children} <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23301	23402	
==>e) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_generate($node->{children} <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23763	23864	
==>e) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_generate($node->{children} <==
5	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2391	2473	
==>amples/benchmarks/mops.pasm>,
F<examples/mops/mops.c>,
F<examples/mops/mops.cs>,
F< <==
5	/Users/nnunley/parrot/examples/mops/mops.pl	2391	2473	
==>amples/benchmarks/mops.pasm>,
F<examples/mops/mops.c>,
F<examples/mops/mops.cs>,
F< <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	2620	2739	
==>b blocks
{
  my $self = shift;

  return @{$self->{BLOCKS}};
}


#
# block()
#

sub block
{
  my $self = shift;

  retur <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800661	800768	
==>}}->vtable->set_string_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "L <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801565	801672	
==>}}->vtable->set_string_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "L <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802469	802576	
==>}}->vtable->set_string_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "L <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803374	803481	
==>}}->vtable->set_string_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "L <==
5	/Users/nnunley/parrot/tools/dev/lib_deps.pl	6227	6399	
==>{$referenced_in{$symbol}}, $obj;
            } else {
                $defined_in{$symbol} .= "$obj ";
            }
        }
        
        close(F);
    }

    # omit s <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12769	12886	
==>ewrite DYNSELF(args...). See comments above.
    s/DYNSELF           # Macro: DYNSELF
      \(\s*(.*?)\)      # captur <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202743	202840	
==>n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203674	203771	
==>n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204605	204702	
==>n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926546	926703	
==>2}}->bufused;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928016	928173	
==>2}}->bufused;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929486	929643	
==>2}}->bufused;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930957	931114	
==>2}}->bufused;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{ <==
5	/Users/nnunley/parrot/lib/Pod/Escapes.pm	6987	7131	
==>6,
 'ne'       , 8800,
 'equiv'    , 8801,
 'le'       , 8804,
 'ge'       , 8805,
 'sub'      , 8834,
 'sup'      , 8835,
 'nsub'     , 8836,
 ' <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4229	4329	
==>1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		return(<<CODE, $ <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4493	4593	
==>1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		return(<<CODE, $ <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5129	5229	
==>1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		return(<<CODE, $ <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5505	5605	
==>1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		return(<<CODE, $ <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	2517	2612	
==>lf->convert($tree, $ctx), op('atend') ]);
}

sub convert_rx_charclass {
    die "unimplemented c <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	12378	12487	
==>\n";
  
  if($content eq 'ALREADYDONE') {
    # It's already been handled.  Check for errors.
    if(! $self-> <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080372	1080462	
==>line 145 \"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtab <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081437	1081527	
==>line 145 \"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtab <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082502	1082592	
==>line 145 \"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtab <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083568	1083658	
==>line 145 \"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtab <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638528	638776	
==>"instantiate",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "function",
                  "CODE" => 714,
                  "ARGS" <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7929	8021	
==>$self and ref $self and $self->isa("Jako::Construct::Block");
  confess "No identifier name!" <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8576	8668	
==>$self and ref $self and $self->isa("Jako::Construct::Block");
  confess "No identifier name!" <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9244	9336	
==>$self and ref $self and $self->isa("Jako::Construct::Block");
  confess "No identifier name!" <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9913	10005	
==>$self and ref $self and $self->isa("Jako::Construct::Block");
  confess "No identifier name!" <==
5	/Users/nnunley/parrot/languages/regex/test.pl	3617	3726	
==>nerate_pbc {
    my ($pir, $pbc) = @_;
    my $status = system("$PARROT_EXE", "-o", $pbc, $pir);
    if (! def <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	675	765	
==>lock (" . ref($block) . ") is not!"  unless UNIVERSAL::isa($block, qw(Jako::Construct::Bloc <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	550	639	
==>lock (" . ref($block) . ") is not!" unless UNIVERSAL::isa($block, qw(Jako::Construct::Bloc <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	560	648	
==>lock (". ref($block) . ") is not!" unless UNIVERSAL::isa($block, qw(Jako::Construct::Bloc <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	542	630	
==>lock (". ref($block) . ") is not!" unless UNIVERSAL::isa($block, qw(Jako::Construct::Bloc <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842612	842921	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843489	843798	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844367	844676	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845245	845554	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
5	/Users/nnunley/parrot/tools/dev/pbc_header.pl	1327	1435	
==>{
	open F, "+<$f" or die "Can't open $f: $!";
	seek F, 2, 0;	# pos 2: major, minor
	print F pack "cc", $major <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	689704	689927	
==>} = {{\@2}}->vtable->getprops(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2051	2144	
==>ister type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1 <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3303	3396	
==>ister type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1 <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5932	6025	
==>ister type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1 <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6490	6583	
==>ister type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1 <==
5	/Users/nnunley/parrot/config/auto/jit.pm	4066	4200	
==>apable) {
            $conf->data->set(
                TEMP_exec_h =>
                    '$(SRC_DIR)/jit.h $(INC_DIR)/exec.h $(SRC_DI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332455	332546	
==>{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333733	333824	
==>{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335011	335102	
==>{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336290	336381	
==>{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\ <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4189	4301	
==>S}[${ITEMP0}]

# Assign register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2605	2717	
==>S}[${ITEMP0}]

# Assign register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1388	1500	
==>S}[${ITEMP0}]

# Assign register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1915	2027	
==>S}[${ITEMP0}]

# Assign register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3098	3210	
==>S}[${ITEMP0}]

# Assign register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557189	557331	
==>ss( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558572	558714	
==>ss( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559956	560098	
==>ss( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLA <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7148	7252	
==>$reg) = @_;
    $reg = value(defined($reg) ? $reg : 'pos');
    return $self->output_pushint($reg);
}

su <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6790	6894	
==>$reg) = @_;
    $reg = value(defined($reg) ? $reg : 'pos');
    return $self->output_pushint($reg);
}

su <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654917	655210	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655712	656005	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656635	656928	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657559	657852	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658477	658770	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
5	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	3990	4095	
==>y $filename      = pack_smoke(%smoke);

  open my $fh, ">", $filename or
    die "Couldn't open \"$filenam <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353637	353732	
==>onst s = {{\@1}};\n  if (s && string_length(interpreter, s)) {\n    PIO_putps(interpreter, PIO_S <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354382	354477	
==>onst s = {{\@1}};\n  if (s && string_length(interpreter, s)) {\n    PIO_putps(interpreter, PIO_S <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359331	359426	
==>onst s = {{\@1}};\n  if (s && string_length(interpreter, s)) {\n    PIO_putps(interpreter, PIO_S <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360079	360174	
==>onst s = {{\@1}};\n  if (s && string_length(interpreter, s)) {\n    PIO_putps(interpreter, PIO_S <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769452	769715	
==>0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770304	770567	
==>0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771157	771420	
==>0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772010	772273	
==>0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	620880	620985	
==>cont;\n    opcode_t *src_pc;\n    void **src_pred;\n    parrot_context_t *caller_ctx, *ctx;\n    int n;\n\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067018	1067124	
==>2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = flo <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068204	1068310	
==>2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = flo <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069390	1069496	
==>2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = flo <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070577	1070683	
==>2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = flo <==
5	/Users/nnunley/parrot/examples/benchmarks/freeze.pl	354	456	
==>o archive the array.

=cut

use strict;
use warnings;

use Storable qw( freeze thaw dclone );
use Time: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492817	493108	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ": <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493578	493869	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ": <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499552	499843	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ": <==
5	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	7192	7332	
==></tr>
              </tbody>
            </table>
            </ul>
    );
    print OUT page_footer();
}


sub write_file_coverage_summary { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504773	504945	
==>"ic",
                              "i"
                            ],
                  "BODY" => "#line 631 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183699	184022	
==>> "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 219,
                  "ARG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180117	180415	
==>> "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 21 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181012	181310	
==>> "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 21 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181908	182206	
==>> "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 21 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182804	183102	
==>> "lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 21 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072250	1072382	
==>n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074435	1074567	
==>n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076620	1076752	
==>n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078806	1078938	
==>n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	16067	16175	
==>'-', $cmt);
}

sub BINARY_MODULO
{
    my ($n, $c, $cmt) = @_;
    binary('%', $cmt);
}
sub BINARY_MULTIPLY
{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134436	134655	
==>DE" => 165,
                  "ARGS" => [
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 321 \"src/ops/bit.ops\"\n  string_bitwise_ <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8229	8348	
==>Must always have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg = value <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9011	9130	
==>Must always have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg = value <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7882	8001	
==>Must always have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg = value <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8671	8790	
==>Must always have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg = value <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	777	881	
==>ght, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block,
    LEFT  => $left <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909323	909417	
==>string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910220	910314	
==>string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911117	911211	
==>string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912015	912109	
==>string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n <==
5	/Users/nnunley/parrot/tools/dev/parrot_api.pl	634	723	
==><blib/lib/libparrot.a>), and then cross-references the dubious API
symbols according to th <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476483	476776	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TY <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477378	477671	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TY <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478274	478567	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TY <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479165	479458	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TY <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10207	10299	
==>the lazy moves stack?
${ITEMP3} = elements lazy_moves
if ${ITEMP3} > 0 goto PRE_CALL_${CURIC} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061956	1062234	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062825	1063103	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063694	1063972	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064564	1064842	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065437	1065715	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17599	17708	
==>print i; j;
if i and j then a$="True  " else a$="False "
if i or  j then b$="True  " else b$="False "
if i xor <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	8428	8557	
==>unks;
            $t = rop('seq', \@children);
        }

        $t->{add_check_visited} = 1;
        return $self->add_checks($t <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8054	8179	
==>my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fall <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8836	8961	
==>my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fall <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7707	7832	
==>my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fall <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8496	8621	
==>my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fall <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	2350	2433	
==>::Value::Identifier->compile2($compiler, $self->block, $ident, $sym->kind, $sym->sco <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412861	413000	
==>"i"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413988	414127	
==>"i"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415115	415254	
==>"i"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416243	416382	
==>"i"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{ <==
5	/Users/nnunley/parrot/tools/dev/run_indent.pl	3996	4092	
==>parse errors occurred.\nYou can generally ignore them:\n";
#    foreach (sort keys %all_errors) { <==
5	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11208	11309	
==>SIS

  use Pod::Escapes qw(e2char);
  ...la la la, parsing POD, la la la...
  $text = e2char($e_node-> <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11752	11844	
==>type"]
printerr type
printerr " "
inc j
goto PTYPES_LOOP
PTYPES_LOOP_END:
printerr "\\n"
prin <==
5	/Users/nnunley/parrot/lib/Parrot/Config.pm	1726	1812	
==>I/usr/local/include -I/opt/local/include -pipe -fno-common -Wno-long-double  -I /opt/lo <==
5	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1114	1200	
==>I/usr/local/include -I/opt/local/include -pipe -fno-common -Wno-long-double  -I /opt/lo <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	1118	1204	
==>I/usr/local/include -I/opt/local/include -pipe -fno-common -Wno-long-double  -I /opt/lo <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958833	959096	
==>ME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959634	959897	
==>ME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
5	/Users/nnunley/parrot/config/auto/python.pm	520	631	
==>thon is installed';

@args = qw();

sub runstep
{
    my ($self, $conf) = @_;

    my ($out, $err) = capture_out <==
5	/Users/nnunley/parrot/tools/build/ops2pm.pl	4738	4842	
==>: $_->{CODE}";
    }
    if ($seq != $_->{CODE}) {
	die "op sequence mismatch ops.num: $seq core.ops: $_- <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11518	11620	
==>@work);

	my $oneop=0;
	my $optype="N";
	my $result="";
	foreach my $token (@stream) {
		my($sym,$type, <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	32184	32311	
==>an L node
      DEBUG > 1 and print "Ogling L node $treelet->[$i]\n";
        
      # bitch if it's empty
      if(  @{$treelet <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8040	8145	
==>name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_symbol($name);

  return $found ? $fo <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8687	8792	
==>name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_symbol($name);

  return $found ? $fo <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9355	9460	
==>name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_symbol($name);

  return $found ? $fo <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10024	10129	
==>name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_symbol($name);

  return $found ? $fo <==
5	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15507	15602	
==>turns Bool;

Because these functions will be mutually recursive, they will easily be
able handle <==
5	/Users/nnunley/parrot/tools/build/pmc2c.pl	3799	3909	
==>faces are:

    array    : container PMC with numerically-keyed elements
    event    : PMC that can be used wi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050183	1050279	
==>{{\@2}})\n\tinternal_exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051217	1051313	
==>{{\@2}})\n\tinternal_exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052251	1052347	
==>{{\@2}})\n\tinternal_exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053286	1053382	
==>{{\@2}})\n\tinternal_exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@ <==
5	/Users/nnunley/parrot/editor/kate_syntax.pl	4510	4614	
==>gExpr attribute="String" context="#stay" String="'" />
      </context>

END

print <<END;
      <context <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579332	579430	
==>{{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_excepti <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580637	580735	
==>{{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_excepti <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581942	582040	
==>{{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_excepti <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583248	583346	
==>{{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_excepti <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	34605	34707	
==>TORE_SLICE_plus_3 {
    return Store_Slice(@_, 3);
}

sub DELETE_SLICE_plus_0 {
    my ($n, $c, $cmt) = <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11677	11773	
==>_LAZY_MOVE_RET

# Build register name to pop if not lazy.
${ITEMP1} = elements ${STYPES}
dec ${IT <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579276	579369	
==>.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580581	580674	
==>.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581886	581979	
==>.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583192	583285	
==>.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727625	727917	
==>n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exchange",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	728422	728714	
==>n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exchange",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729216	729508	
==>n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exchange",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726828	727119	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exchange",
                  " <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	26873	26996	
==>"rdelim"      => $rdel,
		"mod"         => $mod,
		"lookahead"   => $_[4],
		"line"        => $_[5],
		"description" => $des <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	35108	35227	
==>_gcd,
  'lcm'              => \&_op_lcm,
  'numerator'        => \&_op_numerator,
  'denominator'      => \&_op_denomina <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	4390	4503	
==>", scalar(@lines), " lines\n";
      }

      $self->SUPER::parse_lines(@lines);
      
    } elsif(exists $self-> <==
5	/Users/nnunley/parrot/config/init/hints/solaris.pm	1011	1118	
==>a->get('link');
        cc_gen("config/auto/gcc/test_c.in");

        # Can't call cc_build since we haven't <==
5	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3348	3437	
==>L<Pod::Simple::DumpAsXML>

The older libraries L<Pod::PXML>, L<Pod::XML>, L<Pod::SAX>


=h <==
5	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3000	3089	
==>L<Pod::Simple::DumpAsXML>

The older libraries L<Pod::PXML>, L<Pod::XML>, L<Pod::SAX>


=h <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	50396	50526	
==>r, and
then go back to step 1.

=back


Examples:

        # Find a while loop in the text

                if ($text =~ s/.*?while <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	75	182	
==>$proto, %options) = @_;
    my $self = bless \%options, (ref($proto) || $proto);
    $self->init();
    retu <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	242	349	
==>$proto, %options) = @_;
    my $self = bless \%options, (ref($proto) || $proto);
    $self->init();
    retu <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	583	690	
==>$proto, %options) = @_;
    my $self = bless \%options, (ref($proto) || $proto);
    $self->init();
    retu <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	37802	37901	
==>ng tag would be C<"{{/DATA}}">.

=item 4.

A string specifying a pattern to be matched as a prefix ( <==
5	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11410	11501	
==>*\cs10 \additive Default Paragraph Font;}
{\*\cs16 \additive \i \sbasedon10 pod-I;}
{\*\cs17 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710856	711097	
==>rpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711690	711931	
==>rpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712796	713037	
==>rpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713903	714144	
==>rpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1131	1229	
==>)

This changes the tagname for this end-token object.
You probably won't need to do this.

=item $ <==
5	/Users/nnunley/parrot/tools/build/ops2c.pl	10055	10174	
==>$op->name;
        $names{$name} = 1;
        my $full_name  = $op->full_name;
        my $func_name  = $op->func_name($ <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3022	3139	
==>%ld)",
    'n'  => "NREG(%ld)",
    'p'  => "PREG(%ld)",
    's'  => "SREG(%ld)",
    'k'  => "PREG(%ld)",
    'ki' => <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2842	2959	
==>%ld)",
    'n'  => "NREG(%ld)",
    'p'  => "PREG(%ld)",
    's'  => "SREG(%ld)",
    'k'  => "PREG(%ld)",
    'ki' => <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1940	2052	
==>%ld)",
  'n'   => "NREG(%ld)",
  'p'   => "PREG(%ld)",
  's'   => "SREG(%ld)",
  'k'   => "PREG(%ld)",
  'ki'  => <==
5	/Users/nnunley/parrot/tools/build/ops2c.pl	3870	3962	
==>arrot::OpsFile->new( [ "src/ops/$file" ], $nolines_flag );
    $ops->{OPS} = $Parrot::OpLib:: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836616	836875	
==>);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "F <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837348	837607	
==>);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "F <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838082	838341	
==>);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "F <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838814	839073	
==>);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "F <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35072	35168	
==>tunexpected;
			}
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched subr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986424	986622	
==>,
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987555	987753	
==>,
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988686	988884	
==>,
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989818	990016	
==>,
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_c <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	4989	5089	
==>he next token is a file
path and that file contains POD, then a link will be made to that file's
docu <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411616	411904	
==>],
                  "TYPE" => "function",
                  "CODE" => 475,
                  "ARGS" => [
                              "i",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 552 \"src/op <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	674	779	
==>nt++;
    ($count, $expr) = _build_tree ($tokens, $count);
    push @{$temp->{children}}, $expr;
  }
  els <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	891	996	
==>nt++;
    ($count, $expr) = _build_tree ($tokens, $count);
    push @{$temp->{children}}, $expr;
  }
  els <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1105	1210	
==>nt++;
    ($count, $expr) = _build_tree ($tokens, $count);
    push @{$temp->{children}}, $expr;
  }
  els <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1329	1434	
==>nt++;
    ($count, $expr) = _build_tree ($tokens, $count);
    push @{$temp->{children}}, $expr;
  }
  els <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072889	1073236	
==>\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075074	1075421	
==>\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077259	1077606	
==>\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079445	1079792	
==>\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	3102	3202	
==>k.
#

sub current_block
{
  my $self = shift;

  $self->INTERNAL_ERROR("Attempt to reference top bloc <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	2178	2293	
==>s:
    #

    if ($text =~ m{^(module)(?!\w)(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, 'm <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066902	1067000	
==>ne 49 \"src/ops/experimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068088	1068186	
==>ne 49 \"src/ops/experimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069274	1069372	
==>ne 49 \"src/ops/experimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070461	1070559	
==>ne 49 \"src/ops/experimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@ <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9469	9566	
==>turn or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get d <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6983	7080	
==>turn or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get d <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5539	5636	
==>turn or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get d <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11343	11438	
==>all_NO_RETURN_${CURIC}:

# Finished.
goto PRE_CALL_END_${CURIC}

# It's a return. See if we have <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8529	8624	
==>all_NO_RETURN_${CURIC}:

# Finished.
goto PRE_CALL_END_${CURIC}

# It's a return. See if we have <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055739	1056062	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056630	1056953	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057522	1057845	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058414	1058737	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  " <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26683	26778	
==>RR];
	barf();
#	print STDERR "Processing call $sub\n";
	($result, $type, @code)=EXPRESSION({igno <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38267	38490	
==>\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PAR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46305	46528	
==>\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PAR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47888	48111	
==>\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PAR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49485	49708	
==>\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PAR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51088	51311	
==>\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PAR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42398	42615	
==>\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RES <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47105	47322	
==>\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RES <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48695	48912	
==>\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RES <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50295	50512	
==>\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RES <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51888	52105	
==>\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RES <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7257	7375	
==>d_para_count'};
        
        $self->_ponder_paragraph_buffer();
         # by now it's safe to consider the previou <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7875	7988	
==>d_para_count'};
          $self->_ponder_paragraph_buffer();
           # by now it's safe to consider the previou <==
5	/Users/nnunley/parrot/tools/dev/symlink.pl	2433	2546	
==>ined $readlink) {
		    unless (unlink($dstfile)) {
			warn "$self: unlink $dstfile failed: $!\n";
		    }
		}
		u <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	8232	8341	
==>d_para_count'};
        $self->_ponder_paragraph_buffer();
         # by now it's safe to consider the previou <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	5911	6016	
==>d_para_count'};
      $self->_ponder_paragraph_buffer();
       # by now it's safe to consider the previou <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586890	587002	
==>}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABEL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588076	588188	
==>}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABEL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589262	589374	
==>}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABEL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590449	590561	
==>}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABEL <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	13573	13671	
==>, $name);

Like Test::More's like().  Checks if $this matches the given $regex.

You'll want to avo <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	352	462	
==>base qw(Jako::Construct::Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  return bless {
    TOKEN <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	349	459	
==>base qw(Jako::Construct::Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  return bless {
    TOKEN <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	340	450	
==>base qw(Jako::Construct::Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  return bless {
    TOKEN <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	349	459	
==>base qw(Jako::Construct::Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  return bless {
    TOKEN <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	646	740	
==>de, in some language

# Stuff that is used for optimization
# --------------------------------- <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404099	404377	
==>NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405010	405288	
==>NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405922	406200	
==>NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406834	407112	
==>NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15404	15509	
==>e);
  DEBUG > 2 and print "-- $_[0]\n";
  push @{ $self->{'token_buffer'} }, 
       $self->{'end_token_cl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	604696	605050	
==>ect_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 685,
                  "ARGS" => [
                              "p",
                              "p"
                            ] <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591390	591481	
==>ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+4 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592600	592691	
==>ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+4 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593810	593901	
==>ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+4 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595021	595112	
==>ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+4 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158269	158520	
==>CODE" => 191,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 141 \"src/ops/cmp.ops\"\n  if ({{\@1} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712565	712656	
==>(string_str_index(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      st <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713672	713763	
==>(string_str_index(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      st <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720032	720123	
==>(string_str_index(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      st <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721232	721323	
==>(string_str_index(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      st <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	2888	2975	
==>rforr@hargray.com

=head1 SEE ALSO

L<Scheme>, L<Scheme::Tokenizer>, L<Scheme::Generator <==
5	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	278	388	
==>ERROR\n"
    throw throwable
END_OF_PIR

my %scalar = (
    '+' => [ 'Add', '%1 = %1 + %2' ],
	'*' => [ 'Power' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332691	332790	
==>tring() need freeing\n     but this generates ugly warnings WRT discarding the const\n     qualifier <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333969	334068	
==>tring() need freeing\n     but this generates ugly warnings WRT discarding the const\n     qualifier <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335247	335346	
==>tring() need freeing\n     but this generates ugly warnings WRT discarding the const\n     qualifier <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336526	336625	
==>tring() need freeing\n     but this generates ugly warnings WRT discarding the const\n     qualifier <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501041	501333	
==>2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "F <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501780	502072	
==>2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "F <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502518	502810	
==>2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "F <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503257	503549	
==>2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "F <==
5	/Users/nnunley/parrot/config/auto/jit.pm	4257	4360	
==>EMP_exec_o =>
                    '$(SRC_DIR)/exec$(O) $(SRC_DIR)/exec_cpu$(O) $(SRC_DIR)/exec_save$(O)' <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19305	19438	
==>State 56
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRIN <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4874	4974	
==>iler->temp_pmc();

    $compiler->emit("  $pmc_reg = new $pmc_type");
    $compiler->emit("  $pmc_reg <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2937	3037	
==>iler->temp_pmc();

    $compiler->emit("  $pmc_reg = new $pmc_type");
    $compiler->emit("  $pmc_reg <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1240	1339	
==>iler->temp_pmc();
    $compiler->emit("  $pmc_reg = new $pmc_type");
    $compiler->emit("  $pmc_reg <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1234	1333	
==>iler->temp_pmc();
    $compiler->emit("  $pmc_reg = new $pmc_type");
    $compiler->emit("  $pmc_reg <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477242	477530	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478138	478426	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479029	479317	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479921	480209	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGD <==
5	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	1731	1843	
==>CCLASS_GRAPHICAL      
    $ret |= 0x0100 if $chr =~ /^[[:blank:]]$/;  # CCLASS_BLANK  
    $ret |= 0x0200 if $ch <==
5	/Users/nnunley/parrot/lib/Parrot/Test.pm	21172	21360	
==>ected, @options) = @_;

            my %lang_for_extension 
                = ( pasm => 'PASM',
                    past => 'PAST',
                    pir  => 'PIR',
                    im <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332732	332883	
==>ates ugly warnings WRT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334010	334161	
==>ates ugly warnings WRT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335288	335439	
==>ates ugly warnings WRT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336567	336718	
==>ates ugly warnings WRT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451117	451360	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451855	452098	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452594	452837	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453332	453575	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i <==
5	/Users/nnunley/parrot/tools/build/pmc2c.pl	8572	8684	
==>e =~ s/^\s+//;

    # create a copy and remove strings and comments so that
    # unbalanced {} can be used in th <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2816	2927	
==>nt({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
    $left->sax($handler);
    $right->sax( <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3490	3601	
==>nt({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
    $left->sax($handler);
    $right->sax( <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3580	3691	
==>nt({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
    $left->sax($handler);
    $right->sax( <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5365	5472	
==>nt({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
  $left->sax($handler);
  $right->sax( <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3428	3535	
==>nt({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
  $left->sax($handler);
  $right->sax( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73222	73540	
==>bj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74824	75142	
==>bj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76426	76744	
==>bj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78029	78347	
==>bj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	403	500	
==>akefiles/dynpmc_pl.in>.  This script is used for building
dynamic PMCs.

=cut

use strict;

use Fi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949951	950250	
==>" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950910	951209	
==>" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951870	952169	
==>" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952830	953129	
==>" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	972	1091	
==>'Jako::Token')) {
    $token = $type;
    $type = $type->text;
  }
  else {
    $type = $types{$type};
  }

  return Jak <==
5	/Users/nnunley/parrot/config/init/defaults.pm	5880	6004	
==>nk
        slash => '/',

        VERSION => $main::parrot_version,
        MAJOR   => $main::parrot_version[0],
        MINO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634774	634859	
==>rpreter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new_from_string(interpreter, cla <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635892	635977	
==>rpreter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new_from_string(interpreter, cla <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637010	637095	
==>rpreter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new_from_string(interpreter, cla <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638129	638214	
==>rpreter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new_from_string(interpreter, cla <==
5	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	4844	4962	
==>taken at least once in function (.*)/;
            if ($total_branches) {
                $function_branch_coverage{$so <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	706	797	
==>ot!"  unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type (" . ref($t <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	581	671	
==>ot!" unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type (" . ref($t <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	590	679	
==>ot!" unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type (". ref($t <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	572	661	
==>ot!" unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type (". ref($t <==
5	/Users/nnunley/parrot/config/auto/signal.pm	376	473	
==>uto';

$description = 'Determining some signal stuff';

@args = qw(miniparrot verbose);

sub runst <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2096	2192	
==>h]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = conc <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3348	3444	
==>h]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = conc <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5977	6073	
==>h]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = conc <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6535	6631	
==>h]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = conc <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314910	315153	
==>ovf\");\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	316371	316614	
==>ovf\");\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	317838	318081	
==>ovf\");\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319303	319546	
==>ovf\");\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv <==
5	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	5330	5451	
==>, $str );
}

sub _Identifier {
    my $parser = shift;
    my ($idf) = @_;

    if ( exists $parser->YYData->{keywo <==
5	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	13053	13164	
==>text = do {local $/; <$fh>};
    close($fh) or die "Can't close $filename: $!";

    return $text;
}

=back

=he <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858513	858610	
==>Y" => "#line 118 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859517	859614	
==>Y" => "#line 118 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860521	860618	
==>Y" => "#line 118 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861526	861623	
==>Y" => "#line 118 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32806	32921	
==>>{'typeinfo'}, $mv, 
			    "typeinfo for rule $rule->{'name'}");
		    $pir .= "\n" if $pir !~ /\n$/;
		    $pir .= <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26810	26913	
==>>{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir .= "\n" if $pir !~ /\n$/;
		$pir .= <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28467	28570	
==>code.
		$pir .= "### typeinfo\n";
		$pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $r <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28526	28629	
==>>{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir .= "\n" if $pir !~ /\n$/;
		$pir .= <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36508	36611	
==>>{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir .= "\n" if $pir !~ /\n$/;
		$pir .= <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367127	367418	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367918	368209	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368710	369001	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":b <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	31165	31261	
==>cter to be used for each
delimiter.

All arguments are optional. If the escape characters are not <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	39653	39748	
==>countered:

	$text = "/para line 1\n\nline 3\n/para line 4";

	extract_tagged($text, '/para', '/ <==
5	/Users/nnunley/parrot/config/auto/bc.pm	385	481	
==>c;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

us <==
5	/Users/nnunley/parrot/config/auto/gc.pm	638	734	
==>c;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

us <==
5	/Users/nnunley/parrot/config/auto/gcc.pm	272	368	
==>c;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

us <==
5	/Users/nnunley/parrot/config/auto/msvc.pm	292	388	
==>c;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

us <==
5	/Users/nnunley/parrot/config/auto/perldoc.pm	289	385	
==>c;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

us <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8211	8339	
==>0) {
        die "Must always have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $re <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8993	9121	
==>0) {
        die "Must always have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $re <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7864	7992	
==>0) {
        die "Must always have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $re <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8653	8781	
==>0) {
        die "Must always have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $re <==
5	/Users/nnunley/parrot/lib/Test/More.pm	27711	27807	
==>ly() existed
because I couldn't figure out how to display a useful diff of two
arbitrary data str <==
5	/Users/nnunley/parrot/languages/scheme/Scheme.pm	631	744	
==>ormation
    # new_pad 0
END_HEADER

  while (@missing) {
    my $miss = shift @missing;

    my $link = Scheme::B <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591412	591502	
==>Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NUL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592622	592712	
==>Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NUL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593832	593922	
==>Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NUL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595043	595133	
==>Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NUL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540543	540652	
==>=0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541795	541904	
==>=0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543047	543156	
==>=0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) { <==
5	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2174	2269	
==>section, with the heads of any\n".
		"files which had familiar types, but from which description <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	1361	1450	
==>parrotbyte.pod'),
			$self->new_item('', 'docs/parrotbyte.pod'),
			$self->new_item('', 'd <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	57984	58087	
==>ase characters will eventually
					be used to specify pre-lexed tokens
					in a grammar. That function <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2078	2169	
==>STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_s <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3330	3421	
==>STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_s <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5959	6050	
==>STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_s <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6517	6608	
==>STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258506	258838	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259449	259781	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260300	260632	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261152	261484	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262004	262336	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	865581	865768	
==>982,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 167 \"src/ops/string.ops\"\n   string_pin(interpreter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871032	871169	
==>"i"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872049	872186	
==>"i"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873066	873203	
==>"i"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874084	874221	
==>"i"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, { <==
5	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	1393	1504	
==>0x0008 if $chr =~ /^[[:digit:]]$/;  # CCLASS_NUMERIC        
    $ret |= 0x0010 if $chr =~ /^[[:xdigit:]]$/; # C <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858620	858712	
==>t repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVAL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859624	859716	
==>t repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVAL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860628	860720	
==>t repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVAL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861633	861725	
==>t repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVAL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579702	579988	
==>, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581007	581293	
==>, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582312	582598	
==>, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583618	583904	
==>, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUM <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41036	41145	
==>_seen'} ||= 1;
      $self->_traverse_treelet_bit(@$para);
    }
  }
  
  return;
}

sub _traverse_treelet_bit <==
5	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	1517	1638	
==>Test::per_test( '.bc', $count );
            Parrot::Test::write_code_to_file( $code, $lang_fn );
        }

        # set <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	968	1074	
==>EBUG => 1,
    FILE  => $ident->file,
    LINE  => $ident->line
  }, $class;

  $block->push_content($self) <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1122	1228	
==>EBUG => 1,
    FILE  => $ident->file,
    LINE  => $ident->line
  }, $class;

  $block->push_content($self) <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	972	1078	
==>EBUG => 1,
    FILE  => $ident->file,
    LINE  => $ident->line
  }, $class;

  $block->push_content($self) <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	711	817	
==>EBUG => 1,
    FILE  => $ident->file,
    LINE  => $ident->line
  }, $class;

  $block->push_content($self) <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1393	1499	
==>EBUG => 1,
    FILE  => $ident->file,
    LINE  => $ident->line
  }, $class;

  $block->push_content($self) <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20140	20251	
==>exists $th{$type} or
							  exists $usertypes{$type});
			my $marker;
			if (exists $th{$type}) {
				$marker= <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38999	39090	
==>XCEPT_doomed)\n    _exit({{\@2}});\n  do_exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39864	39955	
==>XCEPT_doomed)\n    _exit({{\@2}});\n  do_exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40711	40802	
==>XCEPT_doomed)\n    _exit({{\@2}});\n  do_exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41559	41650	
==>XCEPT_doomed)\n    _exit({{\@2}});\n  do_exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+ <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	12215	12327	
==>ra;
  my $content = join ' ', splice @x, 2;
  $content =~ s/^\s+//s;
  $content =~ s/\s+$//s;

  DEBUG > 2 and pr <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2390	2490	
==>alue. C<$op> is an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3482	3582	
==>alue. C<$op> is an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3626	3726	
==>alue. C<$op> is an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3281	3381	
==>alue. C<$op> is an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258523	258842	
==>( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259466	259785	
==>( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260317	260636	
==>( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261169	261488	
==>( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262021	262340	
==>( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854428	854727	
==>UMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855316	855615	
==>UMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856205	856504	
==>UMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857094	857393	
==>UMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
5	/Users/nnunley/parrot/lib/Test/More.pm	27213	27345	
==>$vals[1]\n";

    $out =~ s/^/    /msg;
    return $out;
}


sub _type {
    my $thing = shift;

    return '' if !ref $thing;

    f <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7805	7900	
==>type[CURR] eq "STMT" or $type[CURR] eq "COMM" or $type[CURR] eq "STMT") and $singleif) {
		while <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018057	1018145	
==>e_r(&tm, resultbuffer);\n  {{\@1}} = string_from_cstring(interpreter, resultbuffer, 26);\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018982	1019070	
==>e_r(&tm, resultbuffer);\n  {{\@1}} = string_from_cstring(interpreter, resultbuffer, 26);\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019912	1020000	
==>e_r(&tm, resultbuffer);\n  {{\@1}} = string_from_cstring(interpreter, resultbuffer, 26);\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020843	1020931	
==>e_r(&tm, resultbuffer);\n  {{\@1}} = string_from_cstring(interpreter, resultbuffer, 26);\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026544	1026778	
==>}} = sysinfo_i(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1027301	1027535	
==>}} = sysinfo_i(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3347	3457	
==>f, $value) = @_;
  my $return;

  if ($value =~ /^[-+]?\d+$/) {
    $return = $self->_save_1 ('I');
    $self-> <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2231	2324	
==>{STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Decrement stack height.
dec s <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3483	3576	
==>{STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Decrement stack height.
dec s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361743	361848	
==>});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362642	362747	
==>});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363544	363649	
==>});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364447	364552	
==>});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367024	367129	
==>});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	174213	174298	
==>\"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_STRCMP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	195451	195536	
==>\"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_STRCMP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	212184	212269	
==>\"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_STRCMP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	220740	220825	
==>\"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_STRCMP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	229301	229386	
==>\"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_STRCMP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175601	175897	
==>ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176504	176800	
==>ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177408	177704	
==>ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178312	178608	
==>ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179217	179513	
==>ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
5	/Users/nnunley/parrot/tools/dev/lib_deps.pl	8016	8133	
==>complex.h
cabsf       complex.h
cabsl       complex.h
cacos       complex.h
cacosf      complex.h
cacosh      complex. <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714633	714728	
==>th(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715556	715651	
==>th(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722320	722415	
==>th(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723349	723444	
==>th(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, i <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2803	2902	
==>->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
    $left->sax($h <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3477	3576	
==>->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
    $left->sax($h <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3567	3666	
==>->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
    $left->sax($h <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5352	5449	
==>->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
  $left->sax($h <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3415	3512	
==>->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
  $left->sax($h <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	44185	44284	
==>ling modifiers),

=item [1]

the remainder of the input text,

=item [2]

the prefix substring (if a <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2068	2161	
==>EMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["re <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3320	3413	
==>EMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["re <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5949	6042	
==>EMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["re <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6507	6600	
==>EMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["re <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	4478	4632	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "prederef__",
                  "FLAGS" => ":int <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072574	1072675	
==>rrect the sign (can be wrong because we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074759	1074860	
==>rrect the sign (can be wrong because we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076944	1077045	
==>rrect the sign (can be wrong because we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079130	1079231	
==>rrect the sign (can be wrong because we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2460	2572	
==>ment({ Name => 'block', Attributes => { kind => 'test' } });
    $handler->start_element({ Name => 'op', Attribut <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2337	2449	
==>ment({ Name => 'block', Attributes => { kind => 'test' } });
    $handler->start_element({ Name => 'op', Attribut <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2730	2842	
==>ment({ Name => 'block', Attributes => { kind => 'test' } });
    $handler->start_element({ Name => 'op', Attribut <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3404	3516	
==>ment({ Name => 'block', Attributes => { kind => 'test' } });
    $handler->start_element({ Name => 'op', Attribut <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3494	3606	
==>ment({ Name => 'block', Attributes => { kind => 'test' } });
    $handler->start_element({ Name => 'op', Attribut <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1493	1619	
==>t;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $s <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1373	1499	
==>t;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $s <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17095	17199	
==>hift @$paras;
    $para_type = $para->[0];

    DEBUG > 1 and print "Pondering a $para_type paragraph, gi <==
5	/Users/nnunley/parrot/config/gen/makefiles.pm	9301	9404	
==>..${slash}ops${slash}$ops > ops${slash}$pod\n";
                print MAKEFILE "\t\$(CHMOD) 0644 ..${sla <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4349	4447	
==>lf, $where_str) = @_;

    return "return $where_str";
}

=item C<restart_address($address)>

Imple <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	22270	22406	
==>);
    pop @stack;	# functions
    my $s = temp('S');
    my $b = temp('P');
    # TODO make op or function
    print <<EOC;
        $s = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72666	72753	
==>t_dlsym(PMC_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_cstring_f <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74268	74355	
==>t_dlsym(PMC_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_cstring_f <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75870	75957	
==>t_dlsym(PMC_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_cstring_f <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77473	77560	
==>t_dlsym(PMC_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_cstring_f <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60443	60650	
==>e",
                  "CODE" => 78,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 914 \"src/ops/core.ops\"\n  PARROT_WARNING <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028113	1028205	
==>, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_event(inter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028964	1029056	
==>, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_event(inter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029816	1029908	
==>, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_event(inter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030658	1030750	
==>, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_event(inter <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4529	4619	
==>self->current_block();
      my $ident = Jako::Construct::Expression::Value::Identifier->ne <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	10775	10865	
==>self->current_block();
      my $ident = Jako::Construct::Expression::Value::Identifier->ne <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16189	16279	
==>self->current_block();
      my $ident = Jako::Construct::Expression::Value::Identifier->ne <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16960	17050	
==>self->current_block();
      my $ident = Jako::Construct::Expression::Value::Identifier->ne <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17765	17855	
==>self->current_block();
      my $ident = Jako::Construct::Expression::Value::Identifier->ne <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072880	1073181	
==>== r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075065	1075366	
==>== r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077250	1077551	
==>== r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079436	1079737	
==>== r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	12817	12924	
==>h;
    }

    return;
}

=item C<_slurp($filename)>

Slurps C<$filename> into memory and returns it as a str <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848280	848513	
==>interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849060	849293	
==>interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853389	853622	
==>interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854171	854404	
==>interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
5	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	1802	2017	
==>)\n";
            next FILE;
        }
    }

    check_source($file, \@lines);
}

check_manifest();

exit 0;

###############################################################################

sub check_source {
    m <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766494	766596	
==>> "#line 335 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767347	767449	
==>> "#line 335 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768200	768302	
==>> "#line 335 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769054	769156	
==>> "#line 335 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	29364	29463	
==>uid = "_rule_${name}_" . ++$call_uid;

    my $handle = $self->genlabel('handle_call_result');
    m <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8150	8277	
==>_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } else { <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8932	9059	
==>_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } else { <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7803	7930	
==>_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } else { <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8592	8719	
==>_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } else { <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	14528	14623	
==>Perl value which may be used instead of the corresponding
regular expression, or undef if it's a <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	50738	50866	
==>,
	[#Rule 39
		 'funcname', 1, undef
	],
	[#Rule 40
		 'funcname', 3,
sub
#line 235 "Lua\lua51.yp"
{
            Prepare <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579635	579727	
==>er, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}};\n", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580940	581032	
==>er, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}};\n", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582245	582337	
==>er, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}};\n", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583551	583643	
==>er, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}};\n", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175555	175859	
==>_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176458	176762	
==>_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177362	177666	
==>_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178266	178570	
==>_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179171	179475	
==>_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11091	11265	
==>$key ( @{$var} ) {
                        push @opcodes, @{ $key->[1] };
                        my $result2 = new_tmp( $parser, 'pmc' );
                        push @opc <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9322	9484	
==>$key ( @{$var} ) {
                    push @opcodes, @{ $key->[1] };
                    my $result2 = new_tmp( $parser, 'pmc' );
                    push @opc <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8314	8452	
==>$key ( @{$var} ) {
            push @opcodes, @{ $key->[1] };
            my $result2 = new_tmp( $parser, 'pmc' );
            push @opc <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17536	17662	
==>$key ( @{$var} ) {
        push @opcodes, @{ $key->[1] };
        my $result2 = new_tmp( $parser, 'pmc' );
        push @opc <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17455	17548	
==>n,'0']);
  my $type = $self->_save_1 ('I');
  $self->_add_inst ("NEXT_$label", 'typeof',[$type <==
5	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9426	9545	
==>$tagname .= '=' . ($token->attr('type') || 'pod');
        
      } elsif ($tagname eq 'Data') {
        my $next = $sel <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467666	467762	
==>reter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468537	468633	
==>reter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469411	469507	
==>reter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470286	470382	
==>reter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n" <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	69139	69241	
==>t or $Parse::RecDescent::compiling)
	{
		my $code = $self->_code();
		if (defined $::RD_TRACE)
		{
			p <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084674	1084781	
==>,
                  "BODY" => "#line 163 \"src/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interpret <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085727	1085834	
==>,
                  "BODY" => "#line 163 \"src/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interpret <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086780	1086887	
==>,
                  "BODY" => "#line 163 \"src/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interpret <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087834	1087941	
==>,
                  "BODY" => "#line 163 \"src/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interpret <==
5	/Users/nnunley/parrot/editor/kate_syntax.pl	3748	3844	
==>egExpr attribute="TempRegister" context="#stay" String="\\\$[INSP]\\d+" />
          <RegExpr att <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062627	1062914	
==>} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "g <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063496	1063783	
==>} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "g <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064366	1064653	
==>} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "g <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065239	1065526	
==>} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "g <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066113	1066400	
==>} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "g <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	14426	14653	
==>tback ]),
                     aop('goto', [ $try_S ]),
            $next =>
                    );
}

# R|S|T ->       R or tryS
#                push 0
#                goto next
#          tryS: S or tryT
#                pus <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30711	30806	
==>ll post_load and append code it generates.
		my $post_load = $srm->post_load($need_dest);
		$pir <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926074	926202	
==>{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STRINGIN <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927544	927672	
==>{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STRINGIN <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929014	929142	
==>{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STRINGIN <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930485	930613	
==>{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STRINGIN <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	755	850	
==>turn 'PARROT_SWITCH_CORE';
}

=item C<core_prefix()>

The prefix is C<'switch_'>.

=cut

sub cor <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	14024	14131	
==>(useless) items after the leading "
				  . $items[0]->describe
				  . ", so you may have been expecting so <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344252	344342	
==>(interpreter, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345494	345584	
==>(interpreter, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346736	346826	
==>(interpreter, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347979	348069	
==>(interpreter, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}} <==
5	/Users/nnunley/parrot/tools/dev/run_indent.pl	2418	2546	
==>file.
    open(F, "<$file") || die "Can't read $file: $!\n";
    {
        local $/=undef;
        my $contents = <F>;
    
	fore <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10321	10428	
==>2);
  }

  if (exists $self->{scope}->{$symbol}) {
    die "define: $symbol is already defined\n";
  }
  els <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066945	1067049	
==>ATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068131	1068235	
==>ATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069317	1069421	
==>ATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070504	1070608	
==>ATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54939	55232	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55699	55992	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56460	56753	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57222	57515	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57983	58276	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	10340	10445	
==>t Correct
DIM A(1,1)
RO=1
IF A(RO,5)=0 THEN GOSUB 20: REM GOO
   end
20 print "Correct"
   return


' Expe <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9156	9260	
==>t Correct
DIM A(1,1)
RO=1
IF A(RO,5)=0 THEN GOSUB 20: REM GOO
   end
20 print "Correct"
   return

' Expe <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	526	615	
==>om Pod::Simple::PullParser

=head1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head1 DESC <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	945	1034	
==>om Pod::Simple::PullParser

=head1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head1 DESC <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	432	521	
==>om Pod::Simple::PullParser

=head1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head1 DESC <==
5	/Users/nnunley/parrot/languages/perms.pl	237	379	
==>[$i] > $#$things ) {
      $prefix[$i] = 0;
      $i++;
      last if $i > @prefix;
    }
    
    if ( $prefix[-1] >= @$things ) {
      @pref <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569076	569326	
==>650,
                  "ARGS" => [
                              "i",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 218 \"src/ops/object.ops\"\n  {{\@1}} = {{\@2} <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	57832	57977	
==>], $_[1], 'string' ),
            ];
        }
	],
	[#Rule 95
		 '@11-1', 0,
sub
#line 503 "Lua\lua51.yp"
{
            PushScopeF( $_[0] <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	569	663	
==>Block');
  confess("Left (" . ref($left) . ") is not Value") unless UNIVERSAL::isa($left, 'Jako <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	560	654	
==>Block');
  confess("Left (" . ref($left) . ") is not Value") unless UNIVERSAL::isa($left, 'Jako <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	3381	3467	
==><Parrot::Docs::Section::Tests>

=item C<Parrot::Docs::Section::EditorPlugins>

=back

= <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1423	1535	
==>");
      $compiler->indent;
      $self->SUPER::compile($compiler);
      $compiler->outdent;
      $compiler->e <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1779	1891	
==>");
      $compiler->indent;
      $self->SUPER::compile($compiler);
      $compiler->outdent;
      $compiler->e <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1220	1332	
==>");
      $compiler->indent;
      $self->SUPER::compile($compiler);
      $compiler->outdent;
      $compiler->e <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1528	1640	
==>");
      $compiler->indent;
      $self->SUPER::compile($compiler);
      $compiler->outdent;
      $compiler->e <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	628	732	
==>");
    $compiler->indent;
    $self->SUPER::compile($compiler);
    $compiler->outdent;
    $compiler->e <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105049	105279	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105786	106016	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	106524	106754	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107377	107607	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108231	108461	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/tools/build/pmc2c.pl	17407	17515	
==>e, "default.pmc")
        if not $all{default};

    my $vt = read_dump($include, "vtable.pmc");
    add_defa <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088870	1088957	
==>ps/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089818	1089905	
==>ps/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090836	1090923	
==>ps/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1091896	1091983	
==>ps/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459899	460014	
==>_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4}};\n",
                  "LAB <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460887	461002	
==>_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4}};\n",
                  "LAB <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461875	461990	
==>_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4}};\n",
                  "LAB <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	17037	17136	
==>elf = shift;

    my $classname = $self->{class};
    return dynext_load_code($classname, $classname <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	45068	45165	
==>of the fields marked "(if any)" the default value on success is
an empty string.
On failure, all o <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099021	1099121	
==>ODY" => "#line 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100219	1100319	
==>ODY" => "#line 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101417	1101517	
==>ODY" => "#line 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102616	1102716	
==>ODY" => "#line 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\ <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1491	1588	
==>Examples->new,
        Parrot::Docs::Section::PMCs->new,
        Parrot::Docs::Section::DynaPMCs-> <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557298	557559	
==>allmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558681	558942	
==>allmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560065	560326	
==>allmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
5	/Users/nnunley/parrot/tools/build/ops2pm.pl	5414	5512	
==>contains Parrot version info, a preamble for inclusion in C code,
    and an array of C<Parrot::Op> <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307	401	
==>contains Parrot version info, a preamble for inclusion in C code,
and an array of C<Parrot::Op> <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	22818	22936	
==>t simple
    # we have a tuple argumen
    my $tupl = $stack[-1];
    print <<EOC;
    # tuple $tupl->[1] n = $tupl->[0 <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	2762	2873	
==>t];
}


#
# block_depth()
#
# Block depth zero is when the only block on the block stack is the file
# scope blo <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381162	381254	
==>{{\@1}}, PIO_make_offset({{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, P <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382174	382266	
==>{{\@1}}, PIO_make_offset({{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, P <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383186	383278	
==>{{\@1}}, PIO_make_offset({{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, P <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384199	384291	
==>{{\@1}}, PIO_make_offset({{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, P <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1256	1365	
==>n shift->{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { retu <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1247	1356	
==>n shift->{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { retu <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1136	1245	
==>n shift->{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { retu <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	23085	23192	
==>iring any event for this =end $content because in an ignored region\n";
        # And that may be because of <==
5	/Users/nnunley/parrot/tools/dev/run_indent.pl	1250	1347	
==>(\S+)//g) { push @incdirs, $1; }
while ($ccflags =~ s/-I(\S+)//g) { push @incdirs, $1; }
my $i_fla <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71891	72234	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73492	73835	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75094	75437	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76696	77039	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ], <==
5	/Users/nnunley/parrot/config/inter/progs.pm	1501	1615	
==>, the
    default will usually work--they've been intuited from your Perl 5
    configuration.

END
    }

    # Se <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321604	321855	
==>r(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323960	324211	
==>r(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	329418	329669	
==>r(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	330896	331147	
==>r(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	449	543	
==>use warnings;

use base qw( Parrot::Docs::Section );

=item C<config_groups()>

Dynamically cre <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	46784	46934	
==>$_[0], $_[1] );
        }
	],
	[#Rule 11
		 '@1-1', 0,
sub
#line 96 "Lua\lua51.yp"
{
            PushScope( $_[0] );
        }
	],
	[#Rule 1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960407	960707	
==>" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961368	961668	
==>" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962330	962630	
==>" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963292	963592	
==>" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	7776	8070	
==>RS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 171 \"src/ops/ <==
5	/Users/nnunley/parrot/tools/build/dynclasses.pl	2136	2253	
==>rce;
};

sub partial_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/ <==
5	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2428	2545	
==>rce;
};

sub partial_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/ <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	2223	2340	
==>rce;
};

sub partial_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/ <==
5	/Users/nnunley/parrot/config/gen/core_pmcs.pm	469	578	
==>ub runstep
{
    my ($self, $conf) = @_;

    $self->generate_h($conf);
    $self->generate_c($conf);
    $sel <==
5	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11918	12009	
==>ODO

  perl -MPod::Simple::HTML -e \
   "exit Pod::Simple::HTML->filter(shift)->errors_seen" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591542	591630	
==>e_name(interpreter, {{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n\t\t\"Cl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592752	592840	
==>e_name(interpreter, {{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n\t\t\"Cl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593962	594050	
==>e_name(interpreter, {{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n\t\t\"Cl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595173	595261	
==>e_name(interpreter, {{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n\t\t\"Cl <==
5	/Users/nnunley/parrot/lib/Test/More.pm	1705	1793	
==>p_ok($this, '==', $that, $test_name);

  is_deeply($complex_structure1, $complex_structur <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16766	16874	
==>method->{loc} eq 'nci';
        my $ret = $self->body($method, $line, $out_name);
        $line += count_newl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1014258	1014349	
==>trerror(errno);\n  {{\@1}} = string_make(interpreter, tmp, strlen(tmp), \"ascii\", 0);\n  {{ <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	2521	2628	
==>));

	# The "unimplementeds"
	# Eat tokens until we get to the next statement of some kind.
	# These are lik <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5701	5786	
==>rans::CPrederef>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot::OpTrans::Compiled <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3277	3362	
==>rans::CPrederef>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot::OpTrans::Compiled <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	3005	3090	
==>rans::CPrederef>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot::OpTrans::Compiled <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	6457	6542	
==>rans::CPrederef>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot::OpTrans::Compiled <==
5	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2645	2763	
==>r_func = $language_test_map{$func};

        # That's the reason for:   no strict 'refs';
        my $pass = $self-> <==
5	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2175	2289	
==>r_func = $language_test_map{$func};
        # That's the reason for:   no strict 'refs';
        my $pass = $self-> <==
5	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2714	2828	
==>r_func = $language_test_map{$func};
        # That's the reason for:   no strict 'refs';
        my $pass = $self-> <==
5	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	13401	13501	
==>ctor) # shape
    .param pmc op1
    .return op1.'get_shape'()
.end

.sub unicode:"dyadic:\u2374" :mu <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	550	643	
==>nings;

=item C<header($title, $navigation, $resources)>

Returns the page header with the spe <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262928	263228	
==>NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263874	264174	
==>NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264727	265027	
==>NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265581	265881	
==>NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266435	266735	
==>NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727052	727317	
==>P" => 0,
                  "NAME" => "exchange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "io"
                               ],
                  "TYPE" => "f <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727850	728115	
==>P" => 0,
                  "NAME" => "exchange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "io"
                               ],
                  "TYPE" => "f <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	728647	728912	
==>P" => 0,
                  "NAME" => "exchange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "io"
                               ],
                  "TYPE" => "f <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729441	729706	
==>P" => 0,
                  "NAME" => "exchange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "io"
                               ],
                  "TYPE" => "f <==
5	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11336	11437	
==>}
  
  $out =~ tr/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
  return undef if length $out > $Linearizat <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	2596	2692	
==>ock's symbol table. If the symbol already exists,
we throw an error.

TODO: We should generate re <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080409	1080503	
==>\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \"Il <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081474	1081568	
==>\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \"Il <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082539	1082633	
==>\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \"Il <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083605	1083699	
==>\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \"Il <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909361	909618	
==>_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910258	910515	
==>_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911155	911412	
==>_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912053	912310	
==>_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2297	2390	
==>laration of identifier '%s' within same block. Previous declaration on line %d of file '%s'.", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361765	362015	
==>erpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362664	362914	
==>erpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363566	363816	
==>erpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364469	364719	
==>erpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367046	367296	
==>erpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262638	262970	
==>\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264437	264769	
==>\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265291	265623	
==>\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266145	266477	
==>\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLA <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2866	2965	
==>back

=head1 SEE ALSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parro <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	6320	6419	
==>back

=head1 SEE ALSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parro <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4536	4635	
==>back

=head1 SEE ALSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parro <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4513	4612	
==>back

=head1 SEE ALSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parro <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3897	3996	
==>back

=head1 SEE ALSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parro <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067092	1067205	
==>while (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    t <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068278	1068391	
==>while (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    t <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069464	1069577	
==>while (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    t <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070651	1070764	
==>while (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    t <==
5	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10780	10865	
==>,0xfe2ce6e0,/* 58 */
II,$c,$d,$a,$b,$_[10],15,0xa3014314,/* 59 */
II,$b,$c,$d,$a,$_[17 <==
5	/Users/nnunley/parrot/lib/Class/Struct.pm	12147	12244	
==>s, the first argument is an index
specifying one element of the array; the second argument, if
pre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080385	1080478	
==>c/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081450	1081543	
==>c/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082515	1082608	
==>c/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083581	1083674	
==>c/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    i <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	751	845	
==>Left (" . ref($left) . ") is not Value") unless UNIVERSAL::isa($left, 'Jako::Construct::Express <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	589	683	
==>Left (" . ref($left) . ") is not Value") unless UNIVERSAL::isa($left, 'Jako::Construct::Express <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	742	836	
==>Left (" . ref($left) . ") is not Value") unless UNIVERSAL::isa($left, 'Jako::Construct::Express <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	631	725	
==>Left (" . ref($left) . ") is not Value") unless UNIVERSAL::isa($left, 'Jako::Construct::Express <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	580	674	
==>Left (" . ref($left) . ") is not Value") unless UNIVERSAL::isa($left, 'Jako::Construct::Express <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	3346	3511	
==>HTML->new;
                    
        if ( $file->contains_pod )
        {   
            print "\n", $rel_path unless $silent;
        
            $formatter->wri <==
5	/Users/nnunley/parrot/lib/Parrot/Config.pm	1945	2031	
==>strings -Waggregate-return -Winline -W -Wno-unused -Wsign-compare -Wformat-nonliteral - <==
5	/Users/nnunley/parrot/tools/build/dynclasses.pl	1265	1351	
==>strings -Waggregate-return -Winline -W -Wno-unused -Wsign-compare -Wformat-nonliteral - <==
5	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1310	1396	
==>strings -Waggregate-return -Winline -W -Wno-unused -Wsign-compare -Wformat-nonliteral - <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	1314	1400	
==>strings -Waggregate-return -Winline -W -Wno-unused -Wsign-compare -Wformat-nonliteral - <==
5	/Users/nnunley/parrot/Configure.pl	7635	7737	
==>installation:

   --without-icu        Build parrot without ICU support
   --icuheaders=(path)  Locatio <==
5	/Users/nnunley/parrot/config/inter/lex.pm	1815	1913	
==>capture_output($prog, '--version');

    # don't override the user even if the program they provide <==
5	/Users/nnunley/parrot/config/inter/make.pm	1689	1787	
==>capture_output($prog, '--version');

    # don't override the user even if the program they provide <==
5	/Users/nnunley/parrot/config/inter/yacc.pm	1829	1927	
==>capture_output($prog, '--version');

    # don't override the user even if the program they provide <==
5	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	509	603	
==>ESCRIPTION

This script extracts descriptions from the Parrot source files. If no
files are spe <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258498	258827	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259441	259770	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260292	260621	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261144	261473	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261996	262325	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1286	1390	
==>}) { # start of errata!
      $_[0]{'Errata_seen'} = 1;
      $_[0]{'Thispara'} = $_[0]{'source_filename' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332342	332440	
==>io.ops\"\n  /* These char * need to go away soon */\n  const char * const mode = string_to_cstring( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333620	333718	
==>io.ops\"\n  /* These char * need to go away soon */\n  const char * const mode = string_to_cstring( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334898	334996	
==>io.ops\"\n  /* These char * need to go away soon */\n  const char * const mode = string_to_cstring( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336177	336275	
==>io.ops\"\n  /* These char * need to go away soon */\n  const char * const mode = string_to_cstring( <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22157	22255	
==>ight = Jako::Construct::Expression::Value->new($block, $self->require_value);

        $self->requi <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23090	23188	
==>ight = Jako::Construct::Expression::Value->new($block, $self->require_value);

        $self->requi <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24736	24833	
==>ight = Jako::Construct::Expression::Value->new($block, $self->require_value);
        $self->requi <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9917	10013	
==>ight = Jako::Construct::Expression::Value->new($block, $self->require_value);

      $self->requi <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25453	25549	
==>ight = Jako::Construct::Expression::Value->new($block, $self->require_value);

      $self->requi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175329	175629	
==>[
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176232	176532	
==>[
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177136	177436	
==>[
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178040	178340	
==>[
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178945	179245	
==>[
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072733	1072849	
==>y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074918	1075034	
==>y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077103	1077219	
==>y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079289	1079405	
==>y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2015	2112	
==>$index_html = "<p>\n" . $index_html . "</p>\n\n";
		}
		
		$index_html = "<p>$self->{TEXT}</p>\n\n <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2671	2770	
==>>sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ Name => 'bl <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2548	2647	
==>>sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ Name => 'bl <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2923	3022	
==>>sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ Name => 'bl <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3597	3696	
==>>sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ Name => 'bl <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3687	3786	
==>>sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ Name => 'bl <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12567	12685	
==>ref_for_perl_module
{
    my $self = shift;
    my $module = shift;
    
    # This is not very obvious, so let me expl <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24827	24940	
==>e ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_generate($n <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25838	25951	
==>e ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_generate($n <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26726	26839	
==>e ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_generate($n <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27736	27849	
==>e ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_generate($n <==
5	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	46	159	
==>.
# $Id: $

package Parrot::PIR::Formatter;

use strict;
use warnings;

sub new {
    my $class = shift;
    my $c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084697	1084786	
==>DY" => "#line 163 \"src/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interpreter, { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085750	1085839	
==>DY" => "#line 163 \"src/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interpreter, { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086803	1086892	
==>DY" => "#line 163 \"src/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interpreter, { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087857	1087946	
==>DY" => "#line 163 \"src/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interpreter, { <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	825	932	
==>est = ($kind eq 'while') ? 'unless' : 'if';

    $compiler->emit("${prefix}_NEXT:");

    my $op    = $self- <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344212	344307	
==>st char * const path = string_to_cstring(interpreter, {{\@2}});\n  const char * const mode = str <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345454	345549	
==>st char * const path = string_to_cstring(interpreter, {{\@2}});\n  const char * const mode = str <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346696	346791	
==>st char * const path = string_to_cstring(interpreter, {{\@2}});\n  const char * const mode = str <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347939	348034	
==>st char * const path = string_to_cstring(interpreter, {{\@2}});\n  const char * const mode = str <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154327	154626	
==>VE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155230	155529	
==>VE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156134	156433	
==>VE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157038	157337	
==>VE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157943	158242	
==>VE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175567	175866	
==>VE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176470	176769	
==>VE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177374	177673	
==>VE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178278	178577	
==>VE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179183	179482	
==>VE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
5	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	3257	3347	
==>t open '$h_file': $!\n";
print <<"END";
$header
#if !defined(PARROT_CHARSET_TABLES_H_GUARD) <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1282	1418	
==>ck,

    IDENT => $ident,
    COND  => $cond,
    LEFT  => $left,
    OP    => $op,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => $i <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2412	2509	
==>ng>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

Th <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1682	1779	
==>ng>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

Th <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2849	2946	
==>ng>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

Th <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1969	2066	
==>ng>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

Th <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	4335	4435	
==>urr_open { # read-only list accessor
#  return @{ $_[0]{'curr_open'} || return() };
#}
#sub _curr_ope <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9540	9635	
==>URIC}

# It's a call. Get details of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${P <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7054	7149	
==>URIC}

# It's a call. Get details of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${P <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5610	5705	
==>URIC}

# It's a call. Get details of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${P <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7830	7925	
==>URIC}

# It's a call. Get details of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${P <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189786	190047	
==>interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190727	190988	
==>interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191666	191927	
==>interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192606	192867	
==>interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	784	873	
==>em('', 'docs/gettingstarted.pod'),
			$self->new_item('', 'docs/submissions.pod'),
			$sel <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021757	1022031	
==>erpreter, &tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022599	1022873	
==>erpreter, &tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023448	1023722	
==>erpreter, &tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024298	1024572	
==>erpreter, &tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
5	/Users/nnunley/parrot/examples/benchmarks/addit.pl	712	817	
==>s[4] = "21000000";
for (my $x = 500000; $x >= 0; --$x) {
    $result = varargs_adder(@args);
}
print "$res <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17369	17482	
==>5,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20607	20720	
==>5,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22855	22968	
==>5,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40519	40632	
==>5,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43951	44064	
==>5,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770000	770115	
==>NIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770853	770968	
==>NIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771706	771821	
==>NIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772560	772675	
==>NIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" <==
5	/Users/nnunley/parrot/config/init/defaults.pm	3139	3280	
==>s => $Config{libs},

        cc_inc     => "-I./include",
        cc_debug   => '-g',
        link_debug => '',

        o         => $Config{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72768	72870	
==>if (p == NULLfunc) {\n      const char * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74370	74472	
==>if (p == NULLfunc) {\n      const char * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75972	76074	
==>if (p == NULLfunc) {\n      const char * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77575	77677	
==>if (p == NULLfunc) {\n      const char * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072059	1072175	
==>km1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074244	1074360	
==>km1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076429	1076545	
==>km1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078615	1078731	
==>km1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q <==
5	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	7239	7344	
==>($todo) {
        Test::diag("  Failed ($todo) test ($?CALLER::CALLER::CALLER::POSITION)");
    }
    else <==
5	/Users/nnunley/parrot/lib/Parrot/Test.pm	4701	4793	
==>C code, passing the test if output matches the
expected result.

=item C<c_output_isnt($code, <==
5	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2334	2425	
==>sText -e \
   "exit Pod::Simple::DumpAsText->filter(shift)->any_errata_seen" \
   thingy.pod <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550104	550193	
==>t_object = object;\n  interpreter->current_cont = NEED_CONTINUATION;\n  interpreter->curre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551405	551494	
==>t_object = object;\n  interpreter->current_cont = NEED_CONTINUATION;\n  interpreter->curre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552747	552836	
==>t_object = object;\n  interpreter->current_cont = NEED_CONTINUATION;\n  interpreter->curre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855023	855290	
==>(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855912	856179	
==>(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856801	857068	
==>(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857691	857958	
==>(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	16673	16781	
==>a];

  if($content =~ m/^\s*\*\s*$/s or $content =~ m/^\s*$/s) {
    # Like: "=item *", "=item   *   ", "=ite <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59654	59967	
==>,
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 77,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 901 \"s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344375	344466	
==>preter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* string_cstring_free(pat <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345617	345708	
==>preter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* string_cstring_free(pat <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346859	346950	
==>preter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* string_cstring_free(pat <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348102	348193	
==>preter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* string_cstring_free(pat <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599617	599942	
==>object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 679,
                  "ARGS" => [
                              "p",
                              " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501010	501244	
==>s/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501749	501983	
==>s/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502487	502721	
==>s/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503226	503460	
==>s/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579693	579980	
==>er, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580998	581285	
==>er, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582303	582590	
==>er, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583609	583896	
==>er, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PA <==
5	/Users/nnunley/parrot/lib/Parrot/Test.pm	10350	10471	
==>'isnt_eq',
        pbc_output_like    => 'like',
        pasm_output_is     => 'is_eq',
        pasm_output_isnt   => 'isn <==
5	/Users/nnunley/parrot/config/inter/lex.pm	1352	1460	
==>nsequences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $self->set_result('yes <==
5	/Users/nnunley/parrot/config/inter/make.pm	1173	1281	
==>nsequences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $self->set_result('yes <==
5	/Users/nnunley/parrot/config/inter/yacc.pm	1349	1457	
==>nsequences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $self->set_result('yes <==
5	/Users/nnunley/parrot/Configure.pl	6552	6653	
==>se the given type for INTVAL
   --floatval=(type)    Use the given type for FLOATVAL
   --opcode=(type <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	6130	6222	
==>1, $ot1, EQ_${eqnum}_end
	ne $a2, $ot2, EQ_${eqnum}_end
	set $result, 0.0
EQ_${eqnum}_end: no <==
5	/Users/nnunley/parrot/config/auto/pack.pm	2191	2308	
==>eger constant type we can use
    # for pointers.
    #

    if ($intsize == $ptrsize) {
        $conf->data->set(ptrc <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	14888	15005	
==>rint CODE<<OP;
	push P14, "$op"
@a	bsr DEREF
	push P14, P6
OP
			$ops++;
			next;
		}
		@a=EXPRESSION();   # CURR = "t <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6425	6528	
==>ged.
   Exchange=FALSE
   ' Compare the array elements by pairs. When two are exchanged,
   ' force anot <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16078	16181	
==>ged.
   Exchange=FALSE
   ' Compare the array elements by pairs. When two are exchanged,
   ' force anot <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	38179	38280	
==>'        => \&_op_vector,
  'vector-length' => \&_op_vector_length,
  'vector-ref'    => \&_op_vector_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	97659	97953	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnot",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	99058	99352	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnot",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/lib/Test/More.pm	31427	31554	
==>}

    return 1 if $a1 eq $a2;

    my $ok = 1;
    my $bigger = keys %$a1 > keys %$a2 ? $a1 : $a2;
    foreach my $k (keys %$bi <==
5	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	4015	4135	
==>73"]  =  <<"END_PIR"            # index of
    #XXX hack all the _1's need the same, generated unique number.
    $P100 = <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	3257	3358	
==>)/gc;
	my $prelen = length($1);
	my $matchpos = $startpos+$prelen;
	my $endpos = pos $$textref;
	retur <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	7375	7466	
==>tack and precedence($stack[-1]->[0]) >= precedence($item->[0])) {
			push @stream, pop @stac <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	595	685	
==>Parser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullParser <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1014	1104	
==>Parser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullParser <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	501	591	
==>Parser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullParser <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1488	1578	
==>Parser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullParser <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130168	130525	
==>"ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 160,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#l <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712720	712816	
==>\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713827	713923	
==>\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720187	720283	
==>\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721387	721483	
==>\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867305	867592	
==>@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868271	868558	
==>@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869237	869524	
==>@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870204	870491	
==>@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	536875	537140	
==>FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 621,
                  "ARGS" => [ <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11721	11887	
==>s, @{ $last_key->[1] };
                    my $assign = new KeyedSetOp( $parser,
                        'arg1'   => $last_key->[0],
                        'arg2' <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9925	10079	
==>s, @{ $last_key->[1] };
                my $assign = new KeyedSetOp( $parser,
                    'arg1'   => $last_key->[0],
                    'arg2' <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8788	8918	
==>s, @{ $last_key->[1] };
        my $assign = new KeyedSetOp( $parser,
            'arg1'   => $last_key->[0],
            'arg2' <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	26393	26520	
==>nd') {
        $self->whine(
          $para->[1]{'start_line'},
          "=over is the last thing in the document?!"
        ) <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	11291	11392	
==>h::needparen { 1 }
sub Regex::Ops::Tree::multi_match::render {
    my $op = shift;
    my ($min, $max, <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32664	32783	
==>we have any. Note that it has no obligations.
        if ($rule->{'typeinfo'}) {
		    $pir .= "### typeinfo\n";
		    $ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909327	909440	
==>ng.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "L <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910224	910337	
==>ng.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "L <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911121	911234	
==>ng.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "L <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912019	912132	
==>ng.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "L <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565090	565281	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "can",
                  "FLAGS" => ":object_base",
                  "ARGDIRS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565982	566173	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "can",
                  "FLAGS" => ":object_base",
                  "ARGDIRS <==
5	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1435	1545	
==>lename, $pattern) = @_;
    my $PIR;
    open($PIR, '>', $filename) or die "create $filename: $!";

    my $ctx <==
5	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	793	886	
==>transcript of the svn:ignore properties
# of the directories in the Parrot subversion reposito <==
5	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3648	3741	
==>transcript of the svn:ignore properties
# of the directories in the Parrot subversion reposito <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135501	135675	
==>= string_bitwise_xor(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136395	136569	
==>= string_bitwise_xor(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137289	137463	
==>= string_bitwise_xor(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	22388	22505	
==><<EOC;
        $s = classname $cl->[1]
	$i = isa $ob, $s
	$b = new Boolean
	$b = $i
EOC
    push @stack, [-1, $b, 'P'] <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	325	422	
==>ed by F<tools/build/pmc2c.pl> to generate C code from PMC files.

=head2 Functions

=over

=cut

p <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13788	13892	
==>umber of lines, C<$out_name> is the name of the output file we are
generating.

=cut

sub body
{
    my ( <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29571	29675	
==>umber of lines, C<$out_name> is the name of the output file we are
generating.

=cut

sub body
{
    my ( <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30213	30317	
==>umber of lines, C<$out_name> is the name of the output file we are
generating.

=cut

sub body
{
    my ( <==
5	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1944	2045	
==>6789])/'&#'.(ord($1)).';'/eg;
    # Yes, stipulate the list without a range, so that this can work rig <==
5	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2047	2148	
==>6789])/'&#'.(ord($1)).';'/eg;
    # Yes, stipulate the list without a range, so that this can work rig <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492224	492467	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492984	493227	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498957	499200	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499719	499962	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	662	766	
==>ntarray ? @parrot_version : $parrot_version;
    }

    # Obtain the official version number from the VER <==
5	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4654	4791	
==>ble{ALL}{$1});
            }
        }
    }
    
    close(F);

    # filter out things that start with _.  Probably internal libc stuff. <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	373977	374084	
==>,
                  "BODY" => "#line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374860	374967	
==>,
                  "BODY" => "#line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375743	375850	
==>,
                  "BODY" => "#line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376627	376734	
==>,
                  "BODY" => "#line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769393	769568	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770245	770420	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771098	771273	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771951	772126	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	264	366	
==>e  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statement::Call;

use Carp;

use bas <==
5	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	285	417	
==>st} ?
               Parrot::Test::per_test( '_antlr2.out', $count )
               :
               Parrot::Test::per_test( '_antlr2 <==
5	/Users/nnunley/parrot/config/auto/cgoto.pm	564	674	
==>lf, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('skipped');
        re <==
5	/Users/nnunley/parrot/config/auto/headers.pm	499	609	
==>lf, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('skipped');
        re <==
5	/Users/nnunley/parrot/config/auto/jit.pm	650	760	
==>lf, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('skipped');
        re <==
5	/Users/nnunley/parrot/config/gen/cpu.pm	562	672	
==>lf, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('skipped');
        re <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	689801	690091	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "freeze",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147324	147586	
==>preter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148265	148527	
==>preter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149205	149467	
==>preter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150146	150408	
==>preter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	7608	7710	
==>codeb)=EXPRESSION();
		}
	}
	if (@codeb and @codef) {  	# F and B
		push @{$code{$seg}->{code}},<<FANDB <==
5	/Users/nnunley/parrot/lib/Class/Struct.pm	18461	18559	
==>ompile time class creation.

Modified by Damian Conway, 1999-03-05, v0.58.

    Added handling of h <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	662	746	
==>is not!" unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifie <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	741	825	
==>is not!" unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifie <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	550	634	
==>is not!" unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifie <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072131	1072263	
==>NTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074316	1074448	
==>NTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076501	1076633	
==>NTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078687	1078819	
==>NTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\ <==
5	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8598	8710	
==>begin
got_it:
    inc pos
    push result, pos
    .return (result)
no_gots:
    push result, not_there
    .retu <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072333	1072450	
==>kp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  {{\@2}} = (INTVAL)( xk * pow <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074518	1074635	
==>kp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  {{\@2}} = (INTVAL)( xk * pow <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076703	1076820	
==>kp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  {{\@2}} = (INTVAL)( xk * pow <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078889	1079006	
==>kp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  {{\@2}} = (INTVAL)( xk * pow <==
5	/Users/nnunley/parrot/config/gen/core_pmcs.pm	2427	2520	
==>r_pmc(Interp *interp, PMC* registry, int pmc_id)
{
    STRING* key = interp->vtables[pmc_id]-> <==
5	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	1953	2063	
==>PARROT_TCLSH})) {
      $executable = $ENV{PARROT_TCLSH};
    }
    $cmd = "$executable $lang_f";

    $exit_co <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796994	797082	
==>"BODY" => "#line 462 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed(interpret <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797898	797986	
==>"BODY" => "#line 462 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed(interpret <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798802	798890	
==>"BODY" => "#line 462 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed(interpret <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799707	799795	
==>"BODY" => "#line 462 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed(interpret <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13159	13378	
==>L2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14003	14222	
==>L2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14707	14926	
==>L2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	15394	15613	
==>L2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
5	/Users/nnunley/parrot/tools/build/ops2pm.pl	3257	3371	
==>le '$file' mentioned more than once!\n";
	next;
    }
    $seen{$file} = 1;

    die "$0: Could not find ops file ' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867262	867371	
==>} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868228	868337	
==>} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869194	869303	
==>} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870161	870270	
==>} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" <==
5	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	4027	4124	
==>-Compiler)

=item *

encrypting only small amounts of data (less than one million bytes). I use it <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	5014	5136	
==>C;
pc_$n:
EOC
}

sub New_func {
    my ($n, $arg, $cmt) = @_;
    my $nst = "";
    my $ns = $namespace{$arg};
    my $real <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849845	849936	
==>DY" => "#line 83 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@2}}, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850732	850823	
==>DY" => "#line 83 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@2}}, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851619	851710	
==>DY" => "#line 83 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@2}}, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852507	852598	
==>DY" => "#line 83 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@2}}, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908726	909034	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909622	909930	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910519	910827	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911416	911724	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	3044	3138	
==>ew Test::Builder object different from the
singleton, use C<create>.

=cut

my $Test = Test::Bu <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467692	467922	
==>nError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468563	468793	
==>nError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469437	469667	
==>nError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470312	470542	
==>nError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	9049	9146	
==>int {	
	my($fd, $string)=@_;
	if ($fd) {
		push @{$code{$seg}->{code}}, <<PRINT;
	_WRITE($fd,1,"$s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377573	377680	
==>{\@1}} = Parrot_fstat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378457	378564	
==>{\@1}} = Parrot_fstat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379341	379448	
==>{\@1}} = Parrot_fstat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380226	380333	
==>{\@1}} = Parrot_fstat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	51733	51829	
==>item, $item[0]}},0,-1);
					$self->{_AUTOTREE}{TERMINAL}
						= new Parse::RecDescent::Action(q <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409815	410082	
==>"function",
                  "CODE" => 473,
                  "ARGS" => [
                              "i",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 545 \"src/ops/io.ops\"\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38971	39063	
==>re.ops\"\n  if ({{\@1}} == EXCEPT_doomed)\n    _exit({{\@2}});\n  do_exception(interpreter, { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39836	39928	
==>re.ops\"\n  if ({{\@1}} == EXCEPT_doomed)\n    _exit({{\@2}});\n  do_exception(interpreter, { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40683	40775	
==>re.ops\"\n  if ({{\@1}} == EXCEPT_doomed)\n    _exit({{\@2}});\n  do_exception(interpreter, { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41531	41623	
==>re.ops\"\n  if ({{\@1}} == EXCEPT_doomed)\n    _exit({{\@2}});\n  do_exception(interpreter, { <==
5	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	1009	1134	
==>l    = 0;
    my $verbatim = 0;

    # Step one - indent, and add in extra blank lines.

    my @output;
    my $verbatim_chun <==
5	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	11028	11123	
==>sc?, Bool :$todo, Str :$depends) returns Bool`

- `like (Str $got, Rule $expected, Str $desc?, B <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11006	11095	
==>TEMP0} != ELEMENT_TYPE_VOID goto pre_call_HAS_RETURN_${CURIC}
if "${CURIC}" == "73" goto p <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8192	8281	
==>TEMP0} != ELEMENT_TYPE_VOID goto pre_call_HAS_RETURN_${CURIC}
if "${CURIC}" == "73" goto p <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5854	5943	
==>TEMP0} != ELEMENT_TYPE_VOID goto pre_call_HAS_RETURN_${CURIC}
if "${CURIC}" == "73" goto p <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344623	344926	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345865	346168	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347107	347410	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348350	348653	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38102	38209	
==>ule: ['
			. $self->describe . ']>>},
						  Parse::RecDescent::_tracefirst($text),
						  q{' . $rule->{" <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2381	2482	
==>s>) and value. C<$op> is an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $ <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3473	3574	
==>s>) and value. C<$op> is an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $ <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3617	3718	
==>s>) and value. C<$op> is an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $ <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3272	3373	
==>s>) and value. C<$op> is an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $ <==
5	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	6906	6996	
==>turn if $name =~ /\.svn|core|\.[oa]|\.(so|brk|dsp|tmp)$/;
	return if $name =~ /locales\W[a- <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	9095	9198	
==>]?\d+/;
    $frac = qr/\.\d+/;
    $pointfloat = qr/(?:(?:\d+)?$frac)|\d+\./o;
    $expfloat = qr/(?:\d+ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579316	579410	
==>up(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580621	580715	
==>up(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581926	582020	
==>up(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583232	583326	
==>up(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	2900	2987	
==>>

=item C<Parrot::Docs::Section::PMCs>

=item C<Parrot::Docs::Section::DynaPMCs>

=item <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3538	3645	
==>.
    }
    else {
      $self->SYNTAX_ERROR("Sub declaration has no fnlib property, and parent block is not <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6202	6309	
==>.
    }
    else {
      $self->SYNTAX_ERROR("Sub declaration has no fnlib property, and parent block is not <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540445	540545	
==>@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541697	541797	
==>@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542949	543049	
==>@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154321	154622	
==>RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155224	155525	
==>RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156128	156429	
==>RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157032	157333	
==>RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157937	158238	
==>RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27496	27609	
==>pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_ <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29963	30076	
==>pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_ <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33381	33494	
==>pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_ <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34635	34748	
==>pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_ <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37045	37158	
==>pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_ <==
5	/Users/nnunley/parrot/tools/build/ops2pm.pl	8031	8152	
==>r;
        $fixed{$name} = $number if ($fix);
    }
    close OP;
    open OP, "> $file" or die "Can't open $file, error $ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586875	586968	
==>erpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=ne <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588061	588154	
==>erpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=ne <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589247	589340	
==>erpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=ne <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590434	590527	
==>erpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=ne <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	33271	33403	
==>$w->[2] eq 'P') {
	   $ww = temp('I');
	   print <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	34020	34152	
==>$w->[2] eq 'P') {
	   $ww = temp('I');
	   print <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	34944	35076	
==>$w->[2] eq 'P') {
	   $ww = temp('I');
	   print <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7268	7382	
==>}

	return $pir;
}

sub post_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If the registe <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5090	5204	
==>}

	return $pir;
}

sub post_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If the registe <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	16313	16428	
==>tart(
      ($scratch = 'Document'),
      {
        'start_line' => $paras->[0][1]{'start_line'},
        $starting <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344314	344405	
==>_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  / <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345556	345647	
==>_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  / <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346798	346889	
==>_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  / <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348041	348132	
==>_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  / <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848299	848573	
==>}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849079	849353	
==>}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853408	853682	
==>}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854190	854464	
==>}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
5	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	196	290	
==>e -- testing routines for languages/punie

This is largely a copy of Parrot::Test::Tcl, which l <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6969	7087	
==>reg);

    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        return ("\$dbg_tmp = \@<rx_s <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9121	9238	
==>reg);
    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        return ("\$dbg_tmp = \@<rx_s <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5473	5572	
==>set', [$pair.'[0]',$item]);
      $self->_add_inst ('', 'set', [$pair.'[1]',$return]);
      $self-> <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17024	17117	
==>set',[$pair.'[0]',$item]);
    $self->_add_inst ('', 'set',[$pair.'[1]',$return]);
    $self-> <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6512	6602	
==>set', [$pair.'[0]',$item]);
  $self->_add_inst('', 'set', [$pair.'[1]',$return]);
  $self-> <==
5	/Users/nnunley/parrot/config/gen/makefiles.pm	2634	2823	
==>mentType                          => '#',
        replace_slashes                      => 1,
        conditioned_lines                    => 1
    );
    genfile(
        'config/gen/makefil <==
5	/Users/nnunley/parrot/config/gen/makefiles.pm	1368	1539	
==>mentType                    => '#',
        replace_slashes                => 1,
        conditioned_lines              => 1
    );
    genfile(
        'config/gen/makefil <==
5	/Users/nnunley/parrot/config/gen/makefiles.pm	4435	4600	
==>mentType                  => '#',
        replace_slashes              => 1,
        conditioned_lines            => 1
    );
    genfile(
        'config/gen/makefil <==
5	/Users/nnunley/parrot/config/gen/makefiles.pm	5485	5650	
==>mentType                  => '#',
        replace_slashes              => 1,
        conditioned_lines            => 1
    );
    genfile(
        'config/gen/makefil <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45502	45598	
==>K		= '\G\s*<skip:';
my $OPMK		= '\G\s*<(left|right)op:';
my $ENDDIRECTIVEMK	= '\G\s*>';
my $RESYN <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	488	583	
==>ht) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Co <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	464	559	
==>ht) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Co <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	479	574	
==>ht) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Co <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	368	463	
==>ht) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Co <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	455	550	
==>ht) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Co <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206528	206790	
==>\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207470	207732	
==>\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208410	208672	
==>\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209351	209613	
==>\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ) <==
5	/Users/nnunley/parrot/tools/dev/nm.pl	9481	9617	
==>obal ?
				$symbol : lc $symbol;
			}
		    }
		    print $show, "\n";
		}
	    }
	}
	close(NM);
    } else {
	warn "$ME: '$nm_cmd $nm_op <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403994	404185	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "A <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404905	405096	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "A <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405817	406008	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "A <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406729	406920	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "A <==
5	/Users/nnunley/parrot/tools/build/ops2c.pl	15041	15137	
==>amic_flag) {
    my $load_func = "Parrot_lib_${base}_ops${suffix}_load";
    print SOURCE <<END_C <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258371	258696	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259314	259639	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260165	260490	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261017	261342	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261869	262194	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344126	344226	
==>DY" => "#line 148 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345368	345468	
==>DY" => "#line 148 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346610	346710	
==>DY" => "#line 148 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347853	347953	
==>DY" => "#line 148 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const <==
5	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	576	673	
==>is
lets us do this work B<once> instead of many times, which B<should> make it
easier to inline mo <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15459	15560	
==>.=join(' ', map { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair unary -, functions, etc...
		@stre <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15821	15922	
==>.=join(' ', map { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair unary -, functions, etc...
		@stre <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16348	16449	
==>.=join(' ', map { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair unary -, functions, etc...
		@stre <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16972	17073	
==>.=join(' ', map { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair unary -, functions, etc...
		@stre <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	685	777	
==>(),f()
call first(t())
print t(5)

' Keys test, "interesting"
dim a$(),b$()
b$("Key 1")="This <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672473	672759	
==>P" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 75 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673245	673531	
==>P" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 75 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	674015	674301	
==>P" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 75 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	674786	675072	
==>P" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 75 <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	25195	25322	
==>AssignOp( $parser,
        'arg1'   => undef,
        'result' => $defn,
    );
    return [ $defn, \@opcodes, $assign ];
} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710866	711107	
==>o, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_it <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711700	711941	
==>o, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_it <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712806	713047	
==>o, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_it <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713913	714154	
==>o, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_it <==
5	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9496	9585	
==>File::Spec->catdir($self->path, $directories);
    $path = File::Spec->catfile($path, $nam <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2506	2606	
==>> 'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2383	2483	
==>> 'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2776	2876	
==>> 'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3450	3550	
==>> 'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3540	3640	
==>> 'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021114	1021408	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodetime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021955	1022249	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodetime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10954	11044	
==>ply a ${DEST0}.
${ITEMP0} = ${PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pre_ca <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8140	8230	
==>ply a ${DEST0}.
${ITEMP0} = ${PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pre_ca <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5802	5892	
==>ply a ${DEST0}.
${ITEMP0} = ${PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pre_ca <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344660	344948	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345902	346190	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347144	347432	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348387	348675	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836808	837039	
==>P" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837540	837771	
==>P" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838274	838505	
==>P" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	839006	839237	
==>P" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline", <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	17464	17559	
==>('ge', [ $counter, $N, $lastback ]),
		 aop('goto', [ $try ]),
	$back => $self->op_restore_rxloc <==
5	/Users/nnunley/parrot/languages/regex/regex.pl	581	707	
==>1;
    } elsif (/--output-file=(.*)/) {
        $output = $1;
    } elsif (/--file=(.*)/) {
        $expr_file = $1;
    } elsi <==
5	/Users/nnunley/parrot/config/init/hints/cygwin.pm	825	944	
==>blems, it might be worth revisiting.
    # A. Dougherty 9/9/2002
    $conf->data->set(
        build_dir           => $b <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	13387	13505	
==>, $p, 'P'];
}

sub PRINT_ITEM
{
    my ($n, $c, $cmt) = @_;
    my $tos = pop @stack;
    print <<"EOC";
	print_item $t <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	3997	4103	
==>aop('if', [ $op1, $test, $op2, $dest->[1] ]);
    } elsif ($dest->{name} eq 'LABEL') {
        return aop(' <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	35084	35181	
==>alanced.
(In a scalar context just the first element of the array would be returned. In
a void con <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842153	842391	
==>line",
                  "CODE" => 955,
                  "ARGS" => [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 40 \"src/ops/string.ops\"\n  {{\@ <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2018	2117	
==>';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set register nam <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3270	3369	
==>';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set register nam <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5900	5998	
==>'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set register nam <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6458	6556	
==>'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set register nam <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	44945	45074	
==>s is on either by this being an S element,
                   #  or by an ancestor being an S element.

  for(my $i = 2; $i < @$tr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591656	591770	
==>, name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABEL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592866	592980	
==>, name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABEL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594076	594190	
==>, name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABEL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595287	595401	
==>, name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABEL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176095	176194	
==>Y" => "#line 240 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176999	177098	
==>Y" => "#line 240 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177903	178002	
==>Y" => "#line 240 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178808	178907	
==>Y" => "#line 240 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4} <==
5	/Users/nnunley/parrot/config/gen/config_pm.pm	717	807	
==>/config_pm/myconfig.in', 'myconfig');

    open(IN,  "config/gen/config_pm/Config_pm.in") o <==
5	/Users/nnunley/parrot/config/inter/lex.pm	1721	1822	
==>t($prompt, $prog ? $prog : $conf->data->get($util));
    }

    my ($stdout, $stderr, $ret) = capture_ <==
5	/Users/nnunley/parrot/config/inter/make.pm	1595	1696	
==>t($prompt, $prog ? $prog : $conf->data->get($util));
    }

    my ($stdout, $stderr, $ret) = capture_ <==
5	/Users/nnunley/parrot/config/inter/yacc.pm	1735	1836	
==>t($prompt, $prog ? $prog : $conf->data->get($util));
    }

    my ($stdout, $stderr, $ret) = capture_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243917	244007	
==>ne 632 \"src/ops/cmp.ops\"\n  STRING* l = VTABLE_get_string(interpreter, {{\@2}});\n  {{\@1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244849	244939	
==>ne 632 \"src/ops/cmp.ops\"\n  STRING* l = VTABLE_get_string(interpreter, {{\@2}});\n  {{\@1 <==
5	/Users/nnunley/parrot/config/inter/encoding.pm	529	656	
==>b runstep
{
    my ($self, $conf) = @_;

    my @encoding = (
        sort
            map { m{\./src/encodings/(.*)} } glob "./ <==
5	/Users/nnunley/parrot/config/auto/cgoto.pm	945	1063	
==>lean();
    }

    if ($test) {
        $conf->data->set(
            TEMP_cg_h => '$(INC_DIR)/oplib/core_ops_cg.h $(IN <==
5	/Users/nnunley/parrot/tools/build/dynclasses.pl	704	805	
==>d in
# some places as Win32 paths have \'s in, which qq[] treats as escape sequences.
# Config stuff
o <==
5	/Users/nnunley/parrot/tools/build/dynoplibs.pl	662	763	
==>d in
# some places as Win32 paths have \'s in, which qq[] treats as escape sequences.
# Config stuff
o <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	666	767	
==>d in
# some places as Win32 paths have \'s in, which qq[] treats as escape sequences.
# Config stuff
o <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	69587	69686	
==>ty("HINT"))
	{
		local $::RD_HINT = 1;
		_hint('Set $::RD_HINT (or -RD_HINT if you\'re using "perl - <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6480	6597	
==>o $fail if <rx_pos> < <rx_len>; # at end?");
}

sub output_pushmark {
    my ($self) = @_;
    my @ops;
    if ($self- <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27624	27725	
==>r($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir = <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30091	30192	
==>r($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir = <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33509	33610	
==>r($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir = <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37173	37274	
==>r($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir = <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	5983	6143	
==>arent->relative_path($file),
                    esc($text));
        }
        else
        {
            print {$self->{'output_fh'}} 
                $self->{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080650	1080975	
==>erimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081715	1082040	
==>erimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082780	1083105	
==>erimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103029	1103354	
==>erimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104243	1104568	
==>erimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLA <==
5	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	8053	8195	
==>~ s/\//_/g;
        
        print OUT qq(
           <tr>
             <td>$source_file</td>
             <td><a href="$outfile_base.lines.htm <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613439	613861	
==>S" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 695,
                  "ARGS" => [
                              "p",
                              "sc",
                              "p"
                            ],
                  "BODY" => "#l <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748859	748965	
==>"\n  {{\@1}}->vtable->set_number_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749643	749749	
==>"\n  {{\@1}}->vtable->set_number_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755159	755265	
==>"\n  {{\@1}}->vtable->set_number_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755946	756052	
==>"\n  {{\@1}}->vtable->set_number_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126251	126551	
==>,
                  "CODE" => 156,
                  "ARGS" => [
                              "i",
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 271 \"src/ops/bit.ops\"\n  con <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847579	847868	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "A <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848358	848647	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "A <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849138	849427	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "A <==
5	/Users/nnunley/parrot/examples/benchmarks/oofib.pl	66	178	
==>= shift;
    return $n if ($n < 2);
    return $self->fibA($n-1) + $self->fibB($n-2);
}
sub fibA {
    my $self = <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	13536	13671	
==>nk' => 57
		}
	},
	{#State 15
		DEFAULT => -11,
		GOTOS => {
			'@1-1' => 59
		}
	},
	{#State 16
		DEFAULT => -13,
		GOTOS => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344362	344453	
==>IO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* string_cst <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345604	345695	
==>IO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* string_cst <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346846	346937	
==>IO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* string_cst <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348089	348180	
==>IO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* string_cst <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769415	769698	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770267	770550	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771120	771403	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771973	772256	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	62337	62434	
==>cer>

C<extract_variable> was expecting one of '$', '@', or '%' at the start of
a variable, but di <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343571	343888	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344812	345129	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346054	346371	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347296	347613	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3322	3427	
==>m->props;

  if (exists $props{fn} or exists $props{fnlib}) {
    my $fnlib;

    if (exists $props{fnlib} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258501	258831	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259444	259774	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260295	260625	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261147	261477	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261999	262329	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925520	925798	
==>E" => "stringinfo",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926989	927267	
==>E" => "stringinfo",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928459	928737	
==>E" => "stringinfo",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929929	930207	
==>E" => "stringinfo",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	16486	16599	
==>);
  }

  my($para, $para_type);
  while(@$paras) {
    last if @$paras == 1 and
      ( $paras->[0][0] eq '=over' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763202	763432	
==>r access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764055	764285	
==>r access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764908	765138	
==>r access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765762	765992	
==>r access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
5	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	4457	4603	
==>ns{commentType} eq '#') {
            foreach my $line (@comment) {
                $line = "# $line\n";
            }
        } elsif ($options{co <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849881	849992	
==>s\"\n  {{\@1}} = string_chopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850768	850879	
==>s\"\n  {{\@1}} = string_chopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851655	851766	
==>s\"\n  {{\@1}} = string_chopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852543	852654	
==>s\"\n  {{\@1}} = string_chopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [ <==
5	/Users/nnunley/parrot/config/init/defaults.pm	2275	2380	
==>ibraries we're building.  On HP-UX, for example, we need to
        # allow dynamic libraries to access th <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18542	18648	
==>te($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_generate($node->{child <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19255	19361	
==>te($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_generate($node->{child <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19743	19849	
==>te($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_generate($node->{child <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20232	20338	
==>te($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_generate($node->{child <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20721	20827	
==>te($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_generate($node->{child <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949926	950243	
==>{
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950885	951202	
==>{
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951845	952162	
==>{
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952805	953122	
==>{
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	21483	21599	
==>$pres = new .Boolean
	$pres = $res # ugly
EOC
	push @stack, [-1, $pres, 'P'];
	return;

    }
    # XXX the label may <==
5	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	5083	5198	
==>y (%tests) = @_;

    my $count = scalar keys %tests;
    die unless $count;

    my $string = <<"END";
#!/usr/bin/p <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381172	381263	
==>IO_make_offset({{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382184	382275	
==>IO_make_offset({{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383196	383287	
==>IO_make_offset({{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384209	384300	
==>IO_make_offset({{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264364	264481	
==>ODY" => "#line 806 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265218	265335	
==>ODY" => "#line 806 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266072	266189	
==>ODY" => "#line 806 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266927	267044	
==>ODY" => "#line 806 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	3973	4060	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub version_report {
  my $cla <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	12678	12786	
==>ps_ref}, "STRING *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_S($r <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	12885	12993	
==>ps_ref}, "STRING *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_S($r <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	13370	13478	
==>ps_ref}, "STRING *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_S($r <==
5	/Users/nnunley/parrot/config/gen/PodText.pm	167	271	
==>m - generate plain text docs from Pod files

=head1 SYNOPSIS

    use gen::PodText;

    gen::PodText->ru <==
5	/Users/nnunley/parrot/lib/Test/More.pm	12600	12699	
==>gainst your test script blowing up.

It works on references, too:

    isa_ok( $array_ref, 'ARRAY' ) <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	3523	3631	
==>osub | return  | sub | call | select | case |
		read | restore | input | open | close | on | randomize | stop <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033170	1033263	
==>\"src/ops/var.ops\"\n    parrot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034268	1034361	
==>\"src/ops/var.ops\"\n    parrot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035364	1035457	
==>\"src/ops/var.ops\"\n    parrot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036528	1036621	
==>\"src/ops/var.ops\"\n    parrot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	30128	30252	
==>push @stack, $w;
    push @stack, $v;
}

sub STORE_SUBSCR
{
    my ($n, $c, $cmt) = @_;
    my $x = pop @stack;
    my $v = p <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858588	858679	
==>al_exception(NEG_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repe <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859592	859683	
==>al_exception(NEG_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repe <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860596	860687	
==>al_exception(NEG_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repe <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861601	861692	
==>al_exception(NEG_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repe <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909241	909379	
==>"
                            ],
                  "BODY" => "#line 284 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910138	910276	
==>"
                            ],
                  "BODY" => "#line 284 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911035	911173	
==>"
                            ],
                  "BODY" => "#line 284 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911933	912071	
==>"
                            ],
                  "BODY" => "#line 284 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, <==
5	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4172	4269	
==>$self = shift;

    return sort grep {-d} $self->file_and_directory_paths;
}

=item C<file_exists_ <==
5	/Users/nnunley/parrot/config/inter/libparrot.pm	407	510	
==>t;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

us <==
5	/Users/nnunley/parrot/config/auto/format.pm	286	382	
==>t;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

us <==
5	/Users/nnunley/parrot/config/init/manifest.pm	304	400	
==>t;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

us <==
5	/Users/nnunley/parrot/config/init/miniparrot.pm	571	667	
==>t;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

us <==
5	/Users/nnunley/parrot/config/inter/charset.pm	288	384	
==>t;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

us <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18973	19069	
==>_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self->_r <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19461	19557	
==>_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self->_r <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19949	20045	
==>_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self->_r <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20438	20534	
==>_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self->_r <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20927	21023	
==>_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self->_r <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	47652	47761	
==>nt "Paragraph:\n$para\n\n";
  
  while($para =~  # Here begins our frightening tokenizer RE.
    m/\G
      (? <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800664	800771	
==>>vtable->set_string_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801568	801675	
==>>vtable->set_string_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802472	802579	
==>>vtable->set_string_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803377	803484	
==>>vtable->set_string_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727573	727807	
==>{{\@1}};\n   {{\@1}} = {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	728370	728604	
==>{{\@1}};\n   {{\@1}} = {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729164	729398	
==>{{\@1}};\n   {{\@1}} = {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729964	730198	
==>{{\@1}};\n   {{\@1}} = {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7472	7562	
==>} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP0} = concat "0"
${PARAM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215081	215343	
==>reter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parro <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216022	216284	
==>reter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parro <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216961	217223	
==>reter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parro <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217901	218163	
==>reter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parro <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101063	101151	
==>=> "#line 125 \"src/ops/bit.ops\"\n  string_bitwise_not(interpreter, {{\@1}}, &{{\@1}});\ <==
5	/Users/nnunley/parrot/config/gen/PodText.pm	663	757	
==>urce Pod document and the values being the
destination plain text file.

Accepts a L<Parrot::Co <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773399	773484	
==>7 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774309	774394	
==>7 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775219	775304	
==>7 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776130	776215	
==>7 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}} <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	41013	41121	
==>$line, "ref.c");
    return <<EOC;
$l
$decl {
    SLOTTYPE *attrib_array = PMC_data(pmc);
    PMC *attr = get <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11402	11498	
==>RIC}

# It's a return. See if we have a return value.
PRE_CALL_RETURN_${CURIC}:
${ITEMP0} = eleme <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8588	8684	
==>RIC}

# It's a return. See if we have a return value.
PRE_CALL_RETURN_${CURIC}:
${ITEMP0} = eleme <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7160	7256	
==>RIC}

# It's a return. See if we have a return value.
PRE_CALL_RETURN_${CURIC}:
${ITEMP0} = eleme <==
5	/Users/nnunley/parrot/config/auto/memalign.pm	124	219	
==>e  $

=head1 NAME

config/auto/memalign.pm - Memory Alignment

=head1 DESCRIPTION

Determines if <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	16573	16730	
==>$test;
    {
        local $^W = 0;
        local($@,$!);   # don't interfere with $@
                        # eval() sometimes resets $!
        $test = eva <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926121	926242	
==>} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927591	927712	
==>} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929061	929182	
==>} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930532	930653	
==>} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2392	2493	
==>ue. C<$op> is an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) = <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3484	3585	
==>ue. C<$op> is an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) = <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3628	3729	
==>ue. C<$op> is an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) = <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3283	3384	
==>ue. C<$op> is an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) = <==
5	/Users/nnunley/parrot/config/inter/pmc.pm	267	362	
==>mc;

use strict;
use warnings;

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configu <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	558	660	
==>tr('attrname')
    ${$_[0][2] || return undef}{ $_[1] };
  } elsif(@_ > 2) {  # Writing: $token->attr(' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151069	151161	
==>l(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{+ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152047	152139	
==>l(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{+ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172297	172389	
==>l(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{+ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173275	173367	
==>l(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{+ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672442	672727	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673214	673499	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673984	674269	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	674755	675040	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	23406	23520	
==>$textref)-1
					unless $igunk || defined $unkpos;
			}
		}
		
		if (defined $unkpos)
		{
			push @fields, substr($ <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	12303	12438	
==>? | METHODS?
             | CAVEATS? | BUGS? | SEE\ ALSO | SWITCHES | ENVIRONMENT
            )\)/sx
            # avoid accepting thing <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24403	24508	
==>children==1) {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25292	25397	
==>children==1) {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26302	26407	
==>children==1) {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27192	27297	
==>children==1) {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654844	655166	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656562	656884	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657486	657808	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658404	658726	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS <==
5	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1107	1219	
==>grave=impr   
       dotted-underline=uld          dash-underline=uldash
       dot-dash-underline=uldashd    dot <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	51266	51384	
==>E__, "\n";
      die "SPORK 512512!";
    }
  }

  if(@stack) { # Uhoh, some sequences weren't closed.
    my $x= "..." <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	846	939	
==>ion::Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($rig <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	684	777	
==>ion::Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($rig <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	837	930	
==>ion::Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($rig <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	726	819	
==>ion::Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($rig <==
5	/Users/nnunley/parrot/config/auto/jit.pm	4009	4131	
==>ed $conf->options->get('execcapable');
        if ($execcapable) {
            $conf->data->set(
                TEMP_exec_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909292	909383	
==>"BODY" => "#line 284 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910189	910280	
==>"BODY" => "#line 284 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911086	911177	
==>"BODY" => "#line 284 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911984	912075	
==>"BODY" => "#line 284 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\ <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5017	5117	
==>TEMP1}
${STACK0} = concat "0"

# Emit pop code.
${INS} = concat ${STACK0}
${INS} = concat " = pop s\n <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2836	2943	
==>ttributes => { kind => 'infix', name => $op } });
    $left->sax($handler);
    $right->sax($handler);
    $ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3510	3617	
==>ttributes => { kind => 'infix', name => $op } });
    $left->sax($handler);
    $right->sax($handler);
    $ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3600	3707	
==>ttributes => { kind => 'infix', name => $op } });
    $left->sax($handler);
    $right->sax($handler);
    $ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5385	5486	
==>ttributes => { kind => 'infix', name => $op } });
  $left->sax($handler);
  $right->sax($handler);
  $ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3448	3549	
==>ttributes => { kind => 'infix', name => $op } });
  $left->sax($handler);
  $right->sax($handler);
  $ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19252	19515	
==>MP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20028	20291	
==>MP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20806	21069	
==>MP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21606	21869	
==>MP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/editor/kate_syntax.pl	1335	1428	
==>\.ops$/, readdir PARROT;
closedir PARROT;


print <<END;
<?xml version="1.0" encoding="UTF-8"? <==
5	/Users/nnunley/parrot/config/auto/cgoto.pm	659	774	
==>ed');
        return $self;
    }

    my ($cgoto, $verbose) = $conf->options->get(qw(cgoto verbose));

    my $test <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344299	344387	
==>ode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345541	345629	
==>ode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346783	346871	
==>ode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348026	348114	
==>ode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422782	423090	
==>);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "listen" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423678	423986	
==>);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "listen" <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	560	647	
==>nless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');

  my $s <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	635	722	
==>nless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');

  my $s <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	635	722	
==>nless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');

  my $s <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2441	2542	
==>$handler->start_element({ Name => 'block', Attributes => { kind => 'test' } });
    $handler->start_el <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2318	2419	
==>$handler->start_element({ Name => 'block', Attributes => { kind => 'test' } });
    $handler->start_el <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2711	2812	
==>$handler->start_element({ Name => 'block', Attributes => { kind => 'test' } });
    $handler->start_el <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3385	3486	
==>$handler->start_element({ Name => 'block', Attributes => { kind => 'test' } });
    $handler->start_el <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3475	3576	
==>$handler->start_element({ Name => 'block', Attributes => { kind => 'test' } });
    $handler->start_el <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332292	332411	
==>,
                  "BODY" => "#line 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * co <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333570	333689	
==>,
                  "BODY" => "#line 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * co <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334848	334967	
==>,
                  "BODY" => "#line 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * co <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336127	336246	
==>,
                  "BODY" => "#line 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * co <==
5	/Users/nnunley/parrot/lib/Test/Simple.pm	5850	5944	
==>:More
(i.e. you can just use Test::More instead of Test::Simple in your
programs and things wil <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	8482	8596	
==>>

Processes an end token.

=cut

sub process_end_token
{
    my $self = shift;
    my $token = shift;
    my $tagn <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4831	4933	
==>nt->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();

    $compiler->emit("  $pmc_reg = new $pm <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2894	2996	
==>nt->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();

    $compiler->emit("  $pmc_reg = new $pm <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1197	1298	
==>nt->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();
    $compiler->emit("  $pmc_reg = new $pm <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1191	1292	
==>nt->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();
    $compiler->emit("  $pmc_reg = new $pm <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024509	1024794	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025265	1025550	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026022	1026307	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026778	1027063	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
5	/Users/nnunley/parrot/config/init/hints/mswin32.pm	5867	6023	
==>> '/au',
            slash    => '\\',
            blib_dir => 'blib\\lib',
            make_and => "\n\t",
        );
    } elsif ($is_mingw) {
        my $ <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8952	9075	
==>p> == -1; # was a mark?",
            "$reg = <rx_tmp>; # nope, set pos := popped index");
}

sub output_popint {
    my ($s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072582	1072688	
==>e sign (can be wrong because we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no co <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074767	1074873	
==>e sign (can be wrong because we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no co <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076952	1077058	
==>e sign (can be wrong because we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no co <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079138	1079244	
==>e sign (can be wrong because we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no co <==
5	/Users/nnunley/parrot/config/init/optimize.pm	477	570	
==>onfig;
use Parrot::Configure::Step;

$description = 'Enabling optimization';

@args = qw(verbo <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	5892	5994	
==>ire('literal');       }
sub require_open_brace    { return shift->require('open-brace');    }
sub requi <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16226	16320	
==>t = Jako::Construct::Expression::Value::Identifier->new($block, $token);

      $self->require_ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16997	17091	
==>t = Jako::Construct::Expression::Value::Identifier->new($block, $token);

      $self->require_ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17802	17896	
==>t = Jako::Construct::Expression::Value::Identifier->new($block, $token);

      $self->require_ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19348	19442	
==>t = Jako::Construct::Expression::Value::Identifier->new($block, $token);

      $self->require_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363515	363614	
==>reter, \"%f\", (double){{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Han <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364418	364517	
==>reter, \"%f\", (double){{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Han <==
5	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	12895	12994	
==>nt_table {
  return <<'END';  # text font, code font, heading font
{\fonttbl
{\f0\froman Times New R <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742733	742823	
==>e 174 \"src/ops/set.ops\"\n  {{\@1}} = string_from_int(interpreter, {{\@2}});\n  {{+=3}};\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743499	743589	
==>e 174 \"src/ops/set.ops\"\n  {{\@1}} = string_from_int(interpreter, {{\@2}});\n  {{+=3}};\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175490	175647	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176393	176550	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177297	177454	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178201	178358	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179106	179263	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683580	683822	
==>e",
                  "CODE" => 767,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 522 \"src/ops/pmc.ops\"\n    {{\@1}} = {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867259	867368	
==>@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868225	868334	
==>@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869191	869300	
==>@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870158	870267	
==>@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABE <==
5	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2151	2243	
==>n",
 '/head1'  => "\n}\\par}\n",
 'head2'   => "\n{\\pard\\li#rtfindent#\\s32\\keepn\\sb90\\s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340204	340294	
==>DY" => "#line 128 \"src/ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, {{\@3}}, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341203	341293	
==>DY" => "#line 128 \"src/ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, {{\@3}}, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342202	342292	
==>DY" => "#line 128 \"src/ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, {{\@3}}, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343202	343292	
==>DY" => "#line 128 \"src/ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, {{\@3}}, <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	28043	28130	
==>}


#:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.

sub _ <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	12232	12318	
==>}

#:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.
#

sub <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	18900	18986	
==>}

#:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.

sub _ <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	21022	21108	
==>}

#:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.

sub _ <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	13456	13540	
==>}

#:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.

sub <==
5	/Users/nnunley/parrot/tools/build/jit2c.pl	12437	12581	
==>ame .": $jit_func $extern\n";
        }
        # some specials
        elsif ($op->full_name eq 'if_p_ic') {
            $jit_func = "Parrot_jit <==
5	/Users/nnunley/parrot/examples/benchmarks/oofib.pl	321	441	
==>less {}, $_[0] }
sub fibB {
    my $self = shift;
    my $n = shift;
    return $n if ($n < 2);
    return $self->fib($n- <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722404	722500	
==>terpreter, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_softspace(interpreter, io, 1) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723433	723529	
==>terpreter, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_softspace(interpreter, io, 1) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724477	724573	
==>terpreter, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_softspace(interpreter, io, 1) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516730	517021	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517469	517760	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518207	518498	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518946	519237	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	80	169	
==>ory.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Directory <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1572	1671	
==>a'} = '' }

sub start_Verbatim    { $_[0]{'Thispara'} = ''   }
sub start_item_bullet { $_[0]{'Thispa <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1102	1201	
==>a'} = '' }

sub start_Verbatim    { $_[0]{'Thispara'} = ''   }
sub start_item_bullet { $_[0]{'Thispa <==
5	/Users/nnunley/parrot/lib/File/Which.pm	6499	6592	
==>h>.

Version 0.04 had some significant platform-related changes, taken from
the Perl Power Too <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23574	23665	
==>emp,"NEXT_$label"]);
    $self->_add_inst('','set',[$return,$temp]);
    $self->_add_inst("N <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24036	24127	
==>emp,"NEXT_$label"]);
    $self->_add_inst('','set',[$return,$temp]);
    $self->_add_inst("N <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323993	324287	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324785	325079	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325578	325872	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326368	326662	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327169	327463	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => " <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5339	5437	
==>rate a move instruction.
	if (!$need_dest) {
		$pir .= <<'PIR'
inc stack_depth 
${STEMP0} = "$"
${S <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344342	344436	
==>});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345584	345678	
==>});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346826	346920	
==>});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348069	348163	
==>});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41156	41513	
==>RGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 52,
                  "ARGS" => [
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033404	1033489	
==>l_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_na <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034502	1034587	
==>l_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_na <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035714	1035799	
==>l_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_na <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036878	1036963	
==>l_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_na <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631203	631445	
==>" => "inline",
                  "CODE" => 707,
                  "ARGS" => [
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 81 \"src/ops/pmc.ops\"\n    P <==
5	/Users/nnunley/parrot/tools/build/ops2c.pl	6844	6945	
==>raytype * $func_name ($arg_types)";
    my $args       = "$opsarraytype *cur_opcode, Interp * interpre <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	621	709	
==>. ref($dest) . ") is not Identifier!") unless UNIVERSAL::isa($dest, 'Jako::Construct::Exp <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	612	700	
==>. ref($dest) . ") is not Identifier!") unless UNIVERSAL::isa($dest, 'Jako::Construct::Exp <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	501	589	
==>. ref($dest) . ") is not Identifier!") unless UNIVERSAL::isa($dest, 'Jako::Construct::Exp <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332389	332483	
==>n */\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_f <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333667	333761	
==>n */\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_f <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334945	335039	
==>n */\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_f <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336224	336318	
==>n */\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_f <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	978	1066	
==>lf->new_group('IO', '',
			'lib/Parrot/Distribution.pm', 'lib/Parrot/IO'),
		$self->new_g <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867295	867562	
==>\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868261	868528	
==>\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869227	869494	
==>\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870194	870461	
==>\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666799	667021	
==>@1}} = VTABLE_elements(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
5	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	10	104	
==>t;
package Pod::Simple::TiedOutFH;
use Symbol ('gensym');
use Carp ();

#~~~~~~~~~~~~~~~~~~~~~~ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121425	121669	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122336	122580	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123248	123492	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124121	124365	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124995	125239	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	331761	332077	
==>{
                  "JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333038	333354	
==>{
                  "JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334316	334632	
==>{
                  "JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335594	335910	
==>{
                  "JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	5332	5429	
==>func
.namespace [""]

$nst
.sub $real_name prototyped$meth $cmt
EOC
    my (@params, $k, $v, $para <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90824	91082	
==>ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91678	91936	
==>ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92532	92790	
==>ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	2356	2472	
==>p {defined} @contents);
}

=item C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shift;
    
    ret <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	923646	923754	
==>ps\"\n  {{\@1}} = string_make_empty(interpreter, enum_stringrep_one, 0);\n  {{+=2}};\n",
                  "L <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8865	8977	
==>mma;
        }
      }

      my $decl = Jako::Construct::Declaration::Sub->new($block, $type, $ident, { %props } <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777078	777185	
==>ble->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777987	778094	
==>ble->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778896	779003	
==>ble->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779806	779913	
==>ble->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516175	516458	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516913	517196	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517652	517935	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518390	518673	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	22503	22608	
==>{
        my $rfail = $self->genlabel('nongreedy_star_fail');
        my ($R_back, @R_ops) = $self->rewrit <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477188	477462	
==>/ den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478084	478358	
==>/ den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478975	479249	
==>/ den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479867	480141	
==>/ den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv" <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	136	226	
==>$

=head1 NAME

Parrot::Docs::Section::Config - Configuration documentation section

=head1 <==
5	/Users/nnunley/parrot/config/auto/gc.pm	529	624	
==>=item C<malloc-trace>

Use the malloc in F<src/res_lea.c> with tracing enabled.

=back

=cut

pa <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	870	960	
==>"Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($right, 'Jako::Construct: <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	708	798	
==>"Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($right, 'Jako::Construct: <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	861	951	
==>"Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($right, 'Jako::Construct: <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	750	840	
==>"Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($right, 'Jako::Construct: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	821501	821756	
==>[
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core",
                  "AR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855014	855269	
==>ng_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855903	856158	
==>ng_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856792	857047	
==>ng_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857682	857937	
==>ng_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926248	926405	
==>trstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927718	927875	
==>trstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929188	929345	
==>trstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930659	930816	
==>trstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	4864	4978	
==>");
      $compiler->emit("  .return(__result)");
    }
    else {
      $compiler->emit("  __func(" . join(", ", m <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77107	77389	
==>> 99,
                  "ARGS" => [
                              "p",
                              "p",
                              "sc",
                              "sc"
                            ],
                  "BODY" => "#line 1156 \"src/ops/core.ops\"\n  char * cons <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	17391	17561	
==>nci,
                STRING *signature)
{
    char       *c;
    STRING     *ns, *message;
    PMC        *b;
    PMC        *iglobals;
    PMC        *temp_pmc;
    UINTV <==
5	/Users/nnunley/parrot/lib/Parrot/Config.pm	7141	7268	
==>de/parrot',
             'include_dir' => '/opt/local/include',
             'inline' => 'inline',
             'int2_t' => 'sho <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	32191	32303	
==>= promote $tos;
    my $o;
    if ($builtins{$obj}) { # postponed LOAD_ like dict
	$o = temp('P');
	my $args = "" <==
5	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	637	733	
==>859_15_typetable",
    "POSIX" => "Parrot_ascii_typetable",
);

my $header = <<"HEADER";
/* $file <==
5	/Users/nnunley/parrot/config/gen/makefiles.pm	6617	6776	
==>> 'languages/regex/Makefile',
        commentType                     => '#',
        replace_slashes                 => 1
    );
    genfile(
        'config/g <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072840	1072966	
==>}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experiment <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075025	1075151	
==>}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experiment <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077210	1077336	
==>}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experiment <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079396	1079522	
==>}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experiment <==
5	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2280	2381	
==>uterese>",   '/C'     =>  "</code>",
  'L'  =>  "<a href='YOU_SHOULD_NEVER_SEE_THIS'>", # ideally neve <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584480	584574	
==>{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585555	585649	
==>{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597996	598090	
==>{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599043	599137	
==>{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpre <==
5	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	18187	18353	
==>if (wantarray)
        {
            return split(/\./, $self->{VERSION});
        }
        else
        {
            return $self->{VERSION};
        }
    }
    el <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586702	586796	
==>{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587888	587982	
==>{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589074	589168	
==>{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590261	590355	
==>{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpre <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18561	18654	
==>}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_generate($node->{children}[$ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19274	19367	
==>}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_generate($node->{children}[$ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19762	19855	
==>}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_generate($node->{children}[$ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20251	20344	
==>}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_generate($node->{children}[$ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20740	20833	
==>}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_generate($node->{children}[$ <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4653	4740	
==>s::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::Compiled>

=bac <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107209	107532	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108063	108386	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114906	115204	
==>> "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115760	116058	
==>> "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116615	116913	
==>> "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514200	514523	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515080	515403	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099449	1099772	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100647	1100970	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101845	1102168	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base <==
5	/Users/nnunley/parrot/lib/Pod/Escapes.pm	3479	3613	
==>173,
 'reg'      , 174,
 'macr'     , 175,
 'deg'      , 176,
 'plusmn'   , 177,
 'sup2'     , 178,
 'sup3'     , 179,
 'acute'    , 18 <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	69166	69270	
==>mpiling)
	{
		my $code = $self->_code();
		if (defined $::RD_TRACE)
		{
			print STDERR "printing code (" <==
5	/Users/nnunley/parrot/tools/dev/symlink.pl	1558	1658	
==>split('/', $manifile);
	    my $dstfile = File::Spec->catfile(@manifile);
	    my $srcfile = File::Sp <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661955	662042	
==>S_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662871	662958	
==>S_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{ <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27341	27444	
==>nstruction, just take that. If not, we need
		# to generate it from the "to generate" instruction direct <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29808	29911	
==>nstruction, just take that. If not, we need
		# to generate it from the "to generate" instruction direct <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33226	33329	
==>nstruction, just take that. If not, we need
		# to generate it from the "to generate" instruction direct <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34480	34583	
==>nstruction, just take that. If not, we need
		# to generate it from the "to generate" instruction direct <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36890	36993	
==>nstruction, just take that. If not, we need
		# to generate it from the "to generate" instruction direct <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30387	30488	
==>::_tracefirst($text))
							if defined $::RD_TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::R <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32587	32688	
==>::_tracefirst($text))
							if defined $::RD_TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::R <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28312	28412	
==>::_tracefirst($text))
					if defined $::RD_TRACE;').'

			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::R <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2899	2987	
==>item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGoto>

=i <==
5	/Users/nnunley/parrot/tools/build/ops2c.pl	1733	1821	
==>item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGoto>

=i <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27576	27682	
==>me'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{ <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30043	30149	
==>me'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{ <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33461	33567	
==>me'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{ <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34715	34821	
==>me'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{ <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37125	37231	
==>me'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{ <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5132	5256	
==>el);

    while (@$incexc) {
        my $first = shift(@$incexc);
        my $last = shift(@$incexc);
        if (defined($la <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4807	4931	
==>el);

    while (@$incexc) {
        my $first = shift(@$incexc);
        my $last = shift(@$incexc);
        if (defined($la <==
5	/Users/nnunley/parrot/tools/build/ops2c.pl	9761	9869	
==>_info = "${bs}op_info_table";
#
# Op Info Table:
#
    print SOURCE <<END_C;

/*
** Op Info Table:
*/

static <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	338	441	
==>$_[0][0] }  # Can't change the type of an object
sub dump { Pod::Simple::pretty( [ @{ $_[0] } ] ) }

sub <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621571	621666	
==>ar*)caller_ctx->bp.regs_i, src_pred, \n\t\t    _reg_base, (void**)cur_opcode);\n\t}\n        els <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072810	1072928	
==>f ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+= <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074995	1075113	
==>f ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+= <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077180	1077298	
==>f ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+= <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079366	1079484	
==>f ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+= <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	64540	64639	
==>ore about Perl than they really do. 

Bug reports and other feedback are most welcome.


=head1 COPY <==
5	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	7439	7606	
==>-(\d+)		# 14	todo
                -(\d+)		# 15	skipped
                -(\d+)		# 16	unexpected
               --([a-f0-9]+)	# 17    harness_args
               --([a-f0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404631	404720	
==>s/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405543	405632	
==>s/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406455	406544	
==>s/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407368	407457	
==>s/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589700	589978	
==>FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 67 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590887	591165	
==>FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 67 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592096	592374	
==>FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 67 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593306	593584	
==>FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 67 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594516	594794	
==>FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 67 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1013628	1013887	
==>no;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "err",
                  "FLAG <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11792	12008	
==>p( $parser,
                        'arg1'   => $last_key->[0],
                        'arg2'   => undef,
                        'result' => $result,
                    );
                    return [ $defn, \ <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9992	10188	
==>p( $parser,
                    'arg1'   => $last_key->[0],
                    'arg2'   => undef,
                    'result' => $result,
                );
                return [ $defn, \ <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8847	9003	
==>p( $parser,
            'arg1'   => $last_key->[0],
            'arg2'   => undef,
            'result' => $result,
        );
        return [ $defn, \ <==
5	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9878	9979	
==>executable. Any output is directed to
F<test.out>.

=cut

sub cc_run
{
    my $exe   = $conf->data->ge <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940371	940628	
==>ring_split(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941263	941520	
==>ring_split(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942155	942412	
==>ring_split(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943048	943305	
==>ring_split(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	29878	30042	
==>me, 0, $uid ]),
                          aop('goto' => [ $handle ]),
                 $next =>
              );
    return ($back, @ops);
}

# Handle a rule definit <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857766	858070	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_me <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858769	859073	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_me <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859773	860077	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_me <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860777	861081	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_me <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2292	2385	
==>Redeclaration of identifier '%s' within same block. Previous declaration on line %d of file '% <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17091	17225	
==>1
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29 <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22158	22292	
==>1
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29 <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38360	38494	
==>1
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29 <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39228	39362	
==>1
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29 <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43083	43217	
==>1
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920145	920486	
==>@4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905409	905748	
==>@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906428	906767	
==>@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907447	907786	
==>@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
5	/Users/nnunley/parrot/tools/build/jit2c.pl	9385	9483	
==>PU $header if ($header);

my $njit = scalar keys(%core_ops);

my $jit_fn_retn = 'void';
my $jit_fn_ <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2407	2503	
==>lassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserve <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1677	1773	
==>lassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserve <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2844	2940	
==>lassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserve <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1964	2060	
==>lassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserve <==
5	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	2185	2280	
==>) = @_;

    generate_regular_pir('test_regex.pir', $pattern);
    generate_pbc('test_regex.pir' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943303	943512	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944091	944300	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565741	565915	
==>1}} = {{\@2}}->vtable->can(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566634	566808	
==>1}} = {{\@2}}->vtable->can(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1358	1477	
==>ile
{
  my $self     = shift;
  my $compiler = shift; # Required
  my $options  = shift; # Optional

  my $namespace = " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451649	451903	
==>th.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452388	452642	
==>th.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453126	453380	
==>th.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453865	454119	
==>th.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	36717	36809	
==>_op_char_ci_ge_p,
  'char-alphabetic?' => \&_op_char_alphabetic_p,
  'char-numeric?'    => \& <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	817	903	
==>ess "Left is not Value!" unless UNIVERSAL::isa($left, 'Jako::Construct::Expression::Val <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	829	915	
==>ess "Left is not Value!" unless UNIVERSAL::isa($left, 'Jako::Construct::Expression::Val <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680788	681097	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681564	681873	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682338	682647	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683113	683422	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3436	3528	
==>or_suffix{$suffix} if exists $type_for_suffix{$suffix};

	return $UNDEFINED;
}

=item C<type_ <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12458	12563	
==>s[CURR] in DATA";
		}
		feedme();
	}
	push(@data, { line => $currline, data => \@ld });
}
sub parse_restor <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793424	793512	
==>1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794329	794417	
==>1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795234	795322	
==>1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796140	796228	
==>1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n", <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11209	11423	
==>tmp( $parser, 'pmc' );
                        push @opcodes, new LocalDir( $parser,
                            'result' => $result2,
                        );
                        push @opcodes, new KeyedG <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9432	9630	
==>tmp( $parser, 'pmc' );
                    push @opcodes, new LocalDir( $parser,
                        'result' => $result2,
                    );
                    push @opcodes, new KeyedG <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12729	12927	
==>tmp( $parser, 'pmc' );
                    push @opcodes, new LocalDir( $parser,
                        'result' => $result2,
                    );
                    push @opcodes, new KeyedG <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8408	8574	
==>tmp( $parser, 'pmc' );
            push @opcodes, new LocalDir( $parser,
                'result' => $result2,
            );
            push @opcodes, new KeyedG <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17622	17772	
==>tmp( $parser, 'pmc' );
        push @opcodes, new LocalDir( $parser,
            'result' => $result2,
        );
        push @opcodes, new KeyedG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154303	154519	
==>" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155206	155422	
==>" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156110	156326	
==>" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157014	157230	
==>" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157919	158135	
==>" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1464	1571	
==>|| $class;

    return $self;
}

=back

=head3 Object Methods

=over 4

=item * C<data()>

Provides access t <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568488	568811	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569380	569703	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570273	570596	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571227	571550	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" = <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10102	10212	
==>s == 0;

    # Negated list
    if ($pieces->[0] eq 'neg') {
        return _negate_incexc(_translate_classpiec <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875102	875239	
==>c"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876120	876257	
==>c"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877138	877275	
==>c"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878157	878294	
==>c"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{ <==
5	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2505	2608	
==>:$depends);
    }
}

## eval_is

sub eval_is (Str $code, Str $expected, Str $desc?, :$todo, :$depends) r <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314105	314344	
==>ed char)({{\@1}}));\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	315566	315805	
==>ed char)({{\@1}}));\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	7418	7617	
==>ne 171 \"src/ops/core.ops\"\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8054	8253	
==>ne 171 \"src/ops/core.ops\"\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	4403	4508	
==>e);
    }
}

# TODO: can_match_empty (so s/a*/x/g doesn't go into infinite loop)
# This is sometimes a run <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8168	8293	
==>($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } else {
        die "To <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8950	9075	
==>($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } else {
        die "To <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7821	7946	
==>($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } else {
        die "To <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8610	8735	
==>($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } else {
        die "To <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	3295	3396	
==>pmc_type = $self->type->imcc_pmc;

    my $reg = $compiler->temp_pmc();

    $compiler->emit("  $reg = <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	1240	1348	
==>next
			off on com error key pen play strig timer gosub goto com
				option base out open
			paint palette pc <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071804	1071905	
==>ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  IN <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073989	1074090	
==>ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  IN <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076174	1076275	
==>ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  IN <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078360	1078461	
==>ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  IN <==
5	/Users/nnunley/parrot/tools/dev/lib_deps.pl	8455	8569	
==>complex.h
catanh      complex.h
catanhf     complex.h
catanhl     complex.h
catanl      complex.h
cbrt        math. <==
5	/Users/nnunley/parrot/tools/build/dynclasses.pl	7139	7235	
==>n(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c failed ($?)\n <==
5	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5433	5529	
==>n(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c failed ($?)\n <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	7350	7446	
==>n(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c failed ($?)\n <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9203	9291	
==>tie $thiscolumn, q{Parse::RecDescent::ColCounter}, \$text, $thisparser;
	':'') . ($parser <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151064	151152	
==>_equal(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}})) { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152042	152130	
==>_equal(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}})) { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172292	172380	
==>_equal(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}})) { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173270	173358	
==>_equal(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}})) { <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	3142	3227	
==>OC";

PARROT_DYNEXT_EXPORT extern Parrot_PMC Parrot_lib_${lc_libname}_load(Parrot_INTE <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9506	9747	
==>parser,
                        'result' => $result2,
                    );
                    push @opcodes, new KeyedGetOp(
                        $parser,
                        'result' => $result2,
                        'arg1 <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11287	11523	
==>parser,
                            'result' => $result2,
                        );
                        push @opcodes, new KeyedGetOp( $parser,
                            'result' => $result2,
                            'arg1 <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12803	13019	
==>parser,
                        'result' => $result2,
                    );
                    push @opcodes, new KeyedGetOp( $parser,
                        'result' => $result2,
                        'arg1 <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8474	8650	
==>parser,
                'result' => $result2,
            );
            push @opcodes, new KeyedGetOp( $parser,
                'result' => $result2,
                'arg1 <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17684	17840	
==>parser,
            'result' => $result2,
        );
        push @opcodes, new KeyedGetOp( $parser,
            'result' => $result2,
            'arg1 <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	16926	17038	
==>->[1] $cmt
EOC
    push @stack, [-1, $l->[1], $l->[2]];
}
sub inplace_word
{
    my ($op, $cmt) = @_;
    my $r = <==
5	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	86	191	
==>671857Z svm  $

=head1 DESCRIPTION

=head1 SYNTAX

=cut

# pragmata
use strict;
use 5.005;

# standard per <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072503	1072608	
==>1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong becaus <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074688	1074793	
==>1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong becaus <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076873	1076978	
==>1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong becaus <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079059	1079164	
==>1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong becaus <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18494	18589	
==>elf->_constant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{ch <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19207	19302	
==>elf->_constant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{ch <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19695	19790	
==>elf->_constant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{ch <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20184	20279	
==>elf->_constant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{ch <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20673	20768	
==>elf->_constant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{ch <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	267772	268025	
==>ol(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	268536	268789	
==>ol(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	2283	2380	
==>tant { return shift->kind eq 'const'; }
sub is_variable { my $self = shift; return ($self->kind eq <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	31451	31548	
==>ied, the set C</["'`]/> is used. If the text to be processed
is not specified either, C<$_> is use <==
5	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	13643	13737	
==>ect"><tmpl_var name=unexpect></td>
	    </tmpl_loop>
	    <td><span title="Details" class="expa <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	806	897	
==>AL::isa($left, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($right) . ") <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	644	735	
==>AL::isa($left, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($right) . ") <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	797	888	
==>AL::isa($left, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($right) . ") <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	686	777	
==>AL::isa($left, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($right) . ") <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	635	726	
==>AL::isa($left, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($right) . ") <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753999	754357	
==>=> [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 850,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 261 \"sr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050282	1050459	
==>} = Parrot_get_global(interpreter, {{\@2}}, {{\@3}}, next);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051316	1051493	
==>} = Parrot_get_global(interpreter, {{\@2}}, {{\@3}}, next);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052350	1052527	
==>} = Parrot_get_global(interpreter, {{\@2}}, {{\@3}}, next);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053385	1053562	
==>} = Parrot_get_global(interpreter, {{\@2}}, {{\@3}}, next);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	5715	5845	
==>oken->new(
        $file, $line, 'arith-assign', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^( \+ | - | \* <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7980	8078	
==>::Block");
  confess "No identifier name!"  unless defined $name;
  confess "Extra arguments!" if @ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8627	8725	
==>::Block");
  confess "No identifier name!"  unless defined $name;
  confess "Extra arguments!" if @ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9295	9393	
==>::Block");
  confess "No identifier name!"  unless defined $name;
  confess "Extra arguments!" if @ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9964	10062	
==>::Block");
  confess "No identifier name!"  unless defined $name;
  confess "Extra arguments!" if @ <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	1589	1688	
==>se::RecDescent->Precompile($grammar, $class, $sourcefile);
		exit;
	}
}
		
sub Save
{
	my ($self, $c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646847	647121	
==>\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647607	647881	
==>\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648368	648642	
==>\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649130	649404	
==>\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type" <==
5	/Users/nnunley/parrot/tools/build/ops2c.pl	4365	4464	
==>ile '$opsfile'!\n" unless -r $opsfile;
    }

    $ops = Parrot::OpsFile->new( \@opsfiles, $nolines_ <==
5	/Users/nnunley/parrot/config/auto/cgoto.pm	548	655	
==>ep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('sk <==
5	/Users/nnunley/parrot/config/auto/headers.pm	483	590	
==>ep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('sk <==
5	/Users/nnunley/parrot/config/auto/jit.pm	634	741	
==>ep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('sk <==
5	/Users/nnunley/parrot/config/gen/cpu.pm	546	653	
==>ep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('sk <==
5	/Users/nnunley/parrot/lib/Class/Struct.pm	10359	10456	
==>12).

A function named C<new> must not be explicitly defined in a class
created by C<struct>.

The <==
5	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	9049	9156	
==>t";
  return "default";
}

# Rate limiting
sub limit_rate {
  # Open the DB and lock it exclusively. See per <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579469	579563	
==>s '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc_new <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580774	580868	
==>s '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc_new <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582079	582173	
==>s '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc_new <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583385	583479	
==>s '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc_new <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	250060	250303	
==>1}} = ! {{\@1}};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072061	1072178	
==>1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074246	1074363	
==>1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076431	1076548	
==>1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078617	1078734	
==>1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74029	74129	
==>EF TO AN ARRAY OF MATCHES
{
	my ($parser, $text, $prod, $min, $max, $_noactions, $argcode) = @_;

	my <==
5	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	6130	6254	
==>er in source: $_\n");
        }
    }
}


sub check_cpp_indents {
    my ($file, $source) = @_;

    # check for C preprocess <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3044	3145	
==>e're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PT <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4802	4903	
==>e're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PT <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1966	2067	
==>e're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PT <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3218	3319	
==>e're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PT <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	443	541	
==>ools/docs>.

=head2 Class Methods

=over 4

=cut

package Parrot::Docs::File;

use strict;
use warn <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2400	2494	
==>e::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All right <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1670	1764	
==>e::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All right <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2837	2931	
==>e::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All right <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1957	2051	
==>e::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All right <==
5	/Users/nnunley/parrot/lib/File/Which.pm	865	978	
==>elsif ($Is_VMS) { 
    push @path_ext, qw(.exe .com);
}

sub which {
    my ($exec) = @_;

    return undef unless <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549960	550059	
==>MC *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551261	551360	
==>MC *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553823	553922	
==>MC *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555220	555319	
==>MC *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762434	762706	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763286	763558	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764139	764411	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764992	765264	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ <==
5	/Users/nnunley/parrot/tools/dev/parrotbench.pl	2902	3011	
==>=> \$cfg{use_times},
    'help|?'       => \$cfg{display_help},
    'method=s'     => \$cfg{method},
    'benc <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926070	926198	
==>h ({{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STRI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927540	927668	
==>h ({{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STRI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929010	929138	
==>h ({{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STRI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930481	930609	
==>h ({{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STRI <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33213	33335	
==>34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 100,
			'functioncall' => 31,
			'explist1' => 165,
			'function <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	28250	28348	
==>nst('',           'mul',[$return,$return,$temp]);
  $self->_restore($temp);
  $self->_add_inst("DON <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467660	467755	
==>interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+= <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468531	468626	
==>interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+= <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469405	469500	
==>interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+= <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470280	470375	
==>interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+= <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27446	27556	
==>ve.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir f <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29913	30023	
==>ve.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir f <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33331	33441	
==>ve.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir f <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34585	34695	
==>ve.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir f <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36995	37105	
==>ve.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir f <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5406	5556	
==>irst);
                print {$FH} "$_->{symbol}";
                if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                    prin <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6438	6588	
==>irst);
                print {$FH} "$_->{symbol}";
                if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                    prin <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5835	5973	
==>irst);
            print {$FH} "$_->{symbol}";
            if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                prin <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6930	7068	
==>irst);
            print {$FH} "$_->{symbol}";
            if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                prin <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	9844	9982	
==>irst);
            print {$FH} "$_->{symbol}";
            if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                prin <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062643	1062918	
==>CNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063512	1063787	
==>CNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064382	1064657	
==>CNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065255	1065530	
==>CNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_n <==
5	/Users/nnunley/parrot/lib/Parrot/Configure.pm	4965	5118	
==>e {
                $ret = $step->runstep($self);
            }
        };
        if ($@) {
            carp "\nstep $step_name died during execution: $@ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15444	15542	
==>node,1));
  die "set-car!: Element not pair\n" unless $return =~ /^P/;
  my $value = $self->_genera <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9556	9647	
==>call. Get details of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = me <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7070	7161	
==>call. Get details of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = me <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5626	5717	
==>call. Get details of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = me <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7846	7937	
==>call. Get details of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = me <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	9350	9446	
==>,[$cond,0,"FALSE_$label"]);
  $self->_restore($cond);
  $return = $self->_save_1 ('P');

  my $tr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332551	332644	
==>) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333829	333922	
==>) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335107	335200	
==>) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336386	336479	
==>) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18506	18598	
==>nt(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children}}) <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19219	19311	
==>nt(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children}}) <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19707	19799	
==>nt(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children}}) <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20196	20288	
==>nt(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children}}) <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20685	20777	
==>nt(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children}}) <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	11307	11407	
==>} ||= [];
my $rx_len = length($rx_input);
my $rx_tmp;
END

    push @ops, $self->output($startup, $se <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960983	961071	
==>G *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961945	962033	
==>G *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962907	962995	
==>G *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963870	963958	
==>G *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645906	646128	
==>rot_get_datatype_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646803	647025	
==>rot_get_datatype_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	367	477	
==>init {
    my $self = shift;
    $self->{state} ||= Regex->global_state();
}

sub mklabel {
    my ($self) = @_ <==
5	/Users/nnunley/parrot/lib/Parrot/Test.pm	8178	8284	
==>est), make it so now so the code below can treat everybody the
    # same.
    $command = [$command] unless <==
5	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	5052	5149	
==>$_[1]->attr('to') }

sub do_man_link { return undef }
 # But subclasses are welcome to override th <==
5	/Users/nnunley/parrot/tools/build/revision_c.pl	669	760	
==>"parrot/config.h"

/* also in "parrot/embed.h" */
PARROT_API int Parrot_revision(void);
/* a <==
5	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	1105	1233	
==>rs.

Argument direction is one of:

    in            the argument passes a value into the op
    out           the argument pass <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381126	381223	
==>}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset({{\@2}}), {{\@3}}) < 0) {\n      real <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382138	382235	
==>}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset({{\@2}}), {{\@3}}) < 0) {\n      real <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383150	383247	
==>}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset({{\@2}}), {{\@3}}) < 0) {\n      real <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384163	384260	
==>}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset({{\@2}}), {{\@3}}) < 0) {\n      real <==
5	/Users/nnunley/parrot/tools/build/pmc2c.pl	7036	7159	
==>_is_absolute($file) && -e $file) {
        return $file;
    }

    foreach my $dir ( @$include ) {
        my $path = File: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072645	1072762	
==>}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074830	1074947	
==>}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077015	1077132	
==>}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079201	1079318	
==>}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147318	147562	
==>(interpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ] <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148259	148503	
==>(interpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ] <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149199	149443	
==>(interpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ] <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150140	150384	
==>(interpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ] <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	7358	7506	
==>source_item('', 'malloc-trace'),
            $self->c_item(
                '', 
                'pairs' => ['resources'], 
                'sources' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067166	1067291	
==>p2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experime <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068352	1068477	
==>p2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experime <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069538	1069663	
==>p2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experime <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070725	1070850	
==>p2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experime <==
5	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	15221	15338	
==>I2 goto good
    %% DOMAIN_ERROR %%
  good:
    # Create a result vector
    .local pmc result 
    result = new 'APLV <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14989	15089	
==>_inst ('', 'set', [$return,$return.'[0]']);

  return $return;
}

sub _op_cdr {
  my ($self, $node) = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099185	1099303	
==>n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100383	1100501	
==>n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101581	1101699	
==>n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102780	1102898	
==>n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 <==
5	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1964	2063	
==>ar}\n",
 'Para'    => "\n{\\pard\\li#rtfindent#\\sa180\n",
 '/Para'   => "\n\\par}\n",
 'head1'   => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240217	240506	
==>} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241165	241454	
==>} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242113	242402	
==>} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243062	243351	
==>} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	7992	8090	
==>extref) = pos($$textref)||0 );

	unless ($$textref =~ m/\G($pre)/gc)
	{
		_failmsg "Did not find pr <==
5	/Users/nnunley/parrot/tools/build/vtable_extend.pl	1561	1664	
==>so most
   extension code is safe, no problem.

   The problem comes in if these routines are called fro <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712600	712693	
==>\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(interpreter, s,\n\tcon <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713707	713800	
==>\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(interpreter, s,\n\tcon <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720067	720160	
==>\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(interpreter, s,\n\tcon <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721267	721360	
==>\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(interpreter, s,\n\tcon <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7641	7736	
==>s is a shortcut method that uses find_symbol() to locate a matching
symbol, and then returns tha <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8288	8383	
==>s is a shortcut method that uses find_symbol() to locate a matching
symbol, and then returns tha <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8936	9031	
==>s is a shortcut method that uses find_symbol() to locate a matching
symbol, and then returns tha <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9606	9701	
==>s is a shortcut method that uses find_symbol() to locate a matching
symbol, and then returns tha <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072761	1072876	
==>-{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074946	1075061	
==>-{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077131	1077246	
==>-{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079317	1079432	
==>-{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + <==
5	/Users/nnunley/parrot/tools/build/jit2c.pl	6638	6735	
==>ted automatically from 'src/jit/$cpuarch/core.jit'
 * by $0.
 *
 * Any changes made here will be l <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8557	8672	
==>]{GOTOS}{$lhs}.\n";

#DBG>				$debug & 0x10
#DBG>			and	$dbgerror
#DBG>			and	$$errstatus == 0
#DBG>			and	do { <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8171	8281	
==>]{GOTOS}{$lhs}.\n";

#DBG>				$debug & 0x10
#DBG>			and	$dbgerror
#DBG>			and	$$errstatus == 0
#DBG>			and	do { <==
5	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1248	1346	
==>for it.

This is a subclass of L<Pod::Simple> and inherits all its methods.

=head1 SEE ALSO

L<Pod <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8748	8843	
==>\"\n    char * const label = string_to_cstring(interpreter, {{\@1}});\n    struct PackFile_Fixup <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9864	9959	
==>\"\n    char * const label = string_to_cstring(interpreter, {{\@1}});\n    struct PackFile_Fixup <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3060	3164	
==>.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[s <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4818	4922	
==>.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[s <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1982	2086	
==>.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[s <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3234	3338	
==>.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[s <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	11395	11498	
==>mostsubrules();
	my $next;
	foreach $next ( @left )
	{
		next unless defined $rules->{$next}; # SKIP NON <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071104	1071450	
==>UMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 "i"
                               ] <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073288	1073634	
==>UMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 "i"
                               ] <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075473	1075819	
==>UMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 "i"
                               ] <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077658	1078004	
==>UMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 "i"
                               ] <==
5	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	3548	3682	
==>else {
        $dd_version = $Data::Dumper::VERSION;
    }

    if ($dd_version >= 2.12) {
        *dump = sub {
            my $self = <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	1009	1117	
==>air_item
{
    my $self = shift;
    
    return $self->c_item(shift, 'pairs' => [@_]);
}

=item C<c_item($te <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381286	381597	
==>\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382298	382609	
==>\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383310	383621	
==>\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384323	384634	
==>\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
5	/Users/nnunley/parrot/tools/dev/gen_class.pl	556	654	
==>pile
it to C.

	% perl tools/dev/gen_class.pl Foo > src/pmc/foo.pmc
	% perl tools/build/pmc2c.p <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	10988	11112	
==>}, "PMC *t_$temp_num;";
        push @{$extra_preamble_ref},
             "t_$temp_num = GET_NCI_P($reg_num);";
        retur <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	10000	10123	
==>}, "PMC *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_P($reg_num);";
        retur <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	10392	10515	
==>}, "PMC *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_P($reg_num);";
        retur <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	11591	11714	
==>}, "PMC* t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_P($reg_num);";
        retur <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	13155	13278	
==>}, "PMC *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_P($reg_num);";
        retur <==
5	/Users/nnunley/parrot/config/gen/config_h.pm	973	1085	
==>parrot/feature.h',
        commentType   => '/*',
        ignorePattern => 'PARROT_CONFIG_DATE',
        feature_ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3774	3876	
==>element({ Name => 'literal', Attributes => { type => $type->name } });
          $handler->characters({ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4283	4383	
==>element({ Name => 'literal', Attributes => { type => $type->name } });
        $handler->characters({ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4633	4731	
==>element({ Name => 'literal', Attributes => { type => $type->name } });
      $handler->characters({ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4844	4940	
==>element({ Name => 'literal', Attributes => { type => $type->name } });
    $handler->characters({ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572405	572637	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573314	573546	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574224	574456	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575027	575259	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
5	/Users/nnunley/parrot/config/inter/yacc.pm	137	230	
==>E

config/auto/yacc.pm - parser generator

=head1 DESCRIPTION

Determines whether C<yacc> is i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926453	926611	
==>{{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1}} = {{\@2}}->bufused;\n                              break;\n    case STRI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927923	928081	
==>{{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1}} = {{\@2}}->bufused;\n                              break;\n    case STRI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929393	929551	
==>{{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1}} = {{\@2}}->bufused;\n                              break;\n    case STRI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930864	931022	
==>{{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1}} = {{\@2}}->bufused;\n                              break;\n    case STRI <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1268	1371	
==>e} = [ $opt2->optimize($code->{code}, $ctx) ];
    return $code;
}

sub list_to_pasm {
    my ($list_reg <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343602	343900	
==>> 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344843	345141	
==>> 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346085	346383	
==>> 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347327	347625	
==>> 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	50034	50173	
==>],
	[#Rule 33
		 '@10-4', 0,
sub
#line 203 "Lua\lua51.yp"
{
            PushScope( $_[0] );
        }
	],
	[#Rule 34
		 '_elseif_s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858701	858986	
==>}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859705	859990	
==>}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860709	860994	
==>}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861714	861999	
==>}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	32978	33082	
==>,

#----------------------
#
# Section 6 Expressions
#
#----------------------

###
### Logical expressio <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629911	630154	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630900	631143	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107623	1107866	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630651	630765	
==>ame(interpreter, class));\n    {{\@1}} = pmc_new(interpreter, type);\n    {{+=3}};\n",
                  "LABELS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631641	631755	
==>ame(interpreter, class));\n    {{\@1}} = pmc_new(interpreter, type);\n    {{+=3}};\n",
                  "LABELS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926522	926647	
==>BUFUSED:  {{\@1}} = {{\@2}}->bufused;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}-> <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927992	928117	
==>BUFUSED:  {{\@1}} = {{\@2}}->bufused;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}-> <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929462	929587	
==>BUFUSED:  {{\@1}} = {{\@2}}->bufused;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}-> <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930933	931058	
==>BUFUSED:  {{\@1}} = {{\@2}}->bufused;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}-> <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	21040	21139	
==>name:
	#print "Dimensioning $typename\\n"
	pushp
	P2= .PerlHash
TYPEE
		foreach(@types) {
			my %val <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099227	1099345	
==>-e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100425	1100543	
==>-e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101623	1101741	
==>-e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102822	1102940	
==>-e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) <==
5	/Users/nnunley/parrot/tools/build/headerize.pl	2460	2571	
==>or die "Couldn't handle $proto";
    my $funcname = $1;
    $parms = $2;
    my @parms = split( /\s*,\s*/, $parm <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763164	763287	
==>\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LAB <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764017	764140	
==>\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LAB <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764870	764993	
==>\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LAB <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765724	765847	
==>\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LAB <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	1345	1450	
==>"EOC";
/*
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically from '$p <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641678	642006	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642565	642893	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643453	643781	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644345	644673	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
5	/Users/nnunley/parrot/lib/Parrot/Op.pm	2536	2629	
==>r each argument direction was prefixed by 'C<label>'.

C<$flags> is one or more (comma-separat <==
5	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	7439	7555	
==>ory.

=cut

sub path_for_file_with_name
{
    my $self = shift;
    my $name = shift || return;
    
    return File: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83656	83748	
==>\"\n  PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interpreter,\n      interpreter->ig <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84562	84654	
==>\"\n  PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interpreter,\n      interpreter->ig <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85467	85559	
==>\"\n  PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interpreter,\n      interpreter->ig <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86374	86466	
==>\"\n  PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interpreter,\n      interpreter->ig <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	1285	1386	
==>t j
	print a$
	print c$
end sub
j=2
i=5
a$="Hello"
c$="WRONG"
call mysub()


' Expect 10
sub second(b( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549956	550057	
==>n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551257	551358	
==>n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553819	553920	
==>n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555216	555317	
==>n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568748	569045	
==>,
                  "NAME" => "isa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569640	569937	
==>,
                  "NAME" => "isa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570533	570830	
==>,
                  "NAME" => "isa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571487	571784	
==>,
                  "NAME" => "isa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	506	617	
==>another match, or just
# abort and return to $lastback.
#

sub new {
    my ($proto, %options) = @_;
    my $sel <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584454	584545	
==>lass_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585529	585620	
==>lass_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597970	598061	
==>lass_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599017	599108	
==>lass_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) { <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	17660	17750	
==>@{$code{$seg}->{code}}, "DO_$docounter:\n";
		my($result, $type, @code)=EXPRESSION();
		$fa <==
5	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2571	2675	
==>$CGI = shift;
  my $html = $CGI->param("smoke");

  my $id = md5_hex $html;
  if(glob "parrot-smoke-*-$id <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	1994	2094	
==>rfunc {
#	print "Isuserfunc $_[0] and $funcname..";
	return 0 unless defined $_[0];
	return 0 if $fun <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11419	11510	
==>turn. See if we have a return value.
PRE_CALL_RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPES <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8605	8696	
==>turn. See if we have a return value.
PRE_CALL_RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPES <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7177	7268	
==>turn. See if we have a return value.
PRE_CALL_RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPES <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400261	400429	
==>"i",
                              "ic"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401342	401510	
==>"i",
                              "ic"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\ <==
5	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3447	3571	
==>set(linkflags => $linkflags);
        }
    } elsif ($is_intel) {
        $conf->data->set(
            share_ext  => '.dll', <==
5	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	541	649	
==>anted;

my %request = (upload => 1, version => VERSION, smokes => []);

{
  my $file = shift @ARGV;
  debug " <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3884	3987	
==>, need to do any lazy moves
    # beneath this point.
    $pir .= _do_lazy_moves('_${CURIC}') if $pushes <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851176	851595	
==>re",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 966,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic"
                            ] <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072530	1072629	
==>{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we used abs({{\@4}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074715	1074814	
==>{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we used abs({{\@4}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076900	1076999	
==>{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we used abs({{\@4}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079086	1079185	
==>{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we used abs({{\@4}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067108	1067224	
==>0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068294	1068410	
==>0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069480	1069596	
==>0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070667	1070783	
==>0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  { <==
5	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	4185	4288	
==>X

Many things to muck with line could be done here:

 o remove extraneous spaces.
 o add in "proper" sp <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722450	722680	
==>ter, io, s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723479	723709	
==>ter, io, s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724523	724753	
==>ter, io, s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
5	/Users/nnunley/parrot/lib/Parrot/Test.pm	20546	20689	
==>arrot}  = $parrot;
                $obj->$meth(@remaining);

                # restore prior level, just in case.
                $builder->leve <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	44864	44949	
==>G\(\.\.([1-9]\d*)'.$SIMPLEPAT.'\)';
my $BADREP		= '\G\((-?\d+)?\.\.(-?\d+)?'.$SIMPLEPA <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5380	5495	
==>artset(\%start);
}

sub dfa_safe {
    my $op = shift;
    foreach (@{ $op->{args} }) {
        return 0 unless $_-> <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950580	950687	
==>} = Parrot_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LAB <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951540	951647	
==>} = Parrot_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LAB <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952500	952607	
==>} = Parrot_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LAB <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953461	953568	
==>} = Parrot_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LAB <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738203	738454	
==>_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738967	739218	
==>_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744314	744565	
==>_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745080	745331	
==>_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	6949	7060	
==>checks {
    my ($self, $t, $guarantee, $follow_min) = @_;

    if ($t->{name} eq 'rule') {
        $t->{args}-> <==
5	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3569	3668	
==>X.c -> X.o for all X.c
	my $core_suffix;
	foreach $core_suffix (values %cores) {
		compile($_ . "_op <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634741	634832	
==>nt){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new_f <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635859	635950	
==>nt){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new_f <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636977	637068	
==>nt){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new_f <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638096	638187	
==>nt){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new_f <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139524	139943	
==>ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 171,
                  "ARGS" => [
                              "i",
                              "ic",
                              "ic"
                            ],
                  "BO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712680	712771	
==>ter, s,\n\tconst_string(interpreter, \"e\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713787	713878	
==>ter, s,\n\tconst_string(interpreter, \"e\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720147	720238	
==>ter, s,\n\tconst_string(interpreter, \"e\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721347	721438	
==>ter, s,\n\tconst_string(interpreter, \"e\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38887	39028	
==>"
                            ],
                  "BODY" => "#line 720 \"src/ops/core.ops\"\n  if ({{\@1}} == EXCEPT_doomed)\n    _exit({{\@2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39752	39893	
==>"
                            ],
                  "BODY" => "#line 720 \"src/ops/core.ops\"\n  if ({{\@1}} == EXCEPT_doomed)\n    _exit({{\@2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40599	40740	
==>"
                            ],
                  "BODY" => "#line 720 \"src/ops/core.ops\"\n  if ({{\@1}} == EXCEPT_doomed)\n    _exit({{\@2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41447	41588	
==>"
                            ],
                  "BODY" => "#line 720 \"src/ops/core.ops\"\n  if ({{\@1}} == EXCEPT_doomed)\n    _exit({{\@2 <==
5	/Users/nnunley/parrot/tools/build/ops2pm.pl	3673	3787	
==>mental ops
    if ($experimental) {
	for $_ (@{$temp_ops->{OPS}}) {
	    $_->{experimental} = 1;
	}
    }

    push <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19073	19341	
==>> [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19849	20117	
==>> [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20627	20895	
==>> [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21427	21695	
==>> [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FL <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	4135	4254	
==>ler->emit("  global \"$dest_name\" = $temp_pmc");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072106	1072227	
==>n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074291	1074412	
==>n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076476	1076597	
==>n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078662	1078783	
==>n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) { <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11442	11540	
==>leftres = \$${righttype}99
SWAP
}

sub parse_stop {
	feedme();
	print CODE<<STOP;
	print "Stopped a <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762596	762880	
==>( {
                  "JUMP" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763448	763732	
==>( {
                  "JUMP" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764301	764585	
==>( {
                  "JUMP" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765154	765438	
==>( {
                  "JUMP" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
5	/Users/nnunley/parrot/lib/Test/Simple.pm	5901	5996	
==>Test::Simple in your
programs and things will still work).

=item L<Test>

The original Perl tes <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2449	2546	
==>->start_element({ Name => 'block', Attributes => { kind => 'test' } });
    $handler->start_elemen <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2326	2423	
==>->start_element({ Name => 'block', Attributes => { kind => 'test' } });
    $handler->start_elemen <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2719	2816	
==>->start_element({ Name => 'block', Attributes => { kind => 'test' } });
    $handler->start_elemen <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3393	3490	
==>->start_element({ Name => 'block', Attributes => { kind => 'test' } });
    $handler->start_elemen <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3483	3580	
==>->start_element({ Name => 'block', Attributes => { kind => 'test' } });
    $handler->start_elemen <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977418	977585	
==>c",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclas <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978548	978715	
==>c",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclas <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979678	979845	
==>c",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclas <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980809	980976	
==>c",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclas <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	1688	1794	
==>abel') {
	    $curlabel = "$op->[1]:" . $curlabel;
	} elsif (my $outfunc = $OUTPUT{$op->[0]}) {
	    my @ar <==
5	/Users/nnunley/parrot/tools/build/headerize.pl	1146	1240	
==>rection} or die "Invalid direction '$direction'";
    print "$action $filename\n" if $opt{verbo <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33498	33651	
==>[0],
        );
        $expr = shift @{$exprs};
    }
    if (    scalar( @{$exprs} ) == 0
        and scalar( @{ $expr->[1] } ) != 0
        and $ <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	1395	1496	
==>[0]) || $_[0]) { # I'm not being subclassed!
    Carp::croak "You can call run() only on subclasses of <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	591	681	
==>PullParser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullPa <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1010	1100	
==>PullParser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullPa <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	497	587	
==>PullParser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullPa <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1484	1574	
==>PullParser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullPa <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659536	659835	
==>JUMP" => 0,
                  "NAME" => "exists",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660457	660756	
==>JUMP" => 0,
                  "NAME" => "exists",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661379	661678	
==>JUMP" => 0,
                  "NAME" => "exists",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662294	662593	
==>JUMP" => 0,
                  "NAME" => "exists",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	283	378	
==>Library is a wrapper around a collection of PMCs linked in the
same dynamic library. A degenerat <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021713	1021938	
==>ime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022555	1022780	
==>ime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023404	1023629	
==>ime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024254	1024479	
==>ime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
5	/Users/nnunley/parrot/config/gen/parrot_include.pm	2528	2696	
==>@generated, "$destfile");
                $in_def = '';
                next;
            }
            if ($in_def eq 'def') {
                if (/#define\s+(\w+)\s+(- <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2486	2591	
==>tributes => { kind => 'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'in <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2363	2468	
==>tributes => { kind => 'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'in <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2756	2861	
==>tributes => { kind => 'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'in <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3430	3535	
==>tributes => { kind => 'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'in <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3520	3625	
==>tributes => { kind => 'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'in <==
5	/Users/nnunley/parrot/tools/build/dynclasses.pl	2801	2921	
==>AD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $libl <==
5	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3110	3230	
==>AD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $libl <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	2905	3025	
==>AD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $libl <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	26120	26233	
==>del = $_[2];
	my $rdel = $ldel;
	$rdel =~ tr/{[(</}])>/;

	my $mod = $_[3];

	my $desc;

	if ($ldel eq '/') { $des <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34884	34991	
==>known
methods.

=cut

sub body
{
    my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{m <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258440	258771	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259383	259714	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260234	260565	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261086	261417	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261938	262269	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672283	672573	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673055	673345	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673825	674115	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	674596	674886	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDI <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22502	22614	
==>'           ,'mod'   ,[$temp_0,$temp_0,$temp_1]);
  $self->_add_inst(''           ,'eq'    ,[$temp_0,1,"DONE_$lab <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126720	127028	
==>VAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127855	128163	
==>VAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128990	129298	
==>VAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	4175	4273	
==>xt},0,$missing) =~ m/^(.*)\Z/m;
	return length($1);
}

sub STORE
{
	die "Can't set column number vi <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	47023	47120	
==>ource || '') eq 'SCALAR') {
    $new->parse_string_document( $$source );
  } elsif(ref($source)) { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541267	541621	
==>i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 626,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 1022 \"s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579525	579617	
==>ter, {{\@2}} ));\n  }\n  name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580830	580922	
==>ter, {{\@2}} ));\n  }\n  name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582135	582227	
==>ter, {{\@2}} ));\n  }\n  name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583441	583533	
==>ter, {{\@2}} ));\n  }\n  name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067246	1067551	
==>2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068432	1068737	
==>2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069618	1069923	
==>2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070805	1071110	
==>2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	14748	14860	
==>ie "Empty MMD body near '$total_body'"
            if (!$body_part);
        $body_part = substr($body_part, 1, - <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	1130	1267	
==>FT      => $left,
    OP        => $op,
    RIGHT     => $right,

    CONTENT   => [ ]
  }, $class;

  $block->push_content($self);

  ret <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	1146	1283	
==>FT      => $left,
    OP        => $op,
    RIGHT     => $right,

    CONTENT   => [ ]
  }, $class;

  $block->push_content($self);

  ret <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	657	794	
==>FT      => $left,
    OP        => $op,
    RIGHT     => $right,

    CONTENT   => [ ]
  }, $class;

  $block->push_content($self);

  ret <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	657	794	
==>FT      => $left,
    OP        => $op,
    RIGHT     => $right,

    CONTENT   => [ ]
  }, $class;

  $block->push_content($self);

  ret <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76480	76582	
==>rn 1;
}

sub _hint($)
{
	return 0 unless defined $::RD_HINT;
	$errortext = "$_[0])";
	$errorprefix = "( <==
5	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	105	201	
==>AME

Test/M4.pm - Testing routines specific to 'm4'.

=head1 DESCRIPTION

Call 'Parrot m4' and 'G <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10731	10837	
==>{
  my $self = shift; # Required: Jako::Construct::Block

  confess "No block!"        unless defined $self <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	1455	1559	
==>$var=0.0\n};
				push @debdecl, "\t\t\$S0=$var\n\t\t\$P1[\"$var\"]= \$S0\n";
			}

		}
	}
	#print CODE<<I <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4407	4507	
==>{
  my $self = shift; # Required: Jako::Construct::Block

  confess "No block!"  unless defined $self <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4914	5014	
==>{
  my $self = shift; # Required: Jako::Construct::Block

  confess "No block!"  unless defined $self <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10317	10416	
==>{
  my $self = shift; # Required: Jako::Construct::Block

  confess "No block!" unless defined $self <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154278	154439	
==>{
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155181	155342	
==>{
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156085	156246	
==>{
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156989	157150	
==>{
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157894	158055	
==>{
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099223	1099342	
==>e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100421	1100540	
==>e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101619	1101738	
==>e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102818	1102937	
==>e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < <==
5	/Users/nnunley/parrot/lib/Test/More.pm	20621	20719	
==>match up with your plan.
If your plan is C<no_plan> $how_many is optional and will default to 1.

I <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	15022	15121	
==>->genlabel('alt_back');
    my $next = $self->genlabel('alt_next');
    my @tries = map { $self->gen <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	440	575	
==>rn bless {
    TOKEN    => $token,
    CODE     => 'N',
    NAME     => 'num',
    IMCC     => 'num',
    IMCC_PMC => 'Float'
  }, $clas <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2298	2408	
==>de{$seg}->{declarations}}) {
				if (exists $main::common{$var}) {
					push(@saves, $var);
				}
			}
			if (@ <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2707	2817	
==>de{$seg}->{declarations}}) {
				if (exists $main::common{$var}) {
					push(@saves, $var);
				}
			}
			if (@ <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	1817	1917	
==>de{$seg}->{declarations}}) {
		if (exists $main::common{$var}) {
			push(@saves, $var);
		}
	}
	if (@ <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3108	3208	
==>de{$seg}->{declarations}}) {
		if (exists $main::common{$var}) {
			push(@saves, $var);
		}
	}
	if (@ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3898	4014	
==>ired: Jako::Construct::Block
  my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless def <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7807	7923	
==>ired: Jako::Construct::Block
  my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless def <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8454	8570	
==>ired: Jako::Construct::Block
  my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless def <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9122	9238	
==>ired: Jako::Construct::Block
  my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless def <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9791	9907	
==>ired: Jako::Construct::Block
  my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless def <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380552	380851	
==>" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381563	381862	
==>" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382575	382874	
==>" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383587	383886	
==>" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
5	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	18070	18232	
==>t;
    }
    elsif (@_ == 3)
    {
        $self->{VERSION} = join('.', @_);
    }
    elsif (@_ == 0)
    {
        if (wantarray)
        {
            return sp <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	3695	3789	
==>es to return the C code for
initializing the dispatch mechanism within the core's init function <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50100	50191	
==>ine 800 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_PR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50893	50984	
==>ine 800 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_PR <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2825	2921	
==>ex_html .= $content->write_html($source, $target, $silent);
	}
	
	return $index_html;
}

=item C< <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	1099	1200	
==>(@lines)
  # an undef means end-of-stream
  my $self = shift;

  my $code_handler = $self->{'code_hand <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	2426	2550	
==>, $val";
}

sub output_if {
    my $self = shift;
    my ($a, $cond, $b, $where) = @_;
    $where = $self->output_label_use($ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1519	1636	
==>lock;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  my <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1477	1594	
==>lock;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  my <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1399	1516	
==>lock;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  my <==
5	/Users/nnunley/parrot/config/auto/format.pm	371	465	
==>::Base);

use Parrot::Configure::Step;

$description = 'Figuring out what formats should be use <==
5	/Users/nnunley/parrot/lib/Parrot/Test.pm	2104	2200	
==>ted, $description)>

Runs the Parrot Assembler code and passes the test if
the  output matches th <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3350	3442	
==>d to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = c <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5112	5204	
==>d to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = c <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8024	8116	
==>d to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = c <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8881	8973	
==>d to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = c <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	31965	32072	
==>pir must use one of \${STACK0} or \${STOREREG} in rule " .
				"$rule->{'name'}\n";
        } elsif ($rule-> <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3330	3422	
==>move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_s <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5092	5184	
==>move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_s <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8004	8096	
==>move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_s <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8861	8953	
==>move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800675	800883	
==>t_string_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801579	801787	
==>t_string_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802483	802691	
==>t_string_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803388	803596	
==>t_string_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14657	14791	
==>27
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 2 <==
5	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2510	2618	
==>~ m/^\d+$/s) {
    return 0 + $in;
  } else {
    return $Name2character_number{$in}; # returns undef if unkn <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858591	858682	
==>exception(NEG_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859595	859686	
==>exception(NEG_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860599	860690	
==>exception(NEG_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861604	861695	
==>exception(NEG_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat( <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10944	11054	
==>_save_1 ('P');
    $self->_morph ($pmc, $temp);
    $self->_restore ($temp);
    $temp = $pmc;
  }
  $self->_st <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961045	961151	
==>ot_string_trans_encoding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962007	962113	
==>ot_string_trans_encoding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962969	963075	
==>ot_string_trans_encoding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963932	964038	
==>ot_string_trans_encoding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" = <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18698	18845	
==>4,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			' <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	32706	32853	
==>4,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			' <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	42096	42243	
==>4,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			' <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44876	45023	
==>4,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			' <==
5	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15190	15283	
==>([F\x00-\x1F\-\\\{\}\x7F-\xFF])/$Escape{$1}/g;  # ESCAPER
      $x =~ s/([^\x00-\xFF])/'\\uc1\ <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	284	375	
==>SCRIPTION

A documentation section describing Parrot's configuration system.

=head2 Class M <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240574	240871	
==>"cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 28 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241522	241819	
==>"cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 28 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242470	242767	
==>"cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 28 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243419	243716	
==>"cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 28 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244350	244647	
==>"cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 28 <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3761	3863	
==>ndler->start_element({ Name => 'literal', Attributes => { type => $type->name } });
          $handler- <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4270	4370	
==>ndler->start_element({ Name => 'literal', Attributes => { type => $type->name } });
        $handler- <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4620	4718	
==>ndler->start_element({ Name => 'literal', Attributes => { type => $type->name } });
      $handler- <==
5	/Users/nnunley/parrot/Configure.pl	4259	4355	
==>sh qw( -no_match_vars );
use Parrot::BuildUtil;
use Parrot::Configure;

# These globals are acces <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4831	4927	
==>ndler->start_element({ Name => 'literal', Attributes => { type => $type->name } });
    $handler- <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27572	27675	
==>{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $ <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30039	30142	
==>{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $ <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33457	33560	
==>{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $ <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34711	34814	
==>{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $ <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37121	37224	
==>{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175518	175723	
==>{
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176421	176626	
==>{
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177325	177530	
==>{
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178229	178434	
==>{
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179134	179339	
==>{
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i", <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	41128	41219	
==>te: This subroutine is only available under Perl5.005)

C<gen_extract_tagged> generates a ne <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16365	16447	
==>([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzA <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16707	16789	
==>([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzA <==
5	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9908	9990	
==>([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzA <==
5	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10151	10233	
==>([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477074	477177	
==>xception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floo <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477970	478073	
==>xception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floo <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480720	480823	
==>xception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floo <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481723	481826	
==>xception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floo <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482726	482829	
==>xception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floo <==
5	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	16329	16446	
==>late .= << "END_PIR";
    # Create a result vector
    .local pmc result 
    result = new 'APLVector'
    # Loop thro <==
5	/Users/nnunley/parrot/tools/build/pmc2c.pl	15434	15580	
==>ritance
            # ParrotClass isa delegate
            #
            # delegate has everything autogenerated, so these
            # methods ar <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	681	774	
==>" . ref($block) . ") is not!"  unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  co <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	556	648	
==>" . ref($block) . ") is not!" unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  co <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	566	657	
==>". ref($block) . ") is not!" unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  co <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	548	639	
==>". ref($block) . ") is not!" unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  co <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38296	38496	
==>S" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JU <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46334	46534	
==>S" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JU <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47917	48117	
==>S" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JU <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49514	49714	
==>S" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JU <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51117	51317	
==>S" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JU <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610338	610646	
==>);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611240	611548	
==>);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612143	612451	
==>);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613049	613357	
==>);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattr <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11613	11707	
==>lon;

      my $arith = Jako::Construct::Statement::Arithmetic->new($block, $ident, $ident, $op <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173023	173274	
==>7,
                  "ARGS" => [
                              "p",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 218 \"src/ops/cmp.ops\"\n  if (0 != string_equa <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11481	11731	
==>result2,
                            'arg1'   => $result,
                            'arg2'   => $key->[0],
                        );
                        $result = $result2;
                    }
                    push @opcodes, @{ $last <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9709	9935	
==>result2,
                        'arg1'   => $result,
                        'arg2'   => $key->[0],
                    );
                    $result = $result2;
                }
                push @opcodes, @{ $last <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8620	8798	
==>result2,
                'arg1'   => $result,
                'arg2'   => $key->[0],
            );
            $result = $result2;
        }
        push @opcodes, @{ $last <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	2315	2413	
==>gh return() in case the code in the sub doesn't return anything
  $compiler->emit(".end");

  retur <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634707	634800	
==>Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}]-> <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635825	635918	
==>Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}]-> <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636943	637036	
==>Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}]-> <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638062	638155	
==>Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}]-> <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	56485	56578	
==>ext into fields which are quote delimited,
curly bracketed, and anything else. The delimited a <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	30737	30852	
==>s according to your level().

=cut

sub caller {
    my($self, $height) = @_;
    $height ||= 0;

    my @caller = C <==
5	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	968	1096	
==>ing}
        and $parser->YYData->{verbose_warning} );
}

sub Info {
    my $parser = shift;
    my ($msg) = @_;

    $ms <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5563	5667	
==>t1);
		$ot2=false($ot2);
		return(<<CODE, $result);
	# EQV $a1, $a2
	set $result, 0.0
	eq $a1, $ot1, EQ_$ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714627	714722	
==>g_length(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715550	715645	
==>g_length(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722314	722409	
==>g_length(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723343	723438	
==>g_length(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712616	712707	
==>nterpreter, \".\"), 0) == -1 &&\n      string_str_index(interpreter, s,\n\tconst_string(inte <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713723	713814	
==>nterpreter, \".\"), 0) == -1 &&\n      string_str_index(interpreter, s,\n\tconst_string(inte <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720083	720174	
==>nterpreter, \".\"), 0) == -1 &&\n      string_str_index(interpreter, s,\n\tconst_string(inte <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721283	721374	
==>nterpreter, \".\"), 0) == -1 &&\n      string_str_index(interpreter, s,\n\tconst_string(inte <==
5	/Users/nnunley/parrot/tools/build/vtable_extend.pl	459	548	
==>2005, The Perl Foundation.
*/
#if !defined(PARROT_EXTEND_VTABLE_H_GUARD)
#define PARROT_EX <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	849	942	
==>::Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($right, <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	687	780	
==>::Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($right, <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	840	933	
==>::Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($right, <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	729	822	
==>::Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($right, <==
5	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	5473	5564	
==>nter
language_output_is('tcl', <<'TCL', <<'OUT', <<'DESC');
$body
TCL
$out
OUT
$name - $expl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067047	1067148	
==>mp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068233	1068334	
==>mp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069419	1069520	
==>mp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070606	1070707	
==>mp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	702	799	
==>=head1 SYNOPSIS

 require 5;
 use strict;
 package SomePodFormatter;
 use base qw(Pod::Simple::Met <==
5	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	1021	1129	
==>=~ s|/[^/]+/\.\.|| ) {}

    if ( exists $instance_for_path{$path} )
    {
        if ( ref($instance_for_pat <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797028	797120	
==>.ops\"\n    {{\@1}}->vtable->set_number_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797932	798024	
==>.ops\"\n    {{\@1}}->vtable->set_number_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798836	798928	
==>.ops\"\n    {{\@1}}->vtable->set_number_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799741	799833	
==>.ops\"\n    {{\@1}}->vtable->set_number_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	512112	512469	
==>"ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 590,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#lin <==
5	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	3352	3560	
==>ode;
            $result .= "\n";
        }
        else {
            if ($seen_blank) {
              $result .= "\n";
              $seen_blank = 0;
            }
            # verbatim hunk.
            $r <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062533	1062627	
==>oot_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpreter, ns_root, {{\@2}});\n    {{\@1}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063402	1063496	
==>oot_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpreter, ns_root, {{\@2}});\n    {{\@1}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064272	1064366	
==>oot_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpreter, ns_root, {{\@2}});\n    {{\@1}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71893	72255	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73494	73856	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75096	75458	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76698	77060	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	8223	8313	
==>RETURN_${CURIC}
post_call_HAS_RETURN_${CURIC}:
${INS} = concat "push s, "
${INS} = concat $ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909962	910229	
==>inline",
                  "CODE" => 1025,
                  "ARGS" => [
                              "i",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 284 \"src/ops/string.ops <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332346	332444	
==>ps\"\n  /* These char * need to go away soon */\n  const char * const mode = string_to_cstring(inte <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333624	333722	
==>ps\"\n  /* These char * need to go away soon */\n  const char * const mode = string_to_cstring(inte <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334902	335000	
==>ps\"\n  /* These char * need to go away soon */\n  const char * const mode = string_to_cstring(inte <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336181	336279	
==>ps\"\n  /* These char * need to go away soon */\n  const char * const mode = string_to_cstring(inte <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	46715	46854	
==>. . . . . . . . . . . . . . . . . . .
# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
#======================= <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	46763	46877	
==>. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
#============================================== <==
5	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1694	1808	
==>. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	46809	46900	
==>. . . . . . . . . . .
#===================================================================== <==
5	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1740	1831	
==>. . . . . . . . . . .
#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	40494	40618	
==>an link.\n";
      } else {
        $ell->[1]{'type'}    = 'pod';
        DEBUG > 3 and print "Considering this a pod link (n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769899	770002	
==>BODY" => "#line 350 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770752	770855	
==>BODY" => "#line 350 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771605	771708	
==>BODY" => "#line 350 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772459	772562	
==>BODY" => "#line 350 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	1410	1506	
==>{label};
}

=item method optimize(ops...)

 1. Merge equivalent labels
 2. Jump threading: Replac <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24221	24317	
==>,$node) = @_;
  my $return;
  my $num_children = defined $node->{children} ? @{$node->{children}} <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25109	25205	
==>,$node) = @_;
  my $return;
  my $num_children = defined $node->{children} ? @{$node->{children}} <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26120	26216	
==>,$node) = @_;
  my $return;
  my $num_children = defined $node->{children} ? @{$node->{children}} <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27009	27105	
==>,$node) = @_;
  my $return;
  my $num_children = defined $node->{children} ? @{$node->{children}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072237	1072374	
==>reak;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074422	1074559	
==>reak;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076607	1076744	
==>reak;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078793	1078930	
==>reak;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	69258	69355	
==>nting code (", length($code),") to RD_TRACE\n";
			open TRACE_FILE, ">RD_TRACE"
			and print TRACE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332322	332423	
==>"#line 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const mode = s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333600	333701	
==>"#line 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const mode = s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334878	334979	
==>"#line 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const mode = s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336157	336258	
==>"#line 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const mode = s <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	831	928	
==>o use in other compilations. But, string
# literals are subject to interpolation, and so they go t <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133306	133482	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134086	134262	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134867	135043	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135760	135936	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136654	136830	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18460	18552	
==>= Jako::Construct::Expression::Value::Identifier->new($block, $token);

      $self->require_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186064	186338	
==>{{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186994	187268	
==>{{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187924	188198	
==>{{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193603	193877	
==>{{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194582	194856	
==>{{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258521	258840	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259464	259783	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260315	260634	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261167	261486	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262019	262338	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	4928	5061	
==>rewrite_plus')) {
        if ($greedy) {
            return $self->rewrite_plus($op, $R, @rest);
        } else {
            return $ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540688	540815	
==>else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n {{\@1}} = b<<p;\n { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541940	542067	
==>else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n {{\@1}} = b<<p;\n { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543192	543319	
==>else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n {{\@1}} = b<<p;\n { <==
5	/Users/nnunley/parrot/lib/Test/More.pm	21608	21717	
==>aven't fixed a bug or haven't finished a new feature:

    TODO: {
        local $TODO = "URI::Geller not fini <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259230	259558	
==>\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "F <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260081	260409	
==>\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "F <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260933	261261	
==>\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "F <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261785	262113	
==>\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "F <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258289	258615	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "F <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10816	10912	
==>l = _get_arg ($node, 1)->{value};
  my $temp = $self->_generate(_get_arg($node,2));
  if ($temp ! <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084719	1084805	
==>c/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085772	1085858	
==>c/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086825	1086911	
==>c/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087879	1087965	
==>c/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943392	943655	
==>arset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 106 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944180	944443	
==>arset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 106 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946593	946856	
==>arset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 106 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947494	947757	
==>arset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 106 <==
5	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18796	18888	
==>s the size (in half-points, like 21 for 10.5-point)
that codeblocks ("verbatim sections") wil <==
5	/Users/nnunley/parrot/config/auto/jit.pm	2148	2266	
==>e.jit" ? 'yes' : 'no', "\n")
        if $verbose;

    # XXX disable all but i386, ppc
    my %jit_is_working = (
	i386 <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7939	8032	
==>ref $self and $self->isa("Jako::Construct::Block");
  confess "No identifier name!"  unless de <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8586	8679	
==>ref $self and $self->isa("Jako::Construct::Block");
  confess "No identifier name!"  unless de <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9254	9347	
==>ref $self and $self->isa("Jako::Construct::Block");
  confess "No identifier name!"  unless de <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9923	10016	
==>ref $self and $self->isa("Jako::Construct::Block");
  confess "No identifier name!"  unless de <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	618955	619062	
==>code[1];\n    lt = left->vtable->base_type;\n    right = {{\@3}};\n    lru = &mic->lru;\n    rt = right->vta <==
5	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2817	2912	
==>::Simple>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reser <==
5	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12181	12276	
==>::Simple>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reser <==
5	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3099	3194	
==>::Simple>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reser <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2837	2932	
==>::Simple>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reser <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332326	332426	
==>ne 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const mode = stri <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333604	333704	
==>ne 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const mode = stri <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334882	334982	
==>ne 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const mode = stri <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336161	336261	
==>ne 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const mode = stri <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	10741	10840	
==>l) {
		fdprint($fd, "\\n");
	}
	barf();
}
sub parse_read {
	while($type[CURR] !~ /COMP|COMM|STMT/) { <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	54	169	
==>ub import {
  my($value,$variable);
  
  if(@_ == 2) {
    $value = $_[1];
  } elsif(@_ == 3) {
    ($variable, $val <==
5	/Users/nnunley/parrot/tools/build/dynclasses.pl	2787	2897	
==>LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$so <==
5	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3096	3206	
==>LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$so <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	2891	3001	
==>LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$so <==
5	/Users/nnunley/parrot/lib/Class/Struct.pm	13769	13864	
==>after assignment). If the element type
starts with a C<'*'>, a reference to the element itself i <==
5	/Users/nnunley/parrot/config/gen/makefiles.pm	2617	2815	
==>ile',
        commentType                          => '#',
        replace_slashes                      => 1,
        conditioned_lines                    => 1
    );
    genfile(
        'config/gen <==
5	/Users/nnunley/parrot/config/gen/makefiles.pm	1351	1531	
==>ile',
        commentType                    => '#',
        replace_slashes                => 1,
        conditioned_lines              => 1
    );
    genfile(
        'config/gen <==
5	/Users/nnunley/parrot/config/gen/makefiles.pm	4418	4592	
==>ile',
        commentType                  => '#',
        replace_slashes              => 1,
        conditioned_lines            => 1
    );
    genfile(
        'config/gen <==
5	/Users/nnunley/parrot/config/gen/makefiles.pm	5468	5642	
==>ile',
        commentType                  => '#',
        replace_slashes              => 1,
        conditioned_lines            => 1
    );
    genfile(
        'config/gen <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	177	288	
==>er;
use vars qw { $VERSION @ISA %EXPORT_TAGS };

$VERSION = '1.89';
@ISA		= qw ( Exporter );
		     
%EXPORT_TAG <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	57338	57444	
==>eted($grammar,'<');
					$code })
			{
				_parse("an error marker", $aftererror,$line,$code);
				$code =~ <==
5	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	417	517	
==>$self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  #$new->acc <==
5	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	221	320	
==>$self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->acc <==
5	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	220	319	
==>$self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->acc <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	469	568	
==>$self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->acc <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	20114	20253	
==>i, 1) )[0];
        DEBUG > 4 and print "    Now: ", $i-1, ":[$treelet->[$i-1]]\n";
        --$i;
        next; 
        # since we just pul <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777066	777153	
==>{{\@1}}->vtable->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+= <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777975	778062	
==>{{\@1}}->vtable->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+= <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778884	778971	
==>{{\@1}}->vtable->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+= <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779794	779881	
==>{{\@1}}->vtable->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+= <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099275	1099393	
==>\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n\tres = 1.0/res;\n    }\n    {{\@1}} = res;\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100473	1100591	
==>\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n\tres = 1.0/res;\n    }\n    {{\@1}} = res;\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101671	1101789	
==>\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n\tres = 1.0/res;\n    }\n    {{\@1}} = res;\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102870	1102988	
==>\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n\tres = 1.0/res;\n    }\n    {{\@1}} = res;\ <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	283	375	
==>list.txt

=head1 DESCRIPTION

This script creates the Native Call Interface file F<src/nci.c> <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2807	2908	
==>art_element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
    $left->sax($handler <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3481	3582	
==>art_element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
    $left->sax($handler <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3571	3672	
==>art_element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
    $left->sax($handler <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5356	5455	
==>art_element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
  $left->sax($handler <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3419	3518	
==>art_element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
  $left->sax($handler <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909442	909746	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910339	910643	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911236	911540	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912134	912438	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_c <==
5	/Users/nnunley/parrot/tools/dev/pbc_header.pl	1804	1921	
==>ck 'c', $c;
	    printf "\t%-12s= %s\n", $fields[$i],$c;
	}
    }
}

sub main {
    my ($result, $upd_fp);
    $result <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1145	1237	
==>->value;
  my $right = $self->right->compile($compiler);

  if ($self->block->scope_of_ident( <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	685	776	
==>ref($block) . ") is not!"  unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  conf <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	560	650	
==>ref($block) . ") is not!" unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  conf <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	569	659	
==>ref($block) . ") is not!" unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  conf <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	551	641	
==>ref($block) . ") is not!" unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  conf <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766488	766591	
==>ODY" => "#line 335 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767341	767444	
==>ODY" => "#line 335 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768194	768297	
==>ODY" => "#line 335 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769048	769151	
==>ODY" => "#line 335 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC( <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	4306	4402	
==>uiltin\n" unless exists $built_ins{$name};

  my $self = Scheme::Builtins->new();

  for (@{$buil <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324151	324329	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324943	325121	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325736	325914	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326526	326704	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327327	327505	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	14316	14428	
==>ully match, so it was
					  optimized out of the final parser$caveat. $advice");
		return 0;
	}
	return 1;
}

su <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240192	240359	
==>eter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241140	241307	
==>eter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242088	242255	
==>eter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243037	243204	
==>eter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
5	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	370	480	
==>(@commands) {
  open my $fh, '<', $file;
  my $line = <$fh>;
  if ($line =~ /XXX Stub/i) {
    $file =~ m{.*/(. <==
5	/Users/nnunley/parrot/tools/build/ops2c.pl	9922	10045	
==>ndex = 0;

    foreach my $op ($ops->ops) {
        my $type       = sprintf("PARROT_%s_OP", uc $op->type);
        my $name <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	44922	45038	
==>atting =~ m{\G(( +)|(\^+)|(\/+)|(\%+))}g ) {
      #print "Format matches $1\n";

      if($2) {
        #print "SKIP <==
5	/Users/nnunley/parrot/config/init/hints/freebsd.pm	464	579	
==>g.

    my $osversion;
    if (-e "/sbin/sysctl") {
        $osversion = `/sbin/sysctl -n kern.osreldate`;
    } els <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	1463	1557	
==>->new_item('', 'tools/dev/manicheck.pl'),
            $self->new_item('', 'tools/dev/run_indent <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13510	13603	
==>izing away production: [". $_[0]->describe ."]");
		my $what = $items[0]->describe =~ /<ruleva <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780727	780983	
==>ng_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781636	781892	
==>ng_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782545	782801	
==>ng_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783455	783711	
==>ng_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
5	/Users/nnunley/parrot/tools/dev/gen_class.pl	1129	1233	
==>ew:
 *     These are the vtable functions for the $classname base class
 *  Data Structure and Algorith <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63107	63211	
==>$prod->additem($item)
						      or  _no_rule("repetition",$line,"$code$argcode($1)");

						!$matchrul <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63828	63932	
==>$prod->additem($item)
						      or  _no_rule("repetition",$line,"$code$argcode($1)");

						!$matchrul <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64544	64648	
==>$prod->additem($item)
						      or  _no_rule("repetition",$line,"$code$argcode($1)");

						!$matchrul <==
5	/Users/nnunley/parrot/lib/Test/More.pm	12964	13068	
==>name = 'The object' unless defined $obj_name;
    my $name = "$obj_name isa $class";
    if( !defined $ob <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62471	62573	
==>$prod->additem($item)
					      or  _no_rule("repetition",$line,"$code$argcode($1)");

					!$matchrul <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050302	1050572	
==>l(interpreter, {{\@2}}, {{\@3}}, next);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051336	1051606	
==>l(interpreter, {{\@2}}, {{\@3}}, next);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052370	1052640	
==>l(interpreter, {{\@2}}, {{\@3}}, next);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053405	1053675	
==>l(interpreter, {{\@2}}, {{\@3}}, next);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	8147	8260	
==>$FH   = $self->{fh};
        print {$FH}
            "  unless_null $op->{arg1}->{symbol}, $op->{result}->{symbo <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39052	39285	
==>terpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39917	40150	
==>terpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40764	40997	
==>terpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41612	41845	
==>terpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Posix.pm	386	495	
==>= @_;

    my $lang_fn        = Parrot::Test::per_test( '.bc', $count );
    my $test_prog_args = $ENV{TEST_PR <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28502	28624	
==>p ) {
        $e_step = BuildLiteral( $parser, 1, 'number' );
    }
    push @opcodes, @{ $e_start->[1] };
    push @op <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32768	32878	
==>info\n";
		    $pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			    "typeinfo for rule $rule->{'name'}");
		    $ <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26776	26874	
==>info\n";
		$pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$ <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28492	28590	
==>info\n";
		$pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$ <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36474	36572	
==>info\n";
		$pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$ <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	36670	36764	
==>$para_type =~ s/^=//s
        and defined( $para_type = $self->{'accept_directives'}{$para_type <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1449	1566	
==>t;
      $self->SUPER::compile($compiler);
      $compiler->outdent;
      $compiler->emit(".endnamespace ${namespace} <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1805	1922	
==>t;
      $self->SUPER::compile($compiler);
      $compiler->outdent;
      $compiler->emit(".endnamespace ${namespace} <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1246	1363	
==>t;
      $self->SUPER::compile($compiler);
      $compiler->outdent;
      $compiler->emit(".endnamespace ${namespace} <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1554	1671	
==>t;
      $self->SUPER::compile($compiler);
      $compiler->outdent;
      $compiler->emit(".endnamespace ${namespace} <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	652	763	
==>t;
    $self->SUPER::compile($compiler);
    $compiler->outdent;
    $compiler->emit(".endnamespace ${namespace} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143569	143683	
==>f (string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144497	144611	
==>f (string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145425	145539	
==>f (string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661922	662008	
==>/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(int <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662838	662924	
==>/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(int <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968792	968960	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969801	969969	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970810	970978	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971820	971988	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(in <==
5	/Users/nnunley/parrot/lib/Test/Simple.pm	2681	2777	
==>ill be considered failures.  If no tests were ever run Test::Simple
will throw a warning and exit <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	12844	12947	
==>rint "  Didn't look titular ($head1_text_content).\n",
            "\n  Dropping back to seeking-head1-c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793409	793496	
==>ops\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794314	794401	
==>ops\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795219	795306	
==>ops\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796125	796212	
==>ops\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4885	5004	
==>($offset)>

Transforms the C<goto OFFSET($offset)> macro in an ops file into the
relevant C code.

=cut

sub goto_offset <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1830	1949	
==>($offset)>

Transforms the C<goto OFFSET($offset)> macro in an ops file into the
relevant C code.

=cut

sub goto_offset <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2479	2598	
==>($offset)>

Transforms the C<goto OFFSET($offset)> macro in an ops file into the
relevant C code.

=cut

sub goto_offset <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2198	2317	
==>($offset)>

Transforms the C<goto OFFSET($offset)> macro in an ops file into the
relevant C code.

=cut

sub goto_offset <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2159	2278	
==>($offset)>

Transforms the C<goto OFFSET($offset)> macro in an ops file into the
relevant C code.

=cut

sub goto_offset <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516765	517053	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517504	517792	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518242	518530	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518981	519269	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	31202	31304	
==>_}\n|;
		}
	}

	push @{$code{$seg}->{code}}, <<RTBE;
	print "Runtime branch of "
	print JUMPLABEL
	prin <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21630	21751	
==>target?" . (
            ( @$curr_open and $curr_open->[-1][0] eq '=for' )
            ? ( " (Should be \"=end " . $curr_o <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381187	381281	
==>{{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (32 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382199	382293	
==>{{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (32 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383211	383305	
==>{{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (32 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384224	384318	
==>{{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (32 <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	46331	46458	
==>ht look like this:

        <<'EOMSG' || die;
        This is the message.
        EOMSG
	exit;

Given this as an input string i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770002	770118	
==>C(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770855	770971	
==>C(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771708	771824	
==>C(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772562	772678	
==>C(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	16814	16937	
==>e
{
    my ($op, $cmt) = @_;
    my $r = pop @stack;
    my $l = pop @stack;
    print <<"EOC";
	$l->[1] $op= $r->[1] $cmt
E <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072800	1072919	
==>\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074985	1075104	
==>\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077170	1077289	
==>\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079356	1079475	
==>\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\ <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8181	8307	
==>ack) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } else {
        die "Too many argumen <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8963	9089	
==>ack) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } else {
        die "Too many argumen <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7834	7960	
==>ack) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } else {
        die "Too many argumen <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8623	8749	
==>ack) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } else {
        die "Too many argumen <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	49912	50009	
==>turn an error.

=item 2.

Try to match a quote or quotelike operator. If found, call
C<extract_quo <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	1176	1280	
==>rx_endgroup P0, $n";
}

sub output_atend {
    my ($self, $failLabel) = @_;
    return ("rx_zwa_atend P0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712685	712775	
==>s,\n\tconst_string(interpreter, \"e\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\");\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713792	713882	
==>s,\n\tconst_string(interpreter, \"e\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\");\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720152	720242	
==>s,\n\tconst_string(interpreter, \"e\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\");\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721352	721442	
==>s,\n\tconst_string(interpreter, \"e\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\");\n <==
5	/Users/nnunley/parrot/config/auto/cgoto.pm	572	682	
==>f) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('skipped');
        return $se <==
5	/Users/nnunley/parrot/config/auto/headers.pm	507	617	
==>f) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('skipped');
        return $se <==
5	/Users/nnunley/parrot/config/auto/jit.pm	658	768	
==>f) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('skipped');
        return $se <==
5	/Users/nnunley/parrot/config/gen/cpu.pm	570	680	
==>f) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('skipped');
        return $se <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	1104	1199	
==>k to register mapper\n";
}
sub post_branch {
	die "post_branch not implemented for current stack <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	3372	3486	
==>in_heredoc && $rule && /^\s*(\w+)\s*=\s*<<(\w+)\s*$/) {
            # Initialize heredoc.
            $in_heredoc = <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	19891	20003	
==>ay be memory issues with this but if we get to here we are
     * aborting.
     */
    c = string_to_cstring(int <==
5	/Users/nnunley/parrot/config/inter/ops.pm	134	230	
==>AME

config/inter/ops.pm - Ops Files

=head1 DESCRIPTION

Asks the user to select which ops files <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434486	434575	
==>{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435501	435590	
==>{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	312039	312251	
==>\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getline",
                  "FLAGS" => "",
                  " <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	23135	23252	
==>q ",") {
				feedme();
				goto &parse_dim;
			}
		} elsif ($syms[NEXT] eq "(")  {
			my $var=$syms[CURR];
			while(1) <==
5	/Users/nnunley/parrot/tools/build/dynclasses.pl	866	958	
==>usr/local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS = qq[-bundle -undefined suppress];
our $ <==
5	/Users/nnunley/parrot/tools/build/dynoplibs.pl	855	947	
==>usr/local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS = qq[-bundle -undefined suppress];
our $ <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	859	951	
==>usr/local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS = qq[-bundle -undefined suppress];
our $ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718118	718370	
==>softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719050	719302	
==>softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720249	720501	
==>softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721449	721701	
==>softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15100	15205	
==>start_token_class'}->new(@_);
  return;
}

sub _handle_text {
  my $self = shift;   # leaving ($text)
  DE <==
5	/Users/nnunley/parrot/tools/dev/as2c.pl	879	1009	
==>_comment) {
		print " */\n";
	    }
	    my ($bytes, $src) = ($1, $2);
	    $src =~ s/\t/ /g;
	    my $len = length($bytes);
	    m <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586672	586762	
==>ot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(clas <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587858	587948	
==>ot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(clas <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589044	589134	
==>ot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(clas <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590231	590321	
==>ot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(clas <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19223	19421	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19999	20197	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20777	20975	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21577	21775	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	21117	21223	
==>) }
	],
	[#Rule 26
		 'expr', 1,
sub
#line 141 "lib/Regex/Grammar.y"
{ return op('code' => [ $_[1] ]) }
	], <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766572	766696	
==>ERS)\n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767425	767549	
==>ERS)\n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768278	768402	
==>ERS)\n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769132	769256	
==>ERS)\n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  " <==
5	/Users/nnunley/parrot/tools/build/ops2pm.pl	5830	5925	
==>\$preamble);

\$VERSION = "$version";

END_C

print MODULE $preamble;
print MODULE Data::Dumper- <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591562	591652	
==>{{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exis <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592772	592862	
==>{{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exis <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593982	594072	
==>{{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exis <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595193	595283	
==>{{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exis <==
5	/Users/nnunley/parrot/tools/dev/parrot_api.pl	391	481	
==>public embedding API as described in the public
headers F<include/parrot/embed.h> and F<inc <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154865	154981	
==>ne 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "L <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155769	155885	
==>ne 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "L <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156673	156789	
==>ne 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "L <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157578	157694	
==>ne 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "L <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	20348	20449	
==>ccept either, but avoid mixing the two styles.

Defaults to on.

=cut

sub use_numbers {
    my($self, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925493	925791	
==>> 0,
                  "NAME" => "stringinfo",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926962	927260	
==>> 0,
                  "NAME" => "stringinfo",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928432	928730	
==>> 0,
                  "NAME" => "stringinfo",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929902	930200	
==>> 0,
                  "NAME" => "stringinfo",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
5	/Users/nnunley/parrot/Configure.pl	4005	4099	
==>assuming only pure ANSI C is available.

=back

=head1 SEE ALSO

F<config/init/data.pl>, F<lib/ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568780	569077	
==>sa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 65 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569672	569969	
==>sa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 65 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570565	570862	
==>sa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 65 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571519	571816	
==>sa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 65 <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	1656	1741	
==>ew_item('', 'lib/Parrot/BuildUtil.pm'),
			$self->new_item('', 'lib/Parrot/Configure') <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072546	1072642	
==>{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we used abs({{\@4}}) and abs({{\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074731	1074827	
==>{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we used abs({{\@4}}) and abs({{\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076916	1077012	
==>{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we used abs({{\@4}}) and abs({{\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079102	1079198	
==>{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we used abs({{\@4}}) and abs({{\ <==
5	/Users/nnunley/parrot/lib/Test/More.pm	10636	10732	
==>ll interfere:

    cmp_ok( $big_hairy_number, '==', $another_big_hairy_number );

=cut

sub cmp_o <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	11023	11159	
==>*)'/) {
	    my $u = defined $1 ? "u:" : "";
	    my $s = $2;
	    $c =~ s/.*/$u"$s"/;
	}
	print <<EOC;
	\t$cmt
EOC
    }
    else {
	pri <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	40911	41030	
==>ext = $text;
		  my $backtrack;
		  # MATCH (LEFTARG OP)(s)
		  while ($repcount < ' . $self->{max} . ')
		  {
			$backt <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050240	1050336	
==>ss.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(interpreter, {{\@2}}, {{\@3}}, ne <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051274	1051370	
==>ss.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(interpreter, {{\@2}}, {{\@3}}, ne <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052308	1052404	
==>ss.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(interpreter, {{\@2}}, {{\@3}}, ne <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053343	1053439	
==>ss.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(interpreter, {{\@2}}, {{\@3}}, ne <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16631	16821	
==>ser,
                    'result' => $result,
                );
                push @opcodes, new FindLexOp( $parser,
                    'result' => $result,
                    'arg1 <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10807	10971	
==>ser, 'result' => $result, );
                    push @opcodes, new FindLexOp( $parser,
                        'result' => $result,
                        'arg1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50211	50325	
==>lse         { Interp_flags_CLEAR(interpreter, PARROT_PROFILE_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51004	51118	
==>lse         { Interp_flags_CLEAR(interpreter, PARROT_PROFILE_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" <==
5	/Users/nnunley/parrot/languages/dotnet/Configure.pl	1793	1900	
==>e.in" or die "Unable to open config/Makefile.in\n";
	my $makefile = join('', <$fh>);
	close $fh;
	
	# Su <==
5	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20110	20218	
==>ish
  2058  Mexico Spanish
  1031  Germany German
  1036  France French
  3084  Canada French
  1035  Finnish <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712611	712702	
==>ing(interpreter, \".\"), 0) == -1 &&\n      string_str_index(interpreter, s,\n\tconst_string <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713718	713809	
==>ing(interpreter, \".\"), 0) == -1 &&\n      string_str_index(interpreter, s,\n\tconst_string <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720078	720169	
==>ing(interpreter, \".\"), 0) == -1 &&\n      string_str_index(interpreter, s,\n\tconst_string <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721278	721369	
==>ing(interpreter, \".\"), 0) == -1 &&\n      string_str_index(interpreter, s,\n\tconst_string <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504088	504411	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504943	505266	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505798	506121	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506652	506975	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507507	507830	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27364	27489	
==>hat. If not, we need
		# to generate it from the "to generate" instruction directive.
		$pir .= "### translation\n";
		if ($ru <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29831	29956	
==>hat. If not, we need
		# to generate it from the "to generate" instruction directive.
		$pir .= "### translation\n";
		if ($ru <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33249	33374	
==>hat. If not, we need
		# to generate it from the "to generate" instruction directive.
		$pir .= "### translation\n";
		if ($ru <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34503	34628	
==>hat. If not, we need
		# to generate it from the "to generate" instruction directive.
		$pir .= "### translation\n";
		if ($ru <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36913	37038	
==>hat. If not, we need
		# to generate it from the "to generate" instruction directive.
		$pir .= "### translation\n";
		if ($ru <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9173	9309	
==>db_desc ? " ($db_desc)" : "";
        return ("\$dbg_tmp = \@<rx_stack>;",
                "$reg = pop \@<rx_stack>;",
                $s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834352	834550	
==>_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835078	835276	
==>_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835830	836028	
==>_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836583	836781	
==>_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	23113	23219	
==>d $content because in an ignored region\n";
        # And that may be because of this to-be-closed =for reg <==
5	/Users/nnunley/parrot/tools/build/pmc2c.pl	9923	10051	
==>as noinit
    while ($$c =~ s/^\s*(\w+)//s) {
        my $flag = $1;
        if ($has_value{$flag}) {
            $$c =~ s/^\s+(\ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	124	216	
==>ame license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/D <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	121	213	
==>ame license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/D <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	116	208	
==>ame license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/D <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	121	213	
==>ame license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/D <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677896	678180	
==>0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 76 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678674	678958	
==>0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 76 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679452	679736	
==>0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 76 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680231	680515	
==>0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 76 <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	15500	15610	
==>rective that started near line
			 $next->{line}. Did you forget the closing '>'?");
	    }
	}
	return 1;
}

su <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926117	926238	
==>\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927587	927708	
==>\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929057	929178	
==>\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930528	930649	
==>\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({ <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	6004	6098	
==>t2=false($ot2);
		($a1,$a2,$ot1,$ot2)=($a2,$a1,$ot2,$ot1);
		return(<<CODE, $result);
	# IMP $a <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	117	212	
==>ame license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Type <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	120	215	
==>ame license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Type <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	119	214	
==>ame license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Type <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	116	211	
==>ame license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Type <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	119	214	
==>ame license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Type <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948890	949123	
==>terpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949690	949923	
==>terpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959344	959577	
==>terpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960146	960379	
==>terpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	2142	2260	
==>]\d+)?)/;
    $node->{type} ||= 'EXPRESSION';
  }
}

sub parse {
  my $tokens = shift;
  my @tree;
  my $tree;

  my $c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072301	1072427	
==>km1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  {{\@2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074486	1074612	
==>km1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  {{\@2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076671	1076797	
==>km1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  {{\@2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078857	1078983	
==>km1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  {{\@2 <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19711	19800	
==>die "Syntax error in type $type[CURR]/$syms[CURR] (source line $sourceline)" unless $type[ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423347	423614	
==>"function",
                  "CODE" => 486,
                  "ARGS" => [
                              "i",
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 567 \"src/ops/io.ops\"\ <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9476	9667	
==>push @opcodes, new LocalDir( $parser,
                        'result' => $result2,
                    );
                    push @opcodes, new KeyedGetOp(
                        $parse <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11257	11435	
==>push @opcodes, new LocalDir( $parser,
                            'result' => $result2,
                        );
                        push @opcodes, new KeyedGetOp( $parse <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12773	12939	
==>push @opcodes, new LocalDir( $parser,
                        'result' => $result2,
                    );
                    push @opcodes, new KeyedGetOp( $parse <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8444	8586	
==>push @opcodes, new LocalDir( $parser,
                'result' => $result2,
            );
            push @opcodes, new KeyedGetOp( $parse <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17654	17784	
==>push @opcodes, new LocalDir( $parser,
            'result' => $result2,
        );
        push @opcodes, new KeyedGetOp( $parse <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018106	1018328	
==>cstring(interpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019031	1019253	
==>cstring(interpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019961	1020183	
==>cstring(interpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020892	1021114	
==>cstring(interpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
5	/Users/nnunley/parrot/examples/benchmarks/overload.pl	31	142	
==>ict;

use overload '*' => \&my_mul, 'fallback' => 1;

sub new {
    my ($class, $val) = @_;
    bless \$val, $cl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099330	1099476	
==>\n    if (s < 0) {\n\tres = 1.0/res;\n    }\n    {{\@1}} = res;\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100528	1100674	
==>\n    if (s < 0) {\n\tres = 1.0/res;\n    }\n    {{\@1}} = res;\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101726	1101872	
==>\n    if (s < 0) {\n\tres = 1.0/res;\n    }\n    {{\@1}} = res;\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102925	1103071	
==>\n    if (s < 0) {\n\tres = 1.0/res;\n    }\n    {{\@1}} = res;\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" <==
5	/Users/nnunley/parrot/tools/build/ops2pm.pl	2796	2895	
==>my $package = "core";
my $moddir  = "lib/Parrot/OpLib";
my $module  = "$moddir/core.pm";

my $file = <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27636	27745	
==>nstruction'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= " <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30103	30212	
==>nstruction'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= " <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33521	33630	
==>nstruction'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= " <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37185	37294	
==>nstruction'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= " <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	2624	2726	
==>is is bad.
# 		print OUT "my ";

		require Data::Dumper;
		print OUT Data::Dumper->Dump([$self], [qw(se <==
5	/Users/nnunley/parrot/tools/build/jit2c.pl	12541	12668	
==>c') {
            $jit_func = "Parrot_jit_vtable_ifp_op";
            $opbody =~ /vtable->(\w+)/;
            $extern = vtable_n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072416	1072524	
==>r1;\n  {{\@2}} = (INTVAL)( xk * pow( -1, n ) );\n  {{\@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074601	1074709	
==>r1;\n  {{\@2}} = (INTVAL)( xk * pow( -1, n ) );\n  {{\@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076786	1076894	
==>r1;\n  {{\@2}} = (INTVAL)( xk * pow( -1, n ) );\n  {{\@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078972	1079080	
==>r1;\n  {{\@2}} = (INTVAL)( xk * pow( -1, n ) );\n  {{\@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2} <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	2007	2116	
==>epeat {
    my ($self, $tree, $ctx) = @_;
    die "Huh?" if $tree->negated;
    return op('multi_match' => [ $ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072475	1072581	
==>= (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct th <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074660	1074766	
==>= (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct th <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076845	1076951	
==>= (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct th <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079031	1079137	
==>= (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct th <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	25400	25514	
==>urn;
    }
    
    if(grep $new_letter eq $_, @Known_formatting_codes) {
      DEBUG > 2 and print " $new_letter i <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32770	32880	
==>fo\n";
		    $pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			    "typeinfo for rule $rule->{'name'}");
		    $pi <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26778	26876	
==>fo\n";
		$pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pi <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28494	28592	
==>fo\n";
		$pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pi <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36476	36574	
==>fo\n";
		$pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pi <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	699	811	
==>= {}}{ $_[1] } = $_[2];
  } else {
    require Carp;
    Carp::croak(
      'usage: $object->attr("val") or $obje <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2068	2172	
==>orms the C<goto POP()> macro in an ops file into the relevant C
code.

=cut

sub goto_pop
{
    my ($self <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2718	2822	
==>orms the C<goto POP()> macro in an ops file into the relevant C
code.

=cut

sub goto_pop
{
    my ($self <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2441	2545	
==>orms the C<goto POP()> macro in an ops file into the relevant C
code.

=cut

sub goto_pop
{
    my ($self <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2621	2725	
==>orms the C<goto POP()> macro in an ops file into the relevant C
code.

=cut

sub goto_pop
{
    my ($self <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099175	1099297	
==>e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100373	1100495	
==>e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101571	1101693	
==>e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102770	1102892	
==>e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t} <==
5	/Users/nnunley/parrot/tools/dev/mk_inno.pl	373	471	
==>d1 SYNOPSIS

    % perl tools/dev/mk_inno.pl [options]

=head1 DESCRIPTION

=head2 Options

=over 4 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500316	500607	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501054	501345	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501793	502084	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502531	502822	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503270	503561	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876967	877248	
==>4,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = st <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	40599	40704	
==>d+)\}/g) {
		my $key = "${1}TEMP$2";
		my $value = "${1}_temp_$2";
		$mv->{$key} = $value;
		$pir =~ s/\$\ <==
5	/Users/nnunley/parrot/lib/Parrot/Config.pm	1699	1782	
==>claration-after-statement -I/usr/local/include -I/opt/local/include -pipe -fno-commo <==
5	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1087	1170	
==>claration-after-statement -I/usr/local/include -I/opt/local/include -pipe -fno-commo <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	1091	1174	
==>claration-after-statement -I/usr/local/include -I/opt/local/include -pipe -fno-commo <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857955	858253	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858958	859256	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859962	860260	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860966	861264	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	27819	27911	
==>delimited string (possibly after skipping a specified prefix string).
The search for the stri <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73204	73493	
==>AGS({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74806	75095	
==>AGS({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76408	76697	
==>AGS({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78011	78300	
==>AGS({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	34706	34794	
==>"\n  {{\@1}}->vtable->set_pointer(interpreter, {{\@1}}, (void* ){{\@2}});\n  {{+=3}};\n", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945484	945735	
==>_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946294	946545	
==>_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955928	956179	
==>_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956740	956991	
==>_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	26592	26708	
==>ng_codes{$f} or $f eq '0' or $f eq '1';
      DEBUG > 2 and print "  Can't fall back on unknown code $f\n";
      $se <==
5	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1081	1199	
==>{
    my $indent = '  ' x $_[0]{'indent'};
    my $text = $_[1];
    _perly_escape($text);
    $text =~  # A not-totall <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591603	591696	
==>, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclas <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592813	592906	
==>, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclas <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594023	594116	
==>, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclas <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595234	595327	
==>, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclas <==
5	/Users/nnunley/parrot/tools/util/pirtidy.pl	678	787	
==>t;

    close $ifh;
    close $ofh;
}

__END__

=head1 NAME

tools/util/pirtidy.pl - a PIR script indenter and <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4506	4607	
==>) {
      my $block = $self->current_block();
      my $ident = Jako::Construct::Expression::Value::Id <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	10752	10853	
==>) {
      my $block = $self->current_block();
      my $ident = Jako::Construct::Expression::Value::Id <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16166	16267	
==>) {
      my $block = $self->current_block();
      my $ident = Jako::Construct::Expression::Value::Id <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16937	17038	
==>) {
      my $block = $self->current_block();
      my $ident = Jako::Construct::Expression::Value::Id <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17742	17843	
==>) {
      my $block = $self->current_block();
      my $ident = Jako::Construct::Expression::Value::Id <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11205	11404	
==>new_tmp( $parser, 'pmc' );
                        push @opcodes, new LocalDir( $parser,
                            'result' => $result2,
                        );
                        push @ <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9428	9611	
==>new_tmp( $parser, 'pmc' );
                    push @opcodes, new LocalDir( $parser,
                        'result' => $result2,
                    );
                    push @ <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12725	12908	
==>new_tmp( $parser, 'pmc' );
                    push @opcodes, new LocalDir( $parser,
                        'result' => $result2,
                    );
                    push @ <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8404	8555	
==>new_tmp( $parser, 'pmc' );
            push @opcodes, new LocalDir( $parser,
                'result' => $result2,
            );
            push @ <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17618	17753	
==>new_tmp( $parser, 'pmc' );
        push @opcodes, new LocalDir( $parser,
            'result' => $result2,
        );
        push @ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099188	1099308	
==>if (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100386	1100506	
==>if (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101584	1101704	
==>if (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102783	1102903	
==>if (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	166	258	
==>ex::Parse;
use Regex::TreeOptimize;
use Regex::Optimize;

use Regex::Rewrite;
use Regex::Code <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478870	478965	
==>ception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479762	479857	
==>ception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483733	483828	
==>ception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484732	484827	
==>ception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485731	485826	
==>ception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451164	451429	
==>JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inli <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451902	452167	
==>JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inli <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452641	452906	
==>JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inli <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453379	453644	
==>JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inli <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Compilers.pm	1085	1195	
==>Syntax Tree',
            'compilers/past' ),
        $self->new_group( 'POST', 'the Parrot/Punie Opcode Synt <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147327	147590	
==>ter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148268	148531	
==>ter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149208	149471	
==>ter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150149	150412	
==>ter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	531938	532160	
==>src/ops/math.ops\"\n  {{\@1}} = cosh((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340261	340550	
==>ctl(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341260	341549	
==>ctl(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342259	342548	
==>ctl(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343259	343548	
==>ctl(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13209	13316	
==>return $temp;
}

sub _op_do {
}

sub _op_delay {
}

#---- Section 6 ----

sub _op_not {
  my ($self,$node) = <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54166	54267	
==>e($code,$line);
			}
			elsif ($grammar =~ m/(?=$SKIPMK)/gco
				and do { ($code) = extract_codeblock( <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5489	5601	
==>ss $_->dfa_safe();
    }
    return 1;
}

# R|S
package Regex::Ops::Tree::alternate;

sub init {
    my ($self) = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072623	1072733	
==>{{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074808	1074918	
==>{{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076993	1077103	
==>{{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079179	1079289	
==>{{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323999	324293	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgn <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324791	325085	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgn <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325584	325878	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgn <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326374	326668	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgn <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327175	327469	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgn <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	223	332	
==>s =
  ( [ "scan(R)" => "scan for R at every position" ],
    [ "terminate()" ],
    [ "atend()" => "return whe <==
5	/Users/nnunley/parrot/languages/regex/test.pl	1897	2033	
==>(.*)/) {
        $pattern = $1;
    } elsif (/--optimize=(.*)/) {
        my $opts = $1;
        $tree_opt = ($opts =~ /t/i);
        $li <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584426	584518	
==>s\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585501	585593	
==>s\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597942	598034	
==>s\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598989	599081	
==>s\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324242	324512	
==>" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 38 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325034	325304	
==>" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 38 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325827	326097	
==>" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 38 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326617	326887	
==>" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 38 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327418	327688	
==>" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 38 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	339571	339837	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340569	340835	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341568	341834	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342567	342833	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	13954	14062	
==>ex, $name) = @_;

    local $Level = $Level + 1;
    $self->_regex_ok($this, $regex, '=~', $name);
}

sub unl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451630	451855	
==>ne 225 \"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452369	452594	
==>ne 225 \"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6843	6960	
==>to_unget, $self->get_token;
        
        last if $to_unget[-1]->is_end
            and $to_unget[-1]->tagname eq $ <==
5	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	6544	6656	
==>to_unget, $self->get_token;
          last if $to_unget[-1]->is_end
              and $to_unget[-1]->tagname eq $ <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	43462	43564	
==>escent grammars not yet implemented\n";
}

sub DESTROY {}  # SO AUTOLOADER IGNORES IT

# BUILDING A GRA <==
5	/Users/nnunley/parrot/tools/dev/nm.pl	3593	3687	
==>ure.
--objectname|-o	prepend the object name before the symbol name
--t		append the short BSD-s <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24820	24933	
==>_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_gene <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25831	25944	
==>_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_gene <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26719	26832	
==>_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_gene <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27729	27842	
==>_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_gene <==
5	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	12	101	
==>(C) 2001-2006, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Configure/Step.pm 20340 2006 <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27389	27514	
==>pcodes, new LabelOp( $parser,
        'arg1' => $l_break,
    );
    return \@opcodes;
}

sub BuildRepeat {
    my ( $p <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38989	39079	
==>\@1}} == EXCEPT_doomed)\n    _exit({{\@2}});\n  do_exception(interpreter, {{\@1}}, {{\@2}}) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39854	39944	
==>\@1}} == EXCEPT_doomed)\n    _exit({{\@2}});\n  do_exception(interpreter, {{\@1}}, {{\@2}}) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40701	40791	
==>\@1}} == EXCEPT_doomed)\n    _exit({{\@2}});\n  do_exception(interpreter, {{\@1}}, {{\@2}}) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41549	41639	
==>\@1}} == EXCEPT_doomed)\n    _exit({{\@2}});\n  do_exception(interpreter, {{\@1}}, {{\@2}}) <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	834	959	
==>' => 'User Dialogue Steps',
        'auto' => 'System Test Steps',
        'gen' => 'File Creation Steps',
    );
    
    for <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	25433	25536	
==>r =
	      new Parse::RecDescent::Directive('if (' .
		($self->{"commitonly"} ? '$commit' : '1') . 
		") <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843180	843268	
==>ODY" => "#line 45 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844058	844146	
==>ODY" => "#line 45 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844936	845024	
==>ODY" => "#line 45 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845815	845903	
==>ODY" => "#line 45 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@ <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	506	604	
==>ne:\n";
	$_=$_[0];
	s/^(.{1,50})(\S+)\s+(.*)/\t$1$2\n\t$3/;
	print;
	exit 1;
};

getopts('d', \%opt <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63156	63248	
==>epetition",$line,"$code$argcode($1)");

						!$matchrule and $rule and $rule->addcall($name) <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63877	63969	
==>epetition",$line,"$code$argcode($1)");

						!$matchrule and $rule and $rule->addcall($name) <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64593	64685	
==>epetition",$line,"$code$argcode($1)");

						!$matchrule and $rule and $rule->addcall($name) <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62519	62610	
==>epetition",$line,"$code$argcode($1)");

					!$matchrule and $rule and $rule->addcall($name) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908775	909072	
==>,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909671	909968	
==>,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910568	910865	
==>,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911465	911762	
==>,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17741	17834	
==>nst ('', 'set',[$list,$list.'[1]']);
  $self->_add_inst ('', 'branch',["NEXT_$label"]);
  # XX <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324024	324323	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "AR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324816	325115	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "AR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325609	325908	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "AR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326399	326698	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "AR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327200	327499	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "AR <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	18802	18902	
==>a->[1]{'start_line'},
          "'=begin' only takes one parameter, not several as in '=begin $conten <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579509	579602	
==>string( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(interpreter, enum_class_String);\n  VT <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580814	580907	
==>string( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(interpreter, enum_class_String);\n  VT <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582119	582212	
==>string( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(interpreter, enum_class_String);\n  VT <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583425	583518	
==>string( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(interpreter, enum_class_String);\n  VT <==
5	/Users/nnunley/parrot/config/auto/jit.pm	3971	4090	
==>et('execcapable')
            if defined $conf->options->get('execcapable');
        if ($execcapable) {
            $co <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72685	72778	
==>({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_cstring_free(name);\n  if (p == NU <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74287	74380	
==>({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_cstring_free(name);\n  if (p == NU <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75889	75982	
==>({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_cstring_free(name);\n  if (p == NU <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77492	77585	
==>({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_cstring_free(name);\n  if (p == NU <==
5	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	12735	12912	
==>point_size(),
  ;
}

###########################################################################
# Override these as necessary for further customization

sub font_table {
  retur <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73086	73175	
==>lass_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74688	74777	
==>lass_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76290	76379	
==>lass_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77893	77982	
==>lass_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519749	520076	
==>3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "F <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520604	520931	
==>3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "F <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	521459	521786	
==>3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "F <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522313	522640	
==>3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "F <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523168	523495	
==>3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "F <==
5	/Users/nnunley/parrot/config/auto/format.pm	422	528	
==>n = 'Figuring out what formats should be used for sprintf';

@args = ();

sub runstep
{
    my ($self, $con <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344419	344509	
==>ing_free(mode); */\n  /* string_cstring_free(path); */\n  if(!{{\@1}} || !PMC_struct_val({{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345661	345751	
==>ing_free(mode); */\n  /* string_cstring_free(path); */\n  if(!{{\@1}} || !PMC_struct_val({{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346903	346993	
==>ing_free(mode); */\n  /* string_cstring_free(path); */\n  if(!{{\@1}} || !PMC_struct_val({{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348146	348236	
==>ing_free(mode); */\n  /* string_cstring_free(path); */\n  if(!{{\@1}} || !PMC_struct_val({{ <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16157	16296	
==>if ( ref($idf) eq 'ARRAY' ) {
        $result = $idf->[0];
        push @opcodes, @{ $idf->[1] };
    }
    else {
        my $defn = $ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1548	1660	
==>st;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  my $dest_sym = $block->fin <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1506	1618	
==>st;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  my $dest_sym = $block->fin <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1428	1540	
==>st;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  my $dest_sym = $block->fin <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	1117	1226	
==>an be
generated later.

=cut

sub combineLabels {
    my $self = shift;
    my @names = map { $_->{label} =~ / <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4520	4617	
==>block = $self->current_block();
      my $ident = Jako::Construct::Expression::Value::Identifier-> <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	10766	10863	
==>block = $self->current_block();
      my $ident = Jako::Construct::Expression::Value::Identifier-> <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16180	16277	
==>block = $self->current_block();
      my $ident = Jako::Construct::Expression::Value::Identifier-> <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16951	17048	
==>block = $self->current_block();
      my $ident = Jako::Construct::Expression::Value::Identifier-> <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17756	17853	
==>block = $self->current_block();
      my $ident = Jako::Construct::Expression::Value::Identifier-> <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39054	39306	
==>rpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39919	40171	
==>rpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40766	41018	
==>rpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41614	41866	
==>rpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
5	/Users/nnunley/parrot/tools/build/pmc2c.pl	18059	18166	
==>e, $name, \%all);
        gen_super_meths($class, $vt, \%all);

        my $Dumper = Data::Dumper->new([$cla <==
5	/Users/nnunley/parrot/config/inter/lex.pm	1922	2045	
==>s to be
    # broken
    if ($ret == -1 and !$conf->options->get('ask')) {

        # fall back to default
        $self->se <==
5	/Users/nnunley/parrot/config/inter/make.pm	1796	1919	
==>s to be
    # broken
    if ($ret == -1 and !$conf->options->get('ask')) {

        # fall back to default
        $self->se <==
5	/Users/nnunley/parrot/config/inter/yacc.pm	1936	2059	
==>s to be
    # broken
    if ($ret == -1 and !$conf->options->get('ask')) {

        # fall back to default
        $self->se <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	49461	49577	
==>) + 2;
      } elsif($stack[-1] == length($3)) {
        # We found " >>>>", and it was exactly what we needed.  Comm <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1708	1803	
==>gen->output($list_regex->{code}, $ctx);
}

sub compile {
    my ($expr, $ctx, $pass_label, $fail <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021717	1021944	
==>r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022559	1022786	
==>r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023408	1023635	
==>r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024258	1024485	
==>r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	21090	21234	
==>opint -> haveTries_flag
#               if (haveTries_flag) goto R.back
#               goto lastback
#         next:
#
# R*? ->        pushindex <==
5	/Users/nnunley/parrot/lib/Parrot/Config.pm	12104	12263	
==>rpath_blib' => '',
             'setenv' => 1,
             'share_ext' => '.dylib',
             'shortsize' => 2,
             'slash' => '/',
             's <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858601	858692	
==>NEG_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interprete <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859605	859696	
==>NEG_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interprete <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860609	860700	
==>NEG_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interprete <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861614	861705	
==>NEG_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interprete <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597382	597524	
==>{
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAGS" => ":o <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598428	598570	
==>{
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAGS" => ":o <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599475	599617	
==>{
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAGS" => ":o <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600550	600692	
==>{
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAGS" => ":o <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	32875	32968	
==>the same as deleting the first
quote-like pattern. For instance, if C<$text> contained the str <==
5	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2174	2302	
==>I'     =>  "</i>",
  'F'      =>  "<em$Computerese>",     '/F'     =>  "</em>",
  'C'      =>  "<code$Computerese>",   '/C'     = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377546	377633	
==>432 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(interpreter, {{\@2}}, {{\@3 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378430	378517	
==>432 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(interpreter, {{\@2}}, {{\@3 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379314	379401	
==>432 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(interpreter, {{\@2}}, {{\@3 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380199	380286	
==>432 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(interpreter, {{\@2}}, {{\@3 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39073	39325	
==>{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39938	40190	
==>{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40785	41037	
==>{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41633	41885	
==>{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUM <==
5	/Users/nnunley/parrot/lib/Pod/Escapes.pm	1613	1732	
==>h we'll
        #  now go get the local equivalent for.
    }

    # It's numeric, whether by origin or by mutation from <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21850	21956	
==>d, $left, $op, $right);

      if ($self->get(1)->is_if or $self->get(1)->is_unless) {
        $cond = $sel <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22783	22889	
==>d, $left, $op, $right);

      if ($self->get(1)->is_if or $self->get(1)->is_unless) {
        $cond = $sel <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24430	24536	
==>d, $left, $op, $right);

      if ($self->get(1)->is_if or $self->get(1)->is_unless) {
        $cond = $sel <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7961	8067	
==>safe to consider the previous paragraph as done.
          DEBUG > 1 and print "Starting verbatim para at l <==
5	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	10089	10184	
==>esting of those features. For more information see the FUTURE PLANS
section of this document.

= <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875068	875236	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876086	876254	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877104	877272	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878123	878291	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	21751	21855	
==>= "    if cur_ic < 0x$r2[0]->{'code'} goto INS_BRANCH_$prefix$r1[$#r1]->{'code'}\n";

        # Recurse t <==
5	/Users/nnunley/parrot/config/auto/bc.pm	936	1069	
==>y %bc_does_not_hang = (
        linux   => 1,
        MSWin32 => 1,
    );

    if ($bc_does_not_hang{$osname}) {

        # This seem <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2398	2492	
==>ple::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rig <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1668	1762	
==>ple::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rig <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2835	2929	
==>ple::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rig <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1955	2049	
==>ple::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rig <==
5	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	412	534	
==>language_test_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    output_isnt       => 'isnt_eq' <==
5	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	751	873	
==>language_test_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    output_isnt       => 'isnt_eq' <==
5	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	759	881	
==>language_test_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    output_isnt       => 'isnt_eq' <==
5	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	326	448	
==>language_test_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    output_isnt       => 'isnt_eq' <==
5	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	497	604	
==>language_test_map = (
    output_is   => 'is_eq',
    output_like => 'like',
    output_isnt => 'isnt_eq' <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1722	1828	
==>y
PIR
}

# Post translation hook.
sub post_translation() {
	# Nothing to do.
	return "";
}

# Extra subrout <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72596	72682	
==>ng_to_cstring(interpreter, ({{\@3}}));\n\n  funcptr_t p = D2FPTR(Parrot_dlsym(PMC_IS_NU <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74198	74284	
==>ng_to_cstring(interpreter, ({{\@3}}));\n\n  funcptr_t p = D2FPTR(Parrot_dlsym(PMC_IS_NU <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75800	75886	
==>ng_to_cstring(interpreter, ({{\@3}}));\n\n  funcptr_t p = D2FPTR(Parrot_dlsym(PMC_IS_NU <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77403	77489	
==>ng_to_cstring(interpreter, ({{\@3}}));\n\n  funcptr_t p = D2FPTR(Parrot_dlsym(PMC_IS_NU <==
5	/Users/nnunley/parrot/tools/dev/parrotbench.pl	1637	1775	
==>nchmark parrotj]
    exe       = ../../parrot -j
    type      = .pasm
    type      = .pir

    [benchmark perl_585_th]
    exe       = /u <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	363	472	
==>ompiler;

use base qw(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($com <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	383	492	
==>ompiler;

use base qw(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($com <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	363	472	
==>ompiler;

use base qw(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($com <==
5	/Users/nnunley/parrot/tools/build/pbc2c.pl	2221	2326	
==>including the possible targets of ret
    # opcodes
    while ($offset + sizeof('op') <= $length) {
	my ($ <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	123	222	
==>P6C;

use strict;
use Carp qw(confess);
use Regex::Ops::Tree;
use P6C::Util qw(is_string);

sub op { <==
5	/Users/nnunley/parrot/tools/build/dynclasses.pl	6513	6635	
==>turn 1;
    for my $source (@sources) {
        return 1 if modtime($source) > $target_mod;
    }

    return 0;
}

sub gen <==
5	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4933	5055	
==>turn 1;
    for my $source (@sources) {
        return 1 if modtime($source) > $target_mod;
    }

    return 0;
}

sub gen <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	6724	6846	
==>turn 1;
    for my $source (@sources) {
        return 1 if modtime($source) > $target_mod;
    }

    return 0;
}

sub gen <==
5	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	2471	2589	
==>};
}

=item C<name()>

Returns the name part of the path.

=cut

sub name
{
    my $self = shift;
    
    return $self <==
5	/Users/nnunley/parrot/config/auto/gmp.pm	1261	1372	
==>ame =~ /darwin/) {
        if (-f "/sw/include/gmp.h") {
            $conf->data->add(' ', linkflags => '-L/sw/l <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477181	477455	
==>{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478077	478351	
==>{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478968	479242	
==>{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479860	480134	
==>{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
5	/Users/nnunley/parrot/lib/Class/Struct.pm	1023	1123	
==>bit silly:
	# do we ever export anything else than 'struct'...?
      $self->export_to_level( 1, $sel <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563093	563400	
==>", {{\@3}});\n  }\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	15450	15580	
==>r_block->kind eq 'module') {
        # DO NOTHING
      }

      #
      # If there is any other kind of block, we have an internal <==
5	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	324	406	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub _handle_ele <==
5	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	321	403	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub _handle_ele <==
5	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	577	659	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub _handle_ele <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059536	1059799	
==>RROT_JUMP_ENEXT",
                  "NAME" => "find_name",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "f <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060440	1060703	
==>RROT_JUMP_ENEXT",
                  "NAME" => "find_name",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "f <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	395	501	
==>nstruct::Statement);

sub new
{
  my $class = shift;
  my ($block, $ident) = @_;

  confess("Block (" . ref <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	395	501	
==>nstruct::Statement);

sub new
{
  my $class = shift;
  my ($block, $ident) = @_;

  confess("Block (" . ref <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	13616	13715	
==>p => ++$selectcounter, incase => 0 });
	my @a=EXPRESSION();
	print CODE<<SELECTSTART;
	# Select case <==
5	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	17919	18030	
==>>

=item C<version()>

Sets/gets the version number.

=cut

sub version
{
    my $self = shift;

    if (@_ == 1 <==
5	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10955	11058	
==>.\n" if $DEBUG;
    open (IN, "<$infile") or die "Can't read $infile: $!\n";
    open (OUT, ">$outfile") <==
5	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11439	11542	
==>.\n" if $DEBUG;
    open (IN, "<$infile") or die "Can't read $infile: $!\n";
    open (OUT, ">$outfile") <==
5	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11903	12006	
==>.\n" if $DEBUG;
    open (IN, "<$infile") or die "Can't read $infile: $!\n";
    open (OUT, ">$outfile") <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	184	273	
==>/jako/lib/Jako/Construct/Block/File.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use st <==
5	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	1634	1769	
==>Y) or
        die "Can't open $file for reading: $!\n";
    my $section = 'MAIN';

    while(<$fh>) {

        chomp;

        next if / <==
5	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11233	11345	
==>.
    do_filter(sub { /^(call|branch)/ } );

    print OUT "</pre>";
    print OUT page_footer();

    close(OUT) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72959	73062	
==>reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74561	74664	
==>reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76163	76266	
==>reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77766	77869	
==>reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_ <==
5	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11394	11486	
==>ext0 Normal;}
{\*\cs10 \additive Default Paragraph Font;}
{\*\cs16 \additive \i \sbasedon10 p <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25351	25436	
==>nt = CONTEXT(interpreter->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->current_c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557924	558009	
==>nt = CONTEXT(interpreter->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->current_c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559308	559393	
==>nt = CONTEXT(interpreter->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->current_c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560680	560765	
==>nt = CONTEXT(interpreter->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->current_c <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7266	7385	
==>unt'};
        
        $self->_ponder_paragraph_buffer();
         # by now it's safe to consider the previous paragrap <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7884	7998	
==>unt'};
          $self->_ponder_paragraph_buffer();
           # by now it's safe to consider the previous paragrap <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	8241	8351	
==>unt'};
        $self->_ponder_paragraph_buffer();
         # by now it's safe to consider the previous paragrap <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	5920	6026	
==>unt'};
      $self->_ponder_paragraph_buffer();
       # by now it's safe to consider the previous paragrap <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	152	239	
==>terpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Statement.pm 19606 2006-05 <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	256	351	
==>:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block::Cond <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	254	349	
==>:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block::Cond <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	250	345	
==>:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block::Cond <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	258	353	
==>:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block::Cond <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18173	18261	
==>te_label();
	push @{$code{$seg}->{code}}, "\tgoto $labels{$syms[CURR]}\t# Goto $syms[CURR <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6831	6943	
==>$syms[CURR]}) {
	#	# Assignment statement
	#	my $var=$syms[CURR];
	#	feedme;  # Get the =
	#	#print "Going to exp <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22489	22601	
==>->_add_inst(''           ,'mod'   ,[$temp_0,$temp_0,$temp_1]);
  $self->_add_inst(''           ,'eq'    ,[$temp_0 <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22990	23102	
==>->_add_inst(''           ,'mod'   ,[$temp_0,$temp_0,$temp_1]);
  $self->_add_inst(''           ,'eq'    ,[$temp_0 <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2422	2518	
==>type = $right->type;
  }

  $self->INTERNAL_ERROR("No type for dest!")  unless defined $dest_type <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2344	2440	
==>type = $right->type;
  }

  $self->INTERNAL_ERROR("No type for dest!")  unless defined $dest_type <==
5	/Users/nnunley/parrot/tools/dev/nm.pl	6141	6243	
==>wn\n"
    if defined $Type && $Type ne '' && !exists $Type{$Type};

my $TypeLong = defined $Type && $Ty <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858610	858702	
==>T, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859614	859706	
==>T, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860618	860710	
==>T, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861623	861715	
==>T, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697410	697859	
==>",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 783,
                  "ARGS" => [
                              "ic",
                              "i",
                              "ic",
                              "p"
                            ],
                  "BODY" => <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	4104	4232	
==>> "return_data = ",
       c => "return_data = ",
       s => "return_data = ",
       f => "return_data = ",
       d => "return <==
5	/Users/nnunley/parrot/tools/build/dynclasses.pl	1989	2087	
==>sers/nnunley/parrot/include' . $PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parro <==
5	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2285	2383	
==>sers/nnunley/parrot/include' . $PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parro <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	2080	2178	
==>sers/nnunley/parrot/include' . $PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parro <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380330	380635	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381341	381646	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382353	382658	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383365	383670	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384378	384683	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io", <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15489	15589	
==>xpr);
		@expr=fixup(@expr);		# Repair unary -, functions, etc...
		@stream=convert_to_rpn(@expr);	# G <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15851	15951	
==>xpr);
		@expr=fixup(@expr);		# Repair unary -, functions, etc...
		@stream=convert_to_rpn(@expr);	# G <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16378	16478	
==>xpr);
		@expr=fixup(@expr);		# Repair unary -, functions, etc...
		@stream=convert_to_rpn(@expr);	# G <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	17002	17102	
==>xpr);
		@expr=fixup(@expr);		# Repair unary -, functions, etc...
		@stream=convert_to_rpn(@expr);	# G <==
5	/Users/nnunley/parrot/tools/dev/parrot_api.pl	4107	4202	
==>less defined $Obj;
$Obj = 'blib/lib/libparrot.a' unless defined $Obj;
die "$0: '$Obj': No such f <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763183	763397	
==>ut of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764036	764250	
==>ut of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764889	765103	
==>ut of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765743	765957	
==>ut of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	11859	11968	
==>$self, $line, $uncommit, $error) = @_;
	my $class = ref($self) || $self;

	bless
	{
		"items"    => [],
		"unc <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2795	2930	
==>ymbol}\[$op->{arg2}->{symbol}\]\n";
    }

    sub visitKeyedSetOp {
        my $self = shift;
        my ($op) = @_;
        my $ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344254	344345	
==>nterpreter, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345496	345587	
==>nterpreter, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346738	346829	
==>nterpreter, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347981	348072	
==>nterpreter, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18923	19026	
==>$temp_1,"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19411	19514	
==>$temp_1,"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19899	20002	
==>$temp_1,"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20388	20491	
==>$temp_1,"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20877	20980	
==>$temp_1,"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $ <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	13642	13758	
==>nt .= $token->text;
        # and keep looking
        
      } elsif( $token->is_end and $content_containers{ $token <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067095	1067207	
==>le (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    tem <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068281	1068393	
==>le (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    tem <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069467	1069579	
==>le (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    tem <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070654	1070766	
==>le (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    tem <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614794	614896	
==>"BODY" => "#line 508 \"src/ops/object.ops\"\n    opcode_t *next = {{^+4}};\n    INTVAL offset;\n    off <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615945	616047	
==>"BODY" => "#line 508 \"src/ops/object.ops\"\n    opcode_t *next = {{^+4}};\n    INTVAL offset;\n    off <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	35925	36020	
==>f the test died, even after
having successfully completed all its tests, it will still be
consid <==
5	/Users/nnunley/parrot/lib/Test/More.pm	33996	34091	
==>f the test died, even after
having successfully completed all its tests, it will still be
consid <==
5	/Users/nnunley/parrot/lib/Test/Simple.pm	2791	2886	
==>f the test died, even after
having successfully completed all its tests, it will still be
consid <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757939	758297	
==>=> [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 855,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 276 \"src <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848287	848542	
==>eter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849067	849322	
==>eter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853396	853651	
==>eter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854178	854433	
==>eter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
5	/Users/nnunley/parrot/languages/dotnet/Configure.pl	3040	3218	
==>ranslate each library.
        my @libs = qw/
            mscorlib
            System
            Accessibility
            I18N.CJK
            I18N.MidEast
            I1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858553	858650	
==>n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat with negative arg\");\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859557	859654	
==>n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat with negative arg\");\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860561	860658	
==>n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat with negative arg\");\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861566	861663	
==>n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat with negative arg\");\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556110	556529	
==>e",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 638,
                  "ARGS" => [
                              "p",
                              "p",
                              "p"
                            ] <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13809	13912	
==>t_name> is the name of the output file we are
generating.

=cut

sub body
{
    my ($self, $method, $lin <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29592	29695	
==>t_name> is the name of the output file we are
generating.

=cut

sub body
{
    my ($self, $method, $lin <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30234	30337	
==>t_name> is the name of the output file we are
generating.

=cut

sub body
{
    my ($self, $method, $lin <==
5	/Users/nnunley/parrot/lib/Test/More.pm	8461	8557	
==>oklyn{tree}, 1, 'A tree grows in Brooklyn' );

This does not check if C<exists $brooklyn{tree}> i <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	10459	10570	
==>"$dir->{arg1}->{symbol}\", $dir->{arg1}->{symbol}\n";
    }

    sub visitConstDir {
        my $self  = shi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071780	1071881	
==>ODY" => "#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? - <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073965	1074066	
==>ODY" => "#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? - <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076150	1076251	
==>ODY" => "#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? - <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078336	1078437	
==>ODY" => "#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? - <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296978	297093	
==>"#line 970 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 0 : 1;\n  {{+=4}};\n",
                  "LABELS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297834	297949	
==>"#line 970 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 0 : 1;\n  {{+=4}};\n",
                  "LABELS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298690	298805	
==>"#line 970 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 0 : 1;\n  {{+=4}};\n",
                  "LABELS" <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48649	48758	
==>gco)
					{ }
				elsif ($grammar =~ m/$BADREP/gco)
				{
					_parse("an invalid repetition specifier", 0,$li <==
5	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	712	806	
==>ss a third option to the C<use> line.
C<arguments> should be an array reference containing addi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849896	850152	
==>= string_chopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850783	851039	
==>= string_chopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851670	851926	
==>= string_chopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852558	852814	
==>= string_chopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
5	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	1684	1783	
==>chick peas or garbanzo beans, drained and rinsed
 * juice of one smallish lime
 * a dash of balsamic <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476498	476782	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477393	477677	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478289	478573	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479180	479464	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	2716	2820	
==>lf], [qw(self)]);

		print OUT "}";

		close OUT
			or croak("Can't write to new module file '$modulefile <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766577	766700	
==>n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767430	767553	
==>n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768283	768406	
==>n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769137	769260	
==>n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABE <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	572	678	
==>opcodes = ();
    unless ( $parser->YYData->{_G} ) {
        $parser->YYData->{_G} = new_tmp( $parser, 'p <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24405	24510	
==>ildren==1) {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $te <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25294	25399	
==>ildren==1) {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $te <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26304	26409	
==>ildren==1) {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $te <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27194	27299	
==>ildren==1) {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $te <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4210	4305	
==>Checker>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserv <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926130	926249	
==>INTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->str <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927600	927719	
==>INTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->str <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929070	929189	
==>INTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->str <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930541	930660	
==>INTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->str <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	3657	3756	
==>name, $rule, $ctx, $instructions) = @_;
    print $fh join("\n", @$instructions), "\n";
}

sub outpu <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404701	404989	
==>){{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405613	405901	
==>){{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406525	406813	
==>){{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407438	407726	
==>){{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	49728	49840	
==>e saw " >>>>" but needed only " >>".  Back pos up.
        DEBUG > 4 and print " And that's more than we needed t <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	3521	3626	
==>";
    ($label = $label->{label}) =~ s/^@//; # FIXME: local labels?
    return "$label:\n$comment";
}

sub <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747276	747359	
==>c/ops/set.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748061	748144	
==>c/ops/set.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753570	753653	
==>c/ops/set.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754358	754441	
==>c/ops/set.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050112	1050208	
==>ODY" => "#line 172 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_excep <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051146	1051242	
==>ODY" => "#line 172 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_excep <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052180	1052276	
==>ODY" => "#line 172 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_excep <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053215	1053311	
==>ODY" => "#line 172 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_excep <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	220	313	
==>NOPSIS

	use Parrot::Docs::Libs;

=head1 DESCRIPTION

A documentation section describing libra <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067209	1067491	
==>3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068395	1068677	
==>3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069581	1069863	
==>3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070768	1071050	
==>3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tests.pm	336	431	
==>ead2 Class Methods

=over

=cut

package Parrot::Docs::Section::Tests;

use strict;
use warnings <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655855	656173	
==>P" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656778	657096	
==>P" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657702	658020	
==>P" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658620	658938	
==>P" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	25232	25343	
==>ing to entend.\n";
      $self->whine(
        $para->[1]{'start_line'},
        "You can extend only formatting <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11757	11855	
==>a$+b$
print c$

' String function, whoa
function a$
	a$="Whoa"
end function
print a$

' String refe <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332458	332549	
==>3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333736	333827	
==>3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335014	335105	
==>3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336293	336384	
==>3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1} <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3408	3515	
==>code{$seg};
	if (! $debug) {
		print CODE ".end\t# outer segment\n";
		next;
	}
	print CODE<<EOD;
	.sub ${se <==
5	/Users/nnunley/parrot/lib/Class/Struct.pm	18587	18693	
==>ctor.

    Changed to two-argument blessing in ctor to support
    derivation from created classes.

    Ad <==
5	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	487	586	
==>lf, $element_name, $attr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBUG and prin <==
5	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	486	585	
==>lf, $element_name, $attr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBUG and prin <==
5	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	681	780	
==>lf, $element_name, $attr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBUG and prin <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858679	858934	
==>eat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859683	859938	
==>eat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860687	860942	
==>eat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861692	861947	
==>eat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3878	3970	
==>alidity of Pod.
It works by basically acting like a simple-minded version of
L<Pod::Simple::T <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1348	1464	
==>ht { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $bloc <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1696	1812	
==>ht { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $bloc <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1832	1948	
==>ht { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $bloc <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1475	1591	
==>ht { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $bloc <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629422	629511	
==>= pmc_type(interpreter, class);\n    if (!type) {\n\tParrot_autoload_class(interpreter, cl <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	31437	31563	
==>{
	my $pc = pop @loops;
	print <<EOC;
	# $pc  $cmt
	clear_eh
EOC
    }
    else {
	print <<EOC;
	\t\t$cmt
EOC
    }
}

sub BREA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950526	950615	
==>G *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_charset(inte <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951486	951575	
==>G *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_charset(inte <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952446	952535	
==>G *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_charset(inte <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953407	953496	
==>G *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_charset(inte <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554284	554538	
==>nvoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555681	555935	
==>nvoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556918	557172	
==>nvoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	15688	15839	
==>$peer_block->kind);
      }

      next;
    }

    #
    # Arithmetic Operators:
    #
    #   <var> = <value> <op> <value>;
    #
    # TODO: Can't re <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	27629	27735	
==>////////////////

      # TODO: fire off </item-number> or </item-bullet> or </item-text> ??

      my $con <==
5	/Users/nnunley/parrot/config/init/hints/linux.pm	1643	1785	
==>nk,
        rpath          => '-Wl,-rpath=',

        has_dynamic_linking     => 1,
        parrot_is_shared        => 1,
        libparrot_sha <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858604	858697	
==>_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859608	859701	
==>_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860612	860705	
==>_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861617	861710	
==>_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917811	918075	
==>GS" => [
                              "i",
                              "sc",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451115	451324	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451853	452062	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452592	452801	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453330	453539	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104448	104806	
==>RGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 130,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 1 <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24333	24434	
==>$num_children==0) {
    $return = $self->_constant(0);
  } elsif($num_children==1) {
    $return = $se <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25222	25323	
==>$num_children==0) {
    $return = $self->_constant(0);
  } elsif($num_children==1) {
    $return = $se <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26232	26333	
==>$num_children==0) {
    $return = $self->_constant(0);
  } elsif($num_children==1) {
    $return = $se <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27122	27223	
==>$num_children==0) {
    $return = $self->_constant(0);
  } elsif($num_children==1) {
    $return = $se <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90390	90812	
==>" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 112,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#lin <==
5	/Users/nnunley/parrot/tools/build/jit2c.pl	11920	12056	
==>r$2$4$5_op";
            $extern = vtable_num($3);
            #print $op->full_name .": $jit_func $extern\n";
        }
        # *) $X- <==
5	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	2695	2808	
==>sub addfile {
  	my ($self,$fh) = @_;
	if (!ref($fh) && ref(\$fh) ne "GLOB") {
	    require Symbol;
	    $fh = Sym <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27508	27609	
==>leftmost($self) ? ''
				: $self->describe ) . '};
		' . ($self->{"lookahead"} ? '$_savetext = $text;' <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29618	29719	
==>leftmost($self) ? ''
				: $self->describe ) . '};
		' . ($self->{"lookahead"} ? '$_savetext = $text;' <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31715	31816	
==>leftmost($self) ? ''
				: $self->describe ) . '};
		' . ($self->{"lookahead"} ? '$_savetext = $text;' <==
5	/Users/nnunley/parrot/config/gen/platform.pm	5614	5737	
==>f (-e $asm_file) {
            copy_if_diff($asm_file, "src/platform_asm.s");
        }
    }

    # interface is the same f <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374010	374097	
==>ine 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374893	374980	
==>ine 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375776	375863	
==>ine 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376660	376747	
==>ine 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{ <==
5	/Users/nnunley/parrot/config/auto/gmp.pm	1411	1536	
==>, ldflags   => '-L/sw/lib');
            $conf->data->add(' ', ccflags   => '-I/sw/include');
        }
    }

    cc_gen('con <==
5	/Users/nnunley/parrot/config/auto/readline.pm	1500	1625	
==>, ldflags   => '-L/sw/lib');
            $conf->data->add(' ', ccflags   => '-I/sw/include');
        }
    }

    cc_gen('con <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22746	22854	
==>);
  return $return;
}

sub _op_even_p {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym( <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6054	6150	
==>been
	# propogated there already.
	$pir .= <<'PIR';
if 0x${CURIC} == 0x45 goto POST_BRANCH_switch <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3992	4088	
==>been
	# propogated there already.
	$pir .= <<'PIR';
if 0x${CURIC} == 0x45 goto POST_BRANCH_switch <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	17304	17413	
==>o a function that can call it. */
void *
build_call_func(Interp *interpreter, PMC *pmc_nci,
                ST <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25349	25433	
==>cont = CONTEXT(interpreter->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->curren <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557922	558006	
==>cont = CONTEXT(interpreter->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->curren <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559306	559390	
==>cont = CONTEXT(interpreter->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->curren <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560678	560762	
==>cont = CONTEXT(interpreter->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->curren <==
5	/Users/nnunley/parrot/config/gen/makefiles.pm	3421	3607	
==>kefile',
        commentType                     => '#',
        replace_slashes                 => 1,
        conditioned_lines               => 1
    );
    genfile(
        'languages/ <==
5	/Users/nnunley/parrot/config/gen/makefiles.pm	7007	7190	
==>kefile',
        commentType                    => '#',
        replace_slashes                => 1,
        conditioned_lines              => 1
    );
    genfile(
        'languages/ <==
5	/Users/nnunley/parrot/config/gen/makefiles.pm	7231	7414	
==>kefile',
        commentType                    => '#',
        replace_slashes                => 1,
        conditioned_lines              => 1
    );
    genfile(
        'languages/ <==
5	/Users/nnunley/parrot/config/gen/makefiles.pm	5003	5183	
==>kefile',
        commentType                   => '#',
        replace_slashes               => 1,
        conditioned_lines             => 1
    );
    genfile(
        'languages/ <==
5	/Users/nnunley/parrot/config/gen/makefiles.pm	5236	5416	
==>kefile',
        commentType                   => '#',
        replace_slashes               => 1,
        conditioned_lines             => 1
    );
    genfile(
        'languages/ <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35243	35358	
==>]},
					  
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{"name"} .'})
						if defined $::RD_T <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42375	42482	
==>]},
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{"name"} .'})
						if defined $::RD_T <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33847	33952	
==>]},
				  Parse::RecDescent::_tracefirst($text),
				  q{' . $rule->{"name"} . '})
					if defined $::RD_T <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37405	37510	
==>]},
				  Parse::RecDescent::_tracefirst($text),
				  q{' . $rule->{"name"} . '})
					if defined $::RD_T <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39808	39913	
==>]},
				  Parse::RecDescent::_tracefirst($text),
				  q{' . $rule->{"name"} . '})
					if defined $::RD_T <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981794	982087	
==>" => [
                              "i",
                              "i",
                              "s",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849985	850289	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_cor <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850872	851176	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_cor <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851759	852063	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_cor <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	35625	35751	
==>k;
    print <<EOC;
	\t $cmt XXX
EOC
}
sub IMPORT_FROM {
    my ($n, $c, $cmt) = @_;
    print <<EOC;
	\t $cmt XXX
EOC
    # pu <==
5	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	1045	1143	
==>fore files are
filtered. So one can skip, say a binary file, but still have it listed
in the output <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813497	813728	
==>"JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814122	814353	
==>"JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814744	814975	
==>"JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	815372	815603	
==>"JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline" <==
5	/Users/nnunley/parrot/config/gen/platform.pm	4656	4774	
==>f (-e $impl_file) {
            local $/ = undef;
            print("\t$impl_file\n") if defined $verbose && $verbose = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712699	712791	
==>ring(interpreter, \"e\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713806	713898	
==>ring(interpreter, \"e\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720166	720258	
==>ring(interpreter, \"e\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721366	721458	
==>ring(interpreter, \"e\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace( <==
5	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	946	1037	
==>lf->{parrot} $args languages/punie/punie.pbc $lang_f";

    $exit_code = Parrot::Test::run_c <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	31796	31911	
==>tively!  Whee!

  while($treelet = shift @stack) {
    for(my $i = 2; $i < @$treelet; ++$i) {
      # iterate over c <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3510	3615	
==>erface) subs:
  #

  else {
#    $self->DEBUG(0, "Calling '%s' as regular sub (props = %s)...", $name, joi <==
5	/Users/nnunley/parrot/languages/regex/test.pl	3293	3392	
==>my $driver = Regex::Driver->new('pir', emit_main => 1);

    print PIR <<"END";
# Regular expression <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11230	11321	
==>ype_short"]
${DEST0} = concat ${STEMP0}
inc stack_depth
${STEMP0} = stack_depth
${DEST0} = c <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8416	8507	
==>ype_short"]
${DEST0} = concat ${STEMP0}
inc stack_depth
${STEMP0} = stack_depth
${DEST0} = c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450989	451277	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451727	452015	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452466	452754	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453204	453492	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453943	454231	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	1497	1604	
==>g slash.
    $parent_path = File::Spec->canonpath($parent_path);
    
    # If we are root then the above wi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712581	712672	
==>x(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713688	713779	
==>x(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720048	720139	
==>x(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721248	721339	
==>x(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(i <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24860	24970	
==>p;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_generate($node->{children}[$_]);
      $s <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25871	25981	
==>p;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_generate($node->{children}[$_]);
      $s <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26759	26869	
==>p;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_generate($node->{children}[$_]);
      $s <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27769	27879	
==>p;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_generate($node->{children}[$_]);
      $s <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37993	38099	
==>lass.
	else {
		die "Do not know how to handle class $rule->{'class'}\n";
	}

	# Finally, emit code to go t <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714638	714736	
==>terpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715561	715659	
==>terpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722325	722423	
==>terpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723354	723452	
==>terpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631270	631479	
==>ARGS" => [
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 81 \"src/ops/pmc.ops\"\n    PMC *class = {{\@2}};\n    INTVAL t <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2355	2466	
==>claration on line %d of file '%s'.",
      $self->name, $sym->line, $sym->file);
  }

  #
  # Now that we've dec <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2102	2213	
==>claration on line %d of file '%s'.",
      $self->name, $sym->line, $sym->file);
  }

  #
  # Now that we've dec <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16341	16438	
==>eft  = Jako::Construct::Expression::Value->new($block, $self->forth);
      my $op    = $self->for <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17112	17209	
==>eft  = Jako::Construct::Expression::Value->new($block, $self->forth);
      my $op    = $self->for <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17917	18014	
==>eft  = Jako::Construct::Expression::Value->new($block, $self->forth);
      my $op    = $self->for <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324179	324466	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324971	325258	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325764	326051	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326554	326841	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327355	327642	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579639	579749	
==>name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}};\n",
                  "LA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580944	581054	
==>name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}};\n",
                  "LA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582249	582359	
==>name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}};\n",
                  "LA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583555	583665	
==>name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}};\n",
                  "LA <==
5	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5817	5910	
==>EDITS

The L</runsteps()> method is largely based on code written by Brent
Royal-Gordon C<bren <==
5	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	7818	7985	
==>t
                $line =~ s/^\s*a_$name\s*$//m or $line =~ s/a_$name/temp/;
            }
        }
        
        # $R
        $line =~ s/\$R\b/\$P%1/g;

        $c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712577	712668	
==>index(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_ind <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713684	713775	
==>index(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_ind <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720044	720135	
==>index(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_ind <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721244	721335	
==>index(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_ind <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450942	451237	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451680	451975	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452419	452714	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453157	453452	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453896	454191	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882020	882382	
==>ase_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 999,
                  "ARGS" => [
                              "s" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672293	672619	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673065	673391	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673835	674161	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	674606	674932	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	3709	4146	
==>ack!")
    if scalar($self->blocks) == 1;

  return pop @{$self->{BLOCKS}};
}


###############################################################################
###############################################################################
##
## MAIN PROGRAM
##
###############################################################################
###############################################################################


#
# Tokenize t <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6245	6354	
==>match>{"$n"}->[1] = undef; # delete group $n!;
}

sub output_atend {
    my ($self, $failLabel) = @_;
    my $ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544208	544307	
==>@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = a, saved_var2 = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545544	545643	
==>@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = a, saved_var2 = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546880	546979	
==>@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = a, saved_var2 = <==
5	/Users/nnunley/parrot/tools/dev/parrotbench.pl	6151	6251	
==>ec->devnull) or die "Unable to redirect STDOUT";
select COPYOUT;
$| = 1;

my @max = $cfg{method} == 1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950545	950631	
==>g_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951505	951591	
==>g_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952465	952551	
==>g_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953426	953512	
==>g_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344536	344791	
==>mc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345778	346033	
==>mc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347020	347275	
==>mc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348263	348518	
==>mc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
5	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	1045	1244	
==>oc
    parrot-config                                   [main]bin
    docs/BROKEN.pod                                 [devel]doc
    docs/ROADMAP.pod                                [devel]doc
    docs/ <==
5	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	15325	15435	
==>lt = new 'APLVector'
    # Loop through each vector, doing the ops.
    .local pmc iter1, iter2
    iter1 = new <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293429	293539	
==>ps/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294305	294415	
==>ps/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295181	295291	
==>ps/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  " <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13374	13467	
==>rate(_get_arg($node,1));
  $self->_add_inst('','not',[$return,$return]);

  $return;
}

sub _o <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	58217	58335	
==>ncountered: \"$code\"",
					       $line);
					_hint("Did you misspell \"$code\"
						   or forget to comment it out <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908767	909066	
==>MP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909663	909962	
==>MP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910560	910859	
==>MP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911457	911756	
==>MP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
5	/Users/nnunley/parrot/config/auto/gcc.pm	4852	4992	
==>opt; # Ignore blank lines

            if ($opt =~ /-mno-accumulate-outgoing-args/) {
                use Config;
                if ($Config <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27588	27689	
==>else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{'name'} <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30055	30156	
==>else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{'name'} <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33473	33574	
==>else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{'name'} <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34727	34828	
==>else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{'name'} <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37137	37238	
==>else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{'name'} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263576	263916	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259222	259531	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568473	568780	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569365	569672	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570258	570565	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501013	501267	
==>ath.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501752	502006	
==>ath.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502490	502744	
==>ath.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503229	503483	
==>ath.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
5	/Users/nnunley/parrot/examples/benchmarks/addit.pl	414	517	
==>00 times in a loop and
prints the result (21001097.97).

=cut

use strict;
sub varargs_adder {
    my $s <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	6295	6414	
==>$max;
}

sub startset {
    my $op = shift;
    my %start;
    foreach (@{ $op->{args} }) {
        @start{$_->startset( <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42790	42886	
==>_nextnamespace()
{
	return "Parse::RecDescent::" . $nextnamespace++;
}

sub new ($$)
{
	my $class <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	6368	6458	
==>OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTra <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4584	4674	
==>OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTra <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4561	4651	
==>OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTra <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3945	4035	
==>OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTra <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492786	493038	
==>_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493547	493799	
==>_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499521	499773	
==>_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500284	500536	
==>_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
5	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	14908	15003	
==>y way
to test them. So we will implement the Test::More function is_deeply.
The plan currently i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053766	1054082	
==>_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1177,
                  "A <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344457	344550	
==>g_free(path); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345699	345792	
==>g_free(path); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346941	347034	
==>g_free(path); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348184	348277	
==>g_free(path); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpre <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	33495	33615	
==>Tests} = $self->{Curr_Test};
        }

        # Auto-extended arrays and elements which aren't explicitly
        # fil <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579268	579360	
==>s/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  op <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580573	580665	
==>s/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  op <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581878	581970	
==>s/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  op <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583184	583276	
==>s/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  op <==
5	/Users/nnunley/parrot/tools/build/ops2c.pl	7825	7938	
==>le;
    print SOURCE <<END_C;
        NULL
    };
END_C
    print SOURCE $trans->run_core_after_addr_table($bs);
} <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	709	800	
==>"  unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type (" . ref($type <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	584	674	
==>" unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type (" . ref($type <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	593	682	
==>" unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type (". ref($type <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	575	664	
==>" unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type (". ref($type <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	1305	1402	
==>lementation should be overridden by the host language,
# because it's not a very good one.
sub new <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72661	72748	
==>Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_cstr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74263	74350	
==>Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_cstr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75865	75952	
==>Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_cstr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77468	77555	
==>Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_cstr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356061	356319	
==>}\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359454	359712	
==>}\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360202	360460	
==>}\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  " <==
5	/Users/nnunley/parrot/languages/perms.pl	583	696	
==>, \@things);

while (my $i = $it->()) {
  print $i."\n"
    if length($i) >= 2;
}

__END__
    for my $i (@{ $thin <==
5	/Users/nnunley/parrot/lib/Parrot/Op.pm	3175	3274	
==>$self->{CODE};
}

=item C<type()>

The type of the op, either 'inline' or 'function'.

=cut

sub typ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516758	517048	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517497	517787	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518235	518525	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518974	519264	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  " <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	24697	24821	
==>s;

  DEBUG > 2 and print "Ogling extensor: =extend $content\n";

  if($content =~
    m/^
      (\S+)         # 1 : new item <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32817	32938	
==>'}, $mv, 
			    "typeinfo for rule $rule->{'name'}");
		    $pir .= "\n" if $pir !~ /\n$/;
		    $pir .= "### end typeinf <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26821	26930	
==>'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir .= "\n" if $pir !~ /\n$/;
		$pir .= "### end typeinf <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28537	28646	
==>'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir .= "\n" if $pir !~ /\n$/;
		$pir .= "### end typeinf <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36519	36628	
==>'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir .= "\n" if $pir !~ /\n$/;
		$pir .= "### end typeinf <==
5	/Users/nnunley/parrot/config/init/defaults.pm	344	444	
==>cription @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use FindBin;    # see buil <==
5	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	7879	8007	
==>Coverage</th>
                </tr>
    );
    
    foreach my $source_file (sort keys %file_line_coverage) {
        my $outfile <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7651	7744	
==>rtcut method that uses find_symbol() to locate a matching
symbol, and then returns that symbol <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8298	8391	
==>rtcut method that uses find_symbol() to locate a matching
symbol, and then returns that symbol <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8946	9039	
==>rtcut method that uses find_symbol() to locate a matching
symbol, and then returns that symbol <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9616	9709	
==>rtcut method that uses find_symbol() to locate a matching
symbol, and then returns that symbol <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	1490	1647	
==>ions to optional matches:
        #
        # opt(aR|aS) => a(R|S)
        # opt(R|)    => opt(R)?
        # opt(|R)    => opt(R)??
        #
        my @chil <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	30484	30580	
==>= $text) =~ s/\A('(\\.|[^'])*')//s;
	$extracted = $1;

but with C<extract_delimited> it can be si <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236587	236677	
==>ne 606 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}});\n  { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237469	237559	
==>ne 606 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}});\n  { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238351	238441	
==>ne 606 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}});\n  { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640202	640486	
==>MP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640956	641240	
==>MP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645280	645564	
==>MP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646176	646460	
==>MP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	22581	22685	
==>r.y"
{ return []; }
	],
	[#Rule 41
		 'classpiece', 3,
sub
#line 175 "lib/Regex/Grammar.y"
{ return [ $_[ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454755	455059	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455610	455914	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456465	456769	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457319	457623	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458174	458478	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core" <==
5	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3033	3130	
==>address off control stack.

=item C<expr OFFSET(X)>

Transforms to C<PC + X>. This is used to give <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050262	1050357	
==>{{^+4}};\n    {{\@1}} = Parrot_get_global(interpreter, {{\@2}}, {{\@3}}, next);\n    {{+=4}};\n" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051296	1051391	
==>{{^+4}};\n    {{\@1}} = Parrot_get_global(interpreter, {{\@2}}, {{\@3}}, next);\n    {{+=4}};\n" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052330	1052425	
==>{{^+4}};\n    {{\@1}} = Parrot_get_global(interpreter, {{\@2}}, {{\@3}}, next);\n    {{+=4}};\n" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053365	1053460	
==>{{^+4}};\n    {{\@1}} = Parrot_get_global(interpreter, {{\@2}}, {{\@3}}, next);\n    {{+=4}};\n" <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8084	8212	
==>@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8866	8994	
==>@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7737	7865	
==>@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8526	8654	
==>@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) <==
5	/Users/nnunley/parrot/tools/dev/lib_deps.pl	14038	14152	
==>mp      string.h
strcoll     string.h
strcpy      string.h
strcspn     string.h
strerror    string.h
strftime    ti <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573125	573414	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574035	574324	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574838	575127	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLA <==
5	/Users/nnunley/parrot/config/gen/platform.pm	3838	3941	
==>ion]
**
** DO NOT EDIT THIS FILE
**
** Generated by config/gen/platform.pm
*/
END_HERE

    # We need to <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	776	869	
==>utput_fh'} ||= *STDOUT{IO};
  $new->nix_X_codes(1);
  $new->nbsp_for_S(1);
  $new->{'Thispara' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953829	954092	
==>ncoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954619	954882	
==>ncoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957038	957301	
==>ncoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957942	958205	
==>ncoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
5	/Users/nnunley/parrot/tools/build/ops2pm.pl	469	561	
==>puts a
C<Parrot::OpLib::core> module containing information about the ops.

=head2 Options

= <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11912	12035	
==>"_$method";

    # Rewrite DYNSUPER(args)
    s/DYNSUPER          # Macro: DYNSUPER
      \(\s*(.*?)\)      # capture argume <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343632	343928	
==>=> "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344873	345169	
==>=> "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346115	346411	
==>=> "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347357	347653	
==>=> "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13610	13707	
==>l = $self->_gensym();

  _num_arg ($node, 1, 'pair?');

  my $item = $self->_generate(_get_arg($no <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186046	186310	
==>rpreter, {{\@1}}, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Pa <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186976	187240	
==>rpreter, {{\@1}}, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Pa <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187906	188170	
==>rpreter, {{\@1}}, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Pa <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33616	33738	
==>ra') {
              DEBUG and print "Assimilating following ~Para content into $over_type item\n";
              push @$pa <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35429	35551	
==>ra') {
              DEBUG and print "Assimilating following ~Para content into $over_type item\n";
              push @$pa <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4214	4314	
==>$result,$op,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		r <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4478	4578	
==>$result,$op,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		r <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5114	5214	
==>$result,$op,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		r <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5490	5590	
==>$result,$op,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		r <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5922	6017	
==>$result,$op,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2) <==
5	/Users/nnunley/parrot/config/auto/cgoto.pm	531	642	
==>bose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->s <==
5	/Users/nnunley/parrot/config/auto/headers.pm	466	577	
==>bose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->s <==
5	/Users/nnunley/parrot/config/auto/jit.pm	617	728	
==>bose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->s <==
5	/Users/nnunley/parrot/config/gen/cpu.pm	529	640	
==>bose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->s <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	1202	1301	
==>:ISA          = qw(Regex::Ops::Tree);
@Regex::Ops::Tree::alternate::ISA    = qw(Regex::Ops::Tree);
@ <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	36745	36866	
==>= [grep ref($_)||length($_), @link_text  ];
          DEBUG > 3 and printf
           "  So link text is %s\n  and remaini <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14447	14560	
==>8,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24109	24222	
==>8,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27255	27368	
==>8,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38639	38752	
==>8,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18523	18617	
==>_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19236	19330	
==>_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19724	19818	
==>_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20213	20307	
==>_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20702	20796	
==>_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	1500	1601	
==>l be lost!
 *
 */

EOC
}

=item C<gen_ret($method, $body)>

Generate the C code for a C<return> statem <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634789	634877	
==>s[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new_from_string(interpreter, class, {{\@3}}, 0);\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635907	635995	
==>s[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new_from_string(interpreter, class, {{\@3}}, 0);\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637025	637113	
==>s[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new_from_string(interpreter, class, {{\@3}}, 0);\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638144	638232	
==>s[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new_from_string(interpreter, class, {{\@3}}, 0);\n <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	2725	2833	
==>Name => 'sub', Attributes => { name => $name } });
  }

  foreach my $arg (@args) {
    my ($arg_type, $arg_n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72564	72657	
==>ps\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  funcptr_t p = D2FP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74166	74259	
==>ps\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  funcptr_t p = D2FP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75768	75861	
==>ps\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  funcptr_t p = D2FP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77371	77464	
==>ps\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  funcptr_t p = D2FP <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	17957	18114	
==>$variants }) {
                    next if $class eq 'DEFAULT';
                    my $r = $class eq 'DEFAULT' ? 'enum_type_PMC' :
                    "enum_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332503	332596	
==>NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333781	333874	
==>NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335059	335152	
==>NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336338	336431	
==>NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762412	762702	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763264	763554	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764117	764407	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764970	765260	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":b <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	37835	37963	
==>content, 1+$j;
            # leaving only things before and including J
          
          @ell_content  = grep ref($_)||length <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38626	38727	
==>@item, $_tok;
		' . ($self->{"lookahead"} ? '$text = $_savetext;' : '' ) .'

'
}

package Parse::RecDe <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467573	467667	
==>\"src/ops/math.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interpre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468444	468538	
==>\"src/ops/math.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interpre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476996	477090	
==>\"src/ops/math.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interpre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477892	477986	
==>\"src/ops/math.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interpre <==
5	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	1503	1634	
==>6] ] }       

# TODO: What does this means???
flag:               'F' | 'T'

# We need the len of the macro name, 
# because we ext <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469328	469425	
==>.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exception(interpreter, NULL, E_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470203	470300	
==>.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exception(interpreter, NULL, E_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478801	478898	
==>.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exception(interpreter, NULL, E_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479693	479790	
==>.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exception(interpreter, NULL, E_ <==
5	/Users/nnunley/parrot/config/gen/PodText.pm	1630	1775	
==>KAGE__ . " from $pod\n"
              . "\n"
              . $text
        ;
        # the filehandle was opened for update so the files 'position <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950543	950629	
==>ing_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951503	951589	
==>ing_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952463	952549	
==>ing_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953424	953510	
==>ing_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404697	404983	
==>hort){{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405609	405895	
==>hort){{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406521	406807	
==>hort){{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407434	407720	
==>hort){{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
5	/Users/nnunley/parrot/config/inter/progs.pm	657	769	
==>ags ldflags libs debugging
    lex yacc maintainer);

sub runstep
{
    my ($self, $conf) = @_;

    my ($cc, $cx <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2811	2916	
==>element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
    $left->sax($handler);
    $ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3485	3590	
==>element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
    $left->sax($handler);
    $ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3575	3680	
==>element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
    $left->sax($handler);
    $ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5360	5461	
==>element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
  $left->sax($handler);
  $ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3423	3524	
==>element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
  $left->sax($handler);
  $ <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	9271	9371	
==>A good-enough check that it's good as an XML Name symbol:
      Carp::croak "\"$new_code\" isn't a va <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	10535	10635	
==>A good-enough check that it's good as an XML Name symbol:
      Carp::croak "\"$new_code\" isn't a va <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514106	514195	
==>8 \"src/ops/math.ops\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514986	515075	
==>8 \"src/ops/math.ops\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515866	515955	
==>8 \"src/ops/math.ops\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}} <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22437	22540	
==>se::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE; ') .' <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21025	21126	
==>se::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;').' <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27334	27435	
==>se::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;').' <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29444	29545	
==>se::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;').' <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31541	31642	
==>se::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;').' <==
5	/Users/nnunley/parrot/tools/build/jit2c.pl	2596	2695	
==>/) {
            $line =~ s/PREV_OP\s(..?)\s(\w+)/(jit_info->prev_op) && (*jit_info->prev_op $1 $opc <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4080	4175	
==>This is a subclass of L<Pod::Simple> and inherits all its methods.

=head1 SEE ALSO

L<Pod::Simp <==
5	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2700	2795	
==>This is a subclass of L<Pod::Simple> and inherits all its methods.

=head1 SEE ALSO

L<Pod::Simp <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3521	3616	
==>This is a subclass of L<Pod::Simple> and inherits all its methods.

=head1 SEE ALSO

L<Pod::Simp <==
5	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1257	1352	
==>This is a subclass of L<Pod::Simple> and inherits all its methods.

=head1 SEE ALSO

L<Pod::Simp <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154081	154390	
==>ELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "F <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154984	155293	
==>ELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "F <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155888	156197	
==>ELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "F <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156792	157101	
==>ELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "F <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157697	158006	
==>ELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "F <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926240	926394	
==>\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927710	927864	
==>\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929180	929334	
==>\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930651	930805	
==>\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break <==
5	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	829	936	
==>ift;

    return bless {}, ref $class || $class;
}

=back

=head3 Object Methods

=over 4

=item * C<result( <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3093	3198	
==>ert escapes. For example, "\n" should be an actual newline.
#

sub sax
{
  my $self = shift;
  my ($handle <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7653	7746	
==>cut method that uses find_symbol() to locate a matching
symbol, and then returns that symbol's <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8300	8393	
==>cut method that uses find_symbol() to locate a matching
symbol, and then returns that symbol's <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8948	9041	
==>cut method that uses find_symbol() to locate a matching
symbol, and then returns that symbol's <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9618	9711	
==>cut method that uses find_symbol() to locate a matching
symbol, and then returns that symbol's <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175321	175606	
==>ELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_add <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176224	176509	
==>ELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_add <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177128	177413	
==>ELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_add <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178032	178317	
==>ELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_add <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178937	179222	
==>ELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_add <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340300	340639	
==>4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341299	341638	
==>4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342298	342637	
==>4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pi <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16289	16406	
==>TML didn't check this.
            return $x unless $x;
            $x =~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\ <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	26566	26694	
==>= $c;
	$names{$c} = $c;
	print <<EOC;
        \t $cmt
EOC
    }
    push @stack, [$n, $c, 'P'];
}

sub STORE_FAST
{
    my ($n, $ <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	622	741	
==>esc {
  return '' unless @_;
  my @out;
  foreach my $in (@_) {
    push @out, '"' . $in . '"';
    $out[-1] =~ s/([^- \ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16408	16512	
==>);
      my $op    = $self->forth->text;
      my $right = Jako::Construct::Expression::Value->new($block <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17179	17283	
==>);
      my $op    = $self->forth->text;
      my $right = Jako::Construct::Expression::Value->new($block <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17984	18088	
==>);
      my $op    = $self->forth->text;
      my $right = Jako::Construct::Expression::Value->new($block <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	29654	29750	
==>of course) that the
extracted substring is not returned.

=head2 A note about prefixes

Prefix pa <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627077	627170	
==>pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628221	628314	
==>pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632479	632572	
==>pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633521	633614	
==>pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88657	88918	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89394	89655	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90132	90393	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90985	91246	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91839	92100	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926101	926224	
==>NFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927571	927694	
==>NFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929041	929164	
==>NFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930512	930635	
==>NFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} = <==
5	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	4472	4574	
==>in ', ', map { (split / /, $args[$_])[1] } (0..$#args);
    $macros .= <<"EOM";
#define VTABLE_$entry-> <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73041	73136	
==>\n      {{\@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}}->vtable->set_pointer_keye <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74643	74738	
==>\n      {{\@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}}->vtable->set_pointer_keye <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76245	76340	
==>\n      {{\@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}}->vtable->set_pointer_keye <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77848	77943	
==>\n      {{\@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}}->vtable->set_pointer_keye <==
5	/Users/nnunley/parrot/config/init/hints/vms.pm	66	157	
==>nit/hints/vms.pm 19593 2006-05-30T02:28:15.110975Z coke  $

package init::hints::vms;

use s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584743	584993	
==>ext}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARRO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585818	586068	
==>ext}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARRO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598233	598483	
==>ext}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARRO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599280	599530	
==>ext}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARRO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600355	600605	
==>ext}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARRO <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5399	5526	
==>ess ($first);
                print {$FH} "$_->{symbol}";
                if ( exists $_->{pragma} and $_->{pragma} eq 'multi' <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6431	6558	
==>ess ($first);
                print {$FH} "$_->{symbol}";
                if ( exists $_->{pragma} and $_->{pragma} eq 'multi' <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5828	5947	
==>ess ($first);
            print {$FH} "$_->{symbol}";
            if ( exists $_->{pragma} and $_->{pragma} eq 'multi' <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6923	7042	
==>ess ($first);
            print {$FH} "$_->{symbol}";
            if ( exists $_->{pragma} and $_->{pragma} eq 'multi' <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	9837	9956	
==>ess ($first);
            print {$FH} "$_->{symbol}";
            if ( exists $_->{pragma} and $_->{pragma} eq 'multi' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961111	961414	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_enco <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962073	962376	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_enco <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963035	963338	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_enco <==
5	/Users/nnunley/parrot/config/auto/bc.pm	1089	1213	
==>c 1.06
        my $answer = capture_output('bc', '-v') || '';
        $has_gnu_bc =
            ($answer =~ m/^bc / && $answe <==
5	/Users/nnunley/parrot/tools/build/ops2c.pl	11617	11725	
==>igger than
 * n of fullnames + n of names
 * for now this should be ok
 *
 * look up an op_code: at first cal <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146378	146622	
==>preter, {{\@1}}, {{\@2}}, MMD_EQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ] <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167604	167848	
==>preter, {{\@1}}, {{\@2}}, MMD_EQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ] <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26233	26352	
==>function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 81
		ACTIONS => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710784	710870	
==>_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  PIO_softspace(interpreter, io, 1) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711618	711704	
==>_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  PIO_softspace(interpreter, io, 1) <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	338	457	
==>p;

use base qw(Jako::Construct);

1;

#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $ident) = @_;

  confes <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9542	9638	
==>IC}

# It's a call. Get details of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEM <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7056	7152	
==>IC}

# It's a call. Get details of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEM <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5612	5708	
==>IC}

# It's a call. Get details of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEM <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7832	7928	
==>IC}

# It's a call. Get details of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEM <==
5	/Users/nnunley/parrot/tools/dev/nm.pl	5180	5314	
==>e:s'       => \$Type,
		   'help|h'       => \$Help,
		   'version|v'    => \$Version,
		  )) {
    show_help();
    exit(1);
}

if ($C <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5630	5715	
==>ot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3206	3291	
==>ot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4612	4697	
==>ot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3996	4081	
==>ot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef <==
5	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	6823	6940	
==>$file, $line, "Improper indenting for \"$_\" (should be \"#$indent$2 $3\")\n");
            }
            push @stack, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332399	332490	
==>nst char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333677	333768	
==>nst char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334955	335046	
==>nst char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336234	336325	
==>nst char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(i <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5557	5746	
==>t {$FH} " :slurpy";
                }
                $first = 0;
            }
            print {$FH} ") = ";
        }
        print {$FH} "$op->{arg1}->{symbol}(";
        my $fir <==
5	/Users/nnunley/parrot/config/gen/config_pm.pm	556	659	
==>n = "Recording configuration data for later retrieval";

@args = ();

sub runstep
{
    my ($self, $conf <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714730	714823	
==>, \" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(interpre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715653	715746	
==>, \" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(interpre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716598	716691	
==>, \" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(interpre <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17518	17652	
==>NS => {
			'NAME' => 96
		}
	},
	{#State 43
		DEFAULT => -89
	},
	{#State 44
		DEFAULT => -94
	},
	{#State 45
		DEFAULT => - <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557186	557308	
==>bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558569	558691	
==>bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559953	560075	
==>bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod", <==
5	/Users/nnunley/parrot/tools/build/jit2c.pl	9260	9352	
==>o->cur_op[i] * sizeof(struct PackFile_Constant) + 8)\n";
}


my %core_ops = readjit("src/jit/ <==
5	/Users/nnunley/parrot/config/auto/gcc.pm	1448	1574	
==>urn $self;
    }
    if ($major =~ tr/0-9//c) {
        undef $major; # Don't use it
    }
    if (defined $minor and $minor =~ <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6709	6832	
==>G>					$debug & 0x10
#DBG>				and	$dbgerror
#DBG>				and	$$errstatus == 0
#DBG>				and	do {
#DBG>					print STDERR "**En <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6396	6515	
==>G>					$debug & 0x10
#DBG>				and	$dbgerror
#DBG>				and	$$errstatus == 0
#DBG>				and	do {
#DBG>					print STDERR "**En <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8583	8701	
==>G>				$debug & 0x10
#DBG>			and	$dbgerror
#DBG>			and	$$errstatus == 0
#DBG>			and	do {
#DBG>				print STDERR "**En <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8195	8309	
==>G>				$debug & 0x10
#DBG>			and	$dbgerror
#DBG>			and	$$errstatus == 0
#DBG>			and	do {
#DBG>				print STDERR "**En <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6239	6353	
==>ut in order relative to code.
      
    } elsif($line =~ m/^\s*$/s) {  # it's a blank line
      if(!$self->{'star <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579533	579624	
==>@2}} ));\n  }\n  name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580838	580929	
==>@2}} ));\n  }\n  name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582143	582234	
==>@2}} ));\n  }\n  name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583449	583540	
==>@2}} ));\n  }\n  name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7083	7194	
==>mark";
    return @ops;
}

sub output_pushindex {
    my ($self, $reg) = @_;
    $reg = value(defined($reg) ? $r <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6725	6836	
==>mark";
    return @ops;
}

sub output_pushindex {
    my ($self, $reg) = @_;
    $reg = value(defined($reg) ? $r <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	426	533	
==>w
{
  my $class = shift;
  my ($block, $dest, $left, $op, $right) = @_;

  confess("Block (" . ref($block) . <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	417	524	
==>w
{
  my $class = shift;
  my ($block, $dest, $left, $op, $right) = @_;

  confess("Block (" . ref($block) . <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	306	413	
==>w
{
  my $class = shift;
  my ($block, $dest, $left, $op, $right) = @_;

  confess("Block (" . ref($block) . <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080626	1080952	
==>,
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081691	1082017	
==>,
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082756	1083082	
==>,
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103005	1103331	
==>,
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104219	1104545	
==>,
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071954	1072067	
==>NTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074139	1074252	
==>NTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076324	1076437	
==>NTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078510	1078623	
==>NTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\ <==
5	/Users/nnunley/parrot/tools/build/ops2pm.pl	4229	4328	
==>= sort { $a->{CODE} <=> $b->{CODE} } (@{$ops->{OPS}} );
}

# create opsfile with valid ops from ops. <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	2363	2466	
==>rn ($self->kind eq 'var') or ($self->kind eq 'arg'); }
sub is_sub      { my $self = shift; return $self- <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381152	381243	
==>erpreter, {{\@1}}, PIO_make_offset({{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpret <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382164	382255	
==>erpreter, {{\@1}}, PIO_make_offset({{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpret <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383176	383267	
==>erpreter, {{\@1}}, PIO_make_offset({{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpret <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384189	384280	
==>erpreter, {{\@1}}, PIO_make_offset({{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpret <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381052	381165	
==>],
                  "BODY" => "#line 455 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382064	382177	
==>],
                  "BODY" => "#line 455 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383076	383189	
==>],
                  "BODY" => "#line 455 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384089	384202	
==>],
                  "BODY" => "#line 455 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@ <==
5	/Users/nnunley/parrot/config/auto/gc.pm	573	670	
==>rc/res_lea.c> with tracing enabled.

=back

=cut

package auto::gc;

use strict;
use vars qw($desc <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6735	6851	
==>>				and	$dbgerror
#DBG>				and	$$errstatus == 0
#DBG>				and	do {
#DBG>					print STDERR "**End of Error recovery <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6421	6534	
==>>				and	$dbgerror
#DBG>				and	$$errstatus == 0
#DBG>				and	do {
#DBG>					print STDERR "**End of Error recovery <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8608	8720	
==>>			and	$dbgerror
#DBG>			and	$$errstatus == 0
#DBG>			and	do {
#DBG>				print STDERR "**End of Error recovery <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8219	8328	
==>>			and	$dbgerror
#DBG>			and	$$errstatus == 0
#DBG>			and	do {
#DBG>				print STDERR "**End of Error recovery <==
5	/Users/nnunley/parrot/lib/Parrot/Config.pm	11209	11300	
==>e Eval NCI Float Integer BigInt Complex String Boolean Ref SharedRef Array FixedIntegerArray <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926232	926354	
==>NTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927702	927824	
==>NTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929172	929294	
==>NTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930643	930765	
==>NTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2} <==
5	/Users/nnunley/parrot/examples/benchmarks/shared_ref.pl	447	558	
==>hared;
    my $j :shared;
    $r = \$j;
    $$r = $i;
}

=head1 SEE ALSO

F<examples/benchmarks/shared_ref.pasm> <==
5	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	898	1001	
==>$VERSION;

    chomp $parrot_version;
    $parrot_version =~ s/\s+//g;
    @parrot_version = split(/\./, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066927	1067029	
==>tal.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068113	1068215	
==>tal.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069299	1069401	
==>tal.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070486	1070588	
==>tal.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2} <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9741	9832	
==>f first arg.
if "${CURIC}" != "73" goto pre_call_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEMP <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7255	7346	
==>f first arg.
if "${CURIC}" != "73" goto pre_call_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEMP <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6219	6310	
==>f first arg.
if "${CURIC}" != "73" goto pre_call_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEMP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208327	208414	
==>> "#line 401 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209268	209355	
==>> "#line 401 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}} <==
5	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	3002	3100	
==>directory's parent directory. The root directory returns
C<undef>.

=cut

sub parent
{
    my $self <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712597	712688	
==>,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(interpreter, s,\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713704	713795	
==>,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(interpreter, s,\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720064	720155	
==>,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(interpreter, s,\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721264	721355	
==>,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(interpreter, s,\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727567	727801	
==>emp = {{\@1}};\n   {{\@1}} = {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	728364	728598	
==>emp = {{\@1}};\n   {{\@1}} = {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729158	729392	
==>emp = {{\@1}};\n   {{\@1}} = {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729958	730192	
==>emp = {{\@1}};\n   {{\@1}} = {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	24366	24521	
==>>', $lastback ]),
                        aop('goto', [ $R_back ]),
               $next =>
              );

    return ($back, @ops);
}

sub rewrite_optio <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	4687	4838	
==>$href'>$text</a>";
        }
    }
    else
    {
        # Tidy up the C reference *s.
        $text =~ s|\b\s*\*\s+\b| \*|gs;
        
        esc($te <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024395	1024686	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025151	1025442	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025908	1026199	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026664	1026955	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
5	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	33	133	
==>test functions for Perl 6 Grammar Engine

=head1 SYNOPSIS

In a .t file:

  use Parrot::Test tests => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70868	70957	
==>c/ops/core.ops\"\n\n  {{\@1}} = Parrot_load_lib(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71637	71726	
==>c/ops/core.ops\"\n\n  {{\@1}} = Parrot_load_lib(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	598	684	
==>ef($ident) . ") is not!") unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::V <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	608	694	
==>ef($ident) . ") is not!") unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::V <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	608	694	
==>ef($ident) . ") is not!") unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::V <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17403	17511	
==>f(grep $_->[1]{'~ignore'}, @$curr_open) {
        DEBUG > 1 and print "Ignoring ignorable =for\n";
        ne <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	665	756	
==>confess "Block (" . ref($block) . ") is not!"  unless UNIVERSAL::isa($block, qw(Jako::Constr <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	540	630	
==>confess "Block (" . ref($block) . ") is not!" unless UNIVERSAL::isa($block, qw(Jako::Constr <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	550	639	
==>confess "Block (". ref($block) . ") is not!" unless UNIVERSAL::isa($block, qw(Jako::Constr <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	532	621	
==>confess "Block (". ref($block) . ") is not!" unless UNIVERSAL::isa($block, qw(Jako::Constr <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	1778	1908	
==>tx);
    } else {
        $R = op('external' => [ 'string', [ $atom, $ctx ] ]);
    }

    if ($tree->capture) {
        return op( <==
5	/Users/nnunley/parrot/config/inter/yacc.pm	614	738	
==>on or yacc?";
@args        = qw( yacc ask maintainer );

sub runstep
{
    my ($self, $conf) = @_;
    
    my $verbose = $co <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	24560	24668	
==>and Peter Schmidt
  
  my($self, $para) = @_;
  my $content = join ' ', splice @$para, 2;
  $content =~ s/^\s <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37529	37620	
==>::RecDescent::lastexpected = ' . ($rule->hasleftmost($self) ? 'q{}'
				: 'q{'.$self->descri <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39932	40023	
==>::RecDescent::lastexpected = ' . ($rule->hasleftmost($self) ? 'q{}'
				: 'q{'.$self->descri <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	15070	15188	
==>f),20) .
				     q{..."},
				 pos $$textref;
			last;
		}

		$patvalid = 0;
		$$textref =~ m/\G\s*(\w+|[-=>]>|.|\Z)/g <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381109	381200	
==>s\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset({{\@2}}), {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382121	382212	
==>s\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset({{\@2}}), {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383133	383224	
==>s\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset({{\@2}}), {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384146	384237	
==>s\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset({{\@2}}), {{\@ <==
5	/Users/nnunley/parrot/config/gen/platform.pm	4842	4961	
==>_file: $!";
            print PLATFORM_C <<"END_HERE";
/*
** $impl_file:
*/
#line 1 "$impl_file"
END_HERE
            pr <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3180	3277	
==>Do we have anything on the lazy moves stack?
${ITEMP0} = elements lazy_moves
if ${ITEMP0} > 0 goto <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4938	5035	
==>Do we have anything on the lazy moves stack?
${ITEMP0} = elements lazy_moves
if ${ITEMP0} > 0 goto <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7865	7962	
==>Do we have anything on the lazy moves stack?
${ITEMP0} = elements lazy_moves
if ${ITEMP0} > 0 goto <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8721	8818	
==>Do we have anything on the lazy moves stack?
${ITEMP0} = elements lazy_moves
if ${ITEMP0} > 0 goto <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11561	11658	
==>Do we have anything on the lazy moves stack?
${ITEMP0} = elements lazy_moves
if ${ITEMP0} > 0 goto <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939565	939869	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940456	940760	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941348	941652	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942240	942544	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	32202	32296	
==>p {
}

sub _op_identifier_symbol {
}

sub _op_generate_identifier {
}

sub _op_construct_identi <==
5	/Users/nnunley/parrot/config/auto/cgoto.pm	575	684	
==>= @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('skipped');
        return $self <==
5	/Users/nnunley/parrot/config/auto/headers.pm	510	619	
==>= @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('skipped');
        return $self <==
5	/Users/nnunley/parrot/config/auto/jit.pm	661	770	
==>= @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('skipped');
        return $self <==
5	/Users/nnunley/parrot/config/gen/cpu.pm	573	682	
==>= @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('skipped');
        return $self <==
5	/Users/nnunley/parrot/config/init/hints/mswin32.pm	957	1057	
==>@ARGV; system \'$(MAKE)\', @ARGV; exit $$? >> 8;"',
        ncilib_link_extra => '-def:src/libnci_tes <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19229	19460	
==>{
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20005	20236	
==>{
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20783	21014	
==>{
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21583	21814	
==>{
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
5	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	821	948	
==>ave to go down to get to
    # the tcl binary.

    # There are basically 3 choices: run in one of:
    #  languages
    #  lang <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240238	240541	
==>:\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241186	241489	
==>:\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242134	242437	
==>:\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243083	243386	
==>:\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30876	30968	
==>t " not found\\n"
	_platform_shutdown()
	end
DISP2
RTJUMP:
	push @{$code{$seg}->{code}}, <<RT <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667577	667811	
==>nteger(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668351	668585	
==>nteger(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676068	676302	
==>nteger(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676848	677082	
==>nteger(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	10557	10657	
==>efined $_[0] ? \$_[0] : \$_;
	return ("","","") unless defined $$textref;
	my $pre  = defined $_[1] ? <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42431	42646	
==>> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47138	47353	
==>> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48728	48943	
==>> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50328	50543	
==>> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51921	52136	
==>> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367199	367454	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367990	368245	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368782	369037	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369666	369921	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	27391	27499	
==>unless $self->{DEBUG};

    my $method = "describe_" . $op->{name};
    my $desc = $op->{name};
    if ($self <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447332	447615	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 512,
                  "ARGS" = <==
5	/Users/nnunley/parrot/config/auto/va_ptr.pm	633	738	
==>cc_build('-DVA_TYPE_X86'); };

    if ($@ || cc_run() !~ /^ok/) {
        eval { cc_build('-DVA_TYPE_PPC') <==
5	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1292	1389	
==>lf->{builder}->diag("'$cmd' failed with exit code $exit_code")
        if $exit_code and not $pass <==
5	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1333	1430	
==>lf->{builder}->diag("'$cmd' failed with exit code $exit_code")
        if $exit_code and not $pass <==
5	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2456	2551	
==>lf->{builder}->diag("'$cmd' failed with exit code $exit_code")
      if $exit_code and not $pass <==
5	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	1705	1798	
==>lf->{builder}->diag("'$cmd' failed with exit code $exit_code")
    if $exit_code and not $pass <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454757	455083	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455612	455938	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456467	456793	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457321	457647	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458176	458502	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARG <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	19830	19945	
==>]->[2],$code[$code_l]->[4]);
    my $targ = "pc_xxx";
    my $label = '';
    if (!defined $op) {
	goto plain;
    } <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	760	859	
==>::Block));
  confess "Type (" . ref($type) . ") is not!"   if defined $type and not UNIVERSAL::isa($ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	643	739	
==>::Block));
  confess "Type (". ref($type) . ") is not!" if defined $type and not UNIVERSAL::isa($ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627449	627537	
==>oinit(interpreter, {{\@2}});\n  {{\@1}}->vtable->init(interpreter, {{\@1}});\n  {{+=3}};\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628593	628681	
==>oinit(interpreter, {{\@2}});\n  {{\@1}}->vtable->init(interpreter, {{\@1}});\n  {{+=3}};\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342929	343229	
==>PE" => "inline",
                  "CODE" => 401,
                  "ARGS" => [
                              "i",
                              "p",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 128 \"src/ops/ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067164	1067289	
==>emp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068350	1068475	
==>emp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069536	1069661	
==>emp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070723	1070848	
==>emp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062611	1062904	
==>}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063480	1063773	
==>}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064350	1064643	
==>}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065223	1065516	
==>}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066097	1066390	
==>}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	837	952	
==>q '.' ) {
			append;
			fetch;
			$numtype="FLO";
			goto NUMCONST;
		}
		if ($cur =~ /[eEdD]/ and $next =~/[-+\d]/) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800667	800774	
==>able->set_string_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801571	801678	
==>able->set_string_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802475	802582	
==>able->set_string_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803380	803487	
==>able->set_string_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	328	434	
==>&& ...
# R (scan, R) : scan for R at every position
# R (test, op1, check, op2, dest)
# R (alternate, R, S) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39018	39125	
==>_exit({{\@2}});\n  do_exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39883	39990	
==>_exit({{\@2}});\n  do_exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40730	40837	
==>_exit({{\@2}});\n  do_exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41578	41685	
==>_exit({{\@2}});\n  do_exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1199	1303	
==>, "\n";
    if($token->is_start) {
      ...access $token->tagname, $token->attr, etc...

    } elsif($to <==
5	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2204	2426	
==>:        "
                              # print  N1
                              # print  "\n"
                              #
exit(0);                      # end

=head1 SEE ALSO

F<examples/benchmarks/mops.pasm>,
F<exam <==
5	/Users/nnunley/parrot/examples/mops/mops.pl	2204	2426	
==>:        "
                              # print  N1
                              # print  "\n"
                              #
exit(0);                      # end

=head1 SEE ALSO

F<examples/benchmarks/mops.pasm>,
F<exam <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	25842	25941	
==>t} . '__'; }

sub issubrule { undef }
sub isterminal { 1 }
sub describe ($) { shift->{'description'} <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28854	28953	
==>t} . '__'; }

sub issubrule { undef }
sub isterminal { 1 }
sub describe ($) { shift->{'description'} <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30934	31033	
==>t} . '__'; }

sub issubrule { undef }
sub isterminal { 1 }
sub describe ($) { shift->{'description'} <==
5	/Users/nnunley/parrot/tools/build/dynclasses.pl	3681	3783	
==>$group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Conv <==
5	/Users/nnunley/parrot/tools/build/dynclasses.pl	4042	4144	
==>$group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Conv <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	3785	3887	
==>$group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Conv <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	4146	4248	
==>$group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Conv <==
5	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	8162	8244	
==>d><a href="$outfile_base.lines.html">@{[$file_line_coverage{$source_file} ? "$file_ <==
5	/Users/nnunley/parrot/lib/Parrot/Test.pm	7726	7837	
==>ERR if $err;

    # Save the old filehandles; we must not let them get closed.
    open  OLDOUT, ">&STDOUT" or d <==
5	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7777	7887	
==>ERR if $err;

    # Save the old filehandles; we must not let them get closed.
    open OLDOUT, ">&STDOUT" or d <==
5	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	2208	2314	
==>et_object.  To wit:


  % perl -MData::Dumper -e
    "use base qw(Pod::Simple::Methody);
     sub start_L { <==
5	/Users/nnunley/parrot/tools/build/jit2c.pl	13756	13859	
==>ops; }
EOC
}

print("jit2c: JITed $njit (+ $vjit vtable) of $core_numops ops\n");

sub make_subs {
    m <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	348	445	
==>gister addressing
and C C<goto> run loop.

=head2 Instance Methods

=over 4

=cut

package Parrot: <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	557	678	
==>:Test::output_$meth"} = sub ($$;$) {
        my( $lang_code, $output, $desc ) = @_;

        ++$count;
        my( $lang_f <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73090	73179	
==>_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74692	74781	
==>_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76294	76383	
==>_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77897	77986	
==>_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543324	543648	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lcm",
                  "FLAGS" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544659	544983	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lcm",
                  "FLAGS" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545995	546319	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lcm",
                  "FLAGS" => " <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	13774	13895	
==>eturn $cmt
	.return $tos
	.pcc_end_return
EOC
    }
    else {
	print <<EOC;
	# $cmt
EOC
    }
}

sub YIELD_VALUE
{
    my <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	28826	28921	
==>racter after the
extracted text. That means that in a list context the various
subroutines can b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718111	718346	
==>n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719043	719278	
==>n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720242	720477	
==>n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721442	721677	
==>n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	47810	47901	
==>ncounters a here document whilst
extracting from a modifiable string, C<extract_quotelike> s <==
5	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	2960	3063	
==>f;
}

=item C<keys()>

Provides a list of keys.

Accepts no arguments and returns a list.

=cut

sub key <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344425	344515	
==>ee(mode); */\n  /* string_cstring_free(path); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}}) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345667	345757	
==>ee(mode); */\n  /* string_cstring_free(path); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}}) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346909	346999	
==>ee(mode); */\n  /* string_cstring_free(path); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}}) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348152	348242	
==>ee(mode); */\n  /* string_cstring_free(path); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}}) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553229	553524	
==>XT",
                  "NAME" => "callmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554625	554920	
==>XT",
                  "NAME" => "callmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556022	556317	
==>XT",
                  "NAME" => "callmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	5568	5701	
==>fix-arith', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^( \+= | \*= | -= | /= | %= )(.*)$}x) {
      push @to <==
5	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	10337	10447	
==>dirname}{lc($filename)});
        }
        $files_in_dir_nocase{$dirname}{lc($filename)}=$_;
    }

    close( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770014	770244	
==>ound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770867	771097	
==>ound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771720	771950	
==>ound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772574	772804	
==>ound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
5	/Users/nnunley/parrot/tools/build/headerize.pl	2060	2172	
==>g non-whitespace
    @funcs = grep /\S/, @funcs;

    # If it's got a semicolon, it's not a function header
    @ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820933	821183	
==>{
                  "JUMP" => 0,
                  "NAME" => "depth",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inlin <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926210	926332	
==>TART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927680	927802	
==>TART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929150	929272	
==>TART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930621	930743	
==>TART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476472	476681	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477367	477576	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478263	478472	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479154	479363	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io <==
5	/Users/nnunley/parrot/config/init/hints/solaris.pm	382	497	
==>($libs !~ /-lrt\b/) {
        $libs .= ' -lrt';    # Needed for sched_yield.
    }
    $conf->data->set(libs => $lib <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27422	27528	
==>ate" instruction directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rul <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29889	29995	
==>ate" instruction directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rul <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33307	33413	
==>ate" instruction directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rul <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34561	34667	
==>ate" instruction directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rul <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36971	37077	
==>ate" instruction directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rul <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	3067	3178	
==>> op } : tagged_op )
    my %labels; # { label string => tagged_op }
    foreach my $stmt (@output) {
	if ($stmt <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332507	332602	
==>, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_U <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333785	333880	
==>, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_U <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335063	335158	
==>, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_U <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336342	336437	
==>, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_U <==
5	/Users/nnunley/parrot/tools/dev/run_indent.pl	2865	2965	
==>"$errors parse errors.  " if ($errors);
    print STDERR "Found " . scalar(keys %$typedefs) . " typed <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584430	584526	
==>n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585505	585601	
==>n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597946	598042	
==>n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598993	599089	
==>n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PM <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	14713	14922	
==>ck
#                push 2
#                goto next
#          back: popint -> I0
#                eq I0, 0, R.back
#                eq I0, 1, S.back
#                goto T.back
#          next:
#
sub rewrit <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8017	8116	
==>ame!"  unless defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_symbol($ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8664	8763	
==>ame!"  unless defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_symbol($ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9332	9431	
==>ame!"  unless defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_symbol($ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10001	10100	
==>ame!"  unless defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_symbol($ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	164	278	
==>rse);

use Data::Dumper;

my $ind = 0;
sub _build_tree {
  my ($tokens,$count) = @_;
  my $temp   = {};

  die "EOF <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	12828	12945	
==>num';
    $mv->{'EHANDLERS'} = 'ehs';

    # SRM pre translation code.
    $pir .= "### pre_translation\n";
    my $sr <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15482	15579	
==>0] } @expr);
		@expr=fixup(@expr);		# Repair unary -, functions, etc...
		@stream=convert_to_rpn(@ <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15844	15941	
==>0] } @expr);
		@expr=fixup(@expr);		# Repair unary -, functions, etc...
		@stream=convert_to_rpn(@ <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16371	16468	
==>0] } @expr);
		@expr=fixup(@expr);		# Repair unary -, functions, etc...
		@stream=convert_to_rpn(@ <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16995	17092	
==>0] } @expr);
		@expr=fixup(@expr);		# Repair unary -, functions, etc...
		@stream=convert_to_rpn(@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813472	813723	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814097	814348	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814719	814970	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	815347	815598	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "in <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	900	1015	
==>, amount])
# O (assign, name, val)
# O (fail)
# O (nop)

sub compile {
    my ($self, $expr, $ctx) = @_;
    my ($va <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920489	920786	
==>intf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921381	921678	
==>intf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	922274	922571	
==>intf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095178	1095285	
==>ps\"\n  Parrot_Exec_OS_Command(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "experimental" => 1, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095873	1095980	
==>ps\"\n  Parrot_Exec_OS_Command(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "experimental" => 1, <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2209	2325	
==>val = eval '$self->_DBParse()';#Do not create stab entry on compile
        $@ and die $@;
	}
	else {
		$retval = <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2126	2238	
==>val = eval '$self->_DBParse()';#Do not create stab entry on compile
        $@ and die $@;
	}
	else {
		$retval = <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28351	28444	
==>::RD_TRACE;').'

			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched te <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30428	30520	
==>::RD_TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched te <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32628	32720	
==>::RD_TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched te <==
5	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	2406	2508	
==>se qw(Lua::opcode);

package LocalDir;
use base qw(Lua::opcode);

package LexDir;
use base qw(Lua <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404610	404701	
==>> "#line 535 \"src/ops/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405522	405613	
==>> "#line 535 \"src/ops/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406434	406525	
==>> "#line 535 \"src/ops/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407347	407438	
==>> "#line 535 \"src/ops/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033182	1033278	
==>r.ops\"\n    parrot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_na <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034280	1034376	
==>r.ops\"\n    parrot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_na <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035376	1035472	
==>r.ops\"\n    parrot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_na <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036540	1036636	
==>r.ops\"\n    parrot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_na <==
5	/Users/nnunley/parrot/tools/build/c2str.pl	4486	4573	
==>c_string_${line}_data\[\] = $text;
static /*const*/ struct parrot_string_t static_string <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24377	24469	
==>nstant(0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{children}[1]) <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25266	25358	
==>nstant(0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{children}[1]) <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26276	26368	
==>nstant(0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{children}[1]) <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27166	27258	
==>nstant(0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{children}[1]) <==
5	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	13866	13952	
==>text-decoration: none" href="<tmpl_var name=link>" title="Full smoke report">&raquo;</a <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576694	576963	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subclass",
                  "FLAGS" => ":object_base" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595443	595712	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subclass",
                  "FLAGS" => ":object_base" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596335	596604	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subclass",
                  "FLAGS" => ":object_base" <==
5	/Users/nnunley/parrot/lib/Parrot/Op.pm	2802	2943	
==>TYPE => $type,
        NAME => $name,
        ARGS => [ @$args ],
        ARGDIRS => [ @$argdirs ],
        LABELS  => [ @$labels ],
        F <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	24566	24677	
==>ne"       => $_[4],
	}, $class;
}

sub code($$$$)
{
	my ($self, $namespace, $rule, $check) = @_;
	
	my $action = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855017	855272	
==>concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855906	856161	
==>concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856795	857050	
==>concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857685	857940	
==>concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	320	429	
==>ad-safe for ithreads.
BEGIN {
    use Config;
    # Load threads::shared when threads are turned on
    if( $] <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099389	1099695	
==>res;\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100587	1100893	
==>res;\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101785	1102091	
==>res;\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102984	1103290	
==>res;\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	527	637	
==>xt
  }, $class;
}

sub new_bof
{
  my $class = shift;
  my ($file, $line) = @_;

  return $class->new($file, $l <==
5	/Users/nnunley/parrot/tools/dev/parrotbench.pl	363	474	
==>configuration file
   -d -directory      path to benchmarks directory
   -h -? -help        display this help an <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332474	332568	
==>}} = PIO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333752	333846	
==>}} = PIO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335030	335124	
==>}} = PIO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336309	336403	
==>}} = PIO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	639521	639614	
==>ion(interpreter, NULL, E_ValueError,\n\t\t      \"Illegal PMC enum (%d) in instantiate\", typ) <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	2940	3047	
==>bit.
        $index_html = "<BR>\n" . $index_html;
    }

    my $index = $target->file_with_name($self->{IN <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071818	1071922	
==>al.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = {{\@5}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074003	1074107	
==>al.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = {{\@5}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076188	1076292	
==>al.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = {{\@5}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078374	1078478	
==>al.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = {{\@5}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642357	642682	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643245	643570	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644137	644462	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645030	645355	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1249	1334	
==>:Statement::Concat;
use Jako::Construct::Statement::Decrement;
use Jako::Construct::St <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21299	21420	
==>ll' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 66 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38956	39048	
==>20 \"src/ops/core.ops\"\n  if ({{\@1}} == EXCEPT_doomed)\n    _exit({{\@2}});\n  do_exception <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39821	39913	
==>20 \"src/ops/core.ops\"\n  if ({{\@1}} == EXCEPT_doomed)\n    _exit({{\@2}});\n  do_exception <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40668	40760	
==>20 \"src/ops/core.ops\"\n  if ({{\@1}} == EXCEPT_doomed)\n    _exit({{\@2}});\n  do_exception <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41516	41608	
==>20 \"src/ops/core.ops\"\n  if ({{\@1}} == EXCEPT_doomed)\n    _exit({{\@2}});\n  do_exception <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	10764	10862	
==>n");
	}
	barf();
}
sub parse_read {
	while($type[CURR] !~ /COMP|COMM|STMT/) {
		push @{$code{$seg}- <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469366	469458	
==>f ({{\@2}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Div <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470241	470333	
==>f ({{\@2}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Div <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478839	478931	
==>f ({{\@2}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Div <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479731	479823	
==>f ({{\@2}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Div <==
5	/Users/nnunley/parrot/lib/Pod/Escapes.pm	3112	3224	
==>a^che/)
 #           umlaut/dieresis looks like " (as in nai"ve, Chloe")

 # From the XHTML 1 .ent files:
 'nbsp' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773405	773490	
==>c/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774315	774400	
==>c/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775225	775310	
==>c/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776136	776221	
==>c/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726365	726719	
==>":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 814,
                  "ARGS" => [
                              "s",
                              "sc"
                            ] <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5489	5589	
==>]',$item]);
      $self->_add_inst ('', 'set', [$pair.'[1]',$return]);
      $self->_add_inst ('', 's <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17039	17134	
==>]',$item]);
    $self->_add_inst ('', 'set',[$pair.'[1]',$return]);
    $self->_add_inst ('', 's <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6528	6618	
==>]',$item]);
  $self->_add_inst('', 'set', [$pair.'[1]',$return]);
  $self->_add_inst('', 's <==
5	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2190	2282	
==>--------------------------------------------------
sub e2charnum {
  my $in = $_[0];
  return <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404629	404717	
==>ops/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405541	405629	
==>ops/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406453	406541	
==>ops/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407366	407454	
==>ops/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072509	1072612	
==>\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074694	1074797	
==>\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076879	1076982	
==>\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079065	1079168	
==>\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	31022	31117	
==>t are only discovered at runtime.
RUNTIME_JUMP:
RTB
	if ($runtime_jump) {
		foreach(sort keys %l <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3118	3215	
==>RTIES' => 'Project info',
	'TODO' => 'TODO file',
	'VERSION' => 'Project info',
);

=item C<type_f <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404115	404411	
==>dr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405026	405322	
==>dr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405938	406234	
==>dr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406850	407146	
==>dr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
5	/Users/nnunley/parrot/examples/benchmarks/primes.pl	277	373	
==>/primes.pl

=head1 DESCRIPTION

Calculates all the prime numbers up to 50000 and prints out the n <==
5	/Users/nnunley/parrot/lib/Test/More.pm	25939	26087	
==>is, $that) ) {
            $ok = $Test->ok(1, $name);
        }
        else {
            $ok = $Test->ok(0, $name);
            $Test->diag(_format <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540376	540479	
==>/math.ops\"\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541628	541731	
==>/math.ops\"\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542880	542983	
==>/math.ops\"\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{ <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3335	3437	
==>all mysub( 78, 80)
t$=foo$
print t$
t=0
do
	print "This is right"
	exit do
	print "This is wrong"
	t=t+ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080545	1080657	
==>});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimenta <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081610	1081722	
==>});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimenta <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082675	1082787	
==>});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimenta <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083741	1083853	
==>});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimenta <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	34412	34513	
==>urr_Test} > $self->{Expected_Tests} ) {
            my $num_extra = $self->{Curr_Test} - $self->{Expec <==
5	/Users/nnunley/parrot/tools/build/dynclasses.pl	2804	2924	
==>FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist <==
5	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3113	3233	
==>FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	2908	3028	
==>FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48581	48680	
==>,   PARROT_BOUNDS_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_BOUNDS_FLAG); }\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49371	49470	
==>,   PARROT_BOUNDS_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_BOUNDS_FLAG); }\ <==
5	/Users/nnunley/parrot/editor/ops2vim.pl	106	213	
==>d pirOp';

my %seen;

## make sure files have been globbed on non-globbing OSes
## and make sure at least on <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776999	777106	
==>],
                  "BODY" => "#line 382 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(int <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777908	778015	
==>],
                  "BODY" => "#line 382 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(int <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778817	778924	
==>],
                  "BODY" => "#line 382 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(int <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779727	779834	
==>],
                  "BODY" => "#line 382 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(int <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	1197	1323	
==>o see its path. Where the fear has gone there
	#  will be nothing. Only I will remain.
	#                      Bene Gesserit Li <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080483	1080576	
==>nal_exception(1, \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081548	1081641	
==>nal_exception(1, \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082613	1082706	
==>nal_exception(1, \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083679	1083772	
==>nal_exception(1, \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_in <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6750	6871	
==>ror
#DBG>				and	$$errstatus == 0
#DBG>				and	do {
#DBG>					print STDERR "**End of Error recovery.\n";
#DBG>					$db <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8622	8739	
==>ror
#DBG>			and	$$errstatus == 0
#DBG>			and	do {
#DBG>				print STDERR "**End of Error recovery.\n";
#DBG>				$db <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6436	6553	
==>ror
#DBG>				and	$$errstatus == 0
#DBG>				and	do {
#DBG>					print STDERR "**End of Error recovery.\n";
#DBG>					$db <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8233	8346	
==>ror
#DBG>			and	$$errstatus == 0
#DBG>			and	do {
#DBG>				print STDERR "**End of Error recovery.\n";
#DBG>				$db <==
5	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeDumb.pm	121	219	
==>t;
use vars qw($VERSION %Supported);
$VERSION = '2.02';
# This module basically pretends it knows h <==
5	/Users/nnunley/parrot/lib/Test/More.pm	32701	32807	
==>e same algorithm.
    # Have to inline the sort routine due to a threading/sort bug.
    # See [rt.cpan.org <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084735	1084823	
==>al.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085788	1085876	
==>al.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086841	1086929	
==>al.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087895	1087983	
==>al.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n <==
5	/Users/nnunley/parrot/lib/Test/More.pm	29821	29997	
==>eq $e2;
            }
            else {
                $Refs_Seen{$e1} = "$e2";
            }

            my $type = _type($e1);
            $type = 'DIFFERENT' unless _type( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960993	961079	
==>new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interprete <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961955	962041	
==>new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interprete <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962917	963003	
==>new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interprete <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963880	963966	
==>new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interprete <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072848	1072974	
==>\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075033	1075159	
==>\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077218	1077344	
==>\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079404	1079530	
==>\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1 <==
5	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	10749	10846	
==>tly uses `require()` since Pugs does not yet have
a proper `use()` builtin.

- `ok (Bool $cond, St <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39038	39259	
==>o_exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39903	40124	
==>o_exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40750	40971	
==>o_exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41598	41819	
==>o_exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Compilers.pm	1077	1187	
==>bstract Syntax Tree',
            'compilers/past' ),
        $self->new_group( 'POST', 'the Parrot/Punie Opc <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478875	478967	
==>on(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479767	479859	
==>on(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483738	483830	
==>on(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484737	484829	
==>on(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485736	485828	
==>on(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({ <==
5	/Users/nnunley/parrot/lib/Test/More.pm	28765	28897	
==>$e1,$e2);
        pop @Data_Stack if $ok;

        last unless $ok;
    }

    return $ok;
}

sub _deep_check {
    my($e1, $e2) = @_ <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	1388	1507	
==>atom);
    } elsif (ref($atom) eq 'ARRAY') {
        # Codeblock
        $R = op('external' => [ 'code', [ $atom, $ctx ] <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332315	332416	
==>DY" => "#line 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const m <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333593	333694	
==>DY" => "#line 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const m <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334871	334972	
==>DY" => "#line 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const m <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336150	336251	
==>DY" => "#line 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const m <==
5	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	7136	7235	
==>th the specified name in the
directory.

=cut

sub path_for_directory_with_name
{
    my $self = shi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344223	344317	
==>onst path = string_to_cstring(interpreter, {{\@2}});\n  const char * const mode = string_to_cst <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345465	345559	
==>onst path = string_to_cstring(interpreter, {{\@2}});\n  const char * const mode = string_to_cst <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346707	346801	
==>onst path = string_to_cstring(interpreter, {{\@2}});\n  const char * const mode = string_to_cst <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347950	348044	
==>onst path = string_to_cstring(interpreter, {{\@2}});\n  const char * const mode = string_to_cst <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276221	276478	
==>re(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277099	277356	
==>re(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277977	278234	
==>re(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19550	19656	
==>self->_restore($temp_0);
  return $return;
}

sub _op_gt {
  my ($self,$node) = @_;
  my $return;
  my $lab <==
5	/Users/nnunley/parrot/tools/build/headerize.pl	344	445	
==>> or F<*.c> files that correspond to the F<*.o> files passed
on the command line.

    % perl tools/bu <==
5	/Users/nnunley/parrot/config/auto/jit.pm	2691	2800	
==>puarch/asm.s", "src/asmfun.s");
        $conf->data->set(asmfun_o => 'src/asmfun$(O)');
    } else {
        $ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340227	340317	
==>/ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341226	341316	
==>/ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342225	342315	
==>/ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343225	343315	
==>/ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\ <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8438	8547	
==>R] eq "STMT"
		  or
	    $type[CURR] eq "COMP") { goto PARSE; }
	if ($type[CURR] eq 'COMM') {
		push @{$code{$ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92778	92992	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93557	93771	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94337	94551	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95229	95443	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96122	96336	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	16082	16197	
==>ams and a void return
        $call_state = '' if 'v' eq $return;
        print NCI << "HEADER";
static void
pcf_${r <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344187	344282	
==>to go away soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2}});\n  cons <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345429	345524	
==>to go away soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2}});\n  cons <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346671	346766	
==>to go away soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2}});\n  cons <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347914	348009	
==>to go away soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2}});\n  cons <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556803	556891	
==>{\@3}};\n  interpreter->current_method = VTABLE_get_string(interpreter, method_pmc);\n  d <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646855	647144	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647615	647904	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648376	648665	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649138	649427	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FL <==
5	/Users/nnunley/parrot/lib/Pod/Escapes.pm	4934	5064	
==>te'   , 250,
 'ucirc'    , 251,
 'uuml'     , 252,
 'yacute'   , 253,
 'thorn'    , 254,
 'yuml'     , 255,

 'fnof'     , 402,
 'A <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	6407	6587	
==>e "Duplicate value for pop in rule $rule->{'name'}\n";
                } else {
                    $has_pop = 1;
                }
            } else {
                die "Invalid <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	15922	16064	
==>+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			"<=" => 85,
			'OR' <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29775	29917	
==>+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			"<=" => 85,
			'OR' <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30290	30432	
==>+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			"<=" => 85,
			'OR' <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36836	36978	
==>+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			"<=" => 85,
			'OR' <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	78276	78392	
==>\u$_[0] that follows an <error>
		       will never be reached.  Did you mean to use
		       <error?> instead?");
	} <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3929	4046	
==>my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless defined $self and ref $self and $se <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7838	7955	
==>my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless defined $self and ref $self and $se <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8485	8602	
==>my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless defined $self and ref $self and $se <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9153	9270	
==>my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless defined $self and ref $self and $se <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9822	9939	
==>my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless defined $self and ref $self and $se <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18166	18393	
==>ool(interpreter, {{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parro <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18975	19202	
==>ool(interpreter, {{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parro <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21329	21556	
==>ool(interpreter, {{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parro <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22143	22370	
==>ool(interpreter, {{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parro <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	489	599	
==>{ $_[0][0] eq 'end'   }
sub is_text  { $_[0][0] eq 'text'  }

1;
__END__

sub dump { '[' . _esc( @{ $_[0] } ) . <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	16794	16919	
==>n, $t];
}
sub inplace
{
    my ($op, $cmt) = @_;
    my $r = pop @stack;
    my $l = pop @stack;
    print <<"EOC";
	$l->[1] $ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062498	1062592	
==>\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpret <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063367	1063461	
==>\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpret <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064237	1064331	
==>\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpret <==
5	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	1224	1315	
==>enfile copy_if_diff move_if_diff)]
);

=item C<integrate($orig, $new)>

Integrates C<$new> i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517797	518155	
==>=> [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 597,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 734 \"sr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762622	762887	
==>P" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763474	763739	
==>P" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764327	764592	
==>P" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765180	765445	
==>P" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843616	844035	
==>re",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 957,
                  "ARGS" => [
                              "i",
                              "sc",
                              "i"
                            ] <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404044	404310	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404955	405221	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405867	406133	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406779	407045	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509065	509323	
==>};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509696	509954	
==>};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510351	510609	
==>};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	23784	23878	
==>ure_output($file);

Where diagnostic output on test failures and diag() should go.

Defaults to <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	8727	8821	
==>al_int(st->val) = val;
    Parrot_convert_arg(interpreter, st);
    Parrot_store_arg(interprete <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501026	501299	
==>{{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501765	502038	
==>{{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502503	502776	
==>{{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503242	503515	
==>{{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	2626	2736	
==>.local pmc regex_sub
    .local pmc result
    .local int matched
    .local pmc stack
    stack = new .Resizab <==
5	/Users/nnunley/parrot/tools/dev/nm.pl	4432	4545	
==>opt = '-B';
    $nm_ro  = 1;
} elsif ($^O eq 'darwin'  && $nm_try =~ /invalid argument/) {
    $nm_opt = '';
} els <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3046	3147	
==>re maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEM <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4804	4905	
==>re maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEM <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1968	2069	
==>re maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEM <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3220	3321	
==>re maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154350	154657	
==>"NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155253	155560	
==>"NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156157	156464	
==>"NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157061	157368	
==>"NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157966	158273	
==>"NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044733	1044990	
==>al_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045627	1045884	
==>al_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046521	1046778	
==>al_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047416	1047673	
==>al_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16871	16974	
==>lf->get(3)->is_infix_concat
      and $self->get(4)->is_value
    ) {
      my $block = $self->current_b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380333	380659	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381344	381670	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382356	382682	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383368	383694	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384381	384707	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGD <==
5	/Users/nnunley/parrot/config/inter/lex.pm	1992	2125	
==>)) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    # if '--version' returns a stri <==
5	/Users/nnunley/parrot/config/inter/make.pm	1866	1999	
==>)) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    # if '--version' returns a stri <==
5	/Users/nnunley/parrot/config/inter/yacc.pm	2006	2139	
==>)) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    # if '--version' returns a stri <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	6858	6946	
==>ntarray;
  return;
}

#------------------------------------------------------------------ <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	8397	8485	
==>ntarray;
  return;
}

#------------------------------------------------------------------ <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49569	49672	
==>commit>",$line);
			}
			elsif ($grammar =~ m/$QUOTELIKEMK/gco)
			{
				_parse("an perl quotelike marke <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	28841	28941	
==>ub _op_make_point {
}

sub _op_real_part {
}

sub _op_imag_part {
}

sub _op_magnitude {
}

sub _op_a <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062530	1062624	
==>->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpreter, ns_root, {{\@2}});\n    {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063399	1063493	
==>->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpreter, ns_root, {{\@2}});\n    {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064269	1064363	
==>->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpreter, ns_root, {{\@2}});\n    {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215092	215364	
==>1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216033	216305	
==>1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216972	217244	
==>1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217912	218184	
==>1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055928	1056245	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056819	1057136	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057711	1058028	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058603	1058920	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	25179	25304	
==>mc IDs
    foreach my $dynpmc (keys %init_mmds) {
        next if $dynpmc eq $classname;
        $cout .= <<"EOC";
        int <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926198	926317	
==>INGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_B <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927668	927787	
==>INGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_B <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929138	929257	
==>INGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_B <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930609	930728	
==>INGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_B <==
5	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	123	216	
==>316Z coke  $

=head1 NAME

examples/benchmarks/stress2.pl - GC stress-testing

=head1 SYNOPSIS <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	364	484	
==>::Construct::Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  return bless {
    TOKEN    => $token,
    COD <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	361	481	
==>::Construct::Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  return bless {
    TOKEN    => $token,
    COD <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	352	472	
==>::Construct::Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  return bless {
    TOKEN    => $token,
    COD <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	361	481	
==>::Construct::Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  return bless {
    TOKEN    => $token,
    COD <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	45716	45823	
==>6 and print "New version of the above line is these tokens (",
      scalar(@new_line), "):",
      map( ref <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	17556	17667	
==>sub BAILOUT {
    my($self, $reason) = @_;

    $self->_print("Bail out!  $reason");
    exit 255;
}

=item B<sk <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	412	518	
==>new
{
  my $class = shift;
  my ($block, $left, $right) = @_;

  confess("Block (" . ref($block) . ") not!" <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	403	509	
==>new
{
  my $class = shift;
  my ($block, $left, $right) = @_;

  confess("Block (" . ref($block) . ") not!" <==
5	/Users/nnunley/parrot/lib/Parrot/Test.pm	8799	8902	
==>or die "Can't restore  stdout" if $out;
    open  STDERR, ">&OLDERR" or die "Can't restore  stderr" if $ <==
5	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8318	8420	
==>or die "Can't restore  stdout" if $out;
    open STDERR, ">&OLDERR" or die "Can't restore  stderr" if $ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344574	344881	
==>\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345816	346123	
==>\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347058	347365	
==>\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348301	348608	
==>\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open" <==
5	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	6388	6486	
==>1)>

RFC 1321

=head1 COPYRIGHT

This library is free software; you can redistribute it and/or
modi <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	1244	1352	
==>f->new_group('QA', '',
            $self->new_item('', 'parrotbug'),
            $self->new_item('', 'tools/d <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950589	950696	
==>t_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951549	951656	
==>t_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952509	952616	
==>t_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953470	953577	
==>t_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072030	1072143	
==>NTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  I <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074215	1074328	
==>NTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  I <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076400	1076513	
==>NTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  I <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078586	1078699	
==>NTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  I <==
5	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6159	6260	
==>"EOM";
        MMD_USER_FIRST
} parrot_mmd_func_enum;

/* &end_gen */

#ifdef PARROT_IN_OBJECTS_C
stat <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175550	175796	
==>ARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176453	176699	
==>ARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177357	177603	
==>ARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178261	178507	
==>ARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179166	179412	
==>ARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 " <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27652	27765	
==>mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end translation\ <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30119	30232	
==>mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end translation\ <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33537	33650	
==>mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end translation\ <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37201	37314	
==>mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end translation\ <==
5	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	5546	5652	
==>rrectly.  The same
checksum can also be calculated in OO style:

    use Digest::MD5;

    $md5 = Digest::M <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454797	455085	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455652	455940	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456507	456795	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457361	457649	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458216	458504	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770016	770246	
==>nd register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770869	771099	
==>nd register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771722	771952	
==>nd register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772576	772806	
==>nd register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
5	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4870	4965	
==>et C<$recursive> to true if you want all files in subdirectories to be
included. To ignore every <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324773	325046	
==>}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325566	325839	
==>}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326356	326629	
==>}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327157	327430	
==>}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8 <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	13363	13482	
==>0,
		GOTOS => {
			'classpieces' => 30
		}
	},
	{#State 15
		DEFAULT => -38
	},
	{#State 16
		DEFAULT => -28,
		GOTOS => <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	204	303	
==>n.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#
#

use strict;
eval "use warnings";

package Jako:: <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	226	323	
==>n.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako:: <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	224	321	
==>n.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako:: <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	226	323	
==>n.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako:: <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	226	323	
==>n.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako:: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365639	365903	
==>> "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 428 <==
5	/Users/nnunley/parrot/config/inter/lex.pm	1339	1450	
==>le for the consequences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $self->set_r <==
5	/Users/nnunley/parrot/config/inter/make.pm	1160	1271	
==>le for the consequences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $self->set_r <==
5	/Users/nnunley/parrot/config/inter/yacc.pm	1336	1447	
==>le for the consequences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $self->set_r <==
5	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1379	1476	
==>..  please avert your eyes, kind souls.
sub _traverse_treelet_bit {
  DEBUG > 2 and print "Handlin <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	37079	37199	
==>'      => \&_op_char_upcase,
  'char-downcase'    => \&_op_char_downcase,

###
### Strings
###

  'string?'       => \&_o <==
5	/Users/nnunley/parrot/config/init/hints/hpux.pm	230	343	
==>f->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }

    $conf->data->set(l <==
5	/Users/nnunley/parrot/config/init/hints/irix.pm	527	639	
==>f->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }
    $conf->data->set(l <==
5	/Users/nnunley/parrot/config/init/hints/netbsd.pm	320	432	
==>f->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }
    $conf->data->set(l <==
5	/Users/nnunley/parrot/config/init/hints/openbsd.pm	412	518	
==>f->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
	}
	$conf->data->set(l <==
5	/Users/nnunley/parrot/tools/dev/pbc_header.pl	15	114	
==>strict;

=head1 NAME

pbc_header.pl - PBC header info and manipulation

=head1 SYNOPSIS

  perl pbc_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950564	950655	
==>r, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951524	951615	
==>r, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952484	952575	
==>r, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953445	953536	
==>r, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+ <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9838	9951	
==>n "INTERP, SELF, $args";
    } else {
        return "INTERP, SELF";
    }
}

=item C<proto($type,$parameters)>

D <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854974	855063	
==>\"src/ops/string.ops\"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855863	855952	
==>\"src/ops/string.ops\"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856752	856841	
==>\"src/ops/string.ops\"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857642	857731	
==>\"src/ops/string.ops\"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	2275	2371	
==>mpiler->emit("  .return()"); # Fallthrough return() in case the code in the sub doesn't return an <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344262	344355	
==>er, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345504	345597	
==>er, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346746	346839	
==>er, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347989	348082	
==>er, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390728	390931	
==>c",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(inter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072470	1072576	
==>@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* corre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074655	1074761	
==>@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* corre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076840	1076946	
==>@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* corre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079026	1079132	
==>@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* corre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634804	634916	
==>ss;\n  {{\@1}} = VTABLE_new_from_string(interpreter, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABEL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635922	636034	
==>ss;\n  {{\@1}} = VTABLE_new_from_string(interpreter, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABEL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637040	637152	
==>ss;\n  {{\@1}} = VTABLE_new_from_string(interpreter, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABEL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638159	638271	
==>ss;\n  {{\@1}} = VTABLE_new_from_string(interpreter, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABEL <==
5	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2226	2321	
==>")) ||
    Compress::Bzip2::memBunzip($CGI->param("smoke")) ||
    $CGI->param("smoke"));
}

sub <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	625472	625589	
==>SIG_ARRAY(sig);\n    for (i = 0; i < n_args; ++i) {\n        switch (sig_bits[i]) {\n            case PARROT_ARG_INTVA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87342	87479	
==>"
                            ],
                  "BODY" => "#line 1215 \"src/ops/core.ops\"\n  {{\@1}} = Parrot_make_cb(interpreter, {{\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88344	88481	
==>"
                            ],
                  "BODY" => "#line 1215 \"src/ops/core.ops\"\n  {{\@1}} = Parrot_make_cb(interpreter, {{\ <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9993	10084	
==>to last in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7507	7598	
==>to last in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6471	6562	
==>to last in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19018	19115	
==>,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return $return;
}

sub _op_ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19506	19603	
==>,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return $return;
}

sub _op_ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19994	20091	
==>,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return $return;
}

sub _op_ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20483	20580	
==>,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return $return;
}

sub _op_ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20972	21069	
==>,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return $return;
}

sub _op_ <==
5	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	12044	12155	
==>also available.
  </p>

  <p>
    Submitting your own smoke is easy,
  </p>
    
  <pre class="indent2">$ make s <==
5	/Users/nnunley/parrot/lib/Parrot/Config.pm	10908	11011	
==>f.pmc',
             'pmc_names' => 'Null Env Key Random UnManagedStruct ManagedStruct delegate CSub Com <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72677	72768	
==>_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_cstring_free(name);\n  i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74279	74370	
==>_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_cstring_free(name);\n  i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75881	75972	
==>_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_cstring_free(name);\n  i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77484	77575	
==>_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_cstring_free(name);\n  i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084136	1084468	
==>ME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085188	1085520	
==>ME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086241	1086573	
==>ME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087294	1087626	
==>ME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
5	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	6683	6839	
==>els
        if ($line =~ /^\s* (\w+) \s* : \s*$/mx) {
            $code .= emit($1."_%0:", 'loop_num');
            next;
        }
        
        # rename <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084061	1084423	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085113	1085475	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086166	1086528	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087219	1087581	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6894	7007	
==>];
	#	feedme;  # Get the =
	#	#print "Going to expression with $syms[CURR]\n";
	#	print CODE EXPRESSION;		# Evalua <==
5	/Users/nnunley/parrot/lib/Parrot/Config.pm	3299	3457	
==>> 0,
             'has_gnu_m4' => 1,
             'has_icu' => 1,
             'has_perldoc' => 1,
             'has_python' => 1,
             'has_python_2_4 <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5633	5720	
==>:OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=i <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3209	3296	
==>:OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=i <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4615	4702	
==>:OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=i <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3999	4086	
==>:OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033189	1033287	
==>\n    parrot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034287	1034385	
==>\n    parrot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035383	1035481	
==>\n    parrot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036547	1036645	
==>\n    parrot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@ <==
5	/Users/nnunley/parrot/tools/build/jit2c.pl	9222	9311	
==>CPU "#define ECONST(i) (int *)(jit_info->cur_op[i] * sizeof(struct PackFile_Constant) + 8) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613938	614234	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047441	1047737	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054550	1054846	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059245	1059541	
==>, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597126	597420	
==>, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024351	1024641	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025107	1025397	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025864	1026154	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026620	1026910	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18771	18867	
==>eger> );

This method sets the size (in half-points, like 21 for 10.5-point)
that codeblocks ("ve <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63450	63590	
==>)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr($grammar,$pos,0,
						       "<leftop: $name $2 $name> ");

						pos $g <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3144	3240	
==>PTEMP0} = ${STYPES}[stack_depth]

# Do we have anything on the lazy moves stack?
${ITEMP0} = elem <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4902	4998	
==>PTEMP0} = ${STYPES}[stack_depth]

# Do we have anything on the lazy moves stack?
${ITEMP0} = elem <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7829	7925	
==>PTEMP0} = ${STYPES}[stack_depth]

# Do we have anything on the lazy moves stack?
${ITEMP0} = elem <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8685	8781	
==>PTEMP0} = ${STYPES}[stack_depth]

# Do we have anything on the lazy moves stack?
${ITEMP0} = elem <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849289	849606	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850175	850492	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851062	851379	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851949	852266	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	1940	2043	
==>"$type$count"])
	if $regs{$type}->{$count};
    }
  }
}

sub _num_arg {
  my ($node, $expected, $name) = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	339550	339760	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340548	340758	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341547	341757	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342546	342756	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	594	697	
==>atim paragraph), and
# to call the proper callbacks on the treelets.
#
# Every node in a treelet is a [' <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20932	21048	
==>::Value::Identifier->new($block, $self->require_ident)
      }
      else {
        $constructing = 0;
        $right <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018024	1018114	
==>time_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = string_from_cstring(i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018949	1019039	
==>time_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = string_from_cstring(i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019879	1019969	
==>time_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = string_from_cstring(i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020810	1020900	
==>time_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = string_from_cstring(i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072764	1072881	
==>\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074949	1075066	
==>\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077134	1077251	
==>\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079320	1079437	
==>\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == <==
5	/Users/nnunley/parrot/config/init/optimize.pm	480	574	
==>ig;
use Parrot::Configure::Step;

$description = 'Enabling optimization';

@args = qw(verbose o <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926687	926995	
==>break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928157	928465	
==>break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929627	929935	
==>break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931098	931406	
==>break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
5	/Users/nnunley/parrot/examples/benchmarks/addit.pl	460	585	
==>1097.97).

=cut

use strict;
sub varargs_adder {
    my $sum = 0;
    for (my $a = $#_; $a >= 0; --$a) {
        $sum += $_[$a <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	34048	34186	
==>er,
        'arg1' => $lbl_loop,
    );
    my @params2 = ( $state, $var );
    my @return2 = ();
    @opcodes2 = ();
    for ( @{$va <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579515	579608	
==>( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(interpreter, enum_class_String);\n  VTABLE_s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580820	580913	
==>( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(interpreter, enum_class_String);\n  VTABLE_s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582125	582218	
==>( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(interpreter, enum_class_String);\n  VTABLE_s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583431	583524	
==>( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(interpreter, enum_class_String);\n  VTABLE_s <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	36075	36220	
==>des are...

    0                   all tests successful
    255                 test died
    any other number    how many failed (including miss <==
5	/Users/nnunley/parrot/lib/Test/More.pm	34146	34291	
==>des are...

    0                   all tests successful
    255                 test died
    any other number    how many failed (including miss <==
5	/Users/nnunley/parrot/lib/Test/Simple.pm	2941	3086	
==>des are...

    0                   all tests successful
    255                 test died
    any other number    how many failed (including miss <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	997	1110	
==>EFT};  }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	1005	1118	
==>EFT};  }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854385	854663	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855273	855551	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856162	856440	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857051	857329	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	47826	47925	
==>");
			my $implicit = $rule->nextimplicit;
			$self->_generate("$implicit : $code",$replace,1);
			m <==
5	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1464	1563	
==>t it be an option whether a given subclass even wants little treelets?


__END__

=head1 NAME

Pod:: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404642	404736	
==>n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\n    {{+=4}};\n" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405554	405648	
==>n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\n    {{+=4}};\n" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406466	406560	
==>n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\n    {{+=4}};\n" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407379	407473	
==>n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\n    {{+=4}};\n" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215075	215336	
==>interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216016	216277	
==>interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216955	217216	
==>interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217895	218156	
==>interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, <==
5	/Users/nnunley/parrot/lib/Test/More.pm	26911	27066	
==>y $val = $vals[$idx];
        $vals[$idx] = !defined $val ? 'undef'          :
                      $val eq $DNE  ? "Does not exist" :
	              ref $ <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	3741	3853	
==>s linked to.

=cut

sub process_code_start_token
{
    my $self = shift;
    my $token = shift;
    my $tagname = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854994	855105	
==>\"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855883	855994	
==>\"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856772	856883	
==>\"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857662	857773	
==>\"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [ <==
5	/Users/nnunley/parrot/config/auto/msvc.pm	832	939	
==>ints-file
    # callbacks that depend on knowing whether or not we're using Visual C++.

    # This key shou <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3148	3244	
==>P0} = ${STYPES}[stack_depth]

# Do we have anything on the lazy moves stack?
${ITEMP0} = elements <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4906	5002	
==>P0} = ${STYPES}[stack_depth]

# Do we have anything on the lazy moves stack?
${ITEMP0} = elements <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7833	7929	
==>P0} = ${STYPES}[stack_depth]

# Do we have anything on the lazy moves stack?
${ITEMP0} = elements <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8689	8785	
==>P0} = ${STYPES}[stack_depth]

# Do we have anything on the lazy moves stack?
${ITEMP0} = elements <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27334	27435	
==>r the instruction, just take that. If not, we need
		# to generate it from the "to generate" instructi <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29801	29902	
==>r the instruction, just take that. If not, we need
		# to generate it from the "to generate" instructi <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33219	33320	
==>r the instruction, just take that. If not, we need
		# to generate it from the "to generate" instructi <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34473	34574	
==>r the instruction, just take that. If not, we need
		# to generate it from the "to generate" instructi <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36883	36984	
==>r the instruction, just take that. If not, we need
		# to generate it from the "to generate" instructi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19202	19375	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19978	20151	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20756	20929	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21556	21729	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARG <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	363	459	
==>e base qw(Jako::Construct::Declaration);

use Jako::Symbol;
use Jako::Construct::Type;


#
# new( <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1443	1548	
==>>indent;
      $self->SUPER::compile($compiler);
      $compiler->outdent;
      $compiler->emit(".endname <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1799	1904	
==>>indent;
      $self->SUPER::compile($compiler);
      $compiler->outdent;
      $compiler->emit(".endname <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1240	1345	
==>>indent;
      $self->SUPER::compile($compiler);
      $compiler->outdent;
      $compiler->emit(".endname <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1548	1653	
==>>indent;
      $self->SUPER::compile($compiler);
      $compiler->outdent;
      $compiler->emit(".endname <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	646	745	
==>>indent;
    $self->SUPER::compile($compiler);
    $compiler->outdent;
    $compiler->emit(".endname <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727611	727887	
==>\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	728408	728684	
==>\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729202	729478	
==>\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730002	730278	
==>\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Ops.pm	591	680	
==>html', '',
		$self->new_group('Tools', '',
			$self->new_item('', 'tools/build/ops2c.pl'), <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	28645	28770	
==>$treelet->[$i]}\n";
        
      # bitch UNLESS it's empty
      unless(  @{$treelet->[$i]} == 2
           or (@{$treelet-> <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664226	664464	
==>YPE" => "inline",
                  "CODE" => 742,
                  "ARGS" => [
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 354 \"src/ops/pmc.ops\ <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2080	2171	
==>YPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_sho <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3332	3423	
==>YPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_sho <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5961	6052	
==>YPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_sho <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6519	6610	
==>YPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_sho <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324167	324409	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324959	325201	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325752	325994	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326542	326784	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327343	327585	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841214	841590	
==>",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 954,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#l <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540350	540450	
==>" => "#line 1022 \"src/ops/math.ops\"\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541602	541702	
==>" => "#line 1022 \"src/ops/math.ops\"\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542854	542954	
==>" => "#line 1022 \"src/ops/math.ops\"\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\ <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26284	26381	
==>e->{'code'} eq $_ } @need_enum_fix) {
        $pre_translate_code = <<'PIR'
(${STEMP0}, ${STACK0}, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572434	572699	
==>MP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573343	573608	
==>MP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574253	574518	
==>MP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575056	575321	
==>MP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	55300	55405	
==>code =~ s/\A\s*<defer:(.*)>\Z/$1/s;
				if ($code =~ /\A\s*[^{]|[^}]\s*\Z/)
				{
					$code = "{ $code }" <==
5	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1906	2026	
==>inmode F;
    $_ = <F>;
    close F;

    my @c = split '';
    die "'$image_file' is truncated. Remove it and rerun make <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344305	344392	
==>string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345547	345634	
==>string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346789	346876	
==>string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348032	348119	
==>string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21493	21601	
==>rn;
}

sub _op_positive_p {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	40792	40896	
==>__max_lengths {
  my $colref = shift;
  my @max_len=(0)x3;
  for my $row(@$colref) {
    for(0..$#{$row}) <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	55	148	
==>e Pod::Simple::PullParserToken ();
@ISA = ('Pod::Simple::PullParserToken');
use strict;

sub n <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	57	150	
==>e Pod::Simple::PullParserToken ();
@ISA = ('Pod::Simple::PullParserToken');
use strict;

sub n <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	56	149	
==>e Pod::Simple::PullParserToken ();
@ISA = ('Pod::Simple::PullParserToken');
use strict;

sub n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596749	597069	
==>"i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 676,
                  "ARGS" => [
                              "p",
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 337 \"src/o <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	904	1000	
==>ibutes => { kind => $self->kind } });
  $_->sax($handler) foreach $self->content;
  $handler->end <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1917	2013	
==>ibutes => { kind => $self->kind } });
  $_->sax($handler) foreach $self->content;
  $handler->end <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2711	2807	
==>ibutes => { kind => $self->kind } });
  $_->sax($handler) foreach $self->content;
  $handler->end <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21831	21927	
==>$self->_add_inst("DONE_$label");
  return $return;
}

sub _op_negative_p {
  my ($self,$node) = @ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2835	2962	
==>['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P13', 'P16[0]'],
  ['',            'bsr', 'apply <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72658	72745	
==>TR(Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74260	74347	
==>TR(Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75862	75949	
==>TR(Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77465	77552	
==>TR(Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_c <==
5	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	12970	13082	
==>>
            </td>
            <td class="leftsep"><tmpl_var name=timestamp></td>
			<td class="leftsep"><tmpl_v <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27457	27569	
==>.= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29924	30036	
==>.= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33342	33454	
==>.= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34596	34708	
==>.= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37006	37118	
==>.= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	4311	4433	
==>->{result}->{symbol}, $op->{arg1}, $op->{arg2}\n";
        }
        else {
            print {$FH} "  new $op->{result} <==
5	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	11130	11235	
==>to rmdir ' . $_[0]->path . ": $!";
    
    $_[0]->SUPER::delete;
}

=item C<delete_contents()>

Deletes t <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	105	200	
==>30T13:40:58.862833Z coke  $

=head1 NAME

Parrot::Pmc2c::Library - PMC to C Code Generation

=he <==
5	/Users/nnunley/parrot/lib/Class/Struct.pm	16322	16449	
==>ount(-5), "\n";
                            # dies due to negative argument!

=item Example 3

The constructor of a generated cl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072464	1072572	
==>n  {{\@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074649	1074757	
==>n  {{\@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076834	1076942	
==>n  {{\@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079020	1079128	
==>n  {{\@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837211	837293	
==>rc/ops/stack.ops\"\n  (void)stack_pop(interpreter, &CONTEXT(interpreter->ctx)->user <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837943	838025	
==>rc/ops/stack.ops\"\n  (void)stack_pop(interpreter, &CONTEXT(interpreter->ctx)->user <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838677	838759	
==>rc/ops/stack.ops\"\n  (void)stack_pop(interpreter, &CONTEXT(interpreter->ctx)->user <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	839409	839491	
==>rc/ops/stack.ops\"\n  (void)stack_pop(interpreter, &CONTEXT(interpreter->ctx)->user <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30214	30337	
==>{
            $curr_open->[-1][1]{'~bitched_about'} = 1;
            $self->whine(
              $curr_open->[-1][1]{'start_ <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	12902	13000	
==>rst
end type
type third
	number as integer
	start as second
end type
dim y as third
t=y.start.narf+ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	243	339	
==>5-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Decla <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	249	345	
==>5-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Decla <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	239	335	
==>5-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Decla <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	249	345	
==>5-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Decla <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492790	493062	
==>({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493551	493823	
==>({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499525	499797	
==>({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500288	500560	
==>({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
5	/Users/nnunley/parrot/tools/build/ops2c.pl	13304	13416	
==>_lib.op_info_table;
    /* store full names */
    for (i = 0; i < ${bs}op_lib.op_count; i++)
        store_op(in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642352	642675	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643240	643563	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644132	644455	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645025	645348	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FL <==
5	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	3525	3632	
==>actual_output = Parrot::Test::slurp_file( $f_out );

            ## tell Test::Builder if the test is marked <==
5	/Users/nnunley/parrot/tools/dev/parrotbench.pl	5101	5211	
==>nch;

# List Names Of Benchmarks With Pretty Output
if ( $cfg{list_only} ) {
    my @rows;
    push @rows, [ 'B <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2090	2182	
==>k_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEM <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3342	3434	
==>k_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEM <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5971	6063	
==>k_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEM <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6529	6621	
==>k_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEM <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	605	711	
==>fix) {
    $prefix = $self->prefix;
  }
  else {
    $prefix = $self->peer ? $peer->prefix : $compiler->blo <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	585	691	
==>fix) {
    $prefix = $self->prefix;
  }
  else {
    $prefix = $self->peer ? $peer->prefix : $compiler->blo <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1616	1708	
==>= $self->right;

  my $dest_sym = $block->find_symbol($dest->value);
  $self->SYNTAX_ERROR("A <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1574	1666	
==>= $self->right;

  my $dest_sym = $block->find_symbol($dest->value);
  $self->SYNTAX_ERROR("A <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1496	1588	
==>= $self->right;

  my $dest_sym = $block->find_symbol($dest->value);
  $self->SYNTAX_ERROR("A <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186068	186362	
==>2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186998	187292	
==>2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187928	188222	
==>2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193607	193901	
==>2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194586	194880	
==>2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
5	/Users/nnunley/parrot/lib/Parrot/Test.pm	5269	5363	
==>e_f> and runs
language_output_like().  This I<does> set a description for you, so don't pass
on <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960978	961067	
==>STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encodin <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961940	962029	
==>STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encodin <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962902	962991	
==>STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encodin <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963865	963954	
==>STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encodin <==
5	/Users/nnunley/parrot/lib/Parrot/Test.pm	15922	16065	
==>iled with exit code $exit_code")
                  if $exit_code and not $pass;

            unless($ENV{POSTMORTEM}) {
                unlink $ <==
5	/Users/nnunley/parrot/lib/Parrot/Test.pm	18473	18616	
==>iled with exit code $exit_code")
                  if $exit_code and not $pass;

            unless($ENV{POSTMORTEM}) {
                unlink $ <==
5	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	4083	4226	
==>iled with exit code $exit_code")
                  if $exit_code and not $pass;

            unless($ENV{POSTMORTEM}) {
                unlink $ <==
5	/Users/nnunley/parrot/lib/Parrot/Test.pm	25515	25640	
==>iled with exit code $exit_code") if $exit_code and not $pass;

            unless($ENV{POSTMORTEM}) {
                unlink $ <==
5	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	1735	1849	
==>iled with exit code $exit_code")
    if $exit_code and not $pass;

    unless ($ENV{POSTMORTEM}) {
        unlink $ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680953	681250	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681729	682026	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682503	682800	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683278	683575	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "i <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	1260	1366	
==>Required: string (TODO: domain?)
  my $type   = shift; # Optional: TODO: type?
  my $prefix = shift; # Opti <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	174655	174952	
==>num",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	195892	196189	
==>num",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	212626	212923	
==>num",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221181	221478	
==>num",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	229743	230040	
==>num",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964722	964920	
==>"i",
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cc <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849791	849928	
==>"
                            ],
                  "BODY" => "#line 83 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850678	850815	
==>"
                            ],
                  "BODY" => "#line 83 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851565	851702	
==>"
                            ],
                  "BODY" => "#line 83 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852453	852590	
==>"
                            ],
                  "BODY" => "#line 83 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572389	572598	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573298	573507	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574208	574417	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575011	575220	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	35436	35538	
==>al L<...> parsing stuff...
      # "With the ill behavior, with the ill behavior, with the ill behavior <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16404	16508	
==>orth);
      my $op    = $self->forth->text;
      my $right = Jako::Construct::Expression::Value->new($b <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17175	17279	
==>orth);
      my $op    = $self->forth->text;
      my $right = Jako::Construct::Expression::Value->new($b <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17980	18084	
==>orth);
      my $op    = $self->forth->text;
      my $right = Jako::Construct::Expression::Value->new($b <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	239	331	
==>utput_like output_isnt), @Test::More::EXPORT );
@ISA = qw(Exporter Test::More);

sub import { <==
5	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	156	248	
==>utput_like output_isnt), @Test::More::EXPORT );
@ISA = qw(Exporter Test::More);

sub import { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572385	572558	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573294	573467	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574204	574377	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575007	575180	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	1660	1815	
==>0;">
                    $navigation
                </TD>
            </TR>
        </TABLE>
        <DIV CLASS="pod">
HEADER
}

=item C<footer($navigation <==
5	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16879	16986	
==>($_),chr($_)),       # things not apparently needing escaping
       0x20 .. 0x7E ),
  map( (chr($_),sprintf <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72556	72646	
==>s/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  funcptr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74158	74248	
==>s/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  funcptr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75760	75850	
==>s/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  funcptr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77363	77453	
==>s/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  funcptr <==
5	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	6800	6977	
==>($1),
                last;
            s/^\-\-(.*)\n//         # ShortComment
                and $parser->YYData->{lineno}++,
                last;

            s/^(0[Xx] <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950484	950576	
==>"#line 540 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951444	951536	
==>"#line 540 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952404	952496	
==>"#line 540 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953365	953457	
==>"#line 540 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\ <==
5	/Users/nnunley/parrot/languages/dotnet/Configure.pl	3859	3980	
==>stem.DirectoryServices
            System.Drawing.Design
            System.Drawing
            System.EnterpriseServic <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	259	355	
==>:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block::Conditio <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	257	353	
==>:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block::Conditio <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	253	349	
==>:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block::Conditio <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	261	357	
==>:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block::Conditio <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607020	607297	
==>tattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607923	608200	
==>tattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608827	609104	
==>tattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609734	610011	
==>tattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	1596	1708	
==>ssign        { return shift->is('assign');        }
sub is_bit_assign    { return shift->is('bit-assign');    }
s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154311	154614	
==>RROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155214	155517	
==>RROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156118	156421	
==>RROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157022	157325	
==>RROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157927	158230	
==>RROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
5	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	2780	2910	
==>s} })
    {
        # Someone specified tests for me to run.
        return grep { -f $_ } @{ $options{arguments} };
    }
    else <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591622	591713	
==>n\t\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, cl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592832	592923	
==>n\t\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, cl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594042	594133	
==>n\t\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, cl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595253	595344	
==>n\t\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, cl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223627	223807	
==>er(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224569	224749	
==>er(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225509	225689	
==>er(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226450	226630	
==>er(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
5	/Users/nnunley/parrot/tools/dev/install_files.pl	2178	2275	
==>applied before any
metadata tags.

Example: if this line is in the MANIFEST.generated file

  lang <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2866	3004	
==>, name => $op } });
    $left->sax($handler);
    $right->sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_ele <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3540	3678	
==>, name => $op } });
    $left->sax($handler);
    $right->sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_ele <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3630	3768	
==>, name => $op } });
    $left->sax($handler);
    $right->sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_ele <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5415	5545	
==>, name => $op } });
  $left->sax($handler);
  $right->sax($handler);
  $handler->end_element({ Name => 'op' });
  $handler->end_ele <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3478	3608	
==>, name => $op } });
  $left->sax($handler);
  $right->sax($handler);
  $handler->end_element({ Name => 'op' });
  $handler->end_ele <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	339632	339944	
==>ME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340630	340942	
==>ME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341629	341941	
==>ME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342628	342940	
==>ME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
5	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	6157	6312	
==>ITIONED_LINE\(([^)]+)\):(.*)/s) {
                next if $conf->data->get($1);
                $line = $2;
            }
        }

        # interoplate @ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836625	836882	
==>=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837357	837614	
==>=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838091	838348	
==>=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838823	839080	
==>=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" = <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61800	61914	
==>$name = $code;
			my $matchrule = 0;
			if (substr($name,0,1) eq '<')
			{
				$name =~ s/$MATCHRULE\s*//;
				$nam <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915830	916061	
==>,
                              "sc",
                              "sc",
                              "i"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843186	843274	
==>> "#line 45 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@3}});\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844064	844152	
==>> "#line 45 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@3}});\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844942	845030	
==>> "#line 45 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@3}});\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845821	845909	
==>> "#line 45 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@3}});\ <==
5	/Users/nnunley/parrot/tools/build/pmc2c.pl	11155	11263	
==>neno  = 1 + count_newlines($pre);
    $classblock = substr($classblock, 1,-1); # trim out the { }

    my (@m <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8171	8297	
==>eg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } else {
        die "Too ma <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8953	9079	
==>eg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } else {
        die "Too ma <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7824	7950	
==>eg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } else {
        die "Too ma <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8613	8739	
==>eg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } else {
        die "Too ma <==
5	/Users/nnunley/parrot/config/auto/gcc.pm	767	870	
==>ersion, $warns, $ccwarn);
    $ccwarn = $conf->data->get('ccwarn');

    # Set gccversion to undef.  Thi <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6732	6848	
==>DBG>				and	$dbgerror
#DBG>				and	$$errstatus == 0
#DBG>				and	do {
#DBG>					print STDERR "**End of Error recov <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6418	6531	
==>DBG>				and	$dbgerror
#DBG>				and	$$errstatus == 0
#DBG>				and	do {
#DBG>					print STDERR "**End of Error recov <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8605	8717	
==>DBG>			and	$dbgerror
#DBG>			and	$$errstatus == 0
#DBG>			and	do {
#DBG>				print STDERR "**End of Error recov <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8216	8325	
==>DBG>			and	$dbgerror
#DBG>			and	$$errstatus == 0
#DBG>			and	do {
#DBG>				print STDERR "**End of Error recov <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24417	24518	
==>}
		} elsif ($syms[CURR] eq "shared") {
			print "WARNING: SHARED keyword currently ignored\n";
			got <==
5	/Users/nnunley/parrot/tools/dev/symlink.pl	266	372	
==>ng called with a relative path
#	- being called through a symlink
#
# jhi@iki.fi
#

use strict;

use File:: <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	28026	28128	
==>@_;
  my $return;
  my $label     = $self->_gensym();

  $return = $self->_generate($node->{children}[1 <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23306	23404	
==>@_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_generate($node->{children}[1 <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23768	23866	
==>@_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_generate($node->{children}[1 <==
5	/Users/nnunley/parrot/config/auto/funcptr.pm	869	964	
==>ability to cast from void pointers to function
pointers for its JIT support.

Your compiler does <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050089	1050204	
==>],
                  "BODY" => "#line 172 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_e <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051123	1051238	
==>],
                  "BODY" => "#line 172 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_e <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052157	1052272	
==>],
                  "BODY" => "#line 172 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_e <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053192	1053307	
==>],
                  "BODY" => "#line 172 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_e <==
5	/Users/nnunley/parrot/lib/Test/More.pm	23485	23598	
==>less( defined $how_many ) {
        # $how_many can only be avoided when no_plan is in use.
        _carp "todo_sk <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73161	73257	
==>}}, {{\@4}}, F2DPTR(p));\n      PObj_get_FLAGS({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74763	74859	
==>}}, {{\@4}}, F2DPTR(p));\n      PObj_get_FLAGS({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76365	76461	
==>}}, {{\@4}}, F2DPTR(p));\n      PObj_get_FLAGS({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77968	78064	
==>}}, {{\@4}}, F2DPTR(p));\n      PObj_get_FLAGS({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	1852	1941	
==>eturn shift->is('close-bracket'); }
sub is_close_paren   { return shift->is('close-paren') <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610336	610644	
==>}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setat <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611238	611546	
==>}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setat <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612141	612449	
==>}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setat <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613047	613355	
==>}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setat <==
5	/Users/nnunley/parrot/Configure.pl	6347	6448	
==>given lexical analyzer generator
   --yacc=(parser)      Use the given parser generator

   --define=i <==
5	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20230	20326	
==>rwegian (Bokmal)
  2068  Norwegian (Nynorsk)

=back

If you are particularly interested in custom <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377554	377643	
==>c/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378438	378527	
==>c/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379322	379411	
==>c/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380207	380296	
==>c/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{ <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	36953	37050	
==>irective %s (Handled: %s)\n",
         $para->[0], join(' ', sort keys %{$self->{'accept_directive <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73121	73210	
==>set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR(p));\n      PObj_get_FLAGS({{\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74723	74812	
==>set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR(p));\n      PObj_get_FLAGS({{\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76325	76414	
==>set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR(p));\n      PObj_get_FLAGS({{\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77928	78017	
==>set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR(p));\n      PObj_get_FLAGS({{\ <==
5	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	1321	1460	
==>s not found.

=cut

my $dist;

sub new
{
    my $self = shift;
    
    return $dist if defined $dist;
    
    my $path = '.';
    
    whi <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34162	34293	
==>int " Item is of type ", $para->[0], " under $over_type\n";
          
          if($item_type eq 'bullet') {
            # as expec <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035402	1035504	
==>t_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@2}};\n    PMC * const l <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036566	1036668	
==>t_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@2}};\n    PMC * const l <==
5	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1032	1133	
==>& $ARGV[0] =~ /mini/;
$install_parrot = 1 if @ARGV && $ARGV[0] =~ /install/;

print << "EOF";
/* ex: s <==
5	/Users/nnunley/parrot/languages/converter.pl	1155	1259	
==>item[1][0] if defined $item[1][0];
		  $return .= " ( $item[3] )(?) ";
		  $return .= $item[5][0] if defi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332496	332589	
==>reter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333774	333867	
==>reter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335052	335145	
==>reter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336331	336424	
==>reter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377580	377720	
==>= Parrot_fstat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378464	378604	
==>= Parrot_fstat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379348	379488	
==>= Parrot_fstat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380233	380373	
==>= Parrot_fstat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
5	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4084	4176	
==>= (shift, shift);

    unshift @_ => Parrot::Test::PGE::_generate_glob_for($target, $pattern, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084772	1084901	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LAB <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085825	1085954	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LAB <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086878	1087007	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LAB <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087932	1088061	
==>(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LAB <==
5	/Users/nnunley/parrot/config/gen/core_pmcs.pm	2500	2588	
==>rp->vtables[pmc_id]->whoami;
    VTABLE_set_integer_keyed_str(interp, registry, key, pmc_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738010	738210	
==>"ARGS" => [
                              "n",
                              "s"
                            ],
                  "BODY" => "#line 149 \"src/ops/set.ops\"\n  {{\@1}} = string_to_num(int <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	9985	10088	
==>T] ne "(" and $type[CURR] ne "STRING") {
			push(@expr, [ "(", "PUN" ]); # Make sure no-arg funcs have a <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27390	27500	
==>o generate it from the "to generate" instruction directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'} <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29857	29967	
==>o generate it from the "to generate" instruction directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'} <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33275	33385	
==>o generate it from the "to generate" instruction directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'} <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34529	34639	
==>o generate it from the "to generate" instruction directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'} <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36939	37049	
==>o generate it from the "to generate" instruction directive.
		$pir .= "### translation\n";
		if ($rule->{'pir'} <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27600	27691	
==>ir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}") <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30067	30158	
==>ir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}") <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33485	33576	
==>ir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}") <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34739	34830	
==>ir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}") <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37149	37240	
==>ir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}") <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	11049	11160	
==>nly matches undef and nothing else
        my $test = !defined $got && !defined $expect;

        $self->ok($tes <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	11467	11578	
==>nly matches undef and nothing else
        my $test = !defined $got && !defined $expect;

        $self->ok($tes <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135497	135606	
==>1}} = string_bitwise_xor(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136391	136500	
==>1}} = string_bitwise_xor(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137285	137394	
==>1}} = string_bitwise_xor(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4741	4836	
==>symbols()

FOR DEBUGGING ONLY.

Dumps the complete list of symbols visible from this block, incl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591644	591737	
==>sn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=nex <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592854	592947	
==>sn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=nex <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594064	594157	
==>sn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=nex <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595275	595368	
==>sn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=nex <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	928	1040	
==>, val)
# O (fail)
# O (nop)

sub compile {
    my ($self, $expr, $ctx) = @_;
    my ($vals, $types) = Regex::Gram <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24410	24517	
==>n==1) {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $s <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25299	25406	
==>n==1) {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $s <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26309	26416	
==>n==1) {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $s <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27199	27306	
==>n==1) {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067289	1067612	
==>imental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068475	1068798	
==>imental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069661	1069984	
==>imental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070848	1071171	
==>imental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLA <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	631	739	
==>s back in
    $t = $self->add_checks($t, 0, 0);
    # Delete the no-implicit-check marker
    $t = $self->map <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	33336	33468	
==>->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   print <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	34085	34217	
==>->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   print <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	35009	35141	
==>->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   print <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	1228	1339	
==>b output {
    my ($self, $ops, $ctx) = @_;

    if (ref($ops->[0]) eq 'LABEL_COMMENTS') {
        $self->{_labe <==
5	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	957	1061	
==>($CGI->url(-path => 1) =~ /html$/) {
	    print $CGI->header;
	    my $file = $CGI->url(-absolute => 1, - <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1732	1851	
==>");
  $compiler->outdent;
  $compiler->emit(".end");

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11534	11633	
==>uct::Expression::Value->new($block, $self->forth);

      $self->require_semicolon;

      my $arith <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16479	16578	
==>uct::Expression::Value->new($block, $self->forth);

      $self->require_semicolon;

      my $arith <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17250	17349	
==>uct::Expression::Value->new($block, $self->forth);

      $self->require_semicolon;

      my $arith <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18055	18154	
==>uct::Expression::Value->new($block, $self->forth);

      $self->require_semicolon;

      my $arith <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9511	9606	
==>== 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get details of method we're calling.
(${PTEMP <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7025	7120	
==>== 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get details of method we're calling.
(${PTEMP <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5581	5676	
==>== 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get details of method we're calling.
(${PTEMP <==
5	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1813	1902	
==>ly:
    $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopq <==
5	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1916	2005	
==>ly:
    $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopq <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	9011	9174	
==>ined($kid->maxlen())) {
                $kid_guarantee -= $kid->maxlen();
            } else {
                $kid_guarantee = 0;
            }
        }
    } els <==
5	/Users/nnunley/parrot/tools/build/dynclasses.pl	5887	6014	
==>gle group
        my $group = $class->{flags}{group}
          or next;
        ($group) = keys %$group;
        $pmc_group{$pmc <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	6098	6225	
==>gle group
        my $group = $class->{flags}{group}
          or next;
        ($group) = keys %$group;
        $pmc_group{$pmc <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2652	2751	
==>({ Name => 'cond', Attributes => { kind => $cond } });
    $handler->start_element({ Name => 'block' <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3416	3515	
==>({ Name => 'cond', Attributes => { kind => $cond } });
    $handler->start_element({ Name => 'block' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867218	867305	
==>ring_length(interpreter, {{\@2}});\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868184	868271	
==>ring_length(interpreter, {{\@2}});\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869150	869237	
==>ring_length(interpreter, {{\@2}});\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870117	870204	
==>ring_length(interpreter, {{\@2}});\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72947	73050	
==>: \"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74549	74652	
==>: \"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76151	76254	
==>: \"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77754	77857	
==>: \"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{ <==
5	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	2230	2323	
==>um($filename, $ignorePattern)>

Creates a checksum for the specified file. This is used to com <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1770	1874	
==>e

=head1 SYNOPSIS

 use Pod::Simple::Debug (5);  # or some integer

Or:

 my $debuglevel;
 use Pod::Simp <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788348	788645	
==>"set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 89 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789258	789555	
==>"set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 89 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790167	790464	
==>"set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 89 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791077	791374	
==>"set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 89 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791983	792280	
==>"set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 89 <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	4207	4340	
==>= $self->{fh};
        if ( exists $op->{arg2} ) {
            print {$FH}
                "  new $op->{result}->{symbol}, $op->{ar <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080381	1080469	
==>\"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081446	1081534	
==>\"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082511	1082599	
==>\"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083577	1083665	
==>\"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) <==
5	/Users/nnunley/parrot/tools/build/ops2pm.pl	621	718	
==>s>

Do not generate C<#line> directives in the generated C code.

=item C<--renum>

Renumber opcod <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773384	773472	
==>Y" => "#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774294	774382	
==>Y" => "#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775204	775292	
==>Y" => "#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776115	776203	
==>Y" => "#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpre <==
5	/Users/nnunley/parrot/tools/dev/lib_deps.pl	12548	12668	
==>r      string.h
memcmp      string.h
memcpy      string.h
memmove     string.h
memset      string.h
mktime      time.h
mo <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540448	540550	
==>};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541700	541802	
==>};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542952	543054	
==>};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{ <==
5	/Users/nnunley/parrot/config/auto/env.pm	154	249	
==>pm - System Environment

=head1 DESCRIPTION

Determining if the C library has C<setenv()> and C< <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381243	381506	
==>ter, NULL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382255	382518	
==>ter, NULL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383267	383530	
==>ter, NULL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384280	384543	
==>ter, NULL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
5	/Users/nnunley/parrot/config/gen/config_h.pm	256	340	
==>orm-specific configuration
values, F<include/parrot/has_header.h> with platform-speci <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2909	3010	
==>);
    $right->sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3583	3684	
==>);
    $right->sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3673	3774	
==>);
    $right->sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5456	5551	
==>);
  $right->sax($handler);
  $handler->end_element({ Name => 'op' });
  $handler->end_element({ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3519	3614	
==>);
  $right->sax($handler);
  $handler->end_element({ Name => 'op' });
  $handler->end_element({ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	209	306	
==>er.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako: <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	222	319	
==>er.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako: <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	220	317	
==>er.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako: <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	203	300	
==>er.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako: <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	194	291	
==>er.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako: <==
5	/Users/nnunley/parrot/lib/Parrot/Config.pm	8186	8295	
==>bparrot.$(SOVERSION).dylib',
             'libparrot_shared_alias' => 'libparrot.dylib',
             'libparr <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10784	10886	
==>ock

  confess "No block!"        unless defined $self and ref $self and $self->isa("Jako::Construct::B <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4460	4556	
==>ock

  confess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Construct::B <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4967	5063	
==>ock

  confess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Construct::B <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10370	10465	
==>ock

  confess "No block!" unless defined $self and ref $self and $self->isa("Jako::Construct::B <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	10959	11088	
==>o {
        push @{$temps_ref}, "PMC *t_$temp_num;";
        push @{$extra_preamble_ref},
             "t_$temp_num = GET_NCI_P($r <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	9971	10099	
==>o {
        push @{$temps_ref}, "PMC *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_P($r <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	10363	10491	
==>o {
        push @{$temps_ref}, "PMC *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_P($r <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	11562	11690	
==>o {
        push @{$temps_ref}, "PMC* t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_P($r <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	13126	13254	
==>o {
        push @{$temps_ref}, "PMC *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_P($r <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597406	597529	
==>P" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAGS" => ":object <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598452	598575	
==>P" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAGS" => ":object <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599499	599622	
==>P" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAGS" => ":object <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600574	600697	
==>P" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAGS" => ":object <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	3285	3399	
==>lock(-1);
}


#
# push_block()
#
# Push a block on the top of the block stack.
#

sub push_block
{
  my $self = shi <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30562	30702	
==>9
		DEFAULT => -92
	},
	{#State 100
		ACTIONS => {
			"-" => 72,
			"<" => 74,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"*" = <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8068	8200	
==>lback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) = @_;
    } els <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8850	8982	
==>lback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) = @_;
    } els <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7721	7853	
==>lback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) = @_;
    } els <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8510	8642	
==>lback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) = @_;
    } els <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718108	718343	
==>);\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719040	719275	
==>);\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720239	720474	
==>);\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721439	721674	
==>);\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3057	3156	
==>return, 2]);

  return $return;
}

#------------------------------------

my $type_map = {
  INTEGER <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763161	763284	
==>RS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764014	764137	
==>RS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764867	764990	
==>RS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765721	765844	
==>RS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  " <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	20188	20291	
==>1, TRUE, $_[1] ]); }
	],
	[#Rule 18
		 'expr', 3,
sub
#line 127 "lib/Regex/Grammar.y"
{ return op('multi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777048	777135	
==>ps/set.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777957	778044	
==>ps/set.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778866	778953	
==>ps/set.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779776	779863	
==>ps/set.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, { <==
5	/Users/nnunley/parrot/config/auto/cgoto.pm	1124	1207	
==>F',
$(OPS_DIR)/core_ops_cg$(O): $(GENERAL_H_FILES) $(OPS_DIR)/core_ops_cg.c
$(OPS_DI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381297	381604	
==>\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382309	382616	
==>\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383321	383628	
==>\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384334	384641	
==>\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek" <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	41067	41159	
==>TYPE *attrib_array = PMC_data(pmc);
    PMC *attr = get_attrib_num(attrib_array, POD_FIRST_AT <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18474	18572	
==>m();

  $return = $self->_constant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19187	19285	
==>m();

  $return = $self->_constant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19675	19773	
==>m();

  $return = $self->_constant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20164	20262	
==>m();

  $return = $self->_constant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20653	20751	
==>m();

  $return = $self->_constant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for <==
5	/Users/nnunley/parrot/config/gen/icu.pm	2611	2728	
==>d;
        print "headers='$icuheaders'\n"  if defined $icuheaders;
    }

    if ($without) {
        $conf->data->se <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332521	332618	
==>{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  / <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333799	333896	
==>{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  / <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335077	335174	
==>{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  / <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336356	336453	
==>{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  / <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17024	17153	
==>dLiteral( $parser, $idf, 'key' );
                push @opcodes, @{ $key->[1] };
                $result = new_tmp( $parser, 'pm <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467626	467718	
==>{{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468497	468589	
==>{{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477049	477141	
==>{{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477945	478037	
==>{{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802863	803160	
==>FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 906,
                  "ARGS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467584	467680	
==>ath.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468455	468551	
==>ath.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477007	477103	
==>ath.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477903	477999	
==>ath.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	7388	7570	
==>tion or pir is allowed in rule " .
                    "$rule->{'name'}\n";
            } else {
                $has_trans = 1;
            }
        }

		# typeinfo
        elsif (/ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	702	794	
==>is not!"  unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type (" . ref <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	577	668	
==>is not!" unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type (" . ref <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	586	676	
==>is not!" unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type (". ref <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	568	658	
==>is not!" unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type (". ref <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2773	2874	
==>_pop()>.

=cut

sub expr_address
{
    my ($self, $addr) = @_;
    return "opcode_to_prederef(interpre <==
5	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1289	1386	
==>$self->{builder}->diag("'$cmd' failed with exit code $exit_code")
        if $exit_code and not $p <==
5	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1330	1427	
==>$self->{builder}->diag("'$cmd' failed with exit code $exit_code")
        if $exit_code and not $p <==
5	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2453	2548	
==>$self->{builder}->diag("'$cmd' failed with exit code $exit_code")
      if $exit_code and not $p <==
5	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	1702	1795	
==>$self->{builder}->diag("'$cmd' failed with exit code $exit_code")
    if $exit_code and not $p <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14776	15012	
==>S" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS",
                  "NAME" => "jump",
                  "FLAG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766563	766666	
==>UM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767416	767519	
==>UM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768269	768372	
==>UM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769123	769226	
==>UM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{ <==
5	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	15378	15501	
==>doing the ops.
    .local pmc iter1, iter2
    iter1 = new .Iterator, op1
    iter2 = new .Iterator, op2
  loop:    
    unl <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	14062	14161	
==>ps::Tree::classpieces::reftree {
    my $op = shift;
    return annotated($op, "classpieces " . $op- <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344485	344575	
==>1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345727	345817	
==>1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346969	347059	
==>1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348212	348302	
==>1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763157	763261	
==>ISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764010	764114	
==>ISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764863	764967	
==>ISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765717	765821	
==>ISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\ <==
5	/Users/nnunley/parrot/editor/kate_syntax.pl	4707	4805	
==>har attribute="SpChar" context="#stay" />
          <RegExpr attribute="String Interp" context="#po <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303385	303804	
==>"",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 353,
                  "ARGS" => [
                              "i",
                              "s",
                              "sc"
                            ], <==
5	/Users/nnunley/parrot/examples/benchmarks/mops.pl	934	1185	
==>t  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, I1
                              #
print "Estimated ops: $I5\n"; # print  "Est <==
5	/Users/nnunley/parrot/examples/mops/mops.pl	934	1185	
==>t  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, I1
                              #
print "Estimated ops: $I5\n"; # print  "Est <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066701	1066949	
==>91,
                  "ARGS" => [
                              "i",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 49 \"src/ops/experimental.ops\"\n\n  FLOATVAL <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11750	11842	
==>["type"]
printerr type
printerr " "
inc j
goto PTYPES_LOOP
PTYPES_LOOP_END:
printerr "\\n"
pr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88746	88955	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89483	89692	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90221	90430	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91074	91283	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91928	92137	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960355	960598	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961316	961559	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962278	962521	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963240	963483	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
5	/Users/nnunley/parrot/config/gen/platform.pm	138	230	
==>ME

config/gen/platform.pm - Platform Files

=head1 DESCRIPTION

Moves the various platform-s <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6098	6250	
==>MethOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  ";
        if ( exists $op->{result <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1487	1620	
==>int STDERR "pbcc: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
        return "return (0);"
    }
    else
    {
        return <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2012	2144	
==>int STDERR "pbcc: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
        return "return (0);"
    }
    else
    {
  	    return <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1903	2034	
==>int STDERR "pbcc: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
  	    return "return (0);"
    }
    else
    {
  	    return <==
5	/Users/nnunley/parrot/config/init/hints/darwin.pm	1505	1619	
==>HARE_EXT)',
        # This variable needs renaming to be more general
        # XXX ugly hack for rpath_lib in conf <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8031	8134	
==>defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_symbol($name);

  return $ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8678	8781	
==>defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_symbol($name);

  return $ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9346	9449	
==>defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_symbol($name);

  return $ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10015	10118	
==>defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_symbol($name);

  return $ <==
5	/Users/nnunley/parrot/tools/dev/parrot_api.pl	502	593	
==>> (the
API is detected using pattern C</^\w+\s+(Parrot_\w+)\(/>), then finds
out the visible <==
5	/Users/nnunley/parrot/tools/dev/nm.pl	3815	3909	
==>rsus "R")
--help|-h	show this help
--version|-v	show version
All the options can be shortened t <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381102	381192	
==>s/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset({{\@2} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382114	382204	
==>s/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset({{\@2} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383126	383216	
==>s/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset({{\@2} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384139	384229	
==>s/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset({{\@2} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544514	544636	
==>a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n gcd = b<<p;\n saved_var1 /= gcd;\n {{\@1}} = saved_va <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545850	545972	
==>a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n gcd = b<<p;\n saved_var1 /= gcd;\n {{\@1}} = saved_va <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547186	547308	
==>a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n gcd = b<<p;\n saved_var1 /= gcd;\n {{\@1}} = saved_va <==
5	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	4835	4941	
==>unless iter goto iter_end
  iter_loop:
    old_type = value_type
    value = shift iter
    bsr print_value <==
5	/Users/nnunley/parrot/config/auto/perldoc.pm	196	289	
==>ad1 DESCRIPTION

Determines whether perldoc exists on the system.

=cut

package auto::perldoc <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655801	656078	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656724	657001	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657648	657925	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658566	658843	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
5	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10930	11034	
==>];
  my $fh = $self->{'output_fh'};
  return print $fh join '',
    $self->doc_init,
    $self->font_tabl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449158	449365	
==>inline",
                  "CODE" => 514,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 190 \"src/ops/math.ops\"\n  {{\@1}}- <==
5	/Users/nnunley/parrot/lib/Parrot/Config.pm	1963	2049	
==>e-return -Winline -W -Wno-unused -Wsign-compare -Wformat-nonliteral -Wformat-security - <==
5	/Users/nnunley/parrot/tools/build/dynclasses.pl	1283	1369	
==>e-return -Winline -W -Wno-unused -Wsign-compare -Wformat-nonliteral -Wformat-security - <==
5	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1328	1414	
==>e-return -Winline -W -Wno-unused -Wsign-compare -Wformat-nonliteral -Wformat-security - <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	1332	1418	
==>e-return -Winline -W -Wno-unused -Wsign-compare -Wformat-nonliteral -Wformat-security - <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572478	572741	
==>ass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 65 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573387	573650	
==>ass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 65 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574297	574560	
==>ass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 65 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575100	575363	
==>ass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 65 <==
5	/Users/nnunley/parrot/tools/dev/install_files.pl	5326	5422	
==>= File::Spec->catdir($options{buildprefix}, $dest)
      if $options{buildprefix};

    $director <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949978	950275	
==>NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950937	951234	
==>NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951897	952194	
==>NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952857	953154	
==>NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746103	746386	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 840,
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926321	926448	
==>EN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927791	927918	
==>EN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929261	929388	
==>EN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930732	930859	
==>EN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FL <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2088	2202	
==>1], $paras->[-1];
       # So that it definitely fills the buffer.
      $self->{'source_dead'} = 1;
      $self->_ <==
5	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	12682	12805	
==>ter goto done
    
    $P1 = shift iter
    push result, $P1

    dec op1
    goto pos_loop

done:
    .return (result)
.end <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72739	72843	
==>tring_cstring_free(name);\n  if (p == NULLfunc) {\n      const char * err = Parrot_dlerror();\n      Parr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74341	74445	
==>tring_cstring_free(name);\n  if (p == NULLfunc) {\n      const char * err = Parrot_dlerror();\n      Parr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75943	76047	
==>tring_cstring_free(name);\n  if (p == NULLfunc) {\n      const char * err = Parrot_dlerror();\n      Parr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77546	77650	
==>tring_cstring_free(name);\n  if (p == NULLfunc) {\n      const char * err = Parrot_dlerror();\n      Parr <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	3896	4001	
==>el =~ tr/[](){}<>\0-\377/[[(({{<</ds;
	my $rdel = $ldel;
	unless ($rdel =~ tr/[({</])}>/)
        {
		retu <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	816	908	
==>eft, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($right) . ") is not Val <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	654	746	
==>eft, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($right) . ") is not Val <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	807	899	
==>eft, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($right) . ") is not Val <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	696	788	
==>eft, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($right) . ") is not Val <==
5	/Users/nnunley/parrot/config/auto/inline.pm	1297	1439	
==>verbose;
            $self->set_result('no');
            $test   = '';
        }
    }

    $conf->data->set(inline => $test);

    return $se <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067134	1067244	
==>TVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)tem <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068320	1068430	
==>TVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)tem <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069506	1069616	
==>TVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)tem <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070693	1070803	
==>TVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)tem <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107130	107310	
==>> "#line 167 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107984	108164	
==>> "#line 167 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108838	109018	
==>> "#line 167 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514034	514172	
==>"n"
                            ],
                  "BODY" => "#line 708 \"src/ops/math.ops\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATV <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514914	515052	
==>"n"
                            ],
                  "BODY" => "#line 708 \"src/ops/math.ops\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATV <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125921	126273	
==>" => 0,
                  "NAME" => "rot",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127055	127407	
==>" => 0,
                  "NAME" => "rot",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128190	128542	
==>" => 0,
                  "NAME" => "rot",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
5	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	669	774	
==>d
}

# XXX we should check for proper nesting

my $block_begin = qr{ ( ^ \.sub | ^push_eh) }smx;

my $bloc <==
5	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7199	7291	
==>_run_command($command, $out, $err)>

Runs the specified command. Output is directed to the fi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842691	842988	
==>=> "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843568	843865	
==>=> "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844446	844743	
==>=> "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845324	845621	
==>=> "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
5	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	1208	1311	
==>h macro we need: name, substitution and flag
# The length is uninteresting later on.
# 
# Example:
# F8, <==
5	/Users/nnunley/parrot/tools/build/jit2c.pl	1470	1569	
==>, "Parrot_jit_fn_info_t _op_jit[$core_numops] = {\n";
    $func_end = '_jit';
    $normal_op = 'Parr <==
5	/Users/nnunley/parrot/lib/Test/Simple.pm	1138	1235	
==>e something goes horribly wrong during the
test and your test program aborts, or skips a test or w <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13162	13383	
==>TR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14006	14227	
==>TR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14710	14931	
==>TR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	15397	15618	
==>TR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => " <==
5	/Users/nnunley/parrot/tools/dev/install_files.pl	3173	3304	
==>'dry-run'   => 0,
              );

my @manifests;
foreach (@ARGV) {
    if (/^--([^=]+)=(.*)/) {
        $options{$1} = $2;
    } e <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51469	51727	
==>"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 66,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 815 \"src/ops/core.ops\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849884	850061	
==>\n  {{\@1}} = string_chopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850771	850948	
==>\n  {{\@1}} = string_chopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851658	851835	
==>\n  {{\@1}} = string_chopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852546	852723	
==>\n  {{\@1}} = string_chopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	28044	28147	
==>, $ar, 'P'];
}

sub BUILD_LIST
{
    BUILD_TUPLE(@_,"ResizablePMCArray")
}
sub BUILD_MAP
{
    my ($n, $ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858641	858734	
==>e arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859645	859738	
==>e arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860649	860742	
==>e arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861654	861747	
==>e arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{ <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27539	27645	
==>, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30006	30112	
==>, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33424	33530	
==>, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34678	34784	
==>, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37088	37194	
==>, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939785	940084	
==>" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940676	940975	
==>" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941568	941867	
==>" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942460	942759	
==>" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3326	3502	
==>parent block!" if $self->find_symbol($name);

  $self->{SYMBOLS}{$name} = $sym;
}


###############################################################################

=head2 BLOCK <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	38337	38493	
==>L<"> !
              @section_name == 1 and $section_name[0] eq '"'
            )
          ) {
            $section_name[ 0] =~ s/^\"//s;
            $secti <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1102	1214	
==>ht,

    DEBUG => 1,
    FILE  => $dest->file,
    LINE  => $dest->line
  }, $class;

  $block->push_content($sel <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1093	1205	
==>ht,

    DEBUG => 1,
    FILE  => $dest->file,
    LINE  => $dest->line
  }, $class;

  $block->push_content($sel <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	982	1094	
==>ht,

    DEBUG => 1,
    FILE  => $dest->file,
    LINE  => $dest->line
  }, $class;

  $block->push_content($sel <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	782	873	
==>, 'Jako::Construct::Block');
  confess "Left is not Value!" unless UNIVERSAL::isa($left, 'Ja <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	794	885	
==>, 'Jako::Construct::Block');
  confess "Left is not Value!" unless UNIVERSAL::isa($left, 'Ja <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5877	6053	
==>ol}";
            if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                print {$FH} " :flat";
            }
            $first = 0;
        }
        pr <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6972	7148	
==>ol}";
            if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                print {$FH} " :flat";
            }
            $first = 0;
        }
        pr <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	9886	10062	
==>ol}";
            if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                print {$FH} " :flat";
            }
            $first = 0;
        }
        pr <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	36950	37046	
==>> \&_op_char_lower_case_p,
  'char->integer'    => \&_op_char_integer,
  'integer->char'    => \& <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	3781	3873	
==>ion.
# By default, all calls are propagated to the subexpression.
package Regex::Ops::Tree::_ <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	22046	22229	
==>= (
                   aop('pushint', [ 0 ]),
          $loop => @R_ops,
                   aop('pushint', [ 1 ]),
                   aop('goto', [ $loop ]),
          $back => $self-> <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692761	692927	
==>"i",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693761	693927	
==>"i",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694761	694927	
==>"i",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695762	695928	
==>"i",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1 <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	25079	25183	
==>() doesn't like getting undef
           UNIVERSAL::can((tied($maybe_fh) || ''), 'TIEHANDLE');
}


sub _a <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	597	723	
==>) . ']' }

# JUNK:

sub _esc {
  return '' unless @_;
  my @out;
  foreach my $in (@_) {
    push @out, '"' . $in . '"';
    $o <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72582	72671	
==>st name = string_to_cstring(interpreter, ({{\@3}}));\n\n  funcptr_t p = D2FPTR(Parrot_dlsy <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74184	74273	
==>st name = string_to_cstring(interpreter, ({{\@3}}));\n\n  funcptr_t p = D2FPTR(Parrot_dlsy <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75786	75875	
==>st name = string_to_cstring(interpreter, ({{\@3}}));\n\n  funcptr_t p = D2FPTR(Parrot_dlsy <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77389	77478	
==>st name = string_to_cstring(interpreter, ({{\@3}}));\n\n  funcptr_t p = D2FPTR(Parrot_dlsy <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215089	215351	
==>{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216030	216292	
==>{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216969	217231	
==>{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217909	218171	
==>{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ) <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	17521	17615	
==>s]{'offset'}{'from'} += length($1);
		$itempos[$#itempos]{'line'}{'from'}   = $thisline;
		$ite <==
5	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	553	664	
==>cflags);

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread' <==
5	/Users/nnunley/parrot/config/init/hints/irix.pm	498	609	
==>cflags);

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread' <==
5	/Users/nnunley/parrot/config/init/hints/netbsd.pm	291	402	
==>cflags);

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread' <==
5	/Users/nnunley/parrot/config/init/hints/openbsd.pm	383	494	
==>cflags);

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread' <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	125	222	
==>hard  $

=head1 NAME

Parrot::OpTrans::C - Ops to C Code Generation

=head1 DESCRIPTION

C<Parrot: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382838	383126	
==>,
                  "TYPE" => "function",
                  "CODE" => 447,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 455 \"src/ops <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	4861	4973	
==>[CURR] !~ /COMP|COMM|STMT/) {
		die if $loop++>255;
		if ($syms[CURR] eq ",") {
			feedme();
			next;
		}
		die " <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	572	664	
==>See L<Pod::Simple::PullParser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Po <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	991	1083	
==>See L<Pod::Simple::PullParser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Po <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	478	570	
==>See L<Pod::Simple::PullParser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Po <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11324	11418	
==>NTERP\b/interpreter/g;

    return $_;
}

=item C<rewrite_vtable_method($class, $method, $super <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344239	344329	
==>ng_to_cstring(interpreter, {{\@2}});\n  const char * const mode = string_to_cstring(interpr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345481	345571	
==>ng_to_cstring(interpreter, {{\@2}});\n  const char * const mode = string_to_cstring(interpr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346723	346813	
==>ng_to_cstring(interpreter, {{\@2}});\n  const char * const mode = string_to_cstring(interpr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347966	348056	
==>ng_to_cstring(interpreter, {{\@2}});\n  const char * const mode = string_to_cstring(interpr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657731	658052	
==>AME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 735,
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655884	656183	
==>AME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 73 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656807	657106	
==>AME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 73 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658649	658948	
==>AME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 73 <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	52279	52391	
==>recursor
  my($lol, $to) = @_;
  use UNIVERSAL ();
  for(my $i = 2; $i < @$lol; ++$i) {
    if( ref($lol->[$i] || <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4863	4966	
==>}

=item C<goto_offset($offset)>

Transforms the C<goto OFFSET($offset)> macro in an ops file into the
r <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1808	1911	
==>}

=item C<goto_offset($offset)>

Transforms the C<goto OFFSET($offset)> macro in an ops file into the
r <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2457	2560	
==>}

=item C<goto_offset($offset)>

Transforms the C<goto OFFSET($offset)> macro in an ops file into the
r <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2176	2279	
==>}

=item C<goto_offset($offset)>

Transforms the C<goto OFFSET($offset)> macro in an ops file into the
r <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2137	2240	
==>}

=item C<goto_offset($offset)>

Transforms the C<goto OFFSET($offset)> macro in an ops file into the
r <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1532	1686	
==>Op {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = $op <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2192	2346	
==>Op {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = $op <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2628	2782	
==>Op {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = $op <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2432	2573	
==>Op {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  $op->{result}->{symbol} = $op <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	4878	5019	
==>Op {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  $op->{result}->{symbol} = $op <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	337734	338044	
==>FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 395,
                  "ARGS" => [
                              "p"
                            ],
                  " <==
5	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	8860	8967	
==>d print "No content seen in search for title.\n";
    return;
  }
  $self->{'Title'} = $title;

  esc($title <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2738	2833	
==>ined $dest_type;
  $self->INTERNAL_ERROR("No type for left!")  unless defined $left_type;
  $sel <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2504	2599	
==>ined $dest_type;
  $self->INTERNAL_ERROR("No type for left!")  unless defined $left_type;
  $sel <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2426	2521	
==>ined $dest_type;
  $self->INTERNAL_ERROR("No type for left!")  unless defined $left_type;
  $sel <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598222	598474	
==>ss;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599269	599521	
==>ss;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600344	600596	
==>ss;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDR <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8550	8660	
==>[-1][0]]{GOTOS}{$lhs}.\n";

#DBG>				$debug & 0x10
#DBG>			and	$dbgerror
#DBG>			and	$$errstatus == 0
#DBG <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8164	8269	
==>[-1][0]]{GOTOS}{$lhs}.\n";

#DBG>				$debug & 0x10
#DBG>			and	$dbgerror
#DBG>			and	$$errstatus == 0
#DBG <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	793	904	
==>y $left;
  my $op;
  my $right;

  if ($kind eq 'if' or $kind eq 'unless') {
    $left  = $self->left->compile($ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066963	1067065	
==>OATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068149	1068251	
==>OATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069335	1069437	
==>OATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070522	1070624	
==>OATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 <==
5	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	6613	6734	
==>op2

    if op1 == 0 goto nothing
    if op1 <  0 goto neg
pos:
    unless op1 goto done
    # shift off the beginning and <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17164	17283	
==>ably that won't work right
        #  under non-ASCII charsets.  Something should be done about that.
    }
    
    ret <==
5	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2157	2263	
==>ably that won't work right
    #  under non-ASCII charsets.  Something should be done about that.
  }
  ret <==
5	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10580	10686	
==>ably that won't work right
    #  under non-ASCII charsets.  Something should be done about that.
  }
  ret <==
5	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2260	2366	
==>ably that won't work right
    #  under non-ASCII charsets.  Something should be done about that.
  }
  ret <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	5299	5402	
==>rops;

  if (exists $props{op}) {
    my $oplib = $props{oplib} ? $props{oplib}->value : 'CORE'; # TODO: <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4852	4949	
==>elf->current_block;

      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11343	11440	
==>elf->current_block;

      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11890	11987	
==>elf->current_block;

      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12433	12530	
==>elf->current_block;

      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22647	22743	
==>elf->current_block;
      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	22977	23096	
==>lot
    if ($self->{flags}{dynpmc}) {
        $cout .= <<"EOC";
        vt_clone->base_type = entry;
        vt_clone->w <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084766	1084875	
==>splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085819	1085928	
==>splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086872	1086981	
==>splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087926	1088035	
==>splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	725481	725756	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clone",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726242	726517	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clone",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812690	812965	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clone",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	332	428	
==>struct::Block::Loop::Continue;

use Carp;

use base qw(Jako::Construct::Block::Loop);


#
# new() <==
5	/Users/nnunley/parrot/config/auto/cgoto.pm	186	279	
==>1 DESCRIPTION

Determines whether the compiler supports computed C<goto>.

=cut

package auto: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467789	468079	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "A <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468660	468950	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "A <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469534	469824	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "A <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470409	470699	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "A <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	9605	9704	
==>rldoc Encode::Supported

  require Pod::Simple::Transcode;

  if( $self->{'encoding'} ) {
    my $no <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88622	88910	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90950	91238	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91804	92092	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARG <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9949	10046	
==>on::Value->new($block, $self->require_value);

      $self->require_close_paren;
      $self->requ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25485	25582	
==>on::Value->new($block, $self->require_value);

      $self->require_close_paren;
      $self->requ <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	2716	2843	
==>t_dis {
    my ($cmd, $f) = @_;
    @dis = qx($cmd $f);
    print @dis if $opt{d};
}

sub get_source {
    my ($f) = @_;
    ope <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766499	766601	
==>ine 335 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767352	767454	
==>ine 335 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768205	768307	
==>ine 335 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769059	769161	
==>ine 335 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610387	610690	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":objec <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611289	611592	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":objec <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612192	612495	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":objec <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613098	613401	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":objec <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	7274	7448	
==>t],
                    'arg1'   => $fct,
                    'arg2'   => [ $result, $num_key, $callop->{result}[0] ],
                );
                push @opcodes2, n <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3259	3355	
==>'sc' => "CONST(%ld)->u.string",
    'kc' => "CONST(%ld)->u.key",
    'kic' => "cur_opcode[%ld]"
) <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4130	4225	
==>et type (so we can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign register name <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2546	2641	
==>et type (so we can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign register name <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1856	1951	
==>et type (so we can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign register name <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2167	2261	
==>'sc'  => "CONST(%ld)->u.string",
  'kc'  => "CONST(%ld)->u.key",
  'kic' => "cur_opcode[%ld]"
) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852651	852954	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855102	855405	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855991	856294	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856880	857183	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem", <==
5	/Users/nnunley/parrot/tools/build/ops2c.pl	2931	3030	
==>t used
my $prefix  = $trans->prefix();
my $suffix  = $trans->suffix();
# Used as ${defines}
my $defi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516684	516919	
==>/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517423	517658	
==>/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518161	518396	
==>/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518900	519135	
==>/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	2386	2486	
==>FILES{$package} }, $entry;
}

while (my ($package, $files) = each %FILES) {
    my $manifest = "MANIF <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084104	1084438	
==>UMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085156	1085490	
==>UMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086209	1086543	
==>UMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087262	1087596	
==>UMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77279	77380	
==>($;$$)
{
	$tracemsg      = $_[0];
	$tracecontext  = $_[1]||$lastcontext;
	$tracerulename = $_[2]||$las <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476474	476718	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477369	477613	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478265	478509	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479156	479400	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 " <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	22358	22461	
==>/Regex/Grammar.y"
{ return [ 'neg', [] ]; }
	],
	[#Rule 39
		 'classpieces', 2,
sub
#line 170 "lib/Regex <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100463	100754	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ": <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101896	102187	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ": <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102667	102958	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ": <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	410099	410201	
==>t = {{\@3}};\n    {{\@1}} = (INTVAL)PIO_recv(interpreter, {{\@2}}, &dest);\n    {{\@3}} = dest;\n    {{ <==
5	/Users/nnunley/parrot/tools/build/ops2pm.pl	2148	2250	
==>pl>.

=back

=cut

use strict;
use lib 'lib';

use Data::Dumper;
$Data::Dumper::Useqq  = 1;
#$Data::Dum <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16695	16963	
==>> [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	17469	17737	
==>> [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18264	18532	
==>> [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443626	443733	
==>= mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABEL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444641	444748	
==>= mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABEL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54909	55226	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55669	55986	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56430	56747	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57192	57509	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57953	58270	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDI <==
5	/Users/nnunley/parrot/config/gen/makefiles.pm	5645	5792	
==>akefiles/ook.in' => 'languages/ook/Makefile',
        commentType                   => '#',
        replace_slashes               => 1
    );
    ge <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8127	8255	
==>s', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback d <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8909	9037	
==>s', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback d <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7780	7908	
==>s', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback d <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8569	8697	
==>s', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback d <==
5	/Users/nnunley/parrot/tools/build/c2str.pl	4984	5085	
==>ore preprocessor
  next unless s/.*\b_S\b//;

  my $str = extract_bracketed $_, '(")';

  print output <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6766	6900	
==>ed tokens, including the end token.
    
    while ( 1 )
    {
        push @to_unget, $self->get_token;
        
        last if $to_u <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	3556	3651	
==>s
sub minlen { confess "unimplemented" }
sub maxlen { confess "unimplemented" }
sub startset { c <==
5	/Users/nnunley/parrot/lib/Parrot/Config.pm	1880	1964	
==>Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwrite-strings -Waggregate- <==
5	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1245	1329	
==>Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwrite-strings -Waggregate- <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	1249	1333	
==>Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwrite-strings -Waggregate- <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314408	314721	
==>",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 367,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 67 \" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344513	344660	
==>}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345755	345902	
==>}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346997	347144	
==>}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348240	348387	
==>}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tests.pm	260	356	
==>s;

=head1 DESCRIPTION

A documentation section describing Parrot tests.

=head2 Class Methods

= <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356714	356954	
==>\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printe <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357374	357614	
==>\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printe <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358037	358277	
==>\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printe <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358701	358941	
==>\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printe <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38092	38221	
==>7,
			"(" => 48,
			"." => 49,
			'STRING' => 44,
			"{" => 38
		},
		DEFAULT => -84,
		GOTOS => {
			'tableconstructor' = <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	4206	4317	
==>args) {
      my ($arg_type, $arg_name) = @$arg;
      my $imcc_type = $arg_type->imcc;

      $compiler->emit(" <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	2008	2113	
==>args) {
    my ($arg_type, $arg_name) = @$arg;
    my $imcc_type = $arg_type->imcc;

    $compiler->emit(" <==
5	/Users/nnunley/parrot/lib/Test/More.pm	1630	1724	
==>($this, qr/that/, $test_name);
  unlike($this, qr/that/, $test_name);

  cmp_ok($this, '==', $t <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39162	39253	
==>-output-port'   => \&_op_current_output_port,
  'with-input-to-file'    => \&_op_with_input_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044584	1044752	
==>",
                              "p"
                            ],
                  "BODY" => "#line 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interpreter, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045478	1045646	
==>",
                              "p"
                            ],
                  "BODY" => "#line 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interpreter, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046372	1046540	
==>",
                              "p"
                            ],
                  "BODY" => "#line 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interpreter, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047267	1047435	
==>",
                              "p"
                            ],
                  "BODY" => "#line 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interpreter, {{ <==
5	/Users/nnunley/parrot/config/init/hints/darwin.pm	1244	1347	
==>nst a dynamic libparrot installable_parrot records
        # the path to the blib version of the library <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320036	320308	
==>4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320806	321078	
==>4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322387	322659	
==>4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323159	323431	
==>4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326953	327118	
==>",
                              "n"
                            ],
                  "BODY" => "#line 154 \"src/ops/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_nati <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450949	451242	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451687	451980	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452426	452719	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453164	453457	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453903	454196	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83889	84179	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "A <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84795	85085	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "A <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85701	85991	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "A <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503038	503259	
==>" => 578,
                  "ARGS" => [
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 626 \"src/ops/math.ops\"\n  {{\@1}} *= {{\@2}} <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	2062	2186	
==>>{FH};

  print $fh @_, "\n";
}


#
# compile()
#

sub compile
{
  my $self = shift;

  my ($root, $fh) = @_;

  $fh = FileHa <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	2862	2967	
==>nterpreter, &st, return_data);",
       l => "set_nci_I(interpreter, &st, return_data);",
       s => "set <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175590	175894	
==>"NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176493	176797	
==>"NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177397	177701	
==>"NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178301	178605	
==>"NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179206	179510	
==>"NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905205	905372	
==>,
                              "i"
                            ],
                  "BODY" => "#line 262 \"src/ops/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_st <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906224	906391	
==>,
                              "i"
                            ],
                  "BODY" => "#line 262 \"src/ops/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_st <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30600	30709	
==>efirst($text))
							if defined $::RD_TRACE;').'
		push @item, '.($::RD_NO_HITEM ? ''
			       : '$item{'.$s <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28524	28631	
==>efirst($text))
					if defined $::RD_TRACE;').'
		push @item, '.($::RD_NO_HITEM ? ''
			       : '$item{'.$s <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32803	32909	
==>efirst($text))
							if defined $::RD_TRACE;').'
		push @item, ' . ($::RD_NO_HITEM ? ''
				 : '$item{'.$s <==
5	/Users/nnunley/parrot/config/auto/signal.pm	837	948	
==>urn $self;
    }

    cc_gen('config/auto/signal/test_1.in');
    eval { cc_build(); };
    unless ($@ || cc_run <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050196	1050294	
==>nternal_exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_ge <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051230	1051328	
==>nternal_exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_ge <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052264	1052362	
==>nternal_exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_ge <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053299	1053397	
==>nternal_exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_ge <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262900	263219	
==>P" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263846	264165	
==>P" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264699	265018	
==>P" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265553	265872	
==>P" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266407	266726	
==>P" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	71888	72001	
==>$call'",0,1);
				}
			}
		}

	# CHECK FOR LEFT RECURSION

		if ($rule->isleftrec($rules))
		{
			_error("Rule \"$ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867239	867330	
==>er, {{\@2}});\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868205	868296	
==>er, {{\@2}});\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869171	869262	
==>er, {{\@2}});\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870138	870229	
==>er, {{\@2}});\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018116	1018368	
==>terpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019041	1019293	
==>terpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019971	1020223	
==>terpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020902	1021154	
==>terpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1719	1826	
==>eturns the argument at C<$index>.

=cut

sub arg
{
    my $self = shift;

    return $self->{ARGS}[shift];
} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640175	640460	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640929	641214	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645253	645538	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646149	646434	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
5	/Users/nnunley/parrot/lib/Class/Struct.pm	6485	6597	
==>gs to $name' if \@_ > 1;\n";
            $out .= "    \@_ ? ($pre\$r->$elem$sel = shift$pst) : $pre\$r->$elem$sel <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578085	578374	
==>"i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 660,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 284 \"src/ops/ob <==
5	/Users/nnunley/parrot/tools/build/dynclasses.pl	5930	6058	
==>s}{group}
          or next;
        ($group) = keys %$group;
        $pmc_group{$pmc} = $group;
        push @{ $group_files{$gr <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	6141	6269	
==>s}{group}
          or next;
        ($group) = keys %$group;
        $pmc_group{$pmc} = $group;
        push @{ $group_files{$gr <==
5	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2440	2522	
==>s.c>,
F<examples/mops/mops.cs>,
F<examples/mops/mops.il>,
F<examples/mops/mops.p6>, <==
5	/Users/nnunley/parrot/examples/mops/mops.pl	2440	2522	
==>s.c>,
F<examples/mops/mops.cs>,
F<examples/mops/mops.il>,
F<examples/mops/mops.p6>, <==
5	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	13756	13872	
==>c op2

    # Convert the scalar into a vector and reshape it.
    $P1 = new 'APLVector'
    push $P1, op2
    $P1.'se <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680923	681185	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681699	681961	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682473	682735	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683248	683510	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	10835	10932	
==>MT/) {
		push @{$code{$seg}->{code}}, <<EOASS;
	\$S99 = _READ()
	\$N99= \$S99
EOASS
	($result, $ty <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262898	263197	
==>UMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263844	264143	
==>UMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264697	264996	
==>UMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265551	265850	
==>UMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266405	266704	
==>UMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113660	113900	
==>,
                  "CODE" => 141,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 204 \"src/ops/bit.ops\"\n  {{\@1}} <<= {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926434	926556	
==>} = PObj_get_FLAGS({{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1}} = {{\@2}}->bufuse <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927904	928026	
==>} = PObj_get_FLAGS({{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1}} = {{\@2}}->bufuse <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929374	929496	
==>} = PObj_get_FLAGS({{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1}} = {{\@2}}->bufuse <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930845	930967	
==>} = PObj_get_FLAGS({{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1}} = {{\@2}}->bufuse <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099048	1099159	
==>s/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100246	1100357	
==>s/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101444	1101555	
==>s/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102643	1102754	
==>s/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13772	13876	
==>S]/) {
    $self->_add_inst ('', 'set', [$return,0]);
  }
  else {
    $self->_add_inst ('', 'typeof', [$ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663706	663926	
==>>vtable->delete_keyed(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664478	664698	
==>>vtable->delete_keyed(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	7547	7651	
==>all_state *st, int n)
{
    assert(n < st->src.n);
    Parrot_fetch_arg_nci(interpreter, st);

    return <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	7730	7834	
==>all_state *st, int n)
{
    assert(n < st->src.n);
    Parrot_fetch_arg_nci(interpreter, st);

    return <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	7912	8016	
==>all_state *st, int n)
{
    assert(n < st->src.n);
    Parrot_fetch_arg_nci(interpreter, st);

    return <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934611	934849	
==>ine",
                  "CODE" => 1050,
                  "ARGS" => [
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 435 \"src/ops/string.ops\"\n  {{\ <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8036	8169	
==>elf = shift;

    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($ <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7689	7822	
==>elf = shift;

    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($ <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8819	8951	
==>elf = shift;
    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($ <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8479	8611	
==>elf = shift;
    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769234	769524	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770086	770376	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770939	771229	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771792	772082	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => " <==
5	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9870	9953	
==>HH,$d,$a,$b,$c,$_[8],11,0x4bdecfa9,/* 38 */
HH,$c,$d,$a,$b,$_[11],16,0xf6bb4b60,/* 3 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527805	528039	
==>\"\n  {{\@1}} = atan((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084737	1084829	
==>.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085790	1085882	
==>.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086843	1086935	
==>.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087897	1087989	
==>.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374051	374256	
==>arrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374934	375139	
==>arrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375817	376022	
==>arrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376701	376906	
==>arrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Compilers.pm	674	785	
==>pilers.html', '',
        $self->new_group( 'IMCC', 'the Intermediate Code Compiler for Parrot',
            ' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376159	376458	
==>NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 44 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377043	377342	
==>NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 44 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377926	378225	
==>NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 44 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378810	379109	
==>NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 44 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379694	379993	
==>NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 44 <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19210	19321	
==>n
      and $self->get(2)->is_ident
      and $self->get(3)->is_open_paren
    ) {
      my $block = $self->curr <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25143	25236	
==>num_children = defined $node->{children} ? @{$node->{children}} - 1 : 0;

  if($num_children== <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27043	27136	
==>num_children = defined $node->{children} ? @{$node->{children}} - 1 : 0;

  if($num_children== <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24255	24347	
==>num_children = defined $node->{children} ? @{$node->{children}} - 1 : 0;
  if($num_children== <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26154	26246	
==>num_children = defined $node->{children} ? @{$node->{children}} - 1: 0;

  if($num_children== <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718125	718379	
==>ce(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719057	719311	
==>ce(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720256	720510	
==>ce(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721456	721710	
==>ce(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	15434	15529	
==>=item C<html_link($href, $text)>

Returns an HTML anchor with the specified "href".

=cut

sub h <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	725471	725646	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clone",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726232	726407	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clone",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812680	812855	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clone",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => <==
5	/Users/nnunley/parrot/tools/dev/pbc_header.pl	870	999	
==>_file";
    my @lines = <IN>;
    close IN;

    my $len = 10;
    my $fingerprint = md5 join "\n", grep { ! /^#/ } @lines;
    re <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33366	33465	
==>$_[1]'.qq{$_[0]->{subrule}}}";
	}
	else
	{
		return $_[1].$_[0]->{"subrule"};
	}
}

sub new ($$$$;$$ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597425	597565	
==>ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598471	598611	
==>ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599518	599658	
==>ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600593	600733	
==>ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIR <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	48573	48667	
==>rser->{'output_string'}\n";

    $parser->hide_line_numbers(1);
    $mutor->($parser) if $mutor <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634843	635109	
==>(interpreter, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635961	636227	
==>(interpreter, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637079	637345	
==>(interpreter, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638198	638464	
==>(interpreter, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	3376	3481	
==>(interpreter, &st, return_data);",
       P => "set_nci_P(interpreter, &st, return_data);",
       S => "s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793375	793465	
==>BODY" => "#line 457 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794280	794370	
==>BODY" => "#line 457 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795185	795275	
==>BODY" => "#line 457 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796091	796181	
==>BODY" => "#line 457 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937722	937809	
==>BODY" => "#line 460 \"src/ops/string.ops\"\n  string_titlecase_inplace(interpreter, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5646	5736	
==>>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::Op <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3222	3312	
==>>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::Op <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2950	3040	
==>>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::Op <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4628	4718	
==>>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::Op <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	4012	4102	
==>>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::Op <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855035	855322	
==>, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855924	856211	
==>, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856813	857100	
==>, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857703	857990	
==>, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	28202	28310	
==>->{'content_seen'} ||= 1;
        $self->_handle_element_end( $scratch =
          'over-' . ( (pop @$curr_op <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9818	9919	
==>f, $dest, $src, $offset, $len) = @_;
    return ("substr $dest, $src, $offset, $len");
}

sub output_l <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344317	344409	
==>tring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  /* st <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345559	345651	
==>tring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  /* st <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346801	346893	
==>tring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  /* st <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348044	348136	
==>tring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  /* st <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765978	766151	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766830	767003	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767683	767856	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768536	768709	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	1775	1936	
==>, 1
         goto B2

 to

     B1: sub x, 1
         goto S0
     B2: sub x, 2
         goto S0
     B3: sub x, 3
         goto S0

since this commonly occurs in <==
5	/Users/nnunley/parrot/lib/Parrot/Config.pm	12272	12416	
==>t' => '',
             'sym_import' => '',
             'test_prog' => 'parrot',
             'testheader' => undef,
             'testheaders' = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634558	634651	
==>/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635676	635769	
==>/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636794	636887	
==>/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637913	638006	
==>/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072557	1072652	
==>\@5}};\n\n  /* correct the sign (can be wrong because we used abs({{\@4}}) and abs({{\@5}}) */\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074742	1074837	
==>\@5}};\n\n  /* correct the sign (can be wrong because we used abs({{\@4}}) and abs({{\@5}}) */\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076927	1077022	
==>\@5}};\n\n  /* correct the sign (can be wrong because we used abs({{\@4}}) and abs({{\@5}}) */\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079113	1079208	
==>\@5}};\n\n  /* correct the sign (can be wrong because we used abs({{\@4}}) and abs({{\@5}}) */\n <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	20096	20190	
==>mplate thing

static void pcf_$funcname(Interp *interpreter, PMC *self) {
    $ret_type (*point <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1546	1689	
==>my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = $op->{ <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2206	2349	
==>my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = $op->{ <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2642	2785	
==>my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = $op->{ <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2446	2576	
==>my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  $op->{result}->{symbol} = $op->{ <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	4892	5022	
==>my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  $op->{result}->{symbol} = $op->{ <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	9182	9298	
==>pe eq 'multi_match') {
        # R<min,max>: R is guaranteed to have 1/max as many available
        # as the whole t <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7977	8073	
==>uct::Block");
  confess "No identifier name!"  unless defined $name;
  confess "Extra arguments!" <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8624	8720	
==>uct::Block");
  confess "No identifier name!"  unless defined $name;
  confess "Extra arguments!" <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9292	9388	
==>uct::Block");
  confess "No identifier name!"  unless defined $name;
  confess "Extra arguments!" <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9961	10057	
==>uct::Block");
  confess "No identifier name!"  unless defined $name;
  confess "Extra arguments!" <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27528	27631	
==>le->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule- <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29995	30098	
==>le->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule- <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33413	33516	
==>le->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule- <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34667	34770	
==>le->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule- <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37077	37180	
==>le->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule- <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18596	18701	
==>less ($self->get(1)->is_close_paren) {
        while (1) {
          push @args, Jako::Construct::Expressi <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19622	19727	
==>less ($self->get(1)->is_close_paren) {
        while (1) {
          push @args, Jako::Construct::Expressi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126530	126631	
==>c/ops/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  IN <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127665	127766	
==>c/ops/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  IN <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128800	128901	
==>c/ops/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  IN <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	512785	513050	
==>UMP" => 0,
                  "NAME" => "n_neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
5	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10992	11091	
==>le") or die "Can't read $infile: $!\n";
    open (OUT, ">$outfile") or die "Can't write $outfile: $! <==
5	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11476	11575	
==>le") or die "Can't read $infile: $!\n";
    open (OUT, ">$outfile") or die "Can't write $outfile: $! <==
5	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11940	12039	
==>le") or die "Can't read $infile: $!\n";
    open (OUT, ">$outfile") or die "Can't write $outfile: $! <==
5	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11774	11866	
==>d::Escapes qw(symbolname symbolname2...);>,
or you can do C<use Pod::Escapes qw(:ALL);> to ge <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154275	154437	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155178	155340	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156082	156244	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156986	157148	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157891	158053	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	3040	3242	
==>m} );
        if ($type) {
            if ( $code eq q{} ) {
                $seen_blank = 1;
                next;
            }
            if ($seen_blank) {

                # Add in our one blank li <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27646	27759	
==>'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end transl <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30113	30226	
==>'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end transl <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33531	33644	
==>'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end transl <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37195	37308	
==>'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end transl <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	7492	7599	
==>em;
		
	}
	push @stream, reverse @stack;	
	#print STDERR "Outta RPN convert\n";
	return(@stream);
}

sub fix <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72613	72701	
==>erpreter, ({{\@3}}));\n\n  funcptr_t p = D2FPTR(Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? \n\tN <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74215	74303	
==>erpreter, ({{\@3}}));\n\n  funcptr_t p = D2FPTR(Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? \n\tN <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75817	75905	
==>erpreter, ({{\@3}}));\n\n  funcptr_t p = D2FPTR(Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? \n\tN <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77420	77508	
==>erpreter, ({{\@3}}));\n\n  funcptr_t p = D2FPTR(Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? \n\tN <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	8246	8386	
==>p('popint', [ '<tmp>', 'group start' ]),
                        aop('setstart', [ $group, '<tmp>' ] ),
                        aop('goto', [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584513	584605	
==>3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '% <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585588	585680	
==>3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '% <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598029	598121	
==>3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '% <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599076	599168	
==>3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class '% <==
5	/Users/nnunley/parrot/config/auto/aio.pm	2	92	
==>Copyright (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/config/auto/aio.pm 19593 2006- <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189802	190074	
==>@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190743	191015	
==>@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191682	191954	
==>@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192622	192894	
==>@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
5	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2317	2429	
==>we know the true name of the object file being profiled, 
    # we rename the gcov log file.
    # The -o flag is <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2493	2594	
==>s => { kind => 'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2370	2471	
==>s => { kind => 'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2763	2864	
==>s => { kind => 'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3437	3538	
==>s => { kind => 'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3527	3628	
==>s => { kind => 'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568738	569036	
==>JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569630	569928	
==>JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570523	570821	
==>JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571477	571775	
==>JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
5	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9856	9953	
==>es a simple set of common test utility functions, and is
an implementation of the TAP protocol.

T <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	23632	23748	
==>rr_open;

      next;
      
    } elsif($para_type eq '~end') { #/////////////////////////////////////////
      # T <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73020	73121	
==>ndef);\n  }\n  else {\n      {{\@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}}->vtable->s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74622	74723	
==>ndef);\n  }\n  else {\n      {{\@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}}->vtable->s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76224	76325	
==>ndef);\n  }\n  else {\n      {{\@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}}->vtable->s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77827	77928	
==>ndef);\n  }\n  else {\n      {{\@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}}->vtable->s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471332	471664	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472319	472651	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473306	473638	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474296	474628	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475287	475619	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core", <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	41424	41534	
==>nc_obj);

  return $return;
}

sub _call_function_obj {
  my $self = shift;
  my $func_obj = shift;

  my $retu <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	33352	33447	
==>ents: a string to extract from, a delimiter
specifier, and a prefix pattern. As before, a missin <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1053	1180	
==>FT  => $left,
    OP    => $op,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => $dest->file,
    LINE  => $dest->line
  }, $c <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1044	1171	
==>FT  => $left,
    OP    => $op,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => $dest->file,
    LINE  => $dest->line
  }, $c <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	933	1060	
==>FT  => $left,
    OP    => $op,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => $dest->file,
    LINE  => $dest->line
  }, $c <==
5	/Users/nnunley/parrot/tools/dev/parrotbench.pl	6877	6992	
==>( $cfg{bench_path}, $name . $bench{$name}{$prog})
            );
            my $stop = $Get_Time{ $cfg{method} }->( <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	10871	10982	
==>elf->{DEBUG}) {
        push @ops, qq(print "Calling $name at \$rx_pos for ";);
        push @ops, qq(print \$rx <==
5	/Users/nnunley/parrot/config/auto/gcc.pm	4998	5175	
==>name} !~ /86/) {
                    $opt =~ s/-mno-accumulate-outgoing-args//;
                }
            }
            $warns .= " $opt";
        }

        # if the user ov <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925531	925827	
==>nginfo",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927000	927296	
==>nginfo",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928470	928766	
==>nginfo",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929940	930236	
==>nginfo",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24194	24313	
==>>current_block();
      my $kind = $token->text;

      my $target_token = $self->skip_ident;
      my $target;
      $t <==
5	/Users/nnunley/parrot/config/init/hints/solaris.pm	2784	2892	
==>un's compilers, fix this with the -xlibmieee flag.
    # I don't know of an equivalent flag for gcc.
    # (A <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028098	1028190	
==>ion(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028949	1029041	
==>ion(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029801	1029893	
==>ion(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030643	1030735	
==>ion(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	866654	866951	
==>ME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867619	867916	
==>ME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868585	868882	
==>ME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869551	869848	
==>ME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	43218	43315	
==>\E/; '

	extract_quotelike ' tr/\\\/\\\\/\\\//ds; '

the full Perl quotelike operations are all ex <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094578	1094868	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exec",
                  "FLAGS" => "",
                  "ARGDIR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766035	766300	
==>" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766887	767152	
==>" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767740	768005	
==>" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768593	768858	
==>" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646843	647118	
==>}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ty <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647603	647878	
==>}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ty <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648364	648639	
==>}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ty <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649126	649401	
==>}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ty <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4253	4354	
==>rn
value of an C<expr_I<X>> method (implemented in subclass).

=cut

sub gen_goto 
{
    my ($self, $w <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	29354	29457	
==>ct_quotelike($text) )
	{
		# process next quote-like (in $next)
	}

Note that if the input text is a rea <==
5	/Users/nnunley/parrot/tools/dev/lib_deps.pl	7578	7710	
==>ime     time.h
asin        math.h
asinf       math.h
asinh       math.h
asinhf      math.h
asinhl      math.h
asinl       math.h
atan <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	17639	17754	
==>nown_frames  = NULL;
    PMC        *HashPointer   = NULL;

#if defined(CAN_BUILD_CALL_FRAMES)

    /* Try if JIT co <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	990	1095	
==>E  => $ident->file,
    LINE  => $ident->line
  }, $class;

  $block->push_content($self);

  return $self <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	729	834	
==>E  => $ident->file,
    LINE  => $ident->line
  }, $class;

  $block->push_content($self);

  return $self <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1411	1516	
==>E  => $ident->file,
    LINE  => $ident->line
  }, $class;

  $block->push_content($self);

  return $self <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9555	9792	
==>ult2,
                    );
                    push @opcodes, new KeyedGetOp(
                        $parser,
                        'result' => $result2,
                        'arg1'   => $result,
                        'arg <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11340	11572	
==>ult2,
                        );
                        push @opcodes, new KeyedGetOp( $parser,
                            'result' => $result2,
                            'arg1'   => $result,
                            'arg <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12852	13064	
==>ult2,
                    );
                    push @opcodes, new KeyedGetOp( $parser,
                        'result' => $result2,
                        'arg1'   => $result,
                        'arg <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8515	8687	
==>ult2,
            );
            push @opcodes, new KeyedGetOp( $parser,
                'result' => $result2,
                'arg1'   => $result,
                'arg <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17721	17873	
==>ult2,
        );
        push @opcodes, new KeyedGetOp( $parser,
            'result' => $result2,
            'arg1'   => $result,
            'arg <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451669	451943	
==>+= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "a <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452408	452682	
==>+= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "a <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453146	453420	
==>+= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "a <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453885	454159	
==>+= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "a <==
5	/Users/nnunley/parrot/config/init/defaults.pm	3536	3684	
==>ion
        exe      => $Config{_exe},      # executable files extension
        cc_o_out => '-o ',              # cc object output file

        # c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680781	681070	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681557	681846	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682331	682620	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683106	683395	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" <==
5	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19905	20002	
==>se the RTF
to spellcheck, and/or if you want it to hyphenate right.

Here are some notable values: <==
5	/Users/nnunley/parrot/tools/dev/install_files.pl	5743	5852	
==>s;
	    while (! -d $dir) { # Scan up to nearest existing ancestor
		unshift @dirs, $dir;
		$dir = dirname($di <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33637	33743	
==>DEBUG and print "Assimilating following ~Para content into $over_type item\n";
              push @$para, s <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35450	35556	
==>DEBUG and print "Assimilating following ~Para content into $over_type item\n";
              push @$para, s <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	1386	1489	
==>ub name
{
	my $self = shift;
	
	return $self->{NAME};
}

=item C<html_link()>

Groups have no HTML link. <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_assignments.pm	231	325	
==>o implicit conversions into/from STRING
sub ASSIGNMENT_FUNC {
	my($varname)=@_;	# P6 already ha <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055743	1056066	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056634	1056957	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057526	1057849	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058418	1058741	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32772	32890	
==>ype ne 'number') {
            die "Unknown item type $item_type"; # should never happen

          } elsif($expected_v <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516719	517010	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517458	517749	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518196	518487	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518935	519226	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064008	1064249	
==>ion",
                  "CODE" => 1188,
                  "ARGS" => [
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 253 \"src/ops/var.ops\"\n    PMC *ns <==
5	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2783	2897	
==>s.\n";
    }
    print "\n";
    my @no_descriptions;
    foreach (@files) {
	my $info = &describe_file($_);
	if($i <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	36317	36447	
==>ra);

        next;  # and skip
      } elsif($para_type eq '~Verbatim') {
        $para->[0] = 'Verbatim';
        $para_type = '? <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72529	72620	
==>DY" => "#line 1156 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74131	74222	
==>DY" => "#line 1156 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75733	75824	
==>DY" => "#line 1156 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77336	77427	
==>DY" => "#line 1156 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647080	647362	
==>0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647840	648122	
==>0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648601	648883	
==>0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649363	649645	
==>0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	36842	36931	
==>espace?' => \&_op_char_whitespace_p,
  'char-upper-case?' => \&_op_char_upper_case_p,
  'c <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	4741	4904	
==>f = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};

        #    print {$FH} "  noop\n";
    }

    sub visitToBoolOp {
        my $self = sh <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72804	72897	
==>ar * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74406	74499	
==>ar * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76008	76101	
==>ar * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77611	77704	
==>ar * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18164	18391	
==>_bool(interpreter, {{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Par <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18973	19200	
==>_bool(interpreter, {{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Par <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21327	21554	
==>_bool(interpreter, {{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Par <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22141	22368	
==>_bool(interpreter, {{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Par <==
5	/Users/nnunley/parrot/tools/build/headerize.pl	925	1048	
==>TIONS

=cut

sub open_file {
    my $direction = shift;
    my $filename = shift;

    my %actions = (
        "<" => "Readi <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74413	74520	
==>ed $_tok;
		last if ++$reps >= $min and $prevtextlen == length $text;
	}

	if ($reps < $min) {
		if ($Parse: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773408	773493	
==>ps/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774318	774403	
==>ps/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775228	775313	
==>ps/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776139	776224	
==>ps/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}} <==
5	/Users/nnunley/parrot/tools/build/pbc2c.pl	1273	1390	
==>rint "# ID  Flags    Encoding Type     Size     Data\n";

    my $constant_num = 0;

    foreach ($pf->const_table->co <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32765	32868	
==>ypeinfo\n";
		    $pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			    "typeinfo for rule $rule->{'name'}" <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26773	26868	
==>ypeinfo\n";
		$pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}" <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28489	28584	
==>ypeinfo\n";
		$pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}" <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36471	36566	
==>ypeinfo\n";
		$pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858710	858996	
==>VAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859714	860000	
==>VAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860718	861004	
==>VAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861723	862009	
==>VAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
5	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	1192	1290	
==>f.  If you can load PIR libraries from your
language, you can even use the existing PIR testing too <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18443	18557	
==>rn;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_generate($node->{child <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19156	19270	
==>rn;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_generate($node->{child <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19644	19758	
==>rn;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_generate($node->{child <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20133	20247	
==>rn;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_generate($node->{child <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20622	20736	
==>rn;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_generate($node->{child <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	704	796	
==>RSAL::isa($type, qw(Jako::Construct::Type));
  confess "Identifier (" . ref($ident) . ") is n <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	729	820	
==>RSAL::isa($type, qw(Jako::Construct::Type));
  confess "Identifier (". ref($ident) . ") is n <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	693	784	
==>RSAL::isa($type, qw(Jako::Construct::Type));
  confess "Identifier (". ref($ident) . ") is n <==
5	/Users/nnunley/parrot/tools/dev/install_files.pl	750	841	
==>cutables directory. Defaults to '/usr/bin'.

=item C<libdir>

The library directory. Default <==
5	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	979	1070	
==>cutables directory. Defaults to '/usr/bin'.

=item C<libdir>

The library directory. Default <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905370	905658	
==>_str(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906389	906677	
==>_str(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907408	907696	
==>_str(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908428	908716	
==>_str(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
5	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3532	3641	
==>o) or
    (defined $section and length $section)
  );

  if(defined $to and length $to) {
    $to = $self->res <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477087	477179	
==>rpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477983	478075	
==>rpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480733	480825	
==>rpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481736	481828	
==>rpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482739	482831	
==>rpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549973	550076	
==>c, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551274	551377	
==>c, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553836	553939	
==>c, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555233	555336	
==>c, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175201	175296	
==>_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_NUMCMP) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n" <==
5	/Users/nnunley/parrot/tools/dev/install_files.pl	421	530	
==>/dev/install_files.pl [options]

=head1 DESCRIPTION

Use a detailed MANIFEST to install a set of files.

=head <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6243	6348	
==>ock");
  confess "No symbol name!"  unless defined $name;
  confess "Extra arguments!" if @_;

  my $sym = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591636	591728	
==>%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592846	592938	
==>%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594056	594148	
==>%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595267	595359	
==>%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\ <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31992	32110	
==>n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $parameters <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33569	33687	
==>n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $parameters <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40626	40744	
==>n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $parameters <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441573	441660	
==>s/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442588	442675	
==>s/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1097558	1097689	
==>terpreter, tmp);\n            key_append(interpreter, key_tail, key);\n            key_tail = key;\n        }\n    }    \n    {{+=3} <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	1464	1615	
==>"char",
       s => "short",
       2 => "short *",
       f => "float",
       d => "double",
       t => "char *",
       v => "void",
       J => "In <==
5	/Users/nnunley/parrot/config/auto/gcc.pm	493	603	
==>verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    my <==
5	/Users/nnunley/parrot/config/auto/gmp.pm	501	611	
==>verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    my <==
5	/Users/nnunley/parrot/config/auto/readline.pm	513	623	
==>verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    my <==
5	/Users/nnunley/parrot/config/gen/platform.pm	542	652	
==>verbose);

sub runstep {
    my ($self, $conf) = @_;

    my $verbose  = $conf->options->get('verbose');
    my <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762572	762781	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763424	763633	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764277	764486	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765130	765339	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i" <==
5	/Users/nnunley/parrot/tools/dev/mk_inno.pl	564	744	
==>r>

The directory to locate ICU.

=back

=head1 SEE ALSO

http://www.jrsoftware.org/

=cut

################################################################################

use str <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672287	672578	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673059	673350	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673829	674120	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	674600	674891	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621176	621273	
==>ot_MIC *) cur_opcode[1];\n    caller_ctx = ctx->caller_ctx;\n    if (src_pc) {\n\tsrc_pred = (void <==
5	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8756	8865	
==>unexpectedly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Test::num_o <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381206	381308	
==>< 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n  {{+ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382218	382320	
==>< 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n  {{+ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383230	383332	
==>< 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n  {{+ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384243	384345	
==>< 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n  {{+ <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	17626	17742	
==>arg = "pc_$n";
    print <<EOC;
	goto $targ $cmt
EOC
}

sub JUMP_IF_FALSE
{
    my ($n, $c, $cmt) = @_;
    if (!@sta <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2057	2151	
==>type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${P <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3309	3403	
==>type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${P <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5938	6032	
==>type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${P <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6496	6590	
==>type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${P <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175326	175608	
==>=> [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176229	176511	
==>=> [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177133	177415	
==>=> [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178037	178319	
==>=> [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178942	179224	
==>=> [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr" <==
5	/Users/nnunley/parrot/tools/dev/parrot_api.pl	4494	4595	
==>}

my @ParrotAPI = sort keys %ParrotAPI;

die "$0: No API found in @H\n" unless @ParrotAPI;

printf "= <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591607	591700	
==>xt, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592817	592910	
==>xt, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594027	594120	
==>xt, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595238	595331	
==>xt, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(in <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4441	4546	
==>me]}"
        unless exists $arg_maps{$type};

    return sprintf($arg_maps{$type}, $num);
}

=back

=head <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579308	579402	
==>ass_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580613	580707	
==>ass_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581918	582012	
==>ass_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583224	583318	
==>ass_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL <==
5	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	5120	5228	
==>print $CGI->header;

  my $category = sub {
    return sprintf "%s / %s runcore on %s-%s-%s",
      $_[0]->{D <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	15964	16066	
==>ntarray, $textref,
			$match[2], $match[18]-$match[2],	# MATCH
			@match[18,19],				# REMAINDER
			@mat <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2906	3001	
==>Thispara'} .= "\n");
  $out =~ tr{\xA0}{ } if Pod::Simple::ASCII;
  print {$self->{'output_fh'}} <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2440	2535	
==>Thispara'} .= "\n");
  $out =~ tr{\xA0}{ } if Pod::Simple::ASCII;
  print {$self->{'output_fh'}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95367	95726	
==>se_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 118,
                  "ARGS" => [
                              "s",
                              "sc" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780722	780898	
==>_string_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781631	781807	
==>_string_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782540	782716	
==>_string_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783450	783626	
==>_string_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12436	12538	
==>t use $type[CURR]/$syms[CURR] in DATA";
		}
		feedme();
	}
	push(@data, { line => $currline, data => \@ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4884	4966	
==>dent = Jako::Construct::Expression::Value::Identifier->new($block, $self->require_i <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6487	6569	
==>dent = Jako::Construct::Expression::Value::Identifier->new($block, $self->require_i <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7878	7960	
==>dent = Jako::Construct::Expression::Value::Identifier->new($block, $self->require_i <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22678	22760	
==>dent = Jako::Construct::Expression::Value::Identifier->new($block, $self->require_i <==
5	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2722	2842	
==>lready submitted!";
    exit;
  }

  my %smoke;
  $html =~ /revision: (\d+)/       and $smoke{revision}     = $1;
  $html <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084760	1084868	
==>able->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimen <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085813	1085921	
==>able->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimen <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086866	1086974	
==>able->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimen <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087920	1088028	
==>able->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimen <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	331726	331901	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333003	333178	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334281	334456	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335559	335734	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	21850	21946	
==>ther than calling print directly.

Returns false.  Why?  Because diag() is often used in conjunct <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607588	607855	
==>r(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608492	608759	
==>r(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609399	609666	
==>r(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610307	610574	
==>r(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	366	463	
==>lass Methods

=over

=cut

package Parrot::Docs::Section::DynaPMCs;

use strict;
use warnings;

us <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121332	121587	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122243	122498	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123155	123410	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124028	124283	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124902	125157	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	250382	250740	
==>> [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 291,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 698 \"src/ <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2301	2396	
==>p)>

Returns the C code for the specified op argument type (see
C<Parrot::OpTrans>) and value. C <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3393	3488	
==>p)>

Returns the C code for the specified op argument type (see
C<Parrot::OpTrans>) and value. C <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3537	3632	
==>p)>

Returns the C code for the specified op argument type (see
C<Parrot::OpTrans>) and value. C <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3192	3287	
==>p)>

Returns the C code for the specified op argument type (see
C<Parrot::OpTrans>) and value. C <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	426	531	
==>truct::Expression::Value);

sub new
{
  my $class = shift;
  my ($block, $token) = @_;

  confess "Block i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332524	332622	
==>2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* st <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333802	333900	
==>2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* st <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335080	335178	
==>2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* st <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336359	336457	
==>2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* st <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	929	1041	
==>ot hash!" if defined $args and ref($args) ne "ARRAY";

  my $self = bless {
    BLOCK => $block,

    TYPE  => $t <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773413	773499	
==>t.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774323	774409	
==>t.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775233	775319	
==>t.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776144	776230	
==>t.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@ <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	3411	3518	
==>nate {
    my ($self, $op, $R) = @_;
    return $R, aop('goto', [ $self->{_return} ]);
}

sub rewrite_goto { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72756	72860	
==>e(name);\n  if (p == NULLfunc) {\n      const char * err = Parrot_dlerror();\n      Parrot_warn(interpret <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74358	74462	
==>e(name);\n  if (p == NULLfunc) {\n      const char * err = Parrot_dlerror();\n      Parrot_warn(interpret <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75960	76064	
==>e(name);\n  if (p == NULLfunc) {\n      const char * err = Parrot_dlerror();\n      Parrot_warn(interpret <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77563	77667	
==>e(name);\n  if (p == NULLfunc) {\n      const char * err = Parrot_dlerror();\n      Parrot_warn(interpret <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1362	1478	
==>ift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $block = $self->blo <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1710	1826	
==>ift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $block = $self->blo <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1846	1962	
==>ift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $block = $self->blo <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1489	1605	
==>ift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $block = $self->blo <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766010	766293	
==>{
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766862	767145	
==>{
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767715	767998	
==>{
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768568	768851	
==>{
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	546	676	
==>map { $_ => 0 } (0..31) },
    N => { map { $_ => 0 } (0..31) },
    S => { map { $_ => 0 } (0..31) },
    P => { map { $_ => 0 } ( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067285	1067589	
==>xperimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068471	1068775	
==>xperimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069657	1069961	
==>xperimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070844	1071148	
==>xperimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd", <==
5	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	8786	8895	
==>2;
    }

    return @params;
}

=back

=head1 SEE ALSO

=over 4

=item F<tools/build/jit2c.pl>

=item F<tools <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018121	1018374	
==>eter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019046	1019299	
==>eter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019976	1020229	
==>eter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020907	1021160	
==>eter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	5386	5502	
==>s' on line %d (previously seen on line %d) of $ARGV",
              "$ret$args", $., $seen{"$ret$args"}
        if $o <==
5	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	1230	1327	
==>he words "This is Parrot" in the directory.

Raises an exception if the distribution root is not f <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527083	527356	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "at <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527836	528109	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "at <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11216	11415	
==>@types, $c;
                }
            }
        } elsif ($state == 1) {
            push @tokens, $c;
            push @types, 'CHAR';
            $state = 0;
        } else {
            if ($c e <==
5	/Users/nnunley/parrot/config/gen/icu.pm	3164	3290	
==>uheaders not defined or invalid\n";
        $ok = 0;
    } else {
        $icuheaders =~ s![\\/]$!!;
        foreach my $header <==
5	/Users/nnunley/parrot/tools/build/vtable_extend.pl	2548	2652	
==>have it in multiple times)

   Not doing this is a good way to introduce bizarre heisenbugs, so
   just d <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19226	19458	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20002	20234	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20780	21012	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21580	21812	
==>s( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5811	5916	
==>TODO: SHOULD BE LIMITED TO LITERAL?
    #   const <type> <ident>, <ident>, ... = <value>; # TODO: SHOULD B <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24801	24922	
==>urn);
      $self->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25812	25933	
==>urn);
      $self->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26700	26821	
==>urn);
      $self->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27710	27831	
==>urn);
      $self->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $ <==
5	/Users/nnunley/parrot/tools/dev/install_files.pl	5165	5277	
==>tions{libdir}, 'pkgconfig', $dest);
    } else {
        $dest =~ s/^runtime/lib/;
        $dest = File::Spec->ca <==
5	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5884	5973	
==>y Brent
Royal-Gordon C<brent@brentdax.com>.

=head1 AUTHOR

Joshua Hoblitt C<jhoblitt@cpan <==
5	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6733	6822	
==>y Brent Royal-Gordon C<brent@brentdax.com>.

=head1 AUTHOR

Joshua Hoblitt C<jhoblitt@cpan <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	14	103	
==>) 2002, The Perl Foundation.
# $Id: /parrot/lib/Parrot/OpTrans/CGoto.pm 20333 2006-06-21T1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	312560	312647	
==>s\"\n  struct Parrot_Context_info info;\n  Parrot_Context_info(interpreter, CONTEXT(inte <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	313292	313379	
==>s\"\n  struct Parrot_Context_info info;\n  Parrot_Context_info(interpreter, CONTEXT(inte <==
5	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	1030	1132	
==>sts()   and convert_tests() if $opt_u;
    convert_tests() if $opt_c;
    return run_tests(grep {-f $_} <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2519	2617	
==>ed type '$type' for num '$num' in opcode @{[$op->full_name]}"
        unless exists $arg_maps{$type <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4385	4483	
==>ed type '$type' for num '$num' in opcode @{[$op->full_name]}"
        unless exists $arg_maps{$type <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719790	719886	
==>ython.ops\"\n  PMC * const io = {{\@1}};\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0))\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720990	721086	
==>ython.ops\"\n  PMC * const io = {{\@1}};\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0))\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080588	1080863	
==>ter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081653	1081928	
==>ter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082718	1082993	
==>ter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083784	1084059	
==>ter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	21355	21497	
==>ds;
        }
    }
    my $methlist = join(",\n        ", @meths);
    my $mmd_list = join(",\n        ", map {
        "{ $_->[0], $_->[1], $ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634550	634643	
==>07 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635668	635761	
==>07 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636786	636879	
==>07 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637905	637998	
==>07 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156205	156534	
==>> ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 189,
                  "ARGS" => [
                              " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591638	591732	
==>s' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592848	592942	
==>s' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594058	594152	
==>s' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595269	595363	
==>s' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  { <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7279	7394	
==>($self, $reg, $db_desc) = @_;
    $reg = value($reg);

    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($d <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6921	7036	
==>($self, $reg, $db_desc) = @_;
    $reg = value($reg);

    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($d <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9379	9493	
==>($self, $reg, $db_desc) = @_;
    $reg = value($reg);
    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($d <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9073	9187	
==>($self, $reg, $db_desc) = @_;
    $reg = value($reg);
    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($d <==
5	/Users/nnunley/parrot/tools/dev/parrotbench.pl	2465	2565	
==>_file  => File::Spec->catdir( $FindBin::Bin , 'parrotbench.conf' ),
    bench_path   => undef,
    li <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072097	1072218	
==>kp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074282	1074403	
==>kp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076467	1076588	
==>kp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078653	1078774	
==>kp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r <==
5	/Users/nnunley/parrot/tools/build/ops2c.pl	10111	10245	
==>ame  = $op->full_name;
        my $func_name  = $op->func_name($trans);
        my $body       = $op->body;
        my $jump       = $o <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10669	10765	
==>YPE_CHAR = 0x03
	.const int ELEMENT_TYPE_I1 = 0x04
	.const int ELEMENT_TYPE_U1 = 0x05
	.const int <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586694	586789	
==>reter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587880	587975	
==>reter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589066	589161	
==>reter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590253	590348	
==>reter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601681	601910	
==>E" => "singleton",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
5	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Posix.pm	127	237	
==>::Posix;

use strict;

use base 'Parrot::Test::Bc';

sub get_out_fn {
    my $self = shift;
    my ( $count, $o <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634715	634807	
==>PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class;\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635833	635925	
==>PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class;\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636951	637043	
==>PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class;\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638070	638162	
==>PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class;\ <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	920	1062	
==>long => 1,
    int => 1,
    map => 1,
    max => 'v',
    min => 'v',
    range => 1,
    xrange => 1,
    reduce => 1,
    str => 1,
    tupl <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	17779	17911	
==>mpty\n";
	return;
    }
    my $tos = pop @stack;
    my $targ = "pc_xxx";
    if ($c =~ /to (\d+)/) {
	$targ = "pc_$1";
    }
    pr <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	32316	32445	
==>odes1, new LocalDir( $parser,
        'result' => $state,
    );
    if (    scalar( @{$exprs} ) == 0
        and scalar( @{ $ <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	6358	6446	
==>C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C<P <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4574	4662	
==>C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C<P <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4551	4639	
==>C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C<P <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3935	4023	
==>C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C<P <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332227	332404	
==>,
                              "s"
                            ],
                  "BODY" => "#line 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const ch <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333505	333682	
==>,
                              "s"
                            ],
                  "BODY" => "#line 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const ch <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50171	50268	
==>erpreter,   PARROT_PROFILE_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_PROFI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50964	51061	
==>erpreter,   PARROT_PROFILE_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_PROFI <==
5	/Users/nnunley/parrot/examples/benchmarks/shared_ref.pl	238	333	
==>d1 SYNOPSIS

    % time perl examples/benchmarks/shared_ref.pl

=head1 DESCRIPTION

Shares refer <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908797	909094	
==>AME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909693	909990	
==>AME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910590	910887	
==>AME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911487	911784	
==>AME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	40350	40438	
==>ally instantiate [INSP]_ARG_\d+ and [INSP]TEMP\d+.
	while ($pir =~ /\$\{([INSP])_ARG_(\d+ <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	15340	15481	
==>p[$_]->[1];"
                        } @tempi);
        my $temp_out  = join("\n    ", map { "$temp[$_]->[1] = arg$_;"} @tempi);
        print <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33286	33417	
==>em " . $para->[1]{'number'} .
              "' instead of the expected '=item $expected_value'"
            );
            $para->[1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3026	3144	
==>",
    'n'  => "NREG(%ld)",
    'p'  => "PREG(%ld)",
    's'  => "SREG(%ld)",
    'k'  => "PREG(%ld)",
    'ki' => "IRE <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2846	2964	
==>",
    'n'  => "NREG(%ld)",
    'p'  => "PREG(%ld)",
    's'  => "SREG(%ld)",
    'k'  => "PREG(%ld)",
    'ki' => "IRE <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1944	2057	
==>",
  'n'   => "NREG(%ld)",
  'p'   => "PREG(%ld)",
  's'   => "SREG(%ld)",
  'k'   => "PREG(%ld)",
  'ki'  => "IRE <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	4023	4132	
==>e there were errata sections in the world, it was
          ## least-pessimal to abort processing the file.  B <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72797	72889	
==>onst char * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74399	74491	
==>onst char * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76001	76093	
==>onst char * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77604	77696	
==>onst char * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73036	73132	
==>lse {\n      {{\@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}}->vtable->set_pointer_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74638	74734	
==>lse {\n      {{\@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}}->vtable->set_pointer_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76240	76336	
==>lse {\n      {{\@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}}->vtable->set_pointer_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77843	77939	
==>lse {\n      {{\@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}}->vtable->set_pointer_ <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	1449	1537	
==>nfiguration', 'config.html', 'Parrot is configured by running
the <i>Configure.pl</i> scr <==
5	/Users/nnunley/parrot/tools/dev/run_indent.pl	1397	1514	
==>errors;
foreach my $file (@ARGV) {    
    next unless ($file =~ /\.[ch]$/);
    my %bad_fdecls;
    
    print STDERR <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	537	622	
==>ess UNIVERSAL::isa($dest, 'Jako::Construct::Expression::Value::Identifier');
  confess <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	663	748	
==>ess UNIVERSAL::isa($dest, 'Jako::Construct::Expression::Value::Identifier');
  confess <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	654	739	
==>ess UNIVERSAL::isa($dest, 'Jako::Construct::Expression::Value::Identifier');
  confess <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	543	628	
==>ess UNIVERSAL::isa($dest, 'Jako::Construct::Expression::Value::Identifier');
  confess <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586866	586957	
==>ring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588052	588143	
==>ring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589238	589329	
==>ring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590425	590516	
==>ring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}} <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4920	5009	
==>register $[INSP]0.
${STACK0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STACK0} = con <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18957	19047	
==>->_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self->_add_inst("DONE <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19445	19535	
==>->_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self->_add_inst("DONE <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19933	20023	
==>->_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self->_add_inst("DONE <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20422	20512	
==>->_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self->_add_inst("DONE <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20911	21001	
==>->_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self->_add_inst("DONE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071926	1072037	
==>0 ? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xk <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074111	1074222	
==>0 ? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xk <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076296	1076407	
==>0 ? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xk <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078482	1078593	
==>0 ? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xk <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61140	61242	
==>additem($item)
			      or  _no_rule("pattern terminal",$line,"/$1/");
		}
		elsif ($grammar =~ m/(?=$M <==
5	/Users/nnunley/parrot/lib/File/Which.pm	1991	2094	
==>ath();
    unshift @path, File::Spec->curdir if $Is_DOSish or $Is_VMS or $Is_MacOS;

    for my $base (m <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4363	4462	
==>) = @_;

    return "return $where_str";
}

=item C<restart_address($address)>

Implemented in subcl <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	35721	35819	
==>how many failed.  If
you run less (or more) tests than you planned, the missing (or extras)
will be <==
5	/Users/nnunley/parrot/lib/Test/More.pm	33792	33890	
==>how many failed.  If
you run less (or more) tests than you planned, the missing (or extras)
will be <==
5	/Users/nnunley/parrot/lib/Test/Simple.pm	2588	2686	
==>how many failed.  If
you run less (or more) tests than you planned, the missing (or extras)
will be <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	36029	36175	
==>ailure and will exit with 255.

So the exit codes are...

    0                   all tests successful
    255                 test died
    any ot <==
5	/Users/nnunley/parrot/lib/Test/More.pm	34100	34246	
==>ailure and will exit with 255.

So the exit codes are...

    0                   all tests successful
    255                 test died
    any ot <==
5	/Users/nnunley/parrot/lib/Test/Simple.pm	2895	3041	
==>ailure and will exit with 255.

So the exit codes are...

    0                   all tests successful
    255                 test died
    any ot <==
5	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	123	255	
==>+)\n$/) {
		push @results, {
			name	=> $3,
			total	=> $2,
			done	=> $1,
			percent	=> int(($1 / $2) * 100)
		};
	}
}

pr <==
5	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	123	255	
==>+)\n$/) {
		push @results, {
			name	=> $3,
			total	=> $2,
			done	=> $1,
			percent	=> int(($1 / $2) * 100)
		};
	}
}

pr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663756	664029	
==>});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664528	664801	
==>});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665304	665577	
==>});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete", <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	31389	31520	
==>K
{
    my ($n, $c, $cmt) = @_;
    if (@loops) {
	my $pc = pop @loops;
	print <<EOC;
	# $pc  $cmt
	clear_eh
EOC
    }
    else {
	p <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	44265	44365	
==>efix substring (if any),

=item [3]

the name of the quotelike operator (if any),

=item [4]

the lef <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31948	32073	
==>meters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join( <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33525	33650	
==>meters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join( <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38542	38667	
==>meters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join( <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40582	40707	
==>meters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join( <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	28363	28468	
==>return $return;
}

sub _op_quotient {
}

sub _op_remainder {
}

sub _op_modulo {
}

sub _op_gcd {
}

sub _ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777086	777228	
==>_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777995	778137	
==>_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778904	779046	
==>_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779814	779956	
==>_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0, <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20003	20109	
==>ere its treated as a statment with the assign.
      #

      my $call = Jako::Construct::Expression::Call- <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27568	27670	
==>le->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for r <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30035	30137	
==>le->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for r <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33453	33555	
==>le->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for r <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34707	34809	
==>le->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for r <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37117	37219	
==>le->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for r <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	20521	20636	
==>}   = (! $dont_ignore) || 0;
      $para->[1]{'~resolve'}  = $to_resolve || 0;

      DEBUG > 1 and print " Making n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73096	73186	
==>\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR(p));\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74698	74788	
==>\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR(p));\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76300	76390	
==>\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR(p));\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77903	77993	
==>\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR(p));\n <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1202	1305	
==>_content($self);

  return $self;
}

sub dest  { return shift->{DEST};  }
sub left  { return shift->{LEF <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1193	1296	
==>_content($self);

  return $self;
}

sub dest  { return shift->{DEST};  }
sub left  { return shift->{LEF <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1082	1185	
==>_content($self);

  return $self;
}

sub dest  { return shift->{DEST};  }
sub left  { return shift->{LEF <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784316	784401	
==>rc/ops/set.ops\"\n    {{\@1}}->vtable->set_pmc_keyed_int(interpreter, {{\@1}}, {{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785222	785307	
==>rc/ops/set.ops\"\n    {{\@1}}->vtable->set_pmc_keyed_int(interpreter, {{\@1}}, {{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099254	1099366	
==>(e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n\tres = 1.0/res;\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100452	1100564	
==>(e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n\tres = 1.0/res;\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101650	1101762	
==>(e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n\tres = 1.0/res;\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102849	1102961	
==>(e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n\tres = 1.0/res;\ <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	5532	5633	
==>d
{
	my $self = shift;
	
	$self->check_pod;
	
	return $self->{CONTAINS_POD};
}

=item C<num_pod_errors <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454708	455014	
==>{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ad <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455563	455869	
==>{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ad <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456418	456724	
==>{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ad <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457272	457578	
==>{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ad <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458127	458433	
==>{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ad <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344503	344615	
==>_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "L <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345745	345857	
==>_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "L <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346987	347099	
==>_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "L <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348230	348342	
==>_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "L <==
5	/Users/nnunley/parrot/tools/build/ops2pm.pl	7067	7161	
==>pname, $experimental) = @_;
    if (exists $ParrotOps::optable{$opname}) {
	return $ParrotOps:: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072472	1072578	
==>}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074657	1074763	
==>}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076842	1076948	
==>}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079028	1079134	
==>}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	32678	32779	
==>xtract_delimited $text, q{"'};


	# Delete the substring delimited by the first '/' in $text:

		$text <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736696	736949	
==>@1}} = (FLOATVAL){{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737442	737695	
==>@1}} = (FLOATVAL){{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	37029	37151	
==>lf->{'accept_directives'}} )
        ;
        $self->whine(
          $para->[1]{'start_line'},
          "Unknown directi <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3005	3109	
==>routine one"
   RETURN Label1
Sub2:
   PRINT "3 in subroutine two"
   RETURN Label2   'Cannot return from <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16972	17076	
==>routine one"
   RETURN Label1
Sub2:
   PRINT "3 in subroutine two"
   RETURN Label2   'Cannot return from <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650751	650998	
==>ast_type)\n        {{\@1}} = 1;\n    else\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651673	651920	
==>ast_type)\n        {{\@1}} = 1;\n    else\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50265	50485	
==>ROFILE_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51058	51278	
==>ROFILE_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	37438	37579	
==>";
        } else {
          my @fors = grep $_->[0] eq '=for', @$curr_open;
          DEBUG > 1 and print "Containing fors: ",
            j <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849274	849552	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850160	850438	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851047	851325	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851934	852212	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Test/More.pm	1057	1159	
==>er($level);
      $pkg->export($callpkg, @_);
}


=head1 NAME

Test::More - yet another framework for w <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6911	7020	
==>_call {
    my $self = shift;
    return <<'PIR'
# See if we've got a return or something to call.
if ${ARGCOU <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4842	4948	
==>mcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();

    $compiler->emit("  $pmc_reg = new $pmc_type");
    $ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2905	3011	
==>mcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();

    $compiler->emit("  $pmc_reg = new $pmc_type");
    $ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1208	1313	
==>mcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();
    $compiler->emit("  $pmc_reg = new $pmc_type");
    $ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1202	1307	
==>mcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();
    $compiler->emit("  $pmc_reg = new $pmc_type");
    $ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25188	25290	
==>$node->{children}} - 1 : 0;

  if($num_children==0) {
    $return = $self->_constant(0);
  } elsif($num <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27088	27190	
==>$node->{children}} - 1 : 0;

  if($num_children==0) {
    $return = $self->_constant(0);
  } elsif($num <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24300	24401	
==>$node->{children}} - 1 : 0;
  if($num_children==0) {
    $return = $self->_constant(0);
  } elsif($num <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26199	26300	
==>$node->{children}} - 1: 0;

  if($num_children==0) {
    $return = $self->_constant(0);
  } elsif($num <==
5	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	11043	11138	
==>o, Str :$depends) returns Bool`

- `like (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843229	843483	
==>}} = string_ord(interpreter,{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844107	844361	
==>}} = string_ord(interpreter,{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844985	845239	
==>}} = string_ord(interpreter,{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845864	846118	
==>}} = string_ord(interpreter,{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	14510	14643	
==>ding now stop reading now stop reading now stop
##
##                         HERE IT BECOMES REALLY SCARY
##
##  stop reading now sto <==
5	/Users/nnunley/parrot/lib/Parrot/Test.pm	22916	23032	
==>= per_test('.out', $test_no);
            my $build_f = per_test('.build', $test_no);
            my $pdb_f = per_tes <==
5	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9877	9980	
==>h;
    
    return -d $path;
}

=item C<relative_path_is_file($path)>

Returns whether the specified rel <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961003	961089	
==>_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, {{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961965	962051	
==>_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, {{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962927	963013	
==>_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, {{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963890	963976	
==>_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, {{\@2}} <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	16592	16705	
==>_$params" ) :
        ( "$return", "pcf_${return}" ));

    push @{$put_pointer_ref}, << "PUT_POINTER";
        te <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	28622	28735	
==>$x\["_message"\] = "Foo"
EOC
	$throw = "throw $x # TODO create, args";
    }
    print <<EOC;
	$throw $cmt
EOC
}
s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332406	332496	
==>r * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333684	333774	
==>r * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334962	335052	
==>r * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336241	336331	
==>r * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133310	133520	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134090	134300	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134871	135081	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135764	135974	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136658	136868	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	20517	20649	
==>treelet->[$i][0] eq 'L') {
          my $thing;
          foreach my $attrname ('section', 'to') {        
            if(defined($th <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467619	467713	
==>n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Div <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468490	468584	
==>n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Div <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477042	477136	
==>n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Div <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477938	478032	
==>n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Div <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	602503	602760	
==>,
                  "TYPE" => "inline",
                  "CODE" => 682,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 393 \"src/ops/object <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777022	777110	
==>ODY" => "#line 382 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(interpr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777931	778019	
==>ODY" => "#line 382 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(interpr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778840	778928	
==>ODY" => "#line 382 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(interpr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779750	779838	
==>ODY" => "#line 382 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(interpr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858608	858700	
==>EAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859612	859704	
==>EAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860616	860708	
==>EAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861621	861713	
==>EAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2 <==
5	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	794	882	
==>he various file creation methods. This default
implementation returns C<Parrot::IO::File> <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	22647	22779	
==>h is passed in entry to class_init.
    */
EOC
    }

    $cout .= <<"EOC";
    if (pass == 0) {
EOC
    $cout .= <<"EOC";
        /* <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926337	926459	
==>PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927807	927929	
==>PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929277	929399	
==>PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930748	930870	
==>PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640156	640451	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640910	641205	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645234	645529	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646130	646425	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	6481	6586	
==>);
}

# Returns true if at most one subexpression can ever hold at a given
# point in the input string. (R <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072270	1072398	
==>1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074455	1074583	
==>1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076640	1076768	
==>1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078826	1078954	
==>1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19799	19902	
==>e[CURR] eq "BARE";
			$name=$syms[CURR];
			feedme;
			die "Expected 'as' got $syms[CURR] (source line $ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067131	1067241	
==>LOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068317	1068427	
==>LOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069503	1069613	
==>LOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070690	1070800	
==>LOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL) <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	19504	19605	
==>, it skips once and terminates the
test.

=end _unimplemented

=back


=head2 Test style

=over 4

=it <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	337385	337608	
==>\"\n  {{\@1}} = (INTVAL)PIO_getfd(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1384	1495	
==>in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($self, $addr) = @_;

    #print STDER <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1909	2020	
==>in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($self, $addr) = @_;

    #print STDER <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1800	1911	
==>in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($self, $addr) = @_;

    #print STDER <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1524	1635	
==>in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($self, $addr) = @_;

    #print STDER <==
5	/Users/nnunley/parrot/tools/dev/parrot_api.pl	1480	1581	
==>t API

The API is defined in the lib but not defined in the public headers.

If code: see L</"Public o <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480839	481164	
==>);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481842	482167	
==>);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482845	483170	
==>);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483843	484168	
==>);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484842	485167	
==>);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  " <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	7763	7876	
==>en();
    if (defined($max) && $max !~ /^-?\d+/) {
        return undef;
    } elsif (!defined($max) || $max == -1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344478	344567	
==>f(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_U <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345720	345809	
==>f(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_U <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346962	347051	
==>f(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_U <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348205	348294	
==>f(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_U <==
5	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	1655	1758	
==>ent_test + 1;

  my $output = $self->gen_output( $code, $test_no ); 
  
  my $pass = $self->{builder}->i <==
5	/Users/nnunley/parrot/tools/dev/lib_deps.pl	6990	7084	
==>nal_symbols));
    printf("Of these, %d are not defined by ANSI C89:\n", scalar(@non_ansi_exter <==
5	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	451	541	
==>SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  #$new->accept_codes('VerbatimForma <==
5	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	255	344	
==>SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->accept_codes('VerbatimForma <==
5	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	254	343	
==>SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->accept_codes('VerbatimForma <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27553	27653	
==>ir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30020	30120	
==>ir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33438	33538	
==>ir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34692	34792	
==>ir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37102	37202	
==>ir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($rule->{'instruction'}), $mv <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46268	46487	
==>on(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59357	59576	
==>on(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60005	60224	
==>on(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61947	62166	
==>on(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62591	62810	
==>on(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769217	769492	
==>};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770069	770344	
==>};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770922	771197	
==>};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771775	772050	
==>};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind" <==
5	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr3.pm	247	347	
==>( $count, $options ) = @_;

    return Parrot::Test::per_test( '_antlr3.out', $count );
}

sub get_te <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655826	656145	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656749	657068	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657673	657992	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658591	658910	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	18951	19054	
==>ppose you have a document that starts out:

  =head1 NAME
  
  Hoo::Boy::Wowza -- Stuff B<wow> yeah!

th <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	316577	316807	
==>> 0,
                  "NAME" => "conv_i2",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905357	905497	
==>table->substr_str(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906376	906516	
==>table->substr_str(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907395	907535	
==>table->substr_str(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908415	908555	
==>table->substr_str(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514266	514555	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515146	515435	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099515	1099804	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100713	1101002	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101911	1102200	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
5	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11825	11931	
==>IN);


    $outfile = "$outfile_base.calls.html";
    print "Writing $outfile..\n" if $DEBUG;
    open (IN, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773418	773506	
==>\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774328	774416	
==>\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775238	775326	
==>\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776149	776237	
==>\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n <==
5	/Users/nnunley/parrot/config/auto/gdbm.pm	686	788	
==>conf->data->get('cc');
    my $libs      = $conf->data->get('libs');
    my $linkflags = $conf->data->g <==
5	/Users/nnunley/parrot/config/auto/gmp.pm	627	729	
==>conf->data->get('cc');
    my $libs      = $conf->data->get('libs');
    my $linkflags = $conf->data->g <==
5	/Users/nnunley/parrot/config/auto/readline.pm	639	741	
==>conf->data->get('cc');
    my $libs      = $conf->data->get('libs');
    my $linkflags = $conf->data->g <==
5	/Users/nnunley/parrot/tools/build/dynoplibs.pl	845	935	
==>al/lib -L/usr/local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS = qq[-bundle -undefined supp <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	849	939	
==>al/lib -L/usr/local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS = qq[-bundle -undefined supp <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663216	663501	
==>=> 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663987	664272	
==>=> 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664759	665044	
==>=> 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665535	665820	
==>=> 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9925	10024	
==>espace,$self,$parser);

		$code .= $parser->{deferrable}
				? '		splice
				@{$thisparser->{deferre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926549	926706	
==>->bufused;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+=4 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928019	928176	
==>->bufused;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+=4 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929489	929646	
==>->bufused;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+=4 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930960	931117	
==>->bufused;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+=4 <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	5992	6111	
==>en the \n and the EOS).
      } else { # that's the end.  Byebye
        $self->SUPER::parse_lines(undef);
        delet <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2674	2777	
==>x($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ Name => 'block' }) <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2551	2654	
==>x($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ Name => 'block' }) <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2926	3029	
==>x($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ Name => 'block' }) <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3600	3703	
==>x($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ Name => 'block' }) <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3690	3793	
==>x($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ Name => 'block' }) <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11832	12022	
==>g1'   => $last_key->[0],
                        'arg2'   => undef,
                        'result' => $result,
                    );
                    return [ $defn, \@opcodes, $ass <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10028	10202	
==>g1'   => $last_key->[0],
                    'arg2'   => undef,
                    'result' => $result,
                );
                return [ $defn, \@opcodes, $ass <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8875	9017	
==>g1'   => $last_key->[0],
            'arg2'   => undef,
            'result' => $result,
        );
        return [ $defn, \@opcodes, $ass <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	2506	2610	
==>mbol not found!", $ident)
        unless $sym;

      if (not UNIVERSAL::isa($sym->type, 'Jako::Construct <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	45758	45852	
==>he search pattern in a quotelike operation from $text

		($op,$pat) = (extract_quotelike $text) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38500	38783	
==>RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39364	39647	
==>RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40211	40494	
==>RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41058	41341	
==>RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	53281	53399	
==>cm or \cj
  '"' => '\"',
  '\\' => '\\\\',
  '$' => '\\$',
  '@' => '\\@',
  '%' => '\\%',
  '#' => '\\#',
);

sub pret <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299545	299724	
==>"#line 975 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300391	300570	
==>"#line 975 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301237	301416	
==>"#line 975 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2369	2462	
==>, $expected, $description, @todo)>

Runs the target string against the Perl 6 pattern, passing <==
5	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3803	3896	
==>, $expected, $description, @todo)>

Runs the target string against the Perl 6 pattern, passing <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492221	492430	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492981	493190	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498954	499163	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499716	499925	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io" <==
5	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	11696	11800	
==>op = Parrot::Op->new($code++, $type, $short_name,
            [ @fixedargs ], [ @$argdirs ], [ @$labels ] <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	21661	21797	
==>goto R.back
#         back: R or rfail
#               $matchcount++
#         next:
#
sub rewrite_star {
    my ($self, $op, $R, $greedy <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340232	340341	
==>io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "L <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341231	341340	
==>io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "L <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342230	342339	
==>io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "L <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343230	343339	
==>io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "L <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949895	950104	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950854	951063	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951814	952023	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952774	952983	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
5	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	1038	1147	
==>r

=item B<classify>( $chr )

Character classification

=cut

sub classify {
    my ($chr) = @_;
    my $ret = <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	9514	9639	
==>that aren't legal in an XML Name.
        or $new_code =~ m/^[-\.0-9]/s
        or $new_code =~ m/:[-\.0-9]/s;
            # T <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	10778	10903	
==>that aren't legal in an XML Name.
        or $new_code =~ m/^[-\.0-9]/s
        or $new_code =~ m/:[-\.0-9]/s;
            # T <==
5	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	6563	6698	
==>ocal pmc temp');
    # locals inside this code
    my %locals;
    while (my $line = <$file>)
    {
        # rename labels
        if ( <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7633	7730	
==>ME)

This is a shortcut method that uses find_symbol() to locate a matching
symbol, and then retur <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8280	8377	
==>ME)

This is a shortcut method that uses find_symbol() to locate a matching
symbol, and then retur <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8928	9025	
==>ME)

This is a shortcut method that uses find_symbol() to locate a matching
symbol, and then retur <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9598	9695	
==>ME)

This is a shortcut method that uses find_symbol() to locate a matching
symbol, and then retur <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949514	949681	
==>"s",
                              "ic"
                            ],
                  "BODY" => "#line 535 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_ch <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24793	24912	
==>mp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25804	25923	
==>mp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26692	26811	
==>mp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27702	27821	
==>mp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my <==
5	/Users/nnunley/parrot/config/auto/bc.pm	430	523	
==>s);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Configure::Step ':au <==
5	/Users/nnunley/parrot/config/auto/gdbm.pm	375	468	
==>s);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Configure::Step ':au <==
5	/Users/nnunley/parrot/config/auto/gmp.pm	329	422	
==>s);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Configure::Step ':au <==
5	/Users/nnunley/parrot/config/auto/m4.pm	404	497	
==>s);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Configure::Step ':au <==
5	/Users/nnunley/parrot/config/auto/readline.pm	336	429	
==>s);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Configure::Step ':au <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27338	27437	
==>e instruction, just take that. If not, we need
		# to generate it from the "to generate" instruction <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29805	29904	
==>e instruction, just take that. If not, we need
		# to generate it from the "to generate" instruction <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33223	33322	
==>e instruction, just take that. If not, we need
		# to generate it from the "to generate" instruction <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34477	34576	
==>e instruction, just take that. If not, we need
		# to generate it from the "to generate" instruction <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36887	36986	
==>e instruction, just take that. If not, we need
		# to generate it from the "to generate" instruction <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926544	926699	
==>\@2}}->bufused;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928014	928169	
==>\@2}}->bufused;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929484	929639	
==>\@2}}->bufused;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930955	931110	
==>\@2}}->bufused;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n <==
5	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	3867	3967	
==>nstead of this module if it is available.
This module is only usefull for

=over 4

=item *

computer <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2199	2326	
==>'',            'set', 'P8', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_C <==
5	/Users/nnunley/parrot/lib/Parrot/Config.pm	1938	2023	
==>Wwrite-strings -Waggregate-return -Winline -W -Wno-unused -Wsign-compare -Wformat-nonl <==
5	/Users/nnunley/parrot/tools/build/dynclasses.pl	1258	1343	
==>Wwrite-strings -Waggregate-return -Winline -W -Wno-unused -Wsign-compare -Wformat-nonl <==
5	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1303	1388	
==>Wwrite-strings -Waggregate-return -Winline -W -Wno-unused -Wsign-compare -Wformat-nonl <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	1307	1392	
==>Wwrite-strings -Waggregate-return -Winline -W -Wno-unused -Wsign-compare -Wformat-nonl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255858	256156	
==>" => "xor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256765	257063	
==>" => "xor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257673	257971	
==>" => "xor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31174	31294	
==>codes;
}

sub BuildForList {
    my ( $parser, $vars, $exprs, $block ) = @_;
    my @opcodes1 = ();
    my @opcodes <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	25441	25544	
==>n the wrong order from our own prints.
    _autoflush(\*TESTOUT);
    _autoflush(\*STDOUT);
    _autoflu <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1603	1712	
==>>{COND};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1739	1848	
==>>{COND};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1382	1491	
==>>{COND};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2230	2323	
==>ed $sym and $sym->block eq $block) {
    $self->SYNTAX_ERROR("Redeclaration of identifier '%s' <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1977	2070	
==>ed $sym and $sym->block eq $block) {
    $self->SYNTAX_ERROR("Redeclaration of identifier '%s' <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2187	2297	
==>{
		s/#RTJ// if $runtime_jump;
		if (/#SAVECOMMON/) {
			@saves=();
			$edit="";
			foreach my $var (keys %{$co <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586692	586787	
==>rpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587878	587973	
==>rpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589064	589159	
==>rpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590251	590346	
==>rpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1108334	1108470	
==>\n            if (type <= 0)\n                real_exception(interpreter, NULL, NO_CLASS,\n                    \"Class '%Ss' not found\", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1108649	1108785	
==>\n            if (type <= 0)\n                real_exception(interpreter, NULL, NO_CLASS,\n                    \"Class '%Ss' not found\", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629570	629682	
==>\n    if (type <= 0)\n        real_exception(interpreter, NULL, NO_CLASS,\n            \"Class '%Ss' not found\", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630527	630639	
==>\n    if (type <= 0)\n        real_exception(interpreter, NULL, NO_CLASS,\n            \"Class '%Ss' not found\", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631517	631629	
==>\n    if (type <= 0)\n        real_exception(interpreter, NULL, NO_CLASS,\n            \"Class '%Ss' not found\", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72708	72807	
==>PMC_data({{\@2}}), name));\n  string_cstring_free(name);\n  if (p == NULLfunc) {\n      const char * <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74310	74409	
==>PMC_data({{\@2}}), name));\n  string_cstring_free(name);\n  if (p == NULLfunc) {\n      const char * <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75912	76011	
==>PMC_data({{\@2}}), name));\n  string_cstring_free(name);\n  if (p == NULLfunc) {\n      const char * <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77515	77614	
==>PMC_data({{\@2}}), name));\n  string_cstring_free(name);\n  if (p == NULLfunc) {\n      const char * <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	34579	34676	
==>tore_Slice(@_, 2);
}
sub STORE_SLICE_plus_3 {
    return Store_Slice(@_, 3);
}

sub DELETE_SLICE_p <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766599	766830	
==>f bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767452	767683	
==>f bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768305	768536	
==>f bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769159	769390	
==>f bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629677	629903	
==>und\", class);\n  {{\@1}} = pmc_new(interpreter, type);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663164	663458	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663935	664229	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664707	665001	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665483	665777	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	506	603	
==>t::Docs::File;

use strict;
use warnings;

use base qw( Parrot::IO::File );

use Pod::Simple::Chec <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849322	849620	
==>=> 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850208	850506	
==>=> 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851095	851393	
==>=> 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851982	852280	
==>=> 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
5	/Users/nnunley/parrot/lib/Test/Simple.pm	2095	2205	
==>ok( @stuff, 'I have some stuff' );

will do what you mean (fail if stuff is empty)

=cut

sub ok ($;$) {
    $T <==
5	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	3926	4024	
==>ly usefull for

=over 4

=item *

computers where you cannot install C<Digest::MD5> (e.g. lack of a <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905313	905398	
==>src/ops/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2}}, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906332	906417	
==>src/ops/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2}}, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907351	907436	
==>src/ops/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2}}, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908371	908456	
==>src/ops/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2}}, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591653	591765	
==>t\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592863	592975	
==>t\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594073	594185	
==>t\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595284	595396	
==>t\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  " <==
5	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	107	197	
==>0 2006-06-25T03:57:27.771662Z petdance  $

=head1 NAME

tools/build/fingerprint_c.pl - Crea <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	287792	288110	
==>,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 33 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288647	288965	
==>,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 33 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289503	289821	
==>,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 33 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290359	290677	
==>,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 33 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291204	291522	
==>,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 33 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292050	292368	
==>,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 34 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292896	293214	
==>,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 34 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293771	294089	
==>,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 34 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294647	294965	
==>,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 34 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295523	295841	
==>,
                  "NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 34 <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26607	26723	
==>ildWhile {
    my ( $parser, $expr, $block ) = @_;
    my @opcodes    = ();
    my $l_continue = new_label($parser <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72628	72717	
==>3}}));\n\n  funcptr_t p = D2FPTR(Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data({ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74230	74319	
==>3}}));\n\n  funcptr_t p = D2FPTR(Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data({ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75832	75921	
==>3}}));\n\n  funcptr_t p = D2FPTR(Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data({ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77435	77524	
==>3}}));\n\n  funcptr_t p = D2FPTR(Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data({ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	816955	817142	
==>" => ":base_core",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 924,
                  "ARGS" => [],
                  "BODY" => "#l <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579337	579435	
==>}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580642	580740	
==>}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581947	582045	
==>}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583253	583351	
==>}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(in <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18627	18730	
==>generate($node->{children}[$_]);
    if (substr ($temp_0, 0, 1) ne substr ($temp_1, 0, 1)) {
      my $t <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714609	714708	
==>\n  if (s && string_length(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715532	715631	
==>\n  if (s && string_length(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722296	722395	
==>\n  if (s && string_length(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723325	723424	
==>\n  if (s && string_length(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	5678	5770	
==>if ($branch eq "goto") {
			push @{$code{$seg}->{code}}, qq{\tgoto $labels{$jumps}\t# $branch <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7953	8043	
==>$self->isa("Jako::Construct::Block");
  confess "No identifier name!"  unless defined $name <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8600	8690	
==>$self->isa("Jako::Construct::Block");
  confess "No identifier name!"  unless defined $name <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9268	9358	
==>$self->isa("Jako::Construct::Block");
  confess "No identifier name!"  unless defined $name <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9937	10027	
==>$self->isa("Jako::Construct::Block");
  confess "No identifier name!"  unless defined $name <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836836	837066	
==>NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837568	837798	
==>NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838302	838532	
==>NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	839034	839264	
==>NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
5	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	156	269	
==>base 'Parrot::Test::Bc';

sub get_out_fn {
    my $self = shift;
    my ( $count, $options ) = @_;

    return $op <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	1752	1874	
==>D    => $kind,   # One of file, sub, if, else, while, etc.
    TYPE    => $type,   # Return type, if any.
    PREFIX  => $p <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7962	8058	
==>a("Jako::Construct::Block");
  confess "No identifier name!"  unless defined $name;
  confess "Ex <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8609	8705	
==>a("Jako::Construct::Block");
  confess "No identifier name!"  unless defined $name;
  confess "Ex <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9277	9373	
==>a("Jako::Construct::Block");
  confess "No identifier name!"  unless defined $name;
  confess "Ex <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9946	10042	
==>a("Jako::Construct::Block");
  confess "No identifier name!"  unless defined $name;
  confess "Ex <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	3338	3442	
==>num;0]
    set match_end, result[match_num;1]
    eq match_start, -2, skipPrint
    eq match_end, -2, ski <==
5	/Users/nnunley/parrot/lib/Parrot/Config.pm	2017	2100	
==>at-nonliteral -Wformat-security -Wpacked -Wdisabled-optimization -falign-functions=1 <==
5	/Users/nnunley/parrot/tools/build/dynclasses.pl	1337	1420	
==>at-nonliteral -Wformat-security -Wpacked -Wdisabled-optimization -falign-functions=1 <==
5	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1382	1465	
==>at-nonliteral -Wformat-security -Wpacked -Wdisabled-optimization -falign-functions=1 <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	1386	1469	
==>at-nonliteral -Wformat-security -Wpacked -Wdisabled-optimization -falign-functions=1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258545	258870	
==>"JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259488	259813	
==>"JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260339	260664	
==>"JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261191	261516	
==>"JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262043	262368	
==>"JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	7738	7844	
==>codef	\$N101= $resultf
	_screen_color(\$N101,\$N100)
FANDB
	} elsif (@codeb and not @codef) {
		push @{$cod <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854426	854724	
==>"JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855314	855612	
==>"JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856203	856501	
==>"JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857092	857390	
==>"JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
5	/Users/nnunley/parrot/lib/Test/More.pm	20731	20828	
==>ly safe to nest SKIP blocks.  Each SKIP block must have
the label C<SKIP>, or Test::More can't wor <==
5	/Users/nnunley/parrot/lib/Parrot/Test.pm	7510	7628	
==>ev/null';
    }

    my $out = $options{'STDOUT'} || '';
    my $err = $options{'STDERR'} || '';

    if ( $out and $er <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240225	240510	
==>{{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241173	241458	
==>{{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242121	242406	
==>{{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243070	243355	
==>{{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/lib/Test/Simple.pm	5426	5526	
==>write tests B<at all>.  What was needed was a dead simple module
that took all the hard work out of t <==
5	/Users/nnunley/parrot/lib/Parrot/Op.pm	5760	5872	
==>ody
{
    my $self = shift;
    my $body = $self->body;

    $body .= sprintf("  {{+=%d}};\n", $self->size) if $s <==
5	/Users/nnunley/parrot/lib/Parrot/Config.pm	2021	2106	
==>onliteral -Wformat-security -Wpacked -Wdisabled-optimization -falign-functions=16 -Wno <==
5	/Users/nnunley/parrot/tools/build/dynclasses.pl	1341	1426	
==>onliteral -Wformat-security -Wpacked -Wdisabled-optimization -falign-functions=16 -Wno <==
5	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1386	1471	
==>onliteral -Wformat-security -Wpacked -Wdisabled-optimization -falign-functions=16 -Wno <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	1390	1475	
==>onliteral -Wformat-security -Wpacked -Wdisabled-optimization -falign-functions=16 -Wno <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4648	4744	
==>oto_address($address)>

Transforms the C<goto ADDRESS($address)> macro in an ops file into the
re <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1313	1409	
==>oto_address($address)>

Transforms the C<goto ADDRESS($address)> macro in an ops file into the
re <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1838	1934	
==>oto_address($address)>

Transforms the C<goto ADDRESS($address)> macro in an ops file into the
re <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1729	1825	
==>oto_address($address)>

Transforms the C<goto ADDRESS($address)> macro in an ops file into the
re <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1453	1549	
==>oto_address($address)>

Transforms the C<goto ADDRESS($address)> macro in an ops file into the
re <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23474	23588	
==>sub new ($$$;$)
{
	my $class = ref($_[0]) || $_[0];
	bless 
	{
		"lookahead" => $_[1],
		"line"      => $_[2],
		"n <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22093	22199	
==>ue);
        $op    = $self->require_infix_rel->text;
        $right = Jako::Construct::Expression::Value-> <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23026	23132	
==>ue);
        $op    = $self->require_infix_rel->text;
        $right = Jako::Construct::Expression::Value-> <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24672	24778	
==>ue);
        $op    = $self->require_infix_rel->text;
        $right = Jako::Construct::Expression::Value-> <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3976	4069	
==>reter->resume_flag = 1";
}

=item C<restart_offset($offset)>

Returns the C code for C<restart <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	755	849	
==>$file, $line, 'eof', undef, '__EOF__');
}

my $BOF = Jako::Token->new_bof(undef, undef);
sub BO <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	3438	3572	
==>rst
        my ($R0, @Rrest) = @{ $R->{args} };
        my @shrunken = ();
        while (@children) {
            last unless $childre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467629	467722	
==>@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by ze <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468500	468593	
==>@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by ze <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477052	477145	
==>@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by ze <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477948	478041	
==>@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by ze <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10741	10845	
==>lf = shift; # Required: Jako::Construct::Block

  confess "No block!"        unless defined $self and ref <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4417	4515	
==>lf = shift; # Required: Jako::Construct::Block

  confess "No block!"  unless defined $self and ref <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4924	5022	
==>lf = shift; # Required: Jako::Construct::Block

  confess "No block!"  unless defined $self and ref <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	4120	4218	
==>s $type eq $UNDEFINED;
	
	$type = $self->type_for_name($self->name);
	
	return $type unless $type e <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10327	10424	
==>lf = shift; # Required: Jako::Construct::Block

  confess "No block!" unless defined $self and ref <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3881	3994	
==>f = shift; # Required: Jako::Construct::Block
  my $name = shift; # Required: string (TODO: domain)

  confess "No <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7790	7903	
==>f = shift; # Required: Jako::Construct::Block
  my $name = shift; # Required: string (TODO: domain)

  confess "No <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8437	8550	
==>f = shift; # Required: Jako::Construct::Block
  my $name = shift; # Required: string (TODO: domain)

  confess "No <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9105	9218	
==>f = shift; # Required: Jako::Construct::Block
  my $name = shift; # Required: string (TODO: domain)

  confess "No <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9774	9887	
==>f = shift; # Required: Jako::Construct::Block
  my $name = shift; # Required: string (TODO: domain)

  confess "No <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63125	63232	
==>em)
						      or  _no_rule("repetition",$line,"$code$argcode($1)");

						!$matchrule and $rule and $rule <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63846	63953	
==>em)
						      or  _no_rule("repetition",$line,"$code$argcode($1)");

						!$matchrule and $rule and $rule <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64562	64669	
==>em)
						      or  _no_rule("repetition",$line,"$code$argcode($1)");

						!$matchrule and $rule and $rule <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62489	62594	
==>em)
					      or  _no_rule("repetition",$line,"$code$argcode($1)");

					!$matchrule and $rule and $rule <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	20720	20814	
==>ing($no_ending);

Normally, Test::Builder does some extra diagnostics when the test
ends.  It a <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766064	766327	
==>ME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766916	767179	
==>ME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767769	768032	
==>ME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768622	768885	
==>ME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	2873	2977	
==>ock. Therefore, we return one less than the number of blocks on
# the stack.
#

sub block_depth
{
  my $s <==
5	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	5466	5603	
==>otal_calls);
                $totals{calls} += $total_calls;
                $totals{covered_calls} += $covered_calls;
                $fi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374016	374103	
==>7 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}}) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374899	374986	
==>7 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}}) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375782	375869	
==>7 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}}) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376666	376753	
==>7 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}}) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646838	647116	
==>{{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647598	647876	
==>{{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648359	648637	
==>{{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649121	649399	
==>{{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034662	1034940	
==>{{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_ <==
5	/Users/nnunley/parrot/tools/build/ops2c.pl	12358	12458	
==>static int get_op(const char * name, int full);

static size_t hash_str(const char * str) {
    size_ <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9844	9939	
==>_NOT_CTOR_${CURIC}:

# Loop over each parameter and put them into ${PARAMS}. Note that they come <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7358	7453	
==>_NOT_CTOR_${CURIC}:

# Loop over each parameter and put them into ${PARAMS}. Note that they come <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6322	6417	
==>_NOT_CTOR_${CURIC}:

# Loop over each parameter and put them into ${PARAMS}. Note that they come <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	45960	46054	
==>ttern matching operation\n";
		}


=head2 C<extract_quotelike> and "here documents"

C<extract_ <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9496	9713	
==>ocalDir( $parser,
                        'result' => $result2,
                    );
                    push @opcodes, new KeyedGetOp(
                        $parser,
                        'result' => $resul <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11277	11485	
==>ocalDir( $parser,
                            'result' => $result2,
                        );
                        push @opcodes, new KeyedGetOp( $parser,
                            'result' => $resul <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12793	12985	
==>ocalDir( $parser,
                        'result' => $result2,
                    );
                    push @opcodes, new KeyedGetOp( $parser,
                        'result' => $resul <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8464	8624	
==>ocalDir( $parser,
                'result' => $result2,
            );
            push @opcodes, new KeyedGetOp( $parser,
                'result' => $resul <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17674	17818	
==>ocalDir( $parser,
            'result' => $result2,
        );
        push @opcodes, new KeyedGetOp( $parser,
            'result' => $resul <==
5	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6611	6761	
==>.= qq(
            match = rulesub(target)

            unless match goto match_fail
          match_success:
            print "matched"
            g <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961047	961154	
==>_string_trans_encoding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962009	962116	
==>_string_trans_encoding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962971	963078	
==>_string_trans_encoding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963934	964041	
==>_string_trans_encoding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [ <==
5	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	12310	12431	
==>t 
    result = new 'APLVector'

    .local pmc iter
    iter = new .Iterator, op2

    if op1 >= 0 goto pos_loop
    iter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332447	332536	
==>reter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333725	333814	
==>reter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335003	335092	
==>reter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336282	336371	
==>reter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597481	597743	
==>"getclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598527	598789	
==>"getclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599574	599836	
==>"getclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600649	600911	
==>"getclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
5	/Users/nnunley/parrot/tools/build/ops2c.pl	3788	3895	
==>%hashed_ops;

#
# Read the input files:
#

my $ops;
if ($core_flag) {
    $ops = Parrot::OpsFile->new( [ "sr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950601	950856	
==>ns_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951561	951816	
==>ns_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952521	952776	
==>ns_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953482	953737	
==>ns_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1606	1716	
==>ing Pod::Simple::DEBUG = $value\n";
  }
  
  require Pod::Simple;
  return;
}

1;


__END__

=head1 NAME

Pod:: <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	37068	37166	
==>ogram is free software; you can redistribute it and/or 
modify it under the same terms as Perl itse <==
5	/Users/nnunley/parrot/lib/Test/More.pm	37477	37575	
==>ogram is free software; you can redistribute it and/or 
modify it under the same terms as Perl itse <==
5	/Users/nnunley/parrot/lib/Test/Simple.pm	6437	6535	
==>ogram is free software; you can redistribute it and/or 
modify it under the same terms as Perl itse <==
5	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16484	16581	
==>ogram is free software; you can redistribute it and/or modify it
under the same terms as Perl itse <==
5	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1698	1795	
==>ogram is free software; you can redistribute it and/or modify it
under the same terms as Perl itse <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417370	417509	
==>ic"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418498	418637	
==>ic"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419626	419765	
==>ic"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420755	420894	
==>ic"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{ <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2505	2612	
==>rint "First line: [$source_line]\n";

      if( ($line = $source_line) =~ s/^\xEF\xBB\xBF//s ) {
        DEB <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606984	607280	
==>> 0,
                  "NAME" => "getattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607887	608183	
==>> 0,
                  "NAME" => "getattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608791	609087	
==>> 0,
                  "NAME" => "getattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609698	609994	
==>> 0,
                  "NAME" => "getattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	270	389	
==>like:

  [package]
  ncurses 

  [lib]
  libform.so

  [defs]
  p new_field i i i i i i

  [lib]
  libncurses.so

  [def <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298626	298771	
==>"ic"
                            ],
                  "BODY" => "#line 970 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 0 : 1;\n  {{+=4 <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2381	2471	
==>mple>, L<Pod::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Se <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1651	1741	
==>mple>, L<Pod::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Se <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2818	2908	
==>mple>, L<Pod::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Se <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1938	2028	
==>mple>, L<Pod::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Se <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54890	55163	
==>}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55650	55923	
==>}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56411	56684	
==>}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57173	57446	
==>}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57934	58207	
==>}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236671	236996	
==>);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "F <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237553	237878	
==>);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "F <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238435	238760	
==>);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "F <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	239328	239653	
==>);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "F <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244051	244376	
==>);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "F <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63122	63229	
==>$item)
						      or  _no_rule("repetition",$line,"$code$argcode($1)");

						!$matchrule and $rule and $r <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63843	63950	
==>$item)
						      or  _no_rule("repetition",$line,"$code$argcode($1)");

						!$matchrule and $rule and $r <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64559	64666	
==>$item)
						      or  _no_rule("repetition",$line,"$code$argcode($1)");

						!$matchrule and $rule and $r <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62486	62591	
==>$item)
					      or  _no_rule("repetition",$line,"$code$argcode($1)");

					!$matchrule and $rule and $r <==
5	/Users/nnunley/parrot/config/inter/libparrot.pm	519	614	
==>::Configure::Step ':inter';

$description = 'Determine if parrot should be linked against a sh <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072824	1072957	
==>1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "e <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075009	1075142	
==>1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "e <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077194	1077327	
==>1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "e <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079380	1079513	
==>1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "e <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	2135	2250	
==>ck_count         The total number of blocks begun (used for labels)
##   @block_stack         The stack of active bl <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22171	22268	
==>onstruct::Expression::Value->new($block, $self->require_value);

        $self->require_close_pare <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23104	23201	
==>onstruct::Expression::Value->new($block, $self->require_value);

        $self->require_close_pare <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24750	24846	
==>onstruct::Expression::Value->new($block, $self->require_value);
        $self->require_close_pare <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9931	10026	
==>onstruct::Expression::Value->new($block, $self->require_value);

      $self->require_close_pare <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25467	25562	
==>onstruct::Expression::Value->new($block, $self->require_value);

      $self->require_close_pare <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829974	830263	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" <==
5	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4909	5080	
==>ta->{INPUT} ) {

            s/^(\n)//
                and $parser->YYData->{lineno}++,
                $str .= $1,
                last;

            s/^\]$level\]/ <==
5	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	5765	5927	
==>length($indent) . " spaces)");
                }
            }
            $f = undef;
        }
    }
}


# tabs are bad, mmkay?
sub check_tabs {
    my ($file, $ <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	901	989	
==>ine IREG(i) REG_INT(cur_opcode[i])
#define NREG(i) REG_NUM(cur_opcode[i])
#define PREG(i) <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1017	1105	
==>ine IREG(i) REG_INT(cur_opcode[i])
#define NREG(i) REG_NUM(cur_opcode[i])
#define PREG(i) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926246	926403	
==>>strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    ca <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927716	927873	
==>>strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    ca <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929186	929343	
==>>strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    ca <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930657	930814	
==>>strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    ca <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	12346	12467	
==>? | SEE\ ALSO | SWITCHES | ENVIRONMENT
            )\)/sx
            # avoid accepting things like =head1 Thingy Thongy ( <==
5	/Users/nnunley/parrot/tools/build/jit2c.pl	10822	10958	
==>if ($opbody =~ /
        ^(?:.*\.ops")\s+
        {{\@1}}\s*=\s*
        {{\@2}}->vtable->
        (\w+)
        \(interpreter,
        \ <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5703	5790	
==>ns::CPrederef>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot::OpTrans::Compiled>

= <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3279	3366	
==>ns::CPrederef>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot::OpTrans::Compiled>

= <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	3007	3094	
==>ns::CPrederef>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot::OpTrans::Compiled>

= <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	6459	6546	
==>ns::CPrederef>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot::OpTrans::Compiled>

= <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061977	1062266	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fu <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062846	1063135	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fu <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063715	1064004	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fu <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064585	1064874	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fu <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065458	1065747	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fu <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888087	888225	
==>"s"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889221	889359	
==>"s"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890355	890493	
==>"s"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891490	891628	
==>"s"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, { <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	10024	10143	
==>ed}}, $def_at unless $_matched;
				  '
				: '';
	}

	$code .=
'
        unless ( $_matched || defined($return) || defi <==
5	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	7703	7813	
==>em C<%s
%s(%s)>

=cut

*/

%s Parrot_PMC_%s( %s )
{
", ($ret_type, $name, $signature) x 2;

        $funcs .= " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332365	332460	
==>ar * need to go away soon */\n  const char * const mode = string_to_cstring(interpreter, {{\@3}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333643	333738	
==>ar * need to go away soon */\n  const char * const mode = string_to_cstring(interpreter, {{\@3}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334921	335016	
==>ar * need to go away soon */\n  const char * const mode = string_to_cstring(interpreter, {{\@3}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336200	336295	
==>ar * need to go away soon */\n  const char * const mode = string_to_cstring(interpreter, {{\@3}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028445	1028672	
==>_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sleep",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029296	1029523	
==>_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sleep",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030137	1030364	
==>_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sleep",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2822	2930	
==>le_directories)
    {
        return $dir->file_with_name($name)
            if $dir->file_exists_with_name($ <==
5	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	3730	3838	
==>le_directories)
    {
        return $dir->file_with_name($name)
            if $dir->file_exists_with_name($ <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5358	5524	
==>) {
                print {$FH} ", " unless ($first);
                print {$FH} "$_->{symbol}";
                if ( exists $_->{pragma} and $_->{pragma} eq 'mult <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6390	6556	
==>) {
                print {$FH} ", " unless ($first);
                print {$FH} "$_->{symbol}";
                if ( exists $_->{pragma} and $_->{pragma} eq 'mult <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5791	5945	
==>) {
            print {$FH} ", " unless ($first);
            print {$FH} "$_->{symbol}";
            if ( exists $_->{pragma} and $_->{pragma} eq 'mult <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6886	7040	
==>) {
            print {$FH} ", " unless ($first);
            print {$FH} "$_->{symbol}";
            if ( exists $_->{pragma} and $_->{pragma} eq 'mult <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	9800	9954	
==>) {
            print {$FH} ", " unless ($first);
            print {$FH} "$_->{symbol}";
            if ( exists $_->{pragma} and $_->{pragma} eq 'mult <==
5	/Users/nnunley/parrot/config/gen/cpu/i386/auto.pm	882	1053	
==>" if $verbose;
        } else {
            if (cc_run() =~ /ok/) {
                $conf->data->set(
                    "i386_has_$suffix" => '1',
                    "HA <==
5	/Users/nnunley/parrot/tools/build/dynoplibs.pl	260	354	
==>d script for dynamic op libraries

=head1 DESCRIPTION

This file is generated by F<config/gen/m <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766559	766659	
==>>= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767412	767512	
==>>= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768265	768365	
==>>= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769119	769219	
==>>= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\ <==
5	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	170	269	
==>=head1 SYNOPSIS

    use Parrot::IO::File;

=head1 DESCRIPTION

Use this to query and manipulate fil <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151113	151259	
==>tring(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152091	152237	
==>tring(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172341	172487	
==>tring(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173319	173465	
==>tring(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	680	797	
==>($libs !~ /-laio/) {
        $libs .= ' -laio';
    }
    $conf->data->set(libs => $libs);

    for my $ldflags (qw(ld <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	112	211	
==>Z bernhard  $

=head1 NAME

Parrot::OpTrans - Transform Ops to C Code 

=head1 DESCRIPTION

C<Parrot <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344272	344366	
==>});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_op <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345514	345608	
==>});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_op <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346756	346850	
==>});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_op <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347999	348093	
==>});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_op <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	12246	12365	
==>b is_opcode {
    my $f = shift;
    return $builtin_ops{$f};
}

sub LOAD_GLOBAL {
    my ($n, $c, $cmt) = @_;
    if (i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332688	332787	
==>_cstring() need freeing\n     but this generates ugly warnings WRT discarding the const\n     qualif <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333966	334065	
==>_cstring() need freeing\n     but this generates ugly warnings WRT discarding the const\n     qualif <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335244	335343	
==>_cstring() need freeing\n     but this generates ugly warnings WRT discarding the const\n     qualif <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336523	336622	
==>_cstring() need freeing\n     but this generates ugly warnings WRT discarding the const\n     qualif <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	7539	7637	
==>struct call_state *st, int n)
{
    assert(n < st->src.n);
    Parrot_fetch_arg_nci(interpreter, st <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	7722	7820	
==>struct call_state *st, int n)
{
    assert(n < st->src.n);
    Parrot_fetch_arg_nci(interpreter, st <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	7904	8002	
==>struct call_state *st, int n)
{
    assert(n < st->src.n);
    Parrot_fetch_arg_nci(interpreter, st <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	660	756	
==>ection()>

Returns the root section.

=cut

sub root_section
{
    require Parrot::Docs::Section: <==
5	/Users/nnunley/parrot/lib/Test/More.pm	9271	9367	
==>ression.  It may be given as a
regex reference (i.e. C<qr//>) or (for better compatibility with o <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45560	45654	
==>y $ENDDIRECTIVEMK	= '\G\s*>';
my $RESYNCMK		= '\G\s*<resync>';
my $RESYNCPATMK		= '\G\s*<resync <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773380	773470	
==>"BODY" => "#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interp <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774290	774380	
==>"BODY" => "#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interp <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775200	775290	
==>"BODY" => "#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interp <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776111	776201	
==>"BODY" => "#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interp <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9614	9857	
==>codes, new KeyedGetOp(
                        $parser,
                        'result' => $result2,
                        'arg1'   => $result,
                        'arg2'   => $key->[0],
                    );
                    $ <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11407	11645	
==>codes, new KeyedGetOp( $parser,
                            'result' => $result2,
                            'arg1'   => $result,
                            'arg2'   => $key->[0],
                        );
                        $ <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12911	13129	
==>codes, new KeyedGetOp( $parser,
                        'result' => $result2,
                        'arg1'   => $result,
                        'arg2'   => $key->[0],
                    );
                    $ <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8558	8736	
==>codes, new KeyedGetOp( $parser,
                'result' => $result2,
                'arg1'   => $result,
                'arg2'   => $key->[0],
            );
            $ <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17756	17914	
==>codes, new KeyedGetOp( $parser,
            'result' => $result2,
            'arg1'   => $result,
            'arg2'   => $key->[0],
        );
        $ <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33234	33384	
==>ult' => $var,
            'arg1'   => $nil->[0],
        );
        push @return1, $var;
    }
    else {
        push @opcodes2, @{ $expr->[1] } <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8021	8120	
==>"  unless defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_symbol($name <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8668	8767	
==>"  unless defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_symbol($name <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9336	9435	
==>"  unless defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_symbol($name <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10005	10104	
==>"  unless defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_symbol($name <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867280	867537	
==>interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868246	868503	
==>interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869212	869469	
==>interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870179	870436	
==>interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	941	1082	
==>>{_G},
            'arg1'   => '_G',
        );
    }
    return [ $parser->YYData->{_G}, \@opcodes ];
}

sub get_cond {
    my ( $par <==
5	/Users/nnunley/parrot/config/init/hints/irix.pm	128	236	
==>ackage init::hinits::irix;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    my $ccflags = $conf-> <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22491	22603	
==>_add_inst(''           ,'mod'   ,[$temp_0,$temp_0,$temp_1]);
  $self->_add_inst(''           ,'eq'    ,[$temp_0,1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586655	586748	
==>PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587841	587934	
==>PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589027	589120	
==>PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590214	590307	
==>PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731754	732037	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 821,
                  "ARGS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018110	1018342	
==>ing(interpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019035	1019267	
==>ing(interpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019965	1020197	
==>ing(interpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020896	1021128	
==>ing(interpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492232	492525	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492992	493285	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498965	499258	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499727	500020	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYP <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	1309	1427	
==>}
	if ($cur eq '"') {   # String constants
		append;
		fetch;
		while($cur ne '"') {
			if ($cur eq "\n") {
				$cur=q{ <==
5	/Users/nnunley/parrot/config/inter/progs.pm	3047	3150	
==>>get('ldflags');
    $ldflags =~ s/-libpath:\S+//g;   # XXX No idea why.
    $ldflags = integrate($ldfla <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062003	1062304	
==>"JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062872	1063173	
==>"JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063741	1064042	
==>"JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064611	1064912	
==>"JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065484	1065785	
==>"JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
5	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	1359	1459	
==>llegal version component: '$_' in VERSION file!" unless m/^[1-9]*\w*$/;
    }

    if (@parrot_versio <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332368	332463	
==>* need to go away soon */\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333646	333741	
==>* need to go away soon */\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334924	335019	
==>* need to go away soon */\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336203	336298	
==>* need to go away soon */\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770046	770301	
==>G_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770899	771154	
==>G_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771752	772007	
==>G_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772606	772861	
==>G_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
5	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	2333	2438	
==>n -e $self->parent_path;
}

=item C<path()>

Returns the actual path.

=cut

sub path
{
    my $self = shi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061961	1062258	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062830	1063127	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063699	1063996	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064569	1064866	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065442	1065739	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39482	39604	
==>t->{symbol},
        'type'   => 'Sub',
    );
    push @opcodes1, new NewClosureOp( $parser,
        'result' => $resu <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769971	770072	
==>>= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770824	770925	
==>>= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771677	771778	
==>>= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772531	772632	
==>>= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	15805	15944	
==>lf->diag("    '$regex' doesn't look much like a regex to me.");
        return $ok;
    }

    {
        local $^W = 0;
        my $test = $ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753916	754180	
==>> "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 85 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754704	754968	
==>> "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 85 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755490	755754	
==>> "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 85 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756277	756541	
==>> "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 85 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757066	757330	
==>> "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 85 <==
5	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	16836	16947	
==>p> instances found in the file(s).

=cut

sub ops
{
    my ($self) = @_;

    return @{$self->{OPS}};
}

=item C <==
5	/Users/nnunley/parrot/config/auto/gcc.pm	4916	5059	
==>ate-outgoing-args/) {
                use Config;
                if ($Config{archname} !~ /86/) {
                    $opt =~ s/-mno-accumulate <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2846	2958	
==>=> { kind => 'infix', name => $op } });
    $left->sax($handler);
    $right->sax($handler);
    $handler->end_el <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3520	3632	
==>=> { kind => 'infix', name => $op } });
    $left->sax($handler);
    $right->sax($handler);
    $handler->end_el <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3610	3722	
==>=> { kind => 'infix', name => $op } });
    $left->sax($handler);
    $right->sax($handler);
    $handler->end_el <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5395	5501	
==>=> { kind => 'infix', name => $op } });
  $left->sax($handler);
  $right->sax($handler);
  $handler->end_el <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3458	3564	
==>=> { kind => 'infix', name => $op } });
  $left->sax($handler);
  $right->sax($handler);
  $handler->end_el <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19005	19099	
==>set',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return $ret <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19493	19587	
==>set',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return $ret <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19981	20075	
==>set',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return $ret <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20470	20564	
==>set',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return $ret <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20959	21053	
==>set',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return $ret <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151099	151191	
==>>vtable->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152077	152169	
==>>vtable->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172327	172419	
==>>vtable->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173305	173397	
==>>vtable->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949907	950215	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950866	951174	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951826	952134	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952786	953094	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	3525	3639	
==>) {
		return "0.0";
	} else {
		return qq{""};
	}
}
my $eqnum=0;
my %opsubs=(
	'+' => sub { 
		my ($a1, $a2, $resul <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	18258	18373	
==>0];
    splice @$treelet, 0, 2;  # lop the top off
    return $treelet;
  } else {
    $treelet = $self->_treelet_fr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83675	83764	
==>ompreg_hash = VTABLE_get_pmc_keyed_int(interpreter,\n      interpreter->iglobals, IGLOBALS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84581	84670	
==>ompreg_hash = VTABLE_get_pmc_keyed_int(interpreter,\n      interpreter->iglobals, IGLOBALS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85486	85575	
==>ompreg_hash = VTABLE_get_pmc_keyed_int(interpreter,\n      interpreter->iglobals, IGLOBALS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86393	86482	
==>ompreg_hash = VTABLE_get_pmc_keyed_int(interpreter,\n      interpreter->iglobals, IGLOBALS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926147	926303	
==>n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    cas <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927617	927773	
==>n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    cas <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929087	929243	
==>n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    cas <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930558	930714	
==>n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    cas <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26753	26847	
==>e, @code)=EXPRESSION({ignorecomma => 1});
#	print STDERR "Got back @code\n";
	push @{$code{$seg <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11201	11401	
==>2 = new_tmp( $parser, 'pmc' );
                        push @opcodes, new LocalDir( $parser,
                            'result' => $result2,
                        );
                        pus <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9424	9608	
==>2 = new_tmp( $parser, 'pmc' );
                    push @opcodes, new LocalDir( $parser,
                        'result' => $result2,
                    );
                    pus <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12721	12905	
==>2 = new_tmp( $parser, 'pmc' );
                    push @opcodes, new LocalDir( $parser,
                        'result' => $result2,
                    );
                    pus <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8400	8552	
==>2 = new_tmp( $parser, 'pmc' );
            push @opcodes, new LocalDir( $parser,
                'result' => $result2,
            );
            pus <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17614	17750	
==>2 = new_tmp( $parser, 'pmc' );
        push @opcodes, new LocalDir( $parser,
            'result' => $result2,
        );
        pus <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100967	1101326	
==>base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1220,
                  "ARGS" => [
                              "n",
                              " <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29417	29534	
==>be
					  . ']},
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31514	31631	
==>be
					  . ']},
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27314	27424	
==>be
					  . ']}, Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22419	22527	
==>be . ']},
					Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433168	433466	
==>ine",
                  "CODE" => 497,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 84 \"src/ops/math.ops\" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273625	273772	
==>=> "#line 876 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	274471	274618	
==>=> "#line 876 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	275317	275464	
==>=> "#line 876 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/lib/Test/More.pm	5854	5952	
==>ded or failed.  Everything
else is just gravy.

All of the following print "ok" or "not ok" dependi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264341	264477	
==>],
                  "BODY" => "#line 806 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LAB <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265195	265331	
==>],
                  "BODY" => "#line 806 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LAB <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266049	266185	
==>],
                  "BODY" => "#line 806 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LAB <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266904	267040	
==>],
                  "BODY" => "#line 806 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LAB <==
5	/Users/nnunley/parrot/config/gen/platform.pm	5050	5177	
==>erated c files
    @impls = grep { /\.c$/ } split(',', $generated);
    for (@impls) {
        if (-e $_) {
            local $/ <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4861	4983	
==>(@$incexc);
        my $last = shift(@$incexc);
        if (defined($last)) {
            push @ops, "goto $fail if <rx_tmp <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579293	579388	
==>ass = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580598	580693	
==>ass = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581903	581998	
==>ass = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583209	583304	
==>ass = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48671	48891	
==>_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49461	49681	
==>_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50271	50491	
==>_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51064	51284	
==>_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	751	848	
==>f->{_markers} = {};
    $self->{_temp_int_count} = 3;
    $self->{state} ||= Regex->global_state() <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1310	1409	
==>ks. They really should not be
  # triggered in normal operation, even with bad source code as input. <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1255	1354	
==>ks. They really should not be
  # triggered in normal operation, even with bad source code as input. <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1158	1257	
==>ks. They really should not be
  # triggered in normal operation, even with bad source code as input. <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1887	1985	
==>$debuglevel, 0);
 ...some stuff that uses Pod::Simple to do stuff, but which
  you don't want debug <==
5	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18388	18474	
==>_size( I<halfpoint_integer> );

=item $parser->head2_halfpoint_size( I<halfpoint_intege <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	2972	3080	
==>buffer...\n";
    if($self->{'source_dead'}) {
      DEBUG and print "$self 's source is dead.\n";
      push <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	14625	14752	
==>,
			"(" => 10,
			"." => 15
		},
		DEFAULT => -10,
		GOTOS => {
			'expr' => 28,
			'charclass' => 12,
			'range' => 25
		}
	}, <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	1653	1764	
==>re the beginning
    $pos = $count if $pos > $count; # Just past the end (in case we get more tokens)

    $self <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579626	579717	
==>interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580931	581022	
==>interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582236	582327	
==>interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583542	583633	
==>interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	270576	270894	
==>,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 31 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271421	271739	
==>,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 31 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272267	272585	
==>,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 31 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273113	273431	
==>,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 31 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273958	274276	
==>,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 31 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	274804	275122	
==>,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 32 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	275650	275968	
==>,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 32 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276527	276845	
==>,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 32 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277405	277723	
==>,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 32 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	278283	278601	
==>,
                  "NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 32 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071944	1072056	
==>@5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074129	1074241	
==>@5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076314	1076426	
==>@5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078500	1078612	
==>@5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	4536	4629	
==>>

Runs C<Pod::Simple::Checker> on the contents of the file. Executable
files, and F<*.dump> f <==
5	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	196	293	
==>(my $smokeserv = "http://smoke.parrotcode.org/smoke/"),
  "help"        => \&usage,
  "compress|c! <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950474	950563	
==>"BODY" => "#line 540 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interprete <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951434	951523	
==>"BODY" => "#line 540 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interprete <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952394	952483	
==>"BODY" => "#line 540 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interprete <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953355	953444	
==>"BODY" => "#line 540 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interprete <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279174	279492	
==>,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 32 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	280028	280346	
==>,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 32 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	280883	281201	
==>,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 32 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	281738	282056	
==>,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 32 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	282582	282900	
==>,
                  "NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 32 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024323	1024613	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025079	1025369	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025836	1026126	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026592	1026882	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => <==
5	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	9523	9643	
==>ion} && $arg->{type};
        $is_repeating = $arg->{repeating};
    }

    $max = undef if $is_repeating;
    
    retur <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	8281	8424	
==>} = $vars;
		    print "# $cur_f; vars=$vars\n";
		}
	    }
	    else {
		$in_info = 0;
	    }
	}
	else {
	    next if /^\s*$/;
	    decode_line <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634670	634765	
==>(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  clas <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635788	635883	
==>(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  clas <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636906	637001	
==>(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  clas <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638025	638120	
==>(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  clas <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842615	842942	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843492	843819	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844370	844697	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845248	845575	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20682	20767	
==>arserTextToken>, and
L<Pod::Simple::PullParserEndToken>.

L<HTML::TokeParser>, which i <==
5	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	6378	6517	
==>0)       : 0));
    
    print OUT page_header("Parrot Test Coverage");
    print OUT qq(
            <ul>
              <li><a href="file_s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332554	332648	
==>\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode); * <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333832	333926	
==>\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode); * <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335110	335204	
==>\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode); * <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336389	336483	
==>\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode); * <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071809	1071911	
==>xperimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073994	1074096	
==>xperimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076179	1076281	
==>xperimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078365	1078467	
==>xperimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	1701	1794	
==>item('', 'Configure.pl'),
		$self->config_groups,
        $self->new_group('Documentation', '' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571218	571544	
==>\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568481	568805	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569373	569697	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570266	570590	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FL <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	5822	5922	
==>bug, should print = greeting
dim a$(1)
a$(2)="World"
a$="Hello"
A$ = A$ + "=" + A$(2)
print a$


' Do <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	2108	2209	
==>lex_num} = $lex_num;
    my $scope = shift @{ $parser->YYData->{scopef} };
    $parser->YYData->{sco <==
5	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	14780	14876	
==>e
error reporting needs of the cmp_ok() function.

- is_deeply

Once nested data structures are i <==
5	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	328	417	
==>es('VerbatimFormatted');
  return $new;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
5	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	327	416	
==>es('VerbatimFormatted');
  return $new;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
5	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	525	614	
==>es('VerbatimFormatted');
  return $new;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11199	11399	
==>lt2 = new_tmp( $parser, 'pmc' );
                        push @opcodes, new LocalDir( $parser,
                            'result' => $result2,
                        );
                        p <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9422	9606	
==>lt2 = new_tmp( $parser, 'pmc' );
                    push @opcodes, new LocalDir( $parser,
                        'result' => $result2,
                    );
                    p <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12719	12903	
==>lt2 = new_tmp( $parser, 'pmc' );
                    push @opcodes, new LocalDir( $parser,
                        'result' => $result2,
                    );
                    p <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8398	8550	
==>lt2 = new_tmp( $parser, 'pmc' );
            push @opcodes, new LocalDir( $parser,
                'result' => $result2,
            );
            p <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17612	17748	
==>lt2 = new_tmp( $parser, 'pmc' );
        push @opcodes, new LocalDir( $parser,
            'result' => $result2,
        );
        p <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27523	27627	
==>a($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($r <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29990	30094	
==>a($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($r <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33408	33512	
==>a($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($r <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34662	34766	
==>a($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($r <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37072	37176	
==>a($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_pir($r <==
5	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	6860	7002	
==>( $$t =~ m/$/mg ) {
            last if  ++$line_count  > 15; # no point in counting further
          }
          DEBUG > 3 and print "    ver <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8350	8490	
==>STDERR "Back to state $$stack[-1][0], then ";

                $$check eq 'ERROR'
            or  do {
#DBG>				$debug & 0x04
#DBG>			an <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7970	8105	
==>STDERR "Back to state $$stack[-1][0], then ";

                $$check eq 'ERROR'
            or  do {
#DBG>				$debug & 0x04
#DBG>			an <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6363	6472	
==>y.
WHILE Exchange          ' Sort until no elements are exchanged.
   Exchange=FALSE
   ' Compare the array el <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16016	16125	
==>y.
WHILE Exchange          ' Sort until no elements are exchanged.
   Exchange=FALSE
   ' Compare the array el <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443062	443486	
==>",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 507,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332728	332844	
==>enerates ugly warnings WRT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334006	334122	
==>enerates ugly warnings WRT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335284	335400	
==>enerates ugly warnings WRT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336563	336679	
==>enerates ugly warnings WRT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" <==
5	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	705	813	
==>ost common case: one bare string
      return bless ['', {}, $_[0] ], $class;
    } elsif( ref($_[0] || '') e <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5590	5677	
==>item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGot <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4595	4682	
==>item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGot <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4572	4659	
==>item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGot <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3956	4043	
==>item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGot <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	3083	3188	
==>l Pod content
 'errors_seen',       # TODO: document.  whether we've seen any errors (fatal or not)

 'cod <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25153	25252	
==>en = defined $node->{children} ? @{$node->{children}} - 1 : 0;

  if($num_children==0) {
    $return <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27053	27152	
==>en = defined $node->{children} ? @{$node->{children}} - 1 : 0;

  if($num_children==0) {
    $return <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24265	24363	
==>en = defined $node->{children} ? @{$node->{children}} - 1 : 0;
  if($num_children==0) {
    $return <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26164	26262	
==>en = defined $node->{children} ? @{$node->{children}} - 1: 0;

  if($num_children==0) {
    $return <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	35495	35661	
==>og,
  'sin'              => \&_op_sin,
  'cos'              => \&_op_cos,
  'tan'              => \&_op_tan,
  'asin'             => \&_op_asin,
  'acos'             = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634690	634785	
==>CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vta <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635808	635903	
==>CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vta <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636926	637021	
==>CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vta <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638045	638140	
==>CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vta <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726996	727169	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exchange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727794	727967	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exchange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	728591	728764	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exchange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729385	729558	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exchange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	251	341	
==>ERSION @ISA
  @Known_formatting_codes  @Known_directives
  %Known_formatting_codes  %Known_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359417	359618	
==>ter, PIO_STDERR(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360165	360366	
==>ter, PIO_STDERR(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360935	361136	
==>ter, PIO_STDERR(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	865	964	
==>string
# literals are subject to interpolation, and so they go through
# compilation in such a way t <==
5	/Users/nnunley/parrot/lib/Test/More.pm	12730	12829	
==>t normally just refer to 'the object'.  If
you'd like them to be more specific, you can supply an $o <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727083	727348	
==>E" => "exchange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "io"
                               ],
                  "TYPE" => "function",
                  "CO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727881	728146	
==>E" => "exchange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "io"
                               ],
                  "TYPE" => "function",
                  "CO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	728678	728943	
==>E" => "exchange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "io"
                               ],
                  "TYPE" => "function",
                  "CO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729472	729737	
==>E" => "exchange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "io"
                               ],
                  "TYPE" => "function",
                  "CO <==
5	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15499	15594	
==>esc?) returns Bool;

Because these functions will be mutually recursive, they will easily be
abl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650116	650381	
==>"JUMP" => 0,
                  "NAME" => "valid_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functio <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651037	651302	
==>"JUMP" => 0,
                  "NAME" => "valid_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functio <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5540	5639	
==>ir.'[1]',$return]);
      $self->_add_inst ('', 'set', [$return,$pair]);
      $self->_restore ($ite <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17087	17181	
==>ir.'[1]',$return]);
    $self->_add_inst ('', 'set',[$return,$pair]);

    $self->_restore($ite <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6574	6663	
==>ir.'[1]',$return]);
  $self->_add_inst('', 'set', [$return,$pair]);
  $self->_restore($ite <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858707	858992	
==>INTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859711	859996	
==>INTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860715	861000	
==>INTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861720	862005	
==>INTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20646	20756	
==>urceline++;
		}
		feedme;   # Collect the "type"
		$usertypes{$typename}=[ @types ];
		print CODE <<TYPE;
	# Ty <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659288	659610	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exists",
                  "FLAGS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660209	660531	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exists",
                  "FLAGS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661131	661453	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exists",
                  "FLAGS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662046	662368	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exists",
                  "FLAGS" <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	8924	9015	
==>set;
	tie $thisoffset, q{Parse::RecDescent::OffsetCounter}, \$text, $thisparser;
	':'') . ($ <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6772	6892	
==>rstatus == 0
#DBG>				and	do {
#DBG>					print STDERR "**End of Error recovery.\n";
#DBG>					$dbgerror=0;
#DBG>				} <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	8201	8318	
==>r pir) not provided in rule " .
            "$rule->{'name'}\n";
    }

	# typeinfo must be supplied with op, load and <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8643	8759	
==>rstatus == 0
#DBG>			and	do {
#DBG>				print STDERR "**End of Error recovery.\n";
#DBG>				$dbgerror=0;
#DBG>			} <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6457	6573	
==>rstatus == 0
#DBG>				and	do {
#DBG>					print STDERR "**End of Error recovery.\n";
#DBG>					$dbgerror=0;
#DBG>				} <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8253	8365	
==>rstatus == 0
#DBG>			and	do {
#DBG>				print STDERR "**End of Error recovery.\n";
#DBG>				$dbgerror=0;
#DBG>			} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404021	404195	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404932	405106	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405844	406018	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406756	406930	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => <==
5	/Users/nnunley/parrot/config/gen/core_pmcs.pm	393	499	
==>p ':gen';

our $description = 'Generating core pmc list';
our @args = ();

sub runstep
{
    my ($self, $co <==
5	/Users/nnunley/parrot/lib/File/Which.pm	3370	3492	
==>ich;                  # exports which()
  use File::Which qw(which where);  # exports which() and where()
  
  my $exe_path <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	35759	35855	
==>more) tests than you planned, the missing (or extras)
will be considered failures.  If no tests w <==
5	/Users/nnunley/parrot/lib/Test/More.pm	33830	33926	
==>more) tests than you planned, the missing (or extras)
will be considered failures.  If no tests w <==
5	/Users/nnunley/parrot/lib/Test/Simple.pm	2626	2722	
==>more) tests than you planned, the missing (or extras)
will be considered failures.  If no tests w <==
5	/Users/nnunley/parrot/lib/Parrot/Test.pm	5299	5393	
==>like().  This I<does> set a description for you, so don't pass
one.

=item C<example_output_isn <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	1494	1607	
==>],
 ],
 apply => 
 [['# Apply function'],
  ['apply_ENTRY', 'set', 'P0', 'P5'],
  ['',            'set', 'P16', 'P <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071790	1071888	
==>line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073975	1074073	
==>line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076160	1076258	
==>line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078346	1078444	
==>line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018097	1018318	
==>ing_from_cstring(interpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019022	1019243	
==>ing_from_cstring(interpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019952	1020173	
==>ing_from_cstring(interpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020883	1021104	
==>ing_from_cstring(interpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	46007	46119	
==>ormatted';

  # Collapse adjacent text nodes, just for kicks.
  for( my $i = 2; $i > $#$p; $i++ ) { # work forwar <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961039	961145	
==>= Parrot_string_trans_encoding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LAB <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962001	962107	
==>= Parrot_string_trans_encoding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LAB <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962963	963069	
==>= Parrot_string_trans_encoding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LAB <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963926	964032	
==>= Parrot_string_trans_encoding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LAB <==
5	/Users/nnunley/parrot/lib/Parrot/Test.pm	2066	2156	
==>ption)> or C<output_like($code, $expected, $description)>

Runs the Parrot Assembler code a <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296463	296781	
==>,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 34 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297318	297636	
==>,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 34 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298174	298492	
==>,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 34 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299030	299348	
==>,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 34 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299875	300193	
==>,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 34 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300721	301039	
==>,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 35 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301567	301885	
==>,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 35 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302442	302760	
==>,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 35 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303318	303636	
==>,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 35 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	304194	304512	
==>,
                  "NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 35 <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11540	11641	
==>xpression::Value->new($block, $self->forth);

      $self->require_semicolon;

      my $arith = Jako: <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16485	16586	
==>xpression::Value->new($block, $self->forth);

      $self->require_semicolon;

      my $arith = Jako: <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17256	17357	
==>xpression::Value->new($block, $self->forth);

      $self->require_semicolon;

      my $arith = Jako: <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18061	18162	
==>xpression::Value->new($block, $self->forth);

      $self->require_semicolon;

      my $arith = Jako: <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	4514	4614	
==>mc __lib");
    $compiler->emit("  loadlib __lib, $fnlib");
    $compiler->emit("  .local pmc __func" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454725	455051	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":ba <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455580	455906	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":ba <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456435	456761	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":ba <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457289	457615	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":ba <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458144	458470	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":ba <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	257	366	
==>mp   = {};

  die "EOF reached" if $count >= $#$tokens;

  if ($tokens->[$count] eq '(') {
    $temp->{childre <==
5	/Users/nnunley/parrot/lib/Pod/Escapes.pm	13575	13668	
==>ess of the version of Perl you're using --
which differs from C<%Name2character>'s behavior un <==
5	/Users/nnunley/parrot/tools/build/dynclasses.pl	1397	1487	
==>tion -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPAR <==
5	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1442	1532	
==>tion -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPAR <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	1446	1536	
==>tion -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPAR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597354	597487	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "getcla <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598400	598533	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "getcla <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599447	599580	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "getcla <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600522	600655	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "getcla <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9189	9307	
==>h of the PMC's
superclasses.

=cut

sub includes() {
    my $self = shift;

    my $cout = "";
    $cout .= <<"EOC";
#i <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	3191	3318	
==>n") {   # ;?
		append;
		emit("STMT");
		fetch;
		goto MAIN;
	}
	if ($cur eq ":") {
		append;
		emit("COMP");
		fetch;
		goto MA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099144	1099271	
==>@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100342	1100469	
==>@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101540	1101667	
==>@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102739	1102866	
==>@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058178	1058347	
==>",
                              "sc"
                            ],
                  "BODY" => "#line 194 \"src/ops/var.ops\"\n    {{\@1}} = Parrot_get_global_p(interpr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059071	1059240	
==>",
                              "sc"
                            ],
                  "BODY" => "#line 194 \"src/ops/var.ops\"\n    {{\@1}} = Parrot_get_global_p(interpr <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27435	27535	
==>'
		$lastsep = "";
		$Parse::RecDescent::lastexpected = q{' . ($rule->hasleftmost($self) ? ''
				: $ <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29545	29645	
==>'
		$lastsep = "";
		$Parse::RecDescent::lastexpected = q{' . ($rule->hasleftmost($self) ? ''
				: $ <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31642	31742	
==>'
		$lastsep = "";
		$Parse::RecDescent::lastexpected = q{' . ($rule->hasleftmost($self) ? ''
				: $ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332786	333093	
==>ifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334064	334371	
==>ifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335342	335649	
==>ifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336621	336928	
==>ifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
5	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	13026	13126	
==>l_var name=timestamp></td>
			<td class="leftsep"><tmpl_var name=harness_args></td>
            <td c <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4225	4326	
==>,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		return(<<CODE <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4489	4590	
==>,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		return(<<CODE <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5125	5226	
==>,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		return(<<CODE <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5501	5602	
==>,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		return(<<CODE <==
5	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	4008	4101	
==>alls
^debian$
^debian/
END_HEADER

find(\&wanted, '.');

my $svnignore = `svn propget svn:igno <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867270	867445	
==>ng_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868236	868411	
==>ng_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869202	869377	
==>ng_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870169	870344	
==>ng_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	12588	12702	
==>n.

=cut

sub isnt_eq {
    my($self, $got, $dont_expect, $name) = @_;
    local $Level = $Level + 1;

    if( !def <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	21155	21269	
==>ot = '';
	if ($c eq 'is not' || $c eq 'not in') {
	    $isnot = qq!\n\t$res = not $res!;
	}
	if ($op eq 'exists') { <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	301	406	
==>rter Test::More);

sub import {
    my( $class, $plan, @args ) = @_;

    Test::More->import( $plan, @args <==
5	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	218	323	
==>rter Test::More);

sub import {
    my( $class, $plan, @args ) = @_;

    Test::More->import( $plan, @args <==
5	/Users/nnunley/parrot/tools/build/c2str.pl	3127	3227	
==>g_private_h or die "Can't write '$string_private_h': $!";
    print OUT <<"HEADER";
/* ex: set ro:
 * <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	1820	1913	
==>:Ops::Tree);
@Regex::Ops::Tree::check::ISA        = qw(Regex::Ops::Tree);

@Regex::Ops::Tree:: <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7212	7324	
==>ser-included assembly\n$syms[CURR]\n\t# End assembly\n\t#\n";
		feedme;
		
		goto PARSE;
	}
		
	# DO ME LAST
	# ( <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2884	2975	
==>LSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	6338	6429	
==>LSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4554	4645	
==>LSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4531	4622	
==>LSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3915	4006	
==>LSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646894	647183	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647654	647943	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648415	648704	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649177	649466	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	21860	21967	
==>ub
#line 160 "lib/Regex/Grammar.y"
{ return $_[1] * 10 + $_[2]; }
	],
	[#Rule 34
		 'number', 1,
sub
#line 1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344541	344797	
==>w(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345783	346039	
==>w(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347025	347281	
==>w(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348268	348524	
==>w(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	2209	2317	
==>ad constant" unless ($cur =~ /[oOhH]/);
		if ($cur =~ /[oO]/) {
			append;
			fetch;
			while($cur =~ /[0-7]/ <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	40138	40263	
==>t = 0;
		  my  @item;
		  ';

	if ($self->{type} eq "leftop" )
	{
		$code .= '
		  # MATCH LEFTARG
		  ' . $leftarg->code(@_[1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344616	344920	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesy <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345858	346162	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesy <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347100	347404	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesy <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348343	348647	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesy <==
5	/Users/nnunley/parrot/config/auto/headers.pm	846	960	
==>in");

    for (keys %Config) {
        next unless /^i_/;
        $conf->data->set($mapping{$_} || $_ => $Config{$ <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	2618	2744	
==>agname eq 'F' )
    {
        $self->process_file_start_token($token);
    }
    elsif ( $tagname eq 'C' )
    {
        $self- <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610575	610807	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611477	611709	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612380	612612	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613286	613518	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
5	/Users/nnunley/parrot/tools/dev/pbc_header.pl	1299	1413	
==>sion;
    for my $f (@ARGV) {
	open F, "+<$f" or die "Can't open $f: $!";
	seek F, 2, 0;	# pos 2: major, minor
	pri <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343348	343707	
==>> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769989	770112	
==>n        PANIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770842	770965	
==>n        PANIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771695	771818	
==>n        PANIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772549	772672	
==>n        PANIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381235	381383	
==>interpreter, NULL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382247	382395	
==>interpreter, NULL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383259	383407	
==>interpreter, NULL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384272	384420	
==>interpreter, NULL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/lib/Test/More.pm	1343	1447	
==>:Module' ); }
  require_ok( 'Some::Module' );

  # Various ways to say "ok"
  ok($this eq $that, $test_na <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	36112	36233	
==>ll tests successful
    255                 test died
    any other number    how many failed (including missing or extras <==
5	/Users/nnunley/parrot/lib/Test/More.pm	34183	34304	
==>ll tests successful
    255                 test died
    any other number    how many failed (including missing or extras <==
5	/Users/nnunley/parrot/lib/Test/Simple.pm	2978	3099	
==>ll tests successful
    255                 test died
    any other number    how many failed (including missing or extras <==
5	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10055	10168	
==>f->options->get('verbose');

    if (defined($_[0]) && length($_[0])) {
        local $" = ' ';
        _run_comma <==
5	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10636	10749	
==>f->options->get('verbose');

    if (defined($_[0]) && length($_[0])) {
        local $" = ' ';
        _run_comma <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436212	436510	
==>ine",
                  "CODE" => 500,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 94 \"src/ops/math.ops\"\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579669	579923	
==>TABLE_subclass(interpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580974	581228	
==>TABLE_subclass(interpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582279	582533	
==>TABLE_subclass(interpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583585	583839	
==>TABLE_subclass(interpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
5	/Users/nnunley/parrot/lib/Test/More.pm	33422	33522	
==>lder object like so:

=over 4

=item B<builder>

    my $test_builder = Test::More->builder;

Returns <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634577	634672	
==>MC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635695	635790	
==>MC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636813	636908	
==>MC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637932	638027	
==>MC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909355	909613	
==>ng_str_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910252	910510	
==>ng_str_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911149	911407	
==>ng_str_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912047	912305	
==>ng_str_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
5	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	4869	4964	
==>est::MD5> module is available it is used and if not you take
C<Digest::Perl::MD5>.

You can also <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237163	237483	
==>i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 276,
                  "ARGS" => [
                              "i",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 606 \"src/op <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18168	18395	
==>l(interpreter, {{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18977	19204	
==>l(interpreter, {{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21331	21558	
==>l(interpreter, {{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22145	22372	
==>l(interpreter, {{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot: <==
5	/Users/nnunley/parrot/lib/Test/More.pm	28313	28424	
==>y($a1, $a2) = @_;

    if( grep !_type($_) eq 'ARRAY', $a1, $a2 ) {
        warn "eq_array passed a non-array re <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066905	1067002	
==>49 \"src/ops/experimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068091	1068188	
==>49 \"src/ops/experimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069277	1069374	
==>49 \"src/ops/experimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070464	1070561	
==>49 \"src/ops/experimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072700	1072814	
==>cessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074885	1074999	
==>cessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077070	1077184	
==>cessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079256	1079370	
==>cessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x <==
5	/Users/nnunley/parrot/config/gen/icu.pm	176	274	
==>TION

Configures ICU and add appropriate targets to the Makefile.

=cut

package gen::icu;

use str <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679595	679918	
==>",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 762,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 483 \"src/ops <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610633	610911	
==>E" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611535	611813	
==>E" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612438	612716	
==>E" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613344	613622	
==>E" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11207	11406	
==>w_tmp( $parser, 'pmc' );
                        push @opcodes, new LocalDir( $parser,
                            'result' => $result2,
                        );
                        push @op <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9430	9613	
==>w_tmp( $parser, 'pmc' );
                    push @opcodes, new LocalDir( $parser,
                        'result' => $result2,
                    );
                    push @op <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12727	12910	
==>w_tmp( $parser, 'pmc' );
                    push @opcodes, new LocalDir( $parser,
                        'result' => $result2,
                    );
                    push @op <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8406	8557	
==>w_tmp( $parser, 'pmc' );
            push @opcodes, new LocalDir( $parser,
                'result' => $result2,
            );
            push @op <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17620	17755	
==>w_tmp( $parser, 'pmc' );
        push @opcodes, new LocalDir( $parser,
            'result' => $result2,
        );
        push @op <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	8694	8806	
==>follow_min, $guarantee);

        foreach my $kid (@{ $t->{args} }) {
            $kid_follow_min += $kid->minlen <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344246	344336	
==>string(interpreter, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter, { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345488	345578	
==>string(interpreter, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter, { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346730	346820	
==>string(interpreter, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter, { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347973	348063	
==>string(interpreter, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter, { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421376	421796	
==>RS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 484,
                  "ARGS" => [
                              "i",
                              "p",
                              "s"
                            ],
                  "BODY" => <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9566	9681	
==>ut: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	print STDERR "**At eof: aborting.\n";
				return(unde <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9136	9247	
==>ut: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	print STDERR "**At eof: aborting.\n";
				return(unde <==
5	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	4797	4904	
==>s, $function) = /\s*([^%]+)% of (\d+) branches taken at least once in function (.*)/;
            if ($total <==
5	/Users/nnunley/parrot/config/gen/core_pmcs.pm	46	137	
==>.
# $Id: /parrot/config/gen/core_pmcs.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 N <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113285	113547	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114023	114285	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114762	115024	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115616	115878	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116471	116733	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	2851	2994	
==>->pass1($t, $ctx)]);
            }
        }

        # opt(aR|aS) -> a opt(R|S)
        # opt(aR|aS|aT) -> a opt(R|S|T)
        # opt(aR|aS|bT) <==
5	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11006	11110	
==>an't read $infile: $!\n";
    open (OUT, ">$outfile") or die "Can't write $outfile: $!\n";

    print OUT <==
5	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11490	11594	
==>an't read $infile: $!\n";
    open (OUT, ">$outfile") or die "Can't write $outfile: $!\n";

    print OUT <==
5	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11954	12058	
==>an't read $infile: $!\n";
    open (OUT, ">$outfile") or die "Can't write $outfile: $!\n";

    print OUT <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	736	832	
==>>new unless ref $self;

  $source = *STDIN{IO} unless defined $source;
  $self->set_source($sourc <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	21917	22033	
==>nt_stack {
    for $_ (@stack) {
	print "# STACK $_->[0] $_->[1] $_->[2]\n";
    }
}


sub ret_val {
    my $a = shif <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	26123	26244	
==>nterp, entry,
            _temp_mmd_init, N_MMD_INIT);
EOC
    }

    $cout .= <<"EOC";
    } /* pass */
} /* Parrot_${cla <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10746	10851	
==>shift; # Required: Jako::Construct::Block

  confess "No block!"        unless defined $self and ref $self <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4422	4521	
==>shift; # Required: Jako::Construct::Block

  confess "No block!"  unless defined $self and ref $self <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4929	5028	
==>shift; # Required: Jako::Construct::Block

  confess "No block!"  unless defined $self and ref $self <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10332	10430	
==>shift; # Required: Jako::Construct::Block

  confess "No block!" unless defined $self and ref $self <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145191	145440	
==>177,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 84 \"src/ops/cmp.ops\"\n  if (string_equal( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836755	836930	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837487	837662	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838221	838396	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838953	839128	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504090	504420	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504945	505275	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505800	506130	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506654	506984	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507509	507839	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061110	1061388	
==>n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062650	1062928	
==>n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063519	1063797	
==>n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064389	1064667	
==>n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065262	1065540	
==>n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace", <==
5	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	4970	5075	
==>nd
    value_type = typeof value
    if value_type != 'String' goto print_space
    if old_type != value_t <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	16531	16634	
==>re_load for typed exception handler");
	$pir .= "### end pre_load (typed eh)\n";
    $pir .= <<'PIRCODE' <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4070	4171	
==>e($compiler);
  }

  unless ($right_type->name eq $calc_type->name) {
#    $self->DEBUG(0, "   ...conv <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2129	2229	
==>) {
    $self->prefix($self->peer->prefix);
  }

  if ($self->prefix) {
    $handler->start_element({ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2006	2106	
==>) {
    $self->prefix($self->peer->prefix);
  }

  if ($self->prefix) {
    $handler->start_element({ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072182	1072319	
==>/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074367	1074504	
==>/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076552	1076689	
==>/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078738	1078875	
==>/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	12811	12908	
==>',map { quotemeta $_ } split('',$_)).')'
	}
	pos = $posbug;

	my @match = _match_codeblock($textre <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24384	24484	
==>0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{children}[1]);
    if ($retu <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25273	25373	
==>0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{children}[1]);
    if ($retu <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26283	26383	
==>0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{children}[1]);
    if ($retu <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27173	27273	
==>0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{children}[1]);
    if ($retu <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	10208	10307	
==>%=-7
print t%

' Expect 9
print (2+3*5-(6+abs(0-3)))+1


' Expect a Hello, World!
print "Hello, ";	' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601918	602126	
==>681,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 383 \"src/ops/object.ops\"\n  {{+=2}};\n",
                  "LABELS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071908	1072019	
==>AL r1 = {{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074093	1074204	
==>AL r1 = {{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076278	1076389	
==>AL r1 = {{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078464	1078575	
==>AL r1 = {{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099023	1099127	
==>Y" => "#line 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    I <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100221	1100325	
==>Y" => "#line 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    I <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101419	1101523	
==>Y" => "#line 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    I <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102618	1102722	
==>Y" => "#line 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    I <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	32367	32463	
==>haracter escapes it) from the very
	# beginning of $text:

		$substring = extract_delimited($text <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2425	2523	
==>k"
if 4>5 then print "Wrong" else print "OK"
if 5>=4 then print "Ok" else print "Wrong"
if 5>=5 the <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769226	769516	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770078	770368	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770931	771221	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771784	772074	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLA <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	70527	70629	
==>,$line)
		and
		_hint("Unless subrule \"$subrule\" performs some cunning
		       lookahead, the repeti <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214630	215017	
==>,
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 252,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 455 <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	4572	4692	
==>@{ $t->{args} } = ($opt, $leftovers);
        return $t;
    } else {
        # Find all subtrees, and recurse through th <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202735	202829	
==>p.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203666	203760	
==>p.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204597	204691	
==>p.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n <==
5	/Users/nnunley/parrot/config/auto/pack.pm	313	403	
==>base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step;
use Config;

$descrip <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572291	572527	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classe <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573200	573436	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classe <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574110	574346	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classe <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574913	575149	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classe <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	4619	4726	
==>->_add_inst ('', 'set',[$return,$value]);
    }
    else { # assume its a symbol
      $self->_add_inst ('', <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3093	3194	
==>PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have anyt <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4851	4952	
==>PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have anyt <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7779	7879	
==>PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have anyt <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8635	8735	
==>PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have anyt <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	2094	2193	
==>ERR "precompiling grammar from file '$sourcefile'\n",
			     "to class $class in module file '$modu <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	417	534	
==>ompile()
#

sub compile
{
  my $self     = shift; # Required:
  my $compiler = shift; # Required

#  my $namespace = " <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24823	24936	
==>store ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_generat <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25834	25947	
==>store ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_generat <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26722	26835	
==>store ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_generat <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27732	27845	
==>store ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_generat <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18937	19038	
==>$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self->_add_i <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19425	19526	
==>$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self->_add_i <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19913	20014	
==>$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self->_add_i <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20402	20503	
==>$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self->_add_i <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20891	20992	
==>$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self->_add_i <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34172	34276	
==>my $l = $self->line_directive($line, "sharedref.c");
    return <<EOC;
$l
$decl {
    $ret_def
    LOCK_P <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584474	584569	
==>ter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(int <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585549	585644	
==>ter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(int <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597990	598085	
==>ter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(int <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599037	599132	
==>ter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(int <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154798	154941	
==>ic"
                            ],
                  "BODY" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155702	155845	
==>ic"
                            ],
                  "BODY" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156606	156749	
==>ic"
                            ],
                  "BODY" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157511	157654	
==>ic"
                            ],
                  "BODY" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n <==
5	/Users/nnunley/parrot/examples/benchmarks/arriter.pl	903	999	
==>}
print scalar(@k), "\n";
print "$j\n";
print scalar keys(%ha), "\n";
print $ha{'AAAAA'};
print $ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516725	517016	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517464	517755	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518202	518493	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518941	519232	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => " <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1481	1578	
==>:isa($type, 'Jako::Construct::Type::String')) {
    my $string = $self->value;

#    $self->DEBUG( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579218	579326	
==>],
                  "BODY" => "#line 289 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580523	580631	
==>],
                  "BODY" => "#line 289 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581828	581936	
==>],
                  "BODY" => "#line 289 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583134	583242	
==>],
                  "BODY" => "#line 289 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpre <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	2106	2213	
==>),
            $self->new_item('', 'tools/build/fingerprint_c.pl'),
            $self->new_item('', 'tools/b <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30360	30467	
==>,
						  Parse::RecDescent::_tracefirst($text))
							if defined $::RD_TRACE;').'
			last;
		}'.($::RD_NO_ <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32560	32667	
==>,
						  Parse::RecDescent::_tracefirst($text))
							if defined $::RD_TRACE;').'
			last;
		}'.($::RD_NO_ <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28285	28391	
==>,
						  Parse::RecDescent::_tracefirst($text))
					if defined $::RD_TRACE;').'

			last;
		}'.($::RD_NO_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627198	627297	
==>t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n\n  /* Why?? If we're creating a contin <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628342	628441	
==>t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n\n  /* Why?? If we're creating a contin <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343556	343832	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344797	345073	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346039	346315	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347281	347557	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
5	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	2940	3052	
==>-o $_->[1]\n";
    }
    my @obj_files = map { $_->[1] } @compiled_files;
    print F "gcc -lm -o parrot " . (joi <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4542	4636	
==>_block();
      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $token) <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	10788	10882	
==>_block();
      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $token) <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16202	16296	
==>_block();
      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $token) <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16973	17067	
==>_block();
      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $token) <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17778	17872	
==>_block();
      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $token) <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28527	28656	
==>elf->{const};
        $hout .= "\n/* Const */\n";
        $hout .= $self->hdecls();
    }
    $hout .= <<"EOH";

#endif

EOH
    $ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079913	1080274	
==>S" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1199,
                  "ARGS" => [
                              "p",
                              "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958618	958889	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959419	959690	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960221	960492	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "", <==
5	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1729	1824	
==>s.

Pod::Simple uses this class for representing the value of the
"section" attribute of "L" sta <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766032	766297	
==>UMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766884	767149	
==>UMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767737	768002	
==>UMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768590	768855	
==>UMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	365	466	
==>the type of an object
sub dump { Pod::Simple::pretty( [ @{ $_[0] } ] ) }

sub is_start { $_[0][0] eq ' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168556	168818	
==>r, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot:: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169498	169760	
==>r, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot:: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170438	170700	
==>r, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot:: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171379	171641	
==>r, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot:: <==
5	/Users/nnunley/parrot/tools/build/ops2c.pl	3906	4004	
==>e" ], $nolines_flag );
    $ops->{OPS} = $Parrot::OpLib::core::ops;
    $ops->{PREAMBLE} = $Parrot: <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	5181	5290	
==>ewrite_greedy_range($op, $R, $min, $max, @rest);
        } else {
            return $self->rewrite_nongreedy_ <==
5	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1535	1631	
==>html ...

Available options:
  --smokeserv=http://path/to/smokeserv.pl
    Sets the path to the s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164759	164852	
==>ne 190 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) != 0) {\n    {{+ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165688	165781	
==>ne 190 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) != 0) {\n    {{+ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166617	166710	
==>ne 190 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) != 0) {\n    {{+ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332735	332919	
==>s ugly warnings WRT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334013	334197	
==>s ugly warnings WRT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335291	335475	
==>s ugly warnings WRT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336570	336754	
==>s ugly warnings WRT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	26976	27074	
==>"external_$extname";
    if ($self->{$handler}) {
        return $self->{$handler}->($op, $extargs, <==
5	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1249	1383	
==>eys %$streams ) {
        $test_map->{join( '_' => $lang, $s, $t )} = {
            lang   => $lang,
            stream => { name => $s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854971	855059	
==>05 \"src/ops/string.ops\"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855860	855948	
==>05 \"src/ops/string.ops\"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856749	856837	
==>05 \"src/ops/string.ops\"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857639	857727	
==>05 \"src/ops/string.ops\"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222715	223008	
==>) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227458	227751	
==>) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228438	228731	
==>) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	229387	229680	
==>) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	230336	230629	
==>) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072669	1072782	
==>r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074854	1074967	
==>r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077039	1077152	
==>r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079225	1079338	
==>r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	897	1006	
==>It's too late to call Pod::Simple::Debug -- "
              . "Pod::Simple has already loaded\nAborting");
  } <==
5	/Users/nnunley/parrot/tools/build/headerize.pl	1371	1486	
==>text = shift;

    return if $text =~ /DO NOT EDIT THIS FILE/;

    # Strip blocks of comments
    $text =~ s[^/\*.* <==
5	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	974	1098	
==>ure_output
                    check_progs);
our %EXPORT_TAGS = (
    inter => [ qw(prompt integrate) ],
    auto  => [ qw(cc <==
5	/Users/nnunley/parrot/lib/Parrot/Op.pm	2391	2485	
==>ptors. Element I<x> is the direction of argument C<< $args->[I<x>]
>>.

C<$labels> is a referen <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858598	858689	
==>on(NEG_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859602	859693	
==>on(NEG_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860606	860697	
==>on(NEG_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861611	861702	
==>on(NEG_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpr <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	36271	36388	
==>r a '|'.\n";

        if($ell_content[$j] =~ m/^([^\|]*)\|(.*)$/s) {
          my @link_text = ($1);   # might be 0-le <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066992	1067094	
==>p2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  whi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068178	1068280	
==>p2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  whi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069364	1069466	
==>p2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  whi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070551	1070653	
==>p2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  whi <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18661	18760	
==>PLABEL= "$labels{$syms[CURR]}"  # Return $syms[CURR]
	ret
RETURN2
		if (! $runtime_jump) {
			warn " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634547	634641	
==>e 107 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtabl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635665	635759	
==>e 107 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtabl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636783	636877	
==>e 107 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtabl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637902	637996	
==>e 107 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtabl <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15037	15146	
==>eturn $return;
}

sub _op_cdr {
  my ($self, $node) = @_;

  _num_arg ($node, 1, 'cdr');

  my $return = $self <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	795	896	
==>load bsave byval
			call calls absolute interrupt base chain circle clear
				close cls color com comm <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1026	1125	
==>compiler->invert_relop($op); # Invert the test, since we jump *unless* the condition is true
  }
  e <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38005	38102	
==>ate
the number of lines, C<$out_name> is the name of the output file we are
generating.

The C<del <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	589	681	
==>on::Value::Identifier');
  confess("Ident (" . ref($block) . ") not Identifer!") unless UNIVE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641719	642037	
==>UMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642606	642924	
==>UMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643494	643812	
==>UMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644386	644704	
==>UMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
5	/Users/nnunley/parrot/config/gen/makefiles.pm	8446	8578	
==>g/gen/makefiles/docs.in', 'docs/Makefile',
            commentType       => '#',
            replace_slashes   => 1,
            cond <==
5	/Users/nnunley/parrot/tools/dev/parrotbench.pl	6918	7078	
==>{$prog})
            );
            my $stop = $Get_Time{ $cfg{method} }->();
            my $used = $stop - $start;
            $base ||= $used;
            pri <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8443	8555	
==>hift;
	my $dest_reg = shift;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the s <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6263	6375	
==>hift;
	my $dest_reg = shift;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the s <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5178	5290	
==>hift;
	my $dest_reg = shift;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the s <==
5	/Users/nnunley/parrot/languages/regex/regex.pl	72	181	
==>ict;

my $operation;
my $expr;
my $expr_file;
my $tree_opt = 1;
my $list_opt = 1;
my $debug = 0;
my $output;
m <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500314	500605	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501052	501343	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501791	502082	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502529	502820	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503268	503559	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500307	500602	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501045	501340	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501784	502079	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502522	502817	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503261	503556	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641666	641943	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642553	642830	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643441	643718	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644333	644610	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	8273	8375	
==>= $level;

  my $message = $format ? sprintf($format, @args) : '<no message>';

  printf STDERR "%s [%s <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	11718	11822	
==>mpiler = shift; # Required: Jako::Compiler
  my $options  = shift; # Optional: Hashref

  confess "No blo <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071796	1071895	
==>5 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073981	1074080	
==>5 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076166	1076265	
==>5 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078352	1078451	
==>5 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080437	1080529	
==>2}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \"Illegal PMC enum (%d) in new <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081502	1081594	
==>2}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \"Illegal PMC enum (%d) in new <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082567	1082659	
==>2}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \"Illegal PMC enum (%d) in new <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083633	1083725	
==>2}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \"Illegal PMC enum (%d) in new <==
5	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19096	19183	
==>lly just "I<modulename> p. I<pagenumber>".

=item $parser->normal_halfpoint_size( I<half <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2905	3007	
==>dler);
    $right->sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_elemen <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3579	3681	
==>dler);
    $right->sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_elemen <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3669	3771	
==>dler);
    $right->sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_elemen <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5452	5548	
==>dler);
  $right->sax($handler);
  $handler->end_element({ Name => 'op' });
  $handler->end_elemen <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3515	3611	
==>dler);
  $right->sax($handler);
  $handler->end_element({ Name => 'op' });
  $handler->end_elemen <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039365	1039622	
==>re_global(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040257	1040514	
==>re_global(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041149	1041406	
==>re_global(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042042	1042299	
==>re_global(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7648	7760	
==>D_${CURIC}:
PIR
}

sub post_call() {
    my $self = shift;
    my $pir = <<'PIR';
# See if we've got a return, in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061120	1061414	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062660	1062954	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063529	1063823	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064399	1064693	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065272	1065566	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" <==
5	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2189	2302	
==>sc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test: <==
5	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2584	2697	
==>sc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test: <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11354	11446	
==>t_block;

      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $toke <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11901	11993	
==>t_block;

      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $toke <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12444	12536	
==>t_block;

      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $toke <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	652833	653194	
==>GS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 730,
                  "ARGS" => [
                              "p",
                              "p" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072306	1072434	
==>n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  {{\@2}} = (I <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074491	1074619	
==>n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  {{\@2}} = (I <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076676	1076804	
==>n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  {{\@2}} = (I <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078862	1078990	
==>n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  {{\@2}} = (I <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544602	544859	
==>d_var1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545938	546195	
==>d_var1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547274	547531	
==>d_var1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	18077	18186	
==>ef
	],
	[#Rule 1
		 'rules', 2,
sub
#line 73 "lib/Regex/Grammar.y"
{ return [ @{ $_[1] }, $_[2] ] }
	],
	[#Rul <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	276	369	
==>use strict;
eval "use warnings";

package Jako::Construct::Declaration;

use base qw(Jako::Con <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072629	1072740	
==>}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y == -r1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074814	1074925	
==>}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y == -r1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076999	1077110	
==>}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y == -r1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079185	1079296	
==>}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y == -r1 <==
5	/Users/nnunley/parrot/config/init/defaults.pm	52	140	
==>d: /parrot/config/init/defaults.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	25194	25301	
==>($1, $2);
	my $ret_type = ret_val($attr);
	my $ret_string = "";
	if ($ret_type ne 'None') {
	    $t = temp($ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332425	332512	
==>ring_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333703	333790	
==>ring_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334981	335068	
==>ring_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336260	336347	
==>ring_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647102	647367	
==>NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 7 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647862	648127	
==>NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 7 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648623	648888	
==>NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 7 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649385	649650	
==>NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 7 <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	23208	23306	
==>my $loop = $self->genlabel('plus_loop');
    my $rfail = $self->genlabel('plus_rfail');
    my ($R_ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2477	2583	
==>lock', Attributes => { kind => 'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kin <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2354	2460	
==>lock', Attributes => { kind => 'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kin <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2747	2853	
==>lock', Attributes => { kind => 'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kin <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3421	3527	
==>lock', Attributes => { kind => 'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kin <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3511	3617	
==>lock', Attributes => { kind => 'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kin <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21704	21808	
==>f->{hashname} .'}=$_tok;' : '' ) .'
		' . ($self->{"lookahead"} ? '$text = $_savetext;' : '' ) .'
'
}


1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549967	550069	
==>hod_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551268	551370	
==>hod_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553830	553932	
==>hod_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555227	555329	
==>hod_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502998	503236	
==>PE" => "inline",
                  "CODE" => 578,
                  "ARGS" => [
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 626 \"src/ops/math.ops\ <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27633	27751	
==>> 36
		},
		GOTOS => {
			'exp' => 139,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32 <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2735	2854	
==>'ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHECK}}='ACCEPT';
    undef;
}

sub YYErro <==
5	/Users/nnunley/parrot/config/inter/lex.pm	1052	1166	
==>y $prog;

    # precedence of sources for the program:
    # default -> probe -> environment -> option -> ask
    $ <==
5	/Users/nnunley/parrot/config/inter/make.pm	873	987	
==>y $prog;

    # precedence of sources for the program:
    # default -> probe -> environment -> option -> ask
    $ <==
5	/Users/nnunley/parrot/config/inter/yacc.pm	1049	1163	
==>y $prog;

    # precedence of sources for the program:
    # default -> probe -> environment -> option -> ask
    $ <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2611	2719	
==>'ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHECK}}='ACCEPT';
    undef;
}

sub YYErro <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	34083	34180	
==>ote that the order in which
two or more delimiter brackets are specified is not significant.

A "b <==
5	/Users/nnunley/parrot/config/auto/aio.pm	122	218	
==>$

=head1 NAME

config/auto/aio.pm - Test for AIO

=head1 DESCRIPTION

Determines whether the pla <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9826	9918	
==>${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over each parameter and put them into ${PARAMS} <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7340	7432	
==>${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over each parameter and put them into ${PARAMS} <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6304	6396	
==>${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over each parameter and put them into ${PARAMS} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953646	953901	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "encoding",
                  "FLAGS" => ":base_core",
                  "A <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954436	954691	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "encoding",
                  "FLAGS" => ":base_core",
                  "A <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2589	2718	
==>ndef', 'apply_CALL'],
  ['',            'set', 'P11', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', ' <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3584	3696	
==>('ge', $val1, $val2, $dest);
}

sub output_if {
    my ($self, $reg, $dest) = @_;
    $reg = value($reg);
    ret <==
5	/Users/nnunley/parrot/lib/Test/More.pm	9561	9656	
==>(C<'/that/i'>).

Its advantages over ok() are similar to that of is() and isnt().  Better
diagno <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857768	858072	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858771	859075	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859775	860079	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860779	861083	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem" <==
5	/Users/nnunley/parrot/tools/dev/parrot_api.pl	4984	5117	
==>elsif ($v eq 'R') {
		$DataR{$s} = $o;
	    }
	} elsif ($v eq 'U') {
	    $Undef{$s} = $o;
	}
    }
    close(NM);
} else {
    die "$ <==
5	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	9922	10020	
==>in_dir_8dot3{$dirname}{$filename_8dot3}) {
            error("MANIFEST", $line, "$_: 8.3 name colli <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63148	63240	
==>_rule("repetition",$line,"$code$argcode($1)");

						!$matchrule and $rule and $rule->addcal <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63869	63961	
==>_rule("repetition",$line,"$code$argcode($1)");

						!$matchrule and $rule and $rule->addcal <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64585	64677	
==>_rule("repetition",$line,"$code$argcode($1)");

						!$matchrule and $rule and $rule->addcal <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62511	62602	
==>_rule("repetition",$line,"$code$argcode($1)");

					!$matchrule and $rule and $rule->addcal <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540784	541072	
==>>1;\n }\n \n {{\@1}} = b<<p;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542036	542324	
==>>1;\n }\n \n {{\@1}} = b<<p;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543288	543576	
==>>1;\n }\n \n {{\@1}} = b<<p;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42433	42545	
==>{' . $rule->{"name"} .'})
						if defined $::RD_TRACE;').'

		push @item, '.($::RD_NO_HITEM ? ''
			       : '$i <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	55929	56023	
==>ractor subroutines succeeds, then one
character is extracted from the start of the text and the <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	49180	49340	
==>);
        }
	],
	[#Rule 28
		 '@9-2', 0,
sub
#line 171 "Lua\lua51.yp"
{
            PushScopeF( $_[0] );
            PushScope( $_[0] );
        }
	] <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21521	21635	
==>ss(length($content)) {
        $self->whine(
          $para->[1]{'start_line'},
          "'=end' without a target <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24831	24943	
==>return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_generate($node <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25842	25954	
==>return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_generate($node <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26730	26842	
==>return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_generate($node <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27740	27852	
==>return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_generate($node <==
5	/Users/nnunley/parrot/config/gen/platform.pm	5525	5629	
==>platform_asm')) {
        my $asm_file = "config/gen/platform/$platform/asm.s";
        if (-e $asm_file) <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	16843	16939	
==>head1 METHODS

=over

=item my $token = $parser->get_token

This returns the next token object (w <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	35938	36032	
==>ed, even after
having successfully completed all its tests, it will still be
considered a failu <==
5	/Users/nnunley/parrot/lib/Test/More.pm	34009	34103	
==>ed, even after
having successfully completed all its tests, it will still be
considered a failu <==
5	/Users/nnunley/parrot/lib/Test/Simple.pm	2804	2898	
==>ed, even after
having successfully completed all its tests, it will still be
considered a failu <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769398	769641	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770250	770493	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771103	771346	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771956	772199	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	3803	3943	
==>or that source fh!  Killing.\n";
          delete $self->{'source_fh'}; # so it can be GC'd
          last;
        }
         # but pass thr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576165	576432	
==>nline",
                  "CODE" => 658,
                  "ARGS" => [
                              "p",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 276 \"src/ops/object.ops\"\ <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3138	3235	
==>e).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have anything on the lazy moves stack?
${ITEMP0} = <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4896	4993	
==>e).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have anything on the lazy moves stack?
${ITEMP0} = <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7823	7920	
==>e).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have anything on the lazy moves stack?
${ITEMP0} = <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8679	8776	
==>e).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have anything on the lazy moves stack?
${ITEMP0} = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726841	727132	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exchange",
                  "FLAGS" => ":b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727639	727930	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exchange",
                  "FLAGS" => ":b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	728436	728727	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exchange",
                  "FLAGS" => ":b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729230	729521	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exchange",
                  "FLAGS" => ":b <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26476	26602	
==>tableconstructor' => 46,
			'args' => 135,
			'key' => 136
		}
	},
	{#State 82
		ACTIONS => {
			"-" => 24,
			'NAME' = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797060	797317	
==>_number_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797964	798221	
==>_number_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798868	799125	
==>_number_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799773	800030	
==>_number_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11555	11668	
==>{
    my ($self, $name) = @_;
    return ($self->output_match_failed(),
            ".return (<rx_match>)");
}

su <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	37070	37173	
==>ram is free software; you can redistribute it and/or 
modify it under the same terms as Perl itself.

Se <==
5	/Users/nnunley/parrot/lib/Test/More.pm	37479	37582	
==>ram is free software; you can redistribute it and/or 
modify it under the same terms as Perl itself.

Se <==
5	/Users/nnunley/parrot/lib/Test/Simple.pm	6439	6542	
==>ram is free software; you can redistribute it and/or 
modify it under the same terms as Perl itself.

Se <==
5	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16486	16588	
==>ram is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

Se <==
5	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1700	1802	
==>ram is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

Se <==
5	/Users/nnunley/parrot/tools/dev/run_indent.pl	3380	3480	
==>R "\nThe following function declarations appear to contain a newline\n";
        print STDERR "betwee <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404665	404873	
==>addr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405577	405785	
==>addr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406489	406697	
==>addr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407402	407610	
==>addr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	3308	3418	
==>V;

    exit unless my @files = get_files( %options );

    set_flags( %options );

    local $Test::Harness::S <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1929	2047	
==>e;

  #
  # Lookup the identifier:
  #

  my $sym = $block->find_symbol($self->name);

  #
  # If the identifier is alr <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1676	1794	
==>e;

  #
  # Lookup the identifier:
  #

  my $sym = $block->find_symbol($self->name);

  #
  # If the identifier is alr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714754	714847	
==>(interpreter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715677	715770	
==>(interpreter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716622	716715	
==>(interpreter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654354	654532	
==>",
                              "sc"
                            ],
                  "BODY" => "#line 292 \"src/ops/pmc.ops\"\n    opcode_t * resume = {{^+4}};\n    {{\@1}} = {{ <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	3067	3175	
==>return 20 if ($op eq "-");
	return 30 if ($op eq "mod");
	return 40 if ($op eq '\\');
	return 50 if ($op eq " <==
5	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8073	8175	
==>cter = ();
  my($name, $number);
  while( ($name, $number) = each %Name2character_number) {
    if($] < <==
5	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1595	1695	
==>23\i'."\n",
 'L=man' => '{\cs24\i'."\n",
 '/L' => '}',

 'Data'  => "\n",
 '/Data' => "\n",

 'Verbat <==
5	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	14288	14374	
==>_failed"><tmpl_var name=failed> failed</span>,
		<span class="tests_todo"><tmpl_var nam <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1746	1845	
==>est->value) unless $dest_sym;
  my $dest_type = $dest_sym->type;

  my $left_type;
  if (UNIVERSAL:: <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1704	1803	
==>est->value) unless $dest_sym;
  my $dest_type = $dest_sym->type;

  my $left_type;
  if (UNIVERSAL:: <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1626	1725	
==>est->value) unless $dest_sym;
  my $dest_type = $dest_sym->type;

  my $left_type;
  if (UNIVERSAL:: <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2824	2914	
==>}d if Pod::Simple::ASCII;
  my $out = Text::Wrap::wrap($indent, $indent, $self->{'Thispara' <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2358	2448	
==>}d if Pod::Simple::ASCII;
  my $out = Text::Wrap::wrap($indent, $indent, $self->{'Thispara' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008293	1008680	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "escape",
                  "FLAGS <==
5	/Users/nnunley/parrot/lib/Test/More.pm	11121	11218	
==>without all the typing and with a better interface.  Handy for
quickly testing an interface.

No m <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	610	700	
==>s("Dest (" . ref($dest) . ") is not Identifier!") unless UNIVERSAL::isa($dest, 'Jako::Const <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	601	691	
==>s("Dest (" . ref($dest) . ") is not Identifier!") unless UNIVERSAL::isa($dest, 'Jako::Const <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	490	580	
==>s("Dest (" . ref($dest) . ") is not Identifier!") unless UNIVERSAL::isa($dest, 'Jako::Const <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067225	1067500	
==>{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068411	1068686	
==>{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069597	1069872	
==>{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070784	1071059	
==>{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
5	/Users/nnunley/parrot/languages/pugs/t/pmc.pm	162	271	
==>age t::pmc;
use Parrot::Test 'no_plan';
use Test::More;

sub import {
    my $class = shift;

    my (undef, $ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	99657	99930	
==>{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104103	104376	
==>{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	252218	252491	
==>{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450149	450422	
==>{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	512553	512826	
==>{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_ <==
5	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	442	590	
==>ut_is         => 'is_eq',
    output_like       => 'like',
    output_isnt       => 'isnt_eq'
                        );

foreach my $func ( keys %la <==
5	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	781	929	
==>ut_is         => 'is_eq',
    output_like       => 'like',
    output_isnt       => 'isnt_eq'
                        );

foreach my $func ( keys %la <==
5	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	356	504	
==>ut_is         => 'is_eq',
    output_like       => 'like',
    output_isnt       => 'isnt_eq'
                        );

foreach my $func ( keys %la <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1490	1582	
==>$self->INTERNAL_ERROR("Undefined type!")
    unless defined $type;

  $self->INTERNAL_ERROR(" <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1338	1430	
==>$self->INTERNAL_ERROR("Undefined type!")
    unless defined $type;

  $self->INTERNAL_ERROR(" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151147	151437	
==>}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152125	152415	
==>}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172375	172665	
==>}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173353	173643	
==>}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	6078	6171	
==>$base_suffix)>

Returns the C code to initialize the dispatch mechanism within the core's
init <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467716	467974	
==>e by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468587	468845	
==>e by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469461	469719	
==>e by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470336	470594	
==>e by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	11585	11700	
==>_group;
    pos($line_group) = 0;
    while($line_group =~
      m/([^\n\r]*)((?:\r?\n)?)/g
    ) {
      #print(">> <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2877	2972	
==>1 SEE ALSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTr <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	6331	6426	
==>1 SEE ALSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTr <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4547	4642	
==>1 SEE ALSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTr <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4524	4619	
==>1 SEE ALSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTr <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3908	4003	
==>1 SEE ALSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTr <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	23102	23234	
==>gs;
    if ($make_f) {
	$make_f = 0;
	print <<EOC;
	# make_f \t$cmt
EOC
	# pop @stack;
	return;
    }
    my $func;
    my $nfix =  ( <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	33323	33454	
==>OC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp(' <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	34072	34203	
==>OC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp(' <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	34996	35127	
==>OC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp(' <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	1769	1875	
==>0 };
    }
}


=head1 NAME

Test::Builder - Backend for building test libraries

=head1 SYNOPSIS

  package <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	772	901	
==>t
        } ( qw(scheme pasm pbc out) ); # JMG

        # STDERR is written into same output file
        open LANG, "> $lang_f" o <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758074	758312	
==>PE" => "inline",
                  "CODE" => 855,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 276 \"src/ops/set.ops\"\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867156	867248	
==>> "#line 232 \"src/ops/string.ops\"\n  INTVAL len;\n  len = string_length(interpreter, {{\@2} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868122	868214	
==>> "#line 232 \"src/ops/string.ops\"\n  INTVAL len;\n  len = string_length(interpreter, {{\@2} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869088	869180	
==>> "#line 232 \"src/ops/string.ops\"\n  INTVAL len;\n  len = string_length(interpreter, {{\@2} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870055	870147	
==>> "#line 232 \"src/ops/string.ops\"\n  INTVAL len;\n  len = string_length(interpreter, {{\@2} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080655	1081006	
==>ntal" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "A <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081720	1082071	
==>ntal" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "A <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082785	1083136	
==>ntal" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "A <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103034	1103385	
==>ntal" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "A <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104248	1104599	
==>ntal" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "A <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323986	324280	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324778	325072	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325571	325865	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326361	326655	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327162	327456	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAG <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6027	6127	
==>licing' => \&_qq_unquote_splicing
		};

  _num_arg ($node, 1, 'quote');

  my $item = _get_arg($node, <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2310	2404	
==>rns the C code for the specified op argument type (see
C<Parrot::OpTrans>) and value. C<$op> is <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3402	3496	
==>rns the C code for the specified op argument type (see
C<Parrot::OpTrans>) and value. C<$op> is <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3546	3640	
==>rns the C code for the specified op argument type (see
C<Parrot::OpTrans>) and value. C<$op> is <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3201	3295	
==>rns the C code for the specified op argument type (see
C<Parrot::OpTrans>) and value. C<$op> is <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854431	854730	
==>" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855319	855618	
==>" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856208	856507	
==>" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857097	857396	
==>" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
5	/Users/nnunley/parrot/languages/regex/test.pl	1474	1579	
==>= 1;
my $list_opt = 1;
my $language;
my $testfile;
my $pattern;

# Hm. What versions of perl provide Getop <==
5	/Users/nnunley/parrot/config/auto/gc.pm	404	501	
==>r in F<src/recources.c>.

=item C<libc>

Use the C library C<malloc>.

=item C<malloc>

Use the ma <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	878	967	
==>" . ref($right) . ") is not Value") unless UNIVERSAL::isa($right, 'Jako::Construct::Expres <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	716	805	
==>" . ref($right) . ") is not Value") unless UNIVERSAL::isa($right, 'Jako::Construct::Expres <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	869	958	
==>" . ref($right) . ") is not Value") unless UNIVERSAL::isa($right, 'Jako::Construct::Expres <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	758	847	
==>" . ref($right) . ") is not Value") unless UNIVERSAL::isa($right, 'Jako::Construct::Expres <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	2114	2220	
==>ub compile
{
  my $self = shift;

  my ($root, $fh) = @_;

  $fh = FileHandle->new(">-") unless defined $fh <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773416	773502	
==>ps\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774326	774412	
==>ps\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775236	775322	
==>ps\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776147	776233	
==>ps\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454710	455040	
==>@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455565	455895	
==>@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456420	456750	
==>@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457274	457604	
==>@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458129	458459	
==>@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477185	477460	
==>}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478081	478356	
==>}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478972	479247	
==>}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479864	480139	
==>}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdi <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	8600	8697	
==>$type eq 'seq' && $t->{add_check_visited}) {
        my ($kid_follow_min, $kid_guarantee) = ($foll <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072597	1072700	
==>wrong because we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction nec <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074782	1074885	
==>wrong because we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction nec <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076967	1077070	
==>wrong because we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction nec <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079153	1079256	
==>wrong because we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction nec <==
5	/Users/nnunley/parrot/lib/Test/More.pm	319	417	
==>}



require Exporter;
use vars qw($VERSION @ISA @EXPORT %EXPORT_TAGS $TODO);
$VERSION = '0.60';
$V <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24795	24917	
==>, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $tem <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25806	25928	
==>, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $tem <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26694	26816	
==>, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $tem <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27704	27826	
==>, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $tem <==
5	/Users/nnunley/parrot/config/gen/cpu.pm	638	751	
==>->set_result('skipped');
        return $self;
    }

    my $verbose = $conf->options->get('verbose');

    my $h <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9619	9874	
==>, new KeyedGetOp(
                        $parser,
                        'result' => $result2,
                        'arg1'   => $result,
                        'arg2'   => $key->[0],
                    );
                    $result = $result2 <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11412	11662	
==>, new KeyedGetOp( $parser,
                            'result' => $result2,
                            'arg1'   => $result,
                            'arg2'   => $key->[0],
                        );
                        $result = $result2 <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12916	13146	
==>, new KeyedGetOp( $parser,
                        'result' => $result2,
                        'arg1'   => $result,
                        'arg2'   => $key->[0],
                    );
                    $result = $result2 <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8563	8753	
==>, new KeyedGetOp( $parser,
                'result' => $result2,
                'arg1'   => $result,
                'arg2'   => $key->[0],
            );
            $result = $result2 <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17761	17931	
==>, new KeyedGetOp( $parser,
            'result' => $result2,
            'arg1'   => $result,
            'arg2'   => $key->[0],
        );
        $result = $result2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	337442	337733	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getstdin",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836628	836886	
==>};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ": <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837360	837618	
==>};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ": <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838094	838352	
==>};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ": <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838826	839084	
==>};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ": <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520048	520347	
==>> "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 60 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520903	521202	
==>> "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 60 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	521758	522057	
==>> "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 60 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522612	522911	
==>> "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 60 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523467	523766	
==>> "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 60 <==
5	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1264	1372	
==>ck for now
    my $got_perl = $got.perl;
    my $expected_perl = $expected.perl;
    my $test := ($got_perl e <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514117	514225	
==>/math.ops\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABEL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514997	515105	
==>/math.ops\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABEL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515877	515985	
==>/math.ops\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABEL <==
5	/Users/nnunley/parrot/lib/File/Which.pm	36	137	
==>equire Exporter;

@File::Which::ISA       = qw(Exporter);

@File::Which::EXPORT    = qw(which);
@File: <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5401	5554	
==>s ($first);
                print {$FH} "$_->{symbol}";
                if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                    pr <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6433	6586	
==>s ($first);
                print {$FH} "$_->{symbol}";
                if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                    pr <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5830	5971	
==>s ($first);
            print {$FH} "$_->{symbol}";
            if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                pr <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6925	7066	
==>s ($first);
            print {$FH} "$_->{symbol}";
            if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                pr <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	9839	9980	
==>s ($first);
            print {$FH} "$_->{symbol}";
            if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                pr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72969	73071	
==>\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(inter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74571	74673	
==>\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(inter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76173	76275	
==>\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(inter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77776	77878	
==>\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(inter <==
5	/Users/nnunley/parrot/lib/Test/More.pm	32960	33061	
==>$a2]
    );
}

=back


=head2 Extending and Embedding Test::More

Sometimes the Test::More interface i <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8234	8352	
==>always have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg = value($re <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9016	9134	
==>always have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg = value($re <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7887	8005	
==>always have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg = value($re <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8676	8794	
==>always have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg = value($re <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	2547	2647	
==>l'),
        $self->new_section('unlambda', 'unlambda.html', '', 'languages/unlambda'),
        $self <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095970	1096227	
==>ntal" => 1,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "classname",
                  "FLAG <==
5	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	12671	12773	
==>pan="12" class="indent1"><tmpl_var name=catname></th></tr>
        <tmpl_loop name=smokes>
          <t <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1357	1456	
==>ry parameters
my(@params)=('LEX','RULES','STATES');

sub new {
    my($class)=shift;
	my($errst <==
5	/Users/nnunley/parrot/config/auto/readline.pm	259	357	
==>ne.

=cut

package auto::readline;

use strict;
use vars qw($description @args);

use base qw(Parro <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1312	1406	
==>ry parameters
my(@params)=('LEX','RULES','STATES');

sub new {
    my($class)=shift;
	my($errst <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763192	763422	
==>nd register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764045	764275	
==>nd register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764898	765128	
==>nd register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765752	765982	
==>nd register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	40817	40912	
==>d text (including the start and end
tags). C<undef> is returned on failure. In addition, the ori <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025066	1025340	
==>);\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025823	1026097	
==>);\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026579	1026853	
==>);\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024311	1024584	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo", <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18036	18144	
==>p_list_ref {
}

sub _op_memq {
}

sub _op_memv {
}

sub _op_member {
}

sub _op_assq {
}

sub _op_assv {
}

s <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	3920	4063	
==>next unless $short_desc;
            
            next if grep {$_ eq $short_desc} @short_desc;
            
            push @short_desc, $shor <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	18293	18385	
==>signature, 1)) {
       Parrot_warn(interpreter, PARROT_WARNINGS_ALL_FLAG, "function signatur <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343628	343925	
==>ME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344869	345166	
==>ME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346111	346408	
==>ME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347353	347650	
==>ME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
5	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	1677	1792	
==>GV = ($manifest);
while(<>) {
    chomp;
    my ($file, $meta, $dest) = split(/\s+/, $_);
    $dest ||= $file;
    m <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540701	540826	
==>& 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n {{\@1}} = b<<p;\n {{+=4}};\n", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541953	542078	
==>& 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n {{\@1}} = b<<p;\n {{+=4}};\n", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543205	543330	
==>& 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n {{\@1}} = b<<p;\n {{+=4}};\n", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	625663	625788	
==>e[2 + i]);\n                break;\n            case PARROT_ARG_INTVAL|PARROT_ARG_CONSTANT:\n            case PARROT_ARG_FLOAT <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	2508	2626	
==>toplevel
  if (@tree > 1) {
    $tree = { children => [ { value => 'begin' }, @tree ] };
  }
  return $tree;
}

1;
__EN <==
5	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	3257	3386	
==>g;
	    print "- $_->{path}\n\n$top\n";
	}
    }
    exit(0);
}

sub describe_file {
    my($path) = @_;
    my $info = {};
    $i <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	31467	31568	
==>e/"sec"> or L<name/sec>
  # L</"sec"> or L</sec> or L<"sec">
  # L<text|name>
  # L<text|name/"sec"> o <==
5	/Users/nnunley/parrot/lib/Parrot/Op.pm	4062	4159	
==>f->full_name;
}

=item C<arg_types()>

Returns the types of the op's arguments.

=cut

sub arg_typ <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54851	54942	
==>t) < 75;
  return $out;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5349	5438	
==>um

# Can do a lazy move.
PRE_BRANCH_${CURIC}_LAZY_MOVE_$register_num:
${STACK$register_nu <==
5	/Users/nnunley/parrot/tools/dev/lib_deps.pl	13869	13994	
==>.h
sqrtl       math.h
srand       stdlib.h
sscanf      stdio.h
stderr      stdio.h
stdin       stdio.h
stdout      stdio.h
str <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302104	302214	
==>mp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302980	303090	
==>mp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303856	303966	
==>mp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649045	649141	
==>Y" => "#line 234 \"src/ops/pmc.ops\"\n    {{\@1}} = pmc_type_p(interpreter, {{\@2}});\n    {{+=3} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649808	649904	
==>Y" => "#line 234 \"src/ops/pmc.ops\"\n    {{\@1}} = pmc_type_p(interpreter, {{\@2}});\n    {{+=3} <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9485	9702	
==>odes, new LocalDir( $parser,
                        'result' => $result2,
                    );
                    push @opcodes, new KeyedGetOp(
                        $parser,
                        'result <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11266	11474	
==>odes, new LocalDir( $parser,
                            'result' => $result2,
                        );
                        push @opcodes, new KeyedGetOp( $parser,
                            'result <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12782	12974	
==>odes, new LocalDir( $parser,
                        'result' => $result2,
                    );
                    push @opcodes, new KeyedGetOp( $parser,
                        'result <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8453	8613	
==>odes, new LocalDir( $parser,
                'result' => $result2,
            );
            push @opcodes, new KeyedGetOp( $parser,
                'result <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17663	17807	
==>odes, new LocalDir( $parser,
            'result' => $result2,
        );
        push @opcodes, new KeyedGetOp( $parser,
            'result <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504127	504450	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504982	505305	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505837	506160	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506691	507014	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507546	507869	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	770	872	
==>N file.
    open my $VERSION, '<', 'VERSION' or die "Could not open VERSION file!";
    $parrot_version <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960971	961061	
==>s\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_e <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961933	962023	
==>s\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_e <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962895	962985	
==>s\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_e <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963858	963948	
==>s\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_e <==
5	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	12044	12140	
==>y ref of programs to search the current C<PATH> for.  The first matching
program name is returned <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377529	377617	
==>"BODY" => "#line 432 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(interpreter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378413	378501	
==>"BODY" => "#line 432 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(interpreter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379297	379385	
==>"BODY" => "#line 432 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(interpreter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380182	380270	
==>"BODY" => "#line 432 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(interpreter <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2496	2603	
==>> { kind => 'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name = <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2373	2480	
==>> { kind => 'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name = <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2766	2873	
==>> { kind => 'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name = <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3440	3547	
==>> { kind => 'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name = <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3530	3637	
==>> { kind => 'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name = <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3447	3537	
==>t ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${ <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5209	5299	
==>t ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${ <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2194	2284	
==>t ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${ <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3446	3536	
==>t ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	36248	36337	
==>Exception_Handler);\n  VTABLE_set_pointer(interpreter, eh, CUR_OPCODE + {{\@1}});\n  push_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243464	243883	
==>re",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 283,
                  "ARGS" => [
                              "i",
                              "p",
                              "s"
                            ], <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332418	332506	
==>de = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333696	333784	
==>de = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334974	335062	
==>de = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336253	336341	
==>de = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476555	476819	
==>ME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477450	477714	
==>ME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478346	478610	
==>ME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479237	479501	
==>ME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	434	535	
==>0]->code },
  "eq"  => sub { $_[0]->code eq $_[0]->code },
  "ne"  => sub { $_[0]->code ne $_[0]->code <==
5	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3990	4238	
==>f...
        catch {                       # a catch statement

        |                               # or
        proc                            # a procedure definition
        test \s+ (\S+)                  # test ident
             \s+ \{ ([ <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2070	2175	
==>ms the C<goto POP()> macro in an ops file into the relevant C
code.

=cut

sub goto_pop
{
    my ($self) = <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2720	2825	
==>ms the C<goto POP()> macro in an ops file into the relevant C
code.

=cut

sub goto_pop
{
    my ($self) = <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2443	2548	
==>ms the C<goto POP()> macro in an ops file into the relevant C
code.

=cut

sub goto_pop
{
    my ($self) = <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2623	2728	
==>ms the C<goto POP()> macro in an ops file into the relevant C
code.

=cut

sub goto_pop
{
    my ($self) = <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	15981	16096	
==>tive?
    #

    if ($token->is_ident
      and $self->get(1)->is_assign
      and $self->get(2)->is_value
      and <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72541	72630	
==>e 1156 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74143	74232	
==>e 1156 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75745	75834	
==>e 1156 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77348	77437	
==>e 1156 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}} <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	10240	10340	
==>pos,     $closetagpos-$textpos,		# TEXT
		$closetagpos, $endpos-$closetagpos,		# CLOSING TAG
		$endpo <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837238	837337	
==>)stack_pop(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}),\n                  STACK <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837970	838069	
==>)stack_pop(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}),\n                  STACK <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838704	838803	
==>)stack_pop(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}),\n                  STACK <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	839436	839535	
==>)stack_pop(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}),\n                  STACK <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	32335	32457	
==>{
	    my $arg = temp('P');
	    print <<EOC;
	$arg = new FixedPMCArray
EOC
	    $args = $arg;
	}
	print <<EOC;
	$o = $obj( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549944	550044	
==>de_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551245	551345	
==>de_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553807	553907	
==>de_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555204	555304	
==>de_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5035	5145	
==>ce
directory.

=cut

sub contents_relative_to_source
{
    my $self = shift;
    my $source = shift;
    my @co <==
5	/Users/nnunley/parrot/tools/dev/symlink.pl	2371	2474	
==>$readlink ne $srcfile) {
		print "$dstfile\n" if $v;
		if (defined $readlink) {
		    unless (unlink($ds <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3027	3128	
==>ce
directory.

=cut

sub contents_relative_to_source
{
	my $self = shift;
	my $source = shift;
	my @co <==
5	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3246	3334	
==>:Test::PGE::_generate_glob_for($target, $pattern);

    goto &Parrot::Test::pir_output_is <==
5	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3671	3759	
==>:Test::PGE::_generate_glob_for($target, $pattern);

    goto &Parrot::Test::pir_output_is <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849358	849655	
==>hopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 96 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850244	850541	
==>hopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 96 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851131	851428	
==>hopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 96 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852018	852315	
==>hopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 96 <==
5	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	3755	3895	
==>eys(1)->Dump();
        };
    } else {
        *dump = sub {
            my $self = shift;
            Data::Dumper->new([$self->{c}], ['*PC <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332480	332573	
==>IO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333758	333851	
==>IO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335036	335129	
==>IO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336315	336408	
==>IO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_ <==
5	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	78	171	
==>use File::Spec;


=head1 NAME

tools/dev/gen_charset_tables.pl -- generate charset tables

=he <==
5	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	11073	11180	
==>->delete_contents;
    rmdir($_[0]->path) or die 'Failed to rmdir ' . $_[0]->path . ": $!";
    
    $_[0]-> <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072453	1072563	
==>-1, n ) );\n  {{\@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074638	1074748	
==>-1, n ) );\n  {{\@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076823	1076933	
==>-1, n ) );\n  {{\@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079009	1079119	
==>-1, n ) );\n  {{\@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\ <==
5	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11863	11965	
==>alls.html";
    print "Writing $outfile..\n" if $DEBUG;
    open (IN, "<$infile") or die "Can't read $i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080339	1080451	
==>],
                  "BODY" => "#line 145 \"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081404	1081516	
==>],
                  "BODY" => "#line 145 \"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082469	1082581	
==>],
                  "BODY" => "#line 145 \"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083535	1083647	
==>],
                  "BODY" => "#line 145 \"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpre <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1277	1383	
==>ler) = @_;

  my $dest_ident = $self->dest;

  my $dest  = $self->dest->value;
  my $name  = $self->name->v <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72764	72868	
==>\n  if (p == NULLfunc) {\n      const char * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74366	74470	
==>\n  if (p == NULLfunc) {\n      const char * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75968	76072	
==>\n  if (p == NULLfunc) {\n      const char * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77571	77675	
==>\n  if (p == NULLfunc) {\n      const char * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARR <==
5	/Users/nnunley/parrot/tools/build/ops2c.pl	1580	1677	
==>e> directives in the generated C code.

=back

=head1 SEE ALSO

=over 4

=item F<tools/build/ops2p <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	538574	538812	
==>inline",
                  "CODE" => 623,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 982 \"src/ops/math.ops\"\n  {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926181	926307	
==>ak;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case ST <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927651	927777	
==>ak;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case ST <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929121	929247	
==>ak;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case ST <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930592	930718	
==>ak;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case ST <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381175	381267	
==>make_offset({{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382187	382279	
==>make_offset({{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383199	383291	
==>make_offset({{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384212	384304	
==>make_offset({{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"s <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18193	18281	
==>$code{$seg}->{code}}, "\tgoto $labels{$syms[CURR]}\t# Goto $syms[CURR]\n";
}
sub parse_go <==
5	/Users/nnunley/parrot/tools/build/dynclasses.pl	4435	4530	
==>y @ungrouped_pmcs = grep { ! exists $pmc_group->{$_} } @pmcs;
    partial_link($_, $pmc_libs->{$ <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	4539	4634	
==>y @ungrouped_pmcs = grep { ! exists $pmc_group->{$_} } @pmcs;
    partial_link($_, $pmc_libs->{$ <==
5	/Users/nnunley/parrot/config/auto/jit.pm	3779	3950	
==>linux')
                || ($osname eq 'darwin')
                || ($osname eq 'MSWin32')) {
                $execcapable = 0;
            }
        }
        $execcapable <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793401	793487	
==>ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794306	794392	
==>ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795211	795297	
==>ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796117	796203	
==>ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741095	741318	
==>S" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 164 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867150	867243	
==>ODY" => "#line 232 \"src/ops/string.ops\"\n  INTVAL len;\n  len = string_length(interpreter, { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868116	868209	
==>ODY" => "#line 232 \"src/ops/string.ops\"\n  INTVAL len;\n  len = string_length(interpreter, { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869082	869175	
==>ODY" => "#line 232 \"src/ops/string.ops\"\n  INTVAL len;\n  len = string_length(interpreter, { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870049	870142	
==>ODY" => "#line 232 \"src/ops/string.ops\"\n  INTVAL len;\n  len = string_length(interpreter, { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926205	926327	
==>_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927675	927797	
==>_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929145	929267	
==>_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930616	930738	
==>_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   { <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	67867	67977	
==>rule definition must be
				   on the same line as the rule name?");
		}
		elsif ($grammar =~ m/$ACTION/gco   ) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071912	1072023	
==>1 = {{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074097	1074208	
==>1 = {{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076282	1076393	
==>1 = {{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078468	1078579	
==>1 = {{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0 <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18436	18537	
==>y $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_ge <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19149	19250	
==>y $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_ge <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19637	19738	
==>y $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_ge <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20126	20227	
==>y $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_ge <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20615	20716	
==>y $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_0 = $self->_ge <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857771	858093	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858774	859096	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859778	860100	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860782	861104	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  " <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1610	1735	
==>elf->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = $op->{op} $op->{arg1}->{symbol}\n";
    }

    su <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467670	467786	
==>r, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LAB <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468541	468657	
==>r, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LAB <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469415	469531	
==>r, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LAB <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470290	470406	
==>r, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LAB <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21778	21884	
==>alue->new($block, $value_token) if defined $value_token;

      my ($cond, $left, $op, $right);

      if ( <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1862	1964	
==>o OFFSET($offset)> macro in an ops file into the
relevant C code.

=cut

sub goto_offset
{
    my ($sel <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2511	2613	
==>o OFFSET($offset)> macro in an ops file into the
relevant C code.

=cut

sub goto_offset
{
    my ($sel <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2230	2332	
==>o OFFSET($offset)> macro in an ops file into the
relevant C code.

=cut

sub goto_offset
{
    my ($sel <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2191	2293	
==>o OFFSET($offset)> macro in an ops file into the
relevant C code.

=cut

sub goto_offset
{
    my ($sel <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	226	324	
==>6-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Type <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	237	335	
==>6-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Type <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	235	333	
==>6-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Type <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	229	327	
==>6-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Type <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	235	333	
==>6-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Type <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Compilers.pm	571	702	
==>ut

sub new
{
    my $self = shift;
    
    return $self->SUPER::new(
        'Compilers', 'compilers.html', '',
        $s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072899	1073242	
==>2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075084	1075427	
==>2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077269	1077612	
==>2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079455	1079798	
==>2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	6216	6379	
==>h in rule $rule->{'name'}\n";
            }
        }

        # pop
        elsif (/^pop$/) {
            if ($rule->{$_} =~ /^\d+$/) {
                if ($has_po <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467736	468011	
==>@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "d <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468607	468882	
==>@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "d <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469481	469756	
==>@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "d <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470356	470631	
==>@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "d <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438514	438601	
==>e 99 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_ppp(interpreter, {{\@3}}, {{\@4}}, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	331816	332094	
==>E" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333093	333371	
==>E" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334371	334649	
==>E" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335649	335927	
==>E" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
5	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1097	1213	
==>} else { # faster
    while(($key,$value) = each %{$_[2]}) {
      unless($key =~ m/^~/s) {
        next if $key eq ' <==
5	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	2932	3032	
==>IS_CONST_FLAG = 0x01,
    VTABLE_HAS_CONST_TOO = 0x02,
    VTABLE_PMC_NEEDS_EXT = 0x04,
    VTABLE_DA <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2255	2346	
==>item C<expr_offset($offset)>

Transforms the C<OFFSET($offset)> macro in an ops file into th <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2290	2380	
==>ht->value);
    $self->SYNTAX_ERROR("Expression involves unknown variable %s.", $right->val <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2248	2338	
==>ht->value);
    $self->SYNTAX_ERROR("Expression involves unknown variable %s.", $right->val <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2170	2260	
==>ht->value);
    $self->SYNTAX_ERROR("Expression involves unknown variable %s.", $right->val <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4666	4780	
==>ss)>

Transforms the C<goto ADDRESS($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_addre <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1331	1445	
==>ss)>

Transforms the C<goto ADDRESS($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_addre <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1856	1970	
==>ss)>

Transforms the C<goto ADDRESS($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_addre <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1747	1861	
==>ss)>

Transforms the C<goto ADDRESS($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_addre <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1471	1585	
==>ss)>

Transforms the C<goto ADDRESS($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_addre <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	785	887	
==>alue") unless UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($r <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	623	725	
==>alue") unless UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($r <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	776	878	
==>alue") unless UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($r <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	665	767	
==>alue") unless UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($r <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	614	716	
==>alue") unless UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($r <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808337	808758	
==>> [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 912,
                  "ARGS" => [
                              "n",
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25171	25269	
==>->{children} ? @{$node->{children}} - 1 : 0;

  if($num_children==0) {
    $return = $self->_consta <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27071	27169	
==>->{children} ? @{$node->{children}} - 1 : 0;

  if($num_children==0) {
    $return = $self->_consta <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24283	24380	
==>->{children} ? @{$node->{children}} - 1 : 0;
  if($num_children==0) {
    $return = $self->_consta <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26182	26279	
==>->{children} ? @{$node->{children}} - 1: 0;

  if($num_children==0) {
    $return = $self->_consta <==
5	/Users/nnunley/parrot/tools/dev/lib_deps.pl	7799	7933	
==>.h
atanh       math.h
atanhf      math.h
atanhl      math.h
atanl       math.h
atexit      stdlib.h
atof        stdlib.h
atoi        st <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	573	663	
==>Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Ident is <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	461	551	
==>Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Ident is <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	808	898	
==>Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Ident is <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	836	926	
==>Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Ident is <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4655	4756	
==>ress($address)>

Transforms the C<goto ADDRESS($address)> macro in an ops file into the
relevant C cod <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1320	1421	
==>ress($address)>

Transforms the C<goto ADDRESS($address)> macro in an ops file into the
relevant C cod <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1845	1946	
==>ress($address)>

Transforms the C<goto ADDRESS($address)> macro in an ops file into the
relevant C cod <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1736	1837	
==>ress($address)>

Transforms the C<goto ADDRESS($address)> macro in an ops file into the
relevant C cod <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1460	1561	
==>ress($address)>

Transforms the C<goto ADDRESS($address)> macro in an ops file into the
relevant C cod <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920486	920782	
==>sprintf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921378	921674	
==>sprintf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	922271	922567	
==>sprintf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2494	2590	
==>$_[0]->emit_par( 0) }
sub end_item_text   { $_[0]->emit_par(-2) }

sub emit_par {
  return unless <==
5	/Users/nnunley/parrot/tools/dev/parrot_api.pl	2990	3086	
==>s or implicitly retrieved from a
global API.  Encapsulating data like this is good: it allows pas <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855019	855275	
==>ncat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855908	856164	
==>ncat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856797	857053	
==>ncat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857687	857943	
==>ncat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
5	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9633	9724	
==>path_is_directory($path)>

Returns whether the specified relative path is a directory.

=cut <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926312	926439	
==>INFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927782	927909	
==>INFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929252	929379	
==>INFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930723	930850	
==>INFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	252910	252998	
==>> "#line 713 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}}->vtable->logical_not(interpreter, { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480782	481042	
==>vide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481785	482045	
==>vide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482788	483048	
==>vide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	14393	14488	
==>work before perl 5.005.

Takes a quoted regular expression produced by qr//, or a string
represe <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	10	100	
==>t (C) 2004, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Docs/File.pm 20333 2006-06-21T18 <==
5	/Users/nnunley/parrot/config/auto/gc.pm	2062	2159	
==>>data->set(
            TEMP_gc_c => <<"EOF",
\$(SRC_DIR)/res_lea\$(O):	\$(GENERAL_H_FILES) \$(SRC <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748845	748930	
==>c/ops/set.ops\"\n  {{\@1}}->vtable->set_number_native(interpreter, {{\@1}}, {{\@2}});\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749629	749714	
==>c/ops/set.ops\"\n  {{\@1}}->vtable->set_number_native(interpreter, {{\@1}}, {{\@2}});\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755145	755230	
==>c/ops/set.ops\"\n  {{\@1}}->vtable->set_number_native(interpreter, {{\@1}}, {{\@2}});\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755932	756017	
==>c/ops/set.ops\"\n  {{\@1}}->vtable->set_number_native(interpreter, {{\@1}}, {{\@2}});\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	68456	68643	
==>"",
                  "ARGDIRS" => [],
                  "TYPE" => "function",
                  "CODE" => 90,
                  "ARGS" => [],
                  "BODY" => "#line 1060 \"src <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	58757	58855	
==>(' . gen_delimited_pat(q{'"}) . '|.)+/>';

        extract_tagged($text, undef, undef, undef, {igno <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73083	73171	
==>m_class_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74685	74773	
==>m_class_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76287	76375	
==>m_class_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77890	77978	
==>m_class_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}} <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	15745	15842	
==>e PMC file.
    $cout .= $self->line_directive($method->{line}, $self->{file});
    $cout .= "{$st <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586678	586769	
==>ss_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587864	587955	
==>ss_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589050	589141	
==>ss_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590237	590328	
==>ss_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4640	4735	
==>item C<goto_address($address)>

Transforms the C<goto ADDRESS($address)> macro in an ops file in <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1305	1400	
==>item C<goto_address($address)>

Transforms the C<goto ADDRESS($address)> macro in an ops file in <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1830	1925	
==>item C<goto_address($address)>

Transforms the C<goto ADDRESS($address)> macro in an ops file in <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1721	1816	
==>item C<goto_address($address)>

Transforms the C<goto ADDRESS($address)> macro in an ops file in <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1445	1540	
==>item C<goto_address($address)>

Transforms the C<goto ADDRESS($address)> macro in an ops file in <==
5	/Users/nnunley/parrot/lib/Class/Struct.pm	3675	3787	
==>r for $name must be hash reference'\n";
            $out .= "        if defined(\$init{'$name'}) && ref(\$init{'$ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099032	1099136	
==>ine 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100230	1100334	
==>ine 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101428	1101532	
==>ine 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102627	1102731	
==>ine 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e <==
5	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5637	5730	
==>("$stem$LOAD_EXT", "$stem$O")) {
        run(partial_link_cmd("$stem$LOAD_EXT", $libs, [ "$ste <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909366	909634	
==>x(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910263	910531	
==>x(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911160	911428	
==>x(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912058	912326	
==>x(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	2540	2647	
==>,
            $self->new_item('', 'tools/dev/install_files.pl'),
            $self->new_item('', 'tools/dev/ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321800	321973	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322571	322744	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323343	323516	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9211	9346	
==>n YYErrok has been called
            or  next;       # so continue parsing

#DBG>			$debug & 0x10
#DBG>		and	do {
#DBG>			print ST <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8796	8926	
==>n YYErrok has been called
            or  next;       # so continue parsing

#DBG>			$debug & 0x10
#DBG>		and	do {
#DBG>			print ST <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258324	258658	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259267	259601	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260118	260452	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260970	261304	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261822	262156	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71795	72086	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73396	73687	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74998	75289	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76600	76891	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645311	645595	
==>ME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 721,
                  "ARG <==
5	/Users/nnunley/parrot/lib/Test/More.pm	22647	22743	
==>he block is empty, delete it.

B<NOTE>: TODO tests require a Test::Harness upgrade else it will
t <==
5	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	2887	2997	
==>k line in an unimplemented method?
        } elsif ($cur_method->{'unimplemented'}) {
            die "Unimplem <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344133	344233	
==>"#line 148 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const path = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345375	345475	
==>"#line 148 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const path = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346617	346717	
==>"#line 148 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const path = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347860	347960	
==>"#line 148 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const path = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471363	471689	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472350	472676	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473337	473663	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474327	474653	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475318	475644	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843205	843311	
==>ps/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844083	844189	
==>ps/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844961	845067	
==>ps/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845840	845946	
==>ps/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LA <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	221	316	
==>=head1 SYNOPSIS

    use Parrot::Docs::Section::Info;

=head1 DESCRIPTION

A documentation secti <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501031	501305	
==>}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501770	502044	
==>}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502508	502782	
==>}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503247	503521	
==>}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
5	/Users/nnunley/parrot/lib/Test/More.pm	31848	31953	
==>}

    return $ok;
}

=item B<eq_set>

  my $is_eq = eq_set(\@this, \@that);

Similar to eq_array(), excep <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21841	21971	
==>onstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 68
		ACTIONS => {
			"^" => 79
		},
		DEFAULT => -7 <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31274	31370	
==>= @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $line, $out_name)>

Returns t <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35905	36001	
==>= @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $line, $out_name)>

Returns t <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39894	39990	
==>= @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $line, $out_name)>

Returns t <==
5	/Users/nnunley/parrot/tools/build/pbc2c.pl	560	651	
==>::OpsFile;
use Parrot::OpTrans::Compiled;
use Parrot::OpLib::core;
use Parrot::Config;
use P <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770048	770304	
==>INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770901	771157	
==>INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771754	772010	
==>INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772608	772864	
==>INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
5	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	1933	2044	
==>File::Find::dir =~ /\.svn/);
	     unlink($_) if (-f $_);
         }, 'miniparrot');
}


sub copy_src_from_obj { <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21090	21201	
==>orable =begin\n";
      } else {
        $self->{'content_seen'} ||= 1;
        $self->_handle_element_start(($s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773421	773512	
==>n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774331	774422	
==>n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775241	775332	
==>n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776152	776243	
==>n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099384	1099693	
==>}} = res;\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100582	1100891	
==>}} = res;\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101780	1102089	
==>}} = res;\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102979	1103288	
==>}} = res;\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1386	1491	
==>ions) = @_;
    my $cgen;

    $options{state} ||= global_state();
    $options{module} ||= "Regex::CodeGe <==
5	/Users/nnunley/parrot/config/gen/config_h.pm	2181	2301	
==>_\U$1 1\n";
        }
    }
    print HH <<EOF;

/*
 * D_(\\w+) config entries
 */

EOF
    for (sort($conf->data->keys() <==
5	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	2309	2404	
==>eeter.)

Add the Garam Masala, chili powder, and cook, stirring occasionally, for
5 minutes.

Ad <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2775	2868	
==>ROR("No type for left!")  unless defined $left_type;
  $self->INTERNAL_ERROR("No type for righ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2541	2634	
==>ROR("No type for left!")  unless defined $left_type;
  $self->INTERNAL_ERROR("No type for righ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2463	2556	
==>ROR("No type for left!")  unless defined $left_type;
  $self->INTERNAL_ERROR("No type for righ <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7573	7698	
==>$desc\n"),
               );
    }
    return $self->pushop . " <rx_stack>, $reg";
}

sub output_save {
    my ($self, $reg) = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071957	1072072	
==>AL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  IN <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074142	1074257	
==>AL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  IN <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076327	1076442	
==>AL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  IN <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078513	1078628	
==>AL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  IN <==
5	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	198	322	
==>if ($path eq '') {
            $*ERR.say("Empty compile time value given to lib.import()");
        }
        if (-e $path && <==
5	/Users/nnunley/parrot/tools/dev/run_indent.pl	1622	1728	
==>> $ccflags;
    $c->set('includeDirs' => \@incdirs);
    $/="\n";  # i don't know why, but this is necessar <==
5	/Users/nnunley/parrot/languages/regex/test.pl	3208	3313	
==>tx = { };
    my $trees = Regex::expr_to_tree($pattern, $ctx, DEBUG => $DEBUG);

    my $driver = Regex::D <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349113	349203	
==>r * const path = string_to_cstring(interpreter, {{\@2}});\n\n  {{\@1}} = PIO_open(interpret <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350115	350205	
==>r * const path = string_to_cstring(interpreter, {{\@2}});\n\n  {{\@1}} = PIO_open(interpret <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	8527	8631	
==>::scan;
sub maxlen { undef };

# $ (not R$, just $)
package Regex::Ops::Tree::atend;

sub minlen { 0 }
su <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11012	11096	
==>preter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATION, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11801	11885	
==>preter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATION, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13038	13122	
==>preter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATION, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13882	13966	
==>preter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATION, <==
5	/Users/nnunley/parrot/config/inter/lex.pm	1344	1454	
==>r the consequences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $self->set_resul <==
5	/Users/nnunley/parrot/config/inter/make.pm	1165	1275	
==>r the consequences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $self->set_resul <==
5	/Users/nnunley/parrot/config/inter/yacc.pm	1341	1451	
==>r the consequences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $self->set_resul <==
5	/Users/nnunley/parrot/languages/scheme/Scheme.pm	409	519	
==>b link_functions {
  my ( $main ) = @_;

  my @function = ( $main );
  my @missing = @{$main->{functions}};
  m <==
5	/Users/nnunley/parrot/config/init/optimize.pm	143	232	
==>config/init/optimize.pm - Optimization

=head1 DESCRIPTION

Enables optimization by adding <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	55166	55263	
==>ctor is a hash reference, it must contain exactly one element.
The value of that element is one of <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858536	858630	
==>ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat wi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859540	859634	
==>ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat wi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860544	860638	
==>ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat wi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861549	861643	
==>ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat wi <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	2680	2785	
==>en->EOF if $index >= @{$self->{TOKENS}};

  return $self->{TOKENS}[$index];
}


#
# get()
#
# Without an a <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018051	1018137	
==>asctime_r(&tm, resultbuffer);\n  {{\@1}} = string_from_cstring(interpreter, resultbuffe <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018976	1019062	
==>asctime_r(&tm, resultbuffer);\n  {{\@1}} = string_from_cstring(interpreter, resultbuffe <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019906	1019992	
==>asctime_r(&tm, resultbuffer);\n  {{\@1}} = string_from_cstring(interpreter, resultbuffe <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020837	1020923	
==>asctime_r(&tm, resultbuffer);\n  {{\@1}} = string_from_cstring(interpreter, resultbuffe <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	1088	1190	
==>',
	'bnf' => 'Grammar file',
	'c' => 'C code',
	'cola' => 'Cola code',
	'cs' => 'C# code',
	'declaratio <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066980	1067080	
==>FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068166	1068266	
==>FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069352	1069452	
==>FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070539	1070639	
==>FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : { <==
5	/Users/nnunley/parrot/tools/build/dynclasses.pl	5183	5323	
==>ant on
        # some platforms
        if ($^O eq 'hpux' or $^O eq 'cygwin') {
            chmod 0755, "$dest/$_$LOAD_EXT";
        }

    } <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	5394	5534	
==>ant on
        # some platforms
        if ($^O eq 'hpux' or $^O eq 'cygwin') {
            chmod 0755, "$dest/$_$LOAD_EXT";
        }

    } <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200020	200118	
==>"#line 373 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200917	201015	
==>"#line 373 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201814	201912	
==>"#line 373 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262846	263159	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263792	264105	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264645	264958	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265499	265812	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266353	266666	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742749	742891	
==>set.ops\"\n  {{\@1}} = string_from_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743515	743657	
==>set.ops\"\n  {{\@1}} = string_from_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	288	386	
==>-Vektor
sub A() { 0x67_45_23_01 }
sub B() { 0xef_cd_ab_89 }
sub C() { 0x98_ba_dc_fe }
sub D() { 0x1 <==
5	/Users/nnunley/parrot/config/auto/gcc.pm	357	450	
==>::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining if your C compiler <==
5	/Users/nnunley/parrot/config/auto/msvc.pm	377	470	
==>::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining if your C compiler <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579659	579914	
==>{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580964	581219	
==>{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582269	582524	
==>{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583575	583830	
==>{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	3262	3382	
==>)(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, 'semicolon', undef, $1);
      $text = $2;
      n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926066	926193	
==>witch ({{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927536	927663	
==>witch ({{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929006	929133	
==>witch ({{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930477	930604	
==>witch ({{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case <==
5	/Users/nnunley/parrot/lib/Parrot/Configure.pm	523	613	
==>executing, and
coordinating one or more Configuration steps.  Please see
F<docs/configurati <==
5	/Users/nnunley/parrot/config/init/hints/hpux.pm	220	336	
==>ibs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }

    $conf->data <==
5	/Users/nnunley/parrot/config/init/hints/irix.pm	517	632	
==>ibs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }
    $conf->data <==
5	/Users/nnunley/parrot/config/init/hints/netbsd.pm	310	425	
==>ibs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }
    $conf->data <==
5	/Users/nnunley/parrot/config/init/hints/openbsd.pm	402	511	
==>ibs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
	}
	$conf->data <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	38498	38594	
==>ifying patterns
that are I<not> be be treated as nested tags within the tagged text
(even if they <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680946	681240	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681722	682016	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682496	682790	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683271	683565	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/lib/Pod/Escapes.pm	3232	3356	
==>160,
 'iexcl'    , 161,
 'cent'     , 162,
 'pound'    , 163,
 'curren'   , 164,
 'yen'      , 165,
 'brvbar'   , 166,
 'sect <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477183	477458	
==>@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "f <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478079	478354	
==>@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "f <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478970	479245	
==>@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "f <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479862	480137	
==>@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "f <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	36574	36700	
==>ara_type eq 'Data') {
        $para->[0] = 'Data';
        $para_type = '?Data';
      } elsif( $para_type =~ s/^=//s
        a <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939606	939895	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940497	940786	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941389	941678	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942281	942570	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	38439	38534	
==>tref>

The list reference contains one or more strings specifying patterns
that are I<not> be be <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769257	769528	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":bas <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770109	770380	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":bas <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770962	771233	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":bas <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771815	772086	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":bas <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	22675	22815	
==>, map('>', @$is), "\n" )
            : "tag $is<...>.\n";
        }
      }
      
      if(!defined $is) {
        $self->whine($start_line, <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	5901	6034	
==>kip_all' ) {
        return $self->skip_all($arg);
    }
    elsif( $cmd eq 'tests' ) {
        if( $arg ) {
            return $self- <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561938	562036	
==>n(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", {{\@3}});\n  }\n  {{=next <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563022	563120	
==>n(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", {{\@3}});\n  }\n  {{=next <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1934	2031	
==>e, $formal_arg_name) = @{$formal_args[$i]};
    my $actual_arg_type;

    if (UNIVERSAL::isa($args <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1634	1731	
==>e, $formal_arg_name) = @{$formal_args[$i]};
    my $actual_arg_type;

    if (UNIVERSAL::isa($args <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12029	12163	
==>8
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29 <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18125	18259	
==>8
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29 <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25084	25218	
==>8
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29 <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28685	28819	
==>8
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29 <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33434	33568	
==>8
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29 <==
5	/Users/nnunley/parrot/config/inter/shlibs.pm	250	341	
==>r compiling position-independent code
for use in shared libraries.  Eventually, other shared <==
5	/Users/nnunley/parrot/config/gen/core_pmcs.pm	1857	1970	
==>void Parrot_initialize_core_pmcs(Interp *interp)
{
    int pass;
    for (pass = 0; pass <= 1; ++pass) {
        / <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	3417	3531	
==>+)?   # optional line
	(\d+)\s+        # PC
	([\w+]+)\s+      # opcode e.g. SLICE+3
	(?:(\d+)(?:\s+\((.*)\))?)? # o <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576536	576648	
==>r, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, name);\n  {{+=4}};\n",
                  "L <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577548	577660	
==>r, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, name);\n  {{+=4}};\n",
                  "L <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23571	23662	
==>,$temp,"NEXT_$label"]);
    $self->_add_inst('','set',[$return,$temp]);
    $self->_add_inst <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24033	24124	
==>,$temp,"NEXT_$label"]);
    $self->_add_inst('','set',[$return,$temp]);
    $self->_add_inst <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	5472	5554	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _ <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	15967	16049	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _ <==
5	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	373	455	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _ <==
5	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	372	454	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _ <==
5	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1764	1846	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _ <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42477	42579	
==>::RD_TRACE;').'

		push @item, '.($::RD_NO_HITEM ? ''
			       : '$item{'.$self->{hashname}.'}=') . '$ <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28556	28657	
==>::RD_TRACE;').'
		push @item, '.($::RD_NO_HITEM ? ''
			       : '$item{'.$self->{hashname}.'}=') . '$ <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30634	30735	
==>::RD_TRACE;').'
		push @item, '.($::RD_NO_HITEM ? ''
			       : '$item{'.$self->{hashname}.'}=') . '$ <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32837	32935	
==>::RD_TRACE;').'
		push @item, ' . ($::RD_NO_HITEM ? ''
				 : '$item{'.$self->{hashname}.'}=') . '$ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	28469	28562	
==>gc;\n\n    CONTEXT(interpreter->ctx)->current_results = this;\n    argc = SIG_ELEMS(signature) <==
5	/Users/nnunley/parrot/config/inter/progs.pm	3723	3826	
==>>get('cxx'));
    $cxx = prompt("What C++ compiler do you want to use?", $cxx) if $ask;
    $conf->data- <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126748	127088	
==>{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127883	128223	
==>{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129018	129358	
==>{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	1934	2032	
==>qw(Regex::Ops::Tree);
@Regex::Ops::Tree::code::ISA         = qw(Regex::Ops::Tree);

# Construct a n <==
5	/Users/nnunley/parrot/tools/dev/nm.pl	1368	1466	
==>d the object name before the symbol name.

=item C<--t>

Append the short BSD-style type to the sym <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568495	568818	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" => ":obj <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569387	569710	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" => ":obj <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570280	570603	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" => ":obj <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571234	571557	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" => ":obj <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	9561	9665	
==>als ? ', ' : '.local string ';
		$stack_locals .= "stack$_";
		$mv->{"STACK$_"} = "stack$_";
	}
	my $dest <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361782	362019	
==>, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362681	362918	
==>, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363583	363820	
==>, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364486	364723	
==>, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367063	367300	
==>, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516690	516944	
==>ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517429	517683	
==>ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518167	518421	
==>ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518906	519160	
==>ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	15954	16063	
==>$line + count_newlines($cout),
				   $out_name);
    $cout .= $additional_bodies;
    $cout .= "\n\n";
}

=it <==
5	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1641	1753	
==>print {$_[0]{'output_fh'}}
   '  ' x --$_[0]{'indent'}, "--", $_[1], "\n";
  return;
}

# . . . . . . . . . . . . <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540456	540556	
==>VAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}= <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541708	541808	
==>VAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}= <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542960	543060	
==>VAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}= <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	26280	26376	
==>c = "m$ldel$pattern$rdel$mod" }
	$desc =~ s/\\/\\\\/g;
	$desc =~ s/\$$/\\\$/g;
	$desc =~ s/}/\\}/ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926413	926537	
==>INFO_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927883	928007	
==>INFO_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929353	929477	
==>INFO_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930824	930948	
==>INFO_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1} <==
5	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	655	749	
==>e::Spec;
use Parrot::Config;

require Exporter;
require Parrot::Test;
require Test::Builder;
re <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763144	763244	
==>}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763997	764097	
==>}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764850	764950	
==>}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765704	765804	
==>}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2} <==
5	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	10591	10688	
==>an be useful in other contexts as well.

== Testing Functions

- `use_ok (Str $module, Bool :$todo <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154158	154394	
==>0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155061	155297	
==>0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155965	156201	
==>0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156869	157105	
==>0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157774	158010	
==>0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_addr",
                  "FLAGS <==
5	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	410	517	
==>ernal use
sub MAX() { 0xFFFFFFFF }

# padd a message to a multiple of 64
sub padding($) {
    my $l = length <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344480	344569	
==>!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Und <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345722	345811	
==>!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Und <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346964	347053	
==>!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Und <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348207	348296	
==>!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Und <==
5	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	3138	3242	
==>ch descriptions were not obtained:\n\n";
	foreach (@no_descriptions) {
	    my $top = $_->{top};
	    $to <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769979	770082	
==>EGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770832	770935	
==>EGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771685	771788	
==>EGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772539	772642	
==>EGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3} <==
5	/Users/nnunley/parrot/tools/build/pmc2c.pl	3680	3773	
==>interfaces (the collection of methods
which the class implements).

The default is "scalar". O <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909302	909392	
==>"#line 284 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910199	910289	
==>"#line 284 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911096	911186	
==>"#line 284 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911994	912084	
==>"#line 284 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519746	520053	
==>{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520601	520908	
==>{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	521456	521763	
==>{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522310	522617	
==>{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523165	523472	
==>{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18540	18633	
==>rate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_generat <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19253	19346	
==>rate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_generat <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19741	19834	
==>rate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_generat <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20230	20323	
==>rate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_generat <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20719	20812	
==>rate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_generat <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099065	1099187	
==>s\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\t <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100263	1100385	
==>s\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\t <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101461	1101583	
==>s\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\t <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102660	1102782	
==>s\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\t <==
5	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11596	11691	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub unicode_escape_url {
  my($self, $string) = @_;
  $string =~ s/ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258496	258773	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259439	259716	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260290	260567	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261142	261419	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261994	262271	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Class/Struct.pm	6475	6589	
==>oo many args to $name' if \@_ > 1;\n";
            $out .= "    \@_ ? ($pre\$r->$elem$sel = shift$pst) : $pre\$r->$ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262684	263007	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263630	263953	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264483	264806	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265337	265660	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266191	266514	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS <==
5	/Users/nnunley/parrot/config/auto/signal.pm	1957	2063	
==>i = 0;
    foreach $name (split(' ', $Config{sig_name})) {
        print O ".constant SIG$name\t$i\n" if $i <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3156	3251	
==>STYPES}[stack_depth]

# Do we have anything on the lazy moves stack?
${ITEMP0} = elements lazy_m <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4914	5009	
==>STYPES}[stack_depth]

# Do we have anything on the lazy moves stack?
${ITEMP0} = elements lazy_m <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7841	7936	
==>STYPES}[stack_depth]

# Do we have anything on the lazy moves stack?
${ITEMP0} = elements lazy_m <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8697	8792	
==>STYPES}[stack_depth]

# Do we have anything on the lazy moves stack?
${ITEMP0} = elements lazy_m <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	850	958	
==>item C<defines()>

Returns the C C<#define> macros required by the ops.

=cut

sub defines
{
    return <<END <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	786	894	
==>item C<defines()>

Returns the C C<#define> macros required by the ops.

=cut

sub defines
{
    return <<END <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	806	914	
==>item C<defines()>

Returns the C C<#define> macros required by the ops.

=cut

sub defines
{
    return <<END <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	980	1088	
==>item C<defines()>

Returns the C C<#define> macros required by the ops.

=cut

sub defines
{
    return <<END <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	525	633	
==>item C<defines()>

Returns the C C<#define> macros required by the ops.

=cut

sub defines
{
    return <<END <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640206	640491	
==>=> 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640960	641245	
==>=> 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645284	645569	
==>=> 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646180	646465	
==>=> 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
5	/Users/nnunley/parrot/lib/Test/More.pm	12412	12517	
==>Module->new;
    isa_ok( $obj, 'Some::Module' );

where you'd otherwise have to write

    my $obj = Some: <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11549	11650	
==>::Value->new($block, $self->forth);

      $self->require_semicolon;

      my $arith = Jako::Construc <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16494	16595	
==>::Value->new($block, $self->forth);

      $self->require_semicolon;

      my $arith = Jako::Construc <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17265	17366	
==>::Value->new($block, $self->forth);

      $self->require_semicolon;

      my $arith = Jako::Construc <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18070	18171	
==>::Value->new($block, $self->forth);

      $self->require_semicolon;

      my $arith = Jako::Construc <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	51627	51761	
==>$x = $code . ("<" x $ender_length) . " $x " . (">" x $ender_length);
      } else {
        $x = $code . "<$x>";
      }
    }
    DEBU <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591471	591565	
==>ext = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592681	592775	
==>ext = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593891	593985	
==>ext = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595102	595196	
==>ext = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@ <==
5	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	548	662	
==>=> $ccflags);

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthrea <==
5	/Users/nnunley/parrot/config/init/hints/irix.pm	493	607	
==>=> $ccflags);

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthrea <==
5	/Users/nnunley/parrot/config/init/hints/netbsd.pm	286	400	
==>=> $ccflags);

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthrea <==
5	/Users/nnunley/parrot/config/init/hints/openbsd.pm	378	492	
==>=> $ccflags);

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthrea <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	142	235	
==>1 NAME

Parrot::Docs::Section::Perl - Perl documentation section

=head1 SYNOPSIS

	use Parrot <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	66747	66845	
==>($grammar =~ m/$BADREP/gco)
				{
					_parse("an subrule match with invalid repetition specifier", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332575	332668	
==>ew(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all res <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333853	333946	
==>ew(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all res <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335131	335224	
==>ew(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all res <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336410	336503	
==>ew(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all res <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344508	344620	
==>{{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345750	345862	
==>{{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346992	347104	
==>{{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348235	348347	
==>{{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	30162	30263	
==>h might be next, or a treelet)
# Fourth:
# The section (AKA "item" in older perlpods), or undef if non <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510502	510786	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511240	511524	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511978	512262	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
5	/Users/nnunley/parrot/lib/Parrot/Test.pm	4354	4446	
==>te Representation and generate Parrot Assembler Code.
Pass unless the generated PASM is $expe <==
5	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	359	451	
==>source_standards.pl all_source

=head1 DESCRIPTION

This script checks that the C source code <==
5	/Users/nnunley/parrot/tools/build/headerize.pl	831	935	
==>mper;
use Getopt::Long;
use lib qw( lib );
use Parrot::Config;

my %opt;

main();

=head1 FUNCTIONS

=cut <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099077	1099199	
==>ATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100275	1100397	
==>ATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101473	1101595	
==>ATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102672	1102794	
==>ATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) { <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30600	30711	
==>n_pir = concat " = clone "
gen_pir = concat dest0
gen_pir = concat "\\n"
$label:
PIR
        }

		# Finally, cal <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926443	926594	
==>get_FLAGS({{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1}} = {{\@2}}->bufused;\n                              brea <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927913	928064	
==>get_FLAGS({{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1}} = {{\@2}}->bufused;\n                              brea <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929383	929534	
==>get_FLAGS({{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1}} = {{\@2}}->bufused;\n                              brea <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930854	931005	
==>get_FLAGS({{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1}} = {{\@2}}->bufused;\n                              brea <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29348	29456	
==>ed_dest = 0;
			$mv->{'LOADREG'} = 'loadreg';
			push @localmv, 'LOADREG';
		} else {
			die "pir or instruct <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361737	361845	
==>{{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362636	362744	
==>{{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363538	363646	
==>{{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364441	364549	
==>{{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367018	367126	
==>{{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3} <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	25372	25479	
==>tr)) {	# a method function
	    print <<EOC;
	P2 = $1   # obj '$obj' attr '$attr'
	${ret_string}$func($args) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332542	332635	
==>(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333820	333913	
==>(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335098	335191	
==>(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336377	336470	
==>(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_ <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	20005	20130	
==>class =~ /^[A-Z]/;
        # MMD method
        if ($method->{mmd} =~ /MMD_/ && !$defaulted) {
            my ($func, $left, $ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071922	1072034	
==>} < 0 ? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074107	1074219	
==>} < 0 ? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076292	1076404	
==>} < 0 ? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078478	1078590	
==>} < 0 ? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12659	12763	
==>l();
		push @args, qq{"$labels{$syms[CURR]}"};
	} else {
		push @args, qq{""};
	}
	feedme();
	push @{$cod <==
5	/Users/nnunley/parrot/tools/dev/run_indent.pl	590	788	
==>run this. Use the CPAN
shell:

    perl -MCPAN -e shell 
    cpan> install C::Scan 
    ...

=cut

################################################################################

# the following #d <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773388	773475	
==>> "#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774298	774385	
==>> "#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775208	775295	
==>> "#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776119	776206	
==>> "#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter <==
5	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	568	743	
==>$key, $value ) = each(%attr) ) {
            if ( defined $value ) {
                $self->{$key} = $value;
            }
        }
        return $self;
    }

    su <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777052	777138	
==>et.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777961	778047	
==>et.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778870	778956	
==>et.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779780	779866	
==>et.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396910	397172	
==>RGS" => [
                              "p",
                              "ic",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket( <==
5	/Users/nnunley/parrot/tools/dev/cc_flags.pl	1024	1148	
==>s*//) {
	$regex = qr/^\Q$1\E$/;
    }
    else {
	die "syntax error in $cflags: line $., $_\n";
    }

    for (;;) {
	if (s/ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344309	344397	
==>ng_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mod <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345551	345639	
==>ng_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mod <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346793	346881	
==>ng_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mod <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348036	348124	
==>ng_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mod <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084754	1084862	
==>}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "exp <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085807	1085915	
==>}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "exp <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086860	1086968	
==>}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "exp <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087914	1088022	
==>}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "exp <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	25859	25956	
==>the string
 # in $delim contains one or more of '(){}[]<>').

	($extracted, $remainder) = extract_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718123	718376	
==>pace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719055	719308	
==>pace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720254	720507	
==>pace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721454	721707	
==>pace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
5	/Users/nnunley/parrot/config/gen/config_h.pm	152	240	
==>/config_h.pm - Configuration Header

=head1 DESCRIPTION

Generates F<include/parrot/confi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763175	763290	
==>ANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764028	764143	
==>ANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764881	764996	
==>ANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765735	765850	
==>ANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	20018	20128	
==>age);
    PANIC(c);
    return NULL;
}

TAIL
}

=begin example

This is the template thing

static void pcf_$fu <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450954	451247	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451692	451985	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452431	452724	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453169	453462	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453908	454201	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_c <==
5	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	642	739	
==><'PIR_OUT';
# THIS IS A GENERATED FILE! DO NOT EDIT!

.HLL '_dotnet', ''

.sub internal_method_bod <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	22013	22104	
==>_->[2]'
	P4= P6["storage"]
	P5= P4["$_->[0]"]
	$val{$_->[2]}= P5["value"]
	P2["value"]= $val <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552850	552936	
==>TABLE_get_string(interpreter, method_pmc);\n  dest = (opcode_t *)VTABLE_invoke(interpre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556845	556931	
==>TABLE_get_string(interpreter, method_pmc);\n  dest = (opcode_t *)VTABLE_invoke(interpre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560868	560954	
==>TABLE_get_string(interpreter, method_pmc);\n  dest = (opcode_t *)VTABLE_invoke(interpre <==
5	/Users/nnunley/parrot/tools/build/jit2c.pl	6696	6796	
==>0.
 *
 * Any changes made here will be lost!
 *
 */

#include<parrot/parrot.h>
#if HAVE_COMPUTED_GOTO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344493	344585	
==>PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345735	345827	
==>PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346977	347069	
==>PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348220	348312	
==>PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+ <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11985	12088	
==>: DYNSUPER
      \(\s*(.*?)\)      # capture argument list
     /"interpreter->vtables[$supertype].$meth <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549964	550063	
==>method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551265	551364	
==>method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553827	553926	
==>method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555224	555323	
==>method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	12399	12512	
==>)/sx
            # avoid accepting things like =head1 Thingy Thongy (DESCRIPTION)
          and ($max_content_leng <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044684	1044772	
==>ne 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045578	1045666	
==>ne 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046472	1046560	
==>ne 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047367	1047455	
==>ne 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084054	1084331	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085106	1085383	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086159	1086436	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087212	1087489	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i", <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	16	114	
==>odeGen::IMCC;
use Regex::Ops::Tree (); # For mark()
use base 'Regex::CodeGen';
use strict;

my $fai <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27508	27622	
==>$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_p <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29975	30089	
==>$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_p <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33393	33507	
==>$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_p <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34647	34761	
==>$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_p <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37057	37171	
==>$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for rule $rule->{'name'}");
		} else {
			$pir .= sub_meta(ins_to_p <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451672	451945	
==>{{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452411	452684	
==>{{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453149	453422	
==>{{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453888	454161	
==>{{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add <==
5	/Users/nnunley/parrot/tools/build/ops2c.pl	3903	4001	
==>file" ], $nolines_flag );
    $ops->{OPS} = $Parrot::OpLib::core::ops;
    $ops->{PREAMBLE} = $Parr <==
5	/Users/nnunley/parrot/tools/build/dynclasses.pl	2155	2281	
==>l_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put v <==
5	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2447	2573	
==>l_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put v <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	2242	2368	
==>l_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put v <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	4374	4494	
==>ck),
                $continue);
    }
}

# TODO: can_match_empty (so s/a*/x/g doesn't go into infinite loop)
# This is s <==
5	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	169	268	
==>::Configure::Step::Base - Configuration Step Base Class

=head1 SYNOPSIS
    
    use base qw(Parrot <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	1593	1698	
==>umps to the following address.
 5. Eliminate unused labels.

TODO:

 1. I would like to optimize

     B1: <==
5	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	2689	2820	
==>mple::LinkSection' ),
                   'baz'
                 ], 'Pod::Simple::LinkSection' );
  
But stringify it and you get jus <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099231	1099349	
==>n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100429	1100547	
==>n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101627	1101745	
==>n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102826	1102944	
==>n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501002	501225	
==>\"src/ops/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501741	501964	
==>\"src/ops/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502479	502702	
==>\"src/ops/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503218	503441	
==>\"src/ops/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
5	/Users/nnunley/parrot/lib/Parrot/Test.pm	3120	3214	
==>ke($code, $expected, $description)>

Runs the PIR code and passes the test if output matches th <==
5	/Users/nnunley/parrot/examples/benchmarks/arriter.pl	579	704	
==>{
    $s = chr(65 + $i);
    push @k, $s;
}


# set up all 5 element permutations of qw( A B C D E F G H I J )
for my $e (0..3 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374024	374113	
==>ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374907	374996	
==>ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375790	375879	
==>ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376674	376763	
==>ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024486	1024780	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025242	1025536	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025999	1026293	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026755	1027049	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	827	928	
==>expecting $Parse::RecDescent::expected but found \"$1\" instead";
	}
}

   *defskip  = \ '\s*';	# DEFA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492788	493041	
==>od({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493549	493802	
==>od({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499523	499776	
==>od({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500286	500539	
==>od({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	2359	2454	
==>tional hints which provide
information about the op.

The classification of ops is intended to f <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	22445	22572	
==>ith a #.
    $msg =~ s/^/# /gm;

    # Stick a newline on the end if it needs it.
    $msg .= "\n" unless $msg =~ /\n\Z/;

    l <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714617	714713	
==>s && string_length(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715540	715636	
==>s && string_length(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722304	722400	
==>s && string_length(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723333	723429	
==>s && string_length(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939790	940087	
==>0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940681	940978	
==>0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941573	941870	
==>0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942465	942762	
==>0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	20379	20488	
==>del1;
		}
		$str2pos = $ld2pos+1;

		if ($ldel2 =~ /[[(<{]/)
		{
			pos($$textref)--;	# OVERCOME BROKEN LOOKAH <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	769	869	
==>t) . ") is not Value") unless UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess( <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	607	707	
==>t) . ") is not Value") unless UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess( <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	760	860	
==>t) . ") is not Value") unless UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess( <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	649	749	
==>t) . ") is not Value") unless UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess( <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	598	698	
==>t) . ") is not Value") unless UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess( <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	56949	57052	
==>ring that is a valid Perl quotelike
operator (and removes it from $text):

        $quotelike = extract_ <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9484	9581	
==>ng to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get details of metho <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6998	7095	
==>ng to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get details of metho <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5554	5651	
==>ng to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get details of metho <==
5	/Users/nnunley/parrot/lib/Parrot/Op.pm	2055	2151	
==>body must be provided eventually for the
op to be usable.

C<$code> is the integer identifier for <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766616	766856	
==>access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767469	767709	
==>access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768322	768562	
==>access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769176	769416	
==>access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326270	326352	
==>\"src/ops/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_same(interpreter, {{\@1}},{{ <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	4732	4844	
==>b new ($$$$$)
{
	my $class = ref($_[0]) || $_[0];
	my $name  = $_[1];
	my $owner = $_[2];
	my $line  = $_[3];
	my <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797013	797099	
==>2 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed(interpreter, {{\@1}}, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797917	798003	
==>2 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed(interpreter, {{\@1}}, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798821	798907	
==>2 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed(interpreter, {{\@1}}, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799726	799812	
==>2 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed(interpreter, {{\@1}}, {{\@ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	482	581	
==>, $right) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako:: <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	458	557	
==>, $right) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako:: <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	473	572	
==>, $right) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako:: <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	362	461	
==>, $right) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako:: <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	449	548	
==>, $right) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako:: <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	20262	20376	
==>s = ();
    my $result = new_tmp( $parser, 'pmc', $type{$op} );
    push @opcodes, @{ $expr->[1] };
    push @op <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584505	584599	
==>t = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS, \"Cl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585580	585674	
==>t = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS, \"Cl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598021	598115	
==>t = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS, \"Cl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599068	599162	
==>t = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS, \"Cl <==
5	/Users/nnunley/parrot/lib/Test/More.pm	3272	3374	
==>ou
have no plan.  (Try to avoid using this as it weakens your test.)

  use Test::More qw(no_plan);

B< <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1865	1966	
==>FFSET($offset)> macro in an ops file into the
relevant C code.

=cut

sub goto_offset
{
    my ($self, <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2514	2615	
==>FFSET($offset)> macro in an ops file into the
relevant C code.

=cut

sub goto_offset
{
    my ($self, <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2233	2334	
==>FFSET($offset)> macro in an ops file into the
relevant C code.

=cut

sub goto_offset
{
    my ($self, <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2194	2295	
==>FFSET($offset)> macro in an ops file into the
relevant C code.

=cut

sub goto_offset
{
    my ($self, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024326	1024616	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025082	1025372	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025839	1026129	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026595	1026885	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "" <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	26864	26967	
==>nes($cout);
    $cout .= $self->methods($l, $out_name);
    $cout .= $self->init_func;
    if ($self->{c <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36750	36896	
==>42
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154855	154954	
==>Y" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155759	155858	
==>Y" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156663	156762	
==>Y" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157568	157667	
==>Y" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4} <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	11874	11979	
==>rate($_);
    $self->_add_inst(''         ,'eq' ,[$temp,0,"DONE_$label"]);
    $self->_restore($temp);
  } <==
5	/Users/nnunley/parrot/config/init/hints.pm	982	1098	
==>hints = "init::hints::local";
    print "$hints " if $verbose;
    eval "use $hints";
    unless ($@) {
        $hint <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381123	381220	
==>@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset({{\@2}}), {{\@3}}) < 0) {\n      r <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382135	382232	
==>@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset({{\@2}}), {{\@3}}) < 0) {\n      r <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383147	383244	
==>@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset({{\@2}}), {{\@3}}) < 0) {\n      r <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384160	384257	
==>@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset({{\@2}}), {{\@3}}) < 0) {\n      r <==
5	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	1369	1453	
==>ile_branch_coverage, %file_call_coverage);
my (%function_line_coverage, %function_bra <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1364	1466	
==>SS($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($self, $ <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1889	1991	
==>SS($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($self, $ <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1780	1882	
==>SS($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($self, $ <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1504	1606	
==>SS($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($self, $ <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	54	145	
==>ase class for tokens gotten from Pod::Simple::PullParser's $parser->get_token
@ISA = ();
$VE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114842	115159	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115696	116013	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116551	116868	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661901	661992	
==>" => "#line 339 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable-> <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662817	662908	
==>" => "#line 339 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable-> <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642348	642653	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643236	643541	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644128	644433	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645021	645326	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030169	1030438	
==>,
                  "NAME" => "sleep",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1152,
                  "ARG <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	333	434	
==>ict;
use SRM::Base;
our @ISA = qw/SRM::Base/;

# Constructor. Just base this class on a hash.
sub new( <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	239	340	
==>ict;
use SRM::Base;
our @ISA = qw/SRM::Base/;

# Constructor. Just base this class on a hash.
sub new( <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	147	248	
==>ict;
use SRM::Base;
our @ISA = qw/SRM::Base/;

# Constructor. Just base this class on a hash.
sub new( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64725	64813	
==>interp, PARROT_EXTERN_CODE_FLAG);\n  new_interp->code = interpreter->code;\n  runops(new_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65676	65764	
==>interp, PARROT_EXTERN_CODE_FLAG);\n  new_interp->code = interpreter->code;\n  runops(new_ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1998	2092	
==>n involves unknown variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->t <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1956	2050	
==>n involves unknown variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->t <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1878	1972	
==>n involves unknown variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->t <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3968	4060	
==>wo(y())
	print y(4)
end function
function arrfunc(x())
	u=aftwo(x())
	arrfunc=55
end function <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15241	15333	
==>wo(y())
	print y(4)
end function
function arrfunc(x())
	u=aftwo(x())
	arrfunc=55
end function <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27320	27432	
==>we have PIR for the instruction, just take that. If not, we need
		# to generate it from the "to generate" instru <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29787	29899	
==>we have PIR for the instruction, just take that. If not, we need
		# to generate it from the "to generate" instru <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33205	33317	
==>we have PIR for the instruction, just take that. If not, we need
		# to generate it from the "to generate" instru <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34459	34571	
==>we have PIR for the instruction, just take that. If not, we need
		# to generate it from the "to generate" instru <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36869	36981	
==>we have PIR for the instruction, just take that. If not, we need
		# to generate it from the "to generate" instru <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18932	19031	
==>DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self- <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19420	19519	
==>DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self- <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19908	20007	
==>DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self- <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20397	20496	
==>DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self- <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20886	20985	
==>DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self- <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501015	501269	
==>h.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501754	502008	
==>h.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502492	502746	
==>h.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503231	503485	
==>h.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	228	322	
==>s::Section;

=head1 DESCRIPTION

A documentation I<section> is an HTML page containing links to <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511013	511268	
==>h.ops\"\n  {{\@1}} = - {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511751	512006	
==>h.ops\"\n  {{\@1}} = - {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
5	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1293	1423	
==>from a line
         [^\n\ ]{0,50}     #  and finish any current word
        )
        \x20{1,10}(?!\n)   # capture some spaces no <==
5	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1237	1367	
==>from a line
         [^\n\ ]{0,50}     #  and finish any current word
        )
        \x20{1,10}(?!\n)   # capture some spaces no <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39360	39484	
==>esult' => $result,
    );
    push @opcodes1, new ConstDir( $parser,
        'result' => $fct,
        'arg1'   => $fct-> <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	51560	51654	
==>e "less than" operator is interpreted as a closing delimiter.

But, by extracting the directive <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73115	73204	
==>able->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR(p));\n      PObj_get_FLA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74717	74806	
==>able->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR(p));\n      PObj_get_FLA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76319	76408	
==>able->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR(p));\n      PObj_get_FLA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77922	78011	
==>able->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR(p));\n      PObj_get_FLA <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	6449	6565	
==>ose NCI;


sub print_head {
    my ($definitions) = @_;
    print NCI << "HEAD";
/* ex: set ro:
 * !!!!!!!   DO NOT E <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584468	584564	
==>terpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exceptio <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585543	585639	
==>terpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exceptio <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597984	598080	
==>terpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exceptio <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599031	599127	
==>terpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exceptio <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123302	123600	
==>=> 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124175	124473	
==>=> 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125049	125347	
==>=> 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758277	758368	
==>" => "#line 276 \"src/ops/set.ops\"\n  {{\@1}} = string_set(interpreter, {{\@1}}, {{\@2}});\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759050	759141	
==>" => "#line 276 \"src/ops/set.ops\"\n  {{\@1}} = string_set(interpreter, {{\@1}}, {{\@2}});\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332532	332629	
==>e);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* string_cs <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333810	333907	
==>e);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* string_cs <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335088	335185	
==>e);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* string_cs <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336367	336464	
==>e);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* string_cs <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7607	7700	
==>{CURIC}:
if ${ITEMP0} == 0 goto PRE_CALL_PLOOP_END_${CURIC}
dec ${ITEMP0}
dec ${ITEMP2}

# Gen <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33922	34040	
==>($method->{type} ne 'void') {
        my $type = $method->{type};
        $ret_def = "$type ret_val;";
        $func_re <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38884	39002	
==>($method->{type} ne 'void') {
        my $type = $method->{type};
        $ret_def = "$type ret_val;";
        $func_re <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	674529	674783	
==>_string(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683068	683322	
==>_string(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740518	740770	
==>_string(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009124	1009376	
==>_string(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
5	/Users/nnunley/parrot/lib/Test/More.pm	20260	20363	
==>->errors, 0, "No errors found in HTML" );
    }

If the user does not have HTML::Lint installed, the who <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597435	597645	
==>RROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598481	598691	
==>RROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599528	599738	
==>RROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600603	600813	
==>RROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6251	6375	
==>colon');     }
sub require_type          { return shift->require('type');          }

sub require_value         { return shif <==
5	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	1511	1614	
==>parent_path = File::Spec->canonpath($parent_path);
    
    # If we are root then the above will make pa <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332565	332658	
==>}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333843	333936	
==>}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335121	335214	
==>}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336400	336493	
==>}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100569	100798	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101232	101461	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102002	102231	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102773	103002	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103438	103667	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067143	1067256	
==>2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068329	1068442	
==>2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069515	1069628	
==>2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070702	1070815	
==>2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4 <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	2068	2164	
==>return $res;
}
my $m = match($ARGV[0]);
$Data::Dumper::Sortkeys = 1;
use Data::Dumper;
print Data <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262904	263222	
==>> 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263850	264168	
==>> 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264703	265021	
==>> 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265557	265875	
==>> 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266411	266729	
==>> 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24948	25082	
==>>new($block, $kind, $target, $cond, $left, $op, $right);
      next;
    }

    #
    # Conditional Blocks:
    #
    #   if     (<valu <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800613	800701	
==>DY" => "#line 467 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed(interpreter, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801517	801605	
==>DY" => "#line 467 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed(interpreter, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802421	802509	
==>DY" => "#line 467 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed(interpreter, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803326	803414	
==>DY" => "#line 467 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed(interpreter, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367265	367457	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368056	368248	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368848	369040	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369732	369924	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => <==
5	/Users/nnunley/parrot/config/init/hints/darwin.pm	789	972	
==>"-Wno-shadow",
        libs                => $libs,
        share_ext           => '.dylib',
        load_ext            => '.bundle',
        link                => 'c++',
        ld <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492227	492502	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ], <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492987	493262	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ], <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498960	499235	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ], <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499722	499997	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ], <==
5	/Users/nnunley/parrot/config/auto/gcc.pm	4311	4447	
==>s "
                . "-Wno-shadow -falign-functions=16 ",

            # -Wsequence-point is part of -Wall
            # -Wfloat-equal m <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488126	488348	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488766	488988	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	489519	489741	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
5	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	13997	14096	
==>dy =~ s/\bOP_SIZE\b/{{^$op_size}}/mg;

        $branch   ||= $body =~ s/\bgoto\s+OFFSET\((.*?)\)/{{+ <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	10517	10615	
==>all
# add_checks() to put the (hopefully fewer) checks back in.
sub disable_implicit_checks {
    m <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094109	1094432	
==>i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1213,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 209 \"src/o <==
5	/Users/nnunley/parrot/config/inter/lex.pm	1692	1802	
==>sk')) {
        $prog = prompt($prompt, $prog ? $prog : $conf->data->get($util));
    }

    my ($stdout, $stde <==
5	/Users/nnunley/parrot/config/inter/make.pm	1566	1676	
==>sk')) {
        $prog = prompt($prompt, $prog ? $prog : $conf->data->get($util));
    }

    my ($stdout, $stde <==
5	/Users/nnunley/parrot/config/inter/yacc.pm	1706	1816	
==>sk')) {
        $prog = prompt($prompt, $prog ? $prog : $conf->data->get($util));
    }

    my ($stdout, $stde <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34369	34475	
==>BUG and print "Accomodating '=item * Foo' tolerance hack.\n";
              push @$para, delete $para->[1]{ <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	21338	21444	
==>0;
  }
  
  my $map = ($self->{'accept_codes'} || die "NO accept_codes in $self?!?");

  my $start_line = $ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467763	468053	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468634	468924	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469508	469798	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470383	470673	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_c <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	3741	3857	
==>lass = shift;

    my $self = bless {}, $class;
    $self->reset;

    return $self;
}

=item B<reset>

  $Test->rese <==
5	/Users/nnunley/parrot/tools/build/pmc2c.pl	18632	18764	
==>_file( "<", $file );

    my $class;
    eval do { local $/; <$fh> };
    die $@ if $@;

    close $fh;
    $class;
}


=head2 print_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028078	1028174	
==>{\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  nex <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028929	1029025	
==>{\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  nex <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029781	1029877	
==>{\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  nex <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030623	1030719	
==>{\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  nex <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	29594	29689	
==>outines is
exactly the same as in a scalar context, except (of course) that the
extracted substr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23097	23313	
==>t}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_J <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25536	25752	
==>t}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_J <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028250	1028466	
==>t}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_J <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029101	1029317	
==>t}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_J <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029942	1030158	
==>t}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_J <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324207	324501	
==>JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324999	325293	
==>JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325792	326086	
==>JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326582	326876	
==>JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327383	327677	
==>JUMP" => 0,
                  "NAME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909413	909736	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910310	910633	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911207	911530	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912105	912428	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" = <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	41227	41319	
==>mous subroutine which
extracts text between (balanced) specified tags. In other words,
it gen <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189795	190057	
==>er, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot:: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190736	190998	
==>er, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot:: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191675	191937	
==>er, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot:: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192615	192877	
==>er, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot:: <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1057	1143	
==>d_bytecode "languages/lua/lib/luacoroutine.pbc"
#  load_bytecode "languages/lua/lib/lu <==
5	/Users/nnunley/parrot/config/auto/msvc.pm	475	584	
==>actually Visual C++';

@args = qw(verbose);

sub runstep
{
    my ($self, $conf) = (shift, shift);

    my $ve <==
5	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	1092	1206	
==>t( '.pir', $count );
        my $lua_out_fn = Parrot::Test::per_test(
            $lua_test eq 'lua' ? '.orig_out <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344466	344559	
==>th); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345708	345801	
==>th); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346950	347043	
==>th); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348193	348286	
==>th); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16386	16491	
==>w($block, $self->forth);
      my $op    = $self->forth->text;
      my $right = Jako::Construct::Expressi <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17157	17262	
==>w($block, $self->forth);
      my $op    = $self->forth->text;
      my $right = Jako::Construct::Expressi <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17962	18067	
==>w($block, $self->forth);
      my $op    = $self->forth->text;
      my $right = Jako::Construct::Expressi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846644	846737	
==>ps/string.ops\"\n  STRING *s;\n  s = string_chr(interpreter, (UINTVAL){{\@2}});\n  {{\@1}} = s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847440	847533	
==>ps/string.ops\"\n  STRING *s;\n  s = string_chr(interpreter, (UINTVAL){{\@2}});\n  {{\@1}} = s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766610	766839	
==>ister access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767463	767692	
==>ister access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768316	768545	
==>ister access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769170	769399	
==>ister access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	314	413	
==>translation hook.
sub pre_translation() {
	# We need to emit PIR that sets up a dummy stack.
	return <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	3429	3533	
==>ATCH
			$endpos,   length($$textref)-$endpos,	# REMAINDER
			$startpos, $prelen;			# PREFIX
}

sub extrac <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712551	712639	
==>io, s);\n  if (string_str_index(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713658	713746	
==>io, s);\n  if (string_str_index(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720018	720106	
==>io, s);\n  if (string_str_index(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721218	721306	
==>io, s);\n  if (string_str_index(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) = <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	7299	7405	
==>test match of this subtree?
    if (($t->minlen() || 0) > $guarantee) {
        my $newtree = $self->add_ch <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332682	332776	
==>ing_to_cstring() need freeing\n     but this generates ugly warnings WRT discarding the const\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333960	334054	
==>ing_to_cstring() need freeing\n     but this generates ugly warnings WRT discarding the const\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335238	335332	
==>ing_to_cstring() need freeing\n     but this generates ugly warnings WRT discarding the const\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336517	336611	
==>ing_to_cstring() need freeing\n     but this generates ugly warnings WRT discarding the const\n <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	61651	61801	
==>ns (shifts, reduces, accept...)
        #    0x08         Parse Stack dump
        #    0x10         Error Recovery tracing
    );

    close $par <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24753	24873	
==>>_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    f <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25764	25884	
==>>_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    f <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26652	26772	
==>>_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    f <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27662	27782	
==>>_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    f <==
5	/Users/nnunley/parrot/tools/build/headerize.pl	498	601	
==>d1 TODO

* Tell if there are funcs without docs

* Generate docs from funcs

* Test the POD of the stuff <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353603	353698	
==>0 \"src/ops/io.ops\"\n  STRING * const s = {{\@1}};\n  if (s && string_length(interpreter, s)) { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354348	354443	
==>0 \"src/ops/io.ops\"\n  STRING * const s = {{\@1}};\n  if (s && string_length(interpreter, s)) { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359297	359392	
==>0 \"src/ops/io.ops\"\n  STRING * const s = {{\@1}};\n  if (s && string_length(interpreter, s)) { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360045	360140	
==>0 \"src/ops/io.ops\"\n  STRING * const s = {{\@1}};\n  if (s && string_length(interpreter, s)) { <==
5	/Users/nnunley/parrot/tools/dev/nm.pl	8093	8217	
==>l = !$local;
		my $show = 1;
		sub want_show {
		    my ($show, $Got, $got) = @_;
		    if (defined $Got) {
			if ($Got == $g <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32794	32899	
==>_meta($rule->{'typeinfo'}, $mv, 
			    "typeinfo for rule $rule->{'name'}");
		    $pir .= "\n" if $pir ! <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26798	26895	
==>_meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir .= "\n" if $pir ! <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28514	28611	
==>_meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir .= "\n" if $pir ! <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36496	36593	
==>_meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir .= "\n" if $pir ! <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796973	797080	
==>],
                  "BODY" => "#line 462 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed(interpr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797877	797984	
==>],
                  "BODY" => "#line 462 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed(interpr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798781	798888	
==>],
                  "BODY" => "#line 462 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed(interpr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799686	799793	
==>],
                  "BODY" => "#line 462 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed(interpr <==
5	/Users/nnunley/parrot/lib/File/Which.pm	5937	6037	
==>who haves a second would be very kind to send me a
report of how it went.

File::Spec adds the curren <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480815	481100	
==>TVAL)floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481818	482103	
==>TVAL)floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482821	483106	
==>TVAL)floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5517	5631	
==>tateno);

        $stateno=$$stack[-1][0];
        $actions=$$states[$stateno];

#DBG>	print STDERR ('-' x 40) <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5252	5361	
==>tateno);

        $stateno=$$stack[-1][0];
        $actions=$$states[$stateno];

#DBG>	print STDERR ('-' x 40) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	27720	27942	
==>G_ELEMS(signature);\n    {{+=argc + 2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	28545	28767	
==>G_ELEMS(signature);\n    {{+=argc + 2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	31229	31451	
==>G_ELEMS(signature);\n    {{+=argc + 2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320568	320789	
==>DE" => 375,
                  "ARGS" => [
                              "i",
                              "nc"
                            ],
                  "BODY" => "#line 124 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (INT <==
5	/Users/nnunley/parrot/lib/Parrot/Test.pm	12893	13005	
==>leanup and svn:ignore more simple
                my $exec_f = per_test( '_pbcexe', $test_no);  # Make cleanup an <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344589	344913	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345831	346155	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347073	347397	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348316	348640	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => " <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	6141	6241	
==>ndom-number seed (-32768 to 32767)?"
	bsr READLINE
	bsr CHOMP
	I12= S0
PROMPTRND
	} else {
		($result <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939533	939856	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940424	940747	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941316	941639	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942208	942531	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" = <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17448	17587	
==>,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 42
		ACTIONS => {
			'NAME' => 96
		}
	},
	{#State 43
		DEFAULT => -89
	}, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454730	455056	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_co <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455585	455911	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_co <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456440	456766	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_co <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457294	457620	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_co <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458149	458475	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_co <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488264	488495	
==>AME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867221	867309	
==>g_length(interpreter, {{\@2}});\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868187	868275	
==>g_length(interpreter, {{\@2}});\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869153	869241	
==>g_length(interpreter, {{\@2}});\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870120	870208	
==>g_length(interpreter, {{\@2}});\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528104	528401	
==>=> "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528985	529282	
==>=> "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529867	530164	
==>=> "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	7182	7285	
==>res
 * enable the define below
 * - the JITed function will be called first
 * - if it returns NULL, the <==
5	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	324	417	
==>head1 DESCRIPTION

Does the same a 'languages/regex/test.pl'

=cut

my $PARROT_EXE = File::Spe <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594542	594932	
==>",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 674,
                  "ARGS" => [
                              "p",
                              "kc",
                              "kc" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062550	1062650	
==>s;\n    ns = VTABLE_get_pmc_keyed(interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063419	1063519	
==>s;\n    ns = VTABLE_get_pmc_keyed(interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064289	1064389	
==>s;\n    ns = VTABLE_get_pmc_keyed(interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	789	884	
==>m C<new($name, $text, @contents)>

Returns a new group. 

C<$name> and C<$text> are required, th <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6789	6880	
==>"reg_type_short"]
${STEMP0} = concat ${STEMP1}
${ITEMP1} = ${ITEMP0} + 1
${STEMP1} = ${ITEMP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500319	500610	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501057	501348	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501796	502087	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502534	502825	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503273	503564	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base <==
5	/Users/nnunley/parrot/config/init/defaults.pm	4270	4375	
==>libparrot'.$Config{_a},
        libparrot_shared => 'libparrot.'.$Config{so},

        # does the system k <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841749	842004	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842513	842768	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843390	843645	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844268	844523	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845146	845401	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259197	259464	
==>e(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263551	263818	
==>e(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236640	236905	
==>e(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237522	237787	
==>e(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238404	238669	
==>e(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	10155	10266	
==>value";
}

sub output_param {
    my ($self, $name, $type, $reg) = @_;
    $reg = value($reg);
    return ".para <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071867	1071973	
==>{{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = {{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  INT <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074052	1074158	
==>{{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = {{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  INT <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076237	1076343	
==>{{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = {{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  INT <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078423	1078529	
==>{{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = {{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  INT <==
5	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5190	5306	
==>S2C $_ --dynamic $oplib.ops")
	          or die "ops2c code generation failed ($?)\n";
		}
	}
}

sub compile {
    my <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332599	332693	
==>ss_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all results from string_to_cstri <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333877	333971	
==>ss_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all results from string_to_cstri <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335155	335249	
==>ss_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all results from string_to_cstri <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336434	336528	
==>ss_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all results from string_to_cstri <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54906	55196	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55666	55956	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56427	56717	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57189	57479	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57950	58240	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	317777	317889	
==>\n    internal_exception(1, \"Overflow exception for conv_i2_ovf\");\n  }\n  {{+=2}};\n",
                  "LABE <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13776	13874	
==>mulate
the number of lines, C<$out_name> is the name of the output file we are
generating.

=cut

s <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16164	16262	
==>mulate
the number of lines, C<$out_name> is the name of the output file we are
generating.

=cut

s <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29559	29657	
==>mulate
the number of lines, C<$out_name> is the name of the output file we are
generating.

=cut

s <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30201	30299	
==>mulate
the number of lines, C<$out_name> is the name of the output file we are
generating.

=cut

s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332752	333015	
==>RT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334030	334293	
==>RT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335308	335571	
==>RT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336587	336850	
==>RT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
5	/Users/nnunley/parrot/tools/build/vtable_extend.pl	791	886	
==>2005, The Perl Foundation. 

=head1 NAME

src/extend.c - Parrot extension interface

=head1 DESC <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947182	947420	
==>Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948084	948322	
==>Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957631	957869	
==>Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958536	958774	
==>Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
5	/Users/nnunley/parrot/lib/Class/Struct.pm	13228	13323	
==>sh reference
as the sole argument, this causes an assignment of the whole hash element.
The obje <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610629	610906	
==>"NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611531	611808	
==>"NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612434	612711	
==>"NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613340	613617	
==>"NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	8223	8332	
==>'s source is filename $_[0]\n";
    {
      local *PODSOURCE;
      open(PODSOURCE, "<$_[0]") || Carp::croak " <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5876	5983	
==>ut_getstart {
    my ($self, $reg, $group) = @_;
    $reg = value($reg);
    return qq!$reg = <rx_match>{"$g <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712555	712643	
==>s);\n  if (string_str_index(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713662	713750	
==>s);\n  if (string_str_index(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720022	720110	
==>s);\n  if (string_str_index(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721222	721310	
==>s);\n  if (string_str_index(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 <==
5	/Users/nnunley/parrot/tools/build/ops2c.pl	3740	3845	
==>ag ? 'PARROT_DYNEXT_EXPORT' : 'PARROT_API';

my %hashed_ops;

#
# Read the input files:
#

my $ops;
if ($c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374000	374089	
==>DY" => "#line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374883	374972	
==>DY" => "#line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375766	375855	
==>DY" => "#line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376650	376739	
==>DY" => "#line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\ <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	21556	21718	
==>oto next
#        rfail: if $matchcount == 0 goto lastback
#               $matchcount--
#               goto R.back
#         back: R or rfail
#               $ma <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1849	1958	
==>f->ident ? $self->ident->value : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $s <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2454	2563	
==>f->ident ? $self->ident->value : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $s <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	2012	2121	
==>f->ident ? $self->ident->value : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $s <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3128	3237	
==>f->ident ? $self->ident->value : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $s <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11468	11718	
==>'result' => $result2,
                            'arg1'   => $result,
                            'arg2'   => $key->[0],
                        );
                        $result = $result2;
                    }
                    push @opco <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9696	9922	
==>'result' => $result2,
                        'arg1'   => $result,
                        'arg2'   => $key->[0],
                    );
                    $result = $result2;
                }
                push @opco <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048378	1048603	
==>global(interpreter, NULL, {{\@2}}, next);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049302	1049527	
==>global(interpreter, NULL, {{\@2}}, next);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8607	8785	
==>'result' => $result2,
                'arg1'   => $result,
                'arg2'   => $key->[0],
            );
            $result = $result2;
        }
        push @opco <==
5	/Users/nnunley/parrot/config/auto/cgoto.pm	533	645	
==>se);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_ <==
5	/Users/nnunley/parrot/config/auto/headers.pm	468	580	
==>se);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_ <==
5	/Users/nnunley/parrot/config/auto/jit.pm	619	731	
==>se);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_ <==
5	/Users/nnunley/parrot/config/gen/cpu.pm	531	643	
==>se);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_ <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	184	283	
==>head1 SYNOPSIS

    use Parrot::Docs::Item;

=head1 DESCRIPTION

A documentation I<item> is one or m <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655862	656179	
==>,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656785	657102	
==>,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657709	658026	
==>,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658627	658944	
==>,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3512	3616	
==>sub post_branch($) {
	# Nothing to do here.
	return "";
}

# Pre and post load operation hooks.
sub pre_l <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117190	117513	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	119521	119844	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120376	120699	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base <==
5	/Users/nnunley/parrot/lib/Parrot/Test.pm	7862	7978	
==>t" if $out;
    open  OLDERR, ">&STDERR" or die "Can't save     stderr" if $err;

    open  STDOUT, ">$out"    or die <==
5	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7912	8023	
==>t" if $out;
    open OLDERR, ">&STDERR" or die "Can't save     stderr" if $err;

    open STDOUT, ">$out" or die <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22286	22403	
==>r') {
        $self->whine(
          $para->[1]{'start_line'},
          "=end $content without matching =begin.  (St <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83640	83727	
==>src/ops/core.ops\"\n  PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interpreter,\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84546	84633	
==>src/ops/core.ops\"\n  PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interpreter,\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85451	85538	
==>src/ops/core.ops\"\n  PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interpreter,\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86358	86445	
==>src/ops/core.ops\"\n  PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interpreter,\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302155	302462	
==>@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303031	303338	
==>@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303907	304214	
==>@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
5	/Users/nnunley/parrot/config/gen/icu.pm	4341	4443	
==>et(testheaders => undef); # Clean up.
    $conf->data->set(testheader  => undef);
    eval { cc_build() <==
5	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	374	474	
==>O::Directory;

use strict;
use warnings;

use base qw( Parrot::IO::Path );

use DirHandle;
use File:: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344531	344788	
==>} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345773	346030	
==>} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347015	347272	
==>} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348258	348515	
==>} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32539	32651	
==>ction must use one of \${STACK0} or \${STOREREG} in rule " .
				"$rule->{'name'}\n";
		}

        # Insert typei <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262650	263004	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263596	263950	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264449	264803	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265303	265657	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266157	266511	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314398	314707	
==>otgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 367,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925529	925824	
==>ringinfo",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926998	927293	
==>ringinfo",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928468	928763	
==>ringinfo",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929938	930233	
==>ringinfo",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
5	/Users/nnunley/parrot/config/gen/makefiles.pm	4965	5110	
==>akefiles/root.in' => 'languages/lua/Makefile',
        commentType                   => '#',
        replace_slashes               => 1,
        c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050213	1050311	
==>(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(interpre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051247	1051345	
==>(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(interpre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052281	1052379	
==>(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(interpre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053316	1053414	
==>(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(interpre <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	23786	23911	
==>$t = pop @stack;
	    unshift @args, $t->[1];
	}
	for (my $i = 0; $i < $nf; $i++) {
	    my $arg = pop @stack;
	    unshift @a <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Transcode.pm	502	618	
==>UG and print "OK, loaded $class.\n";
    @ISA = ($class);
    last;
  }
}

sub _blorp { return; } # just to avoid any <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	3020	3125	
==>'block' });
    $handler->start_element({ Name => 'block', Attributes => { kind => 'then' } });
  }

  $ha <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3784	3889	
==>'block' });
    $handler->start_element({ Name => 'block', Attributes => { kind => 'then' } });
  }

  $ha <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1554	1643	
==>ParserEndToken->new( I<tagname> )
>>

=head1 SEE ALSO

L<Pod::Simple::PullParserToken>, L< <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018078	1018187	
==>);\n  {{\@1}} = string_from_cstring(interpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019003	1019112	
==>);\n  {{\@1}} = string_from_cstring(interpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019933	1020042	
==>);\n  {{\@1}} = string_from_cstring(interpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020864	1020973	
==>);\n  {{\@1}} = string_from_cstring(interpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" <==
5	/Users/nnunley/parrot/lib/File/Which.pm	3771	3864	
==>'t implemented in the shell.

C<File::Which> searches the directories of the user's C<PATH> (a <==
5	/Users/nnunley/parrot/lib/Parrot/Config.pm	6200	6341	
==>'define',
             'i_sysstatfs' => undef,
             'i_sysstatvfs' => 'define',
             'i_systime' => 'define',
             'i_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766542	766644	
==>} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767395	767497	
==>} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768248	768350	
==>} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769102	769204	
==>} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089379	1089800	
==>S" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1208,
                  "ARGS" => [
                              "p",
                              "p",
                              "kc"
                            ],
                  "BODY" => " <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7567	7669	
==>e and post store operation hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5685	5787	
==>e and post store operation hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4527	4629	
==>e and post store operation hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40797	40896	
==>TABLE_$meth(interpreter, attr$arg)";
    my $ret = gen_ret($method, $body);
    my $decl = $self->de <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6339	6449	
==>b require_value         { return shift->require('ident', 'literal'); }


#
# skip()
#
# Skips the token type sp <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071812	1071916	
==>rimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073997	1074101	
==>rimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076182	1076286	
==>rimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078368	1078472	
==>rimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = { <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1854	1963	
==>ent ? $self->ident->value : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self-> <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2459	2568	
==>ent ? $self->ident->value : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self-> <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	2017	2126	
==>ent ? $self->ident->value : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self-> <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3133	3242	
==>ent ? $self->ident->value : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self-> <==
5	/Users/nnunley/parrot/lib/Test/More.pm	16243	16339	
==>k, rather
than just vomiting if its load fails.  For such purposes we have
C<use_ok> and C<requir <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	13640	13757	
==>not find expected opening bracket at "} .
			     substr($$textref,pos($$textref),20) .
			     q{..."},
		         po <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	622926	623029	
==>*dest_pc;\n    void **dest_pred;\n    parrot_context_t *caller_ctx, *ctx;\n    parrot_cont_t cc;\n    in <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1453	1541	
==>= ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = "$register_num"
${ <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1980	2068	
==>= ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = "$register_num"
${ <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3163	3251	
==>= ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = "$register_num"
${ <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	11289	11428	
==>1
		DEFAULT => -2
	},
	{#State 2
		ACTIONS => {
			'NAME' => 4,
			'REPEAT' => 5,
			'FOR' => 6,
			"(" => 8,
			'IF' => 10,
			'F <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83690	83777	
==>TABLE_get_pmc_keyed_int(interpreter,\n      interpreter->iglobals, IGLOBALS_COMPREG_HASH <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84596	84683	
==>TABLE_get_pmc_keyed_int(interpreter,\n      interpreter->iglobals, IGLOBALS_COMPREG_HASH <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85501	85588	
==>TABLE_get_pmc_keyed_int(interpreter,\n      interpreter->iglobals, IGLOBALS_COMPREG_HASH <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86408	86495	
==>TABLE_get_pmc_keyed_int(interpreter,\n      interpreter->iglobals, IGLOBALS_COMPREG_HASH <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27453	27560	
==>pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for r <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29920	30027	
==>pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for r <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33338	33445	
==>pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for r <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34592	34699	
==>pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for r <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37002	37109	
==>pir .= "### translation\n";
		if ($rule->{'pir'}) {
			$pir .= sub_meta($rule->{'pir'}, $mv, 
				"pir for r <==
5	/Users/nnunley/parrot/lib/Parrot/Test.pm	15905	16027	
==>->diag("'$cmd' failed with exit code $exit_code")
                  if $exit_code and not $pass;

            unless($ENV{P <==
5	/Users/nnunley/parrot/lib/Parrot/Test.pm	18456	18578	
==>->diag("'$cmd' failed with exit code $exit_code")
                  if $exit_code and not $pass;

            unless($ENV{P <==
5	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	4066	4188	
==>->diag("'$cmd' failed with exit code $exit_code")
                  if $exit_code and not $pass;

            unless($ENV{P <==
5	/Users/nnunley/parrot/lib/Parrot/Test.pm	25498	25602	
==>->diag("'$cmd' failed with exit code $exit_code") if $exit_code and not $pass;

            unless($ENV{P <==
5	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	1718	1819	
==>->diag("'$cmd' failed with exit code $exit_code")
    if $exit_code and not $pass;

    unless ($ENV{P <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610552	610725	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611454	611627	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612357	612530	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613263	613436	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1435	1532	
==>ocs::Section::Docs->new,
        Parrot::Docs::Section::Examples->new,
        Parrot::Docs::Secti <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2820	2913	
==>e file',
	'MAINTAINER' => 'Maintainer info',
	'Makefile' => 'Makefile',
	'MANIFEST' => 'Manife <==
5	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	9283	9402	
==>xists $dir->{pragma} ) {
            print {$FH}
                "  .param $dir->{result}->{type} $dir->{result}->{sym <==
5	/Users/nnunley/parrot/config/init/hints/hpux.pm	240	355	
==>et('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }

    $conf->data->set(libs => $libs <==
5	/Users/nnunley/parrot/config/init/hints/irix.pm	537	651	
==>et('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }
    $conf->data->set(libs => $libs <==
5	/Users/nnunley/parrot/config/init/hints/netbsd.pm	330	444	
==>et('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }
    $conf->data->set(libs => $libs <==
5	/Users/nnunley/parrot/config/init/hints/openbsd.pm	422	530	
==>et('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
	}
	$conf->data->set(libs => $libs <==
5	/Users/nnunley/parrot/lib/Class/Struct.pm	19085	19180	
==>amed to C<Class::Struct> and modified by Jim Miner, 1997-04-02.

    members() function removed. <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11545	11655	
==>rule_fail {
    my ($self, $name) = @_;
    return ($self->output_match_failed(),
            ".return (<rx_mat <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7846	7944	
==>g)"
i%=0
if i% then print "Should not happen (int)"
i%=54
if i% then print "This is true" else prin <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14833	14931	
==>g)"
i%=0
if i% then print "Should not happen (int)"
i%=54
if i% then print "This is true" else prin <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824541	824634	
==>_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_str(entry->entry);\n  {{+=3}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825612	825705	
==>_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_str(entry->entry);\n  {{+=3}} <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	2224	2348	
==>>is('else');          }
sub is_eof           { return shift->is('eof');           }
sub is_exfix_arith   { return shift->is(' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712521	712610	
==>});\n  PIO_putps(interpreter, io, s);\n  if (string_str_index(interpreter, s,\n\tconst_str <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713628	713717	
==>});\n  PIO_putps(interpreter, io, s);\n  if (string_str_index(interpreter, s,\n\tconst_str <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719988	720077	
==>});\n  PIO_putps(interpreter, io, s);\n  if (string_str_index(interpreter, s,\n\tconst_str <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721188	721277	
==>});\n  PIO_putps(interpreter, io, s);\n  if (string_str_index(interpreter, s,\n\tconst_str <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4471	4596	
==>XOR   EQV   IMP   a & ! b"
for i = 0 to 1
for j = 0 to 1
print i; j;
if i and j then a$="True  " else a$="False "
if i or  j t <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	674047	674333	
==>" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 755,
                  "ARGS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843218	843425	
==>\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844096	844303	
==>\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844974	845181	
==>\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845853	846060	
==>\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062647	1062922	
==>L;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_names <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063516	1063791	
==>L;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_names <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064386	1064661	
==>L;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_names <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065259	1065534	
==>L;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_names <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	239221	239310	
==>DY" => "#line 611 \"src/ops/cmp.ops\"\n  {{\@1}} = mmd_dispatch_i_pp(interpreter, {{\@2}}, <==
5	/Users/nnunley/parrot/lib/Parrot/Test.pm	15907	16059	
==>diag("'$cmd' failed with exit code $exit_code")
                  if $exit_code and not $pass;

            unless($ENV{POSTMORTEM}) {
                un <==
5	/Users/nnunley/parrot/lib/Parrot/Test.pm	18458	18610	
==>diag("'$cmd' failed with exit code $exit_code")
                  if $exit_code and not $pass;

            unless($ENV{POSTMORTEM}) {
                un <==
5	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	4068	4220	
==>diag("'$cmd' failed with exit code $exit_code")
                  if $exit_code and not $pass;

            unless($ENV{POSTMORTEM}) {
                un <==
5	/Users/nnunley/parrot/lib/Parrot/Test.pm	25500	25634	
==>diag("'$cmd' failed with exit code $exit_code") if $exit_code and not $pass;

            unless($ENV{POSTMORTEM}) {
                un <==
5	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	1720	1843	
==>diag("'$cmd' failed with exit code $exit_code")
    if $exit_code and not $pass;

    unless ($ENV{POSTMORTEM}) {
        un <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762626	762891	
==>> 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763478	763743	
==>> 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764331	764596	
==>> 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765184	765449	
==>> 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
5	/Users/nnunley/parrot/tools/build/vtable_extend.pl	2757	2856	
==>ritten, so it's not
   like it's an onerous requirement.

*/

#include "parrot/parrot.h"
#include "p <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2688	2785	
==>t, all OK in sequence
PRINT "1 in module-level code"
GOSUB Sub1
PRINT "ERR this line in main routi <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16655	16752	
==>t, all OK in sequence
PRINT "1 in module-level code"
GOSUB Sub1
PRINT "ERR this line in main routi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558015	558103	
==>|= SUB_FLAG_TAILCALL;\n  interpreter->current_object = object;\n  interpreter->current_me <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559399	559487	
==>|= SUB_FLAG_TAILCALL;\n  interpreter->current_object = object;\n  interpreter->current_me <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560771	560859	
==>|= SUB_FLAG_TAILCALL;\n  interpreter->current_object = object;\n  interpreter->current_me <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389666	389809	
==>ic"
                            ],
                  "BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390798	390941	
==>ic"
                            ],
                  "BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391930	392073	
==>ic"
                            ],
                  "BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393063	393206	
==>ic"
                            ],
                  "BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9157	9271	
==>) = @_;

    $cc_args   = '' unless defined $cc_args;
    $link_args = '' unless defined $link_args;

    my $verbo <==
5	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	403	525	
==>, not file");
        }
        # add to the @*INC, but do not allow duplicates
        @*INC.unshift($path) unless $path e <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777083	777191	
==>set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777992	778100	
==>set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778901	779009	
==>set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779811	779919	
==>set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27832	27929	
==>_DYNEXT_EXPORT ';
    }
    $hout .= <<"EOC";
void Parrot_${classname}_class_init(Parrot_Interp, i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340223	340312	
==>"src/ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+= <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341222	341311	
==>"src/ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+= <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342221	342310	
==>"src/ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+= <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343221	343310	
==>"src/ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+= <==
5	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	404	514	
==>ode, $output, $desc) = @_;
  
    my $count = $self->{builder}->current_test + 1;

    my $lang_f    = Parrot:: <==
5	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	442	552	
==>ode, $output, $desc) = @_;
  
    my $count = $self->{builder}->current_test + 1;

    my $lang_f    = Parrot:: <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8526	8632	
==>t is up to the SRM to do the store.
	# Otherwise, there's nothing to do here.
	if ($dest_reg) {
		$pir .= < <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6346	6452	
==>t is up to the SRM to do the store.
	# Otherwise, there's nothing to do here.
	if ($dest_reg) {
		$pir .= < <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5261	5367	
==>t is up to the SRM to do the store.
	# Otherwise, there's nothing to do here.
	if ($dest_reg) {
		$pir .= < <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	35658	35774	
==>EOC
}
sub IMPORT_FROM {
    my ($n, $c, $cmt) = @_;
    print <<EOC;
	\t $cmt XXX
EOC
    # push @stack, [-1, 'time', <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940311	940402	
==>BODY" => "#line 486 \"src/ops/string.ops\"\n    {{\@1}} = string_split(interpreter, {{\@2}}, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941203	941294	
==>BODY" => "#line 486 \"src/ops/string.ops\"\n    {{\@1}} = string_split(interpreter, {{\@2}}, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942095	942186	
==>BODY" => "#line 486 \"src/ops/string.ops\"\n    {{\@1}} = string_split(interpreter, {{\@2}}, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942988	943079	
==>BODY" => "#line 486 \"src/ops/string.ops\"\n    {{\@1}} = string_split(interpreter, {{\@2}}, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836750	836924	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837482	837656	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838216	838390	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838948	839122	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49071	49185	
==>);
		}
		elsif ($grammar =~ m/\G\s*<[^m]/gc)
		{
			pos($grammar)-=2;

			if ($grammar =~ m/$OPMK/gco)
			{
				_pa <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1233	1344	
==>K!
  }, $class;

  $block->push_content($self);

  return $self;
}


#
# ACCESSORS:
#

sub value { return shift- <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404621	404709	
==>5 \"src/ops/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405533	405621	
==>5 \"src/ops/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406445	406533	
==>5 \"src/ops/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407358	407446	
==>5 \"src/ops/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1092892	1093167	
==>});\n    {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093696	1093969	
==>});\n  {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094499	1094772	
==>});\n  {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665848	666046	
==>" => [
                              "p",
                              "kic"
                            ],
                  "BODY" => "#line 359 \"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delete_keye <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	6464	6576	
==>print_head {
    my ($definitions) = @_;
    print NCI << "HEAD";
/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FI <==
5	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	6921	7050	
==>ve, $ignore))
    {
        next unless $file->has_suffix($suffix);
        push @files, $file;
    }
    
    return @files;
}

= <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2371	2470	
==>ot::OpTrans>) and value. C<$op> is an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($se <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3463	3562	
==>ot::OpTrans>) and value. C<$op> is an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($se <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3607	3706	
==>ot::OpTrans>) and value. C<$op> is an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($se <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3262	3361	
==>ot::OpTrans>) and value. C<$op> is an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($se <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	2704	2824	
==>oto $label");
  } else {
    if ($cond eq 'unless') {
      $op = $compiler->invert_relop($op);
      $cond = 'if';
    } <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2392	2483	
==>d::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke. <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1662	1753	
==>d::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke. <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2829	2920	
==>d::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke. <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1949	2040	
==>d::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke. <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926291	926419	
==>eak;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927761	927889	
==>eak;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929231	929359	
==>eak;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930702	930830	
==>eak;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FL <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	9866	9963	
==>end W [whatever] thatelementname", we say that W maps
    #  to whatever $this->{accept_codes}{tha <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584735	584990	
==>\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585810	586065	
==>\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598225	598480	
==>\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599272	599527	
==>\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600347	600602	
==>\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067262	1067586	
==>",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gc <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068448	1068772	
==>",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gc <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069634	1069958	
==>",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gc <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070821	1071145	
==>",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gc <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105433	1105756	
==>",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "g <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3924	4027	
==>ck
  my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless defined $self an <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7833	7936	
==>ck
  my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless defined $self an <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8480	8583	
==>ck
  my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless defined $self an <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9148	9251	
==>ck
  my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless defined $self an <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9817	9920	
==>ck
  my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless defined $self an <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	803	891	
==>ERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($right <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	641	729	
==>ERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($right <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	794	882	
==>ERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($right <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	683	771	
==>ERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($right <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	632	720	
==>ERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($right <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858699	858965	
==>@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859703	859969	
==>@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860707	860973	
==>@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861712	861978	
==>@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	5443	5537	
==>message

    Digest is 6df23dc03f9b54cc38a0fc1483df6e21

provided that the implementation is wo <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663468	663706	
==>ne",
                  "CODE" => 741,
                  "ARGS" => [
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 354 \"src/ops/pmc.ops\"\n  {{\@1}}-> <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43694	43915	
==>rk(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44338	44559	
==>rk(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44979	45200	
==>rk(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45621	45842	
==>rk(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	2443	2563	
==>arrot::Pmc2c
    if ($special_class_name{$classname}) {
        $nclass .= "::" . $classname;
    }
    else {
        $n <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11125	11245	
==>eg;
        # Yes, stipulate the list without a range, so that this can work right on
        #  all charsets that this m <==
5	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4474	4592	
==>eg;
       # Yes, stipulate the list without a range, so that this can work right on
       #  all charsets that this m <==
5	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1970	2082	
==>eg;
    # Yes, stipulate the list without a range, so that this can work right on
    #  all charsets that this m <==
5	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2073	2185	
==>eg;
    # Yes, stipulate the list without a range, so that this can work right on
    #  all charsets that this m <==
5	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	10222	10323	
==>$filename)}) {
            error("MANIFEST", $line, "$_: case-insensitive collision with " . $files_in <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	15390	15547	
==>ullet, item-number, item-text,
  #                   Document,
  #                   Data, Para, Verbatim
  #                   B, C, longdirname (TODO -- wha <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044650	1044758	
==>,
                  "BODY" => "#line 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interpreter, {{\@1}}, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045544	1045652	
==>,
                  "BODY" => "#line 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interpreter, {{\@1}}, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046438	1046546	
==>,
                  "BODY" => "#line 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interpreter, {{\@1}}, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047333	1047441	
==>,
                  "BODY" => "#line 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interpreter, {{\@1}}, <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30845	30972	
==>ullet.
          DEBUG and print " Item is of type ", $para->[0], " under $over_type\n";
          
          if($item_type eq ' <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34133	34260	
==>ullet.
          DEBUG and print " Item is of type ", $para->[0], " under $over_type\n";
          
          if($item_type eq ' <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1922	2011	
==>_sym = $block->find_symbol($left->value);
    $self->SYNTAX_ERROR("Expression involves unk <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1880	1969	
==>_sym = $block->find_symbol($left->value);
    $self->SYNTAX_ERROR("Expression involves unk <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1802	1891	
==>_sym = $block->find_symbol($left->value);
    $self->SYNTAX_ERROR("Expression involves unk <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766593	766743	
==>"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767446	767596	
==>"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768299	768449	
==>"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769153	769303	
==>"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0, <==
5	/Users/nnunley/parrot/lib/Parrot/Test.pm	10371	10492	
==>c_output_like    => 'like',
        pasm_output_is     => 'is_eq',
        pasm_output_isnt   => 'isnt_eq',
        pasm_o <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	267998	268283	
==>( {
                  "JUMP" => 0,
                  "NAME" => "isfalse",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072388	1072497	
==>k = ykp1;\n  }\n  {{\@1}} = r1;\n  {{\@2}} = (INTVAL)( xk * pow( -1, n ) );\n  {{\@3}} = (INTVAL)( yk * pow( - <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074573	1074682	
==>k = ykp1;\n  }\n  {{\@1}} = r1;\n  {{\@2}} = (INTVAL)( xk * pow( -1, n ) );\n  {{\@3}} = (INTVAL)( yk * pow( - <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076758	1076867	
==>k = ykp1;\n  }\n  {{\@1}} = r1;\n  {{\@2}} = (INTVAL)( xk * pow( -1, n ) );\n  {{\@3}} = (INTVAL)( yk * pow( - <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078944	1079053	
==>k = ykp1;\n  }\n  {{\@1}} = r1;\n  {{\@2}} = (INTVAL)( xk * pow( -1, n ) );\n  {{\@3}} = (INTVAL)( yk * pow( - <==
5	/Users/nnunley/parrot/config/init/hints/darwin.pm	953	1095	
==>=> 'c++',
        ld                  => 'c++',
        ld_share_flags      => '-dynamiclib -undefined suppress',
        ld_load_flags       = <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31938	32059	
==>hod->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33515	33636	
==>hod->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38532	38653	
==>hod->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40572	40693	
==>hod->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080559	1080686	
==>\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  "L <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081624	1081751	
==>\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  "L <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082689	1082816	
==>\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  "L <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083755	1083882	
==>\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  "L <==
5	/Users/nnunley/parrot/lib/Test/More.pm	16855	16956	
==>bers can be checked like so:

   # Just like "use Some::Module 1.02"
   BEGIN { use_ok('Some::Module', <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35241	35357	
==>}, $method, 0);
    my $ret = "";
    if ($method->{type} ne 'void') {
        # This cheats, assuming that all retur <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591479	591572	
==>^+4}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592689	592782	
==>^+4}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593899	593992	
==>^+4}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595110	595203	
==>^+4}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939739	940016	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940630	940907	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941522	941799	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942414	942691	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	6358	6464	
==>_path.\n";
    }

    return @rel_paths;
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::Docs::Section> <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260007	260124	
==>BODY" => "#line 793 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} == {{\@3}};\n    {{+=4}};\n",
                  "LABELS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260859	260976	
==>BODY" => "#line 793 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} == {{\@3}};\n    {{+=4}};\n",
                  "LABELS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261711	261828	
==>BODY" => "#line 793 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} == {{\@3}};\n    {{+=4}};\n",
                  "LABELS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262564	262681	
==>BODY" => "#line 793 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} == {{\@3}};\n    {{+=4}};\n",
                  "LABELS <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	39584	39696	
==>ecated syntax.
        # (Maybe generate a warning eventually?)
        # Note that it deliberately won't work on <==
5	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	14607	14717	
==>ody =~ s/\bHALT\(\)/{{=0}}/mg;

        $branch ||= $short_name =~ /runinterp/;
        $next   ||= $short_name <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066986	1067086	
==>AL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068172	1068272	
==>AL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069358	1069458	
==>AL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070545	1070645	
==>AL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980700	980960	
==>"i",
                              "ic",
                              "sc",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986458	986625	
==>c",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_ccla <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987589	987756	
==>c",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_ccla <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988720	988887	
==>c",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_ccla <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989852	990019	
==>c",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_ccla <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	4205	4343	
==>en;
    
    unless ( $next->type eq 'text' )
    {
        $self->unget_token($next);
        return;
    }
    
    my $text = $next->tex <==
5	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	3167	3272	
==>generated files are left in the t/* directories.
        # Let 'make clean' and 'svn:ignore' take care of <==
5	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2759	2863	
==>generated files are left in the t/* directories.
        # Let 'make clean' and 'svn:ignore' take care of <==
5	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	2776	2880	
==>generated files are left in the t/* directories.
        # Let 'make clean' and 'svn:ignore' take care of <==
5	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	3325	3429	
==>generated files are left in the t/* directories.
        # Let 'make clean' and 'svn:ignore' take care of <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	36611	36706	
==>e
quoting (i.e. q{string}, qq{string}, etc) can be specified by including the
letter 'q' as a de <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586649	586743	
==>\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587835	587929	
==>\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589021	589115	
==>\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590208	590302	
==>\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763181	763331	
==>"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764034	764184	
==>"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764887	765037	
==>"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765741	765891	
==>"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0, <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32242	32373	
==>alue'"
            );
            push @$para, $para->[1]{'~orig_content'};
              # restore the bullet, blocking the assimil <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	10179	10280	
==>ce(5)
print a


' Expect -7
t%=-7
print t%

' Expect 9
print (2+3*5-(6+abs(0-3)))+1


' Expect a Hello <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579463	579553	
==>\"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580768	580858	
==>\"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582073	582163	
==>\"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583379	583469	
==>\"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516675	516898	
==>\"src/ops/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517414	517637	
==>\"src/ops/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518152	518375	
==>\"src/ops/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518891	519114	
==>\"src/ops/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
5	/Users/nnunley/parrot/lib/Test/More.pm	36900	36993	
==>ture testing.

L<Test::Unit> is XUnit style testing.

L<Test::Inline> shows the idea of embedd <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	11136	11240	
==>es;

    delete $this->{'accept_codes'}{$new_code};

    DEBUG > 2 and print "OK, won't accept the code $ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	559	651	
==>AL::isa($block, 'Jako::Construct::Block');
  confess("Dest (" . ref($dest) . ") is not Identi <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	550	642	
==>AL::isa($block, 'Jako::Construct::Block');
  confess("Dest (" . ref($dest) . ") is not Identi <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	439	531	
==>AL::isa($block, 'Jako::Construct::Block');
  confess("Dest (" . ref($dest) . ") is not Identi <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4668	4757	
==>, $ot2, EQ_$eqnum
	branch EQ_${eqnum}_false
EQ_$eqnum: set $result, 1.0
EQ_${eqnum}_false: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500322	500637	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501060	501375	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501799	502114	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502537	502852	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503276	503591	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  " <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	866	974	
==>b { 0; }

sub runtime_init {
	push @{$code{$seg}->{code}}, <<INIT;
	#
	# Program Begins Here
	# I must not fe <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467616	467711	
==>};\n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"D <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468487	468582	
==>};\n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"D <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477039	477134	
==>};\n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"D <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477935	478030	
==>};\n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"D <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766038	766302	
==>> 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766890	767154	
==>> 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767743	768007	
==>> 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768596	768860	
==>> 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	16517	16621	
==>loadreg' }, "pre_load for typed exception handler");
	$pir .= "### end pre_load (typed eh)\n";
    $pir . <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	5242	5402	
==>'string'],
                'headers' => ['string_funcs']
            ),
            $self->c_item(
                'String encodings', 
                'contents <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067057	1067164	
==>3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = te <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068243	1068350	
==>3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = te <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069429	1069536	
==>3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = te <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070616	1070723	
==>3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = te <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073041	1073376	
==>0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_mat <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075226	1075561	
==>0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_mat <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077411	1077746	
==>0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_mat <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	1260	1379	
==>ee, $ctx) = @_;
    my $atom = $tree->atom;

    my $R;
    if (UNIVERSAL::can($atom, 'rx_val')) {
        $R = $self->c <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	334	441	
==>b;

use Carp;

use base qw(Jako::Construct::Block);

sub kind { return 'sub'; }

sub new
{
  my $class = shi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	626310	626399	
==>fy {{\@1}} didn't change */\n    (void) ((interface_f)lru->f.real_function)(interpreter, s <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5612	5701	
==>::C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTr <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4617	4706	
==>::C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTr <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4594	4683	
==>::C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTr <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3978	4067	
==>::C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTr <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	6479	6574	
==>], "ge") },
	'<>' => sub { &{$opsubs{"="}}(@_[0..2], "ne") },
	'<' => sub { &{$opsubs{"="}}(@_[0 <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19365	19460	
==>ring
("").

=item $author_name   = $parser->get_author

This works like get_title except that it <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2770	2862	
==>AL_ERROR("No type for left!")  unless defined $left_type;
  $self->INTERNAL_ERROR("No type fo <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2536	2628	
==>AL_ERROR("No type for left!")  unless defined $left_type;
  $self->INTERNAL_ERROR("No type fo <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2458	2550	
==>AL_ERROR("No type for left!")  unless defined $left_type;
  $self->INTERNAL_ERROR("No type fo <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	35950	36045	
==>er
having successfully completed all its tests, it will still be
considered a failure and will e <==
5	/Users/nnunley/parrot/lib/Test/More.pm	34021	34116	
==>er
having successfully completed all its tests, it will still be
considered a failure and will e <==
5	/Users/nnunley/parrot/lib/Test/Simple.pm	2816	2911	
==>er
having successfully completed all its tests, it will still be
considered a failure and will e <==
5	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2381	2464	
==>ALSO

F<examples/benchmarks/mops.pasm>,
F<examples/mops/mops.c>,
F<examples/mops/mop <==
5	/Users/nnunley/parrot/examples/mops/mops.pl	2381	2464	
==>ALSO

F<examples/benchmarks/mops.pasm>,
F<examples/mops/mops.c>,
F<examples/mops/mop <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808584	808816	
==>=> [
                              "n",
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 502 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->g <==
5	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	12653	12779	
==>1 == 0 goto done
    unless iter goto done
    
    $P1 = shift iter
    push result, $P1

    dec op1
    goto pos_loop

done: <==
5	/Users/nnunley/parrot/tools/dev/run_indent.pl	2382	2496	
==>he ones we know aren't used in this file.
    open(F, "<$file") || die "Can't read $file: $!\n";
    {
        loca <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	788	882	
==>" . ref($type) . ") is not!"   if defined $type and not UNIVERSAL::isa($type, qw(Jako::Construc <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	671	762	
==>". ref($type) . ") is not!" if defined $type and not UNIVERSAL::isa($type, qw(Jako::Construc <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072845	1072971	
==>-{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075030	1075156	
==>-{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077215	1077341	
==>-{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079401	1079527	
==>-{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" = <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2938	3062	
==>shift->{FILE};     }
sub line  { return shift->{LINE};     }


#
# compile()
#

sub compile
{
  my $self     = shift; # Requi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018130	1018402	
==>ultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019055	1019327	
==>ultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019985	1020257	
==>ultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020916	1021188	
==>ultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
5	/Users/nnunley/parrot/lib/Class/Struct.pm	18418	18517	
==>-11-08, v0.59.

    Added the ability for compile time class creation.

Modified by Damian Conway, 1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360625	360837	
==>,
                  "CODE" => 422,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 258 \"src/ops/io.ops\"\n  PMC * const p = {{\@1} <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32799	32905	
==>($rule->{'typeinfo'}, $mv, 
			    "typeinfo for rule $rule->{'name'}");
		    $pir .= "\n" if $pir !~ /\n$ <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26803	26901	
==>($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir .= "\n" if $pir !~ /\n$ <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28519	28617	
==>($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir .= "\n" if $pir !~ /\n$ <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36501	36599	
==>($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir .= "\n" if $pir !~ /\n$ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500560	500825	
==>NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501298	501563	
==>NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502037	502302	
==>NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502775	503040	
==>NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
5	/Users/nnunley/parrot/languages/perms.pl	608	733	
==>i = $it->()) {
  print $i."\n"
    if length($i) >= 2;
}

__END__
    for my $i (@{ $things }) { 
      $prefix
      print jo <==
5	/Users/nnunley/parrot/config/init/hints/hpux.pm	237	352	
==>->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }

    $conf->data->set(libs => $l <==
5	/Users/nnunley/parrot/config/init/hints/irix.pm	534	648	
==>->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }
    $conf->data->set(libs => $l <==
5	/Users/nnunley/parrot/config/init/hints/netbsd.pm	327	441	
==>->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }
    $conf->data->set(libs => $l <==
5	/Users/nnunley/parrot/config/init/hints/openbsd.pm	419	527	
==>->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
	}
	$conf->data->set(libs => $l <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	217	313	
==>itional/If.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

pack <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765807	766081	
==>\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766659	766933	
==>\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767512	767786	
==>\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768365	768639	
==>\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind", <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	78716	78810	
==>$RD_ERRORS $RD_WARN $RD_HINT $RD_TRACE $RD_CHECK );
$::RD_CHECK = 1;
$::RD_ERRORS = 1;
$::RD_WA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836622	836878	
==>{{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837354	837610	
==>{{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838088	838344	
==>{{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838820	839076	
==>{{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAG <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2818	2927	
==>DEBUG and print "Big-endian UTF-16 BOM seen.  Aborting parsing.\n";
        $self->scream(
          $self->{' <==
5	/Users/nnunley/parrot/languages/APL/t/APL.pm	1793	1915	
==>todo;
          Parrot::Test::language_output_is('APL', $apl, $output, $block->name);
        }
      } else {
        SKIP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867248	867341	
==>}});\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868214	868307	
==>}});\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869180	869273	
==>}});\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870147	870240	
==>}});\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680814	681104	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681590	681880	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682364	682654	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683139	683429	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS <==
5	/Users/nnunley/parrot/tools/build/ops2c.pl	7875	7975	
==>END_C
    print SOURCE $trans->run_core_after_addr_table($bs);
}

if ($suffix =~ /cgp/) {
    print S <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610602	610880	
==>P" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ] <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611504	611782	
==>P" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ] <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612407	612685	
==>P" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ] <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613313	613591	
==>P" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ] <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48871	48989	
==>ectives cannot have
					       a maximum repetition of zero, nor can they have
					       negative components in thei <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16049	16222	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16821	16994	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	17595	17768	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18390	18563	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGD <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33407	33547	
==>> 28
		}
	},
	{#State 118
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 3 <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4942	5035	
==>m}
	set $result, 0.0
	branch NOT_${eqnum}
TRUE_${eqnum}: set $result, 1.0
NOT_${eqnum}: noop
C <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627073	627166	
==>ops/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_excepti <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628217	628310	
==>ops/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_excepti <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632475	632568	
==>ops/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_excepti <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633517	633610	
==>ops/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_excepti <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055706	1056029	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056597	1056920	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057489	1057812	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058381	1058704	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965625	965905	
==>=> 1086,
                  "ARGS" => [
                              "i",
                              "ic",
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979363	979777	
==>i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1099,
                  "ARGS" => [
                              "i",
                              "i",
                              "sc",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#l <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066965	1067069	
==>TVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? - <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068151	1068255	
==>TVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? - <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069337	1069441	
==>TVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? - <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070524	1070628	
==>TVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? - <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469323	469418	
==>/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exception(interpreter, N <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470198	470293	
==>/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exception(interpreter, N <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478796	478891	
==>/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exception(interpreter, N <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479688	479783	
==>/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exception(interpreter, N <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	47597	47688	
==>lsif ($grammar =~ m/(?=$IMPLICITSUBRULE)/gco
			and do { ($code) = extract_codeblock($gramma <==
5	/Users/nnunley/parrot/config/auto/jit.pm	2719	2829	
==>");
        $conf->data->set(asmfun_o => 'src/asmfun$(O)');
    } else {
        $conf->data->set(asmfun_o => ' <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29427	29536	
==>. ']},
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_T <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31524	31633	
==>. ']},
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_T <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22422	22529	
==>. ']},
					Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_T <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27324	27426	
==>. ']}, Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_T <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646420	646658	
==>PE" => "inline",
                  "CODE" => 722,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 211 \"src/ops/pmc.ops\" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712530	712616	
==>O_putps(interpreter, io, s);\n  if (string_str_index(interpreter, s,\n\tconst_string(in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713637	713723	
==>O_putps(interpreter, io, s);\n  if (string_str_index(interpreter, s,\n\tconst_string(in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719997	720083	
==>O_putps(interpreter, io, s);\n  if (string_str_index(interpreter, s,\n\tconst_string(in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721197	721283	
==>O_putps(interpreter, io, s);\n  if (string_str_index(interpreter, s,\n\tconst_string(in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763177	763293	
==>IC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764030	764146	
==>IC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764883	764999	
==>IC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765737	765853	
==>IC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" = <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	78560	78652	
==>inecount($)
{
	my ($pos,$count) = ((pos $_[0]||0)-1, 0);
	$count++ until ($pos=index($_[0],"\ <==
5	/Users/nnunley/parrot/config/init/hints/irix.pm	540	661	
==>'libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }
    $conf->data->set(libs => $libs);

    my <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24857	24959	
==>temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_generate($node->{children}[$_] <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25868	25970	
==>temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_generate($node->{children}[$_] <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26756	26858	
==>temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_generate($node->{children}[$_] <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27766	27868	
==>temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_generate($node->{children}[$_] <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262852	263183	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263798	264129	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264651	264982	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265505	265836	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266359	266690	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
5	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	379	506	
==>ew {
    return bless {};
}

my %language_test_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    ou <==
5	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	294	420	
==>ew {
  return bless {};
}


my %language_test_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    ou <==
5	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	460	582	
==>ew {
    return bless {};
}

my %language_test_map = (
    output_is   => 'is_eq',
    output_like => 'like',
    ou <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6229	6334	
==>"
A$(2) = "Boston"
A$(3) = "Chicago"
A$(4) = "Seattle"
Max = 4 'UBOUND(A$)
Exchange=TRUE           ' Force <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15882	15987	
==>"
A$(2) = "Boston"
A$(3) = "Chicago"
A$(4) = "Seattle"
Max = 4 'UBOUND(A$)
Exchange=TRUE           ' Force <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	56373	56504	
==>ctive(
						      'no strict;
						       $return = { text => $item[-1] };
						       @{$return->{type}}{'.$code.'} = (1..'.$typ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73092	73181	
==>CI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR(p <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74694	74783	
==>CI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR(p <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76296	76385	
==>CI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR(p <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77899	77988	
==>CI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR(p <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647073	647358	
==>MP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647833	648118	
==>MP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648594	648879	
==>MP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649356	649641	
==>MP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449358	449545	
==>{{\@1}}->vtable->i_absolute(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Par <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497380	497801	
==>" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 571,
                  "ARGS" => [
                              "n",
                              "nc",
                              "n"
                            ],
                  "BODY" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948127	948399	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_chars <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948926	949198	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_chars <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949726	949998	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_chars <==
5	/Users/nnunley/parrot/lib/Test/More.pm	5827	5926	
==>g on if a given test succeeded or failed.  Everything
else is just gravy.

All of the following prin <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7399	7499	
==>e was not text, just another POD command (=head2 probably).
	return '' if $text =~ /^=\w/o;
	
	return <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	23755	23850	
==>_output($fh);
    $Test->failure_output($file);

Where diagnostic output on test failures and di <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	50463	50557	
==>rerror,$line);
				$item = new Parse::RecDescent::Directive(
					'Text::Balanced::extract_vari <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742721	742811	
==>DY" => "#line 174 \"src/ops/set.ops\"\n  {{\@1}} = string_from_int(interpreter, {{\@2}});\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743487	743577	
==>DY" => "#line 174 \"src/ops/set.ops\"\n  {{\@1}} = string_from_int(interpreter, {{\@2}});\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467133	467397	
==>ME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468003	468267	
==>ME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468874	469138	
==>ME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469748	470012	
==>ME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1307	1413	
==>t);
    my $pmc_type = $type->imcc_pmc;
    my $temp_pmc = $compiler->temp_pmc();

    $compiler->emit("  $ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467058	467352	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467928	468222	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468799	469093	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469673	469967	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "T <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	200	292	
==>ako/Construct/Statement.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332768	333060	
==>e const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334046	334338	
==>e const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335324	335616	
==>e const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336603	336895	
==>e const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
5	/Users/nnunley/parrot/tools/dev/as2c.pl	836	947	
==>{4}\s([\dA-F]{2,8})\s+(.*)/) {
	    if ($in_comment) {
		print " */\n";
	    }
	    my ($bytes, $src) = ($1, $2) <==
5	/Users/nnunley/parrot/tools/build/pmc2c.pl	7644	7807	
==>e( ">", $dump );

    my %vtable = (
        flags   => {},
        pre     => '',
        post    => '',
    );
    my %meth_hash;
    my $i = 0;
    foreach my $e <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73009	73110	
==>num_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74611	74712	
==>num_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76213	76314	
==>num_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77816	77917	
==>num_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	268487	268598	
==>\"src/ops/cmp.ops\"\n    {{\@1}} = !VTABLE_get_bool(interpreter, {{\@2}});\n    {{+=3}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763130	763232	
==>} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763983	764085	
==>} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764836	764938	
==>} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765690	765792	
==>} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516150	516361	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516888	517099	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517627	517838	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518365	518576	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io" <==
5	/Users/nnunley/parrot/Configure.pl	1833	1926	
==>he given libraries.

=item C<--link=(linker)>

Specify which linker to use.

=item C<--linkfla <==
5	/Users/nnunley/parrot/tools/dev/install_files.pl	5419	5527	
==>ctories{dirname($dest)} = 1;
    push(@files, [ $src => $dest ]);
} continue {
    close ARGV if eof; # Reset <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11032	11115	
==>erpreter->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11821	11904	
==>erpreter->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13058	13141	
==>erpreter->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13902	13985	
==>erpreter->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	866	972	
==>>

Returns the C C<#define> macros required by the ops.

=cut

sub defines
{
    return <<END;
#define REL_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	822	928	
==>>

Returns the C C<#define> macros required by the ops.

=cut

sub defines
{
    return <<END;
#define REL_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	996	1102	
==>>

Returns the C C<#define> macros required by the ops.

=cut

sub defines
{
    return <<END;
#define REL_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	541	647	
==>>

Returns the C C<#define> macros required by the ops.

=cut

sub defines
{
    return <<END;
#define REL_ <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	7768	7867	
==>as_text { shift->accept_targets_as_text(@_) } # alias


sub accept_targets         { shift->_accept_ <==
5	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1322	1428	
==>d-underline=ulw            wave-underline=ulwave
   ]
   # But no double-strikethrough, because MSWord can' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314112	314356	
==>)({{\@1}}));\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	315573	315817	
==>)({{\@1}}));\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	317032	317276	
==>)({{\@1}}));\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	318501	318745	
==>)({{\@1}}));\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	328653	328897	
==>)({{\@1}}));\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	339172	339381	
==>PE" => "inline",
                  "CODE" => 397,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 113 \"src/ops/io.ops\"\n  {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080407	1080501	
==>\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081472	1081566	
==>\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082537	1082631	
==>\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083603	1083697	
==>\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \" <==
5	/Users/nnunley/parrot/lib/Test/More.pm	30725	30916	
==>$$e2);
                pop @Data_Stack if $ok;
            }
	    else {
		_whoa(1, "No type in _deep_check");
	    }
        }
    }

    return $ok;
}


sub _whoa {
    my($check, $desc) = @ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858667	858774	
==>= string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859671	859778	
==>= string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860675	860782	
==>= string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861680	861787	
==>= string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173706	174003	
==>str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194944	195241	
==>str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211677	211974	
==>str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	220233	220530	
==>str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228794	229091	
==>str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 2 <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7160	7265	
==>set', [$head, $copy]);

  # maybe ensure that $type is a pair here
  my $temp = $self->_save_1('P');
  $se <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591355	591444	
==>DY" => "#line 325 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592565	592654	
==>DY" => "#line 325 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593775	593864	
==>DY" => "#line 325 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594986	595075	
==>DY" => "#line 325 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175512	175676	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176415	176579	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177319	177483	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178223	178387	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179128	179292	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380291	380629	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":bas <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381302	381640	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":bas <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382314	382652	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":bas <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383326	383664	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":bas <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384339	384677	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":bas <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575864	576161	
==>=> 0,
                  "NAME" => "subclass",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576875	577172	
==>=> 0,
                  "NAME" => "subclass",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595624	595921	
==>=> 0,
                  "NAME" => "subclass",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596516	596813	
==>=> 0,
                  "NAME" => "subclass",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3384	3514	
==>', 'apply_ARRAY'],
  ['',            'inc', 'I2'],
  ['',            'set', 'P17', 'P17[1]'],
  ['',            'typeof', 'I16', 'P <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855006	855263	
==>} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855895	856152	
==>} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856784	857041	
==>} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857674	857931	
==>} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	71849	71964	
==>d.");

					$self->_generate("$call : '$call'",0,1);
				}
			}
		}

	# CHECK FOR LEFT RECURSION

		if ($rule->islef <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763200	763429	
==>ter access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764053	764282	
==>ter access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764906	765135	
==>ter access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765760	765989	
==>ter access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28382	28496	
==>s}{dynpmc}) {
        $hout .= "#define PARROT_IN_EXTENSION\n";
    }

    $hout .= $self->hdecls();
    if ($self- <==
5	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4737	4846	
==>while (1) {
        $parser->YYData->{INPUT}
            or $parser->YYData->{INPUT} = readline $parser->YYD <==
5	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	5648	5757	
==>while (1) {
        $parser->YYData->{INPUT}
            or $parser->YYData->{INPUT} = readline $parser->YYD <==
5	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	6106	6215	
==>while (1) {
        $parser->YYData->{INPUT}
            or $parser->YYData->{INPUT} = readline $parser->YYD <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35535	35641	
==>ault.c");
    return <<EOC;
$l
${decl}\{
    cant_do_method(interpreter, pmc, "$meth");
    ${ret}
}

EOC
} <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	9936	10031	
==>node,1)->{children}) {
    my @formals;
    ($symbol, @formals) = @{_get_arg($node,1)->{children <==
5	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	986	1124	
==>Test::run_command($cmd, CD => $self->{relpath},
                                           STDOUT => $out_f, STDERR => $out_f );
    unless <==
5	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1027	1165	
==>Test::run_command($cmd, CD => $self->{relpath},
                                           STDOUT => $out_f, STDERR => $out_f );
    unless <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	10229	10361	
==>);
			$expr=0;
			next;
		}
		if ($syms[CURR] eq ",") {
			fdprint($fd, "\\t");
			$eol=1;
			feedme();
			$expr=0;
			next;
		}
		la <==
5	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1413	1520	
==>{verbose_info}
        and $parser->YYData->{verbose_info} );
}

sub _DoubleQuoteStringLexer {
    my $ <==
5	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2077	2183	
==>Test::run_command($cmd, #CD => $self->{relpath},
					   STDOUT => $out_f, STDERR => $out_f);
  
    unless <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18959	19065	
==>_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19447	19553	
==>_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19935	20041	
==>_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20424	20530	
==>_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20913	21019	
==>_restore($temp_1);
  }
  $self->_add_inst('','set',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21745	21853	
==>'exp' => 100,
			'functioncall' => 31,
			'explist1' => 121,
			'function' => 26,
			'tableconstructor' = <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	834	927	
==>uct::Expression::Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVERS <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	672	765	
==>uct::Expression::Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVERS <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	825	918	
==>uct::Expression::Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVERS <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	714	807	
==>uct::Expression::Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVERS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066403	1066700	
==>",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067588	1067885	
==>",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068774	1069071	
==>",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069960	1070257	
==>",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11 <==
5	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11173	11270	
==>lt>...E<gt> sequences

=head1 SYNOPSIS

  use Pod::Escapes qw(e2char);
  ...la la la, parsing POD, <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27353	27467	
==>just take that. If not, we need
		# to generate it from the "to generate" instruction directive.
		$pir .= "### tra <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29820	29934	
==>just take that. If not, we need
		# to generate it from the "to generate" instruction directive.
		$pir .= "### tra <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33238	33352	
==>just take that. If not, we need
		# to generate it from the "to generate" instruction directive.
		$pir .= "### tra <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34492	34606	
==>just take that. If not, we need
		# to generate it from the "to generate" instruction directive.
		$pir .= "### tra <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36902	37016	
==>just take that. If not, we need
		# to generate it from the "to generate" instruction directive.
		$pir .= "### tra <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084859	1085196	
==>"experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085912	1086249	
==>"experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086965	1087302	
==>"experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088019	1088356	
==>"experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090973	1091310	
==>"experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471309	471617	
==>2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "d <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472296	472604	
==>2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "d <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473283	473591	
==>2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "d <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474273	474581	
==>2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "d <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475264	475572	
==>2}} / den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "d <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1528	1635	
==>dent ? $ident->line : undef
  }, $class;

  $block->push_content($self);

  return $self;
}


#
# ACCESSORS: <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8008	8108	
==>ntifier name!"  unless defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8655	8755	
==>ntifier name!"  unless defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9323	9423	
==>ntifier name!"  unless defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9992	10092	
==>ntifier name!"  unless defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_ <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31926	32041	
==>eters = $method->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $ <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33503	33618	
==>eters = $method->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $ <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38520	38635	
==>eters = $method->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $ <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40560	40675	
==>eters = $method->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $ <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	45736	45840	
==>sion of the above line is these tokens (",
      scalar(@new_line), "):",
      map( ref($_)?"<@$_> ":"<$ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085261	1085726	
==>IRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1204,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic",
                              "i"
                            ] <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2097	2197	
==>mplain
  # about the redefinition. Otherwise, we assume the programmer wanted to shadow the
  # previ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1617	1717	
==>mplain
  # about the redefinition. Otherwise, we assume the programmer wanted to shadow the
  # previ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1844	1944	
==>mplain
  # about the redefinition. Otherwise, we assume the programmer wanted to shadow the
  # previ <==
5	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	41	127	
==>ation.
# $Id: /parrot/lib/Parrot/Distribution.pm 19602 2006-05-30T13:40:58.862833Z coke <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084763	1084871	
==>e->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085816	1085924	
==>e->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086869	1086977	
==>e->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087923	1088031	
==>e->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental <==
5	/Users/nnunley/parrot/lib/Parrot/Configure.pm	2792	2899	
==>_step
{
    my ($self, $step, @params) = @_;

    push @{$self->{steps}},
        Parrot::Configure::Task->n <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	251	360	
==>t need the magical enum fixup.
our @need_enum_fix = (
    qw/2E 2F 30 31 32 33 34 35 36 37 3B 3C 3D 3E 3F 40 4 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404660	404769	
==>_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405572	405681	
==>_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406484	406593	
==>_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407397	407506	
==>_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072838	1072964	
==>@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experime <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075023	1075149	
==>@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experime <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077208	1077334	
==>@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experime <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079394	1079520	
==>@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experime <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	11441	11547	
==>eft )
	{
		next unless defined $rules->{$next}; # SKIP NON-EXISTENT RULES
		return 1 if $next eq $root;
		m <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700296	700627	
==>"mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 78 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701286	701617	
==>"mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 78 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702277	702608	
==>"mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 78 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703268	703599	
==>"mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 78 <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23499	23629	
==>> <op> <value>);
    #
    #   next <label>;
    #   next <label> if     (<value> <op> <value>);
    #   next <label> unless (<valu <==
5	/Users/nnunley/parrot/config/init/hints/freebsd.pm	907	1022	
==>shared        => 1,
        libparrot_shared        => 'libparrot$(SHARE_EXT).$(SOVERSION)',
        libparrot_share <==
5	/Users/nnunley/parrot/config/init/hints/linux.pm	1745	1860	
==>shared        => 1,
        libparrot_shared        => 'libparrot$(SHARE_EXT).$(SOVERSION)',
        libparrot_share <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9666	9763	
==>en(${ASSEMBLY}, ${ARG0})

# If it's a call to instantiate, need to knock off first arg.
if "${CURI <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7180	7277	
==>en(${ASSEMBLY}, ${ARG0})

# If it's a call to instantiate, need to knock off first arg.
if "${CURI <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39655	39746	
==>object?' => \&_op_eof_object_p,
  'char-ready?' => \&_op_char_ready_p,
  'write' => \&_op_wr <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	1333	1449	
==>ut_pushmark {
    my ($self) = @_;
    return "rx_pushmark P0";
}

sub output_pushindex {
    my ($self) = @_;
    re <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1314	1420	
==>They really should not be
  # triggered in normal operation, even with bad source code as input.
  #

  $se <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1259	1365	
==>They really should not be
  # triggered in normal operation, even with bad source code as input.
  #

  $se <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1162	1268	
==>They really should not be
  # triggered in normal operation, even with bad source code as input.
  #

  $se <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	7804	7899	
==>ken)>

Processes a start token not processable by the above methods.

=cut

sub process_other_st <==
5	/Users/nnunley/parrot/lib/Test/More.pm	27280	27394	
==>ype {
    my $thing = shift;

    return '' if !ref $thing;

    for my $type (qw(ARRAY HASH REF SCALAR GLOB Regexp <==
5	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	318	446	
==>}


my %language_test_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    output_isnt       => 'isnt_e <==
5	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	405	532	
==>}

my %language_test_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    output_isnt       => 'isnt_e <==
5	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	744	871	
==>}

my %language_test_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    output_isnt       => 'isnt_e <==
5	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	752	879	
==>}

my %language_test_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    output_isnt       => 'isnt_e <==
5	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	488	602	
==>}

my %language_test_map = (
    output_is   => 'is_eq',
    output_like => 'like',
    output_isnt => 'isnt_e <==
5	/Users/nnunley/parrot/lib/Parrot/Revision.pm	636	764	
==>pen my $FH, '<', $svn_entries or die $!;
        while (<$FH>) {
            /^ *committed-rev=.(\d+)./ or next;
            retu <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072008	1072122	
==>n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074193	1074307	
==>n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076378	1076492	
==>n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078564	1078678	
==>n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067193	1067331	
==>temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068379	1068517	
==>temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069565	1069703	
==>temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070752	1070890	
==>temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" = <==
5	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	17347	17470	
==>shift;
    my $op2  = shift;
    $code =~ s/%1/$op1/g;
    $code =~ s/%2/$op2/g;
    $code .= "\n";
    return($code);
}

__ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449845	450083	
==>"TYPE" => "inline",
                  "CODE" => 515,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 195 \"src/ops/math.op <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3322	3416	
==>No lazy move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_ <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5084	5178	
==>No lazy move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_ <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7996	8090	
==>No lazy move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_ <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8853	8947	
==>No lazy move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2839	2948	
==>ibutes => { kind => 'infix', name => $op } });
    $left->sax($handler);
    $right->sax($handler);
    $handl <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3513	3622	
==>ibutes => { kind => 'infix', name => $op } });
    $left->sax($handler);
    $right->sax($handler);
    $handl <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3603	3712	
==>ibutes => { kind => 'infix', name => $op } });
    $left->sax($handler);
    $right->sax($handler);
    $handl <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5388	5491	
==>ibutes => { kind => 'infix', name => $op } });
  $left->sax($handler);
  $right->sax($handler);
  $handl <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3451	3554	
==>ibutes => { kind => 'infix', name => $op } });
  $left->sax($handler);
  $right->sax($handler);
  $handl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033558	1033832	
==>name, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034656	1034930	
==>name, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564568	564837	
==>PE" => "inline",
                  "CODE" => 645,
                  "ARGS" => [
                              "p",
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line 183 \"src/ops/objec <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22632	22733	
==>add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$label");
  $self->_restore($te <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23133	23234	
==>add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$label");
  $self->_restore($te <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	6299	6408	
==>my $self = shift;

    #  make a hash of all method names containing vtable section
    my $vt = $self->{vtabl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381092	381183	
==>5 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offs <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382104	382195	
==>5 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offs <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383116	383207	
==>5 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offs <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384129	384220	
==>5 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offs <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044731	1044988	
==>obal_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045625	1045882	
==>obal_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046519	1046776	
==>obal_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047414	1047671	
==>obal_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
5	/Users/nnunley/parrot/config/gen/PodText.pm	436	534	
==>heir plain text equivalents.

=head1 USAGE

=head2 Methods

=head3 Class Methods

=over

=item * C< <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18992	19094	
==>add_inst('','set',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19480	19582	
==>add_inst('','set',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19968	20070	
==>add_inst('','set',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20457	20559	
==>add_inst('','set',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20946	21048	
==>add_inst('','set',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return <==
5	/Users/nnunley/parrot/languages/regex/regex.pl	213	345	
==>";
my $main;

while (@ARGV) {
    $_ = shift;
    if (/--no(-?)optimize/) {
        $tree_opt = 0;
        $list_opt = 0;
    } elsif <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7300	7426	
==>c) = @_;
    $reg = value($reg);

    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        return (" <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6942	7068	
==>c) = @_;
    $reg = value($reg);

    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        return (" <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9400	9525	
==>c) = @_;
    $reg = value($reg);
    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        return (" <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9094	9219	
==>c) = @_;
    $reg = value($reg);
    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        return (" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244639	244892	
==>DE" => 284,
                  "ARGS" => [
                              "i",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 632 \"src/ops/cmp.ops\"\n  STRING* l = VT <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4999	5099	
==>w(2)=5
t7(0)=0
w=w-(T7(0) * T7(0) * 12)
' Expect 20
print w
' Expect -20
print -w
' Expect -5
print - <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	35696	35795	
==>failed it will exit with how many failed.  If
you run less (or more) tests than you planned, the mis <==
5	/Users/nnunley/parrot/lib/Test/More.pm	33767	33866	
==>failed it will exit with how many failed.  If
you run less (or more) tests than you planned, the mis <==
5	/Users/nnunley/parrot/lib/Test/Simple.pm	2563	2662	
==>failed it will exit with how many failed.  If
you run less (or more) tests than you planned, the mis <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4840	4940	
==>>imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();

    $compiler->emit("  $pmc_reg = new $pmc_type" <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2903	3003	
==>>imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();

    $compiler->emit("  $pmc_reg = new $pmc_type" <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1206	1305	
==>>imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();
    $compiler->emit("  $pmc_reg = new $pmc_type" <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1200	1299	
==>>imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();
    $compiler->emit("  $pmc_reg = new $pmc_type" <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1859	1956	
==>Docs::Section::BigNum->new,
        Parrot::Docs::Section::Compilers->new,
        Parrot::Docs::S <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598187	598448	
==>));\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599234	599495	
==>));\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544141	544247	
==>"\n INTVAL gcd = 0;\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545477	545583	
==>"\n INTVAL gcd = 0;\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546813	546919	
==>"\n INTVAL gcd = 0;\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 <==
5	/Users/nnunley/parrot/config/auto/bc.pm	563	674	
==>'Determining whether GNU bc is installed';

@args = qw();

sub runstep
{
    my ($self, $conf) = @_;

    my $ha <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	9076	9178	
==>ift->_get_titled_section(
   'VERSION',
    max_token => 400,
    accept_verbatim => 1,
    max_content <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2217	2311	
==>sion::Value::Identifier')) {
    my $right_sym = $block->find_symbol($right->value);
    $self- <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2175	2269	
==>sion::Value::Identifier')) {
    my $right_sym = $block->find_symbol($right->value);
    $self- <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2097	2191	
==>sion::Value::Identifier')) {
    my $right_sym = $block->find_symbol($right->value);
    $self- <==
5	/Users/nnunley/parrot/config/auto/jit.pm	2855	2955	
==>e = $conf->options->get('jitcapable')
        if defined $conf->options->get('jitcapable');

    if ( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344471	344562	
==>*/\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_cl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345713	345804	
==>*/\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_cl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346955	347046	
==>*/\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_cl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348198	348289	
==>*/\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_cl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744792	745049	
==>],
                  "TYPE" => "inline",
                  "CODE" => 838,
                  "ARGS" => [
                              "s",
                              "nc"
                            ],
                  "BODY" => "#line 179 \"src/ops/set. <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3568	3668	
==>->SYNTAX_ERROR("Sub declaration has no fnlib property, and parent block is not a module!")
        un <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6232	6332	
==>->SYNTAX_ERROR("Sub declaration has no fnlib property, and parent block is not a module!")
        un <==
5	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2500	2594	
==>he test code matches the C<$expected>
parameter.  Note that C<$expected> is a I<Perl 5> pattern <==
5	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3934	4028	
==>he test code matches the C<$expected>
parameter.  Note that C<$expected> is a I<Perl 5> pattern <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	7977	8249	
==>GES:
##
###############################################################################
###############################################################################


#
# DEBUG()
#

sub DEBUG
{
  my ($self, $level, $format, @args) = @_;

  return unless defined $self->d <==
5	/Users/nnunley/parrot/config/init/manifest.pm	801	897	
==>e missing!  I can't continue running
without everything here.  Please try to find the above
files <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	910	1000	
==>e") unless UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bles <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	748	838	
==>e") unless UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bles <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	901	991	
==>e") unless UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bles <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	790	880	
==>e") unless UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bles <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857936	858179	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858939	859182	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859943	860186	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860947	861190	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
5	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	294	388	
==>ers specifying argument types and
subcommands can be specified, the build tool takes this and g <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84	181	
==>automatically from 'src/ops/core.ops'.
# Any changes made here will be lost!
#

=head1 NAME

Parro <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579311	579405	
==>_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(cl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580616	580710	
==>_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(cl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581921	582015	
==>_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(cl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583227	583321	
==>_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(cl <==
5	/Users/nnunley/parrot/tools/dev/as2c.pl	966	1086	
==>t/ /g;
	    my $len = length($bytes);
	    my @pairs = ($bytes =~ m/../g);
	    print "    ". join '', map {"0x$_, "} @pa <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072884	1073232	
==>1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075069	1075417	
==>1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077254	1077602	
==>1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079440	1079788	
==>1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
5	/Users/nnunley/parrot/tools/build/ops2pm.pl	2415	2531	
==>lag, $help_flag, $renum_flag );
GetOptions( "no-lines"      => \$nolines_flag,
            "help"          => \$help_ <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7348	7475	
==>>{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        return ("set <rx_tmp>, <rx_stack>",
                $self- <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9447	9574	
==>>{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        return ("set <rx_tmp>, <rx_stack>",
                $self- <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627171	627268	
==>nterpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n\n  /* Why <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628315	628412	
==>nterpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n\n  /* Why <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	26122	26218	
==>Extract the initial substring of $text that is bounded by
 # a C<BEGIN>...C<END> pair. Don't allo <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26656	26780	
==>array.
		$pir .= "    dtypes = new ResizablePMCArray\n";

		# Insert typeinfo code (sets up dtypes).
		$pir .= "### typeinfo\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867177	867270	
==>s/string.ops\"\n  INTVAL len;\n  len = string_length(interpreter, {{\@2}});\n  {{\@1}} = strin <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868143	868236	
==>s/string.ops\"\n  INTVAL len;\n  len = string_length(interpreter, {{\@2}});\n  {{\@1}} = strin <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869109	869202	
==>s/string.ops\"\n  INTVAL len;\n  len = string_length(interpreter, {{\@2}});\n  {{\@1}} = strin <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870076	870169	
==>s/string.ops\"\n  INTVAL len;\n  len = string_length(interpreter, {{\@2}});\n  {{\@1}} = strin <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20298	20392	
==>you're not writing a formatter class, but are instead just
writing a program that does somethin <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5065	5158	
==>>expr_offset(@_));
}

=item C<goto_pop()>

Transforms the C<goto POP($address)> macro in an op <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780681	780766	
==>c/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed_int(interpreter, {{\@1}}, {{\@2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781590	781675	
==>c/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed_int(interpreter, {{\@1}}, {{\@2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782499	782584	
==>c/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed_int(interpreter, {{\@1}}, {{\@2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783409	783494	
==>c/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed_int(interpreter, {{\@1}}, {{\@2 <==
5	/Users/nnunley/parrot/config/auto/jit.pm	3183	3314	
==>ch),
            jitosname   => uc($jitosname),
            jitcapable  => 1,
            cc_hasjit   => " -DHAS_JIT -D\U$jitcpuarch <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712657	712745	
==>ring_str_index(interpreter, s,\n\tconst_string(interpreter, \"e\"), 0) == -1)\n    PIO_pu <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713764	713852	
==>ring_str_index(interpreter, s,\n\tconst_string(interpreter, \"e\"), 0) == -1)\n    PIO_pu <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720124	720212	
==>ring_str_index(interpreter, s,\n\tconst_string(interpreter, \"e\"), 0) == -1)\n    PIO_pu <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721324	721412	
==>ring_str_index(interpreter, s,\n\tconst_string(interpreter, \"e\"), 0) == -1)\n    PIO_pu <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659515	659833	
==>{
                  "JUMP" => 0,
                  "NAME" => "exists",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660436	660754	
==>{
                  "JUMP" => 0,
                  "NAME" => "exists",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661358	661676	
==>{
                  "JUMP" => 0,
                  "NAME" => "exists",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662273	662591	
==>{
                  "JUMP" => 0,
                  "NAME" => "exists",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
5	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1231	1336	
==>_[0]{'hide_line_numbers'};
        _xml_escape($value);
        print $fh $ATTR_PAD, $key, '="', $value, ' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568711	569028	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569603	569920	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570496	570813	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571450	571767	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	6846	6957	
==>w:
 *     Native Call Interface routines. The code needed to build a
 *     parrot to C call frame is in here
 * <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332783	333090	
==>ualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334061	334368	
==>ualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335339	335646	
==>ualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336618	336925	
==>ualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61738	61945	
==>ne",
                  "CODE" => 80,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 951 \"src/ops/core.ops\"\n  PARROT_ERRORS <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5439	5571	
==>( [ 0, undef ] );
	$$check='';

    while(1) {
        my($actions,$act,$stateno);

        $stateno=$$stack[-1][0];
        $ <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5178	5303	
==>( [ 0, undef ] );
	$$check='';

    while(1) {
        my($actions,$act,$stateno);

        $stateno=$$stack[-1][0];
        $ <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2293	2391	
==>int "Ok"
if 5=5 then print "Ok" else print "Wrong"
if 5>4 then print "Ok" else print "Wrong"
if 5>5 <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1905	2002	
==>over_text    { ++$_[0]{'Indent'} }
sub start_over_block   { ++$_[0]{'Indent'} }

sub   end_over_bu <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1473	1570	
==>over_text    { ++$_[0]{'Indent'} }
sub start_over_block   { ++$_[0]{'Indent'} }

sub   end_over_bu <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516695	516970	
==>\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517434	517709	
==>\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518172	518447	
==>\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518911	519186	
==>\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	1338	1429	
==>= qw(Regex::Ops::Tree);
@Regex::Ops::Tree::group::ISA        = qw(Regex::Ops::Tree::_onearg) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175565	175862	
==>TIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176468	176765	
==>TIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177372	177669	
==>TIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178276	178573	
==>TIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179181	179478	
==>TIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	1444	1547	
==>rser for Pod.  It is not a parser for the set of Pod-like
#  languages which happens to contain Pod -- i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642429	642719	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643317	643607	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644209	644499	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645102	645392	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11676	11787	
==>t_call_setup {
    my ($self, $name, $uid) = @_;
    return ".local pmc $uid";
}

sub output_call {
    my ($sel <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646861	647150	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647621	647910	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648382	648671	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649144	649433	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" = <==
5	/Users/nnunley/parrot/tools/dev/symlink.pl	1549	1651	
==>nifile = split('/', $manifile);
	    my $dstfile = File::Spec->catfile(@manifile);
	    my $srcfile = F <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015420	1015747	
==>FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1134,
                  "ARGS" => [
                              "s",
                              "ic <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867197	867288	
==>TVAL len;\n  len = string_length(interpreter, {{\@2}});\n  {{\@1}} = string_substr(interpret <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868163	868254	
==>TVAL len;\n  len = string_length(interpreter, {{\@2}});\n  {{\@1}} = string_substr(interpret <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869129	869220	
==>TVAL len;\n  len = string_length(interpreter, {{\@2}});\n  {{\@1}} = string_substr(interpret <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870096	870187	
==>TVAL len;\n  len = string_length(interpreter, {{\@2}});\n  {{\@1}} = string_substr(interpret <==
5	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10311	10418	
==>gname,"\n";
      if( ($tagname = $token->tagname) =~ m/^over-/s ) {
        DEBUG and print "Indenting back <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1466	1557	
==>ee L<Pod::Simple::PullParser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Po <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050335	1050622	
==>next);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_E <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051369	1051656	
==>next);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_E <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052403	1052690	
==>next);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_E <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053438	1053725	
==>next);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_E <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	38687	38778	
==>re "empty" elements:

	extract_tagged($text, undef, undef, undef, {ignore => ['<[^>]*/>']} ) <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11047	11162	
==>OASS
		if ($syms[CURR] eq ",") {
			#feedme();
			next;
		}
	}
}
sub parse_swap {
	my(@f, @s);
	feedme();
	my($leftr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072045	1072158	
==>\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  w <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074230	1074343	
==>\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  w <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076415	1076528	
==>\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  w <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078601	1078714	
==>\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  w <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467048	467257	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467918	468127	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468789	468998	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469663	469872	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1084	1183	
==><Parrot::Op>'s C<func_name()> to individuate op function names.

=cut

sub prefix 
{ 
    return 'Pa <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961119	961441	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "F <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962081	962403	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "F <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963043	963365	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "F <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6387	6493	
==>failLabel);
    return ($self->dbprint("At end: %<rx_pos> >= %<rx_len>?\n"),
            "goto $fail if <rx <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	955	1046	
==>Vtable.pm'),
		),
		$self->new_group('IO', '',
			'lib/Parrot/Distribution.pm', 'lib/Parrot/ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343594	343891	
==>"JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344835	345132	
==>"JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346077	346374	
==>"JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347319	347616	
==>"JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	48197	48290	
==>he here document starts is not skipped.

To prevent <extract_quotelike> from mucking about wit <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240229	240534	
==>3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241177	241482	
==>3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242125	242430	
==>3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243074	243379	
==>3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
5	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1924	2026	
==>1]/g;
	$c =~ s/(S\d{2})/$s{$1}/;
        $c =~ s/^(.*)=rotate_left\((.*),(.*)\)\+(.*)$//;

	#my $rotate <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23103	23320	
==>",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25542	25759	
==>",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028256	1028473	
==>",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029107	1029324	
==>",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029948	1030165	
==>",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENE <==
5	/Users/nnunley/parrot/languages/regex/regex.pl	828	961	
==>sub-name=(.*)/) {
        $subname = $1;
    } elsif ($_ eq '-o') {
        $output = shift;
    } elsif (! defined $expr) {
        $ <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2065	2159	
==>{PTEMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}[" <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3317	3411	
==>{PTEMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}[" <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5946	6040	
==>{PTEMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}[" <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6504	6598	
==>{PTEMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}[" <==
5	/Users/nnunley/parrot/lib/Test/More.pm	15753	15849	
==>'no_diag'>.  This is useful
if you have diagnostics for personal testing but then wish to make
th <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586862	586953	
==>_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588048	588139	
==>_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589234	589325	
==>_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590421	590512	
==>_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22155	22248	
==>$right = Jako::Construct::Expression::Value->new($block, $self->require_value);

        $self <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23088	23181	
==>$right = Jako::Construct::Expression::Value->new($block, $self->require_value);

        $self <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24734	24826	
==>$right = Jako::Construct::Expression::Value->new($block, $self->require_value);
        $self <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9915	10006	
==>$right = Jako::Construct::Expression::Value->new($block, $self->require_value);

      $self <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25451	25542	
==>$right = Jako::Construct::Expression::Value->new($block, $self->require_value);

      $self <==
5	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	4823	4965	
==>ile, $source) = @_;

    my $f = undef;
    my $line = 0;
    foreach (@$source) {
        $line++;
        next unless $_;

        if (/^(\s* <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072586	1072691	
==>gn (can be wrong because we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no corre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074771	1074876	
==>gn (can be wrong because we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no corre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076956	1077061	
==>gn (can be wrong because we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no corre <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079142	1079247	
==>gn (can be wrong because we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no corre <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2639	2739	
==>t is produced.
	$pir .= <<'PIR';
strPC = ${PC}
${INS} = concat "LAB"
${INS} = concat strPC
${INS} = c <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7630	7726	
==>(NAME)

This is a shortcut method that uses find_symbol() to locate a matching
symbol, and then r <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8277	8373	
==>(NAME)

This is a shortcut method that uses find_symbol() to locate a matching
symbol, and then r <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8925	9021	
==>(NAME)

This is a shortcut method that uses find_symbol() to locate a matching
symbol, and then r <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9595	9691	
==>(NAME)

This is a shortcut method that uses find_symbol() to locate a matching
symbol, and then r <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710838	711038	
==>PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711672	711872	
==>PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712778	712978	
==>PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713885	714085	
==>PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
5	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	11279	11386	
==>ception if the delete fails.

=cut

sub delete_contents
{
    my $self = shift;

    foreach my $file ($self <==
5	/Users/nnunley/parrot/tools/build/dynclasses.pl	2807	2928	
==>GS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $PA <==
5	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3116	3237	
==>GS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $PA <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	2911	3032	
==>GS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $PA <==
5	/Users/nnunley/parrot/editor/kate_syntax.pl	416	526	
==>be written to the standard\n",
        "output.\n\n";
    exit;
}

$parrot =~ s/\/$//;

my @imcc_oplike = qw(.s <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	63080	63177	
==>ke operators C<s>, C<tr> or C<y> followed by only one block.

=item C<No match found for opening b <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2874	2968	
==>ead1 SEE ALSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot:: <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	6328	6422	
==>ead1 SEE ALSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot:: <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4544	4638	
==>ead1 SEE ALSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot:: <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4521	4615	
==>ead1 SEE ALSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot:: <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3905	3999	
==>ead1 SEE ALSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot:: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610459	610695	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_cla <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611361	611597	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_cla <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612264	612500	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_cla <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613170	613406	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_cla <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	13973	14083	
==>IRCODE

	# Emit label generation code.
	$pir .= "### gen_label\n";
    my $srm_label = $srm->gen_label();
    $ <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	6442	6543	
==>a-zA-Z0-9]*$/s;
    Carp::croak "\"$d\" is already a reserved Pod directive name"
     if exists $Know <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610636	610913	
==>=> "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611538	611815	
==>=> "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612441	612718	
==>=> "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613347	613624	
==>=> "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
5	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	517	615	
==>t $number_of_tests) returns Void is export {
    $Test::testing_started = 1;
    $Test::num_of_test <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13798	13901	
==>ines, C<$out_name> is the name of the output file we are
generating.

=cut

sub body
{
    my ($self, $m <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29581	29684	
==>ines, C<$out_name> is the name of the output file we are
generating.

=cut

sub body
{
    my ($self, $m <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30223	30326	
==>ines, C<$out_name> is the name of the output file we are
generating.

=cut

sub body
{
    my ($self, $m <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5965	6067	
==>t instruction needs to
	# have an empty stack type state propogated to it if nothing has been
	# propog <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3903	4005	
==>t instruction needs to
	# have an empty stack type state propogated to it if nothing has been
	# propog <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072859	1073001	
==>\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075044	1075186	
==>\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077229	1077371	
==>\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079415	1079557	
==>\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	42484	42617	
==>treelet->[$i][0] ne 'E') {
        unshift @stack, $treelet->[$i]; # recurse
        next;
      }
      
      DEBUG > 1 and print "O <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344549	344835	
==>reter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345791	346077	
==>reter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347033	347319	
==>reter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348276	348562	
==>reter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	28782	28905	
==>and $treelet->[$i][2] eq '')
      ) {
        $self->whine( $start_line, "A non-empty Z<>" );
      }      # but kill it an <==
5	/Users/nnunley/parrot/config/inter/lex.pm	1226	1335	
==>$util)};

    # never override the user.  If a non-existent program is specified then
    # the user is respon <==
5	/Users/nnunley/parrot/config/inter/make.pm	1047	1156	
==>$util)};

    # never override the user.  If a non-existent program is specified then
    # the user is respon <==
5	/Users/nnunley/parrot/config/inter/yacc.pm	1223	1332	
==>$util)};

    # never override the user.  If a non-existent program is specified then
    # the user is respon <==
5	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	1401	1505	
==>y ($orig, $new) = @_;

    # Rather than sprinkling "if defined(...)", everywhere,
    # config/inter/pro <==
5	/Users/nnunley/parrot/lib/Pod/Escapes.pm	13543	13638	
==>e correct
Unicode value, regardless of the version of Perl you're using --
which differs from C< <==
5	/Users/nnunley/parrot/languages/perms.pl	490	605	
==>mbler);
    return $ret;
	};
}

=cut
00
10
20
30
40
50
60
01
11
21
31
=cut

my $it = deeper(5, \@things);

while (my <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332354	332450	
==>/* These char * need to go away soon */\n  const char * const mode = string_to_cstring(interprete <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333632	333728	
==>/* These char * need to go away soon */\n  const char * const mode = string_to_cstring(interprete <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334910	335006	
==>/* These char * need to go away soon */\n  const char * const mode = string_to_cstring(interprete <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336189	336285	
==>/* These char * need to go away soon */\n  const char * const mode = string_to_cstring(interprete <==
5	/Users/nnunley/parrot/config/gen/config_h.pm	692	798	
==>= @_;

    genfile(
        'config/gen/config_h/config_h.in', 'include/parrot/config.h',
        commentTy <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2360	2453	
==>(see
C<Parrot::OpTrans>) and value. C<$op> is an instance of C<Parrot::Op>.

=cut

sub access_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3452	3545	
==>(see
C<Parrot::OpTrans>) and value. C<$op> is an instance of C<Parrot::Op>.

=cut

sub access_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3596	3689	
==>(see
C<Parrot::OpTrans>) and value. C<$op> is an instance of C<Parrot::Op>.

=cut

sub access_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3251	3344	
==>(see
C<Parrot::OpTrans>) and value. C<$op> is an instance of C<Parrot::Op>.

=cut

sub access_ <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	953	1059	
==>g defsng defstr
				dim do loop double draw
			else elseif end endif environ erase error exit
			field file <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549918	550012	
==>c/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551219	551313	
==>c/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553781	553875	
==>c/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555178	555272	
==>c/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	736	839	
==>');
  confess("Left (" . ref($left) . ") is not Value") unless UNIVERSAL::isa($left, 'Jako::Construct::E <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	574	677	
==>');
  confess("Left (" . ref($left) . ") is not Value") unless UNIVERSAL::isa($left, 'Jako::Construct::E <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	727	830	
==>');
  confess("Left (" . ref($left) . ") is not Value") unless UNIVERSAL::isa($left, 'Jako::Construct::E <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	616	719	
==>');
  confess("Left (" . ref($left) . ") is not Value") unless UNIVERSAL::isa($left, 'Jako::Construct::E <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	565	668	
==>');
  confess("Left (" . ref($left) . ") is not Value") unless UNIVERSAL::isa($left, 'Jako::Construct::E <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849267	849476	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850153	850362	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851040	851249	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851927	852136	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21251	21343	
==>' . ($self->{"lookahead"}<0?'if':'unless') . ' (defined $_tok)
		{'.($::RD_NO_TRACE?'':'
			P <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939529	939851	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940420	940742	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941312	941634	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942204	942526	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLA <==
5	/Users/nnunley/parrot/lib/Test/More.pm	2426	2527	
==>e
which you can switch to once you get the hang of basic testing.

The purpose of this module is to pr <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4664	4758	
==>ress)>

Transforms the C<goto ADDRESS($address)> macro in an ops file into the
relevant C code. <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1329	1423	
==>ress)>

Transforms the C<goto ADDRESS($address)> macro in an ops file into the
relevant C code. <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1854	1948	
==>ress)>

Transforms the C<goto ADDRESS($address)> macro in an ops file into the
relevant C code. <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1745	1839	
==>ress)>

Transforms the C<goto ADDRESS($address)> macro in an ops file into the
relevant C code. <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1469	1563	
==>ress)>

Transforms the C<goto ADDRESS($address)> macro in an ops file into the
relevant C code. <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444055	444386	
==>FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 508,
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858675	858912	
==>_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859679	859916	
==>_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860683	860920	
==>_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861688	861925	
==>_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854403	854720	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855291	855608	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856180	856497	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857069	857386	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141502	141770	
==>> "inline",
                  "CODE" => 173,
                  "ARGS" => [
                              "nc",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 77 \"src/ops/cmp.ops\" <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37830	37930	
==>ll();
		$pir .= "### post_call\n";
		$pir .= sub_meta($post_call, $mv, "post_call for rule $rule->{'n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579243	579333	
==>Y" => "#line 289 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580548	580638	
==>Y" => "#line 289 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581853	581943	
==>Y" => "#line 289 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583159	583249	
==>Y" => "#line 289 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	513085	513304	
==>91,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 695 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}}->vtab <==
5	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	6894	7012	
==>inning
    $P1 = pop op2
    unshift op2, $P1
    inc op1
    goto neg

done:
nothing:
    .return(op2)
.end

.sub 'dya <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	1116	1211	
==>r mapper\n";
}
sub post_branch {
	die "post_branch not implemented for current stack to register <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828811	828902	
==>ROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_pmc(entry->entry);\n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829879	829970	
==>ROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_pmc(entry->entry);\n <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30407	30517	
==>)
							if defined $::RD_TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32607	32717	
==>)
							if defined $::RD_TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38220	38330	
==>)
							if defined $::RD_TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28332	28441	
==>)
					if defined $::RD_TRACE;').'

			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21420	21528	
==>)
					if defined $::RD_TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched <==
5	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2394	2599	
==>r .= "\r",      # carriage return
                last;
            s/^\\t//
                and $str .= "\t",      # horizontal tab
                last;
            s/^\\v//
                and $str <==
5	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3908	4113	
==>r .= "\r",      # carriage return
                last;
            s/^\\t//
                and $str .= "\t",      # horizontal tab
                last;
            s/^\\v//
                and $str <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	35706	35805	
==>will exit with how many failed.  If
you run less (or more) tests than you planned, the missing (or e <==
5	/Users/nnunley/parrot/lib/Test/More.pm	33777	33876	
==>will exit with how many failed.  If
you run less (or more) tests than you planned, the missing (or e <==
5	/Users/nnunley/parrot/lib/Test/Simple.pm	2573	2672	
==>will exit with how many failed.  If
you run less (or more) tests than you planned, the missing (or e <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072278	1072407	
==>n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074463	1074592	
==>n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076648	1076777	
==>n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078834	1078963	
==>n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{ <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	884	999	
==>rt
of the document.

=cut

sub do_beginning 
{
    my $self = shift;

    # We have to do this because it has the si <==
5	/Users/nnunley/parrot/lib/Test/More.pm	33645	33745	
==>}

=back


=head1 EXIT CODES

If all your tests passed, Test::Builder will exit with zero (which is
n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634759	634847	
==>n  class = interpreter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new_from_string(inte <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635877	635965	
==>n  class = interpreter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new_from_string(inte <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636995	637083	
==>n  class = interpreter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new_from_string(inte <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638114	638202	
==>n  class = interpreter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new_from_string(inte <==
5	/Users/nnunley/parrot/config/auto/readline.pm	1872	1985	
==>=> $has_readline,
	);
    }
    unless ($has_readline) {

        # The Config::Data settings might have changed f <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647070	647336	
==>"JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647830	648096	
==>"JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648591	648857	
==>"JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649353	649619	
==>"JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function" <==
5	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	3811	3920	
==>, "Import error when loading $module: $!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$module imp <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	11695	11791	
==>r an unsupported encoding.",
      $suggestion, "  [$encmodver\'s supported encodings are: @suppo <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793392	793478	
==>57 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794297	794383	
==>57 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795202	795288	
==>57 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796108	796194	
==>57 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{ <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22904	23027	
==>itle =~ m<^\s*$>; # make sure it's contentful!
      last;
      
    } else {
      DEBUG and $pattern and print "Leading p <==
5	/Users/nnunley/parrot/config/auto/gc.pm	1136	1251	
==>tes
        if ($conf->data->get('i_malloc')) {
            $conf->data->set(malloc_header => 'malloc.h');
        } <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28120	28219	
==>lastexpected;
				$Parse::RecDescent::unexpected
				   = ($lastsep||"").$text;
			}'.($::RD_NO_TRAC <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30194	30293	
==>lastexpected;
				$Parse::RecDescent::unexpected
				   = ($lastsep||"").$text;
			}'.($::RD_NO_TRAC <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32395	32494	
==>lastexpected;
				$Parse::RecDescent::unexpected
				   = ($lastsep||"").$text;
			}'.($::RD_NO_TRAC <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490454	490766	
==>ore",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 562,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 5 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763226	763501	
==>M({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764079	764354	
==>M({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764932	765207	
==>M({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765786	766061	
==>M({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
5	/Users/nnunley/parrot/languages/urm/urm-old.pl	902	1018	
==>ile (1) {
    my $line = $program[$pos -1];
    if ($pos > @program) {last;}
    print "($pos";
    foreach my $reg ( <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2590	2701	
==>self{NBERR}};
}

sub YYRecovering {
	my($self)=shift;

	${$$self{ERRST}} != 0;
}

sub YYAbort {
	my($s <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	29157	29264	
==>feedme;
	my $t=$seg;
	$seg=~s/^_//;       # Remove the _
	$seg=~tr/A-Z/a-z/;  # lowercase
	$seg=~s/userfunc_ <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2478	2579	
==>self{NBERR}};
}

sub YYRecovering {
	my($self)=shift;

	${$$self{ERRST}} != 0;
}

sub YYAbort {
	my($s <==
5	/Users/nnunley/parrot/Configure.pl	4061	4145	
==>EE ALSO

F<config/init/data.pl>, F<lib/Parrot/Configure/RunSteps.pm>,
F<lib/Parrot/Co <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641788	642149	
==>LAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 717,
                  "ARGS" => [
                              "i",
                              "p" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926519	926644	
==>FO_BUFUSED:  {{\@1}} = {{\@2}}->bufused;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927989	928114	
==>FO_BUFUSED:  {{\@1}} = {{\@2}}->bufused;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929459	929584	
==>FO_BUFUSED:  {{\@1}} = {{\@2}}->bufused;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930930	931055	
==>FO_BUFUSED:  {{\@1}} = {{\@2}}->bufused;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2} <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	9611	9749	
==>/:[-\.0-9]/s;
            # The legal under-0x80 Name characters that 
            #  an XML Name still can't start with.
    }
    
    $t <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584463	584558	
==>up(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_ex <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585538	585633	
==>up(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_ex <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597979	598074	
==>up(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_ex <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599026	599121	
==>up(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_ex <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17162	17281	
==>umably that won't work right
        #  under non-ASCII charsets.  Something should be done about that.
    }
    
    r <==
5	/Users/nnunley/parrot/tools/dev/lib_deps.pl	2695	2810	
==>_include;
    my ($file, $function, $variable);
    while (<F>) {
        
        if (/---------------------------- <==
5	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2155	2261	
==>umably that won't work right
    #  under non-ASCII charsets.  Something should be done about that.
  }
  r <==
5	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10578	10684	
==>umably that won't work right
    #  under non-ASCII charsets.  Something should be done about that.
  }
  r <==
5	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2258	2364	
==>umably that won't work right
    #  under non-ASCII charsets.  Something should be done about that.
  }
  r <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	745	858	
==>URR];
		feedme();
		next if $var eq ",";
		my $array=0;
		if ($syms[CURR] eq "(") {
			$array=1;
			while($syms[CU <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8011	8111	
==>fier name!"  unless defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_sym <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8658	8758	
==>fier name!"  unless defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_sym <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9326	9426	
==>fier name!"  unless defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_sym <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9995	10095	
==>fier name!"  unless defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_sym <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2015	2120	
==>n variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->type;
  }
  else {
    $left_ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1973	2078	
==>n variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->type;
  }
  else {
    $left_ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1895	2000	
==>n variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->type;
  }
  else {
    $left_ <==
5	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1585	1685	
==>_handle_element_end {
  DEBUG and print "-- $_[1]\n";
  print {$_[0]{'output_fh'}}
   '  ' x --$_[0]{ <==
5	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1515	1615	
==>_handle_element_end {
  DEBUG and print "-- $_[1]\n";
  print {$_[0]{'output_fh'}}
   '  ' x --$_[0]{ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	570	687	
==>$class;
}


#
# scan_line()
#

sub scan_line
{
  my $self = shift;
  my ($text, $file, $line) = @_;

  my $temp = $tex <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712648	712742	
==>n      string_str_index(interpreter, s,\n\tconst_string(interpreter, \"e\"), 0) == -1)\n    PIO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713755	713849	
==>n      string_str_index(interpreter, s,\n\tconst_string(interpreter, \"e\"), 0) == -1)\n    PIO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720115	720209	
==>n      string_str_index(interpreter, s,\n\tconst_string(interpreter, \"e\"), 0) == -1)\n    PIO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721315	721409	
==>n      string_str_index(interpreter, s,\n\tconst_string(interpreter, \"e\"), 0) == -1)\n    PIO <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	45514	45628	
==>ASCIIland, we can't assume that \xA0 == nbsp.)
       
       # Note that if you apply nbsp_for_S to text, and so t <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591475	591568	
==>= {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592685	592778	
==>= {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593895	593988	
==>= {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595106	595199	
==>= {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072685	1072793	
==>o correction necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074870	1074978	
==>o correction necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077055	1077163	
==>o correction necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079241	1079349	
==>o correction necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}} <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37698	37792	
==>type_trans
INS_TRANS_PUSH_LOOP_$name:
PIR

		# Finally, call post_call and append code it gener <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666073	666347	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "e <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726816	727090	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "e <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954344	954618	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "e <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955135	955409	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "e <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012970	1013244	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "e <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	31796	31932	
==>e 109
		ACTIONS => {
			"," => 151
		},
		DEFAULT => -9
	},
	{#State 110
		DEFAULT => -38
	},
	{#State 111
		ACTIONS => {
			" <==
5	/Users/nnunley/parrot/lib/Parrot/Test.pm	10389	10510	
==>> 'like',
        pasm_output_is     => 'is_eq',
        pasm_output_isnt   => 'isnt_eq',
        pasm_output_like   => 'l <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27652	27747	
==>?'if':'unless')
		. ' ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and '
		. ($check->{itempos}? ' <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29762	29857	
==>?'if':'unless')
		. ' ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and '
		. ($check->{itempos}? ' <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31859	31954	
==>?'if':'unless')
		. ' ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and '
		. ($check->{itempos}? ' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492798	493073	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mo <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493559	493834	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mo <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499533	499808	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mo <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692018	692293	
==>, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "m <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500296	500570	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "m <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	53974	54107	
==>etty($hr->{$_}),
            sort keys %$hr ) ) . "}" ;
      $x;
    } elsif(!length($_)) { q{''} # empty string
    } elsif(
      $ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099058	1099178	
==>ntal.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100256	1100376	
==>ntal.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101454	1101574	
==>ntal.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102653	1102773	
==>ntal.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18509	18614	
==>0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19222	19327	
==>0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19710	19815	
==>0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20199	20304	
==>0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20688	20793	
==>0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663162	663456	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663933	664227	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664705	664999	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665481	665775	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYP <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23206	23306	
==>ahead"} ? '$text = $_savetext;' : '' ) .'
'
}

1;

package Parse::RecDescent::UncondReject;

sub issu <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406853	407150	
==>,
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 47 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407765	408062	
==>,
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 47 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408663	408960	
==>,
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 47 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	410499	410796	
==>,
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 47 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411391	411688	
==>,
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 47 <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	70	168	
==>5.671857Z svm  $

package Scheme::Test;

use strict;
use vars qw(@EXPORT @ISA);

use Parrot::Config <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905319	905404	
==>s/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2}}, {{\@3}}, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906338	906423	
==>s/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2}}, {{\@3}}, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907357	907442	
==>s/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2}}, {{\@3}}, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908377	908462	
==>s/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2}}, {{\@3}}, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1108937	1109052	
==>tion(interpreter, NULL, NO_CLASS,\n                \"Can only use a Key or String PMC with new\");\n    }\n    {{+=3 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233863	233965	
==>BODY" => "#line 599 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234767	234869	
==>BODY" => "#line 599 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235671	235773	
==>BODY" => "#line 599 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	60489	60581	
==>provided to C<extract_bracketed> was not one of
C<'()[]E<lt>E<gt>{}'>.

=item  C<Did not find <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18503	18595	
==>stant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19216	19308	
==>stant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19704	19796	
==>stant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20193	20285	
==>stant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20682	20774	
==>stant(0);
  my $temp_0 = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5652	5740	
==>em C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTran <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3228	3316	
==>em C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTran <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2956	3044	
==>em C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTran <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4634	4722	
==>em C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTran <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	4018	4106	
==>em C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTran <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061954	1062163	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062823	1063032	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063692	1063901	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064562	1064771	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065435	1065644	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16045	16220	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "AR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16817	16992	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "AR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	17591	17766	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "AR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18386	18561	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "AR <==
5	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	5128	5236	
==>GI->header;

  my $category = sub {
    return sprintf "%s / %s runcore on %s-%s-%s",
      $_[0]->{DEVEL} eq <==
5	/Users/nnunley/parrot/tools/dev/lib_deps.pl	7606	7740	
==>ath.h
asinf       math.h
asinh       math.h
asinhf      math.h
asinhl      math.h
asinl       math.h
atan        math.h
atan2       mat <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73154	73250	
==>, {{\@1}}, {{\@4}}, F2DPTR(p));\n      PObj_get_FLAGS({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74756	74852	
==>, {{\@1}}, {{\@4}}, F2DPTR(p));\n      PObj_get_FLAGS({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76358	76454	
==>, {{\@1}}, {{\@4}}, F2DPTR(p));\n      PObj_get_FLAGS({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77961	78057	
==>, {{\@1}}, {{\@4}}, F2DPTR(p));\n      PObj_get_FLAGS({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646889	647179	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647649	647939	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648410	648700	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649172	649462	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGD <==
5	/Users/nnunley/parrot/tools/dev/parrot_api.pl	4305	4414	
==>nd.h);

for my $h (@H) {
    if (open(H, $h)) {
	while (<H>) {
	    if (/^\w+\s+(Parrot_\w+)\(/) {
		$ParrotAP <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	1626	1727	
==>lasses that use something like
    # IMCC's facilities for creating local vars.
    return $self->allo <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	37058	37159	
==>.

This program is free software; you can redistribute it and/or 
modify it under the same terms as Pe <==
5	/Users/nnunley/parrot/lib/Test/More.pm	37467	37568	
==>.

This program is free software; you can redistribute it and/or 
modify it under the same terms as Pe <==
5	/Users/nnunley/parrot/lib/Test/Simple.pm	6427	6528	
==>.

This program is free software; you can redistribute it and/or 
modify it under the same terms as Pe <==
5	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16474	16574	
==>.

This program is free software; you can redistribute it and/or modify it
under the same terms as Pe <==
5	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1688	1788	
==>.

This program is free software; you can redistribute it and/or modify it
under the same terms as Pe <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27347	27452	
==>tion, just take that. If not, we need
		# to generate it from the "to generate" instruction directive.
		$ <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29814	29919	
==>tion, just take that. If not, we need
		# to generate it from the "to generate" instruction directive.
		$ <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33232	33337	
==>tion, just take that. If not, we need
		# to generate it from the "to generate" instruction directive.
		$ <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34486	34591	
==>tion, just take that. If not, we need
		# to generate it from the "to generate" instruction directive.
		$ <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36896	37001	
==>tion, just take that. If not, we need
		# to generate it from the "to generate" instruction directive.
		$ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926416	926542	
==>O_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1}} = { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927886	928012	
==>O_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1}} = { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929356	929482	
==>O_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1}} = { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930827	930953	
==>O_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1}} = { <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	3189	3274	
==>::Section::Tools>

=item C<Parrot::Docs::Section::BigNum>

=item C<Parrot::Docs::Secti <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	8493	8616	
==>ntally
    # store, so we turn it into a boolean.
    $test = $test ? 1 : 0;

    unless( $self->{Have_Plan} ) {
        req <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926127	926246	
==>R2UINTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}-> <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927597	927716	
==>R2UINTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}-> <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929067	929186	
==>R2UINTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}-> <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930538	930657	
==>R2UINTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}-> <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	14	161	
==>ckage Pod::Simple::Debug;
use strict;

sub import {
  my($value,$variable);
  
  if(@_ == 2) {
    $value = $_[1];
  } elsif(@_ == 3) {
    ($variab <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2330	2423	
==>he specified op argument type (see
C<Parrot::OpTrans>) and value. C<$op> is an instance of C<P <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3422	3515	
==>he specified op argument type (see
C<Parrot::OpTrans>) and value. C<$op> is an instance of C<P <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3566	3659	
==>he specified op argument type (see
C<Parrot::OpTrans>) and value. C<$op> is an instance of C<P <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3221	3314	
==>he specified op argument type (see
C<Parrot::OpTrans>) and value. C<$op> is an instance of C<P <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	14600	14821	
==>o next
#          tryS: S or tryT
#                push 1
#                goto next
#          tryT: T or lastback
#                push 2
#                goto next
#          back: popint -> I0
#                eq I0, 0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	339544	339718	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340542	340716	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341541	341715	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342540	342714	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIR <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39040	39261	
==>exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39905	40126	
==>exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40752	40973	
==>exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41600	41821	
==>exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
5	/Users/nnunley/parrot/tools/build/pmc2c.pl	17072	17184	
==>p_pmc {
    my ($include, @files) = @_;
    # help these dumb 'shells' that are no shells
    @files = glob $file <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8145	8273	
==>if (@_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } el <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8927	9055	
==>if (@_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } el <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7798	7926	
==>if (@_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } el <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8587	8715	
==>if (@_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } el <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59438	59539	
==>seunneg("a new (uncommitted) production",
				    0, $lookahead, $line) or next;

			$prod->check_pend <==
5	/Users/nnunley/parrot/lib/Test/More.pm	14636	14750	
==>y, very, very sparingly.

=cut

sub pass (;$) {
    $Test->ok(1, @_);
}

sub fail (;$) {
    $Test->ok(0, @_);
}

= <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2026	2128	
==>on) to see if we need to instate a stack type state
	# that was propogated to this instruction. If we d <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	3398	3492	
==>self->name } });
  $_->sax($handler) foreach $self->args;
  $handler->end_element({ Name => 'ca <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106305	1106397	
==>tion(interpreter, NULL, E_ValueError,\n\t\t\"type number out of range\");\n    {{\@1}} = inte <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107281	1107373	
==>tion(interpreter, NULL, E_ValueError,\n\t\t\"type number out of range\");\n    {{\@1}} = inte <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	10981	11090	
==>mps_ref}, "PMC *t_$temp_num;";
        push @{$extra_preamble_ref},
             "t_$temp_num = GET_NCI_P($reg <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	9993	10101	
==>mps_ref}, "PMC *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_P($reg <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	10385	10493	
==>mps_ref}, "PMC *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_P($reg <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	11584	11692	
==>mps_ref}, "PMC* t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_P($reg <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	13148	13256	
==>mps_ref}, "PMC *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_P($reg <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672421	672715	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673193	673487	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673963	674257	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	674734	675028	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	477	571	
==>t house-style provided by C<Parrot::HTMLPage>.

=head2 Instance Methods

=over

=cut

package P <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454720	455045	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455575	455900	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456430	456755	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457284	457609	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458139	458464	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717476	717739	
==>=> "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718407	718670	
==>=> "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719339	719602	
==>=> "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720538	720801	
==>=> "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
5	/Users/nnunley/parrot/tools/build/pmc2c.pl	10973	11092	
==>s*
        \( ([^\(]*) \)  #parameters
    }sx;

    my ($pre, $classname, $flags)   = parse_flags(\$code);
    my ($cla <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539861	540158	
==>",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 62 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541112	541409	
==>",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 62 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542364	542661	
==>",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 62 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543616	543913	
==>",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 62 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544951	545248	
==>",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 62 <==
5	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	5517	5648	
==>rg->{type} eq 'int' ? 'TclInt' : 'TclString';
            my $quote   = $arg->{type} eq 'int' ? ''       : "'";
            my $defa <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	663	767	
==>r;
    $count++;
    ($count, $expr) = _build_tree ($tokens, $count);
    push @{$temp->{children}}, $exp <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	880	984	
==>r;
    $count++;
    ($count, $expr) = _build_tree ($tokens, $count);
    push @{$temp->{children}}, $exp <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1094	1198	
==>r;
    $count++;
    ($count, $expr) = _build_tree ($tokens, $count);
    push @{$temp->{children}}, $exp <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1318	1422	
==>r;
    $count++;
    ($count, $expr) = _build_tree ($tokens, $count);
    push @{$temp->{children}}, $exp <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471323	471650	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472310	472637	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473297	473624	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474287	474614	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475278	475605	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	263	360	
==>use warnings";

package Jako::Parser;

use Carp;

use base qw(Jako::Processor);

use Jako::Constru <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591564	591655	
==>\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592774	592865	
==>\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593984	594075	
==>\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595195	595286	
==>\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\" <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27050	27178	
==>);

    foreach my $op ( @{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	30581	30709	
==>);

    foreach my $op ( @{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27733	27859	
==>);
    foreach my $op ( @{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	35130	35256	
==>);
    foreach my $op ( @{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break <==
5	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	6620	6738	
==>wline)
    s/^ {0,1}(\S)/  $1/mg; # minimum indent
    s/^\s*$//s;            # normalize emptiness
    &clip_excess_li <==
5	/Users/nnunley/parrot/tools/dev/install_files.pl	2923	3095	
==>r     => '',
                exec_prefix => '/usr',
                bindir      => '/usr/bin',
                libdir      => '/usr/lib',
                includedir  => '/us <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32772	32883	
==>\n";
		    $pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			    "typeinfo for rule $rule->{'name'}");
		    $pir . <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26780	26879	
==>\n";
		$pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir . <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28496	28595	
==>\n";
		$pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir . <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36478	36577	
==>\n";
		$pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir . <==
5	/Users/nnunley/parrot/config/auto/sizes.pm	1069	1246	
==>gefloatvalsize => 8,
            int2_t           => 'int',
            int4_t           => 'int',
            float4_t         => 'double',
            float8_t         => 'doub <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7296	7421	
==>_desc) = @_;
    $reg = value($reg);

    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        retu <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6938	7063	
==>_desc) = @_;
    $reg = value($reg);

    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        retu <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9396	9520	
==>_desc) = @_;
    $reg = value($reg);
    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        retu <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9090	9214	
==>_desc) = @_;
    $reg = value($reg);
    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        retu <==
5	/Users/nnunley/parrot/tools/build/ops2pm.pl	2719	2827	
==>() if $help_flag;
Usage() unless @ARGV;


#
# Read in the first ops file.
#

my $package = "core";
my $moddir <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039314	1039404	
==>" => "#line 120 \"src/ops/var.ops\"\n    Parrot_store_global(interpreter, {{\@1}}, {{\@2}}, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040206	1040296	
==>" => "#line 120 \"src/ops/var.ops\"\n    Parrot_store_global(interpreter, {{\@1}}, {{\@2}}, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041098	1041188	
==>" => "#line 120 \"src/ops/var.ops\"\n    Parrot_store_global(interpreter, {{\@1}}, {{\@2}}, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041991	1042081	
==>" => "#line 120 \"src/ops/var.ops\"\n    Parrot_store_global(interpreter, {{\@1}}, {{\@2}}, <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	741	869	
==>_____|
       |           |
    CSwitch       CGP

=head2 Class Methods

=over 4

=cut

package Parrot::OpTrans;

use strict;
use <==
5	/Users/nnunley/parrot/config/gen/platform.pm	514	628	
==>args        = qw(miniparrot verbose);

sub runstep {
    my ($self, $conf) = @_;

    my $verbose  = $conf->options <==
5	/Users/nnunley/parrot/config/auto/gcc.pm	472	578	
==>args = qw(miniparrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options <==
5	/Users/nnunley/parrot/config/auto/memalign.pm	488	594	
==>args = qw(miniparrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options <==
5	/Users/nnunley/parrot/config/auto/signal.pm	433	539	
==>args = qw(miniparrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90802	90950	
==>Y" => "#line 43 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91656	91804	
==>Y" => "#line 43 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92510	92658	
==>Y" => "#line 43 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	49172	49282	
==>o scream if under-0x20 literals are found in the input, or
under-E<32> E codes are found in the tree. And ditto <==
5	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	2878	2976	
==>able ) {
    print STDERR "creating table: '$table{$name}' (charset: $name)\n";
    setlocale(LC_CT <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453668	453889	
==>"CODE" => 520,
                  "ARGS" => [
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 230 \"src/ops/math.ops\"\n  {{\@1}} += {{ <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31966	32087	
==>=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33543	33664	
==>=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38560	38681	
==>=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40600	40721	
==>=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if <==
5	/Users/nnunley/parrot/tools/build/pbc2c.pl	1787	1896	
==>my @pc_list;
    my @blocks;
    my %opcodes;

    print <<END_C;
#include "parrot/parrot.h"
#include "parrot/ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647026	647320	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647786	648080	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648547	648841	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649309	649603	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	18196	18302	
==>ules', 0,
sub
#line 75 "lib/Regex/Grammar.y"
{ return []; }
	],
	[#Rule 3
		 'rule', 4,
sub
#line 79 "lib/R <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	71943	72042	
==>ON

		if ($rule->isleftrec($rules))
		{
			_error("Rule \"$rule->{name}\" is left-recursive.");
			_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39002	39093	
==>PT_doomed)\n    _exit({{\@2}});\n  do_exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39867	39958	
==>PT_doomed)\n    _exit({{\@2}});\n  do_exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40714	40805	
==>PT_doomed)\n    _exit({{\@2}});\n  do_exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41562	41653	
==>PT_doomed)\n    _exit({{\@2}});\n  do_exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3} <==
5	/Users/nnunley/parrot/config/auto/headers.pm	1161	1269	
==>ants this order:
    #include <sys/types.h>
    #include <sys/socket.h>
    #include <netinet/in.h>
    #incl <==
5	/Users/nnunley/parrot/tools/dev/cc_flags.pl	486	581	
==>akefile> to process the flags to pass to the
compiler for each C file.

See F<config/gen/cflags/ <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	52350	52439	
==>irst successfully
extracted substring removed from it. In all contexts
C<extract_multiple> <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786138	786225	
==>ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed_int(interpreter, {{\@2}}, {{\@3} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787049	787136	
==>ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed_int(interpreter, {{\@2}}, {{\@3} <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	54774	54906	
==>3] );
        }
	],
	[#Rule 71
		 'exp', 3,
sub
#line 393 "Lua\lua51.yp"
{
            BuildLogop( $_[0], $_[1], $_[2], $_[3] <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591449	591546	
==>\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_nam <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592659	592756	
==>\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_nam <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593869	593966	
==>\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_nam <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595080	595177	
==>\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_nam <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	1432	1540	
==>n
{
  return shift->{TOKEN};
}

sub code
{
  return shift->{CODE};
}

sub name
{
  return shift->{NAME};
}

s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353746	353990	
==>eter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354491	354735	
==>eter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359440	359684	
==>eter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360188	360432	
==>eter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360958	361202	
==>eter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151126	151388	
==>eter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152104	152366	
==>eter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172354	172616	
==>eter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173332	173594	
==>eter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot <==
5	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	7491	7606	
==>tml for writing: $!\n";

    print OUT page_header("File Coverage Summary");
    print OUT qq(
            <i>You ma <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072816	1072931	
==>- y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075001	1075116	
==>- y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077186	1077301	
==>- y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079372	1079487	
==>- y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}} <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	69475	69583	
==>generated parser code!");
			$@ =~ s/at grammar/in grammar at/;
			_hint($@);
		}
	}

	if ($ERRORS and !_verb <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793411	793502	
==>s\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794316	794407	
==>s\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795221	795312	
==>s\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796127	796218	
==>s\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{ <==
5	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1363	1454	
==>::Simple::Text>, L<Pod::Spell>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. <==
5	/Users/nnunley/parrot/lib/Test/More.pm	22422	22522	
==>ammatic todo list.  You know
how much work is left to be done, you're aware of what bugs there are,
a <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579283	579378	
==>n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580588	580683	
==>n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581893	581988	
==>n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583199	583294	
==>n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7618	7711	
==>ype_of_ident(NAME)

This is a shortcut method that uses find_symbol() to locate a matching
sym <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72550	72640	
==>src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  f <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74152	74242	
==>src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  f <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75754	75844	
==>src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  f <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77357	77447	
==>src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  f <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12245	12348	
==>1) : '';
}

sub hasleftmost ($$)
{
	my ($self, $ref) = @_;
	return ${$self->{"items"}}[0] eq $ref  if sc <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469345	469440	
==>L den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionErr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470220	470315	
==>L den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionErr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478818	478913	
==>L den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionErr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479710	479805	
==>L den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionErr <==
5	/Users/nnunley/parrot/lib/Pod/Escapes.pm	3000	3135	
==>in virtu\)
 #           acute looks like / (as in re/sume/)
 #           circumflex looks like ^ (as in papier ma^che/)
 #           uml <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6721	6841	
==>g & 0x10
#DBG>				and	$dbgerror
#DBG>				and	$$errstatus == 0
#DBG>				and	do {
#DBG>					print STDERR "**End of Erro <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8594	8710	
==>g & 0x10
#DBG>			and	$dbgerror
#DBG>			and	$$errstatus == 0
#DBG>			and	do {
#DBG>				print STDERR "**End of Erro <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6408	6524	
==>g & 0x10
#DBG>				and	$dbgerror
#DBG>				and	$$errstatus == 0
#DBG>				and	do {
#DBG>					print STDERR "**End of Erro <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8206	8318	
==>g & 0x10
#DBG>			and	$dbgerror
#DBG>			and	$$errstatus == 0
#DBG>			and	do {
#DBG>				print STDERR "**End of Erro <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072912	1073264	
==>};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075097	1075449	
==>};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077282	1077634	
==>};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079468	1079820	
==>};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6429	6535	
==>process_item_text_or_head_start_token
{
    my $self = shift;
    my $token = shift;
    my $tagname = $tok <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977211	977540	
==>ine",
                  "CODE" => 1097,
                  "ARGS" => [
                              "i",
                              "i",
                              "s",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/strin <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926555	926713	
==>sed;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928025	928183	
==>sed;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929495	929653	
==>sed;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930966	931124	
==>sed;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n", <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	20816	20974	
==>$treelet->[$i][1]{$attrname} ),
               " as an attribute value to tweak.\n";
            }
          }
        }
      }
    }
  }
  DEBUG > 2 and prin <==
5	/Users/nnunley/parrot/config/auto/funcptr.pm	1109	1201	
==>h to continue without JIT support, please re-run this script
With the '--jitcapable=0' argume <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2917	3009	
==>tart_address($address)>

Returns the C code for C<restart ADDRESS($address)>.

=cut

sub rest <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3786	3878	
==>tart_address($address)>

Returns the C code for C<restart ADDRESS($address)>.

=cut

sub rest <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3516	3608	
==>tart_address($address)>

Returns the C code for C<restart ADDRESS($address)>.

=cut

sub rest <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072650	1072766	
==>/\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074835	1074951	
==>/\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077020	1077136	
==>/\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079206	1079322	
==>/\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2 <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	30225	30330	
==>ving/restoring the "rxlocals" gathered while
    # rewriting the regex
    my @save_rxlocals;
    my @rest <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579661	579918	
==>@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580966	581223	
==>@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582271	582528	
==>@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583577	583834	
==>@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13870	13982	
==>e loop control statements to function properly.
      #
      # Put on an empty continue block and then pop it ba <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5469	5569	
==>', 'set', [$pair.'[0]',$item]);
      $self->_add_inst ('', 'set', [$pair.'[1]',$return]);
      $sel <==
5	/Users/nnunley/parrot/tools/build/pbc2c.pl	4008	4106	
==>die "Could not locate enternative op!\n" unless defined $enternative;

    # Copy original bytecode <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17020	17114	
==>', 'set',[$pair.'[0]',$item]);
    $self->_add_inst ('', 'set',[$pair.'[1]',$return]);
    $sel <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	39505	39597	
==>example, suppose the start tag "/para" introduces a paragraph, which then
continues until the <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6508	6599	
==>', 'set', [$pair.'[0]',$item]);
  $self->_add_inst('', 'set', [$pair.'[1]',$return]);
  $sel <==
5	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	9139	9246	
==>|| die "Unable to read MANIFEST: $!\n";

    my %files_in_dir_nocase;
    my %files_in_dir_8dot3;
    my $li <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72998	73093	
==>erpreter, enum_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(interpreter, enum_class_NCI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74600	74695	
==>erpreter, enum_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(interpreter, enum_class_NCI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76202	76297	
==>erpreter, enum_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(interpreter, enum_class_NCI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77805	77900	
==>erpreter, enum_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(interpreter, enum_class_NCI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202785	203061	
==>, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203716	203992	
==>, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204647	204923	
==>, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210332	210608	
==>, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211312	211588	
==>, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5135	5255	
==>my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $s <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1457	1577	
==>my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $s <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3198	3318	
==>my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572441	572705	
==>0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573350	573614	
==>0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574260	574524	
==>0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575063	575327	
==>0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inl <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	14848	14980	
==>f} = 1;
    }
    $make_f = 1 unless $f =~ /lambda/;
}

sub binary
{
    my ($op, $cmt) = @_;
    my $r = pop @stack;
    my $l = pop <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117888	118115	
==>Y" => "#line 226 \"src/ops/bit.ops\"\n  {{\@1}} >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118627	118854	
==>Y" => "#line 226 \"src/ops/bit.ops\"\n  {{\@1}} >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22076	22182	
==>self->require_value);
        $op    = $self->require_infix_rel->text;
        $right = Jako::Construct::Ex <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23009	23115	
==>self->require_value);
        $op    = $self->require_infix_rel->text;
        $right = Jako::Construct::Ex <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24655	24761	
==>self->require_value);
        $op    = $self->require_infix_rel->text;
        $right = Jako::Construct::Ex <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	8054	8155	
==>$out) unless $self->no_header;
    exit(0);
}

=back

=head2 Running tests

These actually run the tes <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869634	870054	
==>IRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 987,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic"
                            ],
                  "BODY" = <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30813	30923	
==>f the item if it's a number or bullet.
          DEBUG and print " Item is of type ", $para->[0], " under $over <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	31778	31888	
==>f the item if it's a number or bullet.
          DEBUG and print " Item is of type ", $para->[0], " under $over <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34101	34211	
==>f the item if it's a number or bullet.
          DEBUG and print " Item is of type ", $para->[0], " under $over <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9074	9162	
==>offset, q{Parse::RecDescent::OffsetCounter}, \$text, $thisparser, 1;
	':'') . ($parser->{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	331823	332118	
==>fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333100	333395	
==>fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334378	334673	
==>fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335656	335951	
==>fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8753	8843	
==>moves stack?
${ITEMP0} = elements lazy_moves
if ${ITEMP0} > 0 goto POST_STORE_${CURIC}_LAZY <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225506	225653	
==>umber(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226447	226594	
==>umber(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	753	845	
==>Pod::Simple::PullParserToken> and inherits all its methods,
and adds these methods:

=over

= <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1179	1271	
==>Pod::Simple::PullParserToken> and inherits all its methods,
and adds these methods:

=over

= <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	659	751	
==>Pod::Simple::PullParserToken> and inherits all its methods,
and adds these methods:

=over

= <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27793	27907	
==>as") {
				feedme();  # Get the as
				feedme();
				push(@params, $syms[CURR], $a);
			} elsif ($syms[NEXT] eq "(" <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	70186	70290	
==>/$EXACTLY/gco
	  || $grammar =~ m/$ATMOST/gco
	  || $grammar =~ m/$BETWEEN/gco && do { $min=$2; 1 }
	  || <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1032	1124	
==>ts
content, and then an end-token with the tagname of "head1".

=item $token->tagname(I<somes <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1460	1552	
==>ts
content, and then an end-token with the tagname of "head1".

=item $token->tagname(I<somes <==
5	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	270	362	
==>imple::PullParser')}

use Carp ();
BEGIN { *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBU <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478877	478970	
==>(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479769	479862	
==>(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483740	483833	
==>(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484739	484832	
==>(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485738	485831	
==>(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858692	858959	
==>er, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859696	859963	
==>er, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860700	860967	
==>er, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861705	861972	
==>er, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
5	/Users/nnunley/parrot/tools/dev/run_indent.pl	662	852	
==>ll C::Scan 
    ...

=cut

################################################################################

# the following #defined macros are really used as data types, and should
# be con <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154365	154662	
==>ddr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155268	155565	
==>ddr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156172	156469	
==>ddr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157076	157373	
==>ddr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157981	158278	
==>ddr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175605	175903	
==>ddr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 21 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176508	176806	
==>ddr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 21 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177412	177710	
==>ddr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 21 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178316	178614	
==>ddr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 21 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179221	179519	
==>ddr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 21 <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6719	6839	
==>bug & 0x10
#DBG>				and	$dbgerror
#DBG>				and	$$errstatus == 0
#DBG>				and	do {
#DBG>					print STDERR "**End of Er <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8592	8708	
==>bug & 0x10
#DBG>			and	$dbgerror
#DBG>			and	$$errstatus == 0
#DBG>			and	do {
#DBG>				print STDERR "**End of Er <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6406	6522	
==>bug & 0x10
#DBG>				and	$dbgerror
#DBG>				and	$$errstatus == 0
#DBG>				and	do {
#DBG>					print STDERR "**End of Er <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8204	8316	
==>bug & 0x10
#DBG>			and	$dbgerror
#DBG>			and	$$errstatus == 0
#DBG>			and	do {
#DBG>				print STDERR "**End of Er <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	2229	2337	
==>$1/; # Strip '{' and '}'.

      my $sym = $self->block->find_symbol($ident);

      $ident = Jako::Construct <==
5	/Users/nnunley/parrot/languages/urm/urm-old.pl	638	746	
==>if ($line =~ /out\((r\d+)/) { $outreg = $1 }
    if ($line =~ /^\d+:(.+)/) { 
	my $code = $1;
	# Some beautif <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584459	584554	
==>lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    rea <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585534	585629	
==>lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    rea <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597975	598070	
==>lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    rea <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599022	599117	
==>lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    rea <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939736	939979	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940627	940870	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941519	941762	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942411	942654	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1097479	1097589	
==>_get_string_keyed_int(interpreter, ns, i);\n            key = key_new_string(interpreter, tmp);\n            ke <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	2525	2631	
==>e  = $self->name;
  my @args  = $self->args;

  if ($type) {
    $handler->start_element({ Name => 'sub', A <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	131	223	
==>ense
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/Co <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	124	216	
==>ense
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/Co <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	122	214	
==>ense
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/Co <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	126	218	
==>ense
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/Co <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	39916	40064	
==>ong lines

          }
        }
        
        # Now the VerbatimFormatted hoodoo...
        if( $self->{'accept_codes'} and
            $self->{' <==
5	/Users/nnunley/parrot/config/inter/lex.pm	1687	1796	
==>et('ask')) {
        $prog = prompt($prompt, $prog ? $prog : $conf->data->get($util));
    }

    my ($stdout, <==
5	/Users/nnunley/parrot/config/inter/make.pm	1561	1670	
==>et('ask')) {
        $prog = prompt($prompt, $prog ? $prog : $conf->data->get($util));
    }

    my ($stdout, <==
5	/Users/nnunley/parrot/config/inter/yacc.pm	1701	1810	
==>et('ask')) {
        $prog = prompt($prompt, $prog ? $prog : $conf->data->get($util));
    }

    my ($stdout, <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	6678	6780	
==>his test to run and prints out
the appropriate headers.

=cut

sub expected_tests {
    my $self = shif <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084050	1084293	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085102	1085345	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086155	1086398	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087208	1087451	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629637	629741	
==>CLASS,\n            \"Class '%Ss' not found\", class);\n  {{\@1}} = pmc_new(interpreter, type);\n  {{+=3} <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12007	12104	
==>(.*?)\)      # capture argument list
     /"interpreter->vtables[$supertype].$method(" . full_argu <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	6353	6441	
==>item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=ite <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4569	4657	
==>item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=ite <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4546	4634	
==>item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=ite <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3930	4018	
==>item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=ite <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680971	681256	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681747	682032	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682521	682806	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683296	683581	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
5	/Users/nnunley/parrot/config/auto/gcc.pm	5690	5847	
==>tures.

        $conf->data->set(
            ccwarn     => "-ansi -pedantic",
            gccversion => undef
        );

        return $self;
    }

    $c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610646	610941	
==>ribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611548	611843	
==>ribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612451	612746	
==>ribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613357	613652	
==>ribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	52125	52223	
==>ction: stringify_lol($lol)
  my $string_form = '';
  _stringify_lol( $_[0] => \$string_form );
  re <==
5	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	2836	2952	
==>ince the
epoch.

=cut

sub modified_since
{
    my $self = shift;
    my $time = shift;
    
    return $self->stat-> <==
5	/Users/nnunley/parrot/config/init/hints/solaris.pm	3376	3491	
==>ta->get('linkflags');
            $conf->data->add(' ', linkflags => '-xlibmieee')
                unless $linkflags <==
5	/Users/nnunley/parrot/config/inter/ops.pm	424	528	
==>ining what opcode files should be compiled in';

@args = qw(ask ops);

sub runstep
{
    my ($self, $conf <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	660	751	
==>me/parrot/library'),
		$self->new_group('Dynamic Libraries', '', 'src/dynoplibs'),
	);
}

=b <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20711	20798	
==>imple::PullParserEndToken>.

L<HTML::TokeParser>, which inspired this.

=head1 COPYRIGHT <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129180	129478	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129918	130216	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130657	130955	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131511	131809	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132366	132664	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
5	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	4674	4769	
==>$b->{timestamp}[0]  <=> $a->{timestamp}[0]
    } @{ $cats{$_} })
    [0..MAX_SMOKES_OF_SAME_CATE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344359	344451	
==>= PIO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* string_c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345601	345693	
==>= PIO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* string_c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346843	346935	
==>= PIO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* string_c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348086	348178	
==>= PIO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* string_c <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	6012	6136	
==>sig .= $sig_char{$_};
            $_ eq 'J' && $reg_num--;
        }
    }

    print_function($sig, $ret, $args, [@arg], $re <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	13192	13298	
==>ative_path($file));
    
    # This is the docs file for the module.
    $file = $self->{TARGET}->file_with <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837215	837297	
==>ps/stack.ops\"\n  (void)stack_pop(interpreter, &CONTEXT(interpreter->ctx)->user_sta <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837947	838029	
==>ps/stack.ops\"\n  (void)stack_pop(interpreter, &CONTEXT(interpreter->ctx)->user_sta <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838681	838763	
==>ps/stack.ops\"\n  (void)stack_pop(interpreter, &CONTEXT(interpreter->ctx)->user_sta <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	839413	839495	
==>ps/stack.ops\"\n  (void)stack_pop(interpreter, &CONTEXT(interpreter->ctx)->user_sta <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477090	477183	
==>eter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477986	478079	
==>eter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480736	480829	
==>eter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481739	481832	
==>eter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482742	482835	
==>eter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18410	18515	
==>my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  m <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19123	19228	
==>my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  m <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19611	19716	
==>my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  m <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20100	20205	
==>my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  m <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20589	20694	
==>my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  m <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3	95	
==>perl -w
# Copyright (C) 2001-2004, The Perl Foundation.
# $Id: /parrot/lib/Parrot/OpTrans/CPr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572408	572672	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573317	573581	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574227	574491	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575030	575294	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	13508	13693	
==>cing\n"),
                           aop('advance', [ 1, $lastback ]),
                           aop('goto', [ $scan ]),
                  $next =>
              );

    return ($R_back <==
5	/Users/nnunley/parrot/lib/File/Which.pm	1773	1908	
==>le;
                # we can stop this loop as if it finds more aliases matching,
                # it'll just be the same result anyway <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080417	1080508	
==>{{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \"Illegal <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081482	1081573	
==>{{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \"Illegal <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082547	1082638	
==>{{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \"Illegal <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083613	1083704	
==>{{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \"Illegal <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5659	5745	
==>rrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::CS <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3235	3321	
==>rrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::CS <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2963	3049	
==>rrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::CS <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	4025	4111	
==>rrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::CS <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4641	4726	
==>rrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::C <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24785	24897	
==>rph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{childre <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25796	25908	
==>rph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{childre <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26684	26796	
==>rph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{childre <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27694	27806	
==>rph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{childre <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	2005	2105	
==>debug_level = 4;
 ...some stuff that uses Pod::Simple to do stuff, but which
  you DO want debug outp <==
5	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	301	423	
==>return bless {};
}


my %language_test_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    outpu <==
5	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	388	509	
==>return bless {};
}

my %language_test_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    outpu <==
5	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	438	554	
==>nt ) = @_;
 
    
    my $test_prog_args = $ENV{TEST_PROG_ARGS} || q{};
    my $lang_fn        = Parrot::Test::per_te <==
5	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	470	585	
==>return bless {};
}

my %language_test_map = (
    output_is   => 'is_eq',
    output_like => 'like',
    outpu <==
5	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	456	566	
==>nt ) = @_;

    my $test_prog_args = $ENV{TEST_PROG_ARGS} || q{};
    my $lang_fn        = Parrot::Test::per_te <==
5	/Users/nnunley/parrot/lib/Parrot/Op.pm	4086	4194	
==><arg_types()>

Returns the types of the op's arguments.

=cut

sub arg_types
{
    my $self = shift;

    ret <==
5	/Users/nnunley/parrot/config/auto/cgoto.pm	557	659	
==>my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('skippe <==
5	/Users/nnunley/parrot/config/auto/headers.pm	492	594	
==>my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('skippe <==
5	/Users/nnunley/parrot/config/auto/jit.pm	643	745	
==>my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('skippe <==
5	/Users/nnunley/parrot/config/gen/cpu.pm	555	657	
==>my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('skippe <==
5	/Users/nnunley/parrot/tools/build/ops2pm.pl	7652	7765	
==>r, @lines, %seen, %fixed, $fix);
    local *OP;
    $fix = 1;
    open OP, "< $file" or die "Can't open $file, err <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5627	5712	
==>arrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrede <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3203	3288	
==>arrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrede <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4609	4694	
==>arrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrede <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3993	4078	
==>arrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrede <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727079	727323	
==>"NAME" => "exchange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "io"
                               ],
                  "TYPE" => "functio <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727877	728121	
==>"NAME" => "exchange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "io"
                               ],
                  "TYPE" => "functio <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	728674	728918	
==>"NAME" => "exchange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "io"
                               ],
                  "TYPE" => "functio <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729468	729712	
==>"NAME" => "exchange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "io"
                               ],
                  "TYPE" => "functio <==
5	/Users/nnunley/parrot/tools/dev/run_indent.pl	3199	3327	
==>(sort keys %$typedefs) {
        $cmd .= " -T $_";
    }
    $cmd .= " $file";
    
    print "Running \"$cmd\"\n";
    system($c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147121	147318	
==>",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 98 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer( <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	532	618	
==>) unless UNIVERSAL::isa($dest, 'Jako::Construct::Expression::Value::Identifier');
  con <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	658	744	
==>) unless UNIVERSAL::isa($dest, 'Jako::Construct::Expression::Value::Identifier');
  con <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	649	735	
==>) unless UNIVERSAL::isa($dest, 'Jako::Construct::Expression::Value::Identifier');
  con <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	538	624	
==>) unless UNIVERSAL::isa($dest, 'Jako::Construct::Expression::Value::Identifier');
  con <==
5	/Users/nnunley/parrot/config/auto/m4.pm	875	1006	
==>eBSD
    my %m4_hangs = (freebsd => 1);

    if ($m4_hangs{$osname}) {
        $has_gnu_m4 = 0;
    } else {

        # This seems t <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151102	151213	
==>able->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152080	152191	
==>able->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172330	172441	
==>able->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173308	173419	
==>able->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  " <==
5	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	2081	2199	
==>urce files to miniparrot directory\n";

    foreach my $obj (@ARGV) {
        my $src = $obj;
        $src =~ s/\.o/\.c <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634840	635106	
==>ing(interpreter, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635958	636224	
==>ing(interpreter, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637076	637342	
==>ing(interpreter, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638195	638461	
==>ing(interpreter, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	44757	44861	
==>$formatting having a " " as the last character.
 
    DEBUG > 4 and print "Formatting <$formatting>    on <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687768	688126	
==>DIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 772,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 5 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121260	121582	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "A <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123956	124278	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "A <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124830	125152	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "A <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	3477	3565	
==>handler;
  
);

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516710	516983	
==>{{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517449	517722	
==>{{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518187	518460	
==>{{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518926	519199	
==>{{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub <==
5	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	4239	4357	
==>ding and trailing spaces.

sub _trim
{
    my $value = shift;

    $value =~ s/^\s+//;
    $value =~ s/\s+$//;

    ret <==
5	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	7188	7299	
==>ath_for_directory_with_name
{
    my $self = shift;
    my $name = shift || return;
    
    return File::Spec-> <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332637	332734	
==>ree(mode); */\n  /* TODO all results from string_to_cstring() need freeing\n     but this generate <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333915	334012	
==>ree(mode); */\n  /* TODO all results from string_to_cstring() need freeing\n     but this generate <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335193	335290	
==>ree(mode); */\n  /* TODO all results from string_to_cstring() need freeing\n     but this generate <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336472	336569	
==>ree(mode); */\n  /* TODO all results from string_to_cstring() need freeing\n     but this generate <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	6713	6832	
==>me} = 1;
	    print <<EOC;
	if argcP >= $i goto arg_ok
	    find_global $arg_name, "${arg}_$d"
EOC
	}
	print <<EOC;
arg_ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4848	4954	
==>c;
    my $pmc_reg = $compiler->temp_pmc();

    $compiler->emit("  $pmc_reg = new $pmc_type");
    $compil <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2911	3017	
==>c;
    my $pmc_reg = $compiler->temp_pmc();

    $compiler->emit("  $pmc_reg = new $pmc_type");
    $compil <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1214	1319	
==>c;
    my $pmc_reg = $compiler->temp_pmc();
    $compiler->emit("  $pmc_reg = new $pmc_type");
    $compil <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1208	1313	
==>c;
    my $pmc_reg = $compiler->temp_pmc();
    $compiler->emit("  $pmc_reg = new $pmc_type");
    $compil <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501037	501310	
==>{{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501776	502049	
==>{{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502514	502787	
==>{{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503253	503526	
==>{{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	16678	16775	
==>$post_load = $srm->post_load(0);
	$pir .= "### post_load (typed eh)\n";
	$pir .= sub_meta($post_lo <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	57939	58085	
==>1.yp"
{
            PushScopeF( $_[0] );
            PushScope( $_[0] );
        }
	],
	[#Rule 96
		 'function', 3,
sub
#line 508 "Lua\lua <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591589	591681	
==>on(interpreter, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592799	592891	
==>on(interpreter, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594009	594101	
==>on(interpreter, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595220	595312	
==>on(interpreter, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467055	467330	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ] <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467925	468200	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ] <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468796	469071	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ] <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469670	469945	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ] <==
5	/Users/nnunley/parrot/tools/build/c2str.pl	3123	3220	
==>tring_private_h or die "Can't write '$string_private_h': $!";
    print OUT <<"HEADER";
/* ex: set <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949989	950317	
==>rans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1069,
                  "ARGS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950948	951245	
==>rans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 10 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951908	952205	
==>rans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 10 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952868	953165	
==>rans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 10 <==
5	/Users/nnunley/parrot/editor/kate_syntax.pl	3549	3663	
==>loat" context="#stay" />
          <Int attribute="Int" context="#stay" />
END

print <<END;
          <RegExpr att <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18914	19010	
==>[$temp_0,$temp_1,"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19402	19498	
==>[$temp_0,$temp_1,"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19890	19986	
==>[$temp_0,$temp_1,"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20379	20475	
==>[$temp_0,$temp_1,"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20868	20964	
==>[$temp_0,$temp_1,"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('','set',[ <==
5	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1018	1118	
==>UG > 2 and print "Handling $_[1] end-event\n";
  shift @{$_[0]{'_currpos'}};
  DEBUG > 3 and print "S <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344321	344414	
==>g(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  /* string_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345563	345656	
==>g(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  /* string_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346805	346898	
==>g(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  /* string_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348048	348141	
==>g(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  /* string_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494365	494632	
==>\@1}} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495233	495500	
==>\@1}} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496101	496368	
==>\@1}} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7337	7460	
==>y now it's safe to consider the previous paragraph as done.
                
        push @$paras, $new; # the new incipient <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18815	18916	
==>ntime_jump=1;
		}
	}
}
sub parse_loop {
	my $do=pop @dos;
	if ($do->{needstmt} and not ( $syms[NEXT]=~ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793440	793648	
==>_integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794345	794553	
==>_integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795250	795458	
==>_integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796156	796364	
==>_integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
5	/Users/nnunley/parrot/config/inter/pmc.pm	805	920	
==>l $_ = <PMC>;
    close PMC;

    # Throw out everything but the pmclass declaration
    s/^.*?pmclass//s;
    s/\{. <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3628	3736	
==>arent block is not a module!")
        unless $self->block->kind eq 'module';

      my %module_props = $self <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6292	6400	
==>arent block is not a module!")
        unless $self->block->kind eq 'module';

      my %module_props = $self <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135428	135536	
==>],
                  "BODY" => "#line 326 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_xor(interpreter, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136322	136430	
==>],
                  "BODY" => "#line 326 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_xor(interpreter, {{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137216	137324	
==>],
                  "BODY" => "#line 326 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_xor(interpreter, {{ <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4234	4335	
==>2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		return(<<CODE, $result <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4498	4599	
==>2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		return(<<CODE, $result <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5134	5235	
==>2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		return(<<CODE, $result <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5510	5611	
==>2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		return(<<CODE, $result <==
5	/Users/nnunley/parrot/tools/dev/pbc_header.pl	460	556	
==>ion in the bytecode,
but can of course not assure that it will run correctly, when incompatible
c <==
5	/Users/nnunley/parrot/config/inter/progs.pm	2448	2545	
==>flags =~ s/-fno-strict-aliasing//g;
    $ccflags =~ s/-fnative-struct//g;
    $ccflags = integrate <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793420	793507	
==>{{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794325	794412	
==>{{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795230	795317	
==>{{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796136	796223	
==>{{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}} <==
5	/Users/nnunley/parrot/tools/dev/lib_deps.pl	10927	11057	
==>pl      math.h
fscanf      stdio.h
fseek       stdio.h
fsetpos     stdio.h
ftell       stdio.h
fwrite      stdio.h
getc        stdi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591629	591722	
==>Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592839	592932	
==>Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594049	594142	
==>Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595260	595353	
==>Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@ <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	2534	2634	
==>, $ctx), op('atend') ]);
}

sub convert_rx_charclass {
    die "unimplemented charclass";
}

sub conv <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591597	591690	
==>preter, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592807	592900	
==>preter, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594017	594110	
==>preter, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595228	595321	
==>preter, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_s <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	22982	23097	
==>os-$unkpos).$pref;
							$firstpos = $unkpos unless defined $firstpos;
							undef $unkpos;
							last FIELD if @ <==
5	/Users/nnunley/parrot/lib/Parrot/Config.pm	2012	2095	
==>Wformat-nonliteral -Wformat-security -Wpacked -Wdisabled-optimization -falign-functi <==
5	/Users/nnunley/parrot/tools/build/dynclasses.pl	1332	1415	
==>Wformat-nonliteral -Wformat-security -Wpacked -Wdisabled-optimization -falign-functi <==
5	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1377	1460	
==>Wformat-nonliteral -Wformat-security -Wpacked -Wdisabled-optimization -falign-functi <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	1381	1464	
==>Wformat-nonliteral -Wformat-security -Wpacked -Wdisabled-optimization -falign-functi <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044721	1044896	
==>t_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045615	1045790	
==>t_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046509	1046684	
==>t_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047404	1047579	
==>t_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	2906	3039	
==>es
  'merge_text',        # whether to avoid breaking a single piece of
                       #  text up into several events

 'conte <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857764	858068	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858767	859071	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859771	860075	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860775	861079	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_ <==
5	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1458	1565	
==>4+X6$MSK,X5)+X1$MSK;",
  );
  #unless ( (1 << 16) << 16) { %f = %{$CODES{'32bit'}} }
  #else { %f = %{$CODES <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18244	18380	
==>ext;
    }

    #
    # Subroutine Calls:
    #
    #     <ident>(<arg>, <arg>, ...);
    #
 
    if ($token->is_ident and $self->get(1)- <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591405	591497	
==>lass = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_I <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592615	592707	
==>lass = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_I <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593825	593917	
==>lass = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_I <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595036	595128	
==>lass = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_I <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1345	1461	
==>right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $b <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1693	1809	
==>right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $b <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1829	1945	
==>right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $b <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1472	1588	
==>right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $b <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20319	20404	
==>nerate($node->{children}[$_]);
    $self->_add_inst('','gt',[$temp_0,$temp_1,"DONE_$la <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066920	1067020	
==>perimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068106	1068206	
==>perimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069292	1069392	
==>perimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070479	1070579	
==>perimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} <==
5	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1665	1750	
==>c = "$PConfig{perl} $FindBin::RealBin$PConfig{slash}..$PConfig{slash}urmc";
my $compil <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698628	698907	
==>84,
                  "ARGS" => [
                              "i",
                              "ic",
                              "ic",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332610	332705	
==>n  }\n  /* string_cstring_free(mode); */\n  /* TODO all results from string_to_cstring() need fr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333888	333983	
==>n  }\n  /* string_cstring_free(mode); */\n  /* TODO all results from string_to_cstring() need fr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335166	335261	
==>n  }\n  /* string_cstring_free(mode); */\n  /* TODO all results from string_to_cstring() need fr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336445	336540	
==>n  }\n  /* string_cstring_free(mode); */\n  /* TODO all results from string_to_cstring() need fr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926341	926494	
==>_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}});\n                              b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927811	927964	
==>_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}});\n                              b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929281	929434	
==>_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}});\n                              b <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930752	930905	
==>_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}});\n                              b <==
5	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	5510	5606	
==>} elsif( $type eq 'url') { return $self->do_url_link($token);
  } elsif( $type eq 'man') { return <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	47480	47574	
==>nd right
delimiter, or trailing modifiers).

=back

However, the matching position of the input <==
5	/Users/nnunley/parrot/languages/python/pie-thon.pl	16633	16744	
==>l = temp('N');
	my $nr = temp('N');
	$n = temp($t = 'N');
	print <<"EOC";
	$nl = $l->[1]
	$nr = $r->[1]
	$n = po <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762390	762665	
==>@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn_i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763242	763517	
==>@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn_i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764095	764370	
==>@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn_i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764948	765223	
==>@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn_i <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100375	100463	
==>t.ops\"\n  {{\@1}} = {{\@2}}->vtable->bitwise_not(interpreter, {{\@2}}, NULL);\n  {{+=3}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765815	766105	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766667	766957	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767520	767810	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768373	768663	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAG <==
5	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	7871	8021	
==>ine =~ s/a_$name/temp/;
            }
        }
        
        # $R
        $line =~ s/\$R\b/\$P%1/g;

        $code .= emit($line, 'loop_num', 'regi <==
5	/Users/nnunley/parrot/tools/build/headerize.pl	67	163	
==>c.pl 12524 2006-05-05 21:50:26Z petdance $

use strict;
use warnings;

=head1 NAME

tools/build/h <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	873	964	
==>ght (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($right, 'Jako::Construct::Exp <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	711	802	
==>ght (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($right, 'Jako::Construct::Exp <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	864	955	
==>ght (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($right, 'Jako::Construct::Exp <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	753	844	
==>ght (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($right, 'Jako::Construct::Exp <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18984	19076	
==>$self->_add_inst('','set',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore( <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19472	19564	
==>$self->_add_inst('','set',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore( <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19960	20052	
==>$self->_add_inst('','set',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore( <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20449	20541	
==>$self->_add_inst('','set',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore( <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20938	21030	
==>$self->_add_inst('','set',[$return,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23126	23323	
==>ABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028279	1028476	
==>ABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029130	1029327	
==>ABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029971	1030168	
==>ABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25565	25761	
==>ABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	6780	6890	
==>f->{const} = $const;
    my @methods = @{ $self->{methods} };
    # copy super
    $const->{super} = { %{ $self <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	593	685	
==>UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type (" . ref($type) . ") is n <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	719	811	
==>UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type (" . ref($type) . ") is n <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	602	693	
==>UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type (". ref($type) . ") is n <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	584	675	
==>UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type (". ref($type) . ") is n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634533	634630	
==>BODY" => "#line 107 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpret <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635651	635748	
==>BODY" => "#line 107 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpret <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636769	636866	
==>BODY" => "#line 107 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpret <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637888	637985	
==>BODY" => "#line 107 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpret <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61223	61320	
==>($grammar =~ m/(?=$MTOKEN)/gco
			and do { ($code, undef, @components)
					= extract_quotelike($g <==
5	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2548	2649	
==>{\n",
 '/head4'  => "\n}\\par}\n",
   # wordpad borks on \tc\tcl1, or I'd put that in =head1 and =head <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	348	457	
==>{
    use Config;
    # Load threads::shared when threads are turned on
    if( $] >= 5.008 && $Config{useithr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905353	905459	
==>}->vtable->substr_str(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906372	906478	
==>}->vtable->substr_str(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907391	907497	
==>}->vtable->substr_str(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908411	908517	
==>}->vtable->substr_str(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964292	964623	
==>is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 108 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965299	965630	
==>is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 108 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966307	966638	
==>is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 108 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967315	967646	
==>is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 108 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968324	968655	
==>is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 108 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926651	926988	
==>len;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928121	928458	
==>len;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929591	929928	
==>len;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931062	931399	
==>len;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28771	28873	
==>e->{'pir'} =~ /\$\{DEST0\}/ &&
		    $rule->{'pir'} =~ /\$\{LOADREG\}/) {
			die "pir must use one of \ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19009	19109	
==>,[$return,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return $return;
}

su <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19497	19597	
==>,[$return,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return $return;
}

su <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19985	20085	
==>,[$return,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return $return;
}

su <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20474	20574	
==>,[$return,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return $return;
}

su <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20963	21063	
==>,[$return,1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return $return;
}

su <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449855	450093	
==>"inline",
                  "CODE" => 515,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 195 \"src/ops/math.ops\"\n  {{\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925433	925606	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringinfo",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926902	927075	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringinfo",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928372	928545	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringinfo",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929842	930015	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringinfo",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	44356	44458	
==>]

the left delimiter of the first block of the operation,

=item [5]

the text of the first block of t <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25374	25458	
==>r->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAILC <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557947	558031	
==>r->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAILC <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559331	559415	
==>r->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAILC <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560703	560787	
==>r->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAILC <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11161	11341	
==>] };
                        my $result2 = new_tmp( $parser, 'pmc' );
                        push @opcodes, new LocalDir( $parser,
                            'result' => $resul <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9388	9556	
==>] };
                    my $result2 = new_tmp( $parser, 'pmc' );
                    push @opcodes, new LocalDir( $parser,
                        'result' => $resul <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8372	8516	
==>] };
            my $result2 = new_tmp( $parser, 'pmc' );
            push @opcodes, new LocalDir( $parser,
                'result' => $resul <==
5	/Users/nnunley/parrot/languages/dotnet/Configure.pl	3933	4068	
==>tem.Drawing
            System.EnterpriseServices
            System.Management
            System.Messaging
            System.Runt <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17590	17722	
==>] };
        my $result2 = new_tmp( $parser, 'pmc' );
        push @opcodes, new LocalDir( $parser,
            'result' => $resul <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044728	1044986	
==>_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045622	1045880	
==>_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046516	1046774	
==>_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047411	1047669	
==>_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067882	1068131	
==>> 1192,
                  "ARGS" => [
                              "i",
                              "nc",
                              "n"
                            ],
                  "BODY" => "#line 49 \"src/ops/experimental.ops\"\n\n  FLOA <==
5	/Users/nnunley/parrot/config/auto/cgoto.pm	2169	2312	
==>D_GOTO'
        );
        print " (yes) " if $verbose;
        $self->set_result('yes');
    } else {
        $conf->data->set(
            TEM <==
5	/Users/nnunley/parrot/config/auto/headers.pm	1705	1836	
==>);
    }
    my @found_headers;
    foreach my $header (@extra_headers) {
        my $pass = 0;

        # First try with just the h <==
5	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	11739	11866	
==>_name,
            [ @fixedargs ], [ @$argdirs ], [ @$labels ], $flags);
        my $op_size = $op->size;
        my $jumps = "0 <==
5	/Users/nnunley/parrot/editor/kate_syntax.pl	3809	3916	
==>INSP]\\d+" />
          <RegExpr attribute="String" context="string" String="'" />
          <RegExpr attrib <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	4449	4551	
==>", \$P1
.end
FOO
}
print CODE<<RUNTIMESHUTDOWN;
	#
	# Pull in the runtime libraries
	#
.include "RT_ini <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175495	175672	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176398	176575	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177302	177479	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178206	178383	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179111	179288	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_addr",
                  "FLAGS" => ":base_core",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766567	766670	
==>EGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767420	767523	
==>EGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768273	768376	
==>EGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769127	769230	
==>EGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3} <==
5	/Users/nnunley/parrot/config/init/optimize.pm	104	196	
==>02:28:15.110975Z coke  $

=head1 NAME

config/init/optimize.pm - Optimization

=head1 DESCRIP <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8847	8962	
==>d*max+1
	a(b)=a(b)+1
next i
for i = 1 to max
	print ,
	for j = 0 to a(i)
		print "*";
	next j
	print 
next i

' Trig <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909310	909399	
==>84 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, 0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910207	910296	
==>84 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, 0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911104	911193	
==>84 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, 0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912002	912091	
==>84 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, 0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801099	801518	
==>RGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 904,
                  "ARGS" => [
                              "p",
                              "kc",
                              "s"
                            ],
                  "BODY <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332606	332701	
==>f);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all results from string_to_cstring() nee <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333884	333979	
==>f);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all results from string_to_cstring() nee <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335162	335257	
==>f);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all results from string_to_cstring() nee <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336441	336536	
==>f);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all results from string_to_cstring() nee <==
5	/Users/nnunley/parrot/languages/scheme/Scheme.pm	1071	1181	
==>umns($link);
    $code .= $link->{code};
  }

  return $header . $code;
}


=head2 compile

This is called in s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909325	909419	
==>ring.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910222	910316	
==>ring.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911119	911213	
==>ring.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912017	912111	
==>ring.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352336	352556	
==>%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352994	353214	
==>%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358021	358241	
==>%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358685	358905	
==>%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	5306	5403	
==>[0]->{"prods"}} = ();
	@{$_[0]->{"calls"}} = ();
	$_[0]->{"changed"}  = 0;
	$_[0]->{"impcount"}  = <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	2023	2131	
==>self->value, $self->kind, $self->scope, $self->type);
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($h <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586646	586737	
==>ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587832	587923	
==>ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589018	589109	
==>ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590205	590296	
==>ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084780	1084944	
==>eter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085833	1085997	
==>eter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086886	1087050	
==>eter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087940	1088104	
==>eter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0 <==
5	/Users/nnunley/parrot/lib/Test/More.pm	14981	15078	
==>ic
messages which are safer than just C<print STDERR>.

=over 4

=item B<diag>

  diag(@diagnostic <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072295	1072423	
==>xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074480	1074608	
==>xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076665	1076793	
==>xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  { <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078851	1078979	
==>xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  { <==
5	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	1180	1283	
==>hing that depend on the actual Bc implementation
        my $out_fn    = $self->get_out_fn( $count, \%op <==
5	/Users/nnunley/parrot/tools/build/dynclasses.pl	7152	7278	
==>("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c failed ($?)\n";
    }
    else {
        1;
    }
}

sub <==
5	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5446	5572	
==>("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c failed ($?)\n";
    }
    else {
        1;
    }
}

sub <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	7363	7489	
==>("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c failed ($?)\n";
    }
    else {
        1;
    }
}

sub <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1739	1838	
==>umber'}. "  }
sub start_item_text   { $_[0]{'Thispara'} = ''   }

sub start_over_bullet  { ++$_[0]{' <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1307	1406	
==>umber'}. "  }
sub start_item_text   { $_[0]{'Thispara'} = ''   }

sub start_over_bullet  { ++$_[0]{' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062479	1062582	
==>\"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063348	1063451	
==>\"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064218	1064321	
==>\"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065087	1065190	
==>\"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065961	1066064	
==>\"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18416	18523	
==>elf,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19129	19236	
==>elf,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19617	19724	
==>elf,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20106	20213	
==>elf,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20595	20702	
==>elf,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  my $temp_ <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	28877	29009	
==>s what the element name
      #  should be.

      DEBUG > 1 and print "Pondering non-magical $para_type\n";

      my $i;

      # E <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712413	712507	
==>o, 0))\n    PIO_puts(interpreter, io, \" \");\n  s = Parrot_sprintf_c(interpreter, \"%.12g\", ( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713520	713614	
==>o, 0))\n    PIO_puts(interpreter, io, \" \");\n  s = Parrot_sprintf_c(interpreter, \"%.12g\", ( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719880	719974	
==>o, 0))\n    PIO_puts(interpreter, io, \" \");\n  s = Parrot_sprintf_c(interpreter, \"%.12g\", ( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721080	721174	
==>o, 0))\n    PIO_puts(interpreter, io, \" \");\n  s = Parrot_sprintf_c(interpreter, \"%.12g\", ( <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	10953	11077	
==>/ && do {
        push @{$temps_ref}, "PMC *t_$temp_num;";
        push @{$extra_preamble_ref},
             "t_$temp_num = G <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	9965	10088	
==>/ && do {
        push @{$temps_ref}, "PMC *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = G <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	10357	10480	
==>/ && do {
        push @{$temps_ref}, "PMC *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = G <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	11556	11679	
==>/ && do {
        push @{$temps_ref}, "PMC* t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = G <==
5	/Users/nnunley/parrot/tools/build/nativecall.pl	13120	13243	
==>/ && do {
        push @{$temps_ref}, "PMC *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = G <==
5	/Users/nnunley/parrot/tools/build/pbc2c.pl	4422	4516	
==>k
	if(exists $leaders{$instr_pc}) {
	    #substr($byte_code, $instr_pc, sizeof('op')) = $entern <==
5	/Users/nnunley/parrot/config/auto/aio.pm	357	447	
==>use Parrot::Configure::Step ':auto';

$description = 'Determining if your platform supports <==
5	/Users/nnunley/parrot/config/auto/gdbm.pm	437	527	
==>use Parrot::Configure::Step ':auto';

$description = 'Determining if your platform supports <==
5	/Users/nnunley/parrot/config/auto/gmp.pm	391	481	
==>use Parrot::Configure::Step ':auto';

$description = 'Determining if your platform supports <==
5	/Users/nnunley/parrot/config/auto/readline.pm	398	488	
==>use Parrot::Configure::Step ':auto';

$description = 'Determining if your platform supports <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947174	947402	
==>arset '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948076	948304	
==>arset '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714803	715004	
==>IO_softspace(interpreter, io, 1);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715726	715927	
==>IO_softspace(interpreter, io, 1);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716671	716872	
==>IO_softspace(interpreter, io, 1);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	6710	6879	
==>>
                 <tr>
                 <th></th><th>Lines</th><th>Branches</th><th>Calls</th>
                 </tr>
                 <tr>
                 <td>Totals:< <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	1126	1267	
==>nterpreter,
                                           void** prederef_addr)
{
    INTVAL offset_in_ops;
    if (prederef_addr == NULL) return <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	19964	20100	
==>able for instructions of " .
                "more than 2 bytes in rule $_->{'name'}\n";
        }
    }

    # If we have 3 or less rule <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3367	3456	
==>ister.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1 <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5129	5218	
==>ister.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1 <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8041	8130	
==>ister.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1 <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8898	8987	
==>ister.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1 <==
5	/Users/nnunley/parrot/lib/Parrot/Revision.pm	834	932	
==>();
our $config = $current;

# check if Parrot::Config is available
eval 'use Parrot::Config; $conf <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050128	1050221	
==>72 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tri <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051162	1051255	
==>72 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tri <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052196	1052289	
==>72 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tri <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053231	1053324	
==>72 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tri <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471329	471653	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ": <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472316	472640	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ": <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473303	473627	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ": <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474293	474617	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ": <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475284	475608	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ": <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	18002	18094	
==>($self->{Curr_Test});
    $self->{Curr_Test}++;

    $self->{Test_Results}[$self->{Curr_Test} <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	18867	18959	
==>($self->{Curr_Test});
    $self->{Curr_Test}++;

    $self->{Test_Results}[$self->{Curr_Test} <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11463	11552	
==>L_RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_END_${CU <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8649	8738	
==>L_RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_END_${CU <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7221	7310	
==>L_RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_END_${CU <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109018	109278	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109796	110056	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110575	110835	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111466	111726	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112358	112618	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1253	1362	
==>turn shift->{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { r <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1244	1353	
==>turn shift->{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { r <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1133	1242	
==>turn shift->{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { r <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2487	2589	
==>lare the constant, we will place its
  # definition into the block at the top of the block stack. We fi <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2234	2336	
==>lare the constant, we will place its
  # definition into the block at the top of the block stack. We fi <==
5	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4141	4367	
==>,
            ldflags              => '-nologo -nodefaultlib',
            ar                   => 'xilib',
            ar_flags             => '',
            ar_out               => '-out:',
            slash                = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147338	147610	
==>}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         ble <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148279	148551	
==>}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         ble <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149219	149491	
==>}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         ble <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150160	150432	
==>}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         ble <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	33106	33220	
==>_Plan} && !$self->{Test_Died}) )
    {
	_my_exit($?);
	return;
    }

    # Figure out if we passed or failed and p <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	3082	3183	
==>ributes => { kind => 'then' } });
  }

  $handler->start_element({ Name => 'goto', Attributes => { lab <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765847	766119	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_r <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766699	766971	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_r <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767552	767824	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_r <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768405	768677	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_r <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	4877	4982	
==>/p>\n";
    }
    
    return $index_html;
}

=item C<contents_relative_to_source($source)>

Returns the c <==
5	/Users/nnunley/parrot/tools/dev/nm.pl	1140	1240	
==>>

List the file(name) symbols.

=back

If more than one of all the above options are given, they are <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	10485	10646	
==>hing, '""') ) {
                    $$thing = $$thing->$string_meth();
                }
            }
        };
    }
}


=item B<is_eq>

  $Test->is_eq($got, $ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067014	1067118	
==>{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068200	1068304	
==>{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069386	1069490	
==>{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070573	1070677	
==>{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606924	607078	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getattribute",
                  "FLAGS" => ":object_classes" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607827	607981	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getattribute",
                  "FLAGS" => ":object_classes" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608731	608885	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getattribute",
                  "FLAGS" => ":object_classes" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609638	609792	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getattribute",
                  "FLAGS" => ":object_classes" <==
5	/Users/nnunley/parrot/lib/Test/More.pm	27905	28007	
==>C<is_deeply()> can do that better and with diagnostics.  

    is_deeply( \@this, \@that );

They may b <==
5	/Users/nnunley/parrot/lib/Class/Struct.pm	3823	3969	
==>$out .= "    \$r->$elem = $init {};$cmt\n";
            $hashes{$name}++;
        }
        elsif ( $type eq '$') {
            $out .= "    \$r->$ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	242	337	
==>30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Type:: <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	240	335	
==>30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Type:: <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	234	329	
==>30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Type:: <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	240	335	
==>30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Type:: <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36732	36874	
==>7
	},
	{#State 142
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76, <==
5	/Users/nnunley/parrot/lib/Parrot/Config.pm	1948	2035	
==>ings -Waggregate-return -Winline -W -Wno-unused -Wsign-compare -Wformat-nonliteral -Wfor <==
5	/Users/nnunley/parrot/tools/build/dynclasses.pl	1268	1355	
==>ings -Waggregate-return -Winline -W -Wno-unused -Wsign-compare -Wformat-nonliteral -Wfor <==
5	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1313	1400	
==>ings -Waggregate-return -Winline -W -Wno-unused -Wsign-compare -Wformat-nonliteral -Wfor <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	1317	1404	
==>ings -Waggregate-return -Winline -W -Wno-unused -Wsign-compare -Wformat-nonliteral -Wfor <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39092	39341	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_J <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39957	40206	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_J <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40804	41053	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_J <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41652	41901	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_J <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20254	20367	
==><ident> = ... = <value>;
    #   <ident> = new <ident>;
    #
 
    if ($token->is_ident and $self->get(1)->is_ass <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	12	111	
==>r.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subjec <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332759	333032	
==>arding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334037	334310	
==>arding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335315	335588	
==>arding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336594	336867	
==>arding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
5	/Users/nnunley/parrot/tools/build/pmc2c.pl	18517	18628	
==>$include, $file) = @_;

    $file =~ s/\.\w+$/.dump/;
    $file = find_file($include, $file, 1);

    my $fh = o <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834347	834548	
==>STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835073	835274	
==>STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835825	836026	
==>STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836578	836779	
==>STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
5	/Users/nnunley/parrot/config/init/hints/mswin32.pm	5456	5626	
==>',
            ld_out         => '-e',
            cc_ldflags     => '',
            ld_debug       => '-v',
            ld_share_flags => '-WD',
            ld_load_flags <==
5	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	7666	7778	
==>o = shift iter_two 
    iter_one = new .Iterator, op1
    pos_one = 0 # parrot's 0 == APL's 1
loop_one:
    unles <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1797	1908	
==>.
	return "";
}

# Extra subroutines required for the mapper.
sub subs() {
	# No extra subs.
	return "";
}

# La <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	837	948	
==>.
	return "";
}

# Extra subroutines required for the mapper.
sub subs() {
	# No extra subs.
	return "";
}

# La <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	594	705	
==>.
	return "";
}

# Extra subroutines required for the mapper.
sub subs() {
	# No extra subs.
	return "";
}

# La <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3081	3179	
==>(%ld)->u.string",
    'kc' => "CONST(%ld)->u.key",
    'kic' => "%ld",
);

=item C<access_arg($type <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	22551	22680	
==>_star_fail');
        my ($R_back, @R_ops) = $self->rewrite($R, $rfail);
        my @ops = (
                   aop('pushint', [ 0 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072703	1072820	
==>sary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074888	1075005	
==>sary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077073	1077190	
==>sary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079259	1079376	
==>sary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939569	939891	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940460	940782	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941352	941674	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942244	942566	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  " <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	15474	15630	
==>') {
        # DO NOTHING
      }

      #
      # If there is any other kind of block, we have an internal compiler error.
      #

      else {
        $se <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	974	1060	
==>$new;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

s <==
5	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	758	844	
==>$new;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

s <==
5	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	303	389	
==>$new;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

s <==
5	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	610	696	
==>$new;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

s <==
5	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	559	645	
==>$new;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

s <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4688	4792	
==><goto ADDRESS($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address 
{
    my <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1353	1456	
==><goto ADDRESS($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1878	1981	
==><goto ADDRESS($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1769	1872	
==><goto ADDRESS($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1493	1596	
==><goto ADDRESS($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	27902	28025	
==>s, but you said =back $content"
        );
      }

      if(@$curr_open and $curr_open->[-1][0] eq '=over') {
        DEBUG <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780691	780777	
==>ops\"\n    {{\@1}}->vtable->set_string_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781600	781686	
==>ops\"\n    {{\@1}}->vtable->set_string_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782509	782595	
==>ops\"\n    {{\@1}}->vtable->set_string_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783419	783505	
==>ops\"\n    {{\@1}}->vtable->set_string_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134875	135084	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135768	135977	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136662	136871	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048346	1048460	
==>+3}};\n    {{\@1}} = Parrot_get_global(interpreter, NULL, {{\@2}}, next);\n    {{+=3}};\n",
                  "LABE <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049270	1049384	
==>+3}};\n    {{\@1}} = Parrot_get_global(interpreter, NULL, {{\@2}}, next);\n    {{+=3}};\n",
                  "LABE <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11226	11426	
==>c' );
                        push @opcodes, new LocalDir( $parser,
                            'result' => $result2,
                        );
                        push @opcodes, new KeyedGetO <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9449	9633	
==>c' );
                    push @opcodes, new LocalDir( $parser,
                        'result' => $result2,
                    );
                    push @opcodes, new KeyedGetO <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12746	12930	
==>c' );
                    push @opcodes, new LocalDir( $parser,
                        'result' => $result2,
                    );
                    push @opcodes, new KeyedGetO <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8425	8577	
==>c' );
            push @opcodes, new LocalDir( $parser,
                'result' => $result2,
            );
            push @opcodes, new KeyedGetO <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17639	17775	
==>c' );
        push @opcodes, new LocalDir( $parser,
            'result' => $result2,
        );
        push @opcodes, new KeyedGetO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610640	610917	
==>setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611542	611819	
==>setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612445	612722	
==>setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613351	613628	
==>setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
5	/Users/nnunley/parrot/lib/Parrot/Test.pm	5890	6006	
==>ERR    filehandle to redirect STDERR to
    CD        directory to run the command in

For example:

    # equivalent <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015078	1015301	
==>ing_make(interpreter, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015902	1016125	
==>ing_make(interpreter, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16922	17049	
==>omments
        #  with text in them.
        
        # Yes, stipulate the list without a range, so that this can work right on <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6708	6824	
==>>get(1)->kind eq $_ } @_;

  return $self->forth;
}


#
# SKIPS:
#

sub skip_assign        { return shift->skip('assi <==
5	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10362	10473	
==>omments
    #  with text in them.

    # Yes, stipulate the list without a range, so that this can work right on <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072791	1072910	
==>3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074976	1075095	
==>3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077161	1077280	
==>3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079347	1079466	
==>3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2 <==
5	/Users/nnunley/parrot/tools/dev/run_indent.pl	490	584	
==>e specified C source files have correct
indentation.

You will need to have C<C::Scan> installe <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110190	110428	
==>TYPE" => "inline",
                  "CODE" => 137,
                  "ARGS" => [
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 182 \"src/ops/bit.ops <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867231	867320	
==>nterpreter, {{\@2}});\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868197	868286	
==>nterpreter, {{\@2}});\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869163	869252	
==>nterpreter, {{\@2}});\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870130	870219	
==>nterpreter, {{\@2}});\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260350	260773	
==>,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 303,
                  "ARGS" => [
                              "i",
                              "sc", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258556	258876	
==>,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 30 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259499	259819	
==>,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 30 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261202	261522	
==>,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 30 <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262054	262374	
==>,
                  "NAME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 30 <==
5	/Users/nnunley/parrot/lib/Parrot/Op.pm	4036	4131	
==>turn $trans->prefix . $self->full_name;
}

=item C<arg_types()>

Returns the types of the op's a <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3357	3447	
==>fer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5119	5209	
==>fer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8031	8121	
==>fer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8888	8978	
==>fer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	709557	709932	
==>" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 796,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BOD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099027	1099130	
==>> "#line 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTV <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100225	1100328	
==>> "#line 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTV <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101423	1101526	
==>> "#line 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTV <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102622	1102725	
==>> "#line 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTV <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061147	1061417	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062687	1062957	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063556	1063826	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064426	1064696	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065299	1065569	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => <==
5	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	240	342	
==>} (@commands);

# Check each of these builtins to see if they are just a stub, and skippable.

my (@kee <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050222	1050320	
==>ed to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(interpreter, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051256	1051354	
==>ed to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(interpreter, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052290	1052388	
==>ed to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(interpreter, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053325	1053423	
==>ed to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(interpreter, {{\@ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072874	1073112	
==>x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075059	1075297	
==>x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077244	1077482	
==>x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079430	1079668	
==>x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0, <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	33202	33357	
==>:Simple::LinkSection->new(
            $treelet->[$i][2]
          );                   # its own treelet
        } else {
          # It's a URL but comple <==
5	/Users/nnunley/parrot/lib/Test/More.pm	16670	16769	
==>f @imports are given, they are passed through to the use.  So this:

   BEGIN { use_ok('Some::Module <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050208	1050306	
==>ption(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(int <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051242	1051340	
==>ption(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(int <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052276	1052374	
==>ption(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(int <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053311	1053409	
==>ption(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(int <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	55359	55506	
==>"
{
            BuildUnop( $_[0], $_[1], $_[2] );
        }
	],
	[#Rule 76
		 'primary', 1,
sub
#line 416 "Lua\lua51.yp"
{
            Bui <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340214	340302	
==>ine 128 \"src/ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, {{\@3}}, {{\@4}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341213	341301	
==>ine 128 \"src/ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, {{\@3}}, {{\@4}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342212	342300	
==>ine 128 \"src/ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, {{\@3}}, {{\@4}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343212	343300	
==>ine 128 \"src/ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, {{\@3}}, {{\@4}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670670	670904	
==>ng(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671443	671677	
==>ng(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679185	679419	
==>ng(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679964	680198	
==>ng(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	51519	51643	
==>age)->[0];
      my $ender_length =  pop @stack;
      if($ender_length) {
        --$ender_length;
        $x = $code . ("<" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42421	42643	
==>"LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47128	47350	
==>"LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48718	48940	
==>"LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50318	50540	
==>"LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51911	52133	
==>"LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NA <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568518	568822	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" => ":object_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569410	569714	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" => ":object_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570303	570607	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" => ":object_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571257	571561	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" => ":object_ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1297	1401	
==>ident($left);
    my $pmc_type = $type->imcc_pmc;
    my $temp_pmc = $compiler->temp_pmc();

    $compile <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	14783	14883	
==>----

sub whine {
  #my($self,$line,$complaint) = @_;
  my $self = shift(@_);
  ++$self->{'errors_see <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	56399	56530	
==>ict;
						       $return = { text => $item[-1] };
						       @{$return->{type}}{'.$code.'} = (1..'.$types.');',
						      $look <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	3442	3552	
==>to's until the
    # final destination of each is reached, then replace the original
    # reference.

    fore <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	35236	35330	
==>one stypes
    ss_propogate[sp_dest] = ss
    goto SS_PROP_LOOP_switch
SS_PROP_LOOP_EXIT_switch <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018006	1018098	
==>[26];\n  Parrot_gmtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = strin <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018931	1019023	
==>[26];\n  Parrot_gmtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = strin <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912868	913037	
==>,
                              "i"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpret <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913879	914048	
==>,
                              "i"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpret <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914890	915059	
==>,
                              "i"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpret <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915902	916071	
==>,
                              "i"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpret <==
5	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	4053	4153	
==>rrot::OpsFile;

use strict;
use warnings;

use base qw( Exporter );

use Parrot::Op;
use Parrot::Conf <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22187	22441	
==>}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_AD <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763121	763224	
==>f ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_N <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763974	764077	
==>f ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_N <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764827	764930	
==>f ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_N <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765681	765784	
==>f ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_N <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579685	579970	
==>nterpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580990	581275	
==>nterpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582295	582580	
==>nterpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583601	583886	
==>nterpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
5	/Users/nnunley/parrot/tools/dev/parrotbench.pl	5594	5716	
==>l; 
        print "\n";
    }
    exit;
}

# Run The Benchmarks With Pretty Output
if ( ! $cfg{use_times} && @program < 2 ) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	725475	725684	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clone",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726236	726445	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clone",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812684	812893	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clone",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o <==
5	/Users/nnunley/parrot/tools/build/ops2pm.pl	5391	5497	
==>ated by F<$0>.

    It contains Parrot version info, a preamble for inclusion in C code,
    and an array o <==
5	/Users/nnunley/parrot/tools/build/ops2c.pl	8894	8989	
==>0; while (<SOURCE>) { $line++; } $line+=2;
close(SOURCE);
open(SOURCE, ">>$source") || die "Erro <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21848	21972	
==>"Ignoring targetless =end\n";
        next;
      }
      
      unless($content =~ m/^\S+$/) {  # i.e., unless it's one word <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718145	718418	
==>1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_it <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719077	719350	
==>1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_it <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720276	720549	
==>1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_it <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721476	721749	
==>1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_it <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	16689	16785	
==>= pos($$textref);

	my $initial = substr($$textref,$oppos,1);

	if ($initial && $initial =~ m|^[\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121557	121931	
==>ore",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 151,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2349	2443	
==>ument type (see
C<Parrot::OpTrans>) and value. C<$op> is an instance of C<Parrot::Op>.

=cut

s <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3441	3535	
==>ument type (see
C<Parrot::OpTrans>) and value. C<$op> is an instance of C<Parrot::Op>.

=cut

s <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3585	3679	
==>ument type (see
C<Parrot::OpTrans>) and value. C<$op> is an instance of C<Parrot::Op>.

=cut

s <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3240	3334	
==>ument type (see
C<Parrot::OpTrans>) and value. C<$op> is an instance of C<Parrot::Op>.

=cut

s <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355500	355748	
==>"write",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 415,
                  "ARG <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	585	675	
==>mple::PullParser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple:: <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1004	1094	
==>mple::PullParser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple:: <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	491	581	
==>mple::PullParser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple:: <==
5	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1478	1568	
==>mple::PullParser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple:: <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607012	607291	
==>" => "getattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607915	608194	
==>" => "getattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608819	609098	
==>" => "getattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609726	610005	
==>" => "getattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	6822	6957	
==>allOp')
                and !exists $val->[1]->[-1]->{result}[0]->{pragma} )
            {
                my $callop = $val->[1]->[- <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099068	1099191	
==>\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif ( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100266	1100389	
==>\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif ( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101464	1101587	
==>\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif ( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102663	1102786	
==>\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif ( <==
5	/Users/nnunley/parrot/lib/Test/More.pm	3013	3117	
==>re.

The preferred way to do this is to declare a plan when you C<use Test::More>.

  use Test::More test <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164837	165128	
==>!= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165766	166057	
==>!= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166695	166986	
==>!= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	174301	174592	
==>!= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175250	175541	
==>!= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
5	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	711	816	
==>me );
use File::Copy ();
use File::Spec;
use File::Which;

# XXX $conf is a temporary hack
our $conf;

our <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067085	1067195	
==>}};\n  while (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = tem <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068271	1068381	
==>}};\n  while (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = tem <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069457	1069567	
==>}};\n  while (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = tem <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070644	1070754	
==>}};\n  while (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = tem <==
5	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15635	15741	
==>$1)-65536)).'?'/eg;
    return $x;
  }
}

sub rtf_esc_codely {
  # Doesn't change "-" to hard-hyphen, nor a <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099121	1099254	
==>\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while ( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100319	1100452	
==>\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while ( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101517	1101650	
==>\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while ( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102716	1102849	
==>\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while ( <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	7832	7931	
==>en not processable by the above methods.

=cut

sub process_other_start_token
{
    my $self = shift <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	5136	5314	
==>', $type );
                push @opcodes, new AssignOp( $parser,
                    'prolog' => 1,
                    'arg1'   => $expr,
                    'result' => $de <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8026	8128	
==>less defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_symbol($name);

  re <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8673	8775	
==>less defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_symbol($name);

  re <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9341	9443	
==>less defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_symbol($name);

  re <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10010	10112	
==>less defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_symbol($name);

  re <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30227	30346	
==>ation\n";

		# Push load type onto the stack types array.
		$pir .= "    stypes = push loadtype\n";

        # Emit code <==
5	/Users/nnunley/parrot/config/inter/lex.pm	1299	1409	
==>ecified then
    # the user is responsible for the consequences.
    if (defined $prog) {
        $conf->data-> <==
5	/Users/nnunley/parrot/config/inter/make.pm	1120	1230	
==>ecified then
    # the user is responsible for the consequences.
    if (defined $prog) {
        $conf->data-> <==
5	/Users/nnunley/parrot/config/inter/yacc.pm	1296	1406	
==>ecified then
    # the user is responsible for the consequences.
    if (defined $prog) {
        $conf->data-> <==
5	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	373	470	
==>arnings;

use base qw( Parrot::IO::Path );

use FileHandle;
use Parrot::IO::Directory;

=item C<tm <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	686	786	
==>{
	die "gen_label not implemented for current stack to register mapper\n";
}

# Pre and post stack op <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549926	550022	
==>ject.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551227	551323	
==>ject.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553789	553885	
==>ject.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555186	555282	
==>ject.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\ <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	17555	17661	
==>NEXT] eq "while") {
		my $false="0.0";
		feedme();  # At the while/until
		my $which=$syms[CURR];
		push @{ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344264	344357	
==>, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345506	345599	
==>, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346748	346841	
==>, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347991	348084	
==>, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} <==
5	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8024	8129	
==>nt "This is true" else print "Oops (flo)"

' Expect OK
if 2 > 1 then
	print "Ok"
else
	print "All is not r <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	657	761	
==>y $expr;
    $count++;
    ($count, $expr) = _build_tree ($tokens, $count);
    push @{$temp->{children}} <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	874	978	
==>y $expr;
    $count++;
    ($count, $expr) = _build_tree ($tokens, $count);
    push @{$temp->{children}} <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1088	1192	
==>y $expr;
    $count++;
    ($count, $expr) = _build_tree ($tokens, $count);
    push @{$temp->{children}} <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1312	1416	
==>y $expr;
    $count++;
    ($count, $expr) = _build_tree ($tokens, $count);
    push @{$temp->{children}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467686	467915	
==>ivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468557	468786	
==>ivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469431	469660	
==>ivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470306	470535	
==>ivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
5	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10112	10235	
==>llet') {
        print $fh "\\'95 \n";
        #for funky testing: print $fh '', rtf_esc("\x{4E4B}\x{9053}");
      }

    } <==
5	/Users/nnunley/parrot/tools/build/dynclasses.pl	6015	6136	
==>} = $group;
        push @{ $group_files{$group} }, $pmc;
        $group_libs{$group} ||= {};
        foreach my $lib ( ke <==
5	/Users/nnunley/parrot/tools/build/dynpmc.pl	6226	6347	
==>} = $group;
        push @{ $group_files{$group} }, $pmc;
        $group_libs{$group} ||= {};
        foreach my $lib ( ke <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2123	2226	
==>inition. Otherwise, we assume the programmer wanted to shadow the
  # previous definition.
  #

  if (de <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1643	1746	
==>inition. Otherwise, we assume the programmer wanted to shadow the
  # previous definition.
  #

  if (de <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1870	1973	
==>inition. Otherwise, we assume the programmer wanted to shadow the
  # previous definition.
  #

  if (de <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050190	1050289	
==>)\n\tinternal_exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051224	1051323	
==>)\n\tinternal_exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052258	1052357	
==>)\n\tinternal_exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parr <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053293	1053392	
==>)\n\tinternal_exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parr <==
5	/Users/nnunley/parrot/lib/Test/Builder.pm	23713	23808	
==>item B<failure_output>

    $Test->failure_output($fh);
    $Test->failure_output($file);

Where <==
5	/Users/nnunley/parrot/tools/build/jit2c.pl	1854	1957	
==>d = "_exec";
    $normal_op = "Parrot_exec_normal_op";
    $cpcf_op = "Parrot_exec_cpcf_op";
    $restar <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	656	762	
==>C<new($opt, $vtable_dump, %pmcs)>

    $library = Parrot::Pmc2c::Library->new
        ( $options,     # has <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613949	614237	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047452	1047740	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054561	1054849	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059256	1059544	
==>{{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597137	597423	
==>{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
5	/Users/nnunley/parrot/tools/build/pmc2c.pl	11008	11124	
==>ers
    }sx;

    my ($pre, $classname, $flags)   = parse_flags(\$code);
    my ($classblock, $post)         = extrac <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586885	586997	
==>{{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588071	588183	
==>{{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589257	589369	
==>{{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590444	590556	
==>{{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  " <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31945	32070	
==>arameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". jo <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33522	33647	
==>arameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". jo <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38539	38664	
==>arameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". jo <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40579	40704	
==>arameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". jo <==
5	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1475	1577	
==>base qw(Lua::opcode);

package NoOp;
use base qw(Lua::opcode);

package FindGlobalOp;
use base qw <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579690	579976	
==>reter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580995	581281	
==>reter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582300	582586	
==>reter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583606	583892	
==>reter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	28711	28807	
==>ever, if the input text was passed in a variable, that variable's
C<pos> value is updated to poin <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6532	6638	
==>$token->tagname;
    
    print {$self->{'output_fh'}} $self->{'Tagmap'}{$tagname} || return;
    
    if ( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080497	1080590	
==>1, \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081562	1081655	
==>1, \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082627	1082720	
==>1, \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083693	1083786	
==>1, \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter <==
5	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	10812	10941	
==>argin:      15px; }
    dt    { font-weight: bold; }
    dd+dt { margin-top:  1em;  }
    .leftsep  { padding-left: 10px;  }
    . <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950516	950606	
==>"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_cha <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951476	951566	
==>"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_cha <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952436	952526	
==>"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_cha <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953397	953487	
==>"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_cha <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18528	18631	
==>$self->_generate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_gener <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19241	19344	
==>$self->_generate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_gener <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19729	19832	
==>$self->_generate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_gener <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20218	20321	
==>$self->_generate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_gener <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20707	20810	
==>$self->_generate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_gener <==
5	/Users/nnunley/parrot/lib/Text/Balanced.pm	9054	9154	
==>$textref) -= length($1);	# CUT OFF WHATEVER CAUSED THE SHORTNESS
			goto short if ($omode eq 'PARA' | <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084723	1084809	
==>s/experimental.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085776	1085862	
==>s/experimental.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086829	1086915	
==>s/experimental.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087883	1087969	
==>s/experimental.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3} <==
5	/Users/nnunley/parrot/lib/Class/Struct.pm	3923	4051	
==>$type eq '$') {
            $out .= "    \$r->$elem = $init undef;$cmt\n";
        }
        elsif( $type =~ /^\w+(?:::\w+)*$/ ){ <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25126	25225	
==>y $return;
  my $num_children = defined $node->{children} ? @{$node->{children}} - 1 : 0;

  if($num <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27026	27125	
==>y $return;
  my $num_children = defined $node->{children} ? @{$node->{children}} - 1 : 0;

  if($num <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24238	24336	
==>y $return;
  my $num_children = defined $node->{children} ? @{$node->{children}} - 1 : 0;
  if($num <==
5	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26137	26235	
==>y $return;
  my $num_children = defined $node->{children} ? @{$node->{children}} - 1: 0;

  if($num <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	702	801	
==>h = -1
prop_type_state = new Hash
prop_stack_depth = new Hash
PIR
}

# Post translation hook.
sub po <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747283	747369	
==>et.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+= <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748068	748154	
==>et.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+= <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753577	753663	
==>et.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+= <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754365	754451	
==>et.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+= <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63117	63222	
==>item($item)
						      or  _no_rule("repetition",$line,"$code$argcode($1)");

						!$matchrule and $rule <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63838	63943	
==>item($item)
						      or  _no_rule("repetition",$line,"$code$argcode($1)");

						!$matchrule and $rule <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64554	64659	
==>item($item)
						      or  _no_rule("repetition",$line,"$code$argcode($1)");

						!$matchrule and $rule <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62481	62584	
==>item($item)
					      or  _no_rule("repetition",$line,"$code$argcode($1)");

					!$matchrule and $rule <==
5	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	12032	12130	
==>m or
an array ref of programs to search the current C<PATH> for.  The first matching
program name i <==
5	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	1005	1113	
==>arrot_version);

    if ( scalar(@parrot_version) < 3 ) {
        die "Too few components to VERSION file con <==
5	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2319	2432	
==>etval = $self->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exists($$self{USER})
	or	$$s <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2232	2336	
==>etval = $self->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exists($$self{USER})
	or	$$s <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1431	1531	
==>e for stack depths and stack type states that we are
	# propogating.
	return <<'PIR';
.local string s <==
5	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	518	618	
==>e for stack depths and stack type states that we are
	# propogating.
	return <<'PIR';
.local string s <==
5	/Users/nnunley/parrot/lib/Class/Struct.pm	9624	9722	
==>fy the name of the
class being created.  The third form assumes the current package
name as the cla <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672257	672548	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673029	673320	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673799	674090	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "", <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	674570	674861	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "", <==
5	/Users/nnunley/parrot/lib/Pod/Simple.pm	44831	44943	
==>on't be an S node.
  my($treelet, $in_s) = @_;
  
  my $is_s = ('S' eq $treelet->[0]);
  $in_s ||= $is_s; # So in <==
5	/Users/nnunley/parrot/config/auto/gcc.pm	2592	2723	
==>environment.  An example is Solaris 8.

        my @opt_and_vers = (
            0 =>
                "-Wall -Wstrict-prototypes -Wm <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	823	915	
==>ako::Construct::Expression::Value');
  confess("Right (" . ref($right) . ") is not Value") un <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	661	753	
==>ako::Construct::Expression::Value');
  confess("Right (" . ref($right) . ") is not Value") un <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	814	906	
==>ako::Construct::Expression::Value');
  confess("Right (" . ref($right) . ") is not Value") un <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	703	795	
==>ako::Construct::Expression::Value');
  confess("Right (" . ref($right) . ") is not Value") un <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27062	27183	
==>reach my $op ( @{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) { <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27743	27864	
==>reach my $op ( @{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) { <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	30593	30714	
==>reach my $op ( @{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) { <==
5	/Users/nnunley/parrot/languages/lua/Lua/build.pm	35140	35261	
==>reach my $op ( @{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) { <==
5	/Users/nnunley/parrot/tools/dev/lib_deps.pl	12934	13054	
==>exttowardl math.h
perror      stdio.h
pow         math.h
printf      stdio.h
putc        stdio.h
putchar     stdio.h
puts <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353749	353993	
==>r), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354494	354738	
==>r), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359443	359687	
==>r), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360191	360435	
==>r), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360961	361205	
==>r), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762566	762739	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763418	763591	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764271	764444	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765124	765297	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	52768	52872	
==>de =~ /\A\s*<score:(.*)>\Z/s;
				$prod and $prod->addscore($1, $lookahead, $line)
				      or  _no_rule <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3915	4020	
==>ruct::Block
  my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless defined $ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7824	7929	
==>ruct::Block
  my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless defined $ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8471	8576	
==>ruct::Block
  my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless defined $ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9139	9244	
==>ruct::Block
  my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless defined $ <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9808	9913	
==>ruct::Block
  my $name = shift; # Required: string (TODO: domain)

  confess "No block!"  unless defined $ <==
5	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	2598	2705	
==>.pl'),
            $self->new_item('', 'tools/dev/mk_manifests.pl'),
            $self->new_item('', 'tools/ <==
5	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6730	6848	
==>$self}{'line_count'}\n"; 
      }
      
      $self->{'last_was_blank'} = 1;
      
    } elsif($self->{'last_was_blan <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63152	63244	
==>e("repetition",$line,"$code$argcode($1)");

						!$matchrule and $rule and $rule->addcall($n <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63873	63965	
==>e("repetition",$line,"$code$argcode($1)");

						!$matchrule and $rule and $rule->addcall($n <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64589	64681	
==>e("repetition",$line,"$code$argcode($1)");

						!$matchrule and $rule and $rule->addcall($n <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62515	62606	
==>e("repetition",$line,"$code$argcode($1)");

					!$matchrule and $rule and $rule->addcall($n <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324240	324503	
==>ME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325032	325295	
==>ME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325825	326088	
==>ME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326615	326878	
==>ME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327416	327679	
==>ME" => "conv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659494	659824	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exists",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660415	660745	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exists",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661337	661667	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exists",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662252	662582	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exists",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	3706	3797	
==>::_linecount(${$self->{text}})
			 + 1;

	$parser->{offsetlinenum} += $parser->{lastlinenum} <==
5	/Users/nnunley/parrot/lib/Parrot/Config.pm	8301	8399	
==>name' => '-install_name /opt/local/lib/libparrot.dylib',
             'libparrot_static' => 'libpar <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584446	584536	
==>Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585521	585611	
==>Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597962	598052	
==>Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL( <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599009	599099	
==>Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL( <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	415	513	
==>self, $distance, $failLabel) = @_;
    $failLabel = $self->output_label_use($failLabel);
    if ($d <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080481	1080574	
==>ernal_exception(1, \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081546	1081639	
==>ernal_exception(1, \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082611	1082704	
==>ernal_exception(1, \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083677	1083770	
==>ernal_exception(1, \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_ <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35136	35231	
==>self->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my $decl = $self->decl($sel <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36439	36534	
==>self->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my $decl = $self->decl($sel <==
5	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38386	38481	
==>self->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my $decl = $self->decl($sel <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63209	63302	
==>rule and $rule and $rule->addcall($name);

						_check_insatiable($name,$1,$grammar,$line) if <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63930	64023	
==>rule and $rule and $rule->addcall($name);

						_check_insatiable($name,$1,$grammar,$line) if <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62700	62813	
==>h", $aftererror,$line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr($gramma <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63411	63524	
==>h", $aftererror,$line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr($gramma <==
5	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64141	64254	
==>h", $aftererror,$line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr($gramma <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4277	4377	
==>Returns the C code for the run core function declaration.

=cut

sub run_core_func_decl
{
    my ($se <==
5	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2765	2865	
==>Returns the C code for the run core function declaration.

=cut

sub run_core_func_decl
{
    my ($se <==
5	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29354	29463	
==>t = 0;
			$mv->{'LOADREG'} = 'loadreg';
			push @localmv, 'LOADREG';
		} else {
			die "pir or instruction mus <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071783	1071884	
==>" => "#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073968	1074069	
==>" => "#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076153	1076254	
==>" => "#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\ <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078339	1078440	
==>" => "#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\ <==
5	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19516	19689	
==>nt >= max goto rfail
#               R or rfail
#               $matchcount++
#         next:
#

# R<min,max>? ->  $matchcount = 0
#                 goto check
#          rfa <==
5	/Users/nnunley/parrot/config/auto/inline.pm	481	596	
==>';

@args = qw(inline verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $test;
    my ($inline, $verbose) <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236595	236683	
==>"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237477	237565	
==>"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}} <==
5	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238359	238447	
==>"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}} <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	759	853	
==>. ref($left) . ") is not Value") unless UNIVERSAL::isa($left, 'Jako::Construct::Expression::Val <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	597	691	
==>. ref($left) . ") is not Value") unless UNIVERSAL::isa($left, 'Jako::Construct::Expression::Val <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	750	844	
==>. ref($left) . ") is not Value") unless UNIVERSAL::isa($left, 'Jako::Construct::Expression::Val <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	639	733	
==>. ref($left) . ") is not Value") unless UNIVERSAL::isa($left, 'Jako::Construct::Expression::Val <==
5	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	588	682	
==>. ref($left) . ") is not Value") unless UNIVERSAL::isa($left, 'Jako::Construct::Expression::Val <==
4	/Users/nnunley/parrot/tools/dev/lib_deps.pl	7762	7893	
==>h
atan2l      math.h
atanf       math.h
atanh       math.h
atanhf      math.h
atanhl      math.h
atanl       math.h
atexit      stdl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770017	770256	
==>d register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770870	771109	
==>d register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771723	771962	
==>d register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772577	772816	
==>d register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73093	73183	
==>I);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR(p)) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74695	74785	
==>I);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR(p)) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76297	76387	
==>I);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR(p)) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77900	77990	
==>I);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR(p)) <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	9977	10121	
==>w+)
            \s*\(
            interpreter,\s*
            {{\@(\d)}}/
            {{\@$2}}->vtable->$1(interpreter, {{\@$2}}/x;

        if ( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717279	717416	
==>\n  PIO_softspace(interpreter, io, 0);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	1040	1155	
==>0] ? ref shift : shift;
	my $name = shift || die "No name.\n";
	my $text = shift;
	my @contents = @_;
	
	# TODO - Gr <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11758	11855	
==>ommas get ignored, args to stack
		my($ac, @args, $extern, $pir_args);
		if (isarray($sym) and $lh <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2122	2248	
==>.
        $source;
};

sub partial_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /msw <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2414	2540	
==>.
        $source;
};

sub partial_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /msw <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2209	2335	
==>.
        $source;
};

sub partial_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /msw <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	6020	6121	
==>e that if there are files with no suffix then the empty string will
be included in this list.

=cut

s <==
4	/Users/nnunley/parrot/languages/regex/regex.pl	222	352	
==>in;

while (@ARGV) {
    $_ = shift;
    if (/--no(-?)optimize/) {
        $tree_opt = 0;
        $list_opt = 0;
    } elsif (/--op <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9743	9833	
==>first arg.
if "${CURIC}" != "73" goto pre_call_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEMP2 <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7257	7347	
==>first arg.
if "${CURIC}" != "73" goto pre_call_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEMP2 <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6221	6311	
==>first arg.
if "${CURIC}" != "73" goto pre_call_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEMP2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73063	73158	
==>new(interpreter, enum_class_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74665	74760	
==>new(interpreter, enum_class_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76267	76362	
==>new(interpreter, enum_class_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77870	77965	
==>new(interpreter, enum_class_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579517	579616	
==>interpreter, {{\@2}} ));\n  }\n  name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_strin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580822	580921	
==>interpreter, {{\@2}} ));\n  }\n  name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_strin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582127	582226	
==>interpreter, {{\@2}} ));\n  }\n  name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_strin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583433	583532	
==>interpreter, {{\@2}} ));\n  }\n  name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_strin <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	5924	6027	
==>While/Loop stuff.  All 5
a=0
do while a<5
	a=a+1
loop
print a
a=0
do until a>4
	a=a+1
loop
print a
a=0
d <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16469	16572	
==>While/Loop stuff.  All 5
a=0
do while a<5
	a=a+1
loop
print a
a=0
do until a>4
	a=a+1
loop
print a
a=0
d <==
4	/Users/nnunley/parrot/config/auto/gmp.pm	919	1046	
==>se {
            $conf->data->add(' ', libs => 'gmp.lib');
        }
    } else {
        $conf->data->add(' ', libs => '-lgmp') <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1330	1423	
==>can find register type).
dec ${ITEMP0}
${PTEMP0} = ${STYPES}[${ITEMP0}]

# Assign register nam <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3040	3133	
==>can find register type).
dec ${ITEMP0}
${PTEMP0} = ${STYPES}[${ITEMP0}]

# Assign register nam <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73042	73140	
==>n      {{\@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_st <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74644	74742	
==>n      {{\@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_st <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76246	76344	
==>n      {{\@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_st <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77849	77947	
==>n      {{\@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_st <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11140	11326	
==>@opcodes, @{ $key->[1] };
                        my $result2 = new_tmp( $parser, 'pmc' );
                        push @opcodes, new LocalDir( $parser,
                            're <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9367	9541	
==>@opcodes, @{ $key->[1] };
                    my $result2 = new_tmp( $parser, 'pmc' );
                    push @opcodes, new LocalDir( $parser,
                        're <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8351	8501	
==>@opcodes, @{ $key->[1] };
            my $result2 = new_tmp( $parser, 'pmc' );
            push @opcodes, new LocalDir( $parser,
                're <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17569	17707	
==>@opcodes, @{ $key->[1] };
        my $result2 = new_tmp( $parser, 'pmc' );
        push @opcodes, new LocalDir( $parser,
            're <==
4	/Users/nnunley/parrot/tools/dev/lib_deps.pl	12890	12996	
==>th.h
nexttoward  math.h
nexttowardf math.h
nexttowardl math.h
perror      stdio.h
pow         math.h
printf <==
4	/Users/nnunley/parrot/config/init/hints/darwin.pm	473	570	
==>o-common -Wno-long-double ";
    $ccflags =~ s/-flat_namespace\s*//;
    $ldflags =~ s/-flat_names <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	13653	13749	
==>r>'s behavior under pre-5.7 Perls.

Note that this hash does not
include numerics (like "64" or " <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8217	8309	
==>STORE_${CURIC}_CONT

# Can do a lazy move.
PRE_STORE_${CURIC}_LAZY_MOVE:
${STACK0} = pop lazy <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	10308	10451	
==>eval { require overload } || return;

    foreach my $thing (@_) {
        eval { 
            if( defined $$thing ) {
                if( my $s <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2119	2210	
==>lf->pc, $offset);
}

=item C<goto_offset($offset)>

Transforms the C<goto OFFSET($offset)> m <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719945	720035	
==>tf_c(interpreter, \"%.12g\", (double){{\@2}});\n  PIO_putps(interpreter, io, s);\n  if (str <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721145	721235	
==>tf_c(interpreter, \"%.12g\", (double){{\@2}});\n  PIO_putps(interpreter, io, s);\n  if (str <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597402	597528	
==>"JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAGS" => ":objec <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598448	598574	
==>"JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAGS" => ":objec <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599495	599621	
==>"JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAGS" => ":objec <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600570	600696	
==>"JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAGS" => ":objec <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634549	634642	
==>107 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635667	635760	
==>107 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636785	636878	
==>107 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637904	637997	
==>107 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777028	777132	
==>> "#line 382 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777937	778041	
==>> "#line 382 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778846	778950	
==>> "#line 382 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779756	779860	
==>> "#line 382 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}} <==
4	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	443	591	
==>t_is         => 'is_eq',
    output_like       => 'like',
    output_isnt       => 'isnt_eq'
                        );

foreach my $func ( keys %lan <==
4	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	782	930	
==>t_is         => 'is_eq',
    output_like       => 'like',
    output_isnt       => 'isnt_eq'
                        );

foreach my $func ( keys %lan <==
4	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	357	505	
==>t_is         => 'is_eq',
    output_like       => 'like',
    output_isnt       => 'isnt_eq'
                        );

foreach my $func ( keys %lan <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1495	1592	
==>Don't we need to do better than this?

#  printf STDERR "%s: Compiling module '%s'.\n", __PACKAGE_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072183	1072330	
==>r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074368	1074515	
==>r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076553	1076700	
==>r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078739	1078886	
==>r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7858	7981	
==>wrap if $tagname eq 'Verbatim' or $tagname eq "VerbatimFormatted"
          or $tagname eq 'X';
      }

    # - - - - - - - <==
4	/Users/nnunley/parrot/config/init/optimize.pm	714	814	
==>s given, however, use that instead. 
    my $optimize = $conf->options->get('optimize');
    if (defi <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	10615	10714	
==>ined $$textref;
	my $pre  = defined $_[1] ? $_[1] : '\s*';

	my @match = _match_variable($textref,$p <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	493	582	
==>llParserEndToken -- end-tokens from Pod::Simple::PullParser

=head1 SYNOPSIS

(See L<Pod:: <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	6340	6477	
==>go) {
        return $NOW - $ago;
    } else {
        return;
    }
}

sub needs_build {
    my ($target, @sources) = @_;

    my $target <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4760	4897	
==>go) {
        return $NOW - $ago;
    } else {
        return;
    }
}

sub needs_build {
    my ($target, @sources) = @_;

    my $target <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	6551	6688	
==>go) {
        return $NOW - $ago;
    } else {
        return;
    }
}

sub needs_build {
    my ($target, @sources) = @_;

    my $target <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	38546	38647	
==>utput.
	$ins =~ s/\\/\\\\/g;
	$ins =~ s/\n/\\n/g;
	$ins =~ s/"/\\"/g;

	# Substitute in meta-variables <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6651	6810	
==>t)

            unless match goto match_fail
          match_success:
            print "matched"
            goto match_end
          match_fail:
            p <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7669	7827	
==>t)
            unless match goto match_fail
          match_success:
            print "matched"
            goto match_end
          match_fail:
            p <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1689	1785	
==>code + $offset";
}

=item C<expr_pop()>

Returns the C code for C<POP()>. Called by C<goto_offset <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	328	421	
==>g Parrot's configuration system.

=head2 Class Methods

=over

=cut

package Parrot::Docs::Sec <==
4	/Users/nnunley/parrot/lib/File/Which.pm	1119	1274	
==>BOL $exec`;
        chomp($symbol);
        if (!$?) {
            return $symbol unless $all;
            push @results, $symbol;
        }
    }
    if ($ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7318	7436	
==>= value($reg);

    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        return ("set <rx_tm <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9418	9535	
==>= value($reg);
    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        return ("set <rx_tm <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tests.pm	102	192	
==>06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Section::Tests - Tests docum <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39001	39135	
==>des2) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $parser->Error(" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031387	1031501	
==>],
                  "BODY" => "#line 323 \"src/ops/sys.ops\"\n    if ({{\@2}} < enum_first_type || {{\@2}} >= enum <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032256	1032370	
==>],
                  "BODY" => "#line 323 \"src/ops/sys.ops\"\n    if ({{\@2}} < enum_first_type || {{\@2}} >= enum <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	14283	14376	
==>ut), "\n>>\n\n";

  return @out;
}

}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858622	858718	
==>repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859626	859722	
==>repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860630	860726	
==>repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861635	861731	
==>repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773395	773483	
==>e 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774305	774393	
==>e 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775215	775303	
==>e 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776126	776214	
==>e 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071841	1071954	
==>r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = {{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  IN <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074026	1074139	
==>r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = {{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  IN <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076211	1076324	
==>r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = {{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  IN <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078397	1078510	
==>r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = {{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  IN <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	712	817	
==>$target, $pattern, $description, @todo)>

Runs the target string against the Perl 6 pattern, passing the t <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1829	1934	
==>$target, $pattern, $description, @todo)>

Runs the target string against the Perl 6 pattern, passing the t <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2810	2915	
==>$target, $pattern, $description, @todo)>

Runs the target string against the Perl 6 pattern, passing the t <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3361	3466	
==>$target, $pattern, $description, @todo)>

Runs the target string against the Perl 6 pattern, passing the t <==
4	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	2168	2334	
==>= {};
            
        $arg->{optional}    = !!$1;
        $arg->{option}      = !!$2;
        $arg->{name}        = $3;
        $arg->{type}        = $4 || ( $arg <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10983	11069	
==>{PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pre_call_HAS_RETURN_${CURIC}
if <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8169	8255	
==>{PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pre_call_HAS_RETURN_${CURIC}
if <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5831	5917	
==>{PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pre_call_HAS_RETURN_${CURIC}
if <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067048	1067163	
==>p3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068234	1068349	
==>p3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069420	1069535	
==>p3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070607	1070722	
==>p3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727094	727357	
==>ange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "io"
                               ],
                  "TYPE" => "function",
                  "CODE" => 81 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727892	728155	
==>ange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "io"
                               ],
                  "TYPE" => "function",
                  "CODE" => 81 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	728689	728952	
==>ange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "io"
                               ],
                  "TYPE" => "function",
                  "CODE" => 81 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729483	729746	
==>ange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "io"
                               ],
                  "TYPE" => "function",
                  "CODE" => 81 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259227	259535	
==>});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8528	8633	
==>is up to the SRM to do the store.
	# Otherwise, there's nothing to do here.
	if ($dest_reg) {
		$pir .= << <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6348	6453	
==>is up to the SRM to do the store.
	# Otherwise, there's nothing to do here.
	if ($dest_reg) {
		$pir .= << <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5263	5368	
==>is up to the SRM to do the store.
	# Otherwise, there's nothing to do here.
	if ($dest_reg) {
		$pir .= << <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	6754	6880	
==>tests {
    my $self = shift;
    my($max) = @_;

    if( @_ ) {
        die "Number of tests must be a postive integer.  You g <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	1332	1436	
==>ct( element-list )
    # Latter form assumes current package name as struct name.

    my ($class, @decls <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	23024	23121	
==>lHash
	P1["_type"]= '$type'
	P1["type"]= "USER"
	P1["storage"]= P0
	P2["$var"]= P1
DIMTYPE
			if ( <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	26138	26234	
==>ial substring of $text that is bounded by
 # a C<BEGIN>...C<END> pair. Don't allow nested C<BEGIN <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	21960	22054	
==>gs}{dynpmc} ? -1 : "enum_class_$classname";
    $cout .= <<"EOC";
void
Parrot_${classname}_clas <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94952	95042	
==>.ops\"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95845	95935	
==>.ops\"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96738	96828	
==>.ops\"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050149	1050247	
==>"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null class.\");\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051183	1051281	
==>"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null class.\");\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052217	1052315	
==>"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null class.\");\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053252	1053350	
==>"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null class.\");\ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2081	2172	
==>PES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_shor <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3333	3424	
==>PES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_shor <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5962	6053	
==>PES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_shor <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6520	6611	
==>PES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_shor <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10010	10098	
==>MS}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7524	7612	
==>MS}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6488	6576	
==>MS}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC <==
4	/Users/nnunley/parrot/tools/dev/lib_deps.pl	13307	13440	
==>h.h
rename      stdio.h
rewind      stdio.h
rint        math.h
rintf       math.h
rintl       math.h
round       math.h
roundf      ma <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28356	28449	
==>TRACE;').'

			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched termina <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30433	30525	
==>TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched termina <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32633	32725	
==>TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched termina <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186045	186308	
==>erpreter, {{\@1}}, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186975	187238	
==>erpreter, {{\@1}}, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187905	188168	
==>erpreter, {{\@1}}, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, ' <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	19394	19492	
==>nerate the C source code file for each of the files passed in,
using the directories passed in to s <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31890	32007	
==>ine, $out_name);
    }
    my $parameters = $method->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0 <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33467	33584	
==>ine, $out_name);
    }
    my $parameters = $method->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0 <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40524	40641	
==>ine, $out_name);
    }
    my $parameters = $method->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0 <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	198	290	
==>/Construct/Statement/Call.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "u <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577891	578154	
==>,
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inl <==
4	/Users/nnunley/parrot/config/auto/sizes.pm	4044	4176	
==>f (
        my $size = eval {
            open(TEST, ">test.c") or die "Can't open test.c: $!";
            print TEST <<'END';
#incl <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	23181	23303	
==>e because of this to-be-closed =for region, or some
        #  other one, but it doesn't matter.
      } else {
        $cu <==
4	/Users/nnunley/parrot/languages/urm/urm-old.pl	678	791	
==>$1 }
    if ($line =~ /^\d+:(.+)/) { 
	my $code = $1;
	# Some beautification!
	$code =~ s/ +/ /g;
	$code =~ s/\#.* <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773407	773492	
==>ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774317	774402	
==>ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775227	775312	
==>ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776138	776223	
==>ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2064	2171	
==>ansforms the C<goto POP()> macro in an ops file into the relevant C
code.

=cut

sub goto_pop
{
    my ($sel <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2714	2821	
==>ansforms the C<goto POP()> macro in an ops file into the relevant C
code.

=cut

sub goto_pop
{
    my ($sel <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2437	2544	
==>ansforms the C<goto POP()> macro in an ops file into the relevant C
code.

=cut

sub goto_pop
{
    my ($sel <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2617	2724	
==>ansforms the C<goto POP()> macro in an ops file into the relevant C
code.

=cut

sub goto_pop
{
    my ($sel <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189657	189792	
==>c"
                            ],
                  "BODY" => "#line 306 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190598	190733	
==>c"
                            ],
                  "BODY" => "#line 306 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpr <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	803	893	
==>lock');
  confess "Left is not Value!" unless UNIVERSAL::isa($left, 'Jako::Construct::Expre <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	815	905	
==>lock');
  confess "Left is not Value!" unless UNIVERSAL::isa($left, 'Jako::Construct::Expre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958807	959071	
==>> 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959608	959872	
==>> 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function" <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4944	5036	
==>or,$token,$value,$stack,$check,$dotpos)
     = @$self{ 'ERRST', 'NBERR', 'TOKEN', 'VALUE', ' <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4702	4793	
==>or,$token,$value,$stack,$check,$dotpos)
     = @$self{ 'ERRST', 'NBERR', 'TOKEN', 'VALUE', ' <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	55474	55567	
==>xtractor returns a defined value, that value is immediately
treated as the next extracted fiel <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793400	793486	
==>/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794305	794391	
==>/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795210	795296	
==>/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796116	796202	
==>/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, { <==
4	/Users/nnunley/parrot/config/inter/progs.pm	3164	3258	
==>tions->get('ldflags'));
    $ldflags = prompt("And your $ld for building shared libraries?", $l <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11140	11226	
==>_RETURN_${CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1}["re <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8326	8412	
==>_RETURN_${CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1}["re <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5988	6074	
==>_RETURN_${CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1}["re <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	1705	1847	
==>() if @_;
    }
    else {
        $base_type = 'ARRAY';
        $class = (caller())[0];
        @decls = @_;
    }

    _usage_error() if @dec <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	7671	7779	
==>ives)

sub accept_target         { shift->accept_targets(@_)         } # alias
sub accept_target_as_text { sh <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550152	550242	
==>= NEED_CONTINUATION;\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_met <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551453	551543	
==>= NEED_CONTINUATION;\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_met <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958613	958882	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959414	959683	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960216	960485	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" <==
4	/Users/nnunley/parrot/lib/Test/More.pm	28152	28255	
==>is a deep check, so
multi-level structures are handled correctly.

=cut

#'#
sub eq_array {
    local @D <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	1958	2047	
==>regate-return -Winline -W -Wno-unused -Wsign-compare -Wformat-nonliteral -Wformat-security <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1278	1367	
==>regate-return -Winline -W -Wno-unused -Wsign-compare -Wformat-nonliteral -Wformat-security <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1323	1412	
==>regate-return -Winline -W -Wno-unused -Wsign-compare -Wformat-nonliteral -Wformat-security <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1327	1416	
==>regate-return -Winline -W -Wno-unused -Wsign-compare -Wformat-nonliteral -Wformat-security <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76821	77246	
==>,
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 99,
                  "ARGS" => [
                              "p",
                              "p",
                              "sc" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	652786	653083	
==>"NAME" => "find_method",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653946	654243	
==>"NAME" => "find_method",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	14065	14164	
==>:Tree::classpieces::reftree {
    my $op = shift;
    return annotated($op, "classpieces " . $op->re <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39039	39260	
==>_exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39904	40125	
==>_exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40751	40972	
==>_exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41599	41820	
==>_exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926338	926463	
==>Obj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}});\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927808	927933	
==>Obj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}});\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929278	929403	
==>Obj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}});\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930749	930874	
==>Obj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}});\n <==
4	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	3353	3476	
==>ontent = $self->read;
    # Break up the $Id to prevent svn messing with it.
    my $has_id = $content =~ /(?:\$)Id:[^\$]+\$ <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10325	10434	
==>he error token

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Shift \$error token and go to state ".
#D <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9860	9965	
==>he error token

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Shift \$error token and go to state ".
#D <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	10819	10922	
==>:More's is().  Checks if $got == $expected.  This is the
numeric version.

=cut

sub is_eq {
    my($sel <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	229465	229747	
==>=> [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge_num", <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2895	3037	
==>$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUOTE";
}

our $NOW = time();

################### MAIN PROGRAM ################

my ($ <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3204	3346	
==>$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUOTE";
}

our $NOW = time();

################### MAIN PROGRAM ################

my ($ <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2999	3141	
==>$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUOTE";
}

our $NOW = time();

################### MAIN PROGRAM ################

my ($ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836777	837036	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inlin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837509	837768	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inlin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838243	838502	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inlin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838975	839234	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inlin <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3677	3821	
==>ANG'} || '') =~ m/^([a-fA-F0-9]{4})$/s ? hex($1)
                                      # yes, tolerate even more hex!
    : '1033'
  );

  $new-> <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39148	39279	
==>reak\n");
            }
        }
    }
    unshift @{ $parser->YYData->{functs} }, \@opcodes2;
    my $result = new_tmp( $pars <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3516	3616	
==>g}_debug
		saveall
		.param int debline
		find_global \$P0, "DEBUGGER"
		\$I0= \$P0["step"]
		ne \$I0 <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	73	162	
==>/Docs/POD2HTML.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	845	938	
==>sion::Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($ri <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	683	776	
==>sion::Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($ri <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	836	929	
==>sion::Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($ri <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	725	818	
==>sion::Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($ri <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	2970	3086	
==>e = shift || die "No source\n";
    my $target = shift || die "No target\n";
    my $silent = shift || 0;
    my $ind <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	2418	2534	
==>e = shift || die "No source\n";
    my $target = shift || die "No target\n";
    my $silent = shift || 0;
    my $ind <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2574	2687	
==>e = shift || die "No source\n";
    my $target = shift || die "No target\n";
    my $silent = shift || 0;
	my $ind <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	3352	3455	
==>interpreted as DIM\n";
	}
	# General purpose keyword dispatch.
	if ($syms[CURR] =~ /^(	
		while | wend | <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25134	25235	
==>n;
  my $num_children = defined $node->{children} ? @{$node->{children}} - 1 : 0;

  if($num_children= <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27034	27135	
==>n;
  my $num_children = defined $node->{children} ? @{$node->{children}} - 1 : 0;

  if($num_children= <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24246	24346	
==>n;
  my $num_children = defined $node->{children} ? @{$node->{children}} - 1 : 0;
  if($num_children= <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26145	26245	
==>n;
  my $num_children = defined $node->{children} ? @{$node->{children}} - 1: 0;

  if($num_children= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055691	1056008	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056582	1056899	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057474	1057791	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058366	1058683	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849902	850159	
==>ng_chopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850789	851046	
==>ng_chopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851676	851933	
==>ng_chopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852564	852821	
==>ng_chopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584724	584977	
==>ass, NULL);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585799	586052	
==>ass, NULL);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	392	500	
==>elf, $what) = @_;
    return () unless $self->{DEBUG};
    my $ctx = $self->{ctx};
    $what = "\%<<rx_pos>>: <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	414	512	
==>npmc_pl.in>.  This script is used for building
dynamic PMCs.

=cut

use strict;

use File::Copy qw( <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	5780	5907	
==>os;
			        return;
			}
			last if $#nesting < 0;
		}
		elsif ($qdel && $$textref =~ m/\G([$qdel])/gc)
		{
			$$textref =~ m <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4580	4683	
==>]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note that for loading debugging version of the driver,
#thi <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4350	4448	
==>]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note that for loading debugging version of the driver,
#thi <==
4	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	2222	2315	
==>return offset is determined from the op function's
signature.

=head2 Op Classification and Fl <==
4	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2662	2789	
==>ith_name
{
    my $self = shift;
    my $name = shift || return;
    
    $name .= '.c' unless $name =~ /\.[Cc]$/o;
    
    for <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	3740	3864	
==>'close-bracket', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^([\{\}])(.*)$}) {
      push @tokens, J <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	1343	1466	
==>NAME="_top"></A>
        <TABLE CELLSPACING="0" WIDTH="730">
            <TR>
                <TD WIDTH="100%" COLSPAN="2" C <==
4	/Users/nnunley/parrot/lib/Test/More.pm	12592	12691	
==>eguard against your test script blowing up.

It works on references, too:

    isa_ok( $array_ref, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151148	151438	
==>})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152126	152416	
==>})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172376	172666	
==>})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173354	173644	
==>})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543498	543690	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lcm",
                  "FLAGS" => ":advanced_math",
                  "ARGDIR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544833	545025	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lcm",
                  "FLAGS" => ":advanced_math",
                  "ARGDIR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546169	546361	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lcm",
                  "FLAGS" => ":advanced_math",
                  "ARGDIR <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39437	39527	
==>htarg"  => $rightarg,
		"expected"  => "<${type}op: ".$leftarg->describe." ".$op->describe. <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	7589	7782	
==>1);

            s/^(\.\.\.)//
                and return ( $1, $1 );
            s/^(\.\.)//
                and return ( $1, $1 );
            s/^(<=)//
                and return ( $1, <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2541	2656	
==>data -lpthread -lm';
        $extraLibs =~ s/blib/..\\blib/g;
        $extraLibs =~ s/\Q$(A)\E/.lib/g;
        $libl <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2850	2965	
==>data -lpthread -lm';
        $extraLibs =~ s/blib/..\\blib/g;
        $extraLibs =~ s/\Q$(A)\E/.lib/g;
        $libl <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2645	2760	
==>data -lpthread -lm';
        $extraLibs =~ s/blib/..\\blib/g;
        $extraLibs =~ s/\Q$(A)\E/.lib/g;
        $libl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770015	770245	
==>und register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770868	771098	
==>und register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771721	771951	
==>und register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772575	772805	
==>und register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5086	5203	
==>x
{
  my $self = shift;
  my ($handler) = @_;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3149	3266	
==>x
{
  my $self = shift;
  my ($handler) = @_;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $s <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	2326	2432	
==>open the file.
    my $filename = shift;
    open my $fh, "< $filename" or die "Unable to open $filename: $ <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	731	822	
==>o the C<use> line.
C<arguments> should be an array reference containing additional arguments <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2052	2150	
==>ster type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3304	3402	
==>ster type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5933	6031	
==>ster type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6491	6589	
==>ster type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${ <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	1005	1158	
==>> "long",
       4 => "long *",
       c => "char",
       s => "short",
       2 => "short *",
       f => "float",
       d => "double",
       t => "ch <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	1420	1573	
==>> "long",
       4 => "long *",
       c => "char",
       s => "short",
       2 => "short *",
       f => "float",
       d => "double",
       t => "ch <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	2325	2478	
==>> "long",
       4 => "long *",
       c => "char",
       s => "short",
       2 => "short *",
       f => "float",
       d => "double",
       t => "ch <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	381	499	
==>,
  ['',             'print', '"lambda"'],
  ['',             'branch', 'write_RET'],
  ['write_N_LAMBDA','eq', 'I0', ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255797	256114	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "xor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256704	257021	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "xor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257612	257929	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "xor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	17997	18104	
==>= $1;
	$preld1pos = pos($$textref);
	if ($op eq '<<') {
		$ld1pos = pos($$textref);
		my $label;
		if ($$tex <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	2872	2977	
==>, &st, return_data);",
       l => "set_nci_I(interpreter, &st, return_data);",
       s => "set_nci_I(int <==
4	/Users/nnunley/parrot/tools/build/ops2pm.pl	7837	7992	
==>mp;
        $fix = 0 if /^###DYNAMIC###/;
        s/#.*$//;
        s/\s*$//;
        s/^\s*//;
        next unless $_;
        ($name, $number) = split(/\s <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32287	32406	
==>, $para->[1]{'~orig_content'};
              # restore the bullet, blocking the assimilation of next para

          } e <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	5112	5230	
==>it can be GC'd
      }
       # to make sure that an undef is always sent to signal end-of-stream

    } elsif(exists $ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	7706	7810	
==>greedy, $R) = @{ $op->{args} };
    my $sublen = $R->maxlen();
    if (defined($max) && $max !~ /^-?\d+/) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454656	454898	
==>ne 235 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455511	455753	
==>ne 235 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456366	456608	
==>ne 235 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314047	314137	
==>line 62 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (INTVAL)((signed char)({{\@1}}));\n  {{+=2}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151056	151150	
==>= string_equal(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}})) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152034	152128	
==>= string_equal(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}})) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172284	172378	
==>= string_equal(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}})) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173262	173356	
==>= string_equal(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}})) <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7753	7852	
==>$dest_reg) {
		$pir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stac <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8609	8708	
==>$dest_reg) {
		$pir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stac <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5871	5970	
==>$dest_reg) {
		$pir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stac <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6429	6528	
==>$dest_reg) {
		$pir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stac <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344533	344790	
==>= pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345775	346032	
==>= pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347017	347274	
==>= pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348260	348517	
==>= pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920454	920752	
==>0,
                  "NAME" => "sprintf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921346	921644	
==>0,
                  "NAME" => "sprintf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	922239	922537	
==>0,
                  "NAME" => "sprintf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	39405	39522	
==>d !$link_text and @ell_content
         and grep !ref($_) && m/ /s, @ell_content
      ) {
        $section_name = [sp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597432	597610	
==>|PARROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598478	598656	
==>|PARROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599525	599703	
==>|PARROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600600	600778	
==>|PARROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/config/inter/libparrot.pm	1229	1339	
==>rot_is_shared = lc($parrot_is_shared) eq 'y';
    }

    $conf->data->set(
        parrot_is_shared => $par <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11900	11995	
==>head1 SYNOPSIS

 TODO

  perl -MPod::Simple::HTML -e \
   "exit Pod::Simple::HTML->filter(shift) <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	5963	6054	
==>f->{POD_ERRORS};
}

=item C<pod_as_html()>

Runs C<Parrot::Docs::POD2HTML> on the contents o <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	913	1002	
==>serStartToken -- start-tokens from Pod::Simple::PullParser

=head1 SYNOPSIS

(See L<Pod::S <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72778	72878	
==>ULLfunc) {\n      const char * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNING <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74380	74480	
==>ULLfunc) {\n      const char * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNING <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75982	76082	
==>ULLfunc) {\n      const char * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNING <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77585	77685	
==>ULLfunc) {\n      const char * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNING <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2576	2676	
==>k


You're unlikely to ever need to construct an object of this class for
yourself, but if you want t <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1425	1524	
==>k

You're unlikely to ever need to construct an object of this class for
yourself, but if you want t <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1714	1813	
==>k

You're unlikely to ever need to construct an object of this class for
yourself, but if you want t <==
4	/Users/nnunley/parrot/lib/Parrot/Configure.pm	864	959	
==>use lib qw(config);
use Carp qw(carp);
use Parrot::Configure::Data;

use Class::Struct;

struct( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	66057	66367	
==>interp",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "function",
                  "CODE" => 86,
                  "ARGS" => [
                              "p"
                            ] <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5002	5121	
==>emit("  global \"$dest_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handl <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3065	3184	
==>emit("  global \"$dest_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handl <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	25761	25868	
==>Opened_Testhandles;
    # We dup STDOUT and STDERR so people can change them in their
    # test suites whil <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3794	3908	
==>q ";") {
		feedme();		# Ignore this form for now.
	}
	if ($syms[CURR] eq "#") {
		feedme();
		$fd=$syms[CURR];
		fe <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35140	35235	
==>->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my $decl = $self->decl($self->{ <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36443	36538	
==>->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my $decl = $self->decl($self->{ <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38390	38485	
==>->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my $decl = $self->decl($self->{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509018	509221	
==>ps/math.ops\"\n  {{\@1}} = - {{\@1}};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509649	509852	
==>ps/math.ops\"\n  {{\@1}} = - {{\@1}};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	13742	13858	
==>($self); # so we tolerate being a class method
  
  if(!defined $source)             { $source = *STDIN{IO}
  } elsif <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72781	72888	
==>func) {\n      const char * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74383	74490	
==>func) {\n      const char * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75985	76092	
==>func) {\n      const char * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77588	77695	
==>func) {\n      const char * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516726	517019	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":ba <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517465	517758	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":ba <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518203	518496	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":ba <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518942	519235	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":ba <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	530870	531193	
==>",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 613,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 851 \"src/ops/ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1733	1831	
==>m $token->type

This returns the type of the token.  This will be either the string
"start", the st <==
4	/Users/nnunley/parrot/config/auto/alignptrs.pm	150	241	
==>/auto/alignptrs.pm - pointer alignment

=head1 DESCRIPTION

Determine the minimum pointer al <==
4	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr3.pm	17	101	
==>nguages/bc/lib/Parrot/Test/Bc/Antlr3.pm 16454 2006-02-01T20:44:27.448243Z bernhard  $ <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11662	11848	
==>2;
                    }
                    push @opcodes, @{ $last_key->[1] };
                    my $assign = new KeyedSetOp( $parser,
                        'arg1'   => $last_ke <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9874	10044	
==>2;
                }
                push @opcodes, @{ $last_key->[1] };
                my $assign = new KeyedSetOp( $parser,
                    'arg1'   => $last_ke <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8753	8891	
==>2;
        }
        push @opcodes, @{ $last_key->[1] };
        my $assign = new KeyedSetOp( $parser,
            'arg1'   => $last_ke <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18439	18525	
==>2_halfpoint_size( I<halfpoint_integer> );

=item $parser->head3_halfpoint_size( I<halfp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492228	492524	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492988	493284	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498961	499257	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499723	500019	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	418	558	
==>= @_;

  return bless {
    TOKEN    => $token,
    CODE     => 'P',
    NAME     => 'pmc',
    IMCC     => 'pmc',
    IMCC_PMC => 'PMC'
  }, <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	33134	33233	
==>cmd = $1; }"
	

See L<"extract_quotelike"> for a (partial) solution to this problem.


=head2 C<extr <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	551	645	
==>ss for Parrot-hosted languages.  Right
now it parameterizes the two parameters that at least th <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2693	2782	
==>:Test::PGE::_generate_pir_for($target, $pattern, 1);

    goto &Parrot::Test::pir_output_l <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1367	1491	
==>$address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($self, $addr) = @_;

    #print S <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1892	2016	
==>$address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($self, $addr) = @_;

    #print S <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1783	1907	
==>$address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($self, $addr) = @_;

    #print S <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1507	1631	
==>$address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($self, $addr) = @_;

    #print S <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	4981	5241	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "reserved",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	10289	10459	
==>ol}\n";
    }

    sub visitLexDir {
        my $self  = shift;
        my ($dir) = @_;
        my $FH    = $self->{fh};
        print {$FH}
            "  .lex \" <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2517	2610	
==>tic with dest type $dest_type...");
#  $self->DEBUG(0, "Arithmetic with left type $left_type.. <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103830	1103916	
==>ops/experimental.ops\"\n\tSTRING *class = {{\@2}};\n\tINTVAL type = pmc_type(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105045	1105131	
==>ops/experimental.ops\"\n\tSTRING *class = {{\@2}};\n\tINTVAL type = pmc_type(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314085	314285	
==>1}} = (INTVAL)((signed char)({{\@1}}));\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44953	45142	
==>ore.ops\"\n  Parrot_pop_mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45595	45784	
==>ore.ops\"\n  Parrot_pop_mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	4313	4452	
==>) {
            # Nothing left, so the original alternation disappears
            return $opt;
        }

        # Something left: opt(aR| <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21376	21481	
==>ore($temp);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$label");
  r <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21761	21866	
==>ore($temp);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$label");
  r <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22146	22251	
==>ore($temp);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$label");
  r <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	11089	11179	
==>t::_tracemax(substr($_[1],0,-length($text))) . q{])}, 
					  Parse::RecDescent::_tracefirs <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072505	1072611	
==>) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because w <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074690	1074796	
==>) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because w <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076875	1076981	
==>) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because w <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079061	1079167	
==>) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because w <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822013	822184	
==>",
                              "i"
                            ],
                  "BODY" => "#line 120 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5484	5583	
==>r.'[0]',$item]);
      $self->_add_inst ('', 'set', [$pair.'[1]',$return]);
      $self->_add_inst ( <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17034	17128	
==>r.'[0]',$item]);
    $self->_add_inst ('', 'set',[$pair.'[1]',$return]);
    $self->_add_inst ( <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6523	6612	
==>r.'[0]',$item]);
  $self->_add_inst('', 'set', [$pair.'[1]',$return]);
  $self->_add_inst( <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	5449	5568	
==>ext;
    }

    if ($text =~ m{^( \+\+ | -- )(.*)$}x) {
      push @tokens, Jako::Token->new(
        $file, $line, 'exf <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11137	11223	
==>_NO_RETURN_${CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1}[ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8323	8409	
==>_NO_RETURN_${CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1}[ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5985	6071	
==>_NO_RETURN_${CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1}[ <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37732	37858	
==>(" => 40,
			"#" => 41
		},
		DEFAULT => -106,
		GOTOS => {
			'exp' => 90,
			'functioncall' => 31,
			'function' => 26 <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	904	997	
==>$LD_LOAD_FLAGS = qq[-bundle -undefined suppress];
our $PERL = q[perl];
our $LOAD_EXT = qq[.bun <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	893	986	
==>$LD_LOAD_FLAGS = qq[-bundle -undefined suppress];
our $PERL = q[perl];
our $LOAD_EXT = qq[.bun <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	897	990	
==>$LD_LOAD_FLAGS = qq[-bundle -undefined suppress];
our $PERL = q[perl];
our $LOAD_EXT = qq[.bun <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22194	22301	
==>alue->new($block, $self->require_value);

        $self->require_close_paren;
      }

      $self->require_ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23127	23234	
==>alue->new($block, $self->require_value);

        $self->require_close_paren;
      }

      $self->require_ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24773	24879	
==>alue->new($block, $self->require_value);
        $self->require_close_paren;
      }

      $self->require_ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	10573	10674	
==>ack in.
sub disable_implicit_checks {
    my ($self, $t, $ctx) = @_;
    return $self->maptree($t, sub <==
4	/Users/nnunley/parrot/config/init/defaults.pm	7186	7291	
==>ve this in the hints files e.g. cc_profile
    # FIXME move profiling to it's own step
    if ($conf->opti <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	580	673	
==>::Construct::Block');
  confess("Dest (" . ref($dest) . ") is not Identifier!") unless UNIVERS <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	571	664	
==>::Construct::Block');
  confess("Dest (" . ref($dest) . ") is not Identifier!") unless UNIVERS <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	460	553	
==>::Construct::Block');
  confess("Dest (" . ref($dest) . ") is not Identifier!") unless UNIVERS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755141	755227	
==>\"src/ops/set.ops\"\n  {{\@1}}->vtable->set_number_native(interpreter, {{\@1}}, {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755928	756014	
==>\"src/ops/set.ops\"\n  {{\@1}}->vtable->set_number_native(interpreter, {{\@1}}, {{\@2}} <==
4	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	208	294	
==>use Parrot::Test::Bc::Antlr2;
use Parrot::Test::Bc::Antlr3;
use Parrot::Test::Bc::Posix <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	35360	35477	
==>@{$block};
    push @opcodes1, new BranchOp( $parser,
        'result' => $lbl_loop,
    );
    push @opcodes1, ne <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6662	6767	
==>atend {
    my ($self, $failLabel) = @_;
    my $fail = $self->output_label_use($failLabel);
    return ($ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6306	6411	
==>atend {
    my ($self, $failLabel) = @_;
    my $fail = $self->output_label_use($failLabel);
    return ($ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6644	6741	
==>{ITEMP2}

# Generate name of register to hold value we pop off the stack.
${PTEMP1} = ${STYPES}[${ <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5684	5771	
==>tem C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3260	3347	
==>tem C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2988	3075	
==>tem C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	6440	6527	
==>tem C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404698	404988	
==>ort){{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405610	405900	
==>ort){{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406522	406812	
==>ort){{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407435	407725	
==>ort){{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381096	381191	
==>src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset({{\@2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382108	382203	
==>src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset({{\@2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383120	383215	
==>src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset({{\@2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384133	384228	
==>src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset({{\@2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712582	712673	
==>(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713689	713780	
==>(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720049	720140	
==>(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721249	721340	
==>(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(in <==
4	/Users/nnunley/parrot/config/auto/gdbm.pm	670	782	
==>y $cc        = $conf->data->get('cc');
    my $libs      = $conf->data->get('libs');
    my $linkflags = $conf->d <==
4	/Users/nnunley/parrot/config/auto/gmp.pm	611	723	
==>y $cc        = $conf->data->get('cc');
    my $libs      = $conf->data->get('libs');
    my $linkflags = $conf->d <==
4	/Users/nnunley/parrot/config/auto/readline.pm	623	735	
==>y $cc        = $conf->data->get('cc');
    my $libs      = $conf->data->get('libs');
    my $linkflags = $conf->d <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	8000	8103	
==>cedence($prev->[0],$next->[0]) 
				  and not isarray($prev->[0])) { 
				$unary=1;
			} elsif (iskeywor <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044585	1044757	
==>,
                              "p"
                            ],
                  "BODY" => "#line 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interpreter, {{\@1}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045479	1045651	
==>,
                              "p"
                            ],
                  "BODY" => "#line 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interpreter, {{\@1}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046373	1046545	
==>,
                              "p"
                            ],
                  "BODY" => "#line 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interpreter, {{\@1}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047268	1047440	
==>,
                              "p"
                            ],
                  "BODY" => "#line 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interpreter, {{\@1}} <==
4	/Users/nnunley/parrot/config/init/defaults.pm	4403	4520	
==>nking?
        has_static_linking => 1,
        has_dynamic_linking => 0,

        # default behaviour for linking par <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	21683	21798	
==>ilename of where we'll stash the .def file.
        my $deffile = "$group.def";

        # Does the DEF file already <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14322	14421	
==>first
print y(3)*2

' Array structure access, 56/0
type first
	foo as integer
	bar as string
end typ <==
4	/Users/nnunley/parrot/config/auto/sizes.pm	239	337	
==>.

=cut

package auto::sizes;

use strict;
use vars qw($description @args);

use base qw(Parrot::Co <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38975	39078	
==>ps\"\n  if ({{\@1}} == EXCEPT_doomed)\n    _exit({{\@2}});\n  do_exception(interpreter, {{\@1}}, {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39840	39943	
==>ps\"\n  if ({{\@1}} == EXCEPT_doomed)\n    _exit({{\@2}});\n  do_exception(interpreter, {{\@1}}, {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40687	40790	
==>ps\"\n  if ({{\@1}} == EXCEPT_doomed)\n    _exit({{\@2}});\n  do_exception(interpreter, {{\@1}}, {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41535	41638	
==>ps\"\n  if ({{\@1}} == EXCEPT_doomed)\n    _exit({{\@2}});\n  do_exception(interpreter, {{\@1}}, {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858589	858681	
==>l_exception(NEG_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859593	859685	
==>l_exception(NEG_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860597	860689	
==>l_exception(NEG_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861602	861694	
==>l_exception(NEG_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926219	926346	
==>@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_bufle <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927689	927816	
==>@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_bufle <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929159	929286	
==>@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_bufle <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930630	930757	
==>@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_bufle <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118865	119143	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	119719	119997	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120574	120852	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
4	/Users/nnunley/parrot/config/auto/headers.pm	2060	2167	
==>st.
        foreach my $use_headers ([$header], [@found_headers, $header]) {
            $conf->data->set(te <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769474	769745	
==>NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770326	770597	
==>NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771179	771450	
==>NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772032	772303	
==>NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797062	797321	
==>umber_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797966	798225	
==>umber_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798870	799129	
==>umber_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799775	800034	
==>umber_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	6459	6579	
==>@_;

    my $target_mod = modtime($target)
      or return 1;
    for my $source (@sources) {
        return 1 if modtime <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4879	4999	
==>@_;

    my $target_mod = modtime($target)
      or return 1;
    for my $source (@sources) {
        return 1 if modtime <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	6670	6790	
==>@_;

    my $target_mod = modtime($target)
      or return 1;
    for my $source (@sources) {
        return 1 if modtime <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	6796	6906	
==>ter classes or weirder things), and all
    # of those integers are different.
    my %start;
    foreach my $s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	217	314	
==>le.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	224	321	
==>le.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	221	318	
==>le.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	231	328	
==>le.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926184	926308	
==>\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927654	927778	
==>\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929124	929248	
==>\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930595	930719	
==>\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067286	1067611	
==>perimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068472	1068797	
==>perimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069658	1069983	
==>perimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070845	1071170	
==>perimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381213	381349	
==>n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382225	382361	
==>n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383237	383373	
==>n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384250	384386	
==>n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102219	102576	
==>ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 127,
                  "ARGS" => [
                              "s",
                              "sc"
                            ],
                  "BODY" => "#lin <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	15927	16067	
==>with exit code $exit_code")
                  if $exit_code and not $pass;

            unless($ENV{POSTMORTEM}) {
                unlink $ou <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	18478	18618	
==>with exit code $exit_code")
                  if $exit_code and not $pass;

            unless($ENV{POSTMORTEM}) {
                unlink $ou <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	25520	25642	
==>with exit code $exit_code") if $exit_code and not $pass;

            unless($ENV{POSTMORTEM}) {
                unlink $ou <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024327	1024640	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025083	1025396	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025840	1026153	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026596	1026909	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	310303	310407	
==>eter,NULL);\n        while (!(interpreter->pdb->state & PDB_EXIT)) {\n            PDB_get_command(interpr <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2704	2805	
==>_element({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
  }

  $handler->start_ele <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2581	2682	
==>_element({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
  }

  $handler->start_ele <==
4	/Users/nnunley/parrot/tools/dev/install_files.pl	4202	4299	
==>braries to be installed into subdirs of libdir
        $dest = File::Spec->catdir($options{libdir} <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	5165	5255	
==>ple_output_like( $example_f, $expected, @todo )>

Determine the language from the extension <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	6795	6913	
==>)\n";
    }
}

sub generate_c {
    my ($pmc) = @_;

    if (needs_build("$pmc.c", "$pmc.pmc")) {
        run("$PMC2C - <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	7006	7124	
==>)\n";
    }
}

sub generate_c {
    my ($pmc) = @_;

    if (needs_build("$pmc.c", "$pmc.pmc")) {
        run("$PMC2C - <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7003	7099	
==>nstr(s1$, found$)
print "Bogus  (0): ", instr(s1$, bogus$)
print "Null   (1): ", instr(s1$, "")
p <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18732	18828	
==>nstr(s1$, found$)
print "Bogus  (0): ", instr(s1$, bogus$)
print "Null   (1): ", instr(s1$, "")
p <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	163	275	
==>nguage, %options) = @_;

    if ($language eq 'perl5') {
        $class = 'Regex::Driver::Perl5';
    } elsif ($l <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126550	126657	
==>onst INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127685	127792	
==>onst INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128820	128927	
==>onst INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342112	342280	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 128 \"src/ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343112	343280	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 128 \"src/ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840160	840243	
==>ps\"\n  rotate_entries(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840855	840938	
==>ps\"\n  rotate_entries(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}}) <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	30478	30603	
==>1] $cmt
EOC
}

sub BINARY_SUBSCR
{
    my ($n, $c, $cmt) = @_;
    my $w = pop @stack;
    my $v = pop @stack;
    my $x = tem <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024358	1024648	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025114	1025404	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025871	1026161	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026627	1026917	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500562	500829	
==>ME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 57 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501300	501567	
==>ME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 57 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502039	502306	
==>ME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 57 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502777	503044	
==>ME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 57 <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	7305	7428	
==>Y' ? join('|', @{$options{ignore}})
		    : defined($options{ignore})	       ? $options{ignore}
		    :					 ''
		    ;

	if <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	24307	24430	
==>Y' ? join('|', @{$options{ignore}})
		    : defined($options{ignore})	       ? $options{ignore}
		    :					 ''
		    ;

	if <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	13128	13248	
==>font color="red">$_</font>)
            } elsif ($_ =~ /^branch \d+ never executed/) {
                print OUT qq($atag <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3220	3327	
==>N' ],
  COMPLEX  => [ 2, 'I' ],
  STRING   => [ 1, 'S' ],
};

#------------------------------------

sub _co <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63980	64081	
==>check_insatiable($name,$1,$grammar,$line) if $::RD_CHECK;
					}
				}
				elsif ($grammar =~ m/$EXACT <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1049	1137	
==>left and not UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess "Righ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1077	1165	
==>left and not UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess "Righ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	749	837	
==>left and not UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess "Righ <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5085	5205	
==>ce
{
    my $self = shift;
    my $source = shift;
    my @contents = ();
    
    foreach my $content (@{$self->{CONTENT <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3077	3182	
==>ce
{
	my $self = shift;
	my $source = shift;
	my @contents = ();
	
	foreach my $content (@{$self->{CONTENT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645782	645867	
==>0 && {{\@2}} < interpreter->n_vtable_max)\n\t\t{{\@1}} = interpreter->vtables[{{\@2}}] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646679	646764	
==>0 && {{\@2}} < interpreter->n_vtable_max)\n\t\t{{\@1}} = interpreter->vtables[{{\@2}}] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044705	1044817	
==>ops\"\n    Parrot_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045599	1045711	
==>ops\"\n    Parrot_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046493	1046605	
==>ops\"\n    Parrot_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047388	1047500	
==>ops\"\n    Parrot_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56353	56462	
==>ps/core.ops\"\n  {{\@1}} = interpinfo_p(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57115	57224	
==>ps/core.ops\"\n  {{\@1}} = interpinfo_p(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1818	1909	
==>r_bullet  { ++$_[0]{'Indent'} }
sub start_over_number  { ++$_[0]{'Indent'} }
sub start_over_ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1386	1477	
==>r_bullet  { ++$_[0]{'Indent'} }
sub start_over_number  { ++$_[0]{'Indent'} }
sub start_over_ <==
4	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	2306	2426	
==>ferenced
vtable array.

=cut

sub vtbl_defs {
    my $vtable = shift;

    my $defs = q{};
    my $entry;

    for $entry <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27459	27551	
==>rse::RecDescent::lastexpected = q{' . ($rule->hasleftmost($self) ? ''
				: $self->describe ) <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29569	29661	
==>rse::RecDescent::lastexpected = q{' . ($rule->hasleftmost($self) ? ''
				: $self->describe ) <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31666	31758	
==>rse::RecDescent::lastexpected = q{' . ($rule->hasleftmost($self) ? ''
				: $self->describe ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722424	722542	
==>);\n    PIO_putps(interpreter, io, s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=3}};\n",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723453	723571	
==>);\n    PIO_putps(interpreter, io, s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=3}};\n",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724497	724615	
==>);\n    PIO_putps(interpreter, io, s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=3}};\n",
                  " <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	6751	6839	
==>nclude<parrot/parrot.h>
#if HAVE_COMPUTED_GOTO
#  include<parrot/oplib/core_ops_cgp.h>
#e <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	18225	18328	
==>r */
    if (2 == signature_len && 'v' == string_index(interpreter, signature, 1)) {
       Parrot_warn( <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1098	1188	
==>pipe -fno-common -Wno-long-double  -I /opt/local/include   -g -Wall -Wstrict-prototypes -Wm <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1156	1246	
==>pipe -fno-common -Wno-long-double  -I /opt/local/include   -g -Wall -Wstrict-prototypes -Wm <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1160	1250	
==>pipe -fno-common -Wno-long-double  -I /opt/local/include   -g -Wall -Wstrict-prototypes -Wm <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	743	833	
==>lass of L<Pod::Simple::PullParserToken> and inherits all its methods,
and adds these method <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1169	1259	
==>lass of L<Pod::Simple::PullParserToken> and inherits all its methods,
and adds these method <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	649	739	
==>lass of L<Pod::Simple::PullParserToken> and inherits all its methods,
and adds these method <==
4	/Users/nnunley/parrot/tools/dev/install_files.pl	1373	1462	
==>meta1,meta2,... <whitespace> destination

The square brackets around C<package> are litera <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500484	500792	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501222	501530	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501961	502269	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502699	503007	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "in <==
4	/Users/nnunley/parrot/examples/benchmarks/oo3.pl	119	238	
==>], "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift;
    return bless [ 10, 20 ], $self;
}

1 <==
4	/Users/nnunley/parrot/examples/benchmarks/oo4.pl	113	232	
==>], "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift;
    return bless [ 10, 20 ], $self;
}

1 <==
4	/Users/nnunley/parrot/examples/benchmarks/oo1.pl	103	221	
==>], "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift;
    return bless [ 10, 20 ], $self;
}
1 <==
4	/Users/nnunley/parrot/examples/benchmarks/oo2.pl	103	221	
==>], "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift;
    return bless [ 10, 20 ], $self;
}
1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876968	877249	
==>,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = str <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31256	31352	
==>my ($self, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $line, $out <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35887	35983	
==>my ($self, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $line, $out <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39876	39972	
==>my ($self, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $line, $out <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712598	712690	
==>\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(interpreter, s,\n\t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713705	713797	
==>\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(interpreter, s,\n\t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720065	720157	
==>\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(interpreter, s,\n\t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721265	721357	
==>\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(interpreter, s,\n\t <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	1122	1265	
==>,
    LEFT      => $left,
    OP        => $op,
    RIGHT     => $right,

    CONTENT   => [ ]
  }, $class;

  $block->push_content($self);

  r <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	1138	1281	
==>,
    LEFT      => $left,
    OP        => $op,
    RIGHT     => $right,

    CONTENT   => [ ]
  }, $class;

  $block->push_content($self);

  r <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	649	792	
==>,
    LEFT      => $left,
    OP        => $op,
    RIGHT     => $right,

    CONTENT   => [ ]
  }, $class;

  $block->push_content($self);

  r <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	649	792	
==>,
    LEFT      => $left,
    OP        => $op,
    RIGHT     => $right,

    CONTENT   => [ ]
  }, $class;

  $block->push_content($self);

  r <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	466519	466829	
==>base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 535,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => " <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	5137	5247	
==>sult .= ' '
    goto iter_loop
  iter_end:
    .return (result)

  print_2D:
    .local int row_size, pos, newl <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	513	597	
==>ext::Wrap::wrap = 'overflow';
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	347	431	
==>ext::Wrap::wrap = 'overflow';
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	45415	45549	
==>213
		}
	},
	{#State 212
		DEFAULT => -4,
		GOTOS => {
			'block' => 214,
			'chunk' => 57
		}
	},
	{#State 213
		DEFAULT => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264369	264644	
==>=> "#line 806 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265223	265498	
==>=> "#line 806 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266077	266352	
==>=> "#line 806 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266932	267207	
==>=> "#line 806 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	20491	20607	
==>n';
      $para->[1]{'~ignore'}   = (! $dont_ignore) || 0;
      $para->[1]{'~resolve'}  = $to_resolve || 0;

      D <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028110	1028204	
==>ter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_event(inte <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028961	1029055	
==>ter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_event(inte <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029813	1029907	
==>ter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_event(inte <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030655	1030749	
==>ter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_event(inte <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151070	151171	
==>(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152048	152149	
==>(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172298	172399	
==>(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173276	173377	
==>(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332327	332434	
==>e 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const mode = string_to_cs <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333605	333712	
==>e 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const mode = string_to_cs <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334883	334990	
==>e 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const mode = string_to_cs <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336162	336269	
==>e 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const mode = string_to_cs <==
4	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	5497	5678	
==>) )[1];
                         $dir =~ s!\.svn/$!!;
                         $dir => 1 
                       } keys %{ ExtUtils::Manifest::manifind() };
   my @skip;     # regula <==
4	/Users/nnunley/parrot/config/inter/make.pm	1483	1614	
==>lt('no');
            return $self;
        }
    }

    if ($conf->options->get('ask')) {
        $prog = prompt($prompt, $prog ? $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	640	724	
==>s not Identifier!") unless UNIVERSAL::isa($dest, 'Jako::Construct::Expression::Value: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	631	715	
==>s not Identifier!") unless UNIVERSAL::isa($dest, 'Jako::Construct::Expression::Value: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	520	604	
==>s not Identifier!") unless UNIVERSAL::isa($dest, 'Jako::Construct::Expression::Value: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377530	377626	
==>BODY" => "#line 432 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(interpreter, {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378414	378510	
==>BODY" => "#line 432 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(interpreter, {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379298	379394	
==>BODY" => "#line 432 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(interpreter, {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380183	380279	
==>BODY" => "#line 432 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(interpreter, {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340233	340548	
==>o.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341232	341547	
==>o.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342231	342546	
==>o.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343231	343546	
==>o.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21898	22002	
==>->is_if or $self->get(1)->is_unless) {
        $cond = $self->forth->text;

        $self->require_open_p <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22831	22935	
==>->is_if or $self->get(1)->is_unless) {
        $cond = $self->forth->text;

        $self->require_open_p <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24478	24582	
==>->is_if or $self->get(1)->is_unless) {
        $cond = $self->forth->text;

        $self->require_open_p <==
4	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	1353	1449	
==>self->{builder}->diag( $diag ) if $diag;
  
  return Parrot::Test::slurp_file($out_f);
}


=head2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948914	949193	
==>2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949714	949993	
==>2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959368	959647	
==>2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960170	960449	
==>2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344617	344925	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_ope <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345859	346167	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_ope <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347101	347409	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_ope <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348344	348652	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_ope <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	880	969	
==>. ref($right) . ") is not Value") unless UNIVERSAL::isa($right, 'Jako::Construct::Expressi <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	718	807	
==>. ref($right) . ") is not Value") unless UNIVERSAL::isa($right, 'Jako::Construct::Expressi <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	871	960	
==>. ref($right) . ") is not Value") unless UNIVERSAL::isa($right, 'Jako::Construct::Expressi <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	760	849	
==>. ref($right) . ") is not Value") unless UNIVERSAL::isa($right, 'Jako::Construct::Expressi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73021	73131	
==>def);\n  }\n  else {\n      {{\@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}}->vtable->set_pointer <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74623	74733	
==>def);\n  }\n  else {\n      {{\@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}}->vtable->set_pointer <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76225	76335	
==>def);\n  }\n  else {\n      {{\@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}}->vtable->set_pointer <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77828	77938	
==>def);\n  }\n  else {\n      {{\@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}}->vtable->set_pointer <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	564	656	
==>sa($block, 'Jako::Construct::Block');
  confess("Dest (" . ref($dest) . ") is not Identifier! <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	555	647	
==>sa($block, 'Jako::Construct::Block');
  confess("Dest (" . ref($dest) . ") is not Identifier! <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	444	536	
==>sa($block, 'Jako::Construct::Block');
  confess("Dest (" . ref($dest) . ") is not Identifier! <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	12516	12606	
==>b90\sa180\f2\fs%s\ul\sbasedon0 \snext0 pod-head4;}
}

END

   $_[0]->codeblock_halfpoint_si <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12036	12135	
==>nt list
     /"interpreter->vtables[$supertype].$method(" . full_arguments($1) . ')'/xeg;

    # Rew <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647081	647365	
==>,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647841	648125	
==>,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648602	648886	
==>,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649364	649648	
==>,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855039	855348	
==>\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855928	856237	
==>\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856817	857126	
==>\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857707	858016	
==>\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905239	905385	
==>"
                            ],
                  "BODY" => "#line 262 \"src/ops/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_str(interpreter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906258	906404	
==>"
                            ],
                  "BODY" => "#line 262 \"src/ops/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_str(interpreter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591631	591726	
==>ass '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592841	592936	
==>ass '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594051	594146	
==>ass '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595262	595357	
==>ass '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}}) <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	6785	6900	
==>" } @tokens))
#    if @tokens;

  push @{$self->{TOKENS}}, @tokens;
}


#
# slurp_file()
#

sub slurp_file
{
  my $s <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11030	11117	
==>OID goto pre_call_HAS_RETURN_${CURIC}
if "${CURIC}" == "73" goto pre_call_HAS_RETURN_${C <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8216	8303	
==>OID goto pre_call_HAS_RETURN_${CURIC}
if "${CURIC}" == "73" goto pre_call_HAS_RETURN_${C <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5878	5965	
==>OID goto pre_call_HAS_RETURN_${CURIC}
if "${CURIC}" == "73" goto pre_call_HAS_RETURN_${C <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634559	634663	
==>ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635677	635781	
==>ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636795	636899	
==>ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637914	638018	
==>ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exc <==
4	/Users/nnunley/parrot/config/auto/sizes.pm	3671	3795	
==>geintval);
            last;
        }
    }
    if (!defined($hugeintval{hugeintvalsize})
        || $hugeintval{hugeintvals <==
4	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3368	3468	
==>XX This should be "print the last command". Which is harder.
        $body =~ s/^(\s*)([^\n]+)\s*\Z/$ <==
4	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4775	4875	
==>XX This should be "print the last command". Which is harder.
        $body =~ s/^(\s*)([^\n]+)\s*\Z/$ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543613	543909	
==>lcm",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544948	545244	
==>lcm",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546284	546580	
==>lcm",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215093	215368	
==>}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216034	216309	
==>}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216973	217248	
==>}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217913	218188	
==>}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	44794	44896	
==>self;
}

1;
__END__

=head1 NAME

Scheme::Generator - The Scheme code generator

=head1 SYNOPSIS

  use <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2100	2196	
==>>peer and $self->peer->prefix) {
    $self->prefix($self->peer->prefix);
  }

  if ($self->prefix <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1977	2073	
==>>peer and $self->peer->prefix) {
    $self->prefix($self->peer->prefix);
  }

  if ($self->prefix <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	9334	9427	
==>= readjit("src/jit/$cpuarch/core.jit");

print JITCPU $header if ($header);

my $njit = scalar <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870999	871166	
==>",
                              "i"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872016	872183	
==>",
                              "i"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873033	873200	
==>",
                              "i"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874051	874218	
==>",
                              "i"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10692	10804	
==>nges = sort { $a->[0] <=> $b->[0] } @ranges;

    # Build up an inclusion/exclusion list
    my @incexc;
    fore <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	384	483	
==>ad2 Instance Methods

=over 4

=cut

package Parrot::OpTrans::CSwitch;

use strict;
use warnings;

u <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714540	714638	
==>ING * const s = {{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (s && string_length(int <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715463	715561	
==>ING * const s = {{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (s && string_length(int <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926414	926540	
==>NFO_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1}} = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927884	928010	
==>NFO_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1}} = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929354	929480	
==>NFO_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1}} = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930825	930951	
==>NFO_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1}} = <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	4978	5105	
==>, 252,
 'yacute'   , 253,
 'thorn'    , 254,
 'yuml'     , 255,

 'fnof'     , 402,
 'Alpha'    , 913,
 'Beta'     , 914,
 'Gamm <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1328	1440	
==>s responsible for the consequences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $s <==
4	/Users/nnunley/parrot/config/inter/make.pm	1149	1261	
==>s responsible for the consequences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $s <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1325	1437	
==>s responsible for the consequences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60651	60873	
==>S_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61301	61523	
==>S_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63233	63455	
==>S_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63879	64101	
==>S_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	683	775	
==>. ref($block) . ") is not!"  unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  con <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	558	649	
==>. ref($block) . ") is not!" unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  con <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	567	658	
==>. ref($block) . ") is not!" unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  con <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	549	640	
==>. ref($block) . ") is not!" unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  con <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3019	3131	
==>elf = shift;
  my ($handler) = @_;

  my $block = $self->block;
  my $kind  = $self->kind;
  my $name  = $self->i <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	720	813	
==>alue::Identifier');
  confess("Left (" . ref($left) . ") is not Value") unless UNIVERSAL::isa( <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	711	804	
==>alue::Identifier');
  confess("Left (" . ref($left) . ") is not Value") unless UNIVERSAL::isa( <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	600	693	
==>alue::Identifier');
  confess("Left (" . ref($left) . ") is not Value") unless UNIVERSAL::isa( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240226	240511	
==>{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241174	241459	
==>{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242122	242407	
==>{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243071	243356	
==>{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73084	73174	
==>_class_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74686	74776	
==>_class_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76288	76378	
==>_class_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77891	77981	
==>_class_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12241	12365	
==>TION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 37,
			'functioncall' => 31,
			'function' => 26,
			'tab <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1819	1923	
==>ra subroutines required for the mapper.
sub subs() {
	# No extra subs.
	return "";
}

# Label generation. <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	859	963	
==>ra subroutines required for the mapper.
sub subs() {
	# No extra subs.
	return "";
}

# Label generation. <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	616	720	
==>ra subroutines required for the mapper.
sub subs() {
	# No extra subs.
	return "";
}

# Label generation. <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	10629	10738	
==>_input> = <rx_match>{'!INPUT'};
#         <rx_pos> = <rx_match>{'!POS'};
#         <rx_stack> = <rx_match>{'!S <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11004	11109	
==>"Can't read $infile: $!\n";
    open (OUT, ">$outfile") or die "Can't write $outfile: $!\n";

    print OU <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11488	11593	
==>"Can't read $infile: $!\n";
    open (OUT, ">$outfile") or die "Can't write $outfile: $!\n";

    print OU <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11952	12057	
==>"Can't read $infile: $!\n";
    open (OUT, ">$outfile") or die "Can't write $outfile: $!\n";

    print OU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072181	1072318	
==>0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = x <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074366	1074503	
==>0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = x <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076551	1076688	
==>0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = x <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078737	1078874	
==>0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = x <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3775	3886	
==>lement({ Name => 'literal', Attributes => { type => $type->name } });
          $handler->characters({ Data => $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4284	4393	
==>lement({ Name => 'literal', Attributes => { type => $type->name } });
        $handler->characters({ Data => $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4634	4741	
==>lement({ Name => 'literal', Attributes => { type => $type->name } });
      $handler->characters({ Data => $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4845	4950	
==>lement({ Name => 'literal', Attributes => { type => $type->name } });
    $handler->characters({ Data => $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70910	71142	
==>d_lib(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71679	71911	
==>d_lib(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14137	14234	
==>t ('', 'branch', ["DONE_$label"]);
    $self->_add_inst ("FAIL_$label", 'set', [$return,0]);
    $ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16405	16498	
==>t ('', 'branch', ["DONE_$label"]);
  $self->_add_inst ("FAIL_$label", 'set', [$return,0]);
  $ <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	3921	4029	
==>$group", "lib-$group")
          or die "compile $group.c failed ($?)\n";
    }
} 
elsif ($mode eq 'linklibs' <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	4025	4133	
==>$group", "lib-$group")
          or die "compile $group.c failed ($?)\n";
    }
} 
elsif ($mode eq 'linklibs' <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	47875	47970	
==>lf->_generate("$implicit : $code",$replace,1);
			my $pos = pos $grammar;
			substr($grammar,$po <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15314	15408	
==>func=55
end function
dim g(10)
g(5)=666
g(4)=12
a=g(5)+0
y=arrfunc(g())

' For loops, by two an <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	34287	34442	
==>_exact_p,
  'inexact?'         => \&_op_inexact_p,
  '='                => \&_op_eq,
  '<'                => \&_op_lt,
  '>'                => \&_op_gt,
  ' <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10012	10100	
==>}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC}: <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7526	7614	
==>}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC}: <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6490	6578	
==>}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC}: <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	12672	12785	
==>e empty-string as a source for parse_file");
  } else {
    {
      local *PODSOURCE;
      open(PODSOURCE, "<$sou <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2269	2364	
==>gister_num} = ${STEMP0}

# Decrement stack height.
dec stack_depth
PIR
		$pir =~ s/\$register_nu <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3521	3616	
==>gister_num} = ${STEMP0}

# Decrement stack height.
dec stack_depth
PIR
		$pir =~ s/\$register_nu <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15719	15809	
==>onment variable TEST_ALWAYS_CALLER to force Test.pm to always
append the caller information <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867219	867307	
==>ing_length(interpreter, {{\@2}});\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868185	868273	
==>ing_length(interpreter, {{\@2}});\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869151	869239	
==>ing_length(interpreter, {{\@2}});\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870118	870206	
==>ing_length(interpreter, {{\@2}});\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3} <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	635	734	
==>(eg FreeBSD) have ""s embedded in their substution values. q[] is used in
# some places as Win32 pat <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	593	692	
==>(eg FreeBSD) have ""s embedded in their substution values. q[] is used in
# some places as Win32 pat <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	597	696	
==>(eg FreeBSD) have ""s embedded in their substution values. q[] is used in
# some places as Win32 pat <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	30	117	
==>e/Scheme/Generator.pm 15849 2006-01-14T10:37:55.635677Z bernhard  $

package Scheme::Gen <==
4	/Users/nnunley/parrot/config/auto/format.pm	329	421	
==>rgs);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step;

$descriptio <==
4	/Users/nnunley/parrot/config/init/hints.pm	369	461	
==>rgs);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step;

$descriptio <==
4	/Users/nnunley/parrot/config/init/miniparrot.pm	614	706	
==>rgs);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step;

$descriptio <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	104	192	
==>ESCRIPTION

This file is generated by F<config/gen/config_pm.pm> from
F<config/gen/config <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672443	672749	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673215	673521	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673985	674291	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	674756	675062	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766496	766599	
==>"#line 335 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767349	767452	
==>"#line 335 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768202	768305	
==>"#line 335 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769056	769159	
==>"#line 335 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175018	175215	
==>p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 233 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpret <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	1433	1545	
==>}


FILE:
foreach my $file (@files) {
    $file =~ s/^\.\///g;
    if (!open(F, "<$file")) {
        error($file, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009827	1009916	
==>DY" => "#line 659 \"src/ops/string.ops\"\n  {{\@1}} = string_compose(interpreter, {{\@2}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010592	1010681	
==>DY" => "#line 659 \"src/ops/string.ops\"\n  {{\@1}} = string_compose(interpreter, {{\@2}}) <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22025	22121	
==>= Jako::Construct::Expression::Value->new($block, $self->require_value);
        $op    = $self-> <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22958	23054	
==>= Jako::Construct::Expression::Value->new($block, $self->require_value);
        $op    = $self-> <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24604	24700	
==>= Jako::Construct::Expression::Value->new($block, $self->require_value);
        $op    = $self-> <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	2281	2371	
==>ock->find_symbol($ident);

      $ident = Jako::Construct::Expression::Value::Identifier->c <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2377	2487	
==>f file '%s'.",
      $self->name, $sym->line, $sym->file);
  }

  #
  # Now that we've decided to actually decl <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2124	2234	
==>f file '%s'.",
      $self->name, $sym->line, $sym->file);
  }

  #
  # Now that we've decided to actually decl <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4681	4777	
==>eturns a
L<Parrot::Configure::Data> object.

=cut

sub settrigger
{
    my ($self, $key, $trigger <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	39113	39205	
==>er, if the string value associated with <reject> is "MAX", then
C<extract_tagged> returns the <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1329	1434	
==>uld not be
  # triggered in normal operation, even with bad source code as input.
  #

  $self->INTERNAL_E <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1274	1379	
==>uld not be
  # triggered in normal operation, even with bad source code as input.
  #

  $self->INTERNAL_E <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1177	1282	
==>uld not be
  # triggered in normal operation, even with bad source code as input.
  #

  $self->INTERNAL_E <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10732	10832	
==>tive_path(shift) || return;
    
    return $self->file_with_path($path);
}

=item C<delete()>

Delet <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8522	8627	
==>en it is up to the SRM to do the store.
	# Otherwise, there's nothing to do here.
	if ($dest_reg) {
		$pir <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6342	6447	
==>en it is up to the SRM to do the store.
	# Otherwise, there's nothing to do here.
	if ($dest_reg) {
		$pir <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5257	5362	
==>en it is up to the SRM to do the store.
	# Otherwise, there's nothing to do here.
	if ($dest_reg) {
		$pir <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	3991	4090	
==>() }
sub startset { my ($op) = @_; $op->{args}->[0]->startset() }
sub hasback { my ($op) = @_; $op-> <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367154	367425	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367945	368216	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368737	369008	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io" <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	11757	11865	
==>1) or length($2)
        or pos($line_group) != length($line_group);
       # I.e., unless it's a zero-length <==
4	/Users/nnunley/parrot/config/inter/progs.pm	66	155	
==>fig/inter/progs.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/inter/pr <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11219	11307	
==>MP1}["reg_type_short"]
${DEST0} = concat ${STEMP0}
inc stack_depth
${STEMP0} = stack_dept <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8405	8493	
==>MP1}["reg_type_short"]
${DEST0} = concat ${STEMP0}
inc stack_depth
${STEMP0} = stack_dept <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905320	905413	
==>/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2}}, {{\@3}}, {{\@4}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906339	906432	
==>/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2}}, {{\@3}}, {{\@4}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907358	907451	
==>/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2}}, {{\@3}}, {{\@4}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908378	908471	
==>/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2}}, {{\@3}}, {{\@4}}) <==
4	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	1013	1122	
==>t      body($file, @args);
print   badargs($cmd, @args);
print    footer();

sub open_tmt {
    my ($filename) <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1771	1879	
==>ation() {
	# Nothing to do.
	return "";
}

# Extra subroutines required for the mapper.
sub subs() {
	# No ex <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	811	919	
==>ation() {
	# Nothing to do.
	return "";
}

# Extra subroutines required for the mapper.
sub subs() {
	# No ex <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	568	676	
==>ation() {
	# Nothing to do.
	return "";
}

# Extra subroutines required for the mapper.
sub subs() {
	# No ex <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584495	584596	
==>ode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS, \ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585570	585671	
==>ode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS, \ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598011	598112	
==>ode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS, \ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599058	599159	
==>ode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS, \ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836807	837038	
==>MP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837539	837770	
==>MP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838273	838504	
==>MP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	839005	839236	
==>MP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712593	712687	
==>r, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(interpreter, s,\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713700	713794	
==>r, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(interpreter, s,\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720060	720154	
==>r, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(interpreter, s,\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721260	721354	
==>r, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(interpreter, s,\ <==
4	/Users/nnunley/parrot/config/auto/headers.pm	1311	1416	
==>es.h to the reprobe list, and have 2 goes at getting
    # the header.
    my @extra_headers = qw(malloc.h <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629906	630116	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630895	631105	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107618	1107828	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	13081	13182	
==>) = _USERFUNC_${extern}_run($ac$pir_args)";
				push @work, [ "result of $extern()", "RESULT",  "\$$op <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1412	1525	
==>vant C code.

=cut

sub goto_address
{
    my ($self, $addr) = @_;

    #print STDERR "pbcc: map_ret_abs($addr)\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1937	2050	
==>vant C code.

=cut

sub goto_address
{
    my ($self, $addr) = @_;

    #print STDERR "pbcc: map_ret_abs($addr)\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1828	1941	
==>vant C code.

=cut

sub goto_address
{
    my ($self, $addr) = @_;

    #print STDERR "pbcc: map_ret_abs($addr)\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1552	1665	
==>vant C code.

=cut

sub goto_address
{
    my ($self, $addr) = @_;

    #print STDERR "pbcc: map_ret_abs($addr)\n" <==
4	/Users/nnunley/parrot/lib/Test/More.pm	4927	5094	
==>]};
            $idx++;
        }
        else {
            push @plan, $item;
        }

        $idx++;
    }

    plan(@plan);

    __PACKAGE__->_export_to_level(1, <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	662	762	
==>ded in their substution values. q[] is used in
# some places as Win32 paths have \'s in, which qq[] t <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	620	720	
==>ded in their substution values. q[] is used in
# some places as Win32 paths have \'s in, which qq[] t <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	624	724	
==>ded in their substution values. q[] is used in
# some places as Win32 paths have \'s in, which qq[] t <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30613	30734	
==>)
							if defined $::RD_TRACE;').'
		push @item, '.($::RD_NO_HITEM ? ''
			       : '$item{'.$self->{hashname}.'}=') . ' <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42457	42578	
==>)
						if defined $::RD_TRACE;').'

		push @item, '.($::RD_NO_HITEM ? ''
			       : '$item{'.$self->{hashname}.'}=') . ' <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28537	28656	
==>)
					if defined $::RD_TRACE;').'
		push @item, '.($::RD_NO_HITEM ? ''
			       : '$item{'.$self->{hashname}.'}=') . ' <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32816	32934	
==>)
							if defined $::RD_TRACE;').'
		push @item, ' . ($::RD_NO_HITEM ? ''
				 : '$item{'.$self->{hashname}.'}=') . ' <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48129	48237	
==>ep,$maxrep) = (1,$MAXREP);
			if ($grammar =~ m/\G[(]/gc)
			{
				pos($grammar)--;

				if ($grammar =~ m/$O <==
4	/Users/nnunley/parrot/tools/dev/install_files.pl	445	543	
==>ptions]

=head1 DESCRIPTION

Use a detailed MANIFEST to install a set of files.

=head2 Options

=o <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436470	436560	
==>"BODY" => "#line 94 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437485	437575	
==>"BODY" => "#line 94 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3 <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2693	2827	
==>{
        $liblist = join( ' ', map { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3002	3136	
==>{
        $liblist = join( ' ', map { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2797	2931	
==>{
        $liblist = join( ' ', map { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621993	622094	
==>args = NULL;\n\t}\n\n\t{{+=n}};\n    }\n    /* no match redo plain opcode */\n    ((void**)cur_opcode) <==
4	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2655	2789	
==>language_test_map{$func};

        # That's the reason for:   no strict 'refs';
        my $pass = $self->{builder}
            ->$ <==
4	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	2195	2317	
==>language_test_map{$func};
           # That's the reason for:   no strict 'refs';
           my $pass = $self->{builder}->$ <==
4	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2185	2301	
==>language_test_map{$func};
        # That's the reason for:   no strict 'refs';
        my $pass = $self->{builder}->$ <==
4	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2724	2840	
==>language_test_map{$func};
        # That's the reason for:   no strict 'refs';
        my $pass = $self->{builder}->$ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932218	932572	
==>ase_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1047,
                  "ARGS" => [
                              "s",
                              "sc"
                            ], <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769399	769697	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770251	770549	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771104	771402	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771957	772255	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056517	1056632	
==>ps\"\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057409	1057524	
==>ps\"\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058301	1058416	
==>ps\"\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059194	1059309	
==>ps\"\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773426	773522	
==>{{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774336	774432	
==>{{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775246	775342	
==>{{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776157	776253	
==>{{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n", <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3758	3862	
==>$handler->start_element({ Name => 'literal', Attributes => { type => $type->name } });
          $handler <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4267	4369	
==>$handler->start_element({ Name => 'literal', Attributes => { type => $type->name } });
        $handler <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4617	4717	
==>$handler->start_element({ Name => 'literal', Attributes => { type => $type->name } });
      $handler <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4828	4926	
==>$handler->start_element({ Name => 'literal', Attributes => { type => $type->name } });
    $handler <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579686	579975	
==>terpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580991	581280	
==>terpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582296	582585	
==>terpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583602	583891	
==>terpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17974	18073	
==>nt "Wrong again!"
	case 0
		print "Right (nest)!"
	end select
	print "Ongoing (right also)"
end sele <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	1881	1977	
==>cription)>

Runs the Parrot Assembler code and passes the test if a string comparison
of the outp <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	2322	2418	
==>cription)>

Runs the Parrot Assembler code and passes the test
if a string comparison of the outp <==
4	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	7	97	
==>ight (C) 2004-2006, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Distribution.pm 19602 20 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072558	1072667	
==>@5}};\n\n  /* correct the sign (can be wrong because we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074743	1074852	
==>@5}};\n\n  /* correct the sign (can be wrong because we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076928	1077037	
==>@5}};\n\n  /* correct the sign (can be wrong because we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079114	1079223	
==>@5}};\n\n  /* correct the sign (can be wrong because we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11014	11100	
==>eter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11803	11889	
==>eter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13040	13126	
==>eter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13884	13970	
==>eter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STA <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31939	32061	
==>od->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33516	33638	
==>od->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38533	38655	
==>od->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40573	40695	
==>od->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404067	404368	
==>"JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404978	405279	
==>"JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405890	406191	
==>"JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406802	407103	
==>"JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692328	692692	
==>FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 778,
                  "ARGS" => [
                              "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438446	438582	
==>"p"
                            ],
                  "BODY" => "#line 99 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_ppp(interpreter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51740	51840	
==>@1}} != 0) { Parrot_set_trace(interpreter,   {{\@1}}); }\n  else         { Parrot_clear_trace(interpr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52523	52623	
==>@1}} != 0) { Parrot_set_trace(interpreter,   {{\@1}}); }\n  else         { Parrot_clear_trace(interpr <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	1997	2091	
==>Wsign-compare -Wformat-nonliteral -Wformat-security -Wpacked -Wdisabled-optimization -falign-fu <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1317	1411	
==>Wsign-compare -Wformat-nonliteral -Wformat-security -Wpacked -Wdisabled-optimization -falign-fu <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1362	1456	
==>Wsign-compare -Wformat-nonliteral -Wformat-security -Wpacked -Wdisabled-optimization -falign-fu <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1366	1460	
==>Wsign-compare -Wformat-nonliteral -Wformat-security -Wpacked -Wdisabled-optimization -falign-fu <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	2038	2153	
==>preserved across rule calls
        push @{ $self->{rxlocals} }, @{ $op->{rxlocals} };
        return ();
    } else <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1749	1847	
==>{ $parser->YYData->{scopef} }, $parser->YYData->{scope};
    $parser->YYData->{scope} = [];
    u <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78901	78996	
==>\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  void * const p = Parro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80422	80517	
==>\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  void * const p = Parro <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20273	20377	
==>0)
print 0.5,sqr(0.5)
print 2,sqr(2)
for i = -1 to 1
	print "Sign of ";i;" is ",sgn(i)
next i


' "shared <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1585	1688	
==>op    = $self->op;
  my $right = $self->right;

  my $dest_sym = $block->find_symbol($dest->value);
  $s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1543	1646	
==>op    = $self->op;
  my $right = $self->right;

  my $dest_sym = $block->find_symbol($dest->value);
  $s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1465	1568	
==>op    = $self->op;
  my $right = $self->right;

  my $dest_sym = $block->find_symbol($dest->value);
  $s <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	12298	12427	
==>N($reg_num);";
        return "t_$temp_num";
    };
    /t/ && do {
        push @{$temps_ref}, "char *t_$temp_num;";
        push <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	13816	13924	
==>$core_numops ops\n");

sub make_subs {
    my ($ptr, $type, $index) = @_;

    return(($ptr eq '&' ? '&' : '' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018122	1018401	
==>ter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019047	1019326	
==>ter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019977	1020256	
==>ter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020908	1021187	
==>ter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21890	21994	
==>->get(1)->is_if or $self->get(1)->is_unless) {
        $cond = $self->forth->text;

        $self->requir <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22823	22927	
==>->get(1)->is_if or $self->get(1)->is_unless) {
        $cond = $self->forth->text;

        $self->requir <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24470	24574	
==>->get(1)->is_if or $self->get(1)->is_unless) {
        $cond = $self->forth->text;

        $self->requir <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	330	431	
==>ss Methods

=over 4

=cut

package Parrot::IO::Directory;

use strict;
use warnings;

use base qw( Par <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1078	1198	
==>> $op,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => $dest->file,
    LINE  => $dest->line
  }, $class;

  $block->p <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1069	1189	
==>> $op,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => $dest->file,
    LINE  => $dest->line
  }, $class;

  $block->p <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	958	1078	
==>> $op,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => $dest->file,
    LINE  => $dest->line
  }, $class;

  $block->p <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	170	251	
==>rrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm 19606 2006-05-30T <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736523	736726	
==>S" => [
                              "n",
                              "i"
                            ],
                  "BODY" => "#line 144 \"src/ops/set.ops\"\n  {{\@1}} = (FLOATVAL){{\@2}};\n  {{ <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	8842	8982	
==>'THEN',
        'true'     => 'TRUE',
        'until'    => 'UNTIL',
        'while'    => 'WHILE',
    );

    $parser->YYData->{keywo <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30284	30390	
==>e copy dispatch routine
	# Call with S0 set to the type
	# Source in P6
	# Dest returned in P1
STRUCT_COPY: <==
4	/Users/nnunley/parrot/tools/build/c2str.pl	656	756	
==>die "$0: $infile: $!" unless -e $infile;

my %known_strings = ();
my @all_strings;

&read_all;
open A <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64796	65022	
==>de;\n  runops(new_interp, REL_PC + {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65747	65973	
==>de;\n  runops(new_interp, REL_PC + {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2809	2908	
==>_;

    return "interpreter->resume_offset = REL_PC + $offset; interpreter->resume_flag = 1";
}

=it <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4144	4243	
==>_;

    return "interpreter->resume_offset = REL_PC + $offset; interpreter->resume_flag = 1";
}

=it <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2010	2111	
==>= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set regist <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3262	3363	
==>= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set regist <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5892	5992	
==>= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set regist <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6450	6550	
==>= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set regist <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	725476	725685	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clone",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726237	726446	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clone",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812685	812894	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clone",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o" <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	17736	17841	
==>goto', [ $R_back ]),
	$next => $self->op_save_rxlocals($op),
		 );

    return ($back, @ops);
}

# R<min,m <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655827	656172	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656750	657095	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657674	658019	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658592	658937	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	43283	43390	
==>t "Scrutinizing line $i: $$p[$i]\n";
    if($p->[$i]   =~ m{^#:([ \^\/\%]*)\n?$}s) {
      DEBUG > 5 and pri <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	35996	36141	
==>> 78,
			"*" => 80,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT = <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36254	36399	
==>> 78,
			"*" => 80,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT = <==
4	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2472	2554	
==>F<examples/mops/mops.il>,
F<examples/mops/mops.p6>,
F<examples/mops/mops.ps>,
F<exa <==
4	/Users/nnunley/parrot/examples/mops/mops.pl	2472	2554	
==>F<examples/mops/mops.il>,
F<examples/mops/mops.p6>,
F<examples/mops/mops.ps>,
F<exa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072900	1073244	
==>}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075085	1075429	
==>}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077270	1077614	
==>}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079456	1079800	
==>}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	7009	7108	
==>ft->unaccept_directives(@_) };

sub unaccept_directives {
  my $this = shift;
  foreach my $d (@_) { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822412	822525	
==>PE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_int(entry->entry);\n  {{+=3}};\n",
                  "LABE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823480	823593	
==>PE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_int(entry->entry);\n  {{+=3}};\n",
                  "LABE <==
4	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	771	874	
==>or die "Couldn't chdir into \"@{[ BASEDIR ]}\": $!\n";

$SIG{PIPE} = "IGNORE";

my $t = do { local $/; < <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	45141	45238	
==>string.
On failure, all of these values (except the remaining text) are C<undef>.


In a scalar co <==
4	/Users/nnunley/parrot/config/gen/makefiles.pm	2618	2822	
==>le',
        commentType                          => '#',
        replace_slashes                      => 1,
        conditioned_lines                    => 1
    );
    genfile(
        'config/gen/makefi <==
4	/Users/nnunley/parrot/config/gen/makefiles.pm	1352	1538	
==>le',
        commentType                    => '#',
        replace_slashes                => 1,
        conditioned_lines              => 1
    );
    genfile(
        'config/gen/makefi <==
4	/Users/nnunley/parrot/config/gen/makefiles.pm	4419	4599	
==>le',
        commentType                  => '#',
        replace_slashes              => 1,
        conditioned_lines            => 1
    );
    genfile(
        'config/gen/makefi <==
4	/Users/nnunley/parrot/config/gen/makefiles.pm	5469	5649	
==>le',
        commentType                  => '#',
        replace_slashes              => 1,
        conditioned_lines            => 1
    );
    genfile(
        'config/gen/makefi <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11770	11941	
==>assign = new KeyedSetOp( $parser,
                        'arg1'   => $last_key->[0],
                        'arg2'   => undef,
                        'result' => $res <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9970	10129	
==>assign = new KeyedSetOp( $parser,
                    'arg1'   => $last_key->[0],
                    'arg2'   => undef,
                    'result' => $res <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8825	8960	
==>assign = new KeyedSetOp( $parser,
            'arg1'   => $last_key->[0],
            'arg2'   => undef,
            'result' => $res <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	35922	36032	
==>= new ResizablePMCArray\n";
        $pir .= "    c_params = new ResizableStringArray\n";
        $mv->{'PARAMS' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566177	566598	
==>> [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 647,
                  "ARGS" => [
                              "i",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	37013	37105	
==>Michael G Schwern E<lt>schwern@pobox.comE<gt>.

This program is free software; you can redist <==
4	/Users/nnunley/parrot/lib/Test/More.pm	37422	37514	
==>Michael G Schwern E<lt>schwern@pobox.comE<gt>.

This program is free software; you can redist <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	6382	6474	
==>Michael G Schwern E<lt>schwern@pobox.comE<gt>.

This program is free software; you can redist <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	6170	6311	
==>,
             'i_sysstat' => 'define',
             'i_sysstatfs' => undef,
             'i_sysstatvfs' => 'define',
             'i_systime' <==
4	/Users/nnunley/parrot/config/auto/jit.pm	181	274	
==>1 DESCRIPTION

Determines the CPU architecture, the operating system, and whether there is JIT <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	810	901	
==>[c++];
our $LDFLAGS = qq[-L/opt/local/lib -L/usr/local/lib -flat_namespace  ];
our $LD_LOAD_ <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	814	905	
==>[c++];
our $LDFLAGS = qq[-L/opt/local/lib -L/usr/local/lib -flat_namespace  ];
our $LD_LOAD_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6071	6263	
==>core.ops\"\n    Parrot_load_bytecode(interpreter, {{\@1}});\n    {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6737	6929	
==>core.ops\"\n    Parrot_load_bytecode(interpreter, {{\@1}});\n    {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                } <==
4	/Users/nnunley/parrot/lib/Test/More.pm	1124	1221	
==>::More - yet another framework for writing test scripts

=head1 SYNOPSIS

  use Test::More tests = <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17538	17628	
==>eof',[$type,$list]);
  $self->_add_inst ('', 'eq',[$type,'.Undef', "DONE_$label"]);
  $self <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	26873	26987	
==>results = $self->{Test_Results};
        if( $num > @$test_results ) {
            my $start = @$test_results ? @$t <==
4	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1503	1608	
==>or die "create $filename: $!";

    my $ctx = { };
    my $trees = Regex::expr_to_tree($pattern, $ctx, DEB <==
4	/Users/nnunley/parrot/languages/regex/test.pl	3167	3272	
==>or die "create $filename: $!";

    my $ctx = { };
    my $trees = Regex::expr_to_tree($pattern, $ctx, DEB <==
4	/Users/nnunley/parrot/config/inter/progs.pm	3633	3724	
==>->data->set(libs => $libs);

    $cxx = integrate($conf->data->get('cxx'), $conf->options->g <==
4	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	6028	6195	
==>dir'},
           map { 
               my $end = $dir_list{ $dir . $_} ? '$' : '/'; # ignore file or dir
               s/\./\\./g;                  # . is simply a do <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16291	16392	
==>token);

      $self->require_assign;

      my $left  = Jako::Construct::Expression::Value->new($bloc <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17062	17163	
==>token);

      $self->require_assign;

      my $left  = Jako::Construct::Expression::Value->new($bloc <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17867	17968	
==>token);

      $self->require_assign;

      my $left  = Jako::Construct::Expression::Value->new($bloc <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	4399	4535	
==>self->{'last_was_blank'}     = 1;
          # And fall thru to the pod-mode block further down
        }
      } else {
        DEBUG > 5 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231168	231279	
==>592 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232072	232183	
==>592 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232976	233087	
==>592 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634716	634811	
==>MC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class;\n  { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635834	635929	
==>MC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class;\n  { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636952	637047	
==>MC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class;\n  { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638071	638166	
==>MC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class;\n  { <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16387	16492	
==>($block, $self->forth);
      my $op    = $self->forth->text;
      my $right = Jako::Construct::Expressio <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17158	17263	
==>($block, $self->forth);
      my $op    = $self->forth->text;
      my $right = Jako::Construct::Expressio <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17963	18068	
==>($block, $self->forth);
      my $op    = $self->forth->text;
      my $right = Jako::Construct::Expressio <==
4	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	11977	12081	
==>tforms. Individual languages targetting parrot (e.g. tcl),
    are also available.
  </p>

  <p>
    Subm <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5628	5714	
==>rrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPredere <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3204	3290	
==>rrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPredere <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4610	4696	
==>rrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPredere <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3994	4080	
==>rrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPredere <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343595	343897	
==>JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344836	345138	
==>JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346078	346380	
==>JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347320	347622	
==>JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	72	167	
==>06-02-27T07:57:10.879453Z bernhard  $

# This is a minimal and incomplete python bytecode to PIR <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10321	10415	
==>e name of register to hold value we pop off the stack.
${PTEMP3} = ${STYPES}[${ITEMP2}]
${STEMP <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7705	7799	
==>e name of register to hold value we pop off the stack.
${PTEMP3} = ${STYPES}[${ITEMP2}]
${STEMP <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17543	17633	
==>[$type,$list]);
  $self->_add_inst ('', 'eq',[$type,'.Undef', "DONE_$label"]);
  $self->_ad <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072646	1072765	
==>}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074831	1074950	
==>}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077016	1077135	
==>}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079202	1079321	
==>}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451165	451453	
==>UMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451903	452191	
==>UMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452642	452930	
==>UMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453380	453668	
==>UMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033397	1033488	
==>\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034495	1034586	
==>\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035707	1035798	
==>\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036871	1036962	
==>\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_n <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2409	2508	
==>ssing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

T <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1679	1778	
==>ssing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

T <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2846	2945	
==>ssing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

T <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1966	2065	
==>ssing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

T <==
4	/Users/nnunley/parrot/tools/dev/parrotbench.pl	5224	5337	
==>program ];
    for my $name ( sort keys %bench ) {
        push @rows, [ $name, map { $bench{$name}{$_} || '-' } @ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021104	1021379	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodetime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021945	1022220	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodetime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	282012	282281	
==>" => "inline",
                  "CODE" => 328,
                  "ARGS" => [
                              "i",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 908 \"src/ops/cmp.ops\ <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21929	22070	
==>S => {
			"^" => 79
		},
		DEFAULT => -73
	},
	{#State 69
		ACTIONS => {
			"^" => 79
		},
		DEFAULT => -75
	},
	{#State 70
		ACTI <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2764	2883	
==>epends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use eval_is()";
        &Test::is.got <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	8684	8781	
==>nt::lastexpected,
	       $Parse::RecDescent::lastunexpected,
	       $Parse::RecDescent::defexpec <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20344	20440	
==>'s output
even more, see the source and/or write to me.

=head1 SEE ALSO

L<Pod::Simple>, L<RTF:: <==
4	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	3999	4093	
==>$obj->add_pir($code, $code, ...)>

Add more pir to be processed. 

=item C<$code = $obj->get_fo <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247597	247857	
==>cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	248461	248721	
==>cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	249325	249585	
==>cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623633	623724	
==>nature == sig) {\n\tif (sig) {\n\t    n = ((arg_pass_f)lru->f.real_function)(interpreter, mi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352831	353000	
==>RGS" => [
                              "nc"
                            ],
                  "BODY" => "#line 195 \"src/ops/io.ops\"\n  PIO_printf(interpreter, \"%f\", ( <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2785	2891	
==>} });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
    $l <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3459	3565	
==>} });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
    $l <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3549	3655	
==>} });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
    $l <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	139	232	
==>s the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/Conditional <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	132	225	
==>s the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/Conditional <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	130	223	
==>s the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/Conditional <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	134	227	
==>s the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/Conditional <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36308	36440	
==>RG0'}) {
            $mv->{'ARG0'} = 'I_arg_0';
            push @localmv, 'ARG0';
        }

		# Insert typeinfo code (sets up dtype <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	1689	1773	
==>-pipe -Wdeclaration-after-statement -I/usr/local/include -I/opt/local/include -pipe - <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1077	1161	
==>-pipe -Wdeclaration-after-statement -I/usr/local/include -I/opt/local/include -pipe - <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1081	1165	
==>-pipe -Wdeclaration-after-statement -I/usr/local/include -I/opt/local/include -pipe - <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	8716	8864	
==>ok = 2 if $ok == 1;
        }
        $idx++;
    }

    if (! $ok) {
        if ($mismatch_at >= 0) {
            error($file, 0, "Ending boilerplat <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6969	7063	
==>gus$="not"
print "Found  (5): ", instr(s1$, found$)
print "Bogus  (0): ", instr(s1$, bogus$)
pr <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18698	18792	
==>gus$="not"
print "Found  (5): ", instr(s1$, found$)
print "Bogus  (0): ", instr(s1$, bogus$)
pr <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	1070	1162	
==>tem C<new()>

Basic object constructor.

Accepts no arguments and returns a L<Parrot::Configu <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4879	4965	
==>my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $self->require_ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6482	6568	
==>my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $self->require_ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7873	7959	
==>my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $self->require_ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22673	22759	
==>my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $self->require_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055929	1056259	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functio <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056820	1057150	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functio <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057712	1058042	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functio <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058604	1058934	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functio <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	935756	936040	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "titlecase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936532	936816	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "titlecase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17434	17575	
==>rr_open) {
        DEBUG > 1 and print "Ignoring ignorable =for\n";
        next;
      }

      for(my $i = 2; $i < @$para; ++$i) {
        i <==
4	/Users/nnunley/parrot/languages/perms.pl	109	229	
==>x = (0,0);
	
	return sub {
	  return if @prefix >= $stop && $prefix[-1] >= @{ $things } - 1;
    my $i = 0;
    while (++ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76679	76787	
==>RD_TRACE
	    && $::RD_TRACE =~ /\d+/
	    && $::RD_TRACE>1
	    && $::RD_TRACE+10<length($_[0]))
	{
		my $co <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76990	77098	
==>RD_TRACE
	    && $::RD_TRACE =~ /\d+/
	    && $::RD_TRACE>1
	    && $::RD_TRACE+10<length($_[0]))
	{
		my $co <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920989	921076	
==>e 316 \"src/ops/string.ops\"\n    {{\@1}}=Parrot_psprintf(interpreter, {{\@2}}, {{\@3}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921882	921969	
==>e 316 \"src/ops/string.ops\"\n    {{\@1}}=Parrot_psprintf(interpreter, {{\@2}}, {{\@3}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540554	540671	
==>}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541806	541923	
==>}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543058	543175	
==>}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3066	3164	
==>od::Simple::Debug (\$debug_level,0);  # or some integer

is basically equivalent to this:

  my $de <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	2187	2308	
==>rxlocals} ||= []);
        return (aop(comment => [ "save rxlocals for op" ]),
                map { aop('pushint' => [ $_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099066	1099189	
==>\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100264	1100387	
==>\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101462	1101585	
==>\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102661	1102784	
==>\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572406	572671	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573315	573580	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574225	574490	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575028	575293	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/config/gen/makefiles.pm	2261	2415	
==>akefile',
        commentType                   => '#',
        replace_slashes               => 1
    );
    genfile(
        'config/gen/makefiles/tge.in <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3447	3549	
==>->{'Thispara'},
    "\n\n"
  ;
  $self->{'Thispara'} = '';
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2977	3079	
==>->{'Thispara'},
    "\n\n"
  ;
  $self->{'Thispara'} = '';
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
4	/Users/nnunley/parrot/config/gen/PodText.pm	383	477	
==>ON

Uses L<Pod::Text> to convert Pod documents into their plain text equivalents.

=head1 USAGE <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	10180	10294	
==>am {
    my ($self, $name, $type, $reg) = @_;
    $reg = value($reg);
    return ".param $type $reg";
}


sub outpu <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2333	2445	
==>sub output_print {
    my ($self, $what) = @_;
    $what = value($what);
    return ("print $what;");
}

sub outp <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2650	2761	
==>sub output_print {
    my ($self, $what) = @_;
    $what = value($what);
    return ("print $what");
}

sub outp <==
4	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	2629	2740	
==>d of file\n";
    }

    # Remove leading and final blank lines.
    while ( $output[0][0] && $output[0][1] eq q <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21920	22036	
==>1)->is_unless) {
        $cond = $self->forth->text;

        $self->require_open_paren;

        $left  = Jako::Cons <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22853	22969	
==>1)->is_unless) {
        $cond = $self->forth->text;

        $self->require_open_paren;

        $left  = Jako::Cons <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24500	24615	
==>1)->is_unless) {
        $cond = $self->forth->text;

        $self->require_open_paren;
        $left  = Jako::Cons <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44018	44151	
==>uctor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 196
		DEFAULT => -22,
		GOTOS => {
			'@6-7' => 206
		}
	} <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1766	1865	
==>dest_sym;
  my $dest_type = $dest_sym->type;

  my $left_type;
  if (UNIVERSAL::isa($left, 'Jako::Co <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1724	1823	
==>dest_sym;
  my $dest_type = $dest_sym->type;

  my $left_type;
  if (UNIVERSAL::isa($left, 'Jako::Co <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1646	1745	
==>dest_sym;
  my $dest_type = $dest_sym->type;

  my $left_type;
  if (UNIVERSAL::isa($left, 'Jako::Co <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748860	749099	
==>\n  {{\@1}}->vtable->set_number_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749644	749883	
==>\n  {{\@1}}->vtable->set_number_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755160	755399	
==>\n  {{\@1}}->vtable->set_number_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755947	756186	
==>\n  {{\@1}}->vtable->set_number_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16433	16554	
==>$method->{meth};
        next if $meth eq 'class_init';
        if ($self->implements($meth)) {
            my $ret = $sel <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	1882	1966	
==>issing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwrite-strings -Waggregate-re <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1247	1331	
==>issing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwrite-strings -Waggregate-re <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1251	1335	
==>issing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwrite-strings -Waggregate-re <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724130	724308	
==>",
                              "p"
                            ],
                  "BODY" => "#line 161 \"src/ops/python.ops\"\n  PMC * const p = {{\@2}};\n  PMC * const io = { <==
4	/Users/nnunley/parrot/lib/Parrot/Configure.pm	3871	4019	
==>params};

        $n++;

        eval "use $step_name;";
        die $@ if $@;

        my $step = $step_name->new;

        # XXX This works. but is <==
4	/Users/nnunley/parrot/editor/ops2vim.pl	112	219	
==>p';

my %seen;

## make sure files have been globbed on non-globbing OSes
## and make sure at least one comm <==
4	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	329	427	
==>embler
#
# Revision 1.8  2002/05/25 02:36:14  clintp
# Added autorun.bas, removed LOAD message, ren <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773329	773467	
==>"
                            ],
                  "BODY" => "#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(int <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774239	774377	
==>"
                            ],
                  "BODY" => "#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(int <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775149	775287	
==>"
                            ],
                  "BODY" => "#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(int <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776060	776198	
==>"
                            ],
                  "BODY" => "#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(int <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010911	1011196	
==>=> 0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011675	1011960	
==>=> 0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012440	1012725	
==>=> 0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
4	/Users/nnunley/parrot/tools/build/headerize.pl	1718	1827	
==>t doesn't start in the left column, it's not a func
    @funcs = grep /^\S/, @funcs;

    # Typedefs and struc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	446503	446760	
==>LS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "AR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447140	447397	
==>LS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "AR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449448	449705	
==>LS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "AR <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11876	11987	
==>arrot_" . $super_table->{$method} . "_$method";

    # Rewrite DYNSUPER(args)
    s/DYNSUPER          # Macro: D <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367159	367450	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367950	368241	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368742	369033	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGD <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20629	20753	
==>=> 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 61
		DEF <==
4	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1339	1468	
==>ntent . "\n";
      exit 1;
    }
  } else {
    debug "error: " . $resp->status_line . "\n";
    exit 1;
  }
}

sub usage { print <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462854	462948	
==>ter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = fmod({{\@2}}, den);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463851	463945	
==>ter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = fmod({{\@2}}, den);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464848	464942	
==>ter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = fmod({{\@2}}, den);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	18637	18743	
==>version()>

Returns the minor version number.

=cut

sub minor_version
{
    my $self = shift;

    $self-> <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11150	11236	
==>CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1}["reg_type_sho <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8336	8422	
==>CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1}["reg_type_sho <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5998	6084	
==>CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1}["reg_type_sho <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	3020	3129	
==>$self->{SUFFIX} if exists $self->{SUFFIX};
    
    my ($suffix) = $self->name =~ /\.([^.]+)$/;
    
    $self <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072467	1072575	
==>{{\@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* corr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074652	1074760	
==>{{\@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* corr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076837	1076945	
==>{{\@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* corr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079023	1079131	
==>{{\@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* corr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986456	986624	
==>"ic",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_ccl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987587	987755	
==>"ic",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_ccl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988718	988886	
==>"ic",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_ccl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989850	990018	
==>"ic",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_ccl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126711	127009	
==>AL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127846	128144	
==>AL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128981	129279	
==>AL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6485	6595	
==>hift;
    my $token = shift;
    my $tagname = $token->tagname;
    
    print {$self->{'output_fh'}} $self->{' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10997	11080	
==>tack_push(interpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STACK_EN <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11786	11869	
==>tack_push(interpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STACK_EN <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13023	13106	
==>tack_push(interpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STACK_EN <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13867	13950	
==>tack_push(interpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STACK_EN <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353733	353957	
==>TDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354478	354702	
==>TDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355245	355469	
==>TDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14498	14594	
==>\header\pard\qr\plain\f2\fs%s
%s
p.\chpgn\par}
\fs%s

END
    ($self->doc_lang) x 2,
    $self->h <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	3644	3736	
==>elf->INTERNAL_ERROR("Attempt to pop file-scope block off block stack!")
    if scalar($self-> <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72670	72764	
==>sym(PMC_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_cstring_free(name);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74272	74366	
==>sym(PMC_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_cstring_free(name);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75874	75968	
==>sym(PMC_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_cstring_free(name);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77477	77571	
==>sym(PMC_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_cstring_free(name);\ <==
4	/Users/nnunley/parrot/tools/dev/parrotbench.pl	6426	6525	
==>$max[0]s  ", 'Benchmark');
printf("%-$max[$_ + 1]s  ", $program[$_]) for 0 .. $#program;

for my $na <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11766	11856	
==>dec ${ITEMP1}
${PTEMP0} = ${STYPES}[${ITEMP1}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_t <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8829	8919	
==>dec ${ITEMP1}
${PTEMP0} = ${STYPES}[${ITEMP1}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_t <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7401	7491	
==>dec ${ITEMP1}
${PTEMP0} = ${STYPES}[${ITEMP1}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_t <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24406	24516	
==>ldren==1) {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25295	25405	
==>ldren==1) {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26305	26415	
==>ldren==1) {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27195	27305	
==>ldren==1) {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849885	850150	
==>n  {{\@1}} = string_chopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850772	851037	
==>n  {{\@1}} = string_chopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851659	851924	
==>n  {{\@1}} = string_chopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852547	852812	
==>n  {{\@1}} = string_chopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	34778	34886	
==>ed == 1 ? '' : 's';
            $self->diag(<<"FAIL");
Looks like you failed $num_failed test$s of $self->{Ex <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2345	2446	
==>s unknown variable %s.", $right->value) unless $right_sym;
    $right_type = $right_sym->type;
  }
  e <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2303	2404	
==>s unknown variable %s.", $right->value) unless $right_sym;
    $right_type = $right_sym->type;
  }
  e <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2225	2326	
==>s unknown variable %s.", $right->value) unless $right_sym;
    $right_type = $right_sym->type;
  }
  e <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680789	681102	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDI <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681565	681878	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDI <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682339	682652	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDI <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683114	683427	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDI <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072417	1072560	
==>1;\n  {{\@2}} = (INTVAL)( xk * pow( -1, n ) );\n  {{\@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074602	1074745	
==>1;\n  {{\@2}} = (INTVAL)( xk * pow( -1, n ) );\n  {{\@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076787	1076930	
==>1;\n  {{\@2}} = (INTVAL)( xk * pow( -1, n ) );\n  {{\@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078973	1079116	
==>1;\n  {{\@2}} = (INTVAL)( xk * pow( -1, n ) );\n  {{\@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940312	940408	
==>ODY" => "#line 486 \"src/ops/string.ops\"\n    {{\@1}} = string_split(interpreter, {{\@2}}, {{\@3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941204	941300	
==>ODY" => "#line 486 \"src/ops/string.ops\"\n    {{\@1}} = string_split(interpreter, {{\@2}}, {{\@3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942096	942192	
==>ODY" => "#line 486 \"src/ops/string.ops\"\n    {{\@1}} = string_split(interpreter, {{\@2}}, {{\@3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942989	943085	
==>ODY" => "#line 486 \"src/ops/string.ops\"\n    {{\@1}} = string_split(interpreter, {{\@2}}, {{\@3 <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7714	7836	
==>r = "&STDOUT";
    }

    local *OLDOUT if $out;
    local *OLDERR if $err;

    # Save the old filehandles; we must not le <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	7663	7785	
==>r = "&STDOUT";
    }

    local *OLDOUT if $out;
    local *OLDERR if $err;

    # Save the old filehandles; we must not le <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	21253	21363	
==>.
    DEBUG and print "Skipping _remap_sequences: formatless treelet.\n";
    return 0;
  }
  
  my $map = ($se <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	80	169	
==>ection/C.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Sect <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	4056	4180	
==>Igrave'   , 204,
 'Iacute'   , 205,
 'Icirc'    , 206,
 'Iuml'     , 207,
 'ETH'      , 208,
 'Ntilde'   , 209,
 'Ograve'   , <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2569	2672	
==>op;
  my $right = $self->right;

  if (defined $cond) {
    $handler->start_element({ Name => 'cond', At <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3243	3346	
==>op;
  my $right = $self->right;

  if (defined $cond) {
    $handler->start_element({ Name => 'cond', At <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3333	3436	
==>op;
  my $right = $self->right;

  if (defined $cond) {
    $handler->start_element({ Name => 'cond', At <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50555	50884	
==>e",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 65,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	97483	97705	
==>t.ops\"\n  {{\@1}} = ~ {{\@1}};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15690	15817	
==>' => $result,
        'arg1'   => $nil->[0],
    );
    my $argv = new defn( 'vararg', 'local', 'pmc' );
    my $fct = new d <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	23313	23416	
==>ype;
			$type="FLO";
			my %th=( single => 'FLO', double => 'FLO', long => 'INT', integer => 'INT', stri <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	35999	36122	
==>t will still be
considered a failure and will exit with 255.

So the exit codes are...

    0                   all tests su <==
4	/Users/nnunley/parrot/lib/Test/More.pm	34070	34193	
==>t will still be
considered a failure and will exit with 255.

So the exit codes are...

    0                   all tests su <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	2865	2988	
==>t will still be
considered a failure and will exit with 255.

So the exit codes are...

    0                   all tests su <==
4	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	1194	1299	
==>/* $fingerprint */\n";
print "static const unsigned char fingerprint[] = {\n";
for my $i (0..$len-1) {
  p <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	49648	49761	
==>eeded to close complex.\n";
      } elsif($stack[-1] < length($3)) {
        # We saw " >>>>" but needed only " >> <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2122	2218	
==>ype = $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako::Construct::Expressi <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2080	2176	
==>ype = $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako::Construct::Expressi <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2002	2098	
==>ype = $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako::Construct::Expressi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344188	344288	
==>o go away soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2}});\n  const char <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345430	345530	
==>o go away soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2}});\n  const char <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346672	346772	
==>o go away soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2}});\n  const char <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347915	348015	
==>o go away soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2}});\n  const char <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777079	777188	
==>le->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777988	778097	
==>le->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778897	779006	
==>le->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779807	779916	
==>le->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958582	958852	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encodi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959383	959653	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encodi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960185	960455	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encodi <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	9901	9997	
==>URR] ]);
		if ( (isbuiltin($syms[CURR]) or isuserfunc($syms[CURR]))
			and $syms[NEXT] ne "(" and <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8069	8211	
==>back);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0 <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8851	8993	
==>back);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0 <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7722	7864	
==>back);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0 <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8511	8653	
==>back);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0 <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17163	17282	
==>mably that won't work right
        #  under non-ASCII charsets.  Something should be done about that.
    }
    
    re <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2156	2262	
==>mably that won't work right
    #  under non-ASCII charsets.  Something should be done about that.
  }
  re <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10579	10685	
==>mably that won't work right
    #  under non-ASCII charsets.  Something should be done about that.
  }
  re <==
4	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2259	2365	
==>mably that won't work right
    #  under non-ASCII charsets.  Something should be done about that.
  }
  re <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	28859	28971	
==>get treated, not as what the element name
      #  should be.

      DEBUG > 1 and print "Pondering non-magical $ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15337	15440	
==>_handle_element_end {
  my $self = shift;   # leaving ($element_name);
  DEBUG > 2 and print "-- $_[0]\n <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	846	947	
==>) = @_;

  $handler->start_element({ Name => 'block', Attributes => { kind => $self->kind } });
  $_-> <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1859	1960	
==>) = @_;

  $handler->start_element({ Name => 'block', Attributes => { kind => $self->kind } });
  $_-> <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374011	374101	
==>ne 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374894	374984	
==>ne 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375777	375867	
==>ne 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376661	376751	
==>ne 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084047	1084292	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085099	1085344	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086152	1086397	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087205	1087450	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	3456	3547	
==>nt'}, $self) if $cut_handler;
  
);

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1389	1478	
==>optimization -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

ou <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1434	1523	
==>optimization -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

ou <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1438	1527	
==>optimization -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

ou <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10939	11043	
==>riting $outfile..\n" if $DEBUG;
    open (IN, "<$infile") or die "Can't read $infile: $!\n";
    open (OU <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11423	11527	
==>riting $outfile..\n" if $DEBUG;
    open (IN, "<$infile") or die "Can't read $infile: $!\n";
    open (OU <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11887	11991	
==>riting $outfile..\n" if $DEBUG;
    open (IN, "<$infile") or die "Can't read $infile: $!\n";
    open (OU <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1480	1571	
==>of this class for
yourself, but if you want to, call
C<<
Pod::Simple::PullParserEndToken->ne <==
4	/Users/nnunley/parrot/examples/benchmarks/addit.pl	234	331	
==>IS

    % time perl examples/benchmarks/addit.pl

=head1 DESCRIPTION

Joe Wilson's original Perl v <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11440	11531	
==>a return value.
PRE_CALL_RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 g <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8626	8717	
==>a return value.
PRE_CALL_RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 g <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7198	7289	
==>a return value.
PRE_CALL_RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 g <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763176	763291	
==>NIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764029	764144	
==>NIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764882	764997	
==>NIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765736	765851	
==>NIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088946	1089234	
==>@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089894	1090182	
==>@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060105	1060204	
==>d to get null name\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_name(interpreter, {{\@2}});\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061010	1061109	
==>d to get null name\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_name(interpreter, {{\@2}});\ <==
4	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	3015	3135	
==>og' failed with exit code $exit_code."
                if $exit_code;
            $self->{builder}->diag($diag) if $dia <==
4	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	2627	2734	
==>og' failed with exit code $exit_code." if $exit_code;
               $self->{builder}->diag( $diag ) if $dia <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	3625	3731	
==>t =~ m{^([\[\]])(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, $1 eq '[' ? 'open-bra <==
4	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2626	2730	
==>og' failed with exit code $exit_code." if $exit_code;
            $self->{builder}->diag( $diag ) if $dia <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288319	288563	
==>"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289175	289419	
==>"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290031	290275	
==>"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	367	462	
==>rc/nci.c>. It
parses a file of function signatures of the form:

    <return-type-specifier><whi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	394210	394485	
==>);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "tell", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031446	1031559	
==>\"\n    if ({{\@2}} < enum_first_type || {{\@2}} >= enum_last_type)\n        {{\@1}} = -1;\n    else\n        {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032315	1032428	
==>\"\n    if ({{\@2}} < enum_first_type || {{\@2}} >= enum_last_type)\n        {{\@1}} = -1;\n    else\n        {{\@ <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14190	14288	
==>z.pointer)
print z.pointer.foo

' Array access, 132
type first
	foo as integer
	bar as string
end t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610357	610687	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":ob <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611259	611589	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":ob <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612162	612492	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":ob <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613068	613398	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":ob <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858690	858947	
==>eter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859694	859951	
==>eter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860698	860955	
==>eter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861703	861960	
==>eter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
4	/Users/nnunley/parrot/tools/dev/lib_deps.pl	10472	10612	
==>ath.h
floorl      math.h
fma         math.h
fmaf        math.h
fmal        math.h
fmax        math.h
fmaxf       math.h
fmaxl       math.h
fm <==
4	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1270	1377	
==>, $desc );
        $self->{builder}->diag("'$cmd' failed with exit code $exit_code")
        if $exit_code a <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1311	1418	
==>, $desc );
        $self->{builder}->diag("'$cmd' failed with exit code $exit_code")
        if $exit_code a <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	1687	1786	
==>, $desc );
    $self->{builder}->diag("'$cmd' failed with exit code $exit_code")
    if $exit_code a <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	21777	21886	
==>join '~', sort keys %$map)
     ? "  (all normal)\n" : "\n"
  ;

  # A recursive algorithm implemented iterati <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10399	10495	
==>rint "Indenting back $indent_stack[-1] twips.\n";
        $self->{'rtfindent'} -= pop @indent_sta <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	17960	18056	
==>ingy.pod > thingy.rtf

=head1 DESCRIPTION

This class is a formatter that takes Pod and renders i <==
4	/Users/nnunley/parrot/tools/build/ops2pm.pl	4421	4511	
==>_ops->{PREAMBLE} = $ops->{PREAMBLE};
$real_ops->version($ops->version);

# verify opcode nu <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	8021	8143	
==>tr .= "$_->{label}->{label}: ";
            }
            $str .= $_->{code}{name} . " " . join(", ", map { ref($_) ? $_->{ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27418	27512	
==>d $::RD_TRACE;').'
		$lastsep = "";
		$Parse::RecDescent::lastexpected = q{' . ($rule->hasleftm <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29528	29622	
==>d $::RD_TRACE;').'
		$lastsep = "";
		$Parse::RecDescent::lastexpected = q{' . ($rule->hasleftm <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31625	31719	
==>d $::RD_TRACE;').'
		$lastsep = "";
		$Parse::RecDescent::lastexpected = q{' . ($rule->hasleftm <==
4	/Users/nnunley/parrot/tools/build/vtable_extend.pl	3004	3105	
==>ing.pod>.

=head1 HISTORY

Initial version by Dan Sugalski.

=cut

*/

/*
 * Local variables:
 * c-ind <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	1657	1742	
==>de -fno-common -no-cpp-precomp  -pipe -Wdeclaration-after-statement -I/usr/local/inclu <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1045	1130	
==>de -fno-common -no-cpp-precomp  -pipe -Wdeclaration-after-statement -I/usr/local/inclu <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1049	1134	
==>de -fno-common -no-cpp-precomp  -pipe -Wdeclaration-after-statement -I/usr/local/inclu <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17165	17286	
==>bly that won't work right
        #  under non-ASCII charsets.  Something should be done about that.
    }
    
    return <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2158	2266	
==>bly that won't work right
    #  under non-ASCII charsets.  Something should be done about that.
  }
  return <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10581	10689	
==>bly that won't work right
    #  under non-ASCII charsets.  Something should be done about that.
  }
  return <==
4	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2261	2369	
==>bly that won't work right
    #  under non-ASCII charsets.  Something should be done about that.
  }
  return <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332515	332615	
==>NDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333793	333893	
==>NDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335071	335171	
==>NDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336350	336450	
==>NDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321669	321940	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u4",
                  "FLAGS" => ":dotgnu_c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322440	322711	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u4",
                  "FLAGS" => ":dotgnu_c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323212	323483	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u4",
                  "FLAGS" => ":dotgnu_c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	526819	527058	
==>=> "inline",
                  "CODE" => 608,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 814 \"src/ops/math.ops\"\n  { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797044	797267	
==>1}}->vtable->set_number_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797948	798171	
==>1}}->vtable->set_number_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798852	799075	
==>1}}->vtable->set_number_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799757	799980	
==>1}}->vtable->set_number_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	4309	4419	
==>oto loop_begin_1
  loop_done_1:
    %1 = $P100
END_PIR

.end

.sub 'aplformat'
    .param pmc arg

    .local s <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1022	1108	
==>nterpreter->code->prederef.code))
#define CUR_OPCODE ((opcode_t*)cur_opcode + CONTEXT(i <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	956	1042	
==>nterpreter->code->prederef.code))
#define CUR_OPCODE ((opcode_t*)cur_opcode + CONTEXT(i <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1152	1238	
==>nterpreter->code->prederef.code))
#define CUR_OPCODE ((opcode_t*)cur_opcode + CONTEXT(i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332378	332477	
==>go away soon */\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333656	333755	
==>go away soon */\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334934	335033	
==>go away soon */\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336213	336312	
==>go away soon */\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2803	2923	
==>_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblis <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3112	3232	
==>_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblis <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2907	3027	
==>_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblis <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	29906	30003	
==>}

sub _op_string_ci_gt_p {
}

sub _op_string_ci_le_p {
}

sub _op_string_ci_ge_p {
}

sub _op_sub <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722497	722773	
==>, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "prin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723526	723802	
==>, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "prin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724570	724846	
==>, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "prin <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	1312	1419	
==>\n";
  foreach my $key (sort keys %$self) {
    printf STDERR "%10s => %s\n", $key, $self->{$key};
  }
  pri <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955874	955962	
==>\n  {{\@1}} = string_copy(interpreter, Parrot_encoding_name(interpreter, {{\@2}}));\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956686	956774	
==>\n  {{\@1}} = string_copy(interpreter, Parrot_encoding_name(interpreter, {{\@2}}));\n  {{ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	529	612	
==>= 'overflow';
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	363	446	
==>= 'overflow';
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908795	909093	
==>"NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909691	909989	
==>"NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910588	910886	
==>"NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911485	911783	
==>"NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	6229	6376	
==>ck) = @_;
    return $self->rewrite($R, $lastback);
}

# Most general case:
#
# ( R ) ->
#                  push start[n]
#                  push en <==
4	/Users/nnunley/parrot/config/init/hints/irix.pm	501	623	
==>ags);

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }
    $c <==
4	/Users/nnunley/parrot/config/init/hints/netbsd.pm	294	416	
==>ags);

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }
    $c <==
4	/Users/nnunley/parrot/config/init/hints/openbsd.pm	386	502	
==>ags);

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
	}
	$c <==
4	/Users/nnunley/parrot/config/auto/format.pm	1141	1264	
==>blesize;
        $nvformat = "%f";
    } elsif ($nv eq "long double") {

        # Stay way from long double for now (it may <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8936	9044	
==>ith_relative_path
{
    my $self = shift;
    my $path = shift || return;
    my ($volume, $directories, $nam <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9335	9443	
==>ith_relative_path
{
    my $self = shift;
    my $path = shift || return;
    my ($volume, $directories, $nam <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24527	24620	
==>ops\"\n  opcode_t *dest = {{^+1}};\n  PMC * const p = CONTEXT(interpreter->ctx)->current_sub;\ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2023	2133	
==>Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = " <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3275	3385	
==>Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = " <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5904	6014	
==>Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = " <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6462	6572	
==>Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6136	6373	
==>{{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "load_bytecode" <==
4	/Users/nnunley/parrot/config/auto/snprintf.pm	817	929	
==>f/) {
        $conf->data->set(HAS_C99_SNPRINTF => 1);
    } elsif ($res =~ /^old snprintf/) {
        $conf->dat <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	681	779	
==>as Win32 paths have \'s in, which qq[] treats as escape sequences.
# Config stuff
our $CC = qq[/usr <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	685	783	
==>as Win32 paths have \'s in, which qq[] treats as escape sequences.
# Config stuff
our $CC = qq[/usr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344226	344327	
==>t path = string_to_cstring(interpreter, {{\@2}});\n  const char * const mode = string_to_cstring(inter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345468	345569	
==>t path = string_to_cstring(interpreter, {{\@2}});\n  const char * const mode = string_to_cstring(inter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346710	346811	
==>t path = string_to_cstring(interpreter, {{\@2}});\n  const char * const mode = string_to_cstring(inter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347953	348054	
==>t path = string_to_cstring(interpreter, {{\@2}});\n  const char * const mode = string_to_cstring(inter <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11841	12047	
==>$last_key->[0],
                        'arg2'   => undef,
                        'result' => $result,
                    );
                    return [ $defn, \@opcodes, $assign ];
                } <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10037	10223	
==>$last_key->[0],
                    'arg2'   => undef,
                    'result' => $result,
                );
                return [ $defn, \@opcodes, $assign ];
            } <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8884	9030	
==>$last_key->[0],
            'arg2'   => undef,
            'result' => $result,
        );
        return [ $defn, \@opcodes, $assign ];
    } <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	2859	2962	
==>ile
# scope block. Therefore, we return one less than the number of blocks on
# the stack.
#

sub block_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549946	550052	
==>_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551247	551353	
==>_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553809	553915	
==>_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555206	555312	
==>_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8152	8292	
==>== 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } else {
        die "T <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8934	9074	
==>== 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } else {
        die "T <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7805	7945	
==>== 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } else {
        die "T <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8594	8734	
==>== 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } else {
        die "T <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656511	656817	
==>\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "de <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657435	657741	
==>\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "de <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658353	658659	
==>\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "de <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662946	663252	
==>\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "de <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6895	7005	
==>l hooks.
sub pre_call {
    my $self = shift;
    return <<'PIR'
# See if we've got a return or something to ca <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2841	2948	
==>e-level code"
   END
Sub1:
   PRINT "2 in subroutine one"
   GOSUB Sub2
   PRINT "ERR this line in subroutin <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16808	16915	
==>e-level code"
   END
Sub1:
   PRINT "2 in subroutine one"
   GOSUB Sub2
   PRINT "ERR this line in subroutin <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	23524	23629	
==>xtref, $unkpos);
			$firstpos = $unkpos unless defined $firstpos;
			$lastpos = length $$textref;
		}
		la <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867264	867411	
==>= string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868230	868377	
==>= string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869196	869343	
==>= string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870163	870310	
==>= string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	3263	3389	
==>xt = $self->do_link($token);
    
    esc($text);
    
    if ( defined $text and length $text ) 
    {
        print {$self->{ <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	35884	35980	
==>ill throw a warning and exit with 255.  If the test died, even after
having successfully complete <==
4	/Users/nnunley/parrot/lib/Test/More.pm	33955	34051	
==>ill throw a warning and exit with 255.  If the test died, even after
having successfully complete <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	2750	2846	
==>ill throw a warning and exit with 255.  If the test died, even after
having successfully complete <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32804	32920	
==>e->{'typeinfo'}, $mv, 
			    "typeinfo for rule $rule->{'name'}");
		    $pir .= "\n" if $pir !~ /\n$/;
		    $pir . <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26808	26912	
==>e->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir .= "\n" if $pir !~ /\n$/;
		$pir . <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28524	28628	
==>e->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir .= "\n" if $pir !~ /\n$/;
		$pir . <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36506	36610	
==>e->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir .= "\n" if $pir !~ /\n$/;
		$pir . <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925412	925605	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringinfo",
                  "FLAGS" => ":base_core",
                  "ARGD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926881	927074	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringinfo",
                  "FLAGS" => ":base_core",
                  "ARGD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928351	928544	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringinfo",
                  "FLAGS" => ":base_core",
                  "ARGD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929821	930014	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringinfo",
                  "FLAGS" => ":base_core",
                  "ARGD <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	7742	7916	
==>einfo = 1;
            }
        }
		
        # Unknown key.
        else {
            die "Unknown key $_ in rule $rule->{'name'}\n";
        }
    }

    # Check we had man <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11054	11141	
==>TURN_${CURIC}
if "${CURIC}" == "73" goto pre_call_HAS_RETURN_${CURIC}
goto pre_call_NO_R <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8240	8327	
==>TURN_${CURIC}
if "${CURIC}" == "73" goto pre_call_HAS_RETURN_${CURIC}
goto pre_call_NO_R <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5902	5989	
==>TURN_${CURIC}
if "${CURIC}" == "73" goto pre_call_HAS_RETURN_${CURIC}
goto pre_call_NO_R <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	2392	2520	
==>]"
    );
}

sub readjit {
    my $file = shift;

    my %ops;
    my $template;

    open IN, '<', $file or die "Can't open file <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8281	8403	
==>> "PARROT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLAGS" => ":base_l <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9396	9518	
==>> "PARROT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLAGS" => ":base_l <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	391	496	
==>code },
  "!="  => sub { $_[0]->code ne $_[0]->code },
  "eq"  => sub { $_[0]->code eq $_[0]->code },
  "n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496953	497209	
==>ath.ops\"\n  {{\@1}} = floatval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497823	498079	
==>ath.ops\"\n  {{\@1}} = floatval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498693	498949	
==>ath.ops\"\n  {{\@1}} = floatval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	534	671	
==>p, $right) = @_;

  my $self = bless {
    BLOCK     => $block,

    PREFIX    => $prefix,
    KIND      => 'until',
    LEFT      => $lef <==
4	/Users/nnunley/parrot/tools/dev/lib_deps.pl	144	315	
==>d: /parrot/tools/dev/lib_deps.pl 19607 2006-05-30T15:23:20.183054Z coke  $
################################################################################

=head1 NAME

to <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	26505	26601	
==>o the previous fallback point on failure. So this threads all the
# fallback points together.
sub <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3248	3343	
==>end sub
function foo$
	foo$="Right one"
	exit function
	foo$="Wrong one"
end function
call mysub <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17215	17310	
==>end sub
function foo$
	foo$="Right one"
	exit function
	foo$="Wrong one"
end function
call mysub <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586888	587001	
==>@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588074	588187	
==>@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589260	589373	
==>@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590447	590560	
==>@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABE <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5283	5376	
==>art_element({ Name => 'assign' });
  $dest->sax($handler);
  $handler->start_element({ Name => <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3346	3439	
==>art_element({ Name => 'assign' });
  $dest->sax($handler);
  $handler->start_element({ Name => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	312555	312642	
==>ug.ops\"\n  struct Parrot_Context_info info;\n  Parrot_Context_info(interpreter, CONTEXT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	313287	313374	
==>ug.ops\"\n  struct Parrot_Context_info info;\n  Parrot_Context_info(interpreter, CONTEXT <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	57339	57446	
==>ted($grammar,'<');
					$code })
			{
				_parse("an error marker", $aftererror,$line,$code);
				$code =~ / <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20907	20998	
==>my ($self, $namespace, $rule) = @_;
	
''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23683	23774	
==>my ($self, $namespace, $rule) = @_;
	
''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33712	33803	
==>my ($self, $namespace, $rule) = @_;
	
''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{ <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	547	653	
==>is part of the Parse::Yapp package available on your
# nearest CPAN
#
# Any use of this module in a stan <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	531	634	
==>is part of the Parse::Yapp package available on your
# nearest CPAN
#
# Any use of this module in a stan <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719952	720042	
==>terpreter, \"%.12g\", (double){{\@2}});\n  PIO_putps(interpreter, io, s);\n  if (string_str <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721152	721242	
==>terpreter, \"%.12g\", (double){{\@2}});\n  PIO_putps(interpreter, io, s);\n  if (string_str <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4077	4174	
==>.

This is a subclass of L<Pod::Simple> and inherits all its methods.

=head1 SEE ALSO

L<Pod::Sim <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2697	2794	
==>.

This is a subclass of L<Pod::Simple> and inherits all its methods.

=head1 SEE ALSO

L<Pod::Sim <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3518	3615	
==>.

This is a subclass of L<Pod::Simple> and inherits all its methods.

=head1 SEE ALSO

L<Pod::Sim <==
4	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1254	1351	
==>.

This is a subclass of L<Pod::Simple> and inherits all its methods.

=head1 SEE ALSO

L<Pod::Sim <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	5458	5557	
==>$line "$file_escaped"\n};
    }
    return qq{#line $line\n};
}

=item C<line_directive_here($self,$ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10040	10131	
==>EMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC}:
if ${ITEMP0} == 0 goto PRE_CAL <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7554	7645	
==>EMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC}:
if ${ITEMP0} == 0 goto PRE_CAL <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6518	6609	
==>EMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC}:
if ${ITEMP0} == 0 goto PRE_CAL <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	17304	17436	
==>/;

            write_code_to_file($code, $code_f);

            my $cmd = qq{$parrot $args "$code_f"};
            my $exit_code = r <==
4	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3176	3274	
==>rnings;

use vars qw(@ISA %pmc_types @EXPORT_OK);

@ISA = qw( Exporter );
@EXPORT_OK = qw( %pmc_typ <==
4	/Users/nnunley/parrot/lib/Parrot/PMC.pm	120	218	
==>rnings;

use vars qw(@ISA %pmc_types @EXPORT_OK);

@ISA = qw( Exporter );
@EXPORT_OK = qw( %pmc_typ <==
4	/Users/nnunley/parrot/tools/dev/run_indent.pl	3937	4033	
==>f (%all_errors) {
#    print STDERR "The following C::Scan parse errors occurred.\nYou can genera <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325954	326277	
==>"i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 382,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 149 \"src/op <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9722	9814	
==>e, need to knock off first arg.
if "${CURIC}" != "73" goto pre_call_NOT_CTOR_${CURIC}
${PTEMP <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7236	7328	
==>e, need to knock off first arg.
if "${CURIC}" != "73" goto pre_call_NOT_CTOR_${CURIC}
${PTEMP <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6200	6292	
==>e, need to knock off first arg.
if "${CURIC}" != "73" goto pre_call_NOT_CTOR_${CURIC}
${PTEMP <==
4	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5344	5471	
==>interfaces */
    "",     /* space-separated list of classes */
    "",     /* class */
    "",     /* mro */

    /* Vtable Fun <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11733	11823	
==>.
${ITEMP1} = elements ${STYPES}
dec ${ITEMP1}
${PTEMP0} = ${STYPES}[${ITEMP1}]
${STEMP0} = <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8796	8886	
==>.
${ITEMP1} = elements ${STYPES}
dec ${ITEMP1}
${PTEMP0} = ${STYPES}[${ITEMP1}]
${STEMP0} = <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7368	7458	
==>.
${ITEMP1} = elements ${STYPES}
dec ${ITEMP1}
${PTEMP0} = ${STYPES}[${ITEMP1}]
${STEMP0} = <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5810	5900	
==>{$code{$seg}->{code}}, "IFBRANCH_$_:\n";
			}
			while($_=pop(@{$elsestack->{$elsetag}})) { <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8156	8244	
==>{$code{$seg}->{code}}, "IFBRANCH_$_:\n";
		}
		while($_=pop(@{$elsestack->{$elsetag}})) { <==
4	/Users/nnunley/parrot/lib/Parrot/Op.pm	8388	8475	
==>C<Parrot::OpTrans>

=item F<tools/build/ops2c.pl>

=item F<tools/build/ops2pm.pl>

=item <==
4	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	19172	19259	
==>C<Parrot::OpTrans>

=item F<tools/build/ops2c.pl>

=item F<tools/build/ops2pm.pl>

=item <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868994	869165	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 232 \"src/ops/string.ops\"\n  INTVAL len;\n  len = string_length(inte <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869961	870132	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 232 \"src/ops/string.ops\"\n  INTVAL len;\n  len = string_length(inte <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3220	3322	
==>elf->block->name . "::" . $name;
  }

  my $sym = $self->block->find_symbol($name);

  my %props = $sym <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61975	62077	
==>ING ARG LIST (IF ANY)

			my ($argcode) = extract_codeblock($grammar, "[]",'') || '';

		# EXTRACT TRAI <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115417	115675	
==>c/ops/bit.ops\"\n  {{\@1}} = {{\@2}} << {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116272	116530	
==>c/ops/bit.ops\"\n  {{\@1}} = {{\@2}} << {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117127	117385	
==>c/ops/bit.ops\"\n  {{\@1}} = {{\@2}} << {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/lib/Test/More.pm	3685	3780	
==>it immediately with a zero (success).  See L<Test::Harness> for
details.

If you want to control <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727053	727322	
==>" => 0,
                  "NAME" => "exchange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "io"
                               ],
                  "TYPE" => "functi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727851	728120	
==>" => 0,
                  "NAME" => "exchange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "io"
                               ],
                  "TYPE" => "functi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	728648	728917	
==>" => 0,
                  "NAME" => "exchange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "io"
                               ],
                  "TYPE" => "functi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729442	729711	
==>" => 0,
                  "NAME" => "exchange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "io"
                               ],
                  "TYPE" => "functi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114870	115169	
==>MP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115724	116023	
==>MP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116579	116878	
==>MP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	378	475	
==>s a different type of run loop. The
methods defined here supply various default values and behavio <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106738	1107158	
==>s",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1225,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 35 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	998841	999101	
==>i",
                              "ic",
                              "sc",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_st <==
4	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	957	1084	
==>et_formatted {
    my ($self) = shift;

    my $level    = 0;
    my $verbatim = 0;

    # Step one - indent, and add in extra b <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	10444	10545	
==>struct>.

The I<ELEMENT_LIST> has the form

    NAME => TYPE, ...

Each name-type pair declares one el <==
4	/Users/nnunley/parrot/config/gen/platform.pm	513	627	
==>@args        = qw(miniparrot verbose);

sub runstep {
    my ($self, $conf) = @_;

    my $verbose  = $conf->option <==
4	/Users/nnunley/parrot/config/auto/gcc.pm	471	577	
==>@args = qw(miniparrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->option <==
4	/Users/nnunley/parrot/config/auto/memalign.pm	487	593	
==>@args = qw(miniparrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->option <==
4	/Users/nnunley/parrot/config/auto/signal.pm	432	538	
==>@args = qw(miniparrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->option <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	2075	2177	
==>];
	return 0 if $funcname and $funcname eq $_[0];  # We're processing this, don't count!
	if (grep /^\Q <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1152	1240	
==>de   -g -Wall -Wstrict-prototypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qu <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1210	1298	
==>de   -g -Wall -Wstrict-prototypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qu <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1214	1302	
==>de   -g -Wall -Wstrict-prototypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qu <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	46697	46845	
==>. . . . . . . . . . . . . . . . . . . . . . . . . . . .
# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
#============== <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	46743	46868	
==>. . . . .
# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
#===================================== <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	46791	46891	
==>. . . . . . . . . . . . . . . . . . . .
#============================================================ <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	372	455	
==>ORT_OK);

#========================================================================= <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	701	812	
==>Identifier');

  my $self = bless {
    BLOCK => $block,
    IDENT => $ident
  }, $class;

  $block->push_conten <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	701	812	
==>Identifier');

  my $self = bless {
    BLOCK => $block,
    IDENT => $ident
  }, $class;

  $block->push_conten <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	695	791	
==>herits all its methods,
and adds these methods:

=over

=item $token->text

This returns the text <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	5661	5756	
==>_$ons\n};
		} elsif ($branch eq "goto") {
			push @{$code{$seg}->{code}}, qq{\tgoto $labels{$jum <==
4	/Users/nnunley/parrot/config/gen/parrot_include.pm	44	132	
==>on.
# $Id: /parrot/config/gen/parrot_include.pm 19593 2006-05-30T02:28:15.110975Z coke  $ <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15499	15601	
==>xpr=fixup(@expr);		# Repair unary -, functions, etc...
		@stream=convert_to_rpn(@expr);	# Get infix int <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15861	15963	
==>xpr=fixup(@expr);		# Repair unary -, functions, etc...
		@stream=convert_to_rpn(@expr);	# Get infix int <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16388	16490	
==>xpr=fixup(@expr);		# Repair unary -, functions, etc...
		@stream=convert_to_rpn(@expr);	# Get infix int <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	17012	17114	
==>xpr=fixup(@expr);		# Repair unary -, functions, etc...
		@stream=convert_to_rpn(@expr);	# Get infix int <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514139	514394	
==>} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515019	515274	
==>} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515899	516154	
==>} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	2643	2748	
==>s);\n";
    }

    return $defs;
}

=item C<vtbl_struct($vtable)>

Returns the C C<struct> definitions for <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10320	10469	
==>pieces) {
        my ($first, $last);
        if (ref $_) {
            ($first, $last) = @$_;
        } else {
            ($first, $last) = ($_, $_) <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1883	1987	
==>ven if the program they provided appears to be
    # broken
    if ($ret == -1 and !$conf->options->get(' <==
4	/Users/nnunley/parrot/config/inter/make.pm	1757	1861	
==>ven if the program they provided appears to be
    # broken
    if ($ret == -1 and !$conf->options->get(' <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1897	2001	
==>ven if the program they provided appears to be
    # broken
    if ($ret == -1 and !$conf->options->get(' <==
4	/Users/nnunley/parrot/languages/dotnet/Configure.pl	1428	1558	
==>ation.
	return (%config, trans_parrot_path => $_[0], srm => $_[1]);
}


# Generate the makefile.
# ######################
su <==
4	/Users/nnunley/parrot/config/inter/progs.pm	3108	3205	
==>o idea why.
    $ldflags = integrate($ldflags, $conf->options->get('ldflags'));
    $ldflags = pro <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3268	3365	
==>= $self->block->find_symbol($name);

  my %props = $sym->props;

  if (exists $props{fn} or exists <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	130	222	
==>hard  $

=head1 NAME

Parrot::Docs::Section::Config - Configuration documentation section

=h <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	3450	3607	
==>~ /$t\s+/) {
                    my $tbody = $body;
                    while ($asm =~ s/\b(s(.).+?\2.*?\2)(?:\s+)?//) {
                        eval "\$tbody <==
4	/Users/nnunley/parrot/config/init/hints/mswin32.pm	5891	6035	
==>sh    => '\\',
            blib_dir => 'blib\\lib',
            make_and => "\n\t",
        );
    } elsif ($is_mingw) {
        my $make = $conf <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	21558	21674	
==>];
	return;

    }
    # XXX the label may be wrong, if the JUMP_IF_x got rewritten
    if ($r->[2] eq 'I' && $l->[2] <==
4	/Users/nnunley/parrot/lib/Parrot/PMC.pm	703	812	
==>,
	Eval => 27,
	NCI => 28,
	Float => 29,
	Integer => 30,
	BigInt => 31,
	Complex => 32,
	String => 33,
	Boolea <==
4	/Users/nnunley/parrot/tools/dev/cc_flags.pl	606	784	
==>rmation file format.

=head1 SEE ALSO

F<config/gen/cflags/root.in>.

=cut

################################################################################

use strict;

my $cfla <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3237	3337	
==>NST(%ld)->u.key",
    'sc' => "CONST(%ld)->u.string",
    'kc' => "CONST(%ld)->u.key",
    'kic' => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3045	3145	
==>NST(%ld)->u.key",
    'sc' => "CONST(%ld)->u.string",
    'kc' => "CONST(%ld)->u.key",
    'kic' => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2147	2243	
==>NST(%ld)->u.key",
  'sc'  => "CONST(%ld)->u.string",
  'kc'  => "CONST(%ld)->u.key",
  'kic' => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343604	343905	
==>0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344845	345146	
==>0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346087	346388	
==>0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347329	347630	
==>0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126572	126694	
==>};\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127707	127829	
==>};\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128842	128964	
==>};\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - <==
4	/Users/nnunley/parrot/config/inter/libparrot.pm	1652	1773	
==>)
          .  $conf->data->get('build_dir')
          .  $conf->data->get('slash')
          .  $conf->data->get('blib <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24404	24509	
==>hildren==1) {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $t <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25293	25398	
==>hildren==1) {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $t <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26303	26408	
==>hildren==1) {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $t <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27193	27298	
==>hildren==1) {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574376	574735	
==>S" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 656,
                  "ARGS" => [
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 249 \"s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16460	16551	
==>ight = Jako::Construct::Expression::Value->new($block, $self->forth);

      $self->require_ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17231	17322	
==>ight = Jako::Construct::Expression::Value->new($block, $self->forth);

      $self->require_ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18036	18127	
==>ight = Jako::Construct::Expression::Value->new($block, $self->forth);

      $self->require_ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7650	7743	
==>ortcut method that uses find_symbol() to locate a matching
symbol, and then returns that symbo <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8297	8390	
==>ortcut method that uses find_symbol() to locate a matching
symbol, and then returns that symbo <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8945	9038	
==>ortcut method that uses find_symbol() to locate a matching
symbol, and then returns that symbo <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9615	9708	
==>ortcut method that uses find_symbol() to locate a matching
symbol, and then returns that symbo <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18165	18392	
==>bool(interpreter, {{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18974	19201	
==>bool(interpreter, {{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21328	21555	
==>bool(interpreter, {{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22142	22369	
==>bool(interpreter, {{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949896	950106	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950855	951065	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951815	952025	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952775	952985	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8041	8178	
==>ties:
      #

      my %props;

      while ($self->skip_colon) {
        my $prop = $self->require_ident->text;
      
        my $value <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5047	5178	
==>ties:
      #

      my %props;

      while ($self->skip_colon) {
        my $prop = $self->require_ident->text;

        my $value <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32303	32415	
==>0);
    # I think that these will be out by one - NWC
    my $l = $self->line_directive($line, "ref.c");
    retu <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40925	41037	
==>0);
    # I think that these will be out by one - NWC
    my $l = $self->line_directive($line, "ref.c");
    retu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114818	115027	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115672	115881	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116527	116736	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	1143	1237	
==>self->left->value;
  my $right = $self->right->compile($compiler);

  $compiler->emit("  new $l <==
4	/Users/nnunley/parrot/config/auto/memalign.pm	1370	1494	
==>less ($@ || cc_run_capture() !~ /ok/) {
        $test = 1;
    }
    cc_clean();

    my $test2 = 0;

    cc_gen('config/auto <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714752	714846	
==>ps(interpreter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715675	715769	
==>ps(interpreter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716620	716714	
==>ps(interpreter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563401	563679	
==>AME" => "addmethod",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564298	564576	
==>AME" => "addmethod",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
4	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	1840	1942	
==>n white rice (whether plain,
    basmati rice, jasmine rice, or even a mild pilaf)

In a blender or foo <==
4	/Users/nnunley/parrot/config/init/manifest.pm	425	519	
==>p;
use ExtUtils::Manifest qw(manicheck);

$description = 'Checking MANIFEST';

@args = qw(noman <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598171	598403	
==>preter, {{\@2}} ));\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599218	599450	
==>preter, {{\@2}} ));\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	4552	4658	
==>'s a code-line.\n";
        $code_handler->(map $_, $line, $self->{'line_count'}, $self)
         if $code_ <==
4	/Users/nnunley/parrot/config/inter/lex.pm	465	568	
==>t check_progs );

$util        = 'lex';
$description = "Determining whether $util is installed";
$prompt <==
4	/Users/nnunley/parrot/languages/dotnet/Configure.pl	1254	1351	
==>arrot tree.
	my %config = eval {
		require "$_[0]/lib/Parrot/Config.pm";
		%Parrot::Config::PCo <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1859	1947	
==>ako::Construct::Expression::Value::Identifier')) {
    my $left_sym = $block->find_symbol <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1817	1905	
==>ako::Construct::Expression::Value::Identifier')) {
    my $left_sym = $block->find_symbol <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1739	1827	
==>ako::Construct::Expression::Value::Identifier')) {
    my $left_sym = $block->find_symbol <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8031	8168	
==>my $self = shift;

    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ( <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7684	7821	
==>my $self = shift;

    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ( <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8814	8950	
==>my $self = shift;
    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ( <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8474	8610	
==>my $self = shift;
    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ( <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29418	29535	
==>e
					  . ']},
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31515	31632	
==>e
					  . ']},
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27315	27425	
==>e
					  . ']}, Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22420	22528	
==>e . ']},
					Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178610	178861	
==>=> 213,
                  "ARGS" => [
                              "sc",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 240 \"src/ops/cmp.ops\"\n  if ({{\@1}} != <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	1870	1955	
==>ototypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwrite-strings -Wa <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1235	1320	
==>ototypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwrite-strings -Wa <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1239	1324	
==>ototypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwrite-strings -Wa <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1154	1260	
==>INE  => $dest->line
  }, $class;

  $block->push_content($self);

  return $self;
}

sub dest  { return shi <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1145	1251	
==>INE  => $dest->line
  }, $class;

  $block->push_content($self);

  return $self;
}

sub dest  { return shi <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1034	1140	
==>INE  => $dest->line
  }, $class;

  $block->push_content($self);

  return $self;
}

sub dest  { return shi <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	284	379	
==>dump src/pmc/foo.pmc ...

Create F<vtable.dump>:

    % perl tools/build/pmc2c.pl --vtable

Prin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726862	727168	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exchange",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727660	727966	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exchange",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	728457	728763	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exchange",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729251	729557	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exchange",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516176	516463	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516914	517201	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517653	517940	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518391	518678	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10667	10777	
==>-\x9F//d if 'A' eq chr(65);
        $section = $self->unicode_escape_url($section);
        # Turn char 1234 in <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9348	9454	
==>erl v%s at %s GMT -->\n",
    # None of the following things should need escaping, I dare say!
    ref($sel <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4048	4151	
==>-\x9F//d if 'A' eq chr(65);
    $section = $self->unicode_escape_url($section);
     # Turn char 1234 in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924421	924642	
==>ake_empty(interpreter, enum_stringrep_one, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925212	925433	
==>ake_empty(interpreter, enum_stringrep_one, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3029	3150	
==>abel1
Sub2:
   PRINT "3 in subroutine two"
   RETURN Label2   'Cannot return from here to main
                   'program <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16996	17117	
==>abel1
Sub2:
   PRINT "3 in subroutine two"
   RETURN Label2   'Cannot return from here to main
                   'program <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099145	1099278	
==>3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100343	1100476	
==>3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101541	1101674	
==>3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102740	1102873	
==>3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	21106	21218	
==>PEE
		foreach(@types) {
			my %val=( INT => 0, FLO => '0.0', STRING => '""' );
			if ($_->[2] ne "USER") {
				pr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206496	206608	
==>ble->get_integer(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207438	207550	
==>ble->get_integer(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  " <==
4	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2663	2762	
==>s script with --plus-misses, and a second section will be "
	    ."included,\nwith the heads of thes <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	6438	6538	
==>t
reused.

=cut

use strict;
use warnings;

use FindBin;
use lib "$FindBin::Bin/../..";
use lib "$Fin <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2666	2758	
==>}

=item C<restart_offset($offset)>

Returns the C code for C<restart OFFSET($offset)>.

=cut <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4001	4093	
==>}

=item C<restart_offset($offset)>

Returns the C code for C<restart OFFSET($offset)>.

=cut <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3699	3791	
==>}

=item C<restart_offset($offset)>

Returns the C code for C<restart OFFSET($offset)>.

=cut <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968825	968962	
==>ic"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(inte <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969834	969971	
==>ic"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(inte <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970843	970980	
==>ic"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(inte <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971853	971990	
==>ic"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(inte <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321603	321854	
==>er(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323959	324210	
==>er(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	329417	329668	
==>er(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	330895	331146	
==>er(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/examples/benchmarks/stress.pl	446	560	
==>ay();
}

my @arr2;
foreach (1..20) {
    $arr2[$_] = buildarray();
}

sub buildarray {
    my @foo;
    foreach (1. <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44499	44759	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "popmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45140	45400	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "popmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYP <==
4	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	106	198	
==>language specific testing routines here...

This is currently alarmingly similar to the gener <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	204	296	
==>language specific testing routines here...

This is currently alarmingly similar to the gener <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939516	939850	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940407	940741	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941299	941633	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942191	942525	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FL <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	253	350	
==>T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block::Con <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	251	348	
==>T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block::Con <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	247	344	
==>T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block::Con <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	255	352	
==>T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block::Con <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088881	1088974	
==>ntal.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089829	1089922	
==>ntal.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019826	1019917	
==>t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_localtime_r(&t, &tm);\n  Parrot_asctime_r(&t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020757	1020848	
==>t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_localtime_r(&t, &tm);\n  Parrot_asctime_r(&t <==
4	/Users/nnunley/parrot/config/auto/gmp.pm	2179	2289	
==>anged for the test
        $conf->data->set('libs',      $libs);
        $conf->data->set('ccflags',   $ccflags <==
4	/Users/nnunley/parrot/config/auto/readline.pm	1979	2089	
==>anged for the test
        $conf->data->set('libs',      $libs);
        $conf->data->set('ccflags',   $ccflags <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322287	322394	
==>],
                  "BODY" => "#line 134 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (UINTVAL)((Parrot_UInt4)({{\@2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323059	323166	
==>],
                  "BODY" => "#line 134 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (UINTVAL)((Parrot_UInt4)({{\@2 <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22488	22600	
==>f->_add_inst(''           ,'mod'   ,[$temp_0,$temp_0,$temp_1]);
  $self->_add_inst(''           ,'eq'    ,[$temp_ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22989	23101	
==>f->_add_inst(''           ,'mod'   ,[$temp_0,$temp_0,$temp_1]);
  $self->_add_inst(''           ,'eq'    ,[$temp_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13119	13229	
==>ION, STACK_CLEANUP_NULL);\n  loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13963	14073	
==>ION, STACK_CLEANUP_NULL);\n  loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	797	946	
==>er constructors
          $vtable_dump, # vtable.dump
          pmc1        => $pmc1_dump,
          pmc2        => $pmc2_dump,
          ... );

Crea <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	239	337	
==>T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block::Loop <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	252	350	
==>T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block::Loop <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	246	344	
==>T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block::Loop <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	246	344	
==>T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block::Loop <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	3165	3362	
==>$extern = (defined($1))? 1 : 0;
                $function = $2;
                $asm = q{};
                next;
            }
        }
        if ($line =~ m/^}/) { #{
            # 1. check temp <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21957	22061	
==>f->forth->text;

        $self->require_open_paren;

        $left  = Jako::Construct::Expression::Value- <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22890	22994	
==>f->forth->text;

        $self->require_open_paren;

        $left  = Jako::Construct::Expression::Value- <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24537	24640	
==>f->forth->text;

        $self->require_open_paren;
        $left  = Jako::Construct::Expression::Value- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579286	579380	
==>PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580591	580685	
==>PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581896	581990	
==>PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583202	583296	
==>PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516696	516982	
==>n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "su <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517435	517721	
==>n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "su <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518173	518459	
==>n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "su <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518912	519198	
==>n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "su <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088871	1088959	
==>s/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3}}, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089819	1089907	
==>s/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3}}, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090837	1090925	
==>s/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3}}, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1091897	1091985	
==>s/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3}}, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	602384	602742	
==>GDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 682,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 39 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115439	115726	
==>@1}} = {{\@2}} << {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116294	116581	
==>@1}} = {{\@2}} << {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117149	117436	
==>@1}} = {{\@2}} << {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	40196	40297	
==>E resolver will have to deal with all our treeletty things:

      if(@ell_content == 1 and !ref($ell_ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20377	20491	
==>tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;'
					      unless $::RD_NO_TRACE <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4212	4325	
==>plibs) {
			my $src = $_ . "_ops$core_suffix$LOAD_EXT";
	        copy($src, $dest)
			    or die "Copy $src failed <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10299	10400	
==>mbda = _get_arg($node,2);
  }

  if (exists $self->{scope}->{$symbol}) {
    die "define: $symbol is a <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	811	908	
==>ackage Regex::Driver::Perl5;
our @ISA = qw(Regex::Driver);

sub output_header {
    my ($self, $fh <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	7799	7966	
==>new Myobj;               # constructor

                                    # scalar type accessor:
    $element_value = $obj->s;           # element value
    $obj->s( <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1457	1552	
==>to construct an object of this class for
yourself, but if you want to, call
C<<
Pod::Simple::Pul <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2609	2704	
==>to construct an object of this class for
yourself, but if you want to, call
C<<
Pod::Simple::Pul <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1746	1841	
==>to construct an object of this class for
yourself, but if you want to, call
C<<
Pod::Simple::Pul <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2010	2149	
==>m'    => "\n<dd>",
  '/Para_item'   => "</dd><p$Lame></p>\n",

  'B'      =>  "<b>",                  '/B'     =>  "</b>",
  'I'      =>  "< <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10043	10153	
==>}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Pop state $$stack[-1][0].\n";

			pop( <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9595	9700	
==>}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Pop state $$stack[-1][0].\n";

			pop( <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38448	38553	
==>:_tracefirst($text),
					  q{' . $rule->{"name"} .'})
						if defined $::RD_TRACE;
		') . ($::RD_NO_HITE <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11710	11851	
==>ush @opcodes, @{ $last_key->[1] };
                    my $assign = new KeyedSetOp( $parser,
                        'arg1'   => $last_key-> <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9914	10047	
==>ush @opcodes, @{ $last_key->[1] };
                my $assign = new KeyedSetOp( $parser,
                    'arg1'   => $last_key-> <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8777	8894	
==>ush @opcodes, @{ $last_key->[1] };
        my $assign = new KeyedSetOp( $parser,
            'arg1'   => $last_key-> <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19090	19180	
==>n"))
	{
		$code .= $parser->{_AUTOACTION}->code($namespace,$rule);
		Parse::RecDescent::_wa <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1954	2081	
==>de->{value} =~
                                 /^[-]?\d+\.(\d+([-+]?[eE]\d+)?)?/;
    $node->{type} = 'REAL'    if $node->{valu <==
4	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	305	427	
==>rn bless {};
}


my %language_test_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    output_is <==
4	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	392	513	
==>rn bless {};
}

my %language_test_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    output_is <==
4	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	474	589	
==>rn bless {};
}

my %language_test_map = (
    output_is   => 'is_eq',
    output_like => 'like',
    output_is <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25365	25451	
==>nterpreter->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557938	558024	
==>nterpreter->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559322	559408	
==>nterpreter->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560694	560780	
==>nterpreter->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLA <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	5344	5444	
==>nvalid command '$mode'\nmust be one of generate, compile, linklibs, or copy\n";
}

sub run {
    prin <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4545	4645	
==>nvalid command '$mode'\nmust be one of generate, compile, linklibs, or copy\n";
}

sub run {
    prin <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	5555	5655	
==>nvalid command '$mode'\nmust be one of generate, compile, linklibs, or copy\n";
}

sub run {
    prin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	619717	619816	
==>ow\");\n\t    }\n\t    /* TODO preserve type system */\n\t    VTABLE_morph(interpreter, left, enum_c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712603	712701	
==>onst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(interpreter, s,\n\tconst_strin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713710	713808	
==>onst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(interpreter, s,\n\tconst_strin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720070	720168	
==>onst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(interpreter, s,\n\tconst_strin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721270	721368	
==>onst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(interpreter, s,\n\tconst_strin <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1364	1485	
==>t->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $block = $self->block;
  m <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1712	1833	
==>t->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $block = $self->block;
  m <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1848	1969	
==>t->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $block = $self->block;
  m <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1491	1612	
==>t->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $block = $self->block;
  m <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	670	778	
==>$count++;
    ($count, $expr) = _build_tree ($tokens, $count);
    push @{$temp->{children}}, $expr;
  }
  el <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	887	995	
==>$count++;
    ($count, $expr) = _build_tree ($tokens, $count);
    push @{$temp->{children}}, $expr;
  }
  el <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1101	1209	
==>$count++;
    ($count, $expr) = _build_tree ($tokens, $count);
    push @{$temp->{children}}, $expr;
  }
  el <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1325	1433	
==>$count++;
    ($count, $expr) = _build_tree ($tokens, $count);
    push @{$temp->{children}}, $expr;
  }
  el <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	5327	5470	
==>~ /$ignore/;
            
            push @files, $dir->files(1, $ignore);
        }
    }
    
    return @files;
}

=item C<directories()>

T <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	5794	5893	
==>}

## 'private' subs

sub proclaim (Bool $cond, Str $desc? is copy, $todo?, Str $got?, Str $expected <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45115	45207	
==>my $QUOTELIKEMK		= '\G\s*<perl_quotelike>';
my $CODEBLOCKMK		= '\G\s*<perl_codeblock>';
my $V <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147319	147581	
==>interpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148260	148522	
==>interpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149200	149462	
==>interpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150141	150403	
==>interpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61995	62095	
==>)

			my ($argcode) = extract_codeblock($grammar, "[]",'') || '';

		# EXTRACT TRAILING REPETITION SP <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8954	9045	
==>hort"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
got <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10458	10549	
==>hort"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
got <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11862	11953	
==>hort"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
got <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920479	920776	
==>E" => "sprintf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921371	921668	
==>E" => "sprintf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	922264	922561	
==>E" => "sprintf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	22235	22349	
==>i.e. -c)
    return if $^C;

    # Smash args together like print does.
    # Convert undef to 'undef' so its reada <==
4	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	699	795	
==>$lang_f = File::Spec->rel2abs($lang_f);
    $out_f  = File::Spec->rel2abs($out_f);
    Parrot::Te <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	736	832	
==>$lang_f = File::Spec->rel2abs($lang_f);
    $out_f  = File::Spec->rel2abs($out_f);
    Parrot::Te <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	694	787	
==>l_list.txt>.
F<docs/pdds/pdd16_native_call.pod>.

=cut


use strict;
use warnings;

my $opt_wa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1108698	1108803	
==>l_exception(interpreter, NULL, NO_CLASS,\n                    \"Class '%Ss' not found\", readable_name(int <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630560	630657	
==>l_exception(interpreter, NULL, NO_CLASS,\n            \"Class '%Ss' not found\", readable_name(int <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631550	631647	
==>l_exception(interpreter, NULL, NO_CLASS,\n            \"Class '%Ss' not found\", readable_name(int <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19454	19551	
==>to-action\" automatically
					  appended.");
	}
	elsif ($parser->{_AUTOTREE} && defined($item) && <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510484	510778	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511222	511516	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511960	512254	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/config/auto/gcc.pm	843	943	
==>et gccversion to undef.  This will also trigger any hints-file
    # callbacks that depend on knowing <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549348	549482	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethodcc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550648	550782	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethodcc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551949	552083	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethodcc <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	31776	31898	
==>my $cl = temp('P');
    my $name = $tos->[1];
    $n = $name;
    $n =~ s/["]//g;
    my $mangle = qq!"py::$n"!;
    $class <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1093	1207	
==>T => $right,

    DEBUG => 1,
    FILE  => $dest->file,
    LINE  => $dest->line
  }, $class;

  $block->push_conte <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1084	1198	
==>T => $right,

    DEBUG => 1,
    FILE  => $dest->file,
    LINE  => $dest->line
  }, $class;

  $block->push_conte <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	973	1087	
==>T => $right,

    DEBUG => 1,
    FILE  => $dest->file,
    LINE  => $dest->line
  }, $class;

  $block->push_conte <==
4	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	91	197	
==>tant VERSION => 0.4;
sub debug($);

our $compress = sub { return };

GetOptions(
  "smokeserv=s" =>
    \(m <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	756	849	
==>_class()>

Returns the class used in the various file creation methods. This default
implement <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857956	858274	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858959	859277	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859963	860281	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860967	861285	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324774	325047	
==>});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325567	325840	
==>});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326357	326630	
==>});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327158	327431	
==>});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i8" <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	4975	5129	
==>ame
        if (/^name$/) {
            # always fine
        }

        # code
        elsif (/^code$/) {
            if ($rule->{$_} =~ /^([0-9A-F]{2}\s+ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2442	2562	
==>) original source line!
    
    } else {
      DEBUG > 2 and print "First line: [$source_line]\n";

      if( ($line = $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	708543	708652	
==>,
                  "BODY" => "#line 704 \"src/ops/pmc.ops\"\n  dod_register_pmc(interpreter, {{\@1}});\n  {{+ <==
4	/Users/nnunley/parrot/tools/dev/parrot_api.pl	5938	6040	
==>api (@NoParrotAPI) {
	printf "%s\t%s\tMISSING_API\n", $api, "-";
    }
}

if (@NoParrotPrefix) {
    pr <==
4	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4452	4611	
==>}          # test result
              | " ((?:[^"\\]|\\.)+) "   #" (keep my editor happy)
              | (\w+) )
        )
    }sx;

    while ($source =~ m{$ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2353	2458	
==>n variable %s.", $right->value) unless $right_sym;
    $right_type = $right_sym->type;
  }
  else {
    $r <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2311	2416	
==>n variable %s.", $right->value) unless $right_sym;
    $right_type = $right_sym->type;
  }
  else {
    $r <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2233	2338	
==>n variable %s.", $right->value) unless $right_sym;
    $right_type = $right_sym->type;
  }
  else {
    $r <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	10220	10344	
==>ps;
#    if ($name ne 'default') {
#     @ops = split(/\n/, <<"END");
# sub _rule_$name {
#     my <rx_mode> = shift;
#     m <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	15900	16022	
==>ilder->diag("'$cmd' failed with exit code $exit_code")
                  if $exit_code and not $pass;

            unless($ <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	18451	18573	
==>ilder->diag("'$cmd' failed with exit code $exit_code")
                  if $exit_code and not $pass;

            unless($ <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	25493	25597	
==>ilder->diag("'$cmd' failed with exit code $exit_code") if $exit_code and not $pass;

            unless($ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	26688	26802	
==>my @ops;
    foreach (@_) {
        my ($back, @rewritten) = $self->rewrite($_, $fallback);
        push @ops, @rew <==
4	/Users/nnunley/parrot/tools/build/c2str.pl	4805	4906	
==>tatic_string_${line}_data,
  sizeof(static_string_${line}_data) - 1,
  1,
  $h
};

DATA
  }
}

open IN <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	1916	2002	
==>er-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wno-unused -Wsign- <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1281	1367	
==>er-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wno-unused -Wsign- <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1285	1371	
==>er-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wno-unused -Wsign- <==
4	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	2325	2549	
==>_method = {
                class           => $1,
                method          => $2,
                unimplemented   => $3 ? 1 : 0,
                body            => ''
            };

        # Have we got a blank line <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557234	557374	
==>P_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLAGS" => ":object_base",
                  "A <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558617	558757	
==>P_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLAGS" => ":object_base",
                  "A <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560001	560141	
==>P_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLAGS" => ":object_base",
                  "A <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892590	892762	
==>",
                              "sc"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893725	893897	
==>",
                              "sc"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	894860	895032	
==>",
                              "sc"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895996	896168	
==>",
                              "sc"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629960	630224	
==>=> 0,
                  "NAME" => "new",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630949	631213	
==>=> 0,
                  "NAME" => "new",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107672	1107936	
==>=> 0,
                  "NAME" => "new",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	20166	20282	
==>de_l++;
	$cmt ="\t\t# $opcode\t $rest";
	if ($rest =~ /to (\d+)/) {
	    $targ = "pc_$1";
	}
    }
    elsif ($opcode <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	14062	14177	
==>{
				if (! ref $opsubs{$sym}) {
					die "No op code yet for $sym\n";
				} else {
					my($code, $return)=&{$opsub <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79295	79402	
==>);\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      /* At this point we have t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80816	80923	
==>);\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      /* At this point we have t <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	5050	5150	
==>takes no parameters
  my $class = ref($_[0]) || $_[0];
  #Carp::croak(__PACKAGE__ . " is a virtual ba <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909271	909382	
==>],
                  "BODY" => "#line 284 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910168	910279	
==>],
                  "BODY" => "#line 284 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911065	911176	
==>],
                  "BODY" => "#line 284 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911963	912074	
==>],
                  "BODY" => "#line 284 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931447	931801	
==>base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1046,
                  "ARGS" => [
                              "s",
                              "s"
                            ], <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544132	544235	
==>math.ops\"\n INTVAL gcd = 0;\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545468	545571	
==>math.ops\"\n INTVAL gcd = 0;\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546804	546907	
==>math.ops\"\n INTVAL gcd = 0;\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332366	332461	
==>r * need to go away soon */\n  const char * const mode = string_to_cstring(interpreter, {{\@3}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333644	333739	
==>r * need to go away soon */\n  const char * const mode = string_to_cstring(interpreter, {{\@3}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334922	335017	
==>r * need to go away soon */\n  const char * const mode = string_to_cstring(interpreter, {{\@3}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336201	336296	
==>r * need to go away soon */\n  const char * const mode = string_to_cstring(interpreter, {{\@3}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81142	81465	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compile",
                  "FLAGS" => "" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82035	82358	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compile",
                  "FLAGS" => "" <==
4	/Users/nnunley/parrot/tools/dev/nm.pl	2004	2099	
==>ptions can be shortened to their unique prefixes, and one
leading dash ("-") can be used instead <==
4	/Users/nnunley/parrot/tools/dev/nm.pl	3885	3980	
==>ptions can be shortened to their unique prefixes,
and one leading dash ("-") can be used instead <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	33951	34174	
==>r(interpreter, {{\@1}}, (CUR_OPCODE + {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2740	2873	
==>keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATH <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3049	3182	
==>keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATH <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2844	2977	
==>keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATH <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6915	7019	
==>nd_block
{
  my $self = shift;  # Required: Jako::Construct::Block
  my $kind = shift;  # Required: strin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037044	1037334	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDI <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037824	1038114	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDI <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038605	1038895	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDI <==
4	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	687	803	
==>!~ /-laio/) {
        $libs .= ' -laio';
    }
    $conf->data->set(libs => $libs);

    for my $ldflags (qw(ld_load_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858643	858773	
==>arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859647	859777	
==>arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860651	860781	
==>arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861656	861786	
==>arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" = <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1099	1209	
==>rence to an array of arrays. Containing subrules that refer to each
other. In this form:

    [
        [ name1 <==
4	/Users/nnunley/parrot/config/auto/gc.pm	111	207	
==>75Z coke  $

=head1 NAME

config/auto/gc.pm - Garbage Collection

=head1 DESCRIPTION

Checks whet <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10404	10494	
==>P2}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP3}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
$ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7788	7878	
==>P2}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP3}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
$ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656516	656822	
==>);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657440	657746	
==>);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658358	658664	
==>);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined <==
4	/Users/nnunley/parrot/lib/File/Which.pm	5878	5973	
==>although there is platform specific code
for those. Anyone who haves a second would be very kind <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101159	101417	
==>2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ": <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103365	103623	
==>2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ": <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1907	2017	
==>on $$self{VERSION}:\n".
			  "Please recompile parser module.";

        ref($class)
    and $class=ref($cl <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1841	1947	
==>on $$self{VERSION}:\n".
			  "Please recompile parser module.";

        ref($class)
    and $class=ref($cl <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30716	30861	
==>D' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFA <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40066	40211	
==>D' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFA <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41693	41838	
==>D' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFA <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59753	59857	
==>/gco)
		{
			pos($grammar)-=6;
			_parseunneg("a new (error) production", $aftererror,
				    $lookahead <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	31938	32036	
==>TA", \$P2
DATADONE
}
sub typeof {
	my($var)=@_;
	return "FLO" if ($var=~/[!#%&]$/);
	return "STRING <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3805	3903	
==>nlib property, and parent module has no fnlib property either!")
        unless $module_props{fnlib <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6469	6567	
==>nlib property, and parent module has no fnlib property either!")
        unless $module_props{fnlib <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	1084	1182	
==>item('', $dist->relative_path($file)));
	    }
	}
	
	return $self->SUPER::new(
		'PMCs', 'pmc.html' <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1989	2083	
==>Expression involves unknown variable %s.", $left->value) unless $left_sym;
    $left_type = $le <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1947	2041	
==>Expression involves unknown variable %s.", $left->value) unless $left_sym;
    $left_type = $le <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1869	1963	
==>Expression involves unknown variable %s.", $left->value) unless $left_sym;
    $left_type = $le <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	5240	5329	
==>($self->path);
		$self->{POD_ERRORS_COUNT} = $checker->errors_seen;
		$self->{CONTAINS_POD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729810	729987	
==>"s",
                              "s"
                            ],
                  "BODY" => "#line 71 \"src/ops/set.ops\"\n   STRING * const temp = {{\@1}};\n   {{\@1}} = { <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5486	5585	
==>'[0]',$item]);
      $self->_add_inst ('', 'set', [$pair.'[1]',$return]);
      $self->_add_inst ('' <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17036	17130	
==>'[0]',$item]);
    $self->_add_inst ('', 'set',[$pair.'[1]',$return]);
    $self->_add_inst ('' <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6525	6614	
==>'[0]',$item]);
  $self->_add_inst('', 'set', [$pair.'[1]',$return]);
  $self->_add_inst('' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727568	727804	
==>mp = {{\@1}};\n   {{\@1}} = {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	728365	728601	
==>mp = {{\@1}};\n   {{\@1}} = {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729159	729395	
==>mp = {{\@1}};\n   {{\@1}} = {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729959	730195	
==>mp = {{\@1}};\n   {{\@1}} = {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296917	297063	
==>"
                            ],
                  "BODY" => "#line 970 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 0 : 1;\n  {{+=4}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297773	297919	
==>"
                            ],
                  "BODY" => "#line 970 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 0 : 1;\n  {{+=4}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298629	298775	
==>"
                            ],
                  "BODY" => "#line 970 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 0 : 1;\n  {{+=4}};\ <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19176	19312	
==>e 55
		ACTIONS => {
			"(" => 8,
			'NAME' => 4
		},
		GOTOS => {
			'functioncall' => 107,
			'var' => 108
		}
	},
	{#State 56 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374033	374143	
==>s\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374916	375026	
==>s\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375799	375909	
==>s\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376683	376793	
==>s\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2205	2316	
==>:

sub end_head1       { $_[0]->emit_par(-4) }
sub end_head2       { $_[0]->emit_par(-3) }
sub end_head3       { <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1773	1884	
==>:

sub end_head1       { $_[0]->emit_par(-4) }
sub end_head2       { $_[0]->emit_par(-3) }
sub end_head3       { <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	6510	6611	
==>e2);
	my($resulty, $typey, @codey);
	my($resultx, $typex, @codex);
	if ($type[NEXT] =~ /PUN/) {  # Y o <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18905	18995	
==>syms[NEXT]=~/while|until/ ) ) {
		push @{$code{$seg}->{code}}, "\ngoto DO_$do->{jump}\t# Un <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72710	72809	
==>C_data({{\@2}}), name));\n  string_cstring_free(name);\n  if (p == NULLfunc) {\n      const char * e <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74312	74411	
==>C_data({{\@2}}), name));\n  string_cstring_free(name);\n  if (p == NULLfunc) {\n      const char * e <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75914	76013	
==>C_data({{\@2}}), name));\n  string_cstring_free(name);\n  if (p == NULLfunc) {\n      const char * e <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77517	77616	
==>C_data({{\@2}}), name));\n  string_cstring_free(name);\n  if (p == NULLfunc) {\n      const char * e <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926733	927036	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringinfo",
                  "FLAGS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928203	928506	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringinfo",
                  "FLAGS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929673	929976	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringinfo",
                  "FLAGS" => <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	276	372	
==>se strict;
eval "use warnings";

package Jako::Construct::Block::Loop::Until;

use Carp;

use bas <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	13247	13369	
==>NCI_P($reg_num);";
        return "t_$temp_num == PMCNULL ? NULL : t_$temp_num";
    };
    /S/ && do {
        push @{$tem <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8456	8568	
==>st_reg = shift;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the store.
	# Othe <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6276	6388	
==>st_reg = shift;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the store.
	# Othe <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5191	5303	
==>st_reg = shift;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the store.
	# Othe <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	6479	6593	
==>mod = modtime($target)
      or return 1;
    for my $source (@sources) {
        return 1 if modtime($source) > $t <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4899	5013	
==>mod = modtime($target)
      or return 1;
    for my $source (@sources) {
        return 1 if modtime($source) > $t <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	6690	6804	
==>mod = modtime($target)
      or return 1;
    for my $source (@sources) {
        return 1 if modtime($source) > $t <==
4	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	4619	4724	
==>_, $nolines) for @{$files};

    # FILE holds a space separated list of opsfile name
    if ($self->{FILE} <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	4393	4514	
==>ches taken at least once in file/;
            if ($total_branches) {
                my $covered_branches = int(($percent <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	725999	726106	
==>"src/ops/set.ops\"\n  {{\@1}} = string_copy(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726761	726868	
==>"src/ops/set.ops\"\n  {{\@1}} = string_copy(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741979	742086	
==>"src/ops/set.ops\"\n  {{\@1}} = string_copy(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31184	31289	
==>lements($method)>

Always true for vtables.

=cut

sub implements
{
    my ($self, $meth) = @_;
    $self- <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32647	32752	
==>lements($method)>

Always true for vtables.

=cut

sub implements
{
    my ($self, $meth) = @_;
    $self- <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39804	39909	
==>lements($method)>

Always true for vtables.

=cut

sub implements
{
    my ($self, $meth) = @_;
    $self- <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	790	887	
==>e containing additional arguments (as
you might find on the command line).

If you don't pass a C< <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	48925	49050	
==>n";
      # This is where it gets messy...
      if(! @stack) {
        # We saw " >>>>" but needed nothing.  This is ALL just <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180582	180700	
==>],
                  "BODY" => "#line 278 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181478	181596	
==>],
                  "BODY" => "#line 278 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182374	182492	
==>],
                  "BODY" => "#line 278 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579290	579385	
==>*class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580595	580690	
==>*class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581900	581995	
==>*class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583206	583301	
==>*class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140843	140943	
==>=> "#line 77 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141739	141839	
==>=> "#line 77 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142635	142735	
==>=> "#line 77 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n" <==
4	/Users/nnunley/parrot/lib/Test/More.pm	3491	3589	
==>ATS>)

In some cases, you'll want to completely skip an entire testing script.

  use Test::More sk <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7883	8053	
==>, @sempar )
                            : @sempar ? $sempar[0] : undef;

            splice(@$stack,-$len,$len);

                $$check eq 'ACCEPT'
            and <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7528	7692	
==>, @sempar )
                            : @sempar ? $sempar[0] : undef;

            splice(@$stack,-$len,$len);

                $$check eq 'ACCEPT'
            and <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	3043	3154	
==>mplemented '$syms[CURR] ";
		while(1) {
			feedme();
			$_=$type[CURR];
			last unless $_;
			last if $_ =~ /STM <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	10970	11070	
==>ong" else print "Correct"

' Expect correct
t=0
if t then
	print "Wrong"
else 
	print "Correct"
end i <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22066	22173	
==>($block, $self->require_value);
        $op    = $self->require_infix_rel->text;
        $right = Jako::Cons <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22999	23106	
==>($block, $self->require_value);
        $op    = $self->require_infix_rel->text;
        $right = Jako::Cons <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24645	24752	
==>($block, $self->require_value);
        $op    = $self->require_infix_rel->text;
        $right = Jako::Cons <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	611	712	
==>', '',
		$self->new_group('Operations', '',
			$self->new_item('Ops to C Code Generation', 
			    'li <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11385	11478	
==>PRE_CALL_END_${CURIC}

# It's a return. See if we have a return value.
PRE_CALL_RETURN_${CURIC <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8571	8664	
==>PRE_CALL_END_${CURIC}

# It's a return. See if we have a return value.
PRE_CALL_RETURN_${CURIC <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7143	7236	
==>PRE_CALL_END_${CURIC}

# It's a return. See if we have a return value.
PRE_CALL_RETURN_${CURIC <==
4	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	4380	4473	
==><new(@files)>

Returns a new instance initialized by calling C<read_ops()> on each of
the spec <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	820	949	
==>$self);
    }

    sub DESTROY { }
}

sub import {
    my $self = shift;

    if ( @_ == 0 ) {
      $self->export_to_level( 1, $s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712556	712655	
==>);\n  if (string_str_index(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713663	713762	
==>);\n  if (string_str_index(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720023	720122	
==>);\n  if (string_str_index(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721223	721322	
==>);\n  if (string_str_index(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8012	8115	
==>ier name!"  unless defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_symbol( <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8659	8762	
==>ier name!"  unless defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_symbol( <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9327	9430	
==>ier name!"  unless defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_symbol( <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9996	10099	
==>ier name!"  unless defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_symbol( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766601	766838	
==>bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767454	767691	
==>bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768307	768544	
==>bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769161	769398	
==>bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024510	1024824	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025266	1025580	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026023	1026337	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026779	1027093	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911894	912063	
==>"sc",
                              "sc"
                            ],
                  "BODY" => "#line 284 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(inte <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918932	919101	
==>"sc",
                              "ic"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(inte <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919945	920114	
==>"sc",
                              "ic"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(inte <==
4	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	699	827	
==>self = shift;
        my ( $code, $output, $desc ) = @_;
  
        my $count = $self->{builder}->current_test + 1;

        my $ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	883	984	
==>": "
PIR
}

# Pre and post stack operation (op class instructions) hooks.
sub pre_op($$) {
	my $self = <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	28717	28814	
==>if the input text was passed in a variable, that variable's
C<pos> value is updated to point at th <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25992	26081	
==>eg}->{code}}, <<NEXT;
	add $ps->{var}, $ps->{var}, FORLOOP_STEP_$ps->{num}
	goto FOR_$ps-> <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26177	26266	
==>eg}->{code}}, <<NEXT;
	add $ps->{var}, $ps->{var}, FORLOOP_STEP_$ps->{num}
	goto FOR_$ps-> <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271089	271236	
==>> "#line 871 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271935	272082	
==>> "#line 871 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272781	272928	
==>> "#line 871 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	2043	2156	
==>->is('concat-assign'); }
sub is_const         { return shift->is('const');         }
sub is_continue      { return <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693362	693798	
==>GDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 779,
                  "ARGS" => [
                              "ic",
                              "i",
                              "i",
                              "p" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273626	273773	
==>> "#line 876 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	274472	274619	
==>> "#line 876 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	275318	275465	
==>> "#line 876 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/config/auto/jit.pm	905	1006	
==>rchname = $Config{archname};
    my ($cpuarch, $osname) = split(/-/, $archname);

    if (!defined $os <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	933	1033	
==>undefined suppress];
our $PERL = q[perl];
our $LOAD_EXT = qq[.bundle];
our $O = qq[.o];
our $CFLAGS = <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	922	1022	
==>undefined suppress];
our $PERL = q[perl];
our $LOAD_EXT = qq[.bundle];
our $O = qq[.o];
our $CFLAGS = <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	926	1026	
==>undefined suppress];
our $PERL = q[perl];
our $LOAD_EXT = qq[.bundle];
our $O = qq[.o];
our $CFLAGS = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417369	417508	
==>"ic"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418497	418636	
==>"ic"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419625	419764	
==>"ic"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420754	420893	
==>"ic"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, { <==
4	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1596	1797	
==>$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
print "Elapsed time:  $N2\n"; # print  "Elapse <==
4	/Users/nnunley/parrot/examples/mops/mops.pl	1596	1797	
==>$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
print "Elapsed time:  $N2\n"; # print  "Elapse <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	38885	38984	
==>action to be taken if a matching end
tag is not encountered (i.e. before the end of the string or so <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	12091	12185	
==>> 1 and print "Declaring $source as :raw for starters\n";
  #$self->_apply_binmode($source, ':r <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867306	867619	
==>3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868272	868585	
==>3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869238	869551	
==>3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870205	870518	
==>3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1122	1211	
==>ng-double  -I /opt/local/include   -g -Wall -Wstrict-prototypes -Wmissing-prototypes -Winl <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1180	1269	
==>ng-double  -I /opt/local/include   -g -Wall -Wstrict-prototypes -Wmissing-prototypes -Winl <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1184	1273	
==>ng-double  -I /opt/local/include   -g -Wall -Wstrict-prototypes -Wmissing-prototypes -Winl <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31880	31992	
==>s}[$n], $line, $out_name);
    }
    my $parameters = $method->{parameters};
    my $n=0;
    my @args = grep {$n <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33457	33569	
==>s}[$n], $line, $out_name);
    }
    my $parameters = $method->{parameters};
    my $n=0;
    my @args = grep {$n <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40514	40626	
==>s}[$n], $line, $out_name);
    }
    my $parameters = $method->{parameters};
    my $n=0;
    my @args = grep {$n <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	349	449	
==>e Carp;

use Jako::Compiler;

use base qw(Jako::Construct::Block);

sub kind { return 'module'; }

su <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6481	6601	
==>lf}{'line_count'}\n";
        push @{$paras->[-1]}, $line;
      }  # otherwise it's not interesting
      
      if(!$se <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126604	126723	
==>st INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127739	127858	
==>st INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128874	128993	
==>st INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL) <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	5163	5289	
==>is especially important on
        # some platforms
        if ($^O eq 'hpux' or $^O eq 'cygwin') {
            chmod 0755, "$d <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	5374	5500	
==>is especially important on
        # some platforms
        if ($^O eq 'hpux' or $^O eq 'cygwin') {
            chmod 0755, "$d <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4379	4499	
==>is especially important on
			# some platforms
	        if ($^O eq 'hpux' or $^O eq 'cygwin') {
		        chmod 0755, "$d <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	38608	38713	
==>/\\"/g;

	# Substitute in meta-variables. Yes, this really is the least evil way I
	# can think of to do i <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11521	11742	
==>rg1'   => $result,
                            'arg2'   => $key->[0],
                        );
                        $result = $result2;
                    }
                    push @opcodes, @{ $last_key->[1] } <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9745	9946	
==>rg1'   => $result,
                        'arg2'   => $key->[0],
                    );
                    $result = $result2;
                }
                push @opcodes, @{ $last_key->[1] } <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8648	8809	
==>rg1'   => $result,
                'arg2'   => $key->[0],
            );
            $result = $result2;
        }
        push @opcodes, @{ $last_key->[1] } <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6351	6451	
==>tart_of_pod_block'} and @$paras and $paras->[-1][0] eq '~Verbatim') {
        DEBUG > 1 and print "Sa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849955	850278	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850842	851165	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851729	852052	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20283	20376	
==>If you are particularly interested in customizing this module's output
even more, see the sour <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73185	73492	
==>\n      PObj_get_FLAGS({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74787	75094	
==>\n      PObj_get_FLAGS({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76389	76696	
==>\n      PObj_get_FLAGS({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77992	78299	
==>\n      PObj_get_FLAGS({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	3647	3750	
==>if ($mode eq 'compile') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_gr <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	3751	3854	
==>if ($mode eq 'compile') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_gr <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	35640	35739	
==>der will exit with zero (which is
normal).  If anything failed it will exit with how many failed.  I <==
4	/Users/nnunley/parrot/lib/Test/More.pm	33711	33810	
==>der will exit with zero (which is
normal).  If anything failed it will exit with how many failed.  I <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079491	1079885	
==>",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ne <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072935	1073327	
==>",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075120	1075512	
==>",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077305	1077697	
==>",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	707	813	
==>imple::Debug (NUMVAL)\nor"
                    . "\n use Pod::Simple::Debug (\\\$var, STARTNUMVAL)\nAbortin <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1184	1290	
==>imple::Debug (NUMVAL)\nor"
                    . "\n use Pod::Simple::Debug (\\\$var, STARTNUMVAL)\nAbortin <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	528	630	
==>imple::Debug (NUMVAL)\nor"
                . "\n use Pod::Simple::Debug (\\\$var, STARTNUMVAL)\nAbortin <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	20017	20116	
==>eturn $Level;
}


=item B<use_numbers>

    $Test->use_numbers($on_or_off);

Whether or not the test <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206529	206791	
==>@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ), <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207471	207733	
==>@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ), <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208411	208673	
==>@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ), <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209352	209614	
==>@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ), <==
4	/Users/nnunley/parrot/config/auto/byteorder.pm	1078	1194	
==>_result('big-endian');
    } else {
        die "Unsupported byte-order [$byteorder]!";
    }

    return $self;
}

1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126566	126682	
==>{{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127701	127817	
==>{{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128836	128952	
==>{{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688202	688476	
==>{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "del <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663751	664024	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "del <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664523	664796	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "del <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665299	665572	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "del <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842608	842888	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843485	843765	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844363	844643	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845241	845521	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727080	727326	
==>NAME" => "exchange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "io"
                               ],
                  "TYPE" => "function", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727878	728124	
==>NAME" => "exchange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "io"
                               ],
                  "TYPE" => "function", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	728675	728921	
==>NAME" => "exchange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "io"
                               ],
                  "TYPE" => "function", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729469	729715	
==>NAME" => "exchange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "io"
                               ],
                  "TYPE" => "function", <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1289	1401	
==>gram is specified then
    # the user is responsible for the consequences.
    if (defined $prog) {
        $conf <==
4	/Users/nnunley/parrot/config/inter/make.pm	1110	1222	
==>gram is specified then
    # the user is responsible for the consequences.
    if (defined $prog) {
        $conf <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1286	1398	
==>gram is specified then
    # the user is responsible for the consequences.
    if (defined $prog) {
        $conf <==
4	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	758	856	
==>le config fileName fileSystem main misc 
  parse parseExpr parseOld regexpComp utf util
);

my %num <==
4	/Users/nnunley/parrot/languages/APL/t/APL.pm	301	402	
==>rrot::Test;

our @EXPORT = qw(run_apl_is);

BEGIN {
  # APL *really* needs unicode to function, bail o <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	1695	1778	
==>-Wdeclaration-after-statement -I/usr/local/include -I/opt/local/include -pipe -fno-c <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1083	1166	
==>-Wdeclaration-after-statement -I/usr/local/include -I/opt/local/include -pipe -fno-c <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1087	1170	
==>-Wdeclaration-after-statement -I/usr/local/include -I/opt/local/include -pipe -fno-c <==
4	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	3148	3271	
==>}

        # The generated files are left in the t/* directories.
        # Let 'make clean' and 'svn:ignore' take care o <==
4	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2742	2862	
==>}

        # The generated files are left in the t/* directories.
        # Let 'make clean' and 'svn:ignore' take care o <==
4	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	2759	2879	
==>}

        # The generated files are left in the t/* directories.
        # Let 'make clean' and 'svn:ignore' take care o <==
4	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	3308	3428	
==>}

        # The generated files are left in the t/* directories.
        # Let 'make clean' and 'svn:ignore' take care o <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8842	8997	
==>$lhs}, $semval ]);
                $$check='';
                next;
            };

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Forced Error recov <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8445	8594	
==>$lhs}, $semval ]);
                $$check='';
                next;
            };

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Forced Error recov <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27685	27801	
==>ame'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end translation\n";

		# Emit code to fix up the sta <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37234	37350	
==>ame'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end translation\n";

		# Emit code to fix up the sta <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015087	1015310	
==>interpreter, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015911	1016134	
==>interpreter, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2780	2882	
==>{
    my ($self, $offset) = @_;

    return "interpreter->resume_offset = REL_PC + $offset; interpreter <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4115	4217	
==>{
    my ($self, $offset) = @_;

    return "interpreter->resume_offset = REL_PC + $offset; interpreter <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	6400	6518	
==>n;
    }
}

sub needs_build {
    my ($target, @sources) = @_;

    my $target_mod = modtime($target)
      or return 1 <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4820	4938	
==>n;
    }
}

sub needs_build {
    my ($target, @sources) = @_;

    my $target_mod = modtime($target)
      or return 1 <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	6611	6729	
==>n;
    }
}

sub needs_build {
    my ($target, @sources) = @_;

    my $target_mod = modtime($target)
      or return 1 <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2316	2410	
==><< $token->type() eq "text" >>

=item $token->is_end

This is a shortcut for C<< $token->type() <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377548	377639	
==>2 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(interpreter, {{\@2}}, {{\@3}});\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378432	378523	
==>2 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(interpreter, {{\@2}}, {{\@3}});\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379316	379407	
==>2 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(interpreter, {{\@2}}, {{\@3}});\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380201	380292	
==>2 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(interpreter, {{\@2}}, {{\@3}});\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584484	584586	
==>}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, N <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585559	585661	
==>}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, N <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598000	598102	
==>}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, N <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599047	599149	
==>}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, N <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154856	154955	
==>" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155760	155859	
==>" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156664	156763	
==>" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157569	157668	
==>" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}} <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	59234	59363	
==>3,
sub
#line 562 "Lua\lua51.yp"
{
            BuildTable( $_[0], $_[2] );
        }
	],
	[#Rule 105
		 'tableconstructor', <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7631	7728	
==>NAME)

This is a shortcut method that uses find_symbol() to locate a matching
symbol, and then ret <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8278	8375	
==>NAME)

This is a shortcut method that uses find_symbol() to locate a matching
symbol, and then ret <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8926	9023	
==>NAME)

This is a shortcut method that uses find_symbol() to locate a matching
symbol, and then ret <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9596	9693	
==>NAME)

This is a shortcut method that uses find_symbol() to locate a matching
symbol, and then ret <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557227	557348	
==>ROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLAGS" => ":object_b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558610	558731	
==>ROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLAGS" => ":object_b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559994	560115	
==>ROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLAGS" => ":object_b <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	5122	5220	
==>5-2
' Expect 3 also
print 5+-2
' Expect 0
print 6-abs(-6)


' Some register confusion, expect .PTFC <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353178	353429	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "fun <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353922	354173	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "fun <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354667	354918	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "fun <==
4	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	1651	1777	
==>c;

    foreach my $obj (@ARGV) {
        my $src = $obj;
        $src =~ s/src\/pmc\/(.*)\.o/$1\.c/g;

	push @src, $src;
    } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253707	253852	
==>"
                            ],
                  "BODY" => "#line 726 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@2}} : {{\@3}};\n  {{+=4}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254570	254715	
==>"
                            ],
                  "BODY" => "#line 726 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@2}} : {{\@3}};\n  {{+=4}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255433	255578	
==>"
                            ],
                  "BODY" => "#line 726 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@2}} : {{\@3}};\n  {{+=4}};\ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	10320	10448	
==>> 1 and print " Setting encoding to $e\n";
      $self->{'encoding'} = $e;
      1;
    }
    and $e eq 'HACKRAW'
  ) {
    DEBUG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168555	168817	
==>er, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169497	169759	
==>er, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170437	170699	
==>er, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171378	171640	
==>er, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	10210	10313	
==>p::croak( "Unknown " . ((1 == keys %options) ? "option: " : "options: ")
    . join " ", map "[$_]", sor <==
4	/Users/nnunley/parrot/tools/dev/parrot_api.pl	1131	1228	
==>sing.

=item No Parrotish Prefix

The API is implemented but has no C<Parrot_> prefix (or prefix d <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1263	1347	
==>token->tagname(...)

=item $token->is_tag(I<somestring>) or $token->is_tagname(I<some <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1693	1777	
==>token->tagname(...)

=item $token->is_tag(I<somestring>) or $token->is_tagname(I<some <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852815	853024	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "io <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853596	853805	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "io <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9977	10075	
==>-1][0]]{ACTIONS}{error})
					or	$$states[$$stack[-1][0]]{ACTIONS}{error} <= 0)) {

#DBG>			$deb <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9530	9625	
==>-1][0]]{ACTIONS}{error})
					or	$$states[$$stack[-1][0]]{ACTIONS}{error} <= 0)) {

#DBG>			$deb <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	987	1139	
==>int *",
       l => "long",
       4 => "long *",
       c => "char",
       s => "short",
       2 => "short *",
       f => "float",
       d => "doubl <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	1402	1554	
==>int *",
       l => "long",
       4 => "long *",
       c => "char",
       s => "short",
       2 => "short *",
       f => "float",
       d => "doubl <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	2307	2459	
==>int *",
       l => "long",
       4 => "long *",
       c => "char",
       s => "short",
       2 => "short *",
       f => "float",
       d => "doubl <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	395	501	
==>ummy stack.
	return <<'PIR';
.local string strPC
${INS} = concat <<"CODE"
    .local pmc s
    s = new Resi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586876	586969	
==>rpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=nex <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588062	588155	
==>rpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=nex <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589248	589341	
==>rpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=nex <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590435	590528	
==>rpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=nex <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	3951	4078	
==>mt = $labels{$dest->{label}}; # tagged_op
                if (! $dest_stmt) {
                    if ($ctx->{external_labels}{$d <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2328	2447	
==>blist = join( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ /gcc/i) {
            $liblist =~ s/gdbm\.lib/-lli <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2620	2739	
==>blist = join( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ /gcc/i) {
            $liblist =~ s/gdbm\.lib/-lli <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2415	2534	
==>blist = join( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ /gcc/i) {
            $liblist =~ s/gdbm\.lib/-lli <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168560	168835	
==>{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169502	169777	
==>{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170442	170717	
==>{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171383	171658	
==>{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853349	853458	
==>string.ops\"\n  {{\@1}} = string_append(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854131	854240	
==>string.ops\"\n  {{\@1}} = string_append(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	21889	21990	
==>ackage, $example_test_map{$func} );
                $test_func->( $lang_for_extension{$extension}, $co <==
4	/Users/nnunley/parrot/Configure.pl	3783	3878	
==>eaders='/home/lt/icu/'

=back

Other Options

=over

=item C<--maintainer>

Use this option if y <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	31	133	
==>2001-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	32	134	
==>2001-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	31	133	
==>2001-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
4	/Users/nnunley/parrot/tools/build/pbc2c.pl	7774	7872	
==>2001-2005, The Perl Foundation.
This program is free software. It is subject to the same license
as <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4885	4968	
==>ent = Jako::Construct::Expression::Value::Identifier->new($block, $self->require_ide <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6488	6571	
==>ent = Jako::Construct::Expression::Value::Identifier->new($block, $self->require_ide <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7879	7962	
==>ent = Jako::Construct::Expression::Value::Identifier->new($block, $self->require_ide <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22679	22762	
==>ent = Jako::Construct::Expression::Value::Identifier->new($block, $self->require_ide <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	17562	17688	
==>> -35
	},
	{#State 65
		DEFAULT => -23
	},
	{#State 66
		ACTIONS => {
			'NUM' => 40,
			">" => 71
		},
		GOTOS => {
			'number <==
4	/Users/nnunley/parrot/tools/dev/as2c.pl	1183	1301	
==>s*,\s*\@function/) {
	    $in_comment = 0;
	    $func = $1;
	    print " *\n */\n";
	    print "static const char ${fun <==
4	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	485	598	
==>t;
    my ( $count, $options ) = @_;

    my $lang_fn = Parrot::Test::per_test( '.bc', $count );
    my $pir_fn  = <==
4	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr3.pm	377	490	
==>t;
    my ( $count, $options ) = @_;

    my $lang_fn = Parrot::Test::per_test( '.bc', $count );
    my $pir_fn  = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646856	647148	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647616	647908	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648377	648669	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649139	649431	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836752	836925	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837484	837657	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838218	838391	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838950	839123	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
4	/Users/nnunley/parrot/tools/dev/install_files.pl	3056	3219	
==>ib',
                includedir  => '/usr/include',
                docdir      => '/usr/share/doc',
                'dry-run'   => 0,
              );

my @manifes <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30682	30824	
==>">=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			" <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40032	40174	
==>">=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			" <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41659	41801	
==>">=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			" <==
4	/Users/nnunley/parrot/languages/converter.pl	1061	1163	
==>| terminal(?) '[' production ']' production(?)
#		{[@item]}
		{ $return = '';
		  $return .= $item[1][0 <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	3398	3504	
==>class, $info) = each %classes) {
	next if $info->{flags}->{noinit};
        $cout .= <<"EOC";
    Parrot_In <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72614	72716	
==>rpreter, ({{\@3}}));\n\n  funcptr_t p = D2FPTR(Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74216	74318	
==>rpreter, ({{\@3}}));\n\n  funcptr_t p = D2FPTR(Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75818	75920	
==>rpreter, ({{\@3}}));\n\n  funcptr_t p = D2FPTR(Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77421	77523	
==>rpreter, ({{\@3}}));\n\n  funcptr_t p = D2FPTR(Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480813	481098	
==>INTVAL)floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481816	482101	
==>INTVAL)floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482819	483104	
==>INTVAL)floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	19636	19731	
==>en", 58, "ascii", 0);
#else
    ns = string_make(interpreter, ".\\nCAN_BUILD_CALL_FRAMES is disa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90800	90914	
==>ODY" => "#line 43 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91654	91768	
==>ODY" => "#line 43 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92508	92622	
==>ODY" => "#line 43 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	26055	26149	
==>n  PMC * const p = CONTEXT(interpreter->ctx)->current_cont;\n  opcode_t * const dest = (opcode_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843268	843574	
==>@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844146	844452	
==>@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845024	845330	
==>@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	4903	5000	
==>->{label} ||= $self->{state}->genlabel("beginning");

    # Stick in a next_stmt ref in every stat <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640203	640489	
==>P" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640957	641243	
==>P" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645281	645567	
==>P" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646177	646463	
==>P" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586557	586702	
==>"
                            ],
                  "BODY" => "#line 314 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587743	587888	
==>"
                            ],
                  "BODY" => "#line 314 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588929	589074	
==>"
                            ],
                  "BODY" => "#line 314 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590116	590261	
==>"
                            ],
                  "BODY" => "#line 314 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727566	727800	
==>temp = {{\@1}};\n   {{\@1}} = {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	728363	728597	
==>temp = {{\@1}};\n   {{\@1}} = {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729157	729391	
==>temp = {{\@1}};\n   {{\@1}} = {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729957	730191	
==>temp = {{\@1}};\n   {{\@1}} = {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855044	855356	
==>, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855933	856245	
==>, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856822	857134	
==>, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857712	858023	
==>, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855028	855321	
==>rpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855917	856210	
==>rpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856806	857099	
==>rpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857696	857989	
==>rpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	6593	6774	
==>um_key,
                );
                $key = [ $num_key, \@opcodes3 ];
            }
            if (    scalar @{$fields} == 0
                and scalar @{ $val->[1] } != <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714726	714821	
==>, io, \" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(interp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715649	715744	
==>, io, \" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(interp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716594	716689	
==>, io, \" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(interp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73167	73396	
==>\@4}}, F2DPTR(p));\n      PObj_get_FLAGS({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74769	74998	
==>\@4}}, F2DPTR(p));\n      PObj_get_FLAGS({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76371	76600	
==>\@4}}, F2DPTR(p));\n      PObj_get_FLAGS({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77974	78203	
==>\@4}}, F2DPTR(p));\n      PObj_get_FLAGS({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0, <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2265	2362	
==>-parsing events as text

=head1 SYNOPSIS

  perl -MPod::Simple::DumpAsText -e \
   "exit Pod::Simp <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	46900	46990	
==>rn;
}


#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@


sub _ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41493	41581	
==>rn;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	52548	52636	
==>rn;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _ <==
4	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	955	1092	
==>_f";

    $exit_code = Parrot::Test::run_command($cmd, CD => $self->{relpath},
                                           STDOUT => $out_f <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	996	1133	
==>_f";

    $exit_code = Parrot::Test::run_command($cmd, CD => $self->{relpath},
                                           STDOUT => $out_f <==
4	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2046	2149	
==>_f";

    $exit_code = Parrot::Test::run_command($cmd, #CD => $self->{relpath},
					   STDOUT => $out_f <==
4	/Users/nnunley/parrot/languages/javascript/bootstrap.pm	393	495	
==>t->bind_function(
	name => "debug",
	func => sub {
		warn Dumper(@_);
	});


my $rval = $context->eval( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610576	610847	
==>( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611478	611749	
==>( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612381	612652	
==>( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613287	613558	
==>( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73215	73539	
==>) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74817	75141	
==>) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76419	76743	
==>) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78022	78346	
==>) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	282268	282526	
==>c/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283113	283371	
==>c/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283958	284216	
==>c/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	2124	2241	
==>ttriggers($key)) {
            print "\tcalling trigger $trigger for $key\n" if $verbose;
            my $cb = $self-> <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	28068	28176	
==>D_LIST
{
    BUILD_TUPLE(@_,"ResizablePMCArray")
}
sub BUILD_MAP
{
    my ($n, $c, $cmt) = @_;
    my $ar = t <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	675	780	
==>t++;
    ($count, $expr) = _build_tree ($tokens, $count);
    push @{$temp->{children}}, $expr;
  }
  elsi <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	892	997	
==>t++;
    ($count, $expr) = _build_tree ($tokens, $count);
    push @{$temp->{children}}, $expr;
  }
  elsi <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1106	1211	
==>t++;
    ($count, $expr) = _build_tree ($tokens, $count);
    push @{$temp->{children}}, $expr;
  }
  elsi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811901	812199	
==>AGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 916,
                  "ARGS" = <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	1357	1453	
==>m('This is a description of the steps someone should follow when they have to prepare a new versi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421811	421903	
==>src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_bind(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422704	422796	
==>src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_bind(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}} <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	33711	33835	
==>em in by hand. :(
        my $empty_result = &share({});
        for my $idx ( 0..$self->{Expected_Tests}-1 ) {
            $ <==
4	/Users/nnunley/parrot/config/auto/isreg.pm	573	696	
==>g/auto/isreg/test_c.in');
    eval { cc_build(); };
    unless ($@ || cc_run() !~ /ok/) {
        $test = 1;
    }
    cc_cl <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	13319	13413	
==>rom names (as in C<EE<lt>I<name>E<gt>>) like "eacute" or "sol"
to the Unicode value that each s <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	10654	10747	
==>- `use_ok (Str $module, Bool :$todo, Str :$depends) returns Bool`

*NOTE:* This function curre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247616	247905	
==>} = {{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	248480	248769	
==>} = {{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	249344	249633	
==>} = {{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	800	887	
==>::Construct::Expression::Value::Literal->new($block, $token)    if $token->kind eq 'lite <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32027	32140	
==>eters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $parameters = ", $parameters" if $paramet <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33604	33717	
==>eters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $parameters = ", $parameters" if $paramet <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40661	40774	
==>eters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $parameters = ", $parameters" if $paramet <==
4	/Users/nnunley/parrot/tools/build/c2str.pl	4073	4174	
==>_DEBUG
#  define GC_DEBUG_VERSION ,0
#else
#  define GC_DEBUG_VERSION
#endif

HEADER

# currently unus <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24829	24942	
==>($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_generate($nod <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25840	25953	
==>($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_generate($nod <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26728	26841	
==>($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_generate($nod <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27738	27851	
==>($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_generate($nod <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050205	1050305	
==>xception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051239	1051339	
==>xception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052273	1052373	
==>xception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053308	1053408	
==>xception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(in <==
4	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	2553	2675	
==>mpiled_files, [ $src, $obj ];
    }

    print "** $0: writing parrot build scripts\n";

    ## GCC ##

    print "- minipa <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37056	37160	
==>esc,
		"argcode"   => $argcode || undef,
		"matchrule" => $matchrule,
	}, $class;
}

sub code($$$$)
{
	my <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	1700	1803	
==>write
			keys
		);

sub dumpq {
	print "Upcoming: $type[0] $syms[0]\n";
	print "Current : $type[1] $syms <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11835	11930	
==>se Pod::Escapes qw(:ALL);> to get all
exportable symbols.

=head1 GOODIES

=over

=item e2char($ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321828	322111	
==>( {
                  "JUMP" => 0,
                  "NAME" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322599	322882	
==>( {
                  "JUMP" => 0,
                  "NAME" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323371	323654	
==>( {
                  "JUMP" => 0,
                  "NAME" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	8925	9014	
==>ls/build/vtable_h.pl>

=item F<tools/dev/gen_class.pl>

=item F<src/pmc/null.pl>

=back

1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176096	176197	
==>" => "#line 240 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177000	177101	
==>" => "#line 240 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177904	178005	
==>" => "#line 240 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178809	178910	
==>" => "#line 240 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\ <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11088	11264	
==>my $key ( @{$var} ) {
                        push @opcodes, @{ $key->[1] };
                        my $result2 = new_tmp( $parser, 'pmc' );
                        push @op <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9319	9483	
==>my $key ( @{$var} ) {
                    push @opcodes, @{ $key->[1] };
                    my $result2 = new_tmp( $parser, 'pmc' );
                    push @op <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8311	8451	
==>my $key ( @{$var} ) {
            push @opcodes, @{ $key->[1] };
            my $result2 = new_tmp( $parser, 'pmc' );
            push @op <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17533	17661	
==>my $key ( @{$var} ) {
        push @opcodes, @{ $key->[1] };
        my $result2 = new_tmp( $parser, 'pmc' );
        push @op <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	126	222	
==>e license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Declara <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	123	219	
==>e license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Declara <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	118	214	
==>e license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Declara <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	123	219	
==>e license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Declara <==
4	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1172	1274	
==>eserv => \%request);
  if($resp->is_success) {
    if($resp->content =~ /^ok/) {
      debug "success!\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236586	236674	
==>ine 606 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}});\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237468	237556	
==>ine 606 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}});\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238350	238438	
==>ine 606 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}});\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084761	1084870	
==>ble->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimenta <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085814	1085923	
==>ble->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimenta <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086867	1086976	
==>ble->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimenta <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087921	1088030	
==>ble->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimenta <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905302	905393	
==>line 262 \"src/ops/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906321	906412	
==>line 262 \"src/ops/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907340	907431	
==>line 262 \"src/ops/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908360	908451	
==>line 262 \"src/ops/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684020	684247	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684914	685141	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i", <==
4	/Users/nnunley/parrot/tools/dev/lib_deps.pl	3629	3761	
==>ABLE : (.*) \[(.*)\]/) {
            $variable = $1;
            my $variable_scope = $2;
            if ($variable_scope eq "Local") <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19068	19160	
==>et_short_title on that document will return
"Hoo::Boy::Wowza".

But if the document starts ou <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9504	9600	
==>COUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get details of method we're calling.
($ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7018	7114	
==>COUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get details of method we're calling.
($ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5574	5670	
==>COUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get details of method we're calling.
($ <==
4	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8808	8890	
==>FF,$d,$a,$b,$c,$_[17],12,0xfd987193,/* 14 */
FF,$c,$d,$a,$b,$_[18],17,0xa679438e,/* <==
4	/Users/nnunley/parrot/tools/dev/nm.pl	8510	8607	
==>$const ) if $show;
		want_show(\$show, $Global, $global) if $show;
		want_show(\$show, $Local,  $l <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514102	514192	
==>e 708 \"src/ops/math.ops\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514982	515072	
==>e 708 \"src/ops/math.ops\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515862	515952	
==>e 708 \"src/ops/math.ops\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634576	634671	
==>PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635694	635789	
==>PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636812	636907	
==>PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637931	638026	
==>PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540675	540803	
==>) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n {{\@1}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541927	542055	
==>) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n {{\@1}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543179	543307	
==>) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n {{\@1}} <==
4	/Users/nnunley/parrot/config/init/defaults.pm	5549	5659	
==>PERL) -e \'chdir shift @ARGV; system q{$(MAKE)}, @ARGV; exit $$? >> 8;\'',

        # if platform has a .s file <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28424	28543	
==>t, $e_step, $block ) = @_;
    my @opcodes = ();
    unless ( defined $e_step ) {
        $e_step = BuildLiteral( $pa <==
4	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	510	629	
==>';
    }
    $conf->data->set(ccflags => $ccflags);

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthrea <==
4	/Users/nnunley/parrot/config/init/hints/irix.pm	455	574	
==>';
    }
    $conf->data->set(ccflags => $ccflags);

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthrea <==
4	/Users/nnunley/parrot/config/init/hints/netbsd.pm	248	367	
==>';
    }
    $conf->data->set(ccflags => $ccflags);

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthrea <==
4	/Users/nnunley/parrot/config/init/hints/openbsd.pm	340	459	
==>';
    }
    $conf->data->set(ccflags => $ccflags);

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthrea <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777067	777154	
==>{\@1}}->vtable->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777976	778063	
==>{\@1}}->vtable->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778885	778972	
==>{\@1}}->vtable->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779795	779882	
==>{\@1}}->vtable->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4 <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	18803	18953	
==>R   => 'pir',
                                  );

    my %language_test_map = (
        language_output_is   => 'output_is',
        language_output_ <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2634	2769	
==>E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else {
        $liblist = join( ' ', map { "-l$_" } keys %$libs );
    }

    retu <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2943	3078	
==>E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else {
        $liblist = join( ' ', map { "-l$_" } keys %$libs );
    }

    retu <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2738	2873	
==>E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else {
        $liblist = join( ' ', map { "-l$_" } keys %$libs );
    }

    retu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044716	1044862	
==>Parrot_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045610	1045756	
==>Parrot_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046504	1046650	
==>Parrot_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047399	1047545	
==>Parrot_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925998	926115	
==>,
                  "BODY" => "#line 385 \"src/ops/string.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO_HEADER:   { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927468	927585	
==>,
                  "BODY" => "#line 385 \"src/ops/string.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO_HEADER:   { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928938	929055	
==>,
                  "BODY" => "#line 385 \"src/ops/string.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO_HEADER:   { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930409	930526	
==>,
                  "BODY" => "#line 385 \"src/ops/string.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO_HEADER:   { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080410	1080507	
==>n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \"Illega <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081475	1081572	
==>n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \"Illega <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082540	1082637	
==>n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \"Illega <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083606	1083703	
==>n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \"Illega <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29667	29813	
==>5
		}
	},
	{#State 94
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131326	131440	
==>DY" => "#line 306 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132181	132295	
==>DY" => "#line 306 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133036	133150	
==>DY" => "#line 306 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634046	634345	
==>"NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 71 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635163	635462	
==>"NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 71 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636281	636580	
==>"NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 71 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637399	637698	
==>"NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 71 <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4657	4775	
==>>YYData->{INPUT};
    s/^\n//
        and $parser->YYData->{lineno}++;

    while (1) {
        $parser->YYData->{ <==
4	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	3808	3909	
==>f $dir->file_exists_with_name($name);
    }
    
    return;
}

=item C<file_for_perl_module($module)> <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1325	1419	
==>o we can find register type).
dec ${ITEMP0}
${PTEMP0} = ${STYPES}[${ITEMP0}]

# Assign register <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3035	3129	
==>o we can find register type).
dec ${ITEMP0}
${PTEMP0} = ${STYPES}[${ITEMP0}]

# Assign register <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3037	3144	
==>ck
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${P <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4795	4902	
==>ck
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${P <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1959	2066	
==>ck
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${P <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3211	3318	
==>ck
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406239	406491	
==>9,
                  "ARGS" => [
                              "s",
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 535 \"src/ops/io.ops\"\n    {{\@1}} = PIO_sockadd <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143526	143616	
==>BODY" => "#line 84 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144454	144544	
==>BODY" => "#line 84 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145382	145472	
==>BODY" => "#line 84 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) = <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	52478	52595	
==>);  # recurse!
    } else {
      $$to .= $lol->[$i];
    }
  }
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8496	8599	
==>stination is a register then it is up to the SRM to do the store.
	# Otherwise, there's nothing to do he <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6316	6419	
==>stination is a register then it is up to the SRM to do the store.
	# Otherwise, there's nothing to do he <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5231	5334	
==>stination is a register then it is up to the SRM to do the store.
	# Otherwise, there's nothing to do he <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	9996	10095	
==>RING" and not $fd and
			( $type[NEXT] eq "STMT" or $type[NEXT] eq "COMP" or $type[NEXT] eq "COMM" ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13081	13169	
==>_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  loc = INTVAL2PTR(opcod <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13925	14013	
==>_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  loc = INTVAL2PTR(opcod <==
4	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	738	821	
==>es/benchmarks/stress.pl>, 
F<examples/benchmarks/stress1.pasm>, 
F<examples/benchmar <==
4	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	585	668	
==>es/benchmarks/stress.pl>, 
F<examples/benchmarks/stress1.pasm>, 
F<examples/benchmar <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5905	6066	
==>ts $_->{pragma} and $_->{pragma} eq 'multi' ) {
                print {$FH} " :flat";
            }
            $first = 0;
        }
        print {$FH} ")\ <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	7000	7161	
==>ts $_->{pragma} and $_->{pragma} eq 'multi' ) {
                print {$FH} " :flat";
            }
            $first = 0;
        }
        print {$FH} ")\ <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	9914	10075	
==>ts $_->{pragma} and $_->{pragma} eq 'multi' ) {
                print {$FH} " :flat";
            }
            $first = 0;
        }
        print {$FH} ")\ <==
4	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	3459	3550	
==>efine WORDCHAR    enum_cclass_word
#define PUNCTUATION enum_cclass_punctuation
#define DIGIT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135518	135773	
==>xor(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136412	136667	
==>xor(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137306	137561	
==>xor(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	4983	5077	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub new {
  # takes no parameters
  my $cl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857932	858144	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858935	859147	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859939	860151	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860943	861155	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	29967	30065	
==>one. (E.g., in "L<Perl
# Functions|perlfunc>", the name -- also sometimes called the page -- is
# " <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2491	2588	
==>k" else print "Wrong"
if 5>=5 then print "Ok" else print "Wrong"
if 4>=5 then print "Wrong" else p <==
4	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	201	295	
==>This is largely a copy of Parrot::Test::Tcl, which looks like it's
largely a copy of Parrot::Te <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	239	333	
==>This is largely a copy of Parrot::Test::Tcl, which looks like it's
largely a copy of Parrot::Te <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088657	1088909	
==>,
                  "ARGS" => [
                              "p",
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 186 \"src/ops/experimental.ops\"\n    {{\@1}} = {{\ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9725	9816	
==>need to knock off first arg.
if "${CURIC}" != "73" goto pre_call_NOT_CTOR_${CURIC}
${PTEMP4} <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7239	7330	
==>need to knock off first arg.
if "${CURIC}" != "73" goto pre_call_NOT_CTOR_${CURIC}
${PTEMP4} <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6203	6294	
==>need to knock off first arg.
if "${CURIC}" != "73" goto pre_call_NOT_CTOR_${CURIC}
${PTEMP4} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813477	813727	
==>{
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814102	814352	
==>{
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814724	814974	
==>{
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	815352	815602	
==>{
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510482	510757	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511220	511495	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511958	512233	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	2687	2795	
==>ND_PIR";
.HLL '_Tcl', ''
.namespace [ 'builtins' ]
        
.sub '$cmd'
  .param int register
  .param pmc ar <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	733	828	
==>escription, @todo)>

Runs the target string against the Perl 6 pattern, passing the test
if they <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1850	1945	
==>escription, @todo)>

Runs the target string against the Perl 6 pattern, passing the test if
they <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2831	2926	
==>escription, @todo)>

Runs the target string against the Perl 6 pattern, passing the test
if they <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3382	3477	
==>escription, @todo)>

Runs the target string against the Perl 6 pattern, passing the test if
they <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773417	773503	
==>s\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774327	774413	
==>s\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775237	775323	
==>s\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776148	776234	
==>s\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299543	299690	
==>> "#line 975 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300389	300536	
==>> "#line 975 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301235	301382	
==>> "#line 975 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	239	351	
==>:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Processor;

use Carp;


#
# new()
#

sub n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492220	492429	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492980	493189	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498953	499162	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499715	499924	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629769	630040	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":object_cl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630758	631029	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":object_cl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107481	1107752	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":object_cl <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12366	12476	
==>tems"}};
	return 0;
}

sub leftmostsubrule($)
{
	my $self = shift;

	if ( $#{$self->{"items"}} >= 0 )
	{
		my $ <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19471	19603	
==>L' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 100,
			'funct <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21636	21768	
==>L' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 100,
			'funct <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33151	33283	
==>L' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 100,
			'funct <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23694	23824	
==>e> <op> <value>);
    #   last unless (<value> <op> <value>);
    #
    #   last <label>;
    #   last <label> if     (<value> <op> <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099132	1099266	
==>L   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif ( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100330	1100464	
==>L   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif ( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101528	1101662	
==>L   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif ( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102727	1102861	
==>L   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif ( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680766	681044	
==>\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681542	681820	
==>\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682316	682594	
==>\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683091	683369	
==>\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift", <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	18693	18808	
==><$fh> };
    die $@ if $@;

    close $fh;
    $class;
}


=head2 print_tree( [$dir1, $dir2], 0, $file1, $file2, ... <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1246	1350	
==>ions.
  #
  # NOTE: These are compiler internal consistency checks. They really should not be
  # trigger <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1191	1295	
==>ions.
  #
  # NOTE: These are compiler internal consistency checks. They really should not be
  # trigger <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1094	1198	
==>ions.
  #
  # NOTE: These are compiler internal consistency checks. They really should not be
  # trigger <==
4	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	3033	3177	
==>it code $exit_code."
                if $exit_code;
            $self->{builder}->diag($diag) if $diag;
        }

        # The generated f <==
4	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2644	2769	
==>it code $exit_code." if $exit_code;
            $self->{builder}->diag( $diag ) if $diag;
        }

        # The generated f <==
4	/Users/nnunley/parrot/config/init/hints/solaris.pm	2632	2742	
==>/Sun Workshop Pro 4, both
    #    atan2( 0.0, -0.0) and atan2(-0.0, -0.0)
    # return 0, when they should ret <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	27682	27786	
==>cal pass/fail, so todos are passes.

Of course, test #1 is $tests[0], etc...

=cut

sub summary {
    my( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72667	72755	
==>_dlsym(PMC_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_cstring_fre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74269	74357	
==>_dlsym(PMC_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_cstring_fre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75871	75959	
==>_dlsym(PMC_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_cstring_fre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77474	77562	
==>_dlsym(PMC_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_cstring_fre <==
4	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Posix.pm	323	440	
==>_test_prog {
    my $self = shift;
    my ( $count, $options ) = @_;

    my $lang_fn        = Parrot::Test::per_test( <==
4	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	453	563	
==>_test_prog {
    my $self = shift;
    my ( $count, $options ) = @_;

    my $lang_fn = Parrot::Test::per_test( <==
4	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr3.pm	345	455	
==>_test_prog {
    my $self = shift;
    my ( $count, $options ) = @_;

    my $lang_fn = Parrot::Test::per_test( <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	29923	30022	
==>_ci_gt_p {
}

sub _op_string_ci_le_p {
}

sub _op_string_ci_ge_p {
}

sub _op_substring {
}

sub _op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650151	650416	
==>E" => "valid_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 727 <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1257	1358	
==>the user.  If a non-existent program is specified then
    # the user is responsible for the consequen <==
4	/Users/nnunley/parrot/config/inter/make.pm	1078	1179	
==>the user.  If a non-existent program is specified then
    # the user is responsible for the consequen <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1254	1355	
==>the user.  If a non-existent program is specified then
    # the user is responsible for the consequen <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221544	221741	
==>p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 484 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpret <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	7011	7111	
==>my ($src_stem, $dest_stem) = @_;

    $dest_stem ||= $src_stem;
    if (needs_build("$dest_stem$O", " <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5305	5405	
==>my ($src_stem, $dest_stem) = @_;

    $dest_stem ||= $src_stem;
    if (needs_build("$dest_stem$O", " <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	7222	7322	
==>my ($src_stem, $dest_stem) = @_;

    $dest_stem ||= $src_stem;
    if (needs_build("$dest_stem$O", " <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	647	740	
==>_PC (cur_opcode - start_code)
#define IREG(i) REG_INT(i)
#define NREG(i) REG_NUM(i)
#define PR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	446761	447055	
==>GDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 511,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 165 \"src/ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302102	302212	
==>/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302978	303088	
==>/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303854	303964	
==>/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018727	1018902	
==>s",
                              "ic"
                            ],
                  "BODY" => "#line 182 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) { <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9916	10017	
==>MS}. Note that they come
# off the stack last to first, but need to be first to last in ${PARAMS}.
${I <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7430	7531	
==>MS}. Note that they come
# off the stack last to first, but need to be first to last in ${PARAMS}.
${I <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6394	6495	
==>MS}. Note that they come
# off the stack last to first, but need to be first to last in ${PARAMS}.
${I <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943243	943465	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "charset",
                  "FLAGS" => ":base_core",
                  "ARGD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944031	944253	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "charset",
                  "FLAGS" => ":base_core",
                  "ARGD <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	26870	26983	
==>st_results = $self->{Test_Results};
        if( $num > @$test_results ) {
            my $start = @$test_results ? <==
4	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	1758	1856	
==>ranch ENDMAINLOOPNR

DOLINE:
	save S0
	bsr RUNLINE
	restore I0
	branch ENDMAINLOOP
	end

ENDMAINLOO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905358	905657	
==>able->substr_str(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906377	906676	
==>able->substr_str(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907396	907695	
==>able->substr_str(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908416	908715	
==>able->substr_str(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	7678	7776	
==>expr;
	@expr=();
	for my $t (0..@foo-1) {
		my($unary,$argthing)=(0,0);
		my($prev, $this, $next)=( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540468	540569	
==>3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541720	541821	
==>3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542972	543073	
==>3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; } <==
4	/Users/nnunley/parrot/tools/build/c2str.pl	301	389	
==>$string_private_h = 'src/string_private_cstring.h';

my ($result, $do_all, $do_init, $fil <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38498	38781	
==>P_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39362	39645	
==>P_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40209	40492	
==>P_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41056	41339	
==>P_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53272	53387	
==>$lookahead,$line,$code);
				$prod and $prod->additem($item)
				      or  _no_rule($code,$line);
			}
			elsif ($gr <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54084	54199	
==>$lookahead,$line,$code);
				$prod and $prod->additem($item)
				      or  _no_rule($code,$line);
			}
			elsif ($gr <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54503	54618	
==>$lookahead,$line,$code);
				$prod and $prod->additem($item)
				      or  _no_rule($code,$line);
			}
			elsif ($gr <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54981	55096	
==>$lookahead,$line,$code);
				$prod and $prod->additem($item)
				      or  _no_rule($code,$line);
			}
			elsif ($gr <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	409	517	
==>($parser) = @_;
    my $idf = 'fct_' . $parser->YYData->{idx_fct}++;
    return new defn( $idf, 'fct' );
} <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2420	2527	
==>used for the vtable call and _reg_base is clobbered
     * # if 1191 := PARROT_OP_set_args_pc
     * (gdb) d <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	968	1063	
==>op('alternate' => [ map { $self->convert($_, $ctx) } @{ $tree->branches } ]);
}

sub convert_rx_ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	165	247	
==>d: /parrot/languages/jako/lib/Jako/Construct/Label.pm 19606 2006-05-30T15:08:05.048 <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77635	77740	
==>text = $tracecontext;
			$tracecontext = qq{"$tracecontext"};
		}
		else
		{
			$tracecontext = qq{<NO TEX <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293401	293492	
==>"BODY" => "#line 945 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294277	294368	
==>"BODY" => "#line 945 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295153	295244	
==>"BODY" => "#line 945 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556106	556465	
==>_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 638,
                  "ARGS" => [
                              "p",
                              "p", <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3637	3744	
==>ck is not a module!")
        unless $self->block->kind eq 'module';

      my %module_props = $self->block- <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6301	6408	
==>ck is not a module!")
        unless $self->block->kind eq 'module';

      my %module_props = $self->block- <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	3455	3551	
==>t "Processing $gcov_file ($source_file)\n";

        foreach (split "\n", $generated_files{$gcov_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072517	1072621	
==>= {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we used abs <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074702	1074806	
==>= {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we used abs <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076887	1076991	
==>= {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we used abs <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079073	1079177	
==>= {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we used abs <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22534	22636	
==>temp_0,$temp_1]);
  $self->_add_inst(''           ,'eq'    ,[$temp_0,1,"DONE_$label"]);
  $self->_add_i <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2933	3033	
==>dress)>

Returns the C code for C<restart ADDRESS($address)>.

=cut

sub restart_address
{
    my ($s <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3802	3902	
==>dress)>

Returns the C code for C<restart ADDRESS($address)>.

=cut

sub restart_address
{
    my ($s <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3532	3632	
==>dress)>

Returns the C code for C<restart ADDRESS($address)>.

=cut

sub restart_address
{
    my ($s <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5649	5754	
==>ebug & 0x2
#DBG>	and	print STDERR "In state $stateno:\n";
#DBG>		$debug & 0x08
#DBG>	and	print STDERR " <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	11455	11560	
==>lsif( $token->is_end and $token->tagname eq 'head1' ) {
        DEBUG and print "  Found end of head1.  Co <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5378	5480	
==>ebug & 0x2
#DBG>	and	print STDERR "In state $stateno:\n";
#DBG>		$debug & 0x08
#DBG>	and	print STDERR " <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38215	38317	
==>} .'})
							if defined $::RD_TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trac <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	14305	14453	
==>my $n = scalar( @{$vars} );
            while ( $n-- ) {
                $result = new_tmp( $parser, 'pmc' );
                push @{ $expr->[1] } <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29247	29394	
==>6,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86
		}, <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41353	41500	
==>6,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86
		}, <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44499	44646	
==>6,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86
		}, <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1946	2059	
==>get . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/include' . $PATHQUOTE . " " .
        "-I" . $PATHQ <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2242	2355	
==>get . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/include' . $PATHQUOTE . " " .
        "-I" . $PATHQ <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2037	2150	
==>get . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/include' . $PATHQUOTE . " " .
        "-I" . $PATHQ <==
4	/Users/nnunley/parrot/tools/build/ops2c.pl	9484	9576	
==>$num_ops;

/*
** Op Function Table:
*/

static op_func${suffix}_t ${op_func}\[$num_entries] = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080340	1080461	
==>,
                  "BODY" => "#line 145 \"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vta <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081405	1081526	
==>,
                  "BODY" => "#line 145 \"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vta <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082470	1082591	
==>,
                  "BODY" => "#line 145 \"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vta <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083536	1083657	
==>,
                  "BODY" => "#line 145 \"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vta <==
4	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	4063	4179	
==>it("  .local pmc $help");
        $code .= emit("  .get_from_HLL($help, '_tcl', '$help')");
    }
    
    return $co <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	507	614	
==>t end of input string
# O (advance, n) : advance input <n> chars
# O (fork, R)
# O (reverse_fork, R)
# O (ma <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934032	934121	
==>=> "#line 435 \"src/ops/string.ops\"\n  {{\@1}} = string_downcase(interpreter, {{\@2}});\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934807	934896	
==>=> "#line 435 \"src/ops/string.ops\"\n  {{\@1}} = string_downcase(interpreter, {{\@2}});\n <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	20676	20770	
==>nted.

=item B<no_ending>

    $Test->no_ending($no_ending);

Normally, Test::Builder does some <==
4	/Users/nnunley/parrot/config/init/hints.pm	686	809	
==>ints::" . lc($^O);

    print "[ $hints " if $verbose;

    eval "use $hints";
    die $@ if $@;

    # call the runstep met <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	1902	1988	
==>inline -Wpointer-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wno- <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1267	1353	
==>inline -Wpointer-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wno- <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1271	1357	
==>inline -Wpointer-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wno- <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	2336	2445	
==>ed $name) {
      $self->SYNTAX_ERROR("No loop '%s' in loop control.", $name);
    } else {
      $self->SYNTA <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	26591	26724	
==>gether.
sub rewrite_seq {
    my $self = shift;
    my $op = shift;
    my $fallback = pop;

    my @ops;
    foreach (@_) {
        m <==
4	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	2477	2575	
==>r in the lime juice, and optionally one or two teaspoons of tahini.
You can let it simmer longer, d <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1940	2036	
==>rmal_arg_name) = @{$formal_args[$i]};
    my $actual_arg_type;

    if (UNIVERSAL::isa($args[$i], <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1640	1736	
==>rmal_arg_name) = @{$formal_args[$i]};
    my $actual_arg_type;

    if (UNIVERSAL::isa($args[$i], <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344356	344450	
==>}} = PIO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* string_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345598	345692	
==>}} = PIO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* string_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346840	346934	
==>}} = PIO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* string_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348083	348177	
==>}} = PIO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* string_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553268	553563	
==>ethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554664	554959	
==>ethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556061	556356	
==>ethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	3444	3535	
==>->{'line_count'}, $self) if $cut_handler;
  
);

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579636	579748	
==>r, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}};\n",
                  "L <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580941	581053	
==>r, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}};\n",
                  "L <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582246	582358	
==>r, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}};\n",
                  "L <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583552	583664	
==>r, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}};\n",
                  "L <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8006	8107	
==>dentifier name!"  unless defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8653	8754	
==>dentifier name!"  unless defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9321	9422	
==>dentifier name!"  unless defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9990	10091	
==>dentifier name!"  unless defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	29027	29139	
==>N discipline
      if($para_type =~ m/^=head\d$/s
         and ! $self->{'accept_heads_anywhere'}
         and @$ <==
4	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3412	3519	
==>Which is harder.
        $body =~ s/^(\s*)([^\n]+)\s*\Z/$1puts [$2]/m;

        $tests{$name} = [$expl, $bod <==
4	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4819	4926	
==>Which is harder.
        $body =~ s/^(\s*)([^\n]+)\s*\Z/$1puts [$2]/m;

        $tests{$name} = [$expl, $bod <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	13318	13422	
==>ill set source_dead to true
    }
    $self->parse_lines(@lines);
  }
  delete($self->{'source_fh'}); # s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522223	522355	
==>],
                  "BODY" => "#line 744 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523078	523210	
==>],
                  "BODY" => "#line 744 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523933	524065	
==>],
                  "BODY" => "#line 744 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23876	23984	
==>($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;
		') . ($self->{"lookahead"} ? '$_sav <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656470	656724	
==>efined_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657394	657648	
==>efined_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20341	20450	
==>. ']<<},
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD <==
4	/Users/nnunley/parrot/tools/build/ops2pm.pl	600	697	
==>s.

=item C<--no-lines>

Do not generate C<#line> directives in the generated C code.

=item C<--r <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	12162	12264	
==>asic structure  6, Hello and PI
type newtype
	foo as integer
	bar as string
	narf as double
end type
di <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	257	348	
==>cumentation pages the Parrot
house-style.

This just provides C<header()> and C<footer()> cl <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1035	1126	
==>content, and then an end-token with the tagname of "head1".

=item $token->tagname(I<somestr <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1463	1554	
==>content, and then an end-token with the tagname of "head1".

=item $token->tagname(I<somestr <==
4	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	1783	1933	
==>s*$/;

    if (/^\[(\w+)\]/) {
        $section = $1;
    }
        elsif (m/^\s*
            ($type_re)\s+
            ($ident_re)\s*
        \(($argl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50115	50206	
==>ps/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_PROFILE_FLAG); }\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50908	50999	
==>ps/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_PROFILE_FLAG); }\ <==
4	/Users/nnunley/parrot/config/auto/cgoto.pm	1447	1530	
==>DIR)/ops2c.pl lib/Parrot/OpsFile.pm lib/Parrot/Op.pm lib/Parrot/OpTrans/CGoto.pm lib <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	6291	6437	
==>e {
    my $ago = (-M shift);

    if (defined $ago) {
        return $NOW - $ago;
    } else {
        return;
    }
}

sub needs_build {
    my ( <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4711	4857	
==>e {
    my $ago = (-M shift);

    if (defined $ago) {
        return $NOW - $ago;
    } else {
        return;
    }
}

sub needs_build {
    my ( <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	6502	6648	
==>e {
    my $ago = (-M shift);

    if (defined $ago) {
        return $NOW - $ago;
    } else {
        return;
    }
}

sub needs_build {
    my ( <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	31007	31123	
==>cial needs doing for 'text'
          } elsif($item_type eq 'number' or $item_type eq 'bullet') {
            die "Un <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050305	1050621	
==>nterpreter, {{\@2}}, {{\@3}}, next);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051339	1051655	
==>nterpreter, {{\@2}}, {{\@3}}, next);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052373	1052689	
==>nterpreter, {{\@2}}, {{\@3}}, next);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053408	1053724	
==>nterpreter, {{\@2}}, {{\@3}}, next);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3184	3282	
==>e have anything on the lazy moves stack?
${ITEMP0} = elements lazy_moves
if ${ITEMP0} > 0 goto PRE_ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4942	5040	
==>e have anything on the lazy moves stack?
${ITEMP0} = elements lazy_moves
if ${ITEMP0} > 0 goto PRE_ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7869	7967	
==>e have anything on the lazy moves stack?
${ITEMP0} = elements lazy_moves
if ${ITEMP0} > 0 goto PRE_ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11565	11663	
==>e have anything on the lazy moves stack?
${ITEMP0} = elements lazy_moves
if ${ITEMP0} > 0 goto PRE_ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	346	464	
==>arp;

use Jako::Compiler;

use base qw(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my $self     = shift <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	346	460	
==>arp;

use Jako::Compiler;

use base qw(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my $self = shift <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	346	460	
==>arp;

use Jako::Compiler;

use base qw(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my $self = shift <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	367	480	
==>arp;
use Jako::Compiler;

use base qw(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my $self = shift <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	281838	282260	
==>> [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 328,
                  "ARGS" => [
                              "i",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 9 <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9858	9959	
==>RIC}:

# Loop over each parameter and put them into ${PARAMS}. Note that they come
# off the stack las <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7372	7473	
==>RIC}:

# Loop over each parameter and put them into ${PARAMS}. Note that they come
# off the stack las <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6336	6437	
==>RIC}:

# Loop over each parameter and put them into ${PARAMS}. Note that they come
# off the stack las <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1518	1635	
==>block;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  m <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1476	1593	
==>block;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  m <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1398	1515	
==>block;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  m <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8586	8691	
==>ame2character{'amp' }   = '&';
  $Name2character{'apos'}   = "'";
  $Name2character{'sol' }   = '/';
  $Na <==
4	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	873	1107	
==>in32.pod                                [devel]doc
    RESPONSIBLE_PARTIES                             [main]doc
    TODO                                            [main]doc
    parrot-config                                   [main]bi <==
4	/Users/nnunley/parrot/config/auto/cgoto.pm	519	621	
==>niparrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot' <==
4	/Users/nnunley/parrot/config/auto/headers.pm	454	556	
==>niparrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot' <==
4	/Users/nnunley/parrot/config/gen/cpu.pm	517	619	
==>niparrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot' <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	6395	6512	
==>return;
    }
}

sub needs_build {
    my ($target, @sources) = @_;

    my $target_mod = modtime($target)
      or re <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4815	4932	
==>return;
    }
}

sub needs_build {
    my ($target, @sources) = @_;

    my $target_mod = modtime($target)
      or re <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	6606	6723	
==>return;
    }
}

sub needs_build {
    my ($target, @sources) = @_;

    my $target_mod = modtime($target)
      or re <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	617804	617898	
==>ust do a dynamic lookup\n\t */\n    }\n    parrot_pic_find_infix_v_pp(interpreter, left, right, <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3020	3136	
==>G(%ld)",
    'n'  => "NREG(%ld)",
    'p'  => "PREG(%ld)",
    's'  => "SREG(%ld)",
    'k'  => "PREG(%ld)",
    'ki' <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2840	2956	
==>G(%ld)",
    'n'  => "NREG(%ld)",
    'p'  => "PREG(%ld)",
    's'  => "SREG(%ld)",
    'k'  => "PREG(%ld)",
    'ki' <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1938	2048	
==>G(%ld)",
  'n'   => "NREG(%ld)",
  'p'   => "PREG(%ld)",
  's'   => "SREG(%ld)",
  'k'   => "PREG(%ld)",
  'ki' <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	746	849	
==>ions->get('verbose');

    # undef means we don't have bison... default to not having bison
    $conf->d <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	25545	25655	
==>ecause known.\n";
      $self->whine(
        $para->[1]{'start_line'},
        "You can't extend an establishe <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	5347	5451	
==>t_rellocation(jit_info->objfile, NULL, RTYPE_DATA, "const_table", 0);/g;
                $asm =~ s/jit_em <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29307	29400	
==>) = @_;
	
my $code = ''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying terminal: [' <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31404	31497	
==>) = @_;
	
my $code = ''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying terminal: [' <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9662	9774	
==>here for convenience.

=cut

sub process_text_token
{
    my $self = shift;
    my $token = shift;
    my $text = <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1265	1374	
==>{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift- <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1256	1365	
==>{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift- <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1145	1254	
==>{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift- <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31300	31396	
==>s_vtable($meth);
}

=item C<body($method, $line, $out_name)>

Returns the C code for the method b <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35931	36027	
==>s_vtable($meth);
}

=item C<body($method, $line, $out_name)>

Returns the C code for the method b <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39920	40016	
==>s_vtable($meth);
}

=item C<body($method, $line, $out_name)>

Returns the C code for the method b <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	16911	17005	
==>ial\E [^\\$initial]* (\\.[^\\$initial]*)* \Q$initial\E /gcsx)
		{
			_failmsg qq{Did not find c <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	32499	32633	
==>('CallOp') )
    {
        push @opcodes1, new AssignOp( $parser,
            'result' => $state,
            'arg1'   => $nil->[0] <==
4	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	411	520	
==>utput, $desc) = @_;
  
    my $count = $self->{builder}->current_test + 1;

    my $lang_f    = Parrot::Test:: <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	449	558	
==>utput, $desc) = @_;
  
    my $count = $self->{builder}->current_test + 1;

    my $lang_f    = Parrot::Test:: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56326	56416	
==>BODY" => "#line 869 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo_p(interpreter, {{\@2}});\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57088	57178	
==>BODY" => "#line 869 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo_p(interpreter, {{\@2}});\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554275	554529	
==>)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555672	555926	
==>)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556909	557163	
==>)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1872	1965	
==>ributes ) if $parser->can('start_head1');
  $parser->handle_text( "Hi there" )   if $parser->c <==
4	/Users/nnunley/parrot/config/auto/signal.pm	1146	1260	
==>cc_build(); };
    unless ($@ || cc_run() !~ /ok/) {
        $conf->data->set(has_sigaction => 'define');
        p <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	841	930	
==>AL::isa($ident, qw(Jako::Construct::Expression::Value::Identifier));

  my $self = bless { <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	805	894	
==>AL::isa($ident, qw(Jako::Construct::Expression::Value::Identifier));

  my $self = bless { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	153931	154017	
==>rc/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_NUMEQ)) {\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127383	127681	
==>e",
                  "CODE" => 157,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 271 \"src/ops/bit.ops\"\n <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2769	2888	
==>urn
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUO <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3078	3197	
==>urn
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUO <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2873	2992	
==>urn
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUO <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2369	2480	
==>ine %d of file '%s'.",
      $self->name, $sym->line, $sym->file);
  }

  #
  # Now that we've decided to actual <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2116	2227	
==>ine %d of file '%s'.",
      $self->name, $sym->line, $sym->file);
  }

  #
  # Now that we've decided to actual <==
4	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	755	863	
==>c class
    .param pmc meth
    .local string class_name, method_name, body

    # Get class and method names <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	905	993	
==>ection::Libs;
use Parrot::Docs::Section::Tools;
use Parrot::Docs::Section::BigNum;
use Pa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151146	151436	
==>2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152124	152414	
==>2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172374	172664	
==>2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173352	173642	
==>2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20562	20672	
==>return;
}

sub _op_geq {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $s <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31272	31368	
==>) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $line, $out_name)>

Returns <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35903	35999	
==>) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $line, $out_name)>

Returns <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39892	39988	
==>) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $line, $out_name)>

Returns <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575803	576160	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subclass",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576814	577171	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subclass",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595563	595920	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subclass",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596455	596812	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subclass",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505483	505752	
==>PE" => "inline",
                  "CODE" => 581,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 631 \"src/ops/math. <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462737	462836	
==>DY" => "#line 322 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_e <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463734	463833	
==>DY" => "#line 322 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_e <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464731	464830	
==>DY" => "#line 322 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_e <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92658	92946	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "AR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95109	95397	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "AR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96002	96290	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "AR <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	28908	28996	
==>e{$seg}->{code}},<<PUSHARR;
	.param PerlHash array_$englishname
	find_global \$P1, "BASIC <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/EditorPlugins.pm	243	334	
==>SYNOPSIS

	use Parrot::Docs::Section::EditorPlugins;

=head1 DESCRIPTION

A documentation se <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	658	742	
==>ent is not!" unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Ident <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	737	821	
==>ent is not!" unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Ident <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	546	630	
==>ent is not!" unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Ident <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	534478	534742	
==>=> 0,
                  "NAME" => "log2",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function" <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2195	2326	
==>urces) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various libraries in the link line.
        $l <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2487	2618	
==>urces) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various libraries in the link line.
        $l <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2282	2413	
==>urces) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various libraries in the link line.
        $l <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149876	150125	
==>82,
                  "ARGS" => [
                              "p",
                              "nc",
                              "ic"
                            ],
                  "BODY" => "#line 105 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtab <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3784	3899	
==>morph {
  my ($self, $to, $from) = @_;

  if ($to =~ /P/) {
    if ($from =~ /P/) {
      $self->_add_inst ('', 'clo <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	620793	620896	
==>8 \"src/ops/pic.ops\"\n    Parrot_MIC *mic;\n    Parrot_PIC_lru *lru;\n    PMC *sig, *ccont;\n    opcode <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	959	1046	
==>uct->isa("Jako::Construct::Block::Module")
      or $construct->isa("Jako::Construct::De <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1222	1330	
==>return $self;
}

sub dest  { return shift->{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { return <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1213	1321	
==>return $self;
}

sub dest  { return shift->{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { return <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1102	1210	
==>return $self;
}

sub dest  { return shift->{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { return <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19834	19932	
==>ee-building action in rule
					   \"$rule->{name}\"")
		and
		Parse::RecDescent::_hint("The direct <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084698	1084787	
==>Y" => "#line 163 \"src/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085751	1085840	
==>Y" => "#line 163 \"src/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086804	1086893	
==>Y" => "#line 163 \"src/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087858	1087947	
==>Y" => "#line 163 \"src/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{ <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	50510	50671	
==>ext =~ s/.*?while\s*\{/{/)
                {
                        $loop = "while " . extract_codeblock($text);
                }

        # Remove the first ro <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1591	1690	
==>= $self->op;
  my $right = $self->right;

  my $dest_sym = $block->find_symbol($dest->value);
  $sel <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1549	1648	
==>= $self->op;
  my $right = $self->right;

  my $dest_sym = $block->find_symbol($dest->value);
  $sel <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1471	1570	
==>= $self->op;
  my $right = $self->right;

  my $dest_sym = $block->find_symbol($dest->value);
  $sel <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	9465	9580	
==>0\x7B-\x7F]/
            # Characters under 0x80 that aren't legal in an XML Name.
        or $new_code =~ m/^[-\.0- <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	10729	10844	
==>0\x7B-\x7F]/
            # Characters under 0x80 that aren't legal in an XML Name.
        or $new_code =~ m/^[-\.0- <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10936	11034	
==>=~ s/([^\x00-\xFF])/join '', map sprintf('%%%02X',$_), unpack 'C*', $1/eg;
        $it =~ s/([^\._a <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4287	4383	
==>=~ s/([^\x00-\xFF])/join '', map sprintf('%%%02X',$_), unpack 'C*', $1/eg;
      $it =~ s/([^\._a <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6545	6645	
==>type_state[${ITEMP0}] = ${STYPES}
    prop_stack_depth[${ITEMP0}] = stack_depth
    goto POST_BRANCH_ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4483	4583	
==>type_state[${ITEMP0}] = ${STYPES}
    prop_stack_depth[${ITEMP0}] = stack_depth
    goto POST_BRANCH_ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6226	6318	
==>type_state[${ITEMP0}] = ${STYPES}
prop_stack_depth[${ITEMP0}] = stack_depth
goto POST_BRANCH_ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4164	4256	
==>type_state[${ITEMP0}] = ${STYPES}
prop_stack_depth[${ITEMP0}] = stack_depth
goto POST_BRANCH_ <==
4	/Users/nnunley/parrot/config/auto/format.pm	548	654	
==>ivformat, $nvformat, $nvsize);
    my ($iv,       $nv,       $floatsize, $doublesize, $ldsize) = $conf->dat <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	908	1005	
==>LOAD_FLAGS = qq[-bundle -undefined suppress];
our $PERL = q[perl];
our $LOAD_EXT = qq[.bundle];
ou <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	897	994	
==>LOAD_FLAGS = qq[-bundle -undefined suppress];
our $PERL = q[perl];
our $LOAD_EXT = qq[.bundle];
ou <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	901	998	
==>LOAD_FLAGS = qq[-bundle -undefined suppress];
our $PERL = q[perl];
our $LOAD_EXT = qq[.bundle];
ou <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24656	24811	
==>voke(interpreter, p, dest);\n  {{=dest}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2629	2723	
==>lf->left->sax($handler);
    $self->right->sax($handler);
    $handler->end_element({ Name => ' <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2506	2600	
==>lf->left->sax($handler);
    $self->right->sax($handler);
    $handler->end_element({ Name => ' <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1737	1827	
==>lf->left->sax($handler);
  $self->right->sax($handler);
  $handler->end_element({ Name => ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950582	950690	
==>= Parrot_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951542	951650	
==>= Parrot_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952502	952610	
==>= Parrot_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953463	953571	
==>= Parrot_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327132	327384	
==>r, {{\@1}}, (INTVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327934	328186	
==>r, {{\@1}}, (INTVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9004	9109	
==>p 0.40
	for j = 1 to w*2
		a$(j)=" "
	next j
	a$(w+w*sin(i)+1)="*"
	a$(w+w*cos(i)+1)="+"
	for j = 1 to w*2 <==
4	/Users/nnunley/parrot/config/auto/funcptr.pm	977	1073	
==>to support this behavior with the
flags you have specified.  You must adjust your settings in ord <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72949	73051	
==>\"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74551	74653	
==>\"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76153	76255	
==>\"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77756	77858	
==>\"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780728	780984	
==>g_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781637	781893	
==>g_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782546	782802	
==>g_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783456	783712	
==>g_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	16818	16937	
==>test, $name);

    unless( $ok ) {
        if( $type =~ /^(eq|==)$/ ) {
            $self->_is_diag($got, $type, $expect <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7184	7292	
==>f ($1 ne $indent) {
                error($file, $line, "Improper indenting for \"$_\"\n(should be \"#$indent <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7491	7599	
==>f ($1 ne $indent) {
                error($file, $line, "Improper indenting for \"$_\"\n(should be \"#$indent <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7849	7957	
==>f ($1 ne $indent) {
                error($file, $line, "Improper indenting for \"$_\"\n(should be \"#$indent <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7245	7363	
==>+$self->{'pod_para_count'};
        
        $self->_ponder_paragraph_buffer();
         # by now it's safe to consider <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7863	7976	
==>+$self->{'pod_para_count'};
          $self->_ponder_paragraph_buffer();
           # by now it's safe to consider <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	8220	8329	
==>+$self->{'pod_para_count'};
        $self->_ponder_paragraph_buffer();
         # by now it's safe to consider <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	5899	6004	
==>+$self->{'pod_para_count'};
      $self->_ponder_paragraph_buffer();
       # by now it's safe to consider <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	9596	9710	
==>?\d+[lL]$/) {	# bigint
	$t = 'B';
    }
    elsif ($c =~ /^'.*'$/) {	# string consts are single quoted by dis
	$t = <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3496	3605	
==>s an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) = @_;

    #print STD <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3295	3404	
==>s an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) = @_;

    #print STD <==
4	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	2905	3001	
==>creating table: '$table{$name}' (charset: $name)\n";
    setlocale(LC_CTYPE, $name);
    create_t <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1368	1488	
==>RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $block = $self->block;
  my $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1716	1836	
==>RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $block = $self->block;
  my $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1852	1972	
==>RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $block = $self->block;
  my $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1495	1615	
==>RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $block = $self->block;
  my $ <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6409	6508	
==>ments are exchanged.
   Exchange=FALSE
   ' Compare the array elements by pairs. When two are exchan <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16062	16161	
==>ments are exchanged.
   Exchange=FALSE
   ' Compare the array elements by pairs. When two are exchan <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	26031	26121	
==>46 \"src/ops/core.ops\"\n  PMC * const p = CONTEXT(interpreter->ctx)->current_cont;\n  opco <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	9	98	
==>ht (C) 2004, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Docs/Section/Languages.pm 2033 <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	18279	18386	
==>_[1]),
					  q{' . $rule ->{name}. '})
						if defined $::RD_TRACE;').'
		my $thisprod = $thisrule->{"prod <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	375	478	
==>e1, $key2 => $value2);
    $data->add($delimiter, $key1 => $value1, $key2 => $value2);
    my @keys = $d <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	4506	4607	
==>al_link($_, $pmc_libs->{$_}, [ $_ ] ) foreach (@ungrouped_pmcs);
} 
elsif ($mode eq 'copy') {
    # Co <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	4610	4711	
==>al_link($_, $pmc_libs->{$_}, [ $_ ] ) foreach (@ungrouped_pmcs);
} 
elsif ($mode eq 'copy') {
    # Co <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253207	253525	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254069	254387	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254932	255250	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4326	4430	
==>t an instruction to push the value in the
		# load register onto to the stack.
		$pir .= <<'PIR'
${INS} = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477190	477489	
==>den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478086	478385	
==>den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478977	479276	
==>den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479869	480168	
==>den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766611	766844	
==>ster access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767464	767697	
==>ster access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768317	768550	
==>ster access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769171	769404	
==>ster access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	38448	38643	
==>_bang,

###
### Control features
###

  'procedure?'                      => \&_op_procedure_p,
  'apply'                           => \&_op_apply,
  'map'                             => \&_op_map <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540483	540583	
==>3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( ! <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541735	541835	
==>3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( ! <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542987	543087	
==>3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( ! <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	12049	12182	
==>t('.past', $test_no);
            }
            elsif ( $func =~ m/^pbc_output_/ ) {
                $code_f = per_test('.pbc', $test_ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11396	11490	
==>D_${CURIC}

# It's a return. See if we have a return value.
PRE_CALL_RETURN_${CURIC}:
${ITEMP0} <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8582	8676	
==>D_${CURIC}

# It's a return. See if we have a return value.
PRE_CALL_RETURN_${CURIC}:
${ITEMP0} <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7154	7248	
==>D_${CURIC}

# It's a return. See if we have a return value.
PRE_CALL_RETURN_${CURIC}:
${ITEMP0} <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	12895	13038	
==>n",
            "\n  Dropping back to seeking-head1-content mode...\n";
        }
      }
    }
    
    elsif($state == 2) {
      # seeking st <==
4	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	3468	3603	
==>g (@args) {
        next unless $arg->{type};
        
        $types{ $arg->{type} } = 1;
    }
    
    # helper conversion subroutine <==
4	/Users/nnunley/parrot/config/auto/sizes.pm	1738	1854	
==>on of warnings.
END
    }

    # set fixed sized types
    if ($results{shortsize} == 2) {
        $conf->data->set(i <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13186	13299	
==>>_generate ($_);
  }
  return $temp;
}

sub _op_do {
}

sub _op_delay {
}

#---- Section 6 ----

sub _op_not {
  m <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	13636	13774	
==>te 16
		DEFAULT => -13,
		GOTOS => {
			'@2-1' => 60
		}
	},
	{#State 17
		ACTIONS => {
			'NAME' => 62,
			'FUNCTION' => 61
		}, <==
4	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	2427	2583	
==>IM.pir                 [devel]doc
    runtime/parrot/include/README                   [devel]doc
    src/call_list.txt                               [devel]d <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496946	497088	
==>c/ops/math.ops\"\n  {{\@1}} = floatval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497816	497958	
==>c/ops/math.ops\"\n  {{\@1}} = floatval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498686	498828	
==>c/ops/math.ops\"\n  {{\@1}} = floatval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1900	2073	
==>src/ops/core.ops\"\n  {{=0}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	37131	37220	
==>it under the same terms as Perl itself.

See F<http://www.perl.com/perl/misc/Artistic.html <==
4	/Users/nnunley/parrot/lib/Test/More.pm	37540	37629	
==>it under the same terms as Perl itself.

See F<http://www.perl.com/perl/misc/Artistic.html <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	6500	6589	
==>it under the same terms as Perl itself.

See F<http://www.perl.com/perl/misc/Artistic.html <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	9791	9923	
==>esult->{type}   = 'todo';
    }
    else {
        $result->{reason} = '';
        $result->{type}   = '';
    }

    $self->{Test_Re <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	481	577	
==>p, $right) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Ja <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	472	568	
==>p, $right) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Ja <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	361	457	
==>p, $right) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Ja <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465146	465355	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465767	465976	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	466388	466597	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
4	/Users/nnunley/parrot/config/inter/pmc.pm	3258	3365	
==>t_dumps = '';
        $parent_dumps .= "src/pmc/$_.dump " foreach reverse((pmc_parents($pmc)));
        my $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193524	193612	
==>compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) < <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194503	194591	
==>compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) < <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210255	210343	
==>compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) < <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211235	211323	
==>compare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) < <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	14253	14346	
==>tated($op, "seq"), map { $_->reftree() } @{ $op->{args} } ];
}

sub Regex::Ops::Tree::alternat <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264342	264480	
==>,
                  "BODY" => "#line 806 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265196	265334	
==>,
                  "BODY" => "#line 806 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266050	266188	
==>,
                  "BODY" => "#line 806 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266905	267043	
==>,
                  "BODY" => "#line 806 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	566	662	
==>nfess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Ident i <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	454	550	
==>nfess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Ident i <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	801	897	
==>nfess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Ident i <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	829	925	
==>nfess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Ident i <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	4208	4366	
==>=> 'define',
             'i_fp' => undef,
             'i_fp_class' => undef,
             'i_gdbm' => undef,
             'i_grp' => 'define',
             ' <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9443	9541	
==>';
# See if we've got a return or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CUR <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5513	5611	
==>';
# See if we've got a return or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CUR <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6958	7055	
==>'
# See if we've got a return or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CUR <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	992	1101	
==>s the side effect of setting
    # content_seen.
    $self->get_short_title();
    
    return unless $self->c <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	1754	1855	
==>r current stack to register mapper\n";
}
sub post_store {
	die "post_store not implemented for current <==
4	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	83	183	
==>ple ();
use vars qw( $ATTR_PAD @ISA $VERSION $SORT_ATTRS);
$VERSION = '2.02';
BEGIN {
  @ISA = ('Pod: <==
4	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	84	184	
==>ple ();
use vars qw( $ATTR_PAD @ISA $VERSION $SORT_ATTRS);
$VERSION = '2.02';
BEGIN {
  @ISA = ('Pod: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11351	11443	
==>rent_block;

      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $t <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11898	11990	
==>rent_block;

      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $t <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12441	12533	
==>rent_block;

      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $t <==
4	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	1434	1524	
==>n Parrot::IO::Directory->new($self->parent_path);
}

=item C<read()>

This reads the conten <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54749	54875	
==>("%x", ord($1)).'}'>eg;
      }
      qq{"$_"};
    }
  } @stuff;
  # $out =~ s/\n */ /g if length($out) < 75;
  return $out;
} <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41819	41939	
==>be
						  . ']>>},
						  Parse::RecDescent::_tracefirst($text),
						  q{' . $rule->{"name"} .'})
							if defined $ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38128	38240	
==>be . ']>>},
						  Parse::RecDescent::_tracefirst($text),
						  q{' . $rule->{"name"} .'})
							if defined $ <==
4	/Users/nnunley/parrot/config/gen/icu.pm	3734	3830	
==>ort
   --icu-config=(file)  Location of icu-config
   --icuheaders=(path)  Location of ICU header <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2727	2864	
==>p { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", ma <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3036	3173	
==>p { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", ma <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2831	2968	
==>p { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", ma <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	2313	2416	
==>| croak("Can't compile bad grammar")
				if $grammar;

		foreach ( keys %{$self->{rules}} )
			{ $self-> <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724033	724273	
==>,
                  "CODE" => 811,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 161 \"src/ops/python.ops\"\n  PMC * const <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641720	642042	
==>MP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642607	642929	
==>MP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643495	643817	
==>MP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644387	644709	
==>MP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
4	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	419	524	
==>ew

Yet another constructor.

=cut

sub new 
{
  return bless {};
}


=head2 gen_output

Called in output_ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9977	10071	
==>eed to be first to last in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STY <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7491	7585	
==>eed to be first to last in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STY <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6455	6549	
==>eed to be first to last in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STY <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404760	405064	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":bas <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405672	405976	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":bas <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406584	406888	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":bas <==
4	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	1220	1318	
==>~ s/NOW/$now/;

print join( "\n", $header, @{$skip}, '' );

=head1 AUTHOR

Bernhard Schmalhofer - < <==
4	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	1292	1478	
==>el]doc
    docs/configuration.pod                          [devel]doc
    docs/debug.pod                                  [devel]doc
    docs/dev/dod.pod                                [d <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111251	111339	
==>"#line 187 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_or(interpreter, {{\@2}}, {{\@3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112143	112231	
==>"#line 187 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_or(interpreter, {{\@2}}, {{\@3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113035	113123	
==>"#line 187 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_or(interpreter, {{\@2}}, {{\@3 <==
4	/Users/nnunley/parrot/tools/build/pbc2c.pl	1055	1166	
==>gerprint!";
	return;
    }

=for COMMENT
    die "Cannot compile (differing opcode table)!"
        if $pf->cons <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4138	4232	
==>(so we can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign register name.
${STE <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2554	2648	
==>(so we can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign register name.
${STE <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1864	1958	
==>(so we can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign register name.
${STE <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	362	482	
==>ko::Construct::Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  return bless {
    TOKEN    => $token,
    C <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	359	479	
==>ko::Construct::Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  return bless {
    TOKEN    => $token,
    C <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	350	470	
==>ko::Construct::Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  return bless {
    TOKEN    => $token,
    C <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	359	479	
==>ko::Construct::Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  return bless {
    TOKEN    => $token,
    C <==
4	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	75	164	
==>chmarks/stress2.pl 19601 2006-05-30T13:32:26.641316Z coke  $

=head1 NAME

examples/benchm <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11063	11151	
==>RIC}
if "${CURIC}" == "73" goto pre_call_HAS_RETURN_${CURIC}
goto pre_call_NO_RETURN_${CU <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8249	8337	
==>RIC}
if "${CURIC}" == "73" goto pre_call_HAS_RETURN_${CURIC}
goto pre_call_NO_RETURN_${CU <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5911	5999	
==>RIC}
if "${CURIC}" == "73" goto pre_call_HAS_RETURN_${CURIC}
goto pre_call_NO_RETURN_${CU <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	6287	6428	
==>dtime {
    my $ago = (-M shift);

    if (defined $ago) {
        return $NOW - $ago;
    } else {
        return;
    }
}

sub needs_build { <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4707	4848	
==>dtime {
    my $ago = (-M shift);

    if (defined $ago) {
        return $NOW - $ago;
    } else {
        return;
    }
}

sub needs_build { <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	6498	6639	
==>dtime {
    my $ago = (-M shift);

    if (defined $ago) {
        return $NOW - $ago;
    } else {
        return;
    }
}

sub needs_build { <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30136	30243	
==>er_type eq 'block') {
          unless($curr_open->[-1][1]{'~bitched_about'}) {
            $curr_open->[-1] <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59279	59378	
==>$prod = $rule->addprod( new Parse::RecDescent::Production );
			$aftererror = 0;
		}
		elsif ($gramm <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028099	1028196	
==>on(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_ev <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028950	1029047	
==>on(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_ev <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029802	1029899	
==>on(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_ev <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030644	1030741	
==>on(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_ev <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183307	183423	
==>285 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184203	184319	
==>285 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185099	185215	
==>285 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/config/inter/types.pm	168	262	
==>es for Parrot Types

=head1 DESCRIPTION

Asks the user which size integer, floating-point numbe <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5661	5748	
==>ot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::CSwit <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3237	3324	
==>ot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::CSwit <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2965	3052	
==>ot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::CSwit <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	4027	4114	
==>ot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::CSwit <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670235	670611	
==>,
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 750,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#li <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3191	3286	
==>nc' => "CONST(%ld)->u.number",
    'pc' => "CONST(%ld)->u.key",
    'sc' => "CONST(%ld)->u.strin <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2999	3094	
==>nc' => "CONST(%ld)->u.number",
    'pc' => "CONST(%ld)->u.key",
    'sc' => "CONST(%ld)->u.strin <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2101	2195	
==>nc'  => "CONST(%ld)->u.number",
  'pc'  => "CONST(%ld)->u.key",
  'sc'  => "CONST(%ld)->u.strin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640157	640459	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640911	641213	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645235	645537	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646131	646433	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540824	541147	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":ad <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542076	542399	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":ad <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	15612	15751	
==>> {
			"?" => 23,
			'CHAR' => 4,
			"<" => 22,
			"+" => 24,
			'CODE' => 6,
			"(" => 10,
			"|" => 26,
			"*" => 27,
			"[" => 14,
			")" <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	16929	17068	
==>> {
			"?" => 23,
			'CHAR' => 4,
			"<" => 22,
			"+" => 24,
			'CODE' => 6,
			"(" => 10,
			"|" => 26,
			"*" => 27,
			"[" => 14,
			")" <==
4	/Users/nnunley/parrot/config/init/hints/freebsd.pm	592	704	
==>$osversion = `/usr/sbin/sysctl -n kern.osreldate`;
    }
    chomp $osversion;

    $libs .= ' -pthread';

    $c <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7397	7489	
==>mp);

  $self->_add_inst('', 'set', [$list,$list.'[1]']);
  $self->_add_inst('', 'typeof', [$ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828728	828818	
==>wrong\");\n  if (entry->entry_type != STACK_ENTRY_PMC) {\n    internal_exception(ERROR_BAD_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829796	829886	
==>wrong\");\n  if (entry->entry_type != STACK_ENTRY_PMC) {\n    internal_exception(ERROR_BAD_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607587	607854	
==>tr(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608491	608758	
==>tr(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609398	609665	
==>tr(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610306	610573	
==>tr(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
4	/Users/nnunley/parrot/lib/Test/More.pm	35207	35323	
==>ded.  This is ok:

    use threads;
    use Test::More;

This may cause problems:

    use Test::More
    use threads <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	8967	9083	
==>]sexg;

    /^\{/ or die "bad block open: ", substr($code,0,10), "...";

    while (/ (\{) | (\}) /gx) {
        if($ <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	6903	7018	
==>n("$PMC2C --c $pmc.pmc")
          or die "pmc2c code generation failed ($?)\n";
    }
}

sub compile {
    my ($src <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	7114	7229	
==>n("$PMC2C --c $pmc.pmc")
          or die "pmc2c code generation failed ($?)\n";
    }
}

sub compile {
    my ($src <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16077	16370	
==>( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16849	17142	
==>( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	17623	17916	
==>( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18418	18711	
==>( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404022	404270	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404933	405181	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405845	406093	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406757	407005	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	23729	23851	
==>//////////
      # The virtual end-document signal
      
      if(@$curr_open) { # Deal with things left open
        DEBU <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9891	9991	
==>ost();
		$code .= $prod->code($namespace,$self,$parser);

		$code .= $parser->{deferrable}
				? '		s <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6000	6099	
==>mpty stack type state propogated to it if nothing has been
	# propogated there already.
	$pir .= <<' <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3938	4037	
==>mpty stack type state propogated to it if nothing has been
	# propogated there already.
	$pir .= <<' <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24619	24728	
==>urn = $temp;
    }
  } else {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) { <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26518	26627	
==>urn = $temp;
    }
  } else {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) { <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	1022	1122	
==>ITESPACE
my $MAXREP  = 100_000_000;	# REPETITIONS MATCH AT MOST 100,000,000 TIMES


sub import	# IMPL <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3002	3093	
==>n XML processor (that is, it has
no ignoreable whitespace). But
Pod::Simple::DumpAsXML's out <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	11946	12069	
==>TORE_GLOBAL {
    my ($n, $c, $cmt) = @_;
    my $tos = pop @stack;
    my $p = $tos->[1];
    my $t;
    if ($t=$globals{$c <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	7757	7862	
==>d filehandles; we must not let them get closed.
    open  OLDOUT, ">&STDOUT" or die "Can't save     stdout <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7808	7912	
==>d filehandles; we must not let them get closed.
    open OLDOUT, ">&STDOUT" or die "Can't save     stdout <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24077	24176	
==>{$code{$seg}->{code}}, <<DIMARR;
	# Set aside storage for Array $var
	\$P0 = new .PerlHash
	\$P2 = n <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	12356	12471	
==>/ && do {
        push @{$temps_ref}, "char *t_$temp_num;";
        push @{$extra_preamble_ref},
        "t_$temp_nu <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9937	10037	
==>ome
# off the stack last to first, but need to be first to last in ${PARAMS}.
${ITEMP0} = elements ${ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7451	7551	
==>ome
# off the stack last to first, but need to be first to last in ${PARAMS}.
${ITEMP0} = elements ${ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6415	6515	
==>ome
# off the stack last to first, but need to be first to last in ${PARAMS}.
${ITEMP0} = elements ${ <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31426	31528	
==>mulate
the number of lines, C<$out_name> is the name of the output file we are
generating.

Overrides t <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33039	33141	
==>mulate
the number of lines, C<$out_name> is the name of the output file we are
generating.

Overrides t <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34727	34829	
==>mulate
the number of lines, C<$out_name> is the name of the output file we are
generating.

Overrides t <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40046	40148	
==>mulate
the number of lines, C<$out_name> is the name of the output file we are
generating.

Overrides t <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4608	4732	
==>);
    } elsif (@{ $self->{args} } == 1 && 2 == keys %$self) {
        return $self->{args}->[0];
    } else {
        return <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5745	5869	
==>);
    } elsif (@{ $self->{args} } == 1 && 2 == keys %$self) {
        return $self->{args}->[0];
    } else {
        return <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658292	658399	
==>? 0 : {{\@2}}->vtable->defined_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659211	659318	
==>? 0 : {{\@2}}->vtable->defined_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114822	115065	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115676	115919	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116531	116774	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
4	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	3377	3475	
==>),
        $self->directory_with_relative_path('include/parrot'),
    ;
}

=item C<c_header_file_wi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256404	256555	
==>\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257312	257463	
==>\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258220	258371	
==>\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19145	19245	
==>cument starts out:

  =head1 NAME
  
  Hooboy, stuff B<wow> yeah!

then $parser->get_short_title on t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	282264	282524	
==>\"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283109	283369	
==>\"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283954	284214	
==>\"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	3062	3161	
==>t {
    my $test := compare_func($got, $expected);
    Test::proclaim($test, $desc, $todo, $got, "&c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660075	660163	
==>\"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->exists_keyed <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660997	661085	
==>\"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->exists_keyed <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661917	662004	
==>\"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662833	662920	
==>\"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247600	247861	
==>.ops\"\n  {{\@1}} = {{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	248464	248725	
==>.ops\"\n  {{\@1}} = {{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	249328	249589	
==>.ops\"\n  {{\@1}} = {{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/Configure.pl	3083	3177	
==>efault is C<gc>.

=back

ICU Options

=over

=item C<--icu-config=/path/to/icu-config>

Use the <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	25773	25884	
==>);
	    $ret_string = "$t = ";
	}
	if ($builtins{$name}) {
	    print <<EOC;
	.local NCI the::internal
	the::int <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15510	15611	
==>expr);		# Repair unary -, functions, etc...
		@stream=convert_to_rpn(@expr);	# Get infix into RPN
		($ <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15872	15973	
==>expr);		# Repair unary -, functions, etc...
		@stream=convert_to_rpn(@expr);	# Get infix into RPN
		($ <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	17023	17124	
==>expr);		# Repair unary -, functions, etc...
		@stream=convert_to_rpn(@expr);	# Get infix into RPN
		($ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434900	435258	
==>x",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 499,
                  "ARGS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431857	432189	
==>x",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 49 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432871	433203	
==>x",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 49 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433886	434218	
==>x",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 49 <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2049	2158	
==>goto_pop()>

Transforms the C<goto POP()> macro in an ops file into the relevant C
code.

=cut

sub goto_pop
{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2699	2808	
==>goto_pop()>

Transforms the C<goto POP()> macro in an ops file into the relevant C
code.

=cut

sub goto_pop
{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2422	2531	
==>goto_pop()>

Transforms the C<goto POP()> macro in an ops file into the relevant C
code.

=cut

sub goto_pop
{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2602	2711	
==>goto_pop()>

Transforms the C<goto POP()> macro in an ops file into the relevant C
code.

=cut

sub goto_pop
{ <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	21787	21906	
==>Hash       # Uses S0, I0, N0
FINDIM
		
		foreach(@types) {
			my %val=( INT => 'I0', FLO => 'N0', STRING => 'S0' );
			i <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10990	11078	
==>}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pre_call_HAS_RETURN_${CURIC}
if "${CURIC <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8176	8264	
==>}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pre_call_HAS_RETURN_${CURIC}
if "${CURIC <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5838	5926	
==>}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pre_call_HAS_RETURN_${CURIC}
if "${CURIC <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6238	6336	
==>end\n";
		goto PARSE;
	}
	die "Unknown keyword $syms[CURR]/$type[CURR] source line $sourceline";
	g <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	37138	37230	
==>r the same terms as Perl itself.

See F<http://www.perl.com/perl/misc/Artistic.html>

=cut

1 <==
4	/Users/nnunley/parrot/lib/Test/More.pm	37547	37639	
==>r the same terms as Perl itself.

See F<http://www.perl.com/perl/misc/Artistic.html>

=cut

1 <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	6507	6599	
==>r the same terms as Perl itself.

See F<http://www.perl.com/perl/misc/Artistic.html>

=cut

1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344315	344408	
==>cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  /* s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345557	345650	
==>cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  /* s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346799	346892	
==>cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  /* s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348042	348135	
==>cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  /* s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553190	553312	
==>=> "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethod",
                  "FLAGS" => ":object <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554586	554708	
==>=> "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethod",
                  "FLAGS" => ":object <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555983	556105	
==>=> "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethod",
                  "FLAGS" => ":object <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3976	4073	
==>nd outer segment
EOD
}
if ($debug) {
	print CODE<<FOO;
.sub _DEBUG_INIT
	saveall
	\$P0=new .PerlAr <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	181	278	
==>ated Directory

=head1 SYNOPSIS

    use Parrot::Docs::Directory;

=head1 DESCRIPTION

This C<Parr <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28360	28455	
==>E;').'

			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched terminal<< (r <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30437	30531	
==>E;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched terminal<< (r <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32637	32731	
==>E;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched terminal<< (r <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27350	27460	
==>_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;').'
		$lastsep = "";
		$Pars <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29460	29570	
==>_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;').'
		$lastsep = "";
		$Pars <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31557	31667	
==>_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;').'
		$lastsep = "";
		$Pars <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	2927	3019	
==>t's contents have changed.

The regular expression specified by C<$ignorePattern> is passed t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770035	770299	
==>");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770888	771152	
==>");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771741	772005	
==>");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772595	772859	
==>");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	32811	32929	
==>$c, $cmt) = @_;
    my $obj = pop @stack;  # object
    my $val = promote(pop @stack);
    if ($vtables{$c}) {
	$c = $v <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462746	462842	
==>line 322 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_excepti <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463743	463839	
==>line 322 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_excepti <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464740	464836	
==>line 322 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_excepti <==
4	/Users/nnunley/parrot/tools/build/pbc2c.pl	541	632	
==>stTable;
use Parrot::OpsFile;
use Parrot::OpTrans::Compiled;
use Parrot::OpLib::core;
use Pa <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11796	11884	
==>YPES}[${ITEMP1}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = conc <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8859	8947	
==>YPES}[${ITEMP1}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = conc <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7431	7519	
==>YPES}[${ITEMP1}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = conc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579294	579396	
==>ss = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_I <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580599	580701	
==>ss = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_I <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581904	582006	
==>ss = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_I <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583210	583312	
==>ss = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_I <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	14968	15069	
==>gs = eh.get_flags()
    if eh_flags != 0 goto NOT_TYPED_EH_START
    if handler_offset != pc goto NOT_ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1904	1998	
==>')) {
    my $left_sym = $block->find_symbol($left->value);
    $self->SYNTAX_ERROR("Expression <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1862	1956	
==>')) {
    my $left_sym = $block->find_symbol($left->value);
    $self->SYNTAX_ERROR("Expression <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1784	1878	
==>')) {
    my $left_sym = $block->find_symbol($left->value);
    $self->SYNTAX_ERROR("Expression <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734231	734471	
==>,
                  "CODE" => 824,
                  "ARGS" => [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 134 \"src/ops/set.ops\"\n  {{\@1}} = str <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27688	27777	
==>($skip)/$lastsep=$1 and ""/e and '
		. ($check->{itempos}? 'do {'.Parse::RecDescent::Produ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29798	29887	
==>($skip)/$lastsep=$1 and ""/e and '
		. ($check->{itempos}? 'do {'.Parse::RecDescent::Produ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31895	31984	
==>($skip)/$lastsep=$1 and ""/e and '
		. ($check->{itempos}? 'do {'.Parse::RecDescent::Produ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1604	1712	
==>return $self;
}


#
# ACCESSORS:
#

sub kind  { return shift->{KIND};  }
sub ident { return shift->{IDENT}; } <==
4	/Users/nnunley/parrot/config/init/optimize.pm	103	195	
==>T02:28:15.110975Z coke  $

=head1 NAME

config/init/optimize.pm - Optimization

=head1 DESCRI <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	958	1094	
==>LANG; # JMG
        print LANG $lang_code; # JMG
        close LANG; # JMG

        Parrot::Test::run_command( 
            "$PConfig{per <==
4	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	870	1006	
==>LANG; # JMG
        print LANG $lang_code; # JMG
        close LANG; # JMG

        Parrot::Test::run_command( 
            "$PConfig{per <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4315	4408	
==>STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${DEST$push_num} = ${STEMP0}

# Increment d <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2731	2824	
==>STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${DEST$push_num} = ${STEMP0}

# Increment d <==
4	/Users/nnunley/parrot/lib/Parrot/PMC.pm	671	778	
==>_Handler => 25,
	Coroutine => 26,
	Eval => 27,
	NCI => 28,
	Float => 29,
	Integer => 30,
	BigInt => 31,
	Com <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	652	737	
==>ss "Ident is not!" unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value:: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	731	816	
==>ss "Ident is not!" unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value:: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	540	625	
==>ss "Ident is not!" unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value:: <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	1707	1791	
==>n-after-statement -I/usr/local/include -I/opt/local/include -pipe -fno-common -Wno-lo <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1095	1179	
==>n-after-statement -I/usr/local/include -I/opt/local/include -pipe -fno-common -Wno-lo <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1099	1183	
==>n-after-statement -I/usr/local/include -I/opt/local/include -pipe -fno-common -Wno-lo <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	10941	11061	
==>$name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # undef only matches u <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	11359	11479	
==>$name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # undef only matches u <==
4	/Users/nnunley/parrot/lib/Parrot/Configure.pm	3970	4083	
==>$step_name->new;

        # XXX This works. but is probably not a good design.
        # Using $step->description( <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4180	4338	
==>s/^\\([0-9]{1,3})//
                and $str .= chr $1, 
                last;

            s/^\\//
                and $parser->Error("Invalid escape seq <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2666	2823	
==>s/^\\([0-9]{1,3})//
                and $str .= chr $1,
                last;

            s/^\\//
                and $parser->Error("Invalid escape seq <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8921	9049	
==>oto three
    if $I1 == 4 goto four
    if $I1 == 5 goto five
    if $I1 == 6 goto six
    if $I1 == 7 goto seven
    if $I1 == - <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32001	32103	
==>{STOREREG} in rule " .
				"$rule->{'name'}\n";
        } elsif ($rule->{'instruction'} =~ /\$\{STACK0\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080560	1080687	
==>@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081625	1081752	
==>@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082690	1082817	
==>@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083756	1083883	
==>@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LA <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2870	2985	
==>lf = shift;
	my ($pops, $pushes) = @_;
	my $register_num = 0;
	my $push_num = 0;
	my $pir = '';

	# Do code for each <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1792	1907	
==>lf = shift;
	my ($pops, $pushes) = @_;
	my $register_num = 0;
	my $push_num = 0;
	my $pir = '';

	# Do code for each <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8174	8274	
==>ve extra copy in many cases
    my $L_fallback = $self->output_label_use($fallback);
    push @ops, " <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1543	1635	
==>me(I<somestring>)

This changes the tagname for this start-token object.
You probably won't n <==
4	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2743	2912	
==>s;

    my $regex = qr[
        test \s+ (\S+)                  # test ident
             \s+ \{ ([^}]+) \}          # test description
             \s+ (?:\S+ \s+)? \{ \ <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	1722	1810	
==>nt -I/usr/local/include -I/opt/local/include -pipe -fno-common -Wno-long-double  -I /opt/ <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1110	1198	
==>nt -I/usr/local/include -I/opt/local/include -pipe -fno-common -Wno-long-double  -I /opt/ <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1114	1202	
==>nt -I/usr/local/include -I/opt/local/include -pipe -fno-common -Wno-long-double  -I /opt/ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404623	404716	
==>\"src/ops/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405535	405628	
==>\"src/ops/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406447	406540	
==>\"src/ops/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407360	407453	
==>\"src/ops/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3} <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	13125	13250	
==>EOC";
	# $c = global "$c" $cmt
EOC
    }
    else {
	my $type = 'pmc';
	$p = $c;
	if ($type_map{$c}) {
	    $c = $p = $type_ma <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	4492	4588	
==>$description)>

Compiles and runs the C code, passing the test if a string comparison of
output w <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	4808	4904	
==>$description)>

Compiles and runs the C code, passing the test if a string comparison of
output w <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117390	117684	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "T <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118128	118422	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "T <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26268	26405	
==>nchOp( $parser,
            'result' => $l_end,
        );
        push @opcodes, new LabelOp( $parser,
            'arg1' => $l_next, <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	25755	25876	
==>nchOp( $parser,
        'result' => $l_end,
    );
    push @opcodes, new LabelOp( $parser,
        'arg1' => $l_next, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73124	73249	
==>_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR(p));\n      PObj_get_FLAGS({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74726	74851	
==>_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR(p));\n      PObj_get_FLAGS({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76328	76453	
==>_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR(p));\n      PObj_get_FLAGS({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77931	78056	
==>_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR(p));\n      PObj_get_FLAGS({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615534	615955	
==>" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 697,
                  "ARGS" => [
                              "i",
                              "p",
                              "sc"
                            ],
                  "BODY" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462714	462834	
==>,
                  "BODY" => "#line 322 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463711	463831	
==>,
                  "BODY" => "#line 322 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464708	464828	
==>,
                  "BODY" => "#line 322 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42340	42528	
==>ception(interpreter, EXCEPT_exit, {{\@1}});\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot:: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43030	43218	
==>ception(interpreter, EXCEPT_exit, {{\@1}});\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot:: <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	6179	6310	
==>for that source scalarref!  Killing.\n";
      }

      
    } else {
      die "What source??";
    }
  }
  DEBUG and print "get_to <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	13932	14030	
==>pe;
			$a1=pushthing(\@code, \$ot1, @$op1);
			$a2=pushthing(\@code, \$ot2, @$op2);
			$optype=$ot2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344213	344314	
==>t char * const path = string_to_cstring(interpreter, {{\@2}});\n  const char * const mode = string_to_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345455	345556	
==>t char * const path = string_to_cstring(interpreter, {{\@2}});\n  const char * const mode = string_to_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346697	346798	
==>t char * const path = string_to_cstring(interpreter, {{\@2}});\n  const char * const mode = string_to_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347940	348041	
==>t char * const path = string_to_cstring(interpreter, {{\@2}});\n  const char * const mode = string_to_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128262	128686	
==>"",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 158,
                  "ARGS" => [
                              "i",
                              "i",
                              "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121434	121727	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122345	122638	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/tools/dev/manicheck.pl	630	725	
==>hen any extra files are listed.

Files that match the patterns in MANIFEST.SKIP are not reported <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73104	73203	
==>{{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR(p));\n      PObj_get_FL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74706	74805	
==>{{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR(p));\n      PObj_get_FL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76308	76407	
==>{{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR(p));\n      PObj_get_FL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77911	78010	
==>{{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR(p));\n      PObj_get_FL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010880	1011165	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011644	1011929	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012409	1012694	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18981	19079	
==>s the size (in half-points, like 15 for 7.5-point)
that the header on each page will appear in.  Th <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	620389	620618	
==>RELATIVE",
                  "NAME" => "pic_get_params__",
                  "FLAGS" => ":pic",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "i <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	8753	8861	
==>tderr" if $err;

    open  STDOUT, ">&OLDOUT" or die "Can't restore  stdout" if $out;
    open  STDERR, ">&OL <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8273	8379	
==>tderr" if $err;

    open STDOUT, ">&OLDOUT" or die "Can't restore  stdout" if $out;
    open STDERR, ">&OL <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41458	41546	
==>element_end($scratch=$name);
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	556	660	
==>$self->maptree($t, sub { shift->{nocheck} = 1 });
    # Add necessary checks back in
    $t = $self->add_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488045	488316	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	489438	489709	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	9373	9471	
==>"]);
  $self->_restore($cond);
  $return = $self->_save_1 ('P');

  my $true = $self->_generate(_ge <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	1444	1540	
==>uage, $code, $expected, $description)> 

Runs a langugage test and passes the test
if the  output <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591566	591664	
==>2}});\n    real_exception(interpreter, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\", name);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592776	592874	
==>2}});\n    real_exception(interpreter, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\", name);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593986	594084	
==>2}});\n    real_exception(interpreter, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\", name);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595197	595295	
==>2}});\n    real_exception(interpreter, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\", name);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543328	543651	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lcm",
                  "FLAGS" => ":ad <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544663	544986	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lcm",
                  "FLAGS" => ":ad <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545999	546322	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lcm",
                  "FLAGS" => ":ad <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21932	22052	
==>m/^\S+$/) {  # i.e., unless it's one word
        $self->whine(
          $para->[1]{'start_line'},
          "'=end $con <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501014	501268	
==>th.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501753	502007	
==>th.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502491	502745	
==>th.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503230	503484	
==>th.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926072	926200	
==>({{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STRING <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927542	927670	
==>({{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STRING <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929012	929140	
==>({{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STRING <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930483	930611	
==>({{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STRING <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544468	544599	
==>1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n gcd = b<<p;\n sa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545804	545935	
==>1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n gcd = b<<p;\n sa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547140	547271	
==>1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n gcd = b<<p;\n sa <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2424	2526	
==>lag is necessary to help gcov locate it's basic block (.bb) files.
    my $cmd = "gcov -f -b -o $dirnam <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451656	451942	
==>"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452395	452681	
==>"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453133	453419	
==>"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453872	454158	
==>"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8726	8851	
==>d

.sub unicode:"dyadic:\u25cb"          # circle
    .param num op1
    .param num op2
    $I1 = op1
    if $I1 == 0 goto zer <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	19715	19812	
==>LL_FRAMES is disabled, add the signature to src/call_list.txt", 75, "ascii", 0);
#endif
    messag <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	26230	26326	
==>$desc = "$ldel$pattern$rdel$mod" }
	else		  { $desc = "m$ldel$pattern$rdel$mod" }
	$desc =~ s/\\/ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1787	1876	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _xml_escape {
  foreach my $x ( <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	16843	16963	
==>alue;
      } else {
        push @norms, sprintf " %-10s , chr(%s),\n", "'$name'", $value;
      }
    } elsif(m/<!ENT/) <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20329	20430	
==>ken->is_ident and $self->get(1)->is_assign) {
      my $block = $self->current_block();
      my $left <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	526	614	
==>ess UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Identifier (" . ref($ide <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	526	614	
==>ess UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Identifier (" . ref($ide <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224164	224518	
==>,
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 262,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 516 \"s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003320	1003630	
==>E" => 1120,
                  "ARGS" => [
                              "i",
                              "ic",
                              "sc",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\" <==
4	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	1306	1428	
==>_;
        my $symb   = $defn->{name};
##    warn "Insert $symb in $self\n";
        unless ( exists $self->{table}{$sym <==
4	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5514	5634	
==>}) {
    next if ($entry->[4] =~ /MMD_/);
    $macros .= <<"EOM";
        \"__$entry->[1]\",
EOM
    }
    $macros .= <<" <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	5825	5944	
==>f( $cmd eq 'no_plan' ) {
        $self->no_plan;
    }
    elsif( $cmd eq 'skip_all' ) {
        return $self->skip_all( <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	68067	68180	
==>ne);
			_hint("Did you forget the closing curly bracket
			       or is there a syntax error in the action?");
		} <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	7583	7681	
==>my $self = shift;

    return($self->{Expected_Tests}) if $self->{Expected_Tests};
    return('no_p <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3372	3464	
==>>

The older libraries L<Pod::PXML>, L<Pod::XML>, L<Pod::SAX>


=head1 COPYRIGHT AND DISCLAIM <==
4	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3024	3116	
==>>

The older libraries L<Pod::PXML>, L<Pod::XML>, L<Pod::SAX>


=head1 COPYRIGHT AND DISCLAIM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247621	247908	
==>{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	248485	248772	
==>{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	249349	249636	
==>{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/config/auto/gdbm.pm	1446	1586	
==>uild('', '-llibgdbm'); };
        } else {
            eval { cc_build('', 'gdbm.lib'); };
        }
    } else {
        eval { cc_build('', <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763145	763259	
==>} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763998	764112	
==>} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764851	764965	
==>} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765705	765819	
==>} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253813	254100	
==>{\@2}} ? {{\@2}} : {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254676	254963	
==>{\@2}} ? {{\@2}} : {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255539	255826	
==>{\@2}} ? {{\@2}} : {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	611	699	
==>::Type::Integer;
use Jako::Construct::Type::Number;
use Jako::Construct::Type::PMC;
use J <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680976	681288	
==>{
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 76 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681752	682064	
==>{
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 76 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682526	682838	
==>{
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 76 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683301	683613	
==>{
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 76 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039369	1039630	
==>lobal(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040261	1040522	
==>lobal(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041153	1041414	
==>lobal(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042046	1042307	
==>lobal(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223628	223897	
==>r(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224570	224839	
==>r(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225510	225779	
==>r(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226451	226720	
==>r(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/examples/benchmarks/oo4.pl	12	124	
==>se strict;

my $o = new Foo();
for my $i (1 .. 500000) {
	$o->[0] = $i;
	$o->[1] = $i;
}
print $o->[0], "\n";

pa <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9968	10063	
==>st, but need to be first to last in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elemen <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7482	7577	
==>st, but need to be first to last in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elemen <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6446	6541	
==>st, but need to be first to last in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elemen <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293035	293423	
==>",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 341,
                  "ARGS" => [
                              "i",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 945 \" <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2228	2322	
==>::Identifier')) {
    my $right_sym = $block->find_symbol($right->value);
    $self->SYNTAX_ERR <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2186	2280	
==>::Identifier')) {
    my $right_sym = $block->find_symbol($right->value);
    $self->SYNTAX_ERR <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2108	2202	
==>::Identifier')) {
    my $right_sym = $block->find_symbol($right->value);
    $self->SYNTAX_ERR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324479	324717	
==>e",
                  "CODE" => 380,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 144 \"src/ops/dotgnu.ops\"\n  {{\@1}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162058	162157	
==>" => "#line 183 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162955	163054	
==>" => "#line 183 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163852	163951	
==>" => "#line 183 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663069	663455	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663840	664226	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664612	664998	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665388	665774	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	6308	6455	
==>c', 
            '',
            $self->c_item(
                'Parrot\'s native executable subsystem.', 
                'pairs' => ['exec', 'exec <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1753	1852	
==>lue) unless $dest_sym;
  my $dest_type = $dest_sym->type;

  my $left_type;
  if (UNIVERSAL::isa($le <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1711	1810	
==>lue) unless $dest_sym;
  my $dest_type = $dest_sym->type;

  my $left_type;
  if (UNIVERSAL::isa($le <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1633	1732	
==>lue) unless $dest_sym;
  my $dest_type = $dest_sym->type;

  my $left_type;
  if (UNIVERSAL::isa($le <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	17398	17512	
==>>]/%<$N>\n"),
                 aop('add', [ $counter, 1 ]),
		 aop('ge', [ $counter, $N, $lastback ]),
		 aop('goto <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9640	9739	
==>n";
   # TODO: allow for a footer
  return 1;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
4	/Users/nnunley/parrot/languages/regex/regex.pl	1574	1667	
==>nguage eq 'pir') {
  $options{module} = "Regex::CodeGen::IMCC";
} elsif ($language eq 'perl5') <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1080	1165	
==>::Section::Config;
use Parrot::Docs::Section::Tests;
use Parrot::Docs::Section::Editor <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6810	7025	
==>\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE|PARROT_JUM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10330	10545	
==>\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE|PARROT_JUM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63919	64134	
==>\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE|PARROT_JUM <==
4	/Users/nnunley/parrot/tools/build/ops2pm.pl	3519	3622	
==>nless defined $temp_ops;

    die "OPS invalid for $file" unless ref $temp_ops->{OPS};

    my $experime <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459287	459584	
==>cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 52 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460274	460571	
==>cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 52 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461262	461559	
==>cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 52 <==
4	/Users/nnunley/parrot/config/init/hints/solaris.pm	101	194	
==>30T02:28:15.110975Z coke  $

package init::hints::solaris;

use strict;

use Parrot::Configure <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	709045	709254	
==>PE" => "function",
                  "CODE" => 795,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 709 \"src/ops/pmc.ops\"\n  d <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	35973	36071	
==>completed all its tests, it will still be
considered a failure and will exit with 255.

So the exit <==
4	/Users/nnunley/parrot/lib/Test/More.pm	34044	34142	
==>completed all its tests, it will still be
considered a failure and will exit with 255.

So the exit <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	2839	2937	
==>completed all its tests, it will still be
considered a failure and will exit with 255.

So the exit <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584438	584531	
==>class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585513	585606	
==>class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597954	598047	
==>class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599001	599094	
==>class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1505	1601	
==>_ERROR("Undefined type!")
    unless defined $type;

  $self->INTERNAL_ERROR("Type is not a Jako: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1353	1449	
==>_ERROR("Undefined type!")
    unless defined $type;

  $self->INTERNAL_ERROR("Type is not a Jako: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78959	79050	
==>{{\@3}}));\n\n  void * const p = Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? NULL : PMC_data({{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80480	80571	
==>{{\@3}}));\n\n  void * const p = Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? NULL : PMC_data({{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492851	493141	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "AR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493612	493902	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "AR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499586	499876	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "AR <==
4	/Users/nnunley/parrot/config/gen/icu.pm	2152	2311	
==>rs) {
                chomp $icuheaders;
                $without = 1 unless -d $icuheaders;
                $icuheaders .= "${slash}include";
                $ <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6850	6967	
==>t, $self->get_token;
        
        last if $to_unget[-1]->is_end
            and $to_unget[-1]->tagname eq $tagname <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	6551	6663	
==>t, $self->get_token;
          last if $to_unget[-1]->is_end
              and $to_unget[-1]->tagname eq $tagname <==
4	/Users/nnunley/parrot/config/init/hints/openbsd.pm	139	249	
==>nit::hints::openbsd;

use strict;
use Config;

sub runstep
{
    my ($self, $conf) = @_;

    my $ccflags = $co <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	410088	410184	
==>STRING *dest = {{\@3}};\n    {{\@1}} = (INTVAL)PIO_recv(interpreter, {{\@2}}, &dest);\n    {{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712655	712744	
==>string_str_index(interpreter, s,\n\tconst_string(interpreter, \"e\"), 0) == -1)\n    PIO_p <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713762	713851	
==>string_str_index(interpreter, s,\n\tconst_string(interpreter, \"e\"), 0) == -1)\n    PIO_p <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720122	720211	
==>string_str_index(interpreter, s,\n\tconst_string(interpreter, \"e\"), 0) == -1)\n    PIO_p <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721322	721411	
==>string_str_index(interpreter, s,\n\tconst_string(interpreter, \"e\"), 0) == -1)\n    PIO_p <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	36842	36978	
==>", 
					   instead?");
		}
	}
	bless 
	{
		"subrule"   => $subrule,
		"repspec"   => $repspec,
		"min"       => $min,
		"max"       => $ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2598	2699	
==>:0-9a-zA-Z]+)=([-_:0-9a-zA-Z]+)$/s
     ? ( $1, => "<$2>", "/$1", => "</$2>" ) : die "Funky $_"
  } @_ <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10314	10411	
==>l int pc, next_pc, bc_length, cur_ic, pop_count, label_num, sp_dest
    .local int i, j, type, try <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	45058	45154	
==>t to generate the
output.

=head1 AUTHOR

Jeffrey Goff, drforr@hargray.com

=head1 SEE ALSO

L<Sc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591536	591629	
==>eadable_name(interpreter, {{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n\t\t\"C <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592746	592839	
==>eadable_name(interpreter, {{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n\t\t\"C <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593956	594049	
==>eadable_name(interpreter, {{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n\t\t\"C <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595167	595260	
==>eadable_name(interpreter, {{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n\t\t\"C <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72765	72869	
==>n  if (p == NULLfunc) {\n      const char * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARRO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74367	74471	
==>n  if (p == NULLfunc) {\n      const char * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARRO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75969	76073	
==>n  if (p == NULLfunc) {\n      const char * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARRO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77572	77676	
==>n  if (p == NULLfunc) {\n      const char * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARRO <==
4	/Users/nnunley/parrot/config/auto/gc.pm	1154	1274	
==>onf->data->get('i_malloc')) {
            $conf->data->set(malloc_header => 'malloc.h');
        } else {
            $co <==
4	/Users/nnunley/parrot/config/auto/memalign.pm	953	1061	
==>onf->data->get('i_malloc')) {
        $conf->data->set(malloc_header => 'malloc.h');
    } else {
        $co <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10643	10740	
==>tion =~ tr/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
        $section = $self->unicode_escape_url($ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4024	4117	
==>tion =~ tr/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
    $section = $self->unicode_escape_url($ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071958	1072092	
==>L r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTV <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074143	1074277	
==>L r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTV <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076328	1076462	
==>L r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTV <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078514	1078648	
==>L r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTV <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11486	11736	
==>t2,
                            'arg1'   => $result,
                            'arg2'   => $key->[0],
                        );
                        $result = $result2;
                    }
                    push @opcodes, @{ $last_key- <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9714	9940	
==>t2,
                        'arg1'   => $result,
                        'arg2'   => $key->[0],
                    );
                    $result = $result2;
                }
                push @opcodes, @{ $last_key- <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8625	8803	
==>t2,
                'arg1'   => $result,
                'arg2'   => $key->[0],
            );
            $result = $result2;
        }
        push @opcodes, @{ $last_key- <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	29920	30019	
==>"Ending user function, stack depth now "
	#print I25
	#print "\\n"
	ret
FUNCEND
	print FUNC<<SUBDISP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	674531	674789	
==>tring(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683070	683328	
==>tring(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740520	740776	
==>tring(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009126	1009382	
==>tring(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32767	32869	
==>einfo\n";
		    $pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			    "typeinfo for rule $rule->{'name'}") <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26775	26869	
==>einfo\n";
		$pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}") <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28491	28585	
==>einfo\n";
		$pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}") <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36473	36567	
==>einfo\n";
		$pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}") <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474079	474178	
==>" => "#line 403 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475070	475169	
==>" => "#line 403 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476061	476160	
==>" => "#line 403 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exc <==
4	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	44	131	
==>Bc/Antlr2.pm 16454 2006-02-01T20:44:27.448243Z bernhard  $

package Parrot::Test::Bc::An <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9536	9633	
==>_${CURIC}

# It's a call. Get details of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, $ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7050	7147	
==>_${CURIC}

# It's a call. Get details of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, $ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5606	5703	
==>_${CURIC}

# It's a call. Get details of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, $ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7826	7923	
==>_${CURIC}

# It's a call. Get details of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173700	173996	
==>> "ne_str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5813	5946	
==>DBG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defined($$token)
            or	do {
				($$token,$$value)=& <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5537	5663	
==>DBG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defined($$token)
            or	do {
				($$token,$$value)=& <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	154	252	
==>ates the need for a stack.
# Inherits from SRM::Base.

package SRM::Register;
use strict;
use SRM:: <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25781	25894	
==>2,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28964	29077	
==>2,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39507	39620	
==>2,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43362	43475	
==>2,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => <==
4	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1310	1443	
==>guage);
        } elsif ($dir_count == 1) {
          $path_to_language = $language;
        } elsif ($dir_count == 2) {
          $pa <==
4	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1795	1928	
==>guage);
        } elsif ($dir_count == 1) {
          $path_to_language = $language;
        } elsif ($dir_count == 2) {
          $pa <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6574	6667	
==>PES}
    prop_stack_depth[${ITEMP0}] = stack_depth
    goto POST_BRANCH_switch_${CURIC}_LOOP
P <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4512	4605	
==>PES}
    prop_stack_depth[${ITEMP0}] = stack_depth
    goto POST_BRANCH_switch_${CURIC}_LOOP
P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627074	627169	
==>ps/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628218	628313	
==>ps/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632476	632571	
==>ps/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633518	633613	
==>ps/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099232	1099364	
==>\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n\tres = 1.0/res <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100430	1100562	
==>\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n\tres = 1.0/res <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101628	1101760	
==>\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n\tres = 1.0/res <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102827	1102959	
==>\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n\tres = 1.0/res <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	3609	3726	
==>*\"(\);|,)?$/;

        if (length($_) > 79) {
            warning($file, $line, "line more than 79 columns. (" . leng <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	906	1002	
==>utes => { kind => $self->kind } });
  $_->sax($handler) foreach $self->content;
  $handler->end_e <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1919	2015	
==>utes => { kind => $self->kind } });
  $_->sax($handler) foreach $self->content;
  $handler->end_e <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2713	2809	
==>utes => { kind => $self->kind } });
  $_->sax($handler) foreach $self->content;
  $handler->end_e <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738204	738458	
==>num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738968	739222	
==>num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744315	744569	
==>num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745081	745335	
==>num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	972900	973068	
==>"i",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclas <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974029	974197	
==>"i",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclas <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975158	975326	
==>"i",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclas <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976288	976456	
==>"i",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_cclas <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4955	5048	
==>value,$stack,$check,$dotpos)
     = @$self{ 'ERRST', 'NBERR', 'TOKEN', 'VALUE', 'STACK', 'CHE <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1342	1434	
==>ister type).
dec ${ITEMP0}
${PTEMP0} = ${STYPES}[${ITEMP0}]

# Assign register name.
${STEMP0 <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3052	3144	
==>ister type).
dec ${ITEMP0}
${PTEMP0} = ${STYPES}[${ITEMP0}]

# Assign register name.
${STEMP0 <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4713	4805	
==>value,$stack,$check,$dotpos)
     = @$self{ 'ERRST', 'NBERR', 'TOKEN', 'VALUE', 'STACK', 'CHE <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7717	7828	
==>urrent_block;

      my $type_token = $self->skip_type;

      my $type;
      $type = Jako::Construct::Type->ne <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9773	9859	
==>3" goto pre_call_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEMP2}
pre_call_NOT_CTOR_${CURI <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7287	7373	
==>3" goto pre_call_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEMP2}
pre_call_NOT_CTOR_${CURI <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6251	6337	
==>3" goto pre_call_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEMP2}
pre_call_NOT_CTOR_${CURI <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926641	926987	
==>\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928111	928457	
==>\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929581	929927	
==>\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931052	931398	
==>\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784788	785210	
==>" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 886,
                  "ARGS" => [
                              "p",
                              "kic",
                              "p"
                            ],
                  "BODY" => "#l <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	12650	12769	
==>e) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $dont_expect ) {
        # undef only matches <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	13094	13213	
==>e) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $dont_expect ) {
        # undef only matches <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	1308	1401	
==>:Ops::Tree::multi_match::ISA  = qw(Regex::Ops::Tree);
@Regex::Ops::Tree::group::ISA        = q <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	2219	2340	
==><<"END_PIR"             # not equal
    $I100 = isne %1, %2
    %1 = $I100
END_PIR

    $P0[unicode:"dyadic:\u2264"]  = << <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10941	11032	
==>, need to supply a ${DEST0}.
${ITEMP0} = ${PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8127	8218	
==>, need to supply a ${DEST0}.
${ITEMP0} = ${PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5789	5880	
==>, need to supply a ${DEST0}.
${ITEMP0} = ${PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676368	676652	
==>> "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 758,
                  "ARGS" = <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10017	10106	
==>ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC}:
if ${ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7531	7620	
==>ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC}:
if ${ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6495	6584	
==>ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC}:
if ${ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17953	18072	
==>= 'Data';
      
      unshift @$paras,
        ['=begin',
          {'start_line' => $para->[1]{'start_line'}, '~really <==
4	/Users/nnunley/parrot/Configure.pl	9458	9572	
==>:signal
    auto::socklen_t
    auto::env
    auto::aio
    auto::gmp
    auto::readline
    auto::gdbm
    auto::s <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16070	16169	
==>tarray) { # void context: alter in-place!
    for(@_) {
      s/([F\x00-\x1F\\\{\}\x7F-\xFF])/$Escap <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7754	7851	
==>tion
of the POD documentation, if it exists. If an C<ABSTRACT> is found then
that is preferred.

= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81965	82225	
==>n(1, \"don't use compile - just invoke the compiler\");\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82859	83119	
==>n(1, \"don't use compile - just invoke the compiler\");\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/config/auto/jit.pm	4788	4959	
==>_$osname.in");
            eval { cc_build(); };
            if ($@) {
                print " $@) " if $verbose;
            } else {
                if (cc_run(0) !~ /ok/ <==
4	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	953	1119	
==>ab->{table}{$symb} ) {
                        my $defn = $symbtab->{table}{$symb};
##                    warn "\tfound 2 in $symbtab\n";
                        re <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827056	827319	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 936,
                  "ARGS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432477	432651	
==>h_p_pip(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433492	433666	
==>h_p_pip(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1097569	1097719	
==>tmp);\n            key_append(interpreter, key_tail, key);\n            key_tail = key;\n        }\n    }    \n    {{+=3}};\n",
                  "expe <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302096	302187	
==>rc/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302972	303063	
==>rc/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303848	303939	
==>rc/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\ <==
4	/Users/nnunley/parrot/config/auto/gmp.pm	40	130	
==>dation.
# $Id: /parrot/config/auto/gmp.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	27936	28071	
==>with a lot more detail.

    $tests[$test_num - 1] = 
            { 'ok'       => is the test considered a pass?
              actual_ok <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	775	869	
==>, $op, $right) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	803	897	
==>, $op, $right) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	487	581	
==>, $op, $right) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107143	107401	
==>\"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107997	108255	
==>\"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108851	109109	
==>\"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	619497	619614	
==>\n\t\tVTABLE_set_integer_native(interpreter, left, c);\n\t}\n\telse {\n\t    if (PARROT_ERRORS_test(interpreter,PARROT <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38791	38909	
==>$ret = '';
    my $ret_def = '';
    my $func_ret = '(void) ';
    my $ret_type = '';
    if ($method->{type} ne 'void' <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	40670	40775	
==>tion_name ) {
        $ell->[1]{'section'} = Pod::Simple::LinkSection->new(
          ['', {}, @$section_n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70854	70941	
==>line 1150 \"src/ops/core.ops\"\n\n  {{\@1}} = Parrot_load_lib(interpreter, {{\@2}}, NULL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71623	71710	
==>line 1150 \"src/ops/core.ops\"\n\n  {{\@1}} = Parrot_load_lib(interpreter, {{\@2}}, NULL <==
4	/Users/nnunley/parrot/languages/lua/luac.pl	483	581	
==>$parser->Run(@ARGV);

if ( exists $parser->YYData->{nb_error} ) {
    my $nb = $parser->YYData-> <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1404	1496	
==>align-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT = qq[ <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1449	1541	
==>align-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT = qq[ <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1453	1545	
==>align-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT = qq[ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586679	586778	
==>s_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587865	587964	
==>s_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589051	589150	
==>s_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590238	590337	
==>s_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_ <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	1495	1596	
==>d-like
#  languages which happens to contain Pod -- it is just for Pod, plus possibly
#  some extensio <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11091	11191	
==>56789])/sprintf('%%%02X',ord($1))/eg;
        # Yes, stipulate the list without a range, so that this <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4440	4539	
==>56789])/sprintf('%%%02X',ord($1))/eg;
       # Yes, stipulate the list without a range, so that this <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6687	6781	
==>LABEL])

Search this block and recursively through parent Blocks for a Block with the
specified <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492245	492539	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "functio <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493005	493299	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "functio <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498978	499272	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "functio <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499740	500034	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "functio <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780724	780965	
==>tring_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781633	781874	
==>tring_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782542	782783	
==>tring_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783452	783693	
==>tring_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	805	928	
==>lags ld_share_flags)) {
        my $f = $conf->data->get($ldflags);
        if ($f =~ s/ -s / /) {
            $conf->data-> <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1985	2091	
==>t syntax above applies here.

=cut

sub p6rule_isnt {
    my ($target, $pattern) = (shift, shift);

    uns <==
4	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	908	1003	
==>tributions or in general when svn is not available).
# See docs/submissions.pod on how to recrea <==
4	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3763	3858	
==>tributions or in general when svn is not available).
# See docs/submissions.pod on how to recrea <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	2920	3045	
==>ed'),
            $self->c_pair_item('', 'global_setup'),
            $self->c_item(
                'Parrot Interpreter: Call <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474086	474182	
==>line 403 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_excepti <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475077	475173	
==>line 403 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_excepti <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476068	476164	
==>line 403 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_excepti <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22031	22126	
==>::Construct::Expression::Value->new($block, $self->require_value);
        $op    = $self->requi <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22964	23059	
==>::Construct::Expression::Value->new($block, $self->require_value);
        $op    = $self->requi <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24610	24705	
==>::Construct::Expression::Value->new($block, $self->require_value);
        $op    = $self->requi <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2150	2242	
==>tribute with the value "Bar".

=item $token->attr(I<attrname>, I<newvalue>)

This sets the I< <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19699	19801	
==>le);
		}
		else
		{
			$code .= $parser->{_AUTOTREE}{NODE}->code($namespace,$rule);
		}
		Parse::RecDes <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936083	936303	
==>=> 1052,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 455 \"src/ops/string.ops\"\n  {{\@1}} = string_ <==
4	/Users/nnunley/parrot/tools/dev/lib_deps.pl	8214	8334	
==>stdlib.h
carg        complex.h
cargf       complex.h
cargl       complex.h
casin       complex.h
casinf      complex.h
ca <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	69477	69585	
==>nerated parser code!");
			$@ =~ s/at grammar/in grammar at/;
			_hint($@);
		}
	}

	if ($ERRORS and !_verbos <==
4	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	874	980	
==>bels

my $verbatim_begin = qr{ ^= }smx;
my $verbatim_end   = qr{ ^=cut }smx;

sub get_formatted {
    my ($ <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2218	2338	
==>y $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various libraries in the link line.
        $liblist = joi <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2510	2630	
==>y $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various libraries in the link line.
        $liblist = joi <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2305	2425	
==>y $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various libraries in the link line.
        $liblist = joi <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1890	1996	
==>rser->YYData->{lex_num};
    $parser->YYData->{lex_num} = 0;
##    warn "PushScopeF\n";
}

sub PopScop <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2385	2488	
==>{ kind => $self->kind } });
  }

  if ($self->op) {
    $handler->start_element({ Name => 'block', Attri <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2262	2365	
==>{ kind => $self->kind } });
  }

  if ($self->op) {
    $handler->start_element({ Name => 'block', Attri <==
4	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1310	1400	
==>.pl for the Inno Setup Script Compiler.

[Setup]
AppName=parrot
AppVerName=parrot $options{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067086	1067199	
==>};\n  while (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068272	1068385	
==>};\n  while (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069458	1069571	
==>};\n  while (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070645	1070758	
==>};\n  while (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957524	957616	
==>ding_number(interpreter, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, NULL, 1,\n\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958429	958521	
==>ding_number(interpreter, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, NULL, 1,\n\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103961	1104047	
==>oad_class(interpreter, class);\n\t\ttype = pmc_type(interpreter, class);\n\t}\n\tif (ty <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105176	1105262	
==>oad_class(interpreter, class);\n\t\ttype = pmc_type(interpreter, class);\n\t}\n\tif (ty <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	9974	10084	
==>me} is,
    #  i.e., "thatelementname".  Then when we go re-mapping,
    #  a "W" in the treelet turns into "th <==
4	/Users/nnunley/parrot/config/auto/env.pm	407	511	
==>p ':auto';

$description = 'Determining if your C library has setenv / unsetenv';
@args        = qw(verbo <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	3955	4059	
==>r die "compile $group.c failed ($?)\n";
    }
} 
elsif ($mode eq 'linklibs') {
    my ($group_files, $gro <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	4059	4163	
==>r die "compile $group.c failed ($?)\n";
    }
} 
elsif ($mode eq 'linklibs') {
    my ($group_files, $gro <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30658	30799	
==>76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40008	40149	
==>76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41635	41776	
==>76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => <==
4	/Users/nnunley/parrot/lib/Test/More.pm	34593	34686	
==>s are compared B<as strings>.  This prevents
Test::More from piercing an object's interface al <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340311	340666	
==>+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341310	341665	
==>+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342309	342664	
==>+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "F <==
4	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	3491	3600	
==>, (\d+) todo, (\d+) skipped and (\d+) unexpectedly succeeded"/    and $smoke{summary}       = {
    total    = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793441	793702	
==>integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794346	794607	
==>integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795251	795512	
==>integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796157	796418	
==>integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591480	591578	
==>+4}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    re <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592690	592788	
==>+4}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    re <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593900	593998	
==>+4}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    re <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595111	595209	
==>+4}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    re <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659273	659609	
==>@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exists",
                  "FLAGS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660194	660530	
==>@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exists",
                  "FLAGS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661116	661452	
==>@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exists",
                  "FLAGS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662031	662367	
==>@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exists",
                  "FLAGS <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	5596	5727	
==>s;
    my @arg;
    my $reg_num = 0;
    my $sig = '';

    if (defined $args and not $args =~ m/^\s*$/ ) {
        foreach (split / <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	36119	36242	
==>s successful
    255                 test died
    any other number    how many failed (including missing or extras)

If you <==
4	/Users/nnunley/parrot/lib/Test/More.pm	34190	34313	
==>s successful
    255                 test died
    any other number    how many failed (including missing or extras)

If you <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	2985	3108	
==>s successful
    255                 test died
    any other number    how many failed (including missing or extras)

If you <==
4	/Users/nnunley/parrot/languages/APL/t/APL.pm	1985	2098	
==>guage_output_is('APL', $apl, $output, $block->name);
        }
      }
    } else {
      Parrot::Test::language_o <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	529	619	
==>ck) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Dest (" <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	520	610	
==>ck) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Dest (" <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	409	499	
==>ck) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Dest (" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760875	761168	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setp_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761727	762020	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setp_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758328	758550	
==>ring_set(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759101	759323	
==>ring_set(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	715	807	
==>pecting $Parse::RecDescent::expected";
	}
	else
	{
		$Parse::RecDescent::unexpected =~ /\s*(. <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712566	712662	
==>string_str_index(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713673	713769	
==>string_str_index(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720033	720129	
==>string_str_index(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721233	721329	
==>string_str_index(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055734	1056042	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAGS" => "", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056625	1056933	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAGS" => "", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057517	1057825	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAGS" => "", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058409	1058717	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAGS" => "", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050209	1050310	
==>tion(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(interpr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051243	1051344	
==>tion(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(interpr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052277	1052378	
==>tion(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(interpr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053312	1053413	
==>tion(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(interpr <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	9398	9497	
==>More::plan;
*skip = \&Test::More::skip;

# What about File::Slurp?
sub slurp_file {
    my ($file_na <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1345	1442	
==>riggered in normal operation, even with bad source code as input.
  #

  $self->INTERNAL_ERROR("Un <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1290	1387	
==>riggered in normal operation, even with bad source code as input.
  #

  $self->INTERNAL_ERROR("Un <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1193	1290	
==>riggered in normal operation, even with bad source code as input.
  #

  $self->INTERNAL_ERROR("Un <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080585	1080861	
==>preter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081650	1081926	
==>preter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082715	1082991	
==>preter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083781	1084057	
==>preter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24867	24989	
==>}
    for(2..$#{$node->{children}}) {
      my $temp = $self->_generate($node->{children}[$_]);
      $self->_add_inst('',' <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25878	26000	
==>}
    for(2..$#{$node->{children}}) {
      my $temp = $self->_generate($node->{children}[$_]);
      $self->_add_inst('',' <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26766	26888	
==>}
    for(2..$#{$node->{children}}) {
      my $temp = $self->_generate($node->{children}[$_]);
      $self->_add_inst('',' <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27776	27898	
==>}
    for(2..$#{$node->{children}}) {
      my $temp = $self->_generate($node->{children}[$_]);
      $self->_add_inst('',' <==
4	/Users/nnunley/parrot/config/init/hints/mswin32.pm	5140	5282	
==>',
            load_ext   => '.dll',
            cc         => ${cc},
            ccflags    => '-O2 -w-8066 -DWIN32 -DNO_STRICT -DNDEBUG -D_CO <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	20183	20302	
==>language implementation
                require "Parrot/Test/$language.pm";
                my $class = "Parrot::Test::$ <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	9225	9339	
==>and length $new_code;
    if(ASCII) {
      # A good-enough check that it's good as an XML Name symbol:
      Carp: <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	10489	10603	
==>and length $new_code;
    if(ASCII) {
      # A good-enough check that it's good as an XML Name symbol:
      Carp: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404736	405058	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405648	405970	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406560	406882	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => <==
4	/Users/nnunley/parrot/lib/Test/More.pm	20399	20491	
==>all>.  Test::More will output special ok's
which Test::Harness interprets as skipped, but pas <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071788	1071887	
==>"#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073973	1074072	
==>"#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076158	1076257	
==>"#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078344	1078443	
==>"#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141568	141801	
==>GS" => [
                              "nc",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 77 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	25083	25192	
==>cmt
EOC
    }
    elsif ($name =~/^obj (\S+) attr (\w+)/) {  # convert to meth call syntax
	my ($obj, $attr) = <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	775	882	
==>($kind eq 'while' or $kind eq 'until') {
    my $test = ($kind eq 'while') ? 'unless' : 'if';

    $compiler <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	8251	8358	
==>']);
    $Dumper->Indent(3);
    print $vtd $Dumper->Dump();
    close $vtd;
}

=head2 my ($balanced, $remai <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714640	714751	
==>rpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_put <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715563	715674	
==>rpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_put <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722327	722438	
==>rpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_put <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723356	723467	
==>rpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_put <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714629	714723	
==>length(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpret <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715552	715646	
==>length(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpret <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722316	722410	
==>length(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpret <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723345	723439	
==>length(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpret <==
4	/Users/nnunley/parrot/config/auto/format.pm	906	1034	
==>ong long int")) {
        $ivformat = "%lld";
    } else {
        die "Configure.pl:  Can't find a printf-style format specifier <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11461	11558	
==>op    = substr($self->forth->text, 0, -1);
      my $value = Jako::Construct::Expression::Value->n <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12008	12105	
==>op    = substr($self->forth->text, 0, -1);
      my $value = Jako::Construct::Expression::Value->n <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12551	12648	
==>op    = substr($self->forth->text, 0, -1);
      my $value = Jako::Construct::Expression::Value->n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344128	344231	
==>" => "#line 148 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const path <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345370	345473	
==>" => "#line 148 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const path <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346612	346715	
==>" => "#line 148 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const path <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347855	347958	
==>" => "#line 148 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const path <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909362	909633	
==>index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910259	910530	
==>index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911156	911427	
==>index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912054	912325	
==>index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	7049	7187	
==>ons',
            '',
            $self->c_pair_item('', 'exceptions'),
            $self->c_pair_item('', 'events'),
        ),
        $s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552816	552905	
==>n  interpreter->current_method = VTABLE_get_string(interpreter, method_pmc);\n  dest = (op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556811	556900	
==>n  interpreter->current_method = VTABLE_get_string(interpreter, method_pmc);\n  dest = (op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560834	560923	
==>n  interpreter->current_method = VTABLE_get_string(interpreter, method_pmc);\n  dest = (op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021764	1022038	
==>r, &tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "deco <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022606	1022880	
==>r, &tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "deco <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023455	1023729	
==>r, &tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "deco <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9641	9746	
==>ter}, \$text, $thisparser;

	' : '
	my $thisline = [\$text, $thisparser];
	') . $self->{vars} .'
';

	my $ <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3098	3241	
==>NG';

    while ( $parser->YYData->{INPUT} ) {

        for ( $parser->YYData->{INPUT} ) {

            s/^'//
                and return <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	6191	6304	
==>e = new .None
EOC
    %globals = ();
    $names{None} = 'None';
    $globals{None} = 'None';
    if ($def_args{$ar <==
4	/Users/nnunley/parrot/config/inter/progs.pm	3276	3381	
==>f $ask;
    $conf->data->set(ldflags => $ldflags);

    $libs = $conf->data->get('libs');
    $libs = join <==
4	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	105	202	
==>Parrot::Test::Bc;

use strict;
use warnings;

use Data::Dumper;
use File::Basename;

use Parrot::T <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	11123	11234	
==>int " Encoding [$e] is unsupported.",
      "\nSupporteds: @supported\n";
    my $suggestion = '';

    # Look f <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459888	459986	
==>er, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460876	460974	
==>er, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461864	461962	
==>er, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109418	109657	
==>=> "inline",
                  "CODE" => 136,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 182 \"src/ops/bit.ops\"\n  st <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461582	461817	
==>ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 282 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033325	1033413	
==>t_find_pad(interpreter, lex_name, ctx);\n    if (PMC_IS_NULL(lex_pad)) {\n\treal_exceptio <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034423	1034511	
==>t_find_pad(interpreter, lex_name, ctx);\n    if (PMC_IS_NULL(lex_pad)) {\n\treal_exceptio <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597426	597572	
==>DDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598472	598618	
==>DDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599519	599665	
==>DDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600594	600740	
==>DDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	536623	536894	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sin",
                  "FLAGS" => ":base_mat <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	4450	4559	
==>} else {
			die "Syntax error, expected ',' or ';'";
		}
		feedme();
	} else {
		$promptcode.=qq{\tprint "? "\ <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	989	1141	
==>t *",
       l => "long",
       4 => "long *",
       c => "char",
       s => "short",
       2 => "short *",
       f => "float",
       d => "double" <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	1404	1556	
==>t *",
       l => "long",
       4 => "long *",
       c => "char",
       s => "short",
       2 => "short *",
       f => "float",
       d => "double" <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	2309	2461	
==>t *",
       l => "long",
       4 => "long *",
       c => "char",
       s => "short",
       2 => "short *",
       f => "float",
       d => "double" <==
4	/Users/nnunley/parrot/tools/build/c2str.pl	409	520	
==>tions(
    "all" => \$do_all,
    "init" => \$do_init,
);

$do_all and do {
    &read_all;
    &create_c_include <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867298	867590	
==>}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868264	868556	
==>}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869230	869522	
==>}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870197	870489	
==>}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549959	550058	
==>PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551260	551359	
==>PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553822	553921	
==>PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555219	555318	
==>PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344363	344462	
==>O_open(interpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* string_cstring_free <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345605	345704	
==>O_open(interpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* string_cstring_free <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346847	346946	
==>O_open(interpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* string_cstring_free <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348090	348189	
==>O_open(interpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* string_cstring_free <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	15923	16077	
==>" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			"<=" => 85,
			'OR' => 84,
			" <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29776	29930	
==>" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			"<=" => 85,
			'OR' => 84,
			" <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30291	30445	
==>" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			"<=" => 85,
			'OR' => 84,
			" <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36837	36991	
==>" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			"<=" => 85,
			'OR' => 84,
			" <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6880	6982	
==>ode;
}

sub _generate_glob_for {
    my($target, $pattern, $captures) = @_;
    $target = _parrot_strin <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4096	4189	
==>ss of L<Pod::Simple> and inherits all its methods.

=head1 SEE ALSO

L<Pod::Simple>, L<Pod::Si <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3537	3630	
==>ss of L<Pod::Simple> and inherits all its methods.

=head1 SEE ALSO

L<Pod::Simple>, L<Pod::Si <==
4	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1273	1366	
==>ss of L<Pod::Simple> and inherits all its methods.

=head1 SEE ALSO

L<Pod::Simple>, L<Pod::Si <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579277	579377	
==>ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580582	580682	
==>ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581887	581987	
==>ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583193	583293	
==>ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610553	610731	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611455	611633	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612358	612536	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613264	613442	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650096	650380	
==>{
                  "JUMP" => 0,
                  "NAME" => "valid_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651017	651301	
==>{
                  "JUMP" => 0,
                  "NAME" => "valid_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functi <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7997	8117	
==>LABEL);
sub output_popindex {
    my $self = shift;

    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallbac <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7650	7770	
==>LABEL);
sub output_popindex {
    my $self = shift;

    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallbac <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819632	819729	
==>tack, {{\@2}});\n\n  if (!entry) {\n    internal_exception(99, \"Stack Depth wrong\");\n  }\n  {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820592	820689	
==>tack, {{\@2}});\n\n  if (!entry) {\n    internal_exception(99, \"Stack Depth wrong\");\n  }\n  {{\ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	21	117	
==>Pod::Simple::SimpleTree;
use strict;
use Carp ();
use Pod::Simple ();
use vars qw( $ATTR_PAD @ISA <==
4	/Users/nnunley/parrot/lib/Test/More.pm	35384	35479	
==>new Test::Harness features and fixes.  If
you're going to distribute tests that use no_plan or t <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36077	36221	
==>3,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -71
	},
	{#State 139
		ACTIONS => {
			"-" => 72,
			"<" => 74,
			"%" = <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8287	8419	
==>rn(undef);

			};

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Back to state $$stack[-1][0], then ";

                $$che <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7912	8037	
==>rn(undef);

			};

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Back to state $$stack[-1][0], then ";

                $$che <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	764	860	
==>notice should remain unchanged.
#
# (c) Copyright 1998-2001 Francois Desarmenien, all rights re <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	742	836	
==>notice should remain unchanged.
#
# (c) Copyright 1998-2001 Francois Desarmenien, all rights re <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	14869	15019	
==>op;
        }
        push @opcodes2, @{ $expr->[1] };
        my $assign = $var->[2];
        if ( $assign->isa('AssignOp') ) {
            $assi <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	28018	28122	
==>node) = @_;
  my $return;
  my $label     = $self->_gensym();

  $return = $self->_generate($node->{child <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23298	23398	
==>node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_generate($node->{child <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23760	23860	
==>node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_generate($node->{child <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	4802	4924	
==>e'   , 243,
 'ocirc'    , 244,
 'otilde'   , 245,
 'ouml'     , 246,
 'divide'   , 247,
 'oslash'   , 248,
 'ugrave'   , 24 <==
4	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5952	6061	
==>ry->[4] =~ /MMD_/);
    next if ($entry->[4] =~ /_INT$/);
    next if ($entry->[4] =~ /_STR$/);
    next if ($ <==
4	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6370	6479	
==>ry->[4] =~ /MMD_/);
    next if ($entry->[4] =~ /_INT$/);
    next if ($entry->[4] =~ /_STR$/);
    next if ($ <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	2151	2253	
==>_DEBUG_INIT()\n";
		debug();
	}

	
PARSE:
	1;
PARSE_NOFEED:
	if ($type[CURR] eq "STMT" or $type[CURR] e <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	2281	2385	
==>$name);

  unless (defined $loop_block) {
    if (defined $name) {
      $self->SYNTAX_ERROR("No loop '%s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185993	186087	
==>ne 292 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) < 0) {\n    {{+ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186923	187017	
==>ne 292 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) < 0) {\n    {{+ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187853	187947	
==>ne 292 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) < 0) {\n    {{+ <==
4	/Users/nnunley/parrot/config/init/optimize.pm	547	658	
==>tion';

@args = qw(verbose optimize);

sub runstep
{
    my ($self, $conf) = @_;

    # A plain --optimize means <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29384	29494	
==>ying terminal: [' . $self->describe
					  . ']},
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $r <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31481	31591	
==>ying terminal: [' . $self->describe
					  . ']},
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $r <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27281	27384	
==>ying terminal: [' . $self->describe
					  . ']}, Parse::RecDescent::_tracefirst($text),
					  q{' . $r <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591563	591653	
==>{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592773	592863	
==>{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593983	594073	
==>{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595194	595284	
==>{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726012	726236	
==>ops\"\n  {{\@1}} = string_copy(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726774	726998	
==>ops\"\n  {{\@1}} = string_copy(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741992	742216	
==>ops\"\n  {{\@1}} = string_copy(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	4399	4503	
==>built_ins{$name}}) {
    my ($label, $op, @args) = @$_;
    $self->_add_inst($label, $op, [ @args ]);
  } <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	46729	46842	
==>"";
		my @components = ();
		if ($grammar =~ m/$COMMENT/gco)
		{
			_parse("a comment",0,$line);
			next;
		}
		el <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1934	2170	
==>ostrophe
                last;
            s/^\\a//
                and $str .= "\a",      # bell
                last;
            s/^\\b//
                and $str .= "\b",      # backspace
                last;
            s/^ <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3448	3684	
==>ostrophe
                last;
            s/^\\a//
                and $str .= "\a",      # bell
                last;
            s/^\\b//
                and $str .= "\b",      # backspace
                last;
            s/^ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17744	17887	
==>1]{'start_line'},
          "=for without a target?"
        );
        next;
      }
      DEBUG > 1 and
       print "Faking out a =for $targe <==
4	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	17382	17476	
==>oto\s+OFFSET\((.*)\)/{{+=$1}}/mg;
        #s/goto\s+NEXT\(\)/{{+=$op_size}}/mg;	#not supported- <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	2106	2249	
==>', 'S', $1);
      $text = $2;
      next;
    }

    #
    # Declarators:
    #

    if ($text =~ m{^(module)(?!\w)(.*)$}) {
      push @tokens <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1722	1823	
==>($prompt, $prog ? $prog : $conf->data->get($util));
    }

    my ($stdout, $stderr, $ret) = capture_o <==
4	/Users/nnunley/parrot/config/inter/make.pm	1596	1697	
==>($prompt, $prog ? $prog : $conf->data->get($util));
    }

    my ($stdout, $stderr, $ret) = capture_o <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1736	1837	
==>($prompt, $prog ? $prog : $conf->data->get($util));
    }

    my ($stdout, $stderr, $ret) = capture_o <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	20445	20568	
==>pmcname.h", 1);

        my $fh = open_file( "<", $file );
        while (<$fh>) {
            if (/^(?:extern\s+)?\w+\*?\s+ <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	5298	5410	
==>OAD_EXT";
        }

    }
}
else {
    die "invalid command '$mode'\nmust be one of generate, compile, linklibs, <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	5509	5621	
==>OAD_EXT";
        }

    }
}
else {
    die "invalid command '$mode'\nmust be one of generate, compile, linklibs, <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	1435	1535	
==>apper\n";
}

# Pre and post load operation hooks.
sub pre_load {
	die "pre_load not implemented for c <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1570	1659	
==>C}]
if ${PTEMP0} == "" goto NOWT_TO_PROPOGATE
stack_depth = prop_stack_depth[${PC}]
NOWT_T <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2181	2270	
==>isa($right, 'Jako::Construct::Expression::Value::Identifier')) {
    my $right_sym = $bloc <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2139	2228	
==>isa($right, 'Jako::Construct::Expression::Value::Identifier')) {
    my $right_sym = $bloc <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2061	2150	
==>isa($right, 'Jako::Construct::Expression::Value::Identifier')) {
    my $right_sym = $bloc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90225	90468	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91078	91321	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91932	92175	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	6485	6590	
==>s to the following address
    my @output4;
    foreach my $stmt (@output3) {
	if (ref $stmt->{code} && $s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19068	19340	
==>LS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19844	20116	
==>LS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20622	20894	
==>LS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21422	21694	
==>LS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572432	572696	
==>JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573341	573605	
==>JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574251	574515	
==>JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575054	575318	
==>JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1044	1150	
==>my $push_num = 0;
	
	# Emit initial code.
	my $pir = <<'PIR';
# Get current stack types array size.
${ITEMP <==
4	/Users/nnunley/parrot/config/inter/encoding.pm	1454	1558	
==>ncodings/$encoding.c \$(NONGEN_HEADERS)


END
    }

    # build list of libraries for link line in Makef <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	23048	23150	
==>pe'
	P1["type"]= "USER"
	P1["storage"]= P0
	P2["$var"]= P1
DIMTYPE
			if ($syms[NEXT] eq ",") {
				fee <==
4	/Users/nnunley/parrot/Configure.pl	8512	8607	
==>tem to figure out
how to build Parrot. The process is completely automated, unless you passed in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579704	579992	
==>name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_AD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581009	581297	
==>name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_AD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582314	582602	
==>name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_AD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583620	583908	
==>name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_AD <==
4	/Users/nnunley/parrot/editor/kate_syntax.pl	4270	4368	
==>ent" context="#stay" String="[^\=]*" />
          <RegExpr attribute="Comment" context="#pop" Strin <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	7065	7162	
==>src_stem;
    if (needs_build("$dest_stem$O", "$src_stem.c")) {
        run(compile_cmd("$dest_ste <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5359	5456	
==>src_stem;
    if (needs_build("$dest_stem$O", "$src_stem.c")) {
        run(compile_cmd("$dest_ste <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	7276	7373	
==>src_stem;
    if (needs_build("$dest_stem$O", "$src_stem.c")) {
        run(compile_cmd("$dest_ste <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236620	236875	
==>@1}} = string_compare(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237502	237757	
==>@1}} = string_compare(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238384	238639	
==>@1}} = string_compare(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	13833	13947	
==>rce = *STDIN{IO}
  } elsif(ref(\$source) eq 'GLOB') { # stet
  } elsif(ref($source)           ) { # stet
  } elsif( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459935	460207	
==>e by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460923	461195	
==>e by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461911	462183	
==>e by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
4	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	722	841	
==>ock_begin = qr{ ( ^ \.sub | ^push_eh) }smx;

my $block_end = qr{
  (
    ^\.end$
    |
    ^clear_eh$
  )
}smx;

my $bla <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	24559	24683	
==>n $expr;
}

sub BuildLocalVariable {
    my ( $parser, $idf ) = @_;
    my @opcodes = ();
    my $defn    = $parser->YY <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1173	1269	
==>and not UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    B <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1201	1297	
==>and not UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    B <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	873	969	
==>and not UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    B <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4700	4853	
==>)\n); 
    }
    else {
        $captures = "";
    }
    return qq(
        .sub _PGE_Test
            .local pmc p6rule_compile
            load_bytecod <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1943	2033	
==>ymbol($left->value);
    $self->SYNTAX_ERROR("Expression involves unknown variable %s.", $l <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1901	1991	
==>ymbol($left->value);
    $self->SYNTAX_ERROR("Expression involves unknown variable %s.", $l <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1823	1913	
==>ymbol($left->value);
    $self->SYNTAX_ERROR("Expression involves unknown variable %s.", $l <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	31945	32048	
==>diately!
WHOA
    }
}

=item B<_my_exit>

  _my_exit($exit_num);

Perl seems to have some trouble with e <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	835	922	
==>alue!" unless UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess "Op <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	847	934	
==>alue!" unless UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess "Op <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	759	845	
==>se Parrot::Docs::Section::C;
use Parrot::Docs::Section::Ops;
use Parrot::Docs::Section: <==
4	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	801	907	
==>utput (@outputs) {
    if (! open(OUTPUT, $output)) {
        print "$output does not exist; remaking\n" if <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31851	31946	
==>f->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my $parameters = $method->{par <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33428	33523	
==>f->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my $parameters = $method->{par <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40485	40580	
==>f->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my $parameters = $method->{par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072479	1072594	
==>NTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074664	1074779	
==>NTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076849	1076964	
==>NTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079035	1079150	
==>NTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	268272	268513	
==>=> "inline",
                  "CODE" => 312,
                  "ARGS" => [
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 816 \"src/ops/cmp.ops\"\n    {{ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2001	2094	
==>nvolves unknown variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->typ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1959	2052	
==>nvolves unknown variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->typ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1881	1974	
==>nvolves unknown variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->typ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542434	542853	
==>RGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 627,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071109	1071484	
==>=> 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073293	1073668	
==>=> 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075478	1075853	
==>=> 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077663	1078038	
==>=> 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579461	579552	
==>, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  nam <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580766	580857	
==>, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  nam <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582071	582162	
==>, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  nam <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583377	583468	
==>, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  nam <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377478	377616	
==>"
                            ],
                  "BODY" => "#line 432 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378362	378500	
==>"
                            ],
                  "BODY" => "#line 432 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379246	379384	
==>"
                            ],
                  "BODY" => "#line 432 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380131	380269	
==>"
                            ],
                  "BODY" => "#line 432 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(interprete <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17386	17485	
==>s is wrong"
	t=t+1
loop until t>1

' Function test:  A, 3, 90
print chr$(65)
print int(3.1415)
print <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284781	284871	
==>Y" => "#line 913 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285658	285748	
==>Y" => "#line 913 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286535	286625	
==>Y" => "#line 913 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	1138	1283	
==>=> $left,
    OP        => $op,
    RIGHT     => $right,

    CONTENT   => [ ]
  }, $class;

  $block->push_content($self);

  return $self;
}


1 <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	665	810	
==>=> $left,
    OP        => $op,
    RIGHT     => $right,

    CONTENT   => [ ]
  }, $class;

  $block->push_content($self);

  return $self;
}


1 <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	665	810	
==>=> $left,
    OP        => $op,
    RIGHT     => $right,

    CONTENT   => [ ]
  }, $class;

  $block->push_content($self);

  return $self;
}


1 <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	1154	1298	
==>=> $left,
    OP        => $op,
    RIGHT     => $right,

    CONTENT   => [ ]
  }, $class;

  $block->push_content($self);

  return $self;
}

1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111276	111386	
==>ops\"\n  {{\@1}} = string_bitwise_or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "L <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112168	112278	
==>ops\"\n  {{\@1}} = string_bitwise_or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "L <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113060	113170	
==>ops\"\n  {{\@1}} = string_bitwise_or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "L <==
4	/Users/nnunley/parrot/lib/Test/More.pm	32934	33042	
==>ref $b ? 1 : $a cmp $b } @$a2]
    );
}

=back


=head2 Extending and Embedding Test::More

Sometimes the Tes <==
4	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1992	2101	
==>(.*),(.*)\)\+(.*)$//;

	#my $rotate = "(($2 << $3) || (($2 >> (32 - $3)) & (1 << $2) - 1)))"; 
	$c = "\$r = $2 <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2250	2344	
==>{STEMP1}
${STACK$register_num} = ${STEMP0}

# Decrement stack height.
dec stack_depth
PIR
		$pi <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3502	3596	
==>{STEMP1}
${STACK$register_num} = ${STEMP0}

# Decrement stack height.
dec stack_depth
PIR
		$pi <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	5603	5694	
==>method' in C<OtherClass>.

=item C<SELF.method(a,b,c)>

Calls the vtable method 'method' usi <==
4	/Users/nnunley/parrot/lib/Parrot/Op.pm	8317	8416	
==>);
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::OpsFile>

=item C<Parrot::OpTrans>

=item F<t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388054	388366	
==>"FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 452, <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21990	22084	
==>equire_open_paren;

        $left  = Jako::Construct::Expression::Value->new($block, $self->req <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22923	23017	
==>equire_open_paren;

        $left  = Jako::Construct::Expression::Value->new($block, $self->req <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24570	24663	
==>equire_open_paren;
        $left  = Jako::Construct::Expression::Value->new($block, $self->req <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	1195	1297	
==>erl6 code back into APL.

.sub "__load_pirtable" :load
    $P0 = new .Hash
    store_global "APL", "%pi <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1790	1888	
==>stdout, $stderr, $ret) = capture_output($prog, '--version');

    # don't override the user even if <==
4	/Users/nnunley/parrot/config/inter/make.pm	1664	1762	
==>stdout, $stderr, $ret) = capture_output($prog, '--version');

    # don't override the user even if <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1804	1902	
==>stdout, $stderr, $ret) = capture_output($prog, '--version');

    # don't override the user even if <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660149	660402	
==>e->exists_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661071	661324	
==>e->exists_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	2200	2305	
==>me = map {($_,1)}
    qw( Ref default Null delegate SharedRef deleg_pmc );

sub class_name {
    my ($self <==
4	/Users/nnunley/parrot/Configure.pl	691	782	
==>setting.

=item C<--verbose=2>

Tells Configure.pl to output information about i<every> sett <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1102	1209	
==>ram:
    # default -> probe -> environment -> option -> ask
    $prog ||= $conf->options->get($util);
    $p <==
4	/Users/nnunley/parrot/config/inter/make.pm	923	1030	
==>ram:
    # default -> probe -> environment -> option -> ask
    $prog ||= $conf->options->get($util);
    $p <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1099	1206	
==>ram:
    # default -> probe -> environment -> option -> ask
    $prog ||= $conf->options->get($util);
    $p <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343601	343899	
==>=> 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344842	345140	
==>=> 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346084	346382	
==>=> 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347326	347624	
==>=> 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727009	727316	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exchange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "io"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727807	728114	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exchange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "io"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	728604	728911	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exchange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "io"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729398	729705	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exchange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "io"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	907	999	
==>alue") unless UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = ble <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	745	837	
==>alue") unless UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = ble <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	898	990	
==>alue") unless UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = ble <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	787	879	
==>alue") unless UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = ble <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73231	73573	
==>e1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74833	75175	
==>e1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76435	76777	
==>e1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78038	78380	
==>e1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099122	1099260	
==>n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100320	1100458	
==>n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101518	1101656	
==>n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102717	1102855	
==>n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5688	5785	
==>C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot::OpTrans::Compile <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3264	3361	
==>C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot::OpTrans::Compile <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2992	3089	
==>C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot::OpTrans::Compile <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	6444	6541	
==>C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot::OpTrans::Compile <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	816470	816635	
==>AME" => "clearn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 923, <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	19558	19658	
==>ref) = $ld1pos;	# HAVE TO DO THIS BECAUSE LOOKAHEAD BROKEN
	my ($ldel1, $rdel1) = ("\Q$1","\Q$1");
	i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048247	1048344	
==>next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null global.\");\n\n    next = {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049171	1049268	
==>next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null global.\");\n\n    next = {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443634	443775	
==>spatch_p_psp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444649	444790	
==>spatch_p_psp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3047	3145	
==>END_PM';
# DO NOT EDIT THIS FILE
#
# Automatically generated by config/gen/core_pmcs.pm

package Pa <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	6115	6210	
==>e)>

Read the whole file $file_name and return the content as a string.

=item C<convert_line_en <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16361	16465	
==>ct::Expression::Value->new($block, $self->forth);
      my $op    = $self->forth->text;
      my $right = <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17132	17236	
==>ct::Expression::Value->new($block, $self->forth);
      my $op    = $self->forth->text;
      my $right = <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17937	18041	
==>ct::Expression::Value->new($block, $self->forth);
      my $op    = $self->forth->text;
      my $right = <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	67681	67783	
==>ON/gco   )
		{
			_error("Unexpected colon encountered", $line);
			_hint("Did you mean \"|\" (to start <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	349	451	
==>use Carp;

use base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $iden <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	364	466	
==>use Carp;

use base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $iden <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	364	466	
==>use Carp;

use base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $iden <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	2771	2870	
==>: $!";
    return $sum;
}

=item C<copy_if_diff($from, $to, $ignorePattern)>

Copies the file specif <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	624593	624741	
==>"pc"
                            ],
                  "BODY" => "#line 247 \"src/ops/pic.ops\"\n    Parrot_MIC *mic;\n    Parrot_PIC_lru *lru;\n    v <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	36183	36285	
==>ber    how many failed (including missing or extras)

If you fail more than 254 tests, it will be repor <==
4	/Users/nnunley/parrot/lib/Test/More.pm	34254	34356	
==>ber    how many failed (including missing or extras)

If you fail more than 254 tests, it will be repor <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	3049	3151	
==>ber    how many failed (including missing or extras)

If you fail more than 254 tests, it will be repor <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950602	950866	
==>s_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951562	951826	
==>s_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952522	952786	
==>s_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953483	953747	
==>s_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579678	579969	
==>class(interpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580983	581274	
==>class(interpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582288	582579	
==>class(interpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583594	583885	
==>class(interpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	3973	4099	
==>m = $init undef;$cmt\n";
        }
        elsif( $type =~ /^\w+(?:::\w+)*$/ ){
            $out .= "    if (defined(\$init{'$n <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	37052	37150	
==>mE<gt>.

This program is free software; you can redistribute it and/or 
modify it under the same te <==
4	/Users/nnunley/parrot/lib/Test/More.pm	37461	37559	
==>mE<gt>.

This program is free software; you can redistribute it and/or 
modify it under the same te <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	6421	6519	
==>mE<gt>.

This program is free software; you can redistribute it and/or 
modify it under the same te <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	14726	14847	
==>_body, '{');
        die "Empty MMD body near '$total_body'"
            if (!$body_part);
        $body_part = substr($bo <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6481	6573	
==>el_defined($syms[CURR]);
		push @{$code{$seg}->{code}}, "$labels{$syms[CURR]}:   # For user b <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8761	8853	
==>el_defined($syms[CURR]);
		push @{$code{$seg}->{code}}, "$labels{$syms[CURR]}:   # For user b <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	267	358	
==>ST');

=head1 DESCRIPTION

This C<Parrot::IO::File> subclass adds a few documentation-relate <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	3298	3411	
==>100 = cmp_num $N100, 0.0
    %1 = $I100
END_PIR
    $P0[unicode:"monadic:\x{f7}"] =  <<"END_PIR"            # reci <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28795	28890	
==>shname { $_[0]->{hashname} = '__STRING' . ++$_[1]->{strcount} . '__'; }

sub issubrule { undef } <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30875	30970	
==>shname { $_[0]->{hashname} = '__STRING' . ++$_[1]->{strcount} . '__'; }

sub issubrule { undef } <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	61128	61215	
==>%c">

C<extract_bracketed>, C<extract_quotelike> or C<extract_codeblock> encountered
a c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800318	800638	
==>"i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 903,
                  "ARGS" => [
                              "p",
                              "k",
                              "s"
                            ],
                  "BODY" => "#line 467 \"src/op <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	1191	1305	
==>];
	my $remainderpos = $_[2];
	if ($wantarray)
	{
		my @res;
		while (my ($from, $len) = splice @_, 0, 2)
		{
			pu <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	707	808	
==>y @abstract_items = ();
	
	foreach my $file ($dir->files_with_suffix('pmc'))
	{
	    my $code = $file- <==
4	/Users/nnunley/parrot/tools/build/c2str.pl	4991	5091	
==>processor
  next unless s/.*\b_S\b//;

  my $str = extract_bracketed $_, '(")';

  print output_strin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072969	1073358	
==>" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075154	1075543	
==>" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077339	1077728	
==>" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" <==
4	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	5479	5647	
==>ec->splitpath( $_ ) )[1];
                         $dir =~ s!\.svn/$!!;
                         $dir => 1 
                       } keys %{ ExtUtils::Manifest::manifind <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5053	5177	
==>return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  my $block = $self->block;
  my $dest  = $se <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3116	3240	
==>return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  my $block = $self->block;
  my $dest  = $se <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7152	7275	
==>"  " x (@stack-1);
            if ($1 ne $indent) {
                error($file, $line, "Improper indenting for \"$_\"\n(sho <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7459	7582	
==>"  " x (@stack-1);
            if ($1 ne $indent) {
                error($file, $line, "Improper indenting for \"$_\"\n(sho <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	3824	3970	
==>out .= "    \$r->$elem = $init {};$cmt\n";
            $hashes{$name}++;
        }
        elsif ( $type eq '$') {
            $out .= "    \$r->$e <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16252	16354	
==>ssion::Value::Identifier->new($block, $token);

      $self->require_assign;

      my $left  = Jako::C <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17023	17125	
==>ssion::Value::Identifier->new($block, $token);

      $self->require_assign;

      my $left  = Jako::C <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17828	17930	
==>ssion::Value::Identifier->new($block, $token);

      $self->require_assign;

      my $left  = Jako::C <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1918	2041	
==>pears to be
    # broken
    if ($ret == -1 and !$conf->options->get('ask')) {

        # fall back to default
        $self <==
4	/Users/nnunley/parrot/config/inter/make.pm	1792	1915	
==>pears to be
    # broken
    if ($ret == -1 and !$conf->options->get('ask')) {

        # fall back to default
        $self <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1932	2055	
==>pears to be
    # broken
    if ($ret == -1 and !$conf->options->get('ask')) {

        # fall back to default
        $self <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	2599	2705	
==>>start_element({ Name => 'sub', Attributes => { name => $name, type => $type } });
  }
  else {
    $handle <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2576	2691	
==>Libs =~ s/blib/..\\blib/g;
        $extraLibs =~ s/\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2885	3000	
==>Libs =~ s/blib/..\\blib/g;
        $extraLibs =~ s/\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2680	2795	
==>Libs =~ s/blib/..\\blib/g;
        $extraLibs =~ s/\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072011	1072135	
==>INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074196	1074320	
==>INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076381	1076505	
==>INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078567	1078691	
==>INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18057	18172	
==>y @opcodes = ();
    my $key = BuildLiteral( $parser, $meth, 'key' );
    push @opcodes, @{ $key->[1] };
    my $ <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	7521	7620	
==>erp *interpreter, struct call_state *st, int n)
{
    assert(n < st->src.n);
    Parrot_fetch_arg_nc <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	7704	7803	
==>erp *interpreter, struct call_state *st, int n)
{
    assert(n < st->src.n);
    Parrot_fetch_arg_nc <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	7886	7985	
==>erp *interpreter, struct call_state *st, int n)
{
    assert(n < st->src.n);
    Parrot_fetch_arg_nc <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2662	2770	
==>t *cur_opcode asm ("esi") = cur_op;
    register char *   _reg_base   asm ("edi");
#else
    opcode_t *cur_op <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3231	3339	
==>t *cur_opcode asm ("esi") = cur_op;
    register char *   _reg_base   asm ("edi");
#else
    opcode_t *cur_op <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	7045	7148	
==>^((u?int(8|16|32|64))|float(32|64)|jumptable)$/ ||
                      /^t(string|standalonesig|valuet <==
4	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	5519	5619	
==>mplementation is working correctly.  The same
checksum can also be calculated in OO style:

    use D <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154764	154940	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155668	155844	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156572	156748	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157477	157653	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\ <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	1646	1756	
==>k until using
			view
			wait while wend width window write
			keys
		);

sub dumpq {
	print "Upcoming: $type[0 <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2749	2843	
==>type;
  $self->INTERNAL_ERROR("No type for left!")  unless defined $left_type;
  $self->INTERNA <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2515	2609	
==>type;
  $self->INTERNAL_ERROR("No type for left!")  unless defined $left_type;
  $self->INTERNA <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2437	2531	
==>type;
  $self->INTERNAL_ERROR("No type for left!")  unless defined $left_type;
  $self->INTERNA <==
4	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	961	1072	
==>:Test::run_command( 
            "$PConfig{perl} languages/urm/urmc -s languages/$lang_f",
            CD => '.. <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	820	912	
==>>const_table->constants[i]
END
}

=item C<pc($pc)>

=item C<pc()>

Sets/gets the current posi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443600	443687	
==>ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444615	444702	
==>ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	246826	247130	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "and",
                  "FLAGS" => ":base_core", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247689	247993	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "and",
                  "FLAGS" => ":base_core", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	248553	248857	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "and",
                  "FLAGS" => ":base_core", <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	9298	9410	
==>de;
    close $CODE;

    return;
}

# We can inherit from Test::More, so we do it.
*plan = \&Test::More::plan;
* <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610386	610689	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":obje <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611288	611591	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":obje <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612191	612494	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":obje <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613097	613400	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":obje <==
4	/Users/nnunley/parrot/config/auto/gdbm.pm	654	771	
==>erbose');

    my $cc        = $conf->data->get('cc');
    my $libs      = $conf->data->get('libs');
    my $linkflags <==
4	/Users/nnunley/parrot/config/auto/gmp.pm	595	712	
==>erbose');

    my $cc        = $conf->data->get('cc');
    my $libs      = $conf->data->get('libs');
    my $linkflags <==
4	/Users/nnunley/parrot/config/auto/readline.pm	607	724	
==>erbose');

    my $cc        = $conf->data->get('cc');
    my $libs      = $conf->data->get('libs');
    my $linkflags <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	25149	25258	
==>[A-Z]$/s or $new_letter) {
      DEBUG > 2 and print " $new_letter isn't a valid thing to entend.\n";
      $s <==
4	/Users/nnunley/parrot/config/auto/jit.pm	5487	5641	
==>_run() !~ /ok/) {
                $conf->data->set(jit_i386 => 'fcomip');
            }
            cc_clean();
        }
    } else {
        $conf->data- <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6485	6592	
==>i
    j = P_arg_0[i]
    ${ITEMP0} = ${NEXTPC} + j
    prop_type_state[${ITEMP0}] = ${STYPES}
    prop_stack <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4423	4530	
==>i
    j = P_arg_0[i]
    ${ITEMP0} = ${NEXTPC} + j
    prop_type_state[${ITEMP0}] = ${STYPES}
    prop_stack <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	32247	32336	
==>_generate_identifier {
}

sub _op_construct_identifier {
}

#----------------------------- <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3130	3283	
==>ata->{INPUT} ) {

        for ( $parser->YYData->{INPUT} ) {

            s/^'//
                and return ( $type, $str );

            s/^([^'\\ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1111	1205	
==>n::Value');
  confess "Right is not Value!" if defined $right and not UNIVERSAL::isa($right, 'J <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1139	1233	
==>n::Value');
  confess "Right is not Value!" if defined $right and not UNIVERSAL::isa($right, 'J <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	811	905	
==>n::Value');
  confess "Right is not Value!" if defined $right and not UNIVERSAL::isa($right, 'J <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634742	634838	
==>t){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new_from_st <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635860	635956	
==>t){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new_from_st <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636978	637074	
==>t){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new_from_st <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638097	638193	
==>t){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new_from_st <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8667	8811	
==>d	do {
#DBG>				print STDERR "**End of Error recovery.\n";
#DBG>				$dbgerror=0;
#DBG>			};

			    push(@$stack,
                     [ $$ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8276	8414	
==>d	do {
#DBG>				print STDERR "**End of Error recovery.\n";
#DBG>				$dbgerror=0;
#DBG>			};

			    push(@$stack,
                     [ $$ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11304	11394	
==>depth
${DEST0} = concat ${STEMP0}
pre_call_NO_RETURN_${CURIC}:

# Finished.
goto PRE_CALL_E <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8490	8580	
==>depth
${DEST0} = concat ${STEMP0}
pre_call_NO_RETURN_${CURIC}:

# Finished.
goto PRE_CALL_E <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785031	785262	
==>"ARGS" => [
                              "p",
                              "kic",
                              "p"
                            ],
                  "BODY" => "#line 392 \"src/ops/set.ops\"\n    {{\@1}}->vtable->se <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	2684	2801	
==>:
    #

    if ($text =~ m{^(int|num|pmc|str)(?!\w)(.*)$}) {
      my $type = uc substr($1, 0, 1);
      push @tokens <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561889	561988	
==>, {{\@3}});\n  if (!{{\@1}}) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Met <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562973	563072	
==>, {{\@3}});\n  if (!{{\@1}}) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Met <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	3158	3261	
==>files

    generate_dump($_) foreach (@pmcs);
    generate_c($_) foreach (@pmcs);

    my ($group_files, <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	3262	3365	
==>files

    generate_dump($_) foreach (@pmcs);
    generate_c($_) foreach (@pmcs);

    my ($group_files, <==
4	/Users/nnunley/parrot/lib/Parrot/Op.pm	6167	6265	
==>}}/   $trans->access_arg($self->arg_type($1 - 1), $1, $self); /me;

    s/{{=0,=([^{]*?)}}/   $tran <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2650	2746	
==><$2>", "/$1", => "</$2>" ) : die "Funky $_"
  } @_;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320037	320311	
==>)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320807	321081	
==>)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322388	322662	
==>)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323160	323434	
==>)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501003	501243	
==>"src/ops/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501742	501982	
==>"src/ops/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502480	502720	
==>"src/ops/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503219	503459	
==>"src/ops/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516676	516913	
==>"src/ops/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517415	517652	
==>"src/ops/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518153	518390	
==>"src/ops/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518892	519129	
==>"src/ops/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	899	1015	
==>oices: run in one of:
    #  languages
    #  languages/tcl
    #  languages/tcl/t

    my $path_to_parrot = $INC{"Pa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231154	231258	
==>DY" => "#line 592 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? + <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232058	232162	
==>DY" => "#line 592 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? + <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232962	233066	
==>DY" => "#line 592 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? + <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	231	328	
==>nt.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	221	318	
==>nt.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	231	328	
==>nt.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	231	328	
==>nt.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867202	867293	
==>len;\n  len = string_length(interpreter, {{\@2}});\n  {{\@1}} = string_substr(interpreter, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868168	868259	
==>len;\n  len = string_length(interpreter, {{\@2}});\n  {{\@1}} = string_substr(interpreter, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869134	869225	
==>len;\n  len = string_length(interpreter, {{\@2}});\n  {{\@1}} = string_substr(interpreter, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870101	870192	
==>len;\n  len = string_length(interpreter, {{\@2}});\n  {{\@1}} = string_substr(interpreter, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70292	70550	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "loadlib",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71060	71318	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "loadlib",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	5664	5797	
==>mc (@pmcs) {
        our $class;
        require "$pmc.dump";
 
        # there can be many libs
        my %libs = %{ $class->{flags} <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	5875	6008	
==>mc (@pmcs) {
        our $class;
        require "$pmc.dump";
 
        # there can be many libs
        my %libs = %{ $class->{flags} <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14535	14667	
==>r' => 35,
			'primary' => 28
		}
	},
	{#State 25
		DEFAULT => -78
	},
	{#State 26
		DEFAULT => -82
	},
	{#State 27
		ACTIO <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1625	1716	
==>right;

  my $dest_sym = $block->find_symbol($dest->value);
  $self->SYNTAX_ERROR("Assigning <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1583	1674	
==>right;

  my $dest_sym = $block->find_symbol($dest->value);
  $self->SYNTAX_ERROR("Assigning <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1505	1596	
==>right;

  my $dest_sym = $block->find_symbol($dest->value);
  $self->SYNTAX_ERROR("Assigning <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8111	8250	
==>fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallb <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8893	9032	
==>fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallb <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7764	7903	
==>fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallb <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8553	8692	
==>fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallb <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200029	200144	
==>3 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200926	201041	
==>3 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201823	201938	
==>3 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	5644	5757	
==>T\((\d)\)\);/load_nc(jit_info->native_ptr, ISR$1, ECONST($2));/g;
            }

            $asm =~ s/PUSH_MAPPED <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496976	497241	
==>floatval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497846	498111	
==>floatval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498716	498981	
==>floatval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	37980	38102	
==>uildFunctionBody {
    my ( $parser, $params, $block ) = @_;
    my @opcodes1 = ();
    my @opcodes2 = ();
    if ( $pa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947195	947476	
==>\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948097	948378	
==>\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957644	957925	
==>\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958549	958830	
==>\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90819	91077	
==>"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91673	91931	
==>"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92527	92785	
==>"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Test/More.pm	21115	21220	
==>y be avoided when no_plan is in use.
        _carp "skip() needs to know \$how_many tests are in the block <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067167	1067299	
==>2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068353	1068485	
==>2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069539	1069671	
==>2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070726	1070858	
==>2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598177	598410	
==>, {{\@2}} ));\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599224	599457	
==>, {{\@2}} ));\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	4765	4898	
==>rence *s.
        $text =~ s|\b\s*\*\s+\b| \*|gs;
        
        esc($text);
    }
    
    print {$self->{'output_fh'}} $text;
}

= <==
4	/Users/nnunley/parrot/tools/build/ops2pm.pl	1556	1654	
==><*_ops.c> file).

You can see evidence of this by the way this code reaches in to the
internal C<OP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240213	240495	
==>\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241161	241443	
==>\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242109	242391	
==>\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243058	243340	
==>\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852058	852417	
==>se_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 967,
                  "ARGS" => [
                              "s",
                              "sc" <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	4062	4173	
==>s = ref($_[0]) || $_[0];
  if($class eq __PACKAGE__) {
    return "$class $VERSION";
  } else {
    my $v = $cla <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76747	76841	
==>$::RD_TRACE+10<length($_[0]))
	{
		my $count = length($_[0]) - $::RD_TRACE;
		return substr($_[ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77058	77152	
==>$::RD_TRACE+10<length($_[0]))
	{
		my $count = length($_[0]) - $::RD_TRACE;
		return substr($_[ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748885	749109	
==>number_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749669	749893	
==>number_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755185	755409	
==>number_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755972	756196	
==>number_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/languages/dotnet/Configure.pl	123	319	
==>(C) Jonathan Worthington 2005-2006
# #############################################################################
# Configure Script
# ################
# This file detects various configuratio <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	15914	16063	
==>3,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			"<=" => 85,
			'OR <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29767	29916	
==>3,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			"<=" => 85,
			'OR <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30282	30431	
==>3,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			"<=" => 85,
			'OR <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36828	36977	
==>3,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			"<=" => 85,
			'OR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714808	715029	
==>ftspace(interpreter, io, 1);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715731	715952	
==>ftspace(interpreter, io, 1);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716676	716897	
==>ftspace(interpreter, io, 1);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	22634	22748	
==>me:\n";

    # Emit trace code.
    $pir .= <<PIR;
if trace != 2 goto NO_TRACE_$name
printerr "    $name STS: "
i = <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7452	7625	
==>le
            and do {
                    $lhs =~ /^\@[0-9]+\-([0-9]+)$/
                or  die "In line rule name '$lhs' ill formed: ".
                        "repor <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7109	7278	
==>le
            and do {
                    $lhs =~ /^\@[0-9]+\-([0-9]+)$/
                or  die "In line rule name '$lhs' ill formed: ".
                        "repor <==
4	/Users/nnunley/parrot/config/auto/perldoc.pm	1194	1341	
==>/) {
            $version = 0;
            $self->set_result('failed');
        }
    } else {
        $self->set_result('no');
    }
    unlink "c9 <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	9279	9407	
==>_ERROR %%
zero:
    $N1 = op2 * op2
    $N1 = 1 - $N1
    $N1 = sqrt $N1
    .return ($N1)
one:
    $N1 = sin op2
    .return ($N <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722433	722546	
==>IO_putps(interpreter, io, s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723462	723575	
==>IO_putps(interpreter, io, s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724506	724619	
==>IO_putps(interpreter, io, s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABE <==
4	/Users/nnunley/parrot/config/gen/platform.pm	44	134	
==>on.
# $Id: /parrot/config/gen/platform.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6831	6974	
==>End of Error recovery.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push(@$stack,[ $act, $$value ]);

					$$token ne <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6514	6649	
==>End of Error recovery.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push(@$stack,[ $act, $$value ]);

					$$token ne <==
4	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	1994	2118	
==>dl/bounce_parrot_logo.pir             [devel]
    examples/sdl/lcd/clock.pir                      [devel]
    examples/sdl/mo <==
4	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	1553	1675	
==>g:               'F' | 'T'

# We need the len of the macro name, 
# because we extract is as a substring in the next line
n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	3873	4030	
==>{{=this}};\t/* force this being a branch op */\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	10642	10760	
==>xtra_preamble_ref},
            "t_$temp_num = (long)GET_NCI_I($reg_num);";
        return "t_$temp_num";
    };
    /I <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22560	22676	
==>$2 eq 'NAME' )
    ) {
      # Well, it fits a fallback pattern
      DEBUG and print "Seems to match NAMEless patter <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11721	11822	
==>lves the POD link. Perl modules are converted to paths.

=cut

sub resolve_pod_page_link 
{
    my $se <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980301	980668	
==>GS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1100,
                  "ARGS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048409	1048664	
==>}}, next);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049333	1049588	
==>}}, next);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	538790	539013	
==>/ops/math.ops\"\n  {{\@1}} = tan((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3874	3982	
==>@oplibs);
	}
} 
elsif ($mode eq 'copy') {
	# Copy *.so -> destination, where destination is the first
    # a <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676033	676143	
==>s\"\n    {{\@1}}->vtable->unshift_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676813	676923	
==>s\"\n    {{\@1}}->vtable->unshift_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  " <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4201	4303	
==>_.'::'}{_DBParse})#Already loaded ?
		and	return;
	}
	my($fname)=__FILE__;
	my(@drv);
	open(DRV,"< <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3986	4083	
==>_.'::'}{_DBParse})#Already loaded ?
		and	return;
	}
	my($fname)=__FILE__;
	my(@drv);
	open(DRV,"< <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960995	961081	
==>w_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961957	962043	
==>w_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962919	963005	
==>w_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963882	963968	
==>w_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	27785	27892	
==>y($self) = shift;

    return map { $_->{'ok'} } @{ $self->{Test_Results} };
}

=item B<details>

    my @te <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7224	7328	
==>tack_depth
${DEST0} = concat ${STEMP0}
PIR
	}

	return $pir;
}

sub post_load($) {
	my $self = shift;
	my <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5046	5150	
==>tack_depth
${DEST0} = concat ${STEMP0}
PIR
	}

	return $pir;
}

sub post_load($) {
	my $self = shift;
	my <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	17058	17153	
==>$classname = $self->{class};
    return dynext_load_code($classname, $classname => {});
}

=item <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	8645	8763	
==>~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~

sub get_title_short {  shift->get_short_title(@_)  } # alias

su <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10052	10165	
==>conf->options->get('verbose');

    if (defined($_[0]) && length($_[0])) {
        local $" = ' ';
        _run_co <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10633	10746	
==>conf->options->get('verbose');

    if (defined($_[0]) && length($_[0])) {
        local $" = ' ';
        _run_co <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2116	2209	
==>{STEMP0}

# Increment dtypes index.
inc ${ITEMP0}
PIR
		$pir =~ s/\$register_num/$register_num <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	6286	6428	
==>,
             'i_systime' => 'define',
             'i_systimek' => undef,
             'i_systimes' => 'define',
             'i_systypes' => <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	660	744	
==>t is not!" unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identif <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	739	823	
==>t is not!" unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identif <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	548	632	
==>t is not!" unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identif <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	2018	2221	
==>{
                  "JUMP" => 0,
                  "NAME" => "noop",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22105	22221	
==>=> $_[1],
		"lookahead" => $_[2],
		"line"      => $_[3],
		"name"      => $_[4],
	}, $class;
}

sub code($$$$)
{
	my <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5539	5644	
==>tateno=$$stack[-1][0];
        $actions=$$states[$stateno];

#DBG>	print STDERR ('-' x 40),"\n";
#DBG> <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5272	5373	
==>tateno=$$stack[-1][0];
        $actions=$$states[$stateno];

#DBG>	print STDERR ('-' x 40),"\n";
#DBG> <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067165	1067290	
==>mp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experim <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068351	1068476	
==>mp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experim <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069537	1069662	
==>mp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experim <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070724	1070849	
==>mp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experim <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654845	655172	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656563	656890	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657487	657814	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658405	658732	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143438	143605	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 84 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144366	144533	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 84 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145294	145461	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 84 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	36958	37100	
==>bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "throw",
                  "FLAGS" => <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12091	12210	
==>] eq "PUN") {
			my $s=$syms[CURR];
			while(1) {
				feedme();
				if ($syms[CURR] eq ",") {
					push @ld, { type => " <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21895	21999	
==>(1)->is_if or $self->get(1)->is_unless) {
        $cond = $self->forth->text;

        $self->require_ope <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22828	22932	
==>(1)->is_if or $self->get(1)->is_unless) {
        $cond = $self->forth->text;

        $self->require_ope <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24475	24579	
==>(1)->is_if or $self->get(1)->is_unless) {
        $cond = $self->forth->text;

        $self->require_ope <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1346	1463	
==>ight { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $blo <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1694	1811	
==>ight { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $blo <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1830	1947	
==>ight { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $blo <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1473	1590	
==>ight { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $blo <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240230	240540	
==>}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241178	241488	
==>}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242126	242436	
==>}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243075	243385	
==>}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	5638	5755	
==>g) = @_;

    return unless $cmd;

    if( $self->{Have_Plan} ) {
        die sprintf "You tried to plan twice!  Secon <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	17784	17887	
==>)}gc)
	{
		_failmsg q{No quotelike operator found after prefix at "} .
			     substr($$textref, pos($$t <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32310	32406	
==>" =~ /\$\{STACK0\}/) {
			$dest_reg = 0;
		} elsif ("$rule->{'pir'}$rule->{'instruction'}" =~ /\$ <==
4	/Users/nnunley/parrot/config/init/hints/mswin32.pm	32	117	
==>oundation.
# $Id: /parrot/config/init/hints/mswin32.pm 19593 2006-05-30T02:28:15.11097 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25350	25434	
==>ont = CONTEXT(interpreter->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->current <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557923	558007	
==>ont = CONTEXT(interpreter->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->current <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559307	559391	
==>ont = CONTEXT(interpreter->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->current <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560679	560763	
==>ont = CONTEXT(interpreter->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->current <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2204	2336	
==>@_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various libraries in the link line.
        $liblist = j <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2496	2628	
==>@_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various libraries in the link line.
        $liblist = j <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2291	2423	
==>@_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various libraries in the link line.
        $liblist = j <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	1505	1601	
==>heriting classes namespace.

This method also works as an object method.

=cut

sub description
{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467737	468049	
==>1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":ba <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468608	468920	
==>1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":ba <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469482	469794	
==>1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":ba <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470357	470669	
==>1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":ba <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3348	3456	
==>rops{fn} or exists $props{fnlib}) {
    my $fnlib;

    if (exists $props{fnlib} and $props{fnlib}) {
      $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6012	6120	
==>rops{fn} or exists $props{fnlib}) {
    my $fnlib;

    if (exists $props{fnlib} and $props{fnlib}) {
      $ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	44690	44796	
==>mat_columns;

  # not need any more
  $self->{instruction} = undef;
  $self->{regs} = undef;

  return $sel <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	281	376	
==>use strict;
eval "use warnings";

package Jako::Construct::Block::Loop::Continue;

use Carp;

us <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382901	383153	
==>DE" => 447,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 455 \"src/ops/io.ops\"\n  if ({{\@1}}) { <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3668	3773	
==>P1
		eq \$I0, 0, DEBUGGER_DONE  # No breakpoints
		\$S0= debline
		exists \$I0, \$P1[\$S0]
		eq \$I0, 0, D <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	13546	13642	
==>ementation
could be started).  This is most useful when writing modules and you
find there is som <==
4	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	1379	1471	
==>escribable listing a ui
consistency violation?

=item * Fragment describe_file() - it shouldn <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374001	374093	
==>Y" => "#line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374884	374976	
==>Y" => "#line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375767	375859	
==>Y" => "#line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376651	376743	
==>Y" => "#line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}} <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	16789	16882	
==>c) = (void*)$value;
        VTABLE_set_pmc_keyed_str(interpreter, HashPointer, string_from_cst <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714706	714796	
==>PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715629	715719	
==>PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716574	716664	
==>PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066402	1066699	
==>d",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067587	1067884	
==>d",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068773	1069070	
==>d",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069959	1070256	
==>d",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597348	597486	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "getcl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598394	598532	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "getcl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599441	599579	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "getcl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600516	600654	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "getcl <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8444	8556	
==>ift;
	my $dest_reg = shift;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the st <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6264	6376	
==>ift;
	my $dest_reg = shift;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the st <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5179	5291	
==>ift;
	my $dest_reg = shift;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the st <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	3859	3969	
==>en->tagname;

    # We make the code tags in items bold because they are almost
    # always part of function a <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926131	926296	
==>NTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927601	927766	
==>NTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929071	929236	
==>NTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930542	930707	
==>NTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522263	522522	
==>4 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523118	523377	
==>4 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523973	524232	
==>4 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	54855	54951	
==>mples below).

If the extractor is a precompiled regular expression or a string,
it is matched ag <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5867	5986	
==>. $base;
    my $bs = $base . $self->suffix . '_';

    return <<END_C;
 	if (!${bs}op_lib.op_func_table)
            ${ <==
4	/Users/nnunley/parrot/tools/build/ops2c.pl	1059	1156	
==>the function-based (slow or fast core) run loop.

=item C<CGoto>

Create the C<goto> run loop.

=i <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	60231	60326	
==>g($line))
			  and $prod = $rule->addprod(new Parse::RecDescent::Production($line))
			or  _no_r <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	1411	1502	
==>dotnet.html', '', 'languages/dotnet'),
        $self->new_section('HQ9plus', 'hq9plus.html', <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858530	858629	
==>\"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat w <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859534	859633	
==>\"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat w <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860538	860637	
==>\"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat w <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861543	861642	
==>\"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat w <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	410496	410793	
==>nd",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411388	411685	
==>nd",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421301	421598	
==>nd",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422193	422490	
==>nd",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	23253	23373	
==>, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, @{ $expr1 <==
4	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	1677	1790	
==>OG_ARGS;

    Parrot::Test::write_code_to_file( $code, $lang_f );

    my $cmd;
    my $exit_code = 0;
    my $pas <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	863	975	
==>s{uc $code};
}

sub new
{
  my $class = shift;
  my ($type) = @_;

  my $token;

  if (UNIVERSAL::isa($type, 'Jak <==
4	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	2091	2189	
==>-Z0-9_-]{$::substitution_len}/ 

END_GRAMMAR

# Slurp in the frozen-state file
my $frozen;
{
  $/ = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	445874	446129	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447969	448224	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	448795	449050	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	2741	2841	
==>at;
	return "(?:$pat)";
}

*delimited_pat = \&gen_delimited_pat;


# THE EXTRACTION FUNCTIONS

sub ex <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1437	1547	
==>oto_address
{
    my ($self, $addr) = @_;

    #print STDERR "pbcc: map_ret_abs($addr)\n";

    if ($addr eq '0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1962	2072	
==>oto_address
{
    my ($self, $addr) = @_;

    #print STDERR "pbcc: map_ret_abs($addr)\n";

    if ($addr eq '0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1853	1963	
==>oto_address
{
    my ($self, $addr) = @_;

    #print STDERR "pbcc: map_ret_abs($addr)\n";

    if ($addr eq '0 <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	15791	15889	
==>tarray;
	my $pre  = defined $_[1] ? $_[1] : '\s*';

	my @match = _match_quotelike($textref,$pre,1,0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777000	777109	
==>,
                  "BODY" => "#line 382 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(interp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777909	778018	
==>,
                  "BODY" => "#line 382 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(interp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778818	778927	
==>,
                  "BODY" => "#line 382 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(interp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779728	779837	
==>,
                  "BODY" => "#line 382 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(interp <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	8517	8626	
==>>text);  # reuse $type, why not
      $type =~ s/([\?\!\"\'\.\,]) /$1\n/g unless $dont_wrap;
      print $fh $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467783	468078	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468654	468949	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469528	469823	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470403	470698	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2932	3026	
==>=> 'Project info',
	'PBC_COMPAT' => 'Bytecode compatibility file',
	'PLATFORMS' => 'Project inf <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22305	22405	
==>= @_;
  my $return;
  my $label = $self->_gensym();

  my $temp_0 = $self->_generate($node->{children <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22806	22906	
==>= @_;
  my $return;
  my $label = $self->_gensym();

  my $temp_0 = $self->_generate($node->{children <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	7358	7457	
==>$_$O" } @$stems;
    if (needs_build("$group$LOAD_EXT", @sources)) {
        run(partial_link_cmd("$ <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	7569	7668	
==>$_$O" } @$stems;
    if (needs_build("$group$LOAD_EXT", @sources)) {
        run(partial_link_cmd("$ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544480	544606	
==>if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n gcd = b<<p;\n saved_var <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545816	545942	
==>if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n gcd = b<<p;\n saved_var <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547152	547278	
==>if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n gcd = b<<p;\n saved_var <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	2614	2713	
==>text in the item's files is converted to HTML and
written to a file in C<$target> and an HTML link i <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2393	2490	
==>n, @todo)>

Runs the target string against the Perl 6 pattern, passing the test
if the output prod <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3827	3924	
==>n, @todo)>

Runs the target string against the Perl 6 pattern, passing the test
if the output prod <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10970	11053	
==>6 \"src/ops/core.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->contro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11759	11842	
==>6 \"src/ops/core.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->contro <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2723	2858	
==>, map { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3032	3167	
==>, map { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2827	2962	
==>, map { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" <==
4	/Users/nnunley/parrot/lib/Parrot/Op.pm	1941	2036	
==>e warnings;


=item C<new($code, $type, $name, $args, $argdirs, $labels, $flags)>

Allocates a n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050263	1050425	
==>{^+4}};\n    {{\@1}} = Parrot_get_global(interpreter, {{\@2}}, {{\@3}}, next);\n    {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051297	1051459	
==>{^+4}};\n    {{\@1}} = Parrot_get_global(interpreter, {{\@2}}, {{\@3}}, next);\n    {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052331	1052493	
==>{^+4}};\n    {{\@1}} = Parrot_get_global(interpreter, {{\@2}}, {{\@3}}, next);\n    {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053366	1053528	
==>{^+4}};\n    {{\@1}} = Parrot_get_global(interpreter, {{\@2}}, {{\@3}}, next);\n    {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	36157	36261	
==>est died
    any other number    how many failed (including missing or extras)

If you fail more than 254 <==
4	/Users/nnunley/parrot/lib/Test/More.pm	34228	34332	
==>est died
    any other number    how many failed (including missing or extras)

If you fail more than 254 <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	3023	3127	
==>est died
    any other number    how many failed (including missing or extras)

If you fail more than 254 <==
4	/Users/nnunley/parrot/tools/build/ops2c.pl	6536	6637	
==>DER and SOURCE fragments:
#

my @op_funcs;
my @op_func_table;
my @cg_jump_table;
my $index = 0;
my ($p <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	339637	339976	
==>> "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340635	340974	
==>> "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341634	341973	
==>> "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342633	342972	
==>> "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858640	858733	
==>ve arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859644	859737	
==>ve arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860648	860741	
==>ve arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861653	861746	
==>ve arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  { <==
4	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3414	3521	
==>ich is harder.
        $body =~ s/^(\s*)([^\n]+)\s*\Z/$1puts [$2]/m;

        $tests{$name} = [$expl, $body, <==
4	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4821	4928	
==>ich is harder.
        $body =~ s/^(\s*)([^\n]+)\s*\Z/$1puts [$2]/m;

        $tests{$name} = [$expl, $body, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106258	1106341	
==>typ >= interpreter->n_vtable_max)\n\treal_exception(interpreter, NULL, E_ValueError, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107234	1107317	
==>typ >= interpreter->n_vtable_max)\n\treal_exception(interpreter, NULL, E_ValueError, <==
4	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	1553	1669	
==>m_tests;
    if ($file eq 'clock') {
      $clock_skipped = $num_tests;
    } elsif ($file eq 'case') {
      $deprec <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766623	766913	
==>");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767476	767766	
==>");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768329	768619	
==>");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769183	769473	
==>");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483641	483737	
==>line 455 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_excepti <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484640	484736	
==>line 455 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_excepti <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485639	485735	
==>line 455 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_excepti <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	63	153	
==>from config/gen/makefiles/dynclasses_pl.in

# Copyright: 2001-2005 The Perl Foundation.  Al <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32751	32859	
==>$pir .= "### typeinfo\n";
		    $pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			    "typeinfo for rule $rule-> <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26759	26859	
==>$pir .= "### typeinfo\n";
		$pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule-> <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28475	28575	
==>$pir .= "### typeinfo\n";
		$pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule-> <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36457	36557	
==>$pir .= "### typeinfo\n";
		$pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule-> <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	2023	2113	
==>literal -Wformat-security -Wpacked -Wdisabled-optimization -falign-functions=16 -Wno-shadow <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1343	1433	
==>literal -Wformat-security -Wpacked -Wdisabled-optimization -falign-functions=16 -Wno-shadow <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1388	1478	
==>literal -Wformat-security -Wpacked -Wdisabled-optimization -falign-functions=16 -Wno-shadow <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1392	1482	
==>literal -Wformat-security -Wpacked -Wdisabled-optimization -falign-functions=16 -Wno-shadow <==
4	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2062	2298	
==>N2, 1000000.0
$N1 = $N1 / $N2;              # div    N1, N1, N2
                              #
print "M op/s:        $N1\n"; # print  "M op/s:        "
                              # print  N1
                              # print  "\n <==
4	/Users/nnunley/parrot/examples/mops/mops.pl	2062	2298	
==>N2, 1000000.0
$N1 = $N1 / $N2;              # div    N1, N1, N2
                              #
print "M op/s:        $N1\n"; # print  "M op/s:        "
                              # print  N1
                              # print  "\n <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15024	15119	
==>xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
    }
    return;
  } elsif(w <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16207	16302	
==>xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
    }
    return;
  } elsif(w <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22458	22583	
==>ments:
    #
    #   goto <label>;
    #   goto <label> if (<value> <op> <value>);
    #   goto <label> unless (<value> <op> < <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10680	10798	
==>A' eq chr(65);
        $section = $self->unicode_escape_url($section);
        # Turn char 1234 into "(1234)"
        $ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4061	4168	
==>A' eq chr(65);
    $section = $self->unicode_escape_url($section);
     # Turn char 1234 into "(1234)"
    $ <==
4	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2241	2339	
==>ut_fn( $count );
        my @test_prog   = $self->get_test_prog( $path_to_parrot, $path_to_language <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1194	1297	
==>ck->push_content($self);

  return $self;
}

sub dest  { return shift->{DEST};  }
sub left  { return shi <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1185	1288	
==>ck->push_content($self);

  return $self;
}

sub dest  { return shift->{DEST};  }
sub left  { return shi <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1074	1177	
==>ck->push_content($self);

  return $self;
}

sub dest  { return shift->{DEST};  }
sub left  { return shi <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7858	7950	
==>_token;

      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $self- <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9601	9695	
==>{PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method_info_from_token(${ASSEMBLY}, ${ARG0})

# If <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7115	7209	
==>{PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method_info_from_token(${ASSEMBLY}, ${ARG0})

# If <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5671	5765	
==>{PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method_info_from_token(${ASSEMBLY}, ${ARG0})

# If <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7891	7985	
==>{PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method_info_from_token(${ASSEMBLY}, ${ARG0})

# If <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909409	909734	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910306	910631	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911203	911528	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912101	912426	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522616	522913	
==>ub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 603, <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11579	11679	
==>rth);

      $self->require_semicolon;

      my $arith = Jako::Construct::Statement::Arithmetic->new <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16524	16624	
==>rth);

      $self->require_semicolon;

      my $arith = Jako::Construct::Statement::Arithmetic->new <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1787	1877	
==>st::pir_output_is;
}

=item C<p6rule_isnt($target, $pattern, $description, @todo)>

Runs th <==
4	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Posix.pm	318	436	
==>b get_test_prog {
    my $self = shift;
    my ( $count, $options ) = @_;

    my $lang_fn        = Parrot::Test::per_t <==
4	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	448	559	
==>b get_test_prog {
    my $self = shift;
    my ( $count, $options ) = @_;

    my $lang_fn = Parrot::Test::per_t <==
4	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr3.pm	340	451	
==>b get_test_prog {
    my $self = shift;
    my ( $count, $options ) = @_;

    my $lang_fn = Parrot::Test::per_t <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1775	1871	
==>ot = File::Spec->catfile(
    $path_to_parrot, 'parrot' . $PConfig{exe}
);

my $perl6 = File::Spe <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737730	738012	
==>set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 829,
                  "AR <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	7119	7224	
==>em.c")) {
        run(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c fa <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5413	5518	
==>em.c")) {
        run(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c fa <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	7330	7435	
==>em.c")) {
        run(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c fa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101369	101632	
==>NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102139	102402	
==>NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103575	103838	
==>NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
4	/Users/nnunley/parrot/config/inter/lex.pm	633	751	
==>ex?";
@args        = qw( lex ask maintainer );

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->opt <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	29710	29831	
==>> aop('call_result' => [ $uid, $capture ? $name : undef, $lastback ]),
                          aop('goto' => [ $next ]), <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5748	5845	
==>Y}, ${ARG0})

# If there is a return type, need to supply a ${DEST0}.
${ITEMP0} = ${PTEMP1}["type" <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31136	31230	
==>import Parrot::Pmc2c qw( gen_ret );

=item C<implements($method)>

Always true for vtables.

=c <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39756	39850	
==>import Parrot::Pmc2c qw( gen_ret );

=item C<implements($method)>

Always true for vtables.

=c <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11410	11502	
==>.else print/interpolate $text...

=head1 DESCRIPTION

This module provides things that are us <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101803	101891	
==>line 130 \"src/ops/bit.ops\"\n  string_bitwise_not(interpreter, {{\@2}}, &{{\@1}});\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102574	102662	
==>line 130 \"src/ops/bit.ops\"\n  string_bitwise_not(interpreter, {{\@2}}, &{{\@1}});\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103905	1103989	
==>e(interpreter, class);\n\tif (!type) {\n\t\tParrot_autoload_class(interpreter, class) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105120	1105204	
==>e(interpreter, class);\n\tif (!type) {\n\t\tParrot_autoload_class(interpreter, class) <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65995	66102	
==>l($name);
						_check_insatiable($name,"$1..",$grammar,$line) if $::RD_CHECK;
					}
				}
				elsif ($gram <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	15894	15995	
==>able
			 preceding directive was encountered. Typically this
			 indicates either a extra '>' in the g <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34538	34638	
==>item C<implements($method)>

Always true.

=cut

sub implements
{
    return 1;
}

=item C<body($meth <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2722	2814	
==>harness' => 'Perl test harness',
	'INSTALL' => 'Installation documentation',
	'LICENSE' => 'L <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	11146	11277	
==>m)";
    };
    /s/ && do {
        push @{$temps_ref}, "short t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434496	434602	
==>md_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435511	435617	
==>md_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABE <==
4	/Users/nnunley/parrot/config/inter/make.pm	2037	2136	
==>($stdout =~ /GNU \s+ Make \s+ (\d+) \. (\d+)/x) {
        $conf->data->set(gmake_version => "$1.$2") <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	14567	14672	
==>ft;

    my ($min, $max, $greedy, $R) = @{ $op->{args} };
    my $ref = [ annotated($op, "multi_match($min <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22415	22518	
==>$return = $self->_constant(1);
  my $temp_1 = $self->_constant(2);
  $self->_add_inst(''           ,'mod <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22916	23019	
==>$return = $self->_constant(1);
  my $temp_1 = $self->_constant(2);
  $self->_add_inst(''           ,'mod <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3196	3290	
==>ext

=head1 SYNOPSIS

  perl -MPod::Simple::Text -e \
   "exit Pod::Simple::Text->filter(shift) <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	36037	36184	
==>nd will exit with 255.

So the exit codes are...

    0                   all tests successful
    255                 test died
    any other numbe <==
4	/Users/nnunley/parrot/lib/Test/More.pm	34108	34255	
==>nd will exit with 255.

So the exit codes are...

    0                   all tests successful
    255                 test died
    any other numbe <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	2903	3050	
==>nd will exit with 255.

So the exit codes are...

    0                   all tests successful
    255                 test died
    any other numbe <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	6977	7106	
==>\n";
        } else {
          print $fh "<a\n>";  # Yes, an 'a' element with no attributes!
          DEBUG and print "Linearize <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820291	820510	
==>CODE" => 929,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 79 \"src/ops/stack.ops\"\n  Stack_Entry_ <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	16661	16773	
==>alue =~ m/^\d+$/s;
      if($value > 255) {
        push @good , sprintf "   %-10s , chr(%s),\n", "'$name'", $val <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436510	436600	
==>\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437525	437615	
==>\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476601	476955	
==>base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 546,
                  "ARGS" => [
                              "i",
                              "i"
                            ], <==
4	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	2206	2301	
==>ble;
}

=item C<vtbl_defs($vtable)>

Returns the C C<typedef> definitions for the elements in th <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	1121	1215	
==>->new_item('', 'tools/build/pbc2c.pl'),
            $self->new_item('', 'tools/dev/pbc_header.p <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Ops.pm	642	731	
==>->new_item('', 'tools/build/ops2c.pl'),
			$self->new_item('', 'src/ops/ops.num'),
			$sel <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766560	766665	
==>= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767413	767518	
==>= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768266	768371	
==>= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769120	769225	
==>= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718110	718344	
==>\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719042	719276	
==>\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720241	720475	
==>\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721441	721675	
==>\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765818	766114	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766670	766966	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767523	767819	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768376	768672	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":b <==
4	/Users/nnunley/parrot/config/auto/cgoto.pm	1570	1654	
==>TOOLS_DIR)/ops2c.pl CGoto --core

$(INC_DIR)/oplib/core_ops_cgp.h: $(OPS_DIR)/core_op <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1213	1329	
==>eturn shift->{TYPE};      }
sub name      { return shift->{NAME};      }
sub props     { return %{shift->{PROPS}};  } <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1548	1664	
==>eturn shift->{TYPE};      }
sub name      { return shift->{NAME};      }
sub props     { return %{shift->{PROPS}};  } <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	17536	17631	
==>rom'} += length($1);
		$itempos[$#itempos]{'line'}{'from'}   = $thisline;
		$itempos[$#itempos]{ <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	1158	1251	
==>END_PIR
		foreach my $var (sort keys %{$code{$seg}->{declarations}}) {
			if ($var=~/_string$/ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96965	97191	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnot",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	97595	97821	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnot",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	98332	98558	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnot",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	98994	99220	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnot",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	9449	9571	
==>p('goto', [ $next ]),
            $back => $self->dbprint("Unmatching $char\n"),
                     aop('increment', [ -1 <==
4	/Users/nnunley/parrot/config/inter/lex.pm	327	420	
==>qw( $description @args $prompt $util );

use base qw(Parrot::Configure::Step::Base);

use Parr <==
4	/Users/nnunley/parrot/config/inter/make.pm	321	414	
==>qw( $description @args $prompt $util );

use base qw(Parrot::Configure::Step::Base);

use Parr <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	322	415	
==>qw( $description @args $prompt $util );

use base qw(Parrot::Configure::Step::Base);

use Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574797	575030	
==>enum_class_ParrotClass, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575601	575834	
==>enum_class_ParrotClass, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	23836	23942	
==>8$/) {
			$out =  "    \${I_ARG_$arg_num} = bc.read_int8()\n    next_pc += 1\n";
			$arg_name = "I_ARG_$arg <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	16774	16869	
==>F for an example of a formatter
that uses Pod::Simple::PullParser.

=head1 METHODS

=over

=item <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927072	927491	
==>RGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1043,
                  "ARGS" => [
                              "i",
                              "sc",
                              "i"
                            ],
                  "BOD <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8711	8842	
==>r recovery.\n";
#DBG>				$dbgerror=0;
#DBG>			};

			    push(@$stack,
                     [ $$states[$$stack[-1][0]]{GOTOS}{$ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8319	8445	
==>r recovery.\n";
#DBG>				$dbgerror=0;
#DBG>			};

			    push(@$stack,
                     [ $$states[$$stack[-1][0]]{GOTOS}{$ <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	20359	20462	
==>stack_returns;
    REG_INT(1) = $int_returns;
    REG_INT(2) = $string_returns;
    REG_INT(3) = $pmc_re <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84991	85275	
==>0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85897	86181	
==>0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
4	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	578	688	
==>ercent'} . "%\n"
}

my $done = 0;
my $total = 0;
map { $done += $_->{'done'}; $total += $_->{'total'}; } @ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1390	1497	
==>nd eq 'continue') {
    $compiler->emit("${prefix}_CONT:");

    if ($self->content) {
      $compiler->emit <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	59725	59891	
==>1.yp"
{
            [ $_[1] ];
        }
	],
	[#Rule 110
		 'field', 5,
sub
#line 591 "Lua\lua51.yp"
{
            [ $_[2], $_[5] ];
        }
	],
	[#Rule <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/EditorPlugins.pm	424	517	
==>ge Parrot::Docs::Section::EditorPlugins;

use strict;
use warnings;

use base qw( Parrot::Docs <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5113	5230	
==>p s\n"
PIR
	}

	return $pir;
}

sub post_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If de <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1387	1473	
==>d-optimization -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ] <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1432	1518	
==>d-optimization -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ] <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1436	1522	
==>d-optimization -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71912	72267	
==>( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73513	73868	
==>( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75115	75470	
==>( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76717	77072	
==>( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	513859	514127	
==>> "inline",
                  "CODE" => 592,
                  "ARGS" => [
                              "n",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 708 \"src/ops/math.ops\" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088174	1088429	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice",
                  "FLAGS" => ":base_core",
                  "ARGD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089121	1089376	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice",
                  "FLAGS" => ":base_core",
                  "ARGD <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	9616	9716	
==>q "COMM"
				or
			($type[CURR] eq "BARE" and (iskeyword($syms[CURR])
					and !isbuiltin($syms[CURR] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73235	73578	
==>LAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74837	75180	
==>LAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76439	76782	
==>LAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78042	78385	
==>LAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dl <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	31220	31338	
==>)/) {
	$targ = "pc_$1";
    }
    push @loops, $targ;
    my $eh = temp('P');
    print <<EOC;
	newsub $eh, .Exception_ <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	14697	14808	
==>rt = extract_bracketed($total_body, '{');
        die "Empty MMD body near '$total_body'"
            if (!$body <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	11905	12006	
==>END
}

sub output_rule_fail {
    my ($self, $name) = @_;
  return split(/\n/, <<'END');
$rx_match{'!P <==
4	/Users/nnunley/parrot/lib/File/Which.pm	6439	6532	
==>ations
by Stas Bekman, then extracted to create C<File::Which>.

Version 0.04 had some signifi <==
4	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	0	142	
==>use strict;

package Lua::opcode;
{

    sub new {
        my $proto  = shift;
        my $class  = ref($proto) || $proto;
        my $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1084	1175	
==>'Jako::Construct::Expression::Value');
  confess "Right is not Value!" if defined $right and <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1112	1203	
==>'Jako::Construct::Expression::Value');
  confess "Right is not Value!" if defined $right and <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	784	875	
==>'Jako::Construct::Expression::Value');
  confess "Right is not Value!" if defined $right and <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	97102	97333	
==>NAME" => "bnot",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490264	490486	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inc",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490885	491107	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inc",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	491506	491728	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inc",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
4	/Users/nnunley/parrot/tools/build/pbc2c.pl	2060	2168	
==>e the leader of a block
    $leaders{$new_pc} = 1;

    # This loop tries to identify instructions that may b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94950	95040	
==>it.ops\"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95843	95933	
==>it.ops\"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96736	96826	
==>it.ops\"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462904	463163	
==>by zero\");\n  {{\@1}} = fmod({{\@2}}, den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463901	464160	
==>by zero\");\n  {{\@1}} = fmod({{\@2}}, den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464898	465157	
==>by zero\");\n  {{\@1}} = fmod({{\@2}}, den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2501	2610	
==>turned.

=cut

sub write_contents_html
{
	my $self = shift;
    my $source = shift || die "No source\n";
    m <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610647	610943	
==>ibute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611549	611845	
==>ibute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612452	612748	
==>ibute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613358	613654	
==>ibute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131371	131659	
==>1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132226	132514	
==>1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133081	133369	
==>1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7685	7784	
==>() to locate a matching
symbol, and then returns that symbol's type.

=cut

sub type_of_ident
{
  my <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343553	343831	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344794	345072	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346036	346314	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347278	347556	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154851	154950	
==>"BODY" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155755	155854	
==>"BODY" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156659	156758	
==>"BODY" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157564	157663	
==>"BODY" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154866	154982	
==>e 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155770	155886	
==>e 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156674	156790	
==>e 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157579	157695	
==>e 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9439	9570	
==>rror;

        };

			$$errstatus == 3	#The next token is not valid: discard it
		and	do {
				$$token eq ''	# End of input: n <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9015	9140	
==>rror;

        };

			$$errstatus == 3	#The next token is not valid: discard it
		and	do {
				$$token eq ''	# End of input: n <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	1076	1173	
==>argument.

This means that you can write your tests in your language itself and run them
through y <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	595	690	
==>anguage> is the language of the code.
The parameter C<$code> is the code that should be executed <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072394	1072519	
==>p1;\n  }\n  {{\@1}} = r1;\n  {{\@2}} = (INTVAL)( xk * pow( -1, n ) );\n  {{\@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074579	1074704	
==>p1;\n  }\n  {{\@1}} = r1;\n  {{\@2}} = (INTVAL)( xk * pow( -1, n ) );\n  {{\@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076764	1076889	
==>p1;\n  }\n  {{\@1}} = r1;\n  {{\@2}} = (INTVAL)( xk * pow( -1, n ) );\n  {{\@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078950	1079075	
==>p1;\n  }\n  {{\@1}} = r1;\n  {{\@2}} = (INTVAL)( xk * pow( -1, n ) );\n  {{\@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = { <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6710	6838	
==>>					$debug & 0x10
#DBG>				and	$dbgerror
#DBG>				and	$$errstatus == 0
#DBG>				and	do {
#DBG>					print STDERR "**End of E <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6397	6521	
==>>					$debug & 0x10
#DBG>				and	$dbgerror
#DBG>				and	$$errstatus == 0
#DBG>				and	do {
#DBG>					print STDERR "**End of E <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8584	8707	
==>>				$debug & 0x10
#DBG>			and	$dbgerror
#DBG>			and	$$errstatus == 0
#DBG>			and	do {
#DBG>				print STDERR "**End of E <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8196	8315	
==>>				$debug & 0x10
#DBG>			and	$dbgerror
#DBG>			and	$$errstatus == 0
#DBG>			and	do {
#DBG>				print STDERR "**End of E <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105673	1105968	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106648	1106943	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956784	957072	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_encoding",
                  "FLAGS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957688	957976	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_encoding",
                  "FLAGS" <==
4	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3197	3305	
==>>data->get('ld'));

        # We can't use -opt: and -debug together.
        if ($conf->data->get('ld_debug' <==
4	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4701	4809	
==>>data->get('ld'));

        # We can't use -opt: and -debug together.
        if ($conf->data->get('ld_debug' <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	35838	35938	
==>es.  If no tests were ever run Test::Builder
will throw a warning and exit with 255.  If the test die <==
4	/Users/nnunley/parrot/lib/Test/More.pm	33909	34009	
==>es.  If no tests were ever run Test::Builder
will throw a warning and exit with 255.  If the test die <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663165	663491	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663936	664262	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664708	665034	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665484	665810	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381124	381222	
==>1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset({{\@2}}), {{\@3}}) < 0) {\n      rea <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382136	382234	
==>1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset({{\@2}}), {{\@3}}) < 0) {\n      rea <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383148	383246	
==>1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset({{\@2}}), {{\@3}}) < 0) {\n      rea <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384161	384259	
==>1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset({{\@2}}), {{\@3}}) < 0) {\n      rea <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670649	670854	
==>}}->vtable->push_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671422	671627	
==>}}->vtable->push_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4362	4460	
==>self, $code, $failLabel) = @_;
    my $comment = Regex::Ops::Tree::isplain($code) ? " # match '".ch <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4049	4147	
==>self, $code, $failLabel) = @_;
    my $comment = Regex::Ops::Tree::isplain($code) ? " # match '".ch <==
4	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	18252	18409	
==>ERSION});
        }
        else
        {
            return $self->{VERSION};
        }
    }
    else
    {
        die "Parrot::OpsFile::version(): Illega <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2056	2154	
==>--$_[0]{'Indent'} }
sub   end_over_text    { --$_[0]{'Indent'} }
sub   end_over_block   { --$_[0]{' <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1624	1722	
==>--$_[0]{'Indent'} }
sub   end_over_text    { --$_[0]{'Indent'} }
sub   end_over_block   { --$_[0]{' <==
4	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	5492	5590	
==>{$_->{branch}}{$category->($_)} }, $_ for @smokes;

  foreach my $branch (keys %branches) {
    for <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353620	353731	
==>s\"\n  STRING * const s = {{\@1}};\n  if (s && string_length(interpreter, s)) {\n    PIO_putps(interpreter, PIO_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354365	354476	
==>s\"\n  STRING * const s = {{\@1}};\n  if (s && string_length(interpreter, s)) {\n    PIO_putps(interpreter, PIO_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359314	359425	
==>s\"\n  STRING * const s = {{\@1}};\n  if (s && string_length(interpreter, s)) {\n    PIO_putps(interpreter, PIO_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360062	360173	
==>s\"\n  STRING * const s = {{\@1}};\n  if (s && string_length(interpreter, s)) {\n    PIO_putps(interpreter, PIO_ <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	3299	3412	
==>= 
        gather_groups_and_libs(@pmcs);

    while (my ($group, $pmcs) = each %$group_files) {
        my @pmcfi <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	3403	3516	
==>= 
        gather_groups_and_libs(@pmcs);

    while (my ($group, $pmcs) = each %$group_files) {
        my @pmcfi <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15867	15965	
==>les

- Test

- Test::More

Information about the TAP protocol can be found in the Test::Harness
dis <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	13138	13234	
==>`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`

{
my $m = -321;   # magic line number

sub _gen_er <==
4	/Users/nnunley/parrot/config/auto/gcc.pm	3677	3821	
==>false positives
            #    e.g. when accessing registers - this is all aligned
     
            2.7  => "",
            2.8  => "-Wsign-co <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	5166	5291	
==>especially important on
        # some platforms
        if ($^O eq 'hpux' or $^O eq 'cygwin') {
            chmod 0755, "$des <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	5377	5502	
==>especially important on
        # some platforms
        if ($^O eq 'hpux' or $^O eq 'cygwin') {
            chmod 0755, "$des <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4382	4501	
==>especially important on
			# some platforms
	        if ($^O eq 'hpux' or $^O eq 'cygwin') {
		        chmod 0755, "$des <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647072	647337	
==>UMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647832	648097	
==>UMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648593	648858	
==>UMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649355	649620	
==>UMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function", <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4405	4514	
==>elf = shift;
    my $name = shift;
    
    return -f File::Spec->catfile($self->path, $name);
}

=item C<dire <==
4	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	239	451	
==>arser} = $parser;
        $self->{table}  = {};
        return $self;
    }

}

################################################################################

package SymbTabVar;
use base qw(Lua::symb <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	12180	12373	
==>methodname,
                    body        => $methodblock,
                    line        => $lineno,
                    type        => $type,
                    parameters  => $parameters, <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	11688	11865	
==>methodname,
                body        => $methodblock,
                line        => $lineno,
                type        => $type,
                parameters  => $parameters, <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	14656	14754	
==>t find it useful.

=back

=head1 CAVEATS

On Perl versions before 5.7, Unicode characters with a va <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	156	258	
==>G = \&Pod::Simple::DEBUG unless defined &DEBUG }

sub new {
  my $self = shift;
  my $new = $self->SUPE <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	155	257	
==>G = \&Pod::Simple::DEBUG unless defined &DEBUG }

sub new {
  my $self = shift;
  my $new = $self->SUPE <==
4	/Users/nnunley/parrot/lib/Test/More.pm	5111	5212	
==>mports);
}


=head2 Test names

By convention, each test is assigned a number in order.  This is
large <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12007	12099	
==>mE<gt>> sequence, this returns the string that
it stands for.  For example, C<e2char('sol')>, <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	705	809	
==>ck,

    TOKEN  => $token,
    VALUE  => $token->text,
    SCOPE  => $block->scope_of_ident($token->text) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202741	202837	
==>"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203672	203768	
==>"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204603	204699	
==>"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940329	940626	
==>6 \"src/ops/string.ops\"\n    {{\@1}} = string_split(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941221	941518	
==>6 \"src/ops/string.ops\"\n    {{\@1}} = string_split(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942113	942410	
==>6 \"src/ops/string.ops\"\n    {{\@1}} = string_split(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943006	943303	
==>6 \"src/ops/string.ops\"\n    {{\@1}} = string_split(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1610	1703	
==>right = $self->right;

  my $dest_sym = $block->find_symbol($dest->value);
  $self->SYNTAX_ERR <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1568	1661	
==>right = $self->right;

  my $dest_sym = $block->find_symbol($dest->value);
  $self->SYNTAX_ERR <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1490	1583	
==>right = $self->right;

  my $dest_sym = $block->find_symbol($dest->value);
  $self->SYNTAX_ERR <==
4	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	63	150	
==>d: /parrot/tools/build/fingerprint_c.pl 20350 2006-06-25T03:57:27.771662Z petdance  $

= <==
4	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	440	552	
==>ne =~ /XXX Stub/i) {
    $file =~ m{.*/(.*)[.]pir$};
    push @skip, $1;
  }
  close $fh;
}

print "SKIPPING @ski <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4859	4956	
==>=> 'literal', Attributes => { type => $type->name } });
    $handler->characters({ Data => $self-> <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	12064	12158	
==>ype, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function currently on checks w <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	939	1026	
==>!"  if defined $value and not UNIVERSAL::isa($value, qw(Jako::Construct::Expression::Val <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	1534	1668	
==>e parrot ops here
    $P0['dyadic:<']       =  <<"END_PIR"            # less than
    $I100 = islt %1, %2
    %1 = $I100
END_PIR

    $ <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	807	929	
==>oto NUMCONST;
		}
		if ($cur eq '.' ) {
			append;
			fetch;
			$numtype="FLO";
			goto NUMCONST;
		}
		if ($cur =~ /[eEdD] <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1151	1260	
==>turn shift->{NAME};  }
sub args { return @{shift->{ARGS}}; }


#
# compile()
#

sub compile
{
  my $self = shi <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	970	1079	
==>turn shift->{NAME};  }
sub args { return @{shift->{ARGS}}; }


#
# compile()
#

sub compile
{
  my $self = shi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851323	851643	
==>"i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 966,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 83 \"src/op <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	232	346	
==>05.048089Z coke  $
#
#

use strict;
eval "use warnings";

package Jako::Token;


#
# CONSTRUCTOR:
#

sub new
{
  my <==
4	/Users/nnunley/parrot/tools/dev/install_files.pl	988	1082	
==>T (currently MANIFEST and MANIFEST.generated
are used) is:

    source_path <whitespace> [packa <==
4	/Users/nnunley/parrot/config/auto/cgoto.pm	1637	1722	
==>$(OPS_DIR)/core_ops_cgp.c 

$(OPS_DIR)/core_ops_cgp.c : $(OPS_FILES) $(BUILD_TOOLS_DIR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072296	1072424	
==>k + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074481	1074609	
==>k + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076666	1076794	
==>k + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078852	1078980	
==>k + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  {{ <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	9659	9757	
==>nd (iskeyword($syms[CURR])
					and !isbuiltin($syms[CURR] ))));
		last if (not $parens and not $op <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	544	637	
==>llParser

=head1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head1 DESCRIPTION

When you do $ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	963	1056	
==>llParser

=head1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head1 DESCRIPTION

When you do $ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	450	543	
==>llParser

=head1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head1 DESCRIPTION

When you do $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067185	1067329	
==>temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068371	1068515	
==>temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069557	1069701	
==>temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070744	1070888	
==>temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527267	527511	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528020	528264	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528901	529145	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529783	530027	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21355	21460	
==>el"]);
  $self->_restore($temp);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_ins <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21740	21845	
==>el"]);
  $self->_restore($temp);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_ins <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22125	22230	
==>el"]);
  $self->_restore($temp);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_ins <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	16019	16117	
==>cture, $vtable);

Add methods to the class structure for each method found in the
vtable. This is u <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33711	33846	
==>\n";
              push @$para, splice @{shift @$paras},2;
            } else {
              DEBUG and print "Can't assimilate followin <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35524	35659	
==>\n";
              push @$para, splice @{shift @$paras},2;
            } else {
              DEBUG and print "Can't assimilate followin <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32273	32367	
==>"$rule->{'pir'}$rule->{'instruction'}" =~ /\$\{STACK0\}/) {
			$dest_reg = 0;
		} elsif ("$rule <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	3206	3293	
==>w experimental alternative to the fingerprint produced by tools/build/fingerprint_c.pl.' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367157	367447	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "A <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367948	368238	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "A <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368740	369030	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "A <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	60325	60430	
==>_rule("production",$line);
			$aftererror = 0;
		}
		elsif ($grammar =~ m/$LITERAL/gco)
		{
			($code = $1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714776	714954	
==>UT(interpreter), s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715699	715877	
==>UT(interpreter), s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716644	716822	
==>UT(interpreter), s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ] <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	54667	54800	
==>[#Rule 70
		 'exp', 3,
sub
#line 389 "Lua\lua51.yp"
{
            BuildRelop( $_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#R <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340215	340311	
==>ne 128 \"src/ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341214	341310	
==>ne 128 \"src/ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342213	342309	
==>ne 128 \"src/ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343213	343309	
==>ne 128 \"src/ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	245607	245838	
==>RGS" => [
                              "i",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 638 \"src/ops/cmp.ops\"\n  {{\@1}} = mmd_dispatch_i_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253182	253391	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254044	254253	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254907	255116	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099276	1099403	
==>n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n\tres = 1.0/res;\n    }\n    {{\@1}} = res;\n    {{+=4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100474	1100601	
==>n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n\tres = 1.0/res;\n    }\n    {{\@1}} = res;\n    {{+=4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101672	1101799	
==>n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n\tres = 1.0/res;\n    }\n    {{\@1}} = res;\n    {{+=4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102871	1102998	
==>n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n\tres = 1.0/res;\n    }\n    {{\@1}} = res;\n    {{+=4 <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	34434	34550	
==>pected_Tests} ) {
            my $num_extra = $self->{Curr_Test} - $self->{Expected_Tests};
            my $s = $self <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9475	9571	
==>r something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get detail <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6989	7085	
==>r something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get detail <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5545	5641	
==>r something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get detail <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9225	9358	
==>been called
            or  next;       # so continue parsing

#DBG>			$debug & 0x10
#DBG>		and	do {
#DBG>			print STDERR "**Ente <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8810	8938	
==>been called
            or  next;       # so continue parsing

#DBG>			$debug & 0x10
#DBG>		and	do {
#DBG>			print STDERR "**Ente <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17388	17513	
==>l' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 42
		A <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	36274	36372	
==>ill be reported as 254.


=head1 THREADS

In perl 5.8.0 and later, Test::Builder is thread-safe.  T <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114841	115158	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115695	116012	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116550	116867	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789580	789813	
==>GS" => [
                              "s",
                              "p",
                              "ki"
                            ],
                  "BODY" => "#line 427 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11728	11896	
==>last_key->[1] };
                    my $assign = new KeyedSetOp( $parser,
                        'arg1'   => $last_key->[0],
                        'arg2'   => und <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9932	10088	
==>last_key->[1] };
                my $assign = new KeyedSetOp( $parser,
                    'arg1'   => $last_key->[0],
                    'arg2'   => und <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8795	8927	
==>last_key->[1] };
        my $assign = new KeyedSetOp( $parser,
            'arg1'   => $last_key->[0],
            'arg2'   => und <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	90	184	
==>08-27 19:58:02 MDT"
package Pod::Escapes;
require Exporter;
@ISA = ('Exporter');
$VERSION = '1. <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920406	920716	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sprintf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921298	921608	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sprintf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	922191	922501	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sprintf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/tools/dev/nm.pl	6759	6881	
==>Aa]$/  ) ? 1 : 0;
		my $uninit   = ($type =~ /^[BbCc]$/) ? 1 : 0;
		my $init     = ($type =~ /^[DdGg]$/) ? 1 : 0;
		my $fil <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	866655	866954	
==>E" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867620	867919	
==>E" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868586	868885	
==>E" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869552	869851	
==>E" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763184	763421	
==>t of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764037	764274	
==>t of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764890	765127	
==>t of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765744	765981	
==>t of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332585	332690	
==>eter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all results from string_to_cs <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333863	333968	
==>eter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all results from string_to_cs <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335141	335246	
==>eter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all results from string_to_cs <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336420	336525	
==>eter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all results from string_to_cs <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	1215	1328	
==>> "</a></h4>\n",

  'X'  => "<!--\n\tINDEX: ",
  '/X' => "\n-->",

  changes(qw(
    Para=p
    B=b I=i
    over-b <==
4	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	4889	4989	
==>c && $text =~ /^=head1/m) { # try an embedded pod
	my($doc) = $text =~ /(?:^|\n)=head1(.+)/s;
	die "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64657	64744	
==>t new_interp = (Interp *)PMC_data({{\@1}});\n  Interp_flags_SET(new_interp, PARROT_EXTER <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65608	65695	
==>t new_interp = (Interp *)PMC_data({{\@1}});\n  Interp_flags_SET(new_interp, PARROT_EXTER <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519688	519835	
==>> "#line 739 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520543	520690	
==>> "#line 739 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	521398	521545	
==>> "#line 739 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/config/auto/pack.pm	379	481	
==>ep;
use Config;

$description = q{Figuring out how to pack() Parrot's types};

@args = ();

sub runstep <==
4	/Users/nnunley/parrot/tools/dev/lib_deps.pl	8242	8360	
==>.h
cargf       complex.h
cargl       complex.h
casin       complex.h
casinf      complex.h
casinh      complex.h
casinh <==
4	/Users/nnunley/parrot/config/auto/cgoto.pm	560	673	
==>($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('skipped');
        r <==
4	/Users/nnunley/parrot/config/auto/headers.pm	495	608	
==>($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('skipped');
        r <==
4	/Users/nnunley/parrot/config/auto/jit.pm	646	759	
==>($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('skipped');
        r <==
4	/Users/nnunley/parrot/config/gen/cpu.pm	558	671	
==>($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('skipped');
        r <==
4	/Users/nnunley/parrot/config/auto/sizes.pm	4237	4412	
==>"%u", sizeof(foo));
    return 0;
}
END
            close TEST;

            cc_build();
            cc_run();
        }
        ) {
        $conf->data->set(
            hugef <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540516	540623	
==>\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541768	541875	
==>\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543020	543127	
==>\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\ <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	36096	36190	
==>luded in the
delimiter specification, then that type of quote will be correctly handled.
for ex <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13148	13353	
==>loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13992	14197	
==>loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14696	14901	
==>loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	15383	15588	
==>loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	269994	270246	
==>ODE" => 314,
                  "ARGS" => [
                              "i",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 854 \"src/ops/cmp.ops\"\n  {{\@1}} = (mm <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6712	6834	
==>h blank line at ${$self}{'line_count'}\n"; 
      }
      
      $self->{'last_was_blank'} = 1;
      
    } elsif($self->{ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19619	19717	
==>>isterminal)
		{
			$code .= $parser->{_AUTOTREE}{TERMINAL}->code($namespace,$rule);
		}
		else
		{ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	845	930	
==>nless defined &DEBUG
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332725	332843	
==>s generates ugly warnings WRT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334003	334121	
==>s generates ugly warnings WRT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335281	335399	
==>s generates ugly warnings WRT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336560	336678	
==>s generates ugly warnings WRT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	624272	624520	
==>ESS",
                  "NAME" => "pic_callr__",
                  "FLAGS" => ":pic",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
4	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	809	928	
==>e_to_file( $code, $lang_f );

    my $cmd;
    my $exit_code = 0;
    my $pass = 0;

    $cmd = "$self->{parrot} $args l <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	846	965	
==>e_to_file( $code, $lang_f );

    my $cmd;
    my $exit_code = 0;
    my $pass = 0;

    $cmd = "$self->{parrot} $args l <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	55330	55428	
==>on, or string).
The key of that element is the name of a class into which the successful
return val <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111298	111552	
==>ing_bitwise_or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112190	112444	
==>ing_bitwise_or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113082	113336	
==>ing_bitwise_or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/config/auto/funcptr.pm	152	244	
==>o/funcptr.pm - Function Pointer Casts

=head1 DESCRIPTION

Verifies that the compiler support <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151081	151174	
==>r,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152059	152152	
==>r,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172309	172402	
==>r,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173287	173380	
==>r,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925495	925797	
==>0,
                  "NAME" => "stringinfo",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926964	927266	
==>0,
                  "NAME" => "stringinfo",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928434	928736	
==>0,
                  "NAME" => "stringinfo",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929904	930206	
==>0,
                  "NAME" => "stringinfo",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099157	1099290	
==>t s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100355	1100488	
==>t s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101553	1101686	
==>t s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102752	1102885	
==>t s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	3328	3434	
==>EBUG(0, "Current position is $pos");
  $pos += $offset;
#  DEBUG(0, "Getting token at $pos");
  
  return $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2944	3043	
==>handler->end_element({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
    $handler <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3618	3717	
==>handler->end_element({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
    $handler <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3708	3807	
==>handler->end_element({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
    $handler <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2934	3039	
==>er);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
    $han <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3608	3713	
==>er);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
    $han <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3698	3803	
==>er);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
    $han <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858711	859018	
==>AL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859715	860022	
==>AL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860719	861026	
==>AL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861724	862031	
==>AL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
4	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	812	950	
==>',
    output_like       => 'like',
    output_isnt       => 'isnt_eq',
                        );

foreach my $func ( keys %language_test_ <==
4	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	2180	2291	
==>{bin}) {
        $entry = "$options{bindir}/$dest";
    } elsif ($meta{include}) {
        $entry = "$options{in <==
4	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	545	652	
==>',
    output_like => 'like',
    output_isnt => 'isnt_eq',
);

foreach my $func ( keys %language_test_ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41625	41731	
==>[0];
  my @closers;
  foreach my $still_open (@{  $self->{'curr_open'} || return  }) {
    my @copy = @$sti <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30869	30979	
==>t .= <<EOC;
	internal_exception(WRITE_TO_CONSTCLASS,
		"$meth() in $classname");
        $ret
EOC
    }
    $co <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126688	126945	
==>t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127823	128080	
==>t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128958	129215	
==>t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	70090	70193	
==>L/gco || $grammar =~ m/$ANY/gco;
	my $min = 1;
	if ( $grammar =~ m/$MANY/gco
	  || $grammar =~ m/$EXACTL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034715	1035005	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_lex",
                  "FLAGS" => "",
                  "ARGDIRS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035878	1036168	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_lex",
                  "FLAGS" => "",
                  "ARGDIRS <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	7243	7342	
==>_filename'} = $source;

sub set_source {
  my $self = shift @_;
  return $self->{'source_fh'} unless <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1808	1902	
==>th_to_parrot, 'parrot' . $PConfig{exe}
);

my $perl6 = File::Spec->catfile(
    $path_to_parrot <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3092	3192	
==>'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have an <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4850	4950	
==>'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have an <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7778	7877	
==>'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have an <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8634	8733	
==>'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have an <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055713	1056034	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAGS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056604	1056925	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAGS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057496	1057817	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAGS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058388	1058709	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAGS <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	3610	3723	
==>}

    if ($text =~ m{^([\[\]])(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, $1 eq '[' ? ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062520	1062609	
==>nterpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpreter, ns_root, {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063389	1063478	
==>nterpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpreter, ns_root, {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064259	1064348	
==>nterpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpreter, ns_root, {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557245	557421	
==>ARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558628	558804	
==>ARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560012	560188	
==>ARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 " <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	13918	14011	
==>ot1=$ot2=$optype;
			$a1=pushthing(\@code, \$ot1, @$op1);
			$a2=pushthing(\@code, \$ot2, @$op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344247	344341	
==>tring(interpreter, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345489	345583	
==>tring(interpreter, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346731	346825	
==>tring(interpreter, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347974	348068	
==>tring(interpreter, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	330660	330860	
==>GS" => [
                              "n",
                              "p"
                            ],
                  "BODY" => "#line 174 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (FLOATVAL)(Parrot <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	4400	4512	
==>R] eq ";") {
			$promptcode.=qq{\tprint "?"\n};
		} else {
			die "Syntax error, expected ',' or ';'";
		}
		feed <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14537	14645	
==>n(@to_unget);
  
  if(DEBUG) {
    if(defined $title) { print "  Returing title <$title>\n" }
    else { prin <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	23102	23210	
==>n(@to_unget);
  
  if(DEBUG) {
    if(defined $title) { print "  Returing title <$title>\n" }
    else { prin <==
4	/Users/nnunley/parrot/config/gen/core_pmcs.pm	249	345	
==>core_pmcs.h>.

=cut

package gen::core_pmcs;

use strict;
use warnings;

use base qw(Parrot::Conf <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	5168	5294	
==>pecially important on
        # some platforms
        if ($^O eq 'hpux' or $^O eq 'cygwin') {
            chmod 0755, "$dest/$ <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	5379	5505	
==>pecially important on
        # some platforms
        if ($^O eq 'hpux' or $^O eq 'cygwin') {
            chmod 0755, "$dest/$ <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4384	4504	
==>pecially important on
			# some platforms
	        if ($^O eq 'hpux' or $^O eq 'cygwin') {
		        chmod 0755, "$dest/$ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1920	2028	
==>ser->handle_text( "Hi there" )   if $parser->can('handle_text');
  $parser->end_head1()                 if $p <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1521	1640	
==>ck;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  my $de <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1479	1598	
==>ck;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  my $de <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1401	1520	
==>ck;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  my $de <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	326	418	
==>e or
more, grouped or ungrouped items.

C<Parrot::Docs::Section> is a subclass of C<Parrot::D <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404713	405021	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "so <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405625	405933	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "so <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406537	406845	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "so <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	17921	18031	
==>@_;
	my $code =
'
	while (!$_matched'
	. (defined $self->{"uncommit"} ? '' : ' && !$commit')
	. ')
	{
		' .
		( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247579	247692	
==>ine 670 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	248443	248556	
==>ine 670 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	249307	249420	
==>ine 670 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" = <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	29088	29183	
==>aviour in scalar and void contexts

In a scalar context, the extracted string is returned, havin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73205	73496	
==>GS({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74807	75098	
==>GS({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76409	76700	
==>GS({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78012	78303	
==>GS({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2517	2625	
==>local/lib  -licuuc -licudata -lpthread -lm';
        $extraLibs =~ s/blib/..\\blib/g;
        $extraLibs =~ s <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2826	2934	
==>local/lib  -licuuc -licudata -lpthread -lm';
        $extraLibs =~ s/blib/..\\blib/g;
        $extraLibs =~ s <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2621	2729	
==>local/lib  -licuuc -licudata -lpthread -lm';
        $extraLibs =~ s/blib/..\\blib/g;
        $extraLibs =~ s <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8953	9047	
==>RR] eq "") {
FORCE_FINISH:
		runtime_shutdown();
		parse_function_dispatch();
		parse_struct_co <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844478	844776	
==>GS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 958,
                  "ARGS" => <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8470	8574	
==>ug & 0x04
#DBG>			and	print STDERR 
#DBG>				    "go to state $$states[$$stack[-1][0]]{GOTOS}{$lhs}.\n" <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8086	8188	
==>ug & 0x04
#DBG>			and	print STDERR 
#DBG>				    "go to state $$states[$$stack[-1][0]]{GOTOS}{$lhs}.\n" <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	180	271	
==>BigNum - Big Number documentation section

=head1 SYNOPSIS

	use Parrot::Docs::Section::BigN <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	11159	11328	
==>ption
            unless ( $desc ) {
               (undef, my $file, my $line) = caller();
               $desc = "($file line $line)";
            }

            # $tes <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	16644	16813	
==>ption
            unless ( $desc ) {
               (undef, my $file, my $line) = caller();
               $desc = "($file line $line)";
            }

            # $tes <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8420	8550	
==>ck eq 'ERROR'
            or  do {
#DBG>				$debug & 0x04
#DBG>			and	print STDERR 
#DBG>				    "go to state $$states[$$stack[ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8038	8164	
==>ck eq 'ERROR'
            or  do {
#DBG>				$debug & 0x04
#DBG>			and	print STDERR 
#DBG>				    "go to state $$states[$$stack[ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8169	8296	
==>$reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } else {
        die "Too m <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8951	9078	
==>$reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } else {
        die "Too m <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7822	7949	
==>$reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } else {
        die "Too m <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8611	8738	
==>$reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } else {
        die "Too m <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130751	130994	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131605	131848	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132460	132703	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
4	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	9064	9168	
==>efault";
}

# Rate limiting
sub limit_rate {
  # Open the DB and lock it exclusively. See perldoc -q lock <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462913	463182	
==>);\n  {{\@1}} = fmod({{\@2}}, den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463910	464179	
==>);\n  {{\@1}} = fmod({{\@2}}, den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464907	465176	
==>);\n  {{\@1}} = fmod({{\@2}}, den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	1149	1255	
==>T_ASCII) {
    # We're in bizarro world of not-ASCII!
    # Cope with US-ASCII codes, use fallbacks for Lat <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	7121	7227	
==>.c")) {
        run(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c faile <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5415	5521	
==>.c")) {
        run(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c faile <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	7332	7438	
==>.c")) {
        run(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c faile <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	17443	17529	
==>$parser->set_source( \$document_source )

=item $parser->set_source( \@document_lines ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109715	110006	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110494	110785	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLA <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	4497	4641	
==>undef, $1);
      $text = $2;
      next;
    }

    #
    # (Prefix) Ops:
    #

    if ($text =~ m{^(new)(?!\w)(.*)$}) {
      push @tokens, Ja <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	12449	12544	
==>t_num>

  $Test->is_num($got, $dont_expect, $name);

Like Test::More's isnt().  Checks if $got n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712392	712500	
==>tspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  s = Parrot_sprintf_c(interpreter, \"%.1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713499	713607	
==>tspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  s = Parrot_sprintf_c(interpreter, \"%.1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719859	719967	
==>tspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  s = Parrot_sprintf_c(interpreter, \"%.1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721059	721167	
==>tspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  s = Parrot_sprintf_c(interpreter, \"%.1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714789	714985	
==>r), s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715712	715908	
==>r), s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716657	716853	
==>r), s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/tools/dev/parrotbench.pl	6124	6217	
==>open (STDOUT, '>', File::Spec->devnull) or die "Unable to redirect STDOUT";
select COPYOUT;
$| <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766574	766699	
==>S)\n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767427	767552	
==>S)\n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768280	768405	
==>S)\n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769134	769259	
==>S)\n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911758	912025	
==>line",
                  "CODE" => 1027,
                  "ARGS" => [
                              "i",
                              "sc",
                              "sc"
                            ],
                  "BODY" => "#line 284 \"src/ops/string.ops\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344183	344281	
==>eed to go away soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2}});\n  con <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345425	345523	
==>eed to go away soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2}});\n  con <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346667	346765	
==>eed to go away soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2}});\n  con <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347910	348008	
==>eed to go away soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2}});\n  con <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90713	90905	
==>,
                              "i"
                            ],
                  "BODY" => "#line 43 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "L <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91567	91759	
==>,
                              "i"
                            ],
                  "BODY" => "#line 43 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "L <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	117	211	
==>CodeGen::Re;
use Regex::RegexOps ();
use base 'Regex::CodeGen';
use strict;

sub output_preambl <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	21366	21460	
==>,
	sub { extract_quotelike($_[0],'') },
	sub { extract_codeblock($_[0],'{}','') },
];

sub extr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769387	769566	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770239	770418	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771092	771271	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771945	772124	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5609	5725	
==>oup {
    my ($self, $group) = @_;
    return ("new <rx_ptmp>, \"MatchRange\" # new group \"$group\"",
            "s <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6270	6375	
==>) = "Seattle"
Max = 4 'UBOUND(A$)
Exchange=TRUE           ' Force first pass through the array.
WHILE Exch <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15923	16028	
==>) = "Seattle"
Max = 4 'UBOUND(A$)
Exchange=TRUE           ' Force first pass through the array.
WHILE Exch <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	8196	8285	
==>_rel_count;

#define ROFFS_INT(x) REG_OFFS_INT(jit_info->cur_op[x])
#define ROFFS_NUM(x) R <==
4	/Users/nnunley/parrot/Configure.pl	8990	9104	
==>:make
    inter::lex
    inter::yacc
    auto::gcc
    auto::msvc
    init::optimize
    inter::shlibs
    inter::l <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	37042	37137	
==>n@pobox.comE<gt>.

This program is free software; you can redistribute it and/or 
modify it unde <==
4	/Users/nnunley/parrot/lib/Test/More.pm	37451	37546	
==>n@pobox.comE<gt>.

This program is free software; you can redistribute it and/or 
modify it unde <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	6411	6506	
==>n@pobox.comE<gt>.

This program is free software; you can redistribute it and/or 
modify it unde <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63109	63214	
==>rod->additem($item)
						      or  _no_rule("repetition",$line,"$code$argcode($1)");

						!$matchrule a <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63830	63935	
==>rod->additem($item)
						      or  _no_rule("repetition",$line,"$code$argcode($1)");

						!$matchrule a <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64546	64651	
==>rod->additem($item)
						      or  _no_rule("repetition",$line,"$code$argcode($1)");

						!$matchrule a <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62473	62576	
==>rod->additem($item)
					      or  _no_rule("repetition",$line,"$code$argcode($1)");

					!$matchrule a <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332456	332548	
==>\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333734	333826	
==>\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335012	335104	
==>\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336291	336383	
==>\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1 <==
4	/Users/nnunley/parrot/config/inter/lex.pm	2073	2190	
==>urn $self;
    }

    # if '--version' returns a string assume that this is flex.
    # flex calls it self by $0 so it <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	15020	15127	
==>.
		feedme();
		if ($syms[CURR] eq "," or 
			$type[CURR] eq "STMT" or $type[CURR] eq "COMP") {
			print COD <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7983	8081	
==>LAZY_MOVE

# No lazy move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEM <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8840	8938	
==>LAZY_MOVE

# No lazy move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEM <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	2477	2587	
==>at does not return a value.")
      unless defined $return_type;

    my $arg_type = $value->type;
    my $ret_ <==
4	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	629	737	
==>skip();

my $header = '# $' . 'Id' . '$' . "\n" . << 'END_HEADER';   # confuse SVN
# generated by tools/dev/g <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16496	16594	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See http <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1710	1808	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See http <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025042	1025295	
==>o_s(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025799	1026052	
==>o_s(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57912	58164	
==>o_s(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58674	58926	
==>o_s(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	9135	9291	
==>{$FH} "\n";
    }

    sub visitParamDir {
        my $self  = shift;
        my ($dir) = @_;
        my $FH    = $self->{fh};
        if ( exists $di <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1375	1484	
==>{
    return "";
}

sub output_advance {
    my ($self, $distance, $failLabel) = @_;
    $failLabel = $self->o <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1124	1233	
==>{
    return "";
}

sub output_advance {
    my ($self, $distance, $failLabel) = @_;
    $failLabel = $self->o <==
4	/Users/nnunley/parrot/languages/scheme/Scheme.pm	1147	1252	
==>=head2 compile

This is called in schemec.

=cut

sub compile {
  my $self = shift;

  $self->{tokens} = S <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16267	16369	
==>dentifier->new($block, $token);

      $self->require_assign;

      my $left  = Jako::Construct::Expre <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17038	17140	
==>dentifier->new($block, $token);

      $self->require_assign;

      my $left  = Jako::Construct::Expre <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17843	17945	
==>dentifier->new($block, $token);

      $self->require_assign;

      my $left  = Jako::Construct::Expre <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	131	226	
==>e warnings;

use File::Basename;

=head1 NAME

Parrot::Test::Punie -- testing routines for langu <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	6359	6455	
==><Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4575	4671	
==><Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4552	4648	
==><Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3936	4032	
==><Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858631	858726	
==>th negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859635	859730	
==>th negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860639	860734	
==>th negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861644	861739	
==>th negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4827	4929	
==>shift;

	my($rules,$states,$lex,$error)
     = @$self{ 'RULES', 'STATES', 'LEX', 'ERROR' };
	my($er <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033207	1033308	
==>xt_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@1}};\n    PMC * const <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034305	1034406	
==>xt_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@1}};\n    PMC * const <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4589	4687	
==>shift;

	my($rules,$states,$lex,$error)
     = @$self{ 'RULES', 'STATES', 'LEX', 'ERROR' };
	my($er <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080484	1080582	
==>al_exception(1, \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(int <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081549	1081647	
==>al_exception(1, \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(int <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082614	1082712	
==>al_exception(1, \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(int <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083680	1083778	
==>al_exception(1, \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(int <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135429	135538	
==>,
                  "BODY" => "#line 326 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_xor(interpreter, {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136323	136432	
==>,
                  "BODY" => "#line 326 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_xor(interpreter, {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137217	137326	
==>,
                  "BODY" => "#line 326 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_xor(interpreter, {{\@ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	305	410	
==>ve tree.

=cut

sub convert_p6tree {
    my ($self, $tree, $ctx) = @_;
    if (ref($tree) eq 'P6C::rx_beg' <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	6077	6205	
==>(), but I hate doing a
                 # compiler's work for it.
    my $keeping = 1;
    foreach my $stmt (@output2) {
	if ($st <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8387	8502	
==>R
	}

	return $pir;
}

sub post_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If destinati <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6207	6322	
==>R
	}

	return $pir;
}

sub post_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If destinati <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5122	5237	
==>R
	}

	return $pir;
}

sub post_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If destinati <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279728	280019	
==>}} = ({{\@2}} < {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	280583	280874	
==>}} = ({{\@2}} < {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	281438	281729	
==>}} = ({{\@2}} < {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	20689	20798	
==>ref = $startpos; return };
		}
		$rd2pos = pos($$textref)-1;
	}
	else
	{
		$ld2pos = $str2pos = $rd2pos = $rd1 <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1862	1983	
==>elf->ident->value : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2467	2588	
==>elf->ident->value : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	2025	2146	
==>elf->ident->value : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3141	3262	
==>elf->ident->value : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762573	762878	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763425	763730	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764278	764583	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765131	765436	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61114	61220	
==>ine);
			$prod and $prod->additem($item)
			      or  _no_rule("pattern terminal",$line,"/$1/");
		}
		elsi <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4403	4522	
==>le (1);
    return NULL;
}
END_C

    $c .= " /* " . $self->core_prefix . "$base */\n\n";

    return $c;
}

=back

=hea <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	17256	17372	
==>thing usable in the generated file

sub interpolate {
    my $code = shift;
    my $op1  = shift;
    my $op2  = shif <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1451	1561	
==>iler) = @_;

  my $dest_ident = $self->dest;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1331	1441	
==>iler) = @_;

  my $dest_ident = $self->dest;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	38440	38545	
==>lse {
            DEBUG and print "Treating $para_type paragraph as Data because the containing =for ($for <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1808	1908	
==>ret) = capture_output($prog, '--version');

    # don't override the user even if the program they pr <==
4	/Users/nnunley/parrot/config/inter/make.pm	1682	1782	
==>ret) = capture_output($prog, '--version');

    # don't override the user even if the program they pr <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1822	1922	
==>ret) = capture_output($prog, '--version');

    # don't override the user even if the program they pr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332729	332849	
==>nerates ugly warnings WRT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334007	334127	
==>nerates ugly warnings WRT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335285	335405	
==>nerates ugly warnings WRT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336564	336684	
==>nerates ugly warnings WRT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3368	3461	
==>ster.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${S <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5130	5223	
==>ster.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${S <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8042	8135	
==>ster.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${S <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8899	8992	
==>ster.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${S <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908737	909056	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909633	909952	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910530	910849	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911427	911746	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47634	47773	
==>"ic"
                            ],
                  "BODY" => "#line 770 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Interp_debug_SET(inte <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1183	1290	
==>ss;

  $block->push_content($self);

  return $self;
}

sub dest  { return shift->{DEST};  }
sub left  { ret <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1174	1281	
==>ss;

  $block->push_content($self);

  return $self;
}

sub dest  { return shift->{DEST};  }
sub left  { ret <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1063	1170	
==>ss;

  $block->push_content($self);

  return $self;
}

sub dest  { return shift->{DEST};  }
sub left  { ret <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926711	927032	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringinfo",
                  "FLAGS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928181	928502	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringinfo",
                  "FLAGS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929651	929972	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringinfo",
                  "FLAGS <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	17238	17352	
==>"From"
  # will get munged.

  # And some refinements:
  "\cm"  => "\n",
  "\cj"  => "\n",
  "\n"   => "\n\\line ", <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76941	77048	
==>_[0];
	}
}

sub _tracefirst($)
{
	if (defined $::RD_TRACE
	    && $::RD_TRACE =~ /\d+/
	    && $::RD_TRACE>1 <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	632	719	
==>) . ") is not Identifier!") unless UNIVERSAL::isa($dest, 'Jako::Construct::Expression::V <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	623	710	
==>) . ") is not Identifier!") unless UNIVERSAL::isa($dest, 'Jako::Construct::Expression::V <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	512	599	
==>) . ") is not Identifier!") unless UNIVERSAL::isa($dest, 'Jako::Construct::Expression::V <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2271	2394	
==>foreach my $var (keys %{$code{$seg}->{declarations}}) {
				if (exists $main::common{$var}) {
					push(@saves, $var);
				} <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2680	2803	
==>foreach my $var (keys %{$code{$seg}->{declarations}}) {
				if (exists $main::common{$var}) {
					push(@saves, $var);
				} <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	1790	1907	
==>foreach my $var (keys %{$code{$seg}->{declarations}}) {
		if (exists $main::common{$var}) {
			push(@saves, $var);
		} <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3081	3198	
==>foreach my $var (keys %{$code{$seg}->{declarations}}) {
		if (exists $main::common{$var}) {
			push(@saves, $var);
		} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19249	19493	
==>"JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20025	20269	
==>"JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20803	21047	
==>"JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21603	21847	
==>"JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786178	786433	
==>t_integer_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787089	787344	
==>t_integer_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	13485	13650	
==>r {
    my ($title) = @_;

    qq(
        <html>
          <head>
             <title>$title</title>
          </head>
          <body bgcolor="white">
            < <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3198	3299	
==>}
	}
	if (@saves) {
		print CODE qq{\t\tfind_global _GLOBALS, "COMMON"\n};
		foreach(@saves) {
			prin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634700	634796	
==>\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635818	635914	
==>\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636936	637032	
==>\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638055	638151	
==>\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2} <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	2850	2961	
==>e =~ m/^\s*$/));
        if (!defined($function) && !defined($template)) {
            if ($line =~ m/TEMPLATE\s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21881	21987	
==>if ($self->get(1)->is_if or $self->get(1)->is_unless) {
        $cond = $self->forth->text;

        $self- <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22814	22920	
==>if ($self->get(1)->is_if or $self->get(1)->is_unless) {
        $cond = $self->forth->text;

        $self- <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24461	24567	
==>if ($self->get(1)->is_if or $self->get(1)->is_unless) {
        $cond = $self->forth->text;

        $self- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072828	1072960	
==>{\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "expe <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075013	1075145	
==>{\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "expe <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077198	1077330	
==>{\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "expe <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079384	1079516	
==>{\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "expe <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332692	332800	
==>ring() need freeing\n     but this generates ugly warnings WRT discarding the const\n     qualifier -lt\n   * <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333970	334078	
==>ring() need freeing\n     but this generates ugly warnings WRT discarding the const\n     qualifier -lt\n   * <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335248	335356	
==>ring() need freeing\n     but this generates ugly warnings WRT discarding the const\n     qualifier -lt\n   * <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336527	336635	
==>ring() need freeing\n     but this generates ugly warnings WRT discarding the const\n     qualifier -lt\n   * <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10230	10330	
==>opogate, ss
    .local string gen_pir, loadreg, storereg, err, str_ic, tmp
    .local int pc, next_pc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988247	988686	
==>IRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1107,
                  "ARGS" => [
                              "i",
                              "i",
                              "sc", <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1437	1537	
==>DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT = qq[];

# Here comes some stuff for Win32.
ou <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1482	1582	
==>DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT = qq[];

# Here comes some stuff for Win32.
ou <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1486	1586	
==>DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT = qq[];

# Here comes some stuff for Win32.
ou <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412312	412657	
==>=> ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 47 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413438	413783	
==>=> ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 47 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414565	414910	
==>=> ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 47 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415692	416037	
==>=> ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 47 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416820	417165	
==>=> ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 48 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417947	418292	
==>=> ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 48 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419075	419420	
==>=> ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 48 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420203	420548	
==>=> ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 48 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763074	763193	
==>"BODY" => "#line 320 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763927	764046	
==>"BODY" => "#line 320 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764780	764899	
==>"BODY" => "#line 320 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765634	765753	
==>"BODY" => "#line 320 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound <==
4	/Users/nnunley/parrot/config/gen/PodText.pm	52	139	
==>d: /mirror/trunk/config/gen/cpu.pm 10933 2006-01-06T01:43:24.870411Z particle  $

=head1 <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	650	735	
==>fess "Ident is not!" unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	729	814	
==>fess "Ident is not!" unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	538	623	
==>fess "Ident is not!" unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13813	13914	
==>ll the appropriate labels can be generated for
      # the loop control statements to function properl <==
4	/Users/nnunley/parrot/editor/kate_syntax.pl	83	180	
==>IMCC
# Maintainer:	Andy Bussey <andybussey@yahoo.co.uk>
# Last change:	2003 Aug 19

my $parrot = $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103855	1103945	
==>tSTRING *class = {{\@2}};\n\tINTVAL type = pmc_type(interpreter, class);\n\tif (!type) {\n\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105070	1105160	
==>tSTRING *class = {{\@2}};\n\tINTVAL type = pmc_type(interpreter, class);\n\tif (!type) {\n\ <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16329	16430	
==>r(\@expr);
		$whole.=join(' ', map { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair unary -, functi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81909	82000	
==>=> "#line 1196 \"src/ops/core.ops\"\n  internal_exception(1, \"don't use compile - just invo <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82803	82894	
==>=> "#line 1196 \"src/ops/core.ops\"\n  internal_exception(1, \"don't use compile - just invo <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	10705	10789	
==>multisub.pmc namespace.pmc none.pmc pair.pmc resizablebooleanarray.pmc resizablefloat <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	1526	1626	
==>'),
        $self->new_section('Jako', 'jako.html', '', 'languages/jako'),
        $self->new_section <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062529	1062623	
==>r->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpreter, ns_root, {{\@2}});\n    {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063398	1063492	
==>r->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpreter, ns_root, {{\@2}});\n    {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064268	1064362	
==>r->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpreter, ns_root, {{\@2}});\n    {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926304	926438	
==>e STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927774	927908	
==>e STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929244	929378	
==>e STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930715	930849	
==>e STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = P <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2764	2909	
==>\\//
                and $parser->Error("Invalid escape sequence $_ .\n"),
                last;
        }
    }

    $parser->Error("Unterm <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4279	4424	
==>\\//
                and $parser->Error("Invalid escape sequence $_ .\n"),
                last;
        }
    }

    $parser->Error("Unterm <==
4	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	652	781	
==>t::HQ9plus::$func"} = sub ($$;$) {
        my $self = shift;
        my ( $code, $output, $desc ) = @_;
  
        my $count = $se <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	969	1083	
==>ad1' => "\n<h1>",  # And also stick in an <a name="...">
  'head2' => "\n<h2>",  #  ''
  'head3' => "\n<h3>",  #  ' <==
4	/Users/nnunley/parrot/config/inter/pmc.pm	4618	4786	
==>*)/) {
                $name = $1;
                my $decl = $2;
                $decl .= <PMC> until ($decl =~ s/\{.*//);
                $const = 1 if $decl =~ /\bcon <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	14859	14978	
==>PRESSION();
			feedme();
			print CODE<<OP;
	push P14, "$op"
@a	bsr DEREF
	push P14, P6
OP
			$ops++;
			next;
		}
		@a= <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25500	25607	
==>$block, $self->require_value);

      $self->require_close_paren;
      $self->require_open_brace;
 
      m <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9964	10070	
==>$block, $self->require_value);

      $self->require_close_paren;
      $self->require_open_brace;

      m <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8085	8236	
==>_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must alw <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8867	9018	
==>_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must alw <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7738	7889	
==>_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must alw <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8527	8678	
==>_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must alw <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024429	1024779	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025185	1025535	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025942	1026292	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026698	1027048	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390445	390861	
==>i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 454,
                  "ARGS" => [
                              "p",
                              "ic",
                              "i",
                              "ic"
                            ],
                  "BODY" => " <==
4	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	5486	5589	
==>t}{C})/;
      ($first_comment) = $text =~ /(($RE{comment}{'C++'}\s*)+)/
	  if !$first_comment;

    ret <==
4	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1182	1275	
==>ut_f);
        $pass =$self->{builder}->is_eq( Parrot::Test::slurp_file($out_f), $output, $des <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1223	1316	
==>ut_f);
        $pass =$self->{builder}->is_eq( Parrot::Test::slurp_file($out_f), $output, $des <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273566	273727	
==>n"
                            ],
                  "BODY" => "#line 876 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "L <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	274412	274573	
==>n"
                            ],
                  "BODY" => "#line 876 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "L <==
4	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	4186	4290	
==>n";
  close $fh or
    die "Couldn't close \"$filename\": $!\n";
}

sub clean_obsolete_smokes {
  my $cat <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	60100	60193	
==>ssing C<$@-E<gt>{pos}> returns the offset into the original string at
which the error was dete <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20180	20287	
==>h
  3084  Canada French
  1035  Finnish
  1044  Norwegian (Bokmal)
  2068  Norwegian (Nynorsk)

=back

If yo <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462843	462935	
==>on(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = fmod({{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463840	463932	
==>on(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = fmod({{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464837	464929	
==>on(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = fmod({{ <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	1541	1650	
==>nd static stop sub swap system step
			then 
			time_NOTYET$ 
			timer troff tron type to
			uevent unlock unt <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21378	21483	
==>e($temp);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$label");
  ret <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21763	21868	
==>e($temp);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$label");
  ret <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22148	22253	
==>e($temp);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$label");
  ret <==
4	/Users/nnunley/parrot/config/gen/config_h.pm	1008	1129	
==>ype   => '/*',
        ignorePattern => 'PARROT_CONFIG_DATE',
        feature_file  => 1
    );

    my $hh = "include/par <==
4	/Users/nnunley/parrot/config/gen/parrot_include.pm	2299	2424	
==>nc =~ m[/]) ? "$inc" : "$destdir/$inc";

                #move_if_diff("$inc.tmp", "$destdir/$inc");
                #push(@ge <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1303	1413	
==>ied then
    # the user is responsible for the consequences.
    if (defined $prog) {
        $conf->data->set( <==
4	/Users/nnunley/parrot/config/inter/make.pm	1124	1234	
==>ied then
    # the user is responsible for the consequences.
    if (defined $prog) {
        $conf->data->set( <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1300	1410	
==>ied then
    # the user is responsible for the consequences.
    if (defined $prog) {
        $conf->data->set( <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	911	1003	
==>") unless UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless { <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	749	841	
==>") unless UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless { <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	902	994	
==>") unless UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless { <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	791	883	
==>") unless UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless { <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2112	2343	
==>",      # backspace
                last;
            s/^\\f//
                and $str .= "\f",      # form feed
                last;
            s/^\\n//
                and $str .= "\n",      # new line
                la <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3626	3857	
==>",      # backspace
                last;
            s/^\\f//
                and $str .= "\f",      # form feed
                last;
            s/^\\n//
                and $str .= "\n",      # new line
                la <==
4	/Users/nnunley/parrot/config/init/hints/freebsd.pm	429	542	
==>ust be assumed to do the right thing.

    my $osversion;
    if (-e "/sbin/sysctl") {
        $osversion = `/sbin <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	3486	3584	
==>a>";
    }
}

=item C<process_code_start_token($token)>

Processes the code start token. If the cod <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738705	738943	
==>PE" => "inline",
                  "CODE" => 830,
                  "ARGS" => [
                              "n",
                              "sc"
                            ],
                  "BODY" => "#line 149 \"src/ops/set.ops\" <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	6700	6838	
==>PARROT_IN_CORE|_GUARD/);

            my $indent = "  " x (@stack);
            if ($1 ne $indent) {
                error($file, $line, "I <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59308	59396	
==>line 901 \"src/ops/core.ops\"\n  PARROT_WARNINGS_on(interpreter, {{\@1}});\n  {{+=2}};\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59956	60044	
==>line 901 \"src/ops/core.ops\"\n  PARROT_WARNINGS_on(interpreter, {{\@1}});\n  {{+=2}};\n" <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	18672	18767	
==>e get_title can't find the title, it will return empty-string
("").

=item my $title_string = $p <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552841	552929	
==>ethod = VTABLE_get_string(interpreter, method_pmc);\n  dest = (opcode_t *)VTABLE_invoke(i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556836	556924	
==>ethod = VTABLE_get_string(interpreter, method_pmc);\n  dest = (opcode_t *)VTABLE_invoke(i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560859	560947	
==>ethod = VTABLE_get_string(interpreter, method_pmc);\n  dest = (opcode_t *)VTABLE_invoke(i <==
4	/Users/nnunley/parrot/config/gen/platform.pm	5576	5682	
==>n/platform/$platform/asm.s";
        if (-e $asm_file) {
            copy_if_diff($asm_file, "src/platform_ <==
4	/Users/nnunley/parrot/config/inter/lex.pm	386	473	
==>::Configure::Step::Base);

use Parrot::Configure::Step qw( :inter capture_output check_p <==
4	/Users/nnunley/parrot/config/inter/make.pm	380	467	
==>::Configure::Step::Base);

use Parrot::Configure::Step qw( :inter capture_output check_p <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	381	468	
==>::Configure::Step::Base);

use Parrot::Configure::Step qw( :inter capture_output check_p <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72807	72898	
==>* err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74409	74500	
==>* err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76011	76102	
==>* err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77614	77705	
==>* err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834351	834549	
==>K_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835077	835275	
==>K_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835829	836027	
==>K_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836582	836780	
==>K_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92616	92920	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_co <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95067	95371	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_co <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95960	96264	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_co <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	51235	51324	
==>scent uses C<extract_codeblock($text, '{}E<lt>E<gt>')> to extract the code
within the C<E< <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122498	122857	
==>RS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 152,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 248 \ <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1356	1474	
==>uences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $self->set_result('yes');
        re <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1353	1471	
==>uences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $self->set_result('yes');
        re <==
4	/Users/nnunley/parrot/languages/dotnet/Configure.pl	2093	2195	
==>th/g;
    $makefile =~ s/\$\{trans_class_library\}/$class_lib_make/g;
	
	# Write makefile.
	open $f <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	557	664	
==>EDO => 'THEN', LAST => 'ELSE' },
  'sub'      => { PREFIX => "_S", NEXT => 'TEST', REDO => 'THEN', LAST => ' <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	578	685	
==>EDO => 'THEN', LAST => 'ELSE' },
  'sub'      => { PREFIX => "_S", NEXT => 'TEST', REDO => 'THEN', LAST => ' <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2678	2774	
==>Branch test, all OK in sequence
PRINT "1 in module-level code"
GOSUB Sub1
PRINT "ERR this line in <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16645	16741	
==>Branch test, all OK in sequence
PRINT "1 in module-level code"
GOSUB Sub1
PRINT "ERR this line in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579485	579582	
==>xist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(interpreter, enum_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580790	580887	
==>xist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(interpreter, enum_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582095	582192	
==>xist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(interpreter, enum_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583401	583498	
==>xist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(interpreter, enum_ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	357	458	
==>@ISA = qw/SRM::Base/;

# Constructor. Just base this class on a hash.
sub new() {
	my $invocant = shif <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	263	364	
==>@ISA = qw/SRM::Base/;

# Constructor. Just base this class on a hash.
sub new() {
	my $invocant = shif <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	171	272	
==>@ISA = qw/SRM::Base/;

# Constructor. Just base this class on a hash.
sub new() {
	my $invocant = shif <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3220	3317	
==>uffix($suffix)>

This is a class method that converts a file suffix to a description of
the type o <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	871	962	
==>Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($right, 'Jako::Construct::E <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	709	800	
==>Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($right, 'Jako::Construct::E <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	862	953	
==>Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($right, 'Jako::Construct::E <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	751	842	
==>Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($right, 'Jako::Construct::E <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364156	364380	
==>=> 426,
                  "ARGS" => [
                              "p",
                              "nc"
                            ],
                  "BODY" => "#line 292 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    STRIN <==
4	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	3682	3831	
==>nel',
        expr    => '__expr',
        int     => '__integer',
        list    => '__list',
        script  => '__script',
        var     => '__r <==
4	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	4356	4505	
==>nel',
        expr    => '__expr',
        int     => '__integer',
        list    => '__list',
        script  => '__script',
        var     => '__r <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	17514	17622	
==>, [ $try ]),
	$back => $self->op_restore_rxlocals($op),
                 aop('popint', [ $counter, 'dynamic a <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462895	463155	
==>\"Divide by zero\");\n  {{\@1}} = fmod({{\@2}}, den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463892	464152	
==>\"Divide by zero\");\n  {{\@1}} = fmod({{\@2}}, den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464889	465149	
==>\"Divide by zero\");\n  {{\@1}} = fmod({{\@2}}, den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1222	1329	
==>($self);

  foreach my $arg (@$args) {
    my ($arg_type, $arg_name, $arg_token) = @$arg;
    my $sym = Jako <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	306	418	
==>Test::More);

sub import {
    my( $class, $plan, @args ) = @_;

    Test::More->import( $plan, @args );

    __P <==
4	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	223	335	
==>Test::More);

sub import {
    my( $class, $plan, @args ) = @_;

    Test::More->import( $plan, @args );

    __P <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7788	7884	
==>(string)"
s$=""
if s$ then print "Should not happen (string)"
i%=0
if i% then print "Should not h <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14775	14871	
==>(string)"
s$=""
if s$ then print "Should not happen (string)"
i%=0
if i% then print "Should not h <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236629	236884	
==>ring_compare(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237511	237766	
==>ring_compare(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238393	238648	
==>ring_compare(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/tools/dev/lib_deps.pl	8925	9051	
==>lex.h
clearerr    stdio.h
clock       time.h
clog        complex.h
clogf       complex.h
clogl       complex.h
conj        comp <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8027	8131	
==>ess defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_symbol($name);

  retur <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8674	8778	
==>ess defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_symbol($name);

  retur <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9342	9446	
==>ess defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_symbol($name);

  retur <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10011	10115	
==>ess defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_symbol($name);

  retur <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766435	766590	
==>"
                            ],
                  "BODY" => "#line 335 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767288	767443	
==>"
                            ],
                  "BODY" => "#line 335 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768141	768296	
==>"
                            ],
                  "BODY" => "#line 335 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768995	769150	
==>"
                            ],
                  "BODY" => "#line 335 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566924	567241	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "does",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567818	568135	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "does",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83697	83786	
==>et_pmc_keyed_int(interpreter,\n      interpreter->iglobals, IGLOBALS_COMPREG_HASH);\n  VTA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84603	84692	
==>et_pmc_keyed_int(interpreter,\n      interpreter->iglobals, IGLOBALS_COMPREG_HASH);\n  VTA <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	8124	8243	
==>ot isbuiltin($syms[PREV]) ) {
				$unary=1;
			}
		}
		if (
			$this->[0] eq "("    and 
			hasargs($prev->[0])	# This w <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862476	862583	
==>rc/ops/string.ops\"\n  {{\@1}} = string_length(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863245	863352	
==>rc/ops/string.ops\"\n  {{\@1}} = string_length(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Test/More.pm	36806	36900	
==>ass> is like XUnit but more perlish.

L<Test::Deep> gives you more powerful complex data struct <==
4	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	2739	2928	
==>symb} ) {
            my $defn = $self->{table}{$symb};
            return $defn;
        }
        else {
            return undef;
        }
    }

    sub Insert {
        my $s <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	9181	9317	
==>, '5',
   54, '6',
   55, '7',
   56, '8',
   57, '9',
   58, ':',
   59, ';',
   60, '<',
   61, '=',
   62, '>',
   63, '?',
   64, '@' <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17772	17908	
==>"=for without a target?"
        );
        next;
      }
      DEBUG > 1 and
       print "Faking out a =for $target as a =begin $target <==
4	/Users/nnunley/parrot/tools/dev/run_indent.pl	3610	3715	
==>d even be in system header\n";
        print STDERR "files.  If so, ignore them.  C::Scan is imperfect.\n\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834333	834522	
==>ack, {{\@1}}, STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835059	835248	
==>ack, {{\@1}}, STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4259	4354	
==>unc_decl($core)>

Returns the C code for the run core function declaration.

=cut

sub run_core_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2747	2842	
==>unc_decl($core)>

Returns the C code for the run core function declaration.

=cut

sub run_core_ <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31789	31908	
==>( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcodes1, new AssignOp( $p <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	32440	32559	
==>( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcodes1, new AssignOp( $p <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33090	33209	
==>( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcodes1, new AssignOp( $p <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	331	426	
==>tion {
	die "pre_translation not implemented for current stack to register mapper\n";
}
sub post <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158020	158379	
==>se_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 191,
                  "ARGS" => [
                              "p",
                              "p <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	19775	19905	
==>ethod}
        unless ($method->{mmd} =~ /MMD_/) {
            push @meths, $meth_name;
        }
        $defaulted = 1 if $meth_n <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9612	9732	
==>10
#DBG>			and	print STDERR "**At eof: aborting.\n";
				return(undef);
			};

#DBG>			$debug & 0x10
#DBG>		and	pri <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9180	9294	
==>10
#DBG>			and	print STDERR "**At eof: aborting.\n";
				return(undef);
			};

#DBG>			$debug & 0x10
#DBG>		and	pri <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151114	151386	
==>ring(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152092	152364	
==>ring(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172342	172614	
==>ring(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173320	173592	
==>ring(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483783	484049	
==>t\t    \"Divide by zero\");\n  {{\@1}} = floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484782	485048	
==>t\t    \"Divide by zero\");\n  {{\@1}} = floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485781	486047	
==>t\t    \"Divide by zero\");\n  {{\@1}} = floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	53288	53408	
==>cj
  '"' => '\"',
  '\\' => '\\\\',
  '$' => '\\$',
  '@' => '\\@',
  '%' => '\\%',
  '#' => '\\#',
);

sub pretty { # ad <==
4	/Users/nnunley/parrot/config/auto/gdbm.pm	619	732	
==>y $verbose = $conf->options->get('verbose');

    my $cc        = $conf->data->get('cc');
    my $libs      = $con <==
4	/Users/nnunley/parrot/config/auto/gmp.pm	560	673	
==>y $verbose = $conf->options->get('verbose');

    my $cc        = $conf->data->get('cc');
    my $libs      = $con <==
4	/Users/nnunley/parrot/config/auto/readline.pm	572	685	
==>y $verbose = $conf->options->get('verbose');

    my $cc        = $conf->data->get('cc');
    my $libs      = $con <==
4	/Users/nnunley/parrot/config/gen/config_h.pm	1296	1399	
==>his file is generated automatically by Configure.pl
*/

/*
 * i_(\\w+) header includes
 */

EOF

    for <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848298	848571	
==>}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849078	849351	
==>}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853407	853680	
==>}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854189	854462	
==>}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627540	627849	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628684	628993	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631726	632035	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGD <==
4	/Users/nnunley/parrot/examples/benchmarks/addit.pl	161	256	
==>amples/benchmarks/addit.pl - Variable Argument Subroutines

=head1 SYNOPSIS

    % time perl exa <==
4	/Users/nnunley/parrot/config/init/hints/solaris.pm	2757	2866	
==>I respectively.
    # For Sun's compilers, fix this with the -xlibmieee flag.
    # I don't know of an equival <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	35902	35999	
==>g and exit with 255.  If the test died, even after
having successfully completed all its tests, it <==
4	/Users/nnunley/parrot/lib/Test/More.pm	33973	34070	
==>g and exit with 255.  If the test died, even after
having successfully completed all its tests, it <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	2768	2865	
==>g and exit with 255.  If the test died, even after
having successfully completed all its tests, it <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714136	714365	
==>"NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715058	715287	
==>"NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715981	716210	
==>"NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
4	/Users/nnunley/parrot/tools/dev/lib_deps.pl	3921	4117	
==>next;
        }
        
        # end of variable block
        if ($variable && /^\s*$/) {
            undef $variable;
            next;
        }
        
        if ($function) {
            i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332787	333099	
==>fier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334065	334377	
==>fier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335343	335655	
==>fier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336622	336934	
==>fier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1173	1294	
==>ts:
#
#     "Foo ", a, " ", b, "ar ", b, "\n"
#
# to effect string interpolation.
#

sub compile
{
  my $self = shift;
  m <==
4	/Users/nnunley/parrot/config/auto/headers.pm	335	441	
==>:Step::Base);

use Parrot::Configure::Step ':auto';
use Config;

$description = 'Probing for C headers';

@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243968	244058	
==>t_string(interpreter, {{\@2}});\n  {{\@1}} = string_compare(interpreter, l, {{\@3}});\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244900	244990	
==>t_string(interpreter, {{\@2}});\n  {{\@1}} = string_compare(interpreter, l, {{\@3}});\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79315	79415	
==>pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      /* At this point we have the symbol's a <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80836	80936	
==>pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      /* At this point we have the symbol's a <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8500	8589	
==>);tab$(12);c$(i+1);tab$(22);c$(i+2);tab$(32);c$(i+3)
next
print
data "ABANDON","CHART","CO <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21364	21453	
==>);tab$(12);c$(i+1);tab$(22);c$(i+2);tab$(32);c$(i+3)
next
print
data "ABANDON","CHART","CO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024394	1024685	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025150	1025441	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025907	1026198	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026663	1026954	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	1311	1414	
==>nless $kind eq 'module' or $kind eq 'sub' or $kind eq 'var' or $kind eq 'arg' or $kind eq 'const';

  my <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	14607	14707	
==>ill).  It's
documented here just in case you might find it useful.

=back

=head1 CAVEATS

On Perl ve <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3368	3462	
==>ccess_arg($type, $num, $op)>

Returns the C code for the specified op argument type (see
C<Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3512	3606	
==>ccess_arg($type, $num, $op)>

Returns the C code for the specified op argument type (see
C<Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131369	131656	
==>\@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132224	132511	
==>\@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133079	133366	
==>\@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11058	11153	
==>E_STRING = 0x0E
	.const int ELEMENT_TYPE_PTR = 0x0F
	.const int ELEMENT_TYPE_BYREF = 0x10
	.cons <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769998	770114	
==>PANIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770851	770967	
==>PANIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771704	771820	
==>PANIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772558	772674	
==>PANIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	7477	7607	
==>ut it really does make things pretty.
        #
        while(1) {
          push @to_unget, $self->get_token;
          pop(@to_un <==
4	/Users/nnunley/parrot/examples/benchmarks/arriter.pl	970	1083	
==>";
print $ha{'AAAAA'};
print $ha{'ABCDE'};
print $ha{'BBBBB'};
print $ha{'CCCCC'};
print $ha{'HHHHH'};
print $ha{' <==
4	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	4695	4804	
==>ile name
    if ($self->{FILE}) {
	$self->{FILE}=~s/, $//;
	$self->{FILE}=~s/, $//;
    }

    return $self;
} <==
4	/Users/nnunley/parrot/lib/Test/More.pm	14586	14691	
==>y are synonyms for
ok(1) and ok(0).

Use these very, very, very sparingly.

=cut

sub pass (;$) {
    $Tes <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647075	647361	
==>" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647835	648121	
==>" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648596	648882	
==>" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649358	649644	
==>" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939787	940086	
==>=> 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940678	940977	
==>=> 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941570	941869	
==>=> 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942462	942761	
==>=> 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	29135	29270	
==>util' );
    push @opcodes, new CallOp( $parser,
        'result' => [ $_var,         $_limit,       $_step ],
        'arg1'   => $f <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2851	2963	
==>Error {
	my($self)=shift;

	${$$self{CHECK}}='ERROR';
    undef;
}

sub YYSemval {
	my($self)=shift;
	my <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2716	2819	
==>Error {
	my($self)=shift;

	${$$self{CHECK}}='ERROR';
    undef;
}

sub YYSemval {
	my($self)=shift;
	my <==
4	/Users/nnunley/parrot/tools/build/vtable_extend.pl	897	991	
==>hese are the functions that Parrot extensions (that is, Parrot subroutines
written in C, or som <==
4	/Users/nnunley/parrot/tools/dev/lib_deps.pl	178	351	
==>9607 2006-05-30T15:23:20.183054Z coke  $
################################################################################

=head1 NAME

tools/dev/lib_deps.pl - List libc depe <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	36080	36218	
==>' ...\n";
      for(my $j = 0; $j < @ell_content; ++$j) {
        next if ref $ell_content[$j];
        DEBUG > 3 and
         print "    P <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	37289	37427	
==>' ...\n";
      for(my $j = 0; $j < @ell_content; ++$j) {
        next if ref $ell_content[$j];
        DEBUG > 3 and
         print "    P <==
4	/Users/nnunley/parrot/config/auto/memalign.pm	750	870	
==>urn $self;
    }

    if (defined $conf->data->get('memalign')) {
        # already set; leave it alone
        $self->se <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151142	151434	
==>{{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152120	152412	
==>{{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172370	172662	
==>{{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173348	173640	
==>{{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912867	913036	
==>",
                              "i"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913878	914047	
==>",
                              "i"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914889	915058	
==>",
                              "i"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915901	916070	
==>",
                              "i"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpre <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10152	10334	
==>);
                return [ $defn, \@opcodes, $assign ];
            }
            else {
                my $assign = new AssignOp( $parser,
                    'arg1'   => unde <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	57289	57418	
==>sub
#line 473 "Lua\lua51.yp"
{
            BuildCallMethod( $_[0], $_[1], $_[3], $_[4] );
        }
	],
	[#Rule 91
		 'args <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79473	79568	
==>we can get and set the value */\n      {{\@1}} = pmc_new(interpreter, enum_class_UnManagedStruct <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80994	81089	
==>we can get and set the value */\n      {{\@1}} = pmc_new(interpreter, enum_class_UnManagedStruct <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	21494	21622	
==>= int(@rules / 2);
        my @r1 = @rules[0 .. $split_point - 1];
        my @r2 = @rules[$split_point .. $#rules];

        # E <==
4	/Users/nnunley/parrot/tools/dev/lib_deps.pl	11517	11629	
==>sgreat math.h
islower     ctype.h
isnan       math.h
isnormal    math.h
isprint     ctype.h
ispunct     ctype.h
i <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3451	3562	
==>}

sub output_unless {
    my ($self, $reg, $dest) = @_;
    $reg = value($reg);
    return "goto " . $self->out <==
4	/Users/nnunley/parrot/config/auto/jit.pm	2465	2565	
==>jitarchname.s") {
        copy_if_diff("$jitbase/$cpuarch/$jitarchname.s", "src/asmfun.s");
        $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066974	1067078	
==>0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068160	1068264	
==>0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069346	1069450	
==>0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070533	1070637	
==>0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332511	332603	
==>IOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Un <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333789	333881	
==>IOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Un <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335067	335159	
==>IOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Un <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336346	336438	
==>IOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Un <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27214	27303	
==>my $code = ''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying terminal: [' . $se <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29317	29406	
==>my $code = ''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying terminal: [' . $se <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31414	31503	
==>my $code = ''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying terminal: [' . $se <==
4	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1332	1421	
==>SEE ALSO

L<Pod::Simple>, L<Pod::Simple::Text>, L<Pod::Spell>

=head1 COPYRIGHT AND DISCLA <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1028	1140	
==>t->line
  }, $class;

  $block->push_content($self);

  return $self;
}


sub dest { return shift->{DEST};  }
sub <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1166	1278	
==>t->line
  }, $class;

  $block->push_content($self);

  return $self;
}

sub dest  { return shift->{DEST};  }
sub <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1157	1269	
==>t->line
  }, $class;

  $block->push_content($self);

  return $self;
}

sub dest  { return shift->{DEST};  }
sub <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1046	1158	
==>t->line
  }, $class;

  $block->push_content($self);

  return $self;
}

sub dest  { return shift->{DEST};  }
sub <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175925	176157	
==>"ARGS" => [
                              "s",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 240 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	6310	6448	
==>-M shift);

    if (defined $ago) {
        return $NOW - $ago;
    } else {
        return;
    }
}

sub needs_build {
    my ($target, @s <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4730	4868	
==>-M shift);

    if (defined $ago) {
        return $NOW - $ago;
    } else {
        return;
    }
}

sub needs_build {
    my ($target, @s <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	6521	6659	
==>-M shift);

    if (defined $ago) {
        return $NOW - $ago;
    } else {
        return;
    }
}

sub needs_build {
    my ($target, @s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	3316	3427	
==>ffset;

#  DEBUG(0, "Current position is $pos");
  $pos += $offset;
#  DEBUG(0, "Getting token at $pos");
  
  r <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	8667	8779	
==>, $kind, $format, @args) = @_;

  my $message = sprintf($format, @args);

  $message = sprintf("%s [%s]: %s error <==
4	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1045	1171	
==>rc/libnci_test.def',
    );

    if ($is_msvc) {

        # Check the output of cl.exe to see if it contains the
        # stri <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	280	377	
==>previous backtracking point that we should
# jump to if matching $op fails; $back is the backtrack <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	350	447	
==>/build/pmc2c.pl --vtable

Print a class tree for the specified PMCs:

    % perl tools/build/pmc2c <==
4	/Users/nnunley/parrot/config/init/hints/msys.pm	479	575	
==>uuid -lws2_32 -lmpr -lwinmm -lversion -lodbc32 ',
        ncilib_link_extra => 'src/libnci_test.d <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62718	62844	
==>ine,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr($grammar,$pos,0,
						       "<leftop <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63429	63555	
==>ine,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr($grammar,$pos,0,
						       "<leftop <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64159	64285	
==>ine,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr($grammar,$pos,0,
						       "<leftop <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	103	199	
==>BlackBox's _gen_errata

require 5;
package Pod::Simple::Checker;
use strict;
use Carp ();
use Pod <==
4	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	825	966	
==>_like       => 'like',
    output_isnt       => 'isnt_eq',
                        );

foreach my $func ( keys %language_test_map ) {
    no s <==
4	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	559	669	
==>_like => 'like',
    output_isnt => 'isnt_eq',
);

foreach my $func ( keys %language_test_map ) {
    no s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441590	441679	
==>{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442605	442694	
==>{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528041	528359	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528922	529240	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529804	530122	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	42365	42456	
==>ract_tagged> is not currently implemented that way, in order
to preserve pre-5.005 compatibi <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1850	1962	
==>->ident ? $self->ident->value : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self- <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2455	2567	
==>->ident ? $self->ident->value : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self- <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	2013	2125	
==>->ident ? $self->ident->value : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self- <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3129	3241	
==>->ident ? $self->ident->value : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579534	579632	
==>2}} ));\n  }\n  name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580839	580937	
==>2}} ));\n  }\n  name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582144	582242	
==>2}} ));\n  }\n  name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583450	583548	
==>2}} ));\n  }\n  name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586860	586952	
==>to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588046	588138	
==>to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589232	589324	
==>to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590419	590511	
==>to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39987	40216	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTAR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40834	41063	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTAR <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	15764	15890	
==>tors:
    #
    #   <var> = <value> <op> <value>;
    #
    # TODO: Can't really support shift amount as arg until sh[lr]_i_i o <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	5360	5468	
==>intf "Ignored signature '%s' on line %d (previously seen on line %d) of $ARGV",
              "$ret$args", $. <==
4	/Users/nnunley/parrot/config/auto/sizes.pm	3175	3308	
==>a->set(int8_t => $type);
        eval {
            cc_gen('config/auto/sizes/test2_c.in');
            cc_build();
            %hugei <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	26221	26332	
==>sif($paras->[0][0] eq '=back') {
        # Ignore empty lists.  TODO: make this an option?
        shift @$paras <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36055	36151	
==>cumulate
the number of lines, C<$out_name> is the name of the output file we are
generating.

The <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38000	38096	
==>cumulate
the number of lines, C<$out_name> is the name of the output file we are
generating.

The <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	1302	1440	
==>literal', 'N', $1);
      $text = $2;
      next;
    }

    #
    # Integer literals:
    #

    if ($text =~ m{^( 0 | (-?[1-9][0-9]*))($| <==
4	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	751	846	
==>--plus-misses>

This creates a second section, with the heads of any files which had
familiar ty <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22361	22454	
==>y $temp_0 = $self->_generate($node->{children}[1]);
  $return = $self->_constant(1);
  my $tem <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22862	22955	
==>y $temp_0 = $self->_generate($node->{children}[1]);
  $return = $self->_constant(1);
  my $tem <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344256	344354	
==>erpreter, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345498	345596	
==>erpreter, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346740	346838	
==>erpreter, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347983	348081	
==>erpreter, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572436	572702	
==>" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573345	573611	
==>" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574255	574521	
==>" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575058	575324	
==>" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35869	35970	
==>implements
{

    my ($self, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31239	31339	
==>implements
{
    my ($self, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39859	39959	
==>implements
{
    my ($self, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method <==
4	/Users/nnunley/parrot/config/inter/progs.pm	738	837	
==>, $conf) = @_;

    my ($cc, $cxx, $link, $ld, $ccflags, $ccwarn, $linkflags, $ldflags, $libs, $lex, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858527	858620	
==>18 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859531	859624	
==>18 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860535	860628	
==>18 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861540	861633	
==>18 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404551	404691	
==>"
                            ],
                  "BODY" => "#line 535 \"src/ops/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsig <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405463	405603	
==>"
                            ],
                  "BODY" => "#line 535 \"src/ops/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsig <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406375	406515	
==>"
                            ],
                  "BODY" => "#line 535 \"src/ops/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsig <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407288	407428	
==>"
                            ],
                  "BODY" => "#line 535 \"src/ops/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsig <==
4	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	8351	8491	
==>odo        => $14,
        skipped     => $15,
        unexpect    => $16,
      }],
      percentage    => sprintf("%.02f", $12 / ($11||1) * <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1645	1733	
==>ym = $block->find_symbol($dest->value);
  $self->SYNTAX_ERROR("Assigning to unknown varia <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1603	1691	
==>ym = $block->find_symbol($dest->value);
  $self->SYNTAX_ERROR("Assigning to unknown varia <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1525	1613	
==>ym = $block->find_symbol($dest->value);
  $self->SYNTAX_ERROR("Assigning to unknown varia <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404612	404707	
==>"#line 535 \"src/ops/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405524	405619	
==>"#line 535 \"src/ops/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406436	406531	
==>"#line 535 \"src/ops/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407349	407444	
==>"#line 535 \"src/ops/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501042	501335	
==>}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501781	502074	
==>}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502519	502812	
==>}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503258	503551	
==>}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926234	926391	
==>VAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              br <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927704	927861	
==>VAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              br <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929174	929331	
==>VAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              br <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930645	930802	
==>VAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              br <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623297	623401	
==>};\n    }\n    caller_ctx = cc->to_ctx;\n    interpreter->current_args = NULL;\n    dest_pc = caller_ctx- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79051	79153	
==>), name);\n  string_cstring_free(name);\n  if (p == NULL) {\n      const char * const err = Parrot_dler <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80572	80674	
==>), name);\n  string_cstring_free(name);\n  if (p == NULL) {\n      const char * const err = Parrot_dler <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	1373	1471	
==>die "post_call not implemented for current stack to register mapper\n";
}

# Pre and post load oper <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	119451	119710	
==>31 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120306	120565	
==>31 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121161	121420	
==>31 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	6055	6158	
==>uffix then the empty string will
be included in this list.

=cut

sub file_suffixes
{
    my $self = shi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123888	124173	
==>VAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124762	125047	
==>VAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125636	125921	
==>VAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	25365	25468	
==>t everything to unbuffered else plain prints to STDOUT will
    # come out in the wrong order from our o <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2790	2900	
==>LAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sourc <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3099	3209	
==>LAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sourc <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2894	3004	
==>LAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sourc <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	31045	31144	
==>le {
}

sub _op_input_port_p {
}

sub _op_output_port_p {
}

sub _op_current_input_port {
}

sub _op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	339493	339717	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDI <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340491	340715	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDI <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341490	341714	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDI <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342489	342713	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDI <==
4	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	531	659	
==>ata->set(ccflags => $ccflags);

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpth <==
4	/Users/nnunley/parrot/config/init/hints/irix.pm	476	604	
==>ata->set(ccflags => $ccflags);

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpth <==
4	/Users/nnunley/parrot/config/init/hints/netbsd.pm	269	397	
==>ata->set(ccflags => $ccflags);

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpth <==
4	/Users/nnunley/parrot/config/init/hints/openbsd.pm	361	489	
==>ata->set(ccflags => $ccflags);

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpth <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800668	800849	
==>ble->set_string_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801572	801753	
==>ble->set_string_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802476	802657	
==>ble->set_string_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803381	803562	
==>ble->set_string_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	35385	35536	
==>tate 131
		ACTIONS => {
			"-" => 72,
			"%" => 76,
			"*" => 80,
			".." => 71,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -6 <==
4	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	2388	2513	
==>devel]doc
    runtime/parrot/include/DWIM.pir                 [devel]doc
    runtime/parrot/include/README                   [ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28814	28913	
==>shname} = '__STRING' . ++$_[1]->{strcount} . '__'; }

sub issubrule { undef }
sub isterminal { 1 }
s <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30894	30993	
==>shname} = '__STRING' . ++$_[1]->{strcount} . '__'; }

sub issubrule { undef }
sub isterminal { 1 }
s <==
4	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	1502	1602	
==>y $status = system($command);
exit 1 if (! defined $status);
exit($status >> 8) if $status != 0;

for <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	4696	4794	
==>ation=DIRECTORY
    shift(@pmcs) =~ /--destination=(.*)/
      or die "copy command requires destin <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	4800	4898	
==>ation=DIRECTORY
    shift(@pmcs) =~ /--destination=(.*)/
      or die "copy command requires destin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23841	23933	
==>1}};\n\n  interpreter->current_object = NULL;\n  interpreter->current_cont = {{\@2}};\n  dest <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1092889	1093162	
==>@2}});\n    {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093693	1093964	
==>@2}});\n  {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094496	1094767	
==>@2}});\n  {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2936	3046	
==>[*(pop_addr)]";
}

my %arg_maps = (
    'op' => "cur_opcode[%ld]",

    'i'  => "IREG(%ld)",
    'n'  => "NREG( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38957	39061	
==>0 \"src/ops/core.ops\"\n  if ({{\@1}} == EXCEPT_doomed)\n    _exit({{\@2}});\n  do_exception(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39822	39926	
==>0 \"src/ops/core.ops\"\n  if ({{\@1}} == EXCEPT_doomed)\n    _exit({{\@2}});\n  do_exception(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40669	40773	
==>0 \"src/ops/core.ops\"\n  if ({{\@1}} == EXCEPT_doomed)\n    _exit({{\@2}});\n  do_exception(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41517	41621	
==>0 \"src/ops/core.ops\"\n  if ({{\@1}} == EXCEPT_doomed)\n    _exit({{\@2}});\n  do_exception(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567535	567788	
==>\@2}}->vtable->does(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568430	568683	
==>\@2}}->vtable->does(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/tools/build/pbc2c.pl	1535	1651	
==>a);

	$constant_num++;
    }
}


#
# compile_byte_code()
#

my @args = ();

sub compile_byte_code {
    my ($pf, $fil <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	21878	21975	
==>ctly.

Returns false.  Why?  Because diag() is often used in conjunction with
a failing test (C<ok <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409439	409630	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "recv",
                  "FLAGS" => ":base_network",
                  "ARGDI <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	29803	29902	
==>"$_", UF_}, english_func($_), qq{\n};
			}
		}
		print FUNC<<FUNCEND;
	goto UF_DISPATCH_END
UF_DISPA <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5228	5310	
==>alue = Jako::Construct::Expression::Value::Literal->new($block, $self->require_lite <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8228	8310	
==>alue = Jako::Construct::Expression::Value::Literal->new($block, $self->require_lite <==
4	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	682	775	
==>MANIFEST> file that F<Configure.pl> checks
and the manifest checks use.

=head2 Options

=over <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11353	11445	
==>nt_block;

      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $tok <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11900	11992	
==>nt_block;

      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $tok <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12443	12535	
==>nt_block;

      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $tok <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5075	5194	
==>)
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $l <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3138	3257	
==>)
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $l <==
4	/Users/nnunley/parrot/tools/dev/parrotbench.pl	4216	4313	
==>@program = map { /^benchmark\s+(.*)$/ } @section;
my %suffix;
$suffix{ $_ } = [ map quotemeta, $in <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14720	14811	
==>tle =~ s/^\s+//;
  return $title;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763143	763243	
==>1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763996	764096	
==>1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764849	764949	
==>1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765703	765803	
==>1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	531973	532225	
==>h((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	536566	536818	
==>h((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	538070	538322	
==>h((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539574	539826	
==>h((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83795	83935	
==>pmc_keyed_str(interpreter, compreg_hash, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84701	84841	
==>pmc_keyed_str(interpreter, compreg_hash, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10678	10777	
==>_Parse
#DO NOT remove comment

1;

}
#End of include------------------------------------------ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10199	10292	
==>_Parse
#DO NOT remove comment

1;

}
#End of include------------------------------------------ <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	36018	36159	
==>sidered a failure and will exit with 255.

So the exit codes are...

    0                   all tests successful
    255                 test <==
4	/Users/nnunley/parrot/lib/Test/More.pm	34089	34230	
==>sidered a failure and will exit with 255.

So the exit codes are...

    0                   all tests successful
    255                 test <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	2884	3025	
==>sidered a failure and will exit with 255.

So the exit codes are...

    0                   all tests successful
    255                 test <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	29	116	
==>l Foundation.
# $Id: /parrot/lib/Parrot/Docs/File.pm 20333 2006-06-21T18:44:31.111564Z b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443642	443930	
==>_psp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444657	444945	
==>_psp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/config/auto/jit.pm	4447	4621	
==>data->set(
                TEMP_exec_h => '',
                TEMP_exec_o => '',
                execcapable => 0
            );
        }

        # test for executable mallo <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	9408	9520	
==>int "\\n"
PRINT
		}
	}

}
sub parse_print {
	my $eol=0;
	my $expr=0;
	my $c=0;
	my $fd="";
	my ($result, $type, @ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469322	469416	
==>s/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exception(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470197	470291	
==>s/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exception(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478795	478889	
==>s/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exception(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479687	479781	
==>s/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exception(interpreter, <==
4	/Users/nnunley/parrot/lib/Test/More.pm	30122	30325	
==>2] };
                $ok = 0;
            }
            elsif( $type eq 'ARRAY' ) {
                $ok = _eq_array($e1, $e2);
            }
            elsif( $type eq 'HASH' ) {
                $ok = _ <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	51904	51999	
==>broutine takes a string to be processed and a 
list of extractors (subroutines or regular expres <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835681	835768	
==>BODY" => "#line 215 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836434	836521	
==>BODY" => "#line 215 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interprete <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28853	28960	
==>pir must use one of \${DEST0} or \${LOADREG} in rule " .
				"$rule->{'name'}\n";
        } elsif ($rule->{' <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29059	29160	
==>pir must use one of \${DEST0} or \${LOADREG} in rule " .
				"$rule->{'name'}\n";
		} elsif ($rule->{' <==
4	/Users/nnunley/parrot/lib/Parrot/Op.pm	5658	5756	
==>he code to represent
the auto-computed return value. See the note on op types above.

=cut

sub ful <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	36189	36285	
==>example, if C<$text> is:

	$text = '<A HREF=">>>>">link</A>';

then

	@result = extract_bracketed <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	15870	15992	
==>cted, $desc );
            $builder->diag("'$cmd' failed with exit code $exit_code")
                  if $exit_code and no <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	18421	18543	
==>cted, $desc );
            $builder->diag("'$cmd' failed with exit code $exit_code")
                  if $exit_code and no <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27782	27886	
==>de to fix up the stack type array.
		for (1..$rule->{'pop'}) {
			$pir .= "    type_trans = pop stypes\n" <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	25464	25567	
==>cted, $desc);
            $builder->diag("'$cmd' failed with exit code $exit_code") if $exit_code and no <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492845	493116	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_cor <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493606	493877	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_cor <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499580	499851	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_cor <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	548	643	
==>turn "re_onfail P0, ".$self->output_label_use($label);
}

sub output_match {
    my ($self, $byt <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13155	13377	
==>NTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13999	14221	
==>NTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14703	14925	
==>NTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	15390	15612	
==>NTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8526	8627	
==>M') {
		push @{$code{$seg}->{code}}, "\t# $syms[CURR]\n";
		goto PARSE;
	}
	if ($type[CURR] eq "INT" a <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1054	1143	
==>and not UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess "Right is n <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1082	1171	
==>and not UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess "Right is n <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	754	843	
==>and not UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess "Right is n <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3090	3189	
==><<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4848	4947	
==><<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7776	7874	
==><<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8632	8730	
==><<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253273	253571	
==>> "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 29 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254135	254433	
==>> "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 29 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254998	255296	
==>> "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 29 <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	2501	2625	
==>t' );
        my @files = ( glob( File::Spec->catfile( $dir, '*.t' ) ),
                      glob( File::Spec->catfile( $dir <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549477	549739	
==>thodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550777	551039	
==>thodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552078	552340	
==>thodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
4	/Users/nnunley/parrot/config/gen/icu.pm	4699	4811	
==>erbose;
        $conf->data->add(' ', ccflags => "-I $icuheaders");
    }
    cc_clean();

    $self->set_result( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956452	956690	
==>ction",
                  "CODE" => 1076,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 576 \"src/ops/string.ops\"\n  { <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15429	15530	
==>Get expression tokens
		$whole.=join(' ', map { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair unar <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15791	15892	
==>Get expression tokens
		$whole.=join(' ', map { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair unar <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16942	17043	
==>Get expression tokens
		$whole.=join(' ', map { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair unar <==
4	/Users/nnunley/parrot/languages/dotnet/Configure.pl	2593	2698	
==>ys %config) {
		$config_pm =~ s/\${$_}/$config{$_}/g;
	}
	
	# Write.
	open $fh, "> config/N2PConfig.p <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231158	231262	
==>=> "#line 592 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232062	232166	
==>=> "#line 592 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232966	233070	
==>=> "#line 592 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734046	734419	
==>core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 824,
                  "ARGS" => [
                              "i",
                              "sc"
                            ],
                  "BODY <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349196	349291	
==>nterpreter, NULL, path, \"+<\");\n  /* string_cstring_free(path); */\n  if(!{{\@1}}) {\n    {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350198	350293	
==>nterpreter, NULL, path, \"+<\");\n  /* string_cstring_free(path); */\n  if(!{{\@1}}) {\n    {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591450	591550	
==>@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592660	592760	
==>@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593870	593970	
==>@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595081	595181	
==>@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766068	766334	
==>=> "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 86 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766920	767186	
==>=> "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 86 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767773	768039	
==>=> "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 86 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768626	768892	
==>=> "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 86 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834686	834980	
==>GDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 945,
                  "ARGS" => [
                              "sc"
                            ],
                  "BODY" => "#line 202 \"src/ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2175	2264	
==>RSAL::isa($right, 'Jako::Construct::Expression::Value::Identifier')) {
    my $right_sym = <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2133	2222	
==>RSAL::isa($right, 'Jako::Construct::Expression::Value::Identifier')) {
    my $right_sym = <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2055	2144	
==>RSAL::isa($right, 'Jako::Construct::Expression::Value::Identifier')) {
    my $right_sym = <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	22068	22178	
==>$i = 2; $i < @$treelet; ++$i) { # iterate over children
      next unless ref $treelet->[$i];  # text nodes are <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	28354	28464	
==>$i = 2; $i < @$treelet; ++$i) { # iterate over children
      next unless ref $treelet->[$i];  # text nodes are <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	41811	41921	
==>$i = 2; $i < @$treelet; ++$i) { # iterate over children
      next unless ref $treelet->[$i];  # text nodes are <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	30549	30638	
==><extract_delimited> it can be simplified to:

	($extracted,$remainder) = extract_delimited <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1197	1303	
==>util);
    $prog ||= $ENV{uc($util)};

    # never override the user.  If a non-existent program is specifi <==
4	/Users/nnunley/parrot/config/inter/make.pm	1018	1124	
==>util);
    $prog ||= $ENV{uc($util)};

    # never override the user.  If a non-existent program is specifi <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1194	1300	
==>util);
    $prog ||= $ENV{uc($util)};

    # never override the user.  If a non-existent program is specifi <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38036	38132	
==>_name> is the name of the output file we are
generating.

The C<delegate> PMC redirects all metho <==
4	/Users/nnunley/parrot/languages/perms.pl	199	346	
==>1;
    my $i = 0;
    while (++$prefix[$i] > $#$things ) {
      $prefix[$i] = 0;
      $i++;
      last if $i > @prefix;
    }
    
    if ( $prefi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726831	727130	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exchange",
                  "FLAGS" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727629	727928	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exchange",
                  "FLAGS" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	728426	728725	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exchange",
                  "FLAGS" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729220	729519	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exchange",
                  "FLAGS" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2321	2415	
==>plemented in subclasses to return the C code for the run
core function declaration. C<$base> is <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2772	2866	
==>plemented in subclasses to return the C code for the run
core function declaration. C<$base> is <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947080	947172	
==>_number(interpreter, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\"c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947982	948074	
==>_number(interpreter, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\"c <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3449	3544	
==>${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0} <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5211	5306	
==>${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0} <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2196	2291	
==>${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0} <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3448	3543	
==>${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0} <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1485	1585	
==>'} = '' }
sub start_head3 {  $_[0]{'Thispara'} = '' }
sub start_head4 {  $_[0]{'Thispara'} = '' }

su <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1015	1115	
==>'} = '' }
sub start_head3 {  $_[0]{'Thispara'} = '' }
sub start_head4 {  $_[0]{'Thispara'} = '' }

su <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168477	168564	
==>> "#line 204 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169419	169506	
==>> "#line 204 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39000	39092	
==>CEPT_doomed)\n    _exit({{\@2}});\n  do_exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39865	39957	
==>CEPT_doomed)\n    _exit({{\@2}});\n  do_exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40712	40804	
==>CEPT_doomed)\n    _exit({{\@2}});\n  do_exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41560	41652	
==>CEPT_doomed)\n    _exit({{\@2}});\n  do_exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828839	829049	
==>type on stack!\");\n  }\n\n  {{\@1}} = UVal_pmc(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829907	830117	
==>type on stack!\");\n  }\n\n  {{\@1}} = UVal_pmc(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	119	224	
==>serToken');
use strict;

sub new {  # Class->new(tagname);
  my $class = shift;
  return bless ['end', @_] <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	664	759	
==>arse_common {
	feedme();
	while($type[CURR] !~ /COMP|COMM|STMT/) {
		$var=$syms[CURR];
		feedme( <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4094	4187	
==>lass of L<Pod::Simple> and inherits all its methods.

=head1 SEE ALSO

L<Pod::Simple>, L<Pod:: <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3535	3628	
==>lass of L<Pod::Simple> and inherits all its methods.

=head1 SEE ALSO

L<Pod::Simple>, L<Pod:: <==
4	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1271	1364	
==>lass of L<Pod::Simple> and inherits all its methods.

=head1 SEE ALSO

L<Pod::Simple>, L<Pod:: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050284	1050558	
==>= Parrot_get_global(interpreter, {{\@2}}, {{\@3}}, next);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051318	1051592	
==>= Parrot_get_global(interpreter, {{\@2}}, {{\@3}}, next);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052352	1052626	
==>= Parrot_get_global(interpreter, {{\@2}}, {{\@3}}, next);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053387	1053661	
==>= Parrot_get_global(interpreter, {{\@2}}, {{\@3}}, next);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2006	2106	
==>ir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set r <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3258	3358	
==>ir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set r <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5888	5987	
==>ir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set r <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6446	6545	
==>ir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set r <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3160	3270	
==>ES}[stack_depth]

# Do we have anything on the lazy moves stack?
${ITEMP0} = elements lazy_moves
if ${ITEMP0} > <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4918	5028	
==>ES}[stack_depth]

# Do we have anything on the lazy moves stack?
${ITEMP0} = elements lazy_moves
if ${ITEMP0} > <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7845	7955	
==>ES}[stack_depth]

# Do we have anything on the lazy moves stack?
${ITEMP0} = elements lazy_moves
if ${ITEMP0} > <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8701	8811	
==>ES}[stack_depth]

# Do we have anything on the lazy moves stack?
${ITEMP0} = elements lazy_moves
if ${ITEMP0} > <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867286	867561	
==>reter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868252	868527	
==>reter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869218	869493	
==>reter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870185	870460	
==>reter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/tools/dev/parrotbench.pl	6765	6884	
==>Time{ $cfg{method} }->();
            system(
                $ini->val($sect, 'exe') . " " . File::Spec->catdir( $cfg{b <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	451	566	
==>{
    my ($self, $t, $ctx) = @_;
    $t = $self->pass1($t, $ctx);
    # Disable implicit checks
    $t = $self->mapt <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	469	571	
==>~~~~~~~

sub _openclose {
 return map {;
   m/^([-A-Za-z]+)=(\w[^\=]*)$/s or die "what's <$_>?";
   ( $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4677	4775	
==>compiler->emit("  $dest = $left $op $right");
  }

  if (($dest_ident->kind eq 'var') and ($dest_id <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	348	461	
==>use base qw(Jako::Construct::Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  return bless {
    TOKE <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	345	458	
==>use base qw(Jako::Construct::Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  return bless {
    TOKE <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	336	449	
==>use base qw(Jako::Construct::Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  return bless {
    TOKE <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	345	458	
==>use base qw(Jako::Construct::Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  return bless {
    TOKE <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5123	5247	
==>($passLabel);

    while (@$incexc) {
        my $first = shift(@$incexc);
        my $last = shift(@$incexc);
        if (de <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4798	4922	
==>($passLabel);

    while (@$incexc) {
        my $first = shift(@$incexc);
        my $last = shift(@$incexc);
        if (de <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573027	573115	
==>reter, name, {{\@2}});\n  {{\@1}} = pmc_new_init(interpreter, enum_class_ParrotClass, nam <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573937	574025	
==>reter, name, {{\@2}});\n  {{\@1}} = pmc_new_init(interpreter, enum_class_ParrotClass, nam <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332344	332443	
==>.ops\"\n  /* These char * need to go away soon */\n  const char * const mode = string_to_cstring(int <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333622	333721	
==>.ops\"\n  /* These char * need to go away soon */\n  const char * const mode = string_to_cstring(int <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334900	334999	
==>.ops\"\n  /* These char * need to go away soon */\n  const char * const mode = string_to_cstring(int <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336179	336278	
==>.ops\"\n  /* These char * need to go away soon */\n  const char * const mode = string_to_cstring(int <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11049	11146	
==>$outfile") or die "Can't write $outfile: $!\n";

    print OUT page_header("Line Coverage for $sou <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492278	492564	
==>> 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493038	493324	
==>> 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499011	499297	
==>> 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499773	500059	
==>> 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613007	613264	
==>str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613914	614171	
==>str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042944	1043201	
==>str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043841	1044098	
==>str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18607	18753	
==>' => 101
		}
	},
	{#State 50
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10990	11088	
==>file") or die "Can't read $infile: $!\n";
    open (OUT, ">$outfile") or die "Can't write $outfile: <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11474	11572	
==>file") or die "Can't read $infile: $!\n";
    open (OUT, ">$outfile") or die "Can't write $outfile: <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11938	12036	
==>file") or die "Can't read $infile: $!\n";
    open (OUT, ">$outfile") or die "Can't write $outfile: <==
4	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	6	98	
==>/bin/perl -w
# Copyright (C) 2005, The Perl Foundation.
# $Id: /parrot/languages/tcl/tools/tc <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9544	9646	
==>}

# It's a call. Get details of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = m <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7058	7160	
==>}

# It's a call. Get details of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = m <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5614	5716	
==>}

# It's a call. Get details of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = m <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7834	7936	
==>}

# It's a call. Get details of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = m <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579510	579607	
==>tring( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(interpreter, enum_class_String);\n  VTABLE_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580815	580912	
==>tring( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(interpreter, enum_class_String);\n  VTABLE_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582120	582217	
==>tring( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(interpreter, enum_class_String);\n  VTABLE_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583426	583523	
==>tring( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(interpreter, enum_class_String);\n  VTABLE_ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	25422	25576	
==>arker' ]),
                        aop('if', [ '<tmp>', $R_back ]),
                        aop('goto', [ $lastback ]),
              $rfail => aop('pushin <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	33179	33315	
==>w);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ($w->[2] eq 'P') {
	   $ww = temp('I');
	   pr <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	33928	34064	
==>w);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ($w->[2] eq 'P') {
	   $ww = temp('I');
	   pr <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	34852	34988	
==>w);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ($w->[2] eq 'P') {
	   $ww = temp('I');
	   pr <==
4	/Users/nnunley/parrot/lib/Test/More.pm	22182	22280	
==>cceed, it will report it as an unexpected success.
You then know the thing you had todo is done and <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349248	349342	
==>g_free(path); */\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350250	350344	
==>g_free(path); */\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\ <==
4	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	21	114	
==>se strict;

=head1 NAME

gen_inline.pl

=head1 SYNOPSIS

 %perl languages/tcl/tools/gen_inline <==
4	/Users/nnunley/parrot/config/auto/gcc.pm	5306	5432	
==>my $w (split ' ', $ccwarn) {
                $w =~ s/^-W(?:no-)?(.*)$/$1/;
                @warns = grep !/^-W(?:no-)?$w$/, @wa <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	14047	14163	
==>$opsubs{$sym}) {
				if (! ref $opsubs{$sym}) {
					die "No op code yet for $sym\n";
				} else {
					my($code, $re <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	6201	6296	
==>pe of C<SELF>.

=item C<DYNSUPER(a,b,c)>

As above, but uses the actual dynamic type of C<SELF>. <==
4	/Users/nnunley/parrot/tools/dev/nm.pl	1284	1379	
==>"no", for example C<--noconst>.

=over 4

=item C<--objectname>

=item C<-o>

Prepend the object <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	5514	5613	
==>) returns Bool is export {
    Test::proclaim(1, $desc);
}

sub flunk (Str $desc?, :$todo, :$depends <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714711	714805	
==>uts(interpreter, io, \" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n    PIO_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715634	715728	
==>uts(interpreter, io, \" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n    PIO_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716579	716673	
==>uts(interpreter, io, \" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n    PIO_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072272	1072406	
==>= r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074457	1074591	
==>= r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076642	1076776	
==>= r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078828	1078962	
==>= r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901964	902264	
==>PE" => "inline",
                  "CODE" => 1017,
                  "ARGS" => [
                              "s",
                              "ic",
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 257 \"src/ops <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1108703	1108808	
==>eption(interpreter, NULL, NO_CLASS,\n                    \"Class '%Ss' not found\", readable_name(interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630565	630662	
==>eption(interpreter, NULL, NO_CLASS,\n            \"Class '%Ss' not found\", readable_name(interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631555	631652	
==>eption(interpreter, NULL, NO_CLASS,\n            \"Class '%Ss' not found\", readable_name(interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	513338	513630	
==>L);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FL <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	4899	5000	
==>groups_and_libs(@pmcs);
    my @ungrouped_pmcs = grep { ! exists $pmc_group->{$_} } @pmcs;

    foreac <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9886	9986	
==>function a$
	a$="Whoa"
end function
print a$


' Changed ref'd var from 5 to 12
function myfunc(a)
	p <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	5166	5260	
==>ndef is always sent to signal end-of-stream

    } elsif(exists $self->{'source_scalar_ref'}) { <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1802	1893	
==>m->type;

  my $left_type;
  if (UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value:: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1760	1851	
==>m->type;

  my $left_type;
  if (UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value:: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1682	1773	
==>m->type;

  my $left_type;
  if (UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value:: <==
4	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	45	135	
==>n.
# $Id: /parrot/lib/Parrot/Vtable.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	14611	14717	
==>sses{$1};
	if ($vtables{$f}) {
	    print <<EOC;
	# $namespace{$f} => $vtables{$f}
EOC
	    #$namespace{$f} <==
4	/Users/nnunley/parrot/tools/dev/install_files.pl	4901	5005	
==>s hardcoded as being installed under libdir
        # as it is typically donw with automake installed pac <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1474	1572	
==>ined $block;

  $self->INTERNAL_ERROR("Undefined type!")
    unless defined $type;

  $self->INTERN <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1322	1420	
==>ined $block;

  $self->INTERNAL_ERROR("Undefined type!")
    unless defined $type;

  $self->INTERN <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462936	463242	
==>\@2}}, den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463933	464239	
==>\@2}}, den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464930	465236	
==>\@2}}, den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	12961	13098	
==>.\n";
        }
      }
    }
    
    elsif($state == 2) {
      # seeking start of para (which must immediately follow)
      if($token- <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	1408	1528	
==>ref($atom) eq 'ARRAY') {
        # Codeblock
        $R = op('external' => [ 'code', [ $atom, $ctx ] ]);
    } elsif (UNI <==
4	/Users/nnunley/parrot/config/gen/config_h.pm	522	611	
==>qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':gen';

$description = 'G <==
4	/Users/nnunley/parrot/config/gen/makefiles.pm	364	453	
==>qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':gen';

$description = 'G <==
4	/Users/nnunley/parrot/config/gen/parrot_include.pm	356	445	
==>qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':gen';

$description = 'G <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500989	501216	
==>> "#line 621 \"src/ops/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501728	501955	
==>> "#line 621 \"src/ops/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	15883	15992	
==>]);
    push @ops, $next;

    return ($back, @ops);
}

# Dynamic alternation: a set of alternatives that shou <==
4	/Users/nnunley/parrot/lib/Test/More.pm	7654	7756	
==>"Got some foo" );

(Mnemonic:  "This is that."  "This isn't that.")

So why use these?  They produce be <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39093	39343	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39958	40208	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40805	41055	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41653	41903	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUM <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	1877	1995	
==>html(@_);
	
	if ( $index_html )
	{
		# If none of the items are in a para then the whole group is.
	
		if ( $index_html <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168539	168653	
==>nteger(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169481	169595	
==>nteger(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	2938	3040	
==>while ($line = <INPUT>) {

  # Throw away trailing newlines, comments, and whitespace. If the
  # line' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83666	83762	
==>* const compreg_hash = VTABLE_get_pmc_keyed_int(interpreter,\n      interpreter->iglobals, IGLOBA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84572	84668	
==>* const compreg_hash = VTABLE_get_pmc_keyed_int(interpreter,\n      interpreter->iglobals, IGLOBA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85477	85573	
==>* const compreg_hash = VTABLE_get_pmc_keyed_int(interpreter,\n      interpreter->iglobals, IGLOBA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86384	86480	
==>* const compreg_hash = VTABLE_get_pmc_keyed_int(interpreter,\n      interpreter->iglobals, IGLOBA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655802	656144	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656725	657067	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657649	657991	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658567	658909	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/Revision.pm	655	805	
==>vn_entries or die $!;
        while (<$FH>) {
            /^ *committed-rev=.(\d+)./ or next;
            return $1;
        }
    }
    return 0;
}

o <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	10338	10443	
==>ect Correct
DIM A(1,1)
RO=1
IF A(RO,5)=0 THEN GOSUB 20: REM GOO
   end
20 print "Correct"
   return


' Ex <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9154	9258	
==>ect Correct
DIM A(1,1)
RO=1
IF A(RO,5)=0 THEN GOSUB 20: REM GOO
   end
20 print "Correct"
   return

' Ex <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	705	793	
==>:Section::PMCs;
use Parrot::Docs::Section::DynaPMCs;
use Parrot::Docs::Section::C;
use Pa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19227	19459	
==>( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20003	20235	
==>( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20781	21013	
==>( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21581	21813	
==>( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099078	1099213	
==>TVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100276	1100411	
==>TVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101474	1101609	
==>TVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102673	1102808	
==>TVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949899	950214	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950858	951173	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951818	952133	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952778	953093	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	11274	11407	
==>"($file line $line)";
            }

            # $test_no will be part of temporary file
            my $test_no = $builder->current <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	16759	16892	
==>"($file line $line)";
            }

            # $test_no will be part of temporary file
            my $test_no = $builder->current <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	12825	12942	
==>);
    my $p;
    if (($o = is_opcode($c))) {
	print <<EOC;
	# builtin $c $cmt $o
EOC
	push @stack, [$c, $c, $o];
	ret <==
4	/Users/nnunley/parrot/config/init/hints/solaris.pm	1156	1252	
==>s should suffice for this test.
        Parrot::Configure::Step::_run_command("$cc -o test test.c <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	377	485	
==>(Jako::Construct::Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected 5 args!" u <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	377	485	
==>(Jako::Construct::Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected 5 args!" u <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16869	16972	
==>self->get(3)->is_infix_concat
      and $self->get(4)->is_value
    ) {
      my $block = $self->current <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	929	1026	
==>n be compiled for use with the Parrot interpreter.

=head1 COMMAND-LINE OPTIONS

=over 4

=item C< <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	31448	31552	
==>sub _op_char_ready_p {
}

sub _op_write {
  my ($self,$node) = @_;
  my $temp = 'none';

  for(_get_args( <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1635	1723	
==>oken>, L<Pod::Simple>, L<Pod::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Cop <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2802	2890	
==>oken>, L<Pod::Simple>, L<Pod::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Cop <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1922	2010	
==>oken>, L<Pod::Simple>, L<Pod::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Cop <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126620	126743	
==>\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127755	127878	
==>\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128890	129013	
==>\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\ <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	689	797	
==>', '',
            $self->new_item('', 'tools/dev/as2c.pl'),
            $self->new_item('', 'tools/dev/cc_fl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938580	938838	
==>{\@1}} = string_join(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939470	939728	
==>{\@1}} = string_join(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	861	957	
==>n be used to provide the config environment for
subsequently created Interpreters.

=cut


use st <==
4	/Users/nnunley/parrot/config/inter/progs.pm	4227	4316	
==>on't know why.
    $ccwarn = integrate($conf->data->get('ccwarn'), $conf->options->get('cc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48672	48894	
==>FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49462	49684	
==>FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50272	50494	
==>FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51065	51287	
==>FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENE <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	1278	1379	
==>P0, ".$self->output_label_use($failLabel));
}

sub output_pushmark {
    my ($self) = @_;
    return " <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1716	1814	
==>g to unknown variable %s.", $dest->value) unless $dest_sym;
  my $dest_type = $dest_sym->type;

  m <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1674	1772	
==>g to unknown variable %s.", $dest->value) unless $dest_sym;
  my $dest_type = $dest_sym->type;

  m <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1596	1694	
==>g to unknown variable %s.", $dest->value) unless $dest_sym;
  my $dest_type = $dest_sym->type;

  m <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	70421	70523	
==>&& $min > 0;
		_warn(3,"Subrule sequence \"$subrule($repspec) $&\" will
		       (almost certainly) fai <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	471	573	
==>start {
  # ($self, $element_name, $attr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  D <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	470	572	
==>start {
  # ($self, $element_name, $attr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  D <==
4	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	665	767	
==>start {
  # ($self, $element_name, $attr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  D <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30155	30270	
==>'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end translation\n";

		# Push load type onto the stack <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	37127	37217	
==>ify it under the same terms as Perl itself.

See F<http://www.perl.com/perl/misc/Artistic.h <==
4	/Users/nnunley/parrot/lib/Test/More.pm	37536	37626	
==>ify it under the same terms as Perl itself.

See F<http://www.perl.com/perl/misc/Artistic.h <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	6496	6586	
==>ify it under the same terms as Perl itself.

See F<http://www.perl.com/perl/misc/Artistic.h <==
4	/Users/nnunley/parrot/tools/dev/lib_deps.pl	3760	3961	
==>") {
                $variable_visible{$file}{$1}++;
            } else {
                $variable_visible{"ALL"}{$1}++;
            }
            
            next;
        }
        
        # end of <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2920	3012	
==>t_address($address)>

Returns the C code for C<restart ADDRESS($address)>.

=cut

sub restart <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3789	3881	
==>t_address($address)>

Returns the C code for C<restart ADDRESS($address)>.

=cut

sub restart <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3519	3611	
==>t_address($address)>

Returns the C code for C<restart ADDRESS($address)>.

=cut

sub restart <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253773	253887	
==>e 726 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@2}} : {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254636	254750	
==>e 726 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@2}} : {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255499	255613	
==>e 726 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@2}} : {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926444	926595	
==>et_FLAGS({{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1}} = {{\@2}}->bufused;\n                              break <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927914	928065	
==>et_FLAGS({{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1}} = {{\@2}}->bufused;\n                              break <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929384	929535	
==>et_FLAGS({{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1}} = {{\@2}}->bufused;\n                              break <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930855	931006	
==>et_FLAGS({{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1}} = {{\@2}}->bufused;\n                              break <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960352	960563	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961313	961524	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962275	962486	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963237	963448	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	3372	3499	
==>heck_line_length {
    my ($file, $source) = @_;

    my $line = 0;
    foreach (@$source) {
        $line++;
        next unles <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	819	940	
==>f);

  return $self;
}

sub ident  { return shift->{IDENT};  }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ( <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	819	940	
==>f);

  return $self;
}

sub ident  { return shift->{IDENT};  }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ( <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	52690	52784	
==>by repeatedly applying each of the specified extractors
to the remainder of the string. Thus C< <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855015	855271	
==>g_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855904	856160	
==>g_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856793	857049	
==>g_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857683	857939	
==>g_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830694	830883	
==>r_stack, &i, STACK_ENTRY_INT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831435	831624	
==>r_stack, &i, STACK_ENTRY_INT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10989	11074	
==>s\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  ST <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11778	11863	
==>s\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  ST <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909293	909391	
==>BODY" => "#line 284 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910190	910288	
==>BODY" => "#line 284 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911087	911185	
==>BODY" => "#line 284 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911985	912083	
==>BODY" => "#line 284 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579459	579550	
==>SS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580764	580855	
==>SS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582069	582160	
==>SS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583375	583466	
==>SS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  n <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	2058	2212	
==>en[0]->{name} eq 'nop';
            if (@children == 0) {
                return rop('nop', []);
            } elsif (@children == 1) {
                ret <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	10936	11056	
==>ect, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # undef only matc <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	11354	11474	
==>ect, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # undef only matc <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	278	382	
==>al "use warnings";

package Jako::Construct::Label;

use Carp;

use base qw(Jako::Construct);

1;

#
# ne <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59645	59958	
==>GS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 77,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#lin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321858	322122	
==>> 0,
                  "NAME" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322629	322893	
==>> 0,
                  "NAME" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323401	323665	
==>> 0,
                  "NAME" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	41389	41477	
==>fference between C<extract_tagged> and the anonymous
subroutines generated by
C<gen_extra <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	6717	6840	
==>opriate headers.

=cut

sub expected_tests {
    my $self = shift;
    my($max) = @_;

    if( @_ ) {
        die "Number of <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	592	685	
==>:Block');
  confess("Dest (" . ref($dest) . ") is not Identifier!") unless UNIVERSAL::isa($des <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	583	676	
==>:Block');
  confess("Dest (" . ref($dest) . ") is not Identifier!") unless UNIVERSAL::isa($des <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	472	565	
==>:Block');
  confess("Dest (" . ref($dest) . ") is not Identifier!") unless UNIVERSAL::isa($des <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926313	926447	
==>NFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927783	927917	
==>NFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929253	929387	
==>NFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930724	930858	
==>NFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72712	72824	
==>data({{\@2}}), name));\n  string_cstring_free(name);\n  if (p == NULLfunc) {\n      const char * err = Parrot_dle <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74314	74426	
==>data({{\@2}}), name));\n  string_cstring_free(name);\n  if (p == NULLfunc) {\n      const char * err = Parrot_dle <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75916	76028	
==>data({{\@2}}), name));\n  string_cstring_free(name);\n  if (p == NULLfunc) {\n      const char * err = Parrot_dle <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77519	77631	
==>data({{\@2}}), name));\n  string_cstring_free(name);\n  if (p == NULLfunc) {\n      const char * err = Parrot_dle <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579526	579623	
==>er, {{\@2}} ));\n  }\n  name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_nativ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580831	580928	
==>er, {{\@2}} ));\n  }\n  name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_nativ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582136	582233	
==>er, {{\@2}} ));\n  }\n  name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_nativ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583442	583539	
==>er, {{\@2}} ));\n  }\n  name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_nativ <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	15541	15648	
==>'[cgimsox]*',
		's'	=> '[cegimsox]*',
		'tr'	=> '[cds]*',
		'y'	=> '[cds]*',
		'qq'	=> '',
		'qx'	=> '',
		' <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	4737	4836	
==>t of the
universe, and perl does horrible mangling to them that gets in my way,
it works like this o <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5247	5345	
==>a1, $a2
	set $result, 0.0
	eq $a1, $ot1, EQ_${eqnum}_a
	inc $result
EQ_${eqnum}_a:
	eq $a2, $ot2, E <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5623	5721	
==>a1, $a2
	set $result, 0.0
	eq $a1, $ot1, EQ_${eqnum}_a
	inc $result
EQ_${eqnum}_a:
	eq $a2, $ot2, E <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	177	268	
==>RIPTION

C<Parrot::IO::Path> is an abstract superclass providing common path
logic for C<Par <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1330	1421	
==>>is_tagname(I<somestring>)

These are shortcuts for C<< $token->tag() eq I<somestring> >>

= <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1760	1851	
==>>is_tagname(I<somestring>)

These are shortcuts for C<< $token->tag() eq I<somestring> >>

= <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	832	918	
==>mple::DEBUG unless defined &DEBUG
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15572	15693	
==>w LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new AssignOp( $parser,
        'result' => <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19325	19446	
==>w LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new AssignOp( $parser,
        'result' => <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	8114	8221	
==>less defined $t and length $t;
    # TODO: enforce some limitations on what a target name can be?
    $this- <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	1251	1357	
==>shift; # Required: string (TODO: domain?)
  my $type   = shift; # Optional: TODO: type?
  my $prefix = shif <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205597	205889	
==>P) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	212269	212561	
==>P) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213218	213510	
==>P) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	10890	11009	
==>_NCI_I($reg_num);";
        return "t_$temp_num";
    };
    /4/ && do {
        push @{$temps_ref}, "PMC *t_$temp_num;" <==
4	/Users/nnunley/parrot/tools/dev/parrotbench.pl	4288	4383	
==>_ } = [ map quotemeta, $ini->val($_, 'type') ] for @section;
my $ticks = POSIX::sysconf( &POSIX: <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1035	1132	
==>s is a small simple module which simplifies the 
manipulation of `@*INC`.

It is typically used to <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1014	1104	
==>s "Left is not Value!" if defined $left and not UNIVERSAL::isa($left, 'Jako::Construct::Exp <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1042	1132	
==>s "Left is not Value!" if defined $left and not UNIVERSAL::isa($left, 'Jako::Construct::Exp <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	714	804	
==>s "Left is not Value!" if defined $left and not UNIVERSAL::isa($left, 'Jako::Construct::Exp <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17754	17900	
==>line'},
          "=for without a target?"
        );
        next;
      }
      DEBUG > 1 and
       print "Faking out a =for $target as a =begin <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9000	9110	
==>x_tmp>; # nope, set pos := popped index");
}

sub output_popint {
    my ($self, $reg, $db_desc) = @_;
    $reg <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9307	9416	
==>x_tmp> # nope, set pos := popped index");
}

sub output_popint {
    my ($self, $reg, $db_desc) = @_;
    $reg <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2326	2417	
==>e::DumpAsText -e \
   "exit Pod::Simple::DumpAsText->filter(shift)->any_errata_seen" \
   th <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	341	449	
==>use Carp;

use Jako::Compiler;

use base qw(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my $s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	341	449	
==>use Carp;

use Jako::Compiler;

use base qw(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my $s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	341	449	
==>use Carp;

use Jako::Compiler;

use base qw(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my $s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	362	469	
==>use Carp;
use Jako::Compiler;

use base qw(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my $s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540489	540588	
==>{{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541741	541840	
==>{{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542993	543092	
==>{{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2381	2479	
==>:Simple::DumpAsXML -- turn Pod into XML

=head1 SYNOPSIS

  perl -MPod::Simple::DumpAsXML -e \
   " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854388	854717	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855276	855605	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856165	856494	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857054	857383	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126602	126721	
==>onst INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127737	127856	
==>onst INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128872	128991	
==>onst INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVA <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18234	18331	
==>ms[CURR]}\t# Goto $syms[CURR]\n";
}
sub parse_gosub {
	feedme;
	create_label();

	push @{$code{$se <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22437	22541	
==>tant(1);
  my $temp_1 = $self->_constant(2);
  $self->_add_inst(''           ,'mod'   ,[$temp_0,$temp_0,$ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22938	23042	
==>tant(1);
  my $temp_1 = $self->_constant(2);
  $self->_add_inst(''           ,'mod'   ,[$temp_0,$temp_0,$ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1989	2091	
==>before translating
	# every instruction) to see if we need to instate a stack type state
	# that was pr <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1388	1490	
==>before translating
	# every instruction) to see if we need to instate a stack type state
	# that was pr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459916	460181	
==>r,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460904	461169	
==>r,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461892	462157	
==>r,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	1014	1127	
==>etting
    # content_seen.
    $self->get_short_title();
    
    return unless $self->content_seen;

    # Suppre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837212	837296	
==>c/ops/stack.ops\"\n  (void)stack_pop(interpreter, &CONTEXT(interpreter->ctx)->user_st <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837944	838028	
==>c/ops/stack.ops\"\n  (void)stack_pop(interpreter, &CONTEXT(interpreter->ctx)->user_st <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838678	838762	
==>c/ops/stack.ops\"\n  (void)stack_pop(interpreter, &CONTEXT(interpreter->ctx)->user_st <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	839410	839494	
==>c/ops/stack.ops\"\n  (void)stack_pop(interpreter, &CONTEXT(interpreter->ctx)->user_st <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1114	1215	
==>efault -> probe -> environment -> option -> ask
    $prog ||= $conf->options->get($util);
    $prog || <==
4	/Users/nnunley/parrot/config/inter/make.pm	935	1036	
==>efault -> probe -> environment -> option -> ask
    $prog ||= $conf->options->get($util);
    $prog || <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1111	1212	
==>efault -> probe -> environment -> option -> ask
    $prog ||= $conf->options->get($util);
    $prog || <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	585	686	
==>ted = 1;
    $Test::num_of_tests_planned = $number_of_tests;
    say "1..$number_of_tests";
}

sub for <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393596	393805	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "tell",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	394387	394596	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "tell",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561910	562008	
==>{\@1}}) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562994	563092	
==>{\@1}}) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528071	528370	
==>" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528952	529251	
==>" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529834	530133	
==>" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15585	15681	
==>erchantability or fitness for a particular purpose.

Portions of the data tables in this module a <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857937	858219	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858940	859222	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859944	860226	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860948	861230	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905090	905352	
==>"ARGS" => [
                              "s",
                              "p",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 262 \"src/ops/string.ops\"\n  {{\@1}} = {{\@2} <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2437	2558	
==>USER}={};

	$$self{USER};
	
}

sub YYErrok {
	my($self)=shift;

	${$$self{ERRST}}=0;
    undef;
}

sub YYNber <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2341	2449	
==>USER}={};

	$$self{USER};
	
}

sub YYErrok {
	my($self)=shift;

	${$$self{ERRST}}=0;
    undef;
}

sub YYNber <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	154	241	
==>r.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm 19606 2006-05-3 <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5439	5530	
==>m} = pop lazy_moves

# Decrement stack height.
PRE_BRANCH_${CURIC}_CONT_$register_num:
dec s <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	53600	53692	
==>ment is I<N>, then extraction continues until I<N> fields
have been successfully extracted, o <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926055	926185	
==>.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927525	927655	
==>.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928995	929125	
==>.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930466	930596	
==>.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	534	621	
==>unless UNIVERSAL::isa($dest, 'Jako::Construct::Expression::Value::Identifier');
  confes <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	660	747	
==>unless UNIVERSAL::isa($dest, 'Jako::Construct::Expression::Value::Identifier');
  confes <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	651	738	
==>unless UNIVERSAL::isa($dest, 'Jako::Construct::Expression::Value::Identifier');
  confes <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	540	627	
==>unless UNIVERSAL::isa($dest, 'Jako::Construct::Expression::Value::Identifier');
  confes <==
4	/Users/nnunley/parrot/config/init/hints/linux.pm	1436	1558	
==>re_flags => $ld_share_flags,
        ld_load_flags  => $ld_share_flags,
        i_lib_pthread  => 1,              # XXX fak <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	28036	28121	
==>eturn;
}


#:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:. <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	12225	12309	
==>eturn;
}

#:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:. <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	21015	21099	
==>eturn;
}

#:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:. <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16426	16521	
==>fghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
            r <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	1992	2085	
==>S(o) (_reg_base + ((opcode_t*)cur_opcode)[o])

END
}

=item C<suffix()>

The suffix is C<'_pre <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20598	20691	
==>b describe { undef }

sub sethashname { $_[0]->{hashname} = '__ACTION' . ++$_[1]->{actcount} . <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9969	10058	
==>fghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
      r <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	9668	9811	
==>packtype_b' => 'C',
             'packtype_i' => 'l!',
             'packtype_n' => 'd',
             'packtype_op' => 'l!',
             'parro <==
4	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Posix.pm	439	544	
==>t( '.bc', $count );
    my $test_prog_args = $ENV{TEST_PROG_ARGS} || '';

    my $posix_bc = ($^O =~ /MSWi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189717	189804	
==>> "#line 306 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190658	190745	
==>> "#line 306 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1} <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1858	1963	
==><goto OFFSET($offset)> macro in an ops file into the
relevant C code.

=cut

sub goto_offset
{
    my ($se <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2507	2612	
==><goto OFFSET($offset)> macro in an ops file into the
relevant C code.

=cut

sub goto_offset
{
    my ($se <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2226	2331	
==><goto OFFSET($offset)> macro in an ops file into the
relevant C code.

=cut

sub goto_offset
{
    my ($se <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2187	2292	
==><goto OFFSET($offset)> macro in an ops file into the
relevant C code.

=cut

sub goto_offset
{
    my ($se <==
4	/Users/nnunley/parrot/config/auto/byteorder.pm	592	701	
==>n');
    cc_build();
    my $byteorder = cc_run() or die "Can't run the byteorder testing program: $!";
    cc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833541	833625	
==>k.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}}, S <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834263	834347	
==>k.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}}, S <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834989	835073	
==>k.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}}, S <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	98889	99109	
==>t(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	251451	251671	
==>t(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	466889	467109	
==>t(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492060	492280	
==>t(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3751	3858	
==>we've
	# nothing to do here.
	if ($need_dest) {
		$pir .= <<'PIR'
# Just got it in the 0th register of the a <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1479	1570	
==>t"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = "$register_num"
${STEMP0} = concat ${STEMP1}
${ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2006	2097	
==>t"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = "$register_num"
${STEMP0} = concat ${STEMP1}
${ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3189	3280	
==>t"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = "$register_num"
${STEMP0} = concat ${STEMP1}
${ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072461	1072570	
==>);\n  {{\@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074646	1074755	
==>);\n  {{\@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076831	1076940	
==>);\n  {{\@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079017	1079126	
==>);\n  {{\@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909328	909451	
==>g.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910225	910348	
==>g.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911122	911245	
==>g.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912020	912143	
==>g.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4065	4167	
==>AS_OFFS(%ld))",

        'ic' => "((INTVAL)cur_opcode[%ld])",
        'kic' => "((INTVAL)cur_opcode[%ld <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	51506	51645	
==>fied at the start of a
					       grammar (before the first rule 
					       is defined.");
				}
				else
				{
					undef $self->{_AUTOA <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11433	11540	
==>($block, $token);
      my $op    = substr($self->forth->text, 0, -1);
      my $value = Jako::Construct::Ex <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11980	12087	
==>($block, $token);
      my $op    = substr($self->forth->text, 0, -1);
      my $value = Jako::Construct::Ex <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12523	12630	
==>($block, $token);
      my $op    = substr($self->forth->text, 0, -1);
      my $value = Jako::Construct::Ex <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080548	1080685	
==>\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081613	1081750	
==>\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082678	1082815	
==>\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083744	1083881	
==>\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598199	598456	
==>else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599246	599503	
==>else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600321	600578	
==>else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601397	601654	
==>else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467693	467945	
==>Error,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468564	468816	
==>Error,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469438	469690	
==>Error,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470313	470565	
==>Error,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11843	12067	
==>ast_key->[0],
                        'arg2'   => undef,
                        'result' => $result,
                    );
                    return [ $defn, \@opcodes, $assign ];
                }
                el <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10039	10239	
==>ast_key->[0],
                    'arg2'   => undef,
                    'result' => $result,
                );
                return [ $defn, \@opcodes, $assign ];
            }
            el <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8886	9038	
==>ast_key->[0],
            'arg2'   => undef,
            'result' => $result,
        );
        return [ $defn, \@opcodes, $assign ];
    }
    el <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	373	467	
==>Class Methods

=over

=cut

package Parrot::Docs::Section::Languages;

use strict;
use warnings <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	4370	4492	
==>type->code;
    }

    $sig =~ tr[INPS][ifpt]; # Defaults.

    my $fn_name = $fn;

    $fn_name =~ s/^.*::/"/;

    $compi <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7647	7742	
==>_PLOOP_END_${CURIC}
dec ${ITEMP0}
dec ${ITEMP2}

# Generate name of register to hold value we po <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612942	613031	
==>"BODY" => "#line 496 \"src/ops/object.ops\"\n    VTABLE_set_attr_str(interpreter, {{\@1}}, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613849	613938	
==>"BODY" => "#line 496 \"src/ops/object.ops\"\n    VTABLE_set_attr_str(interpreter, {{\@1}}, <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19751	19923	
==>hcount--
#                 goto R.back
#           back: if $matchcount >= max goto rfail
#                 R or rfail
#                 $matchcount++
#          check: if $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197335	197451	
==>e 366 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198232	198348	
==>e 366 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199129	199245	
==>e 366 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72686	72804	
==>{{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_cstring_free(name);\n  if (p == NULLfunc) {\n      const cha <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74288	74406	
==>{{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_cstring_free(name);\n  if (p == NULLfunc) {\n      const cha <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75890	76008	
==>{{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_cstring_free(name);\n  if (p == NULLfunc) {\n      const cha <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77493	77611	
==>{{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_cstring_free(name);\n  if (p == NULLfunc) {\n      const cha <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39060	39318	
==>r, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PAR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39925	40183	
==>r, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PAR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40772	41030	
==>r, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PAR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41620	41878	
==>r, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PAR <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5787	5926	
==>} } ) {
            print {$FH} ", " unless ($first);
            print {$FH} "$_->{symbol}";
            if ( exists $_->{pragma} and $_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835302	835552	
==>MP" => 0,
                  "NAME" => "savec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836054	836304	
==>MP" => 0,
                  "NAME" => "savec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	4782	4893	
==>quires destination";
    my $dest = $1;

    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        ga <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	4886	4997	
==>quires destination";
    my $dest = $1;

    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        ga <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381236	381504	
==>nterpreter, NULL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382248	382516	
==>nterpreter, NULL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383260	383528	
==>nterpreter, NULL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384273	384541	
==>nterpreter, NULL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	8728	8852	
==>foreach my $kid (@{ $t->{args} }) {
            $kid_follow_min += $kid->minlen();
        }

        foreach my $kid (@{ $t- <==
4	/Users/nnunley/parrot/editor/kate_syntax.pl	2727	2847	
==>1;
    $type =~ s/\./\&046;/g;
    print "      <item>$type</item>\n";
    $types{$type} = 1;
}

print <<END;
    </list> <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411008	411101	
==>c/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_send(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411901	411994	
==>c/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_send(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	6338	6475	
==>$ago) {
        return $NOW - $ago;
    } else {
        return;
    }
}

sub needs_build {
    my ($target, @sources) = @_;

    my $targ <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4758	4895	
==>$ago) {
        return $NOW - $ago;
    } else {
        return;
    }
}

sub needs_build {
    my ($target, @sources) = @_;

    my $targ <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	6549	6686	
==>$ago) {
        return $NOW - $ago;
    } else {
        return;
    }
}

sub needs_build {
    my ($target, @sources) = @_;

    my $targ <==
4	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8527	8612	
==>304613,/* 7 */
FF,$b,$c,$d,$a,$_[11],22,0xfd469501,/* 8 */
FF,$a,$b,$c,$d,$_[12],7,0x6 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154859	154980	
==>> "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155763	155884	
==>> "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156667	156788	
==>> "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157572	157693	
==>> "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4158	4269	
==>continue;
	    }
	    internal_exception(1, "illegal opcode in switch core\\n");
	    break;
	} /* switch */
END <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100465	100756	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":ba <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101898	102189	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":ba <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102669	102960	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":ba <==
4	/Users/nnunley/parrot/config/inter/progs.pm	966	1077	
==>o null command.
    # XXX need config support for a null command.
    my $null = 'echo';
    my $first_working = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822365	822458	
==>T) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823433	823526	
==>T) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826643	826736	
==>T) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827713	827806	
==>T) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528649	528902	
==>an2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529531	529784	
==>an2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	530413	530666	
==>an2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	7371	7508	
==>ic   Integer constant (in-line)
        #   nc   Number constant index
        #   pc   PMC constant index
        #   sc   String constan <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	558	705	
==>self = bless {
    BLOCK     => $block,

    PREFIX    => $prefix,
    KIND      => 'while',
    LEFT      => $left,
    OP        => $op,
    RIGHT <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2556	2670	
==>ift;
    my $source = shift || die "No source\n";
    my $target = shift || die "No target\n";
    my $silent = shi <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	2952	3066	
==>ift;
    my $source = shift || die "No source\n";
    my $target = shift || die "No target\n";
    my $silent = shi <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	2400	2514	
==>ift;
    my $source = shift || die "No source\n";
    my $target = shift || die "No target\n";
    my $silent = shi <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	8207	8339	
==>{
				$line = shift @lines;
		
				last if $line !~ /\S/o;
				
				push @abstract, $line;
			}
			
			my $desc = join ' ', @abstract <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3005	3130	
==>ut,
    #"\n"
  ;
  $self->{'Thispara'} = '';
  
  return;
}

# . . . . . . . . . . And then off by its lonesome:

sub end_Ver <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2539	2656	
==>ut, "\n";
  $self->{'Thispara'} = '';
  
  return;
}

# . . . . . . . . . . And then off by its lonesome:

sub end_Ver <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	4898	5004	
==>4     SS$_ABORT         something went wrong

Unfortunately, I can't differentiate any further.


=head1 NO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672428	672726	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673200	673498	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673970	674268	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	674741	675039	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	4474	4621	
==>q '#') {
            foreach my $line (@comment) {
                $line = "# $line\n";
            }
        } elsif ($options{commentType} eq '/*' <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2550	2659	
==>ock at the top of the block stack. We fill in the
  # IDENT entry within the block.
  #

  $sym = Jako::Symbol <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2297	2406	
==>ock at the top of the block stack. We fill in the
  # IDENT entry within the block.
  #

  $sym = Jako::Symbol <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	5311	5407	
==>od Body Substitutions

The vtable method bodies can use the following substitutions:

=over 4

=i <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	48044	48305	
==>des or end-codes
          (?:
            [^A-Z\ >]+
            |
            (?:
              [A-Z](?!<)
            )
            |
            (?:
              \ (?!>)
            )
          )+
        )
      )
    /xgo
  ) {
    DEBUG > 4 and print "\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540415	540517	
==>= {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541667	541769	
==>= {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542919	543021	
==>= {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1876	1993	
==>lue : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2481	2598	
==>lue : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	2039	2156	
==>lue : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3155	3272	
==>lue : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3018	3134	
==>REG(%ld)",
    'n'  => "NREG(%ld)",
    'p'  => "PREG(%ld)",
    's'  => "SREG(%ld)",
    'k'  => "PREG(%ld)",
    'k <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2838	2954	
==>REG(%ld)",
    'n'  => "NREG(%ld)",
    'p'  => "PREG(%ld)",
    's'  => "SREG(%ld)",
    'k'  => "PREG(%ld)",
    'k <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1936	2046	
==>REG(%ld)",
  'n'   => "NREG(%ld)",
  'p'   => "PREG(%ld)",
  's'   => "SREG(%ld)",
  'k'   => "PREG(%ld)",
  'k <==
4	/Users/nnunley/parrot/config/init/hints/darwin.pm	1227	1330	
==>X when built against a dynamic libparrot installable_parrot records
        # the path to the blib versi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16061	16339	
==>,
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16833	17111	
==>,
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	17607	17885	
==>,
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18402	18680	
==>,
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1683	1860	
==>=> '.dll',
            load_ext   => '.dll',
            a          => '.lib',
            o          => '.obj',
            cc_o_out   => '-Fo',
            cc_exe_out => '-out: <==
4	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3562	3739	
==>=> '.dll',
            load_ext   => '.dll',
            a          => '.lib',
            o          => '.obj',
            cc_o_out   => '-Fo',
            cc_exe_out => '-out: <==
4	/Users/nnunley/parrot/tools/build/ops2pm.pl	5131	5235	
==>t the preamble for the MODULE file:
#

my $version = $real_ops->version();

# Hide the pod.

(my $pod = < <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	1690	1793	
==>iting $c_name\n" if $opt->{verbose};
    open my $C, '>', $c_name or die "Can't write '$c_name";
    pri <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28384	28478	
==>::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
						. <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30460	30554	
==>::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
						. <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32660	32754	
==>::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
						. <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875978	876239	
==>> [
                              "s",
                              "sc",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_subs <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	410	524	
==>k_types = (
  'while'    => { PREFIX => "_W", NEXT => 'CONT', REDO => 'REDO', LAST => 'LAST' },
  'if'       => { P <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	431	545	
==>k_types = (
  'while'    => { PREFIX => "_W", NEXT => 'CONT', REDO => 'REDO', LAST => 'LAST' },
  'if'       => { P <==
4	/Users/nnunley/parrot/tools/build/pbc2c.pl	6766	6874	
==>(@{$opcodes{$pc}->{args}});
	    my $source = $op->source($trans);

	    $new_pc = $pc + $op->size;
	    $sou <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556628	556727	
==>pmc, *object;\n  opcode_t *next;\n\n  object = {{\@1}};\n  method_pmc = {{\@2}};\n\n  next = {{^+4}} <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	534	629	
==>_;

  confess "Block (" . ref($block) . ") is not!" unless UNIVERSAL::isa($block, qw(Jako::Const <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	544	638	
==>_;

  confess "Block (". ref($block) . ") is not!" unless UNIVERSAL::isa($block, qw(Jako::Const <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	526	620	
==>_;

  confess "Block (". ref($block) . ") is not!" unless UNIVERSAL::isa($block, qw(Jako::Const <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	56102	56197	
==>ulated and
eventually become the next field (unless the fourth argument is true, in which
case t <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2761	2851	
==>f->INTERNAL_ERROR("No type for left!")  unless defined $left_type;
  $self->INTERNAL_ERROR( <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2527	2617	
==>f->INTERNAL_ERROR("No type for left!")  unless defined $left_type;
  $self->INTERNAL_ERROR( <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2449	2539	
==>f->INTERNAL_ERROR("No type for left!")  unless defined $left_type;
  $self->INTERNAL_ERROR( <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	377	489	
==>base qw(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  m <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	397	509	
==>base qw(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  m <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	377	489	
==>base qw(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  m <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	30327	30426	
==>restore_rxlocals;
#    if ($ctx->{preserve_state}) {
        @save_rxlocals = $self->rule_save_rxloc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557299	557560	
==>llmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558682	558943	
==>llmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560066	560327	
==>llmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	31340	31483	
==>te 107
		ACTIONS => {
			":" => 42,
			"(" => 48,
			"{" => 38,
			"[" => 47,
			"." => 49,
			'STRING' => 44
		},
		GOTOS => {
			'ta <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033183	1033280	
==>.ops\"\n    parrot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034281	1034378	
==>.ops\"\n    parrot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035377	1035474	
==>.ops\"\n    parrot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036541	1036638	
==>.ops\"\n    parrot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544636	544939	
==>ar1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545972	546275	
==>ar1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547308	547611	
==>ar1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	610	739	
==>ck,
    PEER      => $peer,

    KIND      => 'else',

    CONTENT   => [ ]
  }, $class;

  $block->push_content($self);

  return <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1595	1704	
==>n shift->{COND};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { retu <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1731	1840	
==>n shift->{COND};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { retu <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1374	1483	
==>n shift->{COND};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { retu <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	428	513	
==>a/lib/luacoroutine.pir"
.include "languages/lua/lib/luapackage.pir"
.include "langua <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849906	850175	
==>hopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850793	851062	
==>hopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851680	851949	
==>hopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852568	852837	
==>hopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77384	77480	
==>lename;
	if ($tracerulename) { $lastrulename = $tracerulename }

	$tracecontext =~ s/\n/\\n/g;
	$ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	249527	249789	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "not",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	250157	250419	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "not",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	250894	251156	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "not",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	251556	251818	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "not",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
4	/Users/nnunley/parrot/tools/dev/pbc_header.pl	832	949	
==>compat_file or die "Can't read $compat_file";
    my @lines = <IN>;
    close IN;

    my $len = 10;
    my $fingerpri <==
4	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	758	859	
==>compat_file or die "Can't read $compat_file";
my @lines = <IN>;
close IN;

my $len = 10;
my $fingerpri <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549908	550003	
==>ne 56 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551209	551304	
==>ne 56 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\ <==
4	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	5927	6023	
==>ut Digest::MD5 is still about 135 times faster.
You can only encrypt Data up to one million bytes <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	530	618	
==>od::Simple::PullParser

=head1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head1 DESCRIP <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	949	1037	
==>od::Simple::PullParser

=head1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head1 DESCRIP <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	436	524	
==>od::Simple::PullParser

=head1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head1 DESCRIP <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16313	16406	
==>require_assign;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->fort <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17084	17177	
==>require_assign;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->fort <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17889	17982	
==>require_assign;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->fort <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	5995	6196	
==>{
                    die "Duplicate value for push in rule $rule->{'name'}\n";
                } else {
                    $has_push = 1;
                }
            } else {
                die "In <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573055	573161	
==>\@1}} = pmc_new_init(interpreter, enum_class_ParrotClass, name);\n  {{+=3}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573965	574071	
==>\@1}} = pmc_new_init(interpreter, enum_class_ParrotClass, name);\n  {{+=3}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	10873	10975	
==>oken_count <= ($max_token || 1_000_000)
    and defined(my $token = $self->get_token)
  ) {
    push @t <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32066	32170	
==>". join(' ', @args) if @args;
    $parameters = ", $parameters" if $parameters;
    my $body = "VTABLE_$m <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33643	33747	
==>". join(' ', @args) if @args;
    $parameters = ", $parameters" if $parameters;
    my $body = "VTABLE_$m <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40700	40804	
==>". join(' ', @args) if @args;
    $parameters = ", $parameters" if $parameters;
    my $body = "VTABLE_$m <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	41392	41494	
==>_obj, @_);
  $self->_restore($func_obj);

  return $return;
}

sub _call_function_obj {
  my $self = sh <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3123	3232	
==>nd register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have anything on the lazy moves stack?
${ITEMP0 <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4881	4990	
==>nd register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have anything on the lazy moves stack?
${ITEMP0 <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7808	7917	
==>nd register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have anything on the lazy moves stack?
${ITEMP0 <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8664	8773	
==>nd register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have anything on the lazy moves stack?
${ITEMP0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858547	858648	
==>ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat with negative arg\") <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859551	859652	
==>ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat with negative arg\") <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860555	860656	
==>ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat with negative arg\") <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861560	861661	
==>ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat with negative arg\") <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	10178	10310	
==>"Parrot_jit_vtable_newp_ic_op";
            $opbody =~ /vtable->(\w+)/;
            $extern = 2;  # fake number
            #print "$ <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10937	11039	
==>"Writing $outfile..\n" if $DEBUG;
    open (IN, "<$infile") or die "Can't read $infile: $!\n";
    open <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11421	11523	
==>"Writing $outfile..\n" if $DEBUG;
    open (IN, "<$infile") or die "Can't read $infile: $!\n";
    open <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11885	11987	
==>"Writing $outfile..\n" if $DEBUG;
    open (IN, "<$infile") or die "Can't read $infile: $!\n";
    open <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27654	27767	
==>, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end translation\n" <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30121	30234	
==>, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end translation\n" <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33539	33652	
==>, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end translation\n" <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37203	37316	
==>, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end translation\n" <==
4	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	4005	4137	
==>ach (keys %classes) {
        # Stick label at top.
        my $label = "CLASS_$_";
        $label =~ s/\./_/g;
        $pir .= "$lab <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1255	1364	
==>rn shift->{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { ret <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1246	1355	
==>rn shift->{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { ret <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1135	1244	
==>rn shift->{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { ret <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	9112	9226	
==>ext/;

    return $t;
}

sub write_code_to_file {
    my ($code, $code_f) = @_;

    open my $CODE, '>', $code_f or <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	8724	8829	
==>1] eq "BARE") {
			$this->[0]=changename($this->[0]);
		}

		push(@expr, $foo[$t]);
		
		# Functions, arra <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	10819	10920	
==>xpression '$currentexpr'";
		}
	} else {
		return $oldresult;
	}
}
sub pushargs {
	my($code,$optype,$w <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	258	357	
==>5-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

use Carp;

package Jako::Construc <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	12241	12367	
==>r) # take
    .param int op1
    .param pmc op2

    .local pmc result 
    result = new 'APLVector'

    .local pmc iter
    i <==
4	/Users/nnunley/parrot/config/auto/gdbm.pm	976	1090	
==>on. TODO: Need a more generalized way for finding
    # where Fink lives.
    if ($osname =~ /darwin/) {
        if <==
4	/Users/nnunley/parrot/config/auto/gmp.pm	1175	1289	
==>on. TODO: Need a more generalized way for finding
    # where Fink lives.
    if ($osname =~ /darwin/) {
        if <==
4	/Users/nnunley/parrot/config/auto/readline.pm	1250	1364	
==>on. TODO: Need a more generalized way for finding
    # where Fink lives.
    if ($osname =~ /darwin/) {
        if <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099186	1099306	
==>\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100384	1100504	
==>\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101582	1101702	
==>\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102781	1102901	
==>\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6856	7043	
==>s => {
          name  => $name,
          type  => $type,
          kind  => 'fn',
          fnlib => $fnlib,
          fn    => $fn
        }
      });
    }
    else {
      $handler->s <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	20596	20719	
==>('section', 'to') {        
            if(defined($thing = $treelet->[$i][1]{$attrname}) and ref $thing) {
              un <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	42080	42199	
==>('section', 'to') {        
          if(defined($thing = $treelet->[$i][1]{$attrname}) and ref $thing) {
            un <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	56094	56205	
==>: \"$@\"", $line);
					_hint("The <token:...> directive requires a list
					       of one or more strings repr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579312	579409	
==>lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580617	580714	
==>lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581922	582019	
==>lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583228	583325	
==>lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class) <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	22873	23007	
==>"c|gen-c"       => \$action{gen_c},
        "tree"          => \$action{tree},

        "no-body"       => \$opt{nobody},
        "no-l <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10677	10787	
==>f 'A' eq chr(65);
        $section = $self->unicode_escape_url($section);
        # Turn char 1234 into "(1234) <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	16709	16819	
==>hname($self);
	    }
	}
}

sub prevwasreturn
{
	my ( $self, $line ) = @_;
	unless (@{$self->{items}})
	{
		Pars <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4058	4161	
==>f 'A' eq chr(65);
    $section = $self->unicode_escape_url($section);
     # Turn char 1234 into "(1234) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82921	83243	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	250090	250348	
==>",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "not",
                  "FLAGS" => ":base_cor <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	251489	251747	
==>",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "not",
                  "FLAGS" => ":base_cor <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10045	10174	
==>$pieces) = @_;

    # Empty list
    return [] if @$pieces == 0;

    # Negated list
    if ($pieces->[0] eq 'neg') {
        retu <==
4	/Users/nnunley/parrot/tools/dev/symlink.pl	2628	2747	
==>e failed: $!\n";
		}
	    }
	}
    }
    warn "$self: could not find any files to symlink\n" unless @srcfiles;
    close <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	360	464	
==>A = qw/SRM::Base/;

# Constructor. Just base this class on a hash.
sub new() {
	my $invocant = shift;
	re <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	266	370	
==>A = qw/SRM::Base/;

# Constructor. Just base this class on a hash.
sub new() {
	my $invocant = shift;
	re <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	174	278	
==>A = qw/SRM::Base/;

# Constructor. Just base this class on a hash.
sub new() {
	my $invocant = shift;
	re <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	28004	28314	
==>ults",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 37,
                  "ARGS" => [
                              "pc"
                            ], <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1487	1600	
==>RROT = qq[];

# Here comes some stuff for Win32.
our $PATHQUOTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quo <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1532	1645	
==>RROT = qq[];

# Here comes some stuff for Win32.
our $PATHQUOTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quo <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1536	1649	
==>RROT = qq[];

# Here comes some stuff for Win32.
our $PATHQUOTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quo <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	339572	339874	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340570	340872	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341569	341871	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342568	342870	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18167	18394	
==>ol(interpreter, {{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18976	19203	
==>ol(interpreter, {{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21330	21557	
==>ol(interpreter, {{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22144	22371	
==>ol(interpreter, {{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926417	926555	
==>_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1}} = {{\@2}}->bufus <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927887	928025	
==>_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1}} = {{\@2}}->bufus <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929357	929495	
==>_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1}} = {{\@2}}->bufus <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930828	930966	
==>_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1}} = {{\@2}}->bufus <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16621	16879	
==>0) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	17395	17653	
==>0) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19775	20033	
==>0) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20553	20811	
==>0) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	2525	2626	
==>xecutable()>

This tells you whether the file is executable.

=cut

sub is_executable
{
    my $self = <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1803	1903	
==>rr, $ret) = capture_output($prog, '--version');

    # don't override the user even if the program th <==
4	/Users/nnunley/parrot/config/inter/make.pm	1677	1777	
==>rr, $ret) = capture_output($prog, '--version');

    # don't override the user even if the program th <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1817	1917	
==>rr, $ret) = capture_output($prog, '--version');

    # don't override the user even if the program th <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138607	139045	
==>,
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 170,
                  "ARGS" => [
                              "ic",
                              "i",
                              "ic"
                            ],
                  " <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2007	2109	
==>s unknown variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->type;
  }
  else { <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1965	2067	
==>s unknown variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->type;
  }
  else { <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1887	1989	
==>s unknown variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->type;
  }
  else { <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	22460	22564	
==>ex/Grammar.y"
{ push @{$_[1]}, $_[2]; return $_[1]; }
	],
	[#Rule 40
		 'classpieces', 0,
sub
#line 171 " <==
4	/Users/nnunley/parrot/config/init/hints/freebsd.pm	717	910	
==>et(
        libs                    => $libs,
        link                    => 'g++',
        rpath                   => '-Wl,-R',

        has_dynamic_linking     => 1,
        parrot_is_shar <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256347	256442	
==>"BODY" => "#line 740 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257255	257350	
==>"BODY" => "#line 740 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258163	258258	
==>"BODY" => "#line 740 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501011	501266	
==>/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501750	502005	
==>/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502488	502743	
==>/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503227	503482	
==>/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293490	293796	
==>{{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294366	294672	
==>{{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295242	295548	
==>{{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
4	/Users/nnunley/parrot/config/auto/signal.pm	906	1012	
==>l { cc_build(); };
    unless ($@ || cc_run() !~ /ok/) {
        $conf->data->set(has___sighandler_t => 'de <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6393	6492	
==>ort until no elements are exchanged.
   Exchange=FALSE
   ' Compare the array elements by pairs. Whe <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16046	16145	
==>ort until no elements are exchanged.
   Exchange=FALSE
   ' Compare the array elements by pairs. Whe <==
4	/Users/nnunley/parrot/config/inter/encoding.pm	1581	1677	
==>onf->data->get('slash');
    $TEMP_encoding_o =~ s/^| / src${slash}encodings${slash}/g;

    $con <==
4	/Users/nnunley/parrot/tools/dev/parrot_api.pl	622	711	
==>by default
F<blib/lib/libparrot.a>), and then cross-references the dubious API
symbols acc <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	38122	38226	
==>uction.
	$pir .= "    goto TRANS_LOOP\n\n";

	# Clean up meta-variables hash.
	foreach (@localmv) {
		del <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2787	2888	
==>re and post stack operation (op class instructions) hooks.
sub pre_op($$) {
	my $self = shift;
	my ($p <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1709	1810	
==>re and post stack operation (op class instructions) hooks.
sub pre_op($$) {
	my $self = shift;
	my ($p <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	898	999	
==>re and post stack operation (op class instructions) hooks.
sub pre_op($$) {
	my $self = shift;
	my ($p <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	888	982	
==>=> 'block', Attributes => { kind => $self->kind } });
  $_->sax($handler) foreach $self->conten <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1901	1995	
==>=> 'block', Attributes => { kind => $self->kind } });
  $_->sax($handler) foreach $self->conten <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2695	2789	
==>=> 'block', Attributes => { kind => $self->kind } });
  $_->sax($handler) foreach $self->conten <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11601	11686	
==>19 \additive \f1\lang1024\noproof\sbasedon10 pod-C;}
{\s20\ql \li0\ri0\sa180\widctlpar <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	13484	13616	
==>ULT => -4,
		GOTOS => {
			'block' => 58,
			'chunk' => 57
		}
	},
	{#State 15
		DEFAULT => -11,
		GOTOS => {
			'@1-1' => 5 <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	4976	5102	
==>owing fails to rewrite
#   aR|[a]S
# to
#   a(R|S)
#
sub matchsame {
    my ($R, $S) = @_;
    return 0 if ! ref $R;
    return <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	31780	31882	
==>urn $temp; # We need to return something
}

sub _op_display {
}

sub _op_newline {
}

sub _op_write_cha <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24152	24247	
==>= new .PerlHash
	\$P2 = new .PerlArray
	\$P3 = new .PerlHash
	\$P3["index"]=\$P2
	\$P3["hash"]=\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381192	381302	
==>}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382204	382314	
==>}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383216	383326	
==>}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384229	384339	
==>}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30377	30502	
==>items (as at line "
              . $para->[1]{'start_line'}
              . ") unless the first thing after the =over is an = <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	5922	6028	
==>am I closer than n away from the end of the string?"
#
# After this operation, /abc/ compiles to
#
#  check <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76732	76833	
==>RACE>1
	    && $::RD_TRACE+10<length($_[0]))
	{
		my $count = length($_[0]) - $::RD_TRACE;
		return su <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77043	77144	
==>RACE>1
	    && $::RD_TRACE+10<length($_[0]))
	{
		my $count = length($_[0]) - $::RD_TRACE;
		return su <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72960	73067	
==>eason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74562	74669	
==>eason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76164	76271	
==>eason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77767	77874	
==>eason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240219	240509	
==>= l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241167	241457	
==>= l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242115	242405	
==>= l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243064	243354	
==>= l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	395664	396048	
==>",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 459,
                  "ARGS" => [
                              "p",
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 527 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492739	492848	
==>ne 585 \"src/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493500	493609	
==>ne 585 \"src/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABE <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12807	12910	
==>@args) . ")\n";
}


sub parse_exit {
	if ($syms[NEXT] eq "for") {
		feedme();
	  	$foo=$fors[$scopes]->[ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769416	769699	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770268	770551	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771121	771404	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771974	772257	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	29344	29481	
==>tual_ok => 0,   # in absolute terms, it failed
        name      => 'hole count',
        type      => 'todo',
        reason    => 'insuf <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540497	540600	
==>\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541749	541852	
==>\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543001	543104	
==>\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574792	575026	
==>ter, enum_class_ParrotClass, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575596	575830	
==>ter, enum_class_ParrotClass, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	270105	270272	
==>,
                              "p"
                            ],
                  "BODY" => "#line 854 \"src/ops/cmp.ops\"\n  {{\@1}} = (mmd_dispatch_i_pp(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	3193	3301	
==>\$)/so;
    
    return $id;
}

=item C<has_svn_id()>

Returns whether the file has a svn C<$Id> string.

=cu <==
4	/Users/nnunley/parrot/config/init/hints/irix.pm	157	272	
==>se strict;

sub runstep
{
    my ($self, $conf) = @_;

    my $ccflags = $conf->data->get('ccflags') || "";

    # 1 <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2195	2283	
==>ako::Construct::Expression::Value::Identifier')) {
    my $right_sym = $block->find_symbo <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2153	2241	
==>ako::Construct::Expression::Value::Identifier')) {
    my $right_sym = $block->find_symbo <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2075	2163	
==>ako::Construct::Expression::Value::Identifier')) {
    my $right_sym = $block->find_symbo <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388181	388596	
==>"i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 452,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic",
                              "i"
                            ],
                  "BODY" => <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2857	2974	
==>$$) {
	my $self = shift;
	my ($pops, $pushes) = @_;
	my $register_num = 0;
	my $push_num = 0;
	my $pir = '';

	# Do co <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1779	1896	
==>$$) {
	my $self = shift;
	my ($pops, $pushes) = @_;
	my $register_num = 0;
	my $push_num = 0;
	my $pir = '';

	# Do co <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	21714	21814	
==>ix$r2[0]->{'code'}\n";
        $pir .= "    if cur_ic < 0x$r2[0]->{'code'} goto INS_BRANCH_$prefix$r1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634682	634784	
==>, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vt <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635800	635902	
==>, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vt <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636918	637020	
==>, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vt <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638037	638139	
==>, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vt <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	89	181	
==>m 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::POD2HTML - POD to <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550075	550164	
==>^+3}};\n  interpreter->current_object = object;\n  interpreter->current_cont = NEED_CONTIN <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551376	551465	
==>^+3}};\n  interpreter->current_object = object;\n  interpreter->current_cont = NEED_CONTIN <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552718	552807	
==>^+3}};\n  interpreter->current_object = object;\n  interpreter->current_cont = NEED_CONTIN <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10070	10191	
==>. \n";
      } elsif ($tagname eq 'item-bullet') {
        print $fh "\\'95 \n";
        #for funky testing: print $fh '', <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15791	15887	
==>d function
y=66.66
u=foo()

' Bubble sort cities
TRUE=1
FALSE=0
DIM A$(4)
A$(1) = "New York"
A$(2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684641	684736	
==>ops/pmc.ops\"\n      {{\@1}}->vtable->setprop(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n      {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685536	685631	
==>ops/pmc.ops\"\n      {{\@1}}->vtable->setprop(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n      {{ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30739	30848	
==>ype = $self->_get_item_type($para);
            # That kills the content of the item if it's a number or bulle <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	31704	31813	
==>ype = $self->_get_item_type($para);
            # That kills the content of the item if it's a number or bulle <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34027	34136	
==>ype = $self->_get_item_type($para);
            # That kills the content of the item if it's a number or bulle <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	531	631	
==>e
{
    return 'PARROT_FUNCTION_CORE';
}

=item C<core_prefix()>

Returns an empty string.

=cut

sub <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143611	143904	
==>2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144539	144832	
==>2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145467	145760	
==>2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33371	33508	
==>32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 118
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469330	469438	
==>ps\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470205	470313	
==>ps\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478803	478911	
==>ps\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479695	479803	
==>ps\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionE <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	20169	20292	
==>w to test the language implementation
                require "Parrot/Test/$language.pm";
                my $class = "Parro <==
4	/Users/nnunley/parrot/config/auto/gmp.pm	2182	2302	
==>ed for the test
        $conf->data->set('libs',      $libs);
        $conf->data->set('ccflags',   $ccflags);
        $c <==
4	/Users/nnunley/parrot/config/auto/readline.pm	1982	2102	
==>ed for the test
        $conf->data->set('libs',      $libs);
        $conf->data->set('ccflags',   $ccflags);
        $c <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	28586	28694	
==>ewrite_other($op, $lastback));
        }
    } elsif (UNIVERSAL::isa($op, "Regex::Ops::List")) {
        retu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169904	170263	
==>ase_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 204,
                  "ARGS" => [
                              "p",
                              " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	312883	313135	
==>MP" => 0,
                  "NAME" => "getfile",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1475	1574	
==>C<args(@args)>

=item C<args()>

Sets/gets the transform's arguments.

=cut

sub args
{
    my $self <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1084	1183	
==>C<args(@args)>

=item C<args()>

Sets/gets the transform's arguments.

=cut

sub args
{
    my $self <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926455	926643	
==>\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1}} = {{\@2}}->bufused;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927925	928113	
==>\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1}} = {{\@2}}->bufused;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929395	929583	
==>\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1}} = {{\@2}}->bufused;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930866	931054	
==>\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1}} = {{\@2}}->bufused;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858676	858933	
==>repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859680	859937	
==>repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860684	860941	
==>repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861689	861946	
==>repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	15170	15293	
==>th_name = $1;
            my $sub_meth =  $sub_meth_decl;   # no "static ." ...
            $sub_meth =~ s/\(/_$right_type(/ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27544	27648	
==>scribe ) . '};
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self->{"lookahead" <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29654	29758	
==>scribe ) . '};
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self->{"lookahead" <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31751	31855	
==>scribe ) . '};
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self->{"lookahead" <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11075	11171	
==>PQRSTUVWXYZ0123456789])/sprintf('%%%02X',ord($1))/eg;
        # Yes, stipulate the list without a <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4424	4519	
==>PQRSTUVWXYZ0123456789])/sprintf('%%%02X',ord($1))/eg;
       # Yes, stipulate the list without a <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	24845	24939	
==>array, $textref,
				$match[2], $match[3]+$match[5]+$match[7],	# MATCH
				@match[8..9,0..1,2.. <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	7677	7769	
==>array, $textref,
			$match[2], $match[3]+$match[5]+$match[7],	# MATCH
			@match[8..9,0..1,2.. <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33373	33512	
==>$expr->[1] };
        push @opcodes3, new AssignOp( $parser,
            'result' => $var,
            'arg1'   => $expr->[0],
        ) <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1104	1193	
==>fno-common -Wno-long-double  -I /opt/local/include   -g -Wall -Wstrict-prototypes -Wmissin <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1162	1251	
==>fno-common -Wno-long-double  -I /opt/local/include   -g -Wall -Wstrict-prototypes -Wmissin <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1166	1255	
==>fno-common -Wno-long-double  -I /opt/local/include   -g -Wall -Wstrict-prototypes -Wmissin <==
4	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	417	525	
==>se
sub MAX() { 0xFFFFFFFF }

# padd a message to a multiple of 64
sub padding($) {
    my $l = length (my $ms <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374037	374145	
==>n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374920	375028	
==>n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375803	375911	
==>n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376687	376795	
==>n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710839	711096	
==>IO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711673	711930	
==>IO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712779	713036	
==>IO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713886	714143	
==>IO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27633	27742	
==>{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir . <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30100	30209	
==>{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir . <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33518	33627	
==>{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir . <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37182	37291	
==>{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir . <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38917	39047	
==>],
                  "BODY" => "#line 720 \"src/ops/core.ops\"\n  if ({{\@1}} == EXCEPT_doomed)\n    _exit({{\@2}});\n  do_exceptio <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39782	39912	
==>],
                  "BODY" => "#line 720 \"src/ops/core.ops\"\n  if ({{\@1}} == EXCEPT_doomed)\n    _exit({{\@2}});\n  do_exceptio <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40629	40759	
==>],
                  "BODY" => "#line 720 \"src/ops/core.ops\"\n  if ({{\@1}} == EXCEPT_doomed)\n    _exit({{\@2}});\n  do_exceptio <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41477	41607	
==>],
                  "BODY" => "#line 720 \"src/ops/core.ops\"\n  if ({{\@1}} == EXCEPT_doomed)\n    _exit({{\@2}});\n  do_exceptio <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5149	5252	
==>t=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		return(<<CODE, $result);
	# XOR $a1, $a <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800682	800939	
==>g_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801586	801843	
==>g_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802490	802747	
==>g_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803395	803652	
==>g_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Test/More.pm	11918	12045	
==>methods == 1 ? "$class->can('$methods[0]')" 
                          : "$class->can(...)";
    
    my $ok = $Test->ok( !@nok, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302091	302182	
==>0 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302967	303058	
==>0 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303843	303934	
==>0 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926033	926147	
==>e 385 \"src/ops/string.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927503	927617	
==>e 385 \"src/ops/string.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928973	929087	
==>e 385 \"src/ops/string.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930444	930558	
==>e 385 \"src/ops/string.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31917	32039	
==>my $parameters = $method->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33494	33616	
==>my $parameters = $method->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38511	38633	
==>my $parameters = $method->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40551	40673	
==>my $parameters = $method->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my <==
4	/Users/nnunley/parrot/lib/Test/More.pm	20127	20260	
==>2 if $@;

        my $lint = new HTML::Lint;
        isa_ok( $lint, "HTML::Lint" );

        $lint->parse( $html );
        is( $lint- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557979	558063	
==>et_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAILCALL;\n  interpreter->current_obj <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559363	559447	
==>et_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAILCALL;\n  interpreter->current_obj <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560735	560819	
==>et_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAILCALL;\n  interpreter->current_obj <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763162	763286	
==>S)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764015	764139	
==>S)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764868	764992	
==>S)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765722	765846	
==>S)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573126	573415	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574036	574325	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574839	575128	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAG <==
4	/Users/nnunley/parrot/Configure.pl	4910	5047	
==>it;
    };

    m/help/    && do {
      print <<"EOT";
$0 - Parrot Configure 2.0

General Options:

   --help               Show this tex <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447291	447575	
==>" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	448113	448397	
==>" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449599	449883	
==>" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2588	2714	
==>ib/..\\blib/g;
        $extraLibs =~ s/\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else {
        $liblist = j <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2897	3023	
==>ib/..\\blib/g;
        $extraLibs =~ s/\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else {
        $liblist = j <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2692	2818	
==>ib/..\\blib/g;
        $extraLibs =~ s/\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else {
        $liblist = j <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	19383	19511	
==>ass = '';
        if ($self->implements($meth)) {
            $meth_name = "Parrot_${classname}_$meth";
        }
        elsif ( <==
4	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3109	3205	
==>y config/gen/core_pmcs.pm

package Parrot::PMC;

use strict;
use warnings;

use vars qw(@ISA %pmc <==
4	/Users/nnunley/parrot/lib/Parrot/PMC.pm	53	149	
==>y config/gen/core_pmcs.pm

package Parrot::PMC;

use strict;
use warnings;

use vars qw(@ISA %pmc <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20049	20145	
==>module's C<$VERSION>!!


=back

=head1 NOTE

You don't actually I<have> to define a C<run> method <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793353	793462	
==>],
                  "BODY" => "#line 457 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794258	794367	
==>],
                  "BODY" => "#line 457 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795163	795272	
==>],
                  "BODY" => "#line 457 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796069	796178	
==>],
                  "BODY" => "#line 457 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(interpre <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	7133	7232	
==>chitecture can build some or all of these signatures
 * enable the define below
 * - the JITed funct <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	699	788	
==>UNIVERSAL::isa($type, qw(Jako::Construct::Type));
  confess "Identifier (" . ref($ident) . <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	724	812	
==>UNIVERSAL::isa($type, qw(Jako::Construct::Type));
  confess "Identifier (". ref($ident) . <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	688	776	
==>UNIVERSAL::isa($type, qw(Jako::Construct::Type));
  confess "Identifier (". ref($ident) . <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	33572	33681	
==>print <<EOC;
	\t $cmt
	$a = slice $ag\[ $vv .. $ww ], 1
EOC
    push @stack, [-1, $a, 'P'];
}

sub SLICE_plus_ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15041	15150	
==>n $return;
}

sub _op_cdr {
  my ($self, $node) = @_;

  _num_arg ($node, 1, 'cdr');

  my $return = $self->_g <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	7448	7546	
==>?, nongreedy variants of those
package Regex::Ops::Tree::multi_match;

sub minlen {
    my $op = sh <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	157	244	
==>ter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm 19606 200 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467618	467712	
==>\n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Di <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468489	468583	
==>\n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Di <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477041	477135	
==>\n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Di <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477937	478031	
==>\n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Di <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850026	850314	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "AR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850913	851201	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "AR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851800	852088	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "AR <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	6704	6831	
==>8722,
 'lowast'   , 8727,
 'radic'    , 8730,
 'prop'     , 8733,
 'infin'    , 8734,
 'ang'      , 8736,
 'and'      , 8743,
 ' <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	7017	7116	
==>rc_stem, $dest_stem) = @_;

    $dest_stem ||= $src_stem;
    if (needs_build("$dest_stem$O", "$src_ <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5311	5410	
==>rc_stem, $dest_stem) = @_;

    $dest_stem ||= $src_stem;
    if (needs_build("$dest_stem$O", "$src_ <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	7228	7327	
==>rc_stem, $dest_stem) = @_;

    $dest_stem ||= $src_stem;
    if (needs_build("$dest_stem$O", "$src_ <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	113	204	
==>T20:02:00.179448Z bernhard  $

=pod

=head1 NAME

Parrot::Configure::Step::Base - Configurat <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	331817	332114	
==>" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333094	333391	
==>" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334372	334669	
==>" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335650	335947	
==>" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932207	932503	
==>AGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1047,
                  "ARGS" => [
                              " <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	24	133	
==>this is BAD PERL later to be translated to PASM
# First tokenize the input stream into:
#          @tokens and <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	196	293	
==>.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::P <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	213	310	
==>.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::P <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	594	689	
==>NIVERSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type (" . ref($type) . ") is not!" <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	720	815	
==>NIVERSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type (" . ref($type) . ") is not!" <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	603	697	
==>NIVERSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type (". ref($type) . ") is not!" <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	585	679	
==>NIVERSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type (". ref($type) . ") is not!" <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	46689	46841	
==>. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
#========== <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	46735	46864	
==>. . . . . . . . .
# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
#================================= <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	14062	14187	
==>$n, $c, $cmt) = @_;
    my $tos = pop @stack;
    my $f;
    $tos->[1] =~ /<code> (\S+)/;
    $f = $1;
    print "\t\t$cmt $f\ <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	46783	46887	
==>. . . . . . . . . . . . . . . . . . . . . . . .
#======================================================== <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940373	940645	
==>ng_split(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941265	941537	
==>ng_split(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942157	942429	
==>ng_split(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943050	943322	
==>ng_split(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	25016	25127	
==>ny class specific init code from the .pmc file
    $cout .= <<"EOC";
        /* class_init */
    $class_init_co <==
4	/Users/nnunley/parrot/config/auto/gdbm.pm	970	1075	
==>location. TODO: Need a more generalized way for finding
    # where Fink lives.
    if ($osname =~ /darwin <==
4	/Users/nnunley/parrot/config/auto/gmp.pm	1169	1274	
==>location. TODO: Need a more generalized way for finding
    # where Fink lives.
    if ($osname =~ /darwin <==
4	/Users/nnunley/parrot/config/auto/readline.pm	1244	1349	
==>location. TODO: Need a more generalized way for finding
    # where Fink lives.
    if ($osname =~ /darwin <==
4	/Users/nnunley/parrot/tools/dev/parrotbench.pl	1161	1258	
==>in the file with
the exception of the configuration file name itself.  In the event
you have speci <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1870	1958	
==>uct::Expression::Value::Identifier')) {
    my $left_sym = $block->find_symbol($left->val <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1828	1916	
==>uct::Expression::Value::Identifier')) {
    my $left_sym = $block->find_symbol($left->val <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1750	1838	
==>uct::Expression::Value::Identifier')) {
    my $left_sym = $block->find_symbol($left->val <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	3535	3666	
==>en) {
            last unless $children[0]->{name} eq 'seq';
            my ($S0, @Srest) = @{ $children[0]->{args} };
            l <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79566	79840	
==>uct);\n      PMC_data({{\@1}}) = p;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81087	81361	
==>uct);\n      PMC_data({{\@1}}) = p;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18707	18850	
==>=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			'THEN' <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	42105	42248	
==>=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			'THEN' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156199	156496	
==>AGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 189,
                  "ARGS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650148	650412	
==>NAME" => "valid_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651069	651333	
==>NAME" => "valid_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
4	/Users/nnunley/parrot/tools/dev/nm.pl	2918	3013	
==>rchive files.  The options can be used to limit the symbols:
--code|-c	code/text symbols (Tt)
-- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849984	850288	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_co <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850871	851175	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_co <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851758	852062	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_co <==
4	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	1044	1142	
==>efore files are
filtered. So one can skip, say a binary file, but still have it listed
in the outpu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950650	950955	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_cha <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951610	951915	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_cha <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952570	952875	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_cha <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	24935	25059	
==>)\n    next_pc += 4\n";
			$arg_name = "I_ARG_$arg_num";
		}

        # tmethod
		elsif (/^tmethod$/) {
			$out =  "    \${I_ <==
4	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2943	3105	
==>info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # test result
              | " ((?:[^"\ <==
4	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4340	4502	
==>info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # test result
              | " ((?:[^"\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938542	938633	
==>line 481 \"src/ops/string.ops\"\n    {{\@1}} = string_join(interpreter, {{\@2}}, {{\@3}});\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939432	939523	
==>line 481 \"src/ops/string.ops\"\n    {{\@1}} = string_join(interpreter, {{\@2}}, {{\@3}});\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344494	344614	
==>MC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345736	345856	
==>MC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346978	347098	
==>MC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348221	348341	
==>MC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055909	1056244	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056800	1057135	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057692	1058027	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058584	1058919	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Parrot/Op.pm	7026	7117	
==>fied transform,
correctly handling nested substitions, and repeating over the whole string
u <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883091	883422	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 100 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884196	884527	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 100 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885302	885633	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 100 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886408	886739	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 100 <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	666	748	
==>!") unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier') <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	620	702	
==>!") unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier') <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	630	712	
==>!") unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier') <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	630	712	
==>!") unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier') <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368957	369254	
==>" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369841	370138	
==>" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	3626	3751	
==>n >= 2.12) {
        *dump = sub {
            my $self = shift;
            Data::Dumper->new([$self->{c}], ['*PConfig'])->So <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	5273	5384	
==>next if exists $table{$symbol};
      $table{$symbol} = $level;
    }

    $block = $block->block; # Collect sym <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5297	5415	
==>d($_))
#DBG>					:	$_;
#DBG>		}
#DBG>		$tok.='<';
#DBG>	};

	$$errstatus=0;
	$$nberror=0;
	($$token,$$value)=(u <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5045	5155	
==>d($_))
#DBG>					:	$_;
#DBG>		}
#DBG>		$tok.='<';
#DBG>	};

	$$errstatus=0;
	$$nberror=0;
	($$token,$$value)=(u <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208367	208459	
==>{{\@1}}->vtable->get_number(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209308	209400	
==>{{\@1}}->vtable->get_number(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  { <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	13170	13349	
==>$key    = $key2;
                    push @opcodes, @{ $key->[1] };
                }
                my $assign = new KeyedSetOp( $parser,
                    'arg1'   => $key <==
4	/Users/nnunley/parrot/tools/build/ops2c.pl	4560	4661	
==>}


my $version       = $ops->version;
my $major_version = $ops->major_version;
my $minor_version = $o <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854402	854719	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855290	855607	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856179	856496	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857068	857385	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	48757	48844	
==>of C<"extract_bracketed"> and
C<"extract_quotelike">.

C<extract_codeblock> takes the sa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	446472	446730	
==>}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":bas <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447109	447367	
==>}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":bas <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449417	449675	
==>}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":bas <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	6704	6794	
==>head1 FUNCTIONS

=head2 my $path = find_file( [$dir1, $dir2], $file, $die_unless_found_flag <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780605	780753	
==>"
                            ],
                  "BODY" => "#line 387 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed_int(interpreter, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781514	781662	
==>"
                            ],
                  "BODY" => "#line 387 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed_int(interpreter, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782423	782571	
==>"
                            ],
                  "BODY" => "#line 387 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed_int(interpreter, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783333	783481	
==>"
                            ],
                  "BODY" => "#line 387 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed_int(interpreter, { <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	33170	33303	
==>, $vv, $ww);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ($w->[2] eq 'P') {
	   $ww = temp( <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	33919	34052	
==>, $vv, $ww);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ($w->[2] eq 'P') {
	   $ww = temp( <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	34843	34976	
==>, $vv, $ww);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ($w->[2] eq 'P') {
	   $ww = temp( <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3715	3818	
==>$self->output_label_use($dest);
}

sub output_unless {
    my ($self, $reg, $dest) = @_;
    $reg = valu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247630	247936	
==>{{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	248494	248800	
==>{{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	249358	249664	
==>{{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	3649	3749	
==>{ return shift->is('while');         }

sub is_loop_control  { return shift->is('next', 'last', 'redo <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29197	29340	
==>=> 74,
			"~=" => 73,
			"+" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 8 <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41303	41446	
==>=> 74,
			"~=" => 73,
			"+" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 8 <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44449	44592	
==>=> 74,
			"~=" => 73,
			"+" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 8 <==
4	/Users/nnunley/parrot/config/gen/makefiles.pm	3803	3927	
==>config/gen/makefiles/befunge.in' => 'languages/befunge/Makefile',
        commentType                       => '#',
        r <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146408	146699	
==>EQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	153068	153359	
==>EQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154011	154302	
==>EQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167634	167925	
==>EQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071916	1072033	
==>{{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074101	1074218	
==>{{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076286	1076403	
==>{{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078472	1078589	
==>{{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVA <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	7009	7132	
==>>{all}{$meth})) {
            # create methods if they write
            $const->{has_method}{$meth} = $i++;
	    push @{ $c <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	37086	37185	
==>ware; you can redistribute it and/or 
modify it under the same terms as Perl itself.

See F<http://w <==
4	/Users/nnunley/parrot/lib/Test/More.pm	37495	37594	
==>ware; you can redistribute it and/or 
modify it under the same terms as Perl itself.

See F<http://w <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	6455	6554	
==>ware; you can redistribute it and/or 
modify it under the same terms as Perl itself.

See F<http://w <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2391	2491	
==>lue. C<$op> is an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3483	3583	
==>lue. C<$op> is an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3627	3727	
==>lue. C<$op> is an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3282	3382	
==>lue. C<$op> is an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	14314	14407	
==>hs($class, $vtable)

Generate a list of inherited methods for I<$class> by searching the
inher <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293408	293497	
==>=> "#line 945 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294284	294373	
==>=> "#line 945 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295160	295249	
==>=> "#line 945 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575717	575975	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subclass",
                  "FLAGS" => ":object_base",
                  "AR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576728	576986	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subclass",
                  "FLAGS" => ":object_base",
                  "AR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595477	595735	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subclass",
                  "FLAGS" => ":object_base",
                  "AR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596369	596627	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subclass",
                  "FLAGS" => ":object_base",
                  "AR <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15493	15601	
==>rint i
next i
print

' For loops.  3..6 nested in 1..3
function foo
	for y=3 to 6
	print y,
	next y
	foo=99
e <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1475	1565	
==>short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = "$register_num"
${STEMP0} = concat ${STEMP <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2002	2092	
==>short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = "$register_num"
${STEMP0} = concat ${STEMP <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3185	3275	
==>short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = "$register_num"
${STEMP0} = concat ${STEMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	751281	751513	
==>ng_copy(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
4	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	3679	3828	
==>hannel',
        expr    => '__expr',
        int     => '__integer',
        list    => '__list',
        script  => '__script',
        var     => ' <==
4	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	4353	4502	
==>hannel',
        expr    => '__expr',
        int     => '__integer',
        list    => '__list',
        script  => '__script',
        var     => ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	508	608	
==>ot::OpTrans );

=item C<defines()>

Returns the C C<#define> macros required by the ops.

=cut

sub d <==
4	/Users/nnunley/parrot/tools/dev/nm.pl	1444	1554	
==>D-style type to the symbol name.

    B - uninitialised data symbol
    D - initialised data symbol
    F - fil <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	6095	6197	
==>nt_function($sig, $ret, $args, [@arg], $ret_type{$ret},
                 $ret_type_decl{$ret}, $func_ca <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11095	11195	
==>if t then
	print "Correct"
else 
	print "Wrong"
end if

' Factorial of 5 is 120
function factorial(a) <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	313	406	
==>runtime_jump $debug $sourceline);
use COMP_toker;
use COMP_parser;
use COMP_assignments;
use C <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417371	417510	
==>c"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418499	418638	
==>c"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419627	419766	
==>c"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420756	420895	
==>c"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909443	909772	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "A <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910340	910669	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "A <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911237	911566	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "A <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912135	912464	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "A <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854404	854722	
==>( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855292	855610	
==>( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856181	856499	
==>( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857070	857388	
==>( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
4	/Users/nnunley/parrot/config/init/hints/solaris.pm	1021	1132	
==>nk');
        cc_gen("config/auto/gcc/test_c.in");

        # Can't call cc_build since we haven't set all the f <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9820	9914	
==>shift ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over each parameter and put them into ${PAR <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7334	7428	
==>shift ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over each parameter and put them into ${PAR <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6298	6392	
==>shift ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over each parameter and put them into ${PAR <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24378	24477	
==>stant(0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{children}[1]);
    if <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25267	25366	
==>stant(0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{children}[1]);
    if <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26277	26376	
==>stant(0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{children}[1]);
    if <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27167	27266	
==>stant(0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{children}[1]);
    if <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024487	1024793	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025243	1025549	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026000	1026306	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026756	1027062	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084137	1084472	
==>E" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 120 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085189	1085524	
==>E" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 120 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086242	1086577	
==>E" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 120 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087295	1087630	
==>E" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 120 <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2372	2480	
==>t::OpTrans>) and value. C<$op> is an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3464	3572	
==>t::OpTrans>) and value. C<$op> is an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3608	3716	
==>t::OpTrans>) and value. C<$op> is an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3263	3371	
==>t::OpTrans>) and value. C<$op> is an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062513	1062603	
==>oot = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpreter, ns_root <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063382	1063472	
==>oot = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpreter, ns_root <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064252	1064342	
==>oot = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpreter, ns_root <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	37403	37501	
==>hed at the closing tag. 
If the pattern string is omitted (or C<undef>) then the closing
tag is con <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2908	2998	
==>tem C<restart_address($address)>

Returns the C code for C<restart ADDRESS($address)>.

=cu <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3777	3867	
==>tem C<restart_address($address)>

Returns the C code for C<restart ADDRESS($address)>.

=cu <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3507	3597	
==>tem C<restart_address($address)>

Returns the C code for C<restart ADDRESS($address)>.

=cu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606986	607289	
==>0,
                  "NAME" => "getattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607889	608192	
==>0,
                  "NAME" => "getattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608793	609096	
==>0,
                  "NAME" => "getattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609700	610003	
==>0,
                  "NAME" => "getattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	33369	33488	
==>$sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   print <<EOC;
	$vv = $v->[ <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	34118	34237	
==>$sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   print <<EOC;
	$vv = $v->[ <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	35042	35161	
==>$sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   print <<EOC;
	$vv = $v->[ <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	17583	17700	
==>E()
{
    my ($n, $c, $cmt) = @_;
    my $targ = "pc_$n";
    print <<EOC;
	goto $targ $cmt
EOC
}

sub JUMP_IF_FALSE
{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056067	1056486	
==>IRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1179,
                  "ARGS" => [
                              "p",
                              "k",
                              "s"
                            ],
                  "BODY" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273454	273687	
==>ARGS" => [
                              "i",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 876 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3 <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	36070	36215	
==>it codes are...

    0                   all tests successful
    255                 test died
    any other number    how many failed (including <==
4	/Users/nnunley/parrot/lib/Test/More.pm	34141	34286	
==>it codes are...

    0                   all tests successful
    255                 test died
    any other number    how many failed (including <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	2936	3081	
==>it codes are...

    0                   all tests successful
    255                 test died
    any other number    how many failed (including <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272289	272607	
==>AME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 317,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544284	544388	
==>d_var1 = a, saved_var2 = b; \n\n if(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545620	545724	
==>d_var1 = a, saved_var2 = b; \n\n if(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546956	547060	
==>d_var1 = a, saved_var2 = b; \n\n if(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572379	572552	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "AR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573288	573461	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "AR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574198	574371	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "AR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575001	575174	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "AR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596061	596228	
==>"p",
                              "k"
                            ],
                  "BODY" => "#line 337 \"src/ops/object.ops\"\n  {{\@1}} = VTABLE_subclass(interpr <==
4	/Users/nnunley/parrot/tools/build/ops2c.pl	9095	9197	
==>aped =~ s|\.temp||;
    $source_escaped =~ s|(\\)|$1$1|g; # escape backslashes
    print SOURCE qq{#lin <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6632	6715	
==>o POST_BRANCH_switch_${CURIC}_LOOP
POST_BRANCH_switch_${CURIC}_LOOP_EXIT:

POST_BRAN <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4570	4653	
==>o POST_BRANCH_switch_${CURIC}_LOOP
POST_BRANCH_switch_${CURIC}_LOOP_EXIT:

POST_BRAN <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	1431	1531	
==>n this case C<$foo eq $bar>).  If it's
true, the test passed.  If it's false, it didn't.  That's abou <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062492	1062586	
==>.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(int <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063361	1063455	
==>.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(int <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064231	1064325	
==>.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(int <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834353	834584	
==>ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835079	835310	
==>ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835831	836062	
==>ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836584	836815	
==>ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2819	2919	
==>class instructions) hooks.
sub pre_op($$) {
	my $self = shift;
	my ($pops, $pushes) = @_;
	my $regist <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1741	1841	
==>class instructions) hooks.
sub pre_op($$) {
	my $self = shift;
	my ($pops, $pushes) = @_;
	my $regist <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	930	1030	
==>class instructions) hooks.
sub pre_op($$) {
	my $self = shift;
	my ($pops, $pushes) = @_;
	my $regist <==
4	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1558	1648	
==>vides access to a L<Parrot::Configure::Data> object intended to contain
initial and discove <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22605	22706	
==>"DONE_$label"]);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$lab <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23106	23207	
==>"DONE_$label"]);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$lab <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54814	54906	
==>> "#line 864 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo(interpreter, {{\@2}});\n  {{+=3}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55574	55666	
==>> "#line 864 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo(interpreter, {{\@2}});\n  {{+=3}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072890	1073238	
==>n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075075	1075423	
==>n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077260	1077608	
==>n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079446	1079794	
==>n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591356	591450	
==>Y" => "#line 325 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592566	592660	
==>Y" => "#line 325 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593776	593870	
==>Y" => "#line 325 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594987	595081	
==>Y" => "#line 325 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10120	10300	
==>ound ? $found->kind : undef;
}


###############################################################################

=head2 BLOCK->content()

Return the content list for the Block.

=c <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	3458	3559	
==>eds_build("$group.c", @pmcfiles)) {
            run("$PMC2C --library $group --c " . join(" ",@pmcfile <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	3562	3663	
==>eds_build("$group.c", @pmcfiles)) {
            run("$PMC2C --library $group --c " . join(" ",@pmcfile <==
4	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9053	9144	
==>14,0x265e5a51,/* 19 */
GG,$b,$c,$d,$a,$_[4],20,0xe9b6c7aa,/* 20 */
GG,$a,$b,$c,$d,$_[9],5,0x <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	367	469	
==>use Carp;

use base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $dest <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	358	460	
==>use Carp;

use base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $dest <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	247	349	
==>use Carp;

use base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $dest <==
4	/Users/nnunley/parrot/config/auto/perldoc.pm	213	310	
==>Determines whether perldoc exists on the system.

=cut

package auto::perldoc;

use strict;
use va <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867223	867319	
==>length(interpreter, {{\@2}});\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868189	868285	
==>length(interpreter, {{\@2}});\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869155	869251	
==>length(interpreter, {{\@2}});\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870122	870218	
==>length(interpreter, {{\@2}});\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\ <==
4	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	1945	2164	
==>fore ) {
                push @output, [ 1, q{} ];
            }

            if ( $line ne q{} ) {
                if ( $line =~ $block_end ) {
                    $level--;
                }
                $line = ( $ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	116	215	
==>llParserToken');
use strict;

sub new {  # Class->new(tagname, optional_attrhash);
  my $class = shi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029734	1029831	
==>pcode_t *next = {{^+2}};\n  if ({{\@1}} < 0.0) {\n      real_exception(interpreter, next, NEG_SLEE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030576	1030673	
==>pcode_t *next = {{^+2}};\n  if ({{\@1}} < 0.0) {\n      real_exception(interpreter, next, NEG_SLEE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926329	926458	
==>\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927799	927928	
==>\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929269	929398	
==>\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930740	930869	
==>\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126657	126796	
==>n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127792	127931	
==>n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128927	129066	
==>n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	1993	2103	
==>Test::Builder->new;
  $Test->output('my_logfile');

  sub import {
      my($self) = shift;
      my $pack = ca <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11875	11972	
==>=pushargs(\@code, \$optype, \@work);
			$pir_args = join(",", map {$_->[0]} (reverse @args));
			$ <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	12285	12382	
==>=pushargs(\@code, \$optype, \@work);
			$pir_args = join(",", map {$_->[0]} (reverse @args));
			$ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2421	2514	
==>( 0) }
sub end_item_bullet { $_[0]->emit_par( 0) }
sub end_item_number { $_[0]->emit_par( 0) } <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1989	2082	
==>( 0) }
sub end_item_bullet { $_[0]->emit_par( 0) }
sub end_item_number { $_[0]->emit_par( 0) } <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5795	5933	
==>[0] } @$stack).
#DBG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defined($$token)
            or	do {
				($$tok <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5520	5650	
==>[0] } @$stack).
#DBG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defined($$token)
            or	do {
				($$tok <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32734	32834	
==>h) = @_;
    $self->implements_vtable($meth);
}

=item C<gen_ret($type)>

Generate the C code for a C <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	371352	371435	
==>le->base_type != enum_class_ParrotIO)\n\treal_exception(interpreter, NULL, PIO_ERROR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344306	344396	
==>tring_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mo <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345548	345638	
==>tring_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mo <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346790	346880	
==>tring_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mo <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348033	348123	
==>tring_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mo <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343567	343887	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344808	345128	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346050	346370	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347292	347612	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945467	945688	
==>r, Parrot_charset_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946277	946498	
==>r, Parrot_charset_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	414	503	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_element_start {
  # ($self, $element_name <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	413	502	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_element_start {
  # ($self, $element_name <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344465	344558	
==>ath); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345707	345800	
==>ath); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346949	347042	
==>ath); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348192	348285	
==>ath); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enu <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7981	8104	
==>:Block");
  confess "No identifier name!"  unless defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->f <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8628	8751	
==>:Block");
  confess "No identifier name!"  unless defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->f <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9296	9419	
==>:Block");
  confess "No identifier name!"  unless defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->f <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9965	10088	
==>:Block");
  confess "No identifier name!"  unless defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->f <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1698	1808	
==>{
        $prog = prompt($prompt, $prog ? $prog : $conf->data->get($util));
    }

    my ($stdout, $stderr, $r <==
4	/Users/nnunley/parrot/config/inter/make.pm	1572	1682	
==>{
        $prog = prompt($prompt, $prog ? $prog : $conf->data->get($util));
    }

    my ($stdout, $stderr, $r <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1712	1822	
==>{
        $prog = prompt($prompt, $prog ? $prog : $conf->data->get($util));
    }

    my ($stdout, $stderr, $r <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	18247	18342	
==>ature_len && 'v' == string_index(interpreter, signature, 1)) {
       Parrot_warn(interpreter, P <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	26184	26279	
==>urrent_test($num);

Gets/sets the current test number we're on.  You usually shouldn't
have to s <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	39235	39366	
==>let.
        
      } elsif($para_type eq 'Verbatim') {
        DEBUG and print " giving verbatim treatment...\n";
      
        $p <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6551	6640	
==>ES}
pre_call_PLOOP_${CURIC}:
if ${ITEMP0} == 0 goto PRE_CALL_END_${CURIC}
dec ${ITEMP0}
de <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2133	2222	
==>returns undef if unknown
  }
}

#--------------------------------------------------------- <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2598	2687	
==>returns undef if unknown
  }
}

#--------------------------------------------------------- <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	5485	5567	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_elemen <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	386	468	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_elemen <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	385	467	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_elemen <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	1462	1575	
==>L::isa($v, 'ARRAY')) {
        if (@$v == 2 && $v->[1] != -2) {
          $r{$k} = substr($input, $v->[0], $v->[1] <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3838	3935	
==>is class is for checking the syntactic validity of Pod.
It works by basically acting like a simple <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	936	1030	
==>ines
{
    return <<END;
#define REL_PC ((size_t)((opcode_t*)cur_opcode - (opcode_t*)interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1066	1160	
==>ines
{
    return <<END;
#define REL_PC ((size_t)((opcode_t*)cur_opcode - (opcode_t*)interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	2801	2960	
==>}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	12400	12559	
==>}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24694	24853	
==>}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	36873	37032	
==>}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650597	650704	
==>/pmc.ops\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtable_max)\n        {{\@1}} = 1;\n    else if ( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651519	651626	
==>/pmc.ops\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtable_max)\n        {{\@1}} = 1;\n    else if ( <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53258	53358	
==>:UncondReject($lookahead,$line,$code);
				$prod and $prod->additem($item)
				      or  _no_rule($co <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54967	55067	
==>:UncondReject($lookahead,$line,$code);
				$prod and $prod->additem($item)
				      or  _no_rule($co <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084767	1084899	
==>plice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "L <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085820	1085952	
==>plice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "L <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086873	1087005	
==>plice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "L <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087927	1088059	
==>plice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "L <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	28291	28398	
==>teratively!  Whee!

  while($treelet = shift @stack) {
    for($i = 2; $i < @$treelet; ++$i) { # iterate ove <==
4	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	903	1009	
==>~ m/^~/s) {
        next if $key eq 'start_line' and $_[0]{'hide_line_numbers'};
        _xml_escape($value <==
4	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1177	1283	
==>~ m/^~/s) {
        next if $key eq 'start_line' and $_[0]{'hide_line_numbers'};
        _xml_escape($value <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	722	824	
==>~ m/^~/s) {
      next if $key eq 'start_line' and $_[0]{'hide_line_numbers'};
      _xml_escape($value <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642430	642754	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643318	643642	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644210	644534	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645103	645427	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663803	664095	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664575	664867	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665351	665643	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9279	9368	
==>') . ($parser->{_check}{prevcolumn}?'
	my $prevcolumn;
	tie $prevcolumn, q{Parse::RecDesce <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	12660	12788	
==>= @{ $self->{args} };
    my $expr = $tree->render;
    if ($name eq 'default') {
        return $expr;
    } else {
        retu <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	28730	28848	
==>t->[$i]} == 2
           or (@{$treelet->[$i]} == 3 and $treelet->[$i][2] eq '')
      ) {
        $self->whine( $start <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	32311	32425	
==>t->[$i]} == 2
       or (@{$treelet->[$i]} == 3 and $treelet->[$i][2] eq '')
      ) {
        $self->whine( $start <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	42713	42827	
==>t->[$i]} == 2
       or (@{$treelet->[$i]} == 3 and $treelet->[$i][2] eq '')
      ) {
        $self->whine( $start <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	1964	2071	
==>-return -Winline -W -Wno-unused -Wsign-compare -Wformat-nonliteral -Wformat-security -Wpacked -Wdisabled-opt <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1284	1391	
==>-return -Winline -W -Wno-unused -Wsign-compare -Wformat-nonliteral -Wformat-security -Wpacked -Wdisabled-opt <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1329	1436	
==>-return -Winline -W -Wno-unused -Wsign-compare -Wformat-nonliteral -Wformat-security -Wpacked -Wdisabled-opt <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1333	1440	
==>-return -Winline -W -Wno-unused -Wsign-compare -Wformat-nonliteral -Wformat-security -Wpacked -Wdisabled-opt <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586644	586736	
==>t.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587830	587922	
==>t.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589016	589108	
==>t.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590203	590295	
==>t.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099024	1099129	
==>" => "#line 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100222	1100327	
==>" => "#line 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101420	1101525	
==>" => "#line 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102619	1102724	
==>" => "#line 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INT <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18562	18657	
==>[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_generate($node->{children}[$_]) <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19275	19370	
==>[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_generate($node->{children}[$_]) <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19763	19858	
==>[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_generate($node->{children}[$_]) <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20252	20347	
==>[1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_generate($node->{children}[$_]) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	935089	935338	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549460	549704	
==>"NAME" => "callmethodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550760	551004	
==>"NAME" => "callmethodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552061	552305	
==>"NAME" => "callmethodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979205	979644	
==>IRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1099,
                  "ARGS" => [
                              "i",
                              "i",
                              "sc", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722394	722488	
==>IO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_softspace(interpr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723423	723517	
==>IO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_softspace(interpr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724467	724561	
==>IO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_softspace(interpr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467134	467399	
==>E" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468004	468269	
==>E" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468875	469140	
==>E" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469749	470014	
==>E" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
4	/Users/nnunley/parrot/config/init/hints/hpux.pm	215	334	
==>my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }

    $conf->da <==
4	/Users/nnunley/parrot/config/init/hints/irix.pm	512	630	
==>my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }
    $conf->da <==
4	/Users/nnunley/parrot/config/init/hints/netbsd.pm	305	423	
==>my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }
    $conf->da <==
4	/Users/nnunley/parrot/config/init/hints/openbsd.pm	397	509	
==>my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
	}
	$conf->da <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321893	322156	
==>onv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 37 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322664	322927	
==>onv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 37 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323436	323699	
==>onv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 37 <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	901	1012	
==>mBI' => "</i></b>",


  'Data'  => "\n",
  '/Data' => "\n",
  
  'head1' => "\n<h1>",  # And also stick in an <a <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066903	1067001	
==>e 49 \"src/ops/experimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068089	1068187	
==>e 49 \"src/ops/experimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069275	1069373	
==>e 49 \"src/ops/experimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070462	1070560	
==>e 49 \"src/ops/experimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2 <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12204	12327	
==>mehow.
        
        return $href if defined $href;
    }
    
    return 'TODO';
}

=item C<href_for_perl_module($module <==
4	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	10982	11098	
==>details  { display: none; }
    .expander { color: blue; cursor: pointer; }  /* hack? */

    .tests_ok       { color <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11282	11391	
==>eturn @ops;
}

sub output_rule_end {
    my ($self, $name) = @_;
    return ("end", ".end # End of rule $name" <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	5249	5358	
==>"vars"	   => "",
			}, $class;
	}
}

sub reset($)
{
	@{$_[0]->{"prods"}} = ();
	@{$_[0]->{"calls"}} = ();
	$_[ <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	36940	37079	
==>ramDir( $parser,
            'prolog' => 1,
            'result' => $defn,
        );
        my $nil = BuildLiteral( $parser, 'nil', 'n <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2970	3077	
==>ed"
Label2:
   PRINT "4 back in subroutine one"
   RETURN Label1
Sub2:
   PRINT "3 in subroutine two"
   RET <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16937	17044	
==>ed"
Label2:
   PRINT "4 back in subroutine one"
   RETURN Label1
Sub2:
   PRINT "3 in subroutine two"
   RET <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319211	319305	
==>2)({{\@1}}));\n  }\n  else\n  {\n    internal_exception(1, \"Overflow exception for conv_u2_ovf <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	14038	14152	
==>= *STDIN{IO};
  }

  if(!defined $to) {             $self->output_fh( *STDOUT{IO}   );
  } elsif(ref(\$to) eq 'GLOB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062490	1062584	
==>ar.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063359	1063453	
==>ar.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064229	1064323	
==>ar.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(i <==
4	/Users/nnunley/parrot/lib/Test/More.pm	4819	4990	
==>_ ) {
        my $item = $_[$idx];

        if( $item eq 'import' ) {
            push @imports, @{$_[$idx+1]};
            $idx++;
        }
        else {
            pus <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	3007	3106	
==>nt({ Name => 'block' });
    $handler->start_element({ Name => 'block', Attributes => { kind => 'the <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3681	3780	
==>nt({ Name => 'block' });
    $handler->start_element({ Name => 'block', Attributes => { kind => 'the <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3771	3870	
==>nt({ Name => 'block' });
    $handler->start_element({ Name => 'block', Attributes => { kind => 'the <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	7845	7951	
==>sable by the above methods.

=cut

sub process_other_start_token
{
    my $self = shift;
    my $token = sh <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2193	2290	
==>@@@@@@@@@
1;


__END__

=head1 NAME

Pod::Simple::DumpAsText -- dump Pod-parsing events as text

= <==
4	/Users/nnunley/parrot/examples/benchmarks/mops.pl	260	350	
==>RIPTION

A Perl implementation of the F<examples/mops/mops.pasm> example program,
for speed <==
4	/Users/nnunley/parrot/examples/mops/mops.pl	256	346	
==>RIPTION

A Perl implementation of the F<examples/mops/mops.pasm> example program,
for speed <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340320	340676	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341319	341675	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342318	342674	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095961	1096199	
==>"experimental" => 1,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "classna <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646862	647154	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647622	647914	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648383	648675	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649145	649437	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946806	947044	
==>YPE" => "function",
                  "CODE" => 1065,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 526 \"src/ops/string <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483746	483840	
==>preter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({{\@2}} / d <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484745	484839	
==>preter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({{\@2}} / d <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485744	485838	
==>preter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({{\@2}} / d <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1897	1991	
==>ntifier')) {
    my $left_sym = $block->find_symbol($left->value);
    $self->SYNTAX_ERROR("Exp <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1855	1949	
==>ntifier')) {
    my $left_sym = $block->find_symbol($left->value);
    $self->SYNTAX_ERROR("Exp <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1777	1871	
==>ntifier')) {
    my $left_sym = $block->find_symbol($left->value);
    $self->SYNTAX_ERROR("Exp <==
4	/Users/nnunley/parrot/config/inter/libparrot.pm	937	1028	
==>onf->data->get('has_dynamic_linking');

    if ($conf->options->get('ask') && $conf->data- <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	23119	23242	
==>des ];
}

sub BuildLogop {
    my ( $parser, $expr1, $op, $expr2 ) = @_;
    my @opcodes = ();
    my $result = new_tm <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	677	776	
==>bstution values. q[] is used in
# some places as Win32 paths have \'s in, which qq[] treats as escap <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	635	734	
==>bstution values. q[] is used in
# some places as Win32 paths have \'s in, which qq[] treats as escap <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	639	738	
==>bstution values. q[] is used in
# some places as Win32 paths have \'s in, which qq[] treats as escap <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	4664	4759	
==>{
	my ($textref, $pre, $ldel, $qdel, $quotelike, $rdel) = @_;
	my ($startpos, $ldelpos, $endpos) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744249	744338	
==>"BODY" => "#line 179 \"src/ops/set.ops\"\n  {{\@1}} = string_from_num(interpreter, {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745015	745104	
==>"BODY" => "#line 179 \"src/ops/set.ops\"\n  {{\@1}} = string_from_num(interpreter, {{\@2}} <==
4	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	1769	1881	
==>rc;
    }

    run_command("cd src/pmc && make @src");
}

sub clean {
    print "** $0: removing files in minipar <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2416	2515	
==>{
				$edit.=qq{\tfind_global _GLOBALS, "COMMON"\n};
				foreach(@saves) {
					$edit.=qq{\t_GLOBALS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11038	11124	
==>er->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  {{+ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11827	11913	
==>er->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  {{+ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135494	135601	
==>{\@1}} = string_bitwise_xor(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136388	136495	
==>{\@1}} = string_bitwise_xor(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137282	137389	
==>{\@1}} = string_bitwise_xor(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	18783	18881	
==>st_too} ?
        'VTABLE_HAS_CONST_TOO' : $self->{flags}{is_const} ?
	  'VTABLE_IS_CONST_FLAG' : 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	30283	30577	
==>ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 39,
                  "ARGS" => [
                              "pc"
                            ],
                  "BODY" => "#line 537 \"s <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6479	6596	
==>to $fail if <rx_pos> < <rx_len>; # at end?");
}

sub output_pushmark {
    my ($self) = @_;
    my @ops;
    if ($self <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	19334	19441	
==>{
    DEBUG > 3 and print " Considering children of this $treelet->[0] node...\n";
    for($i = 2; $i < @$tr <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	21977	22084	
==>{
    DEBUG > 3 and print " Considering children of this $treelet->[0] node...\n";
    for($i = 2; $i < @$tr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385108	385284	
==>",
                              "i"
                            ],
                  "BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386239	386415	
==>",
                              "i"
                            ],
                  "BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387370	387546	
==>",
                              "i"
                            ],
                  "BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388502	388678	
==>",
                              "i"
                            ],
                  "BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{ <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	4242	4348	
==>Failed test (t/film.t at line 14)
    ok 5 - NumExplodingSheep() get
    # Looks like you failed 1 tests of <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233869	233973	
==>=> "#line 599 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234773	234877	
==>=> "#line 599 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235677	235781	
==>=> "#line 599 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576621	576958	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subclass",
                  "FLAGS" => ":object_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577633	577970	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subclass",
                  "FLAGS" => ":object_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595370	595707	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subclass",
                  "FLAGS" => ":object_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596262	596599	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subclass",
                  "FLAGS" => ":object_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766040	766324	
==>0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766892	767176	
==>0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767745	768029	
==>0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768598	768882	
==>0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670671	670905	
==>g(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671444	671678	
==>g(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679186	679420	
==>g(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679965	680199	
==>g(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8483	8592	
==>BG>			and	print STDERR 
#DBG>				    "go to state $$states[$$stack[-1][0]]{GOTOS}{$lhs}.\n";

#DBG>				$deb <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8098	8204	
==>BG>			and	print STDERR 
#DBG>				    "go to state $$states[$$stack[-1][0]]{GOTOS}{$lhs}.\n";

#DBG>				$deb <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	842	931	
==>unless UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess "Op is not s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	854	943	
==>unless UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess "Op is not s <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12518	12665	
==>iteral( $parser, $idf, 'key' );
                push @opcodes, @{ $key->[1] };
                my $result = $global->[0];
                foreach <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	6763	6867	
==>-1;
	foreach my $item (@expr) {
		die "Expression too complex at line $sourceline" if $i++ > 100;  # Arbi <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11203	11291	
==>{STEMP0} = ${PTEMP1}["reg_type_short"]
${DEST0} = concat ${STEMP0}
inc stack_depth
${STEM <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8389	8477	
==>{STEMP0} = ${PTEMP1}["reg_type_short"]
${DEST0} = concat ${STEMP0}
inc stack_depth
${STEM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855647	855899	
==>E" => 971,
                  "ARGS" => [
                              "s",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 105 \"src/ops/string.ops\"\n  {{\@1}} = s <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	4762	4883	
==>lde'   , 241,
 'ograve'   , 242,
 'oacute'   , 243,
 'ocirc'    , 244,
 'otilde'   , 245,
 'ouml'     , 246,
 'divide'   , <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	812	928	
==>nt($self);

  return $self;
}

sub ident  { return shift->{IDENT};  }


#
# compile()
#

sub compile
{
  my $self = s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	812	928	
==>nt($self);

  return $self;
}

sub ident  { return shift->{IDENT};  }


#
# compile()
#

sub compile
{
  my $self = s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380505	380839	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381516	381850	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382528	382862	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383540	383874	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27992	28102	
==>ub _op_abs {
  my ($self,$node) = @_;
  my $return;
  my $label     = $self->_gensym();

  $return = $self->_ge <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27666	27762	
==>)
		. ' ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and '
		. ($check->{itempos}? 'do {'.Parse::Re <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29776	29872	
==>)
		. ' ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and '
		. ($check->{itempos}? 'do {'.Parse::Re <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31873	31969	
==>)
		. ' ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and '
		. ($check->{itempos}? 'do {'.Parse::Re <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568768	569046	
==>"NAME" => "isa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569660	569938	
==>"NAME" => "isa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570553	570831	
==>"NAME" => "isa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571507	571785	
==>"NAME" => "isa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	331757	332076	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333034	333353	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334312	334631	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335590	335909	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071868	1072016	
==>{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = {{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074053	1074201	
==>{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = {{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076238	1076386	
==>{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = {{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078424	1078572	
==>{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = {{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8225	8347	
==>ie "Must always have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg = valu <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9007	9129	
==>ie "Must always have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg = valu <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7878	8000	
==>ie "Must always have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg = valu <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8667	8789	
==>ie "Must always have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg = valu <==
4	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	952	1089	
==>ang_f";

    $exit_code = Parrot::Test::run_command($cmd, CD => $self->{relpath},
                                           STDOUT => $ou <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	993	1130	
==>ang_f";

    $exit_code = Parrot::Test::run_command($cmd, CD => $self->{relpath},
                                           STDOUT => $ou <==
4	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2043	2146	
==>ang_f";

    $exit_code = Parrot::Test::run_command($cmd, #CD => $self->{relpath},
					   STDOUT => $ou <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59375	59615	
==>\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "warnin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60023	60263	
==>\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "warnin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60672	60912	
==>\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "warnin <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	8215	8309	
==>ata::Dumper->new([\%vtable], ['class']);
    $Dumper->Indent(3);
    print $vtd $Dumper->Dump() <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469205	469378	
==>"n",
                              "n"
                            ],
                  "BODY" => "#line 385 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == <==
4	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	3069	3161	
==>ile_directories()>

Returns the directories which contain C header files.

Currently only F<i <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7012	7100	
==>, 'typeof', [$type, $list]);
  $self->_add_inst('', 'eq', [$type,'.Undef',"DONE_$label"]) <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17532	17619	
==>, 'typeof',[$type,$list]);
  $self->_add_inst ('', 'eq',[$type,'.Undef', "DONE_$label"]) <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31211	31327	
==>rue for vtables.

=cut

sub implements
{
    my ($self, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C< <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32674	32790	
==>rue for vtables.

=cut

sub implements
{
    my ($self, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C< <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36995	37111	
==>rue for vtables.

=cut

sub implements
{
    my ($self, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C< <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39831	39947	
==>rue for vtables.

=cut

sub implements
{
    my ($self, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C< <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066867	1066999	
==>],
                  "BODY" => "#line 49 \"src/ops/experimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068053	1068185	
==>],
                  "BODY" => "#line 49 \"src/ops/experimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069239	1069371	
==>],
                  "BODY" => "#line 49 \"src/ops/experimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070426	1070558	
==>],
                  "BODY" => "#line 49 \"src/ops/experimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\ <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5353	5505	
==>t} } ) {
                print {$FH} ", " unless ($first);
                print {$FH} "$_->{symbol}";
                if ( exists $_->{pragma} and $_ <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6385	6537	
==>t} } ) {
                print {$FH} ", " unless ($first);
                print {$FH} "$_->{symbol}";
                if ( exists $_->{pragma} and $_ <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	9795	9935	
==>t} } ) {
            print {$FH} ", " unless ($first);
            print {$FH} "$_->{symbol}";
            if ( exists $_->{pragma} and $_ <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	3664	3770	
==>$_[2] ? $_[2] : '\s*';
	my $wantarray = wantarray;
	my $qdel = "";
	my $quotelike;
	$ldel =~ s/'//g and $qd <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793421	793511	
==>{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794326	794416	
==>{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795231	795321	
==>{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796137	796227	
==>{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n" <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8212	8340	
==>) {
        die "Must always have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8994	9122	
==>) {
        die "Must always have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7865	7993	
==>) {
        die "Must always have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8654	8782	
==>) {
        die "Must always have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1760	1861	
==>post_translation() {
	# Nothing to do.
	return "";
}

# Extra subroutines required for the mapper.
sub <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	800	901	
==>post_translation() {
	# Nothing to do.
	return "";
}

# Extra subroutines required for the mapper.
sub <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	557	658	
==>post_translation() {
	# Nothing to do.
	return "";
}

# Extra subroutines required for the mapper.
sub <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8791	8889	
==>($reg);

    my $L_fallback = $self->output_label_use($fallback);
    return ("<rx_tmp> = <rx_stack <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514127	514336	
==>"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515007	515216	
==>"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515887	516096	
==>"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818154	818248	
==>hange the register base pointer\n   * {{=0,+=1}} reloads cached base pointers, and works with\n <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	5367	5476	
==>nmust be one of generate, compile, linklibs, or copy\n";
}

sub run {
    print join(" ", @_), "\n";

    retu <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4568	4677	
==>nmust be one of generate, compile, linklibs, or copy\n";
}

sub run {
    print join(" ", @_), "\n";

    retu <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	5578	5687	
==>nmust be one of generate, compile, linklibs, or copy\n";
}

sub run {
    print join(" ", @_), "\n";

    retu <==
4	/Users/nnunley/parrot/tools/build/ops2c.pl	1468	1565	
==>is dynamic.

=item C<--core>

Build the Parrot core opcode library.

=item C<--no-lines>

Do not g <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	9758	9896	
==>ompiled = 0;
    if (!defined $body) {
        $precompiled = 1;
        $extern = 1;
        my $opbody = $op->body;
        # retranslate <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30198	30300	
==>ub parse_struct_copy_dispatch {
	goto RTJUMP;
	print CODE <<SCOPYDIS;
	
	#
	# Structure copy dispatch r <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	221	318	
==>sion.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jak <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16694	16962	
==>=> [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	17468	17736	
==>=> [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18263	18531	
==>=> [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	806	898	
==>truct::Expression::Value::Literal->new($block, $token)    if $token->kind eq 'literal';

  re <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	9358	9458	
==>\$P0["value"]=0
	store_global "PRINTCOL", \$P0
	print "\\n"
PRINT
		}
	}

}
sub parse_print {
	my $eo <==
4	/Users/nnunley/parrot/config/auto/gdbm.pm	644	760	
==>ns->get('verbose');

    my $cc        = $conf->data->get('cc');
    my $libs      = $conf->data->get('libs');
    my <==
4	/Users/nnunley/parrot/config/auto/gmp.pm	585	701	
==>ns->get('verbose');

    my $cc        = $conf->data->get('cc');
    my $libs      = $conf->data->get('libs');
    my <==
4	/Users/nnunley/parrot/config/auto/readline.pm	597	713	
==>ns->get('verbose');

    my $cc        = $conf->data->get('cc');
    my $libs      = $conf->data->get('libs');
    my <==
4	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	4193	4309	
==>p_body );

# private sub  _trim()
#
# Trim leading and trailing spaces.

sub _trim
{
    my $value = shift;

    $val <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54091	54211	
==>ead,$line,$code);
				$prod and $prod->additem($item)
				      or  _no_rule($code,$line);
			}
			elsif ($grammar =~ m/( <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54510	54630	
==>ead,$line,$code);
				$prod and $prod->additem($item)
				      or  _no_rule($code,$line);
			}
			elsif ($grammar =~ m/( <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54988	55108	
==>ead,$line,$code);
				$prod and $prod->additem($item)
				      or  _no_rule($code,$line);
			}
			elsif ($grammar =~ m/( <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53279	53398	
==>ead,$line,$code);
				$prod and $prod->additem($item)
				      or  _no_rule($code,$line);
			}
			elsif ($grammar =~ m/ <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11092	11283	
==>key ( @{$var} ) {
                        push @opcodes, @{ $key->[1] };
                        my $result2 = new_tmp( $parser, 'pmc' );
                        push @opcodes, new LocalDir <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9323	9502	
==>key ( @{$var} ) {
                    push @opcodes, @{ $key->[1] };
                    my $result2 = new_tmp( $parser, 'pmc' );
                    push @opcodes, new LocalDir <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8315	8470	
==>key ( @{$var} ) {
            push @opcodes, @{ $key->[1] };
            my $result2 = new_tmp( $parser, 'pmc' );
            push @opcodes, new LocalDir <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17537	17680	
==>key ( @{$var} ) {
        push @opcodes, @{ $key->[1] };
        my $result2 = new_tmp( $parser, 'pmc' );
        push @opcodes, new LocalDir <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021706	1021816	
==>rot_gmtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  "LABELS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022548	1022658	
==>rot_gmtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  "LABELS" = <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2745	2841	
==>>end_element({ Name => 'block' });
  }

  $handler->start_element({ Name => 'block', Attributes = <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2622	2718	
==>>end_element({ Name => 'block' });
  }

  $handler->start_element({ Name => 'block', Attributes = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710205	710489	
==>{
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711038	711322	
==>{
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711872	712156	
==>{
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712978	713262	
==>{
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147322	147585	
==>erpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Pa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148263	148526	
==>erpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Pa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149203	149466	
==>erpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Pa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150144	150407	
==>erpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Pa <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	1724	1909	
==>0
     B2: sub x, 1
         goto B1
     B3: sub x, 1
         goto B2

 to

     B1: sub x, 1
         goto S0
     B2: sub x, 2
         goto S0
     B3: sub x, 3
         goto S0

si <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16254	16356	
==>ion::Value::Identifier->new($block, $token);

      $self->require_assign;

      my $left  = Jako::Con <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17025	17127	
==>ion::Value::Identifier->new($block, $token);

      $self->require_assign;

      my $left  = Jako::Con <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17830	17932	
==>ion::Value::Identifier->new($block, $token);

      $self->require_assign;

      my $left  = Jako::Con <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	3892	4018	
==>$i++) {
		    my ($a, $def) = split(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a = qq!"$a"!;   # quote argument
		    $def_ar <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	4391	4517	
==>$i++) {
		    my ($a, $def) = split(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a = qq!"$a"!;   # quote argument
		    $def_ar <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	1647	1772	
==>, 
                $dist->relative_path($dist->c_header_file_with_name($name));
        }
    }
    
    if ( exists $contents <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	2112	2236	
==>,
                $dist->relative_path($dist->c_header_file_with_name($name));
        }
    }
    
    if ( exists $contents <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071805	1071909	
==>ps/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073990	1074094	
==>ps/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076175	1076279	
==>ps/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078361	1078465	
==>ps/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663217	663502	
==>> 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 74 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663988	664273	
==>> 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 74 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664760	665045	
==>> 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 74 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665536	665821	
==>> 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 74 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96506	96758	
==>"CODE" => 119,
                  "ARGS" => [
                              "s",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 63 \"src/ops/bit.ops\"\n  {{\@1}} = s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164771	164862	
==>/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) != 0) {\n    {{+={{\@3}}}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165700	165791	
==>/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) != 0) {\n    {{+={{\@3}}}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166629	166720	
==>/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) != 0) {\n    {{+={{\@3}}}} <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4843	4953	
==>cc_pmc;
    my $pmc_reg = $compiler->temp_pmc();

    $compiler->emit("  $pmc_reg = new $pmc_type");
    $compi <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2906	3016	
==>cc_pmc;
    my $pmc_reg = $compiler->temp_pmc();

    $compiler->emit("  $pmc_reg = new $pmc_type");
    $compi <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1209	1318	
==>cc_pmc;
    my $pmc_reg = $compiler->temp_pmc();
    $compiler->emit("  $pmc_reg = new $pmc_type");
    $compi <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1203	1312	
==>cc_pmc;
    my $pmc_reg = $compiler->temp_pmc();
    $compiler->emit("  $pmc_reg = new $pmc_type");
    $compi <==
4	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	851	950	
==>mespace ['']

END_PIR

my %static_cmds = map { $_ => 1 } @static_cmds;
for my $cmd (@dynamic_cmds) { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284798	284888	
==>\"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285675	285765	
==>\"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286552	286642	
==>\"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	98904	99144	
==>{{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101142	101382	
==>{{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103348	103588	
==>{{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnot <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	24563	24678	
==>e) { $_ = qr/$_/ if $_ }
	pos = $posbug;

	my $closure = sub
	{
		my $textref = defined $_[0] ? \$_[0] : \$_;
		my @ <==
4	/Users/nnunley/parrot/config/auto/inline.pm	796	952	
==>(!$@) {
            $test = cc_run();
            chomp $test if $test;
        }
        cc_clean();
        if (!$test) {
            cc_gen('config/auto/i <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	388	487	
==>w(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $dest, $left, $op, $rig <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	379	478	
==>w(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $dest, $left, $op, $rig <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	268	367	
==>w(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $dest, $left, $op, $rig <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	10644	10760	
==>@_;

    print "$file:$line (WARNING) " . Text::Wrap::wrap("", "        ", $message) . "\n";
}


sub error {
    my ( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276195	276307	
==>\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277073	277185	
==>\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277951	278063	
==>\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	1560	1675	
==>xt;
    }

    if ($text =~ m{^( 0x[0-9a-fA-F]+ )($|\W.*$)}x) {
      push @tokens, Jako::Token->new(
        $file, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143529	143620	
==>Y" => "#line 84 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144457	144548	
==>Y" => "#line 84 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145385	145476	
==>Y" => "#line 84 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19293	19388	
==>$node->{children}}) {
    my $temp_1 = $self->_generate($node->{children}[$_]);
    $self->_add_ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19781	19876	
==>$node->{children}}) {
    my $temp_1 = $self->_generate($node->{children}[$_]);
    $self->_add_ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20270	20365	
==>$node->{children}}) {
    my $temp_1 = $self->_generate($node->{children}[$_]);
    $self->_add_ <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/EditorPlugins.pm	216	307	
==>umentation section

=head1 SYNOPSIS

	use Parrot::Docs::Section::EditorPlugins;

=head1 DESC <==
4	/Users/nnunley/parrot/examples/benchmarks/oo1.pl	94	216	
==>nt $o->[0], "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift;
    return bless [ 10, 20 ], $self <==
4	/Users/nnunley/parrot/examples/benchmarks/oo2.pl	94	216	
==>nt $o->[0], "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift;
    return bless [ 10, 20 ], $self <==
4	/Users/nnunley/parrot/examples/benchmarks/oo3.pl	110	232	
==>nt $o->[0], "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift;
    return bless [ 10, 20 ], $self <==
4	/Users/nnunley/parrot/examples/benchmarks/oo4.pl	104	226	
==>nt $o->[0], "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift;
    return bless [ 10, 20 ], $self <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	7286	7397	
==>l_link {
    my ($group, $libs, $stems) = @_;

    my @sources = map { "$_$O" } @$stems;
    if (needs_build("$g <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	7497	7608	
==>l_link {
    my ($group, $libs, $stems) = @_;

    my @sources = map { "$_$O" } @$stems;
    if (needs_build("$g <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3619	3727	
==>ty, and parent block is not a module!")
        unless $self->block->kind eq 'module';

      my %module_prop <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6283	6391	
==>ty, and parent block is not a module!")
        unless $self->block->kind eq 'module';

      my %module_prop <==
4	/Users/nnunley/parrot/config/auto/msvc.pm	550	649	
==>conf) = (shift, shift);

    my $verbose = $conf->options->get('verbose');

    cc_gen("config/auto/ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1601	1687	
==>E ALSO

L<Pod::Simple::PullParserToken>, L<Pod::Simple>, L<Pod::Simple::Subclassing>

= <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2768	2854	
==>E ALSO

L<Pod::Simple::PullParserToken>, L<Pod::Simple>, L<Pod::Simple::Subclassing>

= <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1888	1974	
==>E ALSO

L<Pod::Simple::PullParserToken>, L<Pod::Simple>, L<Pod::Simple::Subclassing>

= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591365	591460	
==>ine 325 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  o <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592575	592670	
==>ine 325 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  o <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593785	593880	
==>ine 325 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  o <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594996	595091	
==>ine 325 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  o <==
4	/Users/nnunley/parrot/tools/dev/manicheck.pl	162	332	
==>ev/manicheck.pl 19607 2006-05-30T15:23:20.183054Z coke  $
################################################################################

=head1 NAME

tools/dev/manichec <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	508	614	
==>ttr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBUG and print "++ $_[1]\n";
  
  print $ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	507	613	
==>ttr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBUG and print "++ $_[1]\n";
  
  print $ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	702	805	
==>ttr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBUG and print "++ $_[1]\n";
  print $ <==
4	/Users/nnunley/parrot/config/auto/gdbm.pm	954	1064	
==>dard
    # Fink location. TODO: Need a more generalized way for finding
    # where Fink lives.
    if ($osname <==
4	/Users/nnunley/parrot/config/auto/gmp.pm	1153	1263	
==>dard
    # Fink location. TODO: Need a more generalized way for finding
    # where Fink lives.
    if ($osname <==
4	/Users/nnunley/parrot/config/auto/readline.pm	1228	1338	
==>dard
    # Fink location. TODO: Need a more generalized way for finding
    # where Fink lives.
    if ($osname <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22152	22261	
==>UG and print "Seems to match =head1 NAME pattern.\n";
      $title = '';
      foreach my $t (reverse @to_unge <==
4	/Users/nnunley/parrot/config/auto/gc.pm	1158	1278	
==>>data->get('i_malloc')) {
            $conf->data->set(malloc_header => 'malloc.h');
        } else {
            $conf-> <==
4	/Users/nnunley/parrot/config/auto/memalign.pm	957	1065	
==>>data->get('i_malloc')) {
        $conf->data->set(malloc_header => 'malloc.h');
    } else {
        $conf-> <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017937	1018033	
==>uct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_gmtime_r(&t, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018862	1018958	
==>uct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_gmtime_r(&t, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72607	72700	
==>ng(interpreter, ({{\@3}}));\n\n  funcptr_t p = D2FPTR(Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? \n\t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74209	74302	
==>ng(interpreter, ({{\@3}}));\n\n  funcptr_t p = D2FPTR(Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? \n\t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75811	75904	
==>ng(interpreter, ({{\@3}}));\n\n  funcptr_t p = D2FPTR(Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? \n\t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77414	77507	
==>ng(interpreter, ({{\@3}}));\n\n  funcptr_t p = D2FPTR(Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? \n\t <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5699	5806	
==>eno:\n";
#DBG>		$debug & 0x08
#DBG>	and	print STDERR "Stack:[".
#DBG>					 join(',',map { $$_[0] } @$stac <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5427	5531	
==>eno:\n";
#DBG>		$debug & 0x08
#DBG>	and	print STDERR "Stack:[".
#DBG>					 join(',',map { $$_[0] } @$stac <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	41615	41718	
==>line'};

  # A recursive algorithm implemented iteratively!  Whee!


  # Has frightening side effects on <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Compilers.pm	245	346	
==>lers;

=head1 DESCRIPTION

A documentation section describing all compilers in Parrot.

=head2 C <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596196	596370	
==>{{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597089	597263	
==>{{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3768	3867	
==>ecklist{$prm})
		or	croak("Unknow parameter '$prm'");
			ref($value) eq $$checklist{$prm}
		or	cr <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3574	3670	
==>ecklist{$prm})
		or	croak("Unknow parameter '$prm'");
			ref($value) eq $$checklist{$prm}
		or	cr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926598	926780	
==>n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928068	928250	
==>n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929538	929720	
==>n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931009	931191	
==>n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579304	579401	
==>t_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NUL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580609	580706	
==>t_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NUL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581914	582011	
==>t_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NUL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583220	583317	
==>t_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NUL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	486696	486990	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ceil",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	487447	487741	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ceil",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
4	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1170	1287	
==>h_to_parrot));
        my $path_to_language;
        if ($dir_count == 0) {
          $path_to_language = File::Spec-> <==
4	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1655	1772	
==>h_to_parrot));
        my $path_to_language;
        if ($dir_count == 0) {
          $path_to_language = File::Spec-> <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634808	635093	
==>n  {{\@1}} = VTABLE_new_from_string(interpreter, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635926	636211	
==>n  {{\@1}} = VTABLE_new_from_string(interpreter, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637044	637329	
==>n  {{\@1}} = VTABLE_new_from_string(interpreter, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638163	638448	
==>n  {{\@1}} = VTABLE_new_from_string(interpreter, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2382	2482	
==>ple>, L<Pod::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1652	1752	
==>ple>, L<Pod::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2819	2919	
==>ple>, L<Pod::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1939	2039	
==>ple>, L<Pod::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343629	343927	
==>E" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344870	345168	
==>E" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346112	346410	
==>E" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347354	347652	
==>E" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	339633	339946	
==>E" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340631	340944	
==>E" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341630	341943	
==>E" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342629	342942	
==>E" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/config/init/hints/os2.pm	202	312	
==>= @_;

    # This hints file is very specific to a particular os/2 configuration.
    # A more general one woul <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	1926	2012	
==>Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wno-unused -Wsign-compare -W <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1291	1377	
==>Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wno-unused -Wsign-compare -W <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1295	1381	
==>Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wno-unused -Wsign-compare -W <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111285	111392	
==>{{\@1}} = string_bitwise_or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112177	112284	
==>{{\@1}} = string_bitwise_or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113069	113176	
==>{{\@1}} = string_bitwise_or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	288	377	
==>:Directory> subclass creates C<Parrot::Docs::Files>.

It's used by the documentation tools <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	12895	13011	
==>eblock($textref, $pre,
				     $ldel_outer, $rdel_outer,
				     $ldel_inner, $rdel_inner,
				     $rd);
	return _ <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	52075	52168	
==>turns an array of substrings
of the original string, as extracted by the specified extractors. <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123870	124126	
==>} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124744	125000	
==>} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125618	125874	
==>} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	7282	7389	
==>for even the shortest match of this subtree?
    if (($t->minlen() || 0) > $guarantee) {
        my $newtree <==
4	/Users/nnunley/parrot/config/gen/config_pm.pm	1376	1482	
==>te)          or die "Can't open '$template': $!";
    open(OUT, ">config_lib.pasm") or die "Can't open conf <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2797	2890	
==>")  unless defined $left_type;
  $self->INTERNAL_ERROR("No type for right!") unless defined $r <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2563	2656	
==>")  unless defined $left_type;
  $self->INTERNAL_ERROR("No type for right!") unless defined $r <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2485	2578	
==>")  unless defined $left_type;
  $self->INTERNAL_ERROR("No type for right!") unless defined $r <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584423	584517	
==>.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585498	585592	
==>.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597939	598033	
==>.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598986	599080	
==>.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18187	18318	
==>itwise->new($block, $ident, $left, $op, $right);

      next;
    }

    #
    # Subroutine Calls:
    #
    #     <ident>(<arg>, <a <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	1911	2026	
==>};     }
sub name   { return shift->{NAME};     }
sub value  { return shift->{VALUE};    }
sub props  { return %{shi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	30618	30725	
==>this = CUR_OPCODE;\n    parrot_context_t *ctx;\n    PMC *ccont;\n    PMC *signature = {{\@1}};\n    INTVAL a <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	28598	28694	
==>n a list context, the contents of the original input text (the first
argument) are not modified i <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	3363	3483	
==>file})) {
            $source_file = "$source_file (from $da_file)";
        }

        print "Processing $gcov_file ($so <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10962	11050	
==>DEST0}.
${ITEMP0} = ${PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pre_call_HAS <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8148	8236	
==>DEST0}.
${ITEMP0} = ${PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pre_call_HAS <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5810	5898	
==>DEST0}.
${ITEMP0} = ${PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pre_call_HAS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640281	640657	
==>,
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 715,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#li <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	6525	6671	
==>num_of_tests_badpass ++;
            }
        }
    }

    if ( $depends ) {
        $context ~= " (depends on $depends working)";
    }

    my $ <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	5887	6003	
==>STDERR    filehandle to redirect STDERR to
    CD        directory to run the command in

For example:

    # equival <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1362	1466	
==>ontent) {
      $compiler->emit(".namespace ${namespace}_THEN");
      $compiler->indent;
      $self->SU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033187	1033286	
==>\"\n    parrot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034285	1034384	
==>\"\n    parrot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035381	1035480	
==>\"\n    parrot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036545	1036644	
==>\"\n    parrot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\ <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	9894	9988	
==>$type[CURR] ]);
		if ( (isbuiltin($syms[CURR]) or isuserfunc($syms[CURR]))
			and $syms[NEXT] n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591626	591720	
==>t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592836	592930	
==>t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594046	594140	
==>t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595257	595351	
==>t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288345	288636	
==>1}} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289201	289492	
==>1}} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290057	290348	
==>1}} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	1422	1519	
==>$py_file = Parrot::Test::slurp_file($py_out_f);
    my $pirate_file;

    $exit_code |= Parrot::Te <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926616	926955	
==>FO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928086	928425	
==>FO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929556	929895	
==>FO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931027	931366	
==>FO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1544	1652	
==>HQUOTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as they may contain spaces.
    $PATHQUOTE = '" <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1589	1697	
==>HQUOTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as they may contain spaces.
    $PATHQUOTE = '" <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1593	1701	
==>HQUOTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as they may contain spaces.
    $PATHQUOTE = '" <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	4694	4792	
==>Note that the results are cached and the POD will only be rechecked
if the file has been modified s <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	388	488	
==>uctor. Just base this class on a hash.
sub new() {
	my $invocant = shift;
	return bless {}, $invocant <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	294	394	
==>uctor. Just base this class on a hash.
sub new() {
	my $invocant = shift;
	return bless {}, $invocant <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	202	302	
==>uctor. Just base this class on a hash.
sub new() {
	my $invocant = shift;
	return bless {}, $invocant <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1629	1724	
==>$compiler->emit(".endnamespace ${namespace}_CONT");
    }

    $compiler->emit("  goto ${prefix} <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3404	3506	
==>{STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
}

sub YYLexer {
    my($self)=shift;

	$$self{LEX};
} <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3742	3840	
==>ck->props;

      $self->SYNTAX_ERROR("Sub declaration has no fnlib property, and parent module has <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6406	6504	
==>ck->props;

      $self->SYNTAX_ERROR("Sub declaration has no fnlib property, and parent module has <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3232	3327	
==>{STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
}

sub YYLexer {
    my($self)=shift;

	$$self{LEX};
} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067194	1067368	
==>emp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068380	1068554	
==>emp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069566	1069740	
==>emp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070753	1070927	
==>emp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067132	1067243	
==>OATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)te <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068318	1068429	
==>OATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)te <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069504	1069615	
==>OATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)te <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070691	1070802	
==>OATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)te <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7581	7690	
==>re operation hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If the des <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5699	5808	
==>re operation hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If the des <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4541	4650	
==>re operation hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If the des <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	1065	1173	
==>_group('Documentation', '', 
            $self->new_item('', 'lib/Parrot/Docs/Item.pm'),
            $self->n <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3102	3200	
==>et type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have anything o <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4860	4958	
==>et type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have anything o <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7787	7885	
==>et type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have anything o <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8643	8741	
==>et type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have anything o <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848303	848577	
==>{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849083	849357	
==>{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853412	853686	
==>{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854194	854468	
==>{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
4	/Users/nnunley/parrot/languages/converter.pl	1452	1562	
==>defined $item[3][0];
 		}
		| terminal(?) '|' production mod(?)
#		{[@item]}
		{ $return = '';
		  $return .= $ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11049	11138	
==>AS_RETURN_${CURIC}
if "${CURIC}" == "73" goto pre_call_HAS_RETURN_${CURIC}
goto pre_call_N <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8235	8324	
==>AS_RETURN_${CURIC}
if "${CURIC}" == "73" goto pre_call_HAS_RETURN_${CURIC}
goto pre_call_N <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5897	5986	
==>AS_RETURN_${CURIC}
if "${CURIC}" == "73" goto pre_call_HAS_RETURN_${CURIC}
goto pre_call_N <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	47993	48096	
==>2)
  #  returns the parse trees of $source1 and $source2.
  # Good in things like: &ok( Class->duo(... , <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1929	2017	
==>$block->find_symbol($left->value);
    $self->SYNTAX_ERROR("Expression involves unknown v <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1887	1975	
==>$block->find_symbol($left->value);
    $self->SYNTAX_ERROR("Expression involves unknown v <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1809	1897	
==>$block->find_symbol($left->value);
    $self->SYNTAX_ERROR("Expression involves unknown v <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950562	950654	
==>ter, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951522	951614	
==>ter, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952482	952574	
==>ter, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953443	953535	
==>ter, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{ <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18824	18970	
==>,
			"*" => 80,
			'THEN' => 102,
			"<=" => 85,
			'OR' => 84,
			">" => 86
		}
	},
	{#State 51
		ACTIONS => {
			'NAME' => 103
		}
	} <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	679	794	
==>tep
{
    my ($self, $conf) = @_;
    
    my $verbose = $conf->options->get('verbose');

    # undef means we don't <==
4	/Users/nnunley/parrot/config/inter/lex.pm	689	800	
==>tep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    # undef means we don't <==
4	/Users/nnunley/parrot/config/inter/make.pm	666	777	
==>tep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    # undef means we don't <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	4842	4968	
==>.

    0     SS$_NORMAL        all tests successful
    4     SS$_ABORT         something went wrong

Unfortunately, I can't di <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9639	9754	
==>R "**At eof: aborting.\n";
				return(undef);
			};

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Dicard in <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9206	9316	
==>R "**At eof: aborting.\n";
				return(undef);
			};

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Dicard in <==
4	/Users/nnunley/parrot/lib/Parrot/PMC.pm	1368	1461	
==>4,
	ResizableFloatArray => 65,
	ResizableIntegerArray => 66,
	ResizablePMCArray => 67,
	Resiza <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	4719	4854	
==>nt;
                next;
            }

            ($percent, $total_branches, $function) = /\s*([^%]+)% of (\d+) branches taken at le <==
4	/Users/nnunley/parrot/tools/build/list_unjitted.pl	891	1000	
==>f $jit eq $op;
    }
    push @not_jitted, $op;
}

print foreach @not_jitted;

print 'Not jitted: ', scalar @n <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	6	103	
==>re 5;
package Pod::Simple::Text;
use strict;
use Carp ();
use Pod::Simple::Methody ();
use Pod::Si <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18346	18438	
==>$token->is_ident and $self->get(1)->is_open_paren) {
      my $block = $self->current_block() <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494323	494416	
==>" => "#line 590 \"src/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495191	495284	
==>" => "#line 590 \"src/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496059	496152	
==>" => "#line 590 \"src/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n" <==
4	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	493	585	
==>d2 gen_output

Called in output_is(),
which gets called when language_output_is() is called i <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	4134	4280	
==>',
            $self->c_item(
                'Parrot Packfile API and utilities.', 
                'contents' => ['src/packfile'],
            ), <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1397	1501	
==>$last_seen ne 'inline') {
        $compiler->emit(".sub __INLINE_" . $inline++);
        $compiler->inden <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1599	1695	
==>$last_seen ne 'inline') {
    $compiler->emit(".sub __INLINE_" . $inline++);
    $compiler->inden <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	413	509	
==>::Docs::Section::BigNum;

use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	5832	5970	
==>rint {$self->{'output_fh'}} 
                $self->{'Tagmap'}{$tagname} . 
                $self->html_link(
                    $self->{D <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1053	1138	
==>))
#define CUR_OPCODE ((opcode_t*)cur_opcode + CONTEXT(interpreter->ctx)->pred_offset) <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	987	1072	
==>))
#define CUR_OPCODE ((opcode_t*)cur_opcode + CONTEXT(interpreter->ctx)->pred_offset) <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1183	1268	
==>))
#define CUR_OPCODE ((opcode_t*)cur_opcode + CONTEXT(interpreter->ctx)->pred_offset) <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1894	2008	
==>program they provided appears to be
    # broken
    if ($ret == -1 and !$conf->options->get('ask')) {

        # f <==
4	/Users/nnunley/parrot/config/inter/make.pm	1768	1882	
==>program they provided appears to be
    # broken
    if ($ret == -1 and !$conf->options->get('ask')) {

        # f <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1908	2022	
==>program they provided appears to be
    # broken
    if ($ret == -1 and !$conf->options->get('ask')) {

        # f <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380524	380850	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381535	381861	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382547	382873	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383559	383885	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1318	1421	
==>the user is responsible for the consequences.
    if (defined $prog) {
        $conf->data->set($util => <==
4	/Users/nnunley/parrot/config/inter/make.pm	1139	1242	
==>the user is responsible for the consequences.
    if (defined $prog) {
        $conf->data->set($util => <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1315	1418	
==>the user is responsible for the consequences.
    if (defined $prog) {
        $conf->data->set($util => <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	14394	14486	
==>ck::Loop::Continue->new($parent_block, $peer_block);
        $self->push_block($loop) if defi <==
4	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Posix.pm	328	446	
==>_prog {
    my $self = shift;
    my ( $count, $options ) = @_;

    my $lang_fn        = Parrot::Test::per_test( '.bc' <==
4	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	458	569	
==>_prog {
    my $self = shift;
    my ( $count, $options ) = @_;

    my $lang_fn = Parrot::Test::per_test( '.bc' <==
4	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr3.pm	350	461	
==>_prog {
    my $self = shift;
    my ( $count, $options ) = @_;

    my $lang_fn = Parrot::Test::per_test( '.bc' <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	11201	11295	
==>ng COMPILER. If FILTER is provided, only
those Constructs in the content for which FILTER retur <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164799	164913	
==>_equal(interpreter, {{\@1}}, {{\@2}}) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165728	165842	
==>_equal(interpreter, {{\@1}}, {{\@2}}) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166657	166771	
==>_equal(interpreter, {{\@1}}, {{\@2}}) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" = <==
4	/Users/nnunley/parrot/tools/build/pbc2c.pl	3763	3870	
==>{$new_pc} = 1 if $is_branch;
    }

    my $enternative;

FINDENTERN:
    foreach my $cur_op (@$Parrot::OpLi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050187	1050287	
==>2}})\n\tinternal_exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Pa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051221	1051321	
==>2}})\n\tinternal_exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Pa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052255	1052355	
==>2}})\n\tinternal_exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Pa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053290	1053390	
==>2}})\n\tinternal_exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Pa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597375	597523	
==>bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAGS" => ": <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598421	598569	
==>bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAGS" => ": <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599468	599616	
==>bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAGS" => ": <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600543	600691	
==>bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAGS" => ": <==
4	/Users/nnunley/parrot/tools/dev/pbc_header.pl	1413	1529	
==>int F pack "cc", $major, $minor;
	seek F, 6, 0;	# pos 6: pad = finger_print
	print F $fp;
	close F;
    }
}

sub pbc_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494333	494442	
==>e 590 \"src/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495201	495310	
==>e 590 \"src/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496069	496178	
==>e 590 \"src/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Test/More.pm	4673	4795	
==>class) = shift;

    my $caller = caller;

    $Test->exported_to($caller);

    my $idx = 0;
    my @plan;
    my @imports <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748854	748945	
==>.ops\"\n  {{\@1}}->vtable->set_number_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749638	749729	
==>.ops\"\n  {{\@1}}->vtable->set_number_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755154	755245	
==>.ops\"\n  {{\@1}}->vtable->set_number_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755941	756032	
==>.ops\"\n  {{\@1}}->vtable->set_number_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344140	344241	
==>148 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const path = string_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345382	345483	
==>148 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const path = string_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346624	346725	
==>148 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const path = string_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347867	347968	
==>148 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const path = string_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355416	355676	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "write",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	15994	16129	
==>simple, when there are no params
        # call state var not needed if there are no params and a void return
        $call_state = '' i <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2663	2781	
==>RST}} != 0;
}

sub YYAbort {
	my($self)=shift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my( <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2545	2652	
==>RST}} != 0;
}

sub YYAbort {
	my($self)=shift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404012	404194	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404923	405105	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405835	406017	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406747	406929	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867127	867241	
==>],
                  "BODY" => "#line 232 \"src/ops/string.ops\"\n  INTVAL len;\n  len = string_length(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868093	868207	
==>],
                  "BODY" => "#line 232 \"src/ops/string.ops\"\n  INTVAL len;\n  len = string_length(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869059	869173	
==>],
                  "BODY" => "#line 232 \"src/ops/string.ops\"\n  INTVAL len;\n  len = string_length(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870026	870140	
==>],
                  "BODY" => "#line 232 \"src/ops/string.ops\"\n  INTVAL len;\n  len = string_length(interpreter, <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24332	24432	
==>($num_children==0) {
    $return = $self->_constant(0);
  } elsif($num_children==1) {
    $return = $ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25221	25321	
==>($num_children==0) {
    $return = $self->_constant(0);
  } elsif($num_children==1) {
    $return = $ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26231	26331	
==>($num_children==0) {
    $return = $self->_constant(0);
  } elsif($num_children==1) {
    $return = $ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27121	27221	
==>($num_children==0) {
    $return = $self->_constant(0);
  } elsif($num_children==1) {
    $return = $ <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	33773	33886	
==>_2 {
    return Slice(@_, 2);
}
sub SLICE_plus_3 {
    return Slice(@_, 3);
}

sub Store_Slice
{
    my ($n, $c, $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544322	544432	
==>=0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545658	545768	
==>=0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546994	547104	
==>=0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858702	858990	
==>}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859706	859994	
==>}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860710	860998	
==>}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861715	862003	
==>}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346166	346556	
==>pen",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 404,
                  "ARGS" => [
                              "p",
                              "s",
                              "sc" <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	358	466	
==>ko::Compiler;

use base qw(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my $self = shift;
  my <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	378	486	
==>ko::Compiler;

use base qw(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my $self = shift;
  my <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	358	466	
==>ko::Compiler;

use base qw(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my $self = shift;
  my <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516656	516866	
==>ODY" => "#line 729 \"src/ops/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517395	517605	
==>ODY" => "#line 729 \"src/ops/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10266	10387	
==>ack: aborting.\n";

			return(undef);
		};

		#shift the error token

#DBG>			$debug & 0x10
#DBG>		and	print STDER <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9806	9919	
==>ack: aborting.\n";

			return(undef);
		};

		#shift the error token

#DBG>			$debug & 0x10
#DBG>		and	print STDER <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953830	954094	
==>coding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 107 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954620	954884	
==>coding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 107 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957039	957303	
==>coding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 107 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957943	958207	
==>coding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 107 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714631	714726	
==>ngth(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715554	715649	
==>ngth(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722318	722413	
==>ngth(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723347	723442	
==>ngth(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	19955	20054	
==>$opcode eq 'Label') {
	$label = "pc_" . $code[$code_l]->[3] . ":";
	$code_l++;
	($opcode, $rest) = ( <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	657	755	
==>embedded in their substution values. q[] is used in
# some places as Win32 paths have \'s in, which <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	615	713	
==>embedded in their substution values. q[] is used in
# some places as Win32 paths have \'s in, which <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	619	717	
==>embedded in their substution values. q[] is used in
# some places as Win32 paths have \'s in, which <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	331827	332125	
==>en",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 39 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333104	333402	
==>en",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 39 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334382	334680	
==>en",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 39 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335660	335958	
==>en",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 39 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343638	343936	
==>en",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 40 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344879	345177	
==>en",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 40 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346121	346419	
==>en",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 40 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347363	347661	
==>en",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 40 <==
4	/Users/nnunley/parrot/lib/Test/More.pm	11006	11127	
==>ke saying:

    ok( Foo->can('this') && 
        Foo->can('that') && 
        Foo->can('whatever') 
      );

only without <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2328	2422	
==>xpression involves unknown variable %s.", $right->value) unless $right_sym;
    $right_type = $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2286	2380	
==>xpression involves unknown variable %s.", $right->value) unless $right_sym;
    $right_type = $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2208	2302	
==>xpression involves unknown variable %s.", $right->value) unless $right_sym;
    $right_type = $ <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6660	6802	
==>)
         A$(I-1)=A$(I)
         A$(I)=B$
         ' SWAP A$(I - 1), A$(I)
      END IF
   NEXT
WEND
 ' CLS
FOR I = 1 TO 4
   PRINT A$(I)
NEXT <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16313	16455	
==>)
         A$(I-1)=A$(I)
         A$(I)=B$
         ' SWAP A$(I - 1), A$(I)
      END IF
   NEXT
WEND
 ' CLS
FOR I = 1 TO 4
   PRINT A$(I)
NEXT <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1164	1292	
==>rn $self;
}


#
# ACCESSORS:
#

sub type      { return shift->{TYPE};      }
sub name      { return shift->{NAME};      }
sub pro <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1499	1627	
==>rn $self;
}


#
# ACCESSORS:
#

sub type      { return shift->{TYPE};      }
sub name      { return shift->{NAME};      }
sub pro <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	19093	19242	
==>/!:/s;
      my $neg;  # whether this is a negation-match
      $neg = 1        if $content =~ s/^!//s;
      my $to_resolve;  # whether to process fo <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1420	1520	
==>16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT = qq[];

# Here comes some st <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1465	1565	
==>16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT = qq[];

# Here comes some st <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1469	1569	
==>16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT = qq[];

# Here comes some st <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344347	344447	
==>\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* stri <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345589	345689	
==>\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* stri <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346831	346931	
==>\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* stri <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348074	348174	
==>\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* stri <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	626373	626564	
==>al_function)(interpreter, sig_bits, args);\n    {{=pc}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/tools/build/c2str.pl	1530	1634	
==>generated automatically from '$infile'
 * by $0.
 *
 * Any changes made here will be lost!
 *
 */

#defin <==
4	/Users/nnunley/parrot/tools/build/c2str.pl	3819	3923	
==>generated automatically from '$infile'
 * by $0.
 *
 * Any changes made here will be lost!
 *
 */

#defin <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1066	1165	
==>$expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## is_deeply
sub i <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	5628	5778	
==>$text;
            die $@ if $@;
            last;
        }
        if ($options{conditioned_lines}) {

            # Lines with "#CONDITIONED_LINE(va <==
4	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	927	1044	
==>sh     # PerlHash   # Numerics
	new P21, .PerlHash     # Alphabetics.
	new P22, .PerlHash     # ??
	new P23, .PerlHash <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	1198	1303	
==>ddr)
{
    INTVAL offset_in_ops;
    if (prederef_addr == NULL) return NULL;
    offset_in_ops = prederef_ <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	51805	51896	
==>lock, so the directive is parsed correctly.

=head2 C<extract_multiple>

The C<extract_multi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19592	19797	
==>> [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 335 \"src/ops/core.ops\"\n  if ({{\@1}} == 0) {\n    {{+={{\@2}}}} <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1246	1389	
==>dd     
       double-underline=uldb         thick-underline=ulth
       word-underline=ulw            wave-underline=ulwave
   ]
   # But no do <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3217	3328	
==>SCII) {
    $self->{'Thispara'} =~ tr{\xA0}{ };
    $self->{'Thispara'} =~ tr{\xAD}{}d;
  }

  my $i = ' ' x ( 2 <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2705	2816	
==>SCII) {
    $self->{'Thispara'} =~ tr{\xA0}{ };
    $self->{'Thispara'} =~ tr{\xAD}{}d;
  }

  my $i = ' ' x ( 2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907276	907423	
==>c"
                            ],
                  "BODY" => "#line 262 \"src/ops/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_str(interpreter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908296	908443	
==>c"
                            ],
                  "BODY" => "#line 262 \"src/ops/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_str(interpreter <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	14234	14337	
==>efault\n";
		$selects[-1]->{incase}=$incase+1;
		return;
	}

	my $lambda=<<GL;
	
	P0= P10[I25]
	P1= P0[" <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	1210	1311	
==>>
variable.  Returns the inheriting classes name.

=cut

sub set_result
{
    my ($self, $result) = @_ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28217	28311	
==>RACE?'':'
			Parse::RecDescent::_trace(q{<<Didn\'t match terminal>>},
						  Parse::RecDescent <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32492	32586	
==>RACE?'':'
			Parse::RecDescent::_trace(q{<<Didn\'t match terminal>>},
						  Parse::RecDescent <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3398	3490	
==>od::PXML>, L<Pod::XML>, L<Pod::SAX>


=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Se <==
4	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3050	3142	
==>od::PXML>, L<Pod::XML>, L<Pod::SAX>


=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Se <==
4	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3447	3565	
==>/^(\s*)([^\n]+)\s*\Z/$1puts [$2]/m;

        $tests{$name} = [$expl, $body, $out];
    }

    return %tests;
}

##
## $ <==
4	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4854	4972	
==>/^(\s*)([^\n]+)\s*\Z/$1puts [$2]/m;

        $tests{$name} = [$expl, $body, $out];
    }

    return %tests;
}

##
## $ <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	14066	14160	
==>tring;
}

=item C<write_html($source, $target, $rel_path, $item)>

Writes an HTML version of th <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	5197	5288	
==>{ons}
	goto ONOK_${ons}
ONERR_${ons}:
	print "On...goto/gosub out of range at $sourceline\\n <==
4	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	4795	4902	
==>Find::name =~ m[/\.svn|blib|debian];

    # This is currently the only ignored directory    
    return if $ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21367	21468	
==>lf->_restore($temp);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21752	21853	
==>lf->_restore($temp);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22137	22238	
==>lf->_restore($temp);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926699	927004	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringinf <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928169	928474	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringinf <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929639	929944	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringinf <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10915	11017	
==>ines.html";
    print "Writing $outfile..\n" if $DEBUG;
    open (IN, "<$infile") or die "Can't read $i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81328	81572	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compile",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82221	82465	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compile",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	4488	4602	
==>h[2], $match[5]+2,	# MATCH
			  @match[8,9],			# REMAINDER
			  @match[0,1],			# PREFIX
			);
}

sub _match_bracket <==
4	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	962	1054	
==>tput .= generate_lookup(@methods);

# Generate method code suppliers.
$output .= generate_bod <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10748	10855	
==>~ s/\.gcov$//g;

    my $outfile_base = $source_file; 
    $outfile_base =~ s/\//_/g;
    $outfile_base = "$ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926128	926248	
==>2UINTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->st <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927598	927718	
==>2UINTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->st <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929068	929188	
==>2UINTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->st <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930539	930659	
==>2UINTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->st <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576599	576904	
==>\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577611	577916	
==>\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	4074	4199	
==>try { code() };
    if ($!) {
        &Test::ok.goto($! ~~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test::p <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	32214	32329	
==>lock.  It
doesn't actually exit, that's your job.

=cut

sub _my_exit {
    $? = $_[0];

    return 1;
}


=back

=e <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	13649	13763	
==>token->text;
        # and keep looking
        
      } elsif( $token->is_end and $content_containers{ $token->tag <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	573	667	
==>AL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');

  my $self = bless {
    BL <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	648	742	
==>AL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');

  my $self = bless {
    BL <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	648	742	
==>AL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');

  my $self = bless {
    BL <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41476	41589	
==>ARG
		  ' . $rightarg->code(@_[1..2]) . '
		  $repcount++;
		  ';
	}

	$code .= 'unless (@item) { undef $_tok; las <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	1730	1836	
==>tools/dev/lib_deps.pl'),
            $self->new_item('', 'tools/dev/parrot_coverage.pl'),
            $self <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	46175	46263	
==>rammar) unless $lines;
	$self->{_check}{itempos} = ($grammar =~ /\@itempos\b|\$itempos\s* <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8977	9072	
==>bol() to locate a matching
symbol, and then returns that symbol's scope (global or local).

=cut <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20838	20931	
==>bar(5),
print lot$(2),
print narf.first,
print poit(4).first

' ADD bug, Return OK
function fo <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87407	87495	
==>ne 1215 \"src/ops/core.ops\"\n  {{\@1}} = Parrot_make_cb(interpreter, {{\@2}}, {{\@3}}, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88409	88497	
==>ne 1215 \"src/ops/core.ops\"\n  {{\@1}} = Parrot_make_cb(interpreter, {{\@2}}, {{\@3}}, { <==
4	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	185	277	
==>umper;
use File::Basename;

package Parrot::Test::ParrotCompiler;

=head1 NAME

Parrot/Test/P <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39757	39849	
==>:_trace(q{Trying operator: [' . $self->describe . ']},
				  Parse::RecDescent::_tracefirst($ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832104	832186	
==>ush(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}), STACK_ENTRY_FL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832832	832914	
==>ush(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}), STACK_ENTRY_FL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121251	121555	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123947	124251	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124821	125125	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_ <==
4	/Users/nnunley/parrot/examples/benchmarks/primes.pl	677	798	
==>3 <= $i4) {goto LOOP;}
     $i6++;
     $i7 = $i1;
 NEXT:
  $i1++;
  if ($i1 <= $i2) {goto REDO;}
  print $i6, "\nlast is: <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2103	2194	
==>et register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3355	3446	
==>et register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5984	6075	
==>et register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6542	6633	
==>et register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	32786	32940	
==>r,
            'result' => $state,
            'arg1'   => $expr->[0],
        );
        $expr = shift @{$exprs};
    }
    my $var = new_tmp( $pars <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	1698	1835	
==>, $1);
      $text = $2;
      next;
    }

    #
    # String literals:
    #

=begin commented_out

    if ($text =~ m{^((?:\'(?:\\\'|(? <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1608	1717	
==>D};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RI <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1744	1853	
==>D};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RI <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1387	1496	
==>D};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RI <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	4821	4938	
==>}<br>\n";
        $index_html = '<p>' . $index_html . "</p>\n";
    }
    
    return $index_html;
}

=item C<contents <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1269	1378	
==>T};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RI <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1260	1369	
==>T};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RI <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1149	1258	
==>T};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{RI <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634858	635167	
==>lass, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635976	636285	
==>lass, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637094	637403	
==>lass, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638213	638522	
==>lass, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81163	81486	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compile",
                  "FLAGS" => "",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82056	82379	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compile",
                  "FLAGS" => "",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48491	48585	
==>ODY" => "#line 785 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49281	49375	
==>ODY" => "#line 785 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793425	793614	
==>}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794330	794519	
==>}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795235	795424	
==>}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796141	796330	
==>}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	2093	2218	
==>e {
            die "Syntax error at $file line ".$fh->input_line_number()."\n";
        }
    }

    return $vtable;
}

=item <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	14420	14529	
==>arent_block, $peer_block);
        $self->push_block($loop) if defined $cont;
      }
      elsif ($peer_block <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8476	8574	
==>th_name($name)>

Returns a file with the specified name in the directory.

=cut

sub existing_file_ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	1395	1489	
==>tomatoes (optionally with the pulp discarded)
 * 1 tablespoons chopped ginger root (or more, to <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7165	7265	
==>ins_pod;
	
	my $text = $self->read;
	
	return '' 
		unless $text =~ /^=head1\s+(?:NAME|TITLE|TITEL)\s <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1337	1448	
==>ible for the consequences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $self->set <==
4	/Users/nnunley/parrot/config/inter/make.pm	1158	1269	
==>ible for the consequences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $self->set <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1334	1445	
==>ible for the consequences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $self->set <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	18990	19095	
==>ists $self->{flags}{singleton}) {
        $vtbl_flag .= '|VTABLE_PMC_IS_SINGLETON';
    }
    if (exists $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849323	849654	
==>> 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 9 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850209	850540	
==>> 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 9 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851096	851427	
==>> 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 9 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851983	852314	
==>> 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 9 <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	875	985	
==>> $left,
    RIGHT => $right
  }, $class;

  $block->push_content($self);

  return $self;
}

sub left  { retur <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	883	993	
==>> $left,
    RIGHT => $right
  }, $class;

  $block->push_content($self);

  return $self;
}

sub left  { retur <==
4	/Users/nnunley/parrot/config/auto/python.pm	832	941	
==>$revision;
    my $has_python = $python ? 1 : 0;

    $conf->data->set(has_python => $has_python);

    my $ha <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4595	4700	
==>d name exists in the
directory.

=cut

sub directory_exists_with_name
{
    my $self = shift;
    my $name <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630699	630973	
==>(interpreter, type);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631689	631963	
==>(interpreter, type);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629712	629984	
==>(interpreter, type);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2567	2679	
==>elf, $reg, $value) = @_;
    $reg = value($reg);
    return "set $reg, $value";
}

sub output_print {
    my ($se <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2067	2160	
==>TEMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["r <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3319	3412	
==>TEMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["r <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5948	6041	
==>TEMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["r <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6506	6599	
==>TEMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["r <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641667	642004	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642554	642891	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643442	643779	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644334	644671	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344361	344452	
==>PIO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* string_cs <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345603	345694	
==>PIO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* string_cs <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346845	346936	
==>PIO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* string_cs <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348088	348179	
==>PIO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* string_cs <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343572	343890	
==>( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344813	345131	
==>( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346055	346373	
==>( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347297	347615	
==>( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099090	1099249	
==>\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    wh <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100288	1100447	
==>\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    wh <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101486	1101645	
==>\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    wh <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102685	1102844	
==>\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    wh <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27650	27757	
==>q ")");
		next if ($type[CURR] eq "PUN");
		if ($type[CURR] eq "BARE") {   # Variable name parameter
			$a=$ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76085	76188	
==>rprefix = "ERROR" .  ($_[1] ? " (line $_[1])" : "");
	$errortext =~ s/\s+/ /g;
	print ERROR "\n" if _ver <==
4	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2415	2498	
==>asm>,
F<examples/mops/mops.c>,
F<examples/mops/mops.cs>,
F<examples/mops/mops.il>,
F <==
4	/Users/nnunley/parrot/examples/mops/mops.pl	2415	2498	
==>asm>,
F<examples/mops/mops.c>,
F<examples/mops/mops.cs>,
F<examples/mops/mops.il>,
F <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	13618	13743	
==>dy bgcolor="white">
            <h1>$title</h1>
            <hr noshade>
    );
}


sub page_footer {
    "<hr noshade><i>Last <==
4	/Users/nnunley/parrot/config/auto/gmp.pm	1372	1491	
==>lib');
            $conf->data->add(' ', ldflags   => '-L/sw/lib');
            $conf->data->add(' ', ccflags   => '-I/s <==
4	/Users/nnunley/parrot/config/auto/readline.pm	1461	1580	
==>lib');
            $conf->data->add(' ', ldflags   => '-L/sw/lib');
            $conf->data->add(' ', ccflags   => '-I/s <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10628	10736	
==>restore ($value);
    $value = $pmc;
  }

  $self->_new_lex ($symbol,$value);

  return $value;
}

sub _op_se <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	1116	1226	
==>d(@{ $op->{args} });
}

sub lookup_var {
    my ($self, $var, $ctx) = @_;
    return $ctx->{$var} || $var;
}

s <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27526	27636	
==>''
				: $self->describe ) . '};
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self-> <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29636	29746	
==>''
				: $self->describe ) . '};
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self-> <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31733	31843	
==>''
				: $self->describe ) . '};
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self-> <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579244	579350	
==>" => "#line 289 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580549	580655	
==>" => "#line 289 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581854	581960	
==>" => "#line 289 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583160	583266	
==>" => "#line 289 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *n <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	36222	36322	
==>ing at L-content text bit \"$ell_content[$j]\" for a '|'.\n";

        if($ell_content[$j] =~ m/^([^\ <==
4	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2953	3079	
==>og = join ' && ', @test_prog;
            $diag .= "'$test_prog' failed with exit code $exit_code."
                if $exit_ <==
4	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	2563	2674	
==>og = join ' && ', @test_prog;
               $diag .= "'$test_prog' failed with exit code $exit_code." if $exit_ <==
4	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2565	2673	
==>og = join ' && ', @test_prog;
            $diag .= "'$test_prog' failed with exit code $exit_code." if $exit_ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	3040	3142	
==>l int valid_flag
    set num_groups, result["!GROUPS"]
    set match_num, 0
printLoop:
    ge match_num <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25154	25268	
==>n = defined $node->{children} ? @{$node->{children}} - 1 : 0;

  if($num_children==0) {
    $return = $self->_const <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27054	27168	
==>n = defined $node->{children} ? @{$node->{children}} - 1 : 0;

  if($num_children==0) {
    $return = $self->_const <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24266	24379	
==>n = defined $node->{children} ? @{$node->{children}} - 1 : 0;
  if($num_children==0) {
    $return = $self->_const <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26165	26278	
==>n = defined $node->{children} ? @{$node->{children}} - 1: 0;

  if($num_children==0) {
    $return = $self->_const <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	714	817	
==>dy exists, otherwise it is
created and cached. A relative path is made absolute.

=cut

sub new
{
    my <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2296	2390	
==>cl($base)>

Optionally implemented in subclasses to return the C code for the run
core function <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2747	2841	
==>cl($base)>

Optionally implemented in subclasses to return the C code for the run
core function <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	252	342	
==>re-name> src/jit_cpu.c

=head1 DESCRIPTION

This script creates F<src/jit_cpu.c>. It parses <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	20472	20632	
==>= $_->{'group'};
            } else {
                # Not a group; jump straight to instruction.
                my $name = $_->{'name'};
                $name <==
4	/Users/nnunley/parrot/tools/build/ops2pm.pl	8700	8799	
==>file = "src/ops/ops.num";
  }

  my ($name, $number, $prev);

  if (!defined $ParrotOps::max_op_num) <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27256	27353	
==>nslate_code, $mv, "pre-translate for $rule->{'name'}");

		# If we have PIR for the instruction, j <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34395	34492	
==>nslate_code, $mv, "pre-translate for $rule->{'name'}");

		# If we have PIR for the instruction, j <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27232	27326	
==>pir .= sub_meta($pre_translate_code, $mv, "pre-translate for $rule->{'name'}");

		# If we have <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34371	34465	
==>pir .= sub_meta($pre_translate_code, $mv, "pre-translate for $rule->{'name'}");

		# If we have <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Examples.pm	86	175	
==>ples.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Section: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103277	103363	
==>35 \"src/ops/bit.ops\"\n  {{\@1}}->vtable->i_bitwise_nots(interpreter, {{\@1}});\n  {{+ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066915	1067019	
==>ps/experimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068101	1068205	
==>ps/experimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069287	1069391	
==>ps/experimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070474	1070578	
==>ps/experimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39019	39232	
==>exit({{\@2}});\n  do_exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39884	40097	
==>exit({{\@2}});\n  do_exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40731	40944	
==>exit({{\@2}});\n  do_exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41579	41792	
==>exit({{\@2}});\n  do_exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19604	19711	
==>e=$syms[CURR];
		feedme;
		$sourceline++;
		feedme;
		while($syms[CURR] ne "end") {
			my($name,$type);
			d <==
4	/Users/nnunley/parrot/config/auto/env.pm	504	609	
==>qw(verbose);

sub runstep
{
    my ($self, $conf) = (shift, shift);

    my $verbose = $conf->options->get <==
4	/Users/nnunley/parrot/config/auto/gdbm.pm	545	650	
==>qw(verbose);

sub runstep
{
    my ($self, $conf) = (shift, shift);

    my $verbose = $conf->options->get <==
4	/Users/nnunley/parrot/config/auto/msvc.pm	506	611	
==>qw(verbose);

sub runstep
{
    my ($self, $conf) = (shift, shift);

    my $verbose = $conf->options->get <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145160	145430	
==>",
                  "CODE" => 177,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 84 \"src/ops/cmp.ops\"\n  if (str <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27568	27663	
==>elf->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'unles <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29678	29773	
==>elf->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'unles <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31775	31870	
==>elf->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'unles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099033	1099157	
==>ne 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100231	1100355	
==>ne 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101429	1101553	
==>ne 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102628	1102752	
==>ne 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	20284	20407	
==>r that.
            if ($_->{'group'}) {
                $pir .= "    if cur_ic == 0x$_->{'code'} goto B2_BRANCH_$prefix$_-> <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9770	9873	
==>lf = shift;
    my $path = $self->path_for_directory_with_relative_path(shift);
    
    return unless $ <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10354	10457	
==>lf = shift;
    my $path = $self->path_for_directory_with_relative_path(shift);
    
    return unless $ <==
4	/Users/nnunley/parrot/tools/build/ops2c.pl	9406	9505	
==>${bs}op_func_table";
    print SOURCE <<END_C;

INTVAL ${bs}numops${suffix} = $num_ops;

/*
** Op Fu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356659	356766	
==>ops/io.ops\"\n  PIO_eprintf(interpreter, INTVAL_FMT, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357319	357426	
==>ops/io.ops\"\n  PIO_eprintf(interpreter, INTVAL_FMT, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712433	712522	
==>(interpreter, io, \" \");\n  s = Parrot_sprintf_c(interpreter, \"%.12g\", (double){{\@1}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713540	713629	
==>(interpreter, io, \" \");\n  s = Parrot_sprintf_c(interpreter, \"%.12g\", (double){{\@1}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5665	5754	
==>OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::CSwitch>

= <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3241	3330	
==>OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::CSwitch>

= <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2969	3058	
==>OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::CSwitch>

= <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	4031	4120	
==>OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::CSwitch>

= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381298	381625	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382310	382637	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383322	383649	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384335	384662	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718146	718419	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_ite <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719078	719351	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_ite <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720277	720550	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_ite <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721477	721750	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_ite <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381251	381563	
==>L, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382263	382575	
==>L, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383275	383587	
==>L, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384288	384600	
==>L, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/languages/pugs/t/pmc.pm	323	425	
==>r die "malformed file: $file";
    my $type = "Pugs\u$1";

    main::pir_output_is(<< 'CODE', << 'OUTPU <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	11398	11498	
==>y $deref = $1;

	    unless ($$textref =~ m/\G\s*(?:::|')?(?:[_a-z]\w*(?:::|'))*[_a-z]\w*/gci
	    	o <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7679	7775	
==>()>

Returns a short description of the file extracted from the C<NAME> section
of the POD docume <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20359	20451	
==>->_add_inst('','gt',[$temp_0,$temp_1,"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $se <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83030	83321	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83935	84226	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84841	85132	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85747	86038	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467661	467756	
==>nterpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468532	468627	
==>nterpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469406	469501	
==>nterpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470281	470376	
==>nterpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825142	825361	
==>CODE" => 934,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 133 \"src/ops/stack.ops\"\n  Stack_Entry <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9331	9443	
==>= popped index");
}

sub output_popint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);
    if ($se <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9025	9137	
==>= popped index");
}

sub output_popint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);
    if ($se <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22052	22154	
==>ldren}[1]);
  $self->_add_inst(''           ,'lt'    ,[$temp,0,"DONE_$label"]);
  $self->_restore($temp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037007	1037297	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037787	1038077	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038568	1038858	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "F <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	12139	12256	
==>(.*)\)$/) {
        $str = $1;
    }
    return "($str)";
}

# FIXME: Should render the _absence_ of this op different <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055746	1056150	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056637	1057041	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057529	1057933	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058421	1058825	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2050	2143	
==>gister type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3302	3395	
==>gister type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5931	6024	
==>gister type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6489	6582	
==>gister type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	339	441	
==>se SRM::Base;
our @ISA = qw/SRM::Base/;

# Constructor. Just base this class on a hash.
sub new() {
	my <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	245	347	
==>se SRM::Base;
our @ISA = qw/SRM::Base/;

# Constructor. Just base this class on a hash.
sub new() {
	my <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	153	255	
==>se SRM::Base;
our @ISA = qw/SRM::Base/;

# Constructor. Just base this class on a hash.
sub new() {
	my <==
4	/Users/nnunley/parrot/tools/dev/nm.pl	618	716	
==>=item C<--data>

=item C<-d>

List the data symbols.

=item C<--init>

=item C<-i>

List the initia <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072169	1072311	
==>\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    x <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074354	1074496	
==>\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    x <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076539	1076681	
==>\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    x <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078725	1078867	
==>\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    x <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857959	858276	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858962	859279	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859966	860283	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860970	861287	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	12747	12850	
==>} = 'loadtype';
    $mv->{'RETTYPE'} = 'rettype';
    $mv->{'LABELNUM'} = 'label_num';
    $mv->{'EHANDL <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2310	2403	
==>tionally implemented in subclasses to return the C code for the run
core function declaration. <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2761	2854	
==>tionally implemented in subclasses to return the C code for the run
core function declaration. <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	3049	3137	
==>Ops>

=item C<Parrot::Docs::Section::IMCC>

=item C<Parrot::Docs::Section::Perl>

=item C <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72563	72656	
==>ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  funcptr_t p = D2F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74165	74258	
==>ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  funcptr_t p = D2F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75767	75860	
==>ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  funcptr_t p = D2F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77370	77463	
==>ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  funcptr_t p = D2F <==
4	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	4855	4960	
==>ext if $_->{'unimplemented'};
        my $label = "BODY_$_->{'class'}___$_->{'method'}";
        $label =~ <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11021	11124	
==>le: $!\n";
    open (OUT, ">$outfile") or die "Can't write $outfile: $!\n";

    print OUT page_header(" <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11505	11608	
==>le: $!\n";
    open (OUT, ">$outfile") or die "Can't write $outfile: $!\n";

    print OUT page_header(" <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11969	12072	
==>le: $!\n";
    open (OUT, ">$outfile") or die "Can't write $outfile: $!\n";

    print OUT page_header(" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655800	656043	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656723	656966	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657647	657890	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658565	658808	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925345	925601	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringinfo",
                  "FLAGS" => ":base_core",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926814	927070	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringinfo",
                  "FLAGS" => ":base_core",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928284	928540	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringinfo",
                  "FLAGS" => ":base_core",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929754	930010	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringinfo",
                  "FLAGS" => ":base_core",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101312	101597	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102082	102367	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103518	103803	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/config/inter/progs.pm	360	459	
==>g
should be enabled.

=cut

package inter::progs;

use strict;
use vars qw($description @args);

use <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16360	16446	
==>=~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyz <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16702	16788	
==>=~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyz <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9903	9989	
==>=~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyz <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10146	10232	
==>=~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyz <==
4	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	5685	5792	
==>ar');
    $md5->add('baz');
    $digest = $md5->hexdigest;

    print "Digest is $digest\n";

=head1 LIMITAT <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	1932	2018	
==>qual -Wwrite-strings -Waggregate-return -Winline -W -Wno-unused -Wsign-compare -Wformat <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1297	1383	
==>qual -Wwrite-strings -Waggregate-return -Winline -W -Wno-unused -Wsign-compare -Wformat <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1301	1387	
==>qual -Wwrite-strings -Waggregate-return -Winline -W -Wno-unused -Wsign-compare -Wformat <==
4	/Users/nnunley/parrot/config/auto/jit.pm	4036	4180	
==>ccapable');
        if ($execcapable) {
            $conf->data->set(
                TEMP_exec_h =>
                    '$(SRC_DIR)/jit.h $(INC_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544511	544634	
==>f (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n gcd = b<<p;\n saved_var1 /= gcd;\n {{\@1}} = saved_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545847	545970	
==>f (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n gcd = b<<p;\n saved_var1 /= gcd;\n {{\@1}} = saved_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547183	547306	
==>f (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n gcd = b<<p;\n saved_var1 /= gcd;\n {{\@1}} = saved_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374026	374120	
==>s/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374909	375003	
==>s/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375792	375886	
==>s/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376676	376770	
==>s/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722486	722761	
==>rpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723515	723790	
==>rpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724559	724834	
==>rpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	49336	49457	
==>}
	],
	[#Rule 29
		 'stat', 5,
sub
#line 176 "Lua\lua51.yp"
{
            my $var = BuildLocalVariable( $_[0], $_[4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579473	579566	
==>s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580778	580871	
==>s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582083	582176	
==>s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583389	583482	
==>s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404634	404735	
==>o.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\n    {{+=4}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405546	405647	
==>o.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\n    {{+=4}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406458	406559	
==>o.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\n    {{+=4}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407371	407472	
==>o.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\n    {{+=4}};\n <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	4766	4880	
==>oes horrible mangling to them that gets in my way,
it works like this on VMS.

    0     SS$_NORMAL        all test <==
4	/Users/nnunley/parrot/lib/Test/More.pm	17317	17425	
==>$module, @imports) = @_;
    @imports = () unless @imports;

    my($pack,$filename,$line) = caller;

    loc <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	438	538	
==>r building
dynamic op libraries.

=cut

use strict;

use File::Copy qw(copy);

# qq[] isn't guarantee <==
4	/Users/nnunley/parrot/tools/build/ops2pm.pl	1298	1394	
==>icular ops file. It was
not originally intended that it was a mechanism for building a bigger
vir <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809722	809978	
==>t_string_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810627	810883	
==>t_string_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1315	1435	
==>^\n\ ]{0,50}     #  and finish any current word
        )
        \x20{1,10}(?!\n)   # capture some spaces not at line-en <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1259	1379	
==>^\n\ ]{0,50}     #  and finish any current word
        )
        \x20{1,10}(?!\n)   # capture some spaces not at line-en <==
4	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	2	146	
==>Some utility subs for aiding the test process.
# ##############################################
package DotNetTesting;
use strict;

require Expor <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	3251	3349	
==>f (defined $cond) {
    $handler->end_element({ Name => 'block' });
    $handler->end_element({ Nam <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	4004	4102	
==>f (defined $cond) {
    $handler->end_element({ Name => 'block' });
    $handler->end_element({ Nam <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	4028	4126	
==>f (defined $cond) {
    $handler->end_element({ Name => 'block' });
    $handler->end_element({ Nam <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	15813	15935	
==>sub href_path
{
    my $self = shift;
    my $path = shift;

    $path =~ s|\\+|/|go;

    return $path;
}

=back

=head2 F <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1209	1310	
==>prog ||= $ENV{uc($util)};

    # never override the user.  If a non-existent program is specified then <==
4	/Users/nnunley/parrot/config/inter/make.pm	1030	1131	
==>prog ||= $ENV{uc($util)};

    # never override the user.  If a non-existent program is specified then <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1206	1307	
==>prog ||= $ENV{uc($util)};

    # never override the user.  If a non-existent program is specified then <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6764	6887	
==>and	$$errstatus == 0
#DBG>				and	do {
#DBG>					print STDERR "**End of Error recovery.\n";
#DBG>					$dbgerror=0;
#DBG> <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8635	8755	
==>and	$$errstatus == 0
#DBG>			and	do {
#DBG>				print STDERR "**End of Error recovery.\n";
#DBG>				$dbgerror=0;
#DBG> <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6449	6568	
==>and	$$errstatus == 0
#DBG>				and	do {
#DBG>					print STDERR "**End of Error recovery.\n";
#DBG>					$dbgerror=0;
#DBG> <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8245	8361	
==>and	$$errstatus == 0
#DBG>			and	do {
#DBG>				print STDERR "**End of Error recovery.\n";
#DBG>				$dbgerror=0;
#DBG> <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244007	244263	
==>1}} = string_compare(interpreter, l, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244939	245195	
==>1}} = string_compare(interpreter, l, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	924	1019	
==>example, parsing a "=head1 ..." line will give you
a start-token with the tagname of "head1", to <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1352	1447	
==>example, parsing a "=head1 ..." line will give you
a start-token with the tagname of "head1", to <==
4	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	4663	4762	
==>s a space separated list of opsfile name
    if ($self->{FILE}) {
	$self->{FILE}=~s/, $//;
	$self->{ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1097	1190	
==>uct::Expression::Value');
  confess "Right is not Value!" if defined $right and not UNIVERSAL: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1125	1218	
==>uct::Expression::Value');
  confess "Right is not Value!" if defined $right and not UNIVERSAL: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	797	890	
==>uct::Expression::Value');
  confess "Right is not Value!" if defined $right and not UNIVERSAL: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321891	322153	
==>"conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322662	322924	
==>"conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323434	323696	
==>"conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Test/More.pm	30602	30749	
==>ALAR' ) {
                push @Data_Stack, { type => 'REF', vals => [$e1, $e2] };
                $ok = _deep_check($$e1, $$e2);
                po <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31870	31979	
==>f->{methods}[$n], $line, $out_name);
    }
    my $parameters = $method->{parameters};
    my $n=0;
    my @ar <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33447	33556	
==>f->{methods}[$n], $line, $out_name);
    }
    my $parameters = $method->{parameters};
    my $n=0;
    my @ar <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40504	40613	
==>f->{methods}[$n], $line, $out_name);
    }
    my $parameters = $method->{parameters};
    my $n=0;
    my @ar <==
4	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	155	257	
==>::File - File

=head1 SYNOPSIS

    use Parrot::IO::File;

=head1 DESCRIPTION

Use this to query and ma <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549969	550075	
==>d_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551270	551376	
==>d_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553832	553938	
==>d_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555229	555335	
==>d_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678815	679138	
==>"i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 761,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 483 \"src/op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140838	140937	
==>ODY" => "#line 77 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141734	141833	
==>ODY" => "#line 77 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142630	142729	
==>ODY" => "#line 77 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	2395	2589	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cpu_ret",
                  "FLAGS" => "",
                  "ARGDIRS" => [],
                  "TYPE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126646	126768	
==>if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127781	127903	
==>if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128916	129038	
==>if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5} <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16957	17065	
==>Returns the C code for loading a library.

=cut

sub lib_load_code() {
    my $self = shift;

    my $classna <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714673	714770	
==>pace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, PIO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715596	715693	
==>pace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, PIO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716541	716638	
==>pace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, PIO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680947	681247	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681723	682023	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682497	682797	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683272	683572	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	119448	119707	
==>e 231 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120303	120562	
==>e 231 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121158	121417	
==>e 231 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	2973	3092	
==>it("DIRECTIVE");
		while($cur =~ /\w/) {
			append;
			fetch;
		}
		emit("BARE");
		fetch;
		goto MAIN;
	}

	if ($cur =~ <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2501	2599	
==>read -lm -L/opt/local/lib  -licuuc -licudata -lpthread -lm';
        $extraLibs =~ s/blib/..\\blib/ <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2810	2908	
==>read -lm -L/opt/local/lib  -licuuc -licudata -lpthread -lm';
        $extraLibs =~ s/blib/..\\blib/ <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2605	2703	
==>read -lm -L/opt/local/lib  -licuuc -licudata -lpthread -lm';
        $extraLibs =~ s/blib/..\\blib/ <==
4	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	263	355	
==>ce  $' =~ /^\$[iI][dD]:\s(.*)\$$/;

=head1 NAME

tools/build/parrot_config_c.pl - Create src/ <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	7865	7983	
==>with 0.

=cut

sub skip_all {
    my($self, $reason) = @_;

    my $out = "1..0";
    $out .= " # Skip $reason" if $rea <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	2798	2915	
==>t");

      $string = $6;
    }

    $compiler->emit("  concat $temp, \"$string\"")
      if defined $string and $stri <==
4	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	3968	4081	
==>=cut

sub file_for_perl_module
{
    my $self = shift;
    my $module = shift || return;

    my @path = split ':: <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	335	422	
==>de
various Parrot-specific formatting features, such as linking
C<CE<lt>Parrot::I<Module <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	2586	2692	
==>lue> pairs and
returns a L<Parrot::Configure::Data> object.

=cut

sub add
{
    my $self = shift;
    my $ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27952	28049	
==>= $_savetext;' : '').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDescent::fail <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30026	30123	
==>= $_savetext;' : '').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDescent::fail <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32227	32324	
==>= $_savetext;' : '').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDescent::fail <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2393	2491	
==>::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All ri <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1663	1761	
==>::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All ri <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2830	2928	
==>::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All ri <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1950	2048	
==>::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All ri <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	12085	12212	
==>ad1_text_content !~ m/^[ A-Z]+$/s
          and $head1_text_content !~
            m/\((?:
             NAME | TITLE | VERSION | <==
4	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	2115	2234	
==>= ((\$r << $3) | ((\$r >> (32 - $3))  & ((1 << $3) - 1))) + $4";
	$insert .= "\t$c\n";
  }
  
  my $dump = '
  sub round <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	12524	12638	
==>$P1 = pop op2  # have to pop when iterating from end.
    unshift result, $P1

    inc op1
    goto neg_loop

pos_l <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	8767	8879	
==>, $rest, $cmt);
    }
    print ".end\t\t# $cur_func\n";
}

sub gen_pir {
    my ($opcode, $arg, $rest, $cmt) = @ <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8745	8856	
==>run passed unexpectedly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Te <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	3267	3374	
==>) {
    $handler->end_element({ Name => 'block' });
    $handler->end_element({ Name => 'cond' });
  }
}


1 <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	4020	4127	
==>) {
    $handler->end_element({ Name => 'block' });
    $handler->end_element({ Name => 'cond' });
  }
}


1 <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	4044	4151	
==>) {
    $handler->end_element({ Name => 'block' });
    $handler->end_element({ Name => 'cond' });
  }
}


1 <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	624	711	
==>unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');

  my $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	634	721	
==>unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');

  my $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	634	721	
==>unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');

  my $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332387	332482	
==>oon */\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333665	333760	
==>oon */\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334943	335038	
==>oon */\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336222	336317	
==>oon */\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084063	1084436	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085115	1085488	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086168	1086541	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087221	1087594	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	652149	652438	
==>"i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 729,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 264 \"src/ops/ <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4760	4871	
==>arser->YYData->{INPUT}
            or $parser->YYData->{INPUT} = readline $parser->YYData->{fh}
            or <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	5671	5782	
==>arser->YYData->{INPUT}
            or $parser->YYData->{INPUT} = readline $parser->YYData->{fh}
            or <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	6129	6240	
==>arser->YYData->{INPUT}
            or $parser->YYData->{INPUT} = readline $parser->YYData->{fh}
            or <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722379	722480	
==>o, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_softspace <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723408	723509	
==>o, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_softspace <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724452	724553	
==>o, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_softspace <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	16920	17020	
==>my $counter = $self->new_local("counter");
    my ($N, @N_ops) = $sizer->($self, $op);
    my ($R_bac <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27445	27542	
==>ep = "";
		$Parse::RecDescent::lastexpected = q{' . ($rule->hasleftmost($self) ? ''
				: $self->d <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29555	29652	
==>ep = "";
		$Parse::RecDescent::lastexpected = q{' . ($rule->hasleftmost($self) ? ''
				: $self->d <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31652	31749	
==>ep = "";
		$Parse::RecDescent::lastexpected = q{' . ($rule->hasleftmost($self) ? ''
				: $self->d <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	239	334	
==>*(.*)/gm;
	print join("\n", @c), "\n====================== $tn\n" if @c;
	$tn++;
	open(OF, ">_te <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2350	2452	
==>ment type (see
C<Parrot::OpTrans>) and value. C<$op> is an instance of C<Parrot::Op>.

=cut

sub access <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3442	3544	
==>ment type (see
C<Parrot::OpTrans>) and value. C<$op> is an instance of C<Parrot::Op>.

=cut

sub access <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3586	3688	
==>ment type (see
C<Parrot::OpTrans>) and value. C<$op> is an instance of C<Parrot::Op>.

=cut

sub access <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3241	3343	
==>ment type (see
C<Parrot::OpTrans>) and value. C<$op> is an instance of C<Parrot::Op>.

=cut

sub access <==
4	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	2780	2900	
==>if (!$cur_method) {
            die "Syntax error at line $line_count\n";

        # Have we got a non-blank line in an u <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	63403	63497	
==>x was removed).

=item C<Unable to construct closing tag to match: /%s/>

C<extract_tagged> mat <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023382	1023475	
==>@2}};\n  Parrot_localtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024232	1024325	
==>@2}};\n  Parrot_localtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\ <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	10044	10182	
==>s/^\s+(\w+)//s
                or die "Parser error: no value for '$flag'";

            $flags{$flag}{$1} =
                $flag eq 'exte <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290869	290984	
==>" => "#line 940 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} == {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291715	291830	
==>" => "#line 940 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} == {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292561	292676	
==>" => "#line 940 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} == {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386030	386349	
==>],
                  "TYPE" => "function",
                  "CODE" => 450,
                  "ARGS" => [
                              "p",
                              "ic",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 464 \"sr <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16142	16248	
==>f->get(4)->is_value
    ) {
      my $block = $self->current_block();
      my $ident = Jako::Construct::Ex <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16913	17019	
==>f->get(4)->is_value
    ) {
      my $block = $self->current_block();
      my $ident = Jako::Construct::Ex <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17718	17824	
==>f->get(4)->is_value
    ) {
      my $block = $self->current_block();
      my $ident = Jako::Construct::Ex <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	6988	7098	
==>}
}

sub compile {
    my ($src_stem, $dest_stem) = @_;

    $dest_stem ||= $src_stem;
    if (needs_build("$de <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5282	5392	
==>}
}

sub compile {
    my ($src_stem, $dest_stem) = @_;

    $dest_stem ||= $src_stem;
    if (needs_build("$de <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	7199	7309	
==>}
}

sub compile {
    my ($src_stem, $dest_stem) = @_;

    $dest_stem ||= $src_stem;
    if (needs_build("$de <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27820	27927	
==>or (1..$rule->{'pop'}) {
			$pir .= "    type_trans = pop stypes\n";
		}
		for (1..$rule->{'push'}) {
			$pi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467612	467710	
==>\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468483	468581	
==>\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477035	477133	
==>\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477931	478029	
==>\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \" <==
4	/Users/nnunley/parrot/tools/dev/gen_class.pl	1301	1415	
==>s.
 *  References:
 */

#include "parrot/parrot.h"

pmclass $classname {

EOF

## emit method bodies
for <==
4	/Users/nnunley/parrot/config/auto/pack.pm	2120	2253	
==>('numvalsize') == 12 ? 'D' : 'd')
    );

    #
    # Find out what integer constant type we can use
    # for pointers.
    #

    if <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	5824	5935	
==>include...

    STDOUT    filehandle to redirect STDOUT to
    STDERR    filehandle to redirect STDERR to
    CD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121977	122076	
==>lvalue casts are evil, but this one isn't evil enough to kill.\n   * it's just casting a signed inte <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122889	122988	
==>lvalue casts are evil, but this one isn't evil enough to kill.\n   * it's just casting a signed inte <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	17598	17712	
==>xAD" => "\\-",        # Latin-1 soft (optional) hyphen

  # CRAZY HACKS:
  "\n" => "\\line\n",
  "\r" => "\n",
  "\ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28379	28464	
==>}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched terminal<< (return val <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30455	30540	
==>}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched terminal<< (return val <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32655	32740	
==>}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched terminal<< (return val <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867198	867289	
==>VAL len;\n  len = string_length(interpreter, {{\@2}});\n  {{\@1}} = string_substr(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868164	868255	
==>VAL len;\n  len = string_length(interpreter, {{\@2}});\n  {{\@1}} = string_substr(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869130	869221	
==>VAL len;\n  len = string_length(interpreter, {{\@2}});\n  {{\@1}} = string_substr(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870097	870188	
==>VAL len;\n  len = string_length(interpreter, {{\@2}});\n  {{\@1}} = string_substr(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	839690	839865	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rotate_up",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840384	840559	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rotate_up",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	3842	3949	
==>odule: $!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$module imported OK", :$todo, :$depends) <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	28983	29081	
==>_op_inexact_exact {
}

sub _op_number_string {
}

sub _op_string_number {
}

sub _op_char_p {
}

su <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854542	854963	
==>IRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 970,
                  "ARGS" => [
                              "s",
                              "s",
                              "s"
                            ],
                  "BODY" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94947	95036	
==>s/bit.ops\"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95840	95929	
==>s/bit.ops\"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96733	96822	
==>s/bit.ops\"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067199	1067489	
==>\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068385	1068675	
==>\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069571	1069861	
==>\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070758	1071048	
==>\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302159	302466	
==>, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303035	303342	
==>, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303911	304218	
==>, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	36062	36169	
==>p_exact_inexact,
  'inexact->exact'   => \&_op_inexact_exact,

###
### Numerical input and output
###

  'nu <==
4	/Users/nnunley/parrot/tools/dev/gen_class.pl	1289	1401	
==>eeded entries.
 *  References:
 */

#include "parrot/parrot.h"

pmclass $classname {

EOF

## emit meth <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2764	2856	
==>INTERNAL_ERROR("No type for left!")  unless defined $left_type;
  $self->INTERNAL_ERROR("No t <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2530	2622	
==>INTERNAL_ERROR("No type for left!")  unless defined $left_type;
  $self->INTERNAL_ERROR("No t <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2452	2544	
==>INTERNAL_ERROR("No type for left!")  unless defined $left_type;
  $self->INTERNAL_ERROR("No t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028079	1028181	
==>\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028930	1029032	
==>\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029782	1029884	
==>\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030624	1030726	
==>\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Par <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	17213	17356	
==>ens  => ['Monica', 'Kenneth'],
                        markings => { socks=>1, blaze=>"white" },
                        breed    => Breed->new( <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	35460	35601	
==>.." => 71,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -68
	},
	{#State 132
		ACTIONS => {
			"^" => 79
		},
		DEFAU <==
4	/Users/nnunley/parrot/lib/Test/More.pm	26237	26359	
==>foreach my $entry (@Stack) {
        my $type = $entry->{type} || '';
        my $idx  = $entry->{'idx'};
        if( $type <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	755	876	
==>amespace}");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_elem <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	13028	13158	
==>'CODE' => 6,
			"(" => 10,
			"|" => 26,
			"*" => 27,
			"\$" => 29,
			"[" => 14,
			"." => 15
		},
		DEFAULT => -7,
		GOTOS => { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518146	518371	
==>e 734 \"src/ops/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518885	519110	
==>e 734 \"src/ops/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7447	7551	
==>0, 300
print "No match\n"
FIN:
for i = 1 to 3
	on i gosub oats, peas, beans
next i
print
end
100 print "1 <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19730	19834	
==>0, 300
print "No match\n"
FIN:
for i = 1 to 3
	on i gosub oats, peas, beans
next i
print
end
100 print "1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1339	1486	
==>{
    my $self = shift;

    if (@_)
    {
        $self->{PC} = shift;
    }
    else
    {
        return $self->{PC};
    }
}

=item C<args(@args <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	948	1095	
==>{
    my $self = shift;

    if (@_)
    {
        $self->{PC} = shift;
    }
    else
    {
        return $self->{PC};
    }
}

=item C<args(@args <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	1220	1359	
==>>run;
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
#  In case anyone tries to use them:

sub run {
  use C <==
4	/Users/nnunley/parrot/config/gen/makefiles.pm	8183	8313	
==>ndir ops: $!";
        my @ops = sort grep { !/^\./ && /\.ops$/ } readdir OPS;
        closedir OPS;

        my $pod = join " ", m <==
4	/Users/nnunley/parrot/languages/urm/urm-old.pl	823	934	
==>@program, $code ;
	}
}
close PROGRAM;

#print Dumper @program;

my $pos = 1;
while (1) {
    my $line = $program <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6685	6782	
==>$failLabel) = @_;
    my $fail = $self->output_label_use($failLabel);
    return ($self->dbprint(" <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6329	6426	
==>$failLabel) = @_;
    my $fail = $self->output_label_use($failLabel);
    return ($self->dbprint(" <==
4	/Users/nnunley/parrot/config/auto/gcc.pm	261	355	
==>ge auto::gcc;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Ste <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	40954	41073	
==>LinkSection->new(
          ['', {}, @ell_content]
        );
        DEBUG > 3 and print "L-to content: ", pretty($ell- <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2863	2956	
==>map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUOTE" <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3172	3265	
==>map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUOTE" <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2967	3060	
==>map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUOTE" <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7891	8067	
==>r )
                            : @sempar ? $sempar[0] : undef;

            splice(@$stack,-$len,$len);

                $$check eq 'ACCEPT'
            and do {

#DBG> <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7536	7704	
==>r )
                            : @sempar ? $sempar[0] : undef;

            splice(@$stack,-$len,$len);

                $$check eq 'ACCEPT'
            and do {

#DBG> <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28432	28534	
==>{>>Matched terminal<< (return value: [}
						. $& . q{])},
						  Parse::RecDescent::_tracefirst($tex <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30508	30610	
==>{>>Matched terminal<< (return value: [}
						. $& . q{])},
						  Parse::RecDescent::_tracefirst($tex <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	6922	7036	
==>pmc")
          or die "pmc2c code generation failed ($?)\n";
    }
}

sub compile {
    my ($src_stem, $dest_stem) <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	7133	7247	
==>pmc")
          or die "pmc2c code generation failed ($?)\n";
    }
}

sub compile {
    my ($src_stem, $dest_stem) <==
4	/Users/nnunley/parrot/tools/dev/nm.pl	1690	1787	
==>lobal; lowercase indicates that
it is local.

=item C<--type=bsd>

=item C<-B>

The same as C<--t> <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	101	192	
==>rated automatically by '$0'

END_OF_HEADER

my %macros;
$macros{DOMAIN_ERROR} = <<'END_OF_PI <==
4	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	1402	1518	
==>ar         the argument passes a variable value into the op
    label         an in argument containing a branch offs <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	4677	4776	
==>, given as --destination=DIRECTORY
    shift(@pmcs) =~ /--destination=(.*)/
      or die "copy comma <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	4781	4880	
==>, given as --destination=DIRECTORY
    shift(@pmcs) =~ /--destination=(.*)/
      or die "copy comma <==
4	/Users/nnunley/parrot/languages/regex/regex.pl	1781	1875	
==>};
my $trees = Regex::expr_to_tree($expr, $ctx, %options);

if ($operation eq 'unparse' || $ope <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1175	1271	
==>d not UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLO <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1203	1299	
==>d not UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLO <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	875	971	
==>d not UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLO <==
4	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	1117	1198	
==>thod_re = make_re('^\s*('.$type_re.')\s+('.$ident_re.')\s*\(('.$arglist_re.')\)\s* <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	10009	10137	
==>e:  # arcsinh(x) = ln(x+sqrt(x*x+1))
    $N1 = op2 * op2
    inc $N1
    $N1 = sqrt $N1
    $N1 += op2
    $N1 = ln $N1
    .retu <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28665	28768	
==>. ($self->{"lookahead"} ? '$text = $_savetext;' : '' ) .'
';

	return $code;
}

1;

package Parse::RecDe <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30743	30846	
==>. ($self->{"lookahead"} ? '$text = $_savetext;' : '' ) .'
';

	return $code;
}

1;

package Parse::RecDe <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32946	33049	
==>. ($self->{"lookahead"} ? '$text = $_savetext;' : '' ) .'
';

	return $code;
}

1;

package Parse::RecDe <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691540	691886	
==>",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 777,
                  "ARGS" => [
                              "p",
                              " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23036	23225	
==>opcode_t *)p->vtable->invoke(interpreter, p, dest);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Pa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25475	25664	
==>opcode_t *)p->vtable->invoke(interpreter, p, dest);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Pa <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77320	77411	
==>context  = $_[1]||$lastcontext;
	$tracerulename = $_[2]||$lastrulename;
	if ($tracerulename) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712552	712642	
==>o, s);\n  if (string_str_index(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == - <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713659	713749	
==>o, s);\n  if (string_str_index(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == - <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720019	720109	
==>o, s);\n  if (string_str_index(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == - <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721219	721309	
==>o, s);\n  if (string_str_index(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == - <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	41975	42097	
==>ty;
	}
      }
      if ($moved) {
	$self->_add_inst ('', 'set',[$empty,"P$count"]);
	$empty = $moved;
      }
      $self- <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2385	2497	
==>unless $right_sym;
    $right_type = $right_sym->type;
  }
  else {
    $right_type = $right->type;
  }

#  $self <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2343	2454	
==>unless $right_sym;
    $right_type = $right_sym->type;
  }
  else {
    $right_type = $right->type;
  }

  $self <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2265	2376	
==>unless $right_sym;
    $right_type = $right_sym->type;
  }
  else {
    $right_type = $right->type;
  }

  $self <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11027	11220	
==>R';
                } elsif ($c =~ /\s/) {
                    # Skip whitespace, unless backslashed
                } else {
                    push @tokens, $c;
                    push @type <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	6465	6570	
==>->tagname,
        " (", map("<$_> ", %{$token->attr_hash}), ")\n";

      if( ($tagname = $token->tagname <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054399	1054496	
==>.\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to get null global.\");\n\n    next = {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055526	1055623	
==>.\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to get null global.\");\n\n    next = {{ <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6720	6840	
==>ug & 0x10
#DBG>				and	$dbgerror
#DBG>				and	$$errstatus == 0
#DBG>				and	do {
#DBG>					print STDERR "**End of Err <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8593	8709	
==>ug & 0x10
#DBG>			and	$dbgerror
#DBG>			and	$$errstatus == 0
#DBG>			and	do {
#DBG>				print STDERR "**End of Err <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6407	6523	
==>ug & 0x10
#DBG>				and	$dbgerror
#DBG>				and	$$errstatus == 0
#DBG>				and	do {
#DBG>					print STDERR "**End of Err <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8205	8317	
==>ug & 0x10
#DBG>			and	$dbgerror
#DBG>			and	$$errstatus == 0
#DBG>			and	do {
#DBG>				print STDERR "**End of Err <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892074	892420	
==>S" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1008 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576592	576879	
==>ter, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577604	577891	
==>ter, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
4	/Users/nnunley/parrot/config/auto/signal.pm	1266	1372	
==>" (sigaction)" if $verbose;
    }
    cc_clean();

    cc_gen('config/auto/signal/test_itimer.in');
    eva <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467060	467396	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467930	468266	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468801	469137	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469675	470011	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279712	279974	
==>p.ops\"\n  {{\@1}} = ({{\@2}} < {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	280567	280829	
==>p.ops\"\n  {{\@1}} = ({{\@2}} < {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	281422	281684	
==>p.ops\"\n  {{\@1}} = ({{\@2}} < {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	9967	10082	
==>];
    if ($v->[2] ne 'P') {
	if ($v->[2] eq 'c') {
	    if ($v->[1] =~ /<code> (lambda_\d+)/) {
		$n = $1;
		return <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473747	474101	
==>,
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 543,
                  "ARGS" => [
                              "n",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 403 \"src/o <==
4	/Users/nnunley/parrot/config/auto/gdbm.pm	973	1077	
==>ation. TODO: Need a more generalized way for finding
    # where Fink lives.
    if ($osname =~ /darwin/) <==
4	/Users/nnunley/parrot/config/auto/gmp.pm	1172	1276	
==>ation. TODO: Need a more generalized way for finding
    # where Fink lives.
    if ($osname =~ /darwin/) <==
4	/Users/nnunley/parrot/config/auto/readline.pm	1247	1351	
==>ation. TODO: Need a more generalized way for finding
    # where Fink lives.
    if ($osname =~ /darwin/) <==
4	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	569	672	
==>ist of all the tests in the harness.

my $teetcl = 't_tcl';

my @b= map {s/.*\/(.*)\.t/$1/; $_} (glob (" <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2957	3056	
==>element({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
    $handler->start_eleme <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3631	3730	
==>element({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
    $handler->start_eleme <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3721	3820	
==>element({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
    $handler->start_eleme <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29149	29293	
==>ONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 7 <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41255	41399	
==>ONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 7 <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44401	44545	
==>ONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 7 <==
4	/Users/nnunley/parrot/config/init/hints/mswin32.pm	462	559	
==>rk early here, because we need the result now.
    $cc = $conf->options->get('cc') if defined $con <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4828	4929	
==>ident->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();

    $compiler->emit("  $pmc_reg = new <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2891	2992	
==>ident->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();

    $compiler->emit("  $pmc_reg = new <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1194	1294	
==>ident->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();
    $compiler->emit("  $pmc_reg = new <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1188	1288	
==>ident->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();
    $compiler->emit("  $pmc_reg = new <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072490	1072600	
==>* pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wron <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074675	1074785	
==>* pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wron <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076860	1076970	
==>* pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wron <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079046	1079156	
==>* pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wron <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	1677	1801	
==>]) {
        next unless defined $_;

        if (/DO NOT EDIT/) {
            print "Skipping $file (automatically generated <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8503	8608	
==>on is a register then it is up to the SRM to do the store.
	# Otherwise, there's nothing to do here.
	if ( <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6323	6428	
==>on is a register then it is up to the SRM to do the store.
	# Otherwise, there's nothing to do here.
	if ( <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5238	5343	
==>on is a register then it is up to the SRM to do the store.
	# Otherwise, there's nothing to do here.
	if ( <==
4	/Users/nnunley/parrot/tools/dev/install_files.pl	6104	6218	
==>) {
	print "$src -> $dest\n";
	next;
    }
    else {
	next unless -e $src;
	copy($src, $dest) or die "copy $src to <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284816	284928	
==>"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285693	285805	
==>"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286570	286682	
==>"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451116	451359	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451854	452097	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452593	452836	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453331	453574	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1032	1181	
==>,
                                           STDOUT => $out_f, STDERR => $out_f );
    unless ($pass) {
        my $file = Parrot::Test::slurp_file($o <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1073	1222	
==>,
                                           STDOUT => $out_f, STDERR => $out_f );
    unless ($pass) {
        my $file = Parrot::Test::slurp_file($o <==
4	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2124	2238	
==>,
					   STDOUT => $out_f, STDERR => $out_f);
  
    unless ($pass) {
      my $file = Parrot::Test::slurp_file($o <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	78180	78290	
==>ional <error> always causes the
		       production containing it to immediately fail.
		       \u$_[0] that fo <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72553	72645	
==>/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  funcpt <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74155	74247	
==>/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  funcpt <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75757	75849	
==>/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  funcpt <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77360	77452	
==>/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  funcpt <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	1092	1212	
==>P5'],
  ['',             'eq', 'I0', '.Undef', 'write_KET'],
  ['',             'ne', 'I0', '.Array', 'write_DOT'],
  ['' <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	30864	30964	
==>eturn $return;
}

sub _op_map {
}

sub _op_for_each {
}

sub _op_force {
}

sub _op_call_with_current <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6518	6612	
==>de{$seg}->{code}}, "$labels{$syms[CURR]}:   # For user branch ($syms[CURR])\n";
		debug() if $d <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8798	8892	
==>de{$seg}->{code}}, "$labels{$syms[CURR]}:   # For user branch ($syms[CURR])\n";
		debug() if $d <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710831	711036	
==>});\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711665	711870	
==>});\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6986	7105	
==>y($target);
    $pattern = _parrot_stringify($pattern);
    return qq(
        .sub _PGE_Test
            .local pmc glo <==
4	/Users/nnunley/parrot/config/inter/pmc.pm	909	1013	
==>s;
    s/\{.*$//s;

    return $PMC_PARENTS{$pmc} = lc($1) if m/extends\s+(\w+)/;
    return $PMC_PARENTS <==
4	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	413	564	
==>anguage_test_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    output_isnt       => 'isnt_eq'
                        );

f <==
4	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	752	903	
==>anguage_test_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    output_isnt       => 'isnt_eq'
                        );

f <==
4	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	327	478	
==>anguage_test_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    output_isnt       => 'isnt_eq'
                        );

f <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	501	598	
==>t;
use warnings;

use base qw( Parrot::Docs::Section );

use Parrot::Distribution;

use Parrot::Do <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	16231	16344	
==>rser);
 
 sub run {
   my $self = shift;
  Token:
   while(my $token = $self->get_token) {
     ...process each to <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	47343	47450	
==>ub _out {
  # For use in testing: Class->_out($source)
  #  returns the transformation of $source
  
  my $c <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6477	6567	
==>_new_pair;
  $self->_add_inst('', 'set', [$pair.'[0]',$item]);
  $self->_add_inst('', 'set' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967356	967749	
==>"",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1088,
                  "ARGS" => [
                              "i",
                              "ic", <==
4	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1104	1201	
==>ad2 Methods

=head3 Constructors

=over 4

=item * C<new()>

Basic constructor.

Accepts no argume <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	641	738	
==>ad2 Methods

=head3 Constructors

=over 4

=item * C<new()>

Basic constructor.

Accepts no argume <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30013	30106	
==>::Const;
use base 'Parrot::Pmc2c::Standard';
import Parrot::Pmc2c qw( gen_ret );

=item C<body <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926293	926428	
==>k;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927763	927898	
==>k;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929233	929368	
==>k;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930704	930839	
==>k;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549924	550021	
==>object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551225	551322	
==>object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553787	553884	
==>object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555184	555281	
==>object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	639391	639492	
==>) {\n      case PARROT_ARG_IC:\n\t  typ = arg_op[2];\n\t  if (typ <= 1 || typ >= interpreter->n_vtable <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7236	7330	
==>ne, "Improper indenting for \"$_\"\n(should be \"#$indent$2\" because it is inside of " . (join <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7543	7637	
==>ne, "Improper indenting for \"$_\"\n(should be \"#$indent$2\" because it is inside of " . (join <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7901	7995	
==>ne, "Improper indenting for \"$_\"\n(should be \"#$indent$2\" because it is inside of " . (join <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067058	1067166	
==>}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068244	1068352	
==>}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069430	1069538	
==>}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070617	1070725	
==>}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953612	953900	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "encoding",
                  "FLAGS" => ":base_core",
                  " <==
4	/Users/nnunley/parrot/tools/build/ops2c.pl	260	362	
==>elp] [--no-lines] [--dynamic] [--core | input.ops [input2.ops ...]]
       trans := C | CGoto | CGP | C <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920993	921084	
==>6 \"src/ops/string.ops\"\n    {{\@1}}=Parrot_psprintf(interpreter, {{\@2}}, {{\@3}});\n    { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921886	921977	
==>6 \"src/ops/string.ops\"\n    {{\@1}}=Parrot_psprintf(interpreter, {{\@2}}, {{\@3}});\n    { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159277	159450	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 176 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160174	160347	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 176 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161071	161244	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 176 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}} <==
4	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4883	5009	
==>$2]/m;

        $tests{$name} = [$expl, $body, $out];
    }

    return %tests;
}

##
## $string = format_tests(%tests)
##
## C <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	26898	27026	
==>ent =~ m/^\s*((?:\d*\.)?\d+)\s*$/s) {
        no integer;
        $para->[1]{'indent'} = $1;
        if($1 == 0) {
          $sel <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552888	553000	
==>mc);\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556883	556995	
==>mc);\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560906	561018	
==>mc);\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332600	332700	
==>s_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all results from string_to_cstring() ne <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333878	333978	
==>s_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all results from string_to_cstring() ne <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335156	335256	
==>s_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all results from string_to_cstring() ne <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336435	336535	
==>s_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all results from string_to_cstring() ne <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2302	2403	
==>)>

Returns the C code for the specified op argument type (see
C<Parrot::OpTrans>) and value. C<$op> i <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3394	3495	
==>)>

Returns the C code for the specified op argument type (see
C<Parrot::OpTrans>) and value. C<$op> i <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3538	3639	
==>)>

Returns the C code for the specified op argument type (see
C<Parrot::OpTrans>) and value. C<$op> i <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3193	3294	
==>)>

Returns the C code for the specified op argument type (see
C<Parrot::OpTrans>) and value. C<$op> i <==
4	/Users/nnunley/parrot/config/auto/perldoc.pm	1065	1247	
==>lt('yes');
            } else {
                $a = undef;
            }
        }
        unless (defined $a && $a =~ m/perldoc/) {
            $version = 0;
            $self->set_ <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	6590	6706	
==>> $target_mod;
    }

    return 0;
}

sub generate_dump {
    my ($pmc) = @_;

    if (needs_build("$pmc.dump", "$pm <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	6801	6917	
==>> $target_mod;
    }

    return 0;
}

sub generate_dump {
    my ($pmc) = @_;

    if (needs_build("$pmc.dump", "$pm <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	13344	13440	
==>ns.

The `:depends("string")` parameter to most of the functions is a way
to provide a comment th <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516732	517028	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517471	517767	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518209	518505	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518948	519244	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763225	763481	
==>UM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764078	764334	
==>UM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764931	765187	
==>UM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765785	766041	
==>UM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	6943	7093	
==>ad'),
            $self->c_pair_item('', 'tsq'),
        ),
        $self->new_group(
            'Exceptions',
            '',
            $self->c_pa <==
4	/Users/nnunley/parrot/tools/build/ops2pm.pl	880	977	
==>rot::OpLib::core> module for a set of ops files that
you do not later turn into C code (see F<tool <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747277	747368	
==>/ops/set.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748062	748153	
==>/ops/set.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753571	753662	
==>/ops/set.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754359	754450	
==>/ops/set.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	866593	866950	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867558	867915	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868524	868881	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869490	869847	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067063	1067194	
==>0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = te <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068249	1068380	
==>0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = te <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069435	1069566	
==>0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = te <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070622	1070753	
==>0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = te <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099118	1099252	
==>.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100316	1100450	
==>.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101514	1101648	
==>.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102713	1102847	
==>.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332683	332786	
==>ng_to_cstring() need freeing\n     but this generates ugly warnings WRT discarding the const\n     quali <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333961	334064	
==>ng_to_cstring() need freeing\n     but this generates ugly warnings WRT discarding the const\n     quali <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335239	335342	
==>ng_to_cstring() need freeing\n     but this generates ugly warnings WRT discarding the const\n     quali <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336518	336621	
==>ng_to_cstring() need freeing\n     but this generates ugly warnings WRT discarding the const\n     quali <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25322	25432	
==>};\n  interpreter->current_cont = CONTEXT(interpreter->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->curre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557895	558005	
==>};\n  interpreter->current_cont = CONTEXT(interpreter->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->curre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559279	559389	
==>};\n  interpreter->current_cont = CONTEXT(interpreter->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->curre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560651	560761	
==>};\n  interpreter->current_cont = CONTEXT(interpreter->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->curre <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22040	22135	
==>ct::Expression::Value->new($block, $self->require_value);
        $op    = $self->require_infix_ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22973	23068	
==>ct::Expression::Value->new($block, $self->require_value);
        $op    = $self->require_infix_ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24619	24714	
==>ct::Expression::Value->new($block, $self->require_value);
        $op    = $self->require_infix_ <==
4	/Users/nnunley/parrot/tools/dev/nm.pl	3079	3168	
==>(Dd)
--uninit|-u	uninitialised data symbols (Bb)
--local|-l	local symbols (tdbruf)
--globa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126519	126619	
==>ne 271 \"src/ops/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127654	127754	
==>ne 271 \"src/ops/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128789	128889	
==>ne 271 \"src/ops/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{ <==
4	/Users/nnunley/parrot/lib/Test/More.pm	32293	32385	
==>matter, duplicate elements do.

Test::Deep contains much better set comparison functions.

=c <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12681	12815	
==>0
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29 <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16674	16808	
==>0
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29 <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20328	20462	
==>0
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29 <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25920	26054	
==>0
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084907	1085262	
==>=> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085960	1086315	
==>=> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087013	1087368	
==>=> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIR <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	17105	17242	
==>_no);

            my $opt = $code_f =~ m!opt(.)! ? "-O$1" : "-O1";
            my $args = $ENV{TEST_PROG_ARGS} || '';
            $args . <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	446122	446416	
==>"ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 510,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 160 \"s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23085	23304	
==>);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25524	25743	
==>);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	37550	37769	
==>);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS <==
4	/Users/nnunley/parrot/config/gen/icu.pm	2562	2659	
==>t "icushared='$icushared'\n" if defined $icushared;
        print "headers='$icuheaders'\n"  if de <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	767	862	
==>d, $left, $op, $right) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Con <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	795	890	
==>d, $left, $op, $right) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Con <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	479	574	
==>d, $left, $op, $right) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Con <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926550	926712	
==>>bufused;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928020	928182	
==>>bufused;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929490	929652	
==>>bufused;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930961	931123	
==>>bufused;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90227	90471	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91080	91324	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91934	92178	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	6615	6716	
==>empty string then this will return all
the files with no suffix.

=cut

sub files_with_suffix
{
    my <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925530	925826	
==>inginfo",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926999	927295	
==>inginfo",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928469	928765	
==>inginfo",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929939	930235	
==>inginfo",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	691	802	
==>n::Value::Identifier');

  my $self = bless {
    BLOCK => $block,
    IDENT => $ident
  }, $class;

  $block->p <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	691	802	
==>n::Value::Identifier');

  my $self = bless {
    BLOCK => $block,
    IDENT => $ident
  }, $class;

  $block->p <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1808	1897	
==>tiously:
    $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijkl <==
4	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1911	2000	
==>tiously:
    $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijkl <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	5793	5929	
==>elative_path($path);
    
            print {$self->{'output_fh'}} 
                $self->{'Tagmap'}{$tagname} . 
                $self- <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16269	16371	
==>ntifier->new($block, $token);

      $self->require_assign;

      my $left  = Jako::Construct::Express <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17040	17142	
==>ntifier->new($block, $token);

      $self->require_assign;

      my $left  = Jako::Construct::Express <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17845	17947	
==>ntifier->new($block, $token);

      $self->require_assign;

      my $left  = Jako::Construct::Express <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19911	20032	
==>des};
    delete $call->{result};
    push @{$opcodes}, $call;
    return $opcodes;
}

sub BuildUnop {
    my ( $pa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459892	459990	
==>NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4}};\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460880	460978	
==>NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4}};\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461868	461966	
==>NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4}};\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	28582	28818	
==>}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS",
                  "NAME" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	37563	37799	
==>}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS",
                  "NAME" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	624068	624304	
==>}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS",
                  "NAME" => <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1538	1649	
==>{
  my $class = shift;

  my $root = Jako::Construct::Block::File->new(
    undef,  # No parent
    'file', # Fi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849946	850270	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850833	851157	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851720	852044	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "F <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2976	3071	
==>address)>

CPrederef is funky in that expr OFFSET(n) uses a pointer to the
original bytecode, bu <==
4	/Users/nnunley/parrot/config/auto/format.pm	1339	1468	
==>use double.";
        $nvsize   = $ldsize;
        $nvformat = "%Lf";
    } else {
        die "Configure.pl:  Can't find a printf <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31289	31381	
==>->implements_vtable($meth);
}

=item C<body($method, $line, $out_name)>

Returns the C code f <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35920	36012	
==>->implements_vtable($meth);
}

=item C<body($method, $line, $out_name)>

Returns the C code f <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39909	40001	
==>->implements_vtable($meth);
}

=item C<body($method, $line, $out_name)>

Returns the C code f <==
4	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8190	8276	
==>hristian Lackas <delta@clackas.de>.

=cut

__DATA__
FF,$a,$b,$c,$d,$_[4],7,0xd76aa478,/ <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2314	2442	
==>e.
        $liblist = join( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ /gcc/i) {
            $liblist =~ s/gdbm\.lib <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2606	2734	
==>e.
        $liblist = join( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ /gcc/i) {
            $liblist =~ s/gdbm\.lib <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2401	2529	
==>e.
        $liblist = join( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ /gcc/i) {
            $liblist =~ s/gdbm\.lib <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	1297	1413	
==>{args}};
	    } else {
		push @pieces, $_;
	    }
	}
	return rop('seq', \@pieces);
    } elsif ($type eq 'alternate') <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960356	960601	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961317	961562	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962279	962524	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963241	963486	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	652490	652754	
==>interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060182	1060446	
==>interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1027316	1027579	
==>interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	26842	27104	
==>interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9516	9619	
==>s test passed');
  flunk('This test failed');

  skip('skip this test for now');

  flunk('this fails, b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135472	135559	
==>src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_xor(interpreter, {{\@2}}, {{\@3}}, NULL);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136366	136453	
==>src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_xor(interpreter, {{\@2}}, {{\@3}}, NULL);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137260	137347	
==>src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_xor(interpreter, {{\@2}}, {{\@3}}, NULL);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89285	89539	
==>ops\"\n  {{\@1}} &= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90023	90277	
==>ops\"\n  {{\@1}} &= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	14022	14127	
==>);

Returns the class structure from I<$file> for a .dump file.

=cut

sub dump_1_pmc {
    my $file = shi <==
4	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	5007	5111	
==>\"___BUILTIN_CODE___\"\n";
        $pir .= $_->{'body'};
        $pir .= "___BUILTIN_CODE___\ngoto END\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909324	909418	
==>tring.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910221	910315	
==>tring.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911118	911212	
==>tring.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912016	912110	
==>tring.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n" <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8958	9132	
==>G>		and	print STDERR "Forced Error recovery.\n";

            $$check='';

        };

        #Error
            $$errstatus
        or   do {

            $$errsta <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8555	8719	
==>G>		and	print STDERR "Forced Error recovery.\n";

            $$check='';

        };

        #Error
            $$errstatus
        or   do {

            $$errsta <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1391	1498	
==>token->is_end) {
      ...access $token->tagname...
    
    }
  }

(Also see L<Pod::Simple::PullParser>)

= <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	16547	16641	
==>{
		push @{$self->{items}},
			Parse::RecDescent::Operator->new(
				$op->{type}, $minrep, $max <==
4	/Users/nnunley/parrot/config/auto/gdbm.pm	633	744	
==>conf->options->get('verbose');

    my $cc        = $conf->data->get('cc');
    my $libs      = $conf->data->get <==
4	/Users/nnunley/parrot/config/auto/gmp.pm	574	685	
==>conf->options->get('verbose');

    my $cc        = $conf->data->get('cc');
    my $libs      = $conf->data->get <==
4	/Users/nnunley/parrot/config/auto/readline.pm	586	697	
==>conf->options->get('verbose');

    my $cc        = $conf->data->get('cc');
    my $libs      = $conf->data->get <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	17410	17505	
==>}->{code}}, <<LOOPUP;
	goto WHILE_$_
AFTERWHILE_$_:
LOOPUP
}
my $docounter=0;
sub parse_do {
	$d <==
4	/Users/nnunley/parrot/lib/Test/More.pm	26079	26203	
==>g(_format_stack(@Data_Stack));
        }
    }

    return $ok;
}

sub _format_stack {
    my(@Stack) = @_;

    my $var = '$ <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	24941	25042	
==>];				# REM, PRE, BITS
	};

	bless $closure, 'Text::Balanced::Extractor';
}

package Text::Balanced::E <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	344	443	
==>tement::Decrement;

use Carp;

use base qw(Jako::Construct::Statement);

sub new
{
  my $class = shi <==
4	/Users/nnunley/parrot/lib/Parrot/Op.pm	5242	5334	
==>ts/gets a string containing one or more C<op_jump_t> values joined with
C<|> (see F<include/p <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	20548	20650	
==>('multi_match' => [ $_[2]->{min}, $_[2]->{max}, FALSE, $_[1] ]); }
	],
	[#Rule 21
		 '@1-1', 0,
sub
#li <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4052	4152	
==>ke {
    my ($target, $pattern) = (shift, shift);

    unshift @_ => Parrot::Test::PGE::_generate_glo <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017986	1018076	
==>n  char resultbuffer[26];\n  Parrot_gmtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffe <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018911	1019001	
==>n  char resultbuffer[26];\n  Parrot_gmtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffe <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072584	1072690	
==>sign (can be wrong because we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no corr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074769	1074875	
==>sign (can be wrong because we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no corr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076954	1077060	
==>sign (can be wrong because we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no corr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079140	1079246	
==>sign (can be wrong because we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no corr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122141	122414	
==>{{\@1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123053	123326	
==>{{\@1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7188	7291	
==>g) ? $reg : 'pos');
    return $self->output_pushint($reg);
}

sub output_pushint {
    my ($self, $reg, <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6830	6933	
==>g) ? $reg : 'pos');
    return $self->output_pushint($reg);
}

sub output_pushint {
    my ($self, $reg, <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	9724	9843	
==>ee = 0 if $type eq 'scan';

        # Default for everything else is to pass the same guarantee
        # and follow_min <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	4735	4843	
==>destination=(.*)/
      or die "copy command requires destination";
    my $dest = $1;

    my ($group_files, <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	4839	4947	
==>destination=(.*)/
      or die "copy command requires destination";
    my $dest = $1;

    my ($group_files, <==
4	/Users/nnunley/parrot/config/auto/cgoto.pm	1378	1464	
==>ore_ops_cg.c 

$(OPS_DIR)/core_ops_cg.c : $(OPS_FILES) $(BUILD_TOOLS_DIR)/ops2c.pl lib/ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018119	1018373	
==>preter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019044	1019298	
==>preter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019974	1020228	
==>preter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020905	1021159	
==>preter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2797	2895	
==>t stack operation (op class instructions) hooks.
sub pre_op($$) {
	my $self = shift;
	my ($pops, $p <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1719	1817	
==>t stack operation (op class instructions) hooks.
sub pre_op($$) {
	my $self = shift;
	my ($pops, $p <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	908	1006	
==>t stack operation (op class instructions) hooks.
sub pre_op($$) {
	my $self = shift;
	my ($pops, $p <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	8291	8430	
==>BranchOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  goto $op->{result}->{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949957	950255	
==>,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950916	951214	
==>,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951876	952174	
==>,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952836	953134	
==>,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
4	/Users/nnunley/parrot/tools/build/ops2c.pl	312	421	
==>nput2.ops ...]]
       trans := C | CGoto | CGP | CSwitch | CPrederef

For example:

    % perl tools/build/op <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	30573	30674	
==>kage = $Test->caller;
    my($pack, $file, $line) = $Test->caller;
    my($pack, $file, $line) = $Test <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2560	2659	
==>@{[$op->full_name]}"
        unless exists $arg_maps{$type};

    return sprintf($arg_maps{$type}, $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4426	4525	
==>@{[$op->full_name]}"
        unless exists $arg_maps{$type};

    return sprintf($arg_maps{$type}, $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575865	576201	
==>> 0,
                  "NAME" => "subclass",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 6 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576876	577212	
==>> 0,
                  "NAME" => "subclass",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 6 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595625	595961	
==>> 0,
                  "NAME" => "subclass",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 6 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596517	596853	
==>> 0,
                  "NAME" => "subclass",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 6 <==
4	/Users/nnunley/parrot/lib/Test/More.pm	2706	2802	
==>.  While you can do almost anything with a simple
C<ok()> function, it doesn't provide good diagn <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	13497	13591	
==>selectcounter=0;
sub parse_select {
	die "Expected 'case'" if ($syms[NEXT] ne "case");
	feedme( <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2183	2277	
==>Undefined identifier '%s'.", $args[$i]->value) unless $arg_sym;
      $actual_arg_type = $arg_s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1883	1977	
==>Undefined identifier '%s'.", $args[$i]->value) unless $arg_sym;
      $actual_arg_type = $arg_s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099984	1100253	
==>" => "inline",
                  "CODE" => 1219,
                  "ARGS" => [
                              "n",
                              "nc",
                              "i"
                            ],
                  "BODY" => "#line 296 \"src/ops/experi <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2396	2495	
==>ay)
	P0= P10[0]
	P1= P0["$stype"]
	P0= P1["$var"]	# Pull the original
	P2= P10[I25]
	P3= P2["$stype" <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2623	2722	
==>ay)
	P0= P10[0]
	P1= P0["$stype"]
	P0= P1["$var"]	# Pull the original
	P2= P10[I25]
	P3= P2["$stype" <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	33293	33423	
==>$ww = temp('I');
	   print <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v- <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	34042	34172	
==>$ww = temp('I');
	   print <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v- <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	34966	35096	
==>$ww = temp('I');
	   print <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v- <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	25053	25165	
==>n opcode
	$t = $func $args   $cmt
EOC
    }
    elsif ($name =~/^obj (\S+) attr (\w+)/) {  # convert to meth call <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553259	553536	
==>=> "callmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functio <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554655	554932	
==>=> "callmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functio <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556052	556329	
==>=> "callmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functio <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	14729	14850	
==>dy, '{');
        die "Empty MMD body near '$total_body'"
            if (!$body_part);
        $body_part = substr($body_ <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31424	31520	
==>cumulate
the number of lines, C<$out_name> is the name of the output file we are
generating.

Ove <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33037	33133	
==>cumulate
the number of lines, C<$out_name> is the name of the output file we are
generating.

Ove <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34725	34821	
==>cumulate
the number of lines, C<$out_name> is the name of the output file we are
generating.

Ove <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40044	40140	
==>cumulate
the number of lines, C<$out_name> is the name of the output file we are
generating.

Ove <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836626	836885	
==>2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837358	837617	
==>2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838092	838351	
==>2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838824	839083	
==>2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => " <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	11023	11131	
==>h @{$extra_preamble_ref},
             "t_$temp_num = GET_NCI_P($reg_num);";
        return "(long*)&PMC_int_ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	1604	1702	
==>d not implemented for current stack to register mapper\n";
}

# Pre and post store operation hooks. <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359281	359378	
==>DY" => "#line 250 \"src/ops/io.ops\"\n  STRING * const s = {{\@1}};\n  if (s && string_length(inte <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360029	360126	
==>DY" => "#line 250 \"src/ops/io.ops\"\n  STRING * const s = {{\@1}};\n  if (s && string_length(inte <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	746	841	
==>keted';

=item C<does_write($method, $section)>

Returns whether a method writes.

=cut

sub doe <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552881	552971	
==>ethod_pmc);\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556876	556966	
==>ethod_pmc);\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560899	560989	
==>ethod_pmc);\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest} <==
4	/Users/nnunley/parrot/config/auto/env.pm	443	554	
==>ing if your C library has setenv / unsetenv';
@args        = qw(verbose);

sub runstep
{
    my ($self, $conf) = <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	1846	1957	
==>$type);
    push @{ $op->{rxlocals} }, $var;
    return $var;
}

sub op_save_rxlocals {
    my ($self, $op) = @_ <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	7320	7422	
==>ltin!"
     if exists $Known_directives{$d};
    delete $this->{'accept_directives'}{$d};
    DEBUG > 2 <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	314	410	
==>te that the actual configuration step itself is NOT an instance of this
class, rather it is defin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105694	1105978	
==>{
                  "JUMP" => 0,
                  "NAME" => "getclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106669	1106953	
==>{
                  "JUMP" => 0,
                  "NAME" => "getclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	7175	7314	
==>type => $entry->{type},
		parameters => $entry->{parameters},
                loc => $entry->{loc}
	    };
	}
        else {
            # i <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	4426	4526	
==>y a snapshot of what's in use.

=item C<dynpmc>

The class is a dynamic class. These have a special C <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066921	1067028	
==>erimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068107	1068214	
==>erimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069293	1069400	
==>erimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070480	1070587	
==>erimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2 <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	7850	7989	
==>}->{symbol} goto $op->{result}->{symbol}\n";
        }
        else {
            print {$FH}
                "  unless $op->{arg1}->{sy <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7099	7212	
==>n @ops;
}

sub output_pushindex {
    my ($self, $reg) = @_;
    $reg = value(defined($reg) ? $reg : 'pos');
    r <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6741	6854	
==>n @ops;
}

sub output_pushindex {
    my ($self, $reg) = @_;
    $reg = value(defined($reg) ? $reg : 'pos');
    r <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19820	19918	
==>ogenerating tree-building action in rule
					   \"$rule->{name}\"")
		and
		Parse::RecDescent::_hi <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2413	2510	
==>g>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

Thi <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1683	1780	
==>g>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

Thi <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2850	2947	
==>g>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

Thi <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1970	2067	
==>g>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

Thi <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2138	2242	
==>, \%params, \@_, $self );

	if($$self{DEBUG}) {
		_DBLoad();
		$retval = eval '$self->_DBParse()';#Do <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2059	2159	
==>, \%params, \@_, $self );

	if($$self{DEBUG}) {
		_DBLoad();
		$retval = eval '$self->_DBParse()';#Do <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122073	122167	
==>integral to the equivalent unsigned.\n   */\n  LVALUE_CAST(UINTVAL, {{\@1}}) >>= {{\@2}};\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122985	123079	
==>integral to the equivalent unsigned.\n   */\n  LVALUE_CAST(UINTVAL, {{\@1}}) >>= {{\@2}};\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028469	1028719	
==>P_ENEXT",
                  "NAME" => "sleep",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029320	1029570	
==>P_ENEXT",
                  "NAME" => "sleep",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030161	1030411	
==>P_ENEXT",
                  "NAME" => "sleep",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
4	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	4226	4334	
==>se \"$filename\": $!\n";
}

sub clean_obsolete_smokes {
  my $category = sub {
    return join "-",
      (ma <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	62256	62351	
==>r C<y>
without a suitable block after it.

=item C<Did not find leading dereferencer>

C<extract <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552872	552961	
==>preter, method_pmc);\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556867	556956	
==>preter, method_pmc);\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560890	560979	
==>preter, method_pmc);\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511058	511348	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511796	512086	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	36281	36419	
==>r?'            => \&_op_char_p,
  'char=?'           => \&_op_char_eq_p,
  'char<?'           => \&_op_char_lt_p,
  'char>?'           => \ <==
4	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	107	206	
==>:31.111564Z bernhard  $

=head1 NAME

Parrot::IO::File - File

=head1 SYNOPSIS

    use Parrot::IO:: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39053	39305	
==>erpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39918	40170	
==>erpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40765	41017	
==>erpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41613	41865	
==>erpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593363	593784	
==>=> [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 673,
                  "ARGS" => [
                              "p",
                              "k",
                              "kc"
                            ],
                  "BODY" => "#l <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	20419	20525	
==>", pretty($treelet->[$i]), " for traversal.\n";
        push @stack, $treelet->[$i];

        if($treelet-> <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	14371	14471	
==>"($op1->[0] $sym $op2->[0])", "RESULT", "\$$optype$retcount" ];
			$retcount++;
		}
	}

	if (@work) { <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2704	2800	
==>uence
PRINT "1 in module-level code"
GOSUB Sub1
PRINT "ERR this line in main routine should be sk <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16671	16767	
==>uence
PRINT "1 in module-level code"
GOSUB Sub1
PRINT "ERR this line in main routine should be sk <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072570	1072674	
==>* correct the sign (can be wrong because we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074755	1074859	
==>* correct the sign (can be wrong because we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076940	1077044	
==>* correct the sign (can be wrong because we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079126	1079230	
==>* correct the sign (can be wrong because we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099262	1099391	
==>tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n\tres = 1.0/res;\n    }\n    {{\@1}} = res <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100460	1100589	
==>tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n\tres = 1.0/res;\n    }\n    {{\@1}} = res <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101658	1101787	
==>tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n\tres = 1.0/res;\n    }\n    {{\@1}} = res <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102857	1102986	
==>tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n\tres = 1.0/res;\n    }\n    {{\@1}} = res <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477184	477459	
==>1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fd <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478080	478355	
==>1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fd <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478971	479246	
==>1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fd <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479863	480138	
==>1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fd <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3323	3417	
==>o lazy move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_t <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5085	5179	
==>o lazy move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_t <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7997	8091	
==>o lazy move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_t <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8854	8948	
==>o lazy move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381183	381280	
==>set({{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382195	382292	
==>set({{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383207	383304	
==>set({{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384220	384317	
==>set({{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (3 <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	1291	1499	
==>a;
            }
            elsif( $type eq 'ARRAY' ) {
                @{$_[0]} = @$data;
            }
            elsif( $type eq 'SCALAR' ) {
                ${$_[0]} = $$data;
            }
            e <==
4	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1447	1556	
==>to_language = '.';
        } elsif ($dir_count >2) {
          $path_to_language = File::Spec->join(File::Spec <==
4	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1932	2041	
==>to_language = '.';
        } elsif ($dir_count >2) {
          $path_to_language = File::Spec->join(File::Spec <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25677	25774	
==>OP_BODY_$forloop:
COND
	debug() if $debug;
	
	push @{$fors[$scopes]}, { var => $result, num => $fo <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14873	14997	
==>N' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 69,
			'functioncall' => 31,
			'function' => 26,
			'tablec <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	942	1049	
==>ser->YYData->{verbose_warning}
        and $parser->YYData->{verbose_warning} );
}

sub Info {
    my $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2281	2375	
==>rg($type, $value, $op)>

Returns the C code for the specified op argument type (see
C<Parrot::O <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3172	3266	
==>rg($type, $value, $op)>

Returns the C code for the specified op argument type (see
C<Parrot::O <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72597	72690	
==>g_to_cstring(interpreter, ({{\@3}}));\n\n  funcptr_t p = D2FPTR(Parrot_dlsym(PMC_IS_NULL({{\@2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74199	74292	
==>g_to_cstring(interpreter, ({{\@3}}));\n\n  funcptr_t p = D2FPTR(Parrot_dlsym(PMC_IS_NULL({{\@2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75801	75894	
==>g_to_cstring(interpreter, ({{\@3}}));\n\n  funcptr_t p = D2FPTR(Parrot_dlsym(PMC_IS_NULL({{\@2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77404	77497	
==>g_to_cstring(interpreter, ({{\@3}}));\n\n  funcptr_t p = D2FPTR(Parrot_dlsym(PMC_IS_NULL({{\@2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663766	664055	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664538	664827	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665314	665603	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682793	683031	
==>E" => "inline",
                  "CODE" => 766,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 517 \"src/ops/pmc.ops\"\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686489	686775	
==>reter, {{\@3}}, {{\@2}});\n   {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687379	687665	
==>reter, {{\@3}}, {{\@2}});\n   {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32570	32684	
==>} or \${STOREREG} in rule " .
				"$rule->{'name'}\n";
		}

        # Insert typeinfo code if we have any. Note tha <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39669	39762	
==>f}{ qw{leftarg op rightarg} };

	my $code = ''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trac <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576613	576918	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subclass" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577625	577930	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subclass" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596254	596559	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subclass" <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23716	23839	
==>31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 75
		ACTIO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960410	960744	
==>> 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 108 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961371	961705	
==>> 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 108 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962333	962667	
==>> 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 108 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963295	963629	
==>> 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 108 <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1724	1829	
==>PIR
}

# Post translation hook.
sub post_translation() {
	# Nothing to do.
	return "";
}

# Extra subrouti <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	764	869	
==>PIR
}

# Post translation hook.
sub post_translation() {
	# Nothing to do.
	return "";
}

# Extra subrouti <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	521	626	
==>PIR
}

# Post translation hook.
sub post_translation() {
	# Nothing to do.
	return "";
}

# Extra subrouti <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	50303	50401	
==>, go back to step 1.

=item 4.

Unconditionally match a bareword or any other single character, and <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5011	5109	
==>ted relative to the source
directory.

=cut

sub contents_relative_to_source
{
    my $self = shift <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3003	3098	
==>ted relative to the source
directory.

=cut

sub contents_relative_to_source
{
	my $self = shift <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033164	1033259	
==>ne 41 \"src/ops/var.ops\"\n    parrot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    ST <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034262	1034357	
==>ne 41 \"src/ops/var.ops\"\n    parrot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    ST <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852605	852936	
==>);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855056	855387	
==>);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855945	856276	
==>);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856834	857165	
==>);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAG <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	20581	20690	
==>h my $attrname ('section', 'to') {        
            if(defined($thing = $treelet->[$i][1]{$attrname}) and r <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	42065	42172	
==>h my $attrname ('section', 'to') {        
          if(defined($thing = $treelet->[$i][1]{$attrname}) and r <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1712	1813	
==>put_increment {
    my ($self, $distance, $failLabel) = @_;
    die "invalid distance" if $distance =~ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1465	1566	
==>put_increment {
    my ($self, $distance, $failLabel) = @_;
    die "invalid distance" if $distance =~ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021712	1021920	
==>time_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022554	1022762	
==>time_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023403	1023611	
==>time_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024253	1024461	
==>time_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79644	79967	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlvar",
                  "FLAGS" => "",
                  "ARGD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111302	111557	
==>bitwise_or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112194	112449	
==>bitwise_or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113086	113341	
==>bitwise_or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663757	664049	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664529	664821	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665305	665597	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete",
                  " <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	49258	49350	
==>C<'{'> is to be used.
Omitting the third argument (prefix argument) implies optional whitespa <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2024	2123	
==>ml = "<p>\n" . $index_html . "</p>\n\n";
		}
		
		$index_html = "<p>$self->{TEXT}</p>\n\n" . $index_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344413	344508	
==>g_cstring_free(mode); */\n  /* string_cstring_free(path); */\n  if(!{{\@1}} || !PMC_struct_val({ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345655	345750	
==>g_cstring_free(mode); */\n  /* string_cstring_free(path); */\n  if(!{{\@1}} || !PMC_struct_val({ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346897	346992	
==>g_cstring_free(mode); */\n  /* string_cstring_free(path); */\n  if(!{{\@1}} || !PMC_struct_val({ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348140	348235	
==>g_cstring_free(mode); */\n  /* string_cstring_free(path); */\n  if(!{{\@1}} || !PMC_struct_val({ <==
4	/Users/nnunley/parrot/lib/Parrot/Configure.pm	4486	4625	
==>f ($description =~ /$verbose_step/) {
                $self->options->set(verbose => 2);
            }
        }

        # XXX cc_build use <==
4	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1877	1973	
==>he normal stringification of objects of this class;
they stringify to just the text content of th <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149128	149216	
==>Y" => "#line 105 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150069	150157	
==>Y" => "#line 105 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	106550	106793	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107403	107646	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108257	108500	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4643	4753	
==>dest = $temp");
  }
  else {
    $compiler->emit("  $dest = $left $op $right");
  }

  if (($dest_ident->kind e <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630715	631009	
==>pe);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631705	631999	
==>pe);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629728	630020	
==>pe);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "F <==
4	/Users/nnunley/parrot/languages/regex/test.pl	2901	3026	
==>Gather output
    while (<SPEC>) {
        last if /^INPUT:/;
        $output .= $_;
    }

    $status &&= process($input, $o <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	9744	9857	
==>e
    # can operate in sequence
    #
    my ($argtype, $reg_num, $temp_cnt_ref, $temps_ref,
        $extra_preamb <==
4	/Users/nnunley/parrot/lib/Test/More.pm	22643	22739	
==>en the block is empty, delete it.

B<NOTE>: TODO tests require a Test::Harness upgrade else it wi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103873	1103960	
==>{\@2}};\n\tINTVAL type = pmc_type(interpreter, class);\n\tif (!type) {\n\t\tParrot_autol <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105088	1105175	
==>{\@2}};\n\tINTVAL type = pmc_type(interpreter, class);\n\tif (!type) {\n\t\tParrot_autol <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3808	3927	
==>',            'ne', 'I16', 'I2', 'apply_ITER'],
  ['apply_CALL',  'set', 'I0', 0],
  ['',            'invoke'],
  ['appl <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	1911	1997	
==>pointer-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wno-unused -W <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1276	1362	
==>pointer-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wno-unused -W <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1280	1366	
==>pointer-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wno-unused -W <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90856	91163	
==>}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91710	92017	
==>}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92564	92871	
==>}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
4	/Users/nnunley/parrot/lib/Test/More.pm	27234	27362	
==>t =~ s/^/    /msg;
    return $out;
}


sub _type {
    my $thing = shift;

    return '' if !ref $thing;

    for my $type (qw(A <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253827	254134	
==>}} : {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254690	254997	
==>}} : {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255553	255860	
==>}} : {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	776	898	
==>) { # Question marks can follow an identifier
      $token .= $ch;
    } elsif($ch eq '!' and
            $token =~ /^[a-z] <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7756	7859	
==>st_reg) {
		$pir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8612	8715	
==>st_reg) {
		$pir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5874	5977	
==>st_reg) {
		$pir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6432	6535	
==>st_reg) {
		$pir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth <==
4	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	3400	3499	
==>nd $smoke{build_dir}    = $1;
  $html =~ /summary="(\d+) test cases: (\d+) ok, (\d+) failed, (\d+) t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314572	314762	
==>"CODE" => 367,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 67 \"src/ops/dotgnu.ops\"\n  if({{\@1}} >= -12 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028439	1028615	
==>PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sleep",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029290	1029466	
==>PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sleep",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030131	1030307	
==>PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sleep",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
4	/Users/nnunley/parrot/lib/Test/More.pm	11851	11960	
==>method) } || push @nok, $method;
    }

    my $name;
    $name = @methods == 1 ? "$class->can('$methods[0]')" <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1424	1522	
==>Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT = qq[];

# Here comes some stuf <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1469	1567	
==>Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT = qq[];

# Here comes some stuf <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1473	1571	
==>Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT = qq[];

# Here comes some stuf <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151103	151225	
==>ble->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152081	152203	
==>ble->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172331	172453	
==>ble->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173309	173431	
==>ble->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780669	780765	
==>ine 387 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed_int(interpreter, {{\@1}}, {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781578	781674	
==>ine 387 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed_int(interpreter, {{\@1}}, {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782487	782583	
==>ine 387 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed_int(interpreter, {{\@1}}, {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783397	783493	
==>ine 387 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed_int(interpreter, {{\@1}}, {{\@ <==
4	/Users/nnunley/parrot/config/auto/pack.pm	1996	2111	
==>ata->set($which => $format);
    }

    $conf->data->set(
        packtype_b => 'C',
        packtype_n => ($conf->d <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2011	2116	
==>known variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->type;
  }
  else {
    $l <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1969	2074	
==>known variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->type;
  }
  else {
    $l <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1891	1996	
==>known variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->type;
  }
  else {
    $l <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1250	1352	
==>erride the user.  If a non-existent program is specified then
    # the user is responsible for the con <==
4	/Users/nnunley/parrot/config/inter/make.pm	1071	1173	
==>erride the user.  If a non-existent program is specified then
    # the user is responsible for the con <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1247	1349	
==>erride the user.  If a non-existent program is specified then
    # the user is responsible for the con <==
4	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10592	10677	
==>c,$_[7],10,0x8f0ccc92,/* 54 */
II,$c,$d,$a,$b,$_[14],15,0xffeff47d,/* 55 */
II,$b,$c,$ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6543	6637	
==>p_type_state[${ITEMP0}] = ${STYPES}
    prop_stack_depth[${ITEMP0}] = stack_depth
    goto POST <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4481	4575	
==>p_type_state[${ITEMP0}] = ${STYPES}
    prop_stack_depth[${ITEMP0}] = stack_depth
    goto POST <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6224	6310	
==>p_type_state[${ITEMP0}] = ${STYPES}
prop_stack_depth[${ITEMP0}] = stack_depth
goto POST <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4162	4248	
==>p_type_state[${ITEMP0}] = ${STYPES}
prop_stack_depth[${ITEMP0}] = stack_depth
goto POST <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9635	9894	
==>(
                        $parser,
                        'result' => $result2,
                        'arg1'   => $result,
                        'arg2'   => $key->[0],
                    );
                    $result = $result2;
                } <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11428	11686	
==>( $parser,
                            'result' => $result2,
                            'arg1'   => $result,
                            'arg2'   => $key->[0],
                        );
                        $result = $result2;
                    } <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8579	8765	
==>( $parser,
                'result' => $result2,
                'arg1'   => $result,
                'arg2'   => $key->[0],
            );
            $result = $result2;
        } <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17777	17939	
==>( $parser,
            'result' => $result2,
            'arg1'   => $result,
            'arg2'   => $key->[0],
        );
        $result = $result2;
    } <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1469	1559	
==>_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = "$register_num"
${STEMP0} = concat $ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1996	2086	
==>_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = "$register_num"
${STEMP0} = concat $ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3179	3269	
==>_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = "$register_num"
${STEMP0} = concat $ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20393	20482	
==>to me.

=head1 SEE ALSO

L<Pod::Simple>, L<RTF::Writer>, L<RTF::Cookbook>, L<RTF::Document <==
4	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	1822	1963	
==>$section = $1;
    }
        elsif (m/^\s*
            ($type_re)\s+
            ($ident_re)\s*
        \(($arglist_re)\)
        (?:\s+(MMD_\ <==
4	/Users/nnunley/parrot/editor/kate_syntax.pl	423	533	
==>ten to the standard\n",
        "output.\n\n";
    exit;
}

$parrot =~ s/\/$//;

my @imcc_oplike = qw(.sym .arg <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3987	4084	
==>andatory) {
			exists($$outhash{$_})
		or	croak("Missing mandatory parameter '".lc($_)."'");
	} <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3786	3880	
==>andatory) {
			exists($$outhash{$_})
		or	croak("Missing mandatory parameter '".lc($_)."'");
	} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692728	692926	
==>",
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693728	693926	
==>",
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694728	694926	
==>",
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695729	695927	
==>",
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	530967	531205	
==>" => "inline",
                  "CODE" => 613,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 851 \"src/ops/math.ops\"\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814200	814509	
==>":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 919,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" = <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	21282	21391	
==>os,	# REMAINDER
	       );
}

my $def_func = 
[
	sub { extract_variable($_[0], '') },
	sub { extract_quotelike <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1861	1949	
==>o::Construct::Expression::Value::Identifier')) {
    my $left_sym = $block->find_symbol($ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1819	1907	
==>o::Construct::Expression::Value::Identifier')) {
    my $left_sym = $block->find_symbol($ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1741	1829	
==>o::Construct::Expression::Value::Identifier')) {
    my $left_sym = $block->find_symbol($ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858521	858618	
==>line 118 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cann <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859525	859622	
==>line 118 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cann <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860529	860626	
==>line 118 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cann <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861534	861631	
==>line 118 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cann <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848279	848512	
==>(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849059	849292	
==>(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853388	853621	
==>(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854170	854403	
==>(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	2192	2311	
==>= $language_test_map{$func};
           # That's the reason for:   no strict 'refs';
           my $pass = $self->{build <==
4	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2652	2769	
==>= $language_test_map{$func};

        # That's the reason for:   no strict 'refs';
        my $pass = $self->{build <==
4	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2182	2295	
==>= $language_test_map{$func};
        # That's the reason for:   no strict 'refs';
        my $pass = $self->{build <==
4	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2721	2834	
==>= $language_test_map{$func};
        # That's the reason for:   no strict 'refs';
        my $pass = $self->{build <==
4	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	1097	1208	
==>lf->SUPER::create_path;
    
    # Just to touch the file.
    # Make sure write() doesn't dismiss this as a noo <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2860	2954	
==>", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUOT <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3169	3263	
==>", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUOT <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2964	3058	
==>", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUOT <==
4	/Users/nnunley/parrot/config/init/defaults.pm	7077	7195	
==>prefix . "/share/doc/parrot",
    );

    # add profiling if needed
    # FIXME gcc syntax
    # we should have this in <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1037	1123	
==>e->prederef.code))
#define CUR_OPCODE ((opcode_t*)cur_opcode + CONTEXT(interpreter->ctx <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	971	1057	
==>e->prederef.code))
#define CUR_OPCODE ((opcode_t*)cur_opcode + CONTEXT(interpreter->ctx <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1167	1253	
==>e->prederef.code))
#define CUR_OPCODE ((opcode_t*)cur_opcode + CONTEXT(interpreter->ctx <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3435	3597	
==>{ACTIONS}}
}

sub YYLexer {
    my($self)=shift;

	$$self{LEX};
}


#################
# Private stuff #
#################


sub _CheckParams {
	my( <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3263	3409	
==>{ACTIONS}}
}

sub YYLexer {
    my($self)=shift;

	$$self{LEX};
}


#################
# Private stuff #
#################


sub _CheckParams {
	my( <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	2364	2467	
==>debug() if $debug;
		}
	}
	feedme;
	#print "Type $type[CURR] Sym $syms[CURR]\n";
	goto UNK if ($type[CUR <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7769	7880	
==>_of_ident
{
  my $self = shift; # Required: Jako::Construct::Block
  my $name = shift; # Required: string (TODO: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8416	8527	
==>_of_ident
{
  my $self = shift; # Required: Jako::Construct::Block
  my $name = shift; # Required: string (TODO: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9084	9195	
==>_of_ident
{
  my $self = shift; # Required: Jako::Construct::Block
  my $name = shift; # Required: string (TODO: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9753	9864	
==>_of_ident
{
  my $self = shift; # Required: Jako::Construct::Block
  my $name = shift; # Required: string (TODO: <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7263	7384	
==>_count'};
        
        $self->_ponder_paragraph_buffer();
         # by now it's safe to consider the previous paragra <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7881	7997	
==>_count'};
          $self->_ponder_paragraph_buffer();
           # by now it's safe to consider the previous paragra <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	8238	8350	
==>_count'};
        $self->_ponder_paragraph_buffer();
         # by now it's safe to consider the previous paragra <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	5917	6025	
==>_count'};
      $self->_ponder_paragraph_buffer();
       # by now it's safe to consider the previous paragra <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104913	105203	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":bas <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105650	105940	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":bas <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	106388	106678	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":bas <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	1557	1672	
==>ush @contents,
                $dist->relative_path($dist->c_source_file_with_name($name)), 
                $dist-> <==
4	/Users/nnunley/parrot/config/inter/lex.pm	392	483	
==>igure::Step::Base);

use Parrot::Configure::Step qw( :inter capture_output check_progs );

$ <==
4	/Users/nnunley/parrot/config/inter/make.pm	386	477	
==>igure::Step::Base);

use Parrot::Configure::Step qw( :inter capture_output check_progs );

$ <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	387	478	
==>igure::Step::Base);

use Parrot::Configure::Step qw( :inter capture_output check_progs );

$ <==
4	/Users/nnunley/parrot/config/init/hints/irix.pm	24	111	
==>e Perl Foundation.
# $Id: /parrot/config/init/hints/irix.pm 19593 2006-05-30T02:28:15.11 <==
4	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1373	1495	
==>language = $language;
        } elsif ($dir_count == 2) {
          $path_to_language = '.';
        } elsif ($dir_count >2 <==
4	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1858	1980	
==>language = $language;
        } elsif ($dir_count == 2) {
          $path_to_language = '.';
        } elsif ($dir_count >2 <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	413	523	
==>Conditional);

#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected parent block and peer block!" u <==
4	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	4505	4605	
==>$_])[1] } (0..$#args);
    $macros .= <<"EOM";
#define VTABLE_$entry->[1]($args) \\
    (pmc)->vtable <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332543	332643	
==>!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_free(mod <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333821	333921	
==>!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_free(mod <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335099	335199	
==>!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_free(mod <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336378	336478	
==>!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_free(mod <==
4	/Users/nnunley/parrot/editor/kate_syntax.pl	696	794	
==>urn .local .const .globalconst
    end goto if unless call branch jump jsr ret invoke invokecc thro <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27614	27710	
==>' ) . '

		' . ($self->{"lookahead"}<0?'if':'unless')
		. ' ($text =~ s/\A($skip)/$lastsep=$1 and <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29724	29820	
==>' ) . '

		' . ($self->{"lookahead"}<0?'if':'unless')
		. ' ($text =~ s/\A($skip)/$lastsep=$1 and <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31821	31917	
==>' ) . '

		' . ($self->{"lookahead"}<0?'if':'unless')
		. ' ($text =~ s/\A($skip)/$lastsep=$1 and <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	37895	37997	
==>rser) = @_;
    $parser->YYData->{self} = BuildParam( $parser, 'self' );
}

sub BuildFunctionBody { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072547	1072651	
==>\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we used abs({{\@4}}) and abs({{\@5}}) */\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074732	1074836	
==>\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we used abs({{\@4}}) and abs({{\@5}}) */\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076917	1077021	
==>\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we used abs({{\@4}}) and abs({{\@5}}) */\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079103	1079207	
==>\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we used abs({{\@4}}) and abs({{\@5}}) */\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381188	381283	
==>{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (32bi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382200	382295	
==>{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (32bi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383212	383307	
==>{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (32bi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384225	384320	
==>{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (32bi <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8801	8907	
==>_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_tests_badpass = 0;
    $Test::num_of_tes <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	11422	11522	
==>@@@@@@@@@@@@@@@@

sub parse_string_document {
  my $self = shift;
  my @lines;
  foreach my $line_gro <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	204	298	
==>_run    = 0;
$Test::num_of_tests_failed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of_tes <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14155	14244	
==>z.pointer.foo=12
print mine(foo,20,z.pointer)
print z.pointer.foo

' Array access, 132
typ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34976	35070	
==>e::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = $Parse::RecDescent::la <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42086	42180	
==>e::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = $Parse::RecDescent::la <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	2367	2460	
==>, 'regex.html', '', 'languages/regex'),
        $self->new_section('Scheme', 'scheme.html', '' <==
4	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	909	1001	
==>t::Docs::Directory;
use base qw(Parrot::Docs::Directory);

=item C<new()>

Searches up the fi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770003	770240	
==>(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770856	771093	
==>(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771709	771946	
==>(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772563	772800	
==>(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25128	25227	
==>$return;
  my $num_children = defined $node->{children} ? @{$node->{children}} - 1 : 0;

  if($num_c <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27028	27127	
==>$return;
  my $num_children = defined $node->{children} ? @{$node->{children}} - 1 : 0;

  if($num_c <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24240	24338	
==>$return;
  my $num_children = defined $node->{children} ? @{$node->{children}} - 1 : 0;
  if($num_c <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26139	26237	
==>$return;
  my $num_children = defined $node->{children} ? @{$node->{children}} - 1: 0;

  if($num_c <==
4	/Users/nnunley/parrot/config/gen/makefiles.pm	2611	2812	
==>/Makefile',
        commentType                          => '#',
        replace_slashes                      => 1,
        conditioned_lines                    => 1
    );
    genfile(
        'config/ <==
4	/Users/nnunley/parrot/config/gen/makefiles.pm	4412	4589	
==>/Makefile',
        commentType                  => '#',
        replace_slashes              => 1,
        conditioned_lines            => 1
    );
    genfile(
        'config/ <==
4	/Users/nnunley/parrot/config/gen/makefiles.pm	5462	5639	
==>/Makefile',
        commentType                  => '#',
        replace_slashes              => 1,
        conditioned_lines            => 1
    );
    genfile(
        'config/ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	55490	55592	
==>er->{deferred}}, sub $code;",
					      $lookahead,$line,"<defer:$code>");
				$prod and $prod->addite <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	839	936	
==>Expression::Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	677	774	
==>Expression::Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	830	927	
==>Expression::Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	719	816	
==>Expression::Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	923904	924169	
==>"JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924694	924959	
==>"JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	14253	14358	
==>ic:\u2395\u2190" # quad output
    .param pmc op1

    'aplprint'(op1)
    .return(op1)
.end


END_OF_TEMP <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10327	10422	
==>t_pc, bc_length, cur_ic, pop_count, label_num, sp_dest
    .local int i, j, type, try_offset, tr <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5595	5691	
==>C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Pa <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4600	4696	
==>C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Pa <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4577	4673	
==>C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Pa <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3961	4057	
==>C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Pa <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1843	1936	
==>ult implementation raises an exception indicating
that the core type is missing. See the C<Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	328825	329108	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "conv_r4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	13919	14047	
==>\S/
          and ($max_content_length
           ? (length($para_text_content) <= $max_content_length)
           : 1)
        ) <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	3961	4063	
==>"compile $group.c failed ($?)\n";
    }
} 
elsif ($mode eq 'linklibs') {
    my ($group_files, $group_l <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	4065	4167	
==>"compile $group.c failed ($?)\n";
    }
} 
elsif ($mode eq 'linklibs') {
    my ($group_files, $group_l <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553215	553426	
==>ARROT_JUMP_ENEXT",
                  "NAME" => "callmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554611	554822	
==>ARROT_JUMP_ENEXT",
                  "NAME" => "callmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556008	556219	
==>ARROT_JUMP_ENEXT",
                  "NAME" => "callmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	29	119	
==>t/Punie.pm 18020 2006-03-26T19:46:16.084129Z bernhard  $

package Parrot::Test::Punie;

use <==
4	/Users/nnunley/parrot/config/gen/makefiles.pm	8226	8348	
==>{ !/^\./ && /\.ops$/ } readdir OPS;
        closedir OPS;

        my $pod = join " ", map { my $t = $_; $t =~ s/\.ops$/.po <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540510	540618	
==>) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b> <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541762	541870	
==>) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b> <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543014	543122	
==>) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b> <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	46141	46277	
==>"Lua\lua51.yp"
{
            [];
        }
	],
	[#Rule 5
		 '_semicolon_opt', 1, undef
	],
	[#Rule 6
		 '_semicolon_opt', 0, und <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	10659	10757	
==>icitly defined; in the latter case, a
warning is issued if the warning flag (B<-w>) is set.

=head2 <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9228	9324	
==>file with the specified with the specified path
taken relative to the directory.

=cut

sub path_ <==
4	/Users/nnunley/parrot/lib/Parrot/Op.pm	2367	2458	
==>rgument direction
descriptors. Element I<x> is the direction of argument C<< $args->[I<x>]
> <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	38437	38543	
==>} else {
            DEBUG and print "Treating $para_type paragraph as Data because the containing =for ($f <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5416	5507	
==>h 
${STEMP0} = "$"
${STEMP1} = ${LOADTYPE}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${ <==
4	/Users/nnunley/parrot/tools/dev/nm.pl	3595	3689	
==>e.
--objectname|-o	prepend the object name before the symbol name
--t		append the short BSD-sty <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050113	1050218	
==>DY" => "#line 172 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051147	1051252	
==>DY" => "#line 172 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052181	1052286	
==>DY" => "#line 172 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053216	1053321	
==>DY" => "#line 172 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \" <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	4299	4438	
==>cuddled_else {
    my ($file, $source) = @_;

    my $line = 0;
    foreach (@$source) {
        $line++;
        next unless $_;

        i <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	54139	54274	
==>,
	[#Rule 66
		 'exp', 3,
sub
#line 373 "Lua\lua51.yp"
{
            BuildRelop( $_[0], $_[1], $_[2], $_[3] );
        }
	],
	[ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	151	245	
==>use Parrot::Config;

require Exporter;
require Parrot::Test;

@EXPORT = ( qw(output_is output_l <==
4	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	68	162	
==>use Parrot::Config;

require Exporter;
require Parrot::Test;

@EXPORT = ( qw(output_is output_l <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240239	240564	
==>\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241187	241512	
==>\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242135	242460	
==>\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243084	243409	
==>\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24335	24459	
==>um_children==0) {
    $return = $self->_constant(0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{chi <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25224	25348	
==>um_children==0) {
    $return = $self->_constant(0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{chi <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26234	26358	
==>um_children==0) {
    $return = $self->_constant(0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{chi <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27124	27248	
==>um_children==0) {
    $return = $self->_constant(0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{chi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553160	553302	
==>s( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethod",
                  "FLAGS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554556	554698	
==>s( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethod",
                  "FLAGS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555953	556095	
==>s( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethod",
                  "FLAGS" = <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	3600	3696	
==>r) = @_;

  $handler->start_element({ Name => 'var', Attributes => { type => $self->type->name, n <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24802	24925	
==>rn);
      $self->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $sel <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25813	25936	
==>rn);
      $self->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $sel <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26701	26824	
==>rn);
      $self->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $sel <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27711	27834	
==>rn);
      $self->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $sel <==
4	/Users/nnunley/parrot/tools/dev/lib_deps.pl	12078	12210	
==>og10f      math.h
log10l      math.h
log1p       math.h
log1pf      math.h
log1pl      math.h
log2        math.h
log2f       math.h
l <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	10566	10670	
==>}->{code}}, <<PRINT;
@code	noop
	_BUILTIN_DISPLAY(1,$result)
PRINT
		}
		#print "After Expression have $t <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4918	5019	
==>mc_reg = new $pmc_type");
    $compiler->emit("  $pmc_reg = $dest");
    $compiler->emit("  global \"$ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2981	3082	
==>mc_reg = new $pmc_type");
    $compiler->emit("  $pmc_reg = $dest");
    $compiler->emit("  global \"$ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	3212	3327	
==>'}
       || Carp::croak('You have to call set_source before you can call get_token');
       
      DEBUG and print <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30802	30913	
==>e content of the item if it's a number or bullet.
          DEBUG and print " Item is of type ", $para->[0], " u <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	31767	31878	
==>e content of the item if it's a number or bullet.
          DEBUG and print " Item is of type ", $para->[0], " u <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34090	34201	
==>e content of the item if it's a number or bullet.
          DEBUG and print " Item is of type ", $para->[0], " u <==
4	/Users/nnunley/parrot/config/init/hints/hpux.pm	231	351	
==>->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }

    $conf->data->set(libs => $ <==
4	/Users/nnunley/parrot/config/init/hints/irix.pm	528	647	
==>->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }
    $conf->data->set(libs => $ <==
4	/Users/nnunley/parrot/config/init/hints/netbsd.pm	321	440	
==>->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }
    $conf->data->set(libs => $ <==
4	/Users/nnunley/parrot/config/init/hints/openbsd.pm	413	526	
==>->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
	}
	$conf->data->set(libs => $ <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38467	38571	
==>self->decl($self->{class}, $method, 0);
    my $parameters = $method->{parameters};
    my $n=0;
    my @ <==
4	/Users/nnunley/parrot/config/auto/gdbm.pm	685	787	
==>$conf->data->get('cc');
    my $libs      = $conf->data->get('libs');
    my $linkflags = $conf->data-> <==
4	/Users/nnunley/parrot/config/auto/gmp.pm	626	728	
==>$conf->data->get('cc');
    my $libs      = $conf->data->get('libs');
    my $linkflags = $conf->data-> <==
4	/Users/nnunley/parrot/config/auto/readline.pm	638	740	
==>$conf->data->get('cc');
    my $libs      = $conf->data->get('libs');
    my $linkflags = $conf->data-> <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	6417	6533	
==>eeds_build {
    my ($target, @sources) = @_;

    my $target_mod = modtime($target)
      or return 1;
    for my $s <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4837	4953	
==>eeds_build {
    my ($target, @sources) = @_;

    my $target_mod = modtime($target)
      or return 1;
    for my $s <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	6628	6744	
==>eeds_build {
    my ($target, @sources) = @_;

    my $target_mod = modtime($target)
      or return 1;
    for my $s <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1987	2095	
==>lvar = $arg1 + $arg2;" if defined($arg2);
    return "$realvar += $arg1;";
}

sub output_sub {
    my ($self, <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15473	15578	
==>p { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair unary -, functions, etc...
		@stream=convert_to_rpn( <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15835	15940	
==>p { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair unary -, functions, etc...
		@stream=convert_to_rpn( <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16362	16467	
==>p { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair unary -, functions, etc...
		@stream=convert_to_rpn( <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16986	17091	
==>p { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair unary -, functions, etc...
		@stream=convert_to_rpn( <==
4	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	1005	1108	
==>e this file after SVN
# has been told about new generated files.
# 
# Ignore the SVN directories
\B\.svn <==
4	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3860	3962	
==>e this file after SVN
# has been told about new generated files.
#
# Ignore the SVN directories
\B\.svn <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23400	23493	
==>en}[1]);
  for(2..$#{$node->{children}}) {
    my $temp = $self->_generate($node->{children}[$ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23862	23955	
==>en}[1]);
  for(2..$#{$node->{children}}) {
    my $temp = $self->_generate($node->{children}[$ <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27060	27181	
==>foreach my $op ( @{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27741	27862	
==>foreach my $op ( @{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	30591	30712	
==>foreach my $op ( @{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	35138	35259	
==>foreach my $op ( @{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476494	476781	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477389	477676	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478285	478572	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479176	479463	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	487971	488205	
==>/math.ops\"\n  {{\@1}} = ceil({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	45668	45771	
==>ith "<QLL>"

		do { $_ = join '<QLL>', (extract_quotelike)[2,1] } until $@;


	# Isolate the search patt <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6210	6296	
==>{ARG0} :-(
prop_type_state[${ITEMP0}] = ${STYPES}
prop_stack_depth[${ITEMP0}] = stack_d <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4148	4234	
==>{ARG0} :-(
prop_type_state[${ITEMP0}] = ${STYPES}
prop_stack_depth[${ITEMP0}] = stack_d <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353713	353903	
==>s(interpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot:: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354458	354648	
==>s(interpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot:: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355225	355415	
==>s(interpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot:: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	204	297	
==>ruct/Block/Loop.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings <==
4	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	259	356	
==>se Fatal qw{open};
use File::Spec;
use Getopt::Std;
use Text::Balanced; # XXX temporarily limit ou <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9827	9919	
==>{PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over each parameter and put them into ${PARAMS}. <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7341	7433	
==>{PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over each parameter and put them into ${PARAMS}. <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6305	6397	
==>{PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over each parameter and put them into ${PARAMS}. <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4848	4943	
==>O::File> instances.

Set C<$recursive> to true if you want all files in subdirectories to be
inc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83644	83747	
==>ops/core.ops\"\n  PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interpreter,\n      interpreter->i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84550	84653	
==>ops/core.ops\"\n  PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interpreter,\n      interpreter->i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85455	85558	
==>ops/core.ops\"\n  PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interpreter,\n      interpreter->i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86362	86465	
==>ops/core.ops\"\n  PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interpreter,\n      interpreter->i <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	7909	8063	
==>s>-1\n"),
                        aop('setend', [ $group, '<pos>', -1 ]),
                        aop('goto', [ $next ]),
              $rfail => $self->db <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	45315	45450	
==>EFAULT => -20,
		GOTOS => {
			'@5-9' => 212
		}
	},
	{#State 211
		ACTIONS => {
			'END' => 213
		}
	},
	{#State 212
		DEFAU <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1088	1194	
==>ectory_class>.


=cut

sub directory_with_path
{
    my $self = shift;
    
    return $self->directory_cla <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2268	2363	
==>where)>

TODO - This is the same implementation as in C<Parrot::OpTrans>. It
should not be dupli <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	2955	3089	
==>l');       }
sub is_module        { return shift->is('module');        }
sub is_next          { return shift->is('next');          }
su <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1662	1766	
==>NS} = concat " = pop s\n"
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$register_num++;
	}

	# Do co <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27961	28062	
==>s} .= $hout;
    $self->{hdecls};
}

=item C<gen_h($out_name)>

Generates the C header file code for t <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	362	460	
==>Class Methods

=over

=cut

package Parrot::Docs::Section::Info;

use strict;
use warnings;

use ba <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	133	225	
==>se
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/Cond <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	126	218	
==>se
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/Cond <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	124	216	
==>se
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/Cond <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	128	220	
==>se
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/Cond <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050141	1050237	
==>var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051175	1051271	
==>var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052209	1052305	
==>var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053244	1053340	
==>var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404666	404982	
==>ddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405578	405894	
==>ddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406490	406806	
==>ddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407403	407719	
==>ddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	26100	26278	
==>ushindex'),
                        aop('goto', [ $next ]),
               $back => aop('popindex', [ $R_back ]),
                        @R_ops,
                        aop('push <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2715	2816	
==>Name => 'op' });
    $handler->end_element({ Name => 'block' });
  }

  $handler->start_element({ Name <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2592	2693	
==>Name => 'op' });
    $handler->end_element({ Name => 'block' });
  }

  $handler->start_element({ Name <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	4025	4119	
==><FOO;
.sub _DEBUG_INIT
	saveall
	\$P0=new .PerlArray
	find_global \$P1, "DEBUGGER"
FOO
	foreach <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71895	72256	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73496	73857	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75098	75459	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76700	77061	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7345	7472	
==>lf->{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        return ("set <rx_tmp>, <rx_stack>",
                $se <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9444	9571	
==>lf->{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        return ("set <rx_tmp>, <rx_stack>",
                $se <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	20579	20687	
==>ach my $attrname ('section', 'to') {        
            if(defined($thing = $treelet->[$i][1]{$attrname}) an <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	42063	42169	
==>ach my $attrname ('section', 'to') {        
          if(defined($thing = $treelet->[$i][1]{$attrname}) an <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	15952	16044	
==>4

=item C<esc(@strings)>

=item C<esc($string)>

Reimplemented here to silence a C<Pod::Simp <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10949	11040	
==>o supply a ${DEST0}.
${ITEMP0} = ${PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pr <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8135	8226	
==>o supply a ${DEST0}.
${ITEMP0} = ${PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pr <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5797	5888	
==>o supply a ${DEST0}.
${ITEMP0} = ${PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pr <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	33372	33490	
==>_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   print <<EOC;
	$vv = $v->[1] <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	34121	34239	
==>_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   print <<EOC;
	$vv = $v->[1] <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	35045	35163	
==>_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   print <<EOC;
	$vv = $v->[1] <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	54255	54353	
==>lled in a list context and is
expected to return a list of a single element, namely the extracted
t <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1864	1972	
==>rops;
  my @args  = $self->args;

  my $subname = $name;

  $subname =~ s/::/__/g;

  $compiler->emit(".sub _ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30337	30437	
==>dn\'t match terminal>>},
						  Parse::RecDescent::_tracefirst($text))
							if defined $::RD_TRACE <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32537	32637	
==>dn\'t match terminal>>},
						  Parse::RecDescent::_tracefirst($text))
							if defined $::RD_TRACE <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28262	28360	
==>dn\'t match terminal>>},
						  Parse::RecDescent::_tracefirst($text))
					if defined $::RD_TRACE <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15693	15801	
==>tream
		feedme();  # Eat the =
		$whole.=" = ";

		$opts{lhs}=0;
		@expr=get_expression(%opts);	# Get express <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5492	5592	
==>$item]);
      $self->_add_inst ('', 'set', [$pair.'[1]',$return]);
      $self->_add_inst ('', 'set' <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17042	17137	
==>$item]);
    $self->_add_inst ('', 'set',[$pair.'[1]',$return]);
    $self->_add_inst ('', 'set' <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6531	6621	
==>$item]);
  $self->_add_inst('', 'set', [$pair.'[1]',$return]);
  $self->_add_inst('', 'set' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901129	901299	
==>",
                              "sc"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902148	902318	
==>",
                              "sc"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903167	903337	
==>",
                              "sc"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904187	904357	
==>",
                              "sc"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680771	681069	
==>);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681547	681845	
==>);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682321	682619	
==>);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683096	683394	
==>);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151083	151188	
==>\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152061	152166	
==>\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172311	172416	
==>\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173289	173394	
==>\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19075	19374	
==>[
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "AR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19851	20150	
==>[
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "AR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20629	20928	
==>[
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "AR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21429	21728	
==>[
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "AR <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	1356	1513	
==>urn $new_op;
}
 

#
# new()
#

sub new
{
  my $class = shift;

  return bless {
    FILE           => undef,
    LINE           => undef,
    LABELS         = <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5768	5869	
==>n
        unless defined $self->{triggers}{$key}
        and defined $self->{triggers}{$key}{$trigger} <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6338	6439	
==>n
        unless defined $self->{triggers}{$key}
        and defined $self->{triggers}{$key}{$trigger} <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	844	941	
==>r compilations. But, string
# literals are subject to interpolation, and so they go through
# comp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798387	798806	
==>RGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 901,
                  "ARGS" => [
                              "p",
                              "k",
                              "nc"
                            ],
                  "BODY <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634839	635105	
==>ring(interpreter, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635957	636223	
==>ring(interpreter, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637075	637341	
==>ring(interpreter, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638194	638460	
==>ring(interpreter, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950565	950686	
==>, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951525	951646	
==>, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952485	952606	
==>, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953446	953567	
==>, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	155	249	
==>ead1 NAME

tools/dev/check_source_standards.pl - Check conformancs of C source code to PDD 7

= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202710	202800	
==>> "#line 380 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203641	203731	
==>> "#line 380 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204572	204662	
==>> "#line 380 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0) <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	9183	9283	
==>percentage to see line-by-line detail</i>
    );

    foreach my $source_file (sort keys %file_line_c <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1378	1463	
==>-Wdisabled-optimization -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPU <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1423	1508	
==>-Wdisabled-optimization -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPU <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1427	1512	
==>-Wdisabled-optimization -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39058	39310	
==>ter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39923	40175	
==>ter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40770	41022	
==>ter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41618	41870	
==>ter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8885	8971	
==>38e,/* 15 */
FF,$b,$c,$d,$a,$_[19],22,0x49b40821,/* 16 */ 
GG,$a,$b,$c,$d,$_[5],5,0xf61 <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11098	11180	
==>_call_HAS_RETURN_${CURIC}
goto pre_call_NO_RETURN_${CURIC}
pre_call_HAS_RETURN_${CU <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8284	8366	
==>_call_HAS_RETURN_${CURIC}
goto pre_call_NO_RETURN_${CURIC}
pre_call_HAS_RETURN_${CU <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5946	6028	
==>_call_HAS_RETURN_${CURIC}
goto pre_call_NO_RETURN_${CURIC}
pre_call_HAS_RETURN_${CU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589943	590210	
==>ion",
                  "CODE" => 670,
                  "ARGS" => [
                              "p",
                              "sc",
                              "kc"
                            ],
                  "BODY" => "#line 314 \"src/ops/object.ops\"\ <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2343	2447	
==>"-I" . $PATHQUOTE . '/Users/nnunley/parrot/src/pmc' . $PATHQUOTE . " " .
        $source;
};

sub partial <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2138	2242	
==>"-I" . $PATHQUOTE . '/Users/nnunley/parrot/src/pmc' . $PATHQUOTE . " " .
        $source;
};

sub partial <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	2548	2642	
==>set_symbol(NAME, VALUE)

Set a symbol in this block's symbol table. If the symbol already exist <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072236	1072366	
==>break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074421	1074551	
==>break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076606	1076736	
==>break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078792	1078922	
==>break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8180	8306	
==>back) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } else {
        die "Too many argume <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8962	9088	
==>back) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } else {
        die "Too many argume <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7833	7959	
==>back) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } else {
        die "Too many argume <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8622	8748	
==>back) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } else {
        die "Too many argume <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	3234	3365	
==>unc}->{stream}->{data}->($f_out),
            };

            ## run the command and capture the exit code
            my $exit_code <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1384	1493	
==>STDOUT => $out_f, STDERR => $out_f, 
        );
        my $prog_output = Parrot::Test::slurp_file( "$out_f" ) <==
4	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1300	1409	
==>STDOUT => $out_f, STDERR => $out_f, 
        );
        my $prog_output = Parrot::Test::slurp_file( "$out_f" ) <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	14726	14820	
==>presents a time (seconds and
microseconds), and C<rusage> has two elements, each of which is of <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276034	276232	
==>",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 881 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpret <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	15805	15921	
==>do};

            my $pass = $builder->$meth( $real_output, $expected, $desc );
            $builder->diag("'$cmd' fa <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	18356	18472	
==>do};

            my $pass = $builder->$meth( $real_output, $expected, $desc );
            $builder->diag("'$cmd' fa <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	23742	23845	
==>rstpos,$lastpos-$firstpos)="";
	       pos $$textref = $firstpos };
	return $fields[0];
}


sub gen_extr <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25190	25316	
==>ode->{children}} - 1 : 0;

  if($num_children==0) {
    $return = $self->_constant(0);
  } elsif($num_children==1) {
    $retur <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27090	27216	
==>ode->{children}} - 1 : 0;

  if($num_children==0) {
    $return = $self->_constant(0);
  } elsif($num_children==1) {
    $retur <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24302	24427	
==>ode->{children}} - 1 : 0;
  if($num_children==0) {
    $return = $self->_constant(0);
  } elsif($num_children==1) {
    $retur <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26201	26326	
==>ode->{children}} - 1: 0;

  if($num_children==0) {
    $return = $self->_constant(0);
  } elsif($num_children==1) {
    $retur <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23078	23298	
==>p, dest);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_A <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25517	25737	
==>p, dest);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_A <==
4	/Users/nnunley/parrot/tools/dev/parrot_api.pl	786	886	
==>e it was found in.

Good things are listed with C<+++> (at the moment the only good thing
is Parrot A <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19231	19326	
==>hort_title on that document will return "Hooboy,
stuff wow yeah!".

If the title can't be found, <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	34014	34135	
==>_op_string_symbol,

###
### Numerics
###

  'number?'          => \&_op_number_p,
  'complex?'         => \&_op_complex_p, <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1970	2056	
==>elf->SYNTAX_ERROR("Expression involves unknown variable %s.", $left->value) unless $lef <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1928	2014	
==>elf->SYNTAX_ERROR("Expression involves unknown variable %s.", $left->value) unless $lef <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1850	1936	
==>elf->SYNTAX_ERROR("Expression involves unknown variable %s.", $left->value) unless $lef <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	624303	624552	
==>=> "pic_callr__",
                  "FLAGS" => ":pic",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 702,
                  "A <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140840	140939	
==>Y" => "#line 77 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141736	141835	
==>Y" => "#line 77 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142632	142731	
==>Y" => "#line 77 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019324	1019589	
==>AME" => "localtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 11 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020254	1020519	
==>AME" => "localtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 11 <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5822	5918	
==>->{code}}, "IFBRANCH_$_:\n";
			}
			while($_=pop(@{$elsestack->{$elsetag}})) {
				push @{$code{ <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8168	8261	
==>->{code}}, "IFBRANCH_$_:\n";
		}
		while($_=pop(@{$elsestack->{$elsetag}})) {
			push @{$code{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544538	544652	
==>n   else               a = (a-b)>>1;\n }\n \n gcd = b<<p;\n saved_var1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545874	545988	
==>n   else               a = (a-b)>>1;\n }\n \n gcd = b<<p;\n saved_var1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547210	547324	
==>n   else               a = (a-b)>>1;\n }\n \n gcd = b<<p;\n saved_var1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\n <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2722	2824	
==>d of '.' to indicate the current working directory.  In order to be
    # compatible with both pre/post <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	33126	33258	
==>y ($n, $c, $cmt, $sl_n) = @_;
    my ($v, $w, $vv, $ww);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	33875	34007	
==>y ($n, $c, $cmt, $sl_n) = @_;
    my ($v, $w, $vv, $ww);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	34799	34931	
==>y ($n, $c, $cmt, $sl_n) = @_;
    my ($v, $w, $vv, $ww);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	15565	15656	
==>eq I5, 1, CASE_${jump}_${incase}_NO_OR
	push P9, "or"
	push P9, "OP"
CASE_${jump}_${incase}_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554311	554597	
==>mc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555708	555994	
==>mc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556945	557231	
==>mc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15971	16066	
==>tion.

= AUTHORS

Audrey Tang <autrijus@autrijus.org>

Benjamin Smith

Norman Nunley

Steve Pete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634844	635136	
==>interpreter, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635962	636254	
==>interpreter, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637080	637372	
==>interpreter, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638199	638491	
==>interpreter, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344273	344386	
==>);\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345515	345628	
==>);\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346757	346870	
==>);\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348000	348113	
==>);\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646885	647178	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647645	647938	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648406	648699	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649168	649461	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARG <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	1001	1100	
==>elf->new_item('', 'tools/build/vtable_extend.pl'),
        ),
        $self->new_group('Bytecode', ' <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11116	11202	
==>{CURIC}
goto pre_call_NO_RETURN_${CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
$ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8302	8388	
==>{CURIC}
goto pre_call_NO_RETURN_${CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
$ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5964	6050	
==>{CURIC}
goto pre_call_NO_RETURN_${CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
$ <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32071	32174	
==>in(' ', @args) if @args;
    $parameters = ", $parameters" if $parameters;
    my $body = "VTABLE_$meth( <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33648	33751	
==>in(' ', @args) if @args;
    $parameters = ", $parameters" if $parameters;
    my $body = "VTABLE_$meth( <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40705	40808	
==>in(' ', @args) if @args;
    $parameters = ", $parameters" if $parameters;
    my $body = "VTABLE_$meth( <==
4	/Users/nnunley/parrot/config/init/hints/openbsd.pm	527	621	
==>libs);

	if ((split('-', $Config{archname}))[0] eq 'powerpc') {
		$conf->data->set(as => 'as -m <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	316652	316960	
==>dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 370,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846701	846937	
==>er, (UINTVAL){{\@2}});\n  {{\@1}} = s;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847497	847733	
==>er, (UINTVAL){{\@2}});\n  {{\@1}} = s;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2730	2821	
==>20\n",
 '/item-bullet' => "\n\\par}\n",
 'item-number'  => "\n{\\pard\\li#rtfindent##rtfitem <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945485	945739	
==>name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946295	946549	
==>name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955929	956183	
==>name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956741	956995	
==>name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259955	260123	
==>"
                            ],
                  "BODY" => "#line 793 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} == {{\@3}};\n    {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260807	260975	
==>"
                            ],
                  "BODY" => "#line 793 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} == {{\@3}};\n    {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261659	261827	
==>"
                            ],
                  "BODY" => "#line 793 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} == {{\@3}};\n    {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262512	262680	
==>"
                            ],
                  "BODY" => "#line 793 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} == {{\@3}};\n    {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8405	8517	
==>0;
		goto PARSE
	}
	if ($type[CURR] eq "STMT"
		  or
	    $type[CURR] eq "COMP") { goto PARSE; }
	if ($type[CURR] <==
4	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6131	6243	
==>,
EOM
    }
    $macros .=<<"EOM";
        MMD_USER_FIRST
} parrot_mmd_func_enum;

/* &end_gen */

#ifdef PARROT_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853331	853418	
==>ine 100 \"src/ops/string.ops\"\n  {{\@1}} = string_append(interpreter, {{\@1}}, {{\@2}}, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854113	854200	
==>ine 100 \"src/ops/string.ops\"\n  {{\@1}} = string_append(interpreter, {{\@1}}, {{\@2}}, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072107	1072228	
==>\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074292	1074413	
==>\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076477	1076598	
==>\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078663	1078784	
==>\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\ <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1212	1322	
==>g ||= $ENV{uc($util)};

    # never override the user.  If a non-existent program is specified then
    # the u <==
4	/Users/nnunley/parrot/config/inter/make.pm	1033	1143	
==>g ||= $ENV{uc($util)};

    # never override the user.  If a non-existent program is specified then
    # the u <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1209	1319	
==>g ||= $ENV{uc($util)};

    # never override the user.  If a non-existent program is specified then
    # the u <==
4	/Users/nnunley/parrot/config/inter/progs.pm	31	117	
==>Perl Foundation.
# $Id: /parrot/config/inter/progs.pm 19593 2006-05-30T02:28:15.110975Z <==
4	/Users/nnunley/parrot/tools/dev/install_files.pl	1261	1363	
==>re may be a * in front of the whole line to designate
a generated file:

    source_path <whitespace> * <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557967	558054	
==>t;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAILCALL;\n  interpreter->cu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559351	559438	
==>t;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAILCALL;\n  interpreter->cu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560723	560810	
==>t;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAILCALL;\n  interpreter->cu <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	248	353	
==>elf->{state} ||= Regex->global_state();
}

# R (seq, R, S, ...) : return R && S && ...
# R (scan, R) : sca <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	3177	3276	
==>_dump($_) foreach (@pmcs);
    generate_c($_) foreach (@pmcs);

    my ($group_files, $group_libs, $ <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	3281	3380	
==>_dump($_) foreach (@pmcs);
    generate_c($_) foreach (@pmcs);

    my ($group_files, $group_libs, $ <==
4	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	1073	1168	
==>nfig.pm$::;
    my $dir_count = scalar(File::Spec->splitdir($path_to_parrot));
    my $path_to_t <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	13040	13171	
==>emp_num)";
    };
    /J/ && do {
        return "interpreter";
    };
    /[OP]/ && do {
        push @{$temps_ref}, "PMC *t_$temp_ <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	6131	6254	
==>b ( keys %libs ) {
            $group_libs{$group}->{lib} = 1;
        }
    }

    return (\%group_files, \%group_libs, \%p <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	6342	6465	
==>b ( keys %libs ) {
            $group_libs{$group}->{lib} = 1;
        }
    }

    return (\%group_files, \%group_libs, \%p <==
4	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	11122	11243	
==>iled   { color: #500; }
    .tests_todo     { color: #030; }
    .tests_skipped  { color: #555; }
    .tests_unexpect { co <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	33403	33532	
==>v = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   print <<EOC;
	$vv = $v->[1]
EOC
       }
    }
    my $ag = promote(p <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553194	553315	
==>PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethod",
                  "FLAGS" => ":object_ba <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554590	554711	
==>PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethod",
                  "FLAGS" => ":object_ba <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555987	556108	
==>PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethod",
                  "FLAGS" => ":object_ba <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	9	99	
==>ht (C) 2004, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Docs/Section.pm 20333 2006-06-2 <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	27201	27298	
==>ibe_seq { undef };
sub describe_check { undef };
sub describe_group { "group $_[3]" }
sub describe <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	1018	1118	
==>t "MANY_LINES is ", MANY_LINES(), "\n";
  unless(MANY_LINES() >= 1) {
    die "MANY_LINES is too smal <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072801	1072927	
==>n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074986	1075112	
==>n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077171	1077297	
==>n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079357	1079483	
==>n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+ <==
4	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3714	3816	
==>l> to list the symbols.

=head1 TODO

=over 4

=item *

Write a pollution detector also for the C prepr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	317817	318038	
==>xception for conv_i2_ovf\");\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30748	30866	
==>lf->_get_item_type($para);
            # That kills the content of the item if it's a number or bullet.
          DEBUG <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	31713	31831	
==>lf->_get_item_type($para);
            # That kills the content of the item if it's a number or bullet.
          DEBUG <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34036	34154	
==>lf->_get_item_type($para);
            # That kills the content of the item if it's a number or bullet.
          DEBUG <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	13261	13390	
==>) = @$ref;
        print $name, "\n";
        dump_ref($_, $indent . "  ") foreach (@children);
    } else {
        print $ref, " <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1137	1226	
==>ht is not Value!" if defined $right and not UNIVERSAL::isa($right, 'Jako::Construct::Expre <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1165	1254	
==>ht is not Value!" if defined $right and not UNIVERSAL::isa($right, 'Jako::Construct::Expre <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	837	926	
==>ht is not Value!" if defined $right and not UNIVERSAL::isa($right, 'Jako::Construct::Expre <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15491	15593	
==>r);
		@expr=fixup(@expr);		# Repair unary -, functions, etc...
		@stream=convert_to_rpn(@expr);	# Get i <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15853	15955	
==>r);
		@expr=fixup(@expr);		# Repair unary -, functions, etc...
		@stream=convert_to_rpn(@expr);	# Get i <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16380	16482	
==>r);
		@expr=fixup(@expr);		# Repair unary -, functions, etc...
		@stream=convert_to_rpn(@expr);	# Get i <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	17004	17106	
==>r);
		@expr=fixup(@expr);		# Repair unary -, functions, etc...
		@stream=convert_to_rpn(@expr);	# Get i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413676	414056	
==>"i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 477,
                  "ARGS" => [
                              "i",
                              "p",
                              "ic",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544242	544342	
==>}} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = a, saved_var2 = b; \n\n if(a==0 || b==0) { {{\@1}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545578	545678	
==>}} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = a, saved_var2 = b; \n\n if(a==0 || b==0) { {{\@1}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546914	547014	
==>}} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = a, saved_var2 = b; \n\n if(a==0 || b==0) { {{\@1}} <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8466	8577	
==>hift;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the store.
	# Otherwise, th <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6286	6397	
==>hift;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the store.
	# Otherwise, th <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5201	5312	
==>hift;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the store.
	# Otherwise, th <==
4	/Users/nnunley/parrot/config/auto/funcptr.pm	453	555	
==>ing that the compiler supports function pointer casts';

@args = qw(verbose);

sub runstep
{
    my ($s <==
4	/Users/nnunley/parrot/tools/build/ops2c.pl	12738	12849	
==>OP_HASH_SIZE;
    p->info = info;
    p->next = hop[hidx];
    hop[hidx] = p;
}
static int get_op(const char * n <==
4	/Users/nnunley/parrot/config/inter/libparrot.pm	510	604	
==>se Parrot::Configure::Step ':inter';

$description = 'Determine if parrot should be linked ag <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	711	802	
==>defined $right;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::B <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	723	814	
==>defined $right;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::B <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658314	658568	
==>>defined_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659233	659487	
==>>defined_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	2205	2303	
==>Test->ok(@_);
}


=back

Test::Simple will start by printing number of tests run in the form
"1..M" <==
4	/Users/nnunley/parrot/examples/benchmarks/fib.pl	73	162	
==>/examples/benchmarks/fib.pl 19601 2006-05-30T13:32:26.641316Z coke  $

=head1 NAME

exampl <==
4	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	145	261	
==>rict;

use base 'Parrot::Test::Bc';

sub get_out_fn {
    my $self = shift;
    my ( $count, $options ) = @_;

    re <==
4	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Posix.pm	143	259	
==>rict;

use base 'Parrot::Test::Bc';

sub get_out_fn {
    my $self = shift;
    my ( $count, $options ) = @_;

    re <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	12479	12587	
==>{'ASSEMBLY'} = 'assembly';
    $mv->{'BC'} = 'bc';
    $mv->{'INS'} = 'gen_pir';
    $mv->{'PC'} = 'pc';
	$mv <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15980	16071	
==>,$type,@stream)=generate_code(0, @stream);	# Generate PASM code stream

		@stream=build_assi <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2289	2379	
==>ght->value);
    $self->SYNTAX_ERROR("Expression involves unknown variable %s.", $right->va <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2247	2337	
==>ght->value);
    $self->SYNTAX_ERROR("Expression involves unknown variable %s.", $right->va <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2169	2259	
==>ght->value);
    $self->SYNTAX_ERROR("Expression involves unknown variable %s.", $right->va <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38483	38778	
==>NEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39347	39642	
==>NEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40194	40489	
==>NEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41041	41336	
==>NEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1365	1467	
==>S($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($self, $a <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1890	1992	
==>S($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($self, $a <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1781	1883	
==>S($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($self, $a <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1505	1607	
==>S($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($self, $a <==
4	/Users/nnunley/parrot/lib/Parrot/Op.pm	4825	4919	
==>f->{FLAGS};
}

=item C<arg_dir($index)>

Returns the direction of the op's argument at C<$index <==
4	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	449	539	
==>->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  #$new->accept_codes('VerbatimFor <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	253	342	
==>->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->accept_codes('VerbatimFor <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	252	341	
==>->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->accept_codes('VerbatimFor <==
4	/Users/nnunley/parrot/tools/dev/install_files.pl	2153	2251	
==>e written to. It will be applied before any
metadata tags.

Example: if this line is in the MANIFES <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714721	714816	
==>reter, io, \" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715644	715739	
==>reter, io, \" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716589	716684	
==>reter, io, \" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(i <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1170	1269	
==>eply(Any $got, Any $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    # hack for <==
4	/Users/nnunley/parrot/Configure.pl	7723	7819	
==>(path)  Location of ICU headers without /unicode
   --icushared=(flags)  Full linker command to c <==
4	/Users/nnunley/parrot/config/gen/icu.pm	3801	3897	
==>(path)  Location of ICU headers without /unicode
   --icushared=(flags)  Full linker command to c <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	312	404	
==>e Jako::Construct::Statement::Call;

use Carp;

use base qw(Jako::Construct::Statement);

sub <==
4	/Users/nnunley/parrot/config/init/hints/hpux.pm	238	354	
==>>get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }

    $conf->data->set(libs => $lib <==
4	/Users/nnunley/parrot/config/init/hints/irix.pm	535	650	
==>>get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }
    $conf->data->set(libs => $lib <==
4	/Users/nnunley/parrot/config/init/hints/netbsd.pm	328	443	
==>>get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }
    $conf->data->set(libs => $lib <==
4	/Users/nnunley/parrot/config/init/hints/openbsd.pm	420	529	
==>>get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
	}
	$conf->data->set(libs => $lib <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90846	91135	
==>}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91700	91989	
==>}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92554	92843	
==>}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/tools/dev/install_files.pl	3484	3604	
==>ile(<>) {
    chomp;

    s/\#.*//; # Ignore comments
    next if /^\s*$/; # Skip blank lines

    my ($src, $meta, $dest <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3009	3123	
==>i'  => "IREG(%ld)",
    'n'  => "NREG(%ld)",
    'p'  => "PREG(%ld)",
    's'  => "SREG(%ld)",
    'k'  => "PREG(%l <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2829	2943	
==>i'  => "IREG(%ld)",
    'n'  => "NREG(%ld)",
    'p'  => "PREG(%ld)",
    's'  => "SREG(%ld)",
    'k'  => "PREG(%l <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1926	2037	
==>i'   => "IREG(%ld)",
  'n'   => "NREG(%ld)",
  'p'   => "PREG(%ld)",
  's'   => "SREG(%ld)",
  'k'   => "PREG(%l <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	29069	29172	
==>har_p {
}

sub _op_char_eq_p {
}

sub _op_char_lt_p {
}

sub _op_char_gt_p {
}

sub _op_char_le_p {
}

s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540410	540514	
==>AL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541662	541766	
==>AL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542914	543018	
==>AL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { { <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20195	20288	
==>i

' Square roots and sgn
print 10,sqr(10)
print 32767,sqr(32767)
print 0,sqr(0)
print 0.5,sqr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332316	332421	
==>Y" => "#line 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const mode = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333594	333699	
==>Y" => "#line 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const mode = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334872	334977	
==>Y" => "#line 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const mode = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336151	336256	
==>Y" => "#line 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const mode = <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6124	6220	
==>print CODE "CASE_$s->{jump}_FIN:\n";
			goto PARSE;
		}
		push @{$code{$seg}->{code}}, "\t_platfo <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	611	695	
==>") is not!") unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Ident <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	621	705	
==>") is not!") unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Ident <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	621	705	
==>") is not!") unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Ident <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	57842	57955	
==>upported: \"$code\"",
					       $line);
					_hint("Items like $code that consist of angle
					brackets enclosi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377367	377598	
==>GS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 432 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1704	1798	
==>OR("Assigning to unknown variable %s.", $dest->value) unless $dest_sym;
  my $dest_type = $dest <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1662	1756	
==>OR("Assigning to unknown variable %s.", $dest->value) unless $dest_sym;
  my $dest_type = $dest <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1584	1678	
==>OR("Assigning to unknown variable %s.", $dest->value) unless $dest_sym;
  my $dest_type = $dest <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	5765	5878	
==>\d)\)/Parrot_jit_push_registers(jit_info,$1)/g;
            $ops{$function} = [ $asm , $extern ];
            $fun <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	778	871	
==>op, $right) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::B <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	806	899	
==>op, $right) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::B <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	490	583	
==>op, $right) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::B <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843219	843482	
==>"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844097	844360	
==>"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844975	845238	
==>"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845854	846117	
==>"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	1443	1615	
==>E           => undef,
    LINE           => undef,
    LABELS         => [ ],
    COMMENTS       => [ ],
    LAST_OP        => 'noop',
    INDENT         => 0,
    REG_COUNT <==
4	/Users/nnunley/parrot/config/init/hints/hpux.pm	176	294	
==>tep
{
    my ($self, $conf) = @_;

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $li <==
4	/Users/nnunley/parrot/config/init/hints/solaris.pm	230	348	
==>tep
{
    my ($self, $conf) = @_;

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $li <==
4	/Users/nnunley/parrot/config/inter/lex.pm	290	389	
==>e inter::lex;

use strict;

use vars qw( $description @args $prompt $util );

use base qw(Parrot::Co <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099294	1099475	
==>n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n\tres = 1.0/res;\n    }\n    {{\@1}} = res;\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100492	1100673	
==>n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n\tres = 1.0/res;\n    }\n    {{\@1}} = res;\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101690	1101871	
==>n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n\tres = 1.0/res;\n    }\n    {{\@1}} = res;\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102889	1103070	
==>n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n\tres = 1.0/res;\n    }\n    {{\@1}} = res;\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319458	319667	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320227	320436	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320997	321206	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1123	1216	
==>s:
Source: "$options{icudir}\\bin\\icu*.dll"; DestDir: "{app}\\bin"; Flags:
};
}

open OUT, "> <==
4	/Users/nnunley/parrot/config/auto/pack.pm	1551	1690	
==>able to find a functional packtype for $_.
               '$format' failed: $@
AARGH
        }
        if ($test) {
            unless (leng <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11459	11549	
==>_CALL_RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_END_$ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8645	8735	
==>_CALL_RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_END_$ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7217	7307	
==>_CALL_RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_END_$ <==
4	/Users/nnunley/parrot/config/auto/env.pm	367	460	
==>Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining if your C libr <==
4	/Users/nnunley/parrot/config/auto/isreg.pm	349	442	
==>Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining if your C libr <==
4	/Users/nnunley/parrot/config/auto/memalign.pm	368	461	
==>Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining if your C libr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	619796	619884	
==>rpreter, left, enum_class_BigInt);\n\t    VTABLE_set_integer_native(interpreter, left, a) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321807	322016	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322578	322787	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323350	323559	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	209	302	
==>Parrot::Test;

=head1 NAME

Parrot::Test::HQ9plus - Testing routines specific to 'HQ9plus'.

= <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	15104	15231	
==>" => 53
		}
	},
	{#State 34
		DEFAULT => -27
	},
	{#State 35
		DEFAULT => -24
	},
	{#State 36
		ACTIONS => {
			"^" => 9,
			"(" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480629	480727	
==>> "#line 446 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481632	481730	
==>> "#line 446 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482635	482733	
==>> "#line 446 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception <==
4	/Users/nnunley/parrot/languages/regex/test.pl	3136	3252	
==>_;
    open(PIR, ">$filename") or die "create $filename: $!";

    my $ctx = { };
    my $trees = Regex::expr_to_tree <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28668	28771	
==>$self->{"lookahead"} ? '$text = $_savetext;' : '' ) .'
';

	return $code;
}

1;

package Parse::RecDesce <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30746	30849	
==>$self->{"lookahead"} ? '$text = $_savetext;' : '' ) .'
';

	return $code;
}

1;

package Parse::RecDesce <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32949	33052	
==>$self->{"lookahead"} ? '$text = $_savetext;' : '' ) .'
';

	return $code;
}

1;

package Parse::RecDesce <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123867	124123	
==>@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124741	124997	
==>@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125615	125871	
==>@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	5949	6106	
==>em('', 'extend'),
        ),
        $self->new_group(
            'JIT', 
            '',
            $self->c_item(
                'Parrot\'s JIT subsystem <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849821	849934	
==>],
                  "BODY" => "#line 83 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@2}}, {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850708	850821	
==>],
                  "BODY" => "#line 83 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@2}}, {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851595	851708	
==>],
                  "BODY" => "#line 83 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@2}}, {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852483	852596	
==>],
                  "BODY" => "#line 83 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@2}}, {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	275019	275339	
==>"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 320,
                  "ARGS" => [
                              "i",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 876 \"src/ops <==
4	/Users/nnunley/parrot/examples/mops/mops.pl	528	629	
==>stimated number of ops performed,

=item * the elapsed time, and 

=item * the number of M op/s.

=bac <==
4	/Users/nnunley/parrot/examples/benchmarks/mops.pl	531	631	
==>stimated number of ops performed,

=item * the elapsed time, and

=item * the number of M op/s.

=bac <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	153940	154030	
==>p.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_NUMEQ)) {\n    {{+={{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302148	302435	
==>er, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303024	303311	
==>er, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303900	304187	
==>er, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	5717	5825	
==>int <<EOC;
	$params
EOC
    if ($self && $self ne 'self') {
	print <<EOC;
	.local pmc $self
	$self = self
EOC <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17632	17782	
==>= $1;
          last;
        }
      }
      unless(defined $target) {
        $self->whine(
          $para->[1]{'start_line'},
          "=for witho <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12290	12388	
==>as no known value (as with a name of "qacute") or is
syntactally invalid (as with a name of "1/4"), <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12841	12939	
==>as no known value (as with a name of "qacute") or is
syntactally invalid (as with a name of "1/4"), <==
4	/Users/nnunley/parrot/lib/Test/More.pm	22347	22444	
==>osed to simply commenting out a
block of tests, is it's like having a programmatic todo list.  You <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601649	601880	
==>MP" => 0,
                  "NAME" => "singleton",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	3237	3334	
==>various files');

    $cout .= $self->includes;
    $cout .= dynext_load_code($self->{opt}{library <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8763	8854	
==>const label = string_to_cstring(interpreter, {{\@1}});\n    struct PackFile_FixupEntry *fe = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9879	9970	
==>const label = string_to_cstring(interpreter, {{\@1}});\n    struct PackFile_FixupEntry *fe = <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7559	7764	
==>ine rule name '$lhs' ill formed: ".
                        "report it as a BUG.\n";
                $$dotpos = $1;
            };

            @sempar =       $$dotpos
                        ?   map <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7213	7412	
==>ine rule name '$lhs' ill formed: ".
                        "report it as a BUG.\n";
                $$dotpos = $1;
            };

            @sempar =       $$dotpos
                        ?   map <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11934	12027	
==>ontent)

Given a name or number that could appear in a
C<EE<lt>name_or_numE<gt>> sequence, thi <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12431	12524	
==>ontent)

Given a name or number that could appear in a
C<EE<lt>name_or_numE<gt>> sequence, thi <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	5456	5583	
==>$op    = $props{op}    ? $props{op}->value    : $name;

    if ($type) {
      $handler->start_element({
        Name       => ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883558	883738	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884664	884844	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885770	885950	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886877	887057	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest <==
4	/Users/nnunley/parrot/tools/build/vtable_h.pl	158	250	
==>tools/build/vtable_h.pl - Create the vtable header

=head1 SYNOPSIS

	% perl tools/build/vtab <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028246	1028462	
==>=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029097	1029313	
==>=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029938	1030154	
==>=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARR <==
4	/Users/nnunley/parrot/editor/kate_syntax.pl	2239	2364	
==>/\.//g;
    next if ($ops{$op});
    print "      <item>$op</item>\n";
    $ops{$op} = 1;
}

print <<END;
    </list>

    <li <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072886	1073235	
==>) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075071	1075420	
==>) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077256	1077605	
==>) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079442	1079791	
==>) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247574	247688	
==>> "#line 670 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	248438	248552	
==>> "#line 670 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	249302	249416	
==>> "#line 670 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	15975	16084	
==>e negative?
    #

    if ($token->is_ident
      and $self->get(1)->is_assign
      and $self->get(2)->is_val <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324683	324767	
==>4 \"src/ops/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325476	325560	
==>4 \"src/ops/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327058	327142	
==>4 \"src/ops/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327860	327944	
==>4 \"src/ops/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	47348	47497	
==>);
        }
	],
	[#Rule 16
		 'stat', 5,
sub
#line 116 "Lua\lua51.yp"
{
            BuildRepeat( $_[0], $_[3], $_[5] );
        }
	],
	[#R <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1716	1817	
==>prompt($prompt, $prog ? $prog : $conf->data->get($util));
    }

    my ($stdout, $stderr, $ret) = cap <==
4	/Users/nnunley/parrot/config/inter/make.pm	1590	1691	
==>prompt($prompt, $prog ? $prog : $conf->data->get($util));
    }

    my ($stdout, $stderr, $ret) = cap <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1730	1831	
==>prompt($prompt, $prog ? $prog : $conf->data->get($util));
    }

    my ($stdout, $stderr, $ret) = cap <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867338	867697	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868304	868663	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869270	869629	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870237	870596	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  " <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	7598	7706	
==>[0]\n";
    # and fall thru   
  } elsif(ref( $_[0] ) eq 'SCALAR') {
    $self->{'source_scalar_ref'} = $_[0] <==
4	/Users/nnunley/parrot/tools/build/ops2pm.pl	6853	6958	
==>rint OUT <<END_C;
} parrot_opcode_enums;

#endif

END_C
close OUT;


# if opcode numer is not in ops.num c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436495	436581	
==>/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437510	437596	
==>/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83638	83725	
==>\"src/ops/core.ops\"\n  PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84544	84631	
==>\"src/ops/core.ops\"\n  PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85449	85536	
==>\"src/ops/core.ops\"\n  PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86356	86443	
==>\"src/ops/core.ops\"\n  PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interpreter, <==
4	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	4054	4187	
==>p.
        my $label = "CLASS_$_";
        $label =~ s/\./_/g;
        $pir .= "$label:\n";

        # Now do dispatch for each method <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	3258	3354	
==>label => $curlabel, code => $stmt };
	    $labels{$curlabel->{label}} = $output2[-1] if $curlabel <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349137	349225	
==>to_cstring(interpreter, {{\@2}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, \"+<\" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350139	350227	
==>to_cstring(interpreter, {{\@2}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, \"+<\" <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3095	3196	
==>R';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have anythi <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4853	4954	
==>R';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have anythi <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7781	7881	
==>R'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have anythi <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8637	8737	
==>R'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have anythi <==
4	/Users/nnunley/parrot/tools/build/pbc2c.pl	5307	5432	
==>eturn 1;
    }

    run_native = run_compiled;
    /* TODO make also a shared variant of PackFile_new */
    pf          = Pac <==
4	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2241	2362	
==>r:   no strict 'refs';
        my $pass = $self->{builder}->$builder_func(
                       Parrot::Test::slurp_file <==
4	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2780	2901	
==>r:   no strict 'refs';
        my $pass = $self->{builder}->$builder_func(
                       Parrot::Test::slurp_file <==
4	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2714	2827	
==>r:   no strict 'refs';
        my $pass = $self->{builder}
            ->$builder_func( Parrot::Test::slurp_file <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4547	4647	
==>abel) = @_;

    my $passLabel = $self->{state}->genlabel("pass_charclass");
    my @ops = ("<rx_tmp> <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2854	2949	
==>oin(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PAT <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3163	3258	
==>oin(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PAT <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2958	3053	
==>oin(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PAT <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4411	4541	
==>ranched"
	end
' Logical Operators 
print "      AND   OR    XOR   EQV   IMP   a & ! b"
for i = 0 to 1
for j = 0 to 1
print i; j;
if <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	4409	4529	
==>ast once in file/;
            if ($total_branches) {
                my $covered_branches = int(($percent/100) * $total_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6048	6141	
==>> "#line 144 \"src/ops/core.ops\"\n    Parrot_load_bytecode(interpreter, {{\@1}});\n    {{+=2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6714	6807	
==>> "#line 144 \"src/ops/core.ops\"\n    Parrot_load_bytecode(interpreter, {{\@1}});\n    {{+=2} <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35149	35245	
==>body($self->{methods}[$n], $line, $out_name);
    }
    my $decl = $self->decl($self->{class}, $m <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36452	36548	
==>body($self->{methods}[$n], $line, $out_name);
    }
    my $decl = $self->decl($self->{class}, $m <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38399	38495	
==>body($self->{methods}[$n], $line, $out_name);
    }
    my $decl = $self->decl($self->{class}, $m <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	12141	12265	
==>s")\s+
        {{\@(\d)}}->vtable->
        (\w+)
        \(interpreter,
        \s*
        {{\@(\d)}},\s*{{\@(\d)}},\s*{{\@ <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3121	3240	
==>in
                   'program - only to SUB1.
' Exit tests
sub mysub(b,c)
	print "Print me"
	exit sub
	print "Don't pri <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17088	17207	
==>in
                   'program - only to SUB1.
' Exit tests
sub mysub(b,c)
	print "Print me"
	exit sub
	print "Don't pri <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	965	1076	
==>!
  }

  while (defined $text and $text ne '') {
    next if $text =~ s{^\s+}{};   # Skip all whitespace between <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	8786	8887	
==>se $name is a string overloaded object, force it to stringify.
    $self->_unoverload(\$name);

    $s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	692	782	
==>ko::Construct::Expression::Value::Identifier');
  confess("Left (" . ref($left) . ") is not <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	683	773	
==>ko::Construct::Expression::Value::Identifier');
  confess("Left (" . ref($left) . ") is not <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	572	662	
==>ko::Construct::Expression::Value::Identifier');
  confess("Left (" . ref($left) . ") is not <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	1000	1106	
==>::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK     => $block,

    KI <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	1012	1118	
==>::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK     => $block,

    KI <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1218	1320	
==>::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block,

    KI <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3298	3396	
==>tion
	foo$="Wrong one"
end function
call mysub( 78, 80)
t$=foo$
print t$
t=0
do
	print "This is rig <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5583	5686	
==>t2);
		return(<<CODE, $result);
	# EQV $a1, $a2
	set $result, 0.0
	eq $a1, $ot1, EQ_${eqnum}_a
	inc $res <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	745	845	
==>S CONTEXTS

sub _failmsg {
	my ($message, $pos) = @_;
	$@ = bless { error=>$message, pos=>$pos }, "Te <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2788	2886	
==>-lgmp -lreadline -lpthread -lm -L/opt/local/lib  -licuuc -licudata -lpthread -lm';
        $extraLi <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2583	2681	
==>-lgmp -lreadline -lpthread -lm -L/opt/local/lib  -licuuc -licudata -lpthread -lm';
        $extraLi <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3336	3433	
==>SCRIPTION

This class is a formatter that takes Pod and renders it as
wrapped plaintext.

Its wrap <==
4	/Users/nnunley/parrot/tools/build/ops2c.pl	14194	14289	
==>major_version */
  $minor_version,	/* minor_version */
  $patch_version,	/* patch_version */
  $ <==
4	/Users/nnunley/parrot/config/inter/charset.pm	1461	1572	
==>NONGEN_HEADERS)


END
    }

    # build list of libraries for link line in Makefile
    my $slash = $conf->data <==
4	/Users/nnunley/parrot/config/inter/encoding.pm	1478	1589	
==>NONGEN_HEADERS)


END
    }

    # build list of libraries for link line in Makefile
    my $slash = $conf->data <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33602	33708	
==>[0][0] eq '~Para') {
              DEBUG and print "Assimilating following ~Para content into $over_type it <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35415	35521	
==>[0][0] eq '~Para') {
              DEBUG and print "Assimilating following ~Para content into $over_type it <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7931	8029	
==>elf and ref $self and $self->isa("Jako::Construct::Block");
  confess "No identifier name!"  unless <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8578	8676	
==>elf and ref $self and $self->isa("Jako::Construct::Block");
  confess "No identifier name!"  unless <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9246	9344	
==>elf and ref $self and $self->isa("Jako::Construct::Block");
  confess "No identifier name!"  unless <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9915	10013	
==>elf and ref $self and $self->isa("Jako::Construct::Block");
  confess "No identifier name!"  unless <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	2207	2360	
==>and build a data structure.
# ############################################
sub parse_rules($) {
    # Get filename and open the file.
    my $filename = s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1490	1597	
==>ame;

  my $sym = $block->find_symbol($name);

  #
  # If the identifier is already defined at ANY lexical s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78944	79036	
==>(interpreter, ({{\@3}}));\n\n  void * const p = Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? NULL : PM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80465	80557	
==>(interpreter, ({{\@3}}));\n\n  void * const p = Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? NULL : PM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125867	126212	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rot",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127001	127346	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rot",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128136	128481	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rot",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	5344	5495	
==>$f == 0) {
                # first line of a top-level block (first line of a function,
                # in other words)
                my ($indent) = <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24215	24316	
==>($self,$node) = @_;
  my $return;
  my $num_children = defined $node->{children} ? @{$node->{children} <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25103	25204	
==>($self,$node) = @_;
  my $return;
  my $num_children = defined $node->{children} ? @{$node->{children} <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26114	26215	
==>($self,$node) = @_;
  my $return;
  my $num_children = defined $node->{children} ? @{$node->{children} <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27003	27104	
==>($self,$node) = @_;
  my $return;
  my $num_children = defined $node->{children} ? @{$node->{children} <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	34267	34387	
==>t->[$i][2];
        if($it =~ m/^[-a-zA-Z0-9]+\([-a-zA-Z0-9]+\)$/s) { # man sections
          # Hopefully neither too br <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20862	20962	
==>ef }
sub isterminal { 0 }

sub code($$$$)
{
	my ($self, $namespace, $rule) = @_;
	
''.($::RD_NO_TRACE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627443	627530	
==>_new_noinit(interpreter, {{\@2}});\n  {{\@1}}->vtable->init(interpreter, {{\@1}});\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628587	628674	
==>_new_noinit(interpreter, {{\@2}});\n  {{\@1}}->vtable->init(interpreter, {{\@1}});\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350987	351175	
==>PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351649	351837	
==>PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9031	9123	
==>interpreter->resume_offset = fe->offset;\n        Parrot_switch_to_cs(interpreter, fe->seg, 1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10147	10239	
==>interpreter->resume_offset = fe->offset;\n        Parrot_switch_to_cs(interpreter, fe->seg, 1 <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63153	63247	
==>("repetition",$line,"$code$argcode($1)");

						!$matchrule and $rule and $rule->addcall($name <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63874	63968	
==>("repetition",$line,"$code$argcode($1)");

						!$matchrule and $rule and $rule->addcall($name <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64590	64684	
==>("repetition",$line,"$code$argcode($1)");

						!$matchrule and $rule and $rule->addcall($name <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62516	62609	
==>("repetition",$line,"$code$argcode($1)");

					!$matchrule and $rule and $rule->addcall($name <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83895	84185	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84801	85091	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85707	85997	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	1025	1125	
==>t silly:
	# do we ever export anything else than 'struct'...?
      $self->export_to_level( 1, $self, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762598	762886	
==>{
                  "JUMP" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763450	763738	
==>{
                  "JUMP" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764303	764591	
==>{
                  "JUMP" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765156	765444	
==>{
                  "JUMP" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Compilers.pm	527	658	
==>tem C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shift;
    
    return $self->SUPER::new(
        'C <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	2385	2505	
==>tem C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shift;
    
    return $self->SUPER::new(
        'C <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1178	1294	
==>tem C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shift;

    return $self->SUPER::new(
        'C <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	1342	1447	
==>tem C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new(
		'C <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	686	777	
==>ef($block) . ") is not!"  unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confe <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	561	651	
==>ef($block) . ") is not!" unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confe <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	570	660	
==>ef($block) . ") is not!" unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confe <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	552	642	
==>ef($block) . ") is not!" unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confe <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	828	921	
==>y match.  Note that patterns should be specified as strings
and without leading/trailing patte <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2926	3019	
==>y match.  Note that patterns should be specified as strings
and without leading/trailing patte <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	696	785	
==>ss UNIVERSAL::isa($type, qw(Jako::Construct::Type));
  confess "Identifier (" . ref($ident <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	685	773	
==>ss UNIVERSAL::isa($type, qw(Jako::Construct::Type));
  confess "Identifier (". ref($ident <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457206	457319	
==>"BODY" => "#line 240 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458061	458174	
==>"BODY" => "#line 240 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458916	459029	
==>"BODY" => "#line 240 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	21059	21165	
==>urn op('group', [ op('call' => [ $_[3], 1 ]), ++$::paren ]) }
	],
	[#Rule 26
		 'expr', 1,
sub
#line 141 "l <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640737	641026	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641501	641790	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645957	646246	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAG <==
4	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	87	185	
==>les only if the inputs have
changed, as judged by their checksums.

=head1 USAGE

  rebuild.pl [-v] <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30398	30499	
==>st($text))
							if defined $::RD_TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent:: <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32598	32699	
==>st($text))
							if defined $::RD_TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent:: <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28323	28423	
==>st($text))
					if defined $::RD_TRACE;').'

			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent:: <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	35016	35110	
==>nce both sets of C<'{..}'> brackets are properly nested and evenly balanced.
(In a scalar conte <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	12214	12332	
==>temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_N($reg_num);";
        return "t_$t <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4285	4375	
==>{STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${DEST$pus <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2701	2791	
==>{STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${DEST$pus <==
4	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	114	202	
==>003, The Perl Foundation.
# $Id: /parrot/tools/dev/extract_file_descriptions.pl 19607 200 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960998	961088	
==>tring_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, {{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961960	962050	
==>tring_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, {{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962922	963012	
==>tring_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, {{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963885	963975	
==>tring_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, {{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436269	436531	
==>"ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 94 \"src/ops/math.ops\"\n  {{\@2}} = mmd_disp <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11787	12002	
==>dSetOp( $parser,
                        'arg1'   => $last_key->[0],
                        'arg2'   => undef,
                        'result' => $result,
                    );
                    return [ $d <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9987	10182	
==>dSetOp( $parser,
                    'arg1'   => $last_key->[0],
                    'arg2'   => undef,
                    'result' => $result,
                );
                return [ $d <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8842	8997	
==>dSetOp( $parser,
            'arg1'   => $last_key->[0],
            'arg2'   => undef,
            'result' => $result,
        );
        return [ $d <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704727	704899	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705719	705891	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706711	706883	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	707704	707876	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321885	322148	
==>E" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322656	322919	
==>E" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323428	323691	
==>E" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
4	/Users/nnunley/parrot/config/auto/gmp.pm	1211	1335	
==>y for finding
    # where Fink lives.
    if ($osname =~ /darwin/) {
        if (-f "/sw/include/gmp.h") {
            $conf- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516722	517014	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517461	517753	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518199	518491	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518938	519230	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	6640	6793	
==>Parrot\'s layer-based I/O subsystem.', 
                'headers' => ['io'], 
                'contents' => ['src/io']
            ),
        ),
        $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691210	691354	
==>ops/pmc.ops\"\n   {{\@1}} = Parrot_thaw(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691967	692111	
==>ops/pmc.ops\"\n   {{\@1}} = Parrot_thaw(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2451	2580	
==>def', 'apply_CALL'],
  ['',            'set', 'P10', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255833	256149	
==>,
                  "NAME" => "xor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256740	257056	
==>,
                  "NAME" => "xor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257648	257964	
==>,
                  "NAME" => "xor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/config/gen/icu.pm	1506	1610	
==>ut && $autodetect && $icuconfig && $icuconfig ne "none") {
            my $slash = $conf->data->get('slas <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579694	579987	
==>r, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580999	581292	
==>r, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582304	582597	
==>r, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583610	583903	
==>r, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22123	22261	
==>'
        );
        DEBUG and print "Ignoring mistargetted =end $content\n";
        next;
      }
      
      unless(@$curr_open and $cu <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6789	6899	
==>n hooks.
sub pre_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If we need a destinati <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4727	4837	
==>n hooks.
sub pre_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If we need a destinati <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3599	3709	
==>n hooks.
sub pre_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If we need a destinati <==
4	/Users/nnunley/parrot/config/auto/headers.pm	1864	1983	
==>ith all the
        # headers we found so far. This is somewhat a hack, but makes probing
        # work on *BSD where s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1679	1769	
==>lue);
  $self->SYNTAX_ERROR("Assigning to unknown variable %s.", $dest->value) unless $dest <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1637	1727	
==>lue);
  $self->SYNTAX_ERROR("Assigning to unknown variable %s.", $dest->value) unless $dest <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1559	1649	
==>lue);
  $self->SYNTAX_ERROR("Assigning to unknown variable %s.", $dest->value) unless $dest <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	1645	1774	
==>ef $parent_path if $parent_path eq $path;
    
    $self = bless {
        PATH => $path,
        NAME => $name,
        PARENT_PA <==
4	/Users/nnunley/parrot/tools/build/revision_c.pl	379	468	
==>sion.pl>,
F<lib/Parrot/Revision.pm>,
F<include/parrot/config.h>

=cut

use strict;
use Par <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Ops.pm	32	117	
==>oundation.
# $Id: /parrot/lib/Parrot/Docs/Section/Ops.pm 20333 2006-06-21T18:44:31.111 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857724	858056	
==>);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6176	6278	
==>'infix-rel');     }
sub require_semicolon     { return shift->require('semicolon');     }
sub require_t <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1032	1118	
==>ue!" if defined $left and not UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1060	1146	
==>ue!" if defined $left and not UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	732	818	
==>ue!" if defined $left and not UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19706	19868	
==>nt == 0 goto lastback
#                 $matchcount--
#                 goto R.back
#           back: if $matchcount >= max goto rfail
#                 R or rfail <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19408	19562	
==>nt == 0 goto lastback
#               $matchcount--
#               goto R.back
#         back: if $matchcount >= max goto rfail
#               R or rfail <==
4	/Users/nnunley/parrot/config/gen/cpu.pm	806	925	
==>:auto";

    print "\t(cpu hints = '$hints') " if $verbose;

    eval "use $hints";
    unless ($@) {
        $hints->ru <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16083	16183	
==>oid context: alter in-place!
    for(@_) {
      s/([F\x00-\x1F\\\{\}\x7F-\xFF])/$Escape{$1}/g;  # ES <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393720	394047	
==>" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 457,
                  "ARGS" => [
                              "i",
                              " <==
4	/Users/nnunley/parrot/lib/Test/More.pm	28671	28785	
==>sh @Data_Stack, { type => 'ARRAY', idx => $_, vals => [$e1, $e2] };
        $ok = _deep_check($e1,$e2);
        pop <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	17979	18083	
==>lan.");
    }

    lock($self->{Curr_Test});
    $self->{Curr_Test}++;

    $self->{Test_Results}[$self-> <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	18844	18948	
==>lan.");
    }

    lock($self->{Curr_Test});
    $self->{Curr_Test}++;

    $self->{Test_Results}[$self-> <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332525	332628	
==>}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* string_c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333803	333906	
==>}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* string_c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335081	335184	
==>}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* string_c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336360	336463	
==>}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* string_c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908798	909097	
==>ME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909694	909993	
==>ME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910591	910890	
==>ME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911488	911787	
==>ME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1358	1476	
==>n shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $block = $self->b <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1706	1824	
==>n shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $block = $self->b <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1842	1960	
==>n shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $block = $self->b <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1485	1603	
==>n shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $block = $self->b <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5121	5229	
==>=0;

#DBG>	my($ShowCurToken) = sub {
#DBG>		my($tok)='>';
#DBG>		for (split('',$$token)) {
#DBG>			$tok. <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4875	4978	
==>=0;

#DBG>	my($ShowCurToken) = sub {
#DBG>		my($tok)='>';
#DBG>		for (split('',$$token)) {
#DBG>			$tok. <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39517	39613	
==>eth");
    PMC *sub = find_or_die(interpreter, pmc, meth);
    ${func_ret}Parrot_run_meth_fromc_a <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83677	83773	
==>preg_hash = VTABLE_get_pmc_keyed_int(interpreter,\n      interpreter->iglobals, IGLOBALS_COMPREG_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84583	84679	
==>preg_hash = VTABLE_get_pmc_keyed_int(interpreter,\n      interpreter->iglobals, IGLOBALS_COMPREG_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85488	85584	
==>preg_hash = VTABLE_get_pmc_keyed_int(interpreter,\n      interpreter->iglobals, IGLOBALS_COMPREG_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86395	86491	
==>preg_hash = VTABLE_get_pmc_keyed_int(interpreter,\n      interpreter->iglobals, IGLOBALS_COMPREG_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615720	615987	
==>ction",
                  "CODE" => 697,
                  "ARGS" => [
                              "i",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 508 \"src/ops/object.ops\" <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1161	1251	
==>ined $right and not UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $se <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1189	1279	
==>ined $right and not UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $se <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	861	951	
==>ined $right and not UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $se <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8771	8866	
==>number distribution
randomize timer
max=10
dim a(max)
for i = 0 to 100
	b=rnd*max+1
	a(b)=a(b)+1 <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20012	20107	
==>number distribution
randomize timer
max=10
dim a(max)
for i = 0 to 100
	b=rnd*max+1
	a(b)=a(b)+1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553989	554079	
==>interpreter->current_cont = {{\@3}};\n  interpreter->current_method = meth;\n  method_pmc = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555386	555476	
==>interpreter->current_cont = {{\@3}};\n  interpreter->current_method = meth;\n  method_pmc = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256411	256675	
==>& ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257319	257583	
==>& ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258227	258491	
==>& ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/languages/dotnet/Configure.pl	2279	2422	
==>$fh;
}


# Generate Config.pm.
# ###################
sub generate_config_pm(%) {
	my %config = @_;
	
	# Read in template.
	my $fh;
	o <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8643	8741	
==>XT] eq "BARE" or $type[NEXT] eq "COMM")) {  # Line number!
		create_label();
		$currline="$labels{$ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544568	544664	
==>b)>>1;\n }\n \n gcd = b<<p;\n saved_var1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\n {{+=4}};\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545904	546000	
==>b)>>1;\n }\n \n gcd = b<<p;\n saved_var1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\n {{+=4}};\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547240	547336	
==>b)>>1;\n }\n \n gcd = b<<p;\n saved_var1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\n {{+=4}};\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072621	1072729	
==>s({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074806	1074914	
==>s({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076991	1077099	
==>s({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079177	1079285	
==>s({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	5261	5386	
==>{
            chmod 0755, "$dest/$_$LOAD_EXT";
        }

    }
}
else {
    die "invalid command '$mode'\nmust be one of gene <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	5472	5597	
==>{
            chmod 0755, "$dest/$_$LOAD_EXT";
        }

    }
}
else {
    die "invalid command '$mode'\nmust be one of gene <==
4	/Users/nnunley/parrot/languages/dotnet/Configure.pl	2729	2834	
==>ig/N2PConfig.pm\n";
	print $fh $config_pm;
	close $fh;
}


# Generate makefile instructions to trans <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39254	39348	
==>to_file,
  'with-output-from-file' => \&_op_with_output_from_file,
  'open-input-file'       => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206498	206610	
==>e->get_integer(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207440	207552	
==>e->get_integer(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	9357	9460	
==>s[CURR] eq "(");
		$parens-- if ($syms[CURR] eq ")");
		#print "Read $syms[CURR]...";
		last if (not $pa <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4257	4359	
==>DEST0}
${INS} = concat "\n"
PIR
	} else {
		# Translator needs to emit an instruction to push the value <==
4	/Users/nnunley/parrot/tools/dev/cc_flags.pl	174	347	
==>pl 19607 2006-05-30T15:23:20.183054Z coke  $
################################################################################

=head1 NAME

tools/dev/cc_flags.pl - Process co <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	1702	1827	
==>_file_with_name($name));
        }
    }
    
    if ( exists $contents{'sources'} )
    {
        foreach my $name (@{$conten <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	21703	21803	
==>RANCH_$prefix$r2[0]->{'code'}\n";
        $pir .= "    if cur_ic < 0x$r2[0]->{'code'} goto INS_BRANCH <==
4	/Users/nnunley/parrot/editor/kate_syntax.pl	3767	3863	
==>empRegister" context="#stay" String="\\\$[INSP]\\d+" />
          <RegExpr attribute="String" con <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344447	344547	
==>ing_cstring_free(path); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(inter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345689	345789	
==>ing_cstring_free(path); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(inter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346931	347031	
==>ing_cstring_free(path); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(inter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348174	348274	
==>ing_cstring_free(path); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(inter <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2455	2574	
==>lf{USER};
	
}

sub YYErrok {
	my($self)=shift;

	${$$self{ERRST}}=0;
    undef;
}

sub YYNberr {
	my($self)= <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2357	2464	
==>lf{USER};
	
}

sub YYErrok {
	my($self)=shift;

	${$$self{ERRST}}=0;
    undef;
}

sub YYNberr {
	my($self)= <==
4	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	543	645	
==>);
    my $out_f     = Parrot::Test::per_test('.out',$count);
    my $parrotdir = dirname $self->{parro <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	580	682	
==>);
    my $out_f     = Parrot::Test::per_test('.out',$count);
    my $parrotdir = dirname $self->{parro <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2917	3025	
==>.= "\n");
  $out =~ tr{\xA0}{ } if Pod::Simple::ASCII;
  print {$self->{'output_fh'}} $out,
    #"\n"
  ;
  $ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2451	2551	
==>.= "\n");
  $out =~ tr{\xA0}{ } if Pod::Simple::ASCII;
  print {$self->{'output_fh'}} $out, "\n";
  $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947122	947214	
==>0)\n    real_exception(interpreter, NULL, 1,\n\t\"charset '%Ss' not found\", {{\@2}});\n  {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948024	948116	
==>0)\n    real_exception(interpreter, NULL, 1,\n\t\"charset '%Ss' not found\", {{\@2}});\n  {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467630	467723	
==>2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zer <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468501	468594	
==>2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zer <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477053	477146	
==>2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zer <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477949	478042	
==>2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zer <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3609	3723	
==>t);
}

sub output_if {
    my ($self, $reg, $dest) = @_;
    $reg = value($reg);
    return "if $reg, " . $self->ou <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11069	11155	
==>f "${CURIC}" == "73" goto pre_call_HAS_RETURN_${CURIC}
goto pre_call_NO_RETURN_${CURIC} <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8255	8341	
==>f "${CURIC}" == "73" goto pre_call_HAS_RETURN_${CURIC}
goto pre_call_NO_RETURN_${CURIC} <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5917	6003	
==>f "${CURIC}" == "73" goto pre_call_HAS_RETURN_${CURIC}
goto pre_call_NO_RETURN_${CURIC} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131303	131436	
==>,
                  "BODY" => "#line 306 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132158	132291	
==>,
                  "BODY" => "#line 306 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133013	133146	
==>,
                  "BODY" => "#line 306 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	174	278	
==>EXPORT_OK %EXPORT_TAGS);
use Carp;

$VERSION   = '0.01';
@ISA       = qw(Exporter);
@EXPORT_OK = qw(gener <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630639	630734	
==>, readable_name(interpreter, class));\n    {{\@1}} = pmc_new(interpreter, type);\n    {{+=3}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631629	631724	
==>, readable_name(interpreter, class));\n    {{\@1}} = pmc_new(interpreter, type);\n    {{+=3}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776969	777105	
==>"
                            ],
                  "BODY" => "#line 382 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777878	778014	
==>"
                            ],
                  "BODY" => "#line 382 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778787	778923	
==>"
                            ],
                  "BODY" => "#line 382 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779697	779833	
==>"
                            ],
                  "BODY" => "#line 382 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033405	1033502	
==>_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034503	1034600	
==>_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035715	1035812	
==>_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036879	1036976	
==>_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656320	656460	
==>"
                            ],
                  "BODY" => "#line 324 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}-> <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657244	657384	
==>"
                            ],
                  "BODY" => "#line 324 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}-> <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	880	978	
==>nstruct::Expression::Value');
  confess "Op is not scalar!" if ref $op;
  confess "Right is not Val <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	892	990	
==>nstruct::Expression::Value');
  confess "Op is not scalar!" if ref $op;
  confess "Right is not Val <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667575	667800	
==>_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668349	668574	
==>_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676066	676291	
==>_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676846	677071	
==>_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	11020	11129	
==>eeking =head1
      if( $token->is_start and $token->tagname eq 'head1' ) {
        DEBUG and print "  Found h <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4015	4118	
==>.
	$pir .= "\${ITEMP0} = 0\n";
	for (1..$pushes) {
		$pir .= <<'PIR';
# Increment stack depth.
inc stack <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2431	2534	
==>.
	$pir .= "\${ITEMP0} = 0\n";
	for (1..$pushes) {
		$pir .= <<'PIR';
# Increment stack depth.
inc stack <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	3258	3356	
==>, Str $expected_type, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $out := define <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197300	197418	
==>,
                  "BODY" => "#line 366 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198197	198315	
==>,
                  "BODY" => "#line 366 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199094	199212	
==>,
                  "BODY" => "#line 366 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  { <==
4	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1622	1729	
==>h to the smoke server.
  --version
    Outputs the version of this program and exits.
  --help
    Show this <==
4	/Users/nnunley/parrot/lib/Test/More.pm	233	342	
==>arp {
    my($file, $line) = (caller(1))[1,2];
    warn @_, " at $file line $line\n";
}



require Exporter;
u <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	705	797	
==>SAL::isa($type, qw(Jako::Construct::Type));
  confess "Identifier (" . ref($ident) . ") is no <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	730	821	
==>SAL::isa($type, qw(Jako::Construct::Type));
  confess "Identifier (". ref($ident) . ") is no <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	694	785	
==>SAL::isa($type, qw(Jako::Construct::Type));
  confess "Identifier (". ref($ident) . ") is no <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253268	253565	
==>ME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254130	254427	
==>ME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254993	255290	
==>ME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8953	9046	
==>ethod that uses find_symbol() to locate a matching
symbol, and then returns that symbol's scop <==
4	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	966	1103	
==>exit_code = Parrot::Test::run_command($cmd, CD => $self->{relpath},
                                           STDOUT => $out_f, STDERR => <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1007	1144	
==>exit_code = Parrot::Test::run_command($cmd, CD => $self->{relpath},
                                           STDOUT => $out_f, STDERR => <==
4	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	1124	1255	
==>exit_code = Parrot::Test::run_command( $cmd, 
						    CD     => $self->{relpath},
						    STDOUT => $out_f, 
						    STDERR => <==
4	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2057	2160	
==>exit_code = Parrot::Test::run_command($cmd, #CD => $self->{relpath},
					   STDOUT => $out_f, STDERR => <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	12641	12766	
==>$util) = $util =~ /(\S+)/;
        my $path = which($util);

        if ($verbose) {
            print "$path is executable\n" <==
4	/Users/nnunley/parrot/languages/scheme/Scheme.pm	91	189	
==>ckage Scheme;

use strict;

use Data::Dumper;

use Scheme::Tokenizer();
use Scheme::Parser();
use S <==
4	/Users/nnunley/parrot/examples/benchmarks/mops.pl	249	338	
==>=head1 DESCRIPTION

A Perl implementation of the F<examples/mops/mops.pasm> example progra <==
4	/Users/nnunley/parrot/examples/mops/mops.pl	245	334	
==>=head1 DESCRIPTION

A Perl implementation of the F<examples/mops/mops.pasm> example progra <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044674	1044771	
==>Y" => "#line 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045568	1045665	
==>Y" => "#line 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046462	1046559	
==>Y" => "#line 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047357	1047454	
==>Y" => "#line 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\ <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	4252	4408	
==>2} ) {
            print {$FH}
                "  new $op->{result}->{symbol}, $op->{arg1}, $op->{arg2}\n";
        }
        else {
            print { <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	14872	14999	
==>f = 1 unless $f =~ /lambda/;
}

sub binary
{
    my ($op, $cmt) = @_;
    my $r = pop @stack;
    my $l = pop @stack;
    my ($t <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	19490	19599	
==>2 and
         print " Considering whether =begin $content matches $target_name\n";
        next unless $self- <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	14270	14361	
==>ex('/$regex/');

Convenience method for building testing functions that take regular
express <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763129	763231	
==>}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763982	764084	
==>}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764835	764937	
==>}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765689	765791	
==>}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3055	3161	
==>ining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4813	4919	
==>ining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1977	2083	
==>ining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3229	3335	
==>ining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES <==
4	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	2316	2466	
==>= @_;
        if ( exists $self->{table}{$symb} ) {
            my $defn = $self->{table}{$symb};
            return $defn;
        }
        retu <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5513	5625	
==>t,$stateno);

        $stateno=$$stack[-1][0];
        $actions=$$states[$stateno];

#DBG>	print STDERR ('-' <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5248	5355	
==>t,$stateno);

        $stateno=$$stack[-1][0];
        $actions=$$states[$stateno];

#DBG>	print STDERR ('-' <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4181	4286	
==>'nc' => "(*(FLOATVAL *)cur_opcode[%ld])",
        'sc' => "((STRING *)cur_opcode[%ld])",
        'pc' => " <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2627	2748	
==>\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else {
        $liblist = join( ' ', map { "-l$_" } keys %$li <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2936	3057	
==>\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else {
        $liblist = join( ' ', map { "-l$_" } keys %$li <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2731	2852	
==>\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else {
        $liblist = join( ' ', map { "-l$_" } keys %$li <==
4	/Users/nnunley/parrot/editor/kate_syntax.pl	910	1003	
==>c_begin_yield
    .pcc_end_yield .namespace .endnamespace .macro .include);
my @pod_start = qw <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1356	1458	
==>to ADDRESS($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ( <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1881	1983	
==>to ADDRESS($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ( <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1772	1874	
==>to ADDRESS($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ( <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1496	1598	
==>to ADDRESS($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ( <==
4	/Users/nnunley/parrot/config/inter/charset.pm	1091	1192	
==>ist) =~ s/\.c/\$(O)/g;

    my $TEMP_charset_build = <<"E_NOTE";

# the following part of the Makefile <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276156	276246	
==>BODY" => "#line 881 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277034	277124	
==>BODY" => "#line 881 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277912	278002	
==>BODY" => "#line 881 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746332	746572	
==>",
                  "CODE" => 840,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 189 \"src/ops/set.ops\"\n  {{\@1}} = {{\ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2698	2790	
==>L_ERROR("No type for dest!")  unless defined $dest_type;
  $self->INTERNAL_ERROR("No type for <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2464	2556	
==>L_ERROR("No type for dest!")  unless defined $dest_type;
  $self->INTERNAL_ERROR("No type for <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2386	2478	
==>L_ERROR("No type for dest!")  unless defined $dest_type;
  $self->INTERNAL_ERROR("No type for <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573158	573429	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574068	574339	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574871	575142	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26909	27025	
==>n,$temp]);
      $self->_restore($temp);
    }
  }
  return $return;
}

sub _op_divide {
  my ($self,$node) = @_;
  m <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344566	344880	
==>_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345808	346122	
==>_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347050	347364	
==>_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348293	348607	
==>_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412793	412993	
==>",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413920	414120	
==>",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561787	561876	
==>src/ops/object.ops\"\n  opcode_t *next = {{^+4}};\n  {{\@1}} = VTABLE_find_method(interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562871	562960	
==>src/ops/object.ops\"\n  opcode_t *next = {{^+4}};\n  {{\@1}} = VTABLE_find_method(interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296135	296277	
==>} = mmd_dispatch_i_pp(interpreter, {{\@2}}, {{\@3}}, MMD_EQ);\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9165	9310	
==>elf);
                $$errstatus # if 0, then YYErrok has been called
            or  next;       # so continue parsing

#DBG>			$debug & 0x1 <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8751	8892	
==>elf);
                $$errstatus # if 0, then YYErrok has been called
            or  next;       # so continue parsing

#DBG>			$debug & 0x1 <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3475	3584	
==>ib}->value; # TODO: We should make sure its a string, somewhere.
    }
    else {
      $self->SYNTAX_ERROR("S <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6139	6248	
==>ib}->value; # TODO: We should make sure its a string, somewhere.
    }
    else {
      $self->SYNTAX_ERROR("S <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94866	95002	
==>"s"
                            ],
                  "BODY" => "#line 63 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_and(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95759	95895	
==>"s"
                            ],
                  "BODY" => "#line 63 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_and(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550122	550211	
==>\n  interpreter->current_cont = NEED_CONTINUATION;\n  interpreter->current_method = meth;\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551423	551512	
==>\n  interpreter->current_cont = NEED_CONTINUATION;\n  interpreter->current_method = meth;\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939741	940017	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940632	940908	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941524	941800	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942416	942692	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568519	568848	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" => ":object_base",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569411	569740	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" => ":object_base",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570304	570633	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" => ":object_base",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571258	571587	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" => ":object_base",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591477	591571	
==>{{^+4}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592687	592781	
==>{{^+4}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593897	593991	
==>{{^+4}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595108	595202	
==>{{^+4}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\ <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30605	30748	
==>CTIONS => {
			"-" => 72,
			"<" => 74,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<= <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39955	40098	
==>CTIONS => {
			"-" => 72,
			"<" => 74,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<= <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41582	41725	
==>CTIONS => {
			"-" => 72,
			"<" => 74,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<= <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11710	11805	
==>ion)>

Resolves the POD link. Perl modules are converted to paths.

=cut

sub resolve_pod_page_l <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2589	2688	
==>elf->right;

  if (defined $cond) {
    $handler->start_element({ Name => 'cond', Attributes => { ki <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3263	3362	
==>elf->right;

  if (defined $cond) {
    $handler->start_element({ Name => 'cond', Attributes => { ki <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3353	3452	
==>elf->right;

  if (defined $cond) {
    $handler->start_element({ Name => 'cond', Attributes => { ki <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	1983	2080	
==>k" else print "Wrong"
if 5<5 then print "Wrong" else print "Ok"
if 6<5 then print "Wrong" else pri <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	990951	991152	
==>",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992088	992289	
==>",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993225	993426	
==>",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994363	994564	
==>",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_c <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	39750	39863	
==>/^([INSP])_ARG_(\d+)$/ || /^([INSP])TEMP(\d+)$/) {
			my $type = $1 eq 'I' ? 'int' :
			           $1 eq 'N' ? 'nu <==
4	/Users/nnunley/parrot/tools/build/pbc2c.pl	3057	3154	
==>d to the rewriting rules for the various
	# forms of goto recognized by Parrot/OpsFile.pm and Parr <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	35778	35874	
==>u planned, the missing (or extras)
will be considered failures.  If no tests were ever run Test:: <==
4	/Users/nnunley/parrot/lib/Test/More.pm	33849	33945	
==>u planned, the missing (or extras)
will be considered failures.  If no tests were ever run Test:: <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	2645	2741	
==>u planned, the missing (or extras)
will be considered failures.  If no tests were ever run Test:: <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	4289	4449	
==>);
        return;
    }
    
    my $text = $next->text;
                    
    if ( $text =~ /^Parrot::/o )
    {
        # TODO - C<Perl::Module> should rea <==
4	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1079	1172	
==>a->agent("pugs-smokeserv-client/" . VERSION);
  $ua->env_proxy;

  my $resp = $ua->post($smoke <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7147	7236	
==>P0} = ${LOADTYPE}["reg_type_short"]
${DEST0} = concat ${STEMP0}
${STEMP0} = stack_depth
${ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4969	5058	
==>P0} = ${LOADTYPE}["reg_type_short"]
${DEST0} = concat ${STEMP0}
${STEMP0} = stack_depth
${ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858516	858613	
==>=> "#line 118 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859520	859617	
==>=> "#line 118 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860524	860621	
==>=> "#line 118 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861529	861626	
==>=> "#line 118 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905314	905403	
==>rc/ops/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2}}, {{\@3}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906333	906422	
==>rc/ops/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2}}, {{\@3}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907352	907441	
==>rc/ops/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2}}, {{\@3}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908372	908461	
==>rc/ops/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2}}, {{\@3}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1363	1464	
==>ESS($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($self, <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1888	1989	
==>ESS($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($self, <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1779	1880	
==>ESS($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($self, <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1503	1604	
==>ESS($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($self, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766037	766301	
==>=> 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766889	767153	
==>=> 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767742	768006	
==>=> 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768595	768859	
==>=> 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/config/auto/perldoc.pm	968	1176	
==>a = <FH>;
                close FH;
                $version = 2;
                $self->set_result('yes');
            } else {
                $a = undef;
            }
        }
        unless (defined $a & <==
4	/Users/nnunley/parrot/config/auto/gmp.pm	2309	2427	
==>ata->set('linkflags', $linkflags);
        print " (no) " if $verbose;
        $self->set_result('no');
    }

    retu <==
4	/Users/nnunley/parrot/config/auto/readline.pm	2109	2227	
==>ata->set('linkflags', $linkflags);
        print " (no) " if $verbose;
        $self->set_result('no');
    }

    retu <==
4	/Users/nnunley/parrot/lib/Test/More.pm	17049	17154	
==>ode that depends on the use...
       ...happening at compile time...
   }

because the notion of "compile <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	5738	5862	
==>plan twice!  Second plan at %s line %d\n",
          ($self->caller)[1,2];
    }

    if( $cmd eq 'no_plan' ) {
        $self <==
4	/Users/nnunley/parrot/examples/benchmarks/addit.pl	765	863	
==>) {
    $result = varargs_adder(@args);
}
print "$result\n";

=head1 SEE ALSO

F<examples/benchmark <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1800	1898	
==>Simple::Debug (5);  # or some integer

Or:

 my $debuglevel;
 use Pod::Simple::Debug (\$debuglevel, <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	52658	52750	
==>overlapping fields as
possible, by repeatedly applying each of the specified extractors
to th <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	842	957	
==>::Simple::DEBUG ) {
    require Carp;
    Carp::croak("It's too late to call Pod::Simple::Debug -- "
              . <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11376	11472	
==>ent = Jako::Construct::Expression::Value::Identifier->new($block, $token);
      my $op    = subs <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11923	12019	
==>ent = Jako::Construct::Expression::Value::Identifier->new($block, $token);
      my $op    = subs <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12466	12562	
==>ent = Jako::Construct::Expression::Value::Identifier->new($block, $token);
      my $op    = subs <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	4466	4575	
==>T] ne "COMM");
		#print "Single if!\n" if $singleif;
		$ifline++;
		if ($type[NEXT] eq "INT") {  # if x then l <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	4967	5059	
==>( $example_f, $expected, @todo )>

Determine the language from the extension of C<$example_f> <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	5180	5272	
==>( $example_f, $expected, @todo )>

Determine the language from the extension of C<$example_f> <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	5395	5487	
==>( $example_f, $expected, @todo )>

Determine the language from the extension of C<$example_f> <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3461	3616	
==>er {
    my($self)=shift;

	$$self{LEX};
}


#################
# Private stuff #
#################


sub _CheckParams {
	my($mandatory,$checkli <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3286	3428	
==>er {
    my($self)=shift;

	$$self{LEX};
}


#################
# Private stuff #
#################


sub _CheckParams {
	my($mandatory,$checkli <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4867	4991	
==>exc);
        my $last = shift(@$incexc);
        if (defined($last)) {
            push @ops, "goto $fail if <rx_tmp> < $fir <==
4	/Users/nnunley/parrot/config/auto/gcc.pm	2099	2209	
==>e access to is for 2.95, so I don't know what version
        # everything came in at. If it turns out that you <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	6094	6248	
==>!\@_) { \$r->$elem = \$i; return \$r }\n";
                $sel = "->{\$i}";
            }
            elsif( defined $classes{$name} ){
                if <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183270	183388	
==>,
                  "BODY" => "#line 285 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184166	184284	
==>,
                  "BODY" => "#line 285 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185062	185180	
==>,
                  "BODY" => "#line 285 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680784	681075	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681560	681851	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682334	682625	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683109	683400	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => " <==
4	/Users/nnunley/parrot/config/init/defaults.pm	2963	3087	
==>lddlflags},

        # Flags to tell ld to build a dynamically loadable module, e.g.
        # -shared for GNU ld.
        ld <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9998	10088	
==>st in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLO <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7512	7602	
==>st in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLO <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6476	6566	
==>st in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLO <==
4	/Users/nnunley/parrot/tools/dev/nm.pl	8231	8358	
==>$$show++;
			} else {
			    $$show = 0;
			}
		    }
		}
		want_show(\$show, $Code,   $code  ) if $show;
		want_show(\$show, $D <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1469	1586	
==>en,$value,$check,$dotpos);
    my($self)={ ERROR => \&_Error,
				ERRST => \$errst,
                NBERR => \$nber <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	25351	25466	
==>_f);

            my $meth = $c_test_map{$func};
            my $pass = $builder->$meth(slurp_file($out_f), $expecte <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1419	1533	
==>en,$value,$check,$dotpos);
    my($self)={ ERROR => \&_Error,
				ERRST => \$errst,
                NBERR => \$nber <==
4	/Users/nnunley/parrot/languages/perms.pl	479	591	
==>oin('', @tumbler);
    return $ret;
	};
}

=cut
00
10
20
30
40
50
60
01
11
21
31
=cut

my $it = deeper(5, \@thing <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2721	2814	
==>st!")  unless defined $dest_type;
  $self->INTERNAL_ERROR("No type for left!")  unless defined <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2487	2580	
==>st!")  unless defined $dest_type;
  $self->INTERNAL_ERROR("No type for left!")  unless defined <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2409	2502	
==>st!")  unless defined $dest_type;
  $self->INTERNAL_ERROR("No type for left!")  unless defined <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	9423	9530	
==>g line \"=encoding $1\"\n";

  my $e    = $1;
  my $orig = $e;
  push @{ $self->{'encoding_command_reqs'} }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557890	557978	
==>{\@2}};\n  interpreter->current_cont = CONTEXT(interpreter->ctx)->current_cont;\n  PObj_g <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559274	559362	
==>{\@2}};\n  interpreter->current_cont = CONTEXT(interpreter->ctx)->current_cont;\n  PObj_g <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560646	560734	
==>{\@2}};\n  interpreter->current_cont = CONTEXT(interpreter->ctx)->current_cont;\n  PObj_g <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	933348	933568	
==>se_inplace(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	935562	935782	
==>se_inplace(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937782	938002	
==>se_inplace(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	3948	4096	
==>rcent;
                $real_filename{$source_file} = $real_filename;
                next;
            }

            ($percent, $total_lines, my $f <==
4	/Users/nnunley/parrot/config/gen/parrot_include.pm	2751	2918	
==>x$1\t$2";
                    eval $subst if ($subst ne '');
                    print INC ".constant $_\n";
                }
            } elsif ($in_def eq 'enum') { <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	46711	46852	
==>. . . . . . . . . . . . . . . . . . . . .
# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
#===================== <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	46759	46875	
==>. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
#============================================ <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	46805	46898	
==>. . . . . . . . . . . . .
#=================================================================== <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072037	1072155	
==>kp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074222	1074340	
==>kp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076407	1076525	
==>kp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078593	1078711	
==>kp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332760	333059	
==>rding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334038	334337	
==>rding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335316	335615	
==>rding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336595	336894	
==>rding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	328632	328829	
==>ATVAL)((Parrot_Float4)({{\@1}}));\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	13443	13575	
==>[ $next ]),
               $advance => $self->dbprint("scan advancing\n"),
                           aop('advance', [ 1, $lastback ] <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	32297	32414	
==>[0];

    return 1;
}


=back

=end _private

=cut

$SIG{__DIE__} = sub {
    # We don't want to muck with death in an <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	3864	3968	
==>:Dumper->new([$self->{c}], ['*PConfig'])->Dump();
        };
    }
}

=item C<clean()>

Deletes keys matc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353638	353734	
==>nst s = {{\@1}};\n  if (s && string_length(interpreter, s)) {\n    PIO_putps(interpreter, PIO_STD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354383	354479	
==>nst s = {{\@1}};\n  if (s && string_length(interpreter, s)) {\n    PIO_putps(interpreter, PIO_STD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359332	359428	
==>nst s = {{\@1}};\n  if (s && string_length(interpreter, s)) {\n    PIO_putps(interpreter, PIO_STD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360080	360176	
==>nst s = {{\@1}};\n  if (s && string_length(interpreter, s)) {\n    PIO_putps(interpreter, PIO_STD <==
4	/Users/nnunley/parrot/config/gen/makefiles.pm	4583	4704	
==>config/gen/makefiles/jako.in' => 'languages/jako/Makefile',
        commentType                    => '#',
        replace <==
4	/Users/nnunley/parrot/config/auto/gdbm.pm	652	769	
==>'verbose');

    my $cc        = $conf->data->get('cc');
    my $libs      = $conf->data->get('libs');
    my $linkfla <==
4	/Users/nnunley/parrot/config/auto/gmp.pm	593	710	
==>'verbose');

    my $cc        = $conf->data->get('cc');
    my $libs      = $conf->data->get('libs');
    my $linkfla <==
4	/Users/nnunley/parrot/config/auto/readline.pm	605	722	
==>'verbose');

    my $cc        = $conf->data->get('cc');
    my $libs      = $conf->data->get('libs');
    my $linkfla <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668658	669004	
==>",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 748,
                  "ARGS" => [
                              "p",
                              "n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247015	247332	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "and",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247878	248195	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "and",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	248742	249059	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "and",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94988	95245	
==>nd(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95881	96138	
==>nd(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96774	97031	
==>nd(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35682	35839	
==>\n";
              push @$para, '';  # Just so it's not contentless
            }
          }

        } else {
          die "Unhandled =over type \"$over_ty <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389315	389732	
==>",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 453,
                  "ARGS" => [
                              "p",
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#li <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33678	33778	
==>_store and append code it generates.
		my $post_store = $srm->post_store($dest_reg);
		$pir .= "### p <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10742	10848	
==>f = shift; # Required: Jako::Construct::Block

  confess "No block!"        unless defined $self and ref $s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4418	4518	
==>f = shift; # Required: Jako::Construct::Block

  confess "No block!"  unless defined $self and ref $s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4925	5025	
==>f = shift; # Required: Jako::Construct::Block

  confess "No block!"  unless defined $self and ref $s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10328	10427	
==>f = shift; # Required: Jako::Construct::Block

  confess "No block!" unless defined $self and ref $s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51831	52019	
==>ce(interpreter, PARROT_ALL_TRACE_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52614	52802	
==>ce(interpreter, PARROT_ALL_TRACE_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/languages/dotnet/Configure.pl	4553	4698	
==>_.pir\n";
            $code .= "\t\$(RM_F) $_.pir\n";
        }
        return $code;
    } else {
        # Just say that we weren't configu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638868	638969	
==>ODY" => "#line 128 \"src/ops/pmc.ops\"\n  opcode_t* arg_op;\n  PMC *sig, *class;\n  int typ;\n  \n  ar <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483769	483884	
==>isionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484768	484883	
==>isionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485767	485882	
==>isionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABE <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	37819	37930	
==>fors) {
          #} elsif(not grep !$_->[1]{'~resolve'}, @fors) {
          } elsif( $fors[-1][1]{'~resolve'} ) <==
4	/Users/nnunley/parrot/config/auto/m4.pm	818	929	
==>has_gnu_m4;

    # Calling 'm4 --version' hangs under FreeBSD
    my %m4_hangs = (freebsd => 1);

    if ($m4_ha <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1104	1197	
==>pression::Value');
  confess "Right is not Value!" if defined $right and not UNIVERSAL::isa($r <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1132	1225	
==>pression::Value');
  confess "Right is not Value!" if defined $right and not UNIVERSAL::isa($r <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	804	897	
==>pression::Value');
  confess "Right is not Value!" if defined $right and not UNIVERSAL::isa($r <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714636	714733	
==>interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715559	715656	
==>interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722323	722420	
==>interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723352	723449	
==>interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638231	638536	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "instanti <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544167	544273	
==>AL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n I <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545503	545609	
==>AL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n I <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546839	546945	
==>AL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n I <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610340	610653	
==>\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611242	611555	
==>\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612145	612458	
==>\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613051	613364	
==>\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747284	747370	
==>t.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748069	748155	
==>t.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753578	753664	
==>t.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754366	754452	
==>t.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048420	1048692	
==>n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "N <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049344	1049616	
==>n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "N <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060205	1060477	
==>n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "N <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3678	3778	
==>me
{
	my $self = shift;
	my $name = shift;
	
	return $type_for_name{$name} if exists $type_for_name{$ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769258	769558	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770110	770410	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770963	771263	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771816	772116	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39097	39345	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39962	40210	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40809	41057	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41657	41905	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540394	540500	
==>AL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541646	541752	
==>AL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542898	543004	
==>AL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \ <==
4	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	237	339	
==>::M4;

use strict;
use warnings;
use 5.006;

use Data::Dumper;
use File::Basename;

use Parrot::Test;
u <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912720	913003	
==>CODE" => 1028,
                  "ARGS" => [
                              "i",
                              "s",
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288310	288427	
==>ine 935 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289166	289283	
==>ine 935 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290022	290139	
==>ine 935 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14420	14509	
==>y_module_name;

  return sprintf <<'END', 
\deflang%s\plain\lang%s\widowctrl
{\header\pard <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11086	11170	
==>73" goto pre_call_HAS_RETURN_${CURIC}
goto pre_call_NO_RETURN_${CURIC}
pre_call_HAS_R <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8272	8356	
==>73" goto pre_call_HAS_RETURN_${CURIC}
goto pre_call_NO_RETURN_${CURIC}
pre_call_HAS_R <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5934	6018	
==>73" goto pre_call_HAS_RETURN_${CURIC}
goto pre_call_NO_RETURN_${CURIC}
pre_call_HAS_R <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27075	27211	
==>( @{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{resu <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27756	27892	
==>( @{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{resu <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	30606	30742	
==>( @{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{resu <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	35153	35289	
==>( @{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{resu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949979	950285	
==>AME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950938	951244	
==>AME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951898	952204	
==>AME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952858	953164	
==>AME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223645	223907	
==>\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224587	224849	
==>\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225527	225789	
==>\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226468	226730	
==>\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/config/auto/gcc.pm	2760	2845	
==>-Wpointer-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wno-unused <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	576	688	
==>G and print "++ $_[1]\n";
  
  print $fh   '  ' x ($_[0]{'indent'} || 0),  "<", $_[1];

  foreach my $key (sort k <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	742	836	
==>ype));
  confess "Identifier (" . ref($ident) . ") is not!" unless UNIVERSAL::isa($ident, qw(Ja <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	767	861	
==>ype));
  confess "Identifier (". ref($ident) . ") is not!"  unless UNIVERSAL::isa($ident, qw(Ja <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	731	825	
==>ype));
  confess "Identifier (". ref($ident) . ") is not!"  unless UNIVERSAL::isa($ident, qw(Ja <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344481	344572	
==>{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345723	345814	
==>{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346965	347056	
==>{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348208	348299	
==>{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef) <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19135	19244	
==>foo(...);
    #

    if ($token->is_ident
      and $self->get(1)->is_assign
      and $self->get(2)->is_ident <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276169	276258	
==>ne 881 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) <= 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277047	277136	
==>ne 881 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) <= 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277925	278014	
==>ne 881 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) <= 0 <==
4	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	490	582	
==>lackBox::stringify_lol;
}
sub stringify {
  goto &Pod::Simple::BlackBox::stringify_lol;
}

su <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60036	60292	
==>+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "warningsoff",
                  "FL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60685	60941	
==>+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "warningsoff",
                  "FL <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	9191	9326	
==>es_in_dir_nocase;
    my %files_in_dir_8dot3;
    my $line = 0;
    while (<F>) {
        $line++;

        chomp;

        unless (/[A- <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1186	1286	
==>{$fail_label} = 1;

    my $opt2 = Regex::Optimize->new(%options);
    $code->{code} = [ $opt2->optim <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854429	854729	
==>MP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855317	855617	
==>MP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856206	856506	
==>MP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857095	857395	
==>MP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	6483	6596	
==>= modtime($target)
      or return 1;
    for my $source (@sources) {
        return 1 if modtime($source) > $targ <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4903	5016	
==>= modtime($target)
      or return 1;
    for my $source (@sources) {
        return 1 if modtime($source) > $targ <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	6694	6807	
==>= modtime($target)
      or return 1;
    for my $source (@sources) {
        return 1 if modtime($source) > $targ <==
4	/Users/nnunley/parrot/tools/build/ops2c.pl	4428	4536	
==>::OpsFile->new( \@opsfiles, $nolines_flag );

    my $cur_code = 0;
    for(@{$ops->{OPS}}) {
        $_->{CO <==
4	/Users/nnunley/parrot/config/gen/platform.pm	837	946	
==>~ /^mingw/;
    $platform =~ s/^ms//;

    if ((split('-', $Config{archname}))[0] eq 'ia64') {
        $platfo <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644060	644166	
==>}} = {{\@2}}->vtable->type_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644953	645059	
==>}} = {{\@2}}->vtable->type_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	7024	7128	
==>ame =~ /icu\Wsource/; # icu cleanup code above needs work
	return if -d $_;
	return if -B $_;
	push(@file <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	66085	66396	
==>FLAGS" => "",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "function",
                  "CODE" => 86,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	106601	106901	
==>P" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107454	107754	
==>P" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108308	108608	
==>P" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	666	764	
==>onfess "Block (" . ref($block) . ") is not!"  unless UNIVERSAL::isa($block, qw(Jako::Construct::Blo <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	541	638	
==>onfess "Block (" . ref($block) . ") is not!" unless UNIVERSAL::isa($block, qw(Jako::Construct::Blo <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	551	647	
==>onfess "Block (". ref($block) . ") is not!" unless UNIVERSAL::isa($block, qw(Jako::Construct::Blo <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	533	629	
==>onfess "Block (". ref($block) . ") is not!" unless UNIVERSAL::isa($block, qw(Jako::Construct::Blo <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290878	291120	
==>ne 940 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} == {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291724	291966	
==>ne 940 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} == {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292570	292812	
==>ne 940 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} == {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/config/init/defaults.pm	2810	2918	
==>dules that can be dynamically loaded.  Flags to tell
        # ld to build a shared library, e.g.  -shared fo <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867271	867480	
==>g_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868237	868446	
==>g_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869203	869412	
==>g_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870170	870379	
==>g_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	574	673	
==>e L<Pod::Simple::PullParser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	993	1092	
==>e L<Pod::Simple::PullParser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	480	579	
==>e L<Pod::Simple::PullParser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1467	1566	
==>e L<Pod::Simple::PullParser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3034	3147	
==>n'  => "NREG(%ld)",
    'p'  => "PREG(%ld)",
    's'  => "SREG(%ld)",
    'k'  => "PREG(%ld)",
    'ki' => "IREG(% <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2854	2967	
==>n'  => "NREG(%ld)",
    'p'  => "PREG(%ld)",
    's'  => "SREG(%ld)",
    'k'  => "PREG(%ld)",
    'ki' => "IREG(% <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1950	2060	
==>n'   => "NREG(%ld)",
  'p'   => "PREG(%ld)",
  's'   => "SREG(%ld)",
  'k'   => "PREG(%ld)",
  'ki'  => "IREG(% <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1229	1326	
==>ptimize->new(%options);
    $code->{code} = [ $opt2->optimize($code->{code}, $ctx) ];
    return $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050059	1050203	
==>"
                            ],
                  "BODY" => "#line 172 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051093	1051237	
==>"
                            ],
                  "BODY" => "#line 172 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052127	1052271	
==>"
                            ],
                  "BODY" => "#line 172 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053162	1053306	
==>"
                            ],
                  "BODY" => "#line 172 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598210	598464	
==>{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599257	599511	
==>{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600332	600586	
==>{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	9007	9106	
==>AME', max_token => 50, desperate => 1, @_)
}
sub get_version     { shift->_get_titled_section(
   'V <==
4	/Users/nnunley/parrot/tools/dev/lib_deps.pl	9711	9833	
==>h
ctanh       complex.h
ctanhf      complex.h
ctanhl      complex.h
ctanl       complex.h
ctime       time.h
difftime    ti <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1359	1446	
==>-security -Wpacked -Wdisabled-optimization -falign-functions=16 -Wno-shadow  -DHAS_JIT - <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1404	1491	
==>-security -Wpacked -Wdisabled-optimization -falign-functions=16 -Wno-shadow  -DHAS_JIT - <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1408	1495	
==>-security -Wpacked -Wdisabled-optimization -falign-functions=16 -Wno-shadow  -DHAS_JIT - <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302085	302175	
==>ine 980 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302961	303051	
==>ine 980 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303837	303927	
==>ine 980 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\ <==
4	/Users/nnunley/parrot/config/gen/platform.pm	13	102	
==>C) 2001-2006, The Perl Foundation.
# $Id: /parrot/config/gen/platform.pm 19593 2006-05-30T <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31812	31938	
==>0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcodes1, new AssignOp( $parser,
            'result' = <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	32463	32589	
==>0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcodes1, new AssignOp( $parser,
            'result' = <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33113	33239	
==>0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcodes1, new AssignOp( $parser,
            'result' = <==
4	/Users/nnunley/parrot/config/init/defaults.pm	4256	4360	
==>ot_static => 'libparrot'.$Config{_a},
        libparrot_shared => 'libparrot.'.$Config{so},

        # do <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332770	333066	
==>const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334048	334344	
==>const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335326	335622	
==>const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336605	336901	
==>const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27118	27277	
==>isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $l_break;
            }
        }
    }
    push @opcode <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27799	27958	
==>isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $l_break;
            }
        }
    }
    push @opcode <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5115	5245	
==>$op) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  ";
        if ( exists $op->{result} and scalar( @{ $op->{resu <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6147	6277	
==>$op) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  ";
        if ( exists $op->{result} and scalar( @{ $op->{resu <==
4	/Users/nnunley/parrot/config/gen/icu.pm	1971	2103	
==>1 if length $icushared == 0;
            }

            # location of header files
            $icuheaders = capture_output("$icuconf <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1745	1844	
==>dest->value) unless $dest_sym;
  my $dest_type = $dest_sym->type;

  my $left_type;
  if (UNIVERSAL: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1703	1802	
==>dest->value) unless $dest_sym;
  my $dest_type = $dest_sym->type;

  my $left_type;
  if (UNIVERSAL: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1625	1724	
==>dest->value) unless $dest_sym;
  my $dest_type = $dest_sym->type;

  my $left_type;
  if (UNIVERSAL: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	174679	174976	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 209,
                  "A <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35599	35699	
==>le ($) { return $_[0]->{"subrule"} }
sub isterminal { 0 }
sub sethashname { }

sub describe ($)
{
	my <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33078	33177	
==>le ($) { return $_[0]->{"subrule"} }
sub isterminal { 0 }
sub sethashname {}

sub describe ($)
{
	my <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	12112	12198	
==>URIC}_LAZY_MOVE_RET_CONT:
${PARAMS}[0] = ${STEMP0}
dec stack_depth

PRE_CALL_END_${CURI <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710860	711106	
==>ter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711694	711940	
==>ter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712800	713046	
==>ter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713907	714153	
==>ter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_i <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34439	34530	
==>t

package Parrot::Pmc2c::default;
use base 'Parrot::Pmc2c';
import Parrot::Pmc2c qw( gen_re <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293414	293504	
==>ine 945 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294290	294380	
==>ine 945 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295166	295256	
==>ine 945 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	2800	2917	
==>{'token_buffer'} } ? '' : '       (no tokens)',
   "\n"
  ;

  until( @{ $self->{'token_buffer'} } ) {
    DEBUG > 3 a <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	14137	14253	
==>> $m, 'errata' => 1}, ''],
  ;

  push @out, 
    ['=back',  {'start_line' => $m, 'errata' => 1}, ''],
  ;

  DEBUG a <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710682	710774	
==>(interpreter);\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711516	711608	
==>(interpreter);\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \" <==
4	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	982	1095	
==>st
  } elsif (grep {$_ eq $test || "$_-old" eq $test } @a) {
    push @keep, $test
  } else {
    push @skip, $tes <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650638	650740	
==>} < interpreter->n_vtable_max)\n        {{\@1}} = 1;\n    else if ({{\@2}} >= enum_first_type && {{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651560	651662	
==>} < interpreter->n_vtable_max)\n        {{\@1}} = 1;\n    else if ({{\@2}} >= enum_first_type && {{\@2} <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	4381	4476	
==>R]" if ($syms[CURR] ne "then");
		$singleif=1 if ($type[NEXT] ne "STMT" and $type[NEXT] ne "COMM <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	5123	5293	
==>r );

            s/^(.)//
                and $str .= $1,
                last;
        }
    }

    $parser->Error("Untermined raw string.\n");
    $parser->YYD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122028	122127	
==>gh to kill.\n   * it's just casting a signed integral to the equivalent unsigned.\n   */\n  LVALUE_C <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122940	123039	
==>gh to kill.\n   * it's just casting a signed integral to the equivalent unsigned.\n   */\n  LVALUE_C <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	1419	1514	
==>trapos-$startlen, $extralen, "\n");
			$res[1] = "$extra$res[1]";
			eval { substr($$textref,$re <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	8244	8357	
==>} = $type;
    DEBUG > 2 and print "Learning to accept \"$t\" as target of type $type\n";
  }    
  return sort ke <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	7487	7599	
==>ot_found = op1
    inc not_found

    .local pmc result
    result = new 'APLVector'

    iter_two = new .Iterato <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9941	10047	
==>d ref'd var from 5 to 12
function myfunc(a)
	print a
	a=12
        myfunc=80
end function
z=5
T=myfunc(z)
p <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11554	11660	
==>d ref'd var from 5 to 12
function myfunc(a)
	print a
	a=12
        myfunc=80
end function
z=5
T=myfunc(z)
p <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332689	332789	
==>cstring() need freeing\n     but this generates ugly warnings WRT discarding the const\n     qualifie <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333967	334067	
==>cstring() need freeing\n     but this generates ugly warnings WRT discarding the const\n     qualifie <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335245	335345	
==>cstring() need freeing\n     but this generates ugly warnings WRT discarding the const\n     qualifie <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336524	336624	
==>cstring() need freeing\n     but this generates ugly warnings WRT discarding the const\n     qualifie <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	817684	817835	
==>ELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818462	818613	
==>ELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632651	632764	
==>});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633693	633806	
==>});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	371	479	
==>ase qw(Jako::Construct::Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected 5 ar <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	371	479	
==>ase qw(Jako::Construct::Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected 5 ar <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28800	28897	
==>e { $_[0]->{hashname} = '__STRING' . ++$_[1]->{strcount} . '__'; }

sub issubrule { undef }
sub is <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30880	30977	
==>e { $_[0]->{hashname} = '__STRING' . ++$_[1]->{strcount} . '__'; }

sub issubrule { undef }
sub is <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	501	600	
==>ame, $attr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBUG and print "++ $_[1]\n" <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	500	599	
==>ame, $attr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBUG and print "++ $_[1]\n" <==
4	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	695	794	
==>ame, $attr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBUG and print "++ $_[1]\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5044	5133	
==>self->gen_goto($self->expr_offset(@_));
}

=item C<goto_pop()>

Transforms the C<goto POP( <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17188	17357	
==>es, new LocalDir( $parser,
                    'result' => $result,
                );
                push @opcodes, new KeyedGetOp( $parser,
                    're <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18225	18346	
==>es, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new KeyedGetOp( $parser,
        're <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	15355	15464	
==>p through each vector, doing the ops.
    .local pmc iter1, iter2
    iter1 = new .Iterator, op1
    iter2 = n <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	15144	15246	
==>lf->{items}[-1]->describe =~ /<score/;
	return 1;
}

sub check_pending
{
	my ( $self, $line ) = @_;
	if <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958801	959066	
==>UMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "func <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959602	959867	
==>UMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "func <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6649	6760	
==>_[1]:"mark").qq(\\n";));
    }
    push @ops, "push \@<rx_stack>, -1; # pushmark";
    return @ops;
}

sub outpu <==
4	/Users/nnunley/parrot/tools/build/headerize.pl	197	293	
==>tion header parts of .h files from .c files

=head1 SYNOPSIS

Update the headers in F<include/par <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	4718	4837	
==>= $self->at($i);

    printf STDERR "%6d : %-30s : %5s : %-15s: %1s : %s\n",
      $i,
      $tok->file,
      $tok->lin <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	2509	2607	
==>tion)>

Runs the PAST code and passes the test if a string comparison of output
with the expected r <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	3749	3840	
==>mechanism within the core's init function.
C<$base_suffix> is the same as for C<ops_addr_dec <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	193	277	
==>ako/lib/Jako/Construct/Block/Conditional.pm 19606 2006-05-30T15:08:05.048089Z coke  $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836837	837069	
==>AME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 9 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837569	837801	
==>AME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 9 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838303	838535	
==>AME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 9 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	839035	839267	
==>AME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 9 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544224	544325	
==>n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = a, saved_var2 = b; \n\n if(a==0 | <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545560	545661	
==>n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = a, saved_var2 = b; \n\n if(a==0 | <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546896	546997	
==>n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = a, saved_var2 = b; \n\n if(a==0 | <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	179	260	
==>/languages/jako/lib/Jako/Construct/Statement/Decrement.pm 19606 2006-05-30T15:08:0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663466	663704	
==>line",
                  "CODE" => 741,
                  "ARGS" => [
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 354 \"src/ops/pmc.ops\"\n  {{\@1}} <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	5307	5408	
==>y reached here
	$stmt->{label}->{reachable} = 1;

	# Loop over the basic block starting at $stmt
	my $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945414	945498	
==>/ops/string.ops\"\n  {{\@1}} = string_copy(interpreter, Parrot_charset_name(interpret <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946224	946308	
==>/ops/string.ops\"\n  {{\@1}} = string_copy(interpreter, Parrot_charset_name(interpret <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1467	1572	
==>_GOTO ];

our $LIBPARROT = qq[];

# Here comes some stuff for Win32.
our $PATHQUOTE = '';
if ($^O eq 'MSWi <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1512	1617	
==>_GOTO ];

our $LIBPARROT = qq[];

# Here comes some stuff for Win32.
our $PATHQUOTE = '';
if ($^O eq 'MSWi <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1516	1621	
==>_GOTO ];

our $LIBPARROT = qq[];

# Here comes some stuff for Win32.
our $PATHQUOTE = '';
if ($^O eq 'MSWi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255571	255893	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "xor",
                  "FLAGS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256478	256800	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "xor",
                  "FLAGS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257386	257708	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "xor",
                  "FLAGS <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1940	2033	
==><start_code>, because that
interpretation is global across all runops cores.

=cut

sub expr_o <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340299	340638	
==>@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "p <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341298	341637	
==>@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "p <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342297	342636	
==>@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "p <==
4	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	2402	2513	
==>ex.pbc '$input' |");

    local $/;
    my $actual_output = <$TEST>;
    close $TEST;
    Test::More::is($actual <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672288	672617	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673060	673389	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673830	674159	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	674601	674930	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63118	63228	
==>tem($item)
						      or  _no_rule("repetition",$line,"$code$argcode($1)");

						!$matchrule and $rule and $ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63839	63949	
==>tem($item)
						      or  _no_rule("repetition",$line,"$code$argcode($1)");

						!$matchrule and $rule and $ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64555	64665	
==>tem($item)
						      or  _no_rule("repetition",$line,"$code$argcode($1)");

						!$matchrule and $rule and $ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62482	62590	
==>tem($item)
					      or  _no_rule("repetition",$line,"$code$argcode($1)");

					!$matchrule and $rule and $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926322	926450	
==>N:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FLAG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927792	927920	
==>N:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FLAG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929262	929390	
==>N:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FLAG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930733	930861	
==>N:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FLAG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025685	1025823	
==>ic"
                            ],
                  "BODY" => "#line 275 \"src/ops/sys.ops\"\n   {{\@1}} = sysinfo_s(interpreter, {{\@2}}) <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	11929	12065	
==>rint("trying classmatch\n"),
                         aop('classmatch', [ $incexc, $lastback ]),
                         aop('increment' <==
4	/Users/nnunley/parrot/config/init/hints/netbsd.pm	208	323	
==>hread/) {
        $ccflags .= ' -pthread';
    }
    $conf->data->set(ccflags => $ccflags);

    my $libs = $conf->d <==
4	/Users/nnunley/parrot/config/init/hints/openbsd.pm	300	415	
==>hread/) {
        $ccflags .= ' -pthread';
    }
    $conf->data->set(ccflags => $ccflags);

    my $libs = $conf->d <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	20378	20500	
==>odes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new NewOp( $parser,
        'result <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21657	21779	
==>odes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new NewOp( $parser,
        'result <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	22800	22922	
==>odes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new NewOp( $parser,
        'result <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22166	22284	
==>Seems to match =head1 NAME pattern.\n";
      $title = '';
      foreach my $t (reverse @to_unget) {
        last if $t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126765	127120	
==>+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rot",
                  "FLAG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127900	128255	
==>+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rot",
                  "FLAG <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1250	1336	
==>hortcut for $token->tagname(...)

=item $token->is_tag(I<somestring>) or $token->is_tag <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1680	1766	
==>hortcut for $token->tagname(...)

=item $token->is_tag(I<somestring>) or $token->is_tag <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468334	468508	
==>"i",
                              "ic"
                            ],
                  "BODY" => "#line 376 \"src/ops/math.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0 <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	40155	40285	
==>ent;
        }
      }


      # And the E resolver will have to deal with all our treeletty things:

      if(@ell_content == 1 an <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561837	561931	
==>n  {{\@1}} = VTABLE_find_method(interpreter, {{\@2}}, {{\@3}});\n  if (!{{\@1}}) {\n    real_ex <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562921	563015	
==>n  {{\@1}} = VTABLE_find_method(interpreter, {{\@2}}, {{\@3}});\n  if (!{{\@1}}) {\n    real_ex <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	12486	12610	
==>), "\n" if $verbose;
    foreach my $prog (@$progs) {
        my $util = $prog;

        # use the first word in the string t <==
4	/Users/nnunley/parrot/config/init/miniparrot.pm	1888	2005	
==>f,

        # we can't guarantee anything about pointer alignment under ANSI C89.
        # so we will have to check e <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	4204	4301	
==>y ($group, $pmcs) = each %$group_files) {
        partial_link($group, $group_libs->{$group}, [ "l <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	4308	4405	
==>y ($group, $pmcs) = each %$group_files) {
        partial_link($group, $group_libs->{$group}, [ "l <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72951	73061	
==>unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74553	74663	
==>unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76155	76265	
==>unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77758	77868	
==>unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	22199	22305	
==>nt printing headers when compiling (i.e. -c)
    return if $^C;

    # Smash args together like print does. <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2804	2895	
==>ess defined $left_type;
  $self->INTERNAL_ERROR("No type for right!") unless defined $right_ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2570	2661	
==>ess defined $left_type;
  $self->INTERNAL_ERROR("No type for right!") unless defined $right_ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2492	2583	
==>ess defined $left_type;
  $self->INTERNAL_ERROR("No type for right!") unless defined $right_ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	900	996	
==>Attributes => { kind => $self->kind } });
  $_->sax($handler) foreach $self->content;
  $handler- <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1913	2009	
==>Attributes => { kind => $self->kind } });
  $_->sax($handler) foreach $self->content;
  $handler- <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2707	2803	
==>Attributes => { kind => $self->kind } });
  $_->sax($handler) foreach $self->content;
  $handler- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221711	221802	
==>if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_NUMCMP) > 0) {\n    {{+={{\@3}}}};\ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32404	32522	
==>} elsif($item_type eq 'text') {
            # Hm, it's not numeric.  Correct for this.
            $para->[1]{'number'} <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26016	26102	
==>dd $ps->{var}, $ps->{var}, FORLOOP_STEP_$ps->{num}
	goto FOR_$ps->{num}
AFTER_NEXT_$ps- <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26201	26287	
==>dd $ps->{var}, $ps->{var}, FORLOOP_STEP_$ps->{num}
	goto FOR_$ps->{num}
AFTER_NEXT_$ps- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459898	460013	
==>E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460886	461001	
==>E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461874	461989	
==>E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806109	806366	
==>er_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807015	807272	
==>er_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807919	808176	
==>er_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808824	809081	
==>er_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	57304	57515	
==>:

        @fields = extract_multiple($csv_text,
                                  [
                                        sub { extract_delimited($_[0],q{'"}) },
                                        qr/([^, <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2240	2357	
==>O =~ /mswin32/i) {
        # Need to put various libraries in the link line.
        $liblist = join( ' ', map { "$_.l <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2532	2649	
==>O =~ /mswin32/i) {
        # Need to put various libraries in the link line.
        $liblist = join( ' ', map { "$_.l <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2327	2444	
==>O =~ /mswin32/i) {
        # Need to put various libraries in the link line.
        $liblist = join( ' ', map { "$_.l <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1311	1418	
==>s. They really should not be
  # triggered in normal operation, even with bad source code as input.
  #

  $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1256	1363	
==>s. They really should not be
  # triggered in normal operation, even with bad source code as input.
  #

  $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1159	1266	
==>s. They really should not be
  # triggered in normal operation, even with bad source code as input.
  #

  $ <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3925	4019	
==>xpecting ," unless $syms[CURR] eq ",";
		feedme();
		input_read_assign($promptcode, $fd, 'norep <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11240	11340	
==>r);
  ...la la la, parsing POD, la la la...
  $text = e2char($e_node->label);
  unless(defined $text) <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11864	11955	
==>($ac,@args)=pushargs(\@code, \$optype, \@work);
			$pir_args = join(",", map {$_->[0]} (reve <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	12274	12365	
==>($ac,@args)=pushargs(\@code, \$optype, \@work);
			$pir_args = join(",", map {$_->[0]} (reve <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	2210	2300	
==>ini = minimatch($m);
print Data::Dumper->Dump([$mini],["*CAPTURES"]);
END
}

package Regex: <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13411	13504	
==>dReject/
		|| ($items[0]->describe||"") =~ /<autoscore/
		))
	{
		Parse::RecDescent::_warn(1," <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408273	408365	
==>rc/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_connect(interpreter, {{\@2}}, {{\@3}});\n    {{+=4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409172	409264	
==>rc/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_connect(interpreter, {{\@2}}, {{\@3}});\n    {{+=4 <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	16763	16854	
==>:Simple::RTF for an example of a formatter
that uses Pod::Simple::PullParser.

=head1 METHOD <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	3008	3097	
==>ype::String');
  $self->SYNTAX_ERROR("Can't do arithmetic on strings") if UNIVERSAL::isa($ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	3128	3217	
==>ype::String');
  $self->SYNTAX_ERROR("Can't do arithmetic on strings") if UNIVERSAL::isa($ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1825	1908	
==>~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvw <==
4	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1928	2011	
==>~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvw <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843230	843505	
==>} = string_ord(interpreter,{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844108	844383	
==>} = string_ord(interpreter,{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844986	845261	
==>} = string_ord(interpreter,{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845865	846140	
==>} = string_ord(interpreter,{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
4	/Users/nnunley/parrot/lib/Test/More.pm	28342	28467	
==>ep !_type($_) eq 'ARRAY', $a1, $a2 ) {
        warn "eq_array passed a non-array ref";
        return 0;
    }

    return 1 i <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8567	8671	
==>uot'}   = '"';
  $Name2character{'amp' }   = '&';
  $Name2character{'apos'}   = "'";
  $Name2character{'s <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21598	21690	
==>turn = $self->_constant(1);
  my $temp = $self->_generate($node->{children}[1]);
  $self->_ad <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21983	22075	
==>turn = $self->_constant(1);
  my $temp = $self->_generate($node->{children}[1]);
  $self->_ad <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557806	557908	
==>ct;\n  opcode_t *next = {{^+3}};\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559190	559292	
==>ct;\n  opcode_t *next = {{^+3}};\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  interpre <==
4	/Users/nnunley/parrot/tools/build/ops2c.pl	8244	8346	
==>fix =~ /cg/) {
    print SOURCE <<END_C;
goto *${bs}ops_addr[*cur_opcode];

END_C
}



print SOURCE <<E <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	596	710	
==>($token->type),
    VALUE  => $token->text,

    DEBUG  => 1,
    FILE   => $token->file,
    LINE   => $token->lin <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	730	832	
==>e::Yapp module itself.
#
# This notice should remain unchanged.
#
# (c) Copyright 1998-2001 Francoi <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	710	808	
==>e::Yapp module itself.
#
# This notice should remain unchanged.
#
# (c) Copyright 1998-2001 Francoi <==
4	/Users/nnunley/parrot/tools/dev/mk_inno.pl	950	1045	
==>\\/g;
$options{icudir} =~ s/\//\\/g;

my $icu_section = '';
if ($options{icudir}) {
	$icu_sectio <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794949	795218	
==>YPE" => "inline",
                  "CODE" => 897,
                  "ARGS" => [
                              "p",
                              "k",
                              "ic"
                            ],
                  "BODY" => "#line 457 \"src/ops/set. <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961018	961112	
==>eter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961980	962074	
==>eter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962942	963036	
==>eter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963905	963999	
==>eter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{ <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11156	11336	
==>y->[1] };
                        my $result2 = new_tmp( $parser, 'pmc' );
                        push @opcodes, new LocalDir( $parser,
                            'result' => $ <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9383	9551	
==>y->[1] };
                    my $result2 = new_tmp( $parser, 'pmc' );
                    push @opcodes, new LocalDir( $parser,
                        'result' => $ <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8367	8511	
==>y->[1] };
            my $result2 = new_tmp( $parser, 'pmc' );
            push @opcodes, new LocalDir( $parser,
                'result' => $ <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17585	17717	
==>y->[1] };
        my $result2 = new_tmp( $parser, 'pmc' );
        push @opcodes, new LocalDir( $parser,
            'result' => $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2307	2455	
==>>kind,
    $self->type,
    $name,
    undef,            # No value
    $props,           # Parsed Properties
    $args,            # Parsed Properti <==
4	/Users/nnunley/parrot/config/init/hints/mswin32.pm	686	798	
==>cl.exe));
    my $is_mingw = grep { $cc eq $_ } (qw(gcc gcc.exe));
    my $is_bcc   = grep { $cc eq $_ } (qw(bcc3 <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15269	15372	
==>-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # re <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16450	16553	
==>-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # re <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628037	628259	
==>704,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 53 \"src/ops/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2} <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20797	20939	
==>6
		}
	},
	{#State 62
		DEFAULT => -52
	},
	{#State 63
		ACTIONS => {
			"," => 66,
			"=" => 117
		},
		DEFAULT => -31
	},
	{#Sta <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	8236	8352	
==>tfitemkeepn yea or nay.
            $self->{'rtfitemkeepn'} = '\keepn' if 
              $to_unget[-1]->type eq 'star <==
4	/Users/nnunley/parrot/tools/dev/symlink.pl	28	125	
==>ate a symlink tree shadowing the Parrot source tree.  Nifty for
# having just one (read-only) copy <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	24918	25048	
==>>diag("'$cmd' failed with exit code $exit_code")
        if $exit_code;

            if (! -e $exe_f) {
                $builder->d <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10240	10332	
==>rectory with the specified relative path below the directory.

=cut

sub directory_with_relat <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6593	6681	
==>_depth[${ITEMP0}] = stack_depth
    goto POST_BRANCH_switch_${CURIC}_LOOP
POST_BRANCH_swi <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4531	4619	
==>_depth[${ITEMP0}] = stack_depth
    goto POST_BRANCH_switch_${CURIC}_LOOP
POST_BRANCH_swi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800665	800773	
==>vtable->set_string_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801569	801677	
==>vtable->set_string_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802473	802581	
==>vtable->set_string_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803378	803486	
==>vtable->set_string_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	366	494	
==>Construct::Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  return bless {
    TOKEN    => $token,
    CODE     => ' <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	363	491	
==>Construct::Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  return bless {
    TOKEN    => $token,
    CODE     => ' <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	354	482	
==>Construct::Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  return bless {
    TOKEN    => $token,
    CODE     => ' <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	363	491	
==>Construct::Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  return bless {
    TOKEN    => $token,
    CODE     => ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353180	353432	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "functi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353924	354176	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "functi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354669	354921	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "functi <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9510	9603	
==>q 'Verbatim' or $tagname eq 'X';
}

=item C<process_text_token($token)>

Processes the specifi <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1385	1517	
==>n an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($self, $addr) = @_;

    #print STDERR "pbcc: map_ret_abs($ <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1910	2042	
==>n an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($self, $addr) = @_;

    #print STDERR "pbcc: map_ret_abs($ <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1801	1933	
==>n an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($self, $addr) = @_;

    #print STDERR "pbcc: map_ret_abs($ <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1525	1657	
==>n an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($self, $addr) = @_;

    #print STDERR "pbcc: map_ret_abs($ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650679	650789	
==>{\@1}} = 1;\n    else if ({{\@2}} >= enum_first_type && {{\@2}} < enum_last_type)\n        {{\@1}} = 1;\n    el <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651601	651711	
==>{\@1}} = 1;\n    else if ({{\@2}} >= enum_first_type && {{\@2}} < enum_last_type)\n        {{\@1}} = 1;\n    el <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	8258	8357	
==>{$source_file} %" : "n/a" ]}</a></td>
             <td><a href="$outfile_base.branches.html">@{[$fil <==
4	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	718	811	
==>n"  unless $_[1] =~ m/^[A-Z]$/s;
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
4	/Users/nnunley/parrot/tools/build/ops2c.pl	8057	8166	
==>*) 1)
    asm ("jmp *4(%ebp)");	/* jump to ret addr, used by JIT */
# endif
#endif
    _reg_base = (char*)inte <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1134	1223	
==>Right is not Value!" if defined $right and not UNIVERSAL::isa($right, 'Jako::Construct::Ex <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1162	1251	
==>Right is not Value!" if defined $right and not UNIVERSAL::isa($right, 'Jako::Construct::Ex <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	834	923	
==>Right is not Value!" if defined $right and not UNIVERSAL::isa($right, 'Jako::Construct::Ex <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199025	199198	
==>ic",
                              "ic"
                            ],
                  "BODY" => "#line 366 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108941	109245	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":base_cor <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111389	111693	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":base_cor <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112281	112585	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":base_cor <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	49752	49846	
==>losing delimiter bracket. If the bracket was the same
species as the last opening bracket, retu <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	899	1002	
==>ix()>

The suffix is C<'_switch'>.

=cut

sub suffix
{
    return "_switch";
}

=item C<defines()>

Retu <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11178	11267	
==>{CURIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1}["reg_type_short"]
${DEST0} = concat ${STEMP0 <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8364	8453	
==>{CURIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1}["reg_type_short"]
${DEST0} = concat ${STEMP0 <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6026	6115	
==>{CURIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1}["reg_type_short"]
${DEST0} = concat ${STEMP0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332607	332704	
==>);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all results from string_to_cstring() need f <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333885	333982	
==>);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all results from string_to_cstring() need f <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335163	335260	
==>);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all results from string_to_cstring() need f <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336442	336539	
==>);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all results from string_to_cstring() need f <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	14889	15024	
==>t = $tn",
			);
		} else {
			# Simple a=expr case.
			@ass=(
				@$rightexpr,
				"\t$left = $right",
				
			);
		}
	} else {
		s/INSE <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2309	2395	
==>lf->SYNTAX_ERROR("Expression involves unknown variable %s.", $right->value) unless $rig <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2267	2353	
==>lf->SYNTAX_ERROR("Expression involves unknown variable %s.", $right->value) unless $rig <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2189	2275	
==>lf->SYNTAX_ERROR("Expression involves unknown variable %s.", $right->value) unless $rig <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067177	1067322	
==>q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068363	1068508	
==>q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069549	1069694	
==>q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070736	1070881	
==>q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084871	1085227	
==>l" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085924	1086280	
==>l" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086977	1087333	
==>l" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAG <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	4227	4356	
==>nction_line_coverage{$source_file}{$function} = $percent;
                next;
            }

            ($percent, my $total_br <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926199	926321	
==>NGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927669	927791	
==>NGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929139	929261	
==>NGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930610	930732	
==>NGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48873	49015	
==>P" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "bounds",
                  "FLAGS" => "",
                  "ARGDIR <==
4	/Users/nnunley/parrot/config/init/optimize.pm	1075	1183	
==>e
	    # gcc 4.1 doesn't like -mcpu=xx, i.e. it's deprecated
	    # XXX do we know compiler (version) already <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758285	758375	
==>ine 276 \"src/ops/set.ops\"\n  {{\@1}} = string_set(interpreter, {{\@1}}, {{\@2}});\n  {{+= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759058	759148	
==>ine 276 \"src/ops/set.ops\"\n  {{\@1}} = string_set(interpreter, {{\@1}}, {{\@2}});\n  {{+= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028441	1028617	
==>RROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sleep",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029292	1029468	
==>RROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sleep",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030133	1030309	
==>RROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sleep",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	1413	1520	
==>'', 'tools/docs/pod_errors.pl'),
            $self->new_item('', 'tools/dev/manicheck.pl'),
            $sel <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026556	1026808	
==>_i(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1027313	1027565	
==>_i(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1280	1381	
==>> '',
			 YYRULES => 'ARRAY', YYSTATES => 'ARRAY', YYDEBUG => '');
#Mandatory parameters
my(@params <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1237	1335	
==>> '',
			 YYRULES => 'ARRAY', YYSTATES => 'ARRAY', YYDEBUG => '');
#Mandatory parameters
my(@params <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852644	852953	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855095	855404	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855984	856293	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856873	857182	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem" <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	7147	7264	
==>e_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c failed ($?)\n";
    }
    else {
        1 <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5441	5558	
==>e_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c failed ($?)\n";
    }
    else {
        1 <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	7358	7475	
==>e_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c failed ($?)\n";
    }
    else {
        1 <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	19718	19811	
==>test failed.

Defaults to 1.

Setting $Test::Builder::Level overrides.  This is typically usef <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2093	2203	
==>ype;
  }
  else {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako::Cons <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2051	2161	
==>ype;
  }
  else {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako::Cons <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1973	2083	
==>ype;
  }
  else {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako::Cons <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	70162	70262	
==>/gco
	  || $grammar =~ m/$EXACTLY/gco
	  || $grammar =~ m/$ATMOST/gco
	  || $grammar =~ m/$BETWEEN/gc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101315	101600	
==>( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102085	102370	
==>( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103521	103806	
==>( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/tools/dev/nm.pl	1267	1364	
==>e negated with a "no", for example C<--noconst>.

=over 4

=item C<--objectname>

=item C<-o>

Pre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018058	1018153	
==>_r(&tm, resultbuffer);\n  {{\@1}} = string_from_cstring(interpreter, resultbuffer, 26);\n  {{+=3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018983	1019078	
==>_r(&tm, resultbuffer);\n  {{\@1}} = string_from_cstring(interpreter, resultbuffer, 26);\n  {{+=3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019913	1020008	
==>_r(&tm, resultbuffer);\n  {{\@1}} = string_from_cstring(interpreter, resultbuffer, 26);\n  {{+=3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020844	1020939	
==>_r(&tm, resultbuffer);\n  {{\@1}} = string_from_cstring(interpreter, resultbuffer, 26);\n  {{+=3 <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	918	1040	
==>e,
    PROPS => $props,
    ARGS  => undef,

    DEBUG => 1,
    FILE  => $ident->file,
    LINE  => $ident->line
  }, $cla <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77509	77606	
==>$tracerulename = qq{$tracerulename};
	write TRACE;
	if ($tracecontext ne $lastcontext)
	{
		if ($t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13103	13193	
==>K_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=l <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13947	14037	
==>K_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=l <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332465	332566	
==>\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333743	333844	
==>\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335021	335122	
==>\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336300	336401	
==>\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123845	123953	
==>c/ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124719	124827	
==>c/ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125593	125701	
==>c/ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS <==
4	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	932	1040	
==>$$it .= $x }

  #Pod::Simple::DEBUG > 10 and print " appended to $$it = \"$$$it\"\n";

  return 1;
}

sub FET <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	3428	3568	
==>lobal \"$op->{arg1}\"\n";
    }

    sub visitFindLexOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{f <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9220	9340	
==>\$dbg_tmp = \@<rx_stack>;",
                "$reg = pop \@<rx_stack>;",
                $self->dbprint("POPPED[\$dbg_tmp] <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	892	1002	
==>, name [, amount])
# O (assign, name, val)
# O (fail)
# O (nop)

sub compile {
    my ($self, $expr, $ctx) = @_ <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19593	19696	
==>my $typename=$syms[CURR];
		feedme;
		$sourceline++;
		feedme;
		while($syms[CURR] ne "end") {
			my($na <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3337	3425	
==>::Simple>, L<Pod::Simple::DumpAsXML>

The older libraries L<Pod::PXML>, L<Pod::XML>, L<Po <==
4	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2989	3077	
==>::Simple>, L<Pod::Simple::DumpAsXML>

The older libraries L<Pod::PXML>, L<Pod::XML>, L<Po <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24203	24341	
==>35,
			'primary' => 28
		}
	},
	{#State 76
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649105	649358	
==>_p(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649868	650121	
==>_p(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56390	56641	
==>_p(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57152	57403	
==>_p(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24381	24482	
==>nt(0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{children}[1]);
    if ($re <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25270	25371	
==>nt(0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{children}[1]);
    if ($re <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26280	26381	
==>nt(0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{children}[1]);
    if ($re <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27170	27271	
==>nt(0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{children}[1]);
    if ($re <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18766	18928	
==>r @{ $arg->[1] } ) {
            push @opcodes, @{ $arg->[1] };
        }
        else {
            push @opcodes, new NoOp($parser);
        }
        push <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	706	805	
==>ld_tree ($tokens, $count);
    push @{$temp->{children}}, $expr;
  }
  elsif ($tokens->[$count] eq " <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	923	1022	
==>ld_tree ($tokens, $count);
    push @{$temp->{children}}, $expr;
  }
  elsif ($tokens->[$count] eq " <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1137	1236	
==>ld_tree ($tokens, $count);
    push @{$temp->{children}}, $expr;
  }
  elsif ($tokens->[$count] eq " <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	4165	4309	
==>fcntl' => 'define',
             'i_float' => 'define',
             'i_fp' => undef,
             'i_fp_class' => undef,
             'i_gdbm' = <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	393	494	
==>o::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $dest, $left, $op, $right) = @ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	384	485	
==>o::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $dest, $left, $op, $right) = @ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	273	374	
==>o::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $dest, $left, $op, $right) = @ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	27816	27926	
==>whine(
          $para->[1]{'start_line'},
          "=back doesn't take any parameters, but you said =back $co <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256354	256451	
==>=> "#line 740 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257262	257359	
==>=> "#line 740 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258170	258267	
==>=> "#line 740 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348683	349042	
==>" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 406,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 162 \"sr <==
4	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	6170	6281	
==>oding|tab size|indentation|created (on|by)):.*//mg;
	$desc = $_;
    }
    if(!$desc) {
	s/^ *[a-z0-9_]+\.[chly] <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3581	3676	
==>r_opcode) {
END_C
}

=item C<run_core_split($base)>

If defined return code to split e.g. a swit <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1883	2011	
==>= @_;

    return
        "$CC $CFLAGS " .
        "-o " . $target . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/inc <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2179	2307	
==>= @_;

    return
        "$CC $CFLAGS " .
        "-o " . $target . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/inc <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1974	2102	
==>= @_;

    return
        "$CC $CFLAGS " .
        "-o " . $target . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/inc <==
4	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	1596	1695	
==>e a ParrotSourceFile class of course. ;)
(a jest - sort of.)

=item * Misc: rationalize indent; clar <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11435	11715	
==>er,
                            'result' => $result2,
                            'arg1'   => $result,
                            'arg2'   => $key->[0],
                        );
                        $result = $result2;
                    }
                    push @o <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9667	9919	
==>er,
                        'result' => $result2,
                        'arg1'   => $result,
                        'arg2'   => $key->[0],
                    );
                    $result = $result2;
                }
                push @o <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8586	8782	
==>er,
                'result' => $result2,
                'arg1'   => $result,
                'arg2'   => $key->[0],
            );
            $result = $result2;
        }
        push @o <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3182	3277	
==>'Project info',
);

=item C<type_for_suffix($suffix)>

This is a class method that converts a fi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476521	476817	
==>"JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477416	477712	
==>"JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478312	478608	
==>"JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479203	479499	
==>"JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101096	101286	
==>\n  string_bitwise_not(interpreter, {{\@1}}, &{{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11084	11272	
==>_DESTINATION, STACK_CLEANUP_NULL);\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ), <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11873	12061	
==>_DESTINATION, STACK_CLEANUP_NULL);\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ), <==
4	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2073	2178	
==>ckout_tests()
##
## Checkout the tests from CVS into $DIR.
##
sub checkout_tests {
    print "Checking out <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	44350	44477	
==>o-op
      splice @$p,$i,1; # remove this line
      $i--; # don't consider next line
      next;
    }

    if( length($formatt <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	35595	35692	
==>T CODES

If all your tests passed, Test::Builder will exit with zero (which is
normal).  If anythi <==
4	/Users/nnunley/parrot/lib/Test/More.pm	33666	33763	
==>T CODES

If all your tests passed, Test::Builder will exit with zero (which is
normal).  If anythi <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2979	3074	
==>_Interp interpreter)";
}

=item C<run_core_func_start()>

Returns the C code prior to the run co <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10804	10921	
==>{
        my($class)=shift;
        ref($class)
    and $class=ref($class);

    my($self)=$class->SUPER::new( yy <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11805	11917	
==>{
        my($class)=shift;
        ref($class)
    and $class=ref($class);

    my($self)=$class->SUPER::new( yy <==
4	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1209	1302	
==>->{builder}->is_eq( Parrot::Test::slurp_file($out_f), $output, $desc );
        $self->{builde <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1250	1343	
==>->{builder}->is_eq( Parrot::Test::slurp_file($out_f), $output, $desc );
        $self->{builde <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080382	1080473	
==>"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081447	1081538	
==>"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082512	1082603	
==>"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083578	1083669	
==>"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	33434	33718	
==>UMP" => 0,
                  "NAME" => "set_addr",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	34222	34506	
==>UMP" => 0,
                  "NAME" => "set_addr",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732205	732457	
==>{\@1}} = (INTVAL)({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732951	733203	
==>{\@1}} = (INTVAL)({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24063	24164	
==>\n";
			push @{$code{$seg}->{code}}, <<DIMARR;
	# Set aside storage for Array $var
	\$P0 = new .PerlHa <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2535	2629	
==>in subclasses to return the C code for the ops
address declaration. C<$base_suffix> is the name <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63202	63294	
==>!$matchrule and $rule and $rule->addcall($name);

						_check_insatiable($name,$1,$grammar,$ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63923	64015	
==>!$matchrule and $rule and $rule->addcall($name);

						_check_insatiable($name,$1,$grammar,$ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16148	16254	
==>(4)->is_value
    ) {
      my $block = $self->current_block();
      my $ident = Jako::Construct::Expressi <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16919	17025	
==>(4)->is_value
    ) {
      my $block = $self->current_block();
      my $ident = Jako::Construct::Expressi <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17724	17830	
==>(4)->is_value
    ) {
      my $block = $self->current_block();
      my $ident = Jako::Construct::Expressi <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	23510	23599	
==>unc_info{$name} && $func_info{$name}{'ar'} ne 'None') {
	my $fix_args = $func_info{$name}{ <==
4	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	5045	5149	
==>=cut

sub gen_manifest_skip {

   # manicheck.pl is probably only useful for checked out revisions
   # C <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	12202	12301	
==>t of the array; the second argument, if
present, is assigned to the array element.  If the element t <==
4	/Users/nnunley/parrot/tools/dev/install_files.pl	584	679	
==>refix. Defaults to ''.

=item C<prefix>

The install prefix. Defaults to '/usr'.

=item C<exec_p <==
4	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	813	908	
==>refix. Defaults to ''.

=item C<prefix>

The install prefix. Defaults to '/usr'.

=item C<exec_p <==
4	/Users/nnunley/parrot/config/init/defaults.pm	6225	6352	
==>> "\\\"",

        # yacc = Automatic parser generator
        # lex  = Automatic lexer  generator
        # Some systems may la <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	22167	22281	
==>eturn unless @msgs;

    # Prevent printing headers when compiling (i.e. -c)
    return if $^C;

    # Smash args t <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76040	76143	
==>sity("ERRORS");
	$errortext   = $_[0];
	$errorprefix = "ERROR" .  ($_[1] ? " (line $_[1])" : "");
	$erro <==
4	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	11170	11261	
==>,
$type, $short_name, $body, $args, $argdirs, $line, $file, $labels, $flags, $nolines)>

Ret <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1136	1233	
==>{ $_[0]{'Thispara'} = ''   }
sub start_item_bullet { $_[0]{'Thispara'} = $FREAKYMODE ? '' : '* ' } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302080	302170	
==>> "#line 980 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) ! <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302956	303046	
==>> "#line 980 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) ! <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303832	303922	
==>> "#line 980 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) ! <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	601	703	
==>= @_;

  return $class->new($file, $line, 'bof', undef, '__BOF__');
}

sub new_eof
{
  my $class = shif <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835255	835515	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "savec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "T <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836007	836267	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "savec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "T <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	58033	58173	
==>[#Rule 96
		 'function', 3,
sub
#line 508 "Lua\lua51.yp"
{
            $_[3];
        }
	],
	[#Rule 97
		 'funcbody', 5,
sub
#line <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	18917	19018	
==>'output_is',
        language_output_like => 'output_like',
        language_output_isnt => 'output_is <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	5364	5455	
==>nds) returns Bool is export {
    Test::skip($Test::num_of_tests_planned - $Test::num_of_tes <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	36515	36605	
==>Test::Builder is only thread-aware if threads.pm is loaded I<before>
Test::Builder.

=head1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661948	662033	
==>= PMC_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(interpreter, {{\@2}}, {{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662864	662949	
==>= PMC_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(interpreter, {{\@2}}, {{\@3} <==
4	/Users/nnunley/parrot/config/auto/format.pm	1112	1245	
==>") {
        $nvsize   = $doublesize;
        $nvformat = "%f";
    } elsif ($nv eq "long double") {

        # Stay way from long dou <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	284	409	
==>ar' ],
        [ ident   => '\w+' ],
        [ _MASTER => ':w<type> <ident>' ],
    ],
    "simple subrules test");
  p6rule_i <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16390	16508	
==>>{vtable}{methods}} ) {
        my $meth = $method->{meth};
        next if $meth eq 'class_init';
        if ($self->i <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	17539	17633	
==>itions for all the various
APL operators in all possible configurations.

=head1 LICENSE

Copyr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260008	260288	
==>ODY" => "#line 793 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} == {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260860	261140	
==>ODY" => "#line 793 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} == {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261712	261992	
==>ODY" => "#line 793 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} == {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262565	262845	
==>ODY" => "#line 793 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} == {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584509	584604	
==>{{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585584	585679	
==>{{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598025	598120	
==>{{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599072	599167	
==>{{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, next, NO_CLASS, \"Class ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781234	781588	
==>i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 882,
                  "ARGS" => [
                              "p",
                              "kic",
                              "s"
                            ],
                  "BODY" => "#line 387 \"s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459958	460266	
==>} = {{\@2}} % den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460946	461254	
==>} = {{\@2}} % den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461934	462242	
==>} = {{\@2}} % den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956810	957081	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_encoding",
                  "FLAGS" => ":bas <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957714	957985	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_encoding",
                  "FLAGS" => ":bas <==
4	/Users/nnunley/parrot/lib/Test/More.pm	8383	8487	
==>hem to find out if something is
true or false!

  # XXX BAD!
  is( exists $brooklyn{tree}, 1, 'A tree gro <==
4	/Users/nnunley/parrot/config/gen/cpu/i386/auto.pm	539	642	
==>bose = $conf->options->get('verbose');

    my @files = qw( memcpy_mmx.c memcpy_sse.c );
    for my $f ( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747274	747358	
==>src/ops/set.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748059	748143	
==>src/ops/set.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753568	753652	
==>src/ops/set.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754356	754440	
==>src/ops/set.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\@2} <==
4	/Users/nnunley/parrot/config/auto/env.pm	510	615	
==>bose);

sub runstep
{
    my ($self, $conf) = (shift, shift);

    my $verbose = $conf->options->get('verb <==
4	/Users/nnunley/parrot/config/auto/gdbm.pm	551	656	
==>bose);

sub runstep
{
    my ($self, $conf) = (shift, shift);

    my $verbose = $conf->options->get('verb <==
4	/Users/nnunley/parrot/config/auto/msvc.pm	512	617	
==>bose);

sub runstep
{
    my ($self, $conf) = (shift, shift);

    my $verbose = $conf->options->get('verb <==
4	/Users/nnunley/parrot/lib/Test/More.pm	5457	5557	
==>celeration

The later gives you some idea of what failed.  It also makes it easier
to find the test i <==
4	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	458	552	
==>new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  #$new->accept_codes('VerbatimFormatted');
  r <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	257	350	
==>>{prologue} = q{.namespace [ "Lua" ]
.HLL "Lua", "lua_group"

.include "languages/lua/lib/l <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	262	355	
==>new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->accept_codes('VerbatimFormatted');
  r <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	261	354	
==>new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->accept_codes('VerbatimFormatted');
  r <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	5645	5754	
==>rn () unless $self->{DEBUG};
    my @ops;
    $what = "%<rx_pos>: $what";
    foreach my $part ($what =~ /((?: <==
4	/Users/nnunley/parrot/config/gen/cpu/i386/auto.pm	434	539	
==>figure::Step qw(cc_gen cc_build cc_run cc_clean);

sub runstep
{
    my ($self, $conf) = @_;

    my $verb <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	968	1061	
==>$LOAD_EXT = qq[.bundle];
our $O = qq[.o];
our $CFLAGS = qq[-I/opt/local/include -fno-common -n <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	972	1065	
==>$LOAD_EXT = qq[.bundle];
our $O = qq[.o];
our $CFLAGS = qq[-I/opt/local/include -fno-common -n <==
4	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	724	824	
==>)
  my $code_f   = Parrot::Test::per_test( '.code', $test_no );
  my $out_f    = Parrot::Test::per_te <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	178	276	
==>k.
# Inherits from SRM::Base.

package SRM::Register;
use strict;
use SRM::Base;
our @ISA = qw/SRM: <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4118	4212	
==>ssing arrays (expect 12)
function arrfunc(x())
	print x(4)
	arrfunc=55
end function
dim g(10)
g <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15058	15152	
==>ssing arrays (expect 12)
function arrfunc(x())
	print x(4)
	arrfunc=55
end function
dim g(10)
g <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025039	1025292	
==>info_s(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025796	1026049	
==>info_s(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57909	58161	
==>info_s(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58671	58923	
==>info_s(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
4	/Users/nnunley/parrot/config/gen/platform.pm	3426	3572	
==>_H;

    # implementation files are merged into platform.c
    my @impls = qw/
        time.c
        env.c
        dl.c
        stat.c
        mat <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	19341	19451	
==>y to do this.
     */
    ns = string_make(interpreter, " is an unknown signature type", 29, "ascii", 0);
    m <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	878	986	
==>ired for the mapper.
sub subs() {
	# No extra subs.
	return "";
}

# Label generation.
sub gen_label() {
	# W <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	635	743	
==>ired for the mapper.
sub subs() {
	# No extra subs.
	return "";
}

# Label generation.
sub gen_label() {
	# W <==
4	/Users/nnunley/parrot/config/gen/icu.pm	2824	2954	
==>Makefile
            icu_dir    => '',
        );
        $self->set_result("no") unless defined $self->result;
        return $sel <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	13075	13186	
==>y $ref = $op->reftree();
    return dump_ref($ref);
}

sub dump_ref {
    my ($ref, $indent) = @_;
    $indent | <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	330075	330182	
==>c/ops/dotgnu.ops\"\n  {{\@1}} =  (FLOATVAL)(Parrot_Float8)({{\@1}});\n  {{+=2}};\n",
                  "LABE <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	914	1009	
==>[0]{'Thispara'} = '' }
sub start_head1 {  $_[0]{'Thispara'} = '' }
sub start_head2 {  $_[0]{'Thi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721741	722004	
==>"print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722769	723032	
==>"print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723798	724061	
==>"print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	17608	17721	
==>2ND RDEL
			$modpos,	$endpos-$modpos,	# MODIFIERS
			$endpos, 	$textlen-$endpos,	# REMAINDER
		       );
	}

	unle <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72966	73070	
==>");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(inte <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74568	74672	
==>");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(inte <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76170	76274	
==>");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(inte <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77773	77877	
==>");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(inte <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	25998	26108	
==>OC
    }
    my $opcode = $code[$code_l]->[2];
    if ($opcode eq 'POP_TOP') {
	print "# POP_TOP\n";
	$code_l++ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1669	1758	
==>($dest->value);
  $self->SYNTAX_ERROR("Assigning to unknown variable %s.", $dest->value) u <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1627	1716	
==>($dest->value);
  $self->SYNTAX_ERROR("Assigning to unknown variable %s.", $dest->value) u <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1549	1638	
==>($dest->value);
  $self->SYNTAX_ERROR("Assigning to unknown variable %s.", $dest->value) u <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	19978	20114	
==>uctions of " .
                "more than 2 bytes in rule $_->{'name'}\n";
        }
    }

    # If we have 3 or less rules, dispatch di <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544156	544264	
==>= 0;\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545492	545600	
==>= 0;\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546828	546936	
==>= 0;\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	306646	306819	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless_null",
                  "FLAGS" => "",
                  "ARG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307439	307612	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless_null",
                  "FLAGS" => "",
                  "ARG <==
4	/Users/nnunley/parrot/config/auto/memalign.pm	678	794	
==>->set(memalign => '');
        $self->set_result('skipped');
        return $self;
    }

    if (defined $conf->data <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2750	2842	
==>all its methods.

=head1 SEE ALSO

L<Pod::Simple::DumpAsXML>

L<Pod::Simple>

=head1 COPYRIGH <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692487	692872	
==>,
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 778,
                  "ARGS" => [
                              "i",
                              "i",
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 659 \"s <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	2549	2660	
==>$line = <IN>) {
        if ($line =~ m/^#define/) {
            $line =~ s/PREV_OP\s(..?)\s(\w+)/(jit_info->prev <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27207	27304	
==>e code, if any.
        $pir .= sub_meta($pre_translate_code, $mv, "pre-translate for $rule->{'nam <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34346	34443	
==>e code, if any.
        $pir .= sub_meta($pre_translate_code, $mv, "pre-translate for $rule->{'nam <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106190	1106288	
==>/ops/experimental.ops\"\n    int typ = {{\@2}};\n    if (typ < 1 || typ >= interpreter->n_vtable_ma <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107166	1107264	
==>/ops/experimental.ops\"\n    int typ = {{\@2}};\n    if (typ < 1 || typ >= interpreter->n_vtable_ma <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7906	8001	
==>EMP0} = concat ${STEMP1}

# Put it in the parameter register list.
${PARAMS}[${ITEMP0}] = ${STEM <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6888	6983	
==>EMP0} = concat ${STEMP1}

# Put it in the parameter register list.
${PARAMS}[${ITEMP0}] = ${STEM <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1121	1231	
==>,
    FILE  => $dest->file,
    LINE  => $dest->line
  }, $class;

  $block->push_content($self);

  return $se <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1112	1222	
==>,
    FILE  => $dest->file,
    LINE  => $dest->line
  }, $class;

  $block->push_content($self);

  return $se <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1001	1111	
==>,
    FILE  => $dest->file,
    LINE  => $dest->line
  }, $class;

  $block->push_content($self);

  return $se <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	55757	55855	
==>e of a regex extractor), or returns an empty list or an undefined value (in the case of a subroutin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72970	73081	
==>n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(interpreter, en <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74572	74683	
==>n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(interpreter, en <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76174	76285	
==>n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(interpreter, en <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77777	77888	
==>n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(interpreter, en <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2129	2223	
==>left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako::Construct::Expression::V <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2087	2181	
==>left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako::Construct::Expression::V <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2009	2103	
==>left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako::Construct::Expression::V <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16001	16093	
==><autrijus@autrijus.org>

Benjamin Smith

Norman Nunley

Steve Peters

Stevan Little <stevan@i <==
4	/Users/nnunley/parrot/tools/dev/lib_deps.pl	9119	9250	
==>h
copysignf   math.h
copysignl   math.h
cos         math.h
cosf        math.h
cosh        math.h
coshf       math.h
coshl       math <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	5740	5865	
==>ere can be many libs
        my %libs = %{ $class->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There sh <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	5951	6076	
==>ere can be many libs
        my %libs = %{ $class->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There sh <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	836	943	
==>TreeOptimize->new();
        $tree = $opt1->optimize_tree($tree, $ctx);
    }

    my $rewrite = Regex::Rewr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855018	855273	
==>oncat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855907	856162	
==>oncat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856796	857051	
==>oncat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857686	857941	
==>oncat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7643	7741	
==>is a shortcut method that uses find_symbol() to locate a matching
symbol, and then returns that sym <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8290	8388	
==>is a shortcut method that uses find_symbol() to locate a matching
symbol, and then returns that sym <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8938	9036	
==>is a shortcut method that uses find_symbol() to locate a matching
symbol, and then returns that sym <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9608	9706	
==>is a shortcut method that uses find_symbol() to locate a matching
symbol, and then returns that sym <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297018	297309	
==>} = ({{\@2}} == {{\@3}}) ? 0 : 1;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297874	298165	
==>} = ({{\@2}} == {{\@3}}) ? 0 : 1;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298730	299021	
==>} = ({{\@2}} == {{\@3}}) ? 0 : 1;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	1065	1175	
==>my $name = shift || die "No name.\n";
	my $text = shift;
	my @contents = @_;
	
	# TODO - Groups should only con <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712772	712976	
==>);\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713879	714083	
==>);\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050336	1050625	
==>ext);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEX <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051370	1051659	
==>ext);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEX <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052404	1052693	
==>ext);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEX <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053439	1053728	
==>ext);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEX <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130831	131128	
==>ME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131685	131982	
==>ME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132540	132837	
==>ME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	744	853	
==>er;
require Test::More;

our @EXPORT = qw( plan skip );

my $lang = 'perl6';
my $streams = {
    output => sub <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	7335	7462	
==>g'     , 9001,
 'rang'     , 9002,
 'loz'      , 9674,
 'spades'   , 9824,
 'clubs'    , 9827,
 'hearts'   , 9829,
 'diams'    , <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1400	1498	
==>utput_advance {
    my ($self, $distance, $failLabel) = @_;
    $failLabel = $self->output_label_us <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1149	1247	
==>utput_advance {
    my ($self, $distance, $failLabel) = @_;
    $failLabel = $self->output_label_us <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	390	488	
==>utput_advance {
    my ($self, $distance, $failLabel) = @_;
    $failLabel = $self->output_label_us <==
4	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	1903	2126	
==>rrot::Test::run_command( 
                                \@test_prog, 
                                CD     => $self->{relpath}, 
                                STDOUT => $out_fn,
                                STDERR = <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20459	20569	
==>on::Value::Identifier->new($block, $token);

      my @left = ($left);

      $self->require_assign;

      whi <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3443	3545	
==>self->{'Thispara'},
    "\n\n"
  ;
  $self->{'Thispara'} = '';
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2973	3075	
==>self->{'Thispara'},
    "\n\n"
  ;
  $self->{'Thispara'} = '';
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143578	143692	
==>_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144506	144620	
==>_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145434	145548	
==>_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" = <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	63382	63478	
==>r any specified
prefix was removed).

=item C<Unable to construct closing tag to match: /%s/>

C< <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634720	634828	
==>num (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635838	635946	
==>num (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636956	637064	
==>num (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638075	638183	
==>num (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071993	1072120	
==>TVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074178	1074305	
==>TVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076363	1076490	
==>TVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078549	1078676	
==>TVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	119496	119803	
==>> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120351	120658	
==>> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121206	121513	
==>> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	4684	4780	
==>les and runs the C code, passing the test if output matches the
expected result.

=item C<c_outpu <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16662	16834	
==>lt' => $result,
                );
                push @opcodes, new FindLexOp( $parser,
                    'result' => $result,
                    'arg1'   => $defn, <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10817	10984	
==>lt' => $result, );
                    push @opcodes, new FindLexOp( $parser,
                        'result' => $result,
                        'arg1'   => $defn, <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	12129	12240	
==>formed) will already
  #  have been acted one.
  my($self, $para) = @_;
  my @x = @$para;
  my $content = join ' <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18373	18482	
==>ub _op_inexact_p {
}

sub _op_eq {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $ <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	3320	3449	
==>rather than return foo;");
        }
    }
}


sub check_line_length {
    my ($file, $source) = @_;

    my $line = 0;
    foreac <==
4	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	5846	5970	
==>||
          $b->{timestamp}[0]  <=> $a->{timestamp}[0]
        } @{ $branches{$branch}{$cat} }
      ];
    }

    $branches <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710759	710849	
==>reter, io, \" \");\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  PIO_softspac <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711593	711683	
==>reter, io, \" \");\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  PIO_softspac <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539904	540294	
==>math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 625,
                  "ARGS" => [
                              "i",
                              "i",
                              "i" <==
4	/Users/nnunley/parrot/config/gen/config_h.pm	519	608	
==>se qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':gen';

$description = <==
4	/Users/nnunley/parrot/config/gen/makefiles.pm	361	450	
==>se qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':gen';

$description = <==
4	/Users/nnunley/parrot/config/gen/parrot_include.pm	353	442	
==>se qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':gen';

$description = <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	59602	59751	
==>a51.yp"
{
            [ @{ $_[1] }, $_[3] ];
        }
	],
	[#Rule 109
		 '_field_plus', 1,
sub
#line 584 "Lua\lua51.yp"
{
            [ $_[ <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	25578	25705	
==>p_mmd_init[$entry->[0]].right = entry;
EOC
        }
        else {
            $cout .= <<"EOC";
        _temp_mmd_init[$entry- <==
4	/Users/nnunley/parrot/lib/Test/More.pm	18691	18822	
==>module;" );

    unless( $ok ) {
        chomp $@;
        $Test->diag(<<DIAGNOSTIC);
    Tried to require '$module'.
    Error:  $@ <==
4	/Users/nnunley/parrot/config/init/defaults.pm	6995	7111	
==>ix . "/lib",
        include_dir => $prefix . "/include",
        doc_dir     => $prefix . "/share/doc/parrot",
    ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2564	2663	
==>op->full_name]}"
        unless exists $arg_maps{$type};

    return sprintf($arg_maps{$type}, $num) <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4430	4529	
==>op->full_name]}"
        unless exists $arg_maps{$type};

    return sprintf($arg_maps{$type}, $num) <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1193	1299	
==>et($util);
    $prog ||= $ENV{uc($util)};

    # never override the user.  If a non-existent program is spe <==
4	/Users/nnunley/parrot/config/inter/make.pm	1014	1120	
==>et($util);
    $prog ||= $ENV{uc($util)};

    # never override the user.  If a non-existent program is spe <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1190	1296	
==>et($util);
    $prog ||= $ENV{uc($util)};

    # never override the user.  If a non-existent program is spe <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	10975	11080	
==>{])}, "",
					  q{' . $self->{"name"} .'});
		Parse::RecDescent::_trace(q{(consumed: [} .
					  Parse::R <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	535361	535737	
==>,
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 619,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#li <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4563	4682	
==>};
        return $self->op('nop', [], %$self);
    } elsif (@{ $self->{args} } == 1 && 2 == keys %$self) {
        retu <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5700	5819	
==>};
        return $self->op('nop', [], %$self);
    } elsif (@{ $self->{args} } == 1 && 2 == keys %$self) {
        retu <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	968	1076	
==>>
subclass's C<new()> method.

=cut

sub new_item
{
    my $self = shift;
    
    return Parrot::Docs::Item- <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11470	11720	
==>esult' => $result2,
                            'arg1'   => $result,
                            'arg2'   => $key->[0],
                        );
                        $result = $result2;
                    }
                    push @opcode <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9698	9924	
==>esult' => $result2,
                        'arg1'   => $result,
                        'arg2'   => $key->[0],
                    );
                    $result = $result2;
                }
                push @opcode <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8609	8787	
==>esult' => $result2,
                'arg1'   => $result,
                'arg2'   => $key->[0],
            );
            $result = $result2;
        }
        push @opcode <==
4	/Users/nnunley/parrot/config/auto/m4.pm	563	673	
==>4 is installed';

@args = qw();

sub runstep
{
    my ($self, $conf) = @_;

    my $archname = $Config{archname <==
4	/Users/nnunley/parrot/tools/build/c2str.pl	1518	1618	
==>his file is generated automatically from '$infile'
 * by $0.
 *
 * Any changes made here will be lost <==
4	/Users/nnunley/parrot/tools/build/c2str.pl	3807	3907	
==>his file is generated automatically from '$infile'
 * by $0.
 *
 * Any changes made here will be lost <==
4	/Users/nnunley/parrot/lib/Parrot/Configure.pm	464	558	
==>ON

This module provides provides a means for registering, executing, and
coordinating one or m <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	14698	14782	
==>ource);
}

#------------------------------------------------------------------------- <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13250	13356	
==>delay {
}

#---- Section 6 ----

sub _op_not {
  my ($self,$node) = @_;

  my $return = $self->_save_1 ('I' <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	2360	2457	
==>code and passes the test
if a string comparison of the output with the unexpected result is false. <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	2837	2934	
==>code and passes the test if a string comparison of the output
with the unexpected result is false. <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	3308	3405	
==>code and passes the test if a string comparison of the output
with the unexpected result is false. <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	12425	12557	
==>if ($code_f !~ /\.pbc$/) {
                write_code_to_file($code, $code_f);
            }

            my $args = $ENV{TEST_PROG_A <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	15515	15633	
==>re;
    }

    return $usable_regex;
};

sub _regex_ok {
    my($self, $this, $regex, $cmp, $name) = @_;

    local $Le <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	452	561	
==>t;

  confess "Expected 5 args!" unless @_ == 5;

  my ($block, $prefix, $left, $op, $right) = @_;

  my $self <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	452	561	
==>t;

  confess "Expected 5 args!" unless @_ == 5;

  my ($block, $prefix, $left, $op, $right) = @_;

  my $self <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131346	131604	
==>src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132201	132459	
==>src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133056	133314	
==>src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38346	38483	
==>,
	{#State 151
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'ST <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712414	712518	
==>, 0))\n    PIO_puts(interpreter, io, \" \");\n  s = Parrot_sprintf_c(interpreter, \"%.12g\", (double){{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713521	713625	
==>, 0))\n    PIO_puts(interpreter, io, \" \");\n  s = Parrot_sprintf_c(interpreter, \"%.12g\", (double){{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719881	719985	
==>, 0))\n    PIO_puts(interpreter, io, \" \");\n  s = Parrot_sprintf_c(interpreter, \"%.12g\", (double){{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721081	721185	
==>, 0))\n    PIO_puts(interpreter, io, \" \");\n  s = Parrot_sprintf_c(interpreter, \"%.12g\", (double){{\@ <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5859	5985	
==>t {$FH} "$_->{symbol}";
            if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                print {$FH} " :f <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6954	7080	
==>t {$FH} "$_->{symbol}";
            if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                print {$FH} " :f <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	9868	9994	
==>t {$FH} "$_->{symbol}";
            if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                print {$FH} " :f <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	552	644	
==>t::Pmc2c::Library;

use strict;
use warnings;

use Parrot::Pmc2c qw(dynext_load_code dont_edi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568745	569044	
==>> 0,
                  "NAME" => "isa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569637	569936	
==>> 0,
                  "NAME" => "isa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570530	570829	
==>> 0,
                  "NAME" => "isa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571484	571783	
==>> 0,
                  "NAME" => "isa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367164	367453	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367955	368244	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368747	369036	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	5670	5822	
==>nder', 'spf_vtable', 'utils']
            ),
        ),
        $self->new_group(
            'Multi-methods', 
            '',
            $self->c_pair <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926249	926417	
==>rstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927719	927887	
==>rstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929189	929357	
==>rstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930660	930828	
==>rstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    case STRINGINFO_ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	586	680	
==>ple::PullParser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullP <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1005	1099	
==>ple::PullParser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullP <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	492	586	
==>ple::PullParser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullP <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1479	1573	
==>ple::PullParser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117945	118237	
==>}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118684	118976	
==>}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FL <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15535	15655	
==>rser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new A <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19288	19408	
==>rser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new A <==
4	/Users/nnunley/parrot/config/gen/makefiles.pm	2685	2837	
==>eplace_slashes                      => 1,
        conditioned_lines                    => 1
    );
    genfile(
        'config/gen/makefiles/dynoplibs.i <==
4	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2235	2357	
==>son for:   no strict 'refs';
        my $pass = $self->{builder}->$builder_func(
                       Parrot::Test::slurp <==
4	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2774	2896	
==>son for:   no strict 'refs';
        my $pass = $self->{builder}->$builder_func(
                       Parrot::Test::slurp <==
4	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2708	2822	
==>son for:   no strict 'refs';
        my $pass = $self->{builder}
            ->$builder_func( Parrot::Test::slurp <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	327	425	
==>a
C C<goto> run loop.

=head2 Instance Methods

=over 4

=cut

package Parrot::OpTrans::CGoto;

use <==
4	/Users/nnunley/parrot/lib/Test/More.pm	25603	25720	
==>rence
        $ok = $Test->is_eq($this, $that, $name);
    }
    elsif( !ref $this xor !ref $that ) {  	# one's a refe <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1204	1315	
==>class;

  #
  # Check for a few bad conditions.
  #
  # NOTE: These are compiler internal consistency checks. Th <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1149	1260	
==>class;

  #
  # Check for a few bad conditions.
  #
  # NOTE: These are compiler internal consistency checks. Th <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1052	1163	
==>class;

  #
  # Check for a few bad conditions.
  #
  # NOTE: These are compiler internal consistency checks. Th <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4876	4978	
==>er->temp_pmc();

    $compiler->emit("  $pmc_reg = new $pmc_type");
    $compiler->emit("  $pmc_reg = $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2939	3041	
==>er->temp_pmc();

    $compiler->emit("  $pmc_reg = new $pmc_type");
    $compiler->emit("  $pmc_reg = $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1242	1343	
==>er->temp_pmc();
    $compiler->emit("  $pmc_reg = new $pmc_type");
    $compiler->emit("  $pmc_reg = $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1236	1337	
==>er->temp_pmc();
    $compiler->emit("  $pmc_reg = new $pmc_type");
    $compiler->emit("  $pmc_reg = $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183303	183419	
==>ine 285 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "L <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184199	184315	
==>ine 285 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "L <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185095	185211	
==>ine 285 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "L <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11742	11857	
==>l pmc $uid";
}

sub output_call {
    my ($self, $name, $mode, $uid) = @_;
    return split(/\n/, <<"END");
$uid = _ <==
4	/Users/nnunley/parrot/tools/build/pbc2c.pl	5979	6108	
==>rlen(argv[i]),
                                  0, PObj_external_FLAG, 0);

        if (Interp_flags_TEST(interpreter, PARROT_DEB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	725996	726104	
==>9 \"src/ops/set.ops\"\n  {{\@1}} = string_copy(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726758	726866	
==>9 \"src/ops/set.ops\"\n  {{\@1}} = string_copy(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741976	742084	
==>9 \"src/ops/set.ops\"\n  {{\@1}} = string_copy(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	689566	689734	
==>p",
                              "p"
                            ],
                  "BODY" => "#line 590 \"src/ops/pmc.ops\"\n   {{\@1}} = {{\@2}}->vtable->getprops(i <==
4	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	382	508	
==>{
    return bless {};
}

my %language_test_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    outp <==
4	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	297	422	
==>{
  return bless {};
}


my %language_test_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    outp <==
4	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	463	584	
==>{
    return bless {};
}

my %language_test_map = (
    output_is   => 'is_eq',
    output_like => 'like',
    outp <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8029	8141	
==>q "COMM") and $singleif) {

		$_=pop @ifstack;
		if ($_ < 0 ) {
			# print "Else was done, skipping...\n";
		} el <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1541	1653	
==>elf->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  my $dest_sym = $blo <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1499	1611	
==>elf->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  my $dest_sym = $blo <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1421	1533	
==>elf->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  my $dest_sym = $blo <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687522	687813	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688293	688584	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i <==
4	/Users/nnunley/parrot/tools/dev/cc_flags.pl	1529	1644	
==>lags: line $., $_\n";
	}
	else {
	    last;
	}
    }
}

my ($cfile) = grep /\.c$/, @ARGV;

my ($inject_point, $where <==
4	/Users/nnunley/parrot/lib/Test/More.pm	12930	13042	
==>me) = @_;

    my $diag;
    $obj_name = 'The object' unless defined $obj_name;
    my $name = "$obj_name isa $cl <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	5538	5641	
==>print_value
    unless iter goto loop_end_2d
    value_type = typeof value
    if newline goto print_new <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9507	9604	
==>NT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get details of method we're calling.
(${PTE <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7021	7118	
==>NT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get details of method we're calling.
(${PTE <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5577	5674	
==>NT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get details of method we're calling.
(${PTE <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31722	31851	
==>,
    );
    if (    scalar( @{$exprs} ) == 0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('Ca <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	32373	32502	
==>,
    );
    if (    scalar( @{$exprs} ) == 0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('Ca <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33023	33152	
==>,
    );
    if (    scalar( @{$exprs} ) == 0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('Ca <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	40825	40919	
==>including the start and end
tags). C<undef> is returned on failure. In addition, the original i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314121	314361	
==>));\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i1_ov <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931861	932085	
==>s\"\n  {{\@1}} = string_upcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932632	932856	
==>s\"\n  {{\@1}} = string_upcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948868	949041	
==>tring_trans_charset(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949668	949841	
==>tring_trans_charset(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
4	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1439	1544	
==>cc_output = `$cc /? 2>&1` || '';
        $ccflags =~ s/-O1 // if $cc_output =~ m/Standard/ || $cc_output = <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15263	15362	
==>[^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } e <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16444	16543	
==>[^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } e <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45082	45173	
==>UNCOMMITMK		= '\G\s*<uncommit>';
my $QUOTELIKEMK		= '\G\s*<perl_quotelike>';
my $CODEBLOCKMK <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27808	27942	
==>te 85
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' = <==
4	/Users/nnunley/parrot/tools/build/ops2pm.pl	8916	9045	
==>ev = -1;

  while (<OP>) {
    chomp;
    s/#.*$//;
    s/\s*$//;
    s/^\s*//;
    next unless $_;
    ($name, $number) = split(/ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658271	658356	
==>PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed(interpreter, {{\@2}}, {{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659190	659275	
==>PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed(interpreter, {{\@2}}, {{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762623	762889	
==>" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763475	763741	
==>" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764328	764594	
==>" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765181	765447	
==>" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2829	2933	
==>ructions) hooks.
sub pre_op($$) {
	my $self = shift;
	my ($pops, $pushes) = @_;
	my $register_num = 0;
	m <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1751	1855	
==>ructions) hooks.
sub pre_op($$) {
	my $self = shift;
	my ($pops, $pushes) = @_;
	my $register_num = 0;
	m <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	940	1044	
==>ructions) hooks.
sub pre_op($$) {
	my $self = shift;
	my ($pops, $pushes) = @_;
	my $register_num = 0;
	m <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	11214	11308	
==>r $desc?, Bool :$todo, Str :$depends) returns Bool is export`

These functions should work with <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459886	459983	
==>eter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460874	460971	
==>eter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461862	461959	
==>eter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+= <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	13358	13454	
==>ends("string")` parameter to most of the functions is a way
to provide a comment that refers to a <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8009	8110	
==>tifier name!"  unless defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_sy <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8656	8757	
==>tifier name!"  unless defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_sy <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9324	9425	
==>tifier name!"  unless defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_sy <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9993	10094	
==>tifier name!"  unless defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_sy <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095209	1095418	
==>interpreter, {{\@1}});\n  {{+=2}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ), <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095904	1096113	
==>interpreter, {{\@1}});\n  {{+=2}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ), <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2811	2930	
==>ECK}}='ACCEPT';
    undef;
}

sub YYError {
	my($self)=shift;

	${$$self{CHECK}}='ERROR';
    undef;
}

sub Y <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2680	2788	
==>ECK}}='ACCEPT';
    undef;
}

sub YYError {
	my($self)=shift;

	${$$self{CHECK}}='ERROR';
    undef;
}

sub Y <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447263	447548	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	448085	448370	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449571	449856	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283487	283879	
==>GS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 330,
                  "ARGS" => [
                              "i",
                              "n",
                              " <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9801	9893	
==>CURIC}
${PTEMP4} = shift ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over each parameter an <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7315	7407	
==>CURIC}
${PTEMP4} = shift ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over each parameter an <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6279	6371	
==>CURIC}
${PTEMP4} = shift ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over each parameter an <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836624	836880	
==>+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837356	837612	
==>+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838090	838346	
==>+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838822	839078	
==>+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1686	1826	
==>p->{op} $op->{arg1}->{symbol}\n";
    }

    sub visitBinaryOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $s <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	11726	11842	
==>ame);
}

sub _is_diag {
    my($self, $got, $type, $expect) = @_;

    foreach my $val (\$got, \$expect) {
        if <==
4	/Users/nnunley/parrot/tools/build/c2str.pl	3235	3341	
==>!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically from '$outfile'
 * by $0.
 * <==
4	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	2375	2470	
==>casionally, for
5 minutes.

Add the salt and chick peas and cook, stirring, until heated through <==
4	/Users/nnunley/parrot/languages/regex/test.pl	1610	1730	
==>(@ARGV) {
    if (/^(-h|--help)$/) {
        usage(0);
    } elsif (/^(-c|--compile)$/) {
        $compile = 1; # Compile <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4560	4679	
==>rgs};
        return $self->op('nop', [], %$self);
    } elsif (@{ $self->{args} } == 1 && 2 == keys %$self) {
        r <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5697	5816	
==>rgs};
        return $self->op('nop', [], %$self);
    } elsif (@{ $self->{args} } == 1 && 2 == keys %$self) {
        r <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5877	5978	
==>sestack->{$elsetag}})) {
				push @{$code{$seg}->{code}}, "ELSEBRANCH_$_:\n";
			}
			feedme;
			$else <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38974	39111	
==>E' => 180
		}
	},
	{#State 157
		DEFAULT => -8
	},
	{#State 158
		ACTIONS => {
			"," => 151
		},
		DEFAULT => -36
	},
	{#Stat <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72740	72859	
==>ring_cstring_free(name);\n  if (p == NULLfunc) {\n      const char * err = Parrot_dlerror();\n      Parrot_warn(interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74342	74461	
==>ring_cstring_free(name);\n  if (p == NULLfunc) {\n      const char * err = Parrot_dlerror();\n      Parrot_warn(interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75944	76063	
==>ring_cstring_free(name);\n  if (p == NULLfunc) {\n      const char * err = Parrot_dlerror();\n      Parrot_warn(interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77547	77666	
==>ring_cstring_free(name);\n  if (p == NULLfunc) {\n      const char * err = Parrot_dlerror();\n      Parrot_warn(interpre <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9470	9567	
==>urn or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get de <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6984	7081	
==>urn or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get de <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5540	5637	
==>urn or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get de <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16228	16316	
==>rren Duncan <perl@DarrenDuncan.net>

Nathan Gray <kolibrie@graystudios.org>

Max Maischei <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	174913	175180	
==>function",
                  "CODE" => 209,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 233 \"src/ops/cmp.ops\" <==
4	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	797	914	
==>.end$
    |
    ^clear_eh$
  )
}smx;

my $blank_before = qr { : $}smx;    #labels

my $verbatim_begin = qr{ ^= }smx;
m <==
4	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3447	3541	
==>overly C<const> because of
portability issues.

Make your strings and arrays of strings (or sim <==
4	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	7311	7402	
==>ecurity, Inc. MD5 Message-Digest Algorithm" in all material
mentioning or referencing the de <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748880	749104	
==>>set_number_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749664	749888	
==>>set_number_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755180	755404	
==>>set_number_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755967	756191	
==>>set_number_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	373	470	
==>Value::Identifier;

use Carp;

use base qw(Jako::Construct::Expression::Value);

sub new
{
  my $c <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	681	768	
==>($dest, 'Jako::Construct::Expression::Value::Identifier');
  confess("Left (" . ref($lef <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	672	759	
==>($dest, 'Jako::Construct::Expression::Value::Identifier');
  confess("Left (" . ref($lef <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	561	648	
==>($dest, 'Jako::Construct::Expression::Value::Identifier');
  confess("Left (" . ref($lef <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332419	332511	
==>e = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PI <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333697	333789	
==>e = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PI <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334975	335067	
==>e = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PI <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336254	336346	
==>e = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PI <==
4	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	625	719	
==>~~~~~~~~~~~~~~~~~~

sub _handle_element_start {
  # ($self, $element_name, $attr_hash_r)
  my $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067211	1067499	
==>= c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068397	1068685	
==>= c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069583	1069871	
==>= c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070770	1071058	
==>= c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072159	1072303	
==>hile (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074344	1074488	
==>hile (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076529	1076673	
==>hile (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078715	1078859	
==>hile (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1 <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18734	18864	
==>quire_value);
          last if $self->get(1)->is_close_paren;
          $self->require_comma;
        }
      }

      $self->requ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19760	19890	
==>quire_value);
          last if $self->get(1)->is_close_paren;
          $self->require_comma;
        }
      }

      $self->requ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719955	720045	
==>preter, \"%.12g\", (double){{\@2}});\n  PIO_putps(interpreter, io, s);\n  if (string_str_in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721155	721245	
==>preter, \"%.12g\", (double){{\@2}});\n  PIO_putps(interpreter, io, s);\n  if (string_str_in <==
4	/Users/nnunley/parrot/lib/File/Which.pm	1206	1348	
==>s $all;
            push @results, $symbol;
        }
    }
    if ($Is_MacOS) {
        my @aliases = split /\,/, $ENV{Aliases};
        forea <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540357	540455	
==>line 1022 \"src/ops/math.ops\"\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541609	541707	
==>line 1022 \"src/ops/math.ops\"\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542861	542959	
==>line 1022 \"src/ops/math.ops\"\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	512602	512873	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_neg",
                  "FLAGS" => ":base_core" <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	7461	7578	
==>n $parser->_LongStringLexer($1);

            s/^([A-Z_a-z][0-9A-Z_a-z]*)//
                and return $parser->_Id <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	33214	33313	
==>d and print helpful messages.
    my $test_results = $self->{Test_Results};
    if( @$test_results ) <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	8864	8959	
==>t names and types, and optionally
a class name, C<struct> creates a Perl 5 class that implements <==
4	/Users/nnunley/parrot/config/init/hints/solaris.pm	2451	2621	
==>aris_cc_shared", $solaris_cc_shared_cb);

    ################################################################
    # Parrot usually aims for IEEE-754 compliance.
    # For <==
4	/Users/nnunley/parrot/lib/Test/More.pm	30636	30765	
==>ta_Stack, { type => 'REF', vals => [$e1, $e2] };
                $ok = _deep_check($$e1, $$e2);
                pop @Data_Stack if <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	633	727	
==>ASCII
);

$FAR_CHAR = "?" unless defined $FAR_CHAR;
$FAR_CHAR_NUMBER = ord($FAR_CHAR) unless de <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	4568	4659	
==>omparison of
output with the expected result it true.

=item C<c_output_like($code, $expecte <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106355	1106469	
==>number out of range\");\n    {{\@1}} = interpreter->vtables[typ]->class;\n    {{+=3}};\n",
                  "exper <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107331	1107445	
==>number out of range\");\n    {{\@1}} = interpreter->vtables[typ]->class;\n    {{+=3}};\n",
                  "exper <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	6094	6194	
==>nes} / $totals{lines} * 100)       : 0));
    $totals{branch_coverage} = sprintf("%.2f", ($totals{bra <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	1030	1182	
==>ng *",
       c => "char",
       s => "short",
       2 => "short *",
       f => "float",
       d => "double",
       t => "char *",
       v => "void <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	1445	1597	
==>ng *",
       c => "char",
       s => "short",
       2 => "short *",
       f => "float",
       d => "double",
       t => "char *",
       v => "void <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	2350	2502	
==>ng *",
       c => "char",
       s => "short",
       2 => "short *",
       f => "float",
       d => "double",
       t => "char *",
       v => "void <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	52065	52159	
==>ltiple> returns an array of substrings
of the original string, as extracted by the specified ex <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1018	1138	
==>r->YYData->{_G}, \@opcodes ];
}

sub get_cond {
    my ( $parser, $expr )    = @_;
    my ( $defn,   $opcodes ) = @{ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74941	75053	
==><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$errorprefix,          $errortext
~~                     ^< <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74964	75076	
==><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$errorprefix,          $errortext
~~                     ^<<<<<<<<<<<<<<<<<<<<<<<< <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74987	75099	
==><<<<<<<
$errorprefix,          $errortext
~~                     ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646844	647120	
==>});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647604	647880	
==>});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648365	648641	
==>});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649127	649403	
==>});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	942	1053	
==>, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block,

    DEST  => $dest,
    LEF <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	933	1044	
==>, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block,

    DEST  => $dest,
    LEF <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	822	933	
==>, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block,

    DEST  => $dest,
    LEF <==
4	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	1021	1117	
==>Config.pm"};
    $path_to_parrot =~ s:/lib/Parrot/Config.pm$::;
    my $dir_count = scalar(File:: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549927	550041	
==>ect.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551228	551342	
==>ect.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553790	553904	
==>ect.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555187	555301	
==>ect.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}} <==
4	/Users/nnunley/parrot/tools/dev/lib_deps.pl	5682	5801	
==>er{$include})) {
            print "    $include, included by:\n";
            foreach my $file (sort keys %{$system_inc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256371	256466	
==>rc/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257279	257374	
==>rc/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258187	258282	
==>rc/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567525	567633	
==>\@1}} = {{\@2}}->vtable->does(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568420	568528	
==>\@1}} = {{\@2}}->vtable->does(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	7862	7957	
==>ic STRING*
get_nci_S(Interp *interpreter, struct call_state *st, int n)
{
    assert(n < st->src <==
4	/Users/nnunley/parrot/Configure.pl	7797	7891	
==>ull linker command to create shared libraries
   --icudatadir=(path)  Directory to locate ICU's <==
4	/Users/nnunley/parrot/lib/Test/More.pm	23776	23894	
==>skip($why);
    }

    local $^W = 0;
    last TODO;
}

=item When do I use SKIP vs. TODO?

B<If it's something the use <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544317	544426	
==>if(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545653	545762	
==>if(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546989	547098	
==>if(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100498	100787	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "AR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101931	102220	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "AR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102702	102991	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "AR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028186	1028374	
==>sleep_on_event(interpreter, (FLOATVAL) {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029037	1029225	
==>sleep_on_event(interpreter, (FLOATVAL) {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571076	571169	
==>ops/object.ops\"\n    PMC *class = Parrot_class_lookup_p(interpreter, {{\@3}});\n    {{\@1}} = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572031	572124	
==>ops/object.ops\"\n    PMC *class = Parrot_class_lookup_p(interpreter, {{\@3}});\n    {{\@1}} = <==
4	/Users/nnunley/parrot/config/auto/gdbm.pm	743	842	
==>et('libs');
    my $linkflags = $conf->data->get('linkflags');
    my $ccflags   = $conf->data->get( <==
4	/Users/nnunley/parrot/config/auto/gmp.pm	684	783	
==>et('libs');
    my $linkflags = $conf->data->get('linkflags');
    my $ccflags   = $conf->data->get( <==
4	/Users/nnunley/parrot/config/auto/readline.pm	696	795	
==>et('libs');
    my $linkflags = $conf->data->get('linkflags');
    my $ccflags   = $conf->data->get( <==
4	/Users/nnunley/parrot/config/init/optimize.pm	254	350	
==>s for the local platform to
the C<CCFLAGS>. Should this be part of config/inter/progs.pm ? XXX

= <==
4	/Users/nnunley/parrot/config/auto/sizes.pm	2182	2300	
==>'int');
    } elsif ($results{longsize} == 4) {
        $conf->data->set(int4_t => 'long');
    } else {
        $conf- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72725	72832	
==>, name));\n  string_cstring_free(name);\n  if (p == NULLfunc) {\n      const char * err = Parrot_dlerror();\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74327	74434	
==>, name));\n  string_cstring_free(name);\n  if (p == NULLfunc) {\n      const char * err = Parrot_dlerror();\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75929	76036	
==>, name));\n  string_cstring_free(name);\n  if (p == NULLfunc) {\n      const char * err = Parrot_dlerror();\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77532	77639	
==>, name));\n  string_cstring_free(name);\n  if (p == NULLfunc) {\n      const char * err = Parrot_dlerror();\ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	15141	15258	
==>2..@args;
    my @fails = (@tries, $lastback);

    my (@ibacks, @iops);
    foreach (@args) {
        my ($iback, @op <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16258	16361	
==>:Value::Identifier->new($block, $token);

      $self->require_assign;

      my $left  = Jako::Construc <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17029	17132	
==>:Value::Identifier->new($block, $token);

      $self->require_assign;

      my $left  = Jako::Construc <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17834	17937	
==>:Value::Identifier->new($block, $token);

      $self->require_assign;

      my $left  = Jako::Construc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080433	1080528	
==>{{\@2}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \"Illegal PMC enum (%d) in ne <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081498	1081593	
==>{{\@2}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \"Illegal PMC enum (%d) in ne <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082563	1082658	
==>{{\@2}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \"Illegal PMC enum (%d) in ne <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083629	1083724	
==>{{\@2}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \"Illegal PMC enum (%d) in ne <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769453	769735	
==>,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770305	770587	
==>,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771158	771440	
==>,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772011	772293	
==>,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762629	762912	
==>,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763481	763764	
==>,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764334	764617	
==>,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765187	765470	
==>,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672449	672758	
==>{
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673221	673530	
==>{
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673991	674300	
==>{
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	674762	675071	
==>{
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15792	15888	
==>atever.pod" );
 $parser->run;

Or:

 my $parser = SomePodProcessor->new;
 $parser->set_source( $s <==
4	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	462	557	
==>@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  #$new->accept_codes('VerbatimFormatted');
  return <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	266	360	
==>@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->accept_codes('VerbatimFormatted');
  return <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	265	359	
==>@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->accept_codes('VerbatimFormatted');
  return <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	10983	11080	
==>f)||0;
	unless ($$textref =~ m/\G($pre)/gc)
	{
		_failmsg "Did not find prefix: /$pre/", pos $$tex <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	1914	2000	
==>nter-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wno-unused -Wsig <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1279	1365	
==>nter-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wno-unused -Wsig <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1283	1369	
==>nter-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wno-unused -Wsig <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948323	948609	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949122	949408	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1363	1482	
==>ler->emit("  global \"$ident_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ( <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1357	1476	
==>ler->emit("  global \"$ident_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ( <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	5386	5494	
==>erate, compile, linklibs, or copy\n";
}

sub run {
    print join(" ", @_), "\n";

    return system(@_) == 0 <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4587	4695	
==>erate, compile, linklibs, or copy\n";
}

sub run {
    print join(" ", @_), "\n";

    return system(@_) == 0 <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	5597	5705	
==>erate, compile, linklibs, or copy\n";
}

sub run {
    print join(" ", @_), "\n";

    return system(@_) == 0 <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3268	3373	
==>$I0, $vars, INPUT_$inputcounts  # Re-prompt\n";
	}

	$loop=0;
	barf();		# We're too far in already...
	whi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72945	73049	
==>r : \"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74547	74651	
==>r : \"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76149	76253	
==>r : \"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77752	77856	
==>r : \"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072762	1072880	
==>{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074947	1075065	
==>{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077132	1077250	
==>{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079318	1079436	
==>{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649087	649311	
==>{{\@1}} = pmc_type_p(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649850	650074	
==>{{\@1}} = pmc_type_p(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/config/inter/lex.pm	912	1013	
==>ns->get('maintainer')) {
        $conf->data->set($util => 'echo');
        $self->set_result('skipped <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	909	1010	
==>ns->get('maintainer')) {
        $conf->data->set($util => 'echo');
        $self->set_result('skipped <==
4	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	1071	1318	
==>und 2 in $symbtab\n";
                        return $defn;
                    }
                }
            }
            return undef;
        }
    }

    sub Insert {
        my $self   = shift;
        my ($defn) = @_;
        m <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544294	544404	
==>, saved_var2 = b; \n\n if(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545630	545740	
==>, saved_var2 = b; \n\n if(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546966	547076	
==>, saved_var2 = b; \n\n if(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	268935	269323	
==>,
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 313,
                  "ARGS" => [
                              "i",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 835 \"s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332812	333135	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334090	334413	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335368	335691	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" = <==
4	/Users/nnunley/parrot/tools/dev/nm.pl	7112	7234	
==>ocal    = $type eq lc $type ? 1 : 0;
		my $other    = 0;
		if (($^O eq 'irix' || $^O eq 'dec_osf') &&
		    $type =~ /^[BbS <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	5986	6105	
==>ts_run++;

    # $context is now the raw TODO, so we have to check it
    my $context;

    # Check if we have to forcet <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	1467	1586	
==>nd returns a list.

=cut

sub get
{
    my $self = shift;

    my $c = $self->{c};

    return @$c{@_};
}

=item C<set($ <==
4	/Users/nnunley/parrot/config/gen/makefiles.pm	4357	4467	
==>HQ9plus/config/makefiles/root.in' => 'languages/HQ9plus/Makefile',
        commentType                  => '#', <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8125	8253	
==>pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8907	9035	
==>pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7778	7906	
==>pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8567	8695	
==>pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	32461	32597	
==>gs) 		# postponed LOAD_
EOC
	$obj = $o;
    }
    my $a = $c;
    if ($vtables{$c}) {
	$c = $vtables{$c};
    }
    my $cc;
    if ($c =~ <==
4	/Users/nnunley/parrot/tools/build/ops2c.pl	14342	14447	
==>le */
  $op_func,		/* op_func_table */
  $getop		/* op_code() */
};

END_C

# generate initfunc
my $init1_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210265	210359	
==>terpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) <= 0) {\n    {{+= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211245	211339	
==>terpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) <= 0) {\n    {{+= <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1334	1483	
==>b pc
{
    my $self = shift;

    if (@_)
    {
        $self->{PC} = shift;
    }
    else
    {
        return $self->{PC};
    }
}

=item C<args(@a <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	943	1092	
==>b pc
{
    my $self = shift;

    if (@_)
    {
        $self->{PC} = shift;
    }
    else
    {
        return $self->{PC};
    }
}

=item C<args(@a <==
4	/Users/nnunley/parrot/tools/build/headerize.pl	2998	3119	
==>y $ofile ( @ofiles ) {
        next if $ofile =~ m/^\Qsrc$PConfig{slash}ops\E/;

        my $cfile = $ofile;
        $cfil <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12784	12890	
==>on, then we append the HTML suffix and get the
    # docs file. Once we have that all we need is the relati <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	5375	5507	
==>ile, NULL, RTYPE_DATA, "const_table", 0);/g;
                $asm =~ s/jit_emit_end/exec_emit_end/;
            }
            if (($c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	287117	287437	
==>"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 334,
                  "ARGS" => [
                              "i",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 918 \"src/ops/ <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	35957	36055	
==>ng successfully completed all its tests, it will still be
considered a failure and will exit with 2 <==
4	/Users/nnunley/parrot/lib/Test/More.pm	34028	34126	
==>ng successfully completed all its tests, it will still be
considered a failure and will exit with 2 <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	2823	2921	
==>ng successfully completed all its tests, it will still be
considered a failure and will exit with 2 <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	58	167	
==>ub new {
    my ($proto, %options) = @_;
    my $self = bless \%options, (ref($proto) || $proto);
    $self->i <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	225	334	
==>ub new {
    my ($proto, %options) = @_;
    my $self = bless \%options, (ref($proto) || $proto);
    $self->i <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	566	675	
==>ub new {
    my ($proto, %options) = @_;
    my $self = bless \%options, (ref($proto) || $proto);
    $self->i <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45245	45340	
==>my $NOCHECKMK		= '\G\s*<nocheck>';
my $AUTOTREEMK		= '\G\s*<autotree>';
my $AUTOSTUBMK		= '\G\s* <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117467	117732	
==>" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 14 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118205	118470	
==>" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 14 <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3582	3683	
==>("Sub declaration has no fnlib property, and parent block is not a module!")
        unless $self->blo <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6246	6347	
==>("Sub declaration has no fnlib property, and parent block is not a module!")
        unless $self->blo <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344266	344361	
==>{{\@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345508	345603	
==>{{\@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346750	346845	
==>{{\@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347993	348088	
==>{{\@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843188	843283	
==>"#line 45 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@3}});\n  {{+=4} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844066	844161	
==>"#line 45 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@3}});\n  {{+=4} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844944	845039	
==>"#line 45 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@3}});\n  {{+=4} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845823	845918	
==>"#line 45 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@3}});\n  {{+=4} <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	1644	1739	
==>ing the various C<process_*> methods
below. This makes it easier to where the custom bits of Par <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2041	2141	
==>n find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STE <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3293	3393	
==>n find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STE <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5922	6022	
==>n find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STE <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6480	6580	
==>n find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421259	421557	
==>UMP" => 0,
                  "NAME" => "bind",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422151	422449	
==>UMP" => 0,
                  "NAME" => "bind",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040009	1040260	
==>> 1162,
                  "ARGS" => [
                              "sc",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 120 \"src/ops/var.ops\"\n    Parrot_store_g <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	26761	26869	
==>/[gc]//g;
	$pattern =~ s/(\A|[^\\])\\G/$1/g;

	bless 
	{
		"pattern"   => $pattern,
		"ldelim"      => $ldel, <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2176	2296	
==>$target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various librarie <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2468	2588	
==>$target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various librarie <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2263	2383	
==>$target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various librarie <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	14462	14574	
==>push_block($loop) if defined $cont;
      }
      elsif ($peer_block->kind eq 'continue') {
        if (defined $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476556	476822	
==>E" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477451	477717	
==>E" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478347	478613	
==>E" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479238	479504	
==>E" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8416	8522	
==>d tests, but ran $Test::num_of_tests_run");
    }

    if ($Test::num_of_tests_failed) {
        $*ERR.say( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095968	1096225	
==>mental" => 1,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "classname",
                  "FL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645878	645989	
==>n    else\n\t\t{{\@1}} = Parrot_get_datatype_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646775	646886	
==>n    else\n\t\t{{\@1}} = Parrot_get_datatype_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LA <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	2181	2280	
==>1 unless $self->content;

#  if ($options->{PACKAGE}) {
#    $options->{PACKAGE} .= "::" . $self->na <==
4	/Users/nnunley/parrot/tools/build/ops2c.pl	10743	10908	
==>p->labels
            ? $op->labels
            : 0
        ) . " }";
        my $flags      = 0;

        print SOURCE <<END_C;
  { /* $index */
    /* type $type, * <==
4	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1104	1212	
==>t();
        my $dir_count      = scalar(File::Spec->splitdir($path_to_parrot));
        my $path_to_language <==
4	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1594	1697	
==>t();
        my $dir_count = scalar(File::Spec->splitdir($path_to_parrot));
        my $path_to_language <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	1932	2029	
==>es the test if a string comparison
of the output with the expected result it true.

=item C<pasm_o <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	747	849	
==>arp;
    Carp::croak(
      'usage: $object->attr("val") or $object->attr("key", "newval")');
    retur <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714761	714855	
==>reter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=2}};\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715684	715778	
==>reter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=2}};\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716629	716723	
==>reter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=2}};\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477186	477461	
==>} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478082	478357	
==>} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478973	479248	
==>} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479865	480140	
==>} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1014	1128	
==>e_text {
  DEBUG and print "== \"$_[1]\"\n";
  
  if(length $_[1]) {
    my $indent = '  ' x $_[0]{'indent'};
    m <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	963	1074	
==>e_text {
  DEBUG and print "== \"$_[1]\"\n";
  if(length $_[1]) {
    my $indent = '  ' x $_[0]{'indent'};
    m <==
4	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	589	690	
==>'.out',$count);
    my $parrotdir = dirname $self->{parrot};

    my $args = $ENV{TEST_PROG_ARGS} || ' <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	626	727	
==>'.out',$count);
    my $parrotdir = dirname $self->{parrot};

    my $args = $ENV{TEST_PROG_ARGS} || ' <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	36461	36576	
==>{
			Parse::RecDescent::_error("Not symbol (\"!\") before
				            \"$subrule\" doesn't make
					    sense." <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	35985	36084	
==>l its tests, it will still be
considered a failure and will exit with 255.

So the exit codes are... <==
4	/Users/nnunley/parrot/lib/Test/More.pm	34056	34155	
==>l its tests, it will still be
considered a failure and will exit with 255.

So the exit codes are... <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	2851	2950	
==>l its tests, it will still be
considered a failure and will exit with 255.

So the exit codes are... <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14543	14715	
==>S" => [
                              "i"
                            ],
                  "BODY" => "#line 247 \"src/ops/core.ops\"\n  opcode_t * const loc = INTVAL2PTR(opc <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1532	1645	
==>est  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  my $dest_sy <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1490	1603	
==>est  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  my $dest_sy <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1412	1525	
==>est  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  my $dest_sy <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714522	714622	
==>ython.ops\"\n  STRING * const s = {{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (s && s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715445	715545	
==>ython.ops\"\n  STRING * const s = {{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (s && s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561930	562026	
==>exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", {{\@3}});\n  }\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563014	563110	
==>exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", {{\@3}});\n  }\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1092	1187	
==>pcode + CONTEXT(interpreter->ctx)->pred_offset)

#  define opcode_to_prederef(i, op) \\
     ((v <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16432	16523	
==>lf->forth->text;
      my $right = Jako::Construct::Expression::Value->new($block, $self->fo <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17203	17294	
==>lf->forth->text;
      my $right = Jako::Construct::Expression::Value->new($block, $self->fo <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18008	18099	
==>lf->forth->text;
      my $right = Jako::Construct::Expression::Value->new($block, $self->fo <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332347	332449	
==>s\"\n  /* These char * need to go away soon */\n  const char * const mode = string_to_cstring(interpret <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333625	333727	
==>s\"\n  /* These char * need to go away soon */\n  const char * const mode = string_to_cstring(interpret <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334903	335005	
==>s\"\n  /* These char * need to go away soon */\n  const char * const mode = string_to_cstring(interpret <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336182	336284	
==>s\"\n  /* These char * need to go away soon */\n  const char * const mode = string_to_cstring(interpret <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492789	493061	
==>d({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493550	493822	
==>d({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499524	499796	
==>d({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500287	500559	
==>d({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591413	591545	
==>arrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_na <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592623	592755	
==>arrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_na <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593833	593965	
==>arrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_na <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595044	595176	
==>arrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_na <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467790	468083	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468661	468954	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469535	469828	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470410	470703	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22492	22608	
==>($pattern =~ m{<head(\d)>(.+)</head\d>$}
      and !( $1 eq '1' and $2 eq 'NAME' )
    ) {
      # Well, it fits a fa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483643	483739	
==>ne 455 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484642	484738	
==>ne 455 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485641	485737	
==>ne 455 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926204	926323	
==>O_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927674	927793	
==>O_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929144	929263	
==>O_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930615	930734	
==>O_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773436	773690	
==>table->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774346	774600	
==>table->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775256	775510	
==>table->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776167	776421	
==>table->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/config/init/defaults.pm	4499	4611	
==>aviour for linking parrot to a static or shared libparrot
        parrot_is_shared => 0,

        #avoid a warnin <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	13929	14041	
==>{ # stet
  } elsif(!length $source
     or $source eq '-' or $source =~ m/^<&(STDIN|0)$/i
  ) { 
    $source = *S <==
4	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	867	971	
==>UG > 3 and print "Stack is now: ",
    join(">", map $_->[0], @{$_[0]{'_currpos'}}), "\n";
  return;
}

s <==
4	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1100	1204	
==>UG > 3 and print "Stack is now: ",
    join(">", map $_->[0], @{$_[0]{'_currpos'}}), "\n";
  return;
}

s <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35873	35975	
==>ements
{

    my ($self, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $li <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31243	31344	
==>ements
{
    my ($self, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $li <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39863	39964	
==>ements
{
    my ($self, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $li <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	2355	2452	
==>= _build_tree($tokens,$count);
    #_dataflow($tree);
    #print Data::Dumper->Dump ([$count, $tre <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20017	20235	
==>ction not ending
                                          in an explicit action has
                                          some parse-tree building code
                                          automatically append <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2573	2689	
==>traLibs =~ s/blib/..\\blib/g;
        $extraLibs =~ s/\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } el <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2882	2998	
==>traLibs =~ s/blib/..\\blib/g;
        $extraLibs =~ s/\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } el <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2677	2793	
==>traLibs =~ s/blib/..\\blib/g;
        $extraLibs =~ s/\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } el <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	972697	973026	
==>e",
                  "CODE" => 1093,
                  "ARGS" => [
                              "i",
                              "i",
                              "s",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.o <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	11363	11475	
==>p = shift;
    my ($min, $max, $greedy, $R) = @{ $op->{args} };
    my $base = $R->render();
    $base = "(?:$bas <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	17713	17814	
==>ult, $type, @code)=EXPRESSION();
		$false=qq{""} if $type eq "S";
		if ($which eq "while") {
			$_="@c <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19171	19272	
==>ult, $type, @code)=EXPRESSION();
		$false=qq{""} if $type eq "S";
		if ($which eq "while") {
			$_="@c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549965	550067	
==>ethod_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  ne <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551266	551368	
==>ethod_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  ne <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553828	553930	
==>ethod_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  ne <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555225	555327	
==>ethod_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  ne <==
4	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	3930	4055	
==>ary conversion subs\n";
    for my $type (keys %types) {
        next unless my $help = $helpers{$type};
        
        $cod <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106202	1106300	
==>ental.ops\"\n    int typ = {{\@2}};\n    if (typ < 1 || typ >= interpreter->n_vtable_max)\n\treal_e <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107178	1107276	
==>ental.ops\"\n    int typ = {{\@2}};\n    if (typ < 1 || typ >= interpreter->n_vtable_max)\n\treal_e <==
4	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	3942	4035	
==>ew([code])>

Returns C<$obj> as a new instance.

=item C<$obj->add_pir($code, $code, ...)>

Ad <==
4	/Users/nnunley/parrot/config/init/hints/cygwin.pm	988	1135	
==>cc',
        ld_share_flags      => '-shared',
        ld_load_flags       => '-shared',
        libs                => $libs,
        has_static_li <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2049	2161	
==>ess $left_sym;
    $left_type = $left_sym->type;
  }
  else {
    $left_type = $left->type;
  }

  my $right_type <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2007	2119	
==>ess $left_sym;
    $left_type = $left_sym->type;
  }
  else {
    $left_type = $left->type;
  }

  my $right_type <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1929	2041	
==>ess $left_sym;
    $left_type = $left_sym->type;
  }
  else {
    $left_type = $left->type;
  }

  my $right_type <==
4	/Users/nnunley/parrot/config/auto/inline.pm	288	384	
==>e;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

us <==
4	/Users/nnunley/parrot/config/auto/readline.pm	291	387	
==>e;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

us <==
4	/Users/nnunley/parrot/config/gen/parrot_include.pm	297	393	
==>e;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

us <==
4	/Users/nnunley/parrot/config/init/optimize.pm	377	473	
==>e;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

us <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22438	22544	
==>e::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE; ') .'
		$ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27335	27440	
==>e::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;').'
		$l <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29445	29550	
==>e::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;').'
		$l <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31542	31647	
==>e::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;').'
		$l <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066987	1067093	
==>L temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  wh <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068173	1068279	
==>L temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  wh <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069359	1069465	
==>L temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  wh <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070546	1070652	
==>L temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  wh <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1360	1467	
==>>

Returns the C code for C<ADDRESS($address)>. Called by C<goto_address()>.

=cut

sub expr_address
{
    m <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550102	550191	
==>ent_object = object;\n  interpreter->current_cont = NEED_CONTINUATION;\n  interpreter->cur <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551403	551492	
==>ent_object = object;\n  interpreter->current_cont = NEED_CONTINUATION;\n  interpreter->cur <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552745	552834	
==>ent_object = object;\n  interpreter->current_cont = NEED_CONTINUATION;\n  interpreter->cur <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501016	501276	
==>.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501755	502015	
==>.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502493	502753	
==>.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503232	503492	
==>.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	659	766	
==>$expr;
    $count++;
    ($count, $expr) = _build_tree ($tokens, $count);
    push @{$temp->{children}}, $ex <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	876	983	
==>$expr;
    $count++;
    ($count, $expr) = _build_tree ($tokens, $count);
    push @{$temp->{children}}, $ex <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1090	1197	
==>$expr;
    $count++;
    ($count, $expr) = _build_tree ($tokens, $count);
    push @{$temp->{children}}, $ex <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1314	1421	
==>$expr;
    $count++;
    ($count, $expr) = _build_tree ($tokens, $count);
    push @{$temp->{children}}, $ex <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	22118	22230	
==>=cut

sub diag {
    my($self, @msgs) = @_;
    return unless @msgs;

    # Prevent printing headers when compili <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	938	1038	
==>ined suppress];
our $PERL = q[perl];
our $LOAD_EXT = qq[.bundle];
our $O = qq[.o];
our $CFLAGS = qq[- <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	927	1027	
==>ined suppress];
our $PERL = q[perl];
our $LOAD_EXT = qq[.bundle];
our $O = qq[.o];
our $CFLAGS = qq[- <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	931	1031	
==>ined suppress];
our $PERL = q[perl];
our $LOAD_EXT = qq[.bundle];
our $O = qq[.o];
our $CFLAGS = qq[- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071791	1071890	
==>ine 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073976	1074075	
==>ine 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076161	1076260	
==>ine 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078347	1078446	
==>ine 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646848	647143	
==>n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647608	647903	
==>n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648369	648664	
==>n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649131	649426	
==>n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "F <==
4	/Users/nnunley/parrot/tools/build/c2str.pl	506	622	
==>reate_c_include;
    exit;
};
$do_init and do {
    unlink $outfile;
    exit;
};

$file = shift @ARGV;
$file =~ s/\. <==
4	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1005	1105	
==>ni_parrot = 1    if @ARGV && $ARGV[0] =~ /mini/;
$install_parrot = 1 if @ARGV && $ARGV[0] =~ /install <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4859	4955	
==>x,$error)
     = @$self{ 'RULES', 'STATES', 'LEX', 'ERROR' };
	my($errstatus,$nberror,$token,$v <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4619	4713	
==>x,$error)
     = @$self{ 'RULES', 'STATES', 'LEX', 'ERROR' };
	my($errstatus,$nberror,$token,$v <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067096	1067216	
==>e (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068282	1068402	
==>e (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069468	1069588	
==>e (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070655	1070775	
==>e (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n <==
4	/Users/nnunley/parrot/lib/Parrot/Op.pm	3782	3883	
==>rg_types) if @arg_types;

    $name = "deprecated_$name" if ($self->body =~ /DEPRECATED/);

    return <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	4986	5079	
==>cted, @todo )>

Determine the language from the extension of C<$example_f> and runs
language_o <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	5199	5292	
==>cted, @todo )>

Determine the language from the extension of C<$example_f> and runs
language_o <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	5414	5507	
==>cted, @todo )>

Determine the language from the extension of C<$example_f> and runs
language_o <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696728	696929	
==>",
                              "ic",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697729	697930	
==>",
                              "ic",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698730	698931	
==>",
                              "ic",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699732	699933	
==>",
                              "ic",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83689	83775	
==>VTABLE_get_pmc_keyed_int(interpreter,\n      interpreter->iglobals, IGLOBALS_COMPREG_HA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84595	84681	
==>VTABLE_get_pmc_keyed_int(interpreter,\n      interpreter->iglobals, IGLOBALS_COMPREG_HA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85500	85586	
==>VTABLE_get_pmc_keyed_int(interpreter,\n      interpreter->iglobals, IGLOBALS_COMPREG_HA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86407	86493	
==>VTABLE_get_pmc_keyed_int(interpreter,\n      interpreter->iglobals, IGLOBALS_COMPREG_HA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774976	775247	
==>ine",
                  "CODE" => 875,
                  "ARGS" => [
                              "p",
                              "ki",
                              "ic"
                            ],
                  "BODY" => "#line 377 \"src/ops/set.ops\"\n    {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	12259	12426	
==>"inline",
                  "CODE" => 16,
                  "ARGS" => [],
                  "BODY" => "#line 217 \"src/ops/core.ops\"\n  {{=*}};\n",
                  " <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21895	22036	
==>r,
        'op'     => $opcode{$op},
        'arg1'   => $expr1->[0],
        'arg2'   => $expr2->[0],
        'result' => $result,
    ) <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	4323	4432	
==>ll in a heredoc, we got an error.
    if ($in_heredoc) {
        die "Unterminated heredoc runs to end of file <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344373	344465	
==>erpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* string_cstring_free(pa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345615	345707	
==>erpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* string_cstring_free(pa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346857	346949	
==>erpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* string_cstring_free(pa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348100	348192	
==>erpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* string_cstring_free(pa <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3438	3536	
==>} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = $ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5200	5298	
==>} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = $ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2185	2283	
==>} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = $ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3437	3535	
==>} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573470	573828	
==>> [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 655,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 242 \"src <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	3031	3145	
==>tput2; # ( { label => ?label, code => op } : tagged_op )
    my %labels; # { label string => tagged_op }
    foreac <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	4795	4909	
==>ndex_html .= "$self->{TEXT}<br>\n";
        $index_html = '<p>' . $index_html . "</p>\n";
    }
    
    return $in <==
4	/Users/nnunley/parrot/Configure.pl	9039	9148	
==>c
    auto::msvc
    init::optimize
    inter::shlibs
    inter::libparrot
    inter::charset
    inter::encod <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467687	467921	
==>visionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468558	468792	
==>visionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469432	469666	
==>visionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470307	470541	
==>visionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73010	73114	
==>um_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}}->vt <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74612	74716	
==>um_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}}->vt <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76214	76318	
==>um_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}}->vt <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77817	77921	
==>um_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}}->vt <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579670	579941	
==>ABLE_subclass(interpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580975	581246	
==>ABLE_subclass(interpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582280	582551	
==>ABLE_subclass(interpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583586	583857	
==>ABLE_subclass(interpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	15898	16054	
==>4,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			"<=" => 85 <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29751	29907	
==>4,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			"<=" => 85 <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30266	30422	
==>4,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			"<=" => 85 <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36812	36968	
==>4,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			"<=" => 85 <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	11334	11453	
==>egin'},
				 _get_args($elseclause) ] };
  }
  else {
    $transnode = { value => '#f' };
  }

  for my $clause ( revers <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15439	15541	
==>sion tokens
		$whole.=join(' ', map { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair unary -, functi <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15801	15903	
==>sion tokens
		$whole.=join(' ', map { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair unary -, functi <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16952	17054	
==>sion tokens
		$whole.=join(' ', map { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair unary -, functi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634869	635176	
==>}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635987	636294	
==>}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637105	637412	
==>}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	32046	32164	
==>s $tos->[1]", $cl, 'P'];
}
sub LOAD_ATTR
{
    my ($n, $c, $cmt) = @_;
    my $tos = pop @stack;  # object
    my $attr <==
4	/Users/nnunley/parrot/config/auto/cgoto.pm	528	641	
==>verbose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self-> <==
4	/Users/nnunley/parrot/config/auto/headers.pm	463	576	
==>verbose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self-> <==
4	/Users/nnunley/parrot/config/auto/jit.pm	614	727	
==>verbose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self-> <==
4	/Users/nnunley/parrot/config/gen/cpu.pm	526	639	
==>verbose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self-> <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38234	38454	
==>erpreter, {{\@1}});\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PAR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140854	140969	
==>7 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141750	141865	
==>7 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142646	142761	
==>7 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727087	727354	
==>> "exchange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "io"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727885	728152	
==>> "exchange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "io"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	728682	728949	
==>> "exchange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "io"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729476	729743	
==>> "exchange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "io"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	5326	5447	
==>type, $str );
}

sub _Identifier {
    my $parser = shift;
    my ($idf) = @_;

    if ( exists $parser->YYData->{k <==
4	/Users/nnunley/parrot/config/auto/gmp.pm	2272	2390	
==>flags',   $ccflags);
        $conf->data->set('linkflags', $linkflags);
        print " (no) " if $verbose;
        $se <==
4	/Users/nnunley/parrot/config/auto/readline.pm	2072	2190	
==>flags',   $ccflags);
        $conf->data->set('linkflags', $linkflags);
        print " (no) " if $verbose;
        $se <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2330	2440	
==>ned($arg2);
    return "add $realvar, $arg1";
}

sub output_sub {
    my ($self, $var, $amount) = @_;
    $amou <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926211	926339	
==>ART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = POb <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927681	927809	
==>ART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = POb <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929151	929279	
==>ART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = POb <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930622	930750	
==>ART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = POb <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828885	829156	
==>c(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829953	830224	
==>c(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	7358	7478	
==>options{ignore})	       ? $options{ignore}
		    :					 ''
		    ;

	if (!defined $ldel) { $ldel = '<\w+(?:' . gen_delimi <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	24360	24480	
==>options{ignore})	       ? $options{ignore}
		    :					 ''
		    ;

	if (!defined $ldel) { $ldel = '<\w+(?:' . gen_delimi <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10965	11071	
==>EBUG;
    open (IN, "<$infile") or die "Can't read $infile: $!\n";
    open (OUT, ">$outfile") or die "Can' <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11449	11555	
==>EBUG;
    open (IN, "<$infile") or die "Can't read $infile: $!\n";
    open (OUT, ">$outfile") or die "Can' <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11913	12019	
==>EBUG;
    open (IN, "<$infile") or die "Can't read $infile: $!\n";
    open (OUT, ">$outfile") or die "Can' <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	37740	37832	
==>hed the opening tag 
C<"{{DATA}}">, then the constructed closing tag would be C<"{{/DATA}}">. <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1782	1902	
==>);

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	2397	2517	
==>);

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	1251	1371	
==>);

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1303	1397	
==>rns the tagname for this start-token object.
For example, parsing a "=head1 ..." line will give <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216828	216963	
==>"
                            ],
                  "BODY" => "#line 462 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpret <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217768	217903	
==>"
                            ],
                  "BODY" => "#line 462 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpret <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	52341	52451	
==>);
				$code =~ /\A\s*<reject:(.*)>\Z/s;
				$item = new Parse::RecDescent::Directive(
					      "($1) ? undef <==
4	/Users/nnunley/parrot/examples/benchmarks/addit.pl	138	231	
==>oke  $

=head1 NAME

examples/benchmarks/addit.pl - Variable Argument Subroutines

=head1 SYNO <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	725	823	
==>tern, $description, @todo)>

Runs the target string against the Perl 6 pattern, passing the test
if <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1842	1940	
==>tern, $description, @todo)>

Runs the target string against the Perl 6 pattern, passing the test if <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2823	2921	
==>tern, $description, @todo)>

Runs the target string against the Perl 6 pattern, passing the test
if <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3374	3472	
==>tern, $description, @todo)>

Runs the target string against the Perl 6 pattern, passing the test if <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	47320	47419	
==>ument),

=item [6]

"EOMSG" (i.e. the right delimiter of the here document),

=item [7..10]

"" (a h <==
4	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	3170	3337	
==>ith exit code $exit_code."
            }
            if ( $diag ) {
                $self->{builder}->diag( $diag )
            }
        }

        # The generated fil <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284807	284917	
==>/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "L <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285684	285794	
==>/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "L <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286561	286671	
==>/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "L <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79547	79810	
==>_class_UnManagedStruct);\n      PMC_data({{\@1}}) = p;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81068	81331	
==>_class_UnManagedStruct);\n      PMC_data({{\@1}}) = p;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33547	33665	
==>here we /didn't/ push to @$para
            if($paras->[0][0] eq '~Para') {
              DEBUG and print "Assimilating <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35360	35478	
==>here we /didn't/ push to @$para
            if($paras->[0][0] eq '~Para') {
              DEBUG and print "Assimilating <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6752	6875	
==>r
#DBG>				and	$$errstatus == 0
#DBG>				and	do {
#DBG>					print STDERR "**End of Error recovery.\n";
#DBG>					$dbgerr <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8624	8743	
==>r
#DBG>			and	$$errstatus == 0
#DBG>			and	do {
#DBG>				print STDERR "**End of Error recovery.\n";
#DBG>				$dbgerr <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6438	6557	
==>r
#DBG>				and	$$errstatus == 0
#DBG>				and	do {
#DBG>					print STDERR "**End of Error recovery.\n";
#DBG>					$dbgerr <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8235	8350	
==>r
#DBG>			and	$$errstatus == 0
#DBG>			and	do {
#DBG>				print STDERR "**End of Error recovery.\n";
#DBG>				$dbgerr <==
4	/Users/nnunley/parrot/tools/dev/nm.pl	2808	2904	
==>ibrary_format ]
Portable frontend for nm(1); by default lists all the code and data symbols
in th <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2897	2992	
==>elf->content;
  $handler->end_element({ Name => 'block' });

  $handler->end_element({ Name => $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2779	2874	
==>elf->content;
  $handler->end_element({ Name => 'block' });

  $handler->end_element({ Name => $ <==
4	/Users/nnunley/parrot/config/gen/cpu/i386/auto.pm	185	278	
==>SCRIPTION

Test for MMX/SSE functionality. Creates these Config entries

 TEMP_generated => 'f <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9827	9932	
==>lock, $self->require_value);
      my $op    = $self->require_infix_rel->text;
      my $right = Jako::Con <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25363	25468	
==>lock, $self->require_value);
      my $op    = $self->require_infix_rel->text;
      my $right = Jako::Con <==
4	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2370	2455	
==>=head1 SEE ALSO

F<examples/benchmarks/mops.pasm>,
F<examples/mops/mops.c>,
F<examples <==
4	/Users/nnunley/parrot/examples/mops/mops.pl	2370	2455	
==>=head1 SEE ALSO

F<examples/benchmarks/mops.pasm>,
F<examples/mops/mops.c>,
F<examples <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492783	493037	
==>val_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493544	493798	
==>val_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499518	499772	
==>val_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500281	500535	
==>val_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852616	852946	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":ba <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855067	855397	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":ba <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855956	856286	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":ba <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856845	857175	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":ba <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058964	1059217	
==>=> 1182,
                  "ARGS" => [
                              "p",
                              "kc",
                              "sc"
                            ],
                  "BODY" => "#line 194 \"src/ops/var.ops\"\n    {{\@1}} = Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86748	86991	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new_callback",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87749	87992	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new_callback",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	14334	14430	
==>ns that take regular
expressions as arguments, but need to work before perl 5.005.

Takes a quote <==
4	/Users/nnunley/parrot/config/inter/lex.pm	876	976	
==>=> undef);

    unless ($conf->options->get('maintainer')) {
        $conf->data->set($util => 'echo' <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	873	973	
==>=> undef);

    unless ($conf->options->get('maintainer')) {
        $conf->data->set($util => 'echo' <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5840	5932	
==>lf->{triggers}{$key}{$trigger};

    my $verbose = defined $self->get('verbose') && $self->ge <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6410	6502	
==>lf->{triggers}{$key}{$trigger};

    my $verbose = defined $self->get('verbose') && $self->ge <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31745	31883	
==>scalar( @{$exprs} ) == 0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @o <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	32396	32534	
==>scalar( @{$exprs} ) == 0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @o <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33046	33184	
==>scalar( @{$exprs} ) == 0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @o <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33569	33707	
==>scalar( @{$exprs} ) == 0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @o <==
4	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1999	2177	
==>ug             => '-debug',
            ld_share_flags       => '-dll',
            ld_load_flags        => '-dll',
            ld_out               => '-out:',
            ldflag <==
4	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3982	4160	
==>ug             => '-debug',
            ld_share_flags       => '-dll',
            ld_load_flags        => '-dll',
            ld_out               => '-out:',
            ldflag <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17810	17910	
==>"True  " else e$="False "
print a$;b$;c$;d$;e$
next j,i

' Select-case (all positive)
t=50
select cas <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	6748	6848	
==>LER::POSITION>" if $Test::ALWAYS_CALLER;
    # message like "test #1 # TODO" confuse the harness. Esc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22504	22833	
==>c",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 30,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	553	644	
==>NIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Dest (" . ref($dest) . ") is not <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	544	635	
==>NIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Dest (" . ref($dest) . ") is not <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	433	524	
==>NIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Dest (" . ref($dest) . ") is not <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126590	126712	
==>{\@3}};\n  const INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127725	127847	
==>{\@3}};\n  const INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128860	128982	
==>{\@3}};\n  const INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	73422	73521	
==>text;
	$_[0]->{fulltextlen} = length $text;
	$_[0]->{deferred} = [];
	$_[0]->{errors} = [];
	my @arg <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7983	8103	
==>ars qw($DEBUG_LABEL);
sub output_popindex {
    my $self = shift;

    my ($reg, $fallback);
    if (@_ == 1) {
        ( <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7636	7756	
==>ars qw($DEBUG_LABEL);
sub output_popindex {
    my $self = shift;

    my ($reg, $fallback);
    if (@_ == 1) {
        ( <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4028	4133	
==>mp;
  }
  else {
    $left = $left->compile($compiler);
  }

  unless ($right_type->name eq $calc_type->na <==
4	/Users/nnunley/parrot/tools/build/ops2c.pl	5636	5728	
==>int HEADER "#define PARROT_IN_EXTENSION\n";
}
print HEADER <<END_C;
#include "parrot/parrot.h <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547885	548107	
==>,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 1094 \"src/ops/math.ops\"\n  /* Coercing a negative to a <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1073	1164	
==>isa($left, 'Jako::Construct::Expression::Value');
  confess "Right is not Value!" if defined <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1101	1192	
==>isa($left, 'Jako::Construct::Expression::Value');
  confess "Right is not Value!" if defined <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	773	864	
==>isa($left, 'Jako::Construct::Expression::Value');
  confess "Right is not Value!" if defined <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302112	302257	
==>\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302988	303133	
==>\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303864	304009	
==>\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	1590	1688	
==>turn> statement, if the body is empty then
make a cast if needed.

This method is imported by subcl <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	4477	4601	
==>rc'    , 226,
 'atilde'   , 227,
 'auml'     , 228,
 'aring'    , 229,
 'aelig'    , 230,
 'ccedil'   , 231,
 'egrave'   , 23 <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1967	2088	
==>$conf->options->get('ask')) {

        # fall back to default
        $self->set_result('no');
        return $self;
    } <==
4	/Users/nnunley/parrot/config/inter/make.pm	1841	1962	
==>$conf->options->get('ask')) {

        # fall back to default
        $self->set_result('no');
        return $self;
    } <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1981	2102	
==>$conf->options->get('ask')) {

        # fall back to default
        $self->set_result('no');
        return $self;
    } <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5671	5778	
==>print STDERR "In state $stateno:\n";
#DBG>		$debug & 0x08
#DBG>	and	print STDERR "Stack:[".
#DBG>					 jo <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5399	5503	
==>print STDERR "In state $stateno:\n";
#DBG>		$debug & 0x08
#DBG>	and	print STDERR "Stack:[".
#DBG>					 jo <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	1617	1708	
==>ew_section('lazy-k', 'lazy-k.html', '', 'languages/lazy-k'),
        $self->new_section('Lua <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	1660	1749	
==>which they are performed.',
		$self->new_item('', 'Configure.pl'),
		$self->config_groups, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748847	748938	
==>ops/set.ops\"\n  {{\@1}}->vtable->set_number_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749631	749722	
==>ops/set.ops\"\n  {{\@1}}->vtable->set_number_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755147	755238	
==>ops/set.ops\"\n  {{\@1}}->vtable->set_number_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755934	756025	
==>ops/set.ops\"\n  {{\@1}}->vtable->set_number_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352326	352553	
==>preter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352984	353211	
==>preter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358011	358238	
==>preter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358675	358902	
==>preter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126684	126910	
==>\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127819	128045	
==>\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128954	129180	
==>\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	35006	35123	
==>s\n";
		}
        if ($rule->{'code'} eq '45') {
            $pir .= <<'PIRCODE';
i = elements P_arg_0
SS_PROP_LOOP_sw <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	7352	7494	
==>$result, $num_key, $callop->{result}[0] ],
                );
                push @opcodes2, new NoOp($parser);
                push @opcod <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786104	786194	
==>BODY" => "#line 417 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed_i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787015	787105	
==>BODY" => "#line 417 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed_i <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15837	15926	
==>er = SomePodProcessor->new;
 $parser->set_source( $some_filehandle_object );
 $parser->run <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202769	203032	
==>rpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203700	203963	
==>rpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204631	204894	
==>rpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	29241	29335	
==>wing code also processes
each quote-like operation, but actually removes them from $text:

	whi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469368	469466	
==>({{\@2}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by z <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470243	470341	
==>({{\@2}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by z <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478841	478939	
==>({{\@2}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by z <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479733	479831	
==>({{\@2}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by z <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837216	837304	
==>s/stack.ops\"\n  (void)stack_pop(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837948	838036	
==>s/stack.ops\"\n  (void)stack_pop(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838682	838770	
==>s/stack.ops\"\n  (void)stack_pop(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	839414	839502	
==>s/stack.ops\"\n  (void)stack_pop(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	848	941	
==>n::Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($right <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	686	779	
==>n::Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($right <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	839	932	
==>n::Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($right <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	728	821	
==>n::Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($right <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730708	730933	
==>4 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731444	731669	
==>4 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741240	741465	
==>4 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745800	746025	
==>4 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025000	1025110	
==>5 \"src/ops/sys.ops\"\n   {{\@1}} = sysinfo_s(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025757	1025867	
==>5 \"src/ops/sys.ops\"\n   {{\@1}} = sysinfo_s(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16006	16098	
==>ijus@autrijus.org>

Benjamin Smith

Norman Nunley

Steve Peters

Stevan Little <stevan@iinter <==
4	/Users/nnunley/parrot/config/inter/progs.pm	4267	4354	
==>conf->data->get('ccwarn'), $conf->options->get('ccwarn'));
    $conf->data->set(ccwarn = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786185	786442	
==>er_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787096	787353	
==>er_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788005	788262	
==>er_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788915	789172	
==>er_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855008	855268	
==>= string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855897	856157	
==>= string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856786	857046	
==>= string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857676	857936	
==>= string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	53	151	
==>ict;
use Carp ();
use Pod::Simple ();
use vars qw( $ATTR_PAD @ISA $VERSION $SORT_ATTRS);
$VERSION = <==
4	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	54	152	
==>ict;
use Carp ();
use Pod::Simple ();
use vars qw( $ATTR_PAD @ISA $VERSION $SORT_ATTRS);
$VERSION = <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	379	476	
==>::More->import( $plan, @args );

    __PACKAGE__->_export_to_level( 2, __PACKAGE__ );
}

my $count <==
4	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	296	393	
==>::More->import( $plan, @args );

    __PACKAGE__->_export_to_level( 2, __PACKAGE__ );
}

my $count <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24754	24876	
==>_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    for( <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25765	25887	
==>_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    for( <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26653	26775	
==>_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    for( <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27663	27785	
==>_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    for( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374056	374310	
==>_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374939	375193	
==>_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375822	376076	
==>_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376706	376960	
==>_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099217	1099340	
==>\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100415	1100538	
==>\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101613	1101736	
==>\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102812	1102935	
==>\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584455	584553	
==>ass_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    re <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585530	585628	
==>ass_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    re <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597971	598069	
==>ass_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    re <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599018	599116	
==>ass_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    re <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1836	1931	
==>onfig{exe}
);

my $perl6 = File::Spec->catfile(
    $path_to_parrot, qw/ languages perl6 p6shell <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28868	28972	
==>e of \${DEST0} or \${LOADREG} in rule " .
				"$rule->{'name'}\n";
        } elsif ($rule->{'instruction' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841649	841920	
==>rpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842413	842684	
==>rpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	9825	9933	
==>$temps_ref,
        $extra_preamble_ref, $extra_postamble_ref) = @_;

    local $_ = $argtype;
    my $temp_n <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19974	20066	
==>head1 VERSION\n\n[BIG BLOCK]\n" block.  Note that this does NOT
return the module's C<$VERSIO <==
4	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	14424	14555	
==>XT\(\)/{{^+$op_size}}/mg;
                      $body =~ s/\bexpr\s+ADDRESS\((.*?)\)/{{^$1}}/mg;
                      $body =~ s/\b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143559	143655	
==>ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144487	144583	
==>ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145415	145511	
==>ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+= <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27517	27629	
==>$self) ? ''
				: $self->describe ) . '};
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ( <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29627	29739	
==>$self) ? ''
				: $self->describe ) . '};
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ( <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31724	31836	
==>$self) ? ''
				: $self->describe ) . '};
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ( <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	3758	3850	
==>offsetlinenum} += $parser->{lastlinenum} - $apparently;
	return 1;
}

package Parse::RecDesce <==
4	/Users/nnunley/parrot/tools/build/ops2pm.pl	3170	3275	
==>ed.
#

my %seen;

for $file (@ARGV) {
    if ($seen{$file}) {
	print STDERR "$0: Ops file '$file' mentione <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20080	20364	
==>ME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 27,
                  "ARGS <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2357	2458	
==>ister_num/$register_num/g;
		$register_num++;
	}

	# Do code for each push.
	$pir .= "\${ITEMP0} = 0\n <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1709	1810	
==>ister_num/$register_num/g;
		$register_num++;
	}

	# Do code for each push.
	$pir .= "\${ITEMP0} = 0\n <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9719	9817	
==>nt str$(rnd())
print str$(rnd(1))


' Expect Hello A World
print "Hello " + chr$(65);
print " World <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123296	123595	
==>JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124169	124468	
==>JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125043	125342	
==>JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
4	/Users/nnunley/parrot/lib/Parrot/Configure.pm	536	627	
==>d
coordinating one or more Configuration steps.  Please see
F<docs/configuration.pod> for fu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548078	548181	
==>n  /* Coercing a negative to a UINT can get pretty ugly\n   * in this situation. */\n  INTVAL i = {{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548984	549087	
==>n  /* Coercing a negative to a UINT can get pretty ugly\n   * in this situation. */\n  INTVAL i = {{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607545	607638	
==>/object.ops\"\n    {{\@1}} = VTABLE_get_attr(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608449	608542	
==>/object.ops\"\n    {{\@1}} = VTABLE_get_attr(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n", <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4081	4178	
==>his is a subclass of L<Pod::Simple> and inherits all its methods.

=head1 SEE ALSO

L<Pod::Simple> <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3522	3619	
==>his is a subclass of L<Pod::Simple> and inherits all its methods.

=head1 SEE ALSO

L<Pod::Simple> <==
4	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1258	1355	
==>his is a subclass of L<Pod::Simple> and inherits all its methods.

=head1 SEE ALSO

L<Pod::Simple> <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2701	2797	
==>his is a subclass of L<Pod::Simple> and inherits all its methods.

=head1 SEE ALSO

L<Pod::Simple <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	3671	3794	
==>3,
 'cedil'    , 184,
 'sup1'     , 185,
 'ordm'     , 186,
 'raquo'    , 187,
 'frac14'   , 188,
 'frac12'   , 189,
 'frac3 <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	3454	3556	
==>s}{$label->{label}};
    $comment = $comment ? "\n\t# $comment" : "";
    ($label = $label->{label}) =~ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934047	934135	
==>"src/ops/string.ops\"\n  {{\@1}} = string_downcase(interpreter, {{\@2}});\n  {{+=3}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934822	934910	
==>"src/ops/string.ops\"\n  {{\@1}} = string_downcase(interpreter, {{\@2}});\n  {{+=3}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262930	263229	
==>ME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 30 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263876	264175	
==>ME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 30 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264729	265028	
==>ME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 30 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265583	265882	
==>ME" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 30 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854975	855070	
==>"src/ops/string.ops\"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855864	855959	
==>"src/ops/string.ops\"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856753	856848	
==>"src/ops/string.ops\"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857643	857738	
==>"src/ops/string.ops\"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727624	727897	
==>\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exchange", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	728421	728694	
==>\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exchange", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729215	729488	
==>\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exchange", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726827	727099	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exchange", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080386	1080492	
==>/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    internal_except <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081451	1081557	
==>/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    internal_except <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082516	1082622	
==>/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    internal_except <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083582	1083688	
==>/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    internal_except <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39967	40064	
==>cript-off' => \&_op_transcript_off,

#--------------------
#
# Macros
#
#--------------------

  ' <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	2255	2351	
==>Calls C<write_html()> on the contents of the section.

An HTML link to the section's index is ret <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	49623	49717	
==>acted by stepping through the input text and
trying the following alternatives in sequence:

=o <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	6464	6558	
==>t;
use warnings;

use FindBin;
use lib "$FindBin::Bin/../..";
use lib "$FindBin::Bin/../../lib" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634691	634793	
==>LASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635809	635911	
==>LASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636927	637029	
==>LASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638046	638148	
==>LASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634668	634764	
==>on(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  cla <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635786	635882	
==>on(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  cla <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636904	637000	
==>on(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  cla <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638023	638119	
==>on(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  cla <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332501	332595	
==>, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333779	333873	
==>, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335057	335151	
==>, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336336	336430	
==>, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_ <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	439	531	
==>recursively (see the C<files()> method
in C<Parrot::IO::Directory>).

If an item has more tha <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2084	2193	
==>ft_sym->type;
  }
  else {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, ' <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2042	2151	
==>ft_sym->type;
  }
  else {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, ' <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1964	2073	
==>ft_sym->type;
  }
  else {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, ' <==
4	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	832	925	
==>ld be as qualified as
necessary for your platform--generally the full filename is required,
th <==
4	/Users/nnunley/parrot/lib/Test/More.pm	25938	26086	
==>his, $that) ) {
            $ok = $Test->ok(1, $name);
        }
        else {
            $ok = $Test->ok(0, $name);
            $Test->diag(_forma <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	46717	46855	
==>. . . . . . . . . . . . . . . . . .
# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
#======================== <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	46765	46878	
==>. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
#=============================================== <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	46811	46901	
==>. . . . . . . . . .
#====================================================================== <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451990	452365	
==>,
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 518,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	106227	106417	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 162 \"src/ops/bit.ops\"\n  {{\@1}} |= {{\@2}};\n  {{+=3}};\n",
                  "LABELS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054349	1054440	
==>al_exception(1, \"Tried to get from null namespace.\");\n    if (!{{\@3}})\n\tinternal_excep <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055476	1055567	
==>al_exception(1, \"Tried to get from null namespace.\");\n    if (!{{\@3}})\n\tinternal_excep <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11111	11245	
==>uct::Statement::Decrement->new($block, $ident);
      }

      next;
    }

    #
    # Arithmetic assigns:
    #
    #   <var> <op> <v <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2089	2198	
==>m->type;
  }
  else {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2047	2156	
==>m->type;
  }
  else {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1969	2078	
==>m->type;
  }
  else {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako: <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24589	24693	
==>rce line $sourceline";
		}
}
my $forloop=0;
sub parse_for {   # for var = start to finish [step increment <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381291	381603	
==>n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382303	382615	
==>n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383315	383627	
==>n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384328	384640	
==>n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	988	1096	
==>) {
	# This is admittedly a little bit silly:
	# do we ever export anything else than 'struct'...?
      $sel <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359725	360034	
==>base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 421,
                  "ARGS" => [
                              "sc"
                            ],
                  "BODY" => <==
4	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1101	1331	
==>5, I4, I1
                              #
print "Estimated ops: $I5\n"; # print  "Estimated ops: "
                              # print  I5
                              # print  "\n"
                              #
$N1 = time_hir <==
4	/Users/nnunley/parrot/examples/mops/mops.pl	1101	1331	
==>5, I4, I1
                              #
print "Estimated ops: $I5\n"; # print  "Estimated ops: "
                              # print  I5
                              # print  "\n"
                              #
$N1 = time_hir <==
4	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	708	821	
==>< $_[1] | $_[0] >> (32 - $_[1]);
	#my $right = $_[0] >> (32 - $_[1]);
	#my $rmask = (1 << $_[1]) - 1;
	($_[0] << $ <==
4	/Users/nnunley/parrot/tools/dev/run_indent.pl	3174	3309	
==>sl/g;	
    }
    foreach (sort keys %$typedefs) {
        $cmd .= " -T $_";
    }
    $cmd .= " $file";
    
    print "Running \"$cmd\" <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1712	1805	
==>gning to unknown variable %s.", $dest->value) unless $dest_sym;
  my $dest_type = $dest_sym->t <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1670	1763	
==>gning to unknown variable %s.", $dest->value) unless $dest_sym;
  my $dest_type = $dest_sym->t <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1592	1685	
==>gning to unknown variable %s.", $dest->value) unless $dest_sym;
  my $dest_type = $dest_sym->t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72551	72641	
==>rc/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  fu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74153	74243	
==>rc/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  fu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75755	75845	
==>rc/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  fu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77358	77448	
==>rc/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  fu <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	1198	1312	
==>ft->{TYPE}; }
sub text { return shift->{TEXT}; }


#
# dump()
#

sub dump
{
  my $self = shift;

  print STDERR "{\ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	1555	1648	
==>e fallback defined!" if ! $fallback;
    return "rx_popindex P0, ".$self->output_label_use($fa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835739	835821	
==>terpreter, &CONTEXT(interpreter->ctx)->user_stack, string_copy(interpreter, {{\@1}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836492	836574	
==>terpreter, &CONTEXT(interpreter->ctx)->user_stack, string_copy(interpreter, {{\@1}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381276	381569	
==>ed (32bit)\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382288	382581	
==>ed (32bit)\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383300	383593	
==>ed (32bit)\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384313	384606	
==>ed (32bit)\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79072	79177	
==>string_free(name);\n  if (p == NULL) {\n      const char * const err = Parrot_dlerror();\n      Parrot_war <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80593	80698	
==>string_free(name);\n  if (p == NULL) {\n      const char * const err = Parrot_dlerror();\n      Parrot_war <==
4	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	736	832	
==>);
    $out_f  = File::Spec->rel2abs($out_f);
    Parrot::Test::write_code_to_file( $code, $lang_ <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	773	869	
==>);
    $out_f  = File::Spec->rel2abs($out_f);
    Parrot::Test::write_code_to_file( $code, $lang_ <==
4	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	7047	7196	
==>inline("  .local $1 ");
            $code .= emit(join(",", map {$_."_%0"} @vars), 'loop_num');

            next;
        }
        

        # comme <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404647	404760	
==>{{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405559	405672	
==>{{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406471	406584	
==>{{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407384	407497	
==>{{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857767	858071	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858770	859074	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859774	860078	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860778	861082	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712665	712769	
==>_index(interpreter, s,\n\tconst_string(interpreter, \"e\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713772	713876	
==>_index(interpreter, s,\n\tconst_string(interpreter, \"e\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720132	720236	
==>_index(interpreter, s,\n\tconst_string(interpreter, \"e\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721332	721436	
==>_index(interpreter, s,\n\tconst_string(interpreter, \"e\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591605	591698	
==>next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592815	592908	
==>next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594025	594118	
==>next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595236	595329	
==>next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass( <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2282	2390	
==>evant C code.

=cut

sub goto_offset
{
    my ($self, $offset) = @_;
    return "{ cur_opcode += $offset; got <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22200	22307	
==>new($block, $self->require_value);

        $self->require_close_paren;
      }

      $self->require_semico <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23133	23240	
==>new($block, $self->require_value);

        $self->require_close_paren;
      }

      $self->require_semico <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24779	24885	
==>new($block, $self->require_value);
        $self->require_close_paren;
      }

      $self->require_semico <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	278340	278701	
==>FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 324,
                  "ARGS" => [
                              "i",
                              "p <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	668	752	
==>NIVERSAL::isa($dest, 'Jako::Construct::Expression::Value::Identifier');
  confess("Le <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	659	743	
==>NIVERSAL::isa($dest, 'Jako::Construct::Expression::Value::Identifier');
  confess("Le <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	548	632	
==>NIVERSAL::isa($dest, 'Jako::Construct::Expression::Value::Identifier');
  confess("Le <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	1809	1906	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@

__PACKAGE__->_accessorize(
  'nbsp_for_S',        # Whether to map S <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11435	11524	
==>have a return value.
PRE_CALL_RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8621	8710	
==>have a return value.
PRE_CALL_RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7193	7282	
==>have a return value.
PRE_CALL_RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	31629	31723	
==>_data}->{code}}, qq{\t\$P1["$line"]= $counter\n};
		}
		foreach (@{$ld->{data}}) {
			my($t,$v) <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	7384	7475	
==>eeds_build("$group$LOAD_EXT", @sources)) {
        run(partial_link_cmd("$group$LOAD_EXT", $ <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	7595	7686	
==>eeds_build("$group$LOAD_EXT", @sources)) {
        run(partial_link_cmd("$group$LOAD_EXT", $ <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	24681	24768	
==>tch = Text::Balanced::_match_tagged($textref, $pre, $ldel, $rdel, $omode, $bad, $ignore) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926523	926698	
==>UFUSED:  {{\@1}} = {{\@2}}->bufused;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927993	928168	
==>UFUSED:  {{\@1}} = {{\@2}}->bufused;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929463	929638	
==>UFUSED:  {{\@1}} = {{\@2}}->bufused;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930934	931109	
==>UFUSED:  {{\@1}} = {{\@2}}->bufused;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16071	16173	
==>_;
  my $return = $self->_save_1 ('I');
  my $label = $self->_gensym();

  _num_arg ($node, 1, 'null?') <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231152	231254	
==>BODY" => "#line 592 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232056	232158	
==>BODY" => "#line 592 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232960	233062	
==>BODY" => "#line 592 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57474	57849	
==>AGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 74,
                  "ARGS" => [
                              "s",
                              "i"
                            ],
                  "B <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2679	2810	
==>s;
    } else {
        $liblist = join( ' ', map { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS " <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2988	3119	
==>s;
    } else {
        $liblist = join( ' ', map { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS " <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2783	2914	
==>s;
    } else {
        $liblist = join( ' ', map { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS " <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2977	3078	
==>b output_le {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_test('<=', $val1, $val2, $de <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1408	1506	
==>vance {
    my ($self, $distance, $failLabel) = @_;
    $failLabel = $self->output_label_use($failL <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1157	1255	
==>vance {
    my ($self, $distance, $failLabel) = @_;
    $failLabel = $self->output_label_use($failL <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	398	496	
==>vance {
    my ($self, $distance, $failLabel) = @_;
    $failLabel = $self->output_label_use($failL <==
4	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	356	471	
==>est_prog {
    my $self = shift;
    my ( $path_to_parrot, $path_to_language, $count ) = @_;
 
    
    my $test_pro <==
4	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	374	483	
==>est_prog {
    my $self = shift;
    my ( $path_to_parrot, $path_to_language, $count ) = @_;

    my $test_pro <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62683	62790	
==>more subrule match", $aftererror,$line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $gramma <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63394	63501	
==>more subrule match", $aftererror,$line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $gramma <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766489	766595	
==>DY" => "#line 335 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Ou <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767342	767448	
==>DY" => "#line 335 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Ou <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768195	768301	
==>DY" => "#line 335 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Ou <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769049	769155	
==>DY" => "#line 335 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Ou <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1498	1618	
==><args()>

Sets/gets the transform's arguments.

=cut

sub args
{
    my $self = shift;

    if (@_)
    {
        $self-> <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1107	1227	
==><args()>

Sets/gets the transform's arguments.

=cut

sub args
{
    my $self = shift;

    if (@_)
    {
        $self-> <==
4	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	933	1031	
==>when svn is not available).
# See docs/submissions.pod on how to recreate this file after SVN
# has <==
4	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3788	3886	
==>when svn is not available).
# See docs/submissions.pod on how to recreate this file after SVN
# has <==
4	/Users/nnunley/parrot/languages/APL/t/APL.pm	1580	1708	
==>ep hackin' it up!
    }

    my $todo   = $block->todo;
    if (defined($todo)) {
      if (! $todo) {
        $todo = "not imple <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	6904	7026	
==>);
    %names = ();
}

sub ARG_count {
    my ($n, $c, $cmt) = @_;
    print <<EOC;
	# $c($n) $cmt
EOC
}

my (@stack, $temp <==
4	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1450	1558	
==>language = '.';
        } elsif ($dir_count >2) {
          $path_to_language = File::Spec->join(File::Spec-> <==
4	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1935	2043	
==>language = '.';
        } elsif ($dir_count >2) {
          $path_to_language = File::Spec->join(File::Spec-> <==
4	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2933	3096	
==>t harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # test result
              | " <==
4	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4330	4493	
==>t harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # test result
              | " <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2083	2181	
==>er')) {
      my $arg_sym = $self->block->find_symbol($args[$i]->value);
      $self->SYNTAX_ERROR( <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1783	1881	
==>er')) {
      my $arg_sym = $self->block->find_symbol($args[$i]->value);
      $self->SYNTAX_ERROR( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072522	1072626	
==>@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we used abs({{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074707	1074811	
==>@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we used abs({{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076892	1076996	
==>@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we used abs({{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079078	1079182	
==>@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we used abs({{\@ <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32769	32879	
==>nfo\n";
		    $pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			    "typeinfo for rule $rule->{'name'}");
		    $p <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26777	26875	
==>nfo\n";
		$pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$p <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28493	28591	
==>nfo\n";
		$pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$p <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36475	36573	
==>nfo\n";
		$pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$p <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	2953	3073	
==>[,])(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, 'comma', undef, $1);
      $text = $2;
      ne <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1143	1230	
==>not Value!" if defined $right and not UNIVERSAL::isa($right, 'Jako::Construct::Expressio <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1171	1258	
==>not Value!" if defined $right and not UNIVERSAL::isa($right, 'Jako::Construct::Expressio <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	843	930	
==>not Value!" if defined $right and not UNIVERSAL::isa($right, 'Jako::Construct::Expressio <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6707	6831	
==>DBG>					$debug & 0x10
#DBG>				and	$dbgerror
#DBG>				and	$$errstatus == 0
#DBG>				and	do {
#DBG>					print STDERR "**E <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6394	6514	
==>DBG>					$debug & 0x10
#DBG>				and	$dbgerror
#DBG>				and	$$errstatus == 0
#DBG>				and	do {
#DBG>					print STDERR "**E <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8581	8700	
==>DBG>				$debug & 0x10
#DBG>			and	$dbgerror
#DBG>			and	$$errstatus == 0
#DBG>			and	do {
#DBG>				print STDERR "**E <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8193	8308	
==>DBG>				$debug & 0x10
#DBG>			and	$dbgerror
#DBG>			and	$$errstatus == 0
#DBG>			and	do {
#DBG>				print STDERR "**E <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714624	714720	
==>ring_length(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715547	715643	
==>ring_length(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722311	722407	
==>ring_length(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723340	723436	
==>ring_length(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interp <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	29610	29709	
==>_make_string {
}

sub _op_string {
}

sub _op_string_length {
}

sub _op_string_ref {
}

sub _op_str <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	1866	1950	
==>t-prototypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwrite-string <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1231	1315	
==>t-prototypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwrite-string <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1235	1319	
==>t-prototypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwrite-string <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332497	332593	
==>eter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333775	333871	
==>eter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335053	335149	
==>eter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336332	336428	
==>eter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enu <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	2722	2829	
==>ule_save_rxlocals {
    my ($self) = @_;

    my $rxlocals = ($self->{rxlocals} ||= []);
    return (aop(com <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	35731	35828	
==>ailed.  If
you run less (or more) tests than you planned, the missing (or extras)
will be consider <==
4	/Users/nnunley/parrot/lib/Test/More.pm	33802	33899	
==>ailed.  If
you run less (or more) tests than you planned, the missing (or extras)
will be consider <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	2598	2695	
==>ailed.  If
you run less (or more) tests than you planned, the missing (or extras)
will be consider <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2507	2614	
==>e will place its
  # definition into the block at the top of the block stack. We fill in the
  # IDENT entry <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2254	2361	
==>e will place its
  # definition into the block at the top of the block stack. We fill in the
  # IDENT entry <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	13989	14089	
==>my $extra_postamble = join("\n    ", @{$extra_postamble_ref});
    my $return_data     = "$return_ass <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	772	865	
==>>{'output_fh'} ||= *STDOUT{IO};
  $new->nix_X_codes(1);
  $new->nbsp_for_S(1);
  $new->{'Thisp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129804	130058	
==>/bit.ops\"\n  {{\@1}} ^= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130543	130797	
==>/bit.ops\"\n  {{\@1}} ^= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	17041	17149	
==>int "\n ( \$] .= 5.006001 ? (\n";
print @good;
print " ) : (\n";
print @bad;
print " )\n);\n";

__END__
#~~~~ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	73605	73703	
==>{namespace}/;
	no strict "refs";
	
	croak "Unknown starting rule ($AUTOLOAD) called\n"
		unless def <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926446	926609	
==>_FLAGS({{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1}} = {{\@2}}->bufused;\n                              break;\n    case ST <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927916	928079	
==>_FLAGS({{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1}} = {{\@2}}->bufused;\n                              break;\n    case ST <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929386	929549	
==>_FLAGS({{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1}} = {{\@2}}->bufused;\n                              break;\n    case ST <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930857	931020	
==>_FLAGS({{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1}} = {{\@2}}->bufused;\n                              break;\n    case ST <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584441	584535	
==>ss = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585516	585610	
==>ss = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597957	598051	
==>ss = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599004	599098	
==>ss = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL <==
4	/Users/nnunley/parrot/config/init/hints/hpux.pm	222	342	
==>s = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }

    $conf->data->set( <==
4	/Users/nnunley/parrot/config/init/hints/irix.pm	519	638	
==>s = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }
    $conf->data->set( <==
4	/Users/nnunley/parrot/config/init/hints/netbsd.pm	312	431	
==>s = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }
    $conf->data->set( <==
4	/Users/nnunley/parrot/config/init/hints/openbsd.pm	404	517	
==>s = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
	}
	$conf->data->set( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610650	610947	
==>te",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611552	611849	
==>te",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612455	612752	
==>te",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613361	613658	
==>te",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1857	2032	
==>'])//
                and $str .= $1,        # backslash, quotation mark, apostrophe
                last;
            s/^\\a//
                and $str .= "\a",      # bel <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3371	3546	
==>'])//
                and $str .= $1,        # backslash, quotation mark, apostrophe
                last;
            s/^\\a//
                and $str .= "\a",      # bel <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	27760	27889	
==>< $n; $i++) {
	    push @rev, pop @stack;
	}
	push @stack, @rev;

	return;
    }
    my $ar = temp('P');
    print <<EOC;
	$ar = n <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6223	6340	
==>ative to pods, but in order relative to code.
      
    } elsif($line =~ m/^\s*$/s) {  # it's a blank line
      if(! <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	37029	37124	
==>n E<lt>schwern@pobox.comE<gt>.

This program is free software; you can redistribute it and/or 
m <==
4	/Users/nnunley/parrot/lib/Test/More.pm	37438	37533	
==>n E<lt>schwern@pobox.comE<gt>.

This program is free software; you can redistribute it and/or 
m <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	6398	6493	
==>n E<lt>schwern@pobox.comE<gt>.

This program is free software; you can redistribute it and/or 
m <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	57804	57897	
==>..">,
and the true value in the fourth argument means
I<"...discarding anything else that appe <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2420	2529	
==>l and maybe shouldn't use eval_ok()";
        &Test::ok.goto($result, $desc, :$todo, :$depends);
    }
}

## e <==
4	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	331	413	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub _handle_element_st <==
4	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	328	410	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub _handle_element_st <==
4	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	584	666	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub _handle_element_st <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776800	777071	
==>",
                  "CODE" => 877,
                  "ARGS" => [
                              "p",
                              "ki",
                              "n"
                            ],
                  "BODY" => "#line 382 \"src/ops/set.ops\"\n    {{\@1} <==
4	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	1714	1850	
==>if ( ref $_ eq 'ARRAY' ) {
                for my $symbtab ( @{$_} ) {
                    if ( defined($symbtab) and $symbtab->isa('Sy <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19754	19854	
==>ub
#line 119 "lib/Regex/Grammar.y"
{ return op('multi_match' => [ 0, -1, FALSE, $_[1] ]); }
	],
	[#Ru <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4838	4933	
==>igger and defined $cb;

    my $verbose = defined $self->get('verbose') && $self->get('verbose') <==
4	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	11526	11634	
==>.className = "";  /* hack? */
	expander.innerHTML = "&laquo;";
      } else {
	elem.className = "details";
	e <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062505	1062595	
==>MC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063374	1063464	
==>MC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064244	1064334	
==>MC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4944	5068	
==>.pir"
            load_bytecode "PGE/Util.pir"
            p6rule_compile = compreg "PGE::P6Regex"

            .local string <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7219	7342	
==>"PGE/Dumper.pir"
            load_bytecode "PGE/Text.pir"
            glob_compile = compreg "PGE::Glob"

            .local <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	14251	14373	
==>nextalt => aop('popindex', [ $self->{_labels}{'fail'} ]),
           $try_S => @S_ops,
                     aop('goto', [ $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	4324	4423	
==>self->dest->sax($handler);

  $handler->start_element({ Name => 'call', Attributes => { name => $sel <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634578	634675	
==>C *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(inter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635696	635793	
==>C *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(inter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636814	636911	
==>C *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(inter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637933	638030	
==>C *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(inter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843199	843286	
==>"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@3}});\n  {{+=4}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844077	844164	
==>"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@3}});\n  {{+=4}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844955	845042	
==>"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@3}});\n  {{+=4}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845834	845921	
==>"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@3}});\n  {{+=4}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071981	1072103	
==>= 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074166	1074288	
==>= 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076351	1076473	
==>= 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078537	1078659	
==>= 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647024	647319	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647784	648079	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648545	648840	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649307	649602	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926354	926536	
==>}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927824	928006	
==>}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929294	929476	
==>}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930765	930947	
==>}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1 <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8182	8323	
==>ck) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } else {
        die "Too many arguments to popindex!" <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8964	9105	
==>ck) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } else {
        die "Too many arguments to popindex!" <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7835	7976	
==>ck) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } else {
        die "Too many arguments to popindex!" <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8624	8765	
==>ck) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } else {
        die "Too many arguments to popindex!" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564393	564815	
==>" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 645,
                  "ARGS" => [
                              "p",
                              "sc",
                              "p"
                            ],
                  "BODY" => "#li <==
4	/Users/nnunley/parrot/tools/dev/install_files.pl	5080	5196	
==>dd a seperate
        # --pkgconfigdir option.
        $dest = File::Spec->catdir($options{libdir}, 'pkgconfig', $des <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	27136	27237	
==>ernal' => [ $extname, $extargs, $lastback ]));
    }
}

sub describe_seq { undef };
sub describe_check <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	60841	60937	
==>the text, and didn't find it.

=item  C<No quotelike operator found after prefix: "%s">

C<extrac <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5896	6058	
==>if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                print {$FH} " :flat";
            }
            $first = 0;
        }
        print { <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6991	7153	
==>if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                print {$FH} " :flat";
            }
            $first = 0;
        }
        print { <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	9905	10067	
==>if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                print {$FH} " :flat";
            }
            $first = 0;
        }
        print { <==
4	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	671	754	
==>/stress1.pl>, 
F<examples/benchmarks/stress2.pasm>, 
F<examples/benchmarks/stress3.p <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62691	62806	
==>rule match", $aftererror,$line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr( <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63402	63517	
==>rule match", $aftererror,$line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr( <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64132	64247	
==>rule match", $aftererror,$line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr( <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	36633	36737	
==>char_ci_gt_p,
  'char-ci<=?'       => \&_op_char_ci_le_p,
  'char-ci>=?'       => \&_op_char_ci_ge_p,
  ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381280	381596	
==>32bit)\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382292	382608	
==>32bit)\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383304	383620	
==>32bit)\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384317	384633	
==>32bit)\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	36161	36265	
==>died
    any other number    how many failed (including missing or extras)

If you fail more than 254 tes <==
4	/Users/nnunley/parrot/lib/Test/More.pm	34232	34336	
==>died
    any other number    how many failed (including missing or extras)

If you fail more than 254 tes <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	3027	3131	
==>died
    any other number    how many failed (including missing or extras)

If you fail more than 254 tes <==
4	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	546	649	
==>uns the BASIC interpreter.
#
# Subsequent runs can be done with:
#    parrot.exe out.pbc
#
open(T, ">mer <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960980	961070	
==>RING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961942	962032	
==>RING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962904	962994	
==>RING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963867	963957	
==>RING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343633	343930	
==>> "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344874	345171	
==>> "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346116	346413	
==>> "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347358	347655	
==>> "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33822	33933	
==>Can't assimilate following ", $paras->[0][0], "\n";
              push @$para, '';  # Just so it's not contentle <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35635	35746	
==>Can't assimilate following ", $paras->[0][0], "\n";
              push @$para, '';  # Just so it's not contentle <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	40888	40993	
==>$#{$row}) {
      $max_len[$_]=length($row->[$_]) if length $row->[$_] > $max_len[$_];
    }
  }
  @max_le <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	10163	10255	
==>s, the generated constructor method uses a two-argument blessing.
Furthermore, if the class i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062496	1062590	
==>\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063365	1063459	
==>\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064235	1064329	
==>\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpr <==
4	/Users/nnunley/parrot/config/gen/parrot_include.pm	75	164	
==>arrot_include.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/gen/parrot <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5149	5256	
==>n) = sub {
#DBG>		my($tok)='>';
#DBG>		for (split('',$$token)) {
#DBG>			$tok.=		(ord($_) < 32 or ord($_) <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4901	5005	
==>n) = sub {
#DBG>		my($tok)='>';
#DBG>		for (split('',$$token)) {
#DBG>			$tok.=		(ord($_) < 32 or ord($_) <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	9240	9334	
==>BUILTIN_DISPLAY(1,"$string")
PRINT
		} else {
			push @{$code{$seg}->{code}}, <<PRINT;
	find_gl <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	7085	7177	
==>@{$self->{'token_buffer'}}), " items in it.\n";
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1883	1997	
==>b compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $block = $self->block;
  my $kind  = $self->kind;
  my <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044685	1044779	
==>e 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045579	1045673	
==>e 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046473	1046567	
==>e 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047368	1047462	
==>e 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n <==
4	/Users/nnunley/parrot/tools/dev/pbc_header.pl	988	1097	
==>ines;
    return substr $fingerprint, 0, $len;
}

sub get_version {
    my $version_file = 'VERSION';
    open <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540481	540580	
==>\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541733	541832	
==>\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542985	543084	
==>\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while <==
4	/Users/nnunley/parrot/tools/build/ops2c.pl	2327	2422	
==>age(-exitval => 1, -verbose => 0, -output => \*STDERR);
}

my ( $nolines_flag, $help_flag, $dyna <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116653	116981	
==>":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 145,
                  "ARGS" => [
                              "i", <==
4	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	18353	18464	
==>lse
    {
        die "Parrot::OpsFile::version(): Illegal argument count" . scalar(@_) . "!";
    }
}

=item C< <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361734	361837	
==>T, {{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362633	362736	
==>T, {{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	3983	4106	
==>ave'   , 200,
 'Eacute'   , 201,
 'Ecirc'    , 202,
 'Euml'     , 203,
 'Igrave'   , 204,
 'Iacute'   , 205,
 'Icirc'    , 2 <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	375	481	
==>e/;

# Constructor. Just base this class on a hash.
sub new() {
	my $invocant = shift;
	return bless {}, $i <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	281	387	
==>e/;

# Constructor. Just base this class on a hash.
sub new() {
	my $invocant = shift;
	return bless {}, $i <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	189	295	
==>e/;

# Constructor. Just base this class on a hash.
sub new() {
	my $invocant = shift;
	return bless {}, $i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43692	43912	
==>mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44336	44556	
==>mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44977	45197	
==>mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45619	45839	
==>mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	245835	246090	
==>h_i_pp(interpreter, {{\@2}}, {{\@3}}, MMD_STRCMP);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30385	30486	
==>nt::_tracefirst($text))
							if defined $::RD_TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse: <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32585	32686	
==>nt::_tracefirst($text))
							if defined $::RD_TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse: <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28310	28410	
==>nt::_tracefirst($text))
					if defined $::RD_TRACE;').'

			last;
		}'.($::RD_NO_TRACE?'':'
		Parse: <==
4	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3049	3142	
==>"#\n"; 
print $MANI '# generated by tools/dev/mk_manifest_and_skip.pl ', scalar( localtime() ) <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	35048	35196	
==>S => {
			"%" => 76,
			"*" => 80,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -58
	},
	{#State 129
		ACTIONS => {
			"^" => 79
		},
		D <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067026	1067135	
==>\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( (FLOATV <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068212	1068321	
==>\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( (FLOATV <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069398	1069507	
==>\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( (FLOATV <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070585	1070694	
==>\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( (FLOATV <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	10413	10499	
==>pmc intlist.pmc iterator.pmc sarray.pmc fixedstringarray.pmc multiarray.pmc hash.pmc or <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067105	1067221	
==>!= 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068291	1068407	
==>!= 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069477	1069593	
==>!= 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070664	1070780	
==>!= 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	35651	35751	
==>it with zero (which is
normal).  If anything failed it will exit with how many failed.  If
you run le <==
4	/Users/nnunley/parrot/lib/Test/More.pm	33722	33822	
==>it with zero (which is
normal).  If anything failed it will exit with how many failed.  If
you run le <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	2518	2618	
==>it with zero (which is
normal).  If anything failed it will exit with how many failed.  If
you run le <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	298	390	
==>ction describing IMCC.

=head2 Class Methods

=over

=cut

package Parrot::Docs::Section::IMC <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073366	1073729	
==>dvanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1196,
                  "AR <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9585	9684	
==>e're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method_info_from_token(${ASSEMBLY}, ${A <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7099	7198	
==>e're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method_info_from_token(${ASSEMBLY}, ${A <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5655	5754	
==>e're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method_info_from_token(${ASSEMBLY}, ${A <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7875	7974	
==>e're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method_info_from_token(${ASSEMBLY}, ${A <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332733	332918	
==>tes ugly warnings WRT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334011	334196	
==>tes ugly warnings WRT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335289	335474	
==>tes ugly warnings WRT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336568	336753	
==>tes ugly warnings WRT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818907	819083	
==>r);\n  {{=0,+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "entrytyp <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	15218	15316	
==>int) = @_;
  my $self = shift(@_);
  ++$self->{'errors_seen'};
  return $self->_complain_warn(@_) i <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4721	4817	
==>m C<run_core_func_start()>

Returns the C code prior to the run core function.

=cut

sub run_cor <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3009	3105	
==>m C<run_core_func_start()>

Returns the C code prior to the run core function.

=cut

sub run_cor <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044732	1044989	
==>bal_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045626	1045883	
==>bal_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046520	1046777	
==>bal_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047415	1047672	
==>bal_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830234	830483	
==>ve",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 939,
                  "ARGS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605917	606140	
==>add_attribute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606708	606931	
==>add_attribute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	1495	1595	
==>= @_;
    my $opt = $generator->{opt};

    print Data::Dumper->Dump([$generator]) if $opt->{debug} > <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584447	584543	
==>arrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585522	585618	
==>arrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597963	598059	
==>arrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599010	599106	
==>arrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299549	299791	
==>ne 975 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300395	300637	
==>ne 975 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301241	301483	
==>ne 975 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	2341	2437	
==>hili powder, and cook, stirring occasionally, for
5 minutes.

Add the salt and chick peas and coo <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	772	863	
==>cs::HTMLPage;

=item C<do_beginning()> 

Reimplements the C<Pod::Simple::HTML> method to add <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1084	1174	
==>ocal/include -pipe -fno-common -Wno-long-double  -I /opt/local/include   -g -Wall -Wstrict- <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1142	1232	
==>ocal/include -pipe -fno-common -Wno-long-double  -I /opt/local/include   -g -Wall -Wstrict- <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1146	1236	
==>ocal/include -pipe -fno-common -Wno-long-double  -I /opt/local/include   -g -Wall -Wstrict- <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2441	2566	
==>}={};

	$$self{USER};
	
}

sub YYErrok {
	my($self)=shift;

	${$$self{ERRST}}=0;
    undef;
}

sub YYNberr {
	my <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	2147	2272	
==>ckage $class"
        if do { no strict 'refs'; defined &{$class . "::new"} };

    my @methods = ();
    my %refs = ();
    m <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2345	2456	
==>}={};

	$$self{USER};
	
}

sub YYErrok {
	my($self)=shift;

	${$$self{ERRST}}=0;
    undef;
}

sub YYNberr {
	my <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	39095	39188	
==>ately fail.

However, if the string value associated with <reject> is "MAX", then
C<extract_ta <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400263	400436	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401344	401517	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402425	402598	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403507	403680	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265623	265984	
==>AGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 309,
                  "ARGS" => [
                              "i",
                              "s", <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11519	11739	
==>'arg1'   => $result,
                            'arg2'   => $key->[0],
                        );
                        $result = $result2;
                    }
                    push @opcodes, @{ $last_key->[1 <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9743	9943	
==>'arg1'   => $result,
                        'arg2'   => $key->[0],
                    );
                    $result = $result2;
                }
                push @opcodes, @{ $last_key->[1 <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8646	8806	
==>'arg1'   => $result,
                'arg2'   => $key->[0],
            );
            $result = $result2;
        }
        push @opcodes, @{ $last_key->[1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151100	151193	
==>vtable->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152078	152171	
==>vtable->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172328	172421	
==>vtable->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173306	173399	
==>vtable->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n", <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7283	7420	
==>lf, $reg, $db_desc) = @_;
    $reg = value($reg);

    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        ret <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6925	7062	
==>lf, $reg, $db_desc) = @_;
    $reg = value($reg);

    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        ret <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9383	9519	
==>lf, $reg, $db_desc) = @_;
    $reg = value($reg);
    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        ret <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9077	9213	
==>lf, $reg, $db_desc) = @_;
    $reg = value($reg);
    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        ret <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	6585	6692	
==>t "Ungetting ", scalar(@_), " tokens: ",
   @_ ? "@_\n" : "().\n";
  foreach my $t (@_) {
    Carp::croak "C <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	2811	2913	
==>$parser->YYData->{symbtab} = $symbtab;
    $parser->YYData->{lex_num} ++;
##    warn "PopScope\n";
} <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	4692	4791	
==>stination=DIRECTORY
    shift(@pmcs) =~ /--destination=(.*)/
      or die "copy command requires des <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	4796	4895	
==>stination=DIRECTORY
    shift(@pmcs) =~ /--destination=(.*)/
      or die "copy command requires des <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	241	336	
==>-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Type: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	239	334	
==>-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Type: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	233	328	
==>-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Type: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	239	334	
==>-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Type: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060151	1060379	
==>n    {{\@1}} = Parrot_get_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061056	1061284	
==>n    {{\@1}} = Parrot_get_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	6665	6822	
==>_slashes}) {
            $line =~ s{(/+)}{
                my $len = length $1;
                my $slash = $conf->data->get('slash');
                '/' x ( <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	19838	19959	
==>code[$code_l]->[4]);
    my $targ = "pc_xxx";
    my $label = '';
    if (!defined $op) {
	goto plain;
    }
    if ($opco <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	7073	7177	
==>lf->no_header;
    }
    return $self->{Expected_Tests};
}


=item B<no_plan>

  $Test->no_plan;

Declare <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1566	1666	
==>}
  return;
}

sub _handle_element_end {
  DEBUG and print "-- $_[1]\n";
  print {$_[0]{'output_fh'}} <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1496	1596	
==>}
  return;
}

sub _handle_element_end {
  DEBUG and print "-- $_[1]\n";
  print {$_[0]{'output_fh'}} <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	10697	10813	
==>ons}->{$sym};
			}
			return $sym;
		} elsif ($type eq "STARTARG") {
			return;
		} else {
			die "Bad type for $sym? <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062644	1062921	
==>NULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_name <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063513	1063790	
==>NULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_name <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064383	1064660	
==>NULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_name <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065256	1065533	
==>NULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_name <==
4	/Users/nnunley/parrot/lib/Test/More.pm	5280	5394	
==>assign a name to each test.  Which would you rather see:

  ok 4
  not ok 5
  ok 6

or

  ok 4 - basic multi-variab <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	6154	6259	
==>tup_ends}{$group} = 1;
}

sub rewrite_try {
    my ($self, $op, $R, $lastback) = @_;
    return $self->rew <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8635	8716	
==>E","IMPULSE","LRSCAN","NAVIGATE","PHASERS","QUIT"
data "SHIELDS","SOS","SRSCAN","S <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21499	21580	
==>E","IMPULSE","LRSCAN","NAVIGATE","PHASERS","QUIT"
data "SHIELDS","SOS","SRSCAN","S <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084711	1084804	
==>163 \"src/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085764	1085857	
==>163 \"src/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086817	1086910	
==>163 \"src/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087871	1087964	
==>163 \"src/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083927	1084252	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084979	1085304	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086032	1086357	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087085	1087410	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579640	579794	
==>ame, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580945	581099	
==>ame, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582250	582404	
==>ame, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583556	583710	
==>ame, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414611	415081	
==>" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 478,
                  "ARGS" => [
                              "i",
                              "p",
                              "i",
                              "ic <==
4	/Users/nnunley/parrot/Configure.pl	2055	2148	
==>flags=(flags)>

Use the given loader flags for shared libraries

=item C<--lex=(lexer)>

Speci <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	798	891	
==>our $LD = qq[c++];
our $LDFLAGS = qq[-L/opt/local/lib -L/usr/local/lib -flat_namespace  ];
our <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	802	895	
==>our $LD = qq[c++];
our $LDFLAGS = qq[-L/opt/local/lib -L/usr/local/lib -flat_namespace  ];
our <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2071	2193	
==>s the C<goto POP()> macro in an ops file into the relevant C
code.

=cut

sub goto_pop
{
    my ($self) = @_;

    return " <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2721	2843	
==>s the C<goto POP()> macro in an ops file into the relevant C
code.

=cut

sub goto_pop
{
    my ($self) = @_;

    return " <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2624	2746	
==>s the C<goto POP()> macro in an ops file into the relevant C
code.

=cut

sub goto_pop
{
    my ($self) = @_;

    return " <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2444	2565	
==>s the C<goto POP()> macro in an ops file into the relevant C
code.

=cut

sub goto_pop
{
    my ($self) = @_;
    return " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726997	727249	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exchange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727795	728047	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exchange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	728592	728844	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exchange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729386	729638	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exchange",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 " <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27611	27723	
==>eta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30078	30190	
==>eta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33496	33608	
==>eta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37160	37272	
==>eta(ins_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	674823	675138	
==>"pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 756,
                  "ARGS" => [
                              "p" <==
4	/Users/nnunley/parrot/languages/dotnet/Configure.pl	2779	2941	
==>e $fh;
}


# Generate makefile instructions to translate class library.
# ##########################################################
sub generate_classlib_ma <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	5864	5986	
==>should be at most a single group
        my $group = $class->{flags}{group}
          or next;
        ($group) = keys %$gr <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	6075	6197	
==>should be at most a single group
        my $group = $class->{flags}{group}
          or next;
        ($group) = keys %$gr <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	7301	7409	
==>ain__'
    global '__name__' = __name__
    .local pmc None
    None = new .None
EOC
    $globals{'__name__'} <==
4	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	939	1043	
==>'start_line' and $_[0]{'hide_line_numbers'};
        _xml_escape($value = $_[2]{$key});
        print $fh <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	756	856	
==>'start_line' and $_[0]{'hide_line_numbers'};
      _xml_escape($value = $_[2]{$key});
      print $fh <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1268	1357	
==>((opcode_t*)cur_opcode)[o])

END
}

=item C<goto_address($address)>

Transforms the C<goto <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761383	761485	
==>ne 305 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bo <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762236	762338	
==>ne 305 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bo <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	4568	4666	
==>x then linenumber
			feedme;
			create_label();
			push @{$code{$seg}->{code}}, "\tbranch $labels{$ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2071	2167	
==>fix) {
    $handler->start_element({ Name => 'loop', Attributes => { kind => $self->kind, name => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769900	770017	
==>ODY" => "#line 350 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770753	770870	
==>ODY" => "#line 350 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771606	771723	
==>ODY" => "#line 350 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772460	772577	
==>ODY" => "#line 350 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2060	2176	
==>ym;
    $left_type = $left_sym->type;
  }
  else {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVERS <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2018	2134	
==>ym;
    $left_type = $left_sym->type;
  }
  else {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVERS <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1940	2056	
==>ym;
    $left_type = $left_sym->type;
  }
  else {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVERS <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	4948	5055	
==>ef =~ m/\G($ldel)/gc)
	{
		_failmsg "Did not find opening bracket after prefix: \"$pre\"",
		         pos $$ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067019	1067126	
==>}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068205	1068312	
==>}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069391	1069498	
==>}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070578	1070685	
==>}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89282	89536	
==>it.ops\"\n  {{\@1}} &= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90020	90274	
==>it.ops\"\n  {{\@1}} &= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478784	478879	
==>37 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exception(in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479676	479771	
==>37 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exception(in <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10391	10523	
==>sub tokenize {
    my $data = shift;

    my @tokens;
    my @types;
    my $state = 0;
    my $depth = 0;
    for my $c (split(//, $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	555	646	
==>t!" unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');

  my $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	667	749	
==>t!" unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier') <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	746	828	
==>t!" unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier') <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16923	17207	
==>"NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 23,
                  "ARGS" <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5510	5603	
==>lf->_add_inst ('', 'set', [$pair.'[1]',$return]);
      $self->_add_inst ('', 'set', [$return, <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17058	17147	
==>lf->_add_inst ('', 'set',[$pair.'[1]',$return]);
    $self->_add_inst ('', 'set',[$return, <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6545	6632	
==>lf->_add_inst('', 'set', [$pair.'[1]',$return]);
  $self->_add_inst('', 'set', [$return, <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	18948	19046	
==>shPointer);

$put_pointer

    }

    b = VTABLE_get_pmc_keyed_str(interpreter, HashPointer, signat <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31267	31363	
==>$meth) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $line, $out_name)>

Re <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35898	35994	
==>$meth) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $line, $out_name)>

Re <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39887	39983	
==>$meth) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $line, $out_name)>

Re <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480796	481056	
==>);\n  {{\@1}} = (INTVAL)floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481799	482059	
==>);\n  {{\@1}} = (INTVAL)floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482802	483062	
==>);\n  {{\@1}} = (INTVAL)floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/lib/Test/More.pm	13961	14127	
==>ef = ref $object;
            $diag = "$obj_name isn't a '$class' it's a '$ref'";
        }
    }
            
      

    my $ok;
    if( $diag ) {
        $ok = $Tes <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867158	867266	
==>"#line 232 \"src/ops/string.ops\"\n  INTVAL len;\n  len = string_length(interpreter, {{\@2}});\n  {{\@1}} = s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868124	868232	
==>"#line 232 \"src/ops/string.ops\"\n  INTVAL len;\n  len = string_length(interpreter, {{\@2}});\n  {{\@1}} = s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869090	869198	
==>"#line 232 \"src/ops/string.ops\"\n  INTVAL len;\n  len = string_length(interpreter, {{\@2}});\n  {{\@1}} = s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870057	870165	
==>"#line 232 \"src/ops/string.ops\"\n  INTVAL len;\n  len = string_length(interpreter, {{\@2}});\n  {{\@1}} = s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667564	667787	
==>table->push_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668338	668561	
==>table->push_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	204	297	
==>uct/Declaration/Sub.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warn <==
4	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	225	318	
==>rrot::OpsFile;

=head1 DESCRIPTION

C<Parrot::OpsFile> takes one or more files of op functions <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64794	65019	
==>code;\n  runops(new_interp, REL_PC + {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65745	65970	
==>code;\n  runops(new_interp, REL_PC + {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21446	21539	
==>ACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched action<< ( <==
4	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8672	8755	
==>/
FF,$c,$d,$a,$b,$_[14],17,0xffff5bb1,/* 11 */
FF,$b,$c,$d,$a,$_[15],22,0x895cd7be,/ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72543	72634	
==>1156 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74145	74236	
==>1156 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75747	75838	
==>1156 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77350	77441	
==>1156 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\ <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2111	2239	
==>UOTE . " " .
        $source;
};

sub partial_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^ <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2403	2531	
==>UOTE . " " .
        $source;
};

sub partial_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^ <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2198	2326	
==>UOTE . " " .
        $source;
};

sub partial_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^ <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	4063	4158	
==>ut_fh'}} '<b>' if $self->{IN_ITEM_TEXT};
    
    print {$self->{'output_fh'}} $self->{'Tagmap'} <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5634	5721	
==>OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=it <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3210	3297	
==>OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=it <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4616	4703	
==>OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=it <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	4000	4087	
==>OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=it <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773410	773496	
==>/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774320	774406	
==>/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775230	775316	
==>/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776141	776227	
==>/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926118	926241	
==>@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927588	927711	
==>@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929058	929181	
==>@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930529	930652	
==>@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1572	1715	
==>elf = shift;

    if (@_)
    {
        $self->{ARGS} = [ @_ ];
    }
    else
    {
        return $self->{ARGS};
    }
}

=item C<arg($index)> <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1181	1324	
==>elf = shift;

    if (@_)
    {
        $self->{ARGS} = [ @_ ];
    }
    else
    {
        return $self->{ARGS};
    }
}

=item C<arg($index)> <==
4	/Users/nnunley/parrot/tools/build/pbc2c.pl	4184	4287	
==>cks, [shift @pc_list ];

    # change instructions at block leaders to enternative calls
    substr($byt <==
4	/Users/nnunley/parrot/lib/Parrot/Op.pm	2383	2477	
==>n
descriptors. Element I<x> is the direction of argument C<< $args->[I<x>]
>>.

C<$labels> is a <==
4	/Users/nnunley/parrot/config/init/headers.pm	520	653	
==>step
{
    my ($self, $conf) = @_;

    my $inc = 'include/parrot';

    my @headers = (
        sort
            map { m{^$inc/(.*\.h <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39074	39329	
==>\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_EN <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39939	40194	
==>\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_EN <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40786	41041	
==>\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_EN <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41634	41889	
==>\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_EN <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	13537	13633	
==>\doccomm
%s
 using %s v%s
 under Perl v%s at %s GMT}
{\author [see doc]}{\company [see doc]}{\ope <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10023	10112	
==>} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC}:
if ${ITEMP0 <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7537	7626	
==>} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC}:
if ${ITEMP0 <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6501	6590	
==>} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC}:
if ${ITEMP0 <==
4	/Users/nnunley/parrot/lib/Test/More.pm	4505	4658	
==>how_Diag = 0;
        }
        else {
            push @cleaned_plan, $item;
        }

        $idx++;
    }

    $Test->plan(@cleaned_plan);
}

sub imp <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	384	484	
==>se qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $dest, $left, $op, $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	375	475	
==>se qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $dest, $left, $op, $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	264	364	
==>se qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $dest, $left, $op, $ <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12307	12420	
==>7,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17986	18099	
==>7,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23691	23804	
==>7,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26837	26950	
==>7,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847542	847833	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848321	848612	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849101	849392	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	1417	1515	
==>s);
}

# Generate final translator code.
$pir .= generate_final_pir($srm, $metavars);

# Finally, w <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	10143	10256	
==>y we accept "W", then a "W" in the treelet simply turns
    #  into "W".
  }
  
  return;
}

#-------------------- <==
4	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	872	992	
==>%{$_[2]}) {
      unless($key =~ m/^~/s) {
        next if $key eq 'start_line' and $_[0]{'hide_line_numbers'};
        _ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1146	1266	
==>%{$_[2]}) {
      unless($key =~ m/^~/s) {
        next if $key eq 'start_line' and $_[0]{'hide_line_numbers'};
        _ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	721	835	
==>%{$_[2]}) {
    unless($key =~ m/^~/s) {
      next if $key eq 'start_line' and $_[0]{'hide_line_numbers'};
      _ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	693	807	
==>%{$_[2]}) {
    unless($key =~ m/^~/s) {
      next if $key eq 'start_line' and $_[0]{'hide_line_numbers'};
      _ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071924	1072036	
==>< 0 ? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL x <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074109	1074221	
==>< 0 ? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL x <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076294	1076406	
==>< 0 ? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL x <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078480	1078592	
==>< 0 ? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL x <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1489	1620	
==>ases it with $_ !!
  
    s/ The / the /g; # just for example
    
    if( 'A' eq chr(65) ) {  # (if in an ASCII world)
      tr/\xA <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	7701	7831	
==>>{label}: ";
            } else {
                $_->{name} . " " . join(", ", map { ref($_) ? $_->{label} : $_ } @{ $_->{args} || <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	13736	13830	
==>essor
returns the element value (after assignment). If the element type
starts with a C<'*'>, a <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	2239	2330	
==>nguages/punie'),
        $self->new_section('Python', 'python.html', '', 'languages/python') <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586707	586803	
==>});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, ne <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587893	587989	
==>});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, ne <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589079	589175	
==>});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, ne <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590266	590362	
==>});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, ne <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10920	11025	
==>html";
    print "Writing $outfile..\n" if $DEBUG;
    open (IN, "<$infile") or die "Can't read $infile: $ <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11404	11509	
==>html";
    print "Writing $outfile..\n" if $DEBUG;
    open (IN, "<$infile") or die "Can't read $infile: $ <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11868	11973	
==>html";
    print "Writing $outfile..\n" if $DEBUG;
    open (IN, "<$infile") or die "Can't read $infile: $ <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	29531	29630	
==>d text.

In a void context the behaviour of the extraction subroutines is
exactly the same as in a s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75536	75800	
==>=> [
                              "p",
                              "p",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 1156 \"src/ops/core.ops\"\n  char * const name = strin <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29357	29457	
==>se::RecDescent::_trace(q{Trying terminal: [' . $self->describe
					  . ']},
					  Parse::RecDescent <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31454	31554	
==>se::RecDescent::_trace(q{Trying terminal: [' . $self->describe
					  . ']},
					  Parse::RecDescent <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27254	27347	
==>se::RecDescent::_trace(q{Trying terminal: [' . $self->describe
					  . ']}, Parse::RecDescent <==
4	/Users/nnunley/parrot/lib/Test/More.pm	13871	14024	
==>e's the error.
$@
WHOA
            }
        }
        elsif( !$rslt ) {
            my $ref = ref $object;
            $diag = "$obj_name isn't a '$class <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4391	4488	
==>P0}

# Increment dtypes index.
inc ${ITEMP0}
PIR
		$pir =~ s/\$push_num/$push_num/g;
		$push_num++ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2807	2904	
==>P0}

# Increment dtypes index.
inc ${ITEMP0}
PIR
		$pir =~ s/\$push_num/$push_num/g;
		$push_num++ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	9672	9764	
==>($node,3));
  $self->_morph($return,$false);
  $self->_restore($false);

  $self->_add_inst(" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467667	467784	
==>eter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "L <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468538	468655	
==>eter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "L <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469412	469529	
==>eter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "L <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470287	470404	
==>eter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "L <==
4	/Users/nnunley/parrot/config/gen/cpu.pm	653	768	
==>kipped');
        return $self;
    }

    my $verbose = $conf->options->get('verbose');

    my $hints = "gen::cpu: <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23085	23190	
==>,'eq'    ,[$temp_0,0,"DONE_$label"]);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_ad <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	21686	21789	
==>l be indented and marked with a # so as not to interfere
with test output.  A newline will be put on the <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033394	1033479	
==>) {\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034492	1034577	
==>) {\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035704	1035789	
==>) {\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036868	1036953	
==>) {\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3420	3577	
==>SION doesn't implement UTF16 yet."
        );
        splice @_;
        push @_, undef;
        next;

        # TODO: implement somehow?
        
      } el <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3022	3171	
==>SION doesn't implement UTF16 yet."
        );
        splice @_;
        push @_, undef;
        next;

        # TODO: implement somehow?

      } el <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	4117	4235	
==>>value;
    $compiler->emit("  global \"$dest_name\" = $temp_pmc");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $s <==
4	/Users/nnunley/parrot/config/gen/platform.pm	403	496	
==>);

use Parrot::Configure::Step qw(copy_if_diff);

our $description = 'Moving platform files i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72798	72894	
==>nst char * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74400	74496	
==>nst char * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76002	76098	
==>nst char * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77605	77701	
==>nst char * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510500	510785	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511238	511523	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511976	512261	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	16047	16224	
==>r);
           if ($type1 eq 'APLVector') {
               $vector = "op1";
               $scalar = "op2";
			   @order = qw/ $P1 $P2 /;
           } else {
               $vect <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	13917	14059	
==>,
			'chunk' => 57
		}
	},
	{#State 20
		ACTIONS => {
			"=" => 65
		},
		DEFAULT => -52
	},
	{#State 21
		ACTIONS => {
			"," => 6 <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3840	3934	
==>kind eq 'var') and ($dest_ident->scope eq 'global')) {
    my $pmc_type = $dest_ident->type->im <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4748	4842	
==>kind eq 'var') and ($dest_ident->scope eq 'global')) {
    my $pmc_type = $dest_ident->type->im <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2811	2905	
==>kind eq 'var') and ($dest_ident->scope eq 'global')) {
    my $pmc_type = $dest_ident->type->im <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288301	288418	
==>Y" => "#line 935 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289157	289274	
==>Y" => "#line 935 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290013	290130	
==>Y" => "#line 935 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/tools/dev/lib_deps.pl	538	648	
==>this build depends upon.

=head2 Options

=over 4

=item C<object>

In C<object> mode, it expects a list of all <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961004	961104	
==>header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, {{\@2}}, {{\@3}}, dest <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961966	962066	
==>header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, {{\@2}}, {{\@3}}, dest <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962928	963028	
==>header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, {{\@2}}, {{\@3}}, dest <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963891	963991	
==>header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, {{\@2}}, {{\@3}}, dest <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072738	1072859	
==>-r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074923	1075044	
==>-r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077108	1077229	
==>-r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079294	1079415	
==>-r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\ <==
4	/Users/nnunley/parrot/tools/build/revision_c.pl	667	758	
==>e "parrot/config.h"

/* also in "parrot/embed.h" */
PARROT_API int Parrot_revision(void);
/* <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	3930	4020	
==>cted, $description)>

Compile the Parrot Intermediate Representation and generate Parrot As <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	4113	4203	
==>cted, $description)>

Compile the Parrot Intermediate Representation and generate Parrot As <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	4303	4393	
==>cted, $description)>

Compile the Parrot Intermediate Representation and generate Parrot As <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071856	1071972	
==>NTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = {{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  IN <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074041	1074157	
==>NTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = {{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  IN <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076226	1076342	
==>NTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = {{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  IN <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078412	1078528	
==>NTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = {{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  IN <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191662	191926	
==>ber(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192602	192866	
==>ber(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                } <==
4	/Users/nnunley/parrot/config/auto/jit.pm	3082	3216	
==>name => $jitarchname,
            jitcpuarch  => $jitcpuarch,
            jitcpu      => uc($jitcpuarch),
            jitosname   => uc <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	448	557	
==>ig{useithreads} && $INC{'threads.pm'}) {
        require threads::shared;

        # Hack around YET ANOTHER t <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32773	32897	
==>n";
		    $pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			    "typeinfo for rule $rule->{'name'}");
		    $pir .= "\n" if $pir <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26781	26893	
==>n";
		$pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir .= "\n" if $pir <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28497	28609	
==>n";
		$pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir .= "\n" if $pir <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36479	36591	
==>n";
		$pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir .= "\n" if $pir <==
4	/Users/nnunley/parrot/tools/dev/lib_deps.pl	5776	5925	
==>e (sort keys %{$system_include{$include}}) {
                print "        $file\n";
            }
        }
    }
}


sub do_object {
    foreach my <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	693	787	
==>might
get an object of this class.

This is a subclass of L<Pod::Simple::PullParserToken> and i <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1119	1213	
==>might
get an object of this class.

This is a subclass of L<Pod::Simple::PullParserToken> and i <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	599	693	
==>might
get an object of this class.

This is a subclass of L<Pod::Simple::PullParserToken> and i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	395943	396115	
==>",
                              "i"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397023	397195	
==>",
                              "i"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398103	398275	
==>",
                              "i"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399184	399356	
==>",
                              "i"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2}}, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377575	377719	
==>@1}} = Parrot_fstat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378459	378603	
==>@1}} = Parrot_fstat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379343	379487	
==>@1}} = Parrot_fstat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380228	380372	
==>@1}} = Parrot_fstat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705328	705810	
==>[
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 791,
                  "ARGS" => [
                              "p",
                              "ic",
                              "i",
                              "ic"
                            ],
                  "BODY <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	10290	10422	
==>t",
  "PMC*"     => "P",
  "short*"   => "2",
  "int*"     => "3",
  "long*"    => "4",
  "void"     => "v",
  "void*"    => "b",
  " <==
4	/Users/nnunley/parrot/examples/benchmarks/oo5.pl	219	341	
==>], $self;
}

sub i {
    my $self = shift;
    if (@_) { $self->[0] = shift } else { $self->[0] }
}

sub j {
    my $self = <==
4	/Users/nnunley/parrot/examples/benchmarks/oo6.pl	211	333	
==>], $self;
}

sub i {
    my $self = shift;
    if (@_) { $self->[0] = shift } else { $self->[0] }
}

sub j {
    my $self = <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2804	2939	
==>("Invalid escape sequence $_ .\n"),
                last;
        }
    }

    $parser->Error("Untermined string.\n");
    $parser <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4319	4454	
==>("Invalid escape sequence $_ .\n"),
                last;
        }
    }

    $parser->Error("Untermined string.\n");
    $parser <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	7955	8075	
==>::diag("    Actual: '" ~ ($got.defined ?? $got !! "undef") ~ "'");
    }
    else {
        Test::diag("    Actual: " ~ ( <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	7116	7207	
==>cate($resulty)
YNOTX
	} elsif (@codex and not @codey) {
	push @{$code{$seg}->{code}},<<XNOTY <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	31450	31602	
==>bute.
          } else {
            die "Unhandled item type $item_type"; # should never happen
          }
          
          # =item-text thingies d <==
4	/Users/nnunley/parrot/config/auto/jit.pm	4546	4677	
==>eccapable => 0
            );
        }

        # test for executable malloced memory
        if (-e "config/auto/jit/test_exec_$os <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	504	610	
==>, $attr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBUG and print "++ $_[1]\n";
  
  pri <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	503	609	
==>, $attr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBUG and print "++ $_[1]\n";
  
  pri <==
4	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	698	801	
==>, $attr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBUG and print "++ $_[1]\n";
  pri <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938370	938603	
==>" => [
                              "s",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 481 \"src/ops/string.ops\"\n    {{\@1}} = string_join(int <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6180	6279	
==>ss defined $type;

      $self->SYNTAX_ERROR("Cannot declare constants of type '%s'.", $type) # TODO <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25849	25947	
==>dme();
	my($var,$vartype,$ovar);
	my $ps;
	$ps=pop @{$fors[$scopes]};
	
	if ($type[CURR] ne "BARE") <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	7004	7094	
==>t->skip('close-brace');   }
sub skip_close_bracket { return shift->skip('close-bracket'); } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255573	255896	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "xor",
                  "FLAGS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256480	256803	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "xor",
                  "FLAGS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257388	257711	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "xor",
                  "FLAGS" = <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	60289	60397	
==>line 611 "Lua\lua51.yp"


package Lua::parser;

use strict;

use Lua::lexer;
use Lua::build;
use Lua <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554317	554602	
==>xt);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_A <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555714	555999	
==>xt);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_A <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556951	557236	
==>xt);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_A <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	1821	1946	
==>cur ne "\n") {
			append;	
			fetch;
		}
		emit("COMM");
		fetch;
		goto MAIN;
	}
	if ($cur =~ /[A-Za-z]/) {		# Bareword 
		ap <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	3595	3750	
==>n );
        if ( $type eq 'key' ) {
            push @opcodes, new ConstDir( $parser,
                'prolog' => 1,
                'result' => $defn, <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5200	5315	
==>ynamic $oplib.ops")
	          or die "ops2c code generation failed ($?)\n";
		}
	}
}

sub compile {
    my ($src_st <==
4	/Users/nnunley/parrot/examples/mops/mops.pl	538	643	
==>umber of ops performed,

=item * the elapsed time, and 

=item * the number of M op/s.

=back

=cut

sub t <==
4	/Users/nnunley/parrot/examples/benchmarks/mops.pl	541	645	
==>umber of ops performed,

=item * the elapsed time, and

=item * the number of M op/s.

=back

=cut

sub t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037750	1038005	
==>er, NULL, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038531	1038786	
==>er, NULL, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/config/init/optimize.pm	213	306	
==>timization by adding the appropriate flags for the local platform to
the C<CCFLAGS>. Should th <==
4	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	250	342	
==>Test::Bc::Antlr3;
use Parrot::Test::Bc::Posix;

=head1 NAME

Test/Bc.pm - Testing routines sp <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2511	2617	
==>L/opt/local/lib  -licuuc -licudata -lpthread -lm';
        $extraLibs =~ s/blib/..\\blib/g;
        $extraL <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2820	2926	
==>L/opt/local/lib  -licuuc -licudata -lpthread -lm';
        $extraLibs =~ s/blib/..\\blib/g;
        $extraL <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2615	2721	
==>L/opt/local/lib  -licuuc -licudata -lpthread -lm';
        $extraLibs =~ s/blib/..\\blib/g;
        $extraL <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30965	31064	
==><<RTB;
	# Several statements need to make branches
	# that are only discovered at runtime.
RUNTIME_J <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197268	197413	
==>c"
                            ],
                  "BODY" => "#line 366 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198165	198310	
==>c"
                            ],
                  "BODY" => "#line 366 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199062	199207	
==>c"
                            ],
                  "BODY" => "#line 366 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  } <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	18048	18165	
==>g = "pc_xxx";
    if ($c =~ /to (\d+)/) {
	$targ = "pc_$1";
    }
    print <<EOC;
	if $tos->[1] goto $targ $cmt
EOC
} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722479	722733	
==>ce(interpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723508	723762	
==>ce(interpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724552	724806	
==>ce(interpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	14170	14309	
==>->[1] };
            my $nil = BuildLiteral( $parser, 'nil', 'nil' );
            push @{ $expr->[1] }, @{ $nil->[1] };
            my $n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939815	940119	
==>E" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940706	941010	
==>E" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941598	941902	
==>E" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942490	942794	
==>E" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381103	381199	
==>/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset({{\@2}}), {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382115	382211	
==>/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset({{\@2}}), {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383127	383223	
==>/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset({{\@2}}), {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384140	384236	
==>/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset({{\@2}}), {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167442	167609	
==>"p",
                              "ic"
                            ],
                  "BODY" => "#line 197 \"src/ops/cmp.ops\"\n  if (! mmd_dispatch_i_pp(interpreter <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2294	2424	
==>ries in the link line.
        $liblist = join( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ /gcc/i) {
            $libl <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2586	2716	
==>ries in the link line.
        $liblist = join( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ /gcc/i) {
            $libl <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2381	2511	
==>ries in the link line.
        $liblist = join( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ /gcc/i) {
            $libl <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	15000	15148	
==>l => [
        tv_secs  => '$',
        tv_usecs => '$',
    ]);

        # create an object:
    my $t = new rusage;

        # $t->ru_utime and $t- <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2955	3054	
==>d_element({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
    $handler->start_ele <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3629	3728	
==>d_element({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
    $handler->start_ele <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3719	3818	
==>d_element({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
    $handler->start_ele <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353605	353716	
==>\"src/ops/io.ops\"\n  STRING * const s = {{\@1}};\n  if (s && string_length(interpreter, s)) {\n    PIO_putps(in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354350	354461	
==>\"src/ops/io.ops\"\n  STRING * const s = {{\@1}};\n  if (s && string_length(interpreter, s)) {\n    PIO_putps(in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359299	359410	
==>\"src/ops/io.ops\"\n  STRING * const s = {{\@1}};\n  if (s && string_length(interpreter, s)) {\n    PIO_putps(in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360047	360158	
==>\"src/ops/io.ops\"\n  STRING * const s = {{\@1}};\n  if (s && string_length(interpreter, s)) {\n    PIO_putps(in <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	3129	3239	
==>s $props{fnlib}) {
      $name .= "_THUNK";
    }

    $compiler->emit("  _${name}(" . join(", ", @args) . ")") <==
4	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1304	1413	
==>}->diag("'$cmd' failed with exit code $exit_code")
        if $exit_code and not $pass;
    }

    unless($ENV <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1345	1454	
==>}->diag("'$cmd' failed with exit code $exit_code")
        if $exit_code and not $pass;
    }

    unless($ENV <==
4	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2468	2575	
==>}->diag("'$cmd' failed with exit code $exit_code")
      if $exit_code and not $pass;
    }

    unless($ENV <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	3182	3281	
==>($_) foreach (@pmcs);
    generate_c($_) foreach (@pmcs);

    my ($group_files, $group_libs, $pmc_g <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	3286	3385	
==>($_) foreach (@pmcs);
    generate_c($_) foreach (@pmcs);

    my ($group_files, $group_libs, $pmc_g <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85573	85659	
==>ALS_COMPREG_HASH);\n  {{\@1}} = VTABLE_get_pmc_keyed_str(interpreter, compreg_hash, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86480	86566	
==>ALS_COMPREG_HASH);\n  {{\@1}} = VTABLE_get_pmc_keyed_str(interpreter, compreg_hash, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	14077	14192	
==>+OFFSET\((.*?)\)/{{+=$1}}/mg;
                      $body =~ s/\bgoto\s+NEXT\(\)/{{+=$op_size}}/mg;
        $absolut <==
4	/Users/nnunley/parrot/tools/build/ops2c.pl	8169	8271	
==>reter->ctx.bp.regs_i;
    goto *((void *)*cur_opcode);

END_C
} elsif ($suffix =~ /cg/) {
    print SOU <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16956	17083	
==>em.
        
        # Yes, stipulate the list without a range, so that this can work right on
        #  all charsets that this <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10392	10503	
==>em.

    # Yes, stipulate the list without a range, so that this can work right on
    #  all charsets that this <==
4	/Users/nnunley/parrot/tools/build/ops2pm.pl	9073	9181	
==>1 != $number) {
	    die "hole in ops.num opcode # $number";
    }
    if (exists $ParrotOps::optable{$name}) <==
4	/Users/nnunley/parrot/lib/Test/More.pm	24283	24381	
==>put tests in your testing script (always a good idea).


=back

=head2 Complex data structures

Not <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528108	528405	
==>atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 61 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528989	529286	
==>atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 61 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529871	530168	
==>atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 61 <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	1448	1566	
==>ml';
    my $text = shift;
    my @contents = @_;
    
    $self = $self->SUPER::new($name, $text, @contents);
    $sel <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	1627	1768	
==>ches => 0,              
    calls            => 0,
    covered_calls    => 0
);

# We parse the output of the 'gcov' command, so we do not wa <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	16295	16397	
==>$#$para]) =~ m/^\s*(\d+)\.?\s*$/s and $1 ne '1';
  # Else fall thru to the general case:
  return $self <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6327	6429	
==>ine
      if(!$self->{'start_of_pod_block'} and @$paras and $paras->[-1][0] eq '~Verbatim') {
        D <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10010	10107	
==>f->data->get('slash');
    my $verbose = $conf->options->get('verbose');

    if (defined($_[0]) & <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10591	10688	
==>f->data->get('slash');
    my $verbose = $conf->options->get('verbose');

    if (defined($_[0]) & <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404758	405062	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405670	405974	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406582	406886	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1098288	1098446	
==>(\"int3\");       /* opcode 0xcc */\n#endif\n    {{+=1}};\n",
                  "experimental" => 1,
                  "LABELS" => []
                }, 'Parro <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	901	1011	
==>sub compile
{
  my $self = shift;
  my ($compiler) = @_;
  
  my $ident_name = $self->ident->value;

  my $iden <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	901	1009	
==>sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $ident_name = $self->ident->value;

  my $iden <==
4	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	320	421	
==>}
sub B() { 0xef_cd_ab_89 }
sub C() { 0x98_ba_dc_fe }
sub D() { 0x10_32_54_76 }

# for internal use
su <==
4	/Users/nnunley/parrot/config/auto/bc.pm	225	323	
==>, the basic calculator, exists on the system. It is OK
when it doesn't exist. Currently GNU bc is o <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	26499	26610	
==>enerating.

=cut

sub gen_c {
    my ($self, $out_name) = @_;

    my $cout = dont_edit($self->{file});
    if ( <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	4590	4695	
==>'copy') {
    # Copy *.so -> destination, where destination is the first
    # argument, given as --destin <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	4694	4799	
==>'copy') {
    # Copy *.so -> destination, where destination is the first
    # argument, given as --destin <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3906	4008	
==>'copy') {
	# Copy *.so -> destination, where destination is the first
    # argument, given as --destin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960939	961041	
==>> "#line 595 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961901	962003	
==>> "#line 595 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962863	962965	
==>> "#line 595 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963826	963928	
==>> "#line 595 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609381	609636	
==>VTABLE_get_attr_str(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610289	610544	
==>VTABLE_get_attr_str(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243908	243999	
==>" => "#line 632 \"src/ops/cmp.ops\"\n  STRING* l = VTABLE_get_string(interpreter, {{\@2}});\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244840	244931	
==>" => "#line 632 \"src/ops/cmp.ops\"\n  STRING* l = VTABLE_get_string(interpreter, {{\@2}});\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221478	221727	
==>259,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 484 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_ <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4371	4530	
==>(<DRV>) {
                	/^\s*sub\s+_Parse\s*{\s*$/ .. /^\s*}\s*#\s*_Parse\s*$/
        	and     do {
                	s/^#DBG>//;
                	push(@ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4150	4305	
==>(<DRV>) {
                	/^\s*sub\s+_Parse\s*{\s*$/ .. /^\s*}\s*#\s*_Parse\s*$/
        	and     do {
                	s/^#DBG>//;
                	push(@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	310012	310105	
==>c/ops/debug.ops\"\n    const char *command;\n\n    if (!(interpreter->pdb->state & PDB_BREAK)) <==
4	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1156	1425	
==>ted ops: $I5\n"; # print  "Estimated ops: "
                              # print  I5
                              # print  "\n"
                              #
$N1 = time_hires();           # time N1
                              #
REDO:                         # REDO <==
4	/Users/nnunley/parrot/examples/mops/mops.pl	1156	1425	
==>ted ops: $I5\n"; # print  "Estimated ops: "
                              # print  I5
                              # print  "\n"
                              #
$N1 = time_hires();           # time N1
                              #
REDO:                         # REDO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256187	256421	
==>" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 740 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	11591	11701	
==>foreach my $variant (expand_args(@$args))
    {
        my (@fixedargs)=split(/,/,$variant);
        my $op = P <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30690	30832	
==>78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79 <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40040	40182	
==>78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79 <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41667	41809	
==>78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79 <==
4	/Users/nnunley/parrot/tools/build/pbc2c.pl	259	355	
==>c2c foo.pbc > foo.c

=head1 DESCRIPTION

Parse the Parrot PackFile listed on the command line, or <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6723	6847	
==>& 0x10
#DBG>				and	$dbgerror
#DBG>				and	$$errstatus == 0
#DBG>				and	do {
#DBG>					print STDERR "**End of Error reco <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8596	8716	
==>& 0x10
#DBG>			and	$dbgerror
#DBG>			and	$$errstatus == 0
#DBG>			and	do {
#DBG>				print STDERR "**End of Error reco <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6410	6530	
==>& 0x10
#DBG>				and	$dbgerror
#DBG>				and	$$errstatus == 0
#DBG>				and	do {
#DBG>					print STDERR "**End of Error reco <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8208	8324	
==>& 0x10
#DBG>			and	$dbgerror
#DBG>			and	$$errstatus == 0
#DBG>			and	do {
#DBG>				print STDERR "**End of Error reco <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	3142	3253	
==>eresis looks like " (as in nai"ve, Chloe")

 # From the XHTML 1 .ent files:
 'nbsp'     , 160,
 'iexcl'    , 161 <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1451	1540	
==>} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = "$register_num"
$ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1978	2067	
==>} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = "$register_num"
$ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3161	3250	
==>} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = "$register_num"
$ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381110	381213	
==>\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset({{\@2}}), {{\@3}}) < 0) {\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382122	382225	
==>\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset({{\@2}}), {{\@3}}) < 0) {\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383134	383237	
==>\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset({{\@2}}), {{\@3}}) < 0) {\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384147	384250	
==>\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset({{\@2}}), {{\@3}}) < 0) {\n <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	688	785	
==>($block) . ") is not!"  unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	563	659	
==>($block) . ") is not!" unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	572	668	
==>($block) . ") is not!" unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	554	650	
==>($block) . ") is not!" unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104851	105072	
==>>vtable->bitwise_nots(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	24001	24175	
==>n_command($cmd,
                                     'STDOUT' => $build_f,
                                     'STDERR' => $build_f);
            $builder->diag("'$cmd' faile <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	24762	24936	
==>n_command($cmd,
                                     'STDOUT' => $build_f,
                                     'STDERR' => $build_f);
            $builder->diag("'$cmd' faile <==
4	/Users/nnunley/parrot/tools/build/ops2c.pl	12680	12782	
==>_t hidx = hash_str(full ? info->full_name : info->name) % OP_HASH_SIZE;
    p->info = info;
    p->next <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344263	344356	
==>r, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345505	345598	
==>r, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346747	346840	
==>r, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347990	348083	
==>r, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1} <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20968	21144	
==>10,14

# R* ->         push 0
#         loop: R or next
#               push 1
#               goto loop
#         back: popint -> haveTries_flag
#               if (haveTries_f <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	7106	7211	
==>$O", "$src_stem.c")) {
        run(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $ <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5400	5505	
==>$O", "$src_stem.c")) {
        run(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $ <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	7317	7422	
==>$O", "$src_stem.c")) {
        run(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90805	90985	
==>=> "#line 43 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91659	91839	
==>=> "#line 43 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92513	92693	
==>=> "#line 43 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	1584	1697	
==>because ",
      ref($_[0]) || $_[0], " didn't define a run() method";
  }
}

sub parse_lines {
  use Carp ();
  C <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186058	186321	
==>@1}}, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186988	187251	
==>@1}}, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187918	188181	
==>@1}}, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/examples/benchmarks/shared_ref.pl	69	155	
==>rrot/examples/benchmarks/shared_ref.pl 19601 2006-05-30T13:32:26.641316Z coke  $

=head <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9812	9906	
==>EMP4} = shift ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over each parameter and put them in <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7326	7420	
==>EMP4} = shift ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over each parameter and put them in <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6290	6384	
==>EMP4} = shift ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over each parameter and put them in <==
4	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	10123	10211	
==>ke Reports</title>
  <meta http-equiv="Content-Type" content="text/html; charset=utf-8" / <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1601	1728	
==>=> \$token,
				VALUE => \$value,
				DOTPOS => \$dotpos,
				STACK => [],
				DEBUG => 0,
				CHECK => \$check };

	_Che <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1547	1667	
==>=> \$token,
				VALUE => \$value,
				DOTPOS => \$dotpos,
				STACK => [],
				DEBUG => 0,
				CHECK => \$check };

	_Che <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2933	3040	
==>emval {
	my($self)=shift;
	my($index)= $_[0] - ${$$self{DOTPOS}} - 1;

		$index < 0
	and	-$index <= @{$ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2791	2893	
==>emval {
	my($self)=shift;
	my($index)= $_[0] - ${$$self{DOTPOS}} - 1;

		$index < 0
	and	-$index <= @{$ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55445	55643	
==>[
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 864 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo(interpreter, <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27519	27631	
==>elf) ? ''
				: $self->describe ) . '};
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($s <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29629	29741	
==>elf) ? ''
				: $self->describe ) . '};
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($s <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31726	31838	
==>elf) ? ''
				: $self->describe ) . '};
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($s <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	4204	4310	
==>eger  : PMC that behaves similarly to the base int type
    float    : PMC that behaves similarly to the ba <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111243	111333	
==>ODY" => "#line 187 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_or(interpreter, {{\@2}}, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112135	112225	
==>ODY" => "#line 187 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_or(interpreter, {{\@2}}, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113027	113117	
==>ODY" => "#line 187 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_or(interpreter, {{\@2}}, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642754	643141	
==>"o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 718,
                  "ARGS" => [
                              "i",
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 19 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958622	958911	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "AR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959423	959712	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "AR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960225	960514	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "AR <==
4	/Users/nnunley/parrot/tools/dev/run_indent.pl	1709	1817	
==>but this is necessary.
    
    my $errors = 0;
    local $SIG{__WARN__} = sub { $errors++; $all_errors{"@_"} <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	10906	11009	
==>def.pmc',
             'pmc_names' => 'Null Env Key Random UnManagedStruct ManagedStruct delegate CSub C <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	7049	7148	
==>$dest_stem ||= $src_stem;
    if (needs_build("$dest_stem$O", "$src_stem.c")) {
        run(compile_ <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5343	5442	
==>$dest_stem ||= $src_stem;
    if (needs_build("$dest_stem$O", "$src_stem.c")) {
        run(compile_ <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	7260	7359	
==>$dest_stem ||= $src_stem;
    if (needs_build("$dest_stem$O", "$src_stem.c")) {
        run(compile_ <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10060	10173	
==>tions->get('verbose');

    if (defined($_[0]) && length($_[0])) {
        local $" = ' ';
        _run_command(". <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10641	10754	
==>tions->get('verbose');

    if (defined($_[0]) && length($_[0])) {
        local $" = ' ';
        _run_command(". <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7929	8024	
==>P2}) = method_info_from_token(${ASSEMBLY}, ${ARG0})

# If there is a return type, need to push $ <==
4	/Users/nnunley/parrot/config/auto/byteorder.pm	375	465	
==>to);
use base qw(Parrot::Configure::Step::Base);

$description = q{Computing native byteord <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	4618	4740	
==>count", $n, $f, $source];
	    }
	}
	$arg = '' unless defined $arg;
	$rest = '' unless defined $rest;
    }
    else {  # p <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2004	2104	
==>lves unknown variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->type;
  }
  e <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1962	2062	
==>lves unknown variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->type;
  }
  e <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1884	1984	
==>lves unknown variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->type;
  }
  e <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	1946	2033	
==>trings -Waggregate-return -Winline -W -Wno-unused -Wsign-compare -Wformat-nonliteral -Wf <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1266	1353	
==>trings -Waggregate-return -Winline -W -Wno-unused -Wsign-compare -Wformat-nonliteral -Wf <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1311	1398	
==>trings -Waggregate-return -Winline -W -Wno-unused -Wsign-compare -Wformat-nonliteral -Wf <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1315	1402	
==>trings -Waggregate-return -Winline -W -Wno-unused -Wsign-compare -Wformat-nonliteral -Wf <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9541	9636	
==>RIC}

# It's a call. Get details of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PT <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7055	7150	
==>RIC}

# It's a call. Get details of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PT <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5611	5706	
==>RIC}

# It's a call. Get details of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PT <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7831	7926	
==>RIC}

# It's a call. Get details of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PT <==
4	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1122	1226	
==>ess ($pass) {
        my $file = Parrot::Test::slurp_file($out_f);
        $pass =$self->{builder}->is_eq <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1163	1267	
==>ess ($pass) {
        my $file = Parrot::Test::slurp_file($out_f);
        $pass =$self->{builder}->is_eq <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	26579	26677	
==>keted by any of character(s) specified by $delim
 # (where the string $delim contains one or more o <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	380	473	
==>Parrot::Docs::Section::Tools;

use strict;
use warnings;

use base qw( Parrot::Docs::Section ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332391	332487	
==>*/\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdope <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333669	333765	
==>*/\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdope <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334947	335043	
==>*/\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdope <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336226	336322	
==>*/\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdope <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48266	48375	
==>, $maxrep) = (0,1) }
				elsif ($grammar =~ m/$ANY/gco)
					{ $minrep = 0 }
				elsif ($grammar =~ m/$EXACTLY <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1350	1458	
==>consequences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $self->set_result('y <==
4	/Users/nnunley/parrot/config/inter/make.pm	1171	1279	
==>consequences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $self->set_result('y <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1347	1455	
==>consequences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $self->set_result('y <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	36028	36174	
==>failure and will exit with 255.

So the exit codes are...

    0                   all tests successful
    255                 test died
    any o <==
4	/Users/nnunley/parrot/lib/Test/More.pm	34099	34245	
==>failure and will exit with 255.

So the exit codes are...

    0                   all tests successful
    255                 test died
    any o <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	2894	3040	
==>failure and will exit with 255.

So the exit codes are...

    0                   all tests successful
    255                 test died
    any o <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3791	3901	
==>ter_num/$register_num/g;
		$register_num++;
	}
    
    # If there are going to be any pushes, need to do any l <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	35437	35580	
==>6,
			"*" => 80,
			".." => 71,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -68
	},
	{#State 132
		ACTIONS => {
			"^" <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3038	3149	
==>=> "NREG(%ld)",
    'p'  => "PREG(%ld)",
    's'  => "SREG(%ld)",
    'k'  => "PREG(%ld)",
    'ki' => "IREG(%ld <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2858	2969	
==>=> "NREG(%ld)",
    'p'  => "PREG(%ld)",
    's'  => "SREG(%ld)",
    'k'  => "PREG(%ld)",
    'ki' => "IREG(%ld <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1955	2062	
==>=> "NREG(%ld)",
  'p'   => "PREG(%ld)",
  's'   => "SREG(%ld)",
  'k'   => "PREG(%ld)",
  'ki'  => "IREG(%ld <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	11374	11462	
==>eredHash TQueue ParrotClass ParrotObject OS File AddrRegistry Bound_NCI deleg_pmc Enumera <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7701	7795	
==>escription of the file extracted from the C<NAME> section
of the POD documentation, if it exist <==
4	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	290	382	
==>ameters specifying argument types and
subcommands can be specified, the build tool takes this <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033380	1033462	
==>_NULL(lex_pad)) {\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexica <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034478	1034560	
==>_NULL(lex_pad)) {\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexica <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10735	10844	
==>my $self = shift; # Required: Jako::Construct::Block

  confess "No block!"        unless defined $self and re <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4411	4514	
==>my $self = shift; # Required: Jako::Construct::Block

  confess "No block!"  unless defined $self and re <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4918	5021	
==>my $self = shift; # Required: Jako::Construct::Block

  confess "No block!"  unless defined $self and re <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10321	10423	
==>my $self = shift; # Required: Jako::Construct::Block

  confess "No block!" unless defined $self and re <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37785	37888	
==>arserepeat($text, '
		. $self->callsyntax($namespace.'::')
		. ', ' . $min . ', ' . $max . ', '
		. ($se <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462838	462930	
==>ception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = fm <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463835	463927	
==>ception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = fm <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464832	464924	
==>ception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = fm <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072625	1072739	
==>\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y == -r <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074810	1074924	
==>\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y == -r <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076995	1077109	
==>\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y == -r <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079181	1079295	
==>\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y == -r <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	3536	3661	
==>\n";
        local $/ = $Pod::Simple::NL;
        push @lines, scalar(<$fh>); # readline
        DEBUG > 3 and print "  Line i <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1160	1264	
==>> $dest->line
  }, $class;

  $block->push_content($self);

  return $self;
}

sub dest  { return shift-> <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1151	1255	
==>> $dest->line
  }, $class;

  $block->push_content($self);

  return $self;
}

sub dest  { return shift-> <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1040	1144	
==>> $dest->line
  }, $class;

  $block->push_content($self);

  return $self;
}

sub dest  { return shift-> <==
4	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	3366	3453	
==>ARSET_TABLES_H_GUARD
#include "parrot/cclass.h"
#define WHITESPACE  enum_cclass_whitespa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572381	572557	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573290	573466	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574200	574376	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575003	575179	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206510	206780	
==>er(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207452	207722	
==>er(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208392	208662	
==>er(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209333	209603	
==>er(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854377	854588	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855265	855476	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856154	856365	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857043	857254	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477234	477529	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478130	478425	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479021	479316	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479913	480208	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARG <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2845	2941	
==>CII;
  my $out = Text::Wrap::wrap($indent, $indent, $self->{'Thispara'} .= "\n");
  $out =~ tr{\x <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2379	2475	
==>CII;
  my $out = Text::Wrap::wrap($indent, $indent, $self->{'Thispara'} .= "\n");
  $out =~ tr{\x <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361645	361739	
==>o.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, INTVAL_FMT, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362544	362638	
==>o.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, INTVAL_FMT, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284852	285140	
==>reter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285729	286017	
==>reter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286606	286894	
==>reter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1096653	1096776	
==>ntal.ops\"\n    PMC *ns = Parrot_NameSpace_name(interpreter, \n                                    VTABLE_namespace(interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099171	1099295	
==>if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100369	1100493	
==>if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101567	1101691	
==>if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102766	1102890	
==>if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\ <==
4	/Users/nnunley/parrot/editor/kate_syntax.pl	4019	4123	
==>r" context="#stay" String="[a-zA-Z_][\\w_]*" />
      </context>

END

print <<END;
      <context name=" <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2055	2153	
==>fined at this lexical scope, we want to complain
  # about the redefinition. Otherwise, we assume t <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1802	1900	
==>fined at this lexical scope, we want to complain
  # about the redefinition. Otherwise, we assume t <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	6483	6577	
==>ge") },
	'<>' => sub { &{$opsubs{"="}}(@_[0..2], "ne") },
	'<' => sub { &{$opsubs{"="}}(@_[0..2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712409	712505	
==>r, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  s = Parrot_sprintf_c(interpreter, \"%.12g\", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713516	713612	
==>r, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  s = Parrot_sprintf_c(interpreter, \"%.12g\", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719876	719972	
==>r, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  s = Parrot_sprintf_c(interpreter, \"%.12g\", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721076	721172	
==>r, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  s = Parrot_sprintf_c(interpreter, \"%.12g\", <==
4	/Users/nnunley/parrot/tools/build/headerize.pl	1980	2091	
==>et rid of any blocks at the end
    s/\s*{.*//s for @funcs;

    # Toast anything non-whitespace
    @funcs = gr <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1146	1256	
==>e,
    LINE  => $dest->line
  }, $class;

  $block->push_content($self);

  return $self;
}

sub dest  { return <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1137	1247	
==>e,
    LINE  => $dest->line
  }, $class;

  $block->push_content($self);

  return $self;
}

sub dest  { return <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1026	1136	
==>e,
    LINE  => $dest->line
  }, $class;

  $block->push_content($self);

  return $self;
}

sub dest  { return <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	8805	8942	
==>en();
        }

        foreach my $kid (@{ $t->{args} }) {
            $kid_follow_min -= $kid->minlen();

            $kid = $self->add <==
4	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	1740	1904	
==>marker

        (\w+)             # name

        (?: : ($types) )? # optional type
        (?: = ([^?]*)  )? # optional default value

        (\+?)             # i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363359	363504	
==>"
                            ],
                  "BODY" => "#line 292 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprint <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364262	364407	
==>"
                            ],
                  "BODY" => "#line 292 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprint <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	639939	640048	
==>instantiate(interpreter, class, sig);\n  interpreter->current_args = NULL;\n  {{+=2}};\n",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905371	905661	
==>str(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906390	906680	
==>str(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907409	907699	
==>str(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908429	908719	
==>str(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273636	273895	
==>76 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	274482	274741	
==>76 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	275328	275587	
==>76 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/languages/regex/test.pl	154	252	
==>use strict;

# Running this with perl5.005 produces:
# Can't locate object method "new" via package <==
4	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	415	513	
==>i

Note that the assembly file is generated in the order you specify, so
if there are library depen <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	1864	1948	
==>ict-prototypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwrite-stri <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1229	1313	
==>ict-prototypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwrite-stri <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1233	1317	
==>ict-prototypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwrite-stri <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	3485	3611	
==>is('unless');        }
sub is_until         { return shift->is('until');         }
sub is_var           { return shift->is('var <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1626	1744	
==>'no');
        return $self;
    }

    if ($conf->options->get('ask')) {
        $prog = prompt($prompt, $prog ? $prog <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1640	1758	
==>'no');
        return $self;
    }

    if ($conf->options->get('ask')) {
        $prog = prompt($prompt, $prog ? $prog <==
4	/Users/nnunley/parrot/tools/dev/parrotbench.pl	6153	6255	
==>->devnull) or die "Unable to redirect STDOUT";
select COPYOUT;
$| = 1;

my @max = $cfg{method} == 1 ? ( <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1976	2106	
==>tions->get('ask')) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    # if '--vers <==
4	/Users/nnunley/parrot/config/inter/make.pm	1850	1980	
==>tions->get('ask')) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    # if '--vers <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1990	2120	
==>tions->get('ask')) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    # if '--vers <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	26544	26658	
==>attern \"m$ldel$pattern$rdel\"
					     may not be a valid regular expression",
					   $_[5]);
		$@ =~ s/ at \(ev <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94343	94553	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95235	95445	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96128	96338	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	5709	5808	
==>ingle characters or character ranges) won't
# have to do their own checking.
#
# Without this, /abc/ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857770	858073	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858773	859076	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859777	860080	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860781	861084	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	331820	332117	
==>> "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333097	333394	
==>> "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334375	334672	
==>> "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335653	335950	
==>> "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
4	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2009	2129	
==>t_prog = (
                "perl -Ilanguages/lua languages/lua/luac.pl languages/${lang_fn}",
                "$self->{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062549	1062649	
==>ns;\n    ns = VTABLE_get_pmc_keyed(interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063418	1063518	
==>ns;\n    ns = VTABLE_get_pmc_keyed(interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064288	1064388	
==>ns;\n    ns = VTABLE_get_pmc_keyed(interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943390	943654	
==>charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 10 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944178	944442	
==>charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 10 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946591	946855	
==>charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 10 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947492	947756	
==>charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 10 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813974	814212	
==>BELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814596	814834	
==>BELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	815224	815462	
==>BELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core", <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	17663	17766	
==>ndpos, 	$textlen-$endpos,	# REMAINDER
		       );
	}

	unless ($$textref =~ m{\G((?:m|s|qq|qx|qw|q|qr|tr <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1034	1150	
==>IGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $left  = $self->left->valu <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	1042	1158	
==>IGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $left  = $self->left->valu <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3575	3667	
==>ub _CheckParams {
	my($mandatory,$checklist,$inarray,$outhash)=@_;
	my($prm,$value);
	my($ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3388	3477	
==>ub _CheckParams {
	my($mandatory,$checklist,$inarray,$outhash)=@_;
	my($prm,$value);
	my($ <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	10595	10696	
==>"","","") unless defined $$textref;
	my $pre  = defined $_[1] ? $_[1] : '\s*';

	my @match = _match_va <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1808	1899	
==>e;

  my $left_type;
  if (UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value::Identi <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1766	1857	
==>e;

  my $left_type;
  if (UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value::Identi <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1688	1779	
==>e;

  my $left_type;
  if (UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value::Identi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223638	223904	
==>ter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224580	224846	
==>ter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225520	225786	
==>ter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226461	226727	
==>ter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	817660	817811	
==>,
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818438	818589	
==>,
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTA <==
4	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	5794	5910	
==>mit("a_$name = new .$type");
            $code .= emit("a_$name = $quote$default$quote");
            $code .= "done_ <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	16368	16472	
==>TO	
TOS
	}
	if ($ops and ($tos or $ors)) {
		print CODE qq{\tunshift P9, "OP"\n};
		print CODE qq{\tunshi <==
4	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3295	3389	
==>ible to catch inadvertent data modification
by callers.  For APIs that cross into the operating <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	5887	5988	
==>>require('literal');       }
sub require_open_brace    { return shift->require('open-brace');    }
sub <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550069	550160	
==>t = {{^+3}};\n  interpreter->current_object = object;\n  interpreter->current_cont = NEED_CO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551370	551461	
==>t = {{^+3}};\n  interpreter->current_object = object;\n  interpreter->current_cont = NEED_CO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552712	552803	
==>t = {{^+3}};\n  interpreter->current_object = object;\n  interpreter->current_cont = NEED_CO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374019	374111	
==>"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374902	374994	
==>"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375785	375877	
==>"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376669	376761	
==>"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1016579	1016770	
==>ys.ops\"\n  {{\@1}} = Parrot_intval_time();\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ), <==
4	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1268	1376	
==>guage = File::Spec->join('languages', $language);
        } elsif ($dir_count == 1) {
          $path_to_lang <==
4	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1753	1861	
==>guage = File::Spec->join('languages', $language);
        } elsif ($dir_count == 1) {
          $path_to_lang <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	3758	3852	
==>ain a single subexpression.
# By default, all calls are propagated to the subexpression.
packag <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	967	1095	
==>ssion::Value');

  my $self = bless {
    BLOCK => $block,

    DEST  => $dest,
    LEFT  => $left,
    OP    => $op,
    RIGHT = <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	958	1086	
==>ssion::Value');

  my $self = bless {
    BLOCK => $block,

    DEST  => $dest,
    LEFT  => $left,
    OP    => $op,
    RIGHT = <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	847	975	
==>ssion::Value');

  my $self = bless {
    BLOCK => $block,

    DEST  => $dest,
    LEFT  => $left,
    OP    => $op,
    RIGHT = <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2864	2965	
==>sub output_lt {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_test('<', $val1, $val2, $d <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	7524	7678	
==>-9A-Z_a-z]*)//
                and return $parser->_Identifier($1);

            s/^(\.\.\.)//
                and return ( $1, $1 );
            s/^( <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39149	39248	
==>shname} = '__DIRECTIVE' . ++$_[1]->{dircount} .  '__'; }


sub new
{
	my ($class, $type, $minrep, $m <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	24826	24922	
==>eturn _succeed wantarray, $textref,
				$match[2], $match[3]+$match[5]+$match[7],	# MATCH
				@ma <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	7658	7752	
==>eturn _succeed wantarray, $textref,
			$match[2], $match[3]+$match[5]+$match[7],	# MATCH
			@ma <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273633	273892	
==>e 876 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	274479	274738	
==>e 876 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	275325	275584	
==>e 876 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	46918	47018	
==>ing fore and aft delimiters),

=item [1]

" || die;\nexit;" (i.e. the remainder of the input text, co <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948891	949180	
==>erpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949691	949980	
==>erpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959345	959634	
==>erpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960147	960436	
==>erpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12581	12703	
==>odule
{
    my $self = shift;
    my $module = shift;
    
    # This is not very obvious, so let me explain. We get the fi <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10140	10257	
==>\\'95 \n";
        #for funky testing: print $fh '', rtf_esc("\x{4E4B}\x{9053}");
      }

    } elsif( $type eq 'end' <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	6957	7068	
==>declare struct-like datatypes as Perl classes

=head1 SYNOPSIS

    use Class::Struct;
            # declare str <==
4	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	135	227	
==>62Z petdance  $
use strict;

my ($svnid) = '$Id: /parrot/tools/build/parrot_config_c.pl 20350 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837239	837344	
==>stack_pop(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}),\n                  STACK_ENTRY_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837971	838076	
==>stack_pop(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}),\n                  STACK_ENTRY_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838705	838810	
==>stack_pop(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}),\n                  STACK_ENTRY_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	839437	839542	
==>stack_pop(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}),\n                  STACK_ENTRY_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055740	1056064	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "AR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056631	1056955	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "AR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057523	1057847	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "AR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058415	1058739	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "AR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80146	80415	
==>PE" => "function",
                  "CODE" => 101,
                  "ARGS" => [
                              "p",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 1176 \"src/ops/co <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506576	506691	
==>" => "#line 636 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507431	507546	
==>" => "#line 636 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	508286	508401	
==>" => "#line 636 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	1424	1539	
==>des access to key values.

Accepts a list and returns a list.

=cut

sub get
{
    my $self = shift;

    my $c = $s <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1734	1834	
==>rog ? $prog : $conf->data->get($util));
    }

    my ($stdout, $stderr, $ret) = capture_output($prog <==
4	/Users/nnunley/parrot/config/inter/make.pm	1608	1708	
==>rog ? $prog : $conf->data->get($util));
    }

    my ($stdout, $stderr, $ret) = capture_output($prog <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1748	1848	
==>rog ? $prog : $conf->data->get($util));
    }

    my ($stdout, $stderr, $ret) = capture_output($prog <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279718	279991	
==>"\n  {{\@1}} = ({{\@2}} < {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	280573	280846	
==>"\n  {{\@1}} = ({{\@2}} < {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	281428	281701	
==>"\n  {{\@1}} = ({{\@2}} < {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	15922	16015	
==>flag(\$jumps, "PARROT_JUMP_GNEXT")      if (($jumps) && ($fixedargs[@fixedargs - 1]) && ($fixe <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	13320	13463	
==>s = $all->{$this};

    while (@todo) {
        my $n   = shift @todo;
        my $sub = $all->{$n};
        next if $n eq 'default';

        m <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544126	544227	
==>c/ops/math.ops\"\n INTVAL gcd = 0;\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n IN <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545462	545563	
==>c/ops/math.ops\"\n INTVAL gcd = 0;\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n IN <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546798	546899	
==>c/ops/math.ops\"\n INTVAL gcd = 0;\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n IN <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2331	2440	
==>e specified op argument type (see
C<Parrot::OpTrans>) and value. C<$op> is an instance of C<Parrot::Op>.

=cut <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3423	3532	
==>e specified op argument type (see
C<Parrot::OpTrans>) and value. C<$op> is an instance of C<Parrot::Op>.

=cut <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3567	3676	
==>e specified op argument type (see
C<Parrot::OpTrans>) and value. C<$op> is an instance of C<Parrot::Op>.

=cut <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3222	3331	
==>e specified op argument type (see
C<Parrot::OpTrans>) and value. C<$op> is an instance of C<Parrot::Op>.

=cut <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072026	1072140	
==>n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074211	1074325	
==>n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076396	1076510	
==>n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078582	1078696	
==>n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	339552	339799	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340550	340797	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341549	341796	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342548	342795	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	8444	8580	
==>g_dir = cwd;
        chdir $chdir;
    }

    # Execute all commands
    system( $_ ) for (@{$command});

    if( $chdir ) {
        chdi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905311	905397	
==>\"src/ops/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2}}, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906330	906416	
==>\"src/ops/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2}}, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907349	907435	
==>\"src/ops/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2}}, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908369	908455	
==>\"src/ops/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2}}, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129035	129390	
==>+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLA <==
4	/Users/nnunley/parrot/config/inter/pmc.pm	2785	2888	
==>_list) =~ s/\.pmc/\$(O)/g;
    (my $TEMP_pmc_str = $pmc_list) =~ s/\.pmc/\.str/g;

    # calls to pmc2c. <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614918	615017	
==>fset(interpreter, {{\@2}}, {{\@3}});\n    if (offset < 0) {\n        real_exception(interpreter, nex <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616069	616168	
==>fset(interpreter, {{\@2}}, {{\@3}});\n    if (offset < 0) {\n        real_exception(interpreter, nex <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	1928	2058	
==>ND_PIR"            # and
    $I100 = %1
    $I101 = %2
    $I100 = and $I100, $I101
    %1 = $I100
END_PIR

    $P0[unicode:"dyadic <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10607	10722	
==>hed
	croak("Error in driver logic. Please, report it as a BUG");

}#_Parse
#DO NOT remove comment

1;

}
#E <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3788	3899	
==>URR] eq ";") {
		feedme();		# Ignore this form for now.
	}
	if ($syms[CURR] eq "#") {
		feedme();
		$fd=$syms[CU <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10131	10237	
==>hed
	croak("Error in driver logic. Please, report it as a BUG");

}#_Parse
#DO NOT remove comment

1;

}
#E <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469312	469414	
==>5 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exception(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470187	470289	
==>5 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exception(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	1464	1561	
==>ed, $description)> 

Runs a langugage test and passes the test
if the  output matches the expected <==
4	/Users/nnunley/parrot/config/init/hints/linux.pm	77	171	
==>inux.pm 19593 2006-05-30T02:28:15.110975Z coke  $

package init::hints::linux;

use strict;

us <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879141	879320	
==>",
                              "i"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880245	880424	
==>",
                              "i"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881349	881528	
==>",
                              "i"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882454	882633	
==>",
                              "i"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n    dest <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377582	377843	
==>Parrot_fstat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378466	378727	
==>Parrot_fstat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379350	379611	
==>Parrot_fstat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380235	380496	
==>Parrot_fstat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614246	614387	
==>|PARROT_JUMP_ENEXT",
                  "NAME" => "classoffset",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615396	615537	
==>|PARROT_JUMP_ENEXT",
                  "NAME" => "classoffset",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => <==
4	/Users/nnunley/parrot/languages/urm/urm-old.pl	139	237	
==>ogram;
my %register;
my $outreg;
open PROGRAM, $ARGV[0] or die "Couldn't get file";
foreach my $lin <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	446	543	
==>t::Docs::Directory;

use strict;
use warnings;

use base qw( Parrot::IO::Directory );

use Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344575	344911	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345817	346153	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347059	347395	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348302	348638	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	26193	26294	
==>$cout .= <<"EOC";
    } /* pass */
} /* Parrot_${classname}_class_init */
EOC
    if ($self->{flags}{d <==
4	/Users/nnunley/parrot/lib/Test/More.pm	27971	28071	
==>deeply( \@this, \@that );

They may be deprecated in future versions.

=over

=item B<eq_array>

  my <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5688	5786	
==>\n\n";
}

=item C<init_func_init1($base)>

Returns the C code for the init function.

=cut

sub ini <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483797	484058	
==>e by zero\");\n  {{\@1}} = floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484796	485057	
==>e by zero\");\n  {{\@1}} = floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485795	486056	
==>e by zero\");\n  {{\@1}} = floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1931	2069	
==>op->{op} $op->{result}->{symbol}, $op->{arg2}->{symbol}\n";
        }
        else {
            print {$FH}
                "  $op->{r <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	619610	619698	
==>ARROT_ERRORS_OVERFLOW_FLAG)) {\n\t\treal_exception(interpreter, NULL, ERR_OVERFLOW,\n\t\t <==
4	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	333	415	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub _handle_element_star <==
4	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	330	412	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub _handle_element_star <==
4	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	586	668	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub _handle_element_star <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447774	447878	
==>ops\"\n  if ({{\@2}} < 0) {\n    {{\@1}} = - (INTVAL){{\@2}};\n  }\n  else {\n    {{\@1}} = (INTVAL){{\@2 <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	1828	1931	
==>it;
	runtime_init;
	feedme;
	$branchseq=0;
	$sourceline=1;
	my $currline="";	# The last labeled line bef <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4881	4969	
==>lf{ 'RULES', 'STATES', 'LEX', 'ERROR' };
	my($errstatus,$nberror,$token,$value,$stack,$c <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4640	4727	
==>lf{ 'RULES', 'STATES', 'LEX', 'ERROR' };
	my($errstatus,$nberror,$token,$value,$stack,$c <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15367	15471	
==>)+0
y=arrfunc(g())

' For loops, by two and backwards
for i = 0 to 10 step 2
	print i,
next i
print
for i <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1392	1482	
==>imization -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $L <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1437	1527	
==>imization -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $L <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1441	1531	
==>imization -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $L <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31261	31356	
==>self, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $line, $out_nam <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35892	35987	
==>self, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $line, $out_nam <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39881	39976	
==>self, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $line, $out_nam <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	14947	15041	
==>t the Test::More function is_deeply.
The plan currently is to implement this as a mutually recu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089603	1089855	
==>8,
                  "ARGS" => [
                              "p",
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 186 \"src/ops/experimental.ops\"\n    {{\@1}} = { <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	8084	8193	
==>reach my $t (@_) {
    next unless defined $t and length $t;
    # TODO: enforce some limitations on what a ta <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	8603	8712	
==>reach my $t (@_) {
    next unless defined $t and length $t;
    # TODO: enforce some limitations on what a ta <==
4	/Users/nnunley/parrot/lib/Test/More.pm	3351	3444	
==>t::More qw(no_plan);

B<NOTE>: using no_plan requires a Test::Harness upgrade else it will
thi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579478	579571	
==>esn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(interpr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580783	580876	
==>esn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(interpr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582088	582181	
==>esn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(interpr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583394	583487	
==>esn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(interpr <==
4	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1391	1628	
==>EDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hires();           # t <==
4	/Users/nnunley/parrot/examples/mops/mops.pl	1391	1628	
==>EDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hires();           # t <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	166	262	
==>the scary things happen: parsing lines into
#  paragraphs; and then into directives, verbatims, a <==
4	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8932	9018	
==>1,/* 16 */ 
GG,$a,$b,$c,$d,$_[5],5,0xf61e2562,/* 17 */
GG,$d,$a,$b,$c,$_[10],9,0xc040b3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492775	493008	
==>}} = intval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493536	493769	
==>}} = intval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops.pm	38	152	
==>ERS);
sub mark {
    my $name = shift || '';
    my $number = ++$MARKERS{$name};
    $number = '' if ($number == 1) <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2670	2784	
==>ERS);
sub mark {
    my $name = shift || '';
    my $number = ++$MARKERS{$name};
    $number = '' if ($number == 1) <==
4	/Users/nnunley/parrot/config/auto/jit.pm	1149	1262	
==>/|_|g;

    # On OS X if you are using the Perl that shipped with the system
    # the above split fails because a <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	4613	4709	
==>so -> destination, where destination is the first
    # argument, given as --destination=DIRECTOR <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3926	4022	
==>so -> destination, where destination is the first
    # argument, given as --destination=DIRECTOR <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	4717	4813	
==>so -> destination, where destination is the first
    # argument, given as --destination=DIRECTOR <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	13945	14054	
==>if(!length $source
     or $source eq '-' or $source =~ m/^<&(STDIN|0)$/i
  ) { 
    $source = *STDIN{IO};
  } <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1674	1778	
==>$target, $pattern)
        : Parrot::Test::PGE::_generate_pir_for($target, $pattern)
    );

    goto &Pa <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2197	2301	
==>$target, $pattern)
        : Parrot::Test::PGE::_generate_pir_for($target, $pattern)
    );

    goto &Pa <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	29593	29692	
==>ng_p {
}

sub _op_make_string {
}

sub _op_string {
}

sub _op_string_length {
}

sub _op_string_ref <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	99609	99748	
==>@2}}->vtable->bitwise_not(interpreter, {{\@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	14341	14442	
==>nted?";
			}
			push @work, [ "($op1->[0] $sym $op2->[0])", "RESULT", "\$$optype$retcount" ];
			$retc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353682	353775	
==>nterpreter, s)) {\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354427	354520	
==>nterpreter, s)) {\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n" <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10422	10536	
==>ndent_stack[-1] twips.\n";
        $self->{'rtfindent'} -= pop @indent_stack;
        pop @stack;
      } elsif( $t <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1938	2053	
==>oken
    if ($ret == -1 and !$conf->options->get('ask')) {

        # fall back to default
        $self->set_result <==
4	/Users/nnunley/parrot/config/inter/make.pm	1812	1927	
==>oken
    if ($ret == -1 and !$conf->options->get('ask')) {

        # fall back to default
        $self->set_result <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1952	2067	
==>oken
    if ($ret == -1 and !$conf->options->get('ask')) {

        # fall back to default
        $self->set_result <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	12409	12499	
==>ren { 0 }
sub Regex::Ops::Tree::atend::render { '$' }

sub Regex::Ops::Tree::check::needpar <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240187	240321	
==>terpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241135	241269	
==>terpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242083	242217	
==>terpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243032	243166	
==>terpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" = <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	17207	17320	
==>xpect'" : 'undef';
    return $self->diag(sprintf <<DIAGNOSTIC, $got, $type, $expect);
    %s
        %s
    %s
DI <==
4	/Users/nnunley/parrot/config/gen/core_pmcs.pm	1486	1587	
==>END_C";
/*
 * DO NOT EDIT THIS FILE
 *
 * Automatically generated by config/gen/core_pmcs.pm
 */

#inc <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5055	5151	
==>output_label_use($failLabel);
    my $pass = $self->output_label_use($passLabel);

    while (@$i <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4730	4826	
==>output_label_use($failLabel);
    my $pass = $self->output_label_use($passLabel);

    while (@$i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835279	835529	
==>{
                  "JUMP" => 0,
                  "NAME" => "savec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inlin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836031	836281	
==>{
                  "JUMP" => 0,
                  "NAME" => "savec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inlin <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	1271	1397	
==>, 'write_NEXT'],
  ['write_DOT',    'print', '" . "'],
  ['',             'save', 'P1'],
  ['',             'invokecc'],
  ['', <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2098	2194	
==>ment name has a dash,
period, or colon, the corresponding method name will have a underscore
in i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017909	1018022	
==>2 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_g <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018834	1018947	
==>2 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_g <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019761	1019873	
==>2 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020692	1020804	
==>2 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1226	1332	
==>$self->output_label_use($failLabel);
    return ("<rx_pos> += $distance; # pos++",
            "goto $failL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072455	1072565	
==>, n ) );\n  {{\@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074640	1074750	
==>, n ) );\n  {{\@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076825	1076935	
==>, n ) );\n  {{\@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079011	1079121	
==>, n ) );\n  {{\@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995026	995392	
==>LAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1113,
                  "ARGS" = <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33599	33704	
==>s->[0][0] eq '~Para') {
              DEBUG and print "Assimilating following ~Para content into $over_typ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35412	35517	
==>s->[0][0] eq '~Para') {
              DEBUG and print "Assimilating following ~Para content into $over_typ <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2811	2931	
==>.
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $PATHQ <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3120	3240	
==>.
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $PATHQ <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2915	3035	
==>.
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $PATHQ <==
4	/Users/nnunley/parrot/config/auto/sizes.pm	1567	1672	
==>esults{intvalsize}) {
        print <<"END";

Hmm, I see your chosen INTVAL isn't the same size as your po <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72988	73092	
==>mc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(interpreter, enum_class_NC <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74590	74694	
==>mc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(interpreter, enum_class_NC <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76192	76296	
==>mc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(interpreter, enum_class_NC <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77795	77899	
==>mc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(interpreter, enum_class_NC <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	1136	1263	
==>ocal/bin',
             'bison_version' => undef,
             'blib_dir' => 'blib/lib',
             'build_dir' => '/Users/nnu <==
4	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	3806	3929	
==>bel = "CLASS_$_";
        $label =~ s/\./_/g;
        $pir .= "if class_name == \"$_\" goto $label\n";
    }
    $pir .= "go <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2388	2510	
==>c/pmc' . $PATHQUOTE . " " .
        $source;
};

sub partial_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2183	2305	
==>c/pmc' . $PATHQUOTE . " " .
        $source;
};

sub partial_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204340	204609	
==>ion",
                  "CODE" => 241,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 380 \"src/ops/cmp.ops\"\n  if <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17722	17873	
==>ne(
          $para->[1]{'start_line'},
          "=for without a target?"
        );
        next;
      }
      DEBUG > 1 and
       print "Faking out <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7597	7700	
==>IN
300 print "300!"
    goto FIN
oats:
	print "Oats",
	return
peas:
	print "Peas",
	return
beans:
	print <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19880	19983	
==>IN
300 print "300!"
    goto FIN
oats:
	print "Oats",
	return
peas:
	print "Peas",
	return
beans:
	print <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2137	2242	
==>wise, we assume the programmer wanted to shadow the
  # previous definition.
  #

  if (defined $sym and $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1884	1989	
==>wise, we assume the programmer wanted to shadow the
  # previous definition.
  #

  if (defined $sym and $ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	20	118	
==>anslator
# This SRM algorithm keeps track of the current stack depth and assigns to
# virtual regis <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	20	118	
==>anslator
# This SRM algorithm keeps track of the current stack depth and assigns to
# virtual regis <==
4	/Users/nnunley/parrot/config/auto/alignptrs.pm	762	864	
==>'ptr_alignment'))) {
        $align  = $conf->data->get('ptr_alignment');
        $self->set_result("co <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	1720	1807	
==>ment -I/usr/local/include -I/opt/local/include -pipe -fno-common -Wno-long-double  -I /o <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1108	1195	
==>ment -I/usr/local/include -I/opt/local/include -pipe -fno-common -Wno-long-double  -I /o <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1112	1199	
==>ment -I/usr/local/include -I/opt/local/include -pipe -fno-common -Wno-long-double  -I /o <==
4	/Users/nnunley/parrot/config/gen/icu.pm	1903	2044	
==>=~ s/-licui18n\w*//; # "-licui18n32" too
                $without = 1 if length $icushared == 0;
            }

            # location of head <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	707	809	
==>n
# some places as Win32 paths have \'s in, which qq[] treats as escape sequences.
# Config stuff
our $ <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	665	767	
==>n
# some places as Win32 paths have \'s in, which qq[] treats as escape sequences.
# Config stuff
our $ <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	669	771	
==>n
# some places as Win32 paths have \'s in, which qq[] treats as escape sequences.
# Config stuff
our $ <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	11986	12118	
==>'_semicolon_opt' => 23
		}
	},
	{#State 8
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NO <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1060	1184	
==>$left,
    OP    => $op,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => $dest->file,
    LINE  => $dest->line
  }, $class <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1051	1175	
==>$left,
    OP    => $op,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => $dest->file,
    LINE  => $dest->line
  }, $class <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	940	1064	
==>$left,
    OP    => $op,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => $dest->file,
    LINE  => $dest->line
  }, $class <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500529	500818	
==>JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501267	501556	
==>JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502006	502295	
==>JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502744	503033	
==>JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072477	1072582	
==>(INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074662	1074767	
==>(INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076847	1076952	
==>(INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079033	1079138	
==>(INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8509	8612	
==>a register then it is up to the SRM to do the store.
	# Otherwise, there's nothing to do here.
	if ($des <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6329	6432	
==>a register then it is up to the SRM to do the store.
	# Otherwise, there's nothing to do here.
	if ($des <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5244	5347	
==>a register then it is up to the SRM to do the store.
	# Otherwise, there's nothing to do here.
	if ($des <==
4	/Users/nnunley/parrot/lib/Test/More.pm	12558	12653	
==>bj->isa('Some::Module') );

to safeguard against your test script blowing up.

It works on refer <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15460	15566	
==>=join(' ', map { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair unary -, functions, etc...
		@stream=con <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15822	15928	
==>=join(' ', map { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair unary -, functions, etc...
		@stream=con <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16349	16455	
==>=join(' ', map { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair unary -, functions, etc...
		@stream=con <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16973	17079	
==>=join(' ', map { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair unary -, functions, etc...
		@stream=con <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072302	1072431	
==>m1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  {{\@2}} = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074487	1074616	
==>m1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  {{\@2}} = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076672	1076801	
==>m1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  {{\@2}} = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078858	1078987	
==>m1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  {{\@2}} = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773414	773501	
==>.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774324	774411	
==>.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775234	775321	
==>.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776145	776232	
==>.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920403	920646	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sprintf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921295	921538	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sprintf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	922188	922431	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sprintf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	11872	11986	
==>y line" at the very
       #  end of "foo\nbar\n" (i.e., between the \n and the EOS).
    }
  }
  $self->parse_line <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634534	634634	
==>ODY" => "#line 107 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter-> <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635652	635752	
==>ODY" => "#line 107 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter-> <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636770	636870	
==>ODY" => "#line 107 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter-> <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637889	637989	
==>ODY" => "#line 107 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter-> <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	13211	13323	
==>lar(<$source>);  # readline
      last unless defined $lines[-1];
       # but pass thru the undef, which will se <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20746	20847	
==>TYPE;
	# Type definition for $typename
	new P0, .PerlArray
TYPE
		foreach(@types) {
			print CODE<<ADD <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2384	2483	
==>sub end_Para        { $_[0]->emit_par( 0) }
sub end_item_bullet { $_[0]->emit_par( 0) }
sub end_item <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1952	2051	
==>sub end_Para        { $_[0]->emit_par( 0) }
sub end_item_bullet { $_[0]->emit_par( 0) }
sub end_item <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028115	1028212	
==>next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_event(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028966	1029063	
==>next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_event(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029818	1029915	
==>next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_event(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030660	1030757	
==>next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_event(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953124	953391	
==>"function",
                  "CODE" => 1072,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 540 \"src/ops/string <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858564	858678	
==>3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_rep <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859568	859682	
==>3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_rep <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860572	860686	
==>3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_rep <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861577	861691	
==>3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_rep <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	8746	8858	
==>se    stderr" if $err;

    open  STDOUT, ">&OLDOUT" or die "Can't restore  stdout" if $out;
    open  STDERR, "> <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8266	8376	
==>se    stderr" if $err;

    open STDOUT, ">&OLDOUT" or die "Can't restore  stdout" if $out;
    open STDERR, "> <==
4	/Users/nnunley/parrot/config/gen/icu.pm	560	664	
==>uheaders icu-config without-icu);

sub runstep
{
    my ($self, $conf) = @_;

    my ($verbose, $icushare <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	274	369	
==>MCs;

=head1 DESCRIPTION

A documentation section describing all the dynamic PMCs.

=head2 Class <==
4	/Users/nnunley/parrot/tools/dev/parrotbench.pl	6524	6649	
==>name ( sort keys %bench ) {
    my $base = 0;
    printf("\n%-$max[0]s  ", $name);
    for ( 0 .. $#section ) {
        my ($p <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19383	19505	
==>nding in an
					  explicit action has the specified
		       			  \"auto-action\" automatically
					  appended.");
	}
	el <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30766	30864	
==>oad = $srm->post_load($need_dest);
		$pir .= "### post_load\n";
		$pir .= sub_meta($post_load, $mv, <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3760	3854	
==>e}, $num );
}

=item C<restart_address($address)>

Returns the C code for C<restart ADDRESS($ad <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4596	4697	
==>nd post branch operation hooks.
sub pre_branch($) {
	my $self = shift;
	my $pops = shift;
	my $registe <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3012	3113	
==>nd post branch operation hooks.
sub pre_branch($) {
	my $self = shift;
	my $pops = shift;
	my $registe <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2659	2760	
==>nd post branch operation hooks.
sub pre_branch($) {
	my $self = shift;
	my $pops = shift;
	my $registe <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	8080	8177	
==>ype[NEXT] =~ /STMT|COMM|COMP/) {  # No arg version
		@e=EXPRESSION();
	}
	push @{$code{$seg}->{cod <==
4	/Users/nnunley/parrot/editor/kate_syntax.pl	3079	3175	
==>ps" />
          <keyword attribute="Special Directive" context="#stay" String="special_directive <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1016908	1017202	
==>"ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1136,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 108 \"s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522249	522399	
==>" => "#line 744 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523104	523254	
==>" => "#line 744 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523959	524109	
==>" => "#line 744 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888054	888222	
==>",
                              "s"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889188	889356	
==>",
                              "s"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890322	890490	
==>",
                              "s"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891457	891625	
==>",
                              "s"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpreter <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	487	618	
==>ym;
        unshift(@type, $type);
        unshift(@syms,  $sym);
        $#type=3;
        $#syms=3;
}
sub barf {
	unshift(@tokdsc, <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28105	28204	
==>e::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = ($lastsep||"").$text;
			}' <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30179	30278	
==>e::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = ($lastsep||"").$text;
			}' <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32380	32479	
==>e::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = ($lastsep||"").$text;
			}' <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12164	12261	
==>1 SEE ALSO

L<Pod::Simple>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  A <==
4	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3082	3179	
==>1 SEE ALSO

L<Pod::Simple>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  A <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	672	766	
==>le::PullParser>, you might
get an object of this class.

This is a subclass of L<Pod::Simple::P <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	578	672	
==>le::PullParser>, you might
get an object of this class.

This is a subclass of L<Pod::Simple::P <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31930	32058	
==>s = $method->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $ar <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33507	33635	
==>s = $method->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $ar <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38524	38652	
==>s = $method->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $ar <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40564	40692	
==>s = $method->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $ar <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	16988	17100	
==>a
			sequence of at least one item. For example:
		        <return: list>");
		return;
	}
	push @{$self->{items}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3314	3419	
==>self, $offset) = @_;
    return "return cur_opcode + $offset";
}

sub goto_address
{
    my ($self, $addr) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94920	95009	
==>BODY" => "#line 63 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95813	95902	
==>BODY" => "#line 63 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96706	96795	
==>BODY" => "#line 63 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2} <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2096	2196	
==>omplain
  # about the redefinition. Otherwise, we assume the programmer wanted to shadow the
  # prev <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1616	1716	
==>omplain
  # about the redefinition. Otherwise, we assume the programmer wanted to shadow the
  # prev <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1843	1943	
==>omplain
  # about the redefinition. Otherwise, we assume the programmer wanted to shadow the
  # prev <==
4	/Users/nnunley/parrot/lib/File/Which.pm	4667	4762	
==>as the different extensions.

=head2 Windows 9x and other ancient Win/DOS/OS2

This set of opera <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18105	18208	
==>10, t*2, >100
	print "Wrong 1!"
case 49 to 49, t*2, g
	print "Wrong 2!"
case t
	print "Ok!"
end select
s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2562	2664	
==>$self->op;
  my $right = $self->right;

  if (defined $cond) {
    $handler->start_element({ Name => 'c <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3236	3338	
==>$self->op;
  my $right = $self->right;

  if (defined $cond) {
    $handler->start_element({ Name => 'c <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3326	3428	
==>$self->op;
  my $right = $self->right;

  if (defined $cond) {
    $handler->start_element({ Name => 'c <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20245	20341	
==>C<parse_file> etc, but you don't I<have> to.

And if you're not writing a formatter class, but ar <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	72377	72472	
==>ce};
use strict;
use vars qw(\$skip \$AUTOLOAD $self->{localvars} );
\$skip = '$skip';
$self->{s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789757	789844	
==>ne 427 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_string_keyed_int(interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790667	790754	
==>ne 427 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_string_keyed_int(interpre <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	40808	40913	
==>3 and print "L-section content: ", pretty($ell->[1]{'section'}), "\n";
      }

      if( @ell_content ) { <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	3943	4033	
==>ption)>

Compile the Parrot Intermediate Representation and generate Parrot Assembler Code. <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	4126	4216	
==>ption)>

Compile the Parrot Intermediate Representation and generate Parrot Assembler Code. <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	4316	4406	
==>ption)>

Compile the Parrot Intermediate Representation and generate Parrot Assembler Code. <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655856	656177	
==>" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656779	657100	
==>" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657703	658024	
==>" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658621	658942	
==>" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
4	/Users/nnunley/parrot/config/inter/types.pm	733	838	
==>code   = $conf->options->get('opcode')   || 'long';

    if ($conf->options->get('ask')) {
        $intval <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159370	159469	
==>=> "#line 176 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160267	160366	
==>=> "#line 176 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161164	161263	
==>=> "#line 176 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961024	961144	
==>0);\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961986	962106	
==>0);\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962948	963068	
==>0);\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963911	964031	
==>0);\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33887	34007	
==>d post_store\n";

        # Now pop type off the stack types array.
		$pir .= "    type_trans = pop stypes\n";
	}

	# Bra <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	759	852	
==>imple::PullParserToken> and inherits all its methods,
and adds these methods:

=over

=item $t <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1185	1278	
==>imple::PullParserToken> and inherits all its methods,
and adds these methods:

=over

=item $t <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	665	758	
==>imple::PullParserToken> and inherits all its methods,
and adds these methods:

=over

=item $t <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4228	4327	
==>t1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		return(<<CODE, <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4492	4591	
==>t1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		return(<<CODE, <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5128	5227	
==>t1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		return(<<CODE, <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5504	5603	
==>t1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		return(<<CODE, <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2830	2938	
==>ck in module-level code"
   END
Sub1:
   PRINT "2 in subroutine one"
   GOSUB Sub2
   PRINT "ERR this line in <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16797	16905	
==>ck in module-level code"
   END
Sub1:
   PRINT "2 in subroutine one"
   GOSUB Sub2
   PRINT "ERR this line in <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	511	607	
==>nfess "Block is not defined!" unless defined $block;
  confess "Left is not defined!" unless defi <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	523	619	
==>nfess "Block is not defined!" unless defined $block;
  confess "Left is not defined!" unless defi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050214	1050319	
==>1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(interpreter, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051248	1051353	
==>1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(interpreter, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052282	1052387	
==>1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(interpreter, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053317	1053422	
==>1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(interpreter, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858537	858631	
==>ps/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat wit <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859541	859635	
==>ps/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat wit <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860545	860639	
==>ps/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat wit <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861550	861644	
==>ps/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat wit <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292189	292577	
==>",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 340,
                  "ARGS" => [
                              "i",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 940 \ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1807	1916	
==>"";
}

# Extra subroutines required for the mapper.
sub subs() {
	# No extra subs.
	return "";
}

# Label gene <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	847	956	
==>"";
}

# Extra subroutines required for the mapper.
sub subs() {
	# No extra subs.
	return "";
}

# Label gene <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	604	713	
==>"";
}

# Extra subroutines required for the mapper.
sub subs() {
	# No extra subs.
	return "";
}

# Label gene <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	2872	3001	
==>{ $options{arguments} };
    }
    else
    {
        # I must be running out of languages/$language
        # You may want a deep <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1447	1535	
==>EMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = "$register_n <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1974	2062	
==>EMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = "$register_n <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3157	3245	
==>EMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = "$register_n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855025	855291	
==>nterpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855914	856180	
==>nterpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856803	857069	
==>nterpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857693	857959	
==>nterpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	30201	30331	
==>c, $cmt) = @_;
    my $x = pop @stack;
    my $v = pop @stack;
    my $w = pop @stack;
    my $key = $x->[1];
    if ($v->[0] eq 'h <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2618	2741	
==>ibs =~ s/\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else {
        $liblist = join( ' ', map { "-l$_" } ke <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2927	3050	
==>ibs =~ s/\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else {
        $liblist = join( ' ', map { "-l$_" } ke <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2722	2845	
==>ibs =~ s/\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else {
        $liblist = join( ' ', map { "-l$_" } ke <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7573	7681	
==>post store operation hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# I <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5691	5799	
==>post store operation hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# I <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4533	4641	
==>post store operation hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# I <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	16969	17067	
==>ut( interpreter, known_frames, const_cast("$key"), $value );|;
}


sub print_tail {
    my ($put_po <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712682	712774	
==>r, s,\n\tconst_string(interpreter, \"e\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\");\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713789	713881	
==>r, s,\n\tconst_string(interpreter, \"e\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\");\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720149	720241	
==>r, s,\n\tconst_string(interpreter, \"e\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\");\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721349	721441	
==>r, s,\n\tconst_string(interpreter, \"e\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\");\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909357	909617	
==>_str_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910254	910514	
==>_str_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911151	911411	
==>_str_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912049	912309	
==>_str_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654809	655161	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "AR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656527	656879	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "AR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657451	657803	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "AR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658369	658721	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "AR <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30653	30796	
==>" => 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40003	40146	
==>" => 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41630	41773	
==>" => 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	14803	14918	
==>/) {   # Relop
			feedme();
			$op=$syms[CURR];
			@a=EXPRESSION();
			feedme();
			print CODE<<OP;
	push P14, "$op" <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3365	3470	
==>, $val1, $val2, $dest);
}

sub output_gt {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_tes <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3060	3165	
==>, $val1, $val2, $dest);
}

sub output_gt {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_tes <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14112	14207	
==>,1]);
    $self->_add_inst ('', 'branch', ["DONE_$label"]);
    $self->_add_inst ("FAIL_$label", <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16382	16473	
==>,1]);
  $self->_add_inst ('', 'branch', ["DONE_$label"]);
  $self->_add_inst ("FAIL_$label", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796558	796996	
==>,
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 899,
                  "ARGS" => [
                              "p",
                              "k",
                              "n"
                            ],
                  "BO <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11766	11938	
==>my $assign = new KeyedSetOp( $parser,
                        'arg1'   => $last_key->[0],
                        'arg2'   => undef,
                        'result' => $ <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9966	10126	
==>my $assign = new KeyedSetOp( $parser,
                    'arg1'   => $last_key->[0],
                    'arg2'   => undef,
                    'result' => $ <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8821	8957	
==>my $assign = new KeyedSetOp( $parser,
            'arg1'   => $last_key->[0],
            'arg2'   => undef,
            'result' => $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571216	571543	
==>);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568479	568804	
==>);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569371	569696	
==>);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570264	570589	
==>);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099228	1099348	
==>e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100426	1100546	
==>e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101624	1101744	
==>e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102823	1102943	
==>e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606950	607279	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "getattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607853	608182	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "getattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608757	609086	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "getattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609664	609993	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "getattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	6211	6313	
==>ndex($Test::force_todo_test_junction, ' '~$Test::num_of_tests_run~' ') >= 0;

    if $todo {
        if <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344377	344480	
==>eter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* string_cstring_free(path); */\n  if(! <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345619	345722	
==>eter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* string_cstring_free(path); */\n  if(! <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346861	346964	
==>eter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* string_cstring_free(path); */\n  if(! <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348104	348207	
==>eter, NULL, path, mode);\n  /* string_cstring_free(mode); */\n  /* string_cstring_free(path); */\n  if(! <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	99143	99425	
==>ot",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 123,
                  "ARG <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	8702	8800	
==>b get_title_short {  shift->get_short_title(@_)  } # alias

sub get_short_title {
  my $title = shi <==
4	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	3416	3508	
==>efine WHITESPACE  enum_cclass_whitespace
#define WORDCHAR    enum_cclass_word
#define PUNCTUA <==
4	/Users/nnunley/parrot/languages/scheme/Scheme.pm	7	93	
==>/parrot/languages/scheme/Scheme.pm 13993 2005-11-29T22:06:21.880912Z bernhard  $

packa <==
4	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	2843	2944	
==>+ S>, where C<S> is the size of an op.

=item C<goto ADDRESS(X)>

Transforms to C<PC' = X>. This is us <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924461	924737	
==>e, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ne <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033561	1033837	
==>e, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034659	1034935	
==>e, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925252	925526	
==>e, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8523	8629	
==>close_paren) {
        while (1) {
          my $arg_type  = Jako::Construct::Type->new($self->require_type <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	14779	14884	
==>age> has two elements, each of which is of
type C<timeval>.

    use Class::Struct;

    struct( rusage => <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	798	894	
==>l its methods,
and adds these methods:

=over

=item $token->tagname

This returns the tagname fo <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1224	1320	
==>l its methods,
and adds these methods:

=over

=item $token->tagname

This returns the tagname fo <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	42695	42830	
==>" => 86
		}
	},
	{#State 186
		DEFAULT => -4,
		GOTOS => {
			'block' => 197,
			'chunk' => 57
		}
	},
	{#State 187
		ACTIONS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561159	561292	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "fetchmethod" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562242	562375	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "fetchmethod" <==
4	/Users/nnunley/parrot/lib/Test/More.pm	24170	24271	
==>n't done yet>, use TODO.  This
is for any code you haven't written yet, or bugs you have yet to fix,
b <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	31938	32039	
==>\$\{STOREREG\}/) {
			die "pir must use one of \${STACK0} or \${STOREREG} in rule " .
				"$rule->{'na <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27625	27715	
==>' . ($self->{"lookahead"}<0?'if':'unless')
		. ' ($text =~ s/\A($skip)/$lastsep=$1 and ""/e <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29735	29825	
==>' . ($self->{"lookahead"}<0?'if':'unless')
		. ' ($text =~ s/\A($skip)/$lastsep=$1 and ""/e <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31832	31922	
==>' . ($self->{"lookahead"}<0?'if':'unless')
		. ' ($text =~ s/\A($skip)/$lastsep=$1 and ""/e <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140389	140748	
==>base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 172,
                  "ARGS" => [
                              "n",
                              "n <==
4	/Users/nnunley/parrot/examples/benchmarks/oo5.pl	175	295	
==>ef shift : shift;
    return bless [ 10, 20 ], $self;
}

sub i {
    my $self = shift;
    if (@_) { $self->[0] = shift } <==
4	/Users/nnunley/parrot/examples/benchmarks/oo6.pl	167	287	
==>ef shift : shift;
    return bless [ 10, 20 ], $self;
}

sub i {
    my $self = shift;
    if (@_) { $self->[0] = shift } <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	22969	23087	
==>$was<" and tailing ">" as
        # children of this node, but something about that seems icky.
      }
      if(ref $i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544632	544916	
==>ed_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545968	546252	
==>ed_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547304	547588	
==>ed_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	25477	25588	
==>gged
			extract_multiple

			gen_delimited_pat
			gen_extract_tagged
		       );

 # Extract the initial substri <==
4	/Users/nnunley/parrot/tools/dev/parrotbench.pl	2783	2890	
==>$cfg{config_file},
    'directory=s'  => \$cfg{bench_path},
    'list'         => \$cfg{list_only},
    'tim <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	559	650	
==>1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head1 DESCRIPTION

When you do $parser->get_t <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	978	1069	
==>1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head1 DESCRIPTION

When you do $parser->get_t <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	465	556	
==>1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head1 DESCRIPTION

When you do $parser->get_t <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5516	5609	
==>dd_inst ('', 'set', [$pair.'[1]',$return]);
      $self->_add_inst ('', 'set', [$return,$pair] <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17064	17153	
==>dd_inst ('', 'set',[$pair.'[1]',$return]);
    $self->_add_inst ('', 'set',[$return,$pair] <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6551	6638	
==>dd_inst('', 'set', [$pair.'[1]',$return]);
  $self->_add_inst('', 'set', [$return,$pair] <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62712	62838	
==>ror,$line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr($grammar,$pos,0,
						       "< <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63423	63549	
==>ror,$line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr($grammar,$pos,0,
						       "< <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64153	64279	
==>ror,$line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr($grammar,$pos,0,
						       "< <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	72066	72179	
==>mar so it's not left-recursive.
			       That will probably mean you need to re-implement
			       repetitions u <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5668	5762	
==>{eqnum}_a
	inc $result
EQ_${eqnum}_a:
	eq $a2, $ot2, EQ_$eqnum
	dec $result
EQ_$eqnum: eq $resu <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8531	8635	
==>up to the SRM to do the store.
	# Otherwise, there's nothing to do here.
	if ($dest_reg) {
		$pir .= <<'P <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6351	6455	
==>up to the SRM to do the store.
	# Otherwise, there's nothing to do here.
	if ($dest_reg) {
		$pir .= <<'P <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5266	5370	
==>up to the SRM to do the store.
	# Otherwise, there's nothing to do here.
	if ($dest_reg) {
		$pir .= <<'P <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	273	369	
==>nd manipulate directories and their contents.

=head2 Class Methods

=over 4

=cut

package Parro <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4777	4876	
==>nt->scope eq 'global')) {
    my $pmc_type = $dest_ident->type->imcc_pmc;
    my $pmc_reg = $compile <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2840	2939	
==>nt->scope eq 'global')) {
    my $pmc_type = $dest_ident->type->imcc_pmc;
    my $pmc_reg = $compile <==
4	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	354	447	
==>warnings;

=item C<parrot_version()>

Determine the current version number for Parrot from the <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	611	704	
==>$Parse::RecDescent::unexpected
	    || $Parse::RecDescent::unexpected =~ /\A\s*\Z/s)
	{
		retu <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	6703	6803	
==>* Any changes made here will be lost!
 *
 */

#include<parrot/parrot.h>
#if HAVE_COMPUTED_GOTO
#  inc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610335	610643	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seta <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611237	611545	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seta <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612140	612448	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seta <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613046	613354	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seta <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293481	293768	
==>{{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294357	294644	
==>{{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295233	295520	
==>{{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	20504	20606	
==>[2] eq 'JUMP_IF_FALSE') {
	$code_l++;
	print "\t\t\t# UNARY_NOT\n\t\t\t# JUMP_IF_FALSE\n";
        ($op <==
4	/Users/nnunley/parrot/tools/dev/run_indent.pl	2362	2465	
==>e trick.  Weed out the ones we know aren't used in this file.
    open(F, "<$file") || die "Can't read $ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20891	20986	
==>b code($$$$)
{
	my ($self, $namespace, $rule) = @_;
	
''.($::RD_NO_TRACE?'':'
		Parse::RecDescen <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23667	23762	
==>b code($$$$)
{
	my ($self, $namespace, $rule) = @_;
	
''.($::RD_NO_TRACE?'':'
		Parse::RecDescen <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33696	33791	
==>b code($$$$)
{
	my ($self, $namespace, $rule) = @_;
	
''.($::RD_NO_TRACE?'':'
		Parse::RecDescen <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050241	1050348	
==>s.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(interpreter, {{\@2}}, {{\@3}}, next);\n    {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051275	1051382	
==>s.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(interpreter, {{\@2}}, {{\@3}}, next);\n    {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052309	1052416	
==>s.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(interpreter, {{\@2}}, {{\@3}}, next);\n    {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053344	1053451	
==>s.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(interpreter, {{\@2}}, {{\@3}}, next);\n    {{ <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	11264	11366	
==>|\\&)+)/gc)
	    {
		_failmsg "Did not find leading dereferencer", pos $$textref;
		pos $$textref = $st <==
4	/Users/nnunley/parrot/lib/File/Which.pm	4147	4242	
==>ile::Which> takes extra steps to assure that you
will find the correct file (so for example, you <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3994	4085	
==>nction
function arrfunc(x())
	u=aftwo(x())
	arrfunc=55
end function
dim g(10)
g(5)=666
g(4)= <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15267	15358	
==>nction
function arrfunc(x())
	u=aftwo(x())
	arrfunc=55
end function
dim g(10)
g(5)=666
g(4)= <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2656	2795	
==>ft;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = $op->{arg1}->{sy <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2460	2586	
==>ft;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  $op->{result}->{symbol} = $op->{arg1}->{sy <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	4906	5032	
==>ft;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  $op->{result}->{symbol} = $op->{arg1}->{sy <==
4	/Users/nnunley/parrot/lib/Test/More.pm	2616	2709	
==>cs,
facilities to skip tests, test future features and compare complicated
data structures.  W <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2094	2189	
==>pth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = c <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3346	3441	
==>pth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = c <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5975	6070	
==>pth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = c <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6533	6628	
==>pth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072606	1072711	
==>ause we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074791	1074896	
==>ause we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076976	1077081	
==>ause we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079162	1079267	
==>ause we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	15523	15656	
==>verything autogenerated, so these
            # methods aren't seen and not inherited properly
            #
            # the correct <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10029	10118	
==>ements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC}:
if ${ITEMP0} == 0 <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7543	7632	
==>ements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC}:
if ${ITEMP0} == 0 <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6507	6596	
==>ements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC}:
if ${ITEMP0} == 0 <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31949	32086	
==>eters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) i <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33526	33663	
==>eters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) i <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38543	38680	
==>eters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) i <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40583	40720	
==>eters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) i <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	36116	36238	
==>ests successful
    255                 test died
    any other number    how many failed (including missing or extras)

If <==
4	/Users/nnunley/parrot/lib/Test/More.pm	34187	34309	
==>ests successful
    255                 test died
    any other number    how many failed (including missing or extras)

If <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	2982	3104	
==>ests successful
    255                 test died
    any other number    how many failed (including missing or extras)

If <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	1720	1813	
==>lo"
a=foo(99, fool$())

' String Arrays, expect "One"
dim g$()
g$(5)="One"
g$(6)="Two"
print g <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621601	621712	
==>_pred, \n\t\t    _reg_base, (void**)cur_opcode);\n\t}\n        else\n            n = 2;\n\tccont = ctx->current_ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9763	9851	
==>IC}" != "73" goto pre_call_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEMP2}
pre_call_NOT_CTO <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7277	7365	
==>IC}" != "73" goto pre_call_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEMP2}
pre_call_NOT_CTO <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6241	6329	
==>IC}" != "73" goto pre_call_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEMP2}
pre_call_NOT_CTO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835820	836008	
==>}}), STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836573	836761	
==>}}), STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	21086	21186	
==>:.:.:.:.:.:.:.:.

sub _remap_sequences {
  my($self,@stack) = @_;
  
  if(@stack == 1 and @{ $stack[0 <==
4	/Users/nnunley/parrot/editor/kate_syntax.pl	5889	5987	
==>olor="#C00000" bold="0" italic="0" />
      <itemData name="SpChar" defStyleNum="dsChar" />
    </i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104292	104567	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544606	544863	
==>r1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545942	546199	
==>r1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547278	547535	
==>r1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3355	3459	
==>$=foo$
print t$
t=0
do
	print "This is right"
	exit do
	print "This is wrong"
	t=t+1
loop until t>1

' Ma <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9896	9991	
==>s($$states[$$stack[-1][0]]{ACTIONS})
			        or  not exists($$states[$$stack[-1][0]]{ACTIONS <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	42028	42123	
==>processed). It returns
a reference to a subroutine which in turn takes a single argument (the te <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9450	9544	
==>s($$states[$$stack[-1][0]]{ACTIONS})
			        or  not exists($$states[$$stack[-1][0]]{ACTIONS <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3174	3275	
==>h]

# Do we have anything on the lazy moves stack?
${ITEMP0} = elements lazy_moves
if ${ITEMP0} > 0 go <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4932	5033	
==>h]

# Do we have anything on the lazy moves stack?
${ITEMP0} = elements lazy_moves
if ${ITEMP0} > 0 go <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7859	7960	
==>h]

# Do we have anything on the lazy moves stack?
${ITEMP0} = elements lazy_moves
if ${ITEMP0} > 0 go <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8715	8816	
==>h]

# Do we have anything on the lazy moves stack?
${ITEMP0} = elements lazy_moves
if ${ITEMP0} > 0 go <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1676	1778	
==>>options->get('ask')) {
        $prog = prompt($prompt, $prog ? $prog : $conf->data->get($util));
    } <==
4	/Users/nnunley/parrot/config/inter/make.pm	1550	1652	
==>>options->get('ask')) {
        $prog = prompt($prompt, $prog ? $prog : $conf->data->get($util));
    } <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1690	1792	
==>>options->get('ask')) {
        $prog = prompt($prompt, $prog ? $prog : $conf->data->get($util));
    } <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	15433	15529	
==>ned in order to provide
additional checking of values, etc.  Here, we want the C<count>
element a <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct.pm	22	118	
==>bstract base class for parsed constructs (blocks, etc.).
#
# Copyright (C) 2002-2005, The Perl Fo <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067033	1067147	
==>n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/tem <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068219	1068333	
==>n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/tem <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069405	1069519	
==>n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/tem <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070592	1070706	
==>n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/tem <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	261	383	
==>5.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block::Conditional;

use Carp;
use Jako::Co <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	259	356	
==>5.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block::Conditional <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	255	352	
==>5.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block::Conditional <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	263	360	
==>5.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block::Conditional <==
4	/Users/nnunley/parrot/examples/benchmarks/shared_ref.pl	187	283	
==>red_ref.pl - Shared reference between threads

=head1 SYNOPSIS

    % time perl examples/benchmar <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	1970	2077	
==>f the user just hit C<ENTER>.

=cut

sub prompt
{
    my ($message, $value) = @_;

    print("$message [$val <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2100	2205	
==>}
  else {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako::Constr <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2058	2163	
==>}
  else {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako::Constr <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1980	2085	
==>}
  else {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako::Constr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451118	451428	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451856	452166	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452595	452905	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453333	453643	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inl <==
4	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	232	324	
==>able;

=head1 DESCRIPTION

C<Parrot::Vtable> provides a collection of functions for manipulat <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	690	780	
==>Jako::Construct::Expression::Value::Identifier');
  confess("Left (" . ref($left) . ") is n <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	681	771	
==>Jako::Construct::Expression::Value::Identifier');
  confess("Left (" . ref($left) . ") is n <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	570	660	
==>Jako::Construct::Expression::Value::Identifier');
  confess("Left (" . ref($left) . ") is n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	446468	446726	
==>{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447105	447363	
==>{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449413	449671	
==>{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => " <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	394	501	
==>rx_input} ||= '$rx_input';
    $self->SUPER::init_context($ctx);
}

sub value {
    my $name = shift;
    re <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909395	909729	
==>}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910292	910626	
==>}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911189	911523	
==>}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912087	912421	
==>}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "F <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16028	16142	
==>).
  
  my $x; # scratch
  if(!defined wantarray) { # void context: alter in-place!
    for(@_) {
      s/([F\x00-\ <==
4	/Users/nnunley/parrot/config/auto/format.pm	324	416	
==>on @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step;

$descr <==
4	/Users/nnunley/parrot/config/init/hints.pm	364	456	
==>on @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step;

$descr <==
4	/Users/nnunley/parrot/config/init/miniparrot.pm	609	701	
==>on @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step;

$descr <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5482	5662	
==>ists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                    print {$FH} " :slurpy";
                }
                $first = 0;
            }
            print {$FH <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6514	6694	
==>ists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                    print {$FH} " :slurpy";
                }
                $first = 0;
            }
            print {$FH <==
4	/Users/nnunley/parrot/tools/build/c2str.pl	1489	1594	
==>T THIS FILE   !!!!!!!
 *
 * This file is generated automatically from '$infile'
 * by $0.
 *
 * Any change <==
4	/Users/nnunley/parrot/tools/build/c2str.pl	3778	3883	
==>T THIS FILE   !!!!!!!
 *
 * This file is generated automatically from '$infile'
 * by $0.
 *
 * Any change <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	67819	68011	
==>{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sweepoff",
                  "FLAGS <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11924	12017	
==>STEMP0} = concat ${STEMP1}
goto PRE_CALL_${CURIC}_LAZY_MOVE_RET_CONT

# Can do a lazy move.
PR <==
4	/Users/nnunley/parrot/tools/dev/parrotbench.pl	834	926	
==>head1 DESCRIPTION

Benchmark Parrot against other interpreters.

=head1 CONFIGURATION

You mu <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1174	1265	
==>-prototypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wcast-align -Wwrite-s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018052	1018143	
==>sctime_r(&tm, resultbuffer);\n  {{\@1}} = string_from_cstring(interpreter, resultbuffer, 26) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018977	1019068	
==>sctime_r(&tm, resultbuffer);\n  {{\@1}} = string_from_cstring(interpreter, resultbuffer, 26) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019907	1019998	
==>sctime_r(&tm, resultbuffer);\n  {{\@1}} = string_from_cstring(interpreter, resultbuffer, 26) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020838	1020929	
==>sctime_r(&tm, resultbuffer);\n  {{\@1}} = string_from_cstring(interpreter, resultbuffer, 26) <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	12480	12583	
==>) eq 'GLOB') {
    $self->{'source_filename'} = '' . ($source);
  } elsif(ref $source) {
    $self->{'so <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	822	905	
==>t!"  unless UNIVERSAL::isa($ident, qw(Jako::Construct::Expression::Value::Identifier <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	786	869	
==>t!"  unless UNIVERSAL::isa($ident, qw(Jako::Construct::Expression::Value::Identifier <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	798	880	
==>t!" unless UNIVERSAL::isa($ident, qw(Jako::Construct::Expression::Value::Identifier <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492225	492501	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492985	493261	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498958	499234	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499720	499996	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87443	87585	
==>1}} = Parrot_make_cb(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88445	88587	
==>1}} = Parrot_make_cb(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	8462	8586	
==>ting, making not a binary op
				[ "not", "PUN"] );
			next;
		}

		if ($unary) {
			push(@expr, [ "-1.0", "INT" ],
				    [ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12871	12978	
==>uction consisting of a single
					  conditional <error?> directive would 
					  normally succeed (with the <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357654	357965	
==>e_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 418,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#lin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959337	959559	
==>ding(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960139	960361	
==>ding(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2048	2143	
==>em C<write_all_files()>

Writes C and header files for all the PMCs in the library,
I<or> E<lt>l <==
4	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	5725	5860	
==>s+)?op\s+|)
        {
            if (m/^\s*VERSION\s*=\s*"(\d+\.\d+\.\d+)"\s*;\s*$/)
            {
                if (exists $self->{V <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	5246	5343	
==>plementations

=item 4.

The final close C<}>

=back

=head2 Method Body Substitutions

The vtable <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719974	720063	
==>(double){{\@2}});\n  PIO_putps(interpreter, io, s);\n  if (string_str_index(interpreter, s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721174	721263	
==>(double){{\@2}});\n  PIO_putps(interpreter, io, s);\n  if (string_str_index(interpreter, s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	106570	106888	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107423	107741	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108277	108595	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	246	340	
==>ass for the Parrot op to C
transforms. Each transform contains various bits of information need <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	37055	37153	
==>gt>.

This program is free software; you can redistribute it and/or 
modify it under the same terms <==
4	/Users/nnunley/parrot/lib/Test/More.pm	37464	37562	
==>gt>.

This program is free software; you can redistribute it and/or 
modify it under the same terms <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	6424	6522	
==>gt>.

This program is free software; you can redistribute it and/or 
modify it under the same terms <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	495	589	
==>t

package Parrot::Docs::HTMLPage;

use strict;
use warnings;

=item C<header($title, $navigati <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939725	939978	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940616	940869	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941508	941761	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942400	942653	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084055	1084422	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085107	1085474	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086160	1086527	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087213	1087580	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3762	3875	
==>dler->start_element({ Name => 'literal', Attributes => { type => $type->name } });
          $handler->characters( <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4271	4382	
==>dler->start_element({ Name => 'literal', Attributes => { type => $type->name } });
        $handler->characters( <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4621	4730	
==>dler->start_element({ Name => 'literal', Attributes => { type => $type->name } });
      $handler->characters( <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4832	4939	
==>dler->start_element({ Name => 'literal', Attributes => { type => $type->name } });
    $handler->characters( <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	3298	3400	
==>_type = $self->type->imcc_pmc;

    my $reg = $compiler->temp_pmc();

    $compiler->emit("  $reg = new <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108902	109227	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111350	111675	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112242	112567	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	28863	29175	
==>"",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 38,
                  "ARGS" => [
                              "pc"
                            ],
                  "BODY" => "#line 51 <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	13275	13395	
==>$state;
      } else {
        DEBUG and print
         "  Didn't see an immediately subsequent start-Para.  Reseeking H1 <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	2588	2691	
==>'infix-arith');   }
sub is_infix_bit     { return shift->is('infix-bit');     }
sub is_infix_concat  { r <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189737	189827	
==>ps/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) < {{\@2}}) {\n    {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190678	190768	
==>ps/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) < {{\@2}}) {\n    {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4419	4526	
==>" .
        $self->core_prefix .
        "$core(opcode_t *cur_op, Parrot_Interp interpreter)";
}

=item C<op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256360	256455	
==>ine 740 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257268	257363	
==>ine 740 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258176	258271	
==>ine 740 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2691	2790	
==>($offset)>

Returns the C code for C<restart OFFSET($offset)>.

=cut

sub restart_offset
{
    my ($ <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4026	4125	
==>($offset)>

Returns the C code for C<restart OFFSET($offset)>.

=cut

sub restart_offset
{
    my ($ <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3724	3823	
==>($offset)>

Returns the C code for C<restart OFFSET($offset)>.

=cut

sub restart_offset
{
    my ($ <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	4135	4233	
==>") {
		($result, $type, @code)=EXPRESSION();
		$false=qq{""} if $type eq "S";
		push @{$code{$seg}- <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	972	1075	
==>a;

use strict;
use warnings;

use Data::Dumper;

=head2 Methods

=head3 Constructors

=over 4

=item C< <==
4	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	864	964	
==>DEBUG > 3 and print "Stack is now: ",
    join(">", map $_->[0], @{$_[0]{'_currpos'}}), "\n";
  retur <==
4	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1097	1197	
==>DEBUG > 3 and print "Stack is now: ",
    join(">", map $_->[0], @{$_[0]{'_currpos'}}), "\n";
  retur <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13311	13410	
==>autoscore/)
	{
		# Do nothing
	}
	elsif (@items &&
		( ref($items[0]) =~ /\AParse::RecDescent::Uncon <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905354	905496	
==>->vtable->substr_str(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906373	906515	
==>->vtable->substr_str(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907392	907534	
==>->vtable->substr_str(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908412	908554	
==>->vtable->substr_str(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610642	610940	
==>tattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611544	611842	
==>tattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612447	612745	
==>tattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613353	613651	
==>tattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	10062	10184	
==>op2
    inc $N1
    $N1 = sqrt $N1
    $N1 += op2
    $N1 = ln $N1
    .return ($N1)
neg_six:   # arccosh(x) = ln(x+sqrt(x- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600233	600337	
==>n(interpreter, next, NO_CLASS, \n         \"Class '%Ss' doesn't exist\", name);\n  }\n  else\n    {{\@1}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601309	601413	
==>n(interpreter, next, NO_CLASS, \n         \"Class '%Ss' doesn't exist\", name);\n  }\n  else\n    {{\@1}} <==
4	/Users/nnunley/parrot/lib/Parrot/Op.pm	939	1036	
==>manual.

=head2 Op Arguments

Note that argument 0 is considered to be the op itself, with argumen <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296097	296194	
==>\n    {{\@1}} = 1;\n  else\n    {{\@1}} = mmd_dispatch_i_pp(interpreter, {{\@2}}, {{\@3}}, MMD_EQ) <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	1904	1994	
==>line -Wpointer-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wno-unused <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1269	1359	
==>line -Wpointer-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wno-unused <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1273	1363	
==>line -Wpointer-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wno-unused <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73116	73209	
==>ble->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR(p));\n      PObj_get_FLAGS({{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74718	74811	
==>ble->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR(p));\n      PObj_get_FLAGS({{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76320	76413	
==>ble->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR(p));\n      PObj_get_FLAGS({{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77923	78016	
==>ble->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR(p));\n      PObj_get_FLAGS({{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554306	554592	
==>hod_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PAR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555703	555989	
==>hod_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PAR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556940	557226	
==>hod_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PAR <==
4	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	3179	3275	
==>atfile($charset_dir, 'tables.h');
open STDOUT, '>', $h_file
    or die "can not open '$h_file': $ <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2475	2590	
==>ub YYErrok {
	my($self)=shift;

	${$$self{ERRST}}=0;
    undef;
}

sub YYNberr {
	my($self)=shift;

	${$$s <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3070	3180	
==>G(%ld)",
    's'  => "SREG(%ld)",
    'k'  => "PREG(%ld)",
    'ki' => "IREG(%ld)",

    'ic' => "cur_opcode[%l <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1986	2092	
==>G(%ld)",
  's'   => "SREG(%ld)",
  'k'   => "PREG(%ld)",
  'ki'  => "IREG(%ld)",

  'ic'  => "cur_opcode[%l <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2373	2478	
==>ub YYErrok {
	my($self)=shift;

	${$$self{ERRST}}=0;
    undef;
}

sub YYNberr {
	my($self)=shift;

	${$$s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	817	914	
==>ft, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($right) . ") is not Value") u <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	655	752	
==>ft, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($right) . ") is not Value") u <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	808	905	
==>ft, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($right) . ") is not Value") u <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	697	794	
==>ft, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($right) . ") is not Value") u <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950532	950628	
==>t = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951492	951588	
==>t = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952452	952548	
==>t = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953413	953509	
==>t = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8055	8183	
==>y ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8837	8965	
==>y ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7708	7836	
==>y ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8497	8625	
==>y ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072630	1072757	
==>) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074815	1074942	
==>) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077000	1077127	
==>) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079186	1079313	
==>) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	24351	24474	
==>sion {
    my ( $parser, $expr )    = @_;
    my ( $defn,   $opcodes ) = @{$expr};
    if ( scalar( @{$opcodes} ) and $op <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2506	2613	
==>-lm -L/opt/local/lib  -licuuc -licudata -lpthread -lm';
        $extraLibs =~ s/blib/..\\blib/g;
        $ex <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2815	2922	
==>-lm -L/opt/local/lib  -licuuc -licudata -lpthread -lm';
        $extraLibs =~ s/blib/..\\blib/g;
        $ex <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2610	2717	
==>-lm -L/opt/local/lib  -licuuc -licudata -lpthread -lm';
        $extraLibs =~ s/blib/..\\blib/g;
        $ex <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11781	11995	
==>w KeyedSetOp( $parser,
                        'arg1'   => $last_key->[0],
                        'arg2'   => undef,
                        'result' => $result,
                    );
                    retu <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9981	10175	
==>w KeyedSetOp( $parser,
                    'arg1'   => $last_key->[0],
                    'arg2'   => undef,
                    'result' => $result,
                );
                retu <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8836	8990	
==>w KeyedSetOp( $parser,
            'arg1'   => $last_key->[0],
            'arg2'   => undef,
            'result' => $result,
        );
        retu <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39016	39147	
==>LT => -8
	},
	{#State 158
		ACTIONS => {
			"," => 151
		},
		DEFAULT => -36
	},
	{#State 159
		DEFAULT => -17,
		GOTOS => <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	9188	9285	
==>op) = @_; $op->{args}->[1]->dfa_safe() }

# Rule calls are totally unpredictable -- for now. I thi <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27570	27665	
==>f->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'unless' <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29680	29775	
==>f->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'unless' <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31777	31872	
==>f->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'unless' <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3157	3253	
==>TYPES}[stack_depth]

# Do we have anything on the lazy moves stack?
${ITEMP0} = elements lazy_mov <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4915	5011	
==>TYPES}[stack_depth]

# Do we have anything on the lazy moves stack?
${ITEMP0} = elements lazy_mov <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7842	7938	
==>TYPES}[stack_depth]

# Do we have anything on the lazy moves stack?
${ITEMP0} = elements lazy_mov <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8698	8794	
==>TYPES}[stack_depth]

# Do we have anything on the lazy moves stack?
${ITEMP0} = elements lazy_mov <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1456	1558	
==>VE_COMPUTED_GOTO ];

our $LIBPARROT = qq[];

# Here comes some stuff for Win32.
our $PATHQUOTE = '';
if <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1501	1603	
==>VE_COMPUTED_GOTO ];

our $LIBPARROT = qq[];

# Here comes some stuff for Win32.
our $PATHQUOTE = '';
if <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1505	1607	
==>VE_COMPUTED_GOTO ];

our $LIBPARROT = qq[];

# Here comes some stuff for Win32.
our $PATHQUOTE = '';
if <==
4	/Users/nnunley/parrot/editor/kate_syntax.pl	4255	4351	
==>attribute="Comment" context="#stay" String="[^\=]*" />
          <RegExpr attribute="Comment" con <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9130	9315	
==>efn ) {

            # local variable
            if ( scalar( @{$var} ) ) {
                my $result   = $defn;
                my $last_key = pop @{$var};
                forea <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480768	480883	
==>\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481771	481886	
==>\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482774	482889	
==>\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1592	1794	
==>NE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
print "Elapsed time:  $N2\n"; # print  "Ela <==
4	/Users/nnunley/parrot/examples/mops/mops.pl	1592	1794	
==>NE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
print "Elapsed time:  $N2\n"; # print  "Ela <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	13130	13308	
==>result = $result2;
                    $key    = $key2;
                    push @opcodes, @{ $key->[1] };
                }
                my $assign = new KeyedSetOp( $pars <==
4	/Users/nnunley/parrot/tools/dev/mk_inno.pl	535	633	
==>arrot version.

=item C<icudir>

The directory to locate ICU.

=back

=head1 SEE ALSO

http://www.j <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	40103	40252	
==>->isa('BranchOp') ) {
                if ( $op->{result} eq 'break' ) {
                    $parser->Error("no loop to break\n");
                } <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39034	39171	
==>->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $parser->Error("no loop to break\n");
            } <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10524	10631	
==>, [ $$states[$$stack[-1][0]]{ACTIONS}{error}, undef ]);

    }

    #never reached
	croak("Error in dri <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10052	10154	
==>, [ $$states[$$stack[-1][0]]{ACTIONS}{error}, undef ]);

    }

    #never reached
	croak("Error in dri <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072279	1072420	
==>\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074464	1074605	
==>\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076649	1076790	
==>\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078835	1078976	
==>\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947202	947483	
==>@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948104	948385	
==>@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957651	957932	
==>@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958556	958837	
==>@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
4	/Users/nnunley/parrot/languages/pugs/t/pmc.pm	458	578	
==>");
.sub _main
    loadlib $P1, "pugs_group"
    $I0 = defined $P1 
    if $I0 goto ok
    print "not "
ok:
    print "ok <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8468	8579	
==>ft;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the store.
	# Otherwise, ther <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6288	6399	
==>ft;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the store.
	# Otherwise, ther <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5203	5314	
==>ft;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the store.
	# Otherwise, ther <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121226	121550	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ": <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123922	124246	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ": <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124796	125120	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ": <==
4	/Users/nnunley/parrot/config/inter/progs.pm	2281	2382	
==>conf->data->set(ld => $ld);

    $ccflags = $conf->data->get('ccflags');

    # Remove some perl5-isms <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009192	1009482	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compose",
                  "FLAGS" => "",
                  "ARGD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009956	1010246	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compose",
                  "FLAGS" => "",
                  "ARGD <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	5527	5682	
==>{
      $handler->start_element({
        Name       => 'sub',
        Attributes => {
          name  => $name,
          type  => $type,
          kind  = <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6776	6931	
==>{
      $handler->start_element({
        Name       => 'sub',
        Attributes => {
          name  => $name,
          type  => $type,
          kind  = <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31845	31941	
==>n $self->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my $parameters = $method- <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33422	33518	
==>n $self->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my $parameters = $method- <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40479	40575	
==>n $self->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my $parameters = $method- <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	288	383	
==>n section describing libraries in Parrot.

=head2 Class Methods

=over

=cut

package Parrot::Do <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3994	4098	
==>Do code for each push.
	$pir .= "\${ITEMP0} = 0\n";
	for (1..$pushes) {
		$pir .= <<'PIR';
# Increment st <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2410	2514	
==>Do code for each push.
	$pir .= "\${ITEMP0} = 0\n";
	for (1..$pushes) {
		$pir .= <<'PIR';
# Increment st <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	688	779	
==>!"  unless UNIVERSAL::isa($type, qw(Jako::Construct::Type));
  confess "Identifier (" . ref( <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	678	767	
==>!" unless UNIVERSAL::isa($type, qw(Jako::Construct::Type));
  confess "Identifier (". ref( <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	2165	2304	
==>_c.pl'),
            $self->new_item('', 'tools/build/ops2c.pl'),
            $self->new_item('', 'tools/build/ops2pm.pl'),
            $sel <==
4	/Users/nnunley/parrot/lib/Test/More.pm	31730	31867	
==>s => [$e1, $e2] };
        $ok = _deep_check($e1, $e2);
        pop @Data_Stack if $ok;

        last unless $ok;
    }

    return $ok;
} <==
4	/Users/nnunley/parrot/lib/Test/More.pm	28720	28856	
==>s => [$e1, $e2] };
        $ok = _deep_check($e1,$e2);
        pop @Data_Stack if $ok;

        last unless $ok;
    }

    return $ok;
} <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	210	306	
==>/Type/Number.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

pa <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16437	16538	
==>orth->text;
      my $right = Jako::Construct::Expression::Value->new($block, $self->forth);

      $s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17208	17309	
==>orth->text;
      my $right = Jako::Construct::Expression::Value->new($block, $self->forth);

      $s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18013	18114	
==>orth->text;
      my $right = Jako::Construct::Expression::Value->new($block, $self->forth);

      $s <==
4	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	409	494	
==>ools/build/vtable_h.pl>, F<tools/dev/gen_class.pl>, and
F<src/pmc/null.pl>.

=head2 Fu <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3072	3174	
==>pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4830	4932	
==>pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1994	2096	
==>pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3246	3348	
==>pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084106	1084467	
==>P" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085158	1085519	
==>P" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086211	1086572	
==>P" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087264	1087625	
==>P" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028061	1028156	
==>if ({{\@1}} < 0) {\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back in ti <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028912	1029007	
==>if ({{\@1}} < 0) {\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back in ti <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819548	819636	
==>ry_t * const entry =\n    stack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820508	820596	
==>ry_t * const entry =\n    stack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072195	1072363	
==>= r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074380	1074548	
==>= r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076565	1076733	
==>= r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078751	1078919	
==>= r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926436	926593	
==>= PObj_get_FLAGS({{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1}} = {{\@2}}->bufused;\n                              bre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927906	928063	
==>= PObj_get_FLAGS({{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1}} = {{\@2}}->bufused;\n                              bre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929376	929533	
==>= PObj_get_FLAGS({{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1}} = {{\@2}}->bufused;\n                              bre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930847	931004	
==>= PObj_get_FLAGS({{\@2}});\n                              break;\n    case STRINGINFO_BUFUSED:  {{\@1}} = {{\@2}}->bufused;\n                              bre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634749	634846	
==>}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new_from_string(int <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635867	635964	
==>}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new_from_string(int <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636985	637082	
==>}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new_from_string(int <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638104	638201	
==>}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new_from_string(int <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847545	847836	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ": <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848324	848615	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ": <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849104	849395	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ": <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	12145	12265	
==>e {
	$p = promote($tos);
	print <<EOC;
	global "$c" = $p $cmt
EOC
    }
    $globals{$c} = $p;
}


sub is_opcode {
    my <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131375	131682	
==>= {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132230	132537	
==>= {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133085	133392	
==>= {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	18241	18337	
==>$parser->get_title

This tries to get the title string out of $parser, by getting some tokens,
an <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46252	46440	
==>Parrot_push_action(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15300	15417	
==>768)?ord($1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # return a single scalar
    ($x = ((@_ == 1) ? $ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16481	16598	
==>768)?ord($1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # return a single scalar
    ($x = ((@_ == 1) ? $ <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	674	783	
==>imer
		    ubound ucase$ val varptr varptr$ varseg
		   );
@keywords=qw(	access alias any append as
			base be <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	27711	27803	
==>tract_head->($text);


=head1 DESCRIPTION

The various C<extract_...> subroutines may be used <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244023	244289	
==>pare(interpreter, l, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244955	245221	
==>pare(interpreter, l, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	35785	35880	
==>ed, the missing (or extras)
will be considered failures.  If no tests were ever run Test::Builde <==
4	/Users/nnunley/parrot/lib/Test/More.pm	33856	33951	
==>ed, the missing (or extras)
will be considered failures.  If no tests were ever run Test::Builde <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	817779	817919	
==>RROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "saveall",
                  "FLAGS" => ":base_core",
                  "AR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722360	722457	
==>pace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, io, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723389	723486	
==>pace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, io, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724433	724530	
==>pace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, io, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067135	1067255	
==>VAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068321	1068441	
==>VAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069507	1069627	
==>VAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070694	1070814	
==>VAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353698	353874	
==>{\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354443	354619	
==>{\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355210	355386	
==>{\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ] <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	26764	26861	
==>act the initial substrings of $text that would be extracted by
 # one or more sequential applicati <==
4	/Users/nnunley/parrot/tools/dev/lib_deps.pl	11690	11820	
==>xdigit    ctype.h
labs        stdlib.h
ldexp       math.h
ldexpf      math.h
ldexpl      math.h
ldiv        stdlib.h
lgamma      ma <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	5071	5193	
==>s, $function) = /\s*([^%]+)% of (\d+) calls executed in function (.*)/;
            if ($total_calls) {
                $fu <==
4	/Users/nnunley/parrot/lib/Parrot/Op.pm	4419	4528	
==>ions of the op's arguments.

=cut

sub arg_dirs
{
    my $self = shift;

    return @{$self->{ARGDIRS}};
}

=i <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	63867	63963	
==>nd the failure mode was not "MAX" or "PARA").

=item C<Found unbalanced nested tag: %s>

C<extrac <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067024	1067129	
==>{{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( ( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068210	1068315	
==>{{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( ( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069396	1069501	
==>{{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( ( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070583	1070688	
==>{{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = floor( ( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332522	332621	
==>\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333800	333899	
==>\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335078	335177	
==>\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336357	336456	
==>\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476473	476682	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477368	477577	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478264	478473	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479155	479364	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926342	926501	
==>buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}});\n                              break;\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927812	927971	
==>buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}});\n                              break;\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929282	929441	
==>buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}});\n                              break;\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930753	930912	
==>buflen({{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}});\n                              break;\n <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	13287	13400	
==>mp_num == PMCNULL ? NULL : t_$temp_num";
    };
    /S/ && do {
        push @{$temps_ref}, "STRING *t_$temp_num;" <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	6609	6706	
==>subs{"="}}(@_[0..2], "gt") });

sub convert_to_rpn {
	my(@expr)=@_;

	#print STDERR "In RPN Conver <==
4	/Users/nnunley/parrot/examples/benchmarks/mops.pl	349	443	
==>ed comparisons.

Calculates a value for M ops/s (million operations per second) using
integer a <==
4	/Users/nnunley/parrot/examples/mops/mops.pl	345	439	
==>ed comparisons.

Calculates a value for M ops/s (million operations per second) using
integer a <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072471	1072577	
==>3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074656	1074762	
==>3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076841	1076947	
==>3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079027	1079133	
==>3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73227	73568	
==>ivate1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74829	75170	
==>ivate1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76431	76772	
==>ivate1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78034	78375	
==>ivate1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	500	604	
==>ce = "BARE"; # TODO: Don't we need to do better than this?

  if ($self->content) {
    $compiler->emit(" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210208	210300	
==>> "#line 408 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->g <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211188	211280	
==>> "#line 408 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->g <==
4	/Users/nnunley/parrot/tools/dev/manicheck.pl	1011	1102	
==>ad();
my $file_list = ExtUtils::Manifest::manifind();
my @missing   = ExtUtils::Manifest::ma <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152502	152799	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 185,
                  "A <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11457	11546	
==>RE_CALL_RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_EN <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8643	8732	
==>RE_CALL_RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_EN <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7215	7304	
==>RE_CALL_RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_EN <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	40018	40131	
==>-------
#
# Macros
#
#--------------------

  'let-syntax'          => \&_op_let_syntax,
  'letrec-syntax'       = <==
4	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	385	495	
==>foreach (1..10) {
	$arr[$_] = buildarray();
    }

    my @arr1;
    foreach (1..20) {
	$arr1[$_] = buildarray( <==
4	/Users/nnunley/parrot/examples/benchmarks/stress.pl	344	448	
==>foreach (1..10) {
    $arr[$_] = buildarray();
}

my @arr1;
foreach (1..20) {
    $arr1[$_] = buildarray( <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	60179	60282	
==>xt;
			$rule
			  and (!$prod || $prod->check_pending($line))
			  and $prod = $rule->addprod(new Parse: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72475	72619	
==>"
                            ],
                  "BODY" => "#line 1156 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74077	74221	
==>"
                            ],
                  "BODY" => "#line 1156 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75679	75823	
==>"
                            ],
                  "BODY" => "#line 1156 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77282	77426	
==>"
                            ],
                  "BODY" => "#line 1156 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857773	858100	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858776	859103	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859780	860107	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860784	861111	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24794	24914	
==>p, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25805	25925	
==>p, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26693	26813	
==>p, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27703	27823	
==>p, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	27719	27941	
==>IG_ELEMS(signature);\n    {{+=argc + 2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	28544	28766	
==>IG_ELEMS(signature);\n    {{+=argc + 2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	31228	31450	
==>IG_ELEMS(signature);\n    {{+=argc + 2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4486	4575	
==>ode for C<restart
ADDRESS($address)>.

=item C<restart_offset($offset)>

Implemented in su <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	35375	35503	
==>_op_round,
  'rationalize'      => \&_op_rationalize,
  'exp'              => \&_op_exp,
  'log'              => \&_op_log,
  'si <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31291	31383	
==>implements_vtable($meth);
}

=item C<body($method, $line, $out_name)>

Returns the C code for <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35922	36014	
==>implements_vtable($meth);
}

=item C<body($method, $line, $out_name)>

Returns the C code for <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39911	40003	
==>implements_vtable($meth);
}

=item C<body($method, $line, $out_name)>

Returns the C code for <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362312	362550	
==>E" => "function",
                  "CODE" => 424,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 281 \"src/ops/io.ops\" <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7461	7568	
==>No match\n"
FIN:
for i = 1 to 3
	on i gosub oats, peas, beans
next i
print
end
100 print "100!"
    goto FIN <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19744	19851	
==>No match\n"
FIN:
for i = 1 to 3
	on i gosub oats, peas, beans
next i
print
end
100 print "100!"
    goto FIN <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	2239	2341	
==>($index, $count) = @_;

  $index = $self->pos unless defined $index;

  $count = 1 unless defined $coun <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712578	712671	
==>ndex(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713685	713778	
==>ndex(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720045	720138	
==>ndex(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721245	721338	
==>ndex(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index( <==
4	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3303	3417	
==>ug') =~ /-debug/) {
            my $linkflags = $conf->data->get('linkflags');
            $linkflags =~ s/-opt:\S+ <==
4	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4807	4921	
==>ug') =~ /-debug/) {
            my $linkflags = $conf->data->get('linkflags');
            $linkflags =~ s/-opt:\S+ <==
4	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	377	481	
==>ut_is() {
    my ($self, $code, $output, $desc) = @_;
  
    my $count = $self->{builder}->current_test + <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	415	519	
==>ut_is() {
    my ($self, $code, $output, $desc) = @_;
  
    my $count = $self->{builder}->current_test + <==
4	/Users/nnunley/parrot/languages/dotnet/Configure.pl	2642	2745	
==>_}/g;
	}
	
	# Write.
	open $fh, "> config/N2PConfig.pm" or die "Unable to open config/N2PConfig.pm\n <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	1122	1224	
==>", MANY_LINES(), ")!\nAborting";
  }
  if(defined &UNICODE) { }
  elsif($] >= 5.008)   { *UNICODE = sub <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	1569	1669	
==>C code',
	'in' => 'Configuration file',
	'jako' => 'Jako code',
	'jit' => 'JIT file',
	'l' => 'Lex fi <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	16286	16383	
==>ent
)) {
  open(IN, "<$dir$file") or die "can't read-open $dir$file: $!";
  print "Reading $file.. <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1847	1957	
==>elf->ident ? $self->ident->value : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2452	2562	
==>elf->ident ? $self->ident->value : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	2010	2120	
==>elf->ident ? $self->ident->value : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3126	3236	
==>elf->ident ? $self->ident->value : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067283	1067588	
==>"experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068469	1068774	
==>"experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069655	1069960	
==>"experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070842	1071147	
==>"experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd" <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	390	496	
==>rcname}, ':',
        $parser->YYData->{lineno}, ': ', $msg
        if ( exists $parser->YYData->{verbose <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	856	962	
==>rcname}, ':',
        $parser->YYData->{lineno}, ': ', $msg
        if ( exists $parser->YYData->{verbose <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1314	1420	
==>rcname}, ':',
        $parser->YYData->{lineno}, ': ', $msg
        if ( exists $parser->YYData->{verbose <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	20510	20616	
==>ted($textref,"",$ldel2,"","",$rdel2)
			|| do { pos $$textref = $startpos; return };
		}
		else
		{
			$$te <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2706	2797	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub new {
  my $ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	1915	2006	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub new {
  my $ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	378	469	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub new {
  my $ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3062	3152	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sub new {
  my $ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24390	24506	
==>} elsif($num_children==1) {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25279	25395	
==>} elsif($num_children==1) {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26289	26405	
==>} elsif($num_children==1) {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27179	27295	
==>} elsif($num_children==1) {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my <==
4	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	243	355	
==>imple::BlackBox::stringify_lol,
  # '.='   => \&tack_on,  # grudgingly support
  
  'fallback' => 1,         # tu <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	906	999	
==>D_LOAD_FLAGS = qq[-bundle -undefined suppress];
our $PERL = q[perl];
our $LOAD_EXT = qq[.bundl <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	895	988	
==>D_LOAD_FLAGS = qq[-bundle -undefined suppress];
our $PERL = q[perl];
our $LOAD_EXT = qq[.bundl <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	899	992	
==>D_LOAD_FLAGS = qq[-bundle -undefined suppress];
our $PERL = q[perl];
our $LOAD_EXT = qq[.bundl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924159	924397	
==>" => "inline",
                  "CODE" => 1040,
                  "ARGS" => [
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 342 \"src/ops/string.ops\ <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	6535	6719	
==>arg1'   => $unit->[0],
                    'result' => $num_key,
                );
                $key = [ $num_key, \@opcodes3 ];
            }
            if (    scalar @{$fie <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	78712	78808	
==>w ( $RD_ERRORS $RD_WARN $RD_HINT $RD_TRACE $RD_CHECK );
$::RD_CHECK = 1;
$::RD_ERRORS = 1;
$::RD_ <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	54459	54554	
==>ction (like $' for a pattern
match), and a string representing any prefix skipped before the
ext <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926062	926192	
==>n  switch ({{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    cas <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927532	927662	
==>n  switch ({{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    cas <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929002	929132	
==>n  switch ({{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    cas <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930473	930603	
==>n  switch ({{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    cas <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70893	71116	
==>@1}} = Parrot_load_lib(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71662	71885	
==>@1}} = Parrot_load_lib(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	2407	2534	
==>a new section.

=cut

sub new
{
    my $self = shift;
    
    return $self->SUPER::new(
        'C', 'c.html', '',
        $sel <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	2626	2721	
==>bol already exists,
we throw an error.

TODO: We should generate real compiler errors and warnin <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22994	23128	
==>3
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29 <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26976	27110	
==>3
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29 <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37039	37173	
==>3
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29 <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3867	3976	
==>> { loop => $name } });
  }
  else {
    $handler->start_element({ Name => $kind });
  }
  $handler->end_eleme <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067094	1067206	
==>ile (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    te <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068280	1068392	
==>ile (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    te <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069466	1069578	
==>ile (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    te <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070653	1070765	
==>ile (temp3 != 0) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    te <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25172	25283	
==>>{children} ? @{$node->{children}} - 1 : 0;

  if($num_children==0) {
    $return = $self->_constant(0);
  } els <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27072	27183	
==>>{children} ? @{$node->{children}} - 1 : 0;

  if($num_children==0) {
    $return = $self->_constant(0);
  } els <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24284	24394	
==>>{children} ? @{$node->{children}} - 1 : 0;
  if($num_children==0) {
    $return = $self->_constant(0);
  } els <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26183	26293	
==>>{children} ? @{$node->{children}} - 1: 0;

  if($num_children==0) {
    $return = $self->_constant(0);
  } els <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467627	467721	
==>{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by z <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468498	468592	
==>{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by z <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477050	477144	
==>{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by z <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477946	478040	
==>{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by z <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247041	247341	
==>"JUMP" => 0,
                  "NAME" => "and",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247904	248204	
==>"JUMP" => 0,
                  "NAME" => "and",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	248768	249068	
==>"JUMP" => 0,
                  "NAME" => "and",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	2140	2241	
==>{code}},"\t_DEBUG_INIT()\n";
		debug();
	}

	
PARSE:
	1;
PARSE_NOFEED:
	if ($type[CURR] eq "STMT" or $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867260	867370	
==>1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868226	868336	
==>1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869192	869302	
==>1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870159	870269	
==>1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344528	344787	
==>@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345770	346029	
==>@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347012	347271	
==>@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348255	348514	
==>@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492787	493040	
==>mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493548	493801	
==>mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499522	499775	
==>mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500285	500538	
==>mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32795	32904	
==>meta($rule->{'typeinfo'}, $mv, 
			    "typeinfo for rule $rule->{'name'}");
		    $pir .= "\n" if $pir !~ /\n <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26799	26900	
==>meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir .= "\n" if $pir !~ /\n <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28515	28616	
==>meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir .= "\n" if $pir !~ /\n <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36497	36598	
==>meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir .= "\n" if $pir !~ /\n <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	36051	36200	
==>ith 255.

So the exit codes are...

    0                   all tests successful
    255                 test died
    any other number    how many fa <==
4	/Users/nnunley/parrot/lib/Test/More.pm	34122	34271	
==>ith 255.

So the exit codes are...

    0                   all tests successful
    255                 test died
    any other number    how many fa <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	2917	3066	
==>ith 255.

So the exit codes are...

    0                   all tests successful
    255                 test died
    any other number    how many fa <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	965	1078	
==>e_body {
    my ($self, $fh, $subname, $rule, $ctx, $instructions) = @_;

    if ($subname) {
        print $fh << <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389631	389806	
==>i",
                              "ic"
                            ],
                  "BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390763	390938	
==>i",
                              "ic"
                            ],
                  "BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2895	2986	
==>rn $index_html;
}

=item C<contents_relative_to_source($source)>

Returns the contents of th <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	4904	4995	
==>rn $index_html;
}

=item C<contents_relative_to_source($source)>

Returns the contents of th <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16135	16242	
==>nd $self->get(4)->is_value
    ) {
      my $block = $self->current_block();
      my $ident = Jako::Constru <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16906	17013	
==>nd $self->get(4)->is_value
    ) {
      my $block = $self->current_block();
      my $ident = Jako::Constru <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17711	17818	
==>nd $self->get(4)->is_value
    ) {
      my $block = $self->current_block();
      my $ident = Jako::Constru <==
4	/Users/nnunley/parrot/lib/File/Which.pm	5584	5677	
==>ll> the
matches.

=head2 where($short_exe_name)

Not exported by default.

Same as C<which($sh <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73037	73135	
==>se {\n      {{\@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}}->vtable->set_pointer_key <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74639	74737	
==>se {\n      {{\@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}}->vtable->set_pointer_key <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76241	76339	
==>se {\n      {{\@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}}->vtable->set_pointer_key <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77844	77942	
==>se {\n      {{\@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}}->vtable->set_pointer_key <==
4	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1921	2036	
==>_ = <F>;
    close F;

    my @c = split '';
    die "'$image_file' is truncated. Remove it and rerun make\n" if !@c <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1396	1492	
==>S','STATES');

sub new {
    my($class)=shift;
	my($errst,$nberr,$token,$value,$check,$dotpos <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1350	1442	
==>S','STATES');

sub new {
    my($class)=shift;
	my($errst,$nberr,$token,$value,$check,$dotpos <==
4	/Users/nnunley/parrot/config/init/defaults.pm	1015	1119	
==>ig{cc},
        ccflags => $Config{ccflags},
        ccwarn  => exists($Config{ccwarn}) ? $Config{ccwarn} <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	20270	20368	
==>rn_data = ($ret_type)(*pointer)($params);
    $ret_reg  = return_data;
    REG_INT(0) = $stack_retu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	424569	424877	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "a <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528683	528989	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "a <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529565	529871	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "a <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564001	564307	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "a <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	1170	1299	
==>me) = @_;
  $this->set_source($filename);
  $this->run;
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1711	1815	
==>self->content) {
      $compiler->emit(".namespace ${namespace}_ELSE");
      $compiler->indent;
      $s <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	7084	7188	
==>ail} : '';
	my $bad     = ref($options{reject}) eq 'ARRAY' ? join('|', @{$options{reject}})
		    : defin <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	24086	24190	
==>ail} : '';
	my $bad     = ref($options{reject}) eq 'ARRAY' ? join('|', @{$options{reject}})
		    : defin <==
4	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	2916	3037	
==>nt blank lines.

    my $result;
    my $seen_blank;
    foreach my $item (@output) {
        my ( $type, $code ) = ( @{$i <==
4	/Users/nnunley/parrot/config/auto/gdbm.pm	426	520	
==>se Config;
use Parrot::Configure::Step ':auto';

$description = 'Determining if your platform s <==
4	/Users/nnunley/parrot/config/auto/gmp.pm	380	474	
==>se Config;
use Parrot::Configure::Step ':auto';

$description = 'Determining if your platform s <==
4	/Users/nnunley/parrot/config/auto/readline.pm	387	481	
==>se Config;
use Parrot::Configure::Step ':auto';

$description = 'Determining if your platform s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659271	659577	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "e <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660192	660498	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "e <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661114	661420	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "e <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662029	662335	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "e <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055689	1055997	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "f <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056580	1056888	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "f <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057472	1057780	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "f <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058364	1058672	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "f <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685614	685926	
==>{\@3}});\n      {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607613	607923	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608517	608827	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609424	609734	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332719	332840	
==>ut this generates ugly warnings WRT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333997	334118	
==>ut this generates ugly warnings WRT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335275	335396	
==>ut this generates ugly warnings WRT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336554	336675	
==>ut this generates ugly warnings WRT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926190	926316	
==>case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927660	927786	
==>case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929130	929256	
==>case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930601	930727	
==>case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422776	423084	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "l <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423672	423980	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "l <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123904	124210	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "l <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124778	125084	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "l <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43265	43516	
==>MP" => 0,
                  "NAME" => "pushmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43908	44159	
==>MP" => 0,
                  "NAME" => "pushmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
4	/Users/nnunley/parrot/config/init/defaults.pm	947	1069	
==>(Usually cc or cl, or something like that.)
        cc      => $Config{cc},
        ccflags => $Config{ccflags},
        cc <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6846	6952	
==>lank'}) {  # A non-blank line starting a new para...
      
      if($line =~ m/^(=[a-zA-Z][a-zA-Z0-9]*)(?: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572390	572636	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573299	573545	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574209	574455	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575012	575258	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849277	849586	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850163	850472	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851050	851359	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851937	852246	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409246	409554	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "r <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125652	125958	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "r <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369541	369847	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "r <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	370426	370732	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "r <==
4	/Users/nnunley/parrot/config/inter/pmc.pm	3575	3665	
==>ump : vtable.dump $parent_dumps lib/Parrot/Pmc2c.pm \\
		src/pmc/$pmc.pmc
	\$(PMC2CD) src/p <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7267	7395	
==>nt'};
        
        $self->_ponder_paragraph_buffer();
         # by now it's safe to consider the previous paragraph as done. <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7885	8008	
==>nt'};
          $self->_ponder_paragraph_buffer();
           # by now it's safe to consider the previous paragraph as done. <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	8242	8361	
==>nt'};
        $self->_ponder_paragraph_buffer();
         # by now it's safe to consider the previous paragraph as done. <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	5921	6036	
==>nt'};
      $self->_ponder_paragraph_buffer();
       # by now it's safe to consider the previous paragraph as done. <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642340	642652	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643228	643540	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644120	644432	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645013	645325	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof" <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	532	641	
==>s not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Token is not!" unless UNIVERSAL::i <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	9153	9261	
==>ift;
  
  foreach my $new_code (@_) {
    next unless defined $new_code and length $new_code;
    if(ASCII) { <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	10417	10525	
==>ift;
  
  foreach my $new_code (@_) {
    next unless defined $new_code and length $new_code;
    if(ASCII) { <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	179	272	
==>anguages - Languages documentation section

=head1 SYNOPSIS

    use Parrot::Docs::Section::La <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	7277	7385	
==>more for even the shortest match of this subtree?
    if (($t->minlen() || 0) > $guarantee) {
        my $new <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	9302	9409	
==>ood as an XML Name symbol:
      Carp::croak "\"$new_code\" isn't a valid element name"
        if $new_code <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	10566	10673	
==>ood as an XML Name symbol:
      Carp::croak "\"$new_code\" isn't a valid element name"
        if $new_code <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11810	11904	
==>xtern, $pir_args);
		if (isarray($sym) and $lhs) {
			($ac,@args)=pushargs(\@code, \$optype, \@ <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	8453	8561	
==>thod->{meth};
    my $args= $method->{parameters};
    $args = ", $args" if $args =~ /\S/;
    my ($export, $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2372	2467	
==>AL_ERROR("Can't determine type of formal argument (%s)!", $formal_arg_name) 
      unless define <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2072	2167	
==>AL_ERROR("Can't determine type of formal argument (%s)!", $formal_arg_name) 
      unless define <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8228	8322	
==>->{$elsetag}})) {
			push @{$code{$seg}->{code}}, "ELSEBRANCH_$_:\n";
		}
		push @{$code{$seg}- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830721	830941	
==>T, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831462	831682	
==>T, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832189	832409	
==>T, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832917	833137	
==>T, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404653	404767	
==>} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405565	405679	
==>} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406477	406591	
==>} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407390	407504	
==>} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	491614	491864	
==>MP" => 0,
                  "NAME" => "inc",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	67369	67552	
==>name,
								       $lookahead,
								       $line,
								       $desc,
								       $matchrule,
								       $argcode);
	 
				$prod and $prod->additem($item)
				      or  _ <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7951	8068	
==>s = $self->read;
	
	while ( @lines )
	{
		my $line = shift @lines;
		
		if ( $line =~ /^=head1\s+ABSTRACT/o )
		{
			w <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11294	11382	
==>($rightres, $righttype, @right)=EXPRESSION({lhs => 1});
	push @{$code{$seg}->{code}}, <<S <==
4	/Users/nnunley/parrot/tools/dev/parrotbench.pl	1540	1702	
==>]
    include   = ^gc 
    include   = ^oo 
    exclude   = header
    exclude   = waves

    [benchmark parrotj]
    exe       = ../../parrot -j
    type      = . <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	310044	310142	
==>r *command;\n\n    if (!(interpreter->pdb->state & PDB_BREAK)) {\n        interpreter->pdb->state | <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1535	1630	
==>num"
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Emit pop code.
${INS} = c <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3245	3340	
==>num"
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Emit pop code.
${INS} = c <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	1937	2022	
==>-Wwrite-strings -Waggregate-return -Winline -W -Wno-unused -Wsign-compare -Wformat-non <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1257	1342	
==>-Wwrite-strings -Waggregate-return -Winline -W -Wno-unused -Wsign-compare -Wformat-non <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1302	1387	
==>-Wwrite-strings -Waggregate-return -Winline -W -Wno-unused -Wsign-compare -Wformat-non <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1306	1391	
==>-Wwrite-strings -Waggregate-return -Winline -W -Wno-unused -Wsign-compare -Wformat-non <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084875	1085231	
==>> 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085928	1086284	
==>> 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086981	1087337	
==>> 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" = <==
4	/Users/nnunley/parrot/tools/dev/lib_deps.pl	11195	11318	
==>h.h
ilogb       math.h
ilogbf      math.h
ilogbl      math.h
imag        complex.h
isalnum     ctype.h
isalpha     ctype.h
i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571182	571449	
==>ct_isa(interpreter, {{\@2}}, class);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572137	572404	
==>ct_isa(interpreter, {{\@2}}, class);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5201	5307	
==>'',$$token)) {
#DBG>			$tok.=		(ord($_) < 32 or ord($_) > 126)
#DBG>					?	sprintf('<%02X>',ord($_))
#DB <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4951	5054	
==>'',$$token)) {
#DBG>			$tok.=		(ord($_) < 32 or ord($_) > 126)
#DBG>					?	sprintf('<%02X>',ord($_))
#DB <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4313	4426	
==>or die "Report this as a BUG: Cannot open $fname";
	while(<DRV>) {
                	/^\s*sub\s+_Parse\s*{\s*$/ . <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4093	4204	
==>or die "Report this as a BUG: Cannot open $fname";
	while(<DRV>) {
                	/^\s*sub\s+_Parse\s*{\s*$/ . <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1322	1426	
==>cat ": "
PIR
	
	# This is also a good place (as we call gen_label before translating
	# every instruction <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	41316	41419	
==>} @{$self->{functions}};
  }

  my $return = $self->_call_function_obj($func_obj, @_);
  $self->_restore <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33262	33408	
==>arg1'   => $nil->[0],
        );
        push @return1, $var;
    }
    else {
        push @opcodes2, @{ $expr->[1] };
        push @opcodes <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557225	557346	
==>ARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLAGS" => ":object <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558608	558729	
==>ARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLAGS" => ":object <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559992	560113	
==>ARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLAGS" => ":object <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	14000	14102	
==>list of initializers for the various elements of the new
struct. 

Each initializer is a pair of values <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11741	11832	
==>P1} = elements ${STYPES}
dec ${ITEMP1}
${PTEMP0} = ${STYPES}[${ITEMP1}]
${STEMP0} = "$"
${ST <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8804	8895	
==>P1} = elements ${STYPES}
dec ${ITEMP1}
${PTEMP0} = ${STYPES}[${ITEMP1}]
${STEMP0} = "$"
${ST <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7376	7467	
==>P1} = elements ${STYPES}
dec ${ITEMP1}
${PTEMP0} = ${STYPES}[${ITEMP1}]
${STEMP0} = "$"
${ST <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16296	16398	
==>);

      $self->require_assign;

      my $left  = Jako::Construct::Expression::Value->new($block, $se <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17067	17169	
==>);

      $self->require_assign;

      my $left  = Jako::Construct::Expression::Value->new($block, $se <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17872	17974	
==>);

      $self->require_assign;

      my $left  = Jako::Construct::Expression::Value->new($block, $se <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	6255	6352	
==>0) : 0));
    $totals{call_coverage}   = sprintf("%.2f", ($totals{calls}    ? ($totals{covered_cal <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162002	162147	
==>"
                            ],
                  "BODY" => "#line 183 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162899	163044	
==>"
                            ],
                  "BODY" => "#line 183 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163796	163941	
==>"
                            ],
                  "BODY" => "#line 183 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\ <==
4	/Users/nnunley/parrot/tools/build/pbc2c.pl	4499	4637	
==>f('op')) = $enternative;
	    push @blocks, [$instr_pc ];
	}
	else {
	    push @{$blocks[-1]}, $instr_pc;
	}
    }

    print<<END_C;
stati <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	33280	33413	
==>q 'P') {
	   $ww = temp('I');
	   print <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1] <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	34029	34162	
==>q 'P') {
	   $ww = temp('I');
	   print <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1] <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	34953	35086	
==>q 'P') {
	   $ww = temp('I');
	   print <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1] <==
4	/Users/nnunley/parrot/tools/dev/parrotbench.pl	1170	1267	
==>le with
the exception of the configuration file name itself.  In the event
you have specified an o <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32771	32881	
==>o\n";
		    $pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			    "typeinfo for rule $rule->{'name'}");
		    $pir <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26779	26877	
==>o\n";
		$pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28495	28593	
==>o\n";
		$pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36477	36575	
==>o\n";
		$pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763132	763241	
==>< 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763985	764094	
==>< 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764838	764947	
==>< 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765692	765801	
==>< 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066937	1067048	
==>n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068123	1068234	
==>n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069309	1069420	
==>n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070496	1070607	
==>n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7124	7247	
==>te that in "=head1 foo", the WS is lost.
         # Example: ['=head1', {'start_line' => 123}, ' foo']
        
        ++$s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1564	1670	
==>= $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  my $dest_sym = $block->find_symbol($ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1522	1628	
==>= $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  my $dest_sym = $block->find_symbol($ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1444	1550	
==>= $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  my $dest_sym = $block->find_symbol($ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284823	285032	
==>\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285700	285909	
==>\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286577	286786	
==>\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	817586	817711	
==>ine 610 \"src/ops/set.ops\"\n  Parrot_clear_p(interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                } <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9568	9669	
==>tails of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method_info_from_token($ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7082	7183	
==>tails of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method_info_from_token($ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5638	5739	
==>tails of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method_info_from_token($ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7858	7959	
==>tails of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method_info_from_token($ <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9769	9895	
==>&$ShowCurToken.".\n";

			$$token=$$value=undef;
		};

        $$errstatus=3;

		while(	  @$stack
			  and (		not exist <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9331	9449	
==>&$ShowCurToken.".\n";

			$$token=$$value=undef;
		};

        $$errstatus=3;

		while(	  @$stack
			  and (		not exist <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	10815	10916	
==>ng <rx_input>
  .param int <rx_pos>
  .param pmc <rx_stack>

  .local pmc <rx_match>
  .local pmc <rx_ <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	11397	11485	
==>lass ParrotObject OS File AddrRegistry Bound_NCI deleg_pmc Enumerate FixedBooleanArray Fi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634762	634858	
==>class = interpreter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new_from_string(interpreter, cl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635880	635976	
==>class = interpreter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new_from_string(interpreter, cl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636998	637094	
==>class = interpreter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new_from_string(interpreter, cl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638117	638213	
==>class = interpreter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new_from_string(interpreter, cl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088864	1088956	
==>"src/ops/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089812	1089904	
==>"src/ops/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090830	1090922	
==>"src/ops/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1091890	1091982	
==>"src/ops/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	624498	624709	
==>,
                  "CODE" => 702,
                  "ARGS" => [
                              "pc"
                            ],
                  "BODY" => "#line 247 \"src/ops/pic.ops\"\n    Parrot_MIC *mic;\ <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	15535	15655	
==>r to find
            my $call_pkg = $builder->exported_to() || '';
            # die Dumper( $code, $expected, $desc, \% <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	18086	18206	
==>r to find
            my $call_pkg = $builder->exported_to() || '';
            # die Dumper( $code, $expected, $desc, \% <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2596	2704	
==>VSUMMARY, "$cmd |") or die "Error invoking '$cmd': $!";
    my $tmp;
    my %generated_files;
    while (<GCO <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1248	1350	
==>override the user.  If a non-existent program is specified then
    # the user is responsible for the c <==
4	/Users/nnunley/parrot/config/inter/make.pm	1069	1171	
==>override the user.  If a non-existent program is specified then
    # the user is responsible for the c <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1245	1347	
==>override the user.  If a non-existent program is specified then
    # the user is responsible for the c <==
4	/Users/nnunley/parrot/config/gen/cpu/i386/auto.pm	86	177	
==>o.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/gen/cpu/i386/auto.pm

=h <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540742	541020	
==>b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n {{\@1}} = b<<p;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541994	542272	
==>b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n {{\@1}} = b<<p;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543246	543524	
==>b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n {{\@1}} = b<<p;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	709257	709455	
==>_unregister_pmc(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961061	961317	
==>encoding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962023	962279	
==>encoding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962985	963241	
==>encoding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963948	964204	
==>encoding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359393	359586	
==>\n    PIO_putps(interpreter, PIO_STDERR(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360141	360334	
==>\n    PIO_putps(interpreter, PIO_STDERR(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360911	361104	
==>\n    PIO_putps(interpreter, PIO_STDERR(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                } <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	17383	17507	
==>y($name)=@_;
	my %lookup = ( '#' => "_hash",
				  	'!' => "",
					'&' => "_amp",
					'%' => "_percent",
					);
	$name=~s/ <==
4	/Users/nnunley/parrot/config/auto/jit.pm	3642	3783	
==>$osname eq 'openbsd')
                || ($osname eq 'freebsd')
                || ($osname eq 'netbsd')
                || ($osname eq 'linux <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665238	665344	
==>\n  {{\@1}}->vtable->delete_keyed_int(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666015	666121	
==>\n  {{\@1}}->vtable->delete_keyed_int(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LA <==
4	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	1567	1669	
==>tem * It would be nice to have a ParrotSourceFile class of course. ;)
(a jest - sort of.)

=item * Misc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100460	100750	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101893	102183	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102664	102954	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" = <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54479	54594	
==>tf("%x", ord($1)).'}'>eg;
      } else {
        # We're in some crazy non-ASCII world!
        s<([^abcdefghijklmno <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938237	938557	
==>"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1055,
                  "ARGS" => [
                              "s",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 481 \"src/o <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	3983	4094	
==>${lhs}pmc_register(interpreter, whoami);
EOC
    }
    $cout .= <<"EOC";

    /* do class_init code */
    for ( <==
4	/Users/nnunley/parrot/tools/dev/parrotbench.pl	2477	2578	
==>le::Spec->catdir( $FindBin::Bin , 'parrotbench.conf' ),
    bench_path   => undef,
    list_only    => <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	4406	4505	
==>hen");
		$singleif=1 if ($type[NEXT] ne "STMT" and $type[NEXT] ne "COMM");
		#print "Single if!\n" i <==
4	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	240	335	
==>'output_fh'} ||= *STDOUT{IO};
  $new->nix_X_codes(1);
  return $new;
}

#~~~~~~~~~~~~~~~~~~~~~~~ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1900	1994	
==>fier')) {
    my $left_sym = $block->find_symbol($left->value);
    $self->SYNTAX_ERROR("Expres <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1858	1952	
==>fier')) {
    my $left_sym = $block->find_symbol($left->value);
    $self->SYNTAX_ERROR("Expres <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1780	1874	
==>fier')) {
    my $left_sym = $block->find_symbol($left->value);
    $self->SYNTAX_ERROR("Expres <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44504	44766	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "popmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45145	45407	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "popmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10590	10716	
==>') ) 
    {
        $section =~ tr/ /_/;
        $section =~ tr/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
        $section = $se <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3985	4093	
==>')) {
    $section =~ tr/ /_/;
    $section =~ tr/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
    $section = $se <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	62	159	
==>Simple::PullParserToken ();
@ISA = ('Pod::Simple::PullParserToken');
use strict;

sub new {  # Cla <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	64	161	
==>Simple::PullParserToken ();
@ISA = ('Pod::Simple::PullParserToken');
use strict;

sub new {  # Cla <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	63	160	
==>Simple::PullParserToken ();
@ISA = ('Pod::Simple::PullParserToken');
use strict;

sub new {  # Cla <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	308	400	
==>creates F<src/jit_cpu.c>. It parses the JIT file for the
specified CPU architecture type (F<s <==
4	/Users/nnunley/parrot/tools/docs/pod_errors.pl	128	230	
==>054Z coke  $

=head1 NAME

tools/docs/pod_errors.pl - Reports POD errors

=head1 SYNOPSIS

    % perl t <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	988	1070	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub handle_ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	772	854	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub handle_ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	87	169	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub handle_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11011	11094	
==>rpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATIO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11800	11883	
==>rpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATIO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13037	13120	
==>rpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATIO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13881	13964	
==>rpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATIO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90274	90573	
==>UMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91127	91426	
==>UMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91981	92280	
==>UMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3852	3950	
==>e "pbc2c.pl: Cannot handle RESUME ops!";
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::OpTran <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467710	467972	
==>"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468581	468843	
==>"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469455	469717	
==>"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470330	470592	
==>"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47084	47304	
==>GS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47867	48087	
==>GS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51867	52087	
==>GS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENE <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	31408	31507	
==>eek_char {
}

sub _op_eof_object_p {
}

sub _op_char_ready_p {
}

sub _op_write {
  my ($self,$node) <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	6253	6374	
==>$Test::num_of_tests_run~' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') {
            $context = $to <==
4	/Users/nnunley/parrot/config/auto/jit.pm	777	891	
==>}

    my $verbose = $conf->options->get('verbose');

    my $jitbase  = 'src/jit';        # base path for jit sour <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79529	79643	
==>(interpreter, enum_class_UnManagedStruct);\n      PMC_data({{\@1}}) = p;\n  }\n  {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81050	81164	
==>(interpreter, enum_class_UnManagedStruct);\n      PMC_data({{\@1}}) = p;\n  }\n  {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8168	8273	
==>nt 5
dim y(10)
i=10
tloop:
	y(i)=i
	i=i-1
	print i
	if i then goto tloop
print y(5)


' Column alignment
p <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1158	1247	
==>defined $right and not UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1186	1275	
==>defined $right and not UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	858	947	
==>defined $right and not UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640177	640485	
==>( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640931	641239	
==>( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645255	645563	
==>( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646151	646459	
==>( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712375	712483	
==>s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  s = Parrot_sprintf_c(i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713482	713590	
==>s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  s = Parrot_sprintf_c(i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719842	719950	
==>s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  s = Parrot_sprintf_c(i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721042	721150	
==>s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  s = Parrot_sprintf_c(i <==
4	/Users/nnunley/parrot/config/auto/gdbm.pm	2034	2154	
==>cflags   => $ccflags);
        $conf->data->set(linkflags => $linkflags);
        print " (no) " if $verbose;
        $se <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	6973	7084	
==>d_Tests} = $max;
        $self->{Have_Plan}      = 1;

        $self->_print("1..$max\n") unless $self->no_heade <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11192	11282	
==>T0} = "$"
${STEMP0} = ${PTEMP1}["reg_type_short"]
${DEST0} = concat ${STEMP0}
inc stack_dep <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8378	8468	
==>T0} = "$"
${STEMP0} = ${PTEMP1}["reg_type_short"]
${DEST0} = concat ${STEMP0}
inc stack_dep <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	1279	1391	
==>lative_path($_))} @files);
    }
    
    return @groups;
}

=item C<new()>

Returns a new section.

=cut

sub ne <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4143	4236	
==>e can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign register name.
${STEMP0} <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2559	2652	
==>e can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign register name.
${STEMP0} <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1869	1962	
==>e can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign register name.
${STEMP0} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855037	855324	
==>{{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855926	856213	
==>{{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856815	857102	
==>{{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857705	857992	
==>{{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	10119	10236	
==>f $ENV{HARNESS_ACTIVE};
        $self->diag("    $msg test ($file at line $line)\n");
    } 

    return $test ? 1 : 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722374	722476	
==>er, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_softs <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723403	723505	
==>er, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_softs <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724447	724549	
==>er, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_softs <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072598	1072706	
==>rong because we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074783	1074891	
==>rong because we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076968	1077076	
==>rong because we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079154	1079262	
==>rong because we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680973	681277	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681749	682053	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682523	682827	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683298	683602	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591456	591564	
==>\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592666	592774	
==>\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593876	593984	
==>\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595087	595195	
==>\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\ <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30630	30777	
==>,
			"<" => 74,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			" <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39980	40127	
==>,
			"<" => 74,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			" <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41607	41754	
==>,
			"<" => 74,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			" <==
4	/Users/nnunley/parrot/editor/ops2vim.pl	239	349	
==>has been passed
@ARGV = @ARGV
    ? map {glob $_} @ARGV
    : die "usage: " . basename($0) . " FILE [ FILE [ .. <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123333	123630	
==>=> "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124206	124503	
==>=> "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125080	125377	
==>=> "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	29371	29476	
==>t) )
	{
		# process next quote-like (in $next)
	}

Note that if the input text is a read-only string (i.e. <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	373760	374029	
==>TYPE" => "function",
                  "CODE" => 437,
                  "ARGS" => [
                              "i",
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 427 \"src/ops/io <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509056	509315	
==>n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509687	509946	
==>n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510342	510601	
==>n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" = <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17670	17775	
==>n b$="True  " else b$="False "
if i xor j then c$="True  " else c$="False "
if i eqv j then d$="True  " el <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	69180	69373	
==>=> []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "collecton",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	33488	33595	
==>dr/cdar/whatever
  'null?'    => \&_op_null_p,
  'list?'    => \&_op_list_p,
  'list'     => \&_op_list,
  ' <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4714	4817	
==>te>, C<Null>, C<Ref> or C<SharedRef>.

C<$opt> is a hash reference.

=cut

sub new {
    my $this = shif <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	8931	9034	
==>if ($ignore && $$textref =~ m/\G(?:$ignore)/gc)
		{
			next;
		}
		elsif ($bad && $$textref =~ m/\G($bad <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27413	27507	
==>efined $::RD_TRACE;').'
		$lastsep = "";
		$Parse::RecDescent::lastexpected = q{' . ($rule->has <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29523	29617	
==>efined $::RD_TRACE;').'
		$lastsep = "";
		$Parse::RecDescent::lastexpected = q{' . ($rule->has <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31620	31714	
==>efined $::RD_TRACE;').'
		$lastsep = "";
		$Parse::RecDescent::lastexpected = q{' . ($rule->has <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	192	281	
==>ko/lib/Jako/Construct/Statement.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276222	276489	
==>e(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277100	277367	
==>e(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277978	278245	
==>e(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2213	2325	
==>ee');
        $class =~ s/::\w+$// or confess "Called op on invalid class $_[0]";
    }
    $class = "${class}::$ <==
4	/Users/nnunley/parrot/config/auto/readline.pm	109	204	
==>:15.110975Z coke  $

=head1 NAME

config/auto/readline.pm - Test for readline lib

=head1 DESCRI <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841614	841837	
==>.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842378	842601	
==>.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5834	5939	
==>'';

	# Branches mean we need to deal with basic block-ish stuff. If the branch
	# did not pop anything it <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3772	3877	
==>'';

	# Branches mean we need to deal with basic block-ish stuff. If the branch
	# did not pop anything it <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1301	1392	
==>}

=item C<goto_address($address)>

Transforms the C<goto ADDRESS($address)> macro in an ops <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1826	1917	
==>}

=item C<goto_address($address)>

Transforms the C<goto ADDRESS($address)> macro in an ops <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1717	1808	
==>}

=item C<goto_address($address)>

Transforms the C<goto ADDRESS($address)> macro in an ops <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1441	1532	
==>}

=item C<goto_address($address)>

Transforms the C<goto ADDRESS($address)> macro in an ops <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	14543	14648	
==>/Build::(\w+)/) {   ## XXX && $f ne '__new__'
	$namespace{$f} = $classes{$1};
	if ($vtables{$f}) {
	    pr <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	732	825	
==>nstruct::Type));
  confess "Identifier (" . ref($ident) . ") is not!" unless UNIVERSAL::isa($i <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	757	850	
==>nstruct::Type));
  confess "Identifier (". ref($ident) . ") is not!"  unless UNIVERSAL::isa($i <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	721	814	
==>nstruct::Type));
  confess "Identifier (". ref($ident) . ") is not!"  unless UNIVERSAL::isa($i <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7911	8016	
==>"  unless defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "No identifier n <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8558	8663	
==>"  unless defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "No identifier n <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9226	9331	
==>"  unless defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "No identifier n <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9895	10000	
==>"  unless defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "No identifier n <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2339	2449	
==>ock. Previous declaration on line %d of file '%s'.",
      $self->name, $sym->line, $sym->file);
  }

  #
  # N <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2086	2196	
==>ock. Previous declaration on line %d of file '%s'.",
      $self->name, $sym->line, $sym->file);
  }

  #
  # N <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76677	76785	
==>::RD_TRACE
	    && $::RD_TRACE =~ /\d+/
	    && $::RD_TRACE>1
	    && $::RD_TRACE+10<length($_[0]))
	{
		my $ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76988	77096	
==>::RD_TRACE
	    && $::RD_TRACE =~ /\d+/
	    && $::RD_TRACE>1
	    && $::RD_TRACE+10<length($_[0]))
	{
		my $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123900	124206	
==>>> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124774	125080	
==>>> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125648	125954	
==>>> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	815	908	
==>ead2 Instance Methods

=over 4

=item C<files_of_type($type, $recursive, $ignore)>

Use this t <==
4	/Users/nnunley/parrot/config/gen/platform.pm	2703	2812	
==>ather than creating the
        # correct one from the above list in their $platform/ dir (e.g. misc.c).
    } <==
4	/Users/nnunley/parrot/config/auto/msvc.pm	562	659	
==>ft, shift);

    my $verbose = $conf->options->get('verbose');

    cc_gen("config/auto/msvc/test_ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4002	4096	
==>"  unless defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "No s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6170	6264	
==>"  unless defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "No s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9140	9334	
==>tring_cstring_free(label);\n    interpreter->resume_flag = 2;\n    {{=0}};\n",
                  "LABELS" => [
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10256	10450	
==>tring_cstring_free(label);\n    interpreter->resume_flag = 2;\n    {{=0}};\n",
                  "LABELS" => [
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	15293	15419	
==>if( ($re, $opts)        = $regex =~ m{^ /(.*)/ (\w*) $ }sx           or
           (undef, $re, $opts) = $regex =~ m,^ m([^\w\s <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	6975	7071	
==>*/
#if defined (_MSC_VER)
#pragma warning(disable: 4305)
#endif

/*
 *define default jit_funcs, i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072795	1072918	
==>\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074980	1075103	
==>\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077165	1077288	
==>\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079351	1079474	
==>\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  } <==
4	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	978	1110	
==>Parrot::Test::run_command($cmd, CD => $self->{relpath},
                                           STDOUT => $out_f, STDERR => $out_f <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1019	1151	
==>Parrot::Test::run_command($cmd, CD => $self->{relpath},
                                           STDOUT => $out_f, STDERR => $out_f <==
4	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	1136	1262	
==>Parrot::Test::run_command( $cmd, 
						    CD     => $self->{relpath},
						    STDOUT => $out_f, 
						    STDERR => $out_f <==
4	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2069	2167	
==>Parrot::Test::run_command($cmd, #CD => $self->{relpath},
					   STDOUT => $out_f, STDERR => $out_f <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	257	353	
==>08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block::Condit <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	255	351	
==>08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block::Condit <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	251	347	
==>08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block::Condit <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	259	355	
==>08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block::Condit <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509070	509327	
==>,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_cor <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509701	509958	
==>,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_cor <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510356	510613	
==>,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_cor <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	5258	5360	
==>@_ > 1 ? "one of (" . join(", ", @_) . ")" : $_[0], $self->get(1)->text)
    unless grep { $self->get(1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549395	549518	
==>P" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ":ob <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550695	550818	
==>P" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ":ob <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551996	552119	
==>P" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ":ob <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19599	19688	
==>rates "AUTHORS" instead of "AUTHOR" too.)

=item $description_name = $parser->get_descript <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926652	926990	
==>en;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928122	928460	
==>en;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929592	929930	
==>en;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931063	931401	
==>en;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154853	154953	
==>ODY" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155757	155857	
==>ODY" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156661	156761	
==>ODY" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157566	157666	
==>ODY" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46155	46290	
==>p"
                            ],
                  "BODY" => "#line 742 \"src/ops/core.ops\"\n  Parrot_push_action(interpreter, {{\@1}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302089	302180	
==>980 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302965	303056	
==>980 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303841	303932	
==>980 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009385	1009668	
==>0,
                  "NAME" => "compose",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010149	1010432	
==>0,
                  "NAME" => "compose",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	9478	9588	
==>) = fileparse($_);

        my ($filebase, $extension) = ($filename =~ /^(.*)\.(.*)/);
        $filebase ||= $f <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	37495	37599	
==>string>?'      => \&_op_string_gt_p,
  'string<=?'     => \&_op_string_le_p,
  'string>=?'     => \&_op_s <==
4	/Users/nnunley/parrot/tools/build/ops2c.pl	9286	9388	
==>op);
$op_info = $op_func = 'NULL';
$getop = '( int (*)(const char *, int) )NULL';

if ($suffix eq '') { <==
4	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	1174	1269	
==>te preceeding library. The definition of
the function is:

  return_type name [param [param [par <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1278	1365	
==>...)

=item $token->is_tag(I<somestring>) or $token->is_tagname(I<somestring>)

These ar <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1708	1795	
==>...)

=item $token->is_tag(I<somestring>) or $token->is_tagname(I<somestring>)

These ar <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4579	4677	
==>ith the specified name exists in the
directory.

=cut

sub directory_exists_with_name
{
    my $sel <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29432	29526	
==>se 'Parrot::Pmc2c';

=item C<body($method, $line, $out_name)>

Returns the C code for the metho <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830633	830718	
==>};\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &i, STACK_ENTRY_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831374	831459	
==>};\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &i, STACK_ENTRY_ <==
4	/Users/nnunley/parrot/config/gen/config_pm.pm	2008	2200	
==>g;
                    print OUT qq(\tset P0["$k"], "$v"\n);
                } else {
                    print OUT qq(\tset P0["$k"], P1\n);
                }
            }
        } elsif (s/ <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6603	6727	
==>rint STDERR "Shift and go to state $act.\n";

					$$errstatus
				and	do {
					--$$errstatus;

#DBG>					$debug & 0x1 <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6296	6414	
==>rint STDERR "Shift and go to state $act.\n";

					$$errstatus
				and	do {
					--$$errstatus;

#DBG>					$debug & 0x1 <==
4	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	762	857	
==>ne'd version, compiles the result and invokes it.

print <<"END_PIR";

.HLL 'Tcl', ''
.namespace <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86767	87099	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "new_callback",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87768	88100	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "new_callback",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	5142	5277	
==>ile::Find::name) {
        $loc =
        exists($special{$_}) ? $special{$_} :
        !m[/]             ? '[]' :
        m[^LICENSES/] <==
4	/Users/nnunley/parrot/examples/benchmarks/primes.pl	292	388	
==>ad1 DESCRIPTION

Calculates all the prime numbers up to 50000 and prints out the number
of primes <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1108332	1108468	
==>);\n            if (type <= 0)\n                real_exception(interpreter, NULL, NO_CLASS,\n                    \"Class '%Ss' not found\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1108647	1108783	
==>);\n            if (type <= 0)\n                real_exception(interpreter, NULL, NO_CLASS,\n                    \"Class '%Ss' not found\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630525	630637	
==>);\n    if (type <= 0)\n        real_exception(interpreter, NULL, NO_CLASS,\n            \"Class '%Ss' not found\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631515	631627	
==>);\n    if (type <= 0)\n        real_exception(interpreter, NULL, NO_CLASS,\n            \"Class '%Ss' not found\ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9199	9299	
==>} = concat ${STOREREG}
${INS} = concat " = "
${INS} = concat ${STEMP0}
${INS} = concat "\n"

# Decrem <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6717	6817	
==>} = concat ${STOREREG}
${INS} = concat " = "
${INS} = concat ${STEMP0}
${INS} = concat "\n"

# Decrem <==
4	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	735	818	
==>mples/benchmarks/stress.pl>, 
F<examples/benchmarks/stress1.pasm>, 
F<examples/bench <==
4	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	582	665	
==>mples/benchmarks/stress.pl>, 
F<examples/benchmarks/stress1.pasm>, 
F<examples/bench <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2069	2173	
==>rms the C<goto POP()> macro in an ops file into the relevant C
code.

=cut

sub goto_pop
{
    my ($self) <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2719	2823	
==>rms the C<goto POP()> macro in an ops file into the relevant C
code.

=cut

sub goto_pop
{
    my ($self) <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2442	2546	
==>rms the C<goto POP()> macro in an ops file into the relevant C
code.

=cut

sub goto_pop
{
    my ($self) <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2622	2726	
==>rms the C<goto POP()> macro in an ops file into the relevant C
code.

=cut

sub goto_pop
{
    my ($self) <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	21128	21266	
==>nc} = sub {
            my ($example_f, $expected, @options) = @_;

            my %lang_for_extension 
                = ( pasm => 'PASM', <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11788	11876	
==>} = ${STYPES}[${ITEMP1}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0 <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8851	8939	
==>} = ${STYPES}[${ITEMP1}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0 <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7423	7511	
==>} = ${STYPES}[${ITEMP1}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084643	1084780	
==>"
                            ],
                  "BODY" => "#line 163 \"src/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085696	1085833	
==>"
                            ],
                  "BODY" => "#line 163 \"src/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086749	1086886	
==>"
                            ],
                  "BODY" => "#line 163 \"src/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087803	1087940	
==>"
                            ],
                  "BODY" => "#line 163 \"src/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939825	940122	
==>it",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 10 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940716	941013	
==>it",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 10 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941608	941905	
==>it",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 10 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942500	942797	
==>it",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 10 <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1415	1512	
==>ions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT = qq[];

# Here comes <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1460	1557	
==>ions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT = qq[];

# Here comes <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1464	1561	
==>ions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT = qq[];

# Here comes <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	694	790	
==>y want, you can pass a third option to the C<use> line.
C<arguments> should be an array reference <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712520	712609	
==>}});\n  PIO_putps(interpreter, io, s);\n  if (string_str_index(interpreter, s,\n\tconst_st <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713627	713716	
==>}});\n  PIO_putps(interpreter, io, s);\n  if (string_str_index(interpreter, s,\n\tconst_st <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719987	720076	
==>}});\n  PIO_putps(interpreter, io, s);\n  if (string_str_index(interpreter, s,\n\tconst_st <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721187	721276	
==>}});\n  PIO_putps(interpreter, io, s);\n  if (string_str_index(interpreter, s,\n\tconst_st <==
4	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2893	3023	
==>s+ (?:\S+ \s+)? \{ \n     # optional test harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \} \s <==
4	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4290	4420	
==>s+ (?:\S+ \s+)? \{ \n     # optional test harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \} \s <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10336	10450	
==>ken

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Shift \$error token and go to state ".
#DBG>						 $$stat <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9871	9981	
==>ken

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Shift \$error token and go to state ".
#DBG>						 $$stat <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6877	6980	
==>eclare constant without assigning a value.") # TODO: This can happen later.
        if ($access eq 'cons <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9902	10004	
==>em into ${PARAMS}. Note that they come
# off the stack last to first, but need to be first to last in $ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7416	7518	
==>em into ${PARAMS}. Note that they come
# off the stack last to first, but need to be first to last in $ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6380	6482	
==>em into ${PARAMS}. Note that they come
# off the stack last to first, but need to be first to last in $ <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	231	327	
==>Group;

=head1 DESCRIPTION

A documentation I<group> is a number of items with some optional
desc <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2758	2848	
==>self->INTERNAL_ERROR("No type for left!")  unless defined $left_type;
  $self->INTERNAL_ERR <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2524	2614	
==>self->INTERNAL_ERROR("No type for left!")  unless defined $left_type;
  $self->INTERNAL_ERR <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2446	2536	
==>self->INTERNAL_ERROR("No type for left!")  unless defined $left_type;
  $self->INTERNAL_ERR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048427	1048695	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049351	1049619	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060212	1060480	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61965	62067	
==>RACT TRAILING ARG LIST (IF ANY)

			my ($argcode) = extract_codeblock($grammar, "[]",'') || '';

		# EX <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215082	215349	
==>eter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216023	216290	
==>eter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216962	217229	
==>eter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217902	218169	
==>eter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	188	298	
==>elf, $ctx) = @_;
    $ctx->{rx_match} ||= '$rx_match';
    $ctx->{rx_stack} ||= '$rx_stack';
    $ctx->{rx_tmp} <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	14959	15067	
==>my @tempi = grep { defined $temp[$_] } 0..$#$args;
        my $temp_decl = join("\n    ", map { "$temp[$_]->[ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	29035	29135	
==>b _op_string_number {
}

sub _op_char_p {
}

sub _op_char_eq_p {
}

sub _op_char_lt_p {
}

sub _op_ch <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104085	1104173	
==>ter, NULL, NO_CLASS,\n\t\t\t\t\"Class '%Ss' not found\", class);\n\t{{\@1}} = pmc_new_ini <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105300	1105388	
==>ter, NULL, NO_CLASS,\n\t\t\t\t\"Class '%Ss' not found\", class);\n\t{{\@1}} = pmc_new_ini <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126675	126806	
==>= r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127810	127941	
==>= r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128945	129076	
==>= r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	3585	3690	
==>hift;
    my $cout = "";
    $cout .= <<"EOC";
#define PARROT_IN_EXTENSION
#include "parrot/parrot.h"
#inc <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27071	27209	
==>$op ( @{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{re <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27752	27890	
==>$op ( @{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{re <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	30602	30740	
==>$op ( @{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{re <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	35149	35287	
==>$op ( @{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{re <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773401	773489	
==>\"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774311	774399	
==>\"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775221	775309	
==>\"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776132	776220	
==>\"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\ <==
4	/Users/nnunley/parrot/tools/dev/as2c.pl	644	766	
==>ad '$s': $1";
    my ($in_comment);
    $in_comment = 1;
    print "/*\n";
    while (<IN>) {
	next if (/^\f/);		# FF
	next <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1400	1490	
==>n -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1445	1535	
==>n -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1449	1539	
==>n -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29218	29365	
==>,
			"+" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"< <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41324	41471	
==>,
			"+" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"< <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44470	44617	
==>,
			"+" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"< <==
4	/Users/nnunley/parrot/Configure.pl	8667	8764	
==>prompt you for a few
pieces of info.

Since you're running this script, you obviously have Perl 5- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189783	190046	
==>er(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190724	190987	
==>er(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                } <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9435	9565	
==>$nberror;

        };

			$$errstatus == 3	#The next token is not valid: discard it
		and	do {
				$$token eq ''	# End of inp <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9011	9135	
==>$nberror;

        };

			$$errstatus == 3	#The next token is not valid: discard it
		and	do {
				$$token eq ''	# End of inp <==
4	/Users/nnunley/parrot/tools/dev/as2c.pl	397	520	
==>THIS FILE
 *
 * Generated from $s.c via $s.s
 * by '$0 $s'
 */

EOT
}
sub create_s {
    my $cmd = shift;
    my $r = system <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1880	1990	
==>/parrot/lib] .
             "$PATHQUOTE $PATHQUOTE" .
             q[/Users/nnunley/parrot/tools/build/ops2c.pl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	489174	489393	
==>0,
                  "ARGS" => [
                              "i",
                              "n"
                            ],
                  "BODY" => "#line 512 \"src/ops/math.ops\"\n  {{\@1}} = (INTVAL)floor( <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	1896	1982	
==>pes -Winline -Wpointer-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1261	1347	
==>pes -Winline -Wpointer-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1265	1351	
==>pes -Winline -Wpointer-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	6659	6766	
==>pl
 * from definitions in @$definitions
 *
 * Any changes made here will be lost!
 *
 */

/* nci.c
 *  Copyr <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13820	13922	
==>the name of the output file we are
generating.

=cut

sub body
{
    my ($self, $method, $line, $out_na <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29603	29705	
==>the name of the output file we are
generating.

=cut

sub body
{
    my ($self, $method, $line, $out_na <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30245	30347	
==>the name of the output file we are
generating.

=cut

sub body
{
    my ($self, $method, $line, $out_na <==
4	/Users/nnunley/parrot/config/auto/byteorder.pm	707	829	
==>n();

    chomp $byteorder;

    if ($byteorder =~ /^1234/) {
        $conf->data->set(
            byteorder => $byteorder <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	19828	19948	
==>olve';
        $dont_ignore = 1;
        $para->[1]{'target_matching'} = $target_name;
        last; # stop looking at ot <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	69459	69568	
==>ternal error in generated parser code!");
			$@ =~ s/at grammar/in grammar at/;
			_hint($@);
		}
	}

	if ($ER <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4144	4250	
==>e the input, and possibly dump the tokens.
#

sub parse
{
  my $self = shift;

  my $root = $self->block(0) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747661	748015	
==>:base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 842,
                  "ARGS" => [
                              "p",
                              "ic"
                            ] <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5467	5567	
==>('', 'set', [$pair.'[0]',$item]);
      $self->_add_inst ('', 'set', [$pair.'[1]',$return]);
      $s <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17018	17112	
==>('', 'set',[$pair.'[0]',$item]);
    $self->_add_inst ('', 'set',[$pair.'[1]',$return]);
    $s <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6506	6597	
==>('', 'set', [$pair.'[0]',$item]);
  $self->_add_inst('', 'set', [$pair.'[1]',$return]);
  $s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	339629	339941	
==>"NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340627	340939	
==>"NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341626	341938	
==>"NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342625	342937	
==>"NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055963	1056262	
==>> 0,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056854	1057153	
==>> 0,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057746	1058045	
==>> 0,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058638	1058937	
==>> 0,
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240195	240489	
==>r, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241143	241437	
==>r, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242091	242385	
==>r, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243040	243334	
==>r, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6257	6418	
==>ns{DEFAULT}
                        :   undef;
        }
        else {
            $act=$$actions{DEFAULT};
#DBG>			$debug & 0x01
#DBG>		and	print STDERR " <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5966	6121	
==>ns{DEFAULT}
                        :   undef;
        }
        else {
            $act=$$actions{DEFAULT};
#DBG>			$debug & 0x01
#DBG>		and	print STDERR " <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8407	8514	
==>in",d
dim c$(1)
for i = 1 to 20 : read c$(i) : next
print
for i = 1 to 20 step 4
  print c$(i);tab$(12);c$(i <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21271	21378	
==>in",d
dim c$(1)
for i = 1 to 20 : read c$(i) : next
print
for i = 1 to 20 step 4
  print c$(i);tab$(12);c$(i <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	33137	33270	
==>$cmt, $sl_n) = @_;
    my ($v, $w, $vv, $ww);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ( <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	33886	34019	
==>$cmt, $sl_n) = @_;
    my ($v, $w, $vv, $ww);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ( <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	34810	34943	
==>$cmt, $sl_n) = @_;
    my ($v, $w, $vv, $ww);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ( <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22266	22373	
==>aren;
      }

      $self->require_semicolon;

      my $return = Jako::Construct::Statement::Return->new($ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126622	126747	
==>4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127757	127882	
==>4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128892	129017	
==>4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  { <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	2439	2525	
==>_group('Contents', 'See the <code>ExtUtils::Manifest</code> documentation for more info <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189787	190056	
==>nterpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190728	190997	
==>nterpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191667	191936	
==>nterpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192607	192876	
==>nterpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215076	215342	
==>nterpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216017	216283	
==>nterpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216956	217222	
==>nterpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217896	218162	
==>nterpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465602	465821	
==>rc/ops/math.ops\"\n  {{\@1}}--;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	466223	466442	
==>rc/ops/math.ops\"\n  {{\@1}}--;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	27950	28065	
==>$i--) {
	my $p = pop @stack;
	print <<EOC;
	$ar\[$i\] = $p->[1]
EOC
    }
    push @stack, [$n, $ar, 'P'];
}

sub BU <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	9856	9963	
==>mble_ref, $extra_postamble_ref) = @_;

    local $_ = $argtype;
    my $temp_num = ${$temp_cnt_ref}++;
    / <==
4	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	1046	1145	
==>c -q -s -p $net_name > $out_name.pir`;
	if ($output) {
		print "translate failed:\n$output";
		retur <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722401	722497	
==>(interpreter, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_softspace(interpreter, io, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723430	723526	
==>(interpreter, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_softspace(interpreter, io, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724474	724570	
==>(interpreter, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_softspace(interpreter, io, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504014	504161	
==>=> "#line 631 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504869	505016	
==>=> "#line 631 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505724	505871	
==>=> "#line 631 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/tools/build/ops2pm.pl	5544	5668	
==>rot ops.

    =cut
END_POD

my $preamble = <<END_C;
#! perl -w
#
# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
#
# This file is <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8492	8595	
==>f destination is a register then it is up to the SRM to do the store.
	# Otherwise, there's nothing to d <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6312	6415	
==>f destination is a register then it is up to the SRM to do the store.
	# Otherwise, there's nothing to d <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5227	5330	
==>f destination is a register then it is up to the SRM to do the store.
	# Otherwise, there's nothing to d <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	2952	3037	
==>rot::Docs::Section::DynaPMCs>

=item C<Parrot::Docs::Section::C>

=item C<Parrot::Docs <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630662	630892	
==>eter, class));\n    {{\@1}} = pmc_new(interpreter, type);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631652	631882	
==>eter, class));\n    {{\@1}} = pmc_new(interpreter, type);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	562	675	
==>value);
  DEBUG and print "++ $_[1]\n";
  
  print $fh   '  ' x ($_[0]{'indent'} || 0),  "<", $_[1];

  foreach my <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	190	285	
==>seq @selects);
use vars qw( @data $sourceline %common );
use vars qw( %code $debug $runtime_jump <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	14914	15030	
==>nd,
  #   =over, =back, =item
  #   and the null =pod (to be complained about if over one line)
  #
  # "~data" parag <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293436	293546	
==>ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294312	294422	
==>ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295188	295298	
==>ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123890	124176	
==>L){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124764	125050	
==>L){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125638	125924	
==>L){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	6868	6977	
==>erent.
    my %start;
    foreach my $subop (@{ $op->{args} }) {
        my @subop_startset = $subop->startset <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147316	147530	
==>er(interpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148257	148471	
==>er(interpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149197	149411	
==>er(interpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150138	150352	
==>er(interpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1 <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	104	229	
==>ing Parse::Yapp version 1.05.
#
#        Don't edit this file, use source file instead.
#
#             ANY CHANGE MADE HE <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	102	223	
==>ing Parse::Yapp version 1.05.
#
#        Don't edit this file, use source file instead.
#
#             ANY CHANGE MADE HE <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	894	994	
==>macros required by the ops.

=cut

sub defines
{
    return <<END;
#define REL_PC ((size_t)((opcode_t <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1024	1124	
==>macros required by the ops.

=cut

sub defines
{
    return <<END;
#define REL_PC ((size_t)((opcode_t <==
4	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1476	1754	
==>3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
pri <==
4	/Users/nnunley/parrot/examples/mops/mops.pl	1476	1754	
==>3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
pri <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	18679	18797	
==>hcount");

    my ($R_back, @R_ops) = $self->rewrite($R, $check);
    my @ops = (
               aop('set', [ $matchcou <==
4	/Users/nnunley/parrot/Configure.pl	8741	8838	
==>u obviously have Perl 5--I'll be pulling
some defaults from its configuration.
END

# EDIT HERE TO <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19062	19169	
==>}:\n";
		return;
	}
	if ($do->{needstmt}) {
		my $false="0.0";
		feedme();
		my $which=$syms[CURR];
		my($re <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16324	16431	
==>ign;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->forth);
      my $op    = $se <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17095	17202	
==>ign;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->forth);
      my $op    = $se <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17900	18007	
==>ign;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->forth);
      my $op    = $se <==
4	/Users/nnunley/parrot/config/init/defaults.pm	1531	1644	
==>ppropriate.  This setting
        # allows you to override ICU's guess, but is otherwise currently
        # unset <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1468	1569	
==>= shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'op', Attributes => { kind => 'pos <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1462	1563	
==>= shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'op', Attributes => { kind => 'pos <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066981	1067085	
==>LOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068167	1068271	
==>LOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069353	1069457	
==>LOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070540	1070644	
==>LOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	531947	532170	
==>ath.ops\"\n  {{\@1}} = cosh((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	70	168	
==>PullParserToken ();
@ISA = ('Pod::Simple::PullParserToken');
use strict;

sub new {  # Class->new(t <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	72	170	
==>PullParserToken ();
@ISA = ('Pod::Simple::PullParserToken');
use strict;

sub new {  # Class->new(t <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	71	169	
==>PullParserToken ();
@ISA = ('Pod::Simple::PullParserToken');
use strict;

sub new {  # Class->new(t <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	4160	4283	
==>st_name\" = $temp_pmc");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler-> <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1537	1644	
==>ur $PATHQUOTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as they may contain spaces.
    $PATHQU <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1582	1689	
==>ur $PATHQUOTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as they may contain spaces.
    $PATHQU <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1586	1693	
==>ur $PATHQUOTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as they may contain spaces.
    $PATHQU <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22047	22142	
==>ression::Value->new($block, $self->require_value);
        $op    = $self->require_infix_rel->te <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22980	23075	
==>ression::Value->new($block, $self->require_value);
        $op    = $self->require_infix_rel->te <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24626	24721	
==>ression::Value->new($block, $self->require_value);
        $op    = $self->require_infix_rel->te <==
4	/Users/nnunley/parrot/tools/dev/parrotbench.pl	2105	2200	
==>as multiple extensions associated with the same
executable, the last one will be used.  For inst <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5817	5931	
==>$value; # close group $group!;
    return @ops;
}

sub output_getstart {
    my ($self, $reg, $group) = @_;
    $re <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6180	6293	
==>$value # close group $group!;
    return @ops;
}

sub output_getstart {
    my ($self, $reg, $group) = @_;
    $re <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	32325	32433	
==>k

=end _private

=cut

$SIG{__DIE__} = sub {
    # We don't want to muck with death in an eval, but $^S isn' <==
4	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	247	338	
==>t_and_skip.pl

=head1 DESCRIPTION

Recreates MANIFEST and MANIFEST.SKIP from the svn directo <==
4	/Users/nnunley/parrot/config/auto/format.pm	1278	1403	
==>bits)
        # die "long double not supported at this time, use double.";
        $nvsize   = $ldsize;
        $nvformat = "% <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	479	598	
==>wer_ok
%% DOMAIN_ERROR %%
power_ok:
    $N1 = %1
    $N2 = %2
    $N1 = pow $N1, $N2
	%1 = $N1

END_PIR

    '\x{d7}' => <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	31538	31632	
==><$_> is used.

In list context, C<extract_delimited> returns a array of three
elements, the ext <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2080	2173	
==>C and header files for all the PMCs in the library,
I<or> E<lt>libnameE<gt>.c and pmc_E<lt>lib <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	27160	27380	
==>ef, 
                    reason    => 'incrementing test number', 
                    type      => 'unknown', 
                    name      => undef 
                });
            }
        }
        # If backward, wi <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1627	1713	
==>lParserToken>, L<Pod::Simple>, L<Pod::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLA <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2794	2880	
==>lParserToken>, L<Pod::Simple>, L<Pod::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLA <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1914	2000	
==>lParserToken>, L<Pod::Simple>, L<Pod::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLA <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63149	63243	
==>rule("repetition",$line,"$code$argcode($1)");

						!$matchrule and $rule and $rule->addcall($ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63870	63964	
==>rule("repetition",$line,"$code$argcode($1)");

						!$matchrule and $rule and $rule->addcall($ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64586	64680	
==>rule("repetition",$line,"$code$argcode($1)");

						!$matchrule and $rule and $rule->addcall($ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62512	62605	
==>rule("repetition",$line,"$code$argcode($1)");

					!$matchrule and $rule and $rule->addcall($ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1204	1337	
==>illiant wrapping algorithm:
      s/(
         [^\n]{55}         # Snare some characters from a line
         [^\n\ ]{0,50}     #  and <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1148	1281	
==>illiant wrapping algorithm:
      s/(
         [^\n]{55}         # Snare some characters from a line
         [^\n\ ]{0,50}     #  and <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33966	34073	
==>pe = $method->{type};
        $ret_def = "$type ret_val;";
        $func_ret = $self->gen_ret($method->{type <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38928	39035	
==>pe = $method->{type};
        $ret_def = "$type ret_val;";
        $func_ret = $self->gen_ret($method->{type <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714619	714716	
==>&& string_length(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715542	715639	
==>&& string_length(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722306	722403	
==>&& string_length(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723335	723432	
==>&& string_length(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068799	1069096	
==>GS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1193,
                  "AR <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	38249	38380	
==>Return generated code.
	return $pir;
}


# Instruction to PIR routine.
# ###########################
sub ins_to_pir($$) {
	my $ins = <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13358	13457	
==>Expect: 99, 1, "user-type first"
type first
	foo as integer
	bar as string
end type
type second
	oth <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	52278	52374	
==>{
				_parse("a (conditional) reject marker", $aftererror,$line);
				$code =~ /\A\s*<reject:(.*) <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1435	1533	
==>unlikely to ever need to construct an object of this class for
yourself, but if you want to, call
C <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2587	2685	
==>unlikely to ever need to construct an object of this class for
yourself, but if you want to, call
C <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1724	1822	
==>unlikely to ever need to construct an object of this class for
yourself, but if you want to, call
C <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	5930	6025	
==>atch (in which case we return undef).

See also: get_symbol(), which searches only locally.

=cu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905825	906309	
==>S" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1021,
                  "ARGS" => [
                              "s",
                              "p",
                              "ic",
                              "i"
                            ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293493	293804	
==>@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ise <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294369	294680	
==>@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ise <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295245	295556	
==>@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ise <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	2589	2695	
==>all_files.pl'),
            $self->new_item('', 'tools/dev/mk_manifests.pl'),
            $self->new_item(' <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	7094	7196	
==>("$dest_stem$O", "$src_stem.c")) {
        run(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5388	5490	
==>("$dest_stem$O", "$src_stem.c")) {
        run(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	7305	7407	
==>("$dest_stem$O", "$src_stem.c")) {
        run(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or <==
4	/Users/nnunley/parrot/config/gen/platform.pm	3517	3703	
==>.c
        env.c
        dl.c
        stat.c
        math.c
        memalign.c
        signal.c
        itimer.c
        memexec.c
        exec.c
        misc.c
        /;

    open PLATF <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	3004	3101	
==>ement({ Name => 'block' });
    $handler->start_element({ Name => 'block', Attributes => { kind => <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3678	3775	
==>ement({ Name => 'block' });
    $handler->start_element({ Name => 'block', Attributes => { kind => <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3768	3865	
==>ement({ Name => 'block' });
    $handler->start_element({ Name => 'block', Attributes => { kind => <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	9189	9317	
==>'.o',
             'opcode_t' => 'long',
             'opcode_t_size' => 4,
             'ops' => 'src/ops/core.ops src/ops/bit.o <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2619	2728	
==>t = shift || die "No target\n";
    my $silent = shift || 0;
	my $index_html = '';
	
	print "\n\n", $self->nam <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361628	361722	
==>e 281 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362527	362621	
==>e 281 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	29927	30064	
==>to' => [ $handle ]),
                 $next =>
              );
    return ($back, @ops);
}

# Handle a rule definition. $lastback is igno <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	2553	2674	
==>N;
	}
	if ($cur eq ">" or $cur eq "<" or $cur eq "=") { 
		append;
		if ($next eq "=" or $next eq ">") {
			fetch;
			appe <==
4	/Users/nnunley/parrot/config/gen/icu.pm	841	959	
==>efined($icuheaders);

    $self->set_result(undef);
    unless ($without) {
        if (!$autodetect) {
            pri <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	5682	5781	
==>print_space_2d
    if old_type != value_type goto print_space_2d
    goto print_newline

  print_spa <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	1867	1988	
==>X  => $prefix, # Prefix, if given in source code.
    SYMBOLS => { },     # Identifiers
    CONTENT => [ ]      # Construc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	250218	250493	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "not",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	251617	251892	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "not",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	23228	23368	
==>ynasty;
        my $nugget;
        while(@dynasty) {
          DEBUG > 4 and printf
           "    Grafting a new %s node between %s and %s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656523	656845	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657447	657769	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658365	658687	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "F <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	46954	47102	
==>ub
#line 100 "Lua\lua51.yp"
{
            $_[3];
        }
	],
	[#Rule 13
		 '@2-1', 0,
sub
#line 104 "Lua\lua51.yp"
{
            PushSco <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549425	549635	
==>ROT_JUMP_ENEXT",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550725	550935	
==>ROT_JUMP_ENEXT",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552026	552236	
==>ROT_JUMP_ENEXT",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2826	2929	
==>version 3.13 we're normalizing the current
    # working dir to be '.'.
    return (defined $rel_path an <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	11308	11410	
==>}
sub Regex::Ops::Tree::multi_match::render {
    my $op = shift;
    my ($min, $max, $greedy, $R) = @{ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1633	1721	
==>rToken>, L<Pod::Simple>, L<Pod::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

C <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2800	2888	
==>rToken>, L<Pod::Simple>, L<Pod::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

C <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1920	2008	
==>rToken>, L<Pod::Simple>, L<Pod::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

C <==
4	/Users/nnunley/parrot/config/auto/gdbm.pm	1660	1799	
==>t = cc_run();
        unlink "gdbm_test_db";
        if ($test eq "gdbm is working.\n") {
            $has_gdbm = 1;
            print " (ye <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	5963	6069	
==><5
	a=a+1
loop
print a
a=0
do until a>4
	a=a+1
loop
print a
a=0
do
	a=a+1
loop while a<5
print a
a=0
do
	a= <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16508	16614	
==><5
	a=a+1
loop
print a
a=0
do until a>4
	a=a+1
loop
print a
a=0
do
	a=a+1
loop while a<5
print a
a=0
do
	a= <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1687	1788	
==>($ctx);
    return $cgen->output($list_regex->{code}, $ctx);
}

sub compile {
    my ($expr, $ctx, $pa <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7251	7371	
==>->{'pod_para_count'};
        
        $self->_ponder_paragraph_buffer();
         # by now it's safe to consider the pre <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7869	7984	
==>->{'pod_para_count'};
          $self->_ponder_paragraph_buffer();
           # by now it's safe to consider the pre <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	8226	8337	
==>->{'pod_para_count'};
        $self->_ponder_paragraph_buffer();
         # by now it's safe to consider the pre <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	5905	6012	
==>->{'pod_para_count'};
      $self->_ponder_paragraph_buffer();
       # by now it's safe to consider the pre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080589	1080913	
==>er, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081654	1081978	
==>er, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082719	1083043	
==>er, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083785	1084109	
==>er, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	5104	5270	
==>return ( $type, $str );

            s/^(.)//
                and $str .= $1,
                last;
        }
    }

    $parser->Error("Untermined raw string. <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186008	186100	
==>s/cmp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186938	187030	
==>s/cmp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187868	187960	
==>s/cmp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59138	59346	
==>=> "inline",
                  "CODE" => 76,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 901 \"src/ops/core.ops\"\n  PARROT <==
4	/Users/nnunley/parrot/lib/Test/More.pm	8659	8760	
==>cases, use ok().

  ok( exists $brooklyn{tree},    'A tree grows in Brooklyn' );

For those grammatica <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	761	860	
==>{
    return <<END;
#undef CONST
#define REL_PC     ((size_t)(cur_opcode - interpreter->code->base.d <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	877	976	
==>{
    return <<END;
#undef CONST
#define REL_PC     ((size_t)(cur_opcode - interpreter->code->base.d <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2010	2123	
==>the core types.

=cut

sub core_type 
{
    my $self = shift;
    
    die ref($self) . " doesn't have core_type() <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630460	630566	
==>class = {{\@2}};\n    INTVAL type = pmc_type_p(interpreter, class);\n    if (type <= 0)\n        real_excep <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631450	631556	
==>class = {{\@2}};\n    INTVAL type = pmc_type_p(interpreter, class);\n    if (type <= 0)\n        real_excep <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3330	3420	
==>stants in Perl", in I<The Perl Journal> issue
21.  See L<http://www.sysadminmag.com/tpj/iss <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4391	4488	
==>$ot2, EQ_$eqnum
	set $result, 1.0
EQ_$eqnum: noop
CODE
	},
	'or' => sub {
		my($a1,$a2,$result,$op <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11387	11481	
==>:Construct::Expression::Value::Identifier->new($block, $token);
      my $op    = substr($self- <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11934	12028	
==>:Construct::Expression::Value::Identifier->new($block, $token);
      my $op    = substr($self- <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12477	12571	
==>:Construct::Expression::Value::Identifier->new($block, $token);
      my $op    = substr($self- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710867	711110	
==>, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711701	711944	
==>, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712807	713050	
==>, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713914	714157	
==>, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067159	1067288	
==>c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "exper <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068345	1068474	
==>c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "exper <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069531	1069660	
==>c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "exper <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070718	1070847	
==>c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "exper <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332640	332744	
==>(mode); */\n  /* TODO all results from string_to_cstring() need freeing\n     but this generates ugly war <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333918	334022	
==>(mode); */\n  /* TODO all results from string_to_cstring() need freeing\n     but this generates ugly war <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335196	335300	
==>(mode); */\n  /* TODO all results from string_to_cstring() need freeing\n     but this generates ugly war <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336475	336579	
==>(mode); */\n  /* TODO all results from string_to_cstring() need freeing\n     but this generates ugly war <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	12447	12577	
==>=> 'perl -MExtUtils::Command -e touch',
             'unsetenv' => 1,
             'va_ptr_type' => 'x86',
             'verbose' = <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	7940	8049	
==>ss ($has_code) {
        die "Mandatory entry code missing in rule $rule->{'name'}\n";
    }
    unless ($has_ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5503	5602	
==>urn <<'PIR';
# See if we've got a return or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RET <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6948	7046	
==>urn <<'PIR'
# See if we've got a return or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RET <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	339631	339943	
==>AME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340629	340941	
==>AME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341628	341940	
==>AME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342627	342939	
==>AME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11415	11507	
==>a return. See if we have a return value.
PRE_CALL_RETURN_${CURIC}:
${ITEMP0} = elements ${DTY <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8601	8693	
==>a return. See if we have a return value.
PRE_CALL_RETURN_${CURIC}:
${ITEMP0} = elements ${DTY <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7173	7265	
==>a return. See if we have a return value.
PRE_CALL_RETURN_${CURIC}:
${ITEMP0} = elements ${DTY <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1230	1322	
==>)

#define OP_AS_OFFS(o) (_reg_base + ((opcode_t*)cur_opcode)[o])

END
}

=item C<goto_addres <==
4	/Users/nnunley/parrot/config/gen/parrot_include.pm	1213	1330	
==>enum='enum'
        my ($inc, $prefix, $last_val, $subst, %values);
        my (%var, $match, $block);
        open F, <==
4	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	5141	5245	
==>ns
   # Checkout is done either with svn or svk
   my $svn_cmd;
   if (defined $Parrot::Revision::svn_ent <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	9442	9545	
==>39\x3B-\x40\x5B-\x5E\x60\x7B-\x7F]/
            # Characters under 0x80 that aren't legal in an XML Name <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	10706	10809	
==>39\x3B-\x40\x5B-\x5E\x60\x7B-\x7F]/
            # Characters under 0x80 that aren't legal in an XML Name <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	2717	2823	
==>fest_and_skip.pl'),
            $self->new_item('', 'tools/dev/rebuild_miniparrot.pl'),
            $self-> <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	13906	14006	
==>alt_S');
    my $next = $self->genlabel('next');

    my ($R_back, @R_ops) = $self->rewrite($R, $next <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5252	5349	
==>a2
	set $result, 0.0
	eq $a1, $ot1, EQ_${eqnum}_a
	inc $result
EQ_${eqnum}_a:
	eq $a2, $ot2, EQ_$e <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5628	5725	
==>a2
	set $result, 0.0
	eq $a1, $ot1, EQ_${eqnum}_a
	inc $result
EQ_${eqnum}_a:
	eq $a2, $ot2, EQ_$e <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151128	151410	
==>er, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152106	152388	
==>er, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172356	172638	
==>er, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173334	173616	
==>er, {{\@1}}), {{\@2}})) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227080	227349	
==>YPE" => "function",
                  "CODE" => 265,
                  "ARGS" => [
                              "p",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 530 \"src/ops/cm <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126517	126616	
==>line 271 \"src/ops/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127652	127751	
==>line 271 \"src/ops/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128787	128886	
==>line 271 \"src/ops/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200013	200112	
==>DY" => "#line 373 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200910	201009	
==>DY" => "#line 373 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201807	201906	
==>DY" => "#line 373 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4 <==
4	/Users/nnunley/parrot/config/auto/cgoto.pm	1399	1483	
==>DIR)/core_ops_cg.c : $(OPS_FILES) $(BUILD_TOOLS_DIR)/ops2c.pl lib/Parrot/OpsFile.pm l <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940320	940420	
==>"#line 486 \"src/ops/string.ops\"\n    {{\@1}} = string_split(interpreter, {{\@2}}, {{\@3}});\n    {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941212	941312	
==>"#line 486 \"src/ops/string.ops\"\n    {{\@1}} = string_split(interpreter, {{\@2}}, {{\@3}});\n    {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942104	942204	
==>"#line 486 \"src/ops/string.ops\"\n    {{\@1}} = string_split(interpreter, {{\@2}}, {{\@3}});\n    {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942997	943097	
==>"#line 486 \"src/ops/string.ops\"\n    {{\@1}} = string_split(interpreter, {{\@2}}, {{\@3}});\n    {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926180	926304	
==>eak;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927650	927774	
==>eak;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929120	929244	
==>eak;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930591	930715	
==>eak;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case <==
4	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3345	3478	
==>y $id = $num + 1;
        print OUT "\t$pmcs[$num] => $id,\n";
    }

    print OUT <<'END_PM';
);

1;
END_PM

    close OUT;

    mov <==
4	/Users/nnunley/parrot/tools/build/ops2c.pl	7145	7265	
==>x =~ /switch/) {
	$definition = "case $index:";
	$comment    = "/* ". $op->full_name() ." */";
    }
    else {
        $ <==
4	/Users/nnunley/parrot/tools/dev/install_files.pl	610	705	
==>tem C<prefix>

The install prefix. Defaults to '/usr'.

=item C<exec_prefix>

The exec prefix. D <==
4	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	839	934	
==>tem C<prefix>

The install prefix. Defaults to '/usr'.

=item C<exec_prefix>

The exec prefix. D <==
4	/Users/nnunley/parrot/config/init/miniparrot.pm	1038	1208	
==>EL') . '-miniparrot',
        TEMP_cg_h          => '',
        TEMP_cg_c          => '',
        TEMP_cg_o          => '',
        TEMP_cg_r          => '',
        cg_fl <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29405	29545	
==>T => -112
	},
	{#State 91
		ACTIONS => {
			"=" => 143
		},
		DEFAULT => -45
	},
	{#State 92
		ACTIONS => {
			"}" => 144
		}
	}, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840124	840211	
==>ODY" => "#line 272 \"src/ops/stack.ops\"\n  rotate_entries(interpreter, &CONTEXT(interpr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840819	840906	
==>ODY" => "#line 272 \"src/ops/stack.ops\"\n  rotate_entries(interpreter, &CONTEXT(interpr <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1381	1494	
==>ro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($self, $addr) = @_;

    #print STDE <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1906	2019	
==>ro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($self, $addr) = @_;

    #print STDE <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1797	1910	
==>ro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($self, $addr) = @_;

    #print STDE <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1521	1634	
==>ro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($self, $addr) = @_;

    #print STDE <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34528	34632	
==>_ret );

=item C<implements($method)>

Always true.

=cut

sub implements
{
    return 1;
}

=item C<body <==
4	/Users/nnunley/parrot/config/init/hints/linux.pm	258	372	
==>>get('libs');
    my $cflags    = $conf->data->get('ccflags');
    my $cc        = $conf->data->get('cc');
    my $ <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	18380	18479	
==>rapos = pos($$textref);
		$$textref =~ m{.*\n}gc;
		$str1pos = pos($$textref);
		unless ($$textref = <==
4	/Users/nnunley/parrot/lib/Test/More.pm	22930	23027	
==>odo tests, it's best to have the tests actually run.  That way
you'll know when they start passing <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	7660	7765	
==>ions, \@args)
sub ' . $namespace . '::' . $self->{"name"} .  '
{
	my $thisparser = $_[0];
	$ERRORS = 0;
	m <==
4	/Users/nnunley/parrot/config/init/hints/solaris.pm	163	270	
==>e strict;

use Parrot::Configure::Step qw(cc_gen cc_run);

sub runstep
{
    my ($self, $conf) = @_;

    my <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18710	18816	
==>e->new($block, $self->require_value);
          last if $self->get(1)->is_close_paren;
          $self->req <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19736	19842	
==>e->new($block, $self->require_value);
          last if $self->get(1)->is_close_paren;
          $self->req <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	7620	7713	
==>RE: ($parser, $text; $repeating, $_noactions, \@args)
sub ' . $namespace . '::' . $self->{"nam <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	18647	18752	
==>rt
    derivation from created classes.

    Added classname prefixes to keys in hash-based classes
    (r <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576512	576599	
==>string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577524	577611	
==>string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, {{\ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1355	1439	
==>ako::Construct::Statement::Increment;
use Jako::Construct::Statement::LoopControl;
us <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73223	73545	
==>j_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74825	75147	
==>j_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76427	76749	
==>j_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78030	78352	
==>j_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867296	867563	
==>@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868262	868529	
==>@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869228	869495	
==>@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870195	870462	
==>@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	241	337	
==>-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Dec <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	247	343	
==>-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Dec <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	237	333	
==>-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Dec <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	247	343	
==>-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Dec <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712686	712790	
==>,\n\tconst_string(interpreter, \"e\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713793	713897	
==>,\n\tconst_string(interpreter, \"e\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720153	720257	
==>,\n\tconst_string(interpreter, \"e\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721353	721457	
==>,\n\tconst_string(interpreter, \"e\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	7425	7530	
==>.. );

    # Declare struct at compile time
    use Class::Struct CLASS_NAME => [ ELEMENT_NAME => ELEMENT_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062523	1062612	
==>rpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpreter, ns_root, {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063392	1063481	
==>rpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpreter, ns_root, {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064262	1064351	
==>rpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpreter, ns_root, {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947180	947419	
==>'%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948082	948321	
==>'%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957629	957868	
==>'%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958534	958773	
==>'%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	31043	31143	
==>h of end of test sanity checks to make sure reality came
through ok.  If anything is wrong it will di <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	37025	37117	
==>hwern E<lt>schwern@pobox.comE<gt>.

This program is free software; you can redistribute it an <==
4	/Users/nnunley/parrot/lib/Test/More.pm	37434	37526	
==>hwern E<lt>schwern@pobox.comE<gt>.

This program is free software; you can redistribute it an <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	6394	6486	
==>hwern E<lt>schwern@pobox.comE<gt>.

This program is free software; you can redistribute it an <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940259	940401	
==>"
                            ],
                  "BODY" => "#line 486 \"src/ops/string.ops\"\n    {{\@1}} = string_split(interpreter, {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941151	941293	
==>"
                            ],
                  "BODY" => "#line 486 \"src/ops/string.ops\"\n    {{\@1}} = string_split(interpreter, {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942043	942185	
==>"
                            ],
                  "BODY" => "#line 486 \"src/ops/string.ops\"\n    {{\@1}} = string_split(interpreter, {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942936	943078	
==>"
                            ],
                  "BODY" => "#line 486 \"src/ops/string.ops\"\n    {{\@1}} = string_split(interpreter, {{\@2}} <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5039	5147	
==>urn 0;
}

sub generate_c {
    my ($oplib) = @_;
	
	foreach (keys %cores) {
		if (needs_build($oplib . "_ops$ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2080	2178	
==>pe, we want to complain
  # about the redefinition. Otherwise, we assume the programmer wanted to s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1600	1698	
==>pe, we want to complain
  # about the redefinition. Otherwise, we assume the programmer wanted to s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1827	1925	
==>pe, we want to complain
  # about the redefinition. Otherwise, we assume the programmer wanted to s <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	3671	3834	
==>m(
                '', 
                'pairs' => ['stacks'], 
                'sources' => ['stack_common']
            ),
            $self->c_header_item('', 'e <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1982	2113	
==>>get('ask')) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    # if '--version' re <==
4	/Users/nnunley/parrot/config/inter/make.pm	1856	1987	
==>>get('ask')) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    # if '--version' re <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1996	2127	
==>>get('ask')) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    # if '--version' re <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8128	8270	
==>', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8910	9052	
==>', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7781	7923	
==>', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8570	8712	
==>', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634740	634831	
==>int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635858	635949	
==>int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636976	637067	
==>int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638095	638186	
==>int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459952	460240	
==>{{\@1}} = {{\@2}} % den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460940	461228	
==>{{\@1}} = {{\@2}} % den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461928	462216	
==>{{\@1}} = {{\@2}} % den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11180	11294	
==>t @_)->is_text );
        if(   $t->is_start and $t->tag eq 'X') { ++$x_open }
        elsif($t->is_end   and $t->t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960991	961077	
==>= new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961953	962039	
==>= new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962915	963001	
==>= new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963878	963964	
==>= new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	220819	221091	
==>_STRCMP) > 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/tools/build/headerize.pl	3059	3188	
==>nfig{slash}ops\E/;

        my $cfile = $ofile;
        $cfile =~ s/\Q$PConfig{o}\E$/.c/;

        my $pmcfile = $ofile;
        $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18627	18732	
==>aren) {
        while (1) {
          push @args, Jako::Construct::Expression::Value->new($block, $self->r <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19653	19758	
==>aren) {
        while (1) {
          push @args, Jako::Construct::Expression::Value->new($block, $self->r <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502438	502603	
==>,
                  "BODY" => "#line 626 \"src/ops/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503177	503342	
==>,
                  "BODY" => "#line 626 \"src/ops/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	4450	4549	
==>cs = grep { ! exists $pmc_group->{$_} } @pmcs;
    partial_link($_, $pmc_libs->{$_}, [ $_ ] ) foreac <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	4554	4653	
==>cs = grep { ! exists $pmc_group->{$_} } @pmcs;
    partial_link($_, $pmc_libs->{$_}, [ $_ ] ) foreac <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607631	607934	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getattribute", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608535	608838	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getattribute", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609442	609745	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getattribute", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	371983	372232	
==>,
                  "NAME" => "peek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9563	9655	
==>et details of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method_inf <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7077	7169	
==>et details of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method_inf <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5633	5725	
==>et details of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method_inf <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7853	7945	
==>et details of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method_inf <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	622450	622679	
==>=> "pic_set_returns__",
                  "FLAGS" => ":pic",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143572	143685	
==>string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144500	144613	
==>string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145428	145541	
==>string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	932	1082	
==>'"; # JMG
        binmode LANG; # JMG
        print LANG $lang_code; # JMG
        close LANG; # JMG

        Parrot::Test::run_command( 
            " <==
4	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	844	994	
==>'"; # JMG
        binmode LANG; # JMG
        print LANG $lang_code; # JMG
        close LANG; # JMG

        Parrot::Test::run_command( 
            " <==
4	/Users/nnunley/parrot/config/gen/config_h.pm	808	935	
==>=> '/*',
        ignorePattern     => 'PARROT_CONFIG_DATE',
        conditioned_lines => 1
    );

    genfile(
        'config/ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	2672	2792	
==>LOCKS}};
}


#
# block()
#

sub block
{
  my $self = shift;

  return $self->{BLOCKS}[shift];
}


#
# block_depth()
#
# B <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099049	1099177	
==>/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e ! <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100247	1100375	
==>/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e ! <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101445	1101573	
==>/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e ! <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102644	1102772	
==>/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e ! <==
4	/Users/nnunley/parrot/config/auto/cgoto.pm	541	654	
==>b runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('s <==
4	/Users/nnunley/parrot/config/auto/headers.pm	476	589	
==>b runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('s <==
4	/Users/nnunley/parrot/config/auto/jit.pm	627	740	
==>b runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('s <==
4	/Users/nnunley/parrot/config/gen/cpu.pm	539	652	
==>b runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	34474	34713	
==>> "inline",
                  "CODE" => 43,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 632 \"src/ops/core.ops\"\n  {{\ <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1843	1978	
==>compile_cmd {
    my ($target, $source) = @_;

    return
        "$CC $CFLAGS " .
        "-o " . $target . " " .
        "-I" . $PATHQ <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2139	2274	
==>compile_cmd {
    my ($target, $source) = @_;

    return
        "$CC $CFLAGS " .
        "-o " . $target . " " .
        "-I" . $PATHQ <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1934	2069	
==>compile_cmd {
    my ($target, $source) = @_;

    return
        "$CC $CFLAGS " .
        "-o " . $target . " " .
        "-I" . $PATHQ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072966	1073355	
==>tal" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075151	1075540	
==>tal" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077336	1077725	
==>tal" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLA <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	10528	10624	
==>ir declares one element of the struct. Each
element name will be defined as an accessor method un <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52801	53063	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gc_debug",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53556	53818	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gc_debug",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	2630	2730	
==>complain to stderr

  'doc_has_started',   # whether we've fired the open-Document event yet

  'bare <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	276	366	
==>head1 DESCRIPTION

A documentation section describing Parrot's configuration system.

=head <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107151	107409	
==>s/bit.ops\"\n  {{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108005	108263	
==>s/bit.ops\"\n  {{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108859	109117	
==>s/bit.ops\"\n  {{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	4784	4913	
==>\n  }\n";

    # Create accessor methods.

    my( $pre, $pst, $sel );
    $cnt = 0;
    foreach $name (@methods){
        if ( do <==
4	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	2320	2446	
==>_[1]+$b ' . $MSK . 
        ', $_[2]+$c' . $MSK . ', $_[3]+$d' . $MSK . ';
  }';
  eval $dump;
  #print "$dump\n";
  #exit 0;
} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126627	126751	
==>n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127762	127886	
==>n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128897	129021	
==>n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1 <==
4	/Users/nnunley/parrot/tools/build/ops2c.pl	2469	2598	
==>nes"      => \$nolines_flag,
    "help"          => \$help_flag,
    "dynamic|d"     => \$dynamic_flag,
    "core"          => \$c <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1081	1201	
==>op,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => $dest->file,
    LINE  => $dest->line
  }, $class;

  $block->push <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1072	1192	
==>op,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => $dest->file,
    LINE  => $dest->line
  }, $class;

  $block->push <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	961	1081	
==>op,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => $dest->file,
    LINE  => $dest->line
  }, $class;

  $block->push <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340228	340340	
==>ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341227	341339	
==>ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342226	342338	
==>ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343226	343338	
==>ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040759	1041112	
==>"i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1163,
                  "ARGS" => [
                              "s",
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line 120 <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	3097	3198	
==>$pc, $line ,$opcode, $arg, $rest);
    if ($l =~ /Disassembly of <?([\w:]+)>?/) {
	push @code, [ 0, 0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	899	987	
==>efine IREG(i) REG_INT(cur_opcode[i])
#define NREG(i) REG_NUM(cur_opcode[i])
#define PREG( <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1015	1103	
==>efine IREG(i) REG_INT(cur_opcode[i])
#define NREG(i) REG_NUM(cur_opcode[i])
#define PREG( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73087	73178	
==>ass_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74689	74780	
==>ass_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76291	76382	
==>ass_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77894	77985	
==>ass_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766500	766605	
==>ne 335 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767353	767458	
==>ne 335 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768206	768311	
==>ne 335 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769060	769165	
==>ne 335 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614672	614878	
==>i",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 508 \"src/ops/object.ops\"\n    opcode_t *next = {{^+4}};\n    INTVA <==
4	/Users/nnunley/parrot/config/auto/m4.pm	632	740	
==>= @_;

    my $archname = $Config{archname};
    my ($cpuarch, $osname) = split('-', $archname);
    if (!def <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	20347	20448	
==>accept either, but avoid mixing the two styles.

Defaults to on.

=cut

sub use_numbers {
    my($self <==
4	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	7447	7537	
==>o representations concerning either
the merchantability of this software or the suitability <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	21191	21329	
==>) <=> hex($1)
            } @rules;
            $pir .= "B2_BRANCH_$_:\n";
            $pir .= "    cur_ic = bc.read_uint8()\n    next_pc + <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28075	28178	
==>scent::expected
				   = $Parse::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = ( <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30149	30252	
==>scent::expected
				   = $Parse::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = ( <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32350	32453	
==>scent::expected
				   = $Parse::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = ( <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	45607	45719	
==>ce myself and the next line
    DEBUG > 10 and print "Nixed count: ", scalar(@nixed), "\n";
    
    DEBUG > 6 an <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	603	712	
==>Multiply', '%1 = %1 * %2' ],
    '\x{f7}' => [ 'Divide', '%1 = %1 / %2' ],
    '\u2212' => [ 'Subtract', '%1 = <==
4	/Users/nnunley/parrot/examples/benchmarks/mops.pl	219	310	
==>% perl examples/mops/mops.pl

=head1 DESCRIPTION

A Perl implementation of the F<examples/mo <==
4	/Users/nnunley/parrot/examples/mops/mops.pl	215	306	
==>% perl examples/mops/mops.pl

=head1 DESCRIPTION

A Perl implementation of the F<examples/mo <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934084	934315	
==>ring_downcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934859	935090	
==>ring_downcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	24202	24331	
==>$paras;
        push @$paras, $para, $para;
         # We need two -- once for the next cycle where we
         #  generate errata <==
4	/Users/nnunley/parrot/tools/build/ops2pm.pl	4227	4327	
==>} = sort { $a->{CODE} <=> $b->{CODE} } (@{$ops->{OPS}} );
}

# create opsfile with valid ops from ops <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71829	72233	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73430	73834	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75032	75436	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76634	77038	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099410	1099733	
==>,
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "po <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100608	1100931	
==>,
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "po <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101806	1102129	
==>,
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "po <==
4	/Users/nnunley/parrot/tools/build/ops2c.pl	3210	3310	
==>e =~ s/\.ops$//;

my $incdir  = "include/parrot/oplib";
my $include = "parrot/oplib/${base}_ops${suff <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75643	75813	
==>",
                              "sc"
                            ],
                  "BODY" => "#line 1156 \"src/ops/core.ops\"\n  char * const name = string_to_cstring( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77246	77416	
==>",
                              "sc"
                            ],
                  "BODY" => "#line 1156 \"src/ops/core.ops\"\n  char * const name = string_to_cstring( <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	3006	3115	
==>ntent($self);

  return $self;
}


#
# ACCESSORS:
#

# block handled by superclass?
# access handled by superc <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13579	13683	
==>re ending the 'while' block, we might be beginning the 'continue'
      # block, so we check for that cas <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849857	849990	
==>e 83 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850744	850877	
==>e 83 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851631	851764	
==>e 83 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852519	852652	
==>e 83 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8151	8304	
==>};

                $$check eq 'ABORT'
            and	do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Abort.\n";

				return(undef);

			} <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7784	7927	
==>};

                $$check eq 'ABORT'
            and	do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Abort.\n";

				return(undef);

			} <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	6271	6390	
==>files($recursive, $ignore))
    {
        $suffixes{$file->suffix} = 1;
    }
    
    return sort keys %suffixes;
}

=i <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	4183	4290	
==>y $self = shift;
  push @{$self->{instruction}}, [@_];
}

sub generate {
  my ($code, $name) = @_;

  die "$ <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	32350	32496	
==>=> 31,
			'explist1' => 158,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 113
		A <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32998	33107	
==>t it generates.
		my $pre_store = $srm->pre_store($dest_reg);
		$pir .= "### pre_store\n";
		$pir .= sub_meta( <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14912	15010	
==>de,1));
  die "car: Element not pair\n" unless $return =~ /^P/;
  $self->_add_inst ('', 'set', [$re <==
4	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	15542	15639	
==>re are defined in include/parrot/op.h
        or_flag(\$jumps, "PARROT_JUMP_RELATIVE")   if ($bran <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30421	30520	
==>elf->{class}, $method, 0);
    my $classname = $self->{class};
    my $parentname = $self->{parentna <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2083	2174	
==>handler->start_element({ Name => 'loop', Attributes => { kind => $self->kind, name => $self- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807853	807941	
==>e 502 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed(interpreter, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808758	808846	
==>e 502 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed(interpreter, { <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1447	1546	
==>DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT = qq[];

# Here comes some stuff for Win32.
our $PATHQU <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1492	1591	
==>DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT = qq[];

# Here comes some stuff for Win32.
our $PATHQU <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1496	1595	
==>DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT = qq[];

# Here comes some stuff for Win32.
our $PATHQU <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	2244	2338	
==>ed.

Next, each method body is processed with various directives (see below)
getting replaced b <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1864	1965	
==>OFFSET($offset)> macro in an ops file into the
relevant C code.

=cut

sub goto_offset
{
    my ($self <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2513	2614	
==>OFFSET($offset)> macro in an ops file into the
relevant C code.

=cut

sub goto_offset
{
    my ($self <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2232	2333	
==>OFFSET($offset)> macro in an ops file into the
relevant C code.

=cut

sub goto_offset
{
    my ($self <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2193	2294	
==>OFFSET($offset)> macro in an ops file into the
relevant C code.

=cut

sub goto_offset
{
    my ($self <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579627	579721	
==>nterpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580932	581026	
==>nterpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582237	582331	
==>nterpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583543	583637	
==>nterpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next} <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	5310	5416	
==>$self->get(1)->text)
    unless grep { $self->get(1)->kind eq $_ } @_;

  return $self->forth;
}


#
# REQU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584460	584557	
==>ookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_e <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585535	585632	
==>ookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_e <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597976	598073	
==>ookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_e <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599023	599120	
==>ookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_e <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867274	867536	
==>ubstr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868240	868502	
==>ubstr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869206	869468	
==>ubstr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870173	870435	
==>ubstr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	5947	6065	
==>condition is true.
            if ($line =~ m/^#CONDITIONED_LINE\(([^)]+)\):(.*)/s) {
                next unless $conf <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	617183	617291	
==>INTVAL lr_types;\n\n    mic = (Parrot_MIC *) cur_opcode[1];\n    left = {{\@2}};\n    right = {{\@3}};\n    l <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327041	327127	
==>ODY" => "#line 154 \"src/ops/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327843	327929	
==>ODY" => "#line 154 \"src/ops/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071060	1071380	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073244	1073564	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075429	1075749	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077614	1077934	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818877	819012	
==>\n  Parrot_pop_regs(interpreter);\n  {{=0,+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1903	2018	
==>hey provided appears to be
    # broken
    if ($ret == -1 and !$conf->options->get('ask')) {

        # fall back t <==
4	/Users/nnunley/parrot/config/inter/make.pm	1777	1892	
==>hey provided appears to be
    # broken
    if ($ret == -1 and !$conf->options->get('ask')) {

        # fall back t <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1917	2032	
==>hey provided appears to be
    # broken
    if ($ret == -1 and !$conf->options->get('ask')) {

        # fall back t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113174	113478	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115505	115809	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116360	116664	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core" <==
4	/Users/nnunley/parrot/config/auto/byteorder.pm	413	511	
==>ep::Base);

$description = q{Computing native byteorder for Parrot's wordsize};

@args = ();

sub r <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071955	1072071	
==>TVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  I <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074140	1074256	
==>TVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  I <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076325	1076441	
==>TVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  I <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078511	1078627	
==>TVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  I <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	14322	14439	
==>namespace of func
	    # but can't create namespace yet
	    my $gn = "def_arg_" . ($n-$i-1);
	    print <<EOC;
	# $gn <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1108706	1108811	
==>ion(interpreter, NULL, NO_CLASS,\n                    \"Class '%Ss' not found\", readable_name(interpreter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630568	630665	
==>ion(interpreter, NULL, NO_CLASS,\n            \"Class '%Ss' not found\", readable_name(interpreter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631558	631655	
==>ion(interpreter, NULL, NO_CLASS,\n            \"Class '%Ss' not found\", readable_name(interpreter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680942	681239	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681718	682015	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682492	682789	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683267	683564	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	13948	14071	
==>t
    .param pmc op1

    $S0 = aplformat(op1)
    .local pmc result
    result = new 'APLVector'
    $I0 = 0
    $I1 = leng <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126533	126635	
==>ps/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  INTVAL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127668	127770	
==>ps/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  INTVAL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128803	128905	
==>ps/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  INTVAL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847574	847845	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848353	848624	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849133	849404	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	16452	16556	
==>print CODE qq{\tunshift P9, "or"\n};
	}
	if ($ops) {
		print CODE<<OPS;
	I5= P14
	div I5, I5, 2
CASE_${ju <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712709	712813	
==>preter, \"e\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713816	713920	
==>preter, \"e\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720176	720280	
==>preter, \"e\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721376	721480	
==>preter, \"e\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4662	4776	
==>ift;
	my $pops = shift;
	my $register_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3078	3192	
==>ift;
	my $pops = shift;
	my $register_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1945	2046	
==>block = $self->block;
  my $kind  = $self->kind;
  my $name  = $self->ident ? $self->ident->value : un <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3061	3162	
==>block = $self->block;
  my $kind  = $self->kind;
  my $name  = $self->ident ? $self->ident->value : un <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084773	1084910	
==>interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085826	1085963	
==>interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086879	1087016	
==>interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087933	1088070	
==>interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926697	927002	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928167	928472	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929637	929942	
==>}\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringi <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25084	25202	
==>> <op> <value>) {
    #   unless (<value> <op> <value>) {
    #

    if ($token->is_if or $token->is_unless) {
      my <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293499	293806	
==>== 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294375	294682	
==>== 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295251	295558	
==>== 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq" <==
4	/Users/nnunley/parrot/config/auto/pack.pm	2067	2188	
==>ype_b => 'C',
        packtype_n => ($conf->data->get('numvalsize') == 12 ? 'D' : 'd')
    );

    #
    # Find out what i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765849	766150	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766701	767002	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767554	767855	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768407	768708	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	14661	14761	
==>hichop, $line ) = @_;
	push @{$self->{op}},
		{ type=>$whichop, line=>$line,
		  offset=> scalar(@{$s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557993	558082	
==>preter->current_cont) |= SUB_FLAG_TAILCALL;\n  interpreter->current_object = object;\n  in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559377	559466	
==>preter->current_cont) |= SUB_FLAG_TAILCALL;\n  interpreter->current_object = object;\n  in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560749	560838	
==>preter->current_cont) |= SUB_FLAG_TAILCALL;\n  interpreter->current_object = object;\n  in <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1942	2056	
==>$target . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/include' . $PATHQUOTE . " " .
        "-I" . $PA <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2238	2352	
==>$target . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/include' . $PATHQUOTE . " " .
        "-I" . $PA <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2033	2147	
==>$target . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/include' . $PATHQUOTE . " " .
        "-I" . $PA <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	38835	38934	
==>il =E<gt> $str>

The C<fail> option indicates the action to be taken if a matching end
tag is not en <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	898	994	
==>tart_Para  {  $_[0]{'Thispara'} = '' }
sub start_head1 {  $_[0]{'Thispara'} = '' }
sub start_head <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185984	186075	
==>" => "#line 292 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) < 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186914	187005	
==>" => "#line 292 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) < 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187844	187935	
==>" => "#line 292 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) < 0 <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	3939	4098	
==>' => '',
             'i_crypt' => undef,
             'i_db' => 'define',
             'i_dbm' => undef,
             'i_dirent' => 'define',
             'i_d <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10268	10390	
==>k: aborting.\n";

			return(undef);
		};

		#shift the error token

#DBG>			$debug & 0x10
#DBG>		and	print STDERR " <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9808	9922	
==>k: aborting.\n";

			return(undef);
		};

		#shift the error token

#DBG>			$debug & 0x10
#DBG>		and	print STDERR " <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	6090	6183	
==>em C<slurp_file($file_name)>

Read the whole file $file_name and return the content as a strin <==
4	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	14091	14210	
==>\)/{{+=$1}}/mg;
                      $body =~ s/\bgoto\s+NEXT\(\)/{{+=$op_size}}/mg;
        $absolute ||= $body =~ s/\ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16017	16120	
==>t
      and $self->get(1)->is_assign
      and $self->get(2)->is_value
      and $self->get(3)->is_infix <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16787	16890	
==>t
      and $self->get(1)->is_assign
      and $self->get(2)->is_value
      and $self->get(3)->is_infix <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17595	17698	
==>t
      and $self->get(1)->is_assign
      and $self->get(2)->is_value
      and $self->get(3)->is_infix <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568770	569076	
==>AME" => "isa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 6 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569662	569968	
==>AME" => "isa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 6 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570555	570861	
==>AME" => "isa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 6 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571509	571815	
==>AME" => "isa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 6 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133873	134095	
==>e_xor(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134654	134876	
==>e_xor(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6490	6643	
==>and do {

                $act > 0
            and do {        #shift

#DBG>				$debug & 0x04
#DBG>			and	print STDERR "Shift and go to state $act.\ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6189	6336	
==>and do {

                $act > 0
            and do {        #shift

#DBG>				$debug & 0x04
#DBG>			and	print STDERR "Shift and go to state $act.\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777087	777329	
==>number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777996	778238	
==>number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778905	779147	
==>number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779815	780057	
==>number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099178	1099302	
==>= 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100376	1100500	
==>= 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101574	1101698	
==>= 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102773	1102897	
==>= 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn <==
4	/Users/nnunley/parrot/tools/dev/nm.pl	2796	2892	
==>.a | other_library_format ]
Portable frontend for nm(1); by default lists all the code and data s <==
4	/Users/nnunley/parrot/lib/Test/More.pm	35039	35134	
==>ible testing functions for
complex data structures.


=item Threads

Test::More will only be awa <==
4	/Users/nnunley/parrot/config/init/hints/mswin32.pm	6507	6595	
==>gdi32 -lwinspool -lcomdlg32 -ladvapi32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid -lw <==
4	/Users/nnunley/parrot/config/init/hints/msys.pm	398	486	
==>gdi32 -lwinspool -lcomdlg32 -ladvapi32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid -lw <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8110	8260	
==>"Accept.\n";

				return($semval);
			};

                $$check eq 'ABORT'
            and	do {

#DBG>			$debug & 0x04
#DBG>		and	print STDE <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7746	7887	
==>"Accept.\n";

				return($semval);
			};

                $$check eq 'ABORT'
            and	do {

#DBG>			$debug & 0x04
#DBG>		and	print STDE <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	1114	1227	
==>_dump) = (shift, shift, shift);
    my %pmcs = @_;

    foreach my $file (keys %pmcs) {
        $pmcs{$file}->{vta <==
4	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	2408	2505	
==>he salt and chick peas and cook, stirring, until heated through.

Stir in the lime juice, and opti <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	15948	16070	
==>EFAULT => -34
	},
	{#State 41
		ACTIONS => {
			"." => 60
		}
	},
	{#State 42
		DEFAULT => -18
	},
	{#State 43
		DEFAULT => <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15062	15175	
==>$1):(ord($1)-65536)).'?'/eg;
    }
    return;
  } elsif(wantarray) {  # return an array
    return map {; ($x = $ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16245	16358	
==>$1):(ord($1)-65536)).'?'/eg;
    }
    return;
  } elsif(wantarray) {  # return an array
    return map {; ($x = $ <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3532	3638	
==>applies here.

=cut

sub pgeglob_isnt {
    my ($target, $pattern) = (shift, shift);

    unshift @_ => 'fa <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27662	27788	
==>h @opcodes, new LabelOp( $parser,
        'arg1' => $l_continue,
    );
    foreach my $op ( @{$block} ) {
        if ( $op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327103	327242	
==>set_integer_native(interpreter, {{\@1}}, (INTVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327905	328044	
==>set_integer_native(interpreter, {{\@1}}, (INTVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/editor/kate_syntax.pl	2830	2933	
==><<END;
    </list>

    <contexts>

      <context name="default" attribute="Normal Text" lineEndContext <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14929	15029	
==>hift;   # leaving ($element_name, $attr_hash_r)
  DEBUG > 2 and print "++ $_[0] (", map("<$_> ", %{$_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	675653	676010	
==>"ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 757,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#lin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605375	605606	
==>{
                  "JUMP" => 0,
                  "NAME" => "addattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606165	606396	
==>{
                  "JUMP" => 0,
                  "NAME" => "addattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	5928	6033	
==>pected = ();

	my $prod;
	foreach $prod ( @{$self->{"prods"}} )
	{
		my $next = $prod->expected();
		unles <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	17271	17376	
==>ly core PMCs aren't dynamic
    return exists($pmc_types{$_[1]}) ? 0 : 1;
}

# XXX quick hack - to get MMD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	725528	725793	
==>MP" => 0,
                  "NAME" => "clone",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726289	726554	
==>MP" => 0,
                  "NAME" => "clone",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812737	813002	
==>MP" => 0,
                  "NAME" => "clone",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	372198	372407	
==>ction",
                  "CODE" => 435,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 387 \"src/ops/io.ops\"\n  STRING ** con <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916946	917084	
==>c"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917958	918096	
==>c"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918970	919108	
==>c"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919983	920121	
==>c"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467585	467681	
==>th.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_Z <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468456	468552	
==>th.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_Z <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477008	477104	
==>th.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_Z <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477904	478000	
==>th.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_Z <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10992	11078	
==>\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STACK_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11781	11867	
==>\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STACK_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13018	13104	
==>\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STACK_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13862	13948	
==>\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STACK_ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	42258	42362	
==>', 'set', ['I0', 0]);        # Pass all args in Px registers
  $self->_add_inst('', 'set', ['I3', $count- <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35871	35973	
==>plements
{

    my ($self, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $ <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31241	31342	
==>plements
{
    my ($self, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $ <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39861	39962	
==>plements
{
    my ($self, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727586	727850	
==>{{\@1}} = {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	728383	728647	
==>{{\@1}} = {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729177	729441	
==>{{\@1}} = {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729977	730241	
==>{{\@1}} = {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	7079	7222	
==>-licuuc -licudata -lpthread -lm',
             'inc' => 'include/parrot',
             'include_dir' => '/opt/local/include',
             'inli <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27599	27699	
==>t = $text;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'unless')
		. ' ($text =~ s/\A($skip)/$las <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29709	29809	
==>t = $text;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'unless')
		. ' ($text =~ s/\A($skip)/$las <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31806	31906	
==>t = $text;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'unless')
		. ' ($text =~ s/\A($skip)/$las <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31980	32101	
==>gs = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $p <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33557	33678	
==>gs = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $p <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40614	40735	
==>gs = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $p <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018098	1018327	
==>ng_from_cstring(interpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019023	1019252	
==>ng_from_cstring(interpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019953	1020182	
==>ng_from_cstring(interpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020884	1021113	
==>ng_from_cstring(interpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81336	81645	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compile",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82229	82538	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compile",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34969	35064	
==>= $Parse::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = $Parse::RecDesce <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42079	42174	
==>= $Parse::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = $Parse::RecDesce <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925521	925823	
==>" => "stringinfo",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926990	927292	
==>" => "stringinfo",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928460	928762	
==>" => "stringinfo",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929930	930232	
==>" => "stringinfo",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616300	616583	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "pic_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	617987	618270	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "pic_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	620149	620432	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "pic_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426795	427062	
==>nline",
                  "CODE" => 490,
                  "ARGS" => [
                              "ic",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 64 \"src/ops/math.ops\"\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510529	510794	
==>UMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511267	511532	
==>UMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	512005	512270	
==>UMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381139	381242	
==>(PIO_seek(interpreter, {{\@1}}, PIO_make_offset({{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382151	382254	
==>(PIO_seek(interpreter, {{\@1}}, PIO_make_offset({{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383163	383266	
==>(PIO_seek(interpreter, {{\@1}}, PIO_make_offset({{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384176	384279	
==>(PIO_seek(interpreter, {{\@1}}, PIO_make_offset({{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpre <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	6623	6725	
==>0..2], "gt") });

sub convert_to_rpn {
	my(@expr)=@_;

	#print STDERR "In RPN Convert...\n";
	# Convert <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11126	11215	
==>to pre_call_NO_RETURN_${CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${STEMP0} = ${ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8312	8401	
==>to pre_call_NO_RETURN_${CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${STEMP0} = ${ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5974	6063	
==>to pre_call_NO_RETURN_${CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${STEMP0} = ${ <==
4	/Users/nnunley/parrot/lib/Parrot/Op.pm	4411	4517	
==>e directions of the op's arguments.

=cut

sub arg_dirs
{
    my $self = shift;

    return @{$self->{ARGDI <==
4	/Users/nnunley/parrot/languages/regex/test.pl	2076	2208	
==>-d|--debug)$/) {
        $DEBUG = 1;
    } elsif (! defined $testfile) {
        $testfile = $_;
    } else {
        usage "too many <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	3388	3504	
==>>block;
}


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $type  = $self->type->imc <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5029	5126	
==>");
    my $fail = $self->output_label_use($failLabel);
    my $pass = $self->output_label_use($pa <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4704	4801	
==>");
    my $fail = $self->output_label_use($failLabel);
    my $pass = $self->output_label_use($pa <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	46677	46839	
==>. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
#======== <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	46723	46862	
==>. . . . . . . . . . . . . . .
# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
#=============================== <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	46771	46885	
==>. . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
#====================================================== <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	46817	46908	
==>. . . . . . .
#============================================================================= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100028	1100278	
==>219,
                  "ARGS" => [
                              "n",
                              "nc",
                              "i"
                            ],
                  "BODY" => "#line 296 \"src/ops/experimental.ops\"\n    FLOATVA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591300	591443	
==>k"
                            ],
                  "BODY" => "#line 325 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592510	592653	
==>k"
                            ],
                  "BODY" => "#line 325 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interprete <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	17281	17382	
==>tref =~ m/\G$mods{none}/gc
		}

		my $endpos = pos($$textref);
		return (
			$startpos,	$oppos-$startp <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	1100	1200	
==>Y_LINES is too small (", MANY_LINES(), ")!\nAborting";
  }
  if(defined &UNICODE) { }
  elsif($] >= 5 <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	4576	4710	
==>ur_op/g;
            $asm =~ s/MAP\[(\d)\]/MAP($1)/g;
            # set extern if the code calls a function
            $extern = -1 if <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	5008	5133	
==>push @tokens, Jako::Token->new(
        $file, $line, 'infix-bit', undef, $1);
      $text = $2;
      next;
    }

    if ($t <==
4	/Users/nnunley/parrot/lib/Parrot/Configure.pm	3617	3719	
==>f = shift;

    my ($verbose, $verbose_step, $ask) =
        $self->options->get(qw(verbose verbose-ste <==
4	/Users/nnunley/parrot/config/auto/alignptrs.pm	1495	1591	
==>an't determine alignment!\n" unless defined $align;
        $conf->data->set(ptr_alignment => $al <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	576	737	
==>F' => 1,
             'HAS_aligned_funcptr' => 1,
             'MAJOR' => '0',
             'MINOR' => '4',
             'PATCH' => '5',
             'PQ' => '\'' <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	17124	17235	
==>hese dumb 'shells' that are no shells
    @files = glob $files[0] if $files[0] eq '*.pmc';

    my %all;
    for <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7785	7881	
==>ps (string)"
s$=""
if s$ then print "Should not happen (string)"
i%=0
if i% then print "Should no <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14772	14868	
==>ps (string)"
s$=""
if s$ then print "Should not happen (string)"
i%=0
if i% then print "Should no <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113179	113501	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "AR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115510	115832	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "AR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116365	116687	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "AR <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40512	40626	
==>' => 185,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'prima <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	23478	23612	
==>long',
				       '!' => 'single',  '#' => 'double',
				       '$' => 'string'  );
			my $ut="";
			if ($syms[NEXT] eq "as") {
				fee <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	5476	5602	
==>35,
 'Psi'      , 936,
 'Omega'    , 937,
 'alpha'    , 945,
 'beta'     , 946,
 'gamma'    , 947,
 'delta'    , 948,
 'epsilon <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	3806	3912	
==>y ($class, $info) = each %classes) {
	my $lhs = $info->{flags}->{noinit} ? "" : "type$class = ";
        $c <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1927	2020	
==>ttribute for this start-token
object, or undef.

For example, parsing a LZ<><Foo/"Bar"> link w <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099203	1099336	
==>t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100401	1100534	
==>t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101599	1101732	
==>t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102798	1102931	
==>t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	531184	531389	
==>\"src/ops/math.ops\"\n  {{\@1}} = cos((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29371	29471	
==>::_trace(q{Trying terminal: [' . $self->describe
					  . ']},
					  Parse::RecDescent::_tracefirst( <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31468	31568	
==>::_trace(q{Trying terminal: [' . $self->describe
					  . ']},
					  Parse::RecDescent::_tracefirst( <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27268	27361	
==>::_trace(q{Trying terminal: [' . $self->describe
					  . ']}, Parse::RecDescent::_tracefirst( <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74175	74284	
==>r ($reps=0; $reps<$max;)
	{
		$_savetext = $text;
		my $prevtextlen = length $text;
		my $_tok;
		if (! define <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	726	838	
==>/) {
		$var=$syms[CURR];
		feedme();
		next if $var eq ",";
		my $array=0;
		if ($syms[CURR] eq "(") {
			$array= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467608	467701	
==>= {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468479	468572	
==>= {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477031	477124	
==>= {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477927	478020	
==>= {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164804	164985	
==>l(interpreter, {{\@1}}, {{\@2}}) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165733	165914	
==>l(interpreter, {{\@1}}, {{\@2}}) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166662	166843	
==>l(interpreter, {{\@1}}, {{\@2}}) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Test/More.pm	34761	34857	
==>ded objects instead of
bare strings your tests won't notice the difference.  This is good.

Howev <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335701	336060	
==>ys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 393,
                  "ARGS" => [
                              "p",
                              "ic" <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65586	65710	
==>ftop: $name $2 $name>($1..) ");

						pos $grammar = $pos;
					}
					else
					{
						$item = new Parse::RecDescent::Repe <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1379	1475	
==>ams)=('LEX','RULES','STATES');

sub new {
    my($class)=shift;
	my($errst,$nberr,$token,$val <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1333	1425	
==>ams)=('LEX','RULES','STATES');

sub new {
    my($class)=shift;
	my($errst,$nberr,$token,$val <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255562	255868	
==>3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "xor", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284804	284895	
==>ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285681	285772	
==>ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286558	286649	
==>ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3602	3709	
==>ub restart_address
{
    my ($self, $addr) = @_;

    die "pbc2c.pl: Cannot handle RESUME ops!";
}

=item C< <==
4	/Users/nnunley/parrot/examples/benchmarks/stress.pl	569	674	
==>{
	$foo[$_] = $_;
    }
    return \@foo;
}

=head1 SEE ALSO

F<examples/benchmarks/stress.pasm>, 
F<examp <==
4	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	631	736	
==>{
	$foo[$_] = $_;
    }
    return \@foo;
}

=head1 SEE ALSO

F<examples/benchmarks/stress.pasm>, 
F<examp <==
4	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	478	583	
==>{
	$foo[$_] = $_;
    }
    return \@foo;
}

=head1 SEE ALSO

F<examples/benchmarks/stress.pasm>, 
F<examp <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25442	25581	
==>,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 79
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540539	540647	
==>f(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541791	541899	
==>f(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543043	543151	
==>f(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591654	591767	
==>\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592864	592977	
==>\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594074	594187	
==>\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595285	595398	
==>\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LA <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	4596	4701	
==>) {
    # Copy *.so -> destination, where destination is the first
    # argument, given as --destination= <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	4700	4805	
==>) {
    # Copy *.so -> destination, where destination is the first
    # argument, given as --destination= <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3912	4014	
==>) {
	# Copy *.so -> destination, where destination is the first
    # argument, given as --destination= <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	2069	2163	
==>hs);
	my($result, $type, @code);

	if ($debug) {
		push @{$code{$seg}->{code}},"\t_DEBUG_INIT() <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156244	156663	
==>IRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 189,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic"
                            ],
                  "BODY <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3263	3379	
==>borting parsing.\n";
        $self->scream(
          $self->{'line_count'},
          "UTF16-LE Byte Encoding Mark f <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015009	1015102	
==>ops\"\n  const char * const tmp = strerror({{\@2}});\n  {{\@1}} = string_make(interpreter, tmp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015833	1015926	
==>ops\"\n  const char * const tmp = strerror({{\@2}});\n  {{\@1}} = string_make(interpreter, tmp <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1353	1474	
==>$self->{relpath}, 
            STDOUT => $out_f, STDERR => $out_f, 
        );
        my $prog_output = Parrot::Test::slu <==
4	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1269	1390	
==>$self->{relpath}, 
            STDOUT => $out_f, STDERR => $out_f, 
        );
        my $prog_output = Parrot::Test::slu <==
4	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	679	766	
==>ad1 SEE ALSO

F<examples/benchmarks/stress.pasm>, 
F<examples/benchmarks/stress.pl>, 
F< <==
4	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	526	613	
==>ad1 SEE ALSO

F<examples/benchmarks/stress.pasm>, 
F<examples/benchmarks/stress.pl>, 
F< <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572470	572737	
==>> "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573379	573646	
==>> "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574289	574556	
==>> "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575092	575359	
==>> "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	3756	3867	
==>ut_footer {
    my ($self, $fh) = @_;

    my $subname = $self->{subname} || '_regex';
    print $fh <<"END";
.s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1569	1673	
==>lf->left;
  my $op    = $self->op;
  my $right = $self->right;

  my $dest_sym = $block->find_symbol($des <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1527	1631	
==>lf->left;
  my $op    = $self->op;
  my $right = $self->right;

  my $dest_sym = $block->find_symbol($des <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1449	1553	
==>lf->left;
  my $op    = $self->op;
  my $right = $self->right;

  my $dest_sym = $block->find_symbol($des <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667578	667816	
==>teger(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668352	668590	
==>teger(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676069	676307	
==>teger(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676849	677087	
==>teger(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	845	1131	
==>flag         => $_->[1],
                                          substitution => $_->[2],
                                        }
                                      } @{$item[1]}
                                }
                  }

# ignore comments
comment:            m/^#[^\n <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	517	606	
==>tokens from Pod::Simple::PullParser

=head1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=h <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	936	1025	
==>tokens from Pod::Simple::PullParser

=head1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=h <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	423	512	
==>tokens from Pod::Simple::PullParser

=head1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=h <==
4	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	8911	8999	
==>>

=item F<tools/build/vtable_h.pl>

=item F<tools/dev/gen_class.pl>

=item F<src/pmc/nul <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5878	6055	
==>l}";
            if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                print {$FH} " :flat";
            }
            $first = 0;
        }
        prin <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6973	7150	
==>l}";
            if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                print {$FH} " :flat";
            }
            $first = 0;
        }
        prin <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	9887	10064	
==>l}";
            if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                print {$FH} " :flat";
            }
            $first = 0;
        }
        prin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528627	528735	
==>.ops\"\n  {{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529509	529617	
==>.ops\"\n  {{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	530391	530499	
==>.ops\"\n  {{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" = <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10495	10596	
==>@ranges, [ ord($first), ord($last) ];
    }

    return _ranges_to_incexc(\@ranges);
}

sub _ranges_to <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793393	793483	
==>7 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794298	794388	
==>7 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795203	795293	
==>7 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796109	796199	
==>7 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61316	61563	
==>er, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorso <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61959	62206	
==>er, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorso <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62603	62850	
==>er, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorso <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63248	63495	
==>er, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorso <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857930	858104	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858933	859107	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859937	860111	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860941	861115	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43706	43947	
==>er, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "p <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44350	44591	
==>er, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "p <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44991	45232	
==>er, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "p <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45633	45874	
==>er, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "p <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	986423	986621	
==>",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987554	987752	
==>",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988685	988883	
==>",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989817	990015	
==>",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004603	1004805	
==>",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005742	1005944	
==>",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1006881	1007083	
==>",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008021	1008223	
==>",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630706	630981	
==>reter, type);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631696	631971	
==>reter, type);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629719	629992	
==>reter, type);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	13438	13555	
==>extref,pos($$textref),20) .
			    q{..."},
		         pos $$textref;
		return; 
	}
	my $codepos = pos($$textref);
	un <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	13442	13559	
==>@_;
    my $min = $op->minlen();
    my $max = $op->maxlen();
    $max = "INF" if ! defined $max;
    return "$str [$m <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	35717	35815	
==>ith how many failed.  If
you run less (or more) tests than you planned, the missing (or extras)
wil <==
4	/Users/nnunley/parrot/lib/Test/More.pm	33788	33886	
==>ith how many failed.  If
you run less (or more) tests than you planned, the missing (or extras)
wil <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	2584	2682	
==>ith how many failed.  If
you run less (or more) tests than you planned, the missing (or extras)
wil <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10758	10863	
==>uired: Jako::Construct::Block

  confess "No block!"        unless defined $self and ref $self and $self-> <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4434	4533	
==>uired: Jako::Construct::Block

  confess "No block!"  unless defined $self and ref $self and $self-> <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4941	5040	
==>uired: Jako::Construct::Block

  confess "No block!"  unless defined $self and ref $self and $self-> <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10344	10442	
==>uired: Jako::Construct::Block

  confess "No block!" unless defined $self and ref $self and $self-> <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629988	630251	
==>E" => "new",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630977	631240	
==>E" => "new",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107700	1107963	
==>E" => "new",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	8980	9075	
==>@@@@@@@@@@@@@@@@@@@@
#
# And now codes (not targets or directives)

sub accept_code { shift->acc <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	7704	7813	
==>lags}{does}{const} = 1;
    # set classname
    $const->{class} = "Const" . $self->{class};
    # and alias vt <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	366	466	
==>se qw(Jako::Construct::Statement);

my %block_types = (
  'while'    => { PREFIX => "_W", NEXT => 'CO <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	387	487	
==>se qw(Jako::Construct::Statement);

my %block_types = (
  'while'    => { PREFIX => "_W", NEXT => 'CO <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	1814	1909	
==>-brace');   }
sub is_close_bracket { return shift->is('close-bracket'); }
sub is_close_paren   { <==
4	/Users/nnunley/parrot/config/auto/pack.pm	1540	1680	
==>ure.pl:  Unable to find a functional packtype for $_.
               '$format' failed: $@
AARGH
        }
        if ($test) {
            un <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2514	2633	
==>>cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  if (defined $cond) {
    $hand <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3188	3307	
==>>cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  if (defined $cond) {
    $hand <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3278	3397	
==>>cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  if (defined $cond) {
    $hand <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8024	8127	
==>unless defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_symbol($name);

  r <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8671	8774	
==>unless defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_symbol($name);

  r <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9339	9442	
==>unless defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_symbol($name);

  r <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10008	10111	
==>unless defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_symbol($name);

  r <==
4	/Users/nnunley/parrot/Configure.pl	4969	5094	
==>- Parrot Configure 2.0

General Options:

   --help               Show this text
   --version            Show version informat <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27649	27743	
==>}<0?'if':'unless')
		. ' ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and '
		. ($check->{itempos <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29759	29853	
==>}<0?'if':'unless')
		. ' ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and '
		. ($check->{itempos <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31856	31950	
==>}<0?'if':'unless')
		. ' ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and '
		. ($check->{itempos <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	14601	14724	
==>_not_int, one HAS to use temporary
        # variables.  We detect and collect those to "temp".
        my @temp;
        fo <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94927	95016	
==>> "#line 63 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95820	95909	
==>> "#line 63 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96713	96802	
==>> "#line 63 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646842	647117	
==>2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647602	647877	
==>2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648363	648638	
==>2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649125	649400	
==>2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950684	950986	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951644	951946	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952604	952906	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25926	26078	
==>xt;
    }

=begin commented_out

    #
    # Bare Blocks:
    #
    #   <label>: {
    #   {
    #

    if ($token->is_open_brace) {
      my $label = $l <==
4	/Users/nnunley/parrot/config/auto/alignptrs.pm	1275	1394	
==>, 2, 1) {
            my $results = cc_run_capture($try_align);
            if ($results =~ /OK/ && $results !~ /align/i <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1133	1231	
==>environment -> option -> ask
    $prog ||= $conf->options->get($util);
    $prog ||= $ENV{uc($util) <==
4	/Users/nnunley/parrot/config/inter/make.pm	954	1052	
==>environment -> option -> ask
    $prog ||= $conf->options->get($util);
    $prog ||= $ENV{uc($util) <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1130	1228	
==>environment -> option -> ask
    $prog ||= $conf->options->get($util);
    $prog ||= $ENV{uc($util) <==
4	/Users/nnunley/parrot/config/gen/platform.pm	531	644	
==>miniparrot verbose);

sub runstep {
    my ($self, $conf) = @_;

    my $verbose  = $conf->options->get('verbose') <==
4	/Users/nnunley/parrot/config/auto/gcc.pm	482	594	
==>miniparrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose') <==
4	/Users/nnunley/parrot/config/auto/memalign.pm	498	610	
==>miniparrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose') <==
4	/Users/nnunley/parrot/config/auto/signal.pm	443	555	
==>miniparrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose') <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	339576	339938	
==>( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340574	340936	
==>( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341573	341935	
==>( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342572	342934	
==>( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	8443	8537	
==>/a></td>
             <td><a href="$outfile_base.calls.html">@{[$file_call_coverage{$source_fil <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344345	344437	
==>\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345587	345679	
==>\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346829	346921	
==>\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348072	348164	
==>\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free(mode); */\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104171	1104426	
==>init(interpreter, type, {{\@3}});\n\t{{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105386	1105641	
==>init(interpreter, type, {{\@3}});\n\t{{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33720	33817	
==>$post_store = $srm->post_store($dest_reg);
		$pir .= "### post_store\n";
		$pir .= sub_meta($post_ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	2376	2469	
==>le2($compiler, $self->block, $ident, $sym->kind, $sym->scope, $sym->type);

      $self->SYNTA <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	17227	17332	
==>tion
   signature for a C function we want to call and returns a pointer
   to a function that can call it <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5455	5548	
==>->_add_inst ('', 'set', [$pair.'[0]',$item]);
      $self->_add_inst ('', 'set', [$pair.'[1]', <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17006	17095	
==>->_add_inst ('', 'set',[$pair.'[0]',$item]);
    $self->_add_inst ('', 'set',[$pair.'[1]', <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6495	6582	
==>->_add_inst('', 'set', [$pair.'[0]',$item]);
  $self->_add_inst('', 'set', [$pair.'[1]', <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	14950	15074	
==>r = pop @stack;
    my $l = pop @stack;
    my ($t, $n);
    {
	my $nl = promote($l);
	$n = temp($t = 'P');
	my $nr = $r->[1] <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	15267	15391	
==>r = pop @stack;
    my $l = pop @stack;
    my ($t, $n);
    {
	my $nl = promote($l);
	$n = temp($t = 'P');
	my $nr = $r->[1] <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	936	1039	
==>done:
END_PIR
);


my $template = <<'END_OF_TEMPLATE';

.namespace [ 'APL' ]

# any registers #'d 100 or <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6105	6206	
==>y $name = shift; # Required: (TODO: domain)

  confess "No block!"  unless defined $self and ref $self <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747272	747355	
==>\"src/ops/set.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748057	748140	
==>\"src/ops/set.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753566	753649	
==>\"src/ops/set.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754354	754437	
==>\"src/ops/set.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381176	381272	
==>ake_offset({{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek f <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382188	382284	
==>ake_offset({{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek f <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383200	383296	
==>ake_offset({{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek f <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384213	384309	
==>ake_offset({{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek f <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30404	30505	
==>xt))
							if defined $::RD_TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32604	32705	
==>xt))
							if defined $::RD_TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28329	28429	
==>xt))
					if defined $::RD_TRACE;').'

			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19453	19541	
==>code}}, "\tgoto DO_$do->{jump}\n";
	}
	push @{$code{$seg}->{code}}, "AFTERDO_$do->{jump}: <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	4363	4474	
==>noop  # No ?\n};
		} elsif ($syms[CURR] eq ";") {
			$promptcode.=qq{\tprint "?"\n};
		} else {
			die "Syntax e <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19253	19524	
==>P" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20029	20300	
==>P" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20807	21078	
==>P" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21607	21878	
==>P" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710388	710646	
==>i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 797,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 50 \"src/ops/python.o <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54706	54827	
==>undef,'<');
					 $code;
				       } )
			{
				_parse("a rule variable specifier", $aftererror,$line,$code);
				$code = <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19288	19390	
==>Rule 10
		 'expr', 2,
sub
#line 111 "lib/Regex/Grammar.y"
{ return op('seq' => [ $_[1], $_[2] ]); }
	], <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	28333	28427	
==>mainder of the input string (i.e. the characters after the
extracted string). On failure, the e <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543522	543732	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lcm",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544857	545067	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lcm",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546193	546403	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lcm",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	8439	8534	
==>q 'X';
}

=item C<process_end_token($token)>

Processes an end token.

=cut

sub process_end_tok <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	497	602	
==>);

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	my $dist = Parrot::Distrib <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	364	464	
==>base qw(Jako::Construct::Statement);

my %block_types = (
  'while'    => { PREFIX => "_W", NEXT => ' <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	385	485	
==>base qw(Jako::Construct::Statement);

my %block_types = (
  'while'    => { PREFIX => "_W", NEXT => ' <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7067	7164	
==>l: string (TODO: domain)

  confess "No block!"  unless defined $self and ref $self and $self->isa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908769	909068	
==>" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909665	909964	
==>" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910562	910861	
==>" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911459	911758	
==>" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10999	11092	
==>ck_push(interpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINAT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11788	11881	
==>ck_push(interpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINAT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13025	13118	
==>ck_push(interpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINAT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13869	13962	
==>ck_push(interpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINAT <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2570	2674	
==>ected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defi <==
4	/Users/nnunley/parrot/lib/Test/More.pm	36089	36185	
==>k to use and difficult to trip yourself up with while still
providing more flexibility than the e <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826624	826713	
==>!= STACK_ENTRY_FLOAT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stac <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827694	827783	
==>!= STACK_ENTRY_FLOAT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stac <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10765	10867	
==>Jako::Construct::Block

  confess "No block!"        unless defined $self and ref $self and $self->isa( <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4441	4537	
==>Jako::Construct::Block

  confess "No block!"  unless defined $self and ref $self and $self->isa( <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4948	5044	
==>Jako::Construct::Block

  confess "No block!"  unless defined $self and ref $self and $self->isa( <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10351	10446	
==>Jako::Construct::Block

  confess "No block!" unless defined $self and ref $self and $self->isa( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72534	72626	
==>> "#line 1156 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74136	74228	
==>> "#line 1156 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75738	75830	
==>> "#line 1156 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77341	77433	
==>> "#line 1156 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763201	763431	
==>er access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764054	764284	
==>er access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764907	765137	
==>er access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765761	765991	
==>er access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	13730	13863	
==>te 21
		ACTIONS => {
			"(" => 10,
			'CHAR' => 4,
			"<" => 3,
			"[" => 14,
			'CODE' => 6,
			"." => 15
		},
		GOTOS => {
			'expr' <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	13103	13207	
==>2..3,4..5,0..1]	# MATCH, REMAINDER, PREFIX
		       );

}

sub _match_codeblock($$$$$$$)
{
	my ($textref, <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	316	412	
==>es in Parrot.

=head2 Class Methods

=over

=cut

package Parrot::Docs::Section::Libs;

use stric <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	16061	16156	
==>essor->new;
 $parser->set_source( \@document_lines );
 $parser->run;

And elsewhere:

 require 5 <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	21574	21682	
==>{ return { min => 0, max => $_[4] }; }
	],
	[#Rule 31
		 'range', 3,
sub
#line 155 "lib/Regex/Grammar.y"
{ re <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13801	13904	
==>s, C<$out_name> is the name of the output file we are
generating.

=cut

sub body
{
    my ($self, $meth <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29584	29687	
==>s, C<$out_name> is the name of the output file we are
generating.

=cut

sub body
{
    my ($self, $meth <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30226	30329	
==>s, C<$out_name> is the name of the output file we are
generating.

=cut

sub body
{
    my ($self, $meth <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9557	9651	
==>all. Get details of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7071	7165	
==>all. Get details of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5627	5721	
==>all. Get details of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7847	7941	
==>all. Get details of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	328	423	
==>ruct::Expression::Infix;

use base qw(Jako::Construct::Expression);

sub new
{
  my $class = shi <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1852	1941	
==>eft, 'Jako::Construct::Expression::Value::Identifier')) {
    my $left_sym = $block->find_ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1810	1899	
==>eft, 'Jako::Construct::Expression::Value::Identifier')) {
    my $left_sym = $block->find_ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1732	1821	
==>eft, 'Jako::Construct::Expression::Value::Identifier')) {
    my $left_sym = $block->find_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553273	553570	
==>",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 63 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554669	554966	
==>",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 63 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556066	556363	
==>",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 63 <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	18536	18642	
==>$treelet);  # L has to precede E and S
    $self->_treat_Es($treelet);
    $self->_treat_Ss($treelet);  # S <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	6526	6641	
==>or my $source (@sources) {
        return 1 if modtime($source) > $target_mod;
    }

    return 0;
}

sub generate_ <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4946	5061	
==>or my $source (@sources) {
        return 1 if modtime($source) > $target_mod;
    }

    return 0;
}

sub generate_ <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	6737	6852	
==>or my $source (@sources) {
        return 1 if modtime($source) > $target_mod;
    }

    return 0;
}

sub generate_ <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9556	9660	
==>ed');

  skip('skip this test for now');

  flunk('this fails, but might work soon', :todo(1));

  diag(' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018113	1018367	
==>(interpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019038	1019292	
==>(interpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019968	1020222	
==>(interpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020899	1021153	
==>(interpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	440	543	
==>s = shift;
  my ($block, $dest, $left, $op, $right) = @_;

  confess("Block (" . ref($block) . ") not!") <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	431	534	
==>s = shift;
  my ($block, $dest, $left, $op, $right) = @_;

  confess("Block (" . ref($block) . ") not!") <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	320	423	
==>s = shift;
  my ($block, $dest, $left, $op, $right) = @_;

  confess("Block (" . ref($block) . ") not!") <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2094	2194	
==>e {
    return $Name2character{$in}; # returns undef if unknown
  }
}

#----------------------------- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510531	510796	
==>P" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511269	511534	
==>P" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	512007	512272	
==>P" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	397	519	
==>uct::Block);


#
# compile()
#

sub compile
{
  my $self     = shift; # Required:
  my $compiler = shift; # Required

#  my <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94973	95179	
==>tring_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95866	96072	
==>tring_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96759	96965	
==>tring_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071798	1071904	
==>\"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  I <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073983	1074089	
==>\"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  I <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076168	1076274	
==>\"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  I <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078354	1078460	
==>\"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  I <==
4	/Users/nnunley/parrot/config/auto/cgoto.pm	532	643	
==>ose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->se <==
4	/Users/nnunley/parrot/config/auto/headers.pm	467	578	
==>ose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->se <==
4	/Users/nnunley/parrot/config/auto/jit.pm	618	729	
==>ose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->se <==
4	/Users/nnunley/parrot/config/gen/cpu.pm	530	641	
==>ose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->se <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	56249	56377	
==>,
	[#Rule 83
		 'primary', 1, undef
	],
	[#Rule 84
		 'primary', 3,
sub
#line 444 "Lua\lua51.yp"
{
            BuildPare <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	59238	59334	
==>delimiters.
For example, to specify that '/' is the escape for single quotes
and '%' is the escap <==
4	/Users/nnunley/parrot/config/auto/gmp.pm	89	183	
==>006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/gmp.pm - Test for GNU MP (GMP) Mat <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15747	15836	
==>ation.

Currently (October 2001), that's these three:

 http://www.w3.org/TR/xhtml1/DTD/xh <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925434	925784	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringinfo",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926903	927253	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringinfo",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928373	928723	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringinfo",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929843	930193	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringinfo",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1883	2000	
==>ndef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  if <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2488	2605	
==>ndef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  if <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3162	3279	
==>ndef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  if <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	2149	2257	
==>ean (fail if stuff is empty)

=cut

sub ok ($;$) {
    $Test->ok(@_);
}


=back

Test::Simple will start by p <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	373303	373628	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	1029	1140	
==>head2' => "\n<h2>",  #  ''
  'head3' => "\n<h3>",  #  ''
  'head4' => "\n<h4>",  #  ''
  '/head1' => "</a></h1>\ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13549	13656	
==>p_pair_p {
  my ($self, $node) = @_;
  my $return;
  my $label = $self->_gensym();

  _num_arg ($node, 1, 'p <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	10694	10788	
==>defined $titlename and $titlename =~ m/^[A-Z ]{1,60}$/s; #sanity
  my $titlename_re = quotemeta <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189803	190078	
==>1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190744	191019	
==>1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191683	191958	
==>1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192623	192898	
==>1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223621	223734	
==>_integer(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224563	224676	
==>_integer(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" = <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	6878	6981	
==>ie with an error message if that file cannot be found.

=cut

sub find_file {
    my ($include, $file, $ <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	30233	30326	
==>lder perlpods), or undef if none. E.g., in
# Getopt::Std/DESCRIPTION, "DESCRIPTION" is the sec <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	5885	6050	
==>field} ) == 1 ) {
            $val = $field->[0];
            if ( defined $num_key ) {
                my $incr = new IncrOp( $parser,
                    'resul <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544300	544408	
==>d_var2 = b; \n\n if(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545636	545744	
==>d_var2 = b; \n\n if(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546972	547080	
==>d_var2 = b; \n\n if(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1 <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	5369	5504	
==>ile/;
            if ($total_calls) {
                my $covered_calls = int(($percent/100) * $total_calls);
                $totals{ca <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27573	27672	
==>{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'unless')
		. ' <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29683	29782	
==>{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'unless')
		. ' <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31780	31879	
==>{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'unless')
		. ' <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1598	1722	
==>t
        $self->set_result('no');
        return $self;
    }

    if ($conf->options->get('ask')) {
        $prog = prompt( <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1612	1736	
==>t
        $self->set_result('no');
        return $self;
    }

    if ($conf->options->get('ask')) {
        $prog = prompt( <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	3914	4022	
==>mpile("$group", "lib-$group")
          or die "compile $group.c failed ($?)\n";
    }
} 
elsif ($mode eq 'li <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	4018	4126	
==>mpile("$group", "lib-$group")
          or die "compile $group.c failed ($?)\n";
    }
} 
elsif ($mode eq 'li <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	6549	6656	
==>e Tree op being visited
#  guarantee - The number of atoms we are currently guaranteed to have for
#      th <==
4	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	12000	12107	
==>uages targetting parrot (e.g. tcl),
    are also available.
  </p>

  <p>
    Submitting your own smoke is e <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1894	1990	
==>lf->SUPER::new($path);
}

=back

=head2 Instance Methods

=over 4

=item C<create_path()>

This i <==
4	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	871	967	
==>lf->SUPER::new($path);
}

=back

=head2 Instance Methods

=over 4

=item C<create_path()>

This i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72659	72747	
==>R(Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_cst <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74261	74349	
==>R(Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_cst <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75863	75951	
==>R(Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_cst <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77466	77554	
==>R(Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_cst <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10988	11086	
==>infile") or die "Can't read $infile: $!\n";
    open (OUT, ">$outfile") or die "Can't write $outfil <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11472	11570	
==>infile") or die "Can't read $infile: $!\n";
    open (OUT, ">$outfile") or die "Can't write $outfil <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11936	12034	
==>infile") or die "Can't read $infile: $!\n";
    open (OUT, ">$outfile") or die "Can't write $outfil <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	17919	18012	
==>ser->run method --
so it is advised that all Pod::Simple::PullParser subclasses do so.
See the <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800644	800767	
==>.ops\"\n    {{\@1}}->vtable->set_string_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801548	801671	
==>.ops\"\n    {{\@1}}->vtable->set_string_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802452	802575	
==>.ops\"\n    {{\@1}}->vtable->set_string_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803357	803480	
==>.ops\"\n    {{\@1}}->vtable->set_string_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024352	1024645	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025108	1025401	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025865	1026158	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026621	1026914	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	574	669	
==>lock is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Ident is not!" <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	462	557	
==>lock is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Ident is not!" <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	809	904	
==>lock is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Ident is not!" <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	837	932	
==>lock is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Ident is not!" <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2796	2903	
==>be skipped"
Label1:
   PRINT "5 back in module-level code"
   END
Sub1:
   PRINT "2 in subroutine one"
   GO <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16763	16870	
==>be skipped"
Label1:
   PRINT "5 back in module-level code"
   END
Sub1:
   PRINT "2 in subroutine one"
   GO <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	18333	18438	
==>/////////////////////////////////

      my $content = join ' ', splice @$para, 2;
      $content =~ s/^\s <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21303	21408	
==>/////////////////////////////////

      my $content = join ' ', splice @$para, 2;
      $content =~ s/^\s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467719	468004	
==>y zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468590	468875	
==>y zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469464	469749	
==>y zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470339	470624	
==>y zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1486	1619	
==>rint STDERR "pbcc: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
        return "return (0);"
    }
    else
    {
        retur <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2011	2143	
==>rint STDERR "pbcc: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
        return "return (0);"
    }
    else
    {
  	    retur <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1902	2033	
==>rint STDERR "pbcc: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
  	    return "return (0);"
    }
    else
    {
  	    retur <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	27398	27498	
==>good N => elementname mapping
      $self->{'accept_codes'}{$new_letter} = $canonical_form;
      DEB <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2197	2302	
==>se {
    $handler->start_element({ Name => 'loop', Attributes => { kind => $self->kind } });
  }

  if ($s <==
4	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	8951	9056	
==>urn "jit";
  /\b-C\b/ and return "cgp";
  /\b-S\b/ and return "switch";
  /\b-f\b/ and return "fast";
  re <==
4	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2439	2521	
==>ps.c>,
F<examples/mops/mops.cs>,
F<examples/mops/mops.il>,
F<examples/mops/mops.p6> <==
4	/Users/nnunley/parrot/examples/mops/mops.pl	2439	2521	
==>ps.c>,
F<examples/mops/mops.cs>,
F<examples/mops/mops.il>,
F<examples/mops/mops.p6> <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1020	1154	
==>lock,

    DEST  => $dest,
    LEFT  => $left,
    OP    => $op,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => $dest->file,
    LI <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1011	1145	
==>lock,

    DEST  => $dest,
    LEFT  => $left,
    OP    => $op,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => $dest->file,
    LI <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	900	1034	
==>lock,

    DEST  => $dest,
    LEFT  => $left,
    OP    => $op,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => $dest->file,
    LI <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	505	616	
==>at";

    my @ops;
    foreach my $part ($what =~ /((?:\%\<[\<\>\w]+\>)|[^\%]+)/g) {
        if ($part =~ /^\%/) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203394	203663	
==>TYPE" => "function",
                  "CODE" => 240,
                  "ARGS" => [
                              "sc",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 380 \"src/ops/ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28083	28186	
==>xpected
				   = $Parse::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = ($lastsep <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30157	30260	
==>xpected
				   = $Parse::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = ($lastsep <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32358	32461	
==>xpected
				   = $Parse::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = ($lastsep <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197234	197407	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 366 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198131	198304	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 366 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199028	199201	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 366 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}} <==
4	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	3627	3760	
==>$_->{'class'}}}, $_;
        } else {
            $classes{$_->{'class'}} = [$_];
        }
    }

    # Build classes dispatch table. <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6777	7000	
==>erpreter, {{\@1}});\n    {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46274	46495	
==>erpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63888	64109	
==>erpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	48875	48983	
==>rint "Found apparent complex end-text code \"$3\"\n";
      # This is where it gets messy...
      if(! @stac <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113688	113911	
==>> 141,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 204 \"src/ops/bit.ops\"\n  {{\@1}} <<= {{\@2}};\n  { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726021	726243	
==>{{\@1}} = string_copy(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726783	727005	
==>{{\@1}} = string_copy(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742001	742223	
==>{{\@1}} = string_copy(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30576	30674	
==>en_pir = concat dest0
gen_pir = concat " = clone "
gen_pir = concat dest0
gen_pir = concat "\\n"
$l <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	11816	11917	
==>$_[0]->{items}};
}

sub new ($$;$$)
{
	my ($self, $line, $uncommit, $error) = @_;
	my $class = ref($se <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21985	22079	
==>lf->require_open_paren;

        $left  = Jako::Construct::Expression::Value->new($block, $self <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22918	23012	
==>lf->require_open_paren;

        $left  = Jako::Construct::Expression::Value->new($block, $self <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24565	24658	
==>lf->require_open_paren;
        $left  = Jako::Construct::Expression::Value->new($block, $self <==
4	/Users/nnunley/parrot/tools/dev/lib_deps.pl	1948	2129	
==>"find" action for now.
        
        @files = ();
        File::Find::find({wanted => sub {
                              /^.*\.[ch]\z/s &&
                                push @f <==
4	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1815	1974	
==>t   => '-Fo',
            cc_exe_out => '-out:',
            cc_ldflags => '/link',

            # ZI messes with __LINE__
            cc_debug             => ' <==
4	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3694	3853	
==>t   => '-Fo',
            cc_exe_out => '-out:',
            cc_ldflags => '/link',

            # ZI messes with __LINE__
            cc_debug             => ' <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10399	10546	
==>, $last) = @$_;
        } else {
            ($first, $last) = ($_, $_);
        }
        push @ranges, [ ord($first), ord($last) ];
    }

    ret <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867178	867287	
==>/string.ops\"\n  INTVAL len;\n  len = string_length(interpreter, {{\@2}});\n  {{\@1}} = string_substr(interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868144	868253	
==>/string.ops\"\n  INTVAL len;\n  len = string_length(interpreter, {{\@2}});\n  {{\@1}} = string_substr(interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869110	869219	
==>/string.ops\"\n  INTVAL len;\n  len = string_length(interpreter, {{\@2}});\n  {{\@1}} = string_substr(interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870077	870186	
==>/string.ops\"\n  INTVAL len;\n  len = string_length(interpreter, {{\@2}});\n  {{\@1}} = string_substr(interpre <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	14945	15087	
==>=> timeval,  # microseconds
    });

    struct( timeval => [
        tv_secs  => '$',
        tv_usecs => '$',
    ]);

        # create an ob <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1128	1219	
==>ble  -I /opt/local/include   -g -Wall -Wstrict-prototypes -Wmissing-prototypes -Winline -Wpo <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1186	1277	
==>ble  -I /opt/local/include   -g -Wall -Wstrict-prototypes -Wmissing-prototypes -Winline -Wpo <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1190	1281	
==>ble  -I /opt/local/include   -g -Wall -Wstrict-prototypes -Wmissing-prototypes -Winline -Wpo <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	42895	43028	
==>n a literal
        next;
      }
        
      # bitch if content is weird
      unless(@{$treelet->[$i]} == 3 and !ref($content = $ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1800	1909	
==>return "";
}

# Extra subroutines required for the mapper.
sub subs() {
	# No extra subs.
	return "";
}

# Lab <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	840	949	
==>return "";
}

# Extra subroutines required for the mapper.
sub subs() {
	# No extra subs.
	return "";
}

# Lab <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	597	706	
==>return "";
}

# Extra subroutines required for the mapper.
sub subs() {
	# No extra subs.
	return "";
}

# Lab <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	246867	247155	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "and",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247730	248018	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "and",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	248594	248882	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "and",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
4	/Users/nnunley/parrot/tools/build/headerize.pl	2186	2306	
==>!/;/, @funcs;

    chomp @funcs;

    return @funcs;
}

sub function_components {
    my $proto = shift;

    my @parts = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072704	1072826	
==>ary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074889	1075011	
==>ary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077074	1077196	
==>ary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079260	1079382	
==>ary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653478	653583	
==>r, {{\@1}}))\n        real_exception(interpreter, resume, METH_NOT_FOUND,\n            \"Method '%s' not f <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654639	654744	
==>r, {{\@1}}))\n        real_exception(interpreter, resume, METH_NOT_FOUND,\n            \"Method '%s' not f <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	825	925	
==>shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'block', Attributes => { kind => $s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1838	1938	
==>shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'block', Attributes => { kind => $s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	652219	652459	
==>ction",
                  "CODE" => 729,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 264 \"src/ops/pmc.ops\"\n    {{\@1} <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	7115	7219	
==>c_stem.c")) {
        run(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5409	5513	
==>c_stem.c")) {
        run(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	7326	7430	
==>c_stem.c")) {
        run(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	646	745	
==>) have ""s embedded in their substution values. q[] is used in
# some places as Win32 paths have \'s <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	604	703	
==>) have ""s embedded in their substution values. q[] is used in
# some places as Win32 paths have \'s <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	608	707	
==>) have ""s embedded in their substution values. q[] is used in
# some places as Win32 paths have \'s <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34087	34182	
==>ch and append code that it generates.
		my $pre_branch = $srm->pre_branch($rule->{'pop'});
		$pi <==
4	/Users/nnunley/parrot/tools/dev/lib_deps.pl	11257	11374	
==>mag        complex.h
isalnum     ctype.h
isalpha     ctype.h
isblank     ctype.h
iscntrl     ctype.h
isdigit     ctype <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	35644	35743	
==>will exit with zero (which is
normal).  If anything failed it will exit with how many failed.  If
yo <==
4	/Users/nnunley/parrot/lib/Test/More.pm	33715	33814	
==>will exit with zero (which is
normal).  If anything failed it will exit with how many failed.  If
yo <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	2511	2610	
==>will exit with zero (which is
normal).  If anything failed it will exit with how many failed.  If
yo <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	1305	1423	
==>{
    my ($pmcfile) = @_;

    return <<"EOC";
/*
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is gener <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1450	1547	
==>r need to construct an object of this class for
yourself, but if you want to, call
C<<
Pod::Simple <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2602	2699	
==>r need to construct an object of this class for
yourself, but if you want to, call
C<<
Pod::Simple <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1739	1836	
==>r need to construct an object of this class for
yourself, but if you want to, call
C<<
Pod::Simple <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950423	950562	
==>"
                            ],
                  "BODY" => "#line 540 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpret <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951383	951522	
==>"
                            ],
                  "BODY" => "#line 540 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpret <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952343	952482	
==>"
                            ],
                  "BODY" => "#line 540 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpret <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953304	953443	
==>"
                            ],
                  "BODY" => "#line 540 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpret <==
4	/Users/nnunley/parrot/config/auto/jit.pm	2740	2852	
==>ta->set(asmfun_o => 'src/asmfun$(O)');
    } else {
        $conf->data->set(asmfun_o => '');
    }

    $jitcapa <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2426	2528	
==>elf->op) {
    $handler->start_element({ Name => 'block', Attributes => { kind => 'test' } });
    $han <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2303	2405	
==>elf->op) {
    $handler->start_element({ Name => 'block', Attributes => { kind => 'test' } });
    $han <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	14462	14557	
==>e($textref,'\s*') ||
		    _match_quotelike($textref,'\s*',$patvalid,$patvalid) )
		{
			$patval <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	5504	5609	
==>X: ordering of libs might be crucial
sub gather_groups_and_libs {
    my @pmcs = @_;

    my ( %group_file <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	5715	5820	
==>X: ordering of libs might be crucial
sub gather_groups_and_libs {
    my @pmcs = @_;

    my ( %group_file <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1649	1745	
==>ster_num}
${INS} = concat " = pop s\n"
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$registe <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3359	3455	
==>ster_num}
${INS} = concat " = pop s\n"
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$registe <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496763	496993	
==>=> [
                              "n",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 595 \"src/ops/math.ops\"\n  {{\@1}} = floatval_mod({{\@2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293420	293511	
==>5 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294296	294387	
==>5 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295172	295263	
==>5 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+= <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5711	5803	
==>deref>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot::OpTrans::Compiled>

=back

=cut

1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3287	3379	
==>deref>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot::OpTrans::Compiled>

=back

=cut

1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	3015	3107	
==>deref>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot::OpTrans::Compiled>

=back

=cut

1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	6467	6559	
==>deref>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot::OpTrans::Compiled>

=back

=cut

1 <==
4	/Users/nnunley/parrot/lib/Test/More.pm	22481	22578	
==>ne, you're aware of what bugs there are,
and you'll know immediately when they're fixed.

Once a t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143568	143663	
==>if (string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144496	144591	
==>if (string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145424	145519	
==>if (string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n", <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1591	1701	
==>eturn shift->{COND};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { r <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1727	1837	
==>eturn shift->{COND};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { r <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1370	1480	
==>eturn shift->{COND};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { r <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	30753	30860	
==>k);

    # Set up the full preamble, including stuff gathered from
    # rewriting the expression. Then writ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949953	950252	
==>=> 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functio <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950912	951211	
==>=> 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functio <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951872	952171	
==>=> 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functio <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952832	953131	
==>=> 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functio <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14169	14303	
==>4
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29 <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23412	23546	
==>4
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29 <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27394	27528	
==>4
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29 <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	6996	7097	
==>vel( 2, __PACKAGE__ );
}

# this kludge is an hopefully portable way of having
# redirections ( tested <==
4	/Users/nnunley/parrot/config/auto/gdbm.pm	706	816	
==>);
    my $libs      = $conf->data->get('libs');
    my $linkflags = $conf->data->get('linkflags');
    my $ccf <==
4	/Users/nnunley/parrot/config/auto/gmp.pm	647	757	
==>);
    my $libs      = $conf->data->get('libs');
    my $linkflags = $conf->data->get('linkflags');
    my $ccf <==
4	/Users/nnunley/parrot/config/auto/readline.pm	659	769	
==>);
    my $libs      = $conf->data->get('libs');
    my $linkflags = $conf->data->get('linkflags');
    my $ccf <==
4	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	1655	1750	
==>)

=item * Misc: rationalize indent; clarify desc emptiness contract;
review readability of intr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492733	492844	
==>> "#line 585 \"src/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493494	493605	
==>> "#line 585 \"src/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64745	64835	
==>N_CODE_FLAG);\n  new_interp->code = interpreter->code;\n  runops(new_interp, REL_PC + {{\@2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65696	65786	
==>N_CODE_FLAG);\n  new_interp->code = interpreter->code;\n  runops(new_interp, REL_PC + {{\@2 <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59145	59241	
==>parsers).");
			}
			$rule = new Parse::RecDescent::Rule($rulename,$self,$line,$replace);
			$pro <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	673	758	
==>less UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');
  confe <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	752	837	
==>less UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');
  confe <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	672	757	
==>less UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');
  confe <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2079	2170	
==>TYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_sh <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3331	3422	
==>TYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_sh <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5960	6051	
==>TYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_sh <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6518	6609	
==>TYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_sh <==
4	/Users/nnunley/parrot/config/init/defaults.pm	3688	3799	
==>xecutable output file (different on Win32)
        cc_exe_out => '-o ',

        # prefix for ldflags (necessary <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	22577	22688	
==>for $name\n";
	$name =~ s/\./_/g;
	$pir .= "INS_TRANS_$name:\n";

    # Emit trace code.
    $pir .= <<PIR;
if t <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1174	1274	
==>($self, $label) = @_;
    return () unless $self->{DEBUG};
    return () unless $self->{DEBUG_SUPPORT <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	664	764	
==>($self, $label) = @_;
    return () unless $self->{DEBUG};
    return () unless $self->{DEBUG_SUPPORT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939791	940091	
==>,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940682	940982	
==>,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941574	941874	
==>,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942466	942766	
==>,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843127	843267	
==>"
                            ],
                  "BODY" => "#line 45 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844005	844145	
==>"
                            ],
                  "BODY" => "#line 45 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844883	845023	
==>"
                            ],
                  "BODY" => "#line 45 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845762	845902	
==>"
                            ],
                  "BODY" => "#line 45 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572462	572730	
==>"NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573371	573639	
==>"NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574281	574549	
==>"NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575084	575352	
==>"NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607022	607327	
==>ttribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 6 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607925	608230	
==>ttribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 6 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608829	609134	
==>ttribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 6 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609736	610041	
==>ttribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 6 <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62716	62842	
==>$line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr($grammar,$pos,0,
						       "<left <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63427	63553	
==>$line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr($grammar,$pos,0,
						       "<left <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64157	64283	
==>$line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr($grammar,$pos,0,
						       "<left <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	6661	6765	
==>}

    my $out = $desc.defined ?? " - $desc" !! "";
    $out = "$out <pos:$?CALLER::CALLER::POSITION>" if <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	12688	12806	
==>STRING *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_S($reg_num);";
        r <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	12895	13013	
==>STRING *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_S($reg_num);";
        r <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	13380	13498	
==>STRING *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_S($reg_num);";
        r <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	23219	23325	
==>j_external_FLAG);
        vt_clone->isa_str = string_make(interp,
            "$isa", @{[length($isa)]}, "a <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1884	1978	
==>n::Value::Identifier')) {
    my $left_sym = $block->find_symbol($left->value);
    $self->SYNT <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1842	1936	
==>n::Value::Identifier')) {
    my $left_sym = $block->find_symbol($left->value);
    $self->SYNT <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1764	1858	
==>n::Value::Identifier')) {
    my $left_sym = $block->find_symbol($left->value);
    $self->SYNT <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	8811	8896	
==>it_info->cur_op[i] * sizeof(struct PackFile_Constant) + offsetof(struct PackFile_Const <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	32198	32297	
==>the very beginning of $text:

		$substring = extract_delimited($text, "'", '');

	# Remove a single- <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15464	15562	
==>oken_buffer'} }, 
       $self->{'end_token_class'}->new(@_);
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@ <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	850	945	
==>This module accepts no arguments to it's C<import> method and exports no
I<symbols>.

=cut

pack <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	479	574	
==>This module accepts no arguments to it's C<import> method and exports no
I<symbols>.

=cut

pack <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701399	701861	
==>o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 787,
                  "ARGS" => [
                              "p",
                              "ic",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 670 \ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11465	11555	
==>RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_END_${CURIC <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8651	8741	
==>RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_END_${CURIC <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7223	7313	
==>RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_END_${CURIC <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8172	8304	
==>g, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } else {
        die "Too many argu <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8954	9086	
==>g, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } else {
        die "Too many argu <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7825	7957	
==>g, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } else {
        die "Too many argu <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8614	8746	
==>g, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } else {
        die "Too many argu <==
4	/Users/nnunley/parrot/config/init/hints/netbsd.pm	201	317	
==>!~ /-pthread/) {
        $ccflags .= ' -pthread';
    }
    $conf->data->set(ccflags => $ccflags);

    my $libs = $c <==
4	/Users/nnunley/parrot/config/init/hints/openbsd.pm	293	409	
==>!~ /-pthread/) {
        $ccflags .= ' -pthread';
    }
    $conf->data->set(ccflags => $ccflags);

    my $libs = $c <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5854	5945	
==>}
			while($_=pop(@{$elsestack->{$elsetag}})) {
				push @{$code{$seg}->{code}}, "ELSEBRANCH <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8199	8288	
==>}
		while($_=pop(@{$elsestack->{$elsetag}})) {
			push @{$code{$seg}->{code}}, "ELSEBRANCH <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2750	2882	
==>s );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$P <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3059	3191	
==>s );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$P <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2854	2986	
==>s );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$P <==
4	/Users/nnunley/parrot/config/inter/pmc.pm	1675	1800	
==>cs) {
        if (exists $pmc_order->{$_}) {
            $sorted_pmcs[$pmc_order->{$_}] = $_;

            #if (exists $pmc_or <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	1775	1863	
==>t is false.

=item C<pasm_output_is($code, $expected, $description)> or C<output_is($code <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	24189	24313	
==>pr2->[0],
    );
    push @opcodes, new LabelOp( $parser,
        'arg1' => $lbl2,
    );
    return [ $result, \@opcode <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	8428	8547	
==>h(@expr, [ "0.0", "INT"],   # Cheating, making not a binary op
				[ "not", "PUN"] );
			next;
		}

		if ($unary) {
			p <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1861	1969	
==>'t override the user even if the program they provided appears to be
    # broken
    if ($ret == -1 and !$co <==
4	/Users/nnunley/parrot/config/inter/make.pm	1735	1843	
==>'t override the user even if the program they provided appears to be
    # broken
    if ($ret == -1 and !$co <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1875	1983	
==>'t override the user even if the program they provided appears to be
    # broken
    if ($ret == -1 and !$co <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	21263	21387	
==>";
            $pir .= "    cur_ic = bc.read_uint8()\n    next_pc += 1\n";
            $pir .= binary_dispatch_table($_, @rul <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11427	11534	
==>r->new($block, $token);
      my $op    = substr($self->forth->text, 0, -1);
      my $value = Jako::Constru <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11974	12081	
==>r->new($block, $token);
      my $op    = substr($self->forth->text, 0, -1);
      my $value = Jako::Constru <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12517	12624	
==>r->new($block, $token);
      my $op    = substr($self->forth->text, 0, -1);
      my $value = Jako::Constru <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	25419	25558	
==>ra_type paragraph because in ignore mode.\n";
      next;
    }
    #~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2489	2598	
==>.
    my $cmd = "gcov -f -b -o $dirname $src_filename";
    print "Running $cmd\n" if $DEBUG;
    open (GCOVSU <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	862	967	
==>ko::Construct::Expression::Value::Identifier));

  my $self = bless {
    BLOCK  => $block,

    KIND   => <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	826	931	
==>ko::Construct::Expression::Value::Identifier));

  my $self = bless {
    BLOCK  => $block,

    KIND   => <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2504	2704	
==>t",      # horizontal tab
                last;
            s/^\\v//
                and $str .= "\x0b",    # vertical tab
                last;
            s/^\\([0-9]{1,3})//
                an <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4018	4218	
==>t",      # horizontal tab
                last;
            s/^\\v//
                and $str .= "\x0b",    # vertical tab
                last;
            s/^\\([0-9]{1,3})//
                an <==
4	/Users/nnunley/parrot/languages/dotnet/tools/benchmark.pl	367	483	
==>nt "$diff (S: $start E: $end)\n";
	}
	my $sum = 0;
	$sum += $_ foreach @times;
	my $av = $sum / 5;
	print "AVERA <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2047	2159	
==>nless $left_sym;
    $left_type = $left_sym->type;
  }
  else {
    $left_type = $left->type;
  }

  my $right_ty <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2005	2117	
==>nless $left_sym;
    $left_type = $left_sym->type;
  }
  else {
    $left_type = $left->type;
  }

  my $right_ty <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1927	2039	
==>nless $left_sym;
    $left_type = $left_sym->type;
  }
  else {
    $left_type = $left->type;
  }

  my $right_ty <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680787	681077	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681563	681853	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682337	682627	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683112	683402	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "", <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8033	8141	
==>fined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_symbol($name);

  return $found ? <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8680	8788	
==>fined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_symbol($name);

  return $found ? <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9348	9456	
==>fined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_symbol($name);

  return $found ? <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10017	10125	
==>fined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_symbol($name);

  return $found ? <==
4	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	8243	8398	
==>emp = ();

            foreach my $arg (@args)
            {
                my ($use, $type) = $arg =~
                    m/^(in|out|inout|inconst|invar|l <==
4	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	2952	3060	
==>pen my $MANI, '>', 'MANIFEST';
print $MANI '# $' . 'Id' . '$' . "\n";  # confuse SVN
print $MANI "#\n"; 
prin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168516	168606	
==>({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169458	169548	
==>({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540373	540476	
==>ops/math.ops\"\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541625	541728	
==>ops/math.ops\"\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542877	542980	
==>ops/math.ops\"\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	5930	6033	
==>1]*)*(\Q$1\E)/gsc and next;
			_failmsg "Unmatched embedded quote ($1)",
				 pos $$textref;
			pos $$te <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	33150	33283	
==>= @_;
    my ($v, $w, $vv, $ww);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ($w->[2] eq 'P <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	33899	34032	
==>= @_;
    my ($v, $w, $vv, $ww);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ($w->[2] eq 'P <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	34823	34956	
==>= @_;
    my ($v, $w, $vv, $ww);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ($w->[2] eq 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	665	767	
==>=item C<defines()>

Returns the C C<#define> macros for register access etc.

=cut

sub defines
{
    r <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727575	727823	
==>\@1}};\n   {{\@1}} = {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	728372	728620	
==>\@1}};\n   {{\@1}} = {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729166	729414	
==>\@1}};\n   {{\@1}} = {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729966	730214	
==>\@1}};\n   {{\@1}} = {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164811	165074	
==>preter, {{\@1}}, {{\@2}}) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165740	166003	
==>preter, {{\@1}}, {{\@2}}) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166669	166932	
==>preter, {{\@1}}, {{\@2}}) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	75021	75149	
==>rortext
~~                     ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                       $errortext
.

selec <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7621	7724	
==>_of_ident(NAME)

This is a shortcut method that uses find_symbol() to locate a matching
symbol, and then <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8268	8371	
==>_of_ident(NAME)

This is a shortcut method that uses find_symbol() to locate a matching
symbol, and then <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8916	9019	
==>_of_ident(NAME)

This is a shortcut method that uses find_symbol() to locate a matching
symbol, and then <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9586	9689	
==>_of_ident(NAME)

This is a shortcut method that uses find_symbol() to locate a matching
symbol, and then <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	17	125	
==>Copyright (C) 2001-2005, The Perl Foundation.
# This program is free software. It is subject to the same lice <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18	126	
==>Copyright (C) 2001-2005, The Perl Foundation.
# This program is free software. It is subject to the same lice <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	17	125	
==>Copyright (C) 2001-2005, The Perl Foundation.
# This program is free software. It is subject to the same lice <==
4	/Users/nnunley/parrot/tools/build/pbc2c.pl	7760	7866	
==>Copyright (C) 2001-2005, The Perl Foundation.
This program is free software. It is subject to the same lice <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	328900	329182	
==>",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 386,
                  "ARG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677601	677707	
==>{{\@1}}->vtable->unshift_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678379	678485	
==>{{\@1}}->vtable->unshift_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23924	24026	
==>if defined $::RD_TRACE;
		') . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) .'

		$_tok = undef <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1319	1424	
==>really should not be
  # triggered in normal operation, even with bad source code as input.
  #

  $self-> <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1264	1369	
==>really should not be
  # triggered in normal operation, even with bad source code as input.
  #

  $self-> <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1167	1272	
==>really should not be
  # triggered in normal operation, even with bad source code as input.
  #

  $self-> <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467663	467761	
==>erpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468534	468632	
==>erpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469408	469506	
==>erpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470283	470381	
==>erpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114875	115173	
==>> 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115729	116027	
==>> 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116584	116882	
==>> 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
4	/Users/nnunley/parrot/tools/dev/nm.pl	1610	1709	
==>e/text symbol
    U - undefined symbol

Uppercase indicates that the symbol is global; lowercase ind <==
4	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	1285	1392	
==>..$len-1) {
  print '    0x', substr ($fingerprint, $i*2, 2), ",\n";
}
print "};\n";

print << "EOF";

int
P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126509	126609	
==>Y" => "#line 271 \"src/ops/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127644	127744	
==>Y" => "#line 271 \"src/ops/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128779	128879	
==>Y" => "#line 271 \"src/ops/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897057	897226	
==>",
                              "s"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898075	898244	
==>",
                              "s"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899093	899262	
==>",
                              "s"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900112	900281	
==>",
                              "s"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter, {{\ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	5558	5741	
==>l (sort keys %table) {
    printf STDERR "%-30s: %d\n", $symbol, $table{$symbol};
  }
}


###############################################################################

=head2 BLOCK- <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	23991	24089	
==>my %options = defined $_[3] ? %{$_[3]} : ();
	my $omode   = defined $options{fail} ? $options{fail} <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	9920	10018	
==>s_in_dir_8dot3{$dirname}{$filename_8dot3}) {
            error("MANIFEST", $line, "$_: 8.3 name col <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	46518	46611	
==>turn the string "<<'EOMSG'\nThis is the message.\nEOMSG",
leaving the string " || die;\nexit;" <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21425	21627	
==>$block, $left, $right);
        }
        
        $right = $left;
      }

      next;
    }

    #
    # Subroutine Return Statements:
    #
    #   return;
    #   return <value>;
    #

    if ($toke <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22099	22238	
==>->_dump_curr_open() . ')'
        );
        DEBUG and print "Ignoring mistargetted =end $content\n";
        next;
      }
      
      unl <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22428	22567	
==>->_dump_curr_open() . ')'
        );
        DEBUG and print "Ignoring mistargetted =end $content\n";
        next;
      }
      
      unl <==
4	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	451	562	
==>$PConfig{test_prog} );

sub run_spec {
    my ( $spec_fh ) = @_;

    my $pattern = <$spec_fh>;
    chomp($patte <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	3519	3624	
==>, $depends);
}

## use_ok

sub use_ok (Str $module, :$todo, :$depends) is export {
    my $caller = caller <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610493	610724	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611395	611626	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612298	612529	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613204	613435	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5688	5917	
==>E" => "load_bytecode",
                  "FLAGS" => ":load_file",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6353	6582	
==>E" => "load_bytecode",
                  "FLAGS" => ":load_file",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
4	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	1169	1319	
==>f->{raw_pir} } ) {
        if ( $line =~ $verbatim_begin ) {
            $verbatim = 1;
        }
        if ( $line =~ $verbatim_end ) {
            $ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	153	254	
==>e Regex::Ops::List;
use Regex::State;
use strict;
require 'Regex.pm';

sub new {
    my ($proto, %opti <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939753	940083	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940644	940974	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941536	941866	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942428	942758	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	1025	1179	
==>> "long *",
       c => "char",
       s => "short",
       2 => "short *",
       f => "float",
       d => "double",
       t => "char *",
       v => "v <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	1440	1594	
==>> "long *",
       c => "char",
       s => "short",
       2 => "short *",
       f => "float",
       d => "double",
       t => "char *",
       v => "v <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	2345	2499	
==>> "long *",
       c => "char",
       s => "short",
       2 => "short *",
       f => "float",
       d => "double",
       t => "char *",
       v => "v <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	64022	64118	
==>by a
corresponding nested closing tag (and the failure mode was not "MAX" or "PARA").

=item C<Di <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332650	332762	
==>\n  /* TODO all results from string_to_cstring() need freeing\n     but this generates ugly warnings WRT discardi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333928	334040	
==>\n  /* TODO all results from string_to_cstring() need freeing\n     but this generates ugly warnings WRT discardi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335206	335318	
==>\n  /* TODO all results from string_to_cstring() need freeing\n     but this generates ugly warnings WRT discardi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336485	336597	
==>\n  /* TODO all results from string_to_cstring() need freeing\n     but this generates ugly warnings WRT discardi <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3615	3726	
==>in(", ", %props));

    $name =~ s/::/__/g;

    if (exists $props{fn} or exists $props{fnlib}) {
      $name .= <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	3050	3161	
==>in(", ", %props));

    $name =~ s/::/__/g;

    if (exists $props{fn} or exists $props{fnlib}) {
      $name .= <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3335	3437	
==>if (exists $props{fn} or exists $props{fnlib}) {
    my $fnlib;

    if (exists $props{fnlib} and $prop <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	5999	6101	
==>if (exists $props{fn} or exists $props{fnlib}) {
    my $fnlib;

    if (exists $props{fnlib} and $prop <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	315181	315443	
==>AGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 368,
                  "ARGS" => [
                              "i" <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10301	10418	
==>ef);
		};

		#shift the error token

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Shift \$error token and go <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9839	9950	
==>ef);
		};

		#shift the error token

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Shift \$error token and go <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	8874	8968	
==>->{args}->[1]->maxlen(); }

package Regex::Ops::Tree::rule;
sub minlen { my ($op) = @_; $op->{a <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83867	84157	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84773	85063	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85679	85969	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "" <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	250	354	
==>9Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Label;

use Carp;

use base qw(J <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	1798	1918	
==>ywhere
        || $Latin1Code_to_fallback{$in} # Fallback.
        || $FAR_CHAR; # Fall further back
  }
  
  # Normal ha <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1631	1717	
==>serToken>, L<Pod::Simple>, L<Pod::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLAIMER <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2798	2884	
==>serToken>, L<Pod::Simple>, L<Pod::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLAIMER <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1918	2004	
==>serToken>, L<Pod::Simple>, L<Pod::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLAIMER <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71907	72262	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73508	73863	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75110	75465	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76712	77067	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510478	510687	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511216	511425	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511954	512163	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17019	17152	
==>uctor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 41
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516203	516468	
==>UMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516941	517206	
==>UMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517680	517945	
==>UMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518418	518683	
==>UMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712573	712667	
==>str_index(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713680	713774	
==>str_index(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720040	720134	
==>str_index(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721240	721334	
==>str_index(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586863	586956	
==>cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588049	588142	
==>cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589235	589328	
==>cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590422	590515	
==>cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3} <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2058	2157	
==>ype).
${PTEMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0} <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3310	3409	
==>ype).
${PTEMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0} <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5939	6038	
==>ype).
${PTEMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0} <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6497	6596	
==>ype).
${PTEMP0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0} <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76150	76255	
==>=~ s/\s+/ /g;
	print ERROR "\n" if _verbosity("WARN");
	write ERROR;
	return 1;
}

sub _warn($$;$)
{
	retu <==
4	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5931	6021	
==>ead1 AUTHOR

Joshua Hoblitt C<jhoblitt@cpan.org>

=head1 SEE ALSO

F<docs/configuration.pod <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6780	6870	
==>ead1 AUTHOR

Joshua Hoblitt C<jhoblitt@cpan.org>

=head1 SEE ALSO

F<docs/configuration.pod <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	2067	2157	
==>ead1 AUTHOR

Joshua Hoblitt C<jhoblitt@cpan.org>

=head1 SEE ALSO

F<docs/configuration.pod <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2021	2126	
==>able %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->type;
  }
  else {
    $left_type = <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1979	2084	
==>able %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->type;
  }
  else {
    $left_type = <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1901	2006	
==>able %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->type;
  }
  else {
    $left_type = <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	16791	16890	
==>DREG => 'loadreg' }, "post_load for typed exception handler");
	$pir .= "### end post_load (typed eh <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38480	38741	
==>P_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39344	39605	
==>P_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYP <==
4	/Users/nnunley/parrot/lib/Test/More.pm	12614	12715	
==>st script blowing up.

It works on references, too:

    isa_ok( $array_ref, 'ARRAY' );

The diagnosti <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	261	353	
==>N { *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG }

__PACKAGE__->_accessorize(
  'sour <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94351	94628	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95243	95520	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96136	96413	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10890	11000	
==>node,2));
  if ($temp !~ /^P/) {
    my $pmc = $self->_save_1 ('P');
    $self->_morph ($pmc, $temp);
    $self <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72757	72867	
==>(name);\n  if (p == NULLfunc) {\n      const char * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PAR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74359	74469	
==>(name);\n  if (p == NULLfunc) {\n      const char * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PAR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75961	76071	
==>(name);\n  if (p == NULLfunc) {\n      const char * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PAR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77564	77674	
==>(name);\n  if (p == NULLfunc) {\n      const char * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PAR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159377	159493	
==>ne 176 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "L <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160274	160390	
==>ne 176 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "L <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161171	161287	
==>ne 176 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "L <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1513	1610	
==>tart_element({ Name => 'op', Attributes => { kind => 'postfix', name => '--' } });
  $self->ident- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332802	333107	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdopen", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334080	334385	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdopen", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335358	335663	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdopen", <==
4	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeSmart.pm	14	115	
==>e 5.008;
## Anything before 5.8.0 is GIMPY!
## This module is to be use()'d only by Pod::Simple::Trans <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6830	6945	
==>ight.
dec stack_depth
PIR
	}

	return $pir;
}

# Pre and post call hooks.
sub pre_call {
    my $self = shift;
    r <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37934	38047	
==>'}");
		$pir .= "### end post_call\n";
	}

	# Unsupported class.
	else {
		die "Do not know how to handle class $r <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	4172	4272	
==>s done.  However, QB says that if no prompt, use " ?"
	if ($type[CURR] eq "STRING") {
		$promptcode.= <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	4727	4827	
==>od::Simple::MANY_LINES, " lines.\n";
      $self->SUPER::parse_lines(
        splice @{ $self->{'sour <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101348	101630	
==>,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102118	102400	
==>,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103554	103836	
==>,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	13575	13690	
==>ine:"],
      map( ['~Para', {'start_line' => $m, '~cooked' => 1},
        #['~Top', {'start_line' => $m},
        $ <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	18037	18141	
==>($op eq '<<') {
		$ld1pos = pos($$textref);
		my $label;
		if ($$textref =~ m{\G([A-Za-z_]\w*)}gc) {
			$ <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	53818	53919	
==>matically reset to 1 (under C<-w>, a warning is issued if the argument 
has to be reset).

=item 4.

A <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072897	1073241	
==>\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075082	1075426	
==>\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077267	1077611	
==>\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079453	1079797	
==>\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178389	178808	
==>RS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 213,
                  "ARGS" => [
                              "sc",
                              "sc",
                              "ic"
                            ],
                  "BODY <==
4	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	5797	5987	
==>+)"\s*;\s*$/)
            {
                if (exists $self->{VERSION})
                {
                    #die "VERSION MULTIPLY DEFINED!";
                }

                $self->vers <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	14074	14187	
==>) {             $self->output_fh( *STDOUT{IO}   );
  } elsif(ref(\$to) eq 'GLOB') { $self->output_fh( $to );
  } e <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	13241	13337	
==>ed, and those tests to knowingly
fail, we provide the `:todo(1)` named parameter for all these  f <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	280	379	
==>,             'branch', 'write_RET'],
  ['write_N_UNDEF','ne', 'I0', '.Scratchpad', 'write_N_LAMBDA' <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7720	7817	
==>' Truth
s$="Hello"
if s$ then print "This is true" else print "Oops (string)"
s$=""
if s$ then pri <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14707	14804	
==>' Truth
s$="Hello"
if s$ then print "This is true" else print "Oops (string)"
s$=""
if s$ then pri <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	248	338	
==>Parrot::Pmc2c> (and the L<subclasses|/SUBCLASSES> defined in this
file) is used by F<tools/ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773385	773474	
==>" => "#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774295	774384	
==>" => "#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775205	775294	
==>" => "#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776116	776205	
==>" => "#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549430	549692	
==>UMP_ENEXT",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "T <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550730	550992	
==>UMP_ENEXT",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "T <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552031	552293	
==>UMP_ENEXT",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "T <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	51578	51671	
==>ator is interpreted as a closing delimiter.

But, by extracting the directive using
S<C<extrac <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	2745	2867	
==>else {
                @{ $t->{args} } = @children;
                return rop('multi_match', [0,1,1,$self->pass1($t, $ctx) <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	587	680	
==>ruct::Block');
  confess("Dest (" . ref($dest) . ") is not Identifier!") unless UNIVERSAL::isa <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	578	671	
==>ruct::Block');
  confess("Dest (" . ref($dest) . ") is not Identifier!") unless UNIVERSAL::isa <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	467	560	
==>ruct::Block');
  confess("Dest (" . ref($dest) . ") is not Identifier!") unless UNIVERSAL::isa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344420	344514	
==>ng_free(mode); */\n  /* string_cstring_free(path); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345662	345756	
==>ng_free(mode); */\n  /* string_cstring_free(path); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346904	346998	
==>ng_free(mode); */\n  /* string_cstring_free(path); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348147	348241	
==>ng_free(mode); */\n  /* string_cstring_free(path); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}} <==
4	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	2728	2904	
==>->{table}{$symb} ) {
            my $defn = $self->{table}{$symb};
            return $defn;
        }
        else {
            return undef;
        }
    }

    sub <==
4	/Users/nnunley/parrot/tools/dev/lib_deps.pl	14728	14847	
==>pfile     stdio.h
tmpnam      stdio.h
tolower     ctype.h
toupper     ctype.h
trunc       math.h
truncf      math.h
trun <==
4	/Users/nnunley/parrot/Configure.pl	5588	5696	
==>ompiler supports inline
   --optimize           Optimized compile
   --optimize=flags     Add given optimizer <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	20646	20747	
==>\$ldel2]*)*$ldel2/gcs
			|| do { pos $$textref = $startpos; return };
		}
		$rd2pos = pos($$textref)-1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117214	117518	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	119545	119849	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120400	120704	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	1493	1586	
==>onearg);
@Regex::Ops::Tree::rule::ISA         = qw(Regex::Ops::Tree::_onearg);
@Regex::Ops::Tr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404074	404376	
==>=> 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404985	405287	
==>=> 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405897	406199	
==>=> 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406809	407111	
==>=> 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14936	15049	
==>9,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21281	21394	
==>9,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24527	24640	
==>9,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27673	27786	
==>9,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24602	24716	
==>turn);
      $return = $temp;
    }
  } else {
    $return = $self->_generate($node->{children}[1]);
    if ($retur <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26501	26615	
==>turn);
      $return = $temp;
    }
  } else {
    $return = $self->_generate($node->{children}[1]);
    if ($retur <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	15883	15990	
==>line}}, $complaint
      # for a report to be generated later!
  }
  return 1;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@ <==
4	/Users/nnunley/parrot/lib/Test/More.pm	3185	3285	
==>ehand how many tests
your script is going to run.  In this case, you can declare that you
have no pla <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237015	237434	
==>re",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 276,
                  "ARGS" => [
                              "i",
                              "sc",
                              "s"
                            ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	425353	425606	
==>_accept(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1405	1526	
==>ERR => $out_f, 
        );
        my $prog_output = Parrot::Test::slurp_file( "$out_f" );

        @_ = ( $prog_output, $ <==
4	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1321	1442	
==>ERR => $out_f, 
        );
        my $prog_output = Parrot::Test::slurp_file( "$out_f" );

        @_ = ( $prog_output, $ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7928	8032	
==>eg);
    return ("restore $reg", "save $reg");
}

use vars qw($DEBUG_LABEL);
sub output_popindex {
    my <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071757	1071879	
==>],
                  "BODY" => "#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073942	1074064	
==>],
                  "BODY" => "#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076127	1076249	
==>],
                  "BODY" => "#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078313	1078435	
==>],
                  "BODY" => "#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? <==
4	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	1369	1471	
==>r 4

=item p

Parameter is a void pointer, taken from the PMC's data pointer. PMC is
assumed to be an u <==
4	/Users/nnunley/parrot/config/auto/gdbm.pm	416	511	
==>:Base);

use Config;
use Parrot::Configure::Step ':auto';

$description = 'Determining if your p <==
4	/Users/nnunley/parrot/config/auto/gmp.pm	370	465	
==>:Base);

use Config;
use Parrot::Configure::Step ':auto';

$description = 'Determining if your p <==
4	/Users/nnunley/parrot/config/auto/readline.pm	377	472	
==>:Base);

use Config;
use Parrot::Configure::Step ':auto';

$description = 'Determining if your p <==
4	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	3168	3296	
==>enerated files are left in the t/* directories.
        # Let 'make clean' and 'svn:ignore' take care of them.

        return <==
4	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2760	2885	
==>enerated files are left in the t/* directories.
        # Let 'make clean' and 'svn:ignore' take care of them.

        return <==
4	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	2777	2902	
==>enerated files are left in the t/* directories.
        # Let 'make clean' and 'svn:ignore' take care of them.

        return <==
4	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	3326	3451	
==>enerated files are left in the t/* directories.
        # Let 'make clean' and 'svn:ignore' take care of them.

        return <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477174	477454	
==>floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478070	478350	
==>floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478961	479241	
==>floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479853	480133	
==>floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	337417	337669	
==>d(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655606	655858	
==>d(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011423	1011675	
==>d(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012188	1012440	
==>d(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834345	834534	
==>, STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835071	835260	
==>, STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835823	836012	
==>, STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836576	836765	
==>, STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377556	377678	
==>ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378440	378562	
==>ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379324	379446	
==>ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380209	380331	
==>ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763204	763478	
==>access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764057	764331	
==>access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764910	765184	
==>access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765764	766038	
==>access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24372	24464	
==>->_constant(0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{children <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25261	25353	
==>->_constant(0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{children <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26271	26363	
==>->_constant(0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{children <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27161	27253	
==>->_constant(0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{children <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591598	591695	
==>reter, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subcla <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592808	592905	
==>reter, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subcla <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594018	594115	
==>reter, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subcla <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595229	595326	
==>reter, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subcla <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2010	2122	
==>()> to create the path if necessary.

=cut

sub create_path
{
    my $self = shift;
    
    return unless $self- <==
4	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	987	1099	
==>()> to create the path if necessary.

=cut

sub create_path
{
    my $self = shift;
    
    return unless $self- <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6348	6439	
==>NCH_switch_${CURIC}:
i = elements P_arg_0
POST_BRANCH_switch_${CURIC}_LOOP:
if i == 0 goto P <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4286	4377	
==>NCH_switch_${CURIC}:
i = elements P_arg_0
POST_BRANCH_switch_${CURIC}_LOOP:
if i == 0 goto P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830665	830750	
==>ONTEXT(interpreter->ctx)->user_stack, &i, STACK_ENTRY_INT, STACK_CLEANUP_NULL);\n  {{+ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831406	831491	
==>ONTEXT(interpreter->ctx)->user_stack, &i, STACK_ENTRY_INT, STACK_CLEANUP_NULL);\n  {{+ <==
4	/Users/nnunley/parrot/lib/Parrot/Op.pm	1394	1503	
==>mber register index.
    p   The argument is a PMC register index.
    s   The argument is a string register i <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	583	679	
==>dent, 'Jako::Construct::Expression::Value::Identifier');

  my $self = bless {
    BLOCK => $bloc <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	658	754	
==>dent, 'Jako::Construct::Expression::Value::Identifier');

  my $self = bless {
    BLOCK => $bloc <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	658	754	
==>dent, 'Jako::Construct::Expression::Value::Identifier');

  my $self = bless {
    BLOCK => $bloc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645914	646147	
==>datatype_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646811	647044	
==>datatype_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1749	1855	
==>scape {
  foreach my $x (@_) {
    # Escape things very cautiously:
    $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\. <==
4	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1852	1958	
==>scape {
  foreach my $x (@_) {
    # Escape things very cautiously:
    $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\. <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154406	154765	
==>_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 187,
                  "ARGS" => [
                              "s",
                              "s", <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	33340	33473	
==>]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   print <<EO <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	34089	34222	
==>]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   print <<EO <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	35013	35146	
==>]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   print <<EO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641717	642017	
==>"JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642604	642904	
==>"JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643492	643792	
==>"JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644384	644684	
==>"JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	51	154	
==>ON = '2.02';
use Pod::Simple ();
BEGIN {@ISA = ('Pod::Simple')}

use strict;

use Carp ();

BEGIN { *DEB <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	50	153	
==>ON = '2.02';
use Pod::Simple ();
BEGIN {@ISA = ('Pod::Simple')}

use strict;

use Carp ();

BEGIN { *DEB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561914	562012	
==>}}) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562998	563096	
==>}}) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", { <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	22520	22626	
==>cified in @ARGS.
#
sub main {
    my ($default, $dump, $gen_c, $tree, @include);
    # initialization to pr <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39756	39859	
==>isplay' => \&_op_display,
  'newline' => \&_op_newline,
  'write-char' => \&_op_write_char,

####
#### S <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	15892	15993	
==>rans = new Hash
    type_trans["type"] = ELEMENT_TYPE_CLASS
    type_trans["byref"] = 0
    annotate_r <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	10270	10357	
==>ine.pmc eval.pmc nci.pmc float.pmc integer.pmc bigint.pmc complex.pmc string.pmc boolean <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29308	29409	
==>struction'} =~ /\$\{LOADREG\}/) {
			$need_dest = 0;
			$mv->{'LOADREG'} = 'loadreg';
			push @localmv <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27217	27306	
==>$code = ''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying terminal: [' . $self- <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29320	29409	
==>$code = ''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying terminal: [' . $self- <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31417	31506	
==>$code = ''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying terminal: [' . $self- <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3041	3151	
==>"NREG(%ld)",
    'p'  => "PREG(%ld)",
    's'  => "SREG(%ld)",
    'k'  => "PREG(%ld)",
    'ki' => "IREG(%ld)" <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2861	2971	
==>"NREG(%ld)",
    'p'  => "PREG(%ld)",
    's'  => "SREG(%ld)",
    'k'  => "PREG(%ld)",
    'ki' => "IREG(%ld)" <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1958	2064	
==>"NREG(%ld)",
  'p'   => "PREG(%ld)",
  's'   => "SREG(%ld)",
  'k'   => "PREG(%ld)",
  'ki'  => "IREG(%ld)" <==
4	/Users/nnunley/parrot/languages/scheme/Scheme.pm	106	200	
==>use strict;

use Data::Dumper;

use Scheme::Tokenizer();
use Scheme::Parser();
use Scheme::Gene <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8208	8338	
==>== 0) {
        die "Must always have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $r <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8990	9120	
==>== 0) {
        die "Must always have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $r <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7861	7991	
==>== 0) {
        die "Must always have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $r <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8650	8780	
==>== 0) {
        die "Must always have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $r <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610389	610694	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_cl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611291	611596	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_cl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612194	612499	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_cl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613100	613405	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_cl <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8148	8275	
==>(@_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } else <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8930	9057	
==>(@_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } else <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7801	7928	
==>(@_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } else <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8590	8717	
==>(@_ == 2) {
        ($reg, $fallback) = @_;
    } elsif (@_ == 0) {
        die "Must always have fallback defined!";
    } else <==
4	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	1708	1814	
==>e, $test_no ); 
  
  my $pass = $self->{builder}->is_eq( $output, $expected, $desc );

  return $pass;
}

1 <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1375	1461	
==>ed -Wdisabled-optimization -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COM <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1420	1506	
==>ed -Wdisabled-optimization -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COM <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1424	1510	
==>ed -Wdisabled-optimization -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516181	516466	
==>{
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516919	517204	
==>{
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517658	517943	
==>{
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518396	518681	
==>{
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inl <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	686	786	
==>count, $expr) = _build_tree ($tokens, $count);
    push @{$temp->{children}}, $expr;
  }
  elsif ($to <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	903	1003	
==>count, $expr) = _build_tree ($tokens, $count);
    push @{$temp->{children}}, $expr;
  }
  elsif ($to <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1117	1217	
==>count, $expr) = _build_tree ($tokens, $count);
    push @{$temp->{children}}, $expr;
  }
  elsif ($to <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	5496	5593	
==>took all the hard work out of testing and was really, really easy
to learn.  Paul Johnson simultan <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332670	332773	
==>lts from string_to_cstring() need freeing\n     but this generates ugly warnings WRT discarding the cons <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333948	334051	
==>lts from string_to_cstring() need freeing\n     but this generates ugly warnings WRT discarding the cons <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335226	335329	
==>lts from string_to_cstring() need freeing\n     but this generates ugly warnings WRT discarding the cons <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336505	336608	
==>lts from string_to_cstring() need freeing\n     but this generates ugly warnings WRT discarding the cons <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072046	1072170	
==>n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074231	1074355	
==>n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076416	1076540	
==>n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078602	1078726	
==>n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7297	7425	
==>desc) = @_;
    $reg = value($reg);

    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        return ( <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6939	7067	
==>desc) = @_;
    $reg = value($reg);

    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        return ( <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9397	9524	
==>desc) = @_;
    $reg = value($reg);
    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        return ( <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9091	9218	
==>desc) = @_;
    $reg = value($reg);
    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        return ( <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3356	3446	
==>efer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = conca <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5118	5208	
==>efer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = conca <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8030	8120	
==>efer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = conca <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8887	8977	
==>efer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = conca <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	26125	26262	
==>el;

      $self->begin_block($label, 'bare', undef);

      next;
    }

    #
    # Conditional Continuations:
    #
    #   } elsif (<v <==
4	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1698	1800	
==>"END";
# Regular expression test
# Generated by $0
# Pattern >>$pattern<<

END

    $driver->output_hea <==
4	/Users/nnunley/parrot/languages/regex/test.pl	3366	3468	
==>"END";
# Regular expression test
# Generated by $0
# Pattern >>$pattern<<

END

    $driver->output_hea <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	13330	13425	
==>these  functions.

The `:depends("string")` parameter to most of the functions is a way
to provi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800625	800728	
==>e 467 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801529	801632	
==>e 467 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802433	802536	
==>e 467 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803338	803441	
==>e 467 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586618	586706	
==>"#line 314 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587804	587892	
==>"#line 314 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588990	589078	
==>"#line 314 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590177	590265	
==>"#line 314 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2} <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	5208	5293	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub do_lin <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3267	3349	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub do_ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4637	4719	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub do_ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10819	10900	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sub do_ <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1870	2000	
==>et, $source) = @_;

    return
        "$CC $CFLAGS " .
        "-o " . $target . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2166	2296	
==>et, $source) = @_;

    return
        "$CC $CFLAGS " .
        "-o " . $target . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1961	2091	
==>et, $source) = @_;

    return
        "$CC $CFLAGS " .
        "-o " . $target . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	162	258	
==>irectory - Docs-Related Directory

=head1 SYNOPSIS

    use Parrot::Docs::Directory;

=head1 DESC <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	691	798	
==>BLOCK  => $block,

    TOKEN  => $token,
    VALUE  => $token->text,
    SCOPE  => $block->scope_of_ident($t <==
4	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	1483	1744	
==>_file: $!\n";
print $fh $output;
close $fh;


##############################################################################
# Subroutines.
##############################################################################

# This parses the input file, extracting e <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5154	5301	
==>fh};
        print {$FH} "  ";
        if ( exists $op->{result} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            m <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6186	6333	
==>fh};
        print {$FH} "  ";
        if ( exists $op->{result} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            m <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	31833	31937	
==>e would be stored in?
		my $dest_reg;
		if ($rule->{'pir'} =~ /\$\{STACK0\}/ &&
		    $rule->{'pir'} =~ / <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	34686	34819	
==>} =
            Pod::Simple::LinkSection->new( $it ); # treelet!

          next;
        }
        if($it =~ m/^[^\/\|,\$\%\@\ \"\<\> <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11066	11153	
==>}
if "${CURIC}" == "73" goto pre_call_HAS_RETURN_${CURIC}
goto pre_call_NO_RETURN_${CURI <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8252	8339	
==>}
if "${CURIC}" == "73" goto pre_call_HAS_RETURN_${CURIC}
goto pre_call_NO_RETURN_${CURI <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5914	6001	
==>}
if "${CURIC}" == "73" goto pre_call_HAS_RETURN_${CURIC}
goto pre_call_NO_RETURN_${CURI <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193488	193577	
==>0 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get_strin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194467	194556	
==>0 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get_strin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227336	227425	
==>0 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get_strin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228316	228405	
==>0 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get_strin <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	35991	36113	
==>tests, it will still be
considered a failure and will exit with 255.

So the exit codes are...

    0                   all <==
4	/Users/nnunley/parrot/lib/Test/More.pm	34062	34184	
==>tests, it will still be
considered a failure and will exit with 255.

So the exit codes are...

    0                   all <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	2857	2979	
==>tests, it will still be
considered a failure and will exit with 255.

So the exit codes are...

    0                   all <==
4	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	2148	2246	
==>eelet, can just traverse the content of the treeleet
@$treelet_object.  To wit:


  % perl -MData:: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553156	553297	
==>bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethod",
                  "FLA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554552	554693	
==>bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethod",
                  "FLA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555949	556090	
==>bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethod",
                  "FLA <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	2674	2774	
==>me> is the name of the dynamic library to be created.

C<%classes> is a map from the PMC names for wh <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	16730	16830	
==>alizer for a nested class may be specified as
an object of that class, or as a reference to a hash of <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	35655	35755	
==>ith zero (which is
normal).  If anything failed it will exit with how many failed.  If
you run less ( <==
4	/Users/nnunley/parrot/lib/Test/More.pm	33726	33826	
==>ith zero (which is
normal).  If anything failed it will exit with how many failed.  If
you run less ( <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	2522	2622	
==>ith zero (which is
normal).  If anything failed it will exit with how many failed.  If
you run less ( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344135	344237	
==>line 148 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const path = str <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345377	345479	
==>line 148 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const path = str <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346619	346721	
==>line 148 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const path = str <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347862	347964	
==>line 148 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const path = str <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640745	641035	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641509	641799	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645965	646255	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "", <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	28850	28963	
==>$tos);
    print <<EOC;
	$it = iter $var $cmt
EOC
    push @stack, [$tos->[0], $it, 'P']
}
sub FOR_ITER
{
    my ( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858700	858985	
==>2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859704	859989	
==>2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860708	860993	
==>2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861713	861998	
==>2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	20855	20980	
==>o branch
	my %is_map = (
	    '==' => 'iseq',
	    '!=' => 'isne',
	    '>' => 'isgt',
	    '>=' => 'isge',
	    '<' => 'islt' <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	366	477	
==>e Carp;

use base qw(Jako::Construct::Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Ex <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	357	468	
==>e Carp;

use base qw(Jako::Construct::Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Ex <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	357	468	
==>e Carp;

use base qw(Jako::Construct::Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Ex <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63104	63209	
==>nd $prod->additem($item)
						      or  _no_rule("repetition",$line,"$code$argcode($1)");

						!$matchr <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63825	63930	
==>nd $prod->additem($item)
						      or  _no_rule("repetition",$line,"$code$argcode($1)");

						!$matchr <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64541	64646	
==>nd $prod->additem($item)
						      or  _no_rule("repetition",$line,"$code$argcode($1)");

						!$matchr <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62468	62571	
==>nd $prod->additem($item)
					      or  _no_rule("repetition",$line,"$code$argcode($1)");

					!$matchr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353204	353435	
==>JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353948	354179	
==>JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354693	354924	
==>JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function" <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	6998	7101	
==>' => '/opt/local',
             'icu_shared' => '-lpthread -lm -L/opt/local/lib  -licuuc -licudata -lpth <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071102	1071417	
==>"JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073286	1073601	
==>"JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075471	1075786	
==>"JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077656	1077971	
==>"JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 "i" <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8131	8273	
==>eturn($semval);
			};

                $$check eq 'ABORT'
            and	do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Abort.\n" <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7765	7900	
==>eturn($semval);
			};

                $$check eq 'ABORT'
            and	do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Abort.\n" <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	957	1053	
==>ine will give you
a start-token with the tagname of "head1", token(s) for its
content, and then a <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1385	1481	
==>ine will give you
a start-token with the tagname of "head1", token(s) for its
content, and then a <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	6800	6938	
==>q 'text') {
          my $t = $next->text_r;
          while( $$t =~ m/$/mg ) {
            last if  ++$line_count  > 15; # no point in cou <==
4	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1544	1651	
==>ext;
  }
  return;
}

sub _handle_element_end {
  DEBUG and print "-- $_[1]\n";
  print {$_[0]{'output_fh'}} <==
4	/Users/nnunley/parrot/lib/Test/More.pm	35843	35940	
==>'d first
written my own ok() routines.  This module exists because I can't
figure out how to easil <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	11170	11262	
==>d+|[][&`'+*./|,";%=~:?!\@<>()-]|\^[a-z]?)}gci)
	{
	    unless ($$textref =~ m/\G((\$#?|[*\@\% <==
4	/Users/nnunley/parrot/config/auto/jit.pm	1332	1478	
==>) {
        $osname  = 'darwin';
        if ($conf->data->get('byteorder') == 1234) {
            $cpuarch = 'i386';
        } else {
            $ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	13563	13693	
==>" => 35
		}
	},
	{#State 18
		ACTIONS => {
			'CHAR' => 34,
			"=" => 36
		}
	},
	{#State 19
		DEFAULT => -5
	},
	{#State 20
		ACTI <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	6843	6966	
==>done
    # pop off the end and unshift onto the beginning
    $P1 = pop op2
    unshift op2, $P1
    inc op1
    goto neg

d <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2927	3019	
==>ss($address)>

Returns the C code for C<restart ADDRESS($address)>.

=cut

sub restart_addres <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3796	3888	
==>ss($address)>

Returns the C code for C<restart ADDRESS($address)>.

=cut

sub restart_addres <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3526	3618	
==>ss($address)>

Returns the C code for C<restart ADDRESS($address)>.

=cut

sub restart_addres <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	2237	2327	
==>en_class'}  ||= 'Pod::Simple::PullParserTextToken';
  $self->{'end_token_class'}   ||= 'Pod <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10679	10780	
==>:charclass::render {
    die;
}

sub Regex::Ops::Tree::classpieces::render {
    die;
}

sub Regex::Op <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	36171	36271	
==>ny other number    how many failed (including missing or extras)

If you fail more than 254 tests, it <==
4	/Users/nnunley/parrot/lib/Test/More.pm	34242	34342	
==>ny other number    how many failed (including missing or extras)

If you fail more than 254 tests, it <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	3037	3137	
==>ny other number    how many failed (including missing or extras)

If you fail more than 254 tests, it <==
4	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	1264	1374	
==>h is uninteresting later on.
# 
# Example:
# F8,8
# translittranslit
#
# Flag is 'F'
# Name is 'translit'
# sub <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	24718	24810	
==>SAGE SUPPLIED
	{
		#WAS: $action .= "Parse::RecDescent::_error(qq{$self->{msg}}" .  ',$thisli <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	3078	3178	
==>),
            $self->new_item('Documents incompatible changes to Parrot that invalidate existing byt <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3231	3330	
==>=> "CONST(%ld)->u.key",
    'sc' => "CONST(%ld)->u.string",
    'kc' => "CONST(%ld)->u.key",
    'ki <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3039	3138	
==>=> "CONST(%ld)->u.key",
    'sc' => "CONST(%ld)->u.string",
    'kc' => "CONST(%ld)->u.key",
    'ki <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2141	2236	
==>=> "CONST(%ld)->u.key",
  'sc'  => "CONST(%ld)->u.string",
  'kc'  => "CONST(%ld)->u.key",
  'ki <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905329	905424	
==>ps\"\n  {{\@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906348	906443	
==>ps\"\n  {{\@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907367	907462	
==>ps\"\n  {{\@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908387	908482	
==>ps\"\n  {{\@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950529	950617	
==>dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_charset(interp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951489	951577	
==>dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_charset(interp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952449	952537	
==>dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_charset(interp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953410	953498	
==>dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_charset(interp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557172	557305	
==>' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmetho <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558555	558688	
==>' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmetho <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559939	560072	
==>' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmetho <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	52590	52685	
==>in a list context
is to split the processed string into as many non-overlapping fields as
possib <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	2075	2190	
==>GS}}; }

sub file   { return shift->{FILE};     }
sub line   { return shift->{LINE};     }

sub is_global   { return <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5233	5343	
==>y ($self, $bs) = @_;

    return <<END_C;

    if (!${bs}ops_addr)
	${bs}ops_addr = l_ops_addr;
    if (cur_opc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79332	79435	
==>er, enum_class_Undef);\n  }\n  else {\n      /* At this point we have the symbol's address. We just need <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80853	80956	
==>er, enum_class_Undef);\n  }\n  else {\n      /* At this point we have the symbol's address. We just need <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4069	4191	
==>lc($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _DBLoad {
	{
		no strict 'refs';

			exists(${_ <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10081	10201	
==>0x10
#DBG>		and	print STDERR "**Pop state $$stack[-1][0].\n";

			pop(@$stack);
		}

			@$stack
		or	do {

#DBG> <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9631	9742	
==>0x10
#DBG>		and	print STDERR "**Pop state $$stack[-1][0].\n";

			pop(@$stack);
		}

			@$stack
		or	do {

#DBG> <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3866	3976	
==>lc($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _DBLoad {
	{
		no strict 'refs';

			exists(${_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714634	714729	
==>h(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715557	715652	
==>h(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722321	722416	
==>h(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723350	723445	
==>h(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5614	5702	
==>C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTra <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4619	4707	
==>C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTra <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4596	4684	
==>C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTra <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3980	4068	
==>C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTra <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219291	219650	
==>_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 257,
                  "ARGS" => [
                              "p",
                              "sc" <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5631	5719	
==>t::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

= <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3207	3295	
==>t::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

= <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4613	4701	
==>t::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

= <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3997	4085	
==>t::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

= <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11411	11516	
==>Value::Identifier->new($block, $token);
      my $op    = substr($self->forth->text, 0, -1);
      my $val <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11958	12063	
==>Value::Identifier->new($block, $token);
      my $op    = substr($self->forth->text, 0, -1);
      my $val <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12501	12606	
==>Value::Identifier->new($block, $token);
      my $op    = substr($self->forth->text, 0, -1);
      my $val <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10512	10605	
==>);
}

=item C<file_with_relative_path($path)>

Returns a file with the specified relative path <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572386	572563	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573295	573472	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574205	574382	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575008	575185	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [ <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8153	8291	
==>{
        my $defn = $idf->[0];
        push @opcodes, @{ $idf->[1] };
        my $last_key = pop @{$var};
        my $result   = $defn <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31197	31302	
==>od)>

Always true for vtables.

=cut

sub implements
{
    my ($self, $meth) = @_;
    $self->implements_v <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32660	32765	
==>od)>

Always true for vtables.

=cut

sub implements
{
    my ($self, $meth) = @_;
    $self->implements_v <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39817	39922	
==>od)>

Always true for vtables.

=cut

sub implements
{
    my ($self, $meth) = @_;
    $self->implements_v <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	310854	311018	
==>" => "debug_print",
                  "FLAGS" => ":base_debug",
                  "ARGDIRS" => [],
                  "TYPE" => "function",
                  "CODE" = <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	322	457	
==>Jako::Construct::Block::Conditional::Else;

use Carp;

use base qw(Jako::Construct::Block::Conditional);

#
# new()
#

sub new
{
  my $c <==
4	/Users/nnunley/parrot/tools/dev/parrotbench.pl	6038	6135	
==>better)\n";
}
print "\n";

open (COPYOUT, ">&STDOUT") or die "Unable to copy STDOUT";
open (STDOUT <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	58242	58338	
==>yle optimized regex that matches a string delimited
by any one of the characters in the single ar <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	30217	30366	
==>lessOp( $parser,
        'arg1'   => $_var,
        'op'     => '>=',
        'arg2'   => $_limit,
        'result' => $lbl_end,
    );
    push <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327097	327201	
==>able->set_integer_native(interpreter, {{\@1}}, (INTVAL){{\@2}});\n  {{+=3}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327899	328003	
==>able->set_integer_native(interpreter, {{\@1}}, (INTVAL){{\@2}});\n  {{+=3}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10854	10952	
==>nd $self->isa("Jako::Construct::Block");
  confess "No content!"      unless @_;
  confess "Illegal <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	54218	54350	
==>dRelop( $_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 67
		 'exp', 3,
sub
#line 377 "Lua\lua51.yp"
{
            BuildR <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37424	37526	
==>cDescent::_tracefirst($text),
				  q{' . $rule->{"name"} . '})
					if defined $::RD_TRACE;').'
		$Par <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39827	39929	
==>cDescent::_tracefirst($text),
				  q{' . $rule->{"name"} . '})
					if defined $::RD_TRACE;').'
		$Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926691	927000	
==>k;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "strin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928161	928470	
==>k;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "strin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929631	929940	
==>k;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "strin <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	11641	11749	
==>turn ("# End of rule $name", "}");
}

sub output_rule_pass {
    my ($self, $name) = @_;
    return split(/\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506550	506682	
==>],
                  "BODY" => "#line 636 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507405	507537	
==>],
                  "BODY" => "#line 636 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	508260	508392	
==>],
                  "BODY" => "#line 636 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	12644	12734	
==>0-\377/[[((<<{{/ds }
	for ($rdel_inner, $rdel_outer) { tr/[]()<>{}\0-\377/]]))>>}}/ds }
	fo <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	2175	2304	
==>parent = $self->parent || return '';
    
    return join ' | ', 
        grep {length} 
            $parent->html_navigation($pat <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	15903	16025	
==>er->diag("'$cmd' failed with exit code $exit_code")
                  if $exit_code and not $pass;

            unless($ENV <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	18454	18576	
==>er->diag("'$cmd' failed with exit code $exit_code")
                  if $exit_code and not $pass;

            unless($ENV <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	25496	25600	
==>er->diag("'$cmd' failed with exit code $exit_code") if $exit_code and not $pass;

            unless($ENV <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25110	25224	
==>$node) = @_;
  my $return;
  my $num_children = defined $node->{children} ? @{$node->{children}} - 1 : 0;

  if($nu <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27010	27124	
==>$node) = @_;
  my $return;
  my $num_children = defined $node->{children} ? @{$node->{children}} - 1 : 0;

  if($nu <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24222	24335	
==>$node) = @_;
  my $return;
  my $num_children = defined $node->{children} ? @{$node->{children}} - 1 : 0;
  if($nu <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26121	26234	
==>$node) = @_;
  my $return;
  my $num_children = defined $node->{children} ? @{$node->{children}} - 1: 0;

  if($nu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072914	1073320	
==>\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075099	1075505	
==>\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077284	1077690	
==>\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079470	1079876	
==>\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
4	/Users/nnunley/parrot/lib/Test/More.pm	27538	27631	
==>ollowing functions is discouraged as they are not
actually testing functions and produce no di <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	1713	1798	
==>r-statement -I/usr/local/include -I/opt/local/include -pipe -fno-common -Wno-long-doub <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1101	1186	
==>r-statement -I/usr/local/include -I/opt/local/include -pipe -fno-common -Wno-long-doub <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1105	1190	
==>r-statement -I/usr/local/include -I/opt/local/include -pipe -fno-common -Wno-long-doub <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071105	1071451	
==>MP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 "i"
                               ], <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073289	1073635	
==>MP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 "i"
                               ], <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075474	1075820	
==>MP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 "i"
                               ], <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077659	1078005	
==>MP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 "i"
                               ], <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	15739	15847	
==>textref = $_[0] ? \$_[0] : \$_;
	my $wantarray = wantarray;
	my $pre  = defined $_[1] ? $_[1] : '\s*';

	my @ <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	351	447	
==>COMP_toker;
use COMP_parser;
use COMP_assignments;
use COMP_expressions;

our @basic=();


$SIG{_ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1680	1775	
==>args = $sym->args;

  $self->SYNTAX_ERROR("Wrong number of arguments (expected %d, got %d) in ca <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1380	1475	
==>args = $sym->args;

  $self->SYNTAX_ERROR("Wrong number of arguments (expected %d, got %d) in ca <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576542	576652	
==>e, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577554	577664	
==>e, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	895	999	
==>) ne "HASH";
  confess "Args are not hash!" if defined $args and ref($args) ne "ARRAY";

  my $self = ble <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33999	34093	
==>rse::RecDescent::lastexpected = ' . ($rule->hasleftmost($self) ? 'q{}'
				# WAS : 'qq{'.$self- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350538	350816	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351199	351477	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351861	352139	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352518	352796	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	21866	21972	
==>'I0', FLO => 'N0', STRING => 'S0' );
			if ($_->[2] ne "USER") {
				print CODE<<NOTUSER;
	new P2, .PerlHas <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	369	472	
==>e Carp;

use base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $dest, $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	360	463	
==>e Carp;

use base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $dest, $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	249	352	
==>e Carp;

use base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $dest, $ <==
4	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	973	1106	
==>de = Parrot::Test::run_command($cmd, CD => $self->{relpath},
                                           STDOUT => $out_f, STDERR => $o <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1014	1147	
==>de = Parrot::Test::run_command($cmd, CD => $self->{relpath},
                                           STDOUT => $out_f, STDERR => $o <==
4	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	1131	1258	
==>de = Parrot::Test::run_command( $cmd, 
						    CD     => $self->{relpath},
						    STDOUT => $out_f, 
						    STDERR => $o <==
4	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2064	2163	
==>de = Parrot::Test::run_command($cmd, #CD => $self->{relpath},
					   STDOUT => $out_f, STDERR => $o <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	27690	27794	
==>/fail, so todos are passes.

Of course, test #1 is $tests[0], etc...

=cut

sub summary {
    my($self) = <==
4	/Users/nnunley/parrot/lib/Parrot/Op.pm	2526	2620	
==>ing
whether each argument direction was prefixed by 'C<label>'.

C<$flags> is one or more (comm <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4485	4578	
==>"  unless defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "Ext <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4992	5085	
==>"  unless defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "Ext <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10395	10487	
==>" unless defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "Ext <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72557	72654	
==>/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  funcptr_t p = D <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74159	74256	
==>/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  funcptr_t p = D <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75761	75858	
==>/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  funcptr_t p = D <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77364	77461	
==>/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  funcptr_t p = D <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467049	467297	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467919	468167	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468790	469038	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469664	469912	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404045	404343	
==>( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404956	405254	
==>( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405868	406166	
==>( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406780	407078	
==>( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	5070	5191	
==>tests {
    my (%tests) = @_;

    my $count = scalar keys %tests;
    die unless $count;

    my $string = <<"END";
#!/us <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22054	22159	
==>::Value->new($block, $self->require_value);
        $op    = $self->require_infix_rel->text;
        $righ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22987	23092	
==>::Value->new($block, $self->require_value);
        $op    = $self->require_infix_rel->text;
        $righ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24633	24738	
==>::Value->new($block, $self->require_value);
        $op    = $self->require_infix_rel->text;
        $righ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467761	468052	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468632	468923	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469506	469797	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470381	470672	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_ <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1173	1277	
==>|= $conf->options->get($util);
    $prog ||= $ENV{uc($util)};

    # never override the user.  If a non-e <==
4	/Users/nnunley/parrot/config/inter/make.pm	994	1098	
==>|= $conf->options->get($util);
    $prog ||= $ENV{uc($util)};

    # never override the user.  If a non-e <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1170	1274	
==>|= $conf->options->get($util);
    $prog ||= $ENV{uc($util)};

    # never override the user.  If a non-e <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	310132	310233	
==>db->state |= PDB_BREAK;\n        interpreter->pdb->state |= PDB_STOPPED;\n        interpreter->pdb->cu <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	12310	12418	
==>> macro.

=cut

sub check_progs
{
    my ($progs, $verbose) = @_;

    $progs = [$progs] unless ref $progs eq <==
4	/Users/nnunley/parrot/config/auto/sizes.pm	2945	3049	
==>intval     = $conf->data->get('iv');
    my $intvalsize = $conf->data->get('intvalsize');

    # Get HUGE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676001	676090	
==>" => "#line 473 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_integer(interpreter, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676781	676870	
==>" => "#line 473 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_integer(interpreter, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1709	1815	
==>L<Parrot::Configure::Data> object.

=cut

sub data
{
    my $self = shift;

    return $self->{data};
}

=i <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1611	1695	
==>Pod::Simple::PullParserToken>, L<Pod::Simple>, L<Pod::Simple::Subclassing>

=head1 CO <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2778	2862	
==>Pod::Simple::PullParserToken>, L<Pod::Simple>, L<Pod::Simple::Subclassing>

=head1 CO <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1898	1982	
==>Pod::Simple::PullParserToken>, L<Pod::Simple>, L<Pod::Simple::Subclassing>

=head1 CO <==
4	/Users/nnunley/parrot/tools/dev/parrotbench.pl	2659	2780	
==>> undef,
    run_bench    => [],
    skip_bench   => [],
);

# Read Command Line Options
GetOptions(
    'conf=s'       => <==
4	/Users/nnunley/parrot/config/gen/cpu/x86_64/auto.pm	109	218	
==>essary.

=cut

package gen::cpu::x86_64::auto;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    my <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718079	718188	
==>, INTVAL_FMT, (INTVAL){{\@2}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719011	719120	
==>, INTVAL_FMT, (INTVAL){{\@2}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634551	634650	
==>7 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635669	635768	
==>7 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636787	636886	
==>7 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637906	638005	
==>7 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332400	332495	
==>st char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333678	333773	
==>st char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334956	335051	
==>st char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336235	336330	
==>st char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interp <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	10	111	
==>ent.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subjec <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	10	111	
==>ent.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subjec <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	10	111	
==>ent.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subjec <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	29356	29455	
==>code{$t}->{args}}) {
			push @{$code{$t}->{code}}, "\t.return $_\t# Returning arg\n";
		}
	}
	push @ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793402	793495	
==>ps/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794307	794400	
==>ps/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795212	795305	
==>ps/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796118	796211	
==>ps/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527071	527323	
==>n((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527824	528076	
==>n((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	537317	537569	
==>n((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	538821	539073	
==>n((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332598	332692	
==>ass_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all results from string_to_cstr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333876	333970	
==>ass_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all results from string_to_cstr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335154	335248	
==>ass_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all results from string_to_cstr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336433	336527	
==>ass_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all results from string_to_cstr <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10188	10288	
==>ams, escaper
    .local pmc ehs, eh, ss_propogate, ss
    .local string gen_pir, loadreg, storereg, e <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	2626	2723	
==>EV_OP\s(..?)\s(\w+)/(jit_info->prev_op) && (*jit_info->prev_op $1 $opcodes{$2})/g;
            $he <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607523	607614	
==>> "#line 473 \"src/ops/object.ops\"\n    {{\@1}} = VTABLE_get_attr(interpreter, {{\@2}}, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608427	608518	
==>> "#line 473 \"src/ops/object.ops\"\n    {{\@1}} = VTABLE_get_attr(interpreter, {{\@2}}, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374041	374152	
==>{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374924	375035	
==>{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375807	375918	
==>{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376691	376802	
==>{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	38143	38253	
==>t @{$params}, $parser->YYData->{self};
        $parser->YYData->{self} = undef;
    }
    my $fct = new_fct( <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	327	428	
==>se strict;
use SRM::Base;
our @ISA = qw/SRM::Base/;

# Constructor. Just base this class on a hash.
su <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	233	334	
==>se strict;
use SRM::Base;
our @ISA = qw/SRM::Base/;

# Constructor. Just base this class on a hash.
su <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	141	242	
==>se strict;
use SRM::Base;
our @ISA = qw/SRM::Base/;

# Constructor. Just base this class on a hash.
su <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1033	1151	
==>d print "== \"$_[1]\"\n";
  
  if(length $_[1]) {
    my $indent = '  ' x $_[0]{'indent'};
    my $text = $_[1];
    _p <==
4	/Users/nnunley/parrot/config/auto/gdbm.pm	628	740	
==>e = $conf->options->get('verbose');

    my $cc        = $conf->data->get('cc');
    my $libs      = $conf->data- <==
4	/Users/nnunley/parrot/config/auto/gmp.pm	569	681	
==>e = $conf->options->get('verbose');

    my $cc        = $conf->data->get('cc');
    my $libs      = $conf->data- <==
4	/Users/nnunley/parrot/config/auto/readline.pm	581	693	
==>e = $conf->options->get('verbose');

    my $cc        = $conf->data->get('cc');
    my $libs      = $conf->data- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332700	332815	
==>eed freeing\n     but this generates ugly warnings WRT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333978	334093	
==>eed freeing\n     but this generates ugly warnings WRT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335256	335371	
==>eed freeing\n     but this generates ugly warnings WRT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336535	336650	
==>eed freeing\n     but this generates ugly warnings WRT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n <==
4	/Users/nnunley/parrot/config/gen/makefiles.pm	4370	4489	
==>g/makefiles/root.in' => 'languages/HQ9plus/Makefile',
        commentType                  => '#',
        replace_slash <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761431	761530	
==>|| {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_PMC({{\@1}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762284	762383	
==>|| {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_PMC({{\@1}}) <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	662	755	
==>ruct::Expression::Value');
  confess("Right (" . ref($right) . ") is not Identifier") unless U <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722455	722685	
==>io, s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723484	723714	
==>io, s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724528	724758	
==>io, s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411822	411961	
==>"sc"
                            ],
                  "BODY" => "#line 552 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_send(interpreter, { <==
4	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	768	918	
==>test_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    output_isnt       => 'isnt_eq',
                        );

foreach <==
4	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	506	620	
==>test_map = (
    output_is   => 'is_eq',
    output_like => 'like',
    output_isnt => 'isnt_eq',
);

foreach <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712298	712392	
==>src/ops/python.ops\"\n  PMC * const io = PIO_STDOUT(interpreter);\n  STRING *s;\n  if (PIO_soft <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713405	713499	
==>src/ops/python.ops\"\n  PMC * const io = PIO_STDOUT(interpreter);\n  STRING *s;\n  if (PIO_soft <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	20011	20154	
==>a layer of package indirection
                my $level = $builder->level();
                $builder->level(2);

                # Load module <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	341	444	
==>:Goto;

use Carp;

use base qw(Jako::Construct::Statement);

my %block_types = (
  'while'    => { PREFI <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	930	1025	
==>e, parsing a "=head1 ..." line will give you
a start-token with the tagname of "head1", token(s) <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1358	1453	
==>e, parsing a "=head1 ..." line will give you
a start-token with the tagname of "head1", token(s) <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3428	3526	
==>]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK$registe <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5190	5288	
==>]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK$registe <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2175	2273	
==>]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK$registe <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3427	3525	
==>]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK$registe <==
4	/Users/nnunley/parrot/languages/APL/t/APL.pm	1855	1989	
==>$output, $block->name);
        }
      } else {
        SKIP: {
          skip("not implemented", 1);
          Parrot::Test::language <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	7811	7914	
==>RAY') {
    $self->{'source_arrayref'} = $_[0];
    DEBUG and print "$self 's source is array ref $_[0]\ <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	37543	37637	
==>ading bracket
characters in the actual opening tag that was matched (I<not> the pattern
that ma <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3511	3603	
==>code}}, "\t\$N99= \$S99\n";

		my($result, $type, @code)=EXPRESSION({ stuff => "\$X99", choos <==
4	/Users/nnunley/parrot/editor/kate_syntax.pl	278	388	
==>lighting file for Parrot IMCC.\n",
        "Supply the path to your Parrot directory as the only\n",
        "a <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2555	2661	
==>p    = $self->op;
  my $right = $self->right;

  if (defined $cond) {
    $handler->start_element({ Name => <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3229	3335	
==>p    = $self->op;
  my $right = $self->right;

  if (defined $cond) {
    $handler->start_element({ Name => <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3319	3425	
==>p    = $self->op;
  my $right = $self->right;

  if (defined $cond) {
    $handler->start_element({ Name => <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6733	6850	
==>BG>				and	$dbgerror
#DBG>				and	$$errstatus == 0
#DBG>				and	do {
#DBG>					print STDERR "**End of Error recover <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6419	6533	
==>BG>				and	$dbgerror
#DBG>				and	$$errstatus == 0
#DBG>				and	do {
#DBG>					print STDERR "**End of Error recover <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8606	8719	
==>BG>			and	$dbgerror
#DBG>			and	$$errstatus == 0
#DBG>			and	do {
#DBG>				print STDERR "**End of Error recover <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8217	8327	
==>BG>			and	$dbgerror
#DBG>			and	$$errstatus == 0
#DBG>			and	do {
#DBG>				print STDERR "**End of Error recover <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018026	1018120	
==>me_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = string_from_cstring(interpr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018951	1019045	
==>me_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = string_from_cstring(interpr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019881	1019975	
==>me_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = string_from_cstring(interpr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020812	1020906	
==>me_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = string_from_cstring(interpr <==
4	/Users/nnunley/parrot/tools/dev/install_files.pl	4917	5021	
==>eing installed under libdir
        # as it is typically donw with automake installed packages.  If there <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	654	753	
==>"s embedded in their substution values. q[] is used in
# some places as Win32 paths have \'s in, whi <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	612	711	
==>"s embedded in their substution values. q[] is used in
# some places as Win32 paths have \'s in, whi <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	616	715	
==>"s embedded in their substution values. q[] is used in
# some places as Win32 paths have \'s in, whi <==
4	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	2939	3030	
==>r( '' . $_[1]{'section'} ) }
     __PACKAGE__->new->parse_string_document('=head1 L<Foo/bI<a <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	3316	3424	
==>le_checksum($to,   $ignorePattern);
        return if $from_sum == $to_sum;
    }

    File::Copy::copy($from <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1041	1126	
==>rederef.code))
#define CUR_OPCODE ((opcode_t*)cur_opcode + CONTEXT(interpreter->ctx)-> <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	975	1060	
==>rederef.code))
#define CUR_OPCODE ((opcode_t*)cur_opcode + CONTEXT(interpreter->ctx)-> <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1171	1256	
==>rederef.code))
#define CUR_OPCODE ((opcode_t*)cur_opcode + CONTEXT(interpreter->ctx)-> <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83692	83781	
==>BLE_get_pmc_keyed_int(interpreter,\n      interpreter->iglobals, IGLOBALS_COMPREG_HASH);\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84598	84687	
==>BLE_get_pmc_keyed_int(interpreter,\n      interpreter->iglobals, IGLOBALS_COMPREG_HASH);\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85503	85592	
==>BLE_get_pmc_keyed_int(interpreter,\n      interpreter->iglobals, IGLOBALS_COMPREG_HASH);\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86410	86499	
==>BLE_get_pmc_keyed_int(interpreter,\n      interpreter->iglobals, IGLOBALS_COMPREG_HASH);\n <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35201	35319	
==>. ']<< (return value: [}
					. $_tok . q{]},
					  
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $rule- <==
4	/Users/nnunley/parrot/Configure.pl	3760	3854	
==>e suffix.

E.g.

--icuheaders='/home/lt/icu/'

=back

Other Options

=over

=item C<--maintaine <==
4	/Users/nnunley/parrot/lib/Parrot/Configure.pm	2106	2198	
==>list of registered steps.  Where each steps is represented by an
L<Parrot::Configure::Task> o <==
4	/Users/nnunley/parrot/config/auto/cgoto.pm	1139	1221	
==>core_ops_cg$(O): $(GENERAL_H_FILES) $(OPS_DIR)/core_ops_cg.c
$(OPS_DIR)/core_ops_cg <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766033	766299	
==>MP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766885	767151	
==>MP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767738	768004	
==>MP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768591	768857	
==>MP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100927	1101227	
==>> "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 122 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102125	1102425	
==>> "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 122 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1098532	1098831	
==>> "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 12 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099729	1100028	
==>> "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 12 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	513601	513899	
==>> "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514480	514778	
==>> "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515360	515658	
==>> "pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
4	/Users/nnunley/parrot/config/gen/makefiles.pm	705	836	
==>n/makefiles/CFLAGS.in' => 'CFLAGS',
        commentType                      => '#'
    );

    open(CFLAGS, ">> CFLAGS") or die "op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961041	961149	
==>Parrot_string_trans_encoding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962003	962111	
==>Parrot_string_trans_encoding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962965	963073	
==>Parrot_string_trans_encoding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963928	964036	
==>Parrot_string_trans_encoding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186049	186312	
==>eter, {{\@1}}, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186979	187242	
==>eter, {{\@1}}, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187909	188172	
==>eter, {{\@1}}, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2993	3085	
==>ibrary};

    $hout .= <<"EOH";
Parrot_PMC Parrot_lib_${lc_libname}_load(Parrot_INTERP interp <==
4	/Users/nnunley/parrot/config/init/hints/linux.pm	1199	1310	
==>bc 2.1.3
        # _XOPEN_SOURCE=500 gives 2 undefined warns (setenv, unsetenv) on 2.1.3
        $cflags .= ' -D <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	10731	10830	
==>ariable assignment, expect 7
a=0
b=7
a=b
print a

' Expect rough PI
print 22/7

' Expect 6.00000
t=6 <==
4	/Users/nnunley/parrot/config/gen/icu.pm	166	261	
==>d1 DESCRIPTION

Configures ICU and add appropriate targets to the Makefile.

=cut

package gen:: <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2702	2790	
==>nderscore appended.

=item C<run_core_func_decl($base)>

Optionally implemented in subcla <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672211	672446	
==>pmc(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680738	680973	
==>pmc(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752834	753067	
==>pmc(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759882	760115	
==>pmc(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	626554	626848	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627697	627991	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628841	629135	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	137	240	
==>(Exporter);
@EXPORT_OK = qw(tokenize);

use Data::Dumper;

sub tokenize {
  my $file = shift;
  my $text <==
4	/Users/nnunley/parrot/tools/build/c2str.pl	1504	1607	
==>!!!!!!
 *
 * This file is generated automatically from '$infile'
 * by $0.
 *
 * Any changes made here w <==
4	/Users/nnunley/parrot/tools/build/c2str.pl	3793	3896	
==>!!!!!!
 *
 * This file is generated automatically from '$infile'
 * by $0.
 *
 * Any changes made here w <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9891	9986	
==>exists($$states[$$stack[-1][0]]{ACTIONS})
			        or  not exists($$states[$$stack[-1][0]]{AC <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9445	9539	
==>exists($$states[$$stack[-1][0]]{ACTIONS})
			        or  not exists($$states[$$stack[-1][0]]{AC <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18702	18808	
==>on::Value->new($block, $self->require_value);
          last if $self->get(1)->is_close_paren;
          $s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19728	19834	
==>on::Value->new($block, $self->require_value);
          last if $self->get(1)->is_close_paren;
          $s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2711	2811	
==>_reg($formal_arg_type);
      my $value = $args[$i]->compile($compiler);
      $compiler->emit("  $te <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2411	2511	
==>_reg($formal_arg_type);
      my $value = $args[$i]->compile($compiler);
      $compiler->emit("  $te <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568562	569008	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569454	569900	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570347	570793	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571301	571747	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629880	630071	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":object_classes",
                  "ARGD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630869	631060	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":object_classes",
                  "ARGD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107592	1107783	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":object_classes",
                  "ARGD <==
4	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	404	528	
==>ildarray();
    }
}

sub buildarray {
    my @foo;
    foreach (1..10000) {
	$foo[$_] = $_;
    }
    return \@foo;
}

=head1 <==
4	/Users/nnunley/parrot/examples/mops/mops.pl	758	979	
==>4 = 100000000;              # set    I4, 100000000
                              #
print "Iterations:    $I4\n"; # print  "Iterations:    "
                              # print  I4
                              # print  " <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2272	2390	
==>d to put various libraries in the link line.
        $liblist = join( ' ', map { "$_.lib" } keys %$libs );
        if ( <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2564	2682	
==>d to put various libraries in the link line.
        $liblist = join( ' ', map { "$_.lib" } keys %$libs );
        if ( <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2359	2477	
==>d to put various libraries in the link line.
        $liblist = join( ' ', map { "$_.lib" } keys %$libs );
        if ( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050156	1050278	
==>opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051190	1051312	
==>opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052224	1052346	
==>opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053259	1053381	
==>opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168557	168819	
==>, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169499	169761	
==>, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170439	170701	
==>, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171380	171642	
==>, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1272	1400	
==>un_command( 
            "./parrot languages/$pasm_f",
            CD => '..', # $self->{relpath}, 
            STDOUT => $out_f, <==
4	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	14547	14661	
==>expectedly succeeded</span>
              </tmpl_loop><br />
              <a href="<tmpl_var name=link>" title="Fu <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4694	4795	
==>l be parsed from 'sub _Parse' up to '}#_Parse' inclusive.
#So, DO NOT remove comment at end of sub !! <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4459	4559	
==>l be parsed from 'sub _Parse' up to '}#_Parse' inclusive.
#So, DO NOT remove comment at end of sub !! <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	3258	3389	
==>n');    }
sub is_redo          { return shift->is('redo');          }
sub is_return        { return shift->is('return');        }
su <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6316	6434	
==>E           ' Force first pass through the array.
WHILE Exchange          ' Sort until no elements are exchanged.
   Ex <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15969	16087	
==>E           ' Force first pass through the array.
WHILE Exchange          ' Sort until no elements are exchanged.
   Ex <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	1210	1314	
==>my $cut_handler  = $self->{'cut_handler'};
  $self->{'line_count'} ||= 0;
 
  my $scratch;

  DEBUG > 4 a <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154869	154984	
==>34 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155773	155888	
==>34 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156677	156792	
==>34 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157582	157697	
==>34 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785618	785915	
==>"set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 88 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786528	786825	
==>"set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 88 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787439	787736	
==>"set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 88 <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	4219	4325	
==>>$elem = $type->new(\%{\$init{'$name'}}) } $cmt\n";
           $out .= "       elsif (UNIVERSAL::isa(\$init <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039316	1039621	
==>=> "#line 120 \"src/ops/var.ops\"\n    Parrot_store_global(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040208	1040513	
==>=> "#line 120 \"src/ops/var.ops\"\n    Parrot_store_global(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041100	1041405	
==>=> "#line 120 \"src/ops/var.ops\"\n    Parrot_store_global(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041993	1042298	
==>=> "#line 120 \"src/ops/var.ops\"\n    Parrot_store_global(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867281	867541	
==>nterpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868247	868507	
==>nterpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869213	869473	
==>nterpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870180	870440	
==>nterpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27627	27747	
==>k    = new_label($parser);
    push @opcodes, new LabelOp( $parser,
        'arg1' => $l_continue,
    );
    foreach <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5704	5822	
==>{
			$_=pop @ifstack;
			if ($_ < 0 ) {
				# print "Else was done, skipping...\n";
			} else {
				push @{$code{$seg}- <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8054	8168	
==>{

		$_=pop @ifstack;
		if ($_ < 0 ) {
			# print "Else was done, skipping...\n";
		} else {
			push @{$code{$seg}- <==
4	/Users/nnunley/parrot/config/auto/signal.pm	1039	1146	
==>_sighandler_t)" if $verbose;
    }
    cc_clean();

    cc_gen('config/auto/signal/test_2.in');
    eval { c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340305	340643	
==>\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341304	341642	
==>\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342303	342641	
==>\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	13280	13402	
==>ter_scan');

    my ($R_back, @R_body) = $self->rewrite($R, $advance);

    my @ops = (
                  $scan => @R_body, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	373997	374088	
==>"BODY" => "#line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374880	374971	
==>"BODY" => "#line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375763	375854	
==>"BODY" => "#line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376647	376738	
==>"BODY" => "#line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{ <==
4	/Users/nnunley/parrot/examples/benchmarks/mops.pl	847	1101	
==>"Iterations:    $I4\n"; # print  "Iterations:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5 <==
4	/Users/nnunley/parrot/examples/mops/mops.pl	847	1101	
==>"Iterations:    $I4\n"; # print  "Iterations:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5 <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	27754	27871	
==>] : \@fallbacks;
      DEBUG > 2 and print
       "Extensor maps $new_letter => fallbacks @fallbacks.\n";
    }

  } e <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13585	13681	
==>escribe =~ /<rulevar/
				? "a <rulevar> (which acts like an unconditional <reject> during parsin <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	29524	29658	
==>xt = $self->genlabel('after_call');

    my @ops = (           aop('call_setup' => [ $name, $uid ]),
                          aop('cal <==
4	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	4748	4859	
==>m) */
EOM
    for my $entry (@{$vtable}) {
    my $uc_meth = uc $entry->[1];
    $macros .= <<"EOM";
#define PAR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035596	1035679	
==>PMC_IS_NULL(lex_pad))\n\tresult = VTABLE_get_pmc_keyed_str(interpreter, lex_pad, lex <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036760	1036843	
==>PMC_IS_NULL(lex_pad))\n\tresult = VTABLE_get_pmc_keyed_str(interpreter, lex_pad, lex <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423087	423382	
==>ten",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423983	424278	
==>ten",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1101	1195	
==>lf->ident->kind eq 'var') and ($self->ident->scope eq 'global')) {
    my $pmc_type = $self->id <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1095	1189	
==>lf->ident->kind eq 'var') and ($self->ident->scope eq 'global')) {
    my $pmc_type = $self->id <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38972	39065	
==>e.ops\"\n  if ({{\@1}} == EXCEPT_doomed)\n    _exit({{\@2}});\n  do_exception(interpreter, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39837	39930	
==>e.ops\"\n  if ({{\@1}} == EXCEPT_doomed)\n    _exit({{\@2}});\n  do_exception(interpreter, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40684	40777	
==>e.ops\"\n  if ({{\@1}} == EXCEPT_doomed)\n    _exit({{\@2}});\n  do_exception(interpreter, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41532	41625	
==>e.ops\"\n  if ({{\@1}} == EXCEPT_doomed)\n    _exit({{\@2}});\n  do_exception(interpreter, {{\ <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19626	19746	
==>xplist1' => 109,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#S <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202733	202827	
==>cmp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203664	203758	
==>cmp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204595	204689	
==>cmp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  } <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1556	1667	
==>G = eval " sub () { $value } ";
    print "# Starting Pod::Simple::DEBUG = $value\n";
  }
  
  require Pod::Simp <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28139	28237	
==>Parse::RecDescent::unexpected
				   = ($lastsep||"").$text;
			}'.($::RD_NO_TRACE?'':'
			Parse::R <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30213	30311	
==>Parse::RecDescent::unexpected
				   = ($lastsep||"").$text;
			}'.($::RD_NO_TRACE?'':'
			Parse::R <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32414	32512	
==>Parse::RecDescent::unexpected
				   = ($lastsep||"").$text;
			}'.($::RD_NO_TRACE?'':'
			Parse::R <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	5942	6045	
==>r
      die "Can't open $HTMLDIR/index.html for writing: $!\n";

    $totals{line_coverage}   = sprintf( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028009	1028106	
==>\"src/ops/sys.ops\"\n  opcode_t *next = {{^+2}};\n  if ({{\@1}} < 0) {\n      real_exception(inter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028860	1028957	
==>\"src/ops/sys.ops\"\n  opcode_t *next = {{^+2}};\n  if ({{\@1}} < 0) {\n      real_exception(inter <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2856	2946	
==>C<$base> is the same as for
C<run_core_func_decl()>.

=item C<run_core_func_start()>

Imple <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151065	151160	
==>equal(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152043	152138	
==>equal(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172293	172388	
==>equal(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173271	173366	
==>equal(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}})) {\n    {{ <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	5179	5303	
==>portant on
        # some platforms
        if ($^O eq 'hpux' or $^O eq 'cygwin') {
            chmod 0755, "$dest/$_$LOAD_EX <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	5390	5514	
==>portant on
        # some platforms
        if ($^O eq 'hpux' or $^O eq 'cygwin') {
            chmod 0755, "$dest/$_$LOAD_EX <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	29192	29317	
==>'
      ) {
        DEBUG > 2 and print "'=$para_type' inside an '=over'!\n";
        $self->whine(
          $para->[1]{'star <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1183	1287	
==>options->get($util);
    $prog ||= $ENV{uc($util)};

    # never override the user.  If a non-existent pr <==
4	/Users/nnunley/parrot/config/inter/make.pm	1004	1108	
==>options->get($util);
    $prog ||= $ENV{uc($util)};

    # never override the user.  If a non-existent pr <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1180	1284	
==>options->get($util);
    $prog ||= $ENV{uc($util)};

    # never override the user.  If a non-existent pr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332614	332733	
==>\n  /* string_cstring_free(mode); */\n  /* TODO all results from string_to_cstring() need freeing\n     but this generat <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333892	334011	
==>\n  /* string_cstring_free(mode); */\n  /* TODO all results from string_to_cstring() need freeing\n     but this generat <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335170	335289	
==>\n  /* string_cstring_free(mode); */\n  /* TODO all results from string_to_cstring() need freeing\n     but this generat <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336449	336568	
==>\n  /* string_cstring_free(mode); */\n  /* TODO all results from string_to_cstring() need freeing\n     but this generat <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926556	926740	
==>ed;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928026	928210	
==>ed;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929496	929680	
==>ed;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930967	931151	
==>ed;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/config/inter/pmc.pm	1330	1483	
==>pmc.num";
    my %order;
    while (<IN>) {
        next if (/^#/);
        if (/(\w+\.\w+)\s+(\d+)/) {
            $order{$1} = $2;
        }
    }
    c <==
4	/Users/nnunley/parrot/lib/Test/More.pm	15371	15486	
==>that /etc/bar is set up right");

which would produce:

    not ok 42 - There's a foo user
    #     Failed test (fo <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	10715	10812	
==>ted.  This is the
string version.

=item B<is_num>

  $Test->is_num($got, $expected, $name);

Like <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	13711	13800	
==>es not
include numerics (like "64" or "x981c").

=item $Latin1Code_to_fallback{I<integer>} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712706	712799	
==>terpreter, \"e\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713813	713906	
==>terpreter, \"e\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720173	720266	
==>terpreter, \"e\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721373	721466	
==>terpreter, \"e\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(interpre <==
4	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	2860	2975	
==>kage => \&package_line,
		  lib => \&lib_line,
		  defs => \&def_line,
		 );

while ($line = <INPUT>) {

  # Throw a <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16151	16257	
==>->is_value
    ) {
      my $block = $self->current_block();
      my $ident = Jako::Construct::Expression: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16922	17028	
==>->is_value
    ) {
      my $block = $self->current_block();
      my $ident = Jako::Construct::Expression: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17727	17833	
==>->is_value
    ) {
      my $block = $self->current_block();
      my $ident = Jako::Construct::Expression: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253808	254098	
==>} = {{\@2}} ? {{\@2}} : {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254671	254961	
==>} = {{\@2}} ? {{\@2}} : {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255534	255824	
==>} = {{\@2}} ? {{\@2}} : {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	67620	67725	
==>ule->addcall($name);
			}
		}
		elsif ($grammar =~ m/$LONECOLON/gco   )
		{
			_error("Unexpected colon en <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813498	813729	
==>JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814123	814354	
==>JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814745	814976	
==>JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	815373	815604	
==>JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline", <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1448	1548	
==>Construct::Statement::New;
use Jako::Construct::Statement::Return;


#
# new()
#

sub new
{
  my $cla <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1672	1762	
==>est->value);
  $self->SYNTAX_ERROR("Assigning to unknown variable %s.", $dest->value) unles <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1630	1720	
==>est->value);
  $self->SYNTAX_ERROR("Assigning to unknown variable %s.", $dest->value) unles <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1552	1642	
==>est->value);
  $self->SYNTAX_ERROR("Assigning to unknown variable %s.", $dest->value) unles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727594	727885	
==>= {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	728391	728682	
==>= {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729185	729476	
==>= {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729985	730276	
==>= {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8037	8178	
==>lf = shift;

    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fal <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7690	7831	
==>lf = shift;

    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fal <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8820	8960	
==>lf = shift;
    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fal <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8480	8620	
==>lf = shift;
    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fal <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	35899	35995	
==>ning and exit with 255.  If the test died, even after
having successfully completed all its tests <==
4	/Users/nnunley/parrot/lib/Test/More.pm	33970	34066	
==>ning and exit with 255.  If the test died, even after
having successfully completed all its tests <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	2765	2861	
==>ning and exit with 255.  If the test died, even after
having successfully completed all its tests <==
4	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2716	2809	
==>is a subclass of L<Pod::Simple> that parses
Pod and turns it into XML.

Pod::Simple::XMLOutStr <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7247	7344	
==>er indenting for \"$_\"\n(should be \"#$indent$2\" because it is inside of " . (join ' > ', @stack <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7554	7651	
==>er indenting for \"$_\"\n(should be \"#$indent$2\" because it is inside of " . (join ' > ', @stack <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7912	8009	
==>er indenting for \"$_\"\n(should be \"#$indent$2\" because it is inside of " . (join ' > ', @stack <==
4	/Users/nnunley/parrot/lib/Parrot/Op.pm	6331	6426	
==>}/ $trans->restart_offset($1)  . "; {{=0}}"; /me;
    s/{{=0,-=([^{]*?)}}/  $trans->restart_offs <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	17891	18005	
==>equire Carp;
        Carp::croak("You tried to run tests without a plan!  Gotta have a plan.");
    }

    lock($se <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	18756	18870	
==>equire Carp;
        Carp::croak("You tried to run tests without a plan!  Gotta have a plan.");
    }

    lock($se <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	653	754	
==>ess defined $op;
  confess "Right is not defined!" unless defined $right;

  confess "Block is not!" u <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	665	766	
==>ess defined $op;
  confess "Right is not defined!" unless defined $right;

  confess "Block is not!" u <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	119481	119769	
==>1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120336	120624	
==>1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121191	121479	
==>1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Test/More.pm	10067	10175	
==>ents using any binary perl operator.

    # ok( $this eq $that );
    cmp_ok( $this, 'eq', $that, 'this eq th <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	3679	3776	
==>um}
			 - Parse::RecDescent::_linecount(${$self->{text}})
			 + 1;

	$parser->{offsetlinenum} += $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528592	528681	
==>"BODY" => "#line 838 \"src/ops/math.ops\"\n  {{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529474	529563	
==>"BODY" => "#line 838 \"src/ops/math.ops\"\n  {{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	530356	530445	
==>"BODY" => "#line 838 \"src/ops/math.ops\"\n  {{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL) <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9574	9675	
==>p this test for now');

  flunk('this fails, but might work soon', :todo(1));

  diag('some misc comme <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	13409	13505	
==>rce_fh'}); # so it can be GC'd
  return $self;
}

#:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:. <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557847	557942	
==>G *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  interpreter->current_cont = CONTEXT(interp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559231	559326	
==>G *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  interpreter->current_cont = CONTEXT(interp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961048	961314	
==>string_trans_encoding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962010	962276	
==>string_trans_encoding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962972	963238	
==>string_trans_encoding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963935	964201	
==>string_trans_encoding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	70895	71004	
==>rule ( values %$rules )
	{
		next if ! $rule->{"changed"};

	# CHECK FOR UNDEFINED RULES

		my $call;
		foreac <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	2599	2693	
==>t = Test::Builder->new;

Returns a Test::Builder object representing the current state of the
t <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11032	11111	
==>._abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/sprintf('%%%0 <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4381	4460	
==>._abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/sprintf('%%%0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114903	115201	
==>" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115757	116055	
==>" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116612	116910	
==>" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	12048	12221	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_POP",
                  "NAME" => "ret",
                  "FLAGS" => "",
                  "ARGDIRS <==
4	/Users/nnunley/parrot/tools/dev/run_indent.pl	3633	3751	
==>der\n";
        print STDERR "files.  If so, ignore them.  C::Scan is imperfect.\n\n";
    
        foreach my $fdecl ( <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1984	2083	
==>. '/Users/nnunley/parrot/include' . $PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/p <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2280	2379	
==>. '/Users/nnunley/parrot/include' . $PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/p <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2075	2174	
==>. '/Users/nnunley/parrot/include' . $PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/p <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31174	31274	
==>item C<implements($method)>

Always true for vtables.

=cut

sub implements
{
    my ($self, $meth) = <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32637	32737	
==>item C<implements($method)>

Always true for vtables.

=cut

sub implements
{
    my ($self, $meth) = <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39794	39894	
==>item C<implements($method)>

Always true for vtables.

=cut

sub implements
{
    my ($self, $meth) = <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3264	3358	
==>EMP0} > 0 goto PRE_OP_${CURIC}_LAZY_MOVE_$register_num

# No lazy move available - need to refe <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072687	1072805	
==>correction necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  el <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074872	1074990	
==>correction necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  el <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077057	1077175	
==>correction necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  el <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079243	1079361	
==>correction necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  el <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146984	147272	
==>,
                  "TYPE" => "function",
                  "CODE" => 179,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 98 \"src/ops/ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	435	528	
==>y $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  #$new->accept_codes(' <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	239	331	
==>y $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->accept_codes(' <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	238	330	
==>y $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->accept_codes(' <==
4	/Users/nnunley/parrot/config/inter/encoding.pm	700	806	
==>_list = $conf->options->get('encoding')
        || join(' ', grep { defined $_ } @encoding);

    if ($conf <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24769	24864	
==>tial assignment.  Type of course will be a float.
	($result, $type, @code)=EXPRESSION({ lhs => 1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2293	2387	
==>alue, $op)>

Returns the C code for the specified op argument type (see
C<Parrot::OpTrans>) and <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3184	3278	
==>alue, $op)>

Returns the C code for the specified op argument type (see
C<Parrot::OpTrans>) and <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63123	63231	
==>item)
						      or  _no_rule("repetition",$line,"$code$argcode($1)");

						!$matchrule and $rule and $rul <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63844	63952	
==>item)
						      or  _no_rule("repetition",$line,"$code$argcode($1)");

						!$matchrule and $rule and $rul <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64560	64668	
==>item)
						      or  _no_rule("repetition",$line,"$code$argcode($1)");

						!$matchrule and $rule and $rul <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62487	62593	
==>item)
					      or  _no_rule("repetition",$line,"$code$argcode($1)");

					!$matchrule and $rule and $rul <==
4	/Users/nnunley/parrot/config/gen/parrot_include.pm	2306	2429	
==>[/]) ? "$inc" : "$destdir/$inc";

                #move_if_diff("$inc.tmp", "$destdir/$inc");
                #push(@generat <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233881	233992	
==>9 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234785	234896	
==>9 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235689	235800	
==>9 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854995	855262	
==>"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855884	856151	
==>"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856773	857040	
==>"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857663	857930	
==>"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42446	42556	
==>"name"} .'})
						if defined $::RD_TRACE;').'

		push @item, '.($::RD_NO_HITEM ? ''
			       : '$item{'.$self <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480740	480832	
==>, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481743	481835	
==>, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482746	482838	
==>, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765808	766103	
==>n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766660	766955	
==>n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767513	767808	
==>n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768366	768661	
==>n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FL <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	331	432	
==>trict;
use SRM::Base;
our @ISA = qw/SRM::Base/;

# Constructor. Just base this class on a hash.
sub ne <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	237	338	
==>trict;
use SRM::Base;
our @ISA = qw/SRM::Base/;

# Constructor. Just base this class on a hash.
sub ne <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	145	246	
==>trict;
use SRM::Base;
our @ISA = qw/SRM::Base/;

# Constructor. Just base this class on a hash.
sub ne <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	2518	2616	
==><which can
work together>.

=head2 Construction

=over 4

=item B<new>

  my $Test = Test::Builder- <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	4146	4303	
==>',
             'i_fcntl' => 'define',
             'i_float' => 'define',
             'i_fp' => undef,
             'i_fp_class' => undef,
             'i_g <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	3000	3096	
==>d_element({ Name => 'block' });
    $handler->start_element({ Name => 'block', Attributes => { ki <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3674	3770	
==>d_element({ Name => 'block' });
    $handler->start_element({ Name => 'block', Attributes => { ki <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3764	3860	
==>d_element({ Name => 'block' });
    $handler->start_element({ Name => 'block', Attributes => { ki <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173741	174069	
==>":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 208,
                  "ARGS" => [
                              "p <==
4	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1321	1439	
==>ailed with exit code $exit_code")
        if $exit_code and not $pass;
    }

    unless($ENV{POSTMORTEM}) {
        un <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1362	1480	
==>ailed with exit code $exit_code")
        if $exit_code and not $pass;
    }

    unless($ENV{POSTMORTEM}) {
        un <==
4	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2485	2599	
==>ailed with exit code $exit_code")
      if $exit_code and not $pass;
    }

    unless($ENV{POSTMORTEM}) {
      un <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162067	162183	
==>ne 183 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "L <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162964	163080	
==>ne 183 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "L <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163861	163977	
==>ne 183 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "L <==
4	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	184	268	
==>/parrot/tools/build/parrot_config_c.pl 20350 2006-06-25T03:57:27.771662Z petdance  $' <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5170	5307	
==>int {$FH} "  ";
        if ( exists $op->{result} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $fir <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6202	6339	
==>int {$FH} "  ";
        if ( exists $op->{result} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $fir <==
4	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	1501	1610	
==>s() is called in a test file.

=cut

sub output_is 
{
  my $self = shift;
  my ( $code, $expected, $desc ) = @ <==
4	/Users/nnunley/parrot/lib/File/Which.pm	4598	4693	
==>> finds such an
environment variable, it parses the list and uses it as the different extensions <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39006	39114	
==>-port?'           => \&_op_input_port_p,
  'output-port?'          => \&_op_output_port_p,
  'current-input-p <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138154	138254	
==>" => "#line 70 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139050	139150	
==>" => "#line 70 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139946	140046	
==>" => "#line 70 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777050	777137	
==>/set.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777959	778046	
==>/set.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778868	778955	
==>/set.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779778	779865	
==>/set.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321883	322146	
==>AME" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322654	322917	
==>AME" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323426	323689	
==>AME" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	17986	18185	
==>> [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 307 \"src/ops/core.ops\"\n  if (string_bool(interpreter, {{\ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9541	9647	
==>("$dest = substr($src, $offset, $len);");
}

sub output_length {
    my ($self, $dest, $string) = @_;
    r <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2540	2639	
==>_element({ Name => 'op', Attributes => { kind => 'infix', name => $self->op } });
    $self->left->s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2417	2516	
==>_element({ Name => 'op', Attributes => { kind => 'infix', name => $self->op } });
    $self->left->s <==
4	/Users/nnunley/parrot/tools/dev/parrot_api.pl	6251	6347	
==>d ---\n", scalar @UnParrotAPI;
    for my $api (@UnParrotAPI) {
	printf "%s\t%s\tNO_API\n", $api, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714823	715066	
==>eter, io, 1);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715746	715989	
==>eter, io, 1);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716691	716934	
==>eter, io, 1);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
4	/Users/nnunley/parrot/config/gen/PodText.pm	302	408	
==>pod" => "dest1.pod"
        "source2.pod" => "dest2.pod"
    );

=head1 DESCRIPTION

Uses L<Pod::Text> to c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591639	591736	
==>' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=ne <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592849	592946	
==>' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=ne <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594059	594156	
==>' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=ne <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595270	595367	
==>' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=ne <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7258	7380	
==>_para_count'};
        
        $self->_ponder_paragraph_buffer();
         # by now it's safe to consider the previous par <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7876	7993	
==>_para_count'};
          $self->_ponder_paragraph_buffer();
           # by now it's safe to consider the previous par <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	8233	8346	
==>_para_count'};
        $self->_ponder_paragraph_buffer();
         # by now it's safe to consider the previous par <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	5912	6021	
==>_para_count'};
      $self->_ponder_paragraph_buffer();
       # by now it's safe to consider the previous par <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2506	2620	
==>= $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  if (defined $cond <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3180	3294	
==>= $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  if (defined $cond <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3270	3384	
==>= $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  if (defined $cond <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	1103	1201	
==>$self->{LINE} ? $self->{LINE} : '';
}

sub kind { return shift->{KIND}; }
sub type { return shift-> <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072792	1072911	
==>}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074977	1075096	
==>}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077162	1077281	
==>}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079348	1079467	
==>}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	12457	12570	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT|PARROT_JUM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25659	25772	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT|PARROT_JUM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1027505	1027618	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT|PARROT_JUM <==
4	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	1393	1488	
==>ackFile_check_fingerprint (void *cursor)
{
    return memcmp (cursor, fingerprint, $len) == 0;
} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549953	550056	
==>t;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551254	551357	
==>t;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553816	553919	
==>t;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555213	555316	
==>t;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\ <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	8188	8309	
==>((.*)\)/) {
		    my $vars = $1;
		    $vars =~ s/[\s']//g;
		    $func_info{$cur_f}{varnames} = $vars;
		    print "# $cu <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8433	8536	
==>to 20 : read c$(i) : next
print
for i = 1 to 20 step 4
  print c$(i);tab$(12);c$(i+1);tab$(22);c$(i+2);t <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21297	21400	
==>to 20 : read c$(i) : next
print
for i = 1 to 20 step 4
  print c$(i);tab$(12);c$(i+1);tab$(22);c$(i+2);t <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	5127	5222	
==>TIME} = time;
		$self->{POD_ERRORS} = '';
		$checker->output_string(\$self->{POD_ERRORS});
		$ch <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	618392	618780	
==>,
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 699,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 84 \"s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557283	557527	
==>NAME" => "tailcallmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558666	558910	
==>NAME" => "tailcallmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560050	560294	
==>NAME" => "tailcallmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071945	1072065	
==>5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074130	1074250	
==>5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076315	1076435	
==>5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078501	1078621	
==>5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796974	797081	
==>,
                  "BODY" => "#line 462 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed(interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797878	797985	
==>,
                  "BODY" => "#line 462 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed(interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798782	798889	
==>,
                  "BODY" => "#line 462 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed(interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799687	799794	
==>,
                  "BODY" => "#line 462 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed(interpre <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31757	31886	
==>xprs} ) == 0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opco <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	32408	32537	
==>xprs} ) == 0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opco <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33058	33187	
==>xprs} ) == 0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opco <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33581	33710	
==>xprs} ) == 0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opco <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131358	131627	
==>ops\"\n  {{\@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132213	132482	
==>ops\"\n  {{\@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133068	133337	
==>ops\"\n  {{\@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2024	2142	
==>, 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P7', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  [ <==
4	/Users/nnunley/parrot/lib/Test/More.pm	16217	16314	
==>ule you're testing loads ok, rather
than just vomiting if its load fails.  For such purposes we ha <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714678	714774	
==>interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, PIO_STD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715601	715697	
==>interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, PIO_STD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716546	716642	
==>interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, PIO_STD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857962	858283	
==>{
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858965	859286	
==>{
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859969	860290	
==>{
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860973	861294	
==>{
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32816	32937	
==>o'}, $mv, 
			    "typeinfo for rule $rule->{'name'}");
		    $pir .= "\n" if $pir !~ /\n$/;
		    $pir .= "### end typein <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26820	26929	
==>o'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir .= "\n" if $pir !~ /\n$/;
		$pir .= "### end typein <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28536	28645	
==>o'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir .= "\n" if $pir !~ /\n$/;
		$pir .= "### end typein <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36518	36627	
==>o'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir .= "\n" if $pir !~ /\n$/;
		$pir .= "### end typein <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56360	56584	
==>.ops\"\n  {{\@1}} = interpinfo_p(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57122	57346	
==>.ops\"\n  {{\@1}} = interpinfo_p(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19699	19859	
==>atchcount == 0 goto lastback
#                 $matchcount--
#                 goto R.back
#           back: if $matchcount >= max goto rfail
#                 R <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19401	19553	
==>atchcount == 0 goto lastback
#               $matchcount--
#               goto R.back
#         back: if $matchcount >= max goto rfail
#               R <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	30141	30240	
==>tion" attribute (which might be next, or a treelet)
# Fourth:
# The section (AKA "item" in older per <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197332	197429	
==>line 366 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198229	198326	
==>line 366 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199126	199223	
==>line 366 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/PMC.pm	1086	1190	
==>=> 49,
	OS => 50,
	File => 51,
	AddrRegistry => 52,
	Bound_NCI => 53,
	deleg_pmc => 54,
	Enumerate => 55, <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1798	1893	
==>'   }

sub start_over_bullet  { ++$_[0]{'Indent'} }
sub start_over_number  { ++$_[0]{'Indent'} } <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1366	1461	
==>'   }

sub start_over_bullet  { ++$_[0]{'Indent'} }
sub start_over_number  { ++$_[0]{'Indent'} } <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	43403	43495	
==>ontaining the current pattern delimiter will cause the regex to be
immediately terminated. In <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25375	25464	
==>->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAILCALL;\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557948	558037	
==>->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAILCALL;\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559332	559421	
==>->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAILCALL;\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560704	560793	
==>->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAILCALL;\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10931	11037	
==>,
                  "BODY" => "#line 206 \"src/ops/core.ops\"\n  stack_push(interpreter, &CONTEXT(interpret <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11720	11826	
==>,
                  "BODY" => "#line 206 \"src/ops/core.ops\"\n  stack_push(interpreter, &CONTEXT(interpret <==
4	/Users/nnunley/parrot/tools/build/ops2pm.pl	423	515	
==>e ops files listed on the command line and outputs a
C<Parrot::OpLib::core> module containing <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1059	1145	
==>e CONST(i) CONTEXT(interpreter->ctx)->constants[cur_opcode[i]]
END
}

=item C<gen_goto( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841647	841899	
==>terpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842411	842663	
==>terpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	24120	24235	
==>$fh ) {
        $self->{Out_FH} = _new_fh($fh);
    }
    return $self->{Out_FH};
}

sub failure_output {
    my($se <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	1578	1689	
==>ign');  }
sub is_assign        { return shift->is('assign');        }
sub is_bit_assign    { return shift->is('b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57883	58107	
==>.ops\"\n  {{\@1}} = interpinfo_s(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58645	58869	
==>.ops\"\n  {{\@1}} = interpinfo_s(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/config/init/hints.pm	1016	1127	
==>print "$hints " if $verbose;
    eval "use $hints";
    unless ($@) {
        $hints->runstep($conf, @_) if $hin <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	10492	10602	
==>se 
	if g then
		print "Wrong again"
	else 
		print "Correct"
	end if
end if

' Expect Correct
t=0
g=0
if t the <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	679	787	
==>return "onfail $label->[1]";
}

sub output_match {
    my ($byte) = @_;
    return "match '$byte'";
}

sub ou <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552866	552954	
==>(interpreter, method_pmc);\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556861	556949	
==>(interpreter, method_pmc);\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560884	560972	
==>(interpreter, method_pmc);\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, n <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	6758	6879	
==>Duplicate value for arguments in rule $rule->{'name'}\n";
            } else {
                my @args = split(/\s*,\s+/, <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	33215	33335	
==>if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ($w->[2] eq 'P') {
	   $ww = temp('I');
	   print <<EOC;
	$ww = $w <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	33964	34084	
==>if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ($w->[2] eq 'P') {
	   $ww = temp('I');
	   print <<EOC;
	$ww = $w <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	34888	35008	
==>if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ($w->[2] eq 'P') {
	   $ww = temp('I');
	   print <<EOC;
	$ww = $w <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24821	24935	
==>restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_genera <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25832	25946	
==>restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_genera <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26720	26834	
==>restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_genera <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27730	27844	
==>restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_genera <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	339548	339723	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340546	340721	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341545	341720	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342544	342719	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1932	2030	
==>y $tree (@$trees) {
        my $code = tree_to_list($tree, $ctx, $pass_label, $fail_label, %options <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256446	256736	
==>& ! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257354	257644	
==>& ! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258262	258552	
==>& ! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	2800	2901	
==>_pat;


# THE EXTRACTION FUNCTIONS

sub extract_delimited (;$$$$)
{
	my $textref = defined $_[0] ? \$_ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7978	8076	
==>ct::Block");
  confess "No identifier name!"  unless defined $name;
  confess "Extra arguments!" if <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8625	8723	
==>ct::Block");
  confess "No identifier name!"  unless defined $name;
  confess "Extra arguments!" if <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9293	9391	
==>ct::Block");
  confess "No identifier name!"  unless defined $name;
  confess "Extra arguments!" if <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9962	10060	
==>ct::Block");
  confess "No identifier name!"  unless defined $name;
  confess "Extra arguments!" if <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	6367	6536	
==>es3, new LocalDir( $parser,
                    'result' => $num_key,
                );
                push @opcodes3, new CloneOp( $parser,
                    'ar <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	3787	3907	
==>do};

            ## run Test::Builder's test on actual vs. expected output
            my $method = $test_map->{$func}-> <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9681	9788	
==>ef);
			};

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Dicard invalid token ".&$ShowCurToken.".\n" <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9247	9350	
==>ef);
			};

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Dicard invalid token ".&$ShowCurToken.".\n" <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2941	3056	
==>_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we're maintain <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4699	4814	
==>_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we're maintain <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1863	1978	
==>_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we're maintain <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3115	3230	
==>_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we're maintain <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	339546	339719	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340544	340717	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341543	341716	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342542	342715	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1075	1181	
==>nce of sources for the program:
    # default -> probe -> environment -> option -> ask
    $prog ||= $conf- <==
4	/Users/nnunley/parrot/config/inter/make.pm	896	1002	
==>nce of sources for the program:
    # default -> probe -> environment -> option -> ask
    $prog ||= $conf- <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1072	1178	
==>nce of sources for the program:
    # default -> probe -> environment -> option -> ask
    $prog ||= $conf- <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	26034	26135	
==>bounded by
 # an HTML/XML tag.

	($extracted, $remainder) = extract_tagged($text);


 # Extract the in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858638	858729	
==>tive arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859642	859733	
==>tive arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860646	860737	
==>tive arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861651	861742	
==>tive arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586621	586716	
==>ine 314 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587807	587902	
==>ine 314 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588993	589088	
==>ine 314 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590180	590275	
==>ine 314 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opc <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3145	3243	
==>TEMP0} = ${STYPES}[stack_depth]

# Do we have anything on the lazy moves stack?
${ITEMP0} = element <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4903	5001	
==>TEMP0} = ${STYPES}[stack_depth]

# Do we have anything on the lazy moves stack?
${ITEMP0} = element <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7830	7928	
==>TEMP0} = ${STYPES}[stack_depth]

# Do we have anything on the lazy moves stack?
${ITEMP0} = element <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8686	8784	
==>TEMP0} = ${STYPES}[stack_depth]

# Do we have anything on the lazy moves stack?
${ITEMP0} = element <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	814	907	
==>$left, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($right) . ") is not Va <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	652	745	
==>$left, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($right) . ") is not Va <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	805	898	
==>$left, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($right) . ") is not Va <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	694	787	
==>$left, 'Jako::Construct::Expression::Value');
  confess("Right (" . ref($right) . ") is not Va <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730276	730559	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 819,
                  " <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27486	27587	
==>ed = q{' . ($rule->hasleftmost($self) ? ''
				: $self->describe ) . '};
		' . ($self->{"lookahead"} ? <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29596	29697	
==>ed = q{' . ($rule->hasleftmost($self) ? ''
				: $self->describe ) . '};
		' . ($self->{"lookahead"} ? <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31693	31794	
==>ed = q{' . ($rule->hasleftmost($self) ? ''
				: $self->describe ) . '};
		' . ($self->{"lookahead"} ? <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	14660	14768	
==>try->{meth};
        next if exists $self->{super}{$meth};
        foreach my $pname (@{ $self->{parents} } ) <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	3519	3672	
==>1;
            $heredoc_value = "";
            $heredoc_terminator = $2;
        }

        # Or is it a value within a rule and not a herdoc?
        el <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596191	596334	
==>"\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597084	597227	
==>"\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	24447	24559	
==>lass = ref($_[0]) || $_[0];
	bless 
	{
		"msg"        => $_[1],
		"lookahead"  => $_[2],
		"commitonly" => $_[3], <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9284	9391	
==>t "\n"

# Decrement stack height.
dec stack_depth
PIR
	}

	return $pir;
}

# Pre and post call hooks.
sub pr <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6802	6909	
==>t "\n"

# Decrement stack height.
dec stack_depth
PIR
	}

	return $pir;
}

# Pre and post call hooks.
sub pr <==
4	/Users/nnunley/parrot/lib/Test/More.pm	5578	5673	
==>y search for "simple
exponential".

All test functions take a name argument.  It's optional, but <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739694	739781	
==>ops/set.ops\"\n  {{\@1}} = {{\@2}}->vtable->get_number(interpreter, {{\@2}});\n  {{+=3}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	531413	531622	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cosh",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o" <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3049	3167	
==>d)",
    'p'  => "PREG(%ld)",
    's'  => "SREG(%ld)",
    'k'  => "PREG(%ld)",
    'ki' => "IREG(%ld)",

    'ic' => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2869	2987	
==>d)",
    'p'  => "PREG(%ld)",
    's'  => "SREG(%ld)",
    'k'  => "PREG(%ld)",
    'ki' => "IREG(%ld)",

    'ic' => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1966	2079	
==>d)",
  'p'   => "PREG(%ld)",
  's'   => "SREG(%ld)",
  'k'   => "PREG(%ld)",
  'ki'  => "IREG(%ld)",

  'ic'  => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672329	672711	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673101	673483	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673871	674253	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	674642	675024	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	604615	604877	
==>0,
                  "NAME" => "removeparent",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	24305	24446	
==>w formatless.\n";
    return 0;
  }
  return 1;
}

# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

sub _ponder_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621742	621835	
==>cont) & SUB_FLAG_TAILCALL) {\n\t    PObj_get_FLAGS(ccont) &= ~SUB_FLAG_TAILCALL;\n\t    --ctx- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29582	29667	
==>cont) & SUB_FLAG_TAILCALL) {\n\tPObj_get_FLAGS(ccont) &= ~SUB_FLAG_TAILCALL;\n\t--ctx- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597478	597741	
==>=> "getclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598524	598787	
==>=> "getclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599571	599834	
==>=> "getclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600646	600909	
==>=> "getclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769975	770081	
==>UM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770828	770934	
==>UM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771681	771787	
==>UM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772535	772641	
==>UM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164820	165083	
==>{\@1}}, {{\@2}}) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165749	166012	
==>{\@1}}, {{\@2}}) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166678	166941	
==>{\@1}}, {{\@2}}) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	16540	16634	
==>lback is given that should rewrite the
# alternative that corresponds to the (dynamic) $counter <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	42665	42804	
==>=> 85,
			'DO' => 196,
			">" => 86
		}
	},
	{#State 186
		DEFAULT => -4,
		GOTOS => {
			'block' => 197,
			'chunk' => 57
		}
	} <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1217	1352	
==>ing algorithm:
      s/(
         [^\n]{55}         # Snare some characters from a line
         [^\n\ ]{0,50}     #  and finish any cur <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1161	1296	
==>ing algorithm:
      s/(
         [^\n]{55}         # Snare some characters from a line
         [^\n\ ]{0,50}     #  and finish any cur <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	211	324	
==>erl5') {
        $class = 'Regex::Driver::Perl5';
    } elsif ($language eq 'pir') {
        $class = 'Regex::Driv <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	7157	7284	
==>st_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c failed ($?)\n";
    }
    else {
        1;
    }
}

sub parti <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5451	5578	
==>st_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c failed ($?)\n";
    }
    else {
        1;
    }
}

sub parti <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	7368	7495	
==>st_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c failed ($?)\n";
    }
    else {
        1;
    }
}

sub parti <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	1357	1468	
==>ath otherwise an exception is raised.

=cut

sub new
{
    my $self = ref $_[0] ? ref shift : shift;
    my $tex <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	651	782	
==>+$count;
        my( $lang_f, $pasm_f, $by_f, $out_f ) = map { # JMG
            my $t = $0; $t =~ s/\.t$/_$count\.$_/; $t
        } <==
4	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	566	697	
==>+$count;
        my( $lang_f, $pasm_f, $by_f, $out_f ) = map { # JMG
            my $t = $0; $t =~ s/\.t$/_$count\.$_/; $t
        } <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	31534	31632	
==>pir = concat dest0
gen_pir = concat " = clone "
gen_pir = concat stack0
gen_pir = concat "\\n"
$pos <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7069	7162	
==>op s\n"

# Next parameter.
goto pre_call_PLOOP_${CURIC}

# Finished.
goto PRE_CALL_END_${CURIC <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950587	950694	
==>rot_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951547	951654	
==>rot_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952507	952614	
==>rot_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953468	953575	
==>rot_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510535	510818	
==>> 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511273	511556	
==>> 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	512011	512294	
==>> 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63657	63864	
==>TYPE" => "inline",
                  "CODE" => 83,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 964 \"src/ops/core.ops\"\n <==
4	/Users/nnunley/parrot/config/gen/icu.pm	1788	1927	
==>ig --ldflags");
            if (defined $icushared) {
                chomp $icushared;
                $icushared =~ s/-licui18n\w*//; # "- <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1077	1192	
==>( $parser, $expr )    = @_;
    my ( $defn,   $opcodes ) = @{$expr};
    if ( scalar( @{$opcodes} ) and $opcodes-> <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	24366	24481	
==>( $parser, $expr )    = @_;
    my ( $defn,   $opcodes ) = @{$expr};
    if ( scalar( @{$opcodes} ) and $opcodes-> <==
4	/Users/nnunley/parrot/config/auto/jit.pm	4135	4238	
==>>
                    '$(SRC_DIR)/jit.h $(INC_DIR)/exec.h $(SRC_DIR)/exec_dep.h $(SRC_DIR)/exec_save.h', <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685884	686183	
==>UMP" => 0,
                  "NAME" => "getprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686773	687072	
==>UMP" => 0,
                  "NAME" => "getprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function <==
4	/Users/nnunley/parrot/tools/dev/lib_deps.pl	12423	12540	
==>oundf     math.h
lroundl     math.h
malloc      stdlib.h
mblen       stdlib.h
mbstowcs    stdlib.h
mbtowc      stdlib. <==
4	/Users/nnunley/parrot/tools/build/ops2c.pl	11746	11850	
==>h
 * of short and full opcode names is created
 * hash functions are from imcc, thanks to Melvin.
 */


t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950590	950800	
==>_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951550	951760	
==>_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952510	952720	
==>_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953471	953681	
==>_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849882	850027	
==>\"\n  {{\@1}} = string_chopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850769	850914	
==>\"\n  {{\@1}} = string_chopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851656	851801	
==>\"\n  {{\@1}} = string_chopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852544	852689	
==>\"\n  {{\@1}} = string_chopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	12349	12494	
==>ps
        #   goto POP()         {{=*}}   PC' = <pop>   Pop address off control stack
        #   expr OFFSET(X)     {{^+X}}  PC + X        Relat <==
4	/Users/nnunley/parrot/config/auto/gdbm.pm	419	514	
==>se);

use Config;
use Parrot::Configure::Step ':auto';

$description = 'Determining if your plat <==
4	/Users/nnunley/parrot/config/auto/gmp.pm	373	468	
==>se);

use Config;
use Parrot::Configure::Step ':auto';

$description = 'Determining if your plat <==
4	/Users/nnunley/parrot/config/auto/readline.pm	380	475	
==>se);

use Config;
use Parrot::Configure::Step ':auto';

$description = 'Determining if your plat <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	12640	12759	
==>pect, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $dont_expect ) {
        # undef on <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	13084	13203	
==>pect, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $dont_expect ) {
        # undef on <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15305	15406	
==>y (List  $got, List  $expected, Str $desc?) returns Bool;
  multi sub is_deeply (Hash  %got, Hash  %ex <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9523	9621	
==>lags $cc_args -I./include -c test.c", 'test.cco', 'test.cco', $verbose)
        and confess "C comp <==
4	/Users/nnunley/parrot/config/auto/jit.pm	5411	5545	
==>/test_c.in');
            eval { cc_build(); };
            unless ($@ || cc_run() !~ /ok/) {
                $conf->data->set(jit_i386 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557956	558043	
==>current_cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAILCALL;\n  inte <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559340	559427	
==>current_cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAILCALL;\n  inte <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560712	560799	
==>current_cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAILCALL;\n  inte <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13772	13871	
==>accumulate
the number of lines, C<$out_name> is the name of the output file we are
generating.

=cut <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16160	16259	
==>accumulate
the number of lines, C<$out_name> is the name of the output file we are
generating.

=cut <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29555	29654	
==>accumulate
the number of lines, C<$out_name> is the name of the output file we are
generating.

=cut <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30197	30296	
==>accumulate
the number of lines, C<$out_name> is the name of the output file we are
generating.

=cut <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24640	24752	
==>} else {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self- <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25651	25763	
==>} else {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self- <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26539	26651	
==>} else {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self- <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27549	27661	
==>} else {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self- <==
4	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6624	6719	
==>ros;
}

=item C<vtbl_embed($vtable)>

Returns the C function definitions to call the vtable meth <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4490	4582	
==>less defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "Extra a <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4997	5089	
==>less defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "Extra a <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10399	10491	
==>less defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "Extra a <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763165	763289	
==>n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764018	764142	
==>n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764871	764995	
==>n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765725	765849	
==>n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1034	1165	
==>T  => $dest,
    LEFT  => $left,
    OP    => $op,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => $dest->file,
    LINE  => $des <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1025	1156	
==>T  => $dest,
    LEFT  => $left,
    OP    => $op,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => $dest->file,
    LINE  => $des <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	914	1045	
==>T  => $dest,
    LEFT  => $left,
    OP    => $op,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => $dest->file,
    LINE  => $des <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	29780	29909	
==>EOC;
	$cmt
EOC
    }
}

sub ROT_THREE
{
    my ($n, $c, $cmt) = @_;
    print "\t\t$cmt\n";
    my $v = pop @stack;
    my $w = po <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381163	381262	
==>{\@1}}, PIO_make_offset({{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382175	382274	
==>{\@1}}, PIO_make_offset({{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383187	383286	
==>{\@1}}, PIO_make_offset({{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384200	384299	
==>{\@1}}, PIO_make_offset({{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480788	481048	
==>y zero\");\n  {{\@1}} = (INTVAL)floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481791	482051	
==>y zero\");\n  {{\@1}} = (INTVAL)floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482794	483054	
==>y zero\");\n  {{\@1}} = (INTVAL)floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	5071	5230	
==>);
            next;
        }

        if (/^\s*([\#\}])/) {
            # skip the last line of the func or cpp directives.
            $f = undef if ($1 eq " <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8043	8150	
==>e;
  confess "Extra arguments!" if @_;

  my $found = $self->find_symbol($name);

  return $found ? $found-> <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8690	8797	
==>e;
  confess "Extra arguments!" if @_;

  my $found = $self->find_symbol($name);

  return $found ? $found-> <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9358	9465	
==>e;
  confess "Extra arguments!" if @_;

  my $found = $self->find_symbol($name);

  return $found ? $found-> <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10027	10134	
==>e;
  confess "Extra arguments!" if @_;

  my $found = $self->find_symbol($name);

  return $found ? $found-> <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11472	11722	
==>ult' => $result2,
                            'arg1'   => $result,
                            'arg2'   => $key->[0],
                        );
                        $result = $result2;
                    }
                    push @opcodes, <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9700	9926	
==>ult' => $result2,
                        'arg1'   => $result,
                        'arg2'   => $key->[0],
                    );
                    $result = $result2;
                }
                push @opcodes, <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8611	8789	
==>ult' => $result2,
                'arg1'   => $result,
                'arg2'   => $key->[0],
            );
            $result = $result2;
        }
        push @opcodes, <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	615	721	
==>p;

use strict;
use warnings;

use base qw( Exporter );

use Carp;
use File::Basename qw( basename );
use F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989575	989955	
==>"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1108,
                  "ARGS" => [
                              "i",
                              "ic",
                              "sc",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3198	3296	
==>"CONST(%ld)->u.number",
    'pc' => "CONST(%ld)->u.key",
    'sc' => "CONST(%ld)->u.string",
    'k <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3006	3104	
==>"CONST(%ld)->u.number",
    'pc' => "CONST(%ld)->u.key",
    'sc' => "CONST(%ld)->u.string",
    'k <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2109	2203	
==>"CONST(%ld)->u.number",
  'pc'  => "CONST(%ld)->u.key",
  'sc'  => "CONST(%ld)->u.string",
  'k <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566290	566610	
==>"i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 647,
                  "ARGS" => [
                              "i",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 194 \"src/o <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	390	489	
==>Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $dest, $left, $op, $right <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	381	480	
==>Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $dest, $left, $op, $right <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	270	369	
==>Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $dest, $left, $op, $right <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15468	15570	
==>', map { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair unary -, functions, etc...
		@stream=convert <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15830	15932	
==>', map { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair unary -, functions, etc...
		@stream=convert <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16357	16459	
==>', map { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair unary -, functions, etc...
		@stream=convert <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16981	17083	
==>', map { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair unary -, functions, etc...
		@stream=convert <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939571	939893	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "AR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940462	940784	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "AR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941354	941676	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "AR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942246	942568	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "AR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181205	181525	
==>"i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 216,
                  "ARGS" => [
                              "ic",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 278 \"src/ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	378	485	
==>Jako::Construct::Statement);


#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $value, $cond, $lef <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3628	3721	
==>,$outhash)=@_;
	my($prm,$value);
	my($prmlst)={};

	while(($prm,$value)=splice(@$inarray,0 <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3440	3529	
==>,$outhash)=@_;
	my($prm,$value);
	my($prmlst)={};

	while(($prm,$value)=splice(@$inarray,0 <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11059	11162	
==>$optype, @$item);
		push @args, [ $a1, @$item ];
	}
	#foreach(@args) {
		#push @$code, qq{\t.arg $_->[0] <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4841	4941	
==>imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();

    $compiler->emit("  $pmc_reg = new $pmc_type") <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2904	3004	
==>imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();

    $compiler->emit("  $pmc_reg = new $pmc_type") <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1207	1306	
==>imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();
    $compiler->emit("  $pmc_reg = new $pmc_type") <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1201	1300	
==>imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();
    $compiler->emit("  $pmc_reg = new $pmc_type") <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714533	714633	
==>\n  STRING * const s = {{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (s && string_lengt <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715456	715556	
==>\n  STRING * const s = {{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (s && string_lengt <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33135	33234	
==>rides the default implementation to perform locking.

=cut

sub body
{
    my ($self, $method, $line <==
4	/Users/nnunley/parrot/tools/build/vtable_extend.pl	2997	3095	
==>_extending.pod>.

=head1 HISTORY

Initial version by Dan Sugalski.

=cut

*/

/*
 * Local variables <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27962	28064	
==>xt;' : '').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Pa <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30036	30138	
==>xt;' : '').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Pa <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32237	32339	
==>xt;' : '').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Pa <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	514	607	
==>is module provides a basic test harness for Parrot-hosted languages.  Right
now it parameteriz <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22098	22221	
==>}s
    ) {
      # Whee, it fits the pattern
      DEBUG and print "Seems to match =head1 NAME pattern.\n";
      $title = ' <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	2927	3035	
==>eturn 10 if ($op eq "<>");
	return 10 if ($op eq ">");
	return 10 if ($op eq "<");
	return 15 if ($op eq ",") <==
4	/Users/nnunley/parrot/config/auto/msvc.pm	2079	2185	
==>RECATE. See online help
        # for details.
        $conf->data->add(" ", "ccflags", "-D_CRT_SECURE_NO_D <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34204	34301	
==>ext;
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' )
		. ($self->{"lookahead"}<0?'if':' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117176	117501	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	119507	119832	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120362	120687	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAG <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10403	10496	
==>'u', 'P', qq{*}, qq{,}, '1', 'o', qq{>>}, qq{1/4}, qq{1/2}, qq{3/4}, qq{?},
'A', 'A', 'A', 'A' <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	644	760	
==>' }] };
    my $expr;
    $count++;
    ($count, $expr) = _build_tree ($tokens, $count);
    push @{$temp->{children} <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	861	977	
==>' }] };
    my $expr;
    $count++;
    ($count, $expr) = _build_tree ($tokens, $count);
    push @{$temp->{children} <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1075	1191	
==>' }] };
    my $expr;
    $count++;
    ($count, $expr) = _build_tree ($tokens, $count);
    push @{$temp->{children} <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1299	1415	
==>' }] };
    my $expr;
    $count++;
    ($count, $expr) = _build_tree ($tokens, $count);
    push @{$temp->{children} <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4473	4631	
==>o {
                	s/^#DBG>//;
                	push(@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note tha <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4250	4397	
==>o {
                	s/^#DBG>//;
                	push(@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note tha <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	9783	9920	
==>ys %{$function_line_coverage{$source_file}}) {

            print OUT qq(
           <tr>
             <td>$function</td>
             <td <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	4425	4542	
==>],
		parser  => $_[2],
		prev	=> $_[3]?-1:0,
	      }, $_[0];
}

sub FETCH    
{
	my $parser = $_[0]->{parser};
	retur <==
4	/Users/nnunley/parrot/config/gen/makefiles.pm	8007	8119	
==>rot.pc'
    );

    if ($conf->data->get('has_perldoc')) {

        # set up docs/Makefile, partly based on the . <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1268	1365	
==>ese are compiler internal consistency checks. They really should not be
  # triggered in normal op <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1213	1310	
==>ese are compiler internal consistency checks. They really should not be
  # triggered in normal op <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1116	1213	
==>ese are compiler internal consistency checks. They really should not be
  # triggered in normal op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90821	91079	
==>rc/ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91675	91933	
==>rc/ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92529	92787	
==>rc/ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/config/auto/jit.pm	4056	4190	
==>if ($execcapable) {
            $conf->data->set(
                TEMP_exec_h =>
                    '$(SRC_DIR)/jit.h $(INC_DIR)/exec. <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	39943	40039	
==>e immediately following paragraph:

	$text = "/para line 1\n\nline 3\n/para line 4";

	extract_ta <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117211	117515	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	119542	119846	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120397	120701	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_c <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	24574	24697	
==>k;
    my $args = join ', ', @args;
    my $t;
    $func = $tos->[1];
    # create argument tuple
    if ($builtins{$name} & <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056509	1056627	
==>ps/var.ops\"\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057401	1057519	
==>ps/var.ops\"\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058293	1058411	
==>ps/var.ops\"\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059186	1059304	
==>ps/var.ops\"\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3149	3250	
==>0} = ${STYPES}[stack_depth]

# Do we have anything on the lazy moves stack?
${ITEMP0} = elements lazy_ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4907	5008	
==>0} = ${STYPES}[stack_depth]

# Do we have anything on the lazy moves stack?
${ITEMP0} = elements lazy_ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7834	7935	
==>0} = ${STYPES}[stack_depth]

# Do we have anything on the lazy moves stack?
${ITEMP0} = elements lazy_ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8690	8791	
==>0} = ${STYPES}[stack_depth]

# Do we have anything on the lazy moves stack?
${ITEMP0} = elements lazy_ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	592	682	
==>ullParser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullPar <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1011	1101	
==>ullParser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullPar <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	498	588	
==>ullParser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullPar <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1485	1575	
==>ullParser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullPar <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579269	579368	
==>/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t * <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580574	580673	
==>/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t * <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581879	581978	
==>/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t * <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583185	583284	
==>/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t * <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	25192	25316	
==>ew AssignOp( $parser,
        'arg1'   => undef,
        'result' => $defn,
    );
    return [ $defn, \@opcodes, $assign <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	17676	17772	
==>else.
    return $para->[1]{'~type'} = 'text';

  }
}

#----------------------------------------- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832097	832179	
==>stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}), STACK_E <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832825	832907	
==>stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}), STACK_E <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7280	7396	
==>$self, $reg, $db_desc) = @_;
    $reg = value($reg);

    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($db_ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6922	7038	
==>$self, $reg, $db_desc) = @_;
    $reg = value($reg);

    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($db_ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9380	9495	
==>$self, $reg, $db_desc) = @_;
    $reg = value($reg);
    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($db_ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9074	9189	
==>$self, $reg, $db_desc) = @_;
    $reg = value($reg);
    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($db_ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	8329	8487	
==>$group, '<tmp>' ] ),
                        aop('goto', [ $lastback ] ),
               $back => aop('setend', [ $group, -2 ]),
                        aop('g <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050090	1050207	
==>,
                  "BODY" => "#line 172 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exce <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051124	1051241	
==>,
                  "BODY" => "#line 172 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exce <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052158	1052275	
==>,
                  "BODY" => "#line 172 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exce <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053193	1053310	
==>,
                  "BODY" => "#line 172 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exce <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449218	449385	
==>"ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 190 \"src/ops/math.ops\"\n  {{\@1}}->vtable->i_absolute( <==
4	/Users/nnunley/parrot/config/inter/lex.pm	2011	2132	
==>l back to default
        $self->set_result('no');
        return $self;
    }

    # if '--version' returns a string assu <==
4	/Users/nnunley/parrot/config/inter/make.pm	1885	2006	
==>l back to default
        $self->set_result('no');
        return $self;
    }

    # if '--version' returns a string assu <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	2025	2146	
==>l back to default
        $self->set_result('no');
        return $self;
    }

    # if '--version' returns a string assu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072300	1072426	
==>xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074485	1074611	
==>xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076670	1076796	
==>xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078856	1078982	
==>xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462931	463236	
==>od({{\@2}}, den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463928	464233	
==>od({{\@2}}, den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464925	465230	
==>od({{\@2}}, den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	25816	25925	
==>OP_END_$name:
PIR
			$arg_name = "P_ARG_$arg_num";
		}

		# Unknown.
		else {
			die "Known argument type $_ n <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	7160	7288	
==>stem$O", "$src_stem.c"))
          or die "compile $src_stem.c failed ($?)\n";
    }
    else {
        1;
    }
}

sub partial_l <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5454	5582	
==>stem$O", "$src_stem.c"))
          or die "compile $src_stem.c failed ($?)\n";
    }
    else {
        1;
    }
}

sub partial_l <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	7371	7499	
==>stem$O", "$src_stem.c"))
          or die "compile $src_stem.c failed ($?)\n";
    }
    else {
        1;
    }
}

sub partial_l <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	7512	7619	
==>r an integer (the number of expected tests).

=cut

sub has_plan {
    my $self = shift;

    return($self-> <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2587	2685	
==>$self->right;

  if (defined $cond) {
    $handler->start_element({ Name => 'cond', Attributes => { <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3261	3359	
==>$self->right;

  if (defined $cond) {
    $handler->start_element({ Name => 'cond', Attributes => { <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3351	3449	
==>$self->right;

  if (defined $cond) {
    $handler->start_element({ Name => 'cond', Attributes => { <==
4	/Users/nnunley/parrot/config/auto/alignptrs.pm	276	370	
==>nptrs;

use strict;
use vars qw($description $result @args);

use base qw(Parrot::Configure::St <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	12534	12629	
==>my ($locals, @body) = _get_args ($node,1);
  my (@variables, @values);
  for (@{$locals->{childr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714714	714808	
==>(interpreter, io, \" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n    PIO_sof <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715637	715731	
==>(interpreter, io, \" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n    PIO_sof <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716582	716676	
==>(interpreter, io, \" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n    PIO_sof <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627303	627403	
==>n, the continuation PMC\n   * needs to be in the destination register before its init method\n   * co <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628447	628547	
==>n, the continuation PMC\n   * needs to be in the destination register before its init method\n   * co <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2660	2755	
==>elf->right->sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_elemen <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2537	2632	
==>elf->right->sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_elemen <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854383	854661	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855271	855549	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856160	856438	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857049	857327	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39627	39755	
==>=> $fct,
    );
    return [ $result, \@opcodes1 ];
}

sub BuildMain {
    my ( $parser, $stat ) = @_;
    if ( scalar @{$ <==
4	/Users/nnunley/parrot/lib/Parrot/Configure.pm	2772	2884	
==>ject.

=cut

sub add_step
{
    my ($self, $step, @params) = @_;

    push @{$self->{steps}},
        Parrot::Con <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	4956	5067	
==>f ($text =~ m{^( \| | & | << | >> )(.*)$}x) {
      push @tokens, Jako::Token->new(
        $file, $line, 'infix <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1097118	1097228	
==>gs into a key. Note that we are not\n           including the first item in the array, since that is the HLL. * <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700617	700898	
==>CODE" => 786,
                  "ARGS" => [
                              "p",
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123841	123949	
==>\"src/ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124715	124823	
==>\"src/ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125589	125697	
==>\"src/ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344300	344391	
==>de = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, pat <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345542	345633	
==>de = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, pat <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346784	346875	
==>de = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, pat <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348027	348118	
==>de = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, pat <==
4	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	2306	2437	
==>y ($symb) = @_;
        if ( exists $self->{table}{$symb} ) {
            my $defn = $self->{table}{$symb};
            return $d <==
4	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	2686	2817	
==>y ($symb) = @_;
        if ( exists $self->{table}{$symb} ) {
            my $defn = $self->{table}{$symb};
            return $d <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	2670	2766	
==>e functions after the various
directives have been replaced.

=head2 PMC File Syntax

The basic s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659497	659832	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exists",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660418	660753	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exists",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661340	661675	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exists",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662255	662590	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exists",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	786	887	
==>nd(n)" => "mark end of n-th paren match" ],
    [ "delete(n)" => "delete record of n-th paren match" ] <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30391	30492	
==>racefirst($text))
							if defined $::RD_TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDe <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32591	32692	
==>racefirst($text))
							if defined $::RD_TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDe <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28316	28416	
==>racefirst($text))
					if defined $::RD_TRACE;').'

			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDe <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	2034	2131	
==>position. If a count is given, then that many tokens
# (at most, given the possibilitiy of running <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276219	276475	
==>pare(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277097	277353	
==>pare(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277975	278231	
==>pare(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/config/auto/aio.pm	1186	1368	
==>=> 1,
                D_SIGRTMIN => $1,
                D_SIGRTMAX => $2,
            );
        }

    } else {
        $conf->data->set(libs => $libs);
        print " (no) " if $ve <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	1182	1310	
==>{ }
  elsif($] >= 5.008)   { *UNICODE = sub() {1}  }
  else                 { *UNICODE = sub() {''} }
}
if(DEBUG > 2) {
  print " <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4164	4258	
==>ype).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign register name.
${STEMP0} = "$"
${STEMP1} = ${P <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2580	2674	
==>ype).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign register name.
${STEMP0} = "$"
${STEMP1} = ${P <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1890	1984	
==>ype).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign register name.
${STEMP0} = "$"
${STEMP1} = ${P <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	33314	33444	
==>print <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $v <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	34063	34193	
==>print <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $v <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	34987	35117	
==>print <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $v <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	6024	6117	
==>:Unit>

Elaborate unit testing.

=item L<Test::Inline>, L<SelfTest>

Embed tests in your code! <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	7780	7890	
==>not let them get closed.
    open  OLDOUT, ">&STDOUT" or die "Can't save     stdout" if $out;
    open  OLDERR, <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7831	7939	
==>not let them get closed.
    open OLDOUT, ">&STDOUT" or die "Can't save     stdout" if $out;
    open OLDERR, <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	2999	3106	
==>int match_num
    .local int ii
    .local int valid_flag
    set num_groups, result["!GROUPS"]
    set matc <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	23011	23105	
==>P1 = new .PerlHash
	P1["_type"]= '$type'
	P1["type"]= "USER"
	P1["storage"]= P0
	P2["$var"]= P1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584434	584528	
==>MC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585509	585603	
==>MC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597950	598044	
==>MC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598997	599091	
==>MC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6227	6337	
==>}

sub output_getstart {
    my ($self, $reg, $group) = @_;
    $reg = value($reg);
    return qq!set $reg, <rx <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2834	2939	
==>ons) hooks.
sub pre_op($$) {
	my $self = shift;
	my ($pops, $pushes) = @_;
	my $register_num = 0;
	my $pus <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1756	1861	
==>ons) hooks.
sub pre_op($$) {
	my $self = shift;
	my ($pops, $pushes) = @_;
	my $register_num = 0;
	my $pus <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	945	1050	
==>ons) hooks.
sub pre_op($$) {
	my $self = shift;
	my ($pops, $pushes) = @_;
	my $register_num = 0;
	my $pus <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2198	2286	
==>::Construct::Expression::Value::Identifier')) {
    my $right_sym = $block->find_symbol($ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2156	2244	
==>::Construct::Expression::Value::Identifier')) {
    my $right_sym = $block->find_symbol($ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2078	2166	
==>::Construct::Expression::Value::Identifier')) {
    my $right_sym = $block->find_symbol($ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	703	796	
==>s not!"  unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type (" . ref($ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	578	670	
==>s not!" unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type (" . ref($ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	587	678	
==>s not!" unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type (". ref($ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	569	660	
==>s not!" unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type (". ref($ <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31927	32043	
==>ters = $method->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $ar <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33504	33620	
==>ters = $method->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $ar <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38521	38637	
==>ters = $method->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $ar <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40561	40677	
==>ters = $method->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $ar <==
4	/Users/nnunley/parrot/config/gen/makefiles.pm	7192	7330	
==>cl/config/root.in' => 'languages/tcl/Makefile',
        commentType                    => '#',
        replace_slashes                => 1, <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	7338	7455	
==>__
    .local pmc None
    None = new .None
EOC
    $globals{'__name__'} = '__name__';
    $code_l = 0;
    my $in_inf <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8804	8910	
==>n    = 0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_tests_badpass = 0;
    $Test::num_of_tests_ <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	207	301	
==>n    = 0;
$Test::num_of_tests_failed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of_tests_ <==
4	/Users/nnunley/parrot/tools/dev/nm.pl	511	611	
==>ons can be used to limit the symbols:

=over 4

=item C<--code>

=item C<-c>

List the code/text symb <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563329	563537	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addmethod",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564226	564434	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addmethod",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1943	2050	
==>okup the identifier:
  #

  my $sym = $block->find_symbol($self->name);

  #
  # If the identifier is alread <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1690	1797	
==>okup the identifier:
  #

  my $sym = $block->find_symbol($self->name);

  #
  # If the identifier is alread <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422969	423160	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "listen",
                  "FLAGS" => ":base_network",
                  "ARG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423865	424056	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "listen",
                  "FLAGS" => ":base_network",
                  "ARG <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	989	1073	
==>code_t*)cur_opcode - (opcode_t*)interpreter->code->prederef.code))
#define CUR_OPCODE <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1119	1203	
==>code_t*)cur_opcode - (opcode_t*)interpreter->code->prederef.code))
#define CUR_OPCODE <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4649	4775	
==>oin(" ", @_), "\n";

    return system(@_) == 0;
}

sub modtime {
    my $ago = (-M shift);

    if (defined $ago) {
        re <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833534	833617	
==>ps/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834256	834339	
==>ps/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834982	835065	
==>ps/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	2874	3006	
==>),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "check_events", <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4309	4420	
==>', Attributes => { type => $type->name } });
        $handler->characters({ Data => $string });
        $handler <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4659	4766	
==>', Attributes => { type => $type->name } });
      $handler->characters({ Data => $string });
      $handler <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	14596	14692	
==>ode') and $self->write_with_binmode;
    $self->output_fh($out_fh);
  }

  return $self->parse_fi <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22186	22293	
==>ssion::Value->new($block, $self->require_value);

        $self->require_close_paren;
      }

      $self-> <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23119	23226	
==>ssion::Value->new($block, $self->require_value);

        $self->require_close_paren;
      }

      $self-> <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24765	24871	
==>ssion::Value->new($block, $self->require_value);
        $self->require_close_paren;
      }

      $self-> <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4677	4768	
==>I<special> PMCs:
F<default>, C<delegate>, C<Null>, C<Ref> or C<SharedRef>.

C<$opt> is a has <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1833	1932	
==>e} = [];
    unshift @{ $parser->YYData->{scopef} }, $parser->YYData->{lex_num};
    $parser->YYDa <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9957	10052	
==>last to first, but need to be first to last in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7471	7566	
==>last to first, but need to be first to last in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6435	6530	
==>last to first, but need to be first to last in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP <==
4	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3267	3391	
==>%pmc_types);

%pmc_types = (
END_PM

    for my $num (0 .. $#pmcs) {
        my $id = $num + 1;
        print OUT "\t$pmcs[$n <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1606	1700	
==>my $right = $self->right;

  my $dest_sym = $block->find_symbol($dest->value);
  $self->SYNTAX_ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1564	1658	
==>my $right = $self->right;

  my $dest_sym = $block->find_symbol($dest->value);
  $self->SYNTAX_ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1486	1580	
==>my $right = $self->right;

  my $dest_sym = $block->find_symbol($dest->value);
  $self->SYNTAX_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5622	5711	
==>m C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPred <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3198	3287	
==>m C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPred <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4604	4693	
==>m C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPred <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3988	4077	
==>m C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPred <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131381	131689	
==>2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132236	132544	
==>2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133091	133399	
==>2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7971	8070	
==>>_restore($list, $copy, $head, $type);
  return $return;
}

sub _op_lambda {
  my ($self,$node) = @_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22860	22958	
==>ore.ops\"\n  opcode_t *dest;\n  PMC * const p = {{\@1}};\n  dest = {{^+2}};\n  interpreter->current <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25249	25347	
==>ore.ops\"\n  opcode_t *dest;\n  PMC * const p = {{\@1}};\n  dest = {{^+2}};\n  interpreter->current <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2637	2729	
==>g_type->name ne $actual_arg_type->name) {
      my $temp = $compiler->temp_reg($formal_arg_ty <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2337	2429	
==>g_type->name ne $actual_arg_type->name) {
      my $temp = $compiler->temp_reg($formal_arg_ty <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	5491	5606	
==>[\cm\cj\t "\[\<\(])
         )   # start on whitespace, sequence-start, or quote
         ( # something looking like <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	8745	8843	
==>val;
    Parrot_convert_arg(interpreter, st);
    Parrot_store_arg(interpreter, st);
}

static void <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	8986	9084	
==>val;
    Parrot_convert_arg(interpreter, st);
    Parrot_store_arg(interpreter, st);
}

static void <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	9226	9324	
==>val;
    Parrot_convert_arg(interpreter, st);
    Parrot_store_arg(interpreter, st);
}

static void <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	447	540	
==>::RecDescent::expected
	    = $Parse::RecDescent::defexpected->expected()
	    unless $Parse:: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1848	1937	
==>a($left, 'Jako::Construct::Expression::Value::Identifier')) {
    my $left_sym = $block->f <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1806	1895	
==>a($left, 'Jako::Construct::Expression::Value::Identifier')) {
    my $left_sym = $block->f <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1728	1817	
==>a($left, 'Jako::Construct::Expression::Value::Identifier')) {
    my $left_sym = $block->f <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	5157	5283	
==>aries is especially important on
        # some platforms
        if ($^O eq 'hpux' or $^O eq 'cygwin') {
            chmod 075 <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	5368	5494	
==>aries is especially important on
        # some platforms
        if ($^O eq 'hpux' or $^O eq 'cygwin') {
            chmod 075 <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4373	4493	
==>aries is especially important on
			# some platforms
	        if ($^O eq 'hpux' or $^O eq 'cygwin') {
		        chmod 075 <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	14427	14524	
==>DEBUG and print "Write-opening to $to\n";
    open($out_fh, ">$to")  or  Carp::croak "Can't write- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293446	293655	
==>{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294322	294531	
==>{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295198	295407	
==>{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	8112	8241	
==>ype eq 'end' and
            $to_unget[-2]->tagname =~ m/^item-/s
          ) {
            # Bail out here, after setting rtfitem <==
4	/Users/nnunley/parrot/lib/Test/More.pm	9461	9564	
==>ported):

    like( $this, '/that/', 'this is like that' );

Regex options may be placed on the end (C<' <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1996	2090	
==>ion involves unknown variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym- <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1954	2048	
==>ion involves unknown variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym- <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1876	1970	
==>ion involves unknown variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym- <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	917	1013	
==>t.
For example, parsing a "=head1 ..." line will give you
a start-token with the tagname of "head <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1345	1441	
==>t.
For example, parsing a "=head1 ..." line will give you
a start-token with the tagname of "head <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	421	511	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_element_start {
  # ($self, $element_name, $attr_ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	420	510	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_element_start {
  # ($self, $element_name, $attr_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899973	900252	
==>015,
                  "ARGS" => [
                              "s",
                              "ic",
                              "ic",
                              "s"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)st <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27925	28025	
==>lf->{"lookahead"} ? '$text = $_savetext;' : '').'
			if ($Parse::RecDescent::lastexpected
			    && ! <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29999	30099	
==>lf->{"lookahead"} ? '$text = $_savetext;' : '').'
			if ($Parse::RecDescent::lastexpected
			    && ! <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32200	32300	
==>lf->{"lookahead"} ? '$text = $_savetext;' : '').'
			if ($Parse::RecDescent::lastexpected
			    && ! <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39041	39283	
==>xception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39906	40148	
==>xception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40753	40995	
==>xception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41601	41843	
==>xception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	22071	22181	
==>= 2; $i < @$treelet; ++$i) { # iterate over children
      next unless ref $treelet->[$i];  # text nodes are un <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	28357	28467	
==>= 2; $i < @$treelet; ++$i) { # iterate over children
      next unless ref $treelet->[$i];  # text nodes are un <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	41814	41924	
==>= 2; $i < @$treelet; ++$i) { # iterate over children
      next unless ref $treelet->[$i];  # text nodes are un <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8745	8840	
==>"VISUAL","WARP"

' Random number distribution
randomize timer
max=10
dim a(max)
for i = 0 to 100 <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	12592	12721	
==>7
		DEFAULT => -6
	},
	{#State 8
		DEFAULT => -1
	},
	{#State 9
		ACTIONS => {
			"(" => 10,
			'CHAR' => 4,
			"<" => 3,
			"[" = <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1878	1983	
==>ser even if the program they provided appears to be
    # broken
    if ($ret == -1 and !$conf->options->g <==
4	/Users/nnunley/parrot/config/inter/make.pm	1752	1857	
==>ser even if the program they provided appears to be
    # broken
    if ($ret == -1 and !$conf->options->g <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1892	1997	
==>ser even if the program they provided appears to be
    # broken
    if ($ret == -1 and !$conf->options->g <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	7013	7128	
==>NOPSIS

    use Class::Struct;
            # declare struct, based on array:
    struct( CLASS_NAME => [ ELEMENT_NAM <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1246	1356	
==>t  { return shift->{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub rig <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1237	1347	
==>t  { return shift->{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub rig <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1126	1236	
==>t  { return shift->{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub rig <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3148	3266	
==>elf)=shift;

        @_
    and ${$$self{TOKEN}}=$_[0];
    ${$$self{TOKEN}};
}

sub YYCurval {
	my($self)=shif <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2994	3104	
==>elf)=shift;

        @_
    and ${$$self{TOKEN}}=$_[0];
    ${$$self{TOKEN}};
}

sub YYCurval {
	my($self)=shif <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	7684	7786	
==>n') if $self->{No_Plan};
    return(undef);
};


=item B<skip_all>

  $Test->skip_all;
  $Test->skip_al <==
4	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	510	604	
==>SCRIPTION

This script extracts descriptions from the Parrot source files. If no
files are spec <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	23927	24041	
==>rdel    = $_[1];
	my $pre     = defined $_[2] ? $_[2] : '\s*';
	my %options = defined $_[3] ? %{$_[3]} : ();
	my $o <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11173	11262	
==>URN_${CURIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1}["reg_type_short"]
${DEST0} = concat ${S <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8359	8448	
==>URN_${CURIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1}["reg_type_short"]
${DEST0} = concat ${S <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6021	6110	
==>URN_${CURIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1}["reg_type_short"]
${DEST0} = concat ${S <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18169	18420	
==>(interpreter, {{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18978	19229	
==>(interpreter, {{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21332	21583	
==>(interpreter, {{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22146	22397	
==>(interpreter, {{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20637	20733	
==>=101010
end sub
dim narf as struct
dim bar(1)
dim lot$(1)
dim poit(1) as struct
dim h$(1)
thing$= <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11007	11096	
==>EMP0} != ELEMENT_TYPE_VOID goto pre_call_HAS_RETURN_${CURIC}
if "${CURIC}" == "73" goto pr <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8193	8282	
==>EMP0} != ELEMENT_TYPE_VOID goto pre_call_HAS_RETURN_${CURIC}
if "${CURIC}" == "73" goto pr <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5855	5944	
==>EMP0} != ELEMENT_TYPE_VOID goto pre_call_HAS_RETURN_${CURIC}
if "${CURIC}" == "73" goto pr <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5592	5678	
==>em C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4597	4683	
==>em C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4574	4660	
==>em C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3958	4044	
==>em C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072354	1072495	
==>*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  {{\@2}} = (INTVAL)( xk * pow( -1, n ) );\n  {{\@3}} = (INTVAL)( yk * pow( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074539	1074680	
==>*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  {{\@2}} = (INTVAL)( xk * pow( -1, n ) );\n  {{\@3}} = (INTVAL)( yk * pow( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076724	1076865	
==>*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  {{\@2}} = (INTVAL)( xk * pow( -1, n ) );\n  {{\@3}} = (INTVAL)( yk * pow( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078910	1079051	
==>*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  {{\@2}} = (INTVAL)( xk * pow( -1, n ) );\n  {{\@3}} = (INTVAL)( yk * pow( <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	6364	6494	
==>W - $ago;
    } else {
        return;
    }
}

sub needs_build {
    my ($target, @sources) = @_;

    my $target_mod = modtime($t <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4784	4914	
==>W - $ago;
    } else {
        return;
    }
}

sub needs_build {
    my ($target, @sources) = @_;

    my $target_mod = modtime($t <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	6575	6705	
==>W - $ago;
    } else {
        return;
    }
}

sub needs_build {
    my ($target, @sources) = @_;

    my $target_mod = modtime($t <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	6425	6525	
==>se strict;
use warnings;

use Cwd;
use Data::Dumper;
use File::Spec;
use Parrot::Config;

require Exp <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	9157	9261	
==>}


#
# INTERNAL_ERROR()
#

sub INTERNAL_ERROR
{
  my ($self, $format, @args) = @_;
  $self->ERROR('Inter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480622	480721	
==>BODY" => "#line 446 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481625	481724	
==>BODY" => "#line 446 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482628	482727	
==>BODY" => "#line 446 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exc <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	17702	17827	
==>},
	{#State 67
		ACTIONS => {
			'NUM' => 57,
			">" => 72
		}
	},
	{#State 68
		DEFAULT => -41
	},
	{#State 69
		DEFAULT => - <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	782	875	
==>$right) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	810	903	
==>$right) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	494	587	
==>$right) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253820	254127	
==>? {{\@2}} : {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254683	254990	
==>? {{\@2}} : {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255546	255853	
==>? {{\@2}} : {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/Op.pm	632	729	
==>ops can count
on an automatically generated next-op to be appended to the op body.

Note that F<to <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351033	351297	
==>\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351695	351959	
==>\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352352	352616	
==>\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353010	353274	
==>\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143591	143854	
==>reter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Pa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144519	144782	
==>reter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Pa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145447	145710	
==>reter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Pa <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	6826	6957	
==>C;
arg_ok:
EOC
    }
    $cur_func = $arg;
    %params = ();
    %lexicals = ();
    %names = ();
}

sub ARG_count {
    my ($n, $c, <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	27780	27897	
==>UG > 2 and print
       "Extensor maps $new_letter => fallbacks @fallbacks.\n";
    }

  } else {
    DEBUG > 2 and pr <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11037	11124	
==>o pre_call_HAS_RETURN_${CURIC}
if "${CURIC}" == "73" goto pre_call_HAS_RETURN_${CURIC}
g <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8223	8310	
==>o pre_call_HAS_RETURN_${CURIC}
if "${CURIC}" == "73" goto pre_call_HAS_RETURN_${CURIC}
g <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5885	5972	
==>o pre_call_HAS_RETURN_${CURIC}
if "${CURIC}" == "73" goto pre_call_HAS_RETURN_${CURIC}
g <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276205	276464	
==>} = string_compare(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277083	277342	
==>} = string_compare(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277961	278220	
==>} = string_compare(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/config/init/hints/mswin32.pm	6554	6675	
==>2 -lole32 -loleaut32 -lnetapi32 -luuid -lws2_32 -lmpr -lwinmm -lversion -lodbc32 ',
                link              => ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	119483	119772	
==>} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120338	120627	
==>} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121193	121482	
==>} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31844	31978	
==>>isa('CallOp') )
    {
        push @opcodes1, new AssignOp( $parser,
            'result' => $iter,
            'arg1'   => $nil-> <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1296	1427	
==>m a line
         [^\n\ ]{0,50}     #  and finish any current word
        )
        \x20{1,10}(?!\n)   # capture some spaces not at <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1240	1371	
==>m a line
         [^\n\ ]{0,50}     #  and finish any current word
        )
        \x20{1,10}(?!\n)   # capture some spaces not at <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	23797	23913	
==>l: popindex -> junk or lastback
#               goto R.back
#
sub rewrite_nongreedy_plus {
    my ($self, $op, $R, $l <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	15990	16097	
==>ch[2], $match[18]-$match[2],	# MATCH
			@match[18,19],				# REMAINDER
			@match[0,1],				# PREFIX
			@match[ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451173	451463	
==>0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451911	452201	
==>0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452650	452940	
==>0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453388	453678	
==>0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769394	769606	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770246	770458	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771099	771311	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771952	772164	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126708	127005	
==>NTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127843	128140	
==>NTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128978	129275	
==>NTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	212	305	
==>d1 SYNOPSIS

	use Parrot::Docs::Section::Docs;

=head1 DESCRIPTION

A documentation section de <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1140	1245	
==>->get_token) {
    $DEBUG and print "Token: ", $token->dump, "\n";
    if($token->is_start) {
      ...acc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714758	714851	
==>erpreter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715681	715774	
==>erpreter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716626	716719	
==>erpreter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540458	540560	
==>L b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541710	541812	
==>L b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542962	543064	
==>L b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; { <==
4	/Users/nnunley/parrot/tools/dev/pbc_header.pl	375	468	
==>code files is invalidated.

This utility updates the version and finperprint information in th <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	1661	1794	
==>$self->pass1($_, $ctx) } @{ $t->{args} };
        if (@children == 1) {
            return $children[0];
        }

        for (@chil <==
4	/Users/nnunley/parrot/tools/dev/lib_deps.pl	8884	9007	
==>.h
cimagf      complex.h
cimagl      complex.h
clearerr    stdio.h
clock       time.h
clog        complex.h
clogf       comp <==
4	/Users/nnunley/parrot/config/gen/makefiles.pm	6402	6524	
==>onfig/gen/makefiles/punie.in' => 'languages/punie/Makefile',
        commentType                     => '#',
        replac <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	21472	21568	
==>s);

Prints out the given @msgs.  Like C<print>, arguments are simply
appended together.

Normall <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733714	733967	
==>_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734478	734731	
==>_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742783	743036	
==>_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743549	743802	
==>_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	7473	7626	
==>-(\d+)		# 15	skipped
                -(\d+)		# 16	unexpected
               --([a-f0-9]+)	# 17    harness_args
               --([a-f0-9]+)	# 18	id
   .ht <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	6897	7019	
==>m;
		#print "Got a $sym...\n";
		if ($sym eq "(") {
			push @stack, $item;
			next;
		}
		if ($sym eq ")") {
			push @strea <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663683	663769	
==>s/pmc.ops\"\n  {{\@1}}->vtable->delete_keyed(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664455	664541	
==>s/pmc.ops\"\n  {{\@1}}->vtable->delete_keyed(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641679	642014	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642566	642901	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643454	643789	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644346	644681	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2275	2389	
==>g_sym->type; 
    }
    else {
      $actual_arg_type = $args[$i]->type;
    }

    $self->INTERNAL_ERROR("Can't de <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1975	2089	
==>g_sym->type; 
    }
    else {
      $actual_arg_type = $args[$i]->type;
    }

    $self->INTERNAL_ERROR("Can't de <==
4	/Users/nnunley/parrot/config/inter/pmc.pm	955	1056	
==>mc} = lc($1) if m/extends\s+(\w+)/;
    return $PMC_PARENTS{$pmc} = 'default';
}

# Return an array of <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	2587	2682	
==>l(?:[^$del]*(?:(?:$del$del)[^$del]*)*)$del";
		}
		else
		{
			push @pat, "$del(?:[^$esc$del]*(? <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	5236	5338	
==>$sym = $self->block->find_symbol($name);

  my %props = $sym->props;

  if (exists $props{op}) {
    my <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	536	626	
==>) not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Dest (" . ref( <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	527	617	
==>) not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Dest (" . ref( <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	416	506	
==>) not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Dest (" . ref( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332533	332634	
==>);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* string_cstring <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333811	333912	
==>);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* string_cstring <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335089	335190	
==>);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* string_cstring <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336368	336469	
==>);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* string_cstring <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072818	1072936	
==>y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075003	1075121	
==>y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077188	1077306	
==>y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079374	1079492	
==>y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516681	516917	
==>ops/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517420	517656	
==>ops/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518158	518394	
==>ops/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518897	519133	
==>ops/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273212	273633	
==>=> [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 318,
                  "ARGS" => [
                              "i",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256362	256457	
==>e 740 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257270	257365	
==>e 740 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258178	258273	
==>e 740 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355462	355712	
==>MP" => 0,
                  "NAME" => "write",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2345	2463	
==>rint {
    my ($self, $what) = @_;
    $what = value($what);
    return ("print $what;");
}

sub output_test {
    my ( <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	1847	1964	
==>e, if any.
    PREFIX  => $prefix, # Prefix, if given in source code.
    SYMBOLS => { },     # Identifiers
    CONTEN <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2662	2779	
==>rint {
    my ($self, $what) = @_;
    $what = value($what);
    return ("print $what");
}

sub output_test {
    my ( <==
4	/Users/nnunley/parrot/languages/regex/test.pl	3114	3226	
==>ilename, $pattern) = @_;
    open(PIR, ">$filename") or die "create $filename: $!";

    my $ctx = { };
    my $t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	330566	330823	
==>,
                  "TYPE" => "inline",
                  "CODE" => 388,
                  "ARGS" => [
                              "n",
                              "p"
                            ],
                  "BODY" => "#line 174 \"src/ops/dotgnu <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	767	857	
==>ier (" . ref($ident) . ") is not!" unless UNIVERSAL::isa($ident, qw(Jako::Construct::Expres <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	792	882	
==>ier (". ref($ident) . ") is not!"  unless UNIVERSAL::isa($ident, qw(Jako::Construct::Expres <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	756	846	
==>ier (". ref($ident) . ") is not!"  unless UNIVERSAL::isa($ident, qw(Jako::Construct::Expres <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037005	1037275	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037785	1038055	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038566	1038836	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global" <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3351	3459	
==>m for sequences of files with the
			# same description.
			
			push @contents, 
				map {$self->new_item('', <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381209	381310	
==>) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n  {{+=4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382221	382322	
==>) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n  {{+=4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383233	383334	
==>) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n  {{+=4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384246	384347	
==>) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n  {{+=4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38990	39089	
==>@1}} == EXCEPT_doomed)\n    _exit({{\@2}});\n  do_exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39855	39954	
==>@1}} == EXCEPT_doomed)\n    _exit({{\@2}});\n  do_exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40702	40801	
==>@1}} == EXCEPT_doomed)\n    _exit({{\@2}});\n  do_exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41550	41649	
==>@1}} == EXCEPT_doomed)\n    _exit({{\@2}});\n  do_exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332338	332439	
==>ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const mode = string_to_cstring <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333616	333717	
==>ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const mode = string_to_cstring <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334894	334995	
==>ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const mode = string_to_cstring <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336173	336274	
==>ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const mode = string_to_cstring <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528039	528356	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528920	529237	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529802	530119	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Test/More.pm	2858	2963	
==>ther

Before anything else, you need a testing plan.  This basically declares
how many tests your script i <==
4	/Users/nnunley/parrot/config/gen/platform.pm	515	634	
==>rgs        = qw(miniparrot verbose);

sub runstep {
    my ($self, $conf) = @_;

    my $verbose  = $conf->options->get( <==
4	/Users/nnunley/parrot/config/auto/gcc.pm	473	584	
==>rgs = qw(miniparrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get( <==
4	/Users/nnunley/parrot/config/auto/memalign.pm	489	600	
==>rgs = qw(miniparrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get( <==
4	/Users/nnunley/parrot/config/auto/signal.pm	434	545	
==>rgs = qw(miniparrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742778	743009	
==>_from_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743544	743775	
==>_from_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/Configure.pm	4643	4762	
==>tting, why?
        $self->data->set(verbose => $verbose) if $n > 2;

        print "\n", $description, '...';
        p <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	2473	2564	
==>Pod::Simple::DEBUG is already defined, Pod::Simple::Debug will
throw a fatal error to the ef <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21002	21136	
==>5
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29 <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23830	23964	
==>5
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29 <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27812	27946	
==>5
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29 <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43672	43806	
==>5
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050238	1050335	
==>lass.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(interpreter, {{\@2}}, {{\@3}}, n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051272	1051369	
==>lass.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(interpreter, {{\@2}}, {{\@3}}, n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052306	1052403	
==>lass.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(interpreter, {{\@2}}, {{\@3}}, n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053341	1053438	
==>lass.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(interpreter, {{\@2}}, {{\@3}}, n <==
4	/Users/nnunley/parrot/config/auto/cgoto.pm	573	683	
==>) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('skipped');
        return $sel <==
4	/Users/nnunley/parrot/config/auto/headers.pm	508	618	
==>) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('skipped');
        return $sel <==
4	/Users/nnunley/parrot/config/auto/jit.pm	659	769	
==>) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('skipped');
        return $sel <==
4	/Users/nnunley/parrot/config/gen/cpu.pm	571	681	
==>) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('skipped');
        return $sel <==
4	/Users/nnunley/parrot/tools/build/addopstags.pl	196	304	
==>ps/*.ops to tags file.

=cut


my %seen;
my @tags;

# Pull ops tags
while (<>) {
	if (/\bop \s+ (\w+) \s* \(/ <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	13636	13734	
==>s is not an appropriate object
reference.

If the element type does not start with a C<'*'>, the ac <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	4484	4579	
==>pected, $description)>

Compiles and runs the C code, passing the test if a string comparison of <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	4800	4895	
==>pected, $description)>

Compiles and runs the C code, passing the test if a string comparison of <==
4	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	4433	4588	
==>st    => '__list',
        script  => '__script',
        var     => '__read',
    );
    
    my $code = "";
    for my $i (0..$#args)
    {
        my $ar <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	14338	14439	
==>emented?";
			}
			push @work, [ "($op1->[0] $sym $op2->[0])", "RESULT", "\$$optype$retcount" ];
			$r <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	39670	39763	
==>t = "/para line 1\n\nline 3\n/para line 4";

	extract_tagged($text, '/para', '/endpara', undef <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	39984	40077	
==>t = "/para line 1\n\nline 3\n/para line 4";

	extract_tagged($text, '/para', '/endpara', undef <==
4	/Users/nnunley/parrot/config/init/defaults.pm	4119	4253	
==>_import => '',

        # Library build directory
        blib_dir      => 'blib/lib',

        # libparrot library names
        libpa <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5538	5638	
==>lf->output_label_def($passLabel);
    return @ops;
}

sub output_initgroup {
    my ($self, $group) = <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5231	5331	
==>lf->output_label_def($passLabel);
    return @ops;
}

sub output_initgroup {
    my ($self, $group) = <==
4	/Users/nnunley/parrot/config/gen/revision.pm	45	133	
==>$Id: /parrot/config/gen/revision.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAM <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	38913	39019	
==>_content
         and !ref($ell_content[0]) and !ref($ell_content[-1])
         and $ell_content[ 0] =~ m/^ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11403	11499	
==>ession::Value::Identifier->new($block, $token);
      my $op    = substr($self->forth->text, 0, - <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11950	12046	
==>ession::Value::Identifier->new($block, $token);
      my $op    = substr($self->forth->text, 0, - <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12493	12589	
==>ession::Value::Identifier->new($block, $token);
      my $op    = substr($self->forth->text, 0, - <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83898	84188	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84804	85094	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85710	86000	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
4	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	1984	2079	
==>= 0;
    GetOptions('plus-misses' => \$show_full)
	|| die ("Usage: $0 [--plus-misses] [files...] <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	16916	17023	
==>ODE';
NOT_TYPED_EH_START:

    # If this is the start of a finally handler...
    if eh_flags != 2 goto NOT_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483757	483857	
==>L, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({{\@2}} / den);\n  {{+=4}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484756	484856	
==>L, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({{\@2}} / den);\n  {{+=4}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485755	485855	
==>L, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({{\@2}} / den);\n  {{+=4}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477202	477503	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_cor <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478098	478399	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_cor <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478989	479290	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_cor <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479881	480182	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_cor <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044730	1044987	
==>lobal_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045624	1045881	
==>lobal_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046518	1046775	
==>lobal_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047413	1047670	
==>lobal_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	33536	33893	
==>"ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 42,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#lin <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1133	1221	
==>-I /opt/local/include   -g -Wall -Wstrict-prototypes -Wmissing-prototypes -Winline -Wpoin <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1191	1279	
==>-I /opt/local/include   -g -Wall -Wstrict-prototypes -Wmissing-prototypes -Winline -Wpoin <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1195	1283	
==>-I /opt/local/include   -g -Wall -Wstrict-prototypes -Wmissing-prototypes -Winline -Wpoin <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	1168	1287	
==>E>
        <LINK REL="stylesheet" TYPE="text/css" 
            HREF="$resources/perl.css" 
            TITLE="Default CS <==
4	/Users/nnunley/parrot/config/inter/libparrot.pm	825	930	
==>te($conf->data->get('parrot_is_shared'),
            $parrot_is_shared);

    $parrot_is_shared = 0 unl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168521	168613	
==>1}}->vtable->get_integer(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169463	169555	
==>1}}->vtable->get_integer(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+= <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	73347	73440	
==>> 2;
	$_[0]->{offsetlinenum} = $_[0]->{lastlinenum};
	$_[0]->{fulltext} = $text;
	$_[0]->{full <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544112	544211	
==>line 1056 \"src/ops/math.ops\"\n INTVAL gcd = 0;\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545448	545547	
==>line 1056 \"src/ops/math.ops\"\n INTVAL gcd = 0;\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546784	546883	
==>line 1056 \"src/ops/math.ops\"\n INTVAL gcd = 0;\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	1030	1127	
==>on to consider this TODO'

at the end of the argument list.  Valid reasons include C<bug>,
C<unimp <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2346	2456	
==>n::common{$var}) {
					push(@saves, $var);
				}
			}
			if (@saves) {
				$edit.=qq{\tfind_global _GLOBALS, " <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2755	2865	
==>n::common{$var}) {
					push(@saves, $var);
				}
			}
			if (@saves) {
				$edit.=qq{\tfind_global _GLOBALS, " <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35010	35111	
==>Parse::RecDescent::unexpected
				   = $Parse::RecDescent::lastunexpected;
			}
			last;
		}'.($::RD_N <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42120	42221	
==>Parse::RecDescent::unexpected
				   = $Parse::RecDescent::lastunexpected;
			}
			last;
		}'.($::RD_N <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080491	1080589	
==>ption(1, \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081556	1081654	
==>ption(1, \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082621	1082719	
==>ption(1, \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083687	1083785	
==>ption(1, \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interprete <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	5269	5400	
==>ext;
            }

            ($percent, $total_calls) = /\s*([^%]+)% of (\d+) calls executed in file/;
            if ($total_cal <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43598	43730	
==>'@10-4' => 204
		}
	},
	{#State 194
		DEFAULT => -14
	},
	{#State 195
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2547	2662	
==>lpthread -lm';
        $extraLibs =~ s/blib/..\\blib/g;
        $extraLibs =~ s/\Q$(A)\E/.lib/g;
        $liblist .= <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2856	2971	
==>lpthread -lm';
        $extraLibs =~ s/blib/..\\blib/g;
        $extraLibs =~ s/\Q$(A)\E/.lib/g;
        $liblist .= <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2651	2766	
==>lpthread -lm';
        $extraLibs =~ s/blib/..\\blib/g;
        $extraLibs =~ s/\Q$(A)\E/.lib/g;
        $liblist .= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634841	635108	
==>ng(interpreter, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635959	636226	
==>ng(interpreter, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637077	637344	
==>ng(interpreter, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638196	638463	
==>ng(interpreter, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848300	848574	
==>, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849080	849354	
==>, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853409	853683	
==>, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854191	854465	
==>, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059541	1059804	
==>JUMP_ENEXT",
                  "NAME" => "find_name",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060445	1060708	
==>JUMP_ENEXT",
                  "NAME" => "find_name",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functi <==
4	/Users/nnunley/parrot/config/inter/libparrot.pm	1125	1247	
==>rrot be built using a shared library?",
                $parrot_is_shared ? 'y' : 'n');

        $parrot_is_shared = lc( <==
4	/Users/nnunley/parrot/lib/File/Which.pm	1441	1560	
==>ays MPW-Perl cannot resolve `Alias $alias`,
            # let's just hope it's fixed
            if (lc($alias) eq lc($e <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3955	4060	
==>le's name. If it fails for both it returns 'Undefined'.

=cut

sub type
{
	my $self = shift;
	my $type = $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540491	540591	
==>\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541743	541843	
==>\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542995	543095	
==>\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766564	766669	
==>M_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767417	767522	
==>M_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768270	768375	
==>M_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769124	769229	
==>M_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3 <==
4	/Users/nnunley/parrot/config/auto/format.pm	332	426	
==>);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step;

$description = ' <==
4	/Users/nnunley/parrot/config/init/hints.pm	372	466	
==>);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step;

$description = ' <==
4	/Users/nnunley/parrot/config/init/miniparrot.pm	617	711	
==>);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step;

$description = ' <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10644	10735	
==>azy_moves

# Put it in the parameter register list.
PRE_CALL_${CURIC}_CONT:
${PARAMS}[${ITEM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926123	926245	
==>= PTR2UINTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927593	927715	
==>= PTR2UINTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929063	929185	
==>= PTR2UINTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930534	930656	
==>= PTR2UINTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770001	770117	
==>IC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770854	770970	
==>IC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771707	771823	
==>IC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772561	772677	
==>IC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65367	65607	
==>,
                  "CODE" => 85,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 981 \"src/ops/core.ops\"\n  Interp * cons <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256392	256510	
==>{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257300	257418	
==>{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258208	258326	
==>{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	8825	8932	
==>$self->content_seen) {
    DEBUG and print "No content seen in search for title.\n";
    return;
  }
  $self <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	60	163	
==>2';
use Pod::Simple ();
BEGIN {@ISA = ('Pod::Simple')}

use strict;

use Carp ();

BEGIN { *DEBUG = \&Po <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	59	162	
==>2';
use Pod::Simple ();
BEGIN {@ISA = ('Pod::Simple')}

use strict;

use Carp ();

BEGIN { *DEBUG = \&Po <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	626	726	
==>eturn if start of input is b, advance 1 char
# O (classmatch, charclass) : return if start of input i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	933528	933802	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934302	934576	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327053	327137	
==>ne 154 \"src/ops/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327855	327939	
==>ne 154 \"src/ops/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1290	1388	
==>self->{builder}->diag("'$cmd' failed with exit code $exit_code")
        if $exit_code and not $pas <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1331	1429	
==>self->{builder}->diag("'$cmd' failed with exit code $exit_code")
        if $exit_code and not $pas <==
4	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2454	2550	
==>self->{builder}->diag("'$cmd' failed with exit code $exit_code")
      if $exit_code and not $pas <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	1703	1797	
==>self->{builder}->diag("'$cmd' failed with exit code $exit_code")
    if $exit_code and not $pas <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54643	54763	
==>TMK)/gco
				and do { ($code) = extract_codeblock($grammar,'{',undef,'<');
					 $code;
				       } )
			{
				_parse("a <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	55119	55239	
==>TMK)/gco
				and do { ($code) = extract_codeblock($grammar,'{',undef,'<');
					 $code;
				       } )
			{
				_parse("a <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	55719	55839	
==>TMK)/gco
				and do { ($code) = extract_codeblock($grammar,'{',undef,'<');
					 $code;
				       } )
			{
				_parse("a <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	52184	52292	
==>TMK)/gco
				and do { ($code) = extract_codeblock($grammar,'{',undef,'<');
					  $code })
			{
				_parse("a <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2560	2720	
==>$file, $generator) = @fc;
            my $h;
            ($h = $file) =~ s/\.\w+$/.h/;
            $h =~ s/(\w+)\.h$/pmc_$1.h/;
            my $c;
            ($ <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5889	6008	
==>ned($$token)
            or	do {
				($$token,$$value)=&$lex($self);
#DBG>				$debug & 0x01
#DBG>			and	print STDERR <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5608	5723	
==>ned($$token)
            or	do {
				($$token,$$value)=&$lex($self);
#DBG>				$debug & 0x01
#DBG>			and	print STDERR <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3858	3959	
==>sub twice(a)
	print a
	a=a*2
end sub
t=2
call twice t
print t

' Passing arrays, twice, expect 12
func <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579240	579332	
==>BODY" => "#line 289 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580545	580637	
==>BODY" => "#line 289 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581850	581942	
==>BODY" => "#line 289 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583156	583248	
==>BODY" => "#line 289 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, { <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	37601	37694	
==>ring_ge_p,
  'string-ci=?'   => \&_op_string_ci_eq_p,
  'string-ci<?'   => \&_op_string_ci_lt_ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	329	420	
==>:Construct::Declaration::Variable;

use Carp;

use base qw(Jako::Construct::Declaration);

u <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710705	710796	
==>IO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_printf(inter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711539	711630	
==>IO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_printf(inter <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	7196	7301	
==>ted?, Bool $negate?) returns Bool {
    if ($todo) {
        Test::diag("  Failed ($todo) test ($?CALLER:: <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	877	981	
==>the C C<#define> macros required by the ops.

=cut

sub defines
{
    return <<END;
#define REL_PC ((size <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	833	937	
==>the C C<#define> macros required by the ops.

=cut

sub defines
{
    return <<END;
#define REL_PC ((size <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1007	1111	
==>the C C<#define> macros required by the ops.

=cut

sub defines
{
    return <<END;
#define REL_PC ((size <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38501	38784	
==>ESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39365	39648	
==>ESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40212	40495	
==>ESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41059	41342	
==>ESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11647	11831	
==>esult = $result2;
                    }
                    push @opcodes, @{ $last_key->[1] };
                    my $assign = new KeyedSetOp( $parser,
                        'ar <==
4	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	1744	1921	
==>of intra-comment blank line elimination; pod
handling;

=back

=cut

################################################################################

use Regexp::Common qw/comme <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9859	10027	
==>esult = $result2;
                }
                push @opcodes, @{ $last_key->[1] };
                my $assign = new KeyedSetOp( $parser,
                    'ar <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8738	8874	
==>esult = $result2;
        }
        push @opcodes, @{ $last_key->[1] };
        my $assign = new KeyedSetOp( $parser,
            'ar <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73395	73686	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74997	75288	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76599	76890	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606932	607112	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607835	608015	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608739	608919	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609646	609826	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51780	51881	
==>r,   {{\@1}}); }\n  else         { Parrot_clear_trace(interpreter, PARROT_ALL_TRACE_FLAGS); }\n  {{=0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52563	52664	
==>r,   {{\@1}}); }\n  else         { Parrot_clear_trace(interpreter, PARROT_ALL_TRACE_FLAGS); }\n  {{=0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828533	828622	
==>9 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CON <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829601	829690	
==>9 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CON <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3362	3455	
==>o register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5124	5217	
==>o register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8036	8129	
==>o register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8893	8986	
==>o register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP <==
4	/Users/nnunley/parrot/config/init/defaults.pm	2427	2535	
==>nfig{ccdlflags},    # e.g. -Wl,-E on HP-UX

        # ld: Tool used to build shared libraries and dynamically <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21381	21486	
==>temp);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$label");
  return <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21766	21871	
==>temp);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$label");
  return <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22151	22256	
==>temp);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$label");
  return <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	3669	3763	
==>type => $self->type->name, name => $self->name } });
  $handler->end_element({ Name => 'var' }) <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7446	7598	
==>match
            .local pmc code
            .local pmc exp
            target = unicode:"$target"
            pattern = "$pattern"
            (rulesub <==
4	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	403	513	
==>code, $output, $desc) = @_;
  
    my $count = $self->{builder}->current_test + 1;

    my $lang_f    = Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	441	551	
==>code, $output, $desc) = @_;
  
    my $count = $self->{builder}->current_test + 1;

    my $lang_f    = Parrot: <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	31490	31586	
==>d_global \$P2, "READDATA"
DATAPREP
	my $counter=0;
	foreach my $ld (@data) {
		my $line=$ld->{lin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634790	634913	
==>[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new_from_string(interpreter, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635908	636031	
==>[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new_from_string(interpreter, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637026	637149	
==>[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new_from_string(interpreter, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638145	638268	
==>[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new_from_string(interpreter, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	8204	8321	
==>ir) not provided in rule " .
            "$rule->{'name'}\n";
    }

	# typeinfo must be supplied with op, load and ca <==
4	/Users/nnunley/parrot/config/inter/pmc.pm	3863	3967	
==>eaders src/pmc/pmc_$pmc.h

    # build list of libraries for link line in Makefile
    my $slash = $conf- <==
4	/Users/nnunley/parrot/config/auto/aio.pm	646	746	
==>conf->data->add(' ', libs => '-lrt');

    cc_gen('config/auto/aio/aio.in');
    eval { cc_build(); } <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	36237	36335	
==>t text bit \"$ell_content[$j]\" for a '|'.\n";

        if($ell_content[$j] =~ m/^([^\|]*)\|(.*)$/s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188869	189161	
==>CMP) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	195534	195826	
==>CMP) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196482	196774	
==>CMP) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12372	12482	
==>};
	return 0;
}

sub leftmostsubrule($)
{
	my $self = shift;

	if ( $#{$self->{"items"}} >= 0 )
	{
		my $subrul <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010764	1011055	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011528	1011819	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012293	1012584	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	16364	16502	
==>try
#          back: pop $counter
#                goto R[].back
#          next:
#
# The code below does not assume the alternatives are c <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15453	15559	
==>$whole.=join(' ', map { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair unary -, functions, etc...
		@str <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15815	15921	
==>$whole.=join(' ', map { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair unary -, functions, etc...
		@str <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16342	16448	
==>$whole.=join(' ', map { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair unary -, functions, etc...
		@str <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16966	17072	
==>$whole.=join(' ', map { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair unary -, functions, etc...
		@str <==
4	/Users/nnunley/parrot/languages/dotnet/Configure.pl	4652	4771	
==>e {
        # Just say that we weren't configured with mono path, so no can do.
        return "\techo Oops, I was not <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	5293	5400	
==>$ret};

    if (($seen{"$ret$args"} ||= $.) != $.) {
      warn sprintf "Ignored signature '%s' on line %d ( <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	1644	1741	
==>paragraphs.  We call _ponder_paragraph_buffer
   # to process this.
  
  $self->{'pod_para_count'} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867151	867247	
==>DY" => "#line 232 \"src/ops/string.ops\"\n  INTVAL len;\n  len = string_length(interpreter, {{\@2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868117	868213	
==>DY" => "#line 232 \"src/ops/string.ops\"\n  INTVAL len;\n  len = string_length(interpreter, {{\@2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869083	869179	
==>DY" => "#line 232 \"src/ops/string.ops\"\n  INTVAL len;\n  len = string_length(interpreter, {{\@2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870050	870146	
==>DY" => "#line 232 \"src/ops/string.ops\"\n  INTVAL len;\n  len = string_length(interpreter, {{\@2 <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	32218	32334	
==>.  It
doesn't actually exit, that's your job.

=cut

sub _my_exit {
    $? = $_[0];

    return 1;
}


=back

=end _p <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496925	497017	
==>Y" => "#line 595 \"src/ops/math.ops\"\n  {{\@1}} = floatval_mod({{\@2}}, {{\@3}});\n  {{+=4}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497795	497887	
==>Y" => "#line 595 \"src/ops/math.ops\"\n  {{\@1}} = floatval_mod({{\@2}}, {{\@3}});\n  {{+=4}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498665	498757	
==>Y" => "#line 595 \"src/ops/math.ops\"\n  {{\@1}} = floatval_mod({{\@2}}, {{\@3}});\n  {{+=4}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654840	655165	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656558	656883	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657482	657807	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658400	658725	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIR <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4327	4434	
==>ied name exists in the directory.

=cut

sub file_exists_with_name
{
    my $self = shift;
    my $name = sh <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16285	16387	
==>ock, $token);

      $self->require_assign;

      my $left  = Jako::Construct::Expression::Value->new( <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17056	17158	
==>ock, $token);

      $self->require_assign;

      my $left  = Jako::Construct::Expression::Value->new( <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17861	17963	
==>ock, $token);

      $self->require_assign;

      my $left  = Jako::Construct::Expression::Value->new( <==
4	/Users/nnunley/parrot/config/auto/jit.pm	1480	1613	
==>puarch = 'ppc';
        }
    } elsif ($cpuarch =~ /MSWin32/) {
        $cpuarch = 'i386';
        $osname  = 'MSWin32';
    } elsif ( <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	28784	28907	
==>d $treelet->[$i][2] eq '')
      ) {
        $self->whine( $start_line, "A non-empty Z<>" );
      }      # but kill it anyw <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	11654	11769	
==>cmt
EOC
	$p = $pmc;
    }
    else {
	$p = promote($tos);
	if ($cur_func eq 'test::main') {
	    $main_names{$c} = $ <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	23699	23801	
==>yms[CURR]};
				} elsif (exists $usertypes{$syms[CURR]}) {
					$type="USER";
					$ut=qq{\tP2["usertyp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412862	413001	
==>i"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413989	414128	
==>i"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415116	415255	
==>i"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416244	416383	
==>i"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303379	303771	
==>S" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 353,
                  "ARGS" => [
                              "i",
                              "s",
                              "s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18777	18976	
==>S" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 314 \"src/ops/core.ops\"\n  if ({{\@1}}->vtable->get_boo <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	2659	2776	
==>eturn "ne $a, $b, $where";
    } elsif ($cond eq '<') {
        return "lt $a, $b, $where";
    } elsif ($cond eq '<=' <==
4	/Users/nnunley/parrot/tools/build/ops2c.pl	766	857	
==>subclass of C<Parrot::OpTrans>. These subclasses all have full names of
the form C<Parrot::O <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084694	1084784	
==>"BODY" => "#line 163 \"src/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085747	1085837	
==>"BODY" => "#line 163 \"src/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086800	1086890	
==>"BODY" => "#line 163 \"src/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087854	1087944	
==>"BODY" => "#line 163 \"src/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interpreter, <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	30972	31084	
==>]);

    my @declarations;
    while (my ($var, $type) = each %{ $self->{_temps} }) {
        push @declarations, <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	23974	24077	
==>lf->{flags}{hll} && $self->{flags}{maps}) {

      my $hll  = (keys %{$self->{flags}{hll}})[0];
      my <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7778	7874	
==>int "Oops (string)"
s$=""
if s$ then print "Should not happen (string)"
i%=0
if i% then print "Sh <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14765	14861	
==>int "Oops (string)"
s$=""
if s$ then print "Should not happen (string)"
i%=0
if i% then print "Sh <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773420	773511	
==>\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774330	774421	
==>\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775240	775331	
==>\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776151	776242	
==>\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    { <==
4	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	12797	12924	
==>s="indent2">Parrot&nbsp;<tmpl_var name=VERSION></td>
            <td>
              <tmpl_if name=revision>
                r<tm <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	5351	5451	
==>command '$mode'\nmust be one of generate, compile, linklibs, or copy\n";
}

sub run {
    print join( <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4552	4652	
==>command '$mode'\nmust be one of generate, compile, linklibs, or copy\n";
}

sub run {
    print join( <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	5562	5662	
==>command '$mode'\nmust be one of generate, compile, linklibs, or copy\n";
}

sub run {
    print join( <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	1158	1267	
==>EWS'),
            $self->new_item('A plan for Parrot.', 'docs/ROADMAP.pod'),
            $self->new_item('Whe <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	1384	1482	
==>($pycmd, STDOUT => $py_out_f);
    my $py_file = Parrot::Test::slurp_file($py_out_f);
    my $pirat <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712471	712558	
==>t_sprintf_c(interpreter, \"%.12g\", (double){{\@1}});\n  PIO_putps(interpreter, io, s);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713578	713665	
==>t_sprintf_c(interpreter, \"%.12g\", (double){{\@1}});\n  PIO_putps(interpreter, io, s);\ <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1530	1638	
==>in32.
our $PATHQUOTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as they may contain spaces.
    $ <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1575	1683	
==>in32.
our $PATHQUOTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as they may contain spaces.
    $ <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1579	1687	
==>in32.
our $PATHQUOTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as they may contain spaces.
    $ <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	49151	49246	
==>all E<shy>s?
option to scream if under-0x20 literals are found in the input, or
under-E<32> E co <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1072	1168	
==>en on a L<Pod::Simple::PullParser> object, you might
get an object of this class.

This is a subc <==
4	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5936	6027	
==>AUTHOR

Joshua Hoblitt C<jhoblitt@cpan.org>

=head1 SEE ALSO

F<docs/configuration.pod>, L<P <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6785	6876	
==>AUTHOR

Joshua Hoblitt C<jhoblitt@cpan.org>

=head1 SEE ALSO

F<docs/configuration.pod>, L<P <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	2072	2163	
==>AUTHOR

Joshua Hoblitt C<jhoblitt@cpan.org>

=head1 SEE ALSO

F<docs/configuration.pod>, L<P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072790	1072909	
==>@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074975	1075094	
==>@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077160	1077279	
==>@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079346	1079465	
==>@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588526	588822	
==>object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 669,
                  "ARGS" => <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11045	11132	
==>ll_HAS_RETURN_${CURIC}
if "${CURIC}" == "73" goto pre_call_HAS_RETURN_${CURIC}
goto pre_ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8231	8318	
==>ll_HAS_RETURN_${CURIC}
if "${CURIC}" == "73" goto pre_call_HAS_RETURN_${CURIC}
goto pre_ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5893	5980	
==>ll_HAS_RETURN_${CURIC}
if "${CURIC}" == "73" goto pre_call_HAS_RETURN_${CURIC}
goto pre_ <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	3668	3769	
==>') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	4029	4130	
==>') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	3772	3873	
==>') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	4133	4234	
==>') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	2013	2099	
==>format-nonliteral -Wformat-security -Wpacked -Wdisabled-optimization -falign-functions= <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1333	1419	
==>format-nonliteral -Wformat-security -Wpacked -Wdisabled-optimization -falign-functions= <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1378	1464	
==>format-nonliteral -Wformat-security -Wpacked -Wdisabled-optimization -falign-functions= <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1382	1468	
==>format-nonliteral -Wformat-security -Wpacked -Wdisabled-optimization -falign-functions= <==
4	/Users/nnunley/parrot/lib/Parrot/Configure.pm	252	359	
==>:Configure;

    my $conf = Parrot::Configure->new;
    my $data = $conf->data;
    my $options = $conf->opt <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	42996	43115	
==>or(my $i = $#$p; $i > 2; $i--) {
    # work backwards over the lines, except the first (#2)
    
    #next unless $p->[$ <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	35692	35791	
==>ing failed it will exit with how many failed.  If
you run less (or more) tests than you planned, the <==
4	/Users/nnunley/parrot/lib/Test/More.pm	33763	33862	
==>ing failed it will exit with how many failed.  If
you run less (or more) tests than you planned, the <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	2559	2658	
==>ing failed it will exit with how many failed.  If
you run less (or more) tests than you planned, the <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72565	72670	
==>s\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  funcptr_t p = D2FPTR(Parrot_dls <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74167	74272	
==>s\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  funcptr_t p = D2FPTR(Parrot_dls <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75769	75874	
==>s\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  funcptr_t p = D2FPTR(Parrot_dls <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77372	77477	
==>s\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  funcptr_t p = D2FPTR(Parrot_dls <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072731	1072848	
==>+ y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074916	1075033	
==>+ y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077101	1077218	
==>+ y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079287	1079404	
==>+ y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	683	795	
==>:Value::Identifier');

  my $name = $ident->value;

  my $self = bless {
    BLOCK => $block,

    NAME  => $name <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	22566	22673	
==>, $dump, $gen_c, $tree, @include);
    # initialization to prevent warnings
    %opt = map { $_ => 0 } qw(no <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	290	385	
==>o::Parser;

use Carp;

use base qw(Jako::Processor);

use Jako::Construct::Block;
use Jako::Cons <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	1951	2041	
==>s -Waggregate-return -Winline -W -Wno-unused -Wsign-compare -Wformat-nonliteral -Wformat-se <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1271	1361	
==>s -Waggregate-return -Winline -W -Wno-unused -Wsign-compare -Wformat-nonliteral -Wformat-se <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1316	1406	
==>s -Waggregate-return -Winline -W -Wno-unused -Wsign-compare -Wformat-nonliteral -Wformat-se <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1320	1410	
==>s -Waggregate-return -Winline -W -Wno-unused -Wsign-compare -Wformat-nonliteral -Wformat-se <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	44387	44503	
==>this line
      $i--; # don't consider next line
      next;
    }

    if( length($formatting) >= length($p->[$i-1]) <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	6853	6961	
==>f (needs_build("$pmc.c", "$pmc.pmc")) {
        run("$PMC2C --c $pmc.pmc")
          or die "pmc2c code gener <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	7064	7172	
==>f (needs_build("$pmc.c", "$pmc.pmc")) {
        run("$PMC2C --c $pmc.pmc")
          or die "pmc2c code gener <==
4	/Users/nnunley/parrot/tools/build/pbc2c.pl	6599	6700	
==>s) {
	printf "case %d: PC_%d: {\n", $cur_blk->[0], $cur_blk->[0];

	foreach $pc (@{$cur_blk}) {
	    $ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1726	1831	
==>R
}

# Post translation hook.
sub post_translation() {
	# Nothing to do.
	return "";
}

# Extra subroutine <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	766	871	
==>R
}

# Post translation hook.
sub post_translation() {
	# Nothing to do.
	return "";
}

# Extra subroutine <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	523	628	
==>R
}

# Post translation hook.
sub post_translation() {
	# Nothing to do.
	return "";
}

# Extra subroutine <==
4	/Users/nnunley/parrot/languages/scheme/Scheme.pm	46	144	
==>3 2005-11-29T22:06:21.880912Z bernhard  $

package Scheme;

use strict;

use Data::Dumper;

use Sch <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	394400	394727	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "tell",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "i"
                               ],
                  "T <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17097	17248	
==>->[1] };
                $result = new_tmp( $parser, 'pmc' );
                push @opcodes, new LocalDir( $parser,
                    'result' => $ <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15499	15614	
==>->[1] };
    $result = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $ <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19252	19367	
==>->[1] };
    $result = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067125	1067240	
==>or( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068311	1068426	
==>or( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069497	1069612	
==>or( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070684	1070799	
==>or( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1098968	1099119	
==>"
                            ],
                  "BODY" => "#line 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100166	1100317	
==>"
                            ],
                  "BODY" => "#line 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101364	1101515	
==>"
                            ],
                  "BODY" => "#line 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102563	1102714	
==>"
                            ],
                  "BODY" => "#line 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849952	850274	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850839	851161	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851726	852048	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	446914	447107	
==>,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 165 \"src/ops/math.ops\"\n  {{\@1}} = fabs( {{\@1}} );\n  {{+= <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	3827	3942	
==>my $n = @args;
		$arg_count{$f} = $n;
		for (my $i = 0; $i < $n; $i++) {
		    my ($a, $def) = split(/=/, $args[$i]) <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	4326	4441	
==>my $n = @args;
		$arg_count{$f} = $n;
		for (my $i = 0; $i < $n; $i++) {
		    my ($a, $def) = split(/=/, $args[$i]) <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	1372	1472	
==>ction.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new(
		'Configuration', 'config.ht <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	2256	2343	
==>d::Simple::PullParserTextToken';
  $self->{'end_token_class'}   ||= 'Pod::Simple::PullPa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544596	544854	
==>n saved_var1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545932	546190	
==>n saved_var1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547268	547526	
==>n saved_var1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1868	1965	
==>n::RealBin$PConfig{slash}$file");
    if ($ret) {
	print STDERR "TEST FAILED: $file ($ret)\n";
	re <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	1969	2229	
==>r(@rules) . " out of 213 instructions.\n";


##############################################################################
# Subroutines.
##############################################################################

# Parse rules file and build a data struct <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32297	32404	
==>thod, 0);
    # I think that these will be out by one - NWC
    my $l = $self->line_directive($line, "ref.c" <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40919	41026	
==>thod, 0);
    # I think that these will be out by one - NWC
    my $l = $self->line_directive($line, "ref.c" <==
4	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3469	3564	
==>e of
portability issues.

Make your strings and arrays of strings (or similar inlined data)
C<co <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32005	32121	
==>: 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $parameters = ", $para <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33582	33698	
==>: 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $parameters = ", $para <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40639	40755	
==>: 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $parameters = ", $para <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	3470	3564	
==>rwise you probably want C<new>.

B<NOTE>: the implementation is not complete.  C<level>, for ex <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044708	1044821	
==>\"\n    Parrot_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045602	1045715	
==>\"\n    Parrot_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046496	1046609	
==>\"\n    Parrot_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047391	1047504	
==>\"\n    Parrot_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549419	549560	
==>SS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550719	550860	
==>SS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552020	552161	
==>SS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24492	24596	
==>urrently ignored\n";
			goto &parse_dim;
		} else  {
			die "Unknown dim type: $syms[CURR] at source line <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	5159	5302	
==>i_sfio' => undef,
             'i_sgtty' => undef,
             'i_shadow' => undef,
             'i_signal' => 'define',
             'i_socks' <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	480	581	
==>$left, $op, $right) = @_;

  confess "Block is not defined!" unless defined $block;
  confess "Left is <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	492	593	
==>$left, $op, $right) = @_;

  confess "Block is not defined!" unless defined $block;
  confess "Left is <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11525	11623	
==>print "Stopped at source line "
	print I11
	print "\\n"
	_platform_shutdown()
	end
STOP
}
sub parse <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36573	36720	
==>,
	{#State 141
		ACTIONS => {
			"-" => 72,
			"%" => 76,
			"*" => 80,
			".." => 71,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DE <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	1343	1448	
==><<"EOC";
/*
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically from ' <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1394	1497	
==>e code as input.
  #

  $self->INTERNAL_ERROR("Undefined block!")
    unless defined $block;

  $self->I <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1242	1345	
==>e code as input.
  #

  $self->INTERNAL_ERROR("Undefined block!")
    unless defined $block;

  $self->I <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	18382	18496	
==>ent = join ' ', splice @$para, 2;
      $content =~ s/^\s+//s;
      $content =~ s/\s+$//s;
      unless(length($co <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3368	3472	
==>val1, $val2, $dest);
}

sub output_gt {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_test( <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3063	3167	
==>val1, $val2, $dest);
}

sub output_gt {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_test( <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6844	6928	
==>O

F<docs/configuration.pod>, L<Parrot::Configure>, L<Parrot::Configure::Step>,
L<Par <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16716	16916	
==>ush @opcodes, new FindLexOp( $parser,
                    'result' => $result,
                    'arg1'   => $defn,
                );
            }
            else {
                my $globa <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4509	4617	
==>rated code.
	return $pir;
}

sub post_op($$) {
	# Nothing to do.
	return "";
}

# Pre and post branch operati <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2925	3033	
==>rated code.
	return $pir;
}

sub post_op($$) {
	# Nothing to do.
	return "";
}

# Pre and post branch operati <==
4	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	5481	5577	
==>omment}{C})/;
      ($first_comment) = $text =~ /(($RE{comment}{'C++'}\s*)+)/
	  if !$first_comme <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253184	253393	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254046	254255	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254909	255118	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1197	1293	
==>->new(@_);
}

=item C<file_with_path($path)>

Returns the file with the specified path. 

The fil <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	538	624	
==>ss UNIVERSAL::isa($dest, 'Jako::Construct::Expression::Value::Identifier');
  confess(" <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	664	750	
==>ss UNIVERSAL::isa($dest, 'Jako::Construct::Expression::Value::Identifier');
  confess(" <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	655	741	
==>ss UNIVERSAL::isa($dest, 'Jako::Construct::Expression::Value::Identifier');
  confess(" <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	544	630	
==>ss UNIVERSAL::isa($dest, 'Jako::Construct::Expression::Value::Identifier');
  confess(" <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6802	6942	
==>{
#DBG>					print STDERR "**End of Error recovery.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push(@$stack,[ $act <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6486	6619	
==>{
#DBG>					print STDERR "**End of Error recovery.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push(@$stack,[ $act <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	368	468	
==>e base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $left, $right) = <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	359	459	
==>e base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $left, $right) = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854902	855058	
==>"
                            ],
                  "BODY" => "#line 105 \"src/ops/string.ops\"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855791	855947	
==>"
                            ],
                  "BODY" => "#line 105 \"src/ops/string.ops\"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856680	856836	
==>"
                            ],
                  "BODY" => "#line 105 \"src/ops/string.ops\"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857570	857726	
==>"
                            ],
                  "BODY" => "#line 105 \"src/ops/string.ops\"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	1959	2057	
==>m-text'   => "</a></dt><p$Lame></p>\n",
  'Para_item'    => "\n<dd>",
  '/Para_item'   => "</dd><p$ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2805	2901	
==>operation (op class instructions) hooks.
sub pre_op($$) {
	my $self = shift;
	my ($pops, $pushes) <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1727	1823	
==>operation (op class instructions) hooks.
sub pre_op($$) {
	my $self = shift;
	my ($pops, $pushes) <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	916	1012	
==>operation (op class instructions) hooks.
sub pre_op($$) {
	my $self = shift;
	my ($pops, $pushes) <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9328	9458	
==>ED[\$dbg_tmp] INT: \%<$reg>$desc\n"),
                );
    } else {
        return ("$reg = pop \@<rx_stack>; # popint");
    }
} <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24162	24275	
==>trol) {
      my $block = $self->current_block();
      my $kind = $token->text;

      my $target_token = $self-> <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1280	1377	
==>ess $compiler;

  my $sym = $block->find_symbol($ident_name);

  confess "No such symbol '$ident_n <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	7431	7517	
==>ormal_op
#define Parrot_jit_vtable_1121_op Parrot_jit_normal_op
#define Parrot_jit_vtab <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858556	858660	
==>if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859560	859664	
==>if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860564	860668	
==>if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861569	861673	
==>if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572292	572550	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573201	573459	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574111	574369	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574914	575172	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072098	1072225	
==>p1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074283	1074410	
==>p1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076468	1076595	
==>p1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078654	1078781	
==>p1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) <==
4	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	625	779	
==>y $defn = $self->{table}{$symb};
##        warn "\tfound 1 in $self\n";
            return $defn;
        }
        else {
            my $parser = $s <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	2912	3026	
==>=cut

sub write_html
{
    my $self = shift;
    my $source = shift || die "No source\n";
    my $target = shift || <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	2360	2474	
==>=cut

sub write_html
{
    my $self = shift;
    my $source = shift || die "No source\n";
    my $target = shift || <==
4	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	469	577	
==>3.0,  # MiB limit
  BASEDIR     => "/tmp/parrot_smokes/",
  BASEHTTPDIR => "/",
  BUCKET      => "bucket.dat" <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27541	27645	
==>>describe ) . '};
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self->{"lookahe <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29651	29755	
==>>describe ) . '};
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self->{"lookahe <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31748	31852	
==>>describe ) . '};
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self->{"lookahe <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	3220	3318	
==>l);
    $index->append(Parrot::Docs::HTMLPage->footer('', '../resources'));
    
    return $self-> <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72734	72842	
==>\n  string_cstring_free(name);\n  if (p == NULLfunc) {\n      const char * err = Parrot_dlerror();\n      Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74336	74444	
==>\n  string_cstring_free(name);\n  if (p == NULLfunc) {\n      const char * err = Parrot_dlerror();\n      Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75938	76046	
==>\n  string_cstring_free(name);\n  if (p == NULLfunc) {\n      const char * err = Parrot_dlerror();\n      Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77541	77649	
==>\n  string_cstring_free(name);\n  if (p == NULLfunc) {\n      const char * err = Parrot_dlerror();\n      Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018080	1018317	
==>\n  {{\@1}} = string_from_cstring(interpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019005	1019242	
==>\n  {{\@1}} = string_from_cstring(interpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019935	1020172	
==>\n  {{\@1}} = string_from_cstring(interpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020866	1021103	
==>\n  {{\@1}} = string_from_cstring(interpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/tools/dev/cc_flags.pl	1980	2138	
==>->[2];
        }
        elsif ($option->[1] eq '-') {
            @ARGV = grep { $_ ne $option->[2] } @ARGV;
        }
        else {
            foreach my $ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	56959	57066	
==>$AUTOERRORMK/gco)
			{
				$commitonly = $1;
				_parse("an error marker", $aftererror,$line);
				$item = n <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1965	2060	
==>l_args[$i]};
    my $actual_arg_type;

    if (UNIVERSAL::isa($args[$i], 'Jako::Construct::Expre <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1665	1760	
==>l_args[$i]};
    my $actual_arg_type;

    if (UNIVERSAL::isa($args[$i], 'Jako::Construct::Expre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288336	288609	
==>"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289192	289465	
==>"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290048	290321	
==>"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
4	/Users/nnunley/parrot/config/auto/gdbm.pm	2138	2246	
==>bose;
        $self->set_result('no');
    }
    $conf->data->set(has_gdbm => $has_gdbm); # for gdbmhash.t an <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	18050	18157	
==>t($include, $name, \%all);
        gen_super_meths($class, $vt, \%all);

        my $Dumper = Data::Dumper-> <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3827	3923	
==>$dest_ident->kind eq 'var') and ($dest_ident->scope eq 'global')) {
    my $pmc_type = $dest_iden <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4735	4831	
==>$dest_ident->kind eq 'var') and ($dest_ident->scope eq 'global')) {
    my $pmc_type = $dest_iden <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2798	2894	
==>$dest_ident->kind eq 'var') and ($dest_ident->scope eq 'global')) {
    my $pmc_type = $dest_iden <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596215	596470	
==>bclass(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597108	597363	
==>bclass(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2687	2787	
==>kind => $cond } });
    $handler->start_element({ Name => 'block', Attributes => { kind => 'test' } } <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3451	3551	
==>kind => $cond } });
    $handler->start_element({ Name => 'block', Attributes => { kind => 'test' } } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404630	404718	
==>ps/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405542	405630	
==>ps/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406454	406542	
==>ps/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407367	407455	
==>ps/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}}) <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9894	9996	
==>d put them into ${PARAMS}. Note that they come
# off the stack last to first, but need to be first to l <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7408	7510	
==>d put them into ${PARAMS}. Note that they come
# off the stack last to first, but need to be first to l <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6372	6474	
==>d put them into ${PARAMS}. Note that they come
# off the stack last to first, but need to be first to l <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	48727	48827	
==>use Data::Dumper; print Dumper($parser), "\n";
  }

  return @out;
}



#---------------------------- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107172	107461	
==>} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108026	108315	
==>} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108880	109169	
==>} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	4319	4459	
==>omment = (
            "DO NOT EDIT THIS FILE",
            "Generated by " . __PACKAGE__ . " from $source"
        );

        if ($options{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960360	960702	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961321	961663	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962283	962625	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963245	963587	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	1029	1131	
==>ests()   and convert_tests() if $opt_u;
    convert_tests() if $opt_c;
    return run_tests(grep {-f $_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714749	714840	
==>putps(interpreter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(interpreter, io, 1);\n  } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715672	715763	
==>putps(interpreter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(interpreter, io, 1);\n  } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716617	716708	
==>putps(interpreter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(interpreter, io, 1);\n  } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13059	13148	
==>rpreter->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  l <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13903	13992	
==>rpreter->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  l <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11033	11119	
==>rpreter->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11822	11908	
==>rpreter->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	1058	1181	
==>me('config/' . $group);
        my @files = $dir->files_with_suffix('pm', 1);    
        push @groups,
            $self->n <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11142	11230	
==>ETURN_${CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1}["reg_ty <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8328	8416	
==>ETURN_${CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1}["reg_ty <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5990	6078	
==>ETURN_${CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1}["reg_ty <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22134	22273	
==>22
		}
	},
	{#State 71
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39, <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	599	693	
==>);
  confess("Dest (" . ref($dest) . ") is not Identifier!") unless UNIVERSAL::isa($dest, 'Jako <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	590	684	
==>);
  confess("Dest (" . ref($dest) . ") is not Identifier!") unless UNIVERSAL::isa($dest, 'Jako <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	479	573	
==>);
  confess("Dest (" . ref($dest) . ") is not Identifier!") unless UNIVERSAL::isa($dest, 'Jako <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20905	21043	
==>s);
}

# ( [ [aaaaa|aaaaaaa]<2,3> ]<1,2> )
# 30,42,20,28,15,21,10,14

# R* ->         push 0
#         loop: R or next
#               push <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7255	7353	
==>ting for \"$_\"\n(should be \"#$indent$2\" because it is inside of " . (join ' > ', @stack) . ")\n" <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7562	7660	
==>ting for \"$_\"\n(should be \"#$indent$2\" because it is inside of " . (join ' > ', @stack) . ")\n" <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7920	8018	
==>ting for \"$_\"\n(should be \"#$indent$2\" because it is inside of " . (join ' > ', @stack) . ")\n" <==
4	/Users/nnunley/parrot/config/gen/makefiles.pm	1796	1961	
==>ynoplibs_pl.in' => 'tools/build/dynoplibs.pl',
        commentType                             => '#',
        replace_slashes                         => 0,
        c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540683	540812	
==>\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n {{\@1}} = b<<p;\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541935	542064	
==>\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n {{\@1}} = b<<p;\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543187	543316	
==>\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n {{\@1}} = b<<p;\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115409	115667	
==>209 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} << {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116264	116522	
==>209 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} << {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117119	117377	
==>209 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} << {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451112	451321	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451850	452059	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452589	452798	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453327	453536	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49649	49741	
==>"an perl quotelike marker", $aftererror,$line);
				$item = new Parse::RecDescent::Directive( <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11737	11827	
==>ITEMP1} = elements ${STYPES}
dec ${ITEMP1}
${PTEMP0} = ${STYPES}[${ITEMP1}]
${STEMP0} = "$" <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8800	8890	
==>ITEMP1} = elements ${STYPES}
dec ${ITEMP1}
${PTEMP0} = ${STYPES}[${ITEMP1}]
${STEMP0} = "$" <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7372	7462	
==>ITEMP1} = elements ${STYPES}
dec ${ITEMP1}
${PTEMP0} = ${STYPES}[${ITEMP1}]
${STEMP0} = "$" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215072	215335	
==>er(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216013	216276	
==>er(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216952	217215	
==>er(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217892	218155	
==>er(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                } <==
4	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	676	803	
==>b ($$;$) {
        my $self = shift;
        my ( $code, $output, $desc ) = @_;
  
        my $count = $self->{builder}->current <==
4	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1043	1170	
==>b ($$;$) {
        my $self = shift;
        my ( $code, $output, $desc ) = @_;
  
        my $count = $self->{builder}->current <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2573	2671	
==>[$i])
      unless defined $actual_arg_type;

    if ($formal_arg_type->name ne $actual_arg_type->n <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2273	2371	
==>[$i])
      unless defined $actual_arg_type;

    if ($formal_arg_type->name ne $actual_arg_type->n <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	23722	23838	
==>-= $nf;
	    BUILD_TUPLE($nfix, '', "\t\t #call_args");
	    my $t = pop @stack;
	    unshift @args, $t->[1];
	}
	for <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276182	276273	
==>ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277060	277151	
==>ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277938	278029	
==>ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	594	684	
==>lParser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullParse <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1013	1103	
==>lParser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullParse <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	500	590	
==>lParser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullParse <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1487	1577	
==>lParser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullParse <==
4	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	466	605	
==>,
    output_like       => 'like',
    output_isnt       => 'isnt_eq'
                        );

foreach my $func ( keys %language_test_map <==
4	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	805	944	
==>,
    output_like       => 'like',
    output_isnt       => 'isnt_eq'
                        );

foreach my $func ( keys %language_test_map <==
4	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	380	519	
==>,
    output_like       => 'like',
    output_isnt       => 'isnt_eq'
                        );

foreach my $func ( keys %language_test_map <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	61177	61269	
==>or C<extract_codeblock> encountered
a closing bracket where none was expected.

=item  C<Unma <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072130	1072260	
==>INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074315	1074445	
==>INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076500	1076630	
==>INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078686	1078816	
==>INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	989	1088	
==>er\n";
}

# Pre and post branch operation hooks.
sub pre_branch {
	die "pre_branch not implemented f <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858726	859059	
==>L);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859730	860063	
==>L);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860734	861067	
==>L);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	39896	40007	
==>' : 'pmc';
			$decls .= "    .local $type $mv->{$_}\n";
		}
	}

	# Insert 'em.
	$pir =~ s/[ \t]*\$\{AUTO_MAGICAL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	331590	331830	
==>1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdopen", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714139	714368	
==>ME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715061	715290	
==>ME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715984	716213	
==>ME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
4	/Users/nnunley/parrot/languages/dotnet/Configure.pl	4717	4830	
==>, so no can do.
        return "\techo Oops, I was not configured with the path to Mono class library.\n";
    } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16056	16267	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16828	17039	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	17602	17813	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18397	18608	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	40032	40150	
==>codes'} and
            $self->{'accept_codes'}{'VerbatimFormatted'}
        ) {
          while(@$para > 3 and $para-> <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557997	558089	
==>er->current_cont) |= SUB_FLAG_TAILCALL;\n  interpreter->current_object = object;\n  interpret <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559381	559473	
==>er->current_cont) |= SUB_FLAG_TAILCALL;\n  interpreter->current_object = object;\n  interpret <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560753	560845	
==>er->current_cont) |= SUB_FLAG_TAILCALL;\n  interpreter->current_object = object;\n  interpret <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	6861	6949	
==>rray;
  return;
}

#--------------------------------------------------------------------- <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	8400	8488	
==>rray;
  return;
}

#--------------------------------------------------------------------- <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	8903	8991	
==>rray;
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	7543	7630	
==>rray;
  return
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324772	325045	
==>2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325565	325838	
==>2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326355	326628	
==>2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327156	327429	
==>2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1924	2047	
==>.
        "-o " . $target . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/include' . $PATHQUOTE . " " .
        " <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2220	2343	
==>.
        "-o " . $target . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/include' . $PATHQUOTE . " " .
        " <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2015	2138	
==>.
        "-o " . $target . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/include' . $PATHQUOTE . " " .
        " <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	56859	56975	
==>racketed($_[0],'{}') } },
                   ]);

This call extracts the next single substring that is a valid Perl q <==
4	/Users/nnunley/parrot/config/inter/pmc.pm	2284	2394	
==>rep { defined $_ } @pmc);

    if ($conf->options->get('ask')) {
        print <<"END";


The following PMC fil <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	12825	12952	
==>lue => 'lambda' },
					   { children => [ @variables ] },
					   @body ]},
			   @values
			  ]};

  $return = $self->_generat <==
4	/Users/nnunley/parrot/config/auto/gc.pm	1930	2056	
==>c\$(O) \$(SRC_DIR)/res_lea\$(O)",
            gc_flag   => '-DGC_IS_MALLOC',
        );
    } elsif ($gc eq 'libc') {
        $ <==
4	/Users/nnunley/parrot/editor/kate_syntax.pl	2939	3046	
==>ay">
          <RegExpr attribute="Label" context="#stay" String="[_\\w]+\\:" />
          <keyword attribut <==
4	/Users/nnunley/parrot/lib/Parrot/Op.pm	7757	7857	
==>ns made by
C<$trans> (a subclass of C<Parrot::OpTrans>).

=cut

sub source
{
    my ($self, $trans) = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629740	630033	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":ob <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630729	631022	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":ob <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924481	924772	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ": <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	11116	11233	
==>(long*)&PMC_int_val(t_$temp_num)";
    };
    /s/ && do {
        push @{$temps_ref}, "short t_$temp_num;";
        pu <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34568	34666	
==>ahead"} ? '$text = $_savetext;' : '')
			    .($::RD_NO_TRACE?'':'
			Parse::RecDescent::_trace(q{< <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4373	4470	
==>, $failLabel) = @_;
    my $comment = Regex::Ops::Tree::isplain($code) ? " # match '".chr($code)." <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4060	4157	
==>, $failLabel) = @_;
    my $comment = Regex::Ops::Tree::isplain($code) ? " # match '".chr($code)." <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858606	858699	
==>EPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859610	859703	
==>EPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860614	860707	
==>EPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861619	861712	
==>EPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79585	79893	
==>ta({{\@1}}) = p;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81106	81414	
==>ta({{\@1}}) = p;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/config/gen/makefiles.pm	3494	3637	
==>slashes                 => 1,
        conditioned_lines               => 1
    );
    genfile(
        'languages/bc/config/makefiles/root.in' = <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	29669	29805	
==>t_line'},
            "'=item' outside of any '=over'"
          );
          unshift @$paras,
            ['=over', {'start_line' => $pa <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	17777	17884	
==>ature,
     * if yes, we are done
     */

     result = Parrot_jit_build_call_func(interpreter, pmc_nci, si <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2108	2204	
==>about the redefinition. Otherwise, we assume the programmer wanted to shadow the
  # previous def <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1628	1724	
==>about the redefinition. Otherwise, we assume the programmer wanted to shadow the
  # previous def <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1855	1951	
==>about the redefinition. Otherwise, we assume the programmer wanted to shadow the
  # previous def <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32018	32131	
==>/, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $parameters = ", $parameters" if <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33595	33708	
==>/, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $parameters = ", $parameters" if <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40652	40765	
==>/, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $parameters = ", $parameters" if <==
4	/Users/nnunley/parrot/tools/build/pbc2c.pl	3497	3603	
==>type($1) eq 'ic';
	    }

	    if($forward_off =~ /^-?\d+$/){
		$forward_off = -$forward_off if $dir eq '-' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367233	367456	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368024	368247	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368816	369039	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369700	369923	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926206	926331	
==>STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927676	927801	
==>STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929146	929271	
==>STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930617	930742	
==>STRSTART: {{\@1}} = PTR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1 <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4313	4410	
==>=2
	mine=a*2
	print t(3)*2
end function
dim t(7)
z=55
t(3)=5.6
a=mine(5)
print t(3)

1740 print "B <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9788	9878	
==>l_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over ea <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7302	7392	
==>l_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over ea <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6266	6356	
==>l_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over ea <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634568	634669	
==>ps\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635686	635787	
==>ps\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636804	636905	
==>ps\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637923	638024	
==>ps\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4555	4736	
==>:Block");
  confess "Extra arguments!" if @_;

  return keys %{$self->{SYMBOLS}};
}


###############################################################################

=head2 BLOCK->d <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32787	32884	
==>ecDescent::_tracefirst($text))
							if defined $::RD_TRACE;').'
		push @item, ' . ($::RD_NO_HITE <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30584	30679	
==>ecDescent::_tracefirst($text))
							if defined $::RD_TRACE;').'
		push @item, '.($::RD_NO_HITE <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28508	28601	
==>ecDescent::_tracefirst($text))
					if defined $::RD_TRACE;').'
		push @item, '.($::RD_NO_HITE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761482	761713	
==>f bound register access\");\n    REG_PMC({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762335	762566	
==>f bound register access\");\n    REG_PMC({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2743	2843	
==>the current working directory.  In order to be
    # compatible with both pre/post version 3.13 we're <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	7486	7572	
==>ormal_op
#define Parrot_jit_vtable_1123_op Parrot_jit_normal_op
#define Parrot_jit_vtab <==
4	/Users/nnunley/parrot/config/init/manifest.pm	497	603	
==>EST';

@args = qw(nomanicheck);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('no <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	7544	7649	
==>t call_state *st, int n)
{
    assert(n < st->src.n);
    Parrot_fetch_arg_nci(interpreter, st);

    retu <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	7727	7832	
==>t call_state *st, int n)
{
    assert(n < st->src.n);
    Parrot_fetch_arg_nci(interpreter, st);

    retu <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	7909	8014	
==>t call_state *st, int n)
{
    assert(n < st->src.n);
    Parrot_fetch_arg_nci(interpreter, st);

    retu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1013609	1013851	
==>\"\n  {{\@1}} = errno;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2077	2301	
==>//
                and $str .= "\b",      # backspace
                last;
            s/^\\f//
                and $str .= "\f",      # form feed
                last;
            s/^\\n//
                and $str .= <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3591	3815	
==>//
                and $str .= "\b",      # backspace
                last;
            s/^\\f//
                and $str .= "\f",      # form feed
                last;
            s/^\\n//
                and $str .= <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	8592	8689	
==>arse::RecDescent::expected,
	       $Parse::RecDescent::unexpected,
	       $Parse::RecDescent::la <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	38839	38959	
==>rams} ) {
        push @opcodes2, @{ $param->[2] };
    }
    push @opcodes2, @{$block};
    push @opcodes2, new EndD <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7803	7929	
==>match_fail:
            print "failed"
          match_end:
        .end\n);
}
=back

=head1 AUTHOR

Patrick R. Michaud, pmicha <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	702	799	
==>'s in, which qq[] treats as escape sequences.
# Config stuff
our $CC = qq[/usr/bin/gcc-4.0 -c];
ou <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	706	803	
==>'s in, which qq[] treats as escape sequences.
# Config stuff
our $CC = qq[/usr/bin/gcc-4.0 -c];
ou <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18791	18883	
==>d sets the size (in half-points, like 21 for 10.5-point)
that codeblocks ("verbatim sections" <==
4	/Users/nnunley/parrot/tools/build/c2str.pl	1508	1612	
==>!!
 *
 * This file is generated automatically from '$infile'
 * by $0.
 *
 * Any changes made here will b <==
4	/Users/nnunley/parrot/tools/build/c2str.pl	3797	3901	
==>!!
 *
 * This file is generated automatically from '$infile'
 * by $0.
 *
 * Any changes made here will b <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	6220	6318	
==>n (\%group_files, \%group_libs, \%pmc_group, \%pmc_libs);
}

sub modtime {
    my $ago = (-M shift) <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	6431	6529	
==>n (\%group_files, \%group_libs, \%pmc_group, \%pmc_libs);
}

sub modtime {
    my $ago = (-M shift) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516711	517009	
==>{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517450	517748	
==>{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518188	518486	
==>{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518927	519225	
==>{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAG <==
4	/Users/nnunley/parrot/tools/build/ops2c.pl	1208	1302	
==>run loop.

=item C<CSwitch>

Create the C<switch>ed and predereferenced run loop.

=item C<CPre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710667	710758	
==>io = PIO_STDOUT(interpreter);\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711501	711592	
==>io = PIO_STDOUT(interpreter);\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672928	673015	
==>439 \"src/ops/pmc.ops\"\n    {{\@1}} = {{\@2}}->vtable->pop_integer(interpreter, {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718142	718417	
==>o, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719074	719349	
==>o, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720273	720548	
==>o, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721473	721748	
==>o, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_i <==
4	/Users/nnunley/parrot/config/inter/ops.pm	616	786	
==>}
            if ($b =~ /core\.ops/) { return 1 }
            return ($a cmp $b)
            }
            grep {
            !/vtable\.ops/
            } glob "src/ops/*. <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	3857	3999	
==>hort_desc = $file->short_description;
            
            next unless $short_desc;
            
            next if grep {$_ eq $short_des <==
4	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	1622	1736	
==>NLOOPNR  # No tokens!

	bsr ISNUM
	restore I1
	dec I5
	save I5
	bsr CLEAR
	restore I0 # dummy

	eq I1, 0, DOLINE
	s <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2914	3011	
==>ned $rel_path and $rel_path eq '') ? '.' : $rel_path;
}

=item C<parent()>

Returns the directory' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	315578	315818	
==>@1}}));\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	318506	318746	
==>@1}}));\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122031	122129	
==>to kill.\n   * it's just casting a signed integral to the equivalent unsigned.\n   */\n  LVALUE_CAS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122943	123041	
==>to kill.\n   * it's just casting a signed integral to the equivalent unsigned.\n   */\n  LVALUE_CAS <==
4	/Users/nnunley/parrot/tools/build/ops2pm.pl	3037	3138	
==>$0: Could not read ops file '$file'!\n" unless defined $ops;

#
# Copy the ops from the remaining .ops <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	6	105	
==>fix.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subj <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	7	106	
==>fix.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subj <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	7	106	
==>fix.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subj <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634775	634876	
==>preter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new_from_string(interpreter, class, {{\@3}}, 0);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635893	635994	
==>preter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new_from_string(interpreter, class, {{\@3}}, 0);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637011	637112	
==>preter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new_from_string(interpreter, class, {{\@3}}, 0);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638130	638231	
==>preter->vtables[{{\@2}}]->class;\n  {{\@1}} = VTABLE_new_from_string(interpreter, class, {{\@3}}, 0);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75185	75536	
==>",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 98,
                  "ARGS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164792	164905	
==>(string_equal(interpreter, {{\@1}}, {{\@2}}) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "L <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165721	165834	
==>(string_equal(interpreter, {{\@1}}, {{\@2}}) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "L <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166650	166763	
==>(string_equal(interpreter, {{\@1}}, {{\@2}}) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "L <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050143	1050243	
==>r.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null class.\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051177	1051277	
==>r.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null class.\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052211	1052311	
==>r.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null class.\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053246	1053346	
==>r.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null class.\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841655	841927	
==>r,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842419	842691	
==>r,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	26022	26135	
==>= $code[$code_l]->[2];
    if ($opcode eq 'POP_TOP') {
	print "# POP_TOP\n";
	$code_l++;
    }
    else {
	if (!$t <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22007	22115	
==>para->[1]{'start_line'},
          "'=end $content' is invalid.  (Stack: "
          . $self->_dump_curr_open <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2321	2424	
==>0]->emit_par(-2) }
sub end_head4       { $_[0]->emit_par(-1) }
sub end_Para        { $_[0]->emit_par( 0) <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1889	1992	
==>0]->emit_par(-2) }
sub end_head4       { $_[0]->emit_par(-1) }
sub end_Para        { $_[0]->emit_par( 0) <==
4	/Users/nnunley/parrot/tools/dev/gen_class.pl	439	542	
==>re
information on adding a new PMC to Parrot.

To see what a minimal PMC looks like, create a PMC tem <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2793	2881	
==>ve_to_source($source))
	{
		$index_html .= $content->write_html($source, $target, $silent <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94977	95232	
==>g_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95870	96125	
==>g_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96763	97018	
==>g_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	1927	2023	
==>tive path from the page to
F<docs/resources>, the image and CSS file directory.

=cut

sub footer <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950475	950574	
==>BODY" => "#line 540 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951435	951534	
==>BODY" => "#line 540 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952395	952494	
==>BODY" => "#line 540 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953356	953455	
==>BODY" => "#line 540 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598188	598453	
==>);\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599235	599500	
==>);\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600310	600575	
==>);\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601386	601651	
==>);\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	510	613	
==>s.

=cut

use strict;

use File::Copy qw(copy);

# qq[] isn't guaranteed to work, but it's safer than "" <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	468	571	
==>s.

=cut

use strict;

use File::Copy qw(copy);

# qq[] isn't guaranteed to work, but it's safer than "" <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	472	575	
==>s.

=cut

use strict;

use File::Copy qw(copy);

# qq[] isn't guaranteed to work, but it's safer than "" <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6603	6701	
==>eds more thought. I'm trying to work out which files
	# it's sensible to link directly to. Suffixes <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655882	656182	
==>"NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656805	657105	
==>"NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657729	658029	
==>"NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658647	658947	
==>"NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8499	8601	
==>nation is a register then it is up to the SRM to do the store.
	# Otherwise, there's nothing to do here <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6319	6421	
==>nation is a register then it is up to the SRM to do the store.
	# Otherwise, there's nothing to do here <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5234	5336	
==>nation is a register then it is up to the SRM to do the store.
	# Otherwise, there's nothing to do here <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	254	354	
==>8089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Type::String;

use base q <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557193	557333	
==>{
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLAGS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558576	558716	
==>{
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLAGS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559960	560100	
==>{
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLAGS <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	5637	5731	
==>th length checks, so that primitive matching
# operations (eg matching single characters or cha <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	15876	15998	
==>$desc );
            $builder->diag("'$cmd' failed with exit code $exit_code")
                  if $exit_code and not $pas <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	18427	18549	
==>$desc );
            $builder->diag("'$cmd' failed with exit code $exit_code")
                  if $exit_code and not $pas <==
4	/Users/nnunley/parrot/lib/Test/More.pm	26215	26335	
==>y $did_arrow = 0;
    foreach my $entry (@Stack) {
        my $type = $entry->{type} || '';
        my $idx  = $entry->{' <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	25470	25573	
==>$desc);
            $builder->diag("'$cmd' failed with exit code $exit_code") if $exit_code and not $pas <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912900	913039	
==>"i"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913911	914050	
==>"i"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914922	915061	
==>"i"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915934	916073	
==>"i"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter <==
4	/Users/nnunley/parrot/config/auto/gmp.pm	1220	1342	
==>ding
    # where Fink lives.
    if ($osname =~ /darwin/) {
        if (-f "/sw/include/gmp.h") {
            $conf->data-> <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	810	929	
==>lue::Identifier');

  my $self = bless {
    BLOCK => $block,
    LEFT  => $left,
    RIGHT => $right
  }, $class;

  $b <==
4	/Users/nnunley/parrot/examples/mops/mops.pl	510	612	
==>s, 

=item * the estimated number of ops performed,

=item * the elapsed time, and 

=item * the number <==
4	/Users/nnunley/parrot/examples/benchmarks/mops.pl	514	614	
==>s,

=item * the estimated number of ops performed,

=item * the elapsed time, and

=item * the number <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332794	333102	
==>t\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdo <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334072	334380	
==>t\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdo <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335350	335658	
==>t\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdo <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506342	506610	
==>=> "inline",
                  "CODE" => 582,
                  "ARGS" => [
                              "n",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 636 \"src/ops/math.ops\ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4180	4354	
==>self->{SYMBOLS}{$name};
}


###############################################################################

=head2 BLOCK->symbol_names()

Returns the names of the symbols def <==
4	/Users/nnunley/parrot/lib/Test/More.pm	18011	18121	
==>ed at $filename line $line.}m;
        $Test->diag(<<DIAGNOSTIC);
    Tried to use '$module'.
    Error:  $@
DI <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48493	48587	
==>Y" => "#line 785 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PAR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49283	49377	
==>Y" => "#line 785 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PAR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314912	315154	
==>f\");\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	316373	316615	
==>f\");\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	317840	318082	
==>f\");\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319305	319547	
==>f\");\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	415	515	
==>y $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  #$new->a <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	219	318	
==>y $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->a <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	218	317	
==>y $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->a <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	467	566	
==>y $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->a <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032484	1032773	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_lex",
                  "FL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033581	1033870	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_lex",
                  "FL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39121	39350	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41681	41910	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761854	762227	
==>ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 860,
                  "ARGS" => [
                              "ic",
                              "p"
                            ],
                  "BODY" <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25424	25548	
==>);
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    my $temp   = $self <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27324	27446	
==>);
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    my $temp = $self <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1963	2065	
==>he sub, we will place its
  # definition into the block at the top of the block stack (which is suppose <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	586	683	
==>unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type (" . ref($type) . ") is <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	712	809	
==>unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type (" . ref($type) . ") is <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	595	691	
==>unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type (". ref($type) . ") is <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	577	673	
==>unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type (". ref($type) . ") is <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4236	4336	
==>=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		return(<<CODE, $result) <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4500	4600	
==>=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		return(<<CODE, $result) <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5136	5236	
==>=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		return(<<CODE, $result) <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5512	5612	
==>=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		return(<<CODE, $result) <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1803	1913	
==>urn "";
}

# Extra subroutines required for the mapper.
sub subs() {
	# No extra subs.
	return "";
}

# Label g <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	843	953	
==>urn "";
}

# Extra subroutines required for the mapper.
sub subs() {
	# No extra subs.
	return "";
}

# Label g <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	600	710	
==>urn "";
}

# Extra subroutines required for the mapper.
sub subs() {
	# No extra subs.
	return "";
}

# Label g <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	15926	16017	
==>f) unless @match;
	return _succeed($wantarray, $textref,
			$match[2], $match[18]-$match[2], <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	36055	36203	
==>255.

So the exit codes are...

    0                   all tests successful
    255                 test died
    any other number    how many faile <==
4	/Users/nnunley/parrot/lib/Test/More.pm	34126	34274	
==>255.

So the exit codes are...

    0                   all tests successful
    255                 test died
    any other number    how many faile <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	2921	3069	
==>255.

So the exit codes are...

    0                   all tests successful
    255                 test died
    any other number    how many faile <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	20606	20717	
==>1] ]); }
	],
	[#Rule 21
		 '@1-1', 0,
sub
#line 132 "lib/Regex/Grammar.y"
{ ++$::paren }
	],
	[#Rule 22
		 'expr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072695	1072810	
==>on necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074880	1074995	
==>on necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077065	1077180	
==>on necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079251	1079366	
==>on necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332504	332599	
==>ULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_clas <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333782	333877	
==>ULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_clas <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335060	335155	
==>ULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_clas <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336339	336434	
==>ULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_clas <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579494	579598	
==>\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(interpreter, enum_class_String);\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580799	580903	
==>\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(interpreter, enum_class_String);\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582104	582208	
==>\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(interpreter, enum_class_String);\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583410	583514	
==>\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc_new(interpreter, enum_class_String);\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642354	642678	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643242	643566	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644134	644458	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645027	645351	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726033	726264	
==>ring_copy(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726795	727026	
==>ring_copy(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742013	742244	
==>ring_copy(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	15790	15887	
==>'>' angle bracket was encountered, which typically
			 indicates the end of a directive. However n <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1254	1356	
==>Debug (\\\$var, STARTNUMVAL)\nAborting");
  }

  if( defined $variable ) {
    # make a not-really-cons <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9709	9806	
==>IPTION

This module was built to facilitate the Pugs test suite. It has the
distinction of being t <==
4	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	838	931	
==>the directories in the Parrot subversion repository. (Needed for
# distributions or in general <==
4	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3693	3786	
==>the directories in the Parrot subversion repository. (Needed for
# distributions or in general <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	331729	332021	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333006	333298	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334284	334576	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335562	335854	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319474	319738	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320243	320507	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321013	321277	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	4468	4569	
==>,$value]);
    }
    elsif ($value =~ /^[-+]?((\d+\.\d*)|(\.d+))([eE][-+]?\d+)?$/) {
      $self->_add <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5830	5936	
==>r = '';

	# Branches mean we need to deal with basic block-ish stuff. If the branch
	# did not pop anything <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3768	3874	
==>r = '';

	# Branches mean we need to deal with basic block-ish stuff. If the branch
	# did not pop anything <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029839	1029932	
==>"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_event(interpreter, {{\@1}}, next);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030681	1030774	
==>"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_event(interpreter, {{\@1}}, next);\ <==
4	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2640	2758	
==>uilder_func = $language_test_map{$func};

        # That's the reason for:   no strict 'refs';
        my $pass = $s <==
4	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2170	2284	
==>uilder_func = $language_test_map{$func};
        # That's the reason for:   no strict 'refs';
        my $pass = $s <==
4	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2709	2823	
==>uilder_func = $language_test_map{$func};
        # That's the reason for:   no strict 'refs';
        my $pass = $s <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	1845	1957	
==>em('', 'tools/docs/write_docs.pl'),
        ),
        $self->new_group('Building', '',
            $self->new_it <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835346	835627	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 946,
                  "ARGS" => [
                              " <==
4	/Users/nnunley/parrot/config/auto/cgoto.pm	159	252	
==>m - Computed C<goto>

=head1 DESCRIPTION

Determines whether the compiler supports computed C< <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6255	6341	
==>PES}
prop_stack_depth[${ITEMP0}] = stack_depth
goto POST_BRANCH_NOT_switch_${CURIC}

PO <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4193	4279	
==>PES}
prop_stack_depth[${ITEMP0}] = stack_depth
goto POST_BRANCH_NOT_switch_${CURIC}

PO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	923176	923386	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	923852	924062	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924642	924852	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o" <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	6204	6333	
==>and length $type) {
          print $fh "<a href='$type'>";
        } else {
          print $fh "<a>"; # Yes, an 'a' element with <==
4	/Users/nnunley/parrot/tools/dev/lib_deps.pl	8065	8178	
==>ex.h
cacos       complex.h
cacosf      complex.h
cacosh      complex.h
cacoshf     complex.h
cacoshl     complex.h <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	833	945	
==>= bless {
    BLOCK => $block,
    LEFT  => $left,
    RIGHT => $right
  }, $class;

  $block->push_content($self <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	841	953	
==>= bless {
    BLOCK => $block,
    LEFT  => $left,
    RIGHT => $right
  }, $class;

  $block->push_content($self <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	18681	18782	
==>sses.

    Added classname prefixes to keys in hash-based classes
    (refer to "Perl Cookbook", Recip <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1098048	1098216	
==>GDIRS" => [],
                  "TYPE" => "function",
                  "CODE" => 1217,
                  "ARGS" => [],
                  "BODY" => "#line 283 \"src/ops/ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118857	119066	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	119711	119920	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120566	120775	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	37942	38042	
==>= grep ref($_)||length($_), @ell_content  ;
          @section_name = grep ref($_)||length($_), @sect <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	846	950	
==>}

=item C<defines()>

Returns the C C<#define> macros required by the ops.

=cut

sub defines
{
    retu <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	782	886	
==>}

=item C<defines()>

Returns the C C<#define> macros required by the ops.

=cut

sub defines
{
    retu <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	802	906	
==>}

=item C<defines()>

Returns the C C<#define> macros required by the ops.

=cut

sub defines
{
    retu <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	976	1080	
==>}

=item C<defines()>

Returns the C C<#define> macros required by the ops.

=cut

sub defines
{
    retu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332737	333014	
==>ugly warnings WRT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334015	334292	
==>ugly warnings WRT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335293	335570	
==>ugly warnings WRT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336572	336849	
==>ugly warnings WRT discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
4	/Users/nnunley/parrot/config/init/headers.pm	388	487	
==>nfigure::Step;
use ExtUtils::Manifest qw(maniread);

our $description = 'Determining nongenerated he <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	1900	1986	
==>-Winline -Wpointer-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wn <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1265	1351	
==>-Winline -Wpointer-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wn <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1269	1355	
==>-Winline -Wpointer-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wn <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837208	837292	
==>\"src/ops/stack.ops\"\n  (void)stack_pop(interpreter, &CONTEXT(interpreter->ctx)->use <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837940	838024	
==>\"src/ops/stack.ops\"\n  (void)stack_pop(interpreter, &CONTEXT(interpreter->ctx)->use <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838674	838758	
==>\"src/ops/stack.ops\"\n  (void)stack_pop(interpreter, &CONTEXT(interpreter->ctx)->use <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	839406	839490	
==>\"src/ops/stack.ops\"\n  (void)stack_pop(interpreter, &CONTEXT(interpreter->ctx)->use <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760441	760660	
==>,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 286 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}}->vtable- <==
4	/Users/nnunley/parrot/lib/Test/More.pm	16854	16955	
==>mbers can be checked like so:

   # Just like "use Some::Module 1.02"
   BEGIN { use_ok('Some::Module' <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	25034	25131	
==>tional_back');
    my $next = $self->genlabel('after_greedy_optional');
    my $rfail = $self->gen <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3221	3315	
==>rint CODE qq{\t\tfind_global _GLOBALS, "COMMON"\n};
		foreach(@saves) {
			print CODE qq{\t_GLO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557254	557515	
==>P_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558637	558898	
==>P_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560021	560282	
==>P_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	2569	2660	
==>w_section('unlambda', 'unlambda.html', '', 'languages/unlambda'),
        $self->new_section <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367117	367408	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367908	368199	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368700	368991	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLA <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8487	8599	
==>', "print <rx_tmp>", 'print "\n"';
    }

    # FIXME: Still have extra copy in many cases
    push @ops, "eq <rx <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	53176	53309	
==>( $_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 59
		 'exp', 3,
sub
#line 345 "Lua\lua51.yp"
{
            BuildBinop( $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638997	639104	
==>_args;\n  if (!arg_op) {\n        real_exception(interpreter, NULL, NULL_REG_ACCESS,\n            \"No set_a <==
4	/Users/nnunley/parrot/tools/dev/gen_class.pl	615	711	
==>pmc/foo.pmc
	% perl tools/build/pmc2c.pl -c src/pmc/foo.pmc

=head1 SEE ALSO

F<tools/build/ <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	62051	62145	
==>ect quoting or escaping.

=item  C<No block delimiter found after quotelike "%s">

C<extract_qu <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11152	11340	
==>nd {
  my $self = $_[0];
  my $fh = $self->{'output_fh'};
  return print $fh '}'; # that should do it
}

###########################################################################

sub sty <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1459	1577	
==>$self, $addr) = @_;

    #print STDERR "pbcc: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
        return "retur <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1984	2102	
==>$self, $addr) = @_;

    #print STDERR "pbcc: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
        return "retur <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1875	1992	
==>$self, $addr) = @_;

    #print STDERR "pbcc: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
  	    return "retur <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	230314	230577	
==>}, {{\@2}}, MMD_NUMCMP) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	37114	37207	
==>t and/or 
modify it under the same terms as Perl itself.

See F<http://www.perl.com/perl/misc/ <==
4	/Users/nnunley/parrot/lib/Test/More.pm	37523	37616	
==>t and/or 
modify it under the same terms as Perl itself.

See F<http://www.perl.com/perl/misc/ <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	6483	6576	
==>t and/or 
modify it under the same terms as Perl itself.

See F<http://www.perl.com/perl/misc/ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	246087	246261	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp_num",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	404	511	
==>t::Statement);

sub new
{
  my $class = shift;
  my ($block, $dest, $left, $op, $right) = @_;

  confess("Bl <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	395	502	
==>t::Statement);

sub new
{
  my $class = shift;
  my ($block, $dest, $left, $op, $right) = @_;

  confess("Bl <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	284	391	
==>t::Statement);

sub new
{
  my $class = shift;
  my ($block, $dest, $left, $op, $right) = @_;

  confess("Bl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105667	1105961	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106642	1106936	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50091	50185	
==>Y" => "#line 800 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PAR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50884	50978	
==>Y" => "#line 800 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PAR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072531	1072641	
==>\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we used abs({{\@4}}) and abs({{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074716	1074826	
==>\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we used abs({{\@4}}) and abs({{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076901	1077011	
==>\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we used abs({{\@4}}) and abs({{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079087	1079197	
==>\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we used abs({{\@4}}) and abs({{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	269321	269411	
==>\"src/ops/cmp.ops\"\n  {{\@1}} = (mmd_dispatch_i_pp(interpreter, {{\@2}}, {{\@3}}, MMD_CMP) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	270211	270301	
==>\"src/ops/cmp.ops\"\n  {{\@1}} = (mmd_dispatch_i_pp(interpreter, {{\@2}}, {{\@3}}, MMD_CMP) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	278809	278899	
==>\"src/ops/cmp.ops\"\n  {{\@1}} = (mmd_dispatch_i_pp(interpreter, {{\@2}}, {{\@3}}, MMD_CMP) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	287428	287518	
==>\"src/ops/cmp.ops\"\n  {{\@1}} = (mmd_dispatch_i_pp(interpreter, {{\@2}}, {{\@3}}, MMD_CMP) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101299	101592	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102069	102362	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103505	103798	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	1577	1676	
==>de for a C<return> statement, if the body is empty then
make a cast if needed.

This method is impor <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518744	518948	
==>" => [
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 734 \"src/ops/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544464	544593	
==>a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n gcd = b<<p <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545800	545929	
==>a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n gcd = b<<p <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547136	547265	
==>a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n gcd = b<<p <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	53943	54037	
==>er unmatched substrings (see below) within the
text should be skipped or returned as fields. If <==
4	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2908	3103	
==>_out_fn),
                       $output,
                       $desc );
        if ( ! $pass ) {
            my $diag = q{};
            my $test_prog = join( ' && ', @test_prog );
            i <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1297	1407	
==>specified then
    # the user is responsible for the consequences.
    if (defined $prog) {
        $conf->data <==
4	/Users/nnunley/parrot/config/inter/make.pm	1118	1228	
==>specified then
    # the user is responsible for the consequences.
    if (defined $prog) {
        $conf->data <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1294	1404	
==>specified then
    # the user is responsible for the consequences.
    if (defined $prog) {
        $conf->data <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	5257	5480	
==>";
                } else {
                    $has_code = 1;
                }
            } else {
                die "Invalid value for code in rule $rule->{'name'}\n";
            }
        }

        # class
        e <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944884	945093	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "charsetname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945693	945902	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "charsetname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	11513	11647	
==>== 0 && $max == 1) {
        $base .= "?";
    } elsif ($min == 0 && $max == -1) {
        $base .= "*";
    } elsif ($min == 1 && $max <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780721	780863	
==>t_string_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781630	781772	
==>t_string_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782539	782681	
==>t_string_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783449	783591	
==>t_string_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1260	1369	
==>ift->{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1251	1360	
==>ift->{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1140	1249	
==>ift->{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return s <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	1447	1552	
==>...)

 1. Merge equivalent labels
 2. Jump threading: Replace goto X; ...; X: goto Y; with goto Y.
 3. Eli <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	993	1153	
==>,
       l => "long",
       4 => "long *",
       c => "char",
       s => "short",
       2 => "short *",
       f => "float",
       d => "double",
       t = <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	1408	1568	
==>,
       l => "long",
       4 => "long *",
       c => "char",
       s => "short",
       2 => "short *",
       f => "float",
       d => "double",
       t = <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	2313	2473	
==>,
       l => "long",
       4 => "long *",
       c => "char",
       s => "short",
       2 => "short *",
       f => "float",
       d => "double",
       t = <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29365	29468	
==>mv->{'LOADREG'} = 'loadreg';
			push @localmv, 'LOADREG';
		} else {
			die "pir or instruction must use <==
4	/Users/nnunley/parrot/config/auto/gmp.pm	1356	1472	
==>flags => '-L/sw/lib');
            $conf->data->add(' ', ldflags   => '-L/sw/lib');
            $conf->data->add(' ', <==
4	/Users/nnunley/parrot/config/auto/readline.pm	1445	1561	
==>flags => '-L/sw/lib');
            $conf->data->add(' ', ldflags   => '-L/sw/lib');
            $conf->data->add(' ', <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1848	1949	
==>p driver version $VERSION ".
			  "incompatible with version $$self{VERSION}:\n".
			  "Please recom <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1783	1882	
==>p driver version $VERSION ".
			  "incompatible with version $$self{VERSION}:\n".
			  "Please recom <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544342	544460	
==>}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545678	545796	
==>}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547014	547132	
==>}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1 <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	15208	15321	
==>ops);
    foreach (@args) {
        my ($iback, @ops) = $self->rewrite($_, shift(@fails));
        push @ibacks, $ <==
4	/Users/nnunley/parrot/examples/benchmarks/oo5.pl	101	216	
==>}
print $o->i, "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift;
    return bless [ 10, 2 <==
4	/Users/nnunley/parrot/examples/benchmarks/oo6.pl	93	208	
==>}
print $o->i, "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift;
    return bless [ 10, 2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50177	50274	
==>er,   PARROT_PROFILE_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_PROFILE_FLA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50970	51067	
==>er,   PARROT_PROFILE_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_PROFILE_FLA <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	4149	4257	
==>t ('', 'set',[$to,$from]);
    }
  }
}

#---- Section 4 ----

sub __quoted {
  my ($self, $node, $return, $sp <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	29079	29177	
==>and actual_ok is left undef.

For example "not ok 23 - hole count # TODO insufficient donuts" would <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714503	714599	
==>line 75 \"src/ops/python.ops\"\n  STRING * const s = {{\@1}};\n  PMC * const io = PIO_STDOUT(inte <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715426	715522	
==>line 75 \"src/ops/python.ops\"\n  STRING * const s = {{\@1}};\n  PMC * const io = PIO_STDOUT(inte <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451673	451967	
==>{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452412	452706	
==>{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453150	453444	
==>{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453889	454183	
==>{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656392	656481	
==>\"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657316	657405	
==>\"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658238	658327	
==>\"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659157	659246	
==>\"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110754	111051	
==>> "bors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111645	111942	
==>> "bors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112537	112834	
==>> "bors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39642	39734	
==>char,
  'eof-object?' => \&_op_eof_object_p,
  'char-ready?' => \&_op_char_ready_p,
  'write' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812932	813221	
==>"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 917,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 524 \"src/ops/set. <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	257	356	
==>isnt), @Test::More::EXPORT );
@ISA = qw(Exporter Test::More);

sub import {
    my( $class, $plan, @ <==
4	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	174	273	
==>isnt), @Test::More::EXPORT );
@ISA = qw(Exporter Test::More);

sub import {
    my( $class, $plan, @ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	413	510	
==>[0]" ];
  return $_[0][2] .= $_[1];
}

sub as_string {
  goto &Pod::Simple::BlackBox::stringify_lo <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72679	72777	
==>S_NULL({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_cstring_free(name);\n  if (p == N <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74281	74379	
==>S_NULL({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_cstring_free(name);\n  if (p == N <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75883	75981	
==>S_NULL({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_cstring_free(name);\n  if (p == N <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77486	77584	
==>S_NULL({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_cstring_free(name);\n  if (p == N <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	22708	22817	
==>Prints to the output() filehandle.

=end _private

=cut

sub _print {
    my($self, @msgs) = @_;

    # Preven <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11024	11111	
==>TYPE_VOID goto pre_call_HAS_RETURN_${CURIC}
if "${CURIC}" == "73" goto pre_call_HAS_RETU <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8210	8297	
==>TYPE_VOID goto pre_call_HAS_RETURN_${CURIC}
if "${CURIC}" == "73" goto pre_call_HAS_RETU <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5872	5959	
==>TYPE_VOID goto pre_call_HAS_RETURN_${CURIC}
if "${CURIC}" == "73" goto pre_call_HAS_RETU <==
4	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	5246	5370	
==>ries 
            && $Parrot::Revision::svn_entries =~ m/\.svn/) {
       $svn_cmd = 'svn';
   } else {
       $svn_cmd = 'sv <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	685	774	
==>st, 'Jako::Construct::Expression::Value::Identifier');
  confess("Left (" . ref($left) . " <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	676	765	
==>st, 'Jako::Construct::Expression::Value::Identifier');
  confess("Left (" . ref($left) . " <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	565	654	
==>st, 'Jako::Construct::Expression::Value::Identifier');
  confess("Left (" . ref($left) . " <==
4	/Users/nnunley/parrot/editor/kate_syntax.pl	4279	4376	
==>ext="#stay" String="[^\=]*" />
          <RegExpr attribute="Comment" context="#pop" String="^\\=c <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9952	10048	
==>tack last to first, but need to be first to last in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${I <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7466	7562	
==>tack last to first, but need to be first to last in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${I <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6430	6526	
==>tack last to first, but need to be first to last in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${I <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909342	909611	
==>{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910239	910508	
==>{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911136	911405	
==>{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912034	912303	
==>{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066966	1067073	
==>VAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068152	1068259	
==>VAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069338	1069445	
==>VAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070525	1070632	
==>VAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926545	926702	
==>@2}}->bufused;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928015	928172	
==>@2}}->bufused;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929485	929642	
==>@2}}->bufused;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930956	931113	
==>@2}}->bufused;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  { <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	8733	8830	
==>(st->val) = val;
    Parrot_convert_arg(interpreter, st);
    Parrot_store_arg(interpreter, st);
} <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	8974	9071	
==>(st->val) = val;
    Parrot_convert_arg(interpreter, st);
    Parrot_store_arg(interpreter, st);
} <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	9214	9311	
==>(st->val) = val;
    Parrot_convert_arg(interpreter, st);
    Parrot_store_arg(interpreter, st);
} <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	9451	9548	
==>(st->val) = val;
    Parrot_convert_arg(interpreter, st);
    Parrot_store_arg(interpreter, st);
} <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	5028	5159	
==>Token->new(
        $file, $line, 'infix-bit', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^( == | >= | <= | <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	5248	5361	
==>s{$arg}) {
	    $real_name = $vtables{$arg};
	}
    }
    print <<EOC;
.end		# $cur_func
.namespace [""]

$nst
.su <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	771	877	
==>ch" ],
    [ "end(n)" => "mark end of n-th paren match" ],
    [ "delete(n)" => "delete record of n-th pare <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	125	217	
==>nse
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Type.pm 1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766544	766657	
==>< 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767397	767510	
==>< 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768250	768363	
==>< 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769104	769217	
==>< 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1013678	1014020	
==>[
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "err",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  " <==
4	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1293	1413	
==>'languages', $language);
        } elsif ($dir_count == 1) {
          $path_to_language = $language;
        } elsif ($d <==
4	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1778	1898	
==>'languages', $language);
        } elsif ($dir_count == 1) {
          $path_to_language = $language;
        } elsif ($d <==
4	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	6224	6341	
==>ies => $branches{$_},
    }} sort {
		($a eq "trunk" ? -1 : 0) ||
		($b eq "trunk" ? 1 : 0) ||
		($a cmp $b)
	} keys % <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	40077	40208	
==>k_text->[-1] .= ' in ' if $section_name;
          push @$link_text, @ell_content;
        }
      }


      # And the E resolver wi <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	7931	8056	
==>f") ~ "'");
        Test::diag("    Actual: '" ~ ($got.defined ?? $got !! "undef") ~ "'");
    }
    else {
        Test::diag <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	15803	15918	
==>todo};

            my $pass = $builder->$meth( $real_output, $expected, $desc );
            $builder->diag("'$cmd' <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	18354	18469	
==>todo};

            my $pass = $builder->$meth( $real_output, $expected, $desc );
            $builder->diag("'$cmd' <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29213	29356	
==>=> 73,
			"+" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 8 <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41319	41462	
==>=> 73,
			"+" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 8 <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44465	44608	
==>=> 73,
			"+" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 8 <==
4	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	301	390	
==>ing routines specific to 'ParrotCompiler'.

=head1 DESCRIPTION

Calls 'parrot_compiler.pbc <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30896	31016	
==>tion(WRITE_TO_CONSTCLASS,
		"$meth() in $classname");
        $ret
EOC
    }
    $cout .= <<"EOC";
}

EOC
    $cout;
}

= <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4958	5063	
==>>emit("  $pmc_reg = $dest");
    $compiler->emit("  global \"$dest_name\" = $pmc_reg");
  }

  return 1;
} <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3021	3126	
==>>emit("  $pmc_reg = $dest");
    $compiler->emit("  global \"$dest_name\" = $pmc_reg");
  }

  return 1;
} <==
4	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	1296	1389	
==>method_name parameters section MMD_type ]

for each vtable method defined in C<$file>. If C<$f <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2530	2642	
==>t  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  if (defined $cond) {
    $handler->star <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3204	3316	
==>t  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  if (defined $cond) {
    $handler->star <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3294	3406	
==>t  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  if (defined $cond) {
    $handler->star <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	60330	60437	
==>("production",$line);
			$aftererror = 0;
		}
		elsif ($grammar =~ m/$LITERAL/gco)
		{
			($code = $1) =~ s/ <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2300	2394	
==>op)>

Returns the C code for the specified op argument type (see
C<Parrot::OpTrans>) and value. <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3392	3486	
==>op)>

Returns the C code for the specified op argument type (see
C<Parrot::OpTrans>) and value. <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3536	3630	
==>op)>

Returns the C code for the specified op argument type (see
C<Parrot::OpTrans>) and value. <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3191	3285	
==>op)>

Returns the C code for the specified op argument type (see
C<Parrot::OpTrans>) and value. <==
4	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	1206	1318	
==>tual Bc implementation
        my $out_fn    = $self->get_out_fn( $count, \%options );
        my @test_prog = $s <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33819	33931	
==>t "Can't assimilate following ", $paras->[0][0], "\n";
              push @$para, '';  # Just so it's not content <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35632	35744	
==>t "Can't assimilate following ", $paras->[0][0], "\n";
              push @$para, '';  # Just so it's not content <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	754	857	
==>e File::Which;

# XXX $conf is a temporary hack
our $conf;

our @EXPORT = ();
our @EXPORT_OK = qw(prompt <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1104	1215	
==>ted new module '%s'.\n", __PACKAGE__, $ident->value;

  return $self;
}


#
# ACCESSORS:
#

sub type      { retu <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	592	694	
==>ko::Construct::Expression::Value::Identifier');

  my $self = bless {
    BLOCK => $block,

    IDENT = <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	667	768	
==>ko::Construct::Expression::Value::Identifier');

  my $self = bless {
    BLOCK => $block,
    IDENT = <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	667	768	
==>ko::Construct::Expression::Value::Identifier');

  my $self = bless {
    BLOCK => $block,
    IDENT = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083963	1084255	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085015	1085307	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086068	1086360	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087121	1087413	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i", <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	2843	2954	
==>vert all statements to the form
    #  { label => optional_label, code => original_op }
    # and construct a ma <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9786	9875	
==>all_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7300	7389	
==>all_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6264	6353	
==>all_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340205	340301	
==>Y" => "#line 128 \"src/ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341204	341300	
==>Y" => "#line 128 \"src/ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342203	342299	
==>Y" => "#line 128 \"src/ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343203	343299	
==>Y" => "#line 128 \"src/ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64194	64326	
==>$2)
					{
						my $pos = pos $grammar;
						substr($grammar,$pos,0,
						       "<leftop: $name $2 $name>($1) ");

						pos $gra <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22183	22290	
==>pression::Value->new($block, $self->require_value);

        $self->require_close_paren;
      }

      $sel <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23116	23223	
==>pression::Value->new($block, $self->require_value);

        $self->require_close_paren;
      }

      $sel <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24762	24868	
==>pression::Value->new($block, $self->require_value);
        $self->require_close_paren;
      }

      $sel <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	886	1008	
==>nit_math()
  init_io()
  init_os()
  init_debug()
  
#
#  PBC loader does not support LuaFunction
#  
  
#  load_b <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	57980	58083	
==>percase characters will eventually
					be used to specify pre-lexed tokens
					in a grammar. That func <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63176	63277	
==>ode$argcode($1)");

						!$matchrule and $rule and $rule->addcall($name);

						_check_insatiable($n <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63897	63998	
==>ode$argcode($1)");

						!$matchrule and $rule and $rule->addcall($name);

						_check_insatiable($n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579624	579716	
==>e(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580929	581021	
==>e(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582234	582326	
==>e(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583540	583632	
==>e(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{= <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19078	19168	
==>scent::Action"))
	{
		$code .= $parser->{_AUTOACTION}->code($namespace,$rule);
		Parse::Rec <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255768	255944	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "xor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256675	256851	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "xor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257583	257759	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "xor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	8839	8974	
==>xt';
    }
    elsif ( $tagname =~ /head[12]/o )
    {
        # Put the up arrow on the end of a heading. 
        # The space is neede <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459910	460093	
==>onError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460898	461081	
==>onError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461886	462069	
==>onError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	45526	45650	
==>e can't assume that \xA0 == nbsp.)
       
       # Note that if you apply nbsp_for_S to text, and so turn
       # "foo S<ba <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722448	722678	
==>reter, io, s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723477	723707	
==>reter, io, s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724521	724751	
==>reter, io, s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	23543	23656	
==>tput;
    print $fh @_;
}    

=item B<output>

    $Test->output($fh);
    $Test->output($file);

Where normal "o <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31967	32093	
==>0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33544	33670	
==>0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38561	38687	
==>0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40601	40727	
==>0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72769	72875	
==>f (p == NULLfunc) {\n      const char * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARN <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74371	74477	
==>f (p == NULLfunc) {\n      const char * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARN <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75973	76079	
==>f (p == NULLfunc) {\n      const char * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARN <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77576	77682	
==>f (p == NULLfunc) {\n      const char * err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARN <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514129	514386	
==>n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515009	515266	
==>n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515889	516146	
==>n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549436	549698	
==>EXT",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550736	550998	
==>EXT",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552037	552299	
==>EXT",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	13594	13706	
==>print_newline $cmt
EOC
}

sub RETURN_VALUE
{
    my ($n, $c, $cmt) = @_;
    my $tos = promote(pop @stack);
    u <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1833	1939	
==>my $name  = $self->ident ? $self->ident->value : undef;
  my $cond  = $self->cond;
  my $left  = $self->lef <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2438	2544	
==>my $name  = $self->ident ? $self->ident->value : undef;
  my $cond  = $self->cond;
  my $left  = $self->lef <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1996	2102	
==>my $name  = $self->ident ? $self->ident->value : undef;
  my $cond  = $self->cond;
  my $left  = $self->lef <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3112	3218	
==>my $name  = $self->ident ? $self->ident->value : undef;
  my $cond  = $self->cond;
  my $left  = $self->lef <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31545	31647	
==>mentation to direct all unknown methods to
the thing referred to.

=cut

sub body
{
    my ($self, $met <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12794	12963	
==>$op, $value);
      next;
    }

    #
    # Block Termination:
    #
    #   }
    #   } continue {
    #   } else {
    #
 
    if ($token->is_close_brace) {
      my $ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8383	8499	
==>h
PIR
	}

	return $pir;
}

sub post_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If destin <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6203	6319	
==>h
PIR
	}

	return $pir;
}

sub post_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If destin <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	11295	11410	
==>, $expect, $name);
}

sub is_num {
    my($self, $got, $expect, $name) = @_;
    local $Level = $Level + 1;

    if( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451114	451323	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451852	452061	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452591	452800	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453329	453538	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769235	769527	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":ba <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770087	770379	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":ba <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770940	771232	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":ba <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771793	772085	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":ba <==
4	/Users/nnunley/parrot/config/init/hints/os2.pm	428	567	
==>t -lcExt -lbsd",
        iv       => "long",
        nv       => "double",
        opcode_t => "long",
        ccflags  => "-I. -fno-strict- <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11018	11105	
==>EMENT_TYPE_VOID goto pre_call_HAS_RETURN_${CURIC}
if "${CURIC}" == "73" goto pre_call_HA <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8204	8291	
==>EMENT_TYPE_VOID goto pre_call_HAS_RETURN_${CURIC}
if "${CURIC}" == "73" goto pre_call_HA <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5866	5953	
==>EMENT_TYPE_VOID goto pre_call_HAS_RETURN_${CURIC}
if "${CURIC}" == "73" goto pre_call_HA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149611	149940	
==>> ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 182,
                  "ARGS" => [
                              " <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	964	1066	
==>NON_LABEL_' . ++$self->{ANON_LBL_COUNT};
}


#
# invert_relop()
#

my %inverted_ops = (
  '==' => '!=', <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349142	349233	
==>tring(interpreter, {{\@2}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, \"+<\");\n  /* <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350144	350235	
==>tring(interpreter, {{\@2}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, \"+<\");\n  /* <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2039	2148	
==>elf,$class);
}

sub YYParse {
    my($self)=shift;
    my($retval);

	_CheckParams( \@params, \%params, <==
4	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	566	672	
==>urn> statement), opcode functions are in the format:

    inline op opname (args) :class,flags {
        .. <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	15664	15767	
==>y $curr_open = ($self->{'curr_open'} ||= []);

  my $scratch;

  DEBUG > 10 and print "# Paragraph buffe <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1967	2069	
==>elf,$class);
}

sub YYParse {
    my($self)=shift;
    my($retval);

	_CheckParams( \@params, \%params, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770029	770272	
==>ccess\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770882	771125	
==>ccess\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771735	771978	
==>ccess\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772589	772832	
==>ccess\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067109	1067232	
==>) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068295	1068418	
==>) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069481	1069604	
==>) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070668	1070791	
==>) {\n    q = floor( (FLOATVAL)temp2/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186030	186143	
==>ing_compare(interpreter, {{\@1}}, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186960	187073	
==>ing_compare(interpreter, {{\@1}}, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187890	188003	
==>ing_compare(interpreter, {{\@1}}, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	622906	623009	
==>cont;\n    opcode_t *dest_pc;\n    void **dest_pred;\n    parrot_context_t *caller_ctx, *ctx;\n    parro <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	5584	5717	
==>f, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^( \+= | \*= | -= | /= | %= )(.*)$}x) {
      push @tokens, Jako::Toke <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1790	1883	
==>e = $dest_sym->type;

  my $left_type;
  if (UNIVERSAL::isa($left, 'Jako::Construct::Expressio <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1748	1841	
==>e = $dest_sym->type;

  my $left_type;
  if (UNIVERSAL::isa($left, 'Jako::Construct::Expressio <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1670	1763	
==>e = $dest_sym->type;

  my $left_type;
  if (UNIVERSAL::isa($left, 'Jako::Construct::Expressio <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27366	27476	
==>t),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;').'
		$lastsep = "";
		$Parse::RecDescent::l <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29476	29586	
==>t),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;').'
		$lastsep = "";
		$Parse::RecDescent::l <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31573	31683	
==>t),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;').'
		$lastsep = "";
		$Parse::RecDescent::l <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	261	355	
==>ols;

=head1 DESCRIPTION

A documentation section describing Parrot tools.

=head2 Class Method <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112862	113093	
==>GS" => [
                              "s",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 187 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359419	359641	
==>r, PIO_STDERR(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360167	360389	
==>r, PIO_STDERR(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360937	361159	
==>r, PIO_STDERR(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381153	381252	
==>rpreter, {{\@1}}, PIO_make_offset({{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382165	382264	
==>rpreter, {{\@1}}, PIO_make_offset({{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383177	383276	
==>rpreter, {{\@1}}, PIO_make_offset({{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384190	384289	
==>rpreter, {{\@1}}, PIO_make_offset({{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072841	1072968	
==>} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075026	1075153	
==>} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077211	1077338	
==>} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079397	1079524	
==>} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667070	667356	
==>" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 74 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667843	668129	
==>" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 74 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668617	668903	
==>" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 74 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669388	669674	
==>" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 74 <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7543	7649	
==>}

	return $pir;
}

# Pre and post store operation hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_r <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5661	5767	
==>}

	return $pir;
}

# Pre and post store operation hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_r <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4503	4609	
==>}

	return $pir;
}

# Pre and post store operation hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_r <==
4	/Users/nnunley/parrot/tools/build/ops2pm.pl	4388	4477	
==>>new( [ ], $nolines_flag );
$real_ops->{PREAMBLE} = $ops->{PREAMBLE};
$real_ops->version($ <==
4	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1384	1516	
==>$language;
        } elsif ($dir_count == 2) {
          $path_to_language = '.';
        } elsif ($dir_count >2) {
          $path_t <==
4	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1869	2001	
==>$language;
        } elsif ($dir_count == 2) {
          $path_to_language = '.';
        } elsif ($dir_count >2) {
          $path_t <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	11946	12041	
==>tialized by default to C<()>.

With no argument, the accessor returns a reference to the
element <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	12683	12778	
==>tialized by default to C<()>.

With no argument, the accessor returns a reference to the
element <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072710	1072843	
==>\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074895	1075028	
==>\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077080	1077213	
==>\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079266	1079399	
==>\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2771	2890	
==>n
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3080	3199	
==>n
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2875	2994	
==>n
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	787	888	
==>tem C<core_prefix()>

The prefix is C<'switch_'>.

=cut

sub core_prefix
{
    return "switch_";
}

=i <==
4	/Users/nnunley/parrot/languages/dotnet/Configure.pl	3154	3345	
==>y
            I18N.CJK
            I18N.MidEast
            I18N.Other
            I18N.Rare
            I18N.West
            I18N
            ICSharpCode.SharpZipLib
            Micr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858611	858703	
==>, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859615	859707	
==>, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860619	860711	
==>, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861624	861716	
==>, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, <==
4	/Users/nnunley/parrot/tools/build/c2str.pl	1448	1555	
==>";
/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically fr <==
4	/Users/nnunley/parrot/tools/build/c2str.pl	3208	3315	
==>";
/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically fr <==
4	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	922	1029	
==>";
/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically fr <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	6550	6657	
==>";
/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically fr <==
4	/Users/nnunley/parrot/tools/dev/symlink.pl	376	481	
==>ename;
use File::Spec;
use Cwd;

my $self = $0;
my $cwd  = getcwd();

$self = readlink($self) while -l $se <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6457	6555	
==>are the array elements by pairs. When two are exchanged,
   ' force another pass by setting Exchang <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16110	16208	
==>are the array elements by pairs. When two are exchanged,
   ' force another pass by setting Exchang <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45863	45960	
==>PROD.'\s*<uncommit';
my $ERRORPROD		= $PROD.'\s*<error';
my $LONECOLON		= '\G\s*:';
my $OTHER		= ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605901	606046	
==>s\"\n    Parrot_add_attribute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606692	606837	
==>s\"\n    Parrot_add_attribute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	23603	23737	
==>ibparrot_shared : $libparrot_static;

            my $iculibs = "";
            if ($PConfig{'has_icu'}) {
                $iculibs = $ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38592	38695	
==>scribe . '}} = $_tok;'). '
		push @item, $_tok;
		' . ($self->{"lookahead"} ? '$text = $_savetext;' : '' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720210	720319	
==>_puts(interpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721410	721519	
==>_puts(interpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	595	695	
==>Unconditionally advance 1 char
# code : Embedded code, in some language

# Stuff that is used for opt <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	7823	7922	
==>($to_unget[-1]->type eq 'text') {
            if( ($text_count_here += length ${$to_unget[-1]->text_ <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28998	29117	
==>function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 89
		DEFAULT => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563942	564049	
==>ops\"\n  VTABLE_add_method(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564840	564947	
==>ops\"\n  VTABLE_add_method(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/config/init/hints/mswin32.pm	180	283	
==>nstep
{
    my ($self, $conf) = @_;

    my ($cc, $ccflags, $libs) = $conf->data->get(qw(cc ccflags libs <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356055	356297	
==>);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359448	359690	
==>);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360196	360438	
==>);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1477	1591	
==>ne-break here
    ;
    
    print {$_[0]{'output_fh'}} $indent, '* "', $text, "\"\n";
  }
  return;
}

sub _handle <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999903	1000213	
==>"CODE" => 1117,
                  "ARGS" => [
                              "i",
                              "i",
                              "s",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494320	494414	
==>ODY" => "#line 590 \"src/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495188	495282	
==>ODY" => "#line 590 \"src/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496056	496150	
==>ODY" => "#line 590 \"src/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126730	127057	
==>);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127865	128192	
==>);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129000	129327	
==>);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5241	5450	
==>" => "inline",
                  "CODE" => 7,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 140 \"src/ops/core.ops\"\n  {{+=2 <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	9088	9222	
==>-',
   46, '.',
   47, '/',
   48, '0',
   49, '1',
   50, '2',
   51, '3',
   52, '4',
   53, '5',
   54, '6',
   55, '7',
   56, '8', <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714680	714776	
==>terpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, PIO_STDOU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715603	715699	
==>terpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, PIO_STDOU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716548	716644	
==>terpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, PIO_STDOU <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1062	1175	
==>mmand( 
            "$PConfig{perl} languages/scheme/schemec languages/$lang_f",
            CD => '..', # $self-> <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1793	1892	
==>out, $stderr, $ret) = capture_output($prog, '--version');

    # don't override the user even if the <==
4	/Users/nnunley/parrot/config/inter/make.pm	1667	1766	
==>out, $stderr, $ret) = capture_output($prog, '--version');

    # don't override the user even if the <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1807	1906	
==>out, $stderr, $ret) = capture_output($prog, '--version');

    # don't override the user even if the <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579632	579726	
==>reter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}};\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580937	581031	
==>reter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}};\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582242	582336	
==>reter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}};\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583548	583642	
==>reter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}};\n" <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	10703	10813	
==>=0;
		$expr=1;
		next;
	}
	unless ($eol) {
		fdprint($fd, "\\n");
	}
	barf();
}
sub parse_read {
	while($type[C <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1950	2058	
==>($ret == -1 and !$conf->options->get('ask')) {

        # fall back to default
        $self->set_result('no' <==
4	/Users/nnunley/parrot/config/inter/make.pm	1824	1932	
==>($ret == -1 and !$conf->options->get('ask')) {

        # fall back to default
        $self->set_result('no' <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1964	2072	
==>($ret == -1 and !$conf->options->get('ask')) {

        # fall back to default
        $self->set_result('no' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848289	848569	
==>er, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849069	849349	
==>er, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853398	853678	
==>er, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854180	854460	
==>er, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080309	1080450	
==>"
                            ],
                  "BODY" => "#line 145 \"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081374	1081515	
==>"
                            ],
                  "BODY" => "#line 145 \"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082439	1082580	
==>"
                            ],
                  "BODY" => "#line 145 \"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083505	1083646	
==>"
                            ],
                  "BODY" => "#line 145 \"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451670	451944	
==>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ad <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452409	452683	
==>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ad <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453147	453421	
==>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ad <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453886	454160	
==>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ad <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1741	1840	
==>prog : $conf->data->get($util));
    }

    my ($stdout, $stderr, $ret) = capture_output($prog, '--v <==
4	/Users/nnunley/parrot/config/inter/make.pm	1615	1714	
==>prog : $conf->data->get($util));
    }

    my ($stdout, $stderr, $ret) = capture_output($prog, '--v <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1755	1854	
==>prog : $conf->data->get($util));
    }

    my ($stdout, $stderr, $ret) = capture_output($prog, '--v <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	4896	4993	
==>he High level language this PMC corresponds to.

=item C<maps Type>

The basic parrot PMC type tha <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616738	617092	
==>,
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 698,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 44 \"src/o <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670638	670748	
==>\n    {{\@1}}->vtable->push_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671411	671521	
==>\n    {{\@1}}->vtable->push_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	2611	2710	
==>ed text in the item's files is converted to HTML and
written to a file in C<$target> and an HTML lin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949919	950239	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950878	951198	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951838	952158	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952798	953118	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2689	2822	
==>lse {
        $liblist = join( ' ', map { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "- <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2998	3131	
==>lse {
        $liblist = join( ' ', map { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "- <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2793	2926	
==>lse {
        $liblist = join( ' ', map { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "- <==
4	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	4308	4415	
==>alue =~ s/^\s+//;
    $value =~ s/\s+$//;

    return $value;
}

=item C<new(@files)>

Returns a new instanc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528074	528372	
==>> 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528955	529253	
==>> 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529837	530135	
==>> 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	14879	14973	
==>ace of each such character, you get a "?".  Latin-1
characters (characters 160-255) are unaffec <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126581	126706	
==>VAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = ( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127716	127841	
==>VAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = ( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128851	128976	
==>VAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = ( <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30247	30367	
==>load type onto the stack types array.
		$pir .= "    stypes = push loadtype\n";

        # Emit code to clone value types <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	15272	15398	
==>op @stack;
    my $l = pop @stack;
    my ($t, $n);
    {
	my $nl = promote($l);
	$n = temp($t = 'P');
	my $nr = $r->[1];
#	$nr <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	14955	15080	
==>op @stack;
    my $l = pop @stack;
    my ($t, $n);
    {
	my $nl = promote($l);
	$n = temp($t = 'P');
	my $nr = $r->[1];
	$nr <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4644	4743	
==>g debugging version of the driver,
#this file will be parsed from 'sub _Parse' up to '}#_Parse' inc <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4410	4508	
==>g debugging version of the driver,
#this file will be parsed from 'sub _Parse' up to '}#_Parse' inc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658694	659085	
==>=> "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 736,
                  "ARGS" => [
                              "i",
                              "p",
                              "kc" <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2331	2450	
==>st = join( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ /gcc/i) {
            $liblist =~ s/gdbm\.lib/-llibgd <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2623	2742	
==>st = join( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ /gcc/i) {
            $liblist =~ s/gdbm\.lib/-llibgd <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2418	2537	
==>st = join( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ /gcc/i) {
            $liblist =~ s/gdbm\.lib/-llibgd <==
4	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	405	513	
==>>{'percent'}\\% \\\\ \n";
}

my $done = 0;
my $total = 0;
map { $done += $_->{'done'}; $total += $_->{'t <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2972	3080	
==>ing Mark found; but Pod::Simple v$Pod::Simple::VERSION doesn't implement UTF16 yet."
        );
        splic <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3370	3478	
==>ing Mark found; but Pod::Simple v$Pod::Simple::VERSION doesn't implement UTF16 yet."
        );
        splic <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	21412	21514	
==>on to using a temporary (not implemented this way; only for
# comparison with <n,m>? above.)
#
# R*? -> <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527127	527398	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_m <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527880	528151	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_m <==
4	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	1	105	
==>!/usr/bin/perl
use strict;

my @results = ();
while (<>) {
	if (/^Translated (\d+) types out of (\d+ <==
4	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	1	105	
==>!/usr/bin/perl
use strict;

my @results = ();
while (<>) {
	if (/^Translated (\d+) types out of (\d+ <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6144	6327	
==>ctions{ACTIONS}{$$token}
                    :   exists($$actions{DEFAULT})
                        ?   $$actions{DEFAULT}
                        :   undef;
        }
        els <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5855	6033	
==>ctions{ACTIONS}{$$token}
                    :   exists($$actions{DEFAULT})
                        ?   $$actions{DEFAULT}
                        :   undef;
        }
        els <==
4	/Users/nnunley/parrot/tools/build/headerize.pl	2389	2498	
==>1];

    $parms =~ s/\s+/ /g;
    $parms =~ s/([^(]+)\s*\((.+)\);?/$2/ or die "Couldn't handle $proto";
    my <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	740	829	
==>ew($block, $token) if $token->kind eq 'ident';
  return Jako::Construct::Expression::Value <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36451	36554	
==>d).
		$pir .= "### typeinfo\n";
		$pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rul <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	35891	35988	
==>ow a warning and exit with 255.  If the test died, even after
having successfully completed all it <==
4	/Users/nnunley/parrot/lib/Test/More.pm	33962	34059	
==>ow a warning and exit with 255.  If the test died, even after
having successfully completed all it <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	2757	2854	
==>ow a warning and exit with 255.  If the test died, even after
having successfully completed all it <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4216	4323	
==>esult,$op,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		return(<<C <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4480	4587	
==>esult,$op,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		return(<<C <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5116	5223	
==>esult,$op,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		return(<<C <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5492	5599	
==>esult,$op,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		return(<<C <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527032	527174	
==>4 \"src/ops/math.ops\"\n  {{\@1}} = asin((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11400	11494	
==>xpression::Value::Identifier->new($block, $token);
      my $op    = substr($self->forth->text, <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11947	12041	
==>xpression::Value::Identifier->new($block, $token);
      my $op    = substr($self->forth->text, <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12490	12584	
==>xpression::Value::Identifier->new($block, $token);
      my $op    = substr($self->forth->text, <==
4	/Users/nnunley/parrot/config/auto/python.pm	10	100	
==>t (C) 2005, The Perl Foundation.
# $Id: /parrot/config/auto/python.pm 19593 2006-05-30T02:2 <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37281	37395	
==>/;
		$pir .= "### end translation\n";

		# Emit code to fix up the stack type array.
		$pir .= <<PIR;
pop_count = e <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666767	666857	
==>e 372 \"src/ops/pmc.ops\"\n  {{\@1}} = VTABLE_elements(interpreter, {{\@2}});\n  {{+=3}};\n <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8513	8601	
==>(i+1);tab$(22);c$(i+2);tab$(32);c$(i+3)
next
print
data "ABANDON","CHART","COMPUTER"
data <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21377	21465	
==>(i+1);tab$(22);c$(i+2);tab$(32);c$(i+3)
next
print
data "ABANDON","CHART","COMPUTER"
data <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29243	29387	
==>=> 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 8 <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41349	41493	
==>=> 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 8 <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44495	44639	
==>=> 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 8 <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	55858	55952	
==>extractor), it is
assumed to have failed to extract.
If none of the extractor subroutines succe <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321642	321933	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u4",
                  "FLAGS" => ":d <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322413	322704	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u4",
                  "FLAGS" => ":d <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323185	323476	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u4",
                  "FLAGS" => ":d <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	18413	18531	
==>>{name} eq 'scan' && $name ne 'default') {
         $tree = $tree->{args}->[0];
     }
     my $op = op('rule' => [ $na <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253825	254131	
==>@2}} : {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254688	254994	
==>@2}} : {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255551	255857	
==>@2}} : {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	14140	14250	
==>$to) eq 'GLOB') { $self->output_fh( $to );
  } elsif(ref($to)) {            $self->output_fh( $to );
  } elsif( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718115	718369	
==>IO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719047	719301	
==>IO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720246	720500	
==>IO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721446	721700	
==>IO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	34699	34843	
==>{#State 126
		ACTIONS => {
			"-" => 72,
			"%" => 76,
			"*" => 80,
			".." => 71,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEF <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	39598	39727	
==>rdwired in that
              # tabs are at every EIGHTH column.  For portability, it has to be
              # one setting everyw <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	14936	15044	
==>s::Tree::rule::reftree {
    my $op = shift;
    my ($rule, $tree) = @{ $op->{args} };
    return [ annotated <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4986	5089	
==>$self, $to) = @_;
  
  return 'TODO';
}

sub do_url_link { return $_[1]->attr('to') }

sub do_man_link { <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2531	2637	
==>cuuc -licudata -lpthread -lm';
        $extraLibs =~ s/blib/..\\blib/g;
        $extraLibs =~ s/\Q$(A)\E/.l <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2840	2946	
==>cuuc -licudata -lpthread -lm';
        $extraLibs =~ s/blib/..\\blib/g;
        $extraLibs =~ s/\Q$(A)\E/.l <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2635	2741	
==>cuuc -licudata -lpthread -lm';
        $extraLibs =~ s/blib/..\\blib/g;
        $extraLibs =~ s/\Q$(A)\E/.l <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	35129	35225	
==>element of the array would be returned. In
a void context, C<$text> would be replaced by an empty <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634583	634679	
==>ass;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpret <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635701	635797	
==>ass;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpret <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636819	636915	
==>ass;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpret <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637938	638034	
==>ass;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpret <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31990	32108	
==>{$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $paramete <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33567	33685	
==>{$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $paramete <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40624	40742	
==>{$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $paramete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242065	242177	
==>ABLE_get_number(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243014	243126	
==>ABLE_get_number(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  { <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	11949	12045	
==>lized by default to C<()>.

With no argument, the accessor returns a reference to the
element's w <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	12686	12782	
==>lized by default to C<()>.

With no argument, the accessor returns a reference to the
element's w <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39028	39258	
==>2}});\n  do_exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39893	40123	
==>2}});\n  do_exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40740	40970	
==>2}});\n  do_exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41588	41818	
==>2}});\n  do_exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	12349	12448	
==>lement value.  If the
element type is C<'*@'>, a reference to the array element is
returned.

As a s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586656	586761	
==>MC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(cla <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587842	587947	
==>MC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(cla <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589028	589133	
==>MC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(cla <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590215	590320	
==>MC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(cla <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	835	937	
==>global_state();
    my $FAIL = $self->genlabel("FAIL");
    $self->{_labels}{'fail'} = $FAIL;
}


sub a <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	555	648	
==>VERSAL::isa($block, 'Jako::Construct::Block');
  confess("Dest (" . ref($dest) . ") is not Ide <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	546	639	
==>VERSAL::isa($block, 'Jako::Construct::Block');
  confess("Dest (" . ref($dest) . ") is not Ide <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	435	528	
==>VERSAL::isa($block, 'Jako::Construct::Block');
  confess("Dest (" . ref($dest) . ") is not Ide <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259196	259463	
==>me(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263550	263817	
==>me(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49712	49961	
==>_JUMP_RESTART",
                  "NAME" => "profile",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50504	50753	
==>_JUMP_RESTART",
                  "NAME" => "profile",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
4	/Users/nnunley/parrot/examples/benchmarks/primes.pl	21	111	
==>t (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/examples/benchmarks/primes.pl 19601 20 <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8312	8432	
==>nt pos
    pos = 0
    .local float value_at
    .local int not_there
    not_there = op1
    inc not_there
    .local pm <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27931	28032	
==>lookahead"} ? '$text = $_savetext;' : '').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse: <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30005	30106	
==>lookahead"} ? '$text = $_savetext;' : '').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse: <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32206	32307	
==>lookahead"} ? '$text = $_savetext;' : '').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse: <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	1555	1654	
==>int "OK"
end if



' Passing string arrays, expect 99 and "Hello"
function foo(i, thing$())
	print i <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1970	2067	
==>reate_path()>

This is called from C<new()> to create the path if necessary.

=cut

sub create_pat <==
4	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	947	1044	
==>reate_path()>

This is called from C<new()> to create the path if necessary.

=cut

sub create_pat <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	16188	16280	
==>ike($$$$)	# ($textref, $prepat, $allow_raw_match)
{
	my ($textref, $pre, $rawmatch, $qmark) = <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2924	3016	
==>dress($address)>

Returns the C code for C<restart ADDRESS($address)>.

=cut

sub restart_add <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3793	3885	
==>dress($address)>

Returns the C code for C<restart ADDRESS($address)>.

=cut

sub restart_add <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3523	3615	
==>dress($address)>

Returns the C code for C<restart ADDRESS($address)>.

=cut

sub restart_add <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	2056	2147	
==>(interpreter);\nPObj_external_SET(final_destination)",
#      B => "Buffer *final_destinatio <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72629	72744	
==>}}));\n\n  funcptr_t p = D2FPTR(Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74231	74346	
==>}}));\n\n  funcptr_t p = D2FPTR(Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75833	75948	
==>}}));\n\n  funcptr_t p = D2FPTR(Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77436	77551	
==>}}));\n\n  funcptr_t p = D2FPTR(Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94367	94685	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95259	95577	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96152	96470	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3647	3743	
==>die "Unrecognized type '$type' for num '$num'" unless exists $arg_maps{$type};

    return sprint <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732817	732987	
==>"i",
                              "nc"
                            ],
                  "BODY" => "#line 129 \"src/ops/set.ops\"\n  {{\@1}} = (INTVAL)({{\@2}});\n  {{+=3} <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	31193	31348	
==>ore rule $name start" ]),
                     aop('setstart', [ "0", '<tmp>' ]),
                     @restore_rxlocals,
                     aop('goto' => <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42478	42580	
==>:RD_TRACE;').'

		push @item, '.($::RD_NO_HITEM ? ''
			       : '$item{'.$self->{hashname}.'}=') . '$_ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32838	32936	
==>:RD_TRACE;').'
		push @item, ' . ($::RD_NO_HITEM ? ''
				 : '$item{'.$self->{hashname}.'}=') . '$_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596712	597066	
==>i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 676,
                  "ARGS" => [
                              "p",
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 337 \"sr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134881	135192	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135774	136085	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136668	136979	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8235	8354	
==>lways have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg = value($reg) <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9017	9136	
==>lways have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg = value($reg) <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7888	8007	
==>lways have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg = value($reg) <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8677	8796	
==>lways have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg = value($reg) <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54143	54257	
==>)
				      or  _no_rule($code,$line);
			}
			elsif ($grammar =~ m/(?=$SKIPMK)/gco
				and do { ($code) = extract_ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	929	1023	
==>->kind } });
  $_->sax($handler) foreach $self->content;
  $handler->end_element({ Name => 'blo <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1942	2036	
==>->kind } });
  $_->sax($handler) foreach $self->content;
  $handler->end_element({ Name => 'blo <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2736	2830	
==>->kind } });
  $_->sax($handler) foreach $self->content;
  $handler->end_element({ Name => 'blo <==
4	/Users/nnunley/parrot/config/inter/libparrot.pm	541	643	
==>ter';

$description = 'Determine if parrot should be linked against a shared library';

@args = qw( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469324	469422	
==>math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exception(interpreter, NULL, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470199	470297	
==>math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exception(interpreter, NULL, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478797	478895	
==>math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exception(interpreter, NULL, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479689	479787	
==>math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exception(interpreter, NULL, <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	240	343	
==>ION;    # make the alpha version come out as a number

# Make Test::Builder thread-safe for ithreads.
BE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072063	1072217	
==>= 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if ( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074248	1074402	
==>= 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if ( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076433	1076587	
==>= 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if ( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078619	1078773	
==>= 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if ( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024325	1024615	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025081	1025371	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025838	1026128	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026594	1026884	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344337	344432	
==>{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free(mode) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345579	345674	
==>{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free(mode) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346821	346916	
==>{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free(mode) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348064	348159	
==>{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free(mode) <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1532	1669	
==>], $verbose);

    unless ($prog) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    if ( <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1546	1683	
==>], $verbose);

    unless ($prog) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    if ( <==
4	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	2858	2959	
==>:Dumper -e
    "use base qw(Pod::Simple::Methody);
     sub start_L { print Dumper( '' . $_[1]{'sectio <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16562	16662	
==>BODY" => "#line 293 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	7575	7700	
==>mallobject'),
            $self->c_pair_item('', 'headers'),
        ),
        $self->new_group(
            'Garbage Collect <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	498	620	
==>ROR %%
power_ok:
    $N1 = %1
    $N2 = %2
    $N1 = pow $N1, $N2
	%1 = $N1

END_PIR

    '\x{d7}' => [ 'Multiply', '%1 = % <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1046	1133	
==>de[i])
#define CONST(i) CONTEXT(interpreter->ctx)->constants[cur_opcode[i]]
END
}

=item <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1162	1249	
==>de[i])
#define CONST(i) CONTEXT(interpreter->ctx)->constants[cur_opcode[i]]
END
}

=item <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22067	22188	
==>id.  (Stack: "
          . $self->_dump_curr_open() . ')'
        );
        DEBUG and print "Ignoring mistargetted =end $ <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5022	5127	
==>e to the source
directory.

=cut

sub contents_relative_to_source
{
    my $self = shift;
    my $source = <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3014	3113	
==>e to the source
directory.

=cut

sub contents_relative_to_source
{
	my $self = shift;
	my $source = <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2801	2889	
==>L<Pod::Simple::PullParser> and L<Pod::Simple>

=head1 COPYRIGHT AND DISCLAIMERS

Copyrigh <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125923	126274	
==>=> 0,
                  "NAME" => "rot",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127057	127408	
==>=> 0,
                  "NAME" => "rot",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128192	128543	
==>=> 0,
                  "NAME" => "rot",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	13034	13148	
==>e);
}

sub isnt_num {
    my($self, $got, $dont_expect, $name) = @_;
    local $Level = $Level + 1;

    if( !defin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842692	842991	
==>> "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 95 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843569	843868	
==>> "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 95 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844447	844746	
==>> "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 95 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845325	845624	
==>> "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 95 <==
4	/Users/nnunley/parrot/config/init/miniparrot.pm	53	140	
==>: /parrot/config/init/miniparrot.pm 20320 2006-06-20T19:26:31.775154Z bernhard  $

=head <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	525	643	
==>= $self->kind;
  my $peer        = $self->peer;

  my $prefix;

  if ($self->prefix) {
    $prefix = $self->prefix;
  } <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	505	623	
==>= $self->kind;
  my $peer        = $self->peer;

  my $prefix;

  if ($self->prefix) {
    $prefix = $self->prefix;
  } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571137	571232	
==>rpreter, {{\@3}});\n    {{\@1}} = Parrot_object_isa(interpreter, {{\@2}}, class);\n    {{+=4}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572092	572187	
==>rpreter, {{\@3}});\n    {{\@1}} = Parrot_object_isa(interpreter, {{\@2}}, class);\n    {{+=4}};\ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1724	1821	
==>nown variable %s.", $dest->value) unless $dest_sym;
  my $dest_type = $dest_sym->type;

  my $left <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1682	1779	
==>nown variable %s.", $dest->value) unless $dest_sym;
  my $dest_type = $dest_sym->type;

  my $left <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1604	1701	
==>nown variable %s.", $dest->value) unless $dest_sym;
  my $dest_type = $dest_sym->type;

  my $left <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	33330	33464	
==>w = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   p <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	34079	34213	
==>w = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   p <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	35003	35137	
==>w = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   p <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	610	703	
==>atim'  => "\n<pre$Computerese>",
  '/Verbatim' => "</pre>\n",
  'VerbatimFormatted'  => "\n<pr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726027	726260	
==>} = string_copy(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726789	727022	
==>} = string_copy(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742007	742240	
==>} = string_copy(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	4191	4324	
==>1, $rev_test, $op2,
                                   rop('goto', [ $continue ]) ]);
        return ($self->rewrite($testop, $lastbac <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	2010	2112	
==>s  { return %{shift->{PROPS}}; }
sub args   { return @{shift->{ARGS}}; }

sub file   { return shift->{F <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2846	2946	
==>s { return %{shift->{PROPS}}; }
sub args  { return @{shift->{ARGS}};  }

sub file  { return shift->{F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467566	467662	
==>ne 376 \"src/ops/math.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(int <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468437	468533	
==>ne 376 \"src/ops/math.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(int <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5679	5768	
==>>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3255	3344	
==>>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2983	3072	
==>>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	6435	6524	
==>>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot: <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2221	2340	
==>liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various libraries in the link line.
        $liblist = join( <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2513	2632	
==>liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various libraries in the link line.
        $liblist = join( <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2308	2427	
==>liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various libraries in the link line.
        $liblist = join( <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17322	17423	
==>_1 ('I');

  _num_arg ($node, 1, 'length');

  my $list = $self->_generate(_get_arg($node,1));

  $sel <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568739	569041	
==>UMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569631	569933	
==>UMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570524	570826	
==>UMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571478	571780	
==>UMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	3677	3782	
==>my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Con <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	4038	4143	
==>my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Con <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	3781	3886	
==>my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Con <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	4142	4247	
==>my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Con <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780682	780776	
==>/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781591	781685	
==>/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782500	782594	
==>/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783410	783504	
==>/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11426	11686	
==>":base_core,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 15,
                  "ARGS" => [
                              " <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	4594	4699	
==>y') {
    # Copy *.so -> destination, where destination is the first
    # argument, given as --destinatio <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	4698	4803	
==>y') {
    # Copy *.so -> destination, where destination is the first
    # argument, given as --destinatio <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3910	4012	
==>y') {
	# Copy *.so -> destination, where destination is the first
    # argument, given as --destinatio <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862115	862474	
==>RS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 978,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 138 \" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92591	92914	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95042	95365	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95935	96258	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":b <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3352	3444	
==>to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = con <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5114	5206	
==>to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = con <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8026	8118	
==>to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = con <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8883	8975	
==>to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = con <==
4	/Users/nnunley/parrot/tools/dev/lib_deps.pl	5262	5361	
==>rintf("Of these, %d are not defined by ANSI C89:\n", scalar(@non_ansi_external_calls));
    
    for <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	331824	332119	
==>dopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333101	333396	
==>dopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334379	334674	
==>dopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335657	335952	
==>dopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018107	1018341	
==>string(interpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019032	1019266	
==>string(interpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019962	1020196	
==>string(interpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020893	1021127	
==>string(interpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90862	91168	
==>{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ba <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91716	92022	
==>{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ba <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92570	92876	
==>{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ba <==
4	/Users/nnunley/parrot/Configure.pl	8449	8548	
==>ion.

Hello, I'm Configure. My job is to poke and prod your system to figure out
how to build Parrot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836754	836928	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837486	837660	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838220	838394	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838952	839126	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1096915	1097046	
==>SS, \n            \"Attempt to get class name of a non-class.\");\n    }\n    else\n    {\n        PMC *key_tail, *key;\n        STR <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4462	4588	
==>) = @_;

    if (@{ $self->{args} } == 0) {
        delete $self->{name};
        delete $self->{args};
        return $self->o <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5599	5725	
==>) = @_;

    if (@{ $self->{args} } == 0) {
        delete $self->{name};
        delete $self->{args};
        return $self->o <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	119465	119724	
==>it.ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120320	120579	
==>it.ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121175	121434	
==>it.ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	4908	5046	
==>elf->c_pair_item('', 'pmc_freeze'),
        ),
        $self->new_group(
            'Objects', 
            '',
            $self->c_pair_ <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	1484	1590	
==>e the trailing slash.
    $parent_path = File::Spec->canonpath($parent_path);
    
    # If we are root the <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632571	632666	
==>(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633613	633708	
==>(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@ <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	8982	9105	
==>{/ or die "bad block open: ", substr($code,0,10), "...";

    while (/ (\{) | (\}) /gx) {
        if($1) {
            $bala <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2169	2256	
==>(UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value::Identifier')) {
    my $rig <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2127	2214	
==>(UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value::Identifier')) {
    my $rig <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2049	2136	
==>(UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value::Identifier')) {
    my $rig <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483646	483741	
==>455 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484645	484740	
==>455 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485644	485739	
==>455 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(i <==
4	/Users/nnunley/parrot/Configure.pl	1467	1560	
==>flags.

=item C<--inline>

Tell Configure that the compiler supports C<inline>.

=item C<--cc= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066964	1067067	
==>ATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068150	1068253	
==>ATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069336	1069439	
==>ATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070523	1070626	
==>ATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30419	30568	
==>> 85,
			'OR' => 84,
			"]" => 150,
			">" => 86
		}
	},
	{#State 98
		ACTIONS => {
			"," => 151,
			")" => 152
		}
	},
	{#State 99
		DE <==
4	/Users/nnunley/parrot/config/auto/inline.pm	1288	1432	
==>no " if $verbose;
            $self->set_result('no');
            $test   = '';
        }
    }

    $conf->data->set(inline => $test);

    ret <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	3245	3346	
==>my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    w <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	3349	3450	
==>my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    w <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59377	59617	
==>1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "warnings <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60025	60265	
==>1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "warnings <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60674	60914	
==>1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "warnings <==
4	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	821	937	
==>exity the
format is:

    op opname (args) :class,flags {
        ... body of function ...
    }

There may be more t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255647	255935	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "xor",
                  "FLAGS" => ":base_core",
                  "ARGD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256554	256842	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "xor",
                  "FLAGS" => ":base_core",
                  "ARGD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257462	257750	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "xor",
                  "FLAGS" => ":base_core",
                  "ARGD <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	8601	8688	
==>nfo->cur_op[i])
#define SREG(i) REG_STR(jit_info->cur_op[i])
#define CONST(i) interprete <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	9958	10079	
==>sult;
    $out .= "\n";

    $self->_print($out);

    unless( $test ) {
        my $msg = $todo ? "Failed (TODO)" : "Fail <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540462	540563	
==>= {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541714	541815	
==>= {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542966	543067	
==>= {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+= <==
4	/Users/nnunley/parrot/editor/ops2vim.pl	169	266	
==>on-globbing OSes
## and make sure at least one command-line parameter has been passed
@ARGV = @ARG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344514	344783	
==>})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345756	346025	
==>})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346998	347267	
==>})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348241	348510	
==>})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	229703	230000	
==>ATIVE",
                  "NAME" => "ge_num",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/config/auto/env.pm	493	606	
==>s        = qw(verbose);

sub runstep
{
    my ($self, $conf) = (shift, shift);

    my $verbose = $conf->options-> <==
4	/Users/nnunley/parrot/config/auto/gdbm.pm	541	647	
==>s = qw(verbose);

sub runstep
{
    my ($self, $conf) = (shift, shift);

    my $verbose = $conf->options-> <==
4	/Users/nnunley/parrot/config/auto/msvc.pm	502	608	
==>s = qw(verbose);

sub runstep
{
    my ($self, $conf) = (shift, shift);

    my $verbose = $conf->options-> <==
4	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	3861	3954	
==>return;
}

=item C<file_for_perl_module($module)>

Returns the Perl module file for the specif <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	5474	5560	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	9115	9201	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	375	461	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	374	460	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	1617	1714	
==>_source_file_with_name($name)), 
                $dist->relative_path($dist->c_header_file_with_na <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21983	22077	
==>self->require_open_paren;

        $left  = Jako::Construct::Expression::Value->new($block, $se <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22916	23010	
==>self->require_open_paren;

        $left  = Jako::Construct::Expression::Value->new($block, $se <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24563	24656	
==>self->require_open_paren;
        $left  = Jako::Construct::Expression::Value->new($block, $se <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176004	176193	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 240 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176908	177097	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 240 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177812	178001	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 240 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178717	178906	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 240 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072510	1072616	
==>n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we use <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074695	1074801	
==>n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we use <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076880	1076986	
==>n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we use <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079066	1079172	
==>n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong because we use <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610637	610915	
==>> "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611539	611817	
==>> "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612442	612720	
==>> "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613348	613626	
==>> "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607015	607295	
==>> "getattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607918	608198	
==>> "getattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608822	609102	
==>> "getattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609729	610009	
==>> "getattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34787	34903	
==>), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "### end translation\n";

		# Now emit code to fix up the <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474075	474174	
==>BODY" => "#line 403 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475066	475165	
==>BODY" => "#line 403 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476057	476156	
==>BODY" => "#line 403 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	3263	3407	
==>ter_misc', 'inter_run'
                ], 
                'headers' => ['interp_guts']
            ),
            $self->c_pair_item('', 'exit') <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	711	805	
==>sa($type, qw(Jako::Construct::Type));
  confess "Identifier (" . ref($ident) . ") is not!" unle <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	736	830	
==>sa($type, qw(Jako::Construct::Type));
  confess "Identifier (". ref($ident) . ") is not!"  unle <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	700	794	
==>sa($type, qw(Jako::Construct::Type));
  confess "Identifier (". ref($ident) . ") is not!"  unle <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500538	500822	
==>0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501276	501560	
==>0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502015	502299	
==>0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502753	503037	
==>0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939641	939897	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940532	940788	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941424	941680	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942316	942572	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
4	/Users/nnunley/parrot/config/gen/makefiles.pm	597	720	
==>lags($conf);

    return $self;
}

sub cflags
{
    my ($self, $conf) = @_;

    genfile(
        'config/gen/makefiles/CFLA <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2113	2203	
==>Cs in the library,
I<or> E<lt>libnameE<gt>.c and pmc_E<lt>libnameE<gt>.h if his object
repr <==
4	/Users/nnunley/parrot/tools/dev/install_files.pl	6138	6249	
==>t;
    }
    else {
	next unless -e $src;
	copy($src, $dest) or die "copy $src to $dest: $!\n";
	print "$dest\n" <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2017	2126	
==>my ($file, $source) = @_;

    print "Checking $file..\n";
    trim_whitespace($file, $source);

    # The fol <==
4	/Users/nnunley/parrot/config/gen/core_pmcs.pm	1656	1754	
==>}_class_init(Interp *, int, int);\n" foreach (@pmcs);

    print OUT <<"END_C";

void Parrot_regist <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33981	34078	
==>ct qw{refs};
		$Parse::RecDescent::lastexpected = ' . ($rule->hasleftmost($self) ? 'q{}'
				# WAS <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	17127	17227	
==>ult->new();
}

sub additem
{
	my ( $self, $item ) = @_;
	$item->sethashname($self);
	push @{$self->{" <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	3615	3749	
==>( $type eq '%' ){
            $out .= "    croak 'Initializer for $name must be hash reference'\n";
            $out .= "        if def <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31802	31931	
==>1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcodes1, new AssignOp( $parser,
            're <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	32453	32582	
==>1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcodes1, new AssignOp( $parser,
            're <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33103	33232	
==>1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcodes1, new AssignOp( $parser,
            're <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867249	867365	
==>});\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "L <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868215	868331	
==>});\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "L <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869181	869297	
==>});\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "L <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870148	870264	
==>});\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "L <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7926	8019	
==>ed $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "No identifier name <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8573	8666	
==>ed $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "No identifier name <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9241	9334	
==>ed $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "No identifier name <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9910	10003	
==>ed $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "No identifier name <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059543	1059806	
==>MP_ENEXT",
                  "NAME" => "find_name",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060447	1060710	
==>MP_ENEXT",
                  "NAME" => "find_name",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679178	679401	
==>ft_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679957	680180	
==>ft_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	208	310	
==>\n/;
}
sub append {
	$curtok.=$cur;
}
sub emit {
	unless ($_[0] eq "STRING" or $_[0] eq "COMM" or $_[0] <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1990	2088	
==>ers/nnunley/parrot/include' . $PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2286	2384	
==>ers/nnunley/parrot/include' . $PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2081	2179	
==>ers/nnunley/parrot/include' . $PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot <==
4	/Users/nnunley/parrot/config/gen/config_h.pm	194	280	
==>1 DESCRIPTION

Generates F<include/parrot/config.h> with platform-specific configuratio <==
4	/Users/nnunley/parrot/tools/build/c2str.pl	3249	3354	
==>T THIS FILE   !!!!!!!
 *
 * This file is generated automatically from '$outfile'
 * by $0.
 *
 * Any chang <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	845	937	
==>truct::Expression::Value::Identifier));
  confess "Value (" . ref($value) . ") is not!" unles <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	1494	1586	
==>gured by running
the <i>Configure.pl</i> script. This is essentially just a wrapper around
<c <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	9392	9476	
==>al.ops src/ops/io.ops src/ops/math.ops src/ops/object.ops src/ops/pic.ops src/ops/pmc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	626606	626891	
==>MP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627749	628034	
==>MP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628893	629178	
==>MP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	36331	36426	
==>nd later, Test::Builder is thread-safe.  The test
number is shared amongst all threads.  This me <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943878	944141	
==>_number_of_str(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944667	944930	
==>_number_of_str(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954318	954581	
==>_number_of_str(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955109	955372	
==>_number_of_str(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2114	2243	
==>E . " " .
        $source;
};

sub partial_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2406	2535	
==>E . " " .
        $source;
};

sub partial_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2201	2330	
==>E . " " .
        $source;
};

sub partial_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2880	2972	
==>eam> is rather like this class.
Pod::Simple::XMLOutStream's output is space-padded in a way
t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227445	227707	
==>1}}), {{\@2}}) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228425	228687	
==>1}}), {{\@2}}) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	315599	315856	
==>",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u1_ovf",
                  "FLAGS" => " <==
4	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2647	2789	
==>R => $lang_out_fn 
                        );
  
        my $builder_func = $language_test_map{$func};
        # That's the reason for:   no st <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10769	10877	
==>::Construct::Block

  confess "No block!"        unless defined $self and ref $self and $self->isa("Jako::Con <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4445	4547	
==>::Construct::Block

  confess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Con <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4952	5054	
==>::Construct::Block

  confess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Con <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10355	10456	
==>::Construct::Block

  confess "No block!" unless defined $self and ref $self and $self->isa("Jako::Con <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25369	25457	
==>preter->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAIL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557942	558030	
==>preter->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAIL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559326	559414	
==>preter->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAIL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560698	560786	
==>preter->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAIL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549353	549504	
==>,
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethodcc",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550653	550804	
==>,
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethodcc",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551954	552105	
==>,
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethodcc",
                  " <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	23687	23795	
==>'~end') { #/////////////////////////////////////////
      # The virtual end-document signal
      
      if( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586886	586998	
==>{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "L <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588072	588184	
==>{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "L <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589258	589370	
==>{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "L <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590445	590557	
==>{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "L <==
4	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	400	514	
==>each my $meth ( qw(is isnt like) ) {
    no strict 'refs';

    *{"URM::Test::output_$meth"} = sub {
        my( $l <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667545	667655	
==>s\"\n    {{\@1}}->vtable->push_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668319	668429	
==>s\"\n    {{\@1}}->vtable->push_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20497	20590	
==>er subclassing to add a C<run> method.

=head1 SEE ALSO

L<Pod::Simple>

L<Pod::Simple::PullPa <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30672	30814	
==>> 77,
			">=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40022	40164	
==>> 77,
			">=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41649	41791	
==>> 77,
			">=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25586	25684	
==>'','sub',[$return,$temp,$return]);
    $self->_restore($temp);
  } else {
    $return = $self->_gen <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7941	8042	
==>f $self and $self->isa("Jako::Construct::Block");
  confess "No identifier name!"  unless defined $nam <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8588	8689	
==>f $self and $self->isa("Jako::Construct::Block");
  confess "No identifier name!"  unless defined $nam <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9256	9357	
==>f $self and $self->isa("Jako::Construct::Block");
  confess "No identifier name!"  unless defined $nam <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9925	10026	
==>f $self and $self->isa("Jako::Construct::Block");
  confess "No identifier name!"  unless defined $nam <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672258	672572	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673030	673344	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673800	674114	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	674571	674885	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGD <==
4	/Users/nnunley/parrot/config/init/hints/darwin.pm	330	480	
==>chomp $OSVers;
    {
        local $^W;
        if ($OSVers >= 7) {
            $libs =~ s/-ldl//;
        }
    }

    $ccflags .= " -pipe -fno-common <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	1286	1404	
==>TOKENS}};
  }
}


#
# token_count()
#
# Returns the number of tokens.
#

sub count
{
  my $self = shift;

  return scal <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826392	826481	
==>146 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, C <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827462	827551	
==>146 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, C <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	602	707	
==>pe = ref($tree);

    my ($stem) = $type =~ /^P6C::(\w+)$/
      or confess "Unrecognized type '$type' (tr <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	18061	18164	
==>'$start', 2, undef
	],
	[#Rule 1
		 'rules', 2,
sub
#line 73 "lib/Regex/Grammar.y"
{ return [ @{ $_[1] } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44924	45014	
==>DY" => "#line 737 \"src/ops/core.ops\"\n  Parrot_pop_mark(interpreter, {{\@1}});\n  {{+=2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45566	45656	
==>DY" => "#line 737 \"src/ops/core.ops\"\n  Parrot_pop_mark(interpreter, {{\@1}});\n  {{+=2}} <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6231	6349	
==>tern) {
        my ($name, $subpat) = @$ruleRow;
        $subpat = _parrot_stringify($subpat);

        $pirCode .= qq( <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8827	8943	
==>r i = 0 to 100
	b=rnd*max+1
	a(b)=a(b)+1
next i
for i = 1 to max
	print ,
	for j = 0 to a(i)
		print "*";
	next j
	pr <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20068	20184	
==>r i = 0 to 100
	b=rnd*max+1
	a(b)=a(b)+1
next i
for i = 1 to max
	print ,
	for j = 0 to a(i)
		print "*";
	next j
	pr <==
4	/Users/nnunley/parrot/tools/build/pbc2c.pl	6770	6879	
==>opcodes{$pc}->{args}});
	    my $source = $op->source($trans);

	    $new_pc = $pc + $op->size;
	    $source = <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	2459	2576	
==>, it is not passed to subsections.

=cut

sub write_docs
{
    my $self = shift;
    my $silent = shift || 0;
    my $ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	43506	43611	
==>ub DESTROY {}  # SO AUTOLOADER IGNORES IT

# BUILDING A GRAMMAR....

sub Replace ($$)
{
	# This splice hit <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359358	359445	
==>&& string_length(interpreter, s)) {\n    PIO_putps(interpreter, PIO_STDERR(interpreter), <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360106	360193	
==>&& string_length(interpreter, s)) {\n    PIO_putps(interpreter, PIO_STDERR(interpreter), <==
4	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	2020	2115	
==>tart of a new method?
        if ($line =~ /^\[([\w\.]+)\s*\:\:\s*(\w+)\s*(\:unimplemented)?\s*\ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	927	1022	
==>mple, parsing a "=head1 ..." line will give you
a start-token with the tagname of "head1", token <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1355	1450	
==>mple, parsing a "=head1 ..." line will give you
a start-token with the tagname of "head1", token <==
4	/Users/nnunley/parrot/lib/Test/More.pm	8536	8631	
==>sts $brooklyn{tree}> is true, it checks if
it returns 1.  Very different.  Similar caveats exist <==
4	/Users/nnunley/parrot/config/auto/cgoto.pm	565	681	
==>f, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('skipped');
        return $s <==
4	/Users/nnunley/parrot/config/auto/headers.pm	500	616	
==>f, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('skipped');
        return $s <==
4	/Users/nnunley/parrot/config/auto/jit.pm	651	767	
==>f, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('skipped');
        return $s <==
4	/Users/nnunley/parrot/config/gen/cpu.pm	563	679	
==>f, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('skipped');
        return $s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199551	199848	
==>FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 236,
                  "ARGS <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32079	32180	
==>@args) if @args;
    $parameters = ", $parameters" if $parameters;
    my $body = "VTABLE_$meth(interp <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33656	33757	
==>@args) if @args;
    $parameters = ", $parameters" if $parameters;
    my $body = "VTABLE_$meth(interp <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40713	40814	
==>@args) if @args;
    $parameters = ", $parameters" if $parameters;
    my $body = "VTABLE_$meth(interp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615089	615378	
==>{{\@1}} = offset;\n    {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616240	616529	
==>{{\@1}} = offset;\n    {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PA <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	4718	4871	
==>}
            $comment[0]  =~ s{^}{/*\n};     # '/*'
            $comment[-1] =~ s{$}{\n */};    # ' */'
        } else {
            die "Unknown comment <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	5917	6044	
==>e, $line, 'infix-arith', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^( ~= )(.*)$}x) {
      push @token <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	869	976	
==>Returns the C C<#define> macros required by the ops.

=cut

sub defines
{
    return <<END;
#define REL_PC ( <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	825	932	
==>Returns the C C<#define> macros required by the ops.

=cut

sub defines
{
    return <<END;
#define REL_PC ( <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	999	1106	
==>Returns the C C<#define> macros required by the ops.

=cut

sub defines
{
    return <<END;
#define REL_PC ( <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	544	651	
==>Returns the C C<#define> macros required by the ops.

=cut

sub defines
{
    return <<END;
#define REL_PC ( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028231	1028451	
==>}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_A <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029082	1029302	
==>}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_A <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029923	1030143	
==>}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_A <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	1337	1444	
==>ld be at least one
path otherwise an exception is raised.

=cut

sub new
{
    my $self = ref $_[0] ? ref sh <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553843	553948	
==>ect;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+4}};\n  i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555240	555345	
==>ect;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+4}};\n  i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9048	9149	
==>me_offset = fe->offset;\n        Parrot_switch_to_cs(interpreter, fe->seg, 1);\n    }\n    string_cstr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10164	10265	
==>me_offset = fe->offset;\n        Parrot_switch_to_cs(interpreter, fe->seg, 1);\n    }\n    string_cstr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750452	750674	
==>string_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756761	756983	
==>string_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757551	757773	
==>string_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	7471	7602	
==>tty, but it really does make things pretty.
        #
        while(1) {
          push @to_unget, $self->get_token;
          pop(@ <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27638	27758	
==>truction'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end trans <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30105	30225	
==>truction'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end trans <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33523	33643	
==>truction'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end trans <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37187	37307	
==>truction'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end trans <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51712	51815	
==>rc/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_trace(interpreter,   {{\@1}}); }\n  else         { P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52495	52598	
==>rc/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_trace(interpreter,   {{\@1}}); }\n  else         { P <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1805	1904	
==>elf{VERSION} < $COMPATIBLE
	and	croak "Yapp driver version $VERSION ".
			  "incompatible with ver <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1741	1838	
==>elf{VERSION} < $COMPATIBLE
	and	croak "Yapp driver version $VERSION ".
			  "incompatible with ver <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584470	584568	
==>rpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585545	585643	
==>rpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597986	598084	
==>rpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599033	599131	
==>rpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	424998	425321	
==>"o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 488,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 572 \"src/ <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39783	39927	
==>des = ();
        my $main = new defn( '_main', 'fct' );
        push @opcodes, new SubDir( $parser,
            'prolog' => 1,
            ' <==
4	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1413	1527	
==>re::Data->new,
    };

    bless $self, ref $class || $class;

    return $self;
}

=back

=head3 Object Methods

= <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2702	2796	
==>nterpreter))";
}

=item C<expr_address($address)>

Same logic as C<expr_pop()>.

=cut

sub expr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669775	669911	
==>c"
                            ],
                  "BODY" => "#line 410 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->push_float(interpreter <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	8382	8484	
==>f ($syms[CURR] eq "input") {
		$mode="<";
	} elsif ($syms[CURR] eq "output") {
		$mode=">";
	} elsif ($ <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	30333	30435	
==>(Note that this
# is not the same as a manpage section like the "5" in "man 5 crontab".
# "Section Foo" <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1040	1140	
==>{
    my $test := $got eq $expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depend <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24814	24928	
==>self->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self-> <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25825	25939	
==>self->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self-> <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26713	26827	
==>self->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self-> <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27723	27837	
==>self->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self-> <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24817	24932	
==>f->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_gen <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25828	25943	
==>f->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_gen <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26716	26831	
==>f->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_gen <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27726	27841	
==>f->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_gen <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	230710	231100	
==>core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 269,
                  "ARGS" => [
                              "i",
                              "i",
                              "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362169	362526	
==>GDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 424,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#lin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358941	359190	
==>err",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 420,
                  "ARGS" = <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	1533	1641	
==>ially undefined
    # strings.  Just pass back the original in that case.  Don't
    # bother warning.  --AD, <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1101	1221	
==>$ident->file,
    LINE   => $ident->line,
  }, $class;

  #
  # Check for a few bad conditions.
  #
  # NOTE: These are c <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1004	1124	
==>$ident->file,
    LINE   => $ident->line,
  }, $class;

  #
  # Check for a few bad conditions.
  #
  # NOTE: These are c <==
4	/Users/nnunley/parrot/config/inter/lex.pm	562	672	
==>$prompt      = "Do you have a lexical analyzer generator like flex or lex?";
@args        = qw( lex ask maintai <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	4898	4994	
==>t2[0]->{label} ||= $self->{state}->genlabel("beginning");

    # Stick in a next_stmt ref in ever <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740880	741238	
==>RGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 833,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 1 <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	14343	14470	
==>CODE' => 6,
			"." => 15
		},
		GOTOS => {
			'expr' => 45,
			'charclass' => 12
		}
	},
	{#State 27
		ACTIONS => {
			"?" => 46 <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	10770	10876	
==>Transcode::->make_transcoder($e);
    eval {
      my @x = ('', "abc", "123");
      $self->{'_transcoder'} <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13791	13888	
==><reject> during parsing)"
				: "an unconditional <reject>";
		my $caveat = $items[0]->describe =~ <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	857	971	
==>defines()>

Returns the C C<#define> macros required by the ops.

=cut

sub defines
{
    return <<END;
#define REL <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	813	927	
==>defines()>

Returns the C C<#define> macros required by the ops.

=cut

sub defines
{
    return <<END;
#define REL <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	987	1101	
==>defines()>

Returns the C C<#define> macros required by the ops.

=cut

sub defines
{
    return <<END;
#define REL <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	532	646	
==>defines()>

Returns the C C<#define> macros required by the ops.

=cut

sub defines
{
    return <<END;
#define REL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591580	591679	
==>l_exception(interpreter, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592790	592889	
==>l_exception(interpreter, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594000	594099	
==>l_exception(interpreter, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595211	595310	
==>l_exception(interpreter, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6068	6179	
==>ps/core.ops\"\n    Parrot_load_bytecode(interpreter, {{\@1}});\n    {{+=2}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6734	6845	
==>ps/core.ops\"\n    Parrot_load_bytecode(interpreter, {{\@1}});\n    {{+=2}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	16161	16261	
==>mp eq '=~' ? "doesn't match" : "matches";
        $self->diag(sprintf <<DIAGNOSTIC, $this, $match, $r <==
4	/Users/nnunley/parrot/config/auto/gc.pm	1435	1558	
==>ess ($@) {
      $test = cc_run();
    }
    cc_clean();
    # used size should be somewhere here
    unless ($test >= 128 & <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22052	22169	
==>lass = ref($_[0]) || $_[0];
	bless 
	{
		"code"      => $_[1],
		"lookahead" => $_[2],
		"line"      => $_[3],
		"name <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361653	361752	
==>n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, INTVAL_FMT, {{\@2}});\n    P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362552	362651	
==>n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, INTVAL_FMT, {{\@2}});\n    P <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	20388	20509	
==>LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new NewOp( $parser,
        'result' => $res <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21667	21788	
==>LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new NewOp( $parser,
        'result' => $res <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	22810	22931	
==>LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new NewOp( $parser,
        'result' => $res <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	11707	11812	
==>op_and {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_const <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540549	540659	
==>{{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541801	541911	
==>{{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543053	543163	
==>{{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if <==
4	/Users/nnunley/parrot/tools/build/ops2c.pl	2348	2441	
==>erbose => 0, -output => \*STDERR);
}

my ( $nolines_flag, $help_flag, $dynamic_flag, $core_fla <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	751244	751352	
==>ative(interpreter, {{\@1}},\n    string_copy(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	44826	44932	
==>rint "Formatting <$formatting>    on <", $p->[$i-1], ">\n";


    my @new_line;
    while( $formatting =~ m <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1206	1299	
==>eed to do this.

=item $token->tag(...)

A shortcut for $token->tagname(...)

=item $token->is <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1636	1729	
==>eed
to do this.

=item $token->tag(...)

A shortcut for $token->tagname(...)

=item $token->is <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351973	352285	
==>_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 410,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 19 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127377	127675	
==>"inline",
                  "CODE" => 157,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 271 \"src/ops/bit.o <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4848	4948	
==>ch {
    my ($self, $incexc, $failLabel) = @_;

    my $passLabel = $self->{state}->genlabel("pass_ch <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4512	4612	
==>ch {
    my ($self, $incexc, $failLabel) = @_;

    my $passLabel = $self->{state}->genlabel("pass_ch <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11550	11664	
==>:Value->new($block, $self->forth);

      $self->require_semicolon;

      my $arith = Jako::Construct::Statement:: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16495	16609	
==>:Value->new($block, $self->forth);

      $self->require_semicolon;

      my $arith = Jako::Construct::Statement:: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17266	17380	
==>:Value->new($block, $self->forth);

      $self->require_semicolon;

      my $arith = Jako::Construct::Statement:: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18071	18185	
==>:Value->new($block, $self->forth);

      $self->require_semicolon;

      my $arith = Jako::Construct::Statement:: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544146	544253	
==>NTVAL gcd = 0;\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545482	545589	
==>NTVAL gcd = 0;\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546818	546925	
==>NTVAL gcd = 0;\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{ <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	30409	30503	
==>uote delimited string, the
following code is typically used:

	($remainder = $text) =~ s/\A('(\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579319	579419	
==>interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    r <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580624	580724	
==>interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    r <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581929	582029	
==>interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    r <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583235	583335	
==>interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    r <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769847	770001	
==>"
                            ],
                  "BODY" => "#line 350 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANI <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770700	770854	
==>"
                            ],
                  "BODY" => "#line 350 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANI <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771553	771707	
==>"
                            ],
                  "BODY" => "#line 350 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANI <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772407	772561	
==>"
                            ],
                  "BODY" => "#line 350 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANI <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	24854	24968	
==>er_nci_method(interp, entry,
                F2DPTR(Parrot_${classname}_$method->{meth}),
                "$method- <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2187	2276	
==>ight, 'Jako::Construct::Expression::Value::Identifier')) {
    my $right_sym = $block->fin <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2145	2234	
==>ight, 'Jako::Construct::Expression::Value::Identifier')) {
    my $right_sym = $block->fin <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2067	2156	
==>ight, 'Jako::Construct::Expression::Value::Identifier')) {
    my $right_sym = $block->fin <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	6447	6565	
==>t = $stmt;
    }

    # Eliminate gotos to the following address
    my @output4;
    foreach my $stmt (@output3) {
	if <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2126	2230	
==>it the code for the segment
	foreach(@{$code{$seg}->{code}}) {
		s/#RTJ// if $runtime_jump;
		if (/#SAVEC <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8554	8657	
==>{code}}, "\t# $syms[CURR]\n";
		goto PARSE;
	}
	if ($type[CURR] eq "INT" and 
		($type[NEXT] eq "BARE" o <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	872	973	
==>t_label_use($failLabel);
}

sub output_classmatch {
    my ($self, $class, $failLabel) = @_;
    retur <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	3074	3190	
==>xt;
    }

    if ($text =~ m{^([:])(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, 'colon', un <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14530	14636	
==>et_token(@to_unget);
  
  if(DEBUG) {
    if(defined $title) { print "  Returing title <$title>\n" }
    el <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	23095	23201	
==>et_token(@to_unget);
  
  if(DEBUG) {
    if(defined $title) { print "  Returing title <$title>\n" }
    el <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	761	851	
==>UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Left is not Value!" unless UNI <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	773	863	
==>UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Left is not Value!" unless UNI <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	707	799	
==>t!"  unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type (" . ref($typ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	582	673	
==>t!" unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type (" . ref($typ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	591	681	
==>t!" unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type (". ref($typ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	573	663	
==>t!" unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type (". ref($typ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108910	109233	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111358	111681	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112250	112573	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" = <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	5124	5268	
==>setjmp' => 'define',
             'i_sfio' => undef,
             'i_sgtty' => undef,
             'i_shadow' => undef,
             'i_signal' = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104910	105201	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105647	105938	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	106385	106676	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":b <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4293	4409	
==>e;" . $comment);
    if ($self->{DEBUG}) {
        push @ops, 'print "matched('.chr($code).') at ";';
        push @o <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080438	1080573	
==>}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081503	1081638	
==>}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082568	1082703	
==>}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083634	1083769	
==>}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new <==
4	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1177	1282	
==>tandard' and remove the -O1 option if it does.
        # This will prevent the 'optimization is not availa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553950	554040	
==>terpreter->current_object = object;\n  interpreter->current_cont = {{\@3}};\n  interpreter- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555347	555437	
==>terpreter->current_object = object;\n  interpreter->current_cont = {{\@3}};\n  interpreter- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556735	556825	
==>terpreter->current_object = object;\n  interpreter->current_cont = {{\@3}};\n  interpreter- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381244	381511	
==>er, NULL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382256	382523	
==>er, NULL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383268	383535	
==>er, NULL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384281	384548	
==>er, NULL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332432	332535	
==>_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333710	333813	
==>_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334988	335091	
==>_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336267	336370	
==>_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586891	587004	
==>} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588077	588190	
==>} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589263	589376	
==>} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590450	590563	
==>} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207046	207400	
==>",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 244,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 394 \" <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	4123	4246	
==>UG > 8) {
        print "* I've gotten ", scalar(@lines), " lines:\n";
        foreach my $l (@lines) {
          if(defined <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352282	352371	
==>e 195 \"src/ops/io.ops\"\n  PIO_printf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352940	353029	
==>e 195 \"src/ops/io.ops\"\n  PIO_printf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\ <==
4	/Users/nnunley/parrot/lib/Test/More.pm	2077	2178	
==>an_ok($module, @methods);
  isa_ok($object, $class);

  pass($test_name);
  fail($test_name);

  # UNI <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	17884	17978	
==>llParser has to have defined a $parser->run method --
so it is advised that all Pod::Simple::Pu <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	38433	38527	
==>> $listref>

The list reference contains one or more strings specifying patterns
that are I<not <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028075	1028173	
==>0) {\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  ne <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028926	1029024	
==>0) {\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  ne <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029778	1029876	
==>0) {\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  ne <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030620	1030718	
==>0) {\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  ne <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586650	586747	
==>"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587836	587933	
==>"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589022	589119	
==>"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590209	590306	
==>"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5660	5890	
==>=> 0,
                  "NAME" => "load_bytecode",
                  "FLAGS" => ":load_file",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inli <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6325	6555	
==>=> 0,
                  "NAME" => "load_bytecode",
                  "FLAGS" => ":load_file",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inli <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	26906	27010	
==>may_be_none{$c};
		print <<"EOC";
	    ne_addr $c, None, temp_$code_l
	    $c = new $DEFVAR
temp_$code_l: <==
4	/Users/nnunley/parrot/config/auto/pack.pm	39	129	
==>ndation.
# $Id: /parrot/config/auto/pack.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=hea <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426160	426248	
==>ops/math.ops\"\n  mmd_dispatch_v_pi(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427047	427135	
==>ops/math.ops\"\n  mmd_dispatch_v_pi(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\ <==
4	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	743	826	
==>nchmarks/stress.pl>, 
F<examples/benchmarks/stress1.pasm>, 
F<examples/benchmarks/st <==
4	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	590	673	
==>nchmarks/stress.pl>, 
F<examples/benchmarks/stress1.pasm>, 
F<examples/benchmarks/st <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627067	627165	
==>\"src/ops/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_except <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628211	628309	
==>\"src/ops/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_except <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632469	632567	
==>\"src/ops/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_except <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633511	633609	
==>\"src/ops/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_except <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913561	913978	
==>",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1029,
                  "ARGS" => [
                              "i",
                              "sc",
                              "s",
                              "i"
                            ],
                  "BODY" => "#lin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	31213	31420	
==>}\n    argc = SIG_ELEMS(signature);\n    {{+=argc + 2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8696	8811	
==>there
    .return (result)
.end

.sub unicode:"dyadic:\u25cb"          # circle
    .param num op1
    .param num op <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	10494	10591	
==>ME => TYPE, ...

Each name-type pair declares one element of the struct. Each
element name will be <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544200	544300	
==>0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = a, saved <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545536	545636	
==>0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = a, saved <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546872	546972	
==>0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = a, saved <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	355	449	
==>anguages.

=head2 Class Methods

=over

=cut

package Parrot::Docs::Section::Languages;

use st <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125348	125617	
==>",
                  "CODE" => 155,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 257 \"src/ops/bit.ops\"\n  {{\@1} <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	11816	11930	
==>\d)}},\s*{{\@(\d)}}
        \);
        \s+{{\+=\d}}/xm) {
            $jit_func = "Parrot_jit_vtable_$1r$2$4$5_op" <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14057	14154	
==>IL_$label"]);
    $self->_add_inst ('', 'set', [$return,1]);
    $self->_add_inst ('', 'branch', [ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16329	16422	
==>IL_$label"]);
  $self->_add_inst ('', 'set', [$return,1]);
  $self->_add_inst ('', 'branch', [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369665	369920	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905340	905457	
==>@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906359	906476	
==>@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907378	907495	
==>@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908398	908515	
==>@1}} = {{\@2}}->vtable->substr_str(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344072	344225	
==>"
                            ],
                  "BODY" => "#line 148 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * cons <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345314	345467	
==>"
                            ],
                  "BODY" => "#line 148 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * cons <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346556	346709	
==>"
                            ],
                  "BODY" => "#line 148 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * cons <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347799	347952	
==>"
                            ],
                  "BODY" => "#line 148 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * cons <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099255	1099379	
==>e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n\tres = 1.0/res;\n    }\n    { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100453	1100577	
==>e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n\tres = 1.0/res;\n    }\n    { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101651	1101775	
==>e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n\tres = 1.0/res;\n    }\n    { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102850	1102974	
==>e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n\tres = 1.0/res;\n    }\n    { <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5589	5675	
==>=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CG <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	18742	18860	
==>., unless it's one word
        $self->whine(
          $para->[1]{'start_line'},
          "'=begin' only takes one pa <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	4340	4443	
==>{
			$promptcode.=qq{\tnoop  # No ?\n};
		} elsif ($syms[CURR] eq ";") {
			$promptcode.=qq{\tprint "?"\ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	562	649	
==>ess UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');

  my $sel <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	637	724	
==>ess UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');

  my $sel <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	637	724	
==>ess UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');

  my $sel <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332638	332735	
==>ee(mode); */\n  /* TODO all results from string_to_cstring() need freeing\n     but this generates <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333916	334013	
==>ee(mode); */\n  /* TODO all results from string_to_cstring() need freeing\n     but this generates <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335194	335291	
==>ee(mode); */\n  /* TODO all results from string_to_cstring() need freeing\n     but this generates <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336473	336570	
==>ee(mode); */\n  /* TODO all results from string_to_cstring() need freeing\n     but this generates <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90307	90604	
==>E" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91160	91457	
==>E" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92014	92311	
==>E" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	866448	866705	
==>",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	2781	2911	
==>n";
    }
    while( $idx < @decls ){
        $name = $decls[$idx];
        $type = $decls[$idx+1];
        push( @methods, $name ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236602	236710	
==>s/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237484	237592	
==>s/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238366	238474	
==>s/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769964	770069	
==>{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770817	770922	
==>{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771670	771775	
==>{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772524	772629	
==>{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}} <==
4	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	930	1035	
==>: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically from '$c <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	372	476	
==>Base/;

# Constructor. Just base this class on a hash.
sub new() {
	my $invocant = shift;
	return bless { <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	278	382	
==>Base/;

# Constructor. Just base this class on a hash.
sub new() {
	my $invocant = shift;
	return bless { <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	186	290	
==>Base/;

# Constructor. Just base this class on a hash.
sub new() {
	my $invocant = shift;
	return bless { <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3421	3579	
==>STACK}[-1][0]]{ACTIONS}}
}

sub YYLexer {
    my($self)=shift;

	$$self{LEX};
}


#################
# Private stuff #
#################


sub _C <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3249	3392	
==>STACK}[-1][0]]{ACTIONS}}
}

sub YYLexer {
    my($self)=shift;

	$$self{LEX};
}


#################
# Private stuff #
#################


sub _C <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15298	15413	
==>32768)?ord($1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # return a single scalar
    ($x = ((@_ == 1) <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16479	16594	
==>32768)?ord($1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # return a single scalar
    ($x = ((@_ == 1) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83642	83734	
==>c/ops/core.ops\"\n  PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interpreter,\n      i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84548	84640	
==>c/ops/core.ops\"\n  PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interpreter,\n      i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85453	85545	
==>c/ops/core.ops\"\n  PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interpreter,\n      i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86360	86452	
==>c/ops/core.ops\"\n  PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interpreter,\n      i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028406	1028568	
==>( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sleep",
                  "FLAGS" => "",
                  "A <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029257	1029419	
==>( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sleep",
                  "FLAGS" => "",
                  "A <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030098	1030260	
==>( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sleep",
                  "FLAGS" => "",
                  "A <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41182	41278	
==>ove
  my($self, $name) = splice @_,0,2;

  my $scratch;
  $self->_handle_element_start(($scratch= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843206	843391	
==>s/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844084	844269	
==>s/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844962	845147	
==>s/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845841	846026	
==>s/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37214	37338	
==>" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 176,
			'functioncall' <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5348	5496	
==>result} } ) {
                print {$FH} ", " unless ($first);
                print {$FH} "$_->{symbol}";
                if ( exists $_->{pragm <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6380	6528	
==>result} } ) {
                print {$FH} ", " unless ($first);
                print {$FH} "$_->{symbol}";
                if ( exists $_->{pragm <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	9790	9926	
==>result} } ) {
            print {$FH} ", " unless ($first);
            print {$FH} "$_->{symbol}";
            if ( exists $_->{pragm <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	14482	14592	
==>unshift @{$def_args{$f}}, $gn;
	}
    }
    if ($cur_func =~ /Build::(\w+)/) {   ## XXX && $f ne '__new__'
	$na <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	23796	23919	
==>stack;
	    unshift @args, $t->[1];
	}
	for (my $i = 0; $i < $nf; $i++) {
	    my $arg = pop @stack;
	    unshift @args, pro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540442	540542	
==>{{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541694	541794	
==>{{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542946	543046	
==>{{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332261	332410	
==>"
                            ],
                  "BODY" => "#line 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333539	333688	
==>"
                            ],
                  "BODY" => "#line 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334817	334966	
==>"
                            ],
                  "BODY" => "#line 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336096	336245	
==>"
                            ],
                  "BODY" => "#line 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * c <==
4	/Users/nnunley/parrot/tools/build/pbc2c.pl	231	329	
==>SIS

    perl tools/build/pbc2c foo.pbc > foo.c

=head1 DESCRIPTION

Parse the Parrot PackFile list <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630221	630462	
==>nline",
                  "CODE" => 706,
                  "ARGS" => [
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 81 \"src/ops/pmc.ops\"\n    PMC *cla <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	14768	14925	
==>s->[$i] =~ /^\((.+)\*\)&(.+)$/) {
                $temp[$i] = [ $1, $2 ];
                $args->[$i] = "&arg$i";
            }
        }
        my $call_par <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	1520	1627	
==>6
if ( y > 0 ) and (x > 0) then
	print "OK"
end if



' Passing string arrays, expect 99 and "Hello"
functio <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	6588	6688	
==>pcount"} = 0;
	$self->{"opcount"} = 0;
	$prod->{"number"} = $#{$self->{"prods"}};
	return $prod;
}

s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072031	1072147	
==>TVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074216	1074332	
==>TVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076401	1076517	
==>TVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078587	1078703	
==>TVAL xkp1 = 0;\n\n  INTVAL ykm1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVA <==
4	/Users/nnunley/parrot/config/auto/gc.pm	2478	2599	
==>=> "\$(SRC_DIR)/resources\$(O)",
            gc_flag   => '',
        );
    }
    print(" ($gc) ") if $conf->options->get <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	713	804	
==>fined $right;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Blo <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	725	816	
==>fined $right;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Blo <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	234	325	
==>ot::Docs::Section::Docs;

=head1 DESCRIPTION

A documentation section describing all the POD <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	40254	40376	
==>et-syntax'          => \&_op_let_syntax,
  'syntax'              => \&_op_syntax,
  'identifer?'          => \&_op_identifi <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	12084	12203	
==>um = (double)GET_NCI_N($reg_num);";
        return "t_$temp_num";
    };
    /N/ && do {
        push @{$temps_ref}, "FL <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	19592	19707	
==>eelet->[$i] and $treelet->[$i][0] eq 'X') {
        DEBUG > 3 and print "   Nixing X node at $i\n";
        splice(@ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	886	995	
==>mit("${prefix}_NEXT:");

    my $op    = $self->op;
    my $left  = $self->left->compile($compiler);
    my $r <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11126	11246	
==>g;
        # Yes, stipulate the list without a range, so that this can work right on
        #  all charsets that this mo <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4475	4593	
==>g;
       # Yes, stipulate the list without a range, so that this can work right on
       #  all charsets that this mo <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1971	2083	
==>g;
    # Yes, stipulate the list without a range, so that this can work right on
    #  all charsets that this mo <==
4	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2074	2186	
==>g;
    # Yes, stipulate the list without a range, so that this can work right on
    #  all charsets that this mo <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	866661	866961	
==>"substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 98 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867626	867926	
==>"substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 98 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868592	868892	
==>"substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 98 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869558	869858	
==>"substr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 98 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950596	950855	
==>g_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951556	951815	
==>g_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952516	952775	
==>g_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953477	953736	
==>g_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28125	28224	
==>xpected;
				$Parse::RecDescent::unexpected
				   = ($lastsep||"").$text;
			}'.($::RD_NO_TRACE?'': <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30199	30298	
==>xpected;
				$Parse::RecDescent::unexpected
				   = ($lastsep||"").$text;
			}'.($::RD_NO_TRACE?'': <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32400	32499	
==>xpected;
				$Parse::RecDescent::unexpected
				   = ($lastsep||"").$text;
			}'.($::RD_NO_TRACE?'': <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4291	4378	
==>',
 'codeblock_halfpoint_size',
 'header_halfpoint_size',
 'normal_halfpoint_size',
 'no <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867204	867304	
==>n;\n  len = string_length(interpreter, {{\@2}});\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868170	868270	
==>n;\n  len = string_length(interpreter, {{\@2}});\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869136	869236	
==>n;\n  len = string_length(interpreter, {{\@2}});\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870103	870203	
==>n;\n  len = string_length(interpreter, {{\@2}});\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736711	736984	
==>L){{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737457	737730	
==>L){{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723058	723262	
==>ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 149 \"src/ops/python.ops\"\n  STRING * const s = {{\@2}};\ <==
4	/Users/nnunley/parrot/config/init/miniparrot.pm	380	473	
==>d match ANSI  characteristics.

Centralizing these settings will (hopefully) allow for an even <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	622056	622143	
==>ain opcode */\n    ((void**)cur_opcode)[0] =\n\tparrot_pic_opcode(interpreter, PARROT_OP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623909	623996	
==>ain opcode */\n    ((void**)cur_opcode)[0] =\n\tparrot_pic_opcode(interpreter, PARROT_OP <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2161	2287	
==>_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2453	2579	
==>_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2248	2374	
==>_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various <==
4	/Users/nnunley/parrot/tools/build/pbc2c.pl	6103	6222	
==>OT_DEBUG_FLAG)) {
            fprintf(stderr, "\t" INTVAL_FMT ": %s\n", i, argv[i]);
        }

        userargv->vtable <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	8448	8544	
==>pu) {
    print JITCPU <<'END_C';
#define IREG(i) REG_INT(jit_info->cur_op[i])
#define NREG(i) RE <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	726	819	
==>Identifier');
  confess("Left (" . ref($left) . ") is not Value") unless UNIVERSAL::isa($left, <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	717	810	
==>Identifier');
  confess("Left (" . ref($left) . ") is not Value") unless UNIVERSAL::isa($left, <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	606	699	
==>Identifier');
  confess("Left (" . ref($left) . ") is not Value") unless UNIVERSAL::isa($left, <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	962	1088	
==>tx) = @_;
    my $type = $t->{name};
    if ($type eq 'seq') {
        # R.(S.T) => R.S.T
        # Or parenthetically, seq(R,s <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	2776	2873	
==>n after configuration and installing.', 'MANIFEST.generated'),
            $self->new_item('Specif <==
4	/Users/nnunley/parrot/config/gen/PodText.pm	537	633	
==>nstep()>

Converts Pod documents into plain text.  Documents to be converted as specified
as a ha <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16552	16645	
==>semicolon;

      my $arith = Jako::Construct::Statement::Arithmetic->new($block, $ident, $lef <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344318	344412	
==>ring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  /* strin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345560	345654	
==>ring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  /* strin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346802	346896	
==>ring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  /* strin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348045	348139	
==>ring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  /* strin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099143	1099269	
==>\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100341	1100467	
==>\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101539	1101665	
==>\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102738	1102864	
==>\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1145	1244	
==>ara  {  $_[0]{'Thispara'} = '' }

sub start_head1 {
  if($_[0]{'Errata_seen'}) {
    $_[0]{'Thispara <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471127	471223	
==>ine 394 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472114	472210	
==>ine 394 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473101	473197	
==>ine 394 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(in <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	15973	16065	
==>gs)>

=item C<esc($string)>

Reimplemented here to silence a C<Pod::Simple::HTML> warning.

= <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	11544	11662	
==>>full_name .": $jit_func $extern\n";
        }
        # *) $R = $X->vtable->{vtable}(interp, $Y, $Z)
        elsif ($o <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1719	1817	
==>o unknown variable %s.", $dest->value) unless $dest_sym;
  my $dest_type = $dest_sym->type;

  my $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1677	1775	
==>o unknown variable %s.", $dest->value) unless $dest_sym;
  my $dest_type = $dest_sym->type;

  my $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1599	1697	
==>o unknown variable %s.", $dest->value) unless $dest_sym;
  my $dest_type = $dest_sym->type;

  my $ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21508	21612	
==>$to_unget[-1]->dump, "\n";

    (DEBUG and print "Too much in the buffer.\n"),
     last if @to_unget > 2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321630	321921	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u4",
                  "F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322401	322692	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u4",
                  "F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323173	323464	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u4",
                  "F <==
4	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3177	3276	
==>C<ref($node)> to see whather you have
an element node or just a text node.

The top node in the tree <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	486713	486997	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "ceil",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	487464	487748	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "ceil",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
4	/Users/nnunley/parrot/config/auto/readline.pm	1374	1485	
==>/include/readline/readline.h") {
            $conf->data->add(' ', linkflags => '-L/sw/lib');
            $conf- <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11	108	
==>perl
# .NET CLI => PIR Translator Generator
# Script to generate the instruction translator from a <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27938	28038	
==>ad"} ? '$text = $_savetext;' : '').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDe <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30012	30112	
==>ad"} ? '$text = $_savetext;' : '').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDe <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32213	32313	
==>ad"} ? '$text = $_savetext;' : '').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDe <==
4	/Users/nnunley/parrot/config/auto/va_ptr.pm	81	173	
==>.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/va_ptr.pm - va_list t <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31866	31974	
==>$self->{methods}[$n], $line, $out_name);
    }
    my $parameters = $method->{parameters};
    my $n=0;
    m <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33443	33551	
==>$self->{methods}[$n], $line, $out_name);
    }
    my $parameters = $method->{parameters};
    my $n=0;
    m <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40500	40608	
==>$self->{methods}[$n], $line, $out_name);
    }
    my $parameters = $method->{parameters};
    my $n=0;
    m <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	13910	14008	
==>textref) < length($$textref))
	{
		$matched = '';
		if ($rd && $$textref =~ m#\G(\Q(?)\E|\Q(s?)\E|\ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30794	30904	
==>kills the content of the item if it's a number or bullet.
          DEBUG and print " Item is of type ", $para- <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	31759	31869	
==>kills the content of the item if it's a number or bullet.
          DEBUG and print " Item is of type ", $para- <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34082	34192	
==>kills the content of the item if it's a number or bullet.
          DEBUG and print " Item is of type ", $para- <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	1784	1885	
==>t run on various platforms.', 'PLATFORMS'),
            $self->new_item('Contains the version number o <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071785	1071885	
==>=> "#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073970	1074070	
==>=> "#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076155	1076255	
==>=> "#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078341	1078441	
==>=> "#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134922	135220	
==>"JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135815	136113	
==>"JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136709	137007	
==>"JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	29439	29535	
==>input text is a read-only string (i.e. a literal),
no attempt is made to remove the extracted tex <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573078	573299	
==>terpreter, enum_class_ParrotClass, name);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573988	574209	
==>terpreter, enum_class_ParrotClass, name);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/editor/ops2vim.pl	221	326	
==>nd-line parameter has been passed
@ARGV = @ARGV
    ? map {glob $_} @ARGV
    : die "usage: " . basename($ <==
4	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	5018	5113	
==>mpl = HTML::Template->new(scalarref => \$t, die_on_bad_params => 0);

  #print "HTTP/1.0 200 OK\ <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	15867	15988	
==>xpected, $desc );
            $builder->diag("'$cmd' failed with exit code $exit_code")
                  if $exit_code an <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	18418	18539	
==>xpected, $desc );
            $builder->diag("'$cmd' failed with exit code $exit_code")
                  if $exit_code an <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	25461	25563	
==>xpected, $desc);
            $builder->diag("'$cmd' failed with exit code $exit_code") if $exit_code an <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071851	1071957	
==>\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = {{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  INTVA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074036	1074142	
==>\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = {{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  INTVA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076221	1076327	
==>\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = {{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  INTVA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078407	1078513	
==>\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = {{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  INTVA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60194	60445	
==>( {
                  "JUMP" => 0,
                  "NAME" => "warningsoff",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60843	61094	
==>( {
                  "JUMP" => 0,
                  "NAME" => "warningsoff",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline", <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	2931	3030	
==>tokens (at most, given the possibility of running of the end) are
# returned. If a count is not give <==
4	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	765	848	
==>F<examples/benchmarks/stress1.pasm>, 
F<examples/benchmarks/stress2.pasm>, 
F<exampl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088347	1088644	
==>AME" => "slice",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089294	1089591	
==>AME" => "slice",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	3090	3201	
==>lf->name =~ /\.([^.]+)$/;
    
    $self->{SUFFIX} = defined $suffix ? $suffix : '';
    
    return $self->{SUF <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	7993	8102	
==>ssing in rule $rule->{'name'}\n";
    }
    unless ($has_class) {
        die "Mandatory entry class missing i <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5112	5225	
==>t_label_use($passLabel);

    while (@$incexc) {
        my $first = shift(@$incexc);
        my $last = shift(@$i <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4787	4900	
==>t_label_use($passLabel);

    while (@$incexc) {
        my $first = shift(@$incexc);
        my $last = shift(@$i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033234	1033333	
==>interpreter->ctx);\n    STRING * const lex_name = {{\@1}};\n    PMC * const lex_pad = Parrot_find_pa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034332	1034431	
==>interpreter->ctx);\n    STRING * const lex_name = {{\@1}};\n    PMC * const lex_pad = Parrot_find_pa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496955	497212	
==>h.ops\"\n  {{\@1}} = floatval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497825	498082	
==>h.ops\"\n  {{\@1}} = floatval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498695	498952	
==>h.ops\"\n  {{\@1}} = floatval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2820	2926	
==>ding or trailing whitespace on the file 
sub trim_whitespace {
    my ($file, $source) = @_;

    return un <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867316	867626	
==>&{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868282	868592	
==>&{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869248	869558	
==>&{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870215	870525	
==>&{{\@1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849290	849619	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850176	850505	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851063	851392	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851950	852279	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332553	332645	
==>{\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333831	333923	
==>{\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335109	335201	
==>{\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336388	336480	
==>{\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode) <==
4	/Users/nnunley/parrot/config/auto/pack.pm	148	244	
==>to/pack.pm - Packing

=head1 DESCRIPTION

Figures out how to C<pack()> Parrot's types.

=cut

pac <==
4	/Users/nnunley/parrot/tools/dev/install_files.pl	689	783	
==>he exec prefix. Defaults to '/usr'.

=item C<bindir>

The executables directory. Defaults to '/ <==
4	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	918	1012	
==>he exec prefix. Defaults to '/usr'.

=item C<bindir>

The executables directory. Defaults to '/ <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	8087	8175	
==>$self->make_const($class) if $self->{flags}{const_too};

}

=item C<decl($classname, $met <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501027	501304	
==>{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501766	502043	
==>{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502504	502781	
==>{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503243	503520	
==>{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	626549	626844	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627692	627987	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628836	629131	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	44632	44733	
==>store($temp);
  $self->_add_inst('',"end");

  $self->_format_columns;

  # not need any more
  $self- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255430	255573	
==>"ic"
                            ],
                  "BODY" => "#line 726 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@2}} : {{\@3}};\n  {{+= <==
4	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	664	793	
==>$func"} = sub ($$;$) {
        my $self = shift;
        my ( $code, $output, $desc ) = @_;
  
        my $count = $self->{builder <==
4	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1031	1160	
==>$func"} = sub ($$;$) {
        my $self = shift;
        my ( $code, $output, $desc ) = @_;
  
        my $count = $self->{builder <==
4	/Users/nnunley/parrot/lib/File/Which.pm	4555	4650	
==>E;.BAT;.COM;.JS;.VBS> etc. If C<File::Which> finds such an
environment variable, it parses the l <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	311521	311652	
==>r,&interpreter->pmc_reg, -1, NULL);\n#endif\n    }\n    {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	409	535	
==>$_] = buildarray();
    }

    my @arr1;
    foreach (1..20) {
	$arr1[$_] = buildarray();
    }

    my @arr2;
    foreach (1.. <==
4	/Users/nnunley/parrot/config/auto/gcc.pm	1404	1526	
==>>data->set(gccversion => undef);
        return $self;
    }
    if ($major =~ tr/0-9//c) {
        undef $major; # Don't u <==
4	/Users/nnunley/parrot/examples/benchmarks/stress.pl	371	476	
==>$_] = buildarray();
}

my @arr1;
foreach (1..20) {
    $arr1[$_] = buildarray();
}

my @arr2;
foreach (1.. <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	29721	29837	
==>my $thing = $stack[-$n];
	push @stack, $thing;
    print <<EOC;
	$cmt
EOC
    }
}

sub ROT_THREE
{
    my ($n, $c, $c <==
4	/Users/nnunley/parrot/config/inter/lex.pm	348	439	
==>s $prompt $util );

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step <==
4	/Users/nnunley/parrot/config/inter/make.pm	342	433	
==>s $prompt $util );

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	343	434	
==>s $prompt $util );

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591660	591772	
==>me);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592870	592982	
==>me);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594080	594192	
==>me);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595291	595403	
==>me);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/tools/util/pirtidy.pl	519	633	
==>:Formatter();

    foreach my $line (<$ifh>) {
      $formatter->add_pir( $line );
    }

    my $output = $formatt <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27463	27561	
==>:RecDescent::lastexpected = q{' . ($rule->hasleftmost($self) ? ''
				: $self->describe ) . '};
		' <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29573	29671	
==>:RecDescent::lastexpected = q{' . ($rule->hasleftmost($self) ? ''
				: $self->describe ) . '};
		' <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31670	31768	
==>:RecDescent::lastexpected = q{' . ($rule->hasleftmost($self) ? ''
				: $self->describe ) . '};
		' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344591	344919	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":files <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345833	346161	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":files <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347075	347403	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":files <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348318	348646	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":files <==
4	/Users/nnunley/parrot/lib/File/Which.pm	323	460	
==>r
                ($^O eq 'dos')     or
                ($^O eq 'os2'));

# For Win32 systems, stores the extensions used for
# executable <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10375	10474	
==>d	print STDERR "**Shift \$error token and go to state ".
#DBG>						 $$states[$$stack[-1][0]]{ACTIO <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9907	10005	
==>d	print STDERR "**Shift \$error token and go to state ".
#DBG>						 $$states[$$stack[-1][0]]{ACTIO <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2077	2168	
==>dex_html = "<p>$self->{TEXT}</p>\n\n" . $index_html if $self->{TEXT};
		$index_html = qq(<h2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909414	909745	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910311	910642	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911208	911539	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912106	912437	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	353	473	
==>ase qw(Jako::Construct::Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  return bless {
    TOKEN    => $tok <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	350	470	
==>ase qw(Jako::Construct::Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  return bless {
    TOKEN    => $tok <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	341	461	
==>ase qw(Jako::Construct::Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  return bless {
    TOKEN    => $tok <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	350	470	
==>ase qw(Jako::Construct::Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  return bless {
    TOKEN    => $tok <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469348	469457	
==>en = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Di <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470223	470332	
==>en = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Di <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478821	478930	
==>en = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Di <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479713	479822	
==>en = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Di <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4855	4972	
==>my $pmc_reg = $compiler->temp_pmc();

    $compiler->emit("  $pmc_reg = new $pmc_type");
    $compiler->emit("  $pmc_r <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2918	3035	
==>my $pmc_reg = $compiler->temp_pmc();

    $compiler->emit("  $pmc_reg = new $pmc_type");
    $compiler->emit("  $pmc_r <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1221	1337	
==>my $pmc_reg = $compiler->temp_pmc();
    $compiler->emit("  $pmc_reg = new $pmc_type");
    $compiler->emit("  $pmc_r <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1215	1331	
==>my $pmc_reg = $compiler->temp_pmc();
    $compiler->emit("  $pmc_reg = new $pmc_type");
    $compiler->emit("  $pmc_r <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467676	467793	
==>L, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468547	468664	
==>L, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469421	469538	
==>L, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470296	470413	
==>L, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/languages/pugs/t/pmc.pm	303	405	
==>ile =~ /(\w+)\.t$/ or die "malformed file: $file";
    my $type = "Pugs\u$1";

    main::pir_output_is( <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27679	27770	
==>t =~ s/\A($skip)/$lastsep=$1 and ""/e and '
		. ($check->{itempos}? 'do {'.Parse::RecDescent <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29789	29880	
==>t =~ s/\A($skip)/$lastsep=$1 and ""/e and '
		. ($check->{itempos}? 'do {'.Parse::RecDescent <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31886	31977	
==>t =~ s/\A($skip)/$lastsep=$1 and ""/e and '
		. ($check->{itempos}? 'do {'.Parse::RecDescent <==
4	/Users/nnunley/parrot/lib/Test/More.pm	17365	17470	
==>s @imports;

    my($pack,$filename,$line) = caller;

    local($@,$!);   # eval sometimes interferes with <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8506	8610	
==>is a register then it is up to the SRM to do the store.
	# Otherwise, there's nothing to do here.
	if ($d <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6326	6430	
==>is a register then it is up to the SRM to do the store.
	# Otherwise, there's nothing to do here.
	if ($d <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5241	5345	
==>is a register then it is up to the SRM to do the store.
	# Otherwise, there's nothing to do here.
	if ($d <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519683	519798	
==>DY" => "#line 739 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520538	520653	
==>DY" => "#line 739 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	521393	521508	
==>DY" => "#line 739 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	4073	4174	
==>= $dest");

    my $dest_name = $dest_ident->value;
    $compiler->emit("  global \"$dest_name\" = $te <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645755	645847	
==>c.ops\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtable_max)\n\t\t{{\@1}} = interpret <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646652	646744	
==>c.ops\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtable_max)\n\t\t{{\@1}} = interpret <==
4	/Users/nnunley/parrot/config/inter/progs.pm	2080	2171	
==>nf->data->set(link => $link);

    $ld = integrate($conf->data->get('ld'), $conf->options->g <==
4	/Users/nnunley/parrot/lib/Test/More.pm	17935	18050	
==>compilation aborted at .*$}
                {BEGIN failed--compilation aborted at $filename line $line.}m;
        $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2237	2331	
==>ier')) {
    my $right_sym = $block->find_symbol($right->value);
    $self->SYNTAX_ERROR("Expre <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2195	2289	
==>ier')) {
    my $right_sym = $block->find_symbol($right->value);
    $self->SYNTAX_ERROR("Expre <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2117	2211	
==>ier')) {
    my $right_sym = $block->find_symbol($right->value);
    $self->SYNTAX_ERROR("Expre <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	1074	1196	
==>s, $dir);
    my $exit_code = 0;

    $pycmd = "python  $lang_f";
    $cmd = "pirate $lang_f";

    # For some reason, if y <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7709	7821	
==>reg = value($reg);
    return ("save $reg");
}

sub output_restore {
    my ($self, $reg) = @_;
    $reg = value( <==
4	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Posix.pm	202	306	
==>y $self = shift;
    my ( $count, $options ) = @_;

    return Parrot::Test::per_test( '_posix.out', $cou <==
4	/Users/nnunley/parrot/config/auto/jit.pm	871	972	
==>ase path for jit sources
    my $archname = $Config{archname};
    my ($cpuarch, $osname) = split(/-/, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084733	1084822	
==>ntal.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085786	1085875	
==>ntal.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086839	1086928	
==>ntal.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087893	1087982	
==>ntal.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\ <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2622	2743	
==>=~ s/\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else {
        $liblist = join( ' ', map { "-l$_" } keys <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2931	3052	
==>=~ s/\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else {
        $liblist = join( ' ', map { "-l$_" } keys <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2726	2847	
==>=~ s/\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else {
        $liblist = join( ' ', map { "-l$_" } keys <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	20912	21016	
==>3,
sub
#line 137 "lib/Regex/Grammar.y"
{ return op('call' => [ $_[2], 0 ]) }
	],
	[#Rule 25
		 'expr', 4, <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	644	757	
==>ss @_;
  my @out;
  foreach my $in (@_) {
    push @out, '"' . $in . '"';
    $out[-1] =~ s/([^- \:\:\.\,\'\>\<\"\ <==
4	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1529	1630	
==>a::opcode);

package FindGlobalOp;
use base qw(Lua::opcode);

package FindLexOp;
use base qw(Lua <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478766	478865	
==>"BODY" => "#line 437 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    rea <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479658	479757	
==>"BODY" => "#line 437 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    rea <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11541	11649	
==>pression::Value->new($block, $self->forth);

      $self->require_semicolon;

      my $arith = Jako::Constru <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16486	16594	
==>pression::Value->new($block, $self->forth);

      $self->require_semicolon;

      my $arith = Jako::Constru <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17257	17365	
==>pression::Value->new($block, $self->forth);

      $self->require_semicolon;

      my $arith = Jako::Constru <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18062	18170	
==>pression::Value->new($block, $self->forth);

      $self->require_semicolon;

      my $arith = Jako::Constru <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467681	467914	
==>ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468552	468785	
==>ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469426	469659	
==>ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470301	470534	
==>ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	8594	8742	
==>pmc);
    if ($for_header) {
        $export = $self->{flags}->{dynpmc} ? 'PARROT_DYNEXT_EXPORT ' :
                                             'PAR <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3095	3201	
==>f (exists $props{op}) {
    my $op = $props{op};

#    $self->DEBUG(0, "Calling %s%s...", $name, ($op ? ' ( <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2632	2738	
==>f (exists $props{op}) {
    my $op = $props{op};

#    $self->DEBUG(0, "Calling %s%s...", $name, ($op ? ' ( <==
4	/Users/nnunley/parrot/lib/Test/More.pm	23535	23639	
==>n only be avoided when no_plan is in use.
        _carp "todo_skip() needs to know \$how_many tests are i <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8546	8651	
==>o do the store.
	# Otherwise, there's nothing to do here.
	if ($dest_reg) {
		$pir .= <<'PIR'
# Get type ( <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6366	6471	
==>o do the store.
	# Otherwise, there's nothing to do here.
	if ($dest_reg) {
		$pir .= <<'PIR'
# Get type ( <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8663	8759	
==>IC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_END_${CURIC}

# Get type of r <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7235	7331	
==>IC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_END_${CURIC}

# Get type of r <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	21595	21696	
==>@{ $self->{parents} });
    $isa =~ s/\s?default$//;
    my $does = join(" ", keys(%{ $self->{flags}{d <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550063	550156	
==>n  next = {{^+3}};\n  interpreter->current_object = object;\n  interpreter->current_cont = NEE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551364	551457	
==>n  next = {{^+3}};\n  interpreter->current_object = object;\n  interpreter->current_cont = NEE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552706	552799	
==>n  next = {{^+3}};\n  interpreter->current_object = object;\n  interpreter->current_cont = NEE <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	50141	50233	
==>h an opening delimiter bracket. If found, call
C<extract_codeblock> recursively to eat the em <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745586	745826	
==>=> "inline",
                  "CODE" => 839,
                  "ARGS" => [
                              "p",
                              "pc"
                            ],
                  "BODY" => "#line 184 \"src/ops/set.ops\"\n  {{ <==
4	/Users/nnunley/parrot/tools/dev/lib_deps.pl	10008	10149	
==>dlib.h
exp         math.h
exp2        math.h
exp2f       math.h
exp2l       math.h
expf        math.h
expl        math.h
expm1       math.h
ex <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669034	669142	
==>],
                  "BODY" => "#line 410 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->push_float(interpreter, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669806	669914	
==>],
                  "BODY" => "#line 410 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->push_float(interpreter, { <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24759	24896	
==>_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{childr <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25770	25907	
==>_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{childr <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26658	26795	
==>_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{childr <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27668	27805	
==>_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{childr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344389	344494	
==>path, mode);\n  /* string_cstring_free(mode); */\n  /* string_cstring_free(path); */\n  if(!{{\@1}} || !PM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345631	345736	
==>path, mode);\n  /* string_cstring_free(mode); */\n  /* string_cstring_free(path); */\n  if(!{{\@1}} || !PM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346873	346978	
==>path, mode);\n  /* string_cstring_free(mode); */\n  /* string_cstring_free(path); */\n  if(!{{\@1}} || !PM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348116	348221	
==>path, mode);\n  /* string_cstring_free(mode); */\n  /* string_cstring_free(path); */\n  if(!{{\@1}} || !PM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	282282	282571	
==>"\n  {{\@1}} = {{\@2}} < {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283127	283416	
==>"\n  {{\@1}} = {{\@2}} < {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283972	284261	
==>"\n  {{\@1}} = {{\@2}} < {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/languages/regex/regex.pl	7	110	
==>bin/perl -w

use lib 'lib';
use Regex;
use Regex::Driver;
use strict;

my $operation;
my $expr;
my $expr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147774	148194	
==>=> [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 180,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic"
                            ],
                  "BODY" => " <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	3501	3641	
==>start
    print ".."
    print match_end
    print "\n"
skipPrint:
    set valid_flag, 1
    ret
.end
END
}

sub output_rule_body {
    my ($ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	712	845	
==>6[0]'],
  ['',             'save', 'P6'],
  ['',             'save', 'P1'],
  ['',             '.include', '"interpinfo.pasm"'],
  ['' <==
4	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	689	795	
==>EDIT!

.HLL '_dotnet', ''

.sub internal_method_body
    .param pmc class
    .param pmc meth
    .local st <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32753	32866	
==>ir .= "### typeinfo\n";
		    $pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			    "typeinfo for rule $rule->{'name' <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26761	26866	
==>ir .= "### typeinfo\n";
		$pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name' <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28477	28582	
==>ir .= "### typeinfo\n";
		$pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name' <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36459	36564	
==>ir .= "### typeinfo\n";
		$pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100056	1100290	
==>" => [
                              "n",
                              "nc",
                              "i"
                            ],
                  "BODY" => "#line 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669112	669335	
==>able->push_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669884	670107	
==>able->push_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Test/More.pm	20787	20883	
==>the label C<SKIP>, or Test::More can't work its magic.

You don't skip tests which are failing be <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164816	165079	
==>r, {{\@1}}, {{\@2}}) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165745	166008	
==>r, {{\@1}}, {{\@2}}) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166674	166937	
==>r, {{\@1}}, {{\@2}}) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	5329	5426	
==>D} = $checker->content_seen;
	}
}

=item C<contains_pod()>

Tells you whether there is any POD for <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860463	860607	
==>"ic"
                            ],
                  "BODY" => "#line 118 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861468	861612	
==>"ic"
                            ],
                  "BODY" => "#line 118 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	16066	16162	
==>cture for each method found in the
vtable. This is used to determine all of the 'default' methods <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	44100	44195	
==>part of.");
}

my $NEGLOOKAHEAD	= '\G(\s*\.\.\.\!)';
my $POSLOOKAHEAD	= '\G(\s*\.\.\.)';
my $RUL <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	13654	13754	
==>.end

.sub unicode:"dyadic:\u2374" :multi (APLVector,Float) # reshape
    .param pmc op1
    .param p <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73015	73120	
==>ass_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}}->vtable-> <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74617	74722	
==>ass_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}}->vtable-> <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76219	76324	
==>ass_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}}->vtable-> <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77822	77927	
==>ass_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}}->vtable-> <==
4	/Users/nnunley/parrot/config/auto/gdbm.pm	732	831	
==>nf->data->get('libs');
    my $linkflags = $conf->data->get('linkflags');
    my $ccflags   = $conf- <==
4	/Users/nnunley/parrot/config/auto/gmp.pm	673	772	
==>nf->data->get('libs');
    my $linkflags = $conf->data->get('linkflags');
    my $ccflags   = $conf- <==
4	/Users/nnunley/parrot/config/auto/readline.pm	685	784	
==>nf->data->get('libs');
    my $linkflags = $conf->data->get('linkflags');
    my $ccflags   = $conf- <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	50860	50952	
==>ecify a different outermost delimiter bracket is useful
in some circumstances. For example, i <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2553	2658	
==>$op    = $self->op;
  my $right = $self->right;

  if (defined $cond) {
    $handler->start_element({ Name <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3227	3332	
==>$op    = $self->op;
  my $right = $self->right;

  if (defined $cond) {
    $handler->start_element({ Name <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3317	3422	
==>$op    = $self->op;
  my $right = $self->right;

  if (defined $cond) {
    $handler->start_element({ Name <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	47137	47239	
==>okahead",$aftererror,$line);
			$lookahead = $lookahead ? $lookahead : 1;
			$lookaheadspec .= $1;
			n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760112	760395	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "deref",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	21662	21763	
==>f cur_ic >= 0x$r2[0]->{'code'} goto INS_BRANCH_$prefix$r2[0]->{'code'}\n";
        $pir .= "    if cur <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1505	1594	
==>TEMP1}
${STEMP1} = "$register_num"
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3215	3304	
==>TEMP1}
${STEMP1} = "$register_num"
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543609	543905	
==>=> "lcm",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544944	545240	
==>=> "lcm",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546280	546576	
==>=> "lcm",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	54752	54884	
==>[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 71
		 'exp', 3,
sub
#line 393 "Lua\lua51.yp"
{
            BuildLogop( $_[0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080562	1080697	
==>}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081627	1081762	
==>}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082692	1082827	
==>}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083758	1083893	
==>}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641665	641908	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642552	642795	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643440	643683	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644332	644575	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2125	2228	
==>ams( \@params, \%params, \@_, $self );

	if($$self{DEBUG}) {
		_DBLoad();
		$retval = eval '$self->_ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8695	8794	
==>ES}
if ${ITEMP0} == 0 goto PRE_CALL_END_${CURIC}

# Get type of return value and build code to pop i <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7267	7366	
==>ES}
if ${ITEMP0} == 0 goto PRE_CALL_END_${CURIC}

# Get type of return value and build code to pop i <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2046	2145	
==>ams( \@params, \%params, \@_, $self );

	if($$self{DEBUG}) {
		_DBLoad();
		$retval = eval '$self->_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494360	494619	
==>n  {{\@1}} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495228	495487	
==>n  {{\@1}} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496096	496355	
==>n  {{\@1}} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/tools/build/revision_c.pl	429	532	
==>rot/config.h>

=cut

use strict;
use Parrot::Revision;

print <<"EOF";
/* ex: set ro:
 * !!!!!!!   DO NO <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2091	2184	
==>_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0 <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3343	3436	
==>_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0 <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5972	6065	
==>_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0 <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6530	6623	
==>_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0 <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	24611	24718	
==>$$$)
{
	my ($self, $namespace, $rule, $check) = @_;
	
	my $action = '';
	
	if ($self->{"msg"})  # ERROR MESS <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	10161	10260	
==>rrot();
    my $parrot = File::Spec->join(File::Spec->curdir(), 'parrot' . $PConfig{exe});

    my % <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1803	1893	
==>y cautiously:
    $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefgh <==
4	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1906	1996	
==>y cautiously:
    $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefgh <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302021	302159	
==>"
                            ],
                  "BODY" => "#line 980 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302897	303035	
==>"
                            ],
                  "BODY" => "#line 980 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303773	303911	
==>"
                            ],
                  "BODY" => "#line 980 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, <==
4	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	5866	5967	
==>er 4

=item *

It's slow, very slow. I've done my very best but Digest::MD5 is still about 135 times f <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1292	1404	
==>m is specified then
    # the user is responsible for the consequences.
    if (defined $prog) {
        $conf->d <==
4	/Users/nnunley/parrot/config/inter/make.pm	1113	1225	
==>m is specified then
    # the user is responsible for the consequences.
    if (defined $prog) {
        $conf->d <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1289	1401	
==>m is specified then
    # the user is responsible for the consequences.
    if (defined $prog) {
        $conf->d <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4176	4277	
==>CODE
	},
	'and' => sub {
		my($a1,$a2,$result,$op,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717440	717708	
==>UMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718371	718639	
==>UMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719303	719571	
==>UMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720502	720770	
==>UMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
4	/Users/nnunley/parrot/tools/build/c2str.pl	3427	3534	
==>INTVAL len;
    Parrot_UInt4 hash_val;
    const char *string;
} parrot_cstrings[] = {
	{ 0, 0, "" },
HEADER <==
4	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	758	855	
==>Alternately, for opcode functions that have more internal complexity the
format is:

    op opname <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210291	210384	
==>>vtable->get_string(interpreter, {{\@1}}), {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211271	211364	
==>>vtable->get_string(interpreter, {{\@1}}), {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659483	659821	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exists",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660404	660742	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exists",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661326	661664	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exists",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662241	662579	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exists",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640147	640450	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640901	641204	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645225	645528	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646121	646424	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3047	3149	
==>e maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0 <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4805	4907	
==>e maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0 <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1969	2071	
==>e maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0 <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3221	3323	
==>e maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949924	950242	
==>( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950883	951201	
==>( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951843	952161	
==>( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952803	953121	
==>( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	14519	14651	
==>stop reading now stop reading now stop
##
##                         HERE IT BECOMES REALLY SCARY
##
##  stop reading now stop readin <==
4	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1293	1396	
==>f->{builder}->diag("'$cmd' failed with exit code $exit_code")
        if $exit_code and not $pass;
    } <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1334	1437	
==>f->{builder}->diag("'$cmd' failed with exit code $exit_code")
        if $exit_code and not $pass;
    } <==
4	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2457	2558	
==>f->{builder}->diag("'$cmd' failed with exit code $exit_code")
      if $exit_code and not $pass;
    } <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	25356	25488	
==>t ]),
               $back => aop('popint', [ '<tmp>', 'optional marker' ]),
                        aop('if', [ '<tmp>', $R_back ]), <==
4	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	532	648	
==>ang_fn = Parrot::Test::per_test( '.bc', $count );
    my $pir_fn  = $options->{with_past} ?
                    Parro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938560	938672	
==>/string.ops\"\n    {{\@1}} = string_join(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939450	939562	
==>/string.ops\"\n    {{\@1}} = string_join(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610653	610950	
==>,
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 69 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611555	611852	
==>,
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 69 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612458	612755	
==>,
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 69 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613364	613661	
==>,
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 69 <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5247	5350	
==>elf, $key) = @_;

    return unless defined $self->{triggers}{$key};

    my $verbose = defined $self->g <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	1742	1836	
==>nstance Methods

=over 4

=item C<set_parent($parent)>

=item C<parent()>

Accessors for the co <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	817	901	
==>is not!"  unless UNIVERSAL::isa($ident, qw(Jako::Construct::Expression::Value::Identi <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	781	865	
==>is not!"  unless UNIVERSAL::isa($ident, qw(Jako::Construct::Expression::Value::Identi <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	793	876	
==>is not!" unless UNIVERSAL::isa($ident, qw(Jako::Construct::Expression::Value::Identi <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3763	3882	
==>6[1]'],
  ['',            'inc', 'I16'],
  ['',            'ne', 'I16', 'I2', 'apply_ITER'],
  ['apply_CALL',  'set', 'I <==
4	/Users/nnunley/parrot/config/init/hints/cygwin.pm	759	859	
==>use 'gcc -shared' instead of 'ld2'.
    # If this later causes problems, it might be worth revisiting <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	1162	1258	
==>dy>

Emit an empty body in the dump. This may be useful for debugging.

=item C<--include=/path/t <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	48533	48622	
==>xtract_codeblock> attempts to recognize and extract a balanced
bracket delimited substring <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117663	117920	
==>,
                  "TYPE" => "inline",
                  "CODE" => 146,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 226 \"src/ops/bit.op <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	6725	6828	
==>t to RPN
	my (@stack,@stream);
	my $i=-1;
	foreach my $item (@expr) {
		die "Expression too complex at l <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384668	384999	
==>" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 449,
                  "ARGS" <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	50826	50995	
==>35 "Lua\lua51.yp"
{
            PrepareMethod( $_[0] );
            [
                @{ $_[1] },
                BuildLiteral( $_[0], $_[3], 'key' ),
            ] <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5782	5900	
==>',',map { $$_[0] } @$stack).
#DBG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defined($$token) <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5507	5619	
==>',',map { $$_[0] } @$stack).
#DBG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defined($$token) <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	15882	16018	
==>);
            $builder->diag("'$cmd' failed with exit code $exit_code")
                  if $exit_code and not $pass;

            unle <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	18433	18569	
==>);
            $builder->diag("'$cmd' failed with exit code $exit_code")
                  if $exit_code and not $pass;

            unle <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	25475	25593	
==>);
            $builder->diag("'$cmd' failed with exit code $exit_code") if $exit_code and not $pass;

            unle <==
4	/Users/nnunley/parrot/config/auto/memalign.pm	512	623	
==>bose);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    if ($c <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22052	22157	
==>on::Value->new($block, $self->require_value);
        $op    = $self->require_infix_rel->text;
        $ri <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22985	23090	
==>on::Value->new($block, $self->require_value);
        $op    = $self->require_infix_rel->text;
        $ri <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24631	24736	
==>on::Value->new($block, $self->require_value);
        $op    = $self->require_infix_rel->text;
        $ri <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2353	2451	
==>n the C code for the run
core function declaration. C<$base> is the name of the main ops file minus <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773412	773498	
==>et.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774322	774408	
==>et.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775232	775318	
==>et.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776143	776229	
==>et.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\ <==
4	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3179	3277	
==>ngs;

use vars qw(@ISA %pmc_types @EXPORT_OK);

@ISA = qw( Exporter );
@EXPORT_OK = qw( %pmc_types) <==
4	/Users/nnunley/parrot/lib/Parrot/PMC.pm	123	221	
==>ngs;

use vars qw(@ISA %pmc_types @EXPORT_OK);

@ISA = qw( Exporter );
@EXPORT_OK = qw( %pmc_types) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023317	1023411	
==>c/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_localtime_r(&t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024167	1024261	
==>c/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_localtime_r(&t <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	1395	1525	
==>nd eq 'const';

  my $self = bless {
    BLOCK  => $block,

    SCOPE  => $scope,
    KIND   => $kind,
    TYPE   => $type,
    NAM <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33565	33683	
==>ush to @$para
            if($paras->[0][0] eq '~Para') {
              DEBUG and print "Assimilating following ~Para c <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35378	35496	
==>ush to @$para
            if($paras->[0][0] eq '~Para') {
              DEBUG and print "Assimilating following ~Para c <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	52388	52488	
==>] || '') and UNIVERSAL::isa($lol->[$i], 'ARRAY') ) {
      _stringify_lol( $lol->[$i], $to);  # recur <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084764	1084874	
==>->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085817	1085927	
==>->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086870	1086980	
==>->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087924	1088034	
==>->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836749	836923	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837481	837655	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838215	838389	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838947	839121	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72662	72752	
==>arrot_dlsym(PMC_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_cstring_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74264	74354	
==>arrot_dlsym(PMC_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_cstring_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75866	75956	
==>arrot_dlsym(PMC_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_cstring_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77469	77559	
==>arrot_dlsym(PMC_IS_NULL({{\@2}}) ? \n\tNULL : PMC_data({{\@2}}), name));\n  string_cstring_ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	38880	39020	
==>$para->[2] eq '' )
          or $para->[1]{'~cooked'}
        ) {
          push @$para,
          @{$self->_make_treelet(
            join(" <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19200	19303	
==>();
		$false=qq{""} if $type eq "S";
		if ($which eq "while") {
			$_="@code ne $result, $false, DO_$do- <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11921	12020	
==>rgs = join(",", map {$_->[0]} (reverse @args));
			$pir_args = ",$pir_args" if $pir_args;
			$extern <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	12331	12430	
==>rgs = join(",", map {$_->[0]} (reverse @args));
			$pir_args = ",$pir_args" if $pir_args;
			$extern <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	18003	18133	
==>) = @_;
    my $tos = pop @stack;
    my $targ = "pc_xxx";
    if ($c =~ /to (\d+)/) {
	$targ = "pc_$1";
    }
    print <<EOC;
	if <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276213	276470	
==>ng_compare(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277091	277348	
==>ng_compare(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277969	278226	
==>ng_compare(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452909	453149	
==>",
                  "CODE" => 519,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 230 \"src/ops/math.ops\"\n  {{\@1}} += { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939534	939868	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_cor <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940425	940759	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_cor <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941317	941651	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_cor <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942209	942543	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_cor <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62661	62918	
==>> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorsoff",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63306	63563	
==>> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorsoff",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	12166	12368	
==>th        => $methodname,
                    body        => $methodblock,
                    line        => $lineno,
                    type        => $type,
                    parameters  => $parame <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	11674	11860	
==>th        => $methodname,
                body        => $methodblock,
                line        => $lineno,
                type        => $type,
                parameters  => $parame <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501038	501332	
==>{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501777	502071	
==>{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502515	502809	
==>{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503254	503548	
==>{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276870	277101	
==>GS" => [
                              "i",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 881 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare( <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2180	2302	
==>get, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various libraries in t <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2472	2594	
==>get, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various libraries in t <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2267	2389	
==>get, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various libraries in t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567553	567818	
==>s(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568448	568713	
==>s(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596220	596485	
==>s(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597113	597378	
==>s(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	4873	4978	
==>re/", $startpos;
		return;
	}

	$ldelpos = pos $$textref;

	unless ($$textref =~ m/\G($ldel)/gc)
	{
		_fai <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960405	960705	
==>MP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961366	961666	
==>MP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962328	962628	
==>MP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963290	963590	
==>MP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	596	686	
==>arser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullParser> <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1015	1105	
==>arser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullParser> <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	502	592	
==>arser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullParser> <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1489	1579	
==>arser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullParser> <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747836	748077	
==>YPE" => "inline",
                  "CODE" => 842,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 194 \"src/ops/set.ops\"\n <==
4	/Users/nnunley/parrot/config/inter/pmc.pm	4141	4246	
==>mc${slash}/g;
    (my $TEMP_pmc_classes_pmc = $pmc_list)     =~ s/^| / src${slash}pmc${slash}/g;

    # Ga <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27563	27660	
==>. ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'un <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29673	29770	
==>. ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'un <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31770	31867	
==>. ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'un <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	35191	35480	
==>i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 44,
                  "ARGS" => [
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 637 \"src/ops/core <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	31071	31191	
==>, $c, $cmt) = @_;
    print <<EOC;
	throw P5 $cmt
EOC
}

sub SETUP_LOOP
{
    my ($n, $c, $cmt) = @_;
    my $targ = "pc_ <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	7280	7389	
==>n("', '", @$include), "'"
        if $die_unless_found;

    undef;
}

=head2 dump_default()

Create a .dump f <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	11759	11853	
==>value of the element (after
assignment) is returned. If the element type is C<'*$'>, a referenc <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	20301	20422	
==>2 = "\Q$1";
			$rdel2 =~ tr/[({</])}>/;
		}
		else
		{
			$ldel2 = $rdel2 = $ldel1;
		}
		$str2pos = $ld2pos+1;

		if ($ld <==
4	/Users/nnunley/parrot/config/init/hints/mswin32.pm	6427	6546	
==>ibs           =>
                    '-lmsvcrt -lmoldname -lkernel32 -luser32 -lgdi32 -lwinspool -lcomdlg32 -ladvapi32 - <==
4	/Users/nnunley/parrot/config/init/hints/msys.pm	327	437	
==>ibs          =>
            '-lmsvcrt -lmoldname -lkernel32 -luser32 -lgdi32 -lwinspool -lcomdlg32 -ladvapi32 - <==
4	/Users/nnunley/parrot/tools/build/ops2c.pl	9827	9937	
==>E <<END_C;

/*
** Op Info Table:
*/

static op_info_t $op_info\[$num_entries] = {
END_C

    $index = 0;

    f <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875101	875238	
==>ic"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876119	876256	
==>ic"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877137	877274	
==>ic"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878156	878293	
==>ic"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, { <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	42044	42152	
==>sh @copy, $copy[1]{'target'};
      $copy[-1] = '' unless defined $copy[-1];
       # since =over's don't hav <==
4	/Users/nnunley/parrot/config/auto/alignptrs.pm	1534	1638	
==>ined $align;
        $conf->data->set(ptr_alignment => $align);
    }

    $self->set_result($self->resul <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1503	1599	
==>t_head3 {  $_[0]{'Thispara'} = '' }
sub start_head4 {  $_[0]{'Thispara'} = '' }

sub start_Verbat <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1033	1129	
==>t_head3 {  $_[0]{'Thispara'} = '' }
sub start_head4 {  $_[0]{'Thispara'} = '' }

sub start_Verbat <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2910	3023	
==>my $register_num = 0;
	my $push_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop stuf <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1832	1945	
==>my $register_num = 0;
	my $push_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop stuf <==
4	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	586	693	
==>f, $code, $output, $desc) = @_;
  
    $count = $self->{builder}->current_test + 1;

    $desc = $language u <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	578	683	
==>f, $code, $output, $desc) = @_;

    $count = $self->{builder}->current_test + 1;

    $desc = $language u <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099390	1099698	
==>es;\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100588	1100896	
==>es;\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101786	1102094	
==>es;\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102985	1103293	
==>es;\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/tools/dev/lib_deps.pl	14597	14729	
==>f       math.h
tanhl       math.h
tanl        math.h
tgamma      math.h
tgammaf     math.h
tgammal     math.h
time        time.h
tmpf <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5633	5742	
==>"\n";
#DBG>		$debug & 0x2
#DBG>	and	print STDERR "In state $stateno:\n";
#DBG>		$debug & 0x08
#DBG>	and	pr <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	11513	11620	
==>ract_balanced($classblock);

        $methodblock = "" if $opt{nobody};
        if ($methodname eq 'class_in <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5363	5468	
==>"\n";
#DBG>		$debug & 0x2
#DBG>	and	print STDERR "In state $stateno:\n";
#DBG>		$debug & 0x08
#DBG>	and	pr <==
4	/Users/nnunley/parrot/config/auto/cgoto.pm	522	625	
==>arrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) { <==
4	/Users/nnunley/parrot/config/auto/headers.pm	457	560	
==>arrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) { <==
4	/Users/nnunley/parrot/config/gen/cpu.pm	520	623	
==>arrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) { <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	1626	1727	
==>et
	#.end
#INIT
	my($edit,@saves);
	#print CODE "\t.sub ${seg}_main\n\t\tsaveall\n";

	# If any "commo <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4241	4346	
==>fail if ord(substr(<rx_input>, <rx_pos>, 1)) != $code;" . $comment);
    if ($self->{DEBUG}) {
        pus <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28353	28446	
==>RD_TRACE;').'

			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched term <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30430	30522	
==>RD_TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched term <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32630	32722	
==>RD_TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched term <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381204	381306	
==>) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n  { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382216	382318	
==>) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n  { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383228	383330	
==>) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n  { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384241	384343	
==>) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \"seek failed (32bit)\");\n    }\n  }\n  { <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	55610	55741	
==>a51.yp"
{
            BuildLiteral( $_[0], $_[1], 'boolean' );
        }
	],
	[#Rule 78
		 'primary', 1,
sub
#line 424 "Lua\ <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27177	27273	
==>arations for all the methods for inclusion
in the PMC's C header file.

TODO include MMD variants <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3872	3962	
==>pe.
${DEST0} = "$"
${STEMP0} = ${LOADTYPE}["reg_type_short"]
${DEST0} = concat ${STEMP0}
${ <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	30554	30643	
==>act_delimited> it can be simplified to:

	($extracted,$remainder) = extract_delimited($tex <==
4	/Users/nnunley/parrot/lib/Test/More.pm	28892	29010	
==>) = @_;
    my $ok = 0;

    # Effectively turn %Refs_Seen into a stack.  This avoids picking up
    # the same referen <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1848	1964	
==>);

    # don't override the user even if the program they provided appears to be
    # broken
    if ($ret == -1 and <==
4	/Users/nnunley/parrot/config/inter/make.pm	1722	1838	
==>);

    # don't override the user even if the program they provided appears to be
    # broken
    if ($ret == -1 and <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1862	1978	
==>);

    # don't override the user even if the program they provided appears to be
    # broken
    if ($ret == -1 and <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344245	344334	
==>cstring(interpreter, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345487	345576	
==>cstring(interpreter, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346729	346818	
==>cstring(interpreter, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347972	348061	
==>cstring(interpreter, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39079	39339	
==>);\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39944	40204	
==>);\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40791	41051	
==>);\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41639	41899	
==>);\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	16112	16215	
==>);
 $parser->run;

And elsewhere:

 require 5;
 package SomePodProcessor;
 use strict;
 use base qw(Pod: <==
4	/Users/nnunley/parrot/config/auto/cgoto.pm	1934	2030	
==>_DIR)/core_ops_cgp$(O)',
            TEMP_cg_r => '$(RM_F) $(INC_DIR)/oplib/core_ops_cg.h $(OPS_D <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477099	477192	
==>L, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@1}} / den <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477995	478088	
==>L, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@1}} / den <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	47264	47359	
==>----------------------------------------------------------------------------

sub _out {
  # For <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	40710	40792	
==>----------------------------------------------------------------------------

sub _ <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	17733	17815	
==>----------------------------------------------------------------------------

sub _ <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	46061	46143	
==>----------------------------------------------------------------------------

sub _ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Transcode.pm	116	222	
==>DEBUG ) { *DEBUG = \&Pod::Simple::DEBUG; }
  else { *DEBUG = sub () {0}; }
}

foreach my $class (
  'Pod::S <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480745	480838	
==>L, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@2}} / den <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481748	481841	
==>L, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@2}} / den <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482751	482844	
==>L, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@2}} / den <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591472	591567	
==>xt = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592682	592777	
==>xt = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593892	593987	
==>xt = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595103	595198	
==>xt = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066906	1067013	
==>9 \"src/ops/experimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? - <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068092	1068199	
==>9 \"src/ops/experimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? - <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069278	1069385	
==>9 \"src/ops/experimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? - <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070465	1070572	
==>9 \"src/ops/experimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? - <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	308610	308720	
==>n        pdb = (PDB_t *)mem_sys_allocate_zeroed(sizeof(PDB_t));\n\n        interpreter->pdb = pdb;\n        pdb <==
4	/Users/nnunley/parrot/tools/dev/cc_flags.pl	1755	1864	
==>V, $where, 1;
  $inject_point = $where;
} else {
  $inject_point = 1;
}

foreach my $option (@options) {
    i <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1358	1454	
==>ormal operation, even with bad source code as input.
  #

  $self->INTERNAL_ERROR("Undefined bloc <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1303	1399	
==>ormal operation, even with bad source code as input.
  #

  $self->INTERNAL_ERROR("Undefined bloc <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1206	1302	
==>ormal operation, even with bad source code as input.
  #

  $self->INTERNAL_ERROR("Undefined bloc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352314	352523	
==>printf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352972	353181	
==>printf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357999	358208	
==>printf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358663	358872	
==>printf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3106	3215	
==>ype (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have anything on the lazy move <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4864	4973	
==>ype (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have anything on the lazy move <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7791	7900	
==>ype (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have anything on the lazy move <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8647	8756	
==>ype (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have anything on the lazy move <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002145	1002476	
==>" => "inline",
                  "CODE" => 1119,
                  "ARGS" => [
                              "i",
                              "i",
                              "sc",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/o <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36587	36731	
==>1
		ACTIONS => {
			"-" => 72,
			"%" => 76,
			"*" => 80,
			".." => 71,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -6 <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	56866	56998	
==>ction( $_[0], $fct, $_[2] );
        }
	],
	[#Rule 88
		 'functioncall', 4,
sub
#line 464 "Lua\lua51.yp"
{
            my $ob <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1638	1739	
==>/L' => '}',

 'Data'  => "\n",
 '/Data' => "\n",

 'Verbatim'  => "\n{\\pard\\li#rtfindent##rtfkeep#\\ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3051	3155	
==>intaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4809	4913	
==>intaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1973	2077	
==>intaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3225	3329	
==>intaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${ <==
4	/Users/nnunley/parrot/lib/Parrot/Op.pm	6874	6976	
==>}}/     $trans->expr_address($1); /me;

    return $_;
}

=item C<rewrite_body($body, $trans)>

Perform <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8484	8590	
==>";

	# If destination is a register then it is up to the SRM to do the store.
	# Otherwise, there's nothing <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6304	6410	
==>";

	# If destination is a register then it is up to the SRM to do the store.
	# Otherwise, there's nothing <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5219	5325	
==>";

	# If destination is a register then it is up to the SRM to do the store.
	# Otherwise, there's nothing <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	21946	22041	
==><NOTUSER;
	new P2, .PerlHash
	P2["name"]= '$_->[0]'
	P2["type"]= '$_->[2]'
	P4= P6["storage"]
	P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51734	51835	
==>f ({{\@1}} != 0) { Parrot_set_trace(interpreter,   {{\@1}}); }\n  else         { Parrot_clear_trace(in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52517	52618	
==>f ({{\@1}} != 0) { Parrot_set_trace(interpreter,   {{\@1}}); }\n  else         { Parrot_clear_trace(in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571105	571194	
==>ass = Parrot_class_lookup_p(interpreter, {{\@3}});\n    {{\@1}} = Parrot_object_isa(interp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572060	572149	
==>ass = Parrot_class_lookup_p(interpreter, {{\@3}});\n    {{\@1}} = Parrot_object_isa(interp <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	648	777	
==>ta->{_G} = new_tmp( $parser, 'pmc' );
        push @opcodes, new LocalDir( $parser,
            'prolog' => 1,
            'res <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	4578	4685	
==>f ($mode eq 'copy') {
    # Copy *.so -> destination, where destination is the first
    # argument, given a <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	4682	4789	
==>f ($mode eq 'copy') {
    # Copy *.so -> destination, where destination is the first
    # argument, given a <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3894	3998	
==>f ($mode eq 'copy') {
	# Copy *.so -> destination, where destination is the first
    # argument, given a <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	3054	3154	
==>ement({ Name => 'block', Attributes => { kind => 'then' } });
  }

  $handler->start_element({ Name = <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3818	3918	
==>ement({ Name => 'block', Attributes => { kind => 'then' } });
  }

  $handler->start_element({ Name = <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1001	1097	
==>name of "head1", token(s) for its
content, and then an end-token with the tagname of "head1".

=i <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1429	1525	
==>name of "head1", token(s) for its
content, and then an end-token with the tagname of "head1".

=i <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2394	2496	
==>ine type of formal argument (%s)!", $formal_arg_name) 
      unless defined $formal_arg_type;

    $sel <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2094	2196	
==>ine type of formal argument (%s)!", $formal_arg_name) 
      unless defined $formal_arg_type;

    $sel <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	870	970	
==>'),
        $self->new_section('APL', 'apl.html', '', 'languages/APL'),
        $self->new_section('B <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	1039	1134	
==>objects. Also
remembers what the original names are so a comment giving them can be
generated la <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	4428	4528	
==>y
    my @ungrouped_pmcs = grep { ! exists $pmc_group->{$_} } @pmcs;
    partial_link($_, $pmc_libs-> <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	4532	4632	
==>y
    my @ungrouped_pmcs = grep { ! exists $pmc_group->{$_} } @pmcs;
    partial_link($_, $pmc_libs-> <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92581	92903	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95032	95354	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95925	96247	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FL <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1168	1283	
==>ames and info
my $test_map = {};
for my $t ( keys %{$tests} ) {
    for my $s ( keys %$streams ) {
        $test_map <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	3457	3552	
==>methods, and one with read-only set methods.

=item C<need_ext>

The class needs a C<PMC_EXT> st <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	869	961	
==>/local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS = qq[-bundle -undefined suppress];
our $PER <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	858	950	
==>/local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS = qq[-bundle -undefined suppress];
our $PER <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	862	954	
==>/local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS = qq[-bundle -undefined suppress];
our $PER <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111300	111555	
==>g_bitwise_or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112192	112447	
==>g_bitwise_or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113084	113339	
==>g_bitwise_or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9413	9525	
==>"Wrong"
else
	print "Correct"
end if
if p$ = "Hello" then print "Whoa"

' Count by .5's and True! after 3
for t=1 <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	18405	18523	
==>@$para, 2;
      $content =~ s/^\s+//s;
      $content =~ s/\s+$//s;
      unless(length($content)) {
        $self->wh <==
4	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	444	534	
==>$self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  #$new->accept_codes('Verbat <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	248	337	
==>$self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->accept_codes('Verbat <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	247	336	
==>$self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->accept_codes('Verbat <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24629	24745	
==>p;
    }
  } else {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26528	26644	
==>p;
    }
  } else {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	10560	10662	
==>wer) checks back in.
sub disable_implicit_checks {
    my ($self, $t, $ctx) = @_;
    return $self->map <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3579	3668	
==>er_num

# Can do a lazy move.
PRE_OP_${CURIC}_LAZY_MOVE_$register_num:
${STACK$register_nu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858458	858608	
==>"
                            ],
                  "BODY" => "#line 118 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859462	859612	
==>"
                            ],
                  "BODY" => "#line 118 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860466	860616	
==>"
                            ],
                  "BODY" => "#line 118 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861471	861621	
==>"
                            ],
                  "BODY" => "#line 118 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19203	19420	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19979	20196	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20757	20974	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21557	21774	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803095	803362	
==>"inline",
                  "CODE" => 906,
                  "ARGS" => [
                              "p",
                              "kc",
                              "sc"
                            ],
                  "BODY" => "#line 467 \"src/ops/set.ops\" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540422	540525	
==>}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541674	541777	
==>}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542926	543029	
==>}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; { <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3849	3953	
==>list{$prm}
		or	croak("Invalid value for parameter '$prm'");
        $prm=unpack('@2A*',$prm);
		$$out <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3653	3754	
==>list{$prm}
		or	croak("Invalid value for parameter '$prm'");
        $prm=unpack('@2A*',$prm);
		$$out <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	735	834	
==>e sequences.
# Config stuff
our $CC = qq[/usr/bin/gcc-4.0 -c];
our $LD = qq[c++];
our $LDFLAGS = qq[ <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	739	838	
==>e sequences.
# Config stuff
our $CC = qq[/usr/bin/gcc-4.0 -c];
our $LD = qq[c++];
our $LDFLAGS = qq[ <==
4	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	15	103	
==>: /parrot/lib/Digest/Perl/MD5.pm 4793 2005-05-31T14:22:35.671857Z svm  $

package Digest: <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2410	2508	
==>]
	P1= P0["$stype"]
	P0= P1["$var"]	# Pull the original
	P2= P10[I25]
	P3= P2["$stype"]
	P3["$var"] <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2637	2735	
==>]
	P1= P0["$stype"]
	P0= P1["$var"]	# Pull the original
	P2= P10[I25]
	P3= P2["$stype"]
	P3["$var"] <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	976	1059	
==>((size_t)((opcode_t*)cur_opcode - (opcode_t*)interpreter->code->prederef.code))
#def <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1106	1189	
==>((size_t)((opcode_t*)cur_opcode - (opcode_t*)interpreter->code->prederef.code))
#def <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549914	550011	
==>\"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRIN <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551215	551312	
==>\"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRIN <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553777	553874	
==>\"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRIN <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555174	555271	
==>\"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRIN <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	32581	32699	
==>fine'     => \&_op_define,
  'set!'       => \&_op_set_bang,
  'cond'       => \&_op_cond,
  'case'       => \&_op_case <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1632	1745	
==>Paths need quoting as they may contain spaces.
    $PATHQUOTE = '"';

    unless ($CC =~ /gcc/i) {
        $LIBPAR <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1636	1749	
==>Paths need quoting as they may contain spaces.
    $PATHQUOTE = '"';

    unless ($CC =~ /gcc/i) {
        $LIBPAR <==
4	/Users/nnunley/parrot/tools/dev/run_indent.pl	4007	4113	
==>s occurred.\nYou can generally ignore them:\n";
#    foreach (sort keys %all_errors) {
#        print STDER <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73856	74156	
==>TYPE" => "function",
                  "CODE" => 97,
                  "ARGS" => [
                              "p",
                              "p",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 1156 \"src/o <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528639	528893	
==>\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529521	529775	
==>\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	530403	530657	
==>\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712658	712751	
==>ing_str_index(interpreter, s,\n\tconst_string(interpreter, \"e\"), 0) == -1)\n    PIO_puts(int <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713765	713858	
==>ing_str_index(interpreter, s,\n\tconst_string(interpreter, \"e\"), 0) == -1)\n    PIO_puts(int <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720125	720218	
==>ing_str_index(interpreter, s,\n\tconst_string(interpreter, \"e\"), 0) == -1)\n    PIO_puts(int <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721325	721418	
==>ing_str_index(interpreter, s,\n\tconst_string(interpreter, \"e\"), 0) == -1)\n    PIO_puts(int <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	122	237	
==>options, (ref($proto) || $proto);
    $self->init();
    return $self;
}

sub init {
    my $self = shift;
    $self <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	289	404	
==>options, (ref($proto) || $proto);
    $self->init();
    return $self;
}

sub init {
    my $self = shift;
    $self <==
4	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	4647	4751	
==>=> $a->{revision} ||
      $b->{timestamp}[0]  <=> $a->{timestamp}[0]
    } @{ $cats{$_} })
    [0..MAX_S <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	16314	16406	
==>ound $span instead", $line);
		Parse::RecDescent::_hint(
			"The <$op->{type}op:...> directiv <==
4	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	552	663	
==>ccflags);

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread <==
4	/Users/nnunley/parrot/config/init/hints/irix.pm	497	608	
==>ccflags);

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread <==
4	/Users/nnunley/parrot/config/init/hints/netbsd.pm	290	401	
==>ccflags);

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread <==
4	/Users/nnunley/parrot/config/init/hints/openbsd.pm	382	493	
==>ccflags);

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73156	73256	
==>{{\@1}}, {{\@4}}, F2DPTR(p));\n      PObj_get_FLAGS({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74758	74858	
==>{{\@1}}, {{\@4}}, F2DPTR(p));\n      PObj_get_FLAGS({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76360	76460	
==>{{\@1}}, {{\@4}}, F2DPTR(p));\n      PObj_get_FLAGS({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77963	78063	
==>{{\@1}}, {{\@4}}, F2DPTR(p));\n      PObj_get_FLAGS({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2359	2463	
==>able %s.", $right->value) unless $right_sym;
    $right_type = $right_sym->type;
  }
  else {
    $right_ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2317	2421	
==>able %s.", $right->value) unless $right_sym;
    $right_type = $right_sym->type;
  }
  else {
    $right_ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2239	2343	
==>able %s.", $right->value) unless $right_sym;
    $right_type = $right_sym->type;
  }
  else {
    $right_ <==
4	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	287	388	
==>sting routines specific to 'lua'.

=head1 DESCRIPTION

Call 'Parrot lua' and 'original lua'.

=h <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744312	744563	
==>om_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745078	745329	
==>om_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16437	16554	
==>qrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
            return $x;
        }
    }

    fo <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9980	10082	
==>qrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
      return $x;
    }
  }
  fo <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164826	165099	
==>, {{\@2}}) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165755	166028	
==>, {{\@2}}) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166684	166957	
==>, {{\@2}}) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	7791	7971	
==>$_) ? $_->{label} : $_ } @{ $_->{args} || [] });
            }
        } @_;
    } else {
        map {
            my $str;
            if ($_->{label}) {
                $str .= " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616612	616942	
==>"FLAGS" => ":pic",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 698,
                  "ARGS" => [
                              " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202717	202810	
==>e 380 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203648	203741	
==>e 380 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204579	204672	
==>e 380 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072836	1072963	
==>{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experim <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075021	1075148	
==>{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experim <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077206	1077333	
==>{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experim <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079392	1079519	
==>{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experim <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072860	1073111	
==>n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075045	1075296	
==>n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077230	1077481	
==>n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079416	1079667	
==>n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0 <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18018	18134	
==>rser, $obj, $meth, $args ) = @_;
    my @opcodes = ();
    my $key = BuildLiteral( $parser, $meth, 'key' );
    pu <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	679	779	
==>tution values. q[] is used in
# some places as Win32 paths have \'s in, which qq[] treats as escape s <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	637	737	
==>tution values. q[] is used in
# some places as Win32 paths have \'s in, which qq[] treats as escape s <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	641	741	
==>tution values. q[] is used in
# some places as Win32 paths have \'s in, which qq[] treats as escape s <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9929	10030	
==>t they come
# off the stack last to first, but need to be first to last in ${PARAMS}.
${ITEMP0} = elem <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7443	7544	
==>t they come
# off the stack last to first, but need to be first to last in ${PARAMS}.
${ITEMP0} = elem <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6407	6508	
==>t they come
# off the stack last to first, but need to be first to last in ${PARAMS}.
${ITEMP0} = elem <==
4	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	366	458	
==>r that line
before rerunning the build script.

=head1 EXAMPLE

See parrot/config/gen/makefil <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	8647	8754	
==>e INTs.
		if ($this->[1] eq "INT") {
			$this->[0].=".0";
		}

		if ($this->[1] eq "BARE") {
			$this->[0]=c <==
4	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	2811	2919	
==>ber of non-leap seconds since the
epoch.

=cut

sub modified_since
{
    my $self = shift;
    my $time = shi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553948	554037	
==>interpreter->current_object = object;\n  interpreter->current_cont = {{\@3}};\n  interpret <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555345	555434	
==>interpreter->current_object = object;\n  interpreter->current_cont = {{\@3}};\n  interpret <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556733	556822	
==>interpreter->current_object = object;\n  interpreter->current_cont = {{\@3}};\n  interpret <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792891	793188	
==>set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 895 <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7658	7761	
==>ft;
	my $pir = "";

	# If the destination isn't a register, determine register name now.
	if (!$dest_reg <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5776	5879	
==>ft;
	my $pir = "";

	# If the destination isn't a register, determine register name now.
	if (!$dest_reg <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	34527	34622	
==>her words, each type of bracket specified as a delimiter must be
balanced and correctly nested w <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080538	1080651	
==>){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "exper <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081603	1081716	
==>){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "exper <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082668	1082781	
==>){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "exper <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083734	1083847	
==>){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "exper <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3331	3440	
==>ove available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5093	5202	
==>ove available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8005	8114	
==>ove available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8862	8971	
==>ove available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	14	113	
==>n.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subjec <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	13	112	
==>n.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subjec <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	9	108	
==>n.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subjec <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	9	108	
==>n.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subjec <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478787	478887	
==>\"src/ops/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exception(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479679	479779	
==>\"src/ops/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exception(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	1725	1880	
==>e(<$fh>) {

        chomp;

        next if /^\s*#/ or /^\s*$/;

    if (/^\[(\w+)\]/) {
        $section = $1;
    }
        elsif (m/^\s*
            ($ty <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168418	168553	
==>"
                            ],
                  "BODY" => "#line 204 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169360	169495	
==>"
                            ],
                  "BODY" => "#line 204 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpre <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11900	11984	
==>ng1024\noproof\sbasedon10 pod-L-url;}
{\*\cs24 \additive \i\lang1024\noproof\sbasedon <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88805	89088	
==>> 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89542	89825	
==>> 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	527	633	
==>es);
@Known_directives       = qw(head1 head2 head3 head4 item over back); 
%Known_directives       = map(( <==
4	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1476	1578	
==>ase qw(Lua::opcode);

package NoOp;
use base qw(Lua::opcode);

package FindGlobalOp;
use base qw( <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	6357	6486	
==>urn $NOW - $ago;
    } else {
        return;
    }
}

sub needs_build {
    my ($target, @sources) = @_;

    my $target_mod = mo <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4777	4906	
==>urn $NOW - $ago;
    } else {
        return;
    }
}

sub needs_build {
    my ($target, @sources) = @_;

    my $target_mod = mo <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	6568	6697	
==>urn $NOW - $ago;
    } else {
        return;
    }
}

sub needs_build {
    my ($target, @sources) = @_;

    my $target_mod = mo <==
4	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	1161	1273	
==>sts()
##
## Convert the tests to a usable form.
##
sub convert_tests {
    print "Converting tests\n";
    my @fi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773390	773479	
==>"#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774300	774389	
==>"#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775210	775299	
==>"#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776121	776210	
==>"#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int(interpreter, {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710814	711006	
==>T, (INTVAL){{\@1}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711648	711840	
==>T, (INTVAL){{\@1}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1379	1499	
==>GHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $dest_ident = $self->dest;

  m <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1259	1379	
==>GHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $dest_ident = $self->dest;

  m <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	15524	15642	
==>est::Builder to find
            my $call_pkg = $builder->exported_to() || '';
            # die Dumper( $code, $expect <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	18075	18193	
==>est::Builder to find
            my $call_pkg = $builder->exported_to() || '';
            # die Dumper( $code, $expect <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653528	653625	
==>resume, METH_NOT_FOUND,\n            \"Method '%s' not found\", string_to_cstring(interpreter, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654689	654786	
==>resume, METH_NOT_FOUND,\n            \"Method '%s' not found\", string_to_cstring(interpreter, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072256	1072397	
==>0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074441	1074582	
==>0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076626	1076767	
==>0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078812	1078953	
==>0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	524805	525078	
==>){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "a <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	525558	525831	
==>){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "a <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527082	527355	
==>){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "a <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527835	528108	
==>){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "a <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050192	1050293	
==>n\tinternal_exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_g <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051226	1051327	
==>n\tinternal_exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_g <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052260	1052361	
==>n\tinternal_exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_g <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053295	1053396	
==>n\tinternal_exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_g <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30608	30717	
==>text))
							if defined $::RD_TRACE;').'
		push @item, '.($::RD_NO_HITEM ? ''
			       : '$item{'.$self->{ha <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12244	12352	
==>redo OUTDATA;
				}
				if ($type[CURR] =~ /COMP|COMM|STMT/) {
					push @ld, { type => "STRING", value=> qq{ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28532	28639	
==>text))
					if defined $::RD_TRACE;').'
		push @item, '.($::RD_NO_HITEM ? ''
			       : '$item{'.$self->{ha <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32811	32917	
==>text))
							if defined $::RD_TRACE;').'
		push @item, ' . ($::RD_NO_HITEM ? ''
				 : '$item{'.$self->{ha <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411052	411319	
==>nd(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411945	412212	
==>nd(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421857	422124	
==>nd(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422750	423017	
==>nd(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8670	8783	
==>ire_ident;
          my $arg_name  = $arg_token->text;

          push @formal_args, [ $arg_type, $arg_name, $arg_ <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	4120	4221	
==>osbug = pos;
	$ldel = join('|', map { quotemeta $_ } split('', $ldel));
	$rdel = join('|', map { quote <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	12509	12608	
==>code snippet, and then pass the result to is or ok
on success, or report that the eval was not succe <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25255	25341	
==>op"}=1;
	$main::code{$main::seg}->{declarations}->{"FORLOOP_STEP_$forloop"}=1;
	push @{ <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31946	32072	
==>rameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33523	33649	
==>rameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38540	38666	
==>rameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40580	40706	
==>rameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	15418	15562	
==>ocks:
      #

      elsif ($peer_block->kind eq 'module') {
        # DO NOTHING
      }

      #
      # If there is any other kind of block, w <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2312	2428	
==>larations}}) {
				if (exists $main::common{$var}) {
					push(@saves, $var);
				}
			}
			if (@saves) {
				$edit.= <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2721	2837	
==>larations}}) {
				if (exists $main::common{$var}) {
					push(@saves, $var);
				}
			}
			if (@saves) {
				$edit.= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948811	948898	
==>> "#line 535 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_charset(interpreter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949611	949698	
==>> "#line 535 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_charset(interpreter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540799	541106	
==>\@1}} = b<<p;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542051	542358	
==>\@1}} = b<<p;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543303	543610	
==>\@1}} = b<<p;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
4	/Users/nnunley/parrot/lib/Test/More.pm	19303	19401	
==>able (like a 
net connection) or a module isn't available.  In these cases it's
necessary to skip t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	619142	619234	
==>es) {\n\tINTVAL a = lt == enum_class_Integer ? PMC_int_val(left) :\n\t    VTABLE_get_integer( <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	595	682	
==>. ref($ident) . ") is not!") unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	605	692	
==>. ref($ident) . ") is not!") unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	605	692	
==>. ref($ident) . ") is not!") unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression: <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	3682	3785	
==>group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Conver <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	4043	4146	
==>group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Conver <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	3786	3889	
==>group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Conver <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	4147	4250	
==>group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Conver <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766618	766860	
==>cess\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767471	767713	
==>cess\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768324	768566	
==>cess\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769178	769420	
==>cess\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19276	19370	
==>oy,
stuff wow yeah!".

If the title can't be found, then get_short_title returns empty-string
( <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	14400	14506	
==>dyadic ops.
my @type_pairs = (
  [ 'Float', 'Float' ],
  [ 'Float', 'APLVector' ], 
  [ 'APLVector', 'Float <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	1172	1268	
==>code',
	'declarations' => 'Library declarations file',
	'def' => 'Library definitions file',
	'de <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48714	48808	
==>arse("an invalid repetition specifier", 0,$line);
					_error("Incorrect specification of a rep <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1621	1707	
==>rn $self->directory_with_path(File::Spec->catdir(File::Spec->tmpdir, @_));
}

=item C<n <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	13252	13378	
==>($include, $this, $all) = @_;

    my @todo  = ($this);
    my $class = $all->{$this};

    while (@todo) {
        my $n   = s <==
4	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	322	441	
==>eded.

=cut

sub new {
    return bless {};
}

sub output_is() {
    my ($self, $code, $output, $desc) = @_;
  
    my $ <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	360	479	
==>eded.

=cut

sub new {
    return bless {};
}

sub output_is() {
    my ($self, $code, $output, $desc) = @_;
  
    my $ <==
4	/Users/nnunley/parrot/config/auto/sizes.pm	2117	2219	
==>if ($results{intsize} == 4) {
        $conf->data->set(int4_t => 'int');
    } elsif ($results{longsize <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	3237	3341	
==>l || ! $label->{label};
    ($label = $label->{label}) =~ s/^@//; # FIXME: local labels?
    return "$lab <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858614	858711	
==>"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859618	859715	
==>"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860622	860719	
==>"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861627	861724	
==>"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2}}, (UINTVA <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2152	2278	
==>tial_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to pu <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2444	2570	
==>tial_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to pu <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2239	2365	
==>tial_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to pu <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	22386	22485	
==>PY_$_->[1]
	P2["storage"]= P1
	P6= P5		# Go back to where we were!
	P2["_type"]= '$_->[1]'
	P3["$_-> <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26359	26509	
==>belOp( $parser,
            'arg1' => $l_next,
        );
    }
    if ( defined $else ) {
        push @opcodes, @{$else};
    }
    push @opco <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33846	33951	
==>']},
				  Parse::RecDescent::_tracefirst($text),
				  q{' . $rule->{"name"} . '})
					if defined $::RD_ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37404	37509	
==>']},
				  Parse::RecDescent::_tracefirst($text),
				  q{' . $rule->{"name"} . '})
					if defined $::RD_ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39807	39912	
==>']},
				  Parse::RecDescent::_tracefirst($text),
				  q{' . $rule->{"name"} . '})
					if defined $::RD_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757109	757463	
==>base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 854,
                  "ARGS" => [
                              "p",
                              "sc"
                            ], <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62651	62908	
==>"LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorsoff",
                  "FLAGS" => "",
                  "A <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63296	63553	
==>"LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorsoff",
                  "FLAGS" => "",
                  "A <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	17128	17230	
==>NET exception object, then put a jump
    # label.
    gen_pir = concat ".get_results (cur_exception, $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939737	940015	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940628	940906	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941520	941798	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942412	942690	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	506	651	
==>GMP' => 1,
             'HAS_READLINE' => 1,
             'HAS_SNPRINTF' => 1,
             'HAS_aligned_funcptr' => 1,
             'MAJOR' => '0 <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2085	2182	
==>e want to complain
  # about the redefinition. Otherwise, we assume the programmer wanted to shado <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1605	1702	
==>e want to complain
  # about the redefinition. Otherwise, we assume the programmer wanted to shado <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1832	1929	
==>e want to complain
  # about the redefinition. Otherwise, we assume the programmer wanted to shado <==
4	/Users/nnunley/parrot/lib/Test/More.pm	11951	12088	
==>hods[0]')" 
                          : "$class->can(...)";
    
    my $ok = $Test->ok( !@nok, $name );

    $Test->diag(map "    $class- <==
4	/Users/nnunley/parrot/config/inter/charset.pm	1110	1213	
==>/g;

    my $TEMP_charset_build = <<"E_NOTE";

# the following part of the Makefile was built by 'config <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2407	2506	
==>ormal argument (%s)!", $formal_arg_name) 
      unless defined $formal_arg_type;

    $self->INTERNA <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2107	2206	
==>ormal argument (%s)!", $formal_arg_name) 
      unless defined $formal_arg_type;

    $self->INTERNA <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20663	20791	
==>hcount, $max, $rfail ]),
               @R_ops,
               aop('add', [ $matchcount, 1 ]),
     $check => aop('lt', [ $matchc <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	128	244	
==>s, (ref($proto) || $proto);
    $self->init();
    return $self;
}

sub init {
    my $self = shift;
    $self->{stat <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	295	411	
==>s, (ref($proto) || $proto);
    $self->init();
    return $self;
}

sub init {
    my $self = shift;
    $self->{stat <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	141	257	
==>s, (ref($proto) || $proto);
    $self->init();
    return $self;
}

sub init {
    my $self = shift;
    $self->{stat <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	33305	33435	
==>I');
	   print <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	34054	34184	
==>I');
	   print <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	34978	35108	
==>I');
	   print <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	3737	3866	
==>' => 'long double',
             'hugefloatvalsize' => '16',
             'hugeintval' => 'long long',
             'hugeintvalsiz <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344624	344928	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345866	346170	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347108	347412	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348351	348655	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876919	877219	
==>YPE" => "inline",
                  "CODE" => 994,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 239 \"src/ops <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033262	1033357	
==>NG * const lex_name = {{\@1}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034360	1034455	
==>NG * const lex_name = {{\@1}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name, <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	326	420	
==>t
use vars qw($GLOBAL_STATE);
sub global_state {
    return $GLOBAL_STATE ||= Regex::State->new <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	14960	15167	
==>$args "$code_f"},
                        qq{$parrot "$pbc_f"},
                    ];
                } else {
                    $cmd = qq{$parrot $args "$code_f"};
                }
                $exit_ <==
4	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	836	966	
==>to get to
    # the tcl binary.

    # There are basically 3 choices: run in one of:
    #  languages
    #  languages/tcl
    #  l <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8685	8782	
==>nts ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_END_${CURIC}

# Get type of return value and build c <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7257	7354	
==>nts ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_END_${CURIC}

# Get type of return value and build c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950559	950649	
==>preter, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951519	951609	
==>preter, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952479	952569	
==>preter, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953440	953530	
==>preter, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, dest);\ <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6234	6339	
==>2) = "Boston"
A$(3) = "Chicago"
A$(4) = "Seattle"
Max = 4 'UBOUND(A$)
Exchange=TRUE           ' Force firs <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15887	15992	
==>2) = "Boston"
A$(3) = "Chicago"
A$(4) = "Seattle"
Max = 4 'UBOUND(A$)
Exchange=TRUE           ' Force firs <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12824	12925	
==>7.  If
the name has no known value (as with a name of "qacute") or is
syntactally invalid (as with a n <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32062	32154	
==>if ($rule->{'instruction'} =~ /\$\{STACK0\}/ &&
		    $rule->{'instruction'} =~ /\$\{STOREREG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332430	332517	
==>to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHANDL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333708	333795	
==>to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHANDL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334986	335073	
==>to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHANDL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336265	336352	
==>to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHANDL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858540	858639	
==>string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat with negati <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859544	859643	
==>string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat with negati <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860548	860647	
==>string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat with negati <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861553	861652	
==>string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(NEG_REPEAT, \"Cannot repeat with negati <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	4918	5022	
==>tbug' ) 
	    or $self->suffix eq 'dump';
	
	if ( ! exists $self->{POD_ERRORS_TIME} or 
		$self->modified <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21335	21436	
==>,[$temp,0,"DONE_$label"]);
  $self->_restore($temp);
  $self->_add_inst(''           ,'set'   ,[$retur <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21720	21821	
==>,[$temp,0,"DONE_$label"]);
  $self->_restore($temp);
  $self->_add_inst(''           ,'set'   ,[$retur <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22105	22206	
==>,[$temp,0,"DONE_$label"]);
  $self->_restore($temp);
  $self->_add_inst(''           ,'set'   ,[$retur <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777070	777161	
==>1}}->vtable->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777979	778070	
==>1}}->vtable->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778888	778979	
==>1}}->vtable->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779798	779889	
==>1}}->vtable->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n", <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29154	29302	
==>> {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"* <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41260	41408	
==>> {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"* <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44406	44554	
==>> {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"* <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7575	7713	
==>r) {
        $_ = File::Spec->devnull
            if $_ and $_ eq '/dev/null';
    }

    if ($out and $err and $out eq $err) {
        $er <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099225	1099344	
==>= -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100423	1100542	
==>= -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101621	1101740	
==>= -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102820	1102939	
==>= -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0 <==
4	/Users/nnunley/parrot/config/auto/m4.pm	849	959	
==>--version' hangs under FreeBSD
    my %m4_hangs = (freebsd => 1);

    if ($m4_hangs{$osname}) {
        $has_g <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646890	647182	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647650	647942	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648411	648703	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649173	649465	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	7527	7626	
==>nterpreter, struct call_state *st, int n)
{
    assert(n < st->src.n);
    Parrot_fetch_arg_nci(inte <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	7710	7809	
==>nterpreter, struct call_state *st, int n)
{
    assert(n < st->src.n);
    Parrot_fetch_arg_nci(inte <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	7892	7991	
==>nterpreter, struct call_state *st, int n)
{
    assert(n < st->src.n);
    Parrot_fetch_arg_nci(inte <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	458	555	
==>f->SUPER::init_context($ctx);
}

sub pushop { "push" };
sub popop { "pop" };

sub output_match_suc <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	533	664	
==>->{verbose_error} );
}

sub Warning {
    my $parser = shift;
    my ($msg) = @_;

    $msg ||= ".\n";

    if ( exists $pa <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1954	2044	
==>->value);
    $self->SYNTAX_ERROR("Expression involves unknown variable %s.", $left->value) <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1912	2002	
==>->value);
    $self->SYNTAX_ERROR("Expression involves unknown variable %s.", $left->value) <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1834	1924	
==>->value);
    $self->SYNTAX_ERROR("Expression involves unknown variable %s.", $left->value) <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19866	19951	
==>self->_add_inst('','le',[$temp_0,$temp_1,"DONE_$label"]);
    $self->_restore($temp_1) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762432	762704	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":bas <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763284	763556	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":bas <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764137	764409	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":bas <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764990	765262	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":bas <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	7477	7613	
==>>dbprint("pushing start[$group]: "),
                        aop('pushint', [ '<tmp>' ]),
                        aop('getend', [ '<tmp>' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761457	761580	
==>S)\n        PANIC(\"Out of bound register access\");\n    REG_PMC({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "L <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762310	762433	
==>S)\n        PANIC(\"Out of bound register access\");\n    REG_PMC({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "L <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	4901	5002	
==>})
	{
		my $self = $owner->{"rules"}{$name};
		if ($replace && !$self->{"changed"})
		{
			$self->rese <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18868	18967	
==>temp_2;
    }
    $self->_add_inst ('', 'ne', [$temp_0,$temp_1,"DONE_$label"]);
    $self->_restore( <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1509	1610	
==>block->find_symbol($name);

  #
  # If the identifier is already defined at ANY lexical scope, we want <==
4	/Users/nnunley/parrot/config/inter/lex.pm	353	445	
==>ompt $util );

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step qw( : <==
4	/Users/nnunley/parrot/config/inter/make.pm	347	439	
==>ompt $util );

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step qw( : <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	348	440	
==>ompt $util );

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step qw( : <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	371733	372008	
==>preter, pio, 0);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164694	164831	
==>"
                            ],
                  "BODY" => "#line 190 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165623	165760	
==>"
                            ],
                  "BODY" => "#line 190 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166552	166689	
==>"
                            ],
                  "BODY" => "#line 190 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@ <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	19885	19998	
==>here may be memory issues with this but if we get to here we are
     * aborting.
     */
    c = string_to_cstrin <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29386	29497	
==>ng terminal: [' . $self->describe
					  . ']},
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $rule <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31483	31594	
==>ng terminal: [' . $self->describe
					  . ']},
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $rule <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27283	27387	
==>ng terminal: [' . $self->describe
					  . ']}, Parse::RecDescent::_tracefirst($text),
					  q{' . $rule <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7968	8069	
==>o::Construct::Block");
  confess "No identifier name!"  unless defined $name;
  confess "Extra argumen <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8615	8716	
==>o::Construct::Block");
  confess "No identifier name!"  unless defined $name;
  confess "Extra argumen <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9283	9384	
==>o::Construct::Block");
  confess "No identifier name!"  unless defined $name;
  confess "Extra argumen <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9952	10053	
==>o::Construct::Block");
  confess "No identifier name!"  unless defined $name;
  confess "Extra argumen <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	4566	4685	
==>ranches} += $total_branches;
                $totals{covered_branches} += $covered_branches;
                $file_branc <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	37335	37437	
==>XML tag is used.

=item 3.

A string specifying a pattern to be matched at the closing tag. 
If the pat <==
4	/Users/nnunley/parrot/tools/dev/install_files.pl	649	745	
==>ults to '/usr'.

=item C<exec_prefix>

The exec prefix. Defaults to '/usr'.

=item C<bindir>

The <==
4	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	878	974	
==>ults to '/usr'.

=item C<exec_prefix>

The exec prefix. Defaults to '/usr'.

=item C<bindir>

The <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147325	147588	
==>reter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148266	148529	
==>reter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149206	149469	
==>reter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150147	150410	
==>reter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	13039	13155	
==>dump_tree {
    my ($op) = @_;
    my $ref = $op->reftree();
    return dump_ref($ref);
}

sub dump_ref {
    my ($re <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10020	10109	
==>MP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC}:
if ${ITE <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7534	7623	
==>MP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC}:
if ${ITE <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6498	6587	
==>MP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC}:
if ${ITE <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2985	3086	
==>> "%ld",
    'nc' => "CONST(%ld)->u.number",
    'pc' => "CONST(%ld)->u.key",
    'sc' => "CONST(%ld)- <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3208	3308	
==>)->u.number",
    'pc' => "CONST(%ld)->u.key",
    'sc' => "CONST(%ld)->u.string",
    'kc' => "CONST <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3016	3116	
==>)->u.number",
    'pc' => "CONST(%ld)->u.key",
    'sc' => "CONST(%ld)->u.string",
    'kc' => "CONST <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2119	2216	
==>)->u.number",
  'pc'  => "CONST(%ld)->u.key",
  'sc'  => "CONST(%ld)->u.string",
  'kc'  => "CONST <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404661	404839	
==>sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405573	405751	
==>sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406485	406663	
==>sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407398	407576	
==>sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579652	579913	
==>);\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580957	581218	
==>);\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582262	582523	
==>);\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583568	583829	
==>);\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344550	344870	
==>eter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345792	346112	
==>eter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347034	347354	
==>eter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348277	348597	
==>eter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
4	/Users/nnunley/parrot/config/auto/sizes.pm	3615	3745	
==>ing bigger than intval.
            $conf->data->set(%hugeintval);
            last;
        }
    }
    if (!defined($hugeintval{h <==
4	/Users/nnunley/parrot/config/gen/platform.pm	3671	3783	
==>misc.c
        /;

    open PLATFORM_C, "> src/platform.c" or die "Can't open src/platform.c: $!";

    print PLA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210263	210357	
==>interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) <= 0) {\n    {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211243	211337	
==>interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) <= 0) {\n    {{ <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	30833	30949	
==>topt::Std" are); or
# possibly a man page name (like "crontab(5)" is).
#

############# Not implemented, I guess.
# S <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9440	9539	
==>PIR';
# See if we've got a return or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${C <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5510	5609	
==>PIR';
# See if we've got a return or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${C <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6955	7053	
==>PIR'
# See if we've got a return or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${C <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4834	4938	
==>>type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();

    $compiler->emit("  $pmc_reg = new $pmc_typ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2897	3001	
==>>type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();

    $compiler->emit("  $pmc_reg = new $pmc_typ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1200	1303	
==>>type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();
    $compiler->emit("  $pmc_reg = new $pmc_typ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1194	1297	
==>>type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();
    $compiler->emit("  $pmc_reg = new $pmc_typ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586867	586967	
==>ing( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588053	588153	
==>ing( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589239	589339	
==>ing( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590426	590526	
==>ing( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579338	579447	
==>});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580643	580752	
==>});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581948	582057	
==>});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583254	583363	
==>});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter, n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968791	968958	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969800	969967	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970809	970976	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971819	971986	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657170	657368	
==>"i",
                              "p",
                              "kic"
                            ],
                  "BODY" => "#line 324 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504019	504197	
==>line 631 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504874	505052	
==>line 631 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505729	505907	
==>line 631 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	13030	13142	
==>filename: $!";
    my $text = do {local $/; <$fh>};
    close($fh) or die "Can't close $filename: $!";

    retur <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9234	9332	
==>cat " = "
${INS} = concat ${STEMP0}
${INS} = concat "\n"

# Decrement stack height.
dec stack_depth <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6752	6850	
==>cat " = "
${INS} = concat ${STEMP0}
${INS} = concat "\n"

# Decrement stack height.
dec stack_depth <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	4245	4340	
==>xecutable' if $self->is_executable;
		
	return $UNDEFINED;
}

=item C<is_of_type($type)>

Return <==
4	/Users/nnunley/parrot/config/auto/pack.pm	997	1127	
==>&& ($size == $longsize) && ($size == $Config{longsize})) {
            $format = 'l!';
        } elsif ($size == 4) {
            $ <==
4	/Users/nnunley/parrot/tools/dev/run_indent.pl	2172	2289	
==>s ($fdecl =~ /\n/);
        my ($firstline,$secondline) = split /\n/, $fdecl;
        if ($firstline !~ /\(/) {
	    $ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	73	172	
==>eGen';
use strict;

my $fail_label = Regex::Ops::Tree::mark('FAIL');

sub output_preamble {
    my $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4740	4835	
==>_symbols()

FOR DEBUGGING ONLY.

Dumps the complete list of symbols visible from this block, inc <==
4	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	196	313	
==>4';

our $VERSION = 0.01;

sub get_out_fn {
    my $self = shift;
    my ( $count ) = @_;

    return Parrot::Test::pe <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27593	27693	
==>avetext = $text;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'unless')
		. ' ($text =~ s/\A($skip <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29703	29803	
==>avetext = $text;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'unless')
		. ' ($text =~ s/\A($skip <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31800	31900	
==>avetext = $text;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'unless')
		. ' ($text =~ s/\A($skip <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610560	610772	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611462	611674	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612365	612577	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613271	613483	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800662	800770	
==>}->vtable->set_string_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801566	801674	
==>}->vtable->set_string_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802470	802578	
==>}->vtable->set_string_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803375	803483	
==>}->vtable->set_string_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800676	800937	
==>_string_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801580	801841	
==>_string_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802484	802745	
==>_string_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803389	803650	
==>_string_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	687	787	
==>alues. q[] is used in
# some places as Win32 paths have \'s in, which qq[] treats as escape sequences <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	645	745	
==>alues. q[] is used in
# some places as Win32 paths have \'s in, which qq[] treats as escape sequences <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	649	749	
==>alues. q[] is used in
# some places as Win32 paths have \'s in, which qq[] treats as escape sequences <==
4	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	656	755	
==>THIS IS A GENERATED FILE! DO NOT EDIT!

.HLL '_dotnet', ''

.sub internal_method_body
    .param pmc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147329	147596	
==>r, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148270	148537	
==>r, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149210	149477	
==>r, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150151	150418	
==>r, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Posix.pm	321	438	
==>et_test_prog {
    my $self = shift;
    my ( $count, $options ) = @_;

    my $lang_fn        = Parrot::Test::per_tes <==
4	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	451	561	
==>et_test_prog {
    my $self = shift;
    my ( $count, $options ) = @_;

    my $lang_fn = Parrot::Test::per_tes <==
4	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr3.pm	343	453	
==>et_test_prog {
    my $self = shift;
    my ( $count, $options ) = @_;

    my $lang_fn = Parrot::Test::per_tes <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10778	10870	
==>elf->file_with_path($path);
}

=item C<delete()>

Deletes the directory and all its contents, <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	1887	2028	
==>];
    $self->{DONT_WRAP} = 0;
    
    while ( $token = $self->get_token )
    {
        $type = $token->type;
        
        if ( $type eq <==
4	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1356	1442	
==>H => "X0=rotate_left((X1^X2^X3)+X0+X4+X6$MSK,X5)+X1$MSK;",
	II => "X0=rotate_left((X2^( <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	10827	10911	
==>esizablepmcarray.pmc resizablestringarray.pmc scalar.pmc slice.pmc super.pmc undef.pm <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1359	1462	
==>ADDRESS($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($sel <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1884	1987	
==>ADDRESS($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($sel <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1775	1878	
==>ADDRESS($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($sel <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1499	1602	
==>ADDRESS($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address
{
    my ($sel <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858053	858351	
==>LAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 974,
                  "ARGS" = <==
4	/Users/nnunley/parrot/config/init/defaults.pm	5381	5501	
==>d      => '&&',

        # make_c: Command to emulate GNU make's C<-C directory> option:  chdir
        # to C<directory> <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22607	22708	
==>ONE_$label"]);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$label <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23108	23209	
==>ONE_$label"]);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$label <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712612	712706	
==>ng(interpreter, \".\"), 0) == -1 &&\n      string_str_index(interpreter, s,\n\tconst_string(int <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713719	713813	
==>ng(interpreter, \".\"), 0) == -1 &&\n      string_str_index(interpreter, s,\n\tconst_string(int <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720079	720173	
==>ng(interpreter, \".\"), 0) == -1 &&\n      string_str_index(interpreter, s,\n\tconst_string(int <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721279	721373	
==>ng(interpreter, \".\"), 0) == -1 &&\n      string_str_index(interpreter, s,\n\tconst_string(int <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	6905	7020	
==>"$PMC2C --c $pmc.pmc")
          or die "pmc2c code generation failed ($?)\n";
    }
}

sub compile {
    my ($src_s <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	7116	7231	
==>"$PMC2C --c $pmc.pmc")
          or die "pmc2c code generation failed ($?)\n";
    }
}

sub compile {
    my ($src_s <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1855	1952	
==>ption, @todo)>

Runs the target string against the Perl 6 pattern, passing the test if
they do not <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3387	3484	
==>ption, @todo)>

Runs the target string against the Perl 6 pattern, passing the test if
they do not <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	34514	34636	
==>ero?'            => \&_op_zero_p,
  'positive?'        => \&_op_positive_p,
  'negative?'        => \&_op_negative_p,
  'od <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199989	200105	
==>],
                  "BODY" => "#line 373 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200886	201002	
==>],
                  "BODY" => "#line 373 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201783	201899	
==>],
                  "BODY" => "#line 373 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	8488	8588	
==>------
sub unaccept_target         { shift->unaccept_targets(@_) }

sub unaccept_targets {
  my $this <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	53066	53184	
==>%pretty_form = (
  "\a" => '\a', # ding!
  "\b" => '\b', # BS
  "\e" => '\e', # ESC
  "\f" => '\f', # FF
  "\t" => '\t' <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1366	1466	
==>eration, even with bad source code as input.
  #

  $self->INTERNAL_ERROR("Undefined block!")
    unl <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1311	1411	
==>eration, even with bad source code as input.
  #

  $self->INTERNAL_ERROR("Undefined block!")
    unl <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1214	1314	
==>eration, even with bad source code as input.
  #

  $self->INTERNAL_ERROR("Undefined block!")
    unl <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	34679	34814	
==>{'to'  } =
            Pod::Simple::LinkSection->new( $it ); # treelet!

          next;
        }
        if($it =~ m/^[^\/\|,\$\%\@\ \ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	177	281	
==>BUG unless defined &DEBUG }

sub new {
  my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'o <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	176	280	
==>BUG unless defined &DEBUG }

sub new {
  my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'o <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5747	5850	
==>_save_1 ('P');

  _num_arg ($node, 1, 'quote');

  my $item = _get_arg($node,1);

  return __quoted ($se <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659537	659866	
==>UMP" => 0,
                  "NAME" => "exists",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 73 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660458	660787	
==>UMP" => 0,
                  "NAME" => "exists",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 73 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661380	661709	
==>UMP" => 0,
                  "NAME" => "exists",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 73 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662295	662623	
==>UMP" => 0,
                  "NAME" => "exists",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
4	/Users/nnunley/parrot/config/auto/gcc.pm	4845	4986	
==>nless $opt; # Ignore blank lines

            if ($opt =~ /-mno-accumulate-outgoing-args/) {
                use Config;
                if ($ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	2073	2190	
==>Za-z0-9_]*}))(.*)$/;

      $compiler->emit("  concat $temp, \"$1\"")
        if defined $1 and $1 ne '';

      my $i <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	15860	15969	
==>('goto', [ $ibacks[-1] ]);
    push @ops, $next;

    return ($back, @ops);
}

# Dynamic alternation: a set of <==
4	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	4644	4744	
==>are already deprecated.

 o could fixup Pmc vs. .Pmc
 o could undo usage of '<reg> = opcode' syntax w <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	28644	28769	
==>{$treelet->[$i]}\n";
        
      # bitch UNLESS it's empty
      unless(  @{$treelet->[$i]} == 2
           or (@{$treelet- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540349	540448	
==>Y" => "#line 1022 \"src/ops/math.ops\"\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541601	541700	
==>Y" => "#line 1022 \"src/ops/math.ops\"\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542853	542952	
==>Y" => "#line 1022 \"src/ops/math.ops\"\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	7660	7776	
==>t_token($next);
        return;
    }
    
    printf {$self->{'output_fh'}} "\n" . $next->text . "\n";
}

=item C<pr <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9926	10027	
==>that they come
# off the stack last to first, but need to be first to last in ${PARAMS}.
${ITEMP0} = e <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7440	7541	
==>that they come
# off the stack last to first, but need to be first to last in ${PARAMS}.
${ITEMP0} = e <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6404	6505	
==>that they come
# off the stack last to first, but need to be first to last in ${PARAMS}.
${ITEMP0} = e <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114867	115166	
==>"JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115721	116020	
==>"JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116576	116875	
==>"JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	134	233	
==>Parrot interpreter.
#
# $Id: $
#

use strict;
eval "use warnings";

package Jako::Construct::Stateme <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497458	497812	
==>"i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 571,
                  "ARGS" => [
                              "n",
                              "nc",
                              "n"
                            ],
                  "BODY" => "#line 595 \ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126540	126646	
==>ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  INTVAL d, t;\n  i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127675	127781	
==>ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  INTVAL d, t;\n  i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128810	128916	
==>ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  INTVAL d, t;\n  i <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1434	1525	
==>0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = "$ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1961	2052	
==>0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = "$ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3144	3235	
==>0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = "$ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688	770	
==>n** bit.ops\n*/\n\n\n\n/*\n** cmp.ops\n*/\n\n\n\n/*\n** debug.ops\n*/\n\n\n\n/*\n** <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692762	692928	
==>i",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693762	693928	
==>i",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694762	694928	
==>i",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695763	695929	
==>i",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{\@1} <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15715	15819	
==>at the =
		$whole.=" = ";

		$opts{lhs}=0;
		@expr=get_expression(%opts);	# Get expression tokens
		$whol <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107127	107275	
==>" => "#line 167 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107981	108129	
==>" => "#line 167 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108835	108983	
==>" => "#line 167 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	3711	3831	
==>$1 eq '[' ? 'open-bracket' : 'close-bracket', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^([\{\} <==
4	/Users/nnunley/parrot/tools/build/ops2pm.pl	6641	6759	
==>{
    my $opname = $_->full_name;
    my $n = $_->{CODE};
    my $comma = $n < @{$real_ops->{OPS}} -1 ? "," : "";
    $ <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	9511	9611	
==>truct( CLASS_NAME => { ELEMENT_LIST });
    struct( ELEMENT_LIST );

The first and second forms expli <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1428	1527	
==>rage for stack depths and stack type states that we are
	# propogating.
	return <<'PIR';
.local stri <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	515	614	
==>rage for stack depths and stack type states that we are
	# propogating.
	return <<'PIR';
.local stri <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	25320	25440	
==>n extend only formatting codes A-Z, not like \"$new_letter\""
      );
      return;
    }
    
    if(grep $new_letter e <==
4	/Users/nnunley/parrot/config/inter/lex.pm	351	442	
==>prompt $util );

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step qw <==
4	/Users/nnunley/parrot/config/inter/make.pm	345	436	
==>prompt $util );

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step qw <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	346	437	
==>prompt $util );

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step qw <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871033	871170	
==>i"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872050	872187	
==>i"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873067	873204	
==>i"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874085	874222	
==>i"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpreter, {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858694	858963	
==>, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859698	859967	
==>, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860702	860971	
==>, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861707	861976	
==>, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777053	777152	
==>t.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777962	778061	
==>t.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778871	778970	
==>t.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779781	779880	
==>t.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763053	763175	
==>],
                  "BODY" => "#line 320 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763906	764028	
==>],
                  "BODY" => "#line 320 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764759	764881	
==>],
                  "BODY" => "#line 320 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765613	765735	
==>],
                  "BODY" => "#line 320 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627078	627178	
==>mc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpret <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628222	628322	
==>mc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpret <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632480	632580	
==>mc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpret <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633522	633622	
==>mc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_exception(interpret <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	101	190	
==>2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Section::Languages - L <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	1856	1941	
==>ll -Wstrict-prototypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwri <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1221	1306	
==>ll -Wstrict-prototypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwri <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1225	1310	
==>ll -Wstrict-prototypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwri <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344405	344501	
==>/* string_cstring_free(mode); */\n  /* string_cstring_free(path); */\n  if(!{{\@1}} || !PMC_struc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345647	345743	
==>/* string_cstring_free(mode); */\n  /* string_cstring_free(path); */\n  if(!{{\@1}} || !PMC_struc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346889	346985	
==>/* string_cstring_free(mode); */\n  /* string_cstring_free(path); */\n  if(!{{\@1}} || !PMC_struc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348132	348228	
==>/* string_cstring_free(mode); */\n  /* string_cstring_free(path); */\n  if(!{{\@1}} || !PMC_struc <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	3169	3327	
==>rpreter'], 
                'sources' => [
                    'inter_cb', 'inter_create', 'inter_misc', 'inter_run'
                ], 
                'heade <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	12256	12411	
==>oter();

    close(OUT);
    close(IN);


    return;

    sub do_filter {
        my ($skip_func) = @_;
        
        while (<IN>) {
            s/&/&am <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8949	9076	
==>to four
    if $I1 == 5 goto five
    if $I1 == 6 goto six
    if $I1 == 7 goto seven
    if $I1 == -1 goto neg_one
    if $I1 = <==
4	/Users/nnunley/parrot/config/gen/platform.pm	4397	4502	
==>ND_HERE';
#include "parrot/parrot.h"

END_HERE

    for (@impls) {
        my $impl_file = "config/gen/pla <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	44478	44576	
==>is, the contents of
a quote, the regex of a match or substitution or the target list of a
translati <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7224	7315	
==>r($file, $line, "Improper indenting for \"$_\"\n(should be \"#$indent$2\" because it is insi <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7531	7622	
==>r($file, $line, "Improper indenting for \"$_\"\n(should be \"#$indent$2\" because it is insi <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7889	7980	
==>r($file, $line, "Improper indenting for \"$_\"\n(should be \"#$indent$2\" because it is insi <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1667	1790	
==>ub args      { return @{shift->{ARGS}};   }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  m <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1175	1291	
==>ub args { return @{shift->{ARGS}}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  m <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	994	1110	
==>ub args { return @{shift->{ARGS}}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  m <==
4	/Users/nnunley/parrot/config/inter/make.pm	733	837	
==>->get('verbose');

    # undef means we don't have GNU make... default to not having it
    $conf->data-> <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050197	1050296	
==>ternal_exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051231	1051330	
==>ternal_exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052265	1052364	
==>ternal_exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053300	1053399	
==>ternal_exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591543	591651	
==>_name(interpreter, {{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592753	592861	
==>_name(interpreter, {{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593963	594071	
==>_name(interpreter, {{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595174	595282	
==>_name(interpreter, {{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exi <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35218	35341	
==>lue: [}
					. $_tok . q{]},
					  
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{"name"} .'})
						i <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11437	11545	
==>ock, $token);
      my $op    = substr($self->forth->text, 0, -1);
      my $value = Jako::Construct::Express <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11984	12092	
==>ock, $token);
      my $op    = substr($self->forth->text, 0, -1);
      my $value = Jako::Construct::Express <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12527	12635	
==>ock, $token);
      my $op    = substr($self->forth->text, 0, -1);
      my $value = Jako::Construct::Express <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044694	1044795	
==>rc/ops/var.ops\"\n    Parrot_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045588	1045689	
==>rc/ops/var.ops\"\n    Parrot_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046482	1046583	
==>rc/ops/var.ops\"\n    Parrot_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047377	1047478	
==>rc/ops/var.ops\"\n    Parrot_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	981	1078	
==>ng brace B<must> be on its own line.

=head2 Op Arguments

Op arguments are a comma-separated list <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055708	1056032	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056599	1056923	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057491	1057815	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058383	1058707	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_global",
                  "FLA <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	52307	52462	
==>}
	],
	[#Rule 51
		 'namelist', 3,
sub
#line 306 "Lua\lua51.yp"
{
            [
                @{ $_[1] },
                BuildLocalVariable( $_[ <==
4	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	772	868	
==>creates a second section, with the heads of any files which had
familiar types, but from which de <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630626	630717	
==>' not found\", readable_name(interpreter, class));\n    {{\@1}} = pmc_new(interpreter, type) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631616	631707	
==>' not found\", readable_name(interpreter, class));\n    {{\@1}} = pmc_new(interpreter, type) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299547	299725	
==>line 975 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300393	300571	
==>line 975 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301239	301417	
==>line 975 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	12404	12504	
==>ALREADYDONE') {
    # It's already been handled.  Check for errors.
    if(! $self->{'encoding_comman <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22141	22244	
==>text;
        $right = Jako::Construct::Expression::Value->new($block, $self->require_value);

        $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23074	23177	
==>text;
        $right = Jako::Construct::Expression::Value->new($block, $self->require_value);

        $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24720	24822	
==>text;
        $right = Jako::Construct::Expression::Value->new($block, $self->require_value);
        $ <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	2946	3043	
==>global information as the test counter and
where test output is going.

If you want a completely n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960985	961075	
==>*dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961947	962037	
==>*dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962909	962999	
==>*dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963872	963962	
==>*dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encoding(interp <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	9511	9621	
==>80 that aren't legal in an XML Name.
        or $new_code =~ m/^[-\.0-9]/s
        or $new_code =~ m/:[-\.0-9]/ <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	10775	10885	
==>80 that aren't legal in an XML Name.
        or $new_code =~ m/^[-\.0-9]/s
        or $new_code =~ m/:[-\.0-9]/ <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	8753	8862	
==>($opcode, $arg, $rest, $cmt);
    }
    print ".end\t\t# $cur_func\n";
}

sub gen_pir {
    my ($opcode, $arg, <==
4	/Users/nnunley/parrot/config/gen/revision.pm	155	249	
==>n.pm - Parrot's configure revision

=head1 DESCRIPTION

Determines parrot's SVN revision.  In a <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852652	852977	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855103	855428	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855992	856317	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856881	857206	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARG <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	10276	10414	
==>min);
            }
        }
    }

    return $t;
}

# By default, all atom match ops check to be sure there are enough
# atoms left in t <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35135	35230	
==>$self->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my $decl = $self->decl($se <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36438	36533	
==>$self->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my $decl = $self->decl($se <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38385	38480	
==>$self->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my $decl = $self->decl($se <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044722	1044984	
==>_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045616	1045878	
==>_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046510	1046772	
==>_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047405	1047667	
==>_store_global_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22440	22578	
==>_open() . ')'
        );
        DEBUG and print "Ignoring mistargetted =end $content\n";
        next;
      }
      
      unless($conten <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302126	302382	
==>string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303002	303258	
==>string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303878	304134	
==>string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28528	28638	
==>uildLiteral( $parser, 1, 'number' );
    }
    push @opcodes, @{ $e_start->[1] };
    push @opcodes, @{ $e_l <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050200	1050301	
==>nal_exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_globa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051234	1051335	
==>nal_exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_globa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052268	1052369	
==>nal_exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_globa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053303	1053404	
==>nal_exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_globa <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	19129	19269	
==>$func;
        no strict 'refs';

        *{$package.'::'.$func} = sub {
            my ( $language, @remaining ) = @_;

            my $meth <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544500	544625	
==>\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n gcd = b<<p;\n saved_var1 /= gcd;\n {{\@1}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545836	545961	
==>\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n gcd = b<<p;\n saved_var1 /= gcd;\n {{\@1}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547172	547297	
==>\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n gcd = b<<p;\n saved_var1 /= gcd;\n {{\@1}} <==
4	/Users/nnunley/parrot/config/gen/makefiles.pm	7297	7437	
==>place_slashes                => 1,
        conditioned_lines              => 1
    );
    genfile(
        'languages/tcl/config/examples.in' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59892	60027	
==>c"
                            ],
                  "BODY" => "#line 901 \"src/ops/core.ops\"\n  PARROT_WARNINGS_on(interpreter, {{\@1}} <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	2123	2256	
==>ath
{
    my $self = shift;
    
    return 1 unless $self->parent_path;
    
    unless ( -e $self->parent_path )
    {
        # Thi <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	26437	26545	
==>u
can erase history if you really want to.

=cut

sub current_test {
    my($self, $num) = @_;

    lock($sel <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118918	119215	
==>0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	119772	120069	
==>0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120627	120924	
==>0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	28684	28785	
==>g; 
			push @{$code{$seg}->{code}}, qq{\t.param $t $_\n};
			push @{$code{$seg}->{args}}, $_;
		} else <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672422	672717	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673194	673489	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673964	674259	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	674735	675030	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072644	1072761	
==>5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = - <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074829	1074946	
==>5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = - <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077014	1077131	
==>5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = - <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079200	1079317	
==>5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = - <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659535	659834	
==>"JUMP" => 0,
                  "NAME" => "exists",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660456	660755	
==>"JUMP" => 0,
                  "NAME" => "exists",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661378	661677	
==>"JUMP" => 0,
                  "NAME" => "exists",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662293	662592	
==>"JUMP" => 0,
                  "NAME" => "exists",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080375	1080468	
==>e 145 \"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081440	1081533	
==>e 145 \"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082505	1082598	
==>e 145 \"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083571	1083664	
==>e 145 \"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1823	1947	
==>Actual commands
sub compile_cmd {
    my ($target, $source) = @_;

    return
        "$CC $CFLAGS " .
        "-o " . $targe <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2119	2243	
==>Actual commands
sub compile_cmd {
    my ($target, $source) = @_;

    return
        "$CC $CFLAGS " .
        "-o " . $targe <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1914	2038	
==>Actual commands
sub compile_cmd {
    my ($target, $source) = @_;

    return
        "$CC $CFLAGS " .
        "-o " . $targe <==
4	/Users/nnunley/parrot/tools/dev/parrot_api.pl	873	969	
==>ng
is Parrot APIs definitions their declarations), bad things are listed
with C<--->.

=over 4

= <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	16996	17130	
==>bs( per_test('.pir', $test_no) );

            # output file
            my $out_f  = per_test('.pasm', $test_no);

            my $opt <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432468	432574	
==>d_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433483	433589	
==>d_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	18409	18514	
==>e stack.)

sub rewrite_greedy_range {
    my ($self, $op, $R, $min, $max, $lastback) = @_;

    my ($loop, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836756	837024	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837488	837756	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838222	838490	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838954	839222	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYP <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25437	25553	
==>f->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    my $temp   = $self->_co <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27337	27451	
==>f->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    my $temp = $self->_co <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959318	959424	
==>t_string_trans_encoding(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960120	960226	
==>t_string_trans_encoding(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176101	176225	
==>"#line 240 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177005	177129	
==>"#line 240 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177909	178033	
==>"#line 240 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178814	178938	
==>"#line 240 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867232	867329	
==>terpreter, {{\@2}});\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868198	868295	
==>terpreter, {{\@2}});\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869164	869261	
==>terpreter, {{\@2}});\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870131	870228	
==>terpreter, {{\@2}});\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572409	572693	
==>( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573318	573602	
==>( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574228	574512	
==>( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575031	575315	
==>( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
4	/Users/nnunley/parrot/tools/dev/parrotbench.pl	276	389	
==>nchmarks     use benchmarks matching regexes  (multiple)
   -c -conf           path to configuration file
   -d -d <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010691	1010981	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "spawnw",
                  "FLAGS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011455	1011745	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "spawnw",
                  "FLAGS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012220	1012510	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "spawnw",
                  "FLAGS" = <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	765	869	
==>-----------
# Set up some constants:

BEGIN {
  if(defined &ASCII)    { }
  elsif(chr(65) eq 'A') { *ASCI <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	3011	3135	
==>RAM ################

my ($mode, @pmcs) = @ARGV;

if ($mode eq 'generate') {
    # Convert X.pmc -> X.dump and X.c and also c <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	3115	3239	
==>RAM ################

my ($mode, @pmcs) = @ARGV;

if ($mode eq 'generate') {
    # Convert X.pmc -> X.dump and X.c and also c <==
4	/Users/nnunley/parrot/config/auto/headers.pm	2409	2531	
==>nf->data->set(testheader  => undef);

            eval { cc_build(); };
            if (!$@ && cc_run() =~ /^$header OK/) { <==
4	/Users/nnunley/parrot/config/gen/icu.pm	4386	4491	
==>nf->data->set(testheader  => undef);
    eval { cc_build(); };
    if (!$@ && cc_run() =~ /^$header OK/) { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843309	843613	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844187	844491	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845065	845369	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	9865	9977	
==>e, %options) = (@_);
  
  my $max_token            = delete $options{'max_token'};
  my $desperate_for_title  = d <==
4	/Users/nnunley/parrot/tools/build/ops2c.pl	13395	13521	
==>+)
        store_op(info + i, 1);
    /* plus one short name */
    for (i = 0; i < ${bs}op_lib.op_count; i++)
        if (get_ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42846	42943	
==>namespace++;
}

sub new ($$)
{
	my $class = ref($_[0]) || $_[0];
	local $Parse::RecDescent::compil <==
4	/Users/nnunley/parrot/config/auto/msvc.pm	151	246	
==>pm - Microsoft Visual C++ Compiler

=head1 DESCRIPTION

Determines whether the C compiler is act <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28934	29029	
==>n]{'loc'} ne 'nci';
}


=item C<implements_vtable($method)>

True if this class generates code f <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649940	650229	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "valid_type",
                  "FLAGS" => "",
                  "ARGDIRS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650861	651150	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "valid_type",
                  "FLAGS" => "",
                  "ARGDIRS <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	817	906	
==>our $LDFLAGS = qq[-L/opt/local/lib -L/usr/local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	821	910	
==>our $LDFLAGS = qq[-L/opt/local/lib -L/usr/local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629964	630227	
==>,
                  "NAME" => "new",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630953	631216	
==>,
                  "NAME" => "new",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107676	1107939	
==>,
                  "NAME" => "new",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	26558	26671	
==>eads all the
# fallback points together.
sub rewrite_seq {
    my $self = shift;
    my $op = shift;
    my $fallb <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	689492	689714	
==>ODE" => 774,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 590 \"src/ops/pmc.ops\"\n   {{\@1}} = {{\@2}} <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	2719	2817	
==>ts were ever run Test::Simple
will throw a warning and exit with 255.  If the test died, even after <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	928	1022	
==>ot scalar!" if ref $op;
  confess "Right is not Value!" unless UNIVERSAL::isa($right, 'Jako::Co <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	940	1034	
==>ot scalar!" if ref $op;
  confess "Right is not Value!" unless UNIVERSAL::isa($right, 'Jako::Co <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288341	288612	
==>{{\@1}} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289197	289468	
==>{{\@1}} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290053	290324	
==>{{\@1}} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	7297	7395	
==>irectives -- it's a builtin!"
     if exists $Known_directives{$d};
    delete $this->{'accept_dire <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606836	607076	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getattribute",
                  "FLAGS" => ":object_classe <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607739	607979	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getattribute",
                  "FLAGS" => ":object_classe <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608643	608883	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getattribute",
                  "FLAGS" => ":object_classe <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609550	609790	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getattribute",
                  "FLAGS" => ":object_classe <==
4	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	13150	13247	
==>l_var name=duration></td>
            <td class="leftsep num"><tmpl_var name=percentage>&nbsp;%&nb <==
4	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	77	167	
==>tribution.pm 19602 2006-05-30T13:40:58.862833Z coke  $

=head1 NAME

Parrot::Distribution - <==
4	/Users/nnunley/parrot/lib/Test/More.pm	30668	30819	
==>=> [$e1, $e2] };
                $ok = _deep_check($$e1, $$e2);
                pop @Data_Stack if $ok;
            }
	    else {
		_whoa(1, "No type in <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31598	31711	
==>@{$exprs};
    my $iter = new_tmp( $parser, 'pmc' );
    push @opcodes1, new LocalDir( $parser,
        'result <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748839	748927	
==>9 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_number_native(interpreter, {{\@1}}, {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749623	749711	
==>9 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_number_native(interpreter, {{\@1}}, {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	69326	69431	
==>">RD_TRACE"
			and print TRACE_FILE "my \$ERRORS;\n$code"
			and close TRACE_FILE;
		}

		unless ( eval "$ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27397	27500	
==>. '})
						if defined $::RD_TRACE;').'
		$lastsep = "";
		$Parse::RecDescent::lastexpected = q{' . ($ru <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29507	29610	
==>. '})
						if defined $::RD_TRACE;').'
		$lastsep = "";
		$Parse::RecDescent::lastexpected = q{' . ($ru <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31604	31707	
==>. '})
						if defined $::RD_TRACE;').'
		$lastsep = "";
		$Parse::RecDescent::lastexpected = q{' . ($ru <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	3728	3842	
==>h($_) . ")");
        }
    }
}

sub check_function_definitions {
    # In function definitions, the name starts in <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5931	6032	
==>token,$$value)=&$lex($self);
#DBG>				$debug & 0x01
#DBG>			and	print STDERR "Need token. Got ".&$Sh <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5648	5747	
==>token,$$value)=&$lex($self);
#DBG>				$debug & 0x01
#DBG>			and	print STDERR "Need token. Got ".&$Sh <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10198	10283	
==>le}{$function} ? "$function_branch_coverage{$source_file}{$function} %" : "n/a" ]}</a> <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021714	1021942	
==>me_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022556	1022784	
==>me_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023405	1023633	
==>me_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024255	1024483	
==>me_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	5247	5338	
==>>path);
		$self->{POD_ERRORS_COUNT} = $checker->errors_seen;
		$self->{CONTAINS_POD} = $chec <==
4	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	471	562	
==>ew->{'output_fh'} ||= *STDOUT{IO};
  #$new->accept_codes('VerbatimFormatted');
  return $new <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	275	365	
==>ew->{'output_fh'} ||= *STDOUT{IO};
  $new->accept_codes('VerbatimFormatted');
  return $new <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	274	364	
==>ew->{'output_fh'} ||= *STDOUT{IO};
  $new->accept_codes('VerbatimFormatted');
  return $new <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638522	638772	
==>E" => "instantiate",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "function",
                  "CODE" => 714,
                  "A <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2228	2321	
==>h
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Decrement stack height.
de <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3480	3573	
==>h
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Decrement stack height.
de <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20768	20857	
==>a"
narf.first=999
poit(4).first=111111
call foo()
print thing$,
print bar(5),
print lot$(2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072847	1072972	
==>{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075032	1075157	
==>{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077217	1077342	
==>{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079403	1079528	
==>{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72583	72681	
==>t name = string_to_cstring(interpreter, ({{\@3}}));\n\n  funcptr_t p = D2FPTR(Parrot_dlsym(PMC_IS_N <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74185	74283	
==>t name = string_to_cstring(interpreter, ({{\@3}}));\n\n  funcptr_t p = D2FPTR(Parrot_dlsym(PMC_IS_N <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75787	75885	
==>t name = string_to_cstring(interpreter, ({{\@3}}));\n\n  funcptr_t p = D2FPTR(Parrot_dlsym(PMC_IS_N <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77390	77488	
==>t name = string_to_cstring(interpreter, ({{\@3}}));\n\n  funcptr_t p = D2FPTR(Parrot_dlsym(PMC_IS_N <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340342	340680	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":adv <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341341	341679	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":adv <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342340	342678	
==>ABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":adv <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	63458	63553	
==>g to match: /%s/>

C<extract_tagged> matched the specified opening tag and tried to
modify the m <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908764	909065	
==>"JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909660	909961	
==>"JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910557	910858	
==>"JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911454	911755	
==>"JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931959	932248	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_core",
                  "A <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932730	933019	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_core",
                  "A <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	409	512	
==>bda_count,
   %main_names, %namespace, %may_be_none);
$DIS = 'python mydis.py';
$DEFVAR = 'PerlInt';

ge <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837223	837336	
==>.ops\"\n  (void)stack_pop(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}),\n                  STAC <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837955	838068	
==>.ops\"\n  (void)stack_pop(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}),\n                  STAC <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838689	838802	
==>.ops\"\n  (void)stack_pop(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}),\n                  STAC <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	839421	839534	
==>.ops\"\n  (void)stack_pop(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}),\n                  STAC <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579663	579922	
==>}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580968	581227	
==>}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582273	582532	
==>}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583579	583838	
==>}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237895	238285	
==>core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 277,
                  "ARGS" => [
                              "i",
                              "s",
                              "sc <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15420	15523	
==>opts);	# Get expression tokens
		$whole.=join(' ', map { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repa <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15782	15885	
==>opts);	# Get expression tokens
		$whole.=join(' ', map { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repa <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16933	17036	
==>opts);	# Get expression tokens
		$whole.=join(' ', map { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836630	836897	
==>\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837362	837629	
==>\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838096	838363	
==>\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838828	839095	
==>\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477182	477457	
==>\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478078	478353	
==>\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478969	479244	
==>\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479861	480136	
==>\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959323	959527	
==>ing_trans_encoding(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960125	960329	
==>ing_trans_encoding(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	226	334	
==>libraries). Its
format is simple, and looks like:

  [package]
  ncurses 

  [lib]
  libform.so

  [defs]
  p <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	7527	7634	
==>tack;	
	#print STDERR "Outta RPN convert\n";
	return(@stream);
}

sub fixup {
	my(@expr)=@_;

	# Do the fixu <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	18860	18966	
==>y %language_test_map = (
        language_output_is   => 'output_is',
        language_output_like => 'outp <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2371	2475	
==>right->value) unless $right_sym;
    $right_type = $right_sym->type;
  }
  else {
    $right_type = $righ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2329	2433	
==>right->value) unless $right_sym;
    $right_type = $right_sym->type;
  }
  else {
    $right_type = $righ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2251	2355	
==>right->value) unless $right_sym;
    $right_type = $right_sym->type;
  }
  else {
    $right_type = $righ <==
4	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	741	868	
==>e;
}

my %language_test_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    output_isnt       => 'isn <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46978	47075	
==>ebug_SET(interpreter,   {{\@1}}); }\n  else         { Interp_debug_CLEAR(interpreter, PARROT_ALL_D <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47761	47858	
==>ebug_SET(interpreter,   {{\@1}}); }\n  else         { Interp_debug_CLEAR(interpreter, PARROT_ALL_D <==
4	/Users/nnunley/parrot/tools/build/pbc2c.pl	36	128	
==>. See ADDITIONAL section at end of file.
# $Id: /parrot/tools/build/pbc2c.pl 19607 2006-05-30 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614999	615112	
==>on(interpreter, next, NO_CLASS,\n            \"Class not parent of object\");\n    }\n    {{\@1}} = offset;\n    { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616150	616263	
==>on(interpreter, next, NO_CLASS,\n            \"Class not parent of object\");\n    }\n    {{\@1}} = offset;\n    { <==
4	/Users/nnunley/parrot/config/auto/alignptrs.pm	285	376	
==>se strict;
use vars qw($description $result @args);

use base qw(Parrot::Configure::Step::Ba <==
4	/Users/nnunley/parrot/config/gen/PodText.pm	842	933	
==>se strict;
use vars qw($description $result @args);

use base qw(Parrot::Configure::Step::Ba <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528637	528874	
==>{{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529519	529756	
==>{{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	530401	530638	
==>{{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	6146	6251	
==>lf->{_setup_ends}{$group} = 1;
}

sub rewrite_try {
    my ($self, $op, $R, $lastback) = @_;
    return $s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028454	1028683	
==>RESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sleep",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029305	1029534	
==>RESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sleep",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030146	1030375	
==>RESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sleep",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "in <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1002	1117	
==>{ return @{shift->{ARGS}}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $name <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	421	531	
==>se Jako::Construct::Type;


#
# new()
#

sub new
{
  my $class = shift;

  my ($block, $type, $ident, $value) = <==
4	/Users/nnunley/parrot/config/auto/readline.pm	949	1086	
==>ck32 -lmsvcp60');
        } else {
            $conf->data->add(' ', libs => 'readline.lib');
        }
    } else {
        $conf->data-> <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	88	200	
==>ons) = @_;
    my $self = bless \%options, (ref($proto) || $proto);
    $self->init();
    return $self;
}

sub i <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	255	367	
==>ons) = @_;
    my $self = bless \%options, (ref($proto) || $proto);
    $self->init();
    return $self;
}

sub i <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	596	708	
==>ons) = @_;
    my $self = bless \%options, (ref($proto) || $proto);
    $self->init();
    return $self;
}

sub i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071141	1071521	
==>> "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 119 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073325	1073705	
==>> "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 119 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075510	1075890	
==>> "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 119 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077695	1078075	
==>> "gcd",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 119 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684139	684456	
==>rop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 768,
                  "ARGS" = <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29365	29465	
==>escent::_trace(q{Trying terminal: [' . $self->describe
					  . ']},
					  Parse::RecDescent::_trace <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31462	31562	
==>escent::_trace(q{Trying terminal: [' . $self->describe
					  . ']},
					  Parse::RecDescent::_trace <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27262	27355	
==>escent::_trace(q{Trying terminal: [' . $self->describe
					  . ']}, Parse::RecDescent::_trace <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843181	843272	
==>DY" => "#line 45 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@3}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844059	844150	
==>DY" => "#line 45 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@3}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844937	845028	
==>DY" => "#line 45 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@3}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845816	845907	
==>DY" => "#line 45 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@3}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344504	344619	
==>val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345746	345861	
==>val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346988	347103	
==>val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348231	348346	
==>val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	7365	7477	
==>s && $op->disjoint();

    # Insert better tests here

    return 0;
}

# R*, R+, R?, nongreedy variants of those <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10741	10869	
==>section);
        # Turn char 1234 into "(1234)"
        $section = '_' unless length $section;
    }
    
    foreach my $it ($t <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4118	4237	
==>section);
     # Turn char 1234 into "(1234)"
    $section = '_' unless length $section;
  }
  
  

  foreach my $it ($t <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	900	1009	
==>my $in = $_[0];
  return undef unless defined $in and length $in;
  
  # Convert to decimal:
  if($in =~ m/^(0 <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2259	2368	
==>my $in = $_[0];
  return undef unless defined $in and length $in;
  
  # Convert to decimal:
  if($in =~ m/^(0 <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	17954	18055	
==>ing object constructor without args
   Original over-helpfulness was fraught with problems:
       * t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202746	202841	
==>if (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203677	203772	
==>if (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204608	204703	
==>if (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926247	926404	
==>strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    cas <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927717	927874	
==>strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    cas <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929187	929344	
==>strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    cas <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930658	930815	
==>strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    cas <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467574	467679	
==>"src/ops/math.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468445	468550	
==>"src/ops/math.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476997	477102	
==>"src/ops/math.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477893	477998	
==>"src/ops/math.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	5113	5220	
==>sub process_file_start_token
{
    my $self = shift;
    my $token = shift;
    my $tagname = $token->tagnam <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1427	1525	
==>lf, $distance, $failLabel) = @_;
    $failLabel = $self->output_label_use($failLabel);
    return ( <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1176	1274	
==>lf, $distance, $failLabel) = @_;
    $failLabel = $self->output_label_use($failLabel);
    return ( <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16662	16757	
==>>_gensym ();
  my $return = $self->_save_1 ('P');

  $self->_add_inst ('', 'new',[$return,'.Unde <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344253	344343	
==>interpreter, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345495	345585	
==>interpreter, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346737	346827	
==>interpreter, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347980	348070	
==>interpreter, {{\@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374009	374096	
==>line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374892	374979	
==>line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375775	375862	
==>line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376659	376746	
==>line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpreter, {{\@2}}, { <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33615	33736	
==>ara') {
              DEBUG and print "Assimilating following ~Para content into $over_type item\n";
              push @$ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35428	35549	
==>ara') {
              DEBUG and print "Assimilating following ~Para content into $over_type item\n";
              push @$ <==
4	/Users/nnunley/parrot/lib/Test/More.pm	17449	17558	
==>etimes interferes with $!

    if( @imports == 1 and $imports[0] =~ /^\d+(?:\.\d+)?$/ ) {
        # probably a <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	61401	61495	
==>ext before closing one or more levels of nested
brackets.

=item C<Unmatched embedded quote (%s <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27344	27450	
==>cent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;').'
		$lastsep = " <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29454	29560	
==>cent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;').'
		$lastsep = " <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31551	31657	
==>cent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;').'
		$lastsep = " <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	115	212	
==>33Z coke  $

=head1 NAME

Parrot::IO::Path - Path

=head1 DESCRIPTION

C<Parrot::IO::Path> is an a <==
4	/Users/nnunley/parrot/config/auto/gdbm.pm	936	1043	
==>header in the standard
    # Fink location. TODO: Need a more generalized way for finding
    # where Fink l <==
4	/Users/nnunley/parrot/config/auto/gmp.pm	1135	1242	
==>header in the standard
    # Fink location. TODO: Need a more generalized way for finding
    # where Fink l <==
4	/Users/nnunley/parrot/config/auto/readline.pm	1210	1317	
==>header in the standard
    # Fink location. TODO: Need a more generalized way for finding
    # where Fink l <==
4	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	3611	3706	
==>tion of Ron Rivests MD5 Algorithm

=head1 DISCLAIMER

This is B<not> an interface (like C<Digest <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	624956	625091	
==>MIC *) cur_opcode[1];\n    /* get_results */\n    pc = ctx->current_results;\n    if (pc) {\n        pred_pc = (void**) pc - ctx->pred_o <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009851	1009958	
==>ops/string.ops\"\n  {{\@1}} = string_compose(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010616	1010723	
==>ops/string.ops\"\n  {{\@1}} = string_compose(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	17126	17221	
==>SSION();
	$false="0.0";
	$false=qq{""} if ($type eq "S");

	push @{$code{$seg}->{code}}, "WHILE_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579691	579979	
==>eter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580996	581284	
==>eter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582301	582589	
==>eter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583607	583895	
==>eter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "P <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6242	6347	
==>ston"
A$(3) = "Chicago"
A$(4) = "Seattle"
Max = 4 'UBOUND(A$)
Exchange=TRUE           ' Force first pass t <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15895	16000	
==>ston"
A$(3) = "Chicago"
A$(4) = "Seattle"
Max = 4 'UBOUND(A$)
Exchange=TRUE           ' Force first pass t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660135	660239	
==>{{\@2}}->vtable->exists_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661057	661161	
==>{{\@2}}->vtable->exists_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABE <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16396	16501	
==>$self->forth);
      my $op    = $self->forth->text;
      my $right = Jako::Construct::Expression::Value- <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17167	17272	
==>$self->forth);
      my $op    = $self->forth->text;
      my $right = Jako::Construct::Expression::Value- <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17972	18077	
==>$self->forth);
      my $op    = $self->forth->text;
      my $right = Jako::Construct::Expression::Value- <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	9039	9128	
==>c(jit_info->objfile, jit_info->native_ptr, f); \
    emitm_calll(jit_info->native_ptr, EXE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110800	111190	
==>core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 138,
                  "ARGS" => [
                              "s",
                              "s",
                              "s" <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	12135	12233	
==>T:
${PARAMS}[0] = ${STEMP0}
dec stack_depth

PRE_CALL_END_${CURIC}:
PIR
    return $pir;
}

sub pos <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11118	11204	
==>URIC}
goto pre_call_NO_RETURN_${CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${S <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8304	8390	
==>URIC}
goto pre_call_NO_RETURN_${CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${S <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5966	6052	
==>URIC}
goto pre_call_NO_RETURN_${CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${S <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3801	3916	
==>l that it gives up on making a link
     # (I pass it the section value, but I don't see a
     #  particular reason <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	719	813	
==>, qw(Jako::Construct::Type));
  confess "Identifier (" . ref($ident) . ") is not!" unless UNIVE <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	744	838	
==>, qw(Jako::Construct::Type));
  confess "Identifier (". ref($ident) . ") is not!"  unless UNIVE <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	708	802	
==>, qw(Jako::Construct::Type));
  confess "Identifier (". ref($ident) . ") is not!"  unless UNIVE <==
4	/Users/nnunley/parrot/tools/dev/install_files.pl	4564	4700	
==>lable_exe, [$src, $dest];
            next;
        }
    } elsif ($meta{include}) {
        $dest =~ s/^include//;
        $dest = File: <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	13662	13766	
==>lf = shift;
    
    print {$self->{'output_fh'}} 
        Parrot::Docs::HTMLPage->footer('', $self->{RES <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240151	240255	
==>\n  INTVAL l = VTABLE_get_integer(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241099	241203	
==>\n  INTVAL l = VTABLE_get_integer(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@ <==
4	/Users/nnunley/parrot/languages/converter.pl	1740	1853	
==>1]);
		  my $rhs = ::strip_quotes($item[3]);
		  "/[$lhs-$rhs]/"
		}
		| terminal
#		{[@item]}
		{ $item[1] }


te <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123820	123910	
==>"BODY" => "#line 257 \"src/ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124694	124784	
==>"BODY" => "#line 257 \"src/ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125568	125658	
==>"BODY" => "#line 257 \"src/ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029903	1030122	
==>(interpreter, {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030745	1030964	
==>(interpreter, {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553982	554074	
==>ct;\n  interpreter->current_cont = {{\@3}};\n  interpreter->current_method = meth;\n  method_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555379	555471	
==>ct;\n  interpreter->current_cont = {{\@3}};\n  interpreter->current_method = meth;\n  method_ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	40301	40420	
==>tax'              => \&_op_syntax,
  'identifer?'          => \&_op_identifier_p,
  'unwrap-syntax'       => \&_op_unwra <==
4	/Users/nnunley/parrot/config/inter/encoding.pm	470	581	
==>iles should be compiled in';

@args = qw(ask encoding);

sub runstep
{
    my ($self, $conf) = @_;

    my @enco <==
4	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	866	971	
==>ND_PIR

my %static_cmds = map { $_ => 1 } @static_cmds;
for my $cmd (@dynamic_cmds) {
    # skip if there' <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	40097	40197	
==>ara', fail => MAX );

	# EXTRACTED: "/para line 1\n"

Note that the specified C<fail> behaviour appli <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1189	1294	
==>s->get($util);
    $prog ||= $ENV{uc($util)};

    # never override the user.  If a non-existent program i <==
4	/Users/nnunley/parrot/config/inter/make.pm	1010	1115	
==>s->get($util);
    $prog ||= $ENV{uc($util)};

    # never override the user.  If a non-existent program i <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1186	1291	
==>s->get($util);
    $prog ||= $ENV{uc($util)};

    # never override the user.  If a non-existent program i <==
4	/Users/nnunley/parrot/lib/Test/More.pm	32030	32132	
==>the irrelevancy of order only
applies to the top level.

    ok( eq_set(\@this, \@that) );

Is better w <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168543	168815	
==>er(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169485	169757	
==>er(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170425	170697	
==>er(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171366	171638	
==>er(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034686	1034976	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_lex",
                  "FLAGS" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035849	1036139	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_lex",
                  "FLAGS" => " <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	61445	61600	
==>ydebug => 0x17,
        #    Bit Value    Outputs
        #    0x01         Token reading (useful for Lexer debugging)
        #    0x02         States i <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	5248	5343	
==>turn $self->{Exported_To};
}

=item B<plan>

  $Test->plan('no_plan');
  $Test->plan( skip_all = <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	1853	1938	
==>-Wall -Wstrict-prototypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -W <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1160	1245	
==>-Wall -Wstrict-prototypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -W <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1218	1303	
==>-Wall -Wstrict-prototypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -W <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1222	1307	
==>-Wall -Wstrict-prototypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -W <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071781	1071882	
==>DY" => "#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073966	1074067	
==>DY" => "#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076151	1076252	
==>DY" => "#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078337	1078438	
==>DY" => "#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{ <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2614	2734	
==>traLibs =~ s/\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else {
        $liblist = join( ' ', map { "-l$ <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2923	3043	
==>traLibs =~ s/\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else {
        $liblist = join( ' ', map { "-l$ <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2718	2838	
==>traLibs =~ s/\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else {
        $liblist = join( ' ', map { "-l$ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	11144	11235	
==>ompile(COMPILER, FILTER)

Compile the block's content using COMPILER. If FILTER is provided, <==
4	/Users/nnunley/parrot/tools/dev/lib_deps.pl	7987	8111	
==>rch     stdlib.h
cabs        complex.h
cabsf       complex.h
cabsl       complex.h
cacos       complex.h
cacosf      complex. <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	827	940	
==>($class, $code) = @_;
  return $types{uc $code};
}

sub new
{
  my $class = shift;
  my ($type) = @_;

  my $token <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39221	39324	
==>a->{functs} }, \@opcodes2;
    my $result = new_tmp( $parser, 'pmc', 'function' );
    push @opcodes1, <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	1812	1914	
==>()>

Accessors for the containing section/group for the item.

=cut

sub set_parent
{
    my $self = sh <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084720	1084808	
==>/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085773	1085861	
==>/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086826	1086914	
==>/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087880	1087968	
==>/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3 <==
4	/Users/nnunley/parrot/config/auto/gdbm.pm	741	840	
==>>get('libs');
    my $linkflags = $conf->data->get('linkflags');
    my $ccflags   = $conf->data->ge <==
4	/Users/nnunley/parrot/config/auto/gmp.pm	682	781	
==>>get('libs');
    my $linkflags = $conf->data->get('linkflags');
    my $ccflags   = $conf->data->ge <==
4	/Users/nnunley/parrot/config/auto/readline.pm	694	793	
==>>get('libs');
    my $linkflags = $conf->data->get('linkflags');
    my $ccflags   = $conf->data->ge <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61384	61473	
==>n terminal", $aftererror,$line,$code);
			$item = new Parse::RecDescent::Token(@components <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476471	476680	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477366	477575	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478262	478471	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479153	479362	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1916	2029	
==>FLAGS " .
        "-o " . $target . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/include' . $PATHQUOTE <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2212	2325	
==>FLAGS " .
        "-o " . $target . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/include' . $PATHQUOTE <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2007	2120	
==>FLAGS " .
        "-o " . $target . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/include' . $PATHQUOTE <==
4	/Users/nnunley/parrot/tools/dev/install_files.pl	2401	2492	
==>h>.rpm file will contain the file
/usr/parroty/bin/snork-compile.

=head1 SEE ALSO

F<tools/ <==
4	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2976	3125	
==>( (?:\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # test result
              | " ((?:[^"\\]|\\.)+) "   #" (ke <==
4	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4373	4522	
==>( (?:\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # test result
              | " ((?:[^"\\]|\\.)+) "   #" (ke <==
4	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6278	6379	
==>onst Parrot_mmd_func_names[] = {
EOM

    for my $entry (@{$vtable}) {
    next unless ($entry->[4] =~ <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	36483	36580	
==>would be:

	( '<A HREF=">', '>>>">link</A>', "" )

In addition to the quote delimiters C<'>, C<">, <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29226	29369	
==>" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"<=" = <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41332	41475	
==>" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"<=" = <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44478	44621	
==>" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"<=" = <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	2516	2630	
==>y @files = ( glob( File::Spec->catfile( $dir, '*.t' ) ),
                      glob( File::Spec->catfile( $dir, '*/ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949946	950247	
==>"JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950905	951206	
==>"JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951865	952166	
==>"JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952825	953126	
==>"JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099189	1099319	
==>f (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100387	1100517	
==>f (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101585	1101715	
==>f (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102784	1102914	
==>f (e < 0) {\n\t    s = -1;\n\t    e = -e;\n\t}\n    }\n    while (e) {\n\tif (e & 1) {\n\t    res *= n2;\n\t}\n\tn2 *= n2;\n\te >>= <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2382	2489	
==>>) and value. C<$op> is an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $o <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3474	3581	
==>>) and value. C<$op> is an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $o <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3618	3725	
==>>) and value. C<$op> is an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $o <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3273	3380	
==>>) and value. C<$op> is an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $o <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13170	13402	
==>e_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14014	14246	
==>e_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14718	14950	
==>e_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	15405	15637	
==>e_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	528	617	
==>er!") unless UNIVERSAL::isa($dest, 'Jako::Construct::Expression::Value::Identifier');
  co <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	654	743	
==>er!") unless UNIVERSAL::isa($dest, 'Jako::Construct::Expression::Value::Identifier');
  co <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	645	734	
==>er!") unless UNIVERSAL::isa($dest, 'Jako::Construct::Expression::Value::Identifier');
  co <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	534	623	
==>er!") unless UNIVERSAL::isa($dest, 'Jako::Construct::Expression::Value::Identifier');
  co <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	30872	30981	
==>est of the
    # expression.
    my $def = aop('rule_def', [ $name, $trymatch, $backup, $num_groups ]);

    m <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8018	8119	
==>me!"  unless defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_symbol($nam <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8665	8766	
==>me!"  unless defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_symbol($nam <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9333	9434	
==>me!"  unless defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_symbol($nam <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10002	10103	
==>me!"  unless defined $name;
  confess "Extra arguments!" if @_;

  my $found = $self->find_symbol($nam <==
4	/Users/nnunley/parrot/config/gen/makefiles.pm	6831	6993	
==>,
        commentType                      => '#',
        replace_slashes                  => 1
    );
    genfile(
        'languages/APL/config/root.in' => 'lan <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	5284	5420	
==>q 'text' )
    {
        my $text = $next->text;
        my $dist = Parrot::Distribution->new;
        
        # Only link to files that <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20712	20829	
==>my $class = ref($_[0]) || $_[0];
	bless 
	{
		"code"      => $_[1],
		"lookahead" => $_[2],
		"line"      => $_[3],
	} <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5912	6009	
==>erbose') && $self->get('verbose') == 2;

    print "Looking up trigger $trigger on configuration k <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710857	711100	
==>preter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "p <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711691	711934	
==>preter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "p <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712797	713040	
==>preter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "p <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713904	714147	
==>preter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "p <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320033	320306	
==>Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320803	321076	
==>Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322384	322657	
==>Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323156	323429	
==>Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
4	/Users/nnunley/parrot/config/gen/makefiles.pm	2635	2826	
==>entType                          => '#',
        replace_slashes                      => 1,
        conditioned_lines                    => 1
    );
    genfile(
        'config/gen/makefiles/ <==
4	/Users/nnunley/parrot/config/gen/makefiles.pm	1369	1542	
==>entType                    => '#',
        replace_slashes                => 1,
        conditioned_lines              => 1
    );
    genfile(
        'config/gen/makefiles/ <==
4	/Users/nnunley/parrot/config/gen/makefiles.pm	4436	4603	
==>entType                  => '#',
        replace_slashes              => 1,
        conditioned_lines            => 1
    );
    genfile(
        'config/gen/makefiles/ <==
4	/Users/nnunley/parrot/config/gen/makefiles.pm	5486	5653	
==>entType                  => '#',
        replace_slashes              => 1,
        conditioned_lines            => 1
    );
    genfile(
        'config/gen/makefiles/ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021767	1022040	
==>&tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decode <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022609	1022882	
==>&tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decode <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023458	1023731	
==>&tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decode <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	8180	8290	
==>=> 'libparrot.$(SOVERSION).dylib',
             'libparrot_shared_alias' => 'libparrot.dylib',
             'li <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7465	7608	
==>->INTERNAL_ERROR("Unexpected access '$access'.");
        }
      }

      next;
    }

    #
    # Subroutines:
    #
    #   sub [<type>] <ide <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	4433	4535	
==>ype[NEXT] ne "STMT" and $type[NEXT] ne "COMM");
		#print "Single if!\n" if $singleif;
		$ifline++;
		if <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109615	109703	
==>DY" => "#line 182 \"src/ops/bit.ops\"\n  string_bitwise_or(interpreter, {{\@1}}, {{\@2}}, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110394	110482	
==>DY" => "#line 182 \"src/ops/bit.ops\"\n  string_bitwise_or(interpreter, {{\@1}}, {{\@2}}, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712617	712741	
==>terpreter, \".\"), 0) == -1 &&\n      string_str_index(interpreter, s,\n\tconst_string(interpreter, \"e\"), 0) == -1)\n    PI <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713724	713848	
==>terpreter, \".\"), 0) == -1 &&\n      string_str_index(interpreter, s,\n\tconst_string(interpreter, \"e\"), 0) == -1)\n    PI <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720084	720208	
==>terpreter, \".\"), 0) == -1 &&\n      string_str_index(interpreter, s,\n\tconst_string(interpreter, \"e\"), 0) == -1)\n    PI <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721284	721408	
==>terpreter, \".\"), 0) == -1 &&\n      string_str_index(interpreter, s,\n\tconst_string(interpreter, \"e\"), 0) == -1)\n    PI <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	384	487	
==>qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $ident) = @_;

  confess(" <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	384	487	
==>qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $ident) = @_;

  confess(" <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18864	18959	
==>op @dos;
	if ($do->{needstmt} and not ( $syms[NEXT]=~/while|until/ ) ) {
		push @{$code{$seg}->{ <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	823	916	
==>ssage, pos=>$pos }, "Text::Balanced::ErrorMsg";
}

sub _fail
{
	my ($wantarray, $textref, $mes <==
4	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	2312	2529	
==>er}->$meth(
                          Parrot::Test::slurp_file($out_fn),
                          $output,
                          $desc
                      );
           unless ( $pass ) {
               my $diag <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	964	1083	
==>),

    DEBUG  => 1,
    FILE   => $token->file,
    LINE   => $token->line
  }, $class;
}

sub kind  { return shift->{K <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	1372	1489	
==>shift : shift;
    my $name = shift;
    my $index_path = shift || 'index.html';
    my $text = shift;
    my @content <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	1483	1595	
==>Unexpected EOF (missing quote?)" if ( $cur eq -1 or $cur eq "\n");
			append;
			fetch;
		}
		append;
		$curtok=~ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73072	73170	
==>preter, enum_class_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74674	74772	
==>preter, enum_class_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76276	76374	
==>preter, enum_class_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77879	77977	
==>preter, enum_class_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4} <==
4	/Users/nnunley/parrot/tools/dev/lib_deps.pl	7452	7580	
==>th.h
acosf       math.h
acosh       math.h
acoshf      math.h
acoshl      math.h
acosl       math.h
arg         complex.h
asctime <==
4	/Users/nnunley/parrot/tools/dev/nm.pl	5965	6074	
==>ef;

my %Type; @Type{qw(bsd long)} = ();
$Type = 'bsd' if $BSD ||
		 (defined $Type && $Type eq '1'); # So the <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	3455	3563	
==>'t opendir $self->{PATH}: $!";
    
    return sort grep {$_ ne '.' and $_ ne '..'} $dh->read();
}

=item C<f <==
4	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	4364	4459	
==>em off visually.
 o could remove/add explicit declarations of string type
 o could convert doubl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579660	579916	
==>\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580965	581221	
==>\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582270	582526	
==>\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583576	583832	
==>\@1}} = VTABLE_subclass(interpreter, class, name);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880070	880368	
==>inline",
                  "CODE" => 997,
                  "ARGS" => [
                              "s",
                              "sc",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 244 \"src/ops/string. <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	2206	2300	
==>ebug level (a.k.a. trace
level) of Pod::Simple.  This is of interest only to Pod::Simple
develo <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033433	1033526	
==>, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    VTABLE_set_pmc_keyed <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034531	1034624	
==>, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    VTABLE_set_pmc_keyed <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920487	920785	
==>printf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921379	921677	
==>printf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	922272	922570	
==>printf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2261	2353	
==>2_halfpoint_size#\\ul{\n",
 '/head2'  => "\n}\\par}\n",
 'head3'   => "\n{\\pard\\li#rtfinden <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044734	1044992	
==>l_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045628	1045886	
==>l_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046522	1046780	
==>l_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047417	1047675	
==>l_p(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919811	920094	
==>5,
                  "ARGS" => [
                              "i",
                              "sc",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = s <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	45352	45488	
==>9' => 212
		}
	},
	{#State 211
		ACTIONS => {
			'END' => 213
		}
	},
	{#State 212
		DEFAULT => -4,
		GOTOS => {
			'block' => <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9654	9749	
==>nfo_from_token(${ASSEMBLY}, ${ARG0})

# If it's a call to instantiate, need to knock off first a <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7168	7263	
==>nfo_from_token(${ASSEMBLY}, ${ARG0})

# If it's a call to instantiate, need to knock off first a <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160790	161178	
==>,
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 194,
                  "ARGS" => [
                              "i",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 176 \ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	2884	3005	
==>>is('last');          }
sub is_literal       { return shift->is('literal');       }
sub is_module        { return shift->i <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	43445	43565	
==>vious line ", $i-1, ": $$p[$i-1]: \n";
      
      if( $p->[$i-1] =~ m{^#:[ \^\/\%]*\n?$}s ) {
        DEBUG > 5 and pri <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	12003	12105	
==>r_args;
			$extern=$sym;
			$optype=optype_of($extern);
			goto NEST_ARRAY_ASSIGN if (@work); # Ugly, y <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018111	1018343	
==>ng(interpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019036	1019268	
==>ng(interpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019966	1020198	
==>ng(interpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020897	1021129	
==>ng(interpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634540	634640	
==>> "#line 107 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtab <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635658	635758	
==>> "#line 107 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtab <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636776	636876	
==>> "#line 107 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtab <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637895	637995	
==>> "#line 107 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtab <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464536	464788	
==>=> 532,
                  "ARGS" => [
                              "n",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 322 \"src/ops/math.ops\"\n  FLOATVAL den = { <==
4	/Users/nnunley/parrot/config/init/hints/mswin32.pm	6572	6717	
==>32 -lnetapi32 -luuid -lws2_32 -lmpr -lwinmm -lversion -lodbc32 ',
                link              => 'gcc',
                linkflags         => <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2294	2406	
==>}
sub end_head3       { $_[0]->emit_par(-2) }
sub end_head4       { $_[0]->emit_par(-1) }
sub end_Para        { $ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1862	1974	
==>}
sub end_head3       { $_[0]->emit_par(-2) }
sub end_head4       { $_[0]->emit_par(-1) }
sub end_Para        { $ <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9353	9490	
==>**Entering Error recovery.\n";
#DBG>			++$dbgerror;
#DBG>		};

            ++$$nberror;

        };

			$$errstatus == 3	#The next <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8933	9062	
==>**Entering Error recovery.\n";
#DBG>			++$dbgerror;
#DBG>		};

            ++$$nberror;

        };

			$$errstatus == 3	#The next <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574750	574842	
==>ops\"\n    {{\@1}} = pmc_new_init(interpreter, enum_class_ParrotClass, {{\@2}});\n    {{+=3}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575554	575646	
==>ops\"\n    {{\@1}} = pmc_new_init(interpreter, enum_class_ParrotClass, {{\@2}});\n    {{+=3}} <==
4	/Users/nnunley/parrot/config/init/hints/hpux.pm	241	356	
==>t('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }

    $conf->data->set(libs => $libs) <==
4	/Users/nnunley/parrot/config/init/hints/irix.pm	538	652	
==>t('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }
    $conf->data->set(libs => $libs) <==
4	/Users/nnunley/parrot/config/init/hints/netbsd.pm	331	445	
==>t('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }
    $conf->data->set(libs => $libs) <==
4	/Users/nnunley/parrot/config/init/hints/openbsd.pm	423	531	
==>t('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
	}
	$conf->data->set(libs => $libs) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579468	579560	
==>ss '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580773	580865	
==>ss '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582078	582170	
==>ss '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583384	583476	
==>ss '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pmc_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758333	758565	
==>set(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759106	759338	
==>set(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	2768	2906	
==>PIR"            # nand
    $I100 = %1
    $I101 = %2
    $I100 = and $I100, $I101
    $I100 = not $I100
    %1 = $I100
END_PIR

    $P0['mo <==
4	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	4531	4620	
==>_directory_with_name('docs');
}

=item C<html_docs_directory()>

Returns the HTML document <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	2018	2104	
==>t-nonliteral -Wformat-security -Wpacked -Wdisabled-optimization -falign-functions=16 -W <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1338	1424	
==>t-nonliteral -Wformat-security -Wpacked -Wdisabled-optimization -falign-functions=16 -W <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1383	1469	
==>t-nonliteral -Wformat-security -Wpacked -Wdisabled-optimization -falign-functions=16 -W <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1387	1473	
==>t-nonliteral -Wformat-security -Wpacked -Wdisabled-optimization -falign-functions=16 -W <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099059	1099186	
==>tal.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100257	1100384	
==>tal.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101455	1101582	
==>tal.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102654	1102781	
==>tal.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3045	3146	
==>'re maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTE <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4803	4904	
==>'re maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTE <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1967	2068	
==>'re maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTE <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3219	3320	
==>'re maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTE <==
4	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	860	970	
==>o { local $/; <DATA> };

my $CGI = new CGI;

#sub handle_request {
	#my ($self, $CGI) = @_;

	if ($CGI->url(-pa <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2368	2473	
==>, $right->value) unless $right_sym;
    $right_type = $right_sym->type;
  }
  else {
    $right_type = $ri <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2326	2431	
==>, $right->value) unless $right_sym;
    $right_type = $right_sym->type;
  }
  else {
    $right_type = $ri <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2248	2353	
==>, $right->value) unless $right_sym;
    $right_type = $right_sym->type;
  }
  else {
    $right_type = $ri <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028106	1028200	
==>rpreter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_event( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028957	1029051	
==>rpreter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_event( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029809	1029903	
==>rpreter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_event( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030651	1030745	
==>rpreter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_event( <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3140	3239	
==>.
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have anything on the lazy moves stack?
${ITEMP0} = ele <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4898	4997	
==>.
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have anything on the lazy moves stack?
${ITEMP0} = ele <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7825	7924	
==>.
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have anything on the lazy moves stack?
${ITEMP0} = ele <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8681	8780	
==>.
${PTEMP0} = ${STYPES}[stack_depth]

# Do we have anything on the lazy moves stack?
${ITEMP0} = ele <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961064	961324	
==>oding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962026	962286	
==>oding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962988	963248	
==>oding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963951	964211	
==>oding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576657	576960	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subclass",
                  "FLAGS" => ":object_ba <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595406	595709	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subclass",
                  "FLAGS" => ":object_ba <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596298	596601	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subclass",
                  "FLAGS" => ":object_ba <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	29961	30079	
==>lt' => $lbl_end,
    );
    my $lbl_blk = new_label($parser);
    push @opcodes, new BranchOp( $parser,
        're <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	508347	508653	
==>{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ne <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931342	931626	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932112	932396	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	1701	1815	
==>ead
{
    my $self = shift;
    my $fh = FileHandle->new($self->path) or 
        die 'Failed to open ' . $self->pa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381053	381182	
==>,
                  "BODY" => "#line 455 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_off <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382065	382194	
==>,
                  "BODY" => "#line 455 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_off <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383077	383206	
==>,
                  "BODY" => "#line 455 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_off <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384090	384219	
==>,
                  "BODY" => "#line 455 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_off <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	643	743	
==>BSD) have ""s embedded in their substution values. q[] is used in
# some places as Win32 paths have \ <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	601	701	
==>BSD) have ""s embedded in their substution values. q[] is used in
# some places as Win32 paths have \ <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	605	705	
==>BSD) have ""s embedded in their substution values. q[] is used in
# some places as Win32 paths have \ <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2773	2864	
==>r_output_like;
}

=item C<pgeglob_is($target, $pattern, $description, @todo)>

Runs the targ <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31207	31310	
==>ys true for vtables.

=cut

sub implements
{
    my ($self, $meth) = @_;
    $self->implements_vtable($m <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32670	32773	
==>ys true for vtables.

=cut

sub implements
{
    my ($self, $meth) = @_;
    $self->implements_vtable($m <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39827	39930	
==>ys true for vtables.

=cut

sub implements
{
    my ($self, $meth) = @_;
    $self->implements_vtable($m <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	3546	3647	
==>$gcov_file}) {
            my ($percent, $total_lines, $real_filename) = /\s*([^%]+)% of (\d+)(?: sour <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072575	1072687	
==>rect the sign (can be wrong because we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074760	1074872	
==>rect the sign (can be wrong because we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076945	1077057	
==>rect the sign (can be wrong because we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079131	1079243	
==>rect the sign (can be wrong because we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107161	107450	
==>"\n  {{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108015	108304	
==>"\n  {{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108869	109158	
==>"\n  {{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	888	998	
==>ragma for addition of paths to @*INC

= SYNOPSIS

  require lib;
  import('lib': @paths);
  
  # no load your o <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1849	1987	
==>e_cmd {
    my ($target, $source) = @_;

    return
        "$CC $CFLAGS " .
        "-o " . $target . " " .
        "-I" . $PATHQUOTE . '/ <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2145	2283	
==>e_cmd {
    my ($target, $source) = @_;

    return
        "$CC $CFLAGS " .
        "-o " . $target . " " .
        "-I" . $PATHQUOTE . '/ <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1940	2078	
==>e_cmd {
    my ($target, $source) = @_;

    return
        "$CC $CFLAGS " .
        "-o " . $target . " " .
        "-I" . $PATHQUOTE . '/ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24374	24479	
==>$block, $target_token) if $target_token;

      my ($cond, $left, $op, $right);

      if ($self->get(1)-> <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2644	2751	
==>Faking a '=encode utf8'.\n";
        $self->_handle_encoding_line( "=encode utf8" );
        $line =~ tr/\n\ <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	1476	1574	
==>r libname and will initialize all PMCs in the library.

=back

=head2 Internals

To see the interna <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15557	15644	
==>nd 7f-ff.
    $x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536) <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16736	16823	
==>nd 7f-ff.
    $x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344486	344584	
==>}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345728	345826	
==>}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346970	347068	
==>}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348213	348311	
==>}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{ <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2887	3010	
==>UOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUOTE";
}

our $NOW = time();

################### MAIN PROG <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3196	3319	
==>UOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUOTE";
}

our $NOW = time();

################### MAIN PROG <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2991	3114	
==>UOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUOTE";
}

our $NOW = time();

################### MAIN PROG <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1656	1758	
==>h>["0";0], <rx_pos> # group 0 start := pos');
}

sub output_increment {
    my ($self, $distance, $fail <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492243	492526	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493003	493286	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498976	499259	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499738	500021	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634709	634805	
==>legal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635827	635923	
==>legal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636945	637041	
==>legal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638064	638160	
==>legal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}]->class <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732212	732484	
==>= (INTVAL)({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732958	733230	
==>= (INTVAL)({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5628	5877	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "load_bytecode",
                  "FLAGS" => ":load_file",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "T <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6293	6542	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "load_bytecode",
                  "FLAGS" => ":load_file",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "T <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40187	40429	
==>_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ], <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41034	41276	
==>_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ], <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840101	840207	
==>],
                  "BODY" => "#line 272 \"src/ops/stack.ops\"\n  rotate_entries(interpreter, &CONTEXT(int <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840796	840902	
==>],
                  "BODY" => "#line 272 \"src/ops/stack.ops\"\n  rotate_entries(interpreter, &CONTEXT(int <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	6572	6676	
==>>{'accept_directives'}{$d} = $type;
    DEBUG > 2 and print "Learning to accept \"=$d\" as directive of t <==
4	/Users/nnunley/parrot/config/inter/lex.pm	313	408	
==>ct;

use vars qw( $description @args $prompt $util );

use base qw(Parrot::Configure::Step::Base <==
4	/Users/nnunley/parrot/config/inter/make.pm	307	402	
==>ct;

use vars qw( $description @args $prompt $util );

use base qw(Parrot::Configure::Step::Base <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	308	403	
==>ct;

use vars qw( $description @args $prompt $util );

use base qw(Parrot::Configure::Step::Base <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15483	15583	
==>] } @expr);
		@expr=fixup(@expr);		# Repair unary -, functions, etc...
		@stream=convert_to_rpn(@expr <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15845	15945	
==>] } @expr);
		@expr=fixup(@expr);		# Repair unary -, functions, etc...
		@stream=convert_to_rpn(@expr <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16372	16472	
==>] } @expr);
		@expr=fixup(@expr);		# Repair unary -, functions, etc...
		@stream=convert_to_rpn(@expr <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16996	17096	
==>] } @expr);
		@expr=fixup(@expr);		# Repair unary -, functions, etc...
		@stream=convert_to_rpn(@expr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256454	256762	
==>2}}) ? {{\@3}} : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257362	257670	
==>2}}) ? {{\@3}} : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258270	258578	
==>2}}) ? {{\@3}} : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017089	1017261	
==>" => [
                              "n"
                            ],
                  "BODY" => "#line 108 \"src/ops/sys.ops\"\n  {{\@1}} = Parrot_floatval_time();\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549808	549979	
==>",
                              "s"
                            ],
                  "BODY" => "#line 56 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *obj <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	35966	36096	
==>)
      # Like L<I like the strictness|strict>
      DEBUG > 3 and
         print "  Peering at L content for a '|' ...\n";
      f <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	6115	6232	
==>e "Got an undefined number of tests.  Looks like you tried to ".
                "say how many tests you plan to run b <==
4	/Users/nnunley/parrot/config/init/hints.pm	134	228	
==>NAME

config/init/hints.pm - Platform Hints

=head1 DESCRIPTION

Loads the platform and local h <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63690	63862	
==>MAXREP,
										   $lookahead,$line,
										   $self,
										   $matchrule,
										   $argcode);
										   
						$prod and $prod->additem($item)
						      o <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62983	63141	
==>MAXREP,
										   $lookahead,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      o <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65735	65893	
==>MAXREP,
										   $lookahead,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      o <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	8491	8585	
==>N(interpreter, &st, n)
#define GET_NCI_P(n) get_nci_P(interpreter, &st, n)

/*
 * set return va <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	7314	7585	
==>" => [
                              "i"
                            ],
                  "BODY" => "#line 171 \"src/ops/core.ops\"\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, ' <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	16354	16482	
==>=> 25
		}
	},
	{#State 46
		DEFAULT => -14
	},
	{#State 47
		ACTIONS => {
			"-" => 61
		},
		DEFAULT => -42
	},
	{#State 48
		DE <==
4	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3141	3252	
==>d 'ld' the same.
        $conf->data->set(link => $conf->data->get('ld'));

        # We can't use -opt: and -de <==
4	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4645	4756	
==>d 'ld' the same.
        $conf->data->set(link => $conf->data->get('ld'));

        # We can't use -opt: and -de <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	5358	5516	
==>rget)
            unless match goto match_fail
          match_success:
            print "matched"
            $captures
            goto end
          match_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950514	950605	
==>s\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_ch <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951474	951565	
==>s\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_ch <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952434	952525	
==>s\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_ch <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953395	953486	
==>s\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_ch <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332782	333089	
==>qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334060	334367	
==>qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335338	335645	
==>qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336617	336924	
==>qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680815	681183	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681591	681959	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682365	682733	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683140	683508	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	10	110	
==>nt.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subjec <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672237	672547	
==>{{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673009	673319	
==>{{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673779	674089	
==>{{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	674550	674860	
==>{{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "" <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1534	1642	
==>.
our $PATHQUOTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as they may contain spaces.
    $PATH <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1579	1687	
==>.
our $PATHQUOTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as they may contain spaces.
    $PATH <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1583	1691	
==>.
our $PATHQUOTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as they may contain spaces.
    $PATH <==
4	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	2962	3058	
==>data})
}

sub b64digest {
	md5_base64(shift->{data})
}

sub md5(@) {
	my $message = padding(join' <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	36136	36256	
==>255                 test died
    any other number    how many failed (including missing or extras)

If you fail more tha <==
4	/Users/nnunley/parrot/lib/Test/More.pm	34207	34327	
==>255                 test died
    any other number    how many failed (including missing or extras)

If you fail more tha <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	3002	3122	
==>255                 test died
    any other number    how many failed (including missing or extras)

If you fail more tha <==
4	/Users/nnunley/parrot/tools/build/vtable_extend.pl	2357	2458	
==>s some code.

   PARROT_CALLIN_END(interpreter) will put the stack anchor back to
   the way it was, a <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	498	612	
==>bf$ mki$ mkl$ mks$ mksmbf$
		    peek pen play pmap point pos
		    right$ rnd rtrim$
		    sadd screen seek setmem <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	735	826	
==>s a subclass of L<Pod::Simple::PullParserToken> and inherits all its methods,
and adds these <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1161	1252	
==>s a subclass of L<Pod::Simple::PullParserToken> and inherits all its methods,
and adds these <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	641	732	
==>s a subclass of L<Pod::Simple::PullParserToken> and inherits all its methods,
and adds these <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080498	1080591	
==>, \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081563	1081656	
==>, \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082628	1082721	
==>, \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083694	1083787	
==>, \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168566	168838	
==>) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169508	169780	
==>) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170448	170720	
==>) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171389	171661	
==>) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31461	31556	
==>name> is the name of the output file we are
generating.

Overrides the default implementation to <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33074	33169	
==>name> is the name of the output file we are
generating.

Overrides the default implementation to <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34762	34857	
==>name> is the name of the output file we are
generating.

Overrides the default implementation to <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40081	40176	
==>name> is the name of the output file we are
generating.

Overrides the default implementation to <==
4	/Users/nnunley/parrot/languages/dotnet/Configure.pl	3876	4011	
==>vices
            System.Drawing.Design
            System.Drawing
            System.EnterpriseServices
            System.Manageme <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2969	3071	
==>me => 'op' });
    $handler->end_element({ Name => 'block' });
    $handler->start_element({ Name => 'b <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3643	3745	
==>me => 'op' });
    $handler->end_element({ Name => 'block' });
    $handler->start_element({ Name => 'b <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3733	3835	
==>me => 'op' });
    $handler->end_element({ Name => 'block' });
    $handler->start_element({ Name => 'b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028092	1028189	
==>exception(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_slee <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028943	1029040	
==>exception(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_slee <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029795	1029892	
==>exception(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_slee <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030637	1030734	
==>exception(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_slee <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591590	591689	
==>n(interpreter, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592800	592899	
==>n(interpreter, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594010	594109	
==>n(interpreter, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595221	595320	
==>n(interpreter, next, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721710	721973	
==>0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functio <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722738	723001	
==>0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functio <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723767	724030	
==>0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functio <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071813	1071921	
==>imental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = {{\@5} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073998	1074106	
==>imental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = {{\@5} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076183	1076291	
==>imental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = {{\@5} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078369	1078477	
==>imental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = {{\@5} <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	36062	36209	
==>o the exit codes are...

    0                   all tests successful
    255                 test died
    any other number    how many failed (inc <==
4	/Users/nnunley/parrot/lib/Test/More.pm	34133	34280	
==>o the exit codes are...

    0                   all tests successful
    255                 test died
    any other number    how many failed (inc <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	2928	3075	
==>o the exit codes are...

    0                   all tests successful
    255                 test died
    any other number    how many failed (inc <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	832	926	
==>->constants[i]
END
}

=item C<pc($pc)>

=item C<pc()>

Sets/gets the current position in Parrot <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2035	2145	
==>";
}

=item C<goto_pop()>

Transforms the C<goto POP()> macro in an ops file into the relevant C
code.

=cut

s <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2685	2795	
==>";
}

=item C<goto_pop()>

Transforms the C<goto POP()> macro in an ops file into the relevant C
code.

=cut

s <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2408	2518	
==>";
}

=item C<goto_pop()>

Transforms the C<goto POP()> macro in an ops file into the relevant C
code.

=cut

s <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2588	2698	
==>";
}

=item C<goto_pop()>

Transforms the C<goto POP()> macro in an ops file into the relevant C
code.

=cut

s <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38602	38710	
==>}} = $_tok;'). '
		push @item, $_tok;
		' . ($self->{"lookahead"} ? '$text = $_savetext;' : '' ) .'

'
}

pac <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1206	1313	
==>tent($self);

  return $self;
}

sub dest  { return shift->{DEST};  }
sub left  { return shift->{LEFT};  }
s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1197	1304	
==>tent($self);

  return $self;
}

sub dest  { return shift->{DEST};  }
sub left  { return shift->{LEFT};  }
s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1086	1193	
==>tent($self);

  return $self;
}

sub dest  { return shift->{DEST};  }
sub left  { return shift->{LEFT};  }
s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030205	1030534	
==>",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1152,
                  "ARGS" => [
                              "nc"
                            ],
                  "BOD <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	12471	12586	
==>print <<EOC;
	# $p = global "$c" $cmt
EOC
    }
    elsif ($main_names{$c}) {
	$p = temp('P');
	print <<EOC;
	$p = f <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7697	7797	
==>on isn't a register, determine register name now.
	if (!$dest_reg) {
		$pir .= <<'PIR'
# Get type (so <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5815	5915	
==>on isn't a register, determine register name now.
	if (!$dest_reg) {
		$pir .= <<'PIR'
# Get type (so <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614976	615090	
==>{\n        real_exception(interpreter, next, NO_CLASS,\n            \"Class not parent of object\");\n    }\n    {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616127	616241	
==>{\n        real_exception(interpreter, next, NO_CLASS,\n            \"Class not parent of object\");\n    }\n    {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035663	1035753	
==>ter, lex_pad, lex_name);\n    if (!result) {\n\treal_exception(interpreter, NULL, LEX_NOT_F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036827	1036917	
==>ter, lex_pad, lex_name);\n    if (!result) {\n\treal_exception(interpreter, NULL, LEX_NOT_F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900728	901164	
==>DIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1016,
                  "ARGS" => [
                              "s",
                              "i",
                              "i",
                              "sc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256381	256481	
==>.ops\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257289	257389	
==>.ops\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258197	258297	
==>.ops\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307960	308077	
==>" => "#line 1038 \"src/ops/cmp.ops\"\n  if ({{\@1}}) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1733	1834	
==>able %s.", $dest->value) unless $dest_sym;
  my $dest_type = $dest_sym->type;

  my $left_type;
  if ( <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1691	1792	
==>able %s.", $dest->value) unless $dest_sym;
  my $dest_type = $dest_sym->type;

  my $left_type;
  if ( <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1613	1714	
==>able %s.", $dest->value) unless $dest_sym;
  my $dest_type = $dest_sym->type;

  my $left_type;
  if ( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332355	332456	
==>* These char * need to go away soon */\n  const char * const mode = string_to_cstring(interpreter, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333633	333734	
==>* These char * need to go away soon */\n  const char * const mode = string_to_cstring(interpreter, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334911	335012	
==>* These char * need to go away soon */\n  const char * const mode = string_to_cstring(interpreter, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336190	336291	
==>* These char * need to go away soon */\n  const char * const mode = string_to_cstring(interpreter, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31434	31553	
==>he number of lines, C<$out_name> is the name of the output file we are
generating.

Overrides the default implementation <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33047	33166	
==>he number of lines, C<$out_name> is the name of the output file we are
generating.

Overrides the default implementation <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34735	34854	
==>he number of lines, C<$out_name> is the name of the output file we are
generating.

Overrides the default implementation <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40054	40173	
==>he number of lines, C<$out_name> is the name of the output file we are
generating.

Overrides the default implementation <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010720	1011011	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARGDI <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011484	1011775	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARGDI <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012249	1012540	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARGDI <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	10183	10304	
==>. $self->{'encoding'};
      DEBUG > 1 and print $enc_error;
    }
  } elsif (
    # OK, let's turn on the encoding
    do <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	12446	12556	
==>_outer = defined $_[3] ? $_[3] : $ldel_inner;
	my $rd         = $_[4];
	my $rdel_inner = $ldel_inner;
	my $rdel <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1030	1115	
==>er->code->prederef.code))
#define CUR_OPCODE ((opcode_t*)cur_opcode + CONTEXT(interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	964	1049	
==>er->code->prederef.code))
#define CUR_OPCODE ((opcode_t*)cur_opcode + CONTEXT(interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1160	1245	
==>er->code->prederef.code))
#define CUR_OPCODE ((opcode_t*)cur_opcode + CONTEXT(interpre <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	33160	33287	
==>my ($v, $w, $vv, $ww);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ($w->[2] eq 'P') { <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	33909	34036	
==>my ($v, $w, $vv, $ww);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ($w->[2] eq 'P') { <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	34833	34960	
==>my ($v, $w, $vv, $ww);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ($w->[2] eq 'P') { <==
4	/Users/nnunley/parrot/languages/APL/t/APL.pm	1308	1430	
==>his lets todo tests not bother specifying an out.
                      # XXX also gives us a way to specify a blank output <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2748	2880	
==>ibs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_ <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3057	3189	
==>ibs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_ <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2852	2984	
==>ibs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_ <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	25357	25481	
==>ot like \"$new_letter\""
      );
      return;
    }
    
    if(grep $new_letter eq $_, @Known_formatting_codes) {
      DE <==
4	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	2043	2168	
==>|| (($2 >> (32 - $3)) & (1 << $2) - 1)))"; 
	$c = "\$r = $2;
        $1 = ((\$r << $3) | ((\$r >> (32 - $3))  & ((1 << $3) - 1 <==
4	/Users/nnunley/parrot/examples/benchmarks/stress.pl	581	683	
==>= $_;
    }
    return \@foo;
}

=head1 SEE ALSO

F<examples/benchmarks/stress.pasm>, 
F<examples/bench <==
4	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	643	745	
==>= $_;
    }
    return \@foo;
}

=head1 SEE ALSO

F<examples/benchmarks/stress.pasm>, 
F<examples/bench <==
4	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	490	592	
==>= $_;
    }
    return \@foo;
}

=head1 SEE ALSO

F<examples/benchmarks/stress.pasm>, 
F<examples/bench <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	24633	24736	
==>textref = defined $_[0] ? \$_[0] : \$_;
		my @match = Text::Balanced::_match_tagged($textref, $pre, $lde <==
4	/Users/nnunley/parrot/tools/docs/pod_errors.pl	318	417	
==>reports on any POD errors found in the files.

=cut

use lib 'lib';
use Parrot::Docs::Directory;

my <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104054	1104138	
==>0)\n\t\treal_exception(interpreter, NULL, NO_CLASS,\n\t\t\t\t\"Class '%Ss' not found\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105269	1105353	
==>0)\n\t\treal_exception(interpreter, NULL, NO_CLASS,\n\t\t\t\t\"Class '%Ss' not found\ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3085	3186	
==>r .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we h <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4843	4944	
==>r .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we h <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7771	7871	
==>r .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we h <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8627	8727	
==>r .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do we h <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29429	29538	
==>']},
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRA <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31526	31635	
==>']},
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRA <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22424	22531	
==>']},
					Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRA <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27326	27428	
==>']}, Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146760	147057	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 179, <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	12961	13078	
==>arams TODO
    if ($names{$c}) {
	$p = $names{$c};
	print <<"EOC";
	# lexical $n '$c' := $p $cmt
EOC
    }
    elsif ( <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	19521	19632	
==>elf->{super}{$meth}) {
            $class = $self->{super}{$meth};
            $meth_name = "Parrot_${class}_$me <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	7353	7437	
==>able_112_op Parrot_jit_normal_op
#define Parrot_jit_vtable_221_op Parrot_jit_normal_o <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293455	293711	
==>string_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294331	294587	
==>string_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295207	295463	
==>string_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	3010	3121	
==>}\[$op->{arg1}->{symbol}\] = $op->{arg2}->{symbol}\n";
    }

    sub visitIncrOp {
        my $self = shift <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288374	288682	
==>1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289230	289538	
==>1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290086	290394	
==>1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq" <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	51286	51396	
==>K/gco)
			{
				_parse("an autotree marker", $aftererror,$line);
				if ($rule)
				{
					_error("<autotree> d <==
4	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1282	1558	
==>\n"
                              #
$N1 = time_hires();           # time N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
D <==
4	/Users/nnunley/parrot/examples/mops/mops.pl	1282	1558	
==>\n"
                              #
$N1 = time_hires();           # time N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
D <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131101	131370	
==>ine",
                  "CODE" => 161,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 306 \"src/ops/bit.ops\"\n  {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	1858	1950	
==>suite with --gc-debug
    if ( $ENV{TEST_PROG_ARGS} && $ENV{TEST_PROG_ARGS} !~ /\b--gc-debug\ <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	23181	23296	
==>$expr2 ) = @_;
    my @opcodes = ();
    my $result = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62710	62822	
==>error,$line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr($grammar,$pos,0, <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63421	63533	
==>error,$line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr($grammar,$pos,0, <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64151	64263	
==>error,$line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr($grammar,$pos,0, <==
4	/Users/nnunley/parrot/config/init/hints/linux.pm	1092	1205	
==>CE/) {

        # Request visibility of all POSIX symbols
        # _XOPEN_SOURCE=600 doesn't work with glibc 2.1. <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143551	143643	
==>ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144479	144571	
==>ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145407	145499	
==>ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	8145	8258	
==>ecause of a multi-command
    # test), make it so now so the code below can treat everybody the
    # same.
    $c <==
4	/Users/nnunley/parrot/config/auto/funcptr.pm	503	611	
==>sts';

@args = qw(verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $jitcapable = $conf->data->get <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	1900	2001	
==>ch for
the name).  It also makes it easier for the next guy to understand
what your test is for.  It's <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	10972	11067	
==>os($$textref)||0;
	unless ($$textref =~ m/\G($pre)/gc)
	{
		_failmsg "Did not find prefix: /$pre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100454	100745	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101887	102178	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102658	102949	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLA <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20740	20876	
==>t, $left;
        $self->require_assign;
      }

      my $constructing;
      my $right;

      if ($self->skip_new) {
        $constru <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	12465	12587	
==>AULT => -11
	},
	{#State 5
		DEFAULT => -28,
		GOTOS => {
			'rulename' => 18
		}
	},
	{#State 6
		DEFAULT => -26
	},
	{#St <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2173	2294	
==>y ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various librar <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2465	2586	
==>y ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various librar <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2260	2381	
==>y ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various librar <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850573	850802	
==>[
                              "s",
                              "sc",
                              "i"
                            ],
                  "BODY" => "#line 83 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(inter <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	47159	47268	
==>line);
			$lookahead = $lookahead ? $lookahead : 1;
			$lookaheadspec .= $1;
			next;	# SKIP LOOKAHEAD RESET A <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	12317	12418	
==>ub parse_file {
  my($self, $source) = (@_);

  if(!defined $source) {
    Carp::croak("Can't use empt <==
4	/Users/nnunley/parrot/config/gen/parrot_include.pm	387	477	
==>e);

use Parrot::Configure::Step ':gen';

$description = 'Generating runtime/parrot/include <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6418	6603	
==>"Don't need token.\n";
        }

            defined($act)
        and do {

                $act > 0
            and do {        #shift

#DBG>				$debug & 0x04
#DBG>			and	pr <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6121	6296	
==>"Don't need token.\n";
        }

            defined($act)
        and do {

                $act > 0
            and do {        #shift

#DBG>				$debug & 0x04
#DBG>			and	pr <==
4	/Users/nnunley/parrot/tools/build/pbc2c.pl	5915	6045	
==>S. */
        STRING *arg = string_make(interpreter, argv[i], strlen(argv[i]),
                                  0, PObj_external_F <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2936	3041	
==>);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
    $handl <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3610	3715	
==>);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
    $handl <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3700	3805	
==>);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
    $handl <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	6785	6874	
==>OMPUTED_GOTO
#  include<parrot/oplib/core_ops_cgp.h>
#endif
#include"parrot/exec.h"
#inclu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297025	297315	
==>\@2}} == {{\@3}}) ? 0 : 1;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297881	298171	
==>\@2}} == {{\@3}}) ? 0 : 1;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298737	299027	
==>\@2}} == {{\@3}}) ? 0 : 1;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	57520	57620	
==>okahead,$commitonly,$line);
				$prod and $prod->additem($item)
				      or  _no_rule("$code",$line) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541144	541441	
==>":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 626,
                  "ARGS" => [ <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1086	1190	
==>ces for the program:
    # default -> probe -> environment -> option -> ask
    $prog ||= $conf->options- <==
4	/Users/nnunley/parrot/config/inter/make.pm	907	1011	
==>ces for the program:
    # default -> probe -> environment -> option -> ask
    $prog ||= $conf->options- <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1083	1187	
==>ces for the program:
    # default -> probe -> environment -> option -> ask
    $prog ||= $conf->options- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73208	73513	
==>{{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74810	75115	
==>{{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76412	76717	
==>{{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78015	78320	
==>{{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16239	16339	
==>struct::Expression::Value::Identifier->new($block, $token);

      $self->require_assign;

      my $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17010	17110	
==>struct::Expression::Value::Identifier->new($block, $token);

      $self->require_assign;

      my $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17815	17915	
==>struct::Expression::Value::Identifier->new($block, $token);

      $self->require_assign;

      my $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19361	19461	
==>struct::Expression::Value::Identifier->new($block, $token);

      $self->require_assign;

      my $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062576	1062695	
==>c_keyed(interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063445	1063564	
==>c_keyed(interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064315	1064434	
==>c_keyed(interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" = <==
4	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	9664	9770	
==>nd \"@{[ BUCKET ]}\": $!\n";
  truncate $fh, 0     or die "Couldn't truncate \"@{[ BUCKET ]}\": $!\n";

  s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322892	323130	
==>ine",
                  "CODE" => 378,
                  "ARGS" => [
                              "i",
                              "nc"
                            ],
                  "BODY" => "#line 134 \"src/ops/dotgnu.ops\"\n  {{\@ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6560	6667	
==>more than one type is specified, the semantics are "or".
#

sub skip
{
  my $self = shift;
  my ($kind) = @_ <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	426	522	
==>tion steps.

=head1 USAGE

=head2 Import Parameters

This module accepts no arguments to it's C<i <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8230	8351	
==>ust always have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg = value($r <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9012	9133	
==>ust always have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg = value($r <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7883	8004	
==>ust always have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg = value($r <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8672	8793	
==>ust always have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg = value($r <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5702	5787	
==>ans::CPrederef>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot::OpTrans::Compiled> <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3278	3363	
==>ans::CPrederef>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot::OpTrans::Compiled> <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	3006	3091	
==>ans::CPrederef>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot::OpTrans::Compiled> <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	6458	6543	
==>ans::CPrederef>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot::OpTrans::Compiled> <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71938	72304	
==>P" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 9 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73539	73905	
==>P" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 9 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75141	75507	
==>P" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 9 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76743	77109	
==>P" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 9 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769212	769490	
==>{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770064	770342	
==>{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770917	771195	
==>{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771770	772048	
==>{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_in <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	824	926	
==>ko::Construct::Expression::Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVER <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	662	764	
==>ko::Construct::Expression::Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVER <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	815	917	
==>ko::Construct::Expression::Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVER <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	704	806	
==>ko::Construct::Expression::Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVER <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	8328	8466	
==>RIND}) {
        $_ = "$ENV{VALGRIND} $_" for (@$command);
    }

    my $orig_dir;
    if ( $chdir ) {
        $orig_dir = cwd;
        ch <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276173	276264	
==>81 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277051	277142	
==>81 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277929	278020	
==>81 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353729	353949	
==>IO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354474	354694	
==>IO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355241	355461	
==>IO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10648	10756	
==>ned($scratch = $self->{'Tagmap'}{"/$tagname"}) or next;
      $scratch =~ s/\#([^\#]+)\#/${$self}{$1}/g; # in <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1112	1211	
==>current stack types array size.
${ITEMP0} = elements ${STYPES}
PIR

	# Do code for each pop. Need to <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2822	2921	
==>current stack types array size.
${ITEMP0} = elements ${STYPES}
PIR

	# Do code for each pop. Need to <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16662	16758	
==>cape things very cautiously:
        $x =~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10110	10202	
==>cape things very cautiously:
    $x =~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	15059	15353	
==>" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 20,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 247 \"src/ops/co <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2126	2221	
==>= $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako::Construct::Expression: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2084	2179	
==>= $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako::Construct::Expression: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2006	2101	
==>= $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako::Construct::Expression: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762389	762664	
==>\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763241	763516	
==>\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764094	764369	
==>\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764947	765222	
==>\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	339559	339836	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340557	340834	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341556	341833	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342555	342832	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	26517	26612	
==>us fallback point on failure. So this threads all the
# fallback points together.
sub rewrite_se <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147339	147611	
==>) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148280	148552	
==>) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149220	149492	
==>) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150161	150433	
==>) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Test/More.pm	14486	14588	
==>n ok().  In this case, you can simply use pass() (to
declare the test ok) or fail (for not ok).  They a <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6729	6830	
==>oblem (for me at least) because the browser thinks it should
	# download the file.
	
	if ( $self->has_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2317	2411	
==>y implemented in subclasses to return the C code for the run
core function declaration. C<$base <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2768	2862	
==>y implemented in subclasses to return the C code for the run
core function declaration. C<$base <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199598	200018	
==>IRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 236,
                  "ARGS" => [
                              "n",
                              "n",
                              "ic"
                            ],
                  "BODY" => <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8463	8574	
==>= shift;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the store.
	# Otherwise, <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6283	6394	
==>= shift;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the store.
	# Otherwise, <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5198	5309	
==>= shift;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the store.
	# Otherwise, <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2401	2498	
==>::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights re <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1671	1768	
==>::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights re <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2838	2935	
==>::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights re <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1958	2055	
==>::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights re <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	44121	44229	
==>else {
        $replacer = Pod::Escapes::e2char($content);
        DEBUG > 1 and print " Replacing E<$content <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544128	544230	
==>ops/math.ops\"\n INTVAL gcd = 0;\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545464	545566	
==>ops/math.ops\"\n INTVAL gcd = 0;\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546800	546902	
==>ops/math.ops\"\n INTVAL gcd = 0;\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVA <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	33334	33466	
==>$w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   pri <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	34083	34215	
==>$w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   pri <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	35007	35139	
==>$w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   pri <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	1885	1994	
==>::Module;
  use Test::Builder;
  require Exporter;
  @ISA = qw(Exporter);
  @EXPORT = qw(ok);

  my $Test = Te <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8360	8587	
==>h_cs",
                  "FLAGS" => ":base_loop,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9475	9702	
==>h_cs",
                  "FLAGS" => ":base_loop,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
4	/Users/nnunley/parrot/config/init/defaults.pm	2416	2526	
==>amic => $Config{ccdlflags},    # e.g. -Wl,-E on HP-UX

        # ld: Tool used to build shared libraries and dy <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	1231	1337	
==>n i, a$
sub mysub
	print "In the sub\n"
	print i
	print j
	print a$
	print c$
end sub
j=2
i=5
a$="Hello"
c$ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072746	1072874	
==>n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074931	1075059	
==>n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077116	1077244	
==>n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079302	1079430	
==>n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367131	367421	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367922	368212	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368714	369004	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	24983	25087	
==>that for this paragraph buffer.
      DEBUG and print "Throwing end-document event.\n";

      $self->_ha <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2087	2196	
==>sym->type;
  }
  else {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jak <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2045	2154	
==>sym->type;
  }
  else {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jak <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1967	2076	
==>sym->type;
  }
  else {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jak <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	602	700	
==>ecker;
use Parrot::Docs::POD2HTML;

my $UNDEFINED = 'Undefined';

# These are the Parrot file types <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857765	858069	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_m <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858768	859072	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_m <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859772	860076	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_m <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860776	861080	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_m <==
4	/Users/nnunley/parrot/lib/Test/More.pm	7374	7497	
==>So these:

    # Is the ultimate answer 42?
    is( ultimate_answer(), 42,          "Meaning of Life" );

    # $foo isn't e <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467587	467698	
==>.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468458	468569	
==>.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477010	477121	
==>.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477906	478017	
==>.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	4897	5075	
==>e_type);\n    {{+=0}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "reserv <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11774	11945	
==>gn = new KeyedSetOp( $parser,
                        'arg1'   => $last_key->[0],
                        'arg2'   => undef,
                        'result' => $result, <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9974	10133	
==>gn = new KeyedSetOp( $parser,
                    'arg1'   => $last_key->[0],
                    'arg2'   => undef,
                    'result' => $result, <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8829	8964	
==>gn = new KeyedSetOp( $parser,
            'arg1'   => $last_key->[0],
            'arg2'   => undef,
            'result' => $result, <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63126	63239	
==>m)
						      or  _no_rule("repetition",$line,"$code$argcode($1)");

						!$matchrule and $rule and $rule->addca <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63847	63960	
==>m)
						      or  _no_rule("repetition",$line,"$code$argcode($1)");

						!$matchrule and $rule and $rule->addca <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64563	64676	
==>m)
						      or  _no_rule("repetition",$line,"$code$argcode($1)");

						!$matchrule and $rule and $rule->addca <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62490	62601	
==>m)
					      or  _no_rule("repetition",$line,"$code$argcode($1)");

					!$matchrule and $rule and $rule->addca <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	4647	4783	
==>rules;
}


# Rule validator.
# ###############
sub validate_rule($) {
    my $rule = shift;
    
    # Flags we'll set as we go through k <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2654	2768	
==>$$self{ERRST}} != 0;
}

sub YYAbort {
	my($self)=shift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYA <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2536	2640	
==>$$self{ERRST}} != 0;
}

sub YYAbort {
	my($self)=shift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYA <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45016	45112	
==>my $COMMENT		= '\G\s*(#.*)';
my $COMMITMK		= '\G\s*<commit>';
my $UNCOMMITMK		= '\G\s*<uncommit>' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381173	381266	
==>O_make_offset({{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382185	382278	
==>O_make_offset({{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383197	383290	
==>O_make_offset({{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384210	384303	
==>O_make_offset({{\@2}}), {{\@3}}) < 0) {\n      real_exception(interpreter, NULL, PIO_ERROR, \" <==
4	/Users/nnunley/parrot/lib/Test/More.pm	20531	20631	
==>many accurately reflects the number of tests
in the SKIP block so the # of tests run will match up wi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382976	383179	
==>,
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 455 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480738	480830	
==>er, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481741	481833	
==>er, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482744	482836	
==>er, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@2 <==
4	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2203	2339	
==>$func};
        # That's the reason for:   no strict 'refs';
        my $pass = $self->{builder}->$builder_func(
                       P <==
4	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2742	2878	
==>$func};
        # That's the reason for:   no strict 'refs';
        my $pass = $self->{builder}->$builder_func(
                       P <==
4	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2673	2804	
==>$func};

        # That's the reason for:   no strict 'refs';
        my $pass = $self->{builder}
            ->$builder_func( P <==
4	/Users/nnunley/parrot/lib/Test/More.pm	37241	37335	
==>n, blackstar.co.uk, chromatic, Fergal Daly and
the perl-qa gang.


=head1 BUGS

See F<http://rt <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908772	909071	
==>> 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909668	909967	
==>> 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910565	910864	
==>> 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911462	911761	
==>> 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319478	319761	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320247	320530	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321017	321300	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	513	624	
==>x);
    # Disable implicit checks
    $t = $self->maptree($t, sub { shift->{nocheck} = 1 });
    # Add necessary <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797015	797114	
==>\"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797919	798018	
==>\"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798823	798922	
==>\"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799728	799827	
==>\"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\ <==
4	/Users/nnunley/parrot/config/gen/platform.pm	2739	2844	
==>rrect one from the above list in their $platform/ dir (e.g. misc.c).
    }

    # finally append generated <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	37034	37127	
==>t>schwern@pobox.comE<gt>.

This program is free software; you can redistribute it and/or 
modi <==
4	/Users/nnunley/parrot/lib/Test/More.pm	37443	37536	
==>t>schwern@pobox.comE<gt>.

This program is free software; you can redistribute it and/or 
modi <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	6403	6496	
==>t>schwern@pobox.comE<gt>.

This program is free software; you can redistribute it and/or 
modi <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	8345	8447	
==>age>';

  printf STDERR "%s [%s]: Debug message: %s\n", $self->file, $self->line, $message;
}


#
# WAR <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2779	2878	
==>test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $op <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3453	3552	
==>test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $op <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3543	3642	
==>test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $op <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	8852	8998	
==>"] )* "     # remove " strings
        | /\* .*? \*/ )             # remove C comments
    ]
    [ "-" x length $1 ]sexg;

    /^\{/ or die "bad bl <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	32870	32989	
==>$val = promote(pop @stack);
    if ($vtables{$c}) {
	$c = $vtables{$c};
    }
    my $cc;
    if ($c =~ /^\d+$/) {	# MMD <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	4392	4489	
==>_fail ($wantarray, $textref) unless @match;

	return _succeed ( $wantarray, $textref,
			  $match[ <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	15901	15992	
==>_fail($wantarray, $textref) unless @match;
	return _succeed($wantarray, $textref,
			$match[ <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	3826	3937	
==>tle      eq 'Bad Taste',     'Title() get'    );
    ok( $btaste->Director   eq 'Peter Jackson', 'Director() get <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2354	2464	
==>ant C code.

=cut

sub expr_offset
{
    my ($self, $offset) = @_;

    return "cur_opcode + $offset";
}

=item <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27059	27150	
==>ncname}=$englishname;

	$f="_USERFUNC_$funcname";
	$f=changename($f);
	$f=~s/\$/_string/g; $ <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27332	27423	
==>ncname}=$englishname;

	$f="_USERFUNC_$funcname";
	$f=changename($f);
	$f=~s/\$/_string/g; $ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	773	876	
==>>$function($tree, $ctx);
}

sub convert_rule {
    my ($self, $tree, $ctx) = @_;
    return $self->conve <==
4	/Users/nnunley/parrot/tools/build/headerize.pl	497	600	
==>ad1 TODO

* Tell if there are funcs without docs

* Generate docs from funcs

* Test the POD of the stuf <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13068	13156	
==>ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  loc = INT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13912	14000	
==>ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  loc = INT <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3931	4031	
==>->imcc_pmc();
    my $temp_pmc = $compiler->temp_pmc();

    $compiler->emit("  $temp_pmc = new $pmc_ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1570	1670	
==>->imcc_pmc();
    my $temp_pmc = $compiler->temp_pmc();

    $compiler->emit("  $temp_pmc = new $pmc_ <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6493	6586	
==>syms[CURR]);
		push @{$code{$seg}->{code}}, "$labels{$syms[CURR]}:   # For user branch ($syms[ <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8773	8866	
==>syms[CURR]);
		push @{$code{$seg}->{code}}, "$labels{$syms[CURR]}:   # For user branch ($syms[ <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	3819	3938	
==>rgs);
		my $n = @args;
		$arg_count{$f} = $n;
		for (my $i = 0; $i < $n; $i++) {
		    my ($a, $def) = split(/=/, $args[ <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	4318	4437	
==>rgs);
		my $n = @args;
		$arg_count{$f} = $n;
		for (my $i = 0; $i < $n; $i++) {
		    my ($a, $def) = split(/=/, $args[ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936261	936349	
==>\"src/ops/string.ops\"\n  {{\@1}} = string_titlecase(interpreter, {{\@2}});\n  {{+=3}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937038	937126	
==>\"src/ops/string.ops\"\n  {{\@1}} = string_titlecase(interpreter, {{\@2}});\n  {{+=3}};\n <==
4	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	813	922	
==>first event!  set to stack, and set as root.
  }
  DEBUG > 3 and print "Stack is now: ",
    join(">", map $_- <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	60213	60304	
==>necessarily where it occurred!)
Printing C<$@> directly produces the error message, with the <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718059	718146	
==>intf(interpreter, io, INTVAL_FMT, (INTVAL){{\@2}});\n  PIO_softspace(interpreter, io, 1) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718991	719078	
==>intf(interpreter, io, INTVAL_FMT, (INTVAL){{\@2}});\n  PIO_softspace(interpreter, io, 1) <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	3502	3615	
==>od'),
        ),
        $self->new_group('Possibly obsolete', '',
            $self->new_item('', 'tools/dev/gen_ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19298	19392	
==>->{children}}) {
    my $temp_1 = $self->_generate($node->{children}[$_]);
    $self->_add_inst <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19786	19880	
==>->{children}}) {
    my $temp_1 = $self->_generate($node->{children}[$_]);
    $self->_add_inst <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20275	20369	
==>->{children}}) {
    my $temp_1 = $self->_generate($node->{children}[$_]);
    $self->_add_inst <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797030	797130	
==>ps\"\n    {{\@1}}->vtable->set_number_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797934	798034	
==>ps\"\n    {{\@1}}->vtable->set_number_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798838	798938	
==>ps\"\n    {{\@1}}->vtable->set_number_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799743	799843	
==>ps\"\n    {{\@1}}->vtable->set_number_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189796	190063	
==>r, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ), <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190737	191004	
==>r, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ), <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191676	191943	
==>r, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ), <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192616	192883	
==>r, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ), <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	33189	33321	
==>v = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ($w->[2] eq 'P') {
	   $ww = temp('I');
	   print << <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	33938	34070	
==>v = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ($w->[2] eq 'P') {
	   $ww = temp('I');
	   print << <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	34862	34994	
==>v = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ($w->[2] eq 'P') {
	   $ww = temp('I');
	   print << <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	11901	12022	
==>_statuses'} }, $enc_error;

  return '=encoding ALREADYDONE';
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13777	13875	
==>ulate
the number of lines, C<$out_name> is the name of the output file we are
generating.

=cut

su <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16165	16263	
==>ulate
the number of lines, C<$out_name> is the name of the output file we are
generating.

=cut

su <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29560	29658	
==>ulate
the number of lines, C<$out_name> is the name of the output file we are
generating.

=cut

su <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30202	30300	
==>ulate
the number of lines, C<$out_name> is the name of the output file we are
generating.

=cut

su <==
4	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3321	3446	
==>{
            my $linkflags = $conf->data->get('linkflags');
            $linkflags =~ s/-opt:\S+//;
            $conf->data-> <==
4	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4825	4950	
==>{
            my $linkflags = $conf->data->get('linkflags');
            $linkflags =~ s/-opt:\S+//;
            $conf->data-> <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	9512	9612	
==>gh there will probably
# be pragmata for allowing code to specify that it won't muck with
# things.
p <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	488	581	
==>mc/foo.c> and C<pmc_foo.h> from F<src/pmc/foo.dump>:

    % perl tools/build/pmc2c.pl -c src/p <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2523	2623	
==>anches until late to do
	# otherwise. Also, putting a label everywhere doesn't hurt the final
	# Parr <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1101	1201	
==>anches until late to do
	# otherwise. Also, putting a label everywhere doesn't hurt the final
	# Parr <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15026	15121	
==>F])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
    }
    return;
  } elsif(wan <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16209	16304	
==>F])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
    }
    return;
  } elsif(wan <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5704	5798	
==>s::CPrederef>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot::OpTrans::Compiled>

=back

=c <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3280	3374	
==>s::CPrederef>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot::OpTrans::Compiled>

=back

=c <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	3008	3102	
==>s::CPrederef>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot::OpTrans::Compiled>

=back

=c <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	6460	6554	
==>s::CPrederef>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot::OpTrans::Compiled>

=back

=c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467056	467351	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467926	468221	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468797	469092	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469671	469966	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	17353	17470	
==>} = $res;
    }

    $all{default} = read_dump($include, "default.pmc")
        if not $all{default};

    my $vt = re <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	3181	3306	
==>colon', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^([;])(.*)$}) {
      push @tokens, Jako::Token->n <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2888	3001	
==>pops, $pushes) = @_;
	my $register_num = 0;
	my $push_num = 0;
	my $pir = '';

	# Do code for each pop. Need to se <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1810	1923	
==>pops, $pushes) = @_;
	my $register_num = 0;
	my $push_num = 0;
	my $pir = '';

	# Do code for each pop. Need to se <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	9	113	
==>lass::Struct;

## See POD after __END__

use 5.005_03;

use strict;
# use warnings::register;
use vars qw <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634706	634798	
==>"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635824	635916	
==>"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636942	637034	
==>"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638061	638153	
==>"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpreter->vtables[{{\@2}}] <==
4	/Users/nnunley/parrot/config/gen/makefiles.pm	2616	2814	
==>file',
        commentType                          => '#',
        replace_slashes                      => 1,
        conditioned_lines                    => 1
    );
    genfile(
        'config/ge <==
4	/Users/nnunley/parrot/config/gen/makefiles.pm	1350	1530	
==>file',
        commentType                    => '#',
        replace_slashes                => 1,
        conditioned_lines              => 1
    );
    genfile(
        'config/ge <==
4	/Users/nnunley/parrot/config/gen/makefiles.pm	4417	4591	
==>file',
        commentType                  => '#',
        replace_slashes              => 1,
        conditioned_lines            => 1
    );
    genfile(
        'config/ge <==
4	/Users/nnunley/parrot/config/gen/makefiles.pm	5467	5641	
==>file',
        commentType                  => '#',
        replace_slashes              => 1,
        conditioned_lines            => 1
    );
    genfile(
        'config/ge <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960933	961027	
==>ODY" => "#line 595 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961895	961989	
==>ODY" => "#line 595 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962857	962951	
==>ODY" => "#line 595 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963820	963914	
==>ODY" => "#line 595 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566995	567311	
==>,
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 648,
                  " <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1907	2022	
==>provided appears to be
    # broken
    if ($ret == -1 and !$conf->options->get('ask')) {

        # fall back to de <==
4	/Users/nnunley/parrot/config/inter/make.pm	1781	1896	
==>provided appears to be
    # broken
    if ($ret == -1 and !$conf->options->get('ask')) {

        # fall back to de <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1921	2036	
==>provided appears to be
    # broken
    if ($ret == -1 and !$conf->options->get('ask')) {

        # fall back to de <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763193	763428	
==>d register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764046	764281	
==>d register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764899	765134	
==>d register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765753	765988	
==>d register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854972	855062	
==>5 \"src/ops/string.ops\"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855861	855951	
==>5 \"src/ops/string.ops\"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856750	856840	
==>5 \"src/ops/string.ops\"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857640	857730	
==>5 \"src/ops/string.ops\"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  { <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	10569	10698	
==>arithm
    .param num op1
    .param num op2
    $N1 = ln op1
    $N2 = ln op2
    $N3 = $N1 / $N2
    .return($N3)
.end

# This s <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	20323	20435	
==>";
	$code_l++;
	$cmt ="\t\t# $opcode\t $rest";
	if ($rest =~ /to (\d+)/) {
	    $targ = "pc_$1";
	}
	$op = $op_ma <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	30542	30648	
==>ate(_get_arg($node,1));
  if ($temp =~ /^P/) {
  }

  return $return;
}

sub _op_apply {
  my ($self, $node <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28001	28096	
==>em C<gen_h($out_name)>

Generates the C header file code for the PMC. C<$out_name> is the name
o <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5637	5733	
==>rans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3213	3309	
==>rans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4619	4715	
==>rans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	4003	4099	
==>rans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1459	1576	
==>E  => $ident ? $ident->file : undef,  # TODO: YUCK!!!
    LINE  => $ident ? $ident->line : undef
  }, $class;

  $bloc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090881	1090989	
==>>vtable->slice(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1091941	1092049	
==>>vtable->slice(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	1198	1290	
==>ars);

# Emit translation dispatch table.
$pir .= generate_dispatch_table($srm, \@rules, $met <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17020	17148	
==>BuildLiteral( $parser, $idf, 'key' );
                push @opcodes, @{ $key->[1] };
                $result = new_tmp( $parser <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684594	684705	
==>,
                  "BODY" => "#line 550 \"src/ops/pmc.ops\"\n      {{\@1}}->vtable->setprop(interpreter, {{\@1} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685489	685600	
==>,
                  "BODY" => "#line 550 \"src/ops/pmc.ops\"\n      {{\@1}}->vtable->setprop(interpreter, {{\@1} <==
4	/Users/nnunley/parrot/config/auto/pack.pm	1150	1260	
==>} elsif ($size == 8 || $Config{use64bitint} eq 'define') {

            # pp_pack is annoying, and this won't w <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17396	17519	
==>,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 42
		ACTIONS <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	7617	7711	
==>S ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub ' . $namespace . '::' . $self->{"n <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6588	6676	
==>stack_depth[${ITEMP0}] = stack_depth
    goto POST_BRANCH_switch_${CURIC}_LOOP
POST_BRANC <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4526	4614	
==>stack_depth[${ITEMP0}] = stack_depth
    goto POST_BRANCH_switch_${CURIC}_LOOP
POST_BRANC <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352337	352588	
==>f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352995	353246	
==>f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358022	358273	
==>f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358686	358937	
==>f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256399	256520	
==>= ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257307	257428	
==>= ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258215	258336	
==>= ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	27905	28009	
==>tensor has bad syntax.\n";
    $self->whine(
      $para->[1]{'start_line'},
      "Unknown =extend synta <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20833	20950	
==>> $self->op_save_rxlocals($op),
              );

    return ($back, @ops);
}

# ( [ [aaaaa|aaaaaaa]<2,3> ]<1,2> )
# 3 <==
4	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	3681	3786	
==>,v\s+(\S+)/s;
    
    return $version;
}

=item C<is_hidden()>

Returns whether the file is "hidden", i.e <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	425	522	
==>ation tools in F<tools/docs>.

=head2 Class Methods

=over 4

=cut

package Parrot::Docs::File;

u <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	21337	21430	
==>STDOUT and STDERR point to,
Test::Builder's default output settings will not be affected.

=ov <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522256	522468	
==>line 744 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523111	523323	
==>line 744 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523966	524178	
==>line 744 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
4	/Users/nnunley/parrot/config/auto/msvc.pm	636	737	
==>("config/auto/msvc/test_c.in");
    cc_build();
    my %msvc = eval cc_run() or die "Can't run the tes <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9935	10040	
==>Changed ref'd var from 5 to 12
function myfunc(a)
	print a
	a=12
        myfunc=80
end function
z=5
T=myfu <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11548	11653	
==>Changed ref'd var from 5 to 12
function myfunc(a)
	print a
	a=12
        myfunc=80
end function
z=5
T=myfu <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3578	3679	
==>RROR("Sub declaration has no fnlib property, and parent block is not a module!")
        unless $self- <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6242	6343	
==>RROR("Sub declaration has no fnlib property, and parent block is not a module!")
        unless $self- <==
4	/Users/nnunley/parrot/Configure.pl	7178	7317	
==>onfig=/path/to/icu-config
                        Location of the script used for ICU autodetection.
                        You just need t <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	33267	33397	
==>if ($w->[2] eq 'P') {
	   $ww = temp('I');
	   print <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	34016	34146	
==>if ($w->[2] eq 'P') {
	   $ww = temp('I');
	   print <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	34940	35070	
==>if ($w->[2] eq 'P') {
	   $ww = temp('I');
	   print <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080573	1080858	
==>w_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081638	1081923	
==>w_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082703	1082988	
==>w_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083769	1084054	
==>w_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	119467	119736	
==>.ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120322	120591	
==>.ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121177	121446	
==>.ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	20448	20559	
==>ally
      $para->[1]{'~really'} ||= '=begin';
      $para->[1]{'~ignore'}   = (! $dont_ignore) || 0;
      $par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995500	995701	
==>,
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996638	996839	
==>,
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997776	997977	
==>,
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	998915	999116	
==>,
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_c <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	20388	20499	
==>(\d+)/) {
	    $targ = "pc_$1";
	}
	$op = $op_map{$c};
    }
    elsif ($opcode eq 'UNARY_NOT' && $code[$code_l+ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062561	1062661	
==>= VTABLE_get_pmc_keyed(interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063430	1063530	
==>= VTABLE_get_pmc_keyed(interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064300	1064400	
==>= VTABLE_get_pmc_keyed(interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94957	95066	
==>"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95850	95959	
==>"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96743	96852	
==>"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/config/auto/signal.pm	352	445	
==>rot::Configure::Step ':auto';

$description = 'Determining some signal stuff';

@args = qw(min <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717095	717227	
==>> 804,
                  "ARGS" => [],
                  "BODY" => "#line 100 \"src/ops/python.ops\"\n  PMC * const io = PIO_STDOUT(i <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3382	3492	
==>{
    my $fnlib;

    if (exists $props{fnlib} and $props{fnlib}) {
      $fnlib = $props{fnlib}->value; # TODO <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6046	6156	
==>{
    my $fnlib;

    if (exists $props{fnlib} and $props{fnlib}) {
      $fnlib = $props{fnlib}->value; # TODO <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	16162	16270	
==>ck. Emit code to deal with that.
PIRCODE
    my $pop_all = $srm->pop_all();
    $pir .= "### pop_all (typed e <==
4	/Users/nnunley/parrot/config/init/hints/darwin.pm	1585	1712	
==>XXX ugly hack for rpath_lib in config/inter/libparrot.pm
        rpath                   => "-L",
        libparrot_soname    => <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	16050	16154	
==>.");
		return;
	}
	my $op = pop @{$self->{op}};
	my $span = @{$self->{items}} - $op->{offset};
	if ($op-> <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1742	1843	
==>slation hook.
sub post_translation() {
	# Nothing to do.
	return "";
}

# Extra subroutines required f <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	782	883	
==>slation hook.
sub post_translation() {
	# Nothing to do.
	return "";
}

# Extra subroutines required f <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	539	640	
==>slation hook.
sub post_translation() {
	# Nothing to do.
	return "";
}

# Extra subroutines required f <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63794	63927	
==>e);
										   
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$line,"$code$argcode($1)");

						!$mat <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63087	63206	
==>e);
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$line,"$code$argcode($1)");

						!$mat <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64524	64643	
==>e);
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$line,"$code$argcode($1)");

						!$mat <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62452	62568	
==>e);
					$prod and $prod->additem($item)
					      or  _no_rule("repetition",$line,"$code$argcode($1)");

					!$mat <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	22390	22512	
==>@EXPORT, $func;
        no strict 'refs';

        *{$package.'::'.$func} = sub {
            my ($source, $expected, $desc <==
4	/Users/nnunley/parrot/config/auto/sizes.pm	265	361	
==>es;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

u <==
4	/Users/nnunley/parrot/config/gen/makefiles.pm	304	400	
==>es;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

u <==
4	/Users/nnunley/parrot/config/inter/types.pm	318	414	
==>es;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

u <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90823	91081	
==>/ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91677	91935	
==>/ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92531	92789	
==>/ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
4	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	224	328	
==>ed in here
  my $class = shift;
  $class = ref($class) || $class;
  
  Carp::croak "Usage: ${class}->hand <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107148	107406	
==>/ops/bit.ops\"\n  {{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108002	108260	
==>/ops/bit.ops\"\n  {{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108856	109114	
==>/ops/bit.ops\"\n  {{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	3586	3698	
==>| input | open | close | on | randomize | stop | swap |
		common | cls | locate | color | keys
		)$/x) {
		no str <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072060	1072176	
==>m1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074245	1074361	
==>m1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076430	1076546	
==>m1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078616	1078732	
==>m1 = 0;\n  INTVAL yk = 1;\n  INTVAL ykp1 = 0;\n\n  INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7202	7309	
==>{
                error($file, $line, "Improper indenting for \"$_\"\n(should be \"#$indent$2\" because it i <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7509	7616	
==>{
                error($file, $line, "Improper indenting for \"$_\"\n(should be \"#$indent$2\" because it i <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7867	7974	
==>{
                error($file, $line, "Improper indenting for \"$_\"\n(should be \"#$indent$2\" because it i <==
4	/Users/nnunley/parrot/tools/build/ops2c.pl	12307	12409	
==>s >= 0 (found idx into info_table), -1 if not
 */

static int get_op(const char * name, int full);

sta <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15160	15267	
==>n map {; ($x = $_) =~
      s/([F\x00-\x1F\-\\\{\}\x7F-\xFF])/$Escape{$1}/g;  # ESCAPER
      $x =~ s/([^\x0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459775	459874	
==>Y" => "#line 282 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_except <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460763	460862	
==>Y" => "#line 282 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_except <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461751	461850	
==>Y" => "#line 282 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_except <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356715	356978	
==>@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357375	357638	
==>@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358038	358301	
==>@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358702	358965	
==>@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084701	1084795	
==>=> "#line 163 \"src/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085754	1085848	
==>=> "#line 163 \"src/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086807	1086901	
==>=> "#line 163 \"src/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087861	1087955	
==>=> "#line 163 \"src/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, { <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	36081	36226	
==>e...

    0                   all tests successful
    255                 test died
    any other number    how many failed (including missing or <==
4	/Users/nnunley/parrot/lib/Test/More.pm	34152	34297	
==>e...

    0                   all tests successful
    255                 test died
    any other number    how many failed (including missing or <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	2947	3092	
==>e...

    0                   all tests successful
    255                 test died
    any other number    how many failed (including missing or <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	20913	21018	
==>startpos,	$oppos-$startpos,	# PREFIX
		$oppos,		length($op),		# OPERATOR
		$ld1pos,	1,			# LEFT DEL
		$str <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24824	24939	
==>tore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_generate($ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25835	25950	
==>tore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_generate($ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26723	26838	
==>tore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_generate($ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27733	27848	
==>tore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_generate($ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	403	512	
==>t);

sub new
{
  my $class = shift;
  my ($block, $left, $right) = @_;

  confess("Block (" . ref($block) . ") <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	394	503	
==>t);

sub new
{
  my $class = shift;
  my ($block, $left, $right) = @_;

  confess("Block (" . ref($block) . ") <==
4	/Users/nnunley/parrot/lib/Test/More.pm	14308	14408	
==>ame);
  fail($test_name);

Sometimes you just want to say that the tests have passed.  Usually
the ca <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	1652	1743	
==>der}->is_eq( $pirate_file, $py_file, $desc );
    $self->{builder}->diag("'$cmd' failed with <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926547	926705	
==>}}->bufused;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928017	928175	
==>}}->bufused;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929487	929645	
==>}}->bufused;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930958	931116	
==>}}->bufused;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138097	138242	
==>c"
                            ],
                  "BODY" => "#line 70 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138993	139138	
==>c"
                            ],
                  "BODY" => "#line 70 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139889	140034	
==>c"
                            ],
                  "BODY" => "#line 70 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\ <==
4	/Users/nnunley/parrot/lib/Test/More.pm	24212	24311	
==>code you haven't written yet, or bugs you have yet to fix,
but want to put tests in your testing scr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735055	735277	
==>=> [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 139 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LA <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1828	2010	
==>st;

            s/^\\([\\"'])//
                and $str .= $1,        # backslash, quotation mark, apostrophe
                last;
            s/^\\a//
                and $s <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3342	3524	
==>st;

            s/^\\([\\"'])//
                and $str .= $1,        # backslash, quotation mark, apostrophe
                last;
            s/^\\a//
                and $s <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	61	159	
==>my $stmts=0;

sub fetch {
	$cur=$next;
	$next=$afternext;
	$afternext=getc(D);
	$afternext="" if (! <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663163	663457	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663934	664228	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664706	665000	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665482	665776	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344472	344566	
==>/\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345714	345808	
==>/\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346956	347050	
==>/\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348199	348293	
==>/\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_ <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	9574	9723	
==>>
                  <th>Branch Coverage</th>
                  <th>Call Coverage</th>
    );

        my $outfile_base = $source_file; 
        $outfi <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	3510	3602	
==>ocess_code_start_token($token)>

Processes the code start token. If the code text is the name <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3460	3549	
==>{STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}
goto <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5222	5311	
==>{STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}
goto <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17997	18101	
==>append {
}

sub _op_reverse {
}

sub _op_list_ref {
}

sub _op_memq {
}

sub _op_memv {
}

sub _op_member <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143563	143660	
==>"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144491	144588	
==>"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145419	145516	
==>"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1213	1326	
==>elf);

  return $self;
}

sub dest  { return shift->{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { re <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1204	1317	
==>elf);

  return $self;
}

sub dest  { return shift->{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { re <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1093	1206	
==>elf);

  return $self;
}

sub dest  { return shift->{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { re <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	762	860	
==>ot;
    
    return Parrot::Docs::Section::Parrot->new;
}

=item C<new_section($name, $text, @items <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766065	766328	
==>E" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766917	767180	
==>E" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767770	768033	
==>E" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768623	768886	
==>E" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712587	712682	
==>rpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(interpreter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713694	713789	
==>rpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(interpreter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720054	720149	
==>rpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(interpreter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721254	721349	
==>rpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(interpreter <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	489	584	
==>.

=head1 DESCRIPTION

This module provides a basic test harness for Parrot-hosted languages.  R <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	23097	23206	
==>hoami = string_make(interp,
            "$classname", @{[length($classname)]}, "ascii",
            PObj_const <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126694	126996	
==>- s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127829	128131	
==>- s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128964	129266	
==>- s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/tools/dev/lib_deps.pl	1336	1437	
==>$mode, @files) = @ARGV;

if ($mode !~ /^(source|object)$/ || ! @files) {
    die "Usage: $0 object <ob <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	27503	27601	
==>3 times faster). It uses qr// for better performance on
# repeated calls, so it only works under Pe <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31295	31389	
==>ements_vtable($meth);
}

=item C<body($method, $line, $out_name)>

Returns the C code for the m <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35926	36020	
==>ements_vtable($meth);
}

=item C<body($method, $line, $out_name)>

Returns the C code for the m <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39915	40009	
==>ements_vtable($meth);
}

=item C<body($method, $line, $out_name)>

Returns the C code for the m <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	448887	449147	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931311	931485	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932081	932255	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932852	933026	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056430	1056577	
==>"
                            ],
                  "BODY" => "#line 194 \"src/ops/var.ops\"\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057322	1057469	
==>"
                            ],
                  "BODY" => "#line 194 \"src/ops/var.ops\"\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058214	1058361	
==>"
                            ],
                  "BODY" => "#line 194 \"src/ops/var.ops\"\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059107	1059254	
==>"
                            ],
                  "BODY" => "#line 194 \"src/ops/var.ops\"\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540485	540585	
==>} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !(( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541737	541837	
==>} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !(( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542989	543089	
==>} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !(( <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	89	188	
==>on translator from a rules file and a
# stack to register mapping algorithm.

use strict;
use Getopt <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516759	517052	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517498	517791	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518236	518529	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518975	519268	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718119	718374	
==>oftspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719051	719306	
==>oftspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720250	720505	
==>oftspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721450	721705	
==>oftspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr3.pm	588	699	
==>guages/${pir_fn}",
             "$self->{parrot} languages/${pir_fn}" );
}
 

sub skip_why {
    my $self = shif <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27607	27705	
==>t;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'unless')
		. ' ($text =~ s/\A($skip)/$lastsep=$ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29717	29815	
==>t;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'unless')
		. ' ($text =~ s/\A($skip)/$lastsep=$ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31814	31912	
==>t;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'unless')
		. ' ($text =~ s/\A($skip)/$lastsep=$ <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26493	26623	
==>}
    push @opcodes, new LabelOp( $parser,
        'arg1' => $l_end,
    );
    return \@opcodes;
}

sub BuildWhile {
    m <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7168	7290	
==>);
            if ($1 ne $indent) {
                error($file, $line, "Improper indenting for \"$_\"\n(should be \"#$inde <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7475	7597	
==>);
            if ($1 ne $indent) {
                error($file, $line, "Improper indenting for \"$_\"\n(should be \"#$inde <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7833	7955	
==>);
            if ($1 ne $indent) {
                error($file, $line, "Improper indenting for \"$_\"\n(should be \"#$inde <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	62103	62209	
==>n $filename ($!).\n";

    my $generator = new pirVisitor($FH);
#    my $generator = new pirVisitor(\*ST <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950546	950645	
==>_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, des <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951506	951605	
==>_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, des <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952466	952565	
==>_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, des <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953427	953526	
==>_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@2}}, {{\@3}}, des <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	2993	3090	
==>Runs the PIR code and passes the test if a string comparison of output
with the expected result is <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	684	779	
==>er>, you might
get an object of this class.

This is a subclass of L<Pod::Simple::PullParserToke <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	590	685	
==>er>, you might
get an object of this class.

This is a subclass of L<Pod::Simple::PullParserToke <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	9790	9882	
==>$argtype, $reg_num, $temp_cnt_ref, $temps_ref,
        $extra_preamble_ref, $extra_postamble_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95591	95860	
==>e",
                  "CODE" => 118,
                  "ARGS" => [
                              "s",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 63 \"src/ops/bit.ops\"\n  {{\@1} <==
4	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	6345	6475	
==>my ($file, @args) = @_;
    
    my %args = map { $_->{name} => $_ } @args;
    
    # the number for the loops
    my $code = "  . <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	64185	64281	
==>text without finding a closing tag
to match the original opening tag (and the failure mode was no <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2951	3045	
==>>

=item C<goto_address($address)>

CPrederef is funky in that expr OFFSET(n) uses a pointer to <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714610	714712	
==>n  if (s && string_length(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_put <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715533	715635	
==>n  if (s && string_length(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_put <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722297	722399	
==>n  if (s && string_length(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_put <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723326	723428	
==>n  if (s && string_length(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_put <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423046	423344	
==>P" => 0,
                  "NAME" => "listen",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423942	424240	
==>P" => 0,
                  "NAME" => "listen",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599944	600081	
==>"
                            ],
                  "BODY" => "#line 363 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(inter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601020	601157	
==>"
                            ],
                  "BODY" => "#line 363 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(inter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100468	100758	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101901	102191	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102672	102962	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base <==
4	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	997	1104	
==>xt if $static_cmds{$cmd};
    
    print <<"END_PIR";
.sub "&$cmd"
  .param pmc argv :slurpy
  .local pmc in <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8314	8464	
==>);
        }

        $props{$prop} = $value;
      }

      #
      # Require there to be a formal arguments list:
      #

      $self->require_open_ <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	35981	36081	
==>d all its tests, it will still be
considered a failure and will exit with 255.

So the exit codes are <==
4	/Users/nnunley/parrot/lib/Test/More.pm	34052	34152	
==>d all its tests, it will still be
considered a failure and will exit with 255.

So the exit codes are <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	2847	2947	
==>d all its tests, it will still be
considered a failure and will exit with 255.

So the exit codes are <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52345	52538	
==>ODE" => 67,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 815 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Par <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	731	825	
==>ifier');
  confess("Left (" . ref($left) . ") is not Value") unless UNIVERSAL::isa($left, 'Jako <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	722	816	
==>ifier');
  confess("Left (" . ref($left) . ") is not Value") unless UNIVERSAL::isa($left, 'Jako <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	611	705	
==>ifier');
  confess("Left (" . ref($left) . ") is not Value") unless UNIVERSAL::isa($left, 'Jako <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769980	770111	
==>GISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770833	770964	
==>GISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771686	771817	
==>GISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772540	772671	
==>GISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	34981	35080	
==>zed >:-)' string }" , "" , "" )

since both sets of C<'{..}'> brackets are properly nested and evenl <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1948	2045	
==>_name) = @{$formal_args[$i]};
    my $actual_arg_type;

    if (UNIVERSAL::isa($args[$i], 'Jako::C <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1648	1745	
==>_name) = @{$formal_args[$i]};
    my $actual_arg_type;

    if (UNIVERSAL::isa($args[$i], 'Jako::C <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2544	2641	
==>type for right!") unless defined $right_type;

  $left = $left->compile($compiler);
  $right = $ri <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	5026	5147	
==>: \"$pre\"",
		         pos $$textref;
		pos $$textref = $startpos;
		return;
	}

	my @nesting = ( $1 );
	my $textlen = le <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722399	722493	
==>ts(interpreter, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_softspace(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723428	723522	
==>ts(interpreter, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_softspace(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724472	724566	
==>ts(interpreter, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_softspace(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948887	949122	
==>(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949687	949922	
==>(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959341	959576	
==>(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960143	960378	
==>(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7266	7390	
==>int {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);

    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6908	7032	
==>int {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);

    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9366	9489	
==>int {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);
    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9060	9183	
==>int {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);
    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " <==
4	/Users/nnunley/parrot/tools/dev/parrot_api.pl	5767	5872	
==>I{$api} || $api =~ $ParrotPrefix) {
	push @UnParrotAPI, $api;
    }
}

if (@NoParrotAPI) {
    printf "--- <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	541	632	
==>:PullParser

=head1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head1 DESCRIPTION

When you <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	960	1051	
==>:PullParser

=head1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head1 DESCRIPTION

When you <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	447	538	
==>:PullParser

=head1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head1 DESCRIPTION

When you <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36707	36850	
==>82
		},
		DEFAULT => -67
	},
	{#State 142
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			" <==
4	/Users/nnunley/parrot/config/init/defaults.pm	4770	4885	
==>and -e rm_f',
        rm_rf     => '$(PERL) -MExtUtils::Command -e rm_rf',
        mkdir     => '$(PERL) -MExtUtils: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361669	361764	
==>{\n    STRING * const s = Parrot_sprintf_c(interpreter, INTVAL_FMT, {{\@2}});\n    PIO_putps(int <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362568	362663	
==>{\n    STRING * const s = Parrot_sprintf_c(interpreter, INTVAL_FMT, {{\@2}});\n    PIO_putps(int <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	5547	5669	
==>, <code>sprintf</code> and utility functions.', 
                'pairs' => ['misc'],
                'sources' => ['spf_re <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	25714	25820	
==>es = 0;
sub _open_testhandles {
    return if $Opened_Testhandles;
    # We dup STDOUT and STDERR so people <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	22478	22580	
==>rect options and execute the runmode
# specified in @ARGS.
#
sub main {
    my ($default, $dump, $gen_c <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	31299	31437	
==>store_rxlocals,
                     aop('goto' => [ $R_back ]),
        $trymatch => $self->startup($num_groups),
                     @R_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2688	2786	
==>set($offset)>

Returns the C code for C<restart OFFSET($offset)>.

=cut

sub restart_offset
{
    m <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4023	4121	
==>set($offset)>

Returns the C code for C<restart OFFSET($offset)>.

=cut

sub restart_offset
{
    m <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3721	3819	
==>set($offset)>

Returns the C code for C<restart OFFSET($offset)>.

=cut

sub restart_offset
{
    m <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593721	593863	
==>"
                            ],
                  "BODY" => "#line 325 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594932	595074	
==>"
                            ],
                  "BODY" => "#line 325 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680764	681039	
==>{{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sh <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681540	681815	
==>{{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sh <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682314	682589	
==>{{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sh <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683089	683364	
==>{{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sh <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4675	4792	
==>that won't work right
       #  under non-ASCII charsets.  Something should be done about that.
    }
  }
  
  my $out <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19296	19390	
==>de->{children}}) {
    my $temp_1 = $self->_generate($node->{children}[$_]);
    $self->_add_in <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19784	19878	
==>de->{children}}) {
    my $temp_1 = $self->_generate($node->{children}[$_]);
    $self->_add_in <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20273	20367	
==>de->{children}}) {
    my $temp_1 = $self->_generate($node->{children}[$_]);
    $self->_add_in <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16586	16701	
==>(@_ == 1) ? $_[0] : join '', @_)
    ) =~ s/([F\x00-\x1F\\\{\}\x7F-\xFF])/$Escape{$1}/g;  # ESCAPER
             # E <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	1699	1797	
==>rp::croak "Use set_source with ", __PACKAGE__,
    " and subclasses, not parse_lines";
}

sub parse <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64648	64737	
==>rp * const new_interp = (Interp *)PMC_data({{\@1}});\n  Interp_flags_SET(new_interp, PARRO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65599	65688	
==>rp * const new_interp = (Interp *)PMC_data({{\@1}});\n  Interp_flags_SET(new_interp, PARRO <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64621	64733	
==>ode($1)");

						!$matchrule and $rule and $rule->addcall($name);
					}
				}
				elsif ($grammar =~ m/$BETWEEN <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	7296	7406	
==>0, last if ! $_->dfa_safe();
    }

    return 1 if $dfa_safe_subexprs && $op->disjoint();

    # Insert better <==
4	/Users/nnunley/parrot/config/init/miniparrot.pm	727	835	
==>gs for miniparrot';

@args = qw(miniparrot);

sub runstep
{
    my ($self, $conf) = @_;

    unless ($conf->o <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	19296	19397	
==>essor allowed.
    Treatment of '*' in element types corrected.
    Treatment of classes as element ty <==
4	/Users/nnunley/parrot/lib/Parrot/Op.pm	1164	1279	
==>ptors.

Op Direction:

    i   The argument is incoming
    o   The argument is outgoing
    io  The argument is bot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103973	1104061	
==>terpreter, class);\n\t\ttype = pmc_type(interpreter, class);\n\t}\n\tif (type <= 0)\n\t\t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105188	1105276	
==>terpreter, class);\n\t\ttype = pmc_type(interpreter, class);\n\t}\n\tif (type <= 0)\n\t\t <==
4	/Users/nnunley/parrot/tools/dev/run_indent.pl	110	198	
==>01-2003, The Perl Foundation.
# $Id: /parrot/tools/dev/run_indent.pl 19607 2006-05-30T15: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033564	1033839	
==>{{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "st <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037769	1038044	
==>{{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "st <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038550	1038825	
==>{{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "st <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925255	925528	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "st <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	16334	16444	
==>ption handler");
	$pir .= "### end pop_all (typed eh)\n";
    my $pre_load = $srm->pre_load(0);
	$pir .= "### p <==
4	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	2910	3003	
==>(shift->{data})
}

sub hexdigest {
	md5_hex(shift->{data})
}

sub b64digest {
	md5_base64(shif <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553958	554047	
==>r->current_object = object;\n  interpreter->current_cont = {{\@3}};\n  interpreter->curren <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555355	555444	
==>r->current_object = object;\n  interpreter->current_cont = {{\@3}};\n  interpreter->curren <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556743	556832	
==>r->current_object = object;\n  interpreter->current_cont = {{\@3}};\n  interpreter->curren <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072651	1072781	
==>\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074836	1074966	
==>\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077021	1077151	
==>\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079207	1079337	
==>\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3652	3770	
==>e of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) = @_;

    my %arg_maps = (
        'op' = <==
4	/Users/nnunley/parrot/tools/dev/parrot_api.pl	2473	2573	
==>efix it with C<S_>, but still do have a prototype
for it).

=head2 Data is not an API

Consider makin <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	945	1033	
==>REG(i) REG_NUM(cur_opcode[i])
#define PREG(i) REG_PMC(cur_opcode[i])
#define SREG(i) REG_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1061	1149	
==>REG(i) REG_NUM(cur_opcode[i])
#define PREG(i) REG_PMC(cur_opcode[i])
#define SREG(i) REG_ <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	28723	28844	
==>$treelet->[$i]} == 2
           or (@{$treelet->[$i]} == 3 and $treelet->[$i][2] eq '')
      ) {
        $self->whine( $s <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	32304	32421	
==>$treelet->[$i]} == 2
       or (@{$treelet->[$i]} == 3 and $treelet->[$i][2] eq '')
      ) {
        $self->whine( $s <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	42706	42823	
==>$treelet->[$i]} == 2
       or (@{$treelet->[$i]} == 3 and $treelet->[$i][2] eq '')
      ) {
        $self->whine( $s <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	53379	53482	
==>> '\\#',
);

sub pretty { # adopted from Class::Classless
  # Not the most brilliant routine, but passab <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	850	953	
==>:Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($right, 'Jako::Con <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	688	791	
==>:Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($right, 'Jako::Con <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	841	944	
==>:Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($right, 'Jako::Con <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	730	833	
==>:Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($right, 'Jako::Con <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435256	435518	
==>RGS" => [
                              "ic",
                              "p",
                              "p",
                              "nc"
                            ],
                  "BODY" => "#line 89 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispa <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	1405	1548	
==>my @r;
    my $label = '';
    for my $op (@$ops) {
        die $op if ! ref $op;

        if ($op->{name} eq 'LABEL') {
            $label .= $ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	2795	2909	
==>elf->{'token_buffer'} } ? '' : '       (no tokens)',
   "\n"
  ;

  until( @{ $self->{'token_buffer'} } ) {
    DEB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568496	568821	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" => ":object <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569388	569713	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" => ":object <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570281	570606	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" => ":object <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571235	571560	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" => ":object <==
4	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	1327	1427	
==>CI standard, which for
reference is:

=over 4

=item p

Parameter is a void pointer, taken from the P <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11453	11543	
==>e.
PRE_CALL_RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8639	8729	
==>e.
PRE_CALL_RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7211	7301	
==>e.
PRE_CALL_RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987444	987737	
==>" => [
                              "i",
                              "ic",
                              "s",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200011	200110	
==>BODY" => "#line 373 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200908	201007	
==>BODY" => "#line 373 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201805	201904	
==>BODY" => "#line 373 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021719	1022028	
==>&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022561	1022870	
==>&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023410	1023719	
==>&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024260	1024569	
==>&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
4	/Users/nnunley/parrot/tools/build/pbc2c.pl	7038	7158	
==>e + $pc)/mg;

	    printf("\n    /* %s */\n    {\n%s}\n", $op->full_name, $source);
	}

	print "}\n\n";
    }
    print < <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9457	9556	
==>'ve got a return or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a c <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6971	7070	
==>'ve got a return or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a c <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5527	5626	
==>'ve got a return or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a c <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	804	921	
==>GS  => [ @args ],

    DEBUG => 1,
    LINE  => $ident->line,
    FILE  => $ident->file
  }, $class;

  $block->push_c <==
4	/Users/nnunley/parrot/config/init/hints/cygwin.pm	639	747	
==>it appears
    # parrot can get by with simply using gcc -shared, so we override the
    # perl5 Configure de <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	29223	29315	
==>t. Thus, the following code also processes
each quote-like operation, but actually removes th <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908924	909311	
==>o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1024,
                  "ARGS" => [
                              "i",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 284 <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	2843	2970	
==>mbtab;
    $parser->YYData->{lex_num} ++;
##    warn "PopScope\n";
}

sub Insert {
    my ( $parser, $var ) = @_;

    $ <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8218	8344	
==>DBG>			$debug & 0x04
#DBG>		and	print STDERR "Abort.\n";

				return(undef);

			};

#DBG>			$debug & 0x04
#DBG>		and	p <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7846	7964	
==>DBG>			$debug & 0x04
#DBG>		and	print STDERR "Abort.\n";

				return(undef);

			};

#DBG>			$debug & 0x04
#DBG>		and	p <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1578	1721	
==>shift;

    if (@_)
    {
        $self->{ARGS} = [ @_ ];
    }
    else
    {
        return $self->{ARGS};
    }
}

=item C<arg($index)>

Retu <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1187	1330	
==>shift;

    if (@_)
    {
        $self->{ARGS} = [ @_ ];
    }
    else
    {
        return $self->{ARGS};
    }
}

=item C<arg($index)>

Retu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243986	244097	
==>er, {{\@2}});\n  {{\@1}} = string_compare(interpreter, l, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244918	245029	
==>er, {{\@2}});\n  {{\@1}} = string_compare(interpreter, l, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" = <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27063	27206	
==>each my $op ( @{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op-> <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27744	27887	
==>each my $op ( @{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op-> <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	30594	30737	
==>each my $op ( @{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op-> <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	35141	35284	
==>each my $op ( @{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op-> <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	440	536	
==>t) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  co <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	787	883	
==>t) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  co <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	815	911	
==>t) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  co <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	499	595	
==>t) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  co <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	1938	2036	
==>sier for the next guy to understand
what your test is for.  It's highly recommended you use test na <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	72590	72684	
==>OLOAD	= sub
{
	no strict 'refs';
	\$AUTOLOAD =~ s/^$self->{namespace}/Parse::RecDescent/;
	goto <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710701	710793	
==>f (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_printf(in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711535	711627	
==>f (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_printf(in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685837	686165	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686726	687054	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	43244	43374	
==>ree,
    regs     => _new_regs,
    frames => [],
    gensym   => 0,
    functions=> [],
    scope    => {},
  };
  bless $self,$cl <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	12562	12690	
==>t_func = "Parrot_jit_vtable_ifp_op";
            $opbody =~ /vtable->(\w+)/;
            $extern = vtable_num($1);
            #p <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12197	12305	
==>d, { type => "STRING", value=> qq{"$s"}};
					redo OUTDATA;
				}
				if ($type[CURR] =~ /COMP|COMM|STMT/) { <==
4	/Users/nnunley/parrot/lib/Parrot/PMC.pm	1045	1147	
==>=> 47,
	ParrotClass => 48,
	ParrotObject => 49,
	OS => 50,
	File => 51,
	AddrRegistry => 52,
	Bound_NCI <==
4	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1614	1695	
==>DefaultGroupName=parrot
AllowNoIcons=yes
LicenseFile=$options{prefix}\\share\\doc\ <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10358	10439	
==>nction_call_coverage{$source_file}{$function} ? "$function_call_coverage{$source_f <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680955	681255	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681731	682031	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682505	682805	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683280	683580	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634671	634777	
==>interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635789	635895	
==>interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636907	637013	
==>interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638026	638132	
==>interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  class = interpre <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7964	8061	
==>"Jako::Construct::Block");
  confess "No identifier name!"  unless defined $name;
  confess "Extra <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8611	8708	
==>"Jako::Construct::Block");
  confess "No identifier name!"  unless defined $name;
  confess "Extra <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9279	9376	
==>"Jako::Construct::Block");
  confess "No identifier name!"  unless defined $name;
  confess "Extra <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9948	10045	
==>"Jako::Construct::Block");
  confess "No identifier name!"  unless defined $name;
  confess "Extra <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084051	1084330	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085103	1085382	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086156	1086435	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087209	1087488	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344537	344796	
==>c_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345779	346038	
==>c_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347021	347280	
==>c_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348264	348523	
==>c_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	2668	2775	
==>ms[CURR] =~ /^(  screen | pset | preset | line | circle | draw |
			view | window | pmap | palette | paint | <==
4	/Users/nnunley/parrot/config/init/defaults.pm	2291	2396	
==>uilding.  On HP-UX, for example, we need to
        # allow dynamic libraries to access the binary's symbo <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3671	3775	
==>ion);
    return undef unless defined $to and length $to;
     # resolve_pod_page_link returning undef is <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	3570	3664	
==>, is
still shared amongst B<all> Test::Builder objects, even ones created using
this method.  A <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	28008	28113	
==>->[1]
EOC
    }
    push @stack, [$n, $ar, 'P'];
}

sub BUILD_LIST
{
    BUILD_TUPLE(@_,"ResizablePMCArray <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2778	2879	
==>r;
}

# Pre and post stack operation (op class instructions) hooks.
sub pre_op($$) {
	my $self = shift <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1700	1801	
==>r;
}

# Pre and post stack operation (op class instructions) hooks.
sub pre_op($$) {
	my $self = shift <==
4	/Users/nnunley/parrot/lib/File/Which.pm	44	144	
==>xporter;

@File::Which::ISA       = qw(Exporter);

@File::Which::EXPORT    = qw(which);
@File::Which: <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1855	1992	
==>{
    my ($target, $source) = @_;

    return
        "$CC $CFLAGS " .
        "-o " . $target . " " .
        "-I" . $PATHQUOTE . '/Users <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2151	2288	
==>{
    my ($target, $source) = @_;

    return
        "$CC $CFLAGS " .
        "-o " . $target . " " .
        "-I" . $PATHQUOTE . '/Users <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1946	2083	
==>{
    my ($target, $source) = @_;

    return
        "$CC $CFLAGS " .
        "-o " . $target . " " .
        "-I" . $PATHQUOTE . '/Users <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	18565	18666	
==>s = interpreter->iglobals;

    if (PMC_IS_NULL(iglobals))
        PANIC("iglobals isnt created yet") <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	1515	1684	
==>my %totals = (
    lines            => 0,
    covered_lines    => 0,
    branches         => 0,
    covered_branches => 0,              
    calls            => 0,
    co <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6585	6709	
==>x04
#DBG>			and	print STDERR "Shift and go to state $act.\n";

					$$errstatus
				and	do {
					--$$errstatus;

#DBG <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6279	6396	
==>x04
#DBG>			and	print STDERR "Shift and go to state $act.\n";

					$$errstatus
				and	do {
					--$$errstatus;

#DBG <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	7069	7184	
==>{
    $cur_func = 'test::main';
    print <<EOC;
.sub $cur_func :main
    .param pmc sys::argv
    new_pad 0
    \$P <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1861	1963	
==>= File::Spec->catfile(
    $path_to_parrot, qw/ languages perl6 p6shell.pir /,
);


sub import {
    my <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867258	867367	
==>\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868224	868333	
==>\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869190	869299	
==>\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870157	870266	
==>\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7608	7712	
==>t "300!"
    goto FIN
oats:
	print "Oats",
	return
peas:
	print "Peas",
	return
beans:
	print "Beans",
	r <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19891	19995	
==>t "300!"
    goto FIN
oats:
	print "Oats",
	return
peas:
	print "Peas",
	return
beans:
	print "Beans",
	r <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411010	411103	
==>ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_send(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411903	411996	
==>ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_send(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765845	766116	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":bas <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766697	766968	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":bas <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767550	767821	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":bas <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768403	768674	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":bas <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3328	3421	
==>y move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5090	5183	
==>y move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8002	8095	
==>y move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8859	8952	
==>y move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_ <==
4	/Users/nnunley/parrot/config/gen/platform.pm	79	170	
==>orm.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/gen/platform.pm - Plat <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072849	1073000	
==>@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075034	1075185	
==>@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077219	1077370	
==>@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079405	1079556	
==>@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302130	302386	
==>ng_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303006	303262	
==>ng_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303882	304138	
==>ng_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	8270	8370	
==>SSION();
	feedme();
	die "Expecting FOR at $sourceline" unless $syms[CURR] eq "for";
	feedme();
	my $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858592	858688	
==>xception(NEG_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859596	859692	
==>xception(NEG_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860600	860696	
==>xception(NEG_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861605	861701	
==>xception(NEG_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interp <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	3687	3809	
==>ft;
            Data::Dumper->new([$self->{c}], ['*PConfig'])->Sortkeys(1)->Dump();
        };
    } else {
        *dump = <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	4939	5029	
==>_relative_to_source($source)>

Returns the contents of the item interpreted relative to the <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554326	554608	
==>{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555723	556005	
==>{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556960	557242	
==>{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	1712	1829	
==>found at source line $sourceline";
				}
				$user=1
			}
		}
		unless ($stype) {
			$stype=typeof($var);
		}
		$array <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11655	11842	
==>$result2;
                    }
                    push @opcodes, @{ $last_key->[1] };
                    my $assign = new KeyedSetOp( $parser,
                        'arg1'   => $l <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9867	10038	
==>$result2;
                }
                push @opcodes, @{ $last_key->[1] };
                my $assign = new KeyedSetOp( $parser,
                    'arg1'   => $l <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8746	8885	
==>$result2;
        }
        push @opcodes, @{ $last_key->[1] };
        my $assign = new KeyedSetOp( $parser,
            'arg1'   => $l <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4894	4992	
==>E, $result);
	# FIXME
	eq $a1, $ot1, TRUE_${eqnum}
	set $result, 0.0
	branch NOT_${eqnum}
TRUE_${eq <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404100	404409	
==>AME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405011	405320	
==>AME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405923	406232	
==>AME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406835	407144	
==>AME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27352	27462	
==>racefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;').'
		$lastsep = "";
		$Parse: <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29462	29572	
==>racefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;').'
		$lastsep = "";
		$Parse: <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31559	31669	
==>racefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;').'
		$lastsep = "";
		$Parse: <==
4	/Users/nnunley/parrot/tools/build/pbc2c.pl	7281	7385	
==>compile_file {
    my ($file_name) = @_;

    my $pf = Parrot::PackFile->new;
    $pf->unpack_file($file_ <==
4	/Users/nnunley/parrot/config/init/optimize.pm	1191	1300	
==>my $opts = $Config{optimize};
	    $opts =~ s/-mcpu=\S+//;
            $conf->data->add(' ', ccflags => $opts) <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9731	9824	
==>o knock off first arg.
if "${CURIC}" != "73" goto pre_call_NOT_CTOR_${CURIC}
${PTEMP4} = shift <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7245	7338	
==>o knock off first arg.
if "${CURIC}" != "73" goto pre_call_NOT_CTOR_${CURIC}
${PTEMP4} = shift <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6209	6302	
==>o knock off first arg.
if "${CURIC}" != "73" goto pre_call_NOT_CTOR_${CURIC}
${PTEMP4} = shift <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765980	766292	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766832	767144	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767685	767997	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768538	768850	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113897	114171	
==>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sh <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114636	114910	
==>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sh <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117938	118212	
==>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sh <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118677	118951	
==>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sh <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1411	1509	
==>ce {
    my ($self, $distance, $failLabel) = @_;
    $failLabel = $self->output_label_use($failLabe <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1160	1258	
==>ce {
    my ($self, $distance, $failLabel) = @_;
    $failLabel = $self->output_label_use($failLabe <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	401	499	
==>ce {
    my ($self, $distance, $failLabel) = @_;
    $failLabel = $self->output_label_use($failLabe <==
4	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3025	3119	
==>confuse SVN
print $MANI "#\n"; 
print $MANI '# generated by tools/dev/mk_manifest_and_skip.pl ' <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	1043	1161	
==>_ops = (
  '==' => '!=',
  '!=' => '==',
  '<=' => '>',
  '<'  => '>=',
  '>=' => '<',
  '>'  => '<='
);

sub invert_re <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4592	4699	
==>/;
	eval join('',@drv);
}

#Note that for loading debugging version of the driver,
#this file will be p <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4362	4464	
==>/;
	eval join('',@drv);
}

#Note that for loading debugging version of the driver,
#this file will be p <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	176	257	
==>arrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm 19606 2006-05-30T <==
4	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	2947	3061	
==>[1]\n";
    }
    my @obj_files = map { $_->[1] } @compiled_files;
    print F "gcc -lm -o parrot " . (join ' ', @o <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	817630	817785	
==>p(interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
4	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2853	2970	
==>ion: (\d+)/       and $smoke{duration}     = $1;
  $html =~ /VERSION: ([\d\.]+)/    and $smoke{VERSION}      = $1;
  $ <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	3588	3700	
==>c2c library creation failed ($?)\n";
        }
    }
} 
elsif ($mode eq 'compile') {
    my ($group_files, $group <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	3692	3804	
==>c2c library creation failed ($?)\n";
        }
    }
} 
elsif ($mode eq 'compile') {
    my ($group_files, $group <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763125	763229	
==>{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763978	764082	
==>{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764831	764935	
==>{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765685	765789	
==>{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{ <==
4	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2159	2397	
==>rint "M op/s:        $N1\n"; # print  "M op/s:        "
                              # print  N1
                              # print  "\n"
                              #
exit(0);                      # end

=head1 SEE ALSO

F<examples/ <==
4	/Users/nnunley/parrot/examples/mops/mops.pl	2159	2397	
==>rint "M op/s:        $N1\n"; # print  "M op/s:        "
                              # print  N1
                              # print  "\n"
                              #
exit(0);                      # end

=head1 SEE ALSO

F<examples/ <==
4	/Users/nnunley/parrot/lib/Test/More.pm	10115	10231	
==>$this eq $that );
    cmp_ok( $this, 'eq', $that, 'this eq that' );

    # ok( $this == $that );
    cmp_ok( $this, ' <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	623	736	
==>elf->{FILE} ? $self->{FILE} : '<NO FILE>';
}


#
# line()
#

sub line
{
  my $self = shift;

  if (@_) { $self->{L <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591609	591712	
==>, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592819	592922	
==>, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594029	594132	
==>, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595240	595343	
==>, NO_CLASS, \n\t\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028214	1028433	
==>(FLOATVAL) {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029065	1029284	
==>(FLOATVAL) {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	13463	13559	
==>nt_expect, $name);
}


=item B<like>

  $Test->like($this, qr/$regex/, $name);
  $Test->like($thi <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2027	2121	
==>$parser->can('end_head1');

If Pod::Simple sends an event where the element name has a dash,
pe <==
4	/Users/nnunley/parrot/tools/dev/parrotbench.pl	5000	5103	
==>me }{ $program[ $index ] } = $ext;
    }
}, $cfg{bench_path};
die "No benchmarks found" if ! keys %bench <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2015	2116	
==>PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set register na <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3267	3368	
==>PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set register na <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5897	5997	
==>PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set register na <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6455	6555	
==>PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Set register na <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1567	1659	
==>er->YYData->{_G} = undef;
    unshift @{ $parser->YYData->{scopef} }, $parser->YYData->{symb <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11516	11607	
==>lue = Jako::Construct::Expression::Value->new($block, $self->forth);

      $self->require_s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12063	12154	
==>lue = Jako::Construct::Expression::Value->new($block, $self->forth);

      $self->require_s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12606	12697	
==>lue = Jako::Construct::Expression::Value->new($block, $self->forth);

      $self->require_s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645941	646216	
==>{{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ty <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640723	640996	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ty <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641487	641760	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ty <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	2065	2191	
==>f $tree->negated;
    return op('multi_match' => [ $tree->min, $tree->max, $tree->greedy,
                                 $sel <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93405	93695	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":bas <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94185	94475	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":bas <==
4	/Users/nnunley/parrot/tools/build/ops2c.pl	6225	6319	
==>rint SOURCE $text;


if ($trans->can("ops_addr_decl")) {
    print SOURCE $trans->ops_addr_decl <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45224	45317	
==>\s*<perl_variable>';
my $NOCHECKMK		= '\G\s*<nocheck>';
my $AUTOTREEMK		= '\G\s*<autotree>';
m <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	52004	52143	
==>,
sub
#line 288 "Lua\lua51.yp"
{
            [ @{ $_[1] }, $_[2] ];
        }
	],
	[#Rule 49
		 'key', 3,
sub
#line 295 "Lua\lua51 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332459	332554	
==>}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333737	333832	
==>}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335015	335110	
==>}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336294	336389	
==>}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9430	9518	
==>_check}{prevline}?'
	my $prevline;
	tie $prevline, q{Parse::RecDescent::LineCounter}, \$t <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11120	11206	
==>IC}
goto pre_call_NO_RETURN_${CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${STE <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8306	8392	
==>IC}
goto pre_call_NO_RETURN_${CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${STE <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5968	6054	
==>IC}
goto pre_call_NO_RETURN_${CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${STE <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	7293	7403	
==>{
    my ($group, $libs, $stems) = @_;

    my @sources = map { "$_$O" } @$stems;
    if (needs_build("$group$L <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	7504	7614	
==>{
    my ($group, $libs, $stems) = @_;

    my @sources = map { "$_$O" } @$stems;
    if (needs_build("$group$L <==
4	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1482	1578	
==>($dir_count >2) {
          $path_to_language = File::Spec->join(File::Spec->updir() x ($dir_coun <==
4	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1967	2063	
==>($dir_count >2) {
          $path_to_language = File::Spec->join(File::Spec->updir() x ($dir_coun <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71892	72254	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73493	73855	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75095	75457	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76697	77059	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	481	585	
==>oreach my $meth ( qw(is isnt like) ) {
    no strict 'refs';

    *{"Scheme::Test::output_$meth"} = sub ( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279740	280050	
==>} < {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	280595	280905	
==>} < {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	281450	281760	
==>} < {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	47790	47883	
==>s problem, when it encounters a here document whilst
extracting from a modifiable string, C<ex <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960880	961019	
==>"
                            ],
                  "BODY" => "#line 595 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpret <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961842	961981	
==>"
                            ],
                  "BODY" => "#line 595 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpret <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962804	962943	
==>"
                            ],
                  "BODY" => "#line 595 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpret <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963767	963906	
==>"
                            ],
                  "BODY" => "#line 595 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpret <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332426	332515	
==>ing_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHAN <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333704	333793	
==>ing_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHAN <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334982	335071	
==>ing_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHAN <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336261	336350	
==>ing_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHAN <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	814	929	
==>= @_;
    return "rx_literal P0, \"$byte\", ".$self->output_label_use($failLabel);
}

sub output_classmatch {
    my <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29397	29533	
==>: [' . $self->describe
					  . ']},
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::R <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31494	31630	
==>: [' . $self->describe
					  . ']},
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::R <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22394	22526	
==>: ['
					. $self->describe . ']},
					Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::R <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27294	27423	
==>: [' . $self->describe
					  . ']}, Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::R <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6362	6486	
==>truct::Type::PMC"));

      my @identifiers = ();

      my $block = $self->current_block();

      while (1) {
        my $i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807471	807859	
==>o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 911,
                  "ARGS" => [
                              "n",
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 502 \ <==
4	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1741	1855	
==>ile::Spec->join($path_to_language, 'HQ9plus.pbc'),
                    $lang_fn ) );

        Parrot::Test::write_c <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	34201	34295	
==>mited substring" is a substring bounded by
matched brackets, such that any other (left or right <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	63961	64054	
==>ract_tagged> found a nested opening tag that was not matched by a
corresponding nested closing <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926656	926993	
==>n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928126	928463	
==>n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929596	929933	
==>n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931067	931404	
==>n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
4	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	891	998	
==>nless($key =~ m/^~/s) {
        next if $key eq 'start_line' and $_[0]{'hide_line_numbers'};
        _xml_es <==
4	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1165	1272	
==>nless($key =~ m/^~/s) {
        next if $key eq 'start_line' and $_[0]{'hide_line_numbers'};
        _xml_es <==
4	/Users/nnunley/parrot/config/inter/pmc.pm	2994	3099	
==>ilt by 'config/inter/pmc.pm'

E_NOTE

    foreach my $pmc (split(/\s+/, $pmc_list)) {
        $pmc =~ s/\. <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	710	813	
==>nless($key =~ m/^~/s) {
      next if $key eq 'start_line' and $_[0]{'hide_line_numbers'};
      _xml_es <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836618	836877	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837350	837609	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838084	838343	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838816	839075	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961144	961446	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962106	962408	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963068	963370	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	46058	46171	
==>for kicks.
  for( my $i = 2; $i > $#$p; $i++ ) { # work forwards over the tokens except for the last
    if( !ref( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680782	681072	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681558	681848	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682332	682622	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683107	683397	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shift",
                  "FLAGS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939566	939871	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940457	940762	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941349	941654	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942241	942546	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" => ":base_core", <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3952	4051	
==>$temp_pmc = $compiler->temp_pmc();

    $compiler->emit("  $temp_pmc = new $pmc_type");
    $compile <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1591	1690	
==>$temp_pmc = $compiler->temp_pmc();

    $compiler->emit("  $temp_pmc = new $pmc_type");
    $compile <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1354	1453	
==>$temp_pmc = $compiler->temp_pmc();

    $compiler->emit("  $temp_pmc = new $pmc_type");
    $compile <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	214	310	
==>: (optree, lastback) -> (back, ops...)
#
# where $lastback is the previous backtracking point tha <==
4	/Users/nnunley/parrot/config/gen/makefiles.pm	7463	7627	
==>es/Makefile',
        commentType                        => '#',
        replace_slashes                    => 1
    );
    genfile(
        'config/gen/makefiles/ur <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558016	558104	
==>= SUB_FLAG_TAILCALL;\n  interpreter->current_object = object;\n  interpreter->current_met <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559400	559488	
==>= SUB_FLAG_TAILCALL;\n  interpreter->current_object = object;\n  interpreter->current_met <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560772	560860	
==>= SUB_FLAG_TAILCALL;\n  interpreter->current_object = object;\n  interpreter->current_met <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321580	321800	
==>@2}}->vtable->get_integer(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323936	324156	
==>@2}}->vtable->get_integer(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	20601	20764	
==>ng);

                # restore prior level, just in case.
                $builder->level($level);
            }
        }
    }

    # XXX this is broken WRT todo <==
4	/Users/nnunley/parrot/tools/dev/lib_deps.pl	404	499	
==>deps.pl [object | source] file1 [file2 ...]

=head1 DESCRIPTION

This script is intended to give <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	2519	2629	
==>m pmc args
    .local string input_string
    input_string = args[1]

    $P0 = loadlib "match_group"

    .loc <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11376	11471	
==>ed.
goto PRE_CALL_END_${CURIC}

# It's a return. See if we have a return value.
PRE_CALL_RETURN_ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8562	8657	
==>ed.
goto PRE_CALL_END_${CURIC}

# It's a return. See if we have a return value.
PRE_CALL_RETURN_ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7134	7229	
==>ed.
goto PRE_CALL_END_${CURIC}

# It's a return. See if we have a return value.
PRE_CALL_RETURN_ <==
4	/Users/nnunley/parrot/config/gen/icu.pm	4719	4828	
==>f->data->add(' ', ccflags => "-I $icuheaders");
    }
    cc_clean();

    $self->set_result("yes");

    retu <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	5360	5462	
==>$mode'\nmust be one of generate, compile, linklibs, or copy\n";
}

sub run {
    print join(" ", @_), " <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4561	4663	
==>$mode'\nmust be one of generate, compile, linklibs, or copy\n";
}

sub run {
    print join(" ", @_), " <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	5571	5673	
==>$mode'\nmust be one of generate, compile, linklibs, or copy\n";
}

sub run {
    print join(" ", @_), " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071928	1072055	
==>? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074113	1074240	
==>? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076298	1076425	
==>? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078484	1078611	
==>? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = 0;\n  INTVAL xkp1 = 0;\n\n  INTVA <==
4	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1718	1977	
==>1
                              #
print "Elapsed time:  $N2\n"; # print  "Elapsed time:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 = <==
4	/Users/nnunley/parrot/examples/mops/mops.pl	1718	1977	
==>1
                              #
print "Elapsed time:  $N2\n"; # print  "Elapsed time:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800559	800700	
==>"
                            ],
                  "BODY" => "#line 467 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed(interpreter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801463	801604	
==>"
                            ],
                  "BODY" => "#line 467 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed(interpreter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802367	802508	
==>"
                            ],
                  "BODY" => "#line 467 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed(interpreter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803272	803413	
==>"
                            ],
                  "BODY" => "#line 467 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed(interpreter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	68181	68290	
==>DY" => "#line 1049 \"src/ops/core.ops\"\n  Parrot_block_DOD(interpreter);\n  {{+=1}};\n",
                  "L <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1482	1590	
==>LIBPARROT = qq[];

# Here comes some stuff for Win32.
our $PATHQUOTE = '';
if ($^O eq 'MSWin32') {
    # Path <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1527	1635	
==>LIBPARROT = qq[];

# Here comes some stuff for Win32.
our $PATHQUOTE = '';
if ($^O eq 'MSWin32') {
    # Path <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1531	1639	
==>LIBPARROT = qq[];

# Here comes some stuff for Win32.
our $PATHQUOTE = '';
if ($^O eq 'MSWin32') {
    # Path <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2690	2810	
==>/gcc/i) {
            $liblist =~ s/gdbm\.lib/-llibgdbm/i;
        }
        my $extraLibs = '-lm -lgmp -lreadline -lpthr <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2485	2605	
==>/gcc/i) {
            $liblist =~ s/gdbm\.lib/-llibgdbm/i;
        }
        my $extraLibs = '-lm -lgmp -lreadline -lpthr <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	9987	10084	
==>tions{'desperate'};
  my $accept_verbatim      = delete $options{'accept_verbatim'};
  my $max_con <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	38593	38690	
==>ey would match the start tag pattern).

For example, to extract an arbitrary XML tag, but ignore " <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2372	2470	
==>L<Pod::Simple>, L<Pod::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 S <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1642	1740	
==>L<Pod::Simple>, L<Pod::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 S <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2809	2907	
==>L<Pod::Simple>, L<Pod::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 S <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1929	2027	
==>L<Pod::Simple>, L<Pod::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 S <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647581	647835	
==>ype(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648342	648596	
==>ype(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641470	641722	
==>ype(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	29422	29541	
==>p( $parser,
        'arg1' => $lbl_loop,
    );
    my $lbl_or = new_label($parser);
    my $zero = BuildLiteral( $_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591645	591745	
==>n't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592855	592955	
==>n't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594065	594165	
==>n't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595276	595376	
==>n't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n", <==
4	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1242	1343	
==>Any changes made here will be lost!
 *
 */

#include "parrot/parrot.h"

/* proto is in embed.h, but we <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867175	867269	
==>ops/string.ops\"\n  INTVAL len;\n  len = string_length(interpreter, {{\@2}});\n  {{\@1}} = stri <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868141	868235	
==>ops/string.ops\"\n  INTVAL len;\n  len = string_length(interpreter, {{\@2}});\n  {{\@1}} = stri <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869107	869201	
==>ops/string.ops\"\n  INTVAL len;\n  len = string_length(interpreter, {{\@2}});\n  {{\@1}} = stri <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870074	870168	
==>ops/string.ops\"\n  INTVAL len;\n  len = string_length(interpreter, {{\@2}});\n  {{\@1}} = stri <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712721	712819	
==>"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713828	713926	
==>"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720188	720286	
==>"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721388	721486	
==>"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+= <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	3726	3842	
==>186,
 'raquo'    , 187,
 'frac14'   , 188,
 'frac12'   , 189,
 'frac34'   , 190,
 'iquest'   , 191,
 'Agrave'   , 192 <==
4	/Users/nnunley/parrot/Configure.pl	8438	8537	
==>erl Foundation.

Hello, I'm Configure. My job is to poke and prod your system to figure out
how to b <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	11828	11925	
==>implemented, so you will have to wait
a little while. Until then, you can just write your own func <==
4	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	2391	2486	
==>mation about the op.

The classification of ops is intended to facilitate the selection of
suita <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404762	405066	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405674	405978	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406586	406890	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_ <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	58390	58488	
==>"})

returns the regex:

        (?:\"(?:\\\"|(?!\").)*\"|\'(?:\\\'|(?!\').)*\')

Note that the spe <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11884	11980	
==>)
	u$="No way"
	a$="Hello"
end function
t$="Not me"
e$=a$(t$)
print t$

' references to reference <==
4	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2904	3011	
==>$html =~ /VERSION: ([\d\.]+)/    and $smoke{VERSION}      = $1;
  $html =~ /branch: ([\w\-]+)/     and $smok <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5604	5705	
==>DBG>	print STDERR ('-' x 40),"\n";
#DBG>		$debug & 0x2
#DBG>	and	print STDERR "In state $stateno:\n" <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35403	35503	
==>: '$item{q{' . $self->{subrule} . '}} = $_tok;') . '
		push @item, $_tok;
		' . ($self->{"lookahead"} <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5334	5433	
==>DBG>	print STDERR ('-' x 40),"\n";
#DBG>		$debug & 0x2
#DBG>	and	print STDERR "In state $stateno:\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586689	586786	
==>nterpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exceptio <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587875	587972	
==>nterpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exceptio <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589061	589158	
==>nterpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exceptio <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590248	590345	
==>nterpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exceptio <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858708	858995	
==>NTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859712	859999	
==>NTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860716	861003	
==>NTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861721	862008	
==>NTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072906	1073263	
==>{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075091	1075448	
==>{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077276	1077633	
==>{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079462	1079819	
==>{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159274	159447	
==>"i",
                              "ic"
                            ],
                  "BODY" => "#line 176 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160171	160344	
==>"i",
                              "ic"
                            ],
                  "BODY" => "#line 176 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	5708	5828	
==>rn) = @_;
    $target = _parrot_stringify($target);

    # Beginning of the pir code
    my $pirCode = qq(
        .sub _ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	332	424	
==>::Expression::Value;

use base qw(Jako::Construct::Expression);

use Jako::Token;

use Jako:: <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	44177	44294	
==>);
        DEBUG > 1 and print " Replacing E<$content> with $replacer\n";
      }

      splice(@$treelet, $i, 1, $rep <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9918	10021	
==>}. Note that they come
# off the stack last to first, but need to be first to last in ${PARAMS}.
${ITEMP <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7432	7535	
==>}. Note that they come
# off the stack last to first, but need to be first to last in ${PARAMS}.
${ITEMP <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6396	6499	
==>}. Note that they come
# off the stack last to first, but need to be first to last in ${PARAMS}.
${ITEMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563958	564213	
==>add_method(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564856	565111	
==>add_method(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	2840	3001	
==>s[$idx];
        $type = $decls[$idx+1];
        push( @methods, $name );
        if( $base_type eq 'HASH' ){
            $elem = "{'${class}::$name'}";
        } <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	30040	30137	
==>}

sub _op_string_list {
}

sub _op_list_string {
}

sub _op_string_copy {
}

sub _op_string_fill_ <==
4	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	219	386	
==>t(($1 / $2) * 100)
		};
	}
}

print <<HEADING;
NAME                                              DONE      TOTAL     PERCENT
HEADING
foreach (@results) {
	prin <==
4	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	141	255	
==>t::hints::dec_osf;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    # Tru64
    my $ccflags = $conf->da <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1633	1723	
==>Parrot::Test::PGE::_generate_subrule_pir($target, $pattern)
        : Parrot::Test::PGE::_g <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2156	2246	
==>Parrot::Test::PGE::_generate_subrule_pir($target, $pattern)
        : Parrot::Test::PGE::_g <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	33905	34040	
==>st_results->[$idx];
        }

        my $num_failed = grep !$_->{'ok'}, 
                              @{$test_results}[0..$self->{Exp <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	15572	15684	
==>sing '>'?");
	    }
	}
	return 1;
}

sub enddirective
{
	my ( $self, $line, $minrep, $maxrep ) = @_;
	unless ($se <==
4	/Users/nnunley/parrot/tools/dev/parrotbench.pl	238	341	
==>ench.pl [options]

 Options:
   -b -benchmarks     use benchmarks matching regexes  (multiple)
   -c -co <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	13423	13510	
==>.  For example,
C<$Name2character_number{'eacute'}> is 201, and
C<$Name2character_number <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	331781	332078	
==>"JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333058	333355	
==>"JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334336	334633	
==>"JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335614	335911	
==>"JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411046	411302	
==>PIO_send(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411939	412195	
==>PIO_send(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	824	914	
==>nless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Ident is not!" if define <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	852	942	
==>nless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Ident is not!" if define <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130798	131097	
==>JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131652	131951	
==>JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132507	132806	
==>JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	9071	9205	
==>44, ',',
   45, '-',
   46, '.',
   47, '/',
   48, '0',
   49, '1',
   50, '2',
   51, '3',
   52, '4',
   53, '5',
   54, '6',
   55, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340150	340293	
==>"
                            ],
                  "BODY" => "#line 128 \"src/ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, {{\@3}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341149	341292	
==>"
                            ],
                  "BODY" => "#line 128 \"src/ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, {{\@3}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342148	342291	
==>"
                            ],
                  "BODY" => "#line 128 \"src/ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, {{\@3}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343148	343291	
==>"
                            ],
                  "BODY" => "#line 128 \"src/ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, {{\@3}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284848	285115	
==>terpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285725	285992	
==>terpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286602	286869	
==>terpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	899	1008	
==>pile($compiler);
    $op    = $self->op;
    $right = $self->right->compile($compiler);
  }

  if ($kind eq 'i <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	695	793	
==>) . ") is not!"  unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type (" . re <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	570	667	
==>) . ") is not!" unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type (" . re <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	579	675	
==>) . ") is not!" unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type (". re <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	561	657	
==>) . ") is not!" unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type (". re <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	7448	7570	
==>,
 'diams'    , 9830,
 'OElig'    , 338,
 'oelig'    , 339,
 'Scaron'   , 352,
 'scaron'   , 353,
 'Yuml'     , 376,
 'circ <==
4	/Users/nnunley/parrot/config/auto/msvc.pm	1698	1800	
==>>data->set(msvcversion => $msvcversion);

    # Add Visual C++ specifics here
    if ($msvcversion >= 1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284840	285096	
==>mpare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285717	285973	
==>mpare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286594	286850	
==>mpare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8269	8399	
==>::Literal->new($block, $self->require_literal);
        }

        $props{$prop} = $value;
      }

      #
      # Require there t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762436	762738	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763288	763590	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764141	764443	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764994	765296	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	6497	6621	
==>get)
      or return 1;
    for my $source (@sources) {
        return 1 if modtime($source) > $target_mod;
    }

    return <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4917	5041	
==>get)
      or return 1;
    for my $source (@sources) {
        return 1 if modtime($source) > $target_mod;
    }

    return <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	6708	6832	
==>get)
      or return 1;
    for my $source (@sources) {
        return 1 if modtime($source) > $target_mod;
    }

    return <==
4	/Users/nnunley/parrot/config/auto/m4.pm	652	752	
==>ame = $Config{archname};
    my ($cpuarch, $osname) = split('-', $archname);
    if (!defined $osname <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	24055	24195	
==>STDOUT' => $build_f,
                                     'STDERR' => $build_f);
            $builder->diag("'$cmd' failed with exit code $ex <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	24816	24956	
==>STDOUT' => $build_f,
                                     'STDERR' => $build_f);
            $builder->diag("'$cmd' failed with exit code $ex <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	1385	1506	
==>nts = ();
    my $dist = Parrot::Distribution->new;
    
    if ( exists $contents{'pairs'} )
    {
        foreach my $na <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	976	1090	
==>@files) {
    die "Usage: $0 <source files>\n" .
        "       $0 all_source\n";
}

if ($files[0] eq "all_source" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553228	553523	
==>EXT",
                  "NAME" => "callmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554624	554919	
==>EXT",
                  "NAME" => "callmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556021	556316	
==>EXT",
                  "NAME" => "callmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20499	20612	
==>e .=
'
		$_matched = 1;
		last;
	}

';
	return $code;
}

1;

package Parse::RecDescent::Action;

sub describe { un <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19224	19423	
==>ess( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20000	20199	
==>ess( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20778	20977	
==>ess( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21578	21777	
==>ess( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21982	22148	
==>"p",
                              "ic"
                            ],
                  "BODY" => "#line 356 \"src/ops/core.ops\"\n  if (!{{\@1}}->vtable->get_bool(in <==
4	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	680	780	
==>of function ...
    }

Note that currently the C<inline> op type is ignored.

Alternately, for opcode <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	10099	10199	
==>>_print_diag("\n") if $ENV{HARNESS_ACTIVE};
        $self->diag("    $msg test ($file at line $line)\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4587	4680	
==>rans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CG <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4564	4657	
==>rans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CG <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3948	4041	
==>rans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CG <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	6371	6463	
==>rans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::C <==
4	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2949	3075	
==>t_prog = join ' && ', @test_prog;
            $diag .= "'$test_prog' failed with exit code $exit_code."
                if $e <==
4	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	2559	2670	
==>t_prog = join ' && ', @test_prog;
               $diag .= "'$test_prog' failed with exit code $exit_code." if $e <==
4	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2561	2669	
==>t_prog = join ' && ', @test_prog;
            $diag .= "'$test_prog' failed with exit code $exit_code." if $e <==
4	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9078	9163	
==>,$b,$c,$d,$a,$_[4],20,0xe9b6c7aa,/* 20 */
GG,$a,$b,$c,$d,$_[9],5,0xd62f105d,/* 21 */
G <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	6345	6440	
==>ver 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=it <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4561	4656	
==>ver 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=it <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4538	4633	
==>ver 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=it <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3922	4017	
==>ver 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=it <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35129	35225	
==>eturn $self->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my $decl = $self->dec <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36432	36528	
==>eturn $self->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my $decl = $self->dec <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38379	38475	
==>eturn $self->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my $decl = $self->dec <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760618	760706	
==>ops/set.ops\"\n  {{\@1}} = {{\@2}}->vtable->get_pmc(interpreter, {{\@2}});\n  {{+=3}};\n" <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23774	23873	
==>{>>Rejecting production<< (found '
					 . $self->describe . ')},
					 Parse::RecDescent::_tracefir <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528610	528698	
==>38 \"src/ops/math.ops\"\n  {{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529492	529580	
==>38 \"src/ops/math.ops\"\n  {{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	530374	530462	
==>38 \"src/ops/math.ops\"\n  {{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109729	110019	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":base <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110508	110798	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":base <==
4	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	11560	11674	
==>= 0;
    my $restart = 0;

    foreach my $variant (expand_args(@$args))
    {
        my (@fixedargs)=split(/,/,$v <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	10949	11048	
==>ng your class at compile time will make the order of events
similar to using any other class ( or Pe <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	2060	2180	
==>nd  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  #
  # Locate the bl <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4134	4229	
==>ype (so we can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign register name.
${ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2550	2645	
==>ype (so we can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign register name.
${ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1860	1955	
==>ype (so we can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign register name.
${ <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2796	2923	
==>r->Error("Invalid escape sequence $_ .\n"),
                last;
        }
    }

    $parser->Error("Untermined string.\n <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4311	4438	
==>r->Error("Invalid escape sequence $_ .\n"),
                last;
        }
    }

    $parser->Error("Untermined string.\n <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25980	26069	
==>h @{$code{$seg}->{code}}, <<NEXT;
	add $ps->{var}, $ps->{var}, FORLOOP_STEP_$ps->{num}
	go <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26165	26254	
==>h @{$code{$seg}->{code}}, <<NEXT;
	add $ps->{var}, $ps->{var}, FORLOOP_STEP_$ps->{num}
	go <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73162	73279	
==>}, {{\@4}}, F2DPTR(p));\n      PObj_get_FLAGS({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74764	74881	
==>}, {{\@4}}, F2DPTR(p));\n      PObj_get_FLAGS({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76366	76483	
==>}, {{\@4}}, F2DPTR(p));\n      PObj_get_FLAGS({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77969	78086	
==>}, {{\@4}}, F2DPTR(p));\n      PObj_get_FLAGS({{\@1}}) |= PObj_private1_FLAG;\n  }\n  {{+=5}};\n",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849898	850155	
==>string_chopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850785	851042	
==>string_chopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851672	851929	
==>string_chopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852560	852817	
==>string_chopn(interpreter, {{\@2}}, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	58605	58747	
==>$_[0], $_[3] ),
            ];
        }
	],
	[#Rule 100
		 'parlist1', 1, undef
	],
	[#Rule 101
		 'parlist1', 1,
sub
#line 537 "Lua <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4512	4621	
==>ed code.
	return $pir;
}

sub post_op($$) {
	# Nothing to do.
	return "";
}

# Pre and post branch operation h <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2928	3037	
==>ed code.
	return $pir;
}

sub post_op($$) {
	# Nothing to do.
	return "";
}

# Pre and post branch operation h <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	794	886	
==>cted =~ /\s*(.*)/;
		return "Was expecting $Parse::RecDescent::expected but found \"$1\" inst <==
4	/Users/nnunley/parrot/config/auto/env.pm	1258	1370	
==>'setenv');
    } elsif ($unsetenv) {
        print " (unsetenv) " if $verbose;
        $self->set_result('unseten <==
4	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	14193	14283	
==>cases</span>:<br />
		<span class="tests_ok"><tmpl_var name=ok> ok</span>,
		<span class="t <==
4	/Users/nnunley/parrot/tools/build/pbc2c.pl	4641	4726	
==>pcode_t* run_compiled(Interp *interpreter, opcode_t *cur_opcode, opcode_t *start_code) <==
4	/Users/nnunley/parrot/tools/build/pbc2c.pl	6418	6503	
==>pcode_t* run_compiled(Interp *interpreter, opcode_t *cur_opcode, opcode_t *start_code) <==
4	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	303	426	
==>code ];
    }
    $self->{raw_pir} = $pir;

    bless $self, $class;
    return $self;
}

sub add_pir {
    my $self = shift <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586673	586768	
==>t_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587859	587954	
==>t_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589045	589140	
==>t_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590232	590327	
==>t_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\ <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7359	7459	
==>ode)=EXPRESSION({ lhs => 1, assign => 1});
	push @{$code{$seg}->{code}}, @code;
	goto PARSE;
	# Got a <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	66	162	
==>apper. Simple and stupid.
# Inherits from SRM::Base.

package SRM::Stack;
use strict;
use SRM::Ba <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1438	1537	
==>ikely to ever need to construct an object of this class for
yourself, but if you want to, call
C<<
P <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2590	2689	
==>ikely to ever need to construct an object of this class for
yourself, but if you want to, call
C<<
P <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1727	1826	
==>ikely to ever need to construct an object of this class for
yourself, but if you want to, call
C<<
P <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	54639	54730	
==>se of other Text::Balanced subroutines with
C<extract_multiple>. Note too that the value ret <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6740	6855	
==>and	$dbgerror
#DBG>				and	$$errstatus == 0
#DBG>				and	do {
#DBG>					print STDERR "**End of Error recovery.\n" <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8612	8724	
==>and	$dbgerror
#DBG>			and	$$errstatus == 0
#DBG>			and	do {
#DBG>				print STDERR "**End of Error recovery.\n" <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6426	6538	
==>and	$dbgerror
#DBG>				and	$$errstatus == 0
#DBG>				and	do {
#DBG>					print STDERR "**End of Error recovery.\n" <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8223	8332	
==>and	$dbgerror
#DBG>			and	$$errstatus == 0
#DBG>			and	do {
#DBG>				print STDERR "**End of Error recovery.\n" <==
4	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	1867	2023	
==>";
        } else {
            warn "Extracting tests for $file\n";
            open my $tfh, '>>', $test;
            print {$tfh} $output;
            clo <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	14253	14355	
==>ts[-1]->{incase}=$incase+1;
		return;
	}

	my $lambda=<<GL;
	
	P0= P10[I25]
	P1= P0["SELECTS"]
	P5= P1[ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656376	656468	
==>" => "#line 324 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable-> <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657300	657392	
==>" => "#line 324 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable-> <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080408	1080502	
==>"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \"I <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081473	1081567	
==>"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \"I <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082538	1082632	
==>"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \"I <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083604	1083698	
==>"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \"I <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021759	1022034	
==>preter, &tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022601	1022876	
==>preter, &tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023450	1023725	
==>preter, &tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024300	1024575	
==>preter, &tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211754	212175	
==>=> [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 249,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#l <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1466	1590	
==>$addr) = @_;

    #print STDERR "pbcc: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
        return "return (0);"
    } <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1991	2115	
==>$addr) = @_;

    #print STDERR "pbcc: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
        return "return (0);"
    } <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1882	2005	
==>$addr) = @_;

    #print STDERR "pbcc: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
  	    return "return (0);"
    } <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	380	484	
==>ase qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $ident) = @_;

  confes <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	380	484	
==>ase qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $ident) = @_;

  confes <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2789	2891	
==>=cut

sub goto_pop
{
    my ($self) = @_;

    return "opcode_t* pop_addr = (opcode_t*)pop_dest(interpr <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	3915	4005	
==>C<Parrot::OpFile> to perform ops
file macro substitutions.

=over

=item C<access_arg($type <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2361	2469	
==>see
C<Parrot::OpTrans>) and value. C<$op> is an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($s <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3453	3561	
==>see
C<Parrot::OpTrans>) and value. C<$op> is an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($s <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3597	3705	
==>see
C<Parrot::OpTrans>) and value. C<$op> is an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($s <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3252	3360	
==>see
C<Parrot::OpTrans>) and value. C<$op> is an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506583	506761	
==>line 636 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507438	507616	
==>line 636 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	508293	508471	
==>line 636 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5605	5699	
==>OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4610	4704	
==>OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4587	4681	
==>OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3971	4065	
==>OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::Op <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18580	18712	
==>unction {
    my ( $parser, $fct, $args ) = @_;
    my $result;
    my @opcodes = ();
    my @params  = ();
    my @returns = () <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540470	540571	
==>} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541722	541823	
==>} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542974	543075	
==>} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	1823	1925	
==>self->new_local($name, $type);
    push @{ $op->{rxlocals} }, $var;
    return $var;
}

sub op_save_rxl <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	871	967	
==>t_element({ Name => 'block', Attributes => { kind => $self->kind } });
  $_->sax($handler) foreac <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1884	1980	
==>t_element({ Name => 'block', Attributes => { kind => $self->kind } });
  $_->sax($handler) foreac <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2678	2774	
==>t_element({ Name => 'block', Attributes => { kind => $self->kind } });
  $_->sax($handler) foreac <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	44334	44436	
==>or (if any),

=item [4]

the left delimiter of the first block of the operation,

=item [5]

the text o <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9702	9796	
==>a call to instantiate, need to knock off first arg.
if "${CURIC}" != "73" goto pre_call_NOT_CTO <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7216	7310	
==>a call to instantiate, need to knock off first arg.
if "${CURIC}" != "73" goto pre_call_NOT_CTO <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6180	6274	
==>a call to instantiate, need to knock off first arg.
if "${CURIC}" != "73" goto pre_call_NOT_CTO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72539	72629	
==>ine 1156 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74141	74231	
==>ine 1156 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75743	75833	
==>ine 1156 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77346	77436	
==>ine 1156 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3} <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22075	22194	
==>ack: "
          . $self->_dump_curr_open() . ')'
        );
        DEBUG and print "Ignoring mistargetted =end $conten <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22404	22523	
==>ack: "
          . $self->_dump_curr_open() . ')'
        );
        DEBUG and print "Ignoring mistargetted =end $conten <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22785	22904	
==>ack: "
          . $self->_dump_curr_open() . ')'
        );
        DEBUG and print "Ignoring mistargetted =end $conten <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	9108	9219	
==>RSION',
    max_token => 400,
    accept_verbatim => 1,
    max_content_length => 3_000,
   @_,
  );
}
sub get_d <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644744	644974	
==>=> [
                              "i",
                              "p",
                              "kic"
                            ],
                  "BODY" => "#line 199 \"src/ops/pmc.ops\"\n  {{\@1}} = {{\@2}}->vtable-> <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	1390	1528	
==>my $dir ($self->directories())
        {
            next if defined $ignore and $dir->name =~ /$ignore/;
            
            push @fi <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops.pm	95	201	
==>er = ++$MARKERS{$name};
    $number = '' if ($number == 1) && ($name ne '');
    return bless([ 'label', "\ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2727	2833	
==>er = ++$MARKERS{$name};
    $number = '' if ($number == 1) && ($name ne '');
    return bless([ 'label', "\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332574	332667	
==>new(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all re <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333852	333945	
==>new(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all re <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335130	335223	
==>new(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all re <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336409	336502	
==>new(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all re <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	15701	15854	
==>kind);
      }

      next;
    }

    #
    # Arithmetic Operators:
    #
    #   <var> = <value> <op> <value>;
    #
    # TODO: Can't really support sh <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514121	514230	
==>h.ops\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515001	515110	
==>h.ops\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515881	515990	
==>h.ops\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	47469	47623	
==>_[5] );
        }
	],
	[#Rule 17
		 '@4-4', 0,
sub
#line 120 "Lua\lua51.yp"
{
            PushScope( $_[0] );
        }
	],
	[#Rule 18
		 'stat <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14539	14648	
==>@to_unget);
  
  if(DEBUG) {
    if(defined $title) { print "  Returing title <$title>\n" }
    else { print " <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	23104	23213	
==>@to_unget);
  
  if(DEBUG) {
    if(defined $title) { print "  Returing title <$title>\n" }
    else { print " <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	1456	1553	
==>T generated file',
	'h' => 'C header',
	'hacking' => 'README file',
	'il' => 'MSIL assembler code' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431125	431479	
==>,
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 495,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 79 \"src/o <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	12889	12999	
==>ce = *PODSOURCE{IO};
    }
    $self->_init_fh_source($source);
  }
  # By here, $source is a FH.

  $self->{'s <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10350	10449	
==>'./test.out');

    return $output;
}

=item C<cc_run_capture()>

Same as C<cc_run()> except that wa <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11646	11741	
==>)=@_;
	$currline="" unless defined $currline;
	my @ld=();
	feedme();
OUTDATA:while($type[CURR] ! <==
4	/Users/nnunley/parrot/lib/Test/More.pm	12476	12577	
==>herwise have to write

    my $obj = Some::Module->new;
    ok( defined $obj && $obj->isa('Some::Modul <==
4	/Users/nnunley/parrot/config/auto/bc.pm	494	582	
==>e Parrot::Configure::Step ':auto', 'capture_output';

$description = 'Determining whether <==
4	/Users/nnunley/parrot/config/auto/m4.pm	468	556	
==>e Parrot::Configure::Step ':auto', 'capture_output';

$description = 'Determining whether <==
4	/Users/nnunley/parrot/config/auto/perldoc.pm	386	474	
==>e Parrot::Configure::Step ':auto', 'capture_output';

$description = 'Determining whether <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2295	2407	
==>$code{$seg}->{declarations}}) {
				if (exists $main::common{$var}) {
					push(@saves, $var);
				}
			}
			if ( <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2704	2816	
==>$code{$seg}->{declarations}}) {
				if (exists $main::common{$var}) {
					push(@saves, $var);
				}
			}
			if ( <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	1814	1916	
==>$code{$seg}->{declarations}}) {
		if (exists $main::common{$var}) {
			push(@saves, $var);
		}
	}
	if ( <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3105	3207	
==>$code{$seg}->{declarations}}) {
		if (exists $main::common{$var}) {
			push(@saves, $var);
		}
	}
	if ( <==
4	/Users/nnunley/parrot/lib/Test/More.pm	32387	32506	
==>t

sub eq_set  {
    my($a1, $a2) = @_;
    return 0 unless @$a1 == @$a2;

    # There's faster ways to do this, but thi <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	35712	35810	
==>xit with how many failed.  If
you run less (or more) tests than you planned, the missing (or extras <==
4	/Users/nnunley/parrot/lib/Test/More.pm	33783	33881	
==>xit with how many failed.  If
you run less (or more) tests than you planned, the missing (or extras <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	2579	2677	
==>xit with how many failed.  If
you run less (or more) tests than you planned, the missing (or extras <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	1917	2030	
==>nt/outdent!" if $self->{INDENT} < 0;
}


#
# emit()
#

sub emit
{
  my $self = shift;

  unshift(@_, " " x $self-> <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765801	766080	
==>\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766653	766932	
==>\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767506	767785	
==>\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768359	768638	
==>\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sets_ind" <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5487	5606	
==>{
        my($actions,$act,$stateno);

        $stateno=$$stack[-1][0];
        $actions=$$states[$stateno];

#DBG <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5223	5336	
==>{
        my($actions,$act,$stateno);

        $stateno=$$stack[-1][0];
        $actions=$$states[$stateno];

#DBG <==
4	/Users/nnunley/parrot/editor/kate_syntax.pl	587	685	
==>m inc dec new defined addr global clone saveall
    restoreall);
my @imcc_spdirec = qw(.pcc_call .r <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23194	23292	
==>nst("DONE_$label");
  $self->_restore($temp_0,$temp_1);
  return $return;
}

sub _op_max {
  my ($s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2960	3060	
==>ment({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
    $handler->start_element({ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3634	3734	
==>ment({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
    $handler->start_element({ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3724	3824	
==>ment({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
    $handler->start_element({ <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	300	398	
==>arrot::OpTrans> to provide a
C C<goto> run loop.

=head2 Instance Methods

=over 4

=cut

package P <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29375	29475	
==>race(q{Trying terminal: [' . $self->describe
					  . ']},
					  Parse::RecDescent::_tracefirst($tex <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31472	31572	
==>race(q{Trying terminal: [' . $self->describe
					  . ']},
					  Parse::RecDescent::_tracefirst($tex <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	12976	13073	
==>esent, is
assigned to the hash element.  If the element type is C<'%'>, the
accessor returns the h <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27272	27365	
==>race(q{Trying terminal: [' . $self->describe
					  . ']}, Parse::RecDescent::_tracefirst($tex <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926227	926352	
==>TR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927697	927822	
==>TR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929167	929292	
==>TR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930638	930763	
==>TR2UINTVAL({{\@2}}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@ <==
4	/Users/nnunley/parrot/config/inter/progs.pm	599	700	
==>use';

@args = qw(ask cc cxx link ld ccflags ccwarn linkflags ldflags libs debugging
    lex yacc main <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	35740	35836	
==>f
you run less (or more) tests than you planned, the missing (or extras)
will be considered failu <==
4	/Users/nnunley/parrot/lib/Test/More.pm	33811	33907	
==>f
you run less (or more) tests than you planned, the missing (or extras)
will be considered failu <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	2607	2703	
==>f
you run less (or more) tests than you planned, the missing (or extras)
will be considered failu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920451	920749	
==>=> 0,
                  "NAME" => "sprintf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921343	921641	
==>=> 0,
                  "NAME" => "sprintf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	922236	922534	
==>=> 0,
                  "NAME" => "sprintf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25683	25795	
==>::Conditional::If->new($block, $left, $op, $right);
      }
      elsif ($kind eq 'unless') {
        $cond = Jak <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945477	945708	
==>charset_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946287	946518	
==>charset_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	22889	23023	
==>=> \$action{gen_c},
        "tree"          => \$action{tree},

        "no-body"       => \$opt{nobody},
        "no-lines"      => \$ <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	48668	48760	
==>Perl quotes or quotelike operations. That is, C<extract_codeblock>
is like a combination of C <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39067	39324	
==>1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39932	40189	
==>1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40779	41036	
==>1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41627	41884	
==>1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072839	1072965	
==>3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimen <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075024	1075150	
==>3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimen <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077209	1077335	
==>3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimen <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079395	1079521	
==>3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimen <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	34083	34203	
==>op_number_p,
  'complex?'         => \&_op_complex_p,
  'real?'            => \&_op_real_p,
  'rational?'        => \&_op <==
4	/Users/nnunley/parrot/examples/benchmarks/stress.pl	566	672	
==>0) {
	$foo[$_] = $_;
    }
    return \@foo;
}

=head1 SEE ALSO

F<examples/benchmarks/stress.pasm>, 
F<exa <==
4	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	628	734	
==>0) {
	$foo[$_] = $_;
    }
    return \@foo;
}

=head1 SEE ALSO

F<examples/benchmarks/stress.pasm>, 
F<exa <==
4	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	475	581	
==>0) {
	$foo[$_] = $_;
    }
    return \@foo;
}

=head1 SEE ALSO

F<examples/benchmarks/stress.pasm>, 
F<exa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	331676	331899	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332953	333176	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334231	334454	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335509	335732	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	119382	119543	
==>"
                            ],
                  "BODY" => "#line 231 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120237	120398	
==>"
                            ],
                  "BODY" => "#line 231 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121092	121253	
==>"
                            ],
                  "BODY" => "#line 231 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/tools/dev/run_indent.pl	1926	2046	
==>$_}="#defined";
    }
    
    
    # post-process the file to find function declarations which would not
    # have been <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	2141	2259	
==>E]\d+)?)/;
    $node->{type} ||= 'EXPRESSION';
  }
}

sub parse {
  my $tokens = shift;
  my @tree;
  my $tree;

  my $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11060	11166	
==>k, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  {{+={{\@1}}}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11849	11955	
==>k, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  {{+={{\@1}}}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/config/auto/funcptr.pm	214	309	
==>ifies that the compiler supports function pointer casts.

=cut

package auto::funcptr;

use stri <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875067	875234	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876085	876252	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877103	877270	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878122	878289	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71748	72085	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
4	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3203	3313	
==>>get('ld'));

        # We can't use -opt: and -debug together.
        if ($conf->data->get('ld_debug') =~ /-d <==
4	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4707	4817	
==>>get('ld'));

        # We can't use -opt: and -debug together.
        if ($conf->data->get('ld_debug') =~ /-d <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3563	3668	
==>lf, $type, $num, $op) = @_;

    #print STDERR "pbcc: map_arg($type, $num)\n";

    die "Unrecognized type <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11741	11850	
==>!~ /COMP|COMM|STMT/) {
		if ($syms[CURR] eq ",") {
			feedme();
			next;
		}
		if ($type[CURR] eq "PUN" and $s <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1967	2069	
==>-I" . $PATHQUOTE . '/Users/nnunley/parrot/include' . $PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/U <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2263	2365	
==>-I" . $PATHQUOTE . '/Users/nnunley/parrot/include' . $PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/U <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2058	2160	
==>-I" . $PATHQUOTE . '/Users/nnunley/parrot/include' . $PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/U <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451677	451970	
==>}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452416	452709	
==>}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453154	453447	
==>}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453893	454186	
==>}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "add",
                  "FLA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591637	591729	
==>Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592847	592939	
==>Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594057	594149	
==>Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595268	595360	
==>Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072133	1072293	
==>VAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074318	1074478	
==>VAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076503	1076663	
==>VAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078689	1078849	
==>VAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1 <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	39986	40110	
==>[ \t]*\$\{AUTO_MAGICALS\}/$decls/;
	return $pir;
}


# Substiture meta variables.
# ##########################
sub sub_meta($ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2708	2803	
==>o type for dest!")  unless defined $dest_type;
  $self->INTERNAL_ERROR("No type for left!")  unl <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2474	2569	
==>o type for dest!")  unless defined $dest_type;
  $self->INTERNAL_ERROR("No type for left!")  unl <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2396	2491	
==>o type for dest!")  unless defined $dest_type;
  $self->INTERNAL_ERROR("No type for left!")  unl <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	57082	57211	
==>_[3], $_[4] );
        }
	],
	[#Rule 89
		 'functioncall', 2,
sub
#line 469 "Lua\lua51.yp"
{
            BuildCallFunction <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	676	792	
==>unstep
{
    my ($self, $conf) = @_;
    
    my $verbose = $conf->options->get('verbose');

    # undef means we don <==
4	/Users/nnunley/parrot/config/inter/lex.pm	686	798	
==>unstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    # undef means we don <==
4	/Users/nnunley/parrot/config/inter/make.pm	663	775	
==>unstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    # undef means we don <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344198	344306	
==>soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2}});\n  const char * const mode = st <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345440	345548	
==>soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2}});\n  const char * const mode = st <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346682	346790	
==>soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2}});\n  const char * const mode = st <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347925	348033	
==>soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2}});\n  const char * const mode = st <==
4	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	696	800	
==>tput) {
		print "compile_cs failed:\n$output";
		return 0;
	}
	
	# Clean up file.
	unlink "$file_name.cs" <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21369	21470	
==>->_restore($temp);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$l <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21754	21855	
==>->_restore($temp);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$l <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22139	22240	
==>->_restore($temp);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$l <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712531	712637	
==>_putps(interpreter, io, s);\n  if (string_str_index(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713638	713744	
==>_putps(interpreter, io, s);\n  if (string_str_index(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719998	720104	
==>_putps(interpreter, io, s);\n  if (string_str_index(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721198	721304	
==>_putps(interpreter, io, s);\n  if (string_str_index(interpreter, s,\n\tconst_string(interpreter, \".\"), 0) <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	875	966	
==>t (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($right, 'Jako::Construct::Expre <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	713	804	
==>t (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($right, 'Jako::Construct::Expre <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	866	957	
==>t (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($right, 'Jako::Construct::Expre <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	755	846	
==>t (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($right, 'Jako::Construct::Expre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047194	1047424	
==>> [
                              "kc",
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(inte <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16752	16869	
==>ue>;
    #

    if ($token->is_ident
      and $self->get(1)->is_assign
      and $self->get(2)->is_value
      and $s <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	8793	8894	
==>"", "", "", "",
						   $thisrule);
	$Parse::RecDescent::lastunexpected = $_[1];
	'. ($parser->{_chec <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1344	1435	
==>lib/luaio.pbc"
#  load_bytecode "languages/lua/lib/luaos.pbc"
#  load_bytecode "languages/ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	366	475	
==>iler;

use base qw(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compil <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	386	495	
==>iler;

use base qw(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compil <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	366	475	
==>iler;

use base qw(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compil <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94392	94690	
==>"JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95284	95582	
==>"JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96177	96475	
==>"JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2380	2480	
==>{ require Compress::Zlib } or
    *Compress::Zlib::memGunzip = sub { return };
  eval { require Compr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777075	777184	
==>vtable->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777984	778093	
==>vtable->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778893	779002	
==>vtable->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779803	779912	
==>vtable->set_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1122	1239	
==>E   => $ident->line,
  }, $class;

  #
  # Check for a few bad conditions.
  #
  # NOTE: These are compiler internal c <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1025	1142	
==>E   => $ident->line,
  }, $class;

  #
  # Check for a few bad conditions.
  #
  # NOTE: These are compiler internal c <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2859	2945	
==>ddr = (opcode_t*)pop_dest(interpreter);\ncur_opcode = pop_addr;goto *ops_addr[*(pop_add <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21390	21507	
==>$self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$label");
  return $return;
}

sub _op_ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21775	21892	
==>$self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$label");
  return $return;
}

sub _op_ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22160	22277	
==>$self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$label");
  return $return;
}

sub _op_ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	12370	12484	
==>$self->_add_inst(''           ,'set',[$return,0]);
  $self->_add_inst("DONE_$label");
  return $return;
}

sub _op_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926244	926402	
==>}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927714	927872	
==>}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929184	929342	
==>}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930655	930813	
==>}->strstart);\n                              break;\n    case STRINGINFO_BUFLEN:   {{\@1}} = PObj_buflen({{\@2}});\n                              break;\n    c <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9591	9700	
==>elf->{class};
	    $cout .= <<"EOC";
#include "$name.str"
EOC
    }
    "$cout\n";
}


=item C<full_arguments( <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16440	16540	
==>h->text;
      my $right = Jako::Construct::Expression::Value->new($block, $self->forth);

      $sel <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17211	17311	
==>h->text;
      my $right = Jako::Construct::Expression::Value->new($block, $self->forth);

      $sel <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18016	18116	
==>h->text;
      my $right = Jako::Construct::Expression::Value->new($block, $self->forth);

      $sel <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054476	1054576	
==>\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055603	1055703	
==>\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    { <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2438	2529	
==>em_bullet { $_[0]->emit_par( 0) }
sub end_item_number { $_[0]->emit_par( 0) }
sub end_item_t <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2006	2097	
==>em_bullet { $_[0]->emit_par( 0) }
sub end_item_number { $_[0]->emit_par( 0) }
sub end_item_t <==
4	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	987	1126	
==>est::run_command($cmd, CD => $self->{relpath},
                                           STDOUT => $out_f, STDERR => $out_f );
    unless ( <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1028	1167	
==>est::run_command($cmd, CD => $self->{relpath},
                                           STDOUT => $out_f, STDERR => $out_f );
    unless ( <==
4	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2078	2185	
==>est::run_command($cmd, #CD => $self->{relpath},
					   STDOUT => $out_f, STDERR => $out_f);
  
    unless ( <==
4	/Users/nnunley/parrot/tools/build/pbc2c.pl	2191	2294	
==>control flow changing opcodes including the possible targets of ret
    # opcodes
    while ($offset + s <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	1939	2029	
==>write-strings -Waggregate-return -Winline -W -Wno-unused -Wsign-compare -Wformat-nonliteral <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1259	1349	
==>write-strings -Waggregate-return -Winline -W -Wno-unused -Wsign-compare -Wformat-nonliteral <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1304	1394	
==>write-strings -Waggregate-return -Winline -W -Wno-unused -Wsign-compare -Wformat-nonliteral <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1308	1398	
==>write-strings -Waggregate-return -Winline -W -Wno-unused -Wsign-compare -Wformat-nonliteral <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581431	581850	
==>ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 663,
                  "ARGS" => [
                              "p",
                              "s",
                              "sc"
                            ],
                  "B <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	117	244	
==>pp version 1.05.
#
#        Don't edit this file, use source file instead.
#
#             ANY CHANGE MADE HERE WILL BE LOST <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	115	238	
==>pp version 1.05.
#
#        Don't edit this file, use source file instead.
#
#             ANY CHANGE MADE HERE WILL BE LOST <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8095	8183	
==>f->file_with_path($path);
}

=item C<existing_directory_with_name($name)>

Returns a dire <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	161	257	
==>ction - Documentation section

=head1 SYNOPSIS

    use Parrot::Docs::Section;

=head1 DESCRIPTIO <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14689	14770	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#------------------------ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14712	14793	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#----------------------------------------------- <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14735	14816	
==>~~~~~~~~~~
#---------------------------------------------------------------------- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072727	1072846	
==>( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074912	1075031	
==>( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077097	1077216	
==>( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079283	1079402	
==>( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146144	146374	
==>RGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 91 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85613	85833	
==>et_pmc_keyed_str(interpreter, compreg_hash, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86520	86740	
==>et_pmc_keyed_str(interpreter, compreg_hash, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314858	314967	
==>ernal_exception(1, \"Overflow exception for conv_i1_ovf\");\n  }\n  {{+=2}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	13442	13683	
==>$o_f "$pbc_f"},
                                CD     => $path_to_parrot,
                                STDOUT => $out_f,
                                STDERR => $out_f);
                    if ( -e $o_f ) {
                        run_c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247515	247660	
==>"
                            ],
                  "BODY" => "#line 670 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	248379	248524	
==>"
                            ],
                  "BODY" => "#line 670 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	249243	249388	
==>"
                            ],
                  "BODY" => "#line 670 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949950	950249	
==>P" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950909	951208	
==>P" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951869	952168	
==>P" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952829	953128	
==>P" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314909	315151	
==>_ovf\");\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "co <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	316370	316612	
==>_ovf\");\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "co <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	317837	318079	
==>_ovf\");\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "co <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319302	319544	
==>_ovf\");\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "co <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069094	1069325	
==>"ARGS" => [
                              "i",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 49 \"src/ops/experimental.ops\"\n\n  FLOATVAL q = <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1191	1293	
==>block->push_content($self);

  return $self;
}

sub dest  { return shift->{DEST};  }
sub left  { return <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1182	1284	
==>block->push_content($self);

  return $self;
}

sub dest  { return shift->{DEST};  }
sub left  { return <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1071	1173	
==>block->push_content($self);

  return $self;
}

sub dest  { return shift->{DEST};  }
sub left  { return <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	652250	652473	
==>" => 729,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 264 \"src/ops/pmc.ops\"\n    {{\@1}} = {{\@2}}->v <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2107	2210	
==>e {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako::Construct:: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2065	2168	
==>e {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako::Construct:: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1987	2090	
==>e {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako::Construct:: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010858	1011152	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011622	1011916	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012387	1012681	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	9703	9834	
==>is
	$t = 'S';
    }
    elsif ($c =~ /^u'.*'$/) {	# unicode-string TODO r raw
	$t = 'U';
    }
    elsif (is_num($c)) {        # num <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669122	669360	
==>_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669894	670132	
==>_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677625	677863	
==>_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678403	678641	
==>_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7277	7393	
==>y ($self, $reg, $db_desc) = @_;
    $reg = value($reg);

    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6919	7035	
==>y ($self, $reg, $db_desc) = @_;
    $reg = value($reg);

    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9377	9492	
==>y ($self, $reg, $db_desc) = @_;
    $reg = value($reg);
    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9071	9186	
==>y ($self, $reg, $db_desc) = @_;
    $reg = value($reg);
    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($ <==
4	/Users/nnunley/parrot/tools/dev/parrotbench.pl	4792	4915	
==>ast if /$regex/;
    }
    return if $fail;
    for my $index ( 0 .. $#section ) {
        my ($name, $p, $ext) = fileparse( <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	20390	20511	
==>calDir( $parser,
        'result' => $result,
    );
    push @opcodes, new NewOp( $parser,
        'result' => $resul <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21669	21790	
==>calDir( $parser,
        'result' => $result,
    );
    push @opcodes, new NewOp( $parser,
        'result' => $resul <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	22812	22933	
==>calDir( $parser,
        'result' => $result,
    );
    push @opcodes, new NewOp( $parser,
        'result' => $resul <==
4	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	5516	5649	
==>sion') ? "[$1]" :
        m[^lib/]          ? '[devel]' :
        m[^runtime/]      ? '[library]' :
        m[^tools/docs/]   ? '[deve <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	5111	5237	
==>$?)\n";

        # Execute permissions on libraries is especially important on
        # some platforms
        if ($^O eq 'hpu <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	5322	5448	
==>$?)\n";

        # Execute permissions on libraries is especially important on
        # some platforms
        if ($^O eq 'hpu <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4328	4449	
==>$?)\n";
	
		    # Execute permissions on libraries is especially important on
			# some platforms
	        if ($^O eq 'hpu <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3358	3450	
==>er to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5120	5212	
==>er to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8032	8124	
==>er to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8889	8981	
==>er to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910626	910923	
==>FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1026,
                  "ARG <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	46703	46848	
==>. . . . . . . . . . . . . . . . . . . . . . . . .
# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
#================= <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	46749	46871	
==>. .
# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
#======================================== <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	46797	46894	
==>. . . . . . . . . . . . . . . . .
#=============================================================== <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712700	712796	
==>ing(interpreter, \"e\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(inter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713807	713903	
==>ing(interpreter, \"e\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(inter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720167	720263	
==>ing(interpreter, \"e\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(inter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721367	721463	
==>ing(interpreter, \"e\"), 0) == -1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(inter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123848	123959	
==>ps/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124722	124833	
==>ps/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125596	125707	
==>ps/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15674	15770	
==>}

sub rtf_esc_codely {
  # Doesn't change "-" to hard-hyphen, nor apply computerese style-smarts <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908834	909137	
==>LAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1024,
                  "ARGS" => [ <==
4	/Users/nnunley/parrot/lib/Test/More.pm	28711	28846	
==>> $_, vals => [$e1, $e2] };
        $ok = _deep_check($e1,$e2);
        pop @Data_Stack if $ok;

        last unless $ok;
    }

    ret <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2459	2586	
==>tive_path
{
    my $self = shift;
    my $path = shift || return;
    
    $path = $path->path if ref $path;
    
    my $rel_pa <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	12893	13013	
==>in $c $cmt $o
EOC
	push @stack, [$c, $c, $o];
	return;
    }
    # params TODO
    if ($names{$c}) {
	$p = $names{$c};
	p <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722410	722511	
==>ter, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723439	723540	
==>ter, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724483	724584	
==>ter, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  { <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30773	30870	
==>srm->post_load($need_dest);
		$pir .= "### post_load\n";
		$pir .= sub_meta($post_load, $mv, "post <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476499	476784	
==>( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477394	477679	
==>( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478290	478575	
==>( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479181	479466	
==>( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11668	11810	
==>thmetic->new($block, $ident, $ident, $op, $value);
      next;
    }

    #
    # Concat assign:
    #
    #   <var> <op> <value>;
    #

    i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293430	293540	
==>s/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "L <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294306	294416	
==>s/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "L <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295182	295292	
==>s/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "L <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332448	332545	
==>eter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333726	333823	
==>eter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335004	335101	
==>eter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336283	336380	
==>eter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942726	943014	
==>,
                  "TYPE" => "function",
                  "CODE" => 1060,
                  "ARGS" => [
                              "p",
                              "sc",
                              "sc"
                            ],
                  "BODY" => "#line 486 \"src/o <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2279	2396	
==>t various libraries in the link line.
        $liblist = join( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2571	2688	
==>t various libraries in the link line.
        $liblist = join( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2366	2483	
==>t various libraries in the link line.
        $liblist = join( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ <==
4	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	969	1065	
==>$mini_parrot, $install_parrot);

$mini_parrot = 1    if @ARGV && $ARGV[0] =~ /mini/;
$install_par <==
4	/Users/nnunley/parrot/languages/APL/t/APL.pm	1123	1245	
==>k
      }
      else {
        $output = "0\n"; # XXX MAJOR hack - Test::Base is borkedly converting the 0 into the empty s <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	2479	2574	
==>nit> flag was used, then no init function is generated.
Otherwise, one is generated which sets u <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848224	848312	
==>ine 78 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@1}}, {{\@2}}, 1) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849004	849092	
==>ine 78 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@1}}, {{\@2}}, 1) <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1855	1971	
==>nt ? $self->ident->value : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2460	2576	
==>nt ? $self->ident->value : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	2018	2134	
==>nt ? $self->ident->value : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3134	3250	
==>nt ? $self->ident->value : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451650	451909	
==>h.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452389	452648	
==>h.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453127	453386	
==>h.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453866	454125	
==>h.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332475	332572	
==>} = PIO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333753	333850	
==>} = PIO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335031	335128	
==>} = PIO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336310	336407	
==>} = PIO_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783258	783456	
==>"p",
                              "kic",
                              "sc"
                            ],
                  "BODY" => "#line 387 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	18605	18715	
==>->{"name"} . '});') . '
		my $repcount = 0;

';
	$code .= 
'		my @itempos = ({});
'			if $parser->{_check}{item <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	318	419	
==>gister;
use strict;
use SRM::Base;
our @ISA = qw/SRM::Base/;

# Constructor. Just base this class on a <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	224	325	
==>gister;
use strict;
use SRM::Base;
our @ISA = qw/SRM::Base/;

# Constructor. Just base this class on a <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813978	814235	
==>" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814600	814857	
==>" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	815228	815485	
==>" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARG <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	33903	33992	
==>f delimiters passed as
C<extract_bracketed>'s second argument. Delimiter brackets are
spec <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	3179	3270	
==>sources'));
    $index->append($index_html);
    $index->append(Parrot::Docs::HTMLPage->foot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236592	236681	
==>6 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}});\n  {{+=4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237474	237563	
==>6 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}});\n  {{+=4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238356	238445	
==>6 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}});\n  {{+=4 <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	3033	3142	
==>No target\n";
    my $silent = shift || 0;
    my $index_html = '';
    my @rel_paths = $self->contents_relati <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	4018	4119	
==>q 'linklibs') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	4122	4223	
==>q 'linklibs') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	35	131	
==>that need only know how to format whatever
# text comes out of Pod::BlackBox's _gen_errata

requi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255829	256127	
==>=> 0,
                  "NAME" => "xor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256736	257034	
==>=> 0,
                  "NAME" => "xor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257644	257942	
==>=> 0,
                  "NAME" => "xor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	16542	16658	
==>temp($t = 'N');
	print <<"EOC";
	$n = pow $l->[1], $r->[1] $cmt
EOC
    }
    else {
	my $nl = temp('N');
	my $nr = t <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8491	8651	
==>f (   (defined($_))
                && ($_ ne File::Spec->devnull)
                && (!m/^&/)) {
                open(my $out, $_);
                print <$out> <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3193	3294	
==>c)
	print "Print me"
	exit sub
	print "Don't print me"
end sub
function foo$
	foo$="Right one"
	exit f <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17160	17261	
==>c)
	print "Print me"
	exit sub
	print "Don't print me"
end sub
function foo$
	foo$="Right one"
	exit f <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	6982	7081	
==>orithms:
 *  History:
 *  Notes:
 *  References:
 */
#include "parrot/parrot.h"
#include "parrot/has <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	3645	3748	
==>lsif ($mode eq 'compile') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_ <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	3749	3852	
==>lsif ($mode eq 'compile') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819679	819769	
==>l_exception(99, \"Stack Depth wrong\");\n  }\n  {{\@1}} = get_entry_type(interpreter, entry <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820639	820729	
==>l_exception(99, \"Stack Depth wrong\");\n  }\n  {{\@1}} = get_entry_type(interpreter, entry <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2014	2139	
==>nicode
      return $FAR_CHAR;
    } else {
      return chr($in);
    }
  } else {
    return $Name2character{$in}; # returns <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	11816	11924	
==>iter2 = new .Iterator, op2
inner_loop:
    unless iter2 goto inner_done
    $P2 = shift iter2
    if $P1 == $ <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28918	29024	
==>le->{'name'}\n";
        } elsif ($rule->{'instruction'} =~ /\$\{DEST0\}/ &&
		         $rule->{'instructio <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763158	763264	
==>STERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764011	764117	
==>STERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764864	764970	
==>STERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765718	765824	
==>STERS)\n        PANIC(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n", <==
4	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	12726	12842	
==>tr>
        <tmpl_loop name=smokes>
          <tr>
            <td class="indent2">Parrot&nbsp;<tmpl_var name=VERSION <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1248	1352	
==>ns.
  #
  # NOTE: These are compiler internal consistency checks. They really should not be
  # triggered <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1193	1297	
==>ns.
  #
  # NOTE: These are compiler internal consistency checks. They really should not be
  # triggered <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1096	1200	
==>ns.
  #
  # NOTE: These are compiler internal consistency checks. They really should not be
  # triggered <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357684	357978	
==>IRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 418,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 245 \"src/o <==
4	/Users/nnunley/parrot/languages/regex/test.pl	3358	3462	
==>t PIR <<"END";
# Regular expression test
# Generated by $0
# Pattern >>$pattern<<

END

    $driver->outp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78951	79043	
==>reter, ({{\@3}}));\n\n  void * const p = Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? NULL : PMC_data( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80472	80564	
==>reter, ({{\@3}}));\n\n  void * const p = Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? NULL : PMC_data( <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	8103	8218	
==>$cur_f}{flags} = $f;
		    print "# $cur_f; flags=$f\n";
		}
		elsif (/# varnames\s+\((.*)\)/) {
		    my $vars = $1 <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1889	1985	
==>lue::Identifier')) {
    my $left_sym = $block->find_symbol($left->value);
    $self->SYNTAX_ERRO <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1847	1943	
==>lue::Identifier')) {
    my $left_sym = $block->find_symbol($left->value);
    $self->SYNTAX_ERRO <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1769	1865	
==>lue::Identifier')) {
    my $left_sym = $block->find_symbol($left->value);
    $self->SYNTAX_ERRO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099344	1099691	
==>0) {\n\tres = 1.0/res;\n    }\n    {{\@1}} = res;\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100542	1100889	
==>0) {\n\tres = 1.0/res;\n    }\n    {{\@1}} = res;\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101740	1102087	
==>0) {\n\tres = 1.0/res;\n    }\n    {{\@1}} = res;\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102939	1103286	
==>0) {\n\tres = 1.0/res;\n    }\n    {{\@1}} = res;\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138166	138281	
==>70 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139062	139177	
==>70 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139958	140073	
==>70 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABE <==
4	/Users/nnunley/parrot/tools/dev/lib_deps.pl	749	847	
==>d. Note that it assumes a gnu-ish C<nm>.

=item C<source>

In C<source> mode, it uses a the C<cxref <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813473	813724	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814098	814349	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814720	814971	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	815348	815599	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inl <==
4	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	17391	17485	
==>SET\((.*)\)/{{+=$1}}/mg;
        #s/goto\s+NEXT\(\)/{{+=$op_size}}/mg;	#not supported--dependen <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143532	143623	
==>=> "#line 84 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144460	144551	
==>=> "#line 84 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145388	145479	
==>=> "#line 84 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1097601	1097759	
==>terpreter, key_tail, key);\n            key_tail = key;\n        }\n    }    \n    {{+=3}};\n",
                  "experimental" => 1,
                  "LABEL <==
4	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	1822	1947	
==>image_dblbuf.pir              [devel]
    examples/sdl/blue_font.pir                      [devel]
    examples/sdl/blue_rect.p <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13160	13263	
==>e third
	poit as integer
	fwd as second
end type
dim x as third
dim y as third
dim k as second
x.fwd.lin <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3608	3705	
==>R "pbcc: map_arg($type, $num)\n";

    die "Unrecognized type '$type' for num '$num'" unless exist <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1688	1802	
==>QUOTE = '"';

    unless ($CC =~ /gcc/i) {
        $LIBPARROT = '/Users/nnunley/parrot/libparrot.a';
    }
}

# OPS <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	27500	27600	
==>ement_start(($scratch = 'over-' . $list_type), $para->[1]);
      
    } elsif($para_type eq '=back') <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	158	253	
==>roup - Group of documentation items

=head1 SYNOPSIS

	use Parrot::Docs::Group;

=head1 DESCRIPT <==
4	/Users/nnunley/parrot/lib/Parrot/PMC.pm	1388	1481	
==>ray => 65,
	ResizableIntegerArray => 66,
	ResizablePMCArray => 67,
	ResizableStringArray => 68 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032516	1032806	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_lex",
                  "FLAGS" => "",
                  "AR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033613	1033903	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_lex",
                  "FLAGS" => "",
                  "AR <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	45284	45409	
==>rbatimI'  :
            $5 ? 'VerbatimBI' : die("Should never get called")
          ), {},
          substr($p->[$i-1], pos($ <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9613	9708	
==>s "C compiler failed (see test.cco)";

    _run_command("$link $linkflags test$o $link_args ${cc <==
4	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	314	442	
==>{};
}


my %language_test_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    output_isnt       => 'is <==
4	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	401	528	
==>{};
}

my %language_test_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    output_isnt       => 'is <==
4	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	483	598	
==>{};
}

my %language_test_map = (
    output_is   => 'is_eq',
    output_like => 'like',
    output_isnt => 'is <==
4	/Users/nnunley/parrot/config/inter/libparrot.pm	318	420	
==>etermines whether it should be build static or shared.

=cut

package inter::libparrot;

use stri <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2423	2626	
==>turn
                last;
            s/^\\t//
                and $str .= "\t",      # horizontal tab
                last;
            s/^\\v//
                and $str .= "\x0b",    # vertical t <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3937	4140	
==>turn
                last;
            s/^\\t//
                and $str .= "\t",      # horizontal tab
                last;
            s/^\\v//
                and $str .= "\x0b",    # vertical t <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	20774	20873	
==>tra diagnostics when the test
ends.  It also changes the exit code as described below.

If this is t <==
4	/Users/nnunley/parrot/lib/Test/More.pm	19296	19393	
==>t available (like a 
net connection) or a module isn't available.  In these cases it's
necessary t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568712	569035	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569604	569927	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570497	570820	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571451	571774	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1811	1904	
==>ute of "L" start-element events.  Most applications
can just use the normal stringification of <==
4	/Users/nnunley/parrot/lib/Test/More.pm	13269	13384	
==>ant to honor isa() overrides
        local($@, $!);  # eval sometimes resets $!
        my $rslt = eval { $object->i <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37507	37601	
==>RD_TRACE;').'
		$Parse::RecDescent::lastexpected = ' . ($rule->hasleftmost($self) ? 'q{}'
				: <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39910	40004	
==>RD_TRACE;').'
		$Parse::RecDescent::lastexpected = ' . ($rule->hasleftmost($self) ? 'q{}'
				: <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4424	4516	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sub run {
  my $self = $_[0];
  re <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236669	236995	
==>}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237551	237877	
==>}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238433	238759	
==>}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244049	244375	
==>}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143588	143850	
==>erpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144516	144778	
==>erpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145444	145706	
==>erpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	20639	20743	
==>, 0,
sub
#line 132 "lib/Regex/Grammar.y"
{ ++$::paren }
	],
	[#Rule 22
		 'expr', 4,
sub
#line 133 "lib/R <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321777	321968	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322548	322739	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323320	323511	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARG <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	18345	18440	
==>y other local variable would
# (somehow, they'll get saved on the stack.)

sub rewrite_greedy_ra <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860356	860595	
==>" => [
                              "s",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 118 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      intern <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	36445	36582	
==>th

          DEBUG > 3 and
           print "     FOUND a '|' in it.  Splitting into [$1] + [$2]\n";

          unshift @link_text, splic <==
4	/Users/nnunley/parrot/Configure.pl	6430	6532	
==>ator

   --define=inet_aton   Quick hack to use inet_aton instead of inet_pton

Parrot Options:

   --i <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1520	1616	
==>the type for the array of opcodes. By default here it's an array
C<opcode_t>, but the prederef ru <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099387	1099694	
==>= res;\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100585	1100892	
==>= res;\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101783	1102090	
==>= res;\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102982	1103289	
==>= res;\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/languages/dotnet/Configure.pl	4378	4491	
==>"";
        foreach (@libs) {
            $code .= "\t\$(PARROT) -G net2pbc.pbc -f -p \"$mono_class_lib/$_.dll\" <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	521	610	
==>ns from Pod::Simple::PullParser

=head1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head1 <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	940	1029	
==>ns from Pod::Simple::PullParser

=head1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head1 <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	427	516	
==>ns from Pod::Simple::PullParser

=head1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head1 <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16403	16507	
==>forth);
      my $op    = $self->forth->text;
      my $right = Jako::Construct::Expression::Value->new($ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17174	17278	
==>forth);
      my $op    = $self->forth->text;
      my $right = Jako::Construct::Expression::Value->new($ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17979	18083	
==>forth);
      my $op    = $self->forth->text;
      my $right = Jako::Construct::Expression::Value->new($ <==
4	/Users/nnunley/parrot/languages/regex/test.pl	3932	4034	
==>te_pbc("test_regex.pir", "test.pbc");
}

sub process {
    my ($input, $output, $testnum) = @_;
    ope <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2333	2440	
==>RM code',
	'vim' => 'Vim file',
	'xml' => 'XML file',
	'xs' => 'XS code',
	'y' => 'Yacc file'
);

# These ar <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6944	7046	
==>ression with $syms[CURR]\n";
	#	print CODE EXPRESSION;		# Evaluate the expression all queued up.
	#	ASS <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11947	12047	
==>_call_result {
    my ($self, $uid, $name, $fail) = @_;
    my $fail_label = $self->output_label_use( <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	12613	12713	
==>_call_result {
    my ($self, $uid, $name, $fail) = @_;
    my $fail_label = $self->output_label_use( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672419	672714	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673191	673486	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673961	674256	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	674732	675027	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072765	1072907	
==>@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074950	1075092	
==>@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077135	1077277	
==>@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079321	1079463	
==>@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2070	2168	
==>P0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3322	3420	
==>P0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5951	6049	
==>P0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6509	6607	
==>P0} = ${STYPES}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981903	982104	
==>",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_ccla <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983033	983234	
==>",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_ccla <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984163	984364	
==>",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_ccla <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985294	985495	
==>",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_ccla <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017939	1018036	
==>t tm tm;\n  const time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_gmtime_r(&t, &t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018864	1018961	
==>t tm tm;\n  const time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_gmtime_r(&t, &t <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14964	15055	
==>\\{\}\x7F-\xFF])/$Escape{$1}/g;  # ESCAPER
      s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768 <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16147	16238	
==>\\{\}\x7F-\xFF])/$Escape{$1}/g;  # ESCAPER
      s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843321	843642	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844199	844520	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845077	845398	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARG <==
4	/Users/nnunley/parrot/tools/dev/parrotbench.pl	6396	6491	
==>for 0 .. $#program;
printf("%-$max[0]s  ", 'Benchmark');
printf("%-$max[$_ + 1]s  ", $program[$_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350568	350824	
==>MP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351229	351485	
==>MP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351891	352147	
==>MP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352548	352804	
==>MP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
4	/Users/nnunley/parrot/tools/build/pbc2c.pl	2602	2733	
==>pc   = $pc + $op->size;

        @args = ();

        foreach (1 .. scalar($op->arg_types) - 1) {
            die "$0: Premature end <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	16799	16895	
==>I5, 0, CASE_${jump}_${incase}_STARTOPS
OPS
	}
	$incase++;
	print CODE<<ENDCASE;
	bsr EVALEXPR
	bs <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111270	111359	
==>s/bit.ops\"\n  {{\@1}} = string_bitwise_or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112162	112251	
==>s/bit.ops\"\n  {{\@1}} = string_bitwise_or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113054	113143	
==>s/bit.ops\"\n  {{\@1}} = string_bitwise_or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640742	641033	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641506	641797	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645962	646253	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => " <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	7674	7801	
==>s, $ar, $kw) = ($1, $2, $3);
		    $args =~ s/[\s']//g;
		    $ar =~ s/'//g;
		    $kw =~ s/'//g;
		    print "# $cur_f: args='$ <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	11293	11406	
==>it);

    while ($classblock =~ s/($signature_re)//) {
        $lineno += count_newlines($1);
        my ($flag, $ <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	1872	1957	
==>otypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwrite-strings -Wagg <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1237	1322	
==>otypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwrite-strings -Wagg <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1241	1326	
==>otypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwrite-strings -Wagg <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672425	672721	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673197	673493	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673967	674263	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	674738	675034	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "i <==
4	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1048	1168	
==>TR_PAD, $key, '="', $value, '"';
      }
    }
  } else { # faster
    while(($key,$value) = each %{$_[2]}) {
      unles <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	2930	3044	
==>ml
{
    my $self = shift;
    my $source = shift || die "No source\n";
    my $target = shift || die "No target\n" <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	2378	2492	
==>ml
{
    my $self = shift;
    my $source = shift || die "No source\n";
    my $target = shift || die "No target\n" <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2537	2648	
==>ml
{
	my $self = shift;
    my $source = shift || die "No source\n";
    my $target = shift || die "No target\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451637	451902	
==>\"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452376	452641	
==>\"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453114	453379	
==>\"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453853	454118	
==>\"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10749	10857	
==>ft; # Required: Jako::Construct::Block

  confess "No block!"        unless defined $self and ref $self and $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4425	4527	
==>ft; # Required: Jako::Construct::Block

  confess "No block!"  unless defined $self and ref $self and $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4932	5034	
==>ft; # Required: Jako::Construct::Block

  confess "No block!"  unless defined $self and ref $self and $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10335	10436	
==>ft; # Required: Jako::Construct::Block

  confess "No block!" unless defined $self and ref $self and $ <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	2600	2698	
==>}

=item C<name_without_suffix()>

This will give you the name minus any .xyz suffix.

=cut

sub na <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492805	493097	
==>}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493566	493858	
==>}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499540	499832	
==>}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "F <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	10195	10328	
==>e_newp_ic_op";
            $opbody =~ /vtable->(\w+)/;
            $extern = 2;  # fake number
            #print "$jit_func $extern\n <==
4	/Users/nnunley/parrot/lib/Test/More.pm	22615	22712	
==>ove it outside the block.
When the block is empty, delete it.

B<NOTE>: TODO tests require a Test: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067242	1067550	
==>temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068428	1068736	
==>temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069614	1069922	
==>temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070801	1071109	
==>temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7846	7969	
==>lse {
          ++$self->{'pod_para_count'};
          $self->_ponder_paragraph_buffer();
           # by now it's safe to c <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	8205	8322	
==>lse {
        ++$self->{'pod_para_count'};
        $self->_ponder_paragraph_buffer();
         # by now it's safe to c <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	3803	3912	
==>", $todo, "Import error when loading $module: $!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$mo <==
4	/Users/nnunley/parrot/tools/dev/lib_deps.pl	6889	6980	
==>, scalar(@internal_symbols), scalar(@files));
    printf("Found %d external symbols\n", scal <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950487	950584	
==>ine 540 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951447	951544	
==>ine 540 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952407	952504	
==>ine 540 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953368	953465	
==>ine 540 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = P <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	12458	12561	
==>k for errors.
    if(! $self->{'encoding_command_statuses'} ) {
      DEBUG > 2 and print " CRAZY ERROR: <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2695	2795	
==>fset)>

Returns the C code for C<restart OFFSET($offset)>.

=cut

sub restart_offset
{
    my ($self, <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4030	4130	
==>fset)>

Returns the C code for C<restart OFFSET($offset)>.

=cut

sub restart_offset
{
    my ($self, <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3728	3828	
==>fset)>

Returns the C code for C<restart OFFSET($offset)>.

=cut

sub restart_offset
{
    my ($self, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050250	1050356	
==>n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(interpreter, {{\@2}}, {{\@3}}, next);\n    {{+=4}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051284	1051390	
==>n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(interpreter, {{\@2}}, {{\@3}}, next);\n    {{+=4}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052318	1052424	
==>n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(interpreter, {{\@2}}, {{\@3}}, next);\n    {{+=4}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053353	1053459	
==>n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(interpreter, {{\@2}}, {{\@3}}, next);\n    {{+=4}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039118	1039369	
==>> 1161,
                  "ARGS" => [
                              "s",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 120 \"src/ops/var.ops\"\n    Parrot_store_gl <==
4	/Users/nnunley/parrot/config/auto/alignptrs.pm	1175	1297	
==>('config/auto/alignptrs/test_c.in');
        cc_build();
        for my $try_align (64, 32, 16, 8, 4, 2, 1) {
            m <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	143	232	
==>dation.  All Rights Reserved.
# $Id: /parrot/config/gen/makefiles/dynclasses_pl.in 15833 2 <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	1946	2034	
==>$$textref, $extrapos, $extralen)."\n" : "";
		eval {substr($$textref,$_[4],$_[1]+$_[5])=$ <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11000	11104	
==>die "Can't read $infile: $!\n";
    open (OUT, ">$outfile") or die "Can't write $outfile: $!\n";

    pri <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11484	11588	
==>die "Can't read $infile: $!\n";
    open (OUT, ">$outfile") or die "Can't write $outfile: $!\n";

    pri <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11948	12052	
==>die "Can't read $infile: $!\n";
    open (OUT, ">$outfile") or die "Can't write $outfile: $!\n";

    pri <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	1155	1257	
==>op=0;
	while($type[CURR] !~ /COMP|COMM|STMT/) {
		die if $loop++>20;
		$var=$syms[CURR];
		feedme;
		my <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630684	630919	
==>\@1}} = pmc_new(interpreter, type);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631674	631909	
==>\@1}} = pmc_new(interpreter, type);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629697	629930	
==>\@1}} = pmc_new(interpreter, type);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	4104	4218	
==>lf = {
    instruction => []
  };
  bless $self, $class;
}

sub _add_inst {
  my $self = shift;
  push @{$self->{in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579188	579325	
==>"
                            ],
                  "BODY" => "#line 289 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580493	580630	
==>"
                            ],
                  "BODY" => "#line 289 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029691	1029793	
==>ODY" => "#line 305 \"src/ops/sys.ops\"\n  opcode_t *next = {{^+2}};\n  if ({{\@1}} < 0.0) {\n      real <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030533	1030635	
==>ODY" => "#line 305 \"src/ops/sys.ops\"\n  opcode_t *next = {{^+2}};\n  if ({{\@1}} < 0.0) {\n      real <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	20002	20126	
==>( $dont_ignore ) {
          $dont_ignore = '';
          delete $para->[1]{'target_matching'};
          DEBUG > 2 and print <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574830	575104	
==>\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573119	573391	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574029	574301	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass", <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	2703	2817	
==>goto $label");
  } else {
    if ($cond eq 'unless') {
      $op = $compiler->invert_relop($op);
      $cond = 'if' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73091	73180	
==>NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74693	74782	
==>NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76295	76384	
==>NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77898	77987	
==>NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072881	1073231	
==>= r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075066	1075416	
==>= r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077251	1077601	
==>= r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079437	1079787	
==>= r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663209	663499	
==>"JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663980	664270	
==>"JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664752	665042	
==>"JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665528	665818	
==>"JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	695	789	
==>ght
get an object of this class.

This is a subclass of L<Pod::Simple::PullParserToken> and inh <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1121	1215	
==>ght
get an object of this class.

This is a subclass of L<Pod::Simple::PullParserToken> and inh <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	601	695	
==>ght
get an object of this class.

This is a subclass of L<Pod::Simple::PullParserToken> and inh <==
4	/Users/nnunley/parrot/tools/build/pbc2c.pl	468	559	
==>'lib';
use Parrot::Types;
use Parrot::PackFile;
use Parrot::PackFile::ConstTable;
use Parrot <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6572	6702	
==>nt);
        push @identifiers, $ident;
        last unless $self->skip_comma;
      }

      my $value;

      if ($self->skip_ass <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1106	1195	
==>o-common -Wno-long-double  -I /opt/local/include   -g -Wall -Wstrict-prototypes -Wmissing- <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1164	1253	
==>o-common -Wno-long-double  -I /opt/local/include   -g -Wall -Wstrict-prototypes -Wmissing- <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1168	1257	
==>o-common -Wno-long-double  -I /opt/local/include   -g -Wall -Wstrict-prototypes -Wmissing- <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	27912	28036	
==>s;

Like summary(), but with a lot more detail.

    $tests[$test_num - 1] = 
            { 'ok'       => is the test conside <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1433	1543	
==>shift;
  my ($compiler) = @_;

  my $dest_ident = $self->dest;

  my $block = $self->block;
  my $dest  = $self <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1313	1423	
==>shift;
  my ($compiler) = @_;

  my $dest_ident = $self->dest;

  my $block = $self->block;
  my $dest  = $self <==
4	/Users/nnunley/parrot/tools/build/ops2pm.pl	6737	6841	
==>}} -1 ? "," : "";
    $opname = "PARROT_OP_$opname$comma";

    printf OUT "\t%-30s\t/* %4d */\n", $opnam <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1871	1988	
==>t->value : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self-> <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2476	2593	
==>t->value : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self-> <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	2034	2151	
==>t->value : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self-> <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3150	3267	
==>t->value : undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self-> <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	20374	20495	
==>@opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new NewOp( $parser,
        'r <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21653	21774	
==>@opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new NewOp( $parser,
        'r <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	22796	22917	
==>@opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new NewOp( $parser,
        'r <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	12365	12463	
==>if(!defined $source) {
    Carp::croak("Can't use empty-string as a source for parse_file");
  } el <==
4	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	671	765	
==>b 'lib';
use Digest::Perl::MD5 qw(md5_hex);

my $compat_file = 'PBC_COMPAT';
open IN, $compat_f <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1398	1488	
==>ion -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARR <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1443	1533	
==>ion -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARR <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1447	1537	
==>ion -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARR <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	32948	33049	
==>xt> contained the string:

	"if ('./cmd' =~ m/$UNIXCMD/s) { $cmd = $1; }"
	
then after the deletion it <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126528	126627	
==>src/ops/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127663	127762	
==>src/ops/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128798	128897	
==>src/ops/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	97019	97228	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnot",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	97649	97858	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnot",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	98386	98595	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnot",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	99048	99257	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnot",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109671	109894	
==>or(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110450	110673	
==>or(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133876	134099	
==>or(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134657	134880	
==>or(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1747	1849	
==>on hook.
sub post_translation() {
	# Nothing to do.
	return "";
}

# Extra subroutines required for the <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	787	889	
==>on hook.
sub post_translation() {
	# Nothing to do.
	return "";
}

# Extra subroutines required for the <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	544	646	
==>on hook.
sub post_translation() {
	# Nothing to do.
	return "";
}

# Extra subroutines required for the <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	6976	7074	
==>s $cond;
    say "ok ", $Test::num_of_tests_run, $out, $context_out;

    Test::report_failure($con <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766107	766434	
==>" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 865,
                  "ARGS" => [
                              "i",
                              "s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540444	540544	
==>\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541696	541796	
==>\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542948	543048	
==>\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307075	307246	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 1031 \"src/ops/cmp.ops\"\n  if (!PMC_IS_NULL({{\@1}})) {\n    {{+={{ <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	7294	7407	
==>LVector, APLVector) # index of
    .param pmc op1
    .param pmc op2
 
    .local pmc iter_one, iter_two
    .loca <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5844	5946	
==>anches mean we need to deal with basic block-ish stuff. If the branch
	# did not pop anything it is unc <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3782	3884	
==>anches mean we need to deal with basic block-ish stuff. If the branch
	# did not pop anything it is unc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649905	650194	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "valid_type",
                  "FLAGS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650826	651115	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "valid_type",
                  "FLAGS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8717	8810	
==>> "#line 182 \"src/ops/core.ops\"\n    char * const label = string_to_cstring(interpreter, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9833	9926	
==>> "#line 182 \"src/ops/core.ops\"\n    char * const label = string_to_cstring(interpreter, {{\ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	25296	25417	
==>~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
    if(grep $_->[1]{'~ignore'}, @$curr_open) {
      DEBUG > 1 and
       print "Skipping $p <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202729	202820	
==>ops/cmp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203660	203751	
==>ops/cmp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204591	204682	
==>ops/cmp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}} <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	5037	5147	
==>es) {
        copy("$_$LOAD_EXT", $dest) or die "Copy $_$LOAD_EXT failed ($?)\n";

        # Execute permission <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8451	8560	
==>y $dest_reg = shift;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the store. <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6271	6380	
==>y $dest_reg = shift;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the store. <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5186	5295	
==>y $dest_reg = shift;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the store. <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297409	297828	
==>RGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 346,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY <==
4	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5267	5387	
==>s for */
    "",     /* Flags. Duh */
    "",     /* space-separated list of interfaces */
    "",     /* space-separated <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	5081	5179	
==>);
		feedme();
	}
	push @{$code{$seg}->{code}},<<ON;
@code	lt $result, 0.0, ONERR_${ons}
	gt $resul <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	32077	32175	
==>ntax {
}

sub _op_identifier_p {
}

sub _op_unwrap_syntax {
}

sub _op_free_identifier_eq_p {
}

su <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4787	4885	
==>re function.

=cut

sub run_core_func_start
{
    return <<END_C;
#if defined(__GNUC__) && defined( <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3075	3173	
==>re function.

=cut

sub run_core_func_start
{
    return <<END_C;
#if defined(__GNUC__) && defined( <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	418	529	
==>ne ')') {
      my $expr;
      ($count, $expr) = _build_tree ($tokens, $count);
      push @{$temp->{children}} <==
4	/Users/nnunley/parrot/tools/build/vtable_h.pl	362	462	
==>t::Vtable>.

=head1 SEE ALSO

=over 4

=item C<Parrot::Vtable>

=back

=cut

use lib 'lib';
use Parro <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2617	2716	
==>en->dump, "\n";
    ...
  }

=back

=head1 SEE ALSO

My subclasses:
L<Pod::Simple::PullParserStartTo <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957520	957612	
==>encoding_number(interpreter, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, NULL, 1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958425	958517	
==>encoding_number(interpreter, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, NULL, 1 <==
4	/Users/nnunley/parrot/tools/dev/mk_inno.pl	883	993	
==>)/) {
        $options{$1} = $2;
    }
}

$options{prefix} =~ s/\//\\/g;
$options{icudir} =~ s/\//\\/g;

my $ic <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4766	4867	
==>e prior to the run core function.

=cut

sub run_core_func_start
{
    return <<END_C;
#if defined(__G <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3054	3155	
==>e prior to the run core function.

=cut

sub run_core_func_start
{
    return <<END_C;
#if defined(__G <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	486	582	
==>over

=cut

package Parrot::Docs::HTMLPage;

use strict;
use warnings;

=item C<header($title, $n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501032	501309	
==>} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501771	502048	
==>} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502509	502786	
==>} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503248	503525	
==>} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mu <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30519	30659	
==>> 151,
			")" => 152
		}
	},
	{#State 99
		DEFAULT => -92
	},
	{#State 100
		ACTIONS => {
			"-" => 72,
			"<" => 74,
			"%" => 76 <==
4	/Users/nnunley/parrot/config/init/defaults.pm	4101	4236	
==>=> '',
        sym_import => '',

        # Library build directory
        blib_dir      => 'blib/lib',

        # libparrot library na <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	3317	3422	
==>s Bool is export {
    my $out := defined($desc) ?? $desc !! "The object is-a '$expected_type'";
    my $t <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2584	2683	
==>verywhere doesn't hurt the final
	# Parrot bytecode that is produced.
	$pir .= <<'PIR';
strPC = ${PC <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	28009	28123	
==>} else {
				push(@params, $a);  # Always here?
			}
		}
	}
	my $argcnt=@params;
	# The outer compiler will provide <==
4	/Users/nnunley/parrot/config/init/hints/darwin.pm	55	142	
==>ot/config/init/hints/darwin.pm 19593 2006-05-30T02:28:15.110975Z coke  $

package init:: <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8562	8645	
==>t
data "ABANDON","CHART","COMPUTER"
data "DAMAGES","DESTRUCT","DOCK","IDLE","IMPULSE <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21426	21509	
==>t
data "ABANDON","CHART","COMPUTER"
data "DAMAGES","DESTRUCT","DOCK","IDLE","IMPULSE <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	5608	5730	
==>t "rule error"
          end:
        .end\n);
}

sub _generate_subrule_pir {
    my($target, $pattern) = @_;
    $target = <==
4	/Users/nnunley/parrot/config/init/hints/openbsd.pm	492	586	
==>ad';
	}
	$conf->data->set(libs => $libs);

	if ((split('-', $Config{archname}))[0] eq 'powerpc' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87424	87513	
==>/core.ops\"\n  {{\@1}} = Parrot_make_cb(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88426	88515	
==>/core.ops\"\n  {{\@1}} = Parrot_make_cb(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926083	926222	
==>\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927553	927692	
==>\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929023	929162	
==>\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930494	930633	
==>\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	6295	6487	
==>ON});
                $_ = '';
            }

            $self->{PREAMBLE} .= $_
                unless $seen_pod or $count; # Lines up to first op def.

            next;
        }

        d <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	712	828	
==>ent;
    $compiler->emit(".endnamespace ${namespace}");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shif <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931846	931953	
==>c/ops/string.ops\"\n  {{\@1}} = string_upcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932617	932724	
==>c/ops/string.ops\"\n  {{\@1}} = string_upcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039223	1039403	
==>",
                              "p"
                            ],
                  "BODY" => "#line 120 \"src/ops/var.ops\"\n    Parrot_store_global(interpreter, {{\@1}}, {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040115	1040295	
==>",
                              "p"
                            ],
                  "BODY" => "#line 120 \"src/ops/var.ops\"\n    Parrot_store_global(interpreter, {{\@1}}, {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041007	1041187	
==>",
                              "p"
                            ],
                  "BODY" => "#line 120 \"src/ops/var.ops\"\n    Parrot_store_global(interpreter, {{\@1}}, {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041900	1042080	
==>",
                              "p"
                            ],
                  "BODY" => "#line 120 \"src/ops/var.ops\"\n    Parrot_store_global(interpreter, {{\@1}}, {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299603	299909	
==>@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300449	300755	
==>@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301295	301601	
==>@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne <==
4	/Users/nnunley/parrot/config/auto/cgoto.pm	1505	1588	
==>arrot/OpTrans/CGoto.pm lib/Parrot/OpLib/core.pm
	$(PERL) $(BUILD_TOOLS_DIR)/ops2c.pl <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31887	32039	
==>des1, new AssignOp( $parser,
            'result' => $iter,
            'arg1'   => $nil->[0],
        );
        push @return1, $iter;
    }
    e <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	571	664	
==>O::File );

use Pod::Simple::Checker;
use Parrot::Docs::POD2HTML;

my $UNDEFINED = 'Undefined' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758276	758366	
==>Y" => "#line 276 \"src/ops/set.ops\"\n  {{\@1}} = string_set(interpreter, {{\@1}}, {{\@2}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759049	759139	
==>Y" => "#line 276 \"src/ops/set.ops\"\n  {{\@1}} = string_set(interpreter, {{\@1}}, {{\@2}}) <==
4	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	237	340	
==>ccflags = $conf->data->get('ccflags');
    if ($ccflags !~ /-pthread/) {
        $ccflags .= ' -pthread' <==
4	/Users/nnunley/parrot/config/init/hints/netbsd.pm	145	248	
==>ccflags = $conf->data->get('ccflags');
    if ($ccflags !~ /-pthread/) {
        $ccflags .= ' -pthread' <==
4	/Users/nnunley/parrot/config/init/hints/openbsd.pm	237	340	
==>ccflags = $conf->data->get('ccflags');
    if ($ccflags !~ /-pthread/) {
        $ccflags .= ' -pthread' <==
4	/Users/nnunley/parrot/editor/kate_syntax.pl	3130	3226	
==>ive" context="#stay" String="special_directives" />
          <keyword attribute="Type" context=" <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11409	11514	
==>::Value::Identifier->new($block, $token);
      my $op    = substr($self->forth->text, 0, -1);
      my $v <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11956	12061	
==>::Value::Identifier->new($block, $token);
      my $op    = substr($self->forth->text, 0, -1);
      my $v <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12499	12604	
==>::Value::Identifier->new($block, $token);
      my $op    = substr($self->forth->text, 0, -1);
      my $v <==
4	/Users/nnunley/parrot/lib/Test/More.pm	8962	9060	
==>like>

  like( $this, qr/that/, $test_name );

Similar to ok(), like() matches $this against the re <==
4	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6923	7039	
==>$return_type, $name, $params, $section, $mmd) = @$entry;
        next unless $mmd eq '-1';

        my @params    = p <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	272	384	
==>global_state();
}

# R (seq, R, S, ...) : return R && S && ...
# R (scan, R) : scan for R at every position
# R ( <==
4	/Users/nnunley/parrot/examples/benchmarks/mops.pl	97	189	
==>pl 19601 2006-05-30T13:32:26.641316Z coke  $

=head1 NAME

examples/mops/mops.c - Calculate M <==
4	/Users/nnunley/parrot/examples/mops/mops.pl	93	185	
==>pl 19601 2006-05-30T13:32:26.641316Z coke  $

=head1 NAME

examples/mops/mops.c - Calculate M <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	2538	2665	
==>)(?!\w)(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, $1, undef, $1);
      $text = $2;
      next;
    } <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	4064	4191	
==>)(?!\w)(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, $1, undef, $1);
      $text = $2;
      next;
    } <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	4239	4366	
==>)(?!\w)(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, $1, undef, $1);
      $text = $2;
      next;
    } <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	4416	4543	
==>)(?!\w)(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, $1, undef, $1);
      $text = $2;
      next;
    } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262633	262944	
==>@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsam <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264432	264743	
==>@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsam <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265286	265597	
==>@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsam <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266140	266451	
==>@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isntsam <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8428	8556	
==>RROR'
            or  do {
#DBG>				$debug & 0x04
#DBG>			and	print STDERR 
#DBG>				    "go to state $$states[$$stack[-1][0] <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8046	8170	
==>RROR'
            or  do {
#DBG>				$debug & 0x04
#DBG>			and	print STDERR 
#DBG>				    "go to state $$states[$$stack[-1][0] <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	25392	25497	
==>else plain prints to STDOUT will
    # come out in the wrong order from our own prints.
    _autoflush(\*T <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	8529	8629	
==>ource_file} ? "$file_call_coverage{$source_file} %" : "n/a" ]}</a></td>
             <td>[<a href="fu <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10284	10389	
==>value};
    $lambda = _get_arg($node,2);
  }

  if (exists $self->{scope}->{$symbol}) {
    die "define: $ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5470	5570	
==>, 'set', [$pair.'[0]',$item]);
      $self->_add_inst ('', 'set', [$pair.'[1]',$return]);
      $self <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17021	17115	
==>, 'set',[$pair.'[0]',$item]);
    $self->_add_inst ('', 'set',[$pair.'[1]',$return]);
    $self <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6509	6600	
==>, 'set', [$pair.'[0]',$item]);
  $self->_add_inst('', 'set', [$pair.'[1]',$return]);
  $self <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459973	460279	
==>en;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460961	461267	
==>en;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461949	462255	
==>en;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod", <==
4	/Users/nnunley/parrot/tools/dev/lib_deps.pl	2530	2644	
==>ss 2)\n";
    open(F, "$cmd 2>$devnull|")
      || die "Can't run $cmd.\n";

    my %external_calls;
    my %intern <==
4	/Users/nnunley/parrot/config/init/hints/cygwin.pm	262	370	
==>ich for some reason is not
    # in the standard installation, so we get rid of it
    my $libs = $conf->data <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	3069	3175	
==>e eq 'generate') {
    # Convert X.pmc -> X.dump and X.c and also create any lib-GROUP.c files

    generat <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	3173	3279	
==>e eq 'generate') {
    # Convert X.pmc -> X.dump and X.c and also create any lib-GROUP.c files

    generat <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	40626	40715	
==>_generate_identifier,
  'construct-identfier' => \&_op_construct_identifier,
);

#-------- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010878	1011163	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011642	1011927	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012407	1012692	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	953	1050	
==>rl>.  If you I<do> pass the pair, the harness will run the tests with
C<parrot>, calling the C<com <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2884	3008	
==>THQUOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUOTE";
}

our $NOW = time();

################### MAIN PR <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3193	3317	
==>THQUOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUOTE";
}

our $NOW = time();

################### MAIN PR <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2988	3112	
==>THQUOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUOTE";
}

our $NOW = time();

################### MAIN PR <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	27208	27315	
==>f->whine(
          $para->[1]{'start_line'},
          "=over should be: '=over' or '=over positive_number' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793378	793477	
==>Y" => "#line 457 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794283	794382	
==>Y" => "#line 457 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795188	795287	
==>Y" => "#line 457 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796094	796193	
==>Y" => "#line 457 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573389	573675	
==>s",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 655,
                  "ARG <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	7132	7282	
==>r/ /_/;
        
        print {$self->{'output_fh'}} 
            qq(<a name="), esc($name), qq("\n>);
    
    } 
    else 
    {
        print {$sel <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	26300	26423	
==>$func invocation; probably missing description for TODO test"
        );
    } else {
        warn $warning;
    }
}

packag <==
4	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	1499	1613	
==>m $test") if -e $test;

        open my $ffh, '<', $file;
        %tests = extract_tests( do{undef local $/;<$ffh>} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597483	597746	
==>etclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598529	598792	
==>etclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599576	599839	
==>etclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600651	600914	
==>etclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	574	680	
==>\n use Pod::Simple::Debug (\\\$var, STARTNUMVAL)\nAborting");
    }
  } else {
    require Carp;
    Carp:: <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	4454	4555	
==>P1
.end
FOO
}
print CODE<<RUNTIMESHUTDOWN;
	#
	# Pull in the runtime libraries
	#
.include "RT_initial <==
4	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	799	893	
==>ript of the svn:ignore properties
# of the directories in the Parrot subversion repository. (Ne <==
4	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3654	3748	
==>ript of the svn:ignore properties
# of the directories in the Parrot subversion repository. (Ne <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610337	610645	
==>});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setatt <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611239	611547	
==>});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setatt <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612142	612450	
==>});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setatt <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613048	613356	
==>});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setatt <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	24809	24926	
==>meters});
      $cout .= <<"EOC";
        enter_nci_method(interp, entry,
                F2DPTR(Parrot_${classname}_$ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320011	320243	
==>}} = (INTVAL)((Parrot_Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320781	321013	
==>}} = (INTVAL)((Parrot_Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
4	/Users/nnunley/parrot/examples/benchmarks/oo5.pl	205	322	
==>less [ 10, 20 ], $self;
}

sub i {
    my $self = shift;
    if (@_) { $self->[0] = shift } else { $self->[0] }
}

sub <==
4	/Users/nnunley/parrot/examples/benchmarks/oo6.pl	197	314	
==>less [ 10, 20 ], $self;
}

sub i {
    my $self = shift;
    if (@_) { $self->[0] = shift } else { $self->[0] }
}

sub <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130838	131135	
==>"bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131692	131989	
==>"bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132547	132844	
==>"bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3936	4068	
==>literal' });
        }

        my $ident = $2;
        $ident =~ s/^{(.*)}$/$1/; # Strip '{' and '}'.

        $handler->start_eleme <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8086	8265	
==>y $found = $self->find_symbol($name);

  return $found ? $found->type : undef;
}


###############################################################################

=head2 BLOCK->ki <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1369	1455	
==>-Wpacked -Wdisabled-optimization -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHA <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1414	1500	
==>-Wpacked -Wdisabled-optimization -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHA <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1418	1504	
==>-Wpacked -Wdisabled-optimization -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHA <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12572	12713	
==>..)
    s/DYNSELF           # Macro: DYNSELF
      \.(\w+)           # other_method
      \(\s*(.*?)\)      # capture argument list
     /"pmc <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2745	2839	
==>est_type;
  $self->INTERNAL_ERROR("No type for left!")  unless defined $left_type;
  $self->INT <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2511	2605	
==>est_type;
  $self->INTERNAL_ERROR("No type for left!")  unless defined $left_type;
  $self->INT <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2433	2527	
==>est_type;
  $self->INTERNAL_ERROR("No type for left!")  unless defined $left_type;
  $self->INT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332488	332585	
==>n(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333766	333863	
==>n(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335044	335141	
==>n(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336323	336420	
==>n(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpre <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21888	22020	
==>xt;
      }
      
      unless($content =~ m/^\S+$/) {  # i.e., unless it's one word
        $self->whine(
          $para->[1]{'sta <==
4	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4259	4388	
==>_calls{$1}{"$file:$function"}++ 
                  unless ($variable_visible{$file}{$1} || 
                          $variable_vi <==
4	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4524	4651	
==>_calls{$1}{"$file:$function"}++
                  unless ($variable_visible{$file}{$1} ||
                          $variable_vi <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1528	1617	
==>ng strPC
.local int stack_depth
.local pmc prop_type_state, prop_stack_depth, lazy_moves
s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010799	1011057	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011563	1011821	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012328	1012586	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	8467	8575	
==>%arg =        ($#arg & 01) ? @arg : (@arg, undef);
	my $text;
	my $lastsep="";
	local ($Parse::RecDescent::fa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072670	1072792	
==>1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074855	1074977	
==>1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077040	1077162	
==>1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079226	1079348	
==>1 ) {\n    /* no correction necessary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544584	544731	
==>gcd = b<<p;\n saved_var1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545920	546067	
==>gcd = b<<p;\n saved_var1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547256	547403	
==>gcd = b<<p;\n saved_var1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	3601	3696	
==>a> will have C<need_ext>.

=item C<does interface>

The class 'does' the given interfaces (the c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504007	504120	
==>"BODY" => "#line 631 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504862	504975	
==>"BODY" => "#line 631 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505717	505830	
==>"BODY" => "#line 631 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	265	373	
==>Modules


# Create a parser that outputs an Array
$::RD_ERRORS = 1;
$::RD_WARN   = 1;
$::RD_HINT   = 1;
#$::R <==
4	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1267	1382	
==>on is not available in the
        # standard edition compiler' warning each time we compile.
        # The logo get <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5530	5629	
==>set', [$pair.'[1]',$return]);
      $self->_add_inst ('', 'set', [$return,$pair]);
      $self->_res <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17078	17172	
==>set',[$pair.'[1]',$return]);
    $self->_add_inst ('', 'set',[$return,$pair]);

    $self->_res <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6564	6654	
==>set', [$pair.'[1]',$return]);
  $self->_add_inst('', 'set', [$return,$pair]);
  $self->_res <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3078	3183	
==>{
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do w <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4836	4941	
==>{
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do w <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7764	7868	
==>{
		$pir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do w <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8620	8724	
==>{
		$pir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Do w <==
4	/Users/nnunley/parrot/languages/urm/urm-old.pl	724	833	
==>e = $1;
	# Some beautification!
	$code =~ s/ +/ /g;
	$code =~ s/\#.*//g;
	next unless $code;
	push @program, $ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	366	467	
==>he backtracking point that
# can be returned to within the processing of the current $op to fix
# up t <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10886	10984	
==>stance from
the cache, and undefines it.

Raises an exception if the delete fails.

=cut

sub delet <==
4	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4720	4818	
==>stance from the cache, and undefines it.

Raises an exception if the delete fails.

=cut

sub delet <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	47258	47343	
==>}


#-----------------------------------------------------------------------------

su <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	14706	14790	
==>}

#-----------------------------------------------------------------------------

su <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	17728	17812	
==>}

#-----------------------------------------------------------------------------

su <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	46056	46140	
==>}

#-----------------------------------------------------------------------------

su <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2000	2103	
==>{
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Se <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3252	3355	
==>{
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Se <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5882	5984	
==>{
		$pir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Se <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6440	6542	
==>{
		$pir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_depth]

# Se <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	626604	626888	
==>JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627747	628031	
==>JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628891	629175	
==>JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
4	/Users/nnunley/parrot/lib/Parrot/Op.pm	971	1067	
==>te that argument 0 is considered to be the op itself, with arguments
1..9 being the arguments pas <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	13023	13127	
==>New;}
{\f2\fswiss Arial;}
}

END
}

sub doc_init {
   return <<'END';
{\rtf1\ansi\deff0

END
}

sub color <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2232	2327	
==>entifier')) {
    my $right_sym = $block->find_symbol($right->value);
    $self->SYNTAX_ERROR("E <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2190	2285	
==>entifier')) {
    my $right_sym = $block->find_symbol($right->value);
    $self->SYNTAX_ERROR("E <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2112	2207	
==>entifier')) {
    my $right_sym = $block->find_symbol($right->value);
    $self->SYNTAX_ERROR("E <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920490	920787	
==>ntf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 103 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921382	921679	
==>ntf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 103 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	922275	922572	
==>ntf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 103 <==
4	/Users/nnunley/parrot/config/init/optimize.pm	728	827	
==>er, use that instead. 
    my $optimize = $conf->options->get('optimize');
    if (defined $optimize <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	20384	20506	
==>new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new NewOp( $parser,
        'result' => $ <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21663	21785	
==>new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new NewOp( $parser,
        'result' => $ <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	22806	22928	
==>new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new NewOp( $parser,
        'result' => $ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4204	4297	
==>match a single input atom (eg a character or
# character class.)
package Regex::Ops::Tree::_at <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276240	276547	
==>@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277118	277425	
==>@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277996	278303	
==>@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7267	7409	
==>_\"\n(should be \"#$indent$2\" because it is inside of " . (join ' > ', @stack) . ")\n")
            }
            next;
        }
        if ( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072812	1072930	
==>( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074997	1075115	
==>( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077182	1077300	
==>( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079368	1079486	
==>( x - y == r1 ) {\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( -x + y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6} <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3285	3389	
==>def', 'apply_CALL'],
  ['',            'set', 'P17', 'P16'],
  ['apply_COUNT', 'ne', 'I16', '.Undef', 'ap <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2761	2865	
==>ic as C<expr_pop()>.

=cut

sub expr_address
{
    my ($self, $addr) = @_;
    return "opcode_to_prederef <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561904	562003	
==>if (!{{\@1}}) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not f <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562988	563087	
==>if (!{{\@1}}) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not f <==
4	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	19105	19204	
==>op;
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::Op>

=item C<Parrot::OpTrans>

=item F<tools <==
4	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	1914	2184	
==>:run_command( 
                                \@test_prog, 
                                CD     => $self->{relpath}, 
                                STDOUT => $out_fn,
                                STDERR => $out_fn 
                            );
  
           my <==
4	/Users/nnunley/parrot/config/gen/platform.pm	2853	2989	
==>aders = grep { /\.h$/ } split(',', $generated);
    for (@headers) {
        if (-e $_) {
            local $/ = undef;
            print <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1918	2015	
==>rn, passing the test if
they do not match. The same pattern argument syntax above applies here.

= <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3450	3547	
==>rn, passing the test if
they do not match. The same pattern argument syntax above applies here.

= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332566	332663	
==>} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO al <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333844	333941	
==>} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO al <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335122	335219	
==>} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO al <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336401	336498	
==>} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO al <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071793	1071894	
==>e 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073978	1074079	
==>e 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076163	1076264	
==>e 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078349	1078450	
==>e 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332753	333031	
==>T discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334031	334309	
==>T discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335309	335587	
==>T discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336588	336866	
==>T discarding the const\n     qualifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	618264	618560	
==>> "pic_inline_sub__",
                  "FLAGS" => ":pic",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
4	/Users/nnunley/parrot/config/inter/make.pm	1347	1486	
==>ake', 'nmake', 'make'],
            $verbose);

        unless ($prog) {

            # fall back to default
            $self->set_result(' <==
4	/Users/nnunley/parrot/lib/Parrot/PMC.pm	957	1058	
==>2,
	FixedStringArray => 43,
	MultiArray => 44,
	Hash => 45,
	OrderedHash => 46,
	TQueue => 47,
	Parrot <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	52758	52850	
==>nder of the string. Thus C<extract_multiple> is
a generalized form of Perl's C<split> subrout <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024545	1024829	
==>,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 114 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025301	1025585	
==>,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 114 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026058	1026342	
==>,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 114 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026814	1027098	
==>,
                  "NAME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 114 <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30609	30752	
==>NS => {
			"-" => 72,
			"<" => 74,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<=" => <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39959	40102	
==>NS => {
			"-" => 72,
			"<" => 74,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<=" => <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41586	41729	
==>NS => {
			"-" => 72,
			"<" => 74,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<=" => <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	12970	13068	
==>ise it's a syntax error
    $self->whine( $para->[1]{'start_line'},
      "Invalid =encoding syntax <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	2200	2301	
==>ng the control statement to:
  #

  my $loop_block = $block->find_block('while', $name);

  unless (de <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8064	8209	
==>DBG>			$debug & 0x04
#DBG>		and	print STDERR "Accept.\n";

				return($semval);
			};

                $$check eq 'ABORT'
            and	d <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7701	7839	
==>DBG>			$debug & 0x04
#DBG>		and	print STDERR "Accept.\n";

				return($semval);
			};

                $$check eq 'ABORT'
            and	d <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	9350	9474	
==>1
    .return ($N1)
one:
    $N1 = sin op2
    .return ($N1)
two:
    $N1 = cos op2
    .return ($N1)
three:
    $N1 = tan op <==
4	/Users/nnunley/parrot/tools/build/ops2c.pl	5484	5568	
==>ersion}_${minor_version}_${patch_version}";
my $init_func = "Parrot_DynOp_${base}${su <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080542	1080655	
==>@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimen <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081607	1081720	
==>@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimen <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082672	1082785	
==>@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimen <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083738	1083851	
==>@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "experimen <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597436	597719	
==>ROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598482	598765	
==>ROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599529	599812	
==>ROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600604	600887	
==>ROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
4	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	234	338	
==>y $ccflags = $conf->data->get('ccflags');
    if ($ccflags !~ /-pthread/) {
        $ccflags .= ' -pthrea <==
4	/Users/nnunley/parrot/config/init/hints/netbsd.pm	142	246	
==>y $ccflags = $conf->data->get('ccflags');
    if ($ccflags !~ /-pthread/) {
        $ccflags .= ' -pthrea <==
4	/Users/nnunley/parrot/config/init/hints/openbsd.pm	234	338	
==>y $ccflags = $conf->data->get('ccflags');
    if ($ccflags !~ /-pthread/) {
        $ccflags .= ' -pthrea <==
4	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	18600	18703	
==>./;

    return $1;
}

=item C<minor_version()>

Returns the minor version number.

=cut

sub minor_vers <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	3892	4007	
==>up_files) {
        compile("$group", "lib-$group")
          or die "compile $group.c failed ($?)\n";
    }
} 
elsi <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	3996	4111	
==>up_files) {
        compile("$group", "lib-$group")
          or die "compile $group.c failed ($?)\n";
    }
} 
elsi <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2643	2741	
==>d =head2

 'item-bullet'  => "\n{\\pard\\li#rtfindent##rtfitemkeepn#\\sb60\\sa150\\fi-120\n",
 '/it <==
4	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	472	569	
==>ION

This file generates a set of F<MANIFEST.*> files that give the final
locations in the file sy <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909304	909397	
==>line 284 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910201	910294	
==>line 284 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911098	911191	
==>line 284 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911996	912089	
==>line 284 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11829	12019	
==>'arg1'   => $last_key->[0],
                        'arg2'   => undef,
                        'result' => $result,
                    );
                    return [ $defn, \@opcodes, $ <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10025	10199	
==>'arg1'   => $last_key->[0],
                    'arg2'   => undef,
                    'result' => $result,
                );
                return [ $defn, \@opcodes, $ <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8872	9014	
==>'arg1'   => $last_key->[0],
            'arg2'   => undef,
            'result' => $result,
        );
        return [ $defn, \@opcodes, $ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12435	12533	
==>if ( $#{$self->{"items"}} >= 0 )
	{
		my $subrule = $self->{"items"}[0]->issubrule();
		return $sub <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	1988	2105	
==>'};
    };
    _subclass_error() if @$isa;
    tie @$isa, 'Class::Struct::Tie_ISA';

    # Create constructor.

    cr <==
4	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	2025	2141	
==>, $pbc, $pir);
    if (! defined($status) || $status) {
        die "assemble failed with status " . ($? >> 8);
    } <==
4	/Users/nnunley/parrot/languages/regex/test.pl	3699	3815	
==>, $pbc, $pir);
    if (! defined($status) || $status) {
        die "assemble failed with status " . ($? >> 8);
    } <==
4	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	99	199	
==>5-30T02:28:15.110975Z coke  $

package init::hints::dec_osf;

use strict;

sub runstep
{
    my ($sel <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5640	5733	
==>stem$LOAD_EXT", "$stem$O")) {
        run(partial_link_cmd("$stem$LOAD_EXT", $libs, [ "$stem$O <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23263	23349	
==>goto = Jako::Construct::Statement::Goto->new($block, $ident, $cond, $left, $op, $right) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756711	756794	
==>71 \"src/ops/set.ops\"\n  {{\@1}}->vtable->assign_string_native(interpreter, {{\@1}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757501	757584	
==>71 \"src/ops/set.ops\"\n  {{\@1}}->vtable->assign_string_native(interpreter, {{\@1}} <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26603	26705	
==>ule->{'class'} eq 'op') {
		# Init destination types array.
		$pir .= "    dtypes = new ResizablePMCArr <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	49	144	
==>();
use base 'Regex::CodeGen';
use strict;

my $fail_label = Regex::Ops::Tree::mark('FAIL');

su <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	65	159	
==>()
use base 'Regex::CodeGen';
use strict;

my $fail_label = Regex::Ops::Tree::mark('FAIL');

su <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	66	160	
==>()
use base 'Regex::CodeGen';
use strict;

my $fail_label = Regex::Ops::Tree::mark('FAIL');

su <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240190	240358	
==>preter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241138	241306	
==>preter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242086	242254	
==>preter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243035	243203	
==>preter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601946	602217	
==>" => [
                              "p"
                            ],
                  "BODY" => "#line 383 \"src/ops/object.ops\"\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	58255	58378	
==>ine);
					_hint("Did you misspell \"$code\"
						   or forget to comment it out?");
				}
			}
		}
		elsif ($grammar =~ m/ <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4758	4861	
==>DO NOT remove comment at end of sub !!!
sub _Parse {
    my($self)=shift;

	my($rules,$states,$lex,$ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4522	4621	
==>DO NOT remove comment at end of sub !!!
sub _Parse {
    my($self)=shift;

	my($rules,$states,$lex,$ <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	17754	17851	
==>odified implicit construction of nested objects.
   Now will also take an object ref instead of re <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9617	9709	
==>P0}, ${PTEMP1}, ${PTEMP2}) = method_info_from_token(${ASSEMBLY}, ${ARG0})

# If it's a call t <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7131	7223	
==>P0}, ${PTEMP1}, ${PTEMP2}) = method_info_from_token(${ASSEMBLY}, ${ARG0})

# If it's a call t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404717	405025	
==>});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockad <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405629	405937	
==>});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockad <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406541	406849	
==>});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockad <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	3988	4099	
==>syms[CURR] eq "print") {
		&parse_print;
		goto PARSE_NOFEED;
	}
	#
	# Handle all of the IF-THEN logic
	#
	my $f <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253239	253538	
==>" => 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254101	254400	
==>" => 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254964	255263	
==>" => 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/config/gen/core_pmcs.pm	2261	2381	
==>\n"
        foreach (@pmcs[0 .. $#pmcs - 1]);
    print OUT <<"END_C";
        if (!pass) {
	    parrot_global_setup_2(in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455941	456362	
==>RS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 523,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => " <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15306	15425	
==>rd($1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # return a single scalar
    ($x = ((@_ == 1) ? $_[0] : j <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16487	16606	
==>rd($1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # return a single scalar
    ($x = ((@_ == 1) ? $_[0] : j <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	19723	19828	
==>rget_name!\n";
        $to_resolve = 1
          if $self->{'accept_targets'}{$target_name} eq 'force_reso <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	13331	13473	
==>$this};

    while (@todo) {
        my $n   = shift @todo;
        my $sub = $all->{$n};
        next if $n eq 'default';

        my %parent_ <==
4	/Users/nnunley/parrot/config/init/hints/solaris.pm	2121	2244	
==>d_cb = sub {
        my ($key, $gccversion) = @_;

        if ($gccversion) {
            $conf->data->set(cc_shared => '-fP <==
4	/Users/nnunley/parrot/tools/dev/nm.pl	5988	6096	
==>(bsd long)} = ();
$Type = 'bsd' if $BSD ||
		 (defined $Type && $Type eq '1'); # So they used --t.
$Type = 'l <==
4	/Users/nnunley/parrot/config/auto/cgoto.pm	1461	1543	
==>lib/Parrot/OpsFile.pm lib/Parrot/Op.pm lib/Parrot/OpTrans/CGoto.pm lib/Parrot/OpLib <==
4	/Users/nnunley/parrot/lib/Parrot/Op.pm	6817	6922	
==>)}}/    $trans->expr_offset(-$1); /me;
    s/{{\^([^{]*?)}}/     $trans->expr_address($1); /me;

    retur <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5508	5601	
==>self->_add_inst ('', 'set', [$pair.'[1]',$return]);
      $self->_add_inst ('', 'set', [$retur <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17056	17145	
==>self->_add_inst ('', 'set',[$pair.'[1]',$return]);
    $self->_add_inst ('', 'set',[$retur <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6543	6630	
==>self->_add_inst('', 'set', [$pair.'[1]',$return]);
  $self->_add_inst('', 'set', [$retur <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1092837	1092944	
==>{{\@1}} = {{\@2}}->vtable->get_iter(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "experimental <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9892	9993	
==>and put them into ${PARAMS}. Note that they come
# off the stack last to first, but need to be first t <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7406	7507	
==>and put them into ${PARAMS}. Note that they come
# off the stack last to first, but need to be first t <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6370	6471	
==>and put them into ${PARAMS}. Note that they come
# off the stack last to first, but need to be first t <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1129	1242	
==>$ident->line,
  }, $class;

  #
  # Check for a few bad conditions.
  #
  # NOTE: These are compiler internal cons <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1032	1145	
==>$ident->line,
  }, $class;

  #
  # Check for a few bad conditions.
  #
  # NOTE: These are compiler internal cons <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658242	658329	
==>c/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed(i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659161	659248	
==>c/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed(i <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4968	5108	
==>ent);
      my $name = $ident->value;

      #
      # Allow there to be Properties:
      #

      my %props;

      while ($self->skip_colo <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7962	8102	
==>ent);
      my $name = $ident->value;

      #
      # Allow there to be Properties:
      #

      my %props;

      while ($self->skip_colo <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	992	1106	
==>c ${ITEMP1}

    # Build set instruction.
    ${INS} = concat "set $"
    ${INS} = concat ${STEMP0}
    ${INS} = co <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20427	20539	
==>ING: * in TYPE not supported yet for $name\n";
				feedme;
				feedme;
			}
			while($type[CURR] eq "STMT" or $ty <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	923723	923981	
==>{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => " <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6391	6497	
==>Label);
    return ($self->dbprint("At end: %<rx_pos> >= %<rx_len>?\n"),
            "goto $fail if <rx_pos <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2249	2339	
==>that.
  }
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2352	2442	
==>that.
  }
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247076	247373	
==>E" => "and",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247939	248236	
==>E" => "and",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	248803	249100	
==>E" => "and",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6601	6806	
==>lurpy";
                }
                $first = 0;
            }
            print {$FH} ") = ";
        }
        my @args = @{ $op->{arg2} };
        my $obj  = shift @args;
        print {$FH} <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15254	15335	
==>$x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15571	15652	
==>$x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16435	16516	
==>$x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16750	16831	
==>$x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83657	83752	
==>"\n  PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interpreter,\n      interpreter->igloba <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84563	84658	
==>"\n  PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interpreter,\n      interpreter->igloba <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85468	85563	
==>"\n  PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interpreter,\n      interpreter->igloba <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86375	86470	
==>"\n  PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interpreter,\n      interpreter->igloba <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044670	1044762	
==>"BODY" => "#line 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interpreter, {{\@1}}, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045564	1045656	
==>"BODY" => "#line 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interpreter, {{\@1}}, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046458	1046550	
==>"BODY" => "#line 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interpreter, {{\@1}}, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047353	1047445	
==>"BODY" => "#line 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interpreter, {{\@1}}, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547581	547846	
==>MP" => 0,
                  "NAME" => "fact",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548487	548752	
==>MP" => 0,
                  "NAME" => "fact",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "in <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	68539	68652	
==>e lookahead ("...")' ;
			_warn(1,"Found two or more lookahead specifiers in a
			       row.",$line)
			and
			_h <==
4	/Users/nnunley/parrot/examples/benchmarks/primes.pl	57	147	
==>.
# $Id: /parrot/examples/benchmarks/primes.pl 19601 2006-05-30T13:32:26.641316Z coke  $

= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926076	926207	
==>@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STRINGINFO_ST <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927546	927677	
==>@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STRINGINFO_ST <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929016	929147	
==>@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STRINGINFO_ST <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930487	930618	
==>@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STRINGINFO_ST <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084738	1084861	
==>ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "ex <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085791	1085914	
==>ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "ex <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086844	1086967	
==>ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "ex <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087898	1088021	
==>ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "ex <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072176	1072314	
==>1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074361	1074499	
==>1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076546	1076684	
==>1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078732	1078870	
==>1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	26638	26842	
==>"ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 452 \"src/ops/core.ops\"\n  {{\@1}} = parrot_new_closure(i <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2379	2477	
==>main  (array=$array)
	P0= P10[0]
	P1= P0["$stype"]
	P0= P1["$var"]	# Pull the original
	P2= P10[I25 <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2606	2704	
==>main  (array=$array)
	P0= P10[0]
	P1= P0["$stype"]
	P0= P1["$var"]	# Pull the original
	P2= P10[I25 <==
4	/Users/nnunley/parrot/config/init/hints/aix.pm	45	132	
==>$Id: /parrot/config/init/hints/aix.pm 19593 2006-05-30T02:28:15.110975Z coke  $

package <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13791	13895	
==>er of lines, C<$out_name> is the name of the output file we are
generating.

=cut

sub body
{
    my ($se <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29574	29678	
==>er of lines, C<$out_name> is the name of the output file we are
generating.

=cut

sub body
{
    my ($se <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30216	30320	
==>er of lines, C<$out_name> is the name of the output file we are
generating.

=cut

sub body
{
    my ($se <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6769	6878	
==>d post load operation hooks.
sub pre_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# I <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4707	4816	
==>d post load operation hooks.
sub pre_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# I <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3579	3688	
==>d post load operation hooks.
sub pre_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# I <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	39921	40030	
==>implicit'} = 'yes';
        $link_text = [];
        push @$link_text, '"', @$section_name, '"' if $section_na <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9453	9550	
==>f we've got a return or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6967	7064	
==>f we've got a return or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5523	5620	
==>f we've got a return or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072111	1072250	
==>INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074296	1074435	
==>INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076481	1076620	
==>INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078667	1078806	
==>INTVAL n = 1;\n\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23961	24091	
==>edo unless (<value> <op> <value>);
    #
    #   redo <label>;
    #   redo <label> if     (<value> <op> <value>);
    #   redo <la <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1299	1397	
==>stency checks. They really should not be
  # triggered in normal operation, even with bad source co <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1244	1342	
==>stency checks. They really should not be
  # triggered in normal operation, even with bad source co <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1147	1245	
==>stency checks. They really should not be
  # triggered in normal operation, even with bad source co <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549464	549708	
==>E" => "callmethodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functio <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550764	551008	
==>E" => "callmethodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functio <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552065	552309	
==>E" => "callmethodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functio <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	43584	43694	
==>E
		[a-z0-9]*	# FOLLOWED BY ANY NUMBER OF ALPHANUMERICS
	   /x'

will be extracted as if it were:

	'm /
		(?i) <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	16586	16700	
==>ift;
    my $pmc = $file;
    $pmc =~ s/\.\w+$/.pmc/;

    ($pmc ne $file) or die "$pmc is the same as the original <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	158	254	
==>'Exporter');
$VERSION = '1.03';
@EXPORT_OK = qw(
  %Code2USASCII
  %Name2character
  %Name2charac <==
4	/Users/nnunley/parrot/config/auto/bc.pm	488	578	
==>ig;
use Parrot::Configure::Step ':auto', 'capture_output';

$description = 'Determining whe <==
4	/Users/nnunley/parrot/config/auto/m4.pm	462	552	
==>ig;
use Parrot::Configure::Step ':auto', 'capture_output';

$description = 'Determining whe <==
4	/Users/nnunley/parrot/config/auto/pack.pm	2261	2374	
==>ize == $ptrsize) {
        $conf->data->set(ptrconst => "u");
    } elsif ($longsize == $ptrsize) {
        $conf- <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1149	1258	
==>return shift->{NAME};  }
sub args { return @{shift->{ARGS}}; }


#
# compile()
#

sub compile
{
  my $self = s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	968	1077	
==>return shift->{NAME};  }
sub args { return @{shift->{ARGS}}; }


#
# compile()
#

sub compile
{
  my $self = s <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29801	29889	
==>self->SUPER::body($self->{methods}[$n], $line, $out_name);
}

=back

=head2 Parrot::Pmc2c <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27940	28041	
==>"} ? '$text = $_savetext;' : '').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDesce <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30014	30115	
==>"} ? '$text = $_savetext;' : '').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDesce <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32215	32316	
==>"} ? '$text = $_savetext;' : '').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDesce <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	273	370	
==>thout class membership tests:
my $CHECK_CLASS_MEMBERSHIP = ($] >= 5.003_95);

my $print = 0;
sub p <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	49259	49374	
==>s up.
        DEBUG > 4 and print " And that's more than we needed to close simple.\n";
        push @{ $lineage[-1] <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	100	202	
==>:EXPORT = qw(rop);

# Tree operators
#
# This package defines operators that can be used to construct a <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1758	1848	
==>. q[/Users/nnunley/parrot/tools/build/pmc2c.pl] . $PATHQUOTE;

# Actual commands
sub compil <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1849	1939	
==>. q[/Users/nnunley/parrot/tools/build/pmc2c.pl] . $PATHQUOTE;

# Actual commands
sub compil <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173669	173966	
==>VE",
                  "NAME" => "ne_str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143330	143581	
==>E" => 175,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 84 \"src/ops/cmp.ops\"\n  if (string_equ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163649	163900	
==>ODE" => 197,
                  "ARGS" => [
                              "n",
                              "nc",
                              "ic"
                            ],
                  "BODY" => "#line 183 \"src/ops/cmp.ops\"\n  if ({{\@1} <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	57817	57962	
==>ldLiteral( $_[0], $_[1], 'string' ),
            ];
        }
	],
	[#Rule 95
		 '@11-1', 0,
sub
#line 503 "Lua\lua51.yp"
{
            Pu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404632	404721	
==>/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405544	405633	
==>/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406456	406545	
==>/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407369	407458	
==>/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short){{\@2}}, {{\@3}});\n <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	11434	11544	
==>oken->text;
      } elsif( $token->is_end and $token->tagname eq 'head1' ) {
        DEBUG and print "  Found e <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22179	22287	
==>::Expression::Value->new($block, $self->require_value);

        $self->require_close_paren;
      }

      $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23112	23220	
==>::Expression::Value->new($block, $self->require_value);

        $self->require_close_paren;
      }

      $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24758	24865	
==>::Expression::Value->new($block, $self->require_value);
        $self->require_close_paren;
      }

      $ <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31737	31854	
==>if (    scalar( @{$exprs} ) == 0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallO <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	32388	32505	
==>if (    scalar( @{$exprs} ) == 0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallO <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33038	33155	
==>if (    scalar( @{$exprs} ) == 0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallO <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33561	33678	
==>if (    scalar( @{$exprs} ) == 0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663797	664090	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664569	664862	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665345	665638	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" <==
4	/Users/nnunley/parrot/languages/converter.pl	1818	1924	
==>nal
#		{[@item]}
		{ $item[1] }


terminal	: "'" /[^']*/ "'" mod(?)
#		{[@item]}
		{ qq('$item[2]') . ::mod <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1977	2075	
==>a'    => "\n{\\pard\\li#rtfindent#\\sa180\n",
 '/Para'   => "\n\\par}\n",
 'head1'   => "\n{\\pard\ <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	6445	6615	
==>xec', 'exec_save'],
                'sources' => ['exec_start']
            ),
        ),
        $self->new_group(
            'IO', 
            '',
            $self->c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126505	126604	
==>"BODY" => "#line 271 \"src/ops/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  cons <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127640	127739	
==>"BODY" => "#line 271 \"src/ops/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  cons <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128775	128874	
==>"BODY" => "#line 271 \"src/ops/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  cons <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2337	2454	
==>oin( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ /gcc/i) {
            $liblist =~ s/gdbm\.lib/-llibgdbm/i <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2629	2746	
==>oin( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ /gcc/i) {
            $liblist =~ s/gdbm\.lib/-llibgdbm/i <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2424	2541	
==>oin( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ /gcc/i) {
            $liblist =~ s/gdbm\.lib/-llibgdbm/i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73254	73609	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74856	75211	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76458	76813	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1685	1779	
==>ompiler->emit("  $temp_pmc = global \"$ident_name\"");
    $compiler->emit("  $temp_reg = $temp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344241	344332	
==>_to_cstring(interpreter, {{\@2}});\n  const char * const mode = string_to_cstring(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345483	345574	
==>_to_cstring(interpreter, {{\@2}});\n  const char * const mode = string_to_cstring(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346725	346816	
==>_to_cstring(interpreter, {{\@2}});\n  const char * const mode = string_to_cstring(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347968	348059	
==>_to_cstring(interpreter, {{\@2}});\n  const char * const mode = string_to_cstring(interprete <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	46707	46850	
==>. . . . . . . . . . . . . . . . . . . . . . .
# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
#=================== <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	46755	46873	
==>. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
#========================================== <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	46801	46896	
==>. . . . . . . . . . . . . . .
#================================================================= <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	378	484	
==>->YYData->{srcname}, ':',
        $parser->YYData->{lineno}, ': ', $msg
        if ( exists $parser->YYDa <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	844	950	
==>->YYData->{srcname}, ':',
        $parser->YYData->{lineno}, ': ', $msg
        if ( exists $parser->YYDa <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1302	1408	
==>->YYData->{srcname}, ':',
        $parser->YYData->{lineno}, ': ', $msg
        if ( exists $parser->YYDa <==
4	/Users/nnunley/parrot/tools/build/ops2pm.pl	8214	8317	
==>e all autogenerated ops from oplib/core
    # there are unwanted permutations like 'add_i_ic_ic
    # wh <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	4915	5043	
==>line++;
        next unless $_;

        if (/^(\s*).*\{\s*$/) {
            # note the beginning of a block, and its indent dept <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22005	22110	
==>t(1);
  my $temp = $self->_generate($node->{children}[1]);
  $self->_add_inst(''           ,'lt'    ,[$tem <==
4	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4038	4251	
==>ble;
            next;
        }
        
        if ($function) {
            if (/Calls (.*) : (.*)/) {                                
                # calling another function within parrot.
                $i <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	15288	15415	
==>ODE' => 6,
			"." => 15
		},
		GOTOS => {
			'expr' => 11,
			'charclass' => 12,
			'regex' => 54,
			'regex1' => 7
		}
	},
	{#S <==
4	/Users/nnunley/parrot/config/inter/libparrot.pm	388	487	
==>age inter::libparrot;

use strict;
use vars qw($description @args);

use base qw(Parrot::Config <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1399	1490	
==>->DEBUG(0, "Searching for symbol '$name'...");

  my $sym = $self->block->find_symbol($name) <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1144	1235	
==>->DEBUG(0, "Searching for symbol '$name'...");

  my $sym = $self->block->find_symbol($name) <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	8676	8802	
==>ose    stdout" if $out;
    close STDERR             or die "Can't close    stderr" if $err;

    open  STDOUT, ">&OLDOUT" or d <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8208	8321	
==>ose    stdout" if $out;
    close STDERR or die "Can't close    stderr" if $err;

    open STDOUT, ">&OLDOUT" or d <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13657	13759	
==>er
print t.foo
print t

' Passing structures
' Expect:  100, 12 and 103
type first
	foo as integer
	bar <==
4	/Users/nnunley/parrot/lib/Parrot/Op.pm	6935	7025	
==>em C<rewrite_body($body, $trans)>

Performs the various macro substitutions using the speci <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492303	492572	
==>AME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 5 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493063	493332	
==>AME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 5 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499036	499305	
==>AME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 5 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499798	500067	
==>AME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 5 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215090	215363	
==>\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216031	216304	
==>\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216970	217243	
==>\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217910	218183	
==>\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867240	867339	
==>r, {{\@2}});\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868206	868305	
==>r, {{\@2}});\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869172	869271	
==>r, {{\@2}});\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870139	870238	
==>r, {{\@2}});\n  {{\@1}} = string_substr(interpreter, {{\@2}}, {{\@3}}, len, &{{\@1}}, 0);\n  {{+=4}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642361	642717	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643249	643605	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644141	644497	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645034	645390	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25184	25288	
==>? @{$node->{children}} - 1 : 0;

  if($num_children==0) {
    $return = $self->_constant(0);
  } elsif($n <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27084	27188	
==>? @{$node->{children}} - 1 : 0;

  if($num_children==0) {
    $return = $self->_constant(0);
  } elsif($n <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24296	24399	
==>? @{$node->{children}} - 1 : 0;
  if($num_children==0) {
    $return = $self->_constant(0);
  } elsif($n <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26195	26298	
==>? @{$node->{children}} - 1: 0;

  if($num_children==0) {
    $return = $self->_constant(0);
  } elsif($n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939941	940328	
==>",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1057,
                  "ARGS" => [
                              "p",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 48 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813943	814202	
==>=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814565	814824	
==>=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	815193	815452	
==>=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302119	302376	
==>@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302995	303252	
==>@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303871	304128	
==>@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	751234	751322	
==>t_string_native(interpreter, {{\@1}},\n    string_copy(interpreter, {{\@2}}));\n  {{+=3}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031436	1031537	
==>ps/sys.ops\"\n    if ({{\@2}} < enum_first_type || {{\@2}} >= enum_last_type)\n        {{\@1}} = -1;\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032305	1032406	
==>ps/sys.ops\"\n    if ({{\@2}} < enum_first_type || {{\@2}} >= enum_last_type)\n        {{\@1}} = -1;\n <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	59462	59558	
==>ape char
is used for the remaining delimiters.
If no escape char is specified for a given specifi <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	5265	5360	
==>ing some really
complicated feature into the new Testing module.  He observed that the
main prob <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	57998	58151	
==>hScope( $_[0] );
        }
	],
	[#Rule 96
		 'function', 3,
sub
#line 508 "Lua\lua51.yp"
{
            $_[3];
        }
	],
	[#Rule 97
		 'fun <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65694	65815	
==>:RecDescent::Repetition($name,"$1..",$1,$MAXREP,
										   $lookahead,$line,
										   $self,
										   $matchrul <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	14421	14517	
==>es, or a reference to a hash containing named 
arguments to be passed to the element's constructo <==
4	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	4351	4440	
==>isting_file_with_name($module);
}

=item C<docs_directory()>

Returns the documentation di <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27625	27737	
==>($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$ <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30092	30204	
==>($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$ <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33510	33622	
==>($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$ <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37174	37286	
==>($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	7158	7318	
==>fn',
          fnlib => $fnlib,
          fn    => $fn
        }
      });
    }
  }
  else {
    return;
  }

  foreach my $arg ($self->args) {
    my ($arg_typ <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	1478	1576	
==>t_jit_fn_info_t _op_jit[$core_numops] = {\n";
    $func_end = '_jit';
    $normal_op = 'Parrot_jit_ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1560	1650	
==>$self->INTERNAL_ERROR("Type is not a Jako::Construct::Type instance!")
    unless UNIVERSAL <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1408	1498	
==>$self->INTERNAL_ERROR("Type is not a Jako::Construct::Type instance!")
    unless UNIVERSAL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73053	73148	
==>1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74655	74750	
==>1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76257	76352	
==>1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77860	77955	
==>1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1}}->vtable->set_pointer_keyed_str(interp <==
4	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	3846	3967	
==>try->[4] =~ /MMD_/);
        $struct .= "    $entry->[1]_method_t $entry->[1];\n";
    }

    $struct .= "};\n";

    retu <==
4	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1612	1724	
==>1 => 7, S12 => 12, S13 => 17, S14 => 22, S21 => 5, S22 => 9, S23 => 14,
	S24 => 20, S31 => 4, S32 => 11, S33 => 1 <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	8588	8690	
==>erp, $pmc);
    if ($for_header) {
        $export = $self->{flags}->{dynpmc} ? 'PARROT_DYNEXT_EXPORT ' <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	4285	4378	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

#sub curr_open { # read-only list accessor
#  retu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050184	1050281	
==>{\@2}})\n\tinternal_exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051218	1051315	
==>{\@2}})\n\tinternal_exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052252	1052349	
==>{\@2}})\n\tinternal_exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053287	1053384	
==>{\@2}})\n\tinternal_exception(1, \"Tried to get null class.\");\n\n    next = {{^+4}};\n    {{\@1} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858680	858943	
==>at(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859684	859947	
==>at(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860688	860951	
==>at(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861693	861956	
==>at(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
4	/Users/nnunley/parrot/config/auto/gcc.pm	1366	1481	
==>self->set_result('no');
        $conf->data->set(gccversion => undef);
        return $self;
    }
    if ($major =~ <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	18388	18491	
==>codes(@_);
  }
  
  if( $self->_remap_sequences($treelet) ) {
    $self->_treat_Zs($treelet);  # Might a <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	6638	6738	
==>ing to accept \"=$d\" as directive of type $type\n";
  }
  DEBUG > 6 and print "$this\'s accept_direc <==
4	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	3187	3285	
==>charset_dir, 'tables.h');
open STDOUT, '>', $h_file
    or die "can not open '$h_file': $!\n";
prin <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	1031	1154	
==>::Construct::Expression::Value');

  my $self = bless {
    BLOCK     => $block,

    KIND      => 'unless',
    LEFT      = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296969	297086	
==>BODY" => "#line 970 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 0 : 1;\n  {{+=4}};\n",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297825	297942	
==>BODY" => "#line 970 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 0 : 1;\n  {{+=4}};\n",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298681	298798	
==>BODY" => "#line 970 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 0 : 1;\n  {{+=4}};\n",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247163	247584	
==>[
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 287,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 67 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104939	105210	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105676	105947	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	106414	106685	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core" <==
4	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1307	1416	
==>diag("'$cmd' failed with exit code $exit_code")
        if $exit_code and not $pass;
    }

    unless($ENV{PO <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1348	1457	
==>diag("'$cmd' failed with exit code $exit_code")
        if $exit_code and not $pass;
    }

    unless($ENV{PO <==
4	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2471	2578	
==>diag("'$cmd' failed with exit code $exit_code")
      if $exit_code and not $pass;
    }

    unless($ENV{PO <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	519	617	
==>g the dirty work
# of parsing Pod into treelets (generally one per non-verbatim paragraph), and
# t <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19923	20026	
==>lcheck, and/or if you want it to hyphenate right.

Here are some notable values:

  1033  US English
  2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552876	552967	
==>er, method_pmc);\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=d <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556871	556962	
==>er, method_pmc);\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=d <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560894	560985	
==>er, method_pmc);\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=d <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72999	73109	
==>rpreter, enum_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74601	74711	
==>rpreter, enum_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76203	76313	
==>rpreter, enum_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77806	77916	
==>rpreter, enum_class_Undef);\n  }\n  else {\n      {{\@1}} = pmc_new(interpreter, enum_class_NCI);\n      {{\@1} <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2393	2496	
==>e. C<$op> is an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) = @_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3485	3588	
==>e. C<$op> is an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) = @_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3629	3732	
==>e. C<$op> is an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) = @_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3284	3387	
==>e. C<$op> is an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) = @_ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24799	24920	
==>eturn);
      $self->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25810	25931	
==>eturn);
      $self->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26698	26819	
==>eturn);
      $self->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27708	27829	
==>eturn);
      $self->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584481	584576	
==>\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585556	585651	
==>\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597997	598092	
==>\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599044	599139	
==>\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	1576	1666	
==>m C<language_output_isnt( $language, $code, $expected, $description)> 

Runs a langugage te <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509095	509352	
==>LS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "AR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509726	509983	
==>LS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "AR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510381	510638	
==>LS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "AR <==
4	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	5616	5759	
==>nt;

    local $_ = $first_comment;

    s/^\/\*//; s/\*\/$//; # /*  */
    s/^ *\/\///mg;   # //
    s/^ ?\*\*//mg;   # |**
    s/^ {0,2}\*//mg <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712584	712676	
==>nterpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(inter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713691	713783	
==>nterpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(inter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720051	720143	
==>nterpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(inter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721251	721343	
==>nterpreter, s,\n\tconst_string(interpreter, \".\"), 0) == -1 &&\n      string_str_index(inter <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6540	6635	
==>prop_type_state[${ITEMP0}] = ${STYPES}
    prop_stack_depth[${ITEMP0}] = stack_depth
    goto PO <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4478	4573	
==>prop_type_state[${ITEMP0}] = ${STYPES}
    prop_stack_depth[${ITEMP0}] = stack_depth
    goto PO <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6221	6308	
==>prop_type_state[${ITEMP0}] = ${STYPES}
prop_stack_depth[${ITEMP0}] = stack_depth
goto PO <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4159	4246	
==>prop_type_state[${ITEMP0}] = ${STYPES}
prop_stack_depth[${ITEMP0}] = stack_depth
goto PO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72530	72623	
==>Y" => "#line 1156 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74132	74225	
==>Y" => "#line 1156 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75734	75827	
==>Y" => "#line 1156 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77337	77430	
==>Y" => "#line 1156 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ( <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1325	1428	
==>r is responsible for the consequences.
    if (defined $prog) {
        $conf->data->set($util => $prog) <==
4	/Users/nnunley/parrot/config/inter/make.pm	1146	1249	
==>r is responsible for the consequences.
    if (defined $prog) {
        $conf->data->set($util => $prog) <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1322	1425	
==>r is responsible for the consequences.
    if (defined $prog) {
        $conf->data->set($util => $prog) <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	8941	9024	
==>->const_table->constants[jit_info->cur_op[i]]
#define CALL(f) Parrot_exec_add_text_r <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581797	581935	
==>c"
                            ],
                  "BODY" => "#line 289 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583103	583241	
==>c"
                            ],
                  "BODY" => "#line 289 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpr <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1349	1452	
==>value;
  my $name  = $self->name->value;

#  $self->DEBUG(0, "Searching for symbol '$name'...");

  my $ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	69801	69896	
==>_addstartcode($$)
{
	my ($self, $code) = @_;
	$code =~ s/\A\s*\{(.*)\}\Z/$1/s;

	$self->{"startc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	245365	245787	
==>> [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 285,
                  "ARGS" => [
                              "i",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 6 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367125	367416	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367916	368207	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368708	368999	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => " <==
4	/Users/nnunley/parrot/config/init/defaults.pm	664	772	
==>omewhere!
    $conf->data->set(
        debugging => $conf->options->get('debugging') ? 1 : 0,
        optimi <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6856	6955	
==>} + 1
${STEMP1} = ${ITEMP1}
${STEMP0} = concat ${STEMP1}

# Put it in the parameter register list.
$ <==
4	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	3470	3567	
==>HAR    enum_cclass_word
#define PUNCTUATION enum_cclass_punctuation
#define DIGIT       enum_cclas <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	643	738	
==>$' . $type . $self->{REG_COUNT}{$type}++;
}

sub temp_int { return shift->temp_reg('I'); }
sub t <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	885	993	
==>($right) . ") is not Value") unless UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	723	831	
==>($right) . ") is not Value") unless UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	876	984	
==>($right) . ") is not Value") unless UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	765	873	
==>($right) . ") is not Value") unless UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11657	11785	
==>tement::Arithmetic->new($block, $ident, $ident, $op, $value);
      next;
    }

    #
    # Concat assign:
    #
    #   <var> < <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	11059	11180	
==>s undef and nothing else
        my $test = !defined $got && !defined $expect;

        $self->ok($test, $name);
        $ <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	11477	11598	
==>s undef and nothing else
        my $test = !defined $got && !defined $expect;

        $self->ok($test, $name);
        $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1887	1978	
==>ating
that the core type is missing. See the C<Parrot_Run_core_t> C<enum> in
F<include/parro <==
4	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	704	815	
==>n;
    }

    # Obtain the official version number from the VERSION file.
    open my $VERSION, '<', 'VERSION' o <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1088	1192	
==>s for the program:
    # default -> probe -> environment -> option -> ask
    $prog ||= $conf->options->g <==
4	/Users/nnunley/parrot/config/inter/make.pm	909	1013	
==>s for the program:
    # default -> probe -> environment -> option -> ask
    $prog ||= $conf->options->g <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1085	1189	
==>s for the program:
    # default -> probe -> environment -> option -> ask
    $prog ||= $conf->options->g <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183734	184063	
==>> ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 219,
                  "ARGS" => [
                              "nc <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	15810	15957	
==>my $self = shift;
        if ( @_ ) {
            die 'count must be nonnegative' if $_[0] < 0;
            $self->{'count'} = shift;
            wa <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	24631	24740	
==>namespace, $rule, $check) = @_;
	
	my $action = '';
	
	if ($self->{"msg"})  # ERROR MESSAGE SUPPLIED
	{
		#WAS <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	3936	4032	
==>ami = const_string(interpreter, "$class");
    ${lhs}pmc_register(interpreter, whoami);
EOC
    } <==
4	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	554	671	
==>flags);

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    } <==
4	/Users/nnunley/parrot/config/init/hints/irix.pm	499	616	
==>flags);

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    } <==
4	/Users/nnunley/parrot/config/init/hints/netbsd.pm	292	409	
==>flags);

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    } <==
4	/Users/nnunley/parrot/config/init/hints/openbsd.pm	384	498	
==>flags);

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
	} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447236	447445	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	448058	448267	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449544	449753	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
4	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	1911	2019	
==>tution_len = $item[1] }

# length is known from the line above
name:               m/[a-zA-Z0-9_-]{$::name_le <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118910	119209	
==>UMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	119764	120063	
==>UMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120619	120918	
==>UMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2388	2481	
==>s#head3_halfpoint_size#\\ul{\n",
 '/head3'  => "\n}\\par}\n",
 'head4'   => "\n{\\pard\\li#rtf <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	997	1115	
==>s specified in C<files()>.

=cut

sub files_of_type
{
    my $self = shift;
    my $type = shift;
    
    return () un <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	20371	20483	
==>sh @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new NewOp( $parser, <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21650	21762	
==>sh @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new NewOp( $parser, <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	22793	22905	
==>sh @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new NewOp( $parser, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353717	353908	
==>terpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354462	354653	
==>terpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355229	355420	
==>terpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	72658	72753	
==>}/Parse::RecDescent/;
	goto &{\$AUTOLOAD};
}
}

};
	$code .= "push \@$self->{namespace}\::ISA, ' <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10988	11093	
==>n '',
    $self->doc_init,
    $self->font_table,
    $self->stylesheet,
    $self->color_table,
    $self <==
4	/Users/nnunley/parrot/config/init/miniparrot.pm	646	737	
==>gure::Step::Base);

use Parrot::Configure::Step;

$description = 'Tweaking settings for mini <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32818	32941	
==>}, $mv, 
			    "typeinfo for rule $rule->{'name'}");
		    $pir .= "\n" if $pir !~ /\n$/;
		    $pir .= "### end typeinfo\n <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26822	26933	
==>}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir .= "\n" if $pir !~ /\n$/;
		$pir .= "### end typeinfo\n <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28538	28649	
==>}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir .= "\n" if $pir !~ /\n$/;
		$pir .= "### end typeinfo\n <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36520	36631	
==>}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir .= "\n" if $pir !~ /\n$/;
		$pir .= "### end typeinfo\n <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24374	24468	
==>_constant(0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{children}[1] <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25263	25357	
==>_constant(0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{children}[1] <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26273	26367	
==>_constant(0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{children}[1] <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27163	27257	
==>_constant(0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{children}[1] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018117	1018369	
==>erpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019042	1019294	
==>erpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019972	1020224	
==>erpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020903	1021155	
==>erpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2083	2181	
==>S}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STE <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3335	3433	
==>S}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STE <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5964	6062	
==>S}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STE <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6522	6620	
==>S}[stack_depth]

# Set register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332408	332505	
==>* const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NUL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333686	333783	
==>* const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NUL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334964	335061	
==>* const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NUL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336243	336340	
==>* const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen(interpreter, NUL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072312	1072449	
==>km1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  {{\@2}} = (INTVAL)( xk * po <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074497	1074634	
==>km1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  {{\@2}} = (INTVAL)( xk * po <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076682	1076819	
==>km1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  {{\@2}} = (INTVAL)( xk * po <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078868	1079005	
==>km1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  {{\@2}} = (INTVAL)( xk * po <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30302	30408	
==>utine
	# Call with S0 set to the type
	# Source in P6
	# Dest returned in P1
STRUCT_COPY:
SCOPYDIS
	foreach <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	367	470	
==>SRM::Base/;

# Constructor. Just base this class on a hash.
sub new() {
	my $invocant = shift;
	return b <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	273	376	
==>SRM::Base/;

# Constructor. Just base this class on a hash.
sub new() {
	my $invocant = shift;
	return b <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	181	284	
==>SRM::Base/;

# Constructor. Just base this class on a hash.
sub new() {
	my $invocant = shift;
	return b <==
4	/Users/nnunley/parrot/config/gen/makefiles.pm	3738	3865	
==>lashes                         => 1
    );
    genfile(
        'config/gen/makefiles/befunge.in' => 'languages/befunge/Makefile <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	697	796	
==>r) = _build_tree ($tokens, $count);
    push @{$temp->{children}}, $expr;
  }
  elsif ($tokens->[$co <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	914	1013	
==>r) = _build_tree ($tokens, $count);
    push @{$temp->{children}}, $expr;
  }
  elsif ($tokens->[$co <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1128	1227	
==>r) = _build_tree ($tokens, $count);
    push @{$temp->{children}}, $expr;
  }
  elsif ($tokens->[$co <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	11557	11663	
==>)
		or $deref eq '$#' or $deref eq '$$' )
	    {
		_failmsg "Bad identifier after dereferencer", pos $$text <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7872	7970	
==>"Should not happen (int)"
i%=54
if i% then print "This is true" else print "Oops (int)"
i=0
if i th <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14859	14957	
==>"Should not happen (int)"
i%=54
if i% then print "This is true" else print "Oops (int)"
i=0
if i th <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28081	28179	
==>t_op = $srm->post_op($rule->{'pop'}, $rule->{'push'});
		$pir .= "### post_op\n";
		$pir .= sub_met <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770049	770325	
==>NT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770902	771178	
==>NT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771755	772031	
==>NT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772609	772885	
==>NT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37448	37575	
==>{#State 144
		DEFAULT => -104
	},
	{#State 145
		ACTIONS => {
			"-" => 24,
			'TRUE' => 25,
			'NOT' => 27,
			'STRING' <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2681	2773	
==>art_offset($offset)>

Returns the C code for C<restart OFFSET($offset)>.

=cut

sub restart_o <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4016	4108	
==>art_offset($offset)>

Returns the C code for C<restart OFFSET($offset)>.

=cut

sub restart_o <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3714	3806	
==>art_offset($offset)>

Returns the C code for C<restart OFFSET($offset)>.

=cut

sub restart_o <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634481	634629	
==>"
                            ],
                  "BODY" => "#line 107 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635599	635747	
==>"
                            ],
                  "BODY" => "#line 107 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636717	636865	
==>"
                            ],
                  "BODY" => "#line 107 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637836	637984	
==>"
                            ],
                  "BODY" => "#line 107 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= interpre <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514190	514512	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515070	515392	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	35035	35147	
==>::Tralala>
          DEBUG > 1 and print "Catching \"$it\" as ho-hum L<Modulename> link.\n";
          $treelet-> <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	13853	13955	
==>e().  Checks if $this B<does not match> the
given $regex.

=cut

sub like {
    my($self, $this, $regex <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	2625	2733	
==>abel = "${prefix}_${suffix}";

  if (!defined $cond) {
    $compiler->emit("  goto $label");
  } else {
    i <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	498	596	
==>t on all the C source code files in the distribution pass in
C<all_source> instead of a list of fil <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1876	1970	
==>+$_[0]{'Indent'} }
sub start_over_text    { ++$_[0]{'Indent'} }
sub start_over_block   { ++$_[0 <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1444	1538	
==>+$_[0]{'Indent'} }
sub start_over_text    { ++$_[0]{'Indent'} }
sub start_over_block   { ++$_[0 <==
4	/Users/nnunley/parrot/lib/Test/More.pm	11588	11711	
==>iag('    can_ok() called with no methods');
        return $ok;
    }

    my @nok = ();
    foreach my $method (@methods) { <==
4	/Users/nnunley/parrot/tools/build/ops2c.pl	11839	11953	
==>vin.
 */


typedef struct hop {
    op_info_t * info;
    struct hop *next;
} HOP;
static HOP **hop;

static void h <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665216	665300	
==>59 \"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delete_keyed_int(interpreter, {{\@1}}, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665993	666077	
==>59 \"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delete_keyed_int(interpreter, {{\@1}}, {{\ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11395	11489	
==>ct::Expression::Value::Identifier->new($block, $token);
      my $op    = substr($self->forth-> <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11942	12036	
==>ct::Expression::Value::Identifier->new($block, $token);
      my $op    = substr($self->forth-> <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12485	12579	
==>ct::Expression::Value::Identifier->new($block, $token);
      my $op    = substr($self->forth-> <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7255	7374	
==>pod_para_count'};
        
        $self->_ponder_paragraph_buffer();
         # by now it's safe to consider the previo <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7873	7987	
==>pod_para_count'};
          $self->_ponder_paragraph_buffer();
           # by now it's safe to consider the previo <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	8230	8340	
==>pod_para_count'};
        $self->_ponder_paragraph_buffer();
         # by now it's safe to consider the previo <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	5909	6015	
==>pod_para_count'};
      $self->_ponder_paragraph_buffer();
       # by now it's safe to consider the previo <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	230326	230588	
==>MMD_NUMCMP) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ), <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11092	11175	
==>to pre_call_HAS_RETURN_${CURIC}
goto pre_call_NO_RETURN_${CURIC}
pre_call_HAS_RETURN <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8278	8361	
==>to pre_call_HAS_RETURN_${CURIC}
goto pre_call_NO_RETURN_${CURIC}
pre_call_HAS_RETURN <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5940	6023	
==>to pre_call_HAS_RETURN_${CURIC}
goto pre_call_NO_RETURN_${CURIC}
pre_call_HAS_RETURN <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584427	584524	
==>\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if ( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585502	585599	
==>\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if ( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597943	598040	
==>\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if ( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598990	599087	
==>\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if ( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264311	264476	
==>"
                            ],
                  "BODY" => "#line 806 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265165	265330	
==>"
                            ],
                  "BODY" => "#line 806 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266019	266184	
==>"
                            ],
                  "BODY" => "#line 806 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266874	267039	
==>"
                            ],
                  "BODY" => "#line 806 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LA <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1051	1160	
==>my $prog;

    # precedence of sources for the program:
    # default -> probe -> environment -> option -> ask <==
4	/Users/nnunley/parrot/config/inter/make.pm	872	981	
==>my $prog;

    # precedence of sources for the program:
    # default -> probe -> environment -> option -> ask <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1048	1157	
==>my $prog;

    # precedence of sources for the program:
    # default -> probe -> environment -> option -> ask <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	13078	13176	
==>hat each stands for.  Note that this does not
include numerics (like "64" or "x981c").  Under old P <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	14377	14556	
==>@@@@@@@@@@@@@@@@@@@@

##############################################################################
##
##  stop reading now stop reading now stop reading now stop reading now stop <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32059	32166	
==>g = ", ". join(' ', @args) if @args;
    $parameters = ", $parameters" if $parameters;
    my $body = "VTABL <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33636	33743	
==>g = ", ". join(' ', @args) if @args;
    $parameters = ", $parameters" if $parameters;
    my $body = "VTABL <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40693	40800	
==>g = ", ". join(' ', @args) if @args;
    $parameters = ", $parameters" if $parameters;
    my $body = "VTABL <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31875	31986	
==>ethods}[$n], $line, $out_name);
    }
    my $parameters = $method->{parameters};
    my $n=0;
    my @args = gr <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33452	33563	
==>ethods}[$n], $line, $out_name);
    }
    my $parameters = $method->{parameters};
    my $n=0;
    my @args = gr <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40509	40620	
==>ethods}[$n], $line, $out_name);
    }
    my $parameters = $method->{parameters};
    my $n=0;
    my @args = gr <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	1481	1581	
==>%th=( single => 'FLO', double => 'FLO', long => 'INT', integer => 'INT', string => 'STRING');
			if ( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000051	1000252	
==>",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001189	1001390	
==>",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002327	1002528	
==>",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003466	1003667	
==>",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_not_ <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	25445	25546	
==>, @Known_formatting_codes) {
      DEBUG > 2 and print " $new_letter isn't a good thing to extend, bec <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1347	1445	
==>alling $token->text would do.

Or, if you want to alter the value, you can even do things like this <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6840	6933	
==>-0
t$="1234567890"
print mid$(t$, 2, 8)
print left$(t$, 5)
print right$(t$, 5)
' instr
s1$="Th <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18569	18662	
==>-0
t$="1234567890"
print mid$(t$, 2, 8)
print left$(t$, 5)
print right$(t$, 5)
' instr
s1$="Th <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4600	4700	
==>ost branch operation hooks.
sub pre_branch($) {
	my $self = shift;
	my $pops = shift;
	my $register_n <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3016	3116	
==>ost branch operation hooks.
sub pre_branch($) {
	my $self = shift;
	my $pops = shift;
	my $register_n <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2663	2763	
==>ost branch operation hooks.
sub pre_branch($) {
	my $self = shift;
	my $pops = shift;
	my $register_n <==
4	/Users/nnunley/parrot/Configure.pl	1907	2001	
==>.

=item C<--linkflags=(flags)>

Use the given linker flags

=item C<--ld=(linker)>

Specify wh <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3065	3169	
==>r (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4823	4927	
==>r (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1987	2091	
==>r (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3239	3343	
==>r (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[stack_ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39144	39238	
==>t_port,
  'current-output-port'   => \&_op_current_output_port,
  'with-input-to-file'    => \& <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11759	11849	
==>TYPES}
dec ${ITEMP1}
${PTEMP0} = ${STYPES}[${ITEMP1}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP0} <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8822	8912	
==>TYPES}
dec ${ITEMP1}
${PTEMP0} = ${STYPES}[${ITEMP1}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP0} <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7394	7484	
==>TYPES}
dec ${ITEMP1}
${PTEMP0} = ${STYPES}[${ITEMP1}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP0} <==
4	/Users/nnunley/parrot/config/gen/makefiles.pm	1346	1528	
==>Makefile',
        commentType                    => '#',
        replace_slashes                => 1,
        conditioned_lines              => 1
    );
    genfile(
        'config/ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	446505	446762	
==>" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447142	447399	
==>" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449450	449707	
==>" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGD <==
4	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	573	691	
==>if ( exists $self->{table}{$symb} ) {
            my $defn = $self->{table}{$symb};
##        warn "\tfound 1 in $sel <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836662	836921	
==>=> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837394	837653	
==>=> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838128	838387	
==>=> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838860	839119	
==>=> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276135	276243	
==>,
                  "BODY" => "#line 881 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277013	277121	
==>,
                  "BODY" => "#line 881 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277891	277999	
==>,
                  "BODY" => "#line 881 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}} <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	1991	2080	
==>xpected result it true.

=item C<pasm_output_like($code, $expected, $description)> or C<ou <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072411	1072523	
==>}} = r1;\n  {{\@2}} = (INTVAL)( xk * pow( -1, n ) );\n  {{\@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074596	1074708	
==>}} = r1;\n  {{\@2}} = (INTVAL)( xk * pow( -1, n ) );\n  {{\@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076781	1076893	
==>}} = r1;\n  {{\@2}} = (INTVAL)( xk * pow( -1, n ) );\n  {{\@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078967	1079079	
==>}} = r1;\n  {{\@2}} = (INTVAL)( xk * pow( -1, n ) );\n  {{\@3}} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405144	405531	
==>o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 468,
                  "ARGS" => [
                              "s",
                              "ic",
                              "s"
                            ],
                  "BODY" => "#line 5 <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	7117	7221	
==>stem.c")) {
        run(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5411	5515	
==>stem.c")) {
        run(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	7328	7432	
==>stem.c")) {
        run(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381022	381164	
==>"
                            ],
                  "BODY" => "#line 455 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382034	382176	
==>"
                            ],
                  "BODY" => "#line 455 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383046	383188	
==>"
                            ],
                  "BODY" => "#line 455 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384059	384201	
==>"
                            ],
                  "BODY" => "#line 455 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{\ <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	3049	3200	
==>}->{symbol}\n";
    }

    sub visitIncrOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH} <==
4	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	328	432	
==>out', $count );
}

sub get_test_prog {
    my $self = shift;
    my ( $path_to_parrot, $path_to_language, <==
4	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	346	450	
==>out', $count );
}

sub get_test_prog {
    my $self = shift;
    my ( $path_to_parrot, $path_to_language, <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	20062	20156	
==>Test->use_numbers($on_or_off);

Whether or not the test should output numbers.  That is, this i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553966	554055	
==>nt_object = object;\n  interpreter->current_cont = {{\@3}};\n  interpreter->current_method <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555363	555452	
==>nt_object = object;\n  interpreter->current_cont = {{\@3}};\n  interpreter->current_method <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556751	556840	
==>nt_object = object;\n  interpreter->current_cont = {{\@3}};\n  interpreter->current_method <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687664	687948	
==>MP" => 0,
                  "NAME" => "delprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688435	688719	
==>MP" => 0,
                  "NAME" => "delprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	25986	26136	
==>y_opt');
    my ($R_back, @R_ops) = $self->rewrite($R, $lastback);

    my @ops = (
                        aop('pushindex'),
                        a <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	16416	16522	
==>urn_assign ($ret_type)(*pointer)();
    $final_assign
    $extra_postamble
}
HEADER
    }

    my ($key, $v <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586698	586795	
==>r, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587884	587981	
==>r, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589070	589167	
==>r, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590257	590354	
==>r, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpr <==
4	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	725	826	
==>st a scalar ref
  my($class, $scalar_ref) = @_;
  $$scalar_ref = '' unless defined $$scalar_ref;
  ret <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544240	544340	
==>@3}} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = a, saved_var2 = b; \n\n if(a==0 || b==0) { {{\@1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545576	545676	
==>@3}} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = a, saved_var2 = b; \n\n if(a==0 || b==0) { {{\@1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546912	547012	
==>@3}} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = a, saved_var2 = b; \n\n if(a==0 || b==0) { {{\@1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746180	746539	
==>S" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 840,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 189 \"s <==
4	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	318	400	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub _hand <==
4	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	315	397	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub _hand <==
4	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	571	653	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub _hand <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29861	29955	
==>{'.Parse::RecDescent::Production::incitempos().' 1} and ' : '')
		. '  $text =~ s/\A' . quoteme <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	291	396	
==>","");
        @syms[0..2]=("","","");
	$seg="_basicmain";
}
sub feedme {
	my $type=shift @tokdsc;
	my $sy <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	6354	6445	
==>tem C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C< <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4570	4661	
==>tem C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C< <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4547	4638	
==>tem C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C< <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3931	4022	
==>tem C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C< <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1993	2126	
==>) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    # if '--version' returns a strin <==
4	/Users/nnunley/parrot/config/inter/make.pm	1867	2000	
==>) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    # if '--version' returns a strin <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	2007	2140	
==>) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    # if '--version' returns a strin <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1879	1976	
==>m->new,
        Parrot::Docs::Section::Compilers->new,
        Parrot::Docs::Section::Languages->n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025068	1025363	
==>\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025825	1026120	
==>\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026581	1026876	
==>\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024313	1024607	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLA <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10993	11092	
==>e") or die "Can't read $infile: $!\n";
    open (OUT, ">$outfile") or die "Can't write $outfile: $!\ <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11477	11576	
==>e") or die "Can't read $infile: $!\n";
    open (OUT, ">$outfile") or die "Can't write $outfile: $!\ <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11941	12040	
==>e") or die "Can't read $infile: $!\n";
    open (OUT, ">$outfile") or die "Can't write $outfile: $!\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769219	769514	
==>\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770071	770366	
==>\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770924	771219	
==>\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771777	772072	
==>\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1108673	1108795	
==>= 0)\n                real_exception(interpreter, NULL, NO_CLASS,\n                    \"Class '%Ss' not found\", readable_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630543	630649	
==>= 0)\n        real_exception(interpreter, NULL, NO_CLASS,\n            \"Class '%Ss' not found\", readable_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631533	631639	
==>= 0)\n        real_exception(interpreter, NULL, NO_CLASS,\n            \"Class '%Ss' not found\", readable_ <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	27630	27718	
==>t_head = gen_extract_tagged('<HEAD>','</HEAD>');

	($extracted, $remainder) = $extract_he <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706529	706829	
==>E" => "inline",
                  "CODE" => 792,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 670 \"src/ops/p <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	21667	21803	
==>.back
#         back: R or rfail
#               $matchcount++
#         next:
#
sub rewrite_star {
    my ($self, $op, $R, $greedy, $las <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35912	36036	
==>lain';
        $para->[0] .= '-' . $over_type;
        # Whew.  Now fall thru and process it.


      } elsif($para_type eq ' <==
4	/Users/nnunley/parrot/tools/build/ops2c.pl	10058	10177	
==>->name;
        $names{$name} = 1;
        my $full_name  = $op->full_name;
        my $func_name  = $op->func_name($tra <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	690512	690806	
==>}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "thaw",
                  "F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691268	691562	
==>}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "thaw",
                  "F <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	58516	58698	
==>ua\lua51.yp"
{
            [
                @{ $_[1] },
                BuildParam( $_[0], $_[3] ),
            ];
        }
	],
	[#Rule 100
		 'parlist1', 1, undef
	],
	[ <==
4	/Users/nnunley/parrot/config/auto/sizes.pm	2956	3055	
==>= $conf->data->get('iv');
    my $intvalsize = $conf->data->get('intvalsize');

    # Get HUGEINTVAL <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2299	2416	
==>e{$seg}->{declarations}}) {
				if (exists $main::common{$var}) {
					push(@saves, $var);
				}
			}
			if (@saves) { <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2708	2825	
==>e{$seg}->{declarations}}) {
				if (exists $main::common{$var}) {
					push(@saves, $var);
				}
			}
			if (@saves) { <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	1818	1925	
==>e{$seg}->{declarations}}) {
		if (exists $main::common{$var}) {
			push(@saves, $var);
		}
	}
	if (@saves) { <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3109	3216	
==>e{$seg}->{declarations}}) {
		if (exists $main::common{$var}) {
			push(@saves, $var);
		}
	}
	if (@saves) { <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9231	9364	
==>alled
            or  next;       # so continue parsing

#DBG>			$debug & 0x10
#DBG>		and	do {
#DBG>			print STDERR "**Entering E <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8816	8944	
==>alled
            or  next;       # so continue parsing

#DBG>			$debug & 0x10
#DBG>		and	do {
#DBG>			print STDERR "**Entering E <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2713	2809	
==>NT "1 in module-level code"
GOSUB Sub1
PRINT "ERR this line in main routine should be skipped"
La <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16680	16776	
==>NT "1 in module-level code"
GOSUB Sub1
PRINT "ERR this line in main routine should be skipped"
La <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1092948	1093258	
==>> 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "morph",
                  "FLAGS" => "",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093750	1094060	
==>> 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "morph",
                  "FLAGS" => "",
                  " <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	19105	19228	
==>hy,
    });

    my $out = "not ok";
    $out   .= " $self->{Curr_Test}" if $self->use_numbers;
    $out   .= " # TODO & SKI <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	6192	6285	
==>branches} ? ($totals{covered_branches} / $totals{branches} * 100) : 0));
    $totals{call_cove <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27078	27219	
==>{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $l <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27759	27900	
==>{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $l <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	30609	30750	
==>{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $l <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	35156	35297	
==>{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $l <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646896	647297	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647656	648057	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648417	648818	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649179	649580	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447318	447582	
==>NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	448140	448404	
==>NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449626	449890	
==>NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
4	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1838	1947	
==>@@

sub _xml_escape {
  foreach my $x (@_) {
    # Escape things very cautiously:
    $x =~ s/([^-\n\t !\#\$\% <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1243	1344	
==>ever override the user.  If a non-existent program is specified then
    # the user is responsible for <==
4	/Users/nnunley/parrot/config/inter/make.pm	1064	1165	
==>ever override the user.  If a non-existent program is specified then
    # the user is responsible for <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1240	1341	
==>ever override the user.  If a non-existent program is specified then
    # the user is responsible for <==
4	/Users/nnunley/parrot/config/init/hints/aix.pm	81	176	
==>m 19593 2006-05-30T02:28:15.110975Z coke  $

package init::hints::aix;

use strict;

sub runstep <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	33295	33426	
==>w = temp('I');
	   print <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2 <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	34044	34175	
==>w = temp('I');
	   print <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2 <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	34968	35099	
==>w = temp('I');
	   print <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2 <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	2001	2102	
==>ves the
# token at that absolute position. If a count is given, then that many tokens
# (at most, give <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586878	586977	
==>reter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588064	588163	
==>reter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589250	589349	
==>reter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590437	590536	
==>reter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, {{\@3}});\n  {{=next}};\n", <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	7145	7252	
==>ile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c failed ($?)\n";
    }
    else <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5439	5546	
==>ile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c failed ($?)\n";
    }
    else <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	7356	7463	
==>ile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c failed ($?)\n";
    }
    else <==
4	/Users/nnunley/parrot/Configure.pl	8745	8842	
==>viously have Perl 5--I'll be pulling
some defaults from its configuration.
END

# EDIT HERE TO ADD <==
4	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	5030	5125	
==>:MD5
and use Digest::MD5 as normal, it falls back to Digest::Perl::MD5 if it
cannot load its obj <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	605	691	
==>nt) . ") is not!") unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::I <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	615	701	
==>nt) . ") is not!") unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::I <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	615	701	
==>nt) . ") is not!") unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::I <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	4919	5030	
==>->{'source_arrayref'} } ) {
        DEBUG and print "That's it for that source arrayref!  Killing.\n";
        $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642281	642387	
==>\@1}} = {{\@2}}->vtable->type_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643169	643275	
==>\@1}} = {{\@2}}->vtable->type_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABE <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	9876	9971	
==>tever] thatelementname", we say that W maps
    #  to whatever $this->{accept_codes}{thatelement <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5007	5099	
==>y_moves
if ${ITEMP0} > 0 goto PRE_BRANCH_${CURIC}_LAZY_MOVE_$register_num

# No lazy move ava <==
4	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	1137	1251	
==>GV);
}

##
## convert_tests()
##
## Convert the tests to a usable form.
##
sub convert_tests {
    print "Convertin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501022	501298	
==>\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501761	502037	
==>\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502499	502775	
==>\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503238	503514	
==>\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6789	6938	
==>ler->start_element({
        Name       => 'sub',
        Attributes => {
          name  => $name,
          type  => $type,
          kind  => 'fn', <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1038	1127	
==>f defined $left and not UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  con <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1066	1155	
==>f defined $left and not UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  con <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	738	827	
==>f defined $left and not UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  con <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4230	4333	
==>,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		return(<<CODE, $resu <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4494	4597	
==>,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		return(<<CODE, $resu <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5130	5233	
==>,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		return(<<CODE, $resu <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5506	5609	
==>,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		return(<<CODE, $resu <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27428	27521	
==>ACE;').'
		$lastsep = "";
		$Parse::RecDescent::lastexpected = q{' . ($rule->hasleftmost($self <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29538	29631	
==>ACE;').'
		$lastsep = "";
		$Parse::RecDescent::lastexpected = q{' . ($rule->hasleftmost($self <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31635	31728	
==>ACE;').'
		$lastsep = "";
		$Parse::RecDescent::lastexpected = q{' . ($rule->hasleftmost($self <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23911	24003	
==>cont = {{\@2}};\n  dest = (opcode_t *)p->vtable->invoke(interpreter, p, {{^+3}});\n  {{=dest} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011417	1011668	
==>Command(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012182	1012433	
==>Command(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3971	4114	
==>t block."
          );
          
          ## Before there were errata sections in the world, it was
          ## least-pessimal to abort proce <==
4	/Users/nnunley/parrot/lib/Test/More.pm	26721	26835	
==>();
    ($vars[0] = $var) =~ s/\$FOO/     \$got/;
    ($vars[1] = $var) =~ s/\$FOO/\$expected/;

    my $out = "Str <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62702	62815	
==>, $aftererror,$line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr($grammar, <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63413	63526	
==>, $aftererror,$line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr($grammar, <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64143	64256	
==>, $aftererror,$line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr($grammar, <==
4	/Users/nnunley/parrot/config/inter/encoding.pm	936	1048	
==>ncoding_list = prompt('Which encodings would you like?', $encoding_list);
        }
    }

    # names of class f <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24216	24358	
==>JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "yield",
                  "FLAGS" => "",
                  "ARGD <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10673	10784	
==>/d if 'A' eq chr(65);
        $section = $self->unicode_escape_url($section);
        # Turn char 1234 into "(12 <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4054	4158	
==>/d if 'A' eq chr(65);
    $section = $self->unicode_escape_url($section);
     # Turn char 1234 into "(12 <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11981	12073	
==>VE_RET_CONT

# Can do a lazy move.
PRE_CALL_${CURIC}_LAZY_MOVE_RET:
${STEMP0} = pop lazy_move <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926606	926903	
==>e STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928076	928373	
==>e STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929546	929843	
==>e STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931017	931314	
==>e STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}->strlen;\n                              break;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Test/More.pm	14750	14848	
==>=back

=head2 Diagnostics

If you pick the right test function, you'll usually get a good idea of
w <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	12470	12574	
==>.
    if(! $self->{'encoding_command_statuses'} ) {
      DEBUG > 2 and print " CRAZY ERROR: It wasn't re <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	537	637	
==>File::Copy qw(copy);

# qq[] isn't guaranteed to work, but it's safer than "" as some platforms
# (eg <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	495	595	
==>File::Copy qw(copy);

# qq[] isn't guaranteed to work, but it's safer than "" as some platforms
# (eg <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	499	599	
==>File::Copy qw(copy);

# qq[] isn't guaranteed to work, but it's safer than "" as some platforms
# (eg <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43687	43905	
==>push_mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44331	44549	
==>push_mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/tools/dev/run_indent.pl	1858	1990	
==>ef_hash');       

    foreach (@type_macros) {
        $typedefs->{$_}="#defined";
    }
    
    
    # post-process the file to fi <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74158	74265	
==>y $_savetext;
	for ($reps=0; $reps<$max;)
	{
		$_savetext = $text;
		my $prevtextlen = length $text;
		my $_ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1111	1223	
==>e=impr   
       dotted-underline=uld          dash-underline=uldash
       dot-dash-underline=uldashd    dot-dot <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	35722	35822	
==>ow many failed.  If
you run less (or more) tests than you planned, the missing (or extras)
will be co <==
4	/Users/nnunley/parrot/lib/Test/More.pm	33793	33893	
==>ow many failed.  If
you run less (or more) tests than you planned, the missing (or extras)
will be co <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	2589	2689	
==>ow many failed.  If
you run less (or more) tests than you planned, the missing (or extras)
will be co <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6584	6731	
==>ax
      IF A$(I-1) > A$(I) THEN
         Exchange = TRUE
         B$=A$(I-1)
         A$(I-1)=A$(I)
         A$(I)=B$
         ' SWAP A$(I - 1), A$ <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16237	16384	
==>ax
      IF A$(I-1) > A$(I) THEN
         Exchange = TRUE
         B$=A$(I-1)
         A$(I-1)=A$(I)
         A$(I)=B$
         ' SWAP A$(I - 1), A$ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	1586	1719	
==>for variables)
    PROPS  => $props,
    ARGS   => $args,

    DEBUG  => 1,
    FILE   => $file,
    LINE   => $line
  }, $class;

  r <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	920	1030	
==>e) = @_;

  my $token;

  if (UNIVERSAL::isa($type, 'Jako::Token')) {
    $token = $type;
    $type = $type->te <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718129	718405	
==>nterpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719061	719337	
==>nterpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720260	720536	
==>nterpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721460	721736	
==>nterpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332324	332425	
==>line 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const mode = str <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333602	333703	
==>line 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const mode = str <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334880	334981	
==>line 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const mode = str <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336159	336260	
==>line 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const mode = str <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16172	16308	
==>eq 'ARRAY' ) {
        $result = $idf->[0];
        push @opcodes, @{ $idf->[1] };
    }
    else {
        my $defn = $parser->YYDa <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	3564	3674	
==>qq{""};
	}
}
my $eqnum=0;
my %opsubs=(
	'+' => sub { 
		my ($a1, $a2, $result)=@_;
		if ($result=~/S/) {
			ret <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	639	728	
==>ck');
  confess "Ident is not!" unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	527	616	
==>ck');
  confess "Ident is not!" unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925532	925831	
==>ginfo",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 104 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927001	927300	
==>ginfo",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 104 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928471	928770	
==>ginfo",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 104 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929941	930240	
==>ginfo",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 104 <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	871	968	
==>u don't pass a C<compiler> argument pair, the harness will run the tests
with C<perl>.  If you I<d <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	22548	22641	
==>ref($func) eq 'Text::Balanced::Extractor')
					{ @bits = $field = $func->extract($$textref) } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561869	561961	
==>interpreter, {{\@2}}, {{\@3}});\n  if (!{{\@1}}) {\n    real_exception(interpreter, next, MET <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562953	563045	
==>interpreter, {{\@2}}, {{\@3}});\n  if (!{{\@1}}) {\n    real_exception(interpreter, next, MET <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3830	3931	
==>($value) eq $$checklist{$prm}
		or	croak("Invalid value for parameter '$prm'");
        $prm=unpack( <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3634	3733	
==>($value) eq $$checklist{$prm}
		or	croak("Invalid value for parameter '$prm'");
        $prm=unpack( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054446	1054544	
==>1, \"Tried to get null global.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global_p(interp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055573	1055671	
==>1, \"Tried to get null global.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global_p(interp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072701	1072818	
==>essary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074886	1075003	
==>essary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077071	1077188	
==>essary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079257	1079374	
==>essary */\n  }\n  else if ( x + y == -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23128	23349	
==>ELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028281	1028502	
==>ELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029132	1029353	
==>ELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029973	1030194	
==>ELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	36823	36958	
==>core.ops\"\n  pop_exception(interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         b <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	577	672	
==>isa($ident, 'Jako::Construct::Expression::Value::Identifier');

  my $self = bless {
    BLOCK = <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	652	747	
==>isa($ident, 'Jako::Construct::Expression::Value::Identifier');

  my $self = bless {
    BLOCK = <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	652	747	
==>isa($ident, 'Jako::Construct::Expression::Value::Identifier');

  my $self = bless {
    BLOCK = <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	10833	10948	
==>$pmc, 'P'];
	return;
    }
    elsif ($typ =~ /[US]/) {   # strings
	# parrot has double quoted escapes
	$c =~ s/"/\ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15231	15333	
==>0]\n";
  push @{ $self->{'token_buffer'} },
       $self->{'text_token_class'}->new(@_);
  return;
}

s <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5785	5884	
==>defined $self->{triggers}{$key}
        and defined $self->{triggers}{$key}{$trigger};

    my $verb <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6355	6454	
==>defined $self->{triggers}{$key}
        and defined $self->{triggers}{$key}{$trigger};

    my $verb <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1432	1532	
==>ow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT = qq[];

# Here comes some stuff for Win3 <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1477	1577	
==>ow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT = qq[];

# Here comes some stuff for Win3 <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1481	1581	
==>ow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT = qq[];

# Here comes some stuff for Win3 <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	5587	5669	
==>jit_emit_mov_ri_i\(jit_info->native_ptr, ISR([12]), &CONST\((\d)\)\);/load_nc(jit_i <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1423	1520	
==>($self, $distance, $failLabel) = @_;
    $failLabel = $self->output_label_use($failLabel);
    ret <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1172	1269	
==>($self, $distance, $failLabel) = @_;
    $failLabel = $self->output_label_use($failLabel);
    ret <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826641	826734	
==>OAT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827711	827804	
==>OAT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3059	3169	
==>urn;
}

# . . . . . . . . . . And then off by its lonesome:

sub end_Verbatim  {
  return unless $_[0]{'Errata_ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	258	353	
==>8:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statement::In <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83746	83830	
==>>iglobals, IGLOBALS_COMPREG_HASH);\n  VTABLE_set_pmc_keyed_str(interpreter, compreg_h <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84652	84736	
==>>iglobals, IGLOBALS_COMPREG_HASH);\n  VTABLE_set_pmc_keyed_str(interpreter, compreg_h <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16366	16449	
==>[^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABC <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16708	16791	
==>[^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABC <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9909	9992	
==>[^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABC <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10152	10235	
==>[^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABC <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16925	17064	
==>ents
        #  with text in them.
        
        # Yes, stipulate the list without a range, so that this can work right on
        #  all <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10365	10484	
==>ents
    #  with text in them.

    # Yes, stipulate the list without a range, so that this can work right on
    #  all <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1175	1277	
==>0}
    ${INS} = concat "\n"
    goto SRM_LMKILL$suffix
SRM_LMKILL_EXIT$suffix:
PIR
    $pir =~ s/\$suff <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1377	1477	
==>en with bad source code as input.
  #

  $self->INTERNAL_ERROR("Undefined block!")
    unless defined <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1322	1422	
==>en with bad source code as input.
  #

  $self->INTERNAL_ERROR("Undefined block!")
    unless defined <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1225	1325	
==>en with bad source code as input.
  #

  $self->INTERNAL_ERROR("Undefined block!")
    unless defined <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480387	480656	
==>YPE" => "inline",
                  "CODE" => 550,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 446 \"src/ops/math. <==
4	/Users/nnunley/parrot/config/gen/makefiles.pm	5184	5304	
==>pugs/config/makefiles/root.in' => 'languages/pugs/Makefile',
        commentType                   => '#',
        replac <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627208	627304	
==>legal PMC enum (%d) in new\", (int){{\@2}});\n  }\n\n  /* Why?? If we're creating a continuation, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628352	628448	
==>legal PMC enum (%d) in new\", (int){{\@2}});\n  }\n\n  /* Why?? If we're creating a continuation, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950544	950630	
==>ng_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951504	951590	
==>ng_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952464	952550	
==>ng_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953425	953511	
==>ng_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627814	628170	
==>LAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 704,
                  "ARGS" => [
                              "p",
                              "ic"
                            ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864070	864177	
==>2}};\n  if (!s)\n    n = 0;\n  else {\n    n = s->bufused;\n    assert(n == ENCODING_BYTES(interpreter, {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864962	865069	
==>2}};\n  if (!s)\n    n = 0;\n  else {\n    n = s->bufused;\n    assert(n == ENCODING_BYTES(interpreter, {{\@ <==
4	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	713	814	
==>ecksum = unpack("%32C*", <INPUT>);
    close INPUT;
}

my $up_to_date = 1;
foreach my $output (@output <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557175	557307	
==>,
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558558	558690	
==>,
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559942	560074	
==>,
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod" <==
4	/Users/nnunley/parrot/config/auto/gdbm.pm	865	975	
==>sname = $Config{osname};

    # On OS X check the presence of the gdbm header in the standard
    # Fink locati <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39055	39308	
==>preter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39920	40173	
==>preter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40767	41020	
==>preter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41615	41868	
==>preter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12851	12955	
==>scent::_hint("A production consisting of a single
					  conditional <error?> directive would 
					  nor <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1456	1543	
==>{PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = "$register_num"
${ST <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1983	2070	
==>{PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = "$register_num"
${ST <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3166	3253	
==>{PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = "$register_num"
${ST <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110722	111021	
==>=> 0,
                  "NAME" => "bors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111613	111912	
==>=> 0,
                  "NAME" => "bors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112505	112804	
==>=> 0,
                  "NAME" => "bors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
4	/Users/nnunley/parrot/config/gen/cpu.pm	40	131	
==>dation.
# $Id: /parrot/config/gen/cpu.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 N <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857986	858288	
==>P" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858989	859291	
==>P" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859993	860295	
==>P" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860997	861299	
==>P" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586695	586791	
==>eter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(int <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587881	587977	
==>eter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(int <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589067	589163	
==>eter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(int <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590254	590350	
==>eter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(int <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247583	247729	
==>670 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	248447	248593	
==>670 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	249311	249457	
==>670 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	7752	7897	
==>->[1] };
        push @opcodes2, new KeyedSetOp( $parser,
            'arg1'   => $key->[0],
            'arg2'   => $val->[0],
            'r <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32023	32137	
==>arameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $parameters = ", $parameters" if $para <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33600	33714	
==>arameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $parameters = ", $parameters" if $para <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40657	40771	
==>arameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $parameters = ", $parameters" if $para <==
4	/Users/nnunley/parrot/config/gen/config_pm.pm	1226	1330	
==>e Config_pm.in: $!";
    close OUT or die "Can't close Config.pm: $!";

    my $template = "config/gen/co <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	59484	59601	
==>, 2, undef
	],
	[#Rule 107
		 'fieldlist', 1, undef
	],
	[#Rule 108
		 '_field_plus', 3,
sub
#line 580 "Lua\lu <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2931	3029	
==>address)>

Returns the C code for C<restart ADDRESS($address)>.

=cut

sub restart_address
{
    my <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3800	3898	
==>address)>

Returns the C code for C<restart ADDRESS($address)>.

=cut

sub restart_address
{
    my <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3530	3628	
==>address)>

Returns the C code for C<restart ADDRESS($address)>.

=cut

sub restart_address
{
    my <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	3834	3939	
==>{
#    $self->DEBUG(0, "   ...converting left...");
    my $temp = $compiler->temp_reg($calc_type);
    $l <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	13016	13116	
==>ions both take blocks of code, run the code, and test whether they live or die.

=== A Note about TOD <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1032	1123	
==>lib/luabasic.pbc"
#  load_bytecode "languages/lua/lib/luacoroutine.pbc"
#  load_bytecode " <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	3087	3178	
==>r_addr_table($base_suffix)>

Optionally implemented in subclasses to return the run core C c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793288	793455	
==>",
                              "i"
                            ],
                  "BODY" => "#line 457 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794193	794360	
==>",
                              "i"
                            ],
                  "BODY" => "#line 457 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(i <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12337	12454	
==>NG", value=> qq{"$s"}};
					last OUTDATA;
				}
				$s.=$syms[CURR];
			}
		} else {
			die "Cannot use $type[CURR]/$ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	12019	12110	
==>os;
$rx_match{'!RESULT'} = undef;
$rx_match{'0'}->[1] = undef;
$rx_match{'!STACK'} = \$rx_st <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	1899	2110	
==>n in source code.
    SYMBOLS => { },     # Identifiers
    CONTENT => [ ]      # Constructs
  }, $class;
}


###############################################################################

#
# ACCESSORS:
#

sub <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27227	27313	
==>.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying terminal: [' . $self->descri <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29330	29416	
==>.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying terminal: [' . $self->descri <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31427	31513	
==>.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying terminal: [' . $self->descri <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950661	950982	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951621	951942	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "F <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952581	952902	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "F <==
4	/Users/nnunley/parrot/config/gen/core_pmcs.pm	678	781	
==>file = "include/parrot/core_pmcs.h";
    open(OUT, ">$file.tmp");

    print OUT <<"END_H";
/*
 * DO NOT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686478	686744	
==>prop(interpreter, {{\@3}}, {{\@2}});\n   {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687368	687634	
==>prop(interpreter, {{\@3}}, {{\@2}});\n   {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	15282	15391	
==>sult vector
    .local pmc result 
    result = new 'APLVector'
    # Loop through each vector, doing the ops. <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	16368	16477	
==>sult vector
    .local pmc result 
    result = new 'APLVector'
    # Loop through each vector, doing the ops. <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	11302	11452	
==>le->
        (\w+)
        \(interpreter,
        \s*
        {{\@(\d)}},\s*{{\@(\d)}}
        \);
        \s+{{\+=\d}}/xm) {
            $jit_func = " <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	11749	11899	
==>le->
        (\w+)
        \(interpreter,
        \s*
        {{\@(\d)}},\s*{{\@(\d)}}
        \);
        \s+{{\+=\d}}/xm) {
            $jit_func = " <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	282	379	
==>" or $_[0] eq "COMM" or $_[0] eq "DIRECTIVE") {
		$curtok=~tr/A-Z/a-z/;
	}
	push(@tokens, $curtok) <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	6360	6452	
==>turn sort keys %suffixes;
}

=item C<files_with_suffix($suffix, $recursive, $ignore)>

Use th <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925967	926108	
==>"
                            ],
                  "BODY" => "#line 385 \"src/ops/string.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO_HEAD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927437	927578	
==>"
                            ],
                  "BODY" => "#line 385 \"src/ops/string.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO_HEAD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928907	929048	
==>"
                            ],
                  "BODY" => "#line 385 \"src/ops/string.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO_HEAD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930378	930519	
==>"
                            ],
                  "BODY" => "#line 385 \"src/ops/string.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO_HEAD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549919	550017	
==>/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING *met <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551220	551318	
==>/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING *met <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553782	553880	
==>/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING *met <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555179	555277	
==>/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  STRING *met <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146800	147190	
==>ore",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 179,
                  "ARGS" => [
                              "p",
                              "i",
                              "i <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	34107	34227	
==>'         => \&_op_complex_p,
  'real?'            => \&_op_real_p,
  'rational?'        => \&_op_rational_p,
  'integer? <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233877	233989	
==>e 599 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234781	234893	
==>e 599 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235685	235797	
==>e 599 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	1025	1133	
==>failLabel);
}

sub output_start {
    my ($self, $n) = @_;
    return "rx_startgroup P0, $n";
}

sub output_e <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10986	11074	
==>EMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pre_call_HAS_RETURN_${CURIC}
if "${C <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8172	8260	
==>EMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pre_call_HAS_RETURN_${CURIC}
if "${C <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5834	5922	
==>EMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pre_call_HAS_RETURN_${CURIC}
if "${C <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527173	527472	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527926	528225	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528807	529106	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529689	529988	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073004	1073374	
==>=> [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_m <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075189	1075559	
==>=> [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_m <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077374	1077744	
==>=> [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_m <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	6097	6200	
==>_quotelike($textref,"",1,0))
		{
			next;
		}

		else { $$textref =~ m/\G(?:[a-zA-Z0-9]+|.)/gcs }
	}
	if <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8416	8532	
==>guments list:
      #

      $self->require_open_paren;

      my @formal_args;

      unless ($self->skip_close_pare <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	7111	7215	
==>"$src_stem.c")) {
        run(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_ <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5405	5509	
==>"$src_stem.c")) {
        run(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_ <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	7322	7426	
==>"$src_stem.c")) {
        run(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950517	950613	
==>\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_charset(in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951477	951573	
==>\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_charset(in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952437	952533	
==>\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_charset(in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953398	953494	
==>\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_charset(in <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2812	2911	
==>L<Pod::Simple>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights rese <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12176	12275	
==>L<Pod::Simple>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights rese <==
4	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3094	3193	
==>L<Pod::Simple>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights rese <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2832	2931	
==>L<Pod::Simple>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights rese <==
4	/Users/nnunley/parrot/lib/Test/More.pm	33276	33376	
==>e used together in the
same program>.

If you simply want to do a little tweaking of how the tests be <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	684	784	
==>n values. q[] is used in
# some places as Win32 paths have \'s in, which qq[] treats as escape sequen <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	642	742	
==>n values. q[] is used in
# some places as Win32 paths have \'s in, which qq[] treats as escape sequen <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	646	746	
==>n values. q[] is used in
# some places as Win32 paths have \'s in, which qq[] treats as escape sequen <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_assignments.pm	63	230	
==>is in S1
#    % &   INT
#    ! #   FLO
#    $     STRING
#    
# Type must be one of INT FLO STRING
#    INT  is in   I0
#    FLO  is in   N0
#    STRING is in S0
#
# N <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8417	8547	
==>check eq 'ERROR'
            or  do {
#DBG>				$debug & 0x04
#DBG>			and	print STDERR 
#DBG>				    "go to state $$states[$$sta <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8035	8161	
==>check eq 'ERROR'
            or  do {
#DBG>				$debug & 0x04
#DBG>			and	print STDERR 
#DBG>				    "go to state $$states[$$sta <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	5146	5264	
==>arg;
    my $meth = '';
    if ($ns) {
	$meth = ', method';
	$nst = qq!.namespace [$ns]!;
	if ($vtables{$arg}) {
	    $ <==
4	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1025	1174	
==>elpath},
                                           STDOUT => $out_f, STDERR => $out_f );
    unless ($pass) {
        my $file = Parrot::Test::slurp_ <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1066	1215	
==>elpath},
                                           STDOUT => $out_f, STDERR => $out_f );
    unless ($pass) {
        my $file = Parrot::Test::slurp_ <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4813	4935	
==>c p6rule_compile
            load_bytecode "PGE.pbc"
            load_bytecode "PGE/Dumper.pir"
            load_bytecode " <==
4	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2117	2231	
==>elpath},
					   STDOUT => $out_f, STDERR => $out_f);
  
    unless ($pass) {
      my $file = Parrot::Test::slurp_ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7570	7673	
==>nd post store operation hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = " <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5688	5791	
==>nd post store operation hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = " <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4530	4633	
==>nd post store operation hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = " <==
4	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10497	10582	
==>$c,$d,$a,$_[9],21,0xfc93a039,/* 52 */
II,$a,$b,$c,$d,$_[16],6,0x655b59c3,/* 53 */
II,$ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686473	686728	
==>->getprop(interpreter, {{\@3}}, {{\@2}});\n   {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687363	687618	
==>->getprop(interpreter, {{\@3}}, {{\@2}});\n   {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	3619	3729	
==>)\n";
        }
    }
} 
elsif ($mode eq 'compile') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	3723	3833	
==>)\n";
        }
    }
} 
elsif ($mode eq 'compile') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1284	1392	
==>lf->{ARGS};
    }
}

=item C<arg($index)>

Returns the argument at index C<$index>.

=cut

sub arg
{
    my $ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1588	1676	
==>>>

=head1 SEE ALSO

L<Pod::Simple::PullParserToken>, L<Pod::Simple>, L<Pod::Simple::Subc <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2755	2843	
==>>>

=head1 SEE ALSO

L<Pod::Simple::PullParserToken>, L<Pod::Simple>, L<Pod::Simple::Subc <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1875	1963	
==>>>

=head1 SEE ALSO

L<Pod::Simple::PullParserToken>, L<Pod::Simple>, L<Pod::Simple::Subc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842626	842949	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843503	843826	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844381	844704	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845259	845582	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24786	24911	
==>ph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      m <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25797	25922	
==>ph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      m <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26685	26810	
==>ph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      m <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27695	27820	
==>ph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      m <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79015	79109	
==>L({{\@2}}) ? NULL : PMC_data({{\@2}}), name);\n  string_cstring_free(name);\n  if (p == NULL) { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80536	80630	
==>L({{\@2}}) ? NULL : PMC_data({{\@2}}), name);\n  string_cstring_free(name);\n  if (p == NULL) { <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	26057	26175	
==>y $warning = shift;
    if ($warning =~ /Odd number of elements in hash assignment/) {
        require Carp;
        my <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1932	2020	
==>ock->find_symbol($left->value);
    $self->SYNTAX_ERROR("Expression involves unknown vari <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1890	1978	
==>ock->find_symbol($left->value);
    $self->SYNTAX_ERROR("Expression involves unknown vari <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1812	1900	
==>ock->find_symbol($left->value);
    $self->SYNTAX_ERROR("Expression involves unknown vari <==
4	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	871	1016	
==>> 'isnt_eq',
                        );

foreach my $func ( keys %language_test_map ) {
    no strict 'refs';            ## no critic

    *{"Parr <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	371	478	
==>$parser->YYData->{srcname}, ':',
        $parser->YYData->{lineno}, ': ', $msg
        if ( exists $parser <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	837	944	
==>$parser->YYData->{srcname}, ':',
        $parser->YYData->{lineno}, ': ', $msg
        if ( exists $parser <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1295	1402	
==>$parser->YYData->{srcname}, ':',
        $parser->YYData->{lineno}, ': ', $msg
        if ( exists $parser <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115427	115696	
==>ops\"\n  {{\@1}} = {{\@2}} << {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116282	116551	
==>ops\"\n  {{\@1}} = {{\@2}} << {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117137	117406	
==>ops\"\n  {{\@1}} = {{\@2}} << {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	321	416	
==>se;
$Lame = ' class="pad"' unless defined $Lame;

$Linearization_Limit = 90 unless defined $Line <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958804	959069	
==>" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "functio <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959605	959870	
==>" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "functio <==
4	/Users/nnunley/parrot/tools/dev/install_files.pl	848	941	
==>/usr/lib'.

=item C<includedir>

The header directory. Defaults to '/usr/include'.

=back

=he <==
4	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	1077	1170	
==>/usr/lib'.

=item C<includedir>

The header directory. Defaults to '/usr/include'.

=back

=he <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841195	841491	
==>AGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 954,
                  "ARGS" => [
                              "i <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1663	1752	
==>symbol($dest->value);
  $self->SYNTAX_ERROR("Assigning to unknown variable %s.", $dest->va <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1621	1710	
==>symbol($dest->value);
  $self->SYNTAX_ERROR("Assigning to unknown variable %s.", $dest->va <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1543	1632	
==>symbol($dest->value);
  $self->SYNTAX_ERROR("Assigning to unknown variable %s.", $dest->va <==
4	/Users/nnunley/parrot/config/gen/makefiles.pm	8813	8953	
==>f->data->get('new_perldoc');

        foreach my $ops (@ops) {
            my $pod = $ops;
            $pod =~ s/\.ops$/.pod/;
            pr <==
4	/Users/nnunley/parrot/tools/build/ops2c.pl	15004	15105	
==>}
    return NULL;
}

END_C

if ($dynamic_flag) {
    my $load_func = "Parrot_lib_${base}_ops${suffix} <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1270	1368	
==>ken->attr, etc...

    } elsif($token->is_text) {
      ...access $token->text, $token->text_r, etc <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	31253	31350	
==>ost_op(1, 1);
		    $post_op = sub_meta($post_op, $mv, "post_op for rule $rule->{'name'} value typ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48101	48328	
==>P_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "bounds",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5135	5238	
==>y($ShowCurToken) = sub {
#DBG>		my($tok)='>';
#DBG>		for (split('',$$token)) {
#DBG>			$tok.=		(ord($ <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	21917	22020	
==>unc} );
                $test_func->( $lang_for_extension{$extension}, $code, $expected, $example_f, @op <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4887	4987	
==>y($ShowCurToken) = sub {
#DBG>		my($tok)='>';
#DBG>		for (split('',$$token)) {
#DBG>			$tok.=		(ord($ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793412	793506	
==>\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794317	794411	
==>\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795222	795316	
==>\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796128	796222	
==>\"\n    {{\@1}}->vtable->set_integer_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099069	1099197	
==>n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100267	1100395	
==>n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101465	1101593	
==>n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102664	1102792	
==>n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL   e  = {{\@3}};\n    int s = 1;\n    if (e != 0) {\n\tif (e < 0) <==
4	/Users/nnunley/parrot/tools/dev/lib_deps.pl	11158	11283	
==>.h
hypotf      math.h
hypotl      math.h
ilogb       math.h
ilogbf      math.h
ilogbl      math.h
imag        complex.h
isalnu <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	475	577	
==>t {
  # ($self, $element_name, $attr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBUG <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	474	576	
==>t {
  # ($self, $element_name, $attr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBUG <==
4	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	669	771	
==>t {
  # ($self, $element_name, $attr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBUG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800622	800709	
==>line 467 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed(interpreter, {{\@1}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801526	801613	
==>line 467 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed(interpreter, {{\@1}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802430	802517	
==>line 467 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed(interpreter, {{\@1}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803335	803422	
==>line 467 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed(interpreter, {{\@1}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467650	467754	
==>exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468521	468625	
==>exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469395	469499	
==>exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470270	470374	
==>exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+ <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24007	24131	
==>=> 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 128,
			'functioncall' = <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10937	11028	
==>type, need to supply a ${DEST0}.
${ITEMP0} = ${PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8123	8214	
==>type, need to supply a ${DEST0}.
${ITEMP0} = ${PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5785	5876	
==>type, need to supply a ${DEST0}.
${ITEMP0} = ${PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_ <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	23215	23337	
==>c;
    my $nfix =  ($n & 0xff);
    my $nk =  2*($n >> 8);
    my $name = $stack[-1 - $nfix-$nk]->[0];
    print "\t\t $cmt <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	4460	4571	
==>nfo->native_ptr/g;
            $asm =~ s/CUR_OPCODE/jit_info->cur_op/g;
            $asm =~ s/cur_opcode/jit_inf <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2761	2860	
==>es '', same as 'STRING' x 0

  $self->{'Thispara'} =~ tr{\xAD}{}d if Pod::Simple::ASCII;
  my $out = <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2295	2394	
==>es '', same as 'STRING' x 0

  $self->{'Thispara'} =~ tr{\xAD}{}d if Pod::Simple::ASCII;
  my $out = <==
4	/Users/nnunley/parrot/tools/dev/run_indent.pl	1521	1648	
==>ning $file.. ";
    my $c = new C::Scan 'filename' => $file,
                        'add_cppflags' => $ccflags;
    $c->set('in <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	340	444	
==>}

    print STDOUT 'lua: ', $parser->YYData->{srcname}, ':',
        $parser->YYData->{lineno}, ': ', <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	806	910	
==>}

    print STDOUT 'lua: ', $parser->YYData->{srcname}, ':',
        $parser->YYData->{lineno}, ': ', <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1264	1368	
==>}

    print STDOUT 'lua: ', $parser->YYData->{srcname}, ':',
        $parser->YYData->{lineno}, ': ', <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292956	293348	
==>GS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 341,
                  "ARGS" => [
                              "i",
                              "s",
                              " <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	62500	62693	
==>e {
                print $op, "\n";
                die;
            }
        }
        print {$FH} "  # end of prolog\n";
        foreach my $op ( @{$fct} ) {
            $op->visit($g <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4190	4350	
==>]{1,3})//
                and $str .= chr $1, 
                last;

            s/^\\//
                and $parser->Error("Invalid escape sequence $_ .\n <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2676	2835	
==>]{1,3})//
                and $str .= chr $1,
                last;

            s/^\\//
                and $parser->Error("Invalid escape sequence $_ .\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762651	762922	
==>AME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 86 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763503	763774	
==>AME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 86 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764356	764627	
==>AME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 86 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765209	765480	
==>AME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 86 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926102	926237	
==>FO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927572	927707	
==>FO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929042	929177	
==>FO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930513	930648	
==>FO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STRINGINFO_STRSTART: {{\@1}} = PTR2UINTVAL( <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	7027	7125	
==>dest_stem) = @_;

    $dest_stem ||= $src_stem;
    if (needs_build("$dest_stem$O", "$src_stem.c")) <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5321	5419	
==>dest_stem) = @_;

    $dest_stem ||= $src_stem;
    if (needs_build("$dest_stem$O", "$src_stem.c")) <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	7238	7336	
==>dest_stem) = @_;

    $dest_stem ||= $src_stem;
    if (needs_build("$dest_stem$O", "$src_stem.c")) <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	47184	47281	
==>i.e. the left delimiter of the here document, including any quotes),

=item [5]

"This is the mess <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766568	766675	
==>GISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767421	767528	
==>GISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768274	768381	
==>GISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769128	769235	
==>GISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766063	766326	
==>AME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766915	767178	
==>AME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767768	768031	
==>AME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768621	768884	
==>AME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2311	2422	
==>ns the C code for the specified op argument type (see
C<Parrot::OpTrans>) and value. C<$op> is an instance of C< <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3403	3514	
==>ns the C code for the specified op argument type (see
C<Parrot::OpTrans>) and value. C<$op> is an instance of C< <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3547	3658	
==>ns the C code for the specified op argument type (see
C<Parrot::OpTrans>) and value. C<$op> is an instance of C< <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3202	3313	
==>ns the C code for the specified op argument type (see
C<Parrot::OpTrans>) and value. C<$op> is an instance of C< <==
4	/Users/nnunley/parrot/lib/File/Which.pm	4004	4098	
==>systems, which do not have a notion of
directly executable files, but uses special extensions s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	630	717	
==>st) . ") is not Identifier!") unless UNIVERSAL::isa($dest, 'Jako::Construct::Expression: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	621	708	
==>st) . ") is not Identifier!") unless UNIVERSAL::isa($dest, 'Jako::Construct::Expression: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	510	597	
==>st) . ") is not Identifier!") unless UNIVERSAL::isa($dest, 'Jako::Construct::Expression: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19504	19603	
==>alue::Identifier->new($block, $self->require_ident);

      $self->require_open_paren;

      my @ar <==
4	/Users/nnunley/parrot/config/auto/jit.pm	2770	2882	
==>n$(O)');
    } else {
        $conf->data->set(asmfun_o => '');
    }

    $jitcapable = $conf->options->get('jit <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2975	3074	
==>'op' });
    $handler->end_element({ Name => 'block' });
    $handler->start_element({ Name => 'bloc <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3649	3748	
==>'op' });
    $handler->end_element({ Name => 'block' });
    $handler->start_element({ Name => 'bloc <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3739	3838	
==>'op' });
    $handler->end_element({ Name => 'block' });
    $handler->start_element({ Name => 'bloc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	525547	525799	
==>s((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	531220	531472	
==>s((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	535797	536049	
==>s((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13880	13992	
==>trol statements to function properly.
      #
      # Put on an empty continue block and then pop it back off. It <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332681	332775	
==>ring_to_cstring() need freeing\n     but this generates ugly warnings WRT discarding the const\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333959	334053	
==>ring_to_cstring() need freeing\n     but this generates ugly warnings WRT discarding the const\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335237	335331	
==>ring_to_cstring() need freeing\n     but this generates ugly warnings WRT discarding the const\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336516	336610	
==>ring_to_cstring() need freeing\n     but this generates ugly warnings WRT discarding the const\ <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	47058	47206	
==>ne 104 "Lua\lua51.yp"
{
            PushScope( $_[0] );
        }
	],
	[#Rule 14
		 'stat', 6,
sub
#line 108 "Lua\lua51.yp"
{
            B <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9472	9569	
==>n or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get deta <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6986	7083	
==>n or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get deta <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5542	5639	
==>n or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get deta <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340263	340551	
==>l(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341262	341550	
==>l(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342261	342549	
==>l(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343261	343549	
==>l(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072334	1072469	
==>p1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  {{\@2}} = (INTVAL)( xk * pow( -1, n ) );\n  {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074519	1074654	
==>p1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  {{\@2}} = (INTVAL)( xk * pow( -1, n ) );\n  {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076704	1076839	
==>p1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  {{\@2}} = (INTVAL)( xk * pow( -1, n ) );\n  {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078890	1079025	
==>p1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\n    yk = ykp1;\n  }\n  {{\@1}} = r1;\n  {{\@2}} = (INTVAL)( xk * pow( -1, n ) );\n  {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050127	1050220	
==>172 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051161	1051254	
==>172 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052195	1052288	
==>172 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053230	1053323	
==>172 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206531	206805	
==>}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207473	207747	
==>}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208413	208687	
==>}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209354	209628	
==>}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514123	514266	
==>ops\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515003	515146	
==>ops\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515883	516026	
==>ops\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	1860	1959	
==>~ /^(\w+::)*\w+$/ or croak("Bad class name: $class");

		my $modulefile = $class;
		$modulefile =~ s <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	3510	3650	
==>hift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = find_lex \"$op- <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	35688	35786	
==>nything failed it will exit with how many failed.  If
you run less (or more) tests than you planned <==
4	/Users/nnunley/parrot/lib/Test/More.pm	33759	33857	
==>nything failed it will exit with how many failed.  If
you run less (or more) tests than you planned <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	2555	2653	
==>nything failed it will exit with how many failed.  If
you run less (or more) tests than you planned <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706243	706641	
==>"mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 792,
                  "ARGS" => [
                              "p", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	707235	707567	
==>"mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 793 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704260	704591	
==>"mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 79 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705251	705582	
==>"mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 79 <==
4	/Users/nnunley/parrot/config/auto/cgoto.pm	577	691	
==>@_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('skipped');
        return $self;
    } <==
4	/Users/nnunley/parrot/config/auto/headers.pm	512	626	
==>@_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('skipped');
        return $self;
    } <==
4	/Users/nnunley/parrot/config/auto/jit.pm	663	777	
==>@_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('skipped');
        return $self;
    } <==
4	/Users/nnunley/parrot/config/gen/cpu.pm	575	689	
==>@_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('skipped');
        return $self;
    } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500477	500724	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501215	501462	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501954	502201	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502692	502939	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846695	846921	
==>erpreter, (UINTVAL){{\@2}});\n  {{\@1}} = s;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847491	847717	
==>erpreter, (UINTVAL){{\@2}});\n  {{\@1}} = s;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	690373	690511	
==>p"
                            ],
                  "BODY" => "#line 621 \"src/ops/pmc.ops\"\n   {{\@1}} = Parrot_freeze(interpreter, {{\@2 <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	33522	33629	
==>BUG > 1 and printf qq{Catching "%s as " as complex L<URL> link.\n},
          #  join '~', @{$treelet->[$i][ <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5909	6076	
==>_->{pragma} and $_->{pragma} eq 'multi' ) {
                print {$FH} " :flat";
            }
            $first = 0;
        }
        print {$FH} ")\n";
    } <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	7004	7171	
==>_->{pragma} and $_->{pragma} eq 'multi' ) {
                print {$FH} " :flat";
            }
            $first = 0;
        }
        print {$FH} ")\n";
    } <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	9918	10085	
==>_->{pragma} and $_->{pragma} eq 'multi' ) {
                print {$FH} " :flat";
            }
            $first = 0;
        }
        print {$FH} ")\n";
    } <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	17466	17571	
==>document_source )

=item $parser->set_source( \@document_lines )

=back

Or you can call these methods, wh <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123886	124171	
==>NTVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124760	125045	
==>NTVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125634	125919	
==>NTVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419485	419747	
==>i",
                              "p",
                              "i",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_po <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319454	319629	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320223	320398	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320993	321168	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [ <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	4524	4643	
==>total_branches);
                $totals{branches} += $total_branches;
                $totals{covered_branches} += $cov <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591391	591496	
==>ps\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592601	592706	
==>ps\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593811	593916	
==>ps\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595022	595127	
==>ps\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_ <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	6398	6504	
==>rn (
		$startpos,  $ldelpos-$startpos,		# PREFIX
		$ldelpos,   1,				# OPENING BRACKET
		$ldelpos+1, $endpo <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	959	1061	
==>@{$temp->{children}}, $expr;
  }
  elsif ($tokens->[$count] eq ",") {
    $temp = { children => [{ valu <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6176	6272	
==>ort cities
TRUE=1
FALSE=0
DIM A$(4)
A$(1) = "New York"
A$(2) = "Boston"
A$(3) = "Chicago"
A$(4) = <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15829	15925	
==>ort cities
TRUE=1
FALSE=0
DIM A$(4)
A$(1) = "New York"
A$(2) = "Boston"
A$(3) = "Chicago"
A$(4) = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557301	557563	
==>method",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558684	558946	
==>method",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560068	560330	
==>method",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1122	1219	
==>$self->name;

#  $self->DEBUG(0, "Searching for symbol '$name'...");

  my $sym = $self->block->fi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180551	180696	
==>c"
                            ],
                  "BODY" => "#line 278 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181447	181592	
==>c"
                            ],
                  "BODY" => "#line 278 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182343	182488	
==>c"
                            ],
                  "BODY" => "#line 278 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\ <==
4	/Users/nnunley/parrot/tools/dev/lib_deps.pl	6674	6768	
==>{ defined($defined_in{$_}) } @symbols;
    my @non_ansi_external_symbols = grep { ! exists($ans <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	28562	28665	
==>g $p->[1]
EOC
	}
	my $x = (pop @stack)->[1];
	print <<EOC;
	$x\["_message"\] = "Foo"
EOC
	$throw = "thro <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2785	2878	
==>pe for left!")  unless defined $left_type;
  $self->INTERNAL_ERROR("No type for right!") unles <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2551	2644	
==>pe for left!")  unless defined $left_type;
  $self->INTERNAL_ERROR("No type for right!") unles <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2473	2566	
==>pe for left!")  unless defined $left_type;
  $self->INTERNAL_ERROR("No type for right!") unles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586703	586799	
==>\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587889	587985	
==>\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589075	589171	
==>\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590262	590358	
==>\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpreter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908803	909105	
==>> "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 102 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909699	910001	
==>> "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 102 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910596	910898	
==>> "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 102 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911493	911795	
==>> "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 102 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540429	540529	
==>? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541681	541781	
==>? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542933	543033	
==>? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4 <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18945	19041	
==>lfpoint_integer> );

This method sets the size (in half-points, like 15 for 7.5-point)
that the h <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462877	462992	
==>onError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = fmod({{\@2}}, den);\n  {{+=4}};\n",
                  "LABELS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463874	463989	
==>onError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = fmod({{\@2}}, den);\n  {{+=4}};\n",
                  "LABELS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464871	464986	
==>onError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = fmod({{\@2}}, den);\n  {{+=4}};\n",
                  "LABELS" = <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	577	670	
==>ting B<read Test::Tutorial> first! **

This is an extremely simple, extremely basic module for <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478429	478788	
==>S" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 548,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 437 \" <==
4	/Users/nnunley/parrot/config/init/headers.pm	208	301	
==>ION

Uses C<ExtUtils::Manifest> to determine which headers are nongenerated.

=cut

package in <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	47820	47910	
==>a here document whilst
extracting from a modifiable string, C<extract_quotelike> silently
r <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391896	392070	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393029	393203	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183238	183383	
==>c"
                            ],
                  "BODY" => "#line 285 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184134	184279	
==>c"
                            ],
                  "BODY" => "#line 285 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185030	185175	
==>c"
                            ],
                  "BODY" => "#line 285 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\ <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	20342	20460	
==>t ="\t\t# $opcode\t $rest";
	if ($rest =~ /to (\d+)/) {
	    $targ = "pc_$1";
	}
	$op = $op_map{$c};
    }
    elsif ($ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353705	353896	
==>PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354450	354641	
==>PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355217	355408	
==>PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3515	3612	
==>(NAME)

Attempt to get a symbol from this block's symbol table only. If there is no
locally define <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59355	59575	
==>S_on(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60003	60223	
==>S_on(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61945	62165	
==>S_on(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62589	62809	
==>S_on(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	526	611	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
#
#  And <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	5875	5959	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
#
# And <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	7562	7646	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
#
# And <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	8923	9007	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
#
# And <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670666	670903	
==>string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671439	671676	
==>string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679181	679418	
==>string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679960	680197	
==>string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94427	94724	
==>E" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95319	95616	
==>E" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96212	96509	
==>E" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	37527	37621	
==></> after any leading bracket
characters in the actual opening tag that was matched (I<not> the <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926021	926126	
==>DY" => "#line 385 \"src/ops/string.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927491	927596	
==>DY" => "#line 385 \"src/ops/string.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928961	929066	
==>DY" => "#line 385 \"src/ops/string.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930432	930537	
==>DY" => "#line 385 \"src/ops/string.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PT <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25131	25229	
==>turn;
  my $num_children = defined $node->{children} ? @{$node->{children}} - 1 : 0;

  if($num_chi <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27031	27129	
==>turn;
  my $num_children = defined $node->{children} ? @{$node->{children}} - 1 : 0;

  if($num_chi <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24243	24340	
==>turn;
  my $num_children = defined $node->{children} ? @{$node->{children}} - 1 : 0;
  if($num_chi <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26142	26239	
==>turn;
  my $num_children = defined $node->{children} ? @{$node->{children}} - 1: 0;

  if($num_chi <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24411	24521	
==>==1) {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self- <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25300	25410	
==>==1) {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self- <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26310	26420	
==>==1) {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self- <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27200	27310	
==>==1) {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $self- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374052	374307	
==>rrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374935	375190	
==>rrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375818	376073	
==>rrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376702	376957	
==>rrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2325	2444	
==>$liblist = join( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ /gcc/i) {
            $liblist =~ s/gdbm\.lib/- <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2617	2736	
==>$liblist = join( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ /gcc/i) {
            $liblist =~ s/gdbm\.lib/- <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2412	2531	
==>$liblist = join( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ /gcc/i) {
            $liblist =~ s/gdbm\.lib/- <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	21789	21891	
==>s_method}{class_init} : -1;
    my $class_init_code = $n >= 0 ? $self->{methods}[$n]{body} : "";
    $c <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2819	2921	
==>Simple>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

Thi <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12183	12285	
==>Simple>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

Thi <==
4	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3101	3203	
==>Simple>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

Thi <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2839	2941	
==>Simple>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

Thi <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	433	531	
==>var,[amount])" => "advance input <n> chars" ],
    [ "check(n)" => "require at least <n> chars rema <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2724	2821	
==>($compiler);

  $compiler->emit("  concat $dest, $left, $right");

  if (($dest_ident->kind eq 'va <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6746	6869	
==>bgerror
#DBG>				and	$$errstatus == 0
#DBG>				and	do {
#DBG>					print STDERR "**End of Error recovery.\n";
#DBG>					$ <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8618	8737	
==>bgerror
#DBG>			and	$$errstatus == 0
#DBG>			and	do {
#DBG>				print STDERR "**End of Error recovery.\n";
#DBG>				$ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6432	6551	
==>bgerror
#DBG>				and	$$errstatus == 0
#DBG>				and	do {
#DBG>					print STDERR "**End of Error recovery.\n";
#DBG>					$ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8229	8344	
==>bgerror
#DBG>			and	$$errstatus == 0
#DBG>			and	do {
#DBG>				print STDERR "**End of Error recovery.\n";
#DBG>				$ <==
4	/Users/nnunley/parrot/languages/dotnet/Configure.pl	2636	2739	
==>nfig{$_}/g;
	}
	
	# Write.
	open $fh, "> config/N2PConfig.pm" or die "Unable to open config/N2PConfi <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	1642	1727	
==>opt/local/include -fno-common -no-cpp-precomp  -pipe -Wdeclaration-after-statement -I/ <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1030	1115	
==>opt/local/include -fno-common -no-cpp-precomp  -pipe -Wdeclaration-after-statement -I/ <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1034	1119	
==>opt/local/include -fno-common -no-cpp-precomp  -pipe -Wdeclaration-after-statement -I/ <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	18021	18131	
==>);
    $self->{Curr_Test}++;

    $self->{Test_Results}[$self->{Curr_Test}-1] = &share({
        'ok'      => 1 <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	18886	18996	
==>);
    $self->{Curr_Test}++;

    $self->{Test_Results}[$self->{Curr_Test}-1] = &share({
        'ok'      => 1 <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9558	9664	
==>qr(t),
if t=3 then print "True!"
next t


' Expect OK
if 2 > 1 then
	print "Ok"
else
	print "All is not rig <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15122	15227	
==>tarray) {  # return an array
    return map {; ($x = $_) =~
      s/([F\x00-\x1F\-\\\{\}\x7F-\xFF])/$Escap <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	901	1042	
==>or die "Unable to open '$lang_f'"; # JMG
        binmode LANG; # JMG
        print LANG $lang_code; # JMG
        close LANG; # JMG

        P <==
4	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	813	954	
==>or die "Unable to open '$lang_f'"; # JMG
        binmode LANG; # JMG
        print LANG $lang_code; # JMG
        close LANG; # JMG

        P <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6905	6996	
==>right$(t$, 5)
' instr
s1$="The longer string"
found$="longer"
bogus$="not"
print "Found  (5) <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18634	18725	
==>right$(t$, 5)
' instr
s1$="The longer string"
found$="longer"
bogus$="not"
print "Found  (5) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	98208	98481	
==>{{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bno <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	947	1058	
==>ko::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block,

    DEST  => $dest,
    LEFT  => <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	938	1049	
==>ko::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block,

    DEST  => $dest,
    LEFT  => <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	827	938	
==>ko::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block,

    DEST  => $dest,
    LEFT  => <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	4977	5089	
==>t_stmt ref in every statement to make it easier to
    # move around.
    my $next;
    for my $stmt (reverse @ou <==
4	/Users/nnunley/parrot/config/auto/bc.pm	93	189	
==>02:28:15.110975Z coke  $

=head1 NAME

config/auto/bc.pm - Check whether GNU bc works

=head1 DES <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557740	557833	
==>"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next = {{^+ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559124	559217	
==>"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next = {{^+ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560507	560600	
==>"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next = {{^+ <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	27475	27577	
==>e) = @_;
    $type = "FixedPMCArray" unless defined $type;
    my ($opcode, $rest) = ($code[$code_l]->[ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1923	2012	
==>sym = $block->find_symbol($left->value);
    $self->SYNTAX_ERROR("Expression involves unkn <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1881	1970	
==>sym = $block->find_symbol($left->value);
    $self->SYNTAX_ERROR("Expression involves unkn <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1803	1892	
==>sym = $block->find_symbol($left->value);
    $self->SYNTAX_ERROR("Expression involves unkn <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2793	2907	
==>mpiler->emit("  $temp = $value");
      $args[$i] = $temp;
    }
    else {
      $args[$i] = $args[$i]->compile($c <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2493	2607	
==>mpiler->emit("  $temp = $value");
      $args[$i] = $temp;
    }
    else {
      $args[$i] = $args[$i]->compile($c <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1706	1789	
==>n{\\pard\\li#rtfindent##rtfkeep#\\plain\\s20\\sa180\\f1\\fs18\\lang1024\\noproof\n", <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1848	1931	
==>n{\\pard\\li#rtfindent##rtfkeep#\\plain\\s20\\sa180\\f1\\fs18\\lang1024\\noproof\n", <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	1950	2074	
==>{
    if($] < 5.007  and  $in > 255) { # can't be trusted with Unicode
      return $FAR_CHAR;
    } else {
      return chr( <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	2621	2721	
==>s/unlambda'),
        $self->new_section('URM', 'urm.html', '', 'languages/urm'),
        $self->new_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019800	1019895	
==>n  const time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_localtime_r(&t, &tm);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020731	1020826	
==>n  const time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_localtime_r(&t, &tm);\ <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	18188	18305	
==>ass might not have a no-argument constructor
       * "recursive" data structures didn't work well:
                 p <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2542	2651	
==>left;
  my $op    = $self->op;
  my $right = $self->right;

  if (defined $cond) {
    $handler->start_element <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3216	3325	
==>left;
  my $op    = $self->op;
  my $right = $self->right;

  if (defined $cond) {
    $handler->start_element <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3306	3415	
==>left;
  my $op    = $self->op;
  my $right = $self->right;

  if (defined $cond) {
    $handler->start_element <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15506	15606	
==>up(@expr);		# Repair unary -, functions, etc...
		@stream=convert_to_rpn(@expr);	# Get infix into RPN <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15868	15968	
==>up(@expr);		# Repair unary -, functions, etc...
		@stream=convert_to_rpn(@expr);	# Get infix into RPN <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16395	16495	
==>up(@expr);		# Repair unary -, functions, etc...
		@stream=convert_to_rpn(@expr);	# Get infix into RPN <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	17019	17119	
==>up(@expr);		# Repair unary -, functions, etc...
		@stream=convert_to_rpn(@expr);	# Get infix into RPN <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	18374	18501	
==>rouping.
            push @rules_grouped, $groups{$_}->[0];
        } else {
            # Strip first code from all the groups. <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33143	33240	
==>hashname {}

sub describe ($)
{
	my $desc = $_[0]->{"implicit"} || $_[0]->{"subrule"};
	$desc = "< <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19315	19405	
==>f->current_block();
      my $left = Jako::Construct::Expression::Value::Identifier->new($b <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20397	20487	
==>f->current_block();
      my $left = Jako::Construct::Expression::Value::Identifier->new($b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018033	1018136	
==>, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = string_from_cstring(interpreter, resultbuff <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018958	1019061	
==>, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = string_from_cstring(interpreter, resultbuff <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019888	1019991	
==>, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = string_from_cstring(interpreter, resultbuff <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020819	1020922	
==>, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = string_from_cstring(interpreter, resultbuff <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1120	1214	
==>);
  confess "Right is not Value!" if defined $right and not UNIVERSAL::isa($right, 'Jako::Cons <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1148	1242	
==>);
  confess "Right is not Value!" if defined $right and not UNIVERSAL::isa($right, 'Jako::Cons <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	820	914	
==>);
  confess "Right is not Value!" if defined $right and not UNIVERSAL::isa($right, 'Jako::Cons <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	42900	42989	
==>lashed delimiters, embedded balanced bracket
delimiters (for the quotelike operators), and <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056491	1056599	
==>"#line 194 \"src/ops/var.ops\"\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057383	1057491	
==>"#line 194 \"src/ops/var.ops\"\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058275	1058383	
==>"#line 194 \"src/ops/var.ops\"\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059168	1059276	
==>"#line 194 \"src/ops/var.ops\"\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4} <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32783	32880	
==>e::RecDescent::_tracefirst($text))
							if defined $::RD_TRACE;').'
		push @item, ' . ($::RD_NO_ <==
4	/Users/nnunley/parrot/lib/Parrot/Op.pm	6313	6408	
==>/{{=0,\+=([^{]*?)}}/ $trans->restart_offset($1)  . "; {{=0}}"; /me;
    s/{{=0,-=([^{]*?)}}/  $t <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30580	30675	
==>e::RecDescent::_tracefirst($text))
							if defined $::RD_TRACE;').'
		push @item, '.($::RD_NO_ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28504	28597	
==>e::RecDescent::_tracefirst($text))
					if defined $::RD_TRACE;').'
		push @item, '.($::RD_NO_ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	5333	5450	
==>el;
    }

    $block = $block->block; # Collect symbols from the parent block next
    $level++;
  }

  printf STDERR <==
4	/Users/nnunley/parrot/lib/Test/More.pm	15479	15583	
==>test (foo.t at line 52)
    # Since there's no foo, check that /etc/bar is set up right.

You might remem <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13108	13199	
==>RY_DESTINATION, STACK_CLEANUP_NULL);\n  loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13952	14043	
==>RY_DESTINATION, STACK_CLEANUP_NULL);\n  loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\ <==
4	/Users/nnunley/parrot/lib/Test/More.pm	9750	9847	
==>( $this, qr/that/, $test_name );

Works exactly as like(), only it checks if $this B<does not> mat <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714709	714803	
==>_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n    PI <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715632	715726	
==>_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n    PI <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716577	716671	
==>_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n    PI <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462938	463245	
==>2}}, den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463935	464242	
==>2}}, den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464932	465239	
==>2}}, den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/lib/Parrot/Op.pm	2657	2779	
==>w
{
    my $class = shift;
    my ($code, $type, $name, $args, $argdirs, $labels, $flags) = @_;

    my $self = {
        C <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1187	1312	
==>odes->[-1]->isa('ToBoolOp') ) {
        my $tobool = pop @{$opcodes};
        my $new    = pop @{$opcodes};
        my $loc <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10252	10374	
==>ate left on stack: aborting.\n";

			return(undef);
		};

		#shift the error token

#DBG>			$debug & 0x10
#DBG>		an <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9792	9906	
==>ate left on stack: aborting.\n";

			return(undef);
		};

		#shift the error token

#DBG>			$debug & 0x10
#DBG>		an <==
4	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	536	631	
==>he inlined versions more declarative, this
lets us do this work B<once> instead of many times, w <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	424313	424545	
==>=> [
                              "i",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 567 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_listen( <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	9654	9757	
==>re_ops{$core_opfunc[$i]}[1];

    my $jit_func;
    my $op = $Parrot::OpLib::core::ops->[$i];

    $prec <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	6608	6707	
==>!!!!
 *
 * This file is generated automatically from 'src/jit/$cpuarch/core.jit'
 * by $0.
 *
 * Any <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	5356	5454	
==>550 DATA "C",325,"D",900,"R",20000

' Read/data  Hello World -
10 read a$
print a$
if a$ = "-" then <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	39412	39552	
==>or($i = 2; $i < @$para; $i++) {
          foreach my $line ($para->[$i]) { # just for aliasing
            while( $line =~
              # So <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	6451	6573	
==>rces) = @_;

    my $target_mod = modtime($target)
      or return 1;
    for my $source (@sources) {
        return 1 if m <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4871	4993	
==>rces) = @_;

    my $target_mod = modtime($target)
      or return 1;
    for my $source (@sources) {
        return 1 if m <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	6662	6784	
==>rces) = @_;

    my $target_mod = modtime($target)
      or return 1;
    for my $source (@sources) {
        return 1 if m <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060142	1060322	
==>{{^+3}};\n    {{\@1}} = Parrot_get_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061047	1061227	
==>{{^+3}};\n    {{\@1}} = Parrot_get_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1625	1719	
==>ce!")
    unless UNIVERSAL::isa($type, "Jako::Construct::Type");

  my $type_name = $type->name <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1473	1567	
==>ce!")
    unless UNIVERSAL::isa($type, "Jako::Construct::Type");

  my $type_name = $type->name <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099029	1099132	
==>"#line 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100227	1100330	
==>"#line 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101425	1101528	
==>"#line 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102624	1102727	
==>"#line 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL res = 1.0;\n    INTVAL <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27603	27701	
==>$text;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'unless')
		. ' ($text =~ s/\A($skip)/$lasts <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29713	29811	
==>$text;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'unless')
		. ' ($text =~ s/\A($skip)/$lasts <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31810	31908	
==>$text;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'unless')
		. ' ($text =~ s/\A($skip)/$lasts <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9630	9727	
==>ork soon', :todo(1));

  diag('some misc comments and documentation');

= DESCRIPTION

This module <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	3811	3913	
==>e eq $calc_type->name) {
#    $self->DEBUG(0, "   ...converting left...");
    my $temp = $compiler->te <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	14552	14661	
==>in class and locate the nearest parent
    foreach my $entry (@{ $vt->{methods} } ) {
        my $meth = $entr <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28077	28180	
==>ent::expected
				   = $Parse::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = ($l <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30151	30254	
==>ent::expected
				   = $Parse::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = ($l <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32352	32455	
==>ent::expected
				   = $Parse::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = ($l <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516691	516950	
==>ps\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517430	517689	
==>ps\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518168	518427	
==>ps\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518907	519166	
==>ps\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854433	854766	
==>=> 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 97 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855321	855654	
==>=> 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 97 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856210	856543	
==>=> 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 97 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857099	857432	
==>=> 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 97 <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2539	2641	
==>num '$num' in opcode @{[$op->full_name]}"
        unless exists $arg_maps{$type};

    return sprintf($ <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4405	4507	
==>num '$num' in opcode @{[$op->full_name]}"
        unless exists $arg_maps{$type};

    return sprintf($ <==
4	/Users/nnunley/parrot/lib/Test/More.pm	16657	16759	
==>y honored.

If @imports are given, they are passed through to the use.  So this:

   BEGIN { use_ok('So <==
4	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	3408	3507	
==>e{build_dir}    = $1;
  $html =~ /summary="(\d+) test cases: (\d+) ok, (\d+) failed, (\d+) todo, (\d <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	19855	19975	
==>h_name;
        }
        $defaulted = 1 if $meth_name =~ /_default/;
        $defaulted = 1 if $meth_name =~ /_delegate/ <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	36138	36259	
==>5                 test died
    any other number    how many failed (including missing or extras)

If you fail more than 2 <==
4	/Users/nnunley/parrot/lib/Test/More.pm	34209	34330	
==>5                 test died
    any other number    how many failed (including missing or extras)

If you fail more than 2 <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	3004	3125	
==>5                 test died
    any other number    how many failed (including missing or extras)

If you fail more than 2 <==
4	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	14626	14736	
==>ref="<tmpl_var name=link>" title="Full smoke report">View full smoke report</a>
            </td>
          </t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071911	1072021	
==>r1 = {{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074096	1074206	
==>r1 = {{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076281	1076391	
==>r1 = {{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078467	1078577	
==>r1 = {{\@5}} < 0 ? -{{\@5}} : {{\@5}};\n  INTVAL r2 = 0;\n  INTVAL q1 = 0;\n\n  INTVAL xkm1 = 1;\n  INTVAL xk = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841661	841934	
==>2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842425	842698	
==>2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord" <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	1134	1250	
==>);
}

sub lookup_var {
    my ($self, $var, $ctx) = @_;
    return $ctx->{$var} || $var;
}

sub output {
    my ($sel <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6496	6586	
==>ko::Construct::Expression::Value::Identifier->new($block, $self->require_ident);
        pu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86953	87403	
==>,
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 108,
                  "ARGS" => [
                              "p",
                              "p",
                              "p",
                              "s"
                            ],
                  "BODY" => " <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11792	11879	
==>${STYPES}[${ITEMP1}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8855	8942	
==>${STYPES}[${ITEMP1}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7427	7514	
==>${STYPES}[${ITEMP1}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302786	303017	
==>S" => [
                              "i",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 980 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(int <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	12388	12535	
==>need to write code first
            if ($code_f !~ /\.pbc$/) {
                write_code_to_file($code, $code_f);
            }

            my $a <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3302	3405	
==>on of
the type of files which have this suffix.

=cut

sub type_for_suffix
{
	my $self = shift;
	my $suf <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8744	8833	
==>ms[CURR]}";
		label_defined($syms[CURR]);
		push @{$code{$seg}->{code}}, "$labels{$syms[CU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067290	1067624	
==>mental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":adv <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068476	1068810	
==>mental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":adv <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069662	1069996	
==>mental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":adv <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070849	1071183	
==>mental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":adv <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8768	8864	
==>om number distribution
randomize timer
max=10
dim a(max)
for i = 0 to 100
	b=rnd*max+1
	a(b)=a(b) <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20009	20105	
==>om number distribution
randomize timer
max=10
dim a(max)
for i = 0 to 100
	b=rnd*max+1
	a(b)=a(b) <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12312	12408	
==>with a name of "qacute") or is
syntactally invalid (as with a name of "1/4"), this returns undef. <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12863	12959	
==>with a name of "qacute") or is
syntactally invalid (as with a name of "1/4"), this returns undef. <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	12631	12742	
==>ngth $source) {
    Carp::croak("Can't use empty-string as a source for parse_file");
  } else {
    {
      loc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017929	1018027	
==>"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_gmtime <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018854	1018952	
==>"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_gmtime <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2899	2994	
==>elf->{'Thispara'} .= "\n");
  $out =~ tr{\xA0}{ } if Pod::Simple::ASCII;
  print {$self->{'outpu <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2433	2528	
==>elf->{'Thispara'} .= "\n");
  $out =~ tr{\xA0}{ } if Pod::Simple::ASCII;
  print {$self->{'outpu <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	688	805	
==>e::Identifier');

  my $name = $ident->value;

  my $self = bless {
    BLOCK => $block,

    NAME  => $name,
    ARGS <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31115	31208	
==>ase 'Parrot::Pmc2c';
import Parrot::Pmc2c qw( gen_ret );

=item C<implements($method)>

Always <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34479	34572	
==>ase 'Parrot::Pmc2c';
import Parrot::Pmc2c qw( gen_ret );

=item C<implements($method)>

Always <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39735	39828	
==>ase 'Parrot::Pmc2c';
import Parrot::Pmc2c qw( gen_ret );

=item C<implements($method)>

Always <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322381	322652	
==>t_UInt4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323153	323424	
==>t_UInt4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738181	738405	
==>n  {{\@1}} = string_to_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738945	739169	
==>n  {{\@1}} = string_to_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/config/auto/cgoto.pm	535	647	
==>);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_re <==
4	/Users/nnunley/parrot/config/auto/headers.pm	470	582	
==>);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_re <==
4	/Users/nnunley/parrot/config/auto/jit.pm	621	733	
==>);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_re <==
4	/Users/nnunley/parrot/config/gen/cpu.pm	533	645	
==>);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_re <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164659	164826	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 190 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165588	165755	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 190 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166517	166684	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 190 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	809	928	
==>($props) ne "HASH";

  my $self = bless {
    BLOCK => $block,

    TYPE  => undef,
    NAME  => $ident->value,
    PROP <==
4	/Users/nnunley/parrot/lib/Test/More.pm	16279	16379	
==>load fails.  For such purposes we have
C<use_ok> and C<require_ok>.

=over 4

=item B<use_ok>

   BEG <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10997	11086	
==>"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pre_call_HAS_RETURN_${CURIC}
if "${CURIC}" == "7 <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8183	8272	
==>"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pre_call_HAS_RETURN_${CURIC}
if "${CURIC}" == "7 <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5845	5934	
==>"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pre_call_HAS_RETURN_${CURIC}
if "${CURIC}" == "7 <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22200	22298	
==>[$return,0]);
  $self->_add_inst("DONE_$label");
  return $return;
}

sub _op_odd_p {
  my ($self,$ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19300	19394	
==>{children}}) {
    my $temp_1 = $self->_generate($node->{children}[$_]);
    $self->_add_inst(' <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19788	19882	
==>{children}}) {
    my $temp_1 = $self->_generate($node->{children}[$_]);
    $self->_add_inst(' <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20277	20371	
==>{children}}) {
    my $temp_1 = $self->_generate($node->{children}[$_]);
    $self->_add_inst(' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222713	223006	
==>MP) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	229385	229678	
==>MP) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	230334	230627	
==>MP) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	36072	36173	
==>er, $matchrule, $argcode) = @_;
	my $class = ref($self) || $self;
	($max, $min) = ( $min, $max) if ($m <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857736	858066	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":bas <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858739	859069	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":bas <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859743	860073	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":bas <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860747	861077	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repeat",
                  "FLAGS" => ":bas <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	13003	13100	
==>{
				$extern=~s/\$/_string/g; $extern=~tr/a-z/A-Z/;

				$calling_code = "(%s) = _USERFUNC_${exte <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3831	3925	
==>t_ident->kind eq 'var') and ($dest_ident->scope eq 'global')) {
    my $pmc_type = $dest_ident- <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4739	4833	
==>t_ident->kind eq 'var') and ($dest_ident->scope eq 'global')) {
    my $pmc_type = $dest_ident- <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2802	2896	
==>t_ident->kind eq 'var') and ($dest_ident->scope eq 'global')) {
    my $pmc_type = $dest_ident- <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	8124	8218	
==>$temp;

  $return = $self->_save_1 ('P');

  $self->_add_inst ('', 'newsub',[$return,'.Closure' <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2283	2400	
==>rious libraries in the link line.
        $liblist = join( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ /gc <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2575	2692	
==>rious libraries in the link line.
        $liblist = join( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ /gc <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2370	2487	
==>rious libraries in the link line.
        $liblist = join( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ /gc <==
4	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1572	1661	
==>o a L<Parrot::Configure::Data> object intended to contain
initial and discovered configura <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332555	332657	
==>n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* T <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333833	333935	
==>n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* T <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335111	335213	
==>n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* T <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336390	336492	
==>n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* T <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447320	447585	
==>ME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	448142	448407	
==>ME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449628	449893	
==>ME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	300	393	
==>DESCRIPTION

This script creates the Native Call Interface file F<src/nci.c>. It
parses a file <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4105	4199	
==>nc(g())

' Passing arrays (expect 12)
function arrfunc(x())
	print x(4)
	arrfunc=55
end functio <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9459	9586	
==>type') || 'pod');
        
      } elsif ($tagname eq 'Data') {
        my $next = $self->get_token;
        next unless defined <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1003	1097	
==>);
  confess "Left is not Value!" if defined $left and not UNIVERSAL::isa($left, 'Jako::Constru <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1031	1125	
==>);
  confess "Left is not Value!" if defined $left and not UNIVERSAL::isa($left, 'Jako::Constru <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	703	797	
==>);
  confess "Left is not Value!" if defined $left and not UNIVERSAL::isa($left, 'Jako::Constru <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848281	848539	
==>nterpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849061	849319	
==>nterpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853390	853648	
==>nterpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854172	854430	
==>nterpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Test/More.pm	16576	16670	
==>IN
block so its functions are exported at compile-time and prototypes are
properly honored.

If <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	707	799	
==>L::isa($type, qw(Jako::Construct::Type));
  confess "Identifier (" . ref($ident) . ") is not! <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	732	823	
==>L::isa($type, qw(Jako::Construct::Type));
  confess "Identifier (". ref($ident) . ") is not! <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	696	787	
==>L::isa($type, qw(Jako::Construct::Type));
  confess "Identifier (". ref($ident) . ") is not! <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7635	7735	
==>)

This is a shortcut method that uses find_symbol() to locate a matching
symbol, and then returns th <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8282	8382	
==>)

This is a shortcut method that uses find_symbol() to locate a matching
symbol, and then returns th <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8930	9030	
==>)

This is a shortcut method that uses find_symbol() to locate a matching
symbol, and then returns th <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9600	9700	
==>)

This is a shortcut method that uses find_symbol() to locate a matching
symbol, and then returns th <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	15106	15220	
==>new rusage;

        # $t->ru_utime and $t->ru_stime are objects of type timeval.
        # set $t->ru_utime to 100 <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10002	10092	
==>n ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_$ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7516	7606	
==>n ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_$ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6480	6570	
==>n ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_$ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344310	344402	
==>g_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345552	345644	
==>g_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346794	346886	
==>g_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348037	348129	
==>g_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1635	1741	
==>array of C<void*> to
do its clever tricks.

=cut

sub opsarraytype 
{ 
    return 'opcode_t' 
};

=item C<c <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1655	1750	
==>Subclasses will add methods, and will also inherit these methods:

=over

=item $token->type

Th <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2068	2159	
==>if (not $self->prefix and $self->peer and $self->peer->prefix) {
    $self->prefix($self->pe <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1945	2036	
==>if (not $self->prefix and $self->peer and $self->peer->prefix) {
    $self->prefix($self->pe <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143603	143866	
==>}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ), <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144531	144794	
==>}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ), <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145459	145722	
==>}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ), <==
4	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	2435	2600	
==>plemented   => $3 ? 1 : 0,
                body            => ''
            };

        # Have we got a blank line that we should skip over?
        } elsif ($line e <==
4	/Users/nnunley/parrot/languages/regex/test.pl	619	715	
==>. "\n" if $msg;

    print <<"END";
Usage: $0 [-c|--compile] [--language=LANGUAGE] [--optimize=PA <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1349	1472	
==>t { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $block = $sel <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1697	1820	
==>t { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $block = $sel <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1833	1956	
==>t { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $block = $sel <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1476	1599	
==>t { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $block = $sel <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240228	240533	
==>@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241176	241481	
==>@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242124	242429	
==>@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243073	243378	
==>@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510488	510781	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511226	511519	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511964	512257	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	16465	16579	
==>sign
    $extra_postamble
}
HEADER
    }

    my ($key, $value) = (defined $params ?
        ( "$return$params", "p <==
4	/Users/nnunley/parrot/config/auto/cgoto.pm	551	657	
==>{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('skip <==
4	/Users/nnunley/parrot/config/auto/headers.pm	486	592	
==>{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('skip <==
4	/Users/nnunley/parrot/config/auto/jit.pm	637	743	
==>{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('skip <==
4	/Users/nnunley/parrot/config/gen/cpu.pm	549	655	
==>{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('skip <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	980	1115	
==>);

  my $self = bless {
    BLOCK => $block,

    DEST  => $dest,
    LEFT  => $left,
    OP    => $op,
    RIGHT => $right,

    DEBUG <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	971	1106	
==>);

  my $self = bless {
    BLOCK => $block,

    DEST  => $dest,
    LEFT  => $left,
    OP    => $op,
    RIGHT => $right,

    DEBUG <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	860	995	
==>);

  my $self = bless {
    BLOCK => $block,

    DEST  => $dest,
    LEFT  => $left,
    OP    => $op,
    RIGHT => $right,

    DEBUG <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	50638	50742	
==>rod->additem($item)
				      or  _no_rule("<perl_variable>",$line);
			}
			elsif ($grammar =~ m/$NOCHEC <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18742	18872	
==>lue);
          last if $self->get(1)->is_close_paren;
          $self->require_comma;
        }
      }

      $self->require_clos <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19768	19898	
==>lue);
          last if $self->get(1)->is_close_paren;
          $self->require_comma;
        }
      }

      $self->require_clos <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9295	9397	
==>ecrement stack height.
dec stack_depth
PIR
	}

	return $pir;
}

# Pre and post call hooks.
sub pre_call <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6813	6915	
==>ecrement stack height.
dec stack_depth
PIR
	}

	return $pir;
}

# Pre and post call hooks.
sub pre_call <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	32714	32856	
==>~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			'DO' <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44884	45026	
==>~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			'DO' <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18386	18496	
==>t_p {
}

sub _op_eq {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1507	1605	
==>rint {$_[0]{'output_fh'}} $indent, '* "', $text, "\"\n";
  }
  return;
}

sub _handle_element_end { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344542	344815	
==>(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345784	346057	
==>(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347026	347299	
==>(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348269	348542	
==>(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107166	107453	
==>{{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108020	108307	
==>{{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108874	109161	
==>{{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066928	1067040	
==>al.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOAT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068114	1068226	
==>al.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOAT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069300	1069412	
==>al.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOAT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070487	1070599	
==>al.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOAT <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2297	2392	
==>, $op)>

Returns the C code for the specified op argument type (see
C<Parrot::OpTrans>) and valu <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3389	3484	
==>, $op)>

Returns the C code for the specified op argument type (see
C<Parrot::OpTrans>) and valu <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3533	3628	
==>, $op)>

Returns the C code for the specified op argument type (see
C<Parrot::OpTrans>) and valu <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3188	3283	
==>, $op)>

Returns the C code for the specified op argument type (see
C<Parrot::OpTrans>) and valu <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6888	6997	
==>_pushmark {
    my ($self) = @_;
    my @ops;
    if ($self->{DEBUG}) {
	push @ops, (qq(print "PUSHED ).(@_>1? <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6538	6647	
==>_pushmark {
    my ($self) = @_;
    my @ops;
    if ($self->{DEBUG}) {
	push @ops, (qq(print "PUSHED ).(@_>1? <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	2620	2724	
==>]*)*)$del";
		}
		else
		{
			push @pat, "$del(?:[^$esc$del]*(?:$esc.[^$esc$del]*)*)$del";
		}
	}
	my $pa <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19624	19719	
==>pr', 2,
sub
#line 117 "lib/Regex/Grammar.y"
{ return op('multi_match' => [ 0, -1, TRUE, $_[1] ]) <==
4	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2206	2342	
==>nc};
        # That's the reason for:   no strict 'refs';
        my $pass = $self->{builder}->$builder_func(
                       Parr <==
4	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2745	2881	
==>nc};
        # That's the reason for:   no strict 'refs';
        my $pass = $self->{builder}->$builder_func(
                       Parr <==
4	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2676	2807	
==>nc};

        # That's the reason for:   no strict 'refs';
        my $pass = $self->{builder}
            ->$builder_func( Parr <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	45859	45966	
==>yway, that most Pod renderers just don't render it
       # at all.  But if you do want to implement hyphena <==
4	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	3105	3232	
==>>{builder}->diag($diag) if $diag;
        }

        # The generated files are left in the t/* directories.
        # Let 'm <==
4	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2698	2823	
==>>{builder}->diag( $diag ) if $diag;
        }

        # The generated files are left in the t/* directories.
        # Let 'm <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	5964	6063	
==>f).

See also: get_symbol(), which searches only locally.

=cut

sub find_symbol
{
  my $self = shif <==
4	/Users/nnunley/parrot/config/auto/headers.pm	57	146	
==>arrot/config/auto/headers.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

confi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885624	885905	
==>DE" => 1002,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  ST <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27958	28054	
==>vetext;' : '').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++) <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30032	30128	
==>vetext;' : '').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++) <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32233	32329	
==>vetext;' : '').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++) <==
4	/Users/nnunley/parrot/languages/regex/test.pl	1886	2011	
==>f (/--expr=(.*)/) {
        $pattern = $1;
    } elsif (/--optimize=(.*)/) {
        my $opts = $1;
        $tree_opt = ($opts <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	56552	56647	
==>thing else. The delimited and bracketed
parts are also blessed to identify them (the "anything e <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103940	1104024	
==>) {\n\t\tParrot_autoload_class(interpreter, class);\n\t\ttype = pmc_type(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105155	1105239	
==>) {\n\t\tParrot_autoload_class(interpreter, class);\n\t\ttype = pmc_type(interpreter, <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	2176	2330	
==>y @d = @_;
    my ($dir1, $dir2);
    for (@d) {
	if (/^\[/) {
	    if ($dir1) {
		$dir2 = $_;
	    }
	    else {
		$dir1 = $_;
	    }
	}
    }
    $dir1 = <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10629	10741	
==>driver logic. Please, report it as a BUG");

}#_Parse
#DO NOT remove comment

1;

}
#End of include------ <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	35491	35599	
==>255 ) && return;
    }
}

END {
    $Test->_ending if defined $Test and !$Test->no_ending;
}

=head1 EXIT COD <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10152	10256	
==>driver logic. Please, report it as a BUG");

}#_Parse
#DO NOT remove comment

1;

}
#End of include------ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714784	714980	
==>preter), s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715707	715903	
==>preter), s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716652	716848	
==>preter), s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1363	1470	
==>=ulwave
   ]
   # But no double-strikethrough, because MSWord can't agree with the
   #  RTF spec on whether <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31760	31890	
==>s} ) == 0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcodes1 <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	32411	32541	
==>s} ) == 0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcodes1 <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33061	33191	
==>s} ) == 0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcodes1 <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33584	33713	
==>s} ) == 0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcodes <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763182	763365	
==>Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764035	764218	
==>Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764888	765071	
==>Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765742	765925	
==>Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332398	332489	
==>onst char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333676	333767	
==>onst char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334954	335045	
==>onst char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336233	336324	
==>onst char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_fdopen( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066946	1067064	
==>TVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0. <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068132	1068250	
==>TVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0. <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069318	1069436	
==>TVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0. <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070505	1070623	
==>TVAL q = 0;\n  FLOATVAL c = 0;\n  FLOATVAL temp2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0. <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	1134	1242	
==>named

  if($NOT_ASCII) {
    # We're in bizarro world of not-ASCII!
    # Cope with US-ASCII codes, use fall <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8019	8152	
==>index {
    my $self = shift;

    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ = <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7672	7805	
==>index {
    my $self = shift;

    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ = <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8802	8934	
==>index {
    my $self = shift;
    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ = <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8462	8594	
==>index {
    my $self = shift;
    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490152	490441	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inc",
                  "FLAGS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519695	519954	
==>e 739 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520550	520809	
==>e 739 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	521405	521664	
==>e 739 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2537	2637	
==>ate to do
	# otherwise. Also, putting a label everywhere doesn't hurt the final
	# Parrot bytecode th <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1115	1215	
==>ate to do
	# otherwise. Also, putting a label everywhere doesn't hurt the final
	# Parrot bytecode th <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2944	3042	
==>ut is space-padded in a way
that's better for sending to an XML processor (that is, it has
no ignor <==
4	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2968	3056	
==>e differences.

L<Pod::Simple>, L<Pod::Simple::DumpAsXML>

The older libraries L<Pod::PXM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961046	961152	
==>t_string_trans_encoding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962008	962114	
==>t_string_trans_encoding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962970	963076	
==>t_string_trans_encoding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963933	964039	
==>t_string_trans_encoding(interpreter, {{\@2}}, {{\@3}}, dest);\n  {{+=4}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	976	1076	
==>LINES = sub () {20} }
  DEBUG > 4 and print "MANY_LINES is ", MANY_LINES(), "\n";
  unless(MANY_LINES <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2732	2824	
==>ss defined $dest_type;
  $self->INTERNAL_ERROR("No type for left!")  unless defined $left_typ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2498	2590	
==>ss defined $dest_type;
  $self->INTERNAL_ERROR("No type for left!")  unless defined $left_typ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2420	2512	
==>ss defined $dest_type;
  $self->INTERNAL_ERROR("No type for left!")  unless defined $left_typ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	725526	725791	
==>JUMP" => 0,
                  "NAME" => "clone",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726287	726552	
==>JUMP" => 0,
                  "NAME" => "clone",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812735	813000	
==>JUMP" => 0,
                  "NAME" => "clone",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
4	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	32	133	
==>::TextContent;
use strict;
use Carp ();
use Pod::Simple ();
use vars qw( @ISA $VERSION );
$VERSION = ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071819	1071944	
==>l.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = {{\@5}} < 0 ? -{{\@5}} : {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074004	1074129	
==>l.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = {{\@5}} < 0 ? -{{\@5}} : {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076189	1076314	
==>l.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = {{\@5}} < 0 ? -{{\@5}} : {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078375	1078500	
==>l.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = {{\@5}} < 0 ? -{{\@5}} : {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89350	89621	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_cor <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90088	90359	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_cor <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	5494	5616	
==>936,
 'Omega'    , 937,
 'alpha'    , 945,
 'beta'     , 946,
 'gamma'    , 947,
 'delta'    , 948,
 'epsilon'  , 949,
 'ze <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	59310	59412	
==>otes
and '%' is the escape for double quotes:

        gen_delimited_pat(q{'"},q{/%});

If more delimit <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117936	118210	
==>>>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118675	118949	
==>>>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122150	122424	
==>>>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123062	123336	
==>>>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	1868	1976	
==>les in miniparrot directory\n";
    find(sub {
	     return if ($File::Find::dir =~ /\.svn/);
	     unlink($_ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1595	1693	
==>elf->op;
  my $right = $self->right;

  my $dest_sym = $block->find_symbol($dest->value);
  $self-> <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1553	1651	
==>elf->op;
  my $right = $self->right;

  my $dest_sym = $block->find_symbol($dest->value);
  $self-> <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1475	1573	
==>elf->op;
  my $right = $self->right;

  my $dest_sym = $block->find_symbol($dest->value);
  $self-> <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3551	3644	
==>t, $type, @code)=EXPRESSION({ stuff => "\$X99", choose => 1 });
		push @{$code{$seg}->{code}}, <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	4952	5072	
==>print $out $line; }
        print $out "\n"; # extra newline after header
    }

    # this loop can not be implemented a <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2916	3008	
==>start_address($address)>

Returns the C code for C<restart ADDRESS($address)>.

=cut

sub res <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3785	3877	
==>start_address($address)>

Returns the C code for C<restart ADDRESS($address)>.

=cut

sub res <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3515	3607	
==>start_address($address)>

Returns the C code for C<restart ADDRESS($address)>.

=cut

sub res <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026089	1026372	
==>sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1147,
                  "ARGS" => <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/State.pm	161	272	
==>ef($class) || $class;
    return $self;
}

sub literal_label {
    my ($self, $label, $desc) = @_;
    $desc ||= <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	21813	21919	
==>os $$textref ||= 0;

		unless (wantarray)
		{
			use Carp;
			carp "extract_multiple reset maximal count to <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1280	1383	
==>stent program is specified then
    # the user is responsible for the consequences.
    if (defined $pro <==
4	/Users/nnunley/parrot/config/inter/make.pm	1101	1204	
==>stent program is specified then
    # the user is responsible for the consequences.
    if (defined $pro <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1277	1380	
==>stent program is specified then
    # the user is responsible for the consequences.
    if (defined $pro <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	809	912	
==>bject->attr("key", "newval")');
    return undef;
  }
}

1;


__END__

=head1 NAME

Pod::Simple::PullPar <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067144	1067284	
==>/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "e <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068330	1068470	
==>/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "e <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069516	1069656	
==>/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "e <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070703	1070843	
==>/temp3 );\n    c = temp2 - temp3*q;\n    temp2 = temp3;\n    temp3 = c;\n  }\n  {{\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "e <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579309	579404	
==>ss_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580614	580709	
==>ss_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581919	582014	
==>ss_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583225	583320	
==>ss_lookup(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(c <==
4	/Users/nnunley/parrot/tools/dev/nm.pl	36	124	
==>004, The Perl Foundation.
# $Id: /parrot/tools/dev/nm.pl 19607 2006-05-30T15:23:20.183054 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161999	162142	
==>"ic"
                            ],
                  "BODY" => "#line 183 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162896	163039	
==>"ic"
                            ],
                  "BODY" => "#line 183 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163793	163936	
==>"ic"
                            ],
                  "BODY" => "#line 183 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\ <==
4	/Users/nnunley/parrot/tools/build/c2str.pl	247	340	
==>ong;
use strict;

my $outfile = 'all_cstring.str';
my $string_private_h = 'src/string_private_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072497	1072604	
==>-1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong be <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074682	1074789	
==>-1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong be <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076867	1076974	
==>-1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong be <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079053	1079160	
==>-1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong be <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072735	1072850	
==>== -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074920	1075035	
==>== -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077105	1077220	
==>== -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079291	1079406	
==>== -r1 ) {\n    {{\@2}} = -{{\@2}};\n    {{\@3}} = -{{\@3}};\n  }\n  else if ( x - y == r1 ) {\n    {{\@3}} = -{{\@3 <==
4	/Users/nnunley/parrot/languages/dotnet/Configure.pl	3026	3193	
==>rate code to translate each library.
        my @libs = qw/
            mscorlib
            System
            Accessibility
            I18N.CJK
            I18 <==
4	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	3619	3728	
==>e
  $cur_package = $line;

}

sub lib_line {
  my $line = shift;
  print OUTPUT "loadlib P1, '$line'\n";
}

su <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3510	3616	
==>sure its a string, somewhere.
    }
    else {
      $self->SYNTAX_ERROR("Sub declaration has no fnlib prop <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6174	6280	
==>sure its a string, somewhere.
    }
    else {
      $self->SYNTAX_ERROR("Sub declaration has no fnlib prop <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	16706	16822	
==>";

    my $pmc_dt  = (stat $pmc)[9];
    my $dump_dt = (stat $file)[9];

    return $dump_dt > $pmc_dt;
}

=head2 du <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11470	11562	
==>ubstr($self->forth->text, 0, -1);
      my $value = Jako::Construct::Expression::Value->new($ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12017	12109	
==>ubstr($self->forth->text, 0, -1);
      my $value = Jako::Construct::Expression::Value->new($ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12560	12652	
==>ubstr($self->forth->text, 0, -1);
      my $value = Jako::Construct::Expression::Value->new($ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854427	854725	
==>JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855315	855613	
==>JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856204	856502	
==>JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857093	857391	
==>JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	4329	4449	
==>tokens.
#

sub dump
{
  my $self = shift;


  while (1) {
    my $tok = $self->forth;

    printf STDERR "%6d : %-30s : % <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35876	35980	
==>nts
{

    my ($self, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $line, $ <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31246	31349	
==>nts
{
    my ($self, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $line, $ <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39866	39969	
==>nts
{
    my ($self, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $line, $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843275	843599	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844153	844477	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845031	845355	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLA <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	23375	23474	
==>LO', long => 'INT', integer => 'INT', string => 'STRING');
			my %sigilmap=( '%' => 'integer', '&' = <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	10736	10854	
==>$temp_num";
    };
    /I/ && do {
        push @{$temps_ref}, "INTVAL t_$temp_num;";
        push @{$extra_preamble_re <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	7138	7234	
==>un(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c failed ($?)\ <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5432	5528	
==>un(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c failed ($?)\ <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	7349	7445	
==>un(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c failed ($?)\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1640	1737	
==>bcc: map_ret_abs($addr)\n";

    return "cur_opcode = $addr;\ngoto switch_label";
}

=item C<expr_ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14672	14753	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#------- <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14695	14776	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#------------------------------ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14718	14799	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~
#----------------------------------------------------- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284825	285082	
==>1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285702	285959	
==>1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286579	286836	
==>1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	6070	6172	
==>P/) {  # No arg version
		feedme();
		print CODE<<PROMPTRND;
	print "Random-number seed (-32768 to 3276 <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	12766	12877	
==>ches undef and nothing else
        my $test = defined $got || defined $dont_expect;

        $self->ok($test, $ <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	13210	13321	
==>ches undef and nothing else
        my $test = defined $got || defined $dont_expect;

        $self->ok($test, $ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	4445	4540	
==>nst ('', 'set',[$return,$value]);
    }
    elsif ($value =~ /^[-+]?((\d+\.\d*)|(\.d+))([eE][-+] <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3464	3556	
==>nst ('', 'set', [$return,$value]);
  }
  elsif ($value =~ /^[-+]?((\d+\.\d*)|(\.d+))([eE][-+] <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	67729	67841	
==>ntered", $line);
			_hint("Did you mean \"|\" (to start a new production)?
			           Or perhaps you forgot th <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	3478	3584	
==>}: $!";
    
    return sort grep {$_ ne '.' and $_ ne '..'} $dh->read();
}

=item C<file_and_directory_pat <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11722	11816	
==>eeting
a$="Hello,"
b$=" world!"
c$=a$+b$
print c$

' String function, whoa
function a$
	a$="Who <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19496	19585	
==>");
	}
	elsif ($parser->{_AUTOTREE} && defined($item) && !$item->isa("Parse::RecDescent::A <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16318	16420	
==>re_assign;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->forth);
      my $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17089	17191	
==>re_assign;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->forth);
      my $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17894	17996	
==>re_assign;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->forth);
      my $ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	52389	52488	
==>em = new Parse::RecDescent::Directive(
					      "($1) ? undef : 1", $lookahead,$line,"<reject:$cod <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332495	332588	
==>preter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333773	333866	
==>preter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335051	335144	
==>preter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336330	336423	
==>preter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	3624	3754	
==>'    , 181,
 'para'     , 182,
 'middot'   , 183,
 'cedil'    , 184,
 'sup1'     , 185,
 'ordm'     , 186,
 'raquo'    , 187,
 'fra <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9779	9868	
==>o pre_call_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Lo <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7293	7382	
==>o pre_call_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Lo <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6257	6346	
==>o pre_call_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Lo <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	550	644	
==>a->settrigger($key, $trigger, $cb);
    $data->gettriggers($key);
    $data->gettrigger($key, $ <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	1879	1963	
==>-Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwrite-strings -Waggregate <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1244	1328	
==>-Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwrite-strings -Waggregate <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1248	1332	
==>-Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwrite-strings -Waggregate <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557236	557376	
==>ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLAGS" => ":object_base",
                  "ARG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558619	558759	
==>ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLAGS" => ":object_base",
                  "ARG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560003	560143	
==>ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLAGS" => ":object_base",
                  "ARG <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	1849	1949	
==>{ /\S/ } @$tokref];
}

1;
__END__

=head1 NAME

Scheme::Tokenizer - The Scheme tokenizer

=head1 SYNO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017689	1017927	
==>PE" => "function",
                  "CODE" => 1137,
                  "ARGS" => [
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 182 \"src/ops/sys.ops <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34785	34922	
==>ph
            delete $para->[1]{'number'};
             # Only a PROPER item-number element is allowed
             #  to have a number a <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16828	16946	
==>'&#'.(ord($1)).';'/eg;
        # Leave out "- so that "--" won't make it thru in X-generated comments
        #  with t <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10272	10382	
==>'&#'.(ord($1)).';'/eg;
    # Leave out "- so that "--" won't make it thru in X-generated comments
    #  with t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843201	843310	
==>rc/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "L <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844079	844188	
==>rc/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "L <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844957	845066	
==>rc/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "L <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845836	845945	
==>rc/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},{{\@3}});\n  {{+=4}};\n",
                  "L <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785006	785257	
==>> 886,
                  "ARGS" => [
                              "p",
                              "kic",
                              "p"
                            ],
                  "BODY" => "#line 392 \"src/ops/set.ops\"\n    {{\@1}}->vtabl <==
4	/Users/nnunley/parrot/config/auto/sizes.pm	3254	3418	
==>est2_c.in');
            cc_build();
            %hugeintval = eval cc_run();
            cc_clean();
        };

        # clear int8_t on error
        if ($@ || ! <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8647	8728	
==>,"LRSCAN","NAVIGATE","PHASERS","QUIT"
data "SHIELDS","SOS","SRSCAN","STATUS","TORP <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21511	21592	
==>,"LRSCAN","NAVIGATE","PHASERS","QUIT"
data "SHIELDS","SOS","SRSCAN","STATUS","TORP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796943	797079	
==>"
                            ],
                  "BODY" => "#line 462 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed(interp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797847	797983	
==>"
                            ],
                  "BODY" => "#line 462 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed(interp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798751	798887	
==>"
                            ],
                  "BODY" => "#line 462 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed(interp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799656	799792	
==>"
                            ],
                  "BODY" => "#line 462 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed(interp <==
4	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1020	1169	
==>f->{relpath},
                                           STDOUT => $out_f, STDERR => $out_f );
    unless ($pass) {
        my $file = Parrot::Test::s <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1061	1210	
==>f->{relpath},
                                           STDOUT => $out_f, STDERR => $out_f );
    unless ($pass) {
        my $file = Parrot::Test::s <==
4	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2112	2226	
==>f->{relpath},
					   STDOUT => $out_f, STDERR => $out_f);
  
    unless ($pass) {
      my $file = Parrot::Test::s <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	23913	24013	
==>lastback) = @_;

    my $back = $self->genlabel('plus_backloop');
    my $rfail = $self->genlabel('pl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10604	10834	
==>sr",
                  "FLAGS" => ":base_core,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11392	11622	
==>sr",
                  "FLAGS" => ":base_core,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	12611	12841	
==>sr",
                  "FLAGS" => ":base_core,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13454	13684	
==>sr",
                  "FLAGS" => ":base_core,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107704	1107970	
==>> "new",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 12 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629992	630255	
==>> "new",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630981	631244	
==>> "new",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	619	705	
==>group('Parrot Core Libraries', '', 'runtime/parrot/library'),
		$self->new_group('Dynam <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	5572	5757	
==>e       => 'sub',
        Attributes => {
          name  => $name,
          type  => $type,
          kind  => 'op',
          oplib => $oplib,
          op    => $op
        }
      } <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	1449	1550	
==>::call::ISA         = qw(Regex::Ops::Tree::_onearg);
@Regex::Ops::Tree::rule::ISA         = qw(Regex:: <==
4	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	53	148	
==>er/basic.pl 11512 2005-10-12T02:11:40.290517Z coke  $
# $Log: basic.pl,v 
# Revision 1.11  2002/ <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	6834	6927	
==>.h>
#endif
#include"parrot/exec.h"
#include"jit.h"
#define JIT_EMIT $jit_emit_n

/* Disable "t <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63112	63221	
==>->additem($item)
						      or  _no_rule("repetition",$line,"$code$argcode($1)");

						!$matchrule and $rul <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63833	63942	
==>->additem($item)
						      or  _no_rule("repetition",$line,"$code$argcode($1)");

						!$matchrule and $rul <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64549	64658	
==>->additem($item)
						      or  _no_rule("repetition",$line,"$code$argcode($1)");

						!$matchrule and $rul <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62476	62583	
==>->additem($item)
					      or  _no_rule("repetition",$line,"$code$argcode($1)");

					!$matchrule and $rul <==
4	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1222	1335	
==>.
        # This will prevent the 'optimization is not available in the
        # standard edition compiler' warni <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293434	293544	
==>p.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294310	294420	
==>p.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295186	295296	
==>p.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2659	2767	
==>de_t *cur_opcode asm ("esi") = cur_op;
    register char *   _reg_base   asm ("edi");
#else
    opcode_t *cur <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3228	3336	
==>de_t *cur_opcode asm ("esi") = cur_op;
    register char *   _reg_base   asm ("edi");
#else
    opcode_t *cur <==
4	/Users/nnunley/parrot/tools/build/vtable_extend.pl	131	234	
==>ncs, $protos) = vtbl_embed( $vtable );

my $header = <<'EOH';
/* ex: set ro:
** !!!!!!!   DO NOT EDIT TH <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	9490	9587	
==>ese are
  #  typically at the end of the document:
  $this->_get_titled_section('AUTHOR' , max_tok <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960972	961065	
==>\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encod <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961934	962027	
==>\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encod <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962896	962989	
==>\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encod <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963859	963952	
==>\"\n  STRING *dest = new_string_header(interpreter, 0);\n  {{\@1}} = Parrot_string_trans_encod <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11530	11632	
==>nstruct::Expression::Value->new($block, $self->forth);

      $self->require_semicolon;

      my $arit <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16475	16577	
==>nstruct::Expression::Value->new($block, $self->forth);

      $self->require_semicolon;

      my $arit <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17246	17348	
==>nstruct::Expression::Value->new($block, $self->forth);

      $self->require_semicolon;

      my $arit <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18051	18153	
==>nstruct::Expression::Value->new($block, $self->forth);

      $self->require_semicolon;

      my $arit <==
4	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	419	521	
==>elf = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  #$new->accept_ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	223	324	
==>elf = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->accept_ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	222	323	
==>elf = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->accept_ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	471	572	
==>elf = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->accept_ <==
4	/Users/nnunley/parrot/config/auto/gcc.pm	5720	5876	
==>et(
            ccwarn     => "-ansi -pedantic",
            gccversion => undef
        );

        return $self;
    }

    $conf->data->set(
        ccwar <==
4	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	74	200	
==>PIR::Formatter;

use strict;
use warnings;

sub new {
    my $class = shift;
    my $code  = shift;

    my $self = {};

    $s <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	350	439	
==>1 DESCRIPTION

This file is generated by F<config/gen/makefiles.pl> from
F<config/gen/make <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	316	405	
==>1 DESCRIPTION

This file is generated by F<config/gen/makefiles.pl> from
F<config/gen/make <==
4	/Users/nnunley/parrot/lib/Test/More.pm	539	696	
==>require_ok
             is isnt like unlike is_deeply
             cmp_ok
             skip todo todo_skip
             pass fail
             eq_array eq_has <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33733	33854	
==>h @$para, splice @{shift @$paras},2;
            } else {
              DEBUG and print "Can't assimilate following ", $pa <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35546	35667	
==>h @$para, splice @{shift @$paras},2;
            } else {
              DEBUG and print "Can't assimilate following ", $pa <==
4	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	1827	1925	
==>h ENDMAINLOOP
	end

ENDMAINLOOP:
	branch MAINLOOPR 
ENDMAINLOOPNR:
	branch MAINLOOPNR

EOF

# Inclu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527265	527474	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528018	528227	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528899	529108	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529781	529990	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	318791	319102	
==>u_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 373,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#li <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	364	473	
==>ua: ', $parser->YYData->{srcname}, ':',
        $parser->YYData->{lineno}, ': ', $msg
        if ( exists $p <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	830	939	
==>ua: ', $parser->YYData->{srcname}, ':',
        $parser->YYData->{lineno}, ': ', $msg
        if ( exists $p <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1288	1397	
==>ua: ', $parser->YYData->{srcname}, ':',
        $parser->YYData->{lineno}, ': ', $msg
        if ( exists $p <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579317	579412	
==>p(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580622	580717	
==>p(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581927	582022	
==>p(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583233	583328	
==>p(interpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) { <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7146	7251	
==>, $reg) = @_;
    $reg = value(defined($reg) ? $reg : 'pos');
    return $self->output_pushint($reg);
}

s <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6788	6893	
==>, $reg) = @_;
    $reg = value(defined($reg) ? $reg : 'pos');
    return $self->output_pushint($reg);
}

s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	647	744	
==>else {
    $prefix = $self->peer ? $peer->prefix : $compiler->block_label($kind);
    $self->prefi <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	627	724	
==>else {
    $prefix = $self->peer ? $peer->prefix : $compiler->block_label($kind);
    $self->prefi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763123	763225	
==>({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763976	764078	
==>({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764829	764931	
==>({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765683	765785	
==>({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_NU <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2399	2493	
==>le::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All righ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1669	1763	
==>le::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All righ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2836	2930	
==>le::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All righ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1956	2050	
==>le::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All righ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2219	2323	
==>$self, $var, $arg1, $arg2) = @_;
    my $realvar = value($var);
    return "add $realvar, $arg1, $arg2" i <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32600	32694	
==>aredRef;
use base 'Parrot::Pmc2c';

=item C<implements($method)>

Always true for vtables.

=cu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621455	621545	
==>ru->u.signature == sig) {\n\tif (sig) {\n\t    n = ((arg_pass_f)lru->f.real_function)(inter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623624	623714	
==>ru->u.signature == sig) {\n\tif (sig) {\n\t    n = ((arg_pass_f)lru->f.real_function)(inter <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7613	7722	
==>e($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If the destination isn't a register, deter <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5731	5840	
==>e($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If the destination isn't a register, deter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945412	945496	
==>rc/ops/string.ops\"\n  {{\@1}} = string_copy(interpreter, Parrot_charset_name(interpr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946222	946306	
==>rc/ops/string.ops\"\n  {{\@1}} = string_copy(interpreter, Parrot_charset_name(interpr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645945	646221	
==>2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640727	641001	
==>2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641491	641765	
==>2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof" <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	43039	43146	
==>$i][2])) {
        $self->whine( $start_line, "An E<...> surrounding strange content" );
        $replacer = <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16232	16326	
==>ko::Construct::Expression::Value::Identifier->new($block, $token);

      $self->require_assign <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17003	17097	
==>ko::Construct::Expression::Value::Identifier->new($block, $token);

      $self->require_assign <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17808	17902	
==>ko::Construct::Expression::Value::Identifier->new($block, $token);

      $self->require_assign <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19354	19448	
==>ko::Construct::Expression::Value::Identifier->new($block, $token);

      $self->require_assign <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953866	954161	
==>> ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1073,
                  "ARGS" => [
                              "i", <==
4	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2959	3083	
==>oin ' && ', @test_prog;
            $diag .= "'$test_prog' failed with exit code $exit_code."
                if $exit_code <==
4	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	2569	2678	
==>oin ' && ', @test_prog;
               $diag .= "'$test_prog' failed with exit code $exit_code." if $exit_code <==
4	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2571	2677	
==>oin ' && ', @test_prog;
            $diag .= "'$test_prog' failed with exit code $exit_code." if $exit_code <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7955	8056	
==>elf->isa("Jako::Construct::Block");
  confess "No identifier name!"  unless defined $name;
  confess " <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8602	8703	
==>elf->isa("Jako::Construct::Block");
  confess "No identifier name!"  unless defined $name;
  confess " <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9270	9371	
==>elf->isa("Jako::Construct::Block");
  confess "No identifier name!"  unless defined $name;
  confess " <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9939	10040	
==>elf->isa("Jako::Construct::Block");
  confess "No identifier name!"  unless defined $name;
  confess " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606742	607018	
==>, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "g <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061098	1061374	
==>, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "g <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	337430	337704	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "g <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838773	839009	
==>@1}}),\n                  STACK_ENTRY_PMC);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	9121	9209	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_encodin <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	5480	5562	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_e <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	381	463	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_e <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	380	462	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_e <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544289	544396	
==>1 = a, saved_var2 = b; \n\n if(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545625	545732	
==>1 = a, saved_var2 = b; \n\n if(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>= <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546961	547068	
==>1 = a, saved_var2 = b; \n\n if(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>= <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3980	4077	
==>handler->end_element({ Name => 'return' });

  if (defined $cond) {
    $handler->end_element({ Na <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240182	240317	
==>er(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241130	241265	
==>er(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242078	242213	
==>er(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243027	243162	
==>er(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574819	575096	
==>, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ne <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86562	86837	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ne <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813265	813539	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n <==
4	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	2290	2431	
==>hift;
        my ($symb) = @_;
        if ( exists $self->{table}{$symb} ) {
            my $defn = $self->{table}{$symb};
            ret <==
4	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	2670	2811	
==>hift;
        my ($symb) = @_;
        if ( exists $self->{table}{$symb} ) {
            my $defn = $self->{table}{$symb};
            ret <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	15390	15495	
==>pos-$startpos,
		 $codepos, $endpos-$codepos,
		 $endpos,  length($$textref)-$endpos,
	       );
}


my %m <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332784	333092	
==>alifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334062	334370	
==>alifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335340	335648	
==>alifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336619	336927	
==>alifier -lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134963	135259	
==>"bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135856	136152	
==>"bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136750	137046	
==>"bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	9910	10011	
==>at W maps
    #  to whatever $this->{accept_codes}{thatelementname} is,
    #  i.e., "thatelementname" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303414	303836	
==>S" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 353,
                  "ARGS" => [
                              "i",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#l <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404118	404415	
==>,
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 46 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405029	405326	
==>,
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 46 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405941	406238	
==>,
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 46 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421304	421601	
==>,
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 48 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422196	422493	
==>,
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 48 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423091	423388	
==>,
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 48 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423987	424284	
==>,
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 48 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067015	1067123	
==>{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = fl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068201	1068309	
==>{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = fl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069387	1069495	
==>{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = fl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070574	1070682	
==>{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n    q = fl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344426	344537	
==>e(mode); */\n  /* string_cstring_free(path); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345668	345779	
==>e(mode); */\n  /* string_cstring_free(path); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346910	347021	
==>e(mode); */\n  /* string_cstring_free(path); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348153	348264	
==>e(mode); */\n  /* string_cstring_free(path); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89261	89487	
==>"#line 38 \"src/ops/bit.ops\"\n  {{\@1}} &= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89999	90225	
==>"#line 38 \"src/ops/bit.ops\"\n  {{\@1}} &= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30422	30570	
==>5,
			'OR' => 84,
			"]" => 150,
			">" => 86
		}
	},
	{#State 98
		ACTIONS => {
			"," => 151,
			")" => 152
		}
	},
	{#State 99
		DEFA <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	7535	7665	
==>->get_token;
        
    return unless defined $next;
        
    unless( $next->type eq 'text' )
    {
        $self->unget_toke <==
4	/Users/nnunley/parrot/config/gen/revision.pm	84	175	
==>93 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/gen/revision.pm - Parrot's confi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080373	1080463	
==>ine 145 \"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtabl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081438	1081528	
==>ine 145 \"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtabl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082503	1082593	
==>ine 145 \"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtabl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083569	1083659	
==>ine 145 \"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtabl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	933346	933544	
==>case_inplace(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	935560	935758	
==>case_inplace(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937780	937978	
==>case_inplace(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/tools/dev/install_files.pl	2329	2415	
==>he --bindir=/usr/parroty/bin, then the generated
parrot-<VERSION>-1.<arch>.rpm file wil <==
4	/Users/nnunley/parrot/config/inter/make.pm	777	879	
==>t have GNU make... default to not having it
    $conf->data->set(gmake_version => undef);

    my $prog <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9482	9579	
==>hing to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get details of met <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6996	7093	
==>hing to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get details of met <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5552	5649	
==>hing to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get details of met <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	21271	21416	
==>, [ $func, $left, $right, $meth_name];
            }
            $self->{mmds} = @mmds;
        }
    }
    my $methlist = join(",\n        ", @me <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755123	755209	
==>DY" => "#line 266 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_number_native(interpreter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755910	755996	
==>DY" => "#line 266 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_number_native(interpreter <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	25683	25813	
==>_next,
    );
    push @opcodes, @{$then};
    push @opcodes, new BranchOp( $parser,
        'result' => $l_end,
    );
    p <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2330	2425	
==>ression involves unknown variable %s.", $right->value) unless $right_sym;
    $right_type = $rig <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2288	2383	
==>ression involves unknown variable %s.", $right->value) unless $right_sym;
    $right_type = $rig <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2210	2305	
==>ression involves unknown variable %s.", $right->value) unless $right_sym;
    $right_type = $rig <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	5200	5344	
==>=> undef,
             'i_shadow' => undef,
             'i_signal' => 'define',
             'i_socks' => undef,
             'i_stdarg' => 'def <==
4	/Users/nnunley/parrot/config/auto/env.pm	211	309	
==>if the C library has C<setenv()> and C<unsetenv()>.

=cut

package auto::env;

use strict;
use vars <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6643	6725	
==>CH_switch_${CURIC}_LOOP
POST_BRANCH_switch_${CURIC}_LOOP_EXIT:

POST_BRANCH_NOT_swi <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4581	4663	
==>CH_switch_${CURIC}_LOOP
POST_BRANCH_switch_${CURIC}_LOOP_EXIT:

POST_BRANCH_NOT_swi <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	7519	7616	
==>ef;

	my @match = _match_tagged($textref, $pre, $ldel, $rdel, $omode, $bad, $ignore);

	return _fa <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	749	840	
==>f L<Pod::Simple::PullParserToken> and inherits all its methods,
and adds these methods:

=ov <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1175	1266	
==>f L<Pod::Simple::PullParserToken> and inherits all its methods,
and adds these methods:

=ov <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	655	746	
==>f L<Pod::Simple::PullParserToken> and inherits all its methods,
and adds these methods:

=ov <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8580	8691	
==>name
{
    my $self = shift;
    my $path = $self->path_for_file_with_name(shift) || return;
    
    return unl <==
4	/Users/nnunley/parrot/tools/dev/nm.pl	5846	5950	
==>t',   'uninit');
warn_if_both($Def,    $Undef,   'def',    'undef');

$Undef ||= !$Def if defined $Def && <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2643	2744	
==>->name ne $actual_arg_type->name) {
      my $temp = $compiler->temp_reg($formal_arg_type);
      my $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2343	2444	
==>->name ne $actual_arg_type->name) {
      my $temp = $compiler->temp_reg($formal_arg_type);
      my $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290933	291239	
==>3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291779	292085	
==>3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292625	292931	
==>3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq" <==
4	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1259	1343	
==>X0+X4+X6$MSK,X5)+X1$MSK;",
	GG => "X0=rotate_left((X2^(X3&(X1^X2)))+X0+X4+X6$MSK,X5)+ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516685	516943	
==>math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517424	517682	
==>math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518162	518420	
==>math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518901	519159	
==>math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126698	126999	
==>\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127833	128134	
==>\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128968	129269	
==>\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	21595	21706	
==>UG > 3 and print " Map: ",
    join('; ', map "$_=" . (
        ref($map->{$_}) ? join(",", @{$map->{$_}}) : $ma <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1228	1326	
==>)=(YYLEX => 'CODE', 'YYERROR' => 'CODE', YYVERSION => '',
			 YYRULES => 'ARRAY', YYSTATES => 'ARR <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1185	1282	
==>)=(YYLEX => 'CODE', 'YYERROR' => 'CODE', YYVERSION => '',
			 YYRULES => 'ARRAY', YYSTATES => 'ARR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035459	1035554	
==>* const lex_name = {{\@2}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name, ct <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036623	1036718	
==>* const lex_name = {{\@2}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name, ct <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	759	848	
==>"Identifier (" . ref($ident) . ") is not!" unless UNIVERSAL::isa($ident, qw(Jako::Construc <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	784	873	
==>"Identifier (". ref($ident) . ") is not!"  unless UNIVERSAL::isa($ident, qw(Jako::Construc <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	748	837	
==>"Identifier (". ref($ident) . ") is not!"  unless UNIVERSAL::isa($ident, qw(Jako::Construc <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623948	624034	
==>[0] =\n\tparrot_pic_opcode(interpreter, PARROT_OP_set_returns_pc);\n    ((void**)cur_op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544592	544833	
==><p;\n saved_var1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545928	546169	
==><p;\n saved_var1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547264	547505	
==><p;\n saved_var1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
4	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8796	8881	
==>22,/* 13 */
FF,$d,$a,$b,$c,$_[17],12,0xfd987193,/* 14 */
FF,$c,$d,$a,$b,$_[18],17,0xa6 <==
4	/Users/nnunley/parrot/languages/regex/regex.pl	357	485	
==>ze=(.*)/) {
        my $opts = $1;
        $tree_opt = ($opts =~ /t/i);
        $list_opt = ($opts =~ /l/i);
    } elsif (/--main <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	586	688	
==>t, 'Jako::Construct::Expression::Value::Identifier');

  my $self = bless {
    BLOCK => $block,

    I <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	661	762	
==>t, 'Jako::Construct::Expression::Value::Identifier');

  my $self = bless {
    BLOCK => $block,
    I <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	661	762	
==>t, 'Jako::Construct::Expression::Value::Identifier');

  my $self = bless {
    BLOCK => $block,
    I <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7407	7512	
==>0! and then Oats..
t=2
on t goto 100, 200, 300
print "No match\n"
FIN:
for i = 1 to 3
	on i gosub oats, pe <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19690	19795	
==>0! and then Oats..
t=2
on t goto 100, 200, 300
print "No match\n"
FIN:
for i = 1 to 3
	on i gosub oats, pe <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033220	1033321	
==>ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@1}};\n    PMC * const lex_pad = Pa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034318	1034419	
==>ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@1}};\n    PMC * const lex_pad = Pa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332576	332677	
==>w(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all results from <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333854	333955	
==>w(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all results from <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335132	335233	
==>w(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all results from <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336411	336512	
==>w(interpreter, enum_class_Undef);\n  }\n  /* string_cstring_free(mode); */\n  /* TODO all results from <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	19210	19328	
==>e mode on\n") : (),
   $nixx  ? (" Nix-X mode on\n") : (),
  ;    
  

  my($i, $treelet);
  while($treelet = shift @st <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540525	540635	
==>{{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541777	541887	
==>{{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543029	543139	
==>{{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846325	846648	
==>,
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 960,
                  "ARGS" => [
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 56 \"src/ops/st <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	4133	4255	
==>0 = new 'APLVector'
    $I100 = 1
    $I101 = 0
    $I102 = %1
  loop_begin_1:
    if $I100 > $I102 goto loop_done_1 
    $ <==
4	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1204	1326	
==>>is_success) {
    if($resp->content =~ /^ok/) {
      debug "success!\n";
      exit 0;
    } else {
      debug "error: " <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2947	3044	
==>) ? '.' : $rel_path;
}

=item C<parent()>

Returns the directory's parent directory. The root dire <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321861	322124	
==>,
                  "NAME" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322632	322895	
==>,
                  "NAME" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323404	323667	
==>,
                  "NAME" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53818	53929	
==>mmar,'<');
					  $code })
			{
				_parse("a resync with pattern marker", $aftererror,$line);
				$code =~ /\A\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	372724	373006	
==>k",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 436,
                  "ARGS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514144	514397	
==>ow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515024	515277	
==>ow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515904	516157	
==>ow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147337	147609	
==>}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148278	148550	
==>}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149218	149490	
==>}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150159	150431	
==>}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822404	822498	
==>STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_int(entry->entry);\n  {{+=3}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823472	823566	
==>STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_int(entry->entry);\n  {{+=3}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710739	710830	
==>n    PIO_puts(interpreter, io, \" \");\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711573	711664	
==>n    PIO_puts(interpreter, io, \" \");\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1} <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	7525	7623	
==>*interpreter, struct call_state *st, int n)
{
    assert(n < st->src.n);
    Parrot_fetch_arg_nci(i <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	7708	7806	
==>*interpreter, struct call_state *st, int n)
{
    assert(n < st->src.n);
    Parrot_fetch_arg_nci(i <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	7890	7988	
==>*interpreter, struct call_state *st, int n)
{
    assert(n < st->src.n);
    Parrot_fetch_arg_nci(i <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	64317	64411	
==>ad1 AUTHOR

Damian Conway (damian@conway.org)


=head1 BUGS AND IRRITATIONS

There are undoubte <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404116	404412	
==>r",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405027	405323	
==>r",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405939	406235	
==>r",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406851	407147	
==>r",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	4005	4108	
==>lsif ($mode eq 'linklibs') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	4109	4212	
==>lsif ($mode eq 'linklibs') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168505	168595	
==>ps\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169447	169537	
==>ps\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084755	1084867	
==>}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experime <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085808	1085920	
==>}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experime <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086861	1086973	
==>}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experime <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087915	1088027	
==>}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experime <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593607	593839	
==>ARGS" => [
                              "p",
                              "k",
                              "kc"
                            ],
                  "BODY" => "#line 325 \"src/ops/object.ops\"\n  PMC *class = Parrot_c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	933356	933575	
==>ce(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	935570	935789	
==>ce(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937790	938009	
==>ce(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	14596	14794	
==>BECOMES REALLY SCARY
##
##  stop reading now stop reading now stop reading now stop reading now stop
##
##############################################################################

sub _ponder_par <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	5409	5559	
==>.pl or feature_h.in 
            local *OUT = $out;
            my $text = do {local $/; <$in>};
            # interoplate @foo@ values
            $te <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6630	6775	
==>ange = TRUE
         B$=A$(I-1)
         A$(I-1)=A$(I)
         A$(I)=B$
         ' SWAP A$(I - 1), A$(I)
      END IF
   NEXT
WEND
 ' CLS
FOR I = <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16283	16428	
==>ange = TRUE
         B$=A$(I-1)
         A$(I-1)=A$(I)
         A$(I)=B$
         ' SWAP A$(I - 1), A$(I)
      END IF
   NEXT
WEND
 ' CLS
FOR I = <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	1685	1817	
==>sif($ch =~ /@/ and
	    $token =~ /^,$/) {    # token ,@
      $token .= $ch;
    } else {
      push @$tokref,$token;
      $token = <==
4	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	37	135	
==>3:00Z bernhard $

package Parrot::Test::APL;

use strict;
use warnings;

use File::Basename;

=head <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3326	3419	
==>azy move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_typ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5088	5181	
==>azy move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_typ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8000	8093	
==>azy move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_typ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8857	8950	
==>azy move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_typ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2323	2439	
==>lue;";
}

sub output_print {
    my ($self, $what) = @_;
    $what = value($what);
    return ("print $what;");
}

su <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2641	2755	
==>lue";
}

sub output_print {
    my ($self, $what) = @_;
    $what = value($what);
    return ("print $what");
}

su <==
4	/Users/nnunley/parrot/examples/benchmarks/oo5.pl	276	388	
==>$self->[0] = shift } else { $self->[0] }
}

sub j {
    my $self = shift;
    if (@_) { $self->[1] = shift } else <==
4	/Users/nnunley/parrot/examples/benchmarks/oo6.pl	268	380	
==>$self->[0] = shift } else { $self->[0] }
}

sub j {
    my $self = shift;
    if (@_) { $self->[1] = shift } else <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579610	579711	
==>t_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580915	581016	
==>t_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582220	582321	
==>t_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583526	583627	
==>t_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, class, name);\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717446	717737	
==>> 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718377	718668	
==>> 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719309	719600	
==>> 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720508	720799	
==>> 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247002	247330	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "and",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247865	248193	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "and",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	248729	249057	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "and",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	17778	17893	
==>($self, $why) = @_;
    $why ||= '';
    $self->_unoverload(\$why);

    unless( $self->{Have_Plan} ) {
        requ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467673	467788	
==>NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468544	468659	
==>NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469418	469533	
==>NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470293	470408	
==>NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} /= den;\n  {{+=3}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584475	584573	
==>er, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585550	585648	
==>er, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597991	598089	
==>er, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599038	599136	
==>er, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(interpr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099331	1099516	
==>n    if (s < 0) {\n\tres = 1.0/res;\n    }\n    {{\@1}} = res;\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100529	1100714	
==>n    if (s < 0) {\n\tres = 1.0/res;\n    }\n    {{\@1}} = res;\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101727	1101912	
==>n    if (s < 0) {\n\tres = 1.0/res;\n    }\n    {{\@1}} = res;\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102926	1103111	
==>n    if (s < 0) {\n\tres = 1.0/res;\n    }\n    {{\@1}} = res;\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796998	797098	
==>Y" => "#line 462 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed(interpreter, {{\@1}}, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797902	798002	
==>Y" => "#line 462 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed(interpreter, {{\@1}}, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798806	798906	
==>Y" => "#line 462 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed(interpreter, {{\@1}}, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799711	799811	
==>Y" => "#line 462 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed(interpreter, {{\@1}}, {{\ <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	20497	20623	
==>ile );
        while (<$fh>) {
            if (/^(?:extern\s+)?\w+\*?\s+\*?(\w+)\s*\([^)]+\)\s*;/) {
                push @expo <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	20830	20956	
==>ile );
        while (<$fh>) {
            if (/^(?:extern\s+)?\w+\*?\s+\*?(\w+)\s*\([^)]+\)\s*;/) {
                push @expo <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243928	244018	
==>c/ops/cmp.ops\"\n  STRING* l = VTABLE_get_string(interpreter, {{\@2}});\n  {{\@1}} = string <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244860	244950	
==>c/ops/cmp.ops\"\n  STRING* l = VTABLE_get_string(interpreter, {{\@2}});\n  {{\@1}} = string <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2353	2451	
==>k_comments($file, $source);
    check_mandatory_boilerplate($file, $source);

    # The following S <==
4	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	1083	1196	
==>ne numbers
	time I24  	       # Seed the random number generator

	save 0  # Initialize the runtime stack!
	save " <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	598	689	
==>ser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullParser>, y <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	504	595	
==>ser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullParser>, y <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1491	1582	
==>ser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullParser>, y <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684052	684380	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684946	685274	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	3704	3802	
==>est::MD5>) but a Perl implementation of MD5.
It is written in perl only and because of this it is s <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	3234	3329	
==>Finds out whether the name has a .xyz suffix.

=item C<has_suffix($suffix)>

Finds out whether t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629772	630043	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":object_class <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630761	631032	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":object_class <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107484	1107755	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":object_class <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	20054	20160	
==>ch' => [ 1, -1, FALSE, $_[1] ]); }
	],
	[#Rule 17
		 'expr', 2,
sub
#line 125 "lib/Regex/Grammar.y"
{ retur <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	626844	627082	
==>"TYPE" => "function",
                  "CODE" => 703,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 53 \"src/ops/pmc.op <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26705	26809	
==>= new_label($parser);
    my $l_break    = new_label($parser);
    push @opcodes, new LabelOp( $parser, <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27590	27694	
==>= new_label($parser);
    my $l_break    = new_label($parser);
    push @opcodes, new LabelOp( $parser, <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	290	383	
==>s/build/dynclasses.pl - Build script for dynamic PMCs

=head1 DESCRIPTION

This file is genera <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849847	849943	
==>" => "#line 83 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@2}}, {{\@3}}, 0) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850734	850830	
==>" => "#line 83 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@2}}, {{\@3}}, 0) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851621	851717	
==>" => "#line 83 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@2}}, {{\@3}}, 0) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852509	852605	
==>" => "#line 83 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@2}}, {{\@3}}, 0) <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7652	7745	
==>tcut method that uses find_symbol() to locate a matching
symbol, and then returns that symbol' <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8299	8392	
==>tcut method that uses find_symbol() to locate a matching
symbol, and then returns that symbol' <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8947	9040	
==>tcut method that uses find_symbol() to locate a matching
symbol, and then returns that symbol' <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9617	9710	
==>tcut method that uses find_symbol() to locate a matching
symbol, and then returns that symbol' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784171	784369	
==>,
                              "ki",
                              "p"
                            ],
                  "BODY" => "#line 392 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_pmc_keyed_i <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1485	1610	
==>,$dotpos);
    my($self)={ ERROR => \&_Error,
				ERRST => \$errst,
                NBERR => \$nberr,
				TOKEN => \$token <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27499	27623	
==>t {
    my ( $parser, $block, $expr ) = @_;
    my @opcodes    = ();
    my $l_continue = new_label($parser);
    my $l_b <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1435	1556	
==>,$dotpos);
    my($self)={ ERROR => \&_Error,
				ERRST => \$errst,
                NBERR => \$nberr,
				TOKEN => \$token <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766594	766828	
==>Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767447	767681	
==>Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768300	768534	
==>Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769154	769388	
==>Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926520	926646	
==>O_BUFUSED:  {{\@1}} = {{\@2}}->bufused;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927990	928116	
==>O_BUFUSED:  {{\@1}} = {{\@2}}->bufused;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929460	929586	
==>O_BUFUSED:  {{\@1}} = {{\@2}}->bufused;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930931	931057	
==>O_BUFUSED:  {{\@1}} = {{\@2}}->bufused;\n                              break;\n    case STRINGINFO_STRLEN:   {{\@1}} = {{\@2}}- <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15524	15617	
==>use these functions will be mutually recursive, they will easily be
able handle arbitrarily co <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	626614	626917	
==>,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 703,
                  " <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7171	7278	
==>)=@{$$rules[-$act]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print STDERR "Reduce using rule " <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6839	6942	
==>)=@{$$rules[-$act]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print STDERR "Reduce using rule " <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	1752	1843	
==>->new_item('', 'lib/Parrot/Config.pm'),
		),
		$self->new_group('Testing', '',
			$self->new <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516205	516495	
==>P" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516943	517233	
==>P" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517682	517972	
==>P" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518420	518710	
==>P" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
4	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1206	1322	
==>"./parrot languages/$pasm_f @other",
            CD => '..', # $self->{relpath}, 
            STDOUT => $out_f, STDER <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544267	544368	
==>}};\n INTVAL saved_var1 = a, saved_var2 = b; \n\n if(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545603	545704	
==>}};\n INTVAL saved_var1 = a, saved_var2 = b; \n\n if(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546939	547040	
==>}};\n INTVAL saved_var1 = a, saved_var2 = b; \n\n if(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	149	264	
==>roto);
    $self->init();
    return $self;
}

sub init {
    my $self = shift;
    $self->{state} ||= Regex->global <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	316	431	
==>roto);
    $self->init();
    return $self;
}

sub init {
    my $self = shift;
    $self->{state} ||= Regex->global <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	162	277	
==>roto);
    $self->init();
    return $self;
}

sub init {
    my $self = shift;
    $self->{state} ||= Regex->global <==
4	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	1698	1812	
==>rc = $obj;
        $src =~ s/src\/pmc\/(.*)\.o/$1\.c/g;

	push @src, $src;
    }

    run_command("cd src/pmc && ma <==
4	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1862	1973	
==>put_rule($PIR, '_regex', $tree, $ctx, DEBUG => 0);
    }

    close $PIR;
}

sub generate_pbc {
    my ($pir, $p <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549438	549701	
==>T",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550738	551001	
==>T",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552039	552302	
==>T",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7767	7863	
==>o PARSE;

=begin wrongway

UNK:	if (($type[CURR] eq "STMT" or $type[CURR] eq "COMM" or $type[CURR <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27647	27763	
==>}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end translatio <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30114	30230	
==>}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end translatio <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33532	33648	
==>}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end translatio <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37196	37312	
==>}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end translatio <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264365	264484	
==>DY" => "#line 806 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265219	265338	
==>DY" => "#line 806 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266073	266192	
==>DY" => "#line 806 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266928	267047	
==>DY" => "#line 806 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	17368	17463	
==>e'   => {'from'=>$thisline,   'to'=>undef},
				'column' => {'from'=>$thiscolumn, 'to'=>undef} } <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284790	284879	
==>ine 913 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285667	285756	
==>ine 913 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286544	286633	
==>ine 913 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < 0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080419	1080521	
==>\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \"Illegal PMC enum (%d <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081484	1081586	
==>\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \"Illegal PMC enum (%d <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082549	1082651	
==>\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \"Illegal PMC enum (%d <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083615	1083717	
==>\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \"Illegal PMC enum (%d <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22674	22770	
==>]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0,$temp_1);
  return $return;
}

s <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23175	23271	
==>]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0,$temp_1);
  return $return;
}

s <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	817	905	
==>ze_t)(cur_opcode - interpreter->code->base.data))
#define CUR_OPCODE cur_opcode
#define I <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	933	1021	
==>ze_t)(cur_opcode - interpreter->code->base.data))
#define CUR_OPCODE cur_opcode
#define I <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600285	600518	
==>Ss' doesn't exist\", name);\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601361	601594	
==>Ss' doesn't exist\", name);\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41374	41499	
==>f defined $1;' : "" ) . '
		  }
		  $text = $savetext;
		  pop @item if $backtrack;

		  # MATCH RIGHTARG
		  ' . $rightarg->c <==
4	/Users/nnunley/parrot/tools/dev/gen_class.pl	1049	1164	
==>ght (C) 2001-2003, The Perl Foundation.
 *  SVN Info
 *     \$Id\$
 *  Overview:
 *     These are the vtable fun <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1300	1404	
==>i, op)   (op ? \\
     (void**) (op   - CONTEXT(i->ctx)->pred_offset) : NULL)


#define OP_AS_OFFS(o) (_r <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9694	9790	
==>If it's a call to instantiate, need to knock off first arg.
if "${CURIC}" != "73" goto pre_call_N <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7208	7304	
==>If it's a call to instantiate, need to knock off first arg.
if "${CURIC}" != "73" goto pre_call_N <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6172	6268	
==>If it's a call to instantiate, need to knock off first arg.
if "${CURIC}" != "73" goto pre_call_N <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344269	344365	
==>@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_o <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345511	345607	
==>@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_o <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346753	346849	
==>@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_o <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347996	348092	
==>@2}});\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{\@1}} = PIO_o <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1141	1249	
==>ent -> option -> ask
    $prog ||= $conf->options->get($util);
    $prog ||= $ENV{uc($util)};

    # never ov <==
4	/Users/nnunley/parrot/config/inter/make.pm	962	1070	
==>ent -> option -> ask
    $prog ||= $conf->options->get($util);
    $prog ||= $ENV{uc($util)};

    # never ov <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1138	1246	
==>ent -> option -> ask
    $prog ||= $conf->options->get($util);
    $prog ||= $ENV{uc($util)};

    # never ov <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099288	1099408	
==>= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n\tres = 1.0/res;\n    }\n    {{\@1}} = res;\n    {{+=4}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100486	1100606	
==>= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n\tres = 1.0/res;\n    }\n    {{\@1}} = res;\n    {{+=4}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101684	1101804	
==>= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n\tres = 1.0/res;\n    }\n    {{\@1}} = res;\n    {{+=4}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102883	1103003	
==>= n2;\n\t}\n\tn2 *= n2;\n\te >>= 1;\n    }\n    if (s < 0) {\n\tres = 1.0/res;\n    }\n    {{\@1}} = res;\n    {{+=4}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714110	714342	
==>" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715032	715264	
==>" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715955	716187	
==>" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function" <==
4	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	5052	5173	
==>ts.
##
sub format_tests {
    my (%tests) = @_;

    my $count = scalar keys %tests;
    die unless $count;

    my $strin <==
4	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	3387	3532	
==>= @_;
    
    # types present in this command
    my %types = ();
    for my $arg (@args) {
        next unless $arg->{type};
        
        $t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191655	191767	
==>get_number(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192595	192707	
==>get_number(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	2183	2279	
==>egate PMC integer key

The size of the return offset is determined from the op function's
signatu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53128	53300	
==>" => [
                              "i"
                            ],
                  "BODY" => "#line 829 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Interp_flags_SET(i <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	17870	17991	
==>$$textref, pos($$textref), 20) .
			     q{..."},
		         pos $$textref;
		pos $$textref = $startpos;
		return;
	}

	my <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	13697	13815	
==>$$textref,pos($$textref),20) .
			     q{..."},
		         pos $$textref;
		pos $$textref = $startpos;
		return;
	}
	my <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9619	9709	
==>em C<relative_path_is_directory($path)>

Returns whether the specified relative path is a d <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642349	642673	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643237	643561	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644129	644453	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645022	645346	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  " <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	8007	8164	
==>e_base = $source_file;
        $outfile_base =~ s/\//_/g;
        
        print OUT qq(
           <tr>
             <td>$source_file</td>
             <td>< <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2737	2832	
==>fined $dest_type;
  $self->INTERNAL_ERROR("No type for left!")  unless defined $left_type;
  $se <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2503	2598	
==>fined $dest_type;
  $self->INTERNAL_ERROR("No type for left!")  unless defined $left_type;
  $se <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2425	2520	
==>fined $dest_type;
  $self->INTERNAL_ERROR("No type for left!")  unless defined $left_type;
  $se <==
4	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	3291	3417	
==>symb, $klass, $type, $subtype, $name ) = @_;
        $self->{symbol}  = $symb;
        $self->{class}   = $klass;
        $s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2125	2228	
==>ition. Otherwise, we assume the programmer wanted to shadow the
  # previous definition.
  #

  if (defi <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1645	1748	
==>ition. Otherwise, we assume the programmer wanted to shadow the
  # previous definition.
  #

  if (defi <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1872	1975	
==>ition. Otherwise, we assume the programmer wanted to shadow the
  # previous definition.
  #

  if (defi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071810	1071914	
==>perimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073995	1074099	
==>perimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076180	1076284	
==>perimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078366	1078470	
==>perimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4}} < 0 ? -{{\@4}} : {{\@4}};\n  INTVAL r1 = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	626560	626856	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627703	627999	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628847	629143	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fu <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	41426	41548	
==>. . . . . . . . . . . . . . . . . . . . . . . . . . . .

sub _treat_Es {
  my($self,@stack) = @_;

  my($i, $treelet, $cont <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31122	31215	
==>rrot::Pmc2c';
import Parrot::Pmc2c qw( gen_ret );

=item C<implements($method)>

Always true f <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39742	39835	
==>rrot::Pmc2c';
import Parrot::Pmc2c qw( gen_ret );

=item C<implements($method)>

Always true f <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6917	7009	
==>)
' instr
s1$="The longer string"
found$="longer"
bogus$="not"
print "Found  (5): ", instr(s1 <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18646	18738	
==>)
' instr
s1$="The longer string"
found$="longer"
bogus$="not"
print "Found  (5): ", instr(s1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610631	610909	
==>AME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611533	611811	
==>AME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612436	612714	
==>AME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613342	613620	
==>AME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2202	2309	
==>we need
    # to move to the appropriate place, alongside the sourcefile that produced it.
    # Hence, as s <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	385	491	
==>a->{srcname}, ':',
        $parser->YYData->{lineno}, ': ', $msg
        if ( exists $parser->YYData->{ve <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	851	957	
==>a->{srcname}, ':',
        $parser->YYData->{lineno}, ': ', $msg
        if ( exists $parser->YYData->{ve <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1309	1415	
==>a->{srcname}, ':',
        $parser->YYData->{lineno}, ': ', $msg
        if ( exists $parser->YYData->{ve <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019247	1019541	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "localtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020177	1020471	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "localtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	517	626	
==>app::Driver
#
# This module is part of the Parse::Yapp package available on your
# nearest CPAN
#
# Any u <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	503	607	
==>app::Driver
#
# This module is part of the Parse::Yapp package available on your
# nearest CPAN
#
# Any u <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476476	476775	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "T <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477371	477670	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "T <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478267	478566	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "T <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479158	479457	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "T <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712522	712615	
==>);\n  PIO_putps(interpreter, io, s);\n  if (string_str_index(interpreter, s,\n\tconst_string(i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713629	713722	
==>);\n  PIO_putps(interpreter, io, s);\n  if (string_str_index(interpreter, s,\n\tconst_string(i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719989	720082	
==>);\n  PIO_putps(interpreter, io, s);\n  if (string_str_index(interpreter, s,\n\tconst_string(i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721189	721282	
==>);\n  PIO_putps(interpreter, io, s);\n  if (string_str_index(interpreter, s,\n\tconst_string(i <==
4	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	4290	4402	
==>ils
 */

EOM
    for my $entry (@{$vtable}) {
    next if ($entry->[4] =~ /MMD_/);
    my @args = split /,\s*/, $ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	50407	50508	
==>MK/gco)
			{
				_parse("an perl variable marker", $aftererror,$line);
				$item = new Parse::RecDesce <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4845	4941	
==>es,$states,$lex,$error)
     = @$self{ 'RULES', 'STATES', 'LEX', 'ERROR' };
	my($errstatus,$nbe <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4605	4699	
==>es,$states,$lex,$error)
     = @$self{ 'RULES', 'STATES', 'LEX', 'ERROR' };
	my($errstatus,$nbe <==
4	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	13496	13618	
==>n (function calls, switch statements, gotos
        # with labels, etc.).
        #
        # TODO: Complain about using, e <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1920	2009	
==>ft_sym = $block->find_symbol($left->value);
    $self->SYNTAX_ERROR("Expression involves u <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1878	1967	
==>ft_sym = $block->find_symbol($left->value);
    $self->SYNTAX_ERROR("Expression involves u <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1800	1889	
==>ft_sym = $block->find_symbol($left->value);
    $self->SYNTAX_ERROR("Expression involves u <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	311701	311865	
==>=> 0,
                  "NAME" => "backtrace",
                  "FLAGS" => ":base_debug",
                  "ARGDIRS" => [],
                  "TYPE" => "function", <==
4	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	4513	4618	
==>SKIP "# generated from svn:ignore of '$dir/'\n";
    foreach (split /\n/, $ignore{$dir}) {
        s/\./\\ <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7184	7279	
==>' instr() tests
s1$="Mixed case"
print ucase$(s1$);" Upper"
print lcase$(s1$);" Lower"
a$="   Fl <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18913	19008	
==>' instr() tests
s1$="Mixed case"
print ucase$(s1$);" Upper"
print lcase$(s1$);" Lower"
a$="   Fl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554289	554554	
==>(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555686	555951	
==>(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556923	557188	
==>(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
4	/Users/nnunley/parrot/config/auto/isreg.pm	513	629	
==>y ($self, $conf) = @_;

    my $test = 0;

    cc_gen('config/auto/isreg/test_c.in');
    eval { cc_build(); };
    u <==
4	/Users/nnunley/parrot/tools/build/headerize.pl	3329	3468	
==>~ s/\.c$/.h/;

        my $fh = open_file( "<", $cfile );
        my $source = do { local $/; <$fh> };
        close $fh;

        print "\n <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	6088	6223	
==>libs{$group} ||= {};
        foreach my $lib ( keys %libs ) {
            $group_libs{$group}->{lib} = 1;
        }
    }

    return (\ <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	6299	6434	
==>libs{$group} ||= {};
        foreach my $lib ( keys %libs ) {
            $group_libs{$group}->{lib} = 1;
        }
    }

    return (\ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	26800	26918	
==>rewritten;
        $fallback = $back;
    }

    return ($fallback, @ops);
}

sub rewrite_external {
    my ($self, $op <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	6754	6876	
==>)
          or die "pmc2c dump failed ($?)\n";
    }
}

sub generate_c {
    my ($pmc) = @_;

    if (needs_build("$pmc.c", <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	6965	7087	
==>)
          or die "pmc2c dump failed ($?)\n";
    }
}

sub generate_c {
    my ($pmc) = @_;

    if (needs_build("$pmc.c", <==
4	/Users/nnunley/parrot/lib/Test/More.pm	37387	37479	
==>GHT

Copyright 2001, 2002, 2004 by Michael G Schwern E<lt>schwern@pobox.comE<gt>.

This progr <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	6347	6439	
==>GHT

Copyright 2001, 2002, 2004 by Michael G Schwern E<lt>schwern@pobox.comE<gt>.

This progr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796995	797084	
==>BODY" => "#line 462 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed(interpreter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797899	797988	
==>BODY" => "#line 462 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed(interpreter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798803	798892	
==>BODY" => "#line 462 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed(interpreter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799708	799797	
==>BODY" => "#line 462 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed(interpreter <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27339	27444	
==>ecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;').'
		$lasts <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29449	29554	
==>ecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;').'
		$lasts <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31546	31651	
==>ecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;').'
		$lasts <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1259	1362	
==>R("Call to unknown sub '%s'.", $name) unless $sym;

  my %props = $sym->props;

  my @args  = $self->arg <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1013271	1013584	
==>AGS" => "",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1131,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#l <==
4	/Users/nnunley/parrot/config/gen/parrot_include.pm	2284	2392	
==>$destfile = ($inc =~ m[/]) ? "$inc" : "$destdir/$inc";

                #move_if_diff("$inc.tmp", "$destdir/$ <==
4	/Users/nnunley/parrot/config/init/hints/solaris.pm	1834	1933	
==>se position-independent
    # code for use in shared libraries.  -KPIC for Sun's compiler, -fPIC for <==
4	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	910	1005	
==>ibutions or in general when svn is not available).
# See docs/submissions.pod on how to recreate <==
4	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3765	3860	
==>ibutions or in general when svn is not available).
# See docs/submissions.pod on how to recreate <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31941	32067	
==>->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33518	33644	
==>->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38535	38661	
==>->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40575	40701	
==>->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20862	20992	
==>),
              );

    return ($back, @ops);
}

# ( [ [aaaaa|aaaaaaa]<2,3> ]<1,2> )
# 30,42,20,28,15,21,10,14

# R* ->         pu <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1899	2014	
==>am they provided appears to be
    # broken
    if ($ret == -1 and !$conf->options->get('ask')) {

        # fall ba <==
4	/Users/nnunley/parrot/config/inter/make.pm	1773	1888	
==>am they provided appears to be
    # broken
    if ($ret == -1 and !$conf->options->get('ask')) {

        # fall ba <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1913	2028	
==>am they provided appears to be
    # broken
    if ($ret == -1 and !$conf->options->get('ask')) {

        # fall ba <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568489	568817	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" => ":ob <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569381	569709	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" => ":ob <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570274	570602	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" => ":ob <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571228	571556	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" => ":ob <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777084	777227	
==>et_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777993	778136	
==>et_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778902	779045	
==>et_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779812	779955	
==>et_number_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16026	16218	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16798	16990	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	17572	17764	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18367	18559	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947183	947449	
==>s' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948085	948351	
==>s' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957632	957898	
==>s' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958537	958803	
==>s' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	924	1018	
==>$self->kind } });
  $_->sax($handler) foreach $self->content;
  $handler->end_element({ Name => <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1937	2031	
==>$self->kind } });
  $_->sax($handler) foreach $self->content;
  $handler->end_element({ Name => <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2731	2825	
==>$self->kind } });
  $_->sax($handler) foreach $self->content;
  $handler->end_element({ Name => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16665	16935	
==>,
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	17439	17709	
==>,
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18234	18504	
==>,
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305706	305976	
==>,
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	3453	3580	
==>n_2_4' => 1,
             'has_setitimer' => 'define',
             'has_sig_atomic_t' => 'define',
             'has_sigaction' <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	17726	17845	
==>FRAMES)

    /* Try if JIT code can build that signature,
     * if yes, we are done
     */

     result = Parrot_jit_b <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	1731	1838	
==>t',
);

my %rev_type_map;

while (my ($k, $v) =  each (%type_map)) {
    $rev_type_map{$v} = $k;
};

get_dis <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	1188	1292	
==>P0, $n";
}

sub output_atend {
    my ($self, $failLabel) = @_;
    return ("rx_zwa_atend P0, ".$self->ou <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24370	24462	
==>lf->_constant(0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{childr <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25259	25351	
==>lf->_constant(0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{childr <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26269	26361	
==>lf->_constant(0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{childr <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27159	27251	
==>lf->_constant(0);
  } elsif($num_children==1) {
    $return = $self->_generate($node->{childr <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	7077	7189	
==>ed on array:
    struct( CLASS_NAME => [ ELEMENT_NAME => ELEMENT_TYPE, ... ]);
            # declare struct, base <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	896	994	
==>k', Attributes => { kind => $self->kind } });
  $_->sax($handler) foreach $self->content;
  $handle <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1909	2007	
==>k', Attributes => { kind => $self->kind } });
  $_->sax($handler) foreach $self->content;
  $handle <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2703	2801	
==>k', Attributes => { kind => $self->kind } });
  $_->sax($handler) foreach $self->content;
  $handle <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16322	16429	
==>ssign;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->forth);
      my $op    = $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17093	17200	
==>ssign;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->forth);
      my $op    = $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17898	18005	
==>ssign;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->forth);
      my $op    = $ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21861	21965	
==>op, $right);

      if ($self->get(1)->is_if or $self->get(1)->is_unless) {
        $cond = $self->forth- <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22794	22898	
==>op, $right);

      if ($self->get(1)->is_if or $self->get(1)->is_unless) {
        $cond = $self->forth- <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24441	24545	
==>op, $right);

      if ($self->get(1)->is_if or $self->get(1)->is_unless) {
        $cond = $self->forth- <==
4	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	172	268	
==>@ISA = ('Pod::Simple');
  *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG;
}

$ATTR_PAD = "\n <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	2011	2094	
==>-Wformat-nonliteral -Wformat-security -Wpacked -Wdisabled-optimization -falign-funct <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1331	1414	
==>-Wformat-nonliteral -Wformat-security -Wpacked -Wdisabled-optimization -falign-funct <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1376	1459	
==>-Wformat-nonliteral -Wformat-security -Wpacked -Wdisabled-optimization -falign-funct <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1380	1463	
==>-Wformat-nonliteral -Wformat-security -Wpacked -Wdisabled-optimization -falign-funct <==
4	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	456	569	
==>essage to a multiple of 64
sub padding($) {
    my $l = length (my $msg = shift() . chr(128));    
    $msg .= "\0 <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9526	9619	
==>ALL_RETURN_${CURIC}

# It's a call. Get details of method we're calling.
(${PTEMP0}, ${STEMP0} <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7040	7133	
==>ALL_RETURN_${CURIC}

# It's a call. Get details of method we're calling.
(${PTEMP0}, ${STEMP0} <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5596	5689	
==>ALL_RETURN_${CURIC}

# It's a call. Get details of method we're calling.
(${PTEMP0}, ${STEMP0} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610603	610881	
==>" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ], <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611505	611783	
==>" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ], <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612408	612686	
==>" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ], <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613314	613592	
==>" => 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ], <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780692	780827	
==>ps\"\n    {{\@1}}->vtable->set_string_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781601	781736	
==>ps\"\n    {{\@1}}->vtable->set_string_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782510	782645	
==>ps\"\n    {{\@1}}->vtable->set_string_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783420	783555	
==>ps\"\n    {{\@1}}->vtable->set_string_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296972	297089	
==>Y" => "#line 970 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 0 : 1;\n  {{+=4}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297828	297945	
==>Y" => "#line 970 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 0 : 1;\n  {{+=4}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298684	298801	
==>Y" => "#line 970 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 0 : 1;\n  {{+=4}};\n",
                  "LAB <==
4	/Users/nnunley/parrot/tools/dev/lib_deps.pl	2297	2402	
==>d process to do it the first time.
    my $devnull = File::Spec->devnull;
    my $cmd = "cxref -raw -Iincl <==
4	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	1245	1357	
==>int "$output was built from different version of $input; remaking\n"
          if $Verbose;
        $up_to_date = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635455	635709	
==>E" => 711,
                  "ARGS" => [
                              "p",
                              "ic",
                              "s"
                            ],
                  "BODY" => "#line 107 \"src/ops/pmc.ops\"\n  PMC *class;\n  i <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8459	8567	
==>BG>				$debug & 0x04
#DBG>			and	print STDERR 
#DBG>				    "go to state $$states[$$stack[-1][0]]{GOTOS}{$l <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8075	8181	
==>BG>				$debug & 0x04
#DBG>			and	print STDERR 
#DBG>				    "go to state $$states[$$stack[-1][0]]{GOTOS}{$l <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	7399	7483	
==>t_jit_vtable_221_op Parrot_jit_normal_op
#define Parrot_jit_vtable_1121_op Parrot_jit <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050223	1050331	
==>d to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(interpreter, {{\@2}}, {{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051257	1051365	
==>d to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(interpreter, {{\@2}}, {{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052291	1052399	
==>d to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(interpreter, {{\@2}}, {{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053326	1053434	
==>d to get null class.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global(interpreter, {{\@2}}, {{\@3} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154799	154946	
==>c"
                            ],
                  "BODY" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155703	155850	
==>c"
                            ],
                  "BODY" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156607	156754	
==>c"
                            ],
                  "BODY" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157512	157659	
==>c"
                            ],
                  "BODY" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n <==
4	/Users/nnunley/parrot/lib/Parrot/Op.pm	4724	4868	
==>ags
{
    my $self = shift;

    if (@_)
    {
        $self->{FLAGS} = shift;
    }

    return $self->{FLAGS};
}

=item C<arg_dir($index)>

Ret <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94346	94589	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95238	95481	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96131	96374	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24508	24601	
==>429 \"src/ops/core.ops\"\n  opcode_t *dest = {{^+1}};\n  PMC * const p = CONTEXT(interpreter-> <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019056	1019333	
==>ltbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "l <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019986	1020263	
==>ltbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "l <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018131	1018407	
==>ltbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020917	1021193	
==>ltbuffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33641	33747	
==>G and print "Assimilating following ~Para content into $over_type item\n";
              push @$para, splic <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35454	35560	
==>G and print "Assimilating following ~Para content into $over_type item\n";
              push @$para, splic <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1449	1546	
==>();
    $options{module} ||= "Regex::CodeGen::IMCC";

    if ($options{module} ne 'Regex::CodeGen: <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126611	126732	
==>AL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127746	127867	
==>AL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128881	129002	
==>AL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\ <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	21605	21704	
==>le, but if this is for a
TODO test, the todo_output() handle is used.

Output will be indented and m <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	25598	25727	
==>0]].right = entry;
EOC
        }
        else {
            $cout .= <<"EOC";
        _temp_mmd_init[$entry->[0]].right = my_enum_ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	8815	8980	
==>),
              (DEBUG > 4) ? (q<: >, map($_->dump, @to_unget)) : (),
              ") to be keepn'd.\n";
            last; # give up
          }
          # else ke <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	884	982	
==>t_namespace  ];
our $LD_LOAD_FLAGS = qq[-bundle -undefined suppress];
our $PERL = q[perl];
our $LOA <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	873	971	
==>t_namespace  ];
our $LD_LOAD_FLAGS = qq[-bundle -undefined suppress];
our $PERL = q[perl];
our $LOA <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	877	975	
==>t_namespace  ];
our $LD_LOAD_FLAGS = qq[-bundle -undefined suppress];
our $PERL = q[perl];
our $LOA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953828	954090	
==>encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954618	954880	
==>encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957037	957299	
==>encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957941	958203	
==>encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	41107	41211	
==>l);

  my $scope = $self->{scope};

  while ($scope && !exists $scope->{$symbol}) {
    $scope = $scope-> <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1595	1680	
==>ad1 SEE ALSO

L<Pod::Simple::PullParserToken>, L<Pod::Simple>, L<Pod::Simple::Subclass <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2762	2847	
==>ad1 SEE ALSO

L<Pod::Simple::PullParserToken>, L<Pod::Simple>, L<Pod::Simple::Subclass <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1882	1967	
==>ad1 SEE ALSO

L<Pod::Simple::PullParserToken>, L<Pod::Simple>, L<Pod::Simple::Subclass <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647027	647334	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functio <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647787	648094	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functio <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648548	648855	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functio <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649310	649617	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functio <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176833	177070	
==>" => [
                              "sc",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 240 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    { <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2568	2700	
==>ef,            # No properties
    undef,            # No args
    $self->file,
    $self->line
  );

  $block->set_symbol($self->nam <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2847	2977	
==>ef,           # No properties
    undef,           # No args
    $self->file,
    $self->line
  );

  $block->set_symbol($self->nam <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	32949	33073	
==>3 == @{ $treelet->[$i] } ) {
          # But if it IS just one text node (most common case)
          DEBUG > 1 and printf qq <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857993	858322	
==>,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 97 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858996	859325	
==>,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 97 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860000	860329	
==>,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 97 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861004	861333	
==>,
                  "NAME" => "repeat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 97 <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	1943	2061	
==>, 'P6', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  [' <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30416	30518	
==>usertypes) {
		print CODE<<DISP;
	eq S0, "$_", COPY_$_
DISP
	}
	print CODE <<DISP2;
	print "Structure t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549898	549993	
==>Y" => "#line 56 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551199	551294	
==>Y" => "#line 56 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	3082	3187	
==>shift;
    my ($pc, $line ,$opcode, $arg, $rest);
    if ($l =~ /Disassembly of <?([\w:]+)>?/) {
	push @co <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15501	15596	
==>turn =~ /^P/;
  my $value = $self->_generate (_get_arg($node,2));
  $self->_add_inst ('', 'set', <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15859	15954	
==>turn =~ /^P/;
  my $value = $self->_generate (_get_arg($node,2));
  $self->_add_inst ('', 'set', <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3297	3391	
==>ap};

  $new->accept_codes(@_to_accept);
  $new->accept_codes('VerbatimFormatted');
  DEBUG > 2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722482	722739	
==>interpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723511	723768	
==>interpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724555	724812	
==>interpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3904	4004	
==>STOP_FOR_REAL()
	DEBUGGER_DONE: noop
	.end	# End debug segment
.end 	# End outer segment
EOD
}
if ($d <==
4	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1190	1480	
==>ed ops: "
                              # print  I5
                              # print  "\n"
                              #
$N1 = time_hires();           # time N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, I4, I3
got <==
4	/Users/nnunley/parrot/examples/mops/mops.pl	1190	1480	
==>ed ops: "
                              # print  I5
                              # print  "\n"
                              #
$N1 = time_hires();           # time N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, I4, I3
got <==
4	/Users/nnunley/parrot/tools/build/ops2c.pl	10414	10551	
==>ar $op->arg_types
            ? map { sprintf("PARROT_ARG_%s", uc $_) } $op->arg_types
            : 0
        ) . " }";
        my $arg_d <==
4	/Users/nnunley/parrot/tools/dev/as2c.pl	234	325	
==>$src.s";

&print_header($src);
&create_s($cmd);
&parse_s("$src.s");
&add_glue("$src.c");

su <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549733	549953	
==>ODE" => 633,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 56 \"src/ops/object.ops\"\n  opcode_t *dest <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11724	11847	
==>, \@types;
}

sub op {
    Regex::Ops::Tree->op(@_);
}

$::paren = 0;



sub new {
        my($class)=shift;
        ref($cl <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11883	11980	
==>s(\@code, \$optype, \@work);
			$pir_args = join(",", map {$_->[0]} (reverse @args));
			$pir_args <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	12293	12390	
==>s(\@code, \$optype, \@work);
			$pir_args = join(",", map {$_->[0]} (reverse @args));
			$pir_args <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	20673	20802	
==>et_super_mmds($meth, $right, $func);
            }
            push @mmds, [ $func, $left, $right, $meth_name ];
            forea <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	6477	6590	
==>t_mod = modtime($target)
      or return 1;
    for my $source (@sources) {
        return 1 if modtime($source) > <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4897	5010	
==>t_mod = modtime($target)
      or return 1;
    for my $source (@sources) {
        return 1 if modtime($source) > <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	6688	6801	
==>t_mod = modtime($target)
      or return 1;
    for my $source (@sources) {
        return 1 if modtime($source) > <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	330	441	
==>= 1;
    }

    print STDOUT 'lua: ', $parser->YYData->{srcname}, ':',
        $parser->YYData->{lineno}, ': <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	796	907	
==>= 1;
    }

    print STDOUT 'lua: ', $parser->YYData->{srcname}, ':',
        $parser->YYData->{lineno}, ': <==
4	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1254	1365	
==>= 1;
    }

    print STDOUT 'lua: ', $parser->YYData->{srcname}, ':',
        $parser->YYData->{lineno}, ': <==
4	/Users/nnunley/parrot/config/gen/core_pmcs.pm	1772	1862	
==>rp *interp, PMC* registry);
extern void Parrot_initialize_core_pmcs(Interp *interp);
void P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115436	115723	
==>{{\@1}} = {{\@2}} << {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116291	116578	
==>{{\@1}} = {{\@2}} << {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117146	117433	
==>{{\@1}} = {{\@2}} << {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2513	2624	
==>sub $realvar, $amount";
}

sub output_set {
    my ($self, $reg, $value) = @_;
    $reg = value($reg);
    retur <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293466	293733	
==>l(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294342	294609	
==>l(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295218	295485	
==>l(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	58152	58277	
==>ode\"?");
				}
				else
				{
					_error("Untranslatable item encountered: \"$code\"",
					       $line);
					_hint("Did y <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	331783	332093	
==>UMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333060	333370	
==>UMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334338	334648	
==>UMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335616	335926	
==>UMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255783	256091	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "xor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256690	256998	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "xor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257598	257906	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "xor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
4	/Users/nnunley/parrot/config/auto/sizes.pm	1775	1883	
==>fixed sized types
    if ($results{shortsize} == 2) {
        $conf->data->set(int2_t => 'short');
    } else <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028126	1028217	
==>LEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_event(interpreter, (FLO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028977	1029068	
==>LEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_event(interpreter, (FLO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151039	151129	
==>.ops\"\n  if (0 == string_equal(interpreter,\n      {{\@1}}->vtable->get_string(interpreter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152017	152107	
==>.ops\"\n  if (0 == string_equal(interpreter,\n      {{\@1}}->vtable->get_string(interpreter <==
4	/Users/nnunley/parrot/config/auto/gc.pm	1682	1788	
==>:-trace)?$/) {
        $conf->data->set(
            TEMP_gc_c => <<"EOF",
\$(SRC_DIR)/$gc\$(O):	\$(GENERAL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722405	722502	
==>erpreter, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_softspace(interpreter, io, 1);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723434	723531	
==>erpreter, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_softspace(interpreter, io, 1);\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724478	724575	
==>erpreter, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_softspace(interpreter, io, 1);\ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25144	25248	
==>um_children = defined $node->{children} ? @{$node->{children}} - 1 : 0;

  if($num_children==0) {
    $re <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27044	27148	
==>um_children = defined $node->{children} ? @{$node->{children}} - 1 : 0;

  if($num_children==0) {
    $re <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24256	24359	
==>um_children = defined $node->{children} ? @{$node->{children}} - 1 : 0;
  if($num_children==0) {
    $re <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26155	26258	
==>um_children = defined $node->{children} ? @{$node->{children}} - 1: 0;

  if($num_children==0) {
    $re <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13163	13389	
==>R(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14007	14233	
==>R(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14711	14937	
==>R(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	15398	15624	
==>R(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623185	623278	
==>cc->address) {\n\tinterpreter->current_returns = CUR_OPCODE;\n        n = PMC_int_val(mic->m.s <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	47	138	
==>oken;
use Pod::Simple::PullParserToken ();
@ISA = ('Pod::Simple::PullParserToken');
use stri <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	49	140	
==>oken;
use Pod::Simple::PullParserToken ();
@ISA = ('Pod::Simple::PullParserToken');
use stri <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	48	139	
==>oken;
use Pod::Simple::PullParserToken ();
@ISA = ('Pod::Simple::PullParserToken');
use stri <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7975	8072	
==>truct::Block");
  confess "No identifier name!"  unless defined $name;
  confess "Extra arguments! <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8622	8719	
==>truct::Block");
  confess "No identifier name!"  unless defined $name;
  confess "Extra arguments! <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9290	9387	
==>truct::Block");
  confess "No identifier name!"  unless defined $name;
  confess "Extra arguments! <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9959	10056	
==>truct::Block");
  confess "No identifier name!"  unless defined $name;
  confess "Extra arguments! <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	5084	5208	
==>nst = "";
    my $ns = $namespace{$arg};
    my $real_name = $arg;
    my $meth = '';
    if ($ns) {
	$meth = ', method';
	$n <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	41935	42051	
==>P$count") {
	  $moved = $_;
	  $_ = $empty;
	}
      }
      if ($moved) {
	$self->_add_inst ('', 'set',[$empty,"P$co <==
4	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	3635	3728	
==>be_perl_file($info,$text)
	if $path =~ /\.(pl|pm|t|PL|pod|pasm)$|_pm\.in$/
	    or $text =~ /^ <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37362	37454	
==>ay.
		$pir .= <<PIR;
pop_count = elements c_params
goto INS_TRANS_CP_LOOP_CHK_$name
INS_TRANS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571219	571548	
==>n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568482	568809	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569374	569701	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570267	570594	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  "FLAGS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79424	79536	
==>We just need to build\n         a PMC with it so we can get and set the value */\n      {{\@1}} = pmc_new(interpr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80945	81057	
==>We just need to build\n         a PMC with it so we can get and set the value */\n      {{\@1}} = pmc_new(interpr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627463	627572	
==>ter, {{\@2}});\n  {{\@1}}->vtable->init(interpreter, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628607	628716	
==>ter, {{\@2}});\n  {{\@1}}->vtable->init(interpreter, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/tools/dev/nm.pl	1783	1876	
==><--t>.

=item C<--type=long>

=item C<-L>

Append a long type (e.g. "global_const_init_data" v <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833552	833636	
==>stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}}, STACK_ENTRY_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834274	834358	
==>stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}}, STACK_ENTRY_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835000	835084	
==>stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}}, STACK_ENTRY_ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24832	24958	
==>eturn);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_generate($node->{children}[$_ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25843	25969	
==>eturn);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_generate($node->{children}[$_ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26731	26857	
==>eturn);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_generate($node->{children}[$_ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27741	27867	
==>eturn);
      $return = $temp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_generate($node->{children}[$_ <==
4	/Users/nnunley/parrot/config/gen/icu.pm	1759	1894	
==>ed = capture_output("$icuconfig --ldflags");
            if (defined $icushared) {
                chomp $icushared;
                $ic <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	30666	30769	
==>urn;

  my $func = $self->_generate(_get_arg ($node, 1));
  my @args = _get_args ($node, 2);
  die "appl <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39389	39488	
==>ile'      => \&_op_open_output_file,
  'close-input-port'      => \&_op_close_input_port,
  'close-o <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	1781	1874	
==>4.html', '', 'languages/m4'),
        $self->new_section('Ook!', 'ook.html', '', 'languages/oo <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10850	10985	
==>ss)
    and $class=ref($class);

    my($self)=$class->SUPER::new( yyversion => '1.05',
                                  yystates = <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11849	11980	
==>ss)
    and $class=ref($class);

    my($self)=$class->SUPER::new( yyversion => '1.05',
                                  yystates = <==
4	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1174	1291	
==>_parrot));
        my $path_to_language;
        if ($dir_count == 0) {
          $path_to_language = File::Spec->join <==
4	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1659	1776	
==>_parrot));
        my $path_to_language;
        if ($dir_count == 0) {
          $path_to_language = File::Spec->join <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62991	63217	
==>,
                  "TYPE" => "inline",
                  "CODE" => 82,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 964 \"src/ops/core.ops\"\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540671	540800	
==>& 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541923	542052	
==>& 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543175	543304	
==>& 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908741	909059	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909637	909955	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910534	910852	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911431	911749	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "index",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836809	837064	
==>" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837541	837796	
==>" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838275	838530	
==>" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	839007	839262	
==>" => 0,
                  "NAME" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072242	1072381	
==>\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074427	1074566	
==>\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076612	1076751	
==>\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078798	1078937	
==>\n    }\n    r0 = r1;\n    r1 = r2;\n\n    xkp1 = q1*xk + xkm1;\n    xkm1 = xk;\n    xk = xkp1;\n\n    ykp1 = q1*yk + ykm1;\n    ykm1 = yk;\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332370	332470	
==>need to go away soon */\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333648	333748	
==>need to go away soon */\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334926	335026	
==>need to go away soon */\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336205	336305	
==>need to go away soon */\n  const char * const mode = string_to_cstring(interpreter, {{\@3}});\n\n  {{ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	124	218	
==>ense
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/Loop <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	128	222	
==>ense
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/Loop <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	125	219	
==>ense
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/Loop <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	125	219	
==>ense
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/Loop <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763178	763330	
==>C(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764031	764183	
==>C(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764884	765036	
==>C(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765738	765890	
==>C(\"Out of bound register access\");\n    REG_NUM({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024320	1024612	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025076	1025368	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025833	1026125	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026589	1026881	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo",
                  "FLAGS" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450455	450781	
==>=> ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 516,
                  "ARGS" => [
                              "p",
                              "p <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6510	6631	
==>ed,
   ' force another pass by setting Exchange to TRUE.
   FOR I = 2 TO Max
      IF A$(I-1) > A$(I) THEN
         Exchan <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16163	16284	
==>ed,
   ' force another pass by setting Exchange to TRUE.
   FOR I = 2 TO Max
      IF A$(I-1) > A$(I) THEN
         Exchan <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	3676	3784	
==>:Token->new(
        $file, $line, $1 eq '[' ? 'open-bracket' : 'close-bracket', undef, $1);
      $text = $2 <==
4	/Users/nnunley/parrot/config/auto/sizes.pm	2087	2197	
==>(int4_t => 'short');
    } elsif ($results{intsize} == 4) {
        $conf->data->set(int4_t => 'int');
    } el <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528616	528704	
==>rc/ops/math.ops\"\n  {{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529498	529586	
==>rc/ops/math.ops\"\n  {{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	530380	530468	
==>rc/ops/math.ops\"\n  {{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072501	1072607	
==>n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong becau <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074686	1074792	
==>n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong becau <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076871	1076977	
==>n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong becau <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079057	1079163	
==>n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct the sign (can be wrong becau <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1866	1996	
==>target, $source) = @_;

    return
        "$CC $CFLAGS " .
        "-o " . $target . " " .
        "-I" . $PATHQUOTE . '/Users/nnu <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2162	2292	
==>target, $source) = @_;

    return
        "$CC $CFLAGS " .
        "-o " . $target . " " .
        "-I" . $PATHQUOTE . '/Users/nnu <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1957	2087	
==>target, $source) = @_;

    return
        "$CC $CFLAGS " .
        "-o " . $target . " " .
        "-I" . $PATHQUOTE . '/Users/nnu <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2311	2400	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__END__

=head1 NAME

Pod::Simple::DumpAsXML - <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32807	32935	
==>{'typeinfo'}, $mv, 
			    "typeinfo for rule $rule->{'name'}");
		    $pir .= "\n" if $pir !~ /\n$/;
		    $pir .= "### end type <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26811	26927	
==>{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir .= "\n" if $pir !~ /\n$/;
		$pir .= "### end type <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28527	28643	
==>{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir .= "\n" if $pir !~ /\n$/;
		$pir .= "### end type <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36509	36625	
==>{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir .= "\n" if $pir !~ /\n$/;
		$pir .= "### end type <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404721	405028	
==>n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405633	405940	
==>n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406545	406852	
==>n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr" <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	24052	24178	
==>flags}{hll}})[0];
      my $maps = (keys %{$self->{flags}{maps}})[0];
      $cout .= <<"EOC";

        {
            /* Registe <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855020	855288	
==>cat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855909	856177	
==>cat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856798	857066	
==>cat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857688	857956	
==>cat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90879	91203	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91733	92057	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => " <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	9180	9282	
==>nterpreter, st, "S");
    UVal_str(st->val) = val;
    Parrot_convert_arg(interpreter, st);
    Parrot_ <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	16504	16598	
==>, with which to initialize the struct.
If no initializer is specified for a particular element, <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	1106	1223	
==>=> '>=',
  '>=' => '<',
  '>'  => '<='
);

sub invert_relop
{
  my $self = shift;
  my $op = shift;
 
  confess "Undef <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	949	1062	
==>::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block,

    DEST  => $dest,
    LEFT  => $le <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	940	1053	
==>::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block,

    DEST  => $dest,
    LEFT  => $le <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	829	942	
==>::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block,

    DEST  => $dest,
    LEFT  => $le <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063858	1064216	
==>" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1188,
                  "ARGS" => [
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 253 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550091	550180	
==>reter->current_object = object;\n  interpreter->current_cont = NEED_CONTINUATION;\n  inter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551392	551481	
==>reter->current_object = object;\n  interpreter->current_cont = NEED_CONTINUATION;\n  inter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552734	552823	
==>reter->current_object = object;\n  interpreter->current_cont = NEED_CONTINUATION;\n  inter <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1263	1372	
==>->{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shif <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1254	1363	
==>->{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shif <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1143	1252	
==>->{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shif <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3351	3453	
==>0)
t$=foo$
print t$
t=0
do
	print "This is right"
	exit do
	print "This is wrong"
	t=t+1
loop until t>1 <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	23736	23847	
==>UILD_TUPLE($nfix, '', "\t\t #call_args");
	    my $t = pop @stack;
	    unshift @args, $t->[1];
	}
	for (my $i = <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28286	28385	
==>ass).
	elsif ($rule->{'class'} eq 'load') {
		# Undef the loadtype so we can detect case where typei <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3722	3813	
==>:Checker -e \
   "exit Pod::Simple::Checker->filter(shift)->any_errata_seen" \
   thingy.pod <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	60364	60463	
==>eed to be C<undef>.

The available diagnostics are:

=over 4

=item  C<Did not find a suitable brack <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11485	11578	
==>rth->text, 0, -1);
      my $value = Jako::Construct::Expression::Value->new($block, $self->fo <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12032	12125	
==>rth->text, 0, -1);
      my $value = Jako::Construct::Expression::Value->new($block, $self->fo <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12575	12668	
==>rth->text, 0, -1);
      my $value = Jako::Construct::Expression::Value->new($block, $self->fo <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	676	773	
==>ock (" . ref($block) . ") is not!"  unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  c <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	551	647	
==>ock (" . ref($block) . ") is not!" unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  c <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	561	656	
==>ock (". ref($block) . ") is not!" unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  c <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	543	638	
==>ock (". ref($block) . ") is not!" unless UNIVERSAL::isa($block, qw(Jako::Construct::Block));
  c <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11117	11235	
==>rd($1))/eg;
        # Yes, stipulate the list without a range, so that this can work right on
        #  all charsets t <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4466	4582	
==>rd($1))/eg;
       # Yes, stipulate the list without a range, so that this can work right on
       #  all charsets t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359285	359381	
==>=> "#line 250 \"src/ops/io.ops\"\n  STRING * const s = {{\@1}};\n  if (s && string_length(interpr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360033	360129	
==>=> "#line 250 \"src/ops/io.ops\"\n  STRING * const s = {{\@1}};\n  if (s && string_length(interpr <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	865	983	
==>ift->{IDENT};  }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;
  
  my $ident_name = $sel <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	865	981	
==>ift->{IDENT};  }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $ident_name = $sel <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1544	1655	
==>(shift, shift);

    unshift @_ => 'matched';
    unshift @_ => ( ref $pattern
        ? Parrot::Test::PGE::_gen <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	7735	7839	
==>self = shift;
    my $path = $self->path_for_directory_with_name(shift) || return;
    
    return $self- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973788	974138	
==>],
                  "TYPE" => "inline",
                  "CODE" => 1094,
                  "ARGS" => [
                              "i",
                              "ic",
                              "s",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 622 \ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21887	21991	
==>elf->get(1)->is_if or $self->get(1)->is_unless) {
        $cond = $self->forth->text;

        $self->req <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22820	22924	
==>elf->get(1)->is_if or $self->get(1)->is_unless) {
        $cond = $self->forth->text;

        $self->req <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24467	24571	
==>elf->get(1)->is_if or $self->get(1)->is_unless) {
        $cond = $self->forth->text;

        $self->req <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	949	1111	
==>d *",
       i => "int",
       3 => "int *",
       l => "long",
       4 => "long *",
       c => "char",
       s => "short",
       2 => "short *",
       f => <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	1364	1526	
==>d *",
       i => "int",
       3 => "int *",
       l => "long",
       4 => "long *",
       c => "char",
       s => "short",
       2 => "short *",
       f => <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	2269	2431	
==>d *",
       i => "int",
       3 => "int *",
       l => "long",
       4 => "long *",
       c => "char",
       s => "short",
       2 => "short *",
       f => <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	36314	36442	
==>$para);

        next;  # and skip
      } elsif($para_type eq '~Verbatim') {
        $para->[0] = 'Verbatim';
        $para_type <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	6487	6599	
==>dtime($target)
      or return 1;
    for my $source (@sources) {
        return 1 if modtime($source) > $target_ <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4907	5019	
==>dtime($target)
      or return 1;
    for my $source (@sources) {
        return 1 if modtime($source) > $target_ <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	6698	6810	
==>dtime($target)
      or return 1;
    for my $source (@sources) {
        return 1 if modtime($source) > $target_ <==
4	/Users/nnunley/parrot/config/init/miniparrot.pm	247	344	
==>ch miniparrot (ANSI C Parrot)'s needs.  This step
primarily  overwrites a lot of settings in the C <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51727	51830	
==>\"\n  if ({{\@1}} != 0) { Parrot_set_trace(interpreter,   {{\@1}}); }\n  else         { Parrot_clear_tra <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52510	52613	
==>\"\n  if ({{\@1}} != 0) { Parrot_set_trace(interpreter,   {{\@1}}); }\n  else         { Parrot_clear_tra <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5310	5406	
==>gn' });
  $dest->sax($handler);
  $handler->start_element({ Name => 'op', Attributes => { kind => <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3373	3469	
==>gn' });
  $dest->sax($handler);
  $handler->start_element({ Name => 'op', Attributes => { kind => <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	2756	2857	
==>y $symbtab = shift @{ $parser->YYData->{scope} };
    $parser->YYData->{symbtab} = $symbtab;
    $pa <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1818	1917	
==>ture_output($prog, '--version');

    # don't override the user even if the program they provided ap <==
4	/Users/nnunley/parrot/config/inter/make.pm	1692	1791	
==>ture_output($prog, '--version');

    # don't override the user even if the program they provided ap <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1832	1931	
==>ture_output($prog, '--version');

    # don't override the user even if the program they provided ap <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381287	381600	
==>");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382299	382612	
==>");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383311	383624	
==>");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384324	384637	
==>");\n    }\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
4	/Users/nnunley/parrot/lib/Test/More.pm	8733	8829	
==>yn' );

For those grammatical pedants out there, there's an C<isn't()>
function which is an alias <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	542	632	
==>") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Dest (" . ref($dest) <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	533	623	
==>") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Dest (" . ref($dest) <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	422	512	
==>") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Dest (" . ref($dest) <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	10908	11021	
==>000)
    and defined(my $token = $self->get_token)
  ) {
    push @to_unget, $token;

    if ($state == 0) { # see <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714732	714824	
==>\" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(interpret <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715655	715747	
==>\" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(interpret <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716600	716692	
==>\" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(interpret <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926350	926511	
==>{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}});\n                              break;\n    case S <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927820	927981	
==>{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}});\n                              break;\n    case S <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929290	929451	
==>{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}});\n                              break;\n    case S <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930761	930922	
==>{\@2}});\n                              break;\n    case STRINGINFO_FLAGS:    {{\@1}} = PObj_get_FLAGS({{\@2}});\n                              break;\n    case S <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039366	1039624	
==>e_global(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040258	1040516	
==>e_global(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041150	1041408	
==>e_global(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042043	1042301	
==>e_global(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382936	383172	
==>" => [
                              "p",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 455 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028191	1028380	
==>_on_event(interpreter, (FLOATVAL) {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029042	1029231	
==>_on_event(interpreter, (FLOATVAL) {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parr <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	1376	1482	
==>o avoid a warning.
    my $parent_path = File::Spec->catpath($volume, $directories, '');
    
    # To remo <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072876	1073147	
==>+ y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075061	1075332	
==>+ y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077246	1077517	
==>+ y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079432	1079703	
==>+ y == r1 ) {\n    {{\@2}} = -{{\@2}};\n  }\n\n  {{+=6}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813500	813759	
==>MP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 9 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814125	814384	
==>MP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 9 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814747	815006	
==>MP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 9 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	815375	815634	
==>MP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 9 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8291	8412	
==>JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLAGS" => ":base_loop,check <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9406	9527	
==>JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLAGS" => ":base_loop,check <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1003	1099	
==>me of "head1", token(s) for its
content, and then an end-token with the tagname of "head1".

=ite <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1431	1527	
==>me of "head1", token(s) for its
content, and then an end-token with the tagname of "head1".

=ite <==
4	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	5519	5652	
==>n') ? "[$1]" :
        m[^lib/]          ? '[devel]' :
        m[^runtime/]      ? '[library]' :
        m[^tools/docs/]   ? '[devel]' <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	933	1038	
==>sa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block,

    DEST  => <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	924	1029	
==>sa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block,

    DEST  => <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	813	918	
==>sa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block,

    DEST  => <==
4	/Users/nnunley/parrot/config/init/manifest.pm	784	880	
==>k, some files were missing!  I can't continue running
without everything here.  Please try to fin <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	4993	5085	
==>todo )>

Determine the language from the extension of C<$example_f> and runs
language_output_ <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	5206	5298	
==>todo )>

Determine the language from the extension of C<$example_f> and runs
language_output_ <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	5421	5513	
==>todo )>

Determine the language from the extension of C<$example_f> and runs
language_output_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818582	818745	
==>MP_RESTART",
                  "NAME" => "restoreall",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [],
                  "TYPE" => "in <==
4	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	13196	13334	
==>s, then double the
        # enclosing parentheses and add a space around the argument,
        # like so:
        #
        #    goto OFFS <==
4	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3864	3964	
==>s, then double the enclosing
parentheses and add a space around the argument, like so:

    goto OFFS <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	48982	49076	
==>start_L, end_L, start_C, end_C, etc., if they are
defined.

have the POD FORMATTING ERRORS sect <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	817403	817588	
==>":base_core",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 925,
                  "ARGS" => [],
                  "BODY" => "#line <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30357	30464	
==>>>},
						  Parse::RecDescent::_tracefirst($text))
							if defined $::RD_TRACE;').'
			last;
		}'.($::RD_ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32557	32664	
==>>>},
						  Parse::RecDescent::_tracefirst($text))
							if defined $::RD_TRACE;').'
			last;
		}'.($::RD_ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28282	28388	
==>>>},
						  Parse::RecDescent::_tracefirst($text))
					if defined $::RD_TRACE;').'

			last;
		}'.($::RD_ <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	469	567	
==>t_start {
  # ($self, $element_name, $attr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value <==
4	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	468	566	
==>t_start {
  # ($self, $element_name, $attr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value <==
4	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	663	761	
==>t_start {
  # ($self, $element_name, $attr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	58509	58601	
==>e automatically quotemeta'd.

A typical use of C<gen_delimited_pat> would be to build special <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403892	404184	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404803	405095	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405715	406007	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406627	406919	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	220308	220729	
==>" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 258,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035474	1035573	
==>e = {{\@2}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n    PMC *resul <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036638	1036737	
==>e = {{\@2}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n    PMC *resul <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	790	885	
==>xt that this token holds.  For example, parsing
CZ<><foo> will return a C start-token, a text-to <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082253	1082522	
==>PE" => "function",
                  "CODE" => 1201,
                  "ARGS" => [
                              "p",
                              "i",
                              "kc"
                            ],
                  "BODY" => "#line 145 \"src/ops/ex <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798616	798866	
==>,
                  "ARGS" => [
                              "p",
                              "k",
                              "nc"
                            ],
                  "BODY" => "#line 462 \"src/ops/set.ops\"\n    {{\@1}}->vtable->se <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	12378	12563	
==>while (<IN>) {
            s/&/&amp;/g;
            s/</&lt;/g;
            s/>/&gt;/g;

            next if (&{$skip_func}($_));
            
            my $atag="";
            if (/^ <==
4	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	1023	1135	
==>y($file, @args);
print   badargs($cmd, @args);
print    footer();

sub open_tmt {
    my ($filename) = @_;

    l <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	32130	32246	
==>starts} || {} }) {
        push @ops, aop('setstart' => [ $group, -2 ]);
    }

    foreach $group (sort keys %{ $sel <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	43431	43534	
==>n delimiter will cause the regex to be
immediately terminated. In other words:

	'm /
		(?i)		# CASE INS <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	18455	18556	
==>For example, suppose you have a document that starts out:

  =head1 NAME
  
  Hoo::Boy::Wowza -- Stuff <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	18936	19037	
==>For example, suppose you have a document that starts out:

  =head1 NAME
  
  Hoo::Boy::Wowza -- Stuff <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958592	958880	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959393	959681	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960195	960483	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAG <==
4	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	2521	2621	
==>is_executable()>

This tells you whether the file is executable.

=cut

sub is_executable
{
    my $s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800614	800706	
==>Y" => "#line 467 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed(interpreter, {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801518	801610	
==>Y" => "#line 467 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed(interpreter, {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802422	802514	
==>Y" => "#line 467 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed(interpreter, {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803327	803419	
==>Y" => "#line 467 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed(interpreter, {{\@ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49245	49344	
==>ne, "<$1op:...>");
				$prod->adddirective($1, $line);
			}
			elsif ($grammar =~ m/$UNCOMMITMK/gco) <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2235	2329	
==>ifier')) {
    my $right_sym = $block->find_symbol($right->value);
    $self->SYNTAX_ERROR("Exp <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2193	2287	
==>ifier')) {
    my $right_sym = $block->find_symbol($right->value);
    $self->SYNTAX_ERROR("Exp <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2115	2209	
==>ifier')) {
    my $right_sym = $block->find_symbol($right->value);
    $self->SYNTAX_ERROR("Exp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223648	223923	
==>}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224590	224865	
==>}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225530	225805	
==>}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226471	226746	
==>}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7587	7695	
==>ration hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If the destinat <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5705	5813	
==>ration hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If the destinat <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4547	4655	
==>ration hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If the destinat <==
4	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9455	9540	
==>55a14ed,/* 28 */
GG,$a,$b,$c,$d,$_[17],5,0xa9e3e905,/* 29 */
GG,$d,$a,$b,$c,$_[6],9,0x <==
4	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	1292	1396	
==>"\n\nReady\n"
	bsr CLEAR  # This should keep the runtime stack clean

MAINLOOPNR:
	set I20, 0    # Intera <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	671	757	
==>ERSAL::isa($dest, 'Jako::Construct::Expression::Value::Identifier');
  confess("Left (" <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	662	748	
==>ERSAL::isa($dest, 'Jako::Construct::Expression::Value::Identifier');
  confess("Left (" <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	551	637	
==>ERSAL::isa($dest, 'Jako::Construct::Expression::Value::Identifier');
  confess("Left (" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88752	88995	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89489	89732	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i <==
4	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	1672	1769	
==>my $output = $self->gen_output( $code, $test_no ); 
  
  my $pass = $self->{builder}->is_eq( $outp <==
4	/Users/nnunley/parrot/tools/build/ops2c.pl	916	1010	
==>consulted for various bits of information needed to generate the C
code. Each creates a differe <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766586	766742	
==>PANIC(\"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767439	767595	
==>PANIC(\"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768292	768448	
==>PANIC(\"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769146	769302	
==>PANIC(\"Out of bound register access\");\n    REG_STR({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26587	26711	
==>pcodes;
}

sub BuildWhile {
    my ( $parser, $expr, $block ) = @_;
    my @opcodes    = ();
    my $l_continue = new_l <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	7230	7332	
==>= 0;

  my @lines = $self->slurp_file($file);
  unshift @lines, "#line 1 \"$file\"\n";

  while(@lines) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367812	367897	
==>\"src/ops/io.ops\"\n  {{\@1}} = PIO_reads(interpreter, PIO_STDIN(interpreter), (size_t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368604	368689	
==>\"src/ops/io.ops\"\n  {{\@1}} = PIO_reads(interpreter, PIO_STDIN(interpreter), (size_t <==
4	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	5314	5454	
==>/]         ? '[main]doc' :
        m[^editor/]       ? '[devel]' :
        m[^examples/]     ? '[main]doc' :
        m[^include/]      ? '[ma <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2522	2632	
==>/lib  -licuuc -licudata -lpthread -lm';
        $extraLibs =~ s/blib/..\\blib/g;
        $extraLibs =~ s/\Q$(A) <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2831	2941	
==>/lib  -licuuc -licudata -lpthread -lm';
        $extraLibs =~ s/blib/..\\blib/g;
        $extraLibs =~ s/\Q$(A) <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2626	2736	
==>/lib  -licuuc -licudata -lpthread -lm';
        $extraLibs =~ s/blib/..\\blib/g;
        $extraLibs =~ s/\Q$(A) <==
4	/Users/nnunley/parrot/tools/build/pbc2c.pl	4186	4289	
==>s, [shift @pc_list ];

    # change instructions at block leaders to enternative calls
    substr($byte_ <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10688	10828	
==>my $result = new_tmp( $parser, 'pmc' );
                    push @opcodes,
                        new LocalDir( $parser, 'result' => $resu <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18169	18277	
==>my $result = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $resu <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	23224	23332	
==>my $result = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $resu <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1283	1380	
==>t value (well, as large as a paragraph or a verbatim block)
as calling $token->text would do.

Or, <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	24781	24913	
==>);
    }

    return $fh;
}


sub _is_fh {
    my $maybe_fh = shift;

    return 1 if ref \$maybe_fh eq 'GLOB'; # its a glob

    ret <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2923	3027	
==>t->{FILE}; }
sub line { return shift->{LINE}; }

sub is_global
{
  my $self = shift;

  return defined($s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557861	557952	
==>object = {{\@1}};\n  meth = {{\@2}};\n  interpreter->current_cont = CONTEXT(interpreter->ctx <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559245	559336	
==>object = {{\@1}};\n  meth = {{\@2}};\n  interpreter->current_cont = CONTEXT(interpreter->ctx <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	9774	10021	
==>ub startset { undef }

########################################################################
# Rendering - only used for debugging for now
########################################################################

package Regex::Ops::Tree; # Won' <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1430	1528	
==>u're unlikely to ever need to construct an object of this class for
yourself, but if you want to, c <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2582	2680	
==>u're unlikely to ever need to construct an object of this class for
yourself, but if you want to, c <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1719	1817	
==>u're unlikely to ever need to construct an object of this class for
yourself, but if you want to, c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579263	579356	
==>rc/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580568	580661	
==>rc/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581873	581966	
==>rc/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583179	583272	
==>rc/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  PMC *name;\n <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1082	1188	
==>sources for the program:
    # default -> probe -> environment -> option -> ask
    $prog ||= $conf->option <==
4	/Users/nnunley/parrot/config/inter/make.pm	903	1009	
==>sources for the program:
    # default -> probe -> environment -> option -> ask
    $prog ||= $conf->option <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1079	1185	
==>sources for the program:
    # default -> probe -> environment -> option -> ask
    $prog ||= $conf->option <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	36762	36852	
==>t::Simple, Test::More, Test::Harness

=head1 AUTHORS

Original code by chromatic, maintaine <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353711	353901	
==>tps(interpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354456	354646	
==>tps(interpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355223	355413	
==>tps(interpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	530	621	
==>ot!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Value is not!" if d <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2051	2169	
==>t

sub create_path
{
    my $self = shift;
    
    return unless $self->SUPER::create_path;
    
    unless ( -e $self <==
4	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	5427	5523	
==>d print out the message

    Digest is 6df23dc03f9b54cc38a0fc1483df6e21

provided that the implem <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26027	26113	
==>r}, $ps->{var}, FORLOOP_STEP_$ps->{num}
	goto FOR_$ps->{num}
AFTER_NEXT_$ps->{num}: noo <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26212	26298	
==>r}, $ps->{var}, FORLOOP_STEP_$ps->{num}
	goto FOR_$ps->{num}
AFTER_NEXT_$ps->{num}: noo <==
4	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	2605	2719	
==>turn @results;
}

sub header {
    my ($cmd, @args) = @_;
    
    my $code = <<"END_PIR";
.HLL '_Tcl', ''
.namespa <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27389	27491	
==>>{name} . '})
						if defined $::RD_TRACE;').'
		$lastsep = "";
		$Parse::RecDescent::lastexpected = q <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29499	29601	
==>>{name} . '})
						if defined $::RD_TRACE;').'
		$lastsep = "";
		$Parse::RecDescent::lastexpected = q <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31596	31698	
==>>{name} . '})
						if defined $::RD_TRACE;').'
		$lastsep = "";
		$Parse::RecDescent::lastexpected = q <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344509	344626	
==>{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345751	345868	
==>{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346993	347110	
==>{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348236	348353	
==>{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=4}};\n",
                  "LABELS" => [ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468056	468430	
==>e",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 537,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" = <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8637	8733	
==>f_tests_badpass) {
        $*ERR.say("# Looks like $Test::num_of_tests_badpass tests of $Test::nu <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	36371	36465	
==>hout the specification of C<"> as an embedded quoter:

	@result = extract_bracketed( $text, '<> <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	41	133	
==>'Exporter';
BEGIN {
    @Regex::EXPORT_OK = qw(expr_to_tree tree_to_list list_to_pasm compile <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24858	24969	
==>emp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_generate($node->{children}[$_]);
      $ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25869	25980	
==>emp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_generate($node->{children}[$_]);
      $ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26757	26868	
==>emp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_generate($node->{children}[$_]);
      $ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27767	27878	
==>emp;
    }
    for(2..$#{$node->{children}}) {
      my $temp = $self->_generate($node->{children}[$_]);
      $ <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	22651	22775	
==>r1->[0],
        'arg2'   => $expr2->[0],
        'result' => $flag,
    );
    my $result = new_tmp( $parser, 'pmc', 'bo <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557961	558048	
==>nt_cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAILCALL;\n  interpret <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559345	559432	
==>nt_cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAILCALL;\n  interpret <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560717	560804	
==>nt_cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAILCALL;\n  interpret <==
4	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	1649	1772	
==>nerate output test file if we can find tests...
        my $output;
        eval {
            $output = format_tests(%tests <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2149	2272	
==>partial_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2441	2564	
==>partial_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2236	2359	
==>partial_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355104	355200	
==>io.ops\"\n  PMC * const p = {{\@1}};\n  STRING * const s = (VTABLE_get_string(interpreter, p));\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355871	355967	
==>io.ops\"\n  PMC * const p = {{\@1}};\n  STRING * const s = (VTABLE_get_string(interpreter, p));\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360804	360900	
==>io.ops\"\n  PMC * const p = {{\@1}};\n  STRING * const s = (VTABLE_get_string(interpreter, p));\n <==
4	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	341	432	
==>pl 19607 2006-05-30T15:23:20.183054Z coke  $' =~ /^\$[iI][dD]:\s(.*)\$$/;
my $fileid = '$'.' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591406	591501	
==>ass = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592616	592711	
==>ass = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593826	593921	
==>ass = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595037	595132	
==>ass = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NU <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597407	597564	
==>" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAGS" => ":object_classes",
                  "ARGDI <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598453	598610	
==>" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAGS" => ":object_classes",
                  "ARGDI <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599500	599657	
==>" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAGS" => ":object_classes",
                  "ARGDI <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600575	600732	
==>" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLAGS" => ":object_classes",
                  "ARGDI <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276178	276268	
==>src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+=4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277056	277146	
==>src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+=4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277934	278024	
==>src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+=4 <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	3644	3728	
==>lc_type = $right_type if UNIVERSAL::isa($right_type, 'Jako::Construct::Type::Number') <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	7067	7164	
==>c_stem;
    if (needs_build("$dest_stem$O", "$src_stem.c")) {
        run(compile_cmd("$dest_stem$ <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5361	5458	
==>c_stem;
    if (needs_build("$dest_stem$O", "$src_stem.c")) {
        run(compile_cmd("$dest_stem$ <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	7278	7375	
==>c_stem;
    if (needs_build("$dest_stem$O", "$src_stem.c")) {
        run(compile_cmd("$dest_stem$ <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	1317	1415	
==>j=2
i=5
a$="Hello"
c$="WRONG"
call mysub()


' Expect 10
sub second(b() )
	b(5)=10
end sub
sub firs <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	701	791	
==>IVERSAL::isa($type, qw(Jako::Construct::Type));
  confess "Identifier (" . ref($ident) . ") <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	726	815	
==>IVERSAL::isa($type, qw(Jako::Construct::Type));
  confess "Identifier (". ref($ident) . ") <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	690	779	
==>IVERSAL::isa($type, qw(Jako::Construct::Type));
  confess "Identifier (". ref($ident) . ") <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718126	718400	
==>e(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719058	719332	
==>e(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720257	720531	
==>e(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721457	721731	
==>e(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840207	840405	
==>terpreter->ctx)->user_stack, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840902	841100	
==>terpreter->ctx)->user_stack, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	1421	1528	
==>}

sub token
{
  return shift->{TOKEN};
}

sub code
{
  return shift->{CODE};
}

sub name
{
  return shift-> <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	10030	10115	
==>piler.pmc exception.pmc version.pmc vtablecache.pmc parrotio.pmc parrotlibrary.pmc par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080401	1080500	
==>al.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081466	1081565	
==>al.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082531	1082630	
==>al.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083597	1083696	
==>al.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    internal_exception(1, \ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11020	11114	
==>&CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NUL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11809	11903	
==>&CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NUL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13046	13140	
==>&CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NUL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13890	13984	
==>&CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NUL <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32800	32916	
==>$rule->{'typeinfo'}, $mv, 
			    "typeinfo for rule $rule->{'name'}");
		    $pir .= "\n" if $pir !~ /\n$/;
		    $p <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26804	26908	
==>$rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir .= "\n" if $pir !~ /\n$/;
		$p <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28520	28624	
==>$rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir .= "\n" if $pir !~ /\n$/;
		$p <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36502	36606	
==>$rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule->{'name'}");
		$pir .= "\n" if $pir !~ /\n$/;
		$p <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332312	332414	
==>"BODY" => "#line 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333590	333692	
==>"BODY" => "#line 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334868	334970	
==>"BODY" => "#line 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336147	336249	
==>"BODY" => "#line 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	933515	933688	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934289	934462	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	935064	935237	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
4	/Users/nnunley/parrot/tools/dev/parrotbench.pl	4317	4410	
==>val($_, 'type') ] for @section;
my $ticks = POSIX::sysconf( &POSIX::_SC_CLK_TCK );
my %Get_Tim <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22073	22180	
==>, $self->require_value);
        $op    = $self->require_infix_rel->text;
        $right = Jako::Construct:: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23006	23113	
==>, $self->require_value);
        $op    = $self->require_infix_rel->text;
        $right = Jako::Construct:: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24652	24759	
==>, $self->require_value);
        $op    = $self->require_infix_rel->text;
        $right = Jako::Construct:: <==
4	/Users/nnunley/parrot/config/gen/parrot_include.pm	622	717	
==>lude/parrot/exceptions.h
    include/parrot/interpreter.h
    include/parrot/io.h
    include/pa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94696	94965	
==>line",
                  "CODE" => 117,
                  "ARGS" => [
                              "s",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 63 \"src/ops/bit.ops\"\n  {{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547609	547872	
==>"NAME" => "fact",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548515	548778	
==>"NAME" => "fact",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	4906	5006	
==>s) returns Bool is export {
    Test::proclaim(1, "", "skip $reason", :$depends);
}

multi sub skip ( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672284	672576	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673056	673348	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673826	674118	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	674597	674889	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611918	612116	
==>",
                              "ic",
                              "p"
                            ],
                  "BODY" => "#line 491 \"src/ops/object.ops\"\n    VTABLE_set_attr(interpreter, <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1867	1955	
==>struct::Expression::Value::Identifier')) {
    my $left_sym = $block->find_symbol($left-> <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1825	1913	
==>struct::Expression::Value::Identifier')) {
    my $left_sym = $block->find_symbol($left-> <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1747	1835	
==>struct::Expression::Value::Identifier')) {
    my $left_sym = $block->find_symbol($left-> <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769228	769522	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770080	770374	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770933	771227	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771786	772080	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	604734	605093	
==>RS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 685,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 430 \" <==
4	/Users/nnunley/parrot/config/auto/inline.pm	1025	1225	
==>) {
                $test = cc_run();
                chomp $test if $test;
            }
            cc_clean();
        }
        if ($test) {
            print " ($test) " if $verbose;
            $ <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	1177	1281	
==>S_URL} = '' unless $self->{RESOURCES_URL};
    $self->{NAV_BAR} = '' unless $self->{NAV_BAR};
    
    my <==
4	/Users/nnunley/parrot/lib/Test/More.pm	10026	10130	
==>().  This allows you to
compare two arguments using any binary perl operator.

    # ok( $this eq $that ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770047	770302	
==>_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770900	771155	
==>_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771753	772008	
==>_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772607	772862	
==>_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659289	659724	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exists",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660210	660645	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exists",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661132	661567	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exists",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662047	662482	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exists",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256428	256690	
==>\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257336	257598	
==>\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258244	258506	
==>\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788672	788905	
==>" => [
                              "n",
                              "p",
                              "kic"
                            ],
                  "BODY" => "#line 422 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762391	762701	
==>2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ": <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763243	763553	
==>2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ": <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764096	764406	
==>2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ": <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764949	765259	
==>2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ": <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2283	2377	
==>($type, $value, $op)>

Returns the C code for the specified op argument type (see
C<Parrot::OpT <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3174	3268	
==>($type, $value, $op)>

Returns the C code for the specified op argument type (see
C<Parrot::OpT <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1007	1094	
==>de[i])
#define SREG(i) REG_STR(cur_opcode[i])
#define CONST(i) CONTEXT(interpreter->ctx) <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1123	1210	
==>de[i])
#define SREG(i) REG_STR(cur_opcode[i])
#define CONST(i) CONTEXT(interpreter->ctx) <==
4	/Users/nnunley/parrot/config/gen/cpu/i386/auto.pm	982	1147	
==>(
                    "i386_has_$suffix" => '1',
                    "HAS_i386_$suffix" => '1',
                );
                print " (\U$suffix) " if ($verbose) <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	33318	33450	
==>t <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = te <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	34067	34199	
==>t <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = te <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	34991	35123	
==>t <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = te <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29232	29374	
==>5,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85, <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41338	41480	
==>5,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85, <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	42528	42670	
==>5,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85, <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44484	44626	
==>5,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356284	356515	
==>" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 41 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356943	357174	
==>" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 41 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357603	357834	
==>" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 41 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358266	358497	
==>" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 41 <==
4	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1562	1791	
==>:                         # DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
print "Elapsed time:  $N2\n"; # print  " <==
4	/Users/nnunley/parrot/examples/mops/mops.pl	1562	1791	
==>:                         # DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
print "Elapsed time:  $N2\n"; # print  " <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	72239	72354	
==>ame}(s)\".");
			next;
		}
	}
}
	
# GENERATE ACTUAL PARSER CODE

sub _code($)
{
	my $self = shift;
	my $code = qq{
p <==
4	/Users/nnunley/parrot/lib/Test/More.pm	32128	32228	
==>ter written:

    is_deeply( [sort @this], [sort @that] );

B<NOTE> By historical accident, this is n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926067	926197	
==>itch ({{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927537	927667	
==>itch ({{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929007	929137	
==>itch ({{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930478	930608	
==>itch ({{\@3}}) {\n    case STRINGINFO_HEADER:   {{\@1}} = PTR2UINTVAL({{\@2}});\n                              break;\n    case STR <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	9714	9832	
==>ngs {
    my ( $text ) = @_;

    $text =~ s/\cM\cJ/\n/g;
}

sub path_to_parrot {

    my $path = $INC{'Parrot/Config.p <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2835	2943	
==>t . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARR <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3144	3252	
==>t . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARR <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2939	3047	
==>t . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARR <==
4	/Users/nnunley/parrot/tools/build/ops2c.pl	10130	10274	
==>me;
        my $func_name  = $op->func_name($trans);
        my $body       = $op->body;
        my $jump       = $op->jump || 0;
        my $arg <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22043	22138	
==>:Expression::Value->new($block, $self->require_value);
        $op    = $self->require_infix_rel <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22976	23071	
==>:Expression::Value->new($block, $self->require_value);
        $op    = $self->require_infix_rel <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24622	24717	
==>:Expression::Value->new($block, $self->require_value);
        $op    = $self->require_infix_rel <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718134	718414	
==>reter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "prin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719066	719346	
==>reter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "prin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720265	720545	
==>reter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "prin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721465	721745	
==>reter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "prin <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579464	579558	
==>"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pm <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580769	580863	
==>"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pm <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582074	582168	
==>"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pm <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583380	583474	
==>"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  name = pm <==
4	/Users/nnunley/parrot/lib/File/Which.pm	1507	1647	
==>st hope it's fixed
            if (lc($alias) eq lc($exec)) {
                chomp(my $file = `Alias $alias`);
                last unless $ <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5653	5775	
==>b();
			goto PARSE;
		}
		if ($syms[NEXT] eq "if") {
			$_=pop @ifstack;
			if ($_ < 0 ) {
				# print "Else was done, skip <==
4	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	558	655	
==>ect order.

=head2 package

Declares the package that all subsequent sub PMCs will be put
into. Th <==
4	/Users/nnunley/parrot/tools/build/ops2pm.pl	6568	6664	
==>efine PARROT_OPS_H_GUARD

typedef enum {
END_C

for(@{$real_ops->{OPS}}) {
    my $opname = $_->f <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920399	920608	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sprintf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921291	921500	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sprintf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	922184	922393	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sprintf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o", <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	19483	19596	
==>ed in to search for the PMC dump files.

=cut

sub gen_c {
    my ($include, @files) = @_;
    my %pmcs = map { $_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377542	377631	
==>ine 432 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(interpreter, {{\@2}}, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378426	378515	
==>ine 432 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(interpreter, {{\@2}}, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379310	379399	
==>ine 432 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(interpreter, {{\@2}}, {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380195	380284	
==>ine 432 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(interpreter, {{\@2}}, {{\ <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8061	8199	
==>g, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) = @_;
    } el <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8843	8981	
==>g, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) = @_;
    } el <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7714	7852	
==>g, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) = @_;
    } el <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8503	8641	
==>g, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsif (@_ == 2) {
        ($reg, $fallback) = @_;
    } el <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404602	404700	
==>"BODY" => "#line 535 \"src/ops/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405514	405612	
==>"BODY" => "#line 535 \"src/ops/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406426	406524	
==>"BODY" => "#line 535 \"src/ops/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407339	407437	
==>"BODY" => "#line 535 \"src/ops/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (unsigned short <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586647	586740	
==>ps\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587833	587926	
==>ps\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589019	589112	
==>ps\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590206	590299	
==>ps\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867321	867658	
==>1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868287	868624	
==>1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869253	869590	
==>1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAG <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870220	870557	
==>1}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAG <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	10804	10901	
==>my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $token);
      my $op    = <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11370	11467	
==>my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $token);
      my $op    = <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11917	12014	
==>my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $token);
      my $op    = <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12460	12557	
==>my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $token);
      my $op    = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647103	647368	
==>AME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 72 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647863	648128	
==>AME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 72 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648624	648889	
==>AME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 72 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649386	649651	
==>AME" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 72 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367414	367740	
==>> ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 430,
                  "ARGS" => [
                              "s",
                              "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	316546	316796	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "conv_i2",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2275	2376	
==>_[0]->emit_par(-3) }
sub end_head3       { $_[0]->emit_par(-2) }
sub end_head4       { $_[0]->emit_par <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1843	1944	
==>_[0]->emit_par(-3) }
sub end_head3       { $_[0]->emit_par(-2) }
sub end_head4       { $_[0]->emit_par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612994	613169	
==>BLE_set_attr_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613901	614076	
==>BLE_set_attr_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	9835	9953	
==>'k',
  108, 'l',
  109, 'm',
  110, 'n',
  111, 'o',
  112, 'p',
  113, 'q',
  114, 'r',
  115, 's',
  116, 't',
  117, <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20323	20429	
==>e, $type, $marker ]);
			feedme();
			if ($type[CURR] eq "PUN" and $syms[CURR] eq "*") {
				print "WARNING <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344323	344426	
==>interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345565	345668	
==>interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346807	346910	
==>interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348050	348153	
==>interpreter, {{\@3}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, mode);\n  /* string_cstring_free <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858602	858694	
==>EG_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859606	859698	
==>EG_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860610	860702	
==>EG_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861615	861707	
==>EG_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062639	1062917	
==>: PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063508	1063786	
==>: PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064378	1064656	
==>: PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065251	1065529	
==>: PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_ <==
4	/Users/nnunley/parrot/examples/benchmarks/oofib.pl	156	274	
==>b fibA {
    my $self = shift;
    my $n = shift;
    return $n if ($n < 2);
    return $self->fib($n-1) + $self->fibB( <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2716	2810	
==>or dest!")  unless defined $dest_type;
  $self->INTERNAL_ERROR("No type for left!")  unless def <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2482	2576	
==>or dest!")  unless defined $dest_type;
  $self->INTERNAL_ERROR("No type for left!")  unless def <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2404	2498	
==>or dest!")  unless defined $dest_type;
  $self->INTERNAL_ERROR("No type for left!")  unless def <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13339	13463	
==>th();

      #
      # Remember the block we just closed, in case its the peer of a continuation
      # we are about to intr <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31795	31910	
==>expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcodes1, new AssignOp( $par <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	32446	32561	
==>expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcodes1, new AssignOp( $par <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33096	33211	
==>expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcodes1, new AssignOp( $par <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088955	1089262	
==>@3}}, 0);\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089903	1090210	
==>@3}}, 0);\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16123	16237	
==>rith
      and $self->get(4)->is_value
    ) {
      my $block = $self->current_block();
      my $ident = Jako::Co <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2310	2422	
==>im(undef, $desc, $todo, "eval was fatal: $!", :$depends);
    }
    else {
        #diag "'$desc' was non-fatal a <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459941	460232	
==>ero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460929	461220	
==>ero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461917	462208	
==>ero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	9804	9903	
==>e originally contributed by Graham Barr
  my($self, $titlename, %options) = (@_);
  
  my $max_token <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516234	516502	
==>AME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 59 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516972	517240	
==>AME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 59 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517711	517979	
==>AME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 59 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518449	518717	
==>AME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 59 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591623	591715	
==>\t\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, clas <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592833	592925	
==>\t\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, clas <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594043	594135	
==>\t\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, clas <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595254	595346	
==>\t\t\"Class '%Ss' doesn't exist\", name);\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, clas <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	7235	7353	
==>MDEST{$_->{label}} = 1;
        }
    }
    foreach (@output4) {
        delete $_->{label} if ($_->{label} && ! $AMDES <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	198	293	
==>ko/Symbol.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings 'all';" <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	710	804	
==>ct of this class.

This is a subclass of L<Pod::Simple::PullParserToken> and inherits all its m <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1136	1230	
==>ct of this class.

This is a subclass of L<Pod::Simple::PullParserToken> and inherits all its m <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	616	710	
==>ct of this class.

This is a subclass of L<Pod::Simple::PullParserToken> and inherits all its m <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554304	554590	
==>ethod_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555701	555987	
==>ethod_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556938	557224	
==>ethod_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "P <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	42923	43028	
==>(defined $row->[1]) {
      $label = $row->[1];
      $self->{code} .= $label . ' ' x ($max_len[1]-length( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726024	726247	
==>@1}} = string_copy(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726786	727009	
==>@1}} = string_copy(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742004	742227	
==>@1}} = string_copy(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	1616	1729	
==>buted.', 'LICENSES/Artistic', 'LICENSES/gpl.txt'),
        ),
        $self->new_group('Status', '',
            $ <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	17746	17866	
==>dump_is_newer($existing)) {
            if ($file =~ /default\.dump$/) {
                next; # don't overwite default.d <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops.pm	22	134	
==>se vars qw(%MARKERS);
sub mark {
    my $name = shift || '';
    my $number = ++$MARKERS{$name};
    $number = '' <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2654	2766	
==>se vars qw(%MARKERS);
sub mark {
    my $name = shift || '';
    my $number = ++$MARKERS{$name};
    $number = '' <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	46329	46425	
==>olumn prevline prevoffset prevcolumn))
	{
		$self->{_check}{$_} =
			($grammar =~ /\$$_/) || $sel <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	6330	6431	
==>first argument to this multi sub should be some variant of
# integer - but if you set it to Integer or <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2405	2501	
==>bclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reser <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1675	1771	
==>bclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reser <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2842	2938	
==>bclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reser <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1962	2058	
==>bclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reser <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16885	17011	
==>" won't make it thru in X-generated comments
        #  with text in them.
        
        # Yes, stipulate the list without a <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10325	10435	
==>" won't make it thru in X-generated comments
    #  with text in them.

    # Yes, stipulate the list without a <==
4	/Users/nnunley/parrot/tools/build/pbc2c.pl	584	678	
==>pTrans::Compiled;
use Parrot::OpLib::core;
use Parrot::Config;
use Parrot::Key;

my $trans = Pa <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	23	111	
==>06, The Perl Foundation.
# $Id: /parrot/lib/Parrot/IO/Directory.pm 20333 2006-06-21T18:44 <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	32540	32681	
==>$c}) {
	$c = $vtables{$c};
    }
    my $cc;
    if ($c =~ /^\d+$/) {	# MMD
	$cc = "-$c";
    }
    else {
	$cc = qq!"$c"!;
    }
    print << <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	32915	33056	
==>$c}) {
	$c = $vtables{$c};
    }
    my $cc;
    if ($c =~ /^\d+$/) {	# MMD
	$cc = "-$c";
    }
    else {
	$cc = qq!"$c"!;
    }
    print << <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	26616	26737	
==>' or $f eq '1';
      DEBUG > 2 and print "  Can't fall back on unknown code $f\n";
      $self->whine(
        $para->[1] <==
4	/Users/nnunley/parrot/config/init/hints/irix.pm	441	546	
==>= ' -woff 1185';
    }
    $conf->data->set(ccflags => $ccflags);

    my $libs = $conf->data->get('libs') <==
4	/Users/nnunley/parrot/tools/build/ops2c.pl	7895	7993	
==>CE $trans->run_core_after_addr_table($bs);
}

if ($suffix =~ /cgp/) {
    print SOURCE <<END_C;
#if <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8239	8332	
==>("1..$Test::num_of_tests_run");
    }
    elsif ($Test::num_of_tests_planned != $Test::num_of_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374046	374222	
==>} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374929	375105	
==>} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375812	375988	
==>} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376696	376872	
==>} = Parrot_stat_info_intval(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7498	7644	
==>ss '$access'.");
        }
      }

      next;
    }

    #
    # Subroutines:
    #
    #   sub [<type>] <ident> [:<prop>[=<value] ...] (<arg>, < <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	3505	3616	
==>st', 'pmc', $type );
        $parser->YYData->{symbtab_cst}->Insert( $type . $value, $defn );
        if ( $ty <==
4	/Users/nnunley/parrot/config/auto/gmp.pm	531	641	
==>y ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    my $cc        = $conf->data->get <==
4	/Users/nnunley/parrot/config/auto/readline.pm	543	653	
==>y ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    my $cc        = $conf->data->get <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412828	412999	
==>",
                              "i"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413955	414126	
==>",
                              "i"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415082	415253	
==>",
                              "i"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416210	416381	
==>",
                              "i"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380554	380886	
==>=> 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 44 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381565	381897	
==>=> 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 44 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382577	382909	
==>=> 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 44 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383589	383921	
==>=> 0,
                  "NAME" => "seek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 44 <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4606	4712	
==>es.

      $handler->start_element({ Name => 'literal', Attributes => { type => $type->name } });
      $ha <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722269	722365	
==>O Can this be localized? */\n  if (s && string_length(interpreter, s)) {\n    if (PIO_softspace(i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723298	723394	
==>O Can this be localized? */\n  if (s && string_length(interpreter, s)) {\n    if (PIO_softspace(i <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	14126	14216	
==>ters.

=item $Latin1Char_to_fallback{I<character>}

Just as above, but maps from characters <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	626132	626243	
==>/* set_args (); set_p_pc; get_results (1), x; invokecc_p */\n    pc = CUR_OPCODE + 2 + n_args + 3 + 3 + 2;    \n <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2332	2438	
==>r(-2) }
sub end_head4       { $_[0]->emit_par(-1) }
sub end_Para        { $_[0]->emit_par( 0) }
sub end_ite <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1900	2006	
==>r(-2) }
sub end_head4       { $_[0]->emit_par(-1) }
sub end_Para        { $_[0]->emit_par( 0) }
sub end_ite <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	15921	16024	
==>e was encountered. Typically this
			 indicates either a extra '>' in the grammar, or a
			 problem insi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544623	544907	
==>1}} = saved_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545959	546243	
==>1}} = saved_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547295	547579	
==>1}} = saved_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12906	13016	
==>rom the current directory to the file and return that
    # as the link.
    
    my $dist = Parrot::Distributi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610634	610912	
==>" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611536	611814	
==>" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612439	612717	
==>" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613345	613623	
==>" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344459	344556	
==>free(path); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, e <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345701	345798	
==>free(path); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, e <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346943	347040	
==>free(path); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, e <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348186	348283	
==>free(path); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, e <==
4	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6528	6732	
==>ma} and $_->{pragma} eq 'multi' ) {
                    print {$FH} " :slurpy";
                }
                $first = 0;
            }
            print {$FH} ") = ";
        }
        my @args <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506579	506726	
==>> "#line 636 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507434	507581	
==>> "#line 636 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	508289	508436	
==>> "#line 636 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496971	497238	
==>}} = floatval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497841	498108	
==>}} = floatval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498711	498978	
==>}} = floatval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
4	/Users/nnunley/parrot/config/init/hints/solaris.pm	1395	1550	
==>t program: $!";
        if (defined $gnuc{__GNUC__}) {
            $link = 'g++';
        } else {
            $link =~ s/\bcc\b/CC/;
        }
        $con <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	569	697	
==>ist($rule, $ctx, 'regex_done', 'regex_done',
                                   %options);

    my @asm = Regex::list_to_pasm($co <==
4	/Users/nnunley/parrot/config/inter/charset.pm	1708	1813	
==>et_list,
        TEMP_charset_o     => $TEMP_charset_o,
        TEMP_charset_build => $TEMP_charset_build, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8714	8808	
==>" => "#line 182 \"src/ops/core.ops\"\n    char * const label = string_to_cstring(interpreter, { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9830	9924	
==>" => "#line 182 \"src/ops/core.ops\"\n    char * const label = string_to_cstring(interpreter, { <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	4031	4144	
==>ExplodingSheep == 1,        'NumExplodingSheep() get' );

It will produce output like this:

    1..5
    ok 1 - n <==
4	/Users/nnunley/parrot/config/auto/headers.pm	443	547	
==>rgs = qw(miniparrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('mi <==
4	/Users/nnunley/parrot/config/gen/cpu.pm	506	610	
==>rgs = qw(miniparrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('mi <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	27122	27219	
==>enting an optimized pattern (a la Friedl)
# that matches a substring delimited by any of the speci <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30598	30707	
==>acefirst($text))
							if defined $::RD_TRACE;').'
		push @item, '.($::RD_NO_HITEM ? ''
			       : '$item{'. <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28522	28629	
==>acefirst($text))
					if defined $::RD_TRACE;').'
		push @item, '.($::RD_NO_HITEM ? ''
			       : '$item{'. <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32801	32907	
==>acefirst($text))
							if defined $::RD_TRACE;').'
		push @item, ' . ($::RD_NO_HITEM ? ''
				 : '$item{'. <==
4	/Users/nnunley/parrot/tools/build/c2str.pl	4671	4771	
==>_${line}_data)
    }},
    (PObj_constant_FLAG|PObj_external_FLAG)
    GC_DEBUG_VERSION
  },
  sizeof <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7786	7973	
==>-$$dotpos .. -1 ]
                        :   ();

            $semval = $code ? &$code( $self, @sempar )
                            : @sempar ? $sempar[0] : undef;

            spl <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7434	7615	
==>-$$dotpos .. -1 ]
                        :   ();

            $semval = $code ? &$code( $self, @sempar )
                            : @sempar ? $sempar[0] : undef;

            spl <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17456	17587	
==>UG > 1 and print "Ignoring ignorable =for\n";
        next;
      }

      for(my $i = 2; $i < @$para; ++$i) {
        if($para->[$i <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	37171	37285	
==>ethods>
      my $section_name;  # set to arrayref if found
      DEBUG > 3 and print "  Peering at L-content for a <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19500	19624	
==>'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 100,
			'functioncall' => 31,
			' <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21665	21789	
==>'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 100,
			'functioncall' => 31,
			' <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33180	33304	
==>'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 100,
			'functioncall' => 31,
			' <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	44833	44933	
==>e::Generator - The Scheme code generator

=head1 SYNOPSIS

  use Scheme:Generator;

  my @code = Sche <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549961	550062	
==>C *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551262	551363	
==>C *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553824	553925	
==>C *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555221	555322	
==>C *method_pmc, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\ <==
4	/Users/nnunley/parrot/tools/build/ops2c.pl	2238	2343	
==>> 'PARROT_ARGDIR_INOUT'
);

#
# Look at the command line options
#
sub Usage {
    pod2usage(-exitval => 1 <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1323	1426	
==>ser is responsible for the consequences.
    if (defined $prog) {
        $conf->data->set($util => $pro <==
4	/Users/nnunley/parrot/config/inter/make.pm	1144	1247	
==>ser is responsible for the consequences.
    if (defined $prog) {
        $conf->data->set($util => $pro <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1320	1423	
==>ser is responsible for the consequences.
    if (defined $prog) {
        $conf->data->set($util => $pro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129111	129432	
==>,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "AR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79407	79520	
==>ymbol's address. We just need to build\n         a PMC with it so we can get and set the value */\n      {{\@1}} = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80928	81041	
==>ymbol's address. We just need to build\n         a PMC with it so we can get and set the value */\n      {{\@1}} = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22099	22187	
==>ps/core.ops\"\n  if (!{{\@1}}->vtable->get_bool(interpreter, {{\@1}})) {\n    {{+={{\@2}} <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	245	345	
==>30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Declaration <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	251	351	
==>30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Declaration <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	241	341	
==>30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Declaration <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	251	351	
==>30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Declaration <==
4	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	838	943	
==>$blank_before = qr { : $}smx;    #labels

my $verbatim_begin = qr{ ^= }smx;
my $verbatim_end   = qr{ ^=cut <==
4	/Users/nnunley/parrot/editor/kate_syntax.pl	3624	3722	
==>END

print <<END;
          <RegExpr attribute="Register" context="#stay" String="[INSP](\\d|[12]\\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021636	1021734	
==>ys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_gmtime_r(&t, &tm);\n  {{\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022478	1022576	
==>ys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_gmtime_r(&t, &tm);\n  {{\ <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	51	150	
==><"END_OF_HEADER";

# DO NOT EDIT.
# This file generated automatically by '$0'

END_OF_HEADER

my %ma <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	1655	1740	
==>lude -fno-common -no-cpp-precomp  -pipe -Wdeclaration-after-statement -I/usr/local/inc <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1043	1128	
==>lude -fno-common -no-cpp-precomp  -pipe -Wdeclaration-after-statement -I/usr/local/inc <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1047	1132	
==>lude -fno-common -no-cpp-precomp  -pipe -Wdeclaration-after-statement -I/usr/local/inc <==
4	/Users/nnunley/parrot/tools/dev/nm.pl	7439	7579	
==>osf') {
		    if ($type eq 'E') {
			$small = 1;
		    } elsif ($type =~ /^[RrQq]$/) {
			$const = 1;
			$init  = 1;
		    }
		}
		if ($^O eq <==
4	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1278	1385	
==>);
        $self->{builder}->diag("'$cmd' failed with exit code $exit_code")
        if $exit_code and not $ <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1319	1426	
==>);
        $self->{builder}->diag("'$cmd' failed with exit code $exit_code")
        if $exit_code and not $ <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	1695	1794	
==>);
    $self->{builder}->diag("'$cmd' failed with exit code $exit_code")
    if $exit_code and not $ <==
4	/Users/nnunley/parrot/config/auto/socklen_t.pm	487	595	
==>b runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    my $d_socklen <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2273	2381	
==>o the
relevant C code.

=cut

sub goto_offset
{
    my ($self, $offset) = @_;
    return "{ cur_opcode += $of <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	14167	14273	
==>S1
    inc $I0
    goto loop
  loop_end:
    .return(result)
.end

.sub unicode:"monadic:\u2395\u2190" # qu <==
4	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	3784	3887	
==>e submitted smoke has an invalid format!";
    exit;
  }

  $smoke{runcore}   = runcore_from_args($smoke <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586693	586788	
==>preter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587879	587974	
==>preter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589065	589160	
==>preter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590252	590347	
==>preter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084781	1085103	
==>ter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085834	1086156	
==>ter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086887	1087209	
==>ter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087941	1088263	
==>ter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123851	123994	
==>bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124725	124868	
==>bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125599	125742	
==>bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	22568	22700	
==>ry file
            my $test_no = $builder->current_test() + 1;

            $expected =~ s/\cM\cJ/\n/g;
            my $source_f = p <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11535	11640	
==>ct::Expression::Value->new($block, $self->forth);

      $self->require_semicolon;

      my $arith = Jako <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16480	16585	
==>ct::Expression::Value->new($block, $self->forth);

      $self->require_semicolon;

      my $arith = Jako <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17251	17356	
==>ct::Expression::Value->new($block, $self->forth);

      $self->require_semicolon;

      my $arith = Jako <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18056	18161	
==>ct::Expression::Value->new($block, $self->forth);

      $self->require_semicolon;

      my $arith = Jako <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	72	163	
==>ter/yacc.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/yacc.pm - pa <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597355	597514	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598401	598560	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599448	599607	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600523	600682	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "getclass",
                  "FLA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854982	855097	
==>s/string.ops\"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855871	855986	
==>s/string.ops\"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856760	856875	
==>s/string.ops\"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857650	857765	
==>s/string.ops\"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858599	858691	
==>n(NEG_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpret <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859603	859695	
==>n(NEG_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpret <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860607	860699	
==>n(NEG_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpret <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861612	861704	
==>n(NEG_REPEAT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpret <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072587	1072699	
==>n (can be wrong because we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction ne <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074772	1074884	
==>n (can be wrong because we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction ne <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076957	1077069	
==>n (can be wrong because we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction ne <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079143	1079255	
==>n (can be wrong because we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction ne <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909055	909324	
==>"TYPE" => "inline",
                  "CODE" => 1024,
                  "ARGS" => [
                              "i",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 284 \"src/ops/st <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565465	565732	
==>inline",
                  "CODE" => 646,
                  "ARGS" => [
                              "i",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 194 \"src/ops/object.ops\" <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	72	180	
==>y ($proto, %options) = @_;
    my $self = bless \%options, (ref($proto) || $proto);
    $self->init();
    re <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	239	347	
==>y ($proto, %options) = @_;
    my $self = bless \%options, (ref($proto) || $proto);
    $self->init();
    re <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	580	688	
==>y ($proto, %options) = @_;
    my $self = bless \%options, (ref($proto) || $proto);
    $self->init();
    re <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	865085	865360	
==>{{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "p <==
4	/Users/nnunley/parrot/config/auto/msvc.pm	1734	1878	
==>on);

    # Add Visual C++ specifics here
    if ($msvcversion >= 14.00) {

        # Version 14 (aka Visual C++ 2005) warns about unsafe, deprec <==
4	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5912	6004	
==>@brentdax.com>.

=head1 AUTHOR

Joshua Hoblitt C<jhoblitt@cpan.org>

=head1 SEE ALSO

F<docs/ <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6761	6853	
==>@brentdax.com>.

=head1 AUTHOR

Joshua Hoblitt C<jhoblitt@cpan.org>

=head1 SEE ALSO

F<docs/ <==
4	/Users/nnunley/parrot/examples/benchmarks/oo1.pl	91	206	
==>print $o->[0], "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift;
    return bless [ 10, 2 <==
4	/Users/nnunley/parrot/examples/benchmarks/oo2.pl	91	206	
==>print $o->[0], "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift;
    return bless [ 10, 2 <==
4	/Users/nnunley/parrot/examples/benchmarks/oo3.pl	107	222	
==>print $o->[0], "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift;
    return bless [ 10, 2 <==
4	/Users/nnunley/parrot/examples/benchmarks/oo4.pl	101	216	
==>print $o->[0], "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift;
    return bless [ 10, 2 <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	886	985	
==>ken, and a C end-token.  And
if you want to get the "foo" out of the text-token, call C<< $token->te <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9793	9887	
==>nstruct::Expression::Value->new($block, $self->require_value);
      my $op    = $self->require <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25329	25423	
==>nstruct::Expression::Value->new($block, $self->require_value);
      my $op    = $self->require <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	1997	2091	
==>, 'perl6.html', '', 'languages/perl6'),
        $self->new_section('pheme', 'pheme.html', '', ' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641728	642047	
==>,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642615	642934	
==>,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643503	643822	
==>,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644395	644714	
==>,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858669	858880	
==>string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859673	859884	
==>string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860677	860888	
==>string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861682	861893	
==>string_repeat(interpreter, {{\@2}}, (UINTVAL){{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/Config.pm	1989	2078	
==>unused -Wsign-compare -Wformat-nonliteral -Wformat-security -Wpacked -Wdisabled-optimizati <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1309	1398	
==>unused -Wsign-compare -Wformat-nonliteral -Wformat-security -Wpacked -Wdisabled-optimizati <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1354	1443	
==>unused -Wsign-compare -Wformat-nonliteral -Wformat-security -Wpacked -Wdisabled-optimizati <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	1358	1447	
==>unused -Wsign-compare -Wformat-nonliteral -Wformat-security -Wpacked -Wdisabled-optimizati <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30733	30842	
==>item_type = $self->_get_item_type($para);
            # That kills the content of the item if it's a number or <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	31698	31807	
==>item_type = $self->_get_item_type($para);
            # That kills the content of the item if it's a number or <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34021	34130	
==>item_type = $self->_get_item_type($para);
            # That kills the content of the item if it's a number or <==
4	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2066	2149	
==>\n{\\pard\\li#rtfindent#\\s31\\keepn\\sb90\\sa180\\f2\\fs#head1_halfpoint_size#\\ul{ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1534	1648	
==>t  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  my $dest_sym = <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1492	1606	
==>t  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  my $dest_sym = <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1414	1528	
==>t  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  my $dest_sym = <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	25760	25871	
==>t = $ret_type);
	    $ret_string = "$t = ";
	}
	if ($builtins{$name}) {
	    print <<EOC;
	.local NCI the::inter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38224	38442	
==>eption(interpreter, {{\@1}});\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1250	1357	
==>.
  #
  # NOTE: These are compiler internal consistency checks. They really should not be
  # triggered in n <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1195	1302	
==>.
  #
  # NOTE: These are compiler internal consistency checks. They really should not be
  # triggered in n <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1098	1205	
==>.
  #
  # NOTE: These are compiler internal consistency checks. They really should not be
  # triggered in n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762567	762780	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763419	763632	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764272	764485	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765125	765338	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6185	6304	
==>l');     }
sub require_semicolon     { return shift->require('semicolon');     }
sub require_type          { return shif <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	11539	11645	
==>defined $expect;

        $self->ok($test, $name);
        $self->_is_diag($got, '==', $expect) unless $tes <==
4	/Users/nnunley/parrot/config/gen/cpu/i386/auto.pm	109	202	
==>2:28:15.110975Z coke  $

=head1 NAME

config/gen/cpu/i386/auto.pm

=head1 DESCRIPTION

Test fo <==
4	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	130	220	
==>_tables.pl -- generate charset tables

=head1 SYNOPSIS

	perl tools/dev/gen_charset_tables. <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	40348	40459	
==>CH (OP RIGHTARG)(s)
		  while ($repcount < ' . $self->{max} . ')
		  {
			$backtrack = 0;
			' . $op->code(@_[1. <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24208	24309	
==>{
  my ($self,$node) = @_;
  my $return;
  my $num_children = defined $node->{children} ? @{$node->{ch <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25096	25197	
==>{
  my ($self,$node) = @_;
  my $return;
  my $num_children = defined $node->{children} ? @{$node->{ch <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26107	26208	
==>{
  my ($self,$node) = @_;
  my $return;
  my $num_children = defined $node->{children} ? @{$node->{ch <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26996	27097	
==>{
  my ($self,$node) = @_;
  my $return;
  my $num_children = defined $node->{children} ? @{$node->{ch <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1727	1828	
==>mpt, $prog ? $prog : $conf->data->get($util));
    }

    my ($stdout, $stderr, $ret) = capture_output <==
4	/Users/nnunley/parrot/config/inter/make.pm	1601	1702	
==>mpt, $prog ? $prog : $conf->data->get($util));
    }

    my ($stdout, $stderr, $ret) = capture_output <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1741	1842	
==>mpt, $prog ? $prog : $conf->data->get($util));
    }

    my ($stdout, $stderr, $ret) = capture_output <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5148	5246	
==>ode for section after the address table.

=cut

sub run_core_after_addr_table
{
    my ($self, $bs) <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	865	959	
==>fess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($right, 'Jako::Construct <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	703	797	
==>fess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($right, 'Jako::Construct <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	856	950	
==>fess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($right, 'Jako::Construct <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	745	839	
==>fess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL::isa($right, 'Jako::Construct <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025027	1025251	
==>{\@1}} = sysinfo_s(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025784	1026008	
==>{\@1}} = sysinfo_s(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	14519	14728	
==>,
                );
                push @{ $expr->[1] }, new AssignOp( $parser,
                    'result' => $result,
                    'arg1'   => $nil->[0],
                );
                pus <==
4	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7298	7439	
==>ile = compreg "PGE::Glob"

            .local string target
            .local string pattern
            .local pmc rulesub
            .loca <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909311	909416	
==>4 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910208	910313	
==>4 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911105	911210	
==>4 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912003	912108	
==>4 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152358	152513	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_str",
                  "FLAGS" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	15982	16080	
==>xedargs[@fixedargs - 1]) && ($fixedargs[@fixedargs - 1] eq 'i'));
        or_flag(\$jumps, "PARROT_ <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	2335	2431	
==>->new_item($text, grep {defined} @contents);
}

=item C<new()>

Returns a new section.

=cut

sub <==
4	/Users/nnunley/parrot/tools/dev/parrot_api.pl	2810	2905	
==>cursion).

Often you can collect a group of data fields into a "context" (or
"descriptor", "hand <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7315	7411	
==>rtrim$(a$);"<"
' A's and -'s
print string$(10,75-10)
print string$(20, "-")

' ON..GOTO   200! an <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	765	858	
==>:PullParserToken> and inherits all its methods,
and adds these methods:

=over

=item $token-> <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1191	1284	
==>:PullParserToken> and inherits all its methods,
and adds these methods:

=over

=item $token-> <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	671	764	
==>:PullParserToken> and inherits all its methods,
and adds these methods:

=over

=item $token-> <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73251	73607	
==>=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74853	75209	
==>=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLA <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76455	76811	
==>=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLA <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	28364	28462	
==>ctual_ok' is a reflection of whether or not the test literally
printed 'ok' or 'not ok'.  This is f <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	43958	44088	
==>" to mean bold italic.
    # Example:
    #   What do you want?  i like pie. [or whatever]
    # #:^^^^^^^^^^^^^^^^^              / <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5526	5626	
==>', 'set', [$pair.'[1]',$return]);
      $self->_add_inst ('', 'set', [$return,$pair]);
      $self->_ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17074	17169	
==>', 'set',[$pair.'[1]',$return]);
    $self->_add_inst ('', 'set',[$return,$pair]);

    $self->_ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6560	6651	
==>', 'set', [$pair.'[1]',$return]);
  $self->_add_inst('', 'set', [$return,$pair]);
  $self->_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103357	1103718	
==>" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1222,
                  "ARGS" => [
                              "p",
                              "s", <==
4	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	6092	6284	
==>r . $_} ? '$' : '/'; # ignore file or dir
               s/\./\\./g;                  # . is simply a dot
               s/\*/.*/g;                   # * is any amount of chars
               " <==
4	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	350	446	
==>ot.pl - Rebuild a new miniparrot distribution

=head1 SYNOPSIS

    % perl tools/dev/rebuild_mini <==
4	/Users/nnunley/parrot/config/gen/makefiles.pm	179	273	
==>s

=head1 DESCRIPTION

Generates the various F<Makefile>s and other files needed to build Parro <==
4	/Users/nnunley/parrot/tools/dev/install_files.pl	3964	4078	
==>kip if this file belongs to no package

    next unless $package =~ /main|library/;	# XXX -lt

    my %meta;
    @m <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1756	1858	
==>, $self );

		exists($$self{VERSION})
	and	$$self{VERSION} < $COMPATIBLE
	and	croak "Yapp driver ve <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2311	2409	
==>entifier '%s' within same block. Previous declaration on line %d of file '%s'.",
      $self->name, <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1695	1793	
==>, $self );

		exists($$self{VERSION})
	and	$$self{VERSION} < $COMPATIBLE
	and	croak "Yapp driver ve <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24531	24655	
==>('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
  } else {
    $re <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26430	26554	
==>('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
  } else {
    $re <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	30282	30400	
==>tack;
    my $key = $x->[1];
    if ($v->[0] eq 'hash') {
	if ($key =~ /^\d+$/) {
	    $key = qq!"$key"!;
	}
	elsif ($v <==
4	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	58	156	
==>ommand to rebuild a set of files only if the inputs have
changed, as judged by their checksums.

=h <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	10691	10809	
==>ong)GET_NCI_I($reg_num);";
        return "t_$temp_num";
    };
    /I/ && do {
        push @{$temps_ref}, "INTVAL t_$ <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	3992	4145	
==>hort_desc} @short_desc;
            
            push @short_desc, $short_desc;
        }
        elsif ( $file->is_docs_link )
        {
            prin <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1756	1862	
==>ata->get($util));
    }

    my ($stdout, $stderr, $ret) = capture_output($prog, '--version');

    # don't <==
4	/Users/nnunley/parrot/config/inter/make.pm	1630	1736	
==>ata->get($util));
    }

    my ($stdout, $stderr, $ret) = capture_output($prog, '--version');

    # don't <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1770	1876	
==>ata->get($util));
    }

    my ($stdout, $stderr, $ret) = capture_output($prog, '--version');

    # don't <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516153	516457	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516891	517195	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517630	517934	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518368	518672	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	3954	4080	
==>= $labels{$dest->{label}}; # tagged_op
                if (! $dest_stmt) {
                    if ($ctx->{external_labels}{$des <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	701	807	
==>Pod::Simple::Debug (NUMVAL)\nor"
                    . "\n use Pod::Simple::Debug (\\\$var, STARTNUMVAL)\nA <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1178	1284	
==>Pod::Simple::Debug (NUMVAL)\nor"
                    . "\n use Pod::Simple::Debug (\\\$var, STARTNUMVAL)\nA <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	522	624	
==>Pod::Simple::Debug (NUMVAL)\nor"
                . "\n use Pod::Simple::Debug (\\\$var, STARTNUMVAL)\nA <==
4	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	3833	3935	
==>it;
  }

  $smoke{runcore}   = runcore_from_args($smoke{harness_args});
  $smoke{revision}  ||= 0;
  $s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467733	468010	
==>{{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468604	468881	
==>{{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469478	469755	
==>{{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470353	470630	
==>{{\@1}} /= den;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7961	8078	
==>>read;
	
	while ( @lines )
	{
		my $line = shift @lines;
		
		if ( $line =~ /^=head1\s+ABSTRACT/o )
		{
			while ( @li <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	44408	44521	
==>f->_constant($node->{value});
    }
  }

  return $return;
}

sub generate {
  my $tree = shift;

  my $self = Sch <==
4	/Users/nnunley/parrot/tools/util/pirtidy.pl	168	272	
==>arrot::PIR::Formatter;

my $extension = 'tdy';
my $verbose   = 'that is SO true.';

# loop over all the f <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	35353	35449	
==>Del_Slice(@_, 1);
}
sub DELETE_SLICE_plus_2 {
    return Del_Slice(@_, 2);
}
sub DELETE_SLICE_plu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584464	584562	
==>p(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_except <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585539	585637	
==>p(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_except <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597980	598078	
==>p(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_except <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599027	599125	
==>p(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    real_except <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586686	586782	
==>p(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exce <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587872	587968	
==>p(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exce <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589058	589154	
==>p(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exce <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590245	590341	
==>p(interpreter, {{\@2}});\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exce <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847736	848020	
==>{
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848515	848799	
==>{
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => " <==
4	/Users/nnunley/parrot/config/auto/headers.pm	2331	2459	
==>t_c.in');

            $conf->data->set(testheaders => undef);
            $conf->data->set(testheader  => undef);

            e <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	6687	6776	
==>ed--disables searching of installed libraries.
# (see Parrot_get_runtime_prefix in src/lib <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	412	513	
==>2 Class Methods

=over

=cut

package Parrot::Docs::Group;

use strict;
use warnings;

use base qw( Pa <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2270	2358	
==>ck->find_symbol($right->value);
    $self->SYNTAX_ERROR("Expression involves unknown vari <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2228	2316	
==>ck->find_symbol($right->value);
    $self->SYNTAX_ERROR("Expression involves unknown vari <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2150	2238	
==>ck->find_symbol($right->value);
    $self->SYNTAX_ERROR("Expression involves unknown vari <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10779	10883	
==>t::Block

  confess "No block!"        unless defined $self and ref $self and $self->isa("Jako::Construct <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4455	4553	
==>t::Block

  confess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Construct <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4962	5060	
==>t::Block

  confess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Construct <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10365	10462	
==>t::Block

  confess "No block!" unless defined $self and ref $self and $self->isa("Jako::Construct <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813392	813722	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814017	814347	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814639	814969	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	815267	815597	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "i <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	4789	4915	
==>_lines(
        splice @{ $self->{'source_arrayref'} },
        0,
        Pod::Simple::MANY_LINES
      );
      unless( @{ $s <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	401	509	
==>ent);

sub new
{
  my $class = shift;
  my ($block, $left, $right) = @_;

  confess("Block (" . ref($block) . <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	392	500	
==>ent);

sub new
{
  my $class = shift;
  my ($block, $left, $right) = @_;

  confess("Block (" . ref($block) . <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	42532	42637	
==>verbatim_format appends a newline to $i: $p->[$i]\n";
    $p->[$i] .= "\n";
     # Unlike with simple Verb <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130774	131091	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131628	131945	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132483	132800	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813570	813880	
==>" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 918,
                  "ARGS" => [
                              "s"
                            ],
                  "BOD <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	8998	9149	
==>\n";
    }
}


# Generate the translator initialization code.
# ############################################
sub generate_initial_pir($$$) {
    my $srm <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	11521	11640	
==>return "t_$temp_num";
    };
    /2/ && do {
        push @{$temps_ref}, "PMC* t_$temp_num;";
        push @{$extra_prea <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27248	27344	
==>$pre_translate_code, $mv, "pre-translate for $rule->{'name'}");

		# If we have PIR for the instr <==
4	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34387	34483	
==>$pre_translate_code, $mv, "pre-translate for $rule->{'name'}");

		# If we have PIR for the instr <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	32976	33080	
==>te,

#----------------------
#
# Section 6 Expressions
#
#----------------------

###
### Logical express <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948133	948403	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948932	949202	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949732	950002	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset", <==
4	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11708	11826	
==>s.
    do_filter(sub { /^call/ } );

    print OUT "</pre>";
    print OUT page_footer();

    close(OUT);
    close(IN <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	6518	6639	
==>1;
    for my $source (@sources) {
        return 1 if modtime($source) > $target_mod;
    }

    return 0;
}

sub generat <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4938	5059	
==>1;
    for my $source (@sources) {
        return 1 if modtime($source) > $target_mod;
    }

    return 0;
}

sub generat <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	6729	6850	
==>1;
    for my $source (@sources) {
        return 1 if modtime($source) > $target_mod;
    }

    return 0;
}

sub generat <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	4276	4375	
==>= @_;

  die "$name: Unknown builtin\n" unless exists $built_ins{$name};

  my $self = Scheme::Built <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849268	849550	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850154	850436	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851041	851323	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851928	852210	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2544	2659	
==>y $self = shift;
    my $source = shift || die "No source\n";
    my $target = shift || die "No target\n";
    my $s <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	2940	3055	
==>y $self = shift;
    my $source = shift || die "No source\n";
    my $target = shift || die "No target\n";
    my $s <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	2388	2503	
==>y $self = shift;
    my $source = shift || die "No source\n";
    my $target = shift || die "No target\n";
    my $s <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1257	1355	
==>le with the specified path. 

The file is an instance of the class returned by C<file_class>.

=cut <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095216	1095436	
==>eter, {{\@1}});\n  {{+=2}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095911	1096131	
==>eter, {{\@1}});\n  {{+=2}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
4	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1525	1632	
==>} else {
    *Pod::Simple::DEBUG = eval " sub () { $value } ";
    print "# Starting Pod::Simple::DEBUG = $v <==
4	/Users/nnunley/parrot/languages/converter.pl	1677	1778	
==>uction# mod(?)
#		{[@item]}
		{ my $lhs = ::strip_quotes($item[1]);
		  my $rhs = ::strip_quotes($item <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	14311	14440	
==>-r / ) {
                # native tests with --run-pbc don't make sense
                return $builder->skip( "no native tests wi <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	5850	5957	
==>preceding
    # newlines, so *this* line is (number of newlines plus one).
    # But that's the number for * <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2515	2613	
==>} });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $self->o <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2392	2490	
==>} });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $self->o <==
4	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	14560	14681	
==>\s+POP\(\)/{{^*}}/mg;

                      $body =~ s/\bHALT\(\)/{{=0}}/mg;

        $branch ||= $short_name =~ /runinte <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39003	39124	
==>T_doomed)\n    _exit({{\@2}});\n  do_exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39868	39989	
==>T_doomed)\n    _exit({{\@2}});\n  do_exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40715	40836	
==>T_doomed)\n    _exit({{\@2}});\n  do_exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41563	41684	
==>T_doomed)\n    _exit({{\@2}});\n  do_exception(interpreter, {{\@1}}, {{\@2}});\n  {{=0,+=3}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647546	647725	
==>/ops/pmc.ops\"\n    {{\@1}} = pmc_type(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648307	648486	
==>/ops/pmc.ops\"\n    {{\@1}} = pmc_type(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	7387	7478	
==>s_build("$group$LOAD_EXT", @sources)) {
        run(partial_link_cmd("$group$LOAD_EXT", $lib <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	7598	7689	
==>s_build("$group$LOAD_EXT", @sources)) {
        run(partial_link_cmd("$group$LOAD_EXT", $lib <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494369	494635	
==>} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495237	495503	
==>} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496105	496371	
==>} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	1171	1278	
==>oreach my $file (keys %pmcs) {
        $pmcs{$file}->{vtable} = $vtable_dump;
        $pmcs{$file} = Parrot: <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	6632	6738	
==>t") });

sub convert_to_rpn {
	my(@expr)=@_;

	#print STDERR "In RPN Convert...\n";
	# Convert to RPN
	my ( <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	35905	36002	
==>nd exit with 255.  If the test died, even after
having successfully completed all its tests, it wi <==
4	/Users/nnunley/parrot/lib/Test/More.pm	33976	34073	
==>nd exit with 255.  If the test died, even after
having successfully completed all its tests, it wi <==
4	/Users/nnunley/parrot/lib/Test/Simple.pm	2771	2868	
==>nd exit with 255.  If the test died, even after
having successfully completed all its tests, it wi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579322	579429	
==>erpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_except <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580627	580734	
==>erpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_except <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581932	582039	
==>erpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_except <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583238	583345	
==>erpreter, {{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_except <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19251	19514	
==>UMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20027	20290	
==>UMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20805	21068	
==>UMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21605	21868	
==>UMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492222	492466	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492982	493226	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498955	499199	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499717	499961	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 " <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17099	17250	
==>[1] };
                $result = new_tmp( $parser, 'pmc' );
                push @opcodes, new LocalDir( $parser,
                    'result' => $re <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15501	15616	
==>[1] };
    $result = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $re <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19254	19369	
==>[1] };
    $result = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $re <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	5306	5415	
==>tives' => { %Known_directives },
    'accept_targets'    => {},
  }, $class;
}



# TODO: an option for whethe <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6966	7125	
==>$token ne ''	#Don't eat the eof
				and	$$token=$$value=undef;
                next;
            };

            #reduce
            my($lhs,$len,$code,@s <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6641	6794	
==>$token ne ''	#Don't eat the eof
				and	$$token=$$value=undef;
                next;
            };

            #reduce
            my($lhs,$len,$code,@s <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35242	35357	
==>{]},
					  
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{"name"} .'})
						if defined $::RD_ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42374	42481	
==>{]},
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{"name"} .'})
						if defined $::RD_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770013	770243	
==>bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770866	771096	
==>bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771719	771949	
==>bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772573	772803	
==>bound register access\");\n    REG_INT({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	26131	26253	
==>rn;
    }
    
    unless($elements_one =~ m/^[^ ,]+(,[^ ,]+)*$/s) { # like "B", "M,I", etc.
      $self->whine(
        $p <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528605	528692	
==>ine 838 \"src/ops/math.ops\"\n  {{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529487	529574	
==>ine 838 \"src/ops/math.ops\"\n  {{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	530369	530456	
==>ine 838 \"src/ops/math.ops\"\n  {{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	10796	10891	
==>ve
a proper `use()` builtin.

- `ok (Bool $cond, Str $desc?, Bool :$todo, Str :$depends) returns <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	2779	2882	
==>MC file is

=over 4

=item 1.

A preamble, consisting of code to be copied directly to the .c file

=ite <==
4	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeSmart.pm	309	403	
==>ding_is_available {
  return Encode::resolve_alias($_[1]);
}

sub encmodver {
  return "Encode. <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357952	358040	
==>BODY" => "#line 245 \"src/ops/io.ops\"\n  PIO_eprintf(interpreter, \"%f\", (double){{\@1} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358616	358704	
==>BODY" => "#line 245 \"src/ops/io.ops\"\n  PIO_eprintf(interpreter, \"%f\", (double){{\@1} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13160	13381	
==>2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14004	14225	
==>2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14708	14929	
==>2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	15395	15616	
==>2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084724	1084818	
==>/experimental.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085777	1085871	
==>/experimental.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086830	1086924	
==>/experimental.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087884	1087978	
==>/experimental.ops\"\n    {{\@1}}->vtable->splice(interpreter, {{\@1}}, {{\@2}}, {{\@3}}, {{\@4} <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1445	1569	
==>ess
{
    my ($self, $addr) = @_;

    #print STDERR "pbcc: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
        retur <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1970	2094	
==>ess
{
    my ($self, $addr) = @_;

    #print STDERR "pbcc: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
        retur <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1861	1984	
==>ess
{
    my ($self, $addr) = @_;

    #print STDERR "pbcc: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
  	    retur <==
4	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10089	10199	
==>r_file_with_relative_path(shift);
    
    return unless $path;
    
    return -f $path;
}

=item C<directory_ <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	524	660	
==>if($ch eq '-' and
            ($token =~ /^[a-z]/ or               # Dashes can be in an ident
             $token =~ /^[-]\d+(\.\d+)?[eE <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	31919	32038	
==>my @ops;
    foreach $group (0 .. $num_groups) {
        push @ops, aop('initgroup' => [ $group ]);
    }

    push @ops <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2136	2233	
==>',
	'scheme' => 'Scheme code',
	'sh' => 'Shell script',
	'spec' => 'RPM build specification',
	't' <==
4	/Users/nnunley/parrot/tools/build/vtable_h.pl	663	753	
==>utomatically from 'vtable.tbl' by vtable_h.pl
*/

#if !defined(PARROT_VTABLE_H_GUARD)
#defi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067226	1067544	
==>\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068412	1068730	
==>\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069598	1069916	
==>\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070785	1071103	
==>\@1}} = (INTVAL)temp2;\n  {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344467	344561	
==>h); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345709	345803	
==>h); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346951	347045	
==>h); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348194	348288	
==>h); */\n  if(!{{\@1}} || !PMC_struct_val({{\@1}})) {\n    {{\@1}} = pmc_new(interpreter, enum_c <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253237	253536	
==>MP" => 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254099	254398	
==>MP" => 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254962	255261	
==>MP" => 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19827	19925	
==>$syms[CURR];
			feedme;
			die "Expected 'as' got $syms[CURR] (source line $sourceline)" unless $sy <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925489	925789	
==>P" => 0,
                  "NAME" => "stringinfo",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926958	927258	
==>P" => 0,
                  "NAME" => "stringinfo",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928428	928728	
==>P" => 0,
                  "NAME" => "stringinfo",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929898	930198	
==>P" => 0,
                  "NAME" => "stringinfo",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	835	930	
==>ct::Expression::Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	673	768	
==>ct::Expression::Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	826	921	
==>ct::Expression::Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL: <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	715	810	
==>ct::Expression::Value');
  confess("Right (" . ref($right) . ") is not Value") unless UNIVERSAL: <==
4	/Users/nnunley/parrot/config/init/hints/solaris.pm	772	881	
==>st.  (If we were to
    # wait till it's normally run, the linker question would have already
    # been asked <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544265	544365	
==>@3}};\n INTVAL saved_var1 = a, saved_var2 = b; \n\n if(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n whi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545601	545701	
==>@3}};\n INTVAL saved_var1 = a, saved_var2 = b; \n\n if(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n whi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546937	547037	
==>@3}};\n INTVAL saved_var1 = a, saved_var2 = b; \n\n if(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n whi <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	56682	56842	
==>ds = extract_multiple($text,
                   [
                        { Delim => sub { extract_delimited($_[0],q{'"}) } },
                        { Brack => <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	14341	14447	
==>t;
    my $rel_path = shift;
    my $item = shift;
    my $file = $source->file_with_relative_path($rel_pat <==
4	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1224	1317	
==>_eq( Parrot::Test::slurp_file($out_f), $output, $desc );
        $self->{builder}->diag("'$cmd <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1265	1358	
==>_eq( Parrot::Test::slurp_file($out_f), $output, $desc );
        $self->{builder}->diag("'$cmd <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764411	764784	
==>_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 863,
                  "ARGS" => [
                              "i",
                              "nc"
                            ],
                  "BODY <==
4	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	628	727	
==>it will run on a Unix box. It's not particularly
necessary to be portable, since it only has to be r <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361711	361809	
==>(interpreter, INTVAL_FMT, {{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362610	362708	
==>(interpreter, INTVAL_FMT, {{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* <==
4	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	1269	1364	
==>n
exploring a location is more important than big-picture browsing.

=item * Is absense of "[... <==
4	/Users/nnunley/parrot/config/inter/lex.pm	332	424	
==>description @args $prompt $util );

use base qw(Parrot::Configure::Step::Base);

use Parrot:: <==
4	/Users/nnunley/parrot/config/inter/make.pm	326	418	
==>description @args $prompt $util );

use base qw(Parrot::Configure::Step::Base);

use Parrot:: <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	327	419	
==>description @args $prompt $util );

use base qw(Parrot::Configure::Step::Base);

use Parrot:: <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	873	978	
==>rns the C C<#define> macros required by the ops.

=cut

sub defines
{
    return <<END;
#define REL_PC ((s <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	829	934	
==>rns the C C<#define> macros required by the ops.

=cut

sub defines
{
    return <<END;
#define REL_PC ((s <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1003	1108	
==>rns the C C<#define> macros required by the ops.

=cut

sub defines
{
    return <<END;
#define REL_PC ((s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314311	314541	
==>JUMP" => 0,
                  "NAME" => "conv_i1_ovf",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476955	477073	
==>,
                  "BODY" => "#line 428 \"src/ops/math.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_e <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477851	477969	
==>,
                  "BODY" => "#line 428 \"src/ops/math.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_e <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	3763	3865	
==>RR] eq "select") {
		&parse_select;
		goto PARSE_NOFEED;
	}
	if ($syms[CURR] eq "data") {
		&parse_data <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	689712	689933	
==>2}}->vtable->getprops(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
4	/Users/nnunley/parrot/tools/build/ops2pm.pl	3503	3600	
==>le '$file'!\n" unless defined $temp_ops;

    die "OPS invalid for $file" unless ref $temp_ops->{O <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8871	8961	
==>ixup_entry(interpreter,\n\t    enum_fixup_label, label);\n    if (!fe)\n\tinternal_exceptio <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9987	10077	
==>ixup_entry(interpreter,\n\t    enum_fixup_label, label);\n    if (!fe)\n\tinternal_exceptio <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5476	5575	
==>', [$pair.'[0]',$item]);
      $self->_add_inst ('', 'set', [$pair.'[1]',$return]);
      $self->_ad <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	9523	9618	
==>re_arg(interpreter, st);
}

/* All our static functions that call in various ways. Yes, terribly <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17027	17120	
==>',[$pair.'[0]',$item]);
    $self->_add_inst ('', 'set',[$pair.'[1]',$return]);
    $self->_ad <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6515	6605	
==>', [$pair.'[0]',$item]);
  $self->_add_inst('', 'set', [$pair.'[1]',$return]);
  $self->_ad <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072473	1072580	
==>} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074658	1074765	
==>} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076843	1076950	
==>} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079029	1079136	
==>} = (INTVAL)( yk * pow( -1, n+1 ) );\n\n  x = {{\@2}} * {{\@4}};\n  y = {{\@3}} * {{\@5}};\n\n  /* correct t <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206520	206788	
==>eter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207462	207730	
==>eter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208402	208670	
==>eter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209343	209611	
==>eter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10655	10762	
==>x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
        $section = $self->unicode_escape_url($section);
        # Tu <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4036	4136	
==>x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
    $section = $self->unicode_escape_url($section);
     # Tu <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2119	2208	
==>lock->find_symbol($args[$i]->value);
      $self->SYNTAX_ERROR("Undefined identifier '%s'. <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1819	1908	
==>lock->find_symbol($args[$i]->value);
      $self->SYNTAX_ERROR("Undefined identifier '%s'. <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018066	1018186	
==>resultbuffer);\n  {{\@1}} = string_from_cstring(interpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018991	1019111	
==>resultbuffer);\n  {{\@1}} = string_from_cstring(interpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019921	1020041	
==>resultbuffer);\n  {{\@1}} = string_from_cstring(interpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020852	1020972	
==>resultbuffer);\n  {{\@1}} = string_from_cstring(interpreter, resultbuffer, 26);\n  {{+=3}};\n",
                  "LABELS <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253804	254073	
==>\@1}} = {{\@2}} ? {{\@2}} : {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254667	254936	
==>\@1}} = {{\@2}} ? {{\@2}} : {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255530	255799	
==>\@1}} = {{\@2}} ? {{\@2}} : {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Ops.pm	393	492	
==>ection::Ops;

use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Retu <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	549	640	
==>ss UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Dest (" . ref($dest) . ") is <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	540	631	
==>ss UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Dest (" . ref($dest) . ") is <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	429	520	
==>ss UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Dest (" . ref($dest) . ") is <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	28240	28414	
==>RGS" => [
                              "pc"
                            ],
                  "BODY" => "#line 502 \"src/ops/core.ops\"\n    opcode_t * const this = CUR_OPCODE <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5862	5962	
==>d to deal with basic block-ish stuff. If the branch
	# did not pop anything it is unconditional, so n <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3800	3900	
==>d to deal with basic block-ish stuff. If the branch
	# did not pop anything it is unconditional, so n <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2270	2363	
==>ction_definitions($file, $source);
    check_cuddled_else($file, $source);
    check_comments( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842614	842922	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843491	843799	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844369	844677	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845247	845555	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	22813	22940	
==>) {
						$unkpos = pos $$textref
							if length($pref) && !defined($unkpos);
						if (defined $unkpos)
						{
							push @ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186014	186110	
==>ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186944	187040	
==>ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187874	187970	
==>ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467622	467716	
==>if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468493	468587	
==>if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477045	477139	
==>if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477941	478035	
==>if ({{\@2}} == 0)\n    real_exception(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide <==
4	/Users/nnunley/parrot/tools/dev/install_files.pl	2934	3100	
==>,
                exec_prefix => '/usr',
                bindir      => '/usr/bin',
                libdir      => '/usr/lib',
                includedir  => '/usr/inc <==
4	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	1326	1481	
==>,
                exec_prefix => '/usr',
                bindir => '/usr/bin',
                libdir => '/usr/lib',
                includedir => '/usr/inc <==
4	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	1741	1845	
==>rom an I register

=item f

Paramter is a float

Taken from an N register.

=item d

Parameter is a doubl <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	466	556	
==>pace><parameter-type-specifiers>[<whitespace>][#<comment>]
    ...
Empty lines and lines co <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	15623	15730	
==>mper( $code, $expected, $desc, \%extra, $extra{todo}, $call_pkg ) if ( keys %extra );
            local *{ $ <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	18174	18281	
==>mper( $code, $expected, $desc, \%extra, $extra{todo}, $call_pkg ) if ( keys %extra );
            local *{ $ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427922	428009	
==>e 69 \"src/ops/math.ops\"\n  mmd_dispatch_v_pn(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428809	428896	
==>e 69 \"src/ops/math.ops\"\n  mmd_dispatch_v_pn(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\ <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	7393	7485	
==>d("$group$LOAD_EXT", @sources)) {
        run(partial_link_cmd("$group$LOAD_EXT", $libs, \@so <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	7604	7696	
==>d("$group$LOAD_EXT", @sources)) {
        run(partial_link_cmd("$group$LOAD_EXT", $libs, \@so <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717477	717743	
==>> "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 80 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718408	718674	
==>> "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 80 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719340	719606	
==>> "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 80 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720539	720805	
==>> "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 80 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94959	95068	
==>n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95852	95961	
==>n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96745	96854	
==>n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABEL <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	43870	43969	
==>ocessed and
a prefix to be matched at the very beginning of the text. If no prefix 
is specified, op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769945	770059	
==>f ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770798	770912	
==>f ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771651	771765	
==>f ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772505	772619	
==>f ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_INT({{\@1}}) <==
4	/Users/nnunley/parrot/config/init/hints/solaris.pm	1676	1843	
==>"solaris_link", $solaris_link_cb);

    ################################################################
    # cc_shared:  Flags to instruct the compiler to use positio <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553201	553341	
==>JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethod",
                  "FLAGS" => ":object_base",
                  "AR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554597	554737	
==>JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethod",
                  "FLAGS" => ":object_base",
                  "AR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555994	556134	
==>JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethod",
                  "FLAGS" => ":object_base",
                  "AR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766533	766643	
==>f ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767386	767496	
==>f ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768239	768349	
==>f ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769093	769203	
==>f ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_STR({{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	10706	10828	
==>'$_'!\n";
        }
    }

    if ($seen_op)
    {
        die "Parrot::OpsFile: File ended with incomplete op definition!\ <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	3712	3823	
==>_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert X.c -> X.o for all X.c
    compile($ <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	3816	3927	
==>_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert X.c -> X.o for all X.c
    compile($ <==
4	/Users/nnunley/parrot/config/inter/progs.pm	3138	3230	
==>egrate($ldflags, $conf->options->get('ldflags'));
    $ldflags = prompt("And your $ld for bui <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240193	240393	
==>ter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241141	241341	
==>ter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242089	242289	
==>ter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243038	243238	
==>ter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	39882	40020	
==>herwise treat) unindented or overlong lines

          }
        }
        
        # Now the VerbatimFormatted hoodoo...
        if( $self <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	33144	33276	
==>sl_n) = @_;
    my ($v, $w, $vv, $ww);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ($w->[2 <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	33893	34025	
==>sl_n) = @_;
    my ($v, $w, $vv, $ww);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ($w->[2 <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	34817	34949	
==>sl_n) = @_;
    my ($v, $w, $vv, $ww);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ($w->[2 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610352	610675	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611254	611577	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612157	612480	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613063	613386	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setattribute",
                  "FL <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	604348	604582	
==>nt(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665273	665505	
==>nt(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666050	666282	
==>nt(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	253	360	
==>nyway
  my $class = shift;
  return bless [@_], ref($class) || $class;
}

sub type { $_[0][0] }  # Can't cha <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	125	216	
==>icense
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Type/ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	124	215	
==>icense
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Type/ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	121	212	
==>icense
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Type/ <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	124	215	
==>icense
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Type/ <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11080	11260	
==>foreach my $key ( @{$var} ) {
                        push @opcodes, @{ $key->[1] };
                        my $result2 = new_tmp( $parser, 'pmc' );
                        push <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9311	9479	
==>foreach my $key ( @{$var} ) {
                    push @opcodes, @{ $key->[1] };
                    my $result2 = new_tmp( $parser, 'pmc' );
                    push <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8303	8447	
==>foreach my $key ( @{$var} ) {
            push @opcodes, @{ $key->[1] };
            my $result2 = new_tmp( $parser, 'pmc' );
            push <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17525	17657	
==>foreach my $key ( @{$var} ) {
        push @opcodes, @{ $key->[1] };
        my $result2 = new_tmp( $parser, 'pmc' );
        push <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066404	1066701	
==>,
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 119 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067589	1067886	
==>,
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 119 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068775	1069072	
==>,
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 119 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069961	1070258	
==>,
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 119 <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	22517	22634	
==>out .= <<"EOC";

   $const MMD_init _temp_mmd_init[] = {
        $mmd_list
    };
    /*  Dynamic PMCs need the runtim <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2137	2231	
==>pe;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value::Id <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2095	2189	
==>pe;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value::Id <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2017	2111	
==>pe;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value::Id <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381127	381228	
==>) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset({{\@2}}), {{\@3}}) < 0) {\n      real_exce <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382139	382240	
==>) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset({{\@2}}), {{\@3}}) < 0) {\n      real_exce <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383151	383252	
==>) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset({{\@2}}), {{\@3}}) < 0) {\n      real_exce <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384164	384265	
==>) {\n    if (PIO_seek(interpreter, {{\@1}}, PIO_make_offset({{\@2}}), {{\@3}}) < 0) {\n      real_exce <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2946	3071	
==>= 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4704	4829	
==>= 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1868	1993	
==>= 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$ <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3120	3245	
==>= 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48112	48341	
==>ROT_JUMP_RESTART",
                  "NAME" => "bounds",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48901	49130	
==>ROT_JUMP_RESTART",
                  "NAME" => "bounds",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline" <==
4	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	4285	4414	
==>ions{commentType}) {
        my @comment = (
            "DO NOT EDIT THIS FILE",
            "Generated by " . __PACKAGE__ . " fr <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	33952	34064	
==>appen!
          DEBUG > 1 and print
           qq{Catching "$treelet->[$i][1]{'to'}" as a complex L<URL> link.\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939530	939854	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940421	940745	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941313	941637	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942205	942529	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "split",
                  "FLAGS" <==
4	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15188	15292	
==>aving ($text)
  DEBUG > 2 and print "== $_[0]\n";
  push @{ $self->{'token_buffer'} },
       $self->{'te <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	1973	2073	
==>$PATHQUOTE . '/Users/nnunley/parrot/include' . $PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/Users <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2269	2369	
==>$PATHQUOTE . '/Users/nnunley/parrot/include' . $PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/Users <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2064	2164	
==>$PATHQUOTE . '/Users/nnunley/parrot/include' . $PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/Users <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2716	2819	
==>$stype"]
	P3["$var"]= P0	# Hack in the alias

SHARING
		} 
	}
}

my $inputcounts=0;
sub input_read_assig <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27641	27736	
==>okahead"}<0?'if':'unless')
		. ' ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and '
		. ($check->{ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29751	29846	
==>okahead"}<0?'if':'unless')
		. ' ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and '
		. ($check->{ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31848	31943	
==>okahead"}<0?'if':'unless')
		. ' ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and '
		. ($check->{ <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8895	9027	
==>($_) foreach (32 .. 126)"
   32, ' ',
   33, '!',
   34, '"',
   35, '#',
   36, '$',
   37, '%',
   38, '&',
   39, "'", #!
   40, ' <==
4	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	9113	9230	
==>oto neg_three
    if $I1 == -4 goto neg_four
    if $I1 == -5 goto neg_five
    if $I1 == -6 goto neg_six
    if $I1 = <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37647	37746	
==>cDescent::lastunexpected = $text;
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) .'
		un <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	31146	31242	
==>es the escape character to be used for each
delimiter.

All arguments are optional. If the escape <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718124	718377	
==>ace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719056	719309	
==>ace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720255	720508	
==>ace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721455	721708	
==>ace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842653	842987	
==>"JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843530	843864	
==>"JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844408	844742	
==>"JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845286	845620	
==>"JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25151	25251	
==>dren = defined $node->{children} ? @{$node->{children}} - 1 : 0;

  if($num_children==0) {
    $retur <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27051	27151	
==>dren = defined $node->{children} ? @{$node->{children}} - 1 : 0;

  if($num_children==0) {
    $retur <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24263	24362	
==>dren = defined $node->{children} ? @{$node->{children}} - 1 : 0;
  if($num_children==0) {
    $retur <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26162	26261	
==>dren = defined $node->{children} ? @{$node->{children}} - 1: 0;

  if($num_children==0) {
    $retur <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	133	226	
==>se
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Declaration <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	130	223	
==>se
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Declaration <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	125	218	
==>se
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Declaration <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	130	223	
==>se
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Declaration <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	5970	6115	
==>cmd eq 'tests' ) {
        if( $arg ) {
            return $self->expected_tests($arg);
        }
        elsif( !defined $arg ) {
            die <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22038	22133	
==>ruct::Expression::Value->new($block, $self->require_value);
        $op    = $self->require_infi <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22971	23066	
==>ruct::Expression::Value->new($block, $self->require_value);
        $op    = $self->require_infi <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24617	24712	
==>ruct::Expression::Value->new($block, $self->require_value);
        $op    = $self->require_infi <==
4	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1007	1160	
==>d, CD => $self->{relpath},
                                           STDOUT => $out_f, STDERR => $out_f );
    unless ($pass) {
        my $file = Parrot <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1048	1201	
==>d, CD => $self->{relpath},
                                           STDOUT => $out_f, STDERR => $out_f );
    unless ($pass) {
        my $file = Parrot <==
4	/Users/nnunley/parrot/config/auto/gmp.pm	1541	1684	
==>auto/gmp/gmp.in');
    eval { cc_build(); };
    my $has_gmp = 0;
    if (!$@) {
        my $test = cc_run();
        if ($test eq
            " <==
4	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2098	2217	
==>d, #CD => $self->{relpath},
					   STDOUT => $out_f, STDERR => $out_f);
  
    unless ($pass) {
      my $file = Parrot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911896	912065	
==>c",
                              "sc"
                            ],
                  "BODY" => "#line 284 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918934	919103	
==>c",
                              "ic"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919947	920116	
==>c",
                              "ic"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interp <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	791	890	
==>g, returning you
# the literal for you to use in other compilations. But, string
# literals are subj <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293458	293714	
==>ing_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294334	294590	
==>ing_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295210	295466	
==>ing_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
4	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	122	225	
==>ds and spit out a chunk of
# PIR that can look up the built-in that's needed and return its PIR.

use st <==
4	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	6061	6191	
==>code =~ s/^([^%]*)%(\d+)//)
    {
        $pir .= inline($1) if $1;
        $pir .= "  \$S0 = $args[$2] \n";
        $pir .= "  pir <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	735	847	
==>e();

    # Tree optimizations
    unless ($options{'no-tree-optimize'}) {
        my $opt1 = Regex::TreeOptimize <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8552	8656	
==>he store.
	# Otherwise, there's nothing to do here.
	if ($dest_reg) {
		$pir .= <<'PIR'
# Get type (so we <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6372	6476	
==>he store.
	# Otherwise, there's nothing to do here.
	if ($dest_reg) {
		$pir .= <<'PIR'
# Get type (so we <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	4514	4606	
==>}

=item C<check_pod()>

Runs C<Pod::Simple::Checker> on the contents of the file. Executable <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	6509	6631	
==>r return 1;
    for my $source (@sources) {
        return 1 if modtime($source) > $target_mod;
    }

    return 0;
}

sub <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4929	5051	
==>r return 1;
    for my $source (@sources) {
        return 1 if modtime($source) > $target_mod;
    }

    return 0;
}

sub <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	6720	6842	
==>r return 1;
    for my $source (@sources) {
        return 1 if modtime($source) > $target_mod;
    }

    return 0;
}

sub <==
4	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	381	484	
==>';

  # or

  use Parrot::Test::Harness language => 'perl6', compiler => 'perl6.pbc';

That's it.  Serio <==
4	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2225	2349	
==>'s the reason for:   no strict 'refs';
        my $pass = $self->{builder}->$builder_func(
                       Parrot::Tes <==
4	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2764	2888	
==>'s the reason for:   no strict 'refs';
        my $pass = $self->{builder}->$builder_func(
                       Parrot::Tes <==
4	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2698	2814	
==>'s the reason for:   no strict 'refs';
        my $pass = $self->{builder}
            ->$builder_func( Parrot::Tes <==
4	/Users/nnunley/parrot/config/auto/gmp.pm	184	279	
==>h library

=head1 DESCRIPTION

Determines whether the platform supports GMP.

=cut

package auto <==
4	/Users/nnunley/parrot/config/inter/lex.pm	1335	1446	
==>nsible for the consequences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $self->s <==
4	/Users/nnunley/parrot/config/inter/make.pm	1156	1267	
==>nsible for the consequences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $self->s <==
4	/Users/nnunley/parrot/config/inter/yacc.pm	1332	1443	
==>nsible for the consequences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $self->s <==
4	/Users/nnunley/parrot/lib/File/Which.pm	6522	6612	
==>ome significant platform-related changes, taken from
the Perl Power Tools C<`which'> implem <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072126	1072256	
==>\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074311	1074441	
==>\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076496	1076626	
==>\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078682	1078812	
==>\n  INTVAL x;\n  INTVAL y;\n\n  while (1) {\n    q1 = r0/r1;\n    r2 = r0 - q1*r1;\n    if (r2 == 0) {\n      break;\n    }\n    r0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777023	777113	
==>DY" => "#line 382 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777932	778022	
==>DY" => "#line 382 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778841	778931	
==>DY" => "#line 382 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779751	779841	
==>DY" => "#line 382 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121253	121557	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_co <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123949	124253	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_co <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124823	125127	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_co <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1011	1124	
==>s) = @_;
	my $register_num = 0;
	my $push_num = 0;
	
	# Emit initial code.
	my $pir = <<'PIR';
# Get current stack <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	3474	3593	
==>p.c", @pmcfiles)) {
            run("$PMC2C --library $group --c " . join(" ",@pmcfiles))
              or die "pmc2c li <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	3578	3697	
==>p.c", @pmcfiles)) {
            run("$PMC2C --library $group --c " . join(" ",@pmcfiles))
              or die "pmc2c li <==
4	/Users/nnunley/parrot/config/init/defaults.pm	2821	2938	
==>can be dynamically loaded.  Flags to tell
        # ld to build a shared library, e.g.  -shared for GNU ld.
        ld <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	463	558	
==>strict;
use vars qw(
  %Code2USASCII
  %Name2character
  %Name2character_number
  %Latin1Code_to <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	10975	11097	
==>evel + 1;

    if( !defined $got || !defined $expect ) {
        # undef only matches undef and nothing else
        my $te <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	11393	11515	
==>evel + 1;

    if( !defined $got || !defined $expect ) {
        # undef only matches undef and nothing else
        my $te <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1580	1671	
==>R("Type is not a Jako::Construct::Type instance!")
    unless UNIVERSAL::isa($type, "Jako::C <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1428	1519	
==>R("Type is not a Jako::Construct::Type instance!")
    unless UNIVERSAL::isa($type, "Jako::C <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025006	1025150	
==>c/ops/sys.ops\"\n   {{\@1}} = sysinfo_s(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025763	1025907	
==>c/ops/sys.ops\"\n   {{\@1}} = sysinfo_s(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0 <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	3127	3238	
==>turn 40 if ($op eq '\\');
	return 50 if ($op eq "*");
	return 50 if ($op eq "/");
	return 60 if ($op eq "^");
	r <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	1780	1871	
==>parent($parent)>

=item C<parent()>

Accessors for the containing section/group for the item <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332481	332579	
==>O_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333759	333857	
==>O_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335037	335135	
==>O_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336316	336414	
==>O_fdopen(interpreter, NULL, (PIOHANDLE){{\@2}}, mode);\n  if (!{{\@1}}) {\n    {{\@1}} = pmc_new(in <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	29876	30041	
==>ext;
        }
        
        
        my $over_type = $over->[1]{'~type'};
        
        if(!$over_type) {
          # Shouldn't happen1
          die "Typeless <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2656	2790	
==>list .= ' ' . $extraLibs;
    } else {
        $liblist = join( ' ', map { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDFL <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2965	3099	
==>list .= ' ' . $extraLibs;
    } else {
        $liblist = join( ' ', map { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDFL <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2760	2894	
==>list .= ' ' . $extraLibs;
    } else {
        $liblist = join( ' ', map { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDFL <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29272	29412	
==>=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86
		},
		DEFAULT => -11 <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41378	41518	
==>=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86
		},
		DEFAULT => -11 <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44524	44664	
==>=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86
		},
		DEFAULT => -11 <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	1514	1638	
==>r();

sub output {
    my @r;
    my $curlabel = "\t";
    for my $op (@_) {
	if (! ref($op)) {
	    push @r, $curlabel . $op <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	43112	43240	
==>nge content" );
        $replacer = $treelet->[$i]; # scratch
        splice(@$treelet, $i, 1,   # fake out a literal
          ' <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	2868	2964	
==>"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUOTE";
}

our <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3177	3273	
==>"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUOTE";
}

our <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	2972	3068	
==>"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUOTE";
}

our <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586522	586690	
==>",
                              "k"
                            ],
                  "BODY" => "#line 314 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(int <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587708	587876	
==>",
                              "k"
                            ],
                  "BODY" => "#line 314 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(int <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	22542	22662	
==>no will be part of temporary file
            my $test_no = $builder->current_test() + 1;

            $expected =~ s/\cM <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	1166	1260	
==>$self->new_item('', 'lib/Parrot/Docs/Group.pm'),
            $self->new_item('', 'lib/Parrot/Do <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	12364	12465	
==>, $howfar, $lastback) = @_;
    my $back = $self->genlabel('undo_charclass');
    my $next = $self->ge <==
4	/Users/nnunley/parrot/config/auto/format.pm	376	472	
==>e);

use Parrot::Configure::Step;

$description = 'Figuring out what formats should be used for s <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34830	34924	
==>::RD_TRACE;').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++ <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41940	42034	
==>::RD_TRACE;').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700763	700934	
==>",
                              "i"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701754	701925	
==>",
                              "i"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702745	702916	
==>",
                              "i"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703737	703908	
==>",
                              "i"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@2}}, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964759	964929	
==>",
                              "i"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(inte <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965767	965937	
==>",
                              "i"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(inte <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966775	966945	
==>",
                              "i"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(inte <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967784	967954	
==>",
                              "i"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass(inte <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1866	1980	
==>FSET($offset)> macro in an ops file into the
relevant C code.

=cut

sub goto_offset
{
    my ($self, $offset) = @_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2515	2629	
==>FSET($offset)> macro in an ops file into the
relevant C code.

=cut

sub goto_offset
{
    my ($self, $offset) = @_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2234	2348	
==>FSET($offset)> macro in an ops file into the
relevant C code.

=cut

sub goto_offset
{
    my ($self, $offset) = @_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2195	2309	
==>FSET($offset)> macro in an ops file into the
relevant C code.

=cut

sub goto_offset
{
    my ($self, $offset) = @_ <==
4	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	167	284	
==>rict;

sub runstep
{
    my ($self, $conf) = @_;

    # Tru64
    my $ccflags = $conf->data->get('ccflags');
    if ($ <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	6437	6548	
==>($target, @sources) = @_;

    my $target_mod = modtime($target)
      or return 1;
    for my $source (@sources <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4857	4968	
==>($target, @sources) = @_;

    my $target_mod = modtime($target)
      or return 1;
    for my $source (@sources <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	6648	6759	
==>($target, @sources) = @_;

    my $target_mod = modtime($target)
      or return 1;
    for my $source (@sources <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769418	769714	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770270	770566	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771123	771419	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771976	772272	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066993	1067113	
==>2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068179	1068299	
==>2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069365	1069485	
==>2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070552	1070672	
==>2 = {{\@2}} < 0.0 ? -{{\@2}} : {{\@2}};\n  FLOATVAL temp3 = {{\@3}} < 0.0 ? -{{\@3}} : {{\@3}};\n  while (temp3 != 0) {\n <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	5215	5350	
==>'Iota'     , 921,
 'Kappa'    , 922,
 'Lambda'   , 923,
 'Mu'       , 924,
 'Nu'       , 925,
 'Xi'       , 926,
 'Omicron'  , 927,
 'Pi <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557964	558051	
==>cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAILCALL;\n  interpreter- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559348	559435	
==>cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAILCALL;\n  interpreter- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560720	560807	
==>cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAILCALL;\n  interpreter- <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977383	977584	
==>",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_ccla <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978513	978714	
==>",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_ccla <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979643	979844	
==>",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_ccla <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980774	980975	
==>",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_ccla <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669077	669167	
==>"src/ops/pmc.ops\"\n    {{\@1}}->vtable->push_float(interpreter, {{\@1}}, {{\@2}});\n    {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669849	669939	
==>"src/ops/pmc.ops\"\n    {{\@1}}->vtable->push_float(interpreter, {{\@1}}, {{\@2}});\n    {{ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11051	11138	
==>trol_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  {{+={{\@1}}}};\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11840	11927	
==>trol_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  {{+={{\@1}}}};\n" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062042	1062306	
==>> "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 118 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062911	1063175	
==>> "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 118 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063780	1064044	
==>> "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 118 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064650	1064914	
==>> "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 118 <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	544	645	
==>opy qw(copy);

# qq[] isn't guaranteed to work, but it's safer than "" as some platforms
# (eg FreeBSD <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	502	603	
==>opy qw(copy);

# qq[] isn't guaranteed to work, but it's safer than "" as some platforms
# (eg FreeBSD <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	506	607	
==>opy qw(copy);

# qq[] isn't guaranteed to work, but it's safer than "" as some platforms
# (eg FreeBSD <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_assignments.pm	279	378	
==>GNMENT_FUNC {
	my($varname)=@_;	# P6 already has the RHS Loaded...
	print CODE<<ASS_FUNC;
	new P0, . <==
4	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2043	2210	
==>hare_flags       => '-dll',
            ld_load_flags        => '-dll',
            ld_out               => '-out:',
            ldflags              => '-nologo -nodef <==
4	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4026	4193	
==>hare_flags       => '-dll',
            ld_load_flags        => '-dll',
            ld_out               => '-out:',
            ldflags              => '-nologo -nodef <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5804	5912	
==>oup"}->[1] = $value; # close group $group!;
    return @ops;
}

sub output_getstart {
    my ($self, $reg, $g <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	18199	18307	
==>recooked treelet hack to $_[0][0]\n";
    $treelet = $_[0][0];
    splice @$treelet, 0, 2;  # lop the top off <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579333	579434	
==>{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580638	580739	
==>{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581943	582044	
==>{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583249	583350	
==>{\@2}});\n  PMC *name;\n  opcode_t *next = {{^+4}};\n  if (PMC_IS_NULL(class)) {\n    real_exception(i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	652501	652757	
==>, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060193	1060449	
==>, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1027327	1027582	
==>, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	26853	27107	
==>, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072611	1072724	
==>we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074796	1074909	
==>we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076981	1077094	
==>we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079167	1079280	
==>we used abs({{\@4}}) and abs({{\@5}}) */\n  if ( x + y == r1 ) {\n    /* no correction necessary */\n  }\n  else i <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2156	2257	
==>ind, name => $self->prefix } });
  }
  else {
    $handler->start_element({ Name => 'loop', Attributes <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9824	9917	
==>t ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over each parameter and put them into ${PARAMS <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7338	7431	
==>t ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over each parameter and put them into ${PARAMS <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6302	6395	
==>t ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over each parameter and put them into ${PARAMS <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	55160	55310	
==>] );
        }
	],
	[#Rule 74
		 'exp', 2,
sub
#line 405 "Lua\lua51.yp"
{
            BuildUnop( $_[0], $_[1], $_[2] );
        }
	],
	[#Rul <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	5327	5427	
==>else {
    die "invalid command '$mode'\nmust be one of generate, compile, linklibs, or copy\n";
}

s <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4528	4628	
==>else {
    die "invalid command '$mode'\nmust be one of generate, compile, linklibs, or copy\n";
}

s <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	5538	5638	
==>else {
    die "invalid command '$mode'\nmust be one of generate, compile, linklibs, or copy\n";
}

s <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	373946	374083	
==>"
                            ],
                  "BODY" => "#line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374829	374966	
==>"
                            ],
                  "BODY" => "#line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375712	375849	
==>"
                            ],
                  "BODY" => "#line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376596	376733	
==>"
                            ],
                  "BODY" => "#line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interprete <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575145	575518	
==>lasses",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 657,
                  "ARGS" => [
                              "p",
                              "kc"
                            ],
                  "BO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563228	563464	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addmethod",
                  "FLAGS" => ":object_class <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564125	564361	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addmethod",
                  "FLAGS" => ":object_class <==
4	/Users/nnunley/parrot/config/init/hints/cygwin.pm	1398	1507	
==>get('define');
    unless ($define) {
        $define = 'inet_aton';
    } elsif ($define !~ /inet_[ap]ton/) { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24754	24893	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcall <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557161	557300	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcall <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558544	558683	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcall <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559928	560067	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcall <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367283	367534	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368074	368325	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368866	369117	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369750	370001	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302122	302380	
==>} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302998	303256	
==>} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303874	304132	
==>} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089593	1089845	
==>DE" => 1208,
                  "ARGS" => [
                              "p",
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 186 \"src/ops/experimental.ops\"\n    { <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	40145	40260	
==>para->[-1] !~ m/\S/) { pop @$para }
           # Kill any number of terminal newlines
          $self->_verbatim_for <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123825	123920	
==>" => "#line 257 \"src/ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124699	124794	
==>" => "#line 257 \"src/ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125573	125668	
==>" => "#line 257 \"src/ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4 <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	7975	8097	
==>turn [ $result, \@opcodes1 ];
}

sub BuildVariable {
    my ( $parser, $var ) = @_;
    my @opcodes = ();
    my $idf <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	6611	6719	
==>only
		feedme();
		($resulty, $typey, @codey)=EXPRESSION();   # Y (only)
	} else {
	    	($resultx, $typex, @ <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	3941	4031	
==>ription)>

Compile the Parrot Intermediate Representation and generate Parrot Assembler Cod <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	4124	4214	
==>ription)>

Compile the Parrot Intermediate Representation and generate Parrot Assembler Cod <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	4314	4404	
==>ription)>

Compile the Parrot Intermediate Representation and generate Parrot Assembler Cod <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	55520	55651	
==>[0], $_[1], 'nil' );
        }
	],
	[#Rule 77
		 'primary', 1,
sub
#line 420 "Lua\lua51.yp"
{
            BuildLiteral( $_[0 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072390	1072499	
==>= ykp1;\n  }\n  {{\@1}} = r1;\n  {{\@2}} = (INTVAL)( xk * pow( -1, n ) );\n  {{\@3}} = (INTVAL)( yk * pow( -1, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1074575	1074684	
==>= ykp1;\n  }\n  {{\@1}} = r1;\n  {{\@2}} = (INTVAL)( xk * pow( -1, n ) );\n  {{\@3}} = (INTVAL)( yk * pow( -1, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076760	1076869	
==>= ykp1;\n  }\n  {{\@1}} = r1;\n  {{\@2}} = (INTVAL)( xk * pow( -1, n ) );\n  {{\@3}} = (INTVAL)( yk * pow( -1, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1078946	1079055	
==>= ykp1;\n  }\n  {{\@1}} = r1;\n  {{\@2}} = (INTVAL)( xk * pow( -1, n ) );\n  {{\@3}} = (INTVAL)( yk * pow( -1, <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	7544	7644	
==>e . '::' . $self->{"name"} unless $parser->{saving};

	my $code =
'
# ARGS ARE: ($parser, $text; $rep <==
4	/Users/nnunley/parrot/lib/Parrot/Test.pm	25893	25989	
==>tions();

=head1 SEE ALSO

=over 4

=item F<t/harness>

=item F<docs/tests.pod>

=item L<Test/Mor <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712315	712409	
==>s\"\n  PMC * const io = PIO_STDOUT(interpreter);\n  STRING *s;\n  if (PIO_softspace(interpreter <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713422	713516	
==>s\"\n  PMC * const io = PIO_STDOUT(interpreter);\n  STRING *s;\n  if (PIO_softspace(interpreter <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	55230	55377	
==>a51.yp"
{
            BuildUnop( $_[0], $_[1], $_[2] );
        }
	],
	[#Rule 75
		 'exp', 2,
sub
#line 409 "Lua\lua51.yp"
{
            B <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9519	9613	
==>o PRE_CALL_RETURN_${CURIC}

# It's a call. Get details of method we're calling.
(${PTEMP0}, ${S <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7033	7127	
==>o PRE_CALL_RETURN_${CURIC}

# It's a call. Get details of method we're calling.
(${PTEMP0}, ${S <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5589	5683	
==>o PRE_CALL_RETURN_${CURIC}

# It's a call. Get details of method we're calling.
(${PTEMP0}, ${S <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610606	610904	
==>> 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611508	611806	
==>> 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612411	612709	
==>> 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613317	613615	
==>> 0,
                  "NAME" => "setattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9846	9944	
==>OT_CTOR_${CURIC}:

# Loop over each parameter and put them into ${PARAMS}. Note that they come
# of <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7360	7458	
==>OT_CTOR_${CURIC}:

# Loop over each parameter and put them into ${PARAMS}. Note that they come
# of <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6324	6422	
==>OT_CTOR_${CURIC}:

# Loop over each parameter and put them into ${PARAMS}. Note that they come
# of <==
4	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	12551	12641	
==>r><th colspan="11" class="indent0"><tmpl_var name=name></th></tr>
      <tmpl_loop name=cat <==
4	/Users/nnunley/parrot/tools/build/nativecall.pl	5375	5482	
==>ignature '%s' on line %d (previously seen on line %d) of $ARGV",
              "$ret$args", $., $seen{"$ret$ <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12280	12379	
==>the name has no known value (as with a name of "qacute") or is
syntactally invalid (as with a name o <==
4	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12831	12930	
==>the name has no known value (as with a name of "qacute") or is
syntactally invalid (as with a name o <==
4	/Users/nnunley/parrot/tools/build/ops2c.pl	197	292	
==>es

=head1 SYNOPSIS

    % perl tools/build/ops2c.pl trans [--help] [--no-lines] [--dynamic] [-- <==
4	/Users/nnunley/parrot/tools/build/ops2c.pl	11715	11816	
==>t first call to op_code() a hash
 * of short and full opcode names is created
 * hash functions are fr <==
4	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	607	700	
==>irectory;
use Parrot::Docs::HTMLPage;

=item C<root_section()>

Returns the root section.

=cu <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742736	742825	
==>74 \"src/ops/set.ops\"\n  {{\@1}} = string_from_int(interpreter, {{\@2}});\n  {{+=3}};\n", <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743502	743591	
==>74 \"src/ops/set.ops\"\n  {{\@1}} = string_from_int(interpreter, {{\@2}});\n  {{+=3}};\n", <==
4	/Users/nnunley/parrot/tools/build/c2str.pl	231	327	
==>t;
use Getopt::Long;
use strict;

my $outfile = 'all_cstring.str';
my $string_private_h = 'src/st <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858609	858701	
==>AT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859613	859705	
==>AT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860617	860709	
==>AT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861622	861714	
==>AT, \"Cannot repeat with negative arg\");\n  }\n  {{\@1}} = string_repeat(interpreter, {{\@2} <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11797	12012	
==>arser,
                        'arg1'   => $last_key->[0],
                        'arg2'   => undef,
                        'result' => $result,
                    );
                    return [ $defn, \@opc <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9997	10192	
==>arser,
                    'arg1'   => $last_key->[0],
                    'arg2'   => undef,
                    'result' => $result,
                );
                return [ $defn, \@opc <==
4	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8852	9007	
==>arser,
            'arg1'   => $last_key->[0],
            'arg2'   => undef,
            'result' => $result,
        );
        return [ $defn, \@opc <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	60326	60420	
==>success, the C<$@> variable is guaranteed to be C<undef>.

The available diagnostics are:

=ove <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5544	5644	
==>[1]',$return]);
      $self->_add_inst ('', 'set', [$return,$pair]);
      $self->_restore ($item, $p <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11406	11502	
==>= $rightres
	$rightres = $leftres
	$leftres = \$${righttype}99
SWAP
}

sub parse_stop {
	feedme() <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17091	17186	
==>[1]',$return]);
    $self->_add_inst ('', 'set',[$return,$pair]);

    $self->_restore($item, $p <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6578	6668	
==>[1]',$return]);
  $self->_add_inst('', 'set', [$return,$pair]);
  $self->_restore($item, $p <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606925	607103	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getattribute",
                  "FLAGS" => ":object_classes",
                  "ARGD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607828	608006	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getattribute",
                  "FLAGS" => ":object_classes",
                  "ARGD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608732	608910	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getattribute",
                  "FLAGS" => ":object_classes",
                  "ARGD <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609639	609817	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getattribute",
                  "FLAGS" => ":object_classes",
                  "ARGD <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12959	13072	
==>0,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24945	25058	
==>0,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28091	28204	
==>0,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => <==
4	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37810	37923	
==>0,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	2798	2950	
==>+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	36870	37022	
==>+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_ <==
4	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	4518	4636	
==>{\") found.");
        }
    }
}


# for now just try to catch glaring errors.  A real parser is probably
# overkill fo <==
4	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	6494	6586	
==>@{$self->{"prods"}}, $prod;
	$self->{"changed"} = 1;
	delete $self->{"expected"};
	$self->{"i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340224	340315	
==>src/ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341223	341314	
==>src/ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342222	342313	
==>src/ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}} <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343222	343313	
==>src/ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}} <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2036	2148	
==>t->value) unless $left_sym;
    $left_type = $left_sym->type;
  }
  else {
    $left_type = $left->type;
  }

  m <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1994	2106	
==>t->value) unless $left_sym;
    $left_type = $left_sym->type;
  }
  else {
    $left_type = $left->type;
  }

  m <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1916	2028	
==>t->value) unless $left_sym;
    $left_type = $left_sym->type;
  }
  else {
    $left_type = $left->type;
  }

  m <==
4	/Users/nnunley/parrot/lib/Text/Balanced.pm	23815	23916	
==>rn $fields[0];
}


sub gen_extract_tagged # ($opentag, $closetag, $pre, \%options)
{
	my $ldel    = $_ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404040	404309	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404951	405220	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405863	406132	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406775	407044	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719463	719786	
==>"i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 807,
                  "ARGS" => [
                              "p",
                              "n"
                            ],
                  "BODY" => "#line 133 \"src/op <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948381	948644	
==>ME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949180	949443	
==>ME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
4	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	46174	46275	
==>->[$i]) and !ref($p->[$i + 1]) ) {
      DEBUG > 5 and print "_verbatim_format merges {$p->[$i]} and { <==
4	/Users/nnunley/parrot/config/auto/headers.pm	364	460	
==>nfigure::Step ':auto';
use Config;

$description = 'Probing for C headers';

@args = qw(miniparro <==
4	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	3077	3185	
==>t = $self->read;
    # Break up the $Id to prevent svn messing with it.
    my ($id) = $content =~ /((?:\$)Id <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	8908	9003	
==>me, C<struct> creates a Perl 5 class that implements
a "struct-like" data structure.

The new cl <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714574	714669	
==>const io = PIO_STDOUT(interpreter);\n  if (s && string_length(interpreter, s)) {\n    if (PIO_so <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715497	715592	
==>const io = PIO_STDOUT(interpreter);\n  if (s && string_length(interpreter, s)) {\n    if (PIO_so <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196953	197341	
==>",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 233,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 366 \ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558019	558107	
==>UB_FLAG_TAILCALL;\n  interpreter->current_object = object;\n  interpreter->current_method <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559403	559491	
==>UB_FLAG_TAILCALL;\n  interpreter->current_object = object;\n  interpreter->current_method <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560775	560863	
==>UB_FLAG_TAILCALL;\n  interpreter->current_object = object;\n  interpreter->current_method <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712363	712470	
==>\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  s = Parro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713470	713577	
==>\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  s = Parro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719830	719937	
==>\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  s = Parro <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721030	721137	
==>\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  s = Parro <==
4	/Users/nnunley/parrot/lib/Class/Struct.pm	8804	8910	
==>exports a single function, C<struct>.
Given a list of element names and types, and optionally
a class name, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25356	25447	
==>CONTEXT(interpreter->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557929	558020	
==>CONTEXT(interpreter->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559313	559404	
==>CONTEXT(interpreter->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560685	560776	
==>CONTEXT(interpreter->ctx)->current_cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15080	15188	
==>/$righttype/g for @$leftexpr;

		@ass=(
			@$rightexpr,
			@$leftexpr,
		);
	}

	return @ass;
}
sub EXPRESSIO <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1220	1321	
==>Check for a few bad conditions.
  #
  # NOTE: These are compiler internal consistency checks. They rea <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1165	1266	
==>Check for a few bad conditions.
  #
  # NOTE: These are compiler internal consistency checks. They rea <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1068	1169	
==>Check for a few bad conditions.
  #
  # NOTE: These are compiler internal consistency checks. They rea <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033171	1033277	
==>"src/ops/var.ops\"\n    parrot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034269	1034375	
==>"src/ops/var.ops\"\n    parrot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035365	1035471	
==>"src/ops/var.ops\"\n    parrot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036529	1036635	
==>"src/ops/var.ops\"\n    parrot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_n <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549404	549525	
==>RROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ":object_ba <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550704	550825	
==>RROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ":object_ba <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552005	552126	
==>RROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ":object_ba <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	14312	14429	
==>i
  ) {
    $self->output_fh( *STDOUT{IO} );
  } else {
    require Symbol;
    my $out_fh = Symbol::gensym();
    DEB <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16050	16226	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16822	16998	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	17596	17772	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18391	18567	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73122	73211	
==>et_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR(p));\n      PObj_get_FLAGS({{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74724	74813	
==>et_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR(p));\n      PObj_get_FLAGS({{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76326	76415	
==>et_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR(p));\n      PObj_get_FLAGS({{\@ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77929	78018	
==>et_pointer_keyed_str(interpreter, {{\@1}}, {{\@4}}, F2DPTR(p));\n      PObj_get_FLAGS({{\@ <==
4	/Users/nnunley/parrot/tools/build/pmc2c.pl	19130	19243	
==>my $class = read_dump($include, $file);

        print "    " x $depth, $class->{class}, "\n";
        print_tree( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540506	540612	
==>a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541758	541864	
==>a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543010	543116	
==>a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634853	635143	
==>er, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635971	636261	
==>er, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637089	637379	
==>er, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638208	638498	
==>er, class, {{\@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
4	/Users/nnunley/parrot/tools/build/dynclasses.pl	5131	5242	
==>xecute permissions on libraries is especially important on
        # some platforms
        if ($^O eq 'hpux' or <==
4	/Users/nnunley/parrot/tools/build/dynpmc.pl	5342	5453	
==>xecute permissions on libraries is especially important on
        # some platforms
        if ($^O eq 'hpux' or <==
4	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4347	4454	
==>xecute permissions on libraries is especially important on
			# some platforms
	        if ($^O eq 'hpux' or <==
4	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	602	699	
==>ft;
    
    return $self->new(File::Spec->catfile(File::Spec->tmpdir, @_));
}

=item C<new($path) <==
4	/Users/nnunley/parrot/config/auto/cgoto.pm	927	1055	
==>|| 0;
        cc_clean();
    }

    if ($test) {
        $conf->data->set(
            TEMP_cg_h => '$(INC_DIR)/oplib/core_ops_c <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	28211	28305	
==>tart_line = $stack[0][1]{'start_line'};

  # A recursive algorithm implemented iteratively!  Wh <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	31712	31806	
==>tart_line = $stack[0][1]{'start_line'};

  # A recursive algorithm implemented iteratively!  Wh <==
4	/Users/nnunley/parrot/lib/Pod/Simple.pm	41583	41677	
==>tart_line = $stack[0][1]{'start_line'};

  # A recursive algorithm implemented iteratively!  Wh <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094657	1094966	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exec",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095351	1095660	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exec",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  " <==
4	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	334	473	
==>\s*;/;
    s/;.*$//;
    $text .= $_;
  }
  close SOURCE;

  for my $ch (split //,$text) {
    if($ch eq '(' or
       $ch eq ')') {
      p <==
4	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	482	586	
==>lass = shift;

  my ($block, $type, $ident, $props, $args) = @_;

  confess "Block (". ref($block) . ") i <==
4	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	164	260	
==>a::Dumper;
use vars qw( %code $seg $debug $runtime_jump );

require "COMP_parsefuncs.pm";

sub in <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125875	126237	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rot",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127009	127371	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rot",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128144	128506	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rot",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
4	/Users/nnunley/parrot/tools/build/jit2c.pl	12271	12401	
==>}
        \);
        \s+{{\+=\d}}/xm) {
            $jit_func = "Parrot_jit_vtable_$1$3$4$5_op";
            $extern = vtable_num( <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022730	1022952	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodelocaltime",
                  "FLAGS" => "",
                  "ARGDIR <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023579	1023801	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodelocaltime",
                  "FLAGS" => "",
                  "ARGDIR <==
4	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	3974	4090	
==>s");
    ${lhs}pmc_register(interpreter, whoami);
EOC
    }
    $cout .= <<"EOC";

    /* do class_init code */
    f <==
4	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	5808	5923	
==>ir && ! -d $dir ); 

       my $patterns = capture_output( "$svn_cmd propget svn:ignore $dir" );
       # TODO: esca <==
4	/Users/nnunley/parrot/config/inter/ops.pm	975	1090	
==>an build and load
    # opcode subset libs
    if (0 && $conf->options->get('ask')) {
        print <<"END";


The f <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	22751	22851	
==>ib/Regex/Grammar.y"
{ return $_[1]; }
	],
	[#Rule 43
		 'classpiece', 3,
sub
#line 179 "lib/Regex/Gra <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227392	227487	
==>\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) >= 0) {\n    {{+={{\@3}}}};\ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228372	228467	
==>\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) >= 0) {\n    {{+={{\@3}}}};\ <==
4	/Users/nnunley/parrot/languages/python/pie-thon.pl	1857	1964	
==>_source($file);
exit if $opt{D};
gen_code();

sub nci_method {
    my $m = shift;
    return 1 if $vtables{$ <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459783	459879	
==>line 282 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460771	460867	
==>line 282 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461759	461855	
==>line 282 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(i <==
4	/Users/nnunley/parrot/lib/Test/Builder.pm	19974	20090	
==>el ) {
        $Level = $level;
    }
    return $Level;
}


=item B<use_numbers>

    $Test->use_numbers($on_or_off) <==
4	/Users/nnunley/parrot/languages/regex/test.pl	3500	3612	
==>$trees) {
        $driver->output_rule(*PIR, '_regex', $tree, $ctx, DEBUG => $DEBUG);
    }

    close PIR;
}

su <==
4	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	4985	5088	
==>);
}

multi sub skip (Int $count, Str $reason, :$depends) returns Bool is export {
    for (1 .. $count) <==
4	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	192	292	
==>return 'rx_allocinfo P0, S0';
}

sub output_match_succeeded {
    return 'rx_succeed P0';
}

sub outp <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114899	115196	
==>NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115753	116050	
==>NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116608	116905	
==>NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
4	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	3227	3377	
==>oto bad_args\n";
        
        $code .= "  if argc > $max goto bad_args\n"
            if $max;
    }
    
    return $code;
}

sub helpers {
    my <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7579	7688	
==>tore operation hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If the d <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5697	5806	
==>tore operation hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If the d <==
4	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4539	4648	
==>tore operation hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If the d <==
4	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9189	9292	
==>ning from do_beginning...\n";
  return 1;
}

sub version_tag_comment {
  my $self = shift;
  return spri <==
4	/Users/nnunley/parrot/examples/benchmarks/oo5.pl	255	372	
==>shift;
    if (@_) { $self->[0] = shift } else { $self->[0] }
}

sub j {
    my $self = shift;
    if (@_) { $self->[1 <==
4	/Users/nnunley/parrot/examples/benchmarks/oo6.pl	247	364	
==>shift;
    if (@_) { $self->[0] = shift } else { $self->[0] }
}

sub j {
    my $self = shift;
    if (@_) { $self->[1 <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054413	1054509	
==>(!{{\@3}})\n\tinternal_exception(1, \"Tried to get null global.\");\n\n    next = {{^+4}};\n    { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055540	1055636	
==>(!{{\@3}})\n\tinternal_exception(1, \"Tried to get null global.\");\n\n    next = {{^+4}};\n    { <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854991	855103	
==>ops\"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855880	855992	
==>ops\"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856769	856881	
==>ops\"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857659	857771	
==>ops\"\n  {{\@1}} = string_concat(interpreter, {{\@2}}, {{\@3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766030	766296	
==>"JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766882	767148	
==>"JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767735	768001	
==>"JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
4	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768588	768854	
==>"JUMP" => 0,
                  "NAME" => "sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
3	/Users/nnunley/parrot/config/auto/perldoc.pm	692	829	
==>($a =~ m/^Unknown option:/) {
            $a       = capture_output('perldoc perldoc') || '';
            $version = 1;
            $self- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	898	985	
==>s not!" if defined $ident and not UNIVERSAL::isa($ident, 'Jako::Construct::Expression::V <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	926	1013	
==>s not!" if defined $ident and not UNIVERSAL::isa($ident, 'Jako::Construct::Expression::V <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3474	3622	
==>$self)=shift;

	$$self{LEX};
}


#################
# Private stuff #
#################


sub _CheckParams {
	my($mandatory,$checklist,$in <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3298	3434	
==>$self)=shift;

	$$self{LEX};
}


#################
# Private stuff #
#################


sub _CheckParams {
	my($mandatory,$checklist,$in <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	16523	16652	
==>$self, $got, $type, $expect, $name) = @_;

    my $test;
    {
        local $^W = 0;
        local($@,$!);   # don't interfere wi <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2933	3046	
==>my $push_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we'r <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1855	1968	
==>my $push_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we'r <==
3	/Users/nnunley/parrot/config/inter/shlibs.pm	211	304	
==>Asks the user which flags are needed for compiling position-independent code
for use in shared <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11377	11480	
==>nt = Jako::Construct::Expression::Value::Identifier->new($block, $token);
      my $op    = substr($self <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11924	12027	
==>nt = Jako::Construct::Expression::Value::Identifier->new($block, $token);
      my $op    = substr($self <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12467	12570	
==>nt = Jako::Construct::Expression::Value::Identifier->new($block, $token);
      my $op    = substr($self <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	5125	5243	
==>_)
    {
        $self->{BODY} = shift;
    }

    return $self->{BODY};
}

=item C<jump($jump)>

=item C<jump()>

Sets <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	905	1005	
==>", "_basicmain", keys %code) {
	next unless exists $code{$seg};
	my @debdecl=();
	my @init=();

	prin <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	1873	1962	
==>types -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwrite-strings -Waggregat <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1238	1327	
==>types -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwrite-strings -Waggregat <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1242	1331	
==>types -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwrite-strings -Waggregat <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3376	3504	
==>gs');
            $linkflags =~ s/-opt:\S+//;
            $conf->data->set(linkflags => $linkflags);
        }
    } elsif ($is_i <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6567	6660	
==>= ${STYPES}
    prop_stack_depth[${ITEMP0}] = stack_depth
    goto POST_BRANCH_switch_${CURIC} <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4505	4598	
==>= ${STYPES}
    prop_stack_depth[${ITEMP0}] = stack_depth
    goto POST_BRANCH_switch_${CURIC} <==
3	/Users/nnunley/parrot/lib/Test/More.pm	11997	12106	
==>s->can(...)";
    
    my $ok = $Test->ok( !@nok, $name );

    $Test->diag(map "    $class->can('$_') failed\ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3218	3322	
==>) = @_;
    $self->output_test('lt', $val1, $val2, $dest);
}

sub output_le {
    my ($self, $val1, $val2 <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	205	302	
==>Parrot::Op;

=head1 DESCRIPTION

C<Parrot::Op> represents a Parrot operation (op, for short), as r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552815	552904	
==>\n  interpreter->current_method = VTABLE_get_string(interpreter, method_pmc);\n  dest = (o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556810	556899	
==>\n  interpreter->current_method = VTABLE_get_string(interpreter, method_pmc);\n  dest = (o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560833	560922	
==>\n  interpreter->current_method = VTABLE_get_string(interpreter, method_pmc);\n  dest = (o <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10460	10567	
==>lf->{'rtfindent'} -= pop @indent_stack;
        pop @stack;
      } elsif( $tagname eq 'Verbatim' or $tagnam <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21537	21644	
==>e) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(1);
  my $temp = $self- <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21922	22029	
==>e) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(1);
  my $temp = $self- <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	16124	16231	
==>match[20,21],				# ANY FILLET?
		       );
};

sub _match_quotelike($$$$)	# ($textref, $prepat, $allow_raw_m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16996	17355	
==>RS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 23,
                  "ARGS" => [
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 300 \" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209979	210249	
==>n",
                  "CODE" => 247,
                  "ARGS" => [
                              "p",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 408 \"src/ops/cmp.ops\"\n  if (st <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	3429	3541	
==>(") or ! $next));

	return 0;  # Not an operator

}
sub false {
	my($type)=@_;
	if ($type eq "N") {
		return "0.0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799340	799728	
==>,
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 902,
                  "ARGS" => [
                              "p",
                              "kc",
                              "nc"
                            ],
                  "BODY" => "#line 462 \ <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	12134	12230	
==>ion currently on checks with ref() since we do not yet have
object support. Once object support i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539540	539762	
==>rc/ops/math.ops\"\n  {{\@1}} = tanh((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653474	653577	
==>reter, {{\@1}}))\n        real_exception(interpreter, resume, METH_NOT_FOUND,\n            \"Method '%s' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654635	654738	
==>reter, {{\@1}}))\n        real_exception(interpreter, resume, METH_NOT_FOUND,\n            \"Method '%s' <==
3	/Users/nnunley/parrot/config/auto/signal.pm	1567	1679	
==>setitimer) " if $verbose;
    }
    cc_clean();

    # now generate signal constants
    open O, ">runtime/parrot <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	282	374	
==>"use warnings";

package Jako::Construct::Type::PMC;

use base qw(Jako::Construct::Type);

su <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	8574	8793	
==>efined($use) and defined($type);

                if ($type =~ /^INTKEY$/i)
                {
                    $type = "ki";
                }
                else
                {
                    $type = lc subs <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1057	1161	
==>:Label;

use Jako::Construct::Statement::Arithmetic;
use Jako::Construct::Statement::Assign;
use Jako::Co <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2752	2886	
==>);
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQ <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3061	3195	
==>);
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2856	2990	
==>);
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQ <==
3	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	1250	1360	
==>t) {
		print "translate failed:\n$output";
		return 0;
	}
	return 1;
}

# This takes some PIR, saves it to a fi <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	962	1045	
==>define REL_PC ((size_t)((opcode_t*)cur_opcode - (opcode_t*)interpreter->code->preder <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1092	1175	
==>define REL_PC ((size_t)((opcode_t*)cur_opcode - (opcode_t*)interpreter->code->preder <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	282283	282575	
==>\n  {{\@1}} = {{\@2}} < {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283128	283420	
==>\n  {{\@1}} = {{\@2}} < {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283973	284265	
==>\n  {{\@1}} = {{\@2}} < {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107162	107452	
==>\n  {{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108016	108306	
==>\n  {{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108870	109160	
==>\n  {{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406007	406426	
==>"ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 469,
                  "ARGS" => [
                              "s",
                              "i",
                              "sc"
                            ],
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1737	1856	
==>nce for specified path.

=cut

sub new
{
    my $self = shift;
    my $path = shift;
    
    return unless defined $pat <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1669	1767	
==>ndler) = @_;

  $handler->start_element({ Name => 'assign' });
  $self->left->sax($handler);
  $sel <==
3	/Users/nnunley/parrot/Configure.pl	6254	6359	
==>s=(flags)    Use the given loader flags for shared libraries
   --lex=(lexer)        Use the given lexical <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	12968	13058	
==>"#line 231 \"src/ops/core.ops\"\n  opcode_t * loc;\n  stack_push(interpreter, &CONTEXT(inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13812	13902	
==>"#line 231 \"src/ops/core.ops\"\n  opcode_t * loc;\n  stack_push(interpreter, &CONTEXT(inte <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33785	33911	
==>lse {
              DEBUG and print "Can't assimilate following ", $paras->[0][0], "\n";
              push @$para, '';  # Just <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35598	35724	
==>lse {
              DEBUG and print "Can't assimilate following ", $paras->[0][0], "\n";
              push @$para, '';  # Just <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	2220	2320	
==>Dumper::Useqq  = 1;
#$Data::Dumper::Terse  = 1;
#$Data::Dumper::Indent = 0;
use Getopt::Long;

use Pa <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16253	16355	
==>sion::Value::Identifier->new($block, $token);

      $self->require_assign;

      my $left  = Jako::Co <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17024	17126	
==>sion::Value::Identifier->new($block, $token);

      $self->require_assign;

      my $left  = Jako::Co <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17829	17931	
==>sion::Value::Identifier->new($block, $token);

      $self->require_assign;

      my $left  = Jako::Co <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	230	320	
==>rot::Test::Tcl, which looks like it's
largely a copy of Parrot::Test::Python. Abstraction n <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	268	358	
==>rot::Test::Tcl, which looks like it's
largely a copy of Parrot::Test::Python. Abstraction n <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	17735	17839	
==>g1024\\noproof ",  # \\cf1
  "\cc" => "}",
);
1;

__END__

=head1 NAME

Pod::Simple::RTF -- format Pod as <==
3	/Users/nnunley/parrot/languages/converter.pl	318	418	
==>ifier->[0] eq '?';
  return '(s)'  if $modifier->[0] eq '+';
  return '(s?)' if $modifier->[0] eq '*' <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	2583	2681	
==>,[$return,"\"$symbol\""]);

  return $return;
}

sub _store_lex {
  my ($self, $symbol,$value) = @_ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	8938	9054	
==>lastback ])
      unless ($op->{nocheck});

    my @debugging;
    if ($self->{DEBUG}) {
        my $old_lastback = $ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	18806	18902	
==>LE_HAS_CONST_TOO' : $self->{flags}{is_const} ?
	  'VTABLE_IS_CONST_FLAG' : 0;
    if (exists $sel <==
3	/Users/nnunley/parrot/config/auto/socklen_t.pm	50	139	
==>/parrot/config/auto/socklen_t.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

c <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	15600	15722	
==>';
            # die Dumper( $code, $expected, $desc, \%extra, $extra{todo}, $call_pkg ) if ( keys %extra );
            lo <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	18151	18273	
==>';
            # die Dumper( $code, $expected, $desc, \%extra, $extra{todo}, $call_pkg ) if ( keys %extra );
            lo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704588	704870	
==>> 790,
                  "ARGS" => [
                              "p",
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1}} = mmd <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	27210	27337	
==>OC
    }
}

sub UNARY_CONVERT
{
    my ($n, $c, $cmt) = @_;
    my $tos = pop @stack;
    my $p = promote($tos);
    my $s = tem <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4273	4375	
==>)>

Returns the C code for the run core function declaration.

=cut

sub run_core_func_decl
{
    my ($ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2761	2863	
==>)>

Returns the C code for the run core function declaration.

=cut

sub run_core_func_decl
{
    my ($ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540417	540519	
==>{{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541669	541771	
==>{{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542921	543023	
==>{{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16260	16368	
==>alue::Identifier->new($block, $token);

      $self->require_assign;

      my $left  = Jako::Construct::Expr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17031	17139	
==>alue::Identifier->new($block, $token);

      $self->require_assign;

      my $left  = Jako::Construct::Expr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17836	17944	
==>alue::Identifier->new($block, $token);

      $self->require_assign;

      my $left  = Jako::Construct::Expr <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1759	1927	
==>',
            o          => '.obj',
            cc_o_out   => '-Fo',
            cc_exe_out => '-out:',
            cc_ldflags => '/link',

            # ZI messes with <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3638	3806	
==>',
            o          => '.obj',
            cc_o_out   => '-Fo',
            cc_exe_out => '-out:',
            cc_ldflags => '/link',

            # ZI messes with <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	651	773	
==>\.\d+)?[eE]/)) { # Dashes could be a neg. expt
      $token .= $ch;
    } elsif($ch eq '?' and
            $token =~ /^[a-z <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	35272	35378	
==>]
EOC
    #push @stack, [-1, $dest, 'P'];
}
sub DELETE_SLICE_plus_1 {
    return Del_Slice(@_, 1);
}
sub DE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553878	553976	
==>meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+4}};\n  interpreter->current_object = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555275	555373	
==>meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+4}};\n  interpreter->current_object = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540684	540813	
==>n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n {{\@1}} = b<<p;\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541936	542065	
==>n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n {{\@1}} = b<<p;\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543188	543317	
==>n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n {{\@1}} = b<<p;\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	26682	26849	
==>",
                              "p"
                            ],
                  "BODY" => "#line 452 \"src/ops/core.ops\"\n  {{\@1}} = parrot_new_closure(interpre <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	4346	4447	
==>//;

    return $value;
}

=item C<new(@files)>

Returns a new instance initialized by calling C<read_ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14159	14254	
==>E_$label"]);
    $self->_add_inst ("FAIL_$label", 'set', [$return,0]);
    $self->_add_inst ("DO <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16427	16518	
==>E_$label"]);
  $self->_add_inst ("FAIL_$label", 'set', [$return,0]);
  $self->_add_inst ("DO <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	3090	3317	
==>e($rule);

                # Save it.
                push @rules, $rule;
            }

            # Create new rule structure.
            $rule = {
                name    => $name
            };
        }

        # Is it a <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	22765	22869	
==>as"
			feedme;  # type.
			die "Unknown type $syms[CURR]" unless exists $usertypes{$syms[CURR]};
			my $t <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	15223	15316	
==>($file));
}

=item C<append_html_suffix($path)>

Returns C<$path> with and HTML file suffix ad <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349835	350075	
==>",
                  "CODE" => 407,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 162 \"src/ops/io.ops\"\n  /* These char <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	400	486	
==>Yapp::Driver );
#Included Parse/Yapp/Driver.pm file----------------------------------- <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	390	475	
==>Yapp::Driver );
#Included Parse/Yapp/Driver.pm file----------------------------------- <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31190	31296	
==>s($method)>

Always true for vtables.

=cut

sub implements
{
    my ($self, $meth) = @_;
    $self->implem <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32653	32759	
==>s($method)>

Always true for vtables.

=cut

sub implements
{
    my ($self, $meth) = @_;
    $self->implem <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39810	39916	
==>s($method)>

Always true for vtables.

=cut

sub implements
{
    my ($self, $meth) = @_;
    $self->implem <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	373006	373213	
==>S" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 395 \"src/ops/io.ops\"\n  STRING ** const s = &{{\@1}};\n\n  *s = <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	6672	6779	
==>e create a new Parrot::Op instance based on the type, name and args.
        # We query the Parrot::Op for t <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	2586	2692	
==>nstall_files.pl'),
            $self->new_item('', 'tools/dev/mk_manifests.pl'),
            $self->new_ite <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34780	34898	
==>ction'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "### end translation\n";

		# Now emit code to fix u <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2439	2538	
==>rg_name) 
      unless defined $formal_arg_type;

    $self->INTERNAL_ERROR("Can't determine type of <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2139	2238	
==>rg_name) 
      unless defined $formal_arg_type;

    $self->INTERNAL_ERROR("Can't determine type of <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	3958	4056	
==>my $self = shift;

    return sort grep {-f} $self->file_and_directory_paths;
}

=item C<directory_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1567	1660	
==>}
${STACK$register_num} = ${STEMP0}

# Emit pop code.
${INS} = concat ${STACK$register_num}
${ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3277	3370	
==>}
${STACK$register_num} = ${STEMP0}

# Emit pop code.
${INS} = concat ${STACK$register_num}
${ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	799	891	
==>!" unless UNIVERSAL::isa($ident, qw(Jako::Construct::Expression::Value::Identifier));
  confe <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	823	907	
==>!"  unless UNIVERSAL::isa($ident, qw(Jako::Construct::Expression::Value::Identifier)) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	787	871	
==>!"  unless UNIVERSAL::isa($ident, qw(Jako::Construct::Expression::Value::Identifier)) <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1281	1400	
==>tent program is specified then
    # the user is responsible for the consequences.
    if (defined $prog) {
        $con <==
3	/Users/nnunley/parrot/config/inter/make.pm	1102	1221	
==>tent program is specified then
    # the user is responsible for the consequences.
    if (defined $prog) {
        $con <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1278	1397	
==>tent program is specified then
    # the user is responsible for the consequences.
    if (defined $prog) {
        $con <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094721	1094983	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exec",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095415	1095677	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exec",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline" <==
3	/Users/nnunley/parrot/config/init/hints/solaris.pm	3288	3415	
==>on't know how to do this for gcc.
        } else {
            my $linkflags = $conf->data->get('linkflags');
            $conf- <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1596	1708	
==>BUG and print "-- $_[1]\n";
  print {$_[0]{'output_fh'}} "</", $_[1], ">";
  return;
}

# . . . . . . . . . . . . <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20817	21080	
==>ROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21617	21880	
==>ROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	624219	624381	
==>less( {
                  "JUMP" => "PARROT_JUMP_ADDRESS",
                  "NAME" => "pic_callr__",
                  "FLAGS" => ":pic",
                  "ARGDI <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1316	1453	
==>/$pasm_f",
            CD => '..', # $self->{relpath}, 
            STDOUT => $out_f, STDERR => $out_f, 
        );
        my $prog_outpu <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3100	3209	
==>)",
    'k'  => "PREG(%ld)",
    'ki' => "IREG(%ld)",

    'ic' => "cur_opcode[%ld]",
    'nc' => "CONST(%ld)- <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2015	2120	
==>)",
  'k'   => "PREG(%ld)",
  'ki'  => "IREG(%ld)",

  'ic'  => "cur_opcode[%ld]",
  'nc'  => "CONST(%ld)- <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	1421	1527	
==>ls/docs/pod_errors.pl'),
            $self->new_item('', 'tools/dev/manicheck.pl'),
            $self->new_ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1716	1813	
==>:PGE::_generate_pir_for($target, $pattern)
    );

    goto &Parrot::Test::pir_output_is;
}

=item <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2239	2336	
==>:PGE::_generate_pir_for($target, $pattern)
    );

    goto &Parrot::Test::pir_output_is;
}

=item <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	428	535	
==>new
{
  my $class = shift;

  confess "Expected 5 args!" unless @_ == 5;

  my ($block, $prefix, $left, $op, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	428	535	
==>new
{
  my $class = shift;

  confess "Expected 5 args!" unless @_ == 5;

  my ($block, $prefix, $left, $op, <==
3	/Users/nnunley/parrot/languages/converter.pl	2211	2312	
==>GV[0];
my @lines;
my @rules;

open FILE,$file or die "Couldn't open '$file': $!";
@lines = <FILE>;
clo <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10582	10708	
==>ion .= '') ) 
    {
        $section =~ tr/ /_/;
        $section =~ tr/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
        $secti <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3977	4085	
==>ion .= '')) {
    $section =~ tr/ /_/;
    $section =~ tr/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
    $secti <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	2069	2157	
==>_lib_path\}/$mono_lib_path/g;
    $makefile =~ s/\$\{trans_class_library\}/$class_lib_ma <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32047	32176	
==>'s not numeric.  Correct for this.
            $para->[1]{'number'} = $expected_value;
            $self->whine(
              $pa <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32456	32585	
==>'s not numeric.  Correct for this.
            $para->[1]{'number'} = $expected_value;
            $self->whine(
              $pa <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	20503	20611	
==>ara->[1]{'~ignore'}   = (! $dont_ignore) || 0;
      $para->[1]{'~resolve'}  = $to_resolve || 0;

      DEBUG <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3155	3248	
==>elf->do_middle if $self->bare_output;
  return
   $self->do_beginning && $self->do_middle && $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4524	4617	
==>elf->do_middle if $self->bare_output;
  return
   $self->do_beginning && $self->do_middle && $ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10094	10215	
==>and	print STDERR "**Pop state $$stack[-1][0].\n";

			pop(@$stack);
		}

			@$stack
		or	do {

#DBG>			$debug & 0x <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9643	9756	
==>and	print STDERR "**Pop state $$stack[-1][0].\n";

			pop(@$stack);
		}

			@$stack
		or	do {

#DBG>			$debug & 0x <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	16668	16765	
==>n-existent
elements are silently ignored.

Note that the initializer for a nested class may be spe <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2229	2353	
==>DBParse()';#Do not create stab entry on compile
        $@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2146	2264	
==>DBParse()';#Do not create stab entry on compile
        $@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	42477	42575	
==>P5']) unless $return eq 'P5';
  $self->_restore_set;

  $return =~ /(\w)(\d+)/;
  $self->{regs}->{$ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18743	18873	
==>ue);
          last if $self->get(1)->is_close_paren;
          $self->require_comma;
        }
      }

      $self->require_close <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19769	19899	
==>ue);
          last if $self->get(1)->is_close_paren;
          $self->require_comma;
        }
      }

      $self->require_close <==
3	/Users/nnunley/parrot/config/gen/revision.pm	35	125	
==>dation.
# $Id: /parrot/config/gen/revision.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=h <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528638	528892	
==>{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529520	529774	
==>{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	530402	530656	
==>{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4585	4689	
==>_P/_DBP/;
	eval join('',@drv);
}

#Note that for loading debugging version of the driver,
#this file <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4355	4454	
==>_P/_DBP/;
	eval join('',@drv);
}

#Note that for loading debugging version of the driver,
#this file <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	11018	11117	
==>pported = Pod::Simple::Transcode::->all_encodings;

    # Note unsupported, and complain
    DEBUG a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48645	48845	
==>interpreter, PARROT_BOUNDS_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49435	49635	
==>interpreter, PARROT_BOUNDS_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	2630	2748	
==>= %1
    $I101 = %2
    $I100 = or $I100, $I101
    $I100 = not $I100
    %1 = $I100
END_PIR

    $P0[unicode:"dyadic:\ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29233	29384	
==>,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" = <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41339	41490	
==>,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" = <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44485	44636	
==>,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" = <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	1517	1684	
==>'', 'gdbm.lib'); };
        }
    } else {
        eval { cc_build('', '-lgdbm'); };
    }
    my $has_gdbm = 0;
    if (!$@) {
        my $test = cc_run();
        unl <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	796	916	
==>pasm pbc out) ); # JMG

        # STDERR is written into same output file
        open LANG, "> $lang_f" or die "Unable t <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	708	828	
==>pasm pbc out) ); # JMG

        # STDERR is written into same output file
        open LANG, "> $lang_f" or die "Unable t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681808	682093	
==>" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 765,
                  "ARGS" = <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	1843	1954	
==>y $dirname      = dirname($da_file) || '.';
    my $filename     = basename($da_file);
    my $src_filename = $d <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	5165	5376	
==>push @opcodes, new AssignOp( $parser,
                    'prolog' => 1,
                    'arg1'   => $expr,
                    'result' => $defn,
                );
            }
        }
        ret <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13547	13653	
==>_op_pair_p {
  my ($self, $node) = @_;
  my $return;
  my $label = $self->_gensym();

  _num_arg ($node, 1, <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	733	837	
==>l not need it. Althoug this may be a 
# niave understanding of what this stuff is for, so if it is, I inv <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	229740	230037	
==>ge_num",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	7245	7364	
==>rn 0;
}


#
# compile_file()
#

sub compile_file {
    my ($file_name) = @_;

    my $pf = Parrot::PackFile->new;
    $p <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	445	538	
==>::OpTrans::CGP;

use strict;
use warnings;

use base qw( Parrot::OpTrans::CPrederef Parrot::Op <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19461	19602	
==>0,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 100,
			'func <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21626	21767	
==>0,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 100,
			'func <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33141	33282	
==>0,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 100,
			'func <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	779	893	
==>irectory.

=cut

sub header
{
    my $self = shift;
    # Default values to keep warnings quiet in tests.
    my $t <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	13230	13367	
==>o {
   my $self = $_[0];

   my $class = ref($self) || $self;

   my $tag = __PACKAGE__ . ' ' . $VERSION;
   
   unless($class eq __PACKAG <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	1173	1297	
==>UNICODE) { }
  elsif($] >= 5.008)   { *UNICODE = sub() {1}  }
  else                 { *UNICODE = sub() {''} }
}
if(DEBUG > 2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83868	84178	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84774	85084	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85680	85990	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	25604	25797	
==>STMORTEM}) {
                unlink $out_f;
                unlink $build_f;
                unlink $exe_f;
                unlink $obj_f;
                unlink $pdb_f;
                unlink $ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34205	34313	
==>ne, "sharedref.c");
    return <<EOC;
$l
$decl {
    $ret_def
    LOCK_PMC(interpreter, pmc);
    $func_ret$b <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	927	1026	
==>, @args);
print arg_check(@args);
print   helpers(@args);
print arguments(@args);
print      body($f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399859	400264	
==>ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 463,
                  "ARGS" => [
                              "p",
                              "i",
                              "i", <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6208	6311	
==>}

    return (\%group_files, \%group_libs, \%pmc_group, \%pmc_libs);
}

sub modtime {
    my $ago = (-M <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6419	6522	
==>}

    return (\%group_files, \%group_libs, \%pmc_group, \%pmc_libs);
}

sub modtime {
    my $ago = (-M <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54250	54373	
==>lets thru
      )
    ) { $_;
    } else {
      if( chr(65) eq 'A' ) {
        s<([^\x20\x21\x23\x27-\x3F\x41-\x5B\x5D-\x7E <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	5867	5996	
==>me);
  my @stack;
  my $dont_wrap = 0;
  while($token = $self->get_token) {

    # - - - - - - - - - - - - - - - - - - - - - - - - <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9296	9399	
==>crement stack height.
dec stack_depth
PIR
	}

	return $pir;
}

# Pre and post call hooks.
sub pre_call { <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6814	6917	
==>crement stack height.
dec stack_depth
PIR
	}

	return $pir;
}

# Pre and post call hooks.
sub pre_call { <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	5738	5858	
==>**
    s/^ {0,2}\*//mg; # | *

    s/^ *(\$I[d]: .+)\n//m; $info->{Id} = $1;

    my $desc;
    if(/Overview:/) { # norma <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1018	1103	
==>ine SREG(i) REG_STR(cur_opcode[i])
#define CONST(i) CONTEXT(interpreter->ctx)->constan <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1134	1219	
==>ine SREG(i) REG_STR(cur_opcode[i])
#define CONST(i) CONTEXT(interpreter->ctx)->constan <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253212	253535	
==>( {
                  "JUMP" => 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254074	254397	
==>( {
                  "JUMP" => 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254937	255260	
==>( {
                  "JUMP" => 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205994	206384	
==>re",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 243,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic <==
3	/Users/nnunley/parrot/config/auto/msvc.pm	1230	1348	
==>->data->set(msvcversion => undef);
        return $self;
    }

    my $major = int($msvc{_MSC_VER} / 100);
    my $min <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	54567	54663	
==>e $` in a pattern match). Note that this is designed
to facilitate the use of other Text::Balance <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19885	19989	
==>121 "lib/Regex/Grammar.y"
{ return op('multi_match' => [ 1, -1, TRUE, $_[1] ]); }
	],
	[#Rule 16
		 'expr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806044	806131	
==>497 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed(interpreter, { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806950	807037	
==>497 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed(interpreter, { <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1061	1197	
==>left,
    OP    => $op,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => $dest->file,
    LINE  => $dest->line
  }, $class;

  $block-> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1052	1188	
==>left,
    OP    => $op,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => $dest->file,
    LINE  => $dest->line
  }, $class;

  $block-> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	941	1077	
==>left,
    OP    => $op,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => $dest->file,
    LINE  => $dest->line
  }, $class;

  $block-> <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	2989	3180	
==>l $_;
                    if (defined($values{$2})) {
                        $_        = "$prefix$1\t" . $values{$2};
                        $last_val = $values{$2};
                    } el <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	11823	11983	
==>ptrsize' => 4,
             'ranlib' => 'ranlib',
             'readline' => 'define',
             'revision' => 0,
             'rm_f' => 'perl -MExtUtils::Com <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	7973	8110	
==>ine_coverage) {
        my $outfile_base = $source_file;
        $outfile_base =~ s/\//_/g;
        
        print OUT qq(
           <tr> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722480	722736	
==>e(interpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723509	723765	
==>e(interpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724553	724809	
==>e(interpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	67	169	
==>005-ish.  We do this to prevent
# use of uninitialized value warnings in older perls.
$^C ||= 0;

use s <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	5567	5666	
==>al" />
      <itemData name="TempRegister" defStyleNum="dsDecVal" />
      <itemData name="String" d <==
3	/Users/nnunley/parrot/examples/benchmarks/addit.pl	861	942	
==>arks/addit.pasm>, F<examples/benchmarks/addit.pir>,
F<examples/benchmarks/addit2.p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017484	1017767	
==>gmtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1137,
                  "ARGS" = <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	14790	14892	
==>r_paragraph_buffer {

  # Para-token types as found in the buffer.
  #   ~Verbatim, ~Para, ~end, =head1 <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	7131	7227	
==>$const->{methods} }, {
		meth => "$meth",
		type => $entry->{type},
		parameters => $entry->{para <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	2713	2841	
==>event yet

  'bare_output',       # For some subclasses: whether to prepend
                       #  header-code and postpend fo <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8796	8902	
==>tests_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_tests_badpass = 0;
    $Test::num_o <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	199	293	
==>tests_run    = 0;
$Test::num_of_tests_failed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_o <==
3	/Users/nnunley/parrot/languages/converter.pl	1444	1554	
==>][0] if defined $item[3][0];
 		}
		| terminal(?) '|' production mod(?)
#		{[@item]}
		{ $return = '';
		  $ret <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	25812	25916	
==>so people can change them in their
    # test suites while still getting normal test output.
    open(TES <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	531	630	
==>>code },
  q{""} => sub { $_[0]->name }
;

use Jako::Token;

use Jako::Construct::Type::Integer;
use <==
3	/Users/nnunley/parrot/config/inter/libparrot.pm	402	500	
==>parrot;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Ba <==
3	/Users/nnunley/parrot/config/init/miniparrot.pm	566	659	
==>parrot;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Ba <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956446	956683	
==>> "function",
                  "CODE" => 1076,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 576 \"src/ops/string.ops <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	116	271	
==>) || $proto;
        my $self  = {};
        bless $self, $class;
        my ($fh) = @_;
        $self->{fh}       = $fh;
        $self->{prologue} = q <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	8861	8954	
==>cted = $_[1];
	'. ($parser->{_check}{thisoffset}?'
	my $thisoffset;
	tie $thisoffset, q{Parse: <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	1514	1643	
==>or; # Don't use it
    }
    if (defined $minor and $minor =~ tr/0-9//c) {
        undef $minor; # Don't use it
    }
    if (defi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	12022	12106	
==>1\lang1024\noproof\sbasedon0 pod-codelbock-plain;}
{\*\cs26 \additive \f1\lang1024\no <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7733	7851	
==>}

    local *OLDOUT if $out;
    local *OLDERR if $err;

    # Save the old filehandles; we must not let them get clos <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	7682	7800	
==>}

    local *OLDOUT if $out;
    local *OLDERR if $err;

    # Save the old filehandles; we must not let them get clos <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	18771	18873	
==>os($$textref);
		return (
			$startpos,	$oppos-$startpos,	# PREFIX
			$oppos,		length($op),		# OPERATOR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	287481	287738	
==>nterpreter, {{\@2}}, {{\@3}}, MMD_CMP) < 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	318552	318790	
==>ELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u2_ovf",
                  "FLAGS" => ":dotgn <==
3	/Users/nnunley/parrot/config/auto/gc.pm	1998	2122	
==>MALLOC',
        );
    } elsif ($gc eq 'libc') {
        $conf->data->set(
            TEMP_gc_c => <<"EOF",
\$(SRC_DIR)/res <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	9333	9448	
==>if ($c =~ /^[+-]?\d+[jJ]$/);
    return 1 if ($c =~ s/[jJ]$// && is_num($c));
    return 0;
}

sub typ {
    my $c = <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	853	945	
==>rns should be specified as strings
and without leading/trailing pattern delimiters.

(Hint: i <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2951	3043	
==>rns should be specified as strings
and without leading/trailing pattern delimiters.

(Hint: i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818498	818631	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "restorea <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	2540	2654	
==>ile ( my $line = <IN>) {
        if ($line =~ m/^#define/) {
            $line =~ s/PREV_OP\s(..?)\s(\w+)/(jit_info <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	5697	5803	
==>);

	my $prod;
	foreach $prod ( @{$self->{"prods"}} )
	{
		push @subrules, $prod->leftmostsubrule();
	}

	r <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	10460	10590	
==>"PARROT_ARG_%s", uc $_) } $op->arg_types
            : 0
        ) . " }";
        my $arg_dirs   = "{ " . join(", ", scalar $op->a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	521	613	
==>reamble);

$VERSION = "0.4.5";

$preamble = "/*\n** core.ops\n*/\n\n#include \"parrot/dynext. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188870	189163	
==>MP) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	195535	195828	
==>MP) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196483	196776	
==>MP) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759185	759474	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setref",
                  "FLAGS" => ":base_core",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105122	105387	
==>"JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105859	106124	
==>"JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inl <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	4059	4168	
==>t

use strict;

my $Obj;

$Obj = shift(@ARGV) unless defined $Obj;
$Obj = 'blib/lib/libparrot.a' unless define <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954044	954282	
==>YPE" => "function",
                  "CODE" => 1073,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 571 \"src/ops/string <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	50298	50433	
==>elseif_star', 0,
sub
#line 211 "Lua\lua51.yp"
{
            [];
        }
	],
	[#Rule 36
		 'laststat', 2,
sub
#line 218 "Lua\ <==
3	/Users/nnunley/parrot/Configure.pl	4418	4502	
==>uildUtil::parrot_version();
our @parrot_version = Parrot::BuildUtil::parrot_version() <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	8132	8267	
==>_show {
		    my ($show, $Got, $got) = @_;
		    if (defined $Got) {
			if ($Got == $got) {
			    $$show++;
			} else {
			    $$show = <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49391	49491	
==>rror,$line);
				$item = new Parse::RecDescent::Directive('$commit=0;1',
								  $lookahead,$line," <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	31313	31413	
==>parts of an L<...> (i.e., in name, section, text, and url).

sub _treat_Ls {  # Process our dear dear <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	33793	33914	
==>$self->{Expected_Tests}-1 ) {
            $test_results->[$idx] = $empty_result
              unless defined $test_results <==
3	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	683	783	
==>END_HEADER';   # confuse SVN
# generated by tools/dev/gen_manifest_skip.pl NOW
#
# This file should c <==
3	/Users/nnunley/parrot/config/auto/isreg.pm	64	153	
==>onfig/auto/isreg.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/is <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514118	514229	
==>math.ops\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514998	515109	
==>math.ops\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515878	515989	
==>math.ops\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	106572	106899	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107425	107752	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108279	108606	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2368	2588	
==>flags             => '',
            ar_out               => '-out:',
            slash                => '\\',
            blib_dir             => 'blib\\lib',
            ccflags              => $ccflags,
            cc <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4264	4484	
==>flags             => '',
            ar_out               => '-out:',
            slash                => '\\',
            blib_dir             => 'blib\\lib',
            ccflags              => $ccflags,
            cc <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1641	1742	
==>THQUOTE = '"';

    $LIBPARROT = '/Users/nnunley/parrot/parrot.a';
}

# PMC2C Config
our $PMC2C = "$PE <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21379	21485	
==>($temp);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$label");
  retur <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21764	21870	
==>($temp);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$label");
  retur <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22149	22255	
==>($temp);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$label");
  retur <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947758	947978	
==>6,
                  "ARGS" => [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 526 \"src/ops/string.ops\"\n  INTVAL n = Parrot_char <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357988	358178	
==>\"\n  PIO_eprintf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358652	358842	
==>\"\n  PIO_eprintf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	4872	5029	
==>, interpreter, op_lib.core_type);\n    {{+=0}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	21904	21999	
==>pen_file( ">>", $deffile );
        print $fh "LIBRARY $group\nEXPORTS\n\tParrot_lib_${group}_lo <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30051	30145	
==>dard';
import Parrot::Pmc2c qw( gen_ret );

=item C<body($method, $line, $out_name)>

Returns t <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	14036	14165	
==>me' => 17
		}
	},
	{#State 23
		ACTIONS => {
			"?" => undef
		},
		DEFAULT => -17
	},
	{#State 24
		ACTIONS => {
			"?" => 43
		} <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5971	6090	
==>debug & 0x01
#DBG>			and	print STDERR "Need token. Got ".&$ShowCurToken."\n";
			};

            $act=   exists($$ac <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5687	5802	
==>debug & 0x01
#DBG>			and	print STDERR "Need token. Got ".&$ShowCurToken."\n";
			};

            $act=   exists($$ac <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	6638	6742	
==>ntax error:
    #

    $self->PARSE_ERROR("Unrecognized text '$text'.");
  }

#  $self->DEBUG(0, "Tokens: <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	3162	3266	
==>t, *return_data);",
       2 => "set_nci_I(interpreter, &st, *return_data);",
       f => "set_nci_N(inte <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4316	4409	
==>TEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${DEST$push_num} = ${STEMP0}

# Increment dt <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2732	2825	
==>TEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${DEST$push_num} = ${STEMP0}

# Increment dt <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1978	2076	
==>nt'} }

sub   end_over_bullet  { --$_[0]{'Indent'} }
sub   end_over_number  { --$_[0]{'Indent'} }
s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1546	1644	
==>nt'} }

sub   end_over_bullet  { --$_[0]{'Indent'} }
sub   end_over_number  { --$_[0]{'Indent'} }
s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	707902	708238	
==>+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "register", <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1342	1447	
==>re_translation() {
	# We need a stack depth and a string for label gen and some
	# storage for stack depth <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	429	534	
==>re_translation() {
	# We need a stack depth and a string for label gen and some
	# storage for stack depth <==
3	/Users/nnunley/parrot/config/init/hints/solaris.pm	1175	1270	
==>r this test.
        Parrot::Configure::Step::_run_command("$cc -o test test.c", 'test.cco', 'te <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	5486	5576	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_element_start { <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	387	477	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_element_start { <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	386	476	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_element_start { <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8473	8579	
==>and
  $Name2character{'lt'  }   = '<';
  $Name2character{'gt'  }   = '>';
  $Name2character{'quot'}   = '"' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104046	1104131	
==>type <= 0)\n\t\treal_exception(interpreter, NULL, NO_CLASS,\n\t\t\t\t\"Class '%Ss' not <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105261	1105346	
==>type <= 0)\n\t\treal_exception(interpreter, NULL, NO_CLASS,\n\t\t\t\t\"Class '%Ss' not <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58739	59029	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "warningson",
                  "FLAGS" => "",
                  "AR <==
3	/Users/nnunley/parrot/config/auto/format.pm	1441	1551	
==>ure.pl:  Can't find a printf-style format specifier for type \"$nv\"\n";
    }

    $conf->data->set(
        i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1065	1174	
==>rned to the caller.
#
# Converts a single string argument:
#
#     "Foo $a ${b}ar\n"
#
# to multiple arguments <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	13537	13640	
==>TCPU @jit_funcs, "};\n";

if ($genfile =~ /jit_cpu.c/) {
    print JITCPU <<"EOC";
    PARROT_API Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4696	4798	
==>DRESS($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_address 
{
    my $self <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	496	608	
==>Label);
    if ($distance eq '1') {
        return "rx_advance P0, $failLabel";
    } elsif ($distance =~ /\D/) { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563930	564017	
==>/ops/object.ops\"\n  VTABLE_add_method(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564828	564915	
==>/ops/object.ops\"\n  VTABLE_add_method(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605911	606134	
==>arrot_add_attribute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606702	606925	
==>arrot_add_attribute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1326	1411	
==>truct::Statement::Goto;
use Jako::Construct::Statement::Increment;
use Jako::Construct <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	19477	19619	
==>'code'} = $_->{'orig_code'};
        $_->{'code'} =~ s/\s//g;
    }

    # Return generated PIR.
    return $pir;
}


# Binary dispatch table b <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	4812	4914	
==>tring_${line}_data,
  sizeof(static_string_${line}_data) - 1,
  1,
  $h
};

DATA
  }
}

open IN, $infil <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6015	6115	
==>s[NEXT] eq "select") {
			my $s=pop @selects;
			feedme;
			print CODE "CASE_$s->{jump}_$s->{incase}: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367313	367598	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368104	368389	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => " <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	1128	1233	
==>tdir($path_to_parrot));
    my $path_to_tcl;
    if ($dir_count == 0) {
      $path_to_tcl = File::Spec->j <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1502	1622	
==>s()>

Sets/gets the transform's arguments.

=cut

sub args
{
    my $self = shift;

    if (@_)
    {
        $self->{ARG <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1111	1231	
==>s()>

Sets/gets the transform's arguments.

=cut

sub args
{
    my $self = shift;

    if (@_)
    {
        $self->{ARG <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	12192	12277	
==>n25 pod-codelbock-bold;}
{\*\cs28 \additive \f1\lang1024\noproof\sbasedon25 pod-codelb <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	364	472	
==>Carp;

use base qw(Jako::Construct::Block::Conditional);

#
# new()
#

sub new
{
  my $class = shift;
  my ($ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	376	484	
==>Carp;

use base qw(Jako::Construct::Block::Conditional);

#
# new()
#

sub new
{
  my $class = shift;
  my ($ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7253	7342	
==>1('P');
  $self->_add_inst("ITER_$label", 'set', [$temp,$list.'[0]']);
  $self->_add_inst( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906084	906364	
==>1021,
                  "ARGS" => [
                              "s",
                              "p",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 262 \"src/ops/string.ops\"\n  {{\@1}} = <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37867	37987	
==>ableconstructor' => 32,
			'var' => 35,
			'primary' => 28,
			'field' => 177
		}
	},
	{#State 146
		DEFAULT => -1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131324	131439	
==>BODY" => "#line 306 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132179	132294	
==>BODY" => "#line 306 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133034	133149	
==>BODY" => "#line 306 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	3338	3451	
==>[-1] if $curlabel;
	    undef $curlabel;
	}
    }

    # Second, scan for label references and follow goto's until <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	4636	4746	
==>revision} <=> $a->{revision} ||
      $b->{timestamp}[0]  <=> $a->{timestamp}[0]
    } @{ $cats{$_} })
    [0.. <==
3	/Users/nnunley/parrot/config/auto/funcptr.pm	29	116	
==>e Perl Foundation.
# $Id: /parrot/config/auto/funcptr.pm 19593 2006-05-30T02:28:15.11097 <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	405	516	
==>de, $output, $desc) = @_;
  
    my $count = $self->{builder}->current_test + 1;

    my $lang_f    = Parrot::Te <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	443	554	
==>de, $output, $desc) = @_;
  
    my $count = $self->{builder}->current_test + 1;

    my $lang_f    = Parrot::Te <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	5137	5233	
==>also
print 5+-2
' Expect 0
print 6-abs(-6)


' Some register confusion, expect .PTFCDR
Dim c(10), <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	64	165	
==>mple::PullParserToken ();
@ISA = ('Pod::Simple::PullParserToken');
use strict;

sub new {  # Class->ne <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	66	167	
==>mple::PullParserToken ();
@ISA = ('Pod::Simple::PullParserToken');
use strict;

sub new {  # Class->ne <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	65	166	
==>mple::PullParserToken ();
@ISA = ('Pod::Simple::PullParserToken');
use strict;

sub new {  # Class->ne <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7083	7187	
==>fail} : '';
	my $bad     = ref($options{reject}) eq 'ARRAY' ? join('|', @{$options{reject}})
		    : defi <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24085	24189	
==>fail} : '';
	my $bad     = ref($options{reject}) eq 'ARRAY' ? join('|', @{$options{reject}})
		    : defi <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1741	1841	
==>, Rule $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := $got ~~ $ex <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	25897	26011	
==>c # avoid savetop
EOC
	    $func = 'the::internal';
	}
	print <<EOC;
	$ret_string$func($args)  $cmt
EOC
    }
    m <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2043	2141	
==>s already defined at this lexical scope, we want to complain
  # about the redefinition. Otherwise, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1790	1888	
==>s already defined at this lexical scope, we want to complain
  # about the redefinition. Otherwise, <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	2306	2412	
==>->set(int4_t => 'int');
        print <<'END';

Can't find a int type with size 4, conversion ops might fai <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12110	12206	
==>PullParser> and inherits all its
methods.

TODO

=head1 SEE ALSO

L<Pod::Simple>

=head1 COPYRIGH <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	729	820	
==>mpiler->emit("__INLINE_0()");
  $compiler->emit("end");
  $compiler->outdent;
  $compiler->e <==
3	/Users/nnunley/parrot/config/auto/msvc.pm	1485	1602	
==>t('no');
        $conf->data->set(msvcversion => undef);
        return $self;
    }

    my $msvcversion = "$major.$m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605882	605972	
==>\"src/ops/object.ops\"\n    Parrot_add_attribute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606673	606763	
==>\"src/ops/object.ops\"\n    Parrot_add_attribute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3 <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2332	2453	
==>t = join( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ /gcc/i) {
            $liblist =~ s/gdbm\.lib/-llibgdbm/ <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2624	2745	
==>t = join( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ /gcc/i) {
            $liblist =~ s/gdbm\.lib/-llibgdbm/ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2419	2540	
==>t = join( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ /gcc/i) {
            $liblist =~ s/gdbm\.lib/-llibgdbm/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92790	93033	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93569	93812	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i" <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	6472	6569	
==>, $prod ) = @_;
	push @{$self->{"prods"}}, $prod;
	$self->{"changed"} = 1;
	delete $self->{"expect <==
3	/Users/nnunley/parrot/config/auto/memalign.pm	802	931	
==>memalign')) {
        # already set; leave it alone
        $self->set_result('already set');
        return $self;
    }
    my $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	796	888	
==>efine REL_PC     ((size_t)(cur_opcode - interpreter->code->base.data))
#define CUR_OPCODE cur <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	912	1004	
==>efine REL_PC     ((size_t)(cur_opcode - interpreter->code->base.data))
#define CUR_OPCODE cur <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	7848	7958	
==>_share_flags' => '-dynamiclib -undefined suppress',
             'ldflags' => '-L/opt/local/lib -L/usr/local/li <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4863	4961	
==>ot1=false($ot1);
		return(<<CODE, $result);
	# FIXME
	eq $a1, $ot1, TRUE_${eqnum}
	set $result, 0.0 <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	116	211	
==>Z bernhard  $

=head1 NAME

Parrot::Vtable - Functions for manipulating vtables

=head1 SYNOPSIS <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11600	11695	
==>~~~~~~~~~~~~~~~~~~~~~~~

sub unicode_escape_url {
  my($self, $string) = @_;
  $string =~ s/([^\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852947	853320	
==>se_mem",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 968,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BO <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30866	30960	
==>t S0
	print " not found\\n"
	_platform_shutdown()
	end
DISP2
RTJUMP:
	push @{$code{$seg}->{code <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	9325	9439	
==>ol:
      Carp::croak "\"$new_code\" isn't a valid element name"
        if $new_code =~
          m/[\x00-\x2C\x2F <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10589	10703	
==>ol:
      Carp::croak "\"$new_code\" isn't a valid element name"
        if $new_code =~
          m/[\x00-\x2C\x2F <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13482	13589	
==>c, INTERP -> interpreter
    s/SELF/pmc/g;
    s/\bINTERP\b/interpreter/g;

    # now use macros for all rew <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7086	7190	
==>l} : '';
	my $bad     = ref($options{reject}) eq 'ARRAY' ? join('|', @{$options{reject}})
		    : defined <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24088	24192	
==>l} : '';
	my $bad     = ref($options{reject}) eq 'ARRAY' ? join('|', @{$options{reject}})
		    : defined <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	5552	5651	
==>t;
	
	$self->check_pod;
	
	return $self->{CONTAINS_POD};
}

=item C<num_pod_errors()>

Tells you the <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	835	932	
==>oup('Documentation', '',
            $self->new_item('General information about licences, prerequi <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	233	324	
==>aracter
  %Name2character_number
  %Latin1Code_to_fallback
  %Latin1Char_to_fallback
  e2cha <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	5033	5131	
==>/);
		create_label();
		push(@onlab, $syms[CURR]);
		feedme();
	}
	push @{$code{$seg}->{code}},<<ON <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	712	817	
==>ome places as Win32 paths have \'s in, which qq[] treats as escape sequences.
# Config stuff
our $CC = qq[ <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	670	775	
==>ome places as Win32 paths have \'s in, which qq[] treats as escape sequences.
# Config stuff
our $CC = qq[ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	674	779	
==>ome places as Win32 paths have \'s in, which qq[] treats as escape sequences.
# Config stuff
our $CC = qq[ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809234	809654	
==>GDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 913,
                  "ARGS" => [
                              "s",
                              "p",
                              "k"
                            ],
                  "BODY" = <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	911	1017	
==>[0];
  return undef unless defined $in and length $in;
  
  # Convert to decimal:
  if($in =~ m/^(0[0-7]*)$ <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2270	2376	
==>[0];
  return undef unless defined $in and length $in;
  
  # Convert to decimal:
  if($in =~ m/^(0[0-7]*)$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149610	149908	
==>=> ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 182,
                  "ARGS" => [ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	28940	29038	
==>egular expressions. For example:

	while ( $next = (extract_quotelike($text))[0] )
	{
		# process n <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7743	7864	
==>ing verbatim para at line ${$self}{'line_count'}\n";
          push @{$paras->[-1]}, $line;
        } else {
          ++$ <==
3	/Users/nnunley/parrot/tools/build/vtable_extend.pl	990	1098	
==>ome other compiled language, rather than in Parrot
bytecode) may access.

There is a deliberate distancing fr <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	3965	4048	
==>RROT_STATIC_STR(__LINE__))
#define __PARROT_STATIC_STR(line) CONCAT(&static_string_, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490800	491059	
==>}++;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inc",
                  "FLA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	491421	491680	
==>}++;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inc",
                  "FLA <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	36517	36613	
==>link</A>', "" )

In addition to the quote delimiters C<'>, C<">, and C<`>, full Perl quote-like
q <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321581	321801	
==>2}}->vtable->get_integer(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323937	324157	
==>2}}->vtable->get_integer(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115410	115674	
==>09 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} << {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116265	116529	
==>09 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} << {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117120	117384	
==>09 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} << {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4472	4595	
==>" : "";
    my @ops =
      (
       "ord <rx_tmp>, <rx_input>, <rx_pos> # tmp = INPUT[pos]",
       "ne <rx_tmp>, $code, ". <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714518	714616	
==>ps/python.ops\"\n  STRING * const s = {{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  if ( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715441	715539	
==>ps/python.ops\"\n  STRING * const s = {{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  if ( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9144	9249	
==>tack, $1;
        push @indent_stack,
         int($token->attr('indent') * 4 * $self->normal_halfpoint_si <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	570	669	
==>>

The build prefix. Defaults to ''.

=item C<prefix>

The install prefix. Defaults to '/usr'.

=ite <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	799	898	
==>>

The build prefix. Defaults to ''.

=item C<prefix>

The install prefix. Defaults to '/usr'.

=ite <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955370	955634	
==>MP" => 0,
                  "NAME" => "encodingname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956181	956445	
==>MP" => 0,
                  "NAME" => "encodingname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	15699	15805	
==>_args
  bad_args:
    %% DOMAIN_ERROR %%
  got_args:
END_PIR
   
     $template .= interpolate($code, '$P1' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115158	115442	
==>YPE" => "inline",
                  "CODE" => 143,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 209 \"src/ops/bit.ops\"\n  {{\@1}} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9934	10066	
==>$1}/g; # interpolate
      print $fh $scratch;
      
      if ($tagname eq 'item-number') {
        print $fh $token->attr('number') <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	40637	40736	
==>)

=back

On failure, all of these values (except the remaining text) are C<undef>.

In a scalar con <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105594	105820	
==>2 \"src/ops/bit.ops\"\n  {{\@1}} |= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	106332	106558	
==>2 \"src/ops/bit.ops\"\n  {{\@1}} |= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/config/init/hints/freebsd.pm	375	480	
==>rom FreeBSD's /usr/ports/Mk/bsd.port.mk,
    # which must be assumed to do the right thing.

    my $osver <==
3	/Users/nnunley/parrot/lib/Test/More.pm	6094	6190	
==>ame);

This simply evaluates any expression (C<$this eq $that> is just a
simple example) and uses <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8882	8975	
==>"test.c");
}

=item C<cc_build($cc_args, $link_args)>

These items are used from current confi <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	178	270	
==>le

=head1 SYNOPSIS

	use Parrot::Docs::File;
	my $file = Parrot::Docs::File->new('MANIFEST') <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	119468	119767	
==>ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120323	120622	
==>ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121178	121477	
==>ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	60753	60859	
==>t[7];
    $parser->YYData->{srcname_mtime} = $st[9];
    $parser->_InitLexico();
    $parser->YYData->{f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572928	573017	
==>ct.ops\"\n  PMC *name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_nati <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573838	573927	
==>ct.ops\"\n  PMC *name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_nati <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1055	1165	
==>:run_command( 
            "$PConfig{perl} languages/scheme/schemec languages/$lang_f",
            CD => '..', <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8309	8394	
==>xe8c7b756,/* 2 */
FF,$c,$d,$a,$b,$_[6],17,0x242070db,/* 3 */
FF,$b,$c,$d,$a,$_[7],22,0 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2806	2934	
==>"  $temp = $value");
      $args[$i] = $temp;
    }
    else {
      $args[$i] = $args[$i]->compile($compiler);
    }
  }

  if ( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2506	2634	
==>"  $temp = $value");
      $args[$i] = $temp;
    }
    else {
      $args[$i] = $args[$i]->compile($compiler);
    }
  }

  if ( <==
3	/Users/nnunley/parrot/config/gen/platform.pm	4089	4187	
==>IN_C, "< config/gen/platform/$platform/begin.c" or die "Can't open begin.c: $!";
        print PLAT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811522	811778	
==>table->get_pmc_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812424	812680	
==>table->get_pmc_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	3	93	
==>opyright (C) 2001-2006, The Perl Foundation.
# $Id: /parrot/lib/Parrot/BuildUtil.pm 20321 2 <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1455	1542	
==>${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = "$register_num"
${S <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1982	2069	
==>${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = "$register_num"
${S <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3165	3252	
==>${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = "$register_num"
${S <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2029	2125	
==>uce a start-token
with a "to" attribute with the value "Foo", a "type" attribute with the
value " <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	839	927	
==>RSAL::isa($ident, qw(Jako::Construct::Expression::Value::Identifier));

  my $self = bles <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	803	891	
==>RSAL::isa($ident, qw(Jako::Construct::Expression::Value::Identifier));

  my $self = bles <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39504	39630	
==>'type'   => 'Sub',
    );
    push @opcodes1, new NewClosureOp( $parser,
        'result' => $result,
        'arg1'   => $ <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	16576	16691	
==>ne
    \$P1 = shift iter1
    \$S1 = typeof \$P1
    if \$S1 != 'String' goto got_args
    %% DOMAIN_ERROR %%
  got_ <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	4571	4681	
==>t lines
	s/\n(\# *\n){2,}/\n\#\n/sg; # crush down double blank lines
	s/^\s*(\# *\n)+//s;         # remove lead <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	23633	23737	
==>classname");
        vt_clone->isa_str = CONST_STRING(interp, "$isa");
        vt_clone->does_str = CONST <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	7235	7332	
==>self->{name}";
}

sub nextimplicit($)
{
	my $self = shift;
	my $prodcount = scalar @{$self->{"prod <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	1565	1655	
==>new_item('The licences under which Parrot is distributed.', 'LICENSES/Artistic', 'LICENSES/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833542	833633	
==>.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}}, STACK_ENT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834264	834355	
==>.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}}, STACK_ENT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834990	835081	
==>.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}}, STACK_ENT <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	3791	3929	
==>} = $2;
        }

        # Are we at the end of a heredoc?
        elsif ($in_heredoc && /^$heredoc_terminator\s*$/) {
            # Stas <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23346	23438	
==>gensym();

  $return = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children}} <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23808	23900	
==>gensym();

  $return = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259175	259415	
==>{\@1}} = VTABLE_is_same(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	437	553	
==>unt ) = @_;
 
    
    my $test_prog_args = $ENV{TEST_PROG_ARGS} || q{};
    my $lang_fn        = Parrot::Test::per_t <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	455	565	
==>unt ) = @_;

    my $test_prog_args = $ENV{TEST_PROG_ARGS} || q{};
    my $lang_fn        = Parrot::Test::per_t <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5959	6087	
==>ith_relative_path($rel_path);
        
        # There may be editor scratch files to ignore.
        
        foreach my $file ( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809650	809740	
==>DY" => "#line 507 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_string_keyed(inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810555	810645	
==>DY" => "#line 507 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_string_keyed(inte <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	3581	3718	
==>a::Dumper::VERSION;
    }

    if ($dd_version >= 2.12) {
        *dump = sub {
            my $self = shift;
            Data::Dumper->ne <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937946	938121	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "join",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938835	939010	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "join",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	5947	6042	
==>se we return undef).

See also: get_symbol(), which searches only locally.

=cut

sub find_symbo <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	342	437	
==>td;

my ($DIS, @dis, @source, $file, %opt, $DEFVAR, $cur_func, $lambda_count,
   %main_names, %n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035623	1035713	
==>sult = VTABLE_get_pmc_keyed_str(interpreter, lex_pad, lex_name);\n    if (!result) {\n\trea <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036787	1036877	
==>sult = VTABLE_get_pmc_keyed_str(interpreter, lex_pad, lex_name);\n    if (!result) {\n\trea <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	13163	13267	
==>append_html_suffix($dist->relative_path($file));
    
    # This is the docs file for the module.
    $fi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019841	1019929	
==>char resultbuffer[26];\n  Parrot_localtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuf <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020772	1020860	
==>char resultbuffer[26];\n  Parrot_localtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuf <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3876	3984	
==>alid value for parameter '$prm'");
        $prm=unpack('@2A*',$prm);
		$$outhash{$prm}=$value;
	}
	for (@ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3679	3783	
==>alid value for parameter '$prm'");
        $prm=unpack('@2A*',$prm);
		$$outhash{$prm}=$value;
	}
	for (@ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16837	16971	
==>> 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 94,
			'functioncall <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	563	678	
==>";
   ( $1,  "{\\$2\n",   "/$1",  "}" );
 } @_;
}

my @_to_accept;

%Tagmap = (
 # 'foo=bar' means ('foo' => '{\bar' <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	3341	3449	
==>ase64(&md5);
}


sub encode_base64 ($) {
    my $res;
    while ($_[0] =~ /(.{1,45})/gs) {
	$res .= substr pa <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10033	10171	
==>};
    $symbol = $symbol->{value};
    $lambda = { children => [ { value => 'lambda' },
                              { children => [ @form <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	105	222	
==>) {
    $value = $_[1];
  } elsif(@_ == 3) {
    ($variable, $value) = @_[1,2];
    
    ($variable, $value) = ($value <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4023	4129	
==>= $temp;
  }
  else {
    $left = $left->compile($compiler);
  }

  unless ($right_type->name eq $calc_type <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	11733	11828	
==>ement type is C<'$'>, the value of the element (after
assignment) is returned. If the element ty <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32572	32695	
==>or \${STOREREG} in rule " .
				"$rule->{'name'}\n";
		}

        # Insert typeinfo code if we have any. Note that it has no <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	2656	2779	
==>iler->temp_str();
        $compiler->emit("  $temp2 = $ident");
        $ident = $temp2;
      }

      $compiler->emit("  c <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	1593	1697	
==>est number (it
keeps track of that for you).

  # This produces "ok 1 - Hell not yet frozen over" (or not <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	24183	24303	
==>is PMC as a HLL mapping */
            INTVAL pmc_id = Parrot_get_HLL_id(
                interp, const_string(interp, "$ <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	1986	2097	
==>hit C<ENTER>.

=cut

sub prompt
{
    my ($message, $value) = @_;

    print("$message [$value] ");

    chomp(m <==
3	/Users/nnunley/parrot/config/auto/env.pm	604	702	
==>s->get('verbose');

    my ($setenv, $unsetenv) = (0, 0);

    cc_gen('config/auto/env/test_setenv. <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	26126	26250	
==>{
	if (!$t) {
	    $t = temp('P');
	    print <<EOC;
	$t = P5
EOC
	}
	push @stack, [$name, $t, $rett];
    }
}

sub POP_TOP
{ <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	11343	11454	
==>ty (id) {
      var elem     = document.getElementById("details_"  + id),
          expander = document.getEleme <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	3980	4108	
==>file(
        'config/gen/makefiles/bf.in' => 'languages/bf/Makefile',
        commentType                  => '#',
        repla <==
3	/Users/nnunley/parrot/config/init/defaults.pm	1528	1642	
==>e appropriate.  This setting
        # allows you to override ICU's guess, but is otherwise currently
        # uns <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	43854	43955	
==>he text to be processed and
a prefix to be matched at the very beginning of the text. If no prefix 
is <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	26634	26750	
==>push @stack, [$n, $c, 'P'];
}

sub STORE_FAST
{
    my ($n, $c, $cmt) = @_;
    my $tos = pop @stack;
    $fast[$n] = <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	1416	1531	
==>y $line = 0;
    print <<"HEADER";
/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is ge <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4442	4543	
==>ODE
	},
	'or' => sub {
		my($a1,$a2,$result,$op,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356286	356516	
==>=> "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 416 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563905	563994	
==>BODY" => "#line 183 \"src/ops/object.ops\"\n  VTABLE_add_method(interpreter, {{\@1}}, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564803	564892	
==>BODY" => "#line 183 \"src/ops/object.ops\"\n  VTABLE_add_method(interpreter, {{\@1}}, {{\@ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	4445	4680	
==>= sprintf( '\x%02x', ord $_ );
                        }
                        elsif ( ord $_ >= 128 ) {
                            $str .= sprintf( '\u%04x', ord $_ );
                        }
                        elsif ( $ <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	5335	5459	
==>';
   } else {
       $svn_cmd = 'svk';
   }

   # Find all directories in the Parrot distribution
   my %dir_list  = map { m <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37449	37566	
==>for C<$params>.

=cut

sub signature
{
    my ($self, $params) = @_;

    my $n=1;
    my @types = grep {$n++ & 1 ? $_ <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	2901	3040	
==>P0['monadic:+']      =  "    noop"             # conjugate
    $P0['monadic:|']      =  "    %1 = abs %1"      # magnitude
    $P0['monadic: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787932	788021	
==>> "#line 422 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed_int(inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788842	788931	
==>> "#line 422 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed_int(inte <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	2483	2605	
==>ould you like?', $pmc_list);
        }
    }

    # XXX:leo do we really need an interactive step for this
    # user could <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	2007	2108	
==>arations which would not
    # have been properly formatted, unfortunately.
    my $fdecls = $c->get(' <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	8318	8428	
==>. '
	my $repeating =  defined($_[2]) && $_[2];
	my $_noactions = defined($_[3]) && $_[3];
 	my @arg =        de <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1350	1444	
==>pe).
dec ${ITEMP0}
${PTEMP0} = ${STYPES}[${ITEMP0}]

# Assign register name.
${STEMP0} = "$"
${ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3060	3154	
==>pe).
dec ${ITEMP0}
${PTEMP0} = ${STYPES}[${ITEMP0}]

# Assign register name.
${STEMP0} = "$"
${ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595703	596062	
==>ject_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 675,
                  "ARGS" => [
                              "p",
                              "p <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5750	5847	
==>print "Else was done, skipping...\n";
			} else {
				push @{$code{$seg}->{code}}, "IFBRANCH_$_:\n <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8098	8193	
==>print "Else was done, skipping...\n";
		} else {
			push @{$code{$seg}->{code}}, "IFBRANCH_$_:\n <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1717	1821	
==>rompt($prompt, $prog ? $prog : $conf->data->get($util));
    }

    my ($stdout, $stderr, $ret) = capture <==
3	/Users/nnunley/parrot/config/inter/make.pm	1591	1695	
==>rompt($prompt, $prog ? $prog : $conf->data->get($util));
    }

    my ($stdout, $stderr, $ret) = capture <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1731	1835	
==>rompt($prompt, $prog ? $prog : $conf->data->get($util));
    }

    my ($stdout, $stderr, $ret) = capture <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	4690	5029	
==>) {
                            $str .= '\"';
                        }
                        else {
                            $str .= $_;
                        }
                    }
                    $value = "\"$str\"";
                }
                elsif ( $type eq 'boolean' ) {
                    $value = ( $v <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	47554	47650	
==>position of the input variable would be set to
"exit;" (i.e. I<after> the closing delimiter of th <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	393	486	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub new {
  my $self = shift;
  m <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	3244	3377	
==>eam}->{data}->($f_out),
            };

            ## run the command and capture the exit code
            my $exit_code = Parrot::T <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37115	37217	
==>matchrule,
	}, $class;
}

sub code($$$$)
{
	my ($self, $namespace, $rule) = @_;
	
	my ($subrule, $repsp <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	37043	37149	
==>@pobox.comE<gt>.

This program is free software; you can redistribute it and/or 
modify it under the same t <==
3	/Users/nnunley/parrot/lib/Test/More.pm	37452	37558	
==>@pobox.comE<gt>.

This program is free software; you can redistribute it and/or 
modify it under the same t <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	6412	6518	
==>@pobox.comE<gt>.

This program is free software; you can redistribute it and/or 
modify it under the same t <==
3	/Users/nnunley/parrot/config/init/defaults.pm	6552	6669	
==>');
    unless (defined $prefix) {
        my $VERSION = $conf->data->get('VERSION');
        my $DEVEL   = $conf->dat <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	2199	2306	
==>hed?\n";
	return;
    }
    if ($ret != $expect) {
	print STDERR "TEST FAILED: $file (got $ret expected $exp <==
3	/Users/nnunley/parrot/editor/ops2vim.pl	46	152	
==>asename qw/basename/;


my $cline = my $prefix = 'syn keyword pirOp';

my %seen;

## make sure files have b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10570	10799	
==>T",
                  "NAME" => "bsr",
                  "FLAGS" => ":base_core,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11358	11587	
==>T",
                  "NAME" => "bsr",
                  "FLAGS" => ":base_core,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inl <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	33654	33780	
==>ke under 5.8.0
        # ithreads.  So we have to fill them in by hand. :(
        my $empty_result = &share({});
        for m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423111	423389	
==>"FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 486 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	4927	5038	
==>ce_arrayref'} } ) {
        DEBUG and print "That's it for that source arrayref!  Killing.\n";
        $self->SU <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	1076	1173	
==>t, 'pairs' => [@_]);
}

=item C<c_item($text, %contents)>

Returns a new C source and/or header fi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	68699	68891	
==>{{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "collectoff",
                  "FL <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	12892	13032	
==>me=revision>
                r<tmpl_var name=revision>
              </tmpl_if>
            </td>
            <td class="leftsep"><tmpl_var n <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	2402	2509	
==>0..255) {
        printf "0x%.4x, ", classify($char);
        print "/* @{[$char-$len+1]}-$char */\n" if $ch <==
3	/Users/nnunley/parrot/config/auto/inline.pm	1136	1298	
==>);
        }
        if ($test) {
            print " ($test) " if $verbose;
            $self->set_result('yes');
        } else {
            print " no " if $ve <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	15029	15135	
==>e();
		if ($syms[CURR] eq "," or 
			$type[CURR] eq "STMT" or $type[CURR] eq "COMP") {
			print CODE<<EQ;
@ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9764	9858	
==>C}" != "73" goto pre_call_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEMP2}
pre_call_NOT_CTOR_${CUR <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7278	7372	
==>C}" != "73" goto pre_call_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEMP2}
pre_call_NOT_CTOR_${CUR <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6242	6336	
==>C}" != "73" goto pre_call_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEMP2}
pre_call_NOT_CTOR_${CUR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356662	356834	
==>/io.ops\"\n  PIO_eprintf(interpreter, INTVAL_FMT, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357322	357494	
==>/io.ops\"\n  PIO_eprintf(interpreter, INTVAL_FMT, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27923	28026	
==>terp, int, int);
EOC
    $self->{hdecls} .= $hout;
    $self->{hdecls};
}

=item C<gen_h($out_name)>

Ge <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	1157	1268	
==>t_tests()
##
## Convert the tests to a usable form.
##
sub convert_tests {
    print "Converting tests\n";
    m <==
3	/Users/nnunley/parrot/config/init/defaults.pm	3972	4097	
==>ebug => '',

        # Way to decorate a function to mark it as an exportable or
        # importable symbol.
        sym_expo <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	15801	15917	
==>', [ '<tmp>', $i, $ibacks[$i] ]);
    }

    push @ops, aop('goto', [ $ibacks[-1] ]);
    push @ops, $next;

    retu <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	43880	43981	
==>, 2, 0, 0);
	return _generate(@_);
}

sub _no_rule ($$;$)
{
	_error("Ruleless $_[0] at start of gramma <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Compilers.pm	707	821	
==>>new_group( 'IMCC', 'the Intermediate Code Compiler for Parrot',
            'compilers/ast',
            'compil <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7292	7401	
==>post_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If the register name to load from <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5114	5223	
==>post_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If the register name to load from <==
3	/Users/nnunley/parrot/config/gen/PodText.pm	1312	1436	
==>};
        $parser->parse_from_file($pod, $plain);

        # append a header to the generated plain text
        open(my $fh <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	3555	3658	
==>k (Str $module, :$todo, :$depends) is export {
    my $caller = caller().package;

    eval "package $ca <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	10683	10777	
==>ch = _match_variable($textref,$pre);

	return _fail wantarray, $textref unless @match;

	return <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	384	488	
==>Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $left, $right) = @_;

  confess("Blo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	375	479	
==>Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $left, $right) = @_;

  confess("Blo <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	33476	33569	
==>l whitespace and a missing text defaults to C<$_>. However, a missing
delimiter specifier defa <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3888	4001	
==>$group_files) {
        compile("$group", "lib-$group")
          or die "compile $group.c failed ($?)\n";
    }
} <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3992	4105	
==>$group_files) {
        compile("$group", "lib-$group")
          or die "compile $group.c failed ($?)\n";
    }
} <==
3	/Users/nnunley/parrot/config/gen/cpu/x86_64/auto.pm	48	142	
==>ad1 DESCRIPTION

Adds -fPIC to x86_64 (AMD64) ccflags, if necessary.

=cut

package gen::cpu::x <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	12651	12785	
==>&& do {
        push @{$temps_ref}, "STRING *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_S($ <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	12858	12992	
==>&& do {
        push @{$temps_ref}, "STRING *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_S($ <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	13343	13477	
==>&& do {
        push @{$temps_ref}, "STRING *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_S($ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	57020	57149	
==>( $_[0], $_[1] );
            BuildCallMethod( $_[0], $obj, $_[3], $_[4] );
        }
	],
	[#Rule 89
		 'functioncall', 2,
s <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27585	27713	
==>LSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 139,
			'functioncall' => 31,
			'functio <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	1613	1718	
==>a short

Taken from an I register

=item i

Parameter is an int

Taken from an I register

=item l

Parame <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	2331	2458	
==>$arg->{option} ? undef: "string" );
        $arg->{default}     = $5;
        $arg->{repeating}   = $6 eq "+";

        die "Opt <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3277	3375	
==>)->u.string",
    'kc' => "CONST(%ld)->u.key",
    'kic' => "cur_opcode[%ld]"
);

=item C<access_ar <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2186	2281	
==>)->u.string",
  'kc'  => "CONST(%ld)->u.key",
  'kic' => "cur_opcode[%ld]"
);

=item C<access_ar <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9448	9549	
==>See if we've got a return or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# I <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6962	7063	
==>See if we've got a return or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# I <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5518	5619	
==>See if we've got a return or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# I <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1403	1518	
==>seen ne 'inline') {
        $compiler->emit(".sub __INLINE_" . $inline++);
        $compiler->indent;

        $last <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881313	881516	
==>",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!des <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882418	882621	
==>",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!des <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	15578	15682	
==>er->exported_to() || '';
            # die Dumper( $code, $expected, $desc, \%extra, $extra{todo}, $call_ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	18129	18233	
==>er->exported_to() || '';
            # die Dumper( $code, $expected, $desc, \%extra, $extra{todo}, $call_ <==
3	/Users/nnunley/parrot/config/inter/libparrot.pm	755	855	
==>->get('parrot_is_shared');

    $parrot_is_shared =
        integrate($conf->data->get('parrot_is_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6683	6796	
==>n =~ s{(^")|("$)}{}g;
    $fnlib =~ s{(^")|("$)}{}g;
    $name =~ s/^.*:://;

    if ($type) {
      $handler->sta <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218819	218913	
==>e(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) > 0) {\n    { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219798	219892	
==>e(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) > 0) {\n    { <==
3	/Users/nnunley/parrot/config/gen/icu.pm	3170	3297	
==>rs not defined or invalid\n";
        $ok = 0;
    } else {
        $icuheaders =~ s![\\/]$!!;
        foreach my $header (@icu_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6637	6719	
==>T_BRANCH_switch_${CURIC}_LOOP
POST_BRANCH_switch_${CURIC}_LOOP_EXIT:

POST_BRANCH_N <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4575	4657	
==>T_BRANCH_switch_${CURIC}_LOOP
POST_BRANCH_switch_${CURIC}_LOOP_EXIT:

POST_BRANCH_N <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1638	1762	
==>oin( ' ',
                    File::Spec->join($path_to_parrot,$self->{parrot}), 
                    File::Spec->join($path_ <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	603	721	
==>oin( ' ',
                 File::Spec->join($path_to_parrot,$self->{parrot}), 
                 File::Spec->join($path_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1632	1718	
==>erToken>, L<Pod::Simple>, L<Pod::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2799	2885	
==>erToken>, L<Pod::Simple>, L<Pod::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1919	2005	
==>erToken>, L<Pod::Simple>, L<Pod::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9938	10047	
==>me
# off the stack last to first, but need to be first to last in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7452	7561	
==>me
# off the stack last to first, but need to be first to last in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6416	6525	
==>me
# off the stack last to first, but need to be first to last in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759619	759857	
==>PE" => "inline",
                  "CODE" => 857,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 281 \"src/ops/set.ops\"\ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7165	7255	
==>"reg_type_short"]
${DEST0} = concat ${STEMP0}
${STEMP0} = stack_depth
${DEST0} = concat ${S <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4987	5077	
==>"reg_type_short"]
${DEST0} = concat ${STEMP0}
${STEMP0} = stack_depth
${DEST0} = concat ${S <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90825	91098	
==>ps/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91679	91952	
==>ps/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92533	92806	
==>ps/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	3765	3887	
==>f $btaste eq 'Film,     'new() works' );

    ok( $btaste->Title      eq 'Bad Taste',     'Title() get'    );
    ok( $btas <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27247	27361	
==>p' => 138,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'prim <==
3	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1604	1712	
==>, DEBUG => 0);

    my $driver = Regex::Driver->new('pir', emit_main => 1);

    print $PIR <<"END";
# Regula <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	923123	923347	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	923799	924023	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924589	924813	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8465	8621	
==>out, $err) {
            if (   (defined($_))
                && ($_ ne File::Spec->devnull)
                && (!m/^&/)) {
                open(my $out, $_) <==
3	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	1365	1501	
==>m_chunk .= "\n";

            # bracket the verbatim chunk with whitespace.
            push @output, [ 1, q{} ];
            push @outpu <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11064	11169	
==>"
end if

' Expect correct
t=1
if t then
	print "Correct"
else 
	print "Wrong"
end if

' Factorial of 5 is <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183309	183424	
==>5 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184205	184320	
==>5 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185101	185216	
==>5 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3598	3700	
==>n has no fnlib property, and parent block is not a module!")
        unless $self->block->kind eq 'modu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6262	6364	
==>n has no fnlib property, and parent block is not a module!")
        unless $self->block->kind eq 'modu <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	48680	48770	
==>or quotelike operations. That is, C<extract_codeblock>
is like a combination of C<"extract_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	12439	12569	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT|PARROT_JU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25641	25771	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT|PARROT_JU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1027487	1027617	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT|PARROT_JU <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	5775	5933	
==>o|fail)$/) {
                    next BBLOCK;
                }
            }
	    $prev = $stmt;
	    $stmt = $stmt->{next};
	} while ($stmt && ! $stmt->{labe <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3817	3920	
==>}

  if (($dest_ident->kind eq 'var') and ($dest_ident->scope eq 'global')) {
    my $pmc_type = $dest_i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4725	4828	
==>}

  if (($dest_ident->kind eq 'var') and ($dest_ident->scope eq 'global')) {
    my $pmc_type = $dest_i <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12824	12942	
==>ELF           # Macro: DYNSELF
      \(\s*(.*?)\)      # capture argument list
     /"pmc->vtable->$method(" . full_arg <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6023	6127	
==>eq "select") {
			my $s=pop @selects;
			feedme;
			print CODE "CASE_$s->{jump}_$s->{incase}:\n";
			prin <==
3	/Users/nnunley/parrot/lib/Test/More.pm	14287	14387	
==>fail>

  pass($test_name);
  fail($test_name);

Sometimes you just want to say that the tests have pa <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	3550	3692	
==>];$cmt\n"; 
            $arrays{$name}++;
        }
        elsif( $type eq '%' ){
            $out .= "    croak 'Initializer for $name must b <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8399	8505	
==>lo","Again",d
dim c$(1)
for i = 1 to 20 : read c$(i) : next
print
for i = 1 to 20 step 4
  print c$(i);tab$ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21263	21369	
==>lo","Again",d
dim c$(1)
for i = 1 to 20 : read c$(i) : next
print
for i = 1 to 20 step 4
  print c$(i);tab$ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	14882	15000	
==>lasspiece' => 48
		}
	},
	{#State 31
		DEFAULT => -40,
		GOTOS => {
			'classpieces' => 51
		}
	},
	{#State 32
		DEFAUL <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26648	26756	
==>$sourceline\n"
	}
	my $sub=$syms[CURR];
	barf();
#	print STDERR "Processing call $sub\n";
	($result, $type, @ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	337	436	
==>atement::Assign;

use Carp;

use base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2591	2698	
==>);

  $block->push_content($self);

  return $self;
}

# block handled by superclass?

sub kind  { return sh <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	14393	14500	
==>def_arg_" . ($n-$i-1);
	    print <<EOC;
	# $gn $g
	store_global "${f}_$gn", $g
EOC
	    unshift @{$def_args <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2708	2814	
==>);

  $block->push_content($self);

  return $self;
}

# block handled by superclass?

sub kind { return sh <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	46516	46631	
==>tokens, even the first
    if( !ref($p->[$i]) ) {
      if($p->[$i] =~ s/\n$//s) {
        DEBUG > 5 and print "_ver <==
3	/Users/nnunley/parrot/lib/Test/More.pm	35230	35341	
==>use threads;
    use Test::More;

This may cause problems:

    use Test::More
    use threads;


=item Test::Ha <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	804	894	
==>e>

In C<source> mode, it uses a the C<cxref> program
(L<http://www.gedanken.demon.co.uk/cx <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319990	320131	
==>dotgnu.ops\"\n  {{\@1}} = (INTVAL)((Parrot_Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320760	320901	
==>dotgnu.ops\"\n  {{\@1}} = (INTVAL)((Parrot_Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/config/auto/readline.pm	185	280	
==>e lib

=head1 DESCRIPTION

Determines whether the platform supports readline.

=cut

package aut <==
3	/Users/nnunley/parrot/lib/Test/More.pm	25302	25414	
==>array or hash instead 
of a reference to it
WARNING
        chop $msg;   # clip off newline so carp() will put in <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7144	7239	
==>t "Inval  (0): ", instr(4, bogus$, "t")
' instr() tests
s1$="Mixed case"
print ucase$(s1$);" Upp <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18873	18968	
==>t "Inval  (0): ", instr(4, bogus$, "t")
' instr() tests
s1$="Mixed case"
print ucase$(s1$);" Upp <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	1128	1237	
==>epr__ => '__get_repr',
    __str__ => '__get_string',
    __cmp__ => 41,		# MMD_CMP
);

# the new way type sys <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	16380	16485	
==>se:
  return $self->_get_item_type($para);
}



sub _get_item_type {       # mutates the item!!
  my($self <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2261	2362	
==>d end_foo_bar_baz.

See the source for Pod::Simple::Text for an example of using this class.

=head1 S <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86907	87372	
==>IRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 108,
                  "ARGS" => [
                              "p",
                              "p",
                              "p",
                              "s"
                            ] <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	5169	5299	
==>ratch = $token->text);
        print $fh $scratch;
        next;
      }

      DEBUG > 1 and print "  $type " , $token->text, "\n" <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	2136	2254	
==>fined in package $class"
        if do { no strict 'refs'; defined &{$class . "::new"} };

    my @methods = ();
    my <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	696	802	
==>ht
get an object of this class.

This is a subclass of L<Pod::Simple::PullParserToken> and inherits all its <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1122	1228	
==>ht
get an object of this class.

This is a subclass of L<Pod::Simple::PullParserToken> and inherits all its <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	602	708	
==>ht
get an object of this class.

This is a subclass of L<Pod::Simple::PullParserToken> and inherits all its <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	5394	5533	
==>'contents' => ['src/encodings']
            ),
            $self->c_header_item('', 'unicode'),
            $self->c_item(
                ' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19160	19260	
==>ut:

  =head1 NAME
  
  Hooboy, stuff B<wow> yeah!

then $parser->get_short_title on that document wi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2265	2380	
==>type = $arg_sym->type; 
    }
    else {
      $actual_arg_type = $args[$i]->type;
    }

    $self->INTERNAL_ERROR( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1965	2080	
==>type = $arg_sym->type; 
    }
    else {
      $actual_arg_type = $args[$i]->type;
    }

    $self->INTERNAL_ERROR( <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	3158	3247	
==>lastlinenum} = $parser->{offsetlinenum}
			   - Parse::RecDescent::_linecount(substr($pars <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	33925	34043	
==>[0] eq ''; # should never happen!
          DEBUG > 1 and print
           qq{Catching "$treelet->[$i][1]{'to'}" as a c <==
3	/Users/nnunley/parrot/tools/util/pirtidy.pl	479	587	
==>e;

    my $formatter = new Parrot::PIR::Formatter();

    foreach my $line (<$ifh>) {
      $formatter->add_ <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	1452	1563	
==>y $file (@files) {
    $file =~ s/^\.\///g;
    if (!open(F, "<$file")) {
        error($file, 0, "Unable to ope <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	14960	15068	
==>y @tempi = grep { defined $temp[$_] } 0..$#$args;
        my $temp_decl = join("\n    ", map { "$temp[$_]->[0 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	5843	5950	
==>'line_count'}\n";
      $self->{'in_pod'} = 0;
      # ++$self->{'pod_para_count'};
      $self->_ponder_par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	489692	489956	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 561,
                  "ARGS" => <==
3	/Users/nnunley/parrot/lib/Test/More.pm	34828	34925	
==>ference.  This is good.

However, it does mean that functions like is_deeply() cannot be used to
t <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15610	15701	
==>($assignto, $type, @left)=generate_code($opts{lhs},@stream);	# Generate PASM code stream
		f <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	36424	36559	
==>_;
    my @opcodes1 = ();
    my @opcodes2 = ();
    my $defn;
    if ( $idf eq '...' ) {
        $defn = new defn( 'vararg', 'loca <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	870	982	
==>uiet in tests.
    my $title = shift || 'Untitled';
    my $navigation = shift || '';
    my $resources = shift | <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1358	1467	
==>ant
    *Pod::Simple::DEBUG = sub () { $$variable } ;
    $$variable = $value;
    print "# Starting Pod::Simp <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	6637	6795	
==>akefile',
        commentType                     => '#',
        replace_slashes                 => 1
    );
    genfile(
        'config/gen/makefiles/scheme <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	1512	1630	
==>?)" if ( $cur eq -1 or $cur eq "\n");
			append;
			fetch;
		}
		append;
		$curtok=~s/^"|"$//g;    # Remove quote marks <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	15643	15758	
==>',
		'qw'	=> '',
		'qr'	=> '[imsx]*',
		'q'	=> '',
	     );

sub extract_quotelike (;$$)
{
	my $textref = $_[0] ? \$ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	8108	8207	
==>/) {  # No arg version
		@e=EXPRESSION();
	}
	push @{$code{$seg}->{code}},<<CLS;
	_screen_clear()
CL <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21569	21664	
==>el = $self->_gensym();

  $return = $self->_constant(1);
  my $temp = $self->_generate($node->{c <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21954	22049	
==>el = $self->_gensym();

  $return = $self->_constant(1);
  my $temp = $self->_generate($node->{c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303626	303878	
==>CODE" => 353,
                  "ARGS" => [
                              "i",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 980 \"src/ops/cmp.ops\"\n  {{\@1}} = s <==
3	/Users/nnunley/parrot/config/init/defaults.pm	575	688	
==>e verbose prefix);

sub runstep
{
    my ($self, $conf) = @_;

    # We need a Glossary somewhere!
    $conf->data <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	1882	1976	
==>splay count of ops that can be translated.
print "Currently able to translate " . scalar(@rules <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1092048	1092404	
==>=> 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iter",
                  "FLAGS" => <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	5538	5649	
==>turn 0 if $Rargs[$_] ne $Sargs[$_] };
	return 1;
    }
}

# sub add_checks
#
# Augments the tree with length che <==
3	/Users/nnunley/parrot/config/auto/inline.pm	365	457	
==>re::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining if your c <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	15484	15600	
==>.= "{$body_part\n}";
            push @{ $self->{mmd_variants}{$meth} },
                [ $right_type, $sub_meth_nam <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959269	959355	
==>ine 590 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960071	960157	
==>ine 590 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, { <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	46	139	
==>.
# $Id: /parrot/config/auto/gmp.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

co <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	10316	10439	
==>my <rx_mode> = shift;
#     my (<rx_input>, <rx_pos>, <rx_stack>);
#     my \%rx_match;
#     if (<rx_mode>) {
#         (<r <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1672	1772	
==>1 NAME

Pod::Simple::SimpleTree -- parse Pod into a simple parse tree 

=head1 SYNOPSIS

  % cat ptes <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8652	8779	
==>= 0
#DBG>			and	do {
#DBG>				print STDERR "**End of Error recovery.\n";
#DBG>				$dbgerror=0;
#DBG>			};

			    push(@$s <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8262	8383	
==>= 0
#DBG>			and	do {
#DBG>				print STDERR "**End of Error recovery.\n";
#DBG>				$dbgerror=0;
#DBG>			};

			    push(@$s <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20516	20628	
==>d = 1;
		last;
	}

';
	return $code;
}

1;

package Parse::RecDescent::Action;

sub describe { undef }

sub setha <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	16297	16410	
==>/', $cmt);
}
sub BINARY_DIVIDE
{
    my ($n, $c, $cmt) = @_;
    binary('/', $cmt);
}
sub BINARY_POWER
{
    my ($ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3379	3482	
==>ft;

    keys %{$self->{STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
}

sub YYLexer {
    my($self)=sh <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3209	3306	
==>ft;

    keys %{$self->{STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
}

sub YYLexer {
    my($self)=sh <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11347	11444	
==>NO_RETURN_${CURIC}:

# Finished.
goto PRE_CALL_END_${CURIC}

# It's a return. See if we have a ret <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8533	8630	
==>NO_RETURN_${CURIC}:

# Finished.
goto PRE_CALL_END_${CURIC}

# It's a return. See if we have a ret <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	152	239	
==>eter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm 19606 2006-05-30T <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	2646	2775	
==>lemented'})) {
            # Do nothing.

        # Have we got a non-blank line when we've got no method specified yet?
        } <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3126	3223	
==>my $self = $_[0];
  return $self->do_middle if $self->bare_output;
  return
   $self->do_beginning <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4495	4592	
==>my $self = $_[0];
  return $self->do_middle if $self->bare_output;
  return
   $self->do_beginning <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	6052	6161	
==>q 'start' ) {
      if(($tagname = $token->tagname) eq 'L') {
        esc($type = $self->do_link($token)); # r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029710	1029807	
==>\"src/ops/sys.ops\"\n  opcode_t *next = {{^+2}};\n  if ({{\@1}} < 0.0) {\n      real_exception(int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030552	1030649	
==>\"src/ops/sys.ops\"\n  opcode_t *next = {{^+2}};\n  if ({{\@1}} < 0.0) {\n      real_exception(int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722411	722522	
==>er, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=3}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723440	723551	
==>er, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=3}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724484	724595	
==>er, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=3}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14327	14637	
==>S" => ":base_loop",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 19,
                  "ARGS" => [
                              "i"
                            ],
                  "BOD <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	12340	12440	
==>elf, $source) = (@_);

  if(!defined $source) {
    Carp::croak("Can't use empty-string as a source f <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	36259	36356	
==>@result = extract_bracketed( $text, '<">' );

returns:

	( '<A HREF=">>>>">', 'link</A>', "" )

as <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8382	8507	
==>RR" or die "Can't restore  stderr" if $err;

    if ($verbose) {
        foreach ($out, $err) {
            if (   (defined($_ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	22808	22923	
==>er_test($PConfig{exe}, $test_no);  
            $exe_f =~ s@[\\/:]@$PConfig{slash}@g;
            my $out_f = per_te <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	8839	8941	
==>}    
  return sort keys %{ $this->{'accept_targets'} } if wantarray;
  return;
}

#@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	109	220	
==>al $VERSION;    # make the alpha version come out as a number


use Test::Builder;
my $Test = Test::Builder->new <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7184	7288	
==>($reg) ? $reg : 'pos');
    return $self->output_pushint($reg);
}

sub output_pushint {
    my ($self, $r <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6826	6930	
==>($reg) ? $reg : 'pos');
    return $self->output_pushint($reg);
}

sub output_pushint {
    my ($self, $r <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2373	2478	
==>cut

sub gen_goto
{
    my ($self, $where_str) = @_;
    return "return $where_str";
}

=item C<expr_pop() <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	11819	11916	
==>ntly not implemented, so you will have to wait
a little while. Until then, you can just write your <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20456	20551	
==>subclass), then there's no reason to
bother subclassing to add a C<run> method.

=head1 SEE ALSO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811457	811547	
==>BODY" => "#line 512 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed(inter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812359	812449	
==>BODY" => "#line 512 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed(inter <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	651	774	
==>ult)
                      2 Real time using POSIX::times()
   -n -nobench        skip benchmarks matching regexes (multiple <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	17367	17484	
==>dvancing from dynalt[%<$counter>]/%<$N>\n"),
                 aop('add', [ $counter, 1 ]),
		 aop('ge', [ $counter, $N <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8101	8206	
==>Ok"
else
	print "All is not right"
end if

' Count from 9 to 0, print 5
dim y(10)
i=10
tloop:
	y(i)=i
	i=i <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	539	641	
==>ount);
    my $out_f     = Parrot::Test::per_test('.out',$count);
    my $parrotdir = dirname $self->{p <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	576	678	
==>ount);
    my $out_f     = Parrot::Test::per_test('.out',$count);
    my $parrotdir = dirname $self->{p <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	16326	16454	
==>h my $func ( keys %pir_2_pasm_test_map ) {
        push @EXPORT, $func;
        no strict 'refs';

        *{$package.'::'.$func} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2170	2278	
==>nted to shadow the
  # previous definition.
  #

  if (defined $sym and $sym->block eq $block) {
    $self->S <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1917	2025	
==>nted to shadow the
  # previous definition.
  #

  if (defined $sym and $sym->block eq $block) {
    $self->S <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	116	228	
==>";
}

sub output_terminate {
    return "terminate";
}

sub output_increment {
    my $var = shift;
    return "$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498244	498663	
==>RGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 572,
                  "ARGS" => [
                              "n",
                              "n",
                              "nc"
                            ],
                  "BO <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1927	2110	
==>$N1 = $I5;                    # iton   N1, I5
$N1 = $N1 / $N2;              # div    N1, N1, N2
$N2 = 1000000.0;              # set    N2, 1000000.0
$N1 = $N1 / $N2;              # div <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	1927	2110	
==>$N1 = $I5;                    # iton   N1, I5
$N1 = $N1 / $N2;              # div    N1, N1, N2
$N2 = 1000000.0;              # set    N2, 1000000.0
$N1 = $N1 / $N2;              # div <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494355	494616	
==>ps\"\n  {{\@1}} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495223	495484	
==>ps\"\n  {{\@1}} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496091	496352	
==>ps\"\n  {{\@1}} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93383	93656	
==>{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ban <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94163	94436	
==>{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ban <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	2868	2976	
==>e form
    #  { label => optional_label, code => original_op }
    # and construct a mapping from label names <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8338	8463	
==>hem
    } else {
      $Name2character{$name} = chr $number;
      # normal case
    }
  }
  # So they resolve 'right' even in <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	7011	7191	
==>le',
        commentType                    => '#',
        replace_slashes                => 1,
        conditioned_lines              => 1
    );
    genfile(
        'languages/t <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	7235	7415	
==>le',
        commentType                    => '#',
        replace_slashes                => 1,
        conditioned_lines              => 1
    );
    genfile(
        'languages/t <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	28379	28475	
==>rs after the
extracted string). On failure, the entire string is returned.

=item [2]

The skippe <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7233	7329	
==>$line, "Improper indenting for \"$_\"\n(should be \"#$indent$2\" because it is inside of " . (joi <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7540	7636	
==>$line, "Improper indenting for \"$_\"\n(should be \"#$indent$2\" because it is inside of " . (joi <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7898	7994	
==>$line, "Improper indenting for \"$_\"\n(should be \"#$indent$2\" because it is inside of " . (joi <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6434	6563	
==>igger};

    my $verbose = defined $self->get('verbose') && $self->get('verbose') == 2;

    print "Removing trigger $trigger on c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807869	807956	
==>set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed(interpreter, {{\@2}}, {{\@3}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808774	808861	
==>set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed(interpreter, {{\@2}}, {{\@3}} <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	8957	9064	
==>~ m/\G(?:$ignore)/gc)
		{
			next;
		}
		elsif ($bad && $$textref =~ m/\G($bad)/gcs)
		{
			pos($$textref) - <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661920	662006	
==>rc/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662836	662922	
==>rc/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(i <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	4797	4919	
==>s*\*\s+\b| \*|gs;
        
        esc($text);
    }
    
    print {$self->{'output_fh'}} $text;
}

=item C<process_file_s <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	688	779	
==>R_CHAR_NUMBER = ord($FAR_CHAR) unless defined $FAR_CHAR_NUMBER;

$NOT_ASCII = 'A' ne chr(65) <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1936	2038	
==>ously:
    $x =~ s/([^-\n\t \&\<\>\'!\#\%\(\)\*\+,\.\/\:\;=\?\~\[\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxy <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8785	8874	
==>o_cstring(interpreter, {{\@1}});\n    struct PackFile_FixupEntry *fe = PackFile_find_fixup <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9901	9990	
==>o_cstring(interpreter, {{\@1}});\n    struct PackFile_FixupEntry *fe = PackFile_find_fixup <==
3	/Users/nnunley/parrot/config/init/defaults.pm	4393	4510	
==>dynamic linking?
        has_static_linking => 1,
        has_dynamic_linking => 0,

        # default behaviour for l <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	1465	1577	
==>ase.', 'RELEASE_INSTRUCTIONS'),
        ),
        $self->new_group('Legal', '',
            $self->new_item('The <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	2909	3009	
==>ven, then that
# many tokens (at most, given the possibility of running of the end) are
# returned. I <==
3	/Users/nnunley/parrot/config/auto/env.pm	491	605	
==>rgs        = qw(verbose);

sub runstep
{
    my ($self, $conf) = (shift, shift);

    my $verbose = $conf->options- <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	539	646	
==>rgs = qw(verbose);

sub runstep
{
    my ($self, $conf) = (shift, shift);

    my $verbose = $conf->options- <==
3	/Users/nnunley/parrot/config/auto/msvc.pm	500	607	
==>rgs = qw(verbose);

sub runstep
{
    my ($self, $conf) = (shift, shift);

    my $verbose = $conf->options- <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	851	1106	
==>rations:    $I4\n"; # print  "Iterations:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	851	1106	
==>rations:    $I4\n"; # print  "Iterations:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	17871	18016	
==>_output =~ s/^\s*$//gm;
                $real_output =~ s/[\t ]+/ /gm;
                $real_output =~ s/ +$//gm;

                $expected =~ s/ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1990	2089	
==>xpression involves unknown variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1948	2047	
==>xpression involves unknown variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1870	1969	
==>xpression involves unknown variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1565	1663	
==>er );


my $b = Test::Builder->new();

my $path_to_parrot = $INC{"Parrot/Config.pm"};
$path_to_parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202742	202838	
==>\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203673	203769	
==>\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204604	204700	
==>\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}} <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	2792	2910	
==>ch;
		while($cur =~ /\w/) {
			append;
			fetch;
		}
		emit("BARE");
		until($cur eq "\n" and $next eq "_" and $afterne <==
3	/Users/nnunley/parrot/config/auto/va_ptr.pm	58	147	
==>rrot/config/auto/va_ptr.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	815172	815415	
==>1}} = PMCNULL;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "nu <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2461	2543	
==>/mops.cs>,
F<examples/mops/mops.il>,
F<examples/mops/mops.p6>,
F<examples/mops/mops <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	2461	2543	
==>/mops.cs>,
F<examples/mops/mops.il>,
F<examples/mops/mops.p6>,
F<examples/mops/mops <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126677	126876	
==>r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127812	128011	
==>r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128947	129146	
==>r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	10244	10370	
==>=> "d",
  "STRING*"  => "S",
  "char*"    => "t",
  "PMC*"     => "P",
  "short*"   => "2",
  "int*"     => "3",
  "long*"    = <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	2852	2951	
==>print STDERR "$errors parse errors.  " if ($errors);
    print STDERR "Found " . scalar(keys %$typed <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	18163	18256	
==>you haven't started pulling tokens
from yet:

=over

=item my $title_string = $parser->get_tit <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	6321	6430	
==>calls}    ? ($totals{covered_calls} / $totals{calls} * 100)       : 0));
    
    print OUT page_header("Parro <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1693	1794	
==>>emit("  $temp_pmc = global \"$ident_name\"");
    $compiler->emit("  $temp_reg = $temp_pmc");

    re <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	340	437	
==>e.pl 

=head1 DESCRIPTION

This script runs a coverage test and then generates HTML reports. It re <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2497	2604	
==>onstant, we will place its
  # definition into the block at the top of the block stack. We fill in the
  # I <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2244	2351	
==>onstant, we will place its
  # definition into the block at the top of the block stack. We fill in the
  # I <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	72467	72562	
==>lf->{startcode}

{
local \$SIG{__WARN__} = sub {0};
# PRETEND TO BE IN Parse::RecDescent NAMESPA <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6643	6790	
==>ub(target)

            unless match goto match_fail
          match_success:
            print "matched"
            goto match_end
          match <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7661	7807	
==>ub(target)
            unless match goto match_fail
          match_success:
            print "matched"
            goto match_end
          match <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	16563	16665	
==>eturn$params", "pcf_${return}_$params" ) :
        ( "$return", "pcf_${return}" ));

    push @{$put_po <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	4435	4530	
==>lf->_add_inst ('', 'set',[$return,$value]);
    }
    elsif ($value =~ /^[-+]?((\d+\.\d*)|(\.d+) <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7233	7328	
==>>

Runs the specified command. Output is directed to the file specified by
C<$out>, warnings and <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3454	3546	
==>lf->_add_inst ('', 'set', [$return,$value]);
  }
  elsif ($value =~ /^[-+]?((\d+\.\d*)|(\.d+) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437192	437511	
==>,
                  "TYPE" => "inline",
                  "CODE" => 501,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 94 \"src/o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38421	38542	
==>{
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39285	39406	
==>{
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11352	11579	
==>P_ENEXT",
                  "NAME" => "bsr",
                  "FLAGS" => ":base_core,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	309	426	
==>DESCRIPTION

Call HQ9plus.pbc

=head1 METHODS

=head2 new

=cut

sub new {
    return bless {};
}

my %language_test_m <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	5838	5935	
==>_index {
    print "Writing $HTMLDIR/index.html..\n" if $DEBUG;
    open (OUT, ">$HTMLDIR/index.ht <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	862	976	
==>t + 1;

        # flatten filenames (don't use directories)
        my $lua_test = $ENV{PARROT_LUA_TEST_PROG} || <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26696	26800	
==>continue = new_label($parser);
    my $l_break    = new_label($parser);
    push @opcodes, new LabelOp( <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27581	27685	
==>continue = new_label($parser);
    my $l_break    = new_label($parser);
    push @opcodes, new LabelOp( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	12875	13005	
==>> 20
		},
		DEFAULT => -21,
		GOTOS => {
			'@1-1' => 21
		}
	},
	{#State 11
		ACTIONS => {
			"?" => 23,
			'CHAR' => 4,
			"<" => <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	6301	6407	
==>h my $d (@_) {
    next unless defined $d and length $d;
    Carp::croak "\"$d\" isn't a valid directive na <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	7095	7201	
==>h my $d (@_) {
    next unless defined $d and length $d;
    Carp::croak "\"$d\" isn't a valid directive na <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	19256	19373	
==>h signature has an unknown type. I am sure someone can come up
      with a neater way to do this.
     */
    ns = st <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	24994	25107	
==>$2;
    my $elements_one;
    $elements_one = defined($3) ? $3 : $1;

    DEBUG > 2 and print "Extensor has good s <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1468	1568	
==>dule} ||= "Regex::CodeGen::IMCC";

    if ($options{module} ne 'Regex::CodeGen::IMCC') {
      eval " <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1920	2021	
==>ion.
sub gen_label() {
	# This is a good place (as we call gen_label before translating
	# every instr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	912	1008	
==>confess "Op is not scalar!" if ref $op;
  confess "Right is not Value!" unless UNIVERSAL::isa($ri <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	924	1020	
==>confess "Op is not scalar!" if ref $op;
  confess "Right is not Value!" unless UNIVERSAL::isa($ri <==
3	/Users/nnunley/parrot/examples/benchmarks/oo5.pl	142	269	
==>ew {
    my $self = ref $_[0] ? ref shift : shift;
    return bless [ 10, 20 ], $self;
}

sub i {
    my $self = shift;
    if ( <==
3	/Users/nnunley/parrot/examples/benchmarks/oo6.pl	134	261	
==>ew {
    my $self = ref $_[0] ? ref shift : shift;
    return bless [ 10, 20 ], $self;
}

sub i {
    my $self = shift;
    if ( <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	5754	5877	
==>e "Invalid argument signature char '$_' on line $. of $ARGV"
                unless exists $sig_char{$_};
            push @ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088267	1088476	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089214	1089423	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o", <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6032	6128	
==>ire('open-bracket');  }
sub require_open_paren    { return shift->require('open-paren');    }
sub <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10606	10718	
==>ched
	croak("Error in driver logic. Please, report it as a BUG");

}#_Parse
#DO NOT remove comment

1;

} <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11884	11994	
==>. $super_table->{$method} . "_$method";

    # Rewrite DYNSUPER(args)
    s/DYNSUPER          # Macro: DYNSUPER <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10130	10234	
==>ched
	croak("Error in driver logic. Please, report it as a BUG");

}#_Parse
#DO NOT remove comment

1;

} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288246	288417	
==>"
                            ],
                  "BODY" => "#line 935 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289102	289273	
==>"
                            ],
                  "BODY" => "#line 935 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289958	290129	
==>"
                            ],
                  "BODY" => "#line 935 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LA <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	14711	14829	
==>ace{$f} => $vtables{$f}
	}
	else {
	    print <<EOC;
	# $namespace{$f}
	# addattribute P5, "$f"
EOC
	}
    }
    else { <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	242	356	
==>9Z coke  $
#

use strict;
eval "use warnings 'all';";

package Jako::Symbol;

use Carp;


#
# CONSTRUCTOR:
#

sub n <==
3	/Users/nnunley/parrot/lib/File/Which.pm	6028	6127	
==>the current directory to the front of PATH if on
Win32, VMS or MacOS. I have no knowledge of those s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43089	43346	
==>n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pushmark",
                  "FLAGS" => "", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43732	43989	
==>n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pushmark",
                  "FLAGS" => "", <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	32082	32224	
==>et->[$i]; # recurse
        next;
      }
      
      
      # By here, $treelet->[$i] is definitely an L node
      DEBUG > 1 and print "Ogli <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764365	764651	
==>setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 863,
                  "AR <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	1899	2019	
==>ros) {
        $typedefs->{$_}="#defined";
    }
    
    
    # post-process the file to find function declarations whic <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12087	12174	
==>char('sol')>, C<e2char('47')>,
C<e2char('0x2F')>, and C<e2char('057')> all return "/",
b <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1769	2020	
==>me:  $N2\n"; # print  "Elapsed time:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 = $N1 / $N2;              # div    N1, N1, N <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	1769	2020	
==>me:  $N2\n"; # print  "Elapsed time:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 = $N1 / $N2;              # div    N1, N1, N <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42380	42599	
==>});\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912795	913026	
==>"i",
                              "s",
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_inde <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5566	5671	
==>er_num/$register_num/g;
		$register_num++;
	}

    # Need to emit code to do any lazy moves that we've not <==
3	/Users/nnunley/parrot/lib/File/Which.pm	3820	3910	
==>ches the directories of the user's C<PATH> (as returned by
C<File::Spec-E<gt>path()>), look <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10047	10162	
==>e = $conf->options->get('verbose');

    if (defined($_[0]) && length($_[0])) {
        local $" = ' ';
        _run <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10628	10743	
==>e = $conf->options->get('verbose');

    if (defined($_[0]) && length($_[0])) {
        local $" = ' ';
        _run <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	6243	6354	
==>pening bracket(s): "
				. join("..",@nesting)."..",
		         pos $$textref;
		pos $$textref = $startpos;
		re <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26372	26490	
==>op @{$fors[$scopes]};
				next;
			}
			last;
		}
	}
}
sub parse_call {
	# Subroutines are disguised as user-defined fu <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39658	39757	
==>meth, "$sig"$arg);
    $ret
}

EOC
}

package Parrot::Pmc2c::deleg_pmc;
use base 'Parrot::Pmc2c';
im <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528628	528842	
==>ops\"\n  {{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529510	529724	
==>ops\"\n  {{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	530392	530606	
==>ops\"\n  {{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5779	5897	
==>in(',',map { $$_[0] } @$stack).
#DBG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defined($$tok <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5504	5616	
==>in(',',map { $$_[0] } @$stack).
#DBG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defined($$tok <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	42	139	
==>use strict;
use Pod::Simple ();
use vars qw(@ISA $VERSION);
$VERSION = '2.02';
@ISA = ('Pod::Simpl <==
3	/Users/nnunley/parrot/languages/urm/urm-old.pl	1214	1319	
==>register{$1} == $2) {$pos = $3;} else {$pos++}
    }
    elsif ($line =~ /(r\d) *<- *(\d+)/) {
	$register{ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1683	1786	
==>$pattern)
        : Parrot::Test::PGE::_generate_pir_for($target, $pattern)
    );

    goto &Parrot::Te <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2206	2309	
==>$pattern)
        : Parrot::Test::PGE::_generate_pir_for($target, $pattern)
    );

    goto &Parrot::Te <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	43132	43265	
==>lf->{code} .= "\n";
  }
}

sub new {
  my $class = shift;
  my $tree  = shift;
  my $self = {
    tree     => $tree,
    regs     => _ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	36698	36817	
==>pspec)\" can never
					   succeed, since optional items always
					   match (zero times at worst). 
					   Did you me <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	44237	44354	
==>e(@args);
    }
  } else {
    my $value = $node->{value};
    if ($value =~ /^[a-zA-Z]/) {
      $return = $self->_fi <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	27901	28046	
==>('goto', [ $back ]),
          $db_start => $self->dbprint("-> $desc ENTER\n"),
                       @ops,
                       $self->dbprint <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	35964	36107	
==>> 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36222	36365	
==>> 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79 <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	32932	33032	
==>stance, if C<$text> contained the string:

	"if ('./cmd' =~ m/$UNIXCMD/s) { $cmd = $1; }"
	
then afte <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	11540	11649	
==>}', '\{', '\}', 0)
		or $deref eq '$#' or $deref eq '$$' )
	    {
		_failmsg "Bad identifier after dereference <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	20615	20715	
==>er($no_header);

If set to true, no "1..N" header will be printed.

=item B<no_ending>

    $Test->no <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28035	28132	
==>the C header file code for the PMC. C<$out_name> is the name
of the output file we are generating. <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	5095	5240	
==>m' => undef,
             'i_setjmp' => 'define',
             'i_sfio' => undef,
             'i_sgtty' => undef,
             'i_shadow' => unde <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	18668	18794	
==>r.y"
{
     my $op = op('rule' => [ 'default', $_[1], 1 + $::paren ]);
     $::paren = 0; # FIXME!
     return $op;
   }
	],
	[ <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	3718	3817	
==>ation) = return_data;\n    set_nci_S(interpreter, &st, final_destination);",
#      B => "PObj_bufst <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28920	29020	
==>cribe ($) { shift->{'description'} }

sub new ($$$$)
{
	my $class = ref($_[0]) || $_[0];

	my $patter <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31000	31100	
==>cribe ($) { shift->{'description'} }

sub new ($$$$)
{
	my $class = ref($_[0]) || $_[0];

	my $patter <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	42900	43036	
==>ACTIONS => {
			'END' => 200
		}
	},
	{#State 189
		DEFAULT => -4,
		GOTOS => {
			'block' => 201,
			'chunk' => 57
		}
	},
	{ <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	572	675	
==>::Vtable;

use strict;
use warnings;

use base qw( Exporter );

use FileHandle;

our @EXPORT = qw(parse_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543614	543912	
==>cm",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 6 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544949	545247	
==>cm",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 6 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546285	546583	
==>cm",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 6 <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1133	1268	
==>$lang_f",
            CD => '..', # $self->{relpath}, 
            STDOUT => $pasm_f, STDERR => $pasm_f,
        );
        Parrot::Test <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1042	1177	
==>$lang_f",
            CD => '..', # $self->{relpath}, 
            STDOUT => $pasm_f, STDERR => $pasm_f,
        );
        Parrot::Test <==
3	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	1165	1259	
==>`$N2PConfig::parrot -o $out_name $out_name.pir`;
	unlink "$out_name.pir";
	if ($output) {
		pri <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	6245	6355	
==>label}->{reachable}; # Keep if reachable
	}
	push @output3, $stmt if $keeping;
    }

    # Reset the 'next' po <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	66798	66891	
==>ubrule match with invalid repetition specifier", 0,$line);
					_error("Incorrect specificatio <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492753	492978	
==>ps/math.ops\"\n  {{\@1}} = intval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493514	493739	
==>ps/math.ops\"\n  {{\@1}} = intval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	648	856	
==>e_hires { time() }

$I2 = 0;                      # set    I2, 0
$I3 = 1;                      # set    I3, 1
$I4 = 10000000;              # set    I4, 10000000
                              #
print "Iteration <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4581	4690	
==>$self->op('nop', [], %$self);
    } elsif (@{ $self->{args} } == 1 && 2 == keys %$self) {
        return $self <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5718	5827	
==>$self->op('nop', [], %$self);
    } elsif (@{ $self->{args} } == 1 && 2 == keys %$self) {
        return $self <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	705	810	
==>ad1 SYNOPSIS

 require 5;
 use strict;
 package SomePodFormatter;
 use base qw(Pod::Simple::Methody);
 
 s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	634	723	
==>. ") is not Identifier!") unless UNIVERSAL::isa($dest, 'Jako::Construct::Expression::Value <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	625	714	
==>. ") is not Identifier!") unless UNIVERSAL::isa($dest, 'Jako::Construct::Expression::Value <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	514	603	
==>. ") is not Identifier!") unless UNIVERSAL::isa($dest, 'Jako::Construct::Expression::Value <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops.pm	50	164	
==>rk {
    my $name = shift || '';
    my $number = ++$MARKERS{$name};
    $number = '' if ($number == 1) && ($name n <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2682	2796	
==>rk {
    my $name = shift || '';
    my $number = ++$MARKERS{$name};
    $number = '' if ($number == 1) && ($name n <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	43189	43282	
==>([A-Z]{1,8}\.[A-Z]{3})} /\L$1\E/; '

	extract_quotelike ' tr/\\\/\\\\/\\\//ds; '

the full Per <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4331	4443	
==>s as a BUG: Cannot open $fname";
	while(<DRV>) {
                	/^\s*sub\s+_Parse\s*{\s*$/ .. /^\s*}\s*#\s*_P <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4111	4221	
==>s as a BUG: Cannot open $fname";
	while(<DRV>) {
                	/^\s*sub\s+_Parse\s*{\s*$/ .. /^\s*}\s*#\s*_P <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	23479	23621	
==>ong',
				       '!' => 'single',  '#' => 'double',
				       '$' => 'string'  );
			my $ut="";
			if ($syms[NEXT] eq "as") {
				feedme;	# "a <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	7280	7391	
==>partial_link {
    my ($group, $libs, $stems) = @_;

    my @sources = map { "$_$O" } @$stems;
    if (needs_bui <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7491	7602	
==>partial_link {
    my ($group, $libs, $stems) = @_;

    my @sources = map { "$_$O" } @$stems;
    if (needs_bui <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	55827	55955	
==>[#Rule 79
		 'primary', 1,
sub
#line 428 "Lua\lua51.yp"
{
            BuildLiteral( $_[0], $_[1], 'number' );
        }
	] <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	32249	32374	
==>\n";
        
      # bitch if it's empty
      if(  @{$treelet->[$i]} == 2
       or (@{$treelet->[$i]} == 3 and $treelet->[$ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	42659	42776	
==>\n";

      # bitch if it's empty
      if(  @{$treelet->[$i]} == 2
       or (@{$treelet->[$i]} == 3 and $treelet->[$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	26804	27030	
==>ops\"\n  {{\@1}} = parrot_new_closure(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	923	1033	
==>n undef unless defined $in and length $in;
  
  # Convert to decimal:
  if($in =~ m/^(0[0-7]*)$/s ) {
    $in = <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2282	2392	
==>n undef unless defined $in and length $in;
  
  # Convert to decimal:
  if($in =~ m/^(0[0-7]*)$/s ) {
    $in = <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1908	2007	
==>($path);
}

=back

=head2 Instance Methods

=over 4

=item C<create_path()>

This is called from C<n <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	885	984	
==>($path);
}

=back

=head2 Instance Methods

=over 4

=item C<create_path()>

This is called from C<n <==
3	/Users/nnunley/parrot/config/auto/cgoto.pm	1080	1177	
==>e_ops_cgp.h',
            TEMP_cg_c => <<'EOF',
$(OPS_DIR)/core_ops_cg$(O): $(GENERAL_H_FILES) $(O <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10167	10306	
==>@formals ] },
                              _get_args ($node, 2) ] };
  }
  else {
    $symbol = _get_arg($node,1)->{value};
    $lambda = _ <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	4169	4278	
==>k
    push @blocks, [shift @pc_list ];

    # change instructions at block leaders to enternative calls
    su <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	12283	12386	
==>ctory and issue the same command.
  </p>

  <p>
    Note that old smoke reports are automatically delete <==
3	/Users/nnunley/parrot/examples/benchmarks/fib.pl	440	545	
==>n fib($n-1) + fib($n-2);
}
my $N = shift || 28;

print "fib($N) = ", fib($N), "\n";

=head1 SEE ALSO

F<ex <==
3	/Users/nnunley/parrot/config/gen/icu.pm	3694	3797	
==>icu        Build parrot without ICU support
   --icu-config=(file)  Location of icu-config
   --icuheade <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2477	2567	
==>em C<ops_addr_decl($base_suffix)>

Optionally implemented in subclasses to return the C cod <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760945	761208	
==>NAME" => "setp_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761797	762060	
==>NAME" => "setp_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
3	/Users/nnunley/parrot/Configure.pl	1452	1545	
==>o the compiler flags.

=item C<--inline>

Tell Configure that the compiler supports C<inline>. <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6791	6897	
==>was_blank'} = 1;
      
    } elsif($self->{'last_was_blank'}) {  # A non-blank line starting a new para... <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3777	3878	
==>OR("Sub declaration has no fnlib property, and parent module has no fnlib property either!")
        u <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6441	6542	
==>OR("Sub declaration has no fnlib property, and parent module has no fnlib property either!")
        u <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	23654	23770	
==>elet, $i, 1); # just nix this node (and its descendants)
        --$i;  # back-update the counter
      } elsif($is e <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28972	29079	
==>'} =~ /\$\{DEST0\}/ &&
		         $rule->{'instruction'} =~ /\$\{LOADREG\}/) {
			die "pir must use one of \ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095640	1095866	
==>,
                  "TYPE" => "inline",
                  "CODE" => 1215,
                  "ARGS" => [
                              "sc"
                            ],
                  "BODY" => "#line 223 \"src/ops/experime <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7785	7882	
==>RE, BITS
}

sub _match_tagged	# ($$$$$$$)
{
	my ($textref, $pre, $ldel, $rdel, $omode, $bad, $igno <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	4703	4816	
==>f, $desc, $todo, "An exception was thrown : $!", :$depends);
    }
    else {
        &Test::ok.goto(1, $desc, :$t <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	219	322	
==>$VERSION = eval $VERSION;    # make the alpha version come out as a number

# Make Test::Builder thread- <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	457	552	
==>e::Step ':auto';

$description = 'Determining if your platform supports gdbm';

@args = qw(verbo <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	43983	44071	
==>et_args($node);
	$return = $self->_call_function_sym($symbol, @args);
	$self->_restore(@a <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	14372	14487	
==>ND_EH_LOOP
    eh = ehs[i]
    
    # If this is the start of a try block, emit a push_eh instruction.
    try_offse <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	9325	9436	
==>]}\": $!\n";

  my $data   = eval { fd_retrieve $fh };
  $data    ||= [MAX_RATE, BURST];
  my $bucket = Algorith <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	974	1088	
==>iver;

require 5.004;

use strict;

use vars qw ( $VERSION $COMPATIBLE $FILENAME );

$VERSION = '1.05';
$C <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	946	1051	
==>iver;

require 5.004;

use strict;

use vars qw ( $VERSION $COMPATIBLE $FILENAME );

$VERSION = '1.05';
$C <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	13712	13816	
==>efore you can continue.

It is also possible to use the `force_todo()` function to do large scale
TODO-in <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	2131	2259	
==>ee->max, $tree->greedy,
                                 $self->convert($tree->thing, $ctx) ]);
}

sub convert_rx_meta {
    my ( <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	58584	58690	
==>hidden by method
				       Parse::RecDescent::$rulename",$line)
				and
				_hint("The rule named \"$rulen <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8736	8849	
==>push @formal_args, [ $arg_type, $arg_name, $arg_token ];

          last if $self->skip_close_paren;

          $s <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2387	2468	
==>F<examples/benchmarks/mops.pasm>,
F<examples/mops/mops.c>,
F<examples/mops/mops.cs <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	2387	2468	
==>F<examples/benchmarks/mops.pasm>,
F<examples/mops/mops.c>,
F<examples/mops/mops.cs <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	542	635	
==>PullParser

=head1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head1 DESCRIPTION

When you do <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	961	1054	
==>PullParser

=head1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head1 DESCRIPTION

When you do <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	448	541	
==>PullParser

=head1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head1 DESCRIPTION

When you do <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	11328	11447	
==>", pos $$textref;
		pos $$textref = $startpos;
		return;
	    }
	    my $deref = $1;

	    unless ($$textref =~ m/\G\s*( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948860	948966	
==>Parrot_string_trans_charset(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949660	949766	
==>Parrot_string_trans_charset(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1781	1879	
==>f = shift;

    return $self->{ARGS}[shift];
}

=item C<goto_address($address)>

Transforms the C<g <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1396	1494	
==>f = shift;

    return $self->{ARGS}[shift];
}

=item C<goto_address($address)>

Transforms the C<g <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3689	3782	
==>ch will also search (recursively) parent blocks'
symbol tables.

TODO: We should generate real <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255934	256354	
==>GDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 298,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" = <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	21756	21894	
==>.def";

        # Does the DEF file already exist?
        my $defexists = -e $deffile;

        # Open the file to append to it.
        m <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1466	1579	
==>| '';
        $ccflags =~ s/-O1 // if $cc_output =~ m/Standard/ || $cc_output =~ m{/ZI};
        $ccflags =~ s/-Gf <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494024	494344	
==>"i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 567,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 590 \"src/ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	472	574	
==>cript is used for building
dynamic PMCs.

=cut

use strict;

use File::Copy qw(copy);

# qq[] isn't gua <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	434	536	
==>cript is used for building
dynamic PMCs.

=cut

use strict;

use File::Copy qw(copy);

# qq[] isn't gua <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	8228	8328	
==>ept_targets'}{$t} = $type;
    DEBUG > 2 and print "Learning to accept \"$t\" as target of type $type <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	839557	839813	
==>+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rotate_up",
                  "FLAG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840251	840507	
==>+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rotate_up",
                  "FLAG <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	13845	13982	
==>=> 0
	},
	{#State 19
		DEFAULT => -4,
		GOTOS => {
			'block' => 64,
			'chunk' => 57
		}
	},
	{#State 20
		ACTIONS => {
			"=" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937421	937731	
==>se_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1054,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => " <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	4472	4574	
==>:proclaim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
}

## lives ok

sub lives_ok (C <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	542	637	
==>) ] );

Exporter::export_ok_tags('ALL');

# PROTOTYPES

sub _match_bracketed($$$$$$);
sub _match <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2666	2799	
==>s );
        if ($CC =~ /gcc/i) {
            $liblist =~ s/gdbm\.lib/-llibgdbm/i;
        }
        my $extraLibs = '-lm -lgmp -lread <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2461	2594	
==>s );
        if ($CC =~ /gcc/i) {
            $liblist =~ s/gdbm\.lib/-llibgdbm/i;
        }
        my $extraLibs = '-lm -lgmp -lread <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	2790	2888	
==>uration and installing.', 'MANIFEST.generated'),
            $self->new_item('Specifies the files t <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11087	11174	
==>3" goto pre_call_HAS_RETURN_${CURIC}
goto pre_call_NO_RETURN_${CURIC}
pre_call_HAS_RETUR <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8273	8360	
==>3" goto pre_call_HAS_RETURN_${CURIC}
goto pre_call_NO_RETURN_${CURIC}
pre_call_HAS_RETUR <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5935	6022	
==>3" goto pre_call_HAS_RETURN_${CURIC}
goto pre_call_NO_RETURN_${CURIC}
pre_call_HAS_RETUR <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	5584	5708	
==>pcodes1, new LocalDir( $parser, 
        'result' => $result,
    );
    push @opcodes1, new NewOp( $parser,
        'res <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576513	576600	
==>tring_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577525	577612	
==>tring_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846207	846489	
==>chr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 960,
                  "AR <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	11710	11870	
==>esting.
            my $code_f;
            if ( $func =~ m/^pir_output/ ) {
                $code_f = per_test('.pir', $test_no);
            }
            elsi <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	1863	1967	
==>^(typedef|struct|enum|extern)/, @funcs;

    # Variables are of no use to us
    @funcs = grep !/=/, @fun <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28525	28636	
==>= BuildLiteral( $parser, 1, 'number' );
    }
    push @opcodes, @{ $e_start->[1] };
    push @opcodes, @{ $e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943815	943902	
==>> "#line 516 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_charset_number_of_str(interprete <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944604	944691	
==>> "#line 516 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_charset_number_of_str(interprete <==
3	/Users/nnunley/parrot/config/auto/format.pm	243	341	
==>or C<sprintf()>.

=cut

package auto::format;

use strict;
use vars qw($description @args);

use ba <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	4294	4389	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

#sub curr_open { # read-only list accessor
#  return @{ $_[0] <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	1188	1277	
==>pod'),
			$self->new_item('', 'docs/mmd.pod'),
			$self->new_item('', 'docs/strings.pod'), <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947114	947206	
==>if (n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\"charset '%Ss' not found\", {{\@2}}) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948016	948108	
==>if (n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\"charset '%Ss' not found\", {{\@2}}) <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24848	24949	
==>ay, $textref,
				$match[2], $match[3]+$match[5]+$match[7],	# MATCH
				@match[8..9,0..1,2..7];				# R <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	476	576	
==>ds in
PDD 7.

To run it on all the C source code files in the distribution pass in
C<all_source> inst <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7680	7779	
==>ay, $textref,
			$match[2], $match[3]+$match[5]+$match[7],	# MATCH
			@match[8..9,0..1,2..7];				# R <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932538	932674	
==>"sc"
                            ],
                  "BODY" => "#line 415 \"src/ops/string.ops\"\n  {{\@1}} = string_upcase(interpreter, <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeDumb.pm	708	822	
==>}

sub make_transcoder {
  my($e) = $_[1];
  die "WHAT ENCODING!?!?" unless $e;
  my $x;
  return sub {;
    #forea <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeSmart.pm	438	550	
==>}

sub make_transcoder {
  my($e) = $_[1];
  die "WHAT ENCODING!?!?" unless $e;
  my $x;
  return sub {
    forea <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6795	6905	
==>s.
sub pre_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If we need a destination, we <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4733	4843	
==>s.
sub pre_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If we need a destination, we <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	7835	7941	
==>1 <= $#foo)?$foo[$t+1]:undef) );
		if ($this->[0] eq '-' and $this->[1] eq "PUN") {
			if (! defined $prev- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021761	1022037	
==>eter, &tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dec <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022603	1022879	
==>eter, &tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dec <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023452	1023728	
==>eter, &tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dec <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	913	1025	
==>nstance.

=cut

sub new
{ 
    return bless { }, shift; 
}

=back

=head2 Instance Methods

=over 4

=item C<pref <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22184	22291	
==>ression::Value->new($block, $self->require_value);

        $self->require_close_paren;
      }

      $self <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23117	23224	
==>ression::Value->new($block, $self->require_value);

        $self->require_close_paren;
      }

      $self <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24763	24869	
==>ression::Value->new($block, $self->require_value);
        $self->require_close_paren;
      }

      $self <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	17939	18045	
==>un tests without a plan!  Gotta have a plan.");
    }

    lock($self->{Curr_Test});
    $self->{Curr_Test} <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	18804	18910	
==>un tests without a plan!  Gotta have a plan.");
    }

    lock($self->{Curr_Test});
    $self->{Curr_Test} <==
3	/Users/nnunley/parrot/tools/build/vtable_extend.pl	102	202	
==>ble( 'vtable.tbl' );

my ($funcs, $protos) = vtbl_embed( $vtable );

my $header = <<'EOH';
/* ex: set <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404718	405027	
==>);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405630	405939	
==>);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406542	406851	
==>);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	9074	9166	
==>@_; $op->{args}->[1]->startset() }
sub hasback { my ($op) = @_; $op->{args}->[1]->hasback() } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216896	216982	
==>462 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) > {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217836	217922	
==>462 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) > {{\@ <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	293	393	
==>N

This script creates F<src/jit_cpu.c>. It parses the JIT file for the
specified CPU architecture ty <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13719	13814	
==>=~ /<autoscore/
				? "an <autoscore> (which acts like an unconditional <reject> during parsing) <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20735	20840	
==>, [ $matchcount, 1 ]),
     $check => aop('lt', [ $matchcount, $min, $local_back ]),
      $next => $self- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19312	19403	
==>self->current_block();
      my $left = Jako::Construct::Expression::Value::Identifier->new( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20394	20485	
==>self->current_block();
      my $left = Jako::Construct::Expression::Value::Identifier->new( <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2935	3049	
==>ess)>

Returns the C code for C<restart ADDRESS($address)>.

=cut

sub restart_address
{
    my ($self, $addr) = @_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3804	3918	
==>ess)>

Returns the C code for C<restart ADDRESS($address)>.

=cut

sub restart_address
{
    my ($self, $addr) = @_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3534	3648	
==>ess)>

Returns the C code for C<restart ADDRESS($address)>.

=cut

sub restart_address
{
    my ($self, $addr) = @_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	28727	28847	
==>elet->[$i]} == 2
           or (@{$treelet->[$i]} == 3 and $treelet->[$i][2] eq '')
      ) {
        $self->whine( $star <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	32308	32424	
==>elet->[$i]} == 2
       or (@{$treelet->[$i]} == 3 and $treelet->[$i][2] eq '')
      ) {
        $self->whine( $star <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	42710	42826	
==>elet->[$i]} == 2
       or (@{$treelet->[$i]} == 3 and $treelet->[$i][2] eq '')
      ) {
        $self->whine( $star <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062531	1062626	
==>>root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpreter, ns_root, {{\@2}});\n    {{\@1} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063400	1063495	
==>>root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpreter, ns_root, {{\@2}});\n    {{\@1} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064270	1064365	
==>>root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpreter, ns_root, {{\@2}});\n    {{\@1} <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64195	64327	
==>2)
					{
						my $pos = pos $grammar;
						substr($grammar,$pos,0,
						       "<leftop: $name $2 $name>($1) ");

						pos $gram <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9972	10085	
==>ified relative path is a file.

=cut

sub relative_path_is_file
{
    my $self = shift;
    my $path = $self->path <==
3	/Users/nnunley/parrot/config/auto/signal.pm	1745	1851	
==>ignal.pasm";
    print O <<"EOF";
# DO NOT EDIT THIS FILE.
#
# This file is generated automatically by conf <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	5761	5879	
==>o do their own checking.
#
# Without this, /abc/ would compile to
#  check(1)
#  match(a)
#  check(1)
#  match(b)
#  ch <==
3	/Users/nnunley/parrot/config/gen/platform.pm	5512	5614	
==>->data->get('platform_asm')) {
        my $asm_file = "config/gen/platform/$platform/asm.s";
        if <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	4170	4271	
==>$class->VERSION;
    return "$class $v (" . __PACKAGE__ . " $VERSION)";
  }
}

#@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	371505	371594	
==>a(pio);\n    if (!io)\n\treal_exception(interpreter, NULL, PIO_ERROR,\n\t\t\"Cannot read l <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	609	711	
==>rot::OpLib::core;
use Parrot::Config;
use Parrot::Key;

my $trans = Parrot::OpTrans::Compiled->new;

us <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4374	4469	
==>ush_num} = ${STEMP0}

# Increment dtypes index.
inc ${ITEMP0}
PIR
		$pir =~ s/\$push_num/$push_n <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2790	2885	
==>ush_num} = ${STEMP0}

# Increment dtypes index.
inc ${ITEMP0}
PIR
		$pir =~ s/\$push_num/$push_n <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	13784	13900	
==>thod
  
  if(!defined $source)             { $source = *STDIN{IO}
  } elsif(ref(\$source) eq 'GLOB') { # stet
  } els <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4087	4191	
==>command requires destination";
    my $dest = $1;

	my $core_suffix;
    foreach $core_suffix (values %co <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	36190	36283	
==>desc;
	if ($subrule=~/\A_alternation_\d+_of_production_\d+_of_rule/)
		{ $desc = $parser->{"ru <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693305	693690	
==>",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 779,
                  "ARGS" => [
                              " <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	5838	5948	
==>f ($func_info{$arg}{flags} & 0x20) {  # GENERATOR flag
	for (my $i = 0; $i < @params; ++$i) {
	    my $p = $par <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	36125	36222	
==>ication, then that type of quote will be correctly handled.
for example, if C<$text> is:

	$text = <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1131	1246	
==>arser->YYData->{nb_info} ) {
        $parser->YYData->{nb_info}++;
    }
    else {
        $parser->YYData->{nb <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676014	676100	
==>73 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_integer(interpreter, {{\@1}}, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676794	676880	
==>73 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_integer(interpreter, {{\@1}}, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814529	814754	
==>ops/set.ops\"\n  {{\@1}} = 0;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	815779	816004	
==>ops/set.ops\"\n  {{\@1}} = 0;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
3	/Users/nnunley/parrot/lib/Test/More.pm	27373	27488	
==>REF SCALAR GLOB Regexp)) {
        return $type if UNIVERSAL::isa($thing, $type);
    }

    return '';
}


=head2 D <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544301	544425	
==>_var2 = b; \n\n if(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545637	545761	
==>_var2 = b; \n\n if(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546973	547097	
==>_var2 = b; \n\n if(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\ <==
3	/Users/nnunley/parrot/Configure.pl	6600	6707	
==>)    Use the given type for FLOATVAL
   --opcode=(type)      Use the given type for opcodes
   --ops=(files) <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	53824	53927	
==>lly reset to 1 (under C<-w>, a warning is issued if the argument 
has to be reset).

=item 4.

A value i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288302	288424	
==>" => "#line 935 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289158	289280	
==>" => "#line 935 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290014	290136	
==>" => "#line 935 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/config/gen/platform.pm	4745	4866	
==>defined $verbose && $verbose == 2;
            open IN_C, "< $impl_file" or die "Can't open $impl_file: $!";
            p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599630	600005	
==>s",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 679,
                  "ARGS" => [
                              "p",
                              "k"
                            ],
                  "BODY" => " <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3725	3841	
==>put_label_use($dest);
}

sub output_unless {
    my ($self, $reg, $dest) = @_;
    $reg = value($reg);
    return "un <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	24994	25091	
==>elf->{msg}.'},Parse::RecDescent::linenum($thisline)];'; 
		}
	}
	else	  # GENERATE ERROR MESSAGE D <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	2231	2368	
==>ch', [0,1,0,$children[0]]);
            } else {
                @{ $t->{args} } = @children;
                return rop('multi_match', [0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8826	8913	
==>uct PackFile_FixupEntry *fe = PackFile_find_fixup_entry(interpreter,\n\t    enum_fixup_l <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9942	10029	
==>uct PackFile_FixupEntry *fe = PackFile_find_fixup_entry(interpreter,\n\t    enum_fixup_l <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4724	4834	
==>mcs) =~ /--destination=(.*)/
      or die "copy command requires destination";
    my $dest = $1;

    my ($gro <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4828	4938	
==>mcs) =~ /--destination=(.*)/
      or die "copy command requires destination";
    my $dest = $1;

    my ($gro <==
3	/Users/nnunley/parrot/lib/Test/More.pm	20772	20868	
==>lock must have
the label C<SKIP>, or Test::More can't work its magic.

You don't skip tests which <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775075	775281	
==>"p",
                              "ki",
                              "ic"
                            ],
                  "BODY" => "#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_i <==
3	/Users/nnunley/parrot/config/gen/config_h.pm	1588	1706	
==>int HH "#undef  PARROT_HAS_HEADER_\U$1\n";
        }
    }

    print HH "\n#define BUILD_OS_NAME \"$^O\"\n";

    my $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1832	1926	
==>::Simple::SimpleTree -MData::Dumper -e \
     "print Dumper(Pod::Simple::SimpleTree->new->parse <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11009	11100	
==>, $super, $super_table)>

Rewrites the method body performing the various macro substitution <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11411	11502	
==>, $super, $super_table)>

Rewrites the method body performing the various macro substitution <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26234	26369	
==>};
        push @opcodes, new BranchOp( $parser,
            'result' => $l_end,
        );
        push @opcodes, new LabelOp( $par <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	25725	25844	
==>};
    push @opcodes, new BranchOp( $parser,
        'result' => $l_end,
    );
    push @opcodes, new LabelOp( $par <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	813	923	
==>tch {
    my ($self, $class) = @_;
    return "re_match_class P0, $class";
}

sub output_start {
    my ($self, <==
3	/Users/nnunley/parrot/config/auto/msvc.pm	1783	1897	
==>($msvcversion >= 14.00) {

        # Version 14 (aka Visual C++ 2005) warns about unsafe, deprecated
        # func <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	126	233	
==>next=getc(D);
	$afternext="" if (! defined $afternext);
	$stmts++ if $afternext=~/\n/;
}
sub append {
	$curt <==
3	/Users/nnunley/parrot/lib/Test/More.pm	32035	32136	
==>rrelevancy of order only
applies to the top level.

    ok( eq_set(\@this, \@that) );

Is better writt <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686434	686524	
==>pmc.ops\"\n   {{\@1}} = {{\@3}}->vtable->getprop(interpreter, {{\@3}}, {{\@2}});\n   {{+=4} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687324	687414	
==>pmc.ops\"\n   {{\@1}} = {{\@3}}->vtable->getprop(interpreter, {{\@3}}, {{\@2}});\n   {{+=4} <==
3	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	408	534	
==>[$_] = buildarray();
    }

    my @arr1;
    foreach (1..20) {
	$arr1[$_] = buildarray();
    }

    my @arr2;
    foreach (1. <==
3	/Users/nnunley/parrot/tools/util/pirtidy.pl	182	288	
==>rmatter;

my $extension = 'tdy';
my $verbose   = 'that is SO true.';

# loop over all the files specified o <==
3	/Users/nnunley/parrot/examples/benchmarks/stress.pl	370	475	
==>[$_] = buildarray();
}

my @arr1;
foreach (1..20) {
    $arr1[$_] = buildarray();
}

my @arr2;
foreach (1. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459877	459982	
==>n(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460865	460970	
==>n(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461853	461958	
==>n(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2716	2811	
==>"1 in module-level code"
GOSUB Sub1
PRINT "ERR this line in main routine should be skipped"
Labe <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16683	16778	
==>"1 in module-level code"
GOSUB Sub1
PRINT "ERR this line in main routine should be skipped"
Labe <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	37937	38031	
==>, optional whitespace is skipped.

=item 5.

A hash reference containing various parsing option <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	653	741	
==>s "Ident is not!" unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Iden <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	732	820	
==>s "Ident is not!" unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Iden <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	541	629	
==>s "Ident is not!" unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Iden <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1448	1560	
==>_output = Parrot::Test::slurp_file( "$out_f" );

        @_ = ( $prog_output, $output, $desc );
        #goto &{" <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1364	1476	
==>_output = Parrot::Test::slurp_file( "$out_f" );

        @_ = ( $prog_output, $output, $desc );
        #goto &{" <==
3	/Users/nnunley/parrot/Configure.pl	526	621	
==>on>

Prints out the version number of Configure.pl and exits.

=item C<--verbose>

Tells Configu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792236	792519	
==>" => "inline",
                  "CODE" => 894,
                  "ARGS" => [
                              "p",
                              "p",
                              "kic"
                            ],
                  "BODY" => "#line 432 \"src/ops/set.ops\"\n    {{\@1 <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	3342	3477	
==>Microsoft.JScript
            Microsoft.VisualBasic
            Microsoft.VisualC
            Microsoft.Vsa
            Mono.Compile <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2760	2847	
==>rot::Test::pir_output_like;
}

=item C<pgeglob_is($target, $pattern, $description, @todo <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	9364	9469	
==>p'} > $max_pop) {
			$max_pop = $_->{'pop'};
		}
		if ($_->{'push'} > $max_push) {
			$max_push = $_->{'pu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1314	1408	
==>compiler->emit("  $pmc_reg = $ident");
    $compiler->emit("  global \"$ident_name\" = $pmc_reg <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1308	1402	
==>compiler->emit("  $pmc_reg = $ident");
    $compiler->emit("  global \"$ident_name\" = $pmc_reg <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	8640	8879	
==>NTKEY$/i)
                {
                    $type = "ki";
                }
                else
                {
                    $type = lc substr($type, 0, 1);
                }

                # convert e.g. "labelvar" to "inva <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	7850	7966	
==>ve     stdout" if $out;
    open  OLDERR, ">&STDERR" or die "Can't save     stderr" if $err;

    open  STDOUT, ">$ou <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7900	8014	
==>ve     stdout" if $out;
    open OLDERR, ">&STDERR" or die "Can't save     stderr" if $err;

    open STDOUT, ">$ou <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	855	952	
==>, qw(Jako::Construct::Expression::Value::Identifier));

  my $self = bless {
    BLOCK  => $block, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	819	916	
==>, qw(Jako::Construct::Expression::Value::Identifier));

  my $self = bless {
    BLOCK  => $block, <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9672	9757	
==>0xfffa3942,/* 33 */
HH,$d,$a,$b,$c,$_[12],11,0x8771f681,/* 34 */
HH,$c,$d,$a,$b,$_[15] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430333	430602	
==>E" => "inline",
                  "CODE" => 494,
                  "ARGS" => [
                              "ic",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 74 \"src/ops/math.o <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	16120	16229	
==>n and will need to put it on
    # the stack. Emit code to deal with that.
PIRCODE
    my $pop_all = $srm->pop <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12092	12197	
==>,
		actcount   => 0,
	}, $class;
}

sub expected ($)
{
	my $itemcount = scalar @{$_[0]->{"items"}};
	retur <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16714	16823	
==>thod (@{ $self->{methods}} ) {
        next unless $method->{loc} eq 'nci';
        my $ret = $self->body($met <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	13222	13331	
==>return -1;
}
static void hop_init() {
    size_t i;
    op_info_t * info = ${bs}op_lib.op_info_table;
    /* s <==
3	/Users/nnunley/parrot/config/gen/config_h.pm	232	317	
==>rot/config.h> with platform-specific configuration
values, F<include/parrot/has_header <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544113	544226	
==>ine 1056 \"src/ops/math.ops\"\n INTVAL gcd = 0;\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n I <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545449	545562	
==>ine 1056 \"src/ops/math.ops\"\n INTVAL gcd = 0;\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n I <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546785	546898	
==>ine 1056 \"src/ops/math.ops\"\n INTVAL gcd = 0;\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n I <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2628	2767	
==>Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else {
        $liblist = join( ' ', map { "-l$_" } keys %$libs );
    }

    re <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2937	3076	
==>Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else {
        $liblist = join( ' ', map { "-l$_" } keys %$libs );
    }

    re <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2732	2871	
==>Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else {
        $liblist = join( ' ', map { "-l$_" } keys %$libs );
    }

    re <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15505	15615	
==>R
             # Escape \, {, }, -, control chars, and 7f-ff.
    $x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<3 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16684	16794	
==>R
             # Escape \, {, }, -, control chars, and 7f-ff.
    $x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<3 <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33818	33927	
==>l = $self->decl($self->{class}, $method, 0);
    my $ret_def = '';
    my $func_ret = '(void) ';
    if ($meth <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	1700	1790	
==>laration-after-statement -I/usr/local/include -I/opt/local/include -pipe -fno-common -Wno-l <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1088	1178	
==>laration-after-statement -I/usr/local/include -I/opt/local/include -pipe -fno-common -Wno-l <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1092	1182	
==>laration-after-statement -I/usr/local/include -I/opt/local/include -pipe -fno-common -Wno-l <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	5168	5321	
==>fname\"\n";
          DEBUG > 1 and print "# Setting nextline to $1\n";
          $self->{'line_count'} = $1 - 1;
        }
        
        next;
      } <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18500	18602	
==>sh @{$code{$seg}->{code}}, <<RETURN1;
	JUMPLABEL= ""
	ret
RETURN1
	} else {
		feedme();   # Special "Re <==
3	/Users/nnunley/parrot/lib/Test/More.pm	14747	14846	
==>}

=back

=head2 Diagnostics

If you pick the right test function, you'll usually get a good idea of <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3389	3511	
==>les) {
        my @pmcfiles = map { "$_.pmc" } @$pmcs;
        if (needs_build("$group.c", @pmcfiles)) {
            run("$ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3493	3615	
==>les) {
        my @pmcfiles = map { "$_.pmc" } @$pmcs;
        if (needs_build("$group.c", @pmcfiles)) {
            run("$ <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	4889	4983	
==>reason?, :$depends) returns Bool is export {
    Test::proclaim(1, "", "skip $reason", :$depend <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	12542	12640	
==>nner;
	my $rdel_outer = $ldel_outer;
	my $posbug = pos;
	for ($ldel_inner, $ldel_outer) { tr/[]()<> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2113	2201	
==>elf->block->find_symbol($args[$i]->value);
      $self->SYNTAX_ERROR("Undefined identifie <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1813	1901	
==>elf->block->find_symbol($args[$i]->value);
      $self->SYNTAX_ERROR("Undefined identifie <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861975	862259	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "length",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862743	863027	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "length",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	8854	8944	
==>unction_coverage_summary {

    print "Writing $HTMLDIR/function_summary.html..\n" if $DEBU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	622649	622859	
==>e",
                  "CODE" => 701,
                  "ARGS" => [
                              "pc"
                            ],
                  "BODY" => "#line 189 \"src/ops/pic.ops\"\n    Parrot_MIC *mi <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17177	17326	
==>push @opcodes, new LocalDir( $parser,
                    'result' => $result,
                );
                push @opcodes, new KeyedGetOp( $p <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18214	18327	
==>push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new KeyedGetOp( $p <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	16515	16609	
==>DE<<OPS;
	I5= P14
	div I5, I5, 2
CASE_${jump}_${incase}_STARTOPS:
	eq I5, 1, CASE_${jump}_${inc <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25987	26076	
==>de{$seg}->{code}}, <<NEXT;
	add $ps->{var}, $ps->{var}, FORLOOP_STEP_$ps->{num}
	goto FOR_ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26172	26261	
==>de{$seg}->{code}}, <<NEXT;
	add $ps->{var}, $ps->{var}, FORLOOP_STEP_$ps->{num}
	goto FOR_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826721	826947	
==>n  }\n\n  {{\@1}} = UVal_num(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827791	828017	
==>n  }\n\n  {{\@1}} = UVal_num(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9430	9528	
==>->{'Tagmap'}{"/$tagname"} || return;
    
    --$self->{DONT_WRAP} if $tagname eq 'Verbatim' or $ta <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	14115	14236	
==>y $file = shift;
    $file =~ s/\.\w+$/.pmc/;

    my $fh = open_file( "<", $file );
    my $contents = do { local $/; <$f <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10963	11058	
==>EST0}.
${ITEMP0} = ${PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pre_call_HAS_RETURN_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8149	8244	
==>EST0}.
${ITEMP0} = ${PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pre_call_HAS_RETURN_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5811	5906	
==>EST0}.
${ITEMP0} = ${PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pre_call_HAS_RETURN_ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	52030	52197	
==>51.yp"
{
            [ @{ $_[1] }, $_[2] ];
        }
	],
	[#Rule 49
		 'key', 3,
sub
#line 295 "Lua\lua51.yp"
{
            $_[2];
        }
	],
	[#Rule 5 <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	19923	20034	
==>be a more proper module.
    #  - Added "use strict".
    #  - Bug in build_methods, was using @var when @$var n <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	12143	12267	
==>)\s+
        {{\@(\d)}}->vtable->
        (\w+)
        \(interpreter,
        \s*
        {{\@(\d)}},\s*{{\@(\d)}},\s*{{\@(\ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1158	1265	
==>dbgoto {
    my ($self, $label) = @_;
    return () unless $self->{DEBUG};
    return () unless $self->{DEBU <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	648	755	
==>dbgoto {
    my ($self, $label) = @_;
    return () unless $self->{DEBUG};
    return () unless $self->{DEBU <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27399	27501	
==>'})
						if defined $::RD_TRACE;').'
		$lastsep = "";
		$Parse::RecDescent::lastexpected = q{' . ($rul <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29509	29611	
==>'})
						if defined $::RD_TRACE;').'
		$lastsep = "";
		$Parse::RecDescent::lastexpected = q{' . ($rul <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31606	31708	
==>'})
						if defined $::RD_TRACE;').'
		$lastsep = "";
		$Parse::RecDescent::lastexpected = q{' . ($rul <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1355	1464	
==>ub output_terminate {
    return "";
}

sub output_advance {
    my ($self, $distance, $failLabel) = @_;
    $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1104	1213	
==>ub output_terminate {
    return "";
}

sub output_advance {
    my ($self, $distance, $failLabel) = @_;
    $ <==
3	/Users/nnunley/parrot/languages/regex/regex.pl	1924	2026	
==>n" foreach (@$trees);
    exit;
} elsif ($operation eq 'dump') {
    print $_->dump_tree(), "\n" foreac <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795132	795268	
==>c"
                            ],
                  "BODY" => "#line 457 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796038	796174	
==>c"
                            ],
                  "BODY" => "#line 457 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(inte <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8080	8181	
==>();
  my($name, $number);
  while( ($name, $number) = each %Name2character_number) {
    if($] < 5.007 <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10749	10838	
==>P0}

# Next parameter.
dec stack_depth
goto pre_call_PLOOP_${CURIC}
PRE_CALL_PLOOP_END_${C <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8002	8091	
==>P0}

# Next parameter.
dec stack_depth
goto pre_call_PLOOP_${CURIC}
PRE_CALL_PLOOP_END_${C <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	1040	1151	
==>in;
  } elsif($in =~ m/^0x([0-9a-fA-F]+)$/s ) {
    $in = hex $1;
  } # else it's decimal, or named

  if($NOT_A <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	357	458	
==>ub global_state {
    return $GLOBAL_STATE ||= Regex::State->new();
}

sub expr_to_tree {
    my ($exp <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1137	1222	
==>ent::Assign;
use Jako::Construct::Statement::Bitwise;
use Jako::Construct::Statement:: <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1107	1210	
==>-common -Wno-long-double  -I /opt/local/include   -g -Wall -Wstrict-prototypes -Wmissing-prototypes -Win <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1165	1268	
==>-common -Wno-long-double  -I /opt/local/include   -g -Wall -Wstrict-prototypes -Wmissing-prototypes -Win <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1169	1272	
==>-common -Wno-long-double  -I /opt/local/include   -g -Wall -Wstrict-prototypes -Wmissing-prototypes -Win <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060129	1060247	
==>\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061034	1061152	
==>\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	503	597	
==>ind
of optimizations. By making the inlined versions more declarative, this
lets us do this wor <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747166	747331	
==>,
                              "i"
                            ],
                  "BODY" => "#line 194 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_integer_native(i <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	24379	24497	
==>xpr )    = @_;
    my ( $defn,   $opcodes ) = @{$expr};
    if ( scalar( @{$opcodes} ) and $opcodes->[-1]->isa('CallO <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1090	1203	
==>xpr )    = @_;
    my ( $defn,   $opcodes ) = @{$expr};
    if ( scalar( @{$opcodes} ) and $opcodes->[-1]->isa(' <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2795	2895	
==>lreadline -lpthread -lm -L/opt/local/lib  -licuuc -licudata -lpthread -lm';
        $extraLibs =~ s/b <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2590	2690	
==>lreadline -lpthread -lm -L/opt/local/lib  -licuuc -licudata -lpthread -lm';
        $extraLibs =~ s/b <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	1763	1874	
==>a func
    @funcs = grep /^\S/, @funcs;

    # Typedefs and structs are no good
    @funcs = grep !/^(typedef|st <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22636	22737	
==>inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0 <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23137	23238	
==>inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0 <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	22889	23019	
==>}@g;
            my $out_f = per_test('.out', $test_no);
            my $build_f = per_test('.build', $test_no);
            my $pd <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	4534	4662	
==>ternate', \@children), $ctx);
        @{ $t->{args} } = ($opt, $leftovers);
        return $t;
    } else {
        # Find all su <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	35078	35175	
==>enly balanced.
(In a scalar context just the first element of the array would be returned. In
a vo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443522	443658	
==>"
                            ],
                  "BODY" => "#line 114 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444537	444673	
==>"
                            ],
                  "BODY" => "#line 114 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	330789	330877	
==>ODY" => "#line 174 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (FLOATVAL)(Parrot_Float8)({{\@2}}- <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30795	30911	
==>ills the content of the item if it's a number or bullet.
          DEBUG and print " Item is of type ", $para->[0], " <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	31760	31876	
==>ills the content of the item if it's a number or bullet.
          DEBUG and print " Item is of type ", $para->[0], " <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34083	34199	
==>ills the content of the item if it's a number or bullet.
          DEBUG and print " Item is of type ", $para->[0], " <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	3338	3450	
==>e top of the block stack.
#

sub push_block
{
  my $self = shift;

  push @{$self->{BLOCKS}}, shift;
}


#
# pop_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	826	926	
==>hift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'block', Attributes => { kind => $se <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1839	1939	
==>hift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'block', Attributes => { kind => $se <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8045	8179	
==>ser, $var ) = @_;
    my @opcodes = ();
    my $idf     = shift @{$var};
    if ( ref($idf) eq 'ARRAY' ) {
        my $defn = $idf- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550057	550149	
==>@2}};\n  next = {{^+3}};\n  interpreter->current_object = object;\n  interpreter->current_con <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551358	551450	
==>@2}};\n  next = {{^+3}};\n  interpreter->current_object = object;\n  interpreter->current_con <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031462	1031572	
==>2}} < enum_first_type || {{\@2}} >= enum_last_type)\n        {{\@1}} = -1;\n    else\n        {{\@1}} = data_ty <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032331	1032441	
==>2}} < enum_first_type || {{\@2}} >= enum_last_type)\n        {{\@1}} = -1;\n    else\n        {{\@1}} = data_ty <==
3	/Users/nnunley/parrot/tools/build/vtable_extend.pl	1068	1171	
==>e is a deliberate distancing from the internals here. Don't go
peeking inside -- you've as much access a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943296	943469	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944084	944257	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8354	8468	
==>ut;
    open STDERR, ">&OLDERR" or die "Can't restore  stderr" if $err;

    if ($verbose) {
        foreach ($out, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105098	105382	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105835	106119	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	5848	5951	
==>};\n", $self->size) if $self->type eq 'auto';

    return $body;
}

# Called from rewrite_body() to perf <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540517	540633	
==>@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541769	541885	
==>@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543021	543137	
==>@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38246	38373	
==>TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched repeated subrule: ['
					. $self->{subrul <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7298	7427	
==>ponder_paragraph_buffer();
         # by now it's safe to consider the previous paragraph as done.
                
        push @ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549067	549183	
==>\n  INTVAL i = {{\@2}};\n  FLOATVAL q = 1;\n  while(i>0) {\n    q = q*i;\n    i--;\n  }\n  {{\@1}} = q;\n  {{+=3}};\n <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	8264	8376	
==>ponder_paragraph_buffer();
         # by now it's safe to consider the previous paragraph as done.
        push @ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609354	609447	
==>bject.ops\"\n    {{\@1}} = VTABLE_get_attr_str(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610262	610355	
==>bject.ops\"\n    {{\@1}} = VTABLE_get_attr_str(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149868	150119	
==>DE" => 182,
                  "ARGS" => [
                              "p",
                              "nc",
                              "ic"
                            ],
                  "BODY" => "#line 105 \"src/ops/cmp.ops\"\n  if ({{\@1}} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1957	2057	
==>ock   { ++$_[0]{'Indent'} }

sub   end_over_bullet  { --$_[0]{'Indent'} }
sub   end_over_number  { -- <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1525	1625	
==>ock   { ++$_[0]{'Indent'} }

sub   end_over_bullet  { --$_[0]{'Indent'} }
sub   end_over_number  { -- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162068	162187	
==>e 183 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162965	163084	
==>e 183 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163862	163981	
==>e 183 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13653	13863	
==>",
                  "CODE" => 18,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 231 \"src/ops/core.ops\"\n  opcode_t * loc;\n <==
3	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1391	1500	
==>0;
}

sub generate_regular_pir {
    my ($filename, $pattern) = @_;
    my $PIR;
    open($PIR, '>', $filename <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	11609	11698	
==>sing `&compare_func`. This will
eventually allow Test::More-style cmp_ok() though the foll <==
3	/Users/nnunley/parrot/examples/benchmarks/freeze.pl	782	888	
==>e();
#my $c = dclone \@a;
#$e = time();
#printf " clone time %.6f\n", $e-$s;

print "Image len ", length($i <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	15167	15265	
==>tion - called once
 */

$sym_export PMC*
$load_func(Parrot_Interp interpreter)
{
    PMC *lib = pmc <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2296	2386	
==>'  => "\n}\\par}\n",
 'head3'   => "\n{\\pard\\li#rtfindent#\\s33\\keepn\\sb90\\sa180\\f2\\ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	977	1087	
==>s's C<new()> method.

=cut

sub new_item
{
    my $self = shift;
    
    return Parrot::Docs::Item->new(@_);
} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408264	408353	
==>e 540 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_connect(interpreter, {{\@2}}, {{\@3}}) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409163	409252	
==>e 540 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_connect(interpreter, {{\@2}}, {{\@3}}) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108911	109244	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":base_co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111359	111692	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":base_co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112251	112584	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":base_co <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	6184	6306	
==>8472,
 'image'    , 8465,
 'real'     , 8476,
 'trade'    , 8482,
 'alefsym'  , 8501,
 'larr'     , 8592,
 'uarr'     , 859 <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	33636	33751	
==>=> \&_op_append,
  'reverse'  => \&_op_reverse,
  'list-ref' => \&_op_list_ref,
  'memq'     => \&_op_memq,
  'memv' <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	60898	60990	
==>ator found after prefix: "%s">

C<extract_quotelike> didn't find one of the quotelike operato <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	29161	29280	
==>p, $name, $capture, $lastback) = @_;

#    if ($capture) {
#        local $op->{args}->[1] = 0;
#        return $self->r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852839	853122	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853620	853903	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16246	16381	
==>my $x = shift;
            # Pod::Simple::HTML didn't check this.
            return $x unless $x;
            $x =~ s/([^\n\t !\#\$\%\( <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54675	54788	
==>extract_codeblock($grammar,'{',undef,'<');
					 $code;
				       } )
			{
				_parse("a rule variable specifier" <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3725	3813	
==>CURIC}_CONT_$register_num:
dec stack_depth
PIR
		$pir =~ s/\$register_num/$register_num/g <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5499	5587	
==>CURIC}_CONT_$register_num:
dec stack_depth
PIR
		$pir =~ s/\$register_num/$register_num/g <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74954	75066	
==><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$errorprefix,          $errortext
~~                     ^<<<<<<<<<<<<<< <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74977	75089	
==><<<<<<<<<<<<<<<<<
$errorprefix,          $errortext
~~                     ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15146	15235	
==>ame})>.

=head1 SEE ALSO

L<perlpod|perlpod>

L<perlpodspec|perlpodspec>

L<Text::Unidecod <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	23970	24159	
==>f";
            $exit_code = run_command($cmd,
                                     'STDOUT' => $build_f,
                                     'STDERR' => $build_f);
            $builder->di <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4504	4625	
==>{
        delete $self->{name};
        delete $self->{args};
        return $self->op('nop', [], %$self);
    } elsif (@{ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5641	5762	
==>{
        delete $self->{name};
        delete $self->{args};
        return $self->op('nop', [], %$self);
    } elsif (@{ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	15738	15837	
==>pop P0, P12
	bsr RUNTIME_PUSH
	dec I5
	gt I5, 0, CASE_${jump}_${incase}_STARTOR
ORS
	}
	if ($ors and <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53335	53453	
==>); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_GC_DEBUG_FLAG); }\n  {{+=2}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54091	54209	
==>); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_GC_DEBUG_FLAG); }\n  {{+=2}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	2256	2359	
==>ers with SVN commit access.', 'RESPONSIBLE_PARTIES'),
            $self->new_item('A list of some of peo <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	30799	30940	
==>sh @opcodes, @{$block};
    push @opcodes, new BinaryOp(
        $parser,
        'op'     => 'add',
        'arg1'   => $_var,
        ' <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	7094	7196	
==>"/* ". $op->full_name() ." */";
    } elsif ($suffix =~ /switch/) {
	$definition = "case $index:";
	$co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92809	93092	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93588	93871	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	36983	37078	
==>text between (balanced)
specified tags. 

The subroutine takes up to five optional arguments:

= <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2326	2474	
==>ype,
    $name,
    undef,            # No value
    $props,           # Parsed Properties
    $args,            # Parsed Properties
    $self->file, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647544	647690	
==>rc/ops/pmc.ops\"\n    {{\@1}} = pmc_type(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648305	648451	
==>rc/ops/pmc.ops\"\n    {{\@1}} = pmc_type(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020928	1021202	
==>6);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodetim <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	4092	4195	
==>unambiguous here.  The next thing must be a quoted string or
	#   no prompting is done.  However, QB say <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	49502	49595	
==>rmost delimiters.

Once the prefix an dthe outermost opening delimiter bracket have been
recog <==
3	/Users/nnunley/parrot/Configure.pl	7938	8066	
==>mented):

   --maintainer         Create imcc's parser and lexer files. Needs a working
                        parser and lexer. <==
3	/Users/nnunley/parrot/config/auto/headers.pm	1816	1925	
==>t try with just the header. If that fails, try with all the
        # headers we found so far. This is somewha <==
3	/Users/nnunley/parrot/languages/regex/test.pl	751	848	
==>st files are Perl5 source files which must contain a __END__ section.
  Right after the __END__ th <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20394	20511	
==>s[CURR] eq "*") {
				print "WARNING: * in TYPE not supported yet for $name\n";
				feedme;
				feedme;
			}
			while( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	21515	21622	
==>Rule 30
		 'range', 5,
sub
#line 153 "lib/Regex/Grammar.y"
{ return { min => 0, max => $_[4] }; }
	],
	[#Rul <==
3	/Users/nnunley/parrot/config/init/manifest.pm	154	246	
==>/manifest.pm - MANIFEST Check

=head1 DESCRIPTION

Uses C<ExtUtils::Manifest> to check that t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943859	944084	
==>}} = Parrot_charset_number_of_str(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944648	944873	
==>}} = Parrot_charset_number_of_str(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/config/inter/progs.pm	2198	2296	
==>t("What program do you want to use to build shared libraries?", $ld) if $ask;
    $conf->data->set( <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	820	929	
==>mum_done:
END_PIR

    '\u230a' => [ 'Minimum', <<'END_PIR' ],
    if %1 < %2 goto minimum_done
    %1 = %2
mi <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19729	19828	
==>[#Rule 14
		 'expr', 3,
sub
#line 119 "lib/Regex/Grammar.y"
{ return op('multi_match' => [ 0, -1, FA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113134	113477	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115465	115808	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116320	116663	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351965	352277	
==>> ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 410,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89314	89605	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90052	90343	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79538	79687	
==>ter, enum_class_UnManagedStruct);\n      PMC_data({{\@1}}) = p;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81059	81208	
==>ter, enum_class_UnManagedStruct);\n      PMC_data({{\@1}}) = p;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	7292	7425	
==>_DoubleQuoteStringLexer();

            s/^\'//
                and return $parser->_SingleQuoteStringLexer();

            s/^\[ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549901	549995	
==>=> "#line 56 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551202	551296	
==>=> "#line 56 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218871	219134	
==>terpreter, {{\@1}}), {{\@2}}) > 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219850	220113	
==>terpreter, {{\@1}}), {{\@2}}) > 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5232	5377	
==>ue}->($self, _get_arg($_, 1), $return);
            next;
          }
        }
      }
      my $item = $self->_save_1 ('P');

      __quoted ($s <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	5739	5884	
==>file( $DIR, '*.t' ) ;

    if (@files) {
        return runtests(@files);
    } else {  
        return;
    }
}

##
## my $string = unescape( $or <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054382	1054474	
==>om null namespace.\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to get null global <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055509	1055601	
==>om null namespace.\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to get null global <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015084	1015307	
==>ke(interpreter, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015908	1016131	
==>ke(interpreter, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	5664	5770	
==>E: both --$sa and --$sb used\n";
    }
}

warn_if_both($Code,   $Data,    'code',   'data' );
warn_if_both( <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	372	470	
==>n loop.

=head2 Instance Methods

=over 4

=cut

package Parrot::OpTrans::CSwitch;

use strict;
use <==
3	/Users/nnunley/parrot/config/auto/bc.pm	481	571	
==>se Config;
use Parrot::Configure::Step ':auto', 'capture_output';

$description = 'Determin <==
3	/Users/nnunley/parrot/config/auto/m4.pm	455	545	
==>se Config;
use Parrot::Configure::Step ':auto', 'capture_output';

$description = 'Determin <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9527	9629	
==>LL_RETURN_${CURIC}

# It's a call. Get details of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1 <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7041	7143	
==>LL_RETURN_${CURIC}

# It's a call. Get details of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1 <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5597	5699	
==>LL_RETURN_${CURIC}

# It's a call. Get details of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356050	356292	
==>fused);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pri <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	472	577	
==>ed
to build the HTML docs. There may come a time when it is necessary to 
make C<file_class()> and C<direc <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	11569	11672	
==>h_size

/* we could calculate a prime somewhat bigger than
 * n of fullnames + n of names
 * for now thi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227417	227530	
==>get_string(interpreter, {{\@1}}), {{\@2}}) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228397	228510	
==>get_string(interpreter, {{\@1}}), {{\@2}}) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	6775	6880	
==>)
	{
		$parser->{localvars} .= " $1";
		$self->{"vars"} .= "$var;\n" }
	else 
		{ $self->{"vars"} .= "my $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359761	360055	
==>" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 421,
                  "ARGS" => [
                              "sc"
                            ],
                  "BODY" => "#line 250 \"src/ops <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	61597	61755	
==>es information
        #    0x04         Driver actions (shifts, reduces, accept...)
        #    0x08         Parse Stack dump
        #    0x10         Er <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	2077	2184	
==>compiler);
    $right = $right->compile($compiler);

    if ($cond eq 'if') {
      $op = $compiler->invert_ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4152	4260	
==>-GROUP.so + A.so + B.so ... -> GROUP.so
    while (my ($group, $pmcs) = each %$group_files) {
        partial <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4256	4364	
==>-GROUP.so + A.so + B.so ... -> GROUP.so
    while (my ($group, $pmcs) = each %$group_files) {
        partial <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	6167	6308	
==>ne',
             'i_sysstat' => 'define',
             'i_sysstatfs' => undef,
             'i_sysstatvfs' => 'define',
             'i_systi <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	6208	6341	
==>ned $classes{$name} ){
                if ( $CHECK_CLASS_MEMBERSHIP ) {
                    $out .= "    croak '$name argument is wron <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	26461	26581	
==>' := $p $cmt
EOC
	$c = $p;
    }
    else {
	my $p = 5 + keys %params;
	$params{$c} = $c;
	$lexicals{$c} = $c;
	$names{$c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357978	358084	
==>ops/io.ops\"\n  PIO_eprintf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358642	358748	
==>ops/io.ops\"\n  PIO_eprintf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	8880	9018	
==>gs
        | /\* .*? \*/ )             # remove C comments
    ]
    [ "-" x length $1 ]sexg;

    /^\{/ or die "bad block open: ", substr( <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	7609	7730	
==>c/ops/ops.num";
    }
    my ($name, $number, @lines, %seen, %fixed, $fix);
    local *OP;
    $fix = 1;
    open OP, "< $ <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	6277	6368	
==>E<lt>schwern@pobox.comE<gt>, wardrobe by Calvin Klein.


=head1 COPYRIGHT

Copyright 2001, 2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060169	1060402	
==>rot_get_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061074	1061307	
==>rot_get_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	5327	5497	
==>$cmt\n    my \$r = shift;\n";
            if( $base_type eq 'ARRAY' ){
                $elem = "[$cnt]";
                ++$cnt;
            }
            elsif( $base_typ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3962	4064	
==>compile $group.c failed ($?)\n";
    }
} 
elsif ($mode eq 'linklibs') {
    my ($group_files, $group_li <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4066	4168	
==>compile $group.c failed ($?)\n";
    }
} 
elsif ($mode eq 'linklibs') {
    my ($group_files, $group_li <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6186	6304	
==>b} = 1;
        }
    }

    return (\%group_files, \%group_libs, \%pmc_group, \%pmc_libs);
}

sub modtime {
    my $ag <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6397	6515	
==>b} = 1;
        }
    }

    return (\%group_files, \%group_libs, \%pmc_group, \%pmc_libs);
}

sub modtime {
    my $ag <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367118	367414	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367909	368205	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368701	368997	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	11847	11968	
==><EOC;
	store_lex -1, $n, $p $cmt
EOC
	}
    }
    $names{$c} = $p;
    $lexicals{$c} = $p;
}

sub STORE_GLOBAL {
    my ($ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	11702	11811	
==>$1\n"),
      $self->parse_lines($1)
       if length($1) or length($2)
        or pos($line_group) != length( <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	1725	1841	
==>ce line $sourceline";
				}
				$user=1
			}
		}
		unless ($stype) {
			$stype=typeof($var);
		}
		$arrays{$var}=1 if <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	13758	13865	
==>>VERSION(),
    $], scalar(gmtime),
  ;
}

sub doc_start {
  my $self = $_[0];
  my $title = $self->get_shor <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	875	969	
==>turns the tagname for this end-token object.
For example, parsing a "=head1 ..." line will give <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	10276	10397	
==>q ",") {
			fdprint($fd, "\\t");
			$eol=1;
			feedme();
			$expr=0;
			next;
		}
		last if $expr;
		($result, $type, @cod <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7228	7339	
==>reject}
		    :					 ''
		    ;
	my $ignore  = ref($options{ignore}) eq 'ARRAY' ? join('|', @{$options{ignore}}) <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24230	24341	
==>reject}
		    :					 ''
		    ;
	my $ignore  = ref($options{ignore}) eq 'ARRAY' ? join('|', @{$options{ignore}}) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088877	1088970	
==>rimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3}}, 0);\n    { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089825	1089918	
==>rimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3}}, 0);\n    { <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17540	17631	
==>f',[$type,$list]);
  $self->_add_inst ('', 'eq',[$type,'.Undef', "DONE_$label"]);
  $self->_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	14450	14546	
==>t a push_eh instruction.
    try_offset = eh.get_try_offset()
    try_length = eh.get_try_length( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809670	809756	
==>src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_string_keyed(interpreter, {{\@2}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810575	810661	
==>src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_string_keyed(interpreter, {{\@2}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64849	65098	
==>}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE|PARROT <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20279	20383	
==>nt 0.5,sqr(0.5)
print 2,sqr(2)
for i = -1 to 1
	print "Sign of ";i;" is ",sgn(i)
next i


' "shared" Whoa <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1985	2089	
==>This is called from C<new()> to create the path if necessary.

=cut

sub create_path
{
    my $self = shi <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	962	1066	
==>This is called from C<new()> to create the path if necessary.

=cut

sub create_path
{
    my $self = shi <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	32319	32420	
==>tring (i.e. one in which
	# doubling the quote character escapes it) from the very
	# beginning of $te <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106035	1106243	
==>ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 352 \"src/ops/experimental.ops\"\n    int typ = {{\@2}};\n    i <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1217	1334	
==>anguages/$pasm_f @other",
            CD => '..', # $self->{relpath}, 
            STDOUT => $out_f, STDERR => $out_f, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	311393	311483	
==>nterpreter->num_reg, -1);\n        PDB_print_string(interpreter,&interpreter->string_reg, - <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428535	428823	
==>],
                  "TYPE" => "inline",
                  "CODE" => 492,
                  "ARGS" => [
                              "ic",
                              "p",
                              "nc"
                            ],
                  "BODY" => "#line 69 \"src/ops/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101102	101290	
==>ring_bitwise_not(interpreter, {{\@1}}, &{{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	8714	8825	
==>mputed goto",
	  jit => "JIT",
	  cgp =>  "CGP",
	  switch => "switch",
	  fast => "fast",
	  default => "defaul <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3385	3479	
==>$num, $op)>

Returns the C code for the specified op argument type (see
C<Parrot::OpTrans>) and <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3529	3623	
==>$num, $op)>

Returns the C code for the specified op argument type (see
C<Parrot::OpTrans>) and <==
3	/Users/nnunley/parrot/config/gen/platform.pm	1241	1357	
==>n") if defined $verbose && $verbose == 2;

    # headers are merged into platform.h
    my @headers = qw/
        io. <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2725	2816	
==>\fi-120\n",
 '/item-bullet' => "\n\\par}\n",
 'item-number'  => "\n{\\pard\\li#rtfindent##rt <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104812	104897	
==>src/ops/bit.ops\"\n  {{\@1}} = {{\@2}}->vtable->bitwise_nots(interpreter, {{\@2}}, NUL <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5259	5376	
==>n failed ($?)\n";
		}
	}
}

sub compile {
    my ($src_stem, $dest_stem) = @_;

    $dest_stem ||= $src_stem;
    if ( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	3027	3137	
==>y be useful in
# optimizing generated regular expressions. It is not needed for basic
# compilation.
#
# Probab <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	2951	3050	
==>else {
#    $self->DEBUG(0, "Compiling non-string literal: '%s'...", $self->value);

    return $sel <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	824	965	
==>s'};
      _perly_escape($key);
      _perly_escape($value);
      printf $fh qq{%s \\ "%s" => "%s"\n},
        '  ' x ($_[0]{'indent'} || 0), <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	872	965	
==>fied as strings
and without leading/trailing pattern delimiters.

(Hint: if you try using qr// <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2970	3063	
==>fied as strings
and without leading/trailing pattern delimiters.

(Hint: if you try using qr// <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	9379	9496	
==>ment name"
        if $new_code =~
          m/[\x00-\x2C\x2F\x39\x3B-\x40\x5B-\x5E\x60\x7B-\x7F]/
            # Chara <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10643	10760	
==>ment name"
        if $new_code =~
          m/[\x00-\x2C\x2F\x39\x3B-\x40\x5B-\x5E\x60\x7B-\x7F]/
            # Chara <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	4779	4880	
==>$vtable}) {
    my $uc_meth = uc $entry->[1];
    $macros .= <<"EOM";
#define PARROT_VTABLE_${uc_meth} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546441	546795	
==>"i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 630,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 1056 \" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632646	632757	
==>{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633688	633799	
==>{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3377	3476	
==>{
	my $self = shift;
	my $suffix = shift;
	
	return $type_for_suffix{$suffix} if exists $type_for_su <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1942	2044	
==>456789])/'&#'.(ord($1)).';'/eg;
    # Yes, stipulate the list without a range, so that this can work ri <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2045	2147	
==>456789])/'&#'.(ord($1)).';'/eg;
    # Yes, stipulate the list without a range, so that this can work ri <==
3	/Users/nnunley/parrot/config/init/defaults.pm	1220	1322	
==>independent code suitable for dynamic loading.
        cc_shared => $Config{cccdlflags},    # e.g. -fpi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319959	320047	
==>"BODY" => "#line 124 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (INTVAL)((Parrot_Int4)({{\@2}})) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320729	320817	
==>"BODY" => "#line 124 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (INTVAL)((Parrot_Int4)({{\@2}})) <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	5064	5202	
==>lsif (/^code$/) {
            if ($rule->{$_} =~ /^([0-9A-F]{2}\s+)*[0-9A-F]{2}$/) {
                if ($has_code) {
                    d <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10469	10590	
==>);
        }
        push @ranges, [ ord($first), ord($last) ];
    }

    return _ranges_to_incexc(\@ranges);
}

sub _ran <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	4447	4548	
==>t a maximum of 254 failures in its exit
code.  If this is a problem, you probably have a huge test scr <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9512	9612	
==>= 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get details of method we're calling.
(${PTEMP0}, ${ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7026	7126	
==>= 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get details of method we're calling.
(${PTEMP0}, ${ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5582	5682	
==>= 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get details of method we're calling.
(${PTEMP0}, ${ <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1224	1334	
==>pends) returns Bool is export {
    # hack for now
    my $got_perl = $got.perl;
    my $expected_perl = $expec <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	16407	16515	
==>) {
		print CODE qq{\tunshift P9, "OP"\n};
		print CODE qq{\tunshift P9, "or"\n};
	}
	if ($ops) {
		print COD <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9458	9543	
==>14ed,/* 28 */
GG,$a,$b,$c,$d,$_[17],5,0xa9e3e905,/* 29 */
GG,$d,$a,$b,$c,$_[6],9,0xfce <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540411	540516	
==>L a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541663	541768	
==>L a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542915	543020	
==>L a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320020	320270	
==>VAL)((Parrot_Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320790	321040	
==>VAL)((Parrot_Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	15738	15860	
==>g . '::TODO' } = \$extra{todo}
                if defined $extra{todo};

            my $pass = $builder->$meth( $real_outp <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	18289	18411	
==>g . '::TODO' } = \$extra{todo}
                if defined $extra{todo};

            my $pass = $builder->$meth( $real_outp <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	617	722	
==>roject Information', 
        'info.html', 
        'The conventional, generally all-caps, project informa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105452	105674	
==>=> [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 162 \"src/ops/bit.ops\"\n  {{\@1}} |= {{\@2}};\n  {{+=3}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017214	1017415	
==>ops\"\n  {{\@1}} = Parrot_floatval_time();\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	2141	2243	
==>(expected $expected, got $args).\n"
    if ($args != $expected);
}

sub _get_arg {
  my ($node, $num) = <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	4975	5128	
==>/) {
            # note the beginning of a block, and its indent depth.
            $f=length($1);
            next;
        }

        if (/^\s*([\#\}])/ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11143	11293	
==>block, $ident);
      }

      next;
    }

    #
    # Arithmetic assigns:
    #
    #   <var> <op> <value>;
    #

    if ($token->is_ident and $self <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	51792	51905	
==>$x sequence\n";
    $self->whine($start_line,
      "Unterminated $x sequence",
    );
  }
  
  return $treelet;
} <==
3	/Users/nnunley/parrot/tools/dev/as2c.pl	997	1146	
==>ytes);
	    my @pairs = ($bytes =~ m/../g);
	    print "    ". join '', map {"0x$_, "} @pairs;
	    print " " x (3*(8 - $len));
	    print "    /* $sr <==
3	/Users/nnunley/parrot/config/init/hints/irix.pm	435	541	
==>lags .= ' -woff 1185';
    }
    $conf->data->set(ccflags => $ccflags);

    my $libs = $conf->data->get('l <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11372	11471	
==>tfile = "$outfile_base.branches.html";
    print "Writing $outfile..\n" if $DEBUG;
    open (IN, "<$ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5553	5648	
==>es
recursively, relative to C<$source>.

If C<$path> is a file in C<$source> then C<$path> is re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048310	1048407	
==>t null global.\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_global(interpreter, NULL, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049234	1049331	
==>t null global.\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_global(interpreter, NULL, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	21989	22080	
==>s_$classname";
    $cout .= <<"EOC";
void
Parrot_${classname}_class_init(Parrot_Interp inter <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8882	8985	
==>tive to the directory.

=cut

sub path_for_directory_with_relative_path
{
    my $self = shift;
    my $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714496	714595	
==>" => "#line 75 \"src/ops/python.ops\"\n  STRING * const s = {{\@1}};\n  PMC * const io = PIO_STDOUT( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715419	715518	
==>" => "#line 75 \"src/ops/python.ops\"\n  STRING * const s = {{\@1}};\n  PMC * const io = PIO_STDOUT( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062506	1062602	
==>C *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpreter, ns_roo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063375	1063471	
==>C *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpreter, ns_roo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064245	1064341	
==>C *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpreter, ns_roo <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	14573	14710	
==>un-pbc// || $args =~ s/-r // ) {
                    my $pbc_f = per_test('.pbc', $test_no);
                    $args = qq{$args -o "$pbc <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3431	3560	
==>'],
  ['',            'set', 'P17', 'P17[1]'],
  ['',            'typeof', 'I16', 'P17'],
  ['',            'branch', 'apply_COUNT <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	8143	8256	
==>ess ($has_trans) {
        die "Translation (instruction or pir) not provided in rule " .
            "$rule->{'na <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	14356	14462	
==>nc,		/* op_func_table */
  $getop		/* op_code() */
};

END_C

# generate initfunc
my $init1_code = "";
if ( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134876	135157	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135769	136050	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136663	136944	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	419	530	
==>)
#

sub new
{
  my $class = shift;

  confess "Expected 5 args!" unless @_ == 5;

  my ($block, $prefix, $left, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	419	530	
==>)
#

sub new
{
  my $class = shift;

  confess "Expected 5 args!" unless @_ == 5;

  my ($block, $prefix, $left, <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	15573	15682	
==>ypedef $ret_type (*func_t)($proto);
    func_t pointer;
    $call_state
    $return_data
    $temp_decl
    $o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758117	758337	
==>> 855,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 276 \"src/ops/set.ops\"\n  {{\@1}} = string_set(i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359280	359377	
==>ODY" => "#line 250 \"src/ops/io.ops\"\n  STRING * const s = {{\@1}};\n  if (s && string_length(int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360028	360125	
==>ODY" => "#line 250 \"src/ops/io.ops\"\n  STRING * const s = {{\@1}};\n  if (s && string_length(int <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	1501	1617	
==>{
    my $self = shift;

    my $c = $self->{c};

    return @$c{@_};
}

=item C<set($key => $val, ...)>

Modifies or <==
3	/Users/nnunley/parrot/tools/dev/gen_class.pl	996	1098	
==>header
print <<EOF;
/* ${classname}.pmc
 *  Copyright (C) 2001-2003, The Perl Foundation.
 *  SVN I <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	35491	35583	
==>lly, call post_branch and append code it generates.
		my $post_branch = $srm->post_branch($ru <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	43	140	
==>s::Tree (); # For mark()
use base 'Regex::CodeGen';
use strict;

my $fail_label = Regex::Ops::Tree <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	44	141	
==>s::Tree (); # For mark()
use base 'Regex::CodeGen';
use strict;

my $fail_label = Regex::Ops::Tree <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	991	1128	
==>lename = shift;

    my %actions = (
        "<" => "Reading",
        ">" => "Writing",
        ">>" => "Appending",
    );

    my $acti <==
3	/Users/nnunley/parrot/lib/File/Which.pm	1597	1731	
==>le = `Alias $alias`);
                last unless $file;  # if it failed, just go on the normal way
                return $file unless <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	34764	34859	
==>{ an '[irregularly :-(] {} parenthesized >:-)' string }";

then a call to C<extract_bracketed> i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561245	561542	
==>NEXT",
                  "NAME" => "fetchmethod",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562328	562625	
==>NEXT",
                  "NAME" => "fetchmethod",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	4663	4863	
==>osure $op->{arg1}->{symbol}\n";
    }

    sub visitNoOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};

        #    print {$FH} "  noop\n";
    }

    s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463290	463680	
==>ore",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 531,
                  "ARGS" => [
                              "n",
                              "nc",
                              "n" <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22428	22532	
==>lf->_constant(1);
  my $temp_1 = $self->_constant(2);
  $self->_add_inst(''           ,'mod'   ,[$temp_0, <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22929	23033	
==>lf->_constant(1);
  my $temp_1 = $self->_constant(2);
  $self->_add_inst(''           ,'mod'   ,[$temp_0, <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	897	992	
==>ile_class
{
    return 'Parrot::IO::File';
}

=item C<directory_with_path($path)>

Returns the d <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15323	15431	
==>e="";

	if ($opts{assign}) {
		#print STDERR "Assign\n";
		$opts{lhs}=1;
		@expr=get_expression(%opts);	# Get <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	12376	12470	
==>urns Bool`

- `eval_is (Str $code, Str $expected, Str $desc?, Bool :$todo, Str :$depends) retur <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7990	8135	
==>n,$len);

                $$check eq 'ACCEPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Accept.\n";

				return <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7632	7769	
==>n,$len);

                $$check eq 'ACCEPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Accept.\n";

				return <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	21305	21423	
==><<EOC;
	$res = exists $r->[1]\[$lk\]
EOC
	}
	else {
	    my $lp = promote($l);
	    my $rp = promote($r);
	    print << <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9040	9143	
==>>\n</head>\n<body>\n", 
   $self->version_tag_comment,
   "<!-- start doc -->\n",
  ;
   # TODO: more co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8850	8942	
==>*fe = PackFile_find_fixup_entry(interpreter,\n\t    enum_fixup_label, label);\n    if (!fe)\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9966	10058	
==>*fe = PackFile_find_fixup_entry(interpreter,\n\t    enum_fixup_label, label);\n    if (!fe)\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44355	44595	
==>{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "popma <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44996	45236	
==>{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "popma <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	2054	2180	
==>ort {
      my($self) = shift;
      my $pack = caller;

      $Test->exported_to($pack);
      $Test->plan(@_);

      $self-> <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22030	22139	
==>et
       )) =~ m{<head1>NAME</head1><Para>(X|</?[BCIFLS]>)+</Para>$}s
    ) {
      # Whee, it fits the patte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205575	205838	
==>\@1}}, {{\@2}}, MMD_CMP) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348593	348856	
==>"NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349594	349857	
==>"NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	13185	13283	
==>b") {
		push @{$code{$seg}->{code}}, qq{\tgoto END_$seg\n};
		feedme();
		#print CODE "\tgoto SUB_E <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	38455	38549	
==>reference contains one or more strings specifying patterns
that are I<not> be be treated as nes <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565167	565466	
==>P" => 0,
                  "NAME" => "can",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566059	566358	
==>P" => 0,
                  "NAME" => "can",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293435	293545	
==>.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294311	294421	
==>.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295187	295297	
==>.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	22404	22506	
==>orage"]= P1
	P6= P5		# Go back to where we were!
	P2["_type"]= '$_->[1]'
	P3["$_->[0]"]= P2
	#print "Fi <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27191	27290	
==>ll the methods for inclusion
in the PMC's C header file.

TODO include MMD variants.

=cut

sub hdec <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	1788	1900	
==>_path,
    }, $self;
    
    return unless $self->create_path;
    
    return $instance_for_path{$path} = $self <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	7725	7835	
==>DERR if $err;

    # Save the old filehandles; we must not let them get closed.
    open  OLDOUT, ">&STDOUT" or <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7776	7885	
==>DERR if $err;

    # Save the old filehandles; we must not let them get closed.
    open OLDOUT, ">&STDOUT" or <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	30624	30731	
==>pply {
  my ($self, $node) = @_;
  my $return;

  my $func = $self->_generate(_get_arg ($node, 1));
  my @ar <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53254	53356	
==>ops\"\n  if ({{\@1}} != 0) { Interp_flags_SET(interpreter,   PARROT_GC_DEBUG_FLAG); }\n  else         { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54010	54112	
==>ops\"\n  if ({{\@1}} != 0) { Interp_flags_SET(interpreter,   PARROT_GC_DEBUG_FLAG); }\n  else         { <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35803	35903	
==>};
	return $desc;
}

sub callsyntax($$)
{
	if ($_[0]->{matchrule})
		{ return "sub { goto &{''.qq{$_[ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32904	33001	
==>m{'.$self->{hashname}.'}=') . '$_tok;
		' . ($self->{"lookahead"} ? '$text = $_savetext;' : '' ) . <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23150	23245	
==>m{'.$self->{hashname}.'}=').'$_tok;
		' . ($self->{"lookahead"} ? '$text = $_savetext;' : '' ) . <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135926	136345	
==>"ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 167,
                  "ARGS" => [
                              "s",
                              "sc",
                              "s"
                            ],
                  "BO <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7108	7205	
==>art (11): ", instr(6, s1$, " ")
print "Inval  (0): ", instr(4, bogus$, "t")
' instr() tests
s1$="M <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18837	18934	
==>art (11): ", instr(6, s1$, " ")
print "Inval  (0): ", instr(4, bogus$, "t")
' instr() tests
s1$="M <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	660	761	
==>rgs = $ENV{TEST_PROG_ARGS} || '';

    $lang_f = File::Spec->rel2abs($lang_f);
    $out_f  = File::Spe <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	697	798	
==>rgs = $ENV{TEST_PROG_ARGS} || '';

    $lang_f = File::Spec->rel2abs($lang_f);
    $out_f  = File::Spe <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33140	33235	
==>sethashname {}

sub describe ($)
{
	my $desc = $_[0]->{"implicit"} || $_[0]->{"subrule"};
	$desc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126647	126795	
==>f (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127782	127930	
==>f (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128917	129065	
==>f (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7318	7441	
==>, @{$options{ignore}})
		    : defined($options{ignore})	       ? $options{ignore}
		    :					 ''
		    ;

	if (!defined $l <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24320	24443	
==>, @{$options{ignore}})
		    : defined($options{ignore})	       ? $options{ignore}
		    :					 ''
		    ;

	if (!defined $l <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	7092	7194	
==>_;
    if (exists $ParrotOps::optable{$opname}) {
	return $ParrotOps::optable{$opname};
    } elsif (!$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584689	584912	
==>} = VTABLE_subclass(interpreter, class, NULL);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585764	585987	
==>} = VTABLE_subclass(interpreter, class, NULL);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10966	11076	
==>dparen { 1 }
sub Regex::Ops::Tree::alternate::render {
    my $op = shift;
    my $str = '';
    foreach my $ca <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8835	8938	
==>ts_failed = 0;
    $Test::num_of_tests_badpass = 0;
    $Test::num_of_tests_planned = undef;
    $Test:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105747	1106012	
==>AME" => "getclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 122 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106722	1106987	
==>AME" => "getclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 122 <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1049	1158	
==>:Test::run_command( 
            "$PConfig{perl} languages/scheme/schemec languages/$lang_f",
            CD = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557820	557919	
==>t *next = {{^+3}};\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  interpreter->curren <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559204	559303	
==>t *next = {{^+3}};\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  interpreter->curren <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	4360	4455	
==>ing the Film::Rating() method is broken.


=head1 CAVEATS

Test::Simple will only report a maxim <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1153	1244	
==>e   -g -Wall -Wstrict-prototypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual - <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1211	1302	
==>e   -g -Wall -Wstrict-prototypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual - <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1215	1306	
==>e   -g -Wall -Wstrict-prototypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual - <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063789	1064071	
==>mespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1188,
                  "ARGS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710656	710750	
==>MC * const io = PIO_STDOUT(interpreter);\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_put <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711490	711584	
==>MC * const io = PIO_STDOUT(interpreter);\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_put <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352298	352406	
==>io.ops\"\n  PIO_printf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352956	353064	
==>io.ops\"\n  PIO_printf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	315	410	
==>ko::Construct::Type::Number;

use base qw(Jako::Construct::Type);

sub new
{
  my $class = shift <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	9739	9851	
==>me();	# "####"
		feedme();	# ;
	}
	while(1) {
		if ($type[CURR] eq "STMT" or $type[CURR] eq "COMP" or $type[CURR] <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	524	612	
==>nless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Identifier (" . ref($i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	524	612	
==>nless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Identifier (" . ref($i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048347	1048461	
==>3}};\n    {{\@1}} = Parrot_get_global(interpreter, NULL, {{\@2}}, next);\n    {{+=3}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049271	1049385	
==>3}};\n    {{\@1}} = Parrot_get_global(interpreter, NULL, {{\@2}}, next);\n    {{+=3}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/languages/converter.pl	258	359	
==>rn '' unless defined $modifier->[0];
  return '(?)'  if $modifier->[0] eq '?';
  return '(s)'  if $mod <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123833	123948	
==>ine 257 \"src/ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124707	124822	
==>ine 257 \"src/ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125581	125696	
==>ine 257 \"src/ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32329	32435	
==>se will be out by one - NWC
    my $l = $self->line_directive($line, "ref.c");
    return <<EOC;
$l
$decl { <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40951	41057	
==>se will be out by one - NWC
    my $l = $self->line_directive($line, "ref.c");
    return <<EOC;
$l
$decl { <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	9454	9557	
==>ew(@$data);

  my $exit;
  unless($bucket->conform(1)) {
    print "Rate limiting -- please wait a bit a <==
3	/Users/nnunley/parrot/lib/Test/More.pm	14623	14734	
==>Use these very, very, very sparingly.

=cut

sub pass (;$) {
    $Test->ok(1, @_);
}

sub fail (;$) {
    $Test- <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	13788	13896	
==>ime),
  ;
}

sub doc_start {
  my $self = $_[0];
  my $title = $self->get_short_title();
  DEBUG and print "S <==
3	/Users/nnunley/parrot/config/inter/libparrot.pm	41	134	
==>.
# $Id: /parrot/config/inter/libparrot.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	14073	14171	
==>need to test does not fit into one of the standard
testing functions. In that case, you can use the <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	684	781	
==>Win32 paths have \'s in, which qq[] treats as escape sequences.
# Config stuff
our $CC = qq[/usr/b <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	688	785	
==>Win32 paths have \'s in, which qq[] treats as escape sequences.
# Config stuff
our $CC = qq[/usr/b <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	60367	60510	
==>exer;
use Lua::build;
use Lua::symbtab;
use Lua::pir;

sub Run {
    my $parser = shift;
    my ($srcname) = @_;

    open $parser->YYD <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2363	2457	
==>tack_depth[${PC}]
NOWT_TO_PROPOGATE:
PIR

	# We'll emit a label for every single instruction. W <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	51646	51733	
==>directive using
S<C<extract_codeblock($text, '{}', undef, 'E<lt>E<gt>')>>
the '>' charac <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17133	17245	
==>[0];

    DEBUG > 1 and print "Pondering a $para_type paragraph, given the stack: (",
      $self->_dump_curr_ope <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	11517	11625	
==>($textref, "", '\{', '\}', '\{', '\}', 0)
		or $deref eq '$#' or $deref eq '$$' )
	    {
		_failmsg "Bad iden <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	1818	1922	
==>c[$core_numops] = {\n";
    $func_end = "_exec";
    $normal_op = "Parrot_exec_normal_op";
    $cpcf_op = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	373215	373440	
==>NULL;\n  PIO_peek(interpreter, {{\@2}}, s);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106251	1106340	
==>< 1 || typ >= interpreter->n_vtable_max)\n\treal_exception(interpreter, NULL, E_ValueError <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107227	1107316	
==>< 1 || typ >= interpreter->n_vtable_max)\n\treal_exception(interpreter, NULL, E_ValueError <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850362	850750	
==>",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 965,
                  "ARGS" => [
                              "s",
                              "sc",
                              "i"
                            ],
                  "BODY" => "#line 83 \" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1378	1493	
==>IGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $dest_ident = $self->dest <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1258	1373	
==>IGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $dest_ident = $self->dest <==
3	/Users/nnunley/parrot/languages/scheme/Scheme.pm	1361	1450	
==>lf->{code}   = link_functions(Scheme::Generator::generate($self->{tree}));

  return $self <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143613	143907	
==>}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144541	144835	
==>}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145469	145763	
==>}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	317272	317500	
==>conv_i2_ovf",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17867	17958	
==>add_inst ("ERR_$label", 'print',['"Object is not a list\n"']);

  $self->_add_inst ("DONE_$l <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	198	292	
==>ation section

=head1 SYNOPSIS

	use Parrot::Docs::Section::PMCs;

=head1 DESCRIPTION

A docume <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3402	3511	
==>int { $self->{'output_fh'} }   '', 
    $self->{'Thispara'},
    "\n\n"
  ;
  $self->{'Thispara'} = '';
  retu <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2932	3041	
==>int { $self->{'output_fh'} }   '', 
    $self->{'Thispara'},
    "\n\n"
  ;
  $self->{'Thispara'} = '';
  retu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470949	471184	
==>"ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 394 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  i <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	7233	7351	
==>$AMDEST{$_->{label}} = 1;
        }
    }
    foreach (@output4) {
        delete $_->{label} if ($_->{label} && ! $AMD <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	3482	3587	
==>ff the block stack and return it. Bounds checks the block
# stack to make sure we don't pop off the file s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736682	736916	
==>t.ops\"\n  {{\@1}} = (FLOATVAL){{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737428	737662	
==>t.ops\"\n  {{\@1}} = (FLOATVAL){{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056326	1056557	
==>[
                              "p",
                              "k",
                              "s"
                            ],
                  "BODY" => "#line 194 \"src/ops/var.ops\"\n    {{\@1}} = Parrot_get_global_p(i <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	3826	3965	
==>ling.\n";
          delete $self->{'source_fh'}; # so it can be GC'd
          last;
        }
         # but pass thru the undef, which wil <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3114	3216	
==>> "PREG(%ld)",
    'ki' => "IREG(%ld)",

    'ic' => "cur_opcode[%ld]",
    'nc' => "CONST(%ld)->u.numb <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2028	2127	
==>> "PREG(%ld)",
  'ki'  => "IREG(%ld)",

  'ic'  => "cur_opcode[%ld]",
  'nc'  => "CONST(%ld)->u.numb <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	4969	5078	
==>$example_f, $expected, @todo )>

Determine the language from the extension of C<$example_f> and runs
language_ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	5182	5291	
==>$example_f, $expected, @todo )>

Determine the language from the extension of C<$example_f> and runs
language_ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	5397	5506	
==>$example_f, $expected, @todo )>

Determine the language from the extension of C<$example_f> and runs
language_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64128	64304	
==>ROT_JUMP_ENEXT|PARROT_JUMP_GNEXT",
                  "NAME" => "runinterp",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4966	5074	
==>mc_group->{$_} } @pmcs;

    foreach (@ungrouped_pmcs, keys %$group_files) {
        copy("$_$LOAD_EXT", $des <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	323	424	
==>le listed on the command line, or from standard
input if no file is named, and turn it into a C implem <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	5013	5119	
==>, $File::Find::name;
    -f and -e ".svn/text-base/$_.svn-base" and MANIFEST();
}

sub MANIFEST {
    my $l <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1127	1230	
==>_;

use Carp;

#Known parameters, all starting with YY (leading YY will be discarded)
my(%params)=( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1089	1187	
==>_;

use Carp;

#Known parameters, all starting with YY (leading YY will be discarded)
my(%params)=( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	33248	33538	
==>ABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set_addr",
                  "FLAGS" => "",
                  "AR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	34036	34326	
==>ABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set_addr",
                  "FLAGS" => "",
                  "AR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637659	637926	
==>unction",
                  "CODE" => 713,
                  "ARGS" => [
                              "p",
                              "ic",
                              "sc"
                            ],
                  "BODY" => "#line 107 \"src/ops/pmc.ops\" <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	11151	11268	
==>f->ok($test, $name);
        $self->_is_diag($got, 'eq', $expect) unless $test;
        return $test;
    }

    retur <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	353	460	
==>x;

use base qw(Jako::Construct::Expression);

sub new
{
  my $class = shift;
  my ($left, $op);

  return b <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	29069	29183	
==>ad\d$/s
         and ! $self->{'accept_heads_anywhere'}
         and @$curr_open
         and $curr_open->[-1][0] e <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	17118	17228	
==>cmt
EOC
    push @stack, [-1, $l->[1], $l->[2]];
}
sub INPLACE_MODULO
{
    my ($n, $c, $cmt) = @_;
    inplace <==
3	/Users/nnunley/parrot/tools/dev/manicheck.pl	1286	1387	
==>n\n",
  scalar( keys %{$file_list} );

printf "  %5d missing\n",  scalar @missing;
printf "  %5d extra <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84986	85271	
==>" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85892	86177	
==>" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9747	9840	
==>prod;
	foreach $prod ( @{$self->{"prods"}} )
	{
		$prod->addscore($self->{autoscore},0,0) if $ <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1723	1827	
==>$prompt, $prog ? $prog : $conf->data->get($util));
    }

    my ($stdout, $stderr, $ret) = capture_outpu <==
3	/Users/nnunley/parrot/config/inter/make.pm	1597	1701	
==>$prompt, $prog ? $prog : $conf->data->get($util));
    }

    my ($stdout, $stderr, $ret) = capture_outpu <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1737	1841	
==>$prompt, $prog ? $prog : $conf->data->get($util));
    }

    my ($stdout, $stderr, $ret) = capture_outpu <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27574	27692	
==>"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'unless')
		. ' ($text =~ s/\A($ski <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29684	29802	
==>"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'unless')
		. ' ($text =~ s/\A($ski <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31781	31899	
==>"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'unless')
		. ' ($text =~ s/\A($ski <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1918	2037	
==>AGS " .
        "-o " . $target . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/include' . $PATHQUOTE . " " . <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2214	2333	
==>AGS " .
        "-o " . $target . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/include' . $PATHQUOTE . " " . <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2009	2128	
==>AGS " .
        "-o " . $target . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/include' . $PATHQUOTE . " " . <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	24610	24714	
==>ite_greedy_optional($op, $R, $lastback)
                   : $self->rewrite_nongreedy_optional($op, $R, $ <==
3	/Users/nnunley/parrot/lib/Parrot/PMC.pm	883	986	
==>y => 38,
	IntList => 39,
	Iterator => 40,
	SArray => 41,
	ConstSArray => 42,
	FixedStringArray => 43,
	M <==
3	/Users/nnunley/parrot/config/auto/isreg.pm	379	475	
==>igure::Step ':auto';

$description = 'Determining if your C library has a working S_ISREG';

@arg <==
3	/Users/nnunley/parrot/config/init/defaults.pm	5593	5736	
==>E)}, @ARGV; exit $$? >> 8;\'',

        # if platform has a .s file that needs to be assembled
        platform_asm => 0,
        as           = <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	20876	21008	
==>$self->pmc_is_dynpmc($variant->[0])) {
                    $right = 0;
                    push @init_mmds, [$#mmds + 1, $variant->[0 <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1195	1288	
==>+X1$MSK;",
  my %f = (
	FF => "X0=rotate_left((X3^(X1&(X2^X3)))+X0+X4+X6$MSK,X5)+X1$MSK;",
	GG <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	1604	1722	
==>blocks
    $text =~ s[^{.+?^}][]msg;

    # Split on paragraphs
    my @funcs = split /\n{2,}/, $text;

    # If it doe <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2044	2142	
==>_head1');

If Pod::Simple sends an event where the element name has a dash,
period, or colon, the c <==
3	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	3621	3716	
==>m: expandtab shiftwidth=4:
1;

__END__

=head1 NAME

Parrot::PIR::Formatter - Given ugly PIR, fo <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1593	1682	
==>r->new();

my $path_to_parrot = $INC{"Parrot/Config.pm"};
$path_to_parrot =~ s:lib/Parrot/ <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12684	12771	
==>l return 47,
because C<EE<lt>solE<gt>>, C<EE<lt>47E<gt>>, C<EE<lt>0x2fE<gt>>,
and C<EE<l <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	267038	267361	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "istrue",
                  "FLAGS" => "",
                  "A <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	910	1005	
==>IGURATION

You must specify paths to executables in a configuration file.
That file may be place <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	357	450	
==>fined $Lame;

$Linearization_Limit = 90 unless defined $Linearization_Limit;
 # headings/items <==
3	/Users/nnunley/parrot/config/auto/env.pm	486	602	
==>';
@args        = qw(verbose);

sub runstep
{
    my ($self, $conf) = (shift, shift);

    my $verbose = $conf->optio <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	533	643	
==>';

@args = qw(verbose);

sub runstep
{
    my ($self, $conf) = (shift, shift);

    my $verbose = $conf->optio <==
3	/Users/nnunley/parrot/config/auto/msvc.pm	494	604	
==>';

@args = qw(verbose);

sub runstep
{
    my ($self, $conf) = (shift, shift);

    my $verbose = $conf->optio <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	1127	1297	
==>,
            int4_t           => 'int',
            float4_t         => 'double',
            float8_t         => 'double',
        );
        $self->set_result('using mi <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	5279	5388	
==>tables{$arg};
	}
    }
    print <<EOC;
.end		# $cur_func
.namespace [""]

$nst
.sub $real_name prototyped$met <==
3	/Users/nnunley/parrot/Configure.pl	2648	2745	
==>les)>

Use the given ops files.

=item C<--pmc=(files)>

Use the given PMC files.

=item C<--cgoto <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957029	957291	
==>> "find_encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957933	958195	
==>> "find_encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
3	/Users/nnunley/parrot/Configure.pl	2899	3003	
==>o emit a native executable.

=item C<--gc=(type)>

Determine the type of garbage collection. The value fo <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	3658	3781	
==>l_pkg = $b->exported_to() || '';
            local *{ $call_pkg . '::TODO' } = \$extra{todo}
                if defined $ext <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2664	2760	
==>to indented and wrapped XML.  This class is of
interest to people writing Pod formatters based on <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	386	495	
==>my ($self, $what) = @_;
    return () unless $self->{DEBUG};
    my $ctx = $self->{ctx};
    $what = "\%<<rx_p <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2062	2160	
==>]{'Indent'} }
sub   end_over_text    { --$_[0]{'Indent'} }
sub   end_over_block   { --$_[0]{'Indent <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1630	1728	
==>]{'Indent'} }
sub   end_over_text    { --$_[0]{'Indent'} }
sub   end_over_block   { --$_[0]{'Indent <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	575	699	
==>h"} = sub ($$;$) {
        my( $lang_code, $output, $desc ) = @_;

        ++$count;
        my( $lang_f, $pasm_f, $by_f, $ou <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	1051	1148	
==>ned identifier kind attribute.")
    unless defined $kind;
 
  confess("Unrecognized identifier sc <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	15604	15713	
==>= 'String' goto bad_args
    $S2 = typeof $P2
    if $S2 == 'String' goto bad_args
    goto got_args
  bad_arg <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957515	957606	
==>rrot_encoding_number(interpreter, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, N <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958420	958511	
==>rrot_encoding_number(interpreter, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, N <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19805	19938	
==>,
			'BREAK' => 110,
			'FOR' => 6,
			"(" => 8,
			'RETURN' => 112,
			'IF' => 10,
			'FUNCTION' => 12,
			'DO' => 15,
			'LO <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	18	106	
==>e Pod::Simple::PullParserStartToken;
use Pod::Simple::PullParserToken ();
@ISA = ('Pod::S <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684650	684746	
==>ps\"\n      {{\@1}}->vtable->setprop(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n      {{+=4}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685545	685641	
==>ps\"\n      {{\@1}}->vtable->setprop(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n      {{+=4}};\n", <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2936	3031	
==>temkeepn#\\sb60\\sa150\\fi-120\n",
 '/item-text'   => "\n\\par}\n",

 # we don't need any styles <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6374	6655	
==>,
                  "FLAGS" => ":load_file",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 9,
                  "ARGS" => [
                              "sc" <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13339	13439	
==>g
	}
	elsif (@items &&
		( ref($items[0]) =~ /\AParse::RecDescent::UncondReject/
		|| ($items[0]->des <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	12428	12524	
==>as a source for parse_file");
  } elsif(ref(\$source) eq 'GLOB') {
    $self->{'source_filename'} <==
3	/Users/nnunley/parrot/config/init/hints/vms.pm	626	755	
==>e "C compiler died!";
            system("link/exe=test test")        and die "Link failed!";
        };

        *Parrot::Configu <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	3189	3299	
==>e_handler',      # coderef to call when a code (non-pod) line is seen
 'cut_handler',       # coderef to call w <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6300	6409	
==>ames[] = {
EOM

    for my $entry (@{$vtable}) {
    next unless ($entry->[4] =~ /MMD_/);
    next if ($entry- <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3925	4017	
==>ssing arrays, twice, expect 12
function aftwo(y())
	print y(4)
end function
function arrfunc( <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15198	15290	
==>ssing arrays, twice, expect 12
function aftwo(y())
	print y(4)
end function
function arrfunc( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911861	912062	
==>",
                              "sc",
                              "sc"
                            ],
                  "BODY" => "#line 284 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918899	919100	
==>",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919912	920113	
==>",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(int <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2788	2899	
==>DFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sour <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3097	3208	
==>DFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sour <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2892	3003	
==>DFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sour <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	518	627	
==>pp::Driver
#
# This module is part of the Parse::Yapp package available on your
# nearest CPAN
#
# Any us <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	504	608	
==>pp::Driver
#
# This module is part of the Parse::Yapp package available on your
# nearest CPAN
#
# Any us <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	30191	30281	
==>(?=<H1>)'


=head2 C<extract_delimited>

The C<extract_delimited> function formalizes the c <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	283	384	
==>'2.02';
@ISA = ('Pod::Simple::Methody');
BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG)
          ? \&P <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	165	266	
==>'2.02';
@ISA = ('Pod::Simple::Methody');
BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG)
          ? \&P <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	8501	8634	
==>", "PUN"] );
			next;
		}

		if ($unary) {
			push(@expr, [ "-1.0", "INT" ],
				    [ "*", "PUN"] );
			next;
		}
		# Sadly, IMCC wan <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	49467	49563	
==>argument is to be used for the outermost delimiters.

Once the prefix an dthe outermost opening d <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	739	1178	
==>E} = shift; }

  return defined $self->{LINE} ? $self->{LINE} : '';
}


###############################################################################
###############################################################################
##
## TOKEN PROCESSING:
##
###############################################################################
###############################################################################


#
# tokens()
#

sub <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	28369	28484	
==>od($op, @{ $op->{args} }, $lastback)
              unless $self->{DEBUG};
            return $self->wrap($op, $self- <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	33338	33446	
==>We have no plan.
        if( $self->{No_Plan} ) {
            $self->_print("1..$self->{Curr_Test}\n") unless <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53672	53782	
==>m($item)
				      or  _no_rule("<resync>",$line);
			}
			elsif ($grammar =~ m/(?=$RESYNCPATMK)/gco
				and do <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	442	550	
==>EFIX => "_W", NEXT => 'CONT', REDO => 'REDO', LAST => 'LAST' },
  'if'       => { PREFIX => "_I", NEXT => 'TE <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	463	571	
==>EFIX => "_W", NEXT => 'CONT', REDO => 'REDO', LAST => 'LAST' },
  'if'       => { PREFIX => "_I", NEXT => 'TE <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	5093	5203	
==>tation file.

=cut

sub process_file_start_token
{
    my $self = shift;
    my $token = shift;
    my $tagname <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1362	1460	
==>rameters
my(@params)=('LEX','RULES','STATES');

sub new {
    my($class)=shift;
	my($errst,$nb <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1317	1410	
==>rameters
my(@params)=('LEX','RULES','STATES');

sub new {
    my($class)=shift;
	my($errst,$nb <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12422	12569	
==>l($parser);
                push @opcodes, @{ $global->[1] };
                my $key = BuildLiteral( $parser, $idf, 'key' );
                pus <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16930	17077	
==>l($parser);
                push @opcodes, @{ $global->[1] };
                my $key = BuildLiteral( $parser, $idf, 'key' );
                pus <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13052	13157	
==>. Since you almost certainly wanted
					  '<error?> <reject>' Parse::RecDescent
					  supplied it for yo <==
3	/Users/nnunley/parrot/tools/dev/cc_flags.pl	481	577	
==>a F<Makefile> to process the flags to pass to the
compiler for each C file.

See F<config/gen/cfl <==
3	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	1327	1436	
==>ould keep the runtime stack clean

MAINLOOPNR:
	set I20, 0    # Interactive mode
	set S0, ""
	
	set S0, ""
	re <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18621	18726	
==>lose_paren) {
        while (1) {
          push @args, Jako::Construct::Expression::Value->new($block, $s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19647	19752	
==>lose_paren) {
        while (1) {
          push @args, Jako::Construct::Expression::Value->new($block, $s <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16859	16963	
==>$_);
    my $pair = $self->_save_1 ('P');

    $self->_add_inst ('', 'new',[$pair,'.Array']);
    $self-> <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	958	1065	
==>oreach my $group (qw(init inter auto gen))
    {
        my $dir = $dist->existing_directory_with_name('conf <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4298	4404	
==>r the run core function declaration.

=cut

sub run_core_func_decl
{
    my ($self, $core) = @_;

    retur <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2786	2892	
==>r the run core function declaration.

=cut

sub run_core_func_decl
{
    my ($self, $core) = @_;

    retur <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	7946	8055	
==>)>

Initializes the instance. C<$class> is its class.

=cut

sub init() {
    my ($self, $class) = @_;

    $s <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	993	1078	
==>_t*)cur_opcode - (opcode_t*)interpreter->code->prederef.code))
#define CUR_OPCODE ((op <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1123	1208	
==>_t*)cur_opcode - (opcode_t*)interpreter->code->prederef.code))
#define CUR_OPCODE ((op <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33950	34067	
==>{
        my $type = $method->{type};
        $ret_def = "$type ret_val;";
        $func_ret = $self->gen_ret($method- <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38912	39029	
==>{
        my $type = $method->{type};
        $ret_def = "$type ret_val;";
        $func_ret = $self->gen_ret($method- <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	13968	14090	
==>mg;
                      $body =~ s/\bOP_SIZE\b/{{^$op_size}}/mg;

        $branch   ||= $body =~ s/\bgoto\s+OFFSET\((.*?) <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8532	8652	
==>iter
    if value_at == op2 goto got_it
    inc pos
    goto loop_begin
got_it:
    inc pos
    push result, pos
    .ret <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1624	1717	
==>nt_start( "head1", \%attributes );
  $parser->_handle_text( "Hi there" );
  $parser->_handle_e <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	1219	1416	
==>);

            if( $type eq 'HASH' ) {
                %{$_[0]} = %$data;
            }
            elsif( $type eq 'ARRAY' ) {
                @{$_[0]} = @$data;
            }
            elsif( $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557728	557822	
==>"#line 131 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t * <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559112	559206	
==>"#line 131 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t * <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	1005	1100	
==>ate method code suppliers.
$output .= generate_bodies(@methods);

# End of output.
$output .= << <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227335	227424	
==>30 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get_stri <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228315	228404	
==>30 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get_stri <==
3	/Users/nnunley/parrot/config/init/defaults.pm	3062	3187	
==>red for GNU ld.
        ld_load_flags     => $Config{lddlflags},

        libs => $Config{libs},

        cc_inc     => "-I./i <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	2305	2401	
==>te> is true then the contents of C<$target> will be deleted
before any HTML is written. This argu <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1125	1219	
==>:Tests;
use Parrot::Docs::Section::EditorPlugins;

=item C<new()>

Returns a new section.

=cut <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13127	13321	
==>CK_CLEANUP_NULL);\n  loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13971	14165	
==>CK_CLEANUP_NULL);\n  loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, ' <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	2325	2451	
==>($src, $is_branch);

        $pc       = $new_pc;
	$op_code  = unpack "x$offset l", $pf->byte_code;
        $op       = $ops->o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807432	807853	
==>=> [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 911,
                  "ARGS" => [
                              "n",
                              "p",
                              "k"
                            ],
                  "BODY" => "#line <==
3	/Users/nnunley/parrot/examples/benchmarks/oo5.pl	128	253	
==>ge Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift;
    return bless [ 10, 20 ], $self;
}

sub i {
    my $self = <==
3	/Users/nnunley/parrot/examples/benchmarks/oo6.pl	120	245	
==>ge Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift;
    return bless [ 10, 20 ], $self;
}

sub i {
    my $self = <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	6145	6251	
==>rr, "\t" INTVAL_FMT ": %s\n", i, argv[i]);
        }

        userargv->vtable->push_string(interpreter, us <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	3316	3450	
==>en'      , 165,
 'brvbar'   , 166,
 'sect'     , 167,
 'uml'      , 168,
 'copy'     , 169,
 'ordf'     , 170,
 'laquo'    , 171,
 'not <==
3	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	3062	3256	
==>bj_files) . "\n";
    close(F);
}


############################################################################
sub run_command {
    my ($command) = @_;

    print "- $command\n";
    system($c <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	3044	3155	
==>list.

=cut

sub keys
{
    my $self = shift;

    return keys %{$self->{c}};
}

=item C<dump()>

Provides a L<D <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	734	837	
==>compile()
#
# By default, compiling a literal does nothing, returning you
# the literal for you to use i <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	27914	28059	
==>ack ]),
          $db_start => $self->dbprint("-> $desc ENTER\n"),
                       @ops,
                       $self->dbprint(".. $desc NE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954271	954356	
==>c/ops/string.ops\"\n  {{\@1}} = Parrot_encoding_number_of_str(interpreter, {{\@2}});\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955062	955147	
==>c/ops/string.ops\"\n  {{\@1}} = Parrot_encoding_number_of_str(interpreter, {{\@2}});\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596214	596468	
==>ubclass(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597107	597361	
==>ubclass(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	8507	8604	
==>st, n)
#define GET_NCI_P(n) get_nci_P(interpreter, &st, n)

/*
 * set return value
 */
static void <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2456	2575	
==>te_a_file($self, $h, $c);
    } else {
        while (my @fc = each %{$self->{pmcs}}) {
            my ($file, $generato <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122035	122132	
==>ill.\n   * it's just casting a signed integral to the equivalent unsigned.\n   */\n  LVALUE_CAST(U <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122947	123044	
==>ill.\n   * it's just casting a signed integral to the equivalent unsigned.\n   */\n  LVALUE_CAST(U <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	20152	20275	
==>func = $method->{mmd};
            # dynamic PMCs need the runtime type
            # which is passed in entry to class_init <==
3	/Users/nnunley/parrot/lib/Test/More.pm	2006	2119	
==>o(),       $test_name );
      is( foo(42), 23, $test_name );
  };

  can_ok($module, @methods);
  isa_ok($object, <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	1346	1453	
==>n ASCII-land\n";
  print "# We are under a Unicode-safe Perl.\n";
}

# Design note:
# This is a parser for P <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	2318	2434	
==>k) {
    if (defined $name) {
      $self->SYNTAX_ERROR("No loop '%s' in loop control.", $name);
    } else {
      $ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3281	3383	
==>od to check the short description for each
			# file and create an item for sequences of files with the <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	28055	28137	
==>.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.

sub _treat_Z <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	25367	25482	
==>$then, $elseifs, $else ) = @_;
    my @opcodes = ();
    my $cond = get_cond( $parser, $expr );
    push @opcodes <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	5908	6009	
==>{
	my $self = shift;
	
	$self->check_pod;

	return $self->{POD_ERRORS};
}

=item C<pod_as_html()>

Run <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	220	313	
==>Pod::Simple::PullParser ();
BEGIN {@ISA = ('Pod::Simple::PullParser')}

use Carp ();
BEGIN { * <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094764	1095016	
==>UMP" => 0,
                  "NAME" => "exec",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 121 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095458	1095710	
==>UMP" => 0,
                  "NAME" => "exec",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 121 <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	32855	32949	
==>t example is I<not> the same as deleting the first
quote-like pattern. For instance, if C<$text <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	675	769	
==>.
C<$resources> should be the relative path from the page to
F<docs/resources>, the image and C <==
3	/Users/nnunley/parrot/tools/build/list_unjitted.pl	72	176	
==>"Must give a directory as an argument.\nPossible options are:";
    opendir DIR, 'jit' or die $!;
    whi <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	53482	53577	
==>f fields to return. If this
argument is omitted (or C<undef>), split continues as long as possib <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527347	527611	
==>ME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6876	7011	
==>ach (@args) {
            print {$FH} ", " unless ($first);
            print {$FH} "$_->{symbol}";
            if ( exists $_->{prag <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	513	624	
==>th> relative to the default temporary
directory.

=cut

sub tmp_file
{
    my $self = shift;
    
    return $se <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629898	630080	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630887	631069	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107610	1107792	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	60076	60179	
==>sif ($grammar =~ m/$PROD/gco)
		{
			_parseunneg("a new production", 0,
				    $lookahead,$line) or nex <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	539	637	
==>GE provides functions for testing the grammar engine
and Perl 6 rules.

=cut

use strict;
use warni <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	1274	1370	
==>_call {
	die "pre_call not implemented for current stack to register mapper\n";
}
sub post_call { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667569	667792	
==>->push_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668343	668566	
==>->push_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	7066	7181	
==>t/local/lib  -licuuc -licudata -lpthread -lm',
             'inc' => 'include/parrot',
             'include_dir' => <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	9900	9996	
==>$syms[CURR]) and not isbuiltin($syms[CURR]));
		die "LOOP" if $c++>100;
		if ($type[CURR] eq "STR <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	9530	9623	
==>defined\n" unless exists $labdef{$_};
	}
}
sub create_label {
	unless (exists $labels{$syms[CU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957001	957265	
==>,
                  "NAME" => "find_encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "func <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957905	958169	
==>,
                  "NAME" => "find_encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "func <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11133	11281	
==>ent->new($block, $ident);
      }

      next;
    }

    #
    # Arithmetic assigns:
    #
    #   <var> <op> <value>;
    #

    if ($token->is_ide <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527272	527566	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	5092	5194	
==>eturn undef }
 # But subclasses are welcome to override this if they have man
 #  pages somewhere URL-a <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12583	12677	
==>checkleftmost($)
{
	my @items = @{$_[0]->{"items"}};
	if (@items==1 && ref($items[0]) =~ /\APar <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	521	622	
==>ough input until R matches
# atend : At the end of the input?
# advance : Unconditionally advance 1 ch <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	394	491	
==>/s (million operations per second) using
integer arithmetic.

Prints out:

=over 4

=item * the nu <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	390	487	
==>/s (million operations per second) using
integer arithmetic.

Prints out:

=over 4

=item * the nu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9465	9646	
==>>scope : undef;
}


###############################################################################

=head2 BLOCK->access_of_ident(NAME)

This is a shortcut method that uses find_sym <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	16580	16690	
==>d inherits all its methods.

A subclass of Pod::Simple::PullParser should define a C<run> method
that calls C<< <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6654	6736	
==>{CURIC}_LOOP
POST_BRANCH_switch_${CURIC}_LOOP_EXIT:

POST_BRANCH_NOT_switch_${CURIC <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4592	4674	
==>{CURIC}_LOOP
POST_BRANCH_switch_${CURIC}_LOOP_EXIT:

POST_BRANCH_NOT_switch_${CURIC <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958847	959129	
==>encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1079,
                  "ARG <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	14724	14846	
==>ng init) {
    /* initialize and return op_lib ptr */
    if (init == 1) {
$init1_code
    return &${bs}op_lib;
    }
    / <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1682	1781	
==>\n",

 'Verbatim'  => "\n{\\pard\\li#rtfindent##rtfkeep#\\plain\\s20\\sa180\\f1\\fs18\\lang1024\\nop <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557739	557832	
==>\"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next = {{^ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559123	559216	
==>\"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next = {{^ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560506	560599	
==>\"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next = {{^ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	88	191	
==>se it might cause use_ok() to accidentally succeed
# even though the module being used forgot to use Car <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947068	947159	
==>rrot_charset_number(interpreter, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, NU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947970	948061	
==>rrot_charset_number(interpreter, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, NU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791511	791649	
==>"
                            ],
                  "BODY" => "#line 432 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed_i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792418	792556	
==>"
                            ],
                  "BODY" => "#line 432 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed_i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605429	605673	
==>ME" => "addattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606219	606463	
==>ME" => "addattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	1335	1445	
==>rns C<$orig> if C<$new> is undefined.

=cut

sub integrate
{
    my ($orig, $new) = @_;

    # Rather than spri <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2858	2974	
==>(\d+)/       and $smoke{duration}     = $1;
  $html =~ /VERSION: ([\d\.]+)/    and $smoke{VERSION}      = $1;
  $html <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	557	649	
==>o::Construct::Block');
  confess("Identifier (" . ref($ident) . ") is not!") unless UNIVERSAL <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	557	649	
==>o::Construct::Block');
  confess("Identifier (" . ref($ident) . ") is not!") unless UNIVERSAL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	689497	689718	
==>=> 774,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 590 \"src/ops/pmc.ops\"\n   {{\@1}} = {{\@2}}->vt <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	3168	3279	
==>private_h': $!";
    print OUT <<"HEADER";
/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * Thi <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18265	18365	
==>";
}
sub parse_gosub {
	feedme;
	create_label();

	push @{$code{$seg}->{code}}, <<GOSUB;	
	bsr $label <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1161	1281	
==>'..', # $self->{relpath}, 
            STDOUT => $pasm_f, STDERR => $pasm_f,
        );
        Parrot::Test::run_command <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1070	1190	
==>'..', # $self->{relpath}, 
            STDOUT => $pasm_f, STDERR => $pasm_f,
        );
        Parrot::Test::run_command <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	16002	16112	
==>type_trans)
    stypes = push type_trans
    loadtype = type_trans

    # If the object is OK, we'll not have r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	512982	513271	
==>"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 591,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 695 \"src/ops/math <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1092560	1092817	
==>,
                  "TYPE" => "inline",
                  "CODE" => 1211,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 196 \"src/ops/exper <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	2366	2495	
==>}
sub is_goto          { return shift->is('goto');          }
sub is_ident         { return shift->is('ident');         }
sub is_i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23159	23283	
==>_value);

        $self->require_close_paren;
      }

      $self->require_semicolon;
      
      my $goto = Jako::Construc <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	7399	7492	
==>oup$LOAD_EXT", @sources)) {
        run(partial_link_cmd("$group$LOAD_EXT", $libs, \@sources)) <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7610	7703	
==>oup$LOAD_EXT", @sources)) {
        run(partial_link_cmd("$group$LOAD_EXT", $libs, \@sources)) <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	15254	15467	
==>arrot,
                                         STDOUT => $out_f,
                                         STDERR => $out_f);
            }

            my $meth = $parrot_test_map{$func};
            my $real_outp <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1578	1672	
==>egister_num} = ${STEMP0}

# Emit pop code.
${INS} = concat ${STACK$register_num}
${INS} = conca <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3288	3382	
==>egister_num} = ${STEMP0}

# Emit pop code.
${INS} = concat ${STACK$register_num}
${INS} = conca <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86721	86913	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new_callback",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87722	87914	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new_callback",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934155	934426	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":ba <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934930	935201	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":ba <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2874	2985	
==>cut

sub gen_h {
    my ($self) = @_;
    my $hout = dont_edit('various files');
    my $lc_libname = lc $self-> <==
3	/Users/nnunley/parrot/config/init/hints/linux.pm	1657	1798	
==>ath          => '-Wl,-rpath=',

        has_dynamic_linking     => 1,
        parrot_is_shared        => 1,
        libparrot_shared        => <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2968	3072	
==>dex)= $_[0] - ${$$self{DOTPOS}} - 1;

		$index < 0
	and	-$index <= @{$$self{STACK}}
	and	return $$sel <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2824	2924	
==>dex)= $_[0] - ${$$self{DOTPOS}} - 1;

		$index < 0
	and	-$index <= @{$$self{STACK}}
	and	return $$sel <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23630	23733	
==>urn,$temp]);
    $self->_add_inst("NEXT_$label");
    $self->_restore($temp);
  }
  return $return;
}

s <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24092	24195	
==>urn,$temp]);
    $self->_add_inst("NEXT_$label");
    $self->_restore($temp);
  }
  return $return;
}

s <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	8738	8839	
==>my $slash       = $conf->data->get('slash');
        my $new_perldoc = $conf->data->get('new_perldoc') <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	14236	14360	
==>{{=$1}}/mg;
        $pop      ||= $body =~ s/\bgoto\s+POP\(\)/{{=*}}/mg;
                      $body =~ s/\bexpr\s+OFFSET\((. <==
3	/Users/nnunley/parrot/tools/build/list_unjitted.pl	447	563	
==>(my ($op) = /(\S+)\s+\d+/){
        push @ops, $op;
    }
    else { die "Misformated line: $.";}
}

close OPS or die <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11984	12083	
==>TRING|BARE|INT|FLO/) {
			push @ld, { type => "STRING", value => qq{"$syms[CURR]"} };
		} elsif ($ty <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223589	223679	
==>ps\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224531	224621	
==>ps\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	678	785	
==>ct::Expression::Value::Identifier');

  my $self = bless {
    BLOCK => $block,
    IDENT => $ident
  }, $cl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	678	785	
==>ct::Expression::Value::Identifier');

  my $self = bless {
    BLOCK => $block,
    IDENT => $ident
  }, $cl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6949	7051	
==>comma');         }
sub skip_close_brace   { return shift->skip('close-brace');   }
sub skip_close_brack <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11025	11116	
==>YPE_VOID goto pre_call_HAS_RETURN_${CURIC}
if "${CURIC}" == "73" goto pre_call_HAS_RETURN_${ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8211	8302	
==>YPE_VOID goto pre_call_HAS_RETURN_${CURIC}
if "${CURIC}" == "73" goto pre_call_HAS_RETURN_${ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5873	5964	
==>YPE_VOID goto pre_call_HAS_RETURN_${CURIC}
if "${CURIC}" == "73" goto pre_call_HAS_RETURN_${ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	2207	2308	
==>scope} = $scope;
    my $symbtab = shift @{ $parser->YYData->{scopef} };
    $parser->YYData->{symbt <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719817	719912	
==>io = {{\@1}};\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721017	721112	
==>io = {{\@1}};\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	7085	7274	
==>',
        Attributes => {
          name  => $name,
          kind  => 'fn',
          fnlib => $fnlib,
          fn    => $fn
        }
      });
    }
  }
  else {
    return;
  }

  fore <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	350	452	
==>=head2 Instance Methods

=over 4

=cut

package Parrot::OpTrans::CGoto;

use strict;
use warnings;

use <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	5691	5782	
==>DER <<END_C;
#include "parrot/parrot.h"
#include "parrot/oplib.h"

$sym_export extern op_lib <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934058	934167	
==>ring.ops\"\n  {{\@1}} = string_downcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934833	934942	
==>ring.ops\"\n  {{\@1}} = string_downcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10737	10828	
==>0}] = ${STEMP0}

# Next parameter.
dec stack_depth
goto pre_call_PLOOP_${CURIC}
PRE_CALL_PLO <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7990	8081	
==>0}] = ${STEMP0}

# Next parameter.
dec stack_depth
goto pre_call_PLOOP_${CURIC}
PRE_CALL_PLO <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	4195	4337	
==>ocal $_ = $comment;
	s/^\#\* /\# /mg;         # #*
	s/^\#(\#|\*)+\s*$/\#/mg; # line of "*"s or "#"s
	s/^\#\!.+//m;            # #!
	s/^\# *[a-z <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Transcode.pm	383	503	
==>$class...\n";
  eval "require $class;";
  if($@) {
    DEBUG and print "Couldn't load $class: $@\n";
  } else {
    DEBUG <==
3	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	232	327	
==>NOPSIS

    % perl tools/dev/gen_manifest_skip.pl > MANIFEST.SKIP

=head1 DESCRIPTION

Goes thro <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4639	4753	
==>nch($) {
	my $self = shift;
	my $pops = shift;
	my $register_num = 0;
	my $pir = '';

	# Do code for each pop. Need <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3055	3169	
==>nch($) {
	my $self = shift;
	my $pops = shift;
	my $register_num = 0;
	my $pir = '';

	# Do code for each pop. Need <==
3	/Users/nnunley/parrot/tools/docs/pod_errors.pl	321	421	
==>orts on any POD errors found in the files.

=cut

use lib 'lib';
use Parrot::Docs::Directory;

my $di <==
3	/Users/nnunley/parrot/lib/Test/More.pm	20710	20810	
==>t to 1.

It's perfectly safe to nest SKIP blocks.  Each SKIP block must have
the label C<SKIP>, or Te <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2886	2983	
==>, $indent, $self->{'Thispara'} .= "\n");
  $out =~ tr{\xA0}{ } if Pod::Simple::ASCII;
  print {$se <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2420	2517	
==>, $indent, $self->{'Thispara'} .= "\n");
  $out =~ tr{\xA0}{ } if Pod::Simple::ASCII;
  print {$se <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	3482	3589	
==>->{_return} ]);
}

sub rewrite_goto {
    my ($self, $op, $R, $lastback) = @_;
    return aop('goto', [ $R ] <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15956	16063	
==>ard-hyphen character (which
  #  looks just like a normal dash character).
  
  my $x; # scratch
  if(!defin <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	164	249	
==>eserved.
# $Id: /parrot/config/gen/makefiles/dynclasses_pl.in 15833 2006-01-13T18:59:4 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3949	4042	
==>ect 12
function aftwo(y())
	print y(4)
end function
function arrfunc(x())
	u=aftwo(x())
	arrfu <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15222	15315	
==>ect 12
function aftwo(y())
	print y(4)
end function
function arrfunc(x())
	u=aftwo(x())
	arrfu <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	163	256	
==>::Section::Tools - Tools documentation section

=head1 SYNOPSIS

    use Parrot::Docs::Section <==
3	/Users/nnunley/parrot/config/gen/PodText.pm	266	376	
==>xt->runstep($conf,
        "source1.pod" => "dest1.pod"
        "source2.pod" => "dest2.pod"
    );

=head1 DES <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8734	8833	
==>_${CURIC}

# Get type of return value and build code to pop it.
${ITEMP1} = elements ${STYPES}
dec $ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7306	7405	
==>_${CURIC}

# Get type of return value and build code to pop it.
${ITEMP1} = elements ${STYPES}
dec $ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	702	834	
==>, 'P5', 'P6[0]'],
  ['',             'save', 'P6'],
  ['',             'save', 'P1'],
  ['',             '.include', '"interpinfo.pas <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3375	3478	
==>=shift;

    keys %{$self->{STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
}

sub YYLexer {
    my($self <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3205	3302	
==>=shift;

    keys %{$self->{STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
}

sub YYLexer {
    my($self <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18653	18758	
==>{
          push @args, Jako::Construct::Expression::Value->new($block, $self->require_value);
          l <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19679	19784	
==>{
          push @args, Jako::Construct::Expression::Value->new($block, $self->require_value);
          l <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	12410	12505	
==>his is
the string version.

=item B<isnt_num>

  $Test->is_num($got, $dont_expect, $name);

Like <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11336	11431	
==>({lhs => 1});
	push @{$code{$seg}->{code}}, <<SWAP;
	\$${righttype}99 = $rightres
	$rightres = $ <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	367	459	
==>use Parrot::Configure::Step ':auto';

$description = 'Determining if your C compiler is actua <==
3	/Users/nnunley/parrot/config/auto/msvc.pm	387	479	
==>use Parrot::Configure::Step ':auto';

$description = 'Determining if your C compiler is actua <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3456	3546	
==>1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}
g <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5218	5308	
==>1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}
g <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101317	101607	
==>{
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102087	102377	
==>{
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103523	103813	
==>{
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035553	1035648	
==>ctx);\n    PMC *result = NULL;\n\n    if (!PMC_IS_NULL(lex_pad))\n\tresult = VTABLE_get_pmc_keye <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036717	1036812	
==>ctx);\n    PMC *result = NULL;\n\n    if (!PMC_IS_NULL(lex_pad))\n\tresult = VTABLE_get_pmc_keye <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	1830	1945	
==>_fallback{$in} # Fallback.
        || $FAR_CHAR; # Fall further back
  }
  
  # Normal handling:
  if($in =~ m/^\d+$ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11063	11156	
==>DEFGHIJKLMNOPQRSTUVWXYZ0123456789])/sprintf('%%%02X',ord($1))/eg;
        # Yes, stipulate the <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4412	4504	
==>DEFGHIJKLMNOPQRSTUVWXYZ0123456789])/sprintf('%%%02X',ord($1))/eg;
       # Yes, stipulate the <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79583	79872	
==>data({{\@1}}) = p;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81104	81393	
==>data({{\@1}}) = p;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3718	3809	
==>ple::Checker -e \
   "exit Pod::Simple::Checker->filter(shift)->any_errata_seen" \
   thingy <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Compilers.pm	528	659	
==>em C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shift;
    
    return $self->SUPER::new(
        'Co <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1179	1295	
==>em C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shift;

    return $self->SUPER::new(
        'Co <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	1343	1448	
==>em C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new(
		'Co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847794	848059	
==>=> "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 96 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848573	848838	
==>=> "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 96 <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	9570	9706	
==>,
   86, 'V',
   87, 'W',
   88, 'X',
   89, 'Y',
   90, 'Z',
   91, '[',
   92, "\\", #!
   93, ']',
   94, '^',
   95, '_',
   96, '`', <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16989	17084	
==>ir,2]);
    $self->_add_inst ('', 'set',[$pair.'[0]',$item]);
    $self->_add_inst ('', 'set',[$ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2376	2470	
==>cted, $description, @todo)>

Runs the target string against the Perl 6 pattern, passing the tes <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3810	3904	
==>cted, $description, @todo)>

Runs the target string against the Perl 6 pattern, passing the tes <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	250013	250208	
==>BODY" => "#line 693 \"src/ops/cmp.ops\"\n  {{\@1}} = ! {{\@1}};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4879	4984	
==>) = 
        gather_groups_and_libs(@pmcs);
    my @ungrouped_pmcs = grep { ! exists $pmc_group->{$_} } @p <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4983	5088	
==>) = 
        gather_groups_and_libs(@pmcs);
    my @ungrouped_pmcs = grep { ! exists $pmc_group->{$_} } @p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540423	540528	
==>} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541675	541780	
==>} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542927	543032	
==>} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+= <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21585	21699	
==>, @{ $expr1->[1] };
    push @opcodes, @{ $expr2->[1] };
    push @opcodes, new LocalDir( $parser,
        'resu <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	22407	22521	
==>, @{ $expr1->[1] };
    push @opcodes, @{ $expr2->[1] };
    push @opcodes, new LocalDir( $parser,
        'resu <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	7722	7805	
==>Test::todo_is &Test::todo_isnt &Test::todo_cmp_ok &Test::todo_eval_is &Test::todo_is <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	744	852	
==>t('libs');
    my $linkflags = $conf->data->get('linkflags');
    my $ccflags   = $conf->data->get('ccflags') <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	685	793	
==>t('libs');
    my $linkflags = $conf->data->get('linkflags');
    my $ccflags   = $conf->data->get('ccflags') <==
3	/Users/nnunley/parrot/config/auto/readline.pm	697	805	
==>t('libs');
    my $linkflags = $conf->data->get('linkflags');
    my $ccflags   = $conf->data->get('ccflags') <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	29596	29716	
==>[-1];
    print <<EOC;
	$cmt
EOC
    push @stack, $tos;
}

sub DUP_TOPX
{
    my ($n, $c, $cmt) = @_;
    foreach (1..$n) <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3032	3135	
==>ex <= @{$$self{STACK}}
	and	return $$self{STACK}[$index][1];

	undef;	#Invalid index
}

sub YYCurt <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2885	2982	
==>ex <= @{$$self{STACK}}
	and	return $$self{STACK}[$index][1];

	undef;	#Invalid index
}

sub YYCurt <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2087	2191	
==>itespace($file, $source);

    # The following MUST apply.
    check_tabs($file, $source);
    check_cpp_ <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2688	2790	
==>-----------------

%Name2character_number = (
 # General XML/XHTML:
 'lt'   => 60,
 'gt'   => 62,
 'quo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22017	22152	
==>"ic"
                            ],
                  "BODY" => "#line 356 \"src/ops/core.ops\"\n  if (!{{\@1}}->vtable->get_bool(interp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	690521	690810	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "thaw",
                  "FLAGS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691277	691566	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "thaw",
                  "FLAGS <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	7167	7284	
==>inition = "case $index:";
	$comment    = "/* ". $op->full_name() ." */";
    }
    else {
        $definition = "$prot <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5651	5756	
==>ug & 0x2
#DBG>	and	print STDERR "In state $stateno:\n";
#DBG>		$debug & 0x08
#DBG>	and	print STDERR "St <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5380	5482	
==>ug & 0x2
#DBG>	and	print STDERR "In state $stateno:\n";
#DBG>		$debug & 0x08
#DBG>	and	print STDERR "St <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	6819	6911	
==>%{ $this->{'accept_directives'} } if wantarray;
  return;
}

#------------------------------- <==
3	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	2238	2464	
==>egin ) {
                    push @output, [ 1, q{} ];
                    $level++;
                }
            }
            push @output, [ 1, $line ];
            if ( $line =~ $block_end ) {
                push @output, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2769	2858	
==>::Construct::Type::Integer');
  $self->SYNTAX_ERROR("Can only do bitwise ops on integers") <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2899	2988	
==>::Construct::Type::Integer');
  $self->SYNTAX_ERROR("Can only do bitwise ops on integers") <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	978	1071	
==>ssion::Value::Identifier');
  confess "Left is not Value!" if defined $left and not UNIVERSAL: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1006	1099	
==>ssion::Value::Identifier');
  confess "Left is not Value!" if defined $left and not UNIVERSAL: <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	5517	5608	
==>};
}

=item C<line_directive_here($self,$output,$file)>

Generates the C pre processor strin <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	32886	33012	
==>let->[$i][1]{'content-implicit'} = 'yes';
        
        if( 3 == @{ $treelet->[$i] } ) {
          # But if it IS just one t <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	21548	21663	
==>$pres, 'P'];
	return;

    }
    # XXX the label may be wrong, if the JUMP_IF_x got rewritten
    if ($r->[2] eq 'I' <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	4928	5030	
==>ile:
if (! -d $moddir) {
    mkdir($moddir, 0755) or die "$0: Could not mkdir $moddir: $!!\n";
}
open M <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1712	1797	
==>rd\\li#rtfindent##rtfkeep#\\plain\\s20\\sa180\\f1\\fs18\\lang1024\\noproof\n",
 '/Verb <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1854	1939	
==>rd\\li#rtfindent##rtfkeep#\\plain\\s20\\sa180\\f1\\fs18\\lang1024\\noproof\n",
 '/Verb <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	13301	13393	
==>lass="leftsep num tests_total"><tmpl_var name=total>:</td>
	      <td class="num tests_ok"><t <==
3	/Users/nnunley/parrot/config/gen/config_h.pm	295	380	
==>clude/parrot/has_header.h> with platform-specific header
information, and F<include/pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062514	1062608	
==>ot = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpreter, ns_root, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063383	1063477	
==>ot = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpreter, ns_root, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064253	1064347	
==>ot = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpreter, ns_root, {{\ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39565	39669	
==>ss;
}

sub code($$$$)
{
	my ($self, $namespace, $rule) = @_;
	
	my ($leftarg, $op, $rightarg) =
		@{$self <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2545	2644	
==>ent({ Name => 'op', Attributes => { kind => 'infix', name => $self->op } });
    $self->left->sax($h <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2422	2521	
==>ent({ Name => 'op', Attributes => { kind => 'infix', name => $self->op } });
    $self->left->sax($h <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2	183	
==>ackage Pod::Simple::BlackBox;
#
# "What's in the box?"  "Pain."
#
###########################################################################
#
# This is where all the scary things h <==
3	/Users/nnunley/parrot/config/init/miniparrot.pm	1037	1207	
==>VEL') . '-miniparrot',
        TEMP_cg_h          => '',
        TEMP_cg_c          => '',
        TEMP_cg_o          => '',
        TEMP_cg_r          => '',
        cg_f <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21444	21536	
==>TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched action< <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369220	369498	
==>function",
                  "CODE" => 432,
                  "ARGS" => [
                              "s",
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 341 \"src/ops/io.ops\"\n  {{\@1}} = <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	37371	37486	
==>nt "Treating $para_type paragraph as such because stack is empty.\n";
        } else {
          my @fors = grep $_- <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	51646	51743	
==>CTION};
					$self->{_AUTOTREE}{NODE}
						= new Parse::RecDescent::Action(q{{bless \%item, $item <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355094	355199	
==>\"src/ops/io.ops\"\n  PMC * const p = {{\@1}};\n  STRING * const s = (VTABLE_get_string(interpreter, p));\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355861	355966	
==>\"src/ops/io.ops\"\n  PMC * const p = {{\@1}};\n  STRING * const s = (VTABLE_get_string(interpreter, p));\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360794	360899	
==>\"src/ops/io.ops\"\n  PMC * const p = {{\@1}};\n  STRING * const s = (VTABLE_get_string(interpreter, p));\ <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	13882	14015	
==>as_method} }};
            push @todo, $parent;
            push @{ $class->{parents} }, $parent;
        }
    }
}

=head2 dump_1_pmc <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	34246	34349	
==>'s';
            $self->diag(<<"FAIL");
Looks like you planned $self->{Expected_Tests} test$s but only r <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	38	127	
==>4, The Perl Foundation.
# $Id: /parrot/tools/dev/nm.pl 19607 2006-05-30T15:23:20.183054Z c <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	12325	12447	
==>abs($code_f);

            # native tests are just run, others need to write code first
            if ($code_f !~ /\.pbc$/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44506	44768	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "popmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45147	45409	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "popmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "in <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4968	5094	
==>s) {
        return 1 if modtime($source) > $target_mod;
    }

    return 0;
}

sub generate_c {
    my ($oplib) = @_;
	
	fore <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	14376	14477	
==>ft;
    my $ref = [ annotated($op, "alternate") ];
    push(@$ref, $_->reftree()) foreach (@{ $op->{ar <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87432	87541	
==>s\"\n  {{\@1}} = Parrot_make_cb(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88434	88543	
==>s\"\n  {{\@1}} = Parrot_make_cb(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	179	281	
==>SA = qw(Exporter);
@EXPORT = qw(struct);

$VERSION = '0.61';
}
## Tested on 5.002 and 5.003 without cla <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19707	19889	
==>t == 0 goto lastback
#                 $matchcount--
#                 goto R.back
#           back: if $matchcount >= max goto rfail
#                 R or rfail
#                 $m <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19409	19581	
==>t == 0 goto lastback
#               $matchcount--
#               goto R.back
#         back: if $matchcount >= max goto rfail
#               R or rfail
#               $m <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	10882	11045	
==>op1 = abs op1
    $N1 = op2 / op1
    $I1 = floor $N1
    $N1 = op1 * $I1
    $N2 = op2 - $N1
    .return($N2)
zero_LHS:
    if op2 < 0 goto neg_RHS
    .return(op2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95723	95890	
==>"sc",
                              "s"
                            ],
                  "BODY" => "#line 63 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_and(interpr <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11683	11798	
==>setup {
    my ($self, $name, $uid) = @_;
    return ".local pmc $uid";
}

sub output_call {
    my ($self, $name, $ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	552	646	
==>s for Parrot-hosted languages.  Right
now it parameterizes the two parameters that at least thr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279713	279990	
==>.ops\"\n  {{\@1}} = ({{\@2}} < {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	280568	280845	
==>.ops\"\n  {{\@1}} = ({{\@2}} < {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	281423	281700	
==>.ops\"\n  {{\@1}} = ({{\@2}} < {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2020	2137	
==>s);

    bless($self,$class);
}

sub YYParse {
    my($self)=shift;
    my($retval);

	_CheckParams( \@params <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1950	2058	
==>s);

    bless($self,$class);
}

sub YYParse {
    my($self)=shift;
    my($retval);

	_CheckParams( \@params <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13989	14089	
==>t', [$return,$item]);
    $self->_add_inst ('', 'ne', [$return,2,"FAIL_$label"]);
    $self->_add_ins <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46972	47069	
==>terp_debug_SET(interpreter,   {{\@1}}); }\n  else         { Interp_debug_CLEAR(interpreter, PARROT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47755	47852	
==>terp_debug_SET(interpreter,   {{\@1}}); }\n  else         { Interp_debug_CLEAR(interpreter, PARROT <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	7448	7566	
==>EL_COMMENTS'),
            map { ($_->{label} ? ($_->{label}) : ()), $_->{code} } @output4
           );
}

sub dbg_ren <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4256	4351	
==>e_func_decl($core)>

Returns the C code for the run core function declaration.

=cut

sub run_co <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2744	2839	
==>e_func_decl($core)>

Returns the C code for the run core function declaration.

=cut

sub run_co <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3585	3686	
==>er, remember that you need two consts:

  const char* const foo[] = { "foo", "bar" };

=head1 DEPENDEN <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2417	2516	
==>ment (%s)!", $formal_arg_name) 
      unless defined $formal_arg_type;

    $self->INTERNAL_ERROR("C <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2117	2216	
==>ment (%s)!", $formal_arg_name) 
      unless defined $formal_arg_type;

    $self->INTERNAL_ERROR("C <==
3	/Users/nnunley/parrot/tools/build/vtable_extend.pl	231	327	
==>T THIS FILE   !!!!!!!
**
** This file is generated automatically from 'vtable.tbl' by
** tools/bu <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	558	676	
==>s
		    right$ rnd rtrim$
		    sadd screen seek setmem sgn sin spc sqr
			stick str$ strig string$
		    tab$ tan time <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	617756	617858	
==>t++;\n\t/*\n\t * TODO if we got too often here just do a dynamic lookup\n\t */\n    }\n    parrot_pic_f <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	3619	3720	
==>= pmc_new(interpreter, enum_class_ParrotLibrary);
    /*
     * TODO stuff some info into this PMCs pr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	267759	267982	
==>VTABLE_get_bool(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	268523	268746	
==>VTABLE_get_bool(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	3889	3999	
==>[1]", $_[2]);
	},
	'/' => sub {
		return("\t$_[2] = $_[1] / $_[0]", $_[2]);
	},
	'=' => sub {
		my ($a1, $a2, $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	1146	1261	
==>"push_reg(r)" ],
    [ "pop_reg(r)" ],

    [ "pushmark()" ],
    [ "popmark()" ],
    [ "pushindex()" ],
    [ "pop <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	535	637	
==>section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new(
		'Big Number Arithmetic', 'b <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3248	3340	
==>est::PGE::_generate_glob_for($target, $pattern);

    goto &Parrot::Test::pir_output_is;
}

= <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3673	3765	
==>est::PGE::_generate_glob_for($target, $pattern);

    goto &Parrot::Test::pir_output_is;
}

= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021765	1022039	
==>, &tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decod <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022607	1022881	
==>, &tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decod <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023456	1023730	
==>, &tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decod <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50243	50442	
==>(interpreter, PARROT_PROFILE_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51036	51235	
==>(interpreter, PARROT_PROFILE_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	770	865	
==>{
	my ($message, $pos) = @_;
	$@ = bless { error=>$message, pos=>$pos }, "Text::Balanced::ErrorM <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8200	8315	
==>55) {
      $Name2character{$name} = $FAR_CHAR;
      # substitute for Unicode characters, for perls
      #  that c <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	377	474	
==>st::More->import( $plan, @args );

    __PACKAGE__->_export_to_level( 2, __PACKAGE__ );
}

my $cou <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	294	391	
==>st::More->import( $plan, @args );

    __PACKAGE__->_export_to_level( 2, __PACKAGE__ );
}

my $cou <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	52741	52868	
==>return '[empty]' unless @$curr_open;
  return join '; ',
    map {;
           ($_->[0] eq '=for')
             ? ( ($_->[1]{'~r <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	7277	7399	
==>);       }
sub skip_new           { return shift->skip('new');           }
sub skip_open_brace    { return shift->skip('ope <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088856	1088944	
==>ne 186 \"src/ops/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089804	1089892	
==>ne 186 \"src/ops/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4852	4983	
==>} };
    return $minlen;
}

sub maxlen {
    my $op = shift;
    my $maxlen = 0;
    foreach my $kid (@{ $op->{args} }) {
        my <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36488	36601	
==>ut_name);
    }
    my $decl = $self->decl($self->{class}, $method, 0);
    my $ret = gen_ret($method);
    # I th <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	3447	3538	
==>'line_count'}, $self) if $cut_handler;
  
);

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	2958	3069	
==>urn 10 if ($op eq ">");
	return 10 if ($op eq "<");
	return 15 if ($op eq ",");
	return 20 if ($op eq "+");
	ret <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716470	716564	
==>s = (VTABLE_get_string(interpreter, p));\n  if (s) {\n    if (PIO_softspace(interpreter, io, 0) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724362	724456	
==>s = (VTABLE_get_string(interpreter, p));\n  if (s) {\n    if (PIO_softspace(interpreter, io, 0) <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	5895	6031	
==>_wrap = 0;
  while($token = $self->get_token) {

    # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    if( ($ty <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10836	10943	
==>::render {
    my $op = shift;
    return join('', map { $_->render() } @{ $op->{args} });
}

sub Regex::Ops <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9234	9337	
==>sub version_tag_comment {
  my $self = shift;
  return sprintf
   "<!-- generated by %s v%s, using %s v% <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	24566	24678	
==>e */
        Parrot_create_mro(interp, entry);
EOC
    # declare each nci method for this class
    foreach my $m <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6330	6432	
==>if @_;

  my $sym = $self->get_symbol($name); # Return the identifier if defined here.
  return $sym if <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	193	291	
==>arrot byte code compiler

=head1 SYNOPSIS

    perl tools/build/pbc2c foo.pbc > foo.c

=head1 DESCR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	935812	936056	
==>"NAME" => "titlecase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936588	936832	
==>"NAME" => "titlecase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39286	39391	
==>ROT_VTABLE_${umeth}_METHNAME";
    # I think that these will be out by one - NWC
    my $l = $self->line_d <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	531	631	
==>d::Simple::PullParser

=head1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head1 DESCRIPTION

When yo <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	950	1050	
==>d::Simple::PullParser

=head1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head1 DESCRIPTION

When yo <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	437	537	
==>d::Simple::PullParser

=head1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head1 DESCRIPTION

When yo <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1155	1286	
==>fer to each
other. In this form:

    [
        [ name1 => 'pattern 1' ],
        [ name2 => 'pattern 2' ],
        [ name3 => '<nam <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	891	1000	
==>ew()>

Returns a new instance.

=cut

sub new
{ 
    return bless { }, shift; 
}

=back

=head2 Instance Metho <==
3	/Users/nnunley/parrot/config/auto/cgoto.pm	196	291	
==>ION

Determines whether the compiler supports computed C<goto>.

=cut

package auto::cgoto;

use <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	878	1022	
==>_eq',
                        );

foreach my $func ( keys %language_test_map ) {
    no strict 'refs';            ## no critic

    *{"Parrot::Te <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5731	5843	
==>generated code.
	return $pir;
}

sub post_branch($) {
	my $self = shift;
	my $pops = shift;
	my $pir = '';

	# Br <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3669	3781	
==>generated code.
	return $pir;
}

sub post_branch($) {
	my $self = shift;
	my $pops = shift;
	my $pir = '';

	# Br <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807860	807946	
==>"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed(interpreter, {{\@2} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808765	808851	
==>"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed(interpreter, {{\@2} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58558	58695	
==>c"
                            ],
                  "BODY" => "#line 874 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo_s(interpreter, {{\@2 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7179	7286	
==>les[-$act]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print STDERR "Reduce using rule ".-$act." <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6847	6950	
==>les[-$act]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print STDERR "Reduce using rule ".-$act." <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	15278	15405	
==>ack;
    my $l = pop @stack;
    my ($t, $n);
    {
	my $nl = promote($l);
	$n = temp($t = 'P');
	my $nr = $r->[1];
#	$nr = prom <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	14961	15087	
==>ack;
    my $l = pop @stack;
    my ($t, $n);
    {
	my $nl = promote($l);
	$n = temp($t = 'P');
	my $nr = $r->[1];
	$nr = prom <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	634	729	
==>an inline'd version and no interpreted version,
# create a shim for the interpreted version that <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	3263	3360	
==>RegExpr attribute="Comment" context="#stay" String="#.*\$" />
          <RegExpr attribute="Commen <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	32321	32428	
==>=back

=end _private

=cut

$SIG{__DIE__} = sub {
    # We don't want to muck with death in an eval, but $^S <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7296	7388	
==>";ltrim$(a$)
print rtrim$(a$);"<"
' A's and -'s
print string$(10,75-10)
print string$(20, "-" <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19025	19117	
==>";ltrim$(a$)
print rtrim$(a$);"<"
' A's and -'s
print string$(10,75-10)
print string$(20, "-" <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	561	681	
==>ount = 0;

my %builtin_ops = (
    abs => 'o',
    isinstance => 's',
    ord => 's',
);

my %builtins = (
    AssertionE <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	386	471	
==>truct::Block::Bare;
use Jako::Construct::Block::Conditional::Else;
use Jako::Construct <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	7607	7720	
==>RGV) {
    compile_file($_)
}

exit 0;

__END__

=begin ADDITIONAL

=head1 AUTHOR

Gregor N. Purdy E<lt>gregor@foc <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	599	702	
==>fork, R)
# O (match, b) : return if start of input is b, advance 1 char
# O (classmatch, charclass) : re <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2351	2442	
==>s.

=head1 SEE ALSO

L<Pod::Simple>, L<Pod::Simple::Subclassing>

=head1 COPYRIGHT AND DISCL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407575	407811	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "connect",
                  "FLAGS" => ":base_network", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408473	408709	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "connect",
                  "FLAGS" => ":base_network", <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	10753	10879	
==>fy  math.h
fprintf     stdio.h
fputc       stdio.h
fputs       stdio.h
fread       stdio.h
free        stdlib.h
freopen     std <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1261	1364	
==>OTE: These are compiler internal consistency checks. They really should not be
  # triggered in normal o <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1206	1309	
==>OTE: These are compiler internal consistency checks. They really should not be
  # triggered in normal o <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1109	1212	
==>OTE: These are compiler internal consistency checks. They really should not be
  # triggered in normal o <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1551	1680	
==>unless ($prog) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    if ($conf->opti <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1565	1694	
==>unless ($prog) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    if ($conf->opti <==
3	/Users/nnunley/parrot/tools/build/list_unjitted.pl	810	932	
==>d;

OP : foreach my $op ( @ops){
    foreach my $jit (@jitted){
        next OP if $jit eq $op;
    }
    push @not_jitted, <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6717	6814	
==>H_NOT_switch_${CURIC}:
PIR
	return $pir;
}

# Pre and post load operation hooks.
sub pre_load($) { <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4655	4752	
==>H_NOT_switch_${CURIC}:
PIR
	return $pir;
}

# Pre and post load operation hooks.
sub pre_load($) { <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15646	15741	
==>tically (at least
that is what I hope).

= ENVIRONMENT

Setting the environment variable TEST_AL <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6826	6934	
==>= shift;
	my $need_dest = shift;
	my $pir = "";

	# If we need a destination, we simply supply the register t <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4764	4872	
==>= shift;
	my $need_dest = shift;
	my $pir = "";

	# If we need a destination, we simply supply the register t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	27621	27725	
==>n\n    /* for now just point to the opcode */\n    interpreter->current_args = this;\n    argc = SIG_ELEM <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21691	21843	
==>] eq '=for' )
            ? ( " (Should be \"=end " . $curr_open->[-1][1]{'target'} . '")' )
            : ''
          )
        );
        DEBUG and pr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151052	151142	
==>(0 == string_equal(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152030	152120	
==>(0 == string_equal(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), { <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	4353	4463	
==>ry->[4] =~ /MMD_/);
    my @args = split /,\s*/, $entry->[2];
    unshift @args, "i interp", "p pmc";
    my $a <==
3	/Users/nnunley/parrot/lib/Test/More.pm	24917	25009	
==>lay the place where they start differing.

Test::Differences and Test::Deep provide more in-d <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	2265	2357	
==>d body is processed with various directives (see below)
getting replaced by their appropriate <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1220	1327	
==>.return()"); # Return to the previous inline chunk.
        $compiler->outdent;
        $compiler->emit(".en <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	30539	30641	
==>ule_try_match');
    my $backup = $self->genlabel('rule_backtrack');

    # Generate the code for the b <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	5965	6060	
==>ode}}, "\tnoop\nON_END_${ons}:\n";
	}
	$ons++;
}
sub parse_randomize {
	if ($type[NEXT] =~ /STMT <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3176	3274	
==>86) && defined(PARROT_SWITCH_REGS)
    register opcode_t *cur_opcode asm ("esi") = cur_op;
    regi <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	40806	40901	
==>hed a tagged text (including the start and end
tags). C<undef> is returned on failure. In additi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1188	1313	
==>ORS:
#

sub type      { return shift->{TYPE};      }
sub name      { return shift->{NAME};      }
sub props     { return %{shi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1523	1648	
==>ORS:
#

sub type      { return shift->{TYPE};      }
sub name      { return shift->{NAME};      }
sub props     { return %{shi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	446473	446759	
==>};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447110	447396	
==>};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449418	449704	
==>};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "A <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	1149	1252	
==>ope attribute '" . $scope . "'.")
    unless $scope eq 'global' or $scope eq 'local';
 
  confess("Unrec <==
3	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	1823	1921	
==>ranch ENDMAINLOOP
	end

ENDMAINLOOP:
	branch MAINLOOPR 
ENDMAINLOOPNR:
	branch MAINLOOPNR

EOF

# I <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	2615	2711	
==>r->new;

Returns a Test::Builder object representing the current state of the
test.

Since you on <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	32993	33193	
==>GS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/core.ops\"\n  {{\@1}} = PTR2OPCODE_T(CUR_O <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691212	691389	
==>s/pmc.ops\"\n   {{\@1}} = Parrot_thaw(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691969	692146	
==>s/pmc.ops\"\n   {{\@1}} = Parrot_thaw(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937561	937769	
==>=> "inline",
                  "CODE" => 1054,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 460 \"src/ops/string.ops\"\n  st <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	758	861	
==>_match P0, ".ord($byte).$comment;
}

sub output_classmatch {
    my ($self, $class) = @_;
    return "re <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13889	13984	
==>]);
    $self->_add_inst ('', 'ne', [$return,'.Array',"FAIL_$label"]);
    $self->_add_inst ('', <==
3	/Users/nnunley/parrot/tools/dev/manicheck.pl	8	181	
==>-w
################################################################################
# Copyright (C) 2001-2005, The Perl Foundation.
# $Id: /parrot/tools/dev/manicheck.pl 1960 <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	56790	56929	
==>($_[0],q{'"}) } },
                        { Brack => sub { extract_bracketed($_[0],'{}') } },
                   ]);

This call extracts th <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	38817	38931	
==>atment...\n";
        unless( @$para == 2 or ( @$para == 3 and $para->[2] eq '' )
          or $para->[1]{'~cooked' <==
3	/Users/nnunley/parrot/config/init/defaults.pm	346	446	
==>iption @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use FindBin;    # see build_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	6218	6380	
==>in rule $rule->{'name'}\n";
            }
        }

        # pop
        elsif (/^pop$/) {
            if ($rule->{$_} =~ /^\d+$/) {
                if ($has_pop <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32533	32644	
==>instruction must use one of \${STACK0} or \${STOREREG} in rule " .
				"$rule->{'name'}\n";
		}

        # Inser <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24776	24871	
==>signment.  Type of course will be a float.
	($result, $type, @code)=EXPRESSION({ lhs => 1, assig <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62270	62373	
==>,$line,"$code$argcode($1)");
					$item = new Parse::RecDescent::Repetition($name,$1,0,1,
									   $l <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2848	2942	
==>1);
  $new->nbsp_for_S(1);
  $new->accept_targets( 'html', 'HTML' );
  $new->accept_codes('Verb <==
3	/Users/nnunley/parrot/config/auto/cgoto.pm	86	177	
==>593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/cgoto.pm - Computed C<goto <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1814	1931	
==>my $left_type;
  if (UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value::Identifier')) {
    my $left_sym = $bl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1772	1889	
==>my $left_type;
  if (UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value::Identifier')) {
    my $left_sym = $bl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1694	1811	
==>my $left_type;
  if (UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value::Identifier')) {
    my $left_sym = $bl <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	9306	9424	
==>as an XML Name symbol:
      Carp::croak "\"$new_code\" isn't a valid element name"
        if $new_code =~
          m <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10570	10688	
==>as an XML Name symbol:
      Carp::croak "\"$new_code\" isn't a valid element name"
        if $new_code =~
          m <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5987	6103	
==>oup;
        $pmc_group{$pmc} = $group;
        push @{ $group_files{$group} }, $pmc;
        $group_libs{$group} ||= <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6198	6314	
==>oup;
        $pmc_group{$pmc} = $group;
        push @{ $group_files{$group} }, $pmc;
        $group_libs{$group} ||= <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	505	635	
==>, 'fct' );
}

sub get_global {
    my ($parser) = @_;
    my @opcodes = ();
    unless ( $parser->YYData->{_G} ) {
        $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	14109	14238	
==>LT => -17
	},
	{#State 24
		ACTIONS => {
			"?" => 43
		},
		DEFAULT => -15
	},
	{#State 25
		ACTIONS => {
			"?" => 44
		},
		DEF <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2945	3046	
==>{ return shift->{LINE}; }

sub is_global
{
  my $self = shift;

  return defined($self->block) && not( <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9978	10075	
==>get('exe');
    my $slash = $conf->data->get('slash');
    my $verbose = $conf->options->get('verb <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10559	10656	
==>get('exe');
    my $slash = $conf->data->get('slash');
    my $verbose = $conf->options->get('verb <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	10885	10993	
==>)
	{
		Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
					  $return . q{])}, "",
					  q{ <==
3	/Users/nnunley/parrot/Configure.pl	5596	5708	
==>supports inline
   --optimize           Optimized compile
   --optimize=flags     Add given optimizer flags
   -- <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7648	7753	
==>_reg = shift;
	my $pir = "";

	# If the destination isn't a register, determine register name now.
	if (!$ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5766	5871	
==>_reg = shift;
	my $pir = "";

	# If the destination isn't a register, determine register name now.
	if (!$ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	25032	25129	
==>ng these lines.

=back

=cut

use vars qw(@Data_Stack %Refs_Seen);
my $DNE = bless [], 'Does::Not: <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22915	23034	
==>$para->[1]{'start_line'}\n";
        next;
      }

      # Else it's okay to close...
      if(grep $_->[1]{'~ignore'}, <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6585	6703	
==>rce) > $target_mod;
    }

    return 0;
}

sub generate_dump {
    my ($pmc) = @_;

    if (needs_build("$pmc.dump", " <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6796	6914	
==>rce) > $target_mod;
    }

    return 0;
}

sub generate_dump {
    my ($pmc) = @_;

    if (needs_build("$pmc.dump", " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233879	233991	
==>599 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234783	234895	
==>599 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235687	235799	
==>599 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+= <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19963	20071	
==>te right.

Here are some notable values:

  1033  US English
  2057  UK English
  3081  Australia English
  4 <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2213	2312	
==>e);
    check_code_indents($file, $source);
    check_function_definitions($file, $source);
    chec <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	14277	14370	
==>ty(\@out), "\n>>\n\n";

  return @out;
}

}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	3287	3410	
==>n);
        my $to_sum   = file_checksum($to,   $ignorePattern);
        return if $from_sum == $to_sum;
    }

    File::Co <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	16832	16946	
==>t::_error(
			"Incorrect <return:...> specification:
			expected item missing", $line);
		Parse::RecDescent::_hint( <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3170	3265	
==>ich context the data belongs.

For APIs purely internal to Parrot, try using C<const> in functio <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563330	563538	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addmethod",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564227	564435	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addmethod",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	5207	5338	
==>o::Token->new(
        $file, $line, 'infix-rel', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^( = )(.*)$}x) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	270849	271118	
==>E" => "inline",
                  "CODE" => 315,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 871 \"src/ops/cmp.ops <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	913	1019	
==>];
  return undef unless defined $in and length $in;
  
  # Convert to decimal:
  if($in =~ m/^(0[0-7]*)$/s <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2272	2378	
==>];
  return undef unless defined $in and length $in;
  
  # Convert to decimal:
  if($in =~ m/^(0[0-7]*)$/s <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6983	7087	
==>MP0}

# Emit code to pop the register.
${INS} = concat ${STEMP0}
${INS} = concat " = pop s\n"

# Next par <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	6956	7108	
==>ta->set(optimize => '-O2');
            }
        } elsif ($make =~ /dmake/i) {

            # mingw Perl
        } else {
            warn "unknown conf <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	4032	4137	
==>type");
    $compiler->emit("  $temp_pmc = $dest");

    my $dest_name = $dest_ident->value;
    $compiler <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	7164	7272	
==>"$meth",
		type => $entry->{type},
		parameters => $entry->{parameters},
                loc => $entry->{loc} <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	1013	1108	
==>ok() function (see below).

The only other constraint is you must pre-declare how many tests you <==
3	/Users/nnunley/parrot/config/auto/va_ptr.pm	200	293	
==>=head1 DESCRIPTION

Tests which kind of PARROT_VA_TO_VAPTR to use.

=cut

package auto::va_ptr <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	31527	31651	
==><EOC;
	\t\t$cmt
EOC
    }
}

sub BREAK_LOOP
{
    my ($n, $c, $cmt) = @_;
    my $pc = pop @loops;
    print <<EOC;
	goto $pc <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1811	1904	
==>n it sees a "=head1 Hi there":

  $parser->start_head1( \%attributes ) if $parser->can('start_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	34788	35077	
==>}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_addr",
                  "FLAGS" <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	29480	29595	
==>ufficient donuts'
      };

=cut

sub details {
    my $self = shift;
    return @{ $self->{Test_Results} };
}

=ite <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	146	251	
==>@EXPORT_OK = qw(parse);

use Data::Dumper;

my $ind = 0;
sub _build_tree {
  my ($tokens,$count) = @_;
  m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	33220	33509	
==>}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set_addr",
                  "FLAGS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	34008	34297	
==>}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set_addr",
                  "FLAGS" <==
3	/Users/nnunley/parrot/config/gen/cpu/i386/auto.pm	319	420	
==>or platform.h
 i386_has_mmx   => 1

=cut

package gen::cpu::i386::auto;

use strict;
use warnings;

us <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	21423	21541	
==>s/\.c$/.def/;
        $fh = open_file( ">", $file );
        print $fh "LIBRARY $pmcname\nEXPORTS\n";
        print $fh <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	341	442	
==>$class, $plan, @args ) = @_;

    Test::More->import( $plan, @args );

    __PACKAGE__->_export_to_lev <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	258	359	
==>$class, $plan, @args ) = @_;

    Test::More->import( $plan, @args );

    __PACKAGE__->_export_to_lev <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	933334	933523	
==>n  string_upcase_inplace(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284791	284887	
==>ne 913 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285668	285764	
==>ne 913 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286545	286641	
==>ne 913 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605139	605373	
==>t(interpreter, {{\@2}}, {{\@1}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576603	576910	
==>}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577615	577922	
==>}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	3648	3787	
==>op->{arg1}->{symbol}\"\n";
    }

    sub visitStoreLexOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self- <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	29746	29842	
==>ext that we'll infer in its place. (E.g., for
# "L<Getopt::Std>", the inferred link text is "Geto <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14637	14730	
==>DY" => "#line 247 \"src/ops/core.ops\"\n  opcode_t * const loc = INTVAL2PTR(opcode_t *, {{\@1} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	15324	15417	
==>DY" => "#line 247 \"src/ops/core.ops\"\n  opcode_t * const loc = INTVAL2PTR(opcode_t *, {{\@1} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718485	718842	
==>RGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 806,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	667	807	
==>tr($part, 2, -1));
        } else {
            $part =~ s/(["'\\])/\\$1/g;
            $part =~ s/\n/\\n/g;
            push @ops, $self->ou <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	20485	20594	
==>ile( "<", $file );
        while (<$fh>) {
            if (/^(?:extern\s+)?\w+\*?\s+\*?(\w+)\s*\([^)]+\)\s*;/) <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	20818	20927	
==>ile( "<", $file );
        while (<$fh>) {
            if (/^(?:extern\s+)?\w+\*?\s+\*?(\w+)\s*\([^)]+\)\s*;/) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	318014	318264	
==>( {
                  "JUMP" => 0,
                  "NAME" => "conv_u2",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/config/auto/headers.pm	431	538	
==>eaders';

@args = qw(miniparrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332846	333174	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334124	334452	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335402	335730	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_open",
                  "A <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1745	1848	
==>tion hook.
sub post_translation() {
	# Nothing to do.
	return "";
}

# Extra subroutines required for th <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	785	888	
==>tion hook.
sub post_translation() {
	# Nothing to do.
	return "";
}

# Extra subroutines required for th <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	542	645	
==>tion hook.
sub post_translation() {
	# Nothing to do.
	return "";
}

# Extra subroutines required for th <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035392	1035487	
==>rot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@2}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036556	1036651	
==>rot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@2}};\n <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	935	1051	
==>($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block,

    DEST  => $dest,
    L <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	926	1042	
==>($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block,

    DEST  => $dest,
    L <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	815	931	
==>($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block,

    DEST  => $dest,
    L <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7276	7392	
==>ue;
        }
        elsif ($access eq 'const') {
          my $const = Jako::Construct::Declaration::Constant->new( <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2243	2334	
==>oncat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Decrement stack height.
dec stack_depth <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3495	3586	
==>oncat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Decrement stack height.
dec stack_depth <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89269	89493	
==>8 \"src/ops/bit.ops\"\n  {{\@1}} &= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90007	90231	
==>8 \"src/ops/bit.ops\"\n  {{\@1}} &= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	48125	48251	
==>Lua\lua51.yp"
{
            BuildForNum( $_[0], $_[10], $_[4], $_[6], $_[8], $_[11] );
        }
	],
	[#Rule 22
		 '@6-7' <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5088	5201	
==>py $_$LOAD_EXT failed ($?)\n";

        # Execute permissions on libraries is especially important on
        # so <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5299	5412	
==>py $_$LOAD_EXT failed ($?)\n";

        # Execute permissions on libraries is especially important on
        # so <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	891	975	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub parse_line { shift->parse_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463321	463743	
==>S" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 531,
                  "ARGS" => [
                              "n",
                              "nc",
                              "n"
                            ],
                  "BODY" => "#l <==
3	/Users/nnunley/parrot/examples/benchmarks/freeze.pl	662	768	
==>time %.6f\n", $e-$s;

$s = time();
my @b = @{ thaw $image };
$e = time();
printf "  thaw time %.6f\n", $e-$ <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	1669	1767	
==>Interp *, int, int);\n" foreach (@pmcs);

    print OUT <<"END_C";

void Parrot_register_core_pmcs( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	660	759	
==>urn Pod::Simple events into method calls

=head1 SYNOPSIS

 require 5;
 use strict;
 package SomePod <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1720	1818	
==>::_generate_pir_for($target, $pattern)
    );

    goto &Parrot::Test::pir_output_is;
}

=item C<p6 <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2243	2341	
==>::_generate_pir_for($target, $pattern)
    );

    goto &Parrot::Test::pir_output_is;
}

=item C<p6 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1247	1351	
==>ons.
  #
  # NOTE: These are compiler internal consistency checks. They really should not be
  # triggere <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1192	1296	
==>ons.
  #
  # NOTE: These are compiler internal consistency checks. They really should not be
  # triggere <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1095	1199	
==>ons.
  #
  # NOTE: These are compiler internal consistency checks. They really should not be
  # triggere <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5938	6053	
==>THOR

Joshua Hoblitt C<jhoblitt@cpan.org>

=head1 SEE ALSO

F<docs/configuration.pod>, L<Parrot::Configure::Data>,
L <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6787	6892	
==>THOR

Joshua Hoblitt C<jhoblitt@cpan.org>

=head1 SEE ALSO

F<docs/configuration.pod>, L<Parrot::Configure <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	2074	2179	
==>THOR

Joshua Hoblitt C<jhoblitt@cpan.org>

=head1 SEE ALSO

F<docs/configuration.pod>, L<Parrot::Configure <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1540	1675	
==>ST => \$errst,
                NBERR => \$nberr,
				TOKEN => \$token,
				VALUE => \$value,
				DOTPOS => \$dotpos,
				STACK => [ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1488	1618	
==>ST => \$errst,
                NBERR => \$nberr,
				TOKEN => \$token,
				VALUE => \$value,
				DOTPOS => \$dotpos,
				STACK => [ <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	4972	5068	
==>rentiate any further.


=head1 NOTES

Test::Simple is B<explicitly> tested all the way back to pe <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17264	17368	
==>ction
	foo$="Wrong one"
end function
call mysub 78, 80
t$=foo$
print t$
t=0
do
	print "This is right"
	ex <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	3944	4048	
==>paths()
{
    my $self = shift;

    return sort grep {-f} $self->file_and_directory_paths;
}

=item C<di <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	842	959	
==>rx_match>["!RESULT"], 0',
            'set <rx_match>["0";1], -2');
}

sub value {
    my $name = shift;
    return '< <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	70243	70355	
==>mar =~ m/$BETWEEN/gco && do { $min=$2; 1 }
	  || $grammar =~ m/$ATLEAST/gco && do { $min=$2; 1 }
	  || $grammar = <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	41204	41295	
==>> generates a new anonymous subroutine which
extracts text between (balanced) specified tags <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64299	64420	
==>ame>($1) ");

						pos $grammar = $pos;
					}
					else
					{
						$item = new Parse::RecDescent::Repetition($name,$1, <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Posix.pm	58	151	
==>454 2006-02-01T20:44:27.448243Z bernhard  $

package Parrot::Test::Bc::Posix;

use strict;

us <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2616	2708	
==>eam->filter(shift)->any_errata_seen" \
   thingy.pod

=head1 DESCRIPTION

Pod::Simple::XMLOut <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	708162	708413	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "register",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function <==
3	/Users/nnunley/parrot/config/auto/cgoto.pm	1431	1514	
==>) $(BUILD_TOOLS_DIR)/ops2c.pl lib/Parrot/OpsFile.pm lib/Parrot/Op.pm lib/Parrot/OpTr <==
3	/Users/nnunley/parrot/config/auto/cgoto.pm	1704	1787	
==>) $(BUILD_TOOLS_DIR)/ops2c.pl lib/Parrot/OpsFile.pm lib/Parrot/Op.pm lib/Parrot/OpTr <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49600	49694	
==>($grammar =~ m/$QUOTELIKEMK/gco)
			{
				_parse("an perl quotelike marker", $aftererror,$line) <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2750	2844	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub new {
  my $new = shift->SUPER::new(@_);
  #$new->nix_X_cod <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3106	3198	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sub new {
  my $new = shift->SUPER::new(@_);
  $new->nix_X_cod <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	8534	8631	
==>self->_add_inst('', '# new_pad', [-1]);
  my $oldscope = $self->{scope};
  $self->{scope} = { '*UP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104198	1104501	
==>@3}});\n\t{{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105413	1105716	
==>@3}});\n\t{{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
3	/Users/nnunley/parrot/lib/Test/More.pm	20864	20961	
==>which are failing because there's a bug in your
program, or for which you don't yet have code writ <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5331	5481	
==>reach ( @{ $op->{result} } ) {
                print {$FH} ", " unless ($first);
                print {$FH} "$_->{symbol}";
                if ( ex <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6363	6513	
==>reach ( @{ $op->{result} } ) {
                print {$FH} ", " unless ($first);
                print {$FH} "$_->{symbol}";
                if ( ex <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34884	34989	
==>t code to fix up the stack type array and propogate it.
		for (1..$rule->{'pop'}) {
			$pir .= "    type_t <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	14792	14903	
==>ftree {
    my $op = shift;
    return [ annotated($op, "check($op->{args}->[0])"),
             $op->{args}->[1 <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	7418	7515	
==>ine CAN_BUILD_CALL_FRAMES*/
#endif

/*
 * helper funcs - get argument n
 */
static INTVAL
get_nci_ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	36453	36548	
==>o Test::More later (it's forward
compatible).

L<Test> is the old testing module.  Its main bene <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	3158	3351	
==>rule;
            }

            # Create new rule structure.
            $rule = {
                name    => $name
            };
        }

        # Is it a value within a rule with a heredo <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	4143	4267	
==>";

        # Now do dispatch for each method.
        foreach (@{$classes{$_}}) {
            my $label = $_->{'unimplemente <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26605	26721	
==>BuildWhile {
    my ( $parser, $expr, $block ) = @_;
    my @opcodes    = ();
    my $l_continue = new_label($pars <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11760	11854	
==>YPES}
dec ${ITEMP1}
${PTEMP0} = ${STYPES}[${ITEMP1}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8823	8917	
==>YPES}
dec ${ITEMP1}
${PTEMP0} = ${STYPES}[${ITEMP1}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7395	7489	
==>YPES}
dec ${ITEMP1}
${PTEMP0} = ${STYPES}[${ITEMP1}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499371	499539	
==>n",
                              "n"
                            ],
                  "BODY" => "#line 600 \"src/ops/math.ops\"\n  {{\@1}} = floatval_mod({{\@1}}, {{\@2 <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	3935	4050	
==>smoke{timestamp} = time;
  $smoke{id}        = $id;
  my $filename      = pack_smoke(%smoke);

  open my $fh, ">", $ <==
3	/Users/nnunley/parrot/config/inter/types.pm	812	924	
==>t('ask')) {
        $intval   = prompt("\n\nHow big would you like your integers to be?", $intval);
        $floa <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3982	4091	
==>pushes;

	# Do code for each push.
	$pir .= "\${ITEMP0} = 0\n";
	for (1..$pushes) {
		$pir .= <<'PIR';
# Incre <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	358	467	
==>ess {};
}

sub output_is() {
    my ($self, $code, $output, $desc) = @_;
  
    my $count = $self->{builder}-> <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	396	505	
==>ess {};
}

sub output_is() {
    my ($self, $code, $output, $desc) = @_;
  
    my $count = $self->{builder}-> <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	7685	7787	
==>rectory.

=cut

sub directory_with_name
{
    my $self = shift;
    my $path = $self->path_for_director <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686403	686492	
==>"BODY" => "#line 563 \"src/ops/pmc.ops\"\n   {{\@1}} = {{\@3}}->vtable->getprop(interprete <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687293	687382	
==>"BODY" => "#line 563 \"src/ops/pmc.ops\"\n   {{\@1}} = {{\@3}}->vtable->getprop(interprete <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	3196	3347	
==>e);
        eval {
            cc_gen('config/auto/sizes/test2_c.in');
            cc_build();
            %hugeintval = eval cc_run();
            cc_c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819672	819761	
==>internal_exception(99, \"Stack Depth wrong\");\n  }\n  {{\@1}} = get_entry_type(interprete <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820632	820721	
==>internal_exception(99, \"Stack Depth wrong\");\n  }\n  {{\@1}} = get_entry_type(interprete <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20894	21014	
==>($back, @ops);
}

# ( [ [aaaaa|aaaaaaa]<2,3> ]<1,2> )
# 30,42,20,28,15,21,10,14

# R* ->         push 0
#         loop: R <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786127	786213	
==>rc/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed_int(interpreter, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787038	787124	
==>rc/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed_int(interpreter, {{\ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6194	6372	
==>exists($$actions{DEFAULT})
                        ?   $$actions{DEFAULT}
                        :   undef;
        }
        else {
            $act=$$actions{DEFAULT};
#D <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5904	6076	
==>exists($$actions{DEFAULT})
                        ?   $$actions{DEFAULT}
                        :   undef;
        }
        else {
            $act=$$actions{DEFAULT};
#D <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8320	8405	
==>* 2 */
FF,$c,$d,$a,$b,$_[6],17,0x242070db,/* 3 */
FF,$b,$c,$d,$a,$_[7],22,0xc1bdceee,/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586415	586668	
==>" => 667,
                  "ARGS" => [
                              "p",
                              "s",
                              "k"
                            ],
                  "BODY" => "#line 314 \"src/ops/object.ops\"\n  PMC *class = P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017995	1018085	
==>esultbuffer[26];\n  Parrot_gmtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018920	1019010	
==>esultbuffer[26];\n  Parrot_gmtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	52792	52904	
==>\Z/s;
				$prod and $prod->addscore($1, $lookahead, $line)
				      or  _no_rule($code,$line);
			}
			elsif ($g <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	70861	70968	
==>->{"rules"};
	my $rule;
	foreach $rule ( values %$rules )
	{
		next if ! $rule->{"changed"};

	# CHECK FOR U <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19524	19622	
==>d_inst("DONE_$label");
  $self->_restore($temp_0);
  return $return;
}

sub _op_gt {
  my ($self,$n <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3166	3267	
==>ct;
use warnings;

use vars qw(@ISA %pmc_types @EXPORT_OK);

@ISA = qw( Exporter );
@EXPORT_OK = qw( % <==
3	/Users/nnunley/parrot/lib/Parrot/PMC.pm	110	211	
==>ct;
use warnings;

use vars qw(@ISA %pmc_types @EXPORT_OK);

@ISA = qw( Exporter );
@EXPORT_OK = qw( % <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	3469	3565	
==>se}_ops${suffix}.c.temp";

if ($base =~ m!^src/dynoplibs/! || $dynamic_flag) {
    $source  =~ s! <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	816317	816520	
==>n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clearn",
                  "FLAGS" => ":ba <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093604	1093692	
==>ODY" => "#line 209 \"src/ops/experimental.ops\"\n  VTABLE_morph(interpreter, {{\@1}}, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094407	1094495	
==>ODY" => "#line 209 \"src/ops/experimental.ops\"\n  VTABLE_morph(interpreter, {{\@1}}, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64775	64921	
==>ode = interpreter->code;\n  runops(new_interp, REL_PC + {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65726	65872	
==>ode = interpreter->code;\n  runops(new_interp, REL_PC + {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20439	20549	
==>PE not supported yet for $name\n";
				feedme;
				feedme;
			}
			while($type[CURR] eq "STMT" or $type[CURR] e <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	5991	6192	
==>sh) {
                    die "Duplicate value for push in rule $rule->{'name'}\n";
                } else {
                    $has_push = 1;
                }
            } else {
                die <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79124	79216	
==>char * const err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80645	80737	
==>char * const err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113423	113687	
==>AME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114161	114425	
==>AME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	9548	9652	
==>t ${op_func}\[$num_entries] = {
END_C

    print SOURCE @op_func_table;

    print SOURCE <<END_C;
  (op_ <==
3	/Users/nnunley/parrot/config/auto/pack.pm	1005	1135	
==>e == $longsize) && ($size == $Config{longsize})) {
            $format = 'l!';
        } elsif ($size == 4) {
            $format = <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2744	2840	
==>G' x NEGATIVE gives '', same as 'STRING' x 0

  $self->{'Thispara'} =~ tr{\xAD}{}d if Pod::Simple <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2278	2374	
==>G' x NEGATIVE gives '', same as 'STRING' x 0

  $self->{'Thispara'} =~ tr{\xAD}{}d if Pod::Simple <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9507	9632	
==>lid: discard it
		and	do {
				$$token eq ''	# End of input: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	print <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9079	9199	
==>lid: discard it
		and	do {
				$$token eq ''	# End of input: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	print <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	3840	3948	
==>$top = $text;
    &clip_excess_lines($top,15);
    $top =~ s/^ {0,1}(\S)/  $1/mg; # minimum indent
    $info- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740149	740472	
==>"o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 832,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 159 \"src/op <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3186	3301	
==>set', 'P15', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8706	8799	
==>eate_label();
		$currline="$labels{$syms[CURR]}";
		label_defined($syms[CURR]);
		push @{$code <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4145	4248	
==>re_suffix;
    foreach $core_suffix (values %cores) {
		foreach (@oplibs) {
			my $src = $_ . "_ops$core <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554010	554102	
==>cont = {{\@3}};\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_method(int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555407	555499	
==>cont = {{\@3}};\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_method(int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785697	786118	
==>> [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 887,
                  "ARGS" => [
                              "i",
                              "p",
                              "ki"
                            ],
                  "BODY" => "#line <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859280	859549	
==>E" => "inline",
                  "CODE" => 975,
                  "ARGS" => [
                              "s",
                              "sc",
                              "i"
                            ],
                  "BODY" => "#line 118 \"src/ops/string <==
3	/Users/nnunley/parrot/lib/Test/More.pm	9289	9385	
==>e given as a
regex reference (i.e. C<qr//>) or (for better compatibility with older
perls) as a s <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27943	28048	
==>? '$text = $_savetext;' : '').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDescent::fai <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30017	30122	
==>? '$text = $_savetext;' : '').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDescent::fai <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32218	32323	
==>? '$text = $_savetext;' : '').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDescent::fai <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	25272	25403	
==>~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
    if(grep $_->[1]{'~ignore'}, @$curr_open) {
      DEBUG > 1 and
       prin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	12975	13063	
==>231 \"src/ops/core.ops\"\n  opcode_t * loc;\n  stack_push(interpreter, &CONTEXT(interpret <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13819	13907	
==>231 \"src/ops/core.ops\"\n  opcode_t * loc;\n  stack_push(interpreter, &CONTEXT(interpret <==
3	/Users/nnunley/parrot/config/init/optimize.pm	988	1111	
==>E_GC_DEBUG=1 -DNDEBUG");
        if ($optimize eq "1") {
            # use perl5's value
	    # gcc 4.1 doesn't like -mcpu=x <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569066	569316	
==>"CODE" => 650,
                  "ARGS" => [
                              "i",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 218 \"src/ops/object.ops\"\n  {{\@1} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934063	934286	
==>ops\"\n  {{\@1}} = string_downcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934838	935061	
==>ops\"\n  {{\@1}} = string_downcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123901	124207	
==>> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124775	125081	
==>> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125649	125955	
==>> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871830	872130	
==>"TYPE" => "inline",
                  "CODE" => 989,
                  "ARGS" => [
                              "s",
                              "sc",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 239 \"src/op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716951	717154	
==>,
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [],
                  "TYPE" => "function",
                  "CODE" => 804,
                  "ARGS" => [],
                  "BO <==
3	/Users/nnunley/parrot/config/gen/config_h.pm	988	1121	
==>h',
        commentType   => '/*',
        ignorePattern => 'PARROT_CONFIG_DATE',
        feature_file  => 1
    );

    my $hh = "inc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320058	320348	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320828	321118	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	184	284	
==>urce_standards.pl - Check conformancs of C source code to PDD 7

=head1 SYNOPSIS

    % perl tools/de <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	725473	725683	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clone",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726234	726444	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clone",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812682	812892	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clone",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937852	938090	
==>ABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "join",
                  "FLAGS" => ":base_core" <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2009	2107	
==>{ --$_[0]{'Indent'} }
sub   end_over_number  { --$_[0]{'Indent'} }
sub   end_over_text    { --$_[0] <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1577	1675	
==>{ --$_[0]{'Indent'} }
sub   end_over_number  { --$_[0]{'Indent'} }
sub   end_over_text    { --$_[0] <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	43695	43821	
==>e is non-formatty!  Yay!\n";
      }
    } else {
      DEBUG > 5 and print "  It's not a formatty line.  Ignoring\n";
      ne <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9022	9214	
==>$$check='';

        };

        #Error
            $$errstatus
        or   do {

            $$errstatus = 1;
            &$error($self);
                $$errstatus # if 0, then YY <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8617	8799	
==>$$check='';

        };

        #Error
            $$errstatus
        or   do {

            $$errstatus = 1;
            &$error($self);
                $$errstatus # if 0, then YY <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	50084	50215	
==>a\lua51.yp"
{
            PushScope( $_[0] );
        }
	],
	[#Rule 34
		 '_elseif_star', 6,
sub
#line 207 "Lua\lua51.yp"
{ <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	2671	2793	
==>self = shift;
    my $delim = shift;
    
    while (my ($key, $val) = splice @_, 0, 2) {
        my ($old) = $self->{c}{$k <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	1848	1956	
==>t>
    
    <list name="ops">
END

for my $ops_file (@ops_files) {
    open OPS, "<$ops_file" or die "Can't r <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	1782	1881	
==>in commented_out

    if ($text =~ m{^((?:\'(?:\\\'|(?!\').)*\'))(.*)$}) {
      push @tokens, Jako: <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13009	13108	
==>y.start.narf
print t

' Deep-copy of structures, 34 (NOT 99)
type first
	foo as integer
	bar as stri <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1744	1843	
==>'}. "  }
sub start_item_text   { $_[0]{'Thispara'} = ''   }

sub start_over_bullet  { ++$_[0]{'Inden <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1312	1411	
==>'}. "  }
sub start_item_text   { $_[0]{'Thispara'} = ''   }

sub start_over_bullet  { ++$_[0]{'Inden <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	11984	12100	
==>undl    math.h
localeconv  locale.h
localtime   time.h
log         math.h
log10       math.h
log10f      math.h
log10 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78942	79033	
==>ng(interpreter, ({{\@3}}));\n\n  void * const p = Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? NULL : <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80463	80554	
==>ng(interpreter, ({{\@3}}));\n\n  void * const p = Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? NULL : <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	312741	313032	
==>[
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getfile",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	747	849	
==>self.
#
# This notice should remain unchanged.
#
# (c) Copyright 1998-2001 Francois Desarmenien, al <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	727	825	
==>self.
#
# This notice should remain unchanged.
#
# (c) Copyright 1998-2001 Francois Desarmenien, al <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31296	31393	
==>ments_vtable($meth);
}

=item C<body($method, $line, $out_name)>

Returns the C code for the metho <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35927	36024	
==>ments_vtable($meth);
}

=item C<body($method, $line, $out_name)>

Returns the C code for the metho <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39916	40013	
==>ments_vtable($meth);
}

=item C<body($method, $line, $out_name)>

Returns the C code for the metho <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2791	2894	
==>nd post stack operation (op class instructions) hooks.
sub pre_op($$) {
	my $self = shift;
	my ($pops, $ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1713	1816	
==>nd post stack operation (op class instructions) hooks.
sub pre_op($$) {
	my $self = shift;
	my ($pops, $ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	902	1005	
==>nd post stack operation (op class instructions) hooks.
sub pre_op($$) {
	my $self = shift;
	my ($pops, $ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	21533	21638	
==>r_t) $_->[3] }" } @mmds);
    my $isa = join(" ", $classname, @{ $self->{parents} });
    $isa =~ s/\s?def <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16500	16598	
==>ftware; you can redistribute it and/or modify it
under the same terms as Perl itself.

See http://w <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1714	1812	
==>ftware; you can redistribute it and/or modify it
under the same terms as Perl itself.

See http://w <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	3291	3386	
==>'t do arithmetic on PMCs") if UNIVERSAL::isa($dest_type, 'Jako::Construct::Type::PMC');
  $self- <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	215	308	
==>y a copy of Parrot::Test::Tcl, which looks like it's
largely a copy of Parrot::Test::Python. A <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	253	346	
==>y a copy of Parrot::Test::Tcl, which looks like it's
largely a copy of Parrot::Test::Python. A <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	24009	24185	
==>d($cmd,
                                     'STDOUT' => $build_f,
                                     'STDERR' => $build_f);
            $builder->diag("'$cmd' failed with exi <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	24770	24946	
==>d($cmd,
                                     'STDOUT' => $build_f,
                                     'STDERR' => $build_f);
            $builder->diag("'$cmd' failed with exi <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8019	8127	
==>ops = ("<rx_tmp> = pop \@<rx_stack>; # popindex");
    if ($self->{DEBUG}) {
        push @ops, 'print "POPPE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857720	858027	
==>}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repe <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54389	54483	
==>$pretty_form{$1} || '\\x'.(unpack("H2",$1))>eg;
         <$pretty_form{$1} || '\\x{'.sprintf("% <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54657	54751	
==>$pretty_form{$1} || '\\x'.(unpack("H2",$1))>eg;
         <$pretty_form{$1} || '\\x{'.sprintf("% <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	98595	98853	
==>"i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 122,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 96 \"src/ops/bit.ops <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	7936	8028	
==>odef and not @codeb) {
		push @{$code{$seg}->{code}},<<FNOTB;
@codef	noop
	_screen_color($res <==
3	/Users/nnunley/parrot/config/auto/cgoto.pm	1574	1658	
==>S_DIR)/ops2c.pl CGoto --core

$(INC_DIR)/oplib/core_ops_cgp.h: $(OPS_DIR)/core_ops_cg <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	2468	2589	
==>Couldn't handle $proto";
    my $funcname = $1;
    $parms = $2;
    my @parms = split( /\s*,\s*/, $parms );
    for ( @pa <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7230	7349	
==>ject}
		    :					 ''
		    ;
	my $ignore  = ref($options{ignore}) eq 'ARRAY' ? join('|', @{$options{ignore}})
		    : d <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24232	24351	
==>ject}
		    :					 ''
		    ;
	my $ignore  = ref($options{ignore}) eq 'ARRAY' ? join('|', @{$options{ignore}})
		    : d <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744290	744514	
==>n  {{\@1}} = string_from_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745056	745280	
==>n  {{\@1}} = string_from_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	21888	21985	
==>urns false.  Why?  Because diag() is often used in conjunction with
a failing test (C<ok() || diag <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	47969	48194	
==>-codes
        |
        (               # $5: stuff containing no start-codes or end-codes
          (?:
            [^A-Z\ >]+
            |
            (?:
              [A-Z](?!<)
            )
            |
            (? <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	3020	3145	
==>never a function call is cast to a non-matching type
            # ? -Wmissing-declarations
            #   Warn if a global f <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	206	307	
==>n bless ['end', @_], ref($class) || $class;
}

# Purely accessors:

sub tagname { (@_ == 2) ? ($_[0][1 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2496	2617	
==>my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  if (defined $c <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3170	3291	
==>my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  if (defined $c <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3260	3381	
==>my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  if (defined $c <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6290	6376	
==>stack_depth
goto POST_BRANCH_NOT_switch_${CURIC}

POST_BRANCH_switch_${CURIC}:
i = elem <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4228	4314	
==>stack_depth
goto POST_BRANCH_NOT_switch_${CURIC}

POST_BRANCH_switch_${CURIC}:
i = elem <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047722	1047966	
==>MP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048645	1048889	
==>MP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	2569	2690	
==>eq ">" or $cur eq "<" or $cur eq "=") { 
		append;
		if ($next eq "=" or $next eq ">") {
			fetch;
			append;
		}
		emit(" <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	3014	3125	
==>ls = ($self->{rxlocals} ||= []);
    return (aop(comment => [ "restore rxlocals" ]),
            map { aop('popi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1860	1953	
==>over_number  { ++$_[0]{'Indent'} }
sub start_over_text    { ++$_[0]{'Indent'} }
sub start_over <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1428	1521	
==>over_number  { ++$_[0]{'Indent'} }
sub start_over_text    { ++$_[0]{'Indent'} }
sub start_over <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	15087	15177	
==>def;", $lookahead, $line,"<score: $code>") )
		unless $self->{items}[-1]->describe =~ /<sco <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822114	822203	
==>e 120 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823182	823271	
==>e 120 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	9798	9927	
==>ree:
    $N1 = atan op2
    .return ($N1)
neg_four:
    $N1 = op2 * op2
    $N1 = 1 - $N1
    $N1 = sqrt $N1
    .return ($N1)
# T <==
3	/Users/nnunley/parrot/config/auto/headers.pm	2707	2825	
==>ader";
        $flag =~ s/\.h$//g;
        $flag =~ s/\///g;
        print "$flag: $pass\n" if defined $conf->options-> <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	2049	2159	
==>turn 0 unless defined $_[0];
	return 0 if $funcname and $funcname eq $_[0];  # We're processing this, don't cou <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	10147	10254	
==>($score) )
	{
		' .($parser->{deferrable}
			? '		splice @{$thisparser->{deferred}}, $def_at;
			  '
			: '' <==
3	/Users/nnunley/parrot/editor/ops2vim.pl	9	109	
==>se strict;
use warnings;

use File::Basename qw/basename/;


my $cline = my $prefix = 'syn keyword pi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104059	1104144	
==>t\treal_exception(interpreter, NULL, NO_CLASS,\n\t\t\t\t\"Class '%Ss' not found\", cla <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105274	1105359	
==>t\treal_exception(interpreter, NULL, NO_CLASS,\n\t\t\t\t\"Class '%Ss' not found\", cla <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522258	522521	
==>ne 744 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523113	523376	
==>ne 744 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523968	524231	
==>ne 744 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655956	656375	
==>RGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 733,
                  "ARGS" => [
                              "i",
                              "p",
                              "ki"
                            ],
                  "BODY <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	19950	20080	
==>is in (one more than usual, due to the
                # extra layer of package indirection
                my $level = $builder->l <==
3	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	1709	1806	
==>ns */

int
PackFile_check_fingerprint (void *cursor)
{
    return 1;
}

size_t
PackFile_write_fing <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509040	509283	
==>}} = - {{\@1}};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509671	509914	
==>}} = - {{\@1}};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n <==
3	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	600	698	
==>cripts.

It is assumed that it will run on a Unix box. It's not particularly
necessary to be portab <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	12785	12903	
==>ing else
        my $test = defined $got || defined $dont_expect;

        $self->ok($test, $name);
        $self->_cmp <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	13229	13347	
==>ing else
        my $test = defined $got || defined $dont_expect;

        $self->ok($test, $name);
        $self->_cmp <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	5417	5512	
==>ny POD formatted documentation in the file.
Executable files are assumed not to contain POD.

=c <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	51671	51801	
==>. (">" x $ender_length);
      } else {
        $x = $code . "<$x>";
      }
    }
    DEBUG > 1 and print "Unterminated $x sequenc <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	21875	21983	
==>$nr, $targ $cmt
$label
EOC
    }
}
sub print_stack {
    for $_ (@stack) {
	print "# STACK $_->[0] $_->[1] $_ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	1175	1274	
==>ntain items or paths.
	
	$self = $self->SUPER::new($text, @contents);
	$self->{NAME} = $name;
	
	ret <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	7192	7335	
==>eturn ( 'NUMBER', $1 . ( $3 || q{} ) );

            s/^\"//
                and return $parser->_DoubleQuoteStringLexer();

            s/ <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	3907	4011	
==>{run_bench} } = @regexes ? @regexes : '[\d\D]';
}
if ( ! @{ $cfg{skip_bench} } ) {
    my @regexes = grep <==
3	/Users/nnunley/parrot/Configure.pl	7657	7758	
==>thout-icu        Build parrot without ICU support
   --icuheaders=(path)  Location of ICU headers with <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010765	1011056	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011529	1011820	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012294	1012585	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
3	/Users/nnunley/parrot/lib/Test/More.pm	6339	6487	
==>,                   'simple exponential' );
    ok( Film->can('db_Main'),            'set_db()' );
    ok( $p->tests == 4,                  'saw test <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	6514	6602	
==>lwinspool -lcomdlg32 -ladvapi32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid -lws2_32 - <==
3	/Users/nnunley/parrot/config/init/hints/msys.pm	405	493	
==>lwinspool -lcomdlg32 -ladvapi32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid -lws2_32 - <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2	108	
==>Copyright (C) 2004-2006, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Pmc2c/Library.pm 19602 2006-05-30T1 <==
3	/Users/nnunley/parrot/languages/regex/test.pl	650	736	
==>ND";
Usage: $0 [-c|--compile] [--language=LANGUAGE] [--optimize=PASSES|--nooptimize] <f <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	7923	8101	
==>r}) > 150 ){
              DEBUG > 1 and print "    item-* is too long to be keepn'd.\n";
              last;
            }
          } elsif (@to_unget > 1 and
            $to_un <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	16880	16992	
==>rms, sprintf " %-10s , chr(%s),\n", "'$name'", $value;
      }
    } elsif(m/<!ENT/) {
      print "# Skipping $_ <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	4184	4288	
==>!\n";
  close $fh or
    die "Couldn't close \"$filename\": $!\n";
}

sub clean_obsolete_smokes {
  my $c <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1474	1572	
==>} elsif ($dir_count >2) {
          $path_to_language = File::Spec->join(File::Spec->updir() x ($di <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1959	2057	
==>} elsif ($dir_count >2) {
          $path_to_language = File::Spec->join(File::Spec->updir() x ($di <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	36030	36182	
==>ilure and will exit with 255.

So the exit codes are...

    0                   all tests successful
    255                 test died
    any other num <==
3	/Users/nnunley/parrot/lib/Test/More.pm	34101	34253	
==>ilure and will exit with 255.

So the exit codes are...

    0                   all tests successful
    255                 test died
    any other num <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2896	3048	
==>ilure and will exit with 255.

So the exit codes are...

    0                   all tests successful
    255                 test died
    any other num <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	24789	24907	
==>ype}, $method->{parameters});
      $cout .= <<"EOC";
        enter_nci_method(interp, entry,
                F2DPTR(Pa <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	2128	2227	
==>_class_library\}/$class_lib_make/g;
	
	# Write makefile.
	open $fh, "> Makefile" or die "Unable t <==
3	/Users/nnunley/parrot/tools/dev/manicheck.pl	1096	1193	
==>est::manicheck();
my @extra     = ExtUtils::Manifest::filecheck();
# my @ignored   = ExtUtils::Man <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19841	19973	
==>,
			"(" => 8,
			'RETURN' => 112,
			'IF' => 10,
			'FUNCTION' => 12,
			'DO' => 15,
			'LOCAL' => 17,
			'WHILE' => 16
		}, <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	112	213	
==>fail_label = Regex::Ops::Tree::mark('FAIL');

sub init_context {
    my ($self, $ctx) = @_;
    $ctx-> <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	113	214	
==>fail_label = Regex::Ops::Tree::mark('FAIL');

sub init_context {
    my ($self, $ctx) = @_;
    $ctx-> <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	124	258	
==>)\n$/) {
		push @results, {
			name	=> $3,
			total	=> $2,
			done	=> $1,
			percent	=> int(($1 / $2) * 100)
		};
	}
}

print <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	124	258	
==>)\n$/) {
		push @results, {
			name	=> $3,
			total	=> $2,
			done	=> $1,
			percent	=> int(($1 / $2) * 100)
		};
	}
}

print <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	28343	28441	
==>est to be a pass.

'actual_ok' is a reflection of whether or not the test literally
printed 'ok' or <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2896	3044	
==>sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUOTE";
}

our $NOW = time();

################### MAIN PROGRAM ################

my ($mode, @ <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3205	3353	
==>sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUOTE";
}

our $NOW = time();

################### MAIN PROGRAM ################

my ($mode, @ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3000	3148	
==>sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUOTE";
}

our $NOW = time();

################### MAIN PROGRAM ################

my ($mode, @ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20250	20365	
==>> = <ident> = ... = <value>;
    #   <ident> = new <ident>;
    #
 
    if ($token->is_ident and $self->get(1)->is_a <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5493	5596	
==>ush @ops, "branch $fail";

    push @ops, $self->output_label_def($passLabel);
    return @ops;
}

sub o <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	5813	5962	
==>ift @{$fields} ) {
        my ( $val, $key );
        if ( scalar( @{$field} ) == 1 ) {
            $val = $field->[0];
            if ( defined $ <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	3538	3681	
==>em = $init [];$cmt\n"; 
            $arrays{$name}++;
        }
        elsif( $type eq '%' ){
            $out .= "    croak 'Initializer for $ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	35781	35878	
==>'s Test
module.  I was largely unaware of its existence when I'd first
written my own ok() routine <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	578	683	
==>nstruct::Type->new($token->type),
    VALUE  => $token->text,

    DEBUG  => 1,
    FILE   => $token->file <==
3	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	689	774	
==>SO

F<examples/benchmarks/stress.pasm>, 
F<examples/benchmarks/stress.pl>, 
F<examples <==
3	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	536	621	
==>SO

F<examples/benchmarks/stress.pasm>, 
F<examples/benchmarks/stress.pl>, 
F<examples <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819710	819888	
==>rong\");\n  }\n  {{\@1}} = get_entry_type(interpreter, entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820670	820848	
==>rong\");\n  }\n  {{\@1}} = get_entry_type(interpreter, entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	22772	22887	
==>$test_no);
            my $exe_f = per_test($PConfig{exe}, $test_no);  
            $exe_f =~ s@[\\/:]@$PConfig{slas <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576550	576694	
==>}});\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577562	577706	
==>}});\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	832	956	
==>val")');
    return undef;
  }
}

1;


__END__

=head1 NAME

Pod::Simple::PullParserStartToken -- start-tokens from Pod::Simp <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76532	76634	
==>RD_HINT;
	$errortext = "$_[0])";
	$errorprefix = "(Hint";
	$errortext =~ s/\s+/ /g;
	write ERROR;
	retu <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	771	864	
==>arserToken> and inherits all its methods,
and adds these methods:

=over

=item $token->tagnam <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1197	1290	
==>arserToken> and inherits all its methods,
and adds these methods:

=over

=item $token->tagnam <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	7791	7950	
==>at's all there is, remove it
                $line =~ s/^\s*a_$name\s*$//m or $line =~ s/a_$name/temp/;
            }
        }
        
        # $R
        $l <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	2675	2816	
==>= {};\n";
        $cmt = '';
    }
    elsif( $base_type eq 'ARRAY' ){
        $out .= "    my(\$r) = [];\n";
    }
    while( $idx < @decls ) <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	7484	7617	
==>exer($1);

            s/^([A-Z_a-z][0-9A-Z_a-z]*)//
                and return $parser->_Identifier($1);

            s/^(\.\.\. <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2725	2817	
==>ness' => 'Perl test harness',
	'INSTALL' => 'Installation documentation',
	'LICENSE' => 'Lice <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2042	2132	
==>o::Construct::Expression::Value::Identifier')) {
      my $arg_sym = $self->block->find_sym <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1742	1832	
==>o::Construct::Expression::Value::Identifier')) {
      my $arg_sym = $self->block->find_sym <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200575	200929	
==>"i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 237,
                  "ARGS" => [
                              "nc",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 373 \" <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14559	14662	
==>DEBUG) {
    if(defined $title) { print "  Returing title <$title>\n" }
    else { print "Returning titl <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	23124	23227	
==>DEBUG) {
    if(defined $title) { print "  Returing title <$title>\n" }
    else { print "Returning titl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8288	8410	
==>OT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLAGS" => ":base_loop,che <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9403	9525	
==>OT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLAGS" => ":base_loop,che <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10128	10208	
==>_base.branches.html#$function">@{[$function_branch_coverage{$source_file}{$functi <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	17920	18032	
==>C;
	unless $tos->[1] goto $targ $cmt
EOC
}

sub JUMP_IF_TRUE
{
    my ($n, $c, $cmt) = @_;
    my $tos = pop @sta <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	2864	2963	
==>lists all the code and data symbols
in the object or archive files.  The options can be used to limi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	880	1004	
==>:croak( "$class new() doesn't know to clone $new" );
    }
  } else { # misc stuff
    $new = [ '', {}, @_ ];
  }

  # By now <==
3	/Users/nnunley/parrot/config/init/hints/solaris.pm	3494	3606	
==>~ /-xlibmieee/;
        }
        $conf->data->deltrigger("gccversion", "solaris_ieee");
    };
    $conf->data-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	195847	196142	
==>P_RELATIVE",
                  "NAME" => "lt_num",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130386	130590	
==>S" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 301 \"src/ops/bit.ops\"\n  {{\@1}} ^= {{\@2}};\n  {{+=3}};\n" <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	16604	16696	
==>r->new(
				$op->{type}, $minrep, $maxrep, splice(@{$self->{"items"}}, -3));
		$self->{items} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1611	1707	
==>ight = $self->right;

  my $dest_sym = $block->find_symbol($dest->value);
  $self->SYNTAX_ERROR(" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1569	1665	
==>ight = $self->right;

  my $dest_sym = $block->find_symbol($dest->value);
  $self->SYNTAX_ERROR(" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1491	1587	
==>ight = $self->right;

  my $dest_sym = $block->find_symbol($dest->value);
  $self->SYNTAX_ERROR(" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465618	465860	
==>"\n  {{\@1}}--;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	466239	466481	
==>"\n  {{\@1}}--;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
3	/Users/nnunley/parrot/config/auto/va_ptr.pm	484	600	
==>ly to segfault)';

@args = qw();

sub runstep
{
    my ($self, $conf) = @_;

    my $va_type;
    cc_gen('config/auto <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786182	786439	
==>teger_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787093	787350	
==>teger_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5659	5752	
==>self->core_prefix . "$base */\n\n";
}

=item C<init_func_init1($base)>

Returns the C code for <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59402	59507	
==>co)
		{
			pos($grammar)-=9;
			_parseunneg("a new (uncommitted) production",
				    0, $lookahead, $line <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11498	11599	
==>ream)=@_;
	my(@code,@work);

	my $oneop=0;
	my $optype="N";
	my $result="";
	foreach my $token (@strea <==
3	/Users/nnunley/parrot/config/inter/libparrot.pm	376	479	
==>=cut

package inter::libparrot;

use strict;
use vars qw($description @args);

use base qw(Parrot <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	794	890	
==>s all its methods,
and adds these methods:

=over

=item $token->tagname

This returns the tagnam <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1220	1316	
==>s all its methods,
and adds these methods:

=over

=item $token->tagname

This returns the tagnam <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	1053	1166	
==>t : shift;
	my $name = shift || die "No name.\n";
	my $text = shift;
	my @contents = @_;
	
	# TODO - Groups should <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7995	8104	
==>e[CURR] eq "STMT" or $type[CURR] eq "COMM") and $singleif) {

		$_=pop @ifstack;
		if ($_ < 0 ) {
			# print " <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	666	781	
==>ser->YYData->{nb_warning} ) {
        $parser->YYData->{nb_warning}++;
    }
    else {
        $parser->YYData- <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3203	3300	
==>Pod::Simple::ASCII) {
    $self->{'Thispara'} =~ tr{\xA0}{ };
    $self->{'Thispara'} =~ tr{\xAD}{ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2691	2788	
==>Pod::Simple::ASCII) {
    $self->{'Thispara'} =~ tr{\xA0}{ };
    $self->{'Thispara'} =~ tr{\xAD}{ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6378	6481	
==>>require('ident', 'literal'); }


#
# skip()
#
# Skips the token type specified if it is present. Return <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15088	15181	
==>structures of arbitrary depth and of
an arbitrary type. The function signatures will likely lo <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7256	7373	
==>utput_pushint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);

    if ($self->{DEBUG}) {
        my $de <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6898	7015	
==>utput_pushint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);

    if ($self->{DEBUG}) {
        my $de <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1956	2053	
==>Section::Languages->new,
        Parrot::Docs::Section::Config->new,
        Parrot::Docs::Section <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	2199	2330	
==>}
    }
    
    if ( exists $contents{'contents'} )
    {
        push @contents, @{$contents{'contents'}};
    }
    
    return $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7248	7358	
==>}

sub output_pushint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);

    if ($self->{DEBUG}) { <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6890	7000	
==>}

sub output_pushint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);

    if ($self->{DEBUG}) { <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	39173	39275	
==>rm->post_translation();
    $pir .= sub_meta($srm_pt, $mv, 'post_translation');
    $pir .= "### end po <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10156	10277	
==>stack);
		}

			@$stack
		or	do {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**No state left on stack: abortin <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9703	9817	
==>stack);
		}

			@$stack
		or	do {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**No state left on stack: abortin <==
3	/Users/nnunley/parrot/languages/APL/t/APL.pm	622	725	
==>ally output the skipped test in the TAP output. It just
# fails to run the test.

# mark todo tests with <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9857	9966	
==>while(	  @$stack
			  and (		not exists($$states[$$stack[-1][0]]{ACTIONS})
			        or  not exists($$state <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9412	9519	
==>while(	  @$stack
			  and (		not exists($$states[$$stack[-1][0]]{ACTIONS})
			        or  not exists($$state <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7260	7364	
==>TEL)\s*[\n\r]+([^\n\r]+)/smo;
	
	$text = $1;
	# Tidy it up a bit.
	$text =~ s/^\s+//o;
	$text =~ s/\s+$// <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	47579	47690	
==>do that!
  
  my @stack;
  my @lineage = ($treelet);

  DEBUG > 4 and print "Paragraph:\n$para\n\n";
  
  while( <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24813	24906	
==>s @match;
		return _succeed wantarray, $textref,
				$match[2], $match[3]+$match[5]+$match[7], <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7646	7737	
==>s @match;
	return _succeed wantarray, $textref,
			$match[2], $match[3]+$match[5]+$match[7], <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	179	279	
==>tribution Directory

=head1 SYNOPSIS

    use Parrot::Distribution;

    my $dist = Parrot::Distribut <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	245	337	
==>pl

=head1 DESCRIPTION

A Perl implementation of the F<examples/mops/mops.pasm> example progr <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	241	333	
==>pl

=head1 DESCRIPTION

A Perl implementation of the F<examples/mops/mops.pasm> example progr <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8614	8723	
==>RR] eq "INT" and 
		($type[NEXT] eq "BARE" or $type[NEXT] eq "COMM")) {  # Line number!
		create_label();
		$c <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	1035	1131	
==>s.
sub pre_branch {
	die "pre_branch not implemented for current stack to register mapper\n";
}
s <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	29691	29787	
==>ng is not returned.

=head2 A note about prefixes

Prefix patterns are matched without any traili <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	372714	372979	
==>E" => "peek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7435	7549	
==>de;
	goto PARSE;
	# Got a bareword.  
	# This should be an assignment
	#if ($syms[NEXT] eq "=") {
	#	# Assignment s <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9262	9354	
==>,$a,$_[8],20,0xe7d3fbc8,/* 24 */
GG,$a,$b,$c,$d,$_[13],5,0x21e1cde6,/* 25 */
GG,$d,$a,$b,$c,$ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	13178	13353	
==>= $key2;
                    push @opcodes, @{ $key->[1] };
                }
                my $assign = new KeyedSetOp( $parser,
                    'arg1'   => $key->[0 <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	10852	10962	
==>DER, PREFIX
}

sub _match_variable($$)
{
#  $#
#  $^
#  $$
	my ($textref, $pre) = @_;
	my $startpos = pos($$tex <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4971	5080	
==>rigger on configuration key $key\n",
        if $verbose;

    $self->{triggers}{$key}{$trigger} = $cb;

    r <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5472	5571	
==>'set', [$pair.'[0]',$item]);
      $self->_add_inst ('', 'set', [$pair.'[1]',$return]);
      $self- <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17023	17116	
==>'set',[$pair.'[0]',$item]);
    $self->_add_inst ('', 'set',[$pair.'[1]',$return]);
    $self- <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6511	6601	
==>'set', [$pair.'[0]',$item]);
  $self->_add_inst('', 'set', [$pair.'[1]',$return]);
  $self- <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	12713	12889	
==>,
   $_[0]->head4_halfpoint_size(),
  ;
}

###########################################################################
# Override these as necessary for further customization

s <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	120	213	
==>0975Z coke  $

=head1 NAME

config/gen/parrot_include.pm - Runtime Includes

=head1 DESCRIPTIO <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	13582	13673	
==>mpl_var name=skipped>,</td>
	      <td class="num tests_unexpect"><tmpl_var name=unexpect></ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254212	254634	
==>" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 296,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#li <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	71727	71862	
==>ce \$::RD_AUTOSTUB
					       was defined, a rule stub
					       ($call : '$call') was
					       automatically created.");

					$s <==
3	/Users/nnunley/parrot/lib/Test/More.pm	36530	36625	
==>ule.  Its main benefit is that it has
been distributed with Perl since 5.004_05.

L<Test::Harnes <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4946	5087	
==>ock, $self->require_ident);
      my $name = $ident->value;

      #
      # Allow there to be Properties:
      #

      my %props;

      wh <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7940	8081	
==>ock, $self->require_ident);
      my $name = $ident->value;

      #
      # Allow there to be Properties:
      #

      my %props;

      wh <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	6302	6410	
==>ively easy.  Each level of the hierarchy should be
    # indented two spaces.

    # there are two exceptions <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7231	7360	
==>ct
#DBG>		and	print STDERR "Reduce using rule ".-$act." ($lhs,$len): ";

                $act
            or  $self->YYAccept( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6896	7021	
==>ct
#DBG>		and	print STDERR "Reduce using rule ".-$act." ($lhs,$len): ";

                $act
            or  $self->YYAccept( <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	23363	23471	
==>t diagnostic filehandle.

=cut

sub _print_diag {
    my $self = shift;

    local($\, $", $,) = (undef, ' ', <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3390	3492	
==>with an unescaped '$'.
      $string = substr($string, 1, -1); # Without the surrounding double quotes. <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1709	1810	
==>with an unescaped '$'.

    $string = substr($string, 1, -1); # Without the surrounding double quotes. <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	168	249	
==>parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm 19606 2006-05-3 <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	25670	25807	
==>$new_letter\""
      );
      
      #TODO: or allow if last bit is same?
      
      return;
    }

    unless($fallbacks_one =~ m/^[A-Z <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27542	27660	
==>.= $self->decl($classname, $meth, 1);
        }
    }
    foreach my $method (@{ $self->{methods}} ) {
        next unl <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	4456	4555	
==>n 0 unless defined $type;
	
	return $self->type eq $type;
}

=item C<check_pod()>

Runs C<Pod::Simpl <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3891	3995	
==>parameter '$prm'");
        $prm=unpack('@2A*',$prm);
		$$outhash{$prm}=$value;
	}
	for (@$mandatory) <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3694	3794	
==>parameter '$prm'");
        $prm=unpack('@2A*',$prm);
		$$outhash{$prm}=$value;
	}
	for (@$mandatory) <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	165	284	
==>006;

use base 'Parrot::Test::M4';
use Data::Dumper;

our $VERSION = 0.01;

sub get_out_fn {
    my $self = shift;
    m <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	14928	15041	
==>t;
		}

		if ($$textref =~ m/\G\s*$ldel_outer/gc)
		{
			_failmsg q{Improperly nested codeblock at "} .
				     s <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	5557	5663	
==>d = pop(@nesting);
			$expected =~ tr/({[</)}]>/;
			if ($expected ne $brackettype)
			{
				_failmsg qq{Mi <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	12036	12181	
==>ils::Command -e rm_rf',
             'rpath' => '-L',
             'rpath_blib' => '',
             'setenv' => 1,
             'share_ext' => '.d <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	35916	36060	
==>ONS => {
			"-" => 72,
			"<" => 74,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			"<=" => 85,
			">" => 86,
			".." => 7 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36174	36318	
==>ONS => {
			"-" => 72,
			"<" => 74,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			"<=" => 85,
			">" => 86,
			".." => 7 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456186	456419	
==>"ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 235 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\ <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	7559	7682	
==>mmary");
    print OUT qq(
            <i>You may click on a percentage to see line-by-line detail</i>
            <table bo <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	11111	11212	
==>[1],0,-length($text))) . q{])}, 
					  Parse::RecDescent::_tracefirst($text),
					  , q{' . $self->{ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4500	4639	
==>BG>//;
                	push(@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note that for lo <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4276	4405	
==>BG>//;
                	push(@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note that for lo <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	9900	10002	
==>ATED FILE! DO NOT EDIT!

.HLL '_dotnet', ''

.sub trans_instructions
    .param pmc assembly
    .param <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32654	32768	
==>o code if we have any. Note that it has no obligations.
        if ($rule->{'typeinfo'}) {
		    $pir .= "### typei <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	19801	19906	
==>$target_name} eq 'force_resolve';
        $dont_ignore = 1;
        $para->[1]{'target_matching'} = $targe <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1354	1447	
==>est := ($got_perl eq $expected_perl);
    Test::proclaim($test, $desc, $todo, $got_perl, $expe <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5644	5786	
==>ibs );
    for my $pmc (@pmcs) {
        our $class;
        require "$pmc.dump";
 
        # there can be many libs
        my %libs = %{ $cla <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5855	5997	
==>ibs );
    for my $pmc (@pmcs) {
        our $class;
        require "$pmc.dump";
 
        # there can be many libs
        my %libs = %{ $cla <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1892	1984	
==>ntended to contain CLI
option data.

Accepts no arguments and returns a L<Parrot::Configure:: <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13427	13530	
==>tring
end type
type second
	other as first
	narf as integer
	pnext as first
end type
dim x as second
dim <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	982	1066	
==>_t)((opcode_t*)cur_opcode - (opcode_t*)interpreter->code->prederef.code))
#define CUR <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1112	1196	
==>_t)((opcode_t*)cur_opcode - (opcode_t*)interpreter->code->prederef.code))
#define CUR <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	3878	3979	
==>::ops) {
	if($cur_op->full_name eq 'enternative'){
	    $enternative = pack_op($cur_op->code);
	    la <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	12448	12568	
==>>
    
  <p> 
    Note: Timezone is UTC.<br />
  </p>

  <table>
    <tmpl_loop name=branches>
      <tr><th colspan="11" <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	146	237	
==>nerate charset tables

=head1 SYNOPSIS

	perl tools/dev/gen_charset_tables.pl

=head1 DESCRI <==
3	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	86	175	
==>ess2.pl 19601 2006-05-30T13:32:26.641316Z coke  $

=head1 NAME

examples/benchmarks/stress <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	12435	12565	
==>_name .": $jit_func $extern\n";
        }
        # some specials
        elsif ($op->full_name eq 'if_p_ic') {
            $jit_fu <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12439	12540	
==>se $type[CURR]/$syms[CURR] in DATA";
		}
		feedme();
	}
	push(@data, { line => $currline, data => \@ld <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	2730	2831	
==>ad of using
confess() and warn().

=cut

sub set_symbol
{
  my $self = shift; # Required: Jako::Constr <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Ops.pm	8	98	
==>ght (C) 2004, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Docs/Section/Ops.pm 20333 2006 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826622	826712	
==>e != STACK_ENTRY_FLOAT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on sta <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827692	827782	
==>e != STACK_ENTRY_FLOAT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on sta <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	52418	52536	
==>ol->[$i], 'ARRAY') ) {
      _stringify_lol( $lol->[$i], $to);  # recurse!
    } else {
      $$to .= $lol->[$i];
    } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122057	122150	
==>asting a signed integral to the equivalent unsigned.\n   */\n  LVALUE_CAST(UINTVAL, {{\@1}}) > <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122969	123062	
==>asting a signed integral to the equivalent unsigned.\n   */\n  LVALUE_CAST(UINTVAL, {{\@1}}) > <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22775	22888	
==>my ($cond, $left, $op, $right);

      if ($self->get(1)->is_if or $self->get(1)->is_unless) {
        $cond = $se <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	553	659	
==>ce input <n> chars
# O (fork, R)
# O (reverse_fork, R)
# O (match, b) : return if start of input is b, adva <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2882	2987	
==>${$$self{CHECK}}='ERROR';
    undef;
}

sub YYSemval {
	my($self)=shift;
	my($index)= $_[0] - ${$$se <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2744	2843	
==>${$$self{CHECK}}='ERROR';
    undef;
}

sub YYSemval {
	my($self)=shift;
	my($index)= $_[0] - ${$$se <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	3944	4040	
==>tion)>

Compile the Parrot Intermediate Representation and generate Parrot Assembler Code.
Pass i <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	4127	4223	
==>tion)>

Compile the Parrot Intermediate Representation and generate Parrot Assembler Code.
Pass i <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	4317	4411	
==>tion)>

Compile the Parrot Intermediate Representation and generate Parrot Assembler Code.
Pass <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838318	838602	
==>e",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 950,
                  "ARGS" => [
                              "p" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85577	85663	
==>COMPREG_HASH);\n  {{\@1}} = VTABLE_get_pmc_keyed_str(interpreter, compreg_hash, {{\@2}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86484	86570	
==>COMPREG_HASH);\n  {{\@1}} = VTABLE_get_pmc_keyed_str(interpreter, compreg_hash, {{\@2}} <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	10861	10965	
==>int t%

' Expect 7
t%=7
print t%*1

' Also expect 7
t%=7
print 1*t%

' Expect correct
t=0
if t then print <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4144	4242	
==>vert lib-GROUP.so + A.so + B.so ... -> GROUP.so
    while (my ($group, $pmcs) = each %$group_files) <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4248	4346	
==>vert lib-GROUP.so + A.so + B.so ... -> GROUP.so
    while (my ($group, $pmcs) = each %$group_files) <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	4548	4672	
==>f->{TEXT} and @short_desc )
    {
        my $short_desc = join '. ', @short_desc;
        
        $short_desc .= '.' unless <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	37360	37474	
==>BUG and print "Treating $para_type paragraph as such because stack is empty.\n";
        } else {
          my @for <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	22679	22782	
==>n [ $_[1], $_[3] ] }
	],
	[#Rule 42
		 'classpiece', 1,
sub
#line 177 "lib/Regex/Grammar.y"
{ return $_[ <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	7526	7624	
==>interpreter, struct call_state *st, int n)
{
    assert(n < st->src.n);
    Parrot_fetch_arg_nci(in <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	7709	7807	
==>interpreter, struct call_state *st, int n)
{
    assert(n < st->src.n);
    Parrot_fetch_arg_nci(in <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	7891	7989	
==>interpreter, struct call_state *st, int n)
{
    assert(n < st->src.n);
    Parrot_fetch_arg_nci(in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528704	529027	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529586	529909	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":b <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	46450	46616	
==>ne 80 "Lua\lua51.yp"
{
            PopScope( $_[0] );
            [ @{ $_[1] }, @{ $_[2] } ];
        }
	],
	[#Rule 9
		 'stat', 3,
sub
#line 88 "Lua\lua51.yp <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29376	29493	
==>ace(q{Trying terminal: [' . $self->describe
					  . ']},
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31473	31590	
==>ace(q{Trying terminal: [' . $self->describe
					  . ']},
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27273	27383	
==>ace(q{Trying terminal: [' . $self->describe
					  . ']}, Parse::RecDescent::_tracefirst($text),
					  q{' . $ <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	5058	5161	
==>_manifest_skip {

   # manicheck.pl is probably only useful for checked out revisions
   # Checkout is d <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	16033	16134	
==>revious directive.");
		return;
	}
	my $op = pop @{$self->{op}};
	my $span = @{$self->{items}} - $op-> <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1491	1590	
==>' }
sub start_head3 {  $_[0]{'Thispara'} = '' }
sub start_head4 {  $_[0]{'Thispara'} = '' }

sub sta <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1021	1120	
==>' }
sub start_head3 {  $_[0]{'Thispara'} = '' }
sub start_head4 {  $_[0]{'Thispara'} = '' }

sub sta <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9319	9408	
==>cc, $ccflags, $ldout, $o, $link, $linkflags, $cc_exe_out, $exe, $libs) = $conf->data->get( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32066	32191	
==>rrect for this.
            $para->[1]{'number'} = $expected_value;
            $self->whine(
              $para->[1]{'start_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32475	32600	
==>rrect for this.
            $para->[1]{'number'} = $expected_value;
            $self->whine(
              $para->[1]{'start_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	687	798	
==>_[0] || '')) { # most common case: one bare string
      return bless ['', {}, $_[0] ], $class;
    } elsif( ref <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151035	151125	
==>/cmp.ops\"\n  if (0 == string_equal(interpreter,\n      {{\@1}}->vtable->get_string(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152013	152103	
==>/cmp.ops\"\n  if (0 == string_equal(interpreter,\n      {{\@1}}->vtable->get_string(interpr <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	12493	12602	
==>lobal "$c" $cmt
EOC
    }
    elsif ($main_names{$c}) {
	$p = temp('P');
	print <<EOC;
	$p = find_lex "$c" $cm <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	173	269	
==>e Getopt::Std;
use vars qw( @tokens @tokdsc);
use vars qw(%code %options @basic %common);
use var <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	686	778	
==>t, 'Jako::Construct::Expression::Value::Identifier');
  confess("Left (" . ref($left) . ") is <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	677	769	
==>t, 'Jako::Construct::Expression::Value::Identifier');
  confess("Left (" . ref($left) . ") is <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	566	658	
==>t, 'Jako::Construct::Expression::Value::Identifier');
  confess("Left (" . ref($left) . ") is <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130832	131133	
==>E" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131686	131987	
==>E" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132541	132842	
==>E" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	50958	51087	
==>UG > 4 and print " It's just stuff.\n";
        push @{ $lineage[-1] }, $4;
      }

    } elsif(defined $5) {
      DEBUG > 3 and <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2347	2465	
==>nt {
    my ($self, $what) = @_;
    $what = value($what);
    return ("print $what;");
}

sub output_test {
    my ($s <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2664	2781	
==>nt {
    my ($self, $what) = @_;
    $what = value($what);
    return ("print $what");
}

sub output_test {
    my ($s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	5043	5149	
==>ntax Error is raised.
#
# If more than one type is specified, the semantics are "or".
#

sub require
{
  my <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	569	658	
==>:Distribution;

use Parrot::Docs::Section::Info;
use Parrot::Docs::Section::Docs;
use Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83720	83809	
==>reter,\n      interpreter->iglobals, IGLOBALS_COMPREG_HASH);\n  VTABLE_set_pmc_keyed_str(i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84626	84715	
==>reter,\n      interpreter->iglobals, IGLOBALS_COMPREG_HASH);\n  VTABLE_set_pmc_keyed_str(i <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	7186	7270	
==>r_${opcount}_of_production_${prodcount}_of_rule_$self->{name}";
}

sub nextimplicit($ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3388	3566	
==>S}{$name} = $sym;
}


###############################################################################

=head2 BLOCK->get_symbol(NAME)

Attempt to get a symbol from this block's sy <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	700	788	
==>'Jako::Construct::Expression::Value::Identifier');
  confess("Block (" . ref($block) . ") <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	740	838	
==>uences.
# Config stuff
our $CC = qq[/usr/bin/gcc-4.0 -c];
our $LD = qq[c++];
our $LDFLAGS = qq[-L/o <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	744	842	
==>uences.
# Config stuff
our $CC = qq[/usr/bin/gcc-4.0 -c];
our $LD = qq[c++];
our $LDFLAGS = qq[-L/o <==
3	/Users/nnunley/parrot/lib/File/Which.pm	2339	2453	
==>n't mark as executable so we check -e
                  ($Is_DOSish and grep { $file =~ /$_$/i } @path_ext[1..$#pat <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4196	4303	
==>/feature.h
    # include/parrot/platform.h
    
    # runtime/parrot/include/* (all?)

    # lib/Parrot/Conf <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	11825	11917	
==>$self->{'line_count'}, $enc_error );
  }
  push @{ $self->{'encoding_command_statuses'} }, $e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108906	109231	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111354	111679	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112246	112571	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	1659	1781	
==>assign    { return shift->is('bit-assign');    }
sub is_bof           { return shift->is('bof');           }
sub is_close_b <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19281	19381	
==>ad a$,t$,d$
print a,b,y.first
print a$,t$,d$
for i=1 to 5
	read h
	print h,
next i
print
restore 20
f <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	3290	3409	
==>ce!\n";
	next;
    }
    $seen{$file} = 1;

    die "$0: Could not find ops file '$file'!\n" unless -e $file;
    my $te <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	381	479	
==>ne
unique instance for each path.

=head2 Class Methods

=over

=cut

package Parrot::IO::Path;

us <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	11243	11338	
==>w_code<...>.\n";
  }
  
  return;
}


#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/config/init/optimize.pm	743	849	
==>stead. 
    my $optimize = $conf->options->get('optimize');
    if (defined $optimize) {
        $self->set <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	854	944	
==>RSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess "Op is not scalar!" if re <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	866	956	
==>RSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess "Op is not scalar!" if re <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	4720	4847	
==>ail;
    for my $regex ( @{ $cfg{skip_bench} } ) {
        $fail++ and last if /$regex/;
    }
    return if $fail;
    for my $ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	3952	4061	
==>0]", $_[2]);
	},
	'=' => sub {
		my ($a1, $a2, $result, $op)=@_;
		$op="eq" unless $op;
		$result=~s/S/N/;
		$ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	1029	1130	
==>n";
}

# Create metavariables table.
my $metavars = {};

# Generate initial translator code and popula <==
3	/Users/nnunley/parrot/lib/Test/More.pm	11707	11847	
==>ds) {
        local($!, $@);  # don't interfere with caller's $@
                        # eval sometimes resets $!
        eval { $proto->ca <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7264	7360	
==>$ignore  = ref($options{ignore}) eq 'ARRAY' ? join('|', @{$options{ignore}})
		    : defined($opt <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24266	24362	
==>$ignore  = ref($options{ignore}) eq 'ARRAY' ? join('|', @{$options{ignore}})
		    : defined($opt <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	7704	7820	
==>f $out;
    local *OLDERR if $err;

    # Save the old filehandles; we must not let them get closed.
    open  OLDOUT <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7755	7870	
==>f $out;
    local *OLDERR if $err;

    # Save the old filehandles; we must not let them get closed.
    open OLDOUT <==
3	/Users/nnunley/parrot/lib/Test/More.pm	16569	16663	
==>e a BEGIN
block so its functions are exported at compile-time and prototypes are
properly honor <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	19967	20089	
==>delegate/;
        $defaulted = 1 if $class =~ /^[A-Z]/;
        # MMD method
        if ($method->{mmd} =~ /MMD_/ && !$def <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	12238	12337	
==>ed, we will add it here, and
maintain backwards compatibility as well.

- `eval_ok (Str $code, Str $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353672	353762	
==>g_length(interpreter, s)) {\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n  }\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354417	354507	
==>g_length(interpreter, s)) {\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n  }\n <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1141	1276	
==>,
            CD => '..', # $self->{relpath}, 
            STDOUT => $pasm_f, STDERR => $pasm_f,
        );
        Parrot::Test::run_co <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1050	1185	
==>,
            CD => '..', # $self->{relpath}, 
            STDOUT => $pasm_f, STDERR => $pasm_f,
        );
        Parrot::Test::run_co <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	29236	29337	
==>op->{args}->[1] = 0;
#        return $self->rewrite_group(rop('group', [ $op, $name ]), $op, $name, $l <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	13589	13685	
==>Test::More's like().  Checks if $this matches the given $regex.

You'll want to avoid qr// if you <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1674	1769	
==>ormal_args = $sym->args;

  $self->SYNTAX_ERROR("Wrong number of arguments (expected %d, got %d) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1374	1469	
==>ormal_args = $sym->args;

  $self->SYNTAX_ERROR("Wrong number of arguments (expected %d, got %d) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	274047	274466	
==>"ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 319,
                  "ARGS" => [
                              "i",
                              "nc",
                              "n"
                            ],
                  "BO <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6311	6448	
==>gify($subpat);

        $pirCode .= qq(
            name = "$name"
            subpat = "$subpat"
            rulesub = p6rule_compile(sub <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10614	10730	
==>portable
    } else {
        die;
    }
}

sub Regex::Ops::Tree::charclass::render {
    die;
}

sub Regex::Ops::Tre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94958	95067	
==>\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95851	95960	
==>\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96744	96853	
==>\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3609	3710	
==>ister_num/$register_num/g;
		$register_num++;
	}

	# Return generated code.
	return $pir;
}

sub post_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3419	3520	
==>ister_num/$register_num/g;
		$register_num++;
	}

	# Return generated code.
	return $pir;
}

sub post_ <==
3	/Users/nnunley/parrot/config/auto/bc.pm	347	447	
==>king Parrot
bc.

=cut

package auto::bc;

use strict;
use vars qw($description @args);

use base qw(P <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	13216	13331	
==>_map{$c}) {
	    $c = $p = $type_map{$c};
	    $type = 'NCI';
	}
	$globals{$c} = $c;
	print <<"EOC";
	.local $type $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	429	522	
==>@@@@@@@@@@@@@@@@@@@@

sub _handle_element_start {
  # ($self, $element_name, $attr_hash_r)
  m <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	428	521	
==>@@@@@@@@@@@@@@@@@@@@

sub _handle_element_start {
  # ($self, $element_name, $attr_hash_r)
  m <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	40386	40489	
==>[INSP]TEMP\d+.
	while ($pir =~ /\$\{([INSP])_ARG_(\d+)\}/g) {
		my $key = "${1}_ARG_$2";
		my $value = " <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4757	4860	
==>the C code prior to the run core function.

=cut

sub run_core_func_start
{
    return <<END_C;
#if defi <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3045	3148	
==>the C code prior to the run core function.

=cut

sub run_core_func_start
{
    return <<END_C;
#if defi <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	728	821	
==>tem C<bindir>

The executables directory. Defaults to '/usr/bin'.

=item C<libdir>

The librar <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	957	1050	
==>tem C<bindir>

The executables directory. Defaults to '/usr/bin'.

=item C<libdir>

The librar <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	7794	7950	
==>dSetOp( $parser,
            'arg1'   => $key->[0],
            'arg2'   => $val->[0],
            'result' => $result,
        );
    }
    push @opco <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	817766	817889	
==>"JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "saveall",
                  "FLAGS" => ":bas <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683768	683858	
==>DY" => "#line 522 \"src/ops/pmc.ops\"\n    {{\@1}} = {{\@2}}->vtable->shift_pmc(interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439150	439538	
==>i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 503,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 104 \"s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	1838	1951	
==>sub kind   { return shift->{KIND};     }
sub type   { return shift->{TYPE};     }
sub name   { return shift->{NAME <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2795	2894	
==>sub kind { return shift->{KIND}; }
sub type { return shift->{TYPE}; }
sub name { return shift->{NAME <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2773	2893	
==>fined $op) {
      $name = $op->value;
      $name =~ s/(^"|"$)//g;
    }

    $name =~ s/^.*:://; # Strip namespaces off <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3352	3454	
==>Expect {
    my($self)=shift;

    keys %{$self->{STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
}

sub <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3183	3279	
==>Expect {
    my($self)=shift;

    keys %{$self->{STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
}

sub <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops.pm	53	168	
==>{
    my $name = shift || '';
    my $number = ++$MARKERS{$name};
    $number = '' if ($number == 1) && ($name ne '' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2685	2800	
==>{
    my $name = shift || '';
    my $number = ++$MARKERS{$name};
    $number = '' if ($number == 1) && ($name ne '' <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	1140	1246	
==>? splice(@_, -2, 2) : (0,0);
	my ($startlen) = $_[5];
	my $remainderpos = $_[2];
	if ($wantarray)
	{
		my @ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117180	117512	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":bas <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	119511	119843	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":bas <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120366	120698	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":bas <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	99632	99865	
==>ot(interpreter, {{\@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	252193	252426	
==>ot(interpreter, {{\@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	14808	14904	
==>self,$line,$complaint) = @_;
  my $self = shift(@_);
  ++$self->{'errors_seen'};
  if($self->{'no <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	16536	16643	
==>ra->[1]{'~type'};


  # Otherwise we haven't yet been to this node.  Maybe alter it...
  
  my $content = jo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8962	9055	
==>n(1, \"branch_cs: fixup for '%s' not found\", label);\n    else {\n\tinterpreter->resume_offse <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10078	10171	
==>n(1, \"branch_cs: fixup for '%s' not found\", label);\n    else {\n\tinterpreter->resume_offse <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407450	407758	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408348	408656	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	530448	530754	
==>\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "co <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28922	29023	
==>ibe ($) { shift->{'description'} }

sub new ($$$$)
{
	my $class = ref($_[0]) || $_[0];

	my $pattern = <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31002	31103	
==>ibe ($) { shift->{'description'} }

sub new ($$$$)
{
	my $class = ref($_[0]) || $_[0];

	my $pattern = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638520	638751	
==>AME" => "instantiate",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "function",
                  "CODE" => 714, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	1632	1765	
==>sh @tokens, Jako::Token->new(
        $file, $line, 'literal', 'I', $1);
      $text = $2;
      next;
    }

    #
    # String liter <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	24042	24143	
==>aras, $self->_closers_for_all_curr_open;
        # Make sure there is exactly one ~end in the parastac <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8267	8361	
==>nment
print "Hello";tab$(15);"World"
print "Foo";tab$(15);"Stuff"
print "I am the very model of <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21131	21225	
==>nment
print "Hello";tab$(15);"World"
print "Foo";tab$(15);"Stuff"
print "I am the very model of <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	20496	20588	
==>e_l+1]->[2] eq 'JUMP_IF_FALSE') {
	$code_l++;
	print "\t\t\t# UNARY_NOT\n\t\t\t# JUMP_IF_FALS <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1305	1451	
==>ion in Parrot code.

=cut

sub pc
{
    my $self = shift;

    if (@_)
    {
        $self->{PC} = shift;
    }
    else
    {
        return $self <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	914	1060	
==>ion in Parrot code.

=cut

sub pc
{
    my $self = shift;

    if (@_)
    {
        $self->{PC} = shift;
    }
    else
    {
        return $self <==
3	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	68	165	
==>rebuild a set of files only if the inputs have
changed, as judged by their checksums.

=head1 USAG <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2918	3005	
==>run_core_func_start()>

Implemented in subclasses, if C<run_core_func_decl()> is impleme <==
3	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1513	1594	
==>rrotcode.org/
AppUpdatesURL=http://www.parrotcode.org/
DefaultDirName={pf}\\parrot <==
3	/Users/nnunley/parrot/config/inter/lex.pm	998	1124	
==>_result('skipped');
        return $self;
    }

    my $prog;

    # precedence of sources for the program:
    # default -> p <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	995	1121	
==>_result('skipped');
        return $self;
    }

    my $prog;

    # precedence of sources for the program:
    # default -> p <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	371	465	
==>it2c.pl>, F<tools/build/pmc2c.pl>,
F<tools/build/vtable_h.pl>, F<tools/dev/gen_class.pl>, and
F <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4119	4225	
==>d_libs(@pmcs);

    # Convert lib-GROUP.so + A.so + B.so ... -> GROUP.so
    while (my ($group, $pmcs) = ea <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4223	4329	
==>d_libs(@pmcs);

    # Convert lib-GROUP.so + A.so + B.so ... -> GROUP.so
    while (my ($group, $pmcs) = ea <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7167	7259	
==>m;
		push @{$code{$seg}->{code}}, "\t#\n\t# User-included assembly\n$syms[CURR]\n\t# End asse <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	244	345	
==>mp>:

    % perl tools/build/pmc2c.pl --dump src/pmc/foo.pmc ...

Create F<vtable.dump>:

    % perl t <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	1540	1644	
==>automatically from '$infile'
 * by $0.
 *
 * Any changes made here will be lost!
 *
 */

#define CONCAT(a <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	3829	3933	
==>automatically from '$infile'
 * by $0.
 *
 * Any changes made here will be lost!
 *
 */

#define CONCAT(a <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	27856	27982	
==>},
          "=back doesn't take any parameters, but you said =back $content"
        );
      }

      if(@$curr_open and $cur <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	1992	2114	
==>thods{$m};
    return 1 if $m =~ /^\d+$/;	# MMD nr
    return 0;
}

sub type_map {
    my $t = $_[0];
    return $type_map{ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	25346	25456	
==>my ( $parser, $expr, $then, $elseifs, $else ) = @_;
    my @opcodes = ();
    my $cond = get_cond( $parser, $ <==
3	/Users/nnunley/parrot/config/init/hints/solaris.pm	926	1054	
==>se Carp;
        my ($key, $cc) = @_;
        my %gnuc;
        my $link = $conf->data->get('link');
        cc_gen("config/auto/ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	825	939	
==>y $self = bless {
    BLOCK => $block,
    LEFT  => $left,
    RIGHT => $right
  }, $class;

  $block->push_content <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	833	947	
==>y $self = bless {
    BLOCK => $block,
    LEFT  => $left,
    RIGHT => $right
  }, $class;

  $block->push_content <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	18033	18146	
==>->{Curr_Test}++;

    $self->{Test_Results}[$self->{Curr_Test}-1] = &share({
        'ok'      => 1,
        actua <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	18898	19011	
==>->{Curr_Test}++;

    $self->{Test_Results}[$self->{Curr_Test}-1] = &share({
        'ok'      => 1,
        actua <==
3	/Users/nnunley/parrot/config/auto/cgoto.pm	578	699	
==>_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('skipped');
        return $self;
    }

    my <==
3	/Users/nnunley/parrot/config/auto/jit.pm	664	785	
==>_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('skipped');
        return $self;
    }

    my <==
3	/Users/nnunley/parrot/config/gen/cpu.pm	576	697	
==>_;

    if ($conf->options->get('miniparrot')) {
        $self->set_result('skipped');
        return $self;
    }

    my <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615858	616034	
==>",
                              "sc"
                            ],
                  "BODY" => "#line 508 \"src/ops/object.ops\"\n    opcode_t *next = {{^+4}};\n    INTVAL off <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26967	27101	
==>{#State 83
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRI <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	34674	34816	
==>s but ran $num_extra extra.
FAIL
        }
        elsif ( $num_failed ) {
            my $s = $num_failed == 1 ? '' : 's';
            $self-> <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	24533	24628	
==>y ($self, $op, $R, $greedy, $lastback) = @_;
    return $greedy ? $self->rewrite_greedy_optional <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4416	4502	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sub run {
  my $self <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11430	11714	
==>$parser,
                            'result' => $result2,
                            'arg1'   => $result,
                            'arg2'   => $key->[0],
                        );
                        $result = $result2;
                    }
                    push @ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9662	9918	
==>$parser,
                        'result' => $result2,
                        'arg1'   => $result,
                        'arg2'   => $key->[0],
                    );
                    $result = $result2;
                }
                push @ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8581	8781	
==>$parser,
                'result' => $result2,
                'arg1'   => $result,
                'arg2'   => $key->[0],
            );
            $result = $result2;
        }
        push @ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6359	6495	
==>{DEFAULT};
#DBG>			$debug & 0x01
#DBG>		and	print STDERR "Don't need token.\n";
        }

            defined($act)
        and do <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6064	6194	
==>{DEFAULT};
#DBG>			$debug & 0x01
#DBG>		and	print STDERR "Don't need token.\n";
        }

            defined($act)
        and do <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3685	3779	
==>ves

# Decrement stack height.
PRE_OP_${CURIC}_CONT_$register_num:
dec stack_depth
PIR
		$pir = <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1060	1152	
==>ot_>' prefix.

Used by C<Parrot::Op>'s C<func_name()> to individuate op function names.

=cut <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2909	3007	
==>em C<restart_address($address)>

Returns the C code for C<restart ADDRESS($address)>.

=cut

sub re <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3778	3876	
==>em C<restart_address($address)>

Returns the C code for C<restart ADDRESS($address)>.

=cut

sub re <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3508	3606	
==>em C<restart_address($address)>

Returns the C code for C<restart ADDRESS($address)>.

=cut

sub re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159276	159449	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 176 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160173	160346	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 176 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	8314	8449	
==>t;
      --$dont_wrap if $tagname eq 'Verbatim' or $tagname eq 'X';

    # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2640	2772	
==>inking  => 1,
            parrot_is_shared     => 1,

            sym_export => '__declspec(dllexport)',
            sym_import => '_ <==
3	/Users/nnunley/parrot/config/init/hints/cygwin.pm	1170	1287	
==>inking => 1,
        parrot_is_shared    => 1,
        sym_export => '__declspec(dllexport)',
        sym_import => '_ <==
3	/Users/nnunley/parrot/config/gen/config_h.pm	498	606	
==>ption @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':gen';

$description <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	340	448	
==>ption @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':gen';

$description <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	332	440	
==>ption @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':gen';

$description <==
3	/Users/nnunley/parrot/config/gen/config_h.pm	1863	2006	
==>*/

EOF
        for (@vals) {
            print HH "#define PARROT_DEF_" . uc($_), " 1\n";
        }

    }

    print HH <<EOF;

/*
 * HAS_(\\w <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	860	962	
==>Jako::Construct::Expression::Value::Identifier));

  my $self = bless {
    BLOCK  => $block,

    KIND <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	824	926	
==>Jako::Construct::Expression::Value::Identifier));

  my $self = bless {
    BLOCK  => $block,

    KIND <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52020	52172	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "trace",
                  "FLAG <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	1777	1878	
==>if (! @tests) {
  die "Couldn't find any tcl test files to run.\n";
}
my $cmd = "$^X t/harness @tests" <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	461	555	
==>/ops2c.pl C --dynamic myops.ops

=head1 DESCRIPTION

This script uses a supplied transform to c <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	7006	7108	
==>ther opcodes are just skipped
sub find_op_number {
    my ($opname, $experimental) = @_;
    if (exists <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	30753	30917	
==>_end;
            }
        }
    }
    push @opcodes, @{$block};
    push @opcodes, new BinaryOp(
        $parser,
        'op'     => 'add',
        'arg1' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719824	719919	
==>\@1}};\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721024	721119	
==>\@1}};\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	34897	35042	
==>" => 72,
			"%" => 76,
			"*" => 80,
			".." => 71,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -65
	},
	{#State 128
		A <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4729	4824	
==>core_func_start()>

Returns the C code prior to the run core function.

=cut

sub run_core_func_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3017	3112	
==>core_func_start()>

Returns the C code prior to the run core function.

=cut

sub run_core_func_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30290	30422	
==>whine(
              $curr_open->[-1][1]{'start_line'},
              "You can't have =items (as at line "
              . $para->[1] <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2607	2704	
==>>compile($compiler);
  $right = $right->compile($compiler);

  my $dest_name = $dest->value;
  $de <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	9895	10012	
==>ation header for flags such as noinit
    while ($$c =~ s/^\s*(\w+)//s) {
        my $flag = $1;
        if ($has_valu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103309	103496	
==>}->vtable->i_bitwise_nots(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48575	48672	
==>preter,   PARROT_BOUNDS_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_BOUNDS_F <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49365	49462	
==>preter,   PARROT_BOUNDS_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_BOUNDS_F <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	7024	7141	
==>op @stack
				while(@stack and $stack[-1]->[0] ne "(");
			pop @stack;
			next;
		}

		if (	$type eq "STRING" or
			no <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686416	686503	
==>ine 563 \"src/ops/pmc.ops\"\n   {{\@1}} = {{\@3}}->vtable->getprop(interpreter, {{\@3}}, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687306	687393	
==>ine 563 \"src/ops/pmc.ops\"\n   {{\@1}} = {{\@3}}->vtable->getprop(interpreter, {{\@3}}, <==
3	/Users/nnunley/parrot/config/auto/socklen_t.pm	601	706	
==>$Config{d_socklen_t};
    my $has_socklen_t = ( $d_socklen_t && $d_socklen_t ne 'undef' ) ? 1 : 0; 
    $s <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11930	12032	
==>n(",", map {$_->[0]} (reverse @args));
			$pir_args = ",$pir_args" if $pir_args;
			$extern=$sym;
			$o <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	12340	12442	
==>n(",", map {$_->[0]} (reverse @args));
			$pir_args = ",$pir_args" if $pir_args;
			$extern=$sym;
			$o <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15489	15604	
==>$1}/g;  # ESCAPER
             # Escape \, {, }, -, control chars, and 7f-ff.
    $x =~ s/([^\x00-\xFF])/'\\uc1\\u'. <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16668	16783	
==>$1}/g;  # ESCAPER
             # Escape \, {, }, -, control chars, and 7f-ff.
    $x =~ s/([^\x00-\xFF])/'\\uc1\\u'. <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	23852	23994	
==>cflags} $PConfig{cc_debug} " .
                " -I./include -c " .
                "$PConfig{cc_o_out}$obj_f $source_f";
            $exit_cod <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	4939	5056	
==>'}";
        $label =~ s/\./_/g;
        $pir .= "$label:\nbody = <<\"___BUILTIN_CODE___\"\n";
        $pir .= $_->{'b <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	52704	52810	
==>})
			{
				_parse("a score marker", $aftererror,$line);
				$code =~ /\A\s*<score:(.*)>\Z/s;
				$prod and <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028032	1028129	
==>opcode_t *next = {{^+2}};\n  if ({{\@1}} < 0) {\n      real_exception(interpreter, next, NEG_SLEEP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028883	1028980	
==>opcode_t *next = {{^+2}};\n  if ({{\@1}} < 0) {\n      real_exception(interpreter, next, NEG_SLEEP <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2780	2873	
==>o XML.

Pod::Simple::XMLOutStream inherits methods from
L<Pod::Simple>.


=head1 SEE ALSO

L<P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653460	653550	
==>defined(interpreter, {{\@1}}))\n        real_exception(interpreter, resume, METH_NOT_FOUND, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654621	654711	
==>defined(interpreter, {{\@1}}))\n        real_exception(interpreter, resume, METH_NOT_FOUND, <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	11038	11152	
==>ass ( or Perl module ).

There is no significant speed gain between compile time and run time
class creation, there <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	296	400	
==>(Exporter Test::More);

sub import {
    my( $class, $plan, @args ) = @_;

    Test::More->import( $plan, <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	213	317	
==>(Exporter Test::More);

sub import {
    my( $class, $plan, @args ) = @_;

    Test::More->import( $plan, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104097	1104183	
==>O_CLASS,\n\t\t\t\t\"Class '%Ss' not found\", class);\n\t{{\@1}} = pmc_new_init(interpre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105312	1105398	
==>O_CLASS,\n\t\t\t\t\"Class '%Ss' not found\", class);\n\t{{\@1}} = pmc_new_init(interpre <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	3608	3726	
==>y $self = shift;
    my $id = $self->svn_id;
    my ($version) = $id =~ /,v\s+(\S+)/s;
    
    return $version;
}

=it <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16519	16612	
==>istribute it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/pe <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1733	1826	
==>istribute it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/pe <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	14310	14426	
==>t */
  $op_info,		/* op_info_table */
  $op_func,		/* op_func_table */
  $getop		/* op_code() */
};

END_C

# generat <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510503	510788	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511241	511526	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511979	512264	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => " <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	1503	1608	
==>core_numops] = {\n";
    $func_end = '_jit';
    $normal_op = 'Parrot_jit_normal_op';
    $cpcf_op = 'Parr <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20330	20427	
==>ng this module's output
even more, see the source and/or write to me.

=head1 SEE ALSO

L<Pod::Sim <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7297	7499	
==>n): ";

                $act
            or  $self->YYAccept();

            $$dotpos=$len;

                unpack('A1',$lhs) eq '@'    #In line rule
            and do {
                    $l <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6961	7154	
==>n): ";

                $act
            or  $self->YYAccept();

            $$dotpos=$len;

                unpack('A1',$lhs) eq '@'    #In line rule
            and do {
                    $l <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	26419	26518	
==>tion file code for the PMC. C<$out_name> is the name
of the output file we are generating.

=cut

su <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447237	447547	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	448059	448369	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449545	449855	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => " <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3119	3230	
==>er

is basically equivalent to this:

  my $debug_level;
  BEGIN { $debug_level = 0 }
  BEGIN { sub Pod::Simple: <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	10988	11078	
==>ethod($class, $method, $super, $super_table)>

Rewrites the method body performing the vari <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11390	11480	
==>ethod($class, $method, $super, $super_table)>

Rewrites the method body performing the vari <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	8638	8739	
==>en { 0 }
sub startset { return () }
sub hasback { 0 }
sub dfa_safe { 1 }

package Regex::Ops::Tree::no <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8785	8878	
==>e to pop it.
${ITEMP1} = elements ${STYPES}
dec ${ITEMP1}
${PTEMP0} = ${STYPES}[${ITEMP1}]
${S <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7357	7450	
==>e to pop it.
${ITEMP1} = elements ${STYPES}
dec ${ITEMP1}
${PTEMP0} = ${STYPES}[${ITEMP1}]
${S <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641198	641439	
==>TYPE" => "inline",
                  "CODE" => 716,
                  "ARGS" => [
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 189 \"src/ops/pmc.ops\"\n <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	863	967	
==>s) returns Bool is export {
    Test::proclaim($cond, $desc, $todo, :$depends);
}

## is

sub is (Str $go <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	5480	5576	
==>comment}{C})/;
      ($first_comment) = $text =~ /(($RE{comment}{'C++'}\s*)+)/
	  if !$first_comm <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605165	605440	
==>\@1}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "adda <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24818	24959	
==>ARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcall",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1346	1462	
==>os> > <rx_len>; # past end of input?",
            '<rx_match>{0}->[0] = <rx_pos>; # group 0 start := pos');
}

sub o <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2558	2742	
==>g, 
                            STDOUT => $lang_out_fn,
                            STDERR => $lang_out_fn 
                        );
  
        my $builder_func = $language_test_map{$ <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2001	2113	
==>rom C<new()> to create the path if necessary.

=cut

sub create_path
{
    my $self = shift;
    
    return unle <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	978	1090	
==>rom C<new()> to create the path if necessary.

=cut

sub create_path
{
    my $self = shift;
    
    return unle <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	45108	45204	
==>ult value on success is
an empty string.
On failure, all of these values (except the remaining te <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4265	4360	
==>cl($core)>

Returns the C code for the run core function declaration.

=cut

sub run_core_func_d <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2753	2848	
==>cl($core)>

Returns the C code for the run core function declaration.

=cut

sub run_core_func_d <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840191	840379	
==>ter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840886	841074	
==>ter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683011	683098	
==>\"src/ops/pmc.ops\"\n    {{\@1}} = {{\@2}}->vtable->shift_string(interpreter, {{\@2}});\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50546	50859	
==>> "profile",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 65,
                  "ARGS" => [
                              "ic"
                            ] <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	2735	2892	
==>',
             'exe' => '',
             'exec_prefix' => '/opt/local',
             'execcapable' => 1,
             'flex_version' => undef,
             ' <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	37039	37153	
==>y $nil = BuildLiteral( $parser, 'nil', 'nil' );
        push @opcodes2, @{ $nil->[1] };
        push @opcodes2, n <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1831	1928	
==>Tools->new,
        Parrot::Docs::Section::BigNum->new,
        Parrot::Docs::Section::Compilers-> <==
3	/Users/nnunley/parrot/languages/pugs/t/pmc.pm	523	632	
==>1 
    if $I0 goto ok
    print "not "
ok:
    print "ok\n"
.end
CODE
ok
OUTPUT

main::pir_output_is(<< "CODE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436507	436597	
==>s\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437522	437612	
==>s\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	2752	2895	
==>exe' => '',
             'exec_prefix' => '/opt/local',
             'execcapable' => 1,
             'flex_version' => undef,
             'flo <==
3	/Users/nnunley/parrot/config/inter/libparrot.pm	106	202	
==>8:15.110975Z coke  $

=head1 NAME

config/inter/libparrot.pm - Determines build information f <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	2263	2380	
==>0 = isne %1, %2
    %1 = $I100
END_PIR

    $P0[unicode:"dyadic:\u2264"]  = <<"END_PIR"             # not greater than <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	30592	30698	
==>s\"\n    opcode_t * const this = CUR_OPCODE;\n    parrot_context_t *ctx;\n    PMC *ccont;\n    PMC *signatu <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	55	142	
==>ot/lib/Parrot/Docs/Directory.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368928	369226	
==>=> 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functio <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369812	370110	
==>=> 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functio <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10613	10735	
==>OUT page_footer();

    close(OUT);
}


sub filter_gcov {
    my ($infile) = @_;
    
    my $source_file = $infile;
    $s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	533747	534010	
==>"NAME" => "log10",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6173	6283	
==>{$group}->{lib} = 1;
        }
    }

    return (\%group_files, \%group_libs, \%pmc_group, \%pmc_libs);
}

sub <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6384	6494	
==>{$group}->{lib} = 1;
        }
    }

    return (\%group_files, \%group_libs, \%pmc_group, \%pmc_libs);
}

sub <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	52915	53125	
==>>[1]{'target'})
             : $_->[0]
        }
    @$curr_open
  ;
}

###########################################################################
my %pretty_form = (
  "\a" => '\a', # ding!
  "\b" => '\b', # B <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	3082	3172	
==>compare_func($got, $expected);
    Test::proclaim($test, $desc, $todo, $got, "&compare_func <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367129	367420	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":bas <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367920	368211	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":bas <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368712	369003	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":bas <==
3	/Users/nnunley/parrot/lib/Test/More.pm	28846	28963	
==>turn $ok;
}

sub _deep_check {
    my($e1, $e2) = @_;
    my $ok = 0;

    # Effectively turn %Refs_Seen into a stack. <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	1572	1675	
==>ursion. Actual
    # instances should probably be subclasses that use something like
    # IMCC's facili <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	3293	3391	
==>ub is_global
{
  my $self = shift;

  return defined $self->block and not defined $self->block->blo <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27700	27811	
==>$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end translation\n";

		# Emit code to fix up the stack type ar <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37249	37360	
==>$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end translation\n";

		# Emit code to fix up the stack type ar <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2178	2305	
==>s              => '-nologo -nodefaultlib',
            libparrot_static     => 'libparrot'.$conf->data->get('a'),
            li <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	774	891	
==>data->get('ccflags');
    if ($^O =~ /mswin32/i) {
        if ($cc =~ /^gcc/i) {
            $conf->data->add(' ', lib <==
3	/Users/nnunley/parrot/config/auto/readline.pm	786	903	
==>data->get('ccflags');
    if ($^O =~ /mswin32/i) {
        if ($cc =~ /^gcc/i) {
            $conf->data->add(' ', lib <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	24949	25068	
==>my $new_letter = $1;
    my $fallbacks_one = $2;
    my $elements_one;
    $elements_one = defined($3) ? $3 : $1;

    D <==
3	/Users/nnunley/parrot/config/auto/jit.pm	97	190	
==>0T19:26:31.775154Z bernhard  $

=head1 NAME

config/auto/jit - JIT Capability

=head1 DESCRIPT <==
3	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	1172	1265	
==>EVELOPING') {

print "/* $fingerprint */\n";
print "static const unsigned char fingerprint[] = <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	737	835	
==>sequences.
# Config stuff
our $CC = qq[/usr/bin/gcc-4.0 -c];
our $LD = qq[c++];
our $LDFLAGS = qq[- <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	741	839	
==>sequences.
# Config stuff
our $CC = qq[/usr/bin/gcc-4.0 -c];
our $LD = qq[c++];
our $LDFLAGS = qq[- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222645	222737	
==>.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_CMP) >= 0) {\n    {{+={{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859351	859590	
==>S" => [
                              "s",
                              "sc",
                              "i"
                            ],
                  "BODY" => "#line 118 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      inter <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	27078	27188	
==>al',
				      ]);

# Create a string representing an optimized pattern (a la Friedl)
# that matches a substrin <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	13826	13930	
==>= $1;
	   $closing =~ tr/([<{/)]>}/;
	my $matched;
	my $patvalid = 1;
	while (pos($$textref) < length($$t <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	585	696	
==>x;

  if ($self->prefix) {
    $prefix = $self->prefix;
  }
  else {
    $prefix = $self->peer ? $peer->prefix : <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	565	676	
==>x;

  if ($self->prefix) {
    $prefix = $self->prefix;
  }
  else {
    $prefix = $self->peer ? $peer->prefix : <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	2694	2793	
==>l compiler errors and warnings instead of using
confess() and warn().

=cut

sub set_symbol
{
  my $ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	7166	7344	
==>type)$/;
                }
                $has_args = 1;
            }
        }

        # instruction or pir
        elsif (/^(instruction|pir)$/) {
            if ($has_trans) <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	7746	7848	
==>Save the old filehandles; we must not let them get closed.
    open  OLDOUT, ">&STDOUT" or die "Can't s <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7797	7898	
==>Save the old filehandles; we must not let them get closed.
    open OLDOUT, ">&STDOUT" or die "Can't s <==
3	/Users/nnunley/parrot/config/gen/config_h.pm	1909	2032	
==>t HH "#define PARROT_DEF_" . uc($_), " 1\n";
        }

    }

    print HH <<EOF;

/*
 * HAS_(\\w+) config entries
 */

EOF <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	7775	7880	
==>eturn;
  } elsif(ref( $_[0] ) eq 'ARRAY') {
    $self->{'source_arrayref'} = $_[0];
    DEBUG and print "$ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	231	320	
==>le = Parrot::Docs::File->new('MANIFEST');

=head1 DESCRIPTION

This C<Parrot::IO::File> su <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	7973	8143	
==>if (defined($kid->maxlen()) xor $havemax) {
                # Change
                push @chunks, [];
                $havemax = 1 - $havemax;
            }
            p <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	719	813	
==>->rel2abs($lang_f);
    $out_f  = File::Spec->rel2abs($out_f);
    Parrot::Test::write_code_to_ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	756	850	
==>->rel2abs($lang_f);
    $out_f  = File::Spec->rel2abs($out_f);
    Parrot::Test::write_code_to_ <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	8173	8305	
==>*
        * Local variables:
        * c-indentation-style: bsd
        * c-basic-offset: 4
        * indent-tabs-mode: nil
        * <==
3	/Users/nnunley/parrot/tools/build/vtable_extend.pl	3076	3173	
==>*
 * Local variables:
 * c-indentation-style: bsd
 * c-basic-offset: 4
 * indent-tabs-mode: nil
 * <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	160	249	
==>:OpTrans::CSwitch - C Switch Transform

=head1 DESCRIPTION

C<Parrot::OpTrans::CSwitch> in <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	2713	2807	
==>ted files, i.e. the files that will be added to the distribution after configuration and instal <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819498	819592	
==>Y" => "#line 79 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n    stack_entry(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820458	820552	
==>Y" => "#line 79 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n    stack_entry(interpr <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6859	6970	
==>ds_build("$pmc.c", "$pmc.pmc")) {
        run("$PMC2C --c $pmc.pmc")
          or die "pmc2c code generation fai <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7070	7181	
==>ds_build("$pmc.c", "$pmc.pmc")) {
        run("$PMC2C --c $pmc.pmc")
          or die "pmc2c code generation fai <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	129	222	
==>ns/foo.tmt > src/builtins/foo.pir

=head1 DESCRIPTION

Use this script to generate PIR code ba <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	81	193	
==>d (\d+) types out of (\d+) from .+?([\.\w]+)\n$/) {
		push @results, {
			name	=> $3,
			total	=> $2,
			done <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	81	193	
==>d (\d+) types out of (\d+) from .+?([\.\w]+)\n$/) {
		push @results, {
			name	=> $3,
			total	=> $2,
			done <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5484	5583	
==>$value);
    return qq!<rx_match>{"$group"}->[0] = $value; # open group $group!;
}

sub output_seten <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	25433	25590	
==>aph because in ignore mode.\n";
      next;
    }
    #~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
    # ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	5230	5342	
==>ow_size, pos, newline
    row_size = shape[1]
    pos = 1 
    iter = new .Iterator, arg
    value_type = 'String <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	40577	40682	
==>=~ /\$\{([INSP])TEMP(\d+)\}/g) {
		my $key = "${1}TEMP$2";
		my $value = "${1}_temp_$2";
		$mv->{$key} = $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	2499	2774	
==>},
                   'b',
                   bless( [
                            'I',
                            {},
                            'ar'
                          ], 'Pod::Simple::LinkSection' ),
                   'baz'
                 ], 'Pod::Simple::LinkS <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	22819	22940	
==>we have to set a few items
         */
        struct _vtable *vt_clone =
            Parrot_clone_vtable(interp, &temp_ba <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16439	16546	
==>'function' => 26,
			'primary' => 28,
			'fieldlist' => 92,
			'functioncall' => 31,
			'tableconstructo <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29877	29983	
==>Parrot::Pmc2c::Standard::Const Instance Methods

Returns the C code for the method body.

=over 4

=cut

pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423596	423689	
==>\"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_listen(interpreter, {{\@2}}, {{\@3}});\n    {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	424493	424586	
==>\"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_listen(interpreter, {{\@2}}, {{\@3}});\n    {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1092859	1093084	
==>ble->get_iter(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	17127	17229	
==>ointer_ref});
    print NCI << "TAIL";


/* This function serves a single purpose. It takes the functio <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	1790	1888	
==>ompile
{
		my ($self, $grammar, $class, $sourcefile) = @_;

		$class =~ /^(\w+::)*\w+$/ or croak("B <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	20030	20174	
==>indirection
                my $level = $builder->level();
                $builder->level(2);

                # Load module that knows how to t <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	768	869	
==>er->emit("end");
  $compiler->outdent;
  $compiler->emit(".end");

  foreach my $construct ($self->con <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296973	297092	
==>" => "#line 970 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 0 : 1;\n  {{+=4}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297829	297948	
==>" => "#line 970 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 0 : 1;\n  {{+=4}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298685	298804	
==>" => "#line 970 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 0 : 1;\n  {{+=4}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7730	7930	
==>os
                        ?   map { $$_[1] } @$stack[ -$$dotpos .. -1 ]
                        :   ();

            $semval = $code ? &$code( $self, @sempar )
                            : @semp <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7379	7574	
==>os
                        ?   map { $$_[1] } @$stack[ -$$dotpos .. -1 ]
                        :   ();

            $semval = $code ? &$code( $self, @sempar )
                            : @semp <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	1194	1326	
==>e op
    out           the argument passes a value out of the op
    inout         the argument passes a value into and out of the op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44371	44631	
==>2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "popmark",
                  "FLAGS" => "" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45012	45272	
==>2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "popmark",
                  "FLAGS" => "" <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	5235	5341	
==>untime/lib/;
        $dest = File::Spec->catdir($options{prefix}, $dest);
    }

    $dest = File::Spec->ca <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663709	663930	
==>able->delete_keyed(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664481	664702	
==>able->delete_keyed(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	12281	12391	
==>y ($self, $code) = @_;
    # Assume, for now, that the code is PIR code
    return ("# START EMBEDDED PIR CODE" <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	36124	36252	
==>tent; ++$j) {
        next if ref $ell_content[$j];
        DEBUG > 3 and
         print "    Peering at L-content text bit \"$el <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	37333	37461	
==>tent; ++$j) {
        next if ref $ell_content[$j];
        DEBUG > 3 and
         print "    Peering at L-content text bit \"$el <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	21877	21979	
==>y} : "";
    $class_init_code =~ s/INTERP/interp/g;
    my $enum_name = $self->{flags}{dynpmc} ? -1 : " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660123	660212	
==>@2}}) ? 0 : {{\@2}}->vtable->exists_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661045	661134	
==>@2}}) ? 0 : {{\@2}}->vtable->exists_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980275	980659	
==>s",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1100,
                  "A <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	8152	8297	
==>how, $Got, $got) = @_;
		    if (defined $Got) {
			if ($Got == $got) {
			    $$show++;
			} else {
			    $$show = 0;
			}
		    }
		}
		want_sh <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	60060	60151	
==>the error diagnostics listed
below.
Accessing C<$@-E<gt>{pos}> returns the offset into the o <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5071	5179	
==>($failLabel);
    my $pass = $self->output_label_use($passLabel);

    while (@$incexc) {
        my $first = <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4746	4854	
==>($failLabel);
    my $pass = $self->output_label_use($passLabel);

    while (@$incexc) {
        my $first = <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	6871	6973	
==>*?)}}/     $trans->expr_address($1); /me;

    return $_;
}

=item C<rewrite_body($body, $trans)>

Perf <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	580	707	
==>y $parser = shift;
    my ($msg) = @_;

    $msg ||= ".\n";

    if ( exists $parser->YYData->{nb_warning} ) {
        $pa <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	7257	7355	
==>nextimplicit($)
{
	my $self = shift;
	my $prodcount = scalar @{$self->{"prods"}};
	my $impcount = + <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	6534	6630	
==>onst($class)>

If the PMC had its C<const_too> flag set then this method is called in
C<init()> t <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	898	1001	
==>abel($arg);
    }
    return @indices;
}

=item method combineLabels(label1, label2, ...)

Creates a new <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	583	680	
==>he POD of the stuff we're parsing.

=head1 COMMAND-LINE OPTIONS

=over 4

=item C<--verbose>

Verb <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28027	28120	
==>, call post_op and append code it generates.
		my $post_op = $srm->post_op($rule->{'pop'}, $ru <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857169	857498	
==>=> ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 973,
                  "ARGS" => [
                              "s" <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9852	9943	
==>score};
		next unless $prod->checkleftmost();
		$code .= $prod->code($namespace,$self,$parse <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107167	107460	
==>{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108021	108314	
==>{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108875	109168	
==>{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
3	/Users/nnunley/parrot/config/auto/perldoc.pm	190	285	
==>s

=head1 DESCRIPTION

Determines whether perldoc exists on the system.

=cut

package auto::per <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804290	804546	
==>et_pmc_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805191	805447	
==>et_pmc_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2724	2835	
==>lf{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHECK}}='ACCEPT';
    unde <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2600	2703	
==>lf{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHECK}}='ACCEPT';
    unde <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1098	1183	
==>~X1&X3))+X0+X4+X6$MSK,X5)+X1$MSK;",
#	GG => "X0=rotate_left(((X1&X3)|(X2&(~X3)))+X0+X4 <==
3	/Users/nnunley/parrot/config/auto/jit.pm	1138	1251	
==>uarch =~ s|/|_|g;

    # On OS X if you are using the Perl that shipped with the system
    # the above split fail <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7644	7748	
==>dest_reg = shift;
	my $pir = "";

	# If the destination isn't a register, determine register name now.
	i <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5762	5866	
==>dest_reg = shift;
	my $pir = "";

	# If the destination isn't a register, determine register name now.
	i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	174692	175020	
==>base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 209,
                  "ARGS" => [
                              "p", <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	1371	1455	
==>e_branch_coverage, %file_call_coverage);
my (%function_line_coverage, %function_branc <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4208	4333	
==>nit};
        $cout .= <<"EOC";
        Parrot_${class}_class_init(interpreter, type$class, pass);
EOC
    }
    $cout .= <<"E <==
3	/Users/nnunley/parrot/examples/benchmarks/stress.pl	520	638	
==>buildarray {
    my @foo;
    foreach (1..10000) {
	$foo[$_] = $_;
    }
    return \@foo;
}

=head1 SEE ALSO

F<exampl <==
3	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	429	547	
==>buildarray {
    my @foo;
    foreach (1..10000) {
	$foo[$_] = $_;
    }
    return \@foo;
}

=head1 SEE ALSO

F<exampl <==
3	/Users/nnunley/parrot/tools/dev/pbc_header.pl	828	946	
==>N, $compat_file or die "Can't read $compat_file";
    my @lines = <IN>;
    close IN;

    my $len = 10;
    my $finger <==
3	/Users/nnunley/parrot/tools/build/vtable_extend.pl	1879	1989	
==>we've documented should be done -- but the problem is that the
   stack base pointer will be NULL. This is Very <==
3	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	754	856	
==>N, $compat_file or die "Can't read $compat_file";
my @lines = <IN>;
close IN;

my $len = 10;
my $finger <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413442	413805	
==>:base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 477,
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149141	149227	
==>105 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) == {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150082	150168	
==>105 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) == {{\ <==
3	/Users/nnunley/parrot/config/init/hints/linux.pm	1242	1351	
==>2 undefined warns (setenv, unsetenv) on 2.1.3
        $cflags .= ' -D_GNU_SOURCE';
    }

    $conf->data->set <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeSmart.pm	345	443	
==>:resolve_alias($_[1]);
}

sub encmodver {
  return "Encode.pm v" .($Encode::VERSION || '?');
}

sub <==
3	/Users/nnunley/parrot/config/auto/inline.pm	243	340	
==>upports C<inline>.

=cut

package auto::inline;

use strict;
use vars qw($description @args);

use <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14317	14426	
==>e);
  DEBUG and print "Title1: <$title>\n";
  $title = '\lang1024\noproof ' . $title
   if $is_obviously_modul <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	316181	316276	
==>\"src/ops/dotgnu.ops\"\n  if({{\@1}} >= 0 && {{\@1}} <= 255 ) {\n    {{\@1}} = (INTVAL)((unsigne <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	8273	8373	
==>ON();
	feedme();
	die "Expecting FOR at $sourceline" unless $syms[CURR] eq "for";
	feedme();
	my $mod <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621761	621853	
==>ILCALL) {\n\t    PObj_get_FLAGS(ccont) &= ~SUB_FLAG_TAILCALL;\n\t    --ctx->recursion_depth;\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29601	29685	
==>ILCALL) {\n\tPObj_get_FLAGS(ccont) &= ~SUB_FLAG_TAILCALL;\n\t--ctx->recursion_depth;\ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	6829	6945	
==>lf->{TOKENS}}, @tokens;
}


#
# slurp_file()
#

sub slurp_file
{
  my $self = shift;
  my ($file) = @_;

  my $fh = F <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2609	2712	
==>("smoke");

  my $id = md5_hex $html;
  if(glob "parrot-smoke-*-$id.html") {
    print "The submitted sm <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2218	2309	
==>stack_depth
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Decrement stac <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3470	3561	
==>stack_depth
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Decrement stac <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2781	2896	
==>"$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$s <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3090	3205	
==>"$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$s <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2885	3000	
==>"$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$s <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	17890	18044	
==>count >= max goto next
#               R or check
#               $matchcount++
#               goto loop
#         back: if $matchcount == 0 goto lastback <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	8582	8688	
==>dscope = $self->{scope};
  $self->{scope} = { '*UP*' => $oldscope };

  my $num = 5;
  my @args = @{_get_ar <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3556	3649	
==>ype, @code)=EXPRESSION({ stuff => "\$X99", choose => 1 });
		push @{$code{$seg}->{code}}, "@co <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Compilers.pm	240	340	
==>Compilers;

=head1 DESCRIPTION

A documentation section describing all compilers in Parrot.

=h <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	1088	1185	
==>tly specified with the
-conf option. You may set any command line option in the file with
the exce <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5729	5824	
==>rom_token(${ASSEMBLY}, ${ARG0})

# If there is a return type, need to supply a ${DEST0}.
${ITEMP <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22295	22397	
==>lf,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  my $temp_0 = $self->_generate($node->{ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22796	22898	
==>lf,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  my $temp_0 = $self->_generate($node->{ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	64506	64604	
==>on of understanding a great deal
more about Perl than they really do. 

Bug reports and other feedb <==
3	/Users/nnunley/parrot/config/init/hints/vms.pm	296	435	
==>NoList/NOANSI_ALIAS/include="./include"},
        perl    => "MCR $^X",
        exe     => "exe"
    );

    {
        local $^W;    # no wa <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	1183	1276	
==>nted but has no C<Parrot_> prefix (or prefix deemed
Parroty enough, like C<PDB_>, C<PF_>, C<PI <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	42263	42361	
==>text = shift;
		$extractor = gen_extract_tagged(@_);
		return $extractor->($text);
	}

(although C< <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1651	1747	
==>er_num}
${INS} = concat " = pop s\n"
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$register_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3361	3457	
==>er_num}
${INS} = concat " = pop s\n"
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$register_ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	12963	13078	
==>e code is Perl5 code
    my @ops = ("# START EMBEDDED CODE");

    # Set up a %MATCH variable
    push @ops, <<'END' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937977	938296	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "join",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938866	939185	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "join",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	7073	7221	
==>t);
    
    if ( defined $name ) 
    {
        $name =~ tr/ /_/;
        
        print {$self->{'output_fh'}} 
            qq(<a name="), esc($nam <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863359	863629	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bytelength",
                  "FLAGS" => ":base_mem" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864250	864520	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bytelength",
                  "FLAGS" => ":base_mem" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	931	1052	
==>=> $props,
    ARGS  => undef,

    DEBUG => 1,
    FILE  => $ident->file,
    LINE  => $ident->line
  }, $class;

  $bloc <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	3831	3926	
==>O): \$(NONGEN_HEADERS) $parent_headers src/pmc/pmc_$pmc.h

    # build list of libraries for lin <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8353	8467	
==>g);

    my @ops = ($self->popop . " <rx_tmp>, <rx_stack> # popindex");
    if ($self->{DEBUG}) {
        push @ops <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	5890	5998	
==>'
    goto continue_2d

  print_newline:
    if newline==0 goto continue_2d
    result .= "\n"

  continue_2d <==
3	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	975	1078	
==>\n";
}

{
  debug "Sending data to smokeserver \"$smokeserv\"... ";
  my $ua = LWP::UserAgent->new;
  $u <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1614	1728	
==>n involves undefined type name!")
    unless defined $type_name;

  #
  # Lookup the identifier:
  #

  my $sym = $ <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2359	2468	
==>E . '/Users/nnunley/parrot/src/pmc' . $PATHQUOTE . " " .
        $source;
};

sub partial_link_cmd {
    my ($ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2154	2263	
==>E . '/Users/nnunley/parrot/src/pmc' . $PATHQUOTE . " " .
        $source;
};

sub partial_link_cmd {
    my ($ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420209	420572	
==>ase_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 483,
                  "AR <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	20019	20129	
==>ge);
    PANIC(c);
    return NULL;
}

TAIL
}

=begin example

This is the template thing

static void pcf_$fun <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	161	259	
==>Functions for manipulating vtables

=head1 SYNOPSIS

    use Parrot::Vtable;

=head1 DESCRIPTION

C <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	25935	26029	
==>ption'}}


# ARGS ARE: $self, $pattern, $left_delim, $modifiers, $lookahead, $linenum
sub new ( <==
3	/Users/nnunley/parrot/config/init/defaults.pm	888	1010	
==>iler -- used to turn .c files into object files.
        # (Usually cc or cl, or something like that.)
        cc      => $ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1168	1252	
==>strict-prototypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wcast-al <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2161	2266	
==>);

	if($$self{DEBUG}) {
		_DBLoad();
		$retval = eval '$self->_DBParse()';#Do not create stab entry o <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2082	2183	
==>);

	if($$self{DEBUG}) {
		_DBLoad();
		$retval = eval '$self->_DBParse()';#Do not create stab entry o <==
3	/Users/nnunley/parrot/lib/Test/More.pm	20740	20837	
==>o nest SKIP blocks.  Each SKIP block must have
the label C<SKIP>, or Test::More can't work its mag <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74041	74211	
==>c",
                              "s"
                            ],
                  "BODY" => "#line 1156 \"src/ops/core.ops\"\n  char * const name = string_to_cstring( <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62686	62804	
==>e subrule match", $aftererror,$line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						subst <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63397	63515	
==>e subrule match", $aftererror,$line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						subst <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	35565	35716	
==>os,
  'tan'              => \&_op_tan,
  'asin'             => \&_op_asin,
  'acos'             => \&_op_acos,
  'atan'             => \&_op_atan,
  'sq <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2142	2231	
==>ndef if unknown
  }
}

#------------------------------------------------------------------ <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2607	2696	
==>ndef if unknown
  }
}

#------------------------------------------------------------------ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679171	679394	
==>->unshift_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679950	680173	
==>->unshift_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213645	214065	
==>S" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 251,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60604	60693	
==>line 914 \"src/ops/core.ops\"\n  PARROT_WARNINGS_off(interpreter, {{\@1}});\n  {{+=2}};\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61254	61343	
==>line 914 \"src/ops/core.ops\"\n  PARROT_WARNINGS_off(interpreter, {{\@1}});\n  {{+=2}};\n" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16314	16418	
==>equire_assign;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->forth);
      my <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17085	17189	
==>equire_assign;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->forth);
      my <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17890	17994	
==>equire_assign;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->forth);
      my <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576616	576942	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subclass",
                  "FLA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577628	577954	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subclass",
                  "FLA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596257	596583	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subclass",
                  "FLA <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	11548	11687	
==>.= "?";
    } elsif ($min == 0 && $max == -1) {
        $base .= "*";
    } elsif ($min == 1 && $max == -1) {
        $base .= "+";
    } el <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042908	1042999	
==>var.ops\"\n    VTABLE_set_pmc_keyed_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043805	1043896	
==>var.ops\"\n    VTABLE_set_pmc_keyed_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4} <==
3	/Users/nnunley/parrot/config/gen/cpu/i386/auto.pm	975	1140	
==>ta->set(
                    "i386_has_$suffix" => '1',
                    "HAS_i386_$suffix" => '1',
                );
                print " (\U$suffix) " if ($v <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10863	10997	
==>$class=ref($class);

    my($self)=$class->SUPER::new( yyversion => '1.05',
                                  yystates =>
[
	{#Sta <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11861	11990	
==>$class=ref($class);

    my($self)=$class->SUPER::new( yyversion => '1.05',
                                  yystates =>
[
	{#Sta <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435199	435497	
==>e",
                  "CODE" => 499,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "nc"
                            ],
                  "BODY" => "#line 89 \"src/ops/math.ops\"\n <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7902	8036	
==>lback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg = value($reg);

    my @ops = ("<rx_tmp> = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	428	534	
==>uct::Expression::Value);

sub new
{
  my $class = shift;
  my ($block, $token) = @_;

  confess "Block is n <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1295	1426	
==>om a line
         [^\n\ ]{0,50}     #  and finish any current word
        )
        \x20{1,10}(?!\n)   # capture some spaces not a <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1239	1370	
==>om a line
         [^\n\ ]{0,50}     #  and finish any current word
        )
        \x20{1,10}(?!\n)   # capture some spaces not a <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	1141	1251	
==>feedme();
	$loop=0;
	while($type[CURR] !~ /COMP|COMM|STMT/) {
		die if $loop++>20;
		$var=$syms[CURR];
		feedme <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2925	3018	
==>ress($address)>

Returns the C code for C<restart ADDRESS($address)>.

=cut

sub restart_addre <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3794	3887	
==>ress($address)>

Returns the C code for C<restart ADDRESS($address)>.

=cut

sub restart_addre <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3524	3617	
==>ress($address)>

Returns the C code for C<restart ADDRESS($address)>.

=cut

sub restart_addre <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	27956	28171	
==>int("-> $desc ENTER\n"),
                       @ops,
                       $self->dbprint(".. $desc NEXT\n"),
           );
}

################################ Main loop #######################

sub rewrite {
    m <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7321	7457	
==>();
         # by now it's safe to consider the previous paragraph as done.
                
        push @$paras, $new; # the new incipi <==
3	/Users/nnunley/parrot/lib/Test/More.pm	29173	29294	
==>omparing undefs.
        local $^W = 0; 

        $Test->_unoverload(\$e1, \$e2);

        # Either they're both reference <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22378	22470	
==>->_generate($node->{children}[1]);
  $return = $self->_constant(1);
  my $temp_1 = $self->_co <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22879	22971	
==>->_generate($node->{children}[1]);
  $return = $self->_constant(1);
  my $temp_1 = $self->_co <==
3	/Users/nnunley/parrot/examples/benchmarks/oo5.pl	258	380	
==>ft;
    if (@_) { $self->[0] = shift } else { $self->[0] }
}

sub j {
    my $self = shift;
    if (@_) { $self->[1] = shif <==
3	/Users/nnunley/parrot/examples/benchmarks/oo6.pl	250	372	
==>ft;
    if (@_) { $self->[0] = shift } else { $self->[0] }
}

sub j {
    my $self = shift;
    if (@_) { $self->[1] = shif <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22027	22125	
==>Jako::Construct::Expression::Value->new($block, $self->require_value);
        $op    = $self->requ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22960	23058	
==>Jako::Construct::Expression::Value->new($block, $self->require_value);
        $op    = $self->requ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24606	24704	
==>Jako::Construct::Expression::Value->new($block, $self->require_value);
        $op    = $self->requ <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	10715	10832	
==>ull_name .": $jit_func $extern\n";
        }
        # *) $1 = $2->vtable->{vtable}(interp, $2)
        elsif ($opbody <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	7779	7885	
==>s iter_one goto loop_one_end
    item_one = shift iter_one 
    inc pos_one
    if item_one != item_two got <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20093	20189	
==>$rfail, $local_back, $back, $check, $next) =
      map { $self->genlabel("ngr_$_") } qw(rfail loc <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Posix.pm	320	437	
==>get_test_prog {
    my $self = shift;
    my ( $count, $options ) = @_;

    my $lang_fn        = Parrot::Test::per_te <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	450	560	
==>get_test_prog {
    my $self = shift;
    my ( $count, $options ) = @_;

    my $lang_fn = Parrot::Test::per_te <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr3.pm	342	452	
==>get_test_prog {
    my $self = shift;
    my ( $count, $options ) = @_;

    my $lang_fn = Parrot::Test::per_te <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29621	29732	
==>tput file we are
generating.

=cut

sub body
{
    my ($self, $method, $line, $out_name) = @_;

    my $meth = $ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30263	30374	
==>tput file we are
generating.

=cut

sub body
{
    my ($self, $method, $line, $out_name) = @_;

    my $meth = $ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7496	7588	
==>short"]
${STEMP0} = concat ${STEMP1}
${STEMP0} = concat "0"
${PARAMS}[0] = ${STEMP0}
${INS} = <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1401	1505	
==>tput_advance {
    my ($self, $distance, $failLabel) = @_;
    $failLabel = $self->output_label_use($fail <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1150	1254	
==>tput_advance {
    my ($self, $distance, $failLabel) = @_;
    $failLabel = $self->output_label_use($fail <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	391	495	
==>tput_advance {
    my ($self, $distance, $failLabel) = @_;
    $failLabel = $self->output_label_use($fail <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818991	819200	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "entrytype",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819950	820159	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "entrytype",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488024	488314	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":bas <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	489417	489707	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":bas <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	16541	16634	
==>.
If no initializer is specified for a particular element, its default
initialization is perfo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368877	369154	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369761	370038	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12300	12426	
==>MT/) {
					push @ld, { type => "STRING", value=> qq{"$s"}};
					last OUTDATA;
				}
				$s.=$syms[CURR];
			}
		} else {
			d <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	3510	3641	
==>212"] =  "    %1 = neg %1"      # negate
    $P0[unicode:"monadic:\u2308"] =  <<"END_PIR"            # ceiling
    $N100 = %1
    $I <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	3975	4072	
==>y's value in the configuration system's data,
and writes the results to specified target file.

=c <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Ops.pm	178	271	
==>Parrot ops documentation section

=head1 SYNOPSIS

	use Parrot::Docs::Section::Ops;

=head1 DE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685855	686175	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "getprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686744	687064	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "getprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	332	417	
==>rated by F<config/gen/makefiles.pm> from
F<config/gen/makefiles/dynopslibs_pl.in>.  Th <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9169	9270	
==>x_stack>[-1\] # peekindex",
            "eq <rx_tmp>, -1, ".$self->output_label_use($fallback)." # was <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	807	899	
==>C     ((size_t)(cur_opcode - interpreter->code->base.data))
#define CUR_OPCODE cur_opcode
#de <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	923	1015	
==>C     ((size_t)(cur_opcode - interpreter->code->base.data))
#define CUR_OPCODE cur_opcode
#de <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27627	27734	
==>. ($self->{"lookahead"}<0?'if':'unless')
		. ' ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and '
		. ($check- <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29737	29844	
==>. ($self->{"lookahead"}<0?'if':'unless')
		. ' ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and '
		. ($check- <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31834	31941	
==>. ($self->{"lookahead"}<0?'if':'unless')
		. ' ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and '
		. ($check- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1156	1263	
==>E  => $dest->line
  }, $class;

  $block->push_content($self);

  return $self;
}

sub dest  { return shift- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1147	1254	
==>E  => $dest->line
  }, $class;

  $block->push_content($self);

  return $self;
}

sub dest  { return shift- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1036	1143	
==>E  => $dest->line
  }, $class;

  $block->push_content($self);

  return $self;
}

sub dest  { return shift- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931320	931563	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932090	932333	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	18544	18661	
==>->[1]{'start_line'},
          "=begin without a target?"
        );
        DEBUG and print "Ignoring targetless =beg <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	10689	10807	
==>(long)GET_NCI_I($reg_num);";
        return "t_$temp_num";
    };
    /I/ && do {
        push @{$temps_ref}, "INTVAL t <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	7242	7350	
==>pmc __name__
    __name__ = new $DEFVAR
    __name__ = '__main__'
    global '__name__' = __name__
    .local <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4804	4899	
==>re)>

This gives you an array of C<Parrot::IO::File> instances.

Set C<$recursive> to true if yo <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	766	859	
==>PullParserToken> and inherits all its methods,
and adds these methods:

=over

=item $token->t <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1192	1285	
==>PullParserToken> and inherits all its methods,
and adds these methods:

=over

=item $token->t <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	672	765	
==>PullParserToken> and inherits all its methods,
and adds these methods:

=over

=item $token->t <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	360	468	
==>')
    ; # tolerate getting it backwards
    
    unless( defined $variable and ref($variable) eq 'SCALAR') { <==
3	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	955	1054	
==>ble).
# See docs/submissions.pod on how to recreate this file after SVN
# has been told about new ge <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3810	3909	
==>ble).
# See docs/submissions.pod on how to recreate this file after SVN
# has been told about new ge <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471061	471208	
==>"i"
                            ],
                  "BODY" => "#line 394 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472048	472195	
==>"i"
                            ],
                  "BODY" => "#line 394 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    re <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	6113	6208	
==>esult, 1.0
	eq $a1, $ot1, EQ_${eqnum}_end
	ne $a2, $ot2, EQ_${eqnum}_end
	set $result, 0.0
EQ_${ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	9795	9927	
==>t->{type}   = 'todo';
    }
    else {
        $result->{reason} = '';
        $result->{type}   = '';
    }

    $self->{Test_Result <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21963	22066	
==>b isterminal { 0 }
sub describe { $_[1] ? '' : $_[0]->{name} } 

sub new ($$$$$)
{
	my $class = ref($_[0 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	10356	10451	
==>kind eq 'until') {
        $loop = Jako::Construct::Block::Loop::Until->new($block, $prefix, $le <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100764	101077	
==>",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 125,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 125 \ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807845	807934	
==>=> "#line 502 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808750	808839	
==>=> "#line 502 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123821	123917	
==>BODY" => "#line 257 \"src/ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124695	124791	
==>BODY" => "#line 257 \"src/ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125569	125665	
==>BODY" => "#line 257 \"src/ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{ <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	18451	18555	
==>$tos = pop @stack;
	my $n = temp($tos->[2]);
	print <<EOC;
	$n = not $tos->[1] $cmt
EOC
	push @stack, [-1 <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23375	23468	
==>>_generate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp = $self->_gen <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23837	23930	
==>>_generate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp = $self->_gen <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435368	435535	
==>p",
                              "nc"
                            ],
                  "BODY" => "#line 89 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	774	870	
==>onfess "Type (" . ref($type) . ") is not!"   if defined $type and not UNIVERSAL::isa($type, qw(Ja <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	657	750	
==>onfess "Type (". ref($type) . ") is not!" if defined $type and not UNIVERSAL::isa($type, qw(Ja <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912465	912901	
==>RGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1028,
                  "ARGS" => [
                              "i",
                              "s",
                              "s",
                              "i <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4274	4403	
==>le:$function"}++ 
                  unless ($variable_visible{$file}{$1} || 
                          $variable_visible{ALL}{$1}) <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4539	4666	
==>le:$function"}++
                  unless ($variable_visible{$file}{$1} ||
                          $variable_visible{ALL}{$1}) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813972	814211	
==>LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814594	814833	
==>LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	815222	815461	
==>LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88756	89051	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89493	89788	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "T <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18572	18672	
==>e {
		feedme();   # Special "Return Label"
		push @{$code{$seg}->{code}}, <<RETURN2;
	JUMPLABEL= "$la <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	1748	1862	
==>lumn, it's not a func
    @funcs = grep /^\S/, @funcs;

    # Typedefs and structs are no good
    @funcs = grep !/ <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	168	263	
==>alarmingly similar to the generated subs in Parrot::Test.
Perhaps someone can do a better job of <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	266	361	
==>alarmingly similar to the generated subs in Parrot::Test.
Perhaps someone can do a better job of <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934060	934202	
==>ng.ops\"\n  {{\@1}} = string_downcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934835	934977	
==>ng.ops\"\n  {{\@1}} = string_downcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	6098	6199	
==>ng' if $Long; 
die "$ME: --type=$Type unknown\n"
    if defined $Type && $Type ne '' && !exists $Type{ <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	8689	8865	
==>>{optional}) {
                $usage = "?$usage $usage ...?";
            } else {
                $usage = "$usage ?$usage ...?";
            }
        } else {
            $u <==
3	/Users/nnunley/parrot/tools/dev/as2c.pl	933	1060	
==>src) = ($1, $2);
	    $src =~ s/\t/ /g;
	    my $len = length($bytes);
	    my @pairs = ($bytes =~ m/../g);
	    print "    ". j <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	2075	2175	
==>ngs finer to start with, and work at it.

In a saucepan set over moderate heat, warm the oil until ho <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1849	1955	
==>@formal_args == @args;

  for (my $i = 0; $i < @args; $i++) {
    my ($formal_arg_type, $formal_arg_name) = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1549	1655	
==>@formal_args == @args;

  for (my $i = 0; $i < @args; $i++) {
    my ($formal_arg_type, $formal_arg_name) = <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	64458	64555	
==>e, if
only because parts of it give the impression of understanding a great deal
more about Perl t <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	20025	20146	
==>es in rule $_->{'name'}\n";
        }
    }

    # If we have 3 or less rules, dispatch directly to the translator.
    if <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	46925	47032	
==>rror,$line);
			$lookahead = $lookahead ? -$lookahead : -1;
			$lookaheadspec .= $1;
			next;	# SKIP LOOKAHE <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	18194	18291	
==>ens
from yet:

=over

=item my $title_string = $parser->get_title

This tries to get the title str <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17182	17332	
==>@opcodes, new LocalDir( $parser,
                    'result' => $result,
                );
                push @opcodes, new KeyedGetOp( $parser, <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18219	18333	
==>@opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new KeyedGetOp( $parser, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3334	3432	
==>=> 'cond', Attributes => { kind => $kind } });
    $handler->start_element({ Name => 'block', Attri <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1862	1982	
==>t override the user even if the program they provided appears to be
    # broken
    if ($ret == -1 and !$conf->options-> <==
3	/Users/nnunley/parrot/config/inter/make.pm	1736	1856	
==>t override the user even if the program they provided appears to be
    # broken
    if ($ret == -1 and !$conf->options-> <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1876	1996	
==>t override the user even if the program they provided appears to be
    # broken
    if ($ret == -1 and !$conf->options-> <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24098	24212	
==>'exp' => 128,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'p <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	53532	53627	
==>r C<undef>), split continues as long as possible.

If the third argument is I<N>, then extractio <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712304	712399	
==>s/python.ops\"\n  PMC * const io = PIO_STDOUT(interpreter);\n  STRING *s;\n  if (PIO_softspace(i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713411	713506	
==>s/python.ops\"\n  PMC * const io = PIO_STDOUT(interpreter);\n  STRING *s;\n  if (PIO_softspace(i <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1747	1853	
==>dex>.

=cut

sub arg
{
    my $self = shift;

    return $self->{ARGS}[shift];
}

=item C<goto_address($add <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1362	1468	
==>dex>.

=cut

sub arg
{
    my $self = shift;

    return $self->{ARGS}[shift];
}

=item C<goto_address($add <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	10929	11035	
==>ally unexpected error setting up encoding $e: $@\nAborting"
    );

  } else {
    my @supported = Pod::Sim <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	50556	50674	
==>le end-code
        DEBUG > 4 and print " It's indeed an end-code.\n";

        if(length($4) == 2) { # There was a spa <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	5477	5580	
==>, :$depends);
}

sub pass (Str $desc?) returns Bool is export {
    Test::proclaim(1, $desc);
}

sub flu <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	7556	7668	
==>sh @to_unget, $self->get_token;
          pop(@to_unget), last unless defined $to_unget[-1];
           # Erroneo <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	9423	9542	
==>$out .= " $self->{Curr_Test}" if $self->use_numbers;

    if( defined $name ) {
        $name =~ s|#|\\#|g;     # # in a <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	10262	10368	
==>.param $type $reg";
}


sub output_return {
    my ($self, $rettype, $retval) = @_;
    $retval = value($re <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	17909	18012	
==>($version)>

=item C<version()>

Sets/gets the version number.

=cut

sub version
{
    my $self = shift <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	33961	34220	
==>ter, {{\@1}}, (CUR_OPCODE + {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4996	5115	
==>iler->emit("  global \"$dest_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3059	3178	
==>iler->emit("  global \"$dest_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578002	578360	
==>GDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 660,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 28 <==
3	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	995	1097	
==>to recreate this file after SVN
# has been told about new generated files.
# 
# Ignore the SVN director <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3850	3951	
==>to recreate this file after SVN
# has been told about new generated files.
#
# Ignore the SVN director <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8465	8576	
==>shift;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the store.
	# Otherwise, t <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6285	6396	
==>shift;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the store.
	# Otherwise, t <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5200	5311	
==>shift;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the store.
	# Otherwise, t <==
3	/Users/nnunley/parrot/config/init/defaults.pm	1008	1113	
==>> $Config{cc},
        ccflags => $Config{ccflags},
        ccwarn  => exists($Config{ccwarn}) ? $Config{c <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9697	9800	
==>DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Dicard invalid token ".&$ShowCurToken.".\n";

			$$to <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9260	9360	
==>DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Dicard invalid token ".&$ShowCurToken.".\n";

			$$to <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	16077	16257	
==>APLVector') {
               $vector = "op1";
               $scalar = "op2";
			   @order = qw/ $P1 $P2 /;
           } else {
               $vector = "op2";
               $scala <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	22532	22648	
==>msg .= "\n" unless $msg =~ /\n\Z/;

    local $Level = $Level + 1;
    $self->_print_diag($msg);

    return 0;
}

=b <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	174	256	
==>t/languages/jako/lib/Jako/Construct/Label.pm 19606 2006-05-30T15:08:05.048089Z coke <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	14202	14309	
==>elated stuff.
    $pir .= <<'PIRCODE';
    # Look through exception handlers.
    if null ehs goto END_EH_LO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954226	954333	
==>,
                  "BODY" => "#line 571 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_encoding_number_of_str(i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955017	955124	
==>,
                  "BODY" => "#line 571 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_encoding_number_of_str(i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404714	405024	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socka <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405626	405936	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socka <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406538	406848	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socka <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	14869	14997	
==>truct( rusage => {
        ru_utime => timeval,  # seconds
        ru_stime => timeval,  # microseconds
    });

    struct( time <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15347	15467	
==>rarg {
    my ($parser) = @_;
    my $result;
    my @opcodes = ();
    my $nil = BuildLiteral( $parser, 'nil', 'nil' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	43363	43477	
==>s) {
      DEBUG > 5 and print "  It's a formatty line.  ",
       "Peeking at previous line ", $i-1, ": $$p[$i-1]: <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	5179	5274	
==><"END";
#!/usr/bin/perl

use strict;
use lib qw(tcl/lib ./lib ../lib ../../lib ../../../lib);
us <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30386	30487	
==>t::_tracefirst($text))
							if defined $::RD_TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse:: <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32586	32687	
==>t::_tracefirst($text))
							if defined $::RD_TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse:: <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28311	28411	
==>t::_tracefirst($text))
					if defined $::RD_TRACE;').'

			last;
		}'.($::RD_NO_TRACE?'':'
		Parse:: <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5549	5647	
==>${STEMP1}

${INS} = concat ${STEMP0}
${INS} = concat " = "
${INS} = concat ${LOADREG}
${INS} = conc <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	8394	8483	
==>ot::OpTrans>

=item F<tools/build/ops2c.pl>

=item F<tools/build/ops2pm.pl>

=item F<tools <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	19178	19267	
==>ot::OpTrans>

=item F<tools/build/ops2c.pl>

=item F<tools/build/ops2pm.pl>

=item F<tools <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	438	549	
==>t_fh'}} "\n"  unless $_[1] =~ m/^[A-Z]$/s;
  return;
}

sub _handle_text {
  if( chr(65) eq 'A' ) {     # in ASC <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	490	594	
==>ass of Parrot::Test::M4.
XXX: Do not configure with environment variables.

=cut

sub new {
    return $E <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	11511	11609	
==>}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::IO::File>

=item C<Parrot::IO::Path>

=back

=c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592154	592575	
==>> [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 672,
                  "ARGS" => [
                              "p",
                              "kc",
                              "k"
                            ],
                  "BODY" => "#li <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	152	250	
==>ME

examples/mops/mops.c - Calculate M ops/s

=head1 SYNOPSIS

    % perl examples/mops/mops.pl

=h <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	148	246	
==>ME

examples/mops/mops.c - Calculate M ops/s

=head1 SYNOPSIS

    % perl examples/mops/mops.pl

=h <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	9767	9876	
==>$parapos }
	else		      { $parapos = pos($$textref) }

	return (
		$startpos,    $opentagpos-$startpos,		# PRE <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	26539	26646	
==>ailure. So this threads all the
# fallback points together.
sub rewrite_seq {
    my $self = shift;
    my $ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	2678	2773	
==>= @_;
  $self->_add_inst ('','store_lex',["\"$symbol\"",$value]);
}

sub _new_lex {
  my ($self, <==
3	/Users/nnunley/parrot/lib/Test/More.pm	203	309	
==>is
# actually happened.
sub _carp {
    my($file, $line) = (caller(1))[1,2];
    warn @_, " at $file line $ <==
3	/Users/nnunley/parrot/config/auto/jit.pm	239	337	
==>ing system, and whether there is JIT
capability available.

=cut

package auto::jit;

use strict;
u <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11547	11644	
==>D_${CURIC}

# Do we have anything on the lazy moves stack?
${ITEMP0} = elements lazy_moves
if ${IT <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	3907	4042	
==>ng.Design
            System.Drawing
            System.EnterpriseServices
            System.Management
            System.Messagin <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	6088	6180	
==>irective(1 + 1 + count_newlines($output), $file);
}

=item C<get_vtable_section()>

Creates a <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	1823	1912	
==>cted, $description)> or C<output_is($code, $expected, $description)>

Runs the Parrot Asse <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	1625	1740	
==>pe to
			uevent unlock until using
			view
			wait while wend width window write
			keys
		);

sub dumpq {
	print "U <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	94	200	
==>pl 20350 2006-06-25T03:57:27.771662Z petdance  $

=head1 NAME

tools/build/ops2pm.pl - Generate Perl module <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	3400	3502	
==>r versions will work but obviously not sorted
{
    my $dd_version;
    if ($Data::Dumper::VERSION =~ / <==
3	/Users/nnunley/parrot/tools/dev/as2c.pl	595	713	
==>y $s = shift;
    open IN, "<$s" or die "Can't read '$s': $1";
    my ($in_comment);
    $in_comment = 1;
    print "/* <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10463	10563	
==>rors are also directed to
F<test.out>.

=cut

sub cc_run_capture
{
    my $exe   = $conf->data->get(' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12356	12450	
==>if ($token->is_ident and $self->get(1)->is_bit_assign) {
      my $block = $self->current_block <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	75077	75199	
==><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                       $errortext
.

select ERROR;
$| = 1;

# TRACING

my $tracemsg;
my $tra <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	11004	11123	
==>CKTRACK", "\\n";);
        push @ops, qq(print "INPUT:\$rx_input\\n";);
        push @ops, qq(print "      " . (" " x \$ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	15285	15393	
==>th> with and HTML file suffix added.

=cut

sub append_html_suffix
{
    my $self = shift;
    my $path = shi <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1620	1721	
==>{ unlink $meth } } # JMG
    }
}

1;

my $urmc = "$PConfig{perl} $FindBin::RealBin$PConfig{slash}..$PC <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	4457	4554	
==>|...) -> a opt(R|S) | opt(T|...)
        my $leftovers = $self->pass1(rop('alternate', \@children) <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	62137	62226	
==>xtract_quotelike> or C<extract_codeblock> found one of the
quotelike operators C<q>, C<qq> <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	103	206	
==>::Simple::PullParserToken');
use strict;

sub new {  # Class->new(text);
  my $class = shift;
  return b <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	14032	14133	
==>e($file->path);
    
    return $string;
}

=item C<write_html($source, $target, $rel_path, $item)>

W <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878718	879142	
==>,
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 996,
                  "ARGS" => [
                              "s",
                              "s",
                              "i", <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30638	30756	
==>oncat dest0
gen_pir = concat "\\n"
$label:
PIR
        }

		# Finally, call post_load and append code it generates.
		m <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	516	623	
==>st + 1;

    my $lang_f    = Parrot::Test::per_test('.p1',$count);
    my $out_f     = Parrot::Test::per_tes <==
3	/Users/nnunley/parrot/config/auto/signal.pm	1839	1948	
==>cally by config/auto/signal.pm
#
# Any changes made here will be lost.
#
EOF
    use Config;
    my ($i, $name <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054297	1054390	
==>e_t * next;\n    if (PMC_IS_NULL({{\@2}}))\n\tinternal_exception(1, \"Tried to get from null n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055424	1055517	
==>e_t * next;\n    if (PMC_IS_NULL({{\@2}}))\n\tinternal_exception(1, \"Tried to get from null n <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3477	3589	
==>(  # should never happen
    (defined $to and length $to) or
    (defined $section and length $section)
  );

  i <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39742	39836	
==>op_write,
  'display' => \&_op_display,
  'newline' => \&_op_newline,
  'write-char' => \&_op_w <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6043	6198	
==>."\n";
			};

            $act=   exists($$actions{ACTIONS}{$$token})
                    ?   $$actions{ACTIONS}{$$token}
                    :   exist <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5758	5908	
==>."\n";
			};

            $act=   exists($$actions{ACTIONS}{$$token})
                    ?   $$actions{ACTIONS}{$$token}
                    :   exist <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1442	1542	
==>");

  my $sym = $self->block->find_symbol($name);

  unless ($sym) {
#    $self->block->dump_symbols <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684073	684391	
==>{
                  "JUMP" => 0,
                  "NAME" => "setprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684967	685285	
==>{
                  "JUMP" => 0,
                  "NAME" => "setprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	13846	13975	
==>EOC;
	# $cmt
EOC
    }
}

sub YIELD_VALUE
{
    my ($n, $c, $cmt) = @_;
    my $tos = promote(pop @stack);
    print <<EOC;
    	. <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41817	41937	
==>ribe
						  . ']>>},
						  Parse::RecDescent::_tracefirst($text),
						  q{' . $rule->{"name"} .'})
							if defined <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	875	992	
==>elf->run; # define run() in a subclass if you want to use filter()!
  return $self;
}

# - - - - - - - - - - - - - - - <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38126	38238	
==>ribe . ']>>},
						  Parse::RecDescent::_tracefirst($text),
						  q{' . $rule->{"name"} .'})
							if defined <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1439	1545	
==>AS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT = qq[];

# Here comes some stuff for Win32.
our $PATHQ <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1484	1590	
==>AS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT = qq[];

# Here comes some stuff for Win32.
our $PATHQ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1488	1594	
==>AS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT = qq[];

# Here comes some stuff for Win32.
our $PATHQ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	1388	1538	
==>tx} = $ctx;

    my @r;
    my $label = '';
    for my $op (@$ops) {
        die $op if ! ref $op;

        if ($op->{name} eq 'LABEL') {
            $ <==
3	/Users/nnunley/parrot/config/init/defaults.pm	5245	5389	
==>},
        rpath         => '',
        make          => $Config{make},
        make_set_make => $Config{make_set_make},
        make_and      => <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	20191	20325	
==>c};

        # Get copy of name without extension.
        $pmcname = $pmcfilename;
        $pmcname =~ s/\.pmc$//;

        # Locate . <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2236	2330	
==>e done about that.
  }
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2339	2433	
==>e done about that.
  }
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227847	228175	
==>base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 266,
                  "ARGS" => [
                              "p", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828809	828899	
==>ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_pmc(entry->entry) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829877	829967	
==>ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_pmc(entry->entry) <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49087	49194	
==>$grammar =~ m/\G\s*<[^m]/gc)
		{
			pos($grammar)-=2;

			if ($grammar =~ m/$OPMK/gco)
			{
				_parse("a $1 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	40520	40627	
==>g data treatment...\n";
        $para->[1]{'xml:space'} = 'preserve';
        push @$para, join "\n", splice <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28868	28966	
==>sub issubrule { undef }
sub isterminal { 1 }
sub describe ($) { shift->{'description'} }

sub new ( <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30948	31046	
==>sub issubrule { undef }
sub isterminal { 1 }
sub describe ($) { shift->{'description'} }

sub new ( <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	1144	1238	
==>$self->SUPER::new(
		'PMCs', 'pmc.html', 
		'PMCs are Parrot\'s internal "classes". There are c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017964	1018057	
==>t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_gmtime_r(&t, &tm);\n  Parrot_asctime <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018889	1018982	
==>t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_gmtime_r(&t, &tm);\n  Parrot_asctime <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	15871	15997	
==>ted, $desc );
            $builder->diag("'$cmd' failed with exit code $exit_code")
                  if $exit_code and not $pa <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	18422	18548	
==>ted, $desc );
            $builder->diag("'$cmd' failed with exit code $exit_code")
                  if $exit_code and not $pa <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	25465	25572	
==>ted, $desc);
            $builder->diag("'$cmd' failed with exit code $exit_code") if $exit_code and not $pa <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	2112	2218	
==>lf = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'ident', Attributes => { name => $se <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	227	317	
==>se Parrot::Docs::Section::IMCC;

=head1 DESCRIPTION

A documentation section describing IMC <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	1665	1803	
==>decls = @{shift()};
        _usage_error() if @_;
    }
    else {
        $base_type = 'ARRAY';
        $class = (caller())[0];
        @d <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1537	1668	
==>ERRST => \$errst,
                NBERR => \$nberr,
				TOKEN => \$token,
				VALUE => \$value,
				DOTPOS => \$dotpos,
				STA <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1485	1611	
==>ERRST => \$errst,
                NBERR => \$nberr,
				TOKEN => \$token,
				VALUE => \$value,
				DOTPOS => \$dotpos,
				STA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627315	627415	
==>nuation PMC\n   * needs to be in the destination register before its init method\n   * copies the reg <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628459	628559	
==>nuation PMC\n   * needs to be in the destination register before its init method\n   * copies the reg <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	6242	6354	
==>else {
      die "What source??";
    }
  }
  DEBUG and print "get_token about to return ",
   Pod::Simple::prett <==
3	/Users/nnunley/parrot/config/inter/make.pm	1225	1335	
==>data->set($util => $prog);
        $self->set_result('yes');
    } else {
        $prog = check_progs(['gmake', <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	8116	8202	
==>o post_call_HAS_RETURN_${CURIC}
if "${CURIC}" == "73" goto post_call_HAS_RETURN_${CURIC <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320010	320232	
==>1}} = (INTVAL)((Parrot_Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320780	321002	
==>1}} = (INTVAL)((Parrot_Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	9173	9285	
==>de, $code_f) = @_;

    open my $CODE, '>', $code_f or die "Unable to open '$code_f'";
    binmode $CODE;
    pri <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2499	2598	
==>OP_set_args_pc
     * (gdb) disas l_ops_addr[1191] l_ops_addr[1192]
     */
#if defined(__GNUC__) && <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4197	4291	
==>ext>, L<Pod::Checker>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	3262	3365	
==>l => $curlabel, code => $stmt };
	    $labels{$curlabel->{label}} = $output2[-1] if $curlabel;
	    unde <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3351	3452	
==>utes => { kind => $kind } });
    $handler->start_element({ Name => 'block', Attributes => { kind => ' <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10837	10954	
==>lse {
        _run_command(".${slash}test${exe}", './test.out', './test.out',
            $verbose);
    }

    my $ou <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7496	7611	
==>mand\n";
    }

    # Mostly copied from Parrot::Test.pm
    foreach ($out, $err) {
        $_ = File::Spec->devnull <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	2717	2818	
==>arnings instead of using
confess() and warn().

=cut

sub set_symbol
{
  my $self = shift; # Required: <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	6109	6234	
==>)
        {
            push @rel_paths, $source->relative_path($file->path);
        }
    }
    elsif ( $source->relative_pa <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5982	6099	
==>1
#DBG>			and	print STDERR "Need token. Got ".&$ShowCurToken."\n";
			};

            $act=   exists($$actions{ACT <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5698	5811	
==>1
#DBG>			and	print STDERR "Need token. Got ".&$ShowCurToken."\n";
			};

            $act=   exists($$actions{ACT <==
3	/Users/nnunley/parrot/lib/File/Which.pm	4434	4529	
==>ed C<PATHEXT>, which is used
by the shell to look for executable files. Usually, it will contain <==
3	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	819	914	
==>re properties
# of the directories in the Parrot subversion repository. (Needed for
# distributi <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3674	3769	
==>re properties
# of the directories in the Parrot subversion repository. (Needed for
# distributi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126721	127055	
==>AL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127856	128190	
==>AL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128991	129325	
==>AL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3531	3655	
==>oup --c " . join(" ",@pmcfiles))
              or die "pmc2c library creation failed ($?)\n";
        }
    }
} 
elsif ($mode <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3635	3759	
==>oup --c " . join(" ",@pmcfiles))
              or die "pmc2c library creation failed ($?)\n";
        }
    }
} 
elsif ($mode <==
3	/Users/nnunley/parrot/config/inter/make.pm	66	155	
==>fig/inter/make.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/make <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238100	238369	
==>"TYPE" => "inline",
                  "CODE" => 277,
                  "ARGS" => [
                              "i",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 606 \"src/ops/cm <==
3	/Users/nnunley/parrot/config/auto/signal.pm	568	688	
==>->data->set(
        has___sighandler_t => undef,
        has_sigatomic_t    => undef,
        has_sigaction      => unde <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	1169	1271	
==>y $type (keys %regs) {
    for my $count (0..31) {
      $self->_add_inst ('', 'save', ["$type$count"]) <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	14513	14611	
==>ructor.

See Example 3 below for an example of initialization.

=head1 EXAMPLES

=over 4

=item Exa <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	3509	3663	
==>st_val++;
                    $values{$1} = $last_val;
                    local $_ = "$prefix$1\t$last_val";
                    eval $subst if ($subst ne <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	2486	2614	
==>> '#',
        replace_slashes               => 1
    );
    genfile(
        'config/gen/makefiles/dynpmc.in' => 'src/dynpmc/Mak <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	1666	1794	
==>ss_lib_make = generate_classlib_make($mono_lib_path);
	
	# Read in makefile template.
	my $fh;
	open $fh, "< config/Makefile. <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	46699	46847	
==>. . . . . . . . . . . . . . . . . . . . . . . . . . .
# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
#================ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	46745	46870	
==>. . . .
# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
#======================================= <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	46793	46893	
==>. . . . . . . . . . . . . . . . . . .
#============================================================== <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3508	3623	
==>[$expl, $body, $out];
    }

    return %tests;
}

##
## $preamble = extract_preamble($string)
##
## Extract the pre <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34823	34918	
==>fined $::RD_TRACE;').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDescent::fa <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41933	42028	
==>fined $::RD_TRACE;').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDescent::fa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	268513	268737	
==>{\@1}} = !VTABLE_get_bool(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	4713	4835	
==>my $arg (@{ $t->{args} }) {
            if (UNIVERSAL::isa($arg, 'Regex::Ops::Tree')) {
                # $arg is a referen <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	10063	10185	
==>my $arg (@{ $t->{args} }) {
            if (UNIVERSAL::isa($arg, 'Regex::Ops::Tree')) {
                # $arg is a referen <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2457	2602	
==>t::run_command(
            \@test_prog,
            CD     => $self->{relpath},
            STDOUT => $lua_out_fn,
            STDERR => $lua <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3462	3618	
==>r {
    my($self)=shift;

	$$self{LEX};
}


#################
# Private stuff #
#################


sub _CheckParams {
	my($mandatory,$checklist <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3287	3430	
==>r {
    my($self)=shift;

	$$self{LEX};
}


#################
# Private stuff #
#################


sub _CheckParams {
	my($mandatory,$checklist <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4868	4992	
==>xc);
        my $last = shift(@$incexc);
        if (defined($last)) {
            push @ops, "goto $fail if <rx_tmp> < $firs <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10214	10329	
==>0x10
#DBG>		and	print STDERR "**No state left on stack: aborting.\n";

			return(undef);
		};

		#shift the er <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9755	9864	
==>0x10
#DBG>		and	print STDERR "**No state left on stack: aborting.\n";

			return(undef);
		};

		#shift the er <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	4940	5063	
==>xt;
    }

    if ($text =~ m{^( \| | & | << | >> )(.*)$}x) {
      push @tokens, Jako::Token->new(
        $file, $line, 'i <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Transcode.pm	414	525	
==>class;";
  if($@) {
    DEBUG and print "Couldn't load $class: $@\n";
  } else {
    DEBUG and print "OK, loaded <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	633	724	
==>ooX.dump files, also create libfoo.c
containing the initialization function for all fooX PMC <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	7120	7225	
==>m.c")) {
        run(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c fai <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5414	5519	
==>m.c")) {
        run(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c fai <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7331	7436	
==>m.c")) {
        run(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c fai <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735157	735322	
==>],
                  "BODY" => "#line 139 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735893	736058	
==>],
                  "BODY" => "#line 139 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6527	6638	
==>e::Identifier->new($block, $self->require_ident);
        push @identifiers, $ident;
        last unless $self-> <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3116	3235	
==>to main
                   'program - only to SUB1.
' Exit tests
sub mysub(b,c)
	print "Print me"
	exit sub
	print "Don' <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17083	17202	
==>to main
                   'program - only to SUB1.
' Exit tests
sub mysub(b,c)
	print "Print me"
	exit sub
	print "Don' <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	3448	3545	
==>arents($pmc));
        $TEMP_pmc_build .= <<END
src/pmc/$pmc.c : src/pmc/$pmc.dump
	\$(PMC2CC) src <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	28439	28545	
==>lo {
}

sub _op_gcd {
}

sub _op_lcm {
}

sub _op_numerator {
}

sub _op_denominator {
}

sub _op_floor {
} <==
3	/Users/nnunley/parrot/config/auto/headers.pm	2174	2279	
==>ers => join('', map { "#include <$_>\n" } @$use_headers));
            $conf->data->set(testheader  => $he <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	31069	31167	
==>ecks to make sure reality came
through ok.  If anything is wrong it will die with a fairly friendly <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	974	1089	
==>tion. TODO: Need a more generalized way for finding
    # where Fink lives.
    if ($osname =~ /darwin/) {
        i <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	1173	1288	
==>tion. TODO: Need a more generalized way for finding
    # where Fink lives.
    if ($osname =~ /darwin/) {
        i <==
3	/Users/nnunley/parrot/config/auto/readline.pm	1248	1363	
==>tion. TODO: Need a more generalized way for finding
    # where Fink lives.
    if ($osname =~ /darwin/) {
        i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2517	2641	
==>nd;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  if (defined $cond) {
    $handler->sta <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3191	3315	
==>nd;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  if (defined $cond) {
    $handler->sta <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3281	3405	
==>nd;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  if (defined $cond) {
    $handler->sta <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	32311	32423	
==>{
			'exp' => 100,
			'functioncall' => 31,
			'explist1' => 158,
			'function' => 26,
			'tableconstructor' <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	1701	1800	
==>s qw( %usertypes );
use vars qw( $funcname );
use vars qw( $branchseq @selects $sourceline );
sub pa <==
3	/Users/nnunley/parrot/lib/Parrot/PMC.pm	406	503	
==>11,
	VtableCache => 12,
	ParrotIO => 13,
	ParrotLibrary => 14,
	ConstParrotLibrary => 15,
	ParrotI <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5487	5588	
==>[0]',$item]);
      $self->_add_inst ('', 'set', [$pair.'[1]',$return]);
      $self->_add_inst ('', ' <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17037	17133	
==>[0]',$item]);
    $self->_add_inst ('', 'set',[$pair.'[1]',$return]);
    $self->_add_inst ('', ' <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6526	6617	
==>[0]',$item]);
  $self->_add_inst('', 'set', [$pair.'[1]',$return]);
  $self->_add_inst('', ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065183	1065300	
==>mc_keyed_str(interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066057	1066174	
==>mc_keyed_str(interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	5231	5331	
==>out the problems I was having writing some really
complicated feature into the new Testing module.  H <==
3	/Users/nnunley/parrot/languages/converter.pl	2204	2305	
==>e = $ARGV[0];
my @lines;
my @rules;

open FILE,$file or die "Couldn't open '$file': $!";
@lines = <FIL <==
3	/Users/nnunley/parrot/config/auto/bc.pm	1283	1390	
==>_gnu_bc = 0;
    }

    $conf->data->set(has_gnu_bc => $has_gnu_bc);
    $self->set_result($has_gnu_bc ? 'ye <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	18844	18939	
==>pos() if $parser->{_check}{itempos};

		$code .= $item->code($namespace,$rule,$parser->{_check}) <==
3	/Users/nnunley/parrot/config/init/optimize.pm	58	147	
==>rrot/config/init/optimize.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

confi <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37031	37135	
==>ts
{
    my ($self, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<trans($type)>

Used in C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	30805	30907	
==>->ctx);\n    ccont = ctx->current_cont;\n\n    if (PMC_cont(ccont)->address) {\n\t/* else its from runo <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	22977	23075	
==>]
	P2= P1["USER"]
	bsr DIM_$type
	P1 = new .PerlHash
	P1["_type"]= '$type'
	P1["type"]= "USER"
	P1[ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29690	29779	
==>tx->caller_ctx = caller_ctx->caller_ctx;\n\t/* ordinarily, this will free the context imme <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	40778	40902	
==>e]
        );
        DEBUG > 3 and print "L-section content: ", pretty($ell->[1]{'section'}), "\n";
      }

      if( @ell_ <==
3	/Users/nnunley/parrot/config/init/defaults.pm	5420	5523	
==>and to emulate GNU make's C<-C directory> option:  chdir
        # to C<directory> before executing $(MA <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	4790	4893	
==>le::Spec->catdir($options{docdir}, $dest);
    } elsif ($meta{pkgconfig}) {
        # For the time being <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	3677	3825	
==>_channel',
        expr    => '__expr',
        int     => '__integer',
        list    => '__list',
        script  => '__script',
        var     = <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	4351	4499	
==>_channel',
        expr    => '__expr',
        int     => '__integer',
        list    => '__list',
        script  => '__script',
        var     = <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9809	9932	
==>rgs =~ m/\S/) {
        return "INTERP, SELF, $args";
    } else {
        return "INTERP, SELF";
    }
}

=item C<proto($ty <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129277	129552	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130015	130290	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ] <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	757	862	
==>turn "match '$byte'";
}

sub output_classmatch {
    my ($class) = @_;
    return "classmatch '$class'";
} <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	14363	14515	
==>bc don't make sense
                return $builder->skip( "no native tests with -r" );
            }

            my ( $exit_code, $cmd );
            u <==
3	/Users/nnunley/parrot/config/init/hints/solaris.pm	3172	3306	
==>t.
    my $solaris_ieee_cb = sub {
        my ($key, $gccversion) = @_;

        if ($gccversion) {

            # Don't know how to do <==
3	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	157	252	
==>ead1 USAGE

  rebuild.pl [-v] <command> <input> <outputs>...

=head1 DISCUSSION

This script wor <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54828	54937	
==>~ /\A\s*<rulevar:(.*)>\Z/s;

				$rule and $rule->addvar($1,$self)
				      or  _no_rule($code,$line);

				$ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1098	1195	
==>d
to do this.

=item $token->text_r()

This returns a scalar reference to the string that this tok <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117051	117376	
==>"
                            ],
                  "BODY" => "#line 209 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} << {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	865575	865764	
==>E" => 982,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 167 \"src/ops/string.ops\"\n   string_pin(interpr <==
3	/Users/nnunley/parrot/languages/javascript/bootstrap.pm	348	458	
==>close $fh; 
	      return $val;
	});

$context->bind_function(
	name => "debug",
	func => sub {
		warn Dumper(@ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	11993	12102	
==>class->can(...)";
    
    my $ok = $Test->ok( !@nok, $name );

    $Test->diag(map "    $class->can('$_') fai <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	30995	31090	
==>he third argument specifies a prefix pattern that is to be skipped
(but must be present!) before <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361647	361741	
==>ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, INTVAL_FMT, {{\@2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362546	362640	
==>ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, INTVAL_FMT, {{\@2 <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	3311	3424	
==>s_svn_id
{
    my $self = shift;
    my $content = $self->read;
    # Break up the $Id to prevent svn messing with <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5805	5911	
==>my $pops = shift;
	my $pir = '';

	# Branches mean we need to deal with basic block-ish stuff. If the branc <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3743	3849	
==>my $pops = shift;
	my $pir = '';

	# Branches mean we need to deal with basic block-ish stuff. If the branc <==
3	/Users/nnunley/parrot/config/auto/bc.pm	993	1119	
==>in32 => 1,
    );

    if ($bc_does_not_hang{$osname}) {

        # This seems to work for GNU bc 1.06
        my $answer = cap <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6922	7013	
==>nstr
s1$="The longer string"
found$="longer"
bogus$="not"
print "Found  (5): ", instr(s1$, f <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18651	18742	
==>nstr
s1$="The longer string"
found$="longer"
bogus$="not"
print "Found  (5): ", instr(s1$, f <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1159	1250	
==>efined $right and not UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1187	1278	
==>efined $right and not UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	859	950	
==>efined $right and not UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $s <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25803	25927	
==>=> 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 80
		ACT <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18672	18767	
==>rgs, Jako::Construct::Expression::Value->new($block, $self->require_value);
          last if $s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19698	19793	
==>rgs, Jako::Construct::Expression::Value->new($block, $self->require_value);
          last if $s <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1319	1425	
==>he user is responsible for the consequences.
    if (defined $prog) {
        $conf->data->set($util => $pr <==
3	/Users/nnunley/parrot/config/inter/make.pm	1140	1246	
==>he user is responsible for the consequences.
    if (defined $prog) {
        $conf->data->set($util => $pr <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1316	1422	
==>he user is responsible for the consequences.
    if (defined $prog) {
        $conf->data->set($util => $pr <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	15485	15596	
==>ngth $opts ? "(?$opts)$re" : $re;
    }

    return $usable_regex;
};

sub _regex_ok {
    my($self, $this, $reg <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3833	3942	
==>h (@pmcs);

    # lib-GROUP.c
    for my $group (keys %$group_files) {
        compile("$group", "lib-$group") <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3937	4046	
==>h (@pmcs);

    # lib-GROUP.c
    for my $group (keys %$group_files) {
        compile("$group", "lib-$group") <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1609	1717	
==>ore::$meth"}( @_ );
        # if( $ok ) { foreach my $meth ( $lang_f, $pasm_f, $by_f, $out_f ) { unlink $meth <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1525	1633	
==>ore::$meth"}( @_ );
        # if( $ok ) { foreach my $meth ( $lang_f, $pasm_f, $by_f, $out_f ) { unlink $meth <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3034	3137	
==>he example tree dump in the Synopsis, above.

Every text node in the tree is represented by a simple (no <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421296	421592	
==>> "bind",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422188	422484	
==>> "bind",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5844	5948	
==>/

/* &gen_from_enum(mmd.pasm) */

typedef enum {
EOM
    for my $entry (@{$vtable}) {
    next unless ($ <==
3	/Users/nnunley/parrot/Configure.pl	9862	9963	
==>tep::conf is a temporty hack
    no warnings qw(once);
    $Parrot::Configure::Step::conf = $conf;
}
$ <==
3	/Users/nnunley/parrot/tools/build/vtable_extend.pl	862	956	
==>on interface

=head1 DESCRIPTION

These are the functions that Parrot extensions (that is, Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583933	584196	
==>,
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fun <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585007	585270	
==>,
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fun <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2705	2818	
==>itted smoke was already submitted!";
    exit;
  }

  my %smoke;
  $html =~ /revision: (\d+)/       and $smoke{rev <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129781	130008	
==>=> "#line 301 \"src/ops/bit.ops\"\n  {{\@1}} ^= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130520	130747	
==>=> "#line 301 \"src/ops/bit.ops\"\n  {{\@1}} ^= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	19206	19323	
==>$to_resolve;  # whether to process formatting codes
      $to_resolve = 1 if $content =~ s/^://s;
      
      my $don <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	17408	17533	
==>_FORWARD()
{
    my ($n, $c, $cmt) = @_;
    my $targ = "pc_xxx";
    if ($c =~ /to (\d+)/) {
	$targ = "pc_$1";
    }
    prin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605893	606003	
==>bject.ops\"\n    Parrot_add_attribute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606684	606794	
==>bject.ops\"\n    Parrot_add_attribute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24391	24540	
==>YPE" => "inline",
                  "CODE" => 32,
                  "ARGS" => [],
                  "BODY" => "#line 429 \"src/ops/core.ops\"\n  opcod <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644049	644137	
==>\"\n  {{\@1}} = {{\@2}}->vtable->type_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644942	645030	
==>\"\n  {{\@1}} = {{\@2}}->vtable->type_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4} <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4299	4412	
==>RV,"<$fname") or die "Report this as a BUG: Cannot open $fname";
	while(<DRV>) {
                	/^\s*sub\s+_Pa <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4079	4190	
==>RV,"<$fname") or die "Report this as a BUG: Cannot open $fname";
	while(<DRV>) {
                	/^\s*sub\s+_Pa <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	8686	8844	
==>ndle',
             'longsize' => 4,
             'make' => 'gmake',
             'make_and' => '&&',
             'make_c' => 'gmake -C',
             'make_s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	43579	43704	
==>s line is formatty!  Skipping this one.\n";
        next;
      } else {
        DEBUG > 5 and print "  Previous line is non-f <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1278	1373	
==>token->tagname

This returns the tagname for this start-token object.
For example, parsing a "=h <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	37437	37565	
==>n";
        } else {
          my @fors = grep $_->[0] eq '=for', @$curr_open;
          DEBUG > 1 and print "Containing fors: ", <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	22923	23062	
==>sub
#line 181 "lib/Regex/Grammar.y"
{ return $_[1]; }
	]
],
                                  @_);
    bless($self,$class);
}

#line 184 "li <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1210	1344	
==>t wrapping algorithm:
      s/(
         [^\n]{55}         # Snare some characters from a line
         [^\n\ ]{0,50}     #  and finish <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1154	1288	
==>t wrapping algorithm:
      s/(
         [^\n]{55}         # Snare some characters from a line
         [^\n\ ]{0,50}     #  and finish <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002998	1003395	
==>> "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1120,
                  "ARGS" => [
                              "i", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552525	552621	
==>object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n\n  object = {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556581	556677	
==>object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n\n  object = {{\ <==
3	/Users/nnunley/parrot/config/inter/charset.pm	27	114	
==>The Perl Foundation.
# $Id: /parrot/config/inter/charset.pm 19593 2006-05-30T02:28:15.11 <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	30632	30772	
==>f ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $lbl_end;
            } <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	35179	35319	
==>f ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $lbl_end;
            } <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	2380	2479	
==>nally, for
5 minutes.

Add the salt and chick peas and cook, stirring, until heated through.

Stir i <==
3	/Users/nnunley/parrot/config/gen/platform.pm	1566	1662	
==>.h: $!";

    print PLATFORM_H <<"END_HERE";
#if !defined(PARROT_PLATFORM_H_GUARD)
#define PARROT <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	986	1070	
==>(opcode_t*)cur_opcode - (opcode_t*)interpreter->code->prederef.code))
#define CUR_OPC <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1116	1200	
==>(opcode_t*)cur_opcode - (opcode_t*)interpreter->code->prederef.code))
#define CUR_OPC <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11461	11551	
==>ALL_RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_END_${C <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8647	8737	
==>ALL_RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_END_${C <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7219	7309	
==>ALL_RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_END_${C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225931	226290	
==>_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 264,
                  "ARGS" => [
                              "p",
                              "nc" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510136	510322	
==>,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 675 \"src/ops/math.ops\"\n  {{\@1}}->vtable->i_neg(inte <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	8812	8945	
==>[-1]}, $line;
      } else {
        # Unexpected case!
        die "Continuing a paragraph but \@\$paras is empty?";
      }
      $s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	2422	2547	
==>n->new(
        $file, $line, 'sub', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^(var|const)(?!\w)(.* <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	11149	11262	
==>XXX is domain only 0,1?
    $I1 = op1
    if $I1 goto true
    .return(1)
true:
    .return(0)
.end

.sub unicode: <==
3	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1165	1267	
==>t($smokeserv => \%request);
  if($resp->is_success) {
    if($resp->content =~ /^ok/) {
      debug "su <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18629	18735	
==>en) {
        while (1) {
          push @args, Jako::Construct::Expression::Value->new($block, $self->requ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19655	19761	
==>en) {
        while (1) {
          push @args, Jako::Construct::Expression::Value->new($block, $self->requ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	29554	29657	
==>return @{ $self->{Test_Results} };
}

=item B<todo>

    my $todo_reason = $Test->todo;
    my $todo_rea <==
3	/Users/nnunley/parrot/config/auto/pack.pm	1500	1621	
==>est) {
            warn <<"AARGH"
Configure.pl:  Unable to find a functional packtype for $_.
               '$format' fai <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55918	56200	
==>nterpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 72,
                  "ARGS" <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5458	5563	
==>n"
        if $verbose;

    return CORE::keys %{$self->{triggers}{$key}};
}

=item C<gettrigger($key, $tr <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	31717	31813	
==>t, and the skipped prefix (if
any). If a suitable delimited substring is not found, the first
ele <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062198	1062487	
==>"i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1186,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 246 \"src/ops <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21177	21285	
==>h my $left (@left) {
        if ($constructing) {
          my $new = Jako::Construct::Statement::New->new($b <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	6152	6254	
==>r a release.
    $context = "TODO for release"
        if index($Test::force_todo_test_junction, ' '~$T <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	8066	8205	
==>turn";
        $funcs .= " retval" unless $ret_type eq 'void';
        $funcs .= ";\n}\n\n";

    }

    return ($funcs, $protos);
}

sub fi <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4317	4444	
==>rc failed ($?)\n";
	
		    # Execute permissions on libraries is especially important on
			# some platforms
	        if ($^O eq <==
3	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	77	174	
==>2:06.535041Z fperrad  $

require Parrot::Test;

package Parrot::Test::Regex;

use strict;

use Dat <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	2004	2126	
==>val'" : 'undef', ",\n"
            if $verbose;
        $self->{c}{$key} = $val;

        foreach my $trigger ($self->gettr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	923	1033	
==>D   => $block->kind_of_ident($token->text),

    DEBUG  => 1,
    FILE   => $token->file,
    LINE   => $token- <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	17753	17840	
==>--------------------------------------------------------

sub _make_treelet {
  my $self <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6445	6551	
==>RANCH_switch_${CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0[i]
    ${ITEMP0} = ${NEXTPC} + j
    prop_type_st <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4383	4489	
==>RANCH_switch_${CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0[i]
    ${ITEMP0} = ${NEXTPC} + j
    prop_type_st <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	424587	424909	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "accept",
                  "FLAGS <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9744	9859	
==>**Dicard invalid token ".&$ShowCurToken.".\n";

			$$token=$$value=undef;
		};

        $$errstatus=3;

		whi <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9306	9414	
==>**Dicard invalid token ".&$ShowCurToken.".\n";

			$$token=$$value=undef;
		};

        $$errstatus=3;

		whi <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops.pm	106	210	
==>KERS{$name};
    $number = '' if ($number == 1) && ($name ne '');
    return bless([ 'label', "\@$name$nu <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2738	2842	
==>KERS{$name};
    $number = '' if ($number == 1) && ($name ne '');
    return bless([ 'label', "\@$name$nu <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31729	31852	
==>);
    if (    scalar( @{$exprs} ) == 0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('Cal <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	32380	32503	
==>);
    if (    scalar( @{$exprs} ) == 0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('Cal <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33030	33153	
==>);
    if (    scalar( @{$exprs} ) == 0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('Cal <==
3	/Users/nnunley/parrot/examples/benchmarks/oo6.pl	25	134	
==>y $o = new Foo();
for my $i (1 .. 500000) {
	$o->i($i);
	$o->j($i);
}
print $o->i, "\n";

package Foo;

sub ne <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	116	210	
==>trict;
use warnings;

=head1 NAME

tools/build/headerizer.pl - Generates the function header pa <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	402	487	
==>l>,
F<tools/build/vtable_h.pl>, F<tools/dev/gen_class.pl>, and
F<src/pmc/null.pl>.

=h <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1306	1415	
==>>diag("'$cmd' failed with exit code $exit_code")
        if $exit_code and not $pass;
    }

    unless($ENV{P <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1347	1456	
==>>diag("'$cmd' failed with exit code $exit_code")
        if $exit_code and not $pass;
    }

    unless($ENV{P <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2470	2577	
==>>diag("'$cmd' failed with exit code $exit_code")
      if $exit_code and not $pass;
    }

    unless($ENV{P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	410203	410527	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "send",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411095	411419	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "send",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	292	410	
==>t {
  $_[1] =~ tr/-:./__/;
  ( $_[0]->can( 'start_' . $_[1] )
    || return
  )->(
    $_[0], $_[2]
  );
}

sub _handle <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009634	1009872	
==>ction",
                  "CODE" => 1126,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 659 \"src/ops/string.ops\"\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10578	10704	
==>section .= '') ) 
    {
        $section =~ tr/ /_/;
        $section =~ tr/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
        $s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3973	4081	
==>section .= '')) {
    $section =~ tr/ /_/;
    $section =~ tr/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
    $s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102909	103139	
==>"NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47053	47252	
==>terpreter, PARROT_ALL_DEBUG_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47836	48035	
==>terpreter, PARROT_ALL_DEBUG_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2990	3113	
==>output_fh'}} $out,
    #"\n"
  ;
  $self->{'Thispara'} = '';
  
  return;
}

# . . . . . . . . . . And then off by its lones <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2524	2639	
==>output_fh'}} $out, "\n";
  $self->{'Thispara'} = '';
  
  return;
}

# . . . . . . . . . . And then off by its lones <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3316	3423	
==>lse
    opcode_t *cur_opcode = cur_op;
    char * _reg_base;
#endif

SWITCH_RELOAD:
    _reg_base = (char*)i <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2458	2576	
==>ex $1;
  } # else it's decimal, or named

  if($in =~ m/^\d+$/s) {
    return 0 + $in;
  } else {
    return $Name2char <==
3	/Users/nnunley/parrot/config/inter/charset.pm	1726	1835	
==>EMP_charset_o     => $TEMP_charset_o,
        TEMP_charset_build => $TEMP_charset_build,
    );

    return $s <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	1655	1756	
==>);
    } elsif ($atom->isa('P6C::sv_literal') && is_string($atom->type)) {
        $R = $self->convert <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	320	425	
==>> "return whether at end of input string" ],
    [ "advance(n)" => "advance input <n> chars" ],
    [ "inc <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2205	2304	
==>inition.
  #

  if (defined $sym and $sym->block eq $block) {
    $self->SYNTAX_ERROR("Redeclaration <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1952	2051	
==>inition.
  #

  if (defined $sym and $sym->block eq $block) {
    $self->SYNTAX_ERROR("Redeclaration <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552294	552545	
==>YPE" => "function",
                  "CODE" => 635,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 77 \"src/ops/object.ops\"\n  opcod <==
3	/Users/nnunley/parrot/config/inter/charset.pm	1409	1510	
==>set.h src/charset/ascii.h src/charset/$charset.c \$(NONGEN_HEADERS)


END
    }

    # build list of l <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35093	35188	
==>last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched subrule: ['
					. $self <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2875	2979	
==>ot.lib, otherwise
        # the static libparrot.lib.
        if ($conf->data->get('parrot_is_shared')) { <==
3	/Users/nnunley/parrot/lib/Test/More.pm	9464	9567	
==>ted):

    like( $this, '/that/', 'this is like that' );

Regex options may be placed on the end (C<'/th <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	2557	2654	
==>_str(interp, registry, key, pmc_id);
}

void
Parrot_register_core_pmcs(Interp *interp, PMC* regist <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53390	53610	
==>PARROT_GC_DEBUG_FLAG); }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54146	54366	
==>PARROT_GC_DEBUG_FLAG); }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3157	3258	
==>r.  So you can test C<ref($node)> to see whather you have
an element node or just a text node.

The to <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4579	4682	
==>0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note that for loading debugging version of the driver,
#th <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4349	4447	
==>0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note that for loading debugging version of the driver,
#th <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2371	2468	
==>code += $offset; goto SWITCH_AGAIN; }";
}

=item C<goto_pop()>

Transforms the C<goto POP()> macro <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11046	11125	
==>mnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/sprintf('%%%02X',ord($1))/e <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4395	4474	
==>mnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/sprintf('%%%02X',ord($1))/e <==
3	/Users/nnunley/parrot/config/inter/progs.pm	1339	1456	
==>le questions about your
    compiler and linker.  Default values are in square brackets; you can
    hit ENTER to acce <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	18976	19088	
==>push_op($op)>

Adds C<$op> to the end of the op list.

=cut

sub push_op
{
    my ($self, $op) = @_;

    push @{ <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	15333	15441	
==>) = (void *) $init_func;
    dynop_register(interpreter, lib);
    return lib;
}
END_C

}

close SOURCE;
my $ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	43424	43528	
==>$) {

	die "Compilation of Parse::RecDescent grammars not yet implemented\n";
}

sub DESTROY {}  # SO AUT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64681	64767	
==>)PMC_data({{\@1}});\n  Interp_flags_SET(new_interp, PARROT_EXTERN_CODE_FLAG);\n  new_in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65632	65718	
==>)PMC_data({{\@1}});\n  Interp_flags_SET(new_interp, PARROT_EXTERN_CODE_FLAG);\n  new_in <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	6419	6530	
==>edme();
	}
}
sub parse_locate {	# locate x,y   | locate x   | locate ,y  
	my($x,$y);
	my(@e2);
	my($resulty, $t <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6385	6471	
==>rg_0
POST_BRANCH_switch_${CURIC}_LOOP:
if i == 0 goto POST_BRANCH_switch_${CURIC}_LOOP_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4323	4409	
==>rg_0
POST_BRANCH_switch_${CURIC}_LOOP:
if i == 0 goto POST_BRANCH_switch_${CURIC}_LOOP_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6552	6646	
==>ate[${ITEMP0}] = ${STYPES}
    prop_stack_depth[${ITEMP0}] = stack_depth
    goto POST_BRANCH_s <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4490	4584	
==>ate[${ITEMP0}] = ${STYPES}
    prop_stack_depth[${ITEMP0}] = stack_depth
    goto POST_BRANCH_s <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	8863	9072	
==>abelvar" to "invar" and remember labels

                if ($use =~ /label(\w*)/)
                {
                    push @labels, 1;
                    $use = "in$1";
                }
                els <==
3	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	8	153	
==>ct;

package Lua::symbtab;
{

    sub new {
        my $proto    = shift;
        my $class    = ref($proto) || $proto;
        my ($parse <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	2807	2904	
==>ymbol::qualify($fh, scalar caller);
	}
	$self->{data} .= do{local$/;<$fh>};
	$self
}

sub digest { <==
3	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	670	759	
==>o;
}

=head1 SEE ALSO

F<examples/benchmarks/stress.pasm>, 
F<examples/benchmarks/stress.p <==
3	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	517	606	
==>o;
}

=head1 SEE ALSO

F<examples/benchmarks/stress.pasm>, 
F<examples/benchmarks/stress.p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886557	886977	
==>"i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1003,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#li <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	2125	2287	
==>h
{
    my $self = shift;
    
    return 1 unless $self->parent_path;
    
    unless ( -e $self->parent_path )
    {
        # This dies if it fails.
        mkp <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	19025	19138	
==>ist.

=cut

sub push_op
{
    my ($self, $op) = @_;

    push @{$self->{OPS}}, $op;
}

=back

=head1 SEE ALSO

=ov <==
3	/Users/nnunley/parrot/lib/Test/More.pm	390	495	
==>TODO);
$VERSION = '0.60';
$VERSION = eval $VERSION;    # make the alpha version come out as a number

@ISA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476992	477088	
==>428 \"src/ops/math.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477888	477984	
==>428 \"src/ops/math.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605216	605487	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addattribute",
                  "FLAGS" => ":objec <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606006	606277	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addattribute",
                  "FLAGS" => ":objec <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	2599	2701	
==>r could deactivate vital PMCs like SArray
    # so there would be tests needed, that check for vital cl <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2997	3124	
==>fh'}} $out,
    #"\n"
  ;
  $self->{'Thispara'} = '';
  
  return;
}

# . . . . . . . . . . And then off by its lonesome:

sub e <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2531	2650	
==>fh'}} $out, "\n";
  $self->{'Thispara'} = '';
  
  return;
}

# . . . . . . . . . . And then off by its lonesome:

sub e <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Posix.pm	407	509	
==>n        = Parrot::Test::per_test( '.bc', $count );
    my $test_prog_args = $ENV{TEST_PROG_ARGS} || '' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931313	931525	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932083	932295	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932854	933066	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	1525	1632	
==>e is generated automatically from '$infile'
 * by $0.
 *
 * Any changes made here will be lost!
 *
 */

#def <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	3814	3921	
==>e is generated automatically from '$infile'
 * by $0.
 *
 * Any changes made here will be lost!
 *
 */

#def <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3342	3438	
==>opcode[%ld]"
);

=item C<access_arg($type, $num, $op)>

Returns the C code for the specified op a <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20198	20301	
==>rench
  1035  Finnish
  1044  Norwegian (Bokmal)
  2068  Norwegian (Nynorsk)

=back

If you are particul <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665200	665286	
==>ODY" => "#line 359 \"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delete_keyed_int(interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665977	666063	
==>ODY" => "#line 359 \"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delete_keyed_int(interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84939	85234	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85845	86140	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	36709	36801	
==>ferences all use Test::Builder.

=head1 SEE ALSO

Test::Simple, Test::More, Test::Harness

=h <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020932	1021204	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodetime" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021773	1022045	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodetime" <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	5529	5643	
==>prod;
	foreach $prod ( @{$self->{"prods"}} )
	{
		return 1 if $prod->hasleftmost($ref);
	}

	return 0;
}

sub leftm <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217523	217843	
==>"i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 255,
                  "ARGS" => [
                              "p",
                              "nc",
                              "ic"
                            ],
                  "BODY" => "#line 462 \"sr <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	16266	16388	
==>ment\n"
    ;
    
    $self->_handle_element_start(
      ($scratch = 'Document'),
      {
        'start_line' => $paras- <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	4320	4416	
==>from ops.num
# or from experimental

my $real_ops = Parrot::OpsFile->new( [ ], $nolines_flag );
$ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	20121	20258	
==>, $left, $right);
            $func = $method->{mmd};
            # dynamic PMCs need the runtime type
            # which is passed in en <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	4597	4725	
==>$leftovers);
        return $t;
    } else {
        # Find all subtrees, and recurse through them.
        foreach my $arg (@{ $ <==
3	/Users/nnunley/parrot/config/inter/progs.pm	2891	2989	
==>('linkflags'));
    $linkflags = prompt("And your linker?", $linkflags) if $ask;
    $conf->data->s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421118	421373	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bind",
                  "FLAGS" => ":base_network",
                  "ARG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422010	422265	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bind",
                  "FLAGS" => ":base_network",
                  "ARG <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	1702	1812	
==>w why, but this is necessary.
    
    my $errors = 0;
    local $SIG{__WARN__} = sub { $errors++; $all_errors{ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	3323	3427	
==>ift;

  return defined $self->block and not defined $self->block->block;
}


#
# compile()
#

sub compile <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	17780	17925	
==>pty\n";
	return;
    }
    my $tos = pop @stack;
    my $targ = "pc_xxx";
    if ($c =~ /to (\d+)/) {
	$targ = "pc_$1";
    }
    print <<EOC;
	un <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210219	210308	
==>8 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get_strin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211199	211288	
==>8 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get_strin <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	519	626	
==>=> { PREFIX => "_I", NEXT => 'TEST', REDO => 'THEN', LAST => 'ELSE' },
  'sub'      => { PREFIX => "_S", NEX <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	540	647	
==>=> { PREFIX => "_I", NEXT => 'TEST', REDO => 'THEN', LAST => 'ELSE' },
  'sub'      => { PREFIX => "_S", NEX <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	110	198	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub handle_on { # some horrible frighten <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253021	253312	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "or",
                  "FLAGS" => ":b <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	685	791	
==>bl_defs vtbl_struct vtbl_macros vtbl_embed);

sub make_re {
    my $re = shift;

    my $comp_re = eval "qr <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45284	45378	
==>AUTOTREEMK		= '\G\s*<autotree>';
my $AUTOSTUBMK		= '\G\s*<autostub>';
my $REJECTMK		= '\G\s*<re <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8949	9126	
==>0x04
#DBG>		and	print STDERR "Forced Error recovery.\n";

            $$check='';

        };

        #Error
            $$errstatus
        or   do {

            $$ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8547	8713	
==>0x04
#DBG>		and	print STDERR "Forced Error recovery.\n";

            $$check='';

        };

        #Error
            $$errstatus
        or   do {

            $$ <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	234	334	
==>est::M4;

use strict;
use warnings;
use 5.006;

use Data::Dumper;
use File::Basename;

use Parrot::Te <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562000	562287	
==>ot found\", {{\@3}});\n  }\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563084	563371	
==>ot found\", {{\@3}});\n  }\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	12120	12257	
==>se {
            $$val = 'undef';
        }
    }

    return $self->diag(sprintf <<DIAGNOSTIC, $got, $expect);
         got: %s
    expec <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	2036	2155	
==>ie @$isa, 'Class::Struct::Tie_ISA';

    # Create constructor.

    croak "function 'new' already defined in package $cl <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	3780	3899	
==>art_token
{
    my $self = shift;
    my $token = shift;
    my $tagname = $token->tagname;

    # We make the code tags <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	3157	3243	
==>X_ERROR("Can't do arithmetic on strings") if UNIVERSAL::isa($right_type, 'Jako::Constru <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397925	398223	
==>"function",
                  "CODE" => 461,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.o <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	4705	4831	
==>rc'    , 238,
 'iuml'     , 239,
 'eth'      , 240,
 'ntilde'   , 241,
 'ograve'   , 242,
 'oacute'   , 243,
 'ocirc'    , 244, <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	949	1046	
==>C<perl>.  If you I<do> pass the pair, the harness will run the tests with
C<parrot>, calling the C <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2226	2356	
==>s the reason for:   no strict 'refs';
        my $pass = $self->{builder}->$builder_func(
                       Parrot::Test::slur <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2765	2895	
==>s the reason for:   no strict 'refs';
        my $pass = $self->{builder}->$builder_func(
                       Parrot::Test::slur <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2699	2821	
==>s the reason for:   no strict 'refs';
        my $pass = $self->{builder}
            ->$builder_func( Parrot::Test::slur <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301884	302134	
==>351,
                  "ARGS" => [
                              "i",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 980 \"src/ops/cmp.ops\"\n  {{\@1}} = string_eq <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2890	3071	
==>::slurp_file($lang_out_fn),
                       $output,
                       $desc );
        if ( ! $pass ) {
            my $diag = q{};
            my $test_prog = join( ' & <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638995	639102	
==>nt_args;\n  if (!arg_op) {\n        real_exception(interpreter, NULL, NULL_REG_ACCESS,\n            \"No set <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	2071	2233	
==>.pm
#
# Any changes made here will be lost.
#
EOF
                print INC "*/\n" if $inc =~ /\.h/;
                next;
            }
            if (/&end_gen/ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	852	958	
==>al register type"
    unless $type and $type=~/^[INPS]$/;
  my @temp;
  for(0..31) {
    next if $self->{re <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7023	7127	
==>rst.
	if ($need_dest) {
        $pir = _do_lazy_moves('_${CURIC}');
		$pir .= <<'PIR'
inc stack_depth 
${ <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	5612	5753	
==>coverage{$source_file} = $percent;
                next;
            }
        }

        filter_gcov($gcov_file);
    }
}

write_file_coverag <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1828	1922	
==>{ ++$_[0]{'Indent'} }
sub start_over_number  { ++$_[0]{'Indent'} }
sub start_over_text    { ++$ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1396	1490	
==>{ ++$_[0]{'Indent'} }
sub start_over_number  { ++$_[0]{'Indent'} }
sub start_over_text    { ++$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670636	670746	
==>\"\n    {{\@1}}->vtable->push_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671409	671519	
==>\"\n    {{\@1}}->vtable->push_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	18430	18534	
==>ned $self->{"error"} ? '' : '$text = $_[1];' ) . '
		my $_savetext;
		@item = (q{' . $rule->{"name"} . '} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276841	277092	
==>=> 322,
                  "ARGS" => [
                              "i",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 881 \"src/ops/cmp.ops\"\n  {{\@1}} = string <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33102	33216	
==>$para->[1]{'number'},
             " instead of the expected value of $expected_value\n";
            $self->whine( <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	4305	4418	
==>UNIVERSAL::isa(\$init{'$name'}, '$type'))\n";
            $out .= "            { \$r->$elem = \$init{'$name'} } $c <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	133	225	
==>s the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expression/Value <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	138	230	
==>s the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expression/Value <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	135	227	
==>s the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expression/Value <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	33218	33396	
==>($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ($w->[2] eq 'P') {
	   $ww = temp('I');
	   print <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stac <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	33967	34145	
==>($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ($w->[2] eq 'P') {
	   $ww = temp('I');
	   print <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stac <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	34891	35069	
==>($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ($w->[2] eq 'P') {
	   $ww = temp('I');
	   print <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stac <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	4941	5097	
==>),
        ),
        $self->new_group(
            'Objects', 
            '',
            $self->c_pair_item('', 'objects'),
        ),
        $self->new_ <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	1472	1587	
==>($major =~ tr/0-9//c) {
        undef $major; # Don't use it
    }
    if (defined $minor and $minor =~ tr/0-9//c) { <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	373	477	
==>:inter';

our $description = 'Determining what pmc files should be compiled in';
our @args        = qw(as <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	690697	690993	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "thaw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fun <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691453	691749	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "thaw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fun <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	12328	12427	
==>o info_table), -1 if not
 */

static int get_op(const char * name, int full);

static size_t hash_st <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118911	119214	
==>MP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	119765	120068	
==>MP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120620	120923	
==>MP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806809	807009	
==>"i",
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 497 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53244	53331	
==>e::RecDescent::UncondReject($lookahead,$line,$code);
				$prod and $prod->additem($item) <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54953	55040	
==>e::RecDescent::UncondReject($lookahead,$line,$code);
				$prod and $prod->additem($item) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21908	22131	
==>"CODE" => 29,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 356 \"src/ops/core.ops\"\n  if (!{{\@1}}->vt <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	41070	41190	
==>ell->[1]{'to'}), "\n";
      }
      
      # And update children to be the link-text:
      @$ell = (@$ell[0,1], defined <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2412	2518	
==>ht_type = $right_sym->type;
  }
  else {
    $right_type = $right->type;
  }

#  $self->DEBUG(0, "Arithmeti <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2316	2521	
==>new line
                last;
            s/^\\r//
                and $str .= "\r",      # carriage return
                last;
            s/^\\t//
                and $str .= "\t",      # horizon <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3830	4035	
==>new line
                last;
            s/^\\r//
                and $str .= "\r",      # carriage return
                last;
            s/^\\t//
                and $str .= "\t",      # horizon <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	1380	1499	
==>contents = ();
    my $dist = Parrot::Distribution->new;
    
    if ( exists $contents{'pairs'} )
    {
        foreach <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	2479	2607	
==>ndle $proto";
    my $funcname = $1;
    $parms = $2;
    my @parms = split( /\s*,\s*/, $parms );
    for ( @parms ) {
        /\ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1064	1158	
==>it("  inc $ident");

  if (($self->ident->kind eq 'var') and ($self->ident->scope eq 'global')) <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9551	9636	
==>* 30 */
GG,$c,$d,$a,$b,$_[11],14,0x676f02d9,/* 31 */
GG,$b,$c,$d,$a,$_[16],20,0x8d2a4c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	212698	213117	
==>IRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 250,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" <==
3	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	876	973	
==>on repository. (Needed for
# distributions or in general when svn is not available).
# See docs/su <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3731	3828	
==>on repository. (Needed for
# distributions or in general when svn is not available).
# See docs/su <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	689466	689706	
==>ion",
                  "CODE" => 774,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 590 \"src/ops/pmc.ops\"\n   {{\@1}} = <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	14594	14706	
==>mething_not_int, one HAS to use temporary
        # variables.  We detect and collect those to "temp".
        my <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	25630	25731	
==>~ ~ ~ ~ ~

    if($para_type eq '=pod') { #//////////////////////////////////////////////
      $self- <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	2012	2110	
==>an be shortened to their unique prefixes, and one
leading dash ("-") can be used instead of two ("- <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	3893	3991	
==>an be shortened to their unique prefixes,
and one leading dash ("-") can be used instead of two ("- <==
3	/Users/nnunley/parrot/config/auto/va_ptr.pm	283	376	
==>uto::va_ptr;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Ste <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27857	28009	
==>eak' ) {
                $op->{result} = $l_break;
            }
        }
    }
    push @opcodes, @{$block};
    my $cond = get_cond( $parser, $e <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2834	2924	
==>:Simple::ASCII;
  my $out = Text::Wrap::wrap($indent, $indent, $self->{'Thispara'} .= "\n") <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2368	2458	
==>:Simple::ASCII;
  my $out = Text::Wrap::wrap($indent, $indent, $self->{'Thispara'} .= "\n") <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3965	4057	
==>aftwo(y())
	print y(4)
end function
function arrfunc(x())
	u=aftwo(x())
	arrfunc=55
end funct <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15238	15330	
==>aftwo(y())
	print y(4)
end function
function arrfunc(x())
	u=aftwo(x())
	arrfunc=55
end funct <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	313332	313420	
==>n  Parrot_Context_info(interpreter, CONTEXT(interpreter->ctx), &info);\n  {{\@1}} = strin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921072	921380	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "spr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921965	922273	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "spr <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	7834	8001	
==>tor

                                    # scalar type accessor:
    $element_value = $obj->s;           # element value
    $obj->s('new value');               # assig <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34479	34616	
==>freaky_para_hack'};
            }

          } elsif($item_type eq 'number') {
            $self->whine(
              $para->[1]{'start_l <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5007	5129	
==>"  global \"$dest_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3070	3192	
==>"  global \"$dest_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_ <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	9016	9126	
==>at]\" (should be \"$end_boilerplate[$mismatch_at]\")");
        }
    }

}


sub check_manifest {
    open(F, " <==
3	/Users/nnunley/parrot/config/inter/shlibs.pm	1108	1211	
==>_shared)
        if $conf->options->get('ask');
    $conf->data->set(cc_shared => $cc_shared);
    $self <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	16229	16322	
==>eturn $para->[1]{'~type'} = 'text'
   if join("\n", @{$para}[2 .. $#$para]) =~ m/^\s*(\d+)\.?\ <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9085	9200	
==>6

= SYNOPSIS

  use v6;
  require Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('Some::Module');
  use_ok <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1428	1539	
==>'t agree with the
   #  RTF spec on whether it's supposed to be \strikedl or \striked1 (!!!)
 ),

 # Bit of a ha <==
3	/Users/nnunley/parrot/languages/regex/regex.pl	35	139	
==>use Regex;
use Regex::Driver;
use strict;

my $operation;
my $expr;
my $expr_file;
my $tree_opt = 1;
my $ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64821	64954	
==>..$2)");
					if ($3)
					{
						my $pos = pos $grammar;
						substr($grammar,$pos,0,
						       "<leftop: $name $3 $name>($1..$2 <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5601	5715	
==>roup_files, %group_libs, %pmc_group, %pmc_libs );
    for my $pmc (@pmcs) {
        our $class;
        require "$p <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5812	5926	
==>roup_files, %group_libs, %pmc_group, %pmc_libs );
    for my $pmc (@pmcs) {
        our $class;
        require "$p <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	16103	16206	
==>nt_lines );
 $parser->run;

And elsewhere:

 require 5;
 package SomePodProcessor;
 use strict;
 use bas <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	7029	7131	
==>hen again, I'm
# probably wrong.)
#
sub rewrite_group {
    my ($self, $op, $R, $group, $lastback) = @_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632568	632663	
==>ion(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633610	633705	
==>ion(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  { <==
3	/Users/nnunley/parrot/config/inter/ops.pm	607	779	
==>eturn -1 }
            if ($b =~ /core\.ops/) { return 1 }
            return ($a cmp $b)
            }
            grep {
            !/vtable\.ops/
            } glob "src <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553140	553296	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethod",
                  "FL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554536	554692	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethod",
                  "FL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555933	556089	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethod",
                  "FL <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	14859	14986	
==>ND_PREAMBLE

        if ($type1 eq "Float" && $type2 eq "Float") {
          # scalar to scalar..
            $template .= inter <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	932	1034	
==>_content($self);

  return $self;
}

sub left  { return shift->{LEFT};  }
sub right { return shift->{RI <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	940	1042	
==>_content($self);

  return $self;
}

sub left  { return shift->{LEFT};  }
sub right { return shift->{RI <==
3	/Users/nnunley/parrot/lib/Test/More.pm	29968	30093	
==>pe = 'DIFFERENT' unless _type($e2) eq $type;

            if( $type eq 'DIFFERENT' ) {
                push @Data_Stack, { typ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4362	4472	
==>oup failed ($?)\n";
    }

    # Link non-grouped PMCs individually
    my @ungrouped_pmcs = grep { ! exists $p <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4466	4576	
==>oup failed ($?)\n";
    }

    # Link non-grouped PMCs individually
    my @ungrouped_pmcs = grep { ! exists $p <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	998	1111	
==>FT};  }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	1006	1119	
==>FT};  }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	1322	1443	
==>q '"') {   # String constants
		append;
		fetch;
		while($cur ne '"') {
			if ($cur eq "\n") {
				$cur=q{"};  # EOL is al <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	8292	8411	
==>in       complex.h
casinf      complex.h
casinh      complex.h
casinhf     complex.h
casinhl     complex.h
casinl      c <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11372	11470	
==>nished.
goto PRE_CALL_END_${CURIC}

# It's a return. See if we have a return value.
PRE_CALL_RETURN <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8558	8656	
==>nished.
goto PRE_CALL_END_${CURIC}

# It's a return. See if we have a return value.
PRE_CALL_RETURN <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7130	7228	
==>nished.
goto PRE_CALL_END_${CURIC}

# It's a return. See if we have a return value.
PRE_CALL_RETURN <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490090	490314	
==>line 517 \"src/ops/math.ops\"\n  {{\@1}} = floor({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100216	100416	
==>S" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 106 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}}->vtable->bitw <==
3	/Users/nnunley/parrot/config/init/defaults.pm	3409	3532	
==>adable module extension
        load_ext => ".$Config{so}",
        a        => $Config{_a},        # library or archive ext <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	22841	22960	
==>ting code $was<>");
        $is = $treelet->[$i][0] = '1';  # But saving the children!
        # I could also insert a l <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	37238	37337	
==>_make_string,
  'string'        => \&_op_string,
  'string-length' => \&_op_string_length,
  'string <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029746	1029842	
==>t = {{^+2}};\n  if ({{\@1}} < 0.0) {\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\"Can <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030588	1030684	
==>t = {{^+2}};\n  if ({{\@1}} < 0.0) {\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\"Can <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293437	293621	
==>ps\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294313	294497	
==>ps\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295189	295373	
==>ps\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	2291	2415	
==>CONST(%ld)",
        sc  => "CONST(%ld)",
        kc  => "CONST(%ld)",
        kic => "cur_opcode[%ld]"
    );
}

sub readjit <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5287	5398	
==>"$dest/$_$LOAD_EXT";
        }

    }
}
else {
    die "invalid command '$mode'\nmust be one of generate, compil <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5498	5609	
==>"$dest/$_$LOAD_EXT";
        }

    }
}
else {
    die "invalid command '$mode'\nmust be one of generate, compil <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	62802	62900	
==>ly nested codeblock at %s>

A nested code block was found that started with a delimiter that was sp <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	16571	16673	
==>rams", "pcf_${return}_$params" ) :
        ( "$return", "pcf_${return}" ));

    push @{$put_pointer_re <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27171	27268	
==>n declarations for all the methods for inclusion
in the PMC's C header file.

TODO include MMD var <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	7069	7194	
==>,
            $self->c_pair_item('', 'exceptions'),
            $self->c_pair_item('', 'events'),
        ),
        $self->ne <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2904	3023	
==>R';
    undef;
}

sub YYSemval {
	my($self)=shift;
	my($index)= $_[0] - ${$$self{DOTPOS}} - 1;

		$index < 0
	a <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2766	2876	
==>R';
    undef;
}

sub YYSemval {
	my($self)=shift;
	my($index)= $_[0] - ${$$self{DOTPOS}} - 1;

		$index < 0
	a <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4991	5104	
==>ion key $key\n",
        if $verbose;

    $self->{triggers}{$key}{$trigger} = $cb;

    return $self;
}

=item C< <==
3	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	768	864	
==>is file should contain a transcript of the svn:ignore properties
# of the directories in the Parr <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3623	3719	
==>is file should contain a transcript of the svn:ignore properties
# of the directories in the Parr <==
3	/Users/nnunley/parrot/languages/APL/t/APL.pm	1336	1481	
==>er specifying an out.
                      # XXX also gives us a way to specify a blank output,
                      # Since we're converting an <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1546	1669	
==>str    = q{};
    my $type   = 'STRING';

    while ( $parser->YYData->{INPUT} ) {

        for ( $parser->YYData->{INP <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3061	3184	
==>str    = q{};
    my $type   = 'STRING';

    while ( $parser->YYData->{INPUT} ) {

        for ( $parser->YYData->{INP <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8493	8583	
==>nt c$(i);tab$(12);c$(i+1);tab$(22);c$(i+2);tab$(32);c$(i+3)
next
print
data "ABANDON","CHAR <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21357	21447	
==>nt c$(i);tab$(12);c$(i+1);tab$(22);c$(i+2);tab$(32);c$(i+3)
next
print
data "ABANDON","CHAR <==
3	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	1945	2034	
==>bstitutions
close(T);

unlink "basic.pbc";
system("../../../parrot -o basic.pbc merged_bas <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	25795	25912	
==>ves shouldn't be over one line long!  Ignoring all "
         . (@$para - 2) . " lines of content"
      ) if @$para > <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1115	1227	
==>name eq '<ptmp>';
    return $name;
}

sub dbgoto {
    my ($self, $label) = @_;
    return () unless $self->{DEB <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	605	717	
==>name eq '<ptmp>';
    return $name;
}

sub dbgoto {
    my ($self, $label) = @_;
    return () unless $self->{DEB <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13233	13342	
==>e.
      #

      $self->SYNTAX_ERROR("Closing brace without open block.")
        unless $self->block_depth() <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1217	1307	
==>his.

=item $token->tag(...)

A shortcut for $token->tagname(...)

=item $token->is_tag(I<s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1647	1737	
==>his.

=item $token->tag(...)

A shortcut for $token->tagname(...)

=item $token->is_tag(I<s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449331	449417	
==>90 \"src/ops/math.ops\"\n  {{\@1}}->vtable->i_absolute(interpreter, {{\@1}});\n  {{+=2} <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	12032	12141	
==>file: $!\n";

    print OUT page_header("Call Coverage for $source_file");
    print OUT "<pre>";

    # filte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605887	605979	
==>/ops/object.ops\"\n    Parrot_add_attribute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606678	606770	
==>/ops/object.ops\"\n    Parrot_add_attribute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n", <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3183	3283	
==>$self = shift;
  if(Pod::Simple::ASCII) {
    $self->{'Thispara'} =~ tr{\xA0}{ };
    $self->{'Thispa <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2671	2771	
==>$self = shift;
  if(Pod::Simple::ASCII) {
    $self->{'Thispara'} =~ tr{\xA0}{ };
    $self->{'Thispa <==
3	/Users/nnunley/parrot/config/auto/jit.pm	244	342	
==>ystem, and whether there is JIT
capability available.

=cut

package auto::jit;

use strict;
use wa <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1970	2070	
==>s, $plan, @args) = @_;
    $b->plan( $plan, @args );
    __PACKAGE__->export_to_level( 2, __PACKAGE__ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191605	191692	
==>e 313 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) < {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192545	192632	
==>e 313 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) < {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	622161	622367	
==>n    ((void**)cur_opcode)[1] = mic->m.sig;\n    {{+=0}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	624015	624221	
==>n    ((void**)cur_opcode)[1] = mic->m.sig;\n    {{+=0}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	2249	2406	
==>pilers/pge/Makefile',
        commentType                   => '#',
        replace_slashes               => 1
    );
    genfile(
        'config/gen/makefil <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	31819	31934	
==>ck, $desc) = @_;
    if( $check ) {
        die <<WHOA;
WHOA!  $desc
This should never happen!  Please contact the a <==
3	/Users/nnunley/parrot/lib/Test/More.pm	30903	31018	
==>ck, $desc) = @_;
    if( $check ) {
        die <<WHOA;
WHOA!  $desc
This should never happen!  Please contact the a <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	15216	15328	
==>ms[CURR] eq "to") {
			my @b=EXPRESSION();
			feedme();
			print CODE<<TO;
# From
@a	bsr DEREF
	push P13, P6
# To <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	20016	20123	
==>0;
	if ($second_arg)
	{
		my ($ldel2, $rdel2);
		if ($ldel1 =~ /[[(<{]/)
		{
			unless ($$textref =~ /\G\s*( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356635	356726	
==>DY" => "#line 240 \"src/ops/io.ops\"\n  PIO_eprintf(interpreter, INTVAL_FMT, {{\@1}});\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357295	357386	
==>DY" => "#line 240 \"src/ops/io.ops\"\n  PIO_eprintf(interpreter, INTVAL_FMT, {{\@1}});\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967540	967891	
==>"i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1088,
                  "ARGS" => [
                              "i",
                              "ic",
                              "sc",
                              "i"
                            ],
                  "BODY" => "#line 608 \ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10683	10800	
==>eq chr(65);
        $section = $self->unicode_escape_url($section);
        # Turn char 1234 into "(1234)"
        $se <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4064	4170	
==>eq chr(65);
    $section = $self->unicode_escape_url($section);
     # Turn char 1234 into "(1234)"
    $se <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1602	1714	
==>if ($^O eq 'MSWin32') {
    # Paths need quoting as they may contain spaces.
    $PATHQUOTE = '"';

    unless ($ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1606	1718	
==>if ($^O eq 'MSWin32') {
    # Paths need quoting as they may contain spaces.
    $PATHQUOTE = '"';

    unless ($ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6344	6453	
==>uire_value         { return shift->require('ident', 'literal'); }


#
# skip()
#
# Skips the token type specif <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954289	954396	
==>\n  {{\@1}} = Parrot_encoding_number_of_str(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955080	955187	
==>\n  {{\@1}} = Parrot_encoding_number_of_str(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	35473	35571	
==>t_bracketed( $text, '{([<' );

would fail, returning:

	( undef , "{ an '[irregularly :-(] {} paren <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	17877	17971	
==>so default initializes nested object attributes to undef, rather
   than calling object constru <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	274	362	
==>inherits from C<Parrot::OpTrans::C>
to provide predereferenced register addressing run lo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037747	1038002	
==>reter, NULL, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038528	1038783	
==>reter, NULL, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1052	1162	
==>st::run_command( 
            "$PConfig{perl} languages/scheme/schemec languages/$lang_f",
            CD => '. <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	512	631	
==>ite_ARRAY'],
  ['',             'print', 'P5'],
  ['',             'branch', 'write_RET'],
  ['write_ARRAY',  'print', ' <==
3	/Users/nnunley/parrot/config/init/optimize.pm	925	1032	
==>ebug => '');
        $conf->data->add(' ', ccflags => "-DDISABLE_GC_DEBUG=1 -DNDEBUG");
        if ($optimiz <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	25	124	
==>erl5;
use Regex::Ops::Tree (); # For mark()
use base 'Regex::CodeGen';
use strict;

my $fail_label = <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	10277	10426	
==>hite;
      margin:           0;

      font-family: sans-serif;
      line-height: 1.3em;
      font-size:   95%;
    }

    h1, h2 {
      backgroun <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	7083	7197	
==>@lines;
}


#
# scan_file()
#

sub scan_file
{
  my $self = shift;
  my ($file) = @_;

#  $self->DEBUG(0, "Scanning <==
3	/Users/nnunley/parrot/config/auto/snprintf.pm	241	347	
==>if it's C99 compliant.

=cut

package auto::snprintf;

use strict;
use vars qw($description @args);

use ba <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2235	2365	
==>],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P9', ' <==
3	/Users/nnunley/parrot/lib/Test/More.pm	1683	1777	
==>t/, $test_name);

  cmp_ok($this, '==', $that, $test_name);

  is_deeply($complex_structure1, $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	3184	3309	
==>on', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^([;])(.*)$}) {
      push @tokens, Jako::Token->new( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	156	259	
==>~

sub handle_on { # some horrible frightening things are encapsulated in here
  my $class = shift;
  $c <==
3	/Users/nnunley/parrot/config/init/hints.pm	444	545	
==>Step;

$description = 'Loading platform and local hints files';

@args = qw( cc verbose define );

sub <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1395	1497	
==>sub output_advance {
    my ($self, $distance, $failLabel) = @_;
    $failLabel = $self->output_label_u <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1144	1246	
==>sub output_advance {
    my ($self, $distance, $failLabel) = @_;
    $failLabel = $self->output_label_u <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	385	487	
==>sub output_advance {
    my ($self, $distance, $failLabel) = @_;
    $failLabel = $self->output_label_u <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	312430	312600	
==>S" => [
                              "i"
                            ],
                  "BODY" => "#line 157 \"src/ops/debug.ops\"\n  struct Parrot_Context_info info;\n <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	1910	2019	
==>ur =~ /[A-Za-z]/) {		# Bareword 
		append;
		fetch;
		while($cur =~ /[A-Za-z0-9]/ or $cur =~ /[#!&\$%]/) { # S <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	3221	3327	
==>_step($step);
    }

    return $self;
}

=item * C<runsteps()>

Sequentially executes step in the order th <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819073	819335	
==>> "entrytype",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820032	820294	
==>> "entrytype",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	16639	16733	
==>lParser should define a C<run> method
that calls C<< $token = $parser->get_token >> to pull tok <==
3	/Users/nnunley/parrot/tools/dev/symlink.pl	1084	1197	
==>e "$self: not in tools/dev\n"
  unless @toolsrcdir >= 2 &&
         lc($toolsrcdir[-1]) eq 'dev' &&
         lc($t <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4279	4384	
==>>, 1)) != $code;" . $comment);
    if ($self->{DEBUG}) {
        push @ops, 'print "matched('.chr($code).' <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	46166	46254	
==>ecount($grammar) unless $lines;
	$self->{_check}{itempos} = ($grammar =~ /\@itempos\b|\$i <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11793	12011	
==>( $parser,
                        'arg1'   => $last_key->[0],
                        'arg2'   => undef,
                        'result' => $result,
                    );
                    return [ $defn, \@op <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9993	10191	
==>( $parser,
                    'arg1'   => $last_key->[0],
                    'arg2'   => undef,
                    'result' => $result,
                );
                return [ $defn, \@op <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8848	9006	
==>( $parser,
            'arg1'   => $last_key->[0],
            'arg2'   => undef,
            'result' => $result,
        );
        return [ $defn, \@op <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2195	2307	
==>$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test::proc <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2590	2702	
==>$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test::proc <==
3	/Users/nnunley/parrot/lib/Test/More.pm	1261	1367	
==>w(no_plan);
  # or
  use Test::More skip_all => $reason;

  BEGIN { use_ok( 'Some::Module' ); }
  require_o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	331558	331758	
==>"\n  PIO_close(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630446	630557	
==>s\"\n    PMC *class = {{\@2}};\n    INTVAL type = pmc_type_p(interpreter, class);\n    if (type <= 0)\n        r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631436	631547	
==>s\"\n    PMC *class = {{\@2}};\n    INTVAL type = pmc_type_p(interpreter, class);\n    if (type <= 0)\n        r <==
3	/Users/nnunley/parrot/config/init/defaults.pm	5427	5537	
==>emulate GNU make's C<-C directory> option:  chdir
        # to C<directory> before executing $(MAKE)
        ma <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	36076	36225	
==>es are...

    0                   all tests successful
    255                 test died
    any other number    how many failed (including missing o <==
3	/Users/nnunley/parrot/lib/Test/More.pm	34147	34296	
==>es are...

    0                   all tests successful
    255                 test died
    any other number    how many failed (including missing o <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2942	3091	
==>es are...

    0                   all tests successful
    255                 test died
    any other number    how many failed (including missing o <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	3200	3342	
==>urces' => [
                    'inter_cb', 'inter_create', 'inter_misc', 'inter_run'
                ], 
                'headers' => ['interp <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27186	27287	
==>Y($englishname, "SUB");
}

sub parse_function {
	feedme;
	my $f;
	$funcname=$syms[CURR];
	my $englishn <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	269	365	
==>em> is one or more related paths with some optional
descriptive text.

Directory paths will be ex <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15267	15370	
==>er'} },
       $self->{'text_token_class'}->new(@_);
  return;
}

sub _handle_element_end {
  my $self = <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7068	7167	
==>"Null   (1): ", instr(s1$, "")
print "Start (11): ", instr(6, s1$, " ")
print "Inval  (0): ", instr( <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18797	18896	
==>"Null   (1): ", instr(s1$, "")
print "Start (11): ", instr(6, s1$, " ")
print "Inval  (0): ", instr( <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2251	2351	
==>m which descriptions\n".
		"were not obtained.\n\n");

    my @files = @ARGV ? @ARGV : &files_worth_d <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7759	7855	
==>is is true" else print "Oops (string)"
s$=""
if s$ then print "Should not happen (string)"
i%=0
i <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14746	14842	
==>is is true" else print "Oops (string)"
s$=""
if s$ then print "Should not happen (string)"
i%=0
i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	7419	7637	
==>e 171 \"src/ops/core.ops\"\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8055	8273	
==>e 171 \"src/ops/core.ops\"\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	1027	1127	
==>{$main::seg}->{declarations}->{$var}="COMMON";
			$common{$var}=1;
		}

	}
}

sub parse_shared {		# K <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	5521	5651	
==>nteroplate @foo@ values
            $text =~ s{ \@ (\w+) \@ }{\$conf->data->get("$1")}gx;
            eval $text;
            die $ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2518	2615	
==>rd branches until late to do
	# otherwise. Also, putting a label everywhere doesn't hurt the final <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1096	1193	
==>rd branches until late to do
	# otherwise. Also, putting a label everywhere doesn't hurt the final <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8061	8161	
==>result, not_found

    goto loop_two 
loop_two_end:

    .return (result)
.end

.sub unicode:"dyadic: <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	19472	19579	
==>=> 'ne',
	'!=' => 'eq',
	'>' => 'le',
	'>=' => 'lt',
	'<' => 'ge',
	'<=' => 'gt',
	'is' => 'ne_addr',
	'is n <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2436	2537	
==>1["$var"]	# Pull the original
	P2= P10[I25]
	P3= P2["$stype"]
	P3["$var"]= P0	# Hack in the alias

SHA <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2663	2764	
==>1["$var"]	# Pull the original
	P2= P10[I25]
	P3= P2["$stype"]
	P3["$var"]= P0	# Hack in the alias

SHA <==
3	/Users/nnunley/parrot/config/gen/platform.pm	4626	4762	
==>form/$_";
        }

        if (-e $impl_file) {
            local $/ = undef;
            print("\t$impl_file\n") if defined $verbose & <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	105	221	
==>+) from .+?([\.\w]+)\n$/) {
		push @results, {
			name	=> $3,
			total	=> $2,
			done	=> $1,
			percent	=> int(( <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	105	221	
==>+) from .+?([\.\w]+)\n$/) {
		push @results, {
			name	=> $3,
			total	=> $2,
			done	=> $1,
			percent	=> int(( <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	834	947	
==>rray=1;
			while($syms[CURR] ne ")") {
				feedme;
			}
			feedme;
		}
		$var=~s/\$$/_string/;
		push @{$code{$seg <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	47086	47190	
==>~ m/$POSLOOKAHEAD/gco)
		{
			_parse("a positive lookahead",$aftererror,$line);
			$lookahead = $lookahea <==
3	/Users/nnunley/parrot/config/gen/config_h.pm	216	301	
==>es F<include/parrot/config.h> with platform-specific configuration
values, F<include/p <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2464	2564	
==>e kinda find
	# basic blocks, we don't discover backward branches until late to do
	# otherwise. Also <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1042	1142	
==>e kinda find
	# basic blocks, we don't discover backward branches until late to do
	# otherwise. Also <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	280	375	
==>md5_hex>;
use HTML::Template;
use Algorithm::TokenBucket;
use Time::Piece;
use Time::Seconds;

r <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	51531	51699	
==>', 1,
sub
#line 267 "Lua\lua51.yp"
{
            [
                BuildVariable( $_[0], $_[1] ),
            ];
        }
	],
	[#Rule 45
		 'var', 1,
sub
#l <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	16509	16646	
==>tra ) = @_;

            # Strange Win line endings
            convert_line_endings( $expected );

            # set up default descripti <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	11025	11161	
==>tra) = @_;

            # Strange Win line endings
            convert_line_endings( $expected );

            # set up default descripti <==
3	/Users/nnunley/parrot/config/inter/charset.pm	1658	1783	
==>f->data->set(
        charset            => $charset_list,
        TEMP_charset_o     => $TEMP_charset_o,
        TEMP_charset <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	9366	9489	
==>g.
        my $R = $t->{args}->[3];
        my $max = $t->maxlen();
        if (!defined($max) || $max < 0) { $guarantee = 0 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3073	3177	
==>2, $dest);
}

sub output_gt {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_test('>', $val1 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1960	2055	
==>e);
    $self->SYNTAX_ERROR("Expression involves unknown variable %s.", $left->value) unless $le <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1918	2013	
==>e);
    $self->SYNTAX_ERROR("Expression involves unknown variable %s.", $left->value) unless $le <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1840	1935	
==>e);
    $self->SYNTAX_ERROR("Expression involves unknown variable %s.", $left->value) unless $le <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	28811	28932	
==>wisted purposes, to
      #  mean how it should get treated, not as what the element name
      #  should be.

      DEBUG <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1723	1831	
==>nt {
    my ($self, $distance, $failLabel) = @_;
    die "invalid distance" if $distance =~ /[^\d\-]/;
    re <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1476	1584	
==>nt {
    my ($self, $distance, $failLabel) = @_;
    die "invalid distance" if $distance =~ /[^\d\-]/;
    re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669428	669774	
==>h",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 749,
                  "ARGS" => [
                              "p",
                              "n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	329483	329754	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_r8",
                  "FLAGS" => ":dotgnu_c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	308303	308485	
==>ebug_init",
                  "FLAGS" => ":base_debug",
                  "ARGDIRS" => [],
                  "TYPE" => "function",
                  "CODE" => 359,
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	18516	18633	
==>mpty
string if the PMC has a C<no_init> flag.

=cut

sub init_func() {
    my $self = shift;

    my $cout = "";
    r <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2100	2209	
==>stuff, 'I have some stuff' );

will do what you mean (fail if stuff is empty)

=cut

sub ok ($;$) {
    $Test- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035749	1035851	
==>NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    {{\@1}} = result;\n    {{+=3}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036913	1037015	
==>NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    {{\@1}} = result;\n    {{+=3}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158482	158598	
==>e 141 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LA <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	6031	6133	
==>) {
    printf "--- No Parrot prefix: %d ---\n", scalar @NoParrotPrefix;
    for my $api (@NoParrotPref <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	43997	44097	
==>fault. If no text is given,
C<$_> is used.

In a list context, an array of 11 elements is returned. T <==
3	/Users/nnunley/parrot/Configure.pl	4687	4801	
==>d $value;

  for ($key) {
    m/version/ && do {
      my $svnid = '$Id: /parrot/Configure.pl 19607 2006-05-30T15:2 <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	44496	44594	
==>_nbsp($treelet,0) if $self->{'nbsp_for_S'};

  # TODO: or a change_nbsp_to_S
  #  Normalizing nbsp' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028455	1028717	
==>ESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sleep",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029306	1029568	
==>ESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sleep",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030147	1030409	
==>ESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sleep",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146392	146653	
==>}, {{\@2}}, MMD_EQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167618	167879	
==>}, {{\@2}}, MMD_EQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	7980	8151	
==>ined($kid->maxlen()) xor $havemax) {
                # Change
                push @chunks, [];
                $havemax = 1 - $havemax;
            }
            push @{ $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	28502	28625	
==>$op->{args} }, $lastback));
        } else {
            return ($lastback, $self->rewrite_other($op, $lastback));
        } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653515	653612	
==>interpreter, resume, METH_NOT_FOUND,\n            \"Method '%s' not found\", string_to_cstring(int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654676	654773	
==>interpreter, resume, METH_NOT_FOUND,\n            \"Method '%s' not found\", string_to_cstring(int <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	2579	2761	
==>vel]doc
    src/ops/ops.num                                 [devel]
    tools/build/ops2c.pl                            [devel]
    tools/build/ops2pm.pl                           [de <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623776	623894	
==>n\t\t    (char*)caller_ctx->bp.regs_i, dest_pred);\n\t}\n        else\n            n = 2;\n\t{{+=n}};\n    }\n    /* no <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	44444	44550	
==>xt;
    }

    if( length($formatting) >= length($p->[$i-1]) ) {
      $formatting = substr($formatting, 0, <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	803	923	
==>te_code_to_file( $code, $lang_f );

    my $cmd;
    my $exit_code = 0;
    my $pass = 0;

    $cmd = "$self->{parrot} $a <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	840	960	
==>te_code_to_file( $code, $lang_f );

    my $cmd;
    my $exit_code = 0;
    my $pass = 0;

    $cmd = "$self->{parrot} $a <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	12087	12172	
==>tive \f1\lang1024\noproof\sbasedon25 pod-codelbock-ital;}
{\*\cs27 \additive \f1\lang1 <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	24466	24588	
==>rn 0;
            }

        my $cfg = "src$PConfig{slash}parrot_config$PConfig{o}";
        $cmd =   "$PConfig{link} $PCon <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	8961	9091	
==>\G(?:$ignore)/gc)
		{
			next;
		}
		elsif ($bad && $$textref =~ m/\G($bad)/gcs)
		{
			pos($$textref) -= length($1);	# CUT OFF WHA <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3388	3493	
==>my $fnlib;

    if (exists $props{fnlib} and $props{fnlib}) {
      $fnlib = $props{fnlib}->value; # TODO: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6052	6157	
==>my $fnlib;

    if (exists $props{fnlib} and $props{fnlib}) {
      $fnlib = $props{fnlib}->value; # TODO: <==
3	/Users/nnunley/parrot/config/inter/make.pm	1391	1552	
==>);

        unless ($prog) {

            # fall back to default
            $self->set_result('no');
            return $self;
        }
    }

    if ($conf->op <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	15704	15823	
==>=> '$', stuff => '%' } );

    # override the default accessor method for 'count'
    sub count {
        my $self = shi <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	7239	7346	
==>not in ops.num\n"
	    if -e "DEVELOPING" and exists $ENV{PARROT_OPS_DEBUG};
	return -1;
    } else {
	my $n <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	10038	10156	
==>or = '';
       # But that doesn't necessarily mean that the earlier one went okay
    } else {
      $enc_error = "Enc <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	42914	43008	
==>ers, embedded balanced bracket
delimiters (for the quotelike operators), and trailing modifiers <==
3	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	23	111	
==>06, The Perl Foundation.
# $Id: /parrot/lib/Parrot/BuildUtil.pm 20321 2006-06-20T20:02:00 <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	9579	9711	
==>0-9]/s
        or $new_code =~ m/:[-\.0-9]/s;
            # The legal under-0x80 Name characters that 
            #  an XML Name sti <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10843	10975	
==>0-9]/s
        or $new_code =~ m/:[-\.0-9]/s;
            # The legal under-0x80 Name characters that 
            #  an XML Name sti <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	5563	5671	
==>er goto loop_end_2d
    value_type = typeof value
    if newline goto print_newline
    if value_type != 'Str <==
3	/Users/nnunley/parrot/config/gen/config_pm.pm	2064	2270	
==>\n);
                } else {
                    print OUT qq(\tset P0["$k"], P1\n);
                }
            }
        } elsif (s/<<PWD>>/cwd/e) {
            print OUT;
        } else {
            p <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	6904	7006	
==>1); /me;

    return $_;
}

=item C<rewrite_body($body, $trans)>

Performs the various macro substituti <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293280	293478	
==>",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 945 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5972	6090	
==>up) = keys %$group;
        $pmc_group{$pmc} = $group;
        push @{ $group_files{$group} }, $pmc;
        $group_lib <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6183	6301	
==>up) = keys %$group;
        $pmc_group{$pmc} = $group;
        push @{ $group_files{$group} }, $pmc;
        $group_lib <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9407	9507	
==>print "Wrong"
else
	print "Correct"
end if
if p$ = "Hello" then print "Whoa"

' Count by .5's and Tru <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7153	7240	
==>${LOADTYPE}["reg_type_short"]
${DEST0} = concat ${STEMP0}
${STEMP0} = stack_depth
${DEST <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4975	5062	
==>${LOADTYPE}["reg_type_short"]
${DEST0} = concat ${STEMP0}
${STEMP0} = stack_depth
${DEST <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	364	476	
==>use Carp;

use base qw(Jako::Construct::Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "E <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	355	467	
==>use Carp;

use base qw(Jako::Construct::Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "E <==
3	/Users/nnunley/parrot/config/auto/jit.pm	1588	1704	
==>= 'MSWin32';
    } elsif ($osname =~ /cygwin/i || $cpuarch =~ /cygwin/i) {
        $cpuarch = 'i386';
        $osname <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	1891	1995	
==>);

@Regex::Ops::Tree::call::ISA         = qw(Regex::Ops::Tree);
@Regex::Ops::Tree::code::ISA         = q <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	39830	39926	
==>e 1\n\nline 3\n"

Suppose instead, that if no matching "/endpara" tag is found, the "/para"
tag r <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	14002	14123	
==>= $method->{meth};
    my $body = $method->{body};
    $body =~ s/^\t/        /mg;
    $body =~ s/^[ ]{4}//mg;
    my $sup <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6530	6644	
==>y $source (@sources) {
        return 1 if modtime($source) > $target_mod;
    }

    return 0;
}

sub generate_dum <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6741	6855	
==>y $source (@sources) {
        return 1 if modtime($source) > $target_mod;
    }

    return 0;
}

sub generate_dum <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10082	10193	
==>"thatelementname".  We only
    #  remap once.
    # If we say we accept "W", then a "W" in the treelet simply t <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	9467	9576	
==>e, $dirname) = fileparse($_);

        my ($filebase, $extension) = ($filename =~ /^(.*)\.(.*)/);
        $fil <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25403	25490	
==>j_get_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAILCALL;\n  dest = (opcode_t *)p->vt <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704693	704892	
==>,
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705685	705884	
==>,
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, { <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr3.pm	186	299	
==>Data::Dumper;

sub get_out_fn {
    my $self = shift;
    my ( $count, $options ) = @_;

    return Parrot::Test:: <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	10442	10570	
==>VAR;
	    if (is_imag($c)) {
		$typ = '.Complex';
		$c = qq!"$c"!;
	    }
	    my $pmc = temp('P');
	    print <<EOC;
	$pmc = new <==
3	/Users/nnunley/parrot/tools/dev/as2c.pl	1237	1346	
==>= $1;
	    print " *\n */\n";
	    print "static const char ${func}_code[] = {\n";
	}
	elsif (/^\s*\d+\s+(\w+) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	536551	536783	
==>OATVAL)1) / cosh((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
3	/Users/nnunley/parrot/lib/File/Which.pm	2343	2496	
==>mark as executable so we check -e
                  ($Is_DOSish and grep { $file =~ /$_$/i } @path_ext[1..$#path_ext])
                                # D <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64667	64753	
==>rp = (Interp *)PMC_data({{\@1}});\n  Interp_flags_SET(new_interp, PARROT_EXTERN_CODE_FL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65618	65704	
==>rp = (Interp *)PMC_data({{\@1}});\n  Interp_flags_SET(new_interp, PARROT_EXTERN_CODE_FL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493098	493362	
==>LAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 566,
                  "ARGS" = <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	3622	3752	
==>ro'    , 181,
 'para'     , 182,
 'middot'   , 183,
 'cedil'    , 184,
 'sup1'     , 185,
 'ordm'     , 186,
 'raquo'    , 187,
 'f <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16529	16636	
==>);
  $self->_restore ($temp);

  return $return;
}

sub _op_list_p {
}

sub _op_list {
  my ($self, $node) = <==
3	/Users/nnunley/parrot/config/gen/platform.pm	2122	2243	
==>ed $verbose && $verbose == 2;
            open IN_H, "< $header_file" or die "Can't open $header_file: $!";
            pr <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	30536	30652	
==>s "Foo".)
# 
# Pod parsers may also note additional attributes including:
#

############# The "type" attribute.
# Fi <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	8902	8985	
==>u))
#define RCONST(i) interpreter->code->const_table->constants[jit_info->cur_op[i]] <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	13309	13505	
==>er,
                    'arg1'   => $key->[0],
                    'arg2'   => undef,
                    'result' => $result,
                );
                return [ $result, \@opcodes, $ <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	7091	7206	
==>\n", $op->full_name, $source);
	}

	print "}\n\n";
    }
    print <<END_C;
    break;

default:
    return cur_opco <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12783	12884	
==>, all mean "/", whose Unicode number is 47.  If
the name has no known value (as with a name of "qacute <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10114	10238	
==>Pop state $$stack[-1][0].\n";

			pop(@$stack);
		}

			@$stack
		or	do {

#DBG>			$debug & 0x10
#DBG>		and	print ST <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9663	9778	
==>Pop state $$stack[-1][0].\n";

			pop(@$stack);
		}

			@$stack
		or	do {

#DBG>			$debug & 0x10
#DBG>		and	print ST <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	5557	5667	
==>'t call any of the other methods below.

=cut

sub plan {
    my($self, $cmd, $arg) = @_;

    return unless $c <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2270	2385	
==>= $arg_sym->type; 
    }
    else {
      $actual_arg_type = $args[$i]->type;
    }

    $self->INTERNAL_ERROR("Can' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1970	2085	
==>= $arg_sym->type; 
    }
    else {
      $actual_arg_type = $args[$i]->type;
    }

    $self->INTERNAL_ERROR("Can' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4496	4619	
==>} == 0) {
        delete $self->{name};
        delete $self->{args};
        return $self->op('nop', [], %$self);
    } els <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5633	5756	
==>} == 0) {
        delete $self->{name};
        delete $self->{args};
        return $self->op('nop', [], %$self);
    } els <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	28614	28740	
==>);
        }
    } elsif (UNIVERSAL::isa($op, "Regex::Ops::List")) {
        return ($lastback, $op);
    } else {
        $DB: <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	537	626	
==>se::RecDescent::expected;
	$Parse::RecDescent::expected =~ s/_/ /g;
	if (!$Parse::RecDesce <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	308786	308967	
==>|= PDB_RUNNING;\n    }\n\n    {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	7523	7639	
==>ret_type  = find_type( $return_type );

        $protos .= sprintf "extern %s Parrot_PMC_%s( %s );\n",
            $r <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7225	7328	
==>>output_pushint($reg);
}

sub output_pushint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($re <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6867	6970	
==>>output_pushint($reg);
}

sub output_pushint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($re <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	618	735	
==>sin spc sqr
			stick str$ strig string$
		    tab$ tan timer
		    ubound ucase$ val varptr varptr$ varseg
		   );
@ke <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6412	6515	
==>URIC}_LOOP:
if i == 0 goto POST_BRANCH_switch_${CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0[i]
    ${ITEM <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4350	4453	
==>URIC}_LOOP:
if i == 0 goto POST_BRANCH_switch_${CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0[i]
    ${ITEM <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1748	1851	
==>ance, $failLabel) = @_;
    die "invalid distance" if $distance =~ /[^\d\-]/;
    return () if $distance <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1501	1604	
==>ance, $failLabel) = @_;
    die "invalid distance" if $distance =~ /[^\d\-]/;
    return () if $distance <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554736	555155	
==>ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 637,
                  "ARGS" => [
                              "p",
                              "sc",
                              "p"
                            ],
                  "B <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	3908	4065	
==>fine',
             'i_bsdioctl' => '',
             'i_crypt' => undef,
             'i_db' => 'define',
             'i_dbm' => undef,
             'i_diren <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	5153	5273	
==>ile . ', ';

    my $orig = $file;

    open my $OPS, '<', $file or die "Can't open $file, $!/$^E";

    if ( ! ($file =~ <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	27	126	
==>See POD after __END__

use 5.005_03;

use strict;
# use warnings::register;
use vars qw(@ISA @EXPORT <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	5326	5423	
==>ns}:
ON
	$i=1;
	for my $jumps (@onlab) {
		push @{$code{$seg}->{code}}, "\tne $result, $i.0, ON_${ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	50953	51047	
==>n the Parse::RecDescent module,
parser actions which are to be performed only on a successful p <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	758	856	
==>eding punctuation.

=head2 lib

The name of the library to be loaded. Should be as qualified as
nec <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1098386	1098579	
==>1,
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_cor <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	2112	2234	
==>lock Stack
##
##   $block_count         The total number of blocks begun (used for labels)
##   @block_stack         The st <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	7717	7827	
==>th_name
{
    my $self = shift;
    my $path = $self->path_for_directory_with_name(shift) || return;
    
    r <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8264	8374	
==>th_name
{
    my $self = shift;
    my $path = $self->path_for_directory_with_name(shift) || return;
    
    r <==
3	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	257	357	
==>y appending the line

  /* CHECKSUM: <checksum> */

to the end of all generated output files, and che <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	38626	38721	
==>ern).

For example, to extract an arbitrary XML tag, but ignore "empty" elements:

	extract_tagg <==
3	/Users/nnunley/parrot/lib/Test/More.pm	32295	32413	
==>tter, duplicate elements do.

Test::Deep contains much better set comparison functions.

=cut

sub eq_set  {
    my($a1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742746	742854	
==>ps/set.ops\"\n  {{\@1}} = string_from_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743512	743620	
==>ps/set.ops\"\n  {{\@1}} = string_from_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488158	488350	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488798	488990	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	489551	489743	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	8147	8252	
==>for set_source");
  } else {  # It's a filename!
    DEBUG and print "$self 's source is filename $_[0]\n" <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	9428	9527	
==>x00-\x2C\x2F\x39\x3B-\x40\x5B-\x5E\x60\x7B-\x7F]/
            # Characters under 0x80 that aren't le <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10692	10791	
==>x00-\x2C\x2F\x39\x3B-\x40\x5B-\x5E\x60\x7B-\x7F]/
            # Characters under 0x80 that aren't le <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800424	800678	
==>3,
                  "ARGS" => [
                              "p",
                              "k",
                              "s"
                            ],
                  "BODY" => "#line 467 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_st <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7943	8095	
==>[0] : undef;

            splice(@$stack,-$len,$len);

                $$check eq 'ACCEPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		and <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7587	7731	
==>[0] : undef;

            splice(@$stack,-$len,$len);

                $$check eq 'ACCEPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		and <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	2725	2832	
==>ass_$_);\n" foreach (@pmcs);
    print OUT <<'END_C';
}
END_C

    close OUT;

    move_if_diff("$file.tmp", <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	44718	44824	
==>ny more
  $self->{instruction} = undef;
  $self->{regs} = undef;

  return $self;
}

1;
__END__

=head1 NAM <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	4018	4125	
==>rg_names{$f}{$a} = $i;
		    # print STDERR "def $f($a = $i)\n";
		}
		push @code, [$line, $pc, "ARG_count", <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	4517	4624	
==>rg_names{$f}{$a} = $i;
		    # print STDERR "def $f($a = $i)\n";
		}
		push @code, [$line, $pc, "ARG_count", <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Compilers.pm	20	121	
==>, The Perl Foundation.
# $Id: Compilers.pm 11501 2006-02-10 18:27:13Z particle $

=head1 NAME

Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017997	1018087	
==>ultbuffer[26];\n  Parrot_gmtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018922	1019012	
==>ultbuffer[26];\n  Parrot_gmtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9051	9137	
==>$prevoffset;
	tie $prevoffset, q{Parse::RecDescent::OffsetCounter}, \$text, $thisparser <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	229	346	
==>UNDEF'],
  ['',             'print', '"()"'],
  ['',             'branch', 'write_RET'],
  ['write_N_UNDEF','ne', 'I0' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035672	1035761	
==>pad, lex_name);\n    if (!result) {\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036836	1036925	
==>pad, lex_name);\n    if (!result) {\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244018	244283	
==>g_compare(interpreter, l, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244950	245215	
==>g_compare(interpreter, l, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19071	19163	
==>r in.  The header
is usually just "I<modulename> p. I<pagenumber>".

=item $parser->normal_ha <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2910	3052	
==>{ \n     # optional test harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4307	4449	
==>{ \n     # optional test harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) <==
3	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	256	383	
==>fined($code) ) {
        $pir = [ split "\n", $code ];
    }
    $self->{raw_pir} = $pir;

    bless $self, $class;
    return $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653489	653594	
==>)\n        real_exception(interpreter, resume, METH_NOT_FOUND,\n            \"Method '%s' not found\", str <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654650	654755	
==>)\n        real_exception(interpreter, resume, METH_NOT_FOUND,\n            \"Method '%s' not found\", str <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	775	879	
==>$warns, $ccwarn);
    $ccwarn = $conf->data->get('ccwarn');

    # Set gccversion to undef.  This will al <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	1708	1796	
==>-after-statement -I/usr/local/include -I/opt/local/include -pipe -fno-common -Wno-long-do <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1096	1184	
==>-after-statement -I/usr/local/include -I/opt/local/include -pipe -fno-common -Wno-long-do <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1100	1188	
==>-after-statement -I/usr/local/include -I/opt/local/include -pipe -fno-common -Wno-long-do <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614566	614836	
==>"function",
                  "CODE" => 696,
                  "ARGS" => [
                              "i",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 508 \"src/ops/object.ops\" <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	51761	51857	
==>limited at the outermost
level of the code block, so the directive is parsed correctly.

=head2 C <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1085	1189	
==>Jako::Construct::Expression::Value');
  confess "Right is not Value!" if defined $right and not UNIVERSAL <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1113	1217	
==>Jako::Construct::Expression::Value');
  confess "Right is not Value!" if defined $right and not UNIVERSAL <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	785	889	
==>Jako::Construct::Expression::Value');
  confess "Right is not Value!" if defined $right and not UNIVERSAL <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18604	18738	
==>ser, $fct, $args ) = @_;
    my $result;
    my @opcodes = ();
    my @params  = ();
    my @returns = ();
    for my $arg ( @{$ar <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	5228	5322	
==>DEVEL} eq "devel" ? "repository snapshot" : "release",
	  runcore2human($_[0]->{runcore}),
	  $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1693	1796	
==>IR <<"END";
# Regular expression test
# Generated by $0
# Pattern >>$pattern<<

END

    $driver->output <==
3	/Users/nnunley/parrot/languages/regex/test.pl	3361	3464	
==>IR <<"END";
# Regular expression test
# Generated by $0
# Pattern >>$pattern<<

END

    $driver->output <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11297	11391	
==>ct and factorial of 4 is 24
function factorial(a)
	if a then factorial=a*factorial(a-1) else fa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	310870	311054	
==>t",
                  "FLAGS" => ":base_debug",
                  "ARGDIRS" => [],
                  "TYPE" => "function",
                  "CODE" => 362,
                  "ARGS" => [ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	28441	28549	
==>r 'not ok'.  This is for examining the result of 'todo'
tests.  

'name' is the name of the test.

'type' ind <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	8405	8506	
==>t") {
		$mode="<";
	} elsif ($syms[CURR] eq "output") {
		$mode=">";
	} elsif ($syms[CURR] eq "random" <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	339	456	
==>new {
    return bless {};
}

sub output_is() {
    my ($self, $code, $output, $desc) = @_;
  
    my $count = $self-> <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	377	494	
==>new {
    return bless {};
}

sub output_is() {
    my ($self, $code, $output, $desc) = @_;
  
    my $count = $self-> <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1753	1980	
==>rint "Elapsed time:  $N2\n"; # print  "Elapsed time:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 = $N <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	1753	1980	
==>rint "Elapsed time:  $N2\n"; # print  "Elapsed time:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 = $N <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	37363	37461	
==>A string specifying a pattern to be matched at the closing tag. 
If the pattern string is omitted ( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982534	982918	
==>ss",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1102,
                  " <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	7208	7314	
==>"recursion_limit"(998)
    .local pmc __name__
    __name__ = new $DEFVAR
    __name__ = '__main__'
    glo <==
3	/Users/nnunley/parrot/config/init/hints/openbsd.pm	476	571	
==>ibs .= ' -lpthread';
	}
	$conf->data->set(libs => $libs);

	if ((split('-', $Config{archname}))[ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4092	4204	
==>sub _Error {
	print "Parse error.\n";
}

sub _DBLoad {
	{
		no strict 'refs';

			exists(${__PACKAGE__.': <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3885	3989	
==>sub _Error {
	print "Parse error.\n";
}

sub _DBLoad {
	{
		no strict 'refs';

			exists(${__PACKAGE__.': <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	6427	6530	
==>meth\n");
}

my $jit_emit_n = ($genfile =~ /jit_cpu.c/) ? 2 : 1;

open JITCPU, '>', $genfile or die;

pr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997276	997660	
==>ss",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1115,
                  " <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2510	2622	
==>"First line: [$source_line]\n";

      if( ($line = $source_line) =~ s/^\xEF\xBB\xBF//s ) {
        DEBUG and pri <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	52	149	
==>dir  = "runtime/builtin";
my $dynamic_dir = "src/builtin";

print <<EOH;
# This file automatically <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126603	126722	
==>nst INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127738	127857	
==>nst INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128873	128992	
==>nst INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	5820	5959	
==>air_item('', 'mmd'),
        ),
        $self->new_group(
            'Extensions', 
            '',
            $self->c_pair_item('', 'ext <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	1323	1442	
==>,
			    yyerror => sub {
				my $parser = shift;
				die "Error: expected ".join(" ", $parser->YYExpect)
				    ." got <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	49159	49249	
==>means process C<$_> instead.
Omitting the second argument (delimiter brackets) indicates th <==
3	/Users/nnunley/parrot/config/gen/config_pm.pm	547	649	
==>escription = "Recording configuration data for later retrieval";

@args = ();

sub runstep
{
    my ($s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1006382	1006766	
==>ss",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1123,
                  " <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	1314	1432	
==>s');
        return $self;
    }

    cc_gen('config/auto/sizes/test_c.in');
    cc_build();
    my %results = eval cc_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553269	553569	
==>thod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 6 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554665	554965	
==>thod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 6 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556062	556362	
==>thod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 6 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3038	3162	
==>2:
   PRINT "3 in subroutine two"
   RETURN Label2   'Cannot return from here to main
                   'program - only to S <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17005	17129	
==>2:
   PRINT "3 in subroutine two"
   RETURN Label2   'Cannot return from here to main
                   'program - only to S <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10564	10685	
==>);
        return sprintf("\\x%02x", $atom); # Nonportable
    } else {
        die;
    }
}

sub Regex::Ops::Tree::charcl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800159	800488	
==>=> ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 903,
                  "ARGS" => [
                              "p <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	52706	52853	
==>ub
#line 322 "Lua\lua51.yp"
{
            [ @{ $_[1] }, $_[3] ];
        }
	],
	[#Rule 54
		 'explist1', 1,
sub
#line 326 "Lua\lua51.yp"
{ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	2368	2472	
==>g() if $debug;
		}
	}
	feedme;
	#print "Type $type[CURR] Sym $syms[CURR]\n";
	goto UNK if ($type[CURR] ne <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528733	529037	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529615	529919	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math", <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	17283	17376	
==>nything.  The lowest-level
way is to call C<set_source>:

=over

=item $parser->set_source( $f <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	1962	2076	
==>ck

=cut

use strict;
use lib 'lib';

use Pod::Usage;
use Getopt::Long;

use Parrot::OpsFile;
use Parrot::OpLib::co <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2251	2347	
==>ode[%ld]"
);

=item C<access_arg($type, $value, $op)>

Returns the C code for the specified op ar <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1242	1331	
==>l -Wcast-align -Wwrite-strings -Waggregate-return -Winline -W -Wno-unused -Wsign-compare - <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9328	9451	
==>(<value> <op> <value>) {
    #            until (<value> <op> <value>) {
    #
    #   <label>: while (<value> <op> <value>) <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	11631	11737	
==>ansnode ] };
  }

  $self->_generate($transnode);
}

sub _op_case {
}

sub _op_and {
  my ($self,$node) = @ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881347	881519	
==>ic",
                              "i"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882452	882624	
==>ic",
                              "i"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\ <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	6419	6527	
==>int_tail( \@put_pointer );

close NCI;


sub print_head {
    my ($definitions) = @_;
    print NCI << "HEAD" <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	24944	25045	
==>onal {
    my ($self, $op, $R, $lastback) = @_;

    my $back = $self->genlabel('greedy_optional_back' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	764	859	
==>ine, 'eof', undef, '__EOF__');
}

my $BOF = Jako::Token->new_bof(undef, undef);
sub BOF { return <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	5513	5612	
==>?) returns Bool is export {
    Test::proclaim(1, $desc);
}

sub flunk (Str $desc?, :$todo, :$depend <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819525	819615	
==>tack.ops\"\n  Stack_Entry_t * const entry =\n    stack_entry(interpreter, CONTEXT(interpret <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820485	820575	
==>tack.ops\"\n  Stack_Entry_t * const entry =\n    stack_entry(interpreter, CONTEXT(interpret <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10989	11087	
==>nfile") or die "Can't read $infile: $!\n";
    open (OUT, ">$outfile") or die "Can't write $outfile <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11473	11571	
==>nfile") or die "Can't read $infile: $!\n";
    open (OUT, ">$outfile") or die "Can't write $outfile <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11937	12035	
==>nfile") or die "Can't read $infile: $!\n";
    open (OUT, ">$outfile") or die "Can't write $outfile <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	67346	67603	
==>ABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "collect",
                  "FLAGS" => "",
                  "ARGDI <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1187	1293	
==>l) = @_;
    return () unless $self->{DEBUG};
    return () unless $self->{DEBUG_SUPPORT};
    return ("bsr <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10286	10386	
==>, err, str_ic, tmp
    .local int pc, next_pc, bc_length, cur_ic, pop_count, label_num, sp_dest
    . <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10984	11072	
==>PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pre_call_HAS_RETURN_${CURIC}
if "$ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8170	8258	
==>PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pre_call_HAS_RETURN_${CURIC}
if "$ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5832	5920	
==>PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pre_call_HAS_RETURN_${CURIC}
if "$ <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	3730	3840	
==>>{OPS}}) {
	    $_->{experimental} = 1;
	}
    }

    push @{$ops->{OPS}}, @{$temp_ops->{OPS}};
    $ops->{PREA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606767	607060	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getattribute",
                  "FLAGS" => <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	3939	4065	
==>rsion subs\n";
    for my $type (keys %types) {
        next unless my $help = $helpers{$type};
        
        $code .= emit( <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13380	13473	
==>get_arg($node,1));
  $self->_add_inst('','not',[$return,$return]);

  $return;
}

sub _op_bool <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	1060	1179	
==>, @args);
print    footer();

sub open_tmt {
    my ($filename) = @_;

    local $/ = undef;
    open my $file, "<", $fi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	2038	2152	
==>elf->kind, $self->scope, $self->type);
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $han <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319760	320000	
==>YPE" => "inline",
                  "CODE" => 374,
                  "ARGS" => [
                              "i",
                              "n"
                            ],
                  "BODY" => "#line 124 \"src/ops/dotgnu.ops\ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	17817	17993	
==>nts eq $meth) {
                $found = 1;
            }
            elsif (ref($variants) eq 'ARRAY') {
                for my $class (@{ $variants }) {
                    ne <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41469	41557	
==>($scratch=$name);
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	48001	48133	
==>lVariable( $_[0], $_[2] );
            Insert( $_[0], $var );
        }
	],
	[#Rule 21
		 'stat', 12,
sub
#line 138 "Lua\lua51 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1807	1896	
==>utiously:
    $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijk <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1910	1999	
==>utiously:
    $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijk <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9936	10035	
==>e TAP protocol.

This module, like Pugs, is a work in progress. As new features are
added to Pugs, n <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2195	2294	
==>r non-ASCII charsets.  Something should be done about that.
  }
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2298	2397	
==>r non-ASCII charsets.  Something should be done about that.
  }
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3101	3198	
==>interpreter->resume_flag = 1";
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::OpTrans>

=item <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3626	3716	
==>AZY_MOVE_$register_num:
${STACK$register_num} = pop lazy_moves

# Decrement stack height.
P <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5396	5486	
==>AZY_MOVE_$register_num:
${STACK$register_num} = pop lazy_moves

# Decrement stack height.
P <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	501	613	
==>ie;
		print <O>;
		close(O);
		print "\n";
	}
	
}

__DATA__
input a$,
print a$

STOPPLEASE
' Expect 10
sub second <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138156	138280	
==>=> "#line 70 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139052	139176	
==>=> "#line 70 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139948	140072	
==>=> "#line 70 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9470	9587	
==>status == 3	#The next token is not valid: discard it
		and	do {
				$$token eq ''	# End of input: no hope
			and	do <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9042	9156	
==>status == 3	#The next token is not valid: discard it
		and	do {
				$$token eq ''	# End of input: no hope
			and	do <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9481	9580	
==>e libs)
    );

    _run_command("$cc $ccflags $cc_args -I./include -c test.c", 'test.cco', 'test.cc <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	903	1017	
==>mount])
# O (assign, name, val)
# O (fail)
# O (nop)

sub compile {
    my ($self, $expr, $ctx) = @_;
    my ($vals <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1911	2011	
==>ext    { ++$_[0]{'Indent'} }
sub start_over_block   { ++$_[0]{'Indent'} }

sub   end_over_bullet  { - <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1479	1579	
==>ext    { ++$_[0]{'Indent'} }
sub start_over_block   { ++$_[0]{'Indent'} }

sub   end_over_bullet  { - <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	5872	6010	
==>ile
            load_bytecode "PGE.pbc"
            p6rule_compile = compreg "PGE::P6Regex"

            .local string target
            . <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	10322	10427	
==>ys are empty to prevent msvc compiler errors
        my $arg_types  = "{ " . join(", ", scalar $op->arg_ty <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	3777	3869	
==>ression.
# By default, all calls are propagated to the subexpression.
package Regex::Ops::Tre <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5507	5611	
==>ordering of libs might be crucial
sub gather_groups_and_libs {
    my @pmcs = @_;

    my ( %group_files, <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5718	5822	
==>ordering of libs might be crucial
sub gather_groups_and_libs {
    my @pmcs = @_;

    my ( %group_files, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6715	6811	
==>nd recursively through parent Blocks for a Block with the
specified kind (such as a while loop) a <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21037	21145	
==>0);
  return $return;
}

sub _op_zero_p {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	3365	3464	
==>ne of all the above options are given, they are ANDed.
They can also be negated with a "no", for exa <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	1065	1159	
==>pl or otherwise explicitly specified with the
-conf option. You may set any command line option <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948130	948402	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948929	949201	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949729	950001	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset" <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13431	13535	
==>turn,$return]);

  $return;
}

sub _op_boolean_p {
}

sub _op_eqv_p {
}

sub _op_eq_p {
}

sub _op_equal_ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2738	2838	
==>e"
GOSUB Sub1
PRINT "ERR this line in main routine should be skipped"
Label1:
   PRINT "5 back in mod <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16705	16805	
==>e"
GOSUB Sub1
PRINT "ERR this line in main routine should be skipped"
Label1:
   PRINT "5 back in mod <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	635	759	
==>nf->options->get('verbose');

    my $cc        = $conf->data->get('cc');
    my $libs      = $conf->data->get('libs');
    m <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	576	700	
==>nf->options->get('verbose');

    my $cc        = $conf->data->get('cc');
    my $libs      = $conf->data->get('libs');
    m <==
3	/Users/nnunley/parrot/config/auto/readline.pm	588	712	
==>nf->options->get('verbose');

    my $cc        = $conf->data->get('cc');
    my $libs      = $conf->data->get('libs');
    m <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5118	5248	
==>) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  ";
        if ( exists $op->{result} and scalar( @{ $op->{result} <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6150	6280	
==>) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  ";
        if ( exists $op->{result} and scalar( @{ $op->{result} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	162	262	
==>cker;
use strict;
use Carp ();
use Pod::Simple::Methody ();
use Pod::Simple ();
use vars qw( @ISA $VE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131272	131434	
==>"
                            ],
                  "BODY" => "#line 306 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132127	132289	
==>"
                            ],
                  "BODY" => "#line 306 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132982	133144	
==>"
                            ],
                  "BODY" => "#line 306 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	5723	5880	
==>ine, "apparent non-4 space indenting (" . length($indent) . " spaces)");
                }
            }
            $f = undef;
        }
    }
}


# tabs ar <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	317688	317789	
==>& {{\@1}} <= 32767 ) {\n    {{\@1}} = (INTVAL)((Parrot_Int2)({{\@1}}));\n  }\n  else\n  {\n    interna <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	31852	31952	
==>n?
		my $dest_reg;
		if ($rule->{'pir'} =~ /\$\{STACK0\}/ &&
		    $rule->{'pir'} =~ /\$\{STOREREG\}/ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23380	23473	
==>erate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp = $self->_generate <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23842	23935	
==>erate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp = $self->_generate <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	15706	15825	
==>XOR
{
    my ($n, $c, $cmt) = @_;
    binary_word('xor', $cmt);
}

sub BINARY_LSHIFT
{
    my ($n, $c, $cmt) = @_;
    b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664905	665228	
==>,
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 743,
                  "ARGS" => [
                              "p",
                              "ki"
                            ],
                  "BODY" => "#line 359 \"src/ops/ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	365	465	
==>ase qw(Jako::Construct::Statement);

my %block_types = (
  'while'    => { PREFIX => "_W", NEXT => 'C <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	386	486	
==>ase qw(Jako::Construct::Statement);

my %block_types = (
  'while'    => { PREFIX => "_W", NEXT => 'C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199923	200104	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 373 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200820	201001	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 373 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201717	201898	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 373 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\ <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	4142	4261	
==>, 208,
 'Ntilde'   , 209,
 'Ograve'   , 210,
 'Oacute'   , 211,
 'Ocirc'    , 212,
 'Otilde'   , 213,
 'Ouml'     , 214, <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	5478	5587	
==>ng:
    $self->{'_transcoder'} && $self->{'_transcoder'}->($line);

    # HERE WE CATCH =encoding EARLY!
    i <==
3	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	1595	1698	
==>ted, $desc ) = @_;
  
  my $test_no = $self->{builder}->current_test + 1;

  my $output = $self->gen_out <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44378	44655	
==>,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "popmark",
                  "FLAGS" => "",
                  "ARG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45019	45296	
==>,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "popmark",
                  "FLAGS" => "",
                  "ARG <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	32963	33075	
==>it if plan() was never called.  This is so "require Test::Simple" 
    # doesn't puke.
    if( ($self->{Original_ <==
3	/Users/nnunley/parrot/languages/lua/luac.pl	356	461	
==>error}   = 1;    # 0, 1
$parser->YYData->{verbose_warning} = 1;    # 0, 1
$parser->YYData->{verbose_info <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621740	621834	
==>(ccont) & SUB_FLAG_TAILCALL) {\n\t    PObj_get_FLAGS(ccont) &= ~SUB_FLAG_TAILCALL;\n\t    --ctx <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29580	29666	
==>(ccont) & SUB_FLAG_TAILCALL) {\n\tPObj_get_FLAGS(ccont) &= ~SUB_FLAG_TAILCALL;\n\t--ctx <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3209	3329	
==>->u.number",
    'pc' => "CONST(%ld)->u.key",
    'sc' => "CONST(%ld)->u.string",
    'kc' => "CONST(%ld)->u.key",
    'k <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3017	3137	
==>->u.number",
    'pc' => "CONST(%ld)->u.key",
    'sc' => "CONST(%ld)->u.string",
    'kc' => "CONST(%ld)->u.key",
    'k <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2120	2235	
==>->u.number",
  'pc'  => "CONST(%ld)->u.key",
  'sc'  => "CONST(%ld)->u.string",
  'kc'  => "CONST(%ld)->u.key",
  'k <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1440	1537	
==>Section::Docs->new,
        Parrot::Docs::Section::Examples->new,
        Parrot::Docs::Section::P <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	22382	22486	
==>rn [ 'neg', [] ]; }
	],
	[#Rule 39
		 'classpieces', 2,
sub
#line 170 "lib/Regex/Grammar.y"
{ push @{$_[1 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3460	3567	
==>uter segment\n";
		next;
	}
	print CODE<<EOD;
	.sub ${seg}_debug
		saveall
		.param int debline
		find_globa <==
3	/Users/nnunley/parrot/lib/Test/More.pm	30053	30230	
==>{
                push @Data_Stack, { type => $type, vals => [$e1, $e2] };
                $ok = 0;
            }
            elsif( $type eq 'ARRAY' ) {
                $ok = _e <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	2868	2997	
==>patch')
        
  .local int argc
  .local string pir
  pir = ''
  argc = elements argv
END_PIR
    
    return $code;
}

sub arg <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	11473	11581	
==>$transnode = { children => [ { value => 'if' },
				 _get_arg($clause,0),
				 { children => [ { value => 'be <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1522	1634	
==>ods

=over 4

=item * C<data()>

Provides access to a L<Parrot::Configure::Data> object intended to contain
initi <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	11356	11459	
==>h
isdigit     ctype.h
isfinite    math.h
isgraph     ctype.h
isgreater   math.h
isgreatereq math.h
isinf <==
3	/Users/nnunley/parrot/lib/Test/More.pm	34578	34670	
==>erloaded objects are compared B<as strings>.  This prevents
Test::More from piercing an objec <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561944	562043	
==>rpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", {{\@3}});\n  }\n  {{=next}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563028	563127	
==>rpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", {{\@3}});\n  }\n  {{=next}};\n", <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	6945	7039	
==>("Found %d external symbols\n", scalar(@external_symbols));
    printf("Of these, %d are not de <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1455	1565	
==>e} = $tokens->[$count++];
  }
  
  return ($count,$temp);
}

sub _dataflow {
  my $node = shift;

  if(exists $ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21034	21169	
==>( $parser, $expr1, $op, $expr2 ) = @_;
    my %type = (
        '+'  => 'number',
        '-'  => 'number',
        '*'  => 'number' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1764	1862	
==>ot %d) in call to '%s'.",
    scalar(@formal_args), scalar(@args), $name)
    unless @formal_args = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1464	1562	
==>ot %d) in call to '%s'.",
    scalar(@formal_args), scalar(@args), $name)
    unless @formal_args = <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	2811	2952	
==>ength;
            my $arg = unpack "x$offset l", $pf->byte_code;
            $offset += sizeof('op');
            push @args, $arg;
        } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60166	60407	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "warningsoff",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60815	61056	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "warningsoff",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	9975	10060	
==>dstruct.pmc managedstruct.pmc delegate.pmc csub.pmc compiler.pmc exception.pmc version <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	1232	1344	
==>ock
  my $kind   = shift; # Required: string (TODO: domain?)
  my $type   = shift; # Optional: TODO: type?
  my $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033452	1033545	
==>t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    VTABLE_set_pmc_keyed_str(interpreter, l <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034550	1034643	
==>t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    VTABLE_set_pmc_keyed_str(interpreter, l <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	9377	9480	
==>parens-- if ($syms[CURR] eq ")");
		#print "Read $syms[CURR]...";
		last if (not $parens  and
			$syms[C <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5900	5990	
==>rdon C<brent@brentdax.com>.

=head1 AUTHOR

Joshua Hoblitt C<jhoblitt@cpan.org>

=head1 SEE <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6749	6839	
==>rdon C<brent@brentdax.com>.

=head1 AUTHOR

Joshua Hoblitt C<jhoblitt@cpan.org>

=head1 SEE <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	29994	30093	
==>ub _op_substring {
}

sub _op_string_append {
}

sub _op_string_list {
}

sub _op_list_string {
}

s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19163	19256	
==>alfpoint_size( I<halfpoint_integer> );

This method sets the size (in half-points, like 26 for <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	8157	8319	
==>lexer error $1.\n"),
                last;
        }
    }
}

sub _InitLexico {
    my $parser = shift;

    my %keywords = (
        'and'      => 'AND' <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	13580	13696	
==>method to add a footer to the end
of the document.

=cut

sub do_end 
{
    my $self = shift;
    
    print {$self-> <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	7259	7387	
==>instruction or pir
        elsif (/^(instruction|pir)$/) {
            if ($has_trans) {
                die "Only one of instruc <==
3	/Users/nnunley/parrot/config/gen/icu.pm	4176	4268	
==>f->data->set(testheaders => "#include <$header>\n");
    $conf->data->set(testheader  => "$he <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	21131	21240	
==>($self,@stack) = @_;
  
  if(@stack == 1 and @{ $stack[0] } == 3 and !ref $stack[0][2]) {
    # VERY common ca <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2404	2509	
==>>name, $sym->line, $sym->file);
  }

  #
  # Now that we've decided to actually declare the constant, we w <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2151	2256	
==>>name, $sym->line, $sym->file);
  }

  #
  # Now that we've decided to actually declare the constant, we w <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1710	1887	
==>_ext   => '.dll',
            a          => '.lib',
            o          => '.obj',
            cc_o_out   => '-Fo',
            cc_exe_out => '-out:',
            cc_ldflags = <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3589	3766	
==>_ext   => '.dll',
            a          => '.lib',
            o          => '.obj',
            cc_o_out   => '-Fo',
            cc_exe_out => '-out:',
            cc_ldflags = <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1872	1968	
==>imple::Debug (\$debuglevel, 0);
 ...some stuff that uses Pod::Simple to do stuff, but which
  you <==
3	/Users/nnunley/parrot/languages/APL/t/APL.pm	1535	1655	
==>m/\n\n$/smx) {
      chomp $output;  # XXX Keep hackin' it up!
    }

    my $todo   = $block->todo;
    if (defined($tod <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104149	1104254	
==>\n\t{{\@1}} = pmc_new_init(interpreter, type, {{\@3}});\n\t{{+=4}};\n",
                  "experimental" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105364	1105469	
==>\n\t{{\@1}} = pmc_new_init(interpreter, type, {{\@3}});\n\t{{+=4}};\n",
                  "experimental" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	17173	17266	
==>.

If C<$trans> (an C<Parrot::OpTrans> subclass) is supplied then
substitutions are made.

=cu <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	36245	36362	
==>t we catch errors here.
        $self->_handle_encoding_second_level($para);

        next;  # and skip
      } elsif( <==
3	/Users/nnunley/parrot/lib/Test/More.pm	18227	18332	
==>ike use_ok(), except it requires the $module or $file.

=cut

sub require_ok ($) {
    my($module) = shift <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11971	12062	
==>C}_LAZY_MOVE_RET_CONT

# Can do a lazy move.
PRE_CALL_${CURIC}_LAZY_MOVE_RET:
${STEMP0} = po <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	1015	1140	
==>smo )
	    {
	        push(@abstract_items, 
	            $self->new_item('', $dist->relative_path($file)));
	    }
	}
	
	retu <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9740	9858	
==>.ldo', 'test.ldo', $verbose)
        and confess "Linker failed (see test.ldo)";
}

=item C<cc_run()>

Calls the F<test <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	2190	2291	
==>parser->YYData->{scope} = $scope;
    my $symbtab = shift @{ $parser->YYData->{scopef} };
    $parse <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	903	1014	
==>b compile
{
  my $self = shift;
  my ($compiler) = @_;
  
  my $ident_name = $self->ident->value;

  my $ident = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	903	1012	
==>b compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $ident_name = $self->ident->value;

  my $ident = <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	2220	2315	
==>HTML documentation.

If C<$silent> is true then progress is not reported.

If C<$delete> is true <==
3	/Users/nnunley/parrot/lib/Test/More.pm	20963	21077	
==>en.  For that you
use TODO.  Read on.

=cut

#'#
sub skip {
    my($why, $how_many) = @_;

    unless( defined $how <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	1833	1934	
==>d F<perlint.h>).

Next, the file is searched for C</pmclass \w*/> which attempts to find the
class bei <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4531	4630	
==>p = $compiler->temp_reg($calc_type);
    $compiler->emit("  $temp = $left $op $right");
    $compile <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7231	7342	
==>t_pushint($reg);
}

sub output_pushint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);

    if ($ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6873	6984	
==>t_pushint($reg);
}

sub output_pushint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);

    if ($ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	7852	7956	
==>is() and
isnt() know what the test was and why it failed.  For example this
test:

    my $foo = 'waffle' <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	1429	1557	
==>{
            next if defined $ignore and $dir->name =~ /$ignore/;
            
            push @files, $dir->files_of_type($typ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033329	1033417	
==>nd_pad(interpreter, lex_name, ctx);\n    if (PMC_IS_NULL(lex_pad)) {\n\treal_exception(in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034427	1034515	
==>nd_pad(interpreter, lex_name, ctx);\n    if (PMC_IS_NULL(lex_pad)) {\n\treal_exception(in <==
3	/Users/nnunley/parrot/config/auto/alignptrs.pm	184	277	
==>ment

=head1 DESCRIPTION

Determine the minimum pointer alignment.

=cut

package auto::alignp <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	51555	51682	
==>e the first rule 
					       is defined.");
				}
				else
				{
					undef $self->{_AUTOACTION};
					$self->{_AUTOTREE}{NODE} <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	17631	17751	
==>e =~ s/\.\w+$/.dump/;

        my $existing = find_file($include, $file);
        if ($existing && -e $existing && dump_i <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	1811	1926	
==>ng *",
       T => "char **",
     );

my %other_decl =
     ( p => "PMC *final_destination = pmc_new(interpreter, e <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	4693	4820	
==>cause code to be processed out of order relative
        #  to pods, but in order relative to cuts.
        
        # Note also <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059971	1060086	
==>],
                  "BODY" => "#line 208 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060876	1060991	
==>],
                  "BODY" => "#line 208 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920480	920780	
==>" => "sprintf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921372	921672	
==>" => "sprintf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	922265	922565	
==>" => "sprintf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4534	4654	
==>,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note that for loading debugging <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4309	4420	
==>,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note that for loading debugging <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	2785	2889	
==>aram pmc argv

  .local pmc compiler
  .get_from_HLL(compiler, '_tcl', 'compile_dispatch')
        
  .lo <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4164	4337	
==>t;
            s/^\\([0-9]{1,3})//
                and $str .= chr $1, 
                last;

            s/^\\//
                and $parser->Error("Invalid escape se <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2650	2822	
==>t;
            s/^\\([0-9]{1,3})//
                and $str .= chr $1,
                last;

            s/^\\//
                and $parser->Error("Invalid escape se <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	3216	3317	
==>n STDOUT, '>', $h_file
    or die "can not open '$h_file': $!\n";
print <<"END";
$header
#if !defined( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355122	355222	
==>const p = {{\@1}};\n  STRING * const s = (VTABLE_get_string(interpreter, p));\n  if (s) {\n    PIO_pu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360822	360922	
==>const p = {{\@1}};\n  STRING * const s = (VTABLE_get_string(interpreter, p));\n  if (s) {\n    PIO_pu <==
3	/Users/nnunley/parrot/lib/Test/More.pm	27642	27737	
==>to help figure
out what went wrong.  They were written before is_deeply() existed
because I coul <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826556	826644	
==>rnal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_FLOAT) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827626	827714	
==>rnal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_FLOAT) <==
3	/Users/nnunley/parrot/lib/Parrot/PMC.pm	673	780	
==>andler => 25,
	Coroutine => 26,
	Eval => 27,
	NCI => 28,
	Float => 29,
	Integer => 30,
	BigInt => 31,
	Compl <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	772	866	
==>st the uninitialised data symbols.

=item C<--const>

=item C<-C>

List the constant (read-only <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10250	10335	
==>xe6db99e5,/* 46 */
HH,$c,$d,$a,$b,$_[19],16,0x1fa27cf8,/* 47 */
HH,$b,$c,$d,$a,$_[6],2 <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	4851	4948	
==>eds an external library.

=item C<hll HLL>

The High level language this PMC corresponds to.

=ite <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2500	2596	
==>'t discover backward branches until late to do
	# otherwise. Also, putting a label everywhere doe <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1078	1174	
==>'t discover backward branches until late to do
	# otherwise. Also, putting a label everywhere doe <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	10598	10740	
==>loop;

      next;
    }

    #
    # Increment and Decrement:
    #
    #   <var> <op>;
    #

    if ($token->is_ident and $self->get(1)->is_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1370	1474	
==>::Simple::DEBUG = sub () { $$variable } ;
    $$variable = $value;
    print "# Starting Pod::Simple::DEB <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	10233	10334	
==>) {
            error("MANIFEST", $line, "$_: case-insensitive collision with " . $files_in_dir_nocase <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5921	6049	
==>ss->{flags}{group}
          or next;
        ($group) = keys %$group;
        $pmc_group{$pmc} = $group;
        push @{ $group_ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6132	6260	
==>ss->{flags}{group}
          or next;
        ($group) = keys %$group;
        $pmc_group{$pmc} = $group;
        push @{ $group_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7033	7131	
==>ncat ${STEMP0}
${INS} = concat " = pop s\n"

# Next parameter.
goto pre_call_PLOOP_${CURIC}

# Fini <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574822	575103	
==>{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86565	86838	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924465	924738	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290813	290982	
==>"
                            ],
                  "BODY" => "#line 940 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} == {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291659	291828	
==>"
                            ],
                  "BODY" => "#line 940 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} == {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292505	292674	
==>"
                            ],
                  "BODY" => "#line 940 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} == {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	12625	12736	
==>elf = shift;
    my ($name, $tree) = @{ $self->{args} };
    my $expr = $tree->render;
    if ($name eq 'default <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031508	1031617	
==>type)\n        {{\@1}} = -1;\n    else\n        {{\@1}} = data_types[{{\@2}} - enum_first_type].size;\n  {{+=3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032377	1032486	
==>type)\n        {{\@1}} = -1;\n    else\n        {{\@1}} = data_types[{{\@2}} - enum_first_type].size;\n  {{+=3 <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	4556	4661	
==>ats{$category->($_)} }, $_ for @smokes;

  $cats{$_} = [
    (sort {
      $b->{revision} <=> $a->{revisio <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	717	815	
==>elf = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->nix_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	183	281	
==>elf = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->nix_ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	43627	43733	
==>failure in 5.005_03 when compiled
	# with debugging:
	# splice(@_, 2, 0, 1);
	# return _generate(@_);
	# Ap <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6924	7015	
==>tr
s1$="The longer string"
found$="longer"
bogus$="not"
print "Found  (5): ", instr(s1$, fou <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18653	18744	
==>tr
s1$="The longer string"
found$="longer"
bogus$="not"
print "Found  (5): ", instr(s1$, fou <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15173	15275	
==>= $_) =~
      s/([F\x00-\x1F\-\\\{\}\x7F-\xFF])/$Escape{$1}/g;  # ESCAPER
      $x =~ s/([^\x00-\xFF]) <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1506	1640	
==>ap_ret_abs($addr)\n";

    if ($addr eq '0')
    {
        return "return (0);"
    }
    else
    {
        return "if ((opcode_t *) $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2031	2164	
==>ap_ret_abs($addr)\n";

    if ($addr eq '0')
    {
        return "return (0);"
    }
    else
    {
  	    return "if ((opcode_t *) $ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	55543	55640	
==>s the next extracted field and pushed onto the list of fields.
If the extractor was specified in a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44949	45138	
==>ps/core.ops\"\n  Parrot_pop_mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45591	45780	
==>ps/core.ops\"\n  Parrot_pop_mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	4222	4376	
==>m.Web.Services
            System.Web
            System.Xml
        /;
#             System.Windows.Forms ### XXX Removed - bugz0r
        my $code = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11109	11328	
==>UP_NULL);\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11898	12117	
==>UP_NULL);\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	7569	7685	
==>eed.
    my $type = $t->{name};

    if ($type eq 'seq' && ! $t->{add_check_visited}) {
        # Split the seq up in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459974	460299	
==>n;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460962	461287	
==>n;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461950	462275	
==>n;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  " <==
3	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	2188	2299	
==>=~ s/\.o/\.c/g;
        copy_file($src, "miniparrot/$src");
    }
}

sub copy_src {
    print "** $0: copying so <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3904	4014	
==>rm'");
        $prm=unpack('@2A*',$prm);
		$$outhash{$prm}=$value;
	}
	for (@$mandatory) {
			exists($$out <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3707	3812	
==>rm'");
        $prm=unpack('@2A*',$prm);
		$$outhash{$prm}=$value;
	}
	for (@$mandatory) {
			exists($$out <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	358	454	
==>e C code, and creates a different type of run loop. The
methods defined here supply various defau <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	22792	22915	
==>++;	# its for sure not that simple
    # we have a tuple argumen
    my $tupl = $stack[-1];
    print <<EOC;
    # tuple $tu <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12352	12483	
==>> 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 9
		ACTIONS => {
			":" => 42,
			'S <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	790	882	
==>NST
#define REL_PC     ((size_t)(cur_opcode - interpreter->code->base.data))
#define CUR_OPCO <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	906	998	
==>NST
#define REL_PC     ((size_t)(cur_opcode - interpreter->code->base.data))
#define CUR_OPCO <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	4030	4133	
==>ver 4

=cut

package Parrot::OpsFile;

use strict;
use warnings;

use base qw( Exporter );

use Parrot:: <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	4824	4926	
==>class, $has_push, $has_pop, $has_args, $has_trans,
	    $has_typeinfo);

    # Iterate over keys and do <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	4202	4299	
==>open my $out, '>', "$target.tmp" or die "Can't open $target.tmp: $!";

    if ($options{commentTyp <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	2073	2174	
==>t many tokens
# (at most, given the possibilitiy of running off the end) are returned. If
# a count is <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	28393	28491	
==>whether or not the test literally
printed 'ok' or 'not ok'.  This is for examining the result of 't <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321884	322147	
==>ME" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322655	322918	
==>ME" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323427	323690	
==>ME" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1989	2098	
==>, $ctx, $pass_label, $fail_label, %options);
        return list_to_pasm($code, $ctx, %options);
    }
    # H <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78890	78982	
==>ps/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  void * c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80411	80503	
==>ps/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  void * c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	27722	27946	
==>ELEMS(signature);\n    {{+=argc + 2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	28547	28771	
==>ELEMS(signature);\n    {{+=argc + 2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PA <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16692	16787	
==>elf->_save_1 ('P');

  $self->_add_inst ('', 'new',[$return,'.Undef']);

  my @reverse = reverse <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7800	7985	
==>1 ]
                        :   ();

            $semval = $code ? &$code( $self, @sempar )
                            : @sempar ? $sempar[0] : undef;

            splice(@$stack, <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7448	7627	
==>1 ]
                        :   ();

            $semval = $code ? &$code( $self, @sempar )
                            : @sempar ? $sempar[0] : undef;

            splice(@$stack, <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	3472	3581	
==>ace-separated list of interfaces */
    STRING* isa_str;         /* space-separated list of classes */
    PMC <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	1032	1135	
==>s()   and convert_tests() if $opt_u;
    convert_tests() if $opt_c;
    return run_tests(grep {-f $_} @A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208369	208461	
==>\@1}}->vtable->get_number(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209310	209402	
==>\@1}}->vtable->get_number(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17244	17350	
==>pen(), ")\n";
    
    if($para_type eq '=for') { #//////////////////////////////////////////////
      # F <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	16402	16502	
==>turn whether the dump of a file is newer than the PMC file.
(If it's not, then the PMC file has chang <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7087	7187	
==>tr(s1$, "")
print "Start (11): ", instr(6, s1$, " ")
print "Inval  (0): ", instr(4, bogus$, "t")
' in <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18816	18916	
==>tr(s1$, "")
print "Start (11): ", instr(6, s1$, " ")
print "Inval  (0): ", instr(4, bogus$, "t")
' in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23425	23783	
==>=> [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 31,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 419 \"src/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035608	1035697	
==>lex_pad))\n\tresult = VTABLE_get_pmc_keyed_str(interpreter, lex_pad, lex_name);\n    if (! <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036772	1036861	
==>lex_pad))\n\tresult = VTABLE_get_pmc_keyed_str(interpreter, lex_pad, lex_name);\n    if (! <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	13259	13364	
==>.
    $file = $self->{TARGET}->file_with_relative_path($path);
    
    # There's no point in linking to t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365245	365341	
==>/io.ops\"\n  if ({{\@2}} && {{\@1}}) {\n    PIO_putps(interpreter, {{\@1}}, {{\@2}});\n  }\n  els <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366085	366181	
==>/io.ops\"\n  if ({{\@2}} && {{\@1}}) {\n    PIO_putps(interpreter, {{\@1}}, {{\@2}});\n  }\n  els <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623995	624172	
==>OP_set_returns_pc);\n    ((void**)cur_opcode)[1] = mic->m.sig;\n    {{+=0}};\n",
                  "LABELS" => [
                                0
                              ] <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	965	1067	
==>} else {
    die "Error: Cannot load rules file $rules_file: $!\n";
}

# Create metavariables table.
my <==
3	/Users/nnunley/parrot/config/auto/signal.pm	201	300	
==>nes some signal stuff.

=cut

package auto::signal;

use strict;
use vars qw($description @args);

u <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	5195	5368	
==>name" if $const;
    }

    $conf->data->set(
        pmc                  => $pmc_list,
        pmc_names            => join(" ", @names),
        TEMP_pmc_o           => $T <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	3960	4080	
==>s//g;
		    $a = qq!"$a"!;   # quote argument
		    $def_arg_names{$f}{$a} = $i;
		    # print STDERR "def $f($a = $i)\n" <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	4459	4579	
==>s//g;
		    $a = qq!"$a"!;   # quote argument
		    $def_arg_names{$f}{$a} = $i;
		    # print STDERR "def $f($a = $i)\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946819	947057	
==>tion",
                  "CODE" => 1065,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 526 \"src/ops/string.ops\"\n  INT <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	2816	2920	
==>ed: Jako::Construct::Block
  my $name = shift; # Required: string (TODO: domain)
  my $sym  = shift; # Re <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	522	611	
==>codes('VerbatimFormatted');
  return $new;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	69402	69553	
==>" => "function",
                  "CODE" => 92,
                  "ARGS" => [],
                  "BODY" => "#line 1082 \"src/ops/core.ops\"\n  Parrot_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85561	85647	
==>obals, IGLOBALS_COMPREG_HASH);\n  {{\@1}} = VTABLE_get_pmc_keyed_str(interpreter, compr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86468	86554	
==>obals, IGLOBALS_COMPREG_HASH);\n  {{\@1}} = VTABLE_get_pmc_keyed_str(interpreter, compr <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	351	464	
==>ERR.say("Parameter to lib.import() must be directory, not file");
        }
        # add to the @*INC, but do not <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026513	1026623	
==>0 \"src/ops/sys.ops\"\n   {{\@1}} = sysinfo_i(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1027270	1027380	
==>0 \"src/ops/sys.ops\"\n   {{\@1}} = sysinfo_i(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	19057	19162	
==>'};
  my $merge = $self->{'merge_text' };
  return unless $nixx or $merge;

  DEBUG > 2 and print "\nStart <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	575	673	
==>e build prefix. Defaults to ''.

=item C<prefix>

The install prefix. Defaults to '/usr'.

=item C< <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	804	902	
==>e build prefix. Defaults to ''.

=item C<prefix>

The install prefix. Defaults to '/usr'.

=item C< <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	5875	5997	
==>DOUT to
    STDERR    filehandle to redirect STDERR to
    CD        directory to run the command in

For example:

    # e <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4779	4878	
==>->scope eq 'global')) {
    my $pmc_type = $dest_ident->type->imcc_pmc;
    my $pmc_reg = $compiler- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2842	2941	
==>->scope eq 'global')) {
    my $pmc_type = $dest_ident->type->imcc_pmc;
    my $pmc_reg = $compiler- <==
3	/Users/nnunley/parrot/config/auto/gc.pm	1330	1442	
==>=for nothing

    cc_gen('config/auto/gc/test_c.in');
    eval { cc_build(); };
    my $test = 0;
    unless ($@) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720207	720316	
==>PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721407	721516	
==>PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9026	9148	
==>t it aaaaall back...
        $self->unget_token(@to_unget);

      } elsif( $tagname =~ m/^over-/s ) {
        push @stack, <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3936	4036	
==>failLabel, $lenvar) = @_;
    $lenvar ||= "<rx_len>";
    my $fail = $self->output_label_use($failLab <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3650	3750	
==>failLabel, $lenvar) = @_;
    $lenvar ||= "<rx_len>";
    my $fail = $self->output_label_use($failLab <==
3	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	3316	3447	
==>type, $name ) = @_;
        $self->{symbol}  = $symb;
        $self->{class}   = $klass;
        $self->{type}    = $type if ( de <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227428	227609	
==>interpreter, {{\@1}}), {{\@2}}) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228408	228589	
==>interpreter, {{\@1}}), {{\@2}}) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
3	/Users/nnunley/parrot/config/auto/alignptrs.pm	971	1087	
==>in this test.
        $align = 4;
        $conf->data->set(ptr_alignment => $align);
        $self->set_result = "for <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	9198	9341	
==>osh        math.h
coshf       math.h
coshl       math.h
cosl        math.h
cpow        complex.h
cpowf       complex.h
cpowl       complex.h
cpr <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2363	2475	
==>lf, $what) = @_;
    $what = value($what);
    return ("print $what;");
}

sub output_test {
    my ($self, $test <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2680	2791	
==>lf, $what) = @_;
    $what = value($what);
    return ("print $what");
}

sub output_test {
    my ($self, $test <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	6424	6534	
==>_.  These are likely to be internal
    # variables used by libc macros.
    my @symbols = grep { ! /^_/ } sort <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	6144	6243	
==>Interprets the output of your test program.

=back


=head1 AUTHORS

Idea by Tony Bowden and Paul Jo <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	1418	1512	
==>lation?

=item * Fragment describe_file() - it shouldn't both `cat` and dispatch
on file suffix <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731263	731484	
==>ODE" => 820,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 124 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4087	4190	
==>fess "No symbol name!"  unless defined $name;
  confess "Extra arguments!" if @_;

  return $self->{SYMB <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3069	3167	
==>:Simple::Debug (\$debug_level,0);  # or some integer

is basically equivalent to this:

  my $debug <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	1914	2033	
==>kage eq "";
    my %meta;
    @meta{split(/,/, $meta)} = ();
    $meta{$_} = 1 for (keys %meta); # Laziness

    my $ent <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756733	756820	
==>\n  {{\@1}}->vtable->assign_string_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757523	757610	
==>\n  {{\@1}}->vtable->assign_string_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n" <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30599	30708	
==>cefirst($text))
							if defined $::RD_TRACE;').'
		push @item, '.($::RD_NO_HITEM ? ''
			       : '$item{'.$ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28523	28630	
==>cefirst($text))
					if defined $::RD_TRACE;').'
		push @item, '.($::RD_NO_HITEM ? ''
			       : '$item{'.$ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32802	32908	
==>cefirst($text))
							if defined $::RD_TRACE;').'
		push @item, ' . ($::RD_NO_HITEM ? ''
				 : '$item{'.$ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	8311	8411	
==>load and calling, but not with
    # anything else.
	if ($has_typeinfo && $rule->{'class'} ne 'op' && <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10841	10941	
==>d ref $self and $self->isa("Jako::Construct::Block");
  confess "No content!"      unless @_;
  confe <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	73599	73696	
==>_[0]->{namespace}/;
	no strict "refs";
	
	croak "Unknown starting rule ($AUTOLOAD) called\n"
		unl <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	2736	2856	
==>ype =~ s/\./\&046;/g;
    print "      <item>$type</item>\n";
    $types{$type} = 1;
}

print <<END;
    </list>

    <co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46941	47044	
==>ops\"\n  if ({{\@1}} != 0) { Interp_debug_SET(interpreter,   {{\@1}}); }\n  else         { Interp_debug_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47724	47827	
==>ops\"\n  if ({{\@1}} != 0) { Interp_debug_SET(interpreter,   {{\@1}}); }\n  else         { Interp_debug_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080164	1080414	
==>DE" => 1199,
                  "ARGS" => [
                              "p",
                              "i",
                              "k"
                            ],
                  "BODY" => "#line 145 \"src/ops/experimental.ops\"\n  if <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	2788	2916	
==>ent and empty lines
        next if (($line =~ m/^;/) || ($line =~ m/^\s*$/));
        if (!defined($function) && !defined($templ <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	10242	10362	
==>a_preamble_ref},
            "t_$temp_num = (int)GET_NCI_I($reg_num);";
        return "t_$temp_num";
    };
    /3/ && d <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89263	89488	
==>line 38 \"src/ops/bit.ops\"\n  {{\@1}} &= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90001	90226	
==>line 38 \"src/ops/bit.ops\"\n  {{\@1}} &= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27880	27983	
==>elf->_add_inst('','div',[$return,$return,$temp]);
      $self->_restore($temp);
    }
  }
  return $retu <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	41349	41439	
==>n function to C<extract_tagged>.

The difference between C<extract_tagged> and the anonymou <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710781	710866	
==>PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  PIO_softspace(interpreter, io <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711615	711700	
==>PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  PIO_softspace(interpreter, io <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863511	863795	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "bytelength",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864402	864686	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "bytelength",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800522	800689	
==>"k",
                              "s"
                            ],
                  "BODY" => "#line 467 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	779	875	
==>en> and inherits all its methods,
and adds these methods:

=over

=item $token->tagname

This ret <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1205	1301	
==>en> and inherits all its methods,
and adds these methods:

=over

=item $token->tagname

This ret <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	623	720	
==>nfess "Op is not defined!" unless defined $op;
  confess "Right is not defined!" unless defined $r <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	635	732	
==>nfess "Op is not defined!" unless defined $op;
  confess "Right is not defined!" unless defined $r <==
3	/Users/nnunley/parrot/lib/Test/More.pm	5065	5156	
==>PACKAGE__->_export_to_level(1, __PACKAGE__, @imports);
}


=head2 Test names

By convention, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615015	615147	
==>next, NO_CLASS,\n            \"Class not parent of object\");\n    }\n    {{\@1}} = offset;\n    {{=next}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616166	616298	
==>next, NO_CLASS,\n            \"Class not parent of object\");\n    }\n    {{\@1}} = offset;\n    {{=next}};\n",
                  "LA <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	392	521	
==>sion);

sub new
{
  my $class = shift;
  my ($left, $op);

  return bless {
    LEFT  => $left,
    OP    => $op
  }, $class;
}

1 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	52625	52787	
==>$_[0], $_[1] ),
            ];
        }
	],
	[#Rule 53
		 'explist1', 3,
sub
#line 322 "Lua\lua51.yp"
{
            [ @{ $_[1] }, $_[3] ];
        }
	] <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11970	12077	
==>$self, $uid, $name, $fail) = @_;
    my $fail_label = $self->output_label_use($fail);
    my @ops;
    if (d <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	12636	12743	
==>$self, $uid, $name, $fail) = @_;
    my $fail_label = $self->output_label_use($fail);
    my @ops;
    if (d <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2856	2968	
==>}
    else {
      $args[$i] = $args[$i]->compile($compiler);
    }
  }

  if (($dest_ident->kind eq 'var') and ( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	12393	12483	
==>e::atend::needparen { 0 }
sub Regex::Ops::Tree::atend::render { '$' }

sub Regex::Ops::Tree <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12946	13036	
==>returns undef.

=item $Name2character{I<name>}

Maps from names (as in C<EE<lt>I<name>E<gt> <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	529	657	
==>mple::Debug (NUMVAL)\nor"
                . "\n use Pod::Simple::Debug (\\\$var, STARTNUMVAL)\nAborting");
    }
  } else {
    r <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	708	826	
==>mple::Debug (NUMVAL)\nor"
                    . "\n use Pod::Simple::Debug (\\\$var, STARTNUMVAL)\nAborting");
  }

  i <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1185	1303	
==>mple::Debug (NUMVAL)\nor"
                    . "\n use Pod::Simple::Debug (\\\$var, STARTNUMVAL)\nAborting");
  }

  i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841644	841894	
==>(interpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842408	842658	
==>(interpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	49512	49645	
==>BuildAssigns( $_[0], [$var], [ $_[5] ] );
        }
	],
	[#Rule 30
		 'stat', 4,
sub
#line 182 "Lua\lua51.yp"
{
            In <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2033	2140	
==>if necessary.

=cut

sub create_path
{
    my $self = shift;
    
    return unless $self->SUPER::create_pat <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	1010	1117	
==>if necessary.

=cut

sub create_path
{
    my $self = shift;
    
    return unless $self->SUPER::create_pat <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	10550	10675	
==>nt <<EOC;
	$pmc = new $typ $cmt
	$pmc = $c
EOC
	    push @stack, [$n, $pmc, 'P'];
	    return;
	}
    }
    elsif ($typ eq 'B' <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5006	5105	
==>erpreted relative to the source
directory.

=cut

sub contents_relative_to_source
{
    my $self = s <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2998	3094	
==>erpreted relative to the source
directory.

=cut

sub contents_relative_to_source
{
	my $self = s <==
3	/Users/nnunley/parrot/config/auto/gc.pm	258	351	
==>F<Configure.pl>
and sets the memory allocator accordingly.

C<--gc> can take the values:

=ove <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6491	6584	
==>($syms[CURR]);
		push @{$code{$seg}->{code}}, "$labels{$syms[CURR]}:   # For user branch ($sym <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8771	8864	
==>($syms[CURR]);
		push @{$code{$seg}->{code}}, "$labels{$syms[CURR]}:   # For user branch ($sym <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7334	7460	
==>ore}})
		    : defined($options{ignore})	       ? $options{ignore}
		    :					 ''
		    ;

	if (!defined $ldel) { $ldel = '<\w <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24336	24462	
==>ore}})
		    : defined($options{ignore})	       ? $options{ignore}
		    :					 ''
		    ;

	if (!defined $ldel) { $ldel = '<\w <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	9273	9369	
==>y balanced" if $balance;
}


=head2 my ($pre, $class_name, $flags) = parse_flags(\$code);

Extrac <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5785	6077	
==>[
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 144 \"src/ops/core.op <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7762	7858	
==>is true" else print "Oops (string)"
s$=""
if s$ then print "Should not happen (string)"
i%=0
if i <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14749	14845	
==>is true" else print "Oops (string)"
s$=""
if s$ then print "Should not happen (string)"
i%=0
if i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949193	949475	
==>_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1068,
                  "ARG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429697	429786	
==>74 \"src/ops/math.ops\"\n  mmd_dispatch_v_ps(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430584	430673	
==>74 \"src/ops/math.ops\"\n  mmd_dispatch_v_ps(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  { <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	35925	36044	
==>rt'        => \&_op_imag_part,
  'magnitude'        => \&_op_magnitude,
  'angle'            => \&_op_angle,
  'exact->i <==
3	/Users/nnunley/parrot/config/init/defaults.pm	613	725	
==>my ($self, $conf) = @_;

    # We need a Glossary somewhere!
    $conf->data->set(
        debugging => $conf->op <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	8579	8678	
==>" : "n/a" ]}</a></td>
             <td>[<a href="function_summary.html#$source_file">function detail <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21608	21698	
==>lf->_constant(1);
  my $temp = $self->_generate($node->{children}[1]);
  $self->_add_inst(' <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21993	22083	
==>lf->_constant(1);
  my $temp = $self->_generate($node->{children}[1]);
  $self->_add_inst(' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414899	415216	
==>"CODE" => 478,
                  "ARGS" => [
                              "i",
                              "p",
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@ <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	2783	2971	
==>pbc2c.pl                            [devel]
    tools/build/revision_c.pl                       [devel]
    vtable.tbl                                      [devel]
);

open my $MANI, '>', ' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1380	1478	
==>d::Simple> and inherits all
its methods.)

You can use this class as the base class for a Pod forma <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	373	503	
==>:Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  return bless {
    TOKEN    => $token,
    CODE     => 'S',
    NAME <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	66025	66137	
==>ble($name,"$1..",$grammar,$line) if $::RD_CHECK;
					}
				}
				elsif ($grammar =~ m/$ATMOST/gco)
				{
					_p <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	4004	4150	
==>_key} = $heredoc_value;
            $in_heredoc = 0;
        }

        # Is this heredoc content?
        elsif ($in_heredoc) {
            $hered <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	10838	10965	
==>0;

        print SOURCE <<END_C;
  { /* $index */
    /* type $type, */
    "$name",
    "$full_name",
    "$func_name",
    /* <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1042	1139	
==>s;

  $block->push_content($self);

#  printf STDERR "%s: Created new module '%s'.\n", __PACKAGE__ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28403	28528	
==>"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 141,
			'functioncall <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193482	193572	
==>ine 320 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194461	194551	
==>ine 320 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get_ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	59555	59692	
==>8
		 '_field_plus', 3,
sub
#line 580 "Lua\lua51.yp"
{
            [ @{ $_[1] }, $_[3] ];
        }
	],
	[#Rule 109
		 '_field_plu <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28858	28983	
==>"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 142,
			'functioncall <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34870	35015	
==>element is allowed
             #  to have a number attribute.
          } elsif($item_type eq 'text') {
            $self->whine(
              $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151038	151128	
==>p.ops\"\n  if (0 == string_equal(interpreter,\n      {{\@1}}->vtable->get_string(interprete <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152016	152106	
==>p.ops\"\n  if (0 == string_equal(interpreter,\n      {{\@1}}->vtable->get_string(interprete <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955155	955444	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "encodingname",
                  "FL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955966	956255	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "encodingname",
                  "FL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861948	862157	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "length",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862716	862925	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "length",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	628	722	
==>s, which B<should> make it
easier to inline more builtins accurately.

Currently supports the f <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	3511	3611	
==>top;
    return &describe_c_file($info,$text)
	if $path =~ /\.([chlyC]|cpp|cola|xs|pmc)$|[_\.][ch]\.i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	249	348	
==>:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statement;

use ba <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	2964	3062	
==>ix();
my $suffix  = $trans->suffix();
# Used as ${defines}
my $defines = $trans->defines();
my $ops <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	43266	43394	
==>eplacer,2), # promote its content
          '>'
        );
        # Don't need to do --$i, as the 'E<' we just added isn't inter <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7382	7500	
==>_desc ? " ($db_desc)" : "";
        return ("set <rx_tmp>, <rx_stack>",
                $self->pushop . " <rx_stack>, $ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7978	8076	
==>})

# If there is a return type, need to push ${DEST0} onto the stack.
${ITEMP0} = ${PTEMP1}["type" <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	2258	2408	
==>ses: whether to pointedly
                       # suppress the start_line attribute
                      
  'line_count',        # the current line n <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2073	2163	
==>ot $self->prefix and $self->peer and $self->peer->prefix) {
    $self->prefix($self->peer-> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1950	2040	
==>ot $self->prefix and $self->peer and $self->peer->prefix) {
    $self->prefix($self->peer-> <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8688	8824	
==>t STDERR "**End of Error recovery.\n";
#DBG>				$dbgerror=0;
#DBG>			};

			    push(@$stack,
                     [ $$states[$$stac <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8296	8427	
==>t STDERR "**End of Error recovery.\n";
#DBG>				$dbgerror=0;
#DBG>			};

			    push(@$stack,
                     [ $$states[$$stac <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2295	2441	
==>ies in the link line.
        $liblist = join( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ /gcc/i) {
            $liblist =~ s/gdbm\.li <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2587	2733	
==>ies in the link line.
        $liblist = join( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ /gcc/i) {
            $liblist =~ s/gdbm\.li <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2382	2528	
==>ies in the link line.
        $liblist = join( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ /gcc/i) {
            $liblist =~ s/gdbm\.li <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	7721	7838	
==>ace_slashes               => 1
    );
    genfile(
        'config/gen/makefiles/Zcode.in' => 'languages/Zcode/Makefil <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	185	294	
==>tate;
use strict;
require 'Regex.pm';

sub new {
    my ($proto, %options) = @_;
    my $self = bless \%option <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	1855	1960	
==>$self->write_contents_html(@_);
	
	if ( $index_html )
	{
		# If none of the items are in a para then the w <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	2324	2449	
==>->options->get('ask')) {
        print <<"END";


The following PMC files are available:
  @pmc
END
        {
            $pmc <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14382	14482	
==>t
	foo as integer
	bar as string
end type
dim u(5) as first
u(2).foo=56
print u(2).foo

' Array assig <==
3	/Users/nnunley/parrot/tools/dev/as2c.pl	332	449	
==>t_header {
    my $s = shift;
    print <<EOT;
/*
 * DO NOT EDIT THIS FILE
 *
 * Generated from $s.c via $s.s
 * by '$ <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	14528	14643	
==>r name=unexpect> unexpectedly succeeded</span>
              </tmpl_loop><br />
              <a href="<tmpl_var nam <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4927	5020	
==>)=5.6
a=mine(5)
print t(3)

' Unary minus goodness
Dim t7(1),w(10)
w=20
w(2)=5
t7(0)=0
w=w-(T7 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034680	1034971	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_lex",
                  "FLAGS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035843	1036134	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_lex",
                  "FLAGS" <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	3303	3399	
==>ay" String="#.*\$" />
          <RegExpr attribute="Comment" context="pod" String="^\\=($pod_star <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2776	2877	
==>OR("No type for left!")  unless defined $left_type;
  $self->INTERNAL_ERROR("No type for right!") unle <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2542	2643	
==>OR("No type for left!")  unless defined $left_type;
  $self->INTERNAL_ERROR("No type for right!") unle <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2464	2565	
==>OR("No type for left!")  unless defined $left_type;
  $self->INTERNAL_ERROR("No type for right!") unle <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	12808	12916	
==>st = defined $got || defined $dont_expect;

        $self->ok($test, $name);
        $self->_cmp_diag($got, ' <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	13252	13360	
==>st = defined $got || defined $dont_expect;

        $self->ok($test, $name);
        $self->_cmp_diag($got, ' <==
3	/Users/nnunley/parrot/languages/regex/regex.pl	1859	1961	
==>'unparse' || $operation eq 'render') {
    print $_->render(), "\n" foreach (@$trees);
    exit;
} elsi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429738	429993	
==>_ps(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430625	430880	
==>_ps(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30321	30425	
==>lf, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};

    my $decl = $self->decl($self-> <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2369	2481	
==>hat) = @_;
    $what = value($what);
    return ("print $what;");
}

sub output_test {
    my ($self, $test, $val <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2686	2797	
==>hat) = @_;
    $what = value($what);
    return ("print $what");
}

sub output_test {
    my ($self, $test, $val <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	240	339	
==>atform supports GMP.

=cut

package auto::gmp;

use strict;
use vars qw($description @args);

use ba <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6260	6421	
==>DEFAULT}
                        :   undef;
        }
        else {
            $act=$$actions{DEFAULT};
#DBG>			$debug & 0x01
#DBG>		and	print STDERR "Don <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5969	6124	
==>DEFAULT}
                        :   undef;
        }
        else {
            $act=$$actions{DEFAULT};
#DBG>			$debug & 0x01
#DBG>		and	print STDERR "Don <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	10369	10473	
==>match rule>>},
					 Parse::RecDescent::_tracefirst($_[1]),
					 q{' . $self->{"name"} .'})
					if defi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218841	218936	
==>{{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) > 0) {\n    {{+={{\@3}}}};\n  }\n  { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219820	219915	
==>{{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) > 0) {\n    {{+={{\@3}}}};\n  }\n  { <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	324	431	
==>NE      TOTAL     PERCENT
HEADING
foreach (@results) {
	print $_->{'name'} . (' ' x (50 - length($_->{'na <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	562	655	
==>miliar with testing B<read Test::Tutorial> first! **

This is an extremely simple, extremely b <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28934	29045	
==>ult' => $_limit,
    );
    my $_step = new_tmp( $parser, 'pmc', 'number' );
    push @opcodes, new LocalDir( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355285	355542	
==>\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "write",
                  "FLAGS" => ":bas <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	1267	1361	
==>param ...]]]

The param and return_type parameters use the NCI standard, which for
reference is <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	459	555	
==>ew(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  #$new->accept_codes('VerbatimFormatted');
  retu <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	263	358	
==>ew(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->accept_codes('VerbatimFormatted');
  retu <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	262	357	
==>ew(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->accept_codes('VerbatimFormatted');
  retu <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	54384	54527	
==>);
        }
	],
	[#Rule 68
		 'exp', 3,
sub
#line 381 "Lua\lua51.yp"
{
            BuildRelop( $_[0], $_[1], $_[2], $_[3] );
        } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830719	830940	
==>INT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831460	831681	
==>INT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	18073	18221	
==>num_type_PMC' :
                    "enum_class_$class";
                    my $super_name = "Parrot_${super}_$meth";
                    $super_nam <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57508	57866	
==>DIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 74,
                  "ARGS" => [
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 87 <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	30955	31066	
==>EOC
}
sub SETUP_FINALLY
{
    my ($n, $c, $cmt) = @_;
    SETUP_EXCEPT($n, $c, $cmt);
}
sub END_FINALLY
{
    my <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1967	2069	
==>arrot::Configure::Data> object.

=cut

sub options
{
    my $self = shift;

    return $self->{options} <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	5660	5754	
==>ring" defStyleNum="dsString" color="#FF6C6C" selColor="#FF6C6C" bold="0" italic="0" />
      <i <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	31271	31365	
==>_op_open_output_file {
}

sub _op_close_input_port {
}

sub _op_close_output_port {
}

sub _op_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611782	612070	
==>],
                  "TYPE" => "inline",
                  "CODE" => 693,
                  "ARGS" => [
                              "p",
                              "ic",
                              "p"
                            ],
                  "BODY" => "#line 491 \"src/ops/ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3131	3230	
==>elf = $_[0];
  return $self->do_middle if $self->bare_output;
  return
   $self->do_beginning && $se <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4500	4599	
==>elf = $_[0];
  return $self->do_middle if $self->bare_output;
  return
   $self->do_beginning && $se <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540487	540586	
==>: {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541739	541838	
==>: {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542991	543090	
==>: {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	1057	1169	
==>, 
	            $self->new_item('', $dist->relative_path($file)));
	    }
	}
	
	return $self->SUPER::new(
		'PMCs <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029860	1029971	
==>me\");\n  }\n  next = Parrot_sleep_on_event(interpreter, {{\@1}}, next);\n  {{=next}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030702	1030813	
==>me\");\n  }\n  next = Parrot_sleep_on_event(interpreter, {{\@1}}, next);\n  {{=next}};\n",
                  "LA <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2548	2686	
==>pthread -lm';
        $extraLibs =~ s/blib/..\\blib/g;
        $extraLibs =~ s/\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2857	2995	
==>pthread -lm';
        $extraLibs =~ s/blib/..\\blib/g;
        $extraLibs =~ s/\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2652	2790	
==>pthread -lm';
        $extraLibs =~ s/blib/..\\blib/g;
        $extraLibs =~ s/\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367905	368197	
==>});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "F <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368697	368989	
==>});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "F <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2790	2905	
==>$compiler->emit("  $temp = $value");
      $args[$i] = $temp;
    }
    else {
      $args[$i] = $args[$i]->compile( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2490	2605	
==>$compiler->emit("  $temp = $value");
      $args[$i] = $temp;
    }
    else {
      $args[$i] = $args[$i]->compile( <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33826	33924	
==>self->{"subrule"} . ']},
				  Parse::RecDescent::_tracefirst($text),
				  q{' . $rule->{"name"} . <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1190	1298	
==>->get($util);
    $prog ||= $ENV{uc($util)};

    # never override the user.  If a non-existent program is sp <==
3	/Users/nnunley/parrot/config/inter/make.pm	1011	1119	
==>->get($util);
    $prog ||= $ENV{uc($util)};

    # never override the user.  If a non-existent program is sp <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1187	1295	
==>->get($util);
    $prog ||= $ENV{uc($util)};

    # never override the user.  If a non-existent program is sp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296947	297066	
==>],
                  "BODY" => "#line 970 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 0 : 1;\n  {{+=4}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297803	297922	
==>],
                  "BODY" => "#line 970 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 0 : 1;\n  {{+=4}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298659	298778	
==>],
                  "BODY" => "#line 970 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 0 : 1;\n  {{+=4}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	922344	922763	
==>RGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1038,
                  "ARGS" => [
                              "p",
                              "p",
                              "p"
                            ],
                  "BODY <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	16535	16640	
==>ined $params ?
        ( "$return$params", "pcf_${return}_$params" ) :
        ( "$return", "pcf_${return} <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	29348	29438	
==>each(@{$code{$t}->{args}}) {
			push @{$code{$t}->{code}}, "\t.return $_\t# Returning arg\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	675300	675557	
==>_pmc(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683843	684100	
==>_pmc(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760665	760920	
==>_pmc(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	16493	16631	
==>cted, $desc, %extra ) = @_;

            # Strange Win line endings
            convert_line_endings( $expected );

            # set up de <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	11009	11146	
==>cted, $desc, %extra) = @_;

            # Strange Win line endings
            convert_line_endings( $expected );

            # set up de <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4022	4128	
==>pattern.

=cut

sub pgeglob_like {
    my ($target, $pattern) = (shift, shift);

    unshift @_ => Parrot:: <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36150	36269	
==>ed as ret will
        # never have a method to call, thus no argument, but we still want to use
        # this mechanis <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	4660	4767	
==>= 0; $i < scalar(@{$self->{TOKENS}}); $i++) {
    my $tok = $self->at($i);

    printf STDERR "%6d : %-30s : <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	11251	11352	
==>(\$#?|[*\@\%]|\\&)+)/gc)
	    {
		_failmsg "Did not find leading dereferencer", pos $$textref;
		pos $ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	682	785	
==>ded
# text under the same copyright as the Parse::Yapp module itself.
#
# This notice should remain u <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	663	763	
==>ded
# text under the same copyright as the Parse::Yapp module itself.
#
# This notice should remain u <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14654	14752	
==>nt_size,
  ;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#------ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10913	11027	
==>AL::can($t, 'is_text')) {
      $out .= $t;
    } elsif($t->is_text) {
      $out .= $t->text;
    } elsif($t->is_s <==
3	/Users/nnunley/parrot/lib/Test/More.pm	12897	13005	
==>{
    my($object, $class, $obj_name) = @_;

    my $diag;
    $obj_name = 'The object' unless defined $obj_na <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1007	1113	
==>_goto {
    my ($self, $where) = @_;
    return "goto ".$self->output_label_use($where).";";
}

sub output_ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26383	26513	
==>48,
			"{" => 38,
			"[" => 47,
			"." => 49,
			'STRING' => 44
		},
		GOTOS => {
			'tableconstructor' => 46,
			'args' => <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	31389	31519	
==>48,
			"{" => 38,
			"[" => 47,
			"." => 49,
			'STRING' => 44
		},
		GOTOS => {
			'tableconstructor' => 46,
			'args' => <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	114	208	
==>4:31.111564Z bernhard  $

=head1 NAME

Parrot::OpTrans::CSwitch - C Switch Transform

=head1 DE <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	1883	1981	
==>ssing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline - <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1248	1346	
==>ssing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline - <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1252	1350	
==>ssing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline - <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2010	2115	
==>nknown variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->type;
  }
  else {
    $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1968	2073	
==>nknown variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->type;
  }
  else {
    $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1890	1995	
==>nknown variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->type;
  }
  else {
    $ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	18794	18896	
==>rsion to build up a binary search style tree to dispatch
    # to the translation code for an instructi <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6360	6450	
==>{CURIC}:
i = elements P_arg_0
POST_BRANCH_switch_${CURIC}_LOOP:
if i == 0 goto POST_BRANCH_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4298	4388	
==>{CURIC}:
i = elements P_arg_0
POST_BRANCH_switch_${CURIC}_LOOP:
if i == 0 goto POST_BRANCH_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2805	2905	
==>ss defined $left_type;
  $self->INTERNAL_ERROR("No type for right!") unless defined $right_type;

  $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2571	2671	
==>ss defined $left_type;
  $self->INTERNAL_ERROR("No type for right!") unless defined $right_type;

  $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2493	2593	
==>ss defined $left_type;
  $self->INTERNAL_ERROR("No type for right!") unless defined $right_type;

  $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	2967	3098	
==>e piece of
                       #  text up into several events

 'content_seen',      # whether we've seen any real Pod content
 ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349161	349252	
==>{{\@2}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, \"+<\");\n  /* string_cstring_fre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350163	350254	
==>{{\@2}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, \"+<\");\n  /* string_cstring_fre <==
3	/Users/nnunley/parrot/config/auto/pack.pm	626	755	
==>x or greater.
    #

    my $intsize  = $conf->data->get('intsize');
    my $longsize = $conf->data->get('longsize');
    my $ptrs <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8889	9004	
==>ax
	print ,
	for j = 0 to a(i)
		print "*";
	next j
	print 
next i

' Trig
w=15
dim a$(w)
for i = 0 to (22/7)*2 step <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	18340	18441	
==>ruct { mother => 'Person', father => 'Person'};


Modified by Casey West, 2000-11-08, v0.59.

    Adde <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	25397	25501	
==>plain prints to STDOUT will
    # come out in the wrong order from our own prints.
    _autoflush(\*TESTO <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3377	3467	
==>e older libraries L<Pod::PXML>, L<Pod::XML>, L<Pod::SAX>


=head1 COPYRIGHT AND DISCLAIMERS <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3029	3119	
==>e older libraries L<Pod::PXML>, L<Pod::XML>, L<Pod::SAX>


=head1 COPYRIGHT AND DISCLAIMERS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	445975	446235	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	446611	446871	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	22689	22805	
==>HERDIM:
		if ($syms[NEXT] eq "as") {
			my $var=$syms[CURR];
			feedme;  # "as"
			feedme;  # type.
			die "Unknown t <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	11568	11701	
==>($min == 0 && $max == -1) {
        $base .= "*";
    } elsif ($min == 1 && $max == -1) {
        $base .= "+";
    } elsif ($max == - <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6654	6769	
==>y ($pmc) = @_;

    if (needs_build("$pmc.dump", "$pmc.pmc")) {
        run("$PMC2C --dump $pmc.pmc")
          or d <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6865	6980	
==>y ($pmc) = @_;

    if (needs_build("$pmc.dump", "$pmc.pmc")) {
        run("$PMC2C --dump $pmc.pmc")
          or d <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657208	657379	
==>,
                              "kic"
                            ],
                  "BODY" => "#line 324 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682195	682309	
==>],
                  "BODY" => "#line 512 \"src/ops/pmc.ops\"\n    {{\@1}} = {{\@2}}->vtable->shift_float(interpret <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	12434	12542	
==>turned.

As a special case, when the accessor is called with an array reference
as the sole argument, this ca <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544633	544938	
==>d_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545969	546274	
==>d_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547305	547610	
==>d_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2182	2275	
==>sa($right, 'Jako::Construct::Expression::Value::Identifier')) {
    my $right_sym = $block->fi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2140	2233	
==>sa($right, 'Jako::Construct::Expression::Value::Identifier')) {
    my $right_sym = $block->fi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2062	2155	
==>sa($right, 'Jako::Construct::Expression::Value::Identifier')) {
    my $right_sym = $block->fi <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1338	1449	
==>ble for the consequences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $self->set_ <==
3	/Users/nnunley/parrot/config/inter/make.pm	1159	1270	
==>ble for the consequences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $self->set_ <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1335	1446	
==>ble for the consequences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $self->set_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	525	618	
==>$block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Dest ( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	516	609	
==>$block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Dest ( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	405	498	
==>$block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Dest ( <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	6719	6862	
==>RD/);

            my $indent = "  " x (@stack);
            if ($1 ne $indent) {
                error($file, $line, "Improper indenting for \" <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	1436	1572	
==>e_to_prederef(Interp* interpreter,
                                        opcode_t* opcode_addr)
{
    INTVAL offset_in_ops;
    if (opc <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	7306	7434	
==>oup);

    my ($R_back, @R_ops) = $self->rewrite($R, $rfail);

    my @ops = (
                        aop('getstart', [ '<tmp>', <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23728	23858	
==>ess (<value> <op> <value>);
    #
    #   last <label>;
    #   last <label> if     (<value> <op> <value>);
    #   last <label> un <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054391	1054482	
==>amespace.\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to get null global.\");\n\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055518	1055609	
==>amespace.\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to get null global.\");\n\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846625	846718	
==>> "#line 56 \"src/ops/string.ops\"\n  STRING *s;\n  s = string_chr(interpreter, (UINTVAL){{\@2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847421	847514	
==>> "#line 56 \"src/ops/string.ops\"\n  STRING *s;\n  s = string_chr(interpreter, (UINTVAL){{\@2 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1202	1287	
==>ides
Pod::Simple's _handle_element_start, _handle_text, and
_handle_element_end method <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3148	3277	
==>f', 'apply_CALL'],
  ['',            'set', 'P15', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	31623	31717	
==>$code{_data}->{code}}, qq{\t\$P1["$line"]= $counter\n};
		}
		foreach (@{$ld->{data}}) {
			my( <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	37116	37216	
==>and/or 
modify it under the same terms as Perl itself.

See F<http://www.perl.com/perl/misc/Artistic. <==
3	/Users/nnunley/parrot/lib/Test/More.pm	37525	37625	
==>and/or 
modify it under the same terms as Perl itself.

See F<http://www.perl.com/perl/misc/Artistic. <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	6485	6585	
==>and/or 
modify it under the same terms as Perl itself.

See F<http://www.perl.com/perl/misc/Artistic. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202712	202809	
==>"#line 380 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0) {\n    { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203643	203740	
==>"#line 380 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0) {\n    { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204574	204671	
==>"#line 380 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0) {\n    { <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	46359	46476	
==><<'EOMSG' || die;
        This is the message.
        EOMSG
	exit;

Given this as an input string in a scalar context <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1011	1106	
==>ead1", token(s) for its
content, and then an end-token with the tagname of "head1".

=item $toke <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1439	1534	
==>ead1", token(s) for its
content, and then an end-token with the tagname of "head1".

=item $toke <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	12716	12830	
==>!defined $dont_expect ) {
        # undef only matches undef and nothing else
        my $test = defined $got || de <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	13160	13274	
==>!defined $dont_expect ) {
        # undef only matches undef and nothing else
        my $test = defined $got || de <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	6802	6985	
==>h we use later.
        #
        # Either of these two forms work:
        #
        #   inline op  name (args) {
        #   op         name (args) {
        #
        # The args are <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	40821	40953	
==>t = $savetext;
		  pop @item if $backtrack;

		  ';
	}
	else
	{
		$code .= '
		  my $savetext = $text;
		  my $backtrack;
		  # MATCH <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28574	28696	
==>";
        $hout .= $self->hdecls();
    }
    $hout .= <<"EOH";

#endif

EOH
    $hout;
}

=item C<implements($method)>

T <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2637	2768	
==>c_linking  => 1,
            parrot_is_shared     => 1,

            sym_export => '__declspec(dllexport)',
            sym_import = <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11089	11212	
==>$self->doc_info,
    $self->doc_start,
    "\n"
  ;
}

sub do_end {
  my $self = $_[0];
  my $fh = $self->{'output_fh'};
  r <==
3	/Users/nnunley/parrot/config/init/hints/cygwin.pm	1167	1283	
==>c_linking => 1,
        parrot_is_shared    => 1,
        sym_export => '__declspec(dllexport)',
        sym_import = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034899	1035183	
==>" => 0,
                  "NAME" => "find_lex",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036062	1036346	
==>" => 0,
                  "NAME" => "find_lex",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops.pm	73	186	
==>ft || '';
    my $number = ++$MARKERS{$name};
    $number = '' if ($number == 1) && ($name ne '');
    return bles <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2705	2818	
==>ft || '';
    my $number = ++$MARKERS{$name};
    $number = '' if ($number == 1) && ($name ne '');
    return bles <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	1114	1203	
==>_item('', 'docs/configuration.pod'),
			$self->new_item('', 'docs/vtables.pod'),
			$self- <==
3	/Users/nnunley/parrot/languages/APL/t/APL.pm	1067	1207	
==>($output)  {
        $output .= "\n"; # XXX a slight hack
      }
      else {
        $output = "0\n"; # XXX MAJOR hack - Test::Base is bork <==
3	/Users/nnunley/parrot/config/gen/revision.pm	688	808	
==>ion    => $revision,
        SVN_ENTRIES => $entries
    );

    if ($revision >= 1) {
        $self->set_result("r$revis <==
3	/Users/nnunley/parrot/config/init/optimize.pm	1458	1576	
==>-optimize on the CLI
            $conf->data->add(' ', ccflags => $optimize);
            # record what optimization wa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944961	945225	
==>" => "charsetname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945770	946034	
==>" => "charsetname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10174	10272	
==>urn _negate_incexc(_translate_classpieces($pieces->[1]));
    }

    # Convert "a-b" to [97,98] and <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4618	4720	
==>}

#Note that for loading debugging version of the driver,
#this file will be parsed from 'sub _Pars <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4386	4485	
==>}

#Note that for loading debugging version of the driver,
#this file will be parsed from 'sub _Pars <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	16280	16387	
==>urn_data
    $other_decl
    $call_state
    $extra_preamble

    pointer =  ($ret_type (*)(void))D2FPTR(PMC <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	5413	5508	
==>$i.0, ON_${ons}_$i\n";
		if ($branch eq "gosub") {
			push @{$code{$seg}->{code}}, qq{\tbsr $lab <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8943	9084	
==>,
   34, '"',
   35, '#',
   36, '$',
   37, '%',
   38, '&',
   39, "'", #!
   40, '(',
   41, ')',
   42, '*',
   43, '+',
   44, ',',
   45 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	26015	26124	
==>///////////////////////
      next unless @$paras;
      my $list_type;

      if($paras->[0][0] eq '=item') { <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	28641	28740	
==>nal input text (the first
argument) are not modified in any way. 

However, if the input text was pa <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37552	37650	
==>ted = ' . ($rule->hasleftmost($self) ? 'q{}'
				: 'q{'.$self->describe.'}' ) . ';
		$Parse::RecDes <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39955	40053	
==>ted = ' . ($rule->hasleftmost($self) ? 'q{}'
				: 'q{'.$self->describe.'}' ) . ';
		$Parse::RecDes <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9	109	
==>I To PIR Translator
# This SRM algorithm keeps track of the current stack depth and assigns to
# virt <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	9	109	
==>I To PIR Translator
# This SRM algorithm keeps track of the current stack depth and assigns to
# virt <==
3	/Users/nnunley/parrot/lib/File/Which.pm	6765	6864	
==>e

This library is free software; you can redistribute it and/or modify it under
the same terms as P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	446507	446765	
==>=> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447144	447402	
==>=> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449452	449710	
==>=> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21135	21235	
==>ss for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke@cpan.org>

=cut



JUNK:

sub _ol <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151542	151932	
==>",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 184,
                  "ARGS" => [
                              "p",
                              "sc",
                              "ic" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93292	93381	
==>Y" => "#line 58 \"src/ops/bit.ops\"\n  string_bitwise_and(interpreter, {{\@1}}, {{\@2}}, & <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94072	94161	
==>Y" => "#line 58 \"src/ops/bit.ops\"\n  string_bitwise_and(interpreter, {{\@1}}, {{\@2}}, & <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	229041	229310	
==>"TYPE" => "function",
                  "CODE" => 267,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 538 \"src/ops/ <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	6005	6113	
==>y $self = shift;
    local $_ = shift;
    my $trans = shift;

    s/{{([a-z]+)\@([^{]*?)}}/ $trans->access_a <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	400	493	
==>ackage Parrot::Docs::Section::BigNum;

use strict;
use warnings;

use base qw( Parrot::Docs::S <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	6303	6412	
==>name - kludgy.
	$desc = $_;
	$desc = ""  # it's only emacs variables at the end of the file
	    if(!$comment_ <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	912	1024	
==>STRING
                     Parrot_CharType Parrot_Encoding Parrot_String);

die "Usage: $0 <c source files>\n" u <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017450	1017734	
==>> 0,
                  "NAME" => "gmtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018374	1018658	
==>> 0,
                  "NAME" => "gmtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	1362	1456	
==>ew_item('', 'lib/Parrot/Docs/HTMLPage.pm'),
            $self->new_item('', 'lib/Parrot/Docs/Fi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	12607	12698	
==>ze(),
   $_[0]->head1_halfpoint_size(),
   $_[0]->head2_halfpoint_size(),
   $_[0]->head3_ha <==
3	/Users/nnunley/parrot/examples/benchmarks/stress.pl	764	847	
==>stress2.pasm>, 
F<examples/benchmarks/stress2.pl>, 
F<examples/benchmarks/stress3.pa <==
3	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	825	908	
==>stress2.pasm>, 
F<examples/benchmarks/stress2.pl>, 
F<examples/benchmarks/stress3.pa <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	2661	2764	
==>END_C

    print OUT "    register_pmc(interp, registry, enum_class_$_);\n" foreach (@pmcs);
    print O <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	3151	3272	
==>, $var );
    }
}

sub BuildLiteral {
    my ( $parser, $value, $type ) = @_;

    my $defn = $parser->YYData->{sym <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	25025	25132	
==>elements_one = defined($3) ? $3 : $1;

    DEBUG > 2 and print "Extensor has good syntax.\n";

    unless($n <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	18004	18109	
==>y $class = $all{$name};
        gen_parent_list($include, $name, \%all);
        gen_super_meths($class, $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650629	650730	
==>&& {{\@2}} < interpreter->n_vtable_max)\n        {{\@1}} = 1;\n    else if ({{\@2}} >= enum_first_type <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651551	651652	
==>&& {{\@2}} < interpreter->n_vtable_max)\n        {{\@1}} = 1;\n    else if ({{\@2}} >= enum_first_type <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	716	815	
==>tion.
sub gen_label() {
	# We'll emit a label for every single instruction.
	return <<'PIR';
strPC = <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	3217	3389	
==>e.
            $rule = {
                name    => $name
            };
        }

        # Is it a value within a rule with a heredoc?
        elsif (!$in_heredoc && $rul <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1626	1732	
==>ight;

  my $dest_sym = $block->find_symbol($dest->value);
  $self->SYNTAX_ERROR("Assigning to unknown vari <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1584	1690	
==>ight;

  my $dest_sym = $block->find_symbol($dest->value);
  $self->SYNTAX_ERROR("Assigning to unknown vari <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1506	1612	
==>ight;

  my $dest_sym = $block->find_symbol($dest->value);
  $self->SYNTAX_ERROR("Assigning to unknown vari <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	11148	11288	
==>ault description
            unless ( $desc ) {
               (undef, my $file, my $line) = caller();
               $desc = "($file line $l <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	16633	16773	
==>ault description
            unless ( $desc ) {
               (undef, my $file, my $line) = caller();
               $desc = "($file line $l <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64354	64477	
==>se
					{
						$item = new Parse::RecDescent::Repetition($name,$1,$1,$1,
										   $lookahead,$line,
										   $self, <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41493	41629	
==>86
		},
		DEFAULT => -111
	},
	{#State 177
		DEFAULT => -108
	},
	{#State 178
		ACTIONS => {
			"-" => 72,
			"<" => 74,
			"% <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6836	6946	
==>my $need_dest = shift;
	my $pir = "";

	# If we need a destination, we simply supply the register to load
	# in <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4774	4884	
==>my $need_dest = shift;
	my $pir = "";

	# If we need a destination, we simply supply the register to load
	# in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403263	403613	
==>i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 466,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 527 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8636	8717	
==>","IMPULSE","LRSCAN","NAVIGATE","PHASERS","QUIT"
data "SHIELDS","SOS","SRSCAN","ST <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21500	21581	
==>","IMPULSE","LRSCAN","NAVIGATE","PHASERS","QUIT"
data "SHIELDS","SOS","SRSCAN","ST <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31435	31553	
==>teral( $parser, 'nil', 'nil' );
    push @opcodes1, @{ $nil->[1] };

    for ( @{$vars} ) {
        push @opcodes1, <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33919	34038	
==>if ($method->{type} ne 'void') {
        my $type = $method->{type};
        $ret_def = "$type ret_val;";
        $func_ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38881	39000	
==>if ($method->{type} ne 'void') {
        my $type = $method->{type};
        $ret_def = "$type ret_val;";
        $func_ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	530	642	
==>e
		fetch;
		goto MAIN;
	}

	if ($cur =~ /[\d\.]/) {  # Numeric constants
		goto NOTNUM if ($cur eq "." and $next <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	19905	20018	
==>name =~ /_default/;
        $defaulted = 1 if $meth_name =~ /_delegate/;
        $defaulted = 1 if $class =~ /^[A- <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	2226	2326	
==>::Useqq  = 1;
#$Data::Dumper::Terse  = 1;
#$Data::Dumper::Indent = 0;
use Getopt::Long;

use Parrot:: <==
3	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	392	483	
==>ng the build script.

=head1 EXAMPLE

See parrot/config/gen/makefiles/imcc.in for an example <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611084	611221	
==>"p"
                            ],
                  "BODY" => "#line 491 \"src/ops/object.ops\"\n    VTABLE_set_attr(interpreter, {{\@1}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611987	612124	
==>"p"
                            ],
                  "BODY" => "#line 491 \"src/ops/object.ops\"\n    VTABLE_set_attr(interpreter, {{\@1}} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	1302	1405	
==>~~~~~~~~~~~~~~~~~~~~~
1;
__END__

Chole

 * 1 large red onion
 * 2 tomatillos
 * 4 or 5 roma tomatoes (o <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	768	892	
==>_suffix('pmc'))
	{
	    my $code = $file->read;
	    
	    if ( $code =~ /^pmclass\s+[A-Z]/smo )
	    {
	        push(@concre <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	4838	4959	
==>{
            die "Unknown comment type '$options{commentType}'";
        }
        foreach my $line (@comment) { print $o <==
3	/Users/nnunley/parrot/examples/benchmarks/freeze.pl	195	290	
==>eze/Thaw Benchmarks

=head1 SYNOPSIS

    % time perl examples/benchmarks/freeze.pl

=head1 DESC <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18961	19072	
==>>vtable->get_bool(interpreter, {{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22129	22240	
==>>vtable->get_bool(interpreter, {{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	6166	6264	
==>)}}/   $trans->access_arg($self->arg_type($1 - 1), $1, $self); /me;

    s/{{=0,=([^{]*?)}}/   $tra <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	275053	275341	
==>,
                  "TYPE" => "inline",
                  "CODE" => 320,
                  "ARGS" => [
                              "i",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 876 \"src/ops/c <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	511	614	
==>, 

=item * the estimated number of ops performed,

=item * the elapsed time, and 

=item * the number o <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	515	616	
==>,

=item * the estimated number of ops performed,

=item * the elapsed time, and

=item * the number o <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	810	898	
==>ion::Ops;
use Parrot::Docs::Section::IMCC;
use Parrot::Docs::Section::Perl;
use Parrot::D <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	5895	5990	
==>ot block is
encountered without a match (in which case we return undef).

See also: get_symbol() <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1805	1896	
==>sub start_over_bullet  { ++$_[0]{'Indent'} }
sub start_over_number  { ++$_[0]{'Indent'} }
su <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1373	1464	
==>sub start_over_bullet  { ++$_[0]{'Indent'} }
sub start_over_number  { ++$_[0]{'Indent'} }
su <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514141	514396	
==>= pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515021	515276	
==>= pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515901	516156	
==>= pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	1233	1357	
==>ding";

    return $file;
}

sub extract_info {
    my ($file) = @_;
    
    my $spec = <$file>;
    die "Invalid args: '$sp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349247	349341	
==>ng_free(path); */\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350249	350343	
==>ng_free(path); */\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  } <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1288	1407	
==>join('languages', $language);
        } elsif ($dir_count == 1) {
          $path_to_language = $language;
        } els <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1773	1892	
==>join('languages', $language);
        } elsif ($dir_count == 1) {
          $path_to_language = $language;
        } els <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	14938	15046	
==>:Tree::rule::reftree {
    my $op = shift;
    my ($rule, $tree) = @{ $op->{args} };
    return [ annotated($ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5924	6112	
==>8,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 144 \"src/ops/core.ops\"\n    Parrot_load_bytecode(inter <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	51060	51236	
==>6 "Lua\lua51.yp"
{
            [
                @{ $_[1] },
                BuildLiteral( $_[0], $_[3], 'key' ),
            ];
        }
	],
	[#Rule 42
		 '_funcname' <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	251	345	
==>aracter_number
  %Latin1Code_to_fallback
  %Latin1Char_to_fallback
  e2char
  e2charnum
);
%EXP <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	3932	4030	
==>ed, $description)>

Compile the Parrot Intermediate Representation and generate Parrot Assembler Co <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	4115	4213	
==>ed, $description)>

Compile the Parrot Intermediate Representation and generate Parrot Assembler Co <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	4305	4403	
==>ed, $description)>

Compile the Parrot Intermediate Representation and generate Parrot Assembler Co <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18618	18722	
==>s_close_paren) {
        while (1) {
          push @args, Jako::Construct::Expression::Value->new($block <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19644	19748	
==>s_close_paren) {
        while (1) {
          push @args, Jako::Construct::Expression::Value->new($block <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	1602	1697	
==>figure</code>. The steps are listed below in the order in
which they are performed.',
		$self->n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539608	539898	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":adva <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066150	1066440	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":adva <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3423	3518	
==>ntents, 
				map {$self->new_item('', $_)} 
					$self->file_paths_relative_to_source($source, $ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10644	10741	
==>x02
	.const int ELEMENT_TYPE_CHAR = 0x03
	.const int ELEMENT_TYPE_I1 = 0x04
	.const int ELEMENT_TY <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6602	6690	
==>ITEMP0}] = stack_depth
    goto POST_BRANCH_switch_${CURIC}_LOOP
POST_BRANCH_switch_${CUR <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4540	4628	
==>ITEMP0}] = stack_depth
    goto POST_BRANCH_switch_${CURIC}_LOOP
POST_BRANCH_switch_${CUR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298209	298558	
==>",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 347,
                  "ARGS" => [
                              "i" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	31949	32045	
==>(interpreter->ctx)->current_cont;\n    PMC *sig = NULL;\n    if (cc && PMC_cont(cc)->to_ctx) {\n\ <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Posix.pm	46	133	
==>/Posix.pm 16454 2006-02-01T20:44:27.448243Z bernhard  $

package Parrot::Test::Bc::Posix <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	327	444	
==>);
	$seg="_basicmain";
}
sub feedme {
	my $type=shift @tokdsc;
	my $sym=shift @tokens;
        $type="" unless defined <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	14105	14214	
==>e_type,	        /* core_type = PARROT_XX_CORE */
  0,			/* flags */
  $major_version,	/* major_version */
  $m <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	535	641	
==>onf) = @_;

    my $verbose = $conf->options->get('verbose');

    my %gnuc;

    cc_gen("config/auto/gcc/t <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	18310	18467	
==>super_name ];
                }
            }
        }
        last if $found;
    }
    return $found ? @mmds : ();
}

=item C<init_func()>

Returns the C c <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2934	3036	
==>=~ tr{\xA0}{ } if Pod::Simple::ASCII;
  print {$self->{'output_fh'}} $out,
    #"\n"
  ;
  $self->{'Thi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2468	2562	
==>=~ tr{\xA0}{ } if Pod::Simple::ASCII;
  print {$self->{'output_fh'}} $out, "\n";
  $self->{'Thi <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	41337	41478	
==>k, $treelet->[$i]; # might as well recurse
    }
  }

  return;
}

# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	442	542	
==>thmetic.

Prints out:

=over 4

=item * the number of look iterations, 

=item * the estimated number <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	446	545	
==>thmetic.

Prints out:

=over 4

=item * the number of look iterations,

=item * the estimated number <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90226	90469	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91079	91322	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91933	92176	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	40343	40464	
==>/^[-a-zA-Z0-9]+\([-a-zA-Z0-9]+\)$/s
      ) {
        $ell->[1]{'type'}    = 'man';
        DEBUG > 3 and print "Consideri <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	1177	1271	
==>preceeding library. The definition of
the function is:

  return_type name [param [param [param <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3008	3131	
==>ROGRAM ################

my ($mode, @pmcs) = @ARGV;

if ($mode eq 'generate') {
    # Convert X.pmc -> X.dump and X.c and al <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3112	3235	
==>ROGRAM ################

my ($mode, @pmcs) = @ARGV;

if ($mode eq 'generate') {
    # Convert X.pmc -> X.dump and X.c and al <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	32864	32976	
==>ther with an ending if this is a forked copy.  Only the parent
    # should do the ending.
    # Exit if plan() w <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4084	4196	
==>c_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert lib-GROUP.so + A.so + B.so ... -> GROUP.so
    w <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4188	4300	
==>c_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert lib-GROUP.so + A.so + B.so ... -> GROUP.so
    w <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	380	490	
==>init, $file);
$result = GetOptions(
    "all" => \$do_all,
    "init" => \$do_init,
);

$do_all and do {
    &r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90806	91076	
==>> "#line 43 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91660	91930	
==>> "#line 43 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92514	92784	
==>> "#line 43 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1125	1222	
==>confess "Right is not Value!" if defined $right and not UNIVERSAL::isa($right, 'Jako::Construct::E <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1153	1250	
==>confess "Right is not Value!" if defined $right and not UNIVERSAL::isa($right, 'Jako::Construct::E <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	825	922	
==>confess "Right is not Value!" if defined $right and not UNIVERSAL::isa($right, 'Jako::Construct::E <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	25392	25498	
==>inenum($thisline)').'];
		'; 
	}

	my $dir =
	      new Parse::RecDescent::Directive('if (' .
		($self->{"c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065156	1065255	
==>*ns;\n    ns = VTABLE_get_pmc_keyed_str(interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMC <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066030	1066129	
==>*ns;\n    ns = VTABLE_get_pmc_keyed_str(interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMC <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	13403	13526	
==>fix /$pre/ at"} .
			    substr($$textref,pos($$textref),20) .
			    q{..."},
		         pos $$textref;
		return; 
	}
	my $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	44173	44289	
==>tent);
        DEBUG > 1 and print " Replacing E<$content> with $replacer\n";
      }

      splice(@$treelet, $i, 1, <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1940	2037	
==>f
they do not match. The same pattern argument syntax above applies here.

=cut

sub p6rule_isnt { <==
3	/Users/nnunley/parrot/languages/javascript/bootstrap.pm	141	270	
==>->bind_function(
	name =>	"snarf",
	func => sub { 
              my $file = shift;
	      warn "snarfing $file";
	      open my $f <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1689	1793	
==>rn)
        : Parrot::Test::PGE::_generate_pir_for($target, $pattern)
    );

    goto &Parrot::Test::pir <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2212	2316	
==>rn)
        : Parrot::Test::PGE::_generate_pir_for($target, $pattern)
    );

    goto &Parrot::Test::pir <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279734	280027	
==>{{\@2}} < {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	280589	280882	
==>{{\@2}} < {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	281444	281737	
==>{{\@2}} < {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	5218	5367	
==>s
        if ($ccwarn) {
            my @warns = split ' ', $warns;
            foreach my $w (split ' ', $ccwarn) {
                $w =~ s/^-W(?:no- <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7114	7211	
==>1): ", instr(6, s1$, " ")
print "Inval  (0): ", instr(4, bogus$, "t")
' instr() tests
s1$="Mixed c <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18843	18940	
==>1): ", instr(6, s1$, " ")
print "Inval  (0): ", instr(4, bogus$, "t")
' instr() tests
s1$="Mixed c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	32168	32266	
==>results) {\n\t    /* get results PMC index and get PMC. */\n\t    sig = PF_CONST(PMC_cont(cc)->seg, <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	429	520	
==>files listed on the command line and outputs a
C<Parrot::OpLib::core> module containing info <==
3	/Users/nnunley/parrot/lib/Test/More.pm	17758	17873	
==>val <<USE;
package $pack;
use $module \@imports;
USE
    }

    my $ok = $Test->ok( !$@, "use $module;" );

    unle <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1973	2079	
==>${subname}");

  foreach my $arg (@args) {
    my ($arg_type, $arg_name) = @$arg;
    my $imcc_type = $arg_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1599	1686	
==>ko::Construct::Type instance!")
    unless UNIVERSAL::isa($type, "Jako::Construct::Type" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1447	1534	
==>ko::Construct::Type instance!")
    unless UNIVERSAL::isa($type, "Jako::Construct::Type" <==
3	/Users/nnunley/parrot/tools/util/pirtidy.pl	579	690	
==>ter->add_pir( $line );
    }

    my $output = $formatter->get_formatted();
    print {$ofh} $output;

    close <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	692	791	
==>t under the same copyright as the Parse::Yapp module itself.
#
# This notice should remain unchang <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	672	769	
==>t under the same copyright as the Parse::Yapp module itself.
#
# This notice should remain unchang <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	4472	4592	
==>tref,
			  $match[2], $match[5]+2,	# MATCH
			  @match[8,9],			# REMAINDER
			  @match[0,1],			# PREFIX
			);
}

sub _mat <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4519	4629	
==>.
	return $pir;
}

sub post_op($$) {
	# Nothing to do.
	return "";
}

# Pre and post branch operation hooks.
su <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2935	3045	
==>.
	return $pir;
}

sub post_op($$) {
	# Nothing to do.
	return "";
}

# Pre and post branch operation hooks.
su <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613003	613260	
==>ttr_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613910	614167	
==>ttr_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	17552	17657	
==>ms[NEXT] eq "while") {
		my $false="0.0";
		feedme();  # At the while/until
		my $which=$syms[CURR];
		pus <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	4176	4286	
==>($^O eq 'aix'     && $nm_try =~ /illegal option/) {
    $nm_opt = '-B';
} elsif ($^O eq 'irix'    && $nm_try =~ <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	3421	3519	
==>rrot::OpsFile->new( [ $file ], $nolines_flag );
    die "$0: Could not read ops file '$file'!\n" un <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	2984	3078	
==>rrot::OpsFile->new( [ $file ], $nolines_flag );
die "$0: Could not read ops file '$file'!\n" un <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	21087	21257	
==>(\w{2})/;
                my $x = $1;
                $b->{'code'} =~ /^(\w{2})/;
                hex($x) <=> hex($1)
            } @rules;
            $pir .= "B2_BRANCH_ <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	1899	2023	
==>rmal_op";
    $cpcf_op = "Parrot_exec_cpcf_op";
    $restart_op = "Parrot_exec_restart_op";
    %argmaps = (
        op  => " <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	30663	30769	
==>agg\[$w->[1]\] $cmt
EOC
    push @stack, [-1, $x, 'P'];
}
# exceptions
sub SETUP_EXCEPT
{
    my ($n, $c, $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2689	2789	
==>et($offset)>

Returns the C code for C<restart OFFSET($offset)>.

=cut

sub restart_offset
{
    my ( <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4024	4124	
==>et($offset)>

Returns the C code for C<restart OFFSET($offset)>.

=cut

sub restart_offset
{
    my ( <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3722	3822	
==>et($offset)>

Returns the C code for C<restart OFFSET($offset)>.

=cut

sub restart_offset
{
    my ( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	3201	3316	
==>($R->{name} ne 'seq') {
            my $subtree = $self->pass1(rop('alternate', \@children), $ctx);
            @{ $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835754	835836	
==>TEXT(interpreter->ctx)->user_stack, string_copy(interpreter, {{\@1}}), STACK_ENTRY_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836507	836589	
==>TEXT(interpreter->ctx)->user_stack, string_copy(interpreter, {{\@1}}), STACK_ENTRY_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	625076	625186	
==>pc - ctx->pred_offset;\n        sig = (PMC*)(pred_pc[1]);\n        ASSERT_SIG_PMC(sig);\n        assert(SIG_ELE <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	3052	3156	
==>g(join'',@_);
	my ($a,$b,$c,$d) = (A,B,C,D);
	my $i;
	for $i (0 .. (length $message)/64-1) {
		my @X = un <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2505	2600	
==>scover backward branches until late to do
	# otherwise. Also, putting a label everywhere doesn't <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1083	1178	
==>scover backward branches until late to do
	# otherwise. Also, putting a label everywhere doesn't <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028408	1028580	
==>{
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sleep",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029259	1029431	
==>{
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sleep",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030100	1030272	
==>{
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sleep",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	3284	3426	
==>my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = find_ <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	3498	3640	
==>my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = find_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1151	1247	
==>e)>

Reimplements the superclass method so that C<$where> is suitably cast.

=cut

sub gen_goto
{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945473	945693	
==>rot_charset_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946283	946503	
==>rot_charset_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	13229	13328	
==>'scan_advance');
    my $next = $self->genlabel('after_scan');

    my ($R_back, @R_body) = $self->r <==
3	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	1658	1786	
==>in the next line
name_len:           m/[0-9]+/
                  { $::name_len = $item[1] }

# We need the len of the macro subst <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	939	1039	
==>TOR IS OPTIONAL WHITESPACE
   $skip  = '\s*';		# UNIVERSAL SEPARATOR IS OPTIONAL WHITESPACE
my $MAXRE <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	19093	19191	
==>C<Class::Struct> and modified by Jim Miner, 1997-04-02.

    members() function removed.
    Docume <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9888	10011	
==>xt;
      $scratch =~ s/\#([^\#]+)\#/${$self}{$1}/g; # interpolate
      print $fh $scratch;
      
      if ($tagname eq 'i <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2943	3041	
==>q '') ? '.' : $rel_path;
}

=item C<parent()>

Returns the directory's parent directory. The root d <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48906	49028	
==>aximum repetition of zero, nor can they have
					       negative components in their ranges.");
				}
			}
			
			$prod && <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34152	34248	
==>'}' ) . ';
		$Parse::RecDescent::lastunexpected = $text;
		' . ($self->{"lookahead"} ? '$_savetex <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37624	37720	
==>'}' ) . ';
		$Parse::RecDescent::lastunexpected = $text;
		' . ($self->{"lookahead"} ? '$_savetex <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	624260	624488	
==>OT_JUMP_ADDRESS",
                  "NAME" => "pic_callr__",
                  "FLAGS" => ":pic",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/lib/Test/More.pm	7235	7331	
==>() compare their two arguments
with C<eq> and C<ne> respectively and use the result of that to
de <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	3243	3348	
==>});

  if (defined $cond) {
    $handler->end_element({ Name => 'block' });
    $handler->end_element({ Na <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3996	4101	
==>});

  if (defined $cond) {
    $handler->end_element({ Name => 'block' });
    $handler->end_element({ Na <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	4020	4125	
==>});

  if (defined $cond) {
    $handler->end_element({ Name => 'block' });
    $handler->end_element({ Na <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2452	2546	
==>rn, passing the test
if the output produced by the test code matches the C<$expected>
parameter <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3886	3980	
==>rn, passing the test
if the output produced by the test code matches the C<$expected>
parameter <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	9405	9489	
==>s/io.ops src/ops/math.ops src/ops/object.ops src/ops/pic.ops src/ops/pmc.ops src/ops/ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	26563	26711	
==>"[$idx]";
        }
        elsif( $type eq 'REF' ) {
            $var = "\${$var}";
        }
    }

    my @vals = @{$Stack[-1]{vals}}[0,1];
    my <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2176	2279	
==>rray type is C<void *>.

=cut

sub opsarraytype
{
    return 'void *'
};

=item C<gen_goto($where)>

TOD <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	12332	12432	
==>ite_advance {
    my ($self, $op, $howfar, $lastback) = @_;
    my $back = $self->genlabel('undo_char <==
3	/Users/nnunley/parrot/lib/Test/More.pm	21633	21752	
==>en't finished a new feature:

    TODO: {
        local $TODO = "URI::Geller not finished";

        my $card = "Eight o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509031	509274	
==>\n  {{\@1}} = - {{\@1}};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509662	509905	
==>\n  {{\@1}} = - {{\@1}};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	25228	25340	
==>d thing to entend.\n";
      $self->whine(
        $para->[1]{'start_line'},
        "You can extend only formatt <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21919	22022	
==>ount} .  '__'; }

sub issubrule { undef }
sub isterminal { 0 }
sub describe { $_[1] ? '' : $_[0]->{name} <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	5316	5418	
==>);
  $Test->plan( skip_all => $reason );
  $Test->plan( tests => $num_tests );

A convenient way to set <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9492	9624	
==>$db_desc)" : "";
        return ("set <rx_tmp>, <rx_stack>",
                $self->popop . " $reg, <rx_stack>",
                $sel <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	1209	1335	
==>erprint;

=cut

    print "# Constants: $count entries\n";
    print "# ID  Flags    Encoding Type     Size     Data\n";

    m <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	14736	14848	
==>grep|map|return
					)#gcx)
		{
			$patvalid = 1;
			next;
		}

		if ( _match_codeblock($textref, '\s*', $ldel_in <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	35776	35920	
==>-85
	},
	{#State 136
		DEFAULT => -46
	},
	{#State 137
		ACTIONS => {
			"^" => 79
		},
		DEFAULT => -61
	},
	{#State 138
		ACTIONS = <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	10479	10573	
==>::RD_TRACE;').'
		return undef;
	}
	if (!defined($return) && defined($score))
	{'.($::RD_NO_TRA <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21884	21990	
==>($self->get(1)->is_if or $self->get(1)->is_unless) {
        $cond = $self->forth->text;

        $self->re <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22817	22923	
==>($self->get(1)->is_if or $self->get(1)->is_unless) {
        $cond = $self->forth->text;

        $self->re <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24464	24570	
==>($self->get(1)->is_if or $self->get(1)->is_unless) {
        $cond = $self->forth->text;

        $self->re <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3810	4008	
==>LINE__
            cc_debug             => '-Zi',
            libs                 => "$libs libircmt.lib",
            ld                   => 'xilink',
            ld_debug             => '-debug', <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41562	41681	
==>s (@item) { undef $_tok; last }' unless $self->{min}==0;

	$code .= '
		  $_tok = [ @item ];
		  last;
		} 

		unless ($ <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	16720	16828	
==>END_PIR
   
     $template .= interpolate($code, @order);

     $template .= 'push result, ' . $order[0] . "\ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	43639	43748	
==>sub _generate {
  my ($self,$node) = @_;

  my $return;

  if (exists $node->{children}) {
    my $func = _get <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	2125	2234	
==>reach my $fdecl (@$fdecls) {
        next unless ($fdecl =~ /\n/);
        my ($firstline,$secondline) = split <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	639159	639245	
==>eter->ctx)->constants[arg_op[1]]->u.key;\n  ASSERT_SIG_PMC(sig);\n  if (!SIG_ELEMS(sig) <==
3	/Users/nnunley/parrot/tools/dev/cc_flags.pl	1487	1608	
==>sif (/\S/) {
	    die "syntax error in $cflags: line $., $_\n";
	}
	else {
	    last;
	}
    }
}

my ($cfile) = grep /\.c$ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	28946	29050	
==>Seen into a stack.  This avoids picking up
    # the same referenced used twice (such as [\$a, \$a]) to b <==
3	/Users/nnunley/parrot/lib/Test/More.pm	1610	1710	
==>t wrong");

  like  ($this, qr/that/, $test_name);
  unlike($this, qr/that/, $test_name);

  cmp_ok($ <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	9594	9715	
==>2
    .return ($N1)
six:
    $N1 = cosh op2
    .return ($N1)
seven:
    $N1 = tanh op2
    .return ($N1)
neg_one:
    $N1 <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	17169	17285	
==>sub INPLACE_MODULO
{
    my ($n, $c, $cmt) = @_;
    inplace_word('mod', $cmt);
}
sub INPLACE_ADD
{
    my ($n, $c, $ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26036	26165	
==>des, @{ $cond->[1] };
        push @opcodes, new BranchUnlessOp( $parser,
            'arg1'   => $cond->[0],
            'resu <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26910	27027	
==>des, @{ $cond->[1] };
    push @opcodes, new BranchUnlessOp( $parser,
        'arg1'   => $cond->[0],
        'resu <==
3	/Users/nnunley/parrot/languages/pugs/t/pmc.pm	56	143	
==>he Perl Foundation.
# $Id: /parrot/languages/pugs/t/pmc.pm 19606 2006-05-30T15:08:05.048 <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	5607	5770	
==>name} ){
                $out .= "    my \$i;\n";
                $out .= "    \@_ ? (\$i = shift) : return \$r->$elem;\n"; 
                $out .= "    if (ref(\$ <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	5915	6077	
==>name} ){
                $out .= "    my \$i;\n";
                $out .= "    \@_ ? (\$i = shift) : return \$r->$elem;\n";
                $out .= "    if (ref(\$ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	1926	2038	
==>="ARRAY"; 
		} else {
			$var=~s/\W$//g;
		}
		#print "Type: $stype  User: $user Var: $var  Array: $array\n";
		i <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1470	1564	
==>type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = "$register_num"
${STEMP0} = concat ${STEM <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1997	2091	
==>type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = "$register_num"
${STEMP0} = concat ${STEM <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3180	3274	
==>type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = "$register_num"
${STEMP0} = concat ${STEM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818953	819127	
==>LS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "entrytype",
                  "FLAGS" => ":base_core <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	9306	9409	
==>al $_=$_[0];
	s/\$$/dollar/;
	s/\%$/int/;
	s/\&$/long/;
	s/\!$/single/;
	s/\#$/double/;
	return $_;
}
my <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15522	15614	
==>cause these functions will be mutually recursive, they will easily be
able handle arbitrarily <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327112	327334	
==>er_native(interpreter, {{\@1}}, (INTVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327914	328136	
==>er_native(interpreter, {{\@1}}, (INTVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	14391	14604	
==>@@@@@@

##############################################################################
##
##  stop reading now stop reading now stop reading now stop reading now stop
##
##                         HERE IT BECOMES R <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	3816	3935	
==>_bench} } ) {
    my @regexes = grep defined, $ini->val( regexes => 'include');
    @{ $cfg{run_bench} } = @regexes ? @r <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	3071	3177	
==>\.h$/) {
	# for function declarations, put the return type on the same line.
        $cmd =~ s/-psl/-npsl/g <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10121	10245	
==>te $$stack[-1][0].\n";

			pop(@$stack);
		}

			@$stack
		or	do {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "* <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9670	9785	
==>te $$stack[-1][0].\n";

			pop(@$stack);
		}

			@$stack
		or	do {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "* <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	36	131	
==>ps::Tree;
use Regex::Ops::List;
require 'Regex.pm';
use strict;

*aop = *Regex::Rewrite::aop;
*r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060115	1060215	
==>ull name\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_name(interpreter, {{\@2}});\n    {{+=3} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061020	1061120	
==>ull name\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_name(interpreter, {{\@2}});\n    {{+=3} <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	54549	54646	
==>he
extraction (like $` in a pattern match). Note that this is designed
to facilitate the use of ot <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	4705	4816	
==>mport Digest::MD5 'md5_hex'
	  };
	  if ($@) { # ups, no Digest::MD5
	    require Digest::Perl::MD5;
	    import <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1219	1312	
==>}->is_eq( Parrot::Test::slurp_file($out_f), $output, $desc );
        $self->{builder}->diag(" <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1260	1353	
==>}->is_eq( Parrot::Test::slurp_file($out_f), $output, $desc );
        $self->{builder}->diag(" <==
3	/Users/nnunley/parrot/languages/lua/luac.pl	510	612	
==>( exists $parser->YYData->{nb_error} ) {
    my $nb = $parser->YYData->{nb_error};
    print "$nb err <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2423	2505	
==>examples/mops/mops.c>,
F<examples/mops/mops.cs>,
F<examples/mops/mops.il>,
F<exampl <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	2423	2505	
==>examples/mops/mops.c>,
F<examples/mops/mops.cs>,
F<examples/mops/mops.il>,
F<exampl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90395	90816	
==>[
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 112,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 43 <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	24563	24695	
==>if( _is_fh($file_or_fh) ) {
        $fh = $file_or_fh;
    }
    else {
        $fh = do { local *FH };
        open $fh, ">$file_or_ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38427	38532	
==>line, $out_name);
    }
    my $decl = $self->decl($self->{class}, $method, 0);
    my $parameters = $meth <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679163	679337	
==>->vtable->unshift_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679942	680116	
==>->vtable->unshift_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	20783	20900	
==>];
            foreach my $variant (@{ $self->{mmd_variants}{$meth} }) {
                if ($self->pmc_is_dynpmc($var <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	33272	33412	
==>w->[2] eq 'P') {
	   $ww = temp('I');
	   print <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1 <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	34021	34161	
==>w->[2] eq 'P') {
	   $ww = temp('I');
	   print <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1 <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	34945	35085	
==>w->[2] eq 'P') {
	   $ww = temp('I');
	   print <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1 <==
3	/Users/nnunley/parrot/config/inter/shlibs.pm	980	1082	
==>shared =
        prompt("\nWhat flags instruct your compiler to compile code suitable for use in a shar <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6617	6716	
==>ht. I'm trying to work out which files
	# it's sensible to link directly to. Suffixes other than txt <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	28200	28293	
==>0]

The extracted string, including the specified delimiters.
If the extraction fails an empty <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9953	10049	
==>ack last to first, but need to be first to last in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${IT <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7467	7563	
==>ack last to first, but need to be first to last in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${IT <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6431	6527	
==>ack last to first, but need to be first to last in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${IT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010722	1011054	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011486	1011818	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012251	1012583	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52791	53033	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gc_debug",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53546	53788	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gc_debug",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	10056	10140	
==>rsion.pmc vtablecache.pmc parrotio.pmc parrotlibrary.pmc parrotinterpreter.pmc parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563851	563987	
==>"p"
                            ],
                  "BODY" => "#line 183 \"src/ops/object.ops\"\n  VTABLE_add_method(interpreter, {{\@1} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564749	564885	
==>"p"
                            ],
                  "BODY" => "#line 183 \"src/ops/object.ops\"\n  VTABLE_add_method(interpreter, {{\@1} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10699	10822	
==>ext;
      $scratch =~ s/\#([^\#]+)\#/${$self}{$1}/g; # interpolate
      print $fh $scratch;
    }
  }
  return 1;
}

#~~~~ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	728361	728596	
==>t temp = {{\@1}};\n   {{\@1}} = {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729955	730190	
==>t temp = {{\@1}};\n   {{\@1}} = {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1656	1757	
==>a'  => "\n",
 '/Data' => "\n",

 'Verbatim'  => "\n{\\pard\\li#rtfindent##rtfkeep#\\plain\\s20\\sa180\ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9442	9540	
==>R';
# See if we've got a return or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CU <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5512	5610	
==>R';
# See if we've got a return or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CU <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6957	7054	
==>R'
# See if we've got a return or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830004	830275	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8875	8965	
==>_entry(interpreter,\n\t    enum_fixup_label, label);\n    if (!fe)\n\tinternal_exception(1, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9991	10081	
==>_entry(interpreter,\n\t    enum_fixup_label, label);\n    if (!fe)\n\tinternal_exception(1, <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21388	21531	
==>ary' => 28
		}
	},
	{#State 66
		ACTIONS => {
			'NAME' => 120
		}
	},
	{#State 67
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			' <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7293	7388	
==>e specified by
C<$out>, warnings and errors are directed to the file specified by C<$err>.

=cut <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	7126	7211	
==>efine Parrot_jit_vtable1_op Parrot_jit_normal_op
#define Parrot_jit_vtable1r_op Parrot <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25442	25558	
==>orph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    my $temp   = $self->_constan <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27342	27456	
==>orph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    my $temp = $self->_constan <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	50998	51093	
==>s which are to be performed only on a successful parse
are specified using a C<E<lt>defer:...E<g <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	618	731	
==>my $verbose = $conf->options->get('verbose');

    my $cc        = $conf->data->get('cc');
    my $libs      = $co <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	559	672	
==>my $verbose = $conf->options->get('verbose');

    my $cc        = $conf->data->get('cc');
    my $libs      = $co <==
3	/Users/nnunley/parrot/config/auto/readline.pm	571	684	
==>my $verbose = $conf->options->get('verbose');

    my $cc        = $conf->data->get('cc');
    my $libs      = $co <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11352	11444	
==>ent_block;

      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $to <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11899	11991	
==>ent_block;

      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $to <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12442	12534	
==>ent_block;

      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $to <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5853	5953	
==>an we need to deal with basic block-ish stuff. If the branch
	# did not pop anything it is unconditio <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3791	3891	
==>an we need to deal with basic block-ish stuff. If the branch
	# did not pop anything it is unconditio <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623474	623569	
==>caller_ctx->pred_offset;\n\tsig = (PMC*)(dest_pred[1]);\n    }\n    else {\n\tsig = NULL;\n\tdes <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133369	133633	
==>> 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134149	134413	
==>> 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	23083	23210	
==>ef $is) {
        my @dynasty = @$is;
        DEBUG > 4 and print "    Renaming $was node to $dynasty[-1]\n"; 
        $treelet- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631963	632262	
==>"NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 70 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633004	633303	
==>"NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 70 <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	32282	32397	
==>p('P');
	my $args = "";
	if ($builtins{$obj} eq 'v') {
	    my $arg = temp('P');
	    print <<EOC;
	$arg = new Fixed <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	2680	2776	
==>rint "$ME: $VERSION ( $RCS_DATE)\n";
}

sub show_help {
print <<__EOF__;
$ME: Usage: $ME [options <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714083	714340	
==>( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "functio <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715005	715262	
==>( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "functio <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715928	716185	
==>( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "functio <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	3790	3921	
==>eps) {
        my $step_name   = $task->step;
        my @step_params = @{$task->params};

        $n++;

        eval "use $step_na <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	39992	40104	
==>'"', @$section_name, '"' if $section_name;

        if(@ell_content) {
          $link_text->[-1] .= ' in ' if $s <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1653	1749	
==>abs($addr)\n";

    return "cur_opcode = $addr;\ngoto switch_label";
}

=item C<expr_offset($offs <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	3921	4053	
==>ons=4
            #      where the argument is used as a power of 2
            # 3.x  does not align functions per default, its turn <==
3	/Users/nnunley/parrot/config/auto/cgoto.pm	1750	1848	
==>le.pm lib/Parrot/Op.pm lib/Parrot/OpTrans/CGP.pm lib/Parrot/OpLib/core.pm
	$(PERL) $(BUILD_TOOLS_DI <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	52531	52629	
==>tches.

Hence, the aim of of a call to C<extract_multiple> in a list context
is to split the proces <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	7160	7311	
==>nts'),
        ),
        $self->new_group(
            'Memory', 
            '',
            $self->c_pair_item('', 'memory'),
            $self->c_so <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600053	600144	
==>= Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601129	601220	
==>= Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	816041	816261	
==>i",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 922,
                  "ARGS" => [],
                  "BODY" => "#line 5 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827317	827519	
==>GS" => [
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 146 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry = <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1976	2074	
==>thods it supports.

Yes, you could probably do the same thing with code like
$token->isa('Pod::Simp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	707598	707858	
==>[
                              "p",
                              "ic",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(int <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9533	9646	
==>il or $token->is_while) {
      my $block = $self->current_block();
      my $kind = $token->text;

      my $pref <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	29495	29594	
==>er {
}

sub _op_integer_char {
}

sub _op_char_upcase {
}

sub _op_char_downcase {
}

sub _op_string <==
3	/Users/nnunley/parrot/config/init/miniparrot.pm	1440	1619	
==>tcpu             => 'I386',
        jitosname          => 'nojit',
        jitcapable         => 0,
        execcapable        => 0,
        cc_hasjit          => '',
        TEMP_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5885	5982	
==>ock-ish stuff. If the branch
	# did not pop anything it is unconditional, so next instruction need <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3823	3920	
==>ock-ish stuff. If the branch
	# did not pop anything it is unconditional, so next instruction need <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568475	568803	
==>@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569367	569695	
==>@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570260	570588	
==>@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037723	1037946	
==>rrot_store_global(interpreter, NULL, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038504	1038727	
==>rrot_store_global(interpreter, NULL, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	2976	3087	
==>FEST';
print $MANI '# $' . 'Id' . '$' . "\n";  # confuse SVN
print $MANI "#\n"; 
print $MANI '# generated by too <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	5960	6059	
==>h $prod ( @{$self->{"prods"}} )
	{
		my $next = $prod->expected();
		unless (! $next or _contains($n <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	60494	60588	
==>line,$1);
			$item = new Parse::RecDescent::Literal($code,$lookahead,$line);
			$prod and $prod <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	751607	751933	
==>=> ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 847,
                  "ARGS" => [
                              "i",
                              "p <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1247	1362	
==>export {
    # hack for now
    my $got_perl = $got.perl;
    my $expected_perl = $expected.perl;
    my $test := ($ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1076	1186	
==>oncat ${STEMP0}
    ${INS} = concat ", "
    ${STEMP0} = pop lazy_moves
    ${INS} = concat ${STEMP0}
    ${INS <==
3	/Users/nnunley/parrot/config/gen/PodText.pm	1308	1427	
==>$pod};
        $parser->parse_from_file($pod, $plain);

        # append a header to the generated plain text
        op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009829	1009919	
==>" => "#line 659 \"src/ops/string.ops\"\n  {{\@1}} = string_compose(interpreter, {{\@2}});\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010594	1010684	
==>" => "#line 659 \"src/ops/string.ops\"\n  {{\@1}} = string_compose(interpreter, {{\@2}});\n <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7272	7383	
==>return $pir;
}

sub post_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If the register <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5094	5205	
==>return $pir;
}

sub post_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If the register <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	114	212	
==>t::Test::M4::Gnu;

use strict;
use warnings;
use 5.006;

use base 'Parrot::Test::M4';

our $VERSION <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	6049	6163	
==>eck it
    my $context;

    # Check if we have to forcetodo this test
    # because we're preparing for a release. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557753	557850	
==>ct.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next = {{^+3}};\n  STRING *m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559137	559234	
==>ct.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next = {{^+3}};\n  STRING *m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378327	378494	
==>",
                              "i"
                            ],
                  "BODY" => "#line 432 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(inte <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	762	863	
==>treats as escape sequences.
# Config stuff
our $CC = qq[cc -c];
our $LD = qq[c++];
our $LDFLAGS = qq[- <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	20638	20756	
==>(defined($thing = $treelet->[$i][1]{$attrname}) and ref $thing) {
              unshift @stack, $thing;
              D <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	25257	25373	
==>:Balanced - Extract delimited text sequences from strings.


=head1 SYNOPSIS

 use Text::Balanced qw (
			extract_del <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	42120	42234	
==>(defined($thing = $treelet->[$i][1]{$attrname}) and ref $thing) {
            unshift @stack, $thing;
            D <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	1835	1941	
==>tions}}) {
		if (exists $main::common{$var}) {
			push(@saves, $var);
		}
	}
	if (@saves) {
		print CODE qq <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3126	3232	
==>tions}}) {
		if (exists $main::common{$var}) {
			push(@saves, $var);
		}
	}
	if (@saves) {
		print CODE qq <==
3	/Users/nnunley/parrot/languages/APL/t/APL.pm	689	791	
==>run the test.

# mark todo tests with TODO - but, unless an environment variable is set,
# skip the tes <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	2267	2375	
==>t('ccflags',   $ccflags);
        $conf->data->set('linkflags', $linkflags);
        print " (no) " if $verbo <==
3	/Users/nnunley/parrot/config/auto/readline.pm	2067	2175	
==>t('ccflags',   $ccflags);
        $conf->data->set('linkflags', $linkflags);
        print " (no) " if $verbo <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1031	1121	
==>DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullParser> object, you mig <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819069	819332	
==>E" => "entrytype",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820028	820291	
==>E" => "entrytype",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	2902	3009	
==>implemented method?
        } elsif ($cur_method->{'unimplemented'}) {
            die "Unimplemented method <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	446732	447043	
==>_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 511,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#lin <==
3	/Users/nnunley/parrot/config/gen/icu.pm	857	978	
==>rs);

    $self->set_result(undef);
    unless ($without) {
        if (!$autodetect) {
            print "specified a icu <==
3	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	980	1081	
==>lags = $conf->data->get('linkflags');
    if ($linkflags !~ /-expect_unresolved/) {
        $linkflags <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32104	32231	
==>{'number'} = $expected_value;
            $self->whine(
              $para->[1]{'start_line'},
              "Expected '=item $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32513	32640	
==>{'number'} = $expected_value;
            $self->whine(
              $para->[1]{'start_line'},
              "Expected '=item $ <==
3	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	416	527	
==>ozen_parser = Parse::RecDescent->new( << 'END_GRAMMAR' );

{
  $::name_len         = 0; 
  $::substitution_len = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457207	457484	
==>BODY" => "#line 240 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458062	458339	
==>BODY" => "#line 240 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458917	459194	
==>BODY" => "#line 240 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953764	954047	
==>( {
                  "JUMP" => 0,
                  "NAME" => "encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954554	954837	
==>( {
                  "JUMP" => 0,
                  "NAME" => "encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19002	19097	
==>ional\n";
		push @{$code{$seg}->{code}}, "AFTERDO_$do->{jump}:\n";
		return;
	}
	if ($do->{needs <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11102	11205	
==>intf('%%%02X',ord($1))/eg;
        # Yes, stipulate the list without a range, so that this can work righ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4451	4553	
==>intf('%%%02X',ord($1))/eg;
       # Yes, stipulate the list without a range, so that this can work righ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	923911	924194	
==>=> 0,
                  "NAME" => "new",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924701	924984	
==>=> 0,
                  "NAME" => "new",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
3	/Users/nnunley/parrot/lib/Test/More.pm	31587	31702	
==>$a1->{$k} ? $a1->{$k} : $DNE;
        my $e2 = exists $a2->{$k} ? $a2->{$k} : $DNE;

        push @Data_Stack, { typ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653609	653895	
==>(interpreter, {{\@3}}));\n    {{=resume}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654770	655056	
==>(interpreter, {{\@3}}));\n    {{=resume}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	418	532	
==>octl$
		    lbound lcase$ left$ len loc lof log lpos ltrim$
		    mid$ mkd$ mkdmbf$ mki$ mkl$ mks$ mksmbf$
		    pe <==
3	/Users/nnunley/parrot/config/init/hints/solaris.pm	315	444	
==>libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }
    if ($libs !~ /-lrt\b/) {
        $libs .= ' -lrt';    # Needed for <==
3	/Users/nnunley/parrot/tools/build/addopstags.pl	55	146	
==>uild/addopstags.pl - add src/ops/*.ops to tags

=head1 SYNOPSIS

	perl tools/build/addopstag <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	8459	8573	
==>heating, making not a binary op
				[ "not", "PUN"] );
			next;
		}

		if ($unary) {
			push(@expr, [ "-1.0", "INT" <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5345	5450	
==>'<';
#DBG>	};

	$$errstatus=0;
	$$nberror=0;
	($$token,$$value)=(undef,undef);
	@$stack=( [ 0, undef <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5090	5189	
==>'<';
#DBG>	};

	$$errstatus=0;
	$$nberror=0;
	($$token,$$value)=(undef,undef);
	@$stack=( [ 0, undef <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6726	6843	
==>run("$PMC2C --dump $pmc.pmc")
          or die "pmc2c dump failed ($?)\n";
    }
}

sub generate_c {
    my ($pmc) = @ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6937	7054	
==>run("$PMC2C --dump $pmc.pmc")
          or die "pmc2c dump failed ($?)\n";
    }
}

sub generate_c {
    my ($pmc) = @ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43207	43449	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pushmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43850	44092	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pushmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ] <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	5820	5929	
==>1;
}
if ( $cfg{use_times} ) {
    my $type = $cfg{method} == 1 ? 'CPU' : 'wall-clock';
    print "Times are in <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18119	18215	
==>xe, TextEdit, etc.

This is a subclass of L<Pod::Simple> and inherits all its methods.

=head1 FO <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4248	4342	
==><run_core_func_decl($core)>

Returns the C code for the run core function declaration.

=cut

s <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2736	2830	
==><run_core_func_decl($core)>

Returns the C code for the run core function declaration.

=cut

s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	24008	24116	
==>r_open), "\n";
        unshift @$paras, $self->_closers_for_all_curr_open;
        # Make sure there is exact <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7944	8036	
==>the parameter register list.
${PARAMS}[${ITEMP0}] = ${STEMP0}

# Next parameter.
dec stack_de <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931439	931736	
==>S" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1046,
                  "ARGS" => [
                              "s", <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	13136	13256	
==>or="red">$_</font>)
            } elsif ($_ =~ /^branch \d+ never executed/) {
                print OUT qq($atag<font co <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	4979	5071	
==>erl part of Digest::MD5 together with Digest::Perl::MD5
and use Digest::MD5 as normal, it fal <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459900	460092	
==>ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460888	461080	
==>ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461876	462068	
==>ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	2394	2490	
==>eturn $_;
}

sub hasargs {
	return(isbuiltin($_[0]) or isuserfunc($_[0]) or isarray($_[0]));
}

s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50241	50430	
==>AR(interpreter, PARROT_PROFILE_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51034	51223	
==>AR(interpreter, PARROT_PROFILE_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	9488	9589	
==>push @{ $self->{'encoding_command_reqs'} }, "=encoding $orig";

  my $enc_error;

  # Cf.   perldoc En <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	639622	639728	
==>}\n\t  class = interpreter->vtables[typ]->class;\n\t  break;\n      case PARROT_ARG_P:\n\t  class = REG_PMC <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6102	6323	
==>ecode(interpreter, {{\@1}});\n    {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6768	6989	
==>ecode(interpreter, {{\@1}});\n    {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	58439	58527	
==>\").)*\"|\'(?:\\\'|(?!\').)*\')

Note that the specified delimiters are automatically quo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	652076	652433	
==>[
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 729,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 264 \"src <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627430	627516	
==>{{\@1}} = pmc_new_noinit(interpreter, {{\@2}});\n  {{\@1}}->vtable->init(interpreter, { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628574	628660	
==>{{\@1}} = pmc_new_noinit(interpreter, {{\@2}});\n  {{\@1}}->vtable->init(interpreter, { <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	6018	6185	
==>nore of '$dir'},
           map { 
               my $end = $dir_list{ $dir . $_} ? '$' : '/'; # ignore file or dir
               s/\./\\./g;                  # . is s <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	72548	72641	
==>Descent NAMESPACE
*$self->{namespace}::AUTOLOAD	= sub
{
	no strict 'refs';
	\$AUTOLOAD =~ s/^$ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11271	11368	
==>orial(5)
print T!

' Correct and factorial of 4 is 24
function factorial(a)
	if a then factorial=a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826683	826777	
==>TACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_num(entry->entry);\n  {{+=3}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827753	827847	
==>TACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_num(entry->entry);\n  {{+=3}};\n <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	4171	4282	
==>h for each method.
        foreach (@{$classes{$_}}) {
            my $label = $_->{'unimplemented'} ? 'UNIMPLEM <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	628	723	
==>not generate C<#line> directives in the generated C code.

=item C<--renum>

Renumber opcodes ac <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569306	569414	
==>"\n  {{\@1}} = {{\@2}}->vtable->isa(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570199	570307	
==>"\n  {{\@1}} = {{\@2}}->vtable->isa(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3142	3246	
==>lent to this:

  my $debug_level;
  BEGIN { $debug_level = 0 }
  BEGIN { sub Pod::Simple::DEBUG () { $deb <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	45552	45644	
==>= extract_quotelike($text,'.*?');

	# Replace one or more leading whitespace-separated quotel <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340340	340678	
==>"LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341339	341677	
==>"LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342338	342676	
==>"LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":a <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	31195	31300	
==>sub _sanity_check {
    my $self = shift;

    _whoa($self->{Curr_Test} < 0,  'Says here you ran a negativ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11112	11207	
==>ethod bodies (see F<tools/build/pmc2c.pl>).

=cut

sub rewrite_nci_method ($$$) {
    my ($class <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	3194	3284	
==>is is the new experimental alternative to the fingerprint produced by tools/build/fingerpri <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146395	146657	
==>{{\@2}}, MMD_EQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167621	167883	
==>{{\@2}}, MMD_EQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10702	10817	
==>omment

1;

}
#End of include--------------------------------------------------




sub new {
        my( <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	46735	46844	
==>my @components = ();
		if ($grammar =~ m/$COMMENT/gco)
		{
			_parse("a comment",0,$line);
			next;
		}
		elsi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54583	54674	
==>defghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])>
         #<$pretty_form{$1} | <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	7643	7753	
==>oop_two_end
    item_two = shift iter_two 
    iter_one = new .Iterator, op1
    pos_one = 0 # parrot's 0 == AP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470705	471127	
==>S" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 540,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#li <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	814	912	
==>ult to not having bison
    $conf->data->set(bison_version => undef);

    unless ($conf->options-> <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	14336	14434	
==>r a class element is an object of the corresponding class,
or of one of it's subclasses, or a refer <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	1421	1528	
==>x: %08x %08x %08x %08x %s\n",
	    $constant_num, $_->flags, $_->encoding, $_->type,
            $_->size, $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	2474	2571	
==>Stir in the lime juice, and optionally one or two teaspoons of tahini.
You can let it simmer longe <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	210	303	
==>stigate missing pythonic features
# in Parrot and how to translate Python stack-oriented bytec <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	10266	10362	
==>[1] = $text;	# NOT SURE THIS IS NEEDED
'.($::RD_NO_TRACE? '':'
		Parse::RecDescent::_trace(q{<<Di <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	536	620	
==>flow';
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	370	454	
==>flow';
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

s <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	45698	45828	
==>'<QLL>', (extract_quotelike)[2,1] } until $@;


	# Isolate the search pattern in a quotelike operation from $text

		($op,$pat) = ( <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4896	4982	
==>TATES', 'LEX', 'ERROR' };
	my($errstatus,$nberror,$token,$value,$stack,$check,$dotpos) <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4655	4740	
==>TATES', 'LEX', 'ERROR' };
	my($errstatus,$nberror,$token,$value,$stack,$check,$dotpos) <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	12264	12376	
==>my $f = shift;
    return $builtin_ops{$f};
}

sub LOAD_GLOBAL {
    my ($n, $c, $cmt) = @_;
    if (is_opcode($c <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3090	3185	
==>tically generated by config/gen/core_pmcs.pm

package Parrot::PMC;

use strict;
use warnings;

u <==
3	/Users/nnunley/parrot/lib/Parrot/PMC.pm	34	129	
==>tically generated by config/gen/core_pmcs.pm

package Parrot::PMC;

use strict;
use warnings;

u <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107152	107430	
==>/bit.ops\"\n  {{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108006	108284	
==>/bit.ops\"\n  {{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108860	109138	
==>/bit.ops\"\n  {{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	8001	8127	
==>.h
cabs        complex.h
cabsf       complex.h
cabsl       complex.h
cacos       complex.h
cacosf      complex.h
cacosh      co <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	19228	19345	
==>r to process formatting codes
      $to_resolve = 1 if $content =~ s/^://s;
      
      my $dont_ignore; # whether th <==
3	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	682	789	
==>d... ";

  open my $fh, "<", $file or die "Couldn't open \"$file\" for reading: $!\n";
  local $/;
  my $smo <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	61376	61533	
==>yylex   => \&_Lexer,
        yyerror => sub { return; },
#        yydebug => 0x17,
        #    Bit Value    Outputs
        #    0x01         Token readi <==
3	/Users/nnunley/parrot/config/inter/libparrot.pm	618	731	
==>d library';

@args = qw(ask parrot_is_shared);

sub runstep {
    my ($self, $conf) = @_;
    my $parrot_is_ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8051	8189	
==>and do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Accept.\n";

				return($semval);
			};

                $$check eq 'ABORT <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7690	7820	
==>and do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Accept.\n";

				return($semval);
			};

                $$check eq 'ABORT <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	948	1063	
==>n and length $in;
  
  # Convert to decimal:
  if($in =~ m/^(0[0-7]*)$/s ) {
    $in = oct $in;
  } elsif($in =~ m/^ <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2307	2422	
==>n and length $in;
  
  # Convert to decimal:
  if($in =~ m/^(0[0-7]*)$/s ) {
    $in = oct $in;
  } elsif($in =~ m/^ <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	237	333	
==>failed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of_tests_planned;

# a Junction to hold o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	12261	12428	
==>nline",
                  "CODE" => 16,
                  "ARGS" => [],
                  "BODY" => "#line 217 \"src/ops/core.ops\"\n  {{=*}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168537	168650	
==>_integer(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169479	169592	
==>_integer(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	34749	34868	
==>arg2'   => \@params2,
    );
    push @opcodes1, @opcodes2;
    push @opcodes1, new AssignOp( $parser,
        'resu <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	5536	5639	
==>ctory
itself.

=cut

sub directories
{
    my $self = shift;

    return map {$self->directory_with_path <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	4917	5017	
==>not you take
C<Digest::Perl::MD5>.

You can also install the Perl part of Digest::MD5 together with D <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	52095	52188	
==>bstrings
of the original string, as extracted by the specified extractors.
In a scalar context <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	15799	15915	
==>tra{todo};

            my $pass = $builder->$meth( $real_output, $expected, $desc );
            $builder->diag("'$c <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	18350	18466	
==>tra{todo};

            my $pass = $builder->$meth( $real_output, $expected, $desc );
            $builder->diag("'$c <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	44037	44140	
==>d.

In a list context, an array of 11 elements is returned. The elements are:

=over 4

=item [0]

the e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601541	601770	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "singleton",
                  "FLAGS" => ":object_classes",
                  "ARGD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029837	1029929	
==>t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_event(interpreter, {{\@1}}, next <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030679	1030771	
==>t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_event(interpreter, {{\@1}}, next <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	23333	23444	
==>rint, but prints to the current diagnostic filehandle.

=cut

sub _print_diag {
    my $self = shift;

    local <==
3	/Users/nnunley/parrot/lib/Test/More.pm	19227	19322	
==>ethod isn't implemented
(such as fork() on MacOS), some resource isn't available (like a 
net co <==
3	/Users/nnunley/parrot/Configure.pl	1923	2017	
==>kflags=(flags)>

Use the given linker flags

=item C<--ld=(linker)>

Specify which loader to us <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30656	30798	
==>> 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" = <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40006	40148	
==>> 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" = <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41633	41775	
==>> 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1607	1711	
==>en ne 'inline') {
    $compiler->emit(".sub __INLINE_" . $inline++);
    $compiler->indent;
  }

  $compi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576393	576486	
==>Y" => "#line 276 \"src/ops/object.ops\"\n  PMC *name;\n  name = pmc_new(interpreter, enum_clas <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577405	577498	
==>Y" => "#line 276 \"src/ops/object.ops\"\n  PMC *name;\n  name = pmc_new(interpreter, enum_clas <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5478	5592	
==>while(1) {
        my($actions,$act,$stateno);

        $stateno=$$stack[-1][0];
        $actions=$$states[$sta <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5214	5324	
==>while(1) {
        my($actions,$act,$stateno);

        $stateno=$$stack[-1][0];
        $actions=$$states[$sta <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863630	864006	
==>,
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 980,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#li <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441582	441672	
==>s\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442597	442687	
==>s\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5 <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10923	11038	
==>l";
    print "Writing $outfile..\n" if $DEBUG;
    open (IN, "<$infile") or die "Can't read $infile: $!\n";
    ope <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11407	11522	
==>l";
    print "Writing $outfile..\n" if $DEBUG;
    open (IN, "<$infile") or die "Can't read $infile: $!\n";
    ope <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11871	11986	
==>l";
    print "Writing $outfile..\n" if $DEBUG;
    open (IN, "<$infile") or die "Can't read $infile: $!\n";
    ope <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78202	78494	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlvar",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79722	80014	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlvar",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3938	4029	
==>inded version of
L<Pod::Simple::Text> that formats only the "Pod Errors" section
(if Pod::Si <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9333	9445	
==>popped index");
}

sub output_popint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);
    if ($self <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9027	9139	
==>popped index");
}

sub output_popint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);
    if ($self <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	6187	6281	
==>of all the method names containing vtable section. Called
from C<init()>.

=cut

sub get_vtable <==
3	/Users/nnunley/parrot/lib/Test/More.pm	27278	27392	
==>_type {
    my $thing = shift;

    return '' if !ref $thing;

    for my $type (qw(ARRAY HASH REF SCALAR GLOB Rege <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216939	217051	
==>ble->get_number(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217879	217991	
==>ble->get_number(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029906	1030125	
==>terpreter, {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030748	1030967	
==>terpreter, {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	2201	2340	
==>if $verbose;
            my $cb = $self->gettrigger($key, $trigger);

            &$cb($key, $val);
        }
    }

    print ");\n" if $ve <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	6423	6521	
==>nteger or int, the program dies with
# 'Method not found.' or dispatches to the wrong method.

.sub <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2454	2547	
==>]->emit_par( 0) }
sub end_item_number { $_[0]->emit_par( 0) }
sub end_item_text   { $_[0]->emi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2022	2115	
==>]->emit_par( 0) }
sub end_item_number { $_[0]->emit_par( 0) }
sub end_item_text   { $_[0]->emi <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	1200	1324	
==>ate the reports.

my @dafiles;
File::Find::find({wanted => sub {
                  /\.da$/ && push @dafiles, $File::Find::nam <==
3	/Users/nnunley/parrot/Configure.pl	7740	7836	
==>of ICU headers without /unicode
   --icushared=(flags)  Full linker command to create shared libr <==
3	/Users/nnunley/parrot/config/gen/icu.pm	3818	3914	
==>of ICU headers without /unicode
   --icushared=(flags)  Full linker command to create shared libr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681518	681776	
==>_integer(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752059	752315	
==>_integer(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	5304	5426	
==>}) {
            # OUT was/is used at the output filehandle in eval'ed scripts
            # e.g. feature.pl or feature_h.i <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16446	16567	
==>zABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
            return $x;
        }
    }

    foreach my $x ( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9989	10095	
==>zABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
      return $x;
    }
  }
  foreach my $x ( <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3470	3589	
==>group.c", @pmcfiles)) {
            run("$PMC2C --library $group --c " . join(" ",@pmcfiles))
              or die "pmc2 <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3574	3693	
==>group.c", @pmcfiles)) {
            run("$PMC2C --library $group --c " . join(" ",@pmcfiles))
              or die "pmc2 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1388	1495	
==>t the only treelets
# that are exposed to the user.

1;

__END__

# TODO: let it be an option whether a give <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	18966	19097	
==>put_like',
        language_output_isnt => 'output_isnt',
                            );

    foreach my $func ( keys %language_test <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	17430	17558	
==>{
			'CHAR' => 68
		}
	},
	{#State 62
		ACTIONS => {
			'NUM' => 69
		}
	},
	{#State 63
		DEFAULT => -36
	},
	{#State 64
		DEFAUL <==
3	/Users/nnunley/parrot/lib/Test/More.pm	16600	16694	
==>s are exported at compile-time and prototypes are
properly honored.

If @imports are given, the <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	20882	21033	
==>alue to tweak.\n";
            }
          }
        }
      }
    }
  }
  DEBUG > 2 and print "End of _wrap_up traversal.\n\n";

  return;
}

#:.:.:.:. <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4810	4907	
==>$pmc_type = $dest_ident->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();

    $compiler-> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2873	2970	
==>$pmc_type = $dest_ident->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();

    $compiler-> <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16607	16776	
==>odes, new LocalDir( $parser,
                    'result' => $result,
                );
                push @opcodes, new FindLexOp( $parser,
                    'r <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10758	10922	
==>odes,
                        new LocalDir( $parser, 'result' => $result, );
                    push @opcodes, new FindLexOp( $parser,
                        'r <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	1613	1748	
==>clude   = waves

    [benchmark parrotj]
    exe       = ../../parrot -j
    type      = .pasm
    type      = .pir

    [benchmark perl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769555	769912	
==>"ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 869,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#lin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	626016	626145	
==>break;\n            default:\n                internal_exception(1, \"unhandled sig_bits\");\n        }\n    }\n    /* set_args () <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	36435	36551	
==>ara_type = '?Verbatim';
      } elsif($para_type eq '~Para') {
        $para->[0] = 'Para';
        $para_type = '?Pl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062489	1062583	
==>var.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063358	1063452	
==>var.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064228	1064322	
==>var.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed( <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23612	23703	
==>nst('','set',[$return,$temp]);
    $self->_add_inst("NEXT_$label");
    $self->_restore($tem <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24074	24165	
==>nst('','set',[$return,$temp]);
    $self->_add_inst("NEXT_$label");
    $self->_restore($tem <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	2188	2295	
==>R_IN',
    'o'  => 'PARROT_ARGDIR_OUT',
    'io' => 'PARROT_ARGDIR_INOUT'
);

#
# Look at the command line o <==
3	/Users/nnunley/parrot/lib/Test/More.pm	9371	9465	
==>r
perls) as a string that looks like a regex (alternative delimiters are
currently not supporte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931122	931445	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7132	7223	
==>0} = "$"
${STEMP0} = ${LOADTYPE}["reg_type_short"]
${DEST0} = concat ${STEMP0}
${STEMP0} = s <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4954	5045	
==>0} = "$"
${STEMP0} = ${LOADTYPE}["reg_type_short"]
${DEST0} = concat ${STEMP0}
${STEMP0} = s <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	2945	3066	
==>ements argv
END_PIR
    
    return $code;
}

sub arg_check {
    my (@args) = @_;
    
    my ($min, $max) = num_args(@ar <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1264	1357	
==>=over

=item $token->tagname

This returns the tagname for this start-token object.
For exampl <==
3	/Users/nnunley/parrot/languages/scheme/Scheme.pm	13	100	
==>t/languages/scheme/Scheme.pm 13993 2005-11-29T22:06:21.880912Z bernhard  $

package Sche <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2070	2179	
==>{
    my($self)=shift;
    my($retval);

	_CheckParams( \@params, \%params, \@_, $self );

	if($$self{DE <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1995	2098	
==>{
    my($self)=shift;
    my($retval);

	_CheckParams( \@params, \%params, \@_, $self );

	if($$self{DE <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22483	22602	
==>print "Ignoring mistargetted =end $content\n";
        next;
      }
      
      unless($content eq $curr_open->[-1][1] <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	520	624	
==>urns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new(
		'Dynamic PMCs', 'd <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21857	21957	
==>one"

' Mystery typeshift bug (OK)
type foo
	first as integer
end type
dim a as foo
print a.first=x
p <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	1293	1389	
==>>

Integrates C<$new> into C<$orig>.  Returns C<$orig> if C<$new> is undefined.

=cut

sub integr <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	19235	19347	
==>ble to
      see which signature has an unknown type. I am sure someone can come up
      with a neater way to do <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3818	3925	
==>'");
			ref($value) eq $$checklist{$prm}
		or	croak("Invalid value for parameter '$prm'");
        $prm=u <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3623	3727	
==>'");
			ref($value) eq $$checklist{$prm}
		or	croak("Invalid value for parameter '$prm'");
        $prm=u <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	14681	14821	
==>hose to "temp".
        my @temp;
        for my $i (0..$#$args) {
            if ($args->[$i] =~ /^\((.+)\*\)&(.+)$/) {
                $tem <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	674	809	
==>r2.pir', $count )
                    :
                    Parrot::Test::per_test( '_antlr2_no_past.pir', $count );

    return ( "pyth <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41749	41872	
==>y[1] = {%{ $copy[1] }};
    #$copy[1]{'start_line'} = -1;
    if($copy[0] eq '=for') {
      $copy[0] = '=end';
    } elsif( <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	7007	7114	
==>st of items from this table of argument
        # types (even if no formal args are specified, there will be <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53148	53252	
==>ule and $rule->addautoscore($1,$self)
				      or  _no_rule($code,$line);

				$item = new Parse::RecDes <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	3942	4032	
==>iption)>

Compile the Parrot Intermediate Representation and generate Parrot Assembler Code <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	4125	4215	
==>iption)>

Compile the Parrot Intermediate Representation and generate Parrot Assembler Code <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	4315	4405	
==>iption)>

Compile the Parrot Intermediate Representation and generate Parrot Assembler Code <==
3	/Users/nnunley/parrot/lib/Test/More.pm	760	889	
==>ok  isa_ok
             diag
            );

my $Test = Test::Builder->new;
my $Show_Diag = 1;


# 5.004's Exporter doesn't have e <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	15230	15351	
==>o") {
			my @b=EXPRESSION();
			feedme();
			print CODE<<TO;
# From
@a	bsr DEREF
	push P13, P6
# To
@b	bsr DEREF
	push P13 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	32	119	
==>:PullParserEndToken;
use Pod::Simple::PullParserToken ();
@ISA = ('Pod::Simple::PullPars <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	13547	13655	
==>ine' => $m}, "Around line $line:"],
      map( ['~Para', {'start_line' => $m, '~cooked' => 1},
        #['~To <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	9360	9460	
==>P0["value"]=0
	store_global "PRINTCOL", \$P0
	print "\\n"
PRINT
		}
	}

}
sub parse_print {
	my $eol= <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21350	21516	
==>sub',
        '*'  => 'mul',
        '/'  => 'div',
        '^'  => 'pow',
        '%'  => 'mod',
        '..' => 'concat',
    );
    my @opcodes = ();
    my <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	22544	22657	
==>MMD_init _temp_mmd_init[] = {
        $mmd_list
    };
    /*  Dynamic PMCs need the runtime type
	which is passed <==
3	/Users/nnunley/parrot/config/auto/byteorder.pm	508	617	
==>ub runstep
{
    my ($self, $conf) = @_;

    cc_gen('config/auto/byteorder/test_c.in');
    cc_build();
    m <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	4085	4209	
==>, 205,
 'Icirc'    , 206,
 'Iuml'     , 207,
 'ETH'      , 208,
 'Ntilde'   , 209,
 'Ograve'   , 210,
 'Oacute'   , 211,
 'Oc <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	449	553	
==>> "advance input <n> chars" ],
    [ "check(n)" => "require at least <n> chars remaining" ],
    [ "onfai <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4830	4932	
==>se $_[0] so that we can undef the instance in SUPER::delete().
    
    unlink($_[0]->path) or die 'Fai <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77825	77922	
==>],$_[3]);
	if ($_[2]<0)
	{
		_error("Can't negate \"$&\".",$_[3]);
		_hint("You can't negate $_[0] <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19671	19799	
==>ableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 57
		ACTIONS => {
			'NAME' => 4,
			'REPEAT' <==
3	/Users/nnunley/parrot/config/auto/memalign.pm	912	1025	
==>self;
    }
    my $test = 0;

    if ($conf->data->get('i_malloc')) {
        $conf->data->set(malloc_header => ' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	1415	1509	
==>er->YYExpect)
				    ." got `".$parser->YYCurtok."', rest=".join(" ", @$types)."\nfrom ".join( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	2072	2256	
==>ME" => "noop",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 1,
                  "ARGS <==
3	/Users/nnunley/parrot/config/init/headers.pm	341	428	
==>Parrot::Configure::Step::Base);

use Parrot::Configure::Step;
use ExtUtils::Manifest qw( <==
3	/Users/nnunley/parrot/config/init/manifest.pm	366	453	
==>Parrot::Configure::Step::Base);

use Parrot::Configure::Step;
use ExtUtils::Manifest qw( <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10041	10151	
==>NS}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Pop state $$stack[-1][0].\n";

			po <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9593	9698	
==>NS}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Pop state $$stack[-1][0].\n";

			po <==
3	/Users/nnunley/parrot/config/init/hints/freebsd.pm	107	208	
==>28:15.110975Z coke  $

package init::hints::freebsd;

use strict;

sub runstep
{
    my ($self, $conf) <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	816	923	
==>guments (as
you might find on the command line).

If you don't pass a C<compiler> argument pair, the harness <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4932	5030	
==>pmc_type");
    $compiler->emit("  $pmc_reg = $dest");
    $compiler->emit("  global \"$dest_name\" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2995	3093	
==>pmc_type");
    $compiler->emit("  $pmc_reg = $dest");
    $compiler->emit("  global \"$dest_name\" <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33793	33885	
==>::_trace(q{Trying subrule: [' . $self->{"subrule"} . ']},
				  Parse::RecDescent::_tracefirs <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100407	100652	
==>able->bitwise_not(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15918	16007	
==>@stream=convert_to_rpn(@expr);	# Get infix into RPN
		($result,$type,@stream)=generate_cod <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	17069	17158	
==>@stream=convert_to_rpn(@expr);	# Get infix into RPN
		($result,$type,@stream)=generate_cod <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	16177	16282	
==>)
	{
	    if ($span != 3)
	    {
		Parse::RecDescent::_error(
			"Incorrect <$op->{type}op:...> specificat <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	6611	6707	
==>able;
my $index = 0;
my ($prev_source, $prev_func_name, $prev_def);

foreach my $op ($ops->ops) { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186048	186311	
==>reter, {{\@1}}, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186978	187241	
==>reter, {{\@1}}, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187908	188171	
==>reter, {{\@1}}, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	142	272	
==>results, {
			name	=> $3,
			total	=> $2,
			done	=> $1,
			percent	=> int(($1 / $2) * 100)
		};
	}
}

print <<HEADING;
N <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	142	272	
==>results, {
			name	=> $3,
			total	=> $2,
			done	=> $1,
			percent	=> int(($1 / $2) * 100)
		};
	}
}

print <<HEADING;
N <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1439	1537	
==>obal_state();
    $options{module} ||= "Regex::CodeGen::IMCC";

    if ($options{module} ne 'Regex: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660002	660142	
==>i"
                            ],
                  "BODY" => "#line 334 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}- <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2749	2865	
==>undef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHECK}}='ACCEPT';
    undef;
}

sub YYError {
	my($s <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2624	2729	
==>undef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHECK}}='ACCEPT';
    undef;
}

sub YYError {
	my($s <==
3	/Users/nnunley/parrot/config/init/hints/solaris.pm	2602	2716	
==>ompliance.
    # For Solaris 8/Sun Workshop Pro 4, both
    #    atan2( 0.0, -0.0) and atan2(-0.0, -0.0)
    # retu <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2304	2404	
==>/include' . $PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/src/pmc' . $PATHQUO <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2099	2199	
==>/include' . $PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/src/pmc' . $PATHQUO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	725420	725645	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clone",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726181	726406	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clone",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812629	812854	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clone",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" = <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	2901	3082	
==>n_def eq 'enum') {
                if (/(\w+)\s+=\s+(-?\w+)/) {
                    local $_;
                    if (defined($values{$2})) {
                        $_        = "$pr <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6654	6795	
==>A$(I-1)
         A$(I-1)=A$(I)
         A$(I)=B$
         ' SWAP A$(I - 1), A$(I)
      END IF
   NEXT
WEND
 ' CLS
FOR I = 1 TO 4
   PRINT A$( <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16307	16448	
==>A$(I-1)
         A$(I-1)=A$(I)
         A$(I)=B$
         ' SWAP A$(I - 1), A$(I)
      END IF
   NEXT
WEND
 ' CLS
FOR I = 1 TO 4
   PRINT A$( <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	24179	24307	
==>'   => $expr2->[0],
    );
    push @opcodes, new LabelOp( $parser,
        'arg1' => $lbl2,
    );
    return [ $result, \@ <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	12905	13023	
==>$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_S($reg_num);";
        return "&PO <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	6289	6388	
==>f ($def_args{$arg}) {
	my ($i, $n, $defs);
	$n = $arg_count{$arg};
	$defs = @{$def_args{$arg}};
	pri <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1304	1420	
==>ed then
    # the user is responsible for the consequences.
    if (defined $prog) {
        $conf->data->set($util = <==
3	/Users/nnunley/parrot/config/inter/make.pm	1125	1241	
==>ed then
    # the user is responsible for the consequences.
    if (defined $prog) {
        $conf->data->set($util = <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1301	1417	
==>ed then
    # the user is responsible for the consequences.
    if (defined $prog) {
        $conf->data->set($util = <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	23259	23381	
==>mc/";

    if ( 0 == grep { $action{$_} } keys %action ) {
        die "No action specified!\n";
    }

    if ($action{def <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065097	1065191	
==>var.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065971	1066065	
==>var.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed_ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2837	2948	
==>. " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PA <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3146	3257	
==>. " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PA <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2941	3052	
==>. " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PA <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	9036	9131	
==>rncc');
  $self->_add_inst("DONE_$label");

  $self->{regs} = pop @{$self->{frames}};
  $self->{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104023	1104110	
==>r, class);\n\t}\n\tif (type <= 0)\n\t\treal_exception(interpreter, NULL, NO_CLASS,\n\t\t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105238	1105325	
==>r, class);\n\t}\n\tif (type <= 0)\n\t\treal_exception(interpreter, NULL, NO_CLASS,\n\t\t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	603556	603780	
==>\@1}} = VTABLE_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640690	640912	
==>\@1}} = VTABLE_name(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	17517	17638	
==>GHT DEL
			$modpos,	0,			# NO 2ND LDEL
			$modpos,	0,			# NO 2ND STR
			$modpos,	0,			# NO 2ND RDEL
			$modpos,	$endpos-$m <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	7797	7923	
==>th.h
atanh       math.h
atanhf      math.h
atanhl      math.h
atanl       math.h
atexit      stdlib.h
atof        stdlib.h
atoi <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3970	4079	
==>var ||= "<rx_len>";
    my $fail = $self->output_label_use($failLabel);
    if ($needed eq "1") {
        retu <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3684	3793	
==>var ||= "<rx_len>";
    my $fail = $self->output_label_use($failLabel);
    if ($needed eq "1") {
        retu <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	552	644	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
#
#  And here is how we implement a pull- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79007	79098	
==>C_IS_NULL({{\@2}}) ? NULL : PMC_data({{\@2}}), name);\n  string_cstring_free(name);\n  if (p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80528	80619	
==>C_IS_NULL({{\@2}}) ? NULL : PMC_data({{\@2}}), name);\n  string_cstring_free(name);\n  if (p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640277	640652	
==>> "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 715,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833415	833584	
==>S" => [
                              "p"
                            ],
                  "BODY" => "#line 197 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13594	13713	
==>while' block, we might be beginning the 'continue'
      # block, so we check for that case.
      #
      # We *always* <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	13125	13229	
==>e: $!";

    return $text;
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::Configure::RunSteps>

=ite <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	896	999	
==>_label($arg);
    }
    return @indices;
}

=item method combineLabels(label1, label2, ...)

Creates a n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664783	665067	
==>"NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 743,
                  " <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	1295	1437	
==>y %options = ( prefix => '/usr',
                exec_prefix => '/usr',
                bindir => '/usr/bin',
                libdir => '/usr/l <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2854	2959	
==>clude dynamic libparrot.lib, otherwise
        # the static libparrot.lib.
        if ($conf->data->get('p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266448	266765	
==>tsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 310,
                  "ARGS" = <==
3	/Users/nnunley/parrot/config/auto/headers.pm	1567	1675	
==>ra_headers needed on mingw/msys; *BSD fails if they are present
    if ($^O eq "msys") {
        push @extra_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2584	2682	
==>d => 'infix', name => $self->op } });
    $self->left->sax($handler);
    $self->right->sax($handle <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2461	2559	
==>d => 'infix', name => $self->op } });
    $self->left->sax($handler);
    $self->right->sax($handle <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15095	15197	
==>f->{'start_token_class'}->new(@_);
  return;
}

sub _handle_text {
  my $self = shift;   # leaving ($te <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558046	558137	
==>reter->current_object = object;\n  interpreter->current_method = meth;\n  method_pmc = VTABL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559430	559521	
==>reter->current_object = object;\n  interpreter->current_method = meth;\n  method_pmc = VTABL <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	20878	21030	
==>te value to tweak.\n";
            }
          }
        }
      }
    }
  }
  DEBUG > 2 and print "End of _wrap_up traversal.\n\n";

  return;
}

#:.:.: <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	12962	13057	
==>Bool :$todo, Str :$depends) returns Bool`

These functions both take blocks of code, run the cod <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	3782	3871	
==>(e.g. "global_const_init_data" versus "R")
--help|-h	show this help
--version|-v	show vers <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	9371	9477	
==>ngle/;
	s/\#$/double/;
	return $_;
}
my %labdef;
sub label_defined {
	$labdef{$_[0]}++;
}

sub check_branch <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	430	532	
==>that the C source code conforms to the standards in
PDD 7.

To run it on all the C source code files in <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12779	12879	
==>}, "\t_RESTORE(" . join(",",@args) . ")\n";
}


sub parse_exit {
	if ($syms[NEXT] eq "for") {
		feedm <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3088	3187	
==>ou're misreading
what this does.)

=cut

sub pgeglob_is {
    my ($target, $pattern) = (shift, shift <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499463	499556	
==>" => "#line 600 \"src/ops/math.ops\"\n  {{\@1}} = floatval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500226	500319	
==>" => "#line 600 \"src/ops/math.ops\"\n  {{\@1}} = floatval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	11581	11688	
==>es->{$next}->leftmostsubrules() )
		{
		    push(@left, $child)
			if ! _contains($child, @left) ;
		}
	}
	r <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3621	3714	
==>inarray,$outhash)=@_;
	my($prm,$value);
	my($prmlst)={};

	while(($prm,$value)=splice(@$in <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3433	3522	
==>inarray,$outhash)=@_;
	my($prm,$value);
	my($prmlst)={};

	while(($prm,$value)=splice(@$in <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1040	1137	
==>piler);

  $compiler->emit("  inc $ident");

  if (($self->ident->kind eq 'var') and ($self->ident <==
3	/Users/nnunley/parrot/config/auto/cgoto.pm	121	216	
==>e  $

=head1 NAME

config/auto/cgoto.pm - Computed C<goto>

=head1 DESCRIPTION

Determines wheth <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	26673	26767	
==>se::RecDescent::_hint($@);
	}

	# QUIETLY PREVENT (WELL-INTENTIONED) CALAMITY
	$mod =~ s/[gc]// <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	6764	6889	
==>he goto is the label of the following
		# block of code:
		next;
	    }
	}
	push @output4, $stmt;
    }

    # Delete labels t <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	53886	54018	
==>SH') {
      my $hr = $_;
      $x = "{" . join(", ",
        map(pretty($_) . '=>' . pretty($hr->{$_}),
            sort keys %$hr ) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354924	355136	
==>",
                  "CODE" => 414,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 208 \"src/ops/io.ops\"\n  PMC * const p = {{\@1 <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	1214	1339	
==>.pl'),
        ),
        $self->new_group('QA', '',
            $self->new_item('', 'parrotbug'),
            $self->new_item <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	62109	62200	
==>d after quotelike "%s">

C<extract_quotelike> or C<extract_codeblock> found one of the
quote <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1406	1509	
==>');

sub new {
    my($class)=shift;
	my($errst,$nberr,$token,$value,$check,$dotpos);
    my($self) <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1360	1458	
==>');

sub new {
    my($class)=shift;
	my($errst,$nberr,$token,$value,$check,$dotpos);
    my($self) <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26569	26661	
==>! exists $subs{$syms[CURR]}) {
		die "Subroutine $syms[CURR] not found at line $sourceline\n" <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	6780	6907	
==>y long, so nevermind
          $name =~ tr/ /_/;
          print $fh "<a name=\"", esc($name), "\"\n>";
          DEBUG and prin <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8558	8656	
==>ub existing_file_with_name
{
    my $self = shift;
    my $path = $self->path_for_file_with_name(sh <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634870	635198	
==>}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635988	636316	
==>}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637106	637434	
==>}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644030	644117	
==>9 \"src/ops/pmc.ops\"\n  {{\@1}} = {{\@2}}->vtable->type_keyed_int(interpreter, {{\@2}}, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644923	645010	
==>9 \"src/ops/pmc.ops\"\n  {{\@1}} = {{\@2}}->vtable->type_keyed_int(interpreter, {{\@2}}, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2050	2175	
==>ss $left_sym;
    $left_type = $left_sym->type;
  }
  else {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVER <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2008	2133	
==>ss $left_sym;
    $left_type = $left_sym->type;
  }
  else {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVER <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1930	2055	
==>ss $left_sym;
    $left_type = $left_sym->type;
  }
  else {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVER <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095215	1095434	
==>reter, {{\@1}});\n  {{+=2}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095910	1096129	
==>reter, {{\@1}});\n  {{+=2}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1520	1631	
==>";
  } else {
    *Pod::Simple::DEBUG = eval " sub () { $value } ";
    print "# Starting Pod::Simple::DEBUG = $ <==
3	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	1479	1661	
==>mmand("make miniparrot-prebuild");
}

print "\n\n";
exit(0);

###########################################################################

sub prebuild_classes {
    my @src;

    for <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	5287	5385	
==>\n"
	_platform_shutdown()
	end
ONOK_${ons}:
ON
	$i=1;
	for my $jumps (@onlab) {
		push @{$code{$seg <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	5453	5548	
==>ect of type C<PMC *>.

=item C<INTERP>

Converted to the interpreter object.

=item C<OtherClass <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	8627	8758	
==>"function_summary.html#$source_file">function detail</a>]</td>
          </tr>
       );
    }
    
    print OUT qq(
            </ <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2654	2760	
==>ob "parrot-smoke-*-$id.html") {
    print "The submitted smoke was already submitted!";
    exit;
  }

  my <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10426	10529	
==>else {
    $self->{scope}->{$symbol} = '*unknown*';
  }

  $value = $self->_generate($lambda);

  if ($v <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	7375	7491	
==>er->_SingleQuoteStringLexer();

            s/^\[(=*)\[//
                and return $parser->_LongStringLexer($1) <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	12111	12209	
==>middle(r)
end function
h=12
y=start(h)
print h

' Basic structure  6, Hello and PI
type newtype
	fo <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	59	149	
==>n at end of file.
# $Id: /parrot/tools/build/pbc2c.pl 19607 2006-05-30T15:23:20.183054Z cok <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634867	635175	
==>@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ne <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635985	636293	
==>@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ne <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637103	637411	
==>@3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ne <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	2193	2335	
==>\t$c\n";
  }
  
  my $dump = '
  sub round {
	my ($a,$b,$c,$d) = @_[0 .. 3];
	my $r;

	' . $insert . '
	$_[0]+$a' . $MSK . ', $_[1]+$b ' . $MSK <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	772	876	
==>s
			base beep binary bload bsave byval
			call calls absolute interrupt base chain circle clear
				clos <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87444	87621	
==>}} = Parrot_make_cb(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88446	88623	
==>}} = Parrot_make_cb(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0, <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	52651	52752	
==>ract_codeblock($grammar,'{',undef,'<');
					  $code })
			{
				_parse("a score marker", $aftererror, <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4530	4637	
==>pir;
}

sub post_op($$) {
	# Nothing to do.
	return "";
}

# Pre and post branch operation hooks.
sub pre_br <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2946	3053	
==>pir;
}

sub post_op($$) {
	# Nothing to do.
	return "";
}

# Pre and post branch operation hooks.
sub pre_br <==
3	/Users/nnunley/parrot/lib/Test/More.pm	10784	10883	
==>k>

  can_ok($module, @methods);
  can_ok($object, @methods);

Checks to make sure the $module or $o <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	34065	34205	
==>1' => $lbl_loop,
    );
    my @params2 = ( $state, $var );
    my @return2 = ();
    @opcodes2 = ();
    for ( @{$vars} ) {
        my <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	38125	38245	
==>taining =for ($fors[-1][1]{'target'}) is a resolver\n";
              $para->[0] = 'Para';
              $para_type = 'Pl <==
3	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1854	1967	
==>g = shift;

    print STDERR "* " and $fresh++ unless $fresh;
    print STDERR $msg;
    $fresh = 0 if substr($msg <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4011	4114	
==>push.
	$pir .= "\${ITEMP0} = 0\n";
	for (1..$pushes) {
		$pir .= <<'PIR';
# Increment stack depth.
inc s <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2427	2530	
==>push.
	$pir .= "\${ITEMP0} = 0\n";
	for (1..$pushes) {
		$pir .= <<'PIR';
# Increment stack depth.
inc s <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	7372	7463	
==>pname} = ++$ParrotOps::max_op_num;
	warn "$opname\t$n\tnot mentioned in ops.num\n" if -e "DE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666420	666778	
==>> [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 745,
                  "ARGS" => [
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 372 \"src/ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	12257	12352	
==>args($sym)) {
			($ac,@args)=pushargs(\@code, \$optype, \@work);
			$pir_args = join(",", map {$ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4095	4188	
==>ass of L<Pod::Simple> and inherits all its methods.

=head1 SEE ALSO

L<Pod::Simple>, L<Pod::S <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3536	3629	
==>ass of L<Pod::Simple> and inherits all its methods.

=head1 SEE ALSO

L<Pod::Simple>, L<Pod::S <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1272	1365	
==>ass of L<Pod::Simple> and inherits all its methods.

=head1 SEE ALSO

L<Pod::Simple>, L<Pod::S <==
3	/Users/nnunley/parrot/config/gen/cpu.pm	863	990	
==>e;

    eval "use $hints";
    unless ($@) {
        $hints->runstep($conf, @_);
    } else {
        print "(no cpu specific hi <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3268	3386	
==>3, choose($4, unescape($5), $6));

        # make the test print the last line of output
        # XXX This should be " <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4675	4793	
==>3, choose($4, unescape($5), $6));

        # make the test print the last line of output
        # XXX This should be " <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2409	2517	
==>ctory_with_name('src/io'),
        $self->directory_with_name('src/ops'),
        $self->directory_with_name( <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	2893	2993	
==>or src/pmc/Makefile
    my $TEMP_pmc_build = <<"E_NOTE";

# the following part of the Makefile was bu <==
3	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	1052	1157	
==>s -p $net_name > $out_name.pir`;
	if ($output) {
		print "translate failed:\n$output";
		return 0;
	}
	$ou <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9441	9530	
==>vline}?'
	my $prevline;
	tie $prevline, q{Parse::RecDescent::LineCounter}, \$text, $thispa <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	1236	1321	
==>$P0["_message"] = "System.NotImplementedException"
$P1 = new "System.NotImplementedExc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256364	256465	
==>740 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257272	257373	
==>740 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258180	258281	
==>740 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1426	1528	
==>averse_treelet_bit {
  DEBUG > 2 and print "Handling $_[1] paragraph event\n";
  my $self = shift;
  pu <==
3	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	2021	2119	
==>}/ 

# length is known from the line above
substitution:       m/[a-zA-Z0-9_-]{$::substitution_len} <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	36319	36415	
==>lookahead)
	{
		if ($min>0)
		{
		   return new Parse::RecDescent::Subrule($subrule,$lookahead,$l <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	17719	17842	
==>ACTIONS => {
			'NUM' => 57,
			">" => 72
		}
	},
	{#State 68
		DEFAULT => -41
	},
	{#State 69
		DEFAULT => -43
	},
	{#State <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79416	79530	
==>ddress. We just need to build\n         a PMC with it so we can get and set the value */\n      {{\@1}} = pmc_new(i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80937	81051	
==>ddress. We just need to build\n         a PMC with it so we can get and set the value */\n      {{\@1}} = pmc_new(i <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2267	2363	
==>register_num} = ${STEMP0}

# Decrement stack height.
dec stack_depth
PIR
		$pir =~ s/\$register_n <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3519	3615	
==>register_num} = ${STEMP0}

# Decrement stack height.
dec stack_depth
PIR
		$pir =~ s/\$register_n <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	3614	3733	
==>en be in system header\n";
        print STDERR "files.  If so, ignore them.  C::Scan is imperfect.\n\n";
    
        f <==
3	/Users/nnunley/parrot/config/inter/make.pm	805	917	
==>o not having it
    $conf->data->set(gmake_version => undef);

    my $prog;

    # precedence of sources for the <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	5949	6061	
==>m the end of the string?"
#
# After this operation, /abc/ compiles to
#
#  check(3)
#  match(a)
#  match(b)
#  ma <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	1371	1490	
==>/lib');
            $conf->data->add(' ', ldflags   => '-L/sw/lib');
            $conf->data->add(' ', ccflags   => '-I/ <==
3	/Users/nnunley/parrot/config/auto/readline.pm	1460	1579	
==>/lib');
            $conf->data->add(' ', ldflags   => '-L/sw/lib');
            $conf->data->add(' ', ccflags   => '-I/ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	6720	6824	
==>codex)=EXPRESSION();    # X
		if ($type[NEXT] =~ /PUN/) {
			feedme();
			($resulty, $typey, @codey)=EXPR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584648	584742	
==>( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, NULL);\n  {{=n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585723	585817	
==>( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, NULL);\n  {{=n <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1441	1703	
==>I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # su <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	1441	1703	
==>I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # su <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	30991	31085	
==>_call_with_input_file {
}

sub _op_call_with_output_file {
}

sub _op_input_port_p {
}

sub _op <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	13808	13937	
==>_return
EOC
    }
    else {
	print <<EOC;
	# $cmt
EOC
    }
}

sub YIELD_VALUE
{
    my ($n, $c, $cmt) = @_;
    my $tos = promot <==
3	/Users/nnunley/parrot/config/auto/env.pm	445	557	
==>g if your C library has setenv / unsetenv';
@args        = qw(verbose);

sub runstep
{
    my ($self, $conf) = (s <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	687	793	
==>input is charclass, advance 1" ],

    [ "start(n)" => "mark start of n-th paren match" ],
    [ "end(n)" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549364	549516	
==>bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ": <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550664	550816	
==>bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ": <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551965	552117	
==>bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ": <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	10323	10433	
==>, $right);
      }
      elsif ($kind eq 'until') {
        $loop = Jako::Construct::Block::Loop::Until->new($b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712482	712572	
==>(interpreter, \"%.12g\", (double){{\@1}});\n  PIO_putps(interpreter, io, s);\n  if (string_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713589	713679	
==>(interpreter, \"%.12g\", (double){{\@1}});\n  PIO_putps(interpreter, io, s);\n  if (string_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094719	1094981	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exec",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inlin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095413	1095675	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exec",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inlin <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	90	183	
==>21 2006-06-20T20:02:00.179448Z bernhard  $

=pod

=head1 NAME

Parrot::Configure - Conducts th <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634314	634584	
==>,
                  "CODE" => 710,
                  "ARGS" => [
                              "p",
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 107 \"src/ops/pmc.ops\"\n  PMC *clas <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	46279	46409	
==>>[$i+1]}\n";
      $p->[$i] .= splice @$p, $i+1, 1; # merge
      --$i;  # and back up
    }
  }

  # Now look for the last text to <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	14022	14151	
==>l_var name=id>">
            <td colspan="12" class="indent3">
              <tmpl_loop name=summary>
                <span class= <==
3	/Users/nnunley/parrot/Configure.pl	8265	8358	
==>{debugging});
$args{maintainer} = 1 if defined $args{lex} or defined $args{yacc};

print <<"EN <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552851	552945	
==>ABLE_get_string(interpreter, method_pmc);\n  dest = (opcode_t *)VTABLE_invoke(interpreter, meth <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556846	556940	
==>ABLE_get_string(interpreter, method_pmc);\n  dest = (opcode_t *)VTABLE_invoke(interpreter, meth <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560869	560963	
==>ABLE_get_string(interpreter, method_pmc);\n  dest = (opcode_t *)VTABLE_invoke(interpreter, meth <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	1963	2079	
==>}
    }
    ## print "***\n", join(' ', @sorted_pmcs), "\n";
    @sorted_pmcs;
}

sub runstep
{
    my ($self, $conf) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	524	633	
==>file()
#

sub file
{
  my $self = shift;

  if (@_) { $self->{FILE} = shift; }

  return defined $self->{FILE} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608091	608445	
==>,
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 689,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 473 \"src/ <==
3	/Users/nnunley/parrot/tools/dev/manicheck.pl	186	359	
==>06-05-30T15:23:20.183054Z coke  $
################################################################################

=head1 NAME

tools/dev/manicheck.pl - Check the MANIFEST f <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1980	2060	
==>)\*\+,\.\/\:\;=\?\~\[\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	270260	270517	
==>pp(interpreter, {{\@2}}, {{\@3}}, MMD_CMP) >= 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	4688	4839	
==>href'>$text</a>";
        }
    }
    else
    {
        # Tidy up the C reference *s.
        $text =~ s|\b\s*\*\s+\b| \*|gs;
        
        esc($tex <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	2990	3088	
==>skipping.\n";
		push @{$code{$seg}->{code}}, "\t# Unimplemented '$syms[CURR] ";
		while(1) {
			fee <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15641	15737	
==>tions of the data tables in this module are derived from the
entity declarations in the W3C XHTML <==
3	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	2284	2412	
==>lf = shift;
        my ($symb) = @_;
        if ( exists $self->{table}{$symb} ) {
            my $defn = $self->{table}{$symb <==
3	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	2664	2792	
==>lf = shift;
        my ($symb) = @_;
        if ( exists $self->{table}{$symb} ) {
            my $defn = $self->{table}{$symb <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	7197	7304	
==>sh:
    struct( CLASS_NAME => { ELEMENT_NAME => ELEMENT_TYPE, ... });

    package CLASS_NAME;
    use Class <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1881	2022	
==>_fn );

        # STDERR is written into same output file
        my $exit_code = Parrot::Test::run_command( 
                            \@te <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2361	2489	
==>_fn );

        # STDERR is written into same output file
        my $exit_code = Parrot::Test::run_command(
            \@te <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	14577	14672	
==>b build_assignment {
	my($left, $leftexpr, $right, $rightexpr, $righttype)=@_;
	my(@ass);

	if ( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292390	292623	
==>"ARGS" => [
                              "i",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 940 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} == {{\ <==
3	/Users/nnunley/parrot/config/auto/pack.pm	1782	1900	
==>.pl:  Unable to find a functional packtype for $_.
               Need a format for %d bytes, but '$format' gave %d byt <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	2338	2448	
==>g = pop @{ $parser->YYData->{scope} };
    $parser->YYData->{_G} = $g;
##    warn "PopScopeF\n";
    PopScop <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721779	722106	
==>" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 809,
                  "ARGS" => [
                              "p",
                              " <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	1015	1125	
==>sparc64/) {

        # CFLAGS entries must be left-aligned.
        print CFLAGS <<"EOF";
src/jit_cpu.c -{-Wcas <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	12361	12460	
==>.  If the
element type is C<'*@'>, a reference to the array element is
returned.

As a special case, <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	7528	7634	
==>cal pmc result
    result = new 'APLVector'

    iter_two = new .Iterator, op2
loop_two:
    unless iter_tw <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6915	7016	
==>= @_;
    my @ops;
    if ($self->{DEBUG}) {
	push @ops, (qq(print "PUSHED ).(@_>1?$_[1]:"mark").qq(\\ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6565	6666	
==>= @_;
    my @ops;
    if ($self->{DEBUG}) {
	push @ops, (qq(print "PUSHED ).(@_>1?$_[1]:"mark").qq(\\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658022	658274	
==>DE" => 735,
                  "ARGS" => [
                              "i",
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 329 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_ <==
3	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	1513	1641	
==>d in a test file.

=cut

sub output_is 
{
  my $self = shift;
  my ( $code, $expected, $desc ) = @_;
  
  my $test_no = $self->{b <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	586	672	
==>se Parrot::Docs::Section::Info;
use Parrot::Docs::Section::Docs;
use Parrot::Docs::Sect <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	2845	3016	
==>ildprefix => '',
                prefix      => '/usr',
                destdir     => '',
                exec_prefix => '/usr',
                bindir      => '/usr/bin', <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	4289	4412	
==>h'   , 216,
 'Ugrave'   , 217,
 'Uacute'   , 218,
 'Ucirc'    , 219,
 'Uuml'     , 220,
 'Yacute'   , 221,
 'THORN'    , 222 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	8842	8934	
==>->minlen(); }
sub maxlen { $_[0]->{args}->[1]->maxlen(); }

package Regex::Ops::Tree::rule;
s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47225	47386	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "debug",
                  "F <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40116	40250	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "d <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40963	41097	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "d <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	32193	32288	
==>results PMC index and get PMC. */\n\t    sig = PF_CONST(PMC_cont(cc)->seg, results[1])->u.key;\n <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1570	1660	
==>ERNAL_ERROR("Type is not a Jako::Construct::Type instance!")
    unless UNIVERSAL::isa($typ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1418	1508	
==>ERNAL_ERROR("Type is not a Jako::Construct::Type instance!")
    unless UNIVERSAL::isa($typ <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1537	1673	
==>erbose);

    unless ($prog) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    if ($con <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1551	1687	
==>erbose);

    unless ($prog) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    if ($con <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	1167	1262	
==>$right = $self->right->compile($compiler);

  $compiler->emit("  new $left, .$right");

  return <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656439	656527	
==>\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657363	657451	
==>\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076025	1076229	
==>i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVA <==
3	/Users/nnunley/parrot/Configure.pl	5103	5217	
==>-verbose            Output extra information
   --verbose=2          Output every setting change
   --verbose-step= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544215	544323	
==>{{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = a, saved_var2 = b; \n\n if(a==0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545551	545659	
==>{{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = a, saved_var2 = b; \n\n if(a==0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546887	546995	
==>{{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = a, saved_var2 = b; \n\n if(a==0 <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	5786	5935	
==>ys %{$system_include{$include}}) {
                print "        $file\n";
            }
        }
    }
}


sub do_object {
    foreach my $obj (@fi <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23255	23364	
==>urn $return;
}

sub _op_max {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $retur <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	792	889	
==>fined $source;
  $self->set_source($source);
  $self->output_fh(*STDOUT{IO});

  $self->run; # def <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	12646	12765	
==>$name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $dont_expect ) {
        # undef only mat <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	13090	13209	
==>$name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $dont_expect ) {
        # undef only mat <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	21864	21970	
==>ode for sub branches.
        $pir .= "INS_BRANCH_$prefix$r1[$#r1]->{'code'}:\n";
        $pir .= binary_di <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	893	1008	
==>ess($key =~ m/^~/s) {
        next if $key eq 'start_line' and $_[0]{'hide_line_numbers'};
        _xml_escape($valu <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1167	1282	
==>ess($key =~ m/^~/s) {
        next if $key eq 'start_line' and $_[0]{'hide_line_numbers'};
        _xml_escape($valu <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	712	823	
==>ess($key =~ m/^~/s) {
      next if $key eq 'start_line' and $_[0]{'hide_line_numbers'};
      _xml_escape($valu <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29339	29456	
==>O_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying terminal: [' . $self->describe
					  . ']},
					  Parse::RecDescen <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31436	31553	
==>O_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying terminal: [' . $self->describe
					  . ']},
					  Parse::RecDescen <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27236	27346	
==>O_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying terminal: [' . $self->describe
					  . ']}, Parse::RecDescen <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	930	1041	
==>_debug()
  
#
#  PBC loader does not support LuaFunction
#  
  
#  load_bytecode "languages/lua/lib/luabas <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	841	938	
==>enien, all rights reserved.
# (see the pod text in Parse::Yapp module for use and distribution ri <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	817	913	
==>enien, all rights reserved.
# (see the pod text in Parse::Yapp module for use and distribution ri <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	16076	16182	
==>If the object is OK, we'll not have re-thrown and will need to put it on
    # the stack. Emit code to deal <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	3379	3469	
==>H_GUARD
#include "parrot/cclass.h"
#define WHITESPACE  enum_cclass_whitespace
#define WORDC <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	47184	47291	
==>{  # it's a filename
    $new->parse_file($source);
  }
  
  return $new;
}


#----------------------------- <==
3	/Users/nnunley/parrot/config/auto/jit.pm	1222	1322	
==>tem
    # the above split fails because archname is "darwin-thread-multi-2level".
    if ($cpuarch =~ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681388	681526	
==>p"
                            ],
                  "BODY" => "#line 507 \"src/ops/pmc.ops\"\n    {{\@1}} = {{\@2}}->vtable->shift_integer( <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	48751	48878	
==>stat', 8,
sub
#line 157 "Lua\lua51.yp"
{
            BuildForList( $_[0], $_[2], $_[4], $_[7] );
        }
	],
	[#Rule 26 <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	203	308	
==>d1 SYNOPSIS

    % perl tools/dev/mk_manifest_and_skip.pl

=head1 DESCRIPTION

Recreates MANIFEST and MANI <==
3	/Users/nnunley/parrot/lib/Test/More.pm	35913	36009	
==>an't
figure out how to easily wedge test names into Test's interface (along
with a few other prob <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5837	5932	
==>RANCH_$_:\n";
			}
			while($_=pop(@{$elsestack->{$elsetag}})) {
				push @{$code{$seg}->{code}} <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8183	8275	
==>RANCH_$_:\n";
		}
		while($_=pop(@{$elsestack->{$elsetag}})) {
			push @{$code{$seg}->{code}} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2587	2687	
==>e;

  $left = $left->compile($compiler);
  $right = $right->compile($compiler);

  my $dest_name = $d <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	28258	28355	
==>recursive algorithm implemented iteratively!  Whee!

  while($treelet = shift @stack) {
    for($i <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	1514	1660	
==>ime      = 1

    [regexes]
    include   = ^gc 
    include   = ^oo 
    exclude   = header
    exclude   = waves

    [benchmark parrotj]
    exe <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	355	466	
==>=="  => sub { $_[0]->code eq $_[0]->code },
  "!="  => sub { $_[0]->code ne $_[0]->code },
  "eq"  => sub { $_[0 <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	1658	1757	
==>difiable Data

Data symbol that is not initialized with any data.

See L</"Data is not an API">.

=i <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Posix.pm	329	466	
==>prog {
    my $self = shift;
    my ( $count, $options ) = @_;

    my $lang_fn        = Parrot::Test::per_test( '.bc', $count );
    my $ <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	459	589	
==>prog {
    my $self = shift;
    my ( $count, $options ) = @_;

    my $lang_fn = Parrot::Test::per_test( '.bc', $count );
    my $ <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr3.pm	351	481	
==>prog {
    my $self = shift;
    my ( $count, $options ) = @_;

    my $lang_fn = Parrot::Test::per_test( '.bc', $count );
    my $ <==
3	/Users/nnunley/parrot/languages/perms.pl	570	688	
==>it = deeper(5, \@things);

while (my $i = $it->()) {
  print $i."\n"
    if length($i) >= 2;
}

__END__
    for my $i ( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957504	957598	
==>TVAL n = Parrot_encoding_number(interpreter, {{\@2}});\n  if (n < 0)\n    real_exception(interp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958409	958503	
==>TVAL n = Parrot_encoding_number(interpreter, {{\@2}});\n  if (n < 0)\n    real_exception(interp <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	2429	2543	
==>per->Dump ([$count, $tree]);
    push @tree, $tree;
  }

  # Implicit begin at toplevel
  if (@tree > 1) {
    $tre <==
3	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	886	983	
==>ory. (Needed for
# distributions or in general when svn is not available).
# See docs/submissions. <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3741	3838	
==>ory. (Needed for
# distributions or in general when svn is not available).
# See docs/submissions. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583960	584203	
==>=> "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585034	585277	
==>=> "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function", <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	410	509	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub new {
  my $self = shift;
  my $new = $self->SUPER:: <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/EditorPlugins.pm	580	681	
==>b new
{
	my $self = shift;
	
	return $self->SUPER::new(
		'Editor Plugins', 'editor.html', '',
		$self <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2271	2365	
==>C<access_arg($type, $value, $op)>

Returns the C code for the specified op argument type (see
C <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3162	3256	
==>C<access_arg($type, $value, $op)>

Returns the C code for the specified op argument type (see
C <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41820	41945	
==>e
						  . ']>>},
						  Parse::RecDescent::_tracefirst($text),
						  q{' . $rule->{"name"} .'})
							if defined $::RD_T <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38129	38246	
==>e . ']>>},
						  Parse::RecDescent::_tracefirst($text),
						  q{' . $rule->{"name"} .'})
							if defined $::RD_T <==
3	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1816	1931	
==>my $fresh;
  sub debug($) {
    my $msg = shift;

    print STDERR "* " and $fresh++ unless $fresh;
    print STDERR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123891	124204	
==>){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124765	125078	
==>){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125639	125952	
==>){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864015	864123	
==>"src/ops/string.ops\"\n  UINTVAL n;\n  STRING *s = {{\@2}};\n  if (!s)\n    n = 0;\n  else {\n    n = s->bufu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864907	865015	
==>"src/ops/string.ops\"\n  UINTVAL n;\n  STRING *s = {{\@2}};\n  if (!s)\n    n = 0;\n  else {\n    n = s->bufu <==
3	/Users/nnunley/parrot/config/init/hints/irix.pm	671	771	
==>$conf->data->get('cc');
    my $cxx  = $conf->data->get('cxx');
    my $ld   = $conf->data->get('ld') <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661980	662119	
==>2}}->vtable->exists_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662896	663035	
==>2}}->vtable->exists_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	23658	23752	
==>lone->isa_str = CONST_STRING(interp, "$isa");
        vt_clone->does_str = CONST_STRING(interp, <==
3	/Users/nnunley/parrot/config/auto/inline.pm	770	939	
==>cc_build(); };
        if (!$@) {
            $test = cc_run();
            chomp $test if $test;
        }
        cc_clean();
        if (!$test) {
            cc_gen(' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349107	349198	
==>st char * const path = string_to_cstring(interpreter, {{\@2}});\n\n  {{\@1}} = PIO_open(inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350109	350200	
==>st char * const path = string_to_cstring(interpreter, {{\@2}});\n\n  {{\@1}} = PIO_open(inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116875	117142	
==>"inline",
                  "CODE" => 145,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 209 \"src/ops/bit.ops\"\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	466859	467048	
==>"\n  {{\@1}}->vtable->decrement(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2166	2272	
==>ddr == 0)
	  return 0;
    goto *ops_addr[*(cur_opcode = (opcode_t *)$addr)]";
    }
}

=item C<expr_offset <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22274	22390	
==>][0] eq '=for') {
        $self->whine(
          $para->[1]{'start_line'},
          "=end $content without matching <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	8158	8258	
==>, analogous to the functions in
Test::More.

$name is always optional.

=over 4

=item B<ok>

  $Test <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8713	8812	
==>= 0 goto PRE_CALL_END_${CURIC}

# Get type of return value and build code to pop it.
${ITEMP1} = ele <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7285	7384	
==>= 0 goto PRE_CALL_END_${CURIC}

# Get type of return value and build code to pop it.
${ITEMP1} = ele <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047458	1047745	
==>});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEX <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054567	1054854	
==>});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEX <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059262	1059549	
==>});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEX <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094835	1095148	
==>" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1214,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53238	53326	
==>w Parse::RecDescent::UncondReject($lookahead,$line,$code);
				$prod and $prod->additem($ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54947	55035	
==>w Parse::RecDescent::UncondReject($lookahead,$line,$code);
				$prod and $prod->additem($ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10594	10804	
==>AME" => "bsr",
                  "FLAGS" => ":base_core,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11382	11592	
==>AME" => "bsr",
                  "FLAGS" => ":base_core,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline", <==
3	/Users/nnunley/parrot/examples/benchmarks/arriter.pl	21	111	
==>t (C) 2001-2006, The Perl Foundation.
# $Id: /parrot/examples/benchmarks/arriter.pl 19601 2 <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	15202	15303	
==>ue { $@ = undef }

	unless ($matched)
	{
		_failmsg 'No match found for opening bracket', pos $$textre <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	14168	14258	
==>safely ignore this message.";
		Parse::RecDescent::_hint("The production starts with $what. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291511	291762	
==>"CODE" => 339,
                  "ARGS" => [
                              "i",
                              "nc",
                              "n"
                            ],
                  "BODY" => "#line 940 \"src/ops/cmp.ops\"\n  {{\@1}} = <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6917	7014	
==>ut it in the parameter register list.
${PARAMS}[${ITEMP0}] = ${STEMP0}

# Emit code to pop the reg <==
3	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1059	1192	
==>sit", ref $self, "' in '",
            ref $visitor, "'.\n";
        return undef;
    }

}

package UnaryOp;
use base qw(Lua: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054385	1054476	
==>null namespace.\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to get null global.\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055512	1055603	
==>null namespace.\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to get null global.\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23031	23221	
==>t = (opcode_t *)p->vtable->invoke(interpreter, p, dest);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25470	25660	
==>t = (opcode_t *)p->vtable->invoke(interpreter, p, dest);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	935	1030	
==>=> $_[0], STDERR => File::Spec->devnull )},
    stderr => sub{return ( STDOUT => File::Spec->dev <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	12365	12494	
==>S => {
			"?" => 16
		},
		DEFAULT => -28,
		GOTOS => {
			'rulename' => 17
		}
	},
	{#State 4
		DEFAULT => -11
	},
	{#State 5
		D <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11242	11333	
==>${DEST0} = concat ${STEMP0}
inc stack_depth
${STEMP0} = stack_depth
${DEST0} = concat ${STEM <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8428	8519	
==>${DEST0} = concat ${STEMP0}
inc stack_depth
${STEMP0} = stack_depth
${DEST0} = concat ${STEM <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	133	230	
==>w(@EXPORT @ISA);

use Parrot::Config;

require Exporter;
require Parrot::Test;

@EXPORT = ( qw(out <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	50	147	
==>w(@EXPORT @ISA);

use Parrot::Config;

require Exporter;
require Parrot::Test;

@EXPORT = ( qw(out <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	914	1009	
==>message, $pos) = @_;
	_failmsg $message, $pos if $message;
	return ("",$$textref,"") if $wantarr <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11008	11104	
==>MP0} != ELEMENT_TYPE_VOID goto pre_call_HAS_RETURN_${CURIC}
if "${CURIC}" == "73" goto pre_call_H <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8194	8290	
==>MP0} != ELEMENT_TYPE_VOID goto pre_call_HAS_RETURN_${CURIC}
if "${CURIC}" == "73" goto pre_call_H <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5856	5952	
==>MP0} != ELEMENT_TYPE_VOID goto pre_call_HAS_RETURN_${CURIC}
if "${CURIC}" == "73" goto pre_call_H <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	6040	6167	
==>s to ignore.
        
        foreach my $file ($dir->files(1, '^\.'))
        {
            push @rel_paths, $source->relative_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3600	3699	
==>~ s/\$register_num/$register_num/g;
		$register_num++;
	}

	# Return generated code.
	return $pir;
} <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3410	3509	
==>~ s/\$register_num/$register_num/g;
		$register_num++;
	}

	# Return generated code.
	return $pir;
} <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	7437	7552	
==>.local int pos_one
    .local int not_found

    not_found = op1
    inc not_found

    .local pmc result
    result <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630487	630587	
==>L type = pmc_type_p(interpreter, class);\n    if (type <= 0)\n        real_exception(interpreter, NUL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631477	631577	
==>L type = pmc_type_p(interpreter, class);\n    if (type <= 0)\n        real_exception(interpreter, NUL <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6542	6673	
==>d do {        #shift

#DBG>				$debug & 0x04
#DBG>			and	print STDERR "Shift and go to state $act.\n";

					$$errstatus
				a <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6238	6363	
==>d do {        #shift

#DBG>				$debug & 0x04
#DBG>			and	print STDERR "Shift and go to state $act.\n";

					$$errstatus
				a <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	4612	4713	
==>totals{covered_branches} += $covered_branches;
                $file_branch_coverage{$source_file} = $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500613	500986	
==>ore",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 575,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7926	8073	
==>@sempar ? $sempar[0] : undef;

            splice(@$stack,-$len,$len);

                $$check eq 'ACCEPT'
            and do {

#DBG>			$de <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7570	7710	
==>@sempar ? $sempar[0] : undef;

            splice(@$stack,-$len,$len);

                $$check eq 'ACCEPT'
            and do {

#DBG>			$de <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684670	684847	
==>>vtable->setprop(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n      {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685565	685742	
==>>vtable->setprop(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n      {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/config/inter/encoding.pm	1183	1281	
==>he following part of the Makefile was built by 'config/inter/encoding.pm'

E_NOTE

    foreach my $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	769	875	
==>r (" . ref($ident) . ") is not!" unless UNIVERSAL::isa($ident, qw(Jako::Construct::Expression::Value::Ident <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	794	900	
==>r (". ref($ident) . ") is not!"  unless UNIVERSAL::isa($ident, qw(Jako::Construct::Expression::Value::Ident <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	758	864	
==>r (". ref($ident) . ") is not!"  unless UNIVERSAL::isa($ident, qw(Jako::Construct::Expression::Value::Ident <==
3	/Users/nnunley/parrot/config/auto/cgoto.pm	2003	2106	
==>/oplib/core_ops_cg.h $(OPS_DIR)/core_ops_cg.c \
                    $(INC_DIR)/oplib/core_ops_cgp.h $(OP <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	249	349	
==>, verbatims, and then also
#  turning formatting sequences into treelets.
#
# Are you really sure you <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	48853	48941	
==>------------------------
1;
__END__

TODO:
A start_formatting_code and end_formatting_cod <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	784	882	
==>ight) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  c <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	812	910	
==>ight) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  c <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	496	594	
==>ight) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789823	790079	
==>ing_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790733	790989	
==>ing_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	20556	20660	
==>$para->[1]{'~resolve'}  = $to_resolve || 0;

      DEBUG > 1 and print " Making note to ", $dont_ignore ? <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643537	643855	
==>eof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 719,
                  "ARGS" => [ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	56070	56219	
==>' );
        }
	],
	[#Rule 81
		 'primary', 1,
sub
#line 436 "Lua\lua51.yp"
{
            BuildCallVararg( $_[0] );
        }
	],
	[#Rule 8 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36069	36209	
==>~=" => 73,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -71
	},
	{#State 139
		ACTIONS => {
			"-" => 72,
			"<" => 7 <==
3	/Users/nnunley/parrot/lib/Test/More.pm	7592	7711	
==>() eq 42,        "Meaning of Life" );
    ok( $foo ne '',     "Got some foo" );

(Mnemonic:  "This is that."  "This isn' <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	17871	17968	
==>de($$$$)
{
	my ($self,$namespace,$rule,$parser) = @_;
	my $code =
'
	while (!$_matched'
	. (define <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1999	2102	
==>l($self->name);

  #
  # If the identifier is already defined at this lexical scope, we want to complain <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1746	1849	
==>l($self->name);

  #
  # If the identifier is already defined at this lexical scope, we want to complain <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	275	375	
==>089Z coke  $
#

use strict;
eval "use warnings";

use Carp;

package Jako::Construct::Expression::Val <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2102	2248	
==>,
                "$self->{parrot} --no-gc languages/${pir_fn}",
            );
        }

        # This does not create byte code, but lua c <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26091	26208	
==>ER_NEXT_$ps->{num}: noop
NEXT
	} else {    # next var
		while (1) {
			push @{$code{$seg}->{code}}, <<NEXT;
	add $ps-> <==
3	/Users/nnunley/parrot/config/init/defaults.pm	4406	4523	
==>ng?
        has_static_linking => 1,
        has_dynamic_linking => 0,

        # default behaviour for linking parrot <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11650	11762	
==>ct::Statement::Arithmetic->new($block, $ident, $ident, $op, $value);
      next;
    }

    #
    # Concat assign <==
3	/Users/nnunley/parrot/examples/benchmarks/oo5.pl	208	332	
==>s [ 10, 20 ], $self;
}

sub i {
    my $self = shift;
    if (@_) { $self->[0] = shift } else { $self->[0] }
}

sub j {
    m <==
3	/Users/nnunley/parrot/examples/benchmarks/oo6.pl	200	324	
==>s [ 10, 20 ], $self;
}

sub i {
    my $self = shift;
    if (@_) { $self->[0] = shift } else { $self->[0] }
}

sub j {
    m <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6989	7101	
==>zy moves we have not
    # done first.
	if ($need_dest) {
        $pir = _do_lazy_moves('_${CURIC}');
		$pir .= < <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1842	1935	
==>ent'} }
sub start_over_number  { ++$_[0]{'Indent'} }
sub start_over_text    { ++$_[0]{'Indent' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1410	1503	
==>ent'} }
sub start_over_number  { ++$_[0]{'Indent'} }
sub start_over_text    { ++$_[0]{'Indent' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	1174	1263	
==>ct::Type::Number->new($token)  if $type eq 'num';
  return Jako::Construct::Type::PMC->new <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	6285	6463	
==>nfig{VERSION});
                $_ = '';
            }

            $self->{PREAMBLE} .= $_
                unless $seen_pod or $count; # Lines up to first op def.

            ne <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5278	5390	
==>od 0755, "$dest/$_$LOAD_EXT";
        }

    }
}
else {
    die "invalid command '$mode'\nmust be one of generate <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5489	5601	
==>od 0755, "$dest/$_$LOAD_EXT";
        }

    }
}
else {
    die "invalid command '$mode'\nmust be one of generate <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936854	937075	
==>ODE" => 1053,
                  "ARGS" => [
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 455 \"src/ops/string.ops\"\n  {{\@1}} = st <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2117	2217	
==>peer->prefix) {
    $self->prefix($self->peer->prefix);
  }

  if ($self->prefix) {
    $handler->sta <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1994	2094	
==>peer->prefix) {
    $self->prefix($self->peer->prefix);
  }

  if ($self->prefix) {
    $handler->sta <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632038	632459	
==>S" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 708,
                  "ARGS" => [
                              "p",
                              "i",
                              "p"
                            ],
                  "BODY" => " <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	7055	7166	
==>$stack[-1]->[0] ne "(");
			pop @stack;
			next;
		}

		if (	$type eq "STRING" or
			not precedence($sym, exists <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	5281	5388	
==>~

sub do_link {
  my($self, $token) = @_;
  my $type = $token->attr('type');
  if(!defined $type) {
    $se <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	6456	6575	
==>ut .= "    croak 'Too many args to $name' if \@_ > 1;\n";
            $out .= "    \@_ ? ($pre\$r->$elem$sel = shift$pst <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359352	359441	
==>if (s && string_length(interpreter, s)) {\n    PIO_putps(interpreter, PIO_STDERR(interpret <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360100	360189	
==>if (s && string_length(interpreter, s)) {\n    PIO_putps(interpreter, PIO_STDERR(interpret <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	250081	250339	
==>{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "not",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	251480	251738	
==>{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "not",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	1736	1851	
==>/ and $afternext=~/[Mm]/ ) ) {	# Comments
		append;
		fetch;
		while($cur ne -1 and $cur ne "\n") {
			append;	
			f <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	17080	17189	
==>0x7f .. 0xFF, 0x46),

  # We get to escape out 'F' so that we can send RTF files thru the mail
  # without the <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	31779	31883	
==>implemented iteratively!  Whee!

  while($treelet = shift @stack) {
    for(my $i = 2; $i < @$treelet; ++ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	31637	31736	
==>ilar to assert().  If the $check is true, something
has gone horribly wrong.  It will die with the g <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	5397	5567	
==>ch_fail
          match_success:
            print "matched"
            $captures
            goto end
          match_fail:
            print "failed"
            goto e <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	2745	2867	
==>ice @_, 0, 2) {
        my ($old) = $self->{c}{$key};
        if (defined $old) {
            $self->set($key, "$old$delim$ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	6981	7085	
==>}
  
  unshift @{$self->{'token_buffer'}}, @_;
  DEBUG > 1 and print "Token buffer now has ",
   scalar(@ <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	3305	3416	
==>mp_num $N100, 0.0
    %1 = $I100
END_PIR
    $P0[unicode:"monadic:\x{f7}"] =  <<"END_PIR"            # reciproca <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687635	687920	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "delprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688406	688691	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "delprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11428	11539	
==>->new($block, $token);
      my $op    = substr($self->forth->text, 0, -1);
      my $value = Jako::Construct::E <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11975	12086	
==>->new($block, $token);
      my $op    = substr($self->forth->text, 0, -1);
      my $value = Jako::Construct::E <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12518	12629	
==>->new($block, $token);
      my $op    = substr($self->forth->text, 0, -1);
      my $value = Jako::Construct::E <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	25376	25477	
==>e::RecDescent::linenum($thisline)').'];
		'; 
	}

	my $dir =
	      new Parse::RecDescent::Directive(' <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19409	19522	
==>t action has the specified
		       			  \"auto-action\" automatically
					  appended.");
	}
	elsif ($parser->{_A <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1556	1649	
==>at ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Emit pop code.
${INS} = concat ${STACK$regis <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3266	3359	
==>at ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Emit pop code.
${INS} = concat ${STACK$regis <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24342	24461	
==>MARR
			if ($syms[NEXT] eq ",") {
				feedme();
				goto &parse_dim;			
			}
		} elsif ($syms[CURR] eq "shared") {
			pr <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	20307	20415	
==>($_->{'group'}) {
                $pir .= "    if cur_ic == 0x$_->{'code'} goto B2_BRANCH_$prefix$_->{'code'} <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	1077	1161	
==>e.'(?:\s*,\s*'.$param_re.')*)?');
my $method_re = make_re('^\s*('.$type_re.')\s+('.$i <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	2515	2701	
==>$len == $len-1;
    }
    print "};\n";
}



#
# create 'src/charset/tables.c'
#
###########################################################################
my $c_file= File::Spec->catfil <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4739	4847	
==>' inclusive.
#So, DO NOT remove comment at end of sub !!!
sub _Parse {
    my($self)=shift;

	my($rules, <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4504	4607	
==>' inclusive.
#So, DO NOT remove comment at end of sub !!!
sub _Parse {
    my($self)=shift;

	my($rules, <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	44314	44424	
==>/^[a-zA-Z]/) {
      $return = $self->_find_lex($value);
    }
    else {
      $return = $self->_constant($nod <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2713	2821	
==>liblist =~ s/gdbm\.lib/-llibgdbm/i;
        }
        my $extraLibs = '-lm -lgmp -lreadline -lpthread -lm -L/ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2508	2616	
==>liblist =~ s/gdbm\.lib/-llibgdbm/i;
        }
        my $extraLibs = '-lm -lgmp -lreadline -lpthread -lm -L/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020544	1020751	
==>RGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 192 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = ( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3414	3510	
==>::XML>, L<Pod::SAX>


=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All ri <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3066	3162	
==>::XML>, L<Pod::SAX>


=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All ri <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6835	6950	
==>$pmc) = @_;

    if (needs_build("$pmc.c", "$pmc.pmc")) {
        run("$PMC2C --c $pmc.pmc")
          or die "pmc2c <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7046	7161	
==>$pmc) = @_;

    if (needs_build("$pmc.c", "$pmc.pmc")) {
        run("$PMC2C --c $pmc.pmc")
          or die "pmc2c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137913	138182	
==>TYPE" => "inline",
                  "CODE" => 169,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 70 \"src/ops/cmp. <==
3	/Users/nnunley/parrot/config/init/hints/irix.pm	579	716	
==>{
        $libs .= ' -lpthread';
    }
    $conf->data->set(libs => $libs);

    my $cc   = $conf->data->get('cc');
    my $cxx  = $conf-> <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	590	700	
==>+ $_[1]\n";
  
  print $fh   '  ' x ($_[0]{'indent'} || 0),  "<", $_[1];

  foreach my $key (sort keys %{$_[2]} <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	1324	1430	
==>cs/POD2HTML.pm'),
            $self->new_item('', 'lib/Parrot/Docs/HTMLPage.pm'),
            $self->new_it <==
3	/Users/nnunley/parrot/lib/Test/More.pm	8988	9094	
==>hat/, $test_name );

Similar to ok(), like() matches $this against the regex C<qr/that/>.

So this:

    li <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2966	3058	
==>ur_op, Parrot_Interp interpreter)";
}

=item C<run_core_func_start()>

Returns the C code pri <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	8929	9028	
==>d = $self->add_checks($kid, $kid_guarantee, $kid_follow_min);

            if (defined($kid->maxlen( <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1891	1986	
==>$self->SUPER::new($path);
}

=back

=head2 Instance Methods

=over 4

=item C<create_path()>

Th <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	868	963	
==>$self->SUPER::new($path);
}

=back

=head2 Instance Methods

=over 4

=item C<create_path()>

Th <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5977	6080	
==>n needs to
	# have an empty stack type state propogated to it if nothing has been
	# propogated there al <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3915	4018	
==>n needs to
	# have an empty stack type state propogated to it if nothing has been
	# propogated there al <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	47637	47767	
==>line 124 "Lua\lua51.yp"
{
            BuildIf( $_[0], $_[1], $_[2], $_[3], $_[6] );
        }
	],
	[#Rule 19
		 'stat', 4,
s <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10037	10139	
==>CTIONS}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Pop state $$stack[-1][0].\ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9589	9688	
==>CTIONS}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Pop state $$stack[-1][0].\ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	3654	3756	
==>urn shift->is('while');         }

sub is_loop_control  { return shift->is('next', 'last', 'redo'); }
s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719949	720040	
==>(interpreter, \"%.12g\", (double){{\@2}});\n  PIO_putps(interpreter, io, s);\n  if (string_s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721149	721240	
==>(interpreter, \"%.12g\", (double){{\@2}});\n  PIO_putps(interpreter, io, s);\n  if (string_s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	371	482	
==>Carp;

use base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $dest, $left, $op, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	362	473	
==>Carp;

use base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $dest, $left, $op, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	251	362	
==>Carp;

use base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $dest, $left, $op, <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	209	384	
==>83054Z coke  $
################################################################################

=head1 TITLE

tools/dev/install_files.pl - Copy files to their correct location <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11282	11373	
==>pth
${STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
pre_call_NO_RETURN_${CURIC}:

# Fini <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8468	8559	
==>pth
${STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
pre_call_NO_RETURN_${CURIC}:

# Fini <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8030	8179	
==>ACCEPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Accept.\n";

				return($semval);
			};

                $$check <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7670	7810	
==>ACCEPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Accept.\n";

				return($semval);
			};

                $$check <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2450	2554	
==>f("cur_opcode = &&PC_%d; cur_opcode += %s; goto switch_label", $self->pc, $offset);
    }

    #print STD <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	12919	13030	
==>% OP_HASH_SIZE;
    if (!hop) {
        hop = mem_sys_allocate_zeroed(OP_HASH_SIZE * sizeof(HOP*));
        hop_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	2163	2255	
==>->indent;
  $self->SUPER::compile($compiler);
  $compiler->outdent;

  $compiler->emit("_${na <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6598	6746	
==>(I-1) > A$(I) THEN
         Exchange = TRUE
         B$=A$(I-1)
         A$(I-1)=A$(I)
         A$(I)=B$
         ' SWAP A$(I - 1), A$(I)
      END I <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16251	16399	
==>(I-1) > A$(I) THEN
         Exchange = TRUE
         B$=A$(I-1)
         A$(I-1)=A$(I)
         A$(I)=B$
         ' SWAP A$(I - 1), A$(I)
      END I <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	1716	1812	
==>etermines the names of the .c and .h files from the
basename of the .pmc file (e.g. F<perlint.pmc <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10376	10463	
==>${PTEMP3} = ${STYPES}[${ITEMP2}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP3}["reg_type_short"] <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7760	7847	
==>${PTEMP3} = ${STYPES}[${ITEMP2}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP3}["reg_type_short"] <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	770	856	
==>hile;

use Jako::Construct::Declaration::Constant;
use Jako::Construct::Declaration::Su <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677594	677704	
==>"\n    {{\@1}}->vtable->unshift_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678372	678482	
==>"\n    {{\@1}}->vtable->unshift_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/config/init/hints/linux.pm	611	736	
==>f ($ld_share_flags !~ /-fPIC/) {
        $ld_share_flags .= ' -fPIC';
    }

    if ($cc =~ /icc/) {

        # Intel C++ comp <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3355	3466	
==>f->data->get('linkflags');
            $linkflags =~ s/-opt:\S+//;
            $conf->data->set(linkflags => $li <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4859	4970	
==>f->data->get('linkflags');
            $linkflags =~ s/-opt:\S+//;
            $conf->data->set(linkflags => $li <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548202	548443	
==>\n  while(i>0) {\n    q = q*i;\n    i--;\n  }\n  {{\@1}} = q;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549109	549350	
==>\n  while(i>0) {\n    q = q*i;\n    i--;\n  }\n  {{\@1}} = q;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	863	956	
==>-L/usr/local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS = qq[-bundle -undefined suppress];
our <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5932	6025	
==>ad1 AUTHOR

Joshua Hoblitt C<jhoblitt@cpan.org>

=head1 SEE ALSO

F<docs/configuration.pod>, L <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6781	6874	
==>ad1 AUTHOR

Joshua Hoblitt C<jhoblitt@cpan.org>

=head1 SEE ALSO

F<docs/configuration.pod>, L <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	2068	2161	
==>ad1 AUTHOR

Joshua Hoblitt C<jhoblitt@cpan.org>

=head1 SEE ALSO

F<docs/configuration.pod>, L <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	602	713	
==>);
    my $parrotdir = dirname $self->{parrot};

    my $args = $ENV{TEST_PROG_ARGS} || '';

    $lang_f = File: <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	639	750	
==>);
    my $parrotdir = dirname $self->{parrot};

    my $args = $ENV{TEST_PROG_ARGS} || '';

    $lang_f = File: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106400	1106643	
==>reter->vtables[typ]->class;\n    {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107376	1107619	
==>reter->vtables[typ]->class;\n    {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	3619	3750	
==>bigger than intval.
            $conf->data->set(%hugeintval);
            last;
        }
    }
    if (!defined($hugeintval{hugein <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	3055	3179	
==>rn (aop(comment => [ "restore rxlocals" ]),
            map { aop('popint' => [ $_, "rxlocal $_" ]) }
                reverse <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	8	98	
==>ght (C) 2004, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Docs/Section/Libs.pm 20333 200 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540375	540478	
==>s/math.ops\"\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? - <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541627	541730	
==>s/math.ops\"\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? - <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542879	542982	
==>s/math.ops\"\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? - <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761506	761765	
==>");\n    REG_PMC({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762359	762618	
==>");\n    REG_PMC({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	380	479	
==>ple::BlackBox');
$VERSION = '2.05';

@Known_formatting_codes = qw(I B C L E F S X Z); 
%Known_format <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113398	113681	
==>> 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114136	114419	
==>> 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	9775	9883	
==>op_info_table";
#
# Op Info Table:
#
    print SOURCE <<END_C;

/*
** Op Info Table:
*/

static op_info_t $op <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	213	324	
==>);

@AsmOps =
  ( [ "scan(R)" => "scan for R at every position" ],
    [ "terminate()" ],
    [ "atend()" => "re <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	236	326	
==>ops/mops.pl

=head1 DESCRIPTION

A Perl implementation of the F<examples/mops/mops.pasm> ex <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	232	322	
==>ops/mops.pl

=head1 DESCRIPTION

A Perl implementation of the F<examples/mops/mops.pasm> ex <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16986	17098	
==>g a library.

=cut

sub lib_load_code() {
    my $self = shift;

    my $classname = $self->{class};
    return d <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660100	660186	
==>\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->exists_keyed_int(interpreter, {{\@2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661022	661108	
==>\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->exists_keyed_int(interpreter, {{\@2 <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	77	183	
==>nal

sub import (Str $pkg: *@_paths) returns Void {
    my @paths = @_paths.reverse();
    for @paths -> $p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386064	386362	
==>nction",
                  "CODE" => 450,
                  "ARGS" => [
                              "p",
                              "ic",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 464 \"src/ops/io.ops\ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	13491	13617	
==>ulename' => 33
		}
	},
	{#State 17
		ACTIONS => {
			'CHAR' => 34,
			">" => 35
		}
	},
	{#State 18
		ACTIONS => {
			'CHAR' => <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2750	2869	
==>n\r//d;
        
      } elsif( $line =~ s/^\xFE\xFF//s ) {
        DEBUG and print "Big-endian UTF-16 BOM seen.  Aborti <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	447	545	
==>'re reading from
  'source_arrayref',   # the arrayref we're reading from
);

#@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	3270	3406	
==>symbtab_cst}->Lookup( $type . $value );
    if ($defn) {
        return [ $defn, [] ];
    }
    else {
        my $name    = 'cst_' <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2364	2462	
==>type $var with main  (array=$array)
	P0= P10[0]
	P1= P0["$stype"]
	P0= P1["$var"]	# Pull the origin <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2591	2689	
==>type $var with main  (array=$array)
	P0= P10[0]
	P1= P0["$stype"]
	P0= P1["$var"]	# Pull the origin <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2022	2143	
==>ble %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->type;
  }
  else {
    $left_type = $left->type;
  } <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1980	2101	
==>ble %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->type;
  }
  else {
    $left_type = $left->type;
  } <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1902	2023	
==>ble %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->type;
  }
  else {
    $left_type = $left->type;
  } <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11443	11542	
==>stake"
elseif g then
	print "Also a mistake"
else 
	print "Correct now 24"
	print factorial(4)
end i <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Compilers.pm	732	854	
==>Intermediate Code Compiler for Parrot',
            'compilers/ast',
            'compilers/imcc' ),
        $self->new_ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	9817	9932	
==>'Parrot/Config.pm'};
    $path   =~ s{ /lib/Parrot/Config.pm \z}{}xms;
    if ( $path eq q{} ) {
         $path = Fi <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	146	238	
==>ME

Parrot::Docs::Section::Docs - Docs documentation section

=head1 SYNOPSIS

	use Parrot::D <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	737	826	
==>ew_item('', 'docs/intro.pod'),
			$self->new_item('', 'docs/gettingstarted.pod'),
			$self <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	6433	6533	
==>a: %d ---\n", scalar keys %DataB;
    for my $api (sort keys %DataB) {
	printf "%s\t%s\tUMD\n", $api, <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	41331	41426	
==>ctions}};
  }

  my $return = $self->_call_function_obj($func_obj, @_);
  $self->_restore($func_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1161	1267	
==>nts ${STYPES}
PIR

	# Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we're mainta <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2871	2977	
==>nts ${STYPES}
PIR

	# Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we're mainta <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	40	131	
==>e ADDITIONAL section at end of file.
# $Id: /parrot/tools/build/pbc2c.pl 19607 2006-05-30T15 <==
3	/Users/nnunley/parrot/config/init/hints/solaris.pm	1888	1990	
==>ibraries.  -KPIC for Sun's compiler, -fPIC for
    # gcc.  We don't know which compiler we're using til <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	1212	1308	
==>on $filename\n" if $opt{verbose};
    open my $fh, $direction, $filename or die "$action $filenam <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	22316	22412	
==>on $filename\n" if $opt{verbose};
    open my $fh, $direction, $filename or die "$action $filenam <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3565	3666	
==>ert X.c -> X.o for all X.c
	my $core_suffix;
	foreach $core_suffix (values %cores) {
		compile($_ . "_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645807	645893	
==>r->n_vtable_max)\n\t\t{{\@1}} = interpreter->vtables[{{\@2}}]->whoami;\n    else\n\t\t{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646704	646790	
==>r->n_vtable_max)\n\t\t{{\@1}} = interpreter->vtables[{{\@2}}]->whoami;\n    else\n\t\t{ <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	3295	3442	
==>d_args\n"
            if $max;
    }
    
    return $code;
}

sub helpers {
    my (@args) = @_;
    
    # types present in this command
    my %t <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20371	20467	
==>"shared" Whoa, 66666, Goodbye, 909090, 101010
type struct
	first as integer
end type
sub foo
	sha <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	36071	36219	
==>t codes are...

    0                   all tests successful
    255                 test died
    any other number    how many failed (including mis <==
3	/Users/nnunley/parrot/lib/Test/More.pm	34142	34290	
==>t codes are...

    0                   all tests successful
    255                 test died
    any other number    how many failed (including mis <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2937	3085	
==>t codes are...

    0                   all tests successful
    255                 test died
    any other number    how many failed (including mis <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	29996	30119	
==>stack, $w;
}

sub ROT_TWO
{
    my ($n, $c, $cmt) = @_;
    print "\t\t$cmt\n";
    my $v = pop @stack;
    my $w = pop @sta <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	827	919	
==>ss UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Ident is not!" if defined $id <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	855	947	
==>ss UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Ident is not!" if defined $id <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125870	126236	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rot",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127004	127370	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rot",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128139	128505	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rot",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571559	571918	
==>ct_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 653,
                  "ARGS" => [
                              "i",
                              "p", <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	4570	4682	
==>ring_${line} = {
  { /* pobj_t */
    {{
      static_string_${line}_data,
      sizeof(static_string_${line}_dat <==
3	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	1055	1153	
==>TDERR is written into same output file
  my $diag = '';
  my $parrot_exit_code = Parrot::Test::run_ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	1338	1462	
==>ow a decimal point
             $token =~ /^\d/)) {  # Digits can follow other digits
      $token .= $ch;
    } elsif($ch =~ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432451	432542	
==>"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433466	433557	
==>"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506162	506584	
==>S" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 582,
                  "ARGS" => [
                              "n",
                              "n",
                              "n"
                            ],
                  "BODY" => "#li <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846617	846710	
==>"BODY" => "#line 56 \"src/ops/string.ops\"\n  STRING *s;\n  s = string_chr(interpreter, (UINTV <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847413	847506	
==>"BODY" => "#line 56 \"src/ops/string.ops\"\n  STRING *s;\n  s = string_chr(interpreter, (UINTV <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	15551	15659	
==>fined in include/parrot/op.h
        or_flag(\$jumps, "PARROT_JUMP_RELATIVE")   if ($branch);
        or_flag <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623203	623299	
==>interpreter->current_returns = CUR_OPCODE;\n        n = PMC_int_val(mic->m.sig);\n\t{{+=n + 2}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	747	841	
==>on data for use by the other
L<Parrot::Configure::*> modules.

=head1 USAGE

=head2 Import Para <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7537	7687	
==>" . $next->text . "\n";
        next;
       
      } else {
        if( $tagname =~ m/^over-(.+)$/s ) {
          push @stack, $1;
        } elsif( $t <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18276	18408	
==>sult,
    );
    push @opcodes, new KeyedGetOp( $parser,
        'result' => $result,
        'arg1'   => $obj->[0],
        'ar <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1470	1575	
==>_pmc = $right");
    $compiler->emit("  global \"$left\" = $temp_pmc");
  }
  else {
    $compiler->emit(" <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	595	706	
==>your
# nearest CPAN
#
# Any use of this module in a standalone parser make the included
# text under the sam <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	579	686	
==>your
# nearest CPAN
#
# Any use of this module in a standalone parser make the included
# text under the sam <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	13517	13611	
==>.:.:.:.:.:.:.:.:.:.

sub parse_from_file {
  # An emulation of Pod::Parser's interface, for the <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7733	7834	
==>ter name now.
	if (!$dest_reg) {
		$pir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0 <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5851	5952	
==>ter name now.
	if (!$dest_reg) {
		$pir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959338	959561	
==>ing(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960140	960363	
==>ing(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	8441	8538	
==>how(\$show, $Uninit, $uninit) if $show;
		want_show(\$show, $Const,  $const ) if $show;
		want_sho <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	2204	2310	
==>.  Steps are returned in the order in which
they were registered in.

Accepts no arguments and returns a li <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	2355	2459	
==>t_header {
    my ($self, $fh) = @_;
    $self->SUPER::output_header($fh);
    return 1 unless $self->{em <==
3	/Users/nnunley/parrot/config/inter/shlibs.pm	412	506	
==>m config/inter/progs.pm because the answers depend
on which compiler is in use.  Thus it should <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27155	27270	
==>r .= "### end pre_op\n";

        # Add pre-translate code, if any.
        $pir .= sub_meta($pre_translate_code, $m <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9816	9919	
==>lue->new($block, $self->require_value);
      my $op    = $self->require_infix_rel->text;
      my $righ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25352	25455	
==>lue->new($block, $self->require_value);
      my $op    = $self->require_infix_rel->text;
      my $righ <==
3	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	162	256	
==>chmarks/stress2.pl - GC stress-testing

=head1 SYNOPSIS

    % time perl examples/benchmarks/st <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27702	27809	
==>e[CURR] eq "BARE") {   # Variable name parameter
			$a=$syms[CURR];
			if ($syms[NEXT] eq "as") {
				feedme <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16679	16772	
==>cautiously:
        $x =~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghij <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10127	10216	
==>cautiously:
    $x =~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghij <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	566	662	
==>gensym();
  tie *$new, $class, $x;
  return $new;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	545	639	
==>unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Dest (" . ref($dest) . ") i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	536	630	
==>unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Dest (" . ref($dest) . ") i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	425	519	
==>unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Dest (" . ref($dest) . ") i <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	1452	1560	
==>rn "rx_pushindex P0";
}

sub output_popindex {
    my ($self, $fallback) = @_;
    die "Must always have fall <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573011	573099	
==>ng_native(interpreter, name, {{\@2}});\n  {{\@1}} = pmc_new_init(interpreter, enum_class_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573921	574009	
==>ng_native(interpreter, name, {{\@2}});\n  {{\@1}} = pmc_new_init(interpreter, enum_class_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247580	247695	
==>ne 670 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	248444	248559	
==>ne 670 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	249308	249423	
==>ne 670 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11277	11380	
==>nc, $extra)=@_;
	if ($extra and $extra->[2] eq "STRING") {
		return "S";
	}
	if ($func=~/\$$/) {
		retur <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10366	10459	
==>{-},
'deg', qq{+-}, '2', '3', qq{'}, 'u', 'P', qq{*}, qq{,}, '1', 'o', qq{>>}, qq{1/4}, qq{1/2 <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	1126	1216	
==>.

C<$name> and C<$index_path> are required, though C<$index_path> defaults
to F<index.html <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45475	45642	
==>> [
                              "ic"
                            ],
                  "BODY" => "#line 737 \"src/ops/core.ops\"\n  Parrot_pop_mark(interpreter, {{\@1} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	521	621	
==>ck is not defined!" unless defined $block;
  confess "Left is not defined!" unless defined $left;
  c <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	533	633	
==>ck is not defined!" unless defined $block;
  confess "Left is not defined!" unless defined $left;
  c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710316	710629	
==>io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 797,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 50 \ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	38329	38473	
==>case of L<"> !
              @section_name == 1 and $section_name[0] eq '"'
            )
          ) {
            $section_name[ 0] =~ s/^\"//s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	1978	2077	
==>n. With an argument, gives the
# token at that absolute position. If a count is given, then that man <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791343	791614	
==>,
                  "CODE" => 893,
                  "ARGS" => [
                              "p",
                              "p",
                              "ki"
                            ],
                  "BODY" => "#line 432 \"src/ops/set.ops\"\n    {{\@1}} <==
3	/Users/nnunley/parrot/config/init/hints/cygwin.pm	509	611	
==>about building shared libraries:  Perl5 uses the 'ld2' tool, which
    # is installed as part of the pe <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	3013	3109	
==>mation that may be useful in
# optimizing generated regular expressions. It is not needed for bas <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134923	135228	
==>JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135816	136121	
==>JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136710	137015	
==>JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	15104	15228	
==>gex unless defined $regex;

    my($re, $opts);

    # Check for qr/foo/
    if( ref $regex eq 'Regexp' ) {
        $usable_r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570825	571099	
==>nline",
                  "CODE" => 652,
                  "ARGS" => [
                              "i",
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 223 \"src/ops/object.ops\"\n    PM <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	9058	9151	
==>y($fd, $string)=@_;
	if ($fd) {
		push @{$code{$seg}->{code}}, <<PRINT;
	_WRITE($fd,1,"$string <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	643	731	
==>ruct::Type::Number;
use Jako::Construct::Type::PMC;
use Jako::Construct::Type::String;

m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847789	848052	
==>AME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848568	848831	
==>AME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133394	133658	
==>AME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134174	134438	
==>AME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045440	1045638	
==>"kc",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426188	426443	
==>ch_v_pi(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427075	427330	
==>ch_v_pi(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/lib/Test/More.pm	17233	17339	
==>BEGIN { ...some code that depends on the use... }


=cut

sub use_ok ($;@) {
    my($module, @imports) = @_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22537	22657	
==>>);
    #   goto <label> unless (<value> <op> <value>);
    #

    if ($token->is_goto) {
      my $block = $self->curren <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	837	926	
==>/opt/local/lib -L/usr/local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS = qq[-bundle -undef <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	841	930	
==>/opt/local/lib -L/usr/local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS = qq[-bundle -undef <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231153	231256	
==>ODY" => "#line 592 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232057	232160	
==>ODY" => "#line 592 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232961	233064	
==>ODY" => "#line 592 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436509	436599	
==>"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437524	437614	
==>"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	19	107	
==>2, The Perl Foundation.
# $Id: /parrot/lib/Parrot/OpTrans/CGP.pm 20333 2006-06-21T18:44:3 <==
3	/Users/nnunley/parrot/config/auto/m4.pm	877	1009	
==>SD
    my %m4_hangs = (freebsd => 1);

    if ($m4_hangs{$osname}) {
        $has_gnu_m4 = 0;
    } else {

        # This seems to w <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	1185	1297	
==>ght->compile($compiler);

  $compiler->emit("  new $left, .$right");

  return 1;
}


#
# sax()
#

sub sax
{
  my <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	837	931	
==>ult
implementation returns C<Parrot::IO::File>.

=cut

sub file_class
{
    return 'Parrot::IO: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233864	233972	
==>ODY" => "#line 599 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 : <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234768	234876	
==>ODY" => "#line 599 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 : <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235672	235780	
==>ODY" => "#line 599 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 : <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	22657	22799	
==>d in entry to class_init.
    */
EOC
    }

    $cout .= <<"EOC";
    if (pass == 0) {
EOC
    $cout .= <<"EOC";
        /*
         * create v <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79460	79559	
==>C with it so we can get and set the value */\n      {{\@1}} = pmc_new(interpreter, enum_class_UnMana <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80981	81080	
==>C with it so we can get and set the value */\n      {{\@1}} = pmc_new(interpreter, enum_class_UnMana <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4415	4514	
==>$target, $pattern, $captures) = @_;
    $target = _parrot_stringify($target);
    $pattern = _parrot <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6920	7019	
==>$target, $pattern, $captures) = @_;
    $target = _parrot_stringify($target);
    $pattern = _parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1456	1538	
==>*/\n\n\n\n/*\n** stack.ops\n*/\n\n\n\n/*\n** string.ops\n*/\n\n\n\n/*\n** sys.ops\n <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34096	34209	
==>turn ret_val;";
    }
    # I think that these will be out by one - NWC
    my $l = $self->line_directive($line, " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845614	845875	
==>CODE" => 959,
                  "ARGS" => [
                              "i",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 45 \"src/ops/string.ops\"\n  {{\@1}} = string_ <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	14684	14814	
==>full smoke report</a>
            </td>
          </tr>
        </tmpl_loop>
      </tmpl_loop>
    </tmpl_loop>
  </table>
</body> <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	5935	6046	
==>ing.
##
sub unescape {
    my ($string) = @_;
    return if not $string;

    $string =~ s/\\([^abfnrtvoxu])/$1/ <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2363	2470	
==>'/Users/nnunley/parrot/src/pmc' . $PATHQUOTE . " " .
        $source;
};

sub partial_link_cmd {
    my ($ta <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2158	2265	
==>'/Users/nnunley/parrot/src/pmc' . $PATHQUOTE . " " .
        $source;
};

sub partial_link_cmd {
    my ($ta <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27933	28037	
==>okahead"} ? '$text = $_savetext;' : '').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecD <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30007	30111	
==>okahead"} ? '$text = $_savetext;' : '').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecD <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32208	32312	
==>okahead"} ? '$text = $_savetext;' : '').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367315	367600	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368106	368391	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fu <==
3	/Users/nnunley/parrot/lib/Test/More.pm	16767	16896	
==>ule', qw(foo bar)) }

is like doing this:

   use Some::Module qw(foo bar);

Version numbers can be checked like so:

   # Just li <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19302	19586	
==>NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 26,
                  "AR <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2970	3078	
==>oding Mark found; but Pod::Simple v$Pod::Simple::VERSION doesn't implement UTF16 yet."
        );
        spl <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3368	3476	
==>oding Mark found; but Pod::Simple v$Pod::Simple::VERSION doesn't implement UTF16 yet."
        );
        spl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25840	25971	
==>w($block, $left, $op, $right);
      }

      push @{$self->{BLOCKS}}, $cond;
      next;
    }

=begin commented_out

    #
    # B <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	598	698	
==>=cut

sub defines
{
    return <<END;
#define REL_PC (cur_opcode - start_code)
#define IREG(i) REG_IN <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38009	38105	
==>the number of lines, C<$out_name> is the name of the output file we are
generating.

The C<delega <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	304	396	
==>warnings";

package Jako::Construct::Statement::Decrement;

use Carp;

use base qw(Jako::Cons <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1978	2076	
==>'    => "\n{\\pard\\li#rtfindent#\\sa180\n",
 '/Para'   => "\n\\par}\n",
 'head1'   => "\n{\\pard\\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363445	363539	
==>ps\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, \"%f\", (double){{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364348	364442	
==>ps\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, \"%f\", (double){{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325069	325333	
==>FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 381,
                  "ARGS" = <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	5345	5449	
==>ce [""]

$nst
.sub $real_name prototyped$meth $cmt
EOC
    my (@params, $k, $v, $params);
    while ( ($k <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326652	326916	
==>FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 383,
                  "ARGS" = <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7512	7622	
==>eas, beans
next i
print
end
100 print "100!"
    goto FIN
200 print "200!"
    goto FIN
300 print "300!"
    go <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19795	19905	
==>eas, beans
next i
print
end
100 print "100!"
    goto FIN
200 print "200!"
    goto FIN
300 print "300!"
    go <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35866	35999	
==>n't happen!
        }

        $para_type = 'Plain';
        $para->[0] .= '-' . $over_type;
        # Whew.  Now fall thru and proces <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	14443	14557	
==>stdlib.h
strtoul     stdlib.h
strtoull    stdlib.h
strxfrm     string.h
system      stdlib.h
tan         math.h
tan <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300820	301241	
==>=> [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 350,
                  "ARGS" => [
                              "i",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#lin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478715	478858	
==>"
                            ],
                  "BODY" => "#line 437 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479607	479750	
==>"
                            ],
                  "BODY" => "#line 437 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500094	500294	
==>S" => [
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 600 \"src/ops/math.ops\"\n  {{\@1}} = floatval_mod({{\@1} <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	2972	3068	
==>my $ops = Parrot::OpsFile->new( [ $file ], $nolines_flag );
die "$0: Could not read ops file '$fi <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7132	7249	
==>$semval);
            ($lhs,$len,$code)=@{$$rules[-$act]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	prin <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6801	6913	
==>$semval);
            ($lhs,$len,$code)=@{$$rules[-$act]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	prin <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1166	1272	
==>NE  => $ident->line
  }, $class;

  $block->push_content($self);

  foreach my $arg (@$args) {
    my ($arg <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104911	105202	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":ba <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105648	105939	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":ba <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	106386	106677	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":ba <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596247	596558	
==>@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subclass <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515939	516245	
==>@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sub <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	54184	54283	
==>sequence to the text string.

If the extractor is a subroutine it is called in a list context and is <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	987	1081	
==>lue::Identifier');
  confess "Left is not Value!" if defined $left and not UNIVERSAL::isa($left <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1015	1109	
==>lue::Identifier');
  confess "Left is not Value!" if defined $left and not UNIVERSAL::isa($left <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956814	957084	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_encoding",
                  "FLAGS" => ":base_c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957718	957988	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_encoding",
                  "FLAGS" => ":base_c <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	18611	18752	
==>);

    my $fh = open_file( "<", $file );

    my $class;
    eval do { local $/; <$fh> };
    die $@ if $@;

    close $fh;
    $class;
}


= <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2414	2511	
==>1= P0["$stype"]
	P0= P1["$var"]	# Pull the original
	P2= P10[I25]
	P3= P2["$stype"]
	P3["$var"]= P <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2641	2738	
==>1= P0["$stype"]
	P0= P1["$var"]	# Pull the original
	P2= P10[I25]
	P3= P2["$stype"]
	P3["$var"]= P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276179	276272	
==>rc/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277057	277150	
==>rc/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277935	278028	
==>rc/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	20385	20508	
==>ew LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new NewOp( $parser,
        'result' => $re <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21664	21787	
==>ew LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new NewOp( $parser,
        'result' => $re <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	22807	22930	
==>ew LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new NewOp( $parser,
        'result' => $re <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3102	3199	
==>X.pmc -> X.dump and X.c and also create any lib-GROUP.c files

    generate_dump($_) foreach (@pmc <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3206	3303	
==>X.pmc -> X.dump and X.c and also create any lib-GROUP.c files

    generate_dump($_) foreach (@pmc <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29228	29333	
==>$desc'",
	}, $class;
}


sub code($$$$)
{
	my ($self, $namespace, $rule, $check) = @_;
	
my $code = ''.($: <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	22253	22357	
==>ub
#line 166 "lib/Regex/Grammar.y"
{ return $_[2]; }
	],
	[#Rule 38
		 'charclass', 1,
sub
#line 167 "lib <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31326	31430	
==>$desc'",
	}, $class;
}

sub code($$$$)
{
	my ($self, $namespace, $rule, $check) = @_;
	
my $code = ''.($: <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	7201	7333	
==>(<a name="), esc($name), qq("\n>);
    
    } 
    else 
    {
        print {$self->{'output_fh'}} "<a\n>";
    }
    
    $self->un <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	116	213	
==>:Test::M4::PIR;

use strict;
use warnings;
use 5.006;

use base 'Parrot::Test::M4';
use Data::Dump <==
3	/Users/nnunley/parrot/config/auto/inline.pm	961	1161	
==>st_2.in');
            eval { cc_build(); };
            if (!$@) {
                $test = cc_run();
                chomp $test if $test;
            }
            cc_clean();
        }
        if ($ <==
3	/Users/nnunley/parrot/config/inter/libparrot.pm	580	680	
==>arrot should be linked against a shared library';

@args = qw(ask parrot_is_shared);

sub runstep <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18679	18767	
==>ese heading levels will appear as.

=item $parser->codeblock_halfpoint_size( I<halfpoint_ <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	7583	7720	
==>$file;
    $dump =~ s/\.\w+$/\.dump/;

    my $vtd = open_file( ">", $dump );

    my %vtable = (
        flags   => {},
        pre     = <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	11001	11109	
==>}
    
    Carp::croak "But you must accept \"$new_code\" codes -- it's a builtin!"
     if grep $new_code eq <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	9100	9207	
==>=~ s|\.temp||;
    $source_escaped =~ s|(\\)|$1$1|g; # escape backslashes
    print SOURCE qq{#line $line "$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143533	143641	
==>> "#line 84 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144461	144569	
==>> "#line 84 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145389	145497	
==>> "#line 84 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}} <==
3	/Users/nnunley/parrot/config/gen/platform.pm	583	693	
==>conf) = @_;

    my $verbose  = $conf->options->get('verbose');
    my $platform = lc $OSNAME;

    $platform = <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	8441	8532	
==>-----------------------------------------------------
sub unaccept_target         { shift->u <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2931	3038	
==>ndler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
    $ha <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3605	3712	
==>ndler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
    $ha <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3695	3802	
==>ndler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
    $ha <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	719	816	
==>ot/OpsFile.pm', 'lib/Parrot/Op.pm',
			    'lib/Parrot/OpLib',
			    'lib/Parrot/OpTrans.pm', 'li <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	532	621	
==>IVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Identifier (" . ref($ident) . " <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	532	621	
==>IVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Identifier (" . ref($ident) . " <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	7496	7648	
==>line =~ s/\$(?!(?:P|S|N|I)\d+|R\b)(\w+)/a_$1/)
        {
            my $name = $1;
            my $arg  = $args{$name};
            
            if ($ar <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6611	6721	
==>push @ops, (qq(print "PUSHED ).(@_>1?$_[1]:"mark").qq(\\n";));
    }
    push @ops, "push \@<rx_stack>, -1; # p <==
3	/Users/nnunley/parrot/config/init/manifest.pm	185	277	
==>=head1 DESCRIPTION

Uses C<ExtUtils::Manifest> to check that the distribution is complete.

= <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	31953	32051	
==>ONE
}
sub typeof {
	my($var)=@_;
	return "FLO" if ($var=~/[!#%&]$/);
	return "STRING" if ($var=~/\$ <==
3	/Users/nnunley/parrot/config/auto/aio.pm	1105	1310	
==>f->data->set(
                aio        => 'define',
                HAS_AIO    => 1,
                D_SIGRTMIN => $1,
                D_SIGRTMAX => $2,
            );
        }

    } else {
        $con <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	18517	18619	
==>1999-03-05, v0.58.

    Added handling of hash-like arg list to class ctor.

    Changed to two-argumen <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	31463	31563	
==><name/"sec"> or L<name/sec>
  # L</"sec"> or L</sec> or L<"sec">
  # L<text|name>
  # L<text|name/"se <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	17972	18078	
==>ave a plan.");
    }

    lock($self->{Curr_Test});
    $self->{Curr_Test}++;

    $self->{Test_Results}[$s <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	18837	18943	
==>ave a plan.");
    }

    lock($self->{Curr_Test});
    $self->{Curr_Test}++;

    $self->{Test_Results}[$s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687742	688116	
==>"",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 772,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" = <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	6495	6708	
==>o skipped unexpect>);
  my $args = unpack("H*", $smoke{harness_args});

  #                           1       2          3        4         5        6         7      8           9        10          ...
  my $str = <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	535	634	
==>item($text, @names)>

Returns a C header files documentation item.

=cut

sub c_header_item
{
    my <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182307	182487	
==>c",
                              "ic"
                            ],
                  "BODY" => "#line 278 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  } <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6075	6167	
==>ere already.
	$pir .= <<'PIR';
if 0x${CURIC} == 0x45 goto POST_BRANCH_switch_${CURIC}
${ITEMP <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4013	4105	
==>ere already.
	$pir .= <<'PIR';
if 0x${CURIC} == 0x45 goto POST_BRANCH_switch_${CURIC}
${ITEMP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806453	806769	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 910,
                  "AR <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13045	13189	
==>therClass
      \.SELF            # Macro SELF
      \.(\w+)           # other_method
      \(\s*(.*?)\)      # capture argument list
     /"Parr <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	12351	12450	
==>ment value.  If the
element type is C<'*@'>, a reference to the array element is
returned.

As a spe <==
3	/Users/nnunley/parrot/examples/benchmarks/freeze.pl	115	205	
==>05-30T13:32:26.641316Z coke  $

=head1 NAME

examples/benchmarks/freeze.pl - Freeze/Thaw Be <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	8410	8520	
==>le, $self->line, $message;
}


#
# WARNING()
#

sub WARNING
{
  my ($self, $format, @args) = @_;

  my $message <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	13349	13503	
==>qq($atag<font color="red">$_</font>)
            } else {
                print OUT $_;
            }
        }
    }
}


sub page_header {
    my ($title) <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	39711	39814	
==>";

	extract_tagged($text, '/para', '/endpara', undef,
				{reject => '/para', fail => MAX );

	# EXTRAC <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	40025	40127	
==>";

	extract_tagged($text, '/para', '/endpara', undef,
			{reject => '/para', fail => MAX );

	# EXTRAC <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	935824	936087	
==>itlecase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936600	936863	
==>itlecase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	3400	3486	
==>=head1 SEE ALSO

F<languages/tcl/lib/Parrot/Test/Tcl.pm>, F<languages/m4/lib/Parrot/T <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	23057	23174	
==>ine after the first with a # so we don't
    # confuse Test::Harness.
    $msg =~ s/\n(.)/\n# $1/sg;

    # Stick a ne <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64772	64882	
==>->code = interpreter->code;\n  runops(new_interp, REL_PC + {{\@2}});\n  {{+=3}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65723	65833	
==>->code = interpreter->code;\n  runops(new_interp, REL_PC + {{\@2}});\n  {{+=3}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734157	734446	
==>"i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 824,
                  "ARGS" => [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 134 \"src/ops/s <==
3	/Users/nnunley/parrot/config/auto/headers.pm	1677	1830	
==>eaders, qw(sysmman.h netdb.h);
    }
    my @found_headers;
    foreach my $header (@extra_headers) {
        my $pass = 0;

        # First try with just <==
3	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	831	960	
==>arser->YYData->{scope} } ) {
                if ( $symbtab->isa('SymbTabVar') ) {
                    if ( exists $symbtab->{tab <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	1442	1582	
==>cc_build('', '-llibgdbm'); };
        } else {
            eval { cc_build('', 'gdbm.lib'); };
        }
    } else {
        eval { cc_build <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596162	596249	
==>ine 337 \"src/ops/object.ops\"\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, {{\@3} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597055	597142	
==>ine 337 \"src/ops/object.ops\"\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, {{\@3} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	12141	12275	
==>ext_content !~
            m/\((?:
             NAME | TITLE | VERSION | AUTHORS? | DESCRIPTION | SYNOPSIS
             | COPYRIGHT | L <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4540	4638	
==>f $self->bare_output;
  return
   $self->do_beginning && $self->do_middle && $self->do_end;
}


#~~ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3171	3268	
==>f $self->bare_output;
  return
   $self->do_beginning && $self->do_middle && $self->do_end;
}

#~~ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	47649	47782	
==>a\lua51.yp"
{
            BuildIf( $_[0], $_[1], $_[2], $_[3], $_[6] );
        }
	],
	[#Rule 19
		 'stat', 4,
sub
#line 128 " <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	9181	9287	
==>@@@@@@@@

sub _handle_encoding_line {
  my($self, $line) = @_;
  
  # The point of this routine is to set $ <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2219	2310	
==>("smoke")) ||
    Compress::Bzip2::memBunzip($CGI->param("smoke")) ||
    $CGI->param("smoke <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40178	40356	
==>> "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41025	41203	
==>> "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	20671	20818	
==>1]{$attrname}) and ref $thing) {
              unshift @stack, $thing;
              DEBUG > 4 and print "  +Enqueuing ",
               pretty( $tr <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	4863	4975	
==>URR] !~ /COMP|COMM|STMT/) {
		die if $loop++>255;
		if ($syms[CURR] eq ",") {
			feedme();
			next;
		}
		die "On <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33591	33696	
==>if($paras->[0][0] eq '~Para') {
              DEBUG and print "Assimilating following ~Para content into $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35404	35509	
==>if($paras->[0][0] eq '~Para') {
              DEBUG and print "Assimilating following ~Para content into $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276241	276583	
==>2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277119	277461	
==>2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277997	278339	
==>2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786179	786435	
==>_integer_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787090	787346	
==>_integer_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	1179	1284	
==>his lovely new perl6 code back into APL.

.sub "__load_pirtable" :load
    $P0 = new .Hash
    store_globa <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	5768	5879	
==>self') {
	print <<EOC;
	.local pmc $self
	$self = self
EOC
    }
    if ($func_info{$arg}{flags} & 0x20) {  # GE <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	16237	16347	
==>ARY_FLOOR_DIVIDE
{
    my ($n, $c, $cmt) = @_;
    binary('//', $cmt);
}
sub BINARY_DIVIDE
{
    my ($n, $c, $c <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	779	886	
==>', 'tools/dev/cc_flags.pl'),
            $self->new_item('', 'tools/build/nativecall.pl'),
            $self <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	11951	12070	
==>"    => [],
		"uncommit" => $uncommit,
		"error"    => $error,
		"line"     => $line,
		strcount   => 0,
		patcount   => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748838	748922	
==>99 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_number_native(interpreter, {{\@1}}, {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749622	749706	
==>99 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_number_native(interpreter, {{\@1}}, {{ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	11267	11402	
==>desc = "($file line $line)";
            }

            # $test_no will be part of temporary file
            my $test_no = $builder->cu <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	16752	16887	
==>desc = "($file line $line)";
            }

            # $test_no will be part of temporary file
            my $test_no = $builder->cu <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	22487	22595	
==>]}, $_[2]; return $_[1]; }
	],
	[#Rule 40
		 'classpieces', 0,
sub
#line 171 "lib/Regex/Grammar.y"
{ return [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272358	272777	
==>RGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 317,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	3598	3719	
==>ift;
    my $name = shift || return;
    
    $name .= '.h' unless $name =~ /\.[Hh]$/o;
    
    foreach my $dir ($self->c <==
3	/Users/nnunley/parrot/config/gen/platform.pm	4771	4891	
==>se == 2;
            open IN_C, "< $impl_file" or die "Can't open $impl_file: $!";
            print PLATFORM_C <<"END_HE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	708690	708946	
==>=> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unregister",
                  "FLAGS" => "",
                  "ARGDIRS" <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	45925	46042	
==>.  But if you do want to implement hyphenation, I guess
       # that you'd better have nbsp_for_S off.
    }
  }

  r <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	544	638	
==>scriptions from the Parrot source files. If no
files are specified on the command-line then the <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183997	184248	
==>19,
                  "ARGS" => [
                              "nc",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 285 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029853	1029947	
==>k in time\");\n  }\n  next = Parrot_sleep_on_event(interpreter, {{\@1}}, next);\n  {{=next}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030695	1030789	
==>k in time\");\n  }\n  next = Parrot_sleep_on_event(interpreter, {{\@1}}, next);\n  {{=next}};\n <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	8866	8965	
==>>_restore ($temp);
    $temp = $self->_generate($_);
  }

  $self->_add_inst('', 'set', ['P5', $temp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826635	826726	
==>TRY_FLOAT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827705	827796	
==>TRY_FLOAT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	6738	6834	
==>f ($var =~ /\A\s*local\s+([%@\$]\w+)/)
	{
		$parser->{localvars} .= " $1";
		$self->{"vars"} .= " <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	680	783	
==>ution values. q[] is used in
# some places as Win32 paths have \'s in, which qq[] treats as escape seque <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	638	741	
==>ution values. q[] is used in
# some places as Win32 paths have \'s in, which qq[] treats as escape seque <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	642	745	
==>ution values. q[] is used in
# some places as Win32 paths have \'s in, which qq[] treats as escape seque <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10127	10251	
==>tack[-1][0].\n";

			pop(@$stack);
		}

			@$stack
		or	do {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**No st <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3283	3402	
==>ara'} =~ tr{\xAD}{}d;
  }

  my $i = ' ' x ( 2 * $self->{'Indent'} + 4);
  
  $self->{'Thispara'} =~ s/^/$i/mg;
  
  pri <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9676	9791	
==>tack[-1][0].\n";

			pop(@$stack);
		}

			@$stack
		or	do {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**No st <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561769	561865	
==>" => "#line 167 \"src/ops/object.ops\"\n  opcode_t *next = {{^+4}};\n  {{\@1}} = VTABLE_find_meth <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562853	562949	
==>" => "#line 167 \"src/ops/object.ops\"\n  opcode_t *next = {{^+4}};\n  {{\@1}} = VTABLE_find_meth <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960705	960972	
==>nction",
                  "CODE" => 1081,
                  "ARGS" => [
                              "s",
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 595 \"src/ops/string.ops\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	816925	817109	
==>ars",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 924,
                  "ARGS" => [] <==
3	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	21	120	
==>warnings;
use strict;

use Getopt::Long;
use LWP::UserAgent;

use constant VERSION => 0.4;
sub debug <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492846	493118	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493607	493879	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499581	499853	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core" <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	1839	1961	
==>iguration steps.', 
		        'docs/configuration.pod')
		),
		$self->new_group('Library', '',
		    $self->new_item('PASM/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64103	64222	
==>"PARROT_JUMP_RELATIVE|PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT",
                  "NAME" => "runinterp",
                  " <==
3	/Users/nnunley/parrot/config/auto/msvc.pm	173	284	
==>C++ Compiler

=head1 DESCRIPTION

Determines whether the C compiler is actually C<Visual C++>.

=cut

package au <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641797	642235	
==>"",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 717,
                  "ARGS" => [
                              "i",
                              "p",
                              "k"
                            ],
                  " <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	39755	39883	
==>t
      # L<Foo>     -> L<Foo|Foo>
      # L</Bar>    -> L<"Bar"|Bar>
      # L<Foo/Bar> -> L<"Bar" in Foo/Foo>
      unless($lin <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	1647	1767	
==>t:]]$/;  # CCLASS_PRINTING       
    $ret |= 0x0080 if $chr =~ /^[[:graph:]]$/;  # CCLASS_GRAPHICAL      
    $ret |= 0x <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409550	409846	
==>=> "recv",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "o"
                               ],
                  "TYPE" => "function",
                  "C <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	7792	7906	
==>ason);

Skips all the tests, using the given $reason.  Exits immediately with 0.

=cut

sub skip_all {
    my($self <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	9248	9353	
==>= $number;
    $ParrotOps::optable{$name} = $number;
    if ($number > $ParrotOps::max_op_num) {
      $Pa <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9222	9356	
==>as been called
            or  next;       # so continue parsing

#DBG>			$debug & 0x10
#DBG>		and	do {
#DBG>			print STDERR "**En <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8807	8936	
==>as been called
            or  next;       # so continue parsing

#DBG>			$debug & 0x10
#DBG>		and	do {
#DBG>			print STDERR "**En <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	2365	2472	
==>It makes it much harder to compile using
        # the system headers, which may well be tuned to a non-stri <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064109	1064279	
==>p",
                              "kc"
                            ],
                  "BODY" => "#line 253 \"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root_name <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	46	143	
==>thm keeps track of the current stack depth and assigns to
# virtual registers numbered by depth. T <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	46	143	
==>thm keeps track of the current stack depth and assigns to
# virtual registers numbered by depth. T <==
3	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1519	1638	
==>filename: $!";

    my $ctx = { };
    my $trees = Regex::expr_to_tree($pattern, $ctx, DEBUG => 0);

    my $driver = Re <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	35536	35636	
==>rates.
		my $post_branch = $srm->post_branch($rule->{'pop'});
		$pir .= "### post_branch\n";
		$pir . <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	9515	9610	
==>ble:
*/

static op_func${suffix}_t ${op_func}\[$num_entries] = {
END_C

    print SOURCE @op_fun <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	7704	7787	
==>&Test::is_deeply &Test::todo_is &Test::todo_isnt &Test::todo_cmp_ok &Test::todo_eval <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2685	2767	
==>L<Pod::Simple::PullParserStartToken>,
L<Pod::Simple::PullParserTextToken>, and
L<Po <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	2100	2192	
==>arrot_${_}_class_init(interp, enum_class_${_}, pass);\n" foreach (@pmcs[-1 .. -1]);
    print <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632456	632548	
==>=> "#line 91 \"src/ops/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633498	633590	
==>=> "#line 91 \"src/ops/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	89	212	
==>ns) = @_;
    my $self = bless \%options, (ref($proto) || $proto);
    $self->init();
    return $self;
}

sub init {
    my <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	256	379	
==>ns) = @_;
    my $self = bless \%options, (ref($proto) || $proto);
    $self->init();
    return $self;
}

sub init {
    my <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	597	720	
==>ns) = @_;
    my $self = bless \%options, (ref($proto) || $proto);
    $self->init();
    return $self;
}

sub init {
    my <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30014	30144	
==>pen1
          die "Typeless over in stack, starting at line "
           . $over->[1]{'start_line'};

        } elsif($over_type e <==
3	/Users/nnunley/parrot/config/init/miniparrot.pm	491	589	
==>om using  Configure at all for miniparrot builds.

=cut

package init::miniparrot;

use strict;
use <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	6585	6683	
==>ote that if C<$suffix> is the empty string then this will return all
the files with no suffix.

=cu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6779	7006	
==>preter, {{\@1}});\n    {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46276	46501	
==>preter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63890	64115	
==>preter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11377	11477	
==>d.
goto PRE_CALL_END_${CURIC}

# It's a return. See if we have a return value.
PRE_CALL_RETURN_${CURI <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8563	8663	
==>d.
goto PRE_CALL_END_${CURIC}

# It's a return. See if we have a return value.
PRE_CALL_RETURN_${CURI <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7135	7235	
==>d.
goto PRE_CALL_END_${CURIC}

# It's a return. See if we have a return value.
PRE_CALL_RETURN_${CURI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216792	216959	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 462 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(inter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217732	217899	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 462 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(inter <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64708	64805	
==>if ($grammar =~ m/$BETWEEN/gco)
				{
					_parse("a $1-to-$2 subrule match", $aftererror,$line,"$ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	17308	17437	
==>=> -31
	},
	{#State 60
		ACTIONS => {
			'NUM' => 40
		},
		GOTOS => {
			'number' => 67
		}
	},
	{#State 61
		ACTIONS => {
			'CH <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5087	5192	
==>$self{DEBUG};
#DBG>	my($dbgerror)=0;

#DBG>	my($ShowCurToken) = sub {
#DBG>		my($tok)='>';
#DBG>		for <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4842	4942	
==>$self{DEBUG};
#DBG>	my($dbgerror)=0;

#DBG>	my($ShowCurToken) = sub {
#DBG>		my($tok)='>';
#DBG>		for <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353692	353805	
==>, s)) {\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354437	354550	
==>, s)) {\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23690	23780	
==>lf, $namespace, $rule) = @_;
	
''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Reje <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89254	89482	
==>DY" => "#line 38 \"src/ops/bit.ops\"\n  {{\@1}} &= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89992	90220	
==>DY" => "#line 38 \"src/ops/bit.ops\"\n  {{\@1}} &= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1564	1671	
==>t->{IDENT}; }
sub cond  { return shift->{COND};  }
sub left  { return shift->{LEFT};  }
sub op    { return s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1700	1807	
==>t->{IDENT}; }
sub cond  { return shift->{COND};  }
sub left  { return shift->{LEFT};  }
sub op    { return s <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	11869	11969	
==>es are
    automatically generated and show how various runcores are functioning across
    a variety <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	4494	4596	
==>/ /, $args[$_])[1] } (0..$#args);
    $macros .= <<"EOM";
#define VTABLE_$entry->[1]($args) \\
    (pmc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717276	717414	
==>");\n  PIO_softspace(interpreter, io, 0);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	1604	1724	
==>/g;    # Remove quote marks!
		emit("STRING");
		fetch;
		goto MAIN;
	}
	if ( ($cur eq "'") or 
	     ($cur=~/[Rr]/ and $ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	63	149	
==>lib/Parrot/Docs/Section/Parrot.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630986	631249	
==>w",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 707, <==
3	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	588	703	
==>a test file.

=cut

sub gen_output 
{
  my $self = shift;
  my ( $code, $test_no ) = @_;
  
  # flatten filenames (d <==
3	/Users/nnunley/parrot/config/init/hints/msys.pm	13	114	
==>C) 2005, The Perl Foundation.
# $Id: /parrot/config/init/hints/msys.pm 19593 2006-05-30T02:28:15.11097 <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	254	348	
==>the Parrot op to C
transforms. Each transform contains various bits of information needed
to ge <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	189	281	
==>1 DESCRIPTION

Generates the core PMC list F<include/parrot/core_pmcs.h>.

=cut

package gen: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	98414	98665	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "bnot",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inli <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	2968	3094	
==>sub is_module        { return shift->is('module');        }
sub is_next          { return shift->is('next');          }
sub is_ <==
3	/Users/nnunley/parrot/config/auto/jit.pm	2385	2500	
==>ing{$cpuarch}) {
        $jitcapable = 1;
    }

    if (-e "$jitbase/$cpuarch/$jitarchname.s") {
        copy_if_di <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796580	796999	
==>RGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 899,
                  "ARGS" => [
                              "p",
                              "k",
                              "n"
                            ],
                  "BODY" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667869	668153	
==>"NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 747,
                  "AR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094724	1095004	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exec",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095418	1095698	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exec",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	772	879	
==>----
# Set up some constants:

BEGIN {
  if(defined &ASCII)    { }
  elsif(chr(65) eq 'A') { *ASCII = sub () <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359930	360107	
==>"ARGS" => [
                              "sc"
                            ],
                  "BODY" => "#line 250 \"src/ops/io.ops\"\n  STRING * const s = {{\@1}};\n  if (s && <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	2802	2914	
==>atched = result["!RESULT"]
    if matched goto printResults

printMatchFailed:
    print "Match failed\n"
    got <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	3857	3991	
==>} = $n;
		for (my $i = 0; $i < $n; $i++) {
		    my ($a, $def) = split(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a = qq!"$a"!;   # q <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	4356	4490	
==>} = $n;
		for (my $i = 0; $i < $n; $i++) {
		    my ($a, $def) = split(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a = qq!"$a"!;   # q <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	943	1045	
==>IS OPTIONAL WHITESPACE
   $skip  = '\s*';		# UNIVERSAL SEPARATOR IS OPTIONAL WHITESPACE
my $MAXREP  = 1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44184	44351	
==>ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 732 \"src/ops/core.ops\"\n  Parrot_push_mark(interpreter <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2559	2669	
==>re included in a second section below, "
	    ."marked with \"#=#=#=\".\n";
    } else {
	print "Run this scrip <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	7399	7502	
==>op_num;
	warn "$opname\t$n\tnot mentioned in ops.num\n" if -e "DEVELOPING";
	return $n;
    }
}

sub ren <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1316	1469	
==>ot code.

=cut

sub pc
{
    my $self = shift;

    if (@_)
    {
        $self->{PC} = shift;
    }
    else
    {
        return $self->{PC};
    }
}

= <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	925	1078	
==>ot code.

=cut

sub pc
{
    my $self = shift;

    if (@_)
    {
        $self->{PC} = shift;
    }
    else
    {
        return $self->{PC};
    }
}

= <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	4109	4205	
==>\d\D]';
}

# Frequently Used Variables
my %bench;
my @section = sort $ini->GroupMembers( 'benchma <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94353	94683	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95245	95575	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96138	96468	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813000	813239	
==>ine",
                  "CODE" => 917,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 524 \"src/ops/set.ops\"\n  {{\@1}} = <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6203	6383	
==>actions{DEFAULT})
                        ?   $$actions{DEFAULT}
                        :   undef;
        }
        else {
            $act=$$actions{DEFAULT};
#DBG>			$debu <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5913	6087	
==>actions{DEFAULT})
                        ?   $$actions{DEFAULT}
                        :   undef;
        }
        else {
            $act=$$actions{DEFAULT};
#DBG>			$debu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167369	167603	
==>S" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 197 \"src/ops/cmp.ops\"\n  if (! mmd_dispatch_i_pp(inter <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	9409	9540	
==>)
two:
    $N1 = cos op2
    .return ($N1)
three:
    $N1 = tan op2
    .return ($N1)
four:
    $N1 = op2 * op2
    $N1 += 1
    $N1 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2325	2421	
==>else print "Wrong"
if 5>4 then print "Ok" else print "Wrong"
if 5>5 then print "Wrong" else print <==
3	/Users/nnunley/parrot/examples/benchmarks/addit.pl	538	665	
==>$a = $#_; $a >= 0; --$a) {
        $sum += $_[$a];
    }
    return $sum
}
my $result = 0;
my @args;
$args[0] = 1000;
$args[1] = <==
3	/Users/nnunley/parrot/tools/dev/as2c.pl	819	926	
==>s*\d+\s[\da-fA-F]{4}\s([\dA-F]{2,8})\s+(.*)/) {
	    if ($in_comment) {
		print " */\n";
	    }
	    my ($by <==
3	/Users/nnunley/parrot/config/auto/pack.pm	67	156	
==>ig/auto/pack.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/pack.p <==
3	/Users/nnunley/parrot/config/inter/types.pm	1046	1210	
==>ve opcode type?",                 $opcode);
        print "\n";
    }

    $conf->data->set(
        iv       => $intval,
        nv       => $floatval,
        opco <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3325	3430	
==>$self{VALUE}};
}

sub YYExpect {
    my($self)=shift;

    keys %{$self->{STATES}[$self->{STACK}[-1] <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3159	3258	
==>$self{VALUE}};
}

sub YYExpect {
    my($self)=shift;

    keys %{$self->{STATES}[$self->{STACK}[-1] <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	95	219	
==>erated using Parse::Yapp version 1.05.
#
#        Don't edit this file, use source file instead.
#
#             ANY CHAN <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	93	213	
==>erated using Parse::Yapp version 1.05.
#
#        Don't edit this file, use source file instead.
#
#             ANY CHAN <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	258	354	
==>.h>.

=cut

package gen::core_pmcs;

use strict;
use warnings;

use base qw(Parrot::Configure::St <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5022	5125	
==>rbose;

    $self->{triggers}{$key}{$trigger} = $cb;

    return $self;
}

=item C<gettriggers($key)>

G <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8699	8798	
==>if ${ITEMP0} == 0 goto PRE_CALL_END_${CURIC}

# Get type of return value and build code to pop it.
$ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7271	7370	
==>if ${ITEMP0} == 0 goto PRE_CALL_END_${CURIC}

# Get type of return value and build code to pop it.
$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584685	584908	
==>\@1}} = VTABLE_subclass(interpreter, class, NULL);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585760	585983	
==>\@1}} = VTABLE_subclass(interpreter, class, NULL);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41009	41125	
==>lar)
      $self->{'content_seen'} ||= 1;
      $self->_traverse_treelet_bit(@$para);
    }
  }
  
  return;
}

sub _ <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Posix.pm	324	445	
==>test_prog {
    my $self = shift;
    my ( $count, $options ) = @_;

    my $lang_fn        = Parrot::Test::per_test( '.bc <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	454	568	
==>test_prog {
    my $self = shift;
    my ( $count, $options ) = @_;

    my $lang_fn = Parrot::Test::per_test( '.bc <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr3.pm	346	460	
==>test_prog {
    my $self = shift;
    my ( $count, $options ) = @_;

    my $lang_fn = Parrot::Test::per_test( '.bc <==
3	/Users/nnunley/parrot/config/auto/va_ptr.pm	796	935	
==>ie "Unknown va_ptr type";
        }
        $va_type = 'ppc';
    } else {
        $va_type = 'x86';
    }
    cc_clean();
    $self->set_re <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	5837	5954	
==>i = 0; i < argc; i++) {
        /* Run through argv, adding everything to @ARGS. */
        STRING *arg = string_make( <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5092	5201	
==>{INS} = concat " = pop s\n"
PIR
	}

	return $pir;
}

sub post_store($) {
	my $self = shift;
	my $dest_reg = sh <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	42544	42651	
==>mat appends a newline to $i: $p->[$i]\n";
    $p->[$i] .= "\n";
     # Unlike with simple Verbatim blocks, w <==
3	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	1551	1656	
==>ir_code;
	close $fh;

	# Run and get output.
	my $output = `$N2PConfig::parrot __temp__.pir`;

	# Clean up <==
3	/Users/nnunley/parrot/config/auto/alignptrs.pm	192	286	
==>ead1 DESCRIPTION

Determine the minimum pointer alignment.

=cut

package auto::alignptrs;

use <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1404	1525	
==>c_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1398	1519	
==>c_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element( <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	438	530	
==>arrot::IO::Directory;

=item C<tmp_file($path)>

Returns the file for C<$path> relative to th <==
3	/Users/nnunley/parrot/languages/converter.pl	1329	1439	
==>turn = '';
		  $return .= $item[1][0] if defined $item[1][0];
		  $return .= "# $item[2]\n";
		  $return .= $it <==
3	/Users/nnunley/parrot/Configure.pl	2235	2324	
==>C<--define=val1[,val2]>

Generate "#define PARROT_DEF_VAL1 1" ... entries in has_header.h. <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	2590	2704	
==>sum = 0;
    while (<$file>) {
        next if defined($ignorePattern) && /$ignorePattern/;
        $sum += unpack( <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2181	2293	
==>UG}) {
		_DBLoad();
		$retval = eval '$self->_DBParse()';#Do not create stab entry on compile
        $@ and d <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2100	2209	
==>UG}) {
		_DBLoad();
		$retval = eval '$self->_DBParse()';#Do not create stab entry on compile
        $@ and d <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504420	504810	
==>core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 580,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14145	14240	
==>branch', ["DONE_$label"]);
    $self->_add_inst ("FAIL_$label", 'set', [$return,0]);
    $self-> <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16413	16504	
==>branch', ["DONE_$label"]);
  $self->_add_inst ("FAIL_$label", 'set', [$return,0]);
  $self-> <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	3739	3863	
==>ories)
    {
        return $dir->file_with_name($name)
            if $dir->file_exists_with_name($name);
    }
    
    ret <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	1969	2092	
==>e!";
    while (<OPS>) {
        next unless (/^(inline\s+)?op\s+([a-zA-Z]\w*)/);
        my $op = $2;
        $op =~ s/\.// <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4747	4852	
==>{
    my ($self, $key, $trigger, $cb) = @_;

    return unless defined $key and defined $trigger and defin <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1099	1219	
==>> $ident->file,
    LINE   => $ident->line,
  }, $class;

  #
  # Check for a few bad conditions.
  #
  # NOTE: These are <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1002	1122	
==>> $ident->file,
    LINE   => $ident->line,
  }, $class;

  #
  # Check for a few bad conditions.
  #
  # NOTE: These are <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	30648	30753	
==>_context_t *ctx;\n    PMC *ccont;\n    PMC *signature = {{\@1}};\n    INTVAL argc;\n\n    interpreter->cur <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122133	122386	
==>INTVAL, {{\@1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123045	123298	
==>INTVAL, {{\@1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	15096	15233	
==>ethod, 1);
            $sub_meth_decl =~ /(\w+)\(/;
            my $sub_meth_name = $1;
            my $sub_meth =  $sub_meth_decl;   # no <==
3	/Users/nnunley/parrot/config/gen/platform.pm	2704	2821	
==>ther than creating the
        # correct one from the above list in their $platform/ dir (e.g. misc.c).
    }

    # f <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2821	2929	
==>ile_directories)
    {
        return $dir->file_with_name($name)
            if $dir->file_exists_with_name( <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	3729	3837	
==>ile_directories)
    {
        return $dir->file_with_name($name)
            if $dir->file_exists_with_name( <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	14547	14668	
==>y =~ s/\bexpr\s+POP\(\)/{{^*}}/mg;

                      $body =~ s/\bHALT\(\)/{{=0}}/mg;

        $branch ||= $short_nam <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32789	32889	
==>C<gen_ret($type)>

Generate the C code for a C<return> statement.

=cut

sub gen_ret
{
    my ($self, <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37676	37776	
==>C<gen_ret($type)>

Generate the C code for a C<return> statement.

=cut

sub gen_ret
{
    my ($self, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028446	1028682	
==>JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sleep",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029297	1029533	
==>JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sleep",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030138	1030374	
==>JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sleep",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "i <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	3991	4102	
==>s[CURR] eq "print") {
		&parse_print;
		goto PARSE_NOFEED;
	}
	#
	# Handle all of the IF-THEN logic
	#
	my $fals <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24693	24795	
==>t]
	my($endexpr, $stepexpr, @stepcode);

	$forloop++;
	feedme();

	# The initial assignment.  Type of c <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8744	8836	
==>the lazy moves stack?
${ITEMP0} = elements lazy_moves
if ${ITEMP0} > 0 goto POST_STORE_${CURI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429735	429990	
==>h_v_ps(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430622	430877	
==>h_v_ps(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	627	738	
==>l cl.exe));
    my $is_intel = grep { $cc eq $_ } (qw(icl icl.exe));
    my $is_mingw = grep { $cc eq $_ } (qw(g <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	15387	15494	
==>h = shift;
    
    return $path . '.html';
}

=item C<html_link($href, $text)>

Returns an HTML anchor with <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	9985	10066	
==>coverage{$source_file}{$function} ? "$function_line_coverage{$source_file}{$functi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	963	1082	
==>($args) ne "ARRAY";

  my $self = bless {
    BLOCK => $block,

    TYPE  => $type,
    NAME  => $ident->value,
    PROP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361687	361777	
==>nst s = Parrot_sprintf_c(interpreter, INTVAL_FMT, {{\@2}});\n    PIO_putps(interpreter, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362586	362676	
==>nst s = Parrot_sprintf_c(interpreter, INTVAL_FMT, {{\@2}});\n    PIO_putps(interpreter, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146793	147121	
==>:base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 179,
                  "ARGS" => [
                              "p" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	466083	466292	
==>4,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 348 \"src/ops/math.ops\"\n  {{\@1}}--;\n  {{+=2}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593685	593854	
==>",
                              "kc"
                            ],
                  "BODY" => "#line 325 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594896	595065	
==>",
                              "kc"
                            ],
                  "BODY" => "#line 325 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(i <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	34482	34612	
==>@return2,  $result;
        push @opcodes2, new AssignOp( $parser,
            'result' => $_->[0],
            'arg1'   => $res <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	636	753	
==>T', REDO => 'THEN', LAST => 'ELSE' }, # TODO: fix these
);


#
# new()
#

sub new
{
  my $class = shift;
  my ($block, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	657	774	
==>T', REDO => 'THEN', LAST => 'ELSE' }, # TODO: fix these
);


#
# new()
#

sub new
{
  my $class = shift;
  my ($block, <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	443	536	
==>C<struct> defined in F<include/parrot/op.h>.

=head2 Op Type

Ops are either I<auto> or I<manu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540512	540621	
==>{ {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541764	541873	
==>{ {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543016	543125	
==>{ {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	690524	690816	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "thaw",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691280	691572	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "thaw",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	27	114	
==>/lib/Parrot/Test/Bc.pm 18020 2006-03-26T19:46:16.084129Z bernhard  $

package Parrot::Te <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8483	8577	
==>ep 4
  print c$(i);tab$(12);c$(i+1);tab$(22);c$(i+2);tab$(32);c$(i+3)
next
print
data "ABANDON" <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21347	21441	
==>ep 4
  print c$(i);tab$(12);c$(i+1);tab$(22);c$(i+2);tab$(32);c$(i+3)
next
print
data "ABANDON" <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	5296	5389	
==>alues joined with
C<|> (see F<include/parrot/op.h>). This indicates if and how an op
may jump. <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3601	3700	
==><<'END_HEADER';
#
# This file should contain a transcript of the svn:ignore properties
# of the dire <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1871	1968	
==>Runs the target string against the Perl 6 pattern, passing the test if
they do not match. The same <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3403	3500	
==>Runs the target string against the Perl 6 pattern, passing the test if
they do not match. The same <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	926	1023	
==>t if $key eq 'start_line' and $_[0]{'hide_line_numbers'};
        _xml_escape($value = $_[2]{$key} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	743	838	
==>t if $key eq 'start_line' and $_[0]{'hide_line_numbers'};
      _xml_escape($value = $_[2]{$key} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43123	43414	
==>[
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pushmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43766	44057	
==>[
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pushmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	10114	10212	
==>ot::Test';

    my $path_to_parrot = path_to_parrot();
    my $parrot = File::Spec->join(File::Spec <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6812	6923	
==>) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If we need a destination, we simply supply the <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4750	4861	
==>) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If we need a destination, we simply supply the <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	4906	4996	
==>th the unexpected result is false.

=item C<example_output_is( $example_f, $expected, @todo <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	11543	11648	
==>>encmodver;
    $enc_error = join '' =>
      "This document probably does not appear as it should, becaus <==
3	/Users/nnunley/parrot/config/inter/shlibs.pm	530	629	
==>ion test.

=cut

package inter::shlibs;

use strict;
use vars qw($description @args);

use base qw(P <==
3	/Users/nnunley/parrot/lib/File/Which.pm	6505	6597	
==>ersion 0.04 had some significant platform-related changes, taken from
the Perl Power Tools C< <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16152	16266	
==>>is_value
    ) {
      my $block = $self->current_block();
      my $ident = Jako::Construct::Expression::Value::I <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16923	17037	
==>>is_value
    ) {
      my $block = $self->current_block();
      my $ident = Jako::Construct::Expression::Value::I <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17728	17842	
==>>is_value
    ) {
      my $block = $self->current_block();
      my $ident = Jako::Construct::Expression::Value::I <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3444	3546	
==>elf->{'Thispara'},
    "\n\n"
  ;
  $self->{'Thispara'} = '';
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2974	3076	
==>elf->{'Thispara'},
    "\n\n"
  ;
  $self->{'Thispara'} = '';
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6055	6155	
==>nt a
a=0
do
	a=a+1
loop until a>4
print a


' Swap
a$="Hello"
b$="Goodbye"
print a$,b$
swap a$,b$
pri <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	4993	5140	
==>step->runstep($self);
            }
        };
        if ($@) {
            carp "\nstep $step_name died during execution: $@\n";
            retur <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59508	59605	
==>) or next;

			$prod->check_pending($line) if $prod;
			$prod = new Parse::RecDescent::Production( <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59864	59960	
==>) or next;
			$prod->check_pending($line) if $prod;
			$prod = new Parse::RecDescent::Production( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	1245	1346	
==>}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1;
__END__

Chole

 * 1 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11781	11874	
==>}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

1;
__END__

=h <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1577	1668	
==>}
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1;
__END__

=h <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2017	2124	
==>variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->type;
  }
  else {
    $left_type <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1975	2082	
==>variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->type;
  }
  else {
    $left_type <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1897	2004	
==>variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->type;
  }
  else {
    $left_type <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26105	26206	
==>s {
  my ($self,$node) = @_;
  my $return;
  my $num_children = defined $node->{children} ? @{$node->{ <==
3	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	2268	2378	
==>st_regex.pir', 'test_regex.pbc');
}

sub process {
    my ($input, $output) = @_;

    my $TEST;
    open($TEST <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	50268	50365	
==>l fails, return an error. Otherwise, go back to step 1.

=item 4.

Unconditionally match a barewor <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	15590	15722	
==>{#State 38
		ACTIONS => {
			"?" => 23,
			'CHAR' => 4,
			"<" => 22,
			"+" => 24,
			'CODE' => 6,
			"(" => 10,
			"|" => 26,
			"* <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054246	1054342	
==>"BODY" => "#line 182 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (PMC_IS_NULL({{\@2}}))\n\t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055373	1055469	
==>"BODY" => "#line 182 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (PMC_IS_NULL({{\@2}}))\n\t <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	7537	7650	
==>turn;
}

#
# MAIN PROGRAM:
#

@ARGV = qw(-) unless @ARGV;

foreach (@ARGV) {
    compile_file($_)
}

exit 0;

__EN <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327090	327175	
==>1}}->vtable->set_integer_native(interpreter, {{\@1}}, (INTVAL){{\@2}});\n  {{+=3}};\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327892	327977	
==>1}}->vtable->set_integer_native(interpreter, {{\@1}}, (INTVAL){{\@2}});\n  {{+=3}};\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397675	398068	
==>k",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 461,
                  "ARGS" => [
                              "p",
                              "i", <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	6268	6431	
==>}

        # pop
        elsif (/^pop$/) {
            if ($rule->{$_} =~ /^\d+$/) {
                if ($has_pop) {
                    die "Duplicate value for po <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	63855	63951	
==>ect" list
(and the failure mode was not "MAX" or "PARA").

=item C<Found unbalanced nested tag: % <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	185	276	
==>ter;
require Parrot::Test;

@EXPORT = ( qw(output_is output_like output_isnt), @Test::More:: <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	102	193	
==>ter;
require Parrot::Test;

@EXPORT = ( qw(output_is output_like output_isnt), @Test::More:: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4822	4923	
==>{
    $handler->start_element({ Name => 'literal', Attributes => { type => $type->name } });
    $hand <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29725	29832	
==>le $rule->{'name'}");
		$pir .= "### end pre_load\n";

		# If we have PIR for the instruction, just take tha <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	1177	1276	
==>/head3' => "</a></h3>\n",
  '/head4' => "</a></h4>\n",

  'X'  => "<!--\n\tINDEX: ",
  '/X' => "\n-- <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	106	201	
==>erl::MD5;
use strict;
use integer;
use Exporter;
use vars qw($VERSION @ISA @EXPORTER @EXPORT_OK) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1596	1708	
==>$self->block;
  my $value = $self->value;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $se <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3216	3328	
==>$self->block;
  my $value = $self->value;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $se <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	2185	2290	
==>f ($lines_seen{$line}++) {
	    die "Seen line $line before in $infile - can't continue";
	}

	# TODO mayb <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39475	39589	
==>rt,
  'close-output-port'     => \&_op_close_output_port,

####
#### Input
####

  'read' => \&_op_read,
  'read-ch <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3240	3347	
==>ispara'} =~ tr{\xA0}{ };
    $self->{'Thispara'} =~ tr{\xAD}{}d;
  }

  my $i = ' ' x ( 2 * $self->{'Indent' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2728	2835	
==>ispara'} =~ tr{\xA0}{ };
    $self->{'Thispara'} =~ tr{\xAD}{}d;
  }

  my $i = ' ' x ( 2 * $self->{'Indent' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793084	793404	
==>"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 895,
                  "ARGS" => [
                              "p",
                              "k",
                              "i"
                            ],
                  "BODY" => "#line 457 \"src/ops/ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	52908	53117	
==>' . $_->[1]{'target'})
             : $_->[0]
        }
    @$curr_open
  ;
}

###########################################################################
my %pretty_form = (
  "\a" => '\a', # ding!
  "\b" => ' <==
3	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	2061	2210	
==>atus) || $status) {
        die "assemble failed with status " . ($? >> 8);
    }
}

sub generate_regular {
    my ($pattern) = @_;

    generate_regu <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35426	35548	
==>else {
        $self->diag("No tests run!\n");
        _my_exit( 255 ) && return;
    }
}

END {
    $Test->_ending if defi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14604	14710	
==>turing title <$title>\n" }
    else { print "Returning title <>\n" }
  }
  
  return '' unless defined $tit <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	23169	23275	
==>turing title <$title>\n" }
    else { print "Returning title <>\n" }
  }
  
  return '' unless defined $tit <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	5932	6073	
==>ompile = compreg "PGE::P6Regex"

            .local string target
            .local pmc rulesub
            .local pmc match
            .loc <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2995	3084	
==>:Construct::Type::String');
  $self->SYNTAX_ERROR("Can't do arithmetic on strings") if UNI <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	3115	3204	
==>:Construct::Type::String');
  $self->SYNTAX_ERROR("Can't do arithmetic on strings") if UNI <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	10005	10139	
==>has_value{$flag}) {
            $$c =~ s/^\s+(\w+)//s
                or die "Parser error: no value for '$flag'";

            $flags{ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	773	867	
==>an array reference containing additional arguments (as
you might find on the command line).

If <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611017	611216	
==>,
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 491 \"src/ops/object.ops\"\n    VTABLE_set_attr(interpreter, {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830620	830708	
==>AL i = {{\@1}};\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &i, ST <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831361	831449	
==>AL i = {{\@1}};\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &i, ST <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	784	888	
==>tion item.

=cut

sub c_source_item
{
    my $self = shift;

    return $self->c_item(shift, 'sources' => <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6388	6568	
==>0x01
#DBG>		and	print STDERR "Don't need token.\n";
        }

            defined($act)
        and do {

                $act > 0
            and do {        #shift

#DB <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6092	6262	
==>0x01
#DBG>		and	print STDERR "Don't need token.\n";
        }

            defined($act)
        and do {

                $act > 0
            and do {        #shift

#DB <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	23674	23779	
==>CONST_STRING(interp, "$isa");
        vt_clone->does_str = CONST_STRING(interp, "$does");
EOC
    }
    $c <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6508	6682	
==>ursion

  return $self->block->find_symbol($name); # Recurse
}


###############################################################################

=head2 BLOCK->find_block(KIND <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	815	906	
==>s not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Ident is not!" i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	843	934	
==>s not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Ident is not!" i <==
3	/Users/nnunley/parrot/tools/build/list_unjitted.pl	397	521	
==>le(<OPS>){
    next if /^\s*#/ or /^\s*$/;
    if (my ($op) = /(\S+)\s+\d+/){
        push @ops, $op;
    }
    else { die "M <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2888	2986	
==>$self, $val1, $val2, $dest) = @_;
    $self->output_test('<', $val1, $val2, $dest);
}

sub output_l <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	38232	38326	
==>vector_length,
  'vector-ref'    => \&_op_vector_ref,
  'vector-set!'   => \&_op_vector_set_ban <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23084	23303	
==>t);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRES <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25523	25742	
==>t);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRES <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945480	945711	
==>rset_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946290	946521	
==>rset_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	34981	35119	
==>, new BranchIfOp( $parser,
        'arg1'   => $nil->[0],
        'op'     => '==',
        'arg2'   => $var,
        'result' => $lbl_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	310026	310128	
==>s\"\n    const char *command;\n\n    if (!(interpreter->pdb->state & PDB_BREAK)) {\n        interpreter <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1719	1816	
==>OR("Wrong number of arguments (expected %d, got %d) in call to '%s'.",
    scalar(@formal_args), s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1419	1516	
==>OR("Wrong number of arguments (expected %d, got %d) in call to '%s'.",
    scalar(@formal_args), s <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	1910	1996	
==>Wpointer-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wno-unused - <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1275	1361	
==>Wpointer-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wno-unused - <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1279	1365	
==>Wpointer-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wno-unused - <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	11249	11338	
==>String Boolean Ref SharedRef Array FixedIntegerArray IntList Iterator SArray ConstSArray F <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826610	826697	
==>y->entry_type != STACK_ENTRY_FLOAT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827680	827767	
==>y->entry_type != STACK_ENTRY_FLOAT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wr <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	1683	1799	
==>s}->{$1}{$2}) {
      $self->{regs}->{$1}{$2} = 0;
    }
  }
}

sub _restore_set {
  my $self = shift;
  my %regs = % <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054500	1054613	
==>}};\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055627	1055740	
==>}};\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833535	833619	
==>s/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834257	834341	
==>s/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834983	835067	
==>s/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@ <==
3	/Users/nnunley/parrot/config/gen/icu.pm	1911	2052	
==>cui18n\w*//; # "-licui18n32" too
                $without = 1 if length $icushared == 0;
            }

            # location of header files <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	194	299	
==>t;
  return bless ['text', @_], ref($class) || $class;
}

# Purely accessors:

sub text { (@_ == 2) ? ($_[ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	982	1102	
==>- - - - - - - - - - - - - - - - - - - - - - - - - - - -

sub parse_string_document {
  my $this = shift;
  $this->set_sou <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	14221	14329	
==>rrata' => 1}, ''],
  ;

  DEBUG and print "\n<<\n", pretty(\@out), "\n>>\n\n";

  return @out;
}

}

#@@@@@@@ <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	885	977	
==>g = get_parrot_config($parrot_path, $srm);

# Generate makefile.
generate_makefile(%config <==
3	/Users/nnunley/parrot/config/init/hints/darwin.pm	1477	1589	
==>ared_alias  => 'libparrot$(SHARE_EXT)',
        # This variable needs renaming to be more general
        # XXX u <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	580	671	
==>s not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Ident is not!" u <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	468	559	
==>s not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Ident is not!" u <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	3266	3385	
==>care of them.

        return $pass;
        }
}

=head1 HISTORY

Mostly taken from F<languages/bc/lib/Parrot/Te <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1155	1252	
==>'global')) {
    my $pmc_type = $self->ident->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pm <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1149	1246	
==>'global')) {
    my $pmc_type = $self->ident->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pm <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1175	1307	
==>>{relpath}, 
            STDOUT => $pasm_f, STDERR => $pasm_f,
        );
        Parrot::Test::run_command( 
            "./parrot l <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1084	1216	
==>>{relpath}, 
            STDOUT => $pasm_f, STDERR => $pasm_f,
        );
        Parrot::Test::run_command( 
            "./parrot l <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	20194	20322	
==>ic PMCs need the runtime type
            # which is passed in entry to class_init
            $left = 0;  # set to 'entry' below <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255770	256090	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "xor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256677	256997	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "xor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257585	257905	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "xor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	67785	67938	
==>rrot_go_collect(interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	8407	8518	
==>ne "STRING") {
			push(@expr, [ "0.0", "INT"],   # Cheating, making not a binary op
				[ "not", "PUN"] );
			ne <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	910	1005	
==>c2c.pm'),
			$self->new_item('', 'lib/Parrot/Vtable.pm'),
		),
		$self->new_group('IO', '',
			' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	29808	29983	
==>->[1]{'start_line'}}, ''],
            $para
          ;
          next;
        }
        
        
        my $over_type = $over->[1]{'~type'};
        
        if(!$over_typ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035424	1035523	
==>EXT(interpreter->ctx);\n    STRING * const lex_name = {{\@2}};\n    PMC * const lex_pad = Parrot_fin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036588	1036687	
==>EXT(interpreter->ctx);\n    STRING * const lex_name = {{\@2}};\n    PMC * const lex_pad = Parrot_fin <==
3	/Users/nnunley/parrot/languages/regex/regex.pl	343	472	
==>sif (/--optimize=(.*)/) {
        my $opts = $1;
        $tree_opt = ($opts =~ /t/i);
        $list_opt = ($opts =~ /l/i);
    } e <==
3	/Users/nnunley/parrot/languages/regex/test.pl	1937	2066	
==>sif (/--optimize=(.*)/) {
        my $opts = $1;
        $tree_opt = ($opts =~ /t/i);
        $list_opt = ($opts =~ /l/i);
    } e <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33864	34008	
==>S => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"," => 167,
			"%" => 76,
			"==" => 77, <==
3	/Users/nnunley/parrot/languages/APL/t/APL.pm	1204	1330	
==>borkedly converting the 0 into the empty string. Why?
      }
    }
    else {
      $output = "\n"; # this lets todo tests not <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12968	13060	
==>oo->{num}\n";
	} elsif ($syms[NEXT] eq "function") {
		push @{$code{$seg}->{code}}, qq{\tgoto <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	1938	2072	
==>en');   }
sub is_colon         { return shift->is('colon');         }
sub is_concat_assign { return shift->is('concat-assign'); }
sub i <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3210	3313	
==>nerate_c($_) foreach (@pmcs);

    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gath <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3314	3417	
==>nerate_c($_) foreach (@pmcs);

    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gath <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955811	955920	
==>,
                  "BODY" => "#line 576 \"src/ops/string.ops\"\n  {{\@1}} = string_copy(interpreter, Parrot_e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956623	956732	
==>,
                  "BODY" => "#line 576 \"src/ops/string.ops\"\n  {{\@1}} = string_copy(interpreter, Parrot_e <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	108	205	
==>mple::PullParserToken');
use strict;

sub new {  # Class->new(tagname, optional_attrhash);
  my $c <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	3953	4112	
==>ate', \@children), $ctx);
            @{ $t->{args} } = ($R, $subtree);
            return $t;
        }

        # Have at least one to combine with, but possi <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4111	4209	
==>nc stack_depth

# Get type (so we can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assi <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2527	2625	
==>nc stack_depth

# Get type (so we can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assi <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4500	4616	
==>r i = 0 to 1
for j = 0 to 1
print i; j;
if i and j then a$="True  " else a$="False "
if i or  j then b$="True  " else <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17571	17687	
==>r i = 0 to 1
for j = 0 to 1
print i; j;
if i and j then a$="True  " else a$="False "
if i or  j then b$="True  " else <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	308621	308723	
==>b = (PDB_t *)mem_sys_allocate_zeroed(sizeof(PDB_t));\n\n        interpreter->pdb = pdb;\n        pdb->c <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16867	16994	
==>out "- so that "--" won't make it thru in X-generated comments
        #  with text in them.
        
        # Yes, stipulate t <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	17692	17806	
==>n History

Modified by Damian Conway, 2001-09-10, v0.62.

   Modified implicit construction of nested objects.
   N <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10307	10418	
==>out "- so that "--" won't make it thru in X-generated comments
    #  with text in them.

    # Yes, stipulate t <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5668	5766	
==>rans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3244	3342	
==>rans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2972	3070	
==>rans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956418	956678	
==>,
                  "TYPE" => "function",
                  "CODE" => 1076,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 576 \"src/ops/strin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627276	627371	
==>e're creating a continuation, the continuation PMC\n   * needs to be in the destination register <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628420	628515	
==>e're creating a continuation, the continuation PMC\n   * needs to be in the destination register <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10602	10711	
==>pmc, $value);
    $self->_restore ($value);
    $value = $pmc;
  }

  $self->_new_lex ($symbol,$value);

  ret <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6077	6169	
==>e already.
	$pir .= <<'PIR';
if 0x${CURIC} == 0x45 goto POST_BRANCH_switch_${CURIC}
${ITEMP0} <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4015	4107	
==>e already.
	$pir .= <<'PIR';
if 0x${CURIC} == 0x45 goto POST_BRANCH_switch_${CURIC}
${ITEMP0} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554285	554553	
==>voke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555682	555950	
==>voke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556919	557187	
==>voke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582955	583206	
==>"CODE" => 664,
                  "ARGS" => [
                              "p",
                              "sc",
                              "sc"
                            ],
                  "BODY" => "#line 289 \"src/ops/object.ops\"\n  PMC * <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3821	3926	
==>ysub()

' Arguments.  Expect 2 and 4
sub twice(a)
	print a
	a=a*2
end sub
t=2
call twice t
print t

' Pass <==
3	/Users/nnunley/parrot/lib/Parrot/PMC.pm	1397	1491	
==>,
	ResizableIntegerArray => 66,
	ResizablePMCArray => 67,
	ResizableStringArray => 68,
	Slice = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	612	701	
==>) is not!") unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	622	711	
==>) is not!") unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	622	711	
==>) is not!") unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier' <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	1458	1574	
==>ft;

  die "Nothing to restore"
    unless defined @_;
  foreach my $reg (@_) {
    next if grep { $_ eq $reg } qw (n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427920	428006	
==>ine 69 \"src/ops/math.ops\"\n  mmd_dispatch_v_pn(interpreter, {{\@2}}, {{\@3}}, {{\@1}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428807	428893	
==>ine 69 \"src/ops/math.ops\"\n  mmd_dispatch_v_pn(interpreter, {{\@2}}, {{\@3}}, {{\@1}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926694	927001	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "string <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928164	928471	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "string <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929634	929941	
==>n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "string <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126567	126692	
==>{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127702	127827	
==>{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128837	128962	
==>{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	245	350	
==>@_], ref($class) || $class;
}

# Purely accessors:

sub tagname   { (@_ == 2) ? ($_[0][1] = $_[1]) : $_[0] <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	222	325	
==>@_], ref($class) || $class;
}

# Purely accessors:

sub tagname { (@_ == 2) ? ($_[0][1] = $_[1]) : $_[0] <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	966	1066	
==>$ident_name = $self->ident->value;

  my $ident = $self->ident->compile($compiler);
  
  $compiler->e <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	964	1062	
==>$ident_name = $self->ident->value;

  my $ident = $self->ident->compile($compiler);

  $compiler->e <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	3151	3243	
==>elf->html_navigation, '../resources'));
    $index->append($index_html);
    $index->append(P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	281835	282257	
==>" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 328,
                  "ARGS" => [
                              "i",
                              "n",
                              "n"
                            ],
                  "BODY" => "#lin <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30469	30572	
==>_
DISP
	}
	print CODE <<DISP2;
	print "Structure type of "
	print S0
	print " not found\\n"
	_platform_s <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30802	30905	
==>_
DISP
	}
	print CODE <<DISP2;
	print "Structure type of "
	print S0
	print " not found\\n"
	_platform_s <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10800	10917	
==>new {
        my($class)=shift;
        ref($class)
    and $class=ref($class);

    my($self)=$class->SUPER::new <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11801	11913	
==>new {
        my($class)=shift;
        ref($class)
    and $class=ref($class);

    my($self)=$class->SUPER::new <==
3	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	884	994	
==>clude "expr.pasm"


MAIN:
	new P20, .PerlHash     # PerlHash   # Numerics
	new P21, .PerlHash     # Alphabetics <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	4231	4340	
==>$filename\": $!\n";
}

sub clean_obsolete_smokes {
  my $category = sub {
    return join "-",
      (map { $_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206473	206563	
==>s\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207415	207505	
==>s\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3} <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	5205	5350	
==>/root.in' => 'languages/pugs/Makefile',
        commentType                   => '#',
        replace_slashes               => 1,
        conditio <==
3	/Users/nnunley/parrot/config/inter/progs.pm	2270	2377	
==>$ask;
    $conf->data->set(ld => $ld);

    $ccflags = $conf->data->get('ccflags');

    # Remove some perl5 <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	10539	10633	
==>c parrotobject.pmc os.pmc file.pmc addrregistry.pmc bound_nci.pmc deleg_pmc.pmc enumerate.pmc f <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2181	2312	
==>et, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various libraries in the link li <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2473	2604	
==>et, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various libraries in the link li <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2268	2399	
==>et, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various libraries in the link li <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113853	114082	
==>"#line 204 \"src/ops/bit.ops\"\n  {{\@1}} <<= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114592	114821	
==>"#line 204 \"src/ops/bit.ops\"\n  {{\@1}} <<= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	344	467	
==>p::Until;

use Carp;

use base qw(Jako::Construct::Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "E <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139498	139890	
==>core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 171,
                  "ARGS" => [
                              "i",
                              "ic",
                              "ic" <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	1163	1274	
==>,
            $self->new_item('A plan for Parrot.', 'docs/ROADMAP.pod'),
            $self->new_item('Where to f <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18589	18686	
==>hildren}}) {
    my $temp_1 = $self->_generate($node->{children}[$_]);
    if (substr ($temp_0, 0, <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	205	298	
==>:Test;

@EXPORT = ( qw(output_is output_like output_isnt), @Test::More::EXPORT );
@ISA = qw(Ex <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	122	215	
==>:Test;

@EXPORT = ( qw(output_is output_like output_isnt), @Test::More::EXPORT );
@ISA = qw(Ex <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65393	65494	
==>/gco)
				{
					_parse("a $1-or-more subrule match", $aftererror,$line,"$code$argcode($1..)");
					i <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1296	1383	
==>->is_tag(I<somestring>) or $token->is_tagname(I<somestring>)

These are shortcuts for C< <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1726	1813	
==>->is_tag(I<somestring>) or $token->is_tagname(I<somestring>)

These are shortcuts for C< <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305137	305400	
==>RROT_JUMP_RELATIVE",
                  "NAME" => "if_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305925	306188	
==>RROT_JUMP_RELATIVE",
                  "NAME" => "if_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39038	39139	
==>_port_p,
  'output-port?'          => \&_op_output_port_p,
  'current-input-port'    => \&_op_current_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506486	506659	
==>,
                              "n"
                            ],
                  "BODY" => "#line 636 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507341	507514	
==>,
                              "n"
                            ],
                  "BODY" => "#line 636 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663752	664028	
==>\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664524	664800	
==>\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665300	665576	
==>\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete" <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	2195	2348	
==>=> "IREG(%ld)",

        ic  => "cur_opcode[%ld]",
        nc  => "CONST(%ld)",
        pc  => "CONST(%ld)",
        sc  => "CONST(%ld)",
        kc  => " <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	34369	34466	
==>e
(right or left) delimiter bracket I<at the same level of nesting>. Any
type of bracket not in th <==
3	/Users/nnunley/parrot/tools/util/pirtidy.pl	993	1087	
==>indented, reformatted script.

pirtidy is somewhat liberal about how it formats your file -- it <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	648	744	
==>aults to '/usr'.

=item C<exec_prefix>

The exec prefix. Defaults to '/usr'.

=item C<bindir>

Th <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	877	973	
==>aults to '/usr'.

=item C<exec_prefix>

The exec prefix. Defaults to '/usr'.

=item C<bindir>

Th <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	73233	73322	
==>enum} = $_[2]||_linecount($_[1]);
	$_[0]->{lastlinenum} = _linecount($_[1]);
	$_[0]->{last <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19953	20172	
==>pecified,
                                          so any production not ending
                                          in an explicit action has
                                          some parse-tree building code <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	2689	2813	
==>ut

sub name_without_suffix
{
    my $self = shift;
    my $name = $self->name;
    
    $name =~ s/\.[^\.]*$//o;
    
    re <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	1360	1463	
==>[\"$var\"]=$var\n";
			} else {
				print CODE "\t.local float $var\n";
				push @init, qq{\t\t$var=0.0\ <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	3908	4008	
==>f libraries for link line in Makefile
    my $slash = $conf->data->get('slash');
    (my $TEMP_pmc_cl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	12997	13085	
==>\"\n  opcode_t * loc;\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->control_stac <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13841	13929	
==>\"\n  opcode_t * loc;\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->control_stac <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	9253	9363	
==>\": $!\n";
  flock $fh, LOCK_EX
    or die "Couldn't flock \"@{[ BUCKET ]}\": $!\n";

  my $data   = eval { fd_ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7411	7564	
==>pmc rulesub
            .local pmc match
            .local pmc code
            .local pmc exp
            target = unicode:"$target"
            pattern <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16063	16202	
==>, $var ) = @_;
    my $result;
    my @opcodes = ();
    my $idf     = shift @{$var};
    if ( ref($idf) eq 'ARRAY' ) {
        $result <==
3	/Users/nnunley/parrot/lib/Test/More.pm	7476	7595	
==>);

    # $foo isn't empty
    isnt( $foo, '',     "Got some foo" );

are similar to these:

    ok( ultimate_answer() e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629543	629659	
==>interpreter, class);\n    }\n    if (type <= 0)\n        real_exception(interpreter, NULL, NO_CLASS,\n            \"C <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3120	3220	
==>d X.c and also create any lib-GROUP.c files

    generate_dump($_) foreach (@pmcs);
    generate_c($_ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3224	3324	
==>d X.c and also create any lib-GROUP.c files

    generate_dump($_) foreach (@pmcs);
    generate_c($_ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	50873	50965	
==>rent outermost delimiter bracket is useful
in some circumstances. For example, in the Parse:: <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	561	662	
==>SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L< <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	980	1081	
==>SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L< <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	467	568	
==>SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L< <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10433	10549	
==>[-1] twips.\n";
        $self->{'rtfindent'} -= pop @indent_stack;
        pop @stack;
      } elsif( $tagname eq 'Ve <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1752	1864	
==>, $failLabel) = @_;
    die "invalid distance" if $distance =~ /[^\d\-]/;
    return () if $distance == 0;

    m <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	2928	3025	
==>odules share such global information as the test counter and
where test output is going.

If you w <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3168	3281	
==>a_seen'};
  my $self = shift;
  if(Pod::Simple::ASCII) {
    $self->{'Thispara'} =~ tr{\xA0}{ };
    $self->{'This <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	220	322	
==>s is a list of instructions that need the magical enum fixup.
our @need_enum_fix = (
    qw/2E 2F 30 31 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	58	148	
==>class for tokens gotten from Pod::Simple::PullParser's $parser->get_token
@ISA = ();
$VERSI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459911	460180	
==>nError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460899	461168	
==>nError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461887	462156	
==>nError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7750	7846	
==>print "This is true" else print "Oops (string)"
s$=""
if s$ then print "Should not happen (string <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14737	14833	
==>print "This is true" else print "Oops (string)"
s$=""
if s$ then print "Should not happen (string <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	7567	7673	
==>c  Integer Key constant index (in-line)
        #

        if (/^(inline\s+)?op\s+([a-zA-Z]\w*)\s*\((.*)\)\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4749	4849	
==>Returns the C code prior to the run core function.

=cut

sub run_core_func_start
{
    return <<END_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3037	3137	
==>Returns the C code prior to the run core function.

=cut

sub run_core_func_start
{
    return <<END_ <==
3	/Users/nnunley/parrot/config/auto/jit.pm	2962	3080	
==>pable) {
        my ($jitcpuarch, $jitosname) = split(/-/, $jitarchname);

        $conf->data->set(
            jitarc <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	1877	1974	
==>s";
print "$cmd\n";
system $cmd;

print "we are skipping $total_skipped total tests.\n";
print "(- <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	772	859	
==>self->new_item('', 'docs/gettingstarted.pod'),
			$self->new_item('', 'docs/submissions. <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1076	1185	
==>ce of sources for the program:
    # default -> probe -> environment -> option -> ask
    $prog ||= $conf->opt <==
3	/Users/nnunley/parrot/config/inter/make.pm	897	1006	
==>ce of sources for the program:
    # default -> probe -> environment -> option -> ask
    $prog ||= $conf->opt <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1073	1182	
==>ce of sources for the program:
    # default -> probe -> environment -> option -> ask
    $prog ||= $conf->opt <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	5025	5179	
==>and its indent depth.
            $f=length($1);
            next;
        }

        if (/^\s*([\#\}])/) {
            # skip the last line of the func or <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	26992	27098	
==>= $self->{const}->methods($l, $out_name);
        $cout .= $self->{const}->init_func;
    }
    $cout .= $s <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	3377	3473	
==>ray, $textref,
			$matchpos, $endpos-$matchpos,		# MATCH
			$endpos,   length($$textref)-$endpos, <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	2018	2151	
==>inline\s+)?op\s+([a-zA-Z]\w*)/);
        my $op = $2;
        $op =~ s/\.//g;
        next if ($ops{$op});
        print "      <item> <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2921	3009	
==>>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans: <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	1755	1843	
==>>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans: <==
3	/Users/nnunley/parrot/config/gen/icu.pm	2532	2637	
==>fined $icuconfig;
        print "icushared='$icushared'\n" if defined $icushared;
        print "headers=' <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	7804	7908	
==>d alias vtable
    $const->{vtable} = $self->{vtable};
    # set parentname
    $const->{parentname} = $s <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	1497	1585	
==>Parrot/Docs/Directory.pm'),
		    $self->new_item('Documentation Sections', 'lib/Parrot/D <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	1668	1828	
==>ns           = @_;
    $ENV{HARNESS_VERBOSE} = 1;
    $ENV{HARNESS_PERL}  ||= '../../parrot ./' . $options{compiler}
        if $options{compiler};

    # Per Le <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962801	962938	
==>"ic"
                            ],
                  "BODY" => "#line 595 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963764	963901	
==>"ic"
                            ],
                  "BODY" => "#line 595 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(inte <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3922	4053	
==>"=cut found outside a pod block.  Skipping to next block."
          );
          
          ## Before there were errata sections in <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2227	2341	
==>e) unless $arg_sym;
      $actual_arg_type = $arg_sym->type; 
    }
    else {
      $actual_arg_type = $args[$i]-> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1927	2041	
==>e) unless $arg_sym;
      $actual_arg_type = $arg_sym->type; 
    }
    else {
      $actual_arg_type = $args[$i]-> <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5438	5559	
==>=( [ 0, undef ] );
	$$check='';

    while(1) {
        my($actions,$act,$stateno);

        $stateno=$$stack[-1][0] <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5177	5292	
==>=( [ 0, undef ] );
	$$check='';

    while(1) {
        my($actions,$act,$stateno);

        $stateno=$$stack[-1][0] <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2312	2416	
==>));
}

sub require_compression_modules {
  no strict 'refs';
  eval { require Compress::Zlib } or
    *Co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89349	89620	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90087	90358	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_co <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	7860	7971	
==>_;

    if ($self->flags =~ /:pic/ &&
	!(ref($trans) eq 'Parrot::OpTrans::CGP' ||
	  ref($trans) eq 'Parrot::OpT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81941	82034	
==>s\"\n  internal_exception(1, \"don't use compile - just invoke the compiler\");\n  {{+=4}};\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82835	82928	
==>s\"\n  internal_exception(1, \"don't use compile - just invoke the compiler\");\n  {{+=4}};\n" <==
3	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1160	1261	
==>->post($smokeserv => \%request);
  if($resp->is_success) {
    if($resp->content =~ /^ok/) {
      deb <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2889	2986	
==>parser->Error("Untermined string.\n");
    $parser->YYData->{lineno}++;
    return ( $type, $str <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4404	4501	
==>parser->Error("Untermined string.\n");
    $parser->YYData->{lineno}++;
    return ( $type, $str <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3002	3106	
==>subroutine one"
   RETURN Label1
Sub2:
   PRINT "3 in subroutine two"
   RETURN Label2   'Cannot return f <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16969	17073	
==>subroutine one"
   RETURN Label1
Sub2:
   PRINT "3 in subroutine two"
   RETURN Label2   'Cannot return f <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	9353	9447	
==>=~ m/^=encoding\s+(\S+)\s*$/s;
  DEBUG > 1 and print "Found an encoding line \"=encoding $1\"\n <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	2391	2523	
==>parser object: $self\n";

  return $self;
}

# ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~

sub get_tok <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	8287	8370	
==>G_OFFS_NUM(jit_info->cur_op[x])
#define ROFFS_STR(x) REG_OFFS_STR(jit_info->cur_op[x <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591117	591388	
==>PE" => "function",
                  "CODE" => 671,
                  "ARGS" => [
                              "p",
                              "k",
                              "k"
                            ],
                  "BODY" => "#line 325 \"src/ops/object <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33910	34052	
==>=> 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"," => 167,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5894	6002	
==>0], $value # open group $group!;
}

sub output_setend {
    my ($self, $group, $value, $adj) = @_;
    $value <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2994	3099	
==>back in subroutine one"
   RETURN Label1
Sub2:
   PRINT "3 in subroutine two"
   RETURN Label2   'Cannot r <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16961	17066	
==>back in subroutine one"
   RETURN Label1
Sub2:
   PRINT "3 in subroutine two"
   RETURN Label2   'Cannot r <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2469	2672	
==>t//
                and $str .= "\t",      # horizontal tab
                last;
            s/^\\v//
                and $str .= "\x0b",    # vertical tab
                last;
            s/^\\([ <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3983	4186	
==>t//
                and $str .= "\t",      # horizontal tab
                last;
            s/^\\v//
                and $str .= "\x0b",    # vertical tab
                last;
            s/^\\([ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	435	528	
==>/makefiles/dynclasses_pl.in>.  This script is used for building
dynamic PMCs.

=cut

use stric <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573079	573301	
==>erpreter, enum_class_ParrotClass, name);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573989	574211	
==>erpreter, enum_class_ParrotClass, name);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	17444	17539	
==>ll
testing should terminate.  This includes running any additional test
scripts.

It will exit w <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	3061	3173	
==>tance Methods

=over 4

=item C<code()>

Returns the op code.

=cut

sub code
{
    my $self = shift;

    return <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569276	569362	
==>line 218 \"src/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->isa(interpreter, {{\@2}}, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570169	570255	
==>line 218 \"src/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->isa(interpreter, {{\@2}}, <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	8958	9079	
==>s/#.*$//;
    s/\s*$//;
    s/^\s*//;
    next unless $_;
    ($name, $number) = split(/\s+/, $_);
    if ($prev + 1 != $n <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4626	4740	
==>.
sub pre_branch($) {
	my $self = shift;
	my $pops = shift;
	my $register_num = 0;
	my $pir = '';

	# Do code for e <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3042	3156	
==>.
sub pre_branch($) {
	my $self = shift;
	my $pops = shift;
	my $register_num = 0;
	my $pir = '';

	# Do code for e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	622017	622116	
==>{+=n}};\n    }\n    /* no match redo plain opcode */\n    ((void**)cur_opcode)[0] =\n\tparrot_pic_op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623870	623969	
==>{+=n}};\n    }\n    /* no match redo plain opcode */\n    ((void**)cur_opcode)[0] =\n\tparrot_pic_op <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	6535	6627	
==>yright 2000 Christian Lackas, Imperia Software Solutions
 Copyright 1998-1999 Gisle Aas.
 Cop <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14838	14962	
==>41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 69,
			'functioncall' => 31 <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	13242	13349	
==>void hop_init() {
    size_t i;
    op_info_t * info = ${bs}op_lib.op_info_table;
    /* store full names */ <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	381	484	
==>o file is named, and turn it into a C implementation file.

=cut

use strict;

use lib 'lib';
use Parrot <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	578	678	
==>sa($ident, 'Jako::Construct::Expression::Value::Identifier');

  my $self = bless {
    BLOCK => $blo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	653	753	
==>sa($ident, 'Jako::Construct::Expression::Value::Identifier');

  my $self = bless {
    BLOCK => $blo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	653	753	
==>sa($ident, 'Jako::Construct::Expression::Value::Identifier');

  my $self = bless {
    BLOCK => $blo <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17999	18122	
==>hod {
    my ( $parser, $obj, $meth, $args ) = @_;
    my @opcodes = ();
    my $key = BuildLiteral( $parser, $meth, 'key <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189742	189832	
==>p.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190683	190773	
==>p.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\ <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9383	9505	
==>$libs) = $conf->data->get(
        qw(cc ccflags ld_out o link linkflags
            cc_exe_out exe libs)
    );

    _run_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822378	822468	
==>ernal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823446	823536	
==>ernal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_i <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4341	4450	
==>: Cannot open $fname";
	while(<DRV>) {
                	/^\s*sub\s+_Parse\s*{\s*$/ .. /^\s*}\s*#\s*_Parse\s* <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4121	4228	
==>: Cannot open $fname";
	while(<DRV>) {
                	/^\s*sub\s+_Parse\s*{\s*$/ .. /^\s*}\s*#\s*_Parse\s* <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822420	822568	
==>ong type on stack!\");\n  }\n\n  {{\@1}} = UVal_int(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823488	823636	
==>ong type on stack!\");\n  }\n\n  {{\@1}} = UVal_int(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3981	4090	
==>x_len>";
    my $fail = $self->output_label_use($failLabel);
    if ($needed eq "1") {
        return "ge <rx_ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	36450	36551	
==>eted( $text, '<>' );

the result would be:

	( '<A HREF=">', '>>>">link</A>', "" )

In addition to the <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2480	2575	
==>g_type;

    $self->INTERNAL_ERROR("Can't determine type of actual argument (%s)!", ref $args[$i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2180	2275	
==>g_type;

    $self->INTERNAL_ERROR("Can't determine type of actual argument (%s)!", ref $args[$i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	534542	534838	
==>GS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 618,
                  "ARGS" => [
                              " <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	19344	19442	
==>2 gen_c( [$dir1, $dir2], $file1, $file2, ... )

Generate the C source code file for each of the fil <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	3408	3502	
==>ss.h"
#define WHITESPACE  enum_cclass_whitespace
#define WORDCHAR    enum_cclass_word
#define P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919591	920061	
==>o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1035,
                  "ARGS" => [
                              "i",
                              "sc",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 289 \"src/ <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	854	1143	
==>ions:    $I4\n"; # print  "Iterations:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, I1
                              #
p <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	854	1143	
==>ions:    $I4\n"; # print  "Iterations:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, I1
                              #
p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926734	927049	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringinfo",
                  "FLAGS" => ":base_core" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928204	928519	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringinfo",
                  "FLAGS" => ":base_core" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929674	929989	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringinfo",
                  "FLAGS" => ":base_core" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	604	752	
==>REFIX    => $prefix,
    KIND      => 'while',
    LEFT      => $left,
    OP        => $op,
    RIGHT     => $right,

    CONTENT   => [ ]
  }, $cla <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	8860	8992	
==>true'     => 'TRUE',
        'until'    => 'UNTIL',
        'while'    => 'WHILE',
    );

    $parser->YYData->{keyword} = \%ke <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	574	665	
==>'s groups by studying the
contents of C<@Parrot::Configure::steps>.

=cut

sub config_groups <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043514	1043802	
==>,
                  "TYPE" => "function",
                  "CODE" => 1166,
                  "ARGS" => [
                              "p",
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line 125 \"src/op <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	18580	18687	
==>->iglobals;

    if (PMC_IS_NULL(iglobals))
        PANIC("iglobals isnt created yet");
    HashPointer = V <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	6003	6108	
==>highlighting>

END

print <<END;
  <general>

    <comments>
      <comment name="singleLine" start="#" /> <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1919	2044	
==>ears to be
    # broken
    if ($ret == -1 and !$conf->options->get('ask')) {

        # fall back to default
        $self->s <==
3	/Users/nnunley/parrot/config/inter/make.pm	1793	1918	
==>ears to be
    # broken
    if ($ret == -1 and !$conf->options->get('ask')) {

        # fall back to default
        $self->s <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1933	2058	
==>ears to be
    # broken
    if ($ret == -1 and !$conf->options->get('ask')) {

        # fall back to default
        $self->s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	987	1105	
==>w=shad
       superscript=super    subscript=sub    strikethrough=strike
       outline=outl         emboss=embo      e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439534	439621	
==>4 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, NU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440549	440636	
==>4 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, NU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009864	1010088	
==>s\"\n  {{\@1}} = string_compose(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010629	1010853	
==>s\"\n  {{\@1}} = string_compose(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	618803	618909	
==>Parrot_MIC *mic;\n    Parrot_PIC_lru *lru;\n    PMC *left, *right;\n    INTVAL lr_types, lt, rt;\n\n    lef <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4308	4412	
==>core function declaration.

=cut

sub run_core_func_decl
{
    my ($self, $core) = @_;

    return "opcod <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2796	2900	
==>core function declaration.

=cut

sub run_core_func_decl
{
    my ($self, $core) = @_;

    return "opcod <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17233	17329	
==>dump_curr_open(), ")\n";
    
    if($para_type eq '=for') { #/////////////////////////////////// <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16508	16603	
==>you can redistribute it and/or modify it
under the same terms as Perl itself.

See http://www.pe <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1722	1817	
==>you can redistribute it and/or modify it
under the same terms as Perl itself.

See http://www.pe <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164800	164951	
==>equal(interpreter, {{\@1}}, {{\@2}}) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165729	165880	
==>equal(interpreter, {{\@1}}, {{\@2}}) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166658	166809	
==>equal(interpreter, {{\@1}}, {{\@2}}) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143579	143849	
==>equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144507	144777	
==>equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145435	145705	
==>equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574806	575060	
==>s_ParrotClass, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575610	575864	
==>s_ParrotClass, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2121	2219	
==>" find . \".\n\n".
		"--plus-misses creates a second section, with the heads of any\n".
		"files wh <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	11630	11772	
==>t' => 7
		}
	},
	{#State 3
		ACTIONS => {
			'' => 18
		}
	},
	{#State 4
		DEFAULT => -45
	},
	{#State 5
		DEFAULT => -15,
		GOTOS <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2802	2922	
==>mit("  $temp = $value");
      $args[$i] = $temp;
    }
    else {
      $args[$i] = $args[$i]->compile($compiler);
    } <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2502	2622	
==>mit("  $temp = $value");
      $args[$i] = $temp;
    }
    else {
      $args[$i] = $args[$i]->compile($compiler);
    } <==
3	/Users/nnunley/parrot/tools/dev/pbc_header.pl	792	895	
==>mpat_file = 'PBC_COMPAT';
    open IN, $compat_file or die "Can't read $compat_file";
    my @lines = <I <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	34484	34583	
==>sub STORE_SLICE_plus_1 {
    return Store_Slice(@_, 1);
}
sub STORE_SLICE_plus_2 {
    return Store_ <==
3	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	722	817	
==>mpat_file = 'PBC_COMPAT';
open IN, $compat_file or die "Can't read $compat_file";
my @lines = <I <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022621	1022892	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodelocaltime" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023470	1023741	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodelocaltime" <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54469	54584	
==>\x{'.sprintf("%x", ord($1)).'}'>eg;
      } else {
        # We're in some crazy non-ASCII world!
        s<([^abcde <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573084	573316	
==>ter, enum_class_ParrotClass, name);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573994	574226	
==>ter, enum_class_ParrotClass, name);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3052	3148	
==>sed in this sub
	@saves=();
	foreach my $var (keys %{$code{$seg}->{declarations}}) {
		if (exists <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	11547	11684	
==>code.
            my $out_f = per_test('.out', $test_no);

            # Name of the file with test code.
            # This depends on wh <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29084	29202	
==>s/}/\\}/g;
	$desc=~s/{/\\{/g;

	bless 
	{
		"pattern"     => $pattern,
		"lookahead"   => $_[2],
		"line"        => $_[ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31188	31300	
==>s/}/\\}/g;
	$desc=~s/{/\\{/g;

	bless 
	{
		"pattern"   => $pattern,
		"lookahead" => $_[2],
		"line"      => $_[ <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1336	1447	
==>sible for the consequences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $self->se <==
3	/Users/nnunley/parrot/config/inter/make.pm	1157	1268	
==>sible for the consequences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $self->se <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1333	1444	
==>sible for the consequences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $self->se <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64766	64877	
==>interp->code = interpreter->code;\n  runops(new_interp, REL_PC + {{\@2}});\n  {{+=3}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65717	65828	
==>interp->code = interpreter->code;\n  runops(new_interp, REL_PC + {{\@2}});\n  {{+=3}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717251	717361	
==>s(interpreter, io, \"\\n\");\n  PIO_softspace(interpreter, io, 0);\n  {{+=1}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123830	123921	
==>"#line 257 \"src/ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124704	124795	
==>"#line 257 \"src/ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125578	125669	
==>"#line 257 \"src/ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	2799	2925	
==>(@args) {
    my ($arg_type, $arg_name) = @$arg;

    $handler->start_element({ Name => 'arg', Attributes => { name => $arg_nam <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	90	199	
==>my ($proto, %opts) = @_;
    my $self = bless \%opts, (ref($proto) || $proto);
    $self->init();
    return $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	300	409	
==>my ($proto, %opts) = @_;
    my $self = bless \%opts, (ref($proto) || $proto);
    $self->init();
    return $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	14	107	
==>ckage Pod::Simple::DumpAsText;
$VERSION = '2.02';
use Pod::Simple ();
BEGIN {@ISA = ('Pod::Sim <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159378	159497	
==>e 176 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160275	160394	
==>e 176 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161172	161291	
==>e 176 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369451	369541	
==>Y" => "#line 341 \"src/ops/io.ops\"\n  {{\@1}} = PIO_reads(interpreter, {{\@2}}, (size_t){{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	370336	370426	
==>Y" => "#line 341 \"src/ops/io.ops\"\n  {{\@1}} = PIO_reads(interpreter, {{\@2}}, (size_t){{ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	731	837	
==>yte'";
    }
    return "re_match P0, ".ord($byte).$comment;
}

sub output_classmatch {
    my ($self, $cla <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584400	584488	
==>ne 303 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585475	585563	
==>ne 303 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71425	71663	
==>ne",
                  "CODE" => 95,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 1150 \"src/ops/core.ops\"\n\n  {{\@1 <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	3270	3423	
==>Op {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = fi <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	3484	3637	
==>Op {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = fi <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	27478	27590	
==>>{name};
    if ($self->can($method)) {
        $desc = $self->$method($op, @{ $op->{args} });
        return ($b <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	202	300	
==>UG = \&Pod::Simple::DEBUG unless defined &DEBUG;
}

$ATTR_PAD = "\n" unless defined $ATTR_PAD;
 # D <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398777	399182	
==>"ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 462,
                  "ARGS" => [
                              "p",
                              "ic",
                              "i <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	7380	7500	
==>->{symbol} $op->{op} $op->{arg2}->{symbol} goto $op->{result}->{symbol}\n";
        }
        else {
            print <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	7819	7939	
==>->{symbol} $op->{op} $op->{arg2}->{symbol} goto $op->{result}->{symbol}\n";
        }
        else {
            print <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	13893	14028	
==>}};
            push @todo, $parent;
            push @{ $class->{parents} }, $parent;
        }
    }
}

=head2 dump_1_pmc($file);

Ret <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	563	667	
==>/;
	print;
	exit 1;
};

getopts('d', \%options);
$debug=1 if $options{d};

if (@ARGV) {
	open(D, $ARGV[0] <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	12852	12951	
==>%'>).

With one or two arguments, the first argument is a key specifying
one element of the hash; th <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	34255	34402	
==>p,
  'exact?'           => \&_op_exact_p,
  'inexact?'         => \&_op_inexact_p,
  '='                => \&_op_eq,
  '<'                => \&_op_l <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	336	441	
==>ount );
}

sub get_test_prog {
    my $self = shift;
    my ( $path_to_parrot, $path_to_language, $count ) <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	354	459	
==>ount );
}

sub get_test_prog {
    my $self = shift;
    my ( $path_to_parrot, $path_to_language, $count ) <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27513	27616	
==>name, $prefix)=@_;		
	my @params;
	while(feedme()) {
		last if ($type[CURR] eq "STMT");
		last if ($type <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824453	824543	
==>\");\n  if (entry->entry_type != STACK_ENTRY_STRING) {\n    internal_exception(ERROR_BAD_ST <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825524	825614	
==>\");\n  if (entry->entry_type != STACK_ENTRY_STRING) {\n    internal_exception(ERROR_BAD_ST <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	882	1010	
==>{
    my ($n) = @_;
    return "start $n";
}

sub output_end {
    my ($n) = @_;
    return "end $n";
}

sub output_fail {
    re <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	7308	7416	
==>e_name) = @_;

    my $pf = Parrot::PackFile->new;
    $pf->unpack_file($file_name)
      or die "Unable to u <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12838	12942	
==>ocs file. Once we have that all we need is the relative
    # path from the current directory to the file <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	362	457	
==>s.

Calculates a value for M ops/s (million operations per second) using
integer arithmetic.

Pr <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	358	453	
==>s.

Calculates a value for M ops/s (million operations per second) using
integer arithmetic.

Pr <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10737	10864	
==>rl($section);
        # Turn char 1234 into "(1234)"
        $section = '_' unless length $section;
    }
    
    foreach my $i <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4114	4232	
==>rl($section);
     # Turn char 1234 into "(1234)"
    $section = '_' unless length $section;
  }
  
  

  foreach my $i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	321	412	
==>ckage Jako::Construct::Expression::Value::Literal;

use Carp;

use base qw(Jako::Construct:: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	487	589	
==>$op, $right) = @_;

  confess "Block is not defined!" unless defined $block;
  confess "Left is not def <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	499	601	
==>$op, $right) = @_;

  confess "Block is not defined!" unless defined $block;
  confess "Left is not def <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	6765	6866	
==>n a
# now-abandoned match. I suppose it should restore $n to its previous
# value, but I'm not going t <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2507	2616	
==>lm -L/opt/local/lib  -licuuc -licudata -lpthread -lm';
        $extraLibs =~ s/blib/..\\blib/g;
        $extra <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2816	2925	
==>lm -L/opt/local/lib  -licuuc -licudata -lpthread -lm';
        $extraLibs =~ s/blib/..\\blib/g;
        $extra <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2611	2720	
==>lm -L/opt/local/lib  -licuuc -licudata -lpthread -lm';
        $extraLibs =~ s/blib/..\\blib/g;
        $extra <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835777	835860	
==>>user_stack, string_copy(interpreter, {{\@1}}), STACK_ENTRY_STRING, STACK_CLEANUP_NU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836530	836613	
==>>user_stack, string_copy(interpreter, {{\@1}}), STACK_ENTRY_STRING, STACK_CLEANUP_NU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126506	126608	
==>BODY" => "#line 271 \"src/ops/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const IN <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127641	127743	
==>BODY" => "#line 271 \"src/ops/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const IN <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128776	128878	
==>BODY" => "#line 271 \"src/ops/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const IN <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3240	3336	
==>int me"
end sub
function foo$
	foo$="Right one"
	exit function
	foo$="Wrong one"
end function
cal <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17207	17303	
==>int me"
end sub
function foo$
	foo$="Right one"
	exit function
	foo$="Wrong one"
end function
cal <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	11480	11576	
==>the second pass compiles any other content. This is how we collect all the
non-sub stuff into the <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1379	1471	
==>Wdisabled-optimization -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1424	1516	
==>Wdisabled-optimization -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1428	1520	
==>Wdisabled-optimization -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838077	838317	
==>FLOAT);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restor <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353640	353735	
==>t s = {{\@1}};\n  if (s && string_length(interpreter, s)) {\n    PIO_putps(interpreter, PIO_STDO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354385	354480	
==>t s = {{\@1}};\n  if (s && string_length(interpreter, s)) {\n    PIO_putps(interpreter, PIO_STDO <==
3	/Users/nnunley/parrot/examples/benchmarks/oo5.pl	182	304	
==>t : shift;
    return bless [ 10, 20 ], $self;
}

sub i {
    my $self = shift;
    if (@_) { $self->[0] = shift } else { $ <==
3	/Users/nnunley/parrot/examples/benchmarks/oo6.pl	174	296	
==>t : shift;
    return bless [ 10, 20 ], $self;
}

sub i {
    my $self = shift;
    if (@_) { $self->[0] = shift } else { $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	39627	39748	
==>warning eventually?)
        # Note that it deliberately won't work on L<...|Foo Bar>
      }


      # Now make up the li <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35870	35971	
==>mplements
{

    my ($self, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31240	31340	
==>mplements
{
    my ($self, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39860	39960	
==>mplements
{
    my ($self, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, <==
3	/Users/nnunley/parrot/config/auto/format.pm	986	1112	
==>e.pl:  Can't find a printf-style format specifier for type \"$iv\"\n";
    }

    $nvsize = $floatsize;
    if ($nv eq "double" <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10718	10827	
==>f->unicode_escape_url($section);
        # Turn char 1234 into "(1234)"
        $section = '_' unless length $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4095	4197	
==>f->unicode_escape_url($section);
     # Turn char 1234 into "(1234)"
    $section = '_' unless length $ <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	933	1184	
==>nt  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, I1
                              #
print "Estimated ops: $I5\n"; # print  "Es <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	933	1184	
==>nt  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, I1
                              #
print "Estimated ops: $I5\n"; # print  "Es <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762877	763127	
==>E" => "inline",
                  "CODE" => 861,
                  "ARGS" => [
                              "i",
                              "n"
                            ],
                  "BODY" => "#line 320 \"src/ops/set.ops\"\n    if ({{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90831	91133	
==>.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91685	91987	
==>.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92539	92841	
==>.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	26982	27101	
==>acketed,
					\&extract_quotelike,
					\&some_other_extractor_sub,
					qr/[xyz]*/,
					'literal',
				      ]);

# Cr <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1210	1306	
==>o SRM_LMKILL$suffix
SRM_LMKILL_EXIT$suffix:
PIR
    $pir =~ s/\$suffix/$suffix/g;
    return $pir <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	736	825	
==>ne PREG(i) REG_PMC(i)
#define SREG(i) REG_STR(i)
#define CONST(i) interpreter->code->const <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409303	409605	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "recv",
                  "FLAGS" => ":base_network", <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4950	5070	
==>y $source (@sources) {
        return 1 if modtime($source) > $target_mod;
    }

    return 0;
}

sub generate_c {
    m <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	3188	3299	
==>(@new_steps) {
        $self->add_step($step);
    }

    return $self;
}

=item * C<runsteps()>

Sequentially e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453110	453334	
==>230 \"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453849	454073	
==>230 \"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	27357	27467	
==>s) = @_;
    return ($back, @ops) unless $self->{DEBUG};

    my $method = "describe_" . $op->{name};
    my $d <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543524	543904	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lcm",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544859	545239	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lcm",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546195	546575	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lcm",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59325	59513	
==>s/core.ops\"\n  PARROT_WARNINGS_on(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59973	60161	
==>s/core.ops\"\n  PARROT_WARNINGS_on(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12496	12595	
==>items"}[0]->issubrule();
		return $subrule if defined $subrule;
	}

	return ();
}

sub checkleftmost <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	13792	13894	
==>e() ];
}

sub Regex::Ops::Tree::match::reftree {
    my $op = shift;
    return annotated($op, "match(" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53311	53408	
==>,   PARROT_GC_DEBUG_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_GC_DEBUG_FLA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54067	54164	
==>,   PARROT_GC_DEBUG_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_GC_DEBUG_FLA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332803	333133	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334081	334411	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335359	335689	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2912	3014	
==>lf->output_label_use($dest);
}

sub output_eq {
    my ($self, $val1, $val2, $dest) = @_;
    $self->ou <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	6499	6587	
==>ser32 -lgdi32 -lwinspool -lcomdlg32 -ladvapi32 -lshell32 -lole32 -loleaut32 -lnetapi32 -l <==
3	/Users/nnunley/parrot/config/init/hints/msys.pm	390	478	
==>ser32 -lgdi32 -lwinspool -lcomdlg32 -ladvapi32 -lshell32 -lole32 -loleaut32 -lnetapi32 -l <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750451	750672	
==>_string_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756760	756981	
==>_string_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757550	757771	
==>_string_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4488	4580	
==>unless defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "Extra <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4995	5087	
==>unless defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "Extra <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10397	10489	
==>unless defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "Extra <==
3	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	711	913	
==>d" if ! /^INPUT:/;

         # Gather input, look for OUTPUT:
         $input = q{};
         undef $output;
         while (<$spec_fh>) {
             $output = q{}, last if /^OUTPUT:/;
             $in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168382	168548	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 204 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169324	169490	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 204 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(int <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3130	3227	
==>Extra arguments!" if @_;

  die "Redefinition of symbol '$name', which was defined earlier in this <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432457	432546	
==>{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433472	433561	
==>{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27066	27157	
==>=$englishname;

	$f="_USERFUNC_$funcname";
	$f=changename($f);
	$f=~s/\$/_string/g; $f=~tr/a <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27339	27430	
==>=$englishname;

	$f="_USERFUNC_$funcname";
	$f=changename($f);
	$f=~s/\$/_string/g; $f=~tr/a <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	17	105	
==>004, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Docs/Section/IMCC.pm 20333 2006-06-21 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7270	7390	
==>ata') {
        my $next = $self->get_token;
        next unless defined $next;
        unless( $next->type eq 'text' ) { <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9515	9635	
==>ata') {
        my $next = $self->get_token;
        next unless defined $next;
        unless( $next->type eq 'text' ) { <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	42614	42706	
==>, since
their performance is typically twice as good as the more general-purpose
C<extract_ta <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	203	296	
==>t::Test;

@EXPORT = ( qw(output_is output_like output_isnt), @Test::More::EXPORT );
@ISA = qw( <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	120	213	
==>t::Test;

@EXPORT = ( qw(output_is output_like output_isnt), @Test::More::EXPORT );
@ISA = qw( <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3058	3151	
==>eturn "interpreter->resume_offset = $addr; interpreter->resume_flag = 1";
}

=back

=head1 SEE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147924	148212	
==>,
                  "TYPE" => "function",
                  "CODE" => 180,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 98 \"src/ops <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	3485	3619	
==>'reg'      , 174,
 'macr'     , 175,
 'deg'      , 176,
 'plusmn'   , 177,
 'sup2'     , 178,
 'sup3'     , 179,
 'acute'    , 180,
 'm <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	3500	3586	
==>->SYNTAX_ERROR("Can't do arithmetic on PMCs") if UNIVERSAL::isa($right_type, 'Jako::Con <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	35915	36023	
==>or the "|" -- only in CHILDREN (not all underlings!)
      # Like L<I like the strictness|strict>
      DEBUG <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	27	113	
==>erl Foundation.
# $Id: /parrot/lib/Parrot/Docs/Section.pm 20333 2006-06-21T18:44:31.111 <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16071	16256	
==>sub esc 
{
    if ( defined wantarray ) 
    {
        if ( wantarray ) 
        {
            @_ = splice @_; # break aliasing
        } 
        else 
        {
            my $x = shi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9765	9889	
==>sub esc {
  if(defined wantarray) {
    if(wantarray) {
      @_ = splice @_; # break aliasing
    } else {
      my $x = shi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834312	834399	
==>preter->ctx)->user_stack, {{\@1}}, STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835038	835125	
==>preter->ctx)->user_stack, {{\@1}}, STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	2341	2423	
==>xpression::Value::Identifier->compile2($compiler, $self->block, $ident, $sym->kind, <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16845	16984	
==>'/eg;
        # Leave out "- so that "--" won't make it thru in X-generated comments
        #  with text in them.
        
        # Yes, s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10289	10408	
==>'/eg;
    # Leave out "- so that "--" won't make it thru in X-generated comments
    #  with text in them.

    # Yes, s <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	49192	49292	
==>20 literals are found in the input, or
under-E<32> E codes are found in the tree. And ditto \x7f-\x9f <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19297	19391	
==>e->{children}}) {
    my $temp_1 = $self->_generate($node->{children}[$_]);
    $self->_add_ins <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19785	19879	
==>e->{children}}) {
    my $temp_1 = $self->_generate($node->{children}[$_]);
    $self->_add_ins <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20274	20368	
==>e->{children}}) {
    my $temp_1 = $self->_generate($node->{children}[$_]);
    $self->_add_ins <==
3	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	422	549	
==>ray();
    }

    my @arr1;
    foreach (1..20) {
	$arr1[$_] = buildarray();
    }

    my @arr2;
    foreach (1..20) {
	$arr2[$ <==
3	/Users/nnunley/parrot/examples/benchmarks/stress.pl	384	493	
==>ray();
}

my @arr1;
foreach (1..20) {
    $arr1[$_] = buildarray();
}

my @arr2;
foreach (1..20) {
    $arr2[$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464243	464541	
==>cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 532 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462250	462547	
==>cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 53 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463246	463543	
==>cmod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 53 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8230	8363	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9345	9478	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr3.pm	628	745	
==>{parrot} languages/${pir_fn}" );
}
 

sub skip_why {
    my $self = shift;
    my ( $options ) = @_;

    if ( $option <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30018	30124	
==>SP;
SUB_DISPATCH:
	I1= -1
SUBDISP
	foreach (keys %subs) {
		print FUNC qq{\teq S0, "$_", SUB_$_\n};
	}
	pri <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	12857	12987	
==>IONS => {
			"?" => 20
		},
		DEFAULT => -21,
		GOTOS => {
			'@1-1' => 21
		}
	},
	{#State 11
		ACTIONS => {
			"?" => 23,
			'CHA <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	757	858	
==>,
  'VerbatimB'  => "<b>",
  '/VerbatimB' => "</b>",
  'VerbatimI'  => "<i>",
  '/VerbatimI' => "</i>" <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	37754	37850	
==>g tag 
C<"{{DATA}}">, then the constructed closing tag would be C<"{{/DATA}}">.

=item 4.

A stri <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31066	31196	
==>oop,
    );
    push @opcodes, new LabelOp( $parser,
        'arg1' => $lbl_end,
    );
    return \@opcodes;
}

sub BuildF <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	37583	37678	
==>pening tag that was matched (I<not> the pattern
that matched the tag). For example, if the openi <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9507	9601	
==>e eq 'Verbatim' or $tagname eq 'X';
}

=item C<process_text_token($token)>

Processes the speci <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3826	3933	
==>rent module has no fnlib property either!")
        unless $module_props{fnlib};

      $fnlib = $module_pro <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6490	6597	
==>rent module has no fnlib property either!")
        unless $module_props{fnlib};

      $fnlib = $module_pro <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3711	3811	
==>ment. C<$0> is the opcode itself.

=back

Note that, for ease of parsing, if the argument to one of t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	371750	372043	
==>n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "peek",
                  "FLAG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	617208	617317	
==>ic = (Parrot_MIC *) cur_opcode[1];\n    left = {{\@2}};\n    right = {{\@3}};\n    lru = &mic->lru;\n    lr_ty <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	477	573	
==>E04', 'FE05' # compare
);

# Grab parameters.
my ($rules_file, $output_file, $srm_module);
GetOpt <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	23418	23569	
==>elet->[$i][0], 
          ;
          
          #$nugget = ;
          splice @$treelet, $i, 1, [pop(@dynasty), {}, $treelet->[$i]];
            # rela <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	745	843	
==>@todo)>

Runs the target string against the Perl 6 pattern, passing the test
if they match.  Note t <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2843	2941	
==>@todo)>

Runs the target string against the Perl 6 pattern, passing the test
if they match.  Note t <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	63614	63707	
==>was specified). It failed to generate the closing tag, almost
certainly because the opening ta <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	5545	5636	
==>('close-brace');   }
sub require_close_bracket { return shift->require('close-bracket'); }
s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336928	337193	
==>E" => "getfd",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035514	1035609	
==>Parrot_find_pad(interpreter, lex_name, ctx);\n    PMC *result = NULL;\n\n    if (!PMC_IS_NULL(le <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036678	1036773	
==>Parrot_find_pad(interpreter, lex_name, ctx);\n    PMC *result = NULL;\n\n    if (!PMC_IS_NULL(le <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026520	1026664	
==>/ops/sys.ops\"\n   {{\@1}} = sysinfo_i(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1027277	1027421	
==>/ops/sys.ops\"\n   {{\@1}} = sysinfo_i(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1128	1236	
==>nt      = scalar(File::Spec->splitdir($path_to_parrot));
        my $path_to_language;
        if ($dir_count <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1618	1721	
==>nt = scalar(File::Spec->splitdir($path_to_parrot));
        my $path_to_language;
        if ($dir_count <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1037	1138	
==>nvert_relop($op); # Invert the test, since we jump *unless* the condition is true
  }
  elsif ($kind e <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	13	103	
==>Copyright (C) 2001-2006, The Perl Foundation.
# $Id: /parrot/tools/build/jit2c.pl 20350 200 <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	4372	4496	
==>el =~ s/\./_/g;
            $pir .= "if method_name == \"$_->{'method'}\" goto $label\n";
        }
        $pir .= "goto FAI <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	975	1081	
==>w_section
{
    my $self = shift;
    
    return Parrot::Docs::Section->new(@_);
}

=item C<new($name, $in <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	31800	31917	
==>_whoa {
    my($check, $desc) = @_;
    if( $check ) {
        die <<WHOA;
WHOA!  $desc
This should never happen!  Ple <==
3	/Users/nnunley/parrot/lib/Test/More.pm	30884	31001	
==>_whoa {
    my($check, $desc) = @_;
    if( $check ) {
        die <<WHOA;
WHOA!  $desc
This should never happen!  Ple <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	33497	33607	
==>hatever
  'null?'    => \&_op_null_p,
  'list?'    => \&_op_list_p,
  'list'     => \&_op_list,
  'length'   => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089005	1089309	
==>erimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089953	1090257	
==>erimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice", <==
3	/Users/nnunley/parrot/config/auto/jit.pm	1594	1712	
==>in32';
    } elsif ($osname =~ /cygwin/i || $cpuarch =~ /cygwin/i) {
        $cpuarch = 'i386';
        $osname  = 'cyg <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	1386	1480	
==>he steps someone should follow when they have to prepare a new version for release.', 'RELEASE_ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10965	11060	
==>map sprintf('%%%02X',$_), unpack 'C*', $1/eg;
        $it =~ s/([^\._abcdefghijklmnopqrstuvwxyzA <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	2451	2546	
==>[I<x>]
>>.

C<$labels> is a reference to an array of boolean values indicating
whether each argu <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4316	4409	
==>map sprintf('%%%02X',$_), unpack 'C*', $1/eg;
      $it =~ s/([^\._abcdefghijklmnopqrstuvwxyzA <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	10049	10159	
==>-$parapos,	# REMAINDER
	       );
	
matched:
	$endpos = pos($$textref);
	return (
		$startpos,    $opentagpos-$ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	4168	4264	
==>PRESSION();
		$false=qq{""} if $type eq "S";
		push @{$code{$seg}->{code}},<<EXPR;
@code	eq $resu <==
3	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1918	2050	
==>a::opcode);

package CallMethOp;
use base qw(Lua::opcode);

package LabelOp;
use base qw(Lua::opcode);

package BranchOp;
us <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	14674	14796	
==>0,
		GOTOS => {
			'expr' => 28,
			'charclass' => 12,
			'range' => 25
		}
	},
	{#State 29
		DEFAULT => -8
	},
	{#State 30 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	708646	708916	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unregister",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83623	83714	
==>=> "#line 1201 \"src/ops/core.ops\"\n  PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84529	84620	
==>=> "#line 1201 \"src/ops/core.ops\"\n  PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(i <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7049	7197	
==>xt;
            };

            #reduce
            my($lhs,$len,$code,@sempar,$semval);
            ($lhs,$len,$code)=@{$$rules[-$act]};

#DB <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6722	6863	
==>xt;
            };

            #reduce
            my($lhs,$len,$code,@sempar,$semval);
            ($lhs,$len,$code)=@{$$rules[-$act]};

#DB <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10547	10664	
==>( defined $section and length($section .= '') ) 
    {
        $section =~ tr/ /_/;
        $section =~ tr/\x00-\x1F\x <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3943	4045	
==>(defined $section and length($section .= '')) {
    $section =~ tr/ /_/;
    $section =~ tr/\x00-\x1F\x <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	941	1052	
==>= shift || '';
    my $resources = shift || '';
    
    <<"HEADER";
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 <==
3	/Users/nnunley/parrot/lib/Test/More.pm	14324	14423	
==>st_name);

Sometimes you just want to say that the tests have passed.  Usually
the case is you've go <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	6822	6956	
==>, 8743,
 'or'       , 8744,
 'cap'      , 8745,
 'cup'      , 8746,
 'int'      , 8747,
 'there4'   , 8756,
 'sim'      , 8764,
 'cong' <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7885	7994	
==>$self = shift;

	return '' unless $self->contains_pod;
	
	my @lines = $self->read;
	
	while ( @lines )
	{
		my <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	52415	52519	
==>::Directive(
					      "($1) ? undef : 1", $lookahead,$line,"<reject:$code>");
				$prod and $prod->addi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605354	605528	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606144	606318	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" = <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9592	9701	
==>lf->{class};
	    $cout .= <<"EOC";
#include "$name.str"
EOC
    }
    "$cout\n";
}


=item C<full_arguments($ <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1433	1528	
==>oaded in a /first-come-first-served/ basis, so just be
sure (as with perl5 lib.pm) to use this m <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	4247	4418	
==>' )
    {
        $self->unget_token($next);
        return;
    }
    
    my $text = $next->text;
                    
    if ( $text =~ /^Parrot::/o )
    {
        # TO <==
3	/Users/nnunley/parrot/tools/build/vtable_extend.pl	114	216	
==>.tbl' );

my ($funcs, $protos) = vtbl_embed( $vtable );

my $header = <<'EOH';
/* ex: set ro:
** !!!!!! <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4456	4554	
==>the key is set via C<set> or C<add> then all callbacks that
are defined will be called.  Triggers a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	675975	676082	
==>],
                  "BODY" => "#line 473 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_integer(interpre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676755	676862	
==>],
                  "BODY" => "#line 473 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_integer(interpre <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	4643	4745	
==>ce_arrayref'}}), " items left in it.\n";

      DEBUG > 3 and print "  Fetching ", Pod::Simple::MANY_LI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714733	714837	
==>" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(interpreter, io, 1);\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715656	715760	
==>" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(interpreter, io, 1);\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716601	716705	
==>" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(interpreter, io, 1);\n <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	8708	8827	
==>e STDERR             or die "Can't close    stderr" if $err;

    open  STDOUT, ">&OLDOUT" or die "Can't restore  stdout <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8240	8346	
==>e STDERR or die "Can't close    stderr" if $err;

    open STDOUT, ">&OLDOUT" or die "Can't restore  stdout <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	35795	35891	
==>rule->{'class'} eq 'calling') {
		# Init destination types array and params array and set meta-va <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	15868	15991	
==>pected, $desc );
            $builder->diag("'$cmd' failed with exit code $exit_code")
                  if $exit_code and n <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	18419	18542	
==>pected, $desc );
            $builder->diag("'$cmd' failed with exit code $exit_code")
                  if $exit_code and n <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	25462	25566	
==>pected, $desc);
            $builder->diag("'$cmd' failed with exit code $exit_code") if $exit_code and n <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	5843	5962	
==>irname($dir);
	    }
	    foreach (@dirs) {
		mkdir($_, 0777) or die "mkdir $_: $!\n";
	    }
	}
    }
}
print("Installi <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1721	1823	
==>ment {
    my ($self, $distance, $failLabel) = @_;
    die "invalid distance" if $distance =~ /[^\d\-]/ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1474	1576	
==>ment {
    my ($self, $distance, $failLabel) = @_;
    die "invalid distance" if $distance =~ /[^\d\-]/ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4341	4449	
==>->name } });
        $handler->characters({ Data => $string });
        $handler->end_element({ Name => 'lite <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4691	4795	
==>->name } });
      $handler->characters({ Data => $string });
      $handler->end_element({ Name => 'lite <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365931	366136	
==>=> [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 303 \"src/ops/io.ops\"\n  if ({{\@2}} && {{\@1}}) {\n    PIO_putp <==
3	/Users/nnunley/parrot/Configure.pl	9379	9493	
==>cptr
    auto::cgoto
    auto::inline
    auto::gc
    auto::memalign
    auto::signal
    auto::socklen_t
    auto <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	8394	8493	
==>ow(\$show, $Init,   $init  ) if $show;
		want_show(\$show, $Uninit, $uninit) if $show;
		want_show(\ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	712	811	
==>e TYPE tells the return type of the block.

The PREFIX tells the prefix that will be used for block- <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	29985	30082	
==>Perl
# Functions|perlfunc>", the name -- also sometimes called the page -- is
# "perlfunc". In "L< <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	6539	6643	
==>t ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically by tools/bu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033457	1033550	
==>Lexical '%Ss' not found\", lex_name);\n    }\n    VTABLE_set_pmc_keyed_str(interpreter, lex_pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034555	1034648	
==>Lexical '%Ss' not found\", lex_name);\n    }\n    VTABLE_set_pmc_keyed_str(interpreter, lex_pa <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	37297	37411	
==>\?//s) {
        if(! @$curr_open) {  # usual case
          DEBUG and print "Treating $para_type paragraph as such <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	4194	4311	
==>1
  loop_begin_1:
    if $I100 > $I102 goto loop_done_1 
    $P100[$I101] = $I100
    inc $I101
    inc $I100
    goto <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14012	14112	
==>d
	pointer as first
	number as integer
end type
function mine (a, b, q as first)
	q.foo=103
	mine=100 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27200	27299	
==>, "SUB");
}

sub parse_function {
	feedme;
	my $f;
	$funcname=$syms[CURR];
	my $englishname=english_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	338752	338993	
==>(interpreter);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	339398	339639	
==>(interpreter);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
3	/Users/nnunley/parrot/config/auto/readline.pm	1625	1733	
==>nfig/auto/readline/readline.in');
    eval { cc_build(); };
    my $has_readline = 0;
    if (!$@) {
	$has_re <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	5990	6103	
==>ntinue_2d:
    inc pos 
    goto loop_2d
  loop_end_2d:
   .return(result)
 
  print_value:
    if value >= 0.0 go <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70843	70932	
==>BODY" => "#line 1150 \"src/ops/core.ops\"\n\n  {{\@1}} = Parrot_load_lib(interpreter, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71612	71701	
==>BODY" => "#line 1150 \"src/ops/core.ops\"\n\n  {{\@1}} = Parrot_load_lib(interpreter, {{\@ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	30857	30984	
==>}

    return $ok;
}


sub _whoa {
    my($check, $desc) = @_;
    if( $check ) {
        die <<WHOA;
WHOA!  $desc
This should n <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	17546	17667	
==>" => "\\~",        # Latin-1 non-breaking space
  "\xAD" => "\\-",        # Latin-1 soft (optional) hyphen

  # CRAZY HACK <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10916	11027	
==>If there is a return type, need to supply a ${DEST0}.
${ITEMP0} = ${PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8102	8213	
==>If there is a return type, need to supply a ${DEST0}.
${ITEMP0} = ${PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5764	5875	
==>If there is a return type, need to supply a ${DEST0}.
${ITEMP0} = ${PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	33853	33972	
==>ssv,
  'assoc'    => \&_op_assoc,

###
### Symbols
###

  'symbol?'        => \&_op_symbol_p,
  'symbol->string' => \&_o <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	1339	1454	
==>file (@files) {
        my $test = substr $file, 0, -3;
        # parrot's getopt dislikes filenames with - in them. <==
3	/Users/nnunley/parrot/config/init/defaults.pm	1592	1697	
==>U's guess, but is otherwise currently
        # unset.  Ultimately, it should be set to whatever ICU figur <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	1116	1222	
==>hift;
	my @contents = @_;
	
	# TODO - Groups should only contain items or paths.
	
	$self = $self->SUPER::n <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	909	1014	
==>$class;

  $block->push_content($self);

  return $self;
}

sub left  { return shift->{LEFT};  }
sub right <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	917	1022	
==>$class;

  $block->push_content($self);

  return $self;
}

sub left  { return shift->{LEFT};  }
sub right <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6091	6226	
==>s{$group} ||= {};
        foreach my $lib ( keys %libs ) {
            $group_libs{$group}->{lib} = 1;
        }
    }

    return (\%gr <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6302	6437	
==>s{$group} ||= {};
        foreach my $lib ( keys %libs ) {
            $group_libs{$group}->{lib} = 1;
        }
    }

    return (\%gr <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20109	20206	
==>ack, $back, $check, $next) =
      map { $self->genlabel("ngr_$_") } qw(rfail local_back back chec <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29102	29241	
==>89
		DEFAULT => -109
	},
	{#State 90
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"%" <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29134	29246	
==>rn"     => $pattern,
		"lookahead"   => $_[2],
		"line"        => $_[3],
		"description" => "'$desc'",
	}, $class <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31238	31344	
==>rn"   => $pattern,
		"lookahead" => $_[2],
		"line"      => $_[3],
		"description" => "'$desc'",
	}, $class <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5274	5368	
==>r_pop(@_));
}

=item C<expr_offset($offset)>

Implemented in subclasses to return the C code fo <==
3	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	511	604	
==>is is only done for development versions of Parrot, i.e. the
file F<DEVELOPING> exists. Releas <==
3	/Users/nnunley/parrot/lib/File/Which.pm	4232	4324	
==>xample, you might be searching for C<perl>,
it'll try C<perl.exe>, C<perl.bat>, etc.)

=head1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149103	149209	
==>],
                  "BODY" => "#line 105 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interprete <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150044	150150	
==>],
                  "BODY" => "#line 105 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interprete <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	387	500	
==>($tree) eq 'P6C::rx_beg') {
        return $self->convert($tree, $ctx);
    } else {
        return op('scan' => [ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32175	32276	
==>uction must use one of \${STACK0} or \${STOREREG} in rule " .
				"$rule->{'name'}\n";
		} elsif ("$ru <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	2607	2700	
==>macro descriptions, C<PC> and C<PC'> are the current
and next position within the Parrot code. <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	1679	1771	
==>-precomp  -pipe -Wdeclaration-after-statement -I/usr/local/include -I/opt/local/include -pipe <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1067	1159	
==>-precomp  -pipe -Wdeclaration-after-statement -I/usr/local/include -I/opt/local/include -pipe <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1071	1163	
==>-precomp  -pipe -Wdeclaration-after-statement -I/usr/local/include -I/opt/local/include -pipe <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557969	558062	
==>\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAILCALL;\n  interpreter->current_ob <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559353	559446	
==>\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAILCALL;\n  interpreter->current_ob <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560725	560818	
==>\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAILCALL;\n  interpreter->current_ob <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1562	1690	
==>og) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    if ($conf->options->get(' <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1576	1704	
==>og) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    if ($conf->options->get(' <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	56994	57093	
==>nly = $1;
				_parse("an error marker", $aftererror,$line);
				$item = new Parse::RecDescent::Error <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33987	34104	
==>type eq 'bullet') {
          my $item_type = $self->_get_item_type($para);
            # That kills the content of th <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	11234	11367	
==>CALS {
    my ($n, $c, $cmt) = @_;
    # TODO $cmt
    my $pad = temp('P');
    print <<EOC;
	peek_pad $pad      # ???
EOC
    push @s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2630	2726	
==>handler->start_element({ Name => 'cond', Attributes => { kind => $cond } });
    $handler->start_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3394	3490	
==>handler->start_element({ Name => 'cond', Attributes => { kind => $cond } });
    $handler->start_ <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	5762	5857	
==>ict;

package Parrot::OpLib::$package;

use vars qw(\$VERSION \$ops \$preamble);

\$VERSION = "$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186059	186334	
==>1}}, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186989	187264	
==>1}}, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187919	188194	
==>1}}, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841160	841425	
==>ME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 9 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841923	842188	
==>ME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 9 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	20015	20142	
==>e ) {
          $dont_ignore = '';
          delete $para->[1]{'target_matching'};
          DEBUG > 2 and print " But the leadi <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26400	26546	
==>_next,
        );
    }
    if ( defined $else ) {
        push @opcodes, @{$else};
    }
    push @opcodes, new LabelOp( $parser,
        ' <==
3	/Users/nnunley/parrot/config/gen/icu.pm	88	186	
==>006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/gen/icu.pm - ICU

=head1 DESCRIPTION

Confi <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	48688	48777	
==>like operations. That is, C<extract_codeblock>
is like a combination of C<"extract_bracket <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730706	730930	
==>124 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731442	731666	
==>124 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	3478	3571	
==>r argumentless ops, it's the same as C<name()>. For ops with
arguments, an underscore followed <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	39300	39413	
==>ion_name->[-1] =~ s/\"$//s;
      }

      # Turn L<Foo Bar> into L</Foo Bar>.
      if(!$section_name and !$link_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2966	3065	
==>}; }

sub is_global
{
  my $self = shift;

  return defined($self->block) && not(defined($self->bloc <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	1516	1609	
==>ck!"  if defined $block and not (ref $block and $block->isa("Jako::Construct::Block"));
  conf <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16441	16550	
==>->text;
      my $right = Jako::Construct::Expression::Value->new($block, $self->forth);

      $self->require <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17212	17321	
==>->text;
      my $right = Jako::Construct::Expression::Value->new($block, $self->forth);

      $self->require <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18017	18126	
==>->text;
      my $right = Jako::Construct::Expression::Value->new($block, $self->forth);

      $self->require <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9077	9188	
==>emicolon;
      }
      else {
        my $sub = Jako::Construct::Block::Sub->new($block, $type, $ident, { %prop <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	5672	5826	
==>ges/ook/Makefile',
        commentType                   => '#',
        replace_slashes               => 1
    );
    genfile(
        'config/gen/makefil <==
3	/Users/nnunley/parrot/languages/regex/test.pl	88	189	
==>river;
# use lib "$FindBin::Bin/../../lib";
# use Parrot::Config;
use strict;

# Running this with per <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	3500	3592	
==>'s the same as C<name()>. For ops with
arguments, an underscore followed by underscore-separa <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	420	517	
==>e);

use Config;
use Parrot::Configure::Step ':auto';

$description = 'Determining if your platfor <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	374	471	
==>e);

use Config;
use Parrot::Configure::Step ':auto';

$description = 'Determining if your platfor <==
3	/Users/nnunley/parrot/config/auto/readline.pm	381	478	
==>e);

use Config;
use Parrot::Configure::Step ':auto';

$description = 'Determining if your platfor <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4400	4502	
==>crement dtypes index.
inc ${ITEMP0}
PIR
		$pir =~ s/\$push_num/$push_num/g;
		$push_num++;
	}

	# Retur <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2816	2918	
==>crement dtypes index.
inc ${ITEMP0}
PIR
		$pir =~ s/\$push_num/$push_num/g;
		$push_num++;
	}

	# Retur <==
3	/Users/nnunley/parrot/lib/Test/More.pm	18176	18276	
==>>

   require_ok($module);
   require_ok($file);

Like use_ok(), except it requires the $module or $f <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	21603	21717	
==>rules];

        # Emit branch code.
        $pir .= "    if cur_ic >= 0x$r2[0]->{'code'} goto INS_BRANCH_$prefix$r <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	908	1003	
==>ken object.
For example, parsing a "=head1 ..." line will give you
a start-token with the tagnam <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1336	1431	
==>ken object.
For example, parsing a "=head1 ..." line will give you
a start-token with the tagnam <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4189	4296	
==>/parrot/feature.h
    # include/parrot/platform.h
    
    # runtime/parrot/include/* (all?)

    # lib/Parr <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3373	3476	
==>f)=shift;

    keys %{$self->{STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
}

sub YYLexer {
    my($se <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3203	3300	
==>f)=shift;

    keys %{$self->{STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
}

sub YYLexer {
    my($se <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735195	735422	
==>139 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735931	736158	
==>139 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	14064	14163	
==>mp, $incase)=($s->{jump}, $s->{incase});
	
	if ($syms[NEXT] eq "else") {
		feedme();
		print CODE "\ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	3324	3485	
==>pt}{library},
                              map { $_->{class} => $_ }
                              values %{$self->{pmcs}} );

    return $cout;
}

=item C<inclu <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	11195	11322	
==>h @stack, [$n, $c, $typ];
}
sub LOAD_LOCALS {
    my ($n, $c, $cmt) = @_;
    # TODO $cmt
    my $pad = temp('P');
    print <<E <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	584	696	
==>label_use($label);
}

sub output_match {
    my ($self, $byte) = @_;
    my $comment = '';
    if ($byte =~ /^[\w <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62312	62570	
==>"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 81,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 951 \"src/ops/core.ops <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	622920	623019	
==>ode_t *dest_pc;\n    void **dest_pred;\n    parrot_context_t *caller_ctx, *ctx;\n    parrot_cont_t c <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30495	30612	
==>entname = $self->{parentname};
    my $ret = gen_ret($method);
    my $cout = <<"EOC";
$decl {
EOC
    if ($meth eq 'm <==
3	/Users/nnunley/parrot/lib/Test/More.pm	18977	19088	
==>ric.
    # The rest is an alphanumeric or ::
    $module =~ s/\b::\b//g;
    $module =~ /^[a-zA-Z]\w*$/;
}

=bac <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641749	642050	
==>NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 717, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642636	642936	
==>NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 718 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643524	643823	
==>NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 71 <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	11595	11720	
==>' )
	    {
		_failmsg "Bad identifier after dereferencer", pos $$textref;
		pos $$textref = $startpos;
		return;
	    }
	}

	w <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3779	3885	
==>hen' } });
  }

  if ($name) {
    $handler->start_element({ Name => $kind, Attributes => { loop => $name } <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1926	2027	
==>t we've decided to actually declare the sub, we will place its
  # definition into the block at the to <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123297	123599	
==>UMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124170	124472	
==>UMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125044	125346	
==>UMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4220	4324	
==>Already loaded ?
		and	return;
	}
	my($fname)=__FILE__;
	my(@drv);
	open(DRV,"<$fname") or die "Repo <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4005	4104	
==>Already loaded ?
		and	return;
	}
	my($fname)=__FILE__;
	my(@drv);
	open(DRV,"<$fname") or die "Repo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	216	312	
==>nt/Call.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	20372	20494	
==>h @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new NewOp( $parser,
        ' <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21651	21773	
==>h @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new NewOp( $parser,
        ' <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	22794	22916	
==>h @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new NewOp( $parser,
        ' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15304	15421	
==>?ord($1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # return a single scalar
    ($x = ((@_ == 1) ? $_[0] <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16485	16602	
==>?ord($1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # return a single scalar
    ($x = ((@_ == 1) ? $_[0] <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	1500	1602	
==>n file suffix.

=item * Finish making this usable as a library.

=item * It would be nice to have a Par <==
3	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1493	1618	
==>st unsigned char* parrot_config,
                                 unsigned int parrot_config_size);


static const unsigned ch <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	36182	36306	
==>-1]->{pragma} ) {
            $returns[-1]->{pragma} = 'multi';
        }
    }
    push @opcodes, new ReturnDir( $parser <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	58231	58326	
==>a Friedl-style optimized regex that matches a string delimited
by any one of the characters in t <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	11947	12078	
==>m";
    };
    /d/ && do {
        push @{$temps_ref}, "double t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$t <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2969	3099	
==>],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P14', 'P16[0]'],
  ['',            'bsr', 'app <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	19780	19878	
==>_map{$c};
    my ($opcode, $rest) = ($code[$code_l]->[2],$code[$code_l]->[4]);
    my $targ = "pc_x <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720546	720828	
==>t_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 808,
                  "A <==
3	/Users/nnunley/parrot/lib/File/Which.pm	2702	2872	
==>like README.
                 and -e _)
                ) and !-d _)
            {                   # and finally, we don't want dirs to pass (as they are -x)

# print ST <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	224	324	
==>OPSIS

parrotbench.pl [options]

 Options:
   -b -benchmarks     use benchmarks matching regexes  (mu <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8161	8276	
==>) {
    if($] < 5.007  and  $number > 255) {
      $Name2character{$name} = $FAR_CHAR;
      # substitute for Unicod <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37890	37980	
==>f->{"lookahead"}?'1':'$_noactions')
		. ($self->{argcode} ? ", sub { return $self->{argcode <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34422	34511	
==>f->{"lookahead"}?'1':'$_noactions')
		. ($self->{argcode} ? ",sub { return $self->{argcode <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	195	306	
==>!');
    say 'hello, world!';
    CODE
    hello, world!
    OUTPUT

    perl6_stderr_like($code, qr/$expected/, <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21673	21780	
==>$curr_open->[-1][0] eq '=for' )
            ? ( " (Should be \"=end " . $curr_open->[-1][1]{'target'} . '")' <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	479	586	
==>B limit
  BASEDIR     => "/tmp/parrot_smokes/",
  BASEHTTPDIR => "/",
  BUCKET      => "bucket.dat",
  MAX_R <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5438	5571	
==>FH} "$_->{symbol}";
                if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                    print {$FH} " :slur <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6470	6603	
==>FH} "$_->{symbol}";
                if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                    print {$FH} " :slur <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	6491	6598	
==>ap("<$_> ", %{$token->attr_hash}), ")\n";

      if( ($tagname = $token->tagname) eq 'Verbatim'
          or <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	373201	373430	
==>}};\n\n  *s = NULL;\n  PIO_peek(interpreter, {{\@2}}, s);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1766	1878	
==>at ptest.pod
  
  =head1 PIE
  
  I like B<pie>!
  
  % perl -MPod::Simple::SimpleTree -MData::Dumper -e \
     " <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	1447	1548	
==>Block"
    if $class eq 'Jako::Construct::Block';

  confess "Bad block!"  if defined $block and not ( <==
3	/Users/nnunley/parrot/lib/Parrot/PMC.pm	974	1077	
==>ray => 43,
	MultiArray => 44,
	Hash => 45,
	OrderedHash => 46,
	TQueue => 47,
	ParrotClass => 48,
	Parro <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	4860	4962	
==>d prefix: /$pre/", $startpos;
		return;
	}

	$ldelpos = pos $$textref;

	unless ($$textref =~ m/\G($lde <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1854	1946	
==>ntation raises an exception indicating
that the core type is missing. See the C<Parrot_Run_co <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4862	4955	
==>self, $incexc, $failLabel) = @_;

    my $passLabel = $self->{state}->genlabel("pass_charclass <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4526	4619	
==>self, $incexc, $failLabel) = @_;

    my $passLabel = $self->{state}->genlabel("pass_charclass <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	73679	73770	
==>D) called\n"
		unless defined &$AUTOLOAD;
	my $retval = &{$AUTOLOAD}($_[0],$text,undef,undef <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569700	569998	
==>S" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 651,
                  "ARGS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420580	420873	
==>[
                              "i",
                              "p",
                              "ic",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	47207	47333	
==>,
  #            "!"
  #       ]
  
  my($self, $para, $start_line) = @_;
  my $treelet = ['~Top', {'start_line' => $start_line <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	7264	7364	
==>a C89 Hosted Implementation
# (not sure if I got this right- it came from a C99 reference, so some 99 <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	5905	5998	
==>LF(a,b,c)>

Same as above, but calls the current method.

=item C<OtherClass.SUPER(a,b,c)>

Ca <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1377	1462	
==>ent::Increment;
use Jako::Construct::Statement::LoopControl;
use Jako::Construct::Stat <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	513292	513513	
==>{{\@2}}->vtable->neg(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	2846	2948	
==>t_delimited (;$$$$)
{
	my $textref = defined $_[0] ? \$_[0] : \$_;
	my $wantarray = wantarray;
	my $del <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	131	230	
==>d  $

=head1 NAME

Parrot::Docs::Section::Docs - Docs documentation section

=head1 SYNOPSIS

	use P <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1054	1168	
==>le()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $left  = $self->left->value;
  my $right = $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	1062	1176	
==>le()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $left  = $self->left->value;
  my $right = $ <==
3	/Users/nnunley/parrot/tools/build/vtable_extend.pl	2393	2493	
==>nterpreter) will put the stack anchor back to
   the way it was, and should always be the last statem <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144226	144493	
==>nction",
                  "CODE" => 176,
                  "ARGS" => [
                              "sc",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 84 \"src/ops/cmp.ops\"\n <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1656	1767	
==>ey may contain spaces.
    $PATHQUOTE = '"';

    unless ($CC =~ /gcc/i) {
        $LIBPARROT = '/Users/nnunley/ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1660	1771	
==>ey may contain spaces.
    $PATHQUOTE = '"';

    unless ($CC =~ /gcc/i) {
        $LIBPARROT = '/Users/nnunley/ <==
3	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	63	149	
==>d: /parrot/tools/build/parrot_config_c.pl 20350 2006-06-25T03:57:27.771662Z petdance  $ <==
3	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	181	267	
==>d: /parrot/tools/build/parrot_config_c.pl 20350 2006-06-25T03:57:27.771662Z petdance  $ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2367	2460	
==>rn, $expected, $description, @todo)>

Runs the target string against the Perl 6 pattern, passi <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3801	3894	
==>rn, $expected, $description, @todo)>

Runs the target string against the Perl 6 pattern, passi <==
3	/Users/nnunley/parrot/config/init/headers.pm	136	227	
==>ad1 NAME

config/init/headers.pm - Nongenerated Headers

=head1 DESCRIPTION

Uses C<ExtUtils <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14691	14883	
==>onst loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	15378	15570	
==>onst loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	7370	7486	
==>$parser->_SingleQuoteStringLexer();

            s/^\[(=*)\[//
                and return $parser->_LongStringLexe <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	1753	1860	
==>md;
    my $exit_code = 0;
    my $pass = 0;

    my $executable = File::Spec->join($path_to_parrot,$self->{ <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	11394	11490	
==>ded by a C<'*'>.

The accessor method provided by C<struct> for an element depends
on the declare <==
3	/Users/nnunley/parrot/lib/Test/More.pm	23310	23404	
==>C<SKIP: BLOCK> except the
tests will be marked as failing but todo.  Test::Harness will
interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322711	323084	
==>core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 378,
                  "ARGS" => [
                              "i",
                              "nc"
                            ],
                  "BODY <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55438	55638	
==>GS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 864 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo(interpr <==
3	/Users/nnunley/parrot/config/auto/signal.pm	1214	1327	
==>data->set(has_sigaction => 'define');
        print " (sigaction)" if $verbose;
    }
    cc_clean();

    cc_gen( <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	12787	12882	
==>matches (`~~`) any `$!`
value with the `$expected` value.

- `dies_ok (Code &code, Str $desc?, B <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627189	627286	
==>CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n\n  /* Why?? If we're creati <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628333	628430	
==>CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n\n  /* Why?? If we're creati <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	990	1085	
==>pod_start = qw(head[1-6] over back item for begin end pod);
my $pod_start_rx = join '|', @pod_st <==
3	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	2110	2219	
==>ution_len}/ 

END_GRAMMAR

# Slurp in the frozen-state file
my $frozen;
{
  $/ = undef;
  $frozen = <>;
}
#pri <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9687	9787	
==>0})

# If it's a call to instantiate, need to knock off first arg.
if "${CURIC}" != "73" goto pre_cal <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7201	7301	
==>0})

# If it's a call to instantiate, need to knock off first arg.
if "${CURIC}" != "73" goto pre_cal <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2804	2909	
==>le with both pre/post version 3.13 we're normalizing the current
    # working dir to be '.'.
    return ( <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1404	1507	
==>ES');

sub new {
    my($class)=shift;
	my($errst,$nberr,$token,$value,$check,$dotpos);
    my($sel <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1358	1456	
==>ES');

sub new {
    my($class)=shift;
	my($errst,$nberr,$token,$value,$check,$dotpos);
    my($sel <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2958	3058	
==>lement({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
    $handler->start_element <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3632	3732	
==>lement({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
    $handler->start_element <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3722	3822	
==>lement({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
    $handler->start_element <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	7068	7195	
==>_stem;
    if (needs_build("$dest_stem$O", "$src_stem.c")) {
        run(compile_cmd("$dest_stem$O", "$src_stem.c"))
          o <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5362	5489	
==>_stem;
    if (needs_build("$dest_stem$O", "$src_stem.c")) {
        run(compile_cmd("$dest_stem$O", "$src_stem.c"))
          o <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7279	7406	
==>_stem;
    if (needs_build("$dest_stem$O", "$src_stem.c")) {
        run(compile_cmd("$dest_stem$O", "$src_stem.c"))
          o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731055	731428	
==>_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 820,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BOD <==
3	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1312	1428	
==>debug "error: " . $resp->content . "\n";
      exit 1;
    }
  } else {
    debug "error: " . $resp->status_line . "\ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	3713	3825	
==>p_reg {
    my ($self, $reg) = @_;
    return "restore $reg";
}

sub output_comment {
    my ($self, $string) = @ <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	6538	6640	
==>code - start_code) {

END_C


    foreach my $cur_blk (@blocks) {
	printf "case %d: PC_%d: {\n", $cur_b <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	7169	7269	
==>oup_iback");
    my $back = $self->genlabel("group_back");
    my $next = $self->genlabel("group_next <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11630	11735	
==>length $out;
    
    return $out;  
}

=item C<resolve_pod_page_link($to, $section)>

Resolves the POD li <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1431	1524	
==>$class)=shift;
	my($errst,$nberr,$token,$value,$check,$dotpos);
    my($self)={ ERROR => \&_ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1382	1473	
==>$class)=shift;
	my($errst,$nberr,$token,$value,$check,$dotpos);
    my($self)={ ERROR => \&_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131410	131733	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":bas <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132265	132588	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":bas <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	9504	9609	
==>t_info_t *jit_info, Interp * interpreter)';

for ( my $i = 0; $i < $core_numops; $i++) {
    $body = $core <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32070	32195	
==>t for this.
            $para->[1]{'number'} = $expected_value;
            $self->whine(
              $para->[1]{'start_line <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32479	32604	
==>t for this.
            $para->[1]{'number'} = $expected_value;
            $self->whine(
              $para->[1]{'start_line <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	147	248	
==>Carp   qw<fatalsToBrowser>;
use Fcntl       qw<:DEFAULT :flock>;
use Storable    qw<store_fd fd_retrie <==
3	/Users/nnunley/parrot/config/init/optimize.pm	1169	1282	
==>ersion) already?
	    my $opts = $Config{optimize};
	    $opts =~ s/-mcpu=\S+//;
            $conf->data->add(' ', <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2956	3055	
==>_element({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
    $handler->start_elem <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3630	3729	
==>_element({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
    $handler->start_elem <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3720	3819	
==>_element({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
    $handler->start_elem <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627284	627380	
==>ating a continuation, the continuation PMC\n   * needs to be in the destination register before i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628428	628524	
==>ating a continuation, the continuation PMC\n   * needs to be in the destination register before i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863867	864072	
==>S" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 143 \"src/ops/string.ops\"\n  UINTVAL n;\n  STRING *s = {{\@2}} <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	17828	17931	
==>t, $false, AFTERDO_$docounter";
		} else {
			$_="@code ne $result, $false, AFTERDO_$docounter";
		}
		p <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	11756	11853	
==>r\'s supported encodings are: @supported]"
    ;

    $self->scream( $self->{'line_count'}, $enc_e <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	4459	4597	
==>escription
            elsif ($description =~ /$verbose_step/) {
                $self->options->set(verbose => 2);
            }
        } <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	26074	26192	
==>t;
    if ($warning =~ /Odd number of elements in hash assignment/) {
        require Carp;
        my @args = DB::uple <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22974	23069	
==>\n  interpreter->current_cont = NEED_CONTINUATION;\n  dest = (opcode_t *)p->vtable->invoke(inter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747874	748093	
==>ODE" => 842,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 194 \"src/ops/set.ops\"\n  {{\@1}}->vtabl <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	15085	15220	
==>LT => -55
	},
	{#State 29
		DEFAULT => -80
	},
	{#State 30
		DEFAULT => -76
	},
	{#State 31
		ACTIONS => {
			":" => 42,
			" <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	16817	16921	
==>fail');
    my $back = $self->genlabel('dalt_back');
    my $next = $self->genlabel('dalt_next');

    my <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3951	4054	
==>ndler) if defined $value;
  $handler->end_element({ Name => 'return' });

  if (defined $cond) {
    $ha <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8511	8626	
==>register then it is up to the SRM to do the store.
	# Otherwise, there's nothing to do here.
	if ($dest_reg) {
		$pi <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6331	6446	
==>register then it is up to the SRM to do the store.
	# Otherwise, there's nothing to do here.
	if ($dest_reg) {
		$pi <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5246	5361	
==>register then it is up to the SRM to do the store.
	# Otherwise, there's nothing to do here.
	if ($dest_reg) {
		$pi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	625962	626094	
==>] = (_reg_base + cur_opcode[2 + i]);\n                break;\n            default:\n                internal_exception(1, \"unhandled <==
3	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	1047	1145	
==>name;
use File::Path;
use File::Find;

my ($action, $executable);
GetOptions("action=s"     => \$ac <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	13130	13224	
==>E "\tgoto FUNC_EXIT_$_\n";
	} elsif ($syms[NEXT] eq "sub") {
		push @{$code{$seg}->{code}}, qq{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46117	46285	
==>" => [
                              "p"
                            ],
                  "BODY" => "#line 742 \"src/ops/core.ops\"\n  Parrot_push_action(interpreter, {{ <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	117	217	
==>methods and spit out a chunk of
# PIR that can look up the built-in that's needed and return its PIR. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563409	563685	
==>"addmethod",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564306	564582	
==>"addmethod",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
3	/Users/nnunley/parrot/lib/File/Which.pm	308	443	
==>eq 'MSWin32') or
                ($^O eq 'dos')     or
                ($^O eq 'os2'));

# For Win32 systems, stores the extensions used <==
3	/Users/nnunley/parrot/tools/dev/as2c.pl	1122	1239	
==>);
	    print "    /* $src */\n";
	}
	elsif (/\.type\s+(\w+)\s*,\s*\@function/) {
	    $in_comment = 0;
	    $func = $ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	69	168	
==>129Z bernhard  $

package Parrot::Test::Punie;

use strict;
use warnings;

use File::Basename;

=hea <==
3	/Users/nnunley/parrot/config/auto/format.pm	341	430	
==>ase qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step;

$description = 'Figu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426932	427098	
==>"p",
                              "ic"
                            ],
                  "BODY" => "#line 64 \"src/ops/math.ops\"\n  mmd_dispatch_v_pi(interpreter, {{\ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4699	4797	
==>on=DIRECTORY
    shift(@pmcs) =~ /--destination=(.*)/
      or die "copy command requires destinati <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4803	4901	
==>on=DIRECTORY
    shift(@pmcs) =~ /--destination=(.*)/
      or die "copy command requires destinati <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	6647	6758	
==>, @codey)=EXPRESSION();   # Y (only)
	} else {
	    	($resultx, $typex, @codex)=EXPRESSION();    # X
		if ($type <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	1126	1232	
==>d through me. And when it has gone past I will
	#  turn the inner eye to see its path. Where the fear has g <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	2556	2662	
==>ol(NAME, VALUE)

Set a symbol in this block's symbol table. If the symbol already exists,
we throw an error <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	22015	22186	
==>label('loop');
        my @ops = (
                   aop('pushint', [ 0 ]),
          $loop => @R_ops,
                   aop('pushint', [ 1 ]),
                   aop('go <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	33446	33540	
==>ing prefix defaults to
optional whitespace and a missing text defaults to C<$_>. However, a mis <==
3	/Users/nnunley/parrot/config/auto/python.pm	595	701	
==>_;

    my ($out, $err) = capture_output('python', '-V');
    my $output = join('', $out || '', $err || '') <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6815	6942	
==>table = shift;

    my $funcs  = q{};
    my $protos = q{};

    for my $entry (@$vtable)
    {
        my ($return_type, $name, <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41209	41323	
==>" ) . '
			' . (ref($op) eq 'Parse::RecDescent::Token' ? 'do { push @item, '
			     . ($::RD_NO_HITEM ? ''
				: ' <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	510	608	
==>n";
	$_=$_[0];
	s/^(.{1,50})(\S+)\s+(.*)/\t$1$2\n\t$3/;
	print;
	exit 1;
};

getopts('d', \%options <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872890	873171	
==>" => 990,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1} <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1095	1330	
==>l    I5, I4, I1
                              #
print "Estimated ops: $I5\n"; # print  "Estimated ops: "
                              # print  I5
                              # print  "\n"
                              #
$N1 = time_hi <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	1095	1330	
==>l    I5, I4, I1
                              #
print "Estimated ops: $I5\n"; # print  "Estimated ops: "
                              # print  I5
                              # print  "\n"
                              #
$N1 = time_hi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2115	2217	
==>$left_type = $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako::Construct::Express <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2073	2175	
==>$left_type = $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako::Construct::Express <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1995	2097	
==>$left_type = $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako::Construct::Express <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26056	26170	
==>_name};
		push @localmv, "ARG$arg_num";
        $arg_num++;
	}

    # Generate code that we need to insert to handl <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	668	762	
==>tem C<exec_prefix>

The exec prefix. Defaults to '/usr'.

=item C<bindir>

The executables dire <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	897	991	
==>tem C<exec_prefix>

The exec prefix. Defaults to '/usr'.

=item C<bindir>

The executables dire <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	2718	2817	
==>e, although
it doesn't use exactly the same LoL format.

=head1 METHODS

At the end of the parse, ca <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	10886	11015	
==>rexp       math.h
frexpf      math.h
frexpl      math.h
fscanf      stdio.h
fseek       stdio.h
fsetpos     stdio.h
ftell       st <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3184	3302	
==>{$$self{TOKEN}}=$_[0];
    ${$$self{TOKEN}};
}

sub YYCurval {
	my($self)=shift;

        @_
    and ${$$self{V <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3027	3137	
==>{$$self{TOKEN}}=$_[0];
    ${$$self{TOKEN}};
}

sub YYCurval {
	my($self)=shift;

        @_
    and ${$$self{V <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	32817	32946	
==>/s
      ) {
        $treelet->[$i][1]{'type'} = 'url';
        $treelet->[$i][1]{'content-implicit'} = 'yes';
        
        if <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2928	3032	
==>ILE}; }
sub line { return shift->{LINE}; }

sub is_global
{
  my $self = shift;

  return defined($self-> <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9024	9119	
==>e, $directories, $name) = File::Spec->splitpath($path);
    
    return File::Spec->catdir($self <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2518	2629	
==>ocal/lib  -licuuc -licudata -lpthread -lm';
        $extraLibs =~ s/blib/..\\blib/g;
        $extraLibs =~ s/\Q$ <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2827	2938	
==>ocal/lib  -licuuc -licudata -lpthread -lm';
        $extraLibs =~ s/blib/..\\blib/g;
        $extraLibs =~ s/\Q$ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2622	2733	
==>ocal/lib  -licuuc -licudata -lpthread -lm';
        $extraLibs =~ s/blib/..\\blib/g;
        $extraLibs =~ s/\Q$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	337693	337923	
==>"NAME" => "getstdin",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
3	/Users/nnunley/parrot/config/auto/alignptrs.pm	1514	1622	
==>nment!\n" unless defined $align;
        $conf->data->set(ptr_alignment => $align);
    }

    $self->set_res <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	3152	3257	
==>ub output_label_use {
    my ($self, $label) = @_;
    $DB::single = 1 if ! ref $label || ! $label->{label <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3638	3744	
==>$register_num++;
	}

	# Return generated code.
	return $pir;
}

sub post_branch($) {
	my $self = shift;
	my <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4580	4669	
==>>do_beginning && $self->do_middle && $self->do_end;
}


#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3211	3299	
==>>do_beginning && $self->do_middle && $self->do_end;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2916	3028	
==>gister_num = 0;
	my $push_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop stuff off <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1838	1950	
==>gister_num = 0;
	my $push_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop stuff off <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	13684	13780	
==>ls.

Note that this hash does not
include numerics (like "64" or "x981c").

=item $Latin1Code_to_ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8275	8374	
==>int "Hello";tab$(15);"World"
print "Foo";tab$(15);"Stuff"
print "I am the very model of a modern";ta <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21139	21238	
==>int "Hello";tab$(15);"World"
print "Foo";tab$(15);"Stuff"
print "I am the very model of a modern";ta <==
3	/Users/nnunley/parrot/Configure.pl	1321	1417	
==>only for now)

=item C<--optimize>

Add perl5's $Config{optimize} to the compiler flags.

=item C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62630	62887	
==>",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorsoff",
                  "FLAGS" => "", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63275	63532	
==>",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorsoff",
                  "FLAGS" => "", <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	634	762	
==>0 } (0..31) },
    P => { map { $_ => 0 } (0..31) },
  };
};

sub _save {
  my $self  = shift;
  my $count = shift;
  my $type  = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	7615	7777	
==>( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "branch",
                  "FLAGS" => ":base_loop",
                  "ARGDIRS <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4360	4480	
==>decl
{
    my ($self, $core) = @_;

    return "opcode_t * " .
        $self->core_prefix .
        "$core(opcode_t *cur_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2848	2968	
==>decl
{
    my ($self, $core) = @_;

    return "opcode_t * " .
        $self->core_prefix .
        "$core(opcode_t *cur_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247618	247907	
==>= {{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	248482	248771	
==>= {{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	249346	249635	
==>= {{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5274	5467	
==>"CODE" => 7,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 140 \"src/ops/core.ops\"\n  {{+=2}};  /* reserve 1 <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	4400	4524	
==>e++;
        next unless $_;

        if (/\}\s*else\s*\{/) {
            error($file, $line, "Cuddled else (\"} else {\") fo <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2139	2242	
==>ar {
  my($self, $tweak_indent) = splice(@_,0,2);
  my $indent = ' ' x ( 2 * $self->{'Indent'} + 4 + ($t <==
3	/Users/nnunley/parrot/config/gen/platform.pm	4941	5086	
==>D_HERE
            print PLATFORM_C <IN_C>, "\n\n";
            close IN_C;
        }
    }

    # append generated c files
    @impls = grep { /\ <==
3	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	130	224	
==>ge Parrot::Test::Regex;

use strict;

use Data::Dumper;
use File::Basename;
use File::Spec::Fun <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	3102	3209	
==>(exists $props{fn} or exists $props{fnlib}) {
      $name .= "_THUNK";
    }

    $compiler->emit("  _${name <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722176	722276	
==>149 \"src/ops/python.ops\"\n  STRING * const s = {{\@2}};\n  PMC * const io = {{\@1}}; /* TODO Can th <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723205	723305	
==>149 \"src/ops/python.ops\"\n  STRING * const s = {{\@2}};\n  PMC * const io = {{\@1}}; /* TODO Can th <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	2557	2725	
==>" => [],
                  "TYPE" => "inline",
                  "CODE" => 2,
                  "ARGS" => [],
                  "BODY" => "#line 108 \"src/ops/core.ops\" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103996	1104082	
==>ttype = pmc_type(interpreter, class);\n\t}\n\tif (type <= 0)\n\t\treal_exception(interp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105211	1105297	
==>ttype = pmc_type(interpreter, class);\n\t}\n\tif (type <= 0)\n\t\treal_exception(interp <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10567	10684	
==>nd length($section .= '') ) 
    {
        $section =~ tr/ /_/;
        $section =~ tr/\x00-\x1F\x80-\x9F//d if 'A' eq <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3962	4065	
==>nd length($section .= '')) {
    $section =~ tr/ /_/;
    $section =~ tr/\x00-\x1F\x80-\x9F//d if 'A' eq <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16368	16463	
==>de>

Gaal Yahas <gaal@forum2.org>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey Tang. All right <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1225	1344	
==>:Tcl.pm

        # Figure out how many levels we have to go back to get to parrot.
        # And, conversely, how many l <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	17942	18047	
==>tests without a plan!  Gotta have a plan.");
    }

    lock($self->{Curr_Test});
    $self->{Curr_Test}++ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	18807	18912	
==>tests without a plan!  Gotta have a plan.");
    }

    lock($self->{Curr_Test});
    $self->{Curr_Test}++ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544297	544407	
==>aved_var2 = b; \n\n if(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545633	545743	
==>aved_var2 = b; \n\n if(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546969	547079	
==>aved_var2 = b; \n\n if(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>= <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18292	18432	
==>,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36,
			")" => 99
		},
		GOTOS => {
			'exp' => 100,
			'functi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1391	1503	
==>} ?
        "$_[0]{'source_filename'} -- " : ''
    }
  }
}
sub start_head2 {  $_[0]{'Thispara'} = '' }
sub start <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	6056	6164	
==>(result)
 
  print_value:
    if value >= 0.0 goto print_value_1
    result .= unicode:"\u207b"
    value = a <==
3	/Users/nnunley/parrot/config/inter/lex.pm	955	1080	
==>a->set($util => 'echo');
        $self->set_result('skipped');
        return $self;
    }

    my $prog;

    # precedence of <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	952	1077	
==>a->set($util => 'echo');
        $self->set_result('skipped');
        return $self;
    }

    my $prog;

    # precedence of <==
3	/Users/nnunley/parrot/config/auto/m4.pm	1070	1184	
==>', '--version') || '';
        $has_gnu_m4 = ($output =~ m/^GNU [mM]4 /) ? 1 : 0;
    }

    $conf->data->set(has_g <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	1571	1682	
==>ith-assign');  }
sub is_assign        { return shift->is('assign');        }
sub is_bit_assign    { return shift <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361640	361733	
==>ops/io.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, INTVAL_FM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362539	362632	
==>ops/io.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, INTVAL_FM <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	10564	10665	
==>$_[0] ? \$_[0] : \$_;
	return ("","","") unless defined $$textref;
	my $pre  = defined $_[1] ? $_[1] : <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	953	1043	
==>, 'Jako::Construct::Expression::Value::Identifier');
  confess "Left is not Value!" if defi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	981	1071	
==>, 'Jako::Construct::Expression::Value::Identifier');
  confess "Left is not Value!" if defi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864169	864427	
==>ter, {{\@2}}));\n  }\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	865061	865319	
==>ter, {{\@2}}));\n  }\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr3.pm	644	760	
==>es/${pir_fn}" );
}
 

sub skip_why {
    my $self = shift;
    my ( $options ) = @_;

    if ( $options->{with_antlr3 <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	25436	25540	
==>out in the wrong order from our own prints.
    _autoflush(\*TESTOUT);
    _autoflush(\*STDOUT);
    _aut <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1983	2084	
==>label before translating
	# every instruction) to see if we need to instate a stack type state
	# that <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1382	1483	
==>label before translating
	# every instruction) to see if we need to instate a stack type state
	# that <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	2875	3026	
==>,
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "check_events",
                  " <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1302	1390	
==>ag(I<somestring>) or $token->is_tagname(I<somestring>)

These are shortcuts for C<< $toke <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1732	1820	
==>ag(I<somestring>) or $token->is_tagname(I<somestring>)

These are shortcuts for C<< $toke <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	38536	38674	
==>=for ($fors[-1][1]{'target'}) is a non-resolver\n";
            $para->[0] = $para_type = 'Data';
          }
        }
      }

      #~~~ <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	13190	13296	
==>ath.h
remainderf  math.h
remainderl  math.h
remove      stdio.h
remquo      math.h
remquof     math.h
remqu <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2176	2270	
==>oves.
	my $pir .= <<'PIR';
${PTEMP0} = prop_type_state[${PC}]
if ${PTEMP0} == "" goto NOWT_TO_P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847580	847870	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848359	848649	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849139	849429	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARG <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	19962	20079	
==>defined $level ) {
        $Level = $level;
    }
    return $Level;
}


=item B<use_numbers>

    $Test->use_numbers( <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	5046	5159	
==>+/, $_;

    $args = '' if not defined $args;
    $args =~ s/^v$//
      and warn "Removed deprecated 'v' argument <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24926	25024	
==>TO expected at source line $sourceline" unless ($syms[CURR] ne "to");

	feedme();
	# The destinatio <==
3	/Users/nnunley/parrot/config/gen/platform.pm	2277	2394	
==>* $header_file:
*/
#line 1 "$header_file"
END_HERE
            print PLATFORM_H <IN_H>, "\n\n";
            close IN_H <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1601	1714	
==>lLabel # past end of input?",
            'set <rx_match>["0";0], <rx_pos> # group 0 start := pos');
}

sub output <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14796	14889	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
#
#  Methods that actually do work at parse-time:

sub <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	939	1041	
==>owing whether or not we're using gcc.

    # This key should always exist unless the program couldn't b <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1236	1326	
==>>tag(...)

A shortcut for $token->tagname(...)

=item $token->is_tag(I<somestring>) or $tok <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1666	1756	
==>>tag(...)

A shortcut for $token->tagname(...)

=item $token->is_tag(I<somestring>) or $tok <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1579	1708	
==>p) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = $op->{op} $op->{arg1}->{s <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2239	2368	
==>p) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = $op->{op} $op->{arg1}->{s <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1230	1338	
==>r_count == 0) {
          $path_to_language = File::Spec->join('languages', $language);
        } elsif ($dir <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1715	1823	
==>r_count == 0) {
          $path_to_language = File::Spec->join('languages', $language);
        } elsif ($dir <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1545	1649	
==>namespace ${namespace}_THEN");
    }

    $compiler->emit("  goto ${prefix}_LAST");
  }
  elsif ($kind eq <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	4506	4645	
==>$verbose_step/) {
                $self->options->set(verbose => 2);
            }
        }

        # XXX cc_build uses this verbose setti <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	387	498	
==>struct::Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected 5 args!" unless @_ == 5 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	387	498	
==>struct::Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected 5 args!" unless @_ == 5 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	743	847	
==>pe));
  confess "Identifier (" . ref($ident) . ") is not!" unless UNIVERSAL::isa($ident, qw(Jako::Constru <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	768	872	
==>pe));
  confess "Identifier (". ref($ident) . ") is not!"  unless UNIVERSAL::isa($ident, qw(Jako::Constru <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	732	836	
==>pe));
  confess "Identifier (". ref($ident) . ") is not!"  unless UNIVERSAL::isa($ident, qw(Jako::Constru <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	366	476	
==>: ', $parser->YYData->{srcname}, ':',
        $parser->YYData->{lineno}, ': ', $msg
        if ( exists $pars <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	832	942	
==>: ', $parser->YYData->{srcname}, ':',
        $parser->YYData->{lineno}, ': ', $msg
        if ( exists $pars <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1290	1400	
==>: ', $parser->YYData->{srcname}, ':',
        $parser->YYData->{lineno}, ': ', $msg
        if ( exists $pars <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492527	492765	
==>" => "function",
                  "CODE" => 565,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 585 \"src/ops/math.ops\" <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	1686	1859	
==>ir_fn}",
            );
        }
        elsif ( $lua_test eq 'lua2pir' ) {
            @test_prog = (
                "luac languages/${lang_fn}",
                "l2 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2990	3094	
==>dest) = @_;
    $self->output_test('eq', $val1, $val2, $dest);
}

sub output_ne {
    my ($self, $val1, $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	98133	98383	
==>,
                  "BODY" => "#line 91 \"src/ops/bit.ops\"\n  {{\@1}} = ~ {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	64604	64700	
==>back are most welcome.


=head1 COPYRIGHT

 Copyright (c) 1997-2001, Damian Conway. All Rights Re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955861	955945	
==>/string.ops\"\n  {{\@1}} = string_copy(interpreter, Parrot_encoding_name(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956673	956757	
==>/string.ops\"\n  {{\@1}} = string_copy(interpreter, Parrot_encoding_name(interpreter, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1315	1423	
==>hey really should not be
  # triggered in normal operation, even with bad source code as input.
  #

  $self- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1260	1368	
==>hey really should not be
  # triggered in normal operation, even with bad source code as input.
  #

  $self- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1163	1271	
==>hey really should not be
  # triggered in normal operation, even with bad source code as input.
  #

  $self- <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	18760	18888	
==>EGATIVE
{
    my (undef, $c, $cmt) = @_;
    my $t = pop @stack;
    my $n = temp('P');
    my $p = $t->[1];
    print <<EOC;
	$n <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2351	2461	
==>right_sym;
    $right_type = $right_sym->type;
  }
  else {
    $right_type = $right->type;
  }

  $self->INTER <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2273	2383	
==>right_sym;
    $right_type = $right_sym->type;
  }
  else {
    $right_type = $right->type;
  }

  $self->INTER <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382935	383171	
==>S" => [
                              "p",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 455 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek <==
3	/Users/nnunley/parrot/config/auto/va_ptr.pm	419	522	
==>uto';

$description = 'Test the type of va_ptr (this test is likely to segfault)';

@args = qw();

sub r <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	11183	11276	
==>lock's content using COMPILER. If FILTER is provided, only
those Constructs in the content for <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	18316	18412	
==>=head2 read_dump( [$dir1, $dir2], $file );

Read in the class definition found in $file (which is <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37452	37554	
==>,
				  q{' . $rule->{"name"} . '})
					if defined $::RD_TRACE;').'
		$Parse::RecDescent::lastexpected <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39855	39957	
==>,
				  q{' . $rule->{"name"} . '})
					if defined $::RD_TRACE;').'
		$Parse::RecDescent::lastexpected <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	589	686	
==>topts('d', \%options);
$debug=1 if $options{d};

if (@ARGV) {
	open(D, $ARGV[0]) || die;
	@basic=< <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5827	5919	
==>d defined $self->{triggers}{$key}{$trigger};

    my $verbose = defined $self->get('verbose') <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6397	6489	
==>d defined $self->{triggers}{$key}{$trigger};

    my $verbose = defined $self->get('verbose') <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107207	107530	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":ba <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108061	108384	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":ba <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	41898	42028	
==>$moved;
      for (@_) {
	if ($_ eq "P$count") {
	  $moved = $_;
	  $_ = $empty;
	}
      }
      if ($moved) {
	$self->_add_inst ( <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	15650	15760	
==>sc, \%extra, $extra{todo}, $call_pkg ) if ( keys %extra );
            local *{ $call_pkg . '::TODO' } = \$extr <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	18201	18311	
==>sc, \%extra, $extra{todo}, $call_pkg ) if ( keys %extra );
            local *{ $call_pkg . '::TODO' } = \$extr <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	19629	19738	
==>es;

    Parrot::Pmc2c::Library
        ->new( \%opt, read_dump($include, "vtable.pmc"), %pmcs )
        ->wri <==
3	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	1230	1351	
==>m) {
        print "$output was built from different version of $input; remaking\n"
          if $Verbose;
        $up_to_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208298	208405	
==>],
                  "BODY" => "#line 401 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209239	209346	
==>],
                  "BODY" => "#line 401 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052986	1053263	
==>ction",
                  "CODE" => 1176,
                  "ARGS" => [
                              "p",
                              "sc",
                              "sc"
                            ],
                  "BODY" => "#line 172 \"src/ops/var.ops\"\n    opcod <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1650	1743	
==>ter->task_queue->head ?  \\
		Parrot_do_check_events(i, n) : n
END
}

=item C<goto_address($ad <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720219	720427	
==>erpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721419	721627	
==>erpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	1959	2088	
==>ent is an integer
    NUM       the argument is an numeric
    STR       the argument is an string
    PMC       the argument is a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118215	118502	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 147,
                  "ARGS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	839046	839294	
==>store",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 951,
                  "ARGS <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	24650	24760	
==>check) = @_;
	
	my $action = '';
	
	if ($self->{"msg"})  # ERROR MESSAGE SUPPLIED
	{
		#WAS: $action .= "Parse: <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	596	706	
==>}

my $done = 0;
my $total = 0;
map { $done += $_->{'done'}; $total += $_->{'total'}; } @results;
my $perc <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	432	542	
==>}

my $done = 0;
my $total = 0;
map { $done += $_->{'done'}; $total += $_->{'total'}; } @results;
my $perc <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	4515	4677	
==>are changed.
        
        my $href = $self->href_for_perl_module($text);
        
        esc($text);
    
        if ( $href )
        {
            $text = " <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	13253	13365	
==>ess defined $lines[-1];
       # but pass thru the undef, which will set source_dead to true
    }
    $self->par <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	6072	6176	
==>SUPER::parse_lines(undef);
        delete $self->{'source_scalar_ref'};
        DEBUG and print "That's i <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9931	10036	
==>they come
# off the stack last to first, but need to be first to last in ${PARAMS}.
${ITEMP0} = elements $ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7445	7550	
==>they come
# off the stack last to first, but need to be first to last in ${PARAMS}.
${ITEMP0} = elements $ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6409	6514	
==>they come
# off the stack last to first, but need to be first to last in ${PARAMS}.
${ITEMP0} = elements $ <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	1702	1807	
==>($mono_lib_path);
	
	# Read in makefile template.
	my $fh;
	open $fh, "< config/Makefile.in" or die "U <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	2518	2618	
==>s defined $return_type;

    my $arg_type = $value->type;
    my $ret_val = $value->compile($compiler <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9208	9292	
==>,$c,$d,$a,$b,$_[19],14,0xd8a1e681,/* 23 */
GG,$b,$c,$d,$a,$_[8],20,0xe7d3fbc8,/* 24 * <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2585	2710	
==>/blib/..\\blib/g;
        $extraLibs =~ s/\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else {
        $liblist <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2894	3019	
==>/blib/..\\blib/g;
        $extraLibs =~ s/\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else {
        $liblist <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2689	2814	
==>/blib/..\\blib/g;
        $extraLibs =~ s/\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else {
        $liblist <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	13984	14128	
==>vars} ) != 0
            and scalar( @{ $expr->[1] } ) != 0
            and $expr->[1]->[-1]->isa('CallOp') )
        {
            my $resul <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	929	1025	
==>( exists $parser->YYData->{verbose_warning}
        and $parser->YYData->{verbose_warning} );
} <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	904	1042	
==>);
        } else {
            $conf->data->add(' ', libs => 'gmp.lib');
        }
    } else {
        $conf->data->add(' ', libs => '-lg <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	25105	25209	
==>f ($name =~/^obj (\S+) attr (\w+)/) {  # convert to meth call syntax
	my ($obj, $attr) = ($1, $2);
	my $r <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	4010	4109	
==>e "Could not locate enternative op!\n" unless defined $enternative;

    # Copy original bytecode to <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	10863	10971	
==>'_transcoder'}->(@x);
    };
    $@ && die( $enc_error =
      "Really unexpected error setting up encoding $ <==
3	/Users/nnunley/parrot/tools/dev/symlink.pl	2376	2479	
==>link ne $srcfile) {
		print "$dstfile\n" if $v;
		if (defined $readlink) {
		    unless (unlink($dstfile <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5257	5383	
==>n') {
            chmod 0755, "$dest/$_$LOAD_EXT";
        }

    }
}
else {
    die "invalid command '$mode'\nmust be one of g <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5468	5594	
==>n') {
            chmod 0755, "$dest/$_$LOAD_EXT";
        }

    }
}
else {
    die "invalid command '$mode'\nmust be one of g <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	43	129	
==>ion.
# $Id: /parrot/lib/Parrot/Configure/Step.pm 20340 2006-06-22T21:49:11.552283Z bern <==
3	/Users/nnunley/parrot/lib/Test/More.pm	55	155	
==>Builder;


# Can't use Carp because it might cause use_ok() to accidentally succeed
# even though the <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	505	595	
==>ck) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Left (" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	496	586	
==>ck) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Left (" <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	3988	4101	
==>rary  : PMC that corresponds to a dynamic library
    ref      : PMC that references another PMC
    string   : PM <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1134	1236	
==>ray size.
${ITEMP0} = elements ${STYPES}
PIR

	# Do code for each pop. Need to set up mv's and pop stuf <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2844	2946	
==>ray size.
${ITEMP0} = elements ${STYPES}
PIR

	# Do code for each pop. Need to set up mv's and pop stuf <==
3	/Users/nnunley/parrot/config/inter/progs.pm	4161	4280	
==>''
        );
    }

    # This one isn't prompted for above.  I don't know why.
    $ccwarn = integrate($conf->data->ge <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	1024	1165	
==>as',
             'asmfun_o' => 'src/asmfun.o',
             'bigendian' => 1,
             'bin_dir' => '/opt/local/bin',
             'bison <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20251	20351	
==>qr(32767)
print 0,sqr(0)
print 0.5,sqr(0.5)
print 2,sqr(2)
for i = -1 to 1
	print "Sign of ";i;" is " <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7420	7516	
==>t('', 'set', [$list,$list.'[1]']);
  $self->_add_inst('', 'typeof', [$type,$list]);
  $self->_add <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6930	7046	
==>_type, $name, $params, $section, $mmd) = @$entry;
        next unless $mmd eq '-1';

        my @params    = parse_pa <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3607	3700	
==>y,$checklist,$inarray,$outhash)=@_;
	my($prm,$value);
	my($prmlst)={};

	while(($prm,$valu <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3419	3508	
==>y,$checklist,$inarray,$outhash)=@_;
	my($prm,$value);
	my($prmlst)={};

	while(($prm,$valu <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	2931	3054	
==>l
{
    my $self = shift;
    my $source = shift || die "No source\n";
    my $target = shift || die "No target\n";
    my $ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	2379	2502	
==>l
{
    my $self = shift;
    my $source = shift || die "No source\n";
    my $target = shift || die "No target\n";
    my $ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2538	2658	
==>l
{
	my $self = shift;
    my $source = shift || die "No source\n";
    my $target = shift || die "No target\n";
    my $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601413	601693	
==>} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "single <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	9009	9104	
==>s given a constructor method, C<new>, for creating
struct objects.

Each element in the struct d <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	2631	2725	
==>he .c file is generated by appending the functions after the various
directives have been repla <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8221	8354	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9336	9469	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => " <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	1672	1779	
==>>relative_path($dist->c_header_file_with_name($name));
        }
    }
    
    if ( exists $contents{'sourc <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	2229	2372	
==>', # For some dumping subclasses: whether to pointedly
                       # suppress the start_line attribute
                      
  'line <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	2793	2896	
==>.

=item C<goto NEXT()>

Transforms to C<PC' = PC + S>, where C<S> is the size of an op.

=item C<goto A <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	503	601	
==>eline:\n";
	$_=$_[0];
	s/^(.{1,50})(\S+)\s+(.*)/\t$1$2\n\t$3/;
	print;
	exit 1;
};

getopts('d', \% <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32784	32883	
==>::RecDescent::_tracefirst($text))
							if defined $::RD_TRACE;').'
		push @item, ' . ($::RD_NO_HIT <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30581	30678	
==>::RecDescent::_tracefirst($text))
							if defined $::RD_TRACE;').'
		push @item, '.($::RD_NO_HIT <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28505	28600	
==>::RecDescent::_tracefirst($text))
					if defined $::RD_TRACE;').'
		push @item, '.($::RD_NO_HIT <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	11629	11743	
==>ier after dereferencer", pos $$textref;
		pos $$textref = $startpos;
		return;
	    }
	}

	while (1)
	{
		next if _ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	9786	9894	
==>rn $return;
}

sub _op_define {
  my ($self, $node) = @_;

  _num_arg ($node, 2, 'define');

  my ($symbol, $ <==
3	/Users/nnunley/parrot/config/gen/cpu.pm	781	885	
==>data->get('cpuarch') . "::auto";

    print "\t(cpu hints = '$hints') " if $verbose;

    eval "use $hint <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	6726	6821	
==>2 my $path = find_file( [$dir1, $dir2], $file, $die_unless_found_flag );

Return the full path t <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	25005	25134	
==>be_fh,               'IO::Handle') ||

           # 5.5.4's tied() and can() doesn't like getting undef
           UNIVERSAL::can( <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	68741	68854	
==>er to produce a
			       single positive or negative lookahead
			       specification. In this case the sequence <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4301	4407	
==>onfig.pm
    
    return 1 if $self->suffix =~ /^(?:dump|html|flag|o)$/o
        or $self->name =~ /^(?:per <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Ops.pm	599	691	
==>',
		$self->new_group('Tools', '',
			$self->new_item('', 'tools/build/ops2c.pl'),
			$self-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244003	244259	
==>{{\@1}} = string_compare(interpreter, l, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244935	245191	
==>{{\@1}} = string_compare(interpreter, l, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5880	6056	
==>";
            if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                print {$FH} " :flat";
            }
            $first = 0;
        }
        print <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6975	7151	
==>";
            if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                print {$FH} " :flat";
            }
            $first = 0;
        }
        print <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	9889	10065	
==>";
            if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                print {$FH} " :flat";
            }
            $first = 0;
        }
        print <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042932	1043107	
==>t_pmc_keyed_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043829	1044004	
==>t_pmc_keyed_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	145	240	
==>name $subname );
use vars qw( %labels $branchseq @selects);
use vars qw( @data $sourceline %comm <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	9876	10048	
==>ering - only used for debugging for now
########################################################################

package Regex::Ops::Tree; # Won't get used much

sub needpa <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	3882	3992	
==>$smoke{harness_args});
  $smoke{revision}  ||= 0;
  $smoke{timestamp} = time;
  $smoke{id}        = $id;
  my $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	2177	2272	
==>$pattern) = @_;

    generate_regular_pir('test_regex.pir', $pattern);
    generate_pbc('test_re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8349	8559	
==>" => "branch_cs",
                  "FLAGS" => ":base_loop,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inlin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9464	9674	
==>" => "branch_cs",
                  "FLAGS" => ":base_loop,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inlin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	267651	267790	
==>p"
                            ],
                  "BODY" => "#line 811 \"src/ops/cmp.ops\"\n    {{\@1}} = VTABLE_get_bool(interpreter, {{\ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	7628	7726	
==>rser, $text; $repeating, $_noactions, \@args)
sub ' . $namespace . '::' . $self->{"name"} .  '
{
	m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945431	945519	
==>\n  {{\@1}} = string_copy(interpreter, Parrot_charset_name(interpreter, {{\@2}}));\n  {{+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946241	946329	
==>\n  {{\@1}} = string_copy(interpreter, Parrot_charset_name(interpreter, {{\@2}}));\n  {{+ <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	1445	1559	
==>unless ($file =~ /\.[ch]$/);
    my %bad_fdecls;
    
    print STDERR "Scanning $file.. ";
    my $c = new C::Scan <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8496	8606	
==>nt STDERR 
#DBG>				    "go to state $$states[$$stack[-1][0]]{GOTOS}{$lhs}.\n";

#DBG>				$debug & 0x10
#DB <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8111	8217	
==>nt STDERR 
#DBG>				    "go to state $$states[$$stack[-1][0]]{GOTOS}{$lhs}.\n";

#DBG>				$debug & 0x10
#DB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557187	557329	
==>less( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod",
                  "F <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558570	558712	
==>less( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod",
                  "F <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559954	560096	
==>less( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod",
                  "F <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3554	3682	
==>mcfiles))
              or die "pmc2c library creation failed ($?)\n";
        }
    }
} 
elsif ($mode eq 'compile') {
    my ($g <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3658	3786	
==>mcfiles))
              or die "pmc2c library creation failed ($?)\n";
        }
    }
} 
elsif ($mode eq 'compile') {
    my ($g <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6149	6347	
==>s{ACTIONS}{$$token}
                    :   exists($$actions{DEFAULT})
                        ?   $$actions{DEFAULT}
                        :   undef;
        }
        else {
            $ac <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5860	6052	
==>s{ACTIONS}{$$token}
                    :   exists($$actions{DEFAULT})
                        ?   $$actions{DEFAULT}
                        :   undef;
        }
        else {
            $ac <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34464	34569	
==>self->{argcode} ? ",sub { return $self->{argcode} }"
				   : ',undef')
		. ')))
		{
			'.($self->{"lookah <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158270	158521	
==>ODE" => 191,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 141 \"src/ops/cmp.ops\"\n  if ({{\@1}} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3495	3601	
==>We should make sure its a string, somewhere.
    }
    else {
      $self->SYNTAX_ERROR("Sub declaration ha <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6159	6265	
==>We should make sure its a string, somewhere.
    }
    else {
      $self->SYNTAX_ERROR("Sub declaration ha <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11065	11152	
==>C}
if "${CURIC}" == "73" goto pre_call_HAS_RETURN_${CURIC}
goto pre_call_NO_RETURN_${CUR <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8251	8338	
==>C}
if "${CURIC}" == "73" goto pre_call_HAS_RETURN_${CURIC}
goto pre_call_NO_RETURN_${CUR <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5913	6000	
==>C}
if "${CURIC}" == "73" goto pre_call_HAS_RETURN_${CURIC}
goto pre_call_NO_RETURN_${CUR <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	5784	5889	
==>~ $ParrotPrefix) {
	push @UnParrotAPI, $api;
    }
}

if (@NoParrotAPI) {
    printf "--- Missing Parrot A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8857	8947	
==>ackFile_find_fixup_entry(interpreter,\n\t    enum_fixup_label, label);\n    if (!fe)\n\tint <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9973	10063	
==>ackFile_find_fixup_entry(interpreter,\n\t    enum_fixup_label, label);\n    if (!fe)\n\tint <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	28024	28127	
==>= @_;
  my $return;
  my $label     = $self->_gensym();

  $return = $self->_generate($node->{children}[ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23304	23403	
==>= @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_generate($node->{children}[ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23766	23865	
==>= @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_generate($node->{children}[ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32100	32194	
==>$parameters = ", $parameters" if $parameters;
    my $body = "VTABLE_$meth(interpreter, PMC_pmc <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33677	33771	
==>$parameters = ", $parameters" if $parameters;
    my $body = "VTABLE_$meth(interpreter, PMC_pmc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	245191	245365	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp_str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033425	1033519	
==>er, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    VTABLE_set_pm <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034523	1034617	
==>er, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    VTABLE_set_pm <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	901	999	
==>ttributes => { kind => $self->kind } });
  $_->sax($handler) foreach $self->content;
  $handler->en <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1914	2012	
==>ttributes => { kind => $self->kind } });
  $_->sax($handler) foreach $self->content;
  $handler->en <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2708	2806	
==>ttributes => { kind => $self->kind } });
  $_->sax($handler) foreach $self->content;
  $handler->en <==
3	/Users/nnunley/parrot/config/gen/icu.pm	1785	1920	
==>onfig --ldflags");
            if (defined $icushared) {
                chomp $icushared;
                $icushared =~ s/-licui18n\w*/ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3581	3681	
==>stuff => "\$X99", choose => 1 });
		push @{$code{$seg}->{code}}, "@code";
		feedme();
		if ($syms[CUR <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	3854	3947	
==>tat()>

Returns the C<File::stat> object. Used by subclasses to get information
about the path <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939853	940150	
==>S" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1057,
                  "ARGS" <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5482	5596	
==>e(1) {
        my($actions,$act,$stateno);

        $stateno=$$stack[-1][0];
        $actions=$$states[$stateno <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5218	5328	
==>e(1) {
        my($actions,$act,$stateno);

        $stateno=$$stack[-1][0];
        $actions=$$states[$stateno <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822294	822387	
==>(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_INT) {\n    internal_exce <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823362	823455	
==>(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_INT) {\n    internal_exce <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3304	3391	
==>to &Parrot::Test::pir_output_is;
}

=item C<pgeglob_isnt($target, $pattern, $description <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637799	637975	
==>c",
                              "sc"
                            ],
                  "BODY" => "#line 107 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	1005	1111	
==>fect of setting
    # content_seen.
    $self->get_short_title();
    
    return unless $self->content_see <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	2905	3004	
==>)>

Transforms to C<PC' = X>. This is used for absolute jumps.

=item C<goto POP()>

Transforms to C <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29150	29301	
==>NS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			" <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41256	41407	
==>NS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			" <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44402	44553	
==>NS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			" <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3355	3466	
==>t
        # XXX This should be "print the last command". Which is harder.
        $body =~ s/^(\s*)([^\n]+)\s*\Z <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4762	4873	
==>t
        # XXX This should be "print the last command". Which is harder.
        $body =~ s/^(\s*)([^\n]+)\s*\Z <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20613	20706	
==>subclasses
L<Pod::Simple::PullParserStartToken>,
L<Pod::Simple::PullParserTextToken>, and
L<Po <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571180	571437	
==>ject_isa(interpreter, {{\@2}}, class);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572135	572392	
==>ject_isa(interpreter, {{\@2}}, class);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774167	774365	
==>",
                              "kic",
                              "i"
                            ],
                  "BODY" => "#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_k <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	19588	19707	
==>nless $self->{'accept_targets'}{$target_name};
        
        DEBUG > 2 and
         print "  It DOES match the accept <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	233	345	
==>IS

    use Parrot::Configure;

    my $conf = Parrot::Configure->new;
    my $data = $conf->data;
    my $option <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6652	6755	
==>les
	# it's sensible to link directly to. Suffixes other than txt are a
	# problem (for me at least) bec <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441273	441573	
==>TYPE" => "inline",
                  "CODE" => 505,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "n"
                            ],
                  "BODY" => "#line 109 \"src/ops <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16469	16566	
==>erved.

This program is free software; you can redistribute it and/or modify it
under the same ter <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1683	1780	
==>erved.

This program is free software; you can redistribute it and/or modify it
under the same ter <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32411	32530	
==>($item_type eq 'text') {
            # Hm, it's not numeric.  Correct for this.
            $para->[1]{'number'} = $expe <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	29096	29210	
==>{$seg}->{args}}, $_;
		}
	}
	return;
}

sub parse_endfunc {
	feedme;
	my $t=$seg;
	$seg=~s/^_//;       # Remove the <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31096	31201	
==>attern = $_[1];
	$pattern =~ s#/#\\/#g;

	my $desc = $pattern;
	$desc=~s/\\/\\\\/g;
	$desc=~s/}/\\}/g;
	$d <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36805	36913	
==>)");
        $ret
}

EOC
}

=back

=head2 Parrot::Pmc2c::delegate Instance Methods

=over 4

=cut

package Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621772	621867	
==>\t    PObj_get_FLAGS(ccont) &= ~SUB_FLAG_TAILCALL;\n\t    --ctx->recursion_depth;\n\t    ctx->ca <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29612	29695	
==>\tPObj_get_FLAGS(ccont) &= ~SUB_FLAG_TAILCALL;\n\t--ctx->recursion_depth;\n\tctx->ca <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89802	90041	
==>ne",
                  "CODE" => 111,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 38 \"src/ops/bit.ops\"\n  {{\@1}} &= <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	6065	6196	
==>(c)
#
# and something trickier like /ab|c[dxy]e/ compiles to
#
#          check(2)
#          match(a) or goto try_S
#          matc <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7950	8101	
==>ndef;

            splice(@$stack,-$len,$len);

                $$check eq 'ACCEPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		and	print <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7594	7737	
==>ndef;

            splice(@$stack,-$len,$len);

                $$check eq 'ACCEPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		and	print <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	15422	15537	
==>2] eq 'S';
	$nr = promote($r);
	print <<"EOC";
	$n = new $DEFVAR $cmt
	$op $n, $nl, $nr
EOC
    }
    push @stack, [ <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	5263	5367	
==>rt the md5_hex()
function (or one of its cousins):

    use Digest::Perl::MD5 'md5_hex';
    print 'Diges <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47066	47284	
==>RROT_ALL_DEBUG_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47849	48067	
==>RROT_ALL_DEBUG_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	678	794	
==>AST => 'ELSE' }, # TODO: fix these
);


#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $kind, $ident, $con <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15477	15582	
==>push @opcodes, @{ $nil->[1] };
    $result = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19230	19335	
==>push @opcodes, @{ $nil->[1] };
    $result = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	1254	1350	
==>uage, $code, $expected, $description)> 

Runs a langugage test and passes the test if a string co <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	1607	1703	
==>uage, $code, $expected, $description)> 

Runs a langugage test and passes the test if a string co <==
3	/Users/nnunley/parrot/config/gen/cpu/i386/auto.pm	802	937	
==>val(cc_build("-DPARROT_CONFIG_TEST"));
        if ($@) {
            print " $@ " if $verbose;
        } else {
            if (cc_run() <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	8149	8264	
==>_item' 
            if @{$self->{STACK}} and $self->{STACK}->[-1] eq 'text';
    }
    
    print {$self->{'output_f <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	54933	55031	
==>g,
it is matched against the text in a scalar context with a leading
'\G' and the gc modifiers enab <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	8425	8575	
==>->h('x'); # hash element value
    $obj->h('x', 'new value');          # assign to hash element

                                    # class type acces <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	1402	1516	
==>>{$key};
  }
  print STDERR "}\n";
}


#
# PREDICATES:
#

sub is { my $self = shift; return grep { $self->kind eq $ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	28646	28746	
==>_=changename($_);
			$_=~s/\$/_string/g; 
			push @{$code{$seg}->{code}}, qq{\t.param $t $_\n};
			pu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	3144	3242	
==>ft;

  $self->INTERNAL_ERROR("Attempt to reference top block with empty block stack!")
    if scala <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828722	828813	
==>depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_PMC) {\n    internal_exception(ERROR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829790	829881	
==>depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_PMC) {\n    internal_exception(ERROR <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	6750	6911	
==>nt
                and $parser->_LongCommentLexer($1),
                last;
            s/^\-\-(.*)\n//         # ShortComment
                and $parser->Y <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	8531	8634	
==>er we want to do this or convert
			# to HTML in the documentation item.
			$desc =~ s/[CFL]<([^>]+)>/$1 <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49823	49923	
==>::extract_quotelike($text,$skip);
					  $match ? \@res : undef;
					', $lookahead,$line,"<perl_quot <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	6869	6954	
==>return;
}

#-------------------------------------------------------------------------- <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	8408	8493	
==>return;
}

#-------------------------------------------------------------------------- <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10225	10310	
==>return;
}

#-------------------------------------------------------------------------- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	1118	1231	
==>pt string literals... q.v.).
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  return $self->value;
} <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	6877	7004	
==>ams = ();
    %lexicals = ();
    %names = ();
}

sub ARG_count {
    my ($n, $c, $cmt) = @_;
    print <<EOC;
	# $c($n) $cmt
EO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054368	1054461	
==>ried to get from null namespace.\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to ge <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055495	1055588	
==>ried to get from null namespace.\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to ge <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	4022	4132	
==>dynamic library
    ref      : PMC that references another PMC
    string   : PMC that behaves similarly to the <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10382	10467	
==>urce_file}{$function} ? "$function_call_coverage{$source_file}{$function} %" : "n/a" ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829528	829668	
==>"ic"
                            ],
                  "BODY" => "#line 159 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8505	8593	
==>$(12);c$(i+1);tab$(22);c$(i+2);tab$(32);c$(i+3)
next
print
data "ABANDON","CHART","COMPUT <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21369	21457	
==>$(12);c$(i+1);tab$(22);c$(i+2);tab$(32);c$(i+3)
next
print
data "ABANDON","CHART","COMPUT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123250	123528	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124123	124401	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124997	125275	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	5817	5923	
==>ptions include...

    STDOUT    filehandle to redirect STDOUT to
    STDERR    filehandle to redirect STDE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46931	47034	
==>/ops/core.ops\"\n  if ({{\@1}} != 0) { Interp_debug_SET(interpreter,   {{\@1}}); }\n  else         { Int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47714	47817	
==>/ops/core.ops\"\n  if ({{\@1}} != 0) { Interp_debug_SET(interpreter,   {{\@1}}); }\n  else         { Int <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	4425	4535	
==>t});
    $self->{Curr_Test}    = 0;
    $self->{Test_Results} = &share([]);

    $self->{Exported_To}    = unde <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1822	1913	
==>llet  { ++$_[0]{'Indent'} }
sub start_over_number  { ++$_[0]{'Indent'} }
sub start_over_text <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1390	1481	
==>llet  { ++$_[0]{'Indent'} }
sub start_over_number  { ++$_[0]{'Indent'} }
sub start_over_text <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	58473	58575	
==>y $rulename = $1;
			if ($rulename =~ /Replace|Extend|Precompile|Save/ )
			{	
				_warn(2,"Rule \"$rul <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	937	1035	
==>p not implemented for current stack to register mapper\n";
}

# Pre and post branch operation hooks <==
3	/Users/nnunley/parrot/config/init/headers.pm	143	233	
==>E

config/init/headers.pm - Nongenerated Headers

=head1 DESCRIPTION

Uses C<ExtUtils::Mani <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822353	822442	
==>ACK_ENTRY_INT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823421	823510	
==>ACK_ENTRY_INT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\ <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2410	2514	
==>te($file, $source);

    # The following SHOULD apply.
    check_line_length($file, $source);
    check_r <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4061	4157	
==>:Construct::Block");
  confess "No symbol name!"  unless defined $name;
  confess "Extra argument <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6229	6325	
==>:Construct::Block");
  confess "No symbol name!"  unless defined $name;
  confess "Extra argument <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	12301	12392	
==>0 }
sub Regex::Ops::Tree::scan::render { $_[0]->{args}->[0]->render() }

sub Regex::Ops::Tre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85557	85643	
==>>iglobals, IGLOBALS_COMPREG_HASH);\n  {{\@1}} = VTABLE_get_pmc_keyed_str(interpreter, c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86464	86550	
==>>iglobals, IGLOBALS_COMPREG_HASH);\n  {{\@1}} = VTABLE_get_pmc_keyed_str(interpreter, c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	119450	119708	
==>231 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120305	120563	
==>231 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121160	121418	
==>231 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	7387	7523	
==>e       => 'arg',
      Attributes => {
        type => $arg_type_name,
        name => $arg_name
      }
    });
    $handler->end_eleme <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4478	4568	
==>($self->path, $name);
}

=item C<directory_exists_with_name($name)>

Returns whether a subd <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	34227	34333	
==>Tests} == 1 ? '' : 's';
            $self->diag(<<"FAIL");
Looks like you planned $self->{Expected_Tests} t <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	34563	34669	
==>Tests} == 1 ? '' : 's';
            $self->diag(<<"FAIL");
Looks like you planned $self->{Expected_Tests} t <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	1505	1598	
==>c.pod'),
			$self->new_item('', 'docs/running.pod'),
			$self->new_item('', 'docs/porting_intr <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	15950	16061	
==>2 + $line + count_newlines($cout),
				   $out_name);
    $cout .= $additional_bodies;
    $cout .= "\n\n";
}

= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864101	864201	
==>else {\n    n = s->bufused;\n    assert(n == ENCODING_BYTES(interpreter, {{\@2}}));\n  }\n  {{\@1}} = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864993	865093	
==>else {\n    n = s->bufused;\n    assert(n == ENCODING_BYTES(interpreter, {{\@2}}));\n  }\n  {{\@1}} = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754781	755139	
==>DIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 851,
                  "ARGS" => [
                              "p",
                              "n"
                            ],
                  "BODY" => "#line 266 <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	5755	5899	
==>YYData->{fh}
            or return;

        for ( $parser->YYData->{INPUT} ) {
            s/^\n//
                and $parser->YYData->{li <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16042	16186	
==>imple::HTML> warning.

=cut

sub esc 
{
    if ( defined wantarray ) 
    {
        if ( wantarray ) 
        {
            @_ = splice @_; # bre <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	1498	1631	
==>$v == 2 && $v->[1] != -2) {
          $r{$k} = substr($input, $v->[0], $v->[1] - $v->[0] + 1);
        }
      } else {
        $r{$k} <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	8664	8791	
==>ie "Can't close    stdout" if $out;
    close STDERR             or die "Can't close    stderr" if $err;

    open  STDOUT, ">&O <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8196	8310	
==>ie "Can't close    stdout" if $out;
    close STDERR or die "Can't close    stderr" if $err;

    open STDOUT, ">&O <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	32564	32678	
==>runs under
    # 5.004!
    my $in_eval = 0;
    for( my $stack = 1;  my $sub = (CORE::caller($stack))[3];  $stack+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028021	1028121	
==>s.ops\"\n  opcode_t *next = {{^+2}};\n  if ({{\@1}} < 0) {\n      real_exception(interpreter, next, N <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028872	1028972	
==>s.ops\"\n  opcode_t *next = {{^+2}};\n  if ({{\@1}} < 0) {\n      real_exception(interpreter, next, N <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	42086	42182	
==>n turn takes a single argument (the text to
be extracted from).

In other words, the implementati <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	6383	6526	
==>mes' => 'define',
             'i_systypes' => 'define',
             'i_sysuio' => 'define',
             'i_sysun' => 'define',
             ' <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1215	1312	
==>tements 
will find modules which are not located on Pugs's default
search path.

= LIMITATIONS & C <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	3543	3634	
==>ments, an underscore followed by underscore-separated argument types
are appended to the nam <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882136	882553	
==>i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 999,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#li <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1121	1257	
==>c languages/$lang_f",
            CD => '..', # $self->{relpath}, 
            STDOUT => $pasm_f, STDERR => $pasm_f,
        );
        P <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	18758	18855	
==>to "Perl Cookbook", Recipe 13.12 for rationale).

    Corrected behaviour of accessors for '*@' an <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	738	851	
==>nt = shift;
  my $type  = shift || 'I';

  die "No registers to save"
    unless $count and $count>0;
  die "Illeg <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	890	982	
==>uk/cxref/>) to extract information from
the program source about what functions are being cal <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	143	242	
==>strict;
use warnings;

use Data::Dumper;
use File::Basename;

use Parrot::Test;

=head1 NAME

Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367606	367846	
==>n",
                  "CODE" => 430,
                  "ARGS" => [
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 336 \"src/ops/io.ops\"\n  {{\@1}} = PIO <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	21190	21343	
==>{
                push @{$groups{$_}}, @exports;
            }
        }

        # Generate .def file for it.
        # XXX JW Needn't generate these for <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1297	1407	
==>t of errata!
      $_[0]{'Errata_seen'} = 1;
      $_[0]{'Thispara'} = $_[0]{'source_filename'} ?
        "$_[0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514198	514521	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":ba <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515078	515401	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":ba <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	4715	4817	
==>should be
compiled together into a single shared library of the given name. Only
valid for dynamic PMCs <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	600	797	
==>Use the CPAN
shell:

    perl -MCPAN -e shell 
    cpan> install C::Scan 
    ...

=cut

################################################################################

# the following #defined ma <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	20942	21132	
==>= 0;
                    push @init_mmds, [$#mmds + 1, $variant->[0]];
                    $init_mmds{$variant->[0]} = 1;
                }
                else {
                    $right = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	2294	2449	
==>"#line 104 \"src/ops/core.ops\"\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	14495	14598	
==>just cast pointers and expect things to magically align.  Instead
        # of trying to: (int*)&somethi <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	895	995	
==>acros required by the ops.

=cut

sub defines
{
    return <<END;
#define REL_PC ((size_t)((opcode_t* <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1025	1125	
==>acros required by the ops.

=cut

sub defines
{
    return <<END;
#define REL_PC ((size_t)((opcode_t* <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698298	698629	
==>tregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 784 <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	3343	3491	
==>turn @methods;
}


# Generate the lookup table.
# ##########################
sub generate_lookup {
    my @methods = @_;
    my $pir = "";

    # Gro <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1891	1985	
==>turns the value of the I<attrname> attribute for this start-token
object, or undef.

For exampl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376240	376660	
==>[
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 440,
                  "ARGS" => [
                              "i",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#li <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19259	19403	
==>_rxlocals($op),
              );

    return ($back, @ops);
}

# R<0,max>? ->  $matchcount = 0
#               goto next
#        rfail: if $matc <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26391	26508	
==>};
				next;
			}
			last;
		}
	}
}
sub parse_call {
	# Subroutines are disguised as user-defined functions,
	# except <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1236	1367	
==>ure> object.

=cut

sub new
{
    my $class = shift;

    my $self = {
        steps   => [],
        data    => Parrot::Configure:: <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	810	915	
==>GS, ">> CFLAGS") or die "open >> CFLAGS: $!";

    # Why is this here?  I'd think this information belongs <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	3593	3748	
==>efn );
        if ( $type eq 'key' ) {
            push @opcodes, new ConstDir( $parser,
                'prolog' => 1,
                'result' => $def <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	1184	1299	
==>e { return shift->{TYPE}; }
sub text { return shift->{TEXT}; }


#
# dump()
#

sub dump
{
  my $self = shift;

  pri <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11041	11212	
==>ey = pop @{$var};
                    foreach my $key ( @{$var} ) {
                        push @opcodes, @{ $key->[1] };
                        my $result2 = new_tmp( <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9276	9435	
==>ey = pop @{$var};
                foreach my $key ( @{$var} ) {
                    push @opcodes, @{ $key->[1] };
                    my $result2 = new_tmp( <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	1399	1493	
==>rint synopsis.

=item C<--dynamic>

Indicate that the opcode library is dynamic.

=item C<--cor <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	58193	58306	
==>gle (string) argument and
   > builds a Friedl-style optimized regex that matches a string delimited
by any one of <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	12992	13087	
==>elf->cmp_ok($got, 'ne', $dont_expect, $name);
}

sub isnt_num {
    my($self, $got, $dont_expect <==
3	/Users/nnunley/parrot/languages/regex/test.pl	463	557	
==>catfile(catdir($FindBin::Bin, updir(), updir()), "parrot");

sub usage {
    my ($msg, $status) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	489715	490091	
==>,
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 561,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#li <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6217	6304	
==>:-(
prop_type_state[${ITEMP0}] = ${STYPES}
prop_stack_depth[${ITEMP0}] = stack_depth
got <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4155	4242	
==>:-(
prop_type_state[${ITEMP0}] = ${STYPES}
prop_stack_depth[${ITEMP0}] = stack_depth
got <==
3	/Users/nnunley/parrot/config/auto/gc.pm	2089	2173	
==>P_gc_c => <<"EOF",
\$(SRC_DIR)/res_lea\$(O):	\$(GENERAL_H_FILES) \$(SRC_DIR)/res_lea. <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	1515	1642	
==>which happens to contain Pod -- it is just for Pod, plus possibly
#  some extensions.

# @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	1942	2044	
==>";
    }
    $ret;
}

=item C<class_name($self, $class)>

Returns the appropriate C<Parrot::Pmc2c> subc <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	29938	30038	
==>g the right package to look for $TODO in.  It
uses the exported_to() package to find it.  If that's n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846120	846395	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846915	847190	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	2729	2872	
==>utf8.c',
             'exe' => '',
             'exec_prefix' => '/opt/local',
             'execcapable' => 1,
             'flex_version' => u <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349383	349654	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	5103	5208	
==>$ignore = shift;
    my @files = map {$self->file_with_path($_)} $self->file_paths;
    
    if ( $recursi <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	5026	5129	
==>pen MODULE, ">$module"
  or die "$0: Could not open module file '$module' for writing: $!!\n";


#
# Pri <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	4379	4542	
==>"Generated by " . __PACKAGE__ . " from $source"
        );

        if ($options{commentType} eq '#') {
            foreach my $line (@comment) {
                $l <==
3	/Users/nnunley/parrot/languages/converter.pl	235	334	
==>odifier = shift;
  return '' unless defined $modifier->[0];
  return '(?)'  if $modifier->[0] eq '?' <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27542	27647	
==>describe ) . '};
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self->{"lookahead <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29652	29757	
==>describe ) . '};
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self->{"lookahead <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31749	31854	
==>describe ) . '};
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self->{"lookahead <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	988	1158	
==>st::run_command($cmd, CD => $self->{relpath},
                                           STDOUT => $out_f, STDERR => $out_f );
    unless ($pass) {
        my $file = Parr <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1029	1199	
==>st::run_command($cmd, CD => $self->{relpath},
                                           STDOUT => $out_f, STDERR => $out_f );
    unless ($pass) {
        my $file = Parr <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2079	2215	
==>st::run_command($cmd, #CD => $self->{relpath},
					   STDOUT => $out_f, STDERR => $out_f);
  
    unless ($pass) {
      my $file = Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642306	642560	
==>type_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643194	643448	
==>type_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	17479	17571	
==>=head1 NAME

tools/gen_operator_defs.pl - Generate the definitions for all the various
APL op <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	2818	2921	
==>ler
  .get_from_HLL(compiler, '_tcl', 'compile_dispatch')
        
  .local int argc
  .local string pir <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	26089	26190	
==>and Info

=over 4

=item B<current_test>

    my $curr_test = $Test->current_test;
    $Test->current_ <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	931	1110	
==>=
     ( p => "void *",
       i => "int",
       3 => "int *",
       l => "long",
       4 => "long *",
       c => "char",
       s => "short",
       2 => "short *",
       f = <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	1346	1525	
==>=
     ( p => "void *",
       i => "int",
       3 => "int *",
       l => "long",
       4 => "long *",
       c => "char",
       s => "short",
       2 => "short *",
       f = <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	2251	2430	
==>=
     ( p => "void *",
       i => "int",
       3 => "int *",
       l => "long",
       4 => "long *",
       c => "char",
       s => "short",
       2 => "short *",
       f = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404726	405057	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405638	405969	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406550	406881	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33629	33757	
==>} ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcodes2, @{ $expr->[1] };
        my $callop = po <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8830	8917	
==>PackFile_FixupEntry *fe = PackFile_find_fixup_entry(interpreter,\n\t    enum_fixup_label <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9946	10033	
==>PackFile_FixupEntry *fe = PackFile_find_fixup_entry(interpreter,\n\t    enum_fixup_label <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714824	715074	
==>ter, io, 1);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715747	715997	
==>ter, io, 1);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716692	716942	
==>ter, io, 1);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688510	688884	
==>=> "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 773,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BOD <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2929	3030	
==>is line in subroutine one should be skipped"
Label2:
   PRINT "4 back in subroutine one"
   RETURN Lab <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16896	16997	
==>is line in subroutine one should be skipped"
Label2:
   PRINT "4 back in subroutine one"
   RETURN Lab <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16280	16386	
==>w($block, $token);

      $self->require_assign;

      my $left  = Jako::Construct::Expression::Value->new <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17051	17157	
==>w($block, $token);

      $self->require_assign;

      my $left  = Jako::Construct::Expression::Value->new <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17856	17962	
==>w($block, $token);

      $self->require_assign;

      my $left  = Jako::Construct::Expression::Value->new <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818862	818986	
==>ops/stack.ops\"\n  Parrot_pop_regs(interpreter);\n  {{=0,+=1}};\n",
                  "LABELS" => []
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028123	1028216	
==>G_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_event(interpreter, (FL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028974	1029067	
==>G_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_event(interpreter, (FL <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2031	2135	
==>print {$FH}
                "  $op->{result}->{symbol} = $op->{op} $op->{arg1}->{symbol}, $op->{arg2}->{ <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2290	2390	
==>print {$FH}
            "  $op->{result}->{symbol} = $op->{op} $op->{arg1}->{symbol}, $op->{arg2}->{ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1673	1769	
==>SCRIPTION

This class is not of interest to general users.

Pod::Simple uses this class for repre <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6676	6813	
==>1)=A$(I)
         A$(I)=B$
         ' SWAP A$(I - 1), A$(I)
      END IF
   NEXT
WEND
 ' CLS
FOR I = 1 TO 4
   PRINT A$(I)
NEXT I
END

' m <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	6191	6324	
==>e-end
          /$1$2\n/gx     # and put a NL before those spaces
        if $WRAP;
        # This may wrap at well past the 65th colu <==
3	/Users/nnunley/parrot/Configure.pl	8238	8328	
==>$args{debugging}) && !$args{debugging});
$args{maintainer} = 1 if defined $args{lex} or def <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1503	1637	
==>: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
        return "return (0);"
    }
    else
    {
        return "if ((opcode_t * <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2028	2161	
==>: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
        return "return (0);"
    }
    else
    {
  	    return "if ((opcode_t * <==
3	/Users/nnunley/parrot/lib/Test/More.pm	2125	2233	
==>ss);

  pass($test_name);
  fail($test_name);

  # UNIMPLEMENTED!!!
  my @status = Test::More::status;

  # U <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146386	146647	
==>{{\@1}}, {{\@2}}, MMD_EQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167612	167873	
==>{{\@1}}, {{\@2}}, MMD_EQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	3480	3630	
==>-Wlong-long
            # Ha. this is the default! with -pedantic.
            # -Wno-long-long for the nicest bit of C99
            #
            # - <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	612	740	
==>e) = @_;
        Class::Struct::_subclass_error();
    }

    sub FETCH {
        my ($self, $index) = @_;
        $self->[$index <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	15034	15160	
==>ieces' => 52
		}
	},
	{#State 33
		ACTIONS => {
			'CHAR' => 34,
			">" => 53
		}
	},
	{#State 34
		DEFAULT => -27
	},
	{#State <==
3	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	2261	2350	
==>rrot_config */

void
Parrot_set_config_hash(void)
{
    Parrot_set_config_hash_internal(pa <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1701	1800	
==>erit these methods:

=over

=item $token->type

This returns the type of the token.  This will be ei <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51700	51791	
==>line 815 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_trace(interpreter,   {{\@1}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52483	52574	
==>line 815 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_trace(interpreter,   {{\@1}} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	400	532	
==>OR:
#

sub new
{
  my $class = shift;
  my ($compiler) = @_;

  return bless {
    FILE     => undef,
    LINE     => undef,
    TOKE <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	1956	2063	
==>>preamble($trans);

    my $length = length($pf->byte_code);

    # First instruction in bytecode must be th <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	4269	4363	
==>er via \$thiscolumn\n";
}


package Parse::RecDescent::OffsetCounter;

sub TIESCALAR	# ($classn <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609347	609440	
==>c/ops/object.ops\"\n    {{\@1}} = VTABLE_get_attr_str(interpreter, {{\@2}}, {{\@3}});\n    {{+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610255	610348	
==>c/ops/object.ops\"\n    {{\@1}} = VTABLE_get_attr_str(interpreter, {{\@2}}, {{\@3}});\n    {{+ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	5823	5986	
==>Z'\x80-\xFF]+[\$\@\:_<>\(\\\*]\S+
          )
         )
        /\cb$1\cc/xsg
      ;
      
      rtf_esc($scratch);
      $scratch =~
         s/(
            [^ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	72759	72856	
==>::RecDescent';";
	$self->{"startcode"} = '';

	my $rule;
	foreach $rule ( values %{$self->{"rules" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355164	355254	
==>VTABLE_get_string(interpreter, p));\n  if (s) {\n    PIO_putps(interpreter, PIO_STDOUT(inte <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4998	5117	
==>er->emit("  global \"$dest_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($h <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3061	3180	
==>er->emit("  global \"$dest_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($h <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1746	1841	
==>type()>

Implemented in subclasses to return the type of core created by the
transform. This def <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552860	552952	
==>string(interpreter, method_pmc);\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556855	556947	
==>string(interpreter, method_pmc);\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560878	560970	
==>string(interpreter, method_pmc);\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	1724	1849	
==>$class;
}


#
# indent()
#

sub indent
{
  my $self = shift;
  $self->{INDENT} += 4;
}


#
# outdent()
#

sub outdent
{
  my $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42300	42389	
==>"#line 727 \"src/ops/core.ops\"\n  do_exception(interpreter, EXCEPT_exit, {{\@1}});\n  {{= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42990	43079	
==>"#line 727 \"src/ops/core.ops\"\n  do_exception(interpreter, EXCEPT_exit, {{\@1}});\n  {{= <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5767	5870	
==>one, skipping...\n";
			} else {
				push @{$code{$seg}->{code}}, "IFBRANCH_$_:\n";
			}
			while($_=pop <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	262	363	
==>HEADING;
Name & Done & Total & Percent \\\\
\\hline
HEADING
foreach (@results) {
	print "$_->{'na <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8115	8214	
==>one, skipping...\n";
		} else {
			push @{$code{$seg}->{code}}, "IFBRANCH_$_:\n";
		}
		while($_=pop <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943301	943510	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944089	944298	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
3	/Users/nnunley/parrot/lib/Test/More.pm	31223	31333	
==>ocal @Data_Stack;
    return _deep_check(@_);
}

sub _eq_hash {
    my($a1, $a2) = @_;

    if( grep !_type($_) <==
3	/Users/nnunley/parrot/languages/urm/urm-old.pl	1516	1634	
==>);
	if ($register{$1} < 0) { $register{$1} = 0 }
	$pos++;
    }
    elsif ($line =~ / *goto *(\d+)/) {
	$pos=$1 ;
    } <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	4826	4930	
==>pends);
    }
}

## misc. test utilities

multi sub skip (Str $reason?, :$depends) returns Bool is export <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	8377	8468	
==>pt_targets'} } if wantarray;
  return;
}

#------------------------------------------------- <==
3	/Users/nnunley/parrot/languages/regex/test.pl	3669	3774	
==>s = system("$PARROT_EXE", "-o", $pbc, $pir);
    if (! defined($status) || $status) {
        die "assembl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840154	840237	
==>tack.ops\"\n  rotate_entries(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840849	840932	
==>tack.ops\"\n  rotate_entries(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	53141	53258	
==>', # ESC
  "\f" => '\f', # FF
  "\t" => '\t', # tab
  "\cm" => '\cm',
  "\cj" => '\cj',
  "\n" => '\n', # probably ove <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	8728	8838	
==>q "BARE") {
			$this->[0]=changename($this->[0]);
		}

		push(@expr, $foo[$t]);
		
		# Functions, array lookups <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	16490	16592	
==>}
	if ($ops) {
		print CODE<<OPS;
	I5= P14
	div I5, I5, 2
CASE_${jump}_${incase}_STARTOPS:
	eq I5, 1, C <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5894	6014	
==>$token)
            or	do {
				($$token,$$value)=&$lex($self);
#DBG>				$debug & 0x01
#DBG>			and	print STDERR "Need <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5613	5729	
==>$token)
            or	do {
				($$token,$$value)=&$lex($self);
#DBG>				$debug & 0x01
#DBG>			and	print STDERR "Need <==
3	/Users/nnunley/parrot/config/auto/jit.pm	2459	2549	
==>arch/$jitarchname.s") {
        copy_if_diff("$jitbase/$cpuarch/$jitarchname.s", "src/asmfu <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2686	2821	
==>} else {
        $liblist = join( ' ', map { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        " <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2995	3130	
==>} else {
        $liblist = join( ' ', map { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        " <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2790	2925	
==>} else {
        $liblist = join( ' ', map { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        " <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2069	2176	
==>lexical scope, we want to complain
  # about the redefinition. Otherwise, we assume the programmer wanted to <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1589	1696	
==>lexical scope, we want to complain
  # about the redefinition. Otherwise, we assume the programmer wanted to <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1816	1923	
==>lexical scope, we want to complain
  # about the redefinition. Otherwise, we assume the programmer wanted to <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946336	946624	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_charset",
                  "FLAGS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947237	947525	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_charset",
                  "FLAGS <==
3	/Users/nnunley/parrot/config/gen/config_h.pm	1711	1827	
==>ne = $conf->options->get('define');

    if ($define) {
        my @vals = split /,/, $define;
        print HH <<EOF <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1842	1955	
==>n line %d of file '%s'.",
      $name, $sym->line, $sym->file);
  }

  #
  # Now that we've decided to actually de <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2356	2468	
==>my ($self, $what) = @_;
    $what = value($what);
    return ("print $what;");
}

sub output_test {
    my ($self <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2673	2784	
==>my ($self, $what) = @_;
    $what = value($what);
    return ("print $what");
}

sub output_test {
    my ($self <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2871	2987	
==>f = shift;
	my ($pops, $pushes) = @_;
	my $register_num = 0;
	my $push_num = 0;
	my $pir = '';

	# Do code for each p <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1793	1909	
==>f = shift;
	my ($pops, $pushes) = @_;
	my $register_num = 0;
	my $push_num = 0;
	my $pir = '';

	# Do code for each p <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	3187	3274	
==>Parrot_lib_${lc_libname}_load(Parrot_INTERP interpreter); /* don't warn */
Parrot_PMC Pa <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	11073	11222	
==>gs
            convert_line_endings( $expected );

            # set up default description
            unless ( $desc ) {
               (undef, my $ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	16558	16707	
==>gs
            convert_line_endings( $expected );

            # set up default description
            unless ( $desc ) {
               (undef, my $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	27613	27709	
==>ave to use the fallback(s), which might be '0', or '1'.
      $self->{'accept_codes'}{$new_letter <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	4800	4926	
==>!'      => \$Init,
		   'uninit|u!'    => \$Uninit,
		   'const|C!'     => \$Const,
		   'global|g!'    => \$Global,
		   'loca <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3724	3820	
==>props = $self->block->props;

      $self->SYNTAX_ERROR("Sub declaration has no fnlib property, a <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6388	6484	
==>props = $self->block->props;

      $self->SYNTAX_ERROR("Sub declaration has no fnlib property, a <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	11174	11278	
==>ewlines($pre);
    $classblock = substr($classblock, 1,-1); # trim out the { }

    my (@methods, %meth_h <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	505	608	
==>ule Parse::Yapp::Driver
#
# This module is part of the Parse::Yapp package available on your
# neares <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	491	591	
==>ule Parse::Yapp::Driver
#
# This module is part of the Parse::Yapp package available on your
# neares <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75459	75759	
==>YPE" => "function",
                  "CODE" => 98,
                  "ARGS" => [
                              "p",
                              "p",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 1156 \"src/op <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	51366	51495	
==>d.
    my $x= "...";
    while(@stack) {
      push @{ $lineage[-1] }, '' if 2 == @{ $lineage[-1] };
      # Hmmmmm!

      my $co <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	1529	1646	
==>ned in the public headers.

If code: see L</"Public or Private">.

If data: see L</"Data is not an API">.

=item Unini <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4244	4350	
==>l if ord(substr(<rx_input>, <rx_pos>, 1)) != $code;" . $comment);
    if ($self->{DEBUG}) {
        push @o <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2097	2193	
==>efaults to a recursive \" find . \".\n\n".
		"--plus-misses creates a second section, with the he <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	32126	32228	
==>c)->to_ctx->current_results;\n        if (results) {\n\t    /* get results PMC index and get PMC. */\n\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828712	828805	
==>, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_PMC) {\n    internal_excepti <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829780	829873	
==>, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_PMC) {\n    internal_excepti <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	30202	30313	
==>_vector {
}

sub _op_vector_length {
}

sub _op_vector_ref {
}

sub _op_vector_set_bang {
}

sub _op_vector_list <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848215	848305	
==>Y" => "#line 78 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@1}}, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848995	849085	
==>Y" => "#line 78 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@1}}, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632710	633016	
==>\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ne <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633752	634058	
==>\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ne <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	1668	1804	
==>pass1($_, $ctx) } @{ $t->{args} };
        if (@children == 1) {
            return $children[0];
        }

        for (@children) { cr <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	838	951	
==>->{builder}->current_test + 1;

        # flatten filenames (don't use directories)
        my $lua_test = $ENV <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	10458	10567	
==>=0
g=0
if t then
	print "Wrong"
else 
	if g then
		print "Wrong again"
	else 
		print "Correct"
	end if
end if <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	14762	14883	
==>o.h
tolower     ctype.h
toupper     ctype.h
trunc       math.h
truncf      math.h
truncl      math.h
ungetc      stdio.h
v <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1021	1120	
==>> 2 and print "Handling $_[1] end-event\n";
  shift @{$_[0]{'_currpos'}};
  DEBUG > 3 and print "Sta <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	711	808	
==>lude "languages/lua/lib/luadebug.pir"

.sub __start :main
#  print "start Lua\n"
  init_basic( <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1861	1958	
==>cs::Section::BigNum->new,
        Parrot::Docs::Section::Compilers->new,
        Parrot::Docs::Sec <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	34630	34724	
==>he substring, and any other kind of
("non-delimiter") bracket in the substring is ignored.

For <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	32753	32874	
==>p_or,
  'let'        => \&_op_let,
  'let*'       => \&_op_let_star,
  'letrec'     => \&_op_letrec,
  'begin'      => \&_ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	1511	1620	
==>red shell single sleep
				sound static stop sub swap system step
			then 
			time_NOTYET$ 
			timer troff tro <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	740	868	
==>, $desc ) = @_;
  
        my $count = $self->{builder}->current_test + 1;

        my $language = 'HQ9plus';
        # flatten f <==
3	/Users/nnunley/parrot/lib/Test/More.pm	10142	10253	
==>k( $this, 'eq', $that, 'this eq that' );

    # ok( $this == $that );
    cmp_ok( $this, '==', $that, 'this == t <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8150	8258	
==>t from 9 to 0, print 5
dim y(10)
i=10
tloop:
	y(i)=i
	i=i-1
	print i
	if i then goto tloop
print y(5)


' Col <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085522	1085803	
==>1204,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 163 \"src/ops/experimental.ops\"\n    {{ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2385	2490	
==>t_sym->type;
  }
  else {
    $right_type = $right->type;
  }

  $self->INTERNAL_ERROR("No type for dest!" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2307	2412	
==>t_sym->type;
  }
  else {
    $right_type = $right->type;
  }

  $self->INTERNAL_ERROR("No type for dest!" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25859	26004	
==>p, $right);
      }

      push @{$self->{BLOCKS}}, $cond;
      next;
    }

=begin commented_out

    #
    # Bare Blocks:
    #
    #   <label> <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1895	2000	
==>ree($expr, $ctx, %options);
    for my $tree (@$trees) {
        my $code = tree_to_list($tree, $ctx, $pas <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	2166	2253	
==>:Dumper->Dump([$m],["*MATCH_OBJECT"]);
my $mini = minimatch($m);
print Data::Dumper->Dum <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938562	938674	
==>tring.ops\"\n    {{\@1}} = string_join(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939452	939564	
==>tring.ops\"\n    {{\@1}} = string_join(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/config/inter/charset.pm	791	893	
==>f->options->get('ask')) {
        print <<"END";


The following charsets are available:
  @charset
END <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544285	544395	
==>_var1 = a, saved_var2 = b; \n\n if(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545621	545731	
==>_var1 = a, saved_var2 = b; \n\n if(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546957	547067	
==>_var1 = a, saved_var2 = b; \n\n if(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>> <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	1841	2015	
==>s written into same output file
            my $exit_code = Parrot::Test::run_command( 
                                \@test_prog, 
                                CD     => <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2389	2520	
==>s written into same output file
        my $exit_code = Parrot::Test::run_command(
            \@test_prog,
            CD     => <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22518	22619	
==>d'   ,[$temp_0,$temp_0,$temp_1]);
  $self->_add_inst(''           ,'eq'    ,[$temp_0,1,"DONE_$label"]) <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3700	3807	
==>p_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert X.c -> X.o for all X <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3804	3911	
==>p_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert X.c -> X.o for all X <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	6891	7047	
==>ragma} )
            {
                my $callop = $val->[1]->[-1];
                $callop->{result}[0]->{pragma} = 'multi';
                push @opco <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	6352	6505	
==>) \@ }{
            if(defined(my $val=$conf->data->get($1))) {
                #use Data::Dumper;warn Dumper("val for $1 is ",$val);
                $val <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243918	244009	
==>e 632 \"src/ops/cmp.ops\"\n  STRING* l = VTABLE_get_string(interpreter, {{\@2}});\n  {{\@1}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244850	244941	
==>e 632 \"src/ops/cmp.ops\"\n  STRING* l = VTABLE_get_string(interpreter, {{\@2}});\n  {{\@1}} <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3154	3258	
==>P.c files

    generate_dump($_) foreach (@pmcs);
    generate_c($_) foreach (@pmcs);

    my ($group_fil <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3258	3362	
==>P.c files

    generate_dump($_) foreach (@pmcs);
    generate_c($_) foreach (@pmcs);

    my ($group_fil <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	27281	27380	
==>)

	$patstring = gen_delimited_pat(q{'"`/});


# Generate a reference to an anonymous sub that is ju <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2820	2937	
==>sion}     = $1;
  $html =~ /duration: (\d+)/       and $smoke{duration}     = $1;
  $html =~ /VERSION: ([\d\.]+)/    a <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1771	1866	
==>olves undefined type name!")
    unless defined $type_name;

  $self->INTERNAL_ERROR("Constant d <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	17360	17590	
==>ops/core.ops\"\n  if ({{\@1}} != 0.0) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10958	11061	
==>t = _slurp('./test.out');

    return $output;
}

=item C<cc_clean()>

Cleans up all files in the root f <==
3	/Users/nnunley/parrot/config/init/hints/linux.pm	1171	1272	
==>CE=600 doesn't work with glibc 2.1.3
        # _XOPEN_SOURCE=500 gives 2 undefined warns (setenv, unse <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	4715	4812	
==>different than the rest of the
universe, and perl does horrible mangling to them that gets in my w <==
3	/Users/nnunley/parrot/lib/Test/More.pm	20487	20581	
==>t passing, tests.

It's important that $how_many accurately reflects the number of tests
in the <==
3	/Users/nnunley/parrot/lib/Test/More.pm	606	806	
==>cmp_ok
             skip todo todo_skip
             pass fail
             eq_array eq_hash eq_set
             $TODO
             plan
             can_ok  isa_ok
             diag
            );

my <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	7553	7660	
==>N PROGRAM:
#

@ARGV = qw(-) unless @ARGV;

foreach (@ARGV) {
    compile_file($_)
}

exit 0;

__END__

=begi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714710	714804	
==>puts(interpreter, io, \" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n    PIO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715633	715727	
==>puts(interpreter, io, \" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n    PIO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716578	716672	
==>puts(interpreter, io, \" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n    PIO <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	1877	1972	
==>message [default] " and waits for the user's response. Returns the
response, or the default if t <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3421	3515	
==>XML::Parser/"Tree">

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All r <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	38643	38736	
==>e, to extract an arbitrary XML tag, but ignore "empty" elements:

	extract_tagged($text, undef <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19299	19391	
==>If the title can't be found, then get_short_title returns empty-string
("").

=item $author_n <==
3	/Users/nnunley/parrot/Configure.pl	352	446	
==>cific files before building Parrot.

=head2 Command-line Options

General Options

=over

=item <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	702	794	
==>VERSAL::isa($type, qw(Jako::Construct::Type));
  confess "Identifier (" . ref($ident) . ") is <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	727	818	
==>VERSAL::isa($type, qw(Jako::Construct::Type));
  confess "Identifier (". ref($ident) . ") is <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	691	782	
==>VERSAL::isa($type, qw(Jako::Construct::Type));
  confess "Identifier (". ref($ident) . ") is <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1169	1260	
==>slurp_file($out_f);
        $pass =$self->{builder}->is_eq( Parrot::Test::slurp_file($out_f) <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1210	1301	
==>slurp_file($out_f);
        $pass =$self->{builder}->is_eq( Parrot::Test::slurp_file($out_f) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101370	101808	
==>AME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 126,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102140	102409	
==>AME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 12 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103576	103845	
==>AME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 12 <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1130	1237	
==>ss) {
        my $file = Parrot::Test::slurp_file($out_f);
        $pass =$self->{builder}->is_eq( Parrot::T <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1171	1278	
==>ss) {
        my $file = Parrot::Test::slurp_file($out_f);
        $pass =$self->{builder}->is_eq( Parrot::T <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	33761	33866	
==>b SLICE_plus_2 {
    return Slice(@_, 2);
}
sub SLICE_plus_3 {
    return Slice(@_, 3);
}

sub Store_Slice <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	97654	97897	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnot",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	99053	99296	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnot",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9030	9117	
==>k}{prevoffset}?'
	my $prevoffset;
	tie $prevoffset, q{Parse::RecDescent::OffsetCounter}, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	36356	36600	
==>ter, eh);\n  {{+=2}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clear_eh <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730527	730748	
==>CODE" => 819,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 124 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2} <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	5074	5185	
==>arams => 0);

  #print "HTTP/1.0 200 OK\n";
  print $CGI->header;

  my $category = sub {
    return sprintf "%s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305147	305410	
==>RELATIVE",
                  "NAME" => "if_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305935	306198	
==>RELATIVE",
                  "NAME" => "if_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2450	2555	
==>$self->INTERNAL_ERROR("No type for dest!")  unless defined $dest_type;
  $self->INTERNAL_ERROR("No type fo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2372	2477	
==>$self->INTERNAL_ERROR("No type for dest!")  unless defined $dest_type;
  $self->INTERNAL_ERROR("No type fo <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1830	1951	
==>{
        return "<rx_pos> -= $distance;";
    }
}

sub output_add {
    my ($self, $var, $arg1, $arg2) = @_;
    my $real <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10048	10160	
==>aren { 0 }

# Nonportable
sub isplain {
    my $ord = shift;
    return 1 if $ord >= ord('a') && $ord <= ord('z') <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	1190	1295	
==>h> defaults
to F<index.html> if undefined or an empty string is supplied.

C<@contents> is one or more sec <==
3	/Users/nnunley/parrot/examples/benchmarks/addit.pl	110	200	
==>006-05-30T13:32:26.641316Z coke  $

=head1 NAME

examples/benchmarks/addit.pl - Variable Ar <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	14332	14479	
==>_ops,
                     aop('goto', [ $next ]),
            $back => aop('popindex', [ $lastback ]),
                     aop('goto', [ $try_S ]) <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	53195	53330	
==>ent is omitted (or
C<undef>) the list:

        [
                sub { extract_variable($_[0], '') },
                sub { extract_quo <==
3	/Users/nnunley/parrot/lib/Test/More.pm	20183	20295	
==>_ok( $lint, "HTML::Lint" );

        $lint->parse( $html );
        is( $lint->errors, 0, "No errors found in HTM <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5749	5861	
==>eturn $pir;
}

sub post_branch($) {
	my $self = shift;
	my $pops = shift;
	my $pir = '';

	# Branches mean we nee <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3687	3799	
==>eturn $pir;
}

sub post_branch($) {
	my $self = shift;
	my $pops = shift;
	my $pir = '';

	# Branches mean we nee <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21804	21898	
==>}


1;

package Parse::RecDescent::Directive;

sub sethashname { $_[0]->{hashname} = '__DIRECTI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121254	121581	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123950	124277	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124824	125151	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  " <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	4820	4957	
==>ptional};
        
        # the actual thing to be compiled
        $code .= "  \$P0 = argv[$i] \n";
        # the register behind this a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572988	573077	
==>ng);\n  VTABLE_set_string_native(interpreter, name, {{\@2}});\n  {{\@1}} = pmc_new_init(in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573898	573987	
==>ng);\n  VTABLE_set_string_native(interpreter, name, {{\@2}});\n  {{\@1}} = pmc_new_init(in <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	1617	1722	
==>ck of that for you).

  # This produces "ok 1 - Hell not yet frozen over" (or not ok)
  ok( get_temperatur <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	8088	8190	
==>$file, $line);
    }
  }

  push @{$self->{TOKENS}}, Jako::Token->new_eof($file, $line);

#  $self->DEB <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	8881	8983	
==>Continuing a paragraph but \@\$paras is empty?";
      }
      $self->{'last_was_blank'} = $self->{'sta <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	15656	15764	
==>extra, $extra{todo}, $call_pkg ) if ( keys %extra );
            local *{ $call_pkg . '::TODO' } = \$extra{to <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	18207	18315	
==>extra, $extra{todo}, $call_pkg ) if ( keys %extra );
            local *{ $call_pkg . '::TODO' } = \$extra{to <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	37	130	
==>pm 18020 2006-03-26T19:46:16.084129Z bernhard  $

package Parrot::Test::Punie;

use strict;
us <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2335	2449	
==>b output_print {
    my ($self, $what) = @_;
    $what = value($what);
    return ("print $what;");
}

sub output_t <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2652	2765	
==>b output_print {
    my ($self, $what) = @_;
    $what = value($what);
    return ("print $what");
}

sub output_t <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	35702	35798	
==>'> is unbalanced. (In a scalar context, this call would
return an empty string. In a void context <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023388	1023499	
==>n  Parrot_localtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024238	1024349	
==>n  Parrot_localtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  "L <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	5389	5487	
==>eNum="dsFloat" />
      <itemData name="Int" defStyleNum="dsDecVal" />
      <itemData name="Label" <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	5879	6010	
==>tack;
  my $dont_wrap = 0;
  while($token = $self->get_token) {

    # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	6361	6481	
==>, "$nm_cmd $nm_opt $f |")) {
	my $o = "?";
	$o = $f if $f =~ /\.o$/;
	my $file;
	while(<NM>) {
	    chomp;
	    if (m/^(. <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8021	8126	
==>,
);


# Fill out %Name2character...
{
  %Name2character = ();
  my($name, $number);
  while( ($name, $num <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9822	9916	
==>ift ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over each parameter and put them into ${PARAM <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7336	7430	
==>ift ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over each parameter and put them into ${PARAM <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6300	6394	
==>ift ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over each parameter and put them into ${PARAM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	410455	410753	
==>MP" => 0,
                  "NAME" => "send",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411347	411645	
==>MP" => 0,
                  "NAME" => "send",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1359	1463	
==>->content) {
      $compiler->emit(".namespace ${namespace}_THEN");
      $compiler->indent;
      $self- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305127	305390	
==>MP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305915	306178	
==>MP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  " <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	1324	1448	
==>[CURR] ne ")") {
				feedme;
			}
			feedme;
		}
		$stype="";
		$user=0;
		if ($syms[CURR] eq "as") {
			feedme;
			$stype=$s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	785	1233	
==>? $self->{LINE} : '';
}


###############################################################################
###############################################################################
##
## TOKEN PROCESSING:
##
###############################################################################
###############################################################################


#
# tokens()
#

sub tokens
{
  my $self = shift;

  if (@_) {
    $self->{ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19419	19530	
==>as the specified
		       			  \"auto-action\" automatically
					  appended.");
	}
	elsif ($parser->{_AUTOTREE} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	306507	306757	
==>LS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307300	307550	
==>LS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless_ <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	4397	4495	
==>allable_//; # parrot with different config
        $dest = File::Spec->catdir($options{bindir}, $de <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219647	219813	
==>"sc",
                              "ic"
                            ],
                  "BODY" => "#line 469 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	17977	18082	
==>>{"uncommit"} ? '' : ' && !$commit')
	. ')
	{
		' .
		($self->changesskip()
			? 'local $skip = defined($s <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	4015	4108	
==>rint CODE<<FOO;
.sub _DEBUG_INIT
	saveall
	\$P0=new .PerlArray
	find_global \$P1, "DEBUGGER"
F <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400191	400420	
==>"p",
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpr <==
3	/Users/nnunley/parrot/config/init/hints/irix.pm	606	720	
==>ead';
    }
    $conf->data->set(libs => $libs);

    my $cc   = $conf->data->get('cc');
    my $cxx  = $conf->data <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7305	7434	
==>paragraph_buffer();
         # by now it's safe to consider the previous paragraph as done.
                
        push @$paras, <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	8271	8383	
==>paragraph_buffer();
         # by now it's safe to consider the previous paragraph as done.
        push @$paras, <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	5318	5400	
==>)/$1\\\n\tParrot_exec_add_text_rellocation(jit_info->objfile, NULL, RTYPE_DATA, "co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669416	669700	
==>AME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 749,
                  "ARGS <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	889	984	
==>s definitions their declarations), bad things are listed
with C<--->.

=over 4

=item Missing Pa <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	7824	7913	
==>. '"};
	'.($::RD_NO_TRACE?'':'
	Parse::RecDescent::_trace(q{Trying rule: [' . $self->{"nam <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	2549	2651	
==>ds);
	return 0;
}
sub precedence {
	my ($op, $next)=@_;
	#print STDERR "Precedence with '$op' and '$nex <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	749	848	
==>::Construct::Block));
  confess "Type (" . ref($type) . ") is not!"   if defined $type and not UNIVE <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	632	728	
==>::Construct::Block));
  confess "Type (". ref($type) . ") is not!" if defined $type and not UNIVE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181952	182342	
==>core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 217,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	1576	1675	
==>ode for a C<return> statement, if the body is empty then
make a cast if needed.

This method is impo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227436	227699	
==>ter, {{\@1}}), {{\@2}}) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228416	228679	
==>ter, {{\@1}}), {{\@2}}) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4528	4630	
==>qnum++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		return(<<CODE, $result);
	# OR $a1, $a2
	set $result, <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35725	35827	
==>many failed.  If
you run less (or more) tests than you planned, the missing (or extras)
will be conside <==
3	/Users/nnunley/parrot/lib/Test/More.pm	33796	33898	
==>many failed.  If
you run less (or more) tests than you planned, the missing (or extras)
will be conside <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2592	2694	
==>many failed.  If
you run less (or more) tests than you planned, the missing (or extras)
will be conside <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540508	540617	
==>=0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541760	541869	
==>=0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543012	543121	
==>=0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191394	191645	
==>DE" => 227,
                  "ARGS" => [
                              "p",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 313 \"src/ops/cmp.ops\"\n  if ({{\@1}}- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710732	710824	
==>o, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711566	711658	
==>o, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL) <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	7602	7725	
==>ENT_TYPE, ... };

    package Myobj;
    use Class::Struct;
            # declare struct with four types of elements:
    st <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	22385	22484	
==>OPY_$_->[1]
	P2["storage"]= P1
	P6= P5		# Go back to where we were!
	P2["_type"]= '$_->[1]'
	P3["$_- <==
3	/Users/nnunley/parrot/config/auto/snprintf.pm	117	214	
==>75Z coke  $

=head1 NAME

config/auto/snprintf.pm - Test for snprintf

=head1 DESCRIPTION

Tests i <==
3	/Users/nnunley/parrot/examples/benchmarks/arriter.pl	676	818	
==>E F G H I J )
for my $e (0..3) {
    for ($i = 0; $i < 10; $i++) {
	for $s (@k) {
	    my $nk = $s . chr(65 + $i);
	    push @nk, $nk;
	}
    } <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	6529	6636	
==>n){2,}/\n\n/sg; # excess blank lines
    s/^\s*//s; s/\s*$/\n/s; # trim (and ends with a newline)
    s/^ {0 <==
3	/Users/nnunley/parrot/languages/converter.pl	31	125	
==>ter.pl - convert BNF grammar to a Parse::RecDescent grammar

=head1 DESCRIPTION

An early attem <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2988	3080	
==>pt}{library};

    $hout .= <<"EOH";
Parrot_PMC Parrot_lib_${lc_libname}_load(Parrot_INTERP i <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34027	34131	
==>d = ' . ($rule->hasleftmost($self) ? 'q{}'
				# WAS : 'qq{'.$self->describe.'}' ) . ')->($text);
				: ' <==
3	/Users/nnunley/parrot/config/inter/charset.pm	1216	1319	
==>nter/charset.pm'

E_NOTE

    foreach my $charset (split(/\s+/, $charset_list)) {
        $charset =~ s/ <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	2961	3057	
==>{data})
}

sub b64digest {
	md5_base64(shift->{data})
}

sub md5(@) {
	my $message = padding(join <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	16768	16863	
==>$post_load, { %$mv, LOADREG => 'loadreg' }, "post_load for typed exception handler");
	$pir .= " <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	652	766	
==>r,

    CONTENT   => [ ]
  }, $class;

  $block->push_content($self);

  return $self;
}

sub peer { return shift-> <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2235	2328	
==>MP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Decrement stack height.
dec stack <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3487	3580	
==>MP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Decrement stack height.
dec stack <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353718	353948	
==>erpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354463	354693	
==>erpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355230	355460	
==>erpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	1231	1340	
==>e = sub { print @_, "\n"; exit };

	my ($package, $file, $line) = caller;
	if (substr($file,0,1) eq '-' && $li <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4890	4977	
==>S', 'STATES', 'LEX', 'ERROR' };
	my($errstatus,$nberror,$token,$value,$stack,$check,$do <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4649	4735	
==>S', 'STATES', 'LEX', 'ERROR' };
	my($errstatus,$nberror,$token,$value,$stack,$check,$do <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9017	9110	
==>TEMP0} = concat ${STEMP1}
goto POST_STORE_${CURIC}_CONT

# Can do a lazy move.
POST_STORE_${CU <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7623	7833	
==>port it as a BUG.\n";
                $$dotpos = $1;
            };

            @sempar =       $$dotpos
                        ?   map { $$_[1] } @$stack[ -$$dotpos .. -1 ]
                        :   ( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7276	7480	
==>port it as a BUG.\n";
                $$dotpos = $1;
            };

            @sempar =       $$dotpos
                        ?   map { $$_[1] } @$stack[ -$$dotpos .. -1 ]
                        :   ( <==
3	/Users/nnunley/parrot/lib/File/Which.pm	4060	4155	
==>le files, but uses special extensions such as C<.exe> and
C<.bat> to identify them, C<File::Whic <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	196	336	
==>abc');
  p6rule_is("   int argc ",
    [
        [ type    => 'int | double | float | char' ],
        [ ident   => '\w+' ],
        [ _MASTE <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	2487	2604	
==>me()>

Returns the name part of the path.

=cut

sub name
{
    my $self = shift;
    
    return $self->{NAME};
}

=i <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2686	2784	
==>ndex_html = '';
	
	print "\n\n", $self->name unless $silent;
	
	foreach my $content ($self->content <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	8211	8337	
==>ps = sort grep { !/^\./ && /\.ops$/ } readdir OPS;
        closedir OPS;

        my $pod = join " ", map { my $t = $_; $t =~ s <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31012	31133	
==>es, new BranchOp( $parser,
        'result' => $lbl_loop,
    );
    push @opcodes, new LabelOp( $parser,
        'arg <==
3	/Users/nnunley/parrot/config/inter/lex.pm	634	752	
==>x?";
@args        = qw( lex ask maintainer );

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->opti <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21368	21469	
==>f->_restore($temp);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21753	21854	
==>f->_restore($temp);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22138	22239	
==>f->_restore($temp);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$ <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5443	5594	
==>$_->{symbol}";
                if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                    print {$FH} " :slurpy";
                } <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6475	6626	
==>$_->{symbol}";
                if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                    print {$FH} " :slurpy";
                } <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	14083	14181	
==>st does not fit into one of the standard
testing functions. In that case, you can use the rather bl <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	67287	67392	
==>= $self->{"rules"}{$name}->expected }
				$item = new Parse::RecDescent::Subrule($name,
								       $lo <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	3679	3784	
==>ift;
  print OUTPUT "loadlib P1, '$line'\n";
}

sub def_line {
  my $line = shift;
  my ($return_type, $na <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	2795	2893	
==>er reads a list of tokens and turns it into a tree structure.

=head1 AUTHOR

Jeffrey Goff, drforr@ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30659	30813	
==>6,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" = <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40009	40163	
==>6,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" = <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41636	41790	
==>6,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" = <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2732	2842	
==>cluded,\nwith the heads of these indescribable files.\n";
    }
    print "\n";
    my @no_descriptions;
    fo <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12718	12811	
==>push @args, qq{""};
	}
	feedme();
	push @{$code{$seg}->{code}}, "\t_RESTORE(" . join(",",@args <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2133	2236	
==>therwise, we assume the programmer wanted to shadow the
  # previous definition.
  #

  if (defined $sym <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1653	1756	
==>therwise, we assume the programmer wanted to shadow the
  # previous definition.
  #

  if (defined $sym <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1880	1983	
==>therwise, we assume the programmer wanted to shadow the
  # previous definition.
  #

  if (defined $sym <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	22751	22857	
==>_tmp( $parser, 'pmc', 'boolean' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result, <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	5327	5427	
==>(@ParrotAPI) {
	printf "%s\t%s\tOK\n", $api, $API{$api} || "-";
    }
}

printf "=== $Obj: %d interfa <==
3	/Users/nnunley/parrot/config/auto/headers.pm	2601	2793	
==>der;
            }
            cc_clean();
            last if $pass;
        }

        my $flag = "i_$header";
        $flag =~ s/\.h$//g;
        $flag =~ s/\///g;
        print "$flag: $pas <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5776	5888	
==>nch($) {
	my $self = shift;
	my $pops = shift;
	my $pir = '';

	# Branches mean we need to deal with basic block- <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3714	3826	
==>nch($) {
	my $self = shift;
	my $pops = shift;
	my $pir = '';

	# Branches mean we need to deal with basic block- <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7303	7414	
==>) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If the register name to load from was supplied <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5125	5236	
==>) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If the register name to load from was supplied <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	2798	2900	
==>mplemented rule calling";
}

sub convert_sv_literal {
    use Data::Dumper;
    my ($self, $tree, $ctx) <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	3647	3774	
==>rce)? lines executed in file (.*)/;
            if ($total_lines) {
                my $covered_lines = int(($percent/100) * $to <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33540	33659	
==>cases where we /didn't/ push to @$para
            if($paras->[0][0] eq '~Para') {
              DEBUG and print "Assimi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35353	35472	
==>cases where we /didn't/ push to @$para
            if($paras->[0][0] eq '~Para') {
              DEBUG and print "Assimi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21721	21867	
==>name eq 'Para'
        #and
        ($pattern = join('',
         map {;
            ($_->type eq 'start') ? ("<" . $_->tagname .">")
          : ( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	5491	5599	
==>rse.\n";

      DEBUG > 3 and print " Fetching a line from source-string...\n";
      if( ${ $self->{'source_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1981	2079	
==>debug output from...

 $debug_level = 4;
 ...some stuff that uses Pod::Simple to do stuff, but whic <==
3	/Users/nnunley/parrot/config/init/hints/solaris.pm	739	843	
==>er, we will run the gccversion test.  (If we were to
    # wait till it's normally run, the linker questi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93308	93395	
==>\"src/ops/bit.ops\"\n  string_bitwise_and(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94088	94175	
==>\"src/ops/bit.ops\"\n  string_bitwise_and(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663721	663953	
==>_keyed(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664493	664725	
==>_keyed(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	2524	2643	
==>= sizeof('op');
	push @pc_list, $pc;
	$opcodes{$pc}->{op} = $op;
        $new_pc   = $pc + $op->size;

        @args = ( <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	21652	21777	
==>keys %groups) {
        # Get filename of where we'll stash the .def file.
        my $deffile = "$group.def";

        # Does <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	803	912	
==>is stuff is for, so if it is, I invite 
# others to fix it.

=kwid

= NAME

lib - A pragma for addition of pat <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	15759	15855	
==>arse::RecDescent::_hint(
			"A '>' angle bracket was encountered, which typically
			 indicates t <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6435	6622	
==>.\n";
        }

            defined($act)
        and do {

                $act > 0
            and do {        #shift

#DBG>				$debug & 0x04
#DBG>			and	print STDERR "Shift a <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6138	6315	
==>.\n";
        }

            defined($act)
        and do {

                $act > 0
            and do {        #shift

#DBG>				$debug & 0x04
#DBG>			and	print STDERR "Shift a <==
3	/Users/nnunley/parrot/config/inter/make.pm	1351	1490	
==>, 'nmake', 'make'],
            $verbose);

        unless ($prog) {

            # fall back to default
            $self->set_result('no') <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	9793	9906	
==>to pass the same guarantee
        # and follow_min to all children. (Which is reasonable, since
        # everyth <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095170	1095275	
==>mental.ops\"\n  Parrot_Exec_OS_Command(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "experimen <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095865	1095970	
==>mental.ops\"\n  Parrot_Exec_OS_Command(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "experimen <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16629	16770	
==>et);
            $cout .= $ret;
        }
    }

    # nci methods
    foreach my $method (@{ $self->{methods}} ) {
        next unless $metho <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	5938	6044	
==>ff.  All 5
a=0
do while a<5
	a=a+1
loop
print a
a=0
do until a>4
	a=a+1
loop
print a
a=0
do
	a=a+1
loop whi <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16483	16589	
==>ff.  All 5
a=0
do while a<5
	a=a+1
loop
print a
a=0
do until a>4
	a=a+1
loop
print a
a=0
do
	a=a+1
loop whi <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	21401	21542	
==>\n        ", @meths);
    my $mmd_list = join(",\n        ", map {
        "{ $_->[0], $_->[1], $_->[2],
                    (funcptr_t) $_->[ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	10522	10616	
==>sub output_rule_def {
    my ($self, $name, $L_trymatch, $L_backup, $num_groups, $startup) = @_ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	10114	10208	
==>sub output_rule_def {
    my ($self, $name, $L_trymatch, $L_backup, $num_groups, $startup) = @_ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	72659	72754	
==>/Parse::RecDescent/;
	goto &{\$AUTOLOAD};
}
}

};
	$code .= "push \@$self->{namespace}\::ISA, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106290	1106375	
==>)\n\treal_exception(interpreter, NULL, E_ValueError,\n\t\t\"type number out of range\" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107266	1107351	
==>)\n\treal_exception(interpreter, NULL, E_ValueError,\n\t\t\"type number out of range\" <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	22027	22134	
==>$prefix$r2[0]->{'code'}:\n";
        $pir .= binary_dispatch_table($prefix, @r2);
    }

    # Return genera <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15580	15666	
==>[^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
    return $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16759	16845	
==>[^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
    return $ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2275	2395	
==>o put various libraries in the link line.
        $liblist = join( ' ', map { "$_.lib" } keys %$libs );
        if ($CC = <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2567	2687	
==>o put various libraries in the link line.
        $liblist = join( ' ', map { "$_.lib" } keys %$libs );
        if ($CC = <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2362	2482	
==>o put various libraries in the link line.
        $liblist = join( ' ', map { "$_.lib" } keys %$libs );
        if ($CC = <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	15698	15800	
==>ratum (at line $line) $complaint\n because no_errata_section is on.\n";
  } else {
    DEBUG > 9 and pr <==
3	/Users/nnunley/parrot/config/auto/funcptr.pm	830	925	
==>e ANSI C standard,
Parrot requires the ability to cast from void pointers to function
pointers f <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	655	744	
==>"?" unless defined $FAR_CHAR;
$FAR_CHAR_NUMBER = ord($FAR_CHAR) unless defined $FAR_CHAR_N <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2748	2862	
==>ue = $args[$i]->compile($compiler);
      $compiler->emit("  $temp = $value");
      $args[$i] = $temp;
    }
    e <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2448	2562	
==>ue = $args[$i]->compile($compiler);
      $compiler->emit("  $temp = $value");
      $args[$i] = $temp;
    }
    e <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	36249	36357	
==>"$ell_content[$j]\" for a '|'.\n";

        if($ell_content[$j] =~ m/^([^\|]*)\|(.*)$/s) {
          my @link <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30683	30831	
==>>=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 7 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40033	40181	
==>>=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 7 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41660	41808	
==>>=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 7 <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27903	28013	
==>,[$return,$return,$temp]);
      $self->_restore($temp);
    }
  }
  return $return;
}

sub _op_abs {
  my ($se <==
3	/Users/nnunley/parrot/tools/dev/symlink.pl	902	1008	
==>e original Parrot tree.\n"
	if (-d $trydir) && (-f $tryfile && ! -l $tryfile);
} else {
    die "$0: I am v <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	3195	3281	
==>$index->append($index_html);
    $index->append(Parrot::Docs::HTMLPage->footer('', '../ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557957	558047	
==>urrent_cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAILCALL;\n  interpre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559341	559431	
==>urrent_cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAILCALL;\n  interpre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560713	560803	
==>urrent_cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAILCALL;\n  interpre <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8339	8437	
==>"I am the very model of a modern";tab$(15);"More"
print "Hello","Again",d
dim c$(1)
for i = 1 to 20 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21203	21301	
==>"I am the very model of a modern";tab$(15);"More"
print "Hello","Again",d
dim c$(1)
for i = 1 to 20 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943873	944093	
==>arset_number_of_str(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944662	944882	
==>arset_number_of_str(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	16278	16409	
==>t = 5'

    print "\$x->count(-5) = ", $x->count(-5), "\n";
                            # dies due to negative argument!

=item Exam <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276103	276242	
==>s"
                            ],
                  "BODY" => "#line 881 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276981	277120	
==>s"
                            ],
                  "BODY" => "#line 881 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2} <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	952	1052	
==>'TXT' => 'Text file',
	'txt' => 'Text file',
	'a' => 'Library file',
	'bas' => 'BACIC code',
	'bef' = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	5831	5925	
==>nt
blocks recursively until a matching symbol is found or the root block is
encountered without <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8531	8618	
==>i+2);tab$(32);c$(i+3)
next
print
data "ABANDON","CHART","COMPUTER"
data "DAMAGES","DESTR <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21395	21482	
==>i+2);tab$(32);c$(i+3)
next
print
data "ABANDON","CHART","COMPUTER"
data "DAMAGES","DESTR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503955	504119	
==>i"
                            ],
                  "BODY" => "#line 631 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504810	504974	
==>i"
                            ],
                  "BODY" => "#line 631 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	5424	5557	
==>'Upsilon'  , 933,
 'Phi'      , 934,
 'Chi'      , 935,
 'Psi'      , 936,
 'Omega'    , 937,
 'alpha'    , 945,
 'beta'     , 946,
 ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	328137	328312	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_r4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	328804	328979	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_r4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	23106	23223	
==>ynasty = @$is;
        DEBUG > 4 and print "    Renaming $was node to $dynasty[-1]\n"; 
        $treelet->[$i][0] = po <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	34541	34691	
==>$parser,
            'result' => $_->[0],
            'arg1'   => $result,
        );
    }
    push @opcodes1, new CallOp( $parser,
        'res <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	6354	6482	
==>_func_decl")) {
    print SOURCE $trans->run_core_func_decl($base);
    print SOURCE "\n{\n";
    print SOURCE $trans->run_core_f <==
3	/Users/nnunley/parrot/config/auto/snprintf.pm	150	245	
==>auto/snprintf.pm - Test for snprintf

=head1 DESCRIPTION

Tests if snprintf is present and if it <==
3	/Users/nnunley/parrot/tools/docs/pod_errors.pl	690	797	
==>as ', 
		$file->num_pod_errors, 
		' error',
		$file->num_pod_errors != 1 ? 's' : '', 
		":\n",
		$errors;
} <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	922	1009	
==>ur_opcode[i])
#define NREG(i) REG_NUM(cur_opcode[i])
#define PREG(i) REG_PMC(cur_opcode[ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1038	1125	
==>ur_opcode[i])
#define NREG(i) REG_NUM(cur_opcode[i])
#define PREG(i) REG_PMC(cur_opcode[ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3354	3452	
==>\t\tstore_global "COMMON", _GLOBALS\n\t};
	}
	delete $code{$seg};
	if (! $debug) {
		print CODE ".e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835732	835813	
==>push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, string_copy(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836485	836566	
==>push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, string_copy(interpreter, <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1697	1802	
==>s');
}

sub output_increment {
    my ($self, $distance, $failLabel) = @_;
    die "invalid distance" if $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1450	1555	
==>s');
}

sub output_increment {
    my ($self, $distance, $failLabel) = @_;
    die "invalid distance" if $ <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	6078	6180	
==>sed --t.
$Type = 'long' if $Long; 
die "$ME: --type=$Type unknown\n"
    if defined $Type && $Type ne ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1559	1709	
==>s
{
    my $self = shift;

    if (@_)
    {
        $self->{ARGS} = [ @_ ];
    }
    else
    {
        return $self->{ARGS};
    }
}

=item C<arg($i <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1168	1318	
==>s
{
    my $self = shift;

    if (@_)
    {
        $self->{ARGS} = [ @_ ];
    }
    else
    {
        return $self->{ARGS};
    }
}

=item C<arg($i <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	44132	44233	
==>nerate($_); } _get_args($node, 0);
      $return = $self->_call_function_obj(@args);
      $self->_res <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1082	1186	
==>de.
	my $pir = <<'PIR';
# Get current stack types array size.
${ITEMP0} = elements ${STYPES}
PIR

	# Do c <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2792	2896	
==>de.
	my $pir = <<'PIR';
# Get current stack types array size.
${ITEMP0} = elements ${STYPES}
PIR

	# Do c <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3226	3319	
==>CODE qq{\t\tfind_global _GLOBALS, "COMMON"\n};
		foreach(@saves) {
			print CODE qq{\t_GLOBALS <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	3385	3519	
==>t;
    }

    #
    # Grouping:
    #

    if ($text =~ m{^([\(\)])(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3498	3604	
==>_to_source($source, $content);
		}
	}
	
	foreach my $content (@contents)
	{
		# We wait until now to do thi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	4785	4884	
==>ler->emit("  __result = __func(" . join(", ", map({ $_->[1]} $self->args)) . ")");
      $compiler-> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18783	18907	
==>_close_paren;
          $self->require_comma;
        }
      }

      $self->require_close_paren;
      $self->require_semic <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19809	19933	
==>_close_paren;
          $self->require_comma;
        }
      }

      $self->require_close_paren;
      $self->require_semic <==
3	/Users/nnunley/parrot/Configure.pl	1348	1440	
==>timize>

Add perl5's $Config{optimize} to the compiler flags.

=item C<--optimize=flags>

Add <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	615	761	
==>$cuser + $csystem from times() (default)
                      2 Real time using POSIX::times()
   -n -nobench        skip benchmarks matching rege <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3096	3193	
==>nvert X.pmc -> X.dump and X.c and also create any lib-GROUP.c files

    generate_dump($_) foreach <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3200	3297	
==>nvert X.pmc -> X.dump and X.c and also create any lib-GROUP.c files

    generate_dump($_) foreach <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	524758	524963	
==>"src/ops/math.ops\"\n  {{\@1}} = sqrt((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103168	103335	
==>S" => [
                              "p"
                            ],
                  "BODY" => "#line 135 \"src/ops/bit.ops\"\n  {{\@1}}->vtable->i_bitwise_nots(i <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	930	1066	
==>_f'"; # JMG
        binmode LANG; # JMG
        print LANG $lang_code; # JMG
        close LANG; # JMG

        Parrot::Test::run_command <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	842	978	
==>_f'"; # JMG
        binmode LANG; # JMG
        print LANG $lang_code; # JMG
        close LANG; # JMG

        Parrot::Test::run_command <==
3	/Users/nnunley/parrot/config/init/hints/openbsd.pm	156	266	
==>sd;

use strict;
use Config;

sub runstep
{
    my ($self, $conf) = @_;

    my $ccflags = $conf->data->get('cc <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8996	9202	
==>overy.\n";

            $$check='';

        };

        #Error
            $$errstatus
        or   do {

            $$errstatus = 1;
            &$error($self);
                $$errstatus # i <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8593	8787	
==>overy.\n";

            $$check='';

        };

        #Error
            $$errstatus
        or   do {

            $$errstatus = 1;
            &$error($self);
                $$errstatus # i <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	640	738	
==>erations', '',
			$self->new_item('Ops to C Code Generation', 
			    'lib/Parrot/OpsFile.pm', 'lib <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3338	3448	
==>access_arg
{
    my ($self, $type, $num, $op) = @_;

    #print STDERR "pbcc: map_arg($type, $num)\n";

    ret <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3933	4033	
==>, $failLabel, $lenvar) = @_;
    $lenvar ||= "<rx_len>";
    my $fail = $self->output_label_use($fail <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3647	3747	
==>, $failLabel, $lenvar) = @_;
    $lenvar ||= "<rx_len>";
    my $fail = $self->output_label_use($fail <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24408	24517	
==>m;			
			}
		} elsif ($syms[CURR] eq "shared") {
			print "WARNING: SHARED keyword currently ignored\n";
			go <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	16298	16395	
==>en,$startpos,
	    $oppos,
	    $preld1pos,$ld1pos,$str1pos,$rd1pos,
	    $preld2pos,$ld2pos,$str2 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1841	1933	
==>ring> >>

=item $token->attr(I<attrname>)

This returns the value of the I<attrname> attribut <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	42132	42239	
==>nce =over's don't have targets
    }
    
    DEBUG and print "Queuing up fake-o event: ", pretty(\@copy), " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460560	460811	
==>"CODE" => 528,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 282 \"src/ops/math.ops\"\n  INTVAL d <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24766	24867	
==>re);

		return _fail(wantarray, $textref) unless @match;
		return _succeed wantarray, $textref,
				$m <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7600	7698	
==>re);

	return _fail(wantarray, $textref) unless @match;
	return _succeed wantarray, $textref,
			$m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601689	601918	
==>ingleton",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 6 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	413	532	
==>shift;
    my $distance = shift || 1;
    return "re_advance P0, $distance";
}

sub output_onfail {
    my ($self, $labe <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	695	794	
==>e type is C<PARROT_CGOTO_CORE>.

=cut

sub core_type
{
    return 'PARROT_CGOTO_CORE';
}

=item C<de <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665147	665281	
==>"
                            ],
                  "BODY" => "#line 359 \"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delete_keyed_int(interp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665924	666058	
==>"
                            ],
                  "BODY" => "#line 359 \"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delete_keyed_int(interp <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	7176	7278	
==>lf->DEBUG(0, "Scanning file '$file'...");

  my $line = 0;

  my @lines = $self->slurp_file($file);
  u <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	7034	7153	
==>_code + $pc)/mg;

	    printf("\n    /* %s */\n    {\n%s}\n", $op->full_name, $source);
	}

	print "}\n\n";
    }
    pr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3313	3420	
==>d trailing quotes;

    $name =~ s/^.*:://; # Delete namespaces from ops

    $compiler->emit("  $name ", jo <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	6224	6325	
==>>push_string(interpreter, userargv, arg);
    }

    runops(interpreter, 0);
/*
    run_compiled(inter <==
3	/Users/nnunley/parrot/config/init/hints/freebsd.pm	276	379	
==>old pthread-stuff, if any
    $libs =~ s/(-lpthreads|-lc_r)\b\s*//g;

    # The following test is from F <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1040	1124	
==>r_opcode[i])
#define CONST(i) CONTEXT(interpreter->ctx)->constants[cur_opcode[i]]
END <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1156	1240	
==>r_opcode[i])
#define CONST(i) CONTEXT(interpreter->ctx)->constants[cur_opcode[i]]
END <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7271	7431	
==>g rule ".-$act." ($lhs,$len): ";

                $act
            or  $self->YYAccept();

            $$dotpos=$len;

                unpack('A1',$lhs) e <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6935	7088	
==>g rule ".-$act." ($lhs,$len): ";

                $act
            or  $self->YYAccept();

            $$dotpos=$len;

                unpack('A1',$lhs) e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	816836	817030	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clears",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [],
                  "TYP <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	3508	3653	
==>doc_key = $1;
            $heredoc_value = "";
            $heredoc_terminator = $2;
        }

        # Or is it a value within a rule and not a <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	1857	1990	
==>e;
    
    $self->{STACK} = [];
    $self->{DONT_WRAP} = 0;
    
    while ( $token = $self->get_token )
    {
        $type = $token <==
3	/Users/nnunley/parrot/lib/Test/More.pm	36113	36214	
==>o trip yourself up with while still
providing more flexibility than the existing Test.pm.  As such, th <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199778	200055	
==>" => "inline",
                  "CODE" => 236,
                  "ARGS" => [
                              "n",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 373 \"src/ops/cmp.ops\"\n  if <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21299	21470	
==>code = (
        '+'  => 'add',
        '-'  => 'sub',
        '*'  => 'mul',
        '/'  => 'div',
        '^'  => 'pow',
        '%'  => 'mod',
        '..' => 'c <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1730	1823	
==>*)*(cur_opcode = (opcode_t *)
	opcode_to_prederef(interpreter, $addr)))";
  }
}

=item C<goto_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21991	22120	
==>quire_open_paren;

        $left  = Jako::Construct::Expression::Value->new($block, $self->require_value);
        $op    = $self- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22924	23053	
==>quire_open_paren;

        $left  = Jako::Construct::Expression::Value->new($block, $self->require_value);
        $op    = $self- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24571	24699	
==>quire_open_paren;
        $left  = Jako::Construct::Expression::Value->new($block, $self->require_value);
        $op    = $self- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133869	134093	
==>twise_xor(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134650	134874	
==>twise_xor(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Test/More.pm	13997	14162	
==>= "$obj_name isn't a '$class' it's a '$ref'";
        }
    }
            
      

    my $ok;
    if( $diag ) {
        $ok = $Test->ok( 0, $name );
        $Test->d <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	416	553	
==>y ($token) = @_;

  return bless {
    TOKEN    => $token,
    CODE     => 'N',
    NAME     => 'num',
    IMCC     => 'num',
    IMCC_PMC <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	1798	1928	
==>]
    examples/sdl/anim_image_dblbuf.pir              [devel]
    examples/sdl/blue_font.pir                      [devel]
    examp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70902	71123	
==>rrot_load_lib(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71671	71892	
==>rrot_load_lib(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	1372	1479	
==>);
my %argmaps;
my $jit_cpu;

if ($genfile =~ /jit_cpu.c/) {
    $jit_cpu = 1;
    push @jit_funcs, "Parrot_ <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	5379	5530	
==>pts
            # e.g. feature.pl or feature_h.in 
            local *OUT = $out;
            my $text = do {local $/; <$in>};
            # interoplate <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838533	838720	
==>> 950,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 246 \"src/ops/stack.ops\"\n  (void)stack_pop(interp <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	2642	2765	
==>$dir1{$_};
    }
    print "diff @diff\n" if $opt{d};
    @diff;
}

sub get_dis {
    my ($cmd, $f) = @_;
    @dis = qx($cmd <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	2979	3076	
==>x  = $trans->suffix();
# Used as ${defines}
my $defines = $trans->defines();
my $opsarraytype = $t <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	20423	20527	
==>pen to call these, internally
      $para->[1]{'~really'} ||= '=begin';
      $para->[1]{'~ignore'}   = ( <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22658	22752	
==>t'   ,[$return,0]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0,$temp_1);
  re <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23159	23253	
==>t'   ,[$return,0]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0,$temp_1);
  re <==
3	/Users/nnunley/parrot/tools/dev/manicheck.pl	1437	1562	
==>if (@missing) {
    print "\n";
    print "Missing files:\n";
    foreach (@missing) {
        print "  $_\n";
    }
}

if (@e <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	1002	1101	
==>_item('Instructions for Parrot in a Win32 environment.', 'README.win32.pod'),
            $self->new <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818075	818165	
==>\"src/ops/stack.ops\"\n  Parrot_push_regs(interpreter);\n  /* these 2 opcodes change the re <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28187	28294	
==>_op, $mv, "post_op for rule $rule->{'name'}");
		$pir .= "### end post_op\n";
	}

	# Loads (load class).
	el <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6493	6594	
==>= P_arg_0[i]
    ${ITEMP0} = ${NEXTPC} + j
    prop_type_state[${ITEMP0}] = ${STYPES}
    prop_stack_d <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4431	4532	
==>= P_arg_0[i]
    ${ITEMP0} = ${NEXTPC} + j
    prop_type_state[${ITEMP0}] = ${STYPES}
    prop_stack_d <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5931	6059	
==>}{group}
          or next;
        ($group) = keys %$group;
        $pmc_group{$pmc} = $group;
        push @{ $group_files{$gro <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6142	6270	
==>}{group}
          or next;
        ($group) = keys %$group;
        $pmc_group{$pmc} = $group;
        push @{ $group_files{$gro <==
3	/Users/nnunley/parrot/languages/lua/luac.pl	1195	1307	
==>help.

=item B<-v>

Display version.

=back

=head1 DESCRIPTION

=head1 AUTHOR

Francois Perrad

=c <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	7815	7915	
==>ests, using the given $reason.  Exits immediately with 0.

=cut

sub skip_all {
    my($self, $reason <==
3	/Users/nnunley/parrot/lib/Test/More.pm	9210	9310	
==>c "This is like that".)

The second argument is a regular expression.  It may be given as a
regex ref <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	564	655	
==>lly leaving out the archname, version_dir, version_arch_dir
# and inc_version_list code from <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	32585	32704	
==>4!
    my $in_eval = 0;
    for( my $stack = 1;  my $sub = (CORE::caller($stack))[3];  $stack++ ) {
        $in_eval = 1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557838	557935	
==>\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  interpreter->current_cont = CONTEXT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559222	559319	
==>\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  interpreter->current_cont = CONTEXT <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32028	32165	
==>ters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $parameters = ", $parameters" if $parameters;
    my $body = "VTAB <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33605	33742	
==>ters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $parameters = ", $parameters" if $parameters;
    my $body = "VTAB <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40662	40799	
==>ters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $parameters = ", $parameters" if $parameters;
    my $body = "VTAB <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2790	2898	
==>char * _reg_base;
#endif

    static void *const l_ops_addr[] = {
END_C
}

=back

=head1 SEE ALSO

=over 4

= <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2118	2207	
==>block->find_symbol($args[$i]->value);
      $self->SYNTAX_ERROR("Undefined identifier '%s' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1818	1907	
==>block->find_symbol($args[$i]->value);
      $self->SYNTAX_ERROR("Undefined identifier '%s' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953741	953950	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954531	954740	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
3	/Users/nnunley/parrot/config/init/hints/darwin.pm	1527	1630	
==>This variable needs renaming to be more general
        # XXX ugly hack for rpath_lib in config/inter/li <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	287244	287475	
==>RGS" => [
                              "i",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 918 \"src/ops/cmp.ops\"\n  {{\@1}} = (mmd_dispatch_i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59328	59517	
==>ore.ops\"\n  PARROT_WARNINGS_on(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59976	60165	
==>ore.ops\"\n  PARROT_WARNINGS_on(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9805	9899	
==>see test.ldo)";
}

=item C<cc_run()>

Calls the F<test> (or F<test.exe>) executable. Any output <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	856	946	
==>ase.data))
#define CUR_OPCODE cur_opcode
#define IREG(i) REG_INT(cur_opcode[i])
#define NRE <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	972	1062	
==>ase.data))
#define CUR_OPCODE cur_opcode
#define IREG(i) REG_INT(cur_opcode[i])
#define NRE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23858	23950	
==>eter->current_object = NULL;\n  interpreter->current_cont = {{\@2}};\n  dest = (opcode_t *)p- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78938	79029	
==>string(interpreter, ({{\@3}}));\n\n  void * const p = Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? NU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80459	80550	
==>string(interpreter, ({{\@3}}));\n\n  void * const p = Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? NU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023336	1023434	
==>struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_localtime_r(&t, &tm);\n  {{\@1}} = tm <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024186	1024284	
==>struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_localtime_r(&t, &tm);\n  {{\@1}} = tm <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14040	14135	
==>', [$return,2,"FAIL_$label"]);
    $self->_add_inst ('', 'set', [$return,1]);
    $self->_add_in <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	4852	4957	
==>_html_docs
{
    my $self = shift;
    
    return $self->html_docs_directory->delete();
}

=item C<gen_ma <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	13466	13563	
==>expect, $name);
}


=item B<like>

  $Test->like($this, qr/$regex/, $name);
  $Test->like($this, ' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	2178	2272	
==>module for controlling the debug level (a.k.a. trace
level) of Pod::Simple.  This is of interes <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	1853	1971	
==>(int2_t => 'short');
    } else {
        $conf->data->set(int2_t => 'int');
        print <<'END';

Can't find a int t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938531	938625	
==>BODY" => "#line 481 \"src/ops/string.ops\"\n    {{\@1}} = string_join(interpreter, {{\@2}}, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939421	939515	
==>BODY" => "#line 481 \"src/ops/string.ops\"\n    {{\@1}} = string_join(interpreter, {{\@2}}, {{\ <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	1448	1571	
==>..>\n" .
        "       $0 source <source files..>\n";
}

while (<DATA>) {
    next if /^\s*#/; chomp;
    my ($symbol, $fi <==
3	/Users/nnunley/parrot/tools/dev/symlink.pl	1170	1272	
==>) eq 'dev' &&
         lc($toolsrcdir[-2]) eq 'tools';
my @topsrcdir = @toolsrcdir[0..$#toolsrcdir - 2] <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2851	2959	
==>de"
   END
Sub1:
   PRINT "2 in subroutine one"
   GOSUB Sub2
   PRINT "ERR this line in subroutine one shoul <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16818	16926	
==>de"
   END
Sub1:
   PRINT "2 in subroutine one"
   GOSUB Sub2
   PRINT "ERR this line in subroutine one shoul <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4839	4928	
==>elf->expr_address(@_));
}

=item C<goto_offset($offset)>

Transforms the C<goto OFFSET($of <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400022	400373	
==>"
                               ],
                  "TYPE" => "function",
                  "CODE" => 463,
                  "ARGS" => [
                              "p",
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 527 \"s <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	5620	5761	
==>{$source_file} = $percent;
                next;
            }
        }

        filter_gcov($gcov_file);
    }
}

write_file_coverage_summar <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	1054	1157	
==>b output_fail {
    return "re_fail P0";
}

sub output_match_succeeded {
    return "re_succeeded P0";
} <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1409	1508	
==>ance {
    my ($self, $distance, $failLabel) = @_;
    $failLabel = $self->output_label_use($failLab <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1158	1257	
==>ance {
    my ($self, $distance, $failLabel) = @_;
    $failLabel = $self->output_label_use($failLab <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	399	498	
==>ance {
    my ($self, $distance, $failLabel) = @_;
    $failLabel = $self->output_label_use($failLab <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177479	177879	
==>"ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 212,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic"
                            ], <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4656	4791	
==>keys %$self) {
        return $self->{args}->[0];
    } else {
        return $self;
    }
}

sub minlen {
    my $op = shift;
    my $m <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5793	5928	
==>keys %$self) {
        return $self->{args}->[0];
    } else {
        return $self;
    }
}

sub minlen {
    my $op = shift;
    my $m <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	266	363	
==>48089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block::Conditional::U <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	262	358	
==>48089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block::Conditional:: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	258	354	
==>48089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block::Conditional:: <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11523	11631	
==>t factorial(4)
end if

' Changed ref'd var from 5 to 12
function myfunc(a)
	print a
	a=12
        myfunc=80
e <==
3	/Users/nnunley/parrot/lib/Test/More.pm	20883	20982	
==>ecause there's a bug in your
program, or for which you don't yet have code written.  For that you
us <==
3	/Users/nnunley/parrot/config/gen/revision.pm	418	511	
==>igure::Step::Base);

use Parrot::Revision;

$description = "Determining Parrot's revision";

s <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	2057	2168	
==>FIX & MATCH, IF POSSIBLE
		pos($$textref) = $_[4];				# RESET \G
		return $match;
	}
}

# BUILD A PATTERN MATCHI <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1430	1537	
==>{
        return $self->{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/gets the transform's argu <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1039	1146	
==>{
        return $self->{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/gets the transform's argu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669490	669849	
==>S" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 749,
                  "ARGS" => [
                              "p",
                              "nc"
                            ],
                  "BODY" => "#line 410 \" <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1119	1226	
==>while(($key,$value) = each %{$_[2]}) {
      unless($key =~ m/^~/s) {
        next if $key eq 'start_line' a <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	694	797	
==>while(($key,$value) = each %{$_[2]}) {
    unless($key =~ m/^~/s) {
      next if $key eq 'start_line' a <==
3	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	417	546	
==>lf = shift;
    my @code = @_;

    foreach my $chunk (@code) {
        if ($chunk eq "\n") {
            push @{ $self->{raw_pir} <==
3	/Users/nnunley/parrot/tools/build/list_unjitted.pl	603	702	
==>[0]/core.jit" or die "Could not open jit/$ARGV[0]/core.jit: $!";

while (<JIT>){
    if (my ($jit) = <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	9402	9534	
==>lobal ?
				"global_$symbol" : "local_$symbol";
			} else {
			    $show .= $global ?
				$symbol : lc $symbol;
			}
		    }
		    pr <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	25052	25159	
==>ocument event.\n";

      $self->_handle_element_end( $scratch = 'Document' );
      next; # Hasta la byebye <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019292	1019578	
==>JUMP" => 0,
                  "NAME" => "localtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020222	1020508	
==>JUMP" => 0,
                  "NAME" => "localtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	46793	46889	
==>eturn the list

=over 4

=item [0]

"<<'EOMSG'\nThis is the message.\nEOMSG\n" (i.e. the full ext <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	370098	370367	
==>" => "function",
                  "CODE" => 433,
                  "ARGS" => [
                              "s",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 341 \"src/ops/io.op <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	2922	3051	
==>'),
            $self->c_pair_item('', 'global_setup'),
            $self->c_item(
                'Parrot Interpreter: Callback F <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	36009	36136	
==>ct>
      DEBUG > 3 and
         print "  Peering at L content for a '|' ...\n";
      for(my $j = 0; $j < @ell_content; ++$j) { <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11524	11642	
==>AL = 0x21
    
    # Trace info - param and local types.
    if trace != 2 goto NO_IN_TRACE
printerr "    PTYPES: "
i = <==
3	/Users/nnunley/parrot/config/auto/bc.pm	743	851	
==>roblems with a hanging bc reported.
    # So check for bc only on selected platforms.
    # Linux should be a <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	11160	11329	
==>tion
            unless ( $desc ) {
               (undef, my $file, my $line) = caller();
               $desc = "($file line $line)";
            }

            # $test <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	16645	16814	
==>tion
            unless ( $desc ) {
               (undef, my $file, my $line) = caller();
               $desc = "($file line $line)";
            }

            # $test <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	4076	4196	
==>);

sub reset {
    my ($self) = @_;

    # We leave this a global because it has to be localized and localizing
    # ha <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95370	95760	
==>core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 118,
                  "ARGS" => [
                              "s",
                              "sc",
                              "s <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	514	638	
==>$type);
        unshift(@syms,  $sym);
        $#type=3;
        $#syms=3;
}
sub barf {
	unshift(@tokdsc, shift(@type));
	uns <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	33327	33585	
==>1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set_addr",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	34115	34373	
==>1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set_addr",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	16148	16256	
==>efault' methods
from the F<vtable.dump>.

=cut

sub add_defaulted {
    my ($class, $vt) = @_;

    foreach m <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22044	22141	
==>Expression::Value->new($block, $self->require_value);
        $op    = $self->require_infix_rel->t <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22977	23074	
==>Expression::Value->new($block, $self->require_value);
        $op    = $self->require_infix_rel->t <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24623	24720	
==>Expression::Value->new($block, $self->require_value);
        $op    = $self->require_infix_rel->t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499853	500226	
==>",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 574,
                  "ARGS" => [
                              "n",
                              "nc"
                            ],
                  "BODY" <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48478	48586	
==>axrep) = ($1,$2) }
				elsif ($grammar =~ m/$ATLEAST/gco)
					{ $minrep = $1 }
				elsif ($grammar =~ m/$ATM <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	6128	6227	
==>rporation [^\n]+\n//;
	s/^ *(file name|encoding|tab size|indentation|created (on|by)):.*//mg;
	$desc <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	7618	7734	
==>/* %6ld */\n",
            "$func_name,", $index);
    }
    $one_op .= "$definition $comment {\n$src}\n\n";
    push <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	583	678	
==>prefix. Defaults to ''.

=item C<prefix>

The install prefix. Defaults to '/usr'.

=item C<exec_ <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	812	907	
==>prefix. Defaults to ''.

=item C<prefix>

The install prefix. Defaults to '/usr'.

=item C<exec_ <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	1305	1486	
==>cs/configuration.pod                          [devel]doc
    docs/debug.pod                                  [devel]doc
    docs/dev/dod.pod                                [devel]doc <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	5037	5178	
==>ile,
		   'objectname|o' => \$ObjectName,
		   't'            => \$Type,
		   'bsd|B'        => \$BSD,
		   'long|L'       => \$Long,
		   'ty <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	2162	2265	
==>\tcalling trigger $trigger for $key\n" if $verbose;
            my $cb = $self->gettrigger($key, $trigge <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	9310	9422	
==>number > $ParrotOps::max_op_num) {
      $ParrotOps::max_op_num = $number;
    }
  }
  close OP;
  return;
}

exi <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	5657	5757	
==>This file is generated automatically from '$file'.
# Any changes made here will be lost!
#

$pod

use <==
3	/Users/nnunley/parrot/config/auto/pack.pm	1823	2005	
==>e for $_.
               Need a format for %d bytes, but '$format' gave %d bytes.
AARGH
            }
        } else {
            $format = '?';
        }

        $conf->data->set($ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24562	24679	
==>mp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
  } else {
    $return = $self->_generate( <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26461	26578	
==>mp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
  } else {
    $return = $self->_generate( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841084	841378	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841847	842141	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	1258	1374	
==>else {
    return @{$self->{TOKENS}};
  }
}


#
# token_count()
#
# Returns the number of tokens.
#

sub count
{
  my <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8754	8850	
==>e of return value and build code to pop it.
${ITEMP1} = elements ${STYPES}
dec ${ITEMP1}
${PTEMP0 <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7326	7422	
==>e of return value and build code to pop it.
${ITEMP1} = elements ${STYPES}
dec ${ITEMP1}
${PTEMP0 <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2945	3084	
==>T$PATHQUOTE";
}

our $NOW = time();

################### MAIN PROGRAM ################

my ($mode, @pmcs) = @ARGV;

if ($mode eq 'generate') <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3049	3188	
==>T$PATHQUOTE";
}

our $NOW = time();

################### MAIN PROGRAM ################

my ($mode, @pmcs) = @ARGV;

if ($mode eq 'generate') <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	250224	250517	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "not",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	251623	251916	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "not",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	1301	1417	
==>arrot defaults');
        return $self;
    }

    cc_gen('config/auto/sizes/test_c.in');
    cc_build();
    my %res <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	17786	17942	
==>if ($file =~ /default\.dump$/) {
                next; # don't overwite default.dump
            }
            else {
                $file = $existing; # XX <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	7676	7760	
==>Test::eval_is &Test::isa_ok &Test::is_deeply &Test::todo_is &Test::todo_isnt &Test::t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131270	131431	
==>"i"
                            ],
                  "BODY" => "#line 306 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132125	132286	
==>"i"
                            ],
                  "BODY" => "#line 306 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "L <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	1243	1341	
==>ody, $extern, $header, $asm, $precompiled);

my %templates;

my @jit_funcs;
my $func_end;
my ( $nor <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343039	343268	
==>"i",
                              "p",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 128 \"src/ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interp <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	10799	10903	
==>$textref,
			@match[2..3,4..5,0..1];		# MATCH, REMAINDER, PREFIX
}

sub _match_variable($$)
{
#  $#
#  $^ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	47653	47751	
==>here document),
which would cause the earlier " || die;\nexit;" to be skipped in any
sequence of co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818870	818995	
==>k.ops\"\n  Parrot_pop_regs(interpreter);\n  {{=0,+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	329385	329490	
==>loat4)({{\@2}}->vtable->get_number(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	1921	2015	
==>mmonly occurs in regex code, due to sequence of
single-character matches (eg /a[bB]c/).

But pe <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2561	2668	
==>$path;
    
    my $rel_path = File::Spec->abs2rel($path, $self->path);

    # some (all?) versions of File: <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	33452	33546	
==>efix defaults to
optional whitespace and a missing text defaults to C<$_>. However, a missing
d <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	27580	27694	
==>rm.\n";
    } else {
      # We have to use the fallback(s), which might be '0', or '1'.
      $self->{'accept_code <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	3098	3194	
==>eyword attribute="Special Directive" context="#stay" String="special_directives" />
          <ke <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616297	616582	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "pic <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	617984	618269	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "pic <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	620146	620431	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "pic <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	13710	13837	
==>($$textref),20) .
			     q{..."},
		         pos $$textref;
		pos $$textref = $startpos;
		return;
	}
	my $closing = $1;
	   $c <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6428	6613	
==>d token.\n";
        }

            defined($act)
        and do {

                $act > 0
            and do {        #shift

#DBG>				$debug & 0x04
#DBG>			and	print STDERR <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6131	6306	
==>d token.\n";
        }

            defined($act)
        and do {

                $act > 0
            and do {        #shift

#DBG>				$debug & 0x04
#DBG>			and	print STDERR <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	7292	7404	
==>skip_new           { return shift->skip('new');           }
sub skip_open_brace    { return shift->skip('open-bra <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1471	1717	
==>I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	1471	1717	
==>I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	12974	13070	
==>present, is
assigned to the hash element.  If the element type is C<'%'>, the
accessor returns th <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	3857	4036	
==>le_visible{"ALL"}{$1}++;
            }
            
            next;
        }
        
        # end of variable block
        if ($variable && /^\s*$/) {
            undef $vari <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1971	2069	
==>we call gen_label before translating
	# every instruction) to see if we need to instate a stack typ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1370	1468	
==>we call gen_label before translating
	# every instruction) to see if we need to instate a stack typ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4421	4543	
==>->end_element({ Name => 'literal' });
      }

      $handler->end_element({ Name => 'concat' });
    }
    else {
      $s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1575	1686	
==>= @_;

  my $block = $self->block;
  my $value = $self->value;
  my $cond  = $self->cond;
  my $left  = $self->l <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3195	3306	
==>= @_;

  my $block = $self->block;
  my $value = $self->value;
  my $cond  = $self->cond;
  my $left  = $self->l <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3067	3188	
==>two"
   RETURN Label2   'Cannot return from here to main
                   'program - only to SUB1.
' Exit tests
sub mysu <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17034	17155	
==>two"
   RETURN Label2   'Cannot return from here to main
                   'program - only to SUB1.
' Exit tests
sub mysu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13072	13199	
==>ext;
        $self->require_open_brace;
      }

      #
      # If we are not currently 'inside' a block, then we've got no bus <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	21032	21138	
==>-$str1pos,	# STR/PAT
		$rd1pos,	1,			# RIGHT DEL
		$ld2pos,	$second_arg,		# 2ND LDEL (MAYBE)
		$str2pos,	$r <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	24337	24489	
==>if (pmc_id > 0)
                Parrot_register_HLL_type(
                    interp, pmc_id, enum_class_$maps, entry
                );
        } /* Reg <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921018	921196	
==>n    {{\@1}}=Parrot_psprintf(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921911	922089	
==>n    {{\@1}}=Parrot_psprintf(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	3260	3350	
==>lib";
my $include = "parrot/oplib/${base}_ops${suffix}.h";
my $header  = "include/$include" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2890	2984	
==>each $self->content;
  $handler->end_element({ Name => 'block' });

  $handler->end_element({ N <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2772	2866	
==>each $self->content;
  $handler->end_element({ Name => 'block' });

  $handler->end_element({ N <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1289	1424	
==>s {
    BLOCK => $block,

    KIND  => $kind,
    IDENT => $ident,
    COND  => $cond,
    LEFT  => $left,
    OP    => $op,
    RIGHT = <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	14182	14312	
==>mt $f\n";
    if ($n) {
	for (my $i=0; $i < $n; ++$i) {
	    my $arg = pop @stack;
	    my $g = promote($arg);
	    # TODO should b <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	8698	8818	
==>,   $file  ) if $show;
		if ($show) {
		    $show = $ObjectName ? "$o\t$name" : $name;
		    if (defined $Type) {
			$sho <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	13739	13855	
==>) {
	print <<EOC;
    	.pcc_begin_return $cmt
	.return $tos
	.pcc_end_return
EOC
    }
    else {
	print <<EOC;
	# $c <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3461	3562	
==>_build("$group.c", @pmcfiles)) {
            run("$PMC2C --library $group --c " . join(" ",@pmcfiles)) <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3565	3666	
==>_build("$group.c", @pmcfiles)) {
            run("$PMC2C --library $group --c " . join(" ",@pmcfiles)) <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3466	3588	
==>}

	# Return generated code.
	return $pir;
}

sub post_branch($) {
	# Nothing to do here.
	return "";
}

# Pre and post loa <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28873	28970	
==>ssubrule { undef }
sub isterminal { 1 }
sub describe ($) { shift->{'description'} }

sub new ($$$$ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30953	31050	
==>ssubrule { undef }
sub isterminal { 1 }
sub describe ($) { shift->{'description'} }

sub new ($$$$ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8373	8481	
==>stack_depth
PIR
	}

	return $pir;
}

sub post_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6193	6301	
==>stack_depth
PIR
	}

	return $pir;
}

sub post_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	35056	35151	
==>properly nested and evenly balanced.
(In a scalar context just the first element of the array wo <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1258	1382	
==>he user.  If a non-existent program is specified then
    # the user is responsible for the consequences.
    if (defined $pr <==
3	/Users/nnunley/parrot/config/inter/make.pm	1079	1203	
==>he user.  If a non-existent program is specified then
    # the user is responsible for the consequences.
    if (defined $pr <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1255	1379	
==>he user.  If a non-existent program is specified then
    # the user is responsible for the consequences.
    if (defined $pr <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5209	5348	
==>p->{result} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $first = 1;
            foreach ( @{ $op->{r <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6241	6380	
==>p->{result} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $first = 1;
            foreach ( @{ $op->{r <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	542	648	
==>test functions.

=head2 Functions

The parameter C<$language> is the language of the code.
The parameter C< <==
3	/Users/nnunley/parrot/config/init/hints/netbsd.pm	188	296	
==>if ($ccflags !~ /-pthread/) {
        $ccflags .= ' -pthread';
    }
    $conf->data->set(ccflags => $ccflags <==
3	/Users/nnunley/parrot/config/init/hints/openbsd.pm	280	388	
==>if ($ccflags !~ /-pthread/) {
        $ccflags .= ' -pthread';
    }
    $conf->data->set(ccflags => $ccflags <==
3	/Users/nnunley/parrot/lib/Test/More.pm	9872	9976	
==>cut

sub unlike ($$;$) {
    $Test->unlike(@_);
}


=item B<cmp_ok>

  cmp_ok( $this, $op, $that, $test_n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	329610	329784	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_r8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	330275	330449	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_r8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	8767	8880	
==>_item' 
            if @{$self->{STACK}} and $self->{STACK}->[-1] eq 'text';
    }
    elsif ( $tagname =~ /head[1 <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	34695	34854	
==>_op_even_p,
  'max'              => \&_op_max,
  'min'              => \&_op_min,
  '+'                => \&_op_plus,
  '-'                => \&_op_minus,
  '*' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	85	187	
==>e ();
use vars qw( $ATTR_PAD @ISA $VERSION $SORT_ATTRS);
$VERSION = '2.02';
BEGIN {
  @ISA = ('Pod::Sim <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	86	188	
==>e ();
use vars qw( $ATTR_PAD @ISA $VERSION $SORT_ATTRS);
$VERSION = '2.02';
BEGIN {
  @ISA = ('Pod::Sim <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	445962	446172	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	446598	446808	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	448883	449092	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26431	26528	
==>parse_call {
	# Subroutines are disguised as user-defined functions,
	# except that there's no ret <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4494	4583	
==>(?:cpu|emit)|nci|platform(?:_interface)?)\.[ch]|(?:charclass|feature)\.h)$/o
        or $s <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	3526	3651	
==>d_version = $1;
    } else {
        $dd_version = $Data::Dumper::VERSION;
    }

    if ($dd_version >= 2.12) {
        *dump <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	13779	14043	
==>h_to_parrot,
                                    STDOUT => $out_f,
                                    STDERR => $out_f);
                        if ( -e $exe_f ) {
                            run_command($exe_f,
                                        CD     => $p <==
3	/Users/nnunley/parrot/config/gen/cpu/i386/auto.pm	263	363	
==>_generated => 'files ...'   for inclusion in platform.c or platform.h
 i386_has_mmx   => 1

=cut

pac <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	29760	29853	
==>e matched without any trailing modifiers (C</gimsox> etc.)
This can bite you if you're expecti <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447235	447444	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	448057	448266	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449543	449752	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	4167	4312	
==>ntl' => 'define',
             'i_float' => 'define',
             'i_fp' => undef,
             'i_fp_class' => undef,
             'i_gdbm' => u <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	2141	2253	
==>he Config::Data settings might have changed for the test
        $conf->data->set('libs',      $libs);
        $c <==
3	/Users/nnunley/parrot/config/auto/readline.pm	1941	2053	
==>he Config::Data settings might have changed for the test
        $conf->data->set('libs',      $libs);
        $c <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	7116	7220	
==>_stem.c")) {
        run(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem. <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5410	5514	
==>_stem.c")) {
        run(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem. <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7327	7431	
==>_stem.c")) {
        run(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113714	113917	
==>ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 204 \"src/ops/bit.ops\"\n  {{\@1}} <<= {{\@2}};\n  {{+=3}} <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	17112	17207	
==>into RPN
		($result,$type,@stream)=generate_code(0, @stream);	# Generate PASM code stream
	}
	s/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1829	1921	
==>orm. This default implementation raises an exception indicating
that the core type is missing <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349316	349570	
==>r, enum_class_Undef);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350318	350572	
==>r, enum_class_Undef);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	5875	6005	
==>63,
 'tau'      , 964,
 'upsilon'  , 965,
 'phi'      , 966,
 'chi'      , 967,
 'psi'      , 968,
 'omega'    , 969,
 'thetasym' , <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349289	349513	
==>{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350291	350515	
==>{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	1437	1543	
==>\n" if $Verbose;
}

exit 0 if $up_to_date;

print "$command\n";
my $status = system($command);
exit 1 if (! <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	8278	8381	
==>::RD_NO_HITEM ? '' :'
	my %item = ();') . '
	my $repeating =  defined($_[2]) && $_[2];
	my $_noactions = <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2530	2612	
==>ples/mops/mops.ps>,
F<examples/mops/mops.py>,
F<examples/mops/mops.rb>,
F<examples/ <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	2530	2612	
==>ples/mops/mops.ps>,
F<examples/mops/mops.py>,
F<examples/mops/mops.rb>,
F<examples/ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	2397	2575	
==>->{PREFIX} = shift if @_;
  return $self->{PREFIX};
}


###############################################################################

=head2 BLOCK->set_symbol(NAME, VALUE)

Set <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1576	1692	
==>th"};
        my $ok = &{"Test::More::$meth"}( @_ );
        # if( $ok ) { foreach my $meth ( $lang_f, $pasm_f, $by_f <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1492	1608	
==>th"};
        my $ok = &{"Test::More::$meth"}( @_ );
        # if( $ok ) { foreach my $meth ( $lang_f, $pasm_f, $by_f <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	3673	3772	
==>fix ne '';
}

=item C<parent_path()>

Returns the path of the containing directory.

=cut

sub paren <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653507	653604	
==>ception(interpreter, resume, METH_NOT_FOUND,\n            \"Method '%s' not found\", string_to_cst <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654668	654765	
==>ception(interpreter, resume, METH_NOT_FOUND,\n            \"Method '%s' not found\", string_to_cst <==
3	/Users/nnunley/parrot/lib/Test/More.pm	25394	25510	
==>so carp() will put in line/file

        _carp sprintf $msg, scalar @_;

	return $Test->ok(0);
    }

    my($this, $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846703	846940	
==>, (UINTVAL){{\@2}});\n  {{\@1}} = s;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847499	847736	
==>, (UINTVAL){{\@2}});\n  {{\@1}} = s;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	17033	17153	
==>$initial' at "} .
				     substr($$textref, $oppos, 20) .
				     q{..."},
				 pos $$textref;
			pos $$textref = $star <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1055	1162	
==>nd not UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess "Right is not Value!" if defin <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1083	1190	
==>nd not UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess "Right is not Value!" if defin <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	755	862	
==>nd not UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess "Right is not Value!" if defin <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1639	1750	
==>7, S14 => 22, S21 => 5, S22 => 9, S23 => 14,
	S24 => 20, S31 => 4, S32 => 11, S33 => 16, S34 => 23, S41 => 6, S4 <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8030	8137	
==>, there was no match.
    push result, not_found

    goto loop_two 
loop_two_end:

    .return (result)
.en <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	1598	1730	
==>elsif ( $base_type eq 'ARRAY' ) {
        $class = shift;
        @decls = @{shift()};
        _usage_error() if @_;
    }
    else { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146355	146447	
==>mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_EQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167581	167673	
==>mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_EQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	54237	54369	
==>], $_[2], $_[3] );
        }
	],
	[#Rule 67
		 'exp', 3,
sub
#line 377 "Lua\lua51.yp"
{
            BuildRelop( $_[0], $_[1], <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	3879	3993	
==>op,15);
    $top =~ s/^ {0,1}(\S)/  $1/mg; # minimum indent
    $info->{desc} = $top;
    return $info;
}

sub desc <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	547	641	
==>shift;
	
	return $self->SUPER::new(
		'Perl Modules', 'perl.html', '',
		$self->new_group('Oper <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061560	1061771	
==>tion",
                  "CODE" => 1185,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 241 \"src/ops/var.ops\"\n    {{\@1}} = CO <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2253	2384	
==>e stab entry on compile
        $@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $retval
}

sub YYData {
	my( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2170	2291	
==>e stab entry on compile
        $@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $retval
}

sub YYData {
	my( <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	863	980	
==>terpinfo', 'P0', '.INTERPINFO_CURRENT_SUB'],
  ['',             'invokecc'],
  ['',             'restore', 'P1'],
  [' <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	28735	28841	
==>}

sub _op_acos {
}

sub _op_atan {
}

sub _op_sqrt {
}

sub _op_expt {
}

sub _op_make_rectangular {
}

su <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	639727	639821	
==>MC(arg_op[2]);\n\t  break;\n      default:\n\t  internal_exception(UNIMPLEMENTED, \n\t\t  \"uni <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	937	1047	
==>rights)
#

package Parse::Yapp::Driver;

require 5.004;

use strict;

use vars qw ( $VERSION $COMPATIB <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	912	1013	
==>rights)
#

package Parse::Yapp::Driver;

require 5.004;

use strict;

use vars qw ( $VERSION $COMPATIB <==
3	/Users/nnunley/parrot/tools/build/vtable_extend.pl	2550	2655	
==>ve it in multiple times)

   Not doing this is a good way to introduce bizarre heisenbugs, so
   just do i <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76734	76835	
==>CE>1
	    && $::RD_TRACE+10<length($_[0]))
	{
		my $count = length($_[0]) - $::RD_TRACE;
		return subs <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77045	77146	
==>CE>1
	    && $::RD_TRACE+10<length($_[0]))
	{
		my $count = length($_[0]) - $::RD_TRACE;
		return subs <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5132	5282	
==>ecute permissions on libraries is especially important on
        # some platforms
        if ($^O eq 'hpux' or $^O eq 'cygwin') {
            chmod 07 <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5343	5493	
==>ecute permissions on libraries is especially important on
        # some platforms
        if ($^O eq 'hpux' or $^O eq 'cygwin') {
            chmod 07 <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4348	4492	
==>ecute permissions on libraries is especially important on
			# some platforms
	        if ($^O eq 'hpux' or $^O eq 'cygwin') {
		        chmod 07 <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10748	10877	
==>);
        # Turn char 1234 into "(1234)"
        $section = '_' unless length $section;
    }
    
    foreach my $it ($to, $sect <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4125	4245	
==>);
     # Turn char 1234 into "(1234)"
    $section = '_' unless length $section;
  }
  
  

  foreach my $it ($to, $sect <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921500	921888	
==>,
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1037,
                  "ARGS" => [
                              "s",
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line 316 \ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14523	14623	
==>lf->unget_token(@to_unget);
  
  if(DEBUG) {
    if(defined $title) { print "  Returing title <$title <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	23088	23188	
==>lf->unget_token(@to_unget);
  
  if(DEBUG) {
    if(defined $title) { print "  Returing title <$title <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2840	2981	
==>([^}]+) \}          # test description
             \s+ (?:\S+ \s+)? \{ \n     # optional test harness info (ignoring)
                 ( (?:\ <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4237	4378	
==>([^}]+) \}          # test description
             \s+ (?:\S+ \s+)? \{ \n     # optional test harness info (ignoring)
                 ( (?:\ <==
3	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	521	621	
==>s could be in BEGIN block
my ( $parrot_version, @parrot_version );

sub parrot_version
{
    if (defi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627820	628194	
==>=> "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 704,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BOD <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1067	1166	
==>_parrot = Parrot::Test::path_to_parrot();
        my $dir_count      = scalar(File::Spec->splitdir($ <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1557	1651	
==>_parrot = Parrot::Test::path_to_parrot();
        my $dir_count = scalar(File::Spec->splitdir($ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	617576	617671	
==>type == lr_types)\n\t    goto runit_v_pp;\n\tif (++lru->u.type == lr_types)\n\t    goto runit_v_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	617634	617729	
==>type == lr_types)\n\t    goto runit_v_pp;\n\tif (++lru->u.type == lr_types)\n\t    goto runit_v_ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4590	4739	
==>";
    if ($captures) { 
        $captures = qq(
            print "\\n"
            match."dump"("mob"," ","")\n); 
    }
    else {
        $capture <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101368	101631	
==>"NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102138	102401	
==>"NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103574	103837	
==>"NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2338	2497	
==>in( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ /gcc/i) {
            $liblist =~ s/gdbm\.lib/-llibgdbm/i;
        }
        my $extraLibs = '-lm -l <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2630	2789	
==>in( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ /gcc/i) {
            $liblist =~ s/gdbm\.lib/-llibgdbm/i;
        }
        my $extraLibs = '-lm -l <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2425	2584	
==>in( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ /gcc/i) {
            $liblist =~ s/gdbm\.lib/-llibgdbm/i;
        }
        my $extraLibs = '-lm -l <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920405	920681	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sprintf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921297	921573	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sprintf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	922190	922466	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sprintf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	8136	8262	
==>args) = @_;
    
    my $usage = create_usage(@args);
    my $code  = "bad_args: \n"
              . ".throw('wrong # args: sho <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060040	1060137	
==>code_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null name\");\n\n    nex <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060945	1061042	
==>code_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null name\");\n\n    nex <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	1256	1372	
==>es
{
    my ($self, $conf) = @_;

    genfile(
        'config/gen/makefiles/root.in' => 'Makefile',
        commentT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	410406	410615	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "send",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411298	411507	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "send",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2835	2920	
==>itwise ops on integers") unless UNIVERSAL::isa($left_type, 'Jako::Construct::Type::Int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10652	10963	
==>eck_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 14,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#l <==
3	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	756	842	
==>nclude "dumpstack.pasm"
.include "tokenize.pasm"
.include "basicvar.pasm"
.include "bas <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2705	2790	
==>itwise ops on integers") unless UNIVERSAL::isa($dest_type, 'Jako::Construct::Type::Int <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1505	1607	
==>d (again)
 * be in includes/parrot/event.h
 *
 * This gives +50 % performance
 */

#undef  CHECK_EVENTS <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	5249	5344	
==>urn $self->{Exported_To};
}

=item B<plan>

  $Test->plan('no_plan');
  $Test->plan( skip_all => <==
3	/Users/nnunley/parrot/languages/scheme/Scheme.pm	987	1076	
==>XXX: Move Generator::_format_columns to own class
    Scheme::Generator::_format_columns($ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568854	569276	
==>RS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 650,
                  "ARGS" => [
                              "i",
                              "p",
                              "s"
                            ],
                  "BODY" => "#l <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7483	7592	
==>^=\w/o;
	
	return $text unless $text =~ /-/o;
	
	# There has to be some space each side of the dash.
	my ($pat <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	63258	63352	
==>rmost
opening bracket.

=item C<Did not find opening tag: /%s/>

C<extract_tagged> did not find <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	176	299	
==>al	=> $2,
			done	=> $1,
			percent	=> int(($1 / $2) * 100)
		};
	}
}

print <<HEADING;
Name & Done & Total & Percen <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87456	87745	
==>make_cb(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88458	88747	
==>make_cb(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	2033	2130	
==>uire Compress::Bzip2; debug "Bzip2 compression on\n" } and
    return $compress = sub { Compress:: <==
3	/Users/nnunley/parrot/config/auto/signal.pm	534	640	
==>ptions->get('verbose');

    $conf->data->set(
        has___sighandler_t => undef,
        has_sigatomic_t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623545	623650	
==>e {\n\tsig = NULL;\n\tdest_pred = NULL;\n    }\n    lru = &mic->lru;\n    if (lru->u.signature == sig) {\n <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11391	11489	
==>5);
  return undef if length $out > $Linearization_Limit;
  
  $out = $self->unicode_escape_url($ou <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7442	7590	
==>In line rule
            and do {
                    $lhs =~ /^\@[0-9]+\-([0-9]+)$/
                or  die "In line rule name '$lhs' ill formed: <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7099	7244	
==>In line rule
            and do {
                    $lhs =~ /^\@[0-9]+\-([0-9]+)$/
                or  die "In line rule name '$lhs' ill formed: <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	3426	3556	
==>$hugeintval{hugeintval}) {
            $conf->data->set(int8_t => undef);
            next;
        }

        if ($hugeintval{huge <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	20909	21037	
==>' => 'isne',
	    '>' => 'isgt',
	    '>=' => 'isge',
	    '<' => 'islt',
	    '<=' => 'isle',
	    'is' => 'issame',
	    'is no <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	965	1076	
==>/build/vtable_h.pl'),
            $self->new_item('', 'tools/build/vtable_extend.pl'),
        ),
        $self- <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	14307	14403	
==>eference.

The initializer for a class element is an object of the corresponding class,
or of one <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7208	7343	
==>' => 123}, ' foo']
        
        ++$self->{'pod_para_count'};
        
        $self->_ponder_paragraph_buffer();
         # by now i <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22340	22453	
==>itle = $t->text . $title if $t->type eq 'text';
      }
      undef $title if $title =~ m<^\s*$>; # make sure it's <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22824	22937	
==>itle = $t->text . $title if $t->type eq 'text';
      }
      undef $title if $title =~ m<^\s*$>; # make sure it's <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6503	6610	
==>an POD it may be directly linked to.

=cut

sub is_docs_link
{
	my $self = shift;

	# TODO - This needs more <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011375	1011482	
==>/ops/sys.ops\"\n  {{\@1}} = Parrot_Run_OS_Command(interpreter, {{\@2}});\n  {{+=3}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012140	1012247	
==>/ops/sys.ops\"\n  {{\@1}} = Parrot_Run_OS_Command(interpreter, {{\@2}});\n  {{+=3}};\n",
                  " <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	31596	31694	
==>$temp = $self->_generate($_);
    if ($temp =~ /[INS]/) {
      $self->_add_inst('','print',[$temp] <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2369	2464	
==>ERNAL_ERROR("Can't determine type of formal argument (%s)!", $formal_arg_name) 
      unless def <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2069	2164	
==>ERNAL_ERROR("Can't determine type of formal argument (%s)!", $formal_arg_name) 
      unless def <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203372	203660	
==>],
                  "TYPE" => "function",
                  "CODE" => 240,
                  "ARGS" => [
                              "sc",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 380 \"src/o <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	5009	5145	
==>op, $R, @rest);
        } else {
            return $self->rewrite_nongreedy_plus($op, $R, @rest);
        }
    } else {
        if ($gr <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	225	316	
==>head1 NAME

Parrot::Test::HQ9plus - Testing routines specific to 'HQ9plus'.

=head1 DESCRIPT <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23619	23719	
==>'set',[$return,$temp]);
    $self->_add_inst("NEXT_$label");
    $self->_restore($temp);
  }
  return <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24081	24181	
==>'set',[$return,$temp]);
    $self->_add_inst("NEXT_$label");
    $self->_restore($temp);
  }
  return <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20473	20564	
==>::Document>,
L<RTF::Generator>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	531416	531659	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cosh",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
3	/Users/nnunley/parrot/config/inter/shlibs.pm	827	927	
==>self, $conf) = @_;

    my $cc_shared = $conf->options->get('cc_shared');
    $cc_shared = integrate( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19973	20065	
==>=head1 VERSION\n\n[BIG BLOCK]\n" block.  Note that this does NOT
return the module's C<$VERSI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066802	1066977	
==>",
                              "n"
                            ],
                  "BODY" => "#line 49 \"src/ops/experimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067988	1068163	
==>",
                              "n"
                            ],
                  "BODY" => "#line 49 \"src/ops/experimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293431	293543	
==>/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294307	294419	
==>/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295183	295295	
==>/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451624	451851	
==>> "#line 225 \"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452363	452590	
==>> "#line 225 \"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18037	18128	
==>sh @{$code{$seg}->{code}}, "DO_$docounter:\n";
		push(@dos, { jump => $docounter, needstmt = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453101	453328	
==>> "#line 230 \"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453840	454067	
==>> "#line 230 \"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	29820	29921	
==>sh_func($_), qq{\n};
			}
		}
		print FUNC<<FUNCEND;
	goto UF_DISPATCH_END
UF_DISPATCH_END:
	#print "E <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	33961	34085	
==>grep !$_->{'ok'}, 
                              @{$test_results}[0..$self->{Expected_Tests}-1];
        $num_failed += abs($ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2602	2711	
==>$dest) . " if $val1 $test $val2;";
}

sub output_eq {
    my ($self, $val1, $val2, $dest) = @_;
    $self->out <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	3499	3690	
==>y;
                    while ($asm =~ s/\b(s(.).+?\2.*?\2)(?:\s+)?//) {
                        eval "\$tbody =~ ${1}g";
                        if ($@) {
                            die "erro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13751	13891	
==>"
                            ],
                  "BODY" => "#line 231 \"src/ops/core.ops\"\n  opcode_t * loc;\n  stack_push(interpreter, &C <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	6162	6266	
==>REFIX\n", $api, $API{$api};
    }
}

if (@UnParrotAPI) {
    printf "--- No Parrot API: %d ---\n", scalar <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1924	2022	
==>ssing the test if
they do not match. The same pattern argument syntax above applies here.

=cut

su <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3456	3554	
==>ssing the test if
they do not match. The same pattern argument syntax above applies here.

=cut

su <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	4555	4695	
==>/'\n";
    foreach (split /\n/, $ignore{$dir}) {
        s/\./\\./g; s/\*/.*/g;
        print $SKIP
            $dir ne '.' ?
            "^$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427909	427997	
==>ODY" => "#line 69 \"src/ops/math.ops\"\n  mmd_dispatch_v_pn(interpreter, {{\@2}}, {{\@3}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428796	428884	
==>ODY" => "#line 69 \"src/ops/math.ops\"\n  mmd_dispatch_v_pn(interpreter, {{\@2}}, {{\@3}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019082	1019371	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "localtime",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020012	1020301	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "localtime",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	27655	27749	
==>ed('<HEAD>','</HEAD>');

	($extracted, $remainder) = $extract_head->($text);


=head1 DESCRIPTI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135898	136257	
==>se_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 167,
                  "ARGS" => [
                              "s",
                              "sc" <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	876	978	
==>d print "Stack is now: ",
    join(">", map $_->[0], @{$_[0]{'_currpos'}}), "\n";
  return;
}

sub _han <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1109	1211	
==>d print "Stack is now: ",
    join(">", map $_->[0], @{$_[0]{'_currpos'}}), "\n";
  return;
}

sub _han <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	4310	4415	
==>arg_type
{
    my $self = shift;

    return $self->{ARGS}[shift];
}

=item C<arg_dirs()>

Returns the dir <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	13666	13768	
==>parse_file.

  my($self, $source, $to) = @_;
  $self = $self->new unless ref($self); # so we tolerate b <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	13919	14012	
==><struct> always creates a constructor called C<new>. That constructor
may take a list of initi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	537291	537517	
==>math.ops\"\n  {{\@1}} = sin((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569070	569322	
==>E" => 650,
                  "ARGS" => [
                              "i",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 218 \"src/ops/object.ops\"\n  {{\@1}} = {{ <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	11993	12098	
==>p

inner_done:
    push result, $P1
    goto outer_loop

outer_done:
    .return(result)
.end

.sub unicod <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	2473	2575	
==>|| die "No target\n";
    my $silent = shift || 0;
    my $index_html = $self->write_contents_html($sou <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	7162	7303	
==>em$O", "$src_stem.c"))
          or die "compile $src_stem.c failed ($?)\n";
    }
    else {
        1;
    }
}

sub partial_link {
    my ($ <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5456	5597	
==>em$O", "$src_stem.c"))
          or die "compile $src_stem.c failed ($?)\n";
    }
    else {
        1;
    }
}

sub partial_link {
    my ($ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7373	7514	
==>em$O", "$src_stem.c"))
          or die "compile $src_stem.c failed ($?)\n";
    }
    else {
        1;
    }
}

sub partial_link {
    my ($ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2983	3101	
==>und; but Pod::Simple v$Pod::Simple::VERSION doesn't implement UTF16 yet."
        );
        splice @_;
        push @_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3381	3499	
==>und; but Pod::Simple v$Pod::Simple::VERSION doesn't implement UTF16 yet."
        );
        splice @_;
        push @_ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	14977	15087	
==>p-level sections
    # have their indexes in the root directory - but it works.
    
    $self->{NAV_BAR} = $it <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25666	25778	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT|PARROT_JUMP_REST <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	45	170	
==>D__

use 5.005_03;

use strict;
# use warnings::register;
use vars qw(@ISA @EXPORT $VERSION);

use Carp;

BEGIN {
require Expo <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27734	27828	
==>->{itempos}? 'do {'.Parse::RecDescent::Production::incitempos().' 1} and ' : '')
		. '  $text = <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29844	29938	
==>->{itempos}? 'do {'.Parse::RecDescent::Production::incitempos().' 1} and ' : '')
		. '  $text = <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	14531	14660	
==>escent::(Action|Directive)/)
		{
			return 1 if $item->{code} =~ /\$skip/;
		}
	}
	return 0;
}

sub adddirective
{
	my ( $self, $w <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	31367	31486	
==>$eh
EOC
}
sub POP_BLOCK
{
    my ($n, $c, $cmt) = @_;
    if (@loops) {
	my $pc = pop @loops;
	print <<EOC;
	# $pc  $cmt <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3526	3642	
==>t];
    }

    return %tests;
}

##
## $preamble = extract_preamble($string)
##
## Extract the preamable for tests fr <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	3761	3869	
==>ni->val( global => 'method', 1 );
}

if ( ! @{ $cfg{run_bench} } ) {
    my @regexes = grep defined, $ini->va <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9552	9656	
==>failed');

  skip('skip this test for now');

  flunk('this fails, but might work soon', :todo(1));

  di <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	66	155	
==>/Parrot/Distribution.pm 19602 2006-05-30T13:40:58.862833Z coke  $

=head1 NAME

Parrot::Di <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5527	5628	
==>, 'set', [$pair.'[1]',$return]);
      $self->_add_inst ('', 'set', [$return,$pair]);
      $self->_re <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17075	17171	
==>, 'set',[$pair.'[1]',$return]);
    $self->_add_inst ('', 'set',[$return,$pair]);

    $self->_re <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6561	6653	
==>, 'set', [$pair.'[1]',$return]);
  $self->_add_inst('', 'set', [$return,$pair]);
  $self->_re <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	7997	8155	
==>assign to element

                                    # array type accessor:
    $ary_ref = $obj->a;                 # reference to whole array
    $ary_eleme <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1615	1710	
==>ype instance!")
    unless UNIVERSAL::isa($type, "Jako::Construct::Type");

  my $type_name = $t <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1463	1558	
==>ype instance!")
    unless UNIVERSAL::isa($type, "Jako::Construct::Type");

  my $type_name = $t <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10454	10609	
==>ypes;
    my $state = 0;
    my $depth = 0;
    for my $c (split(//, $data)) {
        if ($state == 0) {
            if ($c eq '\\') {
                $sta <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	12715	12827	
==>t iter
    push result, $P1

    dec op1
    goto pos_loop

done:
    .return (result)
.end

.sub unicode:"dyadic <==
3	/Users/nnunley/parrot/lib/Test/More.pm	8631	8733	
==>t for false and 0.
In these cases, use ok().

  ok( exists $brooklyn{tree},    'A tree grows in Brookly <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	270607	270924	
==>isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 315,
                  "ARGS" => <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	2566	2694	
==>ode:"dyadic:\u2371"]  = <<"END_PIR"             # nor
    $I100 = %1
    $I101 = %2
    $I100 = or $I100, $I101
    $I100 = not $ <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	2271	2390	
==>ove it up into the next version becone
        # (2.8)

        # Don't use -ansi -pedantic.  It makes it much harder to <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2274	2394	
==>t("  $cond $left $op $right goto _LABEL_$name");
  }

  return;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($han <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	16837	16948	
==>> instances found in the file(s).

=cut

sub ops
{
    my ($self) = @_;

    return @{$self->{OPS}};
}

=item C< <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	3768	3879	
==>lues %{$self->{pmcs}}) {
        my $name = lc $pmc->{class};
        $cout .= <<"EOC";
#include "pmc_$name.h"
E <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	782	874	
==>'/usr/bin'.

=item C<libdir>

The library directory. Defaults to '/usr/lib'.

=item C<include <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	1011	1103	
==>'/usr/bin'.

=item C<libdir>

The library directory. Defaults to '/usr/lib'.

=item C<include <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2777	2879	
==>~~~

sub new {
  my $new = shift->SUPER::new(@_);
  #$new->nix_X_codes(1);
  $new->nbsp_for_S(1);
  $ne <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3133	3233	
==>~~~
sub new {
  my $new = shift->SUPER::new(@_);
  $new->nix_X_codes(1);
  $new->nbsp_for_S(1);
  $ne <==
3	/Users/nnunley/parrot/Configure.pl	9571	9685	
==>:snprintf
    auto::perldoc
    auto::python
    auto::bc
    auto::m4
    gen::icu
    gen::revision
    gen::conf <==
3	/Users/nnunley/parrot/config/init/hints/hpux.pm	138	245	
==>t::hints::hpux;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    my $libs = $conf->data->get('li <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Examples.pm	439	536	
==>e strict;
use warnings;

use base qw( Parrot::Docs::Section );

use Parrot::Docs::Item;
use Parrot <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	2306	2399	
==>Fallthrough return() in case the code in the sub doesn't return anything
  $compiler->emit(".e <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6364	6473	
==>.
WHILE Exchange          ' Sort until no elements are exchanged.
   Exchange=FALSE
   ' Compare the array ele <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16017	16126	
==>.
WHILE Exchange          ' Sort until no elements are exchanged.
   Exchange=FALSE
   ' Compare the array ele <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	2725	2820	
==>st per program C<new> always returns the same
Test::Builder object.  No matter how many times yo <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8351	8491	
==>TDERR "Back to state $$stack[-1][0], then ";

                $$check eq 'ERROR'
            or  do {
#DBG>				$debug & 0x04
#DBG>			and <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7971	8106	
==>TDERR "Back to state $$stack[-1][0], then ";

                $$check eq 'ERROR'
            or  do {
#DBG>				$debug & 0x04
#DBG>			and <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	2303	2392	
==>a Gatcomb, C<Limbic_Region_2000@Yahoo.com>

Originally written by:

Sebastian Riedel, C<sr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944972	945236	
==>etname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 106 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945781	946045	
==>etname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 106 <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	30568	30681	
==>lso note additional attributes including:
#

############# The "type" attribute.
# Fifth:
# A flag for whether ite <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	11796	11904	
==>hash functions are from imcc, thanks to Melvin.
 */


typedef struct hop {
    op_info_t * info;
    struct h <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	1863	1963	
==>define opcode_to_prederef(i, op)   (op ? \\
     (void**) (op   - CONTEXT(i->ctx)->pred_offset) : NUL <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1274	1374	
==>define opcode_to_prederef(i, op)   (op ? \\
     (void**) (op   - CONTEXT(i->ctx)->pred_offset) : NUL <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	59285	59415	
==>uildTable( $_[0], $_[2] );
        }
	],
	[#Rule 105
		 'tableconstructor', 2,
sub
#line 566 "Lua\lua51.yp"
{
            B <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	7448	7545	
==>ink_cmd("$group$LOAD_EXT", $libs, \@sources))
          or die "partial link $group$LOAD_EXT faile <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7659	7756	
==>ink_cmd("$group$LOAD_EXT", $libs, \@sources))
          or die "partial link $group$LOAD_EXT faile <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42628	42736	
==>RecDescent;

use Carp;
use vars qw ( $AUTOLOAD $VERSION );

my $ERRORS = 0;

$VERSION = '1.80';

# BUILDING A <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4162	4267	
==>trict 'refs';

			exists(${__PACKAGE__.'::'}{_DBParse})#Already loaded ?
		and	return;
	}
	my($fname) <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3949	4049	
==>trict 'refs';

			exists(${__PACKAGE__.'::'}{_DBParse})#Already loaded ?
		and	return;
	}
	my($fname) <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1394	1515	
==>$out_f, STDERR => $out_f, 
        );
        my $prog_output = Parrot::Test::slurp_file( "$out_f" );

        @_ = ( $pro <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1310	1431	
==>$out_f, STDERR => $out_f, 
        );
        my $prog_output = Parrot::Test::slurp_file( "$out_f" );

        @_ = ( $pro <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	7744	7842	
==>p_all>

  $Test->skip_all;
  $Test->skip_all($reason);

Skips all the tests, using the given $reaso <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	20232	20360	
==>ef;
				pos $$textref = $startpos;
				return;
			}
			$ldel2 = $rdel2 = "\Q$1";
			$rdel2 =~ tr/[({</])}>/;
		}
		else
		{
			$l <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15598	15746	
==>[$return.'[0]',$value]);
  $self->_restore ($value);

  return $return;
}

sub _op_set_cdr_bang {
  my ($self, $node) = @_;

  _num_arg ($node, 2, 's <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2517	2613	
==>('src/packfile'),
    ;
}

=item C<c_source_file_with_name($name)>

Returns the C source file wit <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	17617	17710	
==>hile/until
		my $which=$syms[CURR];
		push @{$code{$seg}->{code}}, "DO_$docounter:\n";
		my($r <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3666	3768	
==>($prmlst)={};

	while(($prm,$value)=splice(@$inarray,0,2)) {
        $prm=uc($prm);
			exists($$che <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3476	3574	
==>($prmlst)={};

	while(($prm,$value)=splice(@$inarray,0,2)) {
        $prm=uc($prm);
			exists($$che <==
3	/Users/nnunley/parrot/config/gen/cpu.pm	181	272	
==>d1 DESCRIPTION

Runs C<&run_cpu()> in F<config/gen/cpu/${cpuarch}/auto.pm> if it exists.

=c <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	3008	3109	
==>dex = $target->file_with_name($self->{INDEX_PATH});
    
    $index->write(
        Parrot::Docs::HTML <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	13517	13613	
==>ntf <<'END',
{\info{\doccomm
%s
 using %s v%s
 under Perl v%s at %s GMT}
{\author [see doc]}{\com <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30370	30485	
==>Parse::RecDescent::_tracefirst($text))
							if defined $::RD_TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32570	32685	
==>Parse::RecDescent::_tracefirst($text))
							if defined $::RD_TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28295	28409	
==>Parse::RecDescent::_tracefirst($text))
					if defined $::RD_TRACE;').'

			last;
		}'.($::RD_NO_TRACE?'':'
		Parse <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4387	4485	
==>ass Methods

=over

=item C<new($self, $opt)>

Returns C<$self> as a new instance.

C<$self> is a h <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	28214	28307	
==>ted string, including the specified delimiters.
If the extraction fails an empty string is ret <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969627	969925	
==>ine",
                  "CODE" => 1090,
                  "ARGS" => [
                              "i",
                              "ic",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79120	79213	
==>nst char * const err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80641	80734	
==>nst char * const err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	3388	3497	
==>EBUG(0, "Getting token at $pos");
  
  return $self->at($pos, $count);
}


#
# forth()
#
# Moves the current t <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	6609	6718	
==>END_C

for(@{$real_ops->{OPS}}) {
    my $opname = $_->full_name;
    my $n = $_->{CODE};
    my $comma = $n < <==
3	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	784	906	
==>r{
  (
    ^\.end$
    |
    ^clear_eh$
  )
}smx;

my $blank_before = qr { : $}smx;    #labels

my $verbatim_begin = qr{ ^= <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9922	10031	
==>turn {
    my ($self, $rettype, $retval) = @_;
    $retval = value($retval);
    return ("return $retval;");
} <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	16793	16895	
==>ce @$para, 2; # so it ends up just being ['=item', { attrhash } ]
    $para->[1]{'~orig_content'} = $co <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	3889	4005	
==>_\" goto $label\n";
    }
    $pir .= "goto FAIL\n";

    # Now build method dispatch table for each class.
    forea <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369485	369594	
==>"\n  {{\@1}} = PIO_reads(interpreter, {{\@2}}, (size_t){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	370370	370479	
==>"\n  {{\@1}} = PIO_reads(interpreter, {{\@2}}, (size_t){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	955	1071	
==>{verbose_warning}
        and $parser->YYData->{verbose_warning} );
}

sub Info {
    my $parser = shift;
    m <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	4576	4773	
==>",
       l => "I",
       c => "I",
       s => "I",
       f => "N",
       d => "N",
       b => "S",
       t => "S",
       P => "P",
       O => "P",
       S => "S",
       I => "I",
       N <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	2810	2967	
==>ile instructions to translate class library.
# ##########################################################
sub generate_classlib_make($) {
    my $mono_clas <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1096767	1096858	
==>e(interpreter, {{\@2}}));\n    if (PMC_IS_NULL(ns) || VTABLE_elements(interpreter, ns) < 2)\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	394203	394482	
==>{{\@2}});\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "tel <==
3	/Users/nnunley/parrot/lib/File/Which.pm	234	351	
==>= ($^O eq 'VMS');
my $Is_MacOS  = ($^O eq 'MacOS');
my $Is_DOSish = (($^O eq 'MSWin32') or
                ($^O eq 'do <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18198	18289	
==>{$seg}->{code}}, "\tgoto $labels{$syms[CURR]}\t# Goto $syms[CURR]\n";
}
sub parse_gosub {
	f <==
3	/Users/nnunley/parrot/lib/Test/More.pm	16581	16675	
==>ock so its functions are exported at compile-time and prototypes are
properly honored.

If @imp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	531191	531414	
==>ps/math.ops\"\n  {{\@1}} = cos((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	14968	15136	
==>if ( $assign->isa('AssignOp') ) {
            $assign->configure(
                'arg1' => $expr->[0], 
            );
        }
        else {
            $assig <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	5321	5444	
==>lls) = /\s*([^%]+)% of (\d+) calls executed in file/;
            if ($total_calls) {
                my $covered_calls = in <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10726	10838	
==>le;
    $source_file =~ s/\.gcov$//g;

    my $outfile_base = $source_file; 
    $outfile_base =~ s/\//_/g;
    $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627199	627298	
==>\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n\n  /* Why?? If we're creating a continu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628343	628442	
==>\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n\n  /* Why?? If we're creating a continu <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	1788	1893	
==>rned.

=cut

sub write_html
{
	my $self = shift;
	my $index_html = $self->write_contents_html(@_);
	
	if ( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818404	818562	
==>IZE later\n   */\n  {{=0,+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	4269	4409	
==>'} ? 'UNIMPLEMENTED' : 
                        "BODY_$_->{'class'}___$_->{'method'}";
            $label =~ s/\./_/g;
            $pir .= "i <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	7606	7741	
==>gs{$name};
            
            if ($arg->{type} eq 'script' or $arg->{type} eq 'expr') {
                $code .= emit("temp = a_$n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565244	565603	
==>ject_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 646,
                  "ARGS" => [
                              "i",
                              "p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	17172	17394	
==>ODE" => 23,
                  "ARGS" => [
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 300 \"src/ops/core.ops\"\n  if ({{\@1}} != 0. <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	674	773	
==>T_PROG_ARGS} || '';

    $lang_f = File::Spec->rel2abs($lang_f);
    $out_f  = File::Spec->rel2abs($ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	711	810	
==>T_PROG_ARGS} || '';

    $lang_f = File::Spec->rel2abs($lang_f);
    $out_f  = File::Spec->rel2abs($ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	20014	20158	
==>nop {
    my ( $parser, $op, $expr ) = @_;
    my %type = (
        '-'   => 'number',
        '#'   => 'number',
        'not' => 'boolean' <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	4165	4269	
==>ub _add_inst {
  my $self = shift;
  push @{$self->{instruction}}, [@_];
}

sub generate {
  my ($code, $ <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	155	252	
==>config_pm.pm> from
F<config/gen/config_pm/Config_pm.in>. It contains the C<%PConfig> hash which is <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	5184	5394	
==>AssignOp( $parser,
                    'prolog' => 1,
                    'arg1'   => $expr,
                    'result' => $defn,
                );
            }
        }
        return [ $defn, \@opc <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	682	778	
==>sources> should be the relative path from the page to
F<docs/resources>, the image and CSS file d <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	1900	1996	
==>sources> should be the relative path from the page to
F<docs/resources>, the image and CSS file d <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11869	11980	
==>{
			if ($type[NEXT] =~ /INT|FLO/) {
				feedme();
				$syms[CURR]="-$syms[CURR]";
			}
		}
		if ($type[CURR] =~ <==
3	/Users/nnunley/parrot/config/auto/gc.pm	834	941	
==>bc/malloc/malloc-trace/gc
@args = qw(gc verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $gc = $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54620	54723	
==>OPQRSTUVWXYZ0123456789])>
         #<$pretty_form{$1} || '\\x'.(unpack("H2",$1))>eg;
         <$pretty_f <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	6297	6406	
==>g)
    say $S0
.end

# XXX - the first argument to this multi sub should be some variant of
# integer - but if <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14778	14887	
==>turn $return;
}

sub _op_car {
  my ($self, $node) = @_;

  _num_arg ($node, 1, 'car');

  my $return = $self- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589967	590218	
==>"CODE" => 670,
                  "ARGS" => [
                              "p",
                              "sc",
                              "kc"
                            ],
                  "BODY" => "#line 314 \"src/ops/object.ops\"\n  PMC * <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1110	1221	
==>w module '%s'.\n", __PACKAGE__, $ident->value;

  return $self;
}


#
# ACCESSORS:
#

sub type      { return shi <==
3	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1591	1694	
==>o/smokeserv.pl
    Sets the path to the smoke server.
  --version
    Outputs the version of this progra <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835803	835909	
==>nterpreter, {{\@1}}), STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836556	836662	
==>nterpreter, {{\@1}}), STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	5	95	
==>yright (C) 2004-2006, The Perl Foundation.
# $Id: /parrot/lib/Parrot/IO/Path.pm 19602 2006- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090000	1090321	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice",
                  "FLAGS" => ":python",
                  "ARGD <==
3	/Users/nnunley/parrot/config/inter/progs.pm	4287	4383	
==>arn'), $conf->options->get('ccwarn'));
    $conf->data->set(ccwarn => $ccwarn);

    return $self <==
3	/Users/nnunley/parrot/tools/build/revision_c.pl	383	472	
==>.pl>,
F<lib/Parrot/Revision.pm>,
F<include/parrot/config.h>

=cut

use strict;
use Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	10769	10871	
==>"Parrot::OpsFile: File ended with incomplete op definition!\n";
    }

    close $OPS or die "Could not <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	36019	36113	
==>> \&_op_angle,
  'exact->inexact'   => \&_op_exact_inexact,
  'inexact->exact'   => \&_op_inexa <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2716	2810	
==>ir_for($target, $pattern, 1);

    goto &Parrot::Test::pir_output_like;
}

=item C<pgeglob_is($ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10681	10782	
==>harclass::render {
    die;
}

sub Regex::Ops::Tree::classpieces::render {
    die;
}

sub Regex::Ops: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85526	85617	
==>nterpreter,\n      interpreter->iglobals, IGLOBALS_COMPREG_HASH);\n  {{\@1}} = VTABLE_get_pm <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86433	86524	
==>nterpreter,\n      interpreter->iglobals, IGLOBALS_COMPREG_HASH);\n  {{\@1}} = VTABLE_get_pm <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	414	536	
==>return "advance $distance";
}

#  sub output_fork {
#      my ($label) = @_;
#      return "fork $label->[1]";
#  }

#  sub <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15039	15139	
==>'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
    }
    return;
  } elsif(wantarray) {  # retur <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16222	16322	
==>'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
    }
    return;
  } elsif(wantarray) {  # retur <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4124	4231	
==>r.\n";
}

sub _DBLoad {
	{
		no strict 'refs';

			exists(${__PACKAGE__.'::'}{_DBParse})#Already load <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3916	4016	
==>r.\n";
}

sub _DBLoad {
	{
		no strict 'refs';

			exists(${__PACKAGE__.'::'}{_DBParse})#Already load <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29173	29263	
==>my $n = $self->{vtable}{has_method}{$meth};
    return $self->{vtable}{methods}[$n]{mmd} =~ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	28212	28308	
==>art_line = $stack[0][1]{'start_line'};

  # A recursive algorithm implemented iteratively!  Whee! <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	31713	31809	
==>art_line = $stack[0][1]{'start_line'};

  # A recursive algorithm implemented iteratively!  Whee! <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	41584	41680	
==>art_line = $stack[0][1]{'start_line'};

  # A recursive algorithm implemented iteratively!  Whee! <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	11595	11707	
==>c, $lastback);
}

sub rewrite_charclass {
    my ($self, $op, $incexc, $lastback) = @_;

    my @ops;
    push @o <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2384	2495	
==>($self)=shift;

		exists($$self{USER})
	or	$$self{USER}={};

	$$self{USER};
	
}

sub YYErrok {
	my($se <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2291	2392	
==>($self)=shift;

		exists($$self{USER})
	or	$$self{USER}={};

	$$self{USER};
	
}

sub YYErrok {
	my($se <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462939	463246	
==>}}, den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463936	464243	
==>}}, den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20288	20386	
==>.

And if you're not writing a formatter class, but are instead just
writing a program that does so <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	10996	11120	
==>o_LHS:
    if op2 < 0 goto neg_RHS
    .return(op2) 
neg_RHS:
    %% DOMAIN_ERROR %%
.end

.sub 'monadic:~'               # n <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	4165	4271	
==>undef the instance.

    delete($instance_for_path{$_[0]->path});
    
    undef $_[0];
}

=back

=head1 SE <==
3	/Users/nnunley/parrot/config/auto/aio.pm	1075	1254	
==>sult('yes');

            $conf->data->set(
                aio        => 'define',
                HAS_AIO    => 1,
                D_SIGRTMIN => $1,
                D_SIGRTMAX => <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	464	560	
==>basic work of this module Pod::Simple::BlackBox is doing the dirty work
# of parsing Pod into tre <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7406	7493	
==>self->_add_inst('', 'set', [$list,$list.'[1]']);
  $self->_add_inst('', 'typeof', [$type <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691132	691270	
==>"
                            ],
                  "BODY" => "#line 626 \"src/ops/pmc.ops\"\n   {{\@1}} = Parrot_thaw(interpreter, {{\@2}}) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691889	692027	
==>"
                            ],
                  "BODY" => "#line 626 \"src/ops/pmc.ops\"\n   {{\@1}} = Parrot_thaw(interpreter, {{\@2}}) <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	2716	2812	
==>this to find out whether the file has been modified since the
specified time. C<$time> is a numbe <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21828	21932	
==>token;

      my ($cond, $left, $op, $right);

      if ($self->get(1)->is_if or $self->get(1)->is_unless <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24408	24512	
==>token;

      my ($cond, $left, $op, $right);

      if ($self->get(1)->is_if or $self->get(1)->is_unless <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	1807	1903	
==>osing)

=item C<include>

Write this file to the location given by the C<--includedir> option

=i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	495	618	
==>== 5;

  my ($block, $prefix, $left, $op, $right) = @_;

  my $self = bless {
    BLOCK     => $block,

    PREFIX    => $pr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	495	618	
==>== 5;

  my ($block, $prefix, $left, $op, $right) = @_;

  my $self = bless {
    BLOCK     => $block,

    PREFIX    => $pr <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	1517	1626	
==>b process_upload {
  my $CGI = shift;
  #print "HTTP/1.0 200 OK\n";
  print $CGI->header;

  limit_rate();
  v <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1844	1946	
==>"Yapp driver version $VERSION ".
			  "incompatible with version $$self{VERSION}:\n".
			  "Please re <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1779	1879	
==>"Yapp driver version $VERSION ".
			  "incompatible with version $$self{VERSION}:\n".
			  "Please re <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3652	3764	
==>ule!")
        unless $self->block->kind eq 'module';

      my %module_props = $self->block->props;

      $self <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6316	6428	
==>ule!")
        unless $self->block->kind eq 'module';

      my %module_props = $self->block->props;

      $self <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	2142	2239	
==>derate heat, warm the oil until hot.

Add the puree and the balsamic vinegar, and cook, stirring o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347519	347873	
==>i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 405,
                  "ARGS" => [
                              "p",
                              "sc",
                              "sc"
                            ],
                  "BODY" => "#line 148 \"s <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	290	409	
==>rrot:

    % perl tools/dev/nm.pl parrot

=head1 DESCRIPTION

Portable frontend for C<nm(1)>; by default lists all the c <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	657	751	
==>T UNSHIFT DELETE);
  @writes{@writes} = (1) x @writes;
}
use Text::Balanced 'extract_bracketed' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906115	906376	
==>=> [
                              "s",
                              "p",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 262 \"src/ops/string.ops\"\n  {{\@1}} = {{\@2}}->vt <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2213	2329	
==>= eval '$self->_DBParse()';#Do not create stab entry on compile
        $@ and die $@;
	}
	else {
		$retval = $se <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2130	2242	
==>= eval '$self->_DBParse()';#Do not create stab entry on compile
        $@ and die $@;
	}
	else {
		$retval = $se <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18403	18509	
==>eq {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0 <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20093	20199	
==>eq {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0 <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20582	20688	
==>eq {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0 <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4040	4145	
==>0\n";
	for (1..$pushes) {
		$pir .= <<'PIR';
# Increment stack depth.
inc stack_depth

# Get type (so we c <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2456	2561	
==>0\n";
	for (1..$pushes) {
		$pir .= <<'PIR';
# Increment stack depth.
inc stack_depth

# Get type (so we c <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	52588	52677	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _dump_curr_open { # return a string repres <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	22042	22148	
==>t "One"
	case 2
		print "Two"
	case 3
		print "Correct"
	case else
		print "WRONG!"
end select
print "All d <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63216	63309	
==>d $rule and $rule->addcall($name);

						_check_insatiable($name,$1,$grammar,$line) if $::RD_ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63937	64030	
==>d $rule and $rule->addcall($name);

						_check_insatiable($name,$1,$grammar,$line) if $::RD_ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5895	6023	
==>p
        my $group = $class->{flags}{group}
          or next;
        ($group) = keys %$group;
        $pmc_group{$pmc} = $grou <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6106	6234	
==>p
        my $group = $class->{flags}{group}
          or next;
        ($group) = keys %$group;
        $pmc_group{$pmc} = $grou <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	358	445	
==>or the
specified CPU architecture type (F<src/jit/cpu-architecture-name/core.jit>).

=cu <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	2585	2730	
==>cals for op" ]),
                map { aop('popint' => [ $_, "op rxlocal $_" ]) }
                    reverse @$rxlocals);
    }
}

sub rule_save_ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	55509	55643	
==>Literal( $_[0], $_[1], 'nil' );
        }
	],
	[#Rule 77
		 'primary', 1,
sub
#line 420 "Lua\lua51.yp"
{
            BuildLiter <==
3	/Users/nnunley/parrot/tools/util/pirtidy.pl	1045	1143	
==>iberal about how it formats your file -- it has
no qualms about converting your script to use a max <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	7234	7369	
==>\n";
    }
    else {
        1;
    }
}

sub partial_link {
    my ($group, $libs, $stems) = @_;

    my @sources = map { "$_$O" } @$st <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7445	7580	
==>\n";
    }
    else {
        1;
    }
}

sub partial_link {
    my ($group, $libs, $stems) = @_;

    my @sources = map { "$_$O" } @$st <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	4933	5025	
==>igest::Perl::MD5>.

You can also install the Perl part of Digest::MD5 together with Digest::P <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	26832	26954	
==>'"
      );
      return;
    }

    DEBUG > 3 and printf "Extensor: Fallbacks <%s> Elements <%s>.\n",
     @fallbacks, @el <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	12513	12622	
==>(isarray($sym)) {
NEST_ARRAY_ASSIGN:
				if ($ac == 0) {
					$optype="P";
				}
				push @code, qq{\t\$$optyp <==
3	/Users/nnunley/parrot/config/init/hints/cygwin.pm	55	142	
==>ot/config/init/hints/cygwin.pm 19593 2006-05-30T02:28:15.110975Z coke  $

package init:: <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9571	9697	
==>o hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	print STDERR "**At eof: aborting.\n";
				return(undef);
			};

#D <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9141	9260	
==>o hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	print STDERR "**At eof: aborting.\n";
				return(undef);
			};

#D <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	15444	15561	
==>>[1] = arg$_;"} @tempi);
        print NCI << "HEADER";
static void
pcf_${return}_$params(Interp *interpreter, PMC *se <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	589	691	
==>he ops.

=cut

sub defines
{
    return <<END;
#define REL_PC (cur_opcode - start_code)
#define IREG(i) <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	839	938	
==>lete(n)" => "delete record of n-th paren match" ],

    [ "goto(label)" => "unconditional jump to la <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1825	1923	
==>ATIBLE
	and	croak "Yapp driver version $VERSION ".
			  "incompatible with version $$self{VERSION <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1761	1857	
==>ATIBLE
	and	croak "Yapp driver version $VERSION ".
			  "incompatible with version $$self{VERSION <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33542	33661	
==>ses where we /didn't/ push to @$para
            if($paras->[0][0] eq '~Para') {
              DEBUG and print "Assimila <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35355	35474	
==>ses where we /didn't/ push to @$para
            if($paras->[0][0] eq '~Para') {
              DEBUG and print "Assimila <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39342	39446	
==>will be out by one - NWC
    my $l = $self->line_directive($line, "delegate.c");
    return <<EOC;
$l
${d <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	13101	13206	
==>ie "Can't close $filename: $!";

    return $text;
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::Con <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	10654	10758	
==>xpression have $type[CURR] $syms[CURR]\n";
		$eol=0;
		$expr=1;
		next;
	}
	unless ($eol) {
		fdprint($fd <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6124	6220	
==>Required: (TODO: domain)

  confess "No block!"  unless defined $self and ref $self and $self->is <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	6678	6836	
==>e labels
        if ($line =~ /^\s* (\w+) \s* : \s*$/mx) {
            $code .= emit($1."_%0:", 'loop_num');
            next;
        }
        
        # ren <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2361	2456	
==>elf->INTERNAL_ERROR("Can't determine type of formal argument (%s)!", $formal_arg_name) 
      un <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2061	2156	
==>elf->INTERNAL_ERROR("Can't determine type of formal argument (%s)!", $formal_arg_name) 
      un <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852902	853166	
==>> "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 96 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853683	853947	
==>> "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 96 <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	11526	11635	
==>, "", '\{', '\}', '\{', '\}', 0)
		or $deref eq '$#' or $deref eq '$$' )
	    {
		_failmsg "Bad identifier aft <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1096692	1096818	
==>ace_name(interpreter, \n                                    VTABLE_namespace(interpreter, {{\@2}}));\n    if (PMC_IS_NULL(ns) | <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	17740	17855	
==>porting $why.

=cut

sub skip {
    my($self, $why) = @_;
    $why ||= '';
    $self->_unoverload(\$why);

    unles <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	9316	9419	
==>slash}$ops > ops${slash}$pod\n";
                print MAKEFILE "\t\$(CHMOD) 0644 ..${slash}ops${slash}$ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	13388	13508	
==>pieces' => 30
		}
	},
	{#State 15
		DEFAULT => -38
	},
	{#State 16
		DEFAULT => -28,
		GOTOS => {
			'rulename' => 33
		} <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	17380	17478	
==>om'=>$thisline,   'to'=>undef},
				'column' => {'from'=>$thiscolumn, 'to'=>undef} };
	}
}

sub inc <==
3	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	628	724	
==>y $output = `mcs -out:$file_name $kind $opt $file_name.cs`;
	if ($output) {
		print "compile_cs f <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	1655	1765	
==>ves);
	#print CODE "\t.sub ${seg}_main\n\t\tsaveall\n";

	# If any "common" declared variables are in scope, se <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	28228	28324	
==>k[0][1]{'start_line'};

  # A recursive algorithm implemented iteratively!  Whee!

  while($treel <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	31729	31825	
==>k[0][1]{'start_line'};

  # A recursive algorithm implemented iteratively!  Whee!

  while($treel <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	16048	16226	
==>ackage main;
    $x = new MyObj;
    print "\$x->count(5) = ", $x->count(5), "\n";
                            # prints '$x->count(5) = 5'

    print "\$x->count = ", $x->count, " <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2596	2707	
==>BERR}};
}

sub YYRecovering {
	my($self)=shift;

	${$$self{ERRST}} != 0;
}

sub YYAbort {
	my($self)=s <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2484	2585	
==>BERR}};
}

sub YYRecovering {
	my($self)=shift;

	${$$self{ERRST}} != 0;
}

sub YYAbort {
	my($self)=s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050945	1051197	
==>CODE" => 1174,
                  "ARGS" => [
                              "p",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 172 \"src/ops/var.ops\"\n    opcode_t <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1616	1719	
==>tdent;
      $compiler->emit(".endnamespace ${namespace}_CONT");
    }

    $compiler->emit("  goto ${pr <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	2729	2825	
==>irectory, $silent);
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::Docs::Section::Info>

=it <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	14031	14188	
==>S_ops) = $self->rewrite($S, $back);

    return $S_back, (
                     aop('pushmark'),
                     aop('pushindex'),
                     @ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	47434	47545	
==>source
  
  my $class = shift(@_);

  my $mutor = shift(@_) if @_ and ref($_[0] || '') eq 'CODE';

  DEBUG and p <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	17470	17563	
==>_END__ 

=head1 NAME

tools/gen_operator_defs.pl - Generate the definitions for all the variou <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288928	289197	
==>nline",
                  "CODE" => 336,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 935 \"src/ops/cmp.ops\"\n  { <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	4647	4748	
==>on {
	my($result, $type, @code)=EXPRESSION;  # The switch...
	feedme();
	my $branch=$syms[CURR];  # go <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	9640	9771	
==>>Call Coverage</th>
    );

        my $outfile_base = $source_file; 
        $outfile_base =~ s/\//_/g;

        foreach my $functi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835767	835850	
==>ter->ctx)->user_stack, string_copy(interpreter, {{\@1}}), STACK_ENTRY_STRING, STACK_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836520	836603	
==>ter->ctx)->user_stack, string_copy(interpreter, {{\@1}}), STACK_ENTRY_STRING, STACK_ <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1524	1657	
==>ser = shift;
    my $str    = q{};
    my $type   = 'STRING';

    while ( $parser->YYData->{INPUT} ) {

        for ( $parser-> <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3039	3172	
==>ser = shift;
    my $str    = q{};
    my $type   = 'STRING';

    while ( $parser->YYData->{INPUT} ) {

        for ( $parser-> <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2978	3081	
==>E__ . ':' . __LINE__ . ' File not found:' . $name ."\n";

    return;
}

=item C<c_header_file_directori <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567910	568207	
==>FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 649,
                  "AR <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	58305	58405	
==>of the characters in the single argument. For example:

        gen_delimited_pat(q{'"})

returns the <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897867	898186	
==>],
                  "TYPE" => "inline",
                  "CODE" => 1013,
                  "ARGS" => [
                              "s",
                              "ic",
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 257 \"src <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	42962	43077	
==>ow->[1];
      $self->{code} .= $label . ' ' x ($max_len[1]-length($label)+2);
      $label = $row->[2];
      $self <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853435	853725	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ": <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854217	854507	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ": <==
3	/Users/nnunley/parrot/config/auto/aio.pm	699	837	
==>nfig/auto/aio/aio.in');
    eval { cc_build(); };
    if (!$@) {
        $test = cc_run(35);

        # if the test is failing with sigacti <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11771	11944	
==>ssign = new KeyedSetOp( $parser,
                        'arg1'   => $last_key->[0],
                        'arg2'   => undef,
                        'result' => $result <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9971	10132	
==>ssign = new KeyedSetOp( $parser,
                    'arg1'   => $last_key->[0],
                    'arg2'   => undef,
                    'result' => $result <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8826	8963	
==>ssign = new KeyedSetOp( $parser,
            'arg1'   => $last_key->[0],
            'arg2'   => undef,
            'result' => $result <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34958	35061	
==>ted
				   = $Parse::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = $Parse::RecDe <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42068	42171	
==>ted
				   = $Parse::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = $Parse::RecDe <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	5812	5945	
==>q(
        .sub _PGE_Test
            .local pmc p6rule_compile
            load_bytecode "PGE.pbc"
            p6rule_compile = compr <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	55588	55716	
==>sub
#line 420 "Lua\lua51.yp"
{
            BuildLiteral( $_[0], $_[1], 'boolean' );
        }
	],
	[#Rule 78
		 'primary', <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	5860	5963	
==>->size) if $self->type eq 'auto';

    return $body;
}

# Called from rewrite_body() to perform the actu <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	2446	2566	
==>}

gen_code();


# object part of this module
sub new {
	my $class = shift;
	bless {}, ref($class) || $class;
}

sub rese <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576545	576654	
==>{{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577557	577666	
==>{{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/config/inter/shlibs.pm	165	271	
==>gs for shared libraries.

=head1 DESCRIPTION

Asks the user which flags are needed for compiling position-i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826378	826470	
==>DY" => "#line 146 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827448	827540	
==>DY" => "#line 146 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(int <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6585	6689	
==>s[CURR])\n";
		debug() if $debug;
		$currline="$labels{$syms[CURR]}";
		feedme;  # Get the :
		goto PARSE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	371476	371570	
==>ehandle\");\n    io = PMC_data(pio);\n    if (!io)\n\treal_exception(interpreter, NULL, PIO_ERR <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	8089	8202	
==>.h
cacosf      complex.h
cacosh      complex.h
cacoshf     complex.h
cacoshl     complex.h
cacosl      complex.h
c <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	12930	13038	
==>it_fh_source($source);
  }
  # By here, $source is a FH.

  $self->{'source_fh'} = $source;
  
  my($i, @line <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117985	118257	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118724	118996	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core" <==
3	/Users/nnunley/parrot/config/auto/headers.pm	2577	2736	
==>ush @found_headers, $header;
            }
            cc_clean();
            last if $pass;
        }

        my $flag = "i_$header";
        $flag =~ s/\.h$ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7310	7433	
==>join('|', @{$options{ignore}})
		    : defined($options{ignore})	       ? $options{ignore}
		    :					 ''
		    ;

	if (!de <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24312	24435	
==>join('|', @{$options{ignore}})
		    : defined($options{ignore})	       ? $options{ignore}
		    :					 ''
		    ;

	if (!de <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	7269	7391	
==>literal');       }
sub skip_new           { return shift->skip('new');           }
sub skip_open_brace    { return shift->s <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	921	1036	
==>y $func ( keys %language_test_map ) {
    no strict 'refs';            ## no critic

    *{"Parrot::Test::M4::$func" <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	13505	13599	
==>number{'eacute'}> is 8364.  You get the correct
Unicode value, regardless of the version of Per <==
3	/Users/nnunley/parrot/config/auto/memalign.pm	788	904	
==>f->data->get('memalign')) {
        # already set; leave it alone
        $self->set_result('already set');
        r <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3267	3367	
==>"CONST(%ld)->u.string",
    'kc' => "CONST(%ld)->u.key",
    'kic' => "cur_opcode[%ld]"
);

=item C<a <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2176	2273	
==>"CONST(%ld)->u.string",
  'kc'  => "CONST(%ld)->u.key",
  'kic' => "cur_opcode[%ld]"
);

=item C<a <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	1317	1452	
==>read src/pmc/pmc.num";
    my %order;
    while (<IN>) {
        next if (/^#/);
        if (/(\w+\.\w+)\s+(\d+)/) {
            $order{ <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	3238	3374	
==>) {
    if (/^--([^=]+)=(.*)/) {
        $options{$1} = $2;
    } else {
        push @manifests, $_;
    }
}

# We'll report multiple oc <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	33680	33789	
==>se,
  'list-ref' => \&_op_list_ref,
  'memq'     => \&_op_memq,
  'memv'     => \&_op_memv,
  'member'   => \& <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	373	476	
==>unless defined $SORT_ATTRS;

sub new {
  my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955405	955667	
==>=> "encodingname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956216	956478	
==>=> "encodingname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	284	375	
==>nclude/parrot> with the function declarations in
the F<*.pmc> or F<*.c> files that correspon <==
3	/Users/nnunley/parrot/config/inter/lex.pm	899	1000	
==>($conf->options->get('maintainer')) {
        $conf->data->set($util => 'echo');
        $self->set_re <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	896	997	
==>($conf->options->get('maintainer')) {
        $conf->data->set($util => 'echo');
        $self->set_re <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2166	2254	
==>_with_name('compilers')->directory_with_name('imcc'),
        $self->directory_with_name( <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27643	27742	
==>ahead"}<0?'if':'unless')
		. ' ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and '
		. ($check->{itempo <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29753	29852	
==>ahead"}<0?'if':'unless')
		. ' ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and '
		. ($check->{itempo <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31850	31949	
==>ahead"}<0?'if':'unless')
		. ' ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and '
		. ($check->{itempo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	7423	7640	
==>1 \"src/ops/core.ops\"\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8059	8276	
==>1 \"src/ops/core.ops\"\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	59427	59562	
==>$_[0], [] );
        }
	],
	[#Rule 106
		 'fieldlist', 2, undef
	],
	[#Rule 107
		 'fieldlist', 1, undef
	],
	[#Rule 108
		 '_ <==
3	/Users/nnunley/parrot/config/inter/ops.pm	482	638	
==>w(ask ops);

sub runstep
{
    my ($self, $conf) = @_;

    my @ops = (
        sort {
            if ($a =~ /core\.ops/) { return -1 }
            if ($b =~ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29079	29187	
==>esc=~s/}/\\}/g;
	$desc=~s/{/\\{/g;

	bless 
	{
		"pattern"     => $pattern,
		"lookahead"   => $_[2],
		"line <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31183	31287	
==>esc=~s/}/\\}/g;
	$desc=~s/{/\\{/g;

	bless 
	{
		"pattern"   => $pattern,
		"lookahead" => $_[2],
		"line <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	4399	4567	
==>uages/HQ9plus/Makefile',
        commentType                  => '#',
        replace_slashes              => 1,
        conditioned_lines            => 1
    );
    gen <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32519	32619	
==>ent::_trace(q{<<Didn\'t match terminal>>},
						  Parse::RecDescent::_tracefirst($text))
							if d <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28244	28342	
==>ent::_trace(q{<<Didn\'t match terminal>>},
						  Parse::RecDescent::_tracefirst($text))
					if d <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	11583	11710	
==>st('.out', $test_no);

            # Name of the file with test code.
            # This depends on which kind of code we are te <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	233	326	
==>/pmc/foo.dump>:

    % perl tools/build/pmc2c.pl --dump src/pmc/foo.pmc ...

Create F<vtable.d <==
3	/Users/nnunley/parrot/config/init/hints.pm	203	295	
==>s the platform and local hints files, modifying the defaults set up in
F<config/init/default. <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11964	12074	
==>Pod::Simple::HTML->filter(shift)->errors_seen" \
   thingy.pod


=head1 DESCRIPTION

This class is for TODO.
Th <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	5376	5476	
==>s => $num_tests );

A convenient way to set up your tests.  Call this and Test::Builder
will print th <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	12711	12808	
==>turns Bool`

This function takes a block of code and runs it. It then smart-matches (`~~`) any `$! <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7876	8033	
==>( $self, @sempar )
                            : @sempar ? $sempar[0] : undef;

            splice(@$stack,-$len,$len);

                $$check eq 'ACCE <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7521	7673	
==>( $self, @sempar )
                            : @sempar ? $sempar[0] : undef;

            splice(@$stack,-$len,$len);

                $$check eq 'ACCE <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	8568	8683	
==>linkflags' => '-L/opt/local/lib -L/usr/local/lib',
             'lns' => '/bin/ln -s',
             'load_ext' => '. <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1464	1561	
==>}
}

=item C<args(@args)>

=item C<args()>

Sets/gets the transform's arguments.

=cut

sub args
{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1073	1170	
==>}
}

=item C<args(@args)>

=item C<args()>

Sets/gets the transform's arguments.

=cut

sub args
{ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	43927	44024	
==>ule ($$;$)
{
	_error("Ruleless $_[0] at start of grammar.",$_[1]);
	my $desc = $_[2] ? "\"$_[2]\"" <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	8996	9121	
==>f       complex.h
clogl       complex.h
conj        complex.h
conjf       complex.h
conjl       complex.h
copysign    math.h
c <==
3	/Users/nnunley/parrot/config/inter/charset.pm	1474	1585	
==>S)


END
    }

    # build list of libraries for link line in Makefile
    my $slash = $conf->data->get('slash' <==
3	/Users/nnunley/parrot/config/inter/encoding.pm	1491	1602	
==>S)


END
    }

    # build list of libraries for link line in Makefile
    my $slash = $conf->data->get('slash' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539860	540157	
==>d",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 6 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541111	541408	
==>d",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 6 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542363	542660	
==>d",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 6 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	6207	6354	
==>to try_S
#          goto next
#   try_S: check(3)
#          match(c) or fail
#          match([dxy]) or fail
#          match(e) or fail
#
# Note t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959235	959343	
==>],
                  "BODY" => "#line 590 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_encoding(in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960037	960145	
==>],
                  "BODY" => "#line 590 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_encoding(in <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	613	726	
==>{
    my ($pmc) = @_;

    return $PMC_PARENTS{$pmc} if defined $PMC_PARENTS{$pmc};

    local $/;
    open(PMC, " <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10384	10481	
==>TDERR "**Shift \$error token and go to state ".
#DBG>						 $$states[$$stack[-1][0]]{ACTIONS}{err <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9916	10012	
==>TDERR "**Shift \$error token and go to state ".
#DBG>						 $$states[$$stack[-1][0]]{ACTIONS}{err <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565165	565464	
==>UMP" => 0,
                  "NAME" => "can",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566057	566356	
==>UMP" => 0,
                  "NAME" => "can",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	12023	12117	
==>L_${CURIC}_LAZY_MOVE_RET:
${STEMP0} = pop lazy_moves

# Put in params array.
PRE_CALL_${CURIC}_ <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9909	10015	
==>ted to
F<test.out>.

=cut

sub cc_run
{
    my $exe   = $conf->data->get('exe');
    my $slash = $conf->dat <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	3514	3617	
==>. Bounds checks the block
# stack to make sure we don't pop off the file scope block.
#

sub pop_block
{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	6043	6135	
==>END_C
}

=item C<init_set_dispatch($base_suffix)>

Returns the C code to initialize the dispa <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	494	612	
==>> 'LAST' },
  'if'       => { PREFIX => "_I", NEXT => 'TEST', REDO => 'THEN', LAST => 'ELSE' },
  'sub'      => { PREFI <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	515	633	
==>> 'LAST' },
  'if'       => { PREFIX => "_I", NEXT => 'TEST', REDO => 'THEN', LAST => 'ELSE' },
  'sub'      => { PREFI <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	22407	22505	
==>[#Rule 39
		 'classpieces', 2,
sub
#line 170 "lib/Regex/Grammar.y"
{ push @{$_[1]}, $_[2]; return $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19887	19981	
==>r->get_version

This works like get_title except that it returns the contents of
the "=head1 VE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1098799	1099066	
==>",
                  "CODE" => 1218,
                  "ARGS" => [
                              "n",
                              "n",
                              "i"
                            ],
                  "BODY" => "#line 296 \"src/ops/experimental.ops\ <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	3607	3718	
==>= split(/\s+/, $_);
    $dest ||= $src;

    if ($seen{$src}++) {
        print STDERR "$ARGV:$.: Duplicate entr <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	400	496	
==>SIS

    % perl tools/dev/install_files.pl [options]

=head1 DESCRIPTION

Use a detailed MANIFEST <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	426	540	
==>0]->can( 'handle_text' )
    || return
  )->(
    @_
  );
}

sub _handle_element_end {
  $_[1] =~ tr/-:./__/;
  ( $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3238	3345	
==>Thispara'} =~ tr{\xA0}{ };
    $self->{'Thispara'} =~ tr{\xAD}{}d;
  }

  my $i = ' ' x ( 2 * $self->{'Inden <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2726	2833	
==>Thispara'} =~ tr{\xA0}{ };
    $self->{'Thispara'} =~ tr{\xAD}{}d;
  }

  my $i = ' ' x ( 2 * $self->{'Inden <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1402	1494	
==>-falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT = q <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1447	1539	
==>-falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT = q <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1451	1543	
==>-falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT = q <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2621	2751	
==>);

        my $builder_func = $language_test_map{$func};

        # That's the reason for:   no strict 'refs';
        my $pa <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2151	2277	
==>);
  
        my $builder_func = $language_test_map{$func};
        # That's the reason for:   no strict 'refs';
        my $pa <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2690	2816	
==>);
  
        my $builder_func = $language_test_map{$func};
        # That's the reason for:   no strict 'refs';
        my $pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492801	493096	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493562	493857	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499536	499831	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  " <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	3052	3172	
==>h: ([\w\d]+)/    and $smoke{cpuarch}      = $1;
  $html =~ /osname: ([\w\d]+)/     and $smoke{osname}       = $1;
  $html <==
3	/Users/nnunley/parrot/config/inter/make.pm	646	760	
==>ake ask );

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    # und <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	889	992	
==>> 'block', Attributes => { kind => $self->kind } });
  $_->sax($handler) foreach $self->content;
  $hand <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1902	2005	
==>> 'block', Attributes => { kind => $self->kind } });
  $_->sax($handler) foreach $self->content;
  $hand <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2696	2799	
==>> 'block', Attributes => { kind => $self->kind } });
  $_->sax($handler) foreach $self->content;
  $hand <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	47682	47781	
==>ause the earlier " || die;\nexit;" to be skipped in any
sequence of code fragment extractions.

To a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011360	1011448	
==>"#line 39 \"src/ops/sys.ops\"\n  {{\@1}} = Parrot_Run_OS_Command(interpreter, {{\@2}});\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012125	1012213	
==>"#line 39 \"src/ops/sys.ops\"\n  {{\@1}} = Parrot_Run_OS_Command(interpreter, {{\@2}});\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789326	789745	
==>"ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 891,
                  "ARGS" => [
                              "s",
                              "p",
                              "ki"
                            ],
                  "BO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644039	644124	
==>ps/pmc.ops\"\n  {{\@1}} = {{\@2}}->vtable->type_keyed_int(interpreter, {{\@2}}, {{\@3} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644932	645017	
==>ps/pmc.ops\"\n  {{\@1}} = {{\@2}}->vtable->type_keyed_int(interpreter, {{\@2}}, {{\@3} <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4620	4738	
==>if (@{ $self->{args} } == 1 && 2 == keys %$self) {
        return $self->{args}->[0];
    } else {
        return $self <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5757	5875	
==>if (@{ $self->{args} } == 1 && 2 == keys %$self) {
        return $self->{args}->[0];
    } else {
        return $self <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1046	1155	
==>class;
}

sub kind  { return shift->{KIND};  }
sub scope { return shift->{SCOPE}; }

#
# compile2
#

sub compi <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	12780	12919	
==>ts run_ops loop, no resume
        #
        #   restart OFFSET(X)  {{=0,+=X}}   PC' = 0       Restarts at PC + X
        #   restart NEXT() <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	29556	29678	
==>$n, $c, $cmt) = @_;
    my $tos = $stack[-1];
    print <<EOC;
	$cmt
EOC
    push @stack, $tos;
}

sub DUP_TOPX
{
    my ($ <==
3	/Users/nnunley/parrot/languages/converter.pl	831	935	
==>turn = '';
		  $return .= $item[1][0] if defined $item[1][0];
		  $return .= " ( $item[3] ) ".::modifier( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1082	1195	
==>ght,

    DEBUG => 1,
    FILE  => defined $value ? $value->file : undef, # TODO: YUCK!
    LINE  => defined $valu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	138	226	
==>as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Statement/L <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8136	8229	
==>or his 'use integer'-hint.

This release was made by Christian Lackas <delta@clackas.de>.

=cu <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	2787	2918	
==>ur_method) {
            die "Syntax error at line $line_count\n";

        # Have we got a non-blank line in an unimplemented metho <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	4908	5022	
==>handler!

        if( $line =~ m/^#\s*line\s+(\d+)\s*(?:\s"([^"]+)")?\s*$/ ) {
          # That RE is from perlsyn, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	1037	1143	
==>^\s+}{};   # Skip all whitespace between tokens
    next if $text =~ s{^#.*?$}{}; # Skip comments between t <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	40476	40578	
==>ng (if any),

=item [3]

the opening tag

=item [4]

the text between the opening and closing tags

=it <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	5066	5155	
==>defined and called within the %d supplied source files.\n", scalar(@internal_calls), scala <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459894	460012	
==>LL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460882	461000	
==>LL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461870	461988	
==>LL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	12517	12620	
==>'s isnt().  Checks if $got ne $dont_expect.  This is
the numeric version.

=cut

sub isnt_eq {
    my($s <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	18132	18231	
==>t have a hash-like-arguments constructor
       * the class might not have a no-argument constructor <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805544	805862	
==>set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 909,
                  " <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	523	652	
==>=> 'isnt_eq'
                        );

foreach my $func ( keys %language_test_map ) {
    no strict 'refs';

    *{"Parrot::Test <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	862	991	
==>=> 'isnt_eq'
                        );

foreach my $func ( keys %language_test_map ) {
    no strict 'refs';

    *{"Parrot::Test <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	24	135	
==>:Simple::RTF;

#sub DEBUG () {4};
#sub Pod::Simple::DEBUG () {4};
#sub Pod::Simple::PullParser::DEBUG () {4};

u <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543397	543688	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lcm",
                  "FLAGS" => ":advanced_math",
                  "ARGD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544732	545023	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lcm",
                  "FLAGS" => ":advanced_math",
                  "ARGD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546068	546359	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lcm",
                  "FLAGS" => ":advanced_math",
                  "ARGD <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2674	2808	
==>raLibs;
    } else {
        $liblist = join( ' ', map { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2983	3117	
==>raLibs;
    } else {
        $liblist = join( ' ', map { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2778	2912	
==>raLibs;
    } else {
        $liblist = join( ' ', map { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30197	30321	
==>bitched_about'}) {
            $curr_open->[-1][1]{'~bitched_about'} = 1;
            $self->whine(
              $curr_open- <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2666	2784	
==>}} != 0;
}

sub YYAbort {
	my($self)=shift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($se <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2548	2655	
==>}} != 0;
}

sub YYAbort {
	my($self)=shift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($se <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	1957	2104	
==>f = shift;
    my $path = shift;
    
    if ( $path )
    {
        $path = join('/', $path, $self->{INDEX_PATH});
    }
    else
    {
        $pa <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	23625	23735	
==>it /,/, $fix_args;
	my $nf = scalar @fargs;
	if ($func_info{$name}{'ar'} ne 'None') {
	    $nfix -= $nf;
	    B <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28683	28788	
==>ead"} ? '$text = $_savetext;' : '' ) .'
';

	return $code;
}

1;

package Parse::RecDescent::Literal;

sub <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5503	5741	
==>LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "load_bytecode",
                  "FLAGS" => ": <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6168	6406	
==>LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "load_bytecode",
                  "FLAGS" => ": <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	184	285	
==>IPTION

Asks the user to select which PMC files to include.

=cut

package inter::pmc;

use strict;
us <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	4295	4409	
==>hift;

    $value =~ s/^\s+//;
    $value =~ s/\s+$//;

    return $value;
}

=item C<new(@files)>

Returns a new i <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32797	32901	
==>t($type)>

Generate the C code for a C<return> statement.

=cut

sub gen_ret
{
    my ($self, $type) = @_ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37684	37788	
==>t($type)>

Generate the C code for a C<return> statement.

=cut

sub gen_ret
{
    my ($self, $type) = @_ <==
3	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	1467	1636	
==>mb} = $defn;
        }
    }

    sub LookupU {
        my $self = shift;
        my ($symb) = @_;

        #    warn "LookupU $symb\n";
        my $parser = $se <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3605	3698	
==>fix;
	foreach $core_suffix (values %cores) {
		compile($_ . "_ops$core_suffix") foreach (@opli <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	73	162	
==>/Section/Perl.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs: <==
3	/Users/nnunley/parrot/languages/converter.pl	1703	1807	
==>}
		{ my $lhs = ::strip_quotes($item[1]);
		  my $rhs = ::strip_quotes($item[3]);
		  "/[$lhs-$rhs]/"
		} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032730	1032994	
==>"NAME" => "store_lex",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033827	1034091	
==>"NAME" => "store_lex",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6979	7083	
==>THIS IS THE ONE PLACE WHERE WE CONSTRUCT NEW DIRECTIVE OBJECTS
        my $new = [$1, {'start_line' => $s <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	61728	61828	
==>miter to match the
one that opened the quote-like operation.

=item  C<Mismatched closing bracket: ex <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14648	14741	
==>ne 247 \"src/ops/core.ops\"\n  opcode_t * const loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=l <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	15335	15428	
==>ne 247 \"src/ops/core.ops\"\n  opcode_t * const loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=l <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183290	183418	
==>"BODY" => "#line 285 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184186	184314	
==>"BODY" => "#line 285 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185082	185210	
==>"BODY" => "#line 285 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28602	28707	
==>M ? ''
			       : '$item{'.$self->{hashname}.'}=') . '$&;
		' . ($self->{"lookahead"} ? '$text = $_savete <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30680	30785	
==>M ? ''
			       : '$item{'.$self->{hashname}.'}=') . '$&;
		' . ($self->{"lookahead"} ? '$text = $_savete <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4465	4564	
==>~~~~~~~~~~~~~~~~~
sub run {
  my $self = $_[0];
  return $self->do_middle if $self->bare_output;
  r <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4095	4192	
==>t stack depth.
inc stack_depth

# Get type (so we can find register type).
${PTEMP0} = ${DTYPES}[$ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2511	2608	
==>t stack depth.
inc stack_depth

# Get type (so we can find register type).
${PTEMP0} = ${DTYPES}[$ <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	15140	15341	
==>my $temp_in   = join("\n    ", map {
                                "arg$_ = "
                                . ( 'short' eq $temp[$_]->[0] ? '(short)' : '' )
                                . "$temp[ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7504	7662	
==>~ /^\@[0-9]+\-([0-9]+)$/
                or  die "In line rule name '$lhs' ill formed: ".
                        "report it as a BUG.\n";
                $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7159	7314	
==>~ /^\@[0-9]+\-([0-9]+)$/
                or  die "In line rule name '$lhs' ill formed: ".
                        "report it as a BUG.\n";
                $ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	1663	1818	
==>>
                    $navigation
                </TD>
            </TR>
        </TABLE>
        <DIV CLASS="pod">
HEADER
}

=item C<footer($navigation, $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959258	959346	
==>ODY" => "#line 590 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_encoding(inter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960060	960148	
==>ODY" => "#line 590 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_encoding(inter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	923706	923947	
==>rep_one, 0);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ne <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	491	606	
==>d, ++$self->{BLOCK_COUNT});
}


#
# temp_reg()
#

sub temp_reg
{
  my $self = shift;
  my ($type) = @_;

  $type = s <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	7017	7162	
==>'    , 8801,
 'le'       , 8804,
 'ge'       , 8805,
 'sub'      , 8834,
 'sup'      , 8835,
 'nsub'     , 8836,
 'sube'     , 8838,
 'supe'     , <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2522	2624	
==>determine type of actual argument (%s)!", ref $args[$i])
      unless defined $actual_arg_type;

    if <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2222	2324	
==>determine type of actual argument (%s)!", ref $args[$i])
      unless defined $actual_arg_type;

    if <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2461	2586	
==>R};
	
}

sub YYErrok {
	my($self)=shift;

	${$$self{ERRST}}=0;
    undef;
}

sub YYNberr {
	my($self)=shift;

	$ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2363	2474	
==>R};
	
}

sub YYErrok {
	my($self)=shift;

	${$$self{ERRST}}=0;
    undef;
}

sub YYNberr {
	my($self)=shift;

	$ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	9728	9825	
==>st if (not $parens and not $opts{ignorecomma} and 
			($syms[CURR] eq ',' and $type[CURR] ne "STRI <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4486	4638	
==>arn               => '',
            has_dynamic_linking  => 1
        );

        # 'link' needs to be xilink.exe, not icl.exe.
        # This makes 'li <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	1446	1550	
==>n(OUT, ">$file.tmp");

    print OUT <<"END_C";
/*
 * DO NOT EDIT THIS FILE
 *
 * Automatically generated <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	46031	46122	
==>e documents"

C<extract_quotelike> can successfully extract "here documents" from an input
s <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	8611	8730	
==>l ) if $show;
		want_show(\$show, $Undef,  $undef ) if $show;
		want_show(\$show, $File,   $file  ) if $show;
		if ($sho <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	885	974	
==>fess "Ident is not!" if defined $ident and not UNIVERSAL::isa($ident, 'Jako::Construct::Ex <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	913	1002	
==>fess "Ident is not!" if defined $ident and not UNIVERSAL::isa($ident, 'Jako::Construct::Ex <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221122	221299	
==>=> "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt_num",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i", <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	8752	8847	
==>n { 0 }
sub maxlen { 0 }

package Regex::Ops::Tree::check;
sub minlen { $_[0]->{args}->[1]->minl <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	40167	40330	
==>eak' ) {
                    $parser->Error("no loop to break\n");
                }
            }
        }
        unshift @{ $parser->YYData->{functs} }, \@ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39094	39237	
==>eak' ) {
                $parser->Error("no loop to break\n");
            }
        }
    }
    unshift @{ $parser->YYData->{functs} }, \@ <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	1336	1440	
==>y $constant_num = 0;

    foreach ($pf->const_table->constants) {
        printf("%04x: %08x %08x %08x %0 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	108	239	
==>entexpr;

@builtins=qw( 	abs      	asc      	atn
	      	cdbl		chr$		cint
		clng		command$	cos
		csng		csrlin		cvd
		cvdmbf		cvi		cb <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1729	1829	
==>ke (Str $got, Rule $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1940	2040	
==>ke (Str $got, Rule $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	1790	1876	
==>f->new_group('Development Documentation', '', 'docs/dev'),
		$self->new_group('PMC Docu <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5213	5349	
==>s
        if ($^O eq 'hpux' or $^O eq 'cygwin') {
            chmod 0755, "$dest/$_$LOAD_EXT";
        }

    }
}
else {
    die "invalid <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5424	5560	
==>s
        if ($^O eq 'hpux' or $^O eq 'cygwin') {
            chmod 0755, "$dest/$_$LOAD_EXT";
        }

    }
}
else {
    die "invalid <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15772	15880	
==>o always
append the caller information to the test's `$desc`.

= SEE ALSO

The Perl 5 Test modules

- Test

- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1646	1742	
==>m = $block->find_symbol($dest->value);
  $self->SYNTAX_ERROR("Assigning to unknown variable %s.", <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1604	1700	
==>m = $block->find_symbol($dest->value);
  $self->SYNTAX_ERROR("Assigning to unknown variable %s.", <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1526	1622	
==>m = $block->find_symbol($dest->value);
  $self->SYNTAX_ERROR("Assigning to unknown variable %s.", <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	1866	1993	
==>h @tokens, Jako::Token->new(
        $file, $line, 'literal', 'S', $1);
      $text = $2;
      next;
    }

=cut

    if ($text <==
3	/Users/nnunley/parrot/config/auto/aio.pm	499	606	
==>($self, $conf) = (shift, shift);

    my $test;
    my $verbose = $conf->options->get('verbose');
    my $li <==
3	/Users/nnunley/parrot/config/init/miniparrot.pm	406	501	
==>ics.

Centralizing these settings will (hopefully) allow for an eventual move away
from using  C <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1536	1643	
==>our $PATHQUOTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as they may contain spaces.
    $PATHQ <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1581	1688	
==>our $PATHQUOTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as they may contain spaces.
    $PATHQ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1585	1692	
==>our $PATHQUOTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as they may contain spaces.
    $PATHQ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2385	2484	
==>ub end_Para        { $_[0]->emit_par( 0) }
sub end_item_bullet { $_[0]->emit_par( 0) }
sub end_item_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1953	2052	
==>ub end_Para        { $_[0]->emit_par( 0) }
sub end_item_bullet { $_[0]->emit_par( 0) }
sub end_item_ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2577	2706	
==>ibs =~ s/blib/..\\blib/g;
        $extraLibs =~ s/\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else {
        $lib <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2886	3015	
==>ibs =~ s/blib/..\\blib/g;
        $extraLibs =~ s/\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else {
        $lib <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2681	2810	
==>ibs =~ s/blib/..\\blib/g;
        $extraLibs =~ s/\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else {
        $lib <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3017	3118	
==>ress
{
    my ($self, $addr) = @_;

    return "interpreter->resume_offset = $addr; interpreter->resum <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3886	3987	
==>ress
{
    my ($self, $addr) = @_;

    return "interpreter->resume_offset = $addr; interpreter->resum <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	9103	9202	
==>e{$seg}->{code}}, <<PRINT;
	_WRITE($fd,1,"$string")
PRINT
	} else {
		if ($string ne "\\n") {
			pus <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	4057	4159	
==>$thunk =~ s/::/__/g;

    $compiler->emit(".sub $thunk");

    my $sig = defined $self->type ? $self->t <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	5243	5335	
==>s/gets a string containing one or more C<op_jump_t> values joined with
C<|> (see F<include/pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576579	576844	
==>lass(interpreter, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577591	577856	
==>lass(interpreter, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2860	2956	
==>alue($val2);
    return "$test $val1, $val2, " . $self->output_label_use($dest);
}

sub output_eq <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	1461	1645	
==>} = $$data;
            }
            else {
                die "Unknown type: ".$type;
            }

            return $_[0];
        };
    }
    # 5.8.0's threads::shared is buste <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	940	1056	
==>est::per_test( '.HQ9plus', $count );
        my $out_fn         = Parrot::Test::per_test( '.out', $count );
        m <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6714	6817	
==>ment...  WRONG-O!
	#     Don't go looking for lhs expression, please.
	#if ($syms[NEXT] eq "=" and exist <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5121	5247	
==>ler) = @_;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $ri <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1443	1569	
==>ler) = @_;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $ri <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3184	3310	
==>ler) = @_;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $ri <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10476	10576	
==>S}{error}.
#DBG>						 ".\n";

		push(@$stack, [ $$states[$$stack[-1][0]]{ACTIONS}{error}, undef ] <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	808	906	
==>= Parrot::Test::per_test('.pirate.out',$count);
    my $parrotdir = dirname $self->{parrot};

    $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10007	10104	
==>S}{error}.
#DBG>						 ".\n";

		push(@$stack, [ $$states[$$stack[-1][0]]{ACTIONS}{error}, undef ] <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	1301	1433	
==>file( $DIR, "*.test" ) );
    for my $file (@files) {
        my $test = substr $file, 0, -3;
        # parrot's getopt dislikes file <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1344	1473	
==>ft,
    OP    => $op,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => $ident->file,
    LINE  => $ident->line
  }, $class;

  $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	818	911	
==>n->new_bof(undef, undef);
sub BOF { return $BOF }

my $EOF = Jako::Token->new_eof(undef, undef <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	9136	9271	
==>ing = ($lastback =>
                      $self->dbprint("failed to match $char at %<rx_pos>\n"),
                      aop('goto', [ $o <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	6324	6459	
==>e argument is wrong class' if \@_ && ! UNIVERSAL::isa(\$_[0], '$classes{$name}');\n";
                }
            }
            $out . <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	5862	5980	
==>_scalar_ref'} });
         # I.e., unless it's a zero-length "empty line" at the very
         #  end of "foo\nbar\n" ( <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6313	6474	
==>shift);

    if (defined $ago) {
        return $NOW - $ago;
    } else {
        return;
    }
}

sub needs_build {
    my ($target, @sources) = @_;

    my $tar <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4733	4894	
==>shift);

    if (defined $ago) {
        return $NOW - $ago;
    } else {
        return;
    }
}

sub needs_build {
    my ($target, @sources) = @_;

    my $tar <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6524	6685	
==>shift);

    if (defined $ago) {
        return $NOW - $ago;
    } else {
        return;
    }
}

sub needs_build {
    my ($target, @sources) = @_;

    my $tar <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73256	73642	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74858	75244	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76460	76846	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDI <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2570	2683	
==>p;
  my $right = $self->right;

  if (defined $cond) {
    $handler->start_element({ Name => 'cond', Attributes => <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3244	3357	
==>p;
  my $right = $self->right;

  if (defined $cond) {
    $handler->start_element({ Name => 'cond', Attributes => <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3334	3447	
==>p;
  my $right = $self->right;

  if (defined $cond) {
    $handler->start_element({ Name => 'cond', Attributes => <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	15840	15950	
==>l', $cmt);
}

sub BINARY_RSHIFT
{
    my ($n, $c, $cmt) = @_;
    binary_word('shr', $cmt);
}

sub BINARY_ADD
{ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3711	3813	
==>n, emit PIR to generate one. Otherwise, we've
	# nothing to do here.
	if ($need_dest) {
		$pir .= <<'PI <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	3583	3676	
==>cDescent::LineCounter/;
	
	my $parser = $self->{parser};
	my $apparently = $parser->{offsetlin <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	12500	12665	
==>ddress
        #   expr NEXT()        {{^+S}}  PC + S        Where S is op size
        #   expr ADDRESS(X)    {{^X}}   X             Absolute address
        #   OP_ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	32777	32912	
==>ort bug.
    # See [rt.cpan.org 6782]
    return eq_array(
           [sort { ref $a ? -1 : ref $b ? 1 : $a cmp $b } @$a1],
           [ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	289	383	
==>val "use warnings";

package Jako::Construct::Statement::Assign;

use Carp;

use base qw(Jako:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1313	1464	
==>arrot code.

=cut

sub pc
{
    my $self = shift;

    if (@_)
    {
        $self->{PC} = shift;
    }
    else
    {
        return $self->{PC};
    } <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	922	1073	
==>arrot code.

=cut

sub pc
{
    my $self = shift;

    if (@_)
    {
        $self->{PC} = shift;
    }
    else
    {
        return $self->{PC};
    } <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	3176	3284	
==>tmt->{name} eq 'LABEL') {
	    $curlabel = $stmt;
	} else {
	    push @output2, { label => $curlabel, code => <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	1087	1216	
==>igendian' => 1,
             'bin_dir' => '/opt/local/bin',
             'bison_version' => undef,
             'blib_dir' => 'bli <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	4123	4241	
==>pen test.c: $!";
            print TEST <<'END';
#include <stdio.h>

int main() {
    long double foo;
    printf("%u", <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	9927	10033	
==>"The '=encoding $orig' line is ",
       "redundant.  ($norm_current eq $norm_e).  Ignoring.\n";
      $enc <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	48747	48872	
==>1), {}, ];  # new node object
      push @{ $lineage[-2] }, $lineage[-1];
      
    } elsif(defined $3) {
      DEBUG > 3 and <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	14843	14946	
==>RY_START:

    # If this is the start of a typed exception handler...
    handler_offset = eh.get_handle <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25833	25931	
==>[,b[,c]...]
	feedme();
	my($var,$vartype,$ovar);
	my $ps;
	$ps=pop @{$fors[$scopes]};
	
	if ($type[ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18506	18852	
==>,
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 25,
                  "ARGS" => [
                              "p",
                              "ic <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	4470	4602	
==>mode block further down
        }
      } else {
        DEBUG > 5 and print "# It's a code-line.\n";
        $code_handler->(map $_, <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	2358	2486	
==>ring" );
        $arg->{default}     = $5;
        $arg->{repeating}   = $6 eq "+";

        die "Optionals need to be optional.\ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33555	33674	
==>> $_[2],
		"line"      => $_[3],
		"implicit"  => $_[4] || undef,
		"matchrule" => $_[5],
		"argcode"   => $_[6] || unde <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	95	218	
==>rror {
    my $parser = shift;
    my ($msg) = @_;

    $msg ||= "Syntax error.\n";

    if ( exists $parser->YYData-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955856	955940	
==>c/ops/string.ops\"\n  {{\@1}} = string_copy(interpreter, Parrot_encoding_name(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956668	956752	
==>c/ops/string.ops\"\n  {{\@1}} = string_copy(interpreter, Parrot_encoding_name(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404441	404674	
==>S" => [
                              "s",
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 535 \"src/ops/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(in <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	806	908	
==>0;

my $ops = new Parrot::OpsFile (split(' ', $PConfig{ops}));


#
# dump_const_table()
#

sub dump_con <==
3	/Users/nnunley/parrot/examples/benchmarks/fib.pl	44	130	
==>rl Foundation.
# $Id: /parrot/examples/benchmarks/fib.pl 19601 2006-05-30T13:32:26.6413 <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4140	4235	
==>o we can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign register name.
${STEMP0 <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2556	2651	
==>o we can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign register name.
${STEMP0 <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1866	1961	
==>o we can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign register name.
${STEMP0 <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	7455	7559	
==>name}";
}


sub code
{
	my ($self, $namespace, $parser) = @_;

eval 'undef &' . $namespace . '::' . $self <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6991	7089	
==>d  (5): ", instr(s1$, found$)
print "Bogus  (0): ", instr(s1$, bogus$)
print "Null   (1): ", instr( <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18720	18818	
==>d  (5): ", instr(s1$, found$)
print "Bogus  (0): ", instr(s1$, bogus$)
print "Null   (1): ", instr( <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	22895	23004	
==><EOC;
    # tuple $tupl->[1] n = $tupl->[0]
EOC
    $n = $tupl->[0];
    UNPACK_SEQUENCE($n, '', "\t\t #unpack <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656524	656848	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657448	657772	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658366	658690	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558021	558112	
==>_FLAG_TAILCALL;\n  interpreter->current_object = object;\n  interpreter->current_method = me <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559405	559496	
==>_FLAG_TAILCALL;\n  interpreter->current_object = object;\n  interpreter->current_method = me <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560777	560865	
==>_FLAG_TAILCALL;\n  interpreter->current_object = object;\n  interpreter->current_method = <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9813	9910	
==>MP4} = shift ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over each parameter and put them into $ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7327	7424	
==>MP4} = shift ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over each parameter and put them into $ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6291	6388	
==>MP4} = shift ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over each parameter and put them into $ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	3352	3478	
==>$text ) 
    {
        print {$self->{'output_fh'}} "<a href='$text'>";
    } 
    else 
    {
        print {$self->{'output_f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183101	183352	
==>218,
                  "ARGS" => [
                              "n",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 285 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2 <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33227	33325	
==>};
	$desc = "<matchrule:$desc>" if $_[0]->{"matchrule"};
	return $desc;
}

sub callsyntax($$)
{
	if <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35749	35847	
==>};
	$desc = "<matchrule:$desc>" if $_[0]->{"matchrule"};
	return $desc;
}

sub callsyntax($$)
{
	if <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777736	777988	
==>=> 878,
                  "ARGS" => [
                              "p",
                              "kic",
                              "n"
                            ],
                  "BODY" => "#line 382 \"src/ops/set.ops\"\n    {{\@1}}->vtabl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	399	509	
==>ruct::Declaration);

use Jako::Construct::Type;


#
# new()
#

sub new
{
  my $class = shift;

  my ($block, $t <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	399	509	
==>ruct::Declaration);

use Jako::Construct::Type;


#
# new()
#

sub new
{
  my $class = shift;

  my ($block, $t <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	312	423	
==>:Methody');
BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG)
          ? \&Pod::Simple::DEBUG
          : sub() {0} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	194	305	
==>:Methody');
BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG)
          ? \&Pod::Simple::DEBUG
          : sub() {0} <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	733	830	
==>outine name, with no preceding punctuation.

=head2 lib

The name of the library to be loaded. Sho <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	7112	7218	
==>$src_stem.c")) {
        run(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_ste <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5406	5512	
==>$src_stem.c")) {
        run(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_ste <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7323	7429	
==>$src_stem.c")) {
        run(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_ste <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1516	1632	
==>me stuff for Win32.
our $PATHQUOTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as they may contain spaces. <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1561	1677	
==>me stuff for Win32.
our $PATHQUOTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as they may contain spaces. <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1565	1681	
==>me stuff for Win32.
our $PATHQUOTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as they may contain spaces. <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10728	10853	
==>_escape_url($section);
        # Turn char 1234 into "(1234)"
        $section = '_' unless length $section;
    }
    
    fo <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10141	10259	
==>= shift;
    my $link = shift;
    my $to = $link->attr('to');
    my $section = $link->attr('section');
    
    retur <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4105	4221	
==>_escape_url($section);
     # Turn char 1234 into "(1234)"
    $section = '_' unless length $section;
  }
  
  

  fo <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31137	31231	
==>mport Parrot::Pmc2c qw( gen_ret );

=item C<implements($method)>

Always true for vtables.

=cu <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39757	39851	
==>mport Parrot::Pmc2c qw( gen_ret );

=item C<implements($method)>

Always true for vtables.

=cu <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	15961	16100	
==>_regex/ ? 1 : 0;
        $test = !$test if $cmp eq '!~';
        $ok = $self->ok( $test, $name );
    }

    unless( $ok ) {
        $this = <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	34979	35078	
==>sized >:-)' string }" , "" , "" )

since both sets of C<'{..}'> brackets are properly nested and eve <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1466	1548	
==>/*\n** stack.ops\n*/\n\n\n\n/*\n** string.ops\n*/\n\n\n\n/*\n** sys.ops\n*/\n\n\n\n <==
3	/Users/nnunley/parrot/lib/File/Which.pm	3195	3301	
==>es = which($_[0]); # force wantarray
    return @res;
}

1;
__END__

=head1 NAME

File::Which - Portable im <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	86	184	
==>GIN {@ISA = ('Pod::Simple')}

use strict;

use Carp ();

BEGIN { *DEBUG = \&Pod::Simple::DEBUG unle <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	85	183	
==>GIN {@ISA = ('Pod::Simple')}

use strict;

use Carp ();

BEGIN { *DEBUG = \&Pod::Simple::DEBUG unle <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1460	1558	
==>_head2 {  $_[0]{'Thispara'} = '' }
sub start_head3 {  $_[0]{'Thispara'} = '' }
sub start_head4 {  $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	990	1088	
==>_head2 {  $_[0]{'Thispara'} = '' }
sub start_head3 {  $_[0]{'Thispara'} = '' }
sub start_head4 {  $ <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	601	697	
==>_CHAR
  $FAR_CHAR_NUMBER
  $NOT_ASCII
);

$FAR_CHAR = "?" unless defined $FAR_CHAR;
$FAR_CHAR_NUM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732193	732427	
==>t.ops\"\n  {{\@1}} = (INTVAL)({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732939	733173	
==>t.ops\"\n  {{\@1}} = (INTVAL)({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	86	178	
==>p.pm 20321 2006-06-20T20:02:00.179448Z bernhard  $

=head1 NAME

Parrot::Op - Parrot Operatio <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10842	10977	
==>ref($class)
    and $class=ref($class);

    my($self)=$class->SUPER::new( yyversion => '1.05',
                                  yy <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11841	11972	
==>ref($class)
    and $class=ref($class);

    my($self)=$class->SUPER::new( yyversion => '1.05',
                                  yy <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	45518	45642	
==>Iland, we can't assume that \xA0 == nbsp.)
       
       # Note that if you apply nbsp_for_S to text, and so turn
       # " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846145	846429	
==>{
                  "JUMP" => 0,
                  "NAME" => "chr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846940	847224	
==>{
                  "JUMP" => 0,
                  "NAME" => "chr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inl <==
3	/Users/nnunley/parrot/config/auto/gc.pm	2436	2569	
==>IR)/resources.c
EOF
            TEMP_gc_o => "\$(SRC_DIR)/resources\$(O)",
            gc_flag   => '',
        );
    }
    print(" ( <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37955	38085	
==>},
	{#State 146
		DEFAULT => -114
	},
	{#State 147
		DEFAULT => -113
	},
	{#State 148
		ACTIONS => {
			":" => 134,
			"[ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37501	37591	
==>ed $::RD_TRACE;').'
		$Parse::RecDescent::lastexpected = ' . ($rule->hasleftmost($self) ? ' <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39904	39994	
==>ed $::RD_TRACE;').'
		$Parse::RecDescent::lastexpected = ' . ($rule->hasleftmost($self) ? ' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	8373	8488	
==>PODSOURCE{IO};
    }
    $self->{'source_filename'} = $_[0];
    DEBUG and print "  Its name is $_[0].\n";

    # TO <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27274	27373	
==>"pre-translate for $rule->{'name'}");

		# If we have PIR for the instruction, just take that. If no <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34413	34512	
==>"pre-translate for $rule->{'name'}");

		# If we have PIR for the instruction, just take that. If no <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4393	4582	
==>dir             => 'blib\\lib',
            ccflags              => $ccflags,
            ccwarn               => '',
            has_dynamic_linking  => 1
        );

        # 'link' needs <==
3	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	1341	1464	
==>me};
##    warn "Insert $symb in $self\n";
        unless ( exists $self->{table}{$symb} ) {
            $self->{table}{$ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	7275	7387	
==>"It's an op!\n";
		$item->[2]="OP";
		if (! @stack) {
			push @stack, $item;
			next;
		}
		while(@stack and prec <==
3	/Users/nnunley/parrot/config/inter/charset.pm	1702	1807	
==>$charset_list,
        TEMP_charset_o     => $TEMP_charset_o,
        TEMP_charset_build => $TEMP_charset_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3168	3263	
==>e if $self->bare_output;
  return
   $self->do_beginning && $self->do_middle && $self->do_end;
} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4537	4632	
==>e if $self->bare_output;
  return
   $self->do_beginning && $self->do_middle && $self->do_end;
} <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	14822	14976	
==>p[$i] = [ $1, $2 ];
                $args->[$i] = "&arg$i";
            }
        }
        my $call_params = join(",", @$args);
        my @tempi = grep { <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	494	591	
==>in::sourceline:\n";
	$_=$_[0];
	s/^(.{1,50})(\S+)\s+(.*)/\t$1$2\n\t$3/;
	print;
	exit 1;
};

getop <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	550	656	
==>EST', REDO => 'THEN', LAST => 'ELSE' },
  'sub'      => { PREFIX => "_S", NEXT => 'TEST', REDO => 'THEN', L <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	571	677	
==>EST', REDO => 'THEN', LAST => 'ELSE' },
  'sub'      => { PREFIX => "_S", NEXT => 'TEST', REDO => 'THEN', L <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	8724	8820	
==>x::Ops::Tree::nop;
sub minlen { 0 }
sub maxlen { 0 }

package Regex::Ops::Tree::check;
sub minlen <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	4878	5035	
==>rpreter, op_lib.core_type);\n    {{+=0}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	4660	4773	
==>= '' unless defined $arg;
	$rest = '' unless defined $rest;
    }
    else {  # program output from import - reall <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3620	3728	
==>y, and parent block is not a module!")
        unless $self->block->kind eq 'module';

      my %module_props <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6284	6392	
==>y, and parent block is not a module!")
        unless $self->block->kind eq 'module';

      my %module_props <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	839691	839901	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rotate_up",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840385	840595	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rotate_up",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	13753	13866	
==>pointer_ref,
        $proto_type_ref) = @_;

    $other_decl ||= "";

    $other_decl .= join("\n    ", @{$temps_r <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	4024	4152	
==>ke);

  open my $fh, ">", $filename or
    die "Couldn't open \"$filename\" for writing: $!\n";
  print $fh $html or
    die "Cou <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8666	8763	
==>:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_END_${CURIC}

# Get type of retur <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7238	7335	
==>:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_END_${CURIC}

# Get type of retur <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129812	130068	
==>\"\n  {{\@1}} ^= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130551	130807	
==>\"\n  {{\@1}} ^= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
3	/Users/nnunley/parrot/config/inter/progs.pm	86	178	
==>9593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/inter/progs.pm - C Compiler and <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19457	19591	
==>=> 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 100 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21622	21756	
==>=> 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 100 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33137	33271	
==>=> 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 100 <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4346	4465	
==>run_core_func_decl
{
    my ($self, $core) = @_;

    return "opcode_t * " .
        $self->core_prefix .
        "$core <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2834	2953	
==>run_core_func_decl
{
    my ($self, $core) = @_;

    return "opcode_t * " .
        $self->core_prefix .
        "$core <==
3	/Users/nnunley/parrot/lib/Test/More.pm	22147	22243	
==>res as being ok.
Should anything succeed, it will report it as an unexpected success.
You then kn <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488902	489165	
==>"NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	489655	489918	
==>"NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	795	898	
==>le names.

=back

=cut

use Data::Dumper;
use Getopt::Long;
use lib qw( lib );
use Parrot::Config;

my % <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	28241	28340	
==>t_line'};

  # A recursive algorithm implemented iteratively!  Whee!

  while($treelet = shift @stac <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	31742	31841	
==>t_line'};

  # A recursive algorithm implemented iteratively!  Whee!

  while($treelet = shift @stac <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27957	28090	
==>=> 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 14 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28375	28508	
==>=> 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 14 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28830	28963	
==>=> 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 14 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791635	791891	
==>get_pmc_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792542	792798	
==>get_pmc_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833584	833672	
==>(interpreter->ctx)->user_stack, {{\@1}}, STACK_ENTRY_PMC, STACK_CLEANUP_NULL);\n  {{+=2}} <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2976	3083	
==>bel2:
   PRINT "4 back in subroutine one"
   RETURN Label1
Sub2:
   PRINT "3 in subroutine two"
   RETURN La <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16943	17050	
==>bel2:
   PRINT "4 back in subroutine one"
   RETURN Label1
Sub2:
   PRINT "3 in subroutine two"
   RETURN La <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4414	4505	
==><restart_address($address)>

Implemented in subclasses to return the C code for C<restart
AD <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2888	3036	
==>OTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUOTE";
}

our $NOW = time();

################### MAIN PROGRAM ################

my ( <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3197	3345	
==>OTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUOTE";
}

our $NOW = time();

################### MAIN PROGRAM ################

my ( <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2992	3140	
==>OTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUOTE";
}

our $NOW = time();

################### MAIN PROGRAM ################

my ( <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	1028	1181	
==>long *",
       c => "char",
       s => "short",
       2 => "short *",
       f => "float",
       d => "double",
       t => "char *",
       v => "voi <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	1443	1596	
==>long *",
       c => "char",
       s => "short",
       2 => "short *",
       f => "float",
       d => "double",
       t => "char *",
       v => "voi <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	2348	2501	
==>long *",
       c => "char",
       s => "short",
       2 => "short *",
       f => "float",
       d => "double",
       t => "char *",
       v => "voi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660151	660406	
==>>exists_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661073	661328	
==>>exists_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	8163	8278	
==>=> sprintf("%.02f", Time::Seconds->new($10)->minutes) . "&nbsp;min",
      summary       => [{
        total       = <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	74	181	
==>($proto, %options) = @_;
    my $self = bless \%options, (ref($proto) || $proto);
    $self->init();
    ret <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	241	348	
==>($proto, %options) = @_;
    my $self = bless \%options, (ref($proto) || $proto);
    $self->init();
    ret <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	582	689	
==>($proto, %options) = @_;
    my $self = bless \%options, (ref($proto) || $proto);
    $self->init();
    ret <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	39920	40015	
==>"
tag refers only to the immediately following paragraph:

	$text = "/para line 1\n\nline 3\n/pa <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	48824	48987	
==>[0], $_[2], $_[4], $_[7] );
        }
	],
	[#Rule 26
		 '@8-1', 0,
sub
#line 161 "Lua\lua51.yp"
{
            PushScopeF( $_[0] );
            PushScope( $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921015	921127	
==>\"\n    {{\@1}}=Parrot_psprintf(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921908	922020	
==>\"\n    {{\@1}}=Parrot_psprintf(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3674	3818	
==>EFLANG'} || '') =~ m/^([a-fA-F0-9]{4})$/s ? hex($1)
                                      # yes, tolerate even more hex!
    : '1033'
  );

  $ne <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819546	819634	
==>ntry_t * const entry =\n    stack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stac <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820506	820594	
==>ntry_t * const entry =\n    stack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stac <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164691	164830	
==>"ic"
                            ],
                  "BODY" => "#line 190 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165620	165759	
==>"ic"
                            ],
                  "BODY" => "#line 190 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166549	166688	
==>"ic"
                            ],
                  "BODY" => "#line 190 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	28660	28783	
==>"Regex::Ops::List")) {
        return ($lastback, $op);
    } else {
        $DB::single = 1;
        die "malformed op $op" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	328268	328577	
==>otgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 385,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924440	924672	
==>er, enum_stringrep_one, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925231	925463	
==>er, enum_stringrep_one, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	3231	3329	
==>$h_file
    or die "can not open '$h_file': $!\n";
print <<"END";
$header
#if !defined(PARROT_CHARS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712435	712528	
==>nterpreter, io, \" \");\n  s = Parrot_sprintf_c(interpreter, \"%.12g\", (double){{\@1}});\n  P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713542	713635	
==>nterpreter, io, \" \");\n  s = Parrot_sprintf_c(interpreter, \"%.12g\", (double){{\@1}});\n  P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722449	722679	
==>eter, io, s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723478	723708	
==>eter, io, s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724522	724752	
==>eter, io, s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81414	81714	
==>"NAME" => "compile",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82307	82607	
==>"NAME" => "compile",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7423	7523	
==>ther POD command (=head2 probably).
	return '' if $text =~ /^=\w/o;
	
	return $text unless $text =~ / <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21717	21854	
==>? ( " (Should be \"=end " . $curr_open->[-1][1]{'target'} . '")' )
            : ''
          )
        );
        DEBUG and print "Ignori <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	646	749	
==>ree, $ctx, $pass_label, $fail_label, %options) = @_;

    $options{state} ||= global_state();

    # Tre <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	17998	18097	
==>nal over-helpfulness was fraught with problems:
       * the class's constructor might not be called <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32067	32172	
==>. join(' ', @args) if @args;
    $parameters = ", $parameters" if $parameters;
    my $body = "VTABLE_$met <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33644	33749	
==>. join(' ', @args) if @args;
    $parameters = ", $parameters" if $parameters;
    my $body = "VTABLE_$met <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40701	40806	
==>. join(' ', @args) if @args;
    $parameters = ", $parameters" if $parameters;
    my $body = "VTABLE_$met <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2177	2308	
==>)
    {
        # This dies if it fails.
        mkpath($self->path);
    }
    
    return -d $self->path;
}

=item C<relative_path <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5142	5243	
==>eys %$group_files);

    die "nothing found to copy" unless @list_to_process;

    foreach (@list_to_p <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2028	2122	
==>parser->can('end_head1');

If Pod::Simple sends an event where the element name has a dash,
per <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483747	483852	
==>reter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({{\@2}} / den);\n  {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484746	484851	
==>reter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({{\@2}} / den);\n  {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485745	485850	
==>reter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({{\@2}} / den);\n  {{+= <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8104	8254	
==>TDERR "Accept.\n";

				return($semval);
			};

                $$check eq 'ABORT'
            and	do {

#DBG>			$debug & 0x04
#DBG>		and	prin <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7740	7881	
==>TDERR "Accept.\n";

				return($semval);
			};

                $$check eq 'ABORT'
            and	do {

#DBG>			$debug & 0x04
#DBG>		and	prin <==
3	/Users/nnunley/parrot/tools/dev/pbc_header.pl	156	248	
==>--update-fingerprint files ...

=head1 DESCRIPTION

The F<PBC_COMPAT> file is used to maintai <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	4229	4356	
==>urn "  pir .= \"$line\"\n";
}

sub arguments {
    my (@args) = @_;
    
    my %conversions =
    (
        channel => '__chann <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	587	688	
==>Test::Perl6;

use strict;
use warnings;

use File::Basename;
use File::Spec;
use Parrot::Config;

requ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1108699	1108807	
==>_exception(interpreter, NULL, NO_CLASS,\n                    \"Class '%Ss' not found\", readable_name(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630561	630661	
==>_exception(interpreter, NULL, NO_CLASS,\n            \"Class '%Ss' not found\", readable_name(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631551	631651	
==>_exception(interpreter, NULL, NO_CLASS,\n            \"Class '%Ss' not found\", readable_name(interpr <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	23429	23535	
==>hift;

    local($\, $", $,) = (undef, ' ', '');
    my $fh = $self->todo ? $self->todo_output : $self->fai <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	102	201	
==>::Test;

use strict;
use vars qw(@EXPORT @ISA);

use Parrot::Config;

require Exporter;
require Parr <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	19	118	
==>::Test;

use strict;
use vars qw(@EXPORT @ISA);

use Parrot::Config;

require Exporter;
require Parr <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2002	2119	
==>d $class=ref($class);

    bless($self,$class);
}

sub YYParse {
    my($self)=shift;
    my($retval);

	_Che <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1932	2040	
==>d $class=ref($class);

    bless($self,$class);
}

sub YYParse {
    my($self)=shift;
    my($retval);

	_Che <==
3	/Users/nnunley/parrot/tools/dev/symlink.pl	1213	1306	
==>eq 'tools';
my @topsrcdir = @toolsrcdir[0..$#toolsrcdir - 2];
my $topsrcdir = File::Spec->catd <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	658	759	
==>$args = $ENV{TEST_PROG_ARGS} || '';

    $lang_f = File::Spec->rel2abs($lang_f);
    $out_f  = File::S <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	695	796	
==>$args = $ENV{TEST_PROG_ARGS} || '';

    $lang_f = File::Spec->rel2abs($lang_f);
    $out_f  = File::S <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	10903	11004	
==>^
#  $$
	my ($textref, $pre) = @_;
	my $startpos = pos($$textref) = pos($$textref)||0;
	unless ($$text <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	816304	816483	
==>nterpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clear <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	816747	816926	
==>nterpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clear <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	817190	817369	
==>nterpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clear <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465714	465941	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	466335	466562	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012985	1013274	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "err",
                  "FLAGS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015136	1015425	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "err",
                  "FLAGS" <==
3	/Users/nnunley/parrot/config/auto/readline.pm	999	1112	
==>nf->data->add(' ', libs => 'readline.lib');
        }
    } else {
        $conf->data->add(' ', libs => '-lreadli <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	1688	1822	
==>vigation
                </TD>
            </TR>
        </TABLE>
        <DIV CLASS="pod">
HEADER
}

=item C<footer($navigation, $reso <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4277	4368	
==>hort"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${D <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2693	2784	
==>hort"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${D <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462514	462783	
==>e",
                  "CODE" => 530,
                  "ARGS" => [
                              "n",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 322 \"src/ops/math.ops\"\n  FLOAT <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	5439	5558	
==>y ( $parser, $fields ) = @_;
    my @opcodes1 = ();
    my @opcodes2 = ();
    my $result   = new_tmp( $parser, 'pmc' <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	380	477	
==>ethods

=over

=cut

package Parrot::Docs::Section::Languages;

use strict;
use warnings;

use bas <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	10	104	
==>gex::CodeGen::Perl5;
use Regex::Ops::Tree (); # For mark()
use base 'Regex::CodeGen';
use stric <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	12859	12981	
==>ren => [ @variables ] },
					   @body ]},
			   @values
			  ]};

  $return = $self->_generate($let);

  return $return;
} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1007	1106	
==>$ident = $self->ident->compile($compiler);
  
  $compiler->emit("  dec $ident");
  
  if (($self->id <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	21375	21473	
==>der's default output settings will not be affected.

=over 4

=item B<diag>

    $Test->diag(@msgs) <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	1132	1287	
==>eter,
                                           void** prederef_addr)
{
    INTVAL offset_in_ops;
    if (prederef_addr == NULL) return NULL;
    offset_in <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	741	849	
==>s/resources>, the image and CSS file directory.

=cut

sub header
{
    my $self = shift;
    # Default value <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	617	721	
==>tent;

  my $inline = 0;
  my $last_seen = 'sub';

  $compiler->emit(".sub ___MAIN");
  $compiler->indent <==
3	/Users/nnunley/parrot/Configure.pl	6697	6822	
==>ops=(files)        Use the given ops files
   --pmc=(files)        Use the given PMC files

   --cgoto=0            Don't buil <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10766	10888	
==>char 1234 into "(1234)"
        $section = '_' unless length $section;
    }
    
    foreach my $it ($to, $section) 
    { <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4140	4251	
==>char 1234 into "(1234)"
    $section = '_' unless length $section;
  }
  
  

  foreach my $it ($to, $section) { <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	1566	1715	
==>}}, <<SHUTDOWN;
	#
	# ###################
	# Program Termination
	# ###################

SHUTDOWN
}

use vars qw( %functions );
use vars qw( %usertype <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	6481	6595	
==>if
# you get too close to the end of the string.
#
# Args:
#  t - The Tree op being visited
#  guarantee - The numb <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15429	15552	
==>0 to 10 step 2
	print i,
next i
print
for i = 10 to 3 step -1
	print i
next i
print

' For loops.  3..6 nested in 1..3
funct <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	16733	16832	
==>"
	P0= P1
	bsr RUNTIME_PUSH
	P0= P5
	bsr RUNTIME_PUSH
	dec I5
	gt I5, 0, CASE_${jump}_${incase}_STAR <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	670	766	
==>ETE);
  @writes{@writes} = (1) x @writes;
}
use Text::Balanced 'extract_bracketed';

=item C<does <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792932	793322	
==>_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 895,
                  "ARGS" => [
                              "p",
                              "k",
                              "i <==
3	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	939	1067	
==>^=cut }smx;

sub get_formatted {
    my ($self) = shift;

    my $level    = 0;
    my $verbatim = 0;

    # Step one - indent, a <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	13035	13142	
==>swiss Arial;}
}

END
}

sub doc_init {
   return <<'END';
{\rtf1\ansi\deff0

END
}

sub color_table {
   ret <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	343	452	
==>er;

use base qw(Jako::Construct::Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  return bless { <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	340	449	
==>er;

use base qw(Jako::Construct::Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  return bless { <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2562	2664	
==>$source_line) =~ s/^\xEF\xBB\xBF//s ) {
        DEBUG and print "UTF-8 BOM seen.  Faking a '=encode utf <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	49476	49581	
==>elsif($stack[-1] == length($3)) {
        # We found " >>>>", and it was exactly what we needed.  Commones <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572979	573068	
==>lass_String);\n  VTABLE_set_string_native(interpreter, name, {{\@2}});\n  {{\@1}} = pmc_ne <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573889	573978	
==>lass_String);\n  VTABLE_set_string_native(interpreter, name, {{\@2}});\n  {{\@1}} = pmc_ne <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	12948	13060	
==>{
    my $filename = shift;

    open(my $fh, '<', $filename) or die "Can't open $filename: $!";
    my $text = d <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1002	1087	
==>pcode - (opcode_t*)interpreter->code->prederef.code))
#define CUR_OPCODE ((opcode_t*)c <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1132	1217	
==>pcode - (opcode_t*)interpreter->code->prederef.code))
#define CUR_OPCODE ((opcode_t*)c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553949	554038	
==>nterpreter->current_object = object;\n  interpreter->current_cont = {{\@3}};\n  interprete <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555346	555435	
==>nterpreter->current_object = object;\n  interpreter->current_cont = {{\@3}};\n  interprete <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556734	556823	
==>nterpreter->current_object = object;\n  interpreter->current_cont = {{\@3}};\n  interprete <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2705	2815	
==>)=shift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHECK}} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	1589	1696	
==>ub is_assign        { return shift->is('assign');        }
sub is_bit_assign    { return shift->is('bit-assi <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2583	2684	
==>)=shift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHECK}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759910	760183	
==>\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dere <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	2258	2363	
==>>data->set('ccflags',   $ccflags);
        $conf->data->set('linkflags', $linkflags);
        print " (no) <==
3	/Users/nnunley/parrot/config/auto/readline.pm	2058	2163	
==>>data->set('ccflags',   $ccflags);
        $conf->data->set('linkflags', $linkflags);
        print " (no) <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	3040	3176	
==>:!']      =  <<"END_PIR"            # factorial
    $I100 = %1
    $I100 = fact $I100
    %1 = $I100
END_PIR

    $P0['monadic:*']      = <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	4285	4378	
==>die "$name: Unknown builtin\n" unless exists $built_ins{$name};

  my $self = Scheme::Builtins <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24924	25011	
==>elf->_generate($node->{children}[$_]);
      $self->_add_inst('','add',[$return,$return, <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1167	1282	
==>names and info
my $test_map = {};
for my $t ( keys %{$tests} ) {
    for my $s ( keys %$streams ) {
        $test_ma <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	3867	3968	
==>verting left...");
    my $temp = $compiler->temp_reg($calc_type);
    $left = $left->compile($compile <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1995	2131	
==>{

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    # if '--version' returns a string ass <==
3	/Users/nnunley/parrot/config/inter/make.pm	1869	2005	
==>{

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    # if '--version' returns a string ass <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	2009	2145	
==>{

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    # if '--version' returns a string ass <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	11967	12103	
==>l -MExtUtils::Command -e rm_f',
             'rm_rf' => 'perl -MExtUtils::Command -e rm_rf',
             'rpath' => '-L',
             ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549052	549164	
==>s situation. */\n  INTVAL i = {{\@2}};\n  FLOATVAL q = 1;\n  while(i>0) {\n    q = q*i;\n    i--;\n  }\n  {{\@1}} <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5857	5958	
==>om_enum(mmd.pasm) */

typedef enum {
EOM
    for my $entry (@{$vtable}) {
    next unless ($entry->[4] <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	1234	1345	
==>V_BAR} = '' unless $self->{NAV_BAR};
    
    my $title = $self->{'Title'};
    esc($title);

    print {$self-> <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3854	4046	
==>-Zi',
            libs                 => "$libs libircmt.lib",
            ld                   => 'xilink',
            ld_debug             => '-debug',
            ld_share_flags       => ' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	251	350	
==>08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statement::Assig <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	259	355	
==>08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statement::Ar <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	648	752	
==>have ""s embedded in their substution values. q[] is used in
# some places as Win32 paths have \'s in, wh <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	606	710	
==>have ""s embedded in their substution values. q[] is used in
# some places as Win32 paths have \'s in, wh <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	610	714	
==>have ""s embedded in their substution values. q[] is used in
# some places as Win32 paths have \'s in, wh <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28739	28860	
==>' );
    push @opcodes, new LocalDir( $parser,
        'result' => $_var,
    );
    my $_limit = new_tmp( $parser, 'p <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	11116	11228	
==>" " x \$rx_pos) . "^\\n";);
    }

    push @ops, "my \$dbg_tmp;\n" if $self->{DEBUG};

    push @ops, split(/\n/ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	108	198	
==>-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Section::PMCs - PMCs documenta <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4735	4851	
==>omething should be done about that.
    }
  }
  
  my $out = $to if defined $to and length $to;
  $out .= "#" . $sect <==
3	/Users/nnunley/parrot/config/auto/snprintf.pm	765	880	
==>_SNPRINTF => 1);
    }
    if ($res =~ /^C99 snprintf/) {
        $conf->data->set(HAS_C99_SNPRINTF => 1);
    } els <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8381	8479	
==>unless -d $path;
    
    return $self->directory_with_path($path);
}

=item C<existing_file_with_n <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	368	505	
==>=cut

sub new {
    return bless {};
}

my %language_test_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    o <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	283	419	
==>=cut

sub new {
  return bless {};
}


my %language_test_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    o <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	447	581	
==>=cut

sub new {
    return bless {};
}

my %language_test_map = (
    output_is   => 'is_eq',
    output_like => 'like',
    o <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18596	18730	
==>y ( $parser, $fct, $args ) = @_;
    my $result;
    my @opcodes = ();
    my @params  = ();
    my @returns = ();
    for my $arg <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	245	347	
==>ection::Perl;

=head1 DESCRIPTION

A documentation section describing Perl modules in Parrot.

=head2 C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	533761	534043	
==>10",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 617,
                  "ARG <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	26278	26413	
==>ists.  TODO: make this an option?
        shift @$paras;
        next;
        
      } elsif($paras->[0][0] eq '~end') {
        $self- <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	25816	25947	
==>h @opcodes, new LabelOp( $parser,
        'arg1' => $l_next,
    );

    for my $elseif ( @{$elseifs} ) {
        $cond = get_c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036998	1037273	
==>\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_globa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037778	1038053	
==>\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_globa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038559	1038834	
==>\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_globa <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	17178	17267	
==>"S");

	push @{$code{$seg}->{code}}, "WHILE_$whilecounter:\n";
	push @{$code{$seg}->{code} <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	16082	16264	
==>ctor') {
               $vector = "op1";
               $scalar = "op2";
			   @order = qw/ $P1 $P2 /;
           } else {
               $vector = "op2";
               $scalar = "op <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	8451	8595	
==>e',
             'link' => 'c++',
             'link_debug' => '',
             'link_dynamic' => ' ',
             'linkflags' => '-L/opt/local/ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5409	5525	
==>s, or copy\n";
}

sub run {
    print join(" ", @_), "\n";

    return system(@_) == 0;
}

# XXX: ordering of libs mi <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5620	5736	
==>s, or copy\n";
}

sub run {
    print join(" ", @_), "\n";

    return system(@_) == 0;
}

# XXX: ordering of libs mi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017947	1018046	
==>\n  const time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_gmtime_r(&t, &tm);\n  Par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018872	1018971	
==>\n  const time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_gmtime_r(&t, &tm);\n  Par <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29143	29255	
==>> $pattern,
		"lookahead"   => $_[2],
		"line"        => $_[3],
		"description" => "'$desc'",
	}, $class;
}


sub <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31245	31352	
==>> $pattern,
		"lookahead" => $_[2],
		"line"      => $_[3],
		"description" => "'$desc'",
	}, $class;
}

sub <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	23203	23304	
==>ent
	# type. Thus we assign to meta-variable I_ARG_0, I_ARG_1 etc, let sub_meta
	# do what it needs to <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129274	129517	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130012	130255	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 " <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21605	21695	
==>$self->_constant(1);
  my $temp = $self->_generate($node->{children}[1]);
  $self->_add_ins <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21990	22080	
==>$self->_constant(1);
  my $temp = $self->_generate($node->{children}[1]);
  $self->_add_ins <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39094	39184	
==>be { $_[0]->{"expected"} }
sub sethashname { $_[0]->{hashname} = '__DIRECTIVE' . ++$_[1]->{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957579	957667	
==>eal_exception(interpreter, NULL, 1,\n\t\"encoding '%Ss' not found\", {{\@2}});\n  {{\@1}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958484	958572	
==>eal_exception(interpreter, NULL, 1,\n\t\"encoding '%Ss' not found\", {{\@2}});\n  {{\@1}} <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32273	32381	
==>decl($self->{class}, $method, 0);
    # I think that these will be out by one - NWC
    my $l = $self->line_d <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40895	41003	
==>decl($self->{class}, $method, 0);
    # I think that these will be out by one - NWC
    my $l = $self->line_d <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19441	19531	
==>title except that it returns the contents of the
"=head1 AUTHOR\n\nParagraph...\n" section, <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	2784	2917	
==>lf->{c}{$key};
        if (defined $old) {
            $self->set($key, "$old$delim$val");
        } else {
            $self->set($ke <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	41616	41709	
==>e
they are called (whereas C<extract_tagged> has to effectively rebuild
its tag parser on ever <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	40180	40300	
==>{type} eq "leftop" )
	{
		$code .= '
		  # MATCH LEFTARG
		  ' . $leftarg->code(@_[1..2]) . '

		  $repcount++;

		  my $ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4500	4608	
==>turn generated code.
	return $pir;
}

sub post_op($$) {
	# Nothing to do.
	return "";
}

# Pre and post branc <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2916	3024	
==>turn generated code.
	return $pir;
}

sub post_op($$) {
	# Nothing to do.
	return "";
}

# Pre and post branc <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5881	5971	
==>n by Brent
Royal-Gordon C<brent@brentdax.com>.

=head1 AUTHOR

Joshua Hoblitt C<jhoblitt@cp <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6730	6820	
==>n by Brent Royal-Gordon C<brent@brentdax.com>.

=head1 AUTHOR

Joshua Hoblitt C<jhoblitt@cp <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	4146	4244	
==>DE} = find_op_number($_->full_name, $_->{experimental});
    }

    @{$ops->{OPS}} = sort { $a->{CO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408279	408372	
==>/io.ops\"\n    {{\@1}} = (INTVAL)PIO_connect(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409178	409271	
==>/io.ops\"\n    {{\@1}} = (INTVAL)PIO_connect(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n", <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29372	29474	
==>:_trace(q{Trying terminal: [' . $self->describe
					  . ']},
					  Parse::RecDescent::_tracefirst($te <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31469	31571	
==>:_trace(q{Trying terminal: [' . $self->describe
					  . ']},
					  Parse::RecDescent::_tracefirst($te <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27269	27364	
==>:_trace(q{Trying terminal: [' . $self->describe
					  . ']}, Parse::RecDescent::_tracefirst($te <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4656	4774	
==>->YYData->{INPUT};
    s/^\n//
        and $parser->YYData->{lineno}++;

    while (1) {
        $parser->YYData-> <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	14154	14269	
==>) { $self->output_fh( $to );
  } elsif(ref($to)) {            $self->output_fh( $to );
  } elsif(!length $to
     or <==
3	/Users/nnunley/parrot/languages/converter.pl	53	147	
==>rammar to a Parse::RecDescent grammar

=head1 DESCRIPTION

An early attempt at Python support f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340312	340674	
==>=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341311	341673	
==>=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342310	342672	
==>=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	6536	6640	
==>gs:
#  t - The Tree op being visited
#  guarantee - The number of atoms we are currently guaranteed to ha <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	10363	10506	
==>(x) = .5 * (ln (1+x) - ln (1 -x))
    $N1 = op2 + 1
    $N1 = ln $N1
    $N2 = 1 - op2
    $N2 = ln $N2
    $N1 = $N1 - $N2
    $N1 *= 0.5
    . <==
3	/Users/nnunley/parrot/config/init/defaults.pm	2808	2915	
==>modules that can be dynamically loaded.  Flags to tell
        # ld to build a shared library, e.g.  -shared <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	216	312	
==>Loop/Until.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

pack <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	7214	7345	
==>c_stem.c failed ($?)\n";
    }
    else {
        1;
    }
}

sub partial_link {
    my ($group, $libs, $stems) = @_;

    my @sourc <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7425	7556	
==>c_stem.c failed ($?)\n";
    }
    else {
        1;
    }
}

sub partial_link {
    my ($group, $libs, $stems) = @_;

    my @sourc <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	2460	2574	
==>ompt('Which PMC files would you like?', $pmc_list);
        }
    }

    # XXX:leo do we really need an interactive <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14694	14896	
==>t loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         ble <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	15381	15583	
==>t loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         ble <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	35339	35455	
==>E
        } else {
            $pir .= <<'PIRCODE';
sp_dest = next_pc + I_arg_0
ss = clone stypes
ss_propogate[sp_des <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10553	10668	
==>ned $section and length($section .= '') ) 
    {
        $section =~ tr/ /_/;
        $section =~ tr/\x00-\x1F\x80-\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	622135	622246	
==>PARROT_OP_get_params_pc);\n    ((void**)cur_opcode)[1] = mic->m.sig;\n    {{+=0}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3948	4049	
==>ned $section and length($section .= '')) {
    $section =~ tr/ /_/;
    $section =~ tr/\x00-\x1F\x80-\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665037	665256	
==>DE" => 743,
                  "ARGS" => [
                              "p",
                              "ki"
                            ],
                  "BODY" => "#line 359 \"src/ops/pmc.ops\"\n  {{\@1}}->vtable <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9949	10056	
==>var from 5 to 12
function myfunc(a)
	print a
	a=12
        myfunc=80
end function
z=5
T=myfunc(z)
print z

' <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11562	11669	
==>var from 5 to 12
function myfunc(a)
	print a
	a=12
        myfunc=80
end function
z=5
T=myfunc(z)
print z

' <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27439	27541	
==>$lastsep = "";
		$Parse::RecDescent::lastexpected = q{' . ($rule->hasleftmost($self) ? ''
				: $self-> <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29549	29651	
==>$lastsep = "";
		$Parse::RecDescent::lastexpected = q{' . ($rule->hasleftmost($self) ? ''
				: $self-> <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31646	31748	
==>$lastsep = "";
		$Parse::RecDescent::lastexpected = q{' . ($rule->hasleftmost($self) ? ''
				: $self-> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	6256	6394	
==>-concat', undef, $1);
      $text = $2;
      next;
    }

    #
    # Identifiers:
    #

    if ($text =~ m{^([a-zA-Z][a-zA-Z0-9_]*(::[a- <==
3	/Users/nnunley/parrot/config/inter/encoding.pm	970	1087	
==>ings would you like?', $encoding_list);
        }
    }

    # names of class files for src/pmc/Makefile
    (my $TEMP <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	9933	10042	
==>otnet', ''

.sub trans_instructions
    .param pmc assembly
    .param pmc class
    .param pmc meth
    .para <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11312	11420	
==>_assign) {
      my $block = $self->current_block;

      my $ident = Jako::Construct::Expression::Value::Ide <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11859	11967	
==>_assign) {
      my $block = $self->current_block;

      my $ident = Jako::Construct::Expression::Value::Ide <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12402	12510	
==>_assign) {
      my $block = $self->current_block;

      my $ident = Jako::Construct::Expression::Value::Ide <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	14442	14541	
==>rotocol.

= FUTURE PLANS

This module is still a work in progress. As Pugs grows, so will it's
testi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103850	1103939	
==>\"\n\tSTRING *class = {{\@2}};\n\tINTVAL type = pmc_type(interpreter, class);\n\tif (!type <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105065	1105154	
==>\"\n\tSTRING *class = {{\@2}};\n\tINTVAL type = pmc_type(interpreter, class);\n\tif (!type <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	1905	2035	
==>] eq "all_source") {
        # do a little "find" action for now.
        
        @files = ();
        File::Find::find({wanted => <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	1074	1183	
==>] eq "all_source") {
    # do a little "find" action for now.
    @files = ();
    File::Find::find({wanted => <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	1804	1905	
==>nt is passed into an
op a register is read from, when it's passed out of an op a register is
written t <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	688	789	
==>o_pasm($code, $ctx, %options);

    $self->output_rule_body($fh, $subname, $rule, $ctx, \@asm);
}

sub <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365228	365321	
==>ine 303 \"src/ops/io.ops\"\n  if ({{\@2}} && {{\@1}}) {\n    PIO_putps(interpreter, {{\@1}}, { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366068	366161	
==>ine 303 \"src/ops/io.ops\"\n  if ({{\@2}} && {{\@1}}) {\n    PIO_putps(interpreter, {{\@1}}, { <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	4085	4207	
==>O2 and -O3
            #      -falign-functions=16 is the real alignment, no exponent
            3.0 => "-Wformat-nonliter <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	2633	2754	
==>q "=" or $next eq ">") {
			fetch;
			append;
		}
		emit("Compare");
		fetch;
		goto MAIN;
	}
	if ($cur eq "_" and $next = <==
3	/Users/nnunley/parrot/config/init/defaults.pm	5736	5891	
==>=> 'as',    # assembler

        cp    => '$(PERL) -MExtUtils::Command -e cp',
        lns   => $Config{lns},                          # soft link
        s <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	2121	2231	
==>error at $file line ".$fh->input_line_number()."\n";
        }
    }

    return $vtable;
}

=item C<vtbl_defs( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	728690	728953	
==>nge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "io"
                               ],
                  "TYPE" => "function",
                  "CODE" => 817 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	626	723	
==>ss "Op is not defined!" unless defined $op;
  confess "Right is not defined!" unless defined $righ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	638	735	
==>ss "Op is not defined!" unless defined $op;
  confess "Right is not defined!" unless defined $righ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459917	460206	
==>,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460905	461194	
==>,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461893	462182	
==>,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1051	1164	
==>mpile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $left  = $self->left->value;
  my $right <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	1059	1172	
==>mpile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $left  = $self->left->value;
  my $right <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	739	832	
==>cmdInfo cmdMZ compile config fileName fileSystem main misc 
  parse parseExpr parseOld regexpC <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296155	296410	
==>p(interpreter, {{\@2}}, {{\@3}}, MMD_EQ);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	304827	305082	
==>p(interpreter, {{\@2}}, {{\@3}}, MMD_EQ);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9035	9139	
==>)=" "
	next j
	a$(w+w*sin(i)+1)="*"
	a$(w+w*cos(i)+1)="+"
	for j = 1 to w*2
		print a$(j);
	next j
	print <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47038	47225	
==>_debug_CLEAR(interpreter, PARROT_ALL_DEBUG_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47821	48008	
==>_debug_CLEAR(interpreter, PARROT_ALL_DEBUG_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	2034	2134	
==>ff that uses Pod::Simple to do stuff, but which
  you DO want debug output from...

 $debug_level = 0 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	477	584	
==>{
  # ($self, $element_name, $attr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBUG and pr <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	476	583	
==>{
  # ($self, $element_name, $attr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBUG and pr <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	671	778	
==>{
  # ($self, $element_name, $attr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBUG and pr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857421	857671	
==>"CODE" => 973,
                  "ARGS" => [
                              "s",
                              "sc",
                              "sc"
                            ],
                  "BODY" => "#line 105 \"src/ops/string.ops\"\n  {{\@ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	9988	10094	
==>ne "(" and $type[CURR] ne "STRING") {
			push(@expr, [ "(", "PUN" ]); # Make sure no-arg funcs have at
			p <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3875	4008	
==>set', 'I0', 0],
  ['',            'invoke'],
  ['apply_HELP',  'P16', 'P16[1]'],
  ['',            'inc', 'I1'],
  ['',            'ty <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	2963	3068	
==>opcodes{$pc}->{args}}, @args;

        $src = $op->full_body();

	# The regexes here correspond to the rew <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	1082	1183	
==>ef) = splice @_, 0, 2;
	my ($extrapos, $extralen) = @_>18 ? splice(@_, -2, 2) : (0,0);
	my ($startlen) <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	15171	15303	
==>ULT => -24
	},
	{#State 36
		ACTIONS => {
			"^" => 9,
			"(" => 10,
			'CHAR' => 4,
			"<" => 3,
			"[" => 14,
			'CODE' => 6,
			". <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1167	1290	
==>xt);
    $text =~  # A not-totally-brilliant wrapping algorithm:
      s/(
         [^\n]{55}         # Snare some character <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1111	1234	
==>xt);
    $text =~  # A not-totally-brilliant wrapping algorithm:
      s/(
         [^\n]{55}         # Snare some character <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	6830	6975	
==>$next->text_r;
          while( $$t =~ m/$/mg ) {
            last if  ++$line_count  > 15; # no point in counting further
          }
          D <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5691	5825	
==>lass;
        require "$pmc.dump";
 
        # there can be many libs
        my %libs = %{ $class->{flags}{lib} || {} };
        $pmc_ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5902	6036	
==>lass;
        require "$pmc.dump";
 
        # there can be many libs
        my %libs = %{ $class->{flags}{lib} || {} };
        $pmc_ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	56987	57165	
==>erator (and removes it from $text):

        $quotelike = extract_multiple($text,
                                      [
                                        sub { extract_quo <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	375	479	
==>tput_is() {
    my ($self, $code, $output, $desc) = @_;
  
    my $count = $self->{builder}->current_test <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	413	517	
==>tput_is() {
    my ($self, $code, $output, $desc) = @_;
  
    my $count = $self->{builder}->current_test <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	28619	28720	
==>float" if $t eq "FLO";
			$_=changename($_);
			$_=~s/\$/_string/g; 
			push @{$code{$seg}->{code}}, q <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	811	903	
==>:Directory;
use Parrot::Docs::POD2HTML;

=item C<new_item($text, @paths)>

Returns a new item <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1588	1678	
==>is not a Jako::Construct::Type instance!")
    unless UNIVERSAL::isa($type, "Jako::Construc <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1436	1526	
==>is not a Jako::Construct::Type instance!")
    unless UNIVERSAL::isa($type, "Jako::Construc <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	60204	60359	
==>def
	]
],
                                  @_);
    bless($self,$class);
}

#line 611 "Lua\lua51.yp"


package Lua::parser;

use strict;

use <==
3	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1765	1847	
==>rrot-$options{version}
Compression=lzma
SolidCompression=yes
ChangesAssociations=ye <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	12462	12592	
==>->genlabel('after_charclass');

    my @ops = (          aop('advance', [ $howfar, $lastback ]),
                         aop('goto <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4019	4123	
==>{$_})
		or	croak("Missing mandatory parameter '".lc($_)."'");
	}
}

sub _Error {
	print "Parse erro <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3817	3915	
==>{$_})
		or	croak("Missing mandatory parameter '".lc($_)."'");
	}
}

sub _Error {
	print "Parse erro <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2042	2131	
==>par}\n",
 'head1'   => "\n{\\pard\\li#rtfindent#\\s31\\keepn\\sb90\\sa180\\f2\\fs#head1_ha <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10180	10296	
==>ck
		or	do {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**No state left on stack: aborting.\n";

			return <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	8927	9037	
==>.ops$/.pod/;
            print MAKEFILE "ops$slash$pod: ..${slash}src${slash}ops${slash}$ops\n";
            if <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9724	9834	
==>ck
		or	do {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**No state left on stack: aborting.\n";

			return <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	32792	32906	
==>ing {
    my $self = shift;

    $self->_sanity_check();

    # Don't bother with an ending if this is a forked cop <==
3	/Users/nnunley/parrot/tools/dev/symlink.pl	427	523	
==>$cwd  = getcwd();

$self = readlink($self) while -l $self;

$self = File::Spec->catfile($cwd, $se <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	15098	15209	
==>ind eq 'else') {
        if (defined $cont) {
          $self->SYNTAX_ERROR("No more than one else block allowed <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9302	9412	
==>t stack height.
dec stack_depth
PIR
	}

	return $pir;
}

# Pre and post call hooks.
sub pre_call {
    my $self <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6820	6930	
==>t stack height.
dec stack_depth
PIR
	}

	return $pir;
}

# Pre and post call hooks.
sub pre_call {
    my $self <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	4078	4183	
==>if $self->{IN_ITEM_TEXT};
    
    print {$self->{'output_fh'}} $self->{'Tagmap'}{$tagname};
    
    my $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021616	1021712	
==>line 202 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_gmt <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022458	1022554	
==>line 202 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_gmt <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995385	995678	
==>"ARGS" => [
                              "i",
                              "i",
                              "s",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = P <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15042	15143	
==>(ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
    }
    return;
  } elsif(wantarray) {  # return an <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16225	16326	
==>(ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
    }
    return;
  } elsif(wantarray) {  # return an <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	18243	18381	
==>recursive" data structures didn't work well:
                 package Person;
                 struct { mother => 'Person', father => 'Pers <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1284	1385	
==>$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
dec ${ITEMP0}
${PTEMP0} = ${STY <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2994	3095	
==>$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
dec ${ITEMP0}
${PTEMP0} = ${STY <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8322	8417	
==>5);"Stuff"
print "I am the very model of a modern";tab$(15);"More"
print "Hello","Again",d
dim c <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21186	21281	
==>5);"Stuff"
print "I am the very model of a modern";tab$(15);"More"
print "Hello","Again",d
dim c <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	9440	9524	
==>bject.ops src/ops/pic.ops src/ops/pmc.ops src/ops/python.ops src/ops/set.ops src/ops/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340685	341115	
==>d_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 399,
                  "ARGS" => [
                              "i",
                              "p",
                              "ic", <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	1450	1555	
==>Spec->updir() x ($dir_count - 2));
    }

    my $lang_f = Parrot::Test::per_test('.tcl',$count);
    my $ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10271	10366	
==>adreg, storereg, err, str_ic, tmp
    .local int pc, next_pc, bc_length, cur_ic, pop_count, labe <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14453	14546	
==>ve_1('P');

  $self->_add_inst ('', 'new', [$return,'.Array']);
  $self->_add_inst ('', 'set', <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	2962	3053	
==>ve_1('P');

  $self->_add_inst('', 'new', [$return,'.Array']);
  $self->_add_inst('', 'set', <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	26483	26572	
==>ttern$rdel" and $@)
	{
		Parse::RecDescent::_warn(3, "Token pattern \"m$ldel$pattern$rdel\ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	2525	2647	
==>als} ||= []);
        return (aop(comment => [ "restore rxlocals for op" ]),
                map { aop('popint' => [ $_, "o <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	23839	23945	
==>) {
			$out =  "    \${I_ARG_$arg_num} = bc.read_int8()\n    next_pc += 1\n";
			$arg_name = "I_ARG_$arg_nu <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	34286	34375	
==>Looks like you planned $self->{Expected_Tests} test$s but only ran $self->{Curr_Test}.
FAI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645947	646245	
==>});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640729	641025	
==>});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641493	641789	
==>});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLA <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10888	10998	
==>($node,2));
  if ($temp !~ /^P/) {
    my $pmc = $self->_save_1 ('P');
    $self->_morph ($pmc, $temp);
    $se <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553771	553866	
==>ne 94 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555168	555263	
==>ne 94 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11783	12001	
==>KeyedSetOp( $parser,
                        'arg1'   => $last_key->[0],
                        'arg2'   => undef,
                        'result' => $result,
                    );
                    return [ $ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9983	10181	
==>KeyedSetOp( $parser,
                    'arg1'   => $last_key->[0],
                    'arg2'   => undef,
                    'result' => $result,
                );
                return [ $ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8838	8996	
==>KeyedSetOp( $parser,
            'arg1'   => $last_key->[0],
            'arg2'   => undef,
            'result' => $result,
        );
        return [ $ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	41509	41608	
==>ated subroutines:

=over 4

=item * 

do not have to reparse tag specification or parsing options ev <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065143	1065237	
==>t_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed_str(interpreter, ns_root, {{\@2}});\n    {{\@1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066017	1066111	
==>t_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed_str(interpreter, ns_root, {{\@2}});\n    {{\@1 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1153	1245	
==>parameters, all starting with YY (leading YY will be discarded)
my(%params)=(YYLEX => 'CODE' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1111	1202	
==>parameters, all starting with YY (leading YY will be discarded)
my(%params)=(YYLEX => 'CODE' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818576	818737	
==>ROT_JUMP_RESTART",
                  "NAME" => "restoreall",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [],
                  "TYPE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630592	630695	
==>O_CLASS,\n            \"Class '%Ss' not found\", readable_name(interpreter, class));\n    {{\@1}} = pmc_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631582	631685	
==>O_CLASS,\n            \"Class '%Ss' not found\", readable_name(interpreter, class));\n    {{\@1}} = pmc_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409247	409556	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rec <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369542	369848	
==>\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	370427	370733	
==>\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "re <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	50623	50762	
==>,
	[#Rule 38
		 'laststat', 1,
sub
#line 226 "Lua\lua51.yp"
{
            BuildBreak( $_[0] );
        }
	],
	[#Rule 39
		 'funcna <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1194	1301	
==>o arguments and returns a L<Parrot::Configure> object.

=cut

sub new
{
    my $class = shift;

    my $self <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	1690	1785	
==>f->new_section('Lua', 'lua.html', '', 'languages/lua'),
        $self->new_section('M4', 'm4.htm <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022866	1023129	
==>"NAME" => "decodelocaltime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023715	1023978	
==>"NAME" => "decodelocaltime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	4254	4382	
==>> "return_data = ",
       t => "return_data = ",
       P => "return_data = ",
       S => "return_data = ",
       I => "return <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	2108	2227	
==>t

sub create_path
{
    my $self = shift;
    
    return 1 unless $self->parent_path;
    
    unless ( -e $self->pare <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1086	1192	
==>irectory_class>.


=cut

sub directory_with_path
{
    my $self = shift;
    
    return $self->directory_c <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	482	640	
==>=> 1,
             'HAS_GMP' => 1,
             'HAS_READLINE' => 1,
             'HAS_SNPRINTF' => 1,
             'HAS_aligned_funcptr' => 1,
             'M <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	4289	4390	
==>line
EXPR
		feedme();
		push(@ifstack, $ifline);
		die "No then at $sourceline --  $syms[CURR]" if ($s <==
3	/Users/nnunley/parrot/config/auto/cgoto.pm	425	524	
==>ption = 'Determining whether your compiler supports computed goto';
@args        = qw(cgoto miniparr <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	9153	9283	
==>load(\$todo);

    my $out;
    my $result = &share({});

    unless( $test ) {
        $out .= "not ";
        @$result{ 'ok', 'ac <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3368	3495	
==>'linkflags');
            $linkflags =~ s/-opt:\S+//;
            $conf->data->set(linkflags => $linkflags);
        }
    } els <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4872	4999	
==>'linkflags');
            $linkflags =~ s/-opt:\S+//;
            $conf->data->set(linkflags => $linkflags);
        }
    } els <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	14069	14177	
==>d $to) {             $self->output_fh( *STDOUT{IO}   );
  } elsif(ref(\$to) eq 'GLOB') { $self->output_fh( $t <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4583	4687	
==>s/_P/_DBP/;
	eval join('',@drv);
}

#Note that for loading debugging version of the driver,
#this fi <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4353	4452	
==>s/_P/_DBP/;
	eval join('',@drv);
}

#Note that for loading debugging version of the driver,
#this fi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40184	40394	
==>ROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41031	41241	
==>ROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	851	944	
==>:Expression::Value::Identifier));
  confess "Value (" . ref($value) . ") is not!" unless UNIVE <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1624	1742	
==>t('no');
        return $self;
    }

    if ($conf->options->get('ask')) {
        $prog = prompt($prompt, $prog ? $pr <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1638	1756	
==>t('no');
        return $self;
    }

    if ($conf->options->get('ask')) {
        $prog = prompt($prompt, $prog ? $pr <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	27250	27351	
==>sub describe_group { "group $_[3]" }
sub describe_rule { undef }

sub wrap {
    my ($self, $op, $back <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3654	3766	
==>e!")
        unless $self->block->kind eq 'module';

      my %module_props = $self->block->props;

      $self-> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6318	6430	
==>e!")
        unless $self->block->kind eq 'module';

      my %module_props = $self->block->props;

      $self-> <==
3	/Users/nnunley/parrot/config/auto/headers.pm	40	130	
==>dation.
# $Id: /parrot/config/auto/headers.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=h <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	9213	9318	
==>ine {
  my($self, $line) = @_;
  
  # The point of this routine is to set $self->{'_transcoder'} as indica <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	10575	10677	
==>ect Correct
t=0
g=0
if t then
	' t is false, don't go here.
	print "Mistake"
elseif g then
	print "Also <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	3246	3343	
==>et you started.  Once you're off the ground its
recommended you look at L<Test::More>.


=head1 EX <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474	570	
==>rot::OpLib::core;

use vars qw($VERSION $ops $preamble);

$VERSION = "0.4.5";

$preamble = "/*\n* <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571082	571176	
==>ject.ops\"\n    PMC *class = Parrot_class_lookup_p(interpreter, {{\@3}});\n    {{\@1}} = Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572037	572131	
==>ject.ops\"\n    PMC *class = Parrot_class_lookup_p(interpreter, {{\@3}});\n    {{\@1}} = Parrot <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	13531	13648	
==>eshape
    .param pmc op1
    .param pmc op2

    # XXX is a clone needed here?
    op2.'set_shape'(op1)
    .return ( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78389	78738	
==>",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 100,
                  "ARGS" => [
                              " <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	5373	5488	
==>st)
      if $options{buildprefix};

    $directories{dirname($dest)} = 1;
    push(@files, [ $src => $dest ]);
} co <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	26098	26207	
==>rrot_mmd_register_table(interp, entry,
            _temp_mmd_init, N_MMD_INIT);
EOC
    }

    $cout .= <<"EOC <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134895	135218	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135788	136111	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136682	137005	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	12361	12516	
==>"#line 217 \"src/ops/core.ops\"\n  {{=*}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4783	4890	
==>end of sub !!!
sub _Parse {
    my($self)=shift;

	my($rules,$states,$lex,$error)
     = @$self{ 'RULES <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4547	4649	
==>end of sub !!!
sub _Parse {
    my($self)=shift;

	my($rules,$states,$lex,$error)
     = @$self{ 'RULES <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	23088	23223	
==>@_;
    my @args;
    if ($make_f) {
	$make_f = 0;
	print <<EOC;
	# make_f \t$cmt
EOC
	# pop @stack;
	return;
    }
    my $func;
    my <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9830	9935	
==>k, $self->require_value);
      my $op    = $self->require_infix_rel->text;
      my $right = Jako::Constr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25366	25471	
==>k, $self->require_value);
      my $op    = $self->require_infix_rel->text;
      my $right = Jako::Constr <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4898	4992	
==>TES', 'LEX', 'ERROR' };
	my($errstatus,$nberror,$token,$value,$stack,$check,$dotpos)
     = @ <==
3	/Users/nnunley/parrot/lib/File/Which.pm	3732	3825	
==>ms under which the `which' program wasn't implemented in the shell.

C<File::Which> searches t <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4657	4749	
==>TES', 'LEX', 'ERROR' };
	my($errstatus,$nberror,$token,$value,$stack,$check,$dotpos)
     = @ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34037	34151	
==>c_ret = $self->gen_ret($method->{type});
        $ret = "return ret_val;";
    }
    # I think that these will be o <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	4609	4719	
==>elf->{Use_Nums}   = 1;

    $self->{No_Header}  = 0;
    $self->{No_Ending}  = 0;

    $self->_dup_stdhandles u <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9102	9192	
==>:OffsetCounter}, \$text, $thisparser, 1;
	':'') . ($parser->{_check}{thiscolumn}?'
	my $thi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987159	987624	
==>"o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1106,
                  "ARGS" => [
                              "i",
                              "ic",
                              "s",
                              "ic",
                              "i <==
3	/Users/nnunley/parrot/languages/regex/regex.pl	690	807	
==>e = $1;
    } elsif (/--language=(.*)/) {
        $language = lc($1);
        $language = 'perl5' if $language eq 'per <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2209	2306	
==>arsets.  Something should be done about that.
  }
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2312	2409	
==>arsets.  Something should be done about that.
  }
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	37651	37745	
==>). For example, if the opening tag pattern
is specified as C<'{{\w+}}'> and actually matched th <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126685	126911	
==>n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127820	128046	
==>n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128955	129181	
==>n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Examples.pm	419	516	
==>ction::Examples;

use strict;
use warnings;

use base qw( Parrot::Docs::Section );

use Parrot::Do <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561928	562022	
==>l_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", {{\@3}});\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563012	563106	
==>l_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", {{\@3}});\n <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1110	1231	
==>ile,
    LINE   => $ident->line,
  }, $class;

  #
  # Check for a few bad conditions.
  #
  # NOTE: These are compiler in <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1013	1134	
==>ile,
    LINE   => $ident->line,
  }, $class;

  #
  # Check for a few bad conditions.
  #
  # NOTE: These are compiler in <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9793	9891	
==>+ chr$(65);
print " World"

' Expect nothing
Dim A(10)
z=3
c=c+a(z)

' String function, whoa
functi <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	1655	1764	
==>romkeys',
    'locase' => 'locase',
    'next' => 'next',
    'sort' => 'sort',
);

my %rev_type_map;

while ( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2753	2847	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub new {
  my $new = shift->SUPER::new(@_);
  #$new->nix_X_codes( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3109	3201	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~
sub new {
  my $new = shift->SUPER::new(@_);
  $new->nix_X_codes( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10887	10990	
==>~~~~~~
sub do_beginning {
  my $self = $_[0];
  my $fh = $self->{'output_fh'};
  return print $fh join ' <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	2225	2324	
==><$name> is the name of the op.

C<$args> is a reference to an array of argument type descriptors.

C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473856	474125	
==>,
                  "CODE" => 543,
                  "ARGS" => [
                              "n",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 403 \"src/ops/math.ops\"\n  FLOATVA <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48375	48481	
==>Y/gco)
					{ ($minrep, $maxrep) = ($1,$1) }
				elsif ($grammar =~ m/$BETWEEN/gco)
					{ ($minrep, $maxre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033524	1033748	
==>yed_str(interpreter, lex_pad, lex_name, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034622	1034846	
==>yed_str(interpreter, lex_pad, lex_name, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	5157	5248	
==>hey have man
 #  pages somewhere URL-accessible.

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	24072	24228	
==>_f,
                                     'STDERR' => $build_f);
            $builder->diag("'$cmd' failed with exit code $exit_code")
                if $exi <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	24833	24981	
==>_f,
                                     'STDERR' => $build_f);
            $builder->diag("'$cmd' failed with exit code $exit_code")
        if $exi <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	3247	3339	
==>ie "can not open '$h_file': $!\n";
print <<"END";
$header
#if !defined(PARROT_CHARSET_TABLES_ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	2780	2878	
==>ode is to be generated,
to dump info (PMC metadata).

This function is exported.

=cut

sub dynext_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140545	140865	
==>"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 172,
                  "ARGS" => [
                              "n",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 77 \"src/ops/ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4435	4600	
==>\s*#\s*_Parse\s*$/
        	and     do {
                	s/^#DBG>//;
                	push(@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4213	4369	
==>\s*#\s*_Parse\s*$/
        	and     do {
                	s/^#DBG>//;
                	push(@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27520	27635	
==>lf) ? ''
				: $self->describe ) . '};
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self- <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29630	29745	
==>lf) ? ''
				: $self->describe ) . '};
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self- <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31727	31842	
==>lf) ? ''
				: $self->describe ) . '};
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self- <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2122	2234	
==>uff' );

will do what you mean (fail if stuff is empty)

=cut

sub ok ($;$) {
    $Test->ok(@_);
}


=back

Test: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13102	13192	
==>CK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13946	14036	
==>CK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{= <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	14952	15065	
==>ar..
            $template .= interpolate($code, 'op1', 'op2');
        } elsif ($type1 eq "APLVector" && $type2 e <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	9357	9455	
==>ode);

Extract a class signature from the code ref and return (a) the
code found before the signatu <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	463	556	
==>ION

This module provides provides a means for registering, executing, and
coordinating one or <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53879	54051	
==>ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 829 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Interp_flags_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510485	510780	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TY <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511223	511518	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TY <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511961	512256	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TY <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	2510	2610	
==>unt);
  }

  my $pos = $self->pos;

  $self->INTERNAL_ERROR("Position is not defined") unless defined <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2367	2454	
==>d

=head1 SEE ALSO

F<examples/benchmarks/mops.pasm>,
F<examples/mops/mops.c>,
F<example <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	2367	2454	
==>d

=head1 SEE ALSO

F<examples/benchmarks/mops.pasm>,
F<examples/mops/mops.c>,
F<example <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	67699	67794	
==>_error("Unexpected colon encountered", $line);
			_hint("Did you mean \"|\" (to start a new prod <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	977	1064	
==>w;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub h <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	761	848	
==>w;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub h <==
3	/Users/nnunley/parrot/lib/Test/More.pm	13076	13197	
==>{
        $diag = "$obj_name isn't defined";
    }
    elsif( !ref $object ) {
        $diag = "$obj_name isn't a referenc <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	40053	40156	
==>/para', '/endpara', undef,
			{reject => '/para', fail => MAX );

	# EXTRACTED: "/para line 1\n"

Note t <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1163	1252	
==>ht = $self->right->compile($compiler);

  if ($self->block->scope_of_ident($left) eq 'glob <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507801	508117	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 584,
                  "AR <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	22898	23020	
==>d with B::Deparse
    return if $^C;

    my $msg = join '', @msgs;

    local($\, $", $,) = (undef, ' ', '');
    my $fh = <==
3	/Users/nnunley/parrot/config/init/hints/vms.pm	131	245	
==>ge init::hints::vms;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    $conf->data->set(
        ccflags <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2634	2739	
==>P_REGS)
    register opcode_t *cur_opcode asm ("esi") = cur_op;
    register char *   _reg_base   asm ("ed <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	53777	53874	
==>texts the value of this argument is 
automatically reset to 1 (under C<-w>, a warning is issued if <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356688	356907	
==>nterpreter, INTVAL_FMT, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357348	357567	
==>nterpreter, INTVAL_FMT, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22089	22211	
==>{
		"code"      => $_[1],
		"lookahead" => $_[2],
		"line"      => $_[3],
		"name"      => $_[4],
	}, $class;
}

sub code($ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	34064	34204	
==>" => 80,
			"<=" => 85,
			'OR' => 84,
			">" => 86
		}
	},
	{#State 120
		DEFAULT => -51
	},
	{#State 121
		ACTIONS => {
			"," = <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	16285	16382	
==>.ent
)) {
  open(IN, "<$dir$file") or die "can't read-open $dir$file: $!";
  print "Reading $file. <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	861	953	
==>* &gen_from_enum(pmctypes.pasm) subst(s/enum_class_(\\w+)/\$1/e) */
enum {
END_H

    my @pmc <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	7375	7549	
==>ne of instruction or pir is allowed in rule " .
                    "$rule->{'name'}\n";
            } else {
                $has_trans = 1;
            }
        }

		# type <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649715	649885	
==>"i",
                              "kc"
                            ],
                  "BODY" => "#line 234 \"src/ops/pmc.ops\"\n    {{\@1}} = pmc_type_p(interpreter, {{ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	33451	33553	
==>_set_cdr_bang,
  # Not adding caar/cadr/cdar/whatever
  'null?'    => \&_op_null_p,
  'list?'    => \&_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	40583	40713	
==>erve';
        push @$para, join "\n", splice(@$para, 2) if @$para > 3;
        
      } else {
        die "\$para type is $para_t <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	14273	14366	
==>e").

=item $Code2USASCII{I<integer>}

This maps from US-ASCII codes (like 32) to the correspo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034672	1034965	
==>n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_lex",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035835	1036128	
==>n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_lex",
                  " <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	311	403	
==>s";

package Jako::Construct::Declaration::Constant;

use Carp;

use base qw(Jako::Construct: <==
3	/Users/nnunley/parrot/config/auto/memalign.pm	710	826	
==>self->set_result('skipped');
        return $self;
    }

    if (defined $conf->data->get('memalign')) {
        # a <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2448	2548	
==>the stack.
	for (1..$pushes) {
		$pir .= <<'PIR';
${INS} = concat "push s, "
${INS} = concat ${DEST$p <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	5978	6065	
==>ot targets)

sub accept_directive_as_verbatim  { shift->_accept_directives('Verbatim', @ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9381	9519	
==>ue> <op> <value>) {
    #
    #   <label>: while (<value> <op> <value>) {
    #            while (<value> <op> <value>) {
    #
 
    if ($ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	100	202	
==>od::Simple::PullParserToken');
use strict;

sub new {  # Class->new(tagname);
  my $class = shift;
  re <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32043	32151	
==>' . $self->{"pattern"} . '"; 1 } and
		     substr($text,0,length($_tok)) eq $_tok and
		     do { substr($te <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13754	13858	
==>if ($item =~ /^[INS]/) {
    $self->_add_inst ('', 'set', [$return,0]);
  }
  else {
    $self->_add_inst <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	7799	7900	
==>$t-1]:undef),
			$foo[$t], 
			(($t+1 <= $#foo)?$foo[$t+1]:undef) );
		if ($this->[0] eq '-' and $this <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	21543	21780	
==>imc | past ) # match and capture the extension
                                                 \z                          # at end of string
                                               }ixms or Usage();
            if ( defined $exte <==
3	/Users/nnunley/parrot/languages/converter.pl	2070	2172	
==>}
		{ $item[1] . ::modifier($item[2]) }

mod		: '*' | '+' | '?'

_EOF_

my $parser = Parse::RecDescent- <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4175	4273	
==>n, 1);

    goto &Parrot::Test::pir_output_like;
}


package Parrot::Test::PGE;

sub _parrot_string <==
3	/Users/nnunley/parrot/tools/dev/symlink.pl	2499	2608	
==>: unlink $dstfile failed: $!\n";
		    }
		}
		unless (symlink($srcfile, $dstfile)) {
		    warn "$self: symli <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2629	2737	
==>n";
    ...
  }

=back

=head1 SEE ALSO

My subclasses:
L<Pod::Simple::PullParserStartToken>,
L<Pod::Simple:: <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	1174	1276	
==>LENO { ${ $_[0] } + 100 } # just to produce SOME number

sub CLOSE { 1 }

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3315	3423	
==>ke the test print the last line of output
        # XXX This should be "print the last command". Which is har <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4722	4830	
==>ke the test print the last line of output
        # XXX This should be "print the last command". Which is har <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	3131	3226	
==>emented in subclasses to return the run core C code for
section after the address table. C<$base <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615027	615226	
==>SS,\n            \"Class not parent of object\");\n    }\n    {{\@1}} = offset;\n    {{=next}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616178	616377	
==>SS,\n            \"Class not parent of object\");\n    }\n    {{\@1}} = offset;\n    {{=next}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1725	1830	
==>IR
}

# Post translation hook.
sub post_translation() {
	# Nothing to do.
	return "";
}

# Extra subroutin <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	765	870	
==>IR
}

# Post translation hook.
sub post_translation() {
	# Nothing to do.
	return "";
}

# Extra subroutin <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	522	627	
==>IR
}

# Post translation hook.
sub post_translation() {
	# Nothing to do.
	return "";
}

# Extra subroutin <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	9438	9534	
==>before the signature, (b) the name of the class, and
(c) a hash ref containing the flags associat <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327051	327135	
==>line 154 \"src/ops/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327853	327937	
==>line 154 \"src/ops/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765443	765684	
==>nline",
                  "CODE" => 864,
                  "ARGS" => [
                              "ic",
                              "nc"
                            ],
                  "BODY" => "#line 320 \"src/ops/set.ops\"\n    if ({ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2293	2387	
==>_decl($base)>

Optionally implemented in subclasses to return the C code for the run
core funct <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2744	2838	
==>_decl($base)>

Optionally implemented in subclasses to return the C code for the run
core funct <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206280	206508	
==>[
                              "p",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 394 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_inte <==
3	/Users/nnunley/parrot/config/init/manifest.pm	235	332	
==>check that the distribution is complete.

=cut

package init::manifest;

use strict;
use vars qw($ <==
3	/Users/nnunley/parrot/languages/converter.pl	533	633	
==>$/$1/ if $string=~/^"/;
  $string;
}

my $grammargrammar = <<'_EOF_';

rule		: /\w+/ '::=' production <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6622	6718	
==>, [$return,$pair]);
  $self->_restore($item, $pair);

  return $return;
}

sub _qq_unquote_splici <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	2702	2796	
==>nstep()> method.

Accepts a list and returns a L<Parrot::Configure> object.

=cut

sub add_step <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284866	285184	
==>, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285743	286061	
==>, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286620	286938	
==>, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt", <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	12047	12180	
==>($fail);
    my @ops;
    if (defined $name) {
        push @ops, "<rx_match>['$name'] = $uid";
    }
    return (@ops,
            "< <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7294	7404	
==>st_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If the register name to load from wa <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5116	5226	
==>st_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If the register name to load from wa <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	4245	4356	
==>xxx $f\n";
		my $args = $1;
		++$lambda_count;
		my @args = split(/,/, $args);
		my $n = @args;
		$arg_count{$f} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	2558	2653	
==>efs, and hashrefs, and strings.

This is a subclass of L<Pod::Simple> and inherits all its metho <==
3	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	773	859	
==>.pasm"
.include "tokenize.pasm"
.include "basicvar.pasm"
.include "basic.pasm"
.include <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490296	490527	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inc",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490917	491148	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inc",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	491538	491769	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inc",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	3673	3784	
==>" }
sub hasback { 0 }
sub dfa_safe { 0 }

# Superclass for ops like scan(R) that contain a single subexpression. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106266	1106347	
==>nterpreter->n_vtable_max)\n\treal_exception(interpreter, NULL, E_ValueError,\n\t\t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107242	1107323	
==>nterpreter->n_vtable_max)\n\treal_exception(interpreter, NULL, E_ValueError,\n\t\t <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19144	19279	
==>cname' => 106
		}
	},
	{#State 55
		ACTIONS => {
			"(" => 8,
			'NAME' => 4
		},
		GOTOS => {
			'functioncall' => 107,
			'v <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	20634	20782	
==>rior level, just in case.
                $builder->level($level);
            }
        }
    }

    # XXX this is broken WRT todo tests
    my %exa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50104	50194	
==>800 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_PROFI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50897	50987	
==>800 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_PROFI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	489353	489576	
==>ps/math.ops\"\n  {{\@1}} = (INTVAL)floor({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/config/auto/pack.pm	573	684	
==>pack().
    # The ! modifier only works for perl 5.6.x or greater.
    #

    my $intsize  = $conf->data->get('i <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	5104	5201	
==>afe in perl 5.8.0 and up.

=head1 HISTORY

This module was conceived while talking with Tony Bowde <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1165	1271	
==>{
    my ($self, $label) = @_;
    return () unless $self->{DEBUG};
    return () unless $self->{DEBUG_SUPP <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	655	761	
==>{
    my ($self, $label) = @_;
    return () unless $self->{DEBUG};
    return () unless $self->{DEBUG_SUPP <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23465	23580	
==>'__'; }

sub new ($$$;$)
{
	my $class = ref($_[0]) || $_[0];
	bless 
	{
		"lookahead" => $_[1],
		"line"      => $_[ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21565	21660	
==>$label = $self->_gensym();

  $return = $self->_constant(1);
  my $temp = $self->_generate($node <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21950	22045	
==>$label = $self->_gensym();

  $return = $self->_constant(1);
  my $temp = $self->_generate($node <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647569	647804	
==>@1}} = pmc_type(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648330	648565	
==>@1}} = pmc_type(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1673	1771	
==>pe");
    $compiler->emit("  $temp_pmc = global \"$ident_name\"");
    $compiler->emit("  $temp_reg <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2284	2389	
==>t_par(-3) }
sub end_head3       { $_[0]->emit_par(-2) }
sub end_head4       { $_[0]->emit_par(-1) }
sub en <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1852	1957	
==>t_par(-3) }
sub end_head3       { $_[0]->emit_par(-2) }
sub end_head4       { $_[0]->emit_par(-1) }
sub en <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	1125	1217	
==>populate metafields.
my $pir = generate_initial_pir($srm, \@rules, $metavars);

# Emit transl <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	10495	10610	
==>_containers{'VerbatimFormatted'} = 1;
  }

  my $token_count = 0;
  my $title;
  my @to_unget;
  my $state = 0;
  my <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2550	2646	
==>otherwise. Also, putting a label everywhere doesn't hurt the final
	# Parrot bytecode that is pro <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1128	1224	
==>otherwise. Also, putting a label everywhere doesn't hurt the final
	# Parrot bytecode that is pro <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22121	22255	
==>uncbody' => 122
		}
	},
	{#State 71
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27 <==
3	/Users/nnunley/parrot/languages/regex/test.pl	438	529	
==>t names
my $PARROT_EXE = catfile(catdir($FindBin::Bin, updir(), updir()), "parrot");

sub us <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18376	18484	
==>_op_inexact_p {
}

sub _op_eq {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $re <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	66735	66839	
==>}
				elsif ($grammar =~ m/$BADREP/gco)
				{
					_parse("an subrule match with invalid repetition speci <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3140	3237	
==>ref)
string scalar.  So you can test C<ref($node)> to see whather you have
an element node or just <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253094	253390	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253956	254252	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254819	255115	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	6169	6275	
==>", $api, $API{$api};
    }
}

if (@UnParrotAPI) {
    printf "--- No Parrot API: %d ---\n", scalar @UnParro <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10016	10114	
==>a->get('slash');
    my $verbose = $conf->options->get('verbose');

    if (defined($_[0]) && lengt <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10597	10695	
==>a->get('slash');
    my $verbose = $conf->options->get('verbose');

    if (defined($_[0]) && lengt <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	690562	690887	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "thaw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691318	691643	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "thaw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10195	10290	
==>allback{0xA0 .. 0xFF} = (
# Copied from Text/Unidecode/x00.pm:

' ', qq{!}, qq{C/}, 'PS', qq{\$? <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	28653	28757	
==>ename($_);
			$_=~s/\$/_string/g; 
			push @{$code{$seg}->{code}}, qq{\t.param $t $_\n};
			push @{$code{ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19193	19295	
==>RESSION();
		$false=qq{""} if $type eq "S";
		if ($which eq "while") {
			$_="@code ne $result, $false, <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	6960	7061	
==>int "not " unless $cond;
    say "ok ", $Test::num_of_tests_run, $out, $context_out;

    Test::report <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8523	8630	
==>n it is up to the SRM to do the store.
	# Otherwise, there's nothing to do here.
	if ($dest_reg) {
		$pir .= <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6343	6450	
==>n it is up to the SRM to do the store.
	# Otherwise, there's nothing to do here.
	if ($dest_reg) {
		$pir .= <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5258	5365	
==>n it is up to the SRM to do the store.
	# Otherwise, there's nothing to do here.
	if ($dest_reg) {
		$pir .= <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	6442	6544	
==>{\n";
    print SOURCE $trans->run_core_func_start;
}

#
# Iterate over the ops, appending HEADER and S <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4943	5034	
==>ror,$token,$value,$stack,$check,$dotpos)
     = @$self{ 'ERRST', 'NBERR', 'TOKEN', 'VALUE', <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4701	4791	
==>ror,$token,$value,$stack,$check,$dotpos)
     = @$self{ 'ERRST', 'NBERR', 'TOKEN', 'VALUE', <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	15153	15289	
==>d end for:
  #                   directivename (like head1 .. head4), item, extend,
  #                   for (from =begin...=end, =for), <==
3	/Users/nnunley/parrot/languages/regex/test.pl	2147	2275	
==>{
        $testfile = $_;
    } else {
        usage "too many args!";
    }
}

usage "not enough args: testfile required"
  if ! <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9680	9800	
==>bel) {
        $prefix = $last_token->text;
      }

      $self->require_open_paren;

      my $left  = Jako::Construct: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114823	115100	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115677	115954	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116532	116809	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327139	327392	
==>1}}, (INTVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327941	328194	
==>1}}, (INTVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
3	/Users/nnunley/parrot/config/auto/jit.pm	888	994	
==>sources
    my $archname = $Config{archname};
    my ($cpuarch, $osname) = split(/-/, $archname);

    if ( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1612	1724	
==>ion involves undefined type name!")
    unless defined $type_name;

  #
  # Lookup the identifier:
  #

  my $sym <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106308	1106400	
==>n(interpreter, NULL, E_ValueError,\n\t\t\"type number out of range\");\n    {{\@1}} = interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107284	1107376	
==>n(interpreter, NULL, E_ValueError,\n\t\t\"type number out of range\");\n    {{\@1}} = interpr <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	18775	18900	
==>y (undef, $c, $cmt) = @_;
    my $t = pop @stack;
    my $n = temp('P');
    my $p = $t->[1];
    print <<EOC;
	$n = new $DEFV <==
3	/Users/nnunley/parrot/lib/Test/More.pm	8391	8495	
==>ind out if something is
true or false!

  # XXX BAD!
  is( exists $brooklyn{tree}, 1, 'A tree grows in Br <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	9400	9499	
==>nc = "${bs}op_func_table";
    print SOURCE <<END_C;

INTVAL ${bs}numops${suffix} = $num_ops;

/*
** <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	6516	6623	
==>n/../..";
use lib "$FindBin::Bin/../../lib";
use Parrot::Vtable;
use Parrot::Pmc2c qw(count_newlines);
use P <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	175	278	
==>l - Run coverage tests and report

=head1 SYNOPSIS

    % mkdir parrot_coverage
    % perl tools/dev/par <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	8837	8924	
==>ot::Docs::Directory>

=item C<Parrot::Docs::POD2HTML>

=item C<Pod::Simple::Checker>

=b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037047	1037335	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037827	1038115	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038608	1038896	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIR <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	532	647	
==>][0] eq 'text'  }

1;
__END__

sub dump { '[' . _esc( @{ $_[0] } ) . ']' }

# JUNK:

sub _esc {
  return '' unless @ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	608	714	
==>) {
    $prefix = $self->prefix;
  }
  else {
    $prefix = $self->peer ? $peer->prefix : $compiler->block_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	588	694	
==>) {
    $prefix = $self->prefix;
  }
  else {
    $prefix = $self->peer ? $peer->prefix : $compiler->block_ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	40156	40319	
==>ult} eq 'break' ) {
                    $parser->Error("no loop to break\n");
                }
            }
        }
        unshift @{ $parser->YYData->{fu <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39083	39226	
==>ult} eq 'break' ) {
                $parser->Error("no loop to break\n");
            }
        }
    }
    unshift @{ $parser->YYData->{fu <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77236	77343	
==>xt = '';
my $lastrulename = '';

sub _trace($;$$)
{
	$tracemsg      = $_[0];
	$tracecontext  = $_[1]||$lastc <==
3	/Users/nnunley/parrot/tools/dev/cc_flags.pl	1753	1856	
==>RGV, $where, 1;
  $inject_point = $where;
} else {
  $inject_point = 1;
}

foreach my $option (@options) <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1276	1362	
==>e(...)

=item $token->is_tag(I<somestring>) or $token->is_tagname(I<somestring>)

These <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1706	1792	
==>e(...)

=item $token->is_tag(I<somestring>) or $token->is_tagname(I<somestring>)

These <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	20264	20399	
==>ng'} = '!';
          DEBUG > 2 and print " But the leading ! means that this IS a match!\n";
        }
      }

      $para->[0] = '=fo <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	604	728	
==>, like bison or yacc?";
@args        = qw( yacc ask maintainer );

sub runstep
{
    my ($self, $conf) = @_;
    
    my $ver <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	73361	73452	
==>offsetlinenum} = $_[0]->{lastlinenum};
	$_[0]->{fulltext} = $text;
	$_[0]->{fulltextlen} = l <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	23075	23201	
==>esult,
    );
    return [ $result, \@opcodes ];
}

sub BuildLogop {
    my ( $parser, $expr1, $op, $expr2 ) = @_;
    m <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2475	2557	
==>xamples/mops/mops.il>,
F<examples/mops/mops.p6>,
F<examples/mops/mops.ps>,
F<exampl <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	2475	2557	
==>xamples/mops/mops.il>,
F<examples/mops/mops.p6>,
F<examples/mops/mops.ps>,
F<exampl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2740	2855	
==>ft->{TYPE};     }

sub name
{
  my $self = shift;
  my $name = $self->{NAME};

  return $name;
}

sub props { return <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	33389	33683	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set_addr",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	34177	34471	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set_addr",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	5576	5681	
==>lf = shift @params;
	#shift @{$def_args{$arg}};
	$arg_count{$arg}--;
    }

    $params = join("\n\t", map <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3938	4052	
==>oup")
          or die "compile $group.c failed ($?)\n";
    }
} 
elsif ($mode eq 'linklibs') {
    my ($group_file <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4042	4156	
==>oup")
          or die "compile $group.c failed ($?)\n";
    }
} 
elsif ($mode eq 'linklibs') {
    my ($group_file <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	6270	6366	
==>}

    runops(interpreter, 0);
/*
    run_compiled(interpreter, (opcode_t *)program_code, (opcode <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	2830	2942	
==>em('', 'tools/dev/symlink.pl'),
        ),
        $self->new_group('Testing', '',
            $self->new_item('' <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	252	348	
==>RIPTION

C<Parrot::OpsFile> takes one or more files of op functions and
creates real C code for t <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	25387	25516	
==>1 and
       print "Skipping $para_type paragraph because in ignore mode.\n";
      next;
    }
    #~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11471	11577	
==>put_match_succeeded(),
            ".return (<rx_match>)");
}

sub output_rule_fail {
    my ($self, $name) <==
3	/Users/nnunley/parrot/config/auto/pack.pm	22	110	
==>003, The Perl Foundation.
# $Id: /parrot/config/auto/pack.pm 19593 2006-05-30T02:28:15.11 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	370961	371204	
==>",
                  "CODE" => 434,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 353 \"src/ops/io.ops\"\n    PMC * const pio <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10918	11021	
==>s.html";
    print "Writing $outfile..\n" if $DEBUG;
    open (IN, "<$infile") or die "Can't read $infil <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11402	11505	
==>s.html";
    print "Writing $outfile..\n" if $DEBUG;
    open (IN, "<$infile") or die "Can't read $infil <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11866	11969	
==>s.html";
    print "Writing $outfile..\n" if $DEBUG;
    open (IN, "<$infile") or die "Can't read $infil <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52313	52531	
==>> "inline",
                  "CODE" => 67,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 815 \"src/ops/core.ops\"\n  if ({{\@1}} != 0 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	801	900	
==>urce;
  $self->set_source($source);
  $self->output_fh(*STDOUT{IO});

  $self->run; # define run() i <==
3	/Users/nnunley/parrot/lib/Test/More.pm	19934	20031	
==>here are, $why and under what $condition to skip them.  An example is
the easiest way to illustrat <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19729	19866	
==>28
		}
	},
	{#State 57
		ACTIONS => {
			'NAME' => 4,
			'REPEAT' => 5,
			'BREAK' => 110,
			'FOR' => 6,
			"(" => 8,
			'RETUR <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1561	1656	
==>postfix', name => '++' } });
  $self->ident->sax($handler);
  $handler->end_element({ Name => 'o <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	8095	8184	
==>ake_const($class) if $self->{flags}{const_too};

}

=item C<decl($classname, $method, $for <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882282	882580	
==>ne",
                  "CODE" => 999,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204372	204622	
==>> 241,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 380 \"src/ops/cmp.ops\"\n  if (string_comp <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16565	16697	
==>' => 35,
			'_field_plus' => 93,
			'field' => 89
		}
	},
	{#State 39
		DEFAULT => -81
	},
	{#State 40
		ACTIONS => {
			"- <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6812	6945	
==>hile ( 1 )
    {
        push @to_unget, $self->get_token;
        
        last if $to_unget[-1]->is_end
            and $to_unget[-1 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	6518	6641	
==>hile(1) {
          push @to_unget, $self->get_token;
          last if $to_unget[-1]->is_end
              and $to_unget[-1 <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	2940	3055	
==>rg;
        }
	push @{$opcodes{$pc}->{args}}, @args;

        $src = $op->full_body();

	# The regexes here correspo <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30414	30569	
==>para->[1]{'start_line'}
              . ") unless the first thing after the =over is an =item"
            );
          }
          # Just turn it into a pa <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	576	711	
==>lapsed time, and 

=item * the number of M op/s.

=back

=cut

sub time_hires { time() }

$I2 = 0;                      # set    I2, 0
$ <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	579	713	
==>lapsed time, and

=item * the number of M op/s.

=back

=cut

sub time_hires { time() }

$I2 = 0;                      # set    I2, 0
$ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	22460	22568	
==>e'};
	push @localmv, 'CURIC';

	# Emit dispatch label.
	my $name = $rule->{'name'};
	$pir .= "    # Translati <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	23860	23964	
==>${I_ARG_$arg_num} = bc.read_int8()\n    next_pc += 1\n";
			$arg_name = "I_ARG_$arg_num";
		}

		# uint16 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11552	11634	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub unicod <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7437	7541	
==>to 100, 200, 300
print "No match\n"
FIN:
for i = 1 to 3
	on i gosub oats, peas, beans
next i
print
end
10 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19720	19824	
==>to 100, 200, 300
print "No match\n"
FIN:
for i = 1 to 3
	on i gosub oats, peas, beans
next i
print
end
10 <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	21862	21963	
==>rithm implemented iteratively!  Whee!
  
  my($is, $was, $i, $treelet); # scratch
  while($treelet = s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85965	86342	
==>=> "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 107,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6166	6272	
==>up_libs{$group}->{lib} = 1;
        }
    }

    return (\%group_files, \%group_libs, \%pmc_group, \%pmc_li <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6377	6483	
==>up_libs{$group}->{lib} = 1;
        }
    }

    return (\%group_files, \%group_libs, \%pmc_group, \%pmc_li <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035794	1036058	
==>lex_name);\n    }\n    {{\@1}} = result;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036958	1037222	
==>lex_name);\n    }\n    {{\@1}} = result;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	785	892	
==>mment;
}

sub output_classmatch {
    my ($self, $class) = @_;
    return "re_match_class P0, $class";
}

su <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862511	862742	
==>ring_length(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863280	863511	
==>ring_length(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32632	32734	
==>';

=item C<implements($method)>

Always true for vtables.

=cut

sub implements
{
    my ($self, $meth <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1183	1277	
==>t.
You probably won't need to do this.

=item $token->tag(...)

A shortcut for $token->tagname( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1613	1707	
==>t.
You probably won't need
to do this.

=item $token->tag(...)

A shortcut for $token->tagname( <==
3	/Users/nnunley/parrot/config/inter/libparrot.pm	1487	1629	
==>,
    );                       

    $conf->data->set(
        rpath_blib => ($parrot_is_shared && $conf->data->get('rpath'))
        ? $c <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	24510	24647	
==>w_fh {
    my($file_or_fh) = shift;

    my $fh;
    if( _is_fh($file_or_fh) ) {
        $fh = $file_or_fh;
    }
    else {
        $fh = <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	287	382	
==>on section describing libraries in Parrot.

=head2 Class Methods

=over

=cut

package Parrot::D <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16180	16315	
==>Y' ) {
        $result = $idf->[0];
        push @opcodes, @{ $idf->[1] };
    }
    else {
        my $defn = $parser->YYData->{sy <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826676	826769	
==>R_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_num(entry->entry);\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827746	827839	
==>R_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_num(entry->entry);\n  {{ <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	1712	1855	
==>_;
    }
    else {
        $base_type = 'ARRAY';
        $class = (caller())[0];
        @decls = @_;
    }

    _usage_error() if @decls % 2 = <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23412	23511	
==>>{hashname} = '__DIRECTIVE' . ++$_[1]->{dircount} .  '__'; }

sub new ($$$;$)
{
	my $class = ref($_[ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	371559	371652	
==>ULL, PIO_ERROR,\n\t\t\"Cannot read line from empty filehandle\");\n\n    if (!(io->flags & PIO <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	784	883	
==>es.h
    include/parrot/stat.h
    include/parrot/string.h
    include/parrot/vtable.h
    include/p <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	58174	58270	
==>routine takes a single (string) argument and
   > builds a Friedl-style optimized regex that matc <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32504	32599	
==>Methods

C<SharedRef> is like C<Ref> but with locking.

=over 4

=cut

package Parrot::Pmc2c::Sh <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2048	2153	
==>print "Checking $file..\n";
    trim_whitespace($file, $source);

    # The following MUST apply.
    chec <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	14333	14436	
==>_info_table */
  $op_func,		/* op_func_table */
  $getop		/* op_code() */
};

END_C

# generate initfunc <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	4926	5025	
==>xport {
    Test::proclaim(1, "", "skip $reason", :$depends);
}

multi sub skip (Int $count, Str $re <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4172	4274	
==>s';

			exists(${__PACKAGE__.'::'}{_DBParse})#Already loaded ?
		and	return;
	}
	my($fname)=__FILE <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3959	4056	
==>s';

			exists(${__PACKAGE__.'::'}{_DBParse})#Already loaded ?
		and	return;
	}
	my($fname)=__FILE <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1846	1935	
==>leTree -MData::Dumper -e \
     "print Dumper(Pod::Simple::SimpleTree->new->parse_file(shi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407668	407842	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "connect",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408566	408740	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "connect",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34527	34631	
==>n_ret );

=item C<implements($method)>

Always true.

=cut

sub implements
{
    return 1;
}

=item C<bod <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965630	965911	
==>86,
                  "ARGS" => [
                              "i",
                              "ic",
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Pa <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	898	1022	
==>'"',
        make_c            => '$(PERL) -e "chdir shift @ARGV; system \'$(MAKE)\', @ARGV; exit $$? >> 8;"',
        ncilib <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4649	4763	
==>my $self = shift;
	my $pops = shift;
	my $register_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3065	3179	
==>my $self = shift;
	my $pops = shift;
	my $register_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222697	222960	
==>, {{\@2}}, MMD_CMP) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948923	949197	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_char <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949723	949997	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_char <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11287	11390	
==>terpreter
    s/SELF/pmc/g;
    s/\bINTERP\b/interpreter/g;

    return $_;
}

=item C<rewrite_vtable_me <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093112	1093410	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "morph",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093914	1094212	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "morph",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27100	27214	
==>delim"};
	my $rdel = $self->{"rdelim"};
	my $sdel = $ldel;
	my $mod  = $self->{"mod"};

	$sdel =~ s/[[{(<]/{}/;
	
m <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	10824	10954	
==>15px; }
    dt    { font-weight: bold; }
    dd+dt { margin-top:  1em;  }
    .leftsep  { padding-left: 10px;  }
    .num      { te <==
3	/Users/nnunley/parrot/config/auto/headers.pm	1009	1113	
==>-for by perl 5, or might not be
    # properly reflected in %Config (i_fcntl seems to be wrong on my mach <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	7095	7190	
==>over the whole string
until no more substitutions can be made.

C<VTABLE_> macros are enforced b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636351	636770	
==>RGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 712,
                  "ARGS" => [
                              "p",
                              "i",
                              "sc"
                            ],
                  "BO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862518	862769	
==>ngth(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863287	863538	
==>ngth(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	11102	11242	
==>ndings( $expected );

            # set up default description
            unless ( $desc ) {
               (undef, my $file, my $line) = ca <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	16587	16727	
==>ndings( $expected );

            # set up default description
            unless ( $desc ) {
               (undef, my $file, my $line) = ca <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218894	219166	
==>\@2}}) > 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219873	220145	
==>\@2}}) > 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/config/inter/encoding.pm	181	279	
==>iles

=head1 DESCRIPTION

Asks the user to select which encoding files to include.

=cut

package i <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	1369	1488	
==>sw/lib');
            $conf->data->add(' ', ldflags   => '-L/sw/lib');
            $conf->data->add(' ', ccflags   => '- <==
3	/Users/nnunley/parrot/config/auto/readline.pm	1458	1577	
==>sw/lib');
            $conf->data->add(' ', ldflags   => '-L/sw/lib');
            $conf->data->add(' ', ccflags   => '- <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	68029	68147	
==>med action encountered",
			       $line);
			_hint("Did you forget the closing curly bracket
			       or is there a s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	509	599	
==>s not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Ident (" . ref <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670624	670714	
==>/ops/pmc.ops\"\n    {{\@1}}->vtable->push_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671397	671487	
==>/ops/pmc.ops\"\n    {{\@1}}->vtable->push_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10666	10774	
==>x::Ops::Tree::charclass::render {
    die;
}

sub Regex::Ops::Tree::classpieces::render {
    die;
}

sub Reg <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1180	1273	
==>$out_f);
        $pass =$self->{builder}->is_eq( Parrot::Test::slurp_file($out_f), $output, $d <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1221	1314	
==>$out_f);
        $pass =$self->{builder}->is_eq( Parrot::Test::slurp_file($out_f), $output, $d <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6993	7109	
==>sub compile {
    my ($src_stem, $dest_stem) = @_;

    $dest_stem ||= $src_stem;
    if (needs_build("$dest_stem$O", <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5287	5403	
==>sub compile {
    my ($src_stem, $dest_stem) = @_;

    $dest_stem ||= $src_stem;
    if (needs_build("$dest_stem$O", <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7204	7320	
==>sub compile {
    my ($src_stem, $dest_stem) = @_;

    $dest_stem ||= $src_stem;
    if (needs_build("$dest_stem$O", <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1725	1832	
==>own variable %s.", $dest->value) unless $dest_sym;
  my $dest_type = $dest_sym->type;

  my $left_type;
  if <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1683	1790	
==>own variable %s.", $dest->value) unless $dest_sym;
  my $dest_type = $dest_sym->type;

  my $left_type;
  if <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1605	1712	
==>own variable %s.", $dest->value) unless $dest_sym;
  my $dest_type = $dest_sym->type;

  my $left_type;
  if <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735544	735917	
==>_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 826,
                  "ARGS" => [
                              "n",
                              "nc"
                            ],
                  "BOD <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5624	5727	
==>${LOADREG}
${INS} = concat "\n"
PIR
	}

	return $pir;
}

# Pre and post store operation hooks.
sub pre_s <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4466	4569	
==>${LOADREG}
${INS} = concat "\n"
PIR
	}

	return $pir;
}

# Pre and post store operation hooks.
sub pre_s <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	359	454	
==>ir($dynamic_dir);

print <<"END_PIR";

.HLL 'tcl', 'tcl_group'
.namespace ['']

END_PIR

print " <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	14968	15114	
==>onds
    });

    struct( timeval => [
        tv_secs  => '$',
        tv_usecs => '$',
    ]);

        # create an object:
    my $t = new rusag <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1984	2084	
==>ock->find_symbol($self->name);

  #
  # If the identifier is already defined at this lexical scope, w <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1731	1831	
==>ock->find_symbol($self->name);

  #
  # If the identifier is already defined at this lexical scope, w <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920643	920997	
==>"i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1036,
                  "ARGS" => [
                              "s",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 316 \"s <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5769	5887	
==>my %libs = %{ $class->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There should be at most a sing <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5980	6098	
==>my %libs = %{ $class->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There should be at most a sing <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031592	1031863	
==>first_type].size;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032461	1032732	
==>first_type].size;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	722	822	
==>ecifc ones.

my %type_for_suffix = (
	'BASIC' => 'README file',
	'C' => 'C code',
	'Log' => 'SVN Entr <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1010	1168	
==>CD => $self->{relpath},
                                           STDOUT => $out_f, STDERR => $out_f );
    unless ($pass) {
        my $file = Parrot::Test:: <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1051	1209	
==>CD => $self->{relpath},
                                           STDOUT => $out_f, STDERR => $out_f );
    unless ($pass) {
        my $file = Parrot::Test:: <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2102	2225	
==>CD => $self->{relpath},
					   STDOUT => $out_f, STDERR => $out_f);
  
    unless ($pass) {
      my $file = Parrot::Test:: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1075	1174	
==>a($left, 'Jako::Construct::Expression::Value');
  confess "Right is not Value!" if defined $right an <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1103	1202	
==>a($left, 'Jako::Construct::Expression::Value');
  confess "Right is not Value!" if defined $right an <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	775	874	
==>a($left, 'Jako::Construct::Expression::Value');
  confess "Right is not Value!" if defined $right an <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1350	1607	
==>time N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_h <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	1350	1607	
==>time N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_h <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	19695	19809	
==>,
	'<=' => 'le',
	'is' => 'eq_addr',
	'is not' => 'ne_addr',
    );
    my $op = $rev_map{$c};
    my ($opcode, $re <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	2503	2600	
==>escription)>

Runs the PAST code and passes the test if a string comparison of output
with the exp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756705	756789	
==>line 271 \"src/ops/set.ops\"\n  {{\@1}}->vtable->assign_string_native(interpreter, {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757495	757579	
==>line 271 \"src/ops/set.ops\"\n  {{\@1}}->vtable->assign_string_native(interpreter, {{ <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2731	2846	
==>^Creating (.*)\./) {
            my $path = "$dirname/$1";
            rename($1, "$dirname/$1") or die("Couldn't re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035730	1035825	
==>rpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    {{\@1}} = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036894	1036989	
==>rpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    {{\@1}} = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162000	162146	
==>ic"
                            ],
                  "BODY" => "#line 183 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162897	163043	
==>ic"
                            ],
                  "BODY" => "#line 183 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163794	163940	
==>ic"
                            ],
                  "BODY" => "#line 183 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983983	984313	
==>=> "inline",
                  "CODE" => 1103,
                  "ARGS" => [
                              "i",
                              "i",
                              "sc",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	97549	97787	
==>"LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnot",
                  "FLAGS" => ":base_cor <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	98948	99186	
==>"LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnot",
                  "FLAGS" => ":base_cor <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556558	556652	
==>> "#line 115 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94951	95041	
==>t.ops\"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95844	95934	
==>t.ops\"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96737	96827	
==>t.ops\"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686458	686631	
==>{{\@3}}->vtable->getprop(interpreter, {{\@3}}, {{\@2}});\n   {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687348	687521	
==>{{\@3}}->vtable->getprop(interpreter, {{\@3}}, {{\@2}});\n   {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	191	304	
==>y $ind = 0;
sub _build_tree {
  my ($tokens,$count) = @_;
  my $temp   = {};

  die "EOF reached" if $count >= $#$ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	309	404	
==>ibing IMCC.

=head2 Class Methods

=over

=cut

package Parrot::Docs::Section::IMCC;

use strict <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35645	35750	
==>ill exit with zero (which is
normal).  If anything failed it will exit with how many failed.  If
you run l <==
3	/Users/nnunley/parrot/lib/Test/More.pm	33716	33821	
==>ill exit with zero (which is
normal).  If anything failed it will exit with how many failed.  If
you run l <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2512	2617	
==>ill exit with zero (which is
normal).  If anything failed it will exit with how many failed.  If
you run l <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	736	840	
==>uadebug.pir"

.sub __start :main
#  print "start Lua\n"
  init_basic()
  init_coroutine()
  init_pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680259	680684	
==>=> "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 763,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 4 <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	5893	6027	
==>md eq 'skip_all' ) {
        return $self->skip_all($arg);
    }
    elsif( $cmd eq 'tests' ) {
        if( $arg ) {
            return <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1588	1708	
==>ct::Block::File->new(
    undef,  # No parent
    'file', # File scope
    undef,  # No return type
    undef   # No pref <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553925	554036	
==>\n  next = {{^+4}};\n  interpreter->current_object = object;\n  interpreter->current_cont = {{\@3}};\n  interpre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555322	555433	
==>\n  next = {{^+4}};\n  interpreter->current_object = object;\n  interpreter->current_cont = {{\@3}};\n  interpre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556710	556821	
==>\n  next = {{^+4}};\n  interpreter->current_object = object;\n  interpreter->current_cont = {{\@3}};\n  interpre <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30054	30187	
==>ACTIONS => {
			"(" => 48,
			"{" => 38,
			'STRING' => 44
		},
		GOTOS => {
			'tableconstructor' => 46,
			'args' => 149
		} <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30969	31096	
==>ACTIONS => {
			"(" => 48,
			"{" => 38,
			'STRING' => 44
		},
		GOTOS => {
			'tableconstructor' => 46,
			'args' => 15 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41039	41165	
==>ACTIONS => {
			"(" => 48,
			"{" => 38,
			'STRING' => 44
		},
		GOTOS => {
			'tableconstructor' => 46,
			'args' => 1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957617	957845	
==>t\"encoding '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958522	958750	
==>t\"encoding '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39880	40018	
==>ACTIONS => {
			"," => 151
		},
		DEFAULT => -30
	},
	{#State 166
		ACTIONS => {
			"-" => 72,
			"<" => 74,
			"%" => 76,
			"== <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58270	58628	
==>IRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 75,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 87 <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	11128	11229	
==>alanced($code);

    my $lineno  = 1 + count_newlines($pre);
    $classblock = substr($classblock, 1,- <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9417	9513	
==>$volume, $directories, $name) = File::Spec->splitpath($path);
    
    $path = File::Spec->catdir <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	14452	14565	
==>vtable>.

=cut

sub gen_super_meths {
    my ($self, $vt, $all) = @_;

    # look through all meths in class and l <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	1974	2070	
==>show_full = 0;
    GetOptions('plus-misses' => \$show_full)
	|| die ("Usage: $0 [--plus-misses] [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490183	490454	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inc",
                  "FLAGS" => ":base_co <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	6911	7060	
==>+) \s+ (.+)$/mx) {
            my @vars = split /\s*,\s*/, $2;
            
            $locals{$_} = 1 for @vars;
            $code .= inline("  .loc <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2389	2500	
==>= @_;
	my $pir = "";

	# Emit code to push stuff back onto the stack.
	for (1..$pushes) {
		$pir .= <<'PIR';
${I <==
3	/Users/nnunley/parrot/config/gen/icu.pm	1534	1654	
==>fig && $icuconfig ne "none") {
            my $slash = $conf->data->get('slash');

            # icu-config script to use <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	6016	6109	
==>erbatim  { shift->_accept_directives('Verbatim', @_) }
sub accept_directive_as_data      { shi <==
3	/Users/nnunley/parrot/tools/dev/symlink.pl	499	589	
==>::Spec->catfile($cwd, $self)
    unless File::Spec->file_name_is_absolute($self);

my $tool <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22465	22593	
==>!
      last;

    } elsif ($pattern =~ m{<head(\d)>(.+)</head\d>$}
      and !( $1 eq '1' and $2 eq 'NAME' )
    ) {
      # Wel <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	280972	281391	
==>"ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 327,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946362	946633	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_charset",
                  "FLAGS" => ":ba <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947263	947534	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_charset",
                  "FLAGS" => ":ba <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	29458	29582	
==>_lower_case_p {
}

sub _op_char_integer {
}

sub _op_integer_char {
}

sub _op_char_upcase {
}

sub _op_char_downcase {
}

su <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3102	3199	
==>"Jako::Symbol");
  confess "Extra arguments!" if @_;

  die "Redefinition of symbol '$name', which <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1679	1776	
==>ods, and will also inherit these methods:

=over

=item $token->type

This returns the type of the <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2261	2354	
==>check_function_definitions($file, $source);
    check_cuddled_else($file, $source);
    check_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852898	853162	
==>E" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853679	853943	
==>E" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	72826	72924	
==>rule ( values %{$self->{"rules"}} )
	{
		if ($rule->{"changed"})
		{
			$code .= $rule->code($self- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550071	550163	
==>= {{^+3}};\n  interpreter->current_object = object;\n  interpreter->current_cont = NEED_CONTI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551372	551464	
==>= {{^+3}};\n  interpreter->current_object = object;\n  interpreter->current_cont = NEED_CONTI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552714	552806	
==>= {{^+3}};\n  interpreter->current_object = object;\n  interpreter->current_cont = NEED_CONTI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651118	651492	
==>=> "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 728,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BOD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321601	321852	
==>eger(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323957	324208	
==>eger(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	453	551	
==>ct;
use warnings;

use Parrot::OpTrans;
use base qw( Parrot::OpTrans::C );

=item C<core_type()>

T <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8747	8843	
==>Get type of return value and build code to pop it.
${ITEMP1} = elements ${STYPES}
dec ${ITEMP1}
$ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7319	7415	
==>Get type of return value and build code to pop it.
${ITEMP1} = elements ${STYPES}
dec ${ITEMP1}
$ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6561	6680	
==>return 1 if modtime($source) > $target_mod;
    }

    return 0;
}

sub generate_dump {
    my ($pmc) = @_;

    if (nee <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6772	6891	
==>return 1 if modtime($source) > $target_mod;
    }

    return 0;
}

sub generate_dump {
    my ($pmc) = @_;

    if (nee <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	616	714	
==>ings;

use base qw( Pod::Simple::HTML );

# This is just here to keep Pod::Simple::HTML's version_t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111723	112145	
==>S" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 139,
                  "ARGS" => [
                              "s",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#l <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	24918	25039	
==>$ar;
    }
    my $rett = 'P';
    if ($tos->[2] eq 'o') {	# builtin opcode
	$t = temp('P');
	print <<EOC;
	$t = new $DEFV <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	7073	7189	
==>($next);
        $self->{'rtfkeep'} = ($line_count > 15) ? '' : '\keepn' ;     

      } elsif( $tagname =~ m/^item-/ <==
3	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	480	595	
==>mple usage.

=cut

use strict;

my $Verbose = 0;
if ($ARGV[0] eq '-v') {
    shift;
    $Verbose = 1;
}

my ($comman <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27251	27347	
==>e_translate_code, $mv, "pre-translate for $rule->{'name'}");

		# If we have PIR for the instruct <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34390	34486	
==>e_translate_code, $mv, "pre-translate for $rule->{'name'}");

		# If we have PIR for the instruct <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	7042	7239	
==>' ) {
                print {$FH} " :flat";
            }
            $first = 0;
        }
        print {$FH} ")\n";
    }

    sub visitBranchIfOp {
        my $self = shift;
        my <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7098	7205	
==>rn @ops;
}

sub output_pushindex {
    my ($self, $reg) = @_;
    $reg = value(defined($reg) ? $reg : 'pos') <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6740	6847	
==>rn @ops;
}

sub output_pushindex {
    my ($self, $reg) = @_;
    $reg = value(defined($reg) ? $reg : 'pos') <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9978	10075	
==>ed to be first to last in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES} <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7492	7589	
==>ed to be first to last in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES} <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6456	6553	
==>ed to be first to last in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	25417	25554	
==>para_type paragraph because in ignore mode.\n";
      next;
    }
    #~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	1165	1278	
==>)
##
## Convert the tests to a usable form.
##
sub convert_tests {
    print "Converting tests\n";
    my @files = <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	4126	4224	
==>GC_DEBUG_VERSION
#endif

HEADER

# currently unused true const strings
sub output_string {
  my ($t <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19176	19272	
==>eck => aop('lt', [ $matchcount, $min, $local_back ]),
      $next => $self->op_save_rxlocals($op) <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20766	20862	
==>eck => aop('lt', [ $matchcount, $min, $local_back ]),
      $next => $self->op_save_rxlocals($op) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553671	553842	
==>",
                              "p"
                            ],
                  "BODY" => "#line 94 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *obj <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555068	555239	
==>",
                              "p"
                            ],
                  "BODY" => "#line 94 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *obj <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	20338	20459	
==>/;
		}
		else
		{
			$ldel2 = $rdel2 = $ldel1;
		}
		$str2pos = $ld2pos+1;

		if ($ldel2 =~ /[[(<{]/)
		{
			pos($$textref <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	2687	2839	
==>lace_slashes                      => 1,
        conditioned_lines                    => 1
    );
    genfile(
        'config/gen/makefiles/dynoplibs.in' <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	11288	11438	
==>line)";
            }

            # $test_no will be part of temporary file
            my $test_no = $builder->current_test() + 1;

            # Nam <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	16773	16923	
==>line)";
            }

            # $test_no will be part of temporary file
            my $test_no = $builder->current_test() + 1;

            # Nam <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	148	257	
==>s::mswin32;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    my ($cc, $ccflags, $libs) = $conf->da <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	16671	16779	
==>ara];

  if($content =~ m/^\s*\*\s*$/s or $content =~ m/^\s*$/s) {
    # Like: "=item *", "=item   *   ", "=i <==
3	/Users/nnunley/parrot/lib/Test/More.pm	19630	19729	
==>Basically, a
block of tests which can be skipped over or made todo.  It's best if I
just show you... <==
3	/Users/nnunley/parrot/Configure.pl	7121	7240	
==>sing a system ICU, these options can be used:

   --icu-config=/path/to/icu-config
                        Location of t <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	681	774	
==>l Arithmetic', '',
			$self->new_item('', 'src/bignum.c', 'src/bignum.h'),
		),
		$self->new_g <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	3086	3170	
==>ERSAL::isa($left_type, 'Jako::Construct::Type::String');
  $self->SYNTAX_ERROR("Can't <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13504	13631	
==>self->pop_block;

      #
      # 'while' blocks:
      #
      # When we are ending the 'while' block, we might be beginning th <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10818	10925	
==>$class)=shift;
        ref($class)
    and $class=ref($class);

    my($self)=$class->SUPER::new( yyvers <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11818	11921	
==>$class)=shift;
        ref($class)
    and $class=ref($class);

    my($self)=$class->SUPER::new( yyvers <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7000	7122	
==>$value);

      foreach my $ident (@identifiers) {
        if ($access eq 'var') {
          my $var    = Jako::Construct:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429243	429683	
==>,
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 493,
                  "ARGS" => [
                              "ic",
                              "p",
                              "s"
                            ],
                  "BOD <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	3399	3505	
==>ew $pmc_type");
    $compiler->emit("  global \"$name\" = $reg");
  }
  else {
    $compiler->emit("  .loca <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	103	200	
==>ckage Parrot::Test::M4::PIR;

use strict;
use warnings;
use 5.006;

use base 'Parrot::Test::M4';
u <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	626790	627079	
==>"
                               ],
                  "TYPE" => "function",
                  "CODE" => 703,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 53 \"src/ops/pmc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	68117	68245	
==>DE" => 89,
                  "ARGS" => [],
                  "BODY" => "#line 1049 \"src/ops/core.ops\"\n  Parrot_block_DOD(inter <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2655	2762	
==>opcode_t *cur_opcode asm ("esi") = cur_op;
    register char *   _reg_base   asm ("edi");
#else
    opcode_t <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3224	3331	
==>opcode_t *cur_opcode asm ("esi") = cur_op;
    register char *   _reg_base   asm ("edi");
#else
    opcode_t <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	1488	1586	
==>rot's RT queue or to the mailing
list.

=cut

package Parrot::Test::Harness;

use strict;
use warni <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332795	333106	
==>\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdopen" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334073	334384	
==>\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdopen" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335351	335662	
==>\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdopen" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	316365	316605	
==>nv_u1_ovf\");\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
3	/Users/nnunley/parrot/config/inter/libparrot.pm	891	993	
==>hared);

    $parrot_is_shared = 0 unless $conf->data->get('has_dynamic_linking');

    if ($conf-> <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17355	17449	
==>ple::HTLM> large sections of its code
have been copied here, and then refactored and adjusted t <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	20286	20413	
==>DEBUG > 2 and print " But the leading ! means that this IS a match!\n";
        }
      }

      $para->[0] = '=for';  # Just wh <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	3396	3515	
==>}


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $type  = $self->type->imcc;
  my $na <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	8824	8935	
==>ult",
  );

  $runcore{$_[0]};
}

sub runcore_from_args {
  local $_ = shift;

  /\b-g\b/ and return "goto";
  / <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	18611	18779	
==>link $out_f;
            }

            return $pass;
        };
    }

    my %builtin_language_prefix = (
        IMC   => 'pir',
        PASM  => 'pasm',
        PAST <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7155	7246	
==>LOADTYPE}["reg_type_short"]
${DEST0} = concat ${STEMP0}
${STEMP0} = stack_depth
${DEST0} = c <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4977	5068	
==>LOADTYPE}["reg_type_short"]
${DEST0} = concat ${STEMP0}
${STEMP0} = stack_depth
${DEST0} = c <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	2910	3079	
==>^\s*\[([\w\.]+)\]\s*$/) {
            # If we have a current rule...
            my $name = $1;
            if ($rule) {
                # Validate it.
                va <==
3	/Users/nnunley/parrot/config/auto/inline.pm	455	565	
==>r compiler supports inline';

@args = qw(inline verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $t <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	627	720	
==>urther details about the configuration
framework.

=head1 USAGE

=head2 Import Parameters

Thi <==
3	/Users/nnunley/parrot/config/init/defaults.pm	7016	7131	
==>include_dir => $prefix . "/include",
        doc_dir     => $prefix . "/share/doc/parrot",
    );

    # add profili <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	17806	17917	
==>---

sub _make_treelet {
  my $self = shift;  # and ($para, $start_line)
  my $treelet;
  if(!@_) {
    return [ <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	3751	3869	
==>e = shift;
  my ($return_type, $name, @params) = split ' ', $line;
  unshift @params, $return_type;
  my $signature = j <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3120	3218	
==>_flag = 1";
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans:: <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26759	26852	
==>de)=EXPRESSION({ignorecomma => 1});
#	print STDERR "Got back @code\n";
	push @{$code{$seg}->{c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171061	171329	
==>> "function",
                  "CODE" => 205,
                  "ARGS" => [
                              "p",
                              "nc",
                              "ic"
                            ],
                  "BODY" => "#line 211 \"src/ops/cmp.op <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	26441	26548	
==>n erase history if you really want to.

=cut

sub current_test {
    my($self, $num) = @_;

    lock($self-> <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1029	1128	
==>The directory is an instance of the class returned by
C<directory_class>.


=cut

sub directory_with <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4508	4616	
==>erated code.
	return $pir;
}

sub post_op($$) {
	# Nothing to do.
	return "";
}

# Pre and post branch operat <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2924	3032	
==>erated code.
	return $pir;
}

sub post_op($$) {
	# Nothing to do.
	return "";
}

# Pre and post branch operat <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	2443	2539	
==>ntended to facilitate the selection of
suitable ops for a Parrot safe mode, or for inclusion in m <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20440	20590	
==>fined $::RD_TRACE;'
					      unless $::RD_NO_TRACE;
	$code .=
'
		$_matched = 1;
		last;
	}

';
	return $code;
}

1;

package Parse::RecDescent::Acti <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	14046	14159	
==>name);
}

sub unlike {
    my($self, $this, $regex, $name) = @_;

    local $Level = $Level + 1;
    $self->_regex <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4335	4438	
==>s of the symbols defined locally in this block.

=cut

sub symbol_names
{
  my $self = shift; # Required <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471063	471217	
==>"
                            ],
                  "BODY" => "#line 394 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_except <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472050	472204	
==>"
                            ],
                  "BODY" => "#line 394 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_except <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	1927	2049	
==>.h/;
                print INC <<"EOF";
# DO NOT EDIT THIS FILE.
#
# This file is generated automatically from
# $f by conf <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3008	3109	
==>start_address
{
    my ($self, $addr) = @_;

    return "interpreter->resume_offset = $addr; interpret <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3877	3978	
==>start_address
{
    my ($self, $addr) = @_;

    return "interpreter->resume_offset = $addr; interpret <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	31180	31278	
==>s. That is, authors should not use
# "L<B<Foo::Bar>>".
#
# Note, however, that formatting codes and <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	32102	32245	
==>@opcodes3, new AssignOp( $parser,
            'result' => $iter,
            'arg1'   => $expr->[0],
        );
        $expr = shift @{$exp <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	31	140	
==>x::Grammar;
use strict;
require 'Regex.pm';

sub new {
    my ($proto, %opts) = @_;
    my $self = bless \%opt <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	478	571	
==>yref',   # the arrayref we're reading from
);

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140613	140883	
==>ine",
                  "CODE" => 172,
                  "ARGS" => [
                              "n",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 77 \"src/ops/cmp.ops\"\n  if ({ <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	8556	8722	
==>n' => 'FUNCTION',
        'if'       => 'IF',
        'in'       => 'IN',
        'local'    => 'LOCAL',
        'nil'      => 'NIL',
        'not'      => 'NOT', <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	933	1041	
==>$it .= $x }

  #Pod::Simple::DEBUG > 10 and print " appended to $$it = \"$$$it\"\n";

  return 1;
}

sub FETC <==
3	/Users/nnunley/parrot/Configure.pl	2304	2399	
==>ries in has_header.h. Currently
needed to use inet_aton for systems that lack inet_pton:

  --de <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111299	111554	
==>ng_bitwise_or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112191	112446	
==>ng_bitwise_or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113083	113338	
==>ng_bitwise_or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	1564	1759	
==>ls/build/dynpmc.pl',
        commentType                             => '#',
        replace_slashes                         => 0,
        conditioned_lines                       => 1
    );
	genf <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19110	19215	
==>Grammar.y"
{ return op('seq' => [ $_[1], op('atend') ]); }
	],
	[#Rule 9
		 'expr', 3,
sub
#line 109 "lib/ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	31489	31584	
==>blePMCArray
dtypes[0] = loadtype
$pre_op
gen_pir = concat dest0
gen_pir = concat " = clone "
gen <==
3	/Users/nnunley/parrot/config/init/defaults.pm	1976	2088	
==>nk".
        # Perl5's Configure doesn't distinguish linking from loading, so
        # make a reasonable guess a <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	4485	4597	
==>rsion);

# verify opcode numbers
my $seq = 0;
for(@{$ops->{OPS}}) {
    next if ($_->{CODE} < 0);	# skip
    my $ <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	2348	2452	
==>5:23:20.183054Z $;

my $nm_cmd = 'nm';
my $nm_opt = '';
my $nm_try = qx(nm -V 2>&1);
my $nm_gnu;
my $nm_r <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	46667	46809	
==>] );
        }
	],
	[#Rule 10
		 'stat', 1,
sub
#line 92 "Lua\lua51.yp"
{
            BuildVoidFunctionCall( $_[0], $_[1] );
        } <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	7873	7972	
==>odeb  noop
	_screen_color($resultb)	# Broke!
BNOTF
	} elsif (@codef and not @codeb) {
		push @{$code <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	280	376	
==>arrot::Config;

use strict;
use Exporter;

use vars qw(@ISA @EXPORT %PConfig);

@ISA=qw(Exporter) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492806	493107	
==>});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493567	493868	
==>});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499541	499842	
==>});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7682	7780	
==>f the destination isn't a register, determine register name now.
	if (!$dest_reg) {
		$pir .= <<'PI <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5800	5898	
==>f the destination isn't a register, determine register name now.
	if (!$dest_reg) {
		$pir .= <<'PI <==
3	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	95	206	
==>ad  $

require Parrot::Test;

package Parrot::Test::Regex;

use strict;

use Data::Dumper;
use File::Basename;
u <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6682	6837	
==>to match_fail
          match_success:
            print "matched"
            goto match_end
          match_fail:
            print "failed"
          mat <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7699	7854	
==>to match_fail
          match_success:
            print "matched"
            goto match_end
          match_fail:
            print "failed"
          mat <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2013	2117	
==>rint $H $hout;
    close $H;
}

=item C<write_all_files()>

Writes C and header files for all the PMCs in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710799	710908	
==>eter, INTVAL_FMT, (INTVAL){{\@1}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711633	711742	
==>eter, INTVAL_FMT, (INTVAL){{\@1}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "L <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	15297	15393	
==>rrotLibrary);
    PMC_struct_val(lib) = (void *) $init_func;
    dynop_register(interpreter, lib) <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	14735	14895	
==>xprs}, [ $result, [] ];
                push @{ $callop->{result} }, $result;
            }
            push @{ $expr->[1] }, $callop;
        }
        pus <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6996	7092	
==>): ", instr(s1$, found$)
print "Bogus  (0): ", instr(s1$, bogus$)
print "Null   (1): ", instr(s1$ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18725	18821	
==>): ", instr(s1$, found$)
print "Bogus  (0): ", instr(s1$, bogus$)
print "Null   (1): ", instr(s1$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677931	678246	
==>hift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 760,
                  "ARGS" => [
                              "p" <==
3	/Users/nnunley/parrot/lib/Test/More.pm	21801	21924	
==>ard, 'Is THIS your card?' );

        my $spoon;
        URI::Geller->bend_spoon;
        is( $spoon, 'bent',    "Spoon bend <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48366	48471	
==>m/$EXACTLY/gco)
					{ ($minrep, $maxrep) = ($1,$1) }
				elsif ($grammar =~ m/$BETWEEN/gco)
					{ ($minr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10480	10602	
==>ss( {
                  "JUMP" => "PARROT_JUMP_RELATIVE|PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT",
                  "NAME" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64069	64191	
==>ss( {
                  "JUMP" => "PARROT_JUMP_RELATIVE|PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT",
                  "NAME" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	3213	3308	
==>> "#line 117 \"src/ops/core.ops\"\n  opcode_t *next = {{^+1}};\n  next = CHECK_EVENTS(interprete <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	626530	626824	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627673	627967	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628817	629111	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8116	8267	
==>t.\n";

				return($semval);
			};

                $$check eq 'ABORT'
            and	do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Abo <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7752	7894	
==>t.\n";

				return($semval);
			};

                $$check eq 'ABORT'
            and	do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Abo <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	7715	7839	
==>, 8206,
 'rlm'      , 8207,
 'ndash'    , 8211,
 'mdash'    , 8212,
 'lsquo'    , 8216,
 'rsquo'    , 8217,
 'sbquo'    , 821 <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	6300	6409	
==>ilename - kludgy.
	$desc = $_;
	$desc = ""  # it's only emacs variables at the end of the file
	    if(!$comme <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	1700	1809	
==>if $chr =~ /^[[:graph:]]$/;  # CCLASS_GRAPHICAL      
    $ret |= 0x0100 if $chr =~ /^[[:blank:]]$/;  # CCLASS <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	719	811	
==>ird option to the C<use> line.
C<arguments> should be an array reference containing additiona <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10008	10108	
==>or	$$states[$$stack[-1][0]]{ACTIONS}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print STDER <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9560	9657	
==>or	$$states[$$stack[-1][0]]{ACTIONS}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print STDER <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	11135	11230	
==>ointer Sub Closure Continuation RetContinuation Exception_Handler Coroutine Eval NCI Float Integ <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	597	695	
==>object>

In C<object> mode, it expects a list of all parrot's object files. It
runs C<nm> on each a <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1054	1180	
==>$prog;

    # precedence of sources for the program:
    # default -> probe -> environment -> option -> ask
    $prog ||= $conf <==
3	/Users/nnunley/parrot/config/inter/make.pm	875	1001	
==>$prog;

    # precedence of sources for the program:
    # default -> probe -> environment -> option -> ask
    $prog ||= $conf <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1051	1177	
==>$prog;

    # precedence of sources for the program:
    # default -> probe -> environment -> option -> ask
    $prog ||= $conf <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649899	650189	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "valid_type",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650820	651110	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "valid_type",
                  " <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	8511	8624	
==>->type,
              $to_unget[-1]->can('tagname') ? $to_unget[-1]->tagname : '',
              $self->{'rtfitemk <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	135	230	
==>eger;
use Exporter;
use vars qw($VERSION @ISA @EXPORTER @EXPORT_OK);

@EXPORT_OK = qw(md5 md5_he <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	894	983	
==>nt is not!" if defined $ident and not UNIVERSAL::isa($ident, 'Jako::Construct::Expression: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	922	1011	
==>nt is not!" if defined $ident and not UNIVERSAL::isa($ident, 'Jako::Construct::Expression: <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	1018	1123	
==>sic I/O  1..5
open "_testfile" for output as #3
for i=1 to 5
	print #3, i
next i
close #3
open "_testfile" <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19490	19595	
==>sic I/O  1..5
open "_testfile" for output as #3
for i=1 to 5
	print #3, i
next i
close #3
open "_testfile" <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1380	1506	
==>$prog) {
        $conf->data->set($util => $prog);
        $self->set_result('yes');
        return $self;
    }

    $prog = c <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1377	1503	
==>$prog) {
        $conf->data->set($util => $prog);
        $self->set_result('yes');
        return $self;
    }

    $prog = c <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	1094	1218	
==>($self, $name) = @_;
    $name ||= "_temp_int";
    if (exists $self->{_temps}{$name}) {
        $name .= ++$self->{_temp_int <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2605	2711	
==>."marked with \"#=#=#=\".\n";
    } else {
	print "Run this script with --plus-misses, and a second section <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840164	840250	
==>\n  rotate_entries(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}});\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840859	840945	
==>\n  rotate_entries(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}});\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	249583	249792	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "not",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io" <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	130	223	
==>g routines here...

This is currently alarmingly similar to the generated subs in Parrot::Test <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	228	321	
==>g routines here...

This is currently alarmingly similar to the generated subs in Parrot::Test <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	675659	676018	
==>RS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 757,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 473 \" <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	4081	4188	
==>t>

END

print <<END;
      <context name="pod" attribute="Comment" lineEndContext="#stay">
          <LineC <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	4657	4764	
==>terp" lineEndContext="#pop">
          <HlCStringChar attribute="SpChar" context="#stay" />
          <RegEx <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999696	1000175	
==>i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1117,
                  "ARGS" => [
                              "i",
                              "i",
                              "s",
                              "i",
                              "ic"
                            ],
                  "BO <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	838	950	
==>$}) {
    push @tokens, Jako::Token->new(
      $file, $line, 'label', 'N', $2);
    $text = $3; # The "(?!:)" is <==
3	/Users/nnunley/parrot/config/inter/progs.pm	2772	2874	
==>s');
    $linkflags =~ s/-libpath:\S+//g; # XXX No idea why.
    $linkflags = integrate($linkflags, $co <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	3687	3799	
==>=item C<parent_path()>

Returns the path of the containing directory.

=cut

sub parent_path
{
    my $self = shi <==
3	/Users/nnunley/parrot/config/auto/alignptrs.pm	221	317	
==>he minimum pointer alignment.

=cut

package auto::alignptrs;

use strict;
use vars qw($descripti <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	10465	10583	
==>qq{"$sym"};
			}
			if ($type=~/BARE/) {
				if ($sym=~s/\$$/_string/) {	
					$$optype="S";
				} else {
					$$optype <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642275	642385	
==>\n  {{\@1}} = {{\@2}}->vtable->type_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643163	643273	
==>\n  {{\@1}} = {{\@2}}->vtable->type_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LA <==
3	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	799	939	
==>ass   = ref $self;
        my $visitor = shift;
        no strict "refs";
        my $func = 'visit' . $class;
        if ( $visitor->can <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	10125	10258	
==>h.h
expm1       math.h
expm1f      math.h
expm1l      math.h
fabs        math.h
fabsf       math.h
fabsl       math.h
fclose      stdi <==
3	/Users/nnunley/parrot/lib/Test/More.pm	12568	12664	
==>ome::Module') );

to safeguard against your test script blowing up.

It works on references, too: <==
3	/Users/nnunley/parrot/config/auto/gc.pm	1153	1273	
==>conf->data->get('i_malloc')) {
            $conf->data->set(malloc_header => 'malloc.h');
        } else {
            $c <==
3	/Users/nnunley/parrot/config/auto/memalign.pm	952	1060	
==>conf->data->get('i_malloc')) {
        $conf->data->set(malloc_header => 'malloc.h');
    } else {
        $c <==
3	/Users/nnunley/parrot/tools/dev/pbc_header.pl	75	169	
==>nipulation

=head1 SYNOPSIS

  perl pbc_header.pl files ...
  perl pbc_header.pl --update-finge <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5633	5881	
==>{
                  "JUMP" => 0,
                  "NAME" => "load_bytecode",
                  "FLAGS" => ":load_file",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6298	6546	
==>{
                  "JUMP" => 0,
                  "NAME" => "load_bytecode",
                  "FLAGS" => ":load_file",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	271	365	
==>RIPTION

A documentation section describing Perl modules in Parrot.

=head2 Class Methods

=ove <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564914	565237	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "can",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565806	566129	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "can",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/languages/lua/luac.pl	437	539	
==>er->YYData->{verbose_info}    = 1;    # 0, 1
$parser->Run(@ARGV);

if ( exists $parser->YYData->{nb_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	46691	46844	
==>. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
#============= <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	46737	46867	
==>. . . . . . . .
# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
#==================================== <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	46785	46890	
==>. . . . . . . . . . . . . . . . . . . . . . .
#=========================================================== <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	25347	25462	
==>$out_f);

            my $meth = $c_test_map{$func};
            my $pass = $builder->$meth(slurp_file($out_f), $exp <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	12569	12665	
==>{'PC'} = 'pc';
	$mv->{'NEXTPC'} = 'next_pc';
	$mv->{'PTYPES'} = 'ptypes';
	$mv->{'LTYPES'} = 'lty <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818101	818195	
==>arrot_push_regs(interpreter);\n  /* these 2 opcodes change the register base pointer\n   * {{=0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276157	276248	
==>ODY" => "#line 881 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277035	277126	
==>ODY" => "#line 881 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277913	278004	
==>ODY" => "#line 881 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\ <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	7001	7102	
==>totals{covered_branches} of $totals{branches} ($totals{branch_coverage} %)</td>
                 <td>$ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4285	4402	
==>drv);
	open(DRV,"<$fname") or die "Report this as a BUG: Cannot open $fname";
	while(<DRV>) {
                	/^\s <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4066	4180	
==>drv);
	open(DRV,"<$fname") or die "Report this as a BUG: Cannot open $fname";
	while(<DRV>) {
                	/^\s <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20515	20613	
==>pe[CURR] eq "STMT" or $type[CURR] eq "COMM") {
				print CODE "\t# $syms[CURR]\n" if $type[CURR] eq <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9727	9838	
==>nd	print STDERR "**Dicard invalid token ".&$ShowCurToken.".\n";

			$$token=$$value=undef;
		};

        $$ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9289	9395	
==>nd	print STDERR "**Dicard invalid token ".&$ShowCurToken.".\n";

			$$token=$$value=undef;
		};

        $$ <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	415	589	
==>guage_test_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    output_isnt       => 'isnt_eq'
                        );

foreach my $func ( keys %l <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	754	928	
==>guage_test_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    output_isnt       => 'isnt_eq'
                        );

foreach my $func ( keys %l <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	329	503	
==>guage_test_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    output_isnt       => 'isnt_eq'
                        );

foreach my $func ( keys %l <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9085	9255	
==>tatus
        or   do {

            $$errstatus = 1;
            &$error($self);
                $$errstatus # if 0, then YYErrok has been called
            or  ne <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8675	8839	
==>tatus
        or   do {

            $$errstatus = 1;
            &$error($self);
                $$errstatus # if 0, then YYErrok has been called
            or  ne <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	8833	8988	
==>p = $pmc = "";
    }
    else {
	    $export = "";
	    $extern = "";
	    $newl = "\n";
	    $semi = "";
        $interp = ' interpreter';
        $pmc = ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393603	393897	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "tell",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	2234	2358	
==>);          }
sub is_eof           { return shift->is('eof');           }
sub is_exfix_arith   { return shift->is('exfix-arit <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	886	982	
==>to register mapper\n";
}
sub post_op {
	die "post_op not implemented for current stack to registe <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	10897	11011	
==>{$package.'::'.$func} = sub {
            local $SIG{__WARN__} = \&report_odd_hash;
            my( $code, $expecte <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	37067	37169	
==>rguments:

=over 4

=item 1.

A string to be processed (C<$_> if the string is omitted or C<undef>)

=i <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	52899	53001	
==>rguments:

=over 4

=item 1.

A string to be processed (C<$_> if the string is omitted or C<undef>)

=i <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7744	7845	
==>w.
	if (!$dest_reg) {
		$pir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPE <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5862	5963	
==>w.
	if (!$dest_reg) {
		$pir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPE <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	3606	3700	
==>ll have C<need_ext>.

=item C<does interface>

The class 'does' the given interfaces (the colle <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15182	15276	
==>rfunc(g())

' Passing arrays, twice, expect 12
function aftwo(y())
	print y(4)
end function
fun <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23093	23309	
==>=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25532	25748	
==>=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARR <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	10905	11035	
==>);";
        return "t_$temp_num";
    };
    /4/ && do {
        push @{$temps_ref}, "PMC *t_$temp_num;";
        push @{$extra_pr <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	6882	6990	
==>b import {
    my ($class, $plan, @args) = @_;

    $builder->plan( $plan, @args );

    __PACKAGE__->export_ <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	12006	12103	
==>) or die "Can't write $outfile: $!\n";

    print OUT page_header("Call Coverage for $source_file" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023400	1023544	
==>caltime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024250	1024394	
==>caltime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28761	28870	
==>t

sub implements
{
    my ($self, $meth) = @_;

    return 0 unless exists $self->{has_method}{$meth};
    my <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5252	5373	
==>d($_) > 126)
#DBG>					?	sprintf('<%02X>',ord($_))
#DBG>					:	$_;
#DBG>		}
#DBG>		$tok.='<';
#DBG>	};

	$$errstatu <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5001	5115	
==>d($_) > 126)
#DBG>					?	sprintf('<%02X>',ord($_))
#DBG>					:	$_;
#DBG>		}
#DBG>		$tok.='<';
#DBG>	};

	$$errstatu <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	39562	39674	
==>pted from Text::Tabs -- yes, it's hardwired in that
              # tabs are at every EIGHTH column.  For portabi <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	20132	20240	
==>ed data types.
    # This is offered as one implementation of Tom Christiansen's "structs.pl"
    # idea.

=c <==
3	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1148	1255	
==>!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically by $0.
 *
 * Any changes ma <==
3	/Users/nnunley/parrot/tools/build/revision_c.pl	522	629	
==>!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically by $0.
 *
 * Any changes ma <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3203	3303	
==>utput_ge {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_test('>=', $val1, $val2, $dest <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	16468	16582	
==>n
    $extra_postamble
}
HEADER
    }

    my ($key, $value) = (defined $params ?
        ( "$return$params", "pcf_ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	10381	10498	
==>eturn (".return $retval",
            "ret");
}

sub output_declare {
    my ($self, $var, $type) = @_;
    return (". <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	14562	14670	
==>otal_body;
    my $header_decls = '';
    while ($total_body =~ s/\bMMD_(\w+):\s*//) {
        my $right_type <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18261	18361	
==>R]\n";
}
sub parse_gosub {
	feedme;
	create_label();

	push @{$code{$seg}->{code}}, <<GOSUB;	
	bsr $l <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19736	19831	
==>y the value of the environment variable
C<RTFDEFLANG>, or if that's not set, then the value
1033 <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1332	1449	
==>exit code $exit_code")
        if $exit_code and not $pass;
    }

    unless($ENV{POSTMORTEM}) {
        unlink $lang <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1373	1490	
==>exit code $exit_code")
        if $exit_code and not $pass;
    }

    unless($ENV{POSTMORTEM}) {
        unlink $lang <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673762	674015	
==>oat(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682297	682550	
==>oat(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	18242	18337	
==>= ($code[$code_l]->[2],
	$code[$code_l]->[3],$code[$code_l]->[4]);

    if ($opcode eq 'JUMP_IF_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	36374	36631	
==>}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clear_eh",
                  "FLAGS" => <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7082	7193	
==>hmark";
    return @ops;
}

sub output_pushindex {
    my ($self, $reg) = @_;
    $reg = value(defined($reg) ? $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6724	6835	
==>hmark";
    return @ops;
}

sub output_pushindex {
    my ($self, $reg) = @_;
    $reg = value(defined($reg) ? $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2005	2105	
==>et  { --$_[0]{'Indent'} }
sub   end_over_number  { --$_[0]{'Indent'} }
sub   end_over_text    { --$_[ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1573	1673	
==>et  { --$_[0]{'Indent'} }
sub   end_over_number  { --$_[0]{'Indent'} }
sub   end_over_text    { --$_[ <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	15515	15612	
==>ount>
element always to be nonnegative, so we redefine the C<count>
accessor accordingly.

    pac <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27609	27709	
==>' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'unless')
		. ' ($text =~ s/\A($skip)/$lastsep=$1 an <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29719	29819	
==>' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'unless')
		. ' ($text =~ s/\A($skip)/$lastsep=$1 an <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31816	31916	
==>' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'unless')
		. ' ($text =~ s/\A($skip)/$lastsep=$1 an <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	6218	6351	
==>a->{fh}
            or return ( q{}, undef );

        for ( $parser->YYData->{INPUT} ) {

            if ( $parser->YYData->{she <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	4578	4698	
==>self->{Skip_All}   = 0;

    $self->{Use_Nums}   = 1;

    $self->{No_Header}  = 0;
    $self->{No_Ending}  = 0;

    $se <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	4453	4570	
==>lse {
			die "Syntax error, expected ',' or ';'";
		}
		feedme();
	} else {
		$promptcode.=qq{\tprint "? "\n};
	}
	inp <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1898	1993	
==>tifier')) {
    my $left_sym = $block->find_symbol($left->value);
    $self->SYNTAX_ERROR("Expre <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1856	1951	
==>tifier')) {
    my $left_sym = $block->find_symbol($left->value);
    $self->SYNTAX_ERROR("Expre <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1778	1873	
==>tifier')) {
    my $left_sym = $block->find_symbol($left->value);
    $self->SYNTAX_ERROR("Expre <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29366	29470	
==>scent::_trace(q{Trying terminal: [' . $self->describe
					  . ']},
					  Parse::RecDescent::_tracefirst <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31463	31567	
==>scent::_trace(q{Trying terminal: [' . $self->describe
					  . ']},
					  Parse::RecDescent::_tracefirst <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27263	27360	
==>scent::_trace(q{Trying terminal: [' . $self->describe
					  . ']}, Parse::RecDescent::_tracefirst <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	4471	4580	
==>dir($options{bindir}, $dest);
        if ($copy =~ /^installable/) {
            push @installable_exe, [$src, <==
3	/Users/nnunley/parrot/config/auto/readline.pm	257	355	
==>line.

=cut

package auto::readline;

use strict;
use vars qw($description @args);

use base qw(Par <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	6399	6493	
==>}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::Docs::Section>

=item C<Parrot::Docs::Group <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	13924	14038	
==>ft;
    my $file = shift;
    my $string = "";
    
    $self->output_string(\$string);
    $self->parse_file($file <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	35380	35488	
==>'PIRCODE';
sp_dest = next_pc + I_arg_0
ss = clone stypes
ss_propogate[sp_dest] = ss
PIRCODE
        }

		# Fi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1166	1269	
==>[0]{'_currpos'}}), "\n";
  return;
}

sub _handle_text { # self, text
  DEBUG > 2 and print "Handling $_ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	40164	40326	
==>'break' ) {
                    $parser->Error("no loop to break\n");
                }
            }
        }
        unshift @{ $parser->YYData->{functs} } <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39091	39233	
==>'break' ) {
                $parser->Error("no loop to break\n");
            }
        }
    }
    unshift @{ $parser->YYData->{functs} } <==
3	/Users/nnunley/parrot/config/auto/alignptrs.pm	1272	1392	
==>, 4, 2, 1) {
            my $results = cc_run_capture($try_align);
            if ($results =~ /OK/ && $results !~ /align <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	27696	27896	
==>s = this;\n    argc = SIG_ELEMS(signature);\n    {{+=argc + 2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	28521	28721	
==>s = this;\n    argc = SIG_ELEMS(signature);\n    {{+=argc + 2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30349	30463	
==>terminal>>},
						  Parse::RecDescent::_tracefirst($text))
							if defined $::RD_TRACE;').'
			last;
		}'.($::RD <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32549	32663	
==>terminal>>},
						  Parse::RecDescent::_tracefirst($text))
							if defined $::RD_TRACE;').'
			last;
		}'.($::RD <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28274	28387	
==>terminal>>},
						  Parse::RecDescent::_tracefirst($text))
					if defined $::RD_TRACE;').'

			last;
		}'.($::RD <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	5258	5401	
==>i_signal' => 'define',
             'i_socks' => undef,
             'i_stdarg' => 'define',
             'i_stddef' => 'define',
             ' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	3788	3896	
==>_comment {
    my ($self, $string) = @_;
    return map { "# $_" } split(/\n/, $string);
}

sub output_litera <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2733	2825	
==>le> and inherits all its methods.

=head1 SEE ALSO

L<Pod::Simple::DumpAsXML>

L<Pod::Simple> <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	1369	1456	
==>nterpreter->code->base.data + offset_in_ops;
}

static void** opcode_to_prederef(Interp* <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2502	2612	
==>ead -lm -L/opt/local/lib  -licuuc -licudata -lpthread -lm';
        $extraLibs =~ s/blib/..\\blib/g;
        $e <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2811	2921	
==>ead -lm -L/opt/local/lib  -licuuc -licudata -lpthread -lm';
        $extraLibs =~ s/blib/..\\blib/g;
        $e <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2606	2716	
==>ead -lm -L/opt/local/lib  -licuuc -licudata -lpthread -lm';
        $extraLibs =~ s/blib/..\\blib/g;
        $e <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	13486	13607	
==>f operation (function calls, switch statements, gotos
        # with labels, etc.).
        #
        # TODO: Complain abo <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	31672	31771	
==>er\n};
		}
		foreach (@{$ld->{data}}) {
			my($t,$v)=($_->{type}, $_->{value});
			push @{$code{_dat <==
3	/Users/nnunley/parrot/config/auto/perldoc.pm	254	352	
==>system.

=cut

package auto::perldoc;

use strict;
use vars qw($description @args);

use base qw(Pa <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	5275	5373	
==>(" . join(", ", @_) . ")" : $_[0], $self->get(1)->text)
    unless grep { $self->get(1)->kind eq $_ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	1471	1579	
==>at,    $test_name);
  isnt($this, $that,    $test_name);

  # Rather than print STDERR "# here's what went wr <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	688	782	
==>The exec prefix. Defaults to '/usr'.

=item C<bindir>

The executables directory. Defaults to ' <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	917	1011	
==>The exec prefix. Defaults to '/usr'.

=item C<bindir>

The executables directory. Defaults to ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4367	4488	
==>ND_C
    }
	$c .= <<END_C;
    } while (1);
    return NULL;
}
END_C

    $c .= " /* " . $self->core_prefix . "$base */\n\ <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2258	2375	
==>y $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = $op->{op} $op->{arg1}->{symbol}, <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1598	1714	
==>y $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = $op->{op} $op->{arg1}->{symbol} <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	8838	8993	
==>pmc = "";
    }
    else {
	    $export = "";
	    $extern = "";
	    $newl = "\n";
	    $semi = "";
        $interp = ' interpreter';
        $pmc = ' pmc' <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	3979	4084	
==>ops->{PREAMBLE} = $Parrot::OpLib::core::preamble;
}
else {
    my %opsfiles;
    my @opsfiles;

    foreac <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	54845	54942	
==>t (see examples below).

If the extractor is a precompiled regular expression or a string,
it is m <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	2514	2622	
==>(R|S)?
        if ($children[-1]->{name} eq 'nop') {
            pop(@children) while $children[-1]->{name} e <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	1899	2000	
==>e="";	# The last labeled line before a "data" statement.
	my $singleif=0;
	my $elsetag=0;
	my $elsesta <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16293	16393	
==>ression tokens
		#print STDERR Dumper(\@expr);
		$whole.=join(' ', map { $_->[0] } @expr);
		@expr=fi <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	23695	23843	
==>,
            'result' => $lbl1,
        );
    }
    push @opcodes, new AssignOp( $parser,
        'result' => $result,
        'arg1'   => $e <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	3950	4045	
==>{ my ($op) = @_; $op->{args}->[0]->maxlen() }
sub startset { my ($op) = @_; $op->{args}->[0]->st <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	18823	18932	
==>ase!
  }
  
  splice @$treelet, 0, 2;  # lop the top off

  return $treelet;
}

#:.:.:.:.:.:.:.:.:.:.:.:.:.:.: <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7040	7138	
==>STEMP0}
${INS} = concat " = pop s\n"

# Next parameter.
goto pre_call_PLOOP_${CURIC}

# Finished.
g <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	49105	49198	
==>see below).

Omitting the first argument (input text) means process C<$_> instead.
Omitting th <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088912	1089041	
==>}}->vtable->slice(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "experimental" => 1,
                  "L <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089860	1089989	
==>}}->vtable->slice(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "experimental" => 1,
                  "L <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	51262	51350	
==>ock($text, '{}E<lt>E<gt>')> to extract the code
within the C<E<lt>defer:...E<gt>> directi <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	33332	33465	
==>= $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   pr <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	34081	34214	
==>= $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   pr <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	35005	35138	
==>= $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   pr <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2281	2399	
==>various libraries in the link line.
        $liblist = join( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ /g <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2573	2691	
==>various libraries in the link line.
        $liblist = join( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ /g <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2368	2486	
==>various libraries in the link line.
        $liblist = join( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ /g <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073805	1074040	
==>i",
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  I <==
3	/Users/nnunley/parrot/config/gen/config_pm.pm	1453	1553	
==>pasm") or die "Can't open config_lib.pasm: $!";

    print OUT <<"END";
# Generated by config/gen/con <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	30886	30975	
==>t/* else its from runops_fromc */\n\tparrot_context_t * const caller_ctx = PMC_cont(ccont) <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	35312	35427	
==>truncate'         => \&_op_truncate,
  'round'            => \&_op_round,
  'rationalize'      => \&_op_rationalize, <==
3	/Users/nnunley/parrot/lib/Test/More.pm	13441	13549	
==>^Can't call method "isa" on unblessed reference/ ) {
                if( !UNIVERSAL::isa($object, $class) ) { <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	12439	12540	
==>ype
type second
	other as first
	narf as integer
	pnext as first
end type
type third
	number as intege <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	10881	10982	
==>cal pmc <rx_match>
  .local pmc <rx_ptmp>
  .local int <rx_tmp>
  .local int <rx_len>
  <rx_match> = n <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	12912	13022	
==>($self, $code) = @_;
    # Assume, for now, that the code is Perl5 code
    my @ops = ("# START EMBEDDED CODE") <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632450	632543	
==>BODY" => "#line 91 \"src/ops/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633492	633585	
==>BODY" => "#line 91 \"src/ops/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1871	2010	
==>t, $source) = @_;

    return
        "$CC $CFLAGS " .
        "-o " . $target . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/in <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2167	2306	
==>t, $source) = @_;

    return
        "$CC $CFLAGS " .
        "-o " . $target . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/in <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1962	2101	
==>t, $source) = @_;

    return
        "$CC $CFLAGS " .
        "-o " . $target . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255566	255892	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "xor",
                  "FLAG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256473	256799	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "xor",
                  "FLAG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257381	257707	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "xor",
                  "FLAG <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24666	24767	
==>rt to finish [step increment]
	my($endexpr, $stepexpr, @stepcode);

	$forloop++;
	feedme();

	# The in <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3118	3219	
==>REG(%ld)",
    'ki' => "IREG(%ld)",

    'ic' => "cur_opcode[%ld]",
    'nc' => "CONST(%ld)->u.number" <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2032	2130	
==>REG(%ld)",
  'ki'  => "IREG(%ld)",

  'ic'  => "cur_opcode[%ld]",
  'nc'  => "CONST(%ld)->u.number" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	35526	35757	
==>get_pointer(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2364	2470	
==>ithin the block.
  #

  $sym = Jako::Symbol->new(
    $self->block,
    ($self->is_global ? 'global' : 'loc <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	8489	8585	
==>e_l++];
	my ($opcode, $arg, $rest, $src) = ($l->[2], $l->[3], $l->[4], $l->[5]);
	next unless $op <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	13495	13592	
==>o pass before this test can pass (or before an implementation
could be started).  This is most use <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	2632	2728	
==>eturn shift->is('infix-bit');     }
sub is_infix_concat  { return shift->is('infix-concat');  }
s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126801	127157	
==>" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rot",
                  "FLAGS" => "",
                  "ARGDIRS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127936	128292	
==>" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rot",
                  "FLAGS" => "",
                  "ARGDIRS" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1387	1490	
==>$kind eq 'continue') {
    $compiler->emit("${prefix}_CONT:");

    if ($self->content) {
      $compile <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	12700	12807	
==>ull ? info->full_name : info->name) % OP_HASH_SIZE;
    p->info = info;
    p->next = hop[hidx];
    hop[hid <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	654	751	
==>to '/usr'.

=item C<exec_prefix>

The exec prefix. Defaults to '/usr'.

=item C<bindir>

The execu <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	883	980	
==>to '/usr'.

=item C<exec_prefix>

The exec prefix. Defaults to '/usr'.

=item C<bindir>

The execu <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	6845	6954	
==>ew:
 *     Native Call Interface routines. The code needed to build a
 *     parrot to C call frame is in here <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1452	1551	
==>need to construct an object of this class for
yourself, but if you want to, call
C<<
Pod::Simple::Pu <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2604	2703	
==>need to construct an object of this class for
yourself, but if you want to, call
C<<
Pod::Simple::Pu <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1741	1840	
==>need to construct an object of this class for
yourself, but if you want to, call
C<<
Pod::Simple::Pu <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	55158	55308	
==>[2] );
        }
	],
	[#Rule 74
		 'exp', 2,
sub
#line 405 "Lua\lua51.yp"
{
            BuildUnop( $_[0], $_[1], $_[2] );
        }
	],
	[#R <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	19940	20061	
==>able to build dispatch table for instructions of " .
                "more than 2 bytes in rule $_->{'name'}\n";
        } <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2149	2241	
==>alue);
      $self->SYNTAX_ERROR("Undefined identifier '%s'.", $args[$i]->value) unless $arg_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1849	1941	
==>alue);
      $self->SYNTAX_ERROR("Undefined identifier '%s'.", $args[$i]->value) unless $arg_ <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	7592	7751	
==>' => 'PPC',
             'jitcpuarch' => 'ppc',
             'jitosname' => 'DARWIN',
             'ld' => 'c++',
             'ld_debug' => '',
             'l <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2234	2328	
==>tifier')) {
    my $right_sym = $block->find_symbol($right->value);
    $self->SYNTAX_ERROR("Ex <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2192	2286	
==>tifier')) {
    my $right_sym = $block->find_symbol($right->value);
    $self->SYNTAX_ERROR("Ex <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2114	2208	
==>tifier')) {
    my $right_sym = $block->find_symbol($right->value);
    $self->SYNTAX_ERROR("Ex <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	8366	8508	
==>$_" for (@$command);
    }

    my $orig_dir;
    if ( $chdir ) {
        $orig_dir = cwd;
        chdir $chdir;
    }

    # Execute all comma <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450088	450196	
==>n  {{\@1}} = {{\@2}}->vtable->absolute(interpreter, {{\@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	5229	5335	
==>\./gcs;

		if ($$textref =~ m/\G($ldel)/gc)
		{
			push @nesting, $1;
		}
		elsif ($$textref =~ m/\G($rdel) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607554	607670	
==>ps\"\n    {{\@1}} = VTABLE_get_attr(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608458	608574	
==>ps\"\n    {{\@1}} = VTABLE_get_attr(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	1440	1547	
==>08x %s\n",
	    $constant_num, $_->flags, $_->encoding, $_->type,
            $_->size, $_->data);

	$consta <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5922	6039	
==>up!;
}

sub output_setend {
    my ($self, $group, $value, $adj) = @_;
    $value = value($value);
    my @ops;
    if <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5560	5677	
==>up!;
}

sub output_setend {
    my ($self, $group, $value, $adj) = @_;
    $value = value($value);
    my @ops;
    if <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4551	4649	
==>rns whether a subdirectory with the specified name exists in the
directory.

=cut

sub directory_ex <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	933938	934105	
==>s",
                              "s"
                            ],
                  "BODY" => "#line 435 \"src/ops/string.ops\"\n  {{\@1}} = string_downcase(interpre <==
3	/Users/nnunley/parrot/tools/util/pirtidy.pl	407	516	
==>le;
    my $outfile = "$file.$extension";
    open my $ofh, '>', $outfile;

    my $formatter = new Parrot::PI <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	11319	11429	
==>{
        DEBUG and print "   Adding \"", $token->text, "\" to head1-content.\n";
        $head1_text_content . <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24776	24871	
==>turn _fail(wantarray, $textref) unless @match;
		return _succeed wantarray, $textref,
				$match <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7609	7702	
==>turn _fail(wantarray, $textref) unless @match;
	return _succeed wantarray, $textref,
			$match <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	751008	751227	
==>CODE" => 846,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 209 \"src/ops/set.ops\"\n  {{\@1}}->vtab <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	5053	5151	
==>!\n";

open SOURCE, ">$source"
    or die "ops2c.pl: Cannot open source file '$source' for writing: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2676	2789	
==>.");

  $self->INTERNAL_ERROR("No type for dest!")  unless defined $dest_type;
  $self->INTERNAL_ERROR("No type fo <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2228	2336	
==>------------
sub e2charnum {
  my $in = $_[0];
  return undef unless defined $in and length $in;
  
  # Conve <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3960	4061	
==>egment
.end 	# End outer segment
EOD
}
if ($debug) {
	print CODE<<FOO;
.sub _DEBUG_INIT
	saveall
	\$P0 <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27346	27470	
==>esult' => $l_continue,
    );
    push @opcodes, new LabelOp( $parser,
        'arg1' => $l_break,
    );
    return \@o <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28225	28349	
==>esult' => $l_continue,
    );
    push @opcodes, new LabelOp( $parser,
        'arg1' => $l_break,
    );
    return \@o <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2598	2699	
==>d $actual_arg_type;

    if ($formal_arg_type->name ne $actual_arg_type->name) {
      my $temp = $com <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2298	2399	
==>d $actual_arg_type;

    if ($formal_arg_type->name ne $actual_arg_type->name) {
      my $temp = $com <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	19335	19432	
==>->skip_rest;
  $Test->skip_rest($reason);

Like skip(), only it skips all the rest of the tests yo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955417	955680	
==>name",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1075 <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	66664	66787	
==>");

						!$matchrule and $rule and $rule->addcall($name);
					}
				}
				elsif ($grammar =~ m/$BADREP/gco)
				{
					_p <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23263	23377	
==>exp' => 126,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'pr <==
3	/Users/nnunley/parrot/examples/benchmarks/stress.pl	524	642	
==>darray {
    my @foo;
    foreach (1..10000) {
	$foo[$_] = $_;
    }
    return \@foo;
}

=head1 SEE ALSO

F<examples/b <==
3	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	433	551	
==>darray {
    my @foo;
    foreach (1..10000) {
	$foo[$_] = $_;
    }
    return \@foo;
}

=head1 SEE ALSO

F<examples/b <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	408	506	
==>, "$_[0]" ];
  return $_[0][2] .= $_[1];
}

sub as_string {
  goto &Pod::Simple::BlackBox::stringif <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	3198	3299	
==>, 'tables.h');
open STDOUT, '>', $h_file
    or die "can not open '$h_file': $!\n";
print <<"END";
$he <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	644	741	
==>hich arguments of an op are labels, and return an array of
their indices.

=cut

sub label_indices <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	645	745	
==>ed!" unless defined $op;
  confess "Right is not defined!" unless defined $right;

  confess "Block i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	657	757	
==>ed!" unless defined $op;
  confess "Right is not defined!" unless defined $right;

  confess "Block i <==
3	/Users/nnunley/parrot/examples/benchmarks/addit.pl	249	339	
==>perl examples/benchmarks/addit.pl

=head1 DESCRIPTION

Joe Wilson's original Perl version o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833619	833807	
==>@1}}, STACK_ENTRY_PMC, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6458	6564	
==>${CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0[i]
    ${ITEMP0} = ${NEXTPC} + j
    prop_type_state[${ITEMP0} <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4396	4502	
==>${CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0[i]
    ${ITEMP0} = ${NEXTPC} + j
    prop_type_state[${ITEMP0} <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	6533	6622	
==>2 -ladvapi32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid -lws2_32 -lmpr -lwinmm -lversi <==
3	/Users/nnunley/parrot/config/init/hints/msys.pm	424	513	
==>2 -ladvapi32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid -lws2_32 -lmpr -lwinmm -lversi <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1743	1844	
==>lation hook.
sub post_translation() {
	# Nothing to do.
	return "";
}

# Extra subroutines required fo <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	783	884	
==>lation hook.
sub post_translation() {
	# Nothing to do.
	return "";
}

# Extra subroutines required fo <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	540	641	
==>lation hook.
sub post_translation() {
	# Nothing to do.
	return "";
}

# Extra subroutines required fo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1567	1672	
==>self->left;
  my $op    = $self->op;
  my $right = $self->right;

  my $dest_sym = $block->find_symbol($de <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1525	1630	
==>self->left;
  my $op    = $self->op;
  my $right = $self->right;

  my $dest_sym = $block->find_symbol($de <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1447	1552	
==>self->left;
  my $op    = $self->op;
  my $right = $self->right;

  my $dest_sym = $block->find_symbol($de <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774978	775249	
==>e",
                  "CODE" => 875,
                  "ARGS" => [
                              "p",
                              "ki",
                              "ic"
                            ],
                  "BODY" => "#line 377 \"src/ops/set.ops\"\n    {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149138	149225	
==>ne 105 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) == { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150079	150166	
==>ne 105 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) == { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14667	14780	
==>re.ops\"\n  opcode_t * const loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	15354	15467	
==>re.ops\"\n  opcode_t * const loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	297	395	
==>N

Parse the Parrot PackFile listed on the command line, or from standard
input if no file is named <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10916	11018	
==>nes.html";
    print "Writing $outfile..\n" if $DEBUG;
    open (IN, "<$infile") or die "Can't read $in <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	967	1059	
==>ruct::Expression::Value::Identifier');
  confess "Left is not Value!" if defined $left and no <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	995	1087	
==>ruct::Expression::Value::Identifier');
  confess "Left is not Value!" if defined $left and no <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926702	927031	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringinfo",
                  "FLAG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928172	928501	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringinfo",
                  "FLAG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929642	929971	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringinfo",
                  "FLAG <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	9701	9817	
==>ML Name still can't start with.
    }
    
    $this->{'accept_codes'}{$new_code} = $new_code;
    
    # Yes, map to <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	11408	11503	
==>ted you don't try anything
too funky.

- `cmp_ok (Str $got, Code &compare_func, Str $expected, S <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	35	121	
==>dation.
# $Id: /parrot/lib/Parrot/OpTrans/CGoto.pm 20333 2006-06-21T18:44:31.111564Z be <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12881	12982	
==>capture argument list
     /"pmc->vtable->$method(" . full_arguments($1) . ')'/xeg;

    # Rewrite Oth <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7769	7940	
==>$_[1] } @$stack[ -$$dotpos .. -1 ]
                        :   ();

            $semval = $code ? &$code( $self, @sempar )
                            : @sempar ? $semp <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7417	7584	
==>$_[1] } @$stack[ -$$dotpos .. -1 ]
                        :   ();

            $semval = $code ? &$code( $self, @sempar )
                            : @sempar ? $semp <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	2635	2733	
==>ed through a real API that takes care of synchronization, data
as such is not a good API unless it' <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	12666	12779	
==>al $Level = $Level + 1;

    if( !defined $got || !defined $dont_expect ) {
        # undef only matches undef and <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	13110	13223	
==>al $Level = $Level + 1;

    if( !defined $got || !defined $dont_expect ) {
        # undef only matches undef and <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	5343	5440	
==>lib = $props{oplib} ? $props{oplib}->value : 'CORE'; # TODO: We should make sure its a string, som <==
3	/Users/nnunley/parrot/tools/dev/mk_inno.pl	565	745	
==>>

The directory to locate ICU.

=back

=head1 SEE ALSO

http://www.jrsoftware.org/

=cut

################################################################################

use stri <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14564	14669	
==>) {
    if(defined $title) { print "  Returing title <$title>\n" }
    else { print "Returning title <>\n" <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	23129	23234	
==>) {
    if(defined $title) { print "  Returing title <$title>\n" }
    else { print "Returning title <>\n" <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	906	1053	
==>,
  ['',             'invokecc'],
  ['',             'restore', 'P1'],
  ['',             'restore', 'P6'],
  ['',             'set', 'P5', 'P6[1]'] <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1071	1175	
==>SION = '1.05';
$COMPATIBLE = '0.07';
$FILENAME=__FILE__;

use Carp;

#Known parameters, all startin <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1035	1133	
==>SION = '1.05';
$COMPATIBLE = '0.07';
$FILENAME=__FILE__;

use Carp;

#Known parameters, all startin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129327	129591	
==>=> 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130065	130329	
==>=> 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	52752	52849	
==>,$line);
				$code =~ /\A\s*<score:(.*)>\Z/s;
				$prod and $prod->addscore($1, $lookahead, $line) <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	2954	3068	
==>unimplemented'}) {
            die "Unimplemented method given body at line $line_count\n";

        # Otherwise, j <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	1760	1863	
==>cl/$_.t"} @keep;
if (! @tests) {
  die "Couldn't find any tcl test files to run.\n";
}
my $cmd = "$^X t/ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	16544	16634	
==>, 2
CASE_${jump}_${incase}_STARTOPS:
	eq I5, 1, CASE_${jump}_${incase}_NO_OP
	push P9, "or" <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5082	5184	
==>_} } @pmcs;

    my (@list_to_process) = (@ungrouped_pmcs, keys %$group_files);

    die "nothing found <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957556	957651	
==>);\n  if (n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\"encoding '%Ss' not found\", {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958461	958556	
==>);\n  if (n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\"encoding '%Ss' not found\", {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714556	714650	
==>{{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (s && string_length(interpreter, s) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715479	715573	
==>{{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (s && string_length(interpreter, s) <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6566	6659	
==>OOP_${CURIC}:
if ${ITEMP0} == 0 goto PRE_CALL_END_${CURIC}
dec ${ITEMP0}
dec ${ITEMP2}

# Gene <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	496	626	
==>er) = @_;

  my $kind        = $self->kind;
  my $peer        = $self->peer;

  my $prefix;

  if ($self->prefix) {
    $prefix = $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	476	606	
==>er) = @_;

  my $kind        = $self->kind;
  my $peer        = $self->peer;

  my $prefix;

  if ($self->prefix) {
    $prefix = $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	16210	16314	
==>w(Pod::Simple::PullParser);
 
 sub run {
   my $self = shift;
  Token:
   while(my $token = $self->get_to <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544454	544592	
==>!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n gcd = b<< <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545790	545928	
==>!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n gcd = b<< <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547126	547264	
==>!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n gcd = b<< <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	30949	31076	
==>=> $_step,
        'result' => $_var,
    );
    push @opcodes, new BranchOp( $parser,
        'result' => $lbl_loop,
    ) <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	25932	26030	
==>pt_back');
    my $next = $self->genlabel('after_greedy_opt');
    my ($R_back, @R_ops) = $self->re <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	16786	16881	
==>mple of a formatter
that uses Pod::Simple::PullParser.

=head1 METHODS

=over

=item my $token = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	5624	5802	
==>table{$symbol};
  }
}


###############################################################################

=head2 BLOCK->find_symbol(NAME)

Search for a symbol, starting with this b <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	25757	25865	
==>if $Opened_Testhandles;
    # We dup STDOUT and STDERR so people can change them in their
    # test suites w <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	11	112	
==>trol.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subje <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	99	298	
==>Translator
# Copyright (C) Jonathan Worthington 2005-2006
# #############################################################################
# Configure Script
# ################
# This file detects <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5342	5461	
==>pcode == 0) {
	union {
	    const void * __c_ptr;
	    void * __ptr;
	} __ptr_u;
        return (opcode_t *)const_cast($ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53406	53508	
==>MK/gco)
			{
				_parse("a resync to newline marker", $aftererror,$line);
				$item = new Parse::RecDes <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	37512	37768	
==>ow_exception(interpreter, {{\@1}}, ret);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRES <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	159	318	
==>GE;

  p6rule_is('abc', '^abc', 'BOS abc');
  p6rule_is("   int argc ",
    [
        [ type    => 'int | double | float | char' ],
        [ ident   => '\w+' ] <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	1114	1217	
==>y $self = shift;
  my ($handler) = @_;
  
  $handler->start_element({ Name => 'label', Attributes => { n <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2699	2802	
==>_ERROR("No type for dest!")  unless defined $dest_type;
  $self->INTERNAL_ERROR("No type for left!")  un <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2465	2568	
==>_ERROR("No type for dest!")  unless defined $dest_type;
  $self->INTERNAL_ERROR("No type for left!")  un <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2387	2490	
==>_ERROR("No type for dest!")  unless defined $dest_type;
  $self->INTERNAL_ERROR("No type for left!")  un <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1082	1173	
==>/local/include -pipe -fno-common -Wno-long-double  -I /opt/local/include   -g -Wall -Wstrict <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1140	1231	
==>/local/include -pipe -fno-common -Wno-long-double  -I /opt/local/include   -g -Wall -Wstrict <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1144	1235	
==>/local/include -pipe -fno-common -Wno-long-double  -I /opt/local/include   -g -Wall -Wstrict <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	1366	1472	
==>ce_standards.pl'),
            $self->new_item('', 'tools/docs/pod_errors.pl'),
            $self->new_item <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	46051	46135	
==>s_s;
}

#---------------------------------------------------------------------------- <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4082	4281	
==>^\\v//
                and $str .= "\x0b",    # vertical tab
                last;
            s/^\\([0-9]{1,3})//
                and $str .= chr $1, 
                last;

            s/^\\/ <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2568	2766	
==>^\\v//
                and $str .= "\x0b",    # vertical tab
                last;
            s/^\\([0-9]{1,3})//
                and $str .= chr $1,
                last;

            s/^\\/ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12547	12719	
==>);
                push @opcodes, @{ $key->[1] };
                my $result = $global->[0];
                foreach my $key2 ( @{$var} ) {
                    my $resul <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	563	672	
==>k $outfile;
    exit;
};

$file = shift @ARGV;
$file =~ s/\.c$//;
my $infile = $file . '.c';
die "$0: $infile: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540667	540799	
==>!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541919	542051	
==>!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543171	543303	
==>!(a & 1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378966	379320	
==>",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 443,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 432 \"s <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11051	11142	
==>rstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/sprintf('%%%02X',ord($1))/eg;
        # Yes, <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4400	4490	
==>rstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/sprintf('%%%02X',ord($1))/eg;
       # Yes, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	652842	653280	
==>,
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 730,
                  "ARGS" => [
                              "p",
                              "p",
                              "s"
                            ],
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786110	786199	
==>=> "#line 417 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed_int(in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787021	787110	
==>=> "#line 417 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed_int(in <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	18679	18791	
==>er.

=cut

sub minor_version
{
    my $self = shift;

    $self->{VERSION} =~ m/^\d+\.(\d+)\./;

    return $1;
} <==
3	/Users/nnunley/parrot/config/inter/lex.pm	85	177	
==>593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/lex.pm - lexical analyzer g <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19142	19233	
==>tem $parser->normal_halfpoint_size( I<halfpoint_integer> );

This method sets the size (in h <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	3868	3997	
==>p::wrap("    ", "    ", $fdecl) . "\n\n";
        }
    }    
}   

if (%all_errors) {
#    print STDERR "The following C::Scan pa <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	1887	2001	
==>nings as much as possible and make it
        # behave  ansi-ish.  Here's an attempt at a list of nasty things we c <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14852	14965	
==>y $x; # scratch
  if(!defined wantarray) { # void context: alter in-place!
    for(@_) {
      s/([F\x00-\x1F\-\\\ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16037	16146	
==>y $x; # scratch
  if(!defined wantarray) { # void context: alter in-place!
    for(@_) {
      s/([F\x00-\x1F\ <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	412	521	
==>t, $path_to_language, $count ) = @_;
 
    
    my $test_prog_args = $ENV{TEST_PROG_ARGS} || q{};
    my $lang <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	430	533	
==>t, $path_to_language, $count ) = @_;

    my $test_prog_args = $ENV{TEST_PROG_ARGS} || q{};
    my $lang <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729905	730006	
==>=> "#line 71 \"src/ops/set.ops\"\n   STRING * const temp = {{\@1}};\n   {{\@1}} = {{\@2}};\n   {{\@2}} <==
3	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1629	1744	
==>e smoke server.
  --version
    Outputs the version of this program and exits.
  --help
    Show this help.

Options <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910964	911167	
==>",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 284 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916876	917079	
==>",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917888	918091	
==>",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	269409	269747	
==>MP) > 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isge",
                  "FLAGS" <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1265	1366	
==>E', YYVERSION => '',
			 YYRULES => 'ARRAY', YYSTATES => 'ARRAY', YYDEBUG => '');
#Mandatory paramet <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1222	1321	
==>E', YYVERSION => '',
			 YYRULES => 'ARRAY', YYSTATES => 'ARRAY', YYDEBUG => '');
#Mandatory paramet <==
3	/Users/nnunley/parrot/config/init/hints/freebsd.pm	567	689	
==>e`;
    } else {
        $osversion = `/usr/sbin/sysctl -n kern.osreldate`;
    }
    chomp $osversion;

    $libs .= ' -pt <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	9148	9270	
==>ymbol = $TypeLong ? "unknown" : "D?";
			    }
			    $symbol .= "_data" if $TypeLong;
			} elsif ($undef) {
			    $symbol <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7024	7143	
==>DIRECTIVE OBJECTS
        my $new = [$1, {'start_line' => $self->{'line_count'}}, $2];
         # Note that in "=head1 f <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	3149	3255	
==>the object just created.
#

my %seen;

for $file (@ARGV) {
    if ($seen{$file}) {
	print STDERR "$0: Ops f <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	963	1060	
==>.
 }
 
...and start_/end_ methods for whatever other events you want to catch.

=head1 DESCRIPTION <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	20	108	
==>-2005, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Configure/Data.pm 20321 2006-06-20T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1108663	1108794	
==>if (type <= 0)\n                real_exception(interpreter, NULL, NO_CLASS,\n                    \"Class '%Ss' not found\", readable <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630533	630648	
==>if (type <= 0)\n        real_exception(interpreter, NULL, NO_CLASS,\n            \"Class '%Ss' not found\", readable <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631523	631638	
==>if (type <= 0)\n        real_exception(interpreter, NULL, NO_CLASS,\n            \"Class '%Ss' not found\", readable <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517946	518185	
==>e",
                  "CODE" => 597,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 734 \"src/ops/math.ops\"\n  {{\@1}} -= <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	552	658	
==>t = $self->maptree($t, sub { shift->{nocheck} = 1 });
    # Add necessary checks back in
    $t = $self->ad <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4334	4423	
==>lfpoint_size',
 'normal_halfpoint_size',
 'no_proofing_exemptions',
);


#~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	7987	8225	
==>ic"
                            ],
                  "BODY" => "#line 171 \"src/ops/core.ops\"\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	10160	10258	
==>arrot();
    my $parrot = File::Spec->join(File::Spec->curdir(), 'parrot' . $PConfig{exe});

    my <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24972	25062	
==>ess $closure, 'Text::Balanced::Extractor';
}

package Text::Balanced::Extractor;

sub extra <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835735	835818	
==>h(interpreter, &CONTEXT(interpreter->ctx)->user_stack, string_copy(interpreter, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836488	836571	
==>h(interpreter, &CONTEXT(interpreter->ctx)->user_stack, string_copy(interpreter, {{\@ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2083	2189	
==>nd_over_text    { --$_[0]{'Indent'} }
sub   end_over_block   { --$_[0]{'Indent'} }


# . . . . . Now the ac <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1651	1757	
==>nd_over_text    { --$_[0]{'Indent'} }
sub   end_over_block   { --$_[0]{'Indent'} }


# . . . . . Now the ac <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	1682	1785	
==>wend width window write
			keys
		);

sub dumpq {
	print "Upcoming: $type[0] $syms[0]\n";
	print "Curren <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40129	40282	
==>' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40976	41129	
==>' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/config/gen/platform.pm	4765	4885	
==>$verbose == 2;
            open IN_C, "< $impl_file" or die "Can't open $impl_file: $!";
            print PLATFORM_C <<" <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	5579	5676	
==>arrotAPI;

my $ParrotPrefix = qr/^(Parrot|PDB|PF|PIO|PackFile)_/;

for my $api (@API) {
    unless <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243925	244015	
==>"src/ops/cmp.ops\"\n  STRING* l = VTABLE_get_string(interpreter, {{\@2}});\n  {{\@1}} = str <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244857	244947	
==>"src/ops/cmp.ops\"\n  STRING* l = VTABLE_get_string(interpreter, {{\@2}});\n  {{\@1}} = str <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7220	7352	
==>BG>		and	$act
#DBG>		and	print STDERR "Reduce using rule ".-$act." ($lhs,$len): ";

                $act
            or  $self->Y <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6885	7013	
==>BG>		and	$act
#DBG>		and	print STDERR "Reduce using rule ".-$act." ($lhs,$len): ";

                $act
            or  $self->Y <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	14701	14785	
==>ce);
}

#---------------------------------------------------------------------------- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496476	496835	
==>e_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 570,
                  "ARGS" => [
                              "n",
                              "n" <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	1799	1922	
==>pen ' . $self->path . ": $!";
    my @lines = <$fh>;
    
    $fh->close;
    
    return wantarray ? @lines : join '', @lin <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	12452	12557	
==>xt = $self->genlabel('after_charclass');

    my @ops = (          aop('advance', [ $howfar, $lastback ]), <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	12733	12839	
==>preamble_ref},
            "t_$temp_num = GET_NCI_S($reg_num);";
        return "PObj_bufstart(t_$temp_num) <==
3	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	1160	1292	
==>e;
        $up_to_date = 0;
        last;
    }
    if ($1 != $checksum) {
        print "$output was built from different version of <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	15573	15684	
==>es
  # 

  my $self = $_[0];
  my $paras;
  return unless @{$paras = $self->{'paras'}};
  my $curr_open = ($self <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	3958	4066	
==>-") can be used instead of two ("--").
__EOF__
}

if ($^O eq 'solaris'      && $nm_try =~ /Solaris/) {
    $n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305139	305402	
==>OT_JUMP_RELATIVE",
                  "NAME" => "if_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305927	306190	
==>OT_JUMP_RELATIVE",
                  "NAME" => "if_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	6246	6372	
==>82,
 'alefsym'  , 8501,
 'larr'     , 8592,
 'uarr'     , 8593,
 'rarr'     , 8594,
 'darr'     , 8595,
 'harr'     , 8596,
 'c <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2459	2559	
==>ile we kinda find
	# basic blocks, we don't discover backward branches until late to do
	# otherwise. <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1037	1137	
==>ile we kinda find
	# basic blocks, we don't discover backward branches until late to do
	# otherwise. <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4461	4570	
==>m/$push_num/g;
		$push_num++;
	}

	# Return generated code.
	return $pir;
}

sub post_op($$) {
	# Nothing to d <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2877	2986	
==>m/$push_num/g;
		$push_num++;
	}

	# Return generated code.
	return $pir;
}

sub post_op($$) {
	# Nothing to d <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	5772	5864	
==>age Parrot::OpLib::$package;

use vars qw(\$VERSION \$ops \$preamble);

\$VERSION = "$version <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	47819	47952	
==>f( $_[0], $_[1], $_[2], $_[3], undef );
        }
	],
	[#Rule 20
		 '@5-9', 0,
sub
#line 132 "Lua\lua51.yp"
{
            Push <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	2092	2208	
==>ep /\S/, @funcs;

    # If it's got a semicolon, it's not a function header
    @funcs = grep !/;/, @funcs;

    chom <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10956	11068	
==>\n" if $DEBUG;
    open (IN, "<$infile") or die "Can't read $infile: $!\n";
    open (OUT, ">$outfile") or die "C <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11440	11552	
==>\n" if $DEBUG;
    open (IN, "<$infile") or die "Can't read $infile: $!\n";
    open (OUT, ">$outfile") or die "C <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11904	12016	
==>\n" if $DEBUG;
    open (IN, "<$infile") or die "Can't read $infile: $!\n";
    open (OUT, ">$outfile") or die "C <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	848	952	
==>d is present
in the op definition. This has the effect of causing all ops to be
considered manual.

=head <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2883	2986	
==>subroutine one"
   GOSUB Sub2
   PRINT "ERR this line in subroutine one should be skipped"
Label2:
   PR <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16850	16953	
==>subroutine one"
   GOSUB Sub2
   PRINT "ERR this line in subroutine one should be skipped"
Label2:
   PR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095226	1095467	
==>1}});\n  {{+=2}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095921	1096162	
==>1}});\n  {{+=2}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	1662	1851	
==>fix = ($4 || '');
                $subst  = ($6 || '');
                $in_def = $1;
                $last_val = -1;
                %values   = ();
                open INC, ">$inc.tmp" or <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	12399	12502	
==>rst
	foo as integer
	bar as string
end type
type second
	other as first
	narf as integer
	pnext as first <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13398	13501	
==>rst
	foo as integer
	bar as string
end type
type second
	other as first
	narf as integer
	pnext as first <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	62974	63064	
==>ng second block for quotelike "%s">

C<extract_codeblock> or C<extract_quotelike> found one <==
3	/Users/nnunley/parrot/config/auto/readline.pm	245	342	
==>upports readline.

=cut

package auto::readline;

use strict;
use vars qw($description @args);

us <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103981	1104069	
==>r, class);\n\t\ttype = pmc_type(interpreter, class);\n\t}\n\tif (type <= 0)\n\t\treal_exc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105196	1105284	
==>r, class);\n\t\ttype = pmc_type(interpreter, class);\n\t}\n\tif (type <= 0)\n\t\treal_exc <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	12049	12219	
==>ext
                $$val = $$val+0;
            }
        }
        else {
            $$val = 'undef';
        }
    }

    return $self->diag(sprintf <<DIAGNOSTIC, $got <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	12825	12930	
==>op, $lastback) = @_;
    return aop($op->{name}, [ @{ $op->{args} }, $lastback ]);
}

# scan(R) ->   scan: <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	23380	23484	
==>t to me. We also keep track of the fact that ARG0 should
	# only exist inside this rule.
	my @args = spli <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72124	72541	
==>",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 96,
                  "ARGS" => [
                              "p",
                              "p",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line <==
3	/Users/nnunley/parrot/config/gen/platform.pm	5149	5285	
==>-e $_) {
            local $/ = undef;
            print("\t$_\n") if defined $verbose && $verbose == 2;
            open IN_C, "< $_" or <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864000	864106	
==>=> "#line 143 \"src/ops/string.ops\"\n  UINTVAL n;\n  STRING *s = {{\@2}};\n  if (!s)\n    n = 0;\n  else { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864892	864998	
==>=> "#line 143 \"src/ops/string.ops\"\n  UINTVAL n;\n  STRING *s = {{\@2}};\n  if (!s)\n    n = 0;\n  else { <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	10776	10879	
==>lltype{$_} or "?"} split(/,/, $parameters));
    # TODO
    # scan src/call_list.txt if the generated si <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3809	3923	
==>c
    compile($_) foreach (@pmcs);

    # lib-GROUP.c
    for my $group (keys %$group_files) {
        compile("$gr <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3913	4027	
==>c
    compile($_) foreach (@pmcs);

    # lib-GROUP.c
    for my $group (keys %$group_files) {
        compile("$gr <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9971	10076	
==>ion myfunc(a)
	print a
	a=12
        myfunc=80
end function
z=5
T=myfunc(z)
print z

' Basic Hello
a$="Hel <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11584	11689	
==>ion myfunc(a)
	print a
	a=12
        myfunc=80
end function
z=5
T=myfunc(z)
print z

' Basic Hello
a$="Hel <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	52250	52361	
==>_stringify_lol {  # the real recursor
  my($lol, $to) = @_;
  use UNIVERSAL ();
  for(my $i = 2; $i < @$lol; ++$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650646	650748	
==>rpreter->n_vtable_max)\n        {{\@1}} = 1;\n    else if ({{\@2}} >= enum_first_type && {{\@2}} < enum <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651568	651670	
==>rpreter->n_vtable_max)\n        {{\@1}} = 1;\n    else if ({{\@2}} >= enum_first_type && {{\@2}} < enum <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367155	367446	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367946	368237	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368738	369029	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  " <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	20326	20440	
==>h file and add everything it exports to a list.
        my @exports = ();
        my $file = find_file($include, "p <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34569	34671	
==>ways true.

=cut

sub implements
{
    return 1;
}

=item C<body($method, $line, $out_name)>

Returns t <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	577	678	
==>)" => "return if start of input is b, advance 1 char" ],
    [ "classmatch(charclass)" => "return if s <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	34984	35086	
==>me link like L<Foo::Bar> or even L<Thing::1.0::Docs::Tralala>
          DEBUG > 1 and print "Catching \ <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	283	376	
==>:parrot_include;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	295	386	
==>strict;
eval "use warnings";

use Carp;

package Jako::Construct::Expression::Value::Identif <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	210	325	
==>hift;
    return "$var++";
}

sub output_assign {
    my ($var, $val) = @_;
    return "$var := $val";
}

sub output <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	4225	4339	
==>th});
    
    undef $_[0];
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::IO::Directory>

=item C<Parrot::IO: <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2090	2185	
==>FILES defaults to a recursive \" find . \".\n\n".
		"--plus-misses creates a second section, wit <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044300	1044687	
==>i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1167,
                  "ARGS" => [
                              "k",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 1 <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	1284	1439	
==>= 1;	
            return;
        }
        return if /malloc/;

        /^.*\.[ch]\z/s &&
            push @files, $File::Find::name;
    }}, '.');
}


FIL <==
3	/Users/nnunley/parrot/config/auto/byteorder.pm	1077	1191	
==>t_result('big-endian');
    } else {
        die "Unsupported byte-order [$byteorder]!";
    }

    return $self;
} <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	11163	11292	
==>potf      math.h
hypotl      math.h
ilogb       math.h
ilogbf      math.h
ilogbl      math.h
imag        complex.h
isalnum     cty <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632591	632686	
==>CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633633	633728	
==>CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(i <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	11043	11155	
==>ndef only matches undef and nothing else
        my $test = !defined $got && !defined $expect;

        $self->ok <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	11461	11573	
==>ndef only matches undef and nothing else
        my $test = !defined $got && !defined $expect;

        $self->ok <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	104	195	
==>5-30T15:23:20.183054Z coke  $

=head1 NAME

tools/dev/parrot_coverage.pl - Run coverage test <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30491	30591	
==><<DISP2;
	print "Structure type of "
	print S0
	print " not found\\n"
	_platform_shutdown()
	end
DISP <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30824	30924	
==><<DISP2;
	print "Structure type of "
	print S0
	print " not found\\n"
	_platform_shutdown()
	end
DISP <==
3	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	2206	2306	
==>n = <>;
}
#print Dump( $frozen );

# Parse the freeze-state
my $symtab = $frozen_parser->frozen( $fro <==
3	/Users/nnunley/parrot/lib/File/Which.pm	1762	1900	
==>esults, $file;
                # we can stop this loop as if it finds more aliases matching,
                # it'll just be the same resul <==
3	/Users/nnunley/parrot/tools/dev/gen_class.pl	1174	1284	
==>r the $classname base class
 *  Data Structure and Algorithms:
 *  History:
 *  Notes:
 *     Please remove <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1261	1345	
==>+X4+X6$MSK,X5)+X1$MSK;",
	GG => "X0=rotate_left((X2^(X3&(X1^X2)))+X0+X4+X6$MSK,X5)+X1 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	560	655	
==>L::isa($block, 'Jako::Construct::Block');
  confess("Dest (" . ref($dest) . ") is not Identifier <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	551	646	
==>L::isa($block, 'Jako::Construct::Block');
  confess("Dest (" . ref($dest) . ") is not Identifier <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	440	535	
==>L::isa($block, 'Jako::Construct::Block');
  confess("Dest (" . ref($dest) . ") is not Identifier <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	11327	11450	
==>est_no will be part of temporary file
            my $test_no = $builder->current_test() + 1;

            # Name of the fil <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	16812	16935	
==>est_no will be part of temporary file
            my $test_no = $builder->current_test() + 1;

            # Name of the fil <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	23737	23861	
==>//
      # The virtual end-document signal
      
      if(@$curr_open) { # Deal with things left open
        DEBUG and prin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018022	1018111	
==>gmtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = string_from_cstrin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018947	1019036	
==>gmtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = string_from_cstrin <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7597	7706	
==>ks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If the destination isn't a <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5715	5824	
==>ks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If the destination isn't a <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2468	2563	
==><expr_pop()>

Addresses on the stack are pointers into the bytecode array, and so
must be conver <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1145	1259	
==>}, $class;

  #
  # Check for a few bad conditions.
  #
  # NOTE: These are compiler internal consistency checks. T <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1048	1162	
==>}, $class;

  #
  # Check for a few bad conditions.
  #
  # NOTE: These are compiler internal consistency checks. T <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	118	246	
==>p version 1.05.
#
#        Don't edit this file, use source file instead.
#
#             ANY CHANGE MADE HERE WILL BE LOST ! <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	116	240	
==>p version 1.05.
#
#        Don't edit this file, use source file instead.
#
#             ANY CHANGE MADE HERE WILL BE LOST ! <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621127	621224	
==>_pc = interpreter->current_args;\n    mic = (Parrot_MIC *) cur_opcode[1];\n    caller_ctx = ctx->c <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2396	2509	
==>e($what);
    return ("print $what;");
}

sub output_test {
    my ($self, $test, $val1, $val2, $dest) = @_;
    $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2713	2825	
==>e($what);
    return ("print $what");
}

sub output_test {
    my ($self, $test, $val1, $val2, $dest) = @_;
    $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	30784	30886	
==>n
# attribute; a Pod name (like "perldoc" and "Getopt::Std" are); or
# possibly a man page name (like " <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1869	1974	
==>path;
    
    return $self->SUPER::new($path);
}

=back

=head2 Instance Methods

=over 4

=item C<create <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	846	951	
==>path;
    
    return $self->SUPER::new($path);
}

=back

=head2 Instance Methods

=over 4

=item C<create <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	4075	4182	
==>'-p';
} elsif ($^O eq 'hpux'    && $nm_try =~ /linker command|HP-UX/) { 
    $nm_opt = '-p';
} elsif ($^O eq <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	3577	3673	
==>tory_paths()>

These are the full paths of all the files and subdirectories in the directory.

=c <==
3	/Users/nnunley/parrot/lib/Test/More.pm	34532	34626	
==>.004_05.


=item Overloaded objects

String overloaded objects are compared B<as strings>.  Thi <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	4466	4645	
==>"",
     );

my %sig_char =
     ( p => "P",
       i => "I",
       3 => "P",
       2 => "P",
       4 => "P",
       l => "I",
       c => "I",
       s => "I",
       f => "N", <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	3912	4004	
==>p->{args}->[0]->minlen() }
sub maxlen { my ($op) = @_; $op->{args}->[0]->maxlen() }
sub start <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	278591	278843	
==>CODE" => 324,
                  "ARGS" => [
                              "i",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 886 \"src/ops/cmp.ops\"\n  {{\@1}} = (m <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	4167	4283	
==>ta{lib}) {
        # don't allow libraries to be installed into subdirs of libdir
        $dest = File::Spec->catdir( <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4750	4860	
==>)/
      or die "copy command requires destination";
    my $dest = $1;

    my ($group_files, $group_libs, $pm <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4854	4964	
==>)/
      or die "copy command requires destination";
    my $dest = $1;

    my ($group_files, $group_libs, $pm <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	437	532	
==>------------------
#
# The basic work of this module Pod::Simple::BlackBox is doing the dirty wo <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	156	326	
==>ools/dev/lib_deps.pl 19607 2006-05-30T15:23:20.183054Z coke  $
################################################################################

=head1 NAME

tools/dev/lib <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	9702	9803	
==>ckage
name as the class name.

An object of a class created by the first and third forms is
based on a <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	8862	8963	
==>noverload(\$name);

    $self->diag(<<ERR) if defined $name and $name =~ /^[\d\s]+$/;
    You named yo <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4497	4636	
==>^#DBG>//;
                	push(@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note that for <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4273	4402	
==>^#DBG>//;
                	push(@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note that for <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	324	436	
==>_[0]->can( 'start_' . $_[1] )
    || return
  )->(
    $_[0], $_[2]
  );
}

sub _handle_text {
  ( $_[0]->can( 'h <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730325	730701	
==>",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 819,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#l <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1058	1149	
==>d-token with the tagname of "head1".

=item $token->tagname(I<somestring>)

This changes the <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1486	1577	
==>d-token with the tagname of "head1".

=item $token->tagname(I<somestring>)

This changes the <==
3	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	1931	2114	
==>e =~ $blank_before ) {
                push @output, [ 1, q{} ];
            }

            if ( $line ne q{} ) {
                if ( $line =~ $block_end ) {
                    $leve <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2049	2139	
==>truct::Expression::Value::Identifier')) {
      my $arg_sym = $self->block->find_symbol($ar <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1749	1839	
==>truct::Expression::Value::Identifier')) {
      my $arg_sym = $self->block->find_symbol($ar <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9639	9754	
==>@_;
    return ("$dest = length $string;");
}

sub output_arg {
    my ($self, $name, $type, $value) = @_;
    $valu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2121	2221	
==>->prefix) {
    $self->prefix($self->peer->prefix);
  }

  if ($self->prefix) {
    $handler->start_e <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1998	2098	
==>->prefix) {
    $self->prefix($self->peer->prefix);
  }

  if ($self->prefix) {
    $handler->start_e <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4858	4954	
==>ex,$error)
     = @$self{ 'RULES', 'STATES', 'LEX', 'ERROR' };
	my($errstatus,$nberror,$token,$ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4618	4712	
==>ex,$error)
     = @$self{ 'RULES', 'STATES', 'LEX', 'ERROR' };
	my($errstatus,$nberror,$token,$ <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	5730	5857	
==>, included by:\n";
            foreach my $file (sort keys %{$system_include{$include}}) {
                print "        $file\ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6062	6161	
==>quire_open_paren    { return shift->require('open-paren');    }
sub require_infix_rel     { return s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3357	3454	
==>s('VerbatimFormatted');
  DEBUG > 2 and print "To accept: ", join(' ',@_to_accept), "\n";
  $new-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621377	621482	
==>\tsrc_pred = NULL;\t/* just for gcc */\n    }\n    lru = &mic->lru;\n    if (lru->u.signature == sig) {\n\ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	18	120	
==>rser;

use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

$VERSION   = '0.01';
@I <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11819	11918	
==>defined $super_table->{$method};
    my $supermethod = "Parrot_" . $super_table->{$method} . "_$meth <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22349	22461	
==>->text . $title if $t->type eq 'text';
      }
      undef $title if $title =~ m<^\s*$>; # make sure it's content <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22833	22945	
==>->text . $title if $t->type eq 'text';
      }
      undef $title if $title =~ m<^\s*$>; # make sure it's content <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18845	18954	
==>p_1);
      $temp_1 = $temp_2;
    }
    $self->_add_inst ('', 'ne', [$temp_0,$temp_1,"DONE_$label"]);
    $se <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1438	1568	
==>to_address
{
    my ($self, $addr) = @_;

    #print STDERR "pbcc: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
        retu <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1963	2093	
==>to_address
{
    my ($self, $addr) = @_;

    #print STDERR "pbcc: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
        retu <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1854	1983	
==>to_address
{
    my ($self, $addr) = @_;

    #print STDERR "pbcc: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
  	    retu <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10628	10735	
==>/;
        $section =~ tr/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
        $section = $self->unicode_escape_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4013	4112	
==>/;
    $section =~ tr/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
    $section = $self->unicode_escape_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	733	831	
==>Formatted' => "</pre>\n",
  'VerbatimB'  => "<b>",
  '/VerbatimB' => "</b>",
  'VerbatimI'  => "<i> <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9280	9393	
==>parsing

#DBG>			$debug & 0x10
#DBG>		and	do {
#DBG>			print STDERR "**Entering Error recovery.\n";
#DBG>			+ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8864	8972	
==>parsing

#DBG>			$debug & 0x10
#DBG>		and	do {
#DBG>			print STDERR "**Entering Error recovery.\n";
#DBG>			+ <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	581	677	
==>e testing.

=cut

sub new {
    my $test_module = $ENV{'PARROT_BC_TEST_MODULE'} || 'Parrot::Test: <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	22896	23017	
==>sed with B::Deparse
    return if $^C;

    my $msg = join '', @msgs;

    local($\, $", $,) = (undef, ' ', '');
    my $f <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	743	833	
==>$class->new($file, $line, 'eof', undef, '__EOF__');
}

my $BOF = Jako::Token->new_bof(undef <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2679	2768	
==>th C<suffix()> and an underscore appended.

=item C<run_core_func_decl($base)>

Optionally <==
3	/Users/nnunley/parrot/Configure.pl	7501	7628	
==>ill also be disabled if you specify any other
                        of the following ICU options.

   If you do not have a ful <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4925	5037	
==>verbose') == 2;

    print "Setting trigger $trigger on configuration key $key\n",
        if $verbose;

    $sel <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	12713	12824	
==>");
  } else {
    {
      local *PODSOURCE;
      open(PODSOURCE, "<$source") || Carp::croak("Can't open $sourc <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	25822	25939	
==>t_mmds) {
        next if $dynpmc eq $classname;
        $cout .= <<"EOC";
        assert(my_enum_class_$dynpmc != enu <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	12479	12572	
==>ing_to_cstring(interpreter, GET_NCI_S($reg_num));";
        push @{$extra_postamble_ref}, "str <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5403	5493	
==>nc stack_depth 
${STEMP0} = "$"
${STEMP1} = ${LOADTYPE}["reg_type_short"]
${STEMP0} = conca <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	2002	2319	
==>ions.\n";


##############################################################################
# Subroutines.
##############################################################################

# Parse rules file and build a data structure.
# ############################################
sub parse_rules($) {
    # Get filenam <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389462	389765	
==>on",
                  "CODE" => 453,
                  "ARGS" => [
                              "p",
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 464 \"src/ops/io.ops\"\n  if ( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	2257	2374	
==>f           { return shift->is('eof');           }
sub is_exfix_arith   { return shift->is('exfix-arith');   }
sub is_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	21294	21426	
==>_ic = bc.read_uint8()\n    next_pc += 1\n";
            $pir .= binary_dispatch_table($_, @rules);
        }
    } else {
        # O <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627235	627333	
==>", (int){{\@2}});\n  }\n\n  /* Why?? If we're creating a continuation, the continuation PMC\n   * n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628379	628477	
==>", (int){{\@2}});\n  }\n\n  /* Why?? If we're creating a continuation, the continuation PMC\n   * n <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	7289	7397	
==>n the shortest match of this subtree?
    if (($t->minlen() || 0) > $guarantee) {
        my $newtree = $self <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561877	561970	
==>ter, {{\@2}}, {{\@3}});\n  if (!{{\@1}}) {\n    real_exception(interpreter, next, METH_NOT_FOU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562961	563054	
==>ter, {{\@2}}, {{\@3}});\n  if (!{{\@1}}) {\n    real_exception(interpreter, next, METH_NOT_FOU <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11569	11677	
==>f, $name) = @_;
    return ($self->output_match_failed(),
            ".return (<rx_match>)");
}

sub output_ <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	5331	5461	
==>s),
        TEMP_pmc_o           => $TEMP_pmc_o,
        TEMP_pmc_build       => $TEMP_pmc_build,
        TEMP_pmc_classes_o   => $ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39023	39149	
==>method->{type});
        $ret = "return ret_val;";
        if ($type !~ /\*/) {
            $ret_type = "_ret" . lc substr $typ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4864	4957	
==>${ITEMP0}
${PTEMP0} = ${STYPES}[${ITEMP0}]

# We'll use register $[INSP]0.
${STACK0} = "$"
${S <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	13194	13333	
==>ses, then double the
        # enclosing parentheses and add a space around the argument,
        # like so:
        #
        #    goto OFF <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	3590	3698	
==>0] : \$_;
	my $ldel = defined $_[1] ? $_[1] : '{([<';
	my $pre  = defined $_[2] ? $_[2] : '\s*';
	my $wantarr <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3862	3963	
==>ses, then double the enclosing
parentheses and add a space around the argument, like so:

    goto OFF <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	21991	22130	
==>";
    }
}


sub ret_val {
    my $a = shift;
    my %rets = (
	'id'       => 'I',
    );
    return $rets{$a} if defined $rets{$a};
    ret <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1591	1680	
==>not a Jako::Construct::Type instance!")
    unless UNIVERSAL::isa($type, "Jako::Construct: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1439	1528	
==>not a Jako::Construct::Type instance!")
    unless UNIVERSAL::isa($type, "Jako::Construct: <==
3	/Users/nnunley/parrot/config/inter/progs.pm	522	619	
==>e::Step ':inter';

$description = 'Determining what C compiler and linker to use';

@args = qw(ask <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6958	7053	
==>ARAMS}[${ITEMP0}] = ${STEMP0}

# Emit code to pop the register.
${INS} = concat ${STEMP0}
${INS} <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	4382	4473	
==>_add_inst ('', 'new',[$return,'.Integer']);
      $self->_add_inst ('', 'set',[$return,$valu <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8157	8252	
==>ame($name)>

Returns a directory with the specified name in the directory.

=cut

sub existing_d <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1108315	1108448	
==>_str_val({{\@2}}));\n            if (type <= 0)\n                real_exception(interpreter, NULL, NO_CLASS,\n                    \"Cl <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77146	77250	
==>str($_[0],0,$::RD_TRACE) . "...<+$count>";
	}
	else
	{
		return $_[0];
	}
}

my $lastcontext = '';
my $la <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	31083	31181	
==>> codes without a "name|" part, only E<...> and Z<> codes may
# occur -- no other formatting codes. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	2402	2598	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cpu_ret",
                  "FLAGS" => "",
                  "ARGDIRS" => [],
                  "TYPE" => "inli <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9510	9636	
==>: discard it
		and	do {
				$$token eq ''	# End of input: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	print STD <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9082	9203	
==>: discard it
		and	do {
				$$token eq ''	# End of input: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	print STD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5505	5743	
==>BELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "load_bytecode",
                  "FLAGS" => ":lo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6170	6408	
==>BELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "load_bytecode",
                  "FLAGS" => ":lo <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	4829	4940	
==>$fail;
    for my $index ( 0 .. $#section ) {
        my ($name, $p, $ext) = fileparse($_, @{ $suffix{ $section[ <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	5178	5376	
==>{
                $pre = "\\(";
                $pst = ")";
                $cmt = " # returns ref";
            }
            $out .= "  sub $name {$cmt\n    my \$r = shift;\n";
            if( $bas <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	2121	2227	
==>ion' returns a string assume that this is bison.
    # if this is bison pretending to be yacc '--version' d <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717967	718061	
==>\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_fprint <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718899	718993	
==>\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_fprint <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50264	50484	
==>PROFILE_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51057	51277	
==>PROFILE_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6527	6616	
==>TEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC}:
if ${ITEMP0} == 0 goto PRE_CALL_END_$ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10998	11093	
==>]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pre_call_HAS_RETURN_${CURIC}
if "${CURIC}" == "73" goto <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8184	8279	
==>]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pre_call_HAS_RETURN_${CURIC}
if "${CURIC}" == "73" goto <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5846	5941	
==>]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pre_call_HAS_RETURN_${CURIC}
if "${CURIC}" == "73" goto <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84982	85266	
==>JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85888	86172	
==>JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
3	/Users/nnunley/parrot/config/init/hints/linux.pm	205	314	
==>$self, $conf) = @_;

    my $libs      = $conf->data->get('libs');
    my $cflags    = $conf->data->get('ccfla <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94948	95038	
==>/bit.ops\"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95841	95931	
==>/bit.ops\"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96734	96824	
==>/bit.ops\"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	8934	9230	
==>abel(\w*)/)
                {
                    push @labels, 1;
                    $use = "in$1";
                }
                else
                {
                    push @labels, 0;
                }

                if ($use eq 'in')
                {
                    push @temp <==
3	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	3007	3201	
==>files;
    print F "gcc -lm -o parrot " . (join ' ', @obj_files) . "\n";
    close(F);
}


############################################################################
sub run_command {
    my ($ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	10309	10412	
==>::RD_NO_TRACE? '':'
		Parse::RecDescent::_trace(q{<<Didn\'t match rule>>},
					 Parse::RecDescent::_tra <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3503	3599	
==>->get_symbol(NAME)

Attempt to get a symbol from this block's symbol table only. If there is no
l <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	683	794	
==>xpression::Value::Identifier');

  my $self = bless {
    BLOCK => $block,
    IDENT => $ident
  }, $class;

  $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	683	794	
==>xpression::Value::Identifier');

  my $self = bless {
    BLOCK => $block,
    IDENT => $ident
  }, $class;

  $ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	28838	28930	
==>ng any test output, for example, when current_test() is changed.
In these cases, Test::Builde <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605395	605639	
==>"JUMP" => 0,
                  "NAME" => "addattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606185	606429	
==>"JUMP" => 0,
                  "NAME" => "addattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ] <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	405	500	
==>it/cpu-architecture-name/core.jit>).

=cut

use strict;
use warnings;
use lib 'lib';

use Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1518	1655	
==>the transform's arguments.

=cut

sub args
{
    my $self = shift;

    if (@_)
    {
        $self->{ARGS} = [ @_ ];
    }
    else
    { <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1127	1264	
==>the transform's arguments.

=cut

sub args
{
    my $self = shift;

    if (@_)
    {
        $self->{ARGS} = [ @_ ];
    }
    else
    { <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	15873	16004	
==>until sh[lr]_i_i ops are implemented.
    # TODO: Should we really be allowing the shift constant to be negative?
    #

    if ($to <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	25157	25310	
==>il');
    my ($R_back, @R_ops) = $self->rewrite($R, $rfail);

    my @ops = (
                        @R_ops,
                        aop('pushint', [ 1 ] <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7851	7962	
==>reg");
}

sub output_refresh {
    my ($self, $reg) = @_;
    $reg = value($reg);
    return ("restore $reg", "s <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	3466	3570	
==>al destination of each is reached, then replace the original
    # reference.

    foreach my $stmt (@out <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	18947	19053	
==>'scan' => [ $_[1] ]); }
	],
	[#Rule 7
		 'regex1', 1,
sub
#line 103 "lib/Regex/Grammar.y"
{ return $_[1]; } <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3391	3484	
==>ies L<Pod::PXML>, L<Pod::XML>, L<Pod::SAX>


=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3043	3136	
==>ies L<Pod::PXML>, L<Pod::XML>, L<Pod::SAX>


=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116946	117180	
==>[
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 209 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} << {{\@3}};\n  {{ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	1287	1402	
==>e}->{$count};
    }
  }
}

sub _save_1 {
  my $self = shift;
  my $type = shift || 'I';
  my @temp = $self->_save(1, <==
3	/Users/nnunley/parrot/config/inter/progs.pm	3644	3741	
==>(libs => $libs);

    $cxx = integrate($conf->data->get('cxx'), $conf->options->get('cxx'));
    $ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1436	1529	
==>s)=shift;
	my($errst,$nberr,$token,$value,$check,$dotpos);
    my($self)={ ERROR => \&_Error <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1387	1478	
==>s)=shift;
	my($errst,$nberr,$token,$value,$check,$dotpos);
    my($self)={ ERROR => \&_Error <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	2449	2573	
==>shift;
    my $token = shift;
    my $tagname = $token->tagname;

    if ( $tagname eq 'L' ) 
    {
        $self->process_li <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5824	5920	
==>{code}}, "IFBRANCH_$_:\n";
			}
			while($_=pop(@{$elsestack->{$elsetag}})) {
				push @{$code{$s <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8170	8263	
==>{code}}, "IFBRANCH_$_:\n";
		}
		while($_=pop(@{$elsestack->{$elsetag}})) {
			push @{$code{$s <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4281	4397	
==>_libs->{$group}, [ "lib-$group", @$pmcs ] )
          or die "partial link of $group failed ($?)\n";
    }

    # Lin <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4385	4501	
==>_libs->{$group}, [ "lib-$group", @$pmcs ] )
          or die "partial link of $group failed ($?)\n";
    }

    # Lin <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1735	1850	
==>23, S41 => 6, S42 => 10,
	S43 => 15, S44 => 21
  );

  my $insert = "";
  while(<DATA>) {
	chomp;
	next unless /^[FG <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11738	11831	
==>TEMP1} = elements ${STYPES}
dec ${ITEMP1}
${PTEMP0} = ${STYPES}[${ITEMP1}]
${STEMP0} = "$"
${S <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8801	8894	
==>TEMP1} = elements ${STYPES}
dec ${ITEMP1}
${PTEMP0} = ${STYPES}[${ITEMP1}]
${STEMP0} = "$"
${S <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7373	7466	
==>TEMP1} = elements ${STYPES}
dec ${ITEMP1}
${PTEMP0} = ${STYPES}[${ITEMP1}]
${STEMP0} = "$"
${S <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19501	19638	
==>FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 100,
			'functioncall' => 31,
			'explist1' => 1 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21666	21803	
==>FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 100,
			'functioncall' => 31,
			'explist1' => 1 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33181	33318	
==>FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 100,
			'functioncall' => 31,
			'explist1' => 1 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	973	1094	
==>BUG => 1,
    FILE  => $ident->file,
    LINE  => $ident->line
  }, $class;

  $block->push_content($self);

  return $sel <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	712	833	
==>BUG => 1,
    FILE  => $ident->file,
    LINE  => $ident->line
  }, $class;

  $block->push_content($self);

  return $sel <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1394	1515	
==>BUG => 1,
    FILE  => $ident->file,
    LINE  => $ident->line
  }, $class;

  $block->push_content($self);

  return $sel <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509025	509248	
==>.ops\"\n  {{\@1}} = - {{\@1}};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509656	509879	
==>.ops\"\n  {{\@1}} = - {{\@1}};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20517	20641	
==>FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 115,
			'functioncall' => 31,
			'f <==
3	/Users/nnunley/parrot/tools/dev/symlink.pl	1153	1260	
==>c($toolsrcdir[-1]) eq 'dev' &&
         lc($toolsrcdir[-2]) eq 'tools';
my @topsrcdir = @toolsrcdir[0..$#too <==
3	/Users/nnunley/parrot/config/auto/snprintf.pm	836	938	
==>->data->set(HAS_C99_SNPRINTF => 1);
    } elsif ($res =~ /^old snprintf/) {
        $conf->data->set(HA <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	265	367	
==>e syntax highlighting file for Parrot IMCC.\n",
        "Supply the path to your Parrot directory as th <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10324	10437	
==>rammar.y"


use constant TRUE => "TRUE";
use constant FALSE => 0;

sub tokenize {
    my $data = shift;

    my @t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023380	1023472	
==>{\@2}};\n  Parrot_localtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024230	1024322	
==>{\@2}};\n  Parrot_localtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3} <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2848	2953	
==>malizing the current
    # working dir to be '.'.
    return (defined $rel_path and $rel_path eq '') ? '.' <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	6426	6552	
==>57,
 'rArr'     , 8658,
 'dArr'     , 8659,
 'hArr'     , 8660,
 'forall'   , 8704,
 'part'     , 8706,
 'exist'    , 8707,
 'e <==
3	/Users/nnunley/parrot/config/init/hints/irix.pm	17	105	
==>005, The Perl Foundation.
# $Id: /parrot/config/init/hints/irix.pm 19593 2006-05-30T02:28 <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	20375	20498	
==>opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new NewOp( $parser,
        'resu <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21654	21777	
==>opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new NewOp( $parser,
        'resu <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	22797	22920	
==>opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new NewOp( $parser,
        'resu <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	26	121	
==>syntax highlighting XML file for IMCC
# Language:	Parrot IMCC
# Maintainer:	Andy Bussey <andybus <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561783	561873	
==>7 \"src/ops/object.ops\"\n  opcode_t *next = {{^+4}};\n  {{\@1}} = VTABLE_find_method(inter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562867	562957	
==>7 \"src/ops/object.ops\"\n  opcode_t *next = {{^+4}};\n  {{\@1}} = VTABLE_find_method(inter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518679	518917	
==>inline",
                  "CODE" => 598,
                  "ARGS" => [
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 734 \"src/ops/math.ops\"\n  {{\ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	925	1028	
==>ubs.
	return "";
}

# Label generation.
sub gen_label() {
	# We'll emit a label for every single instruc <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	682	785	
==>ubs.
	return "";
}

# Label generation.
sub gen_label() {
	# We'll emit a label for every single instruc <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	8191	8300	
==>el, $format, @args) = @_;

  return unless defined $self->debug and $self->debug >= $level;

  my $message = $ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	37438	37540	
==>_string_eq_p,
  'string<?'      => \&_op_string_lt_p,
  'string>?'      => \&_op_string_gt_p,
  'string <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	5079	5199	
==>cursive = shift;
    my $ignore = shift;
    my @files = map {$self->file_with_path($_)} $self->file_paths;
    
    if ( <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	581	681	
==>cb);
    $data->gettriggers($key);
    $data->gettrigger($key, $trigger);
    $data->deltrigger($key, <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	4368	4462	
==>ion and generate Parrot Assembler Code.
Pass unless the generated PASM is $expected.

=item C<c <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	62	151	
==>/tools/dev/parrot_coverage.pl 19607 2006-05-30T15:23:20.183054Z coke  $

=head1 NAME

tool <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	6876	6999	
==>You gave it '$max'.\n"
          unless $max =~ /^\+?\d+$/ and $max > 0;

        $self->{Expected_Tests} = $max;
        $s <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	5025	5138	
==>to
    # move around.
    my $next;
    for my $stmt (reverse @output2) {
	$stmt->{'next'} = $next;
	$next = $stmt <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	291	385	
==>ection describing libraries in Parrot.

=head2 Class Methods

=over

=cut

package Parrot::Docs <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28184	28274	
==>sep||"").$text;
			}'.($::RD_NO_TRACE?'':'
			Parse::RecDescent::_trace(q{<<Didn\'t match t <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32459	32549	
==>sep||"").$text;
			}'.($::RD_NO_TRACE?'':'
			Parse::RecDescent::_trace(q{<<Didn\'t match t <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	22120	22238	
==>uct _vtable temp_base_vtable = {
        NULL,	/* namespace */
        $enum_name,	/* base_type */
        NULL,	/* who <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	5823	5923	
==>only GOSUB/GOTO allowed";
		}
		push @{$code{$seg}->{code}}, "ON_${ons}_$i:\n";
		$i++;
	}
	if ($bran <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	23547	23655	
==>rstpos = $unkpos unless defined $firstpos;
			$lastpos = length $$textref;
		}
		last;
	}

	pos $$textref = $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	3503	3609	
==>mcc;
  my $name  = $self->name;
  my $value = $self->value->value;

  if ($self->is_global) {
    $compiler <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4052	4155	
==>1..$pushes) {
		$pir .= <<'PIR';
# Increment stack depth.
inc stack_depth

# Get type (so we can find re <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2468	2571	
==>1..$pushes) {
		$pir .= <<'PIR';
# Increment stack depth.
inc stack_depth

# Get type (so we can find re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	652689	652862	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RESTART",
                  "NAME" => "find_method",
                  "FLAGS" => "",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653849	654022	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RESTART",
                  "NAME" => "find_method",
                  "FLAGS" => "",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1532	1645	
==>$pattern) = (shift, shift);

    unshift @_ => 'matched';
    unshift @_ => ( ref $pattern
        ? Parrot::Test: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247622	247915	
==>\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	248486	248779	
==>\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	249350	249643	
==>\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566959	567256	
==>,
                  "NAME" => "does",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567853	568150	
==>,
                  "NAME" => "does",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	5177	5313	
==>'Eta'      , 919,
 'Theta'    , 920,
 'Iota'     , 921,
 'Kappa'    , 922,
 'Lambda'   , 923,
 'Mu'       , 924,
 'Nu'       , 925,
 'Xi' <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2331	2459	
==>ibrary) {
        my $hout = $self->gen_h($library);
        my $h = "$library.h";
        my $c = "$library.c";
        _write_a <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	69675	69784	
==>sing "perl -s")
		       for hints on fixing these problems.');
	}
	if ($ERRORS) { $ERRORS=0; return }
	return <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	26616	26722	
==>->{flags}{dynpmc}) {
        $cout .= "#define PARROT_IN_EXTENSION\n";
    }
    $cout .= $self->line_direc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660056	660148	
==>ODY" => "#line 334 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtabl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660978	661070	
==>ODY" => "#line 334 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtabl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443622	443730	
==>2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444637	444745	
==>2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LA <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	4633	4738	
==>he first begins with a
    # labelled statement. Next, do a reachability analysis to find
    # unreachabl <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	679	779	
==>_label {
	die "gen_label not implemented for current stack to register mapper\n";
}

# Pre and post s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023372	1023463	
==>ime_t) {{\@2}};\n  Parrot_localtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024222	1024313	
==>ime_t) {{\@2}};\n  Parrot_localtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864547	864906	
==>RS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 981,
                  "ARGS" => [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 143 \ <==
3	/Users/nnunley/parrot/config/init/miniparrot.pm	1518	1692	
==>capable         => 0,
        execcapable        => 0,
        cc_hasjit          => '',
        TEMP_jit_o         => '',
        TEMP_exec_h        => '',
        TEMP_exec_ <==
3	/Users/nnunley/parrot/config/auto/jit.pm	5809	5968	
==>capable  => 0,
            execcapable => 0,
            cc_hasjit   => '',
            TEMP_jit_o  => '',
            TEMP_exec_h => '',
            TEMP_exec_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14690	14775	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#----------------------------- <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14713	14798	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#---------------------------------------------------- <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14736	14819	
==>~~~~~~~~~
#------------------------------------------------------------------------- <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1498	1631	
==>"pbcc: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
        return "return (0);"
    }
    else
    {
        return "if ((opco <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2023	2155	
==>"pbcc: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
        return "return (0);"
    }
    else
    {
  	    return "if ((opco <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	15154	15246	
==>lib load function - called once
 */

$sym_export PMC*
$load_func(Parrot_Interp interpreter)
{ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	14546	14784	
==>R or tryS
#                push 0
#                goto next
#          tryS: S or tryT
#                push 1
#                goto next
#          tryT: T or lastback
#                push 2
#                goto next
#          back: p <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8244	8370	
==>e fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg = value($reg);

    my @ops = <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7897	8023	
==>e fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg = value($reg);

    my @ops = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1749	1882	
==>ned $sym) {
    $self->SYNTAX_ERROR("Redeclaration of identifier '%s'. Previous declaration on line %d of file '%s'.",
      $name, $s <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12924	13039	
==>rectory to the file and return that
    # as the link.
    
    my $dist = Parrot::Distribution->new;
    my $file = <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Examples.pm	886	1022	
==>Subroutines',          '', 'examples/subs'),
            $self->new_group('IO',                   '', 'examples/io'),
            $self-> <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7139	7228	
==>"
${STEMP0} = ${LOADTYPE}["reg_type_short"]
${DEST0} = concat ${STEMP0}
${STEMP0} = stack_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4961	5050	
==>"
${STEMP0} = ${LOADTYPE}["reg_type_short"]
${DEST0} = concat ${STEMP0}
${STEMP0} = stack_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81974	82233	
==>n't use compile - just invoke the compiler\");\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82868	83127	
==>n't use compile - just invoke the compiler\");\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	201	290	
==>Construct/Block/Conditional/Unless.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use str <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	2317	2438	
==>('linkflags', $linkflags);
        print " (no) " if $verbose;
        $self->set_result('no');
    }

    return $self;
} <==
3	/Users/nnunley/parrot/config/auto/readline.pm	2117	2238	
==>('linkflags', $linkflags);
        print " (no) " if $verbose;
        $self->set_result('no');
    }

    return $self;
} <==
3	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1188	1298	
==>t, output => $output };
    }
    
    Test::More::plan( tests => scalar(@spec) );

    generate_regular($patte <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	3018	3121	
==>local int ii
    .local int valid_flag
    set num_groups, result["!GROUPS"]
    set match_num, 0
printL <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3958	4058	
==>{$prm}=$value;
	}
	for (@$mandatory) {
			exists($$outhash{$_})
		or	croak("Missing mandatory par <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3759	3855	
==>{$prm}=$value;
	}
	for (@$mandatory) {
			exists($$outhash{$_})
		or	croak("Missing mandatory par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494322	494415	
==>Y" => "#line 590 \"src/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495190	495283	
==>Y" => "#line 590 \"src/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496058	496151	
==>Y" => "#line 590 \"src/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061786	1062005	
==>ter->ctx)->current_namespace;\n    {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3327	3503	
==>arent block!" if $self->find_symbol($name);

  $self->{SYMBOLS}{$name} = $sym;
}


###############################################################################

=head2 BLOCK- <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	71938	72032	
==>CURSION

		if ($rule->isleftrec($rules))
		{
			_error("Rule \"$rule->{name}\" is left-recursiv <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27571	27670	
==>->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'unless')
		. <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29681	29780	
==>->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'unless')
		. <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31778	31877	
==>->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'unless')
		. <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	23020	23149	
==>s node, but something about that seems icky.
      }
      if(ref $is) {
        my @dynasty = @$is;
        DEBUG > 4 and print " <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	12	107	
==>imwitted pod2plaintext that need only know how to format whatever
# text comes out of Pod::Black <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5288	5407	
==>%02X>',ord($_))
#DBG>					:	$_;
#DBG>		}
#DBG>		$tok.='<';
#DBG>	};

	$$errstatus=0;
	$$nberror=0;
	($$token,$$v <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5036	5147	
==>%02X>',ord($_))
#DBG>					:	$_;
#DBG>		}
#DBG>		$tok.='<';
#DBG>	};

	$$errstatus=0;
	$$nberror=0;
	($$token,$$v <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	9011	9105	
==>self->_add_inst('', 'returncc');
  $self->_add_inst("DONE_$label");

  $self->{regs} = pop @{$s <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	2804	2922	
==>> 'double');
        print <<'END';

Can't find a float type with size 8, conversion ops might fail!

END
    }

    my <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	55488	55591	
==>rser->{deferred}}, sub $code;",
					      $lookahead,$line,"<defer:$code>");
				$prod and $prod->addit <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814791	815072	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 920,
                  "ARGS" => [
                              "p <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	3955	4047	
==>pile the Parrot Intermediate Representation and generate Parrot Assembler Code.
Pass if the g <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	4138	4230	
==>pile the Parrot Intermediate Representation and generate Parrot Assembler Code.
Pass if the g <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	2312	2431	
==>t( /\n/, $proto, 2 );
    my $returntype = $parts[0];
    my $parms = $parts[1];

    $parms =~ s/\s+/ /g;
    $parms =~ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	17107	17220	
==>},
				 pos $$textref;
			pos $$textref = $startpos;
			return;
		}
		$modpos= pos($$textref);
		$rd1pos = $modpos <==
3	/Users/nnunley/parrot/lib/Test/More.pm	14311	14412	
==>);
  fail($test_name);

Sometimes you just want to say that the tests have passed.  Usually
the case i <==
3	/Users/nnunley/parrot/config/init/hints/solaris.pm	2186	2307	
==>ccversion) {
            $conf->data->set(cc_shared => '-fPIC');
        } else {
            $conf->data->set(cc_shared = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147020	147290	
==>ion",
                  "CODE" => 179,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 98 \"src/ops/cmp.ops\"\n  if ({ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	15611	15774	
==>MP" => "PARROT_JUMP_ADDRESS",
                  "NAME" => "enternative",
                  "FLAGS" => "",
                  "ARGDIRS" => [],
                  "TYPE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296122	296233	
==>e\n    {{\@1}} = mmd_dispatch_i_pp(interpreter, {{\@2}}, {{\@3}}, MMD_EQ);\n  {{+=4}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	6630	6752	
==>$to_unget[-1]->tagname eq $tagname;
        }
        my $name = $self->linearize_tokens(@to_unget);
        
        if(de <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	6996	7112	
==>nd) = @_;

    if (File::Spec->file_name_is_absolute($file) && -e $file) {
        return $file;
    }

    foreach m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760406	760652	
==>e",
                  "CODE" => 858,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 286 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}}- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253814	254107	
==>\@2}} ? {{\@2}} : {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254677	254970	
==>\@2}} ? {{\@2}} : {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255540	255833	
==>\@2}} ? {{\@2}} : {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	3683	3808	
==>TODO stuff some info into this PMCs props
     */

    /*
     * for all PMCs we want to register:
     */
EOC
    while (my ( <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	10305	10409	
==>= $self->make_op($count, $type, $short_name, $body, \@args,
                \@argdirs, $line, $orig, \@la <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	4766	4865	
==>ult");
      $compiler->emit("  __result = __func(" . join(", ", map({ $_->[1]} $self->args)) . ")") <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408297	408473	
==>@1}} = (INTVAL)PIO_connect(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409196	409372	
==>@1}} = (INTVAL)PIO_connect(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	1782	1882	
==>ch (%type_map)) {
    $rev_type_map{$v} = $k;
};

get_dis($DIS, $file);
get_source($file);
exit if $o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901023	901282	
==>> [
                              "s",
                              "i",
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3004	3143	
==>v$Pod::Simple::VERSION doesn't implement UTF16 yet."
        );
        splice @_;
        push @_, undef;
        next;

        # TODO: im <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3402	3541	
==>v$Pod::Simple::VERSION doesn't implement UTF16 yet."
        );
        splice @_;
        push @_, undef;
        next;

        # TODO: im <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	27973	28188	
==>ER\n"),
                       @ops,
                       $self->dbprint(".. $desc NEXT\n"),
           );
}

################################ Main loop #######################

sub rewrite {
    my ($self, $op, $l <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644057	644163	
==>\@1}} = {{\@2}}->vtable->type_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644950	645056	
==>\@1}} = {{\@2}}->vtable->type_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113845	114055	
==>ODY" => "#line 204 \"src/ops/bit.ops\"\n  {{\@1}} <<= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114584	114794	
==>ODY" => "#line 204 \"src/ops/bit.ops\"\n  {{\@1}} <<= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/tools/dev/as2c.pl	1618	1742	
==>INTERFACE/) {
	    my $text = "";
	    while (<IN>) {
		last if (/INTERFACE\*\//);
		$text .= $_;
	    }
	    $text =~ s/\@FU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062524	1062622	
==>preter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpreter, ns_root, {{\@2}});\n    {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063393	1063491	
==>preter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpreter, ns_root, {{\@2}});\n    {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064263	1064361	
==>preter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpreter, ns_root, {{\@2}});\n    {{ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	1296	1411	
==>->atom;

    my $R;
    if (UNIVERSAL::can($atom, 'rx_val')) {
        $R = $self->convert($atom);
    } elsif (ref( <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	15665	15775	
==>e struct
    struct ( 'MyObj', { count => '$', stuff => '%' } );

    # override the default accessor method fo <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	348	452	
==>arclass : Match a character class
# seq
# alternate : Match R or S at the same point?
# multi_match : Mat <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15495	15608	
==>$nil->[1] };
    $result = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19248	19361	
==>$nil->[1] };
    $result = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	30476	30579	
==>text that's
# introduced by the heading or item whose text is "Foo".)
# 
# Pod parsers may also note add <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	11535	11651	
==>wer     ctype.h
isnan       math.h
isnormal    math.h
isprint     ctype.h
ispunct     ctype.h
isspace     ctype.h
isu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600068	600165	
==>lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    STR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601144	601241	
==>lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    STR <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	32528	32658	
==>f ($vtables{$c}) {
	$c = $vtables{$c};
    }
    my $cc;
    if ($c =~ /^\d+$/) {	# MMD
	$cc = "-$c";
    }
    else {
	$cc = qq!"$ <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	32903	33033	
==>f ($vtables{$c}) {
	$c = $vtables{$c};
    }
    my $cc;
    if ($c =~ /^\d+$/) {	# MMD
	$cc = "-$c";
    }
    else {
	$cc = qq!"$ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	6468	6569	
==>croak "\"$d\" is already a reserved Pod directive name"
     if exists $Known_directives{$d};
    $thi <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	36360	36457	
==>read-safe.  The test
number is shared amongst all threads.  This means if one thread sets
the test <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710613	710709	
==>Y" => "#line 50 \"src/ops/python.ops\"\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (PIO_so <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711447	711543	
==>Y" => "#line 50 \"src/ops/python.ops\"\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (PIO_so <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	4964	5081	
==>\s"([^"]+)")?\s*$/ ) {
          # That RE is from perlsyn, section "Plain Old Comments (Not!)",
          #$fname = $ <==
3	/Users/nnunley/parrot/config/auto/cgoto.pm	2098	2221	
==>gp.h $(OPS_DIR)/core_ops_cgp.c',
            cg_flag => '-DHAVE_COMPUTED_GOTO'
        );
        print " (yes) " if $verbos <==
3	/Users/nnunley/parrot/Configure.pl	6428	6530	
==>erator

   --define=inet_aton   Quick hack to use inet_aton instead of inet_pton

Parrot Options:

   - <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	2533	2630	
==>".pasm";
}

open INPUT, "<$from_file" or die "Can't open up $from_file, error $!";
open OUTPUT, "> <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15574	15683	
==>_rpn(@expr);	# Get infix into RPN
		($assignto, $type, @left)=generate_code($opts{lhs},@stream);	# Generate PA <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	7143	7241	
==>fail = $self->genlabel("group_iback");
    my $back = $self->genlabel("group_back");
    my $next = <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	8622	8739	
==>href="function_summary.html#$source_file">function detail</a>]</td>
          </tr>
       );
    }
    
    print OUT <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	293	386	
==>use warnings";

package Jako::Construct::Block::Loop::Until;

use Carp;

use base qw(Jako::Con <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	976	1066	
==>Regex::Ops::Tree::match::ISA        = qw(Regex::Ops::Tree::_atom);
@Regex::Ops::Tree::charc <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	6549	6753	
==>{harness_args});

  #                           1       2          3        4         5        6         7      8           9        10          ...
  my $str = "parrot-smoke-<VERSION>-<DEVEL>-r<revision>- <==
3	/Users/nnunley/parrot/languages/regex/regex.pl	878	1004	
==>if ($_ eq '-o') {
        $output = shift;
    } elsif (! defined $expr) {
        $expr = $_;
    } elsif (! defined $operatio <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1499	1595	
==>* string.ops\n*/\n\n\n\n/*\n** sys.ops\n*/\n\n\n\n/*\n** var.ops\n*/\n\n\n";
$ops = [
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671007	671383	
==>,
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 751,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#l <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	12097	12219	
==>-------------------------------
        #   goto OFFSET(X)     {{+=X}}  PC' = PC + X  Used for branches
        #   goto NE <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2297	2408	
==>ub end_head3       { $_[0]->emit_par(-2) }
sub end_head4       { $_[0]->emit_par(-1) }
sub end_Para        { $_[ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1865	1976	
==>ub end_head3       { $_[0]->emit_par(-2) }
sub end_head4       { $_[0]->emit_par(-1) }
sub end_Para        { $_[ <==
3	/Users/nnunley/parrot/config/gen/config_pm.pm	1275	1374	
==>close Config.pm: $!";

    my $template = "config/gen/config_pm/config_lib.in";
    open(IN,  $templ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	42011	42146	
==>essed L<>'s
        
        my $thing;
        foreach my $attrname ('section', 'to') {        
          if(defined($thing = $treelet- <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2442	2559	
==>16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P10', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	6666	6779	
==>isjoint {
    my $op = shift;

    # For now, return true iff all subexpressions' startsets contain
    # only int <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5987	6103	
==>BG>			and	print STDERR "Need token. Got ".&$ShowCurToken."\n";
			};

            $act=   exists($$actions{ACTIONS <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5702	5815	
==>BG>			and	print STDERR "Need token. Got ".&$ShowCurToken."\n";
			};

            $act=   exists($$actions{ACTIONS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6787	7008	
==>{{\@1}});\n    {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63898	64117	
==>{{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623198	623291	
==>{\n\tinterpreter->current_returns = CUR_OPCODE;\n        n = PMC_int_val(mic->m.sig);\n\t{{+=n <==
3	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	681	798	
==>$libs !~ /-laio/) {
        $libs .= ' -laio';
    }
    $conf->data->set(libs => $libs);

    for my $ldflags (qw(ld_ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	1243	1345	
==>mysub
	print "In the sub\n"
	print i
	print j
	print a$
	print c$
end sub
j=2
i=5
a$="Hello"
c$="WRONG" <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	48823	48910	
==>------------------------------------------------------
1;
__END__

TODO:
A start_formatt <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	3616	3710	
==>need_ext>.

=item C<does interface>

The class 'does' the given interfaces (the collection of m <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4482	4574	
==>p, Parrot_Interp interpreter)";
}

=item C<ops_addr_decl($base_suffix)>

Returns the C code f <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6311	6409	
==>"Extra arguments!" if @_;

  my $sym = $self->get_symbol($name); # Return the identifier if defined <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834277	834359	
==>ck_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}}, STACK_ENTRY_S <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835003	835085	
==>ck_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}}, STACK_ENTRY_S <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18527	18640	
==>unction( $parser, $fct, $args );
}

sub BuildCallFunction {
    my ( $parser, $fct, $args ) = @_;
    my $res <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	1980	2090	
==>a->set(libs      => $libs);
        $conf->data->set(ccflags   => $ccflags);
        $conf->data->set(linkflags <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10010	10109	
==>unction} ? "$function_line_coverage{$source_file}{$function} %" : "n/a" ]}</a></td>
             <td <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1177	1462	
==>int  "Estimated ops: "
                              # print  I5
                              # print  "\n"
                              #
$N1 = time_hires();           # time N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	1177	1462	
==>int  "Estimated ops: "
                              # print  I5
                              # print  "\n"
                              #
$N1 = time_hires();           # time N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	3641	3749	
==>directories in the directory.

=cut

sub file_and_directory_paths()
{
    my $self = shift;
    
    return m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302020	302157	
==>s"
                            ],
                  "BODY" => "#line 980 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302896	303033	
==>s"
                            ],
                  "BODY" => "#line 980 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	66429	66522	
==>\n  {{\@1}} = VTABLE_get_pmc_keyed_int(interpreter, interpreter->iglobals,\n         IGLOBALS_ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3762	3881	
==>16[1]'],
  ['',            'inc', 'I16'],
  ['',            'ne', 'I16', 'I2', 'apply_ITER'],
  ['apply_CALL',  'set', ' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops.pm	125	225	
==>umber = '' if ($number == 1) && ($name ne '');
    return bless([ 'label', "\@$name$number" ], 'asm_o <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2757	2857	
==>umber = '' if ($number == 1) && ($name ne '');
    return bless([ 'label', "\@$name$number" ], 'asm_o <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	1916	2039	
==>ft;
    
    $self->{PARENT} = shift;
}

sub parent
{
    my $self = shift;
    
    return $self->{PARENT};
}

=item C<html <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607530	607619	
==>e 473 \"src/ops/object.ops\"\n    {{\@1}} = VTABLE_get_attr(interpreter, {{\@2}}, {{\@3}}) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608434	608523	
==>e 473 \"src/ops/object.ops\"\n    {{\@1}} = VTABLE_get_attr(interpreter, {{\@2}}, {{\@3}}) <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	2601	2701	
==>files in the distribution, with their metadata.', 'MANIFEST'),
            $self->new_item('Lists all <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931840	931929	
==>5 \"src/ops/string.ops\"\n  {{\@1}} = string_upcase(interpreter, {{\@2}});\n  {{+=3}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932611	932700	
==>5 \"src/ops/string.ops\"\n  {{\@1}} = string_upcase(interpreter, {{\@2}});\n  {{+=3}};\n", <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43552	43681	
==>tate 193
		DEFAULT => -33,
		GOTOS => {
			'@10-4' => 204
		}
	},
	{#State 194
		DEFAULT => -14
	},
	{#State 195
		ACTIO <==
3	/Users/nnunley/parrot/config/gen/platform.pm	1852	1958	
==>= "config/gen/platform/generic/$_";
        if (-e "config/gen/platform/$platform/$_") {
            $heade <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20540	20635	
==>oit() as struct
	thing$="Whoa"
	bar(5)=66666
	lot$(2)="Goodbye"
	narf.first=909090
	poit(4).firs <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154366	154663	
==>dr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 18 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155269	155566	
==>dr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 18 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156173	156470	
==>dr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 18 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	23	116	
==>truct::Block - Abstract superclass for Jako Blocks.

=head1 SYNOPSIS

TODO

=head1 DESCRIPTION <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1603	1694	
==>ALSO

L<Pod::Simple::PullParserToken>, L<Pod::Simple>, L<Pod::Simple::Subclassing>

=head1 C <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2770	2861	
==>ALSO

L<Pod::Simple::PullParserToken>, L<Pod::Simple>, L<Pod::Simple::Subclassing>

=head1 C <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1890	1981	
==>ALSO

L<Pod::Simple::PullParserToken>, L<Pod::Simple>, L<Pod::Simple::Subclassing>

=head1 C <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	2209	2325	
==>se {
      $cond = 'if';
    }

    $anon = $compiler->anon_lbl();

    $compiler->emit("  $cond $left $op $right got <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	3762	3876	
==>{
		my ($f, $args) = ($1, $2);
		my @args = split(/,/, $args);
		my $n = @args;
		$arg_count{$f} = $n;
		for (my $i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	7459	7556	
==>('open-bracket');  }
sub skip_open_paren    { return shift->skip('open-paren');    }
sub skip_infi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172111	172310	
==>",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 218 \"src/ops/cmp.ops\"\n  if (0 != string_equal(interpreter, <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17774	17877	
==>else d$="False "
if i imp j then e$="True  " else e$="False "
print a$;b$;c$;d$;e$
next j,i

' Select-ca <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	8541	8638	
==>lemented yet at $sourceline"
	} else {
		die "Expected input/output/random at $sourceline"
	}
	fee <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	78	171	
==>T_OK = qw(expr_to_tree tree_to_list list_to_pasm compile);
};

use Regex::State;
use Regex::Pa <==
3	/Users/nnunley/parrot/examples/benchmarks/fib.pl	109	199	
==>06-05-30T13:32:26.641316Z coke  $

=head1 NAME

examples/benchmarks/fib.pl - Fibonacci Benc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517838	518161	
==>",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 597,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 734 \"src/ops/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841641	841891	
==>ord(interpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842405	842655	
==>ord(interpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	6962	7111	
==>*,\s*/, $2;
            
            $locals{$_} = 1 for @vars;
            $code .= inline("  .local $1 ");
            $code .= emit(join(",", map { <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	2801	2902	
==>shift; # Required: Jako::Construct::Block
  my $name = shift; # Required: string (TODO: domain)
  my $ <==
3	/Users/nnunley/parrot/config/gen/config_h.pm	134	225	
==>1 NAME

config/gen/config_h.pm - Configuration Header

=head1 DESCRIPTION

Generates F<inclu <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	233	336	
==>f instructions that need the magical enum fixup.
our @need_enum_fix = (
    qw/2E 2F 30 31 32 33 34 35 3 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2774	2877	
==>' });
  }

  $handler->start_element({ Name => 'block', Attributes => { kind => 'then' } });
  $_->sax($ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	612	700	
==>:Type::Integer;
use Jako::Construct::Type::Number;
use Jako::Construct::Type::PMC;
use Ja <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	22106	22270	
==>);
    }

    # Return generated code.
    return $pir;
}


# Generate translation code relating to a rule.
# #############################################
sub gener <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1945	2052	
==>o stuff, but which
  you don't want debug output from...

 $debug_level = 4;
 ...some stuff that uses Pod::S <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	5363	5454	
==>ne.

=item C<example_output_isnt( $example_f, $expected, @todo )>

Determine the language fr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349153	349245	
==>preter, {{\@2}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, \"+<\");\n  /* string_cstr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350155	350247	
==>preter, {{\@2}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, \"+<\");\n  /* string_cstr <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4106	4189	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

__PACKAGE__->_accessorize(
 'doc_lan <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	8449	8563	
==>em-* before %s(%s) %s keepn'd.\n",
              $to_unget[-1]->type,
              $to_unget[-1]->can('tagname') ? <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	1208	1307	
==>ster mapper\n";
}

# Pre and post calling operation hooks.
sub pre_call {
	die "pre_call not impleme <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1650	1747	
==>ocs::Section::Ops->new,
        Parrot::Docs::Section::IMCC->new,
        Parrot::Docs::Section::P <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	599	691	
==>er>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullParser>, you <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	505	597	
==>er>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullParser>, you <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1492	1584	
==>er>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullParser>, you <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	16488	16624	
==>$expected, $desc, %extra ) = @_;

            # Strange Win line endings
            convert_line_endings( $expected );

            # se <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	11004	11139	
==>$expected, $desc, %extra) = @_;

            # Strange Win line endings
            convert_line_endings( $expected );

            # se <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19853	19950	
==>etting this appropriately is useful if you want to use the RTF
to spellcheck, and/or if you want i <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12456	12586	
==>@opcodes, @{ $global->[1] };
                my $key = BuildLiteral( $parser, $idf, 'key' );
                push @opcodes, @{ $k <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16964	17094	
==>@opcodes, @{ $global->[1] };
                my $key = BuildLiteral( $parser, $idf, 'key' );
                push @opcodes, @{ $k <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	8938	9060	
==>}

sub temp {
    my $t = $_[0];
    "\$$t" . ++$temp;
}

sub is_num {
    my $c = $_[0];
    my ($pointfloat, $expfloat, $ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	838	934	
==>armenien, all rights reserved.
# (see the pod text in Parse::Yapp module for use and distributio <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	814	909	
==>armenien, all rights reserved.
# (see the pod text in Parse::Yapp module for use and distributio <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6648	6786	
==>a;
      }

      my $value;

      if ($self->skip_assign) {
        $value = Jako::Construct::Expression::Value->new($block, $self->requi <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	91	183	
==>2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::IO::File - File

=head1 SYNOPSI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614228	614349	
==>ARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "classoffset",
                  "FLAGS" => ":object_cl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615378	615499	
==>ARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "classoffset",
                  "FLAGS" => ":object_cl <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2386	2502	
==>failed, not howm
}

##
## my $var = choose(@vars)
##
## Select the first defined variable.
##
sub choose {
    for (@ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14477	14602	
==>n
    }
    
  }
  
  # Put it all back!
  $self->unget_token(@to_unget);
  
  if(DEBUG) {
    if(defined $title) { print "  R <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29648	29763	
==>.

=cut

sub body
{
    my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    my $n = $se <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19453	19550	
==>uto-action\" automatically
					  appended.");
	}
	elsif ($parser->{_AUTOTREE} && defined($item) & <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3690	3793	
==>nd eq 'module';

      my %module_props = $self->block->props;

      $self->SYNTAX_ERROR("Sub declarati <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6354	6457	
==>nd eq 'module';

      my %module_props = $self->block->props;

      $self->SYNTAX_ERROR("Sub declarati <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	20824	20925	
==>es the exit code as described below.

If this is true, none of that will be done.

=cut

sub no_header <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12677	12788	
==>t me explain. We get the file
    # for the module, then we take its path relative to the 
    # distribution, t <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	1660	1774	
==>agraphs
    my @funcs = split /\n{2,}/, $text;

    # If it doesn't start in the left column, it's not a func
    @ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3315	3420	
==>r_groups_and_libs(@pmcs);

    while (my ($group, $pmcs) = each %$group_files) {
        my @pmcfiles = ma <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3419	3524	
==>r_groups_and_libs(@pmcs);

    while (my ($group, $pmcs) = each %$group_files) {
        my @pmcfiles = ma <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033565	1033846	
==>{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_lex <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037770	1038048	
==>{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038551	1038829	
==>{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_ <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5096	5238	
==>hift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  ";
        if ( exists $op->{result} and scalar( @{ $op <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6128	6270	
==>hift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  ";
        if ( exists $op->{result} and scalar( @{ $op <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13381	13483	
==>pe first"
type first
	foo as integer
	bar as string
end type
type second
	other as first
	narf as integ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	8827	8936	
==>elf->content_seen) {
    DEBUG and print "No content seen in search for title.\n";
    return;
  }
  $self->{' <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10412	10501	
==>TEMP0} = "$"
${STEMP1} = ${PTEMP3}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1 <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7796	7885	
==>TEMP0} = "$"
${STEMP1} = ${PTEMP3}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89277	89511	
==>ops/bit.ops\"\n  {{\@1}} &= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90015	90249	
==>ops/bit.ops\"\n  {{\@1}} &= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/tools/build/vtable_extend.pl	1016	1111	
==>e, rather than in Parrot
bytecode) may access.

There is a deliberate distancing from the intern <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	7610	7717	
==>b skip_semicolon     { return shift->skip('semicolon');     }
sub skip_type          { return shift->skip('t <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2186	2299	
==>$desc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Te <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2581	2694	
==>$desc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Te <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	10466	10551	
==>ray.pmc multiarray.pmc hash.pmc orderedhash.pmc tqueue.pmc parrotclass.pmc parrotobjec <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105602	105836	
==>ops/bit.ops\"\n  {{\@1}} |= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	106340	106574	
==>ops/bit.ops\"\n  {{\@1}} |= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	28528	28639	
==>op @stack;
	    print <<EOC;
	# arg $p->[1]
EOC
	}
	my $x = (pop @stack)->[1];
	print <<EOC;
	$x\["_message"\] = <==
3	/Users/nnunley/parrot/config/auto/m4.pm	1131	1236	
==>NU [mM]4 /) ? 1 : 0;
    }

    $conf->data->set(has_gnu_m4 => $has_gnu_m4);
    $self->set_result($has_gn <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	477	581	
==>r common
to all transforms.

The subclass hierarchy is as follows:

    OpTrans
       |_________________ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	25930	26048	
==>pmc != enum_class_default);
EOC
    }
    if (scalar @mmds) {
        $cout .= <<"EOC";
#define N_MMD_INIT (sizeof(_tem <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	62883	62980	
==>imiter that was specified
as being only to be used as an outermost bracket.

=item  C<Missing seco <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Examples.pm	52	134	
==>arrot/lib/Parrot/Docs/Section/Examples.pm 20333 2006-06-21T18:44:31.111564Z bernhar <==
3	/Users/nnunley/parrot/config/inter/progs.pm	2436	2539	
==>//g;
    $ccflags =~ s/-fno-strict-aliasing//g;
    $ccflags =~ s/-fnative-struct//g;
    $ccflags = int <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	15826	15927	
==>hich typically
			 indicates the end of a directive. However no suitable
			 preceding directive was e <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	3155	3240	
==>ction::Libs>

=item C<Parrot::Docs::Section::Tools>

=item C<Parrot::Docs::Section::Bi <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	22255	22377	
==>s($$textref) < length($$textref))
		{
			my $field;
			my @bits;
			foreach my $i ( 0..$#func )
			{
				my $pref;
				$fun <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37400	37508	
==>e . ']},
				  Parse::RecDescent::_tracefirst($text),
				  q{' . $rule->{"name"} . '})
					if defined $::RD <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39803	39911	
==>e . ']},
				  Parse::RecDescent::_tracefirst($text),
				  q{' . $rule->{"name"} . '})
					if defined $::RD <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	22511	22640	
==>sub OPC_ord
{
    my ($n, $c, $cmt) = @_;
    my $i = temp('I');
    my $p = pop @stack;
    pop @stack;	# functions
    my $s = t <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22312	22440	
==>agname eq 'Para';
        $title = $t->text . $title if $t->type eq 'text';
      }
      undef $title if $title =~ m<^\s*$>; # m <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	2484	2580	
==>itable ops for a Parrot safe mode, or for inclusion in miniparrot.

=head2 Op Body (Macro Substit <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122197	122469	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_cor <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123109	123381	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_cor <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	446685	446935	
==>" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 511,
                  "A <==
3	/Users/nnunley/parrot/config/init/hints/irix.pm	388	502	
==>d+,)*\d+/-woff 1185/;
    } else {
        $ccflags .= ' -woff 1185';
    }
    $conf->data->set(ccflags => $ccflag <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	1433	1520	
==>verage, %function_branch_coverage, %function_call_coverage);
my (%real_filename);
my %to <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970567	970918	
==>i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1091,
                  "ARGS" => [
                              "i",
                              "i",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 608 \" <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2846	2934	
==>SEE ALSO

L<Pod::Simple::XMLOutStream> is rather like this class.
Pod::Simple::XMLOutStre <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2765	2873	
==>o the relevant C
code.

=cut

sub goto_pop
{
    my ($self) = @_;

    return "opcode_t* pop_addr = (opcode_t <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	45613	45712	
==>ding whitespace-separated quotelike
	# literals in $_ with "<QLL>"

		do { $_ = join '<QLL>', (extra <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724851	725099	
==>wline",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 812,
                  "ARGS <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	3833	3941	
==>oading $module: $!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$module imported OK", :$todo, :$ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	886	991	
==>>file
  }, $class;

  $block->push_content($self);

  return $self;
}

sub name { return shift->{NAME};  } <==
3	/Users/nnunley/parrot/lib/Test/More.pm	20908	21013	
==>our
program, or for which you don't yet have code written.  For that you
use TODO.  Read on.

=cut

#'#
su <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7071	7171	
==>ll   (1): ", instr(s1$, "")
print "Start (11): ", instr(6, s1$, " ")
print "Inval  (0): ", instr(4, b <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18800	18900	
==>ll   (1): ", instr(s1$, "")
print "Start (11): ", instr(6, s1$, " ")
print "Inval  (0): ", instr(4, b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	239289	239544	
==>(interpreter, {{\@2}}, {{\@3}}, MMD_CMP);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585333	585534	
==>GS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 303 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_l <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	28309	28429	
==>open)->[1]{'~type'} )
        );
      } else {
        DEBUG > 1 and print "=back found without a matching =over.  Stack <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	7193	7337	
==>l/include',
             'inline' => 'inline',
             'int2_t' => 'short',
             'int4_t' => 'int',
             'int8_t' => 'long l <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	22647	22760	
==>elsif( $$textref =~ m/\G$func/gc )
					{ @bits = $field = defined($1) ? $1 : $& }
				$pref ||= "";
				if (defin <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	8381	8487	
==>onf->data->set(pod => $pod);

        genfile(
            'config/gen/makefiles/docs.in', 'docs/Makefile', <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853463	853735	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854245	854517	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem", <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	9800	9900	
==>$reg_num, $temp_cnt_ref, $temps_ref,
        $extra_preamble_ref, $extra_postamble_ref) = @_;

    lo <==
3	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1506	1608	
==>e NoOp;
use base qw(Lua::opcode);

package FindGlobalOp;
use base qw(Lua::opcode);

package FindL <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1728	1825	
==>eckParams( [], \%params, \@_, $self );

		exists($$self{VERSION})
	and	$$self{VERSION} < $COMPA <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1667	1761	
==>eckParams( [], \%params, \@_, $self );

		exists($$self{VERSION})
	and	$$self{VERSION} < $COMPA <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35885	35987	
==>ll throw a warning and exit with 255.  If the test died, even after
having successfully completed all i <==
3	/Users/nnunley/parrot/lib/Test/More.pm	33956	34058	
==>ll throw a warning and exit with 255.  If the test died, even after
having successfully completed all i <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2751	2853	
==>ll throw a warning and exit with 255.  If the test died, even after
having successfully completed all i <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	4761	4940	
==>_cpu) {
                # no address of
                $asm =~ s/&([INSP])REG/$1REG/g;
                $asm =~ s/&CONST/CONST/g;
                # Use the macro
                $a <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	4213	4320	
==>{ \$r->$elem = $type->new(\%{\$init{'$name'}}) } $cmt\n";
           $out .= "       elsif (UNIVERSAL::isa(\ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	3256	3352	
==>my $Test = Test::Builder->create;

Ok, so there can be more than one Test::Builder object and thi <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23352	23446	
==>ribe { $_[1] ? '' : $_[0]->{name} }
sub sethashname { $_[0]->{hashname} = '__DIRECTIVE' . ++$_[ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439547	439635	
==>ath.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440562	440650	
==>ath.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\ <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	5008	5102	
==>back

=head1 SEE ALSO

=over 4

=item C<Parrot::IO::Directory>

=item C<Parrot::IO::Path>

=bac <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688130	688218	
==>\"src/ops/pmc.ops\"\n   {{\@1}}->vtable->delprop(interpreter, {{\@1}}, {{\@2}});\n   {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688902	688990	
==>\"src/ops/pmc.ops\"\n   {{\@1}}->vtable->delprop(interpreter, {{\@1}}, {{\@2}});\n   {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	602561	602784	
==>"CODE" => 682,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 393 \"src/ops/object.ops\"\n    {{\@1}} = VT <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	2288	2404	
==>'eof');           }
sub is_exfix_arith   { return shift->is('exfix-arith');   }
sub is_goto          { return shift-> <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29217	29322	
==>tion" => "'$desc'",
	}, $class;
}


sub code($$$$)
{
	my ($self, $namespace, $rule, $check) = @_;
	
my $co <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31315	31419	
==>tion" => "'$desc'",
	}, $class;
}

sub code($$$$)
{
	my ($self, $namespace, $rule, $check) = @_;
	
my $co <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	1111	1206	
==>tem C<CGoto>

Create the C<goto> run loop.

=item C<CGP>

Create the C<goto> and predereferenced <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	5958	6068	
==>this* line (the #line directive) and we're
    # about to set the number for the next line. So + 1 again.
    r <==
3	/Users/nnunley/parrot/config/auto/gc.pm	1826	1923	
==>R)/res_lea\$(O):	\$(GENERAL_H_FILES) \$(SRC_DIR)/res_lea.c
EOF
            TEMP_gc_o => "\$(SRC_DI <==
3	/Users/nnunley/parrot/config/auto/gc.pm	2117	2214	
==>R)/res_lea\$(O):	\$(GENERAL_H_FILES) \$(SRC_DIR)/res_lea.c
EOF
            TEMP_gc_o => "\$(SRC_DI <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21156	21304	
==>'  => 'number',
        '/'  => 'number',
        '^'  => 'number',
        '%'  => 'number',
        '..' => 'string',
    );
    my %opcode = <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16123	16262	
==>8
		ACTIONS => {
			"}" => 87,
			"-" => 24,
			'NAME' => 91,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'ST <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	16942	17054	
==>item C<op($index)>

Returns the op at C<$index>.

=cut

sub op
{
    my ($self, $index) = @_;

    return $self-> <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	1527	1632	
==>ent is an integer constant (in-line).
    nc  The argument is a number constant index.
    pc  The argumen <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	2949	3041	
==>s, %names, %def_args, %arg_count,
    @code, %globals, %classes, @loops, %def_arg_names, %fun <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11451	11542	
==>ethod body performing the various macro substitutions for
vtable method bodies (see F<tools/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659859	660111	
==>E" => 737,
                  "ARGS" => [
                              "i",
                              "p",
                              "ki"
                            ],
                  "BODY" => "#line 334 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	2275	2382	
==>ctx) = @_;
    die "unimplemented meta $tree";
}

# FIXME!!!
sub convert_rx_beg {
    my ($self, $tree, $ctx <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	47646	47744	
==>of the here document),
which would cause the earlier " || die;\nexit;" to be skipped in any
sequenc <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	562	657	
==>lets (generally one per non-verbatim paragraph), and
# to call the proper callbacks on the treel <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	8724	8841	
==>eq 'Para' ) 
    {
        $tagname = 'Para_item' 
            if @{$self->{STACK}} and $self->{STACK}->[-1] eq 'text' <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	8107	8223	
==>eq 'Para') 
    {
        $tagname = 'Para_item' 
            if @{$self->{STACK}} and $self->{STACK}->[-1] eq 'text' <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24227	24317	
==>=\$P2
	\$P3["hash"]=\$P0
	find_global \$P1, "BASICARR"
	\$P1["$var$seg"]= \$P3
	store_globa <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	7294	7416	
==>loor'   , 8970,
 'rfloor'   , 8971,
 'lang'     , 9001,
 'rang'     , 9002,
 'loz'      , 9674,
 'spades'   , 9824,
 'clubs <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2014	2093	
==>abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/sprintf'\x%02X' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423628	423884	
==>= (INTVAL)PIO_listen(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	424525	424781	
==>= (INTVAL)PIO_listen(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	12586	12709	
==>emcpy      string.h
memmove     string.h
memset      string.h
mktime      time.h
modf        math.h
modff       math.h
modfl <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	3802	3905	
==>set;

    return $self;
}

=item B<reset>

  $Test->reset;

Reinitializes the Test::Builder singleton to <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	4534	4631	
==>de, passing the test if a string comparison of
output with the expected result it true.

=item C<c <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	49020	49115	
==>if they are
defined.

have the POD FORMATTING ERRORS section note the localtime, and the
version <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607283	607552	
==>E" => "inline",
                  "CODE" => 688,
                  "ARGS" => [
                              "p",
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 473 \"src/ops/object. <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	9303	9406	
==>${slash}ops${slash}$ops > ops${slash}$pod\n";
                print MAKEFILE "\t\$(CHMOD) 0644 ..${slash <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	9179	9294	
==>$type eq 'multi_match') {
        # R<min,max>: R is guaranteed to have 1/max as many available
        # as the who <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	1456	1561	
==>', map defined($_) ? "[$_]" : "EOF", @_), "\n";

  my $paras = ($self->{'paras'} ||= []);
   # paragraph b <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	2733	2852	
==>cur eq "_" and $next =~ /\w/) {	# Directive
		append;
		fetch;
		while($cur =~ /\w/) {
			append;
			fetch;
		}
		emit(" <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	4963	5075	
==>b read_ops
{
    my ($self, $file, $nolines) = @_;

    my $ops_file = "src/" . $file;


    die "Parrot::OpFunc: <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19668	19765	
==>s[CURR] ne "end") {
			my($name,$type);
			die "Syntax error in type $type[CURR]/$syms[CURR] (sour <==
3	/Users/nnunley/parrot/config/init/hints/irix.pm	715	820	
==>->data->get('cxx');
    my $ld   = $conf->data->get('ld');
    my $link = $conf->data->get('link');
    if <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2464	2557	
==>fined $formal_arg_type;

    $self->INTERNAL_ERROR("Can't determine type of actual argument (% <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2164	2257	
==>fined $formal_arg_type;

    $self->INTERNAL_ERROR("Can't determine type of actual argument (% <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27540	27644	
==>->describe ) . '};
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self->{"lookah <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29650	29754	
==>->describe ) . '};
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self->{"lookah <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31747	31851	
==>->describe ) . '};
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self->{"lookah <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2205	2303	
==>PM build specification',
	't' => 'Test file',
	'tbl' => 'Vtable file',
	'tcl' => 'TCL code',
	'txt' <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	2696	2815	
==>e, $type, $name, $args, $argdirs, $labels, $flags) = @_;

    my $self = {
        CODE => $code,
        TYPE => $type, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1897	1995	
==>args; $i++) {
    my ($formal_arg_type, $formal_arg_name) = @{$formal_args[$i]};
    my $actual_arg <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1597	1695	
==>args; $i++) {
    my ($formal_arg_type, $formal_arg_name) = @{$formal_args[$i]};
    my $actual_arg <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	31754	31879	
==>tos = pop @stack;
    my $cl = temp('P');
    my $name = $tos->[1];
    $n = $name;
    $n =~ s/["]//g;
    my $mangle = qq!"p <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	6769	6877	
==>$opcodes{$pc}->{args}});
	    my $source = $op->source($trans);

	    $new_pc = $pc + $op->size;
	    $source <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	78621	78718	
==>unt++ until ($pos=index($_[0],"\n",$pos+1))<0;
	return $count;
}

package main;

use vars qw ( $RD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549478	549873	
==>hodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 633,
                  "ARGS" => [
                              "p",
                              "s"
                            ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550778	551042	
==>hodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 63 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552079	552343	
==>hodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 63 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11088	11286	
==>TINATION, STACK_CLEANUP_NULL);\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11877	12075	
==>TINATION, STACK_CLEANUP_NULL);\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9049	9147	
==>(global or local).

=cut

sub scope_of_ident
{
  my $self = shift; # Required: Jako::Construct::Blo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	328446	328641	
==>E" => 385,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 159 \"src/ops/dotgnu.ops\"\n  {{\@1}} =  (FLOATVAL)((Pa <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	9202	9305	
==>_encoding_line {
  my($self, $line) = @_;
  
  # The point of this routine is to set $self->{'_transcode <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	46139	46232	
==>adspec = "";
	$lines = _linecount($grammar) unless $lines;
	$self->{_check}{itempos} = ($gramm <==
3	/Users/nnunley/parrot/lib/Test/More.pm	10378	10493	
==>) is when the test fails you'll know what $this
and $that were:

    not ok 1
    #     Failed test (foo.t at line 1 <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11038	11120	
==>------------------------------------------------------------------------
1;
__END__ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	48805	48887	
==>------------------------------------------------------------------------
1;
__END__ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126630	126767	
==>INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127765	127902	
==>INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128900	129037	
==>INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5 <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	3722	3830	
==>le for the module is linked to.

=cut

sub process_code_start_token
{
    my $self = shift;
    my $token = s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369471	369559	
==>rc/ops/io.ops\"\n  {{\@1}} = PIO_reads(interpreter, {{\@2}}, (size_t){{\@3}});\n  {{+=4}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	370356	370444	
==>rc/ops/io.ops\"\n  {{\@1}} = PIO_reads(interpreter, {{\@2}}, (size_t){{\@3}});\n  {{+=4}} <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	3304	3430	
==>$1, "", undef ];
	$l =~ s/>>//;
    }
    my $source = undef;
    if ($l =~ /^\s*	     # intial space
	(?:(\d+)\s+)?   # option <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35947	36071	
==>$over_type;
        # Whew.  Now fall thru and process it.


      } elsif($para_type eq '=extend') {
        # Well, might a <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	40465	40572	
==>$para_type eq 'Data') {
        DEBUG and print " giving data treatment...\n";
        $para->[1]{'xml:space <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52818	53069	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "gc_debug",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53573	53824	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "gc_debug",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	889	993	
==>Label);
}

sub output_classmatch {
    my ($self, $class, $failLabel) = @_;
    return "rx_oneof P0, $cla <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	6906	7026	
==>subop (@{ $op->{args} }) {
        my @subop_startset = $subop->startset();
        return 0 if grep { ref($_) || $_ !~ / <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2658	2763	
==>ode;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was fatal: $!", $expected, $d <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	3251	3349	
==>ut2, { label => $curlabel, code => $stmt };
	    $labels{$curlabel->{label}} = $output2[-1] if $cur <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	34717	34927	
==>}->vtable->set_pointer(interpreter, {{\@1}}, (void* ){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ] <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	797	893	
==>g, script, and expressions.

=cut

my $file = open_tmt(shift @ARGV);
my ($cmd, @args) = extract_i <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2827	2920	
==>@_;

    return "opcode_t* pop_addr = (opcode_t*)pop_dest(interpreter);\ncur_opcode = pop_addr <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	17129	17288	
==>,
    ];


    my $cat = Cat->new( name     => 'Socks',
                        kittens  => ['Monica', 'Kenneth'],
                        markings => { socks=> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088905	1089013	
==>= {{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "experimental <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089853	1089961	
==>= {{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "experimental <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025007	1025151	
==>/ops/sys.ops\"\n   {{\@1}} = sysinfo_s(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025764	1025908	
==>/ops/sys.ops\"\n   {{\@1}} = sysinfo_s(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	989	1094	
==>s> hash contains a
C<library> key its value will be used for the library name.

=cut

sub new {
    my ($c <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	36137	36257	
==>55                 test died
    any other number    how many failed (including missing or extras)

If you fail more than <==
3	/Users/nnunley/parrot/lib/Test/More.pm	34208	34328	
==>55                 test died
    any other number    how many failed (including missing or extras)

If you fail more than <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	3003	3123	
==>55                 test died
    any other number    how many failed (including missing or extras)

If you fail more than <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2658	2766	
==>ode_t *cur_opcode asm ("esi") = cur_op;
    register char *   _reg_base   asm ("edi");
#else
    opcode_t *cu <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3227	3335	
==>ode_t *cur_opcode asm ("esi") = cur_op;
    register char *   _reg_base   asm ("edi");
#else
    opcode_t *cu <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	9441	9535	
==>ps);

my $jit_fn_retn = 'void';
my $jit_fn_params = '(Parrot_jit_info_t *jit_info, Interp * int <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6430	6533	
==>m);
    $item = $temp;
  }
  my $pair = $self->_new_pair;
  $self->_add_inst('', 'set', [$pair.'[0]',$it <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4813	4916	
==>st = $1;

    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@p <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4917	5020	
==>st = $1;

    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@p <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	9605	9730	
==>qrt       complex.h
csqrtf      complex.h
csqrtl      complex.h
ctan        complex.h
ctanf       complex.h
ctanh       comple <==
3	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	2398	2506	
==>iniparrot/$file");
    }
}

sub write_buildscripts {
    my @compiled_files;
    foreach my $obj (@ARGV) {
	m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495636	496055	
==>ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 569,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "B <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756725	756811	
==>et.ops\"\n  {{\@1}}->vtable->assign_string_native(interpreter, {{\@1}}, {{\@2}});\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757515	757601	
==>et.ops\"\n  {{\@1}}->vtable->assign_string_native(interpreter, {{\@1}}, {{\@2}});\n  {{ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5081	5196	
==>ub sax
{
  my $self = shift;
  my ($handler) = @_;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $lef <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3144	3259	
==>ub sax
{
  my $self = shift;
  my ($handler) = @_;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $lef <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	24663	24766	
==>nt tuple
    if ($builtins{$name} && $builtins{$name} eq 'v') {
	my $ar = temp('P');
	print <<"EOC";
	$a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857139	857455	
==>t",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 973,
                  "A <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	39	145	
==>lator Generator
# Script to generate the instruction translator from a rules file and a
# stack to register <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	261	353	
==>src/jit_cpu.c

=head1 DESCRIPTION

This script creates F<src/jit_cpu.c>. It parses the JIT fi <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	494	598	
==>{
#
# Module Parse::Yapp::Driver
#
# This module is part of the Parse::Yapp package available on your <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	482	582	
==>{
#
# Module Parse::Yapp::Driver
#
# This module is part of the Parse::Yapp package available on your <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	2816	2913	
==>shval = hash_val($str);
	push @all_strings, [$len, $hashval, $str];
	$n = scalar @all_strings;
	$k <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	10281	10396	
==><"END");
# sub _rule_$name {
#     my <rx_mode> = shift;
#     my (<rx_input>, <rx_pos>, <rx_stack>);
#     my \%rx_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109644	109751	
==>it.ops\"\n  string_bitwise_or(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110423	110530	
==>it.ops\"\n  string_bitwise_or(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630523	630635	
==>ss);\n    if (type <= 0)\n        real_exception(interpreter, NULL, NO_CLASS,\n            \"Class '%Ss' not foun <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631513	631625	
==>ss);\n    if (type <= 0)\n        real_exception(interpreter, NULL, NO_CLASS,\n            \"Class '%Ss' not foun <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	9900	9996	
==>CURR] ]);
		if ( (isbuiltin($syms[CURR]) or isuserfunc($syms[CURR]))
			and $syms[NEXT] ne "(" an <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145862	146221	
==>e_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 178,
                  "ARGS" => [
                              "p",
                              "p" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129321	129586	
==>JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130059	130324	
==>JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inl <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29224	29367	
==>"+" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"<=" <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41330	41473	
==>"+" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"<=" <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44476	44619	
==>"+" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"<=" <==
3	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	2526	2633	
==>c =~ s/\.o/\.c/g;
	push @compiled_files, [ $src, $obj ];
    }

    print "** $0: writing parrot build scrip <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	28243	28342	
==>line'};

  # A recursive algorithm implemented iteratively!  Whee!

  while($treelet = shift @stack) <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	31744	31843	
==>line'};

  # A recursive algorithm implemented iteratively!  Whee!

  while($treelet = shift @stack) <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7183	7291	
==>if ($1 ne $indent) {
                error($file, $line, "Improper indenting for \"$_\"\n(should be \"#$inden <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7490	7598	
==>if ($1 ne $indent) {
                error($file, $line, "Improper indenting for \"$_\"\n(should be \"#$inden <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7848	7956	
==>if ($1 ne $indent) {
                error($file, $line, "Improper indenting for \"$_\"\n(should be \"#$inden <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11054	11226	
==>ar};
                    foreach my $key ( @{$var} ) {
                        push @opcodes, @{ $key->[1] };
                        my $result2 = new_tmp( $parser, 'pmc <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9289	9449	
==>ar};
                foreach my $key ( @{$var} ) {
                    push @opcodes, @{ $key->[1] };
                    my $result2 = new_tmp( $parser, 'pmc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826702	826912	
==>type on stack!\");\n  }\n\n  {{\@1}} = UVal_num(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827772	827982	
==>type on stack!\");\n  }\n\n  {{\@1}} = UVal_num(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	7153	7283	
==>"$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c failed ($?)\n";
    }
    else {
        1;
    }
}

sub part <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5447	5577	
==>"$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c failed ($?)\n";
    }
    else {
        1;
    }
}

sub part <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7364	7494	
==>"$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c failed ($?)\n";
    }
    else {
        1;
    }
}

sub part <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	3430	3583	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS",
                  "NAME" => "check_events__",
                  "FLAGS" => <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2378	2482	
==>path)>

Returns the specified path relative to the directory.    

=cut

sub relative_path
{
    my $self <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	157	242	
==>xt::Balanced qw ( extract_codeblock extract_bracketed extract_quotelike extract_delimi <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	3191	3354	
==>I18N.MidEast
            I18N.Other
            I18N.Rare
            I18N.West
            I18N
            ICSharpCode.SharpZipLib
            Microsoft.JSc <==
3	/Users/nnunley/parrot/examples/benchmarks/oo5.pl	18	132	
==>ict;

my $o = new Foo();
for my $i (1 .. 500000) {
	my $x = $o->i;
	my $y = $o->j;
}
print $o->i, "\n";

package Fo <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37235	37336	
==>lookahead) =
		@{$self}{ qw{subrule repspec min max lookahead} };

''.($::RD_NO_TRACE?'':'
		Parse::Re <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	9670	9799	
==>,
   94, '^',
   95, '_',
   96, '`',
   97, 'a',
   98, 'b',
   99, 'c',
  100, 'd',
  101, 'e',
  102, 'f',
  103, 'g',
  104, ' <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	130	228	
==>s qw(@EXPORT @ISA);

use Parrot::Config;

require Exporter;
require Parrot::Test;

@EXPORT = ( qw(o <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	47	145	
==>s qw(@EXPORT @ISA);

use Parrot::Config;

require Exporter;
require Parrot::Test;

@EXPORT = ( qw(o <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	18721	18839	
==>h @stack, [-1, $p, 'P'];
}

sub UNARY_NEGATIVE
{
    my (undef, $c, $cmt) = @_;
    my $t = pop @stack;
    my $n = tem <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	1298	1416	
==>t_edit {
    my ($pmcfile) = @_;

    return <<"EOC";
/*
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file i <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	3216	3314	
==>" context="#stay" String="types" />
          <RegExpr attribute="Comment" context="#stay" String=" <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11722	11895	
==>, @{ $last_key->[1] };
                    my $assign = new KeyedSetOp( $parser,
                        'arg1'   => $last_key->[0],
                        'arg2'   => un <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9926	10087	
==>, @{ $last_key->[1] };
                my $assign = new KeyedSetOp( $parser,
                    'arg1'   => $last_key->[0],
                    'arg2'   => un <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8789	8926	
==>, @{ $last_key->[1] };
        my $assign = new KeyedSetOp( $parser,
            'arg1'   => $last_key->[0],
            'arg2'   => un <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	556	649	
==>ead1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head1 DESCRIPTION

When you do $parser->get_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	975	1068	
==>ead1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head1 DESCRIPTION

When you do $parser->get_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	462	555	
==>ead1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head1 DESCRIPTION

When you do $parser->get_ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53241	53328	
==>arse::RecDescent::UncondReject($lookahead,$line,$code);
				$prod and $prod->additem($it <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54950	55037	
==>arse::RecDescent::UncondReject($lookahead,$line,$code);
				$prod and $prod->additem($it <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	4775	4906	
==>->SUPER::parse_lines(
        splice @{ $self->{'source_arrayref'} },
        0,
        Pod::Simple::MANY_LINES
      );
      unle <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1520	1618	
==>'Thispara'} = '' }
sub start_head4 {  $_[0]{'Thispara'} = '' }

sub start_Verbatim    { $_[0]{'This <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1050	1148	
==>'Thispara'} = '' }
sub start_head4 {  $_[0]{'Thispara'} = '' }

sub start_Verbatim    { $_[0]{'This <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43426	43558	
==>structor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 192
		ACTIONS => {
			'END' => 203
		}
	},
	{#State 19 <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2488	2620	
==>se {
    for (@_) {
        return $_ if defined $_;
    }
    return;
}

##
## %tests = extract_tests($string)
##
## Extract the tes <==
3	/Users/nnunley/parrot/lib/Parrot/Revision.pm	139	239	
==>rrot::Revision - SVN Revision

=head1 SYNOPSIS

    use Parrot::Revision;

    print $Parrot::Revisio <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	2817	2954	
==>eredoc && /^\s*#|^\s*$/;
        
        # Is this a new rule?
        if (!$in_heredoc && /^\s*\[([\w\.]+)\]\s*$/) {
            # If we <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	10534	10706	
==>to the op's body:
        #

        if ($seen_op)
        {
            $body .= $_;
        }
        else
        {
            die "Parrot::OpsFile: Unrecognized line: ' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	3308	3411	
==>ME: local labels?
    return "$label";
}

sub output_label_def {
    my ($self, $label, $reachable) = @_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126713	127027	
==>)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127848	128162	
==>)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128983	129297	
==>)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	29512	29640	
==>1, $p, 'P'];
    }
}

sub DUP_TOP
{
    my ($n, $c, $cmt) = @_;
    my $tos = $stack[-1];
    print <<EOC;
	$cmt
EOC
    push @st <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	676	774	
==>$$$$$);
sub _match_quotelike($$$$);

# HANDLE RETURN VALUES IN VARIOUS CONTEXTS

sub _failmsg {
	my <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129298	129583	
==>( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130036	130321	
==>( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => " <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7594	7692	
==>$line =~ m/^\s/s) {

        if(!$self->{'start_of_pod_block'} and @$paras and $paras->[-1][0] eq ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199530	199846	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 236,
                  "AR <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	22095	22198	
==>g', $_[3] ]; }
	],
	[#Rule 36
		 'charclass', 4,
sub
#line 165 "lib/Regex/Grammar.y"
{ push @{$_[3]}, '- <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9697	9797	
==>');

= DESCRIPTION

This module was built to facilitate the Pugs test suite. It has the
distinction o <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	4122	4223	
==>bug = pos;
	$ldel = join('|', map { quotemeta $_ } split('', $ldel));
	$rdel = join('|', map { quoteme <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	553	653	
==>ed $block;
  confess "Left is not defined!" unless defined $left;
  confess "Op is not defined!" unle <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	565	665	
==>ed $block;
  confess "Left is not defined!" unless defined $left;
  confess "Op is not defined!" unle <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	13643	13752	
==>ark 0\n"

    # Translation loop.
    ss_propogate = new .Hash
TRANS_LOOP:
    pc = bc.get_pos()
	next_pc = pc <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	14396	14520	
==>=> 45,
			'charclass' => 12
		}
	},
	{#State 27
		ACTIONS => {
			"?" => 46
		},
		DEFAULT => -13
	},
	{#State 28
		ACTIONS = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807899	808008	
==>}}->vtable->get_number_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808804	808913	
==>}}->vtable->get_number_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1095	1213	
==>=> $right,

    DEBUG => 1,
    FILE  => $dest->file,
    LINE  => $dest->line
  }, $class;

  $block->push_content($se <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1086	1204	
==>=> $right,

    DEBUG => 1,
    FILE  => $dest->file,
    LINE  => $dest->line
  }, $class;

  $block->push_content($se <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	975	1093	
==>=> $right,

    DEBUG => 1,
    FILE  => $dest->file,
    LINE  => $dest->line
  }, $class;

  $block->push_content($se <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	307	416	
==>...) : return R && S && ...
# R (scan, R) : scan for R at every position
# R (test, op1, check, op2, dest)
# R <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	756	854	
==>mizations
    unless ($options{'no-tree-optimize'}) {
        my $opt1 = Regex::TreeOptimize->new() <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1372	1470	
==>ck box...  please avert your eyes, kind souls.
sub _traverse_treelet_bit {
  DEBUG > 2 and print "H <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10144	10250	
==>s->[0] eq 'neg') {
        return _negate_incexc(_translate_classpieces($pieces->[1]));
    }

    # Conver <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5455	5560	
==>, @_), "\n";

    return system(@_) == 0;
}

# XXX: ordering of libs might be crucial
sub gather_groups_an <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5666	5771	
==>, @_), "\n";

    return system(@_) == 0;
}

# XXX: ordering of libs might be crucial
sub gather_groups_an <==
3	/Users/nnunley/parrot/config/gen/config_h.pm	539	630	
==>ure::Step::Base);

use Parrot::Configure::Step ':gen';

$description = 'Generating C headers <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	16589	16679	
==>r element, its default
initialization is performed instead. Initializers for non-existent
e <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7261	7380	
==>_pushint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);

    if ($self->{DEBUG}) {
        my $desc = $d <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6903	7022	
==>_pushint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);

    if ($self->{DEBUG}) {
        my $desc = $d <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1691	1796	
==>_));
}

=item C<new($path)>

Returns the instance for specified path.

=cut

sub new
{
    my $self = shif <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	9658	9778	
==>0 Name characters that 
            #  an XML Name still can't start with.
    }
    
    $this->{'accept_codes'}{$new_co <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	30129	30228	
==>ing_fill_bang {
}

sub _op_vector_p {
}

sub _op_make_vector {
}

sub _op_vector {
}

sub _op_vector <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113946	114217	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114685	114956	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core", <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	13697	13808	
==>APLVector,Float) # reshape
    .param pmc op1
    .param pmc op2

    # Convert the scalar into a vector and res <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	13630	13738	
==>++;
					}
				}
				if (@return_params) {
					push @code, sprintf ($calling_code, join(",",@return_params)) <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	22794	22890	
==>lf->whine($start_line, "Deleting unknown formatting code $was<>");
        $is = $treelet->[$i][0 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	8618	8755	
==>tfitemkeepn'} ? "gets" : "doesn't get";
            last;
          } elsif (@to_unget > 40) {
            DEBUG > 1 and print "    item-* <==
3	/Users/nnunley/parrot/config/auto/snprintf.pm	233	330	
==>ent and if it's C99 compliant.

=cut

package auto::snprintf;

use strict;
use vars qw($descriptio <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9095	9180	
==>],20,0xe9b6c7aa,/* 20 */
GG,$a,$b,$c,$d,$_[9],5,0xd62f105d,/* 21 */
GG,$d,$a,$b,$c,$_[ <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	10933	11047	
==>pes
	$c =~ s/"/\\"/g;	# XXX unescape
	my $u = defined $1 ? $1 : "";
	if ($c =~ /^(u|U)?'(.*)'/) {
	    my $u = defi <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	238	346	
==>/nm.pl [options] file

To list all the symbols in Parrot:

    % perl tools/dev/nm.pl parrot

=head1 DESCRIPT <==
3	/Users/nnunley/parrot/lib/Test/More.pm	8614	8715	
==>ilar caveats exist for false and 0.
In these cases, use ok().

  ok( exists $brooklyn{tree},    'A tre <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	597	683	
==>ref($ident) . ") is not!") unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression:: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	607	693	
==>ref($ident) . ") is not!") unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression:: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	607	693	
==>ref($ident) . ") is not!") unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression:: <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	48136	48269	
==>p"
{
            BuildForNum( $_[0], $_[10], $_[4], $_[6], $_[8], $_[11] );
        }
	],
	[#Rule 22
		 '@6-7', 0,
sub
#line 1 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3981	4074	
==>t y(4)
end function
function arrfunc(x())
	u=aftwo(x())
	arrfunc=55
end function
dim g(10)
g(5 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15254	15347	
==>t y(4)
end function
function arrfunc(x())
	u=aftwo(x())
	arrfunc=55
end function
dim g(10)
g(5 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7856	7954	
==>f i% then print "Should not happen (int)"
i%=54
if i% then print "This is true" else print "Oops (i <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14843	14941	
==>f i% then print "Should not happen (int)"
i%=54
if i% then print "This is true" else print "Oops (i <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	17524	17668	
==>}
    print <<EOC;
	goto $targ $cmt
EOC
}

sub JUMP_ABSOLUTE()
{
    my ($n, $c, $cmt) = @_;
    my $targ = "pc_$n";
    print <<EOC;
	goto $targ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	31460	31590	
==>},
		GOTOS => {
			'tableconstructor' => 46,
			'args' => 43,
			'key' => 45
		}
	},
	{#State 108
		ACTIONS => {
			":" => <==
3	/Users/nnunley/parrot/Configure.pl	8664	8761	
==>ll prompt you for a few
pieces of info.

Since you're running this script, you obviously have Perl <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	1499	1820	
==>int $fh $output;
close $fh;


##############################################################################
# Subroutines.
##############################################################################

# This parses the input file, extracting each method.
# ###################################################
sub parse( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	48974	49094	
==>if(! @stack) {
        # We saw " >>>>" but needed nothing.  This is ALL just stuff then.
        DEBUG > 4 and print " B <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39559	39656	
==>ter, pmc, meth);
    ${func_ret}Parrot_run_meth_fromc_args$ret_type(interpreter, sub,
        pmc, <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7243	7354	
==>eg);
}

sub output_pushint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);

    if ($self->{DEBUG <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6885	6996	
==>eg);
}

sub output_pushint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);

    if ($self->{DEBUG <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9356	9460	
==>elf->{IN_ITEM_TEXT} = 0;
    }
    
    print {$self->{'output_fh'}} $self->{'Tagmap'}{"/$tagname"} || re <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6118	6213	
==>${DEST0} = concat "0"
pre_call_NO_RETURN_${CURIC}:

# If it's a call to instantiate, need to kno <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5773	5872	
==>, lshift, rshift), concat, logical (and, or, xor),
   repeat, eq, cmp */

/* &gen_from_enum(mmd.pasm <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	997	1094	
==>);

	print CODE ".sub $seg\n";
	if (exists $code{$seg}->{declarations}) {
		print CODE <<'END_PIR' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	5149	5246	
==>ke sure that an undef is always sent to signal end-of-stream

    } elsif(exists $self->{'source_s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4117	4245	
==>dent } });
        $handler->end_element({ Name => 'ident' });

        $string = $6;
      }

      if (defined $string and $str <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10821	10924	
==>ess defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "No content!"      u <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36623	36723	
==>ypeinfo\n";

		# Now call pre_call and append code that it generates.
		my $pre_call = $srm->pre_call <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	3715	3837	
==>entry $src\n";
    }

    # Parse out metadata
    die "Malformed line in MANIFEST: $_" if not defined $meta;
    my $gener <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4068	4182	
==>abel) = @_;
    my $comment = Regex::Ops::Tree::isplain($code) ? " # match '".chr($code)."'" : "";
    my $fail = $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4381	4485	
==>abel) = @_;
    my $comment = Regex::Ops::Tree::isplain($code) ? " # match '".chr($code)."'" : "";
    my <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81329	81574	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compile",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82222	82467	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compile",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
3	/Users/nnunley/parrot/lib/Test/More.pm	17826	17945	
==>ok = $Test->ok( !$@, "use $module;" );

    unless( $ok ) {
        chomp $@;
        $@ =~ s{^BEGIN failed--compilation <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7381	7551	
==>dotpos=$len;

                unpack('A1',$lhs) eq '@'    #In line rule
            and do {
                    $lhs =~ /^\@[0-9]+\-([0-9]+)$/
                or  di <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7040	7205	
==>dotpos=$len;

                unpack('A1',$lhs) eq '@'    #In line rule
            and do {
                    $lhs =~ /^\@[0-9]+\-([0-9]+)$/
                or  di <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5559	5653	
==>ck

=head1 SEE ALSO

=over 4

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94468	94797	
==>=> ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 117,
                  "ARGS" => [
                              "s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676020	676106	
==>rc/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_integer(interpreter, {{\@1}}, {{\@2}});\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676800	676886	
==>rc/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_integer(interpreter, {{\@1}}, {{\@2}});\ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	60844	60958	
==>rser->YYData->{functs}      = [];
    $parser->YYData->{lex_num}     = 0;
    $parser->YYData->{scope}       = [] <==
3	/Users/nnunley/parrot/lib/Test/More.pm	10876	10976	
==>le or $object can do these @methods
(works with functions, too).

    can_ok('Foo', qw(this that what <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17398	17491	
==>been copied here, and then refactored and adjusted to enable various
bits of Parrot-specific b <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19327	19418	
==>lock();
      my $left = Jako::Construct::Expression::Value::Identifier->new($block, $token) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20409	20500	
==>lock();
      my $left = Jako::Construct::Expression::Value::Identifier->new($block, $token) <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2789	2892	
==>should be skipped"
Label1:
   PRINT "5 back in module-level code"
   END
Sub1:
   PRINT "2 in subroutine <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16756	16859	
==>should be skipped"
Label1:
   PRINT "5 back in module-level code"
   END
Sub1:
   PRINT "2 in subroutine <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2177	2299	
==>target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various libraries i <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2469	2591	
==>target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various libraries i <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2264	2386	
==>target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various libraries i <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1574	1701	
==>ERR => \$nberr,
				TOKEN => \$token,
				VALUE => \$value,
				DOTPOS => \$dotpos,
				STACK => [],
				DEBUG => 0,
				C <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1521	1642	
==>ERR => \$nberr,
				TOKEN => \$token,
				VALUE => \$value,
				DOTPOS => \$dotpos,
				STACK => [],
				DEBUG => 0,
				C <==
3	/Users/nnunley/parrot/languages/converter.pl	226	327	
==>{
  my $modifier = shift;
  return '' unless defined $modifier->[0];
  return '(?)'  if $modifier->[0] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608871	609199	
==>object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 690,
                  "ARGS" => [
                              " <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5587	5694	
==>s[$stateno];

#DBG>	print STDERR ('-' x 40),"\n";
#DBG>		$debug & 0x2
#DBG>	and	print STDERR "In state $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5319	5422	
==>s[$stateno];

#DBG>	print STDERR ('-' x 40),"\n";
#DBG>		$debug & 0x2
#DBG>	and	print STDERR "In state $ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	17884	18059	
==>^\s*$//gm;
                $real_output =~ s/[\t ]+/ /gm;
                $real_output =~ s/ +$//gm;

                $expected =~ s/[\t ]+/ /gm;
            }

            # s <==
3	/Users/nnunley/parrot/lib/Test/More.pm	6252	6371	
==>xpression passes, a false one fails.  Very simple.

For example:

    ok( $exp{9} == 81,                   'simple expon <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	3051	3143	
==>on of output
with the expected result is true.

=item C<pir_output_like($code, $expected, $de <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	2101	2212	
==>$right->compile($compiler);

    if ($cond eq 'if') {
      $op = $compiler->invert_relop($op);
    }
    else { <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	1345	1455	
==>g> if C<$new> is undefined.

=cut

sub integrate
{
    my ($orig, $new) = @_;

    # Rather than sprinkling "if <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	10736	10837	
==>->is_exfix_arith) {
      my $block = $self->current_block();
      my $ident = Jako::Construct::Expre <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	18599	18700	
==>hanged to two-argument blessing in ctor to support
    derivation from created classes.

    Added cla <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	599	698	
==>aintext plain ));
  $new->nix_X_codes(1);
  $new->nbsp_for_S(1);
  $new->{'Thispara'} = '';
  $new-> <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	4234	4406	
==>_;
          #push @_, undef;
          
          next;
        } else {
          $self->{'in_pod'} = $self->{'start_of_pod_block'}
                            = $self->{' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11060	11161	
==>_groups
  length <rx_len>, <rx_input> # cache the length in <rx_len>

END

    push @ops, $self->outpu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	312002	312159	
==>backtrace(interpreter);\n    {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	15999	16133	
==>t if $cmp eq '!~';
        $ok = $self->ok( $test, $name );
    }

    unless( $ok ) {
        $this = defined $this ? "'$this'" : 'und <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16489	16606	
==>ist' => 92,
			'functioncall' => 31,
			'tableconstructor' => 32,
			'var' => 35,
			'_field_plus' => 93,
			'fie <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	10986	11104	
==>ils  { display: none; }
    .expander { color: blue; cursor: pointer; }  /* hack? */

    .tests_ok       { color: #050 <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3511	3618	
==>$PMC2C --library $group --c " . join(" ",@pmcfiles))
              or die "pmc2c library creation failed ($? <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3615	3722	
==>$PMC2C --library $group --c " . join(" ",@pmcfiles))
              or die "pmc2c library creation failed ($? <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1682	1792	
==>0]{type};
    for(@{$node->{children}}) {
      $cur_type = $_->{type} if $_->{type} eq 'REAL';
    }
    $node <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53248	53339	
==>/core.ops\"\n  if ({{\@1}} != 0) { Interp_flags_SET(interpreter,   PARROT_GC_DEBUG_FLAG); }\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54004	54095	
==>/core.ops\"\n  if ({{\@1}} != 0) { Interp_flags_SET(interpreter,   PARROT_GC_DEBUG_FLAG); }\ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	21179	21346	
==>oto lastback
#         next:
#
# R*? ->        pushindex
#               goto next
#        rfail: popint -> tmp or R.back
#               goto lastback
#         back: <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33240	33401	
==>> $var,
            'arg1'   => $nil->[0],
        );
        push @return1, $var;
    }
    else {
        push @opcodes2, @{ $expr->[1] };
        push @ <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	146	246	
==>of
# PIR that can look up the built-in that's needed and return its PIR.

use strict;
use Getopt::Lon <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7349	7469	
==>defined($options{ignore})	       ? $options{ignore}
		    :					 ''
		    ;

	if (!defined $ldel) { $ldel = '<\w+(?:' . g <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24351	24471	
==>defined($options{ignore})	       ? $options{ignore}
		    :					 ''
		    ;

	if (!defined $ldel) { $ldel = '<\w+(?:' . g <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3016	3113	
==>op> >>. Pops the address off control stack.

=item C<expr OFFSET(X)>

Transforms to C<PC + X>. Thi <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	3998	4104	
==>ame      = pack_smoke(%smoke);

  open my $fh, ">", $filename or
    die "Couldn't open \"$filename\" for w <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3192	3289	
==>s qw(@ISA %pmc_types @EXPORT_OK);

@ISA = qw( Exporter );
@EXPORT_OK = qw( %pmc_types);

%pmc_type <==
3	/Users/nnunley/parrot/lib/Parrot/PMC.pm	136	233	
==>s qw(@ISA %pmc_types @EXPORT_OK);

@ISA = qw( Exporter );
@EXPORT_OK = qw( %pmc_types);

%pmc_type <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094207	1094450	
==>" => "inline",
                  "CODE" => 1213,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 209 \"src/ops/experimental.op <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	345	447	
==>ss, $plan, @args ) = @_;

    Test::More->import( $plan, @args );

    __PACKAGE__->_export_to_level( 2 <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	262	364	
==>ss, $plan, @args ) = @_;

    Test::More->import( $plan, @args );

    __PACKAGE__->_export_to_level( 2 <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10873	10970	
==>emoves the instance from
the cache, and undefines it.

Raises an exception if the delete fails.

= <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4707	4804	
==>emoves the instance from the cache, and undefines it.

Raises an exception if the delete fails.

= <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	7841	7934	
==>$code{$seg}->{code}},<<BNOTF;
@codeb  noop
	_screen_color($resultb)	# Broke!
BNOTF
	} elsif (@ <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2350	2570	
==>',
            ar_flags             => '',
            ar_out               => '-out:',
            slash                => '\\',
            blib_dir             => 'blib\\lib',
            ccflags              => $ccfla <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4246	4466	
==>',
            ar_flags             => '',
            ar_out               => '-out:',
            slash                => '\\',
            blib_dir             => 'blib\\lib',
            ccflags              => $ccfla <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	44489	44594	
==>gth($p->[$i-1]) ) {
      $formatting = substr($formatting, 0, length($p->[$i-1]) - 1) . ' ';
    } else { <==
3	/Users/nnunley/parrot/lib/File/Which.pm	1677	1828	
==>o on the normal way
                return $file unless $all;
                push @results, $file;
                # we can stop this loop as if it fin <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	937	1025	
==>RSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');
  confess "Left is n <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	965	1053	
==>RSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');
  confess "Left is n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528432	528674	
==>" => [
                              "n",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 838 \"src/ops/math.ops\"\n  {{\@1}} = atan2((FLOATVAL){{\@2}}, (FL <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1938	2061	
==>lex_num} = 0;
##    warn "PushScopeF\n";
}

sub PopScopeF {
    my ($parser) = @_;

    my $lex_num = shift @{ $parse <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41129	41240	
==>@_[1..2]) . '
			$savetext = $text;
			' . ($op->isterminal() ? 'pop @item;' : "" ) . '
			' . (ref($op) eq 'Par <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5754	5863	
==>rx_ptmp>");
}

sub output_setstart {
    my ($self, $group, $value) = @_;
    $value = value($value);
    retu <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	9201	9300	
==>Get number of locals we need for ${STACKn} and ${DESTm} and set up
	# their meta-variables.
	my ($ma <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9668	9753	
==>],4,0xfffa3942,/* 33 */
HH,$d,$a,$b,$c,$_[12],11,0x8771f681,/* 34 */
HH,$c,$d,$a,$b,$_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	32359	32474	
==>and $treelet->[$i][2] eq '')
      ) {
        $self->whine( $start_line, "An empty L<>" );
        $treelet->[$i] = <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33867	33981	
==>my $ret_def = '';
    my $func_ret = '(void) ';
    if ($method->{type} ne 'void') {
        my $type = $method->{t <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	24003	24108	
==>lags}{maps}) {

      my $hll  = (keys %{$self->{flags}{hll}})[0];
      my $maps = (keys %{$self->{flags} <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	425	533	
==>AX() { 0xFFFFFFFF }

# padd a message to a multiple of 64
sub padding($) {
    my $l = length (my $msg = shif <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2484	2581	
==>c blocks, we don't discover backward branches until late to do
	# otherwise. Also, putting a label <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1062	1159	
==>c blocks, we don't discover backward branches until late to do
	# otherwise. Also, putting a label <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126583	126711	
==>L s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127718	127846	
==>L s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128853	128981	
==>L s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVA <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21471	21604	
==>tate 67
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22047	22152	
==>{<head1>NAME</head1><Para>(X|</?[BCIFLS]>)+</Para>$}s
    ) {
      # Whee, it fits the pattern
      DEBU <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	265	384	
==>gify_lol,
  # '.='   => \&tack_on,  # grudgingly support
  
  'fallback' => 1,         # turn on cleverness
);

sub tack <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25078	25211	
==>tate 78
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	8063	8178	
==>= splice @_,0,2;
  foreach my $t (@_) {
    next unless defined $t and length $t;
    # TODO: enforce some limitatio <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201472	201826	
==>"i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 238,
                  "ARGS" => [
                              "n",
                              "nc",
                              "ic"
                            ],
                  "BODY" => "#line 373 \" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948873	949095	
==>_trans_charset(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949673	949895	
==>_trans_charset(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	14739	14843	
==>D_PREAMBLE";


# $name
.sub unicode:"dyadic:$operator" :multi ( $type1, $type2 )
    .param pmc op1
    . <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5308	5410	
==>{$key};

    my $verbose = defined $self->get('verbose') && $self->get('verbose') == 2;

    print "Loo <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	5039	5135	
==>OD_ERRORS_TIME}) )
	{
		my $checker = Pod::Simple::Checker->new;
	
		$self->{POD_ERRORS_TIME} = t <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	28035	28120	
==>return;
}


#:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.: <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	12224	12308	
==>return;
}

#:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.: <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	21014	21098	
==>return;
}

#:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.: <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16473	16583	
==>q 'class_init';
        if ($self->implements($meth)) {
            my $ret = $self->body($method, $line, $out_ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5122	5230	
==>0;

#DBG>	my($ShowCurToken) = sub {
#DBG>		my($tok)='>';
#DBG>		for (split('',$$token)) {
#DBG>			$tok.= <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4876	4979	
==>0;

#DBG>	my($ShowCurToken) = sub {
#DBG>		my($tok)='>';
#DBG>		for (split('',$$token)) {
#DBG>			$tok.= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968647	968928	
==>E" => 1089,
                  "ARGS" => [
                              "i",
                              "i",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2937	3076	
==>LIBPARROT$PATHQUOTE";
}

our $NOW = time();

################### MAIN PROGRAM ################

my ($mode, @pmcs) = @ARGV;

if ($mode eq 'ge <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3041	3180	
==>LIBPARROT$PATHQUOTE";
}

our $NOW = time();

################### MAIN PROGRAM ################

my ($mode, @pmcs) = @ARGV;

if ($mode eq 'ge <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	1504	1620	
==>b parse_usage {
    my $usage = shift;
    
    my @results;
    my $types = join "|", qw(int string var list channel <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600096	600193	
==>});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601172	601269	
==>});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(in <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	3119	3248	
==>slashes                  => 1
    );
    genfile(
        'config/gen/makefiles/languages.in' => 'languages/Makefile',
        com <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806048	806134	
==>\"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed(interpreter, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806954	807040	
==>\"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed(interpreter, {{\@ <==
3	/Users/nnunley/parrot/config/auto/format.pm	1194	1316	
==>q "long double") {

        # Stay way from long double for now (it may be 64 or 80 bits)
        # die "long double not su <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1872	1977	
==>h;
    
    return $self->SUPER::new($path);
}

=back

=head2 Instance Methods

=over 4

=item C<create_pa <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	849	954	
==>h;
    
    return $self->SUPER::new($path);
}

=back

=head2 Instance Methods

=over 4

=item C<create_pa <==
3	/Users/nnunley/parrot/config/init/defaults.pm	6371	6492	
==>acc => 'bison -v -y',
        lex  => 'flex',

        # Extra flags needed for libnci_test.so
        ncilib_link_extra = <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	6699	6804	
==>e_none{$arg_name} = 1;
	    print <<EOC;
	if argcP >= $i goto arg_ok
	    find_global $arg_name, "${arg}_$ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	46979	47075	
==>$new->output_fh(*STDOUT{IO});
  
  if(ref($source || '') eq 'SCALAR') {
    $new->parse_string_do <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	9166	9277	
==>each my $new_code (@_) {
    next unless defined $new_code and length $new_code;
    if(ASCII) {
      # A good- <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10430	10541	
==>each my $new_code (@_) {
    next unless defined $new_code and length $new_code;
    if(ASCII) {
      # A good- <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	46853	46940	
==>========================================================

sub filter {
  my($class, $sou <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605924	606158	
==>ribute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606715	606949	
==>ribute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/config/gen/platform.pm	96	188	
==>-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/gen/platform.pm - Platform Files

=head1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365321	365556	
==>{{\@2}});\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366161	366396	
==>{{\@2}});\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	12606	12704	
==></th></tr>
      <tmpl_loop name=categories>
        <tr><th colspan="12" class="indent1"><tmpl_var <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640455	640693	
==>nline",
                  "CODE" => 715,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 184 \"src/ops/pmc.ops\"\n  {{\@1} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656431	656516	
==>_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed_int(interpreter, {{\@2}}, {{\@3}}) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657355	657440	
==>_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed_int(interpreter, {{\@2}}, {{\@3}}) <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	13789	13910	
==>code, '');
				}
			}
					
			$retcount++;
		} else {
			my($op1,$op2)=(pop @work, pop @work);
			my($a1, $a2, $ot1, $ot2 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14119	14247	
==>G and print "  It looks contentworthy, I guess.  Using it.\n";
          $title = $para_text_content;
          last;
        } e <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	15543	15661	
==>d
            my $call_pkg = $builder->exported_to() || '';
            # die Dumper( $code, $expected, $desc, \%extra, <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	18094	18212	
==>d
            my $call_pkg = $builder->exported_to() || '';
            # die Dumper( $code, $expected, $desc, \%extra, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1929	2122	
==>\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "noop",
                  "FLAGS" => ":base_ <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	7623	7804	
==>nchUnlessOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        if ( exists $op->{op} ) {
            print {$FH}
                "  unle <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	46260	46350	
==>s\s*\[/)
		unless $self->{_check}{itempos};
	for (qw(thisoffset thiscolumn prevline prevoff <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	13205	13333	
==>indent;
    if (ref $ref) {
        my ($name, @children) = @$ref;
        print $name, "\n";
        dump_ref($_, $indent . "  " <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	3837	3962	
==>ot find anything bigger than intval.
        $conf->data->set(
            hugeintval     => $intval,
            hugeintvalsi <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	7566	7663	
==>f $op->{args}->[0] <= 0;
    return $op->{args}->[0] * $op->{args}->[3]->minlen();
}

sub maxlen { <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	15402	15518	
==>scent::_hint(
			"The current production ended without completing the
			 <$next->{type}op:...> directive that starte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804257	804344	
==>set.ops\"\n    {{\@1}}->vtable->set_pmc_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805158	805245	
==>set.ops\"\n    {{\@1}}->vtable->set_pmc_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	531988	532281	
==>@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exp",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	489951	490154	
==>GS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 517 \"src/ops/math.ops\"\n  {{\@1}} = floor({{\@2}});\n  {{+ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	31335	31473	
==>{#State 107
		ACTIONS => {
			":" => 42,
			"(" => 48,
			"{" => 38,
			"[" => 47,
			"." => 49,
			'STRING' => 44
		},
		GOTOS => <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20506	20603	
==>while($type[CURR] eq "STMT" or $type[CURR] eq "COMM") {
				print CODE "\t# $syms[CURR]\n" if $typ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13669	13791	
==>ck for that case.
      #
      # We *always* create a continue block, even when there is none in the source,
      # so th <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600207	600307	
==>\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n         \"Class '%Ss' doesn't exist\", na <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601283	601383	
==>\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n         \"Class '%Ss' doesn't exist\", na <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	12736	12969	
==>,
           {
               pre          => $pre,
               flags        => $flags,
               methods      => \@methods,
               post         => $post,
               class        => $classname,
               has_m <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2733	2837	
==>r"]= P0	# Hack in the alias

SHARING
		} 
	}
}

my $inputcounts=0;
sub input_read_assign {
	my($prompt,$f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	821314	821422	
==>,
                  "BODY" => "#line 98 \"src/ops/stack.ops\"\n  {{\@1}} = stack_height(interpreter, CONTEXT( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1734	1829	
==>r of arguments (expected %d, got %d) in call to '%s'.",
    scalar(@formal_args), scalar(@args), <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1434	1529	
==>r of arguments (expected %d, got %d) in call to '%s'.",
    scalar(@formal_args), scalar(@args), <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	9417	9600	
==>/b><br>
            <table border="1">
              <tbody>
                <tr>
                  <th>Function</th>
                  <th>Line Coverage</th>
                  <th>Bra <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	3415	3514	
==>s = Parrot::OpsFile->new( [ $file ], $nolines_flag );
    die "$0: Could not read ops file '$file'!\ <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	2978	3073	
==>s = Parrot::OpsFile->new( [ $file ], $nolines_flag );
die "$0: Could not read ops file '$file'!\ <==
3	/Users/nnunley/parrot/tools/util/pirtidy.pl	308	416	
==>foreach my $file (@ARGV) {
    warn "Processing $file...\n" if $verbose;
    open my $ifh, '<', $file;
    my <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832099	832181	
==>ack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}), STACK_ENT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832827	832909	
==>ack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}), STACK_ENT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514133	514393	
==>{{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515013	515273	
==>{{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515893	516153	
==>{{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846622	846715	
==>" => "#line 56 \"src/ops/string.ops\"\n  STRING *s;\n  s = string_chr(interpreter, (UINTVAL){{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847418	847511	
==>" => "#line 56 \"src/ops/string.ops\"\n  STRING *s;\n  s = string_chr(interpreter, (UINTVAL){{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913446	913840	
==>e_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1029,
                  "ARGS" => [
                              "i",
                              " <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32294	32401	
==>$method, 0);
    # I think that these will be out by one - NWC
    my $l = $self->line_directive($line, "ref <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40916	41023	
==>$method, 0);
    # I think that these will be out by one - NWC
    my $l = $self->line_directive($line, "ref <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	10022	10123	
==>ion with $files_in_dir_8dot3{$dirname}{$filename_8dot3} ($filename_8dot3)");
        }
        $files_ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3841	3963	
==>);

    # lib-GROUP.c
    for my $group (keys %$group_files) {
        compile("$group", "lib-$group")
          or die "co <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3945	4067	
==>);

    # lib-GROUP.c
    for my $group (keys %$group_files) {
        compile("$group", "lib-$group")
          or die "co <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	27872	27987	
==>ack doesn't take any parameters, but you said =back $content"
        );
      }

      if(@$curr_open and $curr_ope <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953538	953860	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "encoding",
                  "FLA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584729	584982	
==>NULL);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_AD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585804	586057	
==>NULL);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_AD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071303	1071782	
==>",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1195,
                  "ARGS" => [
                              "i",
                              "i",
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY <==
3	/Users/nnunley/parrot/examples/benchmarks/oo5.pl	290	405	
==>hift } else { $self->[0] }
}

sub j {
    my $self = shift;
    if (@_) { $self->[1] = shift } else { $self->[1] }
} <==
3	/Users/nnunley/parrot/examples/benchmarks/oo6.pl	282	397	
==>hift } else { $self->[0] }
}

sub j {
    my $self = shift;
    if (@_) { $self->[1] = shift } else { $self->[1] }
} <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17268	17372	
==>label = $self->_gensym ();
  my $return = $self->_save_1 ('I');

  _num_arg ($node, 1, 'length');

  my $ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1344	1448	
==>');
#Mandatory parameters
my(@params)=('LEX','RULES','STATES');

sub new {
    my($class)=shift;
	m <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1300	1398	
==>');
#Mandatory parameters
my(@params)=('LEX','RULES','STATES');

sub new {
    my($class)=shift;
	m <==
3	/Users/nnunley/parrot/lib/Test/More.pm	11218	11315	
==>matter how many @methods you check, a single can_ok() call counts
as one test.  If you desire othe <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	594	690	
==>mpile($expr, $ctx);
}

sub tree_to_list {
    my ($tree, $ctx, $pass_label, $fail_label, %options <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	8182	8270	
==>nst ('', 'newsub',[$return,'.Closure',"LAMBDA_$label"]);

  $self->_add_inst ('', 'branch <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	12037	12134	
==>an array ref of programs to search the current C<PATH> for.  The first matching
program name is re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210268	210362	
==>preter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) <= 0) {\n    {{+={{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211248	211342	
==>preter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) <= 0) {\n    {{+={{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007701	1008146	
==>"i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1124,
                  "ARGS" => [
                              "i",
                              "ic",
                              "sc",
                              "ic",
                              "ic"
                            ],
                  "BO <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	12882	12976	
==>Bool :$todo, Str :$depends) returns Bool`

- `lives_ok (Code &code, Str $desc?, Bool :$todo, St <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	667	796	
==>nc"} = sub ($$;$) {
        my $self = shift;
        my ( $code, $output, $desc ) = @_;
  
        my $count = $self->{builder}-> <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1034	1163	
==>nc"} = sub ($$;$) {
        my $self = shift;
        my ( $code, $output, $desc ) = @_;
  
        my $count = $self->{builder}-> <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	4958	5057	
==>UG and print "That's it for that source arrayref!  Killing.\n";
        $self->SUPER::parse_lines(un <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710723	710815	
==>preter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_printf(interpreter, INTVAL_FMT, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711557	711649	
==>preter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_printf(interpreter, INTVAL_FMT, <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10282	10374	
==>', qq{\$?}, qq{Y=}, qq{|}, 'SS', qq{"}, qq{(c)}, 'a', qq{<<}, qq{!}, "", qq{(r)}, qq{-},
'deg <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	6483	6613	
==>l.  Neither does PARROT_IN_CORE.

    my @stack;
    my $line = 0;
    foreach (@$source) {
        $line++;
        next unless de <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3396	3496	
==>{$self->{STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
}

sub YYLexer {
    my($self)=shift;

	$$sel <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3224	3318	
==>{$self->{STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
}

sub YYLexer {
    my($self)=shift;

	$$sel <==
3	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	1621	1733	
==>INLOOPNR  # No tokens!

	bsr ISNUM
	restore I1
	dec I5
	save I5
	bsr CLEAR
	restore I0 # dummy

	eq I1, 0, DOLINE <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	32434	32545	
==>t
    # totally reliable.  5.005_03 and 5.6.1 both do the wrong thing
    # with it.  Instead, we use caller.  T <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	5549	5657	
==>ctly.  The same
checksum can also be calculated in OO style:

    use Digest::MD5;

    $md5 = Digest::MD5->n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846651	846747	
==>ng.ops\"\n  STRING *s;\n  s = string_chr(interpreter, (UINTVAL){{\@2}});\n  {{\@1}} = s;\n  {{+=3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847447	847543	
==>ng.ops\"\n  STRING *s;\n  s = string_chr(interpreter, (UINTVAL){{\@2}});\n  {{\@1}} = s;\n  {{+=3 <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	64060	64156	
==>(and the failure mode was not "MAX" or "PARA").

=item C<Did not find closing tag>

C<extract_tag <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423015	423281	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "listen",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423911	424177	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "listen",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
3	/Users/nnunley/parrot/config/inter/charset.pm	680	786	
==>charset_list = $conf->options->get('charset')
        || join(' ', grep { defined $_ } @charset);

    if ( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	6250	6384	
==>eck(3)
#          match(c) or fail
#          match([dxy]) or fail
#          match(e) or fail
#
# Note that the placement of the check <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	974	1095	
==>sif ( @_ == 1 ) {
	# This is admittedly a little bit silly:
	# do we ever export anything else than 'struct'...?
      $se <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	5750	5865	
==>0,2}\*//mg; # | *

    s/^ *(\$I[d]: .+)\n//m; $info->{Id} = $1;

    my $desc;
    if(/Overview:/) { # normal parro <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	4717	4851	
==>cent;
                next;
            }

            ($percent, $total_branches, $function) = /\s*([^%]+)% of (\d+) branches taken at <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28567	28673	
==>').'
		push @item, '.($::RD_NO_HITEM ? ''
			       : '$item{'.$self->{hashname}.'}=') . '$&;
		' . ($self- <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30645	30751	
==>').'
		push @item, '.($::RD_NO_HITEM ? ''
			       : '$item{'.$self->{hashname}.'}=') . '$&;
		' . ($self- <==
3	/Users/nnunley/parrot/examples/benchmarks/addit.pl	190	285	
==>Variable Argument Subroutines

=head1 SYNOPSIS

    % time perl examples/benchmarks/addit.pl

=h <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7913	8009	
==>tack)) {
			push @{$code{$seg}->{code}}, "IFBRANCH_$_:\n";
		}
=cut
UNK:	if (($type[CURR] eq "STM <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6620	6751	
==>t and go to state $act.\n";

					$$errstatus
				and	do {
					--$$errstatus;

#DBG>					$debug & 0x10
#DBG>				and	$dbgerro <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6313	6437	
==>t and go to state $act.\n";

					$$errstatus
				and	do {
					--$$errstatus;

#DBG>					$debug & 0x10
#DBG>				and	$dbgerro <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2517	2611	
==>"Remembering symbol '$name' as sub...");

  $block->set_symbol($name, $sym);

  $block->push_co <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	1715	1806	
==>statement -I/usr/local/include -I/opt/local/include -pipe -fno-common -Wno-long-double  -I / <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1103	1194	
==>statement -I/usr/local/include -I/opt/local/include -pipe -fno-common -Wno-long-double  -I / <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1107	1198	
==>statement -I/usr/local/include -I/opt/local/include -pipe -fno-common -Wno-long-double  -I / <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64789	65014	
==>ter->code;\n  runops(new_interp, REL_PC + {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65740	65965	
==>ter->code;\n  runops(new_interp, REL_PC + {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	2195	2312	
==>st
        $conf->data->set('libs',      $libs);
        $conf->data->set('ccflags',   $ccflags);
        $conf->data- <==
3	/Users/nnunley/parrot/config/auto/readline.pm	1995	2112	
==>st
        $conf->data->set('libs',      $libs);
        $conf->data->set('ccflags',   $ccflags);
        $conf->data- <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	49168	49259	
==>cess C<$_> instead.
Omitting the second argument (delimiter brackets) indicates that only C< <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35742	35839	
==>you run less (or more) tests than you planned, the missing (or extras)
will be considered failures <==
3	/Users/nnunley/parrot/lib/Test/More.pm	33813	33910	
==>you run less (or more) tests than you planned, the missing (or extras)
will be considered failures <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2609	2706	
==>you run less (or more) tests than you planned, the missing (or extras)
will be considered failures <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113866	114090	
==>src/ops/bit.ops\"\n  {{\@1}} <<= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114605	114829	
==>src/ops/bit.ops\"\n  {{\@1}} <<= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/lib/Test/More.pm	20940	21049	
==>n't yet have code written.  For that you
use TODO.  Read on.

=cut

#'#
sub skip {
    my($why, $how_many) = @ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189777	189890	
==>_integer(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190718	190831	
==>_integer(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	5197	5291	
==>Bowden in his
kitchen one night about the problems I was having writing some really
complicated <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12169	12287	
==>CURR] eq ",") {
					push @ld, { type => "STRING", value=> qq{"$s"}};
					redo OUTDATA;
				}
				if ($type[CURR] =~ / <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614932	615044	
==>er, {{\@2}}, {{\@3}});\n    if (offset < 0) {\n        real_exception(interpreter, next, NO_CLASS,\n            \ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616083	616195	
==>er, {{\@2}}, {{\@3}});\n    if (offset < 0) {\n        real_exception(interpreter, next, NO_CLASS,\n            \ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	31803	31920	
==>oa {
    my($check, $desc) = @_;
    if( $check ) {
        die <<WHOA;
WHOA!  $desc
This should never happen!  Please <==
3	/Users/nnunley/parrot/lib/Test/More.pm	30887	31004	
==>oa {
    my($check, $desc) = @_;
    if( $check ) {
        die <<WHOA;
WHOA!  $desc
This should never happen!  Please <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8862	8978	
==>q{  \x25 3s, '\x25s',\n}, $_, chr($_) foreach (32 .. 126)"
   32, ' ',
   33, '!',
   34, '"',
   35, '#',
   36, '$' <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	19770	19884	
==>::Level overrides.  This is typically useful
localized:

    {
        local $Test::Builder::Level = 2;
        $Te <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	8279	8381	
==>"Learning to accept \"$t\" as target of type $type\n";
  }    
  return sort keys %{ $this->{'accept_ta <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	593	686	
==>ew(
		'Documentation', 'docs.html', '',
		$self->new_group('General Documentation', '',
			$se <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10930	11074	
==>1..9 with [4,x]=4..x and [10,x]=10..x
            if ($incexc[-1] <= $last+1) {
                $incexc[-1] = $last+1;
            }
        } el <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20131	20240	
==>anish
  1031  Germany German
  1036  France French
  3084  Canada French
  1035  Finnish
  1044  Norwegian (Bo <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	182	290	
==>tl       qw<:DEFAULT :flock>;
use Storable    qw<store_fd fd_retrieve freeze>;
use Digest::MD5 qw<md5_hex>;
u <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1191	1286	
==>ompiler, $block, $ident_name, $kind, $scope, $type) = @_;

  confess "No \$compiler!" unless $co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421821	421938	
==>.ops\"\n    {{\@1}} = (INTVAL)PIO_bind(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422714	422831	
==>.ops\"\n    {{\@1}} = (INTVAL)PIO_bind(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	19185	19286	
==>ND_ERROR:
    ex = new Exception
	err = "Attempt to translate unknown instruction (code "
	str_ic = cu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	309956	310073	
==>"ARGS" => [],
                  "BODY" => "#line 91 \"src/ops/debug.ops\"\n    const char *command;\n\n    if (!(inter <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	6547	6647	
==>irectives{$d};
    $this->{'accept_directives'}{$d} = $type;
    DEBUG > 2 and print "Learning to acc <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	23353	23500	
==>etween %s and %s\n",
           $dynasty[-1], $treelet->[0], $treelet->[$i][0], 
          ;
          
          #$nugget = ;
          splice @$tr <==
3	/Users/nnunley/parrot/tools/build/vtable_extend.pl	2252	2353	
==>iable declared in the block
   making the calls into the interpreter, as it declares a variable
   and <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	8207	8292	
==>_line_coverage{$source_file} ? "$file_line_coverage{$source_file} %" : "n/a" ]}</a></t <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4575	4684	
==>eturn $self->op('nop', [], %$self);
    } elsif (@{ $self->{args} } == 1 && 2 == keys %$self) {
        return <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5712	5821	
==>eturn $self->op('nop', [], %$self);
    } elsif (@{ $self->{args} } == 1 && 2 == keys %$self) {
        return <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	564	656	
==>/pmc2c.pl -c src/pmc/foo.pmc ...

Create fooX.c and pmc_fooX.h from fooX.dump files, also cre <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	4800	4923	
==>$regex/;
    }
    return if $fail;
    for my $index ( 0 .. $#section ) {
        my ($name, $p, $ext) = fileparse($_, @{ $ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6844	6959	
==>_;

    if (needs_build("$pmc.c", "$pmc.pmc")) {
        run("$PMC2C --c $pmc.pmc")
          or die "pmc2c code gen <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7055	7170	
==>_;

    if (needs_build("$pmc.c", "$pmc.pmc")) {
        run("$PMC2C --c $pmc.pmc")
          or die "pmc2c code gen <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1423	1533	
==>pos>; # group 0 start := pos');
}

sub output_increment {
    my ($self, $distance, $failLabel) = @_;
    die " <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1671	1780	
==>pos> # group 0 start := pos');
}

sub output_increment {
    my ($self, $distance, $failLabel) = @_;
    die " <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	20633	20736	
==>e_l]->[2],$code[$code_l]->[4]);
	if ($rest =~ /to (\d+)/) {
	    $targ = "pc_$1";
	}
	$cmt ="\t\t# $opco <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799296	799717	
==>S" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 902,
                  "ARGS" => [
                              "p",
                              "kc",
                              "nc"
                            ],
                  "BODY" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259187	259444	
==>BLE_is_same(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263541	263798	
==>BLE_is_same(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193572	193685	
==>_string(interpreter, {{\@1}}), {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194551	194664	
==>_string(interpreter, {{\@1}}), {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	7334	7446	
==>m pmc op1
    .param pmc op2
 
    .local pmc iter_one, iter_two
    .local pmc item_one, item_two
    .local int <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10425	10513	
==>${STEMP1} = ${PTEMP3}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_de <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7809	7897	
==>${STEMP1} = ${PTEMP3}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_de <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44684	44815	
==>3
		DEFAULT => -18
	},
	{#State 204
		DEFAULT => -4,
		GOTOS => {
			'block' => 209,
			'chunk' => 57
		}
	},
	{#State 205 <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5071	5175	
==>cb;

    return $self;
}

=item C<gettriggers($key)>

Get the names of all triggers set for C<$key>.

Acc <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	1835	1936	
==>egex::Ops::Tree::check::ISA        = qw(Regex::Ops::Tree);

@Regex::Ops::Tree::call::ISA         = qw( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375503	375791	
==>],
                  "TYPE" => "function",
                  "CODE" => 439,
                  "ARGS" => [
                              "i",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 427 \"src/op <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1139	1248	
==>ub name { return shift->{NAME};  }
sub args { return @{shift->{ARGS}}; }


#
# compile()
#

sub compile
{
  my <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	958	1067	
==>ub name { return shift->{NAME};  }
sub args { return @{shift->{ARGS}}; }


#
# compile()
#

sub compile
{
  my <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1331	1441	
==>d not be
  # triggered in normal operation, even with bad source code as input.
  #

  $self->INTERNAL_ERROR("U <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1276	1386	
==>d not be
  # triggered in normal operation, even with bad source code as input.
  #

  $self->INTERNAL_ERROR("U <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1179	1289	
==>d not be
  # triggered in normal operation, even with bad source code as input.
  #

  $self->INTERNAL_ERROR("U <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	473	609	
==>utput_like       => 'like',
    output_isnt       => 'isnt_eq'
                        );

foreach my $func ( keys %language_test_map ) { <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	812	948	
==>utput_like       => 'like',
    output_isnt       => 'isnt_eq'
                        );

foreach my $func ( keys %language_test_map ) { <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	387	523	
==>utput_like       => 'like',
    output_isnt       => 'isnt_eq'
                        );

foreach my $func ( keys %language_test_map ) { <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	1059	1174	
==>f $opt_u;
    convert_tests() if $opt_c;
    return run_tests(grep {-f $_} @ARGV);
}

##
## convert_tests()
##
## Co <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7823	7918	
==>T" or $type[CURR] eq "COMM" or $type[CURR] eq "STMT") and $singleif) {
		while($_=pop(@ifstack)) <==
3	/Users/nnunley/parrot/lib/Test/More.pm	24994	25088	
==>rovide more in-depth functionality
along these lines.

=back

=cut

use vars qw(@Data_Stack %Re <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15658	15754	
==>ext t%

' Swap
a$="Hello"
b$="Goodbye"
print a$,b$
swap a$,b$
print a$,b$


' Anti-crawling, give <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644044	644133	
==>c.ops\"\n  {{\@1}} = {{\@2}}->vtable->type_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644937	645026	
==>c.ops\"\n  {{\@1}} = {{\@2}}->vtable->type_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3109	3211	
==>> X.dump and X.c and also create any lib-GROUP.c files

    generate_dump($_) foreach (@pmcs);
    gene <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3213	3315	
==>> X.dump and X.c and also create any lib-GROUP.c files

    generate_dump($_) foreach (@pmcs);
    gene <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	3785	3883	
==>ation);",
#      B => "PObj_bufstart(final_destination) = *return_data;\n    set_nci_S(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38853	39025	
==>,
                              "i"
                            ],
                  "BODY" => "#line 720 \"src/ops/core.ops\"\n  if ({{\@1}} == EXCEPT_doomed)\n    _exit({{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39718	39890	
==>,
                              "i"
                            ],
                  "BODY" => "#line 720 \"src/ops/core.ops\"\n  if ({{\@1}} == EXCEPT_doomed)\n    _exit({{ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	11605	11722	
==>e_group) = 0;
    while($line_group =~
      m/([^\n\r]*)((?:\r?\n)?)/g
    ) {
      #print(">> $1\n"),
      $self-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	331632	331870	
==>ABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	25137	25287	
==>rg1'   => $defn,
        );
    }
    my $assign = new AssignOp( $parser,
        'arg1'   => undef,
        'result' => $defn,
    );
    retur <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	7912	8018	
==>ame"} . ']},
				  Parse::RecDescent::_tracefirst($_[1]),
				  q{' . $self->{"name"} . '})
					if defined <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009886	1010117	
==>g_compose(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010651	1010882	
==>g_compose(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	4067	4212	
==>' => 'define',
             'i_dld' => undef,
             'i_dlfcn' => 'define',
             'i_fcntl' => 'define',
             'i_float' => 'd <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	4821	4943	
==>'    , 244,
 'otilde'   , 245,
 'ouml'     , 246,
 'divide'   , 247,
 'oslash'   , 248,
 'ugrave'   , 249,
 'uacute'   , 25 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10587	10698	
==>tf("\\x%02x", $atom); # Nonportable
    } else {
        die;
    }
}

sub Regex::Ops::Tree::charclass::render { <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	43811	43907	
==>mbol = $func->{value};
      if (exists $global_ops{$symbol}) {
	$return = $global_ops{$symbol}-> <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5361	5475	
==>mode'\nmust be one of generate, compile, linklibs, or copy\n";
}

sub run {
    print join(" ", @_), "\n";

    ret <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4562	4676	
==>mode'\nmust be one of generate, compile, linklibs, or copy\n";
}

sub run {
    print join(" ", @_), "\n";

    ret <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5572	5686	
==>mode'\nmust be one of generate, compile, linklibs, or copy\n";
}

sub run {
    print join(" ", @_), "\n";

    ret <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	27112	27266	
==>$content"
          );
          $para->[1]{'indent'} = 4;
        }
      } else {
        $self->whine(
          $para->[1]{'start_line'},
          "=o <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5187	5328	
==>on
        # some platforms
        if ($^O eq 'hpux' or $^O eq 'cygwin') {
            chmod 0755, "$dest/$_$LOAD_EXT";
        }

    }
}
el <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5398	5539	
==>on
        # some platforms
        if ($^O eq 'hpux' or $^O eq 'cygwin') {
            chmod 0755, "$dest/$_$LOAD_EXT";
        }

    }
}
el <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	10	109	
==>ue.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subje <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	7	106	
==>ue.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subje <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11606	11703	
==>r formatters.

By default, Pod::Escapes exports none of its symbols.  But
you can request any of t <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	4768	4894	
==>emit code to set body and go to the end.
    my $pir = '';
    foreach (@_) {
        next if $_->{'unimplemented'};
        my <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	3550	3675	
==>self);
            
            $index_html .= $formatter->html_link(
                $formatter->append_html_suffix($rel_path <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5241	5341	
==>Construct::Expression::Value::Literal->new($block, $self->require_literal);
        }

        $props <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8241	8341	
==>Construct::Expression::Value::Literal->new($block, $self->require_literal);
        }

        $props <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	308	400	
==>ead1 TITLE

tools/dev/install_files.pl - Copy files to their correct locations

=head1 SYNOPS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509045	509287	
==>- {{\@1}};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509676	509918	
==>- {{\@1}};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg", <==
3	/Users/nnunley/parrot/config/inter/lex.pm	191	295	
==>ad1 DESCRIPTION

Determines whether C<lex> is installed and if it's actually C<flex>.

=cut

package inte <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	7064	7222	
==>$1 ");
            $code .= emit(join(",", map {$_."_%0"} @vars), 'loop_num');

            next;
        }
        

        # comments
        $line =~ s/#.* <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1108869	1109003	
==>type);\n            break;\n        default:\n            real_exception(interpreter, NULL, NO_CLASS,\n                \"Can only use a <==
3	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	192	289	
==>and> <input> <outputs>...

=head1 DISCUSSION

This script works by appending the line

  /* CHECKS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862465	862554	
==>ine 138 \"src/ops/string.ops\"\n  {{\@1}} = string_length(interpreter, {{\@2}});\n  {{+=3} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863234	863323	
==>ine 138 \"src/ops/string.ops\"\n  {{\@1}} = string_length(interpreter, {{\@2}});\n  {{+=3} <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	24356	24518	
==>_file($build_f));
                unlink $build_f;
                $builder->ok(0,$desc);
                return 0;
            }

        my $cfg = "src$PConfig{s <==
3	/Users/nnunley/parrot/examples/benchmarks/stress.pl	709	792	
==>xamples/benchmarks/stress1.pl>, 
F<examples/benchmarks/stress2.pasm>, 
F<examples/be <==
3	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	653	736	
==>xamples/benchmarks/stress1.pl>, 
F<examples/benchmarks/stress2.pasm>, 
F<examples/be <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	250033	250235	
==>\"src/ops/cmp.ops\"\n  {{\@1}} = ! {{\@1}};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	9536	9688	
==>result}->{symbol} :optional\n";
        }
    }

    sub visitReturnDir {
        my $self  = shift;
        my ($dir) = @_;
        my $FH    = $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	15752	15875	
==>hmetic Operators:
    #
    #   <var> = <value> <op> <value>;
    #
    # TODO: Can't really support shift amount as arg unt <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	1992	2106	
==>n warnings
  'source_dead',       # Whether to consider this parser's source dead

  'output_fh',         # The fil <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	425	536	
==>while'    => { PREFIX => "_W", NEXT => 'CONT', REDO => 'REDO', LAST => 'LAST' },
  'if'       => { PREFIX => "_I <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	446	557	
==>while'    => { PREFIX => "_W", NEXT => 'CONT', REDO => 'REDO', LAST => 'LAST' },
  'if'       => { PREFIX => "_I <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	6504	6611	
==>ine of "*"s.
    s/\n( *\n){2,}/\n\n/sg; # excess blank lines
    s/^\s*//s; s/\s*$/\n/s; # trim (and ends w <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28411	28513	
==>:RecDescent::_trace(q{>>Matched terminal<< (return value: [}
						. $& . q{])},
						  Parse::RecDesc <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30487	30589	
==>:RecDescent::_trace(q{>>Matched terminal<< (return value: [}
						. $& . q{])},
						  Parse::RecDesc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037006	1037276	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037786	1038056	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038567	1038837	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566981	567278	
==>AME" => "does",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567875	568172	
==>AME" => "does",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	11145	11239	
==>ends) returns Bool is export`
- `unlike (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679700	679940	
==>line",
                  "CODE" => 762,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 483 \"src/ops/pmc.ops\"\n    {{\@1} <==
3	/Users/nnunley/parrot/config/inter/ops.pm	529	683	
==>) = @_;

    my @ops = (
        sort {
            if ($a =~ /core\.ops/) { return -1 }
            if ($b =~ /core\.ops/) { return 1 }
            return <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10685	10783	
==>', 'e', 'e', 'e', 'i', 'i', 'i', 'i',
'd', 'n', 'o', 'o', 'o', 'o', 'o', qq{/}, 'o', 'u', 'u', 'u', <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	2272	2372	
==>contents, @{$contents{'contents'}};
    }
    
    return $self->new_item($text, grep {defined} @cont <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661959	662046	
==>LL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662875	662962	
==>LL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4} <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11068	11154	
==>if "${CURIC}" == "73" goto pre_call_HAS_RETURN_${CURIC}
goto pre_call_NO_RETURN_${CURIC <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8254	8340	
==>if "${CURIC}" == "73" goto pre_call_HAS_RETURN_${CURIC}
goto pre_call_NO_RETURN_${CURIC <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5916	6002	
==>if "${CURIC}" == "73" goto pre_call_HAS_RETURN_${CURIC}
goto pre_call_NO_RETURN_${CURIC <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	18356	18471	
==>//////////

      my $content = join ' ', splice @$para, 2;
      $content =~ s/^\s+//s;
      $content =~ s/\s+$//s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21326	21441	
==>//////////

      my $content = join ' ', splice @$para, 2;
      $content =~ s/^\s+//s;
      $content =~ s/\s+$//s <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	16595	16701	
==>d (typed eh)\n";
    $pir .= <<'PIRCODE';
    loadreg = "$P1000001"
PIRCODE
    my $post_load = $srm->post_ <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	4390	4547	
==>>set(
            hugefloatval     => 'long double',
            hugefloatvalsize => $size
        );
        } else {
        $conf->data->set(
            h <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	17146	17283	
==>t are no shells
    @files = glob $files[0] if $files[0] eq '*.pmc';

    my %all;
    for my $file (@files) {
        my ($class, $res) = <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	2876	2971	
==>y C<$from> to the location specified by C<$to> if
it's contents have changed.

The regular expre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549426	549671	
==>OT_JUMP_ENEXT",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550726	550971	
==>OT_JUMP_ENEXT",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552027	552272	
==>OT_JUMP_ENEXT",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451199	451464	
==>" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 51 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451937	452202	
==>" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 51 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452676	452941	
==>" => "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 51 <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5509	5602	
==>elf->_add_inst ('', 'set', [$pair.'[1]',$return]);
      $self->_add_inst ('', 'set', [$return <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17057	17146	
==>elf->_add_inst ('', 'set',[$pair.'[1]',$return]);
    $self->_add_inst ('', 'set',[$return <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6544	6631	
==>elf->_add_inst('', 'set', [$pair.'[1]',$return]);
  $self->_add_inst('', 'set', [$return <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32025	32139	
==>ameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $parameters = ", $parameters" if $parame <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33602	33716	
==>ameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $parameters = ", $parameters" if $parame <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40659	40773	
==>ameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $parameters = ", $parameters" if $parame <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627522	627814	
==>});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628666	628958	
==>});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924470	924762	
==>});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324577	324742	
==>p",
                              "i"
                            ],
                  "BODY" => "#line 144 \"src/ops/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_nat <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5270	5391	
==>>					?	sprintf('<%02X>',ord($_))
#DBG>					:	$_;
#DBG>		}
#DBG>		$tok.='<';
#DBG>	};

	$$errstatus=0;
	$$nberror=0 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5018	5132	
==>>					?	sprintf('<%02X>',ord($_))
#DBG>					:	$_;
#DBG>		}
#DBG>		$tok.='<';
#DBG>	};

	$$errstatus=0;
	$$nberror=0 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	906	1001	
==>token object.
For example, parsing a "=head1 ..." line will give you
a start-token with the tagn <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1334	1429	
==>token object.
For example, parsing a "=head1 ..." line will give you
a start-token with the tagn <==
3	/Users/nnunley/parrot/lib/Test/More.pm	20350	20446	
==>alled, the whole block of
code I<won't be run at all>.  Test::More will output special ok's
which <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1921	2016	
==>JKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
    # Yes, stipulate the list without a ran <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2024	2119	
==>JKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
    # Yes, stipulate the list without a ran <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122105	122332	
==>ned.\n   */\n  LVALUE_CAST(UINTVAL, {{\@1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123017	123244	
==>ned.\n   */\n  LVALUE_CAST(UINTVAL, {{\@1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20911	21006	
==>Construct::Expression::Value::Identifier->new($block, $self->require_ident)
      }
      else { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064032	1064254	
==>"CODE" => 1188,
                  "ARGS" => [
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 253 \"src/ops/var.ops\"\n    PMC *ns_root <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2839	2935	
==>s => { kind => 'then' } });
  $_->sax($handler) foreach $self->content;
  $handler->end_element({ <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	8958	9053	
==>ts
a "struct-like" data structure.

The new class is given a constructor method, C<new>, for cre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	935739	935982	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "titlecase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936515	936758	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "titlecase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
3	/Users/nnunley/parrot/examples/benchmarks/arriter.pl	588	713	
==>= chr(65 + $i);
    push @k, $s;
}


# set up all 5 element permutations of qw( A B C D E F G H I J )
for my $e (0..3) {
    f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563961	564216	
==>_method(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564859	565114	
==>_method(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	42995	43093	
==>->[$i]} == 3 and !ref($content = $treelet->[$i][2])) {
        $self->whine( $start_line, "An E<... <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846728	847003	
==>{\@1}} = s;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ch <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847524	847799	
==>{\@1}} = s;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ch <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	651	748	
==>ed $block;

  confess "Block (" . ref($block) . ") is not!"  unless UNIVERSAL::isa($block, qw(Jako <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	6639	6744	
==>have for
#      the current node (NOT for this node and everything following it)
#  follow_min - The minim <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	56194	56288	
==>se they are disgarded).

For example, the following extracts substrings that are valid Perl var <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	35641	35734	
==>s and C<'[..]'>s are "cross-nested" and
the embedded C<'E<gt>'> is unbalanced. (In a scalar co <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1843	1944	
==>TERNAL_ERROR("Constant definition involves undefined value!")
    unless defined $value;

  #
  # Look <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716482	716580	
==>get_string(interpreter, p));\n  if (s) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_put <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724374	724472	
==>get_string(interpreter, p));\n  if (s) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_put <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3331	3442	
==>@_;
    return "return cur_opcode + $offset";
}

sub goto_address
{
    my ($self, $addr) = @_;
    return "retu <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	25961	26068	
==>EOC;
	$ret_string$func($args)  $cmt
EOC
    }
    my $opcode = $code[$code_l]->[2];
    if ($opcode eq 'POP_ <==
3	/Users/nnunley/parrot/config/auto/gc.pm	128	221	
==>d1 NAME

config/auto/gc.pm - Garbage Collection

=head1 DESCRIPTION

Checks whether the C<--gc <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1192	1316	
==>t-totally-brilliant wrapping algorithm:
      s/(
         [^\n]{55}         # Snare some characters from a line
         [^\ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1136	1260	
==>t-totally-brilliant wrapping algorithm:
      s/(
         [^\n]{55}         # Snare some characters from a line
         [^\ <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5082	5182	
==>= @_;
	
	foreach (keys %cores) {
		if (needs_build($oplib . "_ops$cores{$_}.c", "$oplib.ops")) {
			r <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	30501	30629	
==>RY_SUBSCR
{
    my ($n, $c, $cmt) = @_;
    my $w = pop @stack;
    my $v = pop @stack;
    my $x = temp('P');
    my $agg = prom <==
3	/Users/nnunley/parrot/config/init/optimize.pm	1573	1706	
==>n was enabled
            $conf->data->set(optimize => $optimize);
        }
    } else {
        $self->set_result('no');
        pri <==
3	/Users/nnunley/parrot/config/inter/charset.pm	1496	1597	
==>build list of libraries for link line in Makefile
    my $slash = $conf->data->get('slash');
    $TEMP <==
3	/Users/nnunley/parrot/config/inter/encoding.pm	1513	1614	
==>build list of libraries for link line in Makefile
    my $slash = $conf->data->get('slash');
    $TEMP <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9521	9617	
==>PRE_CALL_RETURN_${CURIC}

# It's a call. Get details of method we're calling.
(${PTEMP0}, ${STEMP <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7035	7131	
==>PRE_CALL_RETURN_${CURIC}

# It's a call. Get details of method we're calling.
(${PTEMP0}, ${STEMP <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5591	5687	
==>PRE_CALL_RETURN_${CURIC}

# It's a call. Get details of method we're calling.
(${PTEMP0}, ${STEMP <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19043	19168	
==>s $params[-1]->{pragma} ) {
            $params[-1]->{pragma} = 'multi';
        }
    }
    push @opcodes, @{ $fct->[1] } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	395908	396107	
==>",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396988	397187	
==>",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	2789	2940	
==>longopt'),
        ),
        $self->new_group(
            'Interpreter', 
            '',
            $self->c_pair_item('', 'embed'),
            $se <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	1682	1815	
==>late it here.
    else {
        *share = sub { return $_[0] };
        *lock  = sub { 0 };
    }
}


=head1 NAME

Test::Builder - Bac <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	4205	4310	
==>('|', map { quotemeta $_ } split('', $rdel));
	pos = $posbug;

	my $startpos = pos $$textref || 0;
	my @ma <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113175	113500	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115506	115831	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116361	116686	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691755	691996	
==>",
                  "CODE" => 777,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 626 \"src/ops/pmc.ops\"\n   {{\@1}} = Pa <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	1309	1401	
==>ene Gesserit Litany Against Fear
	# Compiler version @{[VERSION]}@{[ grep $_=sprintf("\n\t#%2 <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	6012	6103	
==>totals{line_coverage}   = sprintf("%.2f", ($totals{lines}    ? ($totals{covered_lines} / $to <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871625	872107	
==>[
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 989,
                  "ARGS" => [
                              "s",
                              "sc",
                              "i",
                              "i"
                            ],
                  "BODY" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193541	193635	
==>er,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) < 0) {\n    {{+={{\@3}}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194520	194614	
==>er,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) < 0) {\n    {{+={{\@3}}} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	36968	37083	
==>ndled: %s)\n",
         $para->[0], join(' ', sort keys %{$self->{'accept_directives'}} )
        ;
        $self->w <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	1170	1284	
==>f $file =~ m!/|\.\.!;
	    if (-e BASEDIR . "/" . $file) {
		open my $f, "<", BASEDIR . "/" . $file or die $!;
		pr <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	451	545	
==>e warnings;

use base qw( Parrot::Docs::Section );

=item C<config_groups()>

Dynamically creat <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	12736	12839	
==>{'LOADTYPE'} = 'loadtype';
    $mv->{'RETTYPE'} = 'rettype';
    $mv->{'LABELNUM'} = 'label_num';
    $m <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	4974	5069	
==>rns the contents of the item interpreted relative to the source
directory.

=cut

sub contents_r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828797	828887	
==>l_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_pmc(e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829865	829955	
==>l_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_pmc(e <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33971	34113	
==>=> 167,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			"<=" => 85,
			'OR' => 84,
			">" = <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8308	8403	
==>t "Foo";tab$(15);"Stuff"
print "I am the very model of a modern";tab$(15);"More"
print "Hello"," <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21172	21267	
==>t "Foo";tab$(15);"Stuff"
print "I am the very model of a modern";tab$(15);"More"
print "Hello"," <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660741	661010	
==>PE" => "inline",
                  "CODE" => 738,
                  "ARGS" => [
                              "i",
                              "p",
                              "kic"
                            ],
                  "BODY" => "#line 334 \"src/ops/pmc. <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	3204	3303	
==>parser, $value, $type ) = @_;

    my $defn = $parser->YYData->{symbtab_cst}->Lookup( $type . $val <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	4585	4680	
==>f the file. Executable
files, and F<*.dump> files are assumed not to contain POD and therefore
n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826354	826465	
==>],
                  "BODY" => "#line 146 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827424	827535	
==>],
                  "BODY" => "#line 146 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entr <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	5058	5154	
==>f> and runs
language_output_is().  This I<does> set a description for you, so don't pass
one.

=i <==
3	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	648	789	
==>);

         last if ! defined $_;
         die "INPUT: expected" if ! /^INPUT:/;

         # Gather input, look for OUTPUT:
         $input = <==
3	/Users/nnunley/parrot/languages/regex/test.pl	2580	2711	
==>);

    last if ! defined $_;
    die "INPUT: expected" if ! /^INPUT:/;

    # Gather input, look for OUTPUT:
    $input = '';
    u <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	21591	21693	
==>me, @{ $self->{parents} });
    $isa =~ s/\s?default$//;
    my $does = join(" ", keys(%{ $self->{flags <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684097	684396	
==>P" => 0,
                  "NAME" => "setprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684991	685290	
==>P" => 0,
                  "NAME" => "setprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	10307	10413	
==>nserted if arrays are empty to prevent msvc compiler errors
        my $arg_types  = "{ " . join(", ", scal <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1904	2021	
==>ey provided appears to be
    # broken
    if ($ret == -1 and !$conf->options->get('ask')) {

        # fall back to d <==
3	/Users/nnunley/parrot/config/inter/make.pm	1778	1895	
==>ey provided appears to be
    # broken
    if ($ret == -1 and !$conf->options->get('ask')) {

        # fall back to d <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1918	2035	
==>ey provided appears to be
    # broken
    if ($ret == -1 and !$conf->options->get('ask')) {

        # fall back to d <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	602999	603173	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "classname",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1096105	1096279	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "classname",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	1032	1140	
==>nt_seen.
    $self->get_short_title();
    
    return unless $self->content_seen;

    # Suppress the warnin <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	27027	27161	
==>f->whine(
            $para->[1]{'start_line'},
            "Can't have a 0 in =over $content"
          );
          $para->[1]{'inden <==
3	/Users/nnunley/parrot/config/auto/alignptrs.pm	348	438	
==>w(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';
use Config;

$descr <==
3	/Users/nnunley/parrot/config/auto/headers.pm	315	405	
==>w(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';
use Config;

$descr <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	597	687	
==>rser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullParser>, <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	503	593	
==>rser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullParser>, <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1490	1580	
==>rser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullParser>, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549437	549699	
==>XT",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550737	550999	
==>XT",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552038	552300	
==>XT",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10366	10495	
==>se constant FALSE => 0;

sub tokenize {
    my $data = shift;

    my @tokens;
    my @types;
    my $state = 0;
    my $depth = 0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1108716	1108822	
==>reter, NULL, NO_CLASS,\n                    \"Class '%Ss' not found\", readable_name(interpreter, {{\@2}})) <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Ops.pm	676	765	
==>pl'),
			$self->new_item('', 'src/ops/ops.num'),
			$self->new_item('', 'tools/build/ops2p <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	3154	3264	
==>mbly of <?([\w:]+)>?/) {
	push @code, [ 0, 0, "New_func", 0, $1, undef ];
	return;
    }
    if ($l =~ />>\s+(\ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	16463	16561	
==>an interface based on a stream of token objects,
instead of based on events.

This is a subclass of <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20672	20755	
==>ple::PullParserTextToken>, and
L<Pod::Simple::PullParserEndToken>.

L<HTML::TokePars <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	17360	17501	
==>e=>'short-hair', cross=>1),
                   or:  breed    => {name=>'short-hair', cross=>1},
                      );

    print "Once a ca <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	7742	7855	
==>emoves, and operates on the beginning instead of the end!
          
          if($to_unget[-1]->type eq 'text') { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23930	24038	
==>dest = (opcode_t *)p->vtable->invoke(interpreter, p, {{^+3}});\n  {{=dest}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	28063	28357	
==>ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 37,
                  "ARGS" => [
                              "pc"
                            ],
                  "BODY" => "#line 502 \"s <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	14132	14261	
==>24
		ACTIONS => {
			"?" => 43
		},
		DEFAULT => -15
	},
	{#State 25
		ACTIONS => {
			"?" => 44
		},
		DEFAULT => -19
	},
	{#Stat <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1233	1323	
==>uages/lua/lib/luatable.pbc"
#  load_bytecode "languages/lua/lib/luamath.pbc"
#  load_byte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920452	920750	
==>> 0,
                  "NAME" => "sprintf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921344	921642	
==>> 0,
                  "NAME" => "sprintf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	922237	922535	
==>> 0,
                  "NAME" => "sprintf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	2293	2398	
==>e Regex::Driver::PIR;
our @ISA = qw(Regex::Driver);

sub output_header {
    my ($self, $fh) = @_;
    $se <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	1644	1755	
==>he local equivalent for.
    }

    # It's numeric, whether by origin or by mutation from a known name
    retur <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	4289	4390	
==>es similarly to the base number type
    scalar   : (only used by the sample src/dynpmc/foo.pmc)

This <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	2304	2393	
==>th), $parent->html_link($path);
}

=item C<write_html($source, $target, $silent)>

C<$sour <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8457	8569	
==>t_reg = shift;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the store.
	# Other <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6277	6389	
==>t_reg = shift;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the store.
	# Other <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5192	5304	
==>t_reg = shift;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the store.
	# Other <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	9772	9876	
==>} and 
			($syms[CURR] eq ',' and $type[CURR] ne "STRING"));
		last if ($syms[CURR] eq ';');
		push(@expr <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	6687	6789	
==>ode and everything following it)
#  follow_min - The minimum number of atoms in nodes following the cur <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	1172	1269	
==>y $cpuarch = shift @ARGV;
my $genfile = shift @ARGV;

my ($function, $body, $extern, $header, $asm <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29444	29552	
==>r or instruction must use one of \${DEST0} or \${LOADREG} in rule " .
				"$rule->{'name'}\n";
		}

		# Now c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031409	1031505	
==>BODY" => "#line 323 \"src/ops/sys.ops\"\n    if ({{\@2}} < enum_first_type || {{\@2}} >= enum_las <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032278	1032374	
==>BODY" => "#line 323 \"src/ops/sys.ops\"\n    if ({{\@2}} < enum_first_type || {{\@2}} >= enum_las <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	32115	32243	
==>9,
			'NIL' => 30,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36,
			'NAME' => 4,
			"{" => 38,
			"..." => 39, <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	3947	4060	
==>ldel;
	unless ($rdel =~ tr/[({</])}>/)
        {
		return _fail $wantarray, $textref,
			     "Did not find a suit <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	12541	12640	
==>INS'} = 'gen_pir';
    $mv->{'PC'} = 'pc';
	$mv->{'NEXTPC'} = 'next_pc';
	$mv->{'PTYPES'} = 'ptypes' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62761	63023	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorsoff",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63406	63668	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorsoff",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "in <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	6575	6739	
==>O', 
            '',
            $self->c_item(
                'Parrot\'s layer-based I/O subsystem.', 
                'headers' => ['io'], 
                'conte <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	5170	5305	
==>elf->file_paths;
    
    if ( $recursive )
    {
        foreach my $dir ($self->directories)
        {
            next if defined $ig <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	8520	8644	
==>urn it into a boolean.
    $test = $test ? 1 : 0;

    unless( $self->{Have_Plan} ) {
        require Carp;
        Carp::cro <==
3	/Users/nnunley/parrot/tools/build/revision_c.pl	333	436	
==>igure run.

=head1 SEE ALSO

F<config/gen/revision.pl>,
F<lib/Parrot/Revision.pm>,
F<include/parrot/conf <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062534	1062647	
==>ot_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063403	1063516	
==>ot_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064273	1064386	
==>ot_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3738	3837	
==>{
	# Convert X.o -> X.so
	my $core_suffix;
	foreach $core_suffix (values %cores) {
		partial_link({} <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	3856	3952	
==>ing" context="string" String="'" />
          <RegExpr attribute="String Interp" context="string_ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	1790	1880	
==>=item C<footer($navigation, $resources)>

Returns the page footer.

C<$navigation> is curre <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	15795	15922	
==>expr' => 28,
			'charclass' => 12,
			'range' => 25
		}
	},
	{#State 39
		ACTIONS => {
			'NUM' => 57,
			"." => 58,
			">" => 5 <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	13738	13857	
==>..."},
		         pos $$textref;
		pos $$textref = $startpos;
		return;
	}
	my $closing = $1;
	   $closing =~ tr/([<{/)] <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	677	792	
==>->{nb_warning} ) {
        $parser->YYData->{nb_warning}++;
    }
    else {
        $parser->YYData->{nb_warnin <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	1280	1397	
==>(ref($ops->[0]) eq 'LABEL_COMMENTS') {
        $self->{_label_comments} = shift(@$ops);
    }

    $self->{ctx} = $ctx <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	868	960	
==>pecified as strings
and without leading/trailing pattern delimiters.

(Hint: if you try using <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2966	3058	
==>pecified as strings
and without leading/trailing pattern delimiters.

(Hint: if you try using <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21866	22001	
==>ar' => 35,
			'primary' => 28
		}
	},
	{#State 68
		ACTIONS => {
			"^" => 79
		},
		DEFAULT => -73
	},
	{#State 69
		ACTIONS <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	5713	5832	
==>ditioned_lines}) {

            # Lines with "#CONDITIONED_LINE(var):..." are skipped if
            # the "var" conditi <==
3	/Users/nnunley/parrot/config/auto/format.pm	902	1020	
==>q "long long int")) {
        $ivformat = "%lld";
    } else {
        die "Configure.pl:  Can't find a printf-style fo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651300	651541	
==>tion",
                  "CODE" => 728,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 247 \"src/ops/pmc.ops\"\n    if ({{\ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2063	2226	
==></p>\n",

  'B'      =>  "<b>",                  '/B'     =>  "</b>",
  'I'      =>  "<i>",                  '/I'     =>  "</i>",
  'F'      =>  "<em$Computerese>", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643070	643206	
==>kc"
                            ],
                  "BODY" => "#line 194 \"src/ops/pmc.ops\"\n  {{\@1}} = {{\@2}}->vtable->type_keyed(in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787441	787738	
==>et",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 889, <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	12280	12390	
==>("set_i_i", 1)
 *
 * returns >= 0 (found idx into info_table), -1 if not
 */

static int get_op(const char * na <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	23974	24080	
==>(/^uint16$/) {
			$out =  "    \${I_ARG_$arg_num} = bc.read_uint16()\n    next_pc += 2\n";
			$arg_name = " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042926	1043034	
==>BLE_set_pmc_keyed_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043823	1043931	
==>BLE_set_pmc_keyed_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	10303	10405	
==>on with " . $files_in_dir_nocase{$dirname}{lc($filename)});
        }
        $files_in_dir_nocase{$dir <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22094	22232	
==>e);
        $op    = $self->require_infix_rel->text;
        $right = Jako::Construct::Expression::Value->new($block, $self->require_value) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23027	23165	
==>e);
        $op    = $self->require_infix_rel->text;
        $right = Jako::Construct::Expression::Value->new($block, $self->require_value) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24673	24811	
==>e);
        $op    = $self->require_infix_rel->text;
        $right = Jako::Construct::Expression::Value->new($block, $self->require_value) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54856	55089	
==>}} = interpinfo(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55616	55849	
==>}} = interpinfo(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886805	887038	
==>",
                              "sc",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017392	1017686	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gmtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018316	1018610	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gmtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	986	1089	
==>';
    
    <<"HEADER";
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"
    "http://www.w3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060049	1060148	
==>next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null name\");\n\n    next = {{^+3}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060954	1061053	
==>next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null name\");\n\n    next = {{^+3}} <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20115	20212	
==>back, $check, $next) =
      map { $self->genlabel("ngr_$_") } qw(rfail local_back back check next <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	13474	13586	
==>_S($reg_num);";
        return "t_$temp_num";
    };
}

sub print_function {
    my ($sig, $return, $params, $arg <==
3	/Users/nnunley/parrot/config/inter/charset.pm	1188	1283	
==>efile was built by 'config/inter/charset.pm'

E_NOTE

    foreach my $charset (split(/\s+/, $cha <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15441	15550	
==>on tokens
		$whole.=join(' ', map { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair unary -, functions, etc. <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15803	15912	
==>on tokens
		$whole.=join(' ', map { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair unary -, functions, etc. <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16954	17063	
==>on tokens
		$whole.=join(' ', map { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair unary -, functions, etc. <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	9278	9378	
==>enough check that it's good as an XML Name symbol:
      Carp::croak "\"$new_code\" isn't a valid ele <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10542	10642	
==>enough check that it's good as an XML Name symbol:
      Carp::croak "\"$new_code\" isn't a valid ele <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	53121	53242	
==>, # BS
  "\e" => '\e', # ESC
  "\f" => '\f', # FF
  "\t" => '\t', # tab
  "\cm" => '\cm',
  "\cj" => '\cj',
  "\n" => '\n' <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5509	5622	
==>,$act,$stateno);

        $stateno=$$stack[-1][0];
        $actions=$$states[$stateno];

#DBG>	print STDERR ( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5244	5352	
==>,$act,$stateno);

        $stateno=$$stack[-1][0];
        $actions=$$states[$stateno];

#DBG>	print STDERR ( <==
3	/Users/nnunley/parrot/lib/Test/More.pm	14163	14298	
==>iag("    $diag\n");
    }
    else {
        $ok = $Test->ok( 1, $name );
    }

    return $ok;
}


=item B<pass>

=item B<fail>

  pas <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	12085	12199	
==>ing your own smoke is easy,
  </p>
    
  <pre class="indent2">$ make smoke
</pre>
    
  <p>
    should suffice. T <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3189	3284	
==>e anything on the lazy moves stack?
${ITEMP0} = elements lazy_moves
if ${ITEMP0} > 0 goto PRE_OP <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3806	3920	
==>ributes => { type => $type->name } });
          $handler->characters({ Data => $1 });
          $handler->end_elem <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	17956	18070	
==>xtref = $startpos;
		return;
	}

	my $op = $1;
	$preld1pos = pos($$textref);
	if ($op eq '<<') {
		$ld1pos = pos($$ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	22438	22545	
==>t.  You know
how much work is left to be done, you're aware of what bugs there are,
and you'll know immediat <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9069	9178	
==>equire_semicolon;
      }
      else {
        my $sub = Jako::Construct::Block::Sub->new($block, $type, $iden <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748820	748906	
==>"BODY" => "#line 199 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_number_native(interpre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749604	749690	
==>"BODY" => "#line 199 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_number_native(interpre <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16382	16490	
==>->new($block, $self->forth);
      my $op    = $self->forth->text;
      my $right = Jako::Construct::Express <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17153	17261	
==>->new($block, $self->forth);
      my $op    = $self->forth->text;
      my $right = Jako::Construct::Express <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17958	18066	
==>->new($block, $self->forth);
      my $op    = $self->forth->text;
      my $right = Jako::Construct::Express <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1433	1534	
==>w  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT = qq[];

# Here comes some stuff for Win32. <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1478	1579	
==>w  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT = qq[];

# Here comes some stuff for Win32. <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1482	1583	
==>w  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT = qq[];

# Here comes some stuff for Win32. <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5700	5793	
==>}, ${PTEMP2}) = method_info_from_token(${ASSEMBLY}, ${ARG0})

# If there is a return type, nee <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7920	8013	
==>}, ${PTEMP2}) = method_info_from_token(${ASSEMBLY}, ${ARG0})

# If there is a return type, nee <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11952	12042	
==>tive \i\lang1024\noproof\sbasedon10 pod-L-man;}

{\*\cs25 \additive \f1\lang1024\noproof\sb <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760889	761172	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "setp_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761741	762024	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "setp_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	5644	5775	
==>?\n)?)/g
      ) {
        #print(">> $1\n"),
        $self->SUPER::parse_lines($1)
         if length($1) or length($2)
          o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129882	130172	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130621	130911	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGD <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	42373	42489	
==>---

sub _verbatim_format {
  my($it, $p) = @_;
  
  my $formatting;

  for(my $i = 2; $i < @$p; $i++) { # work backw <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60640	60839	
==>ROT_WARNINGS_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61290	61489	
==>ROT_WARNINGS_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	7989	8123	
==>e;
    
    if ( $tagname =~ m/^over-(.+)$/s ) 
    {
        push @{$self->{STACK}}, $1;
    } 
    elsif ( $tagname eq 'Para') 
    { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925571	925930	
==>base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1042,
                  "ARGS" => [
                              "i",
                              " <==
3	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	154	251	
==>d1 NAME

tools/build/fingerprint_c.pl - Create fingerprint.c

=head1 SYNOPSIS

    % perl tools/bu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500598	500894	
==>GS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 575,
                  "ARGS" => [
                              "i <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1517	1615	
==>0]{'Thispara'} = '' }
sub start_head4 {  $_[0]{'Thispara'} = '' }

sub start_Verbatim    { $_[0]{'T <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1047	1145	
==>0]{'Thispara'} = '' }
sub start_head4 {  $_[0]{'Thispara'} = '' }

sub start_Verbatim    { $_[0]{'T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640738	641031	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641502	641795	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645958	646251	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	3487	3635	
==>OC";
    Parrot_Int type${class};
EOC
    }
    $cout .= <<"EOC";
    int pass;

    /*
     * create a library PMC
     */
    pmc = pmc_new(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	3658	3763	
==>y ($version) = $id =~ /,v\s+(\S+)/s;
    
    return $version;
}

=item C<is_hidden()>

Returns whether th <==
3	/Users/nnunley/parrot/lib/Parrot/Revision.pm	284	380	
==>fig;

=head1 DESCRIPTION

Get parrot's current and configure time revision.

=cut

package Parrot <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	541	645	
==>rectives       = qw(head1 head2 head3 head4 item over back); 
%Known_directives       = map(($_=>'Plain') <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	198	289	
==>Parrot::Test;

@EXPORT = ( qw(output_is output_like output_isnt), @Test::More::EXPORT );
@IS <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	115	206	
==>Parrot::Test;

@EXPORT = ( qw(output_is output_like output_isnt), @Test::More::EXPORT );
@IS <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61680	61810	
==>_bracketed($grammar,'<');
					 $code
				       }
		       or $grammar =~ m/$SUBRULE/gco
				and $code = $1)
		{
			my $name = $co <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	17992	18106	
==>}

        my $class = $all{$name};
        gen_parent_list($include, $name, \%all);
        gen_super_meths($class <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	40380	40479	
==>the outermost tags),

=item [1]

the remainder of the input text,

=item [2]

the prefix substring ( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9738	9850	
==>) = @_;
    $value = value($value);
    return "$value, ";
}

sub output_param {
    my ($self, $name, $type, $re <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	1405	1502	
==>r($res[0], $extrapos-$startlen, $extralen, "\n");
			$res[1] = "$extra$res[1]";
			eval { substr($ <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9741	9825	
==>c,$d,$a,$b,$_[15],16,0x6d9d6122,/* 35 */
HH,$b,$c,$d,$a,$_[18],23,0xfde5380c,/* 36 */ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20730	20835	
==>'add', [ $matchcount, 1 ]),
     $check => aop('lt', [ $matchcount, $min, $local_back ]),
      $next => $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658245	658333	
==>ps/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed(inter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659164	659252	
==>ps/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed(inter <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3000	3139	
==>ple v$Pod::Simple::VERSION doesn't implement UTF16 yet."
        );
        splice @_;
        push @_, undef;
        next;

        # TODO <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3398	3537	
==>ple v$Pod::Simple::VERSION doesn't implement UTF16 yet."
        );
        splice @_;
        push @_, undef;
        next;

        # TODO <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6183	6300	
==>he subrules pir code 
    for my $ruleRow (@$pattern) {
        my ($name, $subpat) = @$ruleRow;
        $subpat = _pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584717	584971	
==>ter, class, NULL);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PAR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585792	586046	
==>ter, class, NULL);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PAR <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	29444	29541	
==>}
	}
	push @{$code{$t}->{code}}, "\t.return $seg\n";
	$seg="_basicmain";
	$funcname="";
	return;
} <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	10706	10801	
==>returns Bool`

*NOTE:* This function currently uses `require()` since Pugs does not yet have
a p <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1300	1438	
==>l");
}

############### SIMPLE OUTPUT ##############

sub output_terminate {
    return "";
}

sub output_advance {
    my ($self, $distanc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	371921	372187	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "peek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	372628	372837	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "peek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o" <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	486	568	
==>ame="...">

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12329	12453	
==>=> 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 9
		ACTI <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10996	11102	
==>$self->_restore ($temp);
    $temp = $pmc;
  }
  $self->_store_lex ($symbol,$temp);

  return $temp;
}

sub <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61008	61099	
==>ttern terminal", $aftererror,$line);
			$item = new Parse::RecDescent::Token($1,'/',$3?$3:'' <==
3	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	716	799	
==>tress.pasm>, 
F<examples/benchmarks/stress.pl>, 
F<examples/benchmarks/stress1.pasm> <==
3	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	563	646	
==>tress.pasm>, 
F<examples/benchmarks/stress.pl>, 
F<examples/benchmarks/stress1.pasm> <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	430	544	
==>N     => 0.4,
  MAX_SIZE    => 2**20 * 3.0,  # MiB limit
  BASEDIR     => "/tmp/parrot_smokes/",
  BASEHTTPDIR => " <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2015	2104	
==>VERSAL::isa($args[$i], 'Jako::Construct::Expression::Value::Identifier')) {
      my $arg_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1715	1804	
==>VERSAL::isa($args[$i], 'Jako::Construct::Expression::Value::Identifier')) {
      my $arg_ <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	918	1004	
==>type_re = make_re('(?:(?:struct\s+)|(?:union\s+))?'.$ident_re.'\**');
my $param_re = ma <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1013269	1013580	
==>FLAGS" => "",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1131,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5512	5632	
==>le}) {
    next if ($entry->[4] =~ /MMD_/);
    $macros .= <<"EOM";
        \"__$entry->[1]\",
EOM
    }
    $macros .= < <==
3	/Users/nnunley/parrot/tools/dev/as2c.pl	613	729	
==>open IN, "<$s" or die "Can't read '$s': $1";
    my ($in_comment);
    $in_comment = 1;
    print "/*\n";
    while ( <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	4588	4720	
==>\$(RM_F) $_.pir\n";
        }
        return $code;
    } else {
        # Just say that we weren't configured with mono path, so <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18646	18741	
==>le (1) {
          push @args, Jako::Construct::Expression::Value->new($block, $self->require_va <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19672	19767	
==>le (1) {
          push @args, Jako::Construct::Expression::Value->new($block, $self->require_va <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131327	131603	
==>Y" => "#line 306 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132182	132458	
==>Y" => "#line 306 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133037	133313	
==>Y" => "#line 306 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2225	2336	
==>P3["$var"]= P0	# Hack in the alias

SHARINGU
		} elsif ( $user and $array) {
			# TODO TODO TODO TODO
			print C <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5984	6085	
==>($entry->[4] =~ /_INT$/);
    next if ($entry->[4] =~ /_STR$/);
    next if ($entry->[4] =~ /_FLOAT$/) <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6402	6503	
==>($entry->[4] =~ /_INT$/);
    next if ($entry->[4] =~ /_STR$/);
    next if ($entry->[4] =~ /_FLOAT$/) <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	31828	31948	
==>ndef, $def, @ops);
}

sub startup {
    my ($self, $num_groups) = @_;

    my $group;

    my @ops;
    foreach $group (0 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	12556	12652	
==>od-head4;}
}

END

   $_[0]->codeblock_halfpoint_size(),
   $_[0]->head1_halfpoint_size(),
   $_[ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	11238	11378	
==>a near match:
    my $norm = lc($e);
    $norm =~ tr[-_][]d;
    my $n;
    foreach my $enc (@supported) {
      $n = lc($enc);
      $n =~ t <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	14374	14470	
==>corresponding class,
or of one of it's subclasses, or a reference to a hash containing named 
arg <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1263	1396	
==>{
    BLOCK => $block,

    IDENT => $ident,
    COND  => $cond,
    LEFT  => $left,
    OP    => $op,
    RIGHT => $right,

    DEBUG <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2649	2748	
==>ent({ Name => 'cond', Attributes => { kind => $cond } });
    $handler->start_element({ Name => 'blo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3413	3512	
==>ent({ Name => 'cond', Attributes => { kind => $cond } });
    $handler->start_element({ Name => 'blo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833538	833623	
==>tack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}}, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834260	834345	
==>tack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}}, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834986	835071	
==>tack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}}, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462905	463181	
==>y zero\");\n  {{\@1}} = fmod({{\@2}}, den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463902	464178	
==>y zero\");\n  {{\@1}} = fmod({{\@2}}, den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464899	465175	
==>y zero\");\n  {{\@1}} = fmod({{\@2}}, den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/examples/benchmarks/freeze.pl	488	597	
==>s = time();
for my $i (0..99999) {
    push @a, $i;
};
my $e = time();
printf "constr.time %.6f\n", $e-$s;

$s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247631	247943	
==>{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	248495	248807	
==>{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	249359	249671	
==>{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	8738	8858	
==>i]]
END_C
}
else {
    print JITCPU <<'END_C';
#define CONST(i) (int *)(jit_info->cur_op[i] * sizeof(struct PackFile_Cons <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27063	27154	
==>me}=$englishname;

	$f="_USERFUNC_$funcname";
	$f=changename($f);
	$f=~s/\$/_string/g; $f=~t <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27336	27427	
==>me}=$englishname;

	$f="_USERFUNC_$funcname";
	$f=changename($f);
	$f=~s/\$/_string/g; $f=~t <==
3	/Users/nnunley/parrot/languages/converter.pl	1660	1763	
==>rminal '...' production# mod(?)
#		{[@item]}
		{ my $lhs = ::strip_quotes($item[1]);
		  my $rhs = ::str <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16439	16539	
==>th->text;
      my $right = Jako::Construct::Expression::Value->new($block, $self->forth);

      $se <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17210	17310	
==>th->text;
      my $right = Jako::Construct::Expression::Value->new($block, $self->forth);

      $se <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18015	18115	
==>th->text;
      my $right = Jako::Construct::Expression::Value->new($block, $self->forth);

      $se <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1324	1427	
==>er is responsible for the consequences.
    if (defined $prog) {
        $conf->data->set($util => $prog <==
3	/Users/nnunley/parrot/config/inter/make.pm	1145	1248	
==>er is responsible for the consequences.
    if (defined $prog) {
        $conf->data->set($util => $prog <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1321	1424	
==>er is responsible for the consequences.
    if (defined $prog) {
        $conf->data->set($util => $prog <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	2931	3055	
==>lsif ($tagname eq 'Data') 
    {
        $self->process_data_start_token($token);
    } 
    else 
    {
        $self->proce <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	671	757	
==>unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');
  conf <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	750	836	
==>unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');
  conf <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	670	756	
==>unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');
  conf <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353990	354238	
==>rint",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 413,
                  "ARGS" <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1618	1715	
==>e.
${INS} = concat ${STACK$register_num}
${INS} = concat " = pop s\n"
PIR
		$pir =~ s/\$register_n <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3328	3425	
==>e.
${INS} = concat ${STACK$register_num}
${INS} = concat " = pop s\n"
PIR
		$pir =~ s/\$register_n <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	15443	15555	
==>sub_meth;
            $additional_bodies .= "{$body_part\n}";
            push @{ $self->{mmd_variants}{$meth} }, <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	1411	1504	
==>rintf("%04x: %08x %08x %08x %08x %s\n",
	    $constant_num, $_->flags, $_->encoding, $_->type, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	327	415	
==>::Construct::Block::Loop::Continue;

use Carp;

use base qw(Jako::Construct::Block::Loop) <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	763	913	
==>uage_test_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    output_isnt       => 'isnt_eq',
                        );

fo <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10136	10255	
==>self = shift;
    my $link = shift;
    my $to = $link->attr('to');
    my $section = $link->attr('section');
    
    r <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	501	615	
==>uage_test_map = (
    output_is   => 'is_eq',
    output_like => 'like',
    output_isnt => 'isnt_eq',
);

fo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93812	94101	
==>"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 116,
                  "ARGS" => [
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 58 \"src/ops/bit. <==
3	/Users/nnunley/parrot/lib/File/Which.pm	6164	6261	
==>y is searced first or not. Could someone please tell
me?

=head1 Author

Per Einar Ellefsen, E<lt> <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	27849	27971	
==>ar = temp('P');
    print <<EOC;
	$ar = new $type $cmt
	$ar = $n
EOC
    for (my $i = $n-1; $i >= 0; $i--) {
	my $p = pop @ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947041	947136	
==>ring.ops\"\n  INTVAL n = Parrot_charset_number(interpreter, {{\@2}});\n  if (n < 0)\n    real_ex <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947943	948038	
==>ring.ops\"\n  INTVAL n = Parrot_charset_number(interpreter, {{\@2}});\n  if (n < 0)\n    real_ex <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3625	3734	
==>t_if {
    my ($self, $reg, $dest) = @_;
    $reg = value($reg);
    return "if $reg, " . $self->output_label_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	37	135	
==>THIS FILE   !!!!!!!
#
# This file is generated automatically from 'src/ops/core.ops'.
# Any changes <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	4497	4669	
==>do until the docs are changed.
        
        my $href = $self->href_for_perl_module($text);
        
        esc($text);
    
        if ( $href )
        {
            $ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6416	6520	
==>}_LOOP:
if i == 0 goto POST_BRANCH_switch_${CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0[i]
    ${ITEMP0} = <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4354	4458	
==>}_LOOP:
if i == 0 goto POST_BRANCH_switch_${CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0[i]
    ${ITEMP0} = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600734	601093	
==>S" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 680,
                  "ARGS" => [
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 363 \" <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30535	30675	
==>> 152
		}
	},
	{#State 99
		DEFAULT => -92
	},
	{#State 100
		ACTIONS => {
			"-" => 72,
			"<" => 74,
			"%" => 76,
			"==" => 77 <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	1091	1212	
==>ub open_tmt {
    my ($filename) = @_;

    local $/ = undef;
    open my $file, "<", $filename
        or die "can't open <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	97	221	
==>ated using Parse::Yapp version 1.05.
#
#        Don't edit this file, use source file instead.
#
#             ANY CHANGE <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	95	215	
==>ated using Parse::Yapp version 1.05.
#
#        Don't edit this file, use source file instead.
#
#             ANY CHANGE <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4277	4384	
==>at "\n"
PIR
	} else {
		# Translator needs to emit an instruction to push the value in the
		# load register <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565499	565750	
==>=> 646,
                  "ARGS" => [
                              "i",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 194 \"src/ops/object.ops\"\n  {{\@1}} = {{\@ <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	5624	5764	
==>ossible, and avoid enabling
        # support for GCC-specific features.

        $conf->data->set(
            ccwarn     => "-ansi -pedanti <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	6813	6942	
==>/) ? 1 : 0;
		my $init     = ($type =~ /^[DdGg]$/) ? 1 : 0;
		my $file     = ($type =~ /^[Ff]$/  ) ? 1 : 0;
		my $small    = ($typ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470634	470950	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 540,
                  "A <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6672	6818	
==>s match goto match_fail
          match_success:
            print "matched"
            goto match_end
          match_fail:
            print "fa <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7689	7835	
==>s match goto match_fail
          match_success:
            print "matched"
            goto match_end
          match_fail:
            print "fa <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	1398	1535	
==>($self->directories())
        {
            next if defined $ignore and $dir->name =~ /$ignore/;
            
            push @files, $d <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	6271	6366	
==>le line endings.

=item C<path_to_parrot()>

Construct a relative path from the current dir to t <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3744	3859	
==>) {
          $handler->start_element({ Name => 'literal', Attributes => { type => $type->name } });
          $hand <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4255	4366	
==>) {
        $handler->start_element({ Name => 'literal', Attributes => { type => $type->name } });
        $hand <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11031	11201	
==>my $last_key = pop @{$var};
                    foreach my $key ( @{$var} ) {
                        push @opcodes, @{ $key->[1] };
                        my $result2 <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9266	9424	
==>my $last_key = pop @{$var};
                foreach my $key ( @{$var} ) {
                    push @opcodes, @{ $key->[1] };
                    my $result2 <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	16889	17015	
==>ntf " %-10s , chr(%s),\n", "'$name'", $value;
      }
    } elsif(m/<!ENT/) {
      print "# Skipping $_";
    }
  
  }
  close <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	1201	1329	
==>ata->add(' ', dflags    => '-L/sw/lib');
            $conf->data->add(' ', cflags    => '-I/sw/include');
        }
    }

    cc <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4630	4736	
==>l
{
    my ($self, $bs) = @_;

    return "static void *const* ${bs}ops_addr;\n\n";
}

=item C<run_core_fun <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726029	726263	
==>= string_copy(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726791	727025	
==>= string_copy(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742009	742243	
==>= string_copy(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	7769	7943	
==>$!";
    while (<OP>) {
        push @lines, $_ if $fix;
        chomp;
        $fix = 0 if /^###DYNAMIC###/;
        s/#.*$//;
        s/\s*$//;
        s/^\s*//;
        nex <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	12861	12963	
==>ename)>

Slurps C<$filename> into memory and returns it as a string.

=cut

sub _slurp
{
    my $filena <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4243	4343	
==>er or
# character class.)
package Regex::Ops::Tree::_atom;

sub minlen { 1 }
sub maxlen { 1 }
sub dfa <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2219	2329	
==>self->block,
    'global',         # TODO: Should we support non-global subs?
    $self->kind,
    $self->type, <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	3515	3618	
==>_data);",
       v => "",
       t => "final_destination = string_from_cstring(interpreter, return_data, <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	10500	10594	
==>de.\n";

  } elsif( Pod::Simple::Transcode::->encoding_is_available($e) ) {

    die($enc_error <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062301	1062524	
==>=> 1186,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 246 \"src/ops/var.ops\"\n    PMC *ns_root = interp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23045	23233	
==>*)p->vtable->invoke(interpreter, p, dest);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25484	25672	
==>*)p->vtable->invoke(interpreter, p, dest);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	624275	624523	
==>",
                  "NAME" => "pic_callr__",
                  "FLAGS" => ":pic",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89095	89318	
==>=> 110,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 38 \"src/ops/bit.ops\"\n  {{\@1}} &= {{\@2}};\n  {{ <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	14080	14193	
==>file.

=cut

sub dump_1_pmc {
    my $file = shift;
    $file =~ s/\.\w+$/.pmc/;

    my $fh = open_file( "<", $fi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1634	1722	
==>Token>, L<Pod::Simple>, L<Pod::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Co <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2801	2889	
==>Token>, L<Pod::Simple>, L<Pod::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Co <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1921	2009	
==>Token>, L<Pod::Simple>, L<Pod::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Co <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	27530	27629	
==>// for better performance on
# repeated calls, so it only works under Perl 5.005 or later.

	$extrac <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24800	24917	
==>quire_value);
        $self->require_close_paren;
      }

      $self->require_semicolon;

      my $ctl = Jako::Cons <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13100	13190	
==>TACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13944	14034	
==>TACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256405	256674	
==>@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257313	257582	
==>@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258221	258490	
==>@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452760	453118	
==>> [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 519,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 230 \"src <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163366	163684	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 197,
                  "ARGS <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	3124	3211	
==>Perl>

=item C<Parrot::Docs::Section::Libs>

=item C<Parrot::Docs::Section::Tools>

=ite <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644432	644781	
==>",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 720,
                  "ARGS" => [
                              "i" <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	2361	2467	
==>s,-1) x (length($dels)-length($escs));
	my @pat = ();
	my $i;
	for ($i=0; $i<length $dels; $i++)
	{
		my $d <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	249241	249384	
==>ic"
                            ],
                  "BODY" => "#line 670 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4 <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	1126	1225	
==>ress the warning in the tests.
    $self->{RESOURCES_URL} = '' unless $self->{RESOURCES_URL};
    $s <==
3	/Users/nnunley/parrot/config/auto/env.pm	502	607	
==>= qw(verbose);

sub runstep
{
    my ($self, $conf) = (shift, shift);

    my $verbose = $conf->options->g <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	543	648	
==>= qw(verbose);

sub runstep
{
    my ($self, $conf) = (shift, shift);

    my $verbose = $conf->options->g <==
3	/Users/nnunley/parrot/config/auto/msvc.pm	504	609	
==>= qw(verbose);

sub runstep
{
    my ($self, $conf) = (shift, shift);

    my $verbose = $conf->options->g <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	57902	58048	
==>'@11-1', 0,
sub
#line 503 "Lua\lua51.yp"
{
            PushScopeF( $_[0] );
            PushScope( $_[0] );
        }
	],
	[#Rule 96
		 'f <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25175	25259	
==>tepexpr="1.0";
	}
	$main::code{$main::seg}->{declarations}->{"FORLOOP_END_$forloop"}= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782104	782491	
==>"i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 883,
                  "ARGS" => [
                              "p",
                              "ki",
                              "sc"
                            ],
                  "BODY" => "#line 3 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6151	6349	
==>ACTIONS}{$$token}
                    :   exists($$actions{DEFAULT})
                        ?   $$actions{DEFAULT}
                        :   undef;
        }
        else {
            $act= <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5862	6054	
==>ACTIONS}{$$token}
                    :   exists($$actions{DEFAULT})
                        ?   $$actions{DEFAULT}
                        :   undef;
        }
        else {
            $act= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459890	459988	
==>, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460878	460976	
==>, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461866	461964	
==>, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4}};\ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10382	10470	
==>P3} = ${STYPES}[${ITEMP2}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP3}["reg_type_short"]
${STEM <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7766	7854	
==>P3} = ${STYPES}[${ITEMP2}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP3}["reg_type_short"]
${STEM <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3941	4040	
==>on, where destination is the first
    # argument, given as --destination=DIRECTORY
    shift(@oplib <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6900	6990	
==>rint right$(t$, 5)
' instr
s1$="The longer string"
found$="longer"
bogus$="not"
print "Foun <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18629	18719	
==>rint right$(t$, 5)
' instr
s1$="The longer string"
found$="longer"
bogus$="not"
print "Foun <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	28702	28799	
==>ay. 

However, if the input text was passed in a variable, that variable's
C<pos> value is updated <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15896	15990	
==>, functions, etc...
		@stream=convert_to_rpn(@expr);	# Get infix into RPN
		($result,$type,@str <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	17047	17141	
==>, functions, etc...
		@stream=convert_to_rpn(@expr);	# Get infix into RPN
		($result,$type,@str <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2332	2437	
==>ssion involves unknown variable %s.", $right->value) unless $right_sym;
    $right_type = $right_sym->type <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2290	2395	
==>ssion involves unknown variable %s.", $right->value) unless $right_sym;
    $right_type = $right_sym->type <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2212	2317	
==>ssion involves unknown variable %s.", $right->value) unless $right_sym;
    $right_type = $right_sym->type <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647572	647807	
==>} = pmc_type(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648333	648568	
==>} = pmc_type(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9018	9100	
==>C";
$export$extern$ret${newl}Parrot_${classname}_$meth(Interp*$interp, PMC*$pmc$arg <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19301	19397	
==>children}}) {
    my $temp_1 = $self->_generate($node->{children}[$_]);
    $self->_add_inst('',' <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19789	19885	
==>children}}) {
    my $temp_1 = $self->_generate($node->{children}[$_]);
    $self->_add_inst('',' <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20278	20374	
==>children}}) {
    my $temp_1 = $self->_generate($node->{children}[$_]);
    $self->_add_inst('',' <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27202	27299	
==>nslate code, if any.
        $pir .= sub_meta($pre_translate_code, $mv, "pre-translate for $rule-> <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34341	34438	
==>nslate code, if any.
        $pir .= sub_meta($pre_translate_code, $mv, "pre-translate for $rule-> <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	307	399	
==>ead1 TITLE

tools/dev/mk_manifests.pl - Generate MANIFEST.* files for building RPMs

=head1 S <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5015	5140	
==>l \"$dest_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  my $bl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3078	3203	
==>l \"$dest_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  my $bl <==
3	/Users/nnunley/parrot/languages/urm/urm-old.pl	1358	1455	
==>ine =~ /(r\d) *<- *(r\d+) *([+-]) *1/) {
	if ($1 ne $2) {print "Syntax error: Registers don't matc <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5901	6065	
==>exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                print {$FH} " :flat";
            }
            $first = 0;
        }
        print {$FH} ") <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6996	7160	
==>exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                print {$FH} " :flat";
            }
            $first = 0;
        }
        print {$FH} ") <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	9910	10074	
==>exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                print {$FH} " :flat";
            }
            $first = 0;
        }
        print {$FH} ") <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1584	1676	
==>ype is not a Jako::Construct::Type instance!")
    unless UNIVERSAL::isa($type, "Jako::Constr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1432	1524	
==>ype is not a Jako::Construct::Type instance!")
    unless UNIVERSAL::isa($type, "Jako::Constr <==
3	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	3437	3558	
==>! -d $directory) {
        print "- mkpath $directory\n";
        mkpath($directory);
    }

    print "- copy $from => $t <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7912	8011	
==>en print "This is true" else print "Oops (int)"
i=0
if i then print "Should not happen (flo)"
i=55
i <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14899	14998	
==>en print "This is true" else print "Oops (int)"
i=0
if i then print "Should not happen (flo)"
i=55
i <==
3	/Users/nnunley/parrot/languages/regex/test.pl	1062	1167	
==>ata and a newline. (The newline
  is not regarded as part of the data, so add an extra one if you want
  t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835730	835811	
==>k_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, string_copy(interprete <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836483	836564	
==>k_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, string_copy(interprete <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79064	79169	
==>string_cstring_free(name);\n  if (p == NULL) {\n      const char * const err = Parrot_dlerror();\n      Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80585	80690	
==>string_cstring_free(name);\n  if (p == NULL) {\n      const char * const err = Parrot_dlerror();\n      Pa <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	29139	29233	
==>text, the extracted string is returned, having first been
removed from the input text. Thus, th <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10941	11057	
==>ting $outfile..\n" if $DEBUG;
    open (IN, "<$infile") or die "Can't read $infile: $!\n";
    open (OUT, ">$outfile" <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11425	11541	
==>ting $outfile..\n" if $DEBUG;
    open (IN, "<$infile") or die "Can't read $infile: $!\n";
    open (OUT, ">$outfile" <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11889	12005	
==>ting $outfile..\n" if $DEBUG;
    open (IN, "<$infile") or die "Can't read $infile: $!\n";
    open (OUT, ">$outfile" <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	890	1030	
==>og' => 1,
            'result' => $parser->YYData->{_G},
            'arg1'   => '_G',
        );
    }
    return [ $parser->YYData->{_ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1336	1464	
==>g   => $lang,
            stream => { name => $s, data => $streams->{$s}, },
            test   => { name => $t, data => $tests-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946043	946262	
==>1064,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 521 \"src/ops/string.ops\"\n  {{\@1}} = string_c <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29660	29806	
==>' => 145
		}
	},
	{#State 94
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" <==
3	/Users/nnunley/parrot/Configure.pl	302	396	
==>t should be run to create the necessary
system-specific files before building Parrot.

=head2 C <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	572	671	
==>::Test::per_test('.out',$count);
    my $parrotdir = dirname $self->{parrot};

    my $args = $ENV{T <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	609	708	
==>::Test::per_test('.out',$count);
    my $parrotdir = dirname $self->{parrot};

    my $args = $ENV{T <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	1381	1476	
==>ie
harness and most of that probably stolen from Test::Harness

Please send patches and bug repo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	34613	34747	
==>"i"
                            ],
                  "BODY" => "#line 632 \"src/ops/core.ops\"\n  {{\@1}}->vtable->set_pointer(interpre <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1596	1695	
==>rbatim    { $_[0]{'Thispara'} = ''   }
sub start_item_bullet { $_[0]{'Thispara'} = '* ' }
sub start_ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1815	1911	
==>arrot, 'parrot' . $PConfig{exe}
);

my $perl6 = File::Spec->catfile(
    $path_to_parrot, qw/ lan <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	35580	35707	
==>{
    my ($parser) = @_;
    my @opcodes = ();
    push @opcodes, new BranchOp( $parser,
        'result' => 'break',
    ) <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	1196	1298	
==>rl6 code back into APL.

.sub "__load_pirtable" :load
    $P0 = new .Hash
    store_global "APL", "%pir <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7065	7189	
==>.sub _PGE_Test
            .local pmc glob_compile
            load_bytecode "PGE.pbc"
            load_bytecode "PGE/Glob.pi <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	9943	10055	
==>s,     $parapos-$textpos,		# TEXT
		$parapos,     0,				# NO CLOSING TAG
		$parapos,     length($$textref)-$parap <==
3	/Users/nnunley/parrot/tools/build/vtable_extend.pl	2379	2476	
==>T_CALLIN_END(interpreter) will put the stack anchor back to
   the way it was, and should always b <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	1368	1462	
==>m('', 'lib/Parrot/Docs/HTMLPage.pm'),
            $self->new_item('', 'lib/Parrot/Docs/File.pm' <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	9197	9290	
==>ub debug {
	push @{$code{$seg}->{code}}, <<DEBUG;
	${seg}_debug($sourceline)
DEBUG
}

sub engl <==
3	/Users/nnunley/parrot/lib/Test/More.pm	29397	29574	
==>);

        if( defined $e1 xor defined $e2 ) {
            $ok = 0;
        }
        elsif ( $e1 == $DNE xor $e2 == $DNE ) {
            $ok = 0;
        }
        elsif ( $sam <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1573	1702	
==>my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = $op->{op} $op->{arg <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2233	2362	
==>my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = $op->{op} $op->{arg <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1791	1891	
==>tdout, $stderr, $ret) = capture_output($prog, '--version');

    # don't override the user even if th <==
3	/Users/nnunley/parrot/config/inter/make.pm	1665	1765	
==>tdout, $stderr, $ret) = capture_output($prog, '--version');

    # don't override the user even if th <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1805	1905	
==>tdout, $stderr, $ret) = capture_output($prog, '--version');

    # don't override the user even if th <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	7627	7775	
==>d->[0];
            $val = $field->[1];
        }
        push @opcodes1, @{ $val->[1] };
        push @opcodes2, @{ $key->[1] };
        push @ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060063	1060159	
==>(!{{\@2}})\n\tinternal_exception(1, \"Tried to get null name\");\n\n    next = {{^+3}};\n    {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060968	1061064	
==>(!{{\@2}})\n\tinternal_exception(1, \"Tried to get null name\");\n\n    next = {{^+3}};\n    {{\@ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	4120	4243	
==>DEBUG > 8) {
        print "* I've gotten ", scalar(@lines), " lines:\n";
        foreach my $l (@lines) {
          if(defi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060071	1060169	
==>})\n\tinternal_exception(1, \"Tried to get null name\");\n\n    next = {{^+3}};\n    {{\@1}} = Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060976	1061074	
==>})\n\tinternal_exception(1, \"Tried to get null name\");\n\n    next = {{^+3}};\n    {{\@1}} = Parr <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	15598	15712	
==>x, $cmp, $name) = @_;

    local $Level = $Level + 1;

    my $ok = 0;
    my $usable_regex = $self->maybe_regex($r <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	1774	1887	
==>e '$c_name";
    print $C $cout;
    close $C;
    my $hout = $generator->gen_h($h_name);
    print $hout if $opt- <==
3	/Users/nnunley/parrot/lib/Test/More.pm	25378	25484	
==>lip off newline so carp() will put in line/file

        _carp sprintf $msg, scalar @_;

	return $Test->ok( <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24603	24707	
==>celine";
		}
}
my $forloop=0;
sub parse_for {   # for var = start to finish [step increment]
	my($endexpr <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	15621	15756	
==>" => 23,
			'CHAR' => 4,
			"<" => 22,
			"+" => 24,
			'CODE' => 6,
			"(" => 10,
			"|" => 26,
			"*" => 27,
			"[" => 14,
			")" => 5 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807908	808163	
==>e->get_number_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808813	809068	
==>e->get_number_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	10657	10762	
==>der-bottom: 1px solid #313052; }
    .indent2 { padding-left: 40px; }
    .indent3 { padding-left: 80px; p <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	31148	31264	
==>( $backup =>   aop('popint', [ '<tmp>', "restore rule $name start" ]),
                     aop('setstart', [ "0", '< <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1393	1495	
==>tring for label gen and some
	# storage for stack depths and stack type states that we are
	# propogati <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	480	582	
==>tring for label gen and some
	# storage for stack depths and stack type states that we are
	# propogati <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4550	4726	
==>n"}++
                  unless ($variable_visible{$file}{$1} ||
                          $variable_visible{ALL}{$1});
            }
        }
    }
    
    close(F);

    # fi <==
3	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	428	542	
==>= Parse::RecDescent->new( << 'END_GRAMMAR' );

{
  $::name_len         = 0; 
  $::substitution_len = 0; 
}

# We ar <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732715	732953	
==>inline",
                  "CODE" => 822,
                  "ARGS" => [
                              "i",
                              "nc"
                            ],
                  "BODY" => "#line 129 \"src/ops/set.ops\"\n  {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564904	565229	
==>});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "can",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565796	566121	
==>});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "can",
                  " <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	11896	12010	
==>:Ops::Tree::group::render {
    my $op = shift;
    my $R = $op->{args}->[0];
    my $str = $R->render();
    # Str <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	56342	56467	
==>\lua51.yp"
{
            BuildParenthesedExpression( $_[0], $_[2] );
        }
	],
	[#Rule 85
		 'functioncall', 4,
sub <==
3	/Users/nnunley/parrot/examples/benchmarks/primes.pl	733	839	
==>:
  $i1++;
  if ($i1 <= $i2) {goto REDO;}
  print $i6, "\nlast is: $i7\n";

=head1 SEE ALSO

F<examples/ben <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1715	1814	
==>evious definition.
  #

  if (defined $sym) {
    $self->SYNTAX_ERROR("Redeclaration of identifier ' <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	7013	7146	
==>elf->new_group(
            'Exceptions',
            '',
            $self->c_pair_item('', 'exceptions'),
            $self->c_pair_ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35105	35224	
==>ethod}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my $decl = $self->de <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36408	36527	
==>ethod}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my $decl = $self->de <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38355	38474	
==>ethod}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my $decl = $self->de <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	12413	12507	
==>r $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These functions will eval a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227432	227694	
==>rpreter, {{\@1}}), {{\@2}}) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228412	228674	
==>rpreter, {{\@1}}), {{\@2}}) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	6315	6422	
==>y.
	$desc = $_;
	$desc = ""  # it's only emacs variables at the end of the file
	    if(!$comment_is_at_begi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3431	3533	
==>d $props{fnlib}) {
      $fnlib = $props{fnlib}->value; # TODO: We should make sure its a string, somew <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6095	6197	
==>d $props{fnlib}) {
      $fnlib = $props{fnlib}->value; # TODO: We should make sure its a string, somew <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2851	2964	
==>ile for the library.

=cut

sub gen_h {
    my ($self) = @_;
    my $hout = dont_edit('various files');
    my $lc <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	10456	10613	
==>g_meth = overload::Method($$thing, '""') ) {
                    $$thing = $$thing->$string_meth();
                }
            }
        };
    }
}


=item <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	7164	7269	
==>sts $expr[$i+1]?$expr[$i+1]->[0]:"NOTARR")) {
			push @stream, $item;  # Operands, etc..
			next;
		}
		#p <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1278	1363	
==>:Construct::Statement::Decrement;
use Jako::Construct::Statement::Goto;
use Jako::Cons <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988220	988647	
==>"",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1107,
                  "ARGS" => [
                              "i",
                              " <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	1814	1911	
==>@@@@@@@@@@@@@@@@@@@@@@@

__PACKAGE__->_accessorize(
  'nbsp_for_S',        # Whether to map S<...> <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8422	8511	
==>irectory_with_path($path);
}

=item C<existing_file_with_name($name)>

Returns a file with <==
3	/Users/nnunley/parrot/config/inter/charset.pm	256	354	
==>de.

=cut

package inter::charset;

use strict;
use vars qw($description @args);

use base qw(Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	1660	1756	
==>r->code->base.data;
    return interpreter->code->prederef.code + offset_in_ops;
}
#else
#  defin <==
3	/Users/nnunley/parrot/lib/File/Which.pm	695	810	
==>ush @path_ext, split ';', $ENV{PATHEXT};
    }
    else {
        push @path_ext, qw(.com .exe .bat); # Win9X or oth <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24478	24581	
==>ARED keyword currently ignored\n";
			goto &parse_dim;
		} else  {
			die "Unknown dim type: $syms[CURR] <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3387	3487	
==>= pop s\n"
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$register_num++;
	}

	# Return generated <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11517	11609	
==>ue = Jako::Construct::Expression::Value->new($block, $self->forth);

      $self->require_sem <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12064	12156	
==>ue = Jako::Construct::Expression::Value->new($block, $self->forth);

      $self->require_sem <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12607	12699	
==>ue = Jako::Construct::Expression::Value->new($block, $self->forth);

      $self->require_sem <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5019	5124	
==>tive to the source
directory.

=cut

sub contents_relative_to_source
{
    my $self = shift;
    my $sourc <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3011	3110	
==>tive to the source
directory.

=cut

sub contents_relative_to_source
{
	my $self = shift;
	my $sourc <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	75	165	
==>TMLPage.pm 20321 2006-06-20T20:02:00.179448Z bernhard  $

=head1 NAME

Parrot::Docs::HTMLPa <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31817	31940	
==>ethod}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my $parameters = $method <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33394	33517	
==>ethod}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my $parameters = $method <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40451	40574	
==>ethod}{$meth};
        return $self->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my $parameters = $method <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	4489	4608	
==>e = 0;
    for(@{$ops->{OPS}}) {
        $_->{CODE}=$cur_code++;
    }
}


my $version       = $ops->version;
my $major_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1960	2055	
==>formal_args[$i]};
    my $actual_arg_type;

    if (UNIVERSAL::isa($args[$i], 'Jako::Construct:: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1660	1755	
==>formal_args[$i]};
    my $actual_arg_type;

    if (UNIVERSAL::isa($args[$i], 'Jako::Construct:: <==
3	/Users/nnunley/parrot/config/init/hints.pm	562	673	
==>y ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    my $hints_used = 0;

    my $hint <==
3	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	453	557	
==>ION file
and returns it.

=cut

# cache for repeated calls
# XXX this could be in BEGIN block
my ( $parro <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	15006	15107	
==>g is on.\n";
    return;
  }
  return $self->_complain_warn(@_) if $self->{'complain_stderr'};
  retur <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	10124	10235	
==>gth($value);
    return ".arg $value";
}

sub output_param {
    my ($self, $name, $type, $reg) = @_;
    $reg = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627440	627526	
==>pmc_new_noinit(interpreter, {{\@2}});\n  {{\@1}}->vtable->init(interpreter, {{\@1}});\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628584	628670	
==>pmc_new_noinit(interpreter, {{\@2}});\n  {{\@1}}->vtable->init(interpreter, {{\@1}});\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911785	912037	
==>ODE" => 1027,
                  "ARGS" => [
                              "i",
                              "sc",
                              "sc"
                            ],
                  "BODY" => "#line 284 \"src/ops/string.ops\"\n    {{\@1 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	2211	2318	
==>f ($options->{PACKAGE}) {
#    $options->{PACKAGE} .= "::" . $self->name;
#  }
#  else {
#    $options->{PAC <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10706	10797	
==>{CURIC}_CONT:
${PARAMS}[${ITEMP0}] = ${STEMP0}

# Next parameter.
dec stack_depth
goto pre_c <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	5325	5456	
==>? '[main]doc' :
        m[^editor/]       ? '[devel]' :
        m[^examples/]     ? '[main]doc' :
        m[^include/]      ? '[main <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	21894	22010	
==>bel
EOC
    }
}
sub print_stack {
    for $_ (@stack) {
	print "# STACK $_->[0] $_->[1] $_->[2]\n";
    }
}


sub ret <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	768	874	
==>match" ],
    [ "end(n)" => "mark end of n-th paren match" ],
    [ "delete(n)" => "delete record of n-th p <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35892	35994	
==>w a warning and exit with 255.  If the test died, even after
having successfully completed all its test <==
3	/Users/nnunley/parrot/lib/Test/More.pm	33963	34065	
==>w a warning and exit with 255.  If the test died, even after
having successfully completed all its test <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2758	2860	
==>w a warning and exit with 255.  If the test died, even after
having successfully completed all its test <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	1854	1940	
==>Wall -Wstrict-prototypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwr <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1219	1305	
==>Wall -Wstrict-prototypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwr <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1223	1309	
==>Wall -Wstrict-prototypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307659	307982	
==>",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 358,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 1038 \"src/ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1276	1378	
==>ON => '',
			 YYRULES => 'ARRAY', YYSTATES => 'ARRAY', YYDEBUG => '');
#Mandatory parameters
my(@par <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1233	1332	
==>ON => '',
			 YYRULES => 'ARRAY', YYSTATES => 'ARRAY', YYDEBUG => '');
#Mandatory parameters
my(@par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726063	726355	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clone",
                  "F <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	4757	4894	
==>plice @opt_and_vers, 0, 2) {
            last if $vers > $gccversion;
            next unless $opt; # Ignore blank lines

            if ( <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	23460	23563	
==>(undef, ' ', '');
    my $fh = $self->todo ? $self->todo_output : $self->failure_output;
    print $fh @ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443640	443911	
==>_p_psp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444655	444926	
==>_p_psp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	6278	6383	
==>PI;
    for my $api (@UnParrotAPI) {
	printf "%s\t%s\tNO_API\n", $api, $API{$api};
    }
}

if (keys %Data <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	19841	19963	
==>e[$code_l]->[4]);
    my $targ = "pc_xxx";
    my $label = '';
    if (!defined $op) {
	goto plain;
    }
    if ($opcode e <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	29395	29493	
==>l_uid;

    my $handle = $self->genlabel('handle_call_result');
    my $back = $self->genlabel('bac <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9641	9732	
==>st.cco)";

    _run_command("$link $linkflags test$o $link_args ${cc_exe_out}test$exe $libs" <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	10157	10305	
==>rot::Op onto our op array, and forget the op so we can start the next
        # one.
        #

        if (/^}\s*$/)
        {
            $count += <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1957	2082	
==>rser module.";

        ref($class)
    and $class=ref($class);

    bless($self,$class);
}

sub YYParse {
    my($se <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1890	2006	
==>rser module.";

        ref($class)
    and $class=ref($class);

    bless($self,$class);
}

sub YYParse {
    my($se <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	3960	4099	
==>t heredoc flag.
            $rule->{$heredoc_key} = $heredoc_value;
            $in_heredoc = 0;
        }

        # Is this heredoc conten <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3254	3373	
==>) = ($1, $2, $3, choose($4, unescape($5), $6));

        # make the test print the last line of output
        # XXX Thi <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4661	4780	
==>) = ($1, $2, $3, choose($4, unescape($5), $6));

        # make the test print the last line of output
        # XXX Thi <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	157	253	
==>xamples/mops/mops.c - Calculate M ops/s

=head1 SYNOPSIS

    % perl examples/mops/mops.pl

=head <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	153	249	
==>xamples/mops/mops.c - Calculate M ops/s

=head1 SYNOPSIS

    % perl examples/mops/mops.pl

=head <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Examples.pm	144	233	
==>ad1 NAME

Parrot::Docs::Section::Examples - Examples documentation section

=head1 SYNOPSI <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	8718	8875	
==>NOT',
        'or'       => 'OR',
        'repeat'   => 'REPEAT',
        'return'   => 'RETURN',
        'then'     => 'THEN',
        'true'     => 'TR <==
3	/Users/nnunley/parrot/lib/Test/More.pm	36201	36307	
==>.  As such, the
names of the most common routines are kept tiny, special cases and
magic side-effects are k <==
3	/Users/nnunley/parrot/config/gen/platform.pm	2445	2549	
==>s missing; means neither this platform nor
        # generic has anything to contribute for this feature. <==
3	/Users/nnunley/parrot/config/auto/cgoto.pm	2143	2265	
==>cg_flag => '-DHAVE_COMPUTED_GOTO'
        );
        print " (yes) " if $verbose;
        $self->set_result('yes');
    } e <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1941	2039	
==>e Methods

=over 4

=item C<create_path()>

This is called from C<new()> to create the path if nece <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	918	1016	
==>e Methods

=over 4

=item C<create_path()>

This is called from C<new()> to create the path if nece <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	547	649	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~
my @_to_accept;

%Tagmap = (
  'Verbatim'  => "\n<pre$Computerese>",
  '/Ver <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665210	665296	
==>line 359 \"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delete_keyed_int(interpreter, {{\@1}}, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665987	666073	
==>line 359 \"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delete_keyed_int(interpreter, {{\@1}}, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490778	490998	
==>s/math.ops\"\n  {{\@1}}++;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	491399	491619	
==>s/math.ops\"\n  {{\@1}}++;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	5375	5465	
==><example_output_isnt( $example_f, $expected, @todo )>

Determine the language from the exte <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	1651	1760	
==>it on paragraphs
    my @funcs = split /\n{2,}/, $text;

    # If it doesn't start in the left column, it's no <==
3	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	19	107	
==>5, The Perl Foundation.
# $Id: /parrot/config/init/hints/dec_osf.pm 19593 2006-05-30T02:2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677334	677591	
==>,
                  "TYPE" => "inline",
                  "CODE" => 759,
                  "ARGS" => [
                              "p",
                              "n"
                            ],
                  "BODY" => "#line 478 \"src/ops/pmc.op <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	41198	41311	
==>ope = $scope->{'*UP*'};
  }
  if (!$scope) {
    push @{$self->{functions}}, $symbol
      unless grep { $_ eq $sy <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	13527	13622	
==>egex/, $name);
  $Test->like($this, '/$regex/', $name);

Like Test::More's like().  Checks if $t <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	18732	18832	
==>-based classes
    (refer to "Perl Cookbook", Recipe 13.12 for rationale).

    Corrected behaviour o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467567	467664	
==>e 376 \"src/ops/math.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(inter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468438	468535	
==>e 376 \"src/ops/math.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(inter <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	543	649	
==>pos'}) {
    push    @{ $_[0]{'_currpos'}[0] }, $x; # insert in parent's child-list
    unshift @{ $_[0]{'_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8781	8870	
==>ng_to_cstring(interpreter, {{\@1}});\n    struct PackFile_FixupEntry *fe = PackFile_find_f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9897	9986	
==>ng_to_cstring(interpreter, {{\@1}});\n    struct PackFile_FixupEntry *fe = PackFile_find_f <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	73403	73498	
==>[0]->{fulltext} = $text;
	$_[0]->{fulltextlen} = length $text;
	$_[0]->{deferred} = [];
	$_[0]-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661910	661998	
==>ne 339 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662826	662914	
==>ne 339 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	23658	23762	
==>ar @fargs;
	if ($func_info{$name}{'ar'} ne 'None') {
	    $nfix -= $nf;
	    BUILD_TUPLE($nfix, '', "\t\t <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	7615	7699	
==>rrot_jit_vtable_1r223_op Parrot_jit_normal_op
#define Parrot_jit_vtable_1r332_op Parr <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	1949	2049	
==>[0]\E$/i, @builtins );
	return 0;
}
sub isuserfunc {
#	print "Isuserfunc $_[0] and $funcname..";
	ret <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1657	1756	
==>}
${INS} = concat " = pop s\n"
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$register_num++;
	} <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3367	3466	
==>}
${INS} = concat " = pop s\n"
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$register_num++;
	} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	250237	250521	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "not",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	251636	251920	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "not",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1267	1359	
==>le_element_end methods so that parser events are turned into method
calls. (Otherwise, this i <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	5366	5487	
==>ver the basic block starting at $stmt
	my $prev;
	do {
	    if (ref $stmt->{code}) {
                my @labels = $self->l <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	8756	8865	
==>rr" if $err;

    open  STDOUT, ">&OLDOUT" or die "Can't restore  stdout" if $out;
    open  STDERR, ">&OLDERR <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8276	8383	
==>rr" if $err;

    open STDOUT, ">&OLDOUT" or die "Can't restore  stdout" if $out;
    open STDERR, ">&OLDERR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553959	554054	
==>->current_object = object;\n  interpreter->current_cont = {{\@3}};\n  interpreter->current_metho <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555356	555451	
==>->current_object = object;\n  interpreter->current_cont = {{\@3}};\n  interpreter->current_metho <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556744	556839	
==>->current_object = object;\n  interpreter->current_cont = {{\@3}};\n  interpreter->current_metho <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010879	1011164	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011643	1011928	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012408	1012693	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	24247	24392	
==>t_HLL_id(
                interp, const_string(interp, "$hll")
            );
            if (pmc_id > 0)
                Parrot_register_HLL_type <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1450	1560	
==>piler) = @_;

  my $dest_ident = $self->dest;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $lef <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1330	1440	
==>piler) = @_;

  my $dest_ident = $self->dest;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $lef <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	1182	1293	
==>NK REL="stylesheet" TYPE="text/css" 
            HREF="$resources/perl.css" 
            TITLE="Default CSS2" me <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540352	540454	
==>=> "#line 1022 \"src/ops/math.ops\"\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n IN <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541604	541706	
==>=> "#line 1022 \"src/ops/math.ops\"\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n IN <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542856	542958	
==>=> "#line 1022 \"src/ops/math.ops\"\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n IN <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060119	1060219	
==>name\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_name(interpreter, {{\@2}});\n    {{+=3}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061024	1061124	
==>name\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_name(interpreter, {{\@2}});\n    {{+=3}};\n <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7189	7293	
==>) ? $reg : 'pos');
    return $self->output_pushint($reg);
}

sub output_pushint {
    my ($self, $reg, $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6831	6935	
==>) ? $reg : 'pos');
    return $self->output_pushint($reg);
}

sub output_pushint {
    my ($self, $reg, $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	10926	11027	
==>nds a string containing an or expression "0" .. "A" .. "A|B" etc.
sub or_flag
{
    my ($flag, $value) <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7740	7858	
==>goto PARSE_NOFEED;
	#}
	goto PARSE;

=begin wrongway

UNK:	if (($type[CURR] eq "STMT" or $type[CURR] eq "COMM" or $type <==
3	/Users/nnunley/parrot/config/init/hints/freebsd.pm	899	1014	
==>rrot_is_shared        => 1,
        libparrot_shared        => 'libparrot$(SHARE_EXT).$(SOVERSION)',
        libparr <==
3	/Users/nnunley/parrot/config/init/hints/linux.pm	1737	1852	
==>rrot_is_shared        => 1,
        libparrot_shared        => 'libparrot$(SHARE_EXT).$(SOVERSION)',
        libparr <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	17873	18017	
==>}
            elsif (ref($variants) eq 'ARRAY') {
                for my $class (@{ $variants }) {
                    next if $class eq 'DEFAULT <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5149	5279	
==>@$incexc) {
        my $first = shift(@$incexc);
        my $last = shift(@$incexc);
        if (defined($last)) {
            push <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4824	4954	
==>@$incexc) {
        my $first = shift(@$incexc);
        my $last = shift(@$incexc);
        if (defined($last)) {
            push <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	6897	7002	
==>get $t, because it's not a token object!"
     unless UNIVERSAL::can($t, 'type');
  }
  
  unshift @{$self <==
3	/Users/nnunley/parrot/lib/File/Which.pm	4349	4450	
==>S, OS2 and VMS

=head2 Windows NT

Windows NT has a special environment variable called C<PATHEXT>, wh <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27275	27392	
==>odes, @{$block};
    push @opcodes, new BranchOp( $parser,
        'result' => $l_continue,
    );
    push @opcod <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	26522	26621	
==>ng of $text that represents a block
 # of Perl code, bracketed by any of character(s) specified by $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	15557	15653	
==>t;
}

sub _complain_errata {
  my($self,$line,$complaint) = @_;
  if( $self->{'no_errata_section' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807716	807916	
==>n",
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 502 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_nu <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	19449	19552	
==>++$i) { # iterate over children
      DEBUG > 3 and print " Considering child at $i ", pretty($treelet-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	2773	2873	
==>is used for branches.

=item C<goto NEXT()>

Transforms to C<PC' = PC + S>, where C<S> is the size of <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8285	8406	
==>ARROT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLAGS" => ":base_loop <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9400	9521	
==>ARROT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLAGS" => ":base_loop <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10514	10599	
==>,0xfc93a039,/* 52 */
II,$a,$b,$c,$d,$_[16],6,0x655b59c3,/* 53 */
II,$d,$a,$b,$c,$_[7], <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	41791	41908	
==>stack) {
    for(my $i = 2; $i < @$treelet; ++$i) { # iterate over children
      next unless ref $treelet->[$i];  # t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563940	564047	
==>t.ops\"\n  VTABLE_add_method(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564838	564945	
==>t.ops\"\n  VTABLE_add_method(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64158	64440	
==>XT",
                  "NAME" => "runinterp",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65108	65390	
==>XT",
                  "NAME" => "runinterp",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	2943	3040	
==>ch global information as the test counter and
where test output is going.

If you want a completel <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	29604	29749	
==>q '=over') {
          $self->whine(
            $para->[1]{'start_line'},
            "'=item' outside of any '=over'"
          );
          uns <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24588	24696	
==>>_restore ($return);
      $return = $temp;
    }
  } else {
    $return = $self->_generate($node->{children} <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26487	26595	
==>>_restore ($return);
      $return = $temp;
    }
  } else {
    $return = $self->_generate($node->{children} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1302	1406	
==>($left);
    my $pmc_type = $type->imcc_pmc;
    my $temp_pmc = $compiler->temp_pmc();

    $compiler->em <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	759	860	
==>ing (placeholder)
# check : Check to be sure we are n chars away from the end of the string

@Regex::O <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	5684	5832	
==>ement_end {       # OVERRIDE IN DERIVED CLASS
  my($self, $element_name) = @_;
  return;
}

sub _handle_text          {     # OVERRIDE IN DERIVED CLA <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	11869	12005	
==>sif ( $func =~ m/^pasm_output_/ ) {
                $code_f = per_test('.pasm', $test_no);
            }
            elsif ( $func =~ m/^ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	6639	6739	
==>ng to accept \"=$d\" as directive of type $type\n";
  }
  DEBUG > 6 and print "$this\'s accept_direct <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3350	3452	
==>YYExpect {
    my($self)=shift;

    keys %{$self->{STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
}

s <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	710	809	
==>ctory.

=head2 Options

=over 4

=item C<--plus-misses>

This creates a second section, with the hea <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3181	3277	
==>YYExpect {
    my($self)=shift;

    keys %{$self->{STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
}

s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811333	811533	
==>"p",
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 512 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022781	1022956	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodelocaltime",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023630	1023805	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodelocaltime",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6235	6336	
==>($next);
        print {$self->{'output_fh'}} $self->{'Tagmap'}{$tagname};
    }
}

=item C<process_it <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	34210	34347	
==>,
			'DO' => 168
		}
	},
	{#State 122
		DEFAULT => -96
	},
	{#State 123
		ACTIONS => {
			'NAME' => 171,
			"..." => 172,
			") <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2620	2729	
==>vering {
	my($self)=shift;

	${$$self{ERRST}} != 0;
}

sub YYAbort {
	my($self)=shift;

	${$$self{CHE <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2505	2605	
==>vering {
	my($self)=shift;

	${$$self{ERRST}} != 0;
}

sub YYAbort {
	my($self)=shift;

	${$$self{CHE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956307	956665	
==>> [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1076,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 576 \" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75179	75530	
==>dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 98,
                  "A <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2571	2666	
==>ting Pod formatters
based on Pod::Simple. It is useful for seeing exactly what events you
get ou <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688167	688389	
==>le->delprop(interpreter, {{\@1}}, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688939	689161	
==>le->delprop(interpreter, {{\@1}}, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713261	713453	
==>=> 800,
                  "ARGS" => [
                              "nc"
                            ],
                  "BODY" => "#line 59 \"src/ops/python.ops\"\n  PMC * const io = PIO_STDO <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	5530	5649	
==>w_help();
    exit(1);
}

sub warn_if_both {
    my ($a, $b, $sa, $sb) = @_;
    if (defined $a && defined $b && $a == $ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	377	474	
==>over

=cut

package Parrot::Docs::Section::Docs;

use strict;
use warnings;

use base qw( Parrot:: <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	4857	4948	
==>sic blocks begin with a label.
    $output2[0]->{label} ||= $self->{state}->genlabel("beginn <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	897	1006	
==>.
sub subs() {
	# No extra subs.
	return "";
}

# Label generation.
sub gen_label() {
	# We'll emit a label fo <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	654	763	
==>.
sub subs() {
	# No extra subs.
	return "";
}

# Label generation.
sub gen_label() {
	# We'll emit a label fo <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	61478	61568	
==>embedded quote (%s)>

C<extract_bracketed> attempted to match an embedded quoted substring, <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	8028	8134	
==>]) 
				  and not isarray($prev->[0])) { 
				$unary=1;
			} elsif (iskeyword($syms[PREV]) and not isbuilti <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	2839	2939	
==>rrot/OpLib";
my $module  = "$moddir/core.pm";

my $file = shift @ARGV;
die "$0: Could not find ops fi <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21350	21442	
==>RecDescent::_trace(q{<<Didn\'t match action>> (return value: [undef])})
					if defined $::RD <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	1517	1647	
==>t, $1; $_ }
    qw[
      sample=samp
      definition=dfn
      kbd=keyboard
      variable=var
      citation=cite
      abbrevia <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1398	1512	
==>le()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $dest_ident = $self->dest;

  my $block = $s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1278	1392	
==>le()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $dest_ident = $self->dest;

  my $block = $s <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1851	1990	
==>cmd {
    my ($target, $source) = @_;

    return
        "$CC $CFLAGS " .
        "-o " . $target . " " .
        "-I" . $PATHQUOTE . '/Use <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2147	2286	
==>cmd {
    my ($target, $source) = @_;

    return
        "$CC $CFLAGS " .
        "-o " . $target . " " .
        "-I" . $PATHQUOTE . '/Use <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1942	2081	
==>cmd {
    my ($target, $source) = @_;

    return
        "$CC $CFLAGS " .
        "-o " . $target . " " .
        "-I" . $PATHQUOTE . '/Use <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	2109	2241	
==>urn @r;
}

############### Backend-neutral translations ##############

sub output_nop {
    return "noop";
}

sub output_increment { <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	10221	10341	
==>rn $test ? 1 : 0;
}


sub _unoverload {
    my $self  = shift;

    local($@,$!);

    eval { require overload } || retur <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	2450	2556	
==>od paragraphs seen so far

  'no_whining',        # whether to suppress whining
  'no_errata_section', # wh <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857252	857639	
==>o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 973,
                  "ARGS" => [
                              "s",
                              "sc",
                              "sc"
                            ],
                  "BODY" => "#line 10 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363533	363633	
==>uble){{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364436	364536	
==>uble){{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563923	564009	
==>3 \"src/ops/object.ops\"\n  VTABLE_add_method(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564821	564907	
==>3 \"src/ops/object.ops\"\n  VTABLE_add_method(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320096	320365	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" => ":dotgnu_core", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320866	321135	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" => ":dotgnu_core", <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	21958	22088	
==>ng_for_extension{$extension}, $code, $expected, $example_f, @options );
            }
            else {
                fail( defi <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	32230	32332	
==>ltins{$obj}) { # postponed LOAD_ like dict
	$o = temp('P');
	my $args = "";
	if ($builtins{$obj} eq 'v' <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2989	3090	
==>f{DOTPOS}} - 1;

		$index < 0
	and	-$index <= @{$$self{STACK}}
	and	return $$self{STACK}[$index][1 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2845	2942	
==>f{DOTPOS}} - 1;

		$index < 0
	and	-$index <= @{$$self{STACK}}
	and	return $$self{STACK}[$index][1 <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	1638	1728	
==>', '',
			$self->new_item('', 'lib/Parrot/BuildUtil.pm'),
			$self->new_item('', 'lib/Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59309	59397	
==>ine 901 \"src/ops/core.ops\"\n  PARROT_WARNINGS_on(interpreter, {{\@1}});\n  {{+=2}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59957	60045	
==>ine 901 \"src/ops/core.ops\"\n  PARROT_WARNINGS_on(interpreter, {{\@1}});\n  {{+=2}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427951	428091	
==>mmd_dispatch_v_pn(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428838	428978	
==>mmd_dispatch_v_pn(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Test/More.pm	3209	3311	
==>r script is going to run.  In this case, you can declare that you
have no plan.  (Try to avoid using th <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1232	1329	
==>NTEXT(interpreter->ctx)->pred_offset)

#  define opcode_to_prederef(i, op)   (op ? \\
     (void** <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	13980	14099	
==>eq '-' or $source =~ m/^<&(STDIN|0)$/i
  ) { 
    $source = *STDIN{IO};
  }

  if(!defined $to) {             $self->out <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	6819	6925	
==>ag, $closetag, $pre, \%options)
{
	my $textref = defined $_[0] ? \$_[0] : \$_;
	my $ldel    = $_[1];
	my $r <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	8080	8178	
==>str .= $_->{code}{name} . " " . join(", ", map { ref($_) ? $_->{label} : $_ } @{ $_->{code}{args} | <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1877	1975	
==>he target string against the Perl 6 pattern, passing the test if
they do not match. The same patter <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3409	3507	
==>he target string against the Perl 6 pattern, passing the test if
they do not match. The same patter <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	2686	2782	
==>g/N2PConfig.pm" or die "Unable to open config/N2PConfig.pm\n";
	print $fh $config_pm;
	close $f <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33064	33160	
==>ir .= "### pre_store\n";
		$pir .= sub_meta($pre_store, $mv, "pre_store for rule $rule->{'name'}" <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1947	2044	
==>ods

=over 4

=item C<create_path()>

This is called from C<new()> to create the path if necessary <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	924	1021	
==>ods

=over 4

=item C<create_path()>

This is called from C<new()> to create the path if necessary <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	4031	4141	
==>$a} = $i;
		    # print STDERR "def $f($a = $i)\n";
		}
		push @code, [$line, $pc, "ARG_count", $n, $f, $source <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	4530	4640	
==>$a} = $i;
		    # print STDERR "def $f($a = $i)\n";
		}
		push @code, [$line, $pc, "ARG_count", $n, $f, $source <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	30612	30703	
==>ainder) = extract_delimited($text, "'");

C<extract_delimited> takes up to four scalars (the <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	19352	19452	
==>os+1;

	unless ($$textref =~ m/\G(\S)/gc)	# SHOULD USE LOOKAHEAD
	{
		_failmsg "No block delimiter fo <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	692	786	
==>hould be the relative path from the page to
F<docs/resources>, the image and CSS file directory <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	1910	2004	
==>hould be the relative path from the page to
F<docs/resources>, the image and CSS file directory <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5339	5488	
==>@{ $op->{result} } ) {
                print {$FH} ", " unless ($first);
                print {$FH} "$_->{symbol}";
                if ( exists $_ <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6371	6520	
==>@{ $op->{result} } ) {
                print {$FH} ", " unless ($first);
                print {$FH} "$_->{symbol}";
                if ( exists $_ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11552	11664	
==>il {
    my ($self, $name) = @_;
    return ($self->output_match_failed(),
            ".return (<rx_match>)");
} <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	28503	28629	
==>shname}=1;
	
	foreach (@params) {
		unless (/\(\)/) {
			my $t=typeof($_);
			$t="string" if $t eq "STRING";
			$t="float" if $ <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	10481	10595	
==>ray.pmc hash.pmc orderedhash.pmc tqueue.pmc parrotclass.pmc parrotobject.pmc os.pmc file.pmc addrregistry.pmc bound <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	263	357	
==>lr3;
use Parrot::Test::Bc::Posix;

=head1 NAME

Test/Bc.pm - Testing routines specific to 'bc'. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851286	851640	
==>i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 966,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 83 \"src <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	23798	23922	
==>ack;
	    unshift @args, $t->[1];
	}
	for (my $i = 0; $i < $nf; $i++) {
	    my $arg = pop @stack;
	    unshift @args, promot <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	73291	73384	
==>_linecount($_[1]);
	$_[0]->{lastlinenum} += $_[2] if @_ > 2;
	$_[0]->{offsetlinenum} = $_[0]-> <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61746	61859	
==>ammar =~ m/$SUBRULE/gco
				and $code = $1)
		{
			my $name = $code;
			my $matchrule = 0;
			if (substr($name,0,1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121962	122067	
==>\"\n  /*\n   * lvalue casts are evil, but this one isn't evil enough to kill.\n   * it's just casting a si <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122874	122979	
==>\"\n  /*\n   * lvalue casts are evil, but this one isn't evil enough to kill.\n   * it's just casting a si <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	2796	2902	
==>oat8_t => 'double');
        print <<'END';

Can't find a float type with size 8, conversion ops might fail <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	1150	1243	
==>ar values and assigns it to the inheriting classes C<$result>
variable.  Returns the inheritin <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	69082	69172	
==>elf->_check_grammar();
	}

	unless ($ERRORS or $isimplicit or $Parse::RecDescent::compiling <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284824	285064	
==>@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285701	285941	
==>@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286578	286818	
==>@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16537	16628	
==>r modify it
under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1751	1842	
==>r modify it
under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	4113	4197	
==>th(${$_[0]->{text}})-$_[0]->{prev}+1;
	substr($parser->{fulltext},0,$missing) =~ m/^( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714113	714364	
==>> 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715035	715286	
==>> 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715958	716209	
==>> 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544266	544366	
==>3}};\n INTVAL saved_var1 = a, saved_var2 = b; \n\n if(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n whil <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545602	545702	
==>3}};\n INTVAL saved_var1 = a, saved_var2 = b; \n\n if(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n whil <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546938	547038	
==>3}};\n INTVAL saved_var1 = a, saved_var2 = b; \n\n if(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n whil <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	6571	6682	
==>ef="function_summary.html">Function Summary</a>
              <li>Overall Summary:<br>

            <table borde <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3753	3869	
==>ps_and_libs(@pmcs);

    # Convert X.c -> X.o for all X.c
    compile($_) foreach (@pmcs);

    # lib-GROUP.c
    for <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3857	3973	
==>ps_and_libs(@pmcs);

    # Convert X.c -> X.o for all X.c
    compile($_) foreach (@pmcs);

    # lib-GROUP.c
    for <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412827	412996	
==>i",
                              "i"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413954	414123	
==>i",
                              "i"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	27446	27540	
==>$self->{'content_seen'} ||= 1;
      $self->_handle_element_start(($scratch = 'over-' . $list_t <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	5494	5618	
==>ndices($stmt->{code});
                foreach my $pos (@labels) {
                    push @Q, $labels{$stmt->{code}->{args} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1994	2073	
==>=\?\~\[\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ01234567 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573159	573435	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_class <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574069	574345	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_class <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574872	575148	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_class <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	283	380	
==>"use warnings";

package Jako::Construct::Block::Sub;

use Carp;

use base qw(Jako::Construct::Blo <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43511	43646	
==>ONS => {
			'END' => 203
		}
	},
	{#State 193
		DEFAULT => -33,
		GOTOS => {
			'@10-4' => 204
		}
	},
	{#State 194
		DEFAULT <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	399	518	
==>k::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected 5 args!" unless @_ == 5;

  my ($block, $pr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	399	518	
==>k::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected 5 args!" unless @_ == 5;

  my ($block, $pr <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21869	21967	
==>$_[0]->{hashname} = '__DIRECTIVE' . ++$_[1]->{dircount} .  '__'; }

sub issubrule { undef }
sub ist <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8862	8952	
==>le_find_fixup_entry(interpreter,\n\t    enum_fixup_label, label);\n    if (!fe)\n\tinternal <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9978	10068	
==>le_find_fixup_entry(interpreter,\n\t    enum_fixup_label, label);\n    if (!fe)\n\tinternal <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848262	848486	
==>}} = string_chopn(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849042	849266	
==>}} = string_chopn(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	1920	2019	
==>led line before a "data" statement.
	my $singleif=0;
	my $elsetag=0;
	my $elsestack;
	my $ifline="1" <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29774	29885	
==>\n";

		# If we have PIR for the instruction, just take that. If not, we need
		# to generate it from the "to ge <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33192	33303	
==>\n";

		# If we have PIR for the instruction, just take that. If not, we need
		# to generate it from the "to ge <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36856	36967	
==>\n";

		# If we have PIR for the instruction, just take that. If not, we need
		# to generate it from the "to ge <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25924	26076	
==>line",
                  "CODE" => 34,
                  "ARGS" => [],
                  "BODY" => "#line 446 \"src/ops/core.ops\"\n  PMC * const p = CON <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	5288	5389	
==>arrot::OpLib::$package - Parrot Op Info

    =head1 DESCRIPTION

    This is an autogenerated file, cr <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8791	8881	
==>op it.
${ITEMP1} = elements ${STYPES}
dec ${ITEMP1}
${PTEMP0} = ${STYPES}[${ITEMP1}]
${STEM <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7363	7453	
==>op it.
${ITEMP1} = elements ${STYPES}
dec ${ITEMP1}
${PTEMP0} = ${STYPES}[${ITEMP1}]
${STEM <==
3	/Users/nnunley/parrot/config/auto/pack.pm	332	424	
==>figure::Step::Base);

use Parrot::Configure::Step;
use Config;

$description = q{Figuring out <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507827	508229	
==>" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 584,
                  "ARGS" => [
                              "n",
                              "n",
                              "nc <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	641	740	
==>efined!" unless defined $op;
  confess "Right is not defined!" unless defined $right;

  confess "Bl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	653	752	
==>efined!" unless defined $op;
  confess "Right is not defined!" unless defined $right;

  confess "Bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164822	165098	
==>@1}}, {{\@2}}) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165751	166027	
==>@1}}, {{\@2}}) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166680	166956	
==>@1}}, {{\@2}}) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	5988	6139	
==>e, @args) = @_;
    
    chomp $code;
    
    my $pir = '';
    while ($code =~ s/^([^%]*)%(\d+)//)
    {
        $pir .= inline($1) if $1;
        $pi <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	3246	3362	
==>ee = $self->pass1(rop('alternate', \@children), $ctx);
            @{ $t->{args} } = ($R, $subtree);
            retu <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	3924	4040	
==>ee = $self->pass1(rop('alternate', \@children), $ctx);
            @{ $t->{args} } = ($R, $subtree);
            retu <==
3	/Users/nnunley/parrot/languages/APL/t/APL.pm	483	593	
==>code library available.";
    exit 0;
  }
}

# Note - we don't just use the special SKIP entry in the DATA stre <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6725	6815	
==>output_label_use($failLabel);
    return ($self->dbprint("At end: %<rx_pos> >= %<rx_len>?\n <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6369	6459	
==>output_label_use($failLabel);
    return ($self->dbprint("At end: %<rx_pos> >= %<rx_len>?\n <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	26870	26983	
==>t'} = 4;
      } elsif($content =~ m/^\s*((?:\d*\.)?\d+)\s*$/s) {
        no integer;
        $para->[1]{'indent'} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019823	1019914	
==>me_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_localtime_r(&t, &tm);\n  Parrot_asctime_r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020754	1020845	
==>me_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_localtime_r(&t, &tm);\n  Parrot_asctime_r <==
3	/Users/nnunley/parrot/examples/benchmarks/freeze.pl	29	117	
==>01-2006, The Perl Foundation.
# $Id: /parrot/examples/benchmarks/freeze.pl 19601 2006-05- <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	57071	57202	
==>0], $obj, $_[3], $_[4] );
        }
	],
	[#Rule 89
		 'functioncall', 2,
sub
#line 469 "Lua\lua51.yp"
{
            BuildCal <==
3	/Users/nnunley/parrot/config/init/hints/netbsd.pm	159	271	
==>f->data->get('ccflags');
    if ($ccflags !~ /-pthread/) {
        $ccflags .= ' -pthread';
    }
    $conf->data <==
3	/Users/nnunley/parrot/config/init/hints/openbsd.pm	251	363	
==>f->data->get('ccflags');
    if ($ccflags !~ /-pthread/) {
        $ccflags .= ' -pthread';
    }
    $conf->data <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202781	203057	
==>@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203712	203988	
==>@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204643	204919	
==>@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1809	1926	
==>);

    for my $tree (@$trees) {
        $driver->output_rule($PIR, '_regex', $tree, $ctx, DEBUG => 0);
    }

    clo <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	1089	1199	
==>he 'die' above.
    unless (exists $gnuc{__GNUC__}) {
        $conf->data->set(gccversion => undef);
        re <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	60729	60819	
==>olated literal terminal", $aftererror,$line);
			$item = new Parse::RecDescent::InterpLit($ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11483	11595	
==>AY = 0x1D
	.const int ELEMENT_TYPE_INTERNAL = 0x21
    
    # Trace info - param and local types.
    if trace != <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	3567	3676	
==>absolute position.
#

sub forth
{
  my $self = shift;
  my ($offset) = @_;

  $offset = 1 unless defined $offs <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	2291	2382	
==>t_isnt($code, $unexpected, $description)>

Runs the Parrot Assembler code and passes the tes <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449228	449393	
==>[
                              "p"
                            ],
                  "BODY" => "#line 190 \"src/ops/math.ops\"\n  {{\@1}}->vtable->i_absolute(interpre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	36851	37006	
==>interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	817632	817787	
==>interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	19517	19622	
==>ref = $startpos;
		return;
	}
	pos($$textref) = $ld1pos;	# HAVE TO DO THIS BECAUSE LOOKAHEAD BROKEN
	my ($ <==
3	/Users/nnunley/parrot/languages/urm/urm-old.pl	507	619	
==>) {
	    $register{$reg} = shift @input;
	}
    }
    if ($line =~ /(r\d+)/) { $register{$1} = 0 unless defined $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54785	54894	
==>],
                  "BODY" => "#line 864 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo(interpreter, {{\@2}});\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55545	55654	
==>],
                  "BODY" => "#line 864 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo(interpreter, {{\@2}});\ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	1885	2094	
==>refix, if given in source code.
    SYMBOLS => { },     # Identifiers
    CONTENT => [ ]      # Constructs
  }, $class;
}


###############################################################################

#
# A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89200	89395	
==>"
                            ],
                  "BODY" => "#line 38 \"src/ops/bit.ops\"\n  {{\@1}} &= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89938	90133	
==>"
                            ],
                  "BODY" => "#line 38 \"src/ops/bit.ops\"\n  {{\@1}} &= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847547	847844	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_cor <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848326	848623	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_cor <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849106	849403	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_cor <==
3	/Users/nnunley/parrot/lib/File/Which.pm	3571	3677	
==>ich('perl'); # an array forces search for all of them

=head1 DESCRIPTION

C<File::Which> was created to be <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	662	763	
==>f->new_item('Ops to C Code Generation', 
			    'lib/Parrot/OpsFile.pm', 'lib/Parrot/Op.pm',
			    'l <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	60158	60251	
==>l string at
which the error was detected (although not necessarily where it occurred!)
Printin <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	3505	3623	
==>_;
	if ($type eq "N") {
		return "0.0";
	} else {
		return qq{""};
	}
}
my $eqnum=0;
my %opsubs=(
	'+' => sub { 
		my ( <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	20424	20523	
==>l2 =~ /[[(<{]/)
		{
			pos($$textref)--;	# OVERCOME BROKEN LOOKAHEAD 
			_match_bracketed($textref," <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6450	6626	
==>}

            defined($act)
        and do {

                $act > 0
            and do {        #shift

#DBG>				$debug & 0x04
#DBG>			and	print STDERR "Shift and g <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6152	6319	
==>}

            defined($act)
        and do {

                $act > 0
            and do {        #shift

#DBG>				$debug & 0x04
#DBG>			and	print STDERR "Shift and g <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	49345	49476	
==>[#Rule 29
		 'stat', 5,
sub
#line 176 "Lua\lua51.yp"
{
            my $var = BuildLocalVariable( $_[0], $_[4] );
            I <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2376	2497	
==>XML file',
	'xs' => 'XS code',
	'y' => 'Yacc file'
);

# These are the various types of files without suffix.

my %type_fo <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	20092	20187	
==>e template thing

static void pcf_$funcname(Interp *interpreter, PMC *self) {
    $ret_type (*po <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	764	854	
==>"Key 1")="This is"
b$("Key 2")="an"
B$("Hi Mom!")="interesting"
B$(0)="development.
keys a$ <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	1270	1375	
==>AR_CHAR.
    unless($in =~ m/^\d+$/s) {
      # It's a named character reference.  Get its numeric Unicode <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	13172	13276	
==>55\green0\blue0;\red0\green0\blue255;}
END
}


sub doc_info {
   my $self = $_[0];

   my $class = ref($s <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	14747	14850	
==>turn $ref;
}

sub Regex::Ops::Tree::check::reftree {
    my $op = shift;
    return [ annotated($op, "ch <==
3	/Users/nnunley/parrot/config/auto/msvc.pm	973	1081	
==>m couldn't be run,
    # which should have been caught by the 'die' above.
    # Therefore, test if it's defi <==
3	/Users/nnunley/parrot/config/auto/alignptrs.pm	305	395	
==>qw($description $result @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556792	556879	
==>nt_cont = {{\@3}};\n  interpreter->current_method = VTABLE_get_string(interpreter, metho <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4244	4352	
==>{
        partial_link($group, $group_libs->{$group}, [ "lib-$group", @$pmcs ] )
          or die "partial li <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4348	4456	
==>{
        partial_link($group, $group_libs->{$group}, [ "lib-$group", @$pmcs ] )
          or die "partial li <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	25710	25816	
==>andles = 0;
sub _open_testhandles {
    return if $Opened_Testhandles;
    # We dup STDOUT and STDERR so pe <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	618832	618941	
==>PIC_lru *lru;\n    PMC *left, *right;\n    INTVAL lr_types, lt, rt;\n\n    left = {{\@2}};\n    mic = (Parrot_ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	258	352	
==>in("\n", @c), "\n====================== $tn\n" if @c;
	$tn++;
	open(OF, ">_testsuite.bas") || d <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	17843	17937	
==>F

=head1 SYNOPSIS

  perl -MPod::Simple::RTF -e \
   "exit Pod::Simple::RTF->filter(shift)->an <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498610	498756	
==>"
                            ],
                  "BODY" => "#line 595 \"src/ops/math.ops\"\n  {{\@1}} = floatval_mod({{\@2}}, {{\@3}});\n  {{+=4} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577837	578012	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [ <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1852	2019	
==>([\\"'])//
                and $str .= $1,        # backslash, quotation mark, apostrophe
                last;
            s/^\\a//
                and $str .= "\a <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3366	3533	
==>([\\"'])//
                and $str .= $1,        # backslash, quotation mark, apostrophe
                last;
            s/^\\a//
                and $str .= "\a <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	140	244	
==>rrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm 19606 2006 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	138	224	
==>rrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/Conditional/ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	142	228	
==>rrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/Conditional/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319582	319907	
==>":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 374,
                  "ARGS" => [
                              "i",
                              "n <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13938	14048	
==>was set up"
				: "";
		my $advice = @items > 1
				? "However, there were also other (useless) items after the <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	10458	10564	
==>};
    }

    return $pre, $classname, \%flags;
}

=head2 my ($name, $attributes) = parse_pmc($code);

Pars <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	2393	2491	
==>y => $val, ...)>

Either creates a new key or appends to an existing key, with the previous/new
val <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	536493	536584	
==>BODY" => "#line 943 \"src/ops/math.ops\"\n  {{\@1}} = ((FLOATVAL)1) / cosh((FLOATVAL){{\@2}} <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1975	2105	
==>ptions->get('ask')) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    # if '--ver <==
3	/Users/nnunley/parrot/config/inter/make.pm	1849	1979	
==>ptions->get('ask')) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    # if '--ver <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1989	2119	
==>ptions->get('ask')) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    # if '--ver <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	75057	75173	
==><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                       $errortext
.

select ERROR;
$| = 1;

# TRAC <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	3600	3711	
==>MC
     */
    pmc = pmc_new(interpreter, enum_class_ParrotLibrary);
    /*
     * TODO stuff some info into thi <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	23335	23435	
==>cmt $name\n";
    if ($builtin_ops{$name} && $builtin_ops{$name} eq 's') {
	no strict "refs";
	my $op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92418	92621	
==>i",
                              "ic"
                            ],
                  "BODY" => "#line 43 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	2004	2115	
==>t

sub prompt
{
    my ($message, $value) = @_;

    print("$message [$value] ");

    chomp(my $input = <STDIN> <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11228	11321	
==>pected ',': $syms[CURR]" unless $syms[CURR] eq ",";
	feedme();
	my($rightres, $righttype, @rig <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1371	1484	
==>(defined $prog) {
        $conf->data->set($util => $prog);
        $self->set_result('yes');
        return $self <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1368	1481	
==>(defined $prog) {
        $conf->data->set($util => $prog);
        $self->set_result('yes');
        return $self <==
3	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	974	1072	
==>_parrot, $install_parrot);

$mini_parrot = 1    if @ARGV && $ARGV[0] =~ /mini/;
$install_parrot = 1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593326	593685	
==>lasses",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 673,
                  "ARGS" => [
                              "p",
                              "k" <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	71553	71683	
==>togenerating rule: $call")
					and
					_hint("A call was made to a subrule
					       named \"$call\", but no such
					       r <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	37	127	
==>e/Generator.pm 15849 2006-01-14T10:37:55.635677Z bernhard  $

package Scheme::Generator;

u <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296970	297088	
==>ODY" => "#line 970 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 0 : 1;\n  {{+=4}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297826	297944	
==>ODY" => "#line 970 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 0 : 1;\n  {{+=4}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298682	298800	
==>ODY" => "#line 970 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 0 : 1;\n  {{+=4}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37313	37421	
==>N' if ($char eq 'F');
    return 'v' if ($type eq 'void');
    return '?';
}

=item C<signature($params)>

Re <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	1169	1263	
==>it an empty body in the dump. This may be useful for debugging.

=item C<--include=/path/to/pmc <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	590	757	
==>nd 

=item * the number of M op/s.

=back

=cut

sub time_hires { time() }

$I2 = 0;                      # set    I2, 0
$I3 = 1;                      # set    I3, 1
$I <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	593	759	
==>nd

=item * the number of M op/s.

=back

=cut

sub time_hires { time() }

$I2 = 0;                      # set    I2, 0
$I3 = 1;                      # set    I3, 1
$I <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	28845	28944	
==>op_make_point {
}

sub _op_real_part {
}

sub _op_imag_part {
}

sub _op_magnitude {
}

sub _op_angl <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21336	21459	
==>[$temp,0,"DONE_$label"]);
  $self->_restore($temp);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_in <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21721	21844	
==>[$temp,0,"DONE_$label"]);
  $self->_restore($temp);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_in <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22106	22229	
==>[$temp,0,"DONE_$label"]);
  $self->_restore($temp);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_in <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	818	906	
==>e_t)(cur_opcode - interpreter->code->base.data))
#define CUR_OPCODE cur_opcode
#define IR <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	934	1022	
==>e_t)(cur_opcode - interpreter->code->base.data))
#define CUR_OPCODE cur_opcode
#define IR <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15309	15428	
==>$1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # return a single scalar
    ($x = ((@_ == 1) ? $_[0] : join <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16490	16609	
==>$1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # return a single scalar
    ($x = ((@_ == 1) ? $_[0] : join <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813690	813916	
==>],
                  "TYPE" => "inline",
                  "CODE" => 918,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 557 \"src/ops/set.ops\" <==
3	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	794	887	
==>ranscript of the svn:ignore properties
# of the directories in the Parrot subversion repositor <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3649	3742	
==>ranscript of the svn:ignore properties
# of the directories in the Parrot subversion repositor <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	5268	5411	
==>plit ' ', $warns;
            foreach my $w (split ' ', $ccwarn) {
                $w =~ s/^-W(?:no-)?(.*)$/$1/;
                @warns = grep ! <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	3002	3098	
==>NT>

All methods not defined in PMCNAME are inherited from the PMCPARENT class.
If no parent clas <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	562	654	
==>tion section's groups by studying the
contents of C<@Parrot::Configure::steps>.

=cut

sub co <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1619	1735	
==>ue = $self->value;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3239	3355	
==>ue = $self->value;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	2876	2974	
==>1 Tree Contents

Every element node in the parse tree is represented by an arrayref of
the form: C< <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3793	3889	
==>k("Unknow parameter '$prm'");
			ref($value) eq $$checklist{$prm}
		or	croak("Invalid value for <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	6207	6302	
==>C<SELF>.

=item C<DYNSUPER(a,b,c)>

As above, but uses the actual dynamic type of C<SELF>.

=bac <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3598	3692	
==>k("Unknow parameter '$prm'");
			ref($value) eq $$checklist{$prm}
		or	croak("Invalid value for <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	22672	22776	
==>ir .= <<PIR;
if trace != 2 goto NO_TRACE_$name
printerr "    $name STS: "
i = elements stypes
j = 0
STS_L <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11260	11358	
==>tion
T=factorial(5)
print T!

' Correct and factorial of 4 is 24
function factorial(a)
	if a then f <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	50157	50250	
==>Descent::Directive(
					'Text::Balanced::extract_codeblock($text,undef,$skip);
					', $looka <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3301	3415	
==>ebug') =~ /-debug/) {
            my $linkflags = $conf->data->get('linkflags');
            $linkflags =~ s/-opt:\ <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4805	4919	
==>ebug') =~ /-debug/) {
            my $linkflags = $conf->data->get('linkflags');
            $linkflags =~ s/-opt:\ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3669	3760	
==>m} = pop lazy_moves

# Decrement stack height.
PRE_OP_${CURIC}_CONT_$register_num:
dec stack <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2570	2668	
==>rgs[$i])
      unless defined $actual_arg_type;

    if ($formal_arg_type->name ne $actual_arg_type <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2270	2368	
==>rgs[$i])
      unless defined $actual_arg_type;

    if ($formal_arg_type->name ne $actual_arg_type <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2756	2859	
==>T "ERR this line in main routine should be skipped"
Label1:
   PRINT "5 back in module-level code"
   EN <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16723	16826	
==>T "ERR this line in main routine should be skipped"
Label1:
   PRINT "5 back in module-level code"
   EN <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	2915	3016	
==>STDERR "Found " . scalar(keys %$typedefs) . " typedefs.\n";
    my $cmd = "indent -kr -nce -sc -cp0 -l <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	1488	1615	
==>w(
        $file, $line, 'literal', 'I', $1);
      $text = $3;
      next;
    }

    if ($text =~ m{^( 0x[0-9a-fA-F]+ )($|\W.* <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	832	926	
==>es of
the form C<Parrot::OpTrans::*>. An instance of the class is created and
later consulted f <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12179	12272	
==>cat = Jako::Construct::Statement::Concat->new($block, $ident, $ident, $op, $value);
      next <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088139	1088427	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice",
                  "FLAGS" => ":base_core",
                  "AR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089086	1089374	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice",
                  "FLAGS" => ":base_core",
                  "AR <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	10799	10910	
==>ith incomplete op definition!\n";
    }

    close $OPS or die "Could not close ops file '$file' ($!)!";

    re <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	7787	7960	
==>_source_item('', 'cpu_dep'),
        ),
        $self->new_group(
            'Debugging', 
            '',
            $self->c_item(
                '', 
                'p <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	299	434	
==>ch_failed {
    return 'rx_fail P0';
}

############### SIMPLE OUTPUT ##############

sub output_advance {
    my ($self, $distance, $fa <==
3	/Users/nnunley/parrot/lib/Test/More.pm	2323	2419	
==>tarted writing tests, have a look at
Test::Simple first.  This is a drop in replacement for Test: <==
3	/Users/nnunley/parrot/config/auto/headers.pm	2408	2529	
==>onf->data->set(testheader  => undef);

            eval { cc_build(); };
            if (!$@ && cc_run() =~ /^$header OK/) <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	50779	50890	
==>s)

                extract_codeblock $text, "(){}", '[^(]*';


The ability to specify a different outermost del <==
3	/Users/nnunley/parrot/config/gen/icu.pm	4385	4489	
==>onf->data->set(testheader  => undef);
    eval { cc_build(); };
    if (!$@ && cc_run() =~ /^$header OK/) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	968	1114	
==>sion::Value');

  my $self = bless {
    BLOCK => $block,

    DEST  => $dest,
    LEFT  => $left,
    OP    => $op,
    RIGHT => $right,

    DEBU <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	959	1105	
==>sion::Value');

  my $self = bless {
    BLOCK => $block,

    DEST  => $dest,
    LEFT  => $left,
    OP    => $op,
    RIGHT => $right,

    DEBU <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	848	994	
==>sion::Value');

  my $self = bless {
    BLOCK => $block,

    DEST  => $dest,
    LEFT  => $left,
    OP    => $op,
    RIGHT => $right,

    DEBU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159371	159492	
==>> "#line 176 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160268	160389	
==>> "#line 176 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161165	161286	
==>> "#line 176 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  " <==
3	/Users/nnunley/parrot/tools/build/list_unjitted.pl	716	830	
==>+)\s*\{\s*$/){
        push @jitted, $jit;
    }
}
close JIT or die "Noo.. $!";

my @not_jitted;

OP : foreach my $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561940	562038	
==>interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", {{\@3}});\n  }\n  {{=next}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563024	563122	
==>interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", {{\@3}});\n  }\n  {{=next}} <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	28657	28789	
==>w = "throw $x # TODO create, args";
    }
    print <<EOC;
	$throw $cmt
EOC
}
sub GET_ITER
{
    my ($n, $c, $cmt) = @_;
    my $it = <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	953	1066	
==>, @EXPORT );
    } elsif ( @_ == 1 ) {
	# This is admittedly a little bit silly:
	# do we ever export anything els <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13309	13408	
==>|<autoscore/)
	{
		# Do nothing
	}
	elsif (@items &&
		( ref($items[0]) =~ /\AParse::RecDescent::Unc <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	11823	11957	
==>.  Seeking next para-content...\n";
          ++$state;
        } elsif(
          $desperate_for_title
           # if we're so desper <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7330	7435	
==>xt =~ s/^\s+//o;
	$text =~ s/\s+$//o;
	$text =~ s/\s*-$//o;
	
	# There was not text, just another POD comm <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11471	11577	
==>bstr($self->forth->text, 0, -1);
      my $value = Jako::Construct::Expression::Value->new($block, $self->f <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12018	12124	
==>bstr($self->forth->text, 0, -1);
      my $value = Jako::Construct::Expression::Value->new($block, $self->f <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12561	12667	
==>bstr($self->forth->text, 0, -1);
      my $value = Jako::Construct::Expression::Value->new($block, $self->f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111278	111391	
==>s\"\n  {{\@1}} = string_bitwise_or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112170	112283	
==>s\"\n  {{\@1}} = string_bitwise_or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113062	113175	
==>s\"\n  {{\@1}} = string_bitwise_or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	4564	4665	
==>ust try to catch glaring errors.  A real parser is probably
# overkill for this task.  For now we just <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35789	35884	
==>the missing (or extras)
will be considered failures.  If no tests were ever run Test::Builder
wi <==
3	/Users/nnunley/parrot/lib/Test/More.pm	33860	33955	
==>the missing (or extras)
will be considered failures.  If no tests were ever run Test::Builder
wi <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	3731	3842	
==>stback) = @_;
    my $continue = $self->genlabel('after_test');
    my $rev_test = { "==" => "!=",
		     "!=" = <==
3	/Users/nnunley/parrot/tools/dev/manicheck.pl	476	571	
==>ile against the files present in
this directory tree, accounting for .svn dirs. Prints out the
n <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6468	6558	
==>= $self->_new_pair;
  $self->_add_inst('', 'set', [$pair.'[0]',$item]);
  $self->_add_inst( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2983	3106	
==>elf->{'output_fh'}} $out,
    #"\n"
  ;
  $self->{'Thispara'} = '';
  
  return;
}

# . . . . . . . . . . And then off by it <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2517	2632	
==>elf->{'output_fh'}} $out, "\n";
  $self->{'Thispara'} = '';
  
  return;
}

# . . . . . . . . . . And then off by it <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	15895	15996	
==>ble
			 preceding directive was encountered. Typically this
			 indicates either a extra '>' in the gr <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	15619	15753	
==>"?" => 23,
			'CHAR' => 4,
			"<" => 22,
			"+" => 24,
			'CODE' => 6,
			"(" => 10,
			"|" => 26,
			"*" => 27,
			"[" => 14,
			")" = <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	16936	17070	
==>"?" => 23,
			'CHAR' => 4,
			"<" => 22,
			"+" => 24,
			'CODE' => 6,
			"(" => 10,
			"|" => 26,
			"*" => 27,
			"[" => 14,
			")" = <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	497	601	
==>eturn map {;
   m/^([-A-Za-z]+)=(\w[^\=]*)$/s or die "what's <$_>?";
   ( $1,  "{\\$2\n",   "/$1",  "}" ) <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35878	35982	
==>s
{

    my ($self, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $line, $ou <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31248	31351	
==>s
{
    my ($self, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $line, $ou <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39868	39971	
==>s
{
    my ($self, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $line, $ou <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	1834	1953	
==>urces'}})
        {
            push @contents,
                $dist->relative_path($dist->c_source_file_with_name($nam <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22675	22771	
==>);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0,$temp_1);
  return $return;
}

su <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23176	23272	
==>);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0,$temp_1);
  return $return;
}

su <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101861	102114	
==>eter, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102632	102885	
==>eter, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	6838	6944	
==>r;\n" }
	else 
		{ $self->{"vars"} .= "my $var;\n" }
	$self->{"changed"} = 1;
	return 1;
}

sub addautoscor <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283809	284012	
==>"i",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 908 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}};\n  {{+= <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	107	198	
==>2006-05-30T15:23:20.183054Z coke  $

=head1 NAME

tools/dev/parrot_api.pl - Verify Parrot AP <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2906	2993	
==>ffset($offset)>

=item C<goto_offset($offset)>

=item C<goto_address($address)>

CPreder <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029776	1029871	
==>0.0) {\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030618	1030713	
==>0.0) {\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	48844	48937	
==>ame initial three parameters as C<extract_bracketed>:
a text to process, a set of delimiter br <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	2793	2899	
==>(float8_t => 'double');
        print <<'END';

Can't find a float type with size 8, conversion ops might f <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8548	8650	
==>seg}->{code}}, "\t# $syms[CURR]\n";
		goto PARSE;
	}
	if ($type[CURR] eq "INT" and 
		($type[NEXT] eq " <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1710	1804	
==>type->name;

  $self->INTERNAL_ERROR("Constant definition involves undefined type name!")
    u <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630700	630980	
==>interpreter, type);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631690	631970	
==>interpreter, type);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629713	629991	
==>interpreter, type);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	11817	11925	
==>0);
  for(_get_args($node)) {
    my $temp = $self->_generate($_);
    $self->_add_inst(''         ,'eq' ,[$t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	306014	306387	
==>"",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 356,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2011	2123	
==>)> to create the path if necessary.

=cut

sub create_path
{
    my $self = shift;
    
    return unless $self-> <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	988	1100	
==>)> to create the path if necessary.

=cut

sub create_path
{
    my $self = shift;
    
    return unless $self-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	532110	532332	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exp",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453463	453836	
==>ore",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 520,
                  "ARGS" => [
                              "n",
                              "nc"
                            ],
                  "BODY <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	33353	33448	
==>nts: a string to extract from, a delimiter
specifier, and a prefix pattern. As before, a missing <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8701	8834	
==>nd of Error recovery.\n";
#DBG>				$dbgerror=0;
#DBG>			};

			    push(@$stack,
                     [ $$states[$$stack[-1][0]]{ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8309	8437	
==>nd of Error recovery.\n";
#DBG>				$dbgerror=0;
#DBG>			};

			    push(@$stack,
                     [ $$states[$$stack[-1][0]]{ <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	2879	2977	
==>ode and data symbols
in the object or archive files.  The options can be used to limit the symbols: <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31794	31909	
==>$expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcodes1, new AssignOp( $pa <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	32445	32560	
==>$expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcodes1, new AssignOp( $pa <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33095	33210	
==>$expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcodes1, new AssignOp( $pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206508	206655	
==>eger(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207450	207597	
==>eger(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	5037	5135	
==>e->new(scalarref => \$t, die_on_bad_params => 0);

  #print "HTTP/1.0 200 OK\n";
  print $CGI->head <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	26115	26236	
==>_table(interp, entry,
            _temp_mmd_init, N_MMD_INIT);
EOC
    }

    $cout .= <<"EOC";
    } /* pass */
} /* Parr <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28593	28696	
==>D_NO_HITEM ? ''
			       : '$item{'.$self->{hashname}.'}=') . '$&;
		' . ($self->{"lookahead"} ? '$text <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30671	30774	
==>D_NO_HITEM ? ''
			       : '$item{'.$self->{hashname}.'}=') . '$&;
		' . ($self->{"lookahead"} ? '$text <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22187	22298	
==>sion::Value->new($block, $self->require_value);

        $self->require_close_paren;
      }

      $self->requi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23120	23231	
==>sion::Value->new($block, $self->require_value);

        $self->require_close_paren;
      }

      $self->requi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24766	24876	
==>sion::Value->new($block, $self->require_value);
        $self->require_close_paren;
      }

      $self->requi <==
3	/Users/nnunley/parrot/config/auto/jit.pm	687	802	
==>ons->get('miniparrot')) {
        $self->set_result('skipped');
        return $self;
    }

    my $verbose = $conf <==
3	/Users/nnunley/parrot/config/gen/cpu.pm	599	714	
==>ons->get('miniparrot')) {
        $self->set_result('skipped');
        return $self;
    }

    my $verbose = $conf <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	16459	16562	
==>ODE qq{\tunshift P9, "or"\n};
	}
	if ($ops) {
		print CODE<<OPS;
	I5= P14
	div I5, I5, 2
CASE_${jump}_${ <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	13646	13747	
==>n (op2)
.end

.sub unicode:"dyadic:\u2374" :multi (APLVector,Float) # reshape
    .param pmc op1
    . <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3281	3375	
==>ter(shift)->any_errata_seen" \
   thingy.pod

=head1 DESCRIPTION

This class is a formatter tha <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	7228	7335	
==>n()) && $guarantee >= $t->maxlen());

    # Need more for even the shortest match of this subtree?
    if (( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	383	487	
==>e qw(Jako::Construct::Declaration);

use Jako::Construct::Type;


#
# new()
#

sub new
{
  my $class = sh <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	383	487	
==>e qw(Jako::Construct::Declaration);

use Jako::Construct::Type;


#
# new()
#

sub new
{
  my $class = sh <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	8184	8309	
==>sl      complex.h
calloc      stdlib.h
carg        complex.h
cargf       complex.h
cargl       complex.h
casin       complex.h <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21832	21955	
==>n;

      my ($cond, $left, $op, $right);

      if ($self->get(1)->is_if or $self->get(1)->is_unless) {
        $cond = $se <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24412	24535	
==>n;

      my ($cond, $left, $op, $right);

      if ($self->get(1)->is_if or $self->get(1)->is_unless) {
        $cond = $se <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	11312	11430	
==>0] > 0;
    return [ ] if @$incexc == 1;
    shift @$incexc;
    $incexc->[0]++;
    return $incexc;
}

sub rewrite_cla <==
3	/Users/nnunley/parrot/config/inter/progs.pm	840	956	
==>yacc);

    # Find a working version of a program:
    # Try each alternative, until one works.
    # If none work, t <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	9289	9388	
==>glish_func {
	local $_=$_[0];
	s/\$$/dollar/;
	s/\%$/int/;
	s/\&$/long/;
	s/\!$/single/;
	s/\#$/doub <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	816	909	
==>rd .emit .eom .sub .end .pcc_begin
    .pcc_end .pcc_sub .pcc_begin_return .pcc_end_return .pc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670601	670690	
==>DY" => "#line 415 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->push_string(interpreter, {{\@1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671374	671463	
==>DY" => "#line 415 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->push_string(interpreter, {{\@1 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10042	10166	
==>).';'/eg;
      return $x;
    }
  }
  foreach my $x (@_) {
    # Escape things very cautiously:
    $x =~ s/([^\n\t !\#\$\%\ <==
3	/Users/nnunley/parrot/config/auto/m4.pm	590	701	
==>w();

sub runstep
{
    my ($self, $conf) = @_;

    my $archname = $Config{archname};
    my ($cpuarch, $osname <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	8490	8613	
==>anhf     complex.h
catanhl     complex.h
catanl      complex.h
cbrt        math.h
cbrtf       math.h
cbrtl       math.h
ccos <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	192	281	
==>quire Parrot::Test;

@EXPORT = ( qw(output_is output_like output_isnt), @Test::More::EXPOR <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	109	198	
==>quire Parrot::Test;

@EXPORT = ( qw(output_is output_like output_isnt), @Test::More::EXPOR <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3019	3135	
==>EG(%ld)",
    'n'  => "NREG(%ld)",
    'p'  => "PREG(%ld)",
    's'  => "SREG(%ld)",
    'k'  => "PREG(%ld)",
    'ki <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2839	2955	
==>EG(%ld)",
    'n'  => "NREG(%ld)",
    'p'  => "PREG(%ld)",
    's'  => "SREG(%ld)",
    'k'  => "PREG(%ld)",
    'ki <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1937	2047	
==>EG(%ld)",
  'n'   => "NREG(%ld)",
  'p'   => "PREG(%ld)",
  's'   => "SREG(%ld)",
  'k'   => "PREG(%ld)",
  'ki <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033519	1033744	
==>mc_keyed_str(interpreter, lex_pad, lex_name, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034617	1034842	
==>mc_keyed_str(interpreter, lex_pad, lex_name, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	42685	42791	
==>a join("\n", ...) on the contents, so we have to append a
     # newline to ever line, and then nix the las <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63496	63825	
==>ff",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 83,
                  "ARGS" => [
                              "ic"
                            ],
                  "BOD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78894	78986	
==>ore.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  void * const <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80415	80507	
==>ore.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  void * const <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544586	544801	
==>d = b<<p;\n saved_var1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545922	546137	
==>d = b<<p;\n saved_var1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547258	547473	
==>d = b<<p;\n saved_var1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179619	179792	
==>p",
                              "ic"
                            ],
                  "BODY" => "#line 247 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	11793	11948	
==>labels ], $flags);
        my $op_size = $op->size;
        my $jumps = "0";

        #
        # Macro substitutions:
        #
        # We convert the fo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561179	561321	
==>( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "fetchmethod",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562262	562404	
==>( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "fetchmethod",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	5698	5798	
==>' Odd bug in static strings.  Expect "Ok"
dim O(1)
IF E$ <> "O" THEN 5030
print "Wrong!"
end
5030 pri <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	30046	30174	
==>= @_;
    print "\t\t$cmt\n";
    my $v = pop @stack;
    my $w = pop @stack;
    push @stack, $w;
    push @stack, $v;
}

sub ST <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36045	36183	
==>s';
        push @localmv, 'PARAMS';

        # If we don't have an ARG0, we'll fake it out. This is needed as ret will
        # never hav <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614234	614355	
==>JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "classoffset",
                  "FLAGS" => ":object_classes" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615384	615505	
==>JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "classoffset",
                  "FLAGS" => ":object_classes" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956964	957197	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "find_encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957868	958101	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "find_encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	3692	3801	
==>R "$ARGV:$.: Duplicate entry $src\n";
    }

    # Parse out metadata
    die "Malformed line in MANIFEST: $_" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302127	302385	
==>tring_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303003	303261	
==>tring_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303879	304137	
==>tring_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293456	293713	
==>tring_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294332	294589	
==>tring_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295208	295465	
==>tring_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6017	6149	
==>oken. Got ".&$ShowCurToken."\n";
			};

            $act=   exists($$actions{ACTIONS}{$$token})
                    ?   $$actions <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5732	5860	
==>oken. Got ".&$ShowCurToken."\n";
			};

            $act=   exists($$actions{ACTIONS}{$$token})
                    ?   $$actions <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	43526	43636	
==>t);
      DEBUG > 1 and print " Considering E<$content> with char ",
        defined($charnum) ? $charnum : "un <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1560	1673	
==>espace}_THEN");
    }

    $compiler->emit("  goto ${prefix}_LAST");
  }
  elsif ($kind eq 'else') {
    $compiler <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32280	32387	
==>elf->{class}, $method, 0);
    # I think that these will be out by one - NWC
    my $l = $self->line_directi <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40902	41009	
==>elf->{class}, $method, 0);
    # I think that these will be out by one - NWC
    my $l = $self->line_directi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613953	614240	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_AD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597141	597426	
==>3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_AD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765472	765697	
==>DE" => 864,
                  "ARGS" => [
                              "ic",
                              "nc"
                            ],
                  "BODY" => "#line 320 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10297	10414	
==>(undef);
		};

		#shift the error token

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Shift \$error token an <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9835	9946	
==>(undef);
		};

		#shift the error token

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Shift \$error token an <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20542	20647	
==>urn $code;
}

1;

package Parse::RecDescent::Action;

sub describe { undef }

sub sethashname { $_[0]->{ha <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284854	285171	
==>ter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285731	286048	
==>ter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286608	286925	
==>ter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	16094	16191	
==>ed for reading the XHTML .ent files:

use strict;
my(@norms, @good, @bad);
my $dir = 'c:/sgml/docb <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826642	826735	
==>AT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827712	827805	
==>AT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450671	450892	
==>CODE" => 516,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 200 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2 <==
3	/Users/nnunley/parrot/config/init/defaults.pm	5891	6009	
==>slash => '/',

        VERSION => $main::parrot_version,
        MAJOR   => $main::parrot_version[0],
        MINOR   = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	3358	3460	
==>p_pmc();

    $compiler->emit("  $reg = new $pmc_type");
    $compiler->emit("  global \"$name\" = $reg <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407746	408024	
==>"NAME" => "connect",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408644	408922	
==>"NAME" => "connect",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	8734	8855	
==>{
		    $show = $ObjectName ? "$o\t$name" : $name;
		    if (defined $Type) {
			$show .= "\t";
			my $symbol;
			if ($cod <==
3	/Users/nnunley/parrot/lib/Test/More.pm	21516	21619	
==>..
    }

Declares a block of tests you expect to fail and $why.  Perhaps it's
because you haven't fixed <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10651	10749	
==>lative_path
{
    my $self = shift;
    my $path = $self->path_for_file_with_relative_path(shift) | <==
3	/Users/nnunley/parrot/config/init/hints.pm	427	522	
==>rrot::Configure::Step;

$description = 'Loading platform and local hints files';

@args = qw( cc <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	7114	7209	
==>self->{"prods"}};
	my $opcount = ++$self->{"opcount"};
	return "_operator_${opcount}_of_producti <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	1253	1347	
==>param [param [param ...]]]

The param and return_type parameters use the NCI standard, which fo <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27954	28053	
==>$_savetext;' : '').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30028	30127	
==>$_savetext;' : '').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32229	32328	
==>$_savetext;' : '').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	21030	21162	
==>e_test_map ) {
        push @EXPORT, $func;
        no strict 'refs';

        *{$package.'::'.$func} = sub {
            my ($exampl <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4064	4187	
==>r '".lc($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _DBLoad {
	{
		no strict 'refs';

			exists <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3861	3972	
==>r '".lc($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _DBLoad {
	{
		no strict 'refs';

			exists <==
3	/Users/nnunley/parrot/languages/APL/t/APL.pm	986	1109	
==>y $output;
    if (defined($block->out)) {
      $output = $block->out;
      if ($output)  {
        $output .= "\n"; # XXX <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2804	2895	
==>spara'} =~ tr{\xAD}{}d if Pod::Simple::ASCII;
  my $out = Text::Wrap::wrap($indent, $indent, <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2338	2429	
==>spara'} =~ tr{\xAD}{}d if Pod::Simple::ASCII;
  my $out = Text::Wrap::wrap($indent, $indent, <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	6028	6133	
==>||
		 (defined $Type && $Type eq '1'); # So they used --t.
$Type = 'long' if $Long; 
die "$ME: --type=$Typ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208336	208422	
==>401 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) <= {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209277	209363	
==>401 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) <= {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202467	202736	
==>E" => "function",
                  "CODE" => 239,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 380 \"src/ops/cmp. <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1624	1763	
==>/;
      tr/\xAD//d;
    }
    
    ...or however you want to alter the value...
  }

=back

You're unlikely to ever need to construct an ob <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	1092	1189	
==>g is wrong or the implementation is missing.

=item No Parrotish Prefix

The API is implemented bu <==
3	/Users/nnunley/parrot/examples/benchmarks/oo1.pl	59	171	
==>new Foo();
}
my $o = new Foo();
print $o->[0], "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shif <==
3	/Users/nnunley/parrot/examples/benchmarks/oo2.pl	59	171	
==>new Foo();
}
my $o = new Foo();
print $o->[0], "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shif <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11458	11564	
==>n ($self->output_match_succeeded(),
            ".return (<rx_match>)");
}

sub output_rule_fail {
    my ( <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	7759	7926	
==>', c => 'My_Other_Class' );

    $obj = new Myobj;               # constructor

                                    # scalar type accessor:
    $element_value = $obj->s <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18710	18852	
==>=> 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			'THEN' = <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	42108	42250	
==>=> 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			'THEN' = <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4324	4438	
==>claration.

=cut

sub run_core_func_decl
{
    my ($self, $core) = @_;

    return "opcode_t * " .
        $self->c <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2812	2926	
==>claration.

=cut

sub run_core_func_decl
{
    my ($self, $core) = @_;

    return "opcode_t * " .
        $self->c <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23727	23837	
==>n;
}

sub _op_min {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self-> <==
3	/Users/nnunley/parrot/config/auto/env.pm	1017	1147	
==>setenv,
        unsetenv => $unsetenv
    );

    if ($setenv && $unsetenv) {
        print " (both) " if $verbose;
        $self-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031440	1031545	
==>ys.ops\"\n    if ({{\@2}} < enum_first_type || {{\@2}} >= enum_last_type)\n        {{\@1}} = -1;\n    else <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032309	1032414	
==>ys.ops\"\n    if ({{\@2}} < enum_first_type || {{\@2}} >= enum_last_type)\n        {{\@1}} = -1;\n    else <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	933347	933545	
==>ase_inplace(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	935561	935759	
==>ase_inplace(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937781	937979	
==>ase_inplace(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	337878	338087	
==>"TYPE" => "inline",
                  "CODE" => 395,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 103 \"src/ops/io.ops\"\n  { <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	24925	25077	
==>w LocalDir( $parser,
            'prolog' => 1,
            'result' => $defn,
        );
        push @opcodes, new LexDir( $parser,
            'p <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	2624	2743	
==>| $cur_method->{'unimplemented'})) {
            # Do nothing.

        # Have we got a non-blank line when we've got no <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	296	394	
==>= ('Pod::Simple::Methody');
BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG)
          ? \&Pod::Simple <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	178	276	
==>= ('Pod::Simple::Methody');
BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG)
          ? \&Pod::Simple <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494335	494606	
==>590 \"src/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495203	495474	
==>590 \"src/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496071	496342	
==>590 \"src/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	8134	8278	
==>ne =~ /\S/o;
			}
		
			my @abstract = $line;
			
			while ( @lines )
			{
				$line = shift @lines;
		
				last if $line !~ /\S/o;
				
				push <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6169	6266	
==>ubble sort cities
TRUE=1
FALSE=0
DIM A$(4)
A$(1) = "New York"
A$(2) = "Boston"
A$(3) = "Chicago"
A <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15822	15919	
==>ubble sort cities
TRUE=1
FALSE=0
DIM A$(4)
A$(1) = "New York"
A$(2) = "Boston"
A$(3) = "Chicago"
A <==
3	/Users/nnunley/parrot/config/init/defaults.pm	5576	5706	
==>V; system q{$(MAKE)}, @ARGV; exit $$? >> 8;\'',

        # if platform has a .s file that needs to be assembled
        platform_as <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	13510	13611	
==>ax = "INF" if ! defined $max;
    return "$str [$min..$max]";
}

# Defaults
sub Regex::Ops::Tree::reft <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	25135	25236	
==>rrorMsg;

use overload '""' => sub { "$_[0]->{error}, detected at offset $_[0]->{pos}" };

1;

__END__ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	6819	6922	
==>gly encourage its use.

Should an ok() fail, it will produce some diagnostics:

    not ok 18 - sufficie <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	2335	2473	
==>c";

                #move_if_diff("$inc.tmp", "$destdir/$inc");
                #push(@generated, "$destdir/$inc");
                move_i <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	14546	14640	
==>nmode($out_fh)
     if $self->can('write_with_binmode') and $self->write_with_binmode;
    $sel <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	606	696	
==>ooX.c and pmc_fooX.h from fooX.dump files, also create libfoo.c
containing the initializati <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10689	10829	
==>y $result = new_tmp( $parser, 'pmc' );
                    push @opcodes,
                        new LocalDir( $parser, 'result' => $resul <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18170	18278	
==>y $result = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $resul <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	23225	23333	
==>y $result = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $resul <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15312	15432	
==>:(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # return a single scalar
    ($x = ((@_ == 1) ? $_[0] : join '', <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16493	16613	
==>:(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # return a single scalar
    ($x = ((@_ == 1) ? $_[0] : join '', <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	2692	2787	
==>'Lists all the generated files, i.e. the files that will be added to the distribution after conf <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	22993	23108	
==>f->{flags}{dynpmc}) {
        $cout .= <<"EOC";
        vt_clone->base_type = entry;
        vt_clone->whoami = stri <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	38202	38309	
==>oreach (@localmv) {
		delete $mv->{$_};
	}

	# Return generated code.
	return $pir;
}


# Instruction to PIR <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	25572	25695	
==>~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~

    if($para_type eq '=pod') { #/////////////////////// <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	25618	25718	
==>~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~

    if($para_type eq '=pod') { #////////////////////////////////////////////// <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	12012	12120	
==>ail_label = $self->output_label_use($fail);
    my @ops;
    if (defined $name) {
        push @ops, "<rx_mat <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	7192	7287	
==>s also granted to make and use derivative works provided
that such works are identified as "deri <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5262	5352	
==>o($self->expr_pop(@_));
}

=item C<expr_offset($offset)>

Implemented in subclasses to retu <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	10529	10635	
==>ext-align: left; }
    .indent0 { padding-top:  30px; border-bottom: 2px solid #313052; }
    .indent1 { pa <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	4935	5035	
==>en)>

Processes the file start token. If the text of the next token is a file
path and that file cont <==
3	/Users/nnunley/parrot/tools/build/vtable_extend.pl	2229	2328	
==>tely after the last variable declared in the block
   making the calls into the interpreter, as it d <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	3039	3145	
==>},
    'nobench=s'    => $cfg{skip_bench},
);

# Read Configuration File
die
    'Unable to access configur <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1014070	1014262	
==>1132,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 71 \"src/ops/sys.ops\"\n  const char * const tmp = strerr <==
3	/Users/nnunley/parrot/config/init/defaults.pm	6574	6682	
==>d $prefix) {
        my $VERSION = $conf->data->get('VERSION');
        my $DEVEL   = $conf->data->get('DEVEL <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4558	4666	
==>lc_type);
    $compiler->emit("  $temp = $left $op $right");
    $compiler->emit("  $dest = $temp");
  }
  el <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488022	488312	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	489415	489705	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":b <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	12845	12958	
==>EHANDLERS'} = 'ehs';

    # SRM pre translation code.
    $pir .= "### pre_translation\n";
    my $srm_pt = $srm-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047770	1048034	
==>AME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048693	1048957	
==>AME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	8898	8988	
==>ng $HTMLDIR/function_summary.html..\n" if $DEBUG;
    open (OUT, ">$HTMLDIR/function_summar <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6369	6511	
==>ago;
    } else {
        return;
    }
}

sub needs_build {
    my ($target, @sources) = @_;

    my $target_mod = modtime($target)
      or r <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4789	4931	
==>ago;
    } else {
        return;
    }
}

sub needs_build {
    my ($target, @sources) = @_;

    my $target_mod = modtime($target)
      or r <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6580	6722	
==>ago;
    } else {
        return;
    }
}

sub needs_build {
    my ($target, @sources) = @_;

    my $target_mod = modtime($target)
      or r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958623	958913	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959424	959714	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960226	960516	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGD <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	5327	5436	
==>nclude/parrot/op.h>). This indicates if and how an op
may jump.

=cut

sub jump
{
    my $self = shift;

    i <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	1997	2094	
==>l the options can be shortened to their unique prefixes, and one
leading dash ("-") can be used in <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	3878	3975	
==>l the options can be shortened to their unique prefixes,
and one leading dash ("-") can be used in <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	1731	1843	
==>open my $C, '>', $c_name or die "Can't write '$c_name";
    print $C $cout;
    close $C;
    my $hout = $generat <==
3	/Users/nnunley/parrot/lib/Test/More.pm	15100	15193	
==>diagnostic message which is guaranteed not to interfere with
test output.  Like C<print> @diag <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	31017	31130	
==>P_EXCEPT($n, $c, $cmt);
}
sub END_FINALLY
{
    my ($n, $c, $cmt) = @_;
    print <<EOC;
	throw P5 $cmt
EOC
}

sub <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	15879	15987	
==>path =~ s|\\+|/|go;

    return $path;
}

=back

=head2 Functions

=over 4

=item C<esc(@strings)>

=item C<e <==
3	/Users/nnunley/parrot/config/auto/jit.pm	2627	2740	
==>e "$jitbase/$cpuarch/asm.s") {
        copy_if_diff("$jitbase/$cpuarch/asm.s", "src/asmfun.s");
        $conf->dat <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	15867	15977	
==>, [ $ibacks[-1] ]);
    push @ops, $next;

    return ($back, @ops);
}

# Dynamic alternation: a set of alterna <==
3	/Users/nnunley/parrot/languages/regex/regex.pl	1894	2002	
==>) {
    print $_->render(), "\n" foreach (@$trees);
    exit;
} elsif ($operation eq 'dump') {
    print $_-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451458	451680	
==>" => 517,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 225 \"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33976	34090	
==>lsif($over_type eq 'bullet') {
          my $item_type = $self->_get_item_type($para);
            # That kills the <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	5781	5878	
==>ong!"
end
5030 print "Ok"
	end

' Equals bug, should print = greeting
dim a$(1)
a$(2)="World"
a$=" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2563	2665	
==>, Attributes => { kind => 'infix', name => $self->op } });
    $self->left->sax($handler);
    $self->r <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2440	2542	
==>, Attributes => { kind => 'infix', name => $self->op } });
    $self->left->sax($handler);
    $self->r <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	3395	3509	
==>tial space
	(?:(\d+)\s+)?   # optional line
	(\d+)\s+        # PC
	([\w+]+)\s+      # opcode e.g. SLICE+3
	(?:(\d+) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2926	3030	
==>{FILE}; }
sub line { return shift->{LINE}; }

sub is_global
{
  my $self = shift;

  return defined($self <==
3	/Users/nnunley/parrot/Configure.pl	8341	8434	
==>acc};

print <<"END";
Parrot Version $parrot_version Configure 2.0
Copyright (C) 2001-2006, Th <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066663	1066938	
==>nline",
                  "CODE" => 1191,
                  "ARGS" => [
                              "i",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 49 \"src/ops/experimental.ops\"\n\ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30852	30978	
==>},
		DEFAULT => -54
	},
	{#State 101
		DEFAULT => -50
	},
	{#State 102
		DEFAULT => -32
	},
	{#State 103
		ACTIONS => <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2124	2225	
==>following MUST apply.
    check_tabs($file, $source);
    check_cpp_indents($file, $source);
    check <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	2813	2923	
==>e} = 1;
}

print <<END;
    </list>

    <contexts>

      <context name="default" attribute="Normal Text" line <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	2908	3013	
==>=> $step, params => \@params);

    return $self;
}

=item * C<add_steps()>

Registers a new step to be ru <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	15241	15397	
==>{
            $next = 0;
            $restart = 1;
        }

        $body =~ s/\$(\d+)/{{\@$1}}/mg;

        my $file_escaped = $file;
        $file_escape <==
3	/Users/nnunley/parrot/examples/benchmarks/primes2.pl	227	365	
==>);

sub isprime1
{
    my($input)=@_;
    my $n;

    if ($input < 1) {
	return 0;
    }
    $n = $input - 1;

    while ($n > 1){
	if ($in <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	407	503	
==>ined $Linearization_Limit;
 # headings/items longer than that won't get an <a name="...">

#~~~~~ <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1659	1771	
==>}

    if ($conf->options->get('ask')) {
        $prog = prompt($prompt, $prog ? $prog : $conf->data->get($util)) <==
3	/Users/nnunley/parrot/config/inter/make.pm	1533	1645	
==>}

    if ($conf->options->get('ask')) {
        $prog = prompt($prompt, $prog ? $prog : $conf->data->get($util)) <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1673	1785	
==>}

    if ($conf->options->get('ask')) {
        $prog = prompt($prompt, $prog ? $prog : $conf->data->get($util)) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104603	1105043	
==>IRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1223,
                  "ARGS" => [
                              "p",
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line 332 \"src <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1746	1835	
==>$PATHQUOTE" . q[/Users/nnunley/parrot/tools/build/pmc2c.pl] . $PATHQUOTE;

# Actual comman <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1837	1926	
==>$PATHQUOTE" . q[/Users/nnunley/parrot/tools/build/pmc2c.pl] . $PATHQUOTE;

# Actual comman <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	3480	3592	
==>nd print " Fetching a line from source filehandle $fh...\n";
        local $/ = $Pod::Simple::NL;
        push @l <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	42174	42265	
==>dd_inst('', 'set', ['P0', $func_obj]) unless $func_obj eq 'P0';
  $self->_add_inst('', 'set' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90911	91215	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91765	92069	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core", <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	4370	4465	
==>element({ Name => 'call', Attributes => { name => $self->name->value } });
  $_->sax($handler) f <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	3307	3421	
==>b has_svn_id
{
    my $self = shift;
    my $content = $self->read;
    # Break up the $Id to prevent svn messing w <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5202	5306	
==>$self->left;
  my $op    = $self->op;
  my $right = $self->right;

  $handler->start_element({ Name => 'a <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3265	3369	
==>$self->left;
  my $op    = $self->op;
  my $right = $self->right;

  $handler->start_element({ Name => 'a <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14276	14431	
==>int "  Doesn't look at all contentworthy!\n  Giving up.\n";
          undef $title;
          last;
        }
      }
    }
    
    else {
      die "IMPOS <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	2902	3015	
==>eturned.

=cut

sub write_html
{
    my $self = shift;
    my $source = shift || die "No source\n";
    my $target <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	2350	2463	
==>eturned.

=cut

sub write_html
{
    my $self = shift;
    my $source = shift || die "No source\n";
    my $target <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	2236	2370	
==>ck of active blocks. We keep a block on the
##                          stack for the file scope.
##
## NOTE: Do NOT access the block s <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2655	2748	
==>addr[*(cur_opcode += $offset)]";
}

=item C<goto_pop()>

Transforms the C<goto POP()> macro in <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	396	507	
==>6 }

# for internal use
sub MAX() { 0xFFFFFFFF }

# padd a message to a multiple of 64
sub padding($) {
    my $ <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	18030	18133	
==>be hacks" */
    UNUSED(pmc_nci);
    signature_len = string_length(interpreter, signature);
    if (0 = <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	21001	21090	
==>al.\n\n";

  return;
}

#:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79434	79545	
==>ed to build\n         a PMC with it so we can get and set the value */\n      {{\@1}} = pmc_new(interpreter, enu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80955	81066	
==>ed to build\n         a PMC with it so we can get and set the value */\n      {{\@1}} = pmc_new(interpreter, enu <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	64002	64103	
==>hat was not matched by a
corresponding nested closing tag (and the failure mode was not "MAX" or "PARA <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	15863	15987	
==>, $expected, $desc );
            $builder->diag("'$cmd' failed with exit code $exit_code")
                  if $exit_code a <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	18414	18538	
==>, $expected, $desc );
            $builder->diag("'$cmd' failed with exit code $exit_code")
                  if $exit_code a <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	25457	25562	
==>, $expected, $desc);
            $builder->diag("'$cmd' failed with exit code $exit_code") if $exit_code a <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	174	268	
==>MCC - IMCC documentation section

=head1 SYNOPSIS

	use Parrot::Docs::Section::IMCC;

=head1 DE <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	3127	3219	
==>tible changes to Parrot that invalidate existing bytecode files. This is the new experimental <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	535347	535673	
==>> ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 619,
                  "ARGS" => [
                              "n",
                              "n" <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4888	4995	
==>section;
  return undef unless length $out;
  return $out;  
}


sub resolve_pod_page_link {
  my($self, $to <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1271	1356	
==>e_f)(Interp*, INTVAL*, void **);\n\n\n\n/*\n** pmc.ops\n*/\n\n\n\n/*\n** python.ops\n* <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	6235	6370	
==>rint $fh "<a href='$type'>";
        } else {
          print $fh "<a>"; # Yes, an 'a' element with no attributes!
        }

      } el <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	3826	3947	
==>s};
        $cout .= <<"EOC";
#include "pmc_$name.h"
EOC
    }
    "$cout\n";
}

=back

=head1 SEE ALSO

=over 4

=item F< <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13782	13883	
==>nction mine (a, b, c as first)
	a=12
	b=99
	c.foo=103
	mine=100
end function
dim z as first
z.foo=13
p <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	9208	9325	
==>'opcode_t' => 'long',
             'opcode_t_size' => 4,
             'ops' => 'src/ops/core.ops src/ops/bit.ops src/o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	617467	617582	
==>on)(interpreter, left, right);\n\t{{+=4}};\n    }\n    if (mic->pic) {\n\tlru = mic->pic->lru;\n\tif (lru->u.type == <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	18451	18549	
==>lity for compile time class creation.

Modified by Damian Conway, 1999-03-05, v0.58.

    Added han <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8470	8643	
==>$err) {
            if (   (defined($_))
                && ($_ ne File::Spec->devnull)
                && (!m/^&/)) {
                open(my $out, $_);
                prin <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2802	2899	
==>et) = @_;

    return "interpreter->resume_offset = REL_PC + $offset; interpreter->resume_flag = 1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4137	4234	
==>et) = @_;

    return "interpreter->resume_offset = REL_PC + $offset; interpreter->resume_flag = 1 <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	18792	18919	
==>t) = @_;
    my $t = pop @stack;
    my $n = temp('P');
    my $p = $t->[1];
    print <<EOC;
	$n = new $DEFVAR
	neg $n, $p $cmt <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	9294	9391	
==>ce;
}


=head2 my ($pre, $class_name, $flags) = parse_flags(\$code);

Extract a class signature fr <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	2753	2846	
==>ew_lex {
  my ($self, $symbol, $value) = @_;
  $self->_add_inst ('','store_lex',[-1,"\"$symbol <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	3884	4069	
==>tes);
                    last;
                }
            }

            # end of template definition?
            if (defined($template)) {
                $templates{$template} = $ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	13816	13947	
==>unless ( defined $expr ) {
            $expr = BuildLiteral( $parser, 'nil', 'nil' );
        }
        if (    scalar( @{$exprs} <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	8661	8773	
==>= shift;

  if (!defined $file) {
    $file = "src/ops/ops.num";
  }

  my ($name, $number, $prev);

  if (!defin <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1282	1391	
==>Spec->join('languages', $language);
        } elsif ($dir_count == 1) {
          $path_to_language = $languag <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1767	1876	
==>Spec->join('languages', $language);
        } elsif ($dir_count == 1) {
          $path_to_language = $languag <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	1889	1990	
==>y $currline="";	# The last labeled line before a "data" statement.
	my $singleif=0;
	my $elsetag=0;
	m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	331373	331580	
==>,
                  "CODE" => 389,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 40 \"src/ops/io.ops\"\n  PIO_close(interpre <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39118	39212	
==>'    => \&_op_current_input_port,
  'current-output-port'   => \&_op_current_output_port,
  'wi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3092	3184	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__END__

=head1 NAME

Pod::Simple::Text -- format Po <==
3	/Users/nnunley/parrot/lib/Test/More.pm	35214	35332	
==>his is ok:

    use threads;
    use Test::More;

This may cause problems:

    use Test::More
    use threads;


=item <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095134	1095220	
==>BODY" => "#line 223 \"src/ops/experimental.ops\"\n  Parrot_Exec_OS_Command(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095829	1095915	
==>BODY" => "#line 223 \"src/ops/experimental.ops\"\n  Parrot_Exec_OS_Command(interpreter, <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33311	33448	
==>return1, $var;
    }
    else {
        push @opcodes2, @{ $expr->[1] };
        push @opcodes3, new AssignOp( $parser,
            ' <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	44695	44807	
==>olumns;

  # not need any more
  $self->{instruction} = undef;
  $self->{regs} = undef;

  return $self;
}

1;
__ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	800	904	
==>MVAL)\nAborting");
  }

  if( defined &Pod::Simple::DEBUG ) {
    require Carp;
    Carp::croak("It's too <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2942	3074	
==>my $test_prog = join ' && ', @test_prog;
            $diag .= "'$test_prog' failed with exit code $exit_code."
                if $ <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	2552	2669	
==>my $test_prog = join ' && ', @test_prog;
               $diag .= "'$test_prog' failed with exit code $exit_code." if $ <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2554	2668	
==>my $test_prog = join ' && ', @test_prog;
            $diag .= "'$test_prog' failed with exit code $exit_code." if $ <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2963	3061	
==>nt {$FH}
            "  $op->{result}->{symbol}\[$op->{arg1}->{symbol}\] = $op->{arg2}->{symbol}\n <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3544	3660	
==>});

      while (1) {
        last unless defined $string and
          $string =~ m/(^|^.*?[^\\])\$((([A-Za-z][A-Za <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	15435	15531	
==>d in order to provide
additional checking of values, etc.  Here, we want the C<count>
element alw <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970452	970900	
==>"o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1091,
                  "ARGS" => [
                              "i",
                              "i",
                              "sc",
                              "ic"
                            ],
                  "BODY <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	553	648	
==>tem C<buildprefix>

The build prefix. Defaults to ''.

=item C<prefix>

The install prefix. Defa <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	782	877	
==>tem C<buildprefix>

The build prefix. Defaults to ''.

=item C<prefix>

The install prefix. Defa <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16325	16437	
==>gn;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->forth);
      my $op    = $self->fo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17096	17208	
==>gn;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->forth);
      my $op    = $self->fo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17901	18013	
==>gn;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->forth);
      my $op    = $self->fo <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2321	2434	
==>val = $self->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exists($$self{USER})
	or	$$sel <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2234	2338	
==>val = $self->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exists($$self{USER})
	or	$$sel <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	4874	4970	
==>sub skip (Str $reason?, :$depends) returns Bool is export {
    Test::proclaim(1, "", "skip $reas <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28210	28304	
==>RD_NO_TRACE?'':'
			Parse::RecDescent::_trace(q{<<Didn\'t match terminal>>},
						  Parse::Rec <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32485	32579	
==>RD_NO_TRACE?'':'
			Parse::RecDescent::_trace(q{<<Didn\'t match terminal>>},
						  Parse::Rec <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	15732	15854	
==>all_pkg . '::TODO' } = \$extra{todo}
                if defined $extra{todo};

            my $pass = $builder->$meth( $rea <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	18283	18405	
==>all_pkg . '::TODO' } = \$extra{todo}
                if defined $extra{todo};

            my $pass = $builder->$meth( $rea <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	17834	17956	
==>after prefix at "} .
			     substr($$textref, pos($$textref), 20) .
			     q{..."},
		         pos $$textref;
		pos $$tex <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	2511	2630	
==>docs
{
    my $self = shift;
    my $silent = shift || 0;
    my $delete = shift || 0;
    my $dist = Parrot::Distributi <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	128	232	
==>nu;

use strict;
use warnings;
use 5.006;

use base 'Parrot::Test::M4';

our $VERSION = 0.01;

sub get_ou <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	9218	9322	
==>aped"\n};
}


#
# write op_func_func
#

my ($op_info, $op_func, $getop);
$op_info = $op_func = 'NULL';
$g <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	7364	7516	
==>_item('', 'malloc-trace'),
            $self->c_item(
                '', 
                'pairs' => ['resources'], 
                'sources' => ['res_ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	14982	15082	
==>back = pop(@args);

    my $back = $self->genlabel('alt_back');
    my $next = $self->genlabel('alt_n <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	14622	14721	
==>h_binmode;
    $self->output_fh($out_fh);
  }

  return $self->parse_file($source);
}

#------------ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	11977	12067	
==>(/\n/, <<'END');
$rx_match{'!POS'} = $rx_pos;
$rx_match{'!RESULT'} = undef;
$rx_match{'0'}- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627478	627700	
==>n  {{\@1}}->vtable->init(interpreter, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628622	628844	
==>n  {{\@1}}->vtable->init(interpreter, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7622	7723	
==>oto FIN
oats:
	print "Oats",
	return
peas:
	print "Peas",
	return
beans:
	print "Beans",
	return

' Tr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844453	844769	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 958,
                  "A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845331	845647	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 959,
                  "A <==
3	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	1084	1179	
==>e SVN directories
\B\.svn\b

# debian/ should not go into release tarballs
^debian$
^debian/
END <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3938	4033	
==>e SVN directories
\B\.svn\b

# debian/ should not go into release tarballs
^debian$
^debian/
END <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2669	2772	
==>=item C<restart_offset($offset)>

Returns the C code for C<restart OFFSET($offset)>.

=cut

sub restart_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4004	4107	
==>=item C<restart_offset($offset)>

Returns the C code for C<restart OFFSET($offset)>.

=cut

sub restart_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3702	3805	
==>=item C<restart_offset($offset)>

Returns the C code for C<restart OFFSET($offset)>.

=cut

sub restart_ <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	5674	5790	
==>and not $args =~ m/^\s*$/ ) {
        foreach (split //, $args) {
            die "Invalid argument signature char '$ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	2746	2850	
==>y
    result = _default(1, input_string, 0, stack)
    matched = result["!RESULT"]
    if matched goto pr <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	25352	25453	
==>ed qw (
			extract_delimited
			extract_bracketed
			extract_quotelike
			extract_codeblock
			extract <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598157	598308	
==>cstring( interpreter, {{\@2}} ));\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599204	599355	
==>cstring( interpreter, {{\@2}} ));\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7422	7529	
==>t it on the lazy
	# moves stack.
	if (!$need_dest) {
		$pir .= <<'PIR'
inc stack_depth
lazy_moves = push ${L <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5525	5625	
==>ush @ops, $self->output_label_def($passLabel);
    return @ops;
}

sub output_initgroup {
    my ($se <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5218	5318	
==>ush @ops, $self->output_label_def($passLabel);
    return @ops;
}

sub output_initgroup {
    my ($se <==
3	/Users/nnunley/parrot/config/init/hints/solaris.pm	3355	3454	
==>linkflags = $conf->data->get('linkflags');
            $conf->data->add(' ', linkflags => '-xlibmiee <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	44453	44563	
==>turn $return;
}

sub generate {
  my $tree = shift;

  my $self = Scheme::Generator->new({});
  my $temp;

  $s <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	29466	29586	
==>OC;
	$p = $seq\[$i\] $cmt
EOC
	push @stack, [-1, $p, 'P'];
    }
}

sub DUP_TOP
{
    my ($n, $c, $cmt) = @_;
    my $tos <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	316219	316330	
==>= 0 && {{\@1}} <= 255 ) {\n    {{\@1}} = (INTVAL)((unsigned char)({{\@1}}));\n  }\n  else {\n    internal_except <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1330	1430	
==>$type->imcc_pmc;
    my $temp_pmc = $compiler->temp_pmc();

    $compiler->emit("  $temp_pmc = new $p <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5515	5616	
==>($base)>

Returns the C code following the run core function.

=cut

sub run_core_finish
{
    my ($se <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3851	3952	
==>($base)>

Returns the C code following the run core function.

=cut

sub run_core_finish
{
    my ($se <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1459	1550	
==>_directory($path)>

Returns the directory for C<$path> relative to the default temporary
dir <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	1154	1249	
==>d body (throws exception).
UNIMPLEMENTED:
    body = <<"PIR"
$P0 = new .Exception
$P0["_message" <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	5148	5281	
==>p *     interpreter;
    struct PackFile *          pf;
    INTVAL i;
    PMC *userargv;

    interpreter = Parrot_new(NULL);
    if ( <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	13449	13558	
==>{ $jit_func, $extern }, \t" .
            "/* op $i: $core_opfunc[$i] */\n";
}

print JITCPU @jit_funcs, "};\n <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	107	202	
==>1.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Group - Group of documentation items

=head1 S <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895641	896086	
==>"i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1011,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic",
                              "ic",
                              "sc"
                            ],
                  "BOD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	508563	508804	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ], <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509194	509435	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ], <==
3	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	413	538	
==>= buildarray();
    }

    my @arr1;
    foreach (1..20) {
	$arr1[$_] = buildarray();
    }

    my @arr2;
    foreach (1..20) <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	2038	2159	
==>D nr
    return 0;
}

sub type_map {
    my $t = $_[0];
    return $type_map{$t} if $type_map{$t} ;
    return $t;
}
sub p <==
3	/Users/nnunley/parrot/examples/benchmarks/stress.pl	375	479	
==>= buildarray();
}

my @arr1;
foreach (1..20) {
    $arr1[$_] = buildarray();
}

my @arr2;
foreach (1..20) <==
3	/Users/nnunley/parrot/config/init/hints/freebsd.pm	865	986	
==>namic_linking     => 1,
        parrot_is_shared        => 1,
        libparrot_shared        => 'libparrot$(SHARE_EXT).$( <==
3	/Users/nnunley/parrot/config/init/hints/linux.pm	1703	1824	
==>namic_linking     => 1,
        parrot_is_shared        => 1,
        libparrot_shared        => 'libparrot$(SHARE_EXT).$( <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	1245	1390	
==>mp;
        $pmcs{$file} = Parrot::Pmc2c->new($pmcs{$file}, $opt);
    }

    return bless { opt         => $opt,
                   pmcs        = <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2904	2999	
==>{'Thispara'} .= "\n");
  $out =~ tr{\xA0}{ } if Pod::Simple::ASCII;
  print {$self->{'output_fh' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2438	2533	
==>{'Thispara'} .= "\n");
  $out =~ tr{\xA0}{ } if Pod::Simple::ASCII;
  print {$self->{'output_fh' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	486744	487027	
==>=> 0,
                  "NAME" => "ceil",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	487495	487778	
==>=> 0,
                  "NAME" => "ceil",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1402	1534	
==>->{$s}, },
            test   => { name => $t, data => $tests->{$t},   },
        };
    }
}


push @EXPORT => keys %{$test_map};

us <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1429	1676	
==>I4 = $I4 - $I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $ <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	1429	1676	
==>I4 = $I4 - $I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	923260	923491	
==>NAME" => "new",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1039 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844848	845015	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 45 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845727	845894	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 45 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15925	16021	
==>un;

Or:

 my $parser = SomePodProcessor->new;
 $parser->set_source( \$document_source );
 $parse <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	16486	16638	
==>big_num);

=cut

sub cmp_ok {
    my($self, $got, $type, $expect, $name) = @_;

    my $test;
    {
        local $^W = 0;
        local($@,$!);   # don' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	935449	935583	
==>"s"
                            ],
                  "BODY" => "#line 440 \"src/ops/string.ops\"\n  string_downcase_inplace(interpreter <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	60098	60191	
==>cessing C<$@-E<gt>{pos}> returns the offset into the original string at
which the error was de <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151795	152046	
==>4,
                  "ARGS" => [
                              "p",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 112 \"src/ops/cmp.ops\"\n  if (0 == string_equa <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	3912	4025	
==>e{revision}  ||= 0;
  $smoke{timestamp} = time;
  $smoke{id}        = $id;
  my $filename      = pack_smoke(%smoke <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	29828	29924	
==>Returns the reason (ie. the value of $TODO) if running as
todo tests, false otherwise.

todo() is <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736394	736683	
==>"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 827,
                  "ARGS" => [
                              "n",
                              "i"
                            ],
                  "BODY" => "#line 144 \"src/ops/set. <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3755	3846	
==>ut_is;
}

=item C<pgeglob_like($target, $pattern, $expected, $description, @todo)>

Runs the <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	8372	8460	
==>I_I(n) get_nci_I(interpreter, &st, n)
#define GET_NCI_S(n) get_nci_S(interpreter, &st, n) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572530	572915	
==>,
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 654,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 242 \" <==
3	/Users/nnunley/parrot/config/auto/funcptr.pm	1125	1228	
==>thout JIT support, please re-run this script
With the '--jitcapable=0' argument.
END
            exit(-1 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3379	3555	
==>->{SYMBOLS}{$name} = $sym;
}


###############################################################################

=head2 BLOCK->get_symbol(NAME)

Attempt to get a symbol from this <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	45890	46006	
==>ust don't render it
       # at all.  But if you do want to implement hyphenation, I guess
       # that you'd better <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	58	152	
==>05-31T14:22:35.671857Z svm  $

package Digest::Perl::MD5;
use strict;
use integer;
use Exporter <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	32265	32367	
==>t, "'", '');

	# Remove a single-quoted Pascalish substring (i.e. one in which
	# doubling the quote ch <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6296	6383	
==>depth
goto POST_BRANCH_NOT_switch_${CURIC}

POST_BRANCH_switch_${CURIC}:
i = elements P_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4234	4321	
==>depth
goto POST_BRANCH_NOT_switch_${CURIC}

POST_BRANCH_switch_${CURIC}:
i = elements P_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367876	368107	
==>(interpreter), (size_t){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368668	368899	
==>(interpreter), (size_t){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	13518	13612	
==>nitialized
by default.

The accessor's argument, if any, is assigned to the element. The
access <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	5428	5552	
==>ave HTML pages.
        
        if ( $dist->relative_path_is_file($text)
            # A little bit of a hack to avoid confi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2737	2831	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub new {
  my $new = shift->SUPER::new(@_);
  #$n <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3093	3185	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sub new {
  my $new = shift->SUPER::new(@_);
  $n <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	801	911	
==>\*\(\)])/
      sprintf( (ord($1) < 256) ? "\\x%02X" : "\\x{%X}", ord($1))
    /eg;
  }
  return join ', ', @ou <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2135	2224	
==>turns undef if unknown
  }
}

#----------------------------------------------------------- <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2600	2689	
==>turns undef if unknown
  }
}

#----------------------------------------------------------- <==
3	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	2351	2587	
==>table}{$symb} ) {
            my $defn = $self->{table}{$symb};
            return $defn;
        }
        return undef;
    }

}

################################################################################

package Symb <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6620	6709	
==>epth
    goto POST_BRANCH_switch_${CURIC}_LOOP
POST_BRANCH_switch_${CURIC}_LOOP_EXIT:

POS <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4558	4647	
==>epth
    goto POST_BRANCH_switch_${CURIC}_LOOP
POST_BRANCH_switch_${CURIC}_LOOP_EXIT:

POS <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1877	1995	
==>t)> macro in an ops file into the
relevant C code.

=cut

sub goto_offset
{
    my ($self, $offset) = @_;

    return " <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2526	2644	
==>t)> macro in an ops file into the
relevant C code.

=cut

sub goto_offset
{
    my ($self, $offset) = @_;

    return " <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2245	2362	
==>t)> macro in an ops file into the
relevant C code.

=cut

sub goto_offset
{
    my ($self, $offset) = @_;
    return " <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5178	5302	
==>mportant on
        # some platforms
        if ($^O eq 'hpux' or $^O eq 'cygwin') {
            chmod 0755, "$dest/$_$LOAD_E <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5389	5513	
==>mportant on
        # some platforms
        if ($^O eq 'hpux' or $^O eq 'cygwin') {
            chmod 0755, "$dest/$_$LOAD_E <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1342	1441	
==>it just so happens that link-sections are about the only treelets
# that are exposed to the user.

1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552527	552624	
==>ject.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n\n  object = {{\@1} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556583	556680	
==>ject.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n\n  object = {{\@1} <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	7688	7869	
==>me'}\n";
            } else {
                $has_typeinfo = 1;
            }
        }
		
        # Unknown key.
        else {
            die "Unknown key $_ in rule $rule->{'nam <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	3594	3719	
==>files{$hfile}}, function_components( $func ) );
            ++$nfuncs;
        }
    } # for @cfiles
    my $nfiles = scalar k <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	1359	1457	
==>>

Prepend the object name before the symbol name.

=item C<--t>

Append the short BSD-style type t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	119452	119715	
==>1 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120307	120570	
==>1 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121162	121425	
==>1 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059496	1059694	
==>bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_name",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060400	1060598	
==>bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_name",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	112	238	
==>) returns Void {
    my @paths = @_paths.reverse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647318	647556	
==>TYPE" => "function",
                  "CODE" => 723,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 229 \"src/ops/pmc.op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499509	499742	
==>} = floatval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500272	500505	
==>} = floatval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	4590	4718	
==>y $pass;
    for my $regex ( @{ $cfg{run_bench} } ) {
        $pass++ and last if /$regex/;
    }
    return if ! $pass;
    my $ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38545	38656	
==>D_NO_HITEM ? ''
		     : '$item{q{' . $self->describe . '}} = $_tok;'). '
		push @item, $_tok;
		' . ($self->{"l <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	5016	5119	
==>@@@@@@@@@@@@@@@@@@

sub new {
  # takes no parameters
  my $class = ref($_[0]) || $_[0];
  #Carp::croak( <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	678	777	
==>stution values. q[] is used in
# some places as Win32 paths have \'s in, which qq[] treats as escape <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	636	735	
==>stution values. q[] is used in
# some places as Win32 paths have \'s in, which qq[] treats as escape <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	640	739	
==>stution values. q[] is used in
# some places as Win32 paths have \'s in, which qq[] treats as escape <==
3	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	1680	1806	
==>V) {
        my $src = $obj;
        $src =~ s/src\/pmc\/(.*)\.o/$1\.c/g;

	push @src, $src;
    }

    run_command("cd src/pmc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553981	554073	
==>ect;\n  interpreter->current_cont = {{\@3}};\n  interpreter->current_method = meth;\n  method <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555378	555470	
==>ect;\n  interpreter->current_cont = {{\@3}};\n  interpreter->current_method = meth;\n  method <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	15517	15664	
==>" => 15
		},
		GOTOS => {
			'expr' => 55,
			'charclass' => 12
		}
	},
	{#State 38
		ACTIONS => {
			"?" => 23,
			'CHAR' => 4,
			"<" => 22,
			"+ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	20500	20643	
==>h} = $path_to_parrot;
                $obj->{parrot}  = $parrot;
                $obj->$meth(@remaining);

                # restore prior level <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1862	1954	
==>::Construct::Expression::Value::Identifier')) {
    my $left_sym = $block->find_symbol($left- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1820	1912	
==>::Construct::Expression::Value::Identifier')) {
    my $left_sym = $block->find_symbol($left- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1742	1834	
==>::Construct::Expression::Value::Identifier')) {
    my $left_sym = $block->find_symbol($left- <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6342	6446	
==>pass through the array.
WHILE Exchange          ' Sort until no elements are exchanged.
   Exchange=FALSE <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15995	16099	
==>pass through the array.
WHILE Exchange          ' Sort until no elements are exchanged.
   Exchange=FALSE <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11401	11497	
==>pression::Value::Identifier->new($block, $token);
      my $op    = substr($self->forth->text, 0, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11948	12044	
==>pression::Value::Identifier->new($block, $token);
      my $op    = substr($self->forth->text, 0, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12491	12587	
==>pression::Value::Identifier->new($block, $token);
      my $op    = substr($self->forth->text, 0, <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	510	616	
==>r_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBUG and print "++ $_[1]\n";
  
  print $fh <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	509	615	
==>r_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBUG and print "++ $_[1]\n";
  
  print $fh <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	704	807	
==>r_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBUG and print "++ $_[1]\n";
  print $fh <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9483	9580	
==>ing to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get details of meth <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6997	7094	
==>ing to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get details of meth <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5553	5650	
==>ing to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get details of meth <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492776	493030	
==>} = intval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493537	493791	
==>} = intval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	38492	38588	
==>s specifying patterns
that are I<not> be be treated as nested tags within the tagged text
(even i <==
3	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	1405	1515	
==>de
	set S0, ""
	
	set S0, ""
	read S0, 256
	length I1, S0
	eq I1, 1, MAINLOOPR
	save S0
	bsr STRIPSPACE
	restor <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2422	2522	
==>stype"]
	P0= P1["$var"]	# Pull the original
	P2= P10[I25]
	P3= P2["$stype"]
	P3["$var"]= P0	# Hack in <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2649	2749	
==>stype"]
	P0= P1["$var"]	# Pull the original
	P2= P10[I25]
	P3= P2["$stype"]
	P3["$var"]= P0	# Hack in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017974	1018066	
==>t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_gmtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018899	1018991	
==>t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_gmtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744279	744388	
==>/set.ops\"\n  {{\@1}} = string_from_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745045	745154	
==>/set.ops\"\n  {{\@1}} = string_from_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	184	281	
==>PORTER @EXPORT_OK);

@EXPORT_OK = qw(md5 md5_hex md5_base64);

@ISA = 'Exporter';
$VERSION = '1.5' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94943	95035	
==>c/ops/bit.ops\"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95836	95928	
==>c/ops/bit.ops\"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96729	96821	
==>c/ops/bit.ops\"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+= <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7128	7230	
==>t}) eq 'ARRAY' ? join('|', @{$options{reject}})
		    : defined($options{reject})	       ? $options{rej <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24130	24232	
==>t}) eq 'ARRAY' ? join('|', @{$options{reject}})
		    : defined($options{reject})	       ? $options{rej <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	4835	4932	
==>d runs the C code, passing the test if a string comparison of
output with the unexpected result is <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	28905	29018	
==>ush @stack, [$tos->[0], $it, 'P']
}
sub FOR_ITER
{
    my ($n, $c, $cmt) = @_;
    my $targ = "pc_xxx";
    my $to <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	359	464	
==>nt;

use Carp;

use base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $id <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	359	464	
==>nt;

use Carp;

use base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $id <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	12837	12966	
==>k) = @_;
    return aop($op->{name}, [ @{ $op->{args} }, $lastback ]);
}

# scan(R) ->   scan: R or advance
#                    g <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	6391	6500	
==>$stmt (reverse @output3) {
	$stmt->{next} = $next;
	$next = $stmt;
    }

    # Eliminate gotos to the followi <==
3	/Users/nnunley/parrot/Configure.pl	5872	5972	
==>-ccflags=(flags)    Use the given compiler flags
   --ccwarn=(flags)     Use the given compiler warni <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	36185	36296	
==>r    how many failed (including missing or extras)

If you fail more than 254 tests, it will be reported as 254. <==
3	/Users/nnunley/parrot/lib/Test/More.pm	34256	34367	
==>r    how many failed (including missing or extras)

If you fail more than 254 tests, it will be reported as 254. <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	3051	3162	
==>r    how many failed (including missing or extras)

If you fail more than 254 tests, it will be reported as 254. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	311986	312125	
==>.ops\"\n    PDB_backtrace(interpreter);\n    {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125515	125653	
==>ic"
                            ],
                  "BODY" => "#line 257 \"src/ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	4517	4627	
==>IRS}};
}

=item C<labels()>

Returns the labels.

=cut

sub labels
{
    my $self = shift;

    return @{$self- <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	1771	1880	
==>set fixed sized types
    if ($results{shortsize} == 2) {
        $conf->data->set(int2_t => 'short');
    } e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351440	351649	
==>TYPE" => "inline",
                  "CODE" => 409,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 190 \"src/ops/io.ops\"\n  P <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2051	2142	
==>LMNOPQRSTUVWXYZ0123456789])/sprintf'\x%02X',ord($1)/eg;
  }
  return;
}

#@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	1979	2117	
==>[A-Za-z0-9]/ or $cur =~ /[#!&\$%]/) { # SIGIL
			append;
			if ($cur =~ /[#!&\$%]/) {
				fetch;
				last;
			}
			fetch;
		}
		emit("BARE" <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	38679	38798	
==>nt "     No need to remove quotes in ", pretty(@section_name), "\n";
          }

          $section_name = \@section_na <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	531923	532033	
==>> "#line 864 \"src/ops/math.ops\"\n  {{\@1}} = cosh((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	312587	312675	
==>t_info info;\n  Parrot_Context_info(interpreter, CONTEXT(interpreter->ctx), &info);\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	313319	313407	
==>t_info info;\n  Parrot_Context_info(interpreter, CONTEXT(interpreter->ctx), &info);\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	26908	27157	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "set_args", <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10568	10679	
==>save_1 ('P');
    $self->_morph ($pmc, $value);
    $self->_restore ($value);
    $value = $pmc;
  }

  $self->_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1022	1127	
==>>isa("Jako::Construct::Declaration::Sub")
    ) {
      if ($last_seen ne 'sub') {
        $compiler->emit <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	12458	12571	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT|PARROT_JUMP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25660	25773	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT|PARROT_JUMP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1027506	1027619	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT|PARROT_JUMP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015101	1015354	
==>mp, strlen(tmp), \"ascii\", 0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015925	1016178	
==>mp, strlen(tmp), \"ascii\", 0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	7404	7505	
==>n't use empty-string as a source for set_source");
  } elsif(ref(\( $_[0] )) eq 'GLOB') {
    $self->{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302161	302498	
==>{{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303037	303374	
==>{{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303913	304250	
==>{{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  " <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2355	2462	
==>variable %s.", $right->value) unless $right_sym;
    $right_type = $right_sym->type;
  }
  else {
    $right <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2313	2420	
==>variable %s.", $right->value) unless $right_sym;
    $right_type = $right_sym->type;
  }
  else {
    $right <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2235	2342	
==>variable %s.", $right->value) unless $right_sym;
    $right_type = $right_sym->type;
  }
  else {
    $right <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777843	778010	
==>",
                              "n"
                            ],
                  "BODY" => "#line 382 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed_in <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2970	3085	
==>$edit/;
		}		
		s/^/\t/gm;
		print CODE;
	}
	# Put back all of the globals we've used in this sub
	@saves=();
	forea <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	442	540	
==>er.pm file----------------------------------------
{
#
# Module Parse::Yapp::Driver
#
# This m <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	431	524	
==>er.pm file----------------------------------------
{
#
# Module Parse::Yapp::Driver
#
# This m <==
3	/Users/nnunley/parrot/config/auto/signal.pm	28	115	
==>he Perl Foundation.
# $Id: /parrot/config/auto/signal.pm 19593 2006-05-30T02:28:15.11097 <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	888	1170	
==>ons:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, I1
                              #
print "Estimated ops: $I5\n" <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	888	1170	
==>ons:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, I1
                              #
print "Estimated ops: $I5\n" <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	1076	1183	
==>->new_group('Bytecode', '',
            $self->new_item('', 'tools/build/pbc2c.pl'),
            $self->new_ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12944	13062	
==>ments($1) . ')'/xeg;

    # Rewrite OtherClass.SELF.other_method(args...)
    s/(\w+)             # OtherClass
      \. <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	4183	4293	
==>.

    delete($instance_for_path{$_[0]->path});
    
    undef $_[0];
}

=back

=head1 SEE ALSO

=over 4

=item <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15767	15859	
==>turn = $self->_generate (_get_arg($node,1));
  die "set-cdr!: Element not pair\n" unless $ret <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	842	964	
==>${lang_fn}", 
             "$self->{parrot} languages/${pir_fn}" );
}
 
 

sub skip_why {
    my $self = shift;
    my ( $o <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8415	8524	
==>PARSE
	}
	if ($type[CURR] eq "STMT"
		  or
	    $type[CURR] eq "COMP") { goto PARSE; }
	if ($type[CURR] eq 'CO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288376	288683	
==>: 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289232	289539	
==>: 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290088	290395	
==>: 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq", <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	7311	7427	
==>func_name ($args)";
    }

    my $src = $op->source($trans);
    $src    =~ s/\bop_lib\b/${bs}op_lib/;
    $src    = <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3941	4033	
==>ice, expect 12
function aftwo(y())
	print y(4)
end function
function arrfunc(x())
	u=aftwo(x( <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15214	15306	
==>ice, expect 12
function aftwo(y())
	print y(4)
end function
function arrfunc(x())
	u=aftwo(x( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	2934	3074	
==>P_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "check_events",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	4100	4206	
==>T};
    
    print {$self->{'output_fh'}} $self->{'Tagmap'}{$tagname};
    
    my $next = $self->get_token <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	11540	11639	
==>t unless defined $line_group and length $line_group;
    pos($line_group) = 0;
    while($line_group <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	3932	4025	
==>es matching
C</\$\{\w+\}/> for the given key's value in the configuration system's data,
and w <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	737	832	
==>a subclass of L<Pod::Simple::PullParserToken> and inherits all its methods,
and adds these metho <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1163	1258	
==>a subclass of L<Pod::Simple::PullParserToken> and inherits all its methods,
and adds these metho <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	643	738	
==>a subclass of L<Pod::Simple::PullParserToken> and inherits all its methods,
and adds these metho <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637400	637699	
==>NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 713 <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1739	1828	
==>"$PERL $PATHQUOTE" . q[/Users/nnunley/parrot/tools/build/pmc2c.pl] . $PATHQUOTE;

# Actual <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1830	1919	
==>"$PERL $PATHQUOTE" . q[/Users/nnunley/parrot/tools/build/pmc2c.pl] . $PATHQUOTE;

# Actual <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeDumb.pm	704	820	
==>');
}

sub make_transcoder {
  my($e) = $_[1];
  die "WHAT ENCODING!?!?" unless $e;
  my $x;
  return sub {;
    #for <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeSmart.pm	434	548	
==>');
}

sub make_transcoder {
  my($e) = $_[1];
  die "WHAT ENCODING!?!?" unless $e;
  my $x;
  return sub {
    for <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	7096	7188	
==>token_buffer'}}), " items in it.\n";
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645942	646219	
==>{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640724	640999	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641488	641763	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1040	1136	
==>defined $left and not UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess "Rig <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1068	1164	
==>defined $left and not UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess "Rig <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	740	836	
==>defined $left and not UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess "Rig <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	35309	35411	
==>P'];
}
sub DELETE_SLICE_plus_1 {
    return Del_Slice(@_, 1);
}
sub DELETE_SLICE_plus_2 {
    return De <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	13020	13120	
==>the element type is C<'%'>, the
accessor returns the hash element value.  If the element type is
C<'* <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	865132	865403	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pin",
                  "FLAGS" => ":base_me <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9567	9667	
==>ip('skip this test for now');

  flunk('this fails, but might work soon', :todo(1));

  diag('some mi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776578	776968	
==>core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 877,
                  "ARGS" => [
                              "p",
                              "ki",
                              "n <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	2003	2144	
==>^[-]?\d+\.(\d+([-+]?[eE]\d+)?)?/;
    $node->{type} = 'REAL'    if $node->{value} =~
                                 /^[-]?\.(\d+([-+]?[eE]\d <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	20752	20856	
==>mmar.y"
{ return op('group' => [ $_[3], $_[2] ]) }
	],
	[#Rule 23
		 'expr', 5,
sub
#line 135 "lib/Regex/ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2213	2310	
==>pression::Value::Identifier')) {
    my $right_sym = $block->find_symbol($right->value);
    $self <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2171	2268	
==>pression::Value::Identifier')) {
    my $right_sym = $block->find_symbol($right->value);
    $self <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2093	2190	
==>pression::Value::Identifier')) {
    my $right_sym = $block->find_symbol($right->value);
    $self <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	935281	935539	
==>"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1051,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 440 \"src/ops/string. <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	23507	23658	
==>marker' ]),
                        aop('goto', [ $loop ]),
              $rfail => aop('popindex', [ '<tmp>', $lastback ]),
              );

    retur <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1096658	1096782	
==>ops\"\n    PMC *ns = Parrot_NameSpace_name(interpreter, \n                                    VTABLE_namespace(interpreter, { <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	16822	16946	
==>l be part of temporary file
            my $test_no = $builder->current_test() + 1;

            # Name of the file with test <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	850	953	
==>l rights reserved.
# (see the pod text in Parse::Yapp module for use and distribution rights)
#

pac <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	826	925	
==>l rights reserved.
# (see the pod text in Parse::Yapp module for use and distribution rights)
#

pac <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480623	480726	
==>ODY" => "#line 446 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exceptio <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481626	481729	
==>ODY" => "#line 446 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exceptio <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482629	482732	
==>ODY" => "#line 446 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exceptio <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	8006	8137	
==>tack) . ")\n")
            }
        }
    }
}


sub check_mandatory_boilerplate {
    my ($file, $source) = @_;

    my @end_boiler <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327100	327205	
==>e->set_integer_native(interpreter, {{\@1}}, (INTVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327902	328007	
==>e->set_integer_native(interpreter, {{\@1}}, (INTVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	16927	17074	
==>pe, $expect);
        }
        else {
            $self->_cmp_diag($got, $type, $expect);
        }
    }
    return $ok;
}

sub _cmp_diag {
    my <==
3	/Users/nnunley/parrot/config/inter/encoding.pm	1689	1814	
==>t(
        encoding            => $encoding_list,
        TEMP_encoding_o     => $TEMP_encoding_o,
        TEMP_encoding_build <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	15852	15967	
==>dy\n}\n";
    # We are back to generated code immediately here
    $cout .= $self->line_directive(2 + $line + count_ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	1655	1751	
==>langugage test and passes the test if a string comparison
if a string comparison of the output wi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8224	8357	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "bra <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9339	9472	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "bra <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21272	21386	
==>re
  my $self = $_[0];
  my $title;
  my @to_unget;

  while(1) {
    push @to_unget, $self->get_token;
    unless( <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	5009	5110	
==>espond to for C<.HLL> usage. For example:

    pmcclass TclInt hll Tcl maps Integer

allows this PMC t <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	8181	8313	
==>uncs, $protos);
}

sub find_type
{
    my $type    = shift;

    my %typemap =
    (
        'STRING*'  => 'Parrot_STRING',
        ' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1068	1178	
==>) {
      if ($last_seen ne 'sub') {
        $compiler->emit("__INLINE_" . $inline . "()"); # $inline is alread <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18357	18454	
==>ing!"
case 2
	print "Wrong-o!"
case else
	print "Right!"
end select
a$="one"
select case a$
case " <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	70350	70454	
==>mmar =~ m/$SUBRULE(?!\s*:)/gco
	   )
	{
		return unless $1 eq $subrule && $min > 0;
		_warn(3,"Subrule se <==
3	/Users/nnunley/parrot/tools/dev/symlink.pl	971	1071	
==>tryfile);
} else {
    die "$0: I am very confused.\n";
}

my @toolsrcdir = File::Spec->splitdir($too <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	55224	55318	
==>ent.
The value of that element is one of the
above extractor types (subroutine reference, regul <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34280	34398	
==>}");
		$pir .= "### end pre_branch\n";

        # Add pre-translate code, if any.
        $pir .= sub_meta($pre_transla <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5330	5460	
==>unless $first == 0;
            push @ops, "lt <rx_tmp>, $last, $pass";
        } else {
            push @ops, "ge <rx_tmp>, $firs <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6347	6455	
==>through the array.
WHILE Exchange          ' Sort until no elements are exchanged.
   Exchange=FALSE
   ' Com <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16000	16108	
==>through the array.
WHILE Exchange          ' Sort until no elements are exchanged.
   Exchange=FALSE
   ' Com <==
3	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	621	725	
==>file = shift @ARGV;
  debug "Reading smoke \"$file\" to upload... ";

  open my $fh, "<", $file or die "C <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4806	4909	
==>rse {
    my($self)=shift;

	my($rules,$states,$lex,$error)
     = @$self{ 'RULES', 'STATES', 'LEX', <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4569	4668	
==>rse {
    my($self)=shift;

	my($rules,$states,$lex,$error)
     = @$self{ 'RULES', 'STATES', 'LEX', <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	1863	1959	
==>turn $instance_for_path{$path} = $self;
}

=back

=head2 Instance Methods

=over 4

=item C<creat <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822303	822396	
==>ack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_INT) {\n    internal_exception(ERR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823371	823464	
==>ack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_INT) {\n    internal_exception(ERR <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	712	809	
==>e.pl> checks
and the manifest checks use.

=head2 Options

=over 4

=item C<buildprefix>

The buil <==
3	/Users/nnunley/parrot/config/auto/byteorder.pm	302	395	
==>ict;
use vars qw($description @args);

use Parrot::Configure::Step qw(:auto);
use base qw(Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	446014	446245	
==>JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	446650	446881	
==>JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline", <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16588	16739	
==>);
            $line += count_newlines($ret);
            $cout .= $ret;
        }
    }

    # nci methods
    foreach my $method (@{ $self->{methods}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349356	349648	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesy <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	4567	4684	
==>-Wpadded may prove interesting, or even noisy.
            # -Wunreachable-code might be useful in a non debugging ver <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	4711	4827	
==>eed to use a default?
        $code .= "  if argc < ".($i+1)." goto default_$name \n"
            if $arg->{optional} <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	510	612	
==>arse::Yapp::Driver
#
# This module is part of the Parse::Yapp package available on your
# nearest CP <==
3	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1525	1626	
==>w(Lua::opcode);

package FindGlobalOp;
use base qw(Lua::opcode);

package FindLexOp;
use base qw <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	496	595	
==>arse::Yapp::Driver
#
# This module is part of the Parse::Yapp package available on your
# nearest CP <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	7857	8008	
==>e\s*$//m or $line =~ s/a_$name/temp/;
            }
        }
        
        # $R
        $line =~ s/\$R\b/\$P%1/g;

        $code .= emit($line, 'loo <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	6628	6728	
==>symbols;
    my @internal_symbols = sort grep { defined($defined_in{$_}) } @symbols;
    my @non_ansi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411014	411126	
==>io.ops\"\n    {{\@1}} = (INTVAL)PIO_send(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411907	412019	
==>io.ops\"\n    {{\@1}} = (INTVAL)PIO_send(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627337	627435	
==>s to be in the destination register before its init method\n   * copies the registers. */\n  {{\@1} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628481	628579	
==>s to be in the destination register before its init method\n   * copies the registers. */\n  {{\@1} <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	8240	8434	
==>mmary       => [{
        total       => $11,
        ok          => $12,
        failed      => $13,
        todo        => $14,
        skipped     => $15,
        unexpect    => $16,
      }], <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4006	4108	
==>sts($$outhash{$_})
		or	croak("Missing mandatory parameter '".lc($_)."'");
	}
}

sub _Error {
	pr <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3804	3900	
==>sts($$outhash{$_})
		or	croak("Missing mandatory parameter '".lc($_)."'");
	}
}

sub _Error {
	pr <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2013	2194	
==>1, N1, N2
$N2 = 1000000.0;              # set    N2, 1000000.0
$N1 = $N1 / $N2;              # div    N1, N1, N2
                              #
print "M op/s:        $N1\n"; # print <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	2013	2194	
==>1, N1, N2
$N2 = 1000000.0;              # set    N2, 1000000.0
$N1 = $N1 / $N2;              # div    N1, N1, N2
                              #
print "M op/s:        $N1\n"; # print <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	22880	23026	
==>[3] ] }
	],
	[#Rule 44
		 'classpiece', 1,
sub
#line 181 "lib/Regex/Grammar.y"
{ return $_[1]; }
	]
],
                                  @_);
    b <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2757	2859	
==>ut

sub restart_offset
{
    my ($self, $offset) = @_;

    return "interpreter->resume_offset = REL_PC <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4092	4194	
==>ut

sub restart_offset
{
    my ($self, $offset) = @_;

    return "interpreter->resume_offset = REL_PC <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	4600	4721	
==>232,
 'eacute'   , 233,
 'ecirc'    , 234,
 'euml'     , 235,
 'igrave'   , 236,
 'iacute'   , 237,
 'icirc'    , 238,
 'i <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	5468	5576	
==>src => $dest ]);
} continue {
    close ARGV if eof; # Reset line numbering for each input file
}

unless ($o <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	45670	45777	
==>nt: ", scalar(@nixed), "\n";
    
    DEBUG > 6 and print "New version of the above line is these tokens (", <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12856	12966	
==>have that all we need is the relative
    # path from the current directory to the file and return that
    # a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444056	444387	
==>LAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 508,
                  "A <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	3012	3163	
==>iles ) {
        next if $ofile =~ m/^\Qsrc$PConfig{slash}ops\E/;

        my $cfile = $ofile;
        $cfile =~ s/\Q$PConfig{o}\E$/.c/;

        my $pm <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7620	7710	
==>'set', [$copy.'[1]',$temp]);
  $self->_add_inst('', 'set', [$copy,$temp]);
  $self->_add_in <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	8192	8311	
==>ift(@chunks) if @{ $chunks[0] } == 0;

        # If there were things with different types, create a new seq
        # t <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	35313	35428	
==>P_LOOP_EXIT_switch:
PIRCODE
        } else {
            $pir .= <<'PIRCODE';
sp_dest = next_pc + I_arg_0
ss = clone <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	51287	51397	
==>/gco)
			{
				_parse("an autotree marker", $aftererror,$line);
				if ($rule)
				{
					_error("<autotree> di <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	1541	1656	
==>ol
    F - file name symbol
    R - read-only data symbol
    T - code/text symbol
    U - undefined symbol

Upperca <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	6172	6277	
==>= 1;
}

sub rewrite_try {
    my ($self, $op, $R, $lastback) = @_;
    return $self->rewrite($R, $lastback <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	13209	13307	
==>m"><tmpl_var name=percentage>&nbsp;%&nbsp;ok</td>
	    <tmpl_loop name=summary>
	      <td class="l <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2159	2286	
==>nk_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put variou <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2451	2578	
==>nk_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put variou <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2246	2373	
==>nk_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put variou <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	27965	28081	
==>= pop @stack;
	print <<EOC;
	$ar\[$i\] = $p->[1]
EOC
    }
    push @stack, [$n, $ar, 'P'];
}

sub BUILD_LIST
{
    B <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32880	32985	
==>$expected_value == $para->[1]{'number'}) {
            DEBUG > 1 and print " Numeric item has the expected <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6606	6703	
==>d_inst('', 'set', [$return,$pair]);
  $self->_restore($item, $pair);

  return $return;
}

sub _qq <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	11087	11208	
==>= vtable_num($1);
            #print $op->full_name .": $jit_func $extern\n";
        }
        # *) $X->vtable->{vtable}( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8965	9058	
==>, \"branch_cs: fixup for '%s' not found\", label);\n    else {\n\tinterpreter->resume_offset = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10081	10174	
==>, \"branch_cs: fixup for '%s' not found\", label);\n    else {\n\tinterpreter->resume_offset = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093634	1093740	
==>xperimental.ops\"\n  VTABLE_morph(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "experi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094437	1094543	
==>xperimental.ops\"\n  VTABLE_morph(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "experi <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	10690	10789	
==>p = $self->output_label_use($L_backup);

    my @ops = split(/\n/, <<"END");
.sub _$name
  .param in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726034	726293	
==>ing_copy(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726796	727055	
==>ing_copy(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742014	742273	
==>ing_copy(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/lib/Test/More.pm	27909	28015	
==>_deeply()> can do that better and with diagnostics.  

    is_deeply( \@this, \@that );

They may be deprec <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104079	1104167	
==>terpreter, NULL, NO_CLASS,\n\t\t\t\t\"Class '%Ss' not found\", class);\n\t{{\@1}} = pmc_n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105294	1105382	
==>terpreter, NULL, NO_CLASS,\n\t\t\t\t\"Class '%Ss' not found\", class);\n\t{{\@1}} = pmc_n <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2893	3010	
==>ECK}}='ERROR';
    undef;
}

sub YYSemval {
	my($self)=shift;
	my($index)= $_[0] - ${$$self{DOTPOS}} - 1;

		$ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2755	2864	
==>ECK}}='ERROR';
    undef;
}

sub YYSemval {
	my($self)=shift;
	my($index)= $_[0] - ${$$self{DOTPOS}} - 1;

		$ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	18040	18138	
==>hangesskip()
			? 'local $skip = defined($skip) ? $skip : $Parse::RecDescent::skip;'
			: '') .($:: <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1584	1674	
==>> )
>>

=head1 SEE ALSO

L<Pod::Simple::PullParserToken>, L<Pod::Simple>, L<Pod::Simple::Su <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2751	2841	
==>> )
>>

=head1 SEE ALSO

L<Pod::Simple::PullParserToken>, L<Pod::Simple>, L<Pod::Simple::Su <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1871	1961	
==>> )
>>

=head1 SEE ALSO

L<Pod::Simple::PullParserToken>, L<Pod::Simple>, L<Pod::Simple::Su <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	22144	22268	
==>ion = shift;
    my $filename = shift;

    my $action =
        ($direction eq "<") ? "Reading" :
        ($direction eq ">> <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9112	9215	
==>require Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('Some::Module');
  use_ok('Some::Other:: <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	128	229	
==>perators
#
# This package defines operators that can be used to construct a
# syntax tree for a regula <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	14893	14989	
==>ill need an easy way
to test them. So we will implement the Test::More function is_deeply.
The pl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81929	82018	
==>/ops/core.ops\"\n  internal_exception(1, \"don't use compile - just invoke the compiler\") <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82823	82912	
==>/ops/core.ops\"\n  internal_exception(1, \"don't use compile - just invoke the compiler\") <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1205	1298	
==>need to do this.

=item $token->tag(...)

A shortcut for $token->tagname(...)

=item $token->i <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1635	1728	
==>need
to do this.

=item $token->tag(...)

A shortcut for $token->tagname(...)

=item $token->i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062499	1062594	
==>n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063368	1063463	
==>n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064238	1064333	
==>n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpreter <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8504	8609	
==>n is a register then it is up to the SRM to do the store.
	# Otherwise, there's nothing to do here.
	if ($ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6324	6429	
==>n is a register then it is up to the SRM to do the store.
	# Otherwise, there's nothing to do here.
	if ($ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5239	5344	
==>n is a register then it is up to the SRM to do the store.
	# Otherwise, there's nothing to do here.
	if ($ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101148	101408	
==>});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103354	103614	
==>});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLA <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	2278	2409	
==>e
##                          stack for the file scope.
##
## NOTE: Do NOT access the block stack directly. Access it via routines i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1092893	1093168	
==>);\n    {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093697	1093970	
==>);\n  {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094500	1094773	
==>);\n  {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1096	1202	
==>lass>.


=cut

sub directory_with_path
{
    my $self = shift;
    
    return $self->directory_class->new( <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6528	6623	
==>PC} + j
    prop_type_state[${ITEMP0}] = ${STYPES}
    prop_stack_depth[${ITEMP0}] = stack_depth <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4466	4561	
==>PC} + j
    prop_type_state[${ITEMP0}] = ${STYPES}
    prop_stack_depth[${ITEMP0}] = stack_depth <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	686	785	
==>values. q[] is used in
# some places as Win32 paths have \'s in, which qq[] treats as escape sequenc <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	644	743	
==>values. q[] is used in
# some places as Win32 paths have \'s in, which qq[] treats as escape sequenc <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	648	747	
==>values. q[] is used in
# some places as Win32 paths have \'s in, which qq[] treats as escape sequenc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658939	659191	
==>ODE" => 736,
                  "ARGS" => [
                              "i",
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 329 \"src/ops/pmc.ops\"\n  {{\@1}} = PM <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4602	4704	
==>join('',@drv);
}

#Note that for loading debugging version of the driver,
#this file will be parsed <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4371	4469	
==>join('',@drv);
}

#Note that for loading debugging version of the driver,
#this file will be parsed <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573156	573428	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":objec <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574066	574338	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":objec <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574869	575141	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":objec <==
3	/Users/nnunley/parrot/config/auto/jit.pm	2139	2253	
==>uarch/core.jit" ? 'yes' : 'no', "\n")
        if $verbose;

    # XXX disable all but i386, ppc
    my %jit_is_work <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215066	215179	
==>_integer(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216007	216120	
==>_integer(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	42437	42546	
==>ing;

  for(my $i = 2; $i < @$p; $i++) { # work backwards over the lines
    DEBUG and print "_verbatim_format <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3833	3937	
==>alue) eq $$checklist{$prm}
		or	croak("Invalid value for parameter '$prm'");
        $prm=unpack('@2A*' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3637	3739	
==>alue) eq $$checklist{$prm}
		or	croak("Invalid value for parameter '$prm'");
        $prm=unpack('@2A*' <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	28316	28442	
==>@_;
    my $throw;
    if ($n == 0) {
	$throw = 'rethrow P5';
    }
    elsif ($n == 1) {
	my $x = (pop @stack)->[1];
	$throw = <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	9501	9615	
==>s under 0x80 that aren't legal in an XML Name.
        or $new_code =~ m/^[-\.0-9]/s
        or $new_code =~ m/:[-\ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10765	10879	
==>s under 0x80 that aren't legal in an XML Name.
        or $new_code =~ m/^[-\.0-9]/s
        or $new_code =~ m/:[-\ <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	14473	14605	
==>strtoull    stdlib.h
strxfrm     string.h
system      stdlib.h
tan         math.h
tanf        math.h
tanh        math.h
tanhf       m <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	12783	12901	
==>thing else
        my $test = defined $got || defined $dont_expect;

        $self->ok($test, $name);
        $self->_c <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	13227	13345	
==>thing else
        my $test = defined $got || defined $dont_expect;

        $self->ok($test, $name);
        $self->_c <==
3	/Users/nnunley/parrot/config/init/hints/netbsd.pm	195	311	
==>flags !~ /-pthread/) {
        $ccflags .= ' -pthread';
    }
    $conf->data->set(ccflags => $ccflags);

    my $lib <==
3	/Users/nnunley/parrot/config/init/hints/openbsd.pm	287	403	
==>flags !~ /-pthread/) {
        $ccflags .= ' -pthread';
    }
    $conf->data->set(ccflags => $ccflags);

    my $lib <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	432	532	
==>he scalarref we're reading from
  'source_arrayref',   # the arrayref we're reading from
);

#@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4418	4528	
==>gers can be set on a
given key.  When the key is set via C<set> or C<add> then all callbacks that
are defined w <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28231	28321	
==>arse::RecDescent::_trace(q{<<Didn\'t match terminal>>},
						  Parse::RecDescent::_tracefi <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32506	32596	
==>arse::RecDescent::_trace(q{<<Didn\'t match terminal>>},
						  Parse::RecDescent::_tracefi <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	17302	17408	
==>nplace('+', $cmt);
}
sub INPLACE_SUBTRACT
{
    my ($n, $c, $cmt) = @_;
    inplace('-', $cmt);
}
sub JUMP_ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3139	3237	
==>te any lib-GROUP.c files

    generate_dump($_) foreach (@pmcs);
    generate_c($_) foreach (@pmcs) <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3243	3341	
==>te any lib-GROUP.c files

    generate_dump($_) foreach (@pmcs);
    generate_c($_) foreach (@pmcs) <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	2823	2930	
==>oddir  = "lib/Parrot/OpLib";
my $module  = "$moddir/core.pm";

my $file = shift @ARGV;
die "$0: Could not fi <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	12984	13081	
==>s
assigned to the hash element.  If the element type is C<'%'>, the
accessor returns the hash elem <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22840	22937	
==>trace(q{<<Didn\'t match directive>>},
						Parse::RecDescent::_tracefirst($text))
							if defin <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34217	34381	
==>\n";
          
          if($item_type eq 'bullet') {
            # as expected!

            if( $para->[1]{'~_freaky_para_hack'} ) {
              DEBUG and print <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53306	53403	
==>reter,   PARROT_GC_DEBUG_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_GC_DEBU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54062	54159	
==>reter,   PARROT_GC_DEBUG_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_GC_DEBU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614938	615049	
==>\@2}}, {{\@3}});\n    if (offset < 0) {\n        real_exception(interpreter, next, NO_CLASS,\n            \"Clas <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616089	616200	
==>\@2}}, {{\@3}});\n    if (offset < 0) {\n        real_exception(interpreter, next, NO_CLASS,\n            \"Clas <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114173	114455	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 142,
                  "ARGS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596157	596246	
==>> "#line 337 \"src/ops/object.ops\"\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597050	597139	
==>> "#line 337 \"src/ops/object.ops\"\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	4327	4478	
==>er'),
        ),
        $self->new_group(
            'Data Types',
            '',
            $self->c_pair_item('', 'datatypes'),
            $self- <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	4541	4645	
==>t="#stay" String="'" />
      </context>

END

print <<END;
      <context name="string_interp" attribute <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2748	2877	
==>se
    opcode_t *cur_opcode = cur_op;
    char * _reg_base;
#endif

    static void *const l_ops_addr[] = {
END_C
}

=back

=head1 <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	12634	12753	
==>ont_expect, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $dont_expect ) {
        # un <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	13078	13197	
==>ont_expect, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $dont_expect ) {
        # un <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931338	931621	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TY <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932108	932391	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TY <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	4645	4741	
==>e_on {
	my($result, $type, @code)=EXPRESSION;  # The switch...
	feedme();
	my $branch=$syms[CURR] <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	8482	8646	
==>e');          # assign to hash element

                                    # class type accessor:
    $element_value = $obj->c;           # object reference
    $ob <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9809	9933	
==>antarray) {
      @_ = splice @_; # break aliasing
    } else {
      my $x = shift;
      $x =~ s/([^\n\t !\#\$\%\(\)\*\+,\. <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	1951	2054	
==>file =~ s/.*:://;
		$modulefile .= ".pm";

		open OUT, ">$modulefile"
			or croak("Can't write to new mo <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62946	63081	
==>::RecDescent::Repetition($name,$1,0,$MAXREP,
										   $lookahead,$line,
										   $self,
										   $matchrule,
										   $a <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27070	27161	
==>glishname;

	$f="_USERFUNC_$funcname";
	$f=changename($f);
	$f=~s/\$/_string/g; $f=~tr/a-z/A <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27343	27434	
==>glishname;

	$f="_USERFUNC_$funcname";
	$f=changename($f);
	$f=~s/\$/_string/g; $f=~tr/a-z/A <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	89	213	
==>as generated using Parse::Yapp version 1.05.
#
#        Don't edit this file, use source file instead.
#
#             AN <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	87	207	
==>as generated using Parse::Yapp version 1.05.
#
#        Don't edit this file, use source file instead.
#
#             AN <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	10	103	
==>VARIOUSLY DELIMITED TEXT SEQUENCES FROM STRINGS.
# FOR FULL DOCUMENTATION SEE Balanced.pod

us <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837618	837927	
==>:base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 949,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	2063	2182	
==>'headers'}})
        {
            push @contents,
                $dist->relative_path($dist->c_header_file_with_name($ <==
3	/Users/nnunley/parrot/config/gen/config_h.pm	222	306	
==>nclude/parrot/config.h> with platform-specific configuration
values, F<include/parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661990	662244	
==>e->exists_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662906	663160	
==>e->exists_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/config/init/hints.pm	615	726	
==>ons->get('verbose');

    my $hints_used = 0;

    my $hints = "init::hints::" . lc($^O);

    print "[ $hints " <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	2242	2349	
==>ndex, $count) = @_;

  $index = $self->pos unless defined $index;

  $count = 1 unless defined $count;

  $s <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11023	11103	
==>=~ s/([^\._abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/sprin <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4372	4452	
==>=~ s/([^\._abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/sprin <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	2191	2283	
==>blic, prefix it with <Parrot_>,
or something else specific enough, preferably specific to Par <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	1751	1870	
==>onvert_sv_literal($atom, $ctx);
    } else {
        $R = op('external' => [ 'string', [ $atom, $ctx ] ]);
    }

    if <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2987	3096	
==>INT "4 back in subroutine one"
   RETURN Label1
Sub2:
   PRINT "3 in subroutine two"
   RETURN Label2   'Canno <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16954	17063	
==>INT "4 back in subroutine one"
   RETURN Label1
Sub2:
   PRINT "3 in subroutine two"
   RETURN Label2   'Canno <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819748	820000	
==>ype(interpreter, entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820708	820960	
==>ype(interpreter, entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	34659	34810	
==>op_odd_p,
  'even?'            => \&_op_even_p,
  'max'              => \&_op_max,
  'min'              => \&_op_min,
  '+'                => \&_op_plus <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647552	647780	
==>mc.ops\"\n    {{\@1}} = pmc_type(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648313	648541	
==>mc.ops\"\n    {{\@1}} = pmc_type(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	50378	50473	
==>lsif ($grammar =~ m/$VARIABLEMK/gco)
			{
				_parse("an perl variable marker", $aftererror,$lin <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19426	19525	
==>data 56, -78, 12.3, "Foo", lol, +#^
20 data 10,20,30,40,50

' basic I/O  1..5
open "_testfile" for o <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	36307	36441	
==>,
        'result' => \@returns,
    );
    return \@opcodes;
}

sub BuildParam {
    my ( $parser, $idf ) = @_;
    my @opcode <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1748	1846	
==>ARROT = '/Users/nnunley/parrot/libparrot.a';
    }
}

# PMC2C Config
our $PMC2C = "$PERL $PATHQUOTE <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	6327	6421	
==>Identifiers:
    #

    if ($text =~ m{^([a-zA-Z][a-zA-Z0-9_]*(::[a-zA-Z][a-zA-Z0-9_]*)*)(.*)$} <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	5107	5213	
==>^v$//
      and warn "Removed deprecated 'v' argument signature on line $. of $ARGV";

    die "Invalid ret <==
3	/Users/nnunley/parrot/config/init/hints/openbsd.pm	84	178	
==>pm 19593 2006-05-30T02:28:15.110975Z coke  $

package init::hints::openbsd;

use strict;
use Co <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2291	2383	
==>em C<relative_path($directory)>

=item C<relative_path($file)>

=item C<relative_path($path)> <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2372	2506	
==>($library);
        my $h = "$library.h";
        my $c = "$library.c";
        _write_a_file($self, $h, $c);
    } else {
        whil <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	14403	14502	
==>.  Only characters 32 to 126 are
defined.  This is meant for use by C<e2char($x)> when it senses
tha <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13190	13287	
==>as second
end type
dim x as third
dim y as third
dim k as second
x.fwd.link.foo=34
y.fwd=x.fwd
x.f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783849	784292	
==>_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 885,
                  "ARGS" => [
                              "p",
                              "ki",
                              "p"
                            ],
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156211	156570	
==>se_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 189,
                  "ARGS" => [
                              "s",
                              "s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082230	1082518	
==>,
                  "TYPE" => "function",
                  "CODE" => 1201,
                  "ARGS" => [
                              "p",
                              "i",
                              "kc"
                            ],
                  "BODY" => "#line 145 \"src/op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422801	423124	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "listen",
                  "FLAGS" => ":b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423697	424020	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "listen",
                  "FLAGS" => ":b <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	12158	12314	
==>=> aop('increment', [ -1, $lastback ]),
                         aop('goto', [ $lastback ]),
                $next =>
               );

    return ($back, @ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	46687	46840	
==>. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
#========= <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	46733	46863	
==>. . . . . . . . . .
# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
#================================ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	46781	46886	
==>. . . . . . . . . . . . . . . . . . . . . . . . .
#======================================================= <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	1510	1634	
==>f -e $test;

        open my $ffh, '<', $file;
        %tests = extract_tests( do{undef local $/;<$ffh>} );
        close $ff <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	1276	1376	
==>/^[[:lower:]]$/;  # CCLASS_LOWERCASE
    $ret |= 0x0004 if $chr =~ /^[[:alpha:]]$/;  # CCLASS_ALPHABE <==
3	/Users/nnunley/parrot/lib/File/Which.pm	4026	4120	
==>have a notion of
directly executable files, but uses special extensions such as C<.exe> and
C<. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	66533	66794	
==>R);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sweep",
                  "FLAG <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1677	1785	
==>.
    $PATHQUOTE = '"';

    unless ($CC =~ /gcc/i) {
        $LIBPARROT = '/Users/nnunley/parrot/libparrot.a <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1681	1789	
==>.
    $PATHQUOTE = '"';

    unless ($CC =~ /gcc/i) {
        $LIBPARROT = '/Users/nnunley/parrot/libparrot.a <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	37026	37120	
==>wern E<lt>schwern@pobox.comE<gt>.

This program is free software; you can redistribute it and/o <==
3	/Users/nnunley/parrot/lib/Test/More.pm	37435	37529	
==>wern E<lt>schwern@pobox.comE<gt>.

This program is free software; you can redistribute it and/o <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	6395	6489	
==>wern E<lt>schwern@pobox.comE<gt>.

This program is free software; you can redistribute it and/o <==
3	/Users/nnunley/parrot/config/auto/jit.pm	5680	5841	
==>t',
            jitcpuarch  => $cpuarch,
            jitcpu      => $cpuarch,
            jitosname   => $osname,
            jitcapable  => 0,
            execca <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2286	2403	
==>map{$func};
    
      {
        no strict 'refs';

        $pass = $self->{builder}->$builder_func( Parrot::Test::slu <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	567	657	
==>sed in the various directory creation methods. This
default implementation returns C<Parrot <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2903	3005	
==>b file { return shift->{FILE}; }
sub line { return shift->{LINE}; }

sub is_global
{
  my $self = shift <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	21552	21660	
==>= defined($_[0]) ? \$_[0] : \$_;
	my $posbug = pos;
	my ($lastpos, $firstpos);
	my @fields = ();

	#for ($$te <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663718	663939	
==>ete_keyed(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664490	664711	
==>ete_keyed(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	3450	3574	
==>b is_unless        { return shift->is('unless');        }
sub is_until         { return shift->is('until');         }
sub is_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062493	1062589	
==>ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063362	1063458	
==>ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064232	1064328	
==>ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interp <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	793	929	
==>->YYData->{_G},
        );
        push @opcodes, new FindGlobalOp( $parser,
            'prolog' => 1,
            'result' => $pars <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6732	6837	
==>CURIC}:
PIR
	return $pir;
}

# Pre and post load operation hooks.
sub pre_load($) {
	my $self = shift;
	my <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4670	4775	
==>CURIC}:
PIR
	return $pir;
}

# Pre and post load operation hooks.
sub pre_load($) {
	my $self = shift;
	my <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710828	711020	
==>@1}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711662	711854	
==>@1}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	46647	46768	
==>lled the terminal newline on #$i: {$p->[$i]}, after {$p->[$i-1]}\n";
      } else {
        DEBUG > 5 and print
         " <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	548	658	
==>SCIIworld
    $_[1] =~ tr/\xAD//d;
    $_[1] =~ tr/\xA0/ /;
  }
  print {$_[0]{'output_fh'}} $_[1];
  return;
} <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6073	6165	
==>there already.
	$pir .= <<'PIR';
if 0x${CURIC} == 0x45 goto POST_BRANCH_switch_${CURIC}
${ITE <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4011	4103	
==>there already.
	$pir .= <<'PIR';
if 0x${CURIC} == 0x45 goto POST_BRANCH_switch_${CURIC}
${ITE <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1768	1882	
==>st_sym;
  my $dest_type = $dest_sym->type;

  my $left_type;
  if (UNIVERSAL::isa($left, 'Jako::Construct::Expressi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1726	1840	
==>st_sym;
  my $dest_type = $dest_sym->type;

  my $left_type;
  if (UNIVERSAL::isa($left, 'Jako::Construct::Expressi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1648	1762	
==>st_sym;
  my $dest_type = $dest_sym->type;

  my $left_type;
  if (UNIVERSAL::isa($left, 'Jako::Construct::Expressi <==
3	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	1279	1379	
==>OOPR:
	print "\n\nReady\n"
	bsr CLEAR  # This should keep the runtime stack clean

MAINLOOPNR:
	set I <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3756	3872	
==>and_libs(@pmcs);

    # Convert X.c -> X.o for all X.c
    compile($_) foreach (@pmcs);

    # lib-GROUP.c
    for my <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3860	3976	
==>and_libs(@pmcs);

    # Convert X.c -> X.o for all X.c
    compile($_) foreach (@pmcs);

    # lib-GROUP.c
    for my <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1156	1248	
==>eply
sub is_deeply(Any $got, Any $expected, Str $desc?, :$todo, :$depends) returns Bool is ex <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2413	2508	
==>ou plan on running in
case something goes horribly wrong.

If all your tests passed, Test::Simpl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193587	193850	
==>eter, {{\@1}}), {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194566	194829	
==>eter, {{\@1}}), {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/config/inter/lex.pm	425	525	
==>Configure::Step qw( :inter capture_output check_progs );

$util        = 'lex';
$description = "Deter <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14606	14712	
==>ring title <$title>\n" }
    else { print "Returning title <>\n" }
  }
  
  return '' unless defined $title <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	23171	23277	
==>ring title <$title>\n" }
    else { print "Returning title <>\n" }
  }
  
  return '' unless defined $title <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	45426	45523	
==>ring (and any specified
prefix) removed.

Examples:

	# Remove the first quotelike literal that ap <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3151	3243	
==>n $self->do_middle if $self->bare_output;
  return
   $self->do_beginning && $self->do_middle <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4520	4612	
==>n $self->do_middle if $self->bare_output;
  return
   $self->do_beginning && $self->do_middle <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554305	554591	
==>thod_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555702	555988	
==>thod_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556939	557225	
==>thod_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520374	520608	
==>" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 739 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\ <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	545	650	
==>f ops performed,

=item * the elapsed time, and 

=item * the number of M op/s.

=back

=cut

sub time_hir <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	548	652	
==>f ops performed,

=item * the elapsed time, and

=item * the number of M op/s.

=back

=cut

sub time_hir <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	833	940	
==>x::TreeOptimize->new();
        $tree = $opt1->optimize_tree($tree, $ctx);
    }

    my $rewrite = Regex::R <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645785	645869	
==>& {{\@2}} < interpreter->n_vtable_max)\n\t\t{{\@1}} = interpreter->vtables[{{\@2}}]-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646682	646766	
==>& {{\@2}} < interpreter->n_vtable_max)\n\t\t{{\@1}} = interpreter->vtables[{{\@2}}]-> <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6480	6595	
==>od = modtime($target)
      or return 1;
    for my $source (@sources) {
        return 1 if modtime($source) > $tar <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4900	5015	
==>od = modtime($target)
      or return 1;
    for my $source (@sources) {
        return 1 if modtime($source) > $tar <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6691	6806	
==>od = modtime($target)
      or return 1;
    for my $source (@sources) {
        return 1 if modtime($source) > $tar <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	2374	2499	
==>=> "cur_opcode[%ld]"
    );
}

sub readjit {
    my $file = shift;

    my %ops;
    my $template;

    open IN, '<', $file or <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1665	1777	
==>esult}->{symbol} = $op->{op} $op->{arg1}->{symbol}\n";
    }

    sub visitBinaryOp {
        my $self = shif <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	9	100	
==>w
# Copyright (C) 2001-2004, The Perl Foundation.
# $Id: /parrot/lib/Parrot/OpTrans/CPredere <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	5766	5885	
==>IONED_LINE(var):..." are skipped if
            # the "var" condition is false.
            # Lines with "#INVERSE_CONDI <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34100	34196	
==>ibe.'}' ) . ')->($text);
				: 'q{'.$self->describe.'}' ) . ';
		$Parse::RecDescent::lastunexpect <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	2010	2104	
==>ew_item('', 'tools/build/dynoplibs.pl'),
            $self->new_item('', 'tools/build/dynpmc.pl <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9797	9917	
==>$$token=$$value=undef;
		};

        $$errstatus=3;

		while(	  @$stack
			  and (		not exists($$states[$$stack[-1] <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9357	9471	
==>$$token=$$value=undef;
		};

        $$errstatus=3;

		while(	  @$stack
			  and (		not exists($$states[$$stack[-1] <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3177	3283	
==>ush(@saves, $var);
		}
	}
	if (@saves) {
		print CODE qq{\t\tfind_global _GLOBALS, "COMMON"\n};
		foreach(@ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15510	15604	
==>^P/;
  my $value = $self->_generate (_get_arg($node,2));
  $self->_add_inst ('', 'set', [$retur <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15868	15962	
==>^P/;
  my $value = $self->_generate (_get_arg($node,2));
  $self->_add_inst ('', 'set', [$retur <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	190	283	
==>o/lib/Jako/Symbol.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnin <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	55715	55835	
==>ENPATMK)/gco
				and do { ($code) = extract_codeblock($grammar,'{',undef,'<');
					 $code;
				       } )
			{
				_pars <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	2929	3052	
==>{ return shift->is('literal');       }
sub is_module        { return shift->is('module');        }
sub is_next          { re <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3576	3677	
==>_ERROR("Sub declaration has no fnlib property, and parent block is not a module!")
        unless $sel <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6240	6341	
==>_ERROR("Sub declaration has no fnlib property, and parent block is not a module!")
        unless $sel <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	2085	2186	
==>ren}} - 1;

  confess "$name: Wrong number of arguments (expected $expected, got $args).\n"
    if ($a <==
3	/Users/nnunley/parrot/lib/Test/More.pm	19324	19431	
==>nection) or a module isn't available.  In these cases it's
necessary to skip tests, or declare that they are <==
3	/Users/nnunley/parrot/config/init/defaults.pm	2592	2726	
==>ms, but apparently sometimes
        # it's ld.
        ld      => $Config{ld},
        ldflags => $Config{ldflags},

        # Some op <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	16307	16416	
==>->{meth};
        $class->{super}{$meth} = 'default';
    }
}

=head2 dump_is_newer($file);

Return whether th <==
3	/Users/nnunley/parrot/tools/build/vtable_extend.pl	449	540	
==>right (C) 2005, The Perl Foundation.
*/
#if !defined(PARROT_EXTEND_VTABLE_H_GUARD)
#define P <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6606	6733	
==>t STDERR "Shift and go to state $act.\n";

					$$errstatus
				and	do {
					--$$errstatus;

#DBG>					$debug & 0x10
#DB <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6299	6419	
==>t STDERR "Shift and go to state $act.\n";

					$$errstatus
				and	do {
					--$$errstatus;

#DBG>					$debug & 0x10
#DB <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	7908	8020	
==>elsif (m/^#line\s+(\d+)(\s+"(.*?)")?\s*$/) {
      $line = $1 - 1; # Will be incremented next iteration
      $fi <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	3454	3578	
==>$R0, @Rrest) = @{ $R->{args} };
        my @shrunken = ();
        while (@children) {
            last unless $children[0]-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227412	227506	
==>ble->get_string(interpreter, {{\@1}}), {{\@2}}) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228392	228486	
==>ble->get_string(interpreter, {{\@1}}), {{\@2}}) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879812	880174	
==>ase_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 997,
                  "ARGS" => [
                              "s" <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19697	19839	
==>$matchcount == 0 goto lastback
#                 $matchcount--
#                 goto R.back
#           back: if $matchcount >= max goto rfail <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19399	19535	
==>$matchcount == 0 goto lastback
#               $matchcount--
#               goto R.back
#         back: if $matchcount >= max goto rfail <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	24480	24585	
==>return ($back, @ops);
}

sub rewrite_optional {
    my ($self, $op, $R, $greedy, $lastback) = @_;
    retu <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12123	12379	
==>$parser,
                        'arg1' => $defn,
                        'arg2' => undef,
                    );
                    return [ $defn, [], $assign ];
                }
            }
            else {

                # global variab <==
3	/Users/nnunley/parrot/config/auto/jit.pm	695	811	
==>('miniparrot')) {
        $self->set_result('skipped');
        return $self;
    }

    my $verbose = $conf->options <==
3	/Users/nnunley/parrot/config/gen/cpu.pm	607	723	
==>('miniparrot')) {
        $self->set_result('skipped');
        return $self;
    }

    my $verbose = $conf->options <==
3	/Users/nnunley/parrot/lib/File/Which.pm	938	1065	
==>my ($exec) = @_;

    return undef unless $exec;

    my $all = wantarray;
    my @results = ();
    
    # check for aliases fi <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24827	24923	
==>turn _succeed wantarray, $textref,
				$match[2], $match[3]+$match[5]+$match[7],	# MATCH
				@mat <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7659	7753	
==>turn _succeed wantarray, $textref,
			$match[2], $match[3]+$match[5]+$match[7],	# MATCH
			@mat <==
3	/Users/nnunley/parrot/Configure.pl	6786	6926	
==>s

   --cgoto=0            Don't build cgoto core - recommended when short of mem
   --jitcapable         Use JIT
   --execcapable        Use <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677577	677663	
==>"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_float(interpreter, {{\@1}}, {{\@2}});\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678355	678441	
==>"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_float(interpreter, {{\@1}}, {{\@2}});\ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	30848	30953	
==>on. Then write out the rest of the
    # expression.
    my $def = aop('rule_def', [ $name, $trymatch, $ba <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9999	10090	
==>t in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7513	7604	
==>t in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6477	6568	
==>t in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	32336	32441	
==>@{$treelet->[$i]} == 3 and $treelet->[$i][2] eq '')
      ) {
        $self->whine( $start_line, "An empty <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	42738	42843	
==>@{$treelet->[$i]} == 3 and $treelet->[$i][2] eq '')
      ) {
        $self->whine( $start_line, "An empty <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	12627	12715	
==>r) { tr/[]()<>{}\0-\377/[[((<<{{/ds }
	for ($rdel_inner, $rdel_outer) { tr/[]()<>{}\0-\37 <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	13333	13446	
==>c.get_eh()
    if null ehs goto NO_EH_HEADER
    i = elements ehs
    gen_pir = concat ".local pmc cur_exception\n <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	21473	21575	
==>]
	P1["storage"]= P0
	P1["_type"], '$_->[1]'
	P2["$_->[0]"]= P1
USERTYPE
			}
		}
	
		print CODE<<FINDI <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2822	2914	
==><Pod::Simple>.


=head1 SEE ALSO

L<Pod::Simple::XMLOutStream> is rather like this class.
Pod <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970697	970959	
==>GS" => [
                              "i",
                              "i",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_ <==
3	/Users/nnunley/parrot/config/init/defaults.pm	4154	4275	
==>uild directory
        blib_dir      => 'blib/lib',

        # libparrot library names
        libparrot_static => 'libpar <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12629	12747	
==>hift;
    
    # This is not very obvious, so let me explain. We get the file
    # for the module, then we take its pa <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3195	3295	
==>t;
  if(Pod::Simple::ASCII) {
    $self->{'Thispara'} =~ tr{\xA0}{ };
    $self->{'Thispara'} =~ tr{\ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2683	2783	
==>t;
  if(Pod::Simple::ASCII) {
    $self->{'Thispara'} =~ tr{\xA0}{ };
    $self->{'Thispara'} =~ tr{\ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1370	1467	
==>$self->name->value;

#  $self->DEBUG(0, "Searching for symbol '$name'...");

  my $sym = $self->bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863567	863830	
==>NAME" => "bytelength",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864458	864721	
==>NAME" => "bytelength",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9594	9692	
==>he specified text token. URLs which are not in link tags
are linked here for convenience.

=cut

su <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1921	2010	
==>t_sym = $block->find_symbol($left->value);
    $self->SYNTAX_ERROR("Expression involves un <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1879	1968	
==>t_sym = $block->find_symbol($left->value);
    $self->SYNTAX_ERROR("Expression involves un <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1801	1890	
==>t_sym = $block->find_symbol($left->value);
    $self->SYNTAX_ERROR("Expression involves un <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030913	1031207	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sizeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031781	1032075	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sizeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	6655	6797	
==>->YYData->{lineno}++,
                last;

            s/^\-\-\[(=*)\[//       # LongComment
                and $parser->_LongCommentLex <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	9176	9286	
==>name}) {
	    die "duplicate opcode $name and $number";
    }
    $prev = $number;
    $ParrotOps::optable{$nam <==
3	/Users/nnunley/parrot/config/auto/python.pm	840	949	
==>n;
    my $has_python = $python ? 1 : 0;

    $conf->data->set(has_python => $has_python);

    my $has_python <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	63794	63888	
==><extract_tagged> found a nested tag that appeared in the "reject" list
(and the failure mode wa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465668	465906	
==>"LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dec",
                  "FLAGS" => ":base_core <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	466289	466527	
==>"LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dec",
                  "FLAGS" => ":base_core <==
3	/Users/nnunley/parrot/Configure.pl	2029	2123	
==>d libraries.

=item C<--ldflags=(flags)>

Use the given loader flags for shared libraries

=ite <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35760	35873	
==>ore) tests than you planned, the missing (or extras)
will be considered failures.  If no tests were ever run Test: <==
3	/Users/nnunley/parrot/lib/Test/More.pm	33831	33944	
==>ore) tests than you planned, the missing (or extras)
will be considered failures.  If no tests were ever run Test: <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2627	2740	
==>ore) tests than you planned, the missing (or extras)
will be considered failures.  If no tests were ever run Test: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1162	1263	
==>ned $right and not UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless { <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1190	1291	
==>ned $right and not UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless { <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	862	963	
==>ned $right and not UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless { <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	32672	32790	
==>ext node.  But it has to START with one text
      #  node...
      if(! ref $treelet->[$i][2] and
        $treelet->[$ <==
3	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	730	813	
==>F<examples/benchmarks/stress.pl>, 
F<examples/benchmarks/stress1.pasm>, 
F<examples/ <==
3	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	577	660	
==>F<examples/benchmarks/stress.pl>, 
F<examples/benchmarks/stress1.pasm>, 
F<examples/ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21652	21754	
==>ate($node->{children}[1]);
  $self->_add_inst(''           ,'gt'    ,[$temp,0,"DONE_$label"]);
  $self- <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	27993	28092	
==>own =extend syntax: $content"
    )
  }
  return;
}


#:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.: <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	5987	6117	
==>($line =~ /string/);
        }
        $asm .= $line;
    }
    return %ops;
}

use Parrot::Vtable;
my $vtable;
my $vjit = 0;
sub v <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019868	1019957	
==>arrot_localtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = string_fr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020799	1020888	
==>arrot_localtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = string_fr <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2293	2398	
==>array) {
			# TODO TODO TODO TODO
			print CODE<<SHARING;
	# Sharing $stype $var with main  (array=$array) <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	2447	2543	
==>r isuserfunc($_[0]) or isarray($_[0]));
}

sub iskeyword { 
	return 1 if (grep /^\Q$_[0]\E$/i, @k <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	140	234	
==>ead1 NAME

tools/build/pmc2c.pl - PMC definition to C compiler

=head1 SYNOPSIS

Create F<src/p <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	20999	21201	
==>ariant->[0]];
                    $init_mmds{$variant->[0]} = 1;
                }
                else {
                    $right = "enum_class_$variant->[0]";
                }
                $meth_ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	1007	1115	
==>t($_, $ctx) } @{ $tree->branches } ]);
}

sub convert_rx_seq {
    my ($self, $tree, $ctx) = @_;
    return o <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	1095	1203	
==>pha)) => seq(R, \alpha)
        #
	my @pre_pieces = map { $self->pass1($_, $ctx) } @{ $t->{args} };
	my @piec <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	16295	16390	
==>ected 3 args, but found $span instead", $line);
		Parse::RecDescent::_hint(
			"The <$op->{type} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	317030	317269	
==>t2)({{\@1}}));\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	318499	318738	
==>t2)({{\@1}}));\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1666	1762	
==>ead1 DESCRIPTION

This class is not of interest to general users.

Pod::Simple uses this class fo <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	2695	2809	
==>'} } ) ,
   ") :\n", map(
     "    " . $_->dump . "\n", @{ $self->{'token_buffer'} }
   ),
   @{ $self->{'token_bu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632671	632926	
==>= pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633713	633968	
==>= pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10343	10428	
==>c5665,/* 48 */
II,$a,$b,$c,$d,$_[4],6,0xf4292244,/* 49 */
II,$d,$a,$b,$c,$_[11],10,0x4 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	652	748	
==>{
    $prefix = $self->peer ? $peer->prefix : $compiler->block_label($kind);
    $self->prefix($p <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	632	728	
==>{
    $prefix = $self->peer ? $peer->prefix : $compiler->block_label($kind);
    $self->prefix($p <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	967	1058	
==>tem('', 'docs/practical_notes.pod'),
			$self->new_item('', 'docs/parrot.pod'),
		),
		$self <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26953	27097	
==>8
		}
	},
	{#State 83
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			' <==
3	/Users/nnunley/parrot/languages/scheme/Scheme.pm	1319	1406	
==>eme::Parser::parse($self->{tokens});
  $self->{code}   = link_functions(Scheme::Generato <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27789	27933	
==>8
		}
	},
	{#State 85
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			' <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	15936	16028	
==>ed later!
  }
  return 1;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10938	11041	
==>Writing $outfile..\n" if $DEBUG;
    open (IN, "<$infile") or die "Can't read $infile: $!\n";
    open ( <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11422	11525	
==>Writing $outfile..\n" if $DEBUG;
    open (IN, "<$infile") or die "Can't read $infile: $!\n";
    open ( <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11886	11989	
==>Writing $outfile..\n" if $DEBUG;
    open (IN, "<$infile") or die "Can't read $infile: $!\n";
    open ( <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	7721	7846	
==>,
 'rlm'      , 8207,
 'ndash'    , 8211,
 'mdash'    , 8212,
 'lsquo'    , 8216,
 'rsquo'    , 8217,
 'sbquo'    , 8218,
 'ld <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1130	1228	
==>t_r()

This returns a scalar reference to the string that this token holds.
This can be useful if y <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	3422	3519	
==>ey can also be negated with a "no", for example --noconst.
[1] Not all platforms support this, a w <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	4279	4408	
==>_\")\n";
        }
    }

    # If we're still in a heredoc, we got an error.
    if ($in_heredoc) {
        die "Unterminated her <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	16304	16417	
==>t);
}
sub BINARY_DIVIDE
{
    my ($n, $c, $cmt) = @_;
    binary('/', $cmt);
}
sub BINARY_POWER
{
    my ($op, $cm <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	16472	16601	
==>k;
    my ($t, $n);
    if ($r->[2] eq 'I' && $l->[2] eq 'I') {
	$n = temp($t = 'N');
	print <<"EOC";
	$n = pow $l->[1], $r->[1] $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8915	9008	
==>bel, label);\n    if (!fe)\n\tinternal_exception(1, \"branch_cs: fixup for '%s' not found\", l <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10031	10124	
==>bel, label);\n    if (!fe)\n\tinternal_exception(1, \"branch_cs: fixup for '%s' not found\", l <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6864	6973	
==>ild("$pmc.c", "$pmc.pmc")) {
        run("$PMC2C --c $pmc.pmc")
          or die "pmc2c code generation failed <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7075	7184	
==>ild("$pmc.c", "$pmc.pmc")) {
        run("$PMC2C --c $pmc.pmc")
          or die "pmc2c code generation failed <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2312	2412	
==>ion as in C<Parrot::OpTrans>. It
should not be duplicated.

=cut

sub gen_goto
{
    my ($self, $wher <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	14749	14861	
==>e "Empty MMD body near '$total_body'"
            if (!$body_part);
        $body_part = substr($body_part, 1, -1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447789	447895	
==>\@2}} < 0) {\n    {{\@1}} = - (INTVAL){{\@2}};\n  }\n  else {\n    {{\@1}} = (INTVAL){{\@2}};\n  }\n  {{+=3 <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	5885	5981	
==>More instead of Test::Simple in your
programs and things will still work).

=item L<Test>

The or <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	1250	1348	
==>rrot" in the directory.

Raises an exception if the distribution root is not found.

=cut

my $dist <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9317	9422	
==>y %s v%s, using %s v%s, under Perl v%s at %s GMT -->\n",
    # None of the following things should need es <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791609	791698	
==>{\@1}} = {{\@2}}->vtable->get_pmc_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792516	792605	
==>{\@1}} = {{\@2}}->vtable->get_pmc_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080938	1081237	
==>NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 120 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082003	1082302	
==>NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 120 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083068	1083367	
==>NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 120 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	815792	816036	
==>\n  {{\@1}} = 0;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20131	20244	
==>unless ( exists $th{$type} or
							  exists $usertypes{$type});
			my $marker;
			if (exists $th{$type}) {
				$ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	46898	46987	
==>turn;
}


#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@


su <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41491	41578	
==>turn;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

su <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	52546	52633	
==>turn;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

su <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1024	1113	
==>erpreter->code->prederef.code))
#define CUR_OPCODE ((opcode_t*)cur_opcode + CONTEXT(interp <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	958	1047	
==>erpreter->code->prederef.code))
#define CUR_OPCODE ((opcode_t*)cur_opcode + CONTEXT(interp <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1154	1243	
==>erpreter->code->prederef.code))
#define CUR_OPCODE ((opcode_t*)cur_opcode + CONTEXT(interp <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4985	5127	
==>ame = $ident->value;

      #
      # Allow there to be Properties:
      #

      my %props;

      while ($self->skip_colon) {
        my $pr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7979	8121	
==>ame = $ident->value;

      #
      # Allow there to be Properties:
      #

      my %props;

      while ($self->skip_colon) {
        my $pr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8397	8518	
==>e to be a formal arguments list:
      #

      $self->require_open_paren;

      my @formal_args;

      unless ($self->s <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	1973	2098	
==>class;
    {
        no strict 'refs';
        return @{$class . "::args"};
    }
}

=back

=head1 AUTHOR

Joshua Hoblitt C<jh <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64637	64727	
==>s\"\n  Interp * const new_interp = (Interp *)PMC_data({{\@1}});\n  Interp_flags_SET(new_int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65588	65678	
==>s\"\n  Interp * const new_interp = (Interp *)PMC_data({{\@1}});\n  Interp_flags_SET(new_int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775951	776181	
==>> [
                              "p",
                              "kic",
                              "ic"
                            ],
                  "BODY" => "#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	13265	13407	
==>ound the argument,
        # like so:
        #
        #    goto OFFSET(( (void*)interpreter->happy_place ))
        #
        # Later transfo <==
3	/Users/nnunley/parrot/config/gen/platform.pm	4920	5059	
==>ine 1 "$impl_file"
END_HERE
            print PLATFORM_C <IN_C>, "\n\n";
            close IN_C;
        }
    }

    # append generated c f <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	4736	4845	
==>t;
    
    # Flags we'll set as we go through key/value pairs.
    my ($has_code, $has_class, $has_push, $has <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19533	19638	
==>->{jump}:\n";
}

sub parse_type {
		my(@types);
		feedme;
		my $typename=$syms[CURR];
		feedme;
		$sourcel <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8330	8469	
==>4
#DBG>		and	print STDERR "Back to state $$stack[-1][0], then ";

                $$check eq 'ERROR'
            or  do {
#DBG>				$deb <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7951	8085	
==>4
#DBG>		and	print STDERR "Back to state $$stack[-1][0], then ";

                $$check eq 'ERROR'
            or  do {
#DBG>				$deb <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	5266	5368	
==>!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically from '$file' (and po <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	22581	22706	
==>y $p = pop @stack;
    pop @stack;	# functions
    my $s = temp('S');
    print <<EOC;
	$s = $p->[1]
	$i = ord $s
EOC
    push <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	9619	9709	
==>LSE_$label");
  my $false = $self->_generate(_get_arg($node,3));
  $self->_morph($return,$f <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	431	519	
==>and C<FE<lt>I<file>E<gt>>, and using the
Parrot house-style provided by C<Parrot::HTMLPag <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8881	8972	
==>(interpreter,\n\t    enum_fixup_label, label);\n    if (!fe)\n\tinternal_exception(1, \"bran <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9997	10088	
==>(interpreter,\n\t    enum_fixup_label, label);\n    if (!fe)\n\tinternal_exception(1, \"bran <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7824	7921	
==>ould not happen (string)"
i%=0
if i% then print "Should not happen (int)"
i%=54
if i% then print " <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14811	14908	
==>ould not happen (string)"
i%=0
if i% then print "Should not happen (int)"
i%=54
if i% then print " <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1075	1170	
==>on a L<Pod::Simple::PullParser> object, you might
get an object of this class.

This is a subcla <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	626556	626855	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627699	627998	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628843	629142	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "f <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6854	6991	
==>self->get_token;
        
        last if $to_unget[-1]->is_end
            and $to_unget[-1]->tagname eq $tagname;
    }
    
    # Conve <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	1521	1657	
==>push @files, $dir->files_of_type($type, 1, $ignore);
        }
    }
    
    return @files;
}

=back

=head1 SEE ALSO

=over 4

=item C< <==
3	/Users/nnunley/parrot/tools/util/pirtidy.pl	541	648	
==>each my $line (<$ifh>) {
      $formatter->add_pir( $line );
    }

    my $output = $formatter->get_formatt <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2959	3064	
==>e for C<restart ADDRESS($address)>.

=cut

sub restart_address
{
    my ($self, $addr) = @_;

    return " <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3828	3933	
==>e for C<restart ADDRESS($address)>.

=cut

sub restart_address
{
    my ($self, $addr) = @_;

    return " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920400	920645	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sprintf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921292	921537	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sprintf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	922185	922430	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sprintf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	47486	47631	
==>}
	],
	[#Rule 17
		 '@4-4', 0,
sub
#line 120 "Lua\lua51.yp"
{
            PushScope( $_[0] );
        }
	],
	[#Rule 18
		 'stat', 7,
s <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	18610	18711	
==>back check next);

    my $matchcount = $self->new_rxlocal($op, "matchcount");

    my ($R_back, @R_op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712757	712950	
==>ter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713864	714057	
==>ter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	4880	4987	
==>rection of the op's argument at C<$index>.

=cut

sub arg_dir
{
    my $self = shift;

    return $self->{AR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021184	1021448	
==>NAME" => "decodetime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022025	1022289	
==>NAME" => "decodetime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1465	1559	
==>or a Pod formatter/processor.

=head1 METHOD CALLING

When Pod::Simple sees a "=head1 Hi there" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	2462	2587	
==>t->is('ident');         }
sub is_if            { return shift->is('if');            }
sub is_infix_arith   { return shift->is( <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	3706	3825	
==>se verbose-step ask));

    my $n = 0; # step number
    foreach my $task ($self->steps) {
        my $step_name   = $ta <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	4627	4722	
==>g_interp" attribute="String Interp" lineEndContext="#pop">
          <HlCStringChar attribute="S <==
3	/Users/nnunley/parrot/config/init/defaults.pm	1145	1248	
==>sed to indicate this object file is to be compiled
        # with position-independent code suitable for <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571053	571144	
==>Y" => "#line 223 \"src/ops/object.ops\"\n    PMC *class = Parrot_class_lookup_p(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572008	572099	
==>Y" => "#line 223 \"src/ops/object.ops\"\n    PMC *class = Parrot_class_lookup_p(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615048	615317	
==>ass not parent of object\");\n    }\n    {{\@1}} = offset;\n    {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616199	616468	
==>ass not parent of object\");\n    }\n    {{\@1}} = offset;\n    {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/Configure.pl	7826	7921	
==>shared libraries
   --icudatadir=(path)  Directory to locate ICU's data file(s)

Other Options ( <==
3	/Users/nnunley/parrot/tools/dev/as2c.pl	881	1012	
==>omment) {
		print " */\n";
	    }
	    my ($bytes, $src) = ($1, $2);
	    $src =~ s/\t/ /g;
	    my $len = length($bytes);
	    my @ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11171	11275	
==>->[0]};
	#}
	pop @$work;  # REmove startarg tag...
	return(scalar @args, @args);
}
sub optype_of {
	my($f <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	21289	21392	
==>ut goes.

It's ok for your test to change where STDOUT and STDERR point to,
Test::Builder's default outp <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1596	1691	
==>shift @_ => ( ref $pattern
        ? Parrot::Test::PGE::_generate_subrule_pir($target, $pattern) <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2119	2214	
==>shift @_ => ( ref $pattern
        ? Parrot::Test::PGE::_generate_subrule_pir($target, $pattern) <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2781	2884	
==>}

# Pre and post stack operation (op class instructions) hooks.
sub pre_op($$) {
	my $self = shift;
	my <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1703	1806	
==>}

# Pre and post stack operation (op class instructions) hooks.
sub pre_op($$) {
	my $self = shift;
	my <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	892	995	
==>}

# Pre and post stack operation (op class instructions) hooks.
sub pre_op($$) {
	my $self = shift;
	my <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696629	696908	
==>,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_su <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59499	59597	
==>ad, $line) or next;

			$prod->check_pending($line) if $prod;
			$prod = new Parse::RecDescent::Pro <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59856	59952	
==>ad,$line) or next;
			$prod->check_pending($line) if $prod;
			$prod = new Parse::RecDescent::Pro <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2299	2403	
==>else {
      $actual_arg_type = $args[$i]->type;
    }

    $self->INTERNAL_ERROR("Can't determine type o <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1999	2103	
==>else {
      $actual_arg_type = $args[$i]->type;
    }

    $self->INTERNAL_ERROR("Can't determine type o <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	8650	8743	
==>RCE $op_funcs[$i];
}

if ($trans->can("run_core_finish")) {
    print SOURCE $trans->run_core_ <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	4275	4372	
==>x;
$suffix{ $_ } = [ map quotemeta, $ini->val($_, 'type') ] for @section;
my $ticks = POSIX::sysco <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15939	16034	
==>n(@expr);	# Get infix into RPN
		($result,$type,@stream)=generate_code(0, @stream);	# Generate P <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	17090	17185	
==>n(@expr);	# Get infix into RPN
		($result,$type,@stream)=generate_code(0, @stream);	# Generate P <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1399	1489	
==>on -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARRO <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1444	1534	
==>on -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARRO <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1448	1538	
==>on -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARRO <==
3	/Users/nnunley/parrot/config/inter/lex.pm	2180	2285	
==>by $0 so it will claim to be lex if invoked as `lex`
    if ($stdout =~ /f?lex .*? (\d+) \. (\d+) \. (\d+) <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	11457	11562	
==>if( $token->is_end and $token->tagname eq 'head1' ) {
        DEBUG and print "  Found end of head1.  Cons <==
3	/Users/nnunley/parrot/config/inter/encoding.pm	717	821	
==>tions->get('encoding')
        || join(' ', grep { defined $_ } @encoding);

    if ($conf->options->get( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	697	799	
==>}

sub new {
  my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{I <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	203	305	
==>}

sub new {
  my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{I <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	202	304	
==>}

sub new {
  my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{I <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494351	494610	
==>th.ops\"\n  {{\@1}} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495219	495478	
==>th.ops\"\n  {{\@1}} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496087	496346	
==>th.ops\"\n  {{\@1}} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465608	465829	
==>/math.ops\"\n  {{\@1}}--;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	466229	466450	
==>/math.ops\"\n  {{\@1}}--;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6109	6227	
==>";
        $entry->[4],
EOM
    }
    $macros .=<<"EOM";
        MMD_USER_FIRST
} parrot_mmd_func_enum;

/* &end_gen */ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202770	203041	
==>preter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203701	203972	
==>preter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204632	204903	
==>preter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	6825	6956	
==>OC;
arg_ok:
EOC
    }
    $cur_func = $arg;
    %params = ();
    %lexicals = ();
    %names = ();
}

sub ARG_count {
    my ($n, $c <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6382	6468	
==>P_arg_0
POST_BRANCH_switch_${CURIC}_LOOP:
if i == 0 goto POST_BRANCH_switch_${CURIC}_LO <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4320	4406	
==>P_arg_0
POST_BRANCH_switch_${CURIC}_LOOP:
if i == 0 goto POST_BRANCH_switch_${CURIC}_LO <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30399	30504	
==>t($text))
							if defined $::RD_TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trac <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32599	32704	
==>t($text))
							if defined $::RD_TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trac <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28324	28428	
==>t($text))
					if defined $::RD_TRACE;').'

			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trac <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126529	126630	
==>rc/ops/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  I <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127664	127765	
==>rc/ops/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  I <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128799	128900	
==>rc/ops/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  I <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2628	2735	
==>1 to 5
  if i=4 then exit for
  print i
next i

' Branch test, all OK in sequence
PRINT "1 in module-level c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101806	101895	
==>e 130 \"src/ops/bit.ops\"\n  string_bitwise_not(interpreter, {{\@2}}, &{{\@1}});\n  {{+=3} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102577	102666	
==>e 130 \"src/ops/bit.ops\"\n  string_bitwise_not(interpreter, {{\@2}}, &{{\@1}});\n  {{+=3} <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	29382	29523	
==>t failed
        name      => 'hole count',
        type      => 'todo',
        reason    => 'insufficient donuts'
      };

=cut

sub detail <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	17623	17753	
==>->{super_mmd} }) {
        my ($super, $variants);
        $found = 0;
        @mmds = ();
        while (($super, $variants) = eac <==
3	/Users/nnunley/parrot/config/auto/signal.pm	802	913	
==>>set_result('skipped');
        return $self;
    }

    cc_gen('config/auto/signal/test_1.in');
    eval { cc_b <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1457	1571	
==>E_COMPUTED_GOTO ];

our $LIBPARROT = qq[];

# Here comes some stuff for Win32.
our $PATHQUOTE = '';
if ($^O eq 'MSW <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1502	1616	
==>E_COMPUTED_GOTO ];

our $LIBPARROT = qq[];

# Here comes some stuff for Win32.
our $PATHQUOTE = '';
if ($^O eq 'MSW <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1506	1620	
==>E_COMPUTED_GOTO ];

our $LIBPARROT = qq[];

# Here comes some stuff for Win32.
our $PATHQUOTE = '';
if ($^O eq 'MSW <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9187	9301	
==>ekindex",
            "eq <rx_tmp>, -1, ".$self->output_label_use($fallback)." # was a mark?",
            "set $re <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1520	1626	
==>_dataflow {
  my $node = shift;

  if(exists $node->{children}) {
    for(@{$node->{children}}) {
      _da <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510263	510350	
==>line 675 \"src/ops/math.ops\"\n  {{\@1}}->vtable->i_neg(interpreter, {{\@1}});\n  {{+=2} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19291	19391	
==>{
      my $block = $self->current_block();
      my $left = Jako::Construct::Expression::Value::Iden <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20373	20473	
==>{
      my $block = $self->current_block();
      my $left = Jako::Construct::Expression::Value::Iden <==
3	/Users/nnunley/parrot/config/init/hints/hpux.pm	191	305	
==>self, $conf) = @_;

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lp <==
3	/Users/nnunley/parrot/config/init/hints/solaris.pm	245	359	
==>self, $conf) = @_;

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lp <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	19362	19475	
==>op @stack;
    if ($c =~ /exception match/) {
	return except_compare($l, $r);
    }
    my %rev_map = (
	'==' => ' <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32120	32230	
==>$_tok and
		     do { substr($text,0,length($_tok)) = ""; 1; }
		)
		{
			'.($self->{"lookahead"} ? '$text = $_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825995	826324	
==>=> ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 935,
                  "ARGS" => [
                              "n",
                              "i" <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24361	24477	
==>EXT] eq ",") {
				feedme();
				goto &parse_dim;			
			}
		} elsif ($syms[CURR] eq "shared") {
			print "WARNING: SH <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7809	7902	
==>st
  $self->_add_inst("FINISH_$label", 'set', [$copy.'[1]',$return]);
  $self->_add_inst('', ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552842	552935	
==>thod = VTABLE_get_string(interpreter, method_pmc);\n  dest = (opcode_t *)VTABLE_invoke(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556837	556930	
==>thod = VTABLE_get_string(interpreter, method_pmc);\n  dest = (opcode_t *)VTABLE_invoke(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560860	560953	
==>thod = VTABLE_get_string(interpreter, method_pmc);\n  dest = (opcode_t *)VTABLE_invoke(interpr <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	1734	1884	
==>ption marker

        (\w+)             # name

        (?: : ($types) )? # optional type
        (?: = ([^?]*)  )? # optional default value

        ( <==
3	/Users/nnunley/parrot/lib/Test/More.pm	9639	9746	
==>().  Better
diagnostics on failure.

=cut

sub like ($$;$) {
    $Test->like(@_);
}


=item B<unlike>

  unl <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2505	2609	
==>ptions.\n";
    if($show_full) {
	print "Their heads are included in a second section below, "
	    ."mar <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3063	3174	
==>=> "PREG(%ld)",
    's'  => "SREG(%ld)",
    'k'  => "PREG(%ld)",
    'ki' => "IREG(%ld)",

    'ic' => "cur_opc <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1979	2086	
==>=> "PREG(%ld)",
  's'   => "SREG(%ld)",
  'k'   => "PREG(%ld)",
  'ki'  => "IREG(%ld)",

  'ic'  => "cur_opc <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	55558	55665	
==>ode>");
				$prod and $prod->additem($item)
				      or  _no_rule("<defer:$code>",$line);

				$self->{defe <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	47172	47285	
==>);
  } else {  # it's a filename
    $new->parse_file($source);
  }
  
  return $new;
}


#----------------------- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423605	423717	
==>/io.ops\"\n    {{\@1}} = (INTVAL)PIO_listen(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	424502	424614	
==>/io.ops\"\n    {{\@1}} = (INTVAL)PIO_listen(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202767	203030	
==>terpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203698	203961	
==>terpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204629	204892	
==>terpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	21744	21850	
==>:
#
sub rewrite_star {
    my ($self, $op, $R, $greedy, $lastback) = @_;

    my $next = $self->genlabel('s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1745	1844	
==>nts (expected %d, got %d) in call to '%s'.",
    scalar(@formal_args), scalar(@args), $name)
    unl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1445	1544	
==>nts (expected %d, got %d) in call to '%s'.",
    scalar(@formal_args), scalar(@args), $name)
    unl <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26018	26130	
==>);
		$mv->{"ARG$arg_num"} = $mv->{$arg_name};
		push @localmv, "ARG$arg_num";
        $arg_num++;
	}

    # Gener <==
3	/Users/nnunley/parrot/lib/Test/More.pm	10138	10247	
==>mp_ok( $this, 'eq', $that, 'this eq that' );

    # ok( $this == $that );
    cmp_ok( $this, '==', $that, 'thi <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	6408	6507	
==>oke = @_;

  my $summary = join("-", map { $smoke{summary}{$_} } qw<total ok failed todo skipped une <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218880	219143	
==>, {{\@1}}), {{\@2}}) > 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219859	220122	
==>, {{\@1}}), {{\@2}}) > 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8794	8890	
==>ves
if ${ITEMP0} > 0 goto POST_STORE_${CURIC}_LAZY_MOVE

# No lazy move available - need to refer <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3738	3835	
==>>block->props;

      $self->SYNTAX_ERROR("Sub declaration has no fnlib property, and parent modul <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6402	6499	
==>>block->props;

      $self->SYNTAX_ERROR("Sub declaration has no fnlib property, and parent modul <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	972	1063	
==>:TextContent -e \
   "exit Pod::Simple::TextContent->filter(shift)->any_errata_seen" \
   th <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	24035	24154	
==>.

Defaults to STDOUT.

=cut

sub output {
    my($self, $fh) = @_;

    if( defined $fh ) {
        $self->{Out_FH} = _ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	549	643	
==>, 'Jako::Construct::Block');
  confess("Left (" . ref($left) . ") is not Value") unless UNIVERS <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	540	634	
==>, 'Jako::Construct::Block');
  confess("Left (" . ref($left) . ") is not Value") unless UNIVERS <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48638	48754	
==>=~ m/$MANY/gco)
					{ }
				elsif ($grammar =~ m/$BADREP/gco)
				{
					_parse("an invalid repetition specifier", 0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661935	662022	
==>"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(interpreter, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662851	662938	
==>"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(interpreter, {{\@ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	4229	4424	
==>st; # Stop tracing through jumps
                    } else {
                        die "untargeted label $dest->{label}";
                    }
                }
                last if $dest_s <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	8985	9129	
==>cversion' => undef,
             'ncilib_link_extra' => '',
             'new_perldoc' => 1,
             'numvalsize' => 8,
             'nv' => <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	58428	58538	
==>", 0,
				    $lookahead,$line) or next;
			my $rulename = $1;
			if ($rulename =~ /Replace|Extend|Precompile|S <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	566	682	
==>>peer;

  my $prefix;

  if ($self->prefix) {
    $prefix = $self->prefix;
  }
  else {
    $prefix = $self->peer ? $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	546	662	
==>>peer;

  my $prefix;

  if ($self->prefix) {
    $prefix = $self->prefix;
  }
  else {
    $prefix = $self->peer ? $ <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	1355	1455	
==>rn $self;
}

=back

=head3 Class Methods

=over 4

=item * C<description()>

Accepts no arguments and <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	1821	1928	
==>entation', '', 'docs/dev'),
		$self->new_group('PMC Documentation', '', 'docs/pmc'),
		$self->new_group('Par <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11827	11932	
==>pe[CURR] eq "PUN" and $syms[CURR] =~ /-/) {
			if ($type[NEXT] =~ /INT|FLO/) {
				feedme();
				$syms[CUR <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	1668	1780	
==>nder_paragraph_buffer
   # to process this.
  
  $self->{'pod_para_count'} ||= 0;

  my $line;
  foreach my $sour <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	49672	49770	
==>ng the following alternatives in sequence:

=over 4

=item 1.

Try and match a closing delimiter br <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	308	401	
==>R for Tcl commands
my @dynamic_cmds = pir_cmds_in_dir($dynamic_dir);

print <<"END_PIR";

.HLL <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	195	367	
==>30T15:23:20.183054Z coke  $
################################################################################

=head1 TITLE

tools/dev/mk_manifests.pl - Generate MANIFEST.* f <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2490	2594	
==>e the constant, we will place its
  # definition into the block at the top of the block stack. We fill in <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2237	2341	
==>e the constant, we will place its
  # definition into the block at the top of the block stack. We fill in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	17958	18176	
==>,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 307 \"src/ops/core.ops\"\n  if (string_bool(interpr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	5134	5246	
==>art collecting symbols here

  my %table = ();

  my $level = 0;

  while ($block) {
    foreach my $symbol ($blo <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18061	18170	
==>emq {
}

sub _op_memv {
}

sub _op_member {
}

sub _op_assq {
}

sub _op_assv {
}

sub _op_assoc {
}

sub _op_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	306183	306421	
==>" => "function",
                  "CODE" => 356,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 1012 \"src/ops/cmp.ops\ <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	4814	4920	
==>mentation directory.

=cut

sub delete_html_docs
{
    my $self = shift;
    
    return $self->html_docs_d <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6239	6343	
==>::Block");
  confess "No symbol name!"  unless defined $name;
  confess "Extra arguments!" if @_;

  my $ <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	16803	16921	
==>result, ' . $order[0] . "\n";

          $template .= << 'END_PIR';
    goto loop
loop_done:
    # return the result ve <==
3	/Users/nnunley/parrot/lib/File/Which.pm	4884	4976	
==>exe>, C<.bat> and
(less likely) C<.com>. C<File::Which> uses this hardcoded list if it's runn <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194930	195208	
==>"NAME" => "lt_str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functio <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	9598	9722	
==>new_code =~ m/:[-\.0-9]/s;
            # The legal under-0x80 Name characters that 
            #  an XML Name still can't st <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10862	10986	
==>new_code =~ m/:[-\.0-9]/s;
            # The legal under-0x80 Name characters that 
            #  an XML Name still can't st <==
3	/Users/nnunley/parrot/tools/build/vtable_extend.pl	1529	1631	
==>de which calls these functions, so most
   extension code is safe, no problem.

   The problem comes in <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3004	3127	
==>IN PROGRAM ################

my ($mode, @pmcs) = @ARGV;

if ($mode eq 'generate') {
    # Convert X.pmc -> X.dump and X.c an <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3108	3231	
==>IN PROGRAM ################

my ($mode, @pmcs) = @ARGV;

if ($mode eq 'generate') {
    # Convert X.pmc -> X.dump and X.c an <==
3	/Users/nnunley/parrot/languages/regex/test.pl	2525	2643	
==>t = 1;
$_ = <SPEC>;
while (1) {
    my ($input, $output);

    last if ! defined $_;
    die "INPUT: expected" if ! /^I <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	3018	3114	
==>ses the test if a string comparison of output
with the expected result is true.

=item C<pir_outp <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	685	776	
==>not!"  unless UNIVERSAL::isa($type, qw(Jako::Construct::Type));
  confess "Identifier (" . r <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	675	764	
==>not!" unless UNIVERSAL::isa($type, qw(Jako::Construct::Type));
  confess "Identifier (". r <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6307	6416	
==>= {
EOM

    for my $entry (@{$vtable}) {
    next unless ($entry->[4] =~ /MMD_/);
    next if ($entry->[4] =~ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548991	549094	
==>oercing a negative to a UINT can get pretty ugly\n   * in this situation. */\n  INTVAL i = {{\@2}};\n  F <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	8920	9007	
==>F<tools/build/vtable_h.pl>

=item F<tools/dev/gen_class.pl>

=item F<src/pmc/null.pl>

= <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	505	606	
==>ub { $_[0]->code ne $_[0]->code },
  q{""} => sub { $_[0]->name }
;

use Jako::Token;

use Jako::Const <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558029	558121	
==>ILCALL;\n  interpreter->current_object = object;\n  interpreter->current_method = meth;\n  me <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559413	559505	
==>ILCALL;\n  interpreter->current_object = object;\n  interpreter->current_method = meth;\n  me <==
3	/Users/nnunley/parrot/tools/dev/as2c.pl	1275	1387	
==>nt "static const char ${func}_code[] = {\n";
	}
	elsif (/^\s*\d+\s+(\w+):/) {
	    print " " x 26, " /* $1: */\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13063	13149	
==>ter->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  lo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13907	13993	
==>ter->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  lo <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5654	5758	
==>& 0x2
#DBG>	and	print STDERR "In state $stateno:\n";
#DBG>		$debug & 0x08
#DBG>	and	print STDERR "Stac <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5383	5484	
==>& 0x2
#DBG>	and	print STDERR "In state $stateno:\n";
#DBG>		$debug & 0x08
#DBG>	and	print STDERR "Stac <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4345	4440	
==>unction
dim t(7)
z=55
t(3)=5.6
a=mine(5)
print t(3)

1740 print "Branched"
	end
' Logical Operat <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	12540	12652	
==>e);
  } elsif(ref $source) {
    $self->{'source_filename'} = '' . ($source);
  } elsif(!length $source) {
    Ca <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467554	467654	
==>ODY" => "#line 376 \"src/ops/math.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_excep <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468425	468525	
==>ODY" => "#line 376 \"src/ops/math.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_excep <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9238	9351	
==>) {
    my $self = shift;

    my $cout = "";
    $cout .= <<"EOC";
#include "parrot/parrot.h"
#include "parrot/ex <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	49513	49606	
==>iters.

Once the prefix an dthe outermost opening delimiter bracket have been
recognized, code <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	9222	9314	
==>$seg}->{code}}, <<DEBUG;
	${seg}_debug($sourceline)
DEBUG
}

sub english_func {
	local $_=$_[ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104940	105236	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105677	105973	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	106415	106711	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	1402	1523	
==>truct name.

    my ($class, @decls);
    my $base_type = ref $_[1];
    if ( $base_type eq 'HASH' ) {
        $class = sh <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6614	6700	
==>tack_depth
    goto POST_BRANCH_switch_${CURIC}_LOOP
POST_BRANCH_switch_${CURIC}_LOOP_E <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4552	4638	
==>tack_depth
    goto POST_BRANCH_switch_${CURIC}_LOOP
POST_BRANCH_switch_${CURIC}_LOOP_E <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846778	847049	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chr",
                  "FLAGS" => ":base_core", <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2399	2504	
==>}
			if (@saves) {
				$edit.=qq{\tfind_global _GLOBALS, "COMMON"\n};
				foreach(@saves) {
					$edit.=qq <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2808	2913	
==>}
			if (@saves) {
				$edit.=qq{\tfind_global _GLOBALS, "COMMON"\n};
				foreach(@saves) {
					$edit.=qq <==
3	/Users/nnunley/parrot/lib/Test/More.pm	5785	5891	
==>t out either "ok #" or "not
ok #" depending on if a given test succeeded or failed.  Everything
else is jus <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10506	10608	
==>t

sub cc_run_capture
{
    my $exe   = $conf->data->get('exe');
    my $slash = $conf->data->get('slas <==
3	/Users/nnunley/parrot/tools/build/vtable_h.pl	366	466	
==>table>.

=head1 SEE ALSO

=over 4

=item C<Parrot::Vtable>

=back

=cut

use lib 'lib';
use Parrot::V <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	991	1151	
==>*",
       l => "long",
       4 => "long *",
       c => "char",
       s => "short",
       2 => "short *",
       f => "float",
       d => "double",
       t <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	1406	1566	
==>*",
       l => "long",
       4 => "long *",
       c => "char",
       s => "short",
       2 => "short *",
       f => "float",
       d => "double",
       t <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	2311	2471	
==>*",
       l => "long",
       4 => "long *",
       c => "char",
       s => "short",
       2 => "short *",
       f => "float",
       d => "double",
       t <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeDumb.pm	941	1087	
==>p territory, so we need to knock out
    #    # all the highbit things
    #    $x =
    #      pack 'C*',
    #      map {; ($_ < 128) ? $_ : 0x7e <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1196	1317	
==>sub type      { return shift->{TYPE};      }
sub name      { return shift->{NAME};      }
sub props     { return %{shift-> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1531	1652	
==>sub type      { return shift->{TYPE};      }
sub name      { return shift->{NAME};      }
sub props     { return %{shift-> <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34791	34896	
==>rule->{"name"} .'})
							if defined $::RD_TRACE;').'
			if ($Parse::RecDescent::lastexpected
			    && ! <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41901	42006	
==>rule->{"name"} .'})
							if defined $::RD_TRACE;').'
			if ($Parse::RecDescent::lastexpected
			    && ! <==
3	/Users/nnunley/parrot/config/init/hints/msys.pm	77	172	
==>sys.pm 19593 2006-05-30T02:28:15.110975Z coke  $

package init::hints::msys;

use strict;

sub r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714672	714768	
==>space(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715595	715691	
==>space(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716540	716636	
==>space(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, P <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9724	9821	
==>dule was built to facilitate the Pugs test suite. It has the
distinction of being the very first m <==
3	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	766	862	
==>This file should contain a transcript of the svn:ignore properties
# of the directories in the Pa <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3621	3717	
==>This file should contain a transcript of the svn:ignore properties
# of the directories in the Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743871	744197	
==>=> ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 837,
                  "ARGS" => [
                              "s",
                              "n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350924	351031	
==>,
                  "BODY" => "#line 190 \"src/ops/io.ops\"\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL){ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351586	351693	
==>,
                  "BODY" => "#line 190 \"src/ops/io.ops\"\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL){ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43240	43511	
==>( {
                  "JUMP" => 0,
                  "NAME" => "pushmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43883	44154	
==>( {
                  "JUMP" => 0,
                  "NAME" => "pushmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22836	22936	
==>> "#line 409 \"src/ops/core.ops\"\n  opcode_t *dest;\n  PMC * const p = {{\@1}};\n  dest = {{^+2}};\n <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	24316	24483	
==>),
              $rfail => aop('popindex', [ '<tmp>', $lastback ]),
                        aop('goto', [ $R_back ]),
               $next =>
              );

    retu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574727	574815	
==>e 249 \"src/ops/object.ops\"\n    {{\@1}} = pmc_new_init(interpreter, enum_class_ParrotCl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575531	575619	
==>e 249 \"src/ops/object.ops\"\n    {{\@1}} = pmc_new_init(interpreter, enum_class_ParrotCl <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6974	7132	
==>e ''	#Don't eat the eof
				and	$$token=$$value=undef;
                next;
            };

            #reduce
            my($lhs,$len,$code,@sempar,$ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6649	6801	
==>e ''	#Don't eat the eof
				and	$$token=$$value=undef;
                next;
            };

            #reduce
            my($lhs,$len,$code,@sempar,$ <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	4593	4740	
==>hcthr' => undef,
             'i_malloc' => undef,
             'i_math' => 'define',
             'i_memory' => undef,
             'i_mntent' => u <==
3	/Users/nnunley/parrot/tools/dev/cc_flags.pl	1693	1806	
==>here;
}
if ($where) {
  # Found a "" - remove it
  splice @ARGV, $where, 1;
  $inject_point = $where;
} else {
  $ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	24567	24679	
==>e"       => $_[4],
	}, $class;
}

sub code($$$$)
{
	my ($self, $namespace, $rule, $check) = @_;
	
	my $action = ' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	9	111	
==>.pm
#
# Copyright (C) 2001-2005, The Perl Foundation.
# This program is free software. It is subject to <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	10	112	
==>.pm
#
# Copyright (C) 2001-2005, The Perl Foundation.
# This program is free software. It is subject to <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	9	111	
==>.pm
#
# Copyright (C) 2001-2005, The Perl Foundation.
# This program is free software. It is subject to <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	3050	3150	
==>t_element({ Name => 'block', Attributes => { kind => 'then' } });
  }

  $handler->start_element({ Na <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3814	3914	
==>t_element({ Name => 'block', Attributes => { kind => 'then' } });
  }

  $handler->start_element({ Na <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	503	599	
==>tespace>][#<comment>]
    ...
Empty lines and lines containing only whitespace or comment are ign <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224996	225415	
==>",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 263,
                  "ARGS" => [
                              "p",
                              "n",
                              "ic"
                            ] <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	50275	50385	
==>ock>");
				$prod and $prod->additem($item)
				      or  _no_rule("<perl_codeblock>",$line);
			}
			elsif ($g <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	9937	10037	
==>irname}{$filename_8dot3}) {
            error("MANIFEST", $line, "$_: 8.3 name collision with $files_ <==
3	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	2435	2545	
==>_buildscripts {
    my @compiled_files;
    foreach my $obj (@ARGV) {
	my $src = $obj;
	$src =~ s/\.o/\.c/g;
	p <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3664	3764	
==>pile') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs( <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3768	3868	
==>pile') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722359	722455	
==>space(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723388	723484	
==>space(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724432	724528	
==>space(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, i <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1026	1180	
==>lpath},
                                           STDOUT => $out_f, STDERR => $out_f );
    unless ($pass) {
        my $file = Parrot::Test::slurp_file($ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1067	1221	
==>lpath},
                                           STDOUT => $out_f, STDERR => $out_f );
    unless ($pass) {
        my $file = Parrot::Test::slurp_file($ <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2118	2237	
==>lpath},
					   STDOUT => $out_f, STDERR => $out_f);
  
    unless ($pass) {
      my $file = Parrot::Test::slurp_file($ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16969	17090	
==>all' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 4 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17386	17507	
==>all' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 4 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18003	18124	
==>all' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 4 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	15413	15557	
==>le blocks:
      #

      elsif ($peer_block->kind eq 'module') {
        # DO NOTHING
      }

      #
      # If there is any other kind of blo <==
3	/Users/nnunley/parrot/lib/Test/More.pm	13358	13482	
==>y $rslt = eval { $object->isa($class) };
        if( $@ ) {
            if( $@ =~ /^Can't call method "isa" on unblessed refe <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1695	1785	
==>ter->ctx.bp.regs_i;
   goto *((void*)*(cur_opcode = (opcode_t *)
	opcode_to_prederef(interp <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	6462	6587	
==>y $code = "  .local int loop_num \n"
             . "  loop_num = register \n";
    $code .= emit('.local pmc temp');
    # lo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104083	1104171	
==>reter, NULL, NO_CLASS,\n\t\t\t\t\"Class '%Ss' not found\", class);\n\t{{\@1}} = pmc_new_i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105298	1105386	
==>reter, NULL, NO_CLASS,\n\t\t\t\t\"Class '%Ss' not found\", class);\n\t{{\@1}} = pmc_new_i <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2369	2476	
==>.

=cut

sub gen_goto
{
    my ($self, $where_str) = @_;
    return "return $where_str";
}

=item C<expr_pop <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	28705	28809	
==>seg}->{code}}, qq{\t.param $t $_\n};
			push @{$code{$seg}->{args}}, $_;
		} else {
			s/\(\)//g;
			$_=c <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	16968	17068	
==>}=$incase;
}



my $false;
my $whilecounter=0;
sub parse_while {
	$whilecounter++;
	push(@whiles, { j <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509875	510125	
==>MP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623235	623348	
==>UR_OPCODE;\n        n = PMC_int_val(mic->m.sig);\n\t{{+=n + 2}};\n    }\n    caller_ctx = cc->to_ctx;\n    interpr <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	6006	6112	
==>]);

print MODULE <<END_C;

1;
END_C

close MODULE;

# finally create an include file with opcode number

m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726000	726235	
==>src/ops/set.ops\"\n  {{\@1}} = string_copy(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726762	726997	
==>src/ops/set.ops\"\n  {{\@1}} = string_copy(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741980	742215	
==>src/ops/set.ops\"\n  {{\@1}} = string_copy(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	3207	3315	
==>ctories
{
    my $self = shift;
    
    return
        $self->directory_with_relative_path('compilers/ast'), <==
3	/Users/nnunley/parrot/Configure.pl	8648	8746	
==>n which case it'll prompt you for a few
pieces of info.

Since you're running this script, you obvi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57904	58136	
==>nterpinfo_s(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58666	58898	
==>nterpinfo_s(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	13992	14134	
==>ntent) <= $max_content_length)
           : 1)
        ) {
          # Some minimal sanity constraints, I think.
          DEBUG and print "  I <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	1302	1390	
==>'docs/memory_internals.pod'),
			$self->new_item('', 'docs/parrotbyte.pod'),
			$self->ne <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8559	8642	
==>rint
data "ABANDON","CHART","COMPUTER"
data "DAMAGES","DESTRUCT","DOCK","IDLE","IMPU <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21423	21506	
==>rint
data "ABANDON","CHART","COMPUTER"
data "DAMAGES","DESTRUCT","DOCK","IDLE","IMPU <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	5778	5885	
==>_space_2d:  # don't print a space if we're about to end a row
    if newline goto print_newline
    result . <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	4518	4618	
==>out output_fh.  Simplifies our code.
  #
  my $this = shift;
  return $this->{'output_string'} unless <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	319	445	
==>h && !-d $path) {
            $*ERR.say("Parameter to lib.import() must be directory, not file");
        }
        # add to th <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10618	10727	
==>verbatim'};
      }
      defined($scratch = $self->{'Tagmap'}{"/$tagname"}) or next;
      $scratch =~ s/\#([ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	22	146	
==>n "testrun.pl" being setup correctly.
#
#
$tn=0;
while(1) {
	{
		local $/="";
		$_=<DATA>;
	}
	if (/type / or /select/) { # / <==
3	/Users/nnunley/parrot/config/auto/headers.pm	189	287	
==>RIPTION

Probes for various C headers.

=cut

package auto::headers;

use strict;
use vars qw($desc <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33844	33950	
==>. ']},
				  Parse::RecDescent::_tracefirst($text),
				  q{' . $rule->{"name"} . '})
					if defined $::RD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696360	696765	
==>"ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 782,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic", <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	36095	36203	
==>e) = @_;
	my $class = ref($self) || $self;
	($max, $min) = ( $min, $max) if ($max<$min);

	my $desc;
	if ($su <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39176	39274	
==>+$_[1]->{dircount} .  '__'; }


sub new
{
	my ($class, $type, $minrep, $maxrep, $leftarg, $op, $rig <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83890	84184	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84796	85090	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85702	85996	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIR <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	12866	13001	
==>>(\w+)/;
            $extern = vtable_num($1);
            #print "$jit_func $extern\n";
        }

        elsif ($op->jump =~ /JUMP_RE <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5570	5688	
==>>

Get the callback set for C<$key> under the name C<$trigger>

Accepts a key name & a trigger name and returns a C<COD <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	33754	33846	
==>)', '{..}', '[..]', or '<..>'). Optionally it will also
respect quoted unbalanced brackets (s <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	3462	3597	
==>t};
        $cout .= <<"EOC";
    Parrot_Int type${class};
EOC
    }
    $cout .= <<"EOC";
    int pass;

    /*
     * create a library <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9679	9786	
==>ndef);
			};

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Dicard invalid token ".&$ShowCurToken.".\ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9245	9348	
==>ndef);
			};

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Dicard invalid token ".&$ShowCurToken.".\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716822	717013	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_newline",
                  "FLAGS" => ":base_io",
                  "A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724728	724919	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_newline",
                  "FLAGS" => ":base_io",
                  "A <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	952	1053	
==>AL WHITESPACE
   $skip  = '\s*';		# UNIVERSAL SEPARATOR IS OPTIONAL WHITESPACE
my $MAXREP  = 100_000_0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523012	523185	
==>c",
                              "n"
                            ],
                  "BODY" => "#line 744 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	3385	3483	
==>no suffix and if C<$suffix> is the empty string
then this method will return true.

=cut

sub has_s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20660	20744	
==>,
L<Pod::Simple::PullParserTextToken>, and
L<Pod::Simple::PullParserEndToken>.

L<HTM <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15145	15254	
==>b _handle_text {
  my $self = shift;   # leaving ($text)
  DEBUG > 2 and print "== $_[0]\n";
  push @{ $self-> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	914	998	
==>ed $ident and not UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identif <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	942	1026	
==>ed $ident and not UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identif <==
3	/Users/nnunley/parrot/languages/pugs/t/pmc.pm	316	418	
==>\.t$/ or die "malformed file: $file";
    my $type = "Pugs\u$1";

    main::pir_output_is(<< 'CODE', << <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	328	420	
==>or dynamic PMCs

=head1 DESCRIPTION

This file is generated by F<config/gen/makefiles.pl> fro <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	294	386	
==>or dynamic PMCs

=head1 DESCRIPTION

This file is generated by F<config/gen/makefiles.pl> fro <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	955	1073	
==>ard
    # Fink location. TODO: Need a more generalized way for finding
    # where Fink lives.
    if ($osname =~ /darw <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	1154	1272	
==>ard
    # Fink location. TODO: Need a more generalized way for finding
    # where Fink lives.
    if ($osname =~ /darw <==
3	/Users/nnunley/parrot/config/auto/readline.pm	1229	1347	
==>ard
    # Fink location. TODO: Need a more generalized way for finding
    # where Fink lives.
    if ($osname =~ /darw <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	8377	8513	
==>f->{fh};
        print {$FH} "  goto $op->{result}->{symbol}\n";
    }

    sub visitLabelOp {
        my $self = shift;
        my <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	8	109	
==>.pm
#
# Copyright (C) 2003-2005, The Perl Foundation.
# This program is free software. It is subject t <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	10	111	
==>.pm
#
# Copyright (C) 2003-2005, The Perl Foundation.
# This program is free software. It is subject t <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	30801	30921	
==>xx";
    if ($c =~ /to (\d+)/) {
	$targ = "pc_$1";
    }
    my $eh = temp('P');
    print <<EOC;
	newsub $eh, .Exception <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	421	524	
==>KAGE__->_export_to_level( 2, __PACKAGE__ );
}

my $count;

foreach my $meth ( qw(is isnt like) ) {
    n <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	338	441	
==>KAGE__->_export_to_level( 2, __PACKAGE__ );
}

my $count;

foreach my $meth ( qw(is isnt like) ) {
    n <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	20576	20683	
==>oreach my $attrname ('section', 'to') {        
            if(defined($thing = $treelet->[$i][1]{$attrname} <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	42060	42165	
==>oreach my $attrname ('section', 'to') {        
          if(defined($thing = $treelet->[$i][1]{$attrname} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	12170	12254	
==>ng1024\noproof\sbasedon25 pod-codelbock-bold;}
{\*\cs28 \additive \f1\lang1024\noproo <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	666	778	
==>arp;
    Carp::croak("Usage:\n use Pod::Simple::Debug (NUMVAL)\nor"
                    . "\n use Pod::Simple::De <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	485	595	
==>arp;
      Carp::croak("Usage:\n use Pod::Simple::Debug (NUMVAL)\nor"
                . "\n use Pod::Simple::De <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	2624	2724	
==>e likely to *never* be implemented.
	if ($syms[CURR] =~ /^(  screen | pset | preset | line | circle | <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1426	1546	
==>2) {
          $path_to_language = '.';
        } elsif ($dir_count >2) {
          $path_to_language = File::Spec->join( <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1911	2031	
==>2) {
          $path_to_language = '.';
        } elsif ($dir_count >2) {
          $path_to_language = File::Spec->join( <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	2471	2570	
==>/MMD_/);
        my $args = join(", ", 'Interp* interpreter', 'PMC* pmc', split(/\s*,\s*/, $entry->[ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	12912	13010	
==>pe
type third
	number as integer
	start as second
end type
dim y as third
t=y.start.narf+3
print y. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223611	223704	
==>table->get_integer(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224553	224646	
==>table->get_integer(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n" <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43831	43963	
==>L' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 205,
			'funct <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	9285	9387	
==>check that it's good as an XML Name symbol:
      Carp::croak "\"$new_code\" isn't a valid element name <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10549	10651	
==>check that it's good as an XML Name symbol:
      Carp::croak "\"$new_code\" isn't a valid element name <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	45776	45874	
==>in a quotelike operation from $text

		($op,$pat) = (extract_quotelike $text)[3,5];
		if ($op =~ /[ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	392	488	
==>_add_inst {
  my $self = shift;
  push @{$self->{instruction}},[@_];
}

#------------------------ <==
3	/Users/nnunley/parrot/config/init/hints.pm	212	304	
==>tform and local hints files, modifying the defaults set up in
F<config/init/default.pm>.

=cu <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	29152	29289	
==>h @opcodes, new CallOp( $parser,
        'result' => [ $_var,         $_limit,       $_step ],
        'arg1'   => $fct,
        'arg2' <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	6509	6609	
==>method.

.sub unicode:"dyadic:\u2296" :multi(pmc, APLVector) # rotate
    .param int op1
    .param p <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	228	323	
==>rot::Distribution;

    my $dist = Parrot::Distribution->new();

=head1 DESCRIPTION

C<Parrot::D <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40878	41010	
==>57
		}
	},
	{#State 171
		DEFAULT => -103
	},
	{#State 172
		DEFAULT => -101
	},
	{#State 173
		ACTIONS => {
			")" => 189 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	263	370	
==>| $class;
}

# Purely accessors:

sub tagname   { (@_ == 2) ? ($_[0][1] = $_[1]) : $_[0][1] }
sub tag { shif <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	240	345	
==>| $class;
}

# Purely accessors:

sub tagname { (@_ == 2) ? ($_[0][1] = $_[1]) : $_[0][1] }
sub tag { shif <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	2440	2600	
==>dir/$inc");
                move_if_diff("$inc.tmp", "$destfile");
                push(@generated, "$destfile");
                $in_def = '';
                n <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	2186	2307	
==>{rxlocals} ||= []);
        return (aop(comment => [ "save rxlocals for op" ]),
                map { aop('pushint' => [ $ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	39624	39722	
==>til another "/para" tag is
encountered:

	$text = "/para line 1\n\nline 3\n/para line 4";

	extract <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948357	948639	
==>0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949156	949438	
==>0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	78417	78512	
==>y("TRACE");
	$errortext = "Treating \"$what\" as $_[0]";
	$errorprefix = "Parse::RecDescent";
	$ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1677	1781	
==>rget, $pattern)
        : Parrot::Test::PGE::_generate_pir_for($target, $pattern)
    );

    goto &Parro <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2200	2304	
==>rget, $pattern)
        : Parrot::Test::PGE::_generate_pir_for($target, $pattern)
    );

    goto &Parro <==
3	/Users/nnunley/parrot/config/auto/aio.pm	108	205	
==>110975Z coke  $

=head1 NAME

config/auto/aio.pm - Test for AIO

=head1 DESCRIPTION

Determines wh <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	404	527	
==>ock);


#
# compile()
#

sub compile
{
  my $self     = shift; # Required:
  my $compiler = shift; # Required

#  my $namesp <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10075	10253	
==>und = $self->find_symbol($name);

  return $found ? $found->kind : undef;
}


###############################################################################

=head2 BLOCK->conten <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	30958	31056	
==>The raw original L<...> content, before text is split on "|", "/", etc,
# and before E<...> codes a <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	14263	14373	
==>ncase}=$incase+1;
		return;
	}

	my $lambda=<<GL;
	
	P0= P10[I25]
	P1= P0["SELECTS"]
	P5= P1["$jump"]      # St <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	57537	57645	
==>ly,$line);
				$prod and $prod->additem($item)
				      or  _no_rule("$code",$line);
				$aftererror = !$com <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	7187	7291	
==>tree?
    return $t if (defined($t->maxlen()) && $guarantee >= $t->maxlen());

    # Need more for even t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356032	356252	
==>s->strstart, s->bufused);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	5160	5342	
==>ned $refs{$name} ){
                $pre = "\\(";
                $pst = ")";
                $cmt = " # returns ref";
            }
            $out .= "  sub $name {$cmt\n    my \$r <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	19329	19439	
==>"
    ex["_message"] = err 
    throw ex

PIRCODE

    # Restore original instruction codes, but remove spaces. <==
3	/Users/nnunley/parrot/config/inter/libparrot.pm	76	169	
==>arrot.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/inter/libparrot.pm <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253822	254130	
==>{{\@2}} : {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254685	254993	
==>{{\@2}} : {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255548	255856	
==>{{\@2}} : {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4118	4223	
==>{
		*cur_opcode = CORE_OPS_wrapper__;
		continue;
	    }
	    internal_exception(1, "illegal opcode in swi <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	318	415	
==>g all the PMCs.

=head2 Class Methods

=over

=cut

package Parrot::Docs::Section::PMCs;

use stri <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490805	491064	
==>n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inc",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	491426	491685	
==>n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inc",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/config/inter/progs.pm	2518	2614	
==>/g;
    $ccflags = integrate($ccflags, $conf->options->get('ccflags'));
    $ccflags = prompt("Wh <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611953	612121	
==>c",
                              "p"
                            ],
                  "BODY" => "#line 491 \"src/ops/object.ops\"\n    VTABLE_set_attr(interpreter, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811496	811589	
==>\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812398	812491	
==>\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627272	627369	
==>If we're creating a continuation, the continuation PMC\n   * needs to be in the destination regist <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628416	628513	
==>If we're creating a continuation, the continuation PMC\n   * needs to be in the destination regist <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028470	1028721	
==>_ENEXT",
                  "NAME" => "sleep",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 115 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029321	1029572	
==>_ENEXT",
                  "NAME" => "sleep",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 115 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030162	1030413	
==>_ENEXT",
                  "NAME" => "sleep",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 115 <==
3	/Users/nnunley/parrot/config/auto/pack.pm	1034	1175	
==>$Config{longsize})) {
            $format = 'l!';
        } elsif ($size == 4) {
            $format = 'l';
        } elsif ($size == 8 || $Co <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	896	1001	
==>ree, $ctx);
    }

    my $rewrite = Regex::Rewrite->new(%options);
    my $code = $rewrite->run($tree, $c <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	6030	6133	
==>nless (! $next or _contains($next,@expected) )
		{
			push @expected, $next;
		}
	}

	return $self->{"ex <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	8507	8613	
==>e things here!
  }

  $self->{'source_fh'} = $handle;
  DEBUG and print "  Its handle is $handle\n";
  retu <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	960	1065	
==>]{'hide_line_numbers'};
        _xml_escape($value = $_[2]{$key});
        print $fh $ATTR_PAD, $key, '="' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18910	19000	
==>parser->header_halfpoint_size( I<halfpoint_integer> );

This method sets the size (in half- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106394	1106635	
==>interpreter->vtables[typ]->class;\n    {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107370	1107611	
==>interpreter->vtables[typ]->class;\n    {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	3969	4055	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub version_report {
  my <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279196	279515	
==>AME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 325,
                  "A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368967	369283	
==>",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 432,
                  "A <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19990	20100	
==>table values:

  1033  US English
  2057  UK English
  3081  Australia English
  4105  Canada English
  1034  S <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8432	8560	
==>'
            or  do {
#DBG>				$debug & 0x04
#DBG>			and	print STDERR 
#DBG>				    "go to state $$states[$$stack[-1][0]]{GO <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8050	8174	
==>'
            or  do {
#DBG>				$debug & 0x04
#DBG>			and	print STDERR 
#DBG>				    "go to state $$states[$$stack[-1][0]]{GO <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3440	3529	
==>@{$code{$seg}->{code}}, "\tpop \$S99, \$P99\n";
		push @{$code{$seg}->{code}}, "\t\$N99= \ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550103	550192	
==>nt_object = object;\n  interpreter->current_cont = NEED_CONTINUATION;\n  interpreter->curr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551404	551493	
==>nt_object = object;\n  interpreter->current_cont = NEED_CONTINUATION;\n  interpreter->curr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552746	552835	
==>nt_object = object;\n  interpreter->current_cont = NEED_CONTINUATION;\n  interpreter->curr <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1439	1546	
==>kely to ever need to construct an object of this class for
yourself, but if you want to, call
C<<
Pod::Simpl <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2591	2698	
==>kely to ever need to construct an object of this class for
yourself, but if you want to, call
C<<
Pod::Simpl <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1728	1835	
==>kely to ever need to construct an object of this class for
yourself, but if you want to, call
C<<
Pod::Simpl <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	972	1083	
==>o this because it has the side effect of setting
    # content_seen.
    $self->get_short_title();
    
    retu <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1000	1090	
==>= qq[.o];
our $CFLAGS = qq[-I/opt/local/include -fno-common -no-cpp-precomp  -pipe -Wdeclar <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1004	1094	
==>= qq[.o];
our $CFLAGS = qq[-I/opt/local/include -fno-common -no-cpp-precomp  -pipe -Wdeclar <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16568	16736	
==>er, 'pmc' );
                push @opcodes, new LocalDir( $parser,
                    'result' => $result,
                );
                push @opcodes, new Fin <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10715	10878	
==>er, 'pmc' );
                    push @opcodes,
                        new LocalDir( $parser, 'result' => $result, );
                    push @opcodes, new Fin <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	2648	2775	
==>redoc_value, $heredoc_terminator);
    while (<$fh>) {
        chomp;
        $line++;

        # If it's a blank line or a come <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8939	9048	
==>_relative_path
{
    my $self = shift;
    my $path = shift || return;
    my ($volume, $directories, $name) = <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9338	9447	
==>_relative_path
{
    my $self = shift;
    my $path = shift || return;
    my ($volume, $directories, $name) = <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	61254	61343	
==>.

=item  C<Unmatched opening bracket(s): "%s">

C<extract_bracketed>, C<extract_quotelike <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684068	684387	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "setprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684962	685281	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "setprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	7165	7258	
==>LE_> macros are enforced by converting C<<< I<< x >>->vtable->I<<
method >> >>> to C<VTABLE_I< <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807848	807937	
==>"#line 502 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed(interprete <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808753	808842	
==>"#line 502 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed(interprete <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11412	11533	
==>alue::Identifier->new($block, $token);
      my $op    = substr($self->forth->text, 0, -1);
      my $value = Jako::Constr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11959	12080	
==>alue::Identifier->new($block, $token);
      my $op    = substr($self->forth->text, 0, -1);
      my $value = Jako::Constr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12502	12623	
==>alue::Identifier->new($block, $token);
      my $op    = substr($self->forth->text, 0, -1);
      my $value = Jako::Constr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845921	846244	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chr",
                  "FLAGS" => ":b <==
3	/Users/nnunley/parrot/config/init/hints/darwin.pm	671	856	
==>> 1,
        ccflags             => $ccflags,
        ldflags             => $ldflags,
        ccwarn              => "-Wno-shadow",
        libs                => $libs,
        share_e <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	17328	17418	
==>et_source>:

=over

=item $parser->set_source( $filename )

=item $parser->set_source( $fil <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	16577	16693	
==>file = shift;
    my $pmc = $file;
    $pmc =~ s/\.\w+$/.pmc/;

    ($pmc ne $file) or die "$pmc is the same as the o <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7658	7756	
==>${CURIC}
dec ${ITEMP0}
dec ${ITEMP2}

# Generate name of register to hold value we pop off the stac <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6616	6714	
==>${CURIC}
dec ${ITEMP0}
dec ${ITEMP2}

# Generate name of register to hold value we pop off the stac <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164817	165081	
==>, {{\@1}}, {{\@2}}) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165746	166010	
==>, {{\@1}}, {{\@2}}) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166675	166939	
==>, {{\@1}}, {{\@2}}) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	518	614	
==>Block is not defined!" unless defined $block;
  confess "Left is not defined!" unless defined $le <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	530	626	
==>Block is not defined!" unless defined $block;
  confess "Left is not defined!" unless defined $le <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	4441	4536	
==>t);
    <<"DATA";
static /*const*/ char static_string_${line}_data\[\] = $text;
static /*const*/ <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	633	730	
==>ps can count
on an automatically generated next-op to be appended to the op body.

Note that F<too <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	9576	9682	
==>= {
END_C

    print SOURCE @op_func_table;

    print SOURCE <<END_C;
  (op_func${suffix}_t)0  /* NULL fun <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	21305	21406	
==>1["value"]= $val{$_->[2]}
	P2["$_->[0]"]= P1
NOTUSER
			} else {
				print CODE<<USERTYPE;
	new P1, .P <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	1547	1645	
==>nternals

To see the internal data structures please run:

    % perl tools/build/pmc2c.pl --c --de <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273635	273893	
==>876 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	274481	274739	
==>876 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	275327	275585	
==>876 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2618	2721	
==>});
    $self->left->sax($handler);
    $self->right->sax($handler);
    $handler->end_element({ Name => <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2495	2598	
==>});
    $self->left->sax($handler);
    $self->right->sax($handler);
    $handler->end_element({ Name => <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1728	1825	
==>});
  $self->left->sax($handler);
  $self->right->sax($handler);
  $handler->end_element({ Name => <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	34840	34939	
==>]+(\:\:[^\/\|,\$\%\@\ \"\<\>\:\#\&\*\{\}\[\]\(\)]+)*$/s) {
          # Extremely forgiving idea of w <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	53980	54112	
==>[2], $_[3] );
        }
	],
	[#Rule 65
		 'exp', 3,
sub
#line 369 "Lua\lua51.yp"
{
            BuildRelop( $_[0], $_[1], $_[2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011353	1011443	
==>DY" => "#line 39 \"src/ops/sys.ops\"\n  {{\@1}} = Parrot_Run_OS_Command(interpreter, {{\@2} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012118	1012208	
==>DY" => "#line 39 \"src/ops/sys.ops\"\n  {{\@1}} = Parrot_Run_OS_Command(interpreter, {{\@2} <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	7050	7161	
==>dest_stem ||= $src_stem;
    if (needs_build("$dest_stem$O", "$src_stem.c")) {
        run(compile_cmd("$dest_st <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5344	5455	
==>dest_stem ||= $src_stem;
    if (needs_build("$dest_stem$O", "$src_stem.c")) {
        run(compile_cmd("$dest_st <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7261	7372	
==>dest_stem ||= $src_stem;
    if (needs_build("$dest_stem$O", "$src_stem.c")) {
        run(compile_cmd("$dest_st <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	6861	7012	
==>\"$_\" (should be \"#$indent$2 $3\")\n");
            }
            push @stack, "#$2 $3";

            next;
        }
        if (/^\s*\#(\s*)(else|el <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2993	3110	
==>de[%ld]",

    'i'  => "IREG(%ld)",
    'n'  => "NREG(%ld)",
    'p'  => "PREG(%ld)",
    's'  => "SREG(%ld)",
    'k' <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1912	2023	
==>de[%ld]",

  'i'   => "IREG(%ld)",
  'n'   => "NREG(%ld)",
  'p'   => "PREG(%ld)",
  's'   => "SREG(%ld)",
  'k' <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	23580	23680	
==>B<output>

    $Test->output($fh);
    $Test->output($file);

Where normal "ok/not ok" test output sh <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	2607	2742	
==>inate' is supposed to make this impossible!"
      if @equivs;

    # Jump threading: replace
    #
    #  goto @1
    #  ...
    #  @1: <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11939	12033	
==>t)

Given a name or number that could appear in a
C<EE<lt>name_or_numE<gt>> sequence, this retu <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12436	12530	
==>t)

Given a name or number that could appear in a
C<EE<lt>name_or_numE<gt>> sequence, this retu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2525	2618	
==>$handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $self->op } } <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2402	2495	
==>$handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $self->op } } <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	30297	30388	
==>extracting a single-character-delimited substring from the start of
a string. For example, t <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35693	35794	
==>ng failed it will exit with how many failed.  If
you run less (or more) tests than you planned, the mi <==
3	/Users/nnunley/parrot/lib/Test/More.pm	33764	33865	
==>ng failed it will exit with how many failed.  If
you run less (or more) tests than you planned, the mi <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2560	2661	
==>ng failed it will exit with how many failed.  If
you run less (or more) tests than you planned, the mi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	1742	1866	
==>).
    KIND    => $kind,   # One of file, sub, if, else, while, etc.
    TYPE    => $type,   # Return type, if any.
    PREFI <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	796	896	
==>have bison... default to not having bison
    $conf->data->set(bison_version => undef);

    unless ( <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8717	8847	
==>very.\n";
#DBG>				$dbgerror=0;
#DBG>			};

			    push(@$stack,
                     [ $$states[$$stack[-1][0]]{GOTOS}{$lhs}, <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8325	8450	
==>very.\n";
#DBG>				$dbgerror=0;
#DBG>			};

			    push(@$stack,
                     [ $$states[$$stack[-1][0]]{GOTOS}{$lhs}, <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9247	9357	
==>_size);
        DEBUG and print "Indenting over $indent_stack[-1] twips.\n";
        $self->{'rtfindent'} += $i <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16441	16558	
==>uvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
            return $x;
        }
    }

    foreac <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9984	10086	
==>uvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
      return $x;
    }
  }
  foreac <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26823	26919	
==>de\n";
	push @{$code{$seg}->{code}},<<CALLSUB;
@code
CALLSUB
}
sub parse_sub {
	# Deja-vu from fu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130747	130993	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131601	131847	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132456	132702	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4596	4735	
==>n::Value::Identifier->new($block, $token);
      my $label = Jako::Construct::Label->new($block, $ident);
      next;
    }

    #
    # Mod <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3413	3519	
==>me ", join(", ", $dest, @args));
  }

  #
  # For regular (user-defined) and NCI (Native Call Interface) su <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	15922	16020	
==>["type"] = ELEMENT_TYPE_CLASS
    type_trans["byref"] = 0
    annotate_reg_type(type_trans)
    sty <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	926	1022	
==>elf->kind } });
  $_->sax($handler) foreach $self->content;
  $handler->end_element({ Name => 'bl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1939	2035	
==>elf->kind } });
  $_->sax($handler) foreach $self->content;
  $handler->end_element({ Name => 'bl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2733	2829	
==>elf->kind } });
  $_->sax($handler) foreach $self->content;
  $handler->end_element({ Name => 'bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	36343	36582	
==>tion(interpreter, eh);\n  {{+=2}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2295	2417	
==>e $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exists($$self{ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2211	2322	
==>e $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exists($$self{ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	10922	11042	
==>lf, $got, $expect, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # u <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	11340	11460	
==>lf, $got, $expect, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # u <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39634	39723	
==>op_peek_char,
  'eof-object?' => \&_op_eof_object_p,
  'char-ready?' => \&_op_char_ready_p <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	2971	3179	
==>{/) { #}
                $template = $1;
                $asm = q{};
                next;
            }
            else {
                $line =~ m/(extern\s*)?(\w+)\s*{/; #}
                $extern = (defi <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	1697	1794	
==>lowercase indicates that
it is local.

=item C<--type=bsd>

=item C<-B>

The same as C<--t>.

=ite <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	1837	1956	
==>, $curlabel . $outfunc->(@args);
	    $curlabel = "\t";
	} else {
	    die "Unable to output $op->[0]";
	}
    }
    ret <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	9062	9176	
==>at]\")");
        }
    }

}


sub check_manifest {
    open(F, "<MANIFEST") || die "Unable to read MANIFEST: $!\n" <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	760	857	
==>mple::PullParserToken> and inherits all its methods,
and adds these methods:

=over

=item $token- <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1186	1283	
==>mple::PullParserToken> and inherits all its methods,
and adds these methods:

=over

=item $token- <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	666	763	
==>mple::PullParserToken> and inherits all its methods,
and adds these methods:

=over

=item $token- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150547	150844	
==>GS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 183,
                  "ARGS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712469	712555	
==>rot_sprintf_c(interpreter, \"%.12g\", (double){{\@1}});\n  PIO_putps(interpreter, io, s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713576	713662	
==>rot_sprintf_c(interpreter, \"%.12g\", (double){{\@1}});\n  PIO_putps(interpreter, io, s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539295	539552	
==>,
                  "TYPE" => "inline",
                  "CODE" => 624,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 995 \"src/ops/math.o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719936	720022	
==>rot_sprintf_c(interpreter, \"%.12g\", (double){{\@2}});\n  PIO_putps(interpreter, io, s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721136	721222	
==>rot_sprintf_c(interpreter, \"%.12g\", (double){{\@2}});\n  PIO_putps(interpreter, io, s <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	1117	1234	
==>'eq', 'I0', '.Undef', 'write_KET'],
  ['',             'ne', 'I0', '.Array', 'write_DOT'],
  ['',             'print', <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	8349	8464	
==>: $!";
      $handle = *PODSOURCE{IO};
    }
    $self->{'source_filename'} = $_[0];
    DEBUG and print "  Its name <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	18143	18247	
==>O_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying production: ['
					  . $self->describe . ']},
					  P <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5817	5913	
==>$seg}->{code}}, "IFBRANCH_$_:\n";
			}
			while($_=pop(@{$elsestack->{$elsetag}})) {
				push @{$ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8163	8256	
==>$seg}->{code}}, "IFBRANCH_$_:\n";
		}
		while($_=pop(@{$elsestack->{$elsetag}})) {
			push @{$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	1319	1456	
==>f the op
    inconst       the argument passes a constant value into the op
    invar         the argument passes a variable value into th <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10780	10880	
==>'u', 'u', 'y', 'th', 'y',

);

{
  # Now stuff %Latin1Char_to_fallback:
  %Latin1Char_to_fallback = ( <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11490	11588	
==>} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_END_${CURIC}

# Do we have anything on the l <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131377	131686	
==>{{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132232	132541	
==>{{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133087	133396	
==>{{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	36001	36158	
==>will still be
considered a failure and will exit with 255.

So the exit codes are...

    0                   all tests successful
    255                 tes <==
3	/Users/nnunley/parrot/lib/Test/More.pm	34072	34229	
==>will still be
considered a failure and will exit with 255.

So the exit codes are...

    0                   all tests successful
    255                 tes <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2867	3024	
==>will still be
considered a failure and will exit with 255.

So the exit codes are...

    0                   all tests successful
    255                 tes <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	27398	27531	
==>their funeral.
        elsif( $num < @$test_results ) {
            $#{$test_results} = $num - 1;
        }
    }
    return $self->{C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	625096	625221	
==>t;\n        sig = (PMC*)(pred_pc[1]);\n        ASSERT_SIG_PMC(sig);\n        assert(SIG_ELEMS(sig) <= 1);\n        args[0] = S <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	8276	8374	
==><<END_C;
goto *${bs}ops_addr[*cur_opcode];

END_C
}



print SOURCE <<END_C;
/*
** Op Function Defi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404761	405065	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405673	405977	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406585	406889	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	841	956	
==>{
    BLOCK => $block,
    LEFT  => $left,
    RIGHT => $right
  }, $class;

  $block->push_content($self);

  retur <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	849	964	
==>{
    BLOCK => $block,
    LEFT  => $left,
    RIGHT => $right
  }, $class;

  $block->push_content($self);

  retur <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	884	987	
==>Not all platforms support this, a warning will be given if not. You can
try GNU C<nm> if you want this f <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	1939	2199	
==>ly able to translate " . scalar(@rules) . " out of 213 instructions.\n";


##############################################################################
# Subroutines.
##############################################################################

# Parse rule <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	13960	14064	
==>C
}

print SOURCE <<END_C;

/*
** op lib descriptor:
*/

static op_lib_t ${bs}op_lib = {
  "$base",		/* n <==
3	/Users/nnunley/parrot/config/auto/cgoto.pm	1016	1111	
==>EMP_cg_h => '$(INC_DIR)/oplib/core_ops_cg.h $(INC_DIR)/oplib/core_ops_cgp.h',
            TEMP_c <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3125	3278	
==>->YYData->{INPUT} ) {

        for ( $parser->YYData->{INPUT} ) {

            s/^'//
                and return ( $type, $str );

            s/^( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1939	2057	
==>sif ($distance == -1) {
        $comment = "pos--";
    } elsif ($distance > 0) {
        $comment = "pos += $distance" <==
3	/Users/nnunley/parrot/config/gen/platform.pm	2824	2935	
==>ally append generated
    @headers = grep { /\.h$/ } split(',', $generated);
    for (@headers) {
        if (-e <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	11537	11668	
==>num";
    };
    /2/ && do {
        push @{$temps_ref}, "PMC* t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$t <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	4225	4341	
==>e rather than the HTML version.
            $index_html .= $formatter->html_link(
                $target->relative_p <==
3	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	969	1066	
==>o  strict 'refs';
use Config;
use Getopt::Long;
use File::Copy;
use File::Basename;
use File::Path <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24186	24324	
==>32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 76
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" = <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	326	430	
==>e svn directories.  So far tested
with svn 1.2.0.

=cut

package main;

use strict;
use warnings;

use Fi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2168	2261	
==>llowing shortcuts:

=item $token->is_start

This is a shortcut for C<< $token->type() eq "star <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736680	736904	
==>set.ops\"\n  {{\@1}} = (FLOATVAL){{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737426	737650	
==>set.ops\"\n  {{\@1}} = (FLOATVAL){{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/config/inter/make.pm	2038	2143	
==>$stdout =~ /GNU \s+ Make \s+ (\d+) \. (\d+)/x) {
        $conf->data->set(gmake_version => "$1.$2");
    } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784272	784380	
==>,
                  "BODY" => "#line 392 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_pmc_keyed_int(interpre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785178	785286	
==>,
                  "BODY" => "#line 392 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_pmc_keyed_int(interpre <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	817	912	
==>on whether the C<inline> keyword is present
in the op definition. This has the effect of causing <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1108707	1108812	
==>on(interpreter, NULL, NO_CLASS,\n                    \"Class '%Ss' not found\", readable_name(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630569	630666	
==>on(interpreter, NULL, NO_CLASS,\n            \"Class '%Ss' not found\", readable_name(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631559	631656	
==>on(interpreter, NULL, NO_CLASS,\n            \"Class '%Ss' not found\", readable_name(interpreter, <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	14335	14434	
==>0["SELECTS"]
	P5= P1["$jump"]      # Stored value.
GL
	print CODE<<CASE_SETUP;
	goto CASE_${jump}_FI <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1999	2094	
==>r_bullet  { --$_[0]{'Indent'} }
sub   end_over_number  { --$_[0]{'Indent'} }
sub   end_over_text <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1567	1662	
==>r_bullet  { --$_[0]{'Indent'} }
sub   end_over_number  { --$_[0]{'Indent'} }
sub   end_over_text <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7159	7252	
==>", instr(4, bogus$, "t")
' instr() tests
s1$="Mixed case"
print ucase$(s1$);" Upper"
print lca <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18888	18981	
==>", instr(4, bogus$, "t")
' instr() tests
s1$="Mixed case"
print ucase$(s1$);" Upper"
print lca <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333107	333404	
==>,
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 391, <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6051	6149	
==>as been
	# propogated there already.
	$pir .= <<'PIR';
if 0x${CURIC} == 0x45 goto POST_BRANCH_switc <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3989	4087	
==>as been
	# propogated there already.
	$pir .= <<'PIR';
if 0x${CURIC} == 0x45 goto POST_BRANCH_switc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640248	640623	
==>,
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 715,
                  "ARGS" => [
                              "s",
                              "p"
                            ] <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36735	36841	
==>ption(interpreter, NULL, NULL_REG_ACCESS,
		"Null PMC access in $meth()");
        $ret
}

EOC
}

=back

=h <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	18417	18521	
==>d");
       signature = string_chopn(interpreter, signature, 1, 1);
       signature_len = string_length( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19462	19565	
==>op('match' => [ ord($_[1]) ]); }
	],
	[#Rule 12
		 'expr', 1,
sub
#line 115 "lib/Regex/Grammar.y"
{ retu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11434	11542	
==>$block, $token);
      my $op    = substr($self->forth->text, 0, -1);
      my $value = Jako::Construct::Expr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11981	12089	
==>$block, $token);
      my $op    = substr($self->forth->text, 0, -1);
      my $value = Jako::Construct::Expr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12524	12632	
==>$block, $token);
      my $op    = substr($self->forth->text, 0, -1);
      my $value = Jako::Construct::Expr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726402	726761	
==>RS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 814,
                  "ARGS" => [
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 29 \" <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	5921	6105	
==>= $field->[0];
            if ( defined $num_key ) {
                my $incr = new IncrOp( $parser,
                    'result' => $num_key,
                );
                $k <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	13874	13989	
==>b YIELD_VALUE
{
    my ($n, $c, $cmt) = @_;
    my $tos = promote(pop @stack);
    print <<EOC;
    	.pcc_begin_yiel <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146257	146393	
==>"
                            ],
                  "BODY" => "#line 91 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	2234	2365	
==>h )
    {
        # This dies if it fails.
        mkpath($self->parent_path);
    }
    
    return -e $self->parent_path;
}

=item <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	622900	623000	
==>ig, *ccont;\n    opcode_t *dest_pc;\n    void **dest_pred;\n    parrot_context_t *caller_ctx, *ctx;\n <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3941	4074	
==>al' });
        }

        my $ident = $2;
        $ident =~ s/^{(.*)}$/$1/; # Strip '{' and '}'.

        $handler->start_element({ N <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	22811	22926	
==>test($PConfig{exe}, $test_no);  
            $exe_f =~ s@[\\/:]@$PConfig{slash}@g;
            my $out_f = per_test( <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5380	5490	
==>} = concat ${STOREREG}
${INS} = concat " = pop s\n"
PIR
	}

	return $pir;
}

sub pre_call() {
    my $self = sh <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	786	933	
==>utput_is         => 'is_eq',
    output_like       => 'like',
    output_isnt       => 'isnt_eq',
                        );

foreach my $func ( key <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	525	635	
==>utput_is   => 'is_eq',
    output_like => 'like',
    output_isnt => 'isnt_eq',
);

foreach my $func ( key <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4806	4904	
==>ess defined $key and defined $trigger and defined $cb;

    my $verbose = defined $self->get('verbo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544501	544633	
==>n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n gcd = b<<p;\n saved_var1 /= gcd;\n {{\@1}} = saved <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545837	545969	
==>n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n gcd = b<<p;\n saved_var1 /= gcd;\n {{\@1}} = saved <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547173	547305	
==>n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n gcd = b<<p;\n saved_var1 /= gcd;\n {{\@1}} = saved <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2636	2757	
==>y $builder_func = $language_test_map{$func};

        # That's the reason for:   no strict 'refs';
        my $pass = $ <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2166	2283	
==>y $builder_func = $language_test_map{$func};
        # That's the reason for:   no strict 'refs';
        my $pass = $ <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2705	2822	
==>y $builder_func = $language_test_map{$func};
        # That's the reason for:   no strict 'refs';
        my $pass = $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14662	14773	
==>ps/core.ops\"\n  opcode_t * const loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	15349	15460	
==>ps/core.ops\"\n  opcode_t * const loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64068	64164	
==>ar =~ m/$EXACTLY/gco)
				{
					_parse("an exactly-$1-times subrule match", $aftererror,$line,"$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375709	375845	
==>"ic"
                            ],
                  "BODY" => "#line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376593	376729	
==>"ic"
                            ],
                  "BODY" => "#line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interp <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	5269	5411	
==>( $next->type eq 'text' )
    {
        my $text = $next->text;
        my $dist = Parrot::Distribution->new;
        
        # Only link to f <==
3	/Users/nnunley/parrot/config/auto/headers.pm	1224	1329	
==>ocket.h>
    #include <netinet/in.h>
    #include <arpa/inet.h>
    # hence add sys/types.h to the reprobe <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	2321	2426	
==>(bison_version => $3 ? "$1.$2$3" : "$1.$2");
    }

    $conf->data->set($util => $prog);
    $self->set_r <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	779	871	
==>r/bin/gcc-4.0 -c];
our $LD = qq[c++];
our $LDFLAGS = qq[-L/opt/local/lib -L/usr/local/lib -fl <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	783	875	
==>r/bin/gcc-4.0 -c];
our $LD = qq[c++];
our $LDFLAGS = qq[-L/opt/local/lib -L/usr/local/lib -fl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102400	102619	
==>ODE" => 127,
                  "ARGS" => [
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 130 \"src/ops/bit.ops\"\n  string_bitwise <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2663	2764	
==>g_type->name) {
      my $temp = $compiler->temp_reg($formal_arg_type);
      my $value = $args[$i]->c <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2363	2464	
==>g_type->name) {
      my $temp = $compiler->temp_reg($formal_arg_type);
      my $value = $args[$i]->c <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	21304	21462	
==>ame];
            }
            $self->{mmds} = @mmds;
        }
    }
    my $methlist = join(",\n        ", @meths);
    my $mmd_list = join(",\n        ", m <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7871	8027	
==>$code( $self, @sempar )
                            : @sempar ? $sempar[0] : undef;

            splice(@$stack,-$len,$len);

                $$check eq <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7516	7667	
==>$code( $self, @sempar )
                            : @sempar ? $sempar[0] : undef;

            splice(@$stack,-$len,$len);

                $$check eq <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3934	4037	
==>{DEST0} = concat ${STEMP0}
${DEST0} = concat "0"
PIR
	}

	return $pir;
}

sub post_load($) {
	my $self = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934030	934120	
==>" => "#line 435 \"src/ops/string.ops\"\n  {{\@1}} = string_downcase(interpreter, {{\@2}});\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934805	934895	
==>" => "#line 435 \"src/ops/string.ops\"\n  {{\@1}} = string_downcase(interpreter, {{\@2}});\ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2570	2671	
==>butes => { kind => 'infix', name => $self->op } });
    $self->left->sax($handler);
    $self->right-> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2447	2548	
==>butes => { kind => 'infix', name => $self->op } });
    $self->left->sax($handler);
    $self->right-> <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6913	7013	
==>f($line =~ m/^(=[a-zA-Z][a-zA-Z0-9]*)(?:\s+|$)(.*)/s) {
        # THIS IS THE ONE PLACE WHERE WE CONS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947651	947940	
==>"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1066,
                  "ARGS" => [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 526 \"src/ops/ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2719	2813	
==>in module-level code"
GOSUB Sub1
PRINT "ERR this line in main routine should be skipped"
Label1 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16686	16780	
==>in module-level code"
GOSUB Sub1
PRINT "ERR this line in main routine should be skipped"
Label1 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2680	2782	
==>s => { kind => $cond } });
    $handler->start_element({ Name => 'block', Attributes => { kind => 'test <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3444	3546	
==>s => { kind => $cond } });
    $handler->start_element({ Name => 'block', Attributes => { kind => 'test <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2631	2712	
==>--------------------------------------------------------------------------

%Name2 <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	598	704	
==>utput, $desc) = @_;
  
    $count = $self->{builder}->current_test + 1;

    $desc = $language unless $desc <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	590	694	
==>utput, $desc) = @_;

    $count = $self->{builder}->current_test + 1;

    $desc = $language unless $desc <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6992	7122	
==>rt them into an anchor name;
    
    my $name = $self->linearize_tokens(@to_unget);
    
    if ( defined $name ) 
    {
        $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434495	434601	
==>mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435510	435616	
==>mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1263	1365	
==>ffset)

#  define opcode_to_prederef(i, op)   (op ? \\
     (void**) (op   - CONTEXT(i->ctx)->pred_offs <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054396	1054491	
==>ace.\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to get null global.\");\n\n    next <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055523	1055618	
==>ace.\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to get null global.\");\n\n    next <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	998778	999098	
==>,
                  "ARGS" => [
                              "i",
                              "ic",
                              "sc",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	5716	5847	
==>ken->new(
        $file, $line, 'arith-assign', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^( \+ | - | \* | <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	3204	3310	
==>yms[CURR] ";
		}
		push @{$code{$seg}->{code}}, "'\n";
		goto PARSE;
	}
	if ($syms[CURR] eq "redim") {
		$s <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	309	405	
==>desc);

    perl6_stdout_isnt($code, qr/$expected/, $desc);

=head1 DESCRIPTION

This module prov <==
3	/Users/nnunley/parrot/lib/Test/More.pm	1643	1737	
==>at/, $test_name);
  unlike($this, qr/that/, $test_name);

  cmp_ok($this, '==', $that, $test_na <==
3	/Users/nnunley/parrot/lib/Test/More.pm	23840	23941	
==>en do I use SKIP vs. TODO?

B<If it's something the user might not be able to do>, use SKIP.
This incl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627307	627406	
==>he continuation PMC\n   * needs to be in the destination register before its init method\n   * copie <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628451	628550	
==>he continuation PMC\n   * needs to be in the destination register before its init method\n   * copie <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1629	1749	
==>');
        return $self;
    }

    if ($conf->options->get('ask')) {
        $prog = prompt($prompt, $prog ? $prog : $c <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1643	1763	
==>');
        return $self;
    }

    if ($conf->options->get('ask')) {
        $prog = prompt($prompt, $prog ? $prog : $c <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	4284	4402	
==>place_slashes                => 1
    );
    genfile(
        'languages/HQ9plus/config/makefiles/root.in' => 'language <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928766	929016	
==>> 1044,
                  "ARGS" => [
                              "i",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 385 \"src/ops/string.ops\"\n  switch ({{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683815	684038	
==>1}} = {{\@2}}->vtable->shift_pmc(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	10257	10364	
==>urn ".param $type $reg";
}


sub output_return {
    my ($self, $rettype, $retval) = @_;
    $retval = value <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	1483	1590	
==>OT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically from '$infile'
 * by $0.
 *
 * Any ch <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	3772	3879	
==>OT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically from '$infile'
 * by $0.
 *
 * Any ch <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614936	615047	
==>{{\@2}}, {{\@3}});\n    if (offset < 0) {\n        real_exception(interpreter, next, NO_CLASS,\n            \"Cl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616087	616198	
==>{{\@2}}, {{\@3}});\n    if (offset < 0) {\n        real_exception(interpreter, next, NO_CLASS,\n            \"Cl <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	324	420	
==>lib_deps.pl - List libc dependencies

=head1 SYNOPSIS

    % perl tools/dev/lib_deps.pl [object | <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478929	479157	
==>Divide by zero\");\n  {{\@1}} = floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479821	480049	
==>Divide by zero\");\n  {{\@1}} = floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1774	1886	
==>.pod
  
  =head1 PIE
  
  I like B<pie>!
  
  % perl -MPod::Simple::SimpleTree -MData::Dumper -e \
     "print Du <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51716	51819	
==>ps/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_trace(interpreter,   {{\@1}}); }\n  else         { Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52499	52602	
==>ps/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_trace(interpreter,   {{\@1}}); }\n  else         { Parro <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	418	525	
==>ub new
{
  my $class = shift;
  my ($block, $ident) = @_;

  confess("Block (" . ref($block) . ") not!") unl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	418	525	
==>ub new
{
  my $class = shift;
  my ($block, $ident) = @_;

  confess("Block (" . ref($block) . ") not!") unl <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	4344	4439	
==>"No then at $sourceline --  $syms[CURR]" if ($syms[CURR] ne "then");
		$singleif=1 if ($type[NEX <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924436	924668	
==>preter, enum_stringrep_one, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925227	925459	
==>preter, enum_stringrep_one, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	214	325	
==>ad1 SYNOPSIS

Tell the harness which language (and optionally, compiler) you want to use in a
file called F<t/ha <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	7015	7135	
==>for @vars;
            $code .= inline("  .local $1 ");
            $code .= emit(join(",", map {$_."_%0"} @vars), 'loop_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	97116	97366	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 120,
                  "ARGS" => [ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4039	4149	
==>issing mandatory parameter '".lc($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _DBLoad { <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3836	3938	
==>issing mandatory parameter '".lc($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _DBLoad { <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4353	4472	
==>e_func_decl
{
    my ($self, $core) = @_;

    return "opcode_t * " .
        $self->core_prefix .
        "$core(opcode <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2841	2960	
==>e_func_decl
{
    my ($self, $core) = @_;

    return "opcode_t * " .
        $self->core_prefix .
        "$core(opcode <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	31682	31779	
==>class).
	elsif ($rule->{'class'} eq 'store') {
		# Does the translator code actually store a value <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29198	29353	
==>> 74,
			"~=" => 73,
			"+" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' = <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41304	41459	
==>> 74,
			"~=" => 73,
			"+" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' = <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44450	44605	
==>> 74,
			"~=" => 73,
			"+" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' = <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	516	611	
==>ot::Docs::Item );

=item C<new_group($name, $text, @items)>

Returns a new group.

Use this when <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	3206	3316	
==>h my $rel_path (@rel_paths)
    {
        my $file = $source->file_with_relative_path($rel_path);
        my $f <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19054	19157	
==>o->{jump}:\n";
		return;
	}
	if ($do->{needstmt}) {
		my $false="0.0";
		feedme();
		my $which=$syms[CUR <==
3	/Users/nnunley/parrot/lib/Test/More.pm	6750	6845	
==>dea of your intentions.  $test_name is optional,
but we B<very> strongly encourage its use.

Sho <==
3	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	882	978	
==>ository. (Needed for
# distributions or in general when svn is not available).
# See docs/submiss <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3737	3833	
==>ository. (Needed for
# distributions or in general when svn is not available).
# See docs/submiss <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1575	1666	
==>_ERROR("Type is not a Jako::Construct::Type instance!")
    unless UNIVERSAL::isa($type, "Ja <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1423	1514	
==>_ERROR("Type is not a Jako::Construct::Type instance!")
    unless UNIVERSAL::isa($type, "Ja <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6182	6299	
==>>{lib} = 1;
        }
    }

    return (\%group_files, \%group_libs, \%pmc_group, \%pmc_libs);
}

sub modtime {
    m <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6393	6510	
==>>{lib} = 1;
        }
    }

    return (\%group_files, \%group_libs, \%pmc_group, \%pmc_libs);
}

sub modtime {
    m <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2776	2887	
==>l =~ /revision: (\d+)/       and $smoke{revision}     = $1;
  $html =~ /duration: (\d+)/       and $smoke{durati <==
3	/Users/nnunley/parrot/lib/Test/More.pm	10094	10217	
==>operator.

    # ok( $this eq $that );
    cmp_ok( $this, 'eq', $that, 'this eq that' );

    # ok( $this == $that );
    cm <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1216	1323	
==>it(".return()"); # Return to the previous inline chunk.
        $compiler->outdent;
        $compiler->emit( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196461	196724	
==>1}}, {{\@2}}, MMD_NUMCMP) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	50106	50201	
==>er", $aftererror,$line);
				$item = new Parse::RecDescent::Directive(
					'Text::Balanced::ext <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	50453	50548	
==>er", $aftererror,$line);
				$item = new Parse::RecDescent::Directive(
					'Text::Balanced::ext <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	12823	12933	
==>yadic:\u2193" :multi (Float, APLVector) # drop
    .param int op1
    .param pmc op2

    if op1 < 0 goto neg_l <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	28177	28280	
==>= @_;

  my($i, $treelet);
  my $start_line = $stack[0][1]{'start_line'};

  # A recursive algorithm imp <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	31678	31781	
==>= @_;

  my($i, $treelet);
  my $start_line = $stack[0][1]{'start_line'};

  # A recursive algorithm imp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234570	234822	
==>DE" => 273,
                  "ARGS" => [
                              "i",
                              "nc",
                              "n"
                            ],
                  "BODY" => "#line 599 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4166	4271	
==>so + B.so ... -> GROUP.so
    while (my ($group, $pmcs) = each %$group_files) {
        partial_link($grou <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4270	4375	
==>so + B.so ... -> GROUP.so
    while (my ($group, $pmcs) = each %$group_files) {
        partial_link($grou <==
3	/Users/nnunley/parrot/config/auto/jit.pm	539	649	
==>d JIT capability';
our @args        = qw(jitcapable miniparrot execcapable verbose);

sub runstep
{
    my ($se <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882025	882418	
==>ore",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 999,
                  "ARGS" => [
                              "s",
                              "sc" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033484	1033580	
==>lex_name);\n    }\n    VTABLE_set_pmc_keyed_str(interpreter, lex_pad, lex_name, {{\@2}});\n    {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034582	1034678	
==>lex_name);\n    }\n    VTABLE_set_pmc_keyed_str(interpreter, lex_pad, lex_name, {{\@2}});\n    {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123889	124175	
==>AL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124763	125049	
==>AL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125637	125923	
==>AL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443302	443602	
==>TYPE" => "inline",
                  "CODE" => 507,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 114 \"src/ops <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	8420	8522	
==>g on the stack.
sub pop_all {
    return <<'PIR'
${INS} = concat "s = new ResizablePMCArray\n"
PIR
}

1 <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Examples.pm	154	247	
==>Parrot::Docs::Section::Examples - Examples documentation section

=head1 SYNOPSIS

    use Par <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	5	100	
==>ge Regex::CodeGen::Rx;
use Regex::Ops::Tree ();
use base 'Regex::CodeGen';
use strict;

my $fail <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	5633	5727	
==>e with length checks, so that primitive matching
# operations (eg matching single characters or <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	7569	7700	
==>rc'     , 710,
 'tilde'    , 732,
 'ensp'     , 8194,
 'emsp'     , 8195,
 'thinsp'   , 8201,
 'zwnj'     , 8204,
 'zwj'      , 8205 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	417	542	
==>uct::Block);


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $kind        = $self->kind;
  m <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	397	522	
==>uct::Block);


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $kind        = $self->kind;
  m <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31117	31213	
==>e 'Parrot::Pmc2c';
import Parrot::Pmc2c qw( gen_ret );

=item C<implements($method)>

Always true <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34481	34577	
==>e 'Parrot::Pmc2c';
import Parrot::Pmc2c qw( gen_ret );

=item C<implements($method)>

Always true <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39737	39833	
==>e 'Parrot::Pmc2c';
import Parrot::Pmc2c qw( gen_ret );

=item C<implements($method)>

Always true <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8788	8907	
==>ub output_peekindex {
    my $self = shift;
    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('p <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8448	8567	
==>ub output_peekindex {
    my $self = shift;
    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('p <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	473	590	
==>----------------------------

sub _new_regs {
     return
  {
    I => { map { $_ => 0 } (0..31) },
    N => { map { $ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30536	30647	
==>n value: [}
						. $& . q{])},
						  Parse::RecDescent::_tracefirst($text))
							if defined $::RD_TRACE;'). <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28460	28569	
==>n value: [}
						. $& . q{])},
						  Parse::RecDescent::_tracefirst($text))
					if defined $::RD_TRACE;'). <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	6966	7059	
==>sultx
	_screen_locate(\$N101,\$N100)
XANDY
	} elsif (@codey and not @codex) {
	push @{$code{$s <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5517	5625	
==>d_inst ('', 'set', [$pair.'[1]',$return]);
      $self->_add_inst ('', 'set', [$return,$pair]);
      $self-> <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17065	17168	
==>d_inst ('', 'set',[$pair.'[1]',$return]);
    $self->_add_inst ('', 'set',[$return,$pair]);

    $self-> <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6552	6650	
==>d_inst('', 'set', [$pair.'[1]',$return]);
  $self->_add_inst('', 'set', [$return,$pair]);
  $self-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253318	253737	
==>ore",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 295,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ] <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	31734	31849	
==>e given $description and
a note to contact the author.

=cut

sub _whoa {
    my($check, $desc) = @_;
    if( $check <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	12531	12656	
==>length($head1_text_content) <= $max_content_length) # sanity
            : 1)
        ) {
          DEBUG and print "  It look <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	8838	8954	
==>'make_set_make' => '#',
             'memalign' => 'some_memalign',
             'mkdir' => 'perl -MExtUtils::Command <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	866	975	
==>cal $/; <DATA> };

my $CGI = new CGI;

#sub handle_request {
	#my ($self, $CGI) = @_;

	if ($CGI->url(-path => <==
3	/Users/nnunley/parrot/config/init/hints/darwin.pm	1085	1210	
==>ags       => '-bundle -undefined suppress',
        memalign            => 'some_memalign',
        has_dynamic_linking     => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948863	948970	
==>rot_string_trans_charset(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949663	949770	
==>rot_string_trans_charset(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Transcode.pm	131	234	
==>G = \&Pod::Simple::DEBUG; }
  else { *DEBUG = sub () {0}; }
}

foreach my $class (
  'Pod::Simple::Trans <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25099	25199	
==>R] eq "step") {
		($stepexpr, $type, @stepcode)=EXPRESSION();
	} else {
		$stepexpr="1.0";
	}
	$main: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2191	2286	
==>prefix) {
    $handler->start_element({ Name => 'cond', Attributes => { kind => $self->kind, nam <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93916	94133	
==>6,
                  "ARGS" => [
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 58 \"src/ops/bit.ops\"\n  string_bitwise_and(inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43674	43864	
==>\"\n  Parrot_push_mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44318	44508	
==>\"\n  Parrot_push_mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7552	7730	
==>e "In line rule name '$lhs' ill formed: ".
                        "report it as a BUG.\n";
                $$dotpos = $1;
            };

            @sempar =       $$dotpo <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7206	7379	
==>e "In line rule name '$lhs' ill formed: ".
                        "report it as a BUG.\n";
                $$dotpos = $1;
            };

            @sempar =       $$dotpo <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	12714	12810	
==>of $extern()", "RESULT",  "\$$optype$retcount"];
			} elsif (isbuiltin($sym)) {
				$extern=~s/\$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147986	148237	
==>ODE" => 180,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 98 \"src/ops/cmp.ops\"\n  if ({{\@1}} <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23804	23944	
==>> 28
		}
	},
	{#State 75
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39 <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5484	5579	
==>ND_C
}

=item C<run_core_finish($base)>

Returns the C code following the run core function.

=c <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3820	3915	
==>ND_C
}

=item C<run_core_finish($base)>

Returns the C code following the run core function.

=c <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2291	2394	
==>t->value);
    $self->SYNTAX_ERROR("Expression involves unknown variable %s.", $right->value) unless $ri <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2249	2352	
==>t->value);
    $self->SYNTAX_ERROR("Expression involves unknown variable %s.", $right->value) unless $ri <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2171	2274	
==>t->value);
    $self->SYNTAX_ERROR("Expression involves unknown variable %s.", $right->value) unless $ri <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	33890	34027	
==>ess defined $test_results->[$idx];
        }

        my $num_failed = grep !$_->{'ok'}, 
                              @{$test_results}[0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670645	670753	
==>{\@1}}->vtable->push_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671418	671526	
==>{\@1}}->vtable->push_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5063	5171	
==>};

#DBG>	my($debug)=$$self{DEBUG};
#DBG>	my($dbgerror)=0;

#DBG>	my($ShowCurToken) = sub {
#DBG>		my($ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4820	4922	
==>};

#DBG>	my($debug)=$$self{DEBUG};
#DBG>	my($dbgerror)=0;

#DBG>	my($ShowCurToken) = sub {
#DBG>		my($ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363520	363620	
==>, \"%f\", (double){{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle er <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364423	364523	
==>, \"%f\", (double){{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle er <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	7391	7486	
==>whether a plan has been defined. $plan is either C<undef> (no plan has been set), C<no_plan> (in <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	6586	6743	
==>,
             'i_syswait' => 'define',
             'i_termio' => undef,
             'i_termios' => 'define',
             'i_time' => undef,
             ' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13493	13621	
==>r_block = $self->pop_block;

      #
      # 'while' blocks:
      #
      # When we are ending the 'while' block, we might be be <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	14093	14201	
==>{
					die "No op code yet for $sym\n";
				} else {
					my($code, $return)=&{$opsubs{$sym}}($a1, $a2, "\$$o <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10910	11017	
==>nd undefines it.

Raises an exception if the delete fails.

=cut

sub delete
{
    # Use $_[0] so that we ca <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4744	4851	
==>nd undefines it.

Raises an exception if the delete fails.

=cut

sub delete
{
    # Use $_[0] so that we ca <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26010	26099	
==>XT;
	add $ps->{var}, $ps->{var}, FORLOOP_STEP_$ps->{num}
	goto FOR_$ps->{num}
AFTER_NEXT_$ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26195	26284	
==>XT;
	add $ps->{var}, $ps->{var}, FORLOOP_STEP_$ps->{num}
	goto FOR_$ps->{num}
AFTER_NEXT_$ <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1290	1403	
==>ram is specified then
    # the user is responsible for the consequences.
    if (defined $prog) {
        $conf-> <==
3	/Users/nnunley/parrot/config/inter/make.pm	1111	1224	
==>ram is specified then
    # the user is responsible for the consequences.
    if (defined $prog) {
        $conf-> <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1287	1400	
==>ram is specified then
    # the user is responsible for the consequences.
    if (defined $prog) {
        $conf-> <==
3	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1144	1250	
==>!!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically by $0.
 *
 * Any chang <==
3	/Users/nnunley/parrot/tools/build/revision_c.pl	518	624	
==>!!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically by $0.
 *
 * Any chang <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	267	370	
==>rx_stack';
    $ctx->{rx_ptmp} ||= 'rx_ptmp';
    $ctx->{rx_tmp} ||= 'rx_itmp';
    $ctx->{rx_pos} ||= ' <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8118	8269	
==>\n";

				return($semval);
			};

                $$check eq 'ABORT'
            and	do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Abort <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7754	7896	
==>\n";

				return($semval);
			};

                $$check eq 'ABORT'
            and	do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Abort <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	8943	9046	
==>nary operator that means
		# "Push the top of the stack onto the function's call stack"
		# No-arg funcs <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	170	274	
==>s that can be used to construct a
# syntax tree for a regular expression.
#

# Core ops generated by pars <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8515	8604	
==>+1);tab$(22);c$(i+2);tab$(32);c$(i+3)
next
print
data "ABANDON","CHART","COMPUTER"
data "D <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21379	21468	
==>+1);tab$(22);c$(i+2);tab$(32);c$(i+3)
next
print
data "ABANDON","CHART","COMPUTER"
data "D <==
3	/Users/nnunley/parrot/config/init/optimize.pm	556	666	
==>args = qw(verbose optimize);

sub runstep
{
    my ($self, $conf) = @_;

    # A plain --optimize means use per <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2730	2840	
==>pe);
      my $value = $args[$i]->compile($compiler);
      $compiler->emit("  $temp = $value");
      $args[$i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2430	2540	
==>pe);
      my $value = $args[$i]->compile($compiler);
      $compiler->emit("  $temp = $value");
      $args[$i <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1331	1602	
==>res();           # time N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = t <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	1331	1602	
==>res();           # time N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = t <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	1794	1888	
==>mper->Dump([$m],["*DEFAULT_RULE_MATCH"]);
  return reduce($m, $input);
}
sub minimatch {
  my ( <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	8233	8336	
==>er 4

=item B<ok>

  $Test->ok($test, $name);

Your basic test.  Pass if $test is true, fail if $test is <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5695	5788	
==>TEMP1}, ${PTEMP2}) = method_info_from_token(${ASSEMBLY}, ${ARG0})

# If there is a return type <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7915	8008	
==>TEMP1}, ${PTEMP2}) = method_info_from_token(${ASSEMBLY}, ${ARG0})

# If there is a return type <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	54049	54181	
==>69 "Lua\lua51.yp"
{
            BuildRelop( $_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 66
		 'exp', 3,
sub
#line 373 <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	3480	3574	
==>ionally implemented in subclasses to return the C code for the core's
init function. C<$base> i <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	1597	1691	
==>snt( $language, $code, $expected, $description)> 

Runs a langugage test and passes the test if <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32697	32812	
==>obligations.
        if ($rule->{'typeinfo'}) {
		    $pir .= "### typeinfo\n";
		    $pir .= sub_meta($rule->{'type <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	3169	3281	
==>op eq "*");
	return 50 if ($op eq "/");
	return 60 if ($op eq "^");
	return 70 if ($op eq ".");

	return 99 if ($ <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	315	443	
==>};
}


my %language_test_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    output_isnt       => 'isn <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	402	529	
==>};
}

my %language_test_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    output_isnt       => 'isn <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	484	599	
==>};
}

my %language_test_map = (
    output_is   => 'is_eq',
    output_like => 'like',
    output_isnt => 'isn <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	538815	539070	
==>} = tan((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15333	15461	
==>/eg;
      $x;
    } @_;
  } else { # return a single scalar
    ($x = ((@_ == 1) ? $_[0] : join '', @_)
    ) =~ s/([F\x00-\x1F\ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16514	16642	
==>/eg;
      $x;
    } @_;
  } else { # return a single scalar
    ($x = ((@_ == 1) ? $_[0] : join '', @_)
    ) =~ s/([F\x00-\x1F\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	33391	33686	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set_addr",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	34179	34474	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set_addr",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/EditorPlugins.pm	403	500	
==>s

=over

=cut

package Parrot::Docs::Section::EditorPlugins;

use strict;
use warnings;

use base <==
3	/Users/nnunley/parrot/config/auto/headers.pm	106	201	
==>28:15.110975Z coke  $

=head1 NAME

config/auto/headers.pm - C headers

=head1 DESCRIPTION

Prob <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3388	3483	
==>m, $op)>

Returns the C code for the specified op argument type (see
C<Parrot::OpTrans>) and val <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3532	3627	
==>m, $op)>

Returns the C code for the specified op argument type (see
C<Parrot::OpTrans>) and val <==
3	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	635	753	
==>ersion) {
        return wantarray ? @parrot_version : $parrot_version;
    }

    # Obtain the official version number <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	9388	9506	
==>"
        if $new_code =~
          m/[\x00-\x2C\x2F\x39\x3B-\x40\x5B-\x5E\x60\x7B-\x7F]/
            # Characters unde <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10652	10770	
==>"
        if $new_code =~
          m/[\x00-\x2C\x2F\x39\x3B-\x40\x5B-\x5E\x60\x7B-\x7F]/
            # Characters unde <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	4726	4869	
==>'i_mntent' => undef,
             'i_ndbm' => 'define',
             'i_netdb' => 'define',
             'i_neterrno' => undef,
             'i_ <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	5760	5879	
==>CONDITIONED_LINE(var):..." are skipped if
            # the "var" condition is false.
            # Lines with "#INVERSE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062461	1062558	
==>DY" => "#line 246 \"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    n <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8772	8868	
==>umber distribution
randomize timer
max=10
dim a(max)
for i = 0 to 100
	b=rnd*max+1
	a(b)=a(b)+1
n <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20013	20109	
==>umber distribution
randomize timer
max=10
dim a(max)
for i = 0 to 100
	b=rnd*max+1
	a(b)=a(b)+1
n <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	13141	13237	
==>num"><tmpl_var name=duration></td>
            <td class="leftsep num"><tmpl_var name=percentage> <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	4526	4657	
==>8,
 'aring'    , 229,
 'aelig'    , 230,
 'ccedil'   , 231,
 'egrave'   , 232,
 'eacute'   , 233,
 'ecirc'    , 234,
 'euml'     , 2 <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	26143	26239	
==>ubstring of $text that is bounded by
 # a C<BEGIN>...C<END> pair. Don't allow nested C<BEGIN> tag <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494371	494658	
==>= intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495239	495526	
==>= intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496107	496394	
==>= intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	5625	5758	
==>um = 0;
    my $sig = '';

    if (defined $args and not $args =~ m/^\s*$/ ) {
        foreach (split //, $args) {
            die "In <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	3813	3914	
==>e input files:
#

my $ops;
if ($core_flag) {
    $ops = Parrot::OpsFile->new( [ "src/ops/$file" ], $no <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	116	208	
==>:31.111564Z bernhard  $

=head1 NAME

Parrot::OpTrans::Compiled - Transform Parrot Bytecode T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480769	481024	
==>n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481772	482027	
==>n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482775	483030	
==>n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87173	87454	
==>,
                  "ARGS" => [
                              "p",
                              "p",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 1215 \"src/ops/core.ops\"\n  {{\@1}} = Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104105	1104192	
==>\n\t\t\t\t\"Class '%Ss' not found\", class);\n\t{{\@1}} = pmc_new_init(interpreter, type <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105320	1105407	
==>\n\t\t\t\t\"Class '%Ss' not found\", class);\n\t{{\@1}} = pmc_new_init(interpreter, type <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	1666	1776	
==>your pointers.  Parrot
should still compile and run, but you may see a ton of warnings.
END
    }

    # set fi <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	14009	14105	
==>p_1_pmc($file);

Returns the class structure from I<$file> for a .dump file.

=cut

sub dump_1_pm <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6323	6412	
==>m C<process_item_text_or_head_start_token($token)>

Process the item text or head start to <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559014	559185	
==>p",
                              "sc"
                            ],
                  "BODY" => "#line 131 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, * <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3861	3976	
==>self->scream(
            $self->{'line_count'},
            "=cut found outside a pod block.  Skipping to next bloc <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	15922	16050	
==>0;
        my $test = $this =~ /$usable_regex/ ? 1 : 0;
        $test = !$test if $cmp eq '!~';
        $ok = $self->ok( $test, $ <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	1244	1371	
==>_dir' => '/Users/nnunley/parrot',
             'byteorder' => '4321',
             'cc' => '/usr/bin/gcc-4.0',
             'cc_ <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	7040	7152	
==>ct;
            # declare struct, based on array:
    struct( CLASS_NAME => [ ELEMENT_NAME => ELEMENT_TYPE, ... ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733465	733705	
==>ne",
                  "CODE" => 823,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 134 \"src/ops/set.ops\"\n  {{\@1}} = s <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3468	3565	
==>st if
they do not match. The same pattern argument syntax above applies here.

=cut

sub pgeglob_i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351026	351265	
==>TVAL){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351688	351927	
==>TVAL){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	2284	2387	
==>$contents{'contents'}};
    }
    
    return $self->new_item($text, grep {defined} @contents);
}

=item <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760625	760732	
==>.ops\"\n  {{\@1}} = {{\@2}}->vtable->get_pmc(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	3371	3460	
==>_TABLES_H_GUARD
#include "parrot/cclass.h"
#define WHITESPACE  enum_cclass_whitespace
#def <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490478	490772	
==>"ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 562,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 534 \"s <==
3	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	248	345	
==>etting the current version.

=head2 Functions

=over 4

=cut

package Parrot::BuildUtil;

use stri <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	14463	14559	
==>ipped> skipped</span> and
		<span class="tests_unexpect"><tmpl_var name=unexpect> unexpectedly su <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2262	2371	
==>ad2       { $_[0]->emit_par(-3) }
sub end_head3       { $_[0]->emit_par(-2) }
sub end_head4       { $_[0]->emi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1830	1939	
==>ad2       { $_[0]->emit_par(-3) }
sub end_head3       { $_[0]->emit_par(-2) }
sub end_head4       { $_[0]->emi <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9540	9641	
==>('This test failed');

  skip('skip this test for now');

  flunk('this fails, but might work soon', : <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256413	256688	
==>! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257321	257596	
==>! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258229	258504	
==>! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126551	126680	
==>nst INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127686	127815	
==>nst INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128821	128950	
==>nst INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	368	473	
==>_fe }
sub D() { 0x10_32_54_76 }

# for internal use
sub MAX() { 0xFFFFFFFF }

# padd a message to a multip <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	1319	1423	
==>', 'TODO'),
            $self->new_item('This is a description of the steps someone should follow when th <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	9908	10010	
==>e);

  if (exists _get_arg($node,1)->{children}) {
    my @formals;
    ($symbol, @formals) = @{_get_ar <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2387	2498	
==>'.",
      $self->name, $sym->line, $sym->file);
  }

  #
  # Now that we've decided to actually declare the con <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2134	2245	
==>'.",
      $self->name, $sym->line, $sym->file);
  }

  #
  # Now that we've decided to actually declare the con <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	3686	3797	
==>_and_directory_paths()
{
    my $self = shift;
    
    return map  {
        File::Spec->catfile($self->{PATH}, <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	6633	6745	
==>y ($prev_source, $prev_func_name, $prev_def);

foreach my $op ($ops->ops) {
    my $func_name  = $op->func_name($ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29311	29404	
==>@_;
	
my $code = ''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying terminal: [' . $ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31408	31501	
==>@_;
	
my $code = ''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying terminal: [' . $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	27699	27815	
==>rt = $self->genlabel($op->{name}."_enter");
    return ( $db_back,
                       aop('goto', [ $db_start ]), <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276170	276261	
==>e 881 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) <= 0;\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277048	277139	
==>e 881 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) <= 0;\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277926	278017	
==>e 881 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) <= 0;\n <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2496	2598	
==>-lpthread -lm -L/opt/local/lib  -licuuc -licudata -lpthread -lm';
        $extraLibs =~ s/blib/..\\blib <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2805	2907	
==>-lpthread -lm -L/opt/local/lib  -licuuc -licudata -lpthread -lm';
        $extraLibs =~ s/blib/..\\blib <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2600	2702	
==>-lpthread -lm -L/opt/local/lib  -licuuc -licudata -lpthread -lm';
        $extraLibs =~ s/blib/..\\blib <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	1696	1781	
==>Wdeclaration-after-statement -I/usr/local/include -I/opt/local/include -pipe -fno-comm <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1084	1169	
==>Wdeclaration-after-statement -I/usr/local/include -I/opt/local/include -pipe -fno-comm <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1088	1173	
==>Wdeclaration-after-statement -I/usr/local/include -I/opt/local/include -pipe -fno-comm <==
3	/Users/nnunley/parrot/languages/regex/regex.pl	1149	1264	
==>xpression!";
}

if (defined $expr_file) {
    local *IN;
    local $/;
    open(IN, "<$expr_file")
      or die "ope <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12171	12267	
==>LSO

L<Pod::Simple>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rig <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3089	3185	
==>LSO

L<Pod::Simple>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rig <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	8734	8842	
==>st->val) = val;
    Parrot_convert_arg(interpreter, st);
    Parrot_store_arg(interpreter, st);
}

static voi <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	8975	9083	
==>st->val) = val;
    Parrot_convert_arg(interpreter, st);
    Parrot_store_arg(interpreter, st);
}

static voi <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	9215	9323	
==>st->val) = val;
    Parrot_convert_arg(interpreter, st);
    Parrot_store_arg(interpreter, st);
}

static voi <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2242	2364	
==>:   no strict 'refs';
        my $pass = $self->{builder}->$builder_func(
                       Parrot::Test::slurp_file($ <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2781	2903	
==>:   no strict 'refs';
        my $pass = $self->{builder}->$builder_func(
                       Parrot::Test::slurp_file($ <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2715	2829	
==>:   no strict 'refs';
        my $pass = $self->{builder}
            ->$builder_func( Parrot::Test::slurp_file($ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1772	1907	
==>tion() {
	# Nothing to do.
	return "";
}

# Extra subroutines required for the mapper.
sub subs() {
	# No extra subs.
	return "";
}

# L <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	812	947	
==>tion() {
	# Nothing to do.
	return "";
}

# Extra subroutines required for the mapper.
sub subs() {
	# No extra subs.
	return "";
}

# L <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	569	704	
==>tion() {
	# Nothing to do.
	return "";
}

# Extra subroutines required for the mapper.
sub subs() {
	# No extra subs.
	return "";
}

# L <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819331	819550	
==>"CODE" => 928,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 79 \"src/ops/stack.ops\"\n  Stack_Entry_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21306	21419	
==>.ops\"\n  if (!string_bool(interpreter, {{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2359	2448	
==>Simple::DumpAsText->filter(shift)->any_errata_seen" \
   thingy.pod

=head1 DESCRIPTION

T <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9281	9388	
==>ncat "\n"

# Decrement stack height.
dec stack_depth
PIR
	}

	return $pir;
}

# Pre and post call hooks.
sub <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6799	6906	
==>ncat "\n"

# Decrement stack height.
dec stack_depth
PIR
	}

	return $pir;
}

# Pre and post call hooks.
sub <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18434	18525	
==>ock();
      my $sub_name = Jako::Construct::Expression::Value::Identifier->new($block, $tok <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	259	381	
==>value given to lib.import()");
        }
        if (-e $path && !-d $path) {
            $*ERR.say("Parameter to lib.impor <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421803	421897	
==>e 562 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_bind(interpreter, {{\@2}}, {{\@3}});\n    { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422696	422790	
==>e 562 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_bind(interpreter, {{\@2}}, {{\@3}});\n    { <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1329	1451	
==>lsif ($dir_count == 1) {
          $path_to_language = $language;
        } elsif ($dir_count == 2) {
          $path_to_la <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1814	1936	
==>lsif ($dir_count == 1) {
          $path_to_language = $language;
        } elsif ($dir_count == 2) {
          $path_to_la <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	3689	3787	
==>fg{display_help};

if ( ! defined $cfg{method} ) {
    $cfg{method} = $ini->val( global => 'method' <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9542	9657	
==>token eq ''	# End of input: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	print STDERR "**At eof: aborti <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9112	9224	
==>token eq ''	# End of input: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	print STDERR "**At eof: aborti <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	622997	623104	
==>x;\n    parrot_cont_t cc;\n    int n;\n\n    ctx = CONTEXT(interpreter->ctx);\n    mic = (Parrot_MIC *) cur_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	28731	28859	
==>->[$i]} == 2
           or (@{$treelet->[$i]} == 3 and $treelet->[$i][2] eq '')
      ) {
        $self->whine( $start_line, "A n <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	32312	32435	
==>->[$i]} == 2
       or (@{$treelet->[$i]} == 3 and $treelet->[$i][2] eq '')
      ) {
        $self->whine( $start_line, "An <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	42714	42837	
==>->[$i]} == 2
       or (@{$treelet->[$i]} == 3 and $treelet->[$i][2] eq '')
      ) {
        $self->whine( $start_line, "An <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4085	4186	
==>is a subclass of L<Pod::Simple> and inherits all its methods.

=head1 SEE ALSO

L<Pod::Simple>, L<Pod: <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3526	3627	
==>is a subclass of L<Pod::Simple> and inherits all its methods.

=head1 SEE ALSO

L<Pod::Simple>, L<Pod: <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1262	1363	
==>is a subclass of L<Pod::Simple> and inherits all its methods.

=head1 SEE ALSO

L<Pod::Simple>, L<Pod: <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	3114	3235	
==>the return type on the same line.
        $cmd =~ s/-psl/-npsl/g;	
    }
    foreach (sort keys %$typedefs) {
        $cmd <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	13789	13903	
==>) = @_;

    $other_decl ||= "";

    $other_decl .= join("\n    ", @{$temps_ref});
    my $call_state = 'struct ca <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	678	784	
==>) = @_;
    return () unless $self->{DEBUG};
    return () unless $self->{DEBUG_SUPPORT};
    return ("goto <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947178	947407	
==>t '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948080	948309	
==>t '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	1356	1514	
==>ompiler(register_num,pir_code)
  .return invokable()
.end
END_PIR

}

sub pir_cmds_in_dir {
    my ($dir) = @_;
    
    opendir(DIR,$dir);
    # only return p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035545	1035641	
==>x_name, ctx);\n    PMC *result = NULL;\n\n    if (!PMC_IS_NULL(lex_pad))\n\tresult = VTABLE_get_p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036709	1036805	
==>x_name, ctx);\n    PMC *result = NULL;\n\n    if (!PMC_IS_NULL(lex_pad))\n\tresult = VTABLE_get_p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	67184	67278	
==>eter, 0);\n  else\n    if (interpreter->arena_base->num_early_DOD_PMCs)\n      Parrot_do_dod_ru <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	10085	10203	
==>$value);
    $DB::single = 1 unless length($value);
    return ".arg $value";
}

sub output_param {
    my ($self, $nam <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	304	409	
==>t base this class on a hash.
sub new() {
	my $invocant = shift;
	return bless {}, $invocant;
}

# Pre-tran <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	212	317	
==>t base this class on a hash.
sub new() {
	my $invocant = shift;
	return bless {}, $invocant;
}

# Pre-tran <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	645	744	
==>D) have ""s embedded in their substution values. q[] is used in
# some places as Win32 paths have \' <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	603	702	
==>D) have ""s embedded in their substution values. q[] is used in
# some places as Win32 paths have \' <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	607	706	
==>D) have ""s embedded in their substution values. q[] is used in
# some places as Win32 paths have \' <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9958	10062	
==>ast to first, but need to be first to last in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = eleme <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7472	7576	
==>ast to first, but need to be first to last in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = eleme <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6436	6540	
==>ast to first, but need to be first to last in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = eleme <==
3	/Users/nnunley/parrot/config/auto/byteorder.pm	732	880	
==>r;

    if ($byteorder =~ /^1234/) {
        $conf->data->set(
            byteorder => $byteorder,
            bigendian => 0
        );
        $se <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	135	235	
==>ard  $

=head1 NAME

Parrot::OpsFile - Ops To C Code Generation

=head1 SYNOPSIS

  use Parrot::OpsFi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2783	2883	
==>ub new {
  my $new = shift->SUPER::new(@_);
  #$new->nix_X_codes(1);
  $new->nbsp_for_S(1);
  $new->a <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3138	3237	
==>ub new {
  my $new = shift->SUPER::new(@_);
  $new->nix_X_codes(1);
  $new->nbsp_for_S(1);
  $new->a <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27215	27304	
==>y $code = ''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying terminal: [' . $sel <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29318	29407	
==>y $code = ''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying terminal: [' . $sel <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31415	31504	
==>y $code = ''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying terminal: [' . $sel <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813529	813760	
==>NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 91 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814154	814385	
==>NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 91 <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	1836	1993	
==>= ([^?]*)  )? # optional default value

        (\+?)             # is this repeating?

        (\??)             # optional closing ?
    }xo;
    
    while <==
3	/Users/nnunley/parrot/Configure.pl	6826	6943	
==>goto core - recommended when short of mem
   --jitcapable         Use JIT
   --execcapable        Use JIT to emit a na <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	13042	13159	
==>p_tree {
    my ($op) = @_;
    my $ref = $op->reftree();
    return dump_ref($ref);
}

sub dump_ref {
    my ($ref, $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	797	890	
==>used for block-related labels. For
example, B<while> loops have labels related to the loop con <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3330	3432	
==>my ($self, $reg, $dest) = @_;
    $reg = value($reg);
    return "goto " . $self->output_label_use($des <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3478	3580	
==>my ($self, $reg, $dest) = @_;
    $reg = value($reg);
    return "goto " . $self->output_label_use($des <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	1889	2002	
==>LINE__ will reoccur if #line directives
    # are used.
    my %lines_seen;
    while (<IN>) {
	if (m/^\s*#\s*line <==
3	/Users/nnunley/parrot/lib/Test/More.pm	16135	16234	
==>est->diag(@_);
}


=back

=head2 Module tests

You usually want to test if the module you're testing <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20404	20500	
==>th a Pod::PullParser
object (and not an object of a subclass), then there's no reason to
bother s <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1545	1653	
==>QUOTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as they may contain spaces.
    $PATHQUOTE = '"' <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1590	1698	
==>QUOTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as they may contain spaces.
    $PATHQUOTE = '"' <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1594	1702	
==>QUOTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as they may contain spaces.
    $PATHQUOTE = '"' <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	631	726	
==>stall prefix. Defaults to '/usr'.

=item C<exec_prefix>

The exec prefix. Defaults to '/usr'.

= <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	860	955	
==>stall prefix. Defaults to '/usr'.

=item C<exec_prefix>

The exec prefix. Defaults to '/usr'.

= <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63175	63276	
==>code$argcode($1)");

						!$matchrule and $rule and $rule->addcall($name);

						_check_insatiable($ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63896	63997	
==>code$argcode($1)");

						!$matchrule and $rule and $rule->addcall($name);

						_check_insatiable($ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	631	725	
==>.
The parameter C<$code> is the code that should be executed or transformed.
The parameter C<$e <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	2735	2871	
==>'ARRAY' ){
        $out .= "    my(\$r) = [];\n";
    }
    while( $idx < @decls ){
        $name = $decls[$idx];
        $type = $decls[ <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	20381	20494	
==>=~ /to (\d+)/) {
	    $targ = "pc_$1";
	}
	$op = $op_map{$c};
    }
    elsif ($opcode eq 'UNARY_NOT' && $code[$co <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	37014	37111	
==>ichael G Schwern E<lt>schwern@pobox.comE<gt>.

This program is free software; you can redistribute <==
3	/Users/nnunley/parrot/lib/Test/More.pm	37423	37520	
==>ichael G Schwern E<lt>schwern@pobox.comE<gt>.

This program is free software; you can redistribute <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	6383	6480	
==>ichael G Schwern E<lt>schwern@pobox.comE<gt>.

This program is free software; you can redistribute <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3082	3200	
==>Label2   'Cannot return from here to main
                   'program - only to SUB1.
' Exit tests
sub mysub(b,c)
	prin <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17049	17167	
==>Label2   'Cannot return from here to main
                   'program - only to SUB1.
' Exit tests
sub mysub(b,c)
	prin <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12476	12573	
==>eturns C<undef> if the current documentation file is the file for the 
module.

=cut

sub href_for <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4014	4116	
==>de eq 'linklibs') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4118	4220	
==>de eq 'linklibs') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2831	2935	
==>me;
}

sub props { return %{shift->{PROPS}}; }
sub args  { return @{shift->{ARGS}};  }

sub file  { retur <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	1240	1333	
==>> will be interpreted as being relative to the
C<$target> argument in C<write_html()>. There s <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	12774	12894	
==>ef and nothing else
        my $test = defined $got || defined $dont_expect;

        $self->ok($test, $name);
        $s <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	13218	13338	
==>ef and nothing else
        my $test = defined $got || defined $dont_expect;

        $self->ok($test, $name);
        $s <==
3	/Users/nnunley/parrot/config/init/hints/solaris.pm	74	165	
==>s/solaris.pm 19593 2006-05-30T02:28:15.110975Z coke  $

package init::hints::solaris;

use s <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	3414	3523	
==>s the empty string
then this method will return true.

=cut

sub has_suffix
{
    my $self = shift;
    my $su <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288337	288611	
==>\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289193	289467	
==>\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290049	290323	
==>\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2154	2279	
==>al_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2446	2571	
==>al_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2241	2366	
==>al_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609767	610064	
==>LAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 691,
                  " <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	2450	2586	
==>~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~

sub get_token {
  my $self = shift;
  DEBUG > 1 and print "\nget_token sta <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	13650	13770	
==>s.
        #

        $branch   ||= $body =~ s/\bgoto\s+OFFSET\(\( (.*?) \)\)/{{+=$1}}/mg;
        $absolute ||= $body =~ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	817652	817804	
==>=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818430	818582	
==>=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUM <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	12651	12738	
==>_[0]->head2_halfpoint_size(),
   $_[0]->head3_halfpoint_size(),
   $_[0]->head4_halfpoin <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53178	53280	
==>,$self)
				      or  _no_rule($code,$line);

				$item = new Parse::RecDescent::UncondReject($lookahea <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54887	54989	
==>,$self)
				      or  _no_rule($code,$line);

				$item = new Parse::RecDescent::UncondReject($lookahea <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826737	826989	
==>} = UVal_num(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827807	828059	
==>} = UVal_num(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	4777	4871	
==>nd print "# Output string set to $x ($$x)\n";
  $this->{'output_fh'} = Pod::Simple::TiedOutFH-> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	1233	1373	
==>$)}x) {
      push @tokens, Jako::Token->new(
        $file, $line, 'literal', 'N', $1);
      $text = $2;
      next;
    }

    #
    # Int <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3946	4064	
==>fail if $lenvar - <rx_pos> < $needed; # need $needed more chars";
    }
}

sub output_match {
    my ($self, $code, $fa <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2615	2713	
==>& defined(PARROT_CGP_REGS)
    register opcode_t *cur_opcode asm ("esi") = cur_op;
    register cha <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	584	732	
==>o work, but it's safer than "" as some platforms
# (eg FreeBSD) have ""s embedded in their substution values. q[] is used in
# some places as Win32 p <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	542	690	
==>o work, but it's safer than "" as some platforms
# (eg FreeBSD) have ""s embedded in their substution values. q[] is used in
# some places as Win32 p <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	546	694	
==>o work, but it's safer than "" as some platforms
# (eg FreeBSD) have ""s embedded in their substution values. q[] is used in
# some places as Win32 p <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18425	18547	
==>0],
    );
    my $fct = [ $result, \@opcodes ];
    unshift @{$args}, $obj;
    return BuildCallFunction( $parser, $fc <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	22174	22287	
==>nless @msgs;

    # Prevent printing headers when compiling (i.e. -c)
    return if $^C;

    # Smash args togethe <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	70	160	
==>rot/lib/Parrot/Op.pm 20321 2006-06-20T20:02:00.179448Z bernhard  $

=head1 NAME

Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702389	702838	
==>"o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 788,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" = <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	2200	2320	
==>per line, and
is relative to the languages dir.

If called with no args, run the suite.

=cut

    if ( grep { /^--files$ <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	9321	9433	
==>KET ]}\": $!\n";

  my $data   = eval { fd_retrieve $fh };
  $data    ||= [MAX_RATE, BURST];
  my $bucket = Algor <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1884	1995	
==>m->line, $sym->file);
  }

  #
  # Now that we've decided to actually declare the sub, we will place its
  # def <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	43882	43980	
==>a prefix to be matched at the very beginning of the text. If no prefix 
is specified, optional whit <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9296	9393	
==>('verbose');

    my ($cc, $ccflags, $ldout, $o, $link, $linkflags, $cc_exe_out, $exe, $libs) = $c <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	65	161	
==>o Blocks.

=head1 SYNOPSIS

TODO

=head1 DESCRIPTION

A subclass of Jako::Construct.

Maintains a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658278	658366	
==>NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659197	659285	
==>NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+ <==
3	/Users/nnunley/parrot/config/init/hints/darwin.pm	1718	1930	
==>stall_name " .
                               $conf->data->get('lib_dir') .
                               $conf->data->get('slash') .
                               "libparrot" .
                               $c <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	30334	30443	
==>ector {
}

sub _op_vector_fill_bang {
}

sub _op_procedure_p {
  my ($self, $node) = @_;
  my $return;

  _che <==
3	/Users/nnunley/parrot/config/init/hints/cygwin.pm	305	407	
==>ndard installation, so we get rid of it
    my $libs = $conf->data->get('libs');
    $libs =~ s/-lutil\ <==
3	/Users/nnunley/parrot/config/gen/icu.pm	2596	2714	
==>fined $icushared;
        print "headers='$icuheaders'\n"  if defined $icuheaders;
    }

    if ($without) {
        $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	17422	17535	
==>okay)
  "\f"   => "\n\\page\n", # Formfeed
  "-"    => "\\_",        # Turn plaintext '-' into a non-breaking hyph <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015126	1015419	
==>", 0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "err",
                  " <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	3310	3415	
==>rn 100 if (isbuiltin $op);
	return 100 if (isuserfunc $op);
	return 100 if (isarray $op and 
				(($next a <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	3304	3401	
==>PIR code and passes the test if a string comparison of the output
with the unexpected result is fa <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7875	7978	
==>1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}

# Put it in the parameter register list.
${PARA <==
3	/Users/nnunley/parrot/tools/dev/as2c.pl	474	603	
==>ate_s {
    my $cmd = shift;
    my $r = system($cmd);
    if ($r) {
	die "$cmd failed: $r";
    }
}

sub parse_s {
    my $s = sh <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	3573	3680	
==>ined $_[0] ? \$_[0] : \$_;
	my $ldel = defined $_[1] ? $_[1] : '{([<';
	my $pre  = defined $_[2] ? $_[2] : ' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	21069	21217	
==>oop
#         back: popint -> haveTries_flag
#               if (haveTries_flag) goto R.back
#               goto lastback
#         next:
#
# R*? -> <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	13517	13631	
==>APLVector) # reshape
    .param pmc op1
    .param pmc op2

    # XXX is a clone needed here?
    op2.'set_shape'(o <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	9492	9589	
==>e are
  #  typically at the end of the document:
  $this->_get_titled_section('AUTHOR' , max_token <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447923	448194	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_cor <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	448749	449020	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_cor <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	18436	18531	
==>re = string_chopn(interpreter, signature, 1, 1);
       signature_len = string_length(interprete <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	16303	16407	
==>self->get_token) {
     ...process each token...
   }
 }

=head1 DESCRIPTION

This class is for using Pod <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	2109	2203	
==>nished copying symbol table to parent block.\n", __PACKAGE__;

  return 1 unless $self->content <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	863	1011	
==>=> 1,
    iter => 1,
    filter => 1,
    list => 1,
    long => 1,
    int => 1,
    map => 1,
    max => 'v',
    min => 'v',
    range => 1,
    x <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	3432	3541	
==>tribute="Octal" context="#stay" />
          <HlCHex attribute="Hex" context="#stay" />
          <Float attri <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7636	7726	
==>1]',$temp]);
  $self->_add_inst('', 'set', [$copy,$temp]);
  $self->_add_inst('', 'branch', <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	1429	1543	
==>ccess to key values.

Accepts a list and returns a list.

=cut

sub get
{
    my $self = shift;

    my $c = $self- <==
3	/Users/nnunley/parrot/lib/Test/More.pm	25272	25384	
==>s usually means you passed an array or hash instead 
of a reference to it
WARNING
        chop $msg;   # clip off <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3983	4092	
==>len>";
    my $fail = $self->output_label_use($failLabel);
    if ($needed eq "1") {
        return "ge <rx_po <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033526	1033750	
==>d_str(interpreter, lex_pad, lex_name, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034624	1034848	
==>d_str(interpreter, lex_pad, lex_name, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	1093	1243	
==>OCK     => $block,

    KIND      => 'unless',
    LEFT      => $left,
    OP        => $op,
    RIGHT     => $right,

    CONTENT   => [ ]
  }, $class <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033065	1033237	
==>,
                              "p"
                            ],
                  "BODY" => "#line 41 \"src/ops/var.ops\"\n    parrot_context_t * const ctx = CONTEXT(inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034163	1034335	
==>,
                              "p"
                            ],
                  "BODY" => "#line 41 \"src/ops/var.ops\"\n    parrot_context_t * const ctx = CONTEXT(inte <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	570	699	
==>b STORE {
        my ($self, $index, $value) = @_;
        Class::Struct::_subclass_error();
    }

    sub FETCH {
        my ($s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	27728	27951	
==>signature);\n    {{+=argc + 2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	28553	28776	
==>signature);\n    {{+=argc + 2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_ <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	1082	1201	
==>$basehttpdir = BASEHTTPDIR;
	    $file =~ s!^$basehttpdir!!;
	    die "Invalid File"
		if $file =~ m!/|\.\.!;
	    if (- <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	6458	6672	
==>n";
                } else {
                    $has_pop = 1;
                }
            } else {
                die "Invalid value for pop in rule $rule->{'name'}\n";
            }
        }

        # argumen <==
3	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	389	480	
==>t

my $PARROT_EXE = File::Spec->catfile( File::Spec->updir(), $PConfig{test_prog} );

sub ru <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11569	11664	
==>ve anything on the lazy moves stack?
${ITEMP0} = elements lazy_moves
if ${ITEMP0} > 0 goto PRE_C <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	5203	5296	
==>tem C<jump($jump)>

=item C<jump()>

Sets/gets a string containing one or more C<op_jump_t> va <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	5064	5158	
==>y $checker = Pod::Simple::Checker->new;
	
		$self->{POD_ERRORS_TIME} = time;
		$self->{POD_ERRO <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	10805	10898	
==>m[$#item] unless defined $return;'.($::RD_NO_TRACE?'':'
	if (defined $::RD_TRACE)
	{
		Parse:: <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	50175	50268	
==>(
					'Text::Balanced::extract_codeblock($text,undef,$skip);
					', $lookahead,$line,"<perl_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11246	11420	
==>d do it
}

###########################################################################

sub stylesheet {
  return sprintf <<'END',
{\stylesheet
{\snext0 Normal;}
{\*\cs10 \add <==
3	/Users/nnunley/parrot/config/init/hints/freebsd.pm	974	1074	
==>SHARE_EXT).$(SOVERSION)',
        libparrot_shared_alias  => 'libparrot$(SHARE_EXT)',
        libparr <==
3	/Users/nnunley/parrot/config/init/hints/linux.pm	1812	1912	
==>SHARE_EXT).$(SOVERSION)',
        libparrot_shared_alias  => 'libparrot$(SHARE_EXT)',
        libparr <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	40200	40348	
==>rser->Error("no loop to break\n");
                }
            }
        }
        unshift @{ $parser->YYData->{functs} }, \@opcodes;
    }
} <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	636	736	
==>AN modules.

=head1 HISTORY

Started by josh in 2002.

=head1 AUTHOR

josh

=head1 SEE ALSO

F<docs/p <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	22290	22389	
==>ype"]= "USER"
	P5= P6		# Remember where we were...
	P4= P6["storage"]
	P6= P4["$_->[0]"]
	bsr COPY_$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133850	133957	
==>.ops\"\n  string_bitwise_xor(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134631	134738	
==>.ops\"\n  string_bitwise_xor(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Test/More.pm	1064	1167	
==>el);
      $pkg->export($callpkg, @_);
}


=head1 NAME

Test::More - yet another framework for writing t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023370	1023460	
==>(time_t) {{\@2}};\n  Parrot_localtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024220	1024310	
==>(time_t) {{\@2}};\n  Parrot_localtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm <==
3	/Users/nnunley/parrot/config/init/hints/solaris.pm	3138	3256	
==>sing till after the gccversion test.
    my $solaris_ieee_cb = sub {
        my ($key, $gccversion) = @_;

        if ( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2643	2740	
==>t_element({ Name => 'cond', Attributes => { kind => $cond } });
    $handler->start_element({ Name <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3407	3504	
==>t_element({ Name => 'cond', Attributes => { kind => $cond } });
    $handler->start_element({ Name <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9706	9806	
==>ebug & 0x10
#DBG>		and	print STDERR "**Dicard invalid token ".&$ShowCurToken.".\n";

			$$token=$$ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9269	9366	
==>ebug & 0x10
#DBG>		and	print STDERR "**Dicard invalid token ".&$ShowCurToken.".\n";

			$$token=$$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3784	3881	
==>efault:
    switch (*cur_opcode) {
END_C
}

=item C<run_core_finish($base)>

Returns the C code fo <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	72781	72881	
==>f->{"startcode"} = '';

	my $rule;
	foreach $rule ( values %{$self->{"rules"}} )
	{
		if ($rule->{"ch <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48502	48593	
==>ine 785 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_BO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49292	49383	
==>ine 785 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_BO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017891	1017991	
==>BODY" => "#line 182 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  cha <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018816	1018916	
==>BODY" => "#line 182 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  cha <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1437	1527	
==>ype: '%s'...", ref $type);

  if (UNIVERSAL::isa($type, 'Jako::Construct::Type::String')) { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	622175	622396	
==>cur_opcode)[1] = mic->m.sig;\n    {{+=0}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	624029	624250	
==>cur_opcode)[1] = mic->m.sig;\n    {{+=0}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
3	/Users/nnunley/parrot/Configure.pl	358	452	
==>files before building Parrot.

=head2 Command-line Options

General Options

=over

=item C<--h <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37430	37532	
==>nt::_tracefirst($text),
				  q{' . $rule->{"name"} . '})
					if defined $::RD_TRACE;').'
		$Parse::Re <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39833	39935	
==>nt::_tracefirst($text),
				  q{' . $rule->{"name"} . '})
					if defined $::RD_TRACE;').'
		$Parse::Re <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	402	496	
==>n loop. The
methods defined here supply various default values and behaviour common
to all tran <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6363	6467	
==>{ return shift->require('ident', 'literal'); }


#
# skip()
#
# Skips the token type specified if it is p <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	300	397	
==>Pod::Simple::Methody');
BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG)
          ? \&Pod::Simple::D <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	182	279	
==>Pod::Simple::Methody');
BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG)
          ? \&Pod::Simple::D <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	469	580	
==>pected 5 args!" unless @_ == 5;

  my ($block, $prefix, $left, $op, $right) = @_;

  my $self = bless {
    BLOC <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	469	580	
==>pected 5 args!" unless @_ == 5;

  my ($block, $prefix, $left, $op, $right) = @_;

  my $self = bless {
    BLOC <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	67679	67781	
==>OLON/gco   )
		{
			_error("Unexpected colon encountered", $line);
			_hint("Did you mean \"|\" (to sta <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	22158	22277	
==>@_;
    return unless @msgs;

    # Prevent printing headers when compiling (i.e. -c)
    return if $^C;

    # Smash ar <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	1862	1975	
==>ce($file);
exit if $opt{D};
gen_code();

sub nci_method {
    my $m = shift;
    return 1 if $vtables{$m};
    ret <==
3	/Users/nnunley/parrot/config/auto/pack.pm	2041	2147	
==>->data->set(
        packtype_b => 'C',
        packtype_n => ($conf->data->get('numvalsize') == 12 ? 'D' : <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	712	809	
==>ion.
$parrot_path ||= "../..";
$parrot_path =~ s|/|\\|g if $^O =~ /win32/i;
$srm ||= "OptRegist <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	30636	30790	
==>$op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $lbl_end;
            }
        }
    } <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	35183	35337	
==>$op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $lbl_end;
            }
        }
    } <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	1402	1525	
==>shift;
    my $index_path = shift || 'index.html';
    my $text = shift;
    my @contents = @_;
    
    $self = $self->SUPE <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	747	837	
==>ted result.
The parameter C<$unexpected> is the unexpected result.
The parameter C<$descrip <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835694	835778	
==>ne 215 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->u <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836447	836531	
==>ne 215 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->u <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	50015	50168	
==>_[2];
        }
	],
	[#Rule 33
		 '@10-4', 0,
sub
#line 203 "Lua\lua51.yp"
{
            PushScope( $_[0] );
        }
	],
	[#Rule 34
		 '_els <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2692	2798	
==>=> $cond } });
    $handler->start_element({ Name => 'block', Attributes => { kind => 'test' } });
    $han <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3456	3562	
==>=> $cond } });
    $handler->start_element({ Name => 'block', Attributes => { kind => 'test' } });
    $han <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440330	440596	
==>RGS" => [
                              "ic",
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 104 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11042	11128	
==>ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  {{+={{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11831	11917	
==>ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  {{+={{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349268	349380	
==>if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=3}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350270	350382	
==>if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=3}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20209	20313	
==>5  Finnish
  1044  Norwegian (Bokmal)
  2068  Norwegian (Nynorsk)

=back

If you are particularly interes <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193539	193633	
==>eter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) < 0) {\n    {{+={{\@3} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194518	194612	
==>eter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) < 0) {\n    {{+={{\@3} <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31251	31396	
==>@_;
    my @opcodes1 = ();
    my @opcodes2 = ();
    my @opcodes3 = ();
    my @params1  = ();
    my @return1  = ();
    my $var1     = ${ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	10050	10173	
==>ched;
				  '
				: '';
	}

	$code .=
'
        unless ( $_matched || defined($return) || defined($score) )
	{
		' .($parser <==
3	/Users/nnunley/parrot/lib/Test/More.pm	19707	19823	
==>t if I
just show you...

=over 4

=item B<SKIP: BLOCK>

  SKIP: {
      skip $why, $how_many if $condition;

      .. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432478	432685	
==>_p_pip(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433493	433700	
==>_p_pip(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9330	9450	
==>pth
PIR
	}

	return $pir;
}

# Pre and post call hooks.
sub pre_call {
    my $self = shift;
    my $pir = <<'PIR';
# See <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786597	787016	
==>ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 888,
                  "ARGS" => [
                              "i",
                              "p",
                              "kic"
                            ],
                  "BO <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	18010	18163	
==>'DEFAULT';
                    my $r = $class eq 'DEFAULT' ? 'enum_type_PMC' :
                    "enum_class_$class";
                    my $super_name <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	685	802	
==>alue::Identifier');

  my $name = $ident->value;

  my $self = bless {
    BLOCK => $block,

    NAME  => $name,
    A <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	21806	21923	
==>0, I0, N0
FINDIM
		
		foreach(@types) {
			my %val=( INT => 'I0', FLO => 'N0', STRING => 'S0' );
			if ($_->[2] ne "US <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1169	1273	
==>t) {
      $compiler->emit(".namespace ${namespace}");
      $compiler->indent;
      $self->SUPER::compi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	579	677	
==>t) {
    $compiler->emit(".namespace ${namespace}");
    $compiler->indent;
    $self->SUPER::compi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	545	645	
==>lParser

=head1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head1 DESCRIPTION

When you do $parser-> <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	964	1064	
==>lParser

=head1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head1 DESCRIPTION

When you do $parser-> <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	451	551	
==>lParser

=head1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head1 DESCRIPTION

When you do $parser-> <==
3	/Users/nnunley/parrot/config/inter/progs.pm	2175	2290	
==>'ld'));
    $ld = prompt("What program do you want to use to build shared libraries?", $ld) if $ask;
    $conf->data <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	4751	4861	
==>ks. We'll store a 'reachable' flag in the
    # 3rd element of the labels.

    # But first, make *all* basic b <==
3	/Users/nnunley/parrot/tools/dev/mk_inno.pl	458	557	
==>tions

=over 4

=item C<prefix>

The install prefix.

=item C<version>

The parrot version.

=item C <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	7572	7722	
==>arness_args
               --([a-f0-9]+)	# 18	id
   .html$/x
    and return {
	  VERSION       => $1,
	  DEVEL         => $2,
      revision      => $3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1092730	1092868	
==>p"
                            ],
                  "BODY" => "#line 196 \"src/ops/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_i <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	16059	16166	
==>flag(\$jumps, "PARROT_JUMP_RESTART")     if ($restart);

        $op->jump($jumps);
        $self->push_op($ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	306743	307008	
==>ME" => "unless_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307536	307801	
==>ME" => "unless_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 3 <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	2840	2981	
==>unused",

            # others; ones we might like marked with ?
            # ? -Wundef for undefined idenfiers in #if
            # ? -Wbad- <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	7687	7789	
==>ctory.

=cut

sub directory_with_name
{
    my $self = shift;
    my $path = $self->path_for_directory_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197233	197406	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 366 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198130	198303	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 366 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199027	199200	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 366 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}} <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27308	27418	
==>");

		# If we have PIR for the instruction, just take that. If not, we need
		# to generate it from the "to ge <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34447	34557	
==>");

		# If we have PIR for the instruction, just take that. If not, we need
		# to generate it from the "to ge <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	2944	3030	
==>em C<Parrot::Docs::Section::DynaPMCs>

=item C<Parrot::Docs::Section::C>

=item C<Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369527	369812	
==>2}}, (size_t){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	370412	370697	
==>2}}, (size_t){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2990	3140	
==>+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # test result
              | " ((?:[^"\\]|\\.)+) "   #" (keep my editor ha <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4387	4537	
==>+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # test result
              | " ((?:[^"\\]|\\.)+) "   #" (keep my editor ha <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	13791	13926	
==>(\( (.*?) \)\)/{{=$1}}/mg;
                      $body =~ s/\bexpr\s+OFFSET\(\( (.*?) \)\)/{{^+$1}}/mg;
                      $body =~ s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411047	411303	
==>IO_send(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411940	412196	
==>IO_send(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1297	1435	
==>abel");
}

############### SIMPLE OUTPUT ##############

sub output_terminate {
    return "";
}

sub output_advance {
    my ($self, $dist <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093606	1093694	
==>Y" => "#line 209 \"src/ops/experimental.ops\"\n  VTABLE_morph(interpreter, {{\@1}}, {{\@2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094409	1094497	
==>Y" => "#line 209 \"src/ops/experimental.ops\"\n  VTABLE_morph(interpreter, {{\@1}}, {{\@2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	1357	1486	
==>t passes a constant value into the op
    invar         the argument passes a variable value into the op
    label         an in a <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1513	1630	
==>s(['bison -v -y', 'yacc', 'byacc'], $verbose);

    unless ($prog) {

        # fall back to default
        $self->se <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	5497	5596	
==>{branch}}{$category->($_)} }, $_ for @smokes;

  foreach my $branch (keys %branches) {
    foreach m <==
3	/Users/nnunley/parrot/lib/Test/More.pm	21605	21715	
==>u haven't fixed a bug or haven't finished a new feature:

    TODO: {
        local $TODO = "URI::Geller not fi <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	1831	1931	
==>@@@@@@

__PACKAGE__->_accessorize(
  'nbsp_for_S',        # Whether to map S<...>'s to \xA0 character <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	8419	8519	
==>>{'line_count'}}, $line];
        DEBUG > 1 and print "Starting plain para at line ${$self}{'line_cou <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34373	34465	
==>back

=head2 Parrot::Pmc2c::default Instance Methods

=over 4

=cut

package Parrot::Pmc2c::d <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5757	5882	
==>ibs
        my %libs = %{ $class->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There should be at most a <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5968	6093	
==>ibs
        my %libs = %{ $class->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There should be at most a <==
3	/Users/nnunley/parrot/languages/converter.pl	2088	2184	
==>:modifier($item[2]) }

mod		: '*' | '+' | '?'

_EOF_

my $parser = Parse::RecDescent->new($gramma <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	361	477	
==>rog {
    my $self = shift;
    my ( $path_to_parrot, $path_to_language, $count ) = @_;
 
    
    my $test_prog_args <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	379	489	
==>rog {
    my $self = shift;
    my ( $path_to_parrot, $path_to_language, $count ) = @_;

    my $test_prog_args <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1017	1102	
==>"languages/lua/lib/luabasic.pbc"
#  load_bytecode "languages/lua/lib/luacoroutine.pbc <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	4319	4447	
==>astback),
                $self->rewrite($dest, $lastback),
                $continue);
    }
}

# TODO: can_match_empty (so s/a* <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2855	2953	
==>in(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUO <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3164	3262	
==>in(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUO <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2959	3057	
==>in(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUO <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2123	2220	
==>pe = $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako::Construct::Expression <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2081	2178	
==>pe = $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako::Construct::Expression <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2003	2100	
==>pe = $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako::Construct::Expression <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629773	630067	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":object_classes",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630762	631056	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":object_classes",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107485	1107779	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":object_classes",
                  " <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	11641	11843	
==>class_init = {
                meth        => $methodname,
                body        => $methodblock,
                line        => $lineno,
                type        => $type,
                param <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3730	3826	
==>= $self->block->props;

      $self->SYNTAX_ERROR("Sub declaration has no fnlib property, and par <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6394	6490	
==>= $self->block->props;

      $self->SYNTAX_ERROR("Sub declaration has no fnlib property, and par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73638	74108	
==>ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 97,
                  "ARGS" => [
                              "p",
                              "p",
                              "sc",
                              "s"
                            ], <==
3	/Users/nnunley/parrot/config/auto/memalign.pm	1207	1319	
==>(ptrcast => 'int');
    } else {
        $conf->data->set(ptrcast => 'long');
    }

    cc_gen('config/auto/mema <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	3648	3748	
==>ified by C<$to> if
it's contents have changed.

=cut

sub move_if_diff
{
    my ($from, $to, $ignoreP <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	50967	51135	
==>ecified at the start of a
					       grammar (before the first rule 
					       is defined.");
				}
				else
				{
					local $::RD_CHECK = 1;
				}
			}
			elsif ($g <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042892	1042980	
==>e 125 \"src/ops/var.ops\"\n    VTABLE_set_pmc_keyed_str(interpreter, {{\@1}}, {{\@2}}, {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043789	1043877	
==>e 125 \"src/ops/var.ops\"\n    VTABLE_set_pmc_keyed_str(interpreter, {{\@1}}, {{\@2}}, {{ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	20363	20474	
==>l2 = $rdel2 = $ldel1;
		}
		$str2pos = $ld2pos+1;

		if ($ldel2 =~ /[[(<{]/)
		{
			pos($$textref)--;	# OVERCOME <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019811	1019905	
==>me_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_localtime_r(&t, &tm);\n  Parrot_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020742	1020836	
==>me_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_localtime_r(&t, &tm);\n  Parrot_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	12694	12992	
==>IRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 17,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 231 \"src/ops/core <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	991	1105	
==>ec ${ITEMP1}

    # Build set instruction.
    ${INS} = concat "set $"
    ${INS} = concat ${STEMP0}
    ${INS} = c <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	5982	6087	
==>xample:

    # equivalent to "cd some_dir && make test"
    run_command("make test", CD => "some_dir");

= <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	2606	2710	
==>urn $tree;
}

1;
__END__

=head1 NAME

Scheme::Parser - The Scheme token parser

=head1 SYNOPSIS

  use S <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710770	710858	
==>\" \");\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  PIO_softspace(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711604	711692	
==>\" \");\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  PIO_softspace(interpr <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	5676	5890	
==>}\n";
                } else {
                    $has_class = 1;
                }
            } else {
                die "Invalid value for class in rule $rule->{'name'}\n";
            }
        }

        # p <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33513	33649	
==>2) {
            # For the cases where we /didn't/ push to @$para
            if($paras->[0][0] eq '~Para') {
              DEBUG and pri <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35326	35462	
==>2) {
            # For the cases where we /didn't/ push to @$para
            if($paras->[0][0] eq '~Para') {
              DEBUG and pri <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	687	814	
==>onf->data->get('cc');
    my $libs      = $conf->data->get('libs');
    my $linkflags = $conf->data->get('linkflags');
    my $c <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	628	755	
==>onf->data->get('cc');
    my $libs      = $conf->data->get('libs');
    my $linkflags = $conf->data->get('linkflags');
    my $c <==
3	/Users/nnunley/parrot/config/auto/readline.pm	640	767	
==>onf->data->get('cc');
    my $libs      = $conf->data->get('libs');
    my $linkflags = $conf->data->get('linkflags');
    my $c <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	19889	20021	
==>ok($test);
    }

=cut

sub level {
    my($self, $level) = @_;

    if( defined $level ) {
        $Level = $level;
    }
    return <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1631	1733	
==>props;

  my @args  = $self->args;

  my @formal_args = $sym->args;

  $self->SYNTAX_ERROR("Wrong numbe <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1331	1433	
==>props;

  my @args  = $self->args;

  my @formal_args = $sym->args;

  $self->SYNTAX_ERROR("Wrong numbe <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	14273	14381	
==>o eq '-' or $to =~ m/^>&?(?:STDOUT|1)$/i
  ) {
    $self->output_fh( *STDOUT{IO} );
  } else {
    require Sy <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8933	9026	
==>if (!fe)\n\tinternal_exception(1, \"branch_cs: fixup for '%s' not found\", label);\n    else { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10049	10142	
==>if (!fe)\n\tinternal_exception(1, \"branch_cs: fixup for '%s' not found\", label);\n    else { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	620469	620779	
==>AGS" => ":pic",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 700,
                  "ARGS" => [
                              "pc"
                            ],
                  "BODY" <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	7766	7894	
==>} = "Const" . $self->{class};
    # and alias vtable
    $const->{vtable} = $self->{vtable};
    # set parentname
    $const->{pa <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	4664	4789	
==>emit("  .local pmc a_$name");
        # do we need to use a default?
        $code .= "  if argc < ".($i+1)." goto default_$na <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7008	7168	
==>$token=$$value=undef;
                next;
            };

            #reduce
            my($lhs,$len,$code,@sempar,$semval);
            ($lhs,$len,$co <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6682	6836	
==>$token=$$value=undef;
                next;
            };

            #reduce
            my($lhs,$len,$code,@sempar,$semval);
            ($lhs,$len,$co <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2018	2126	
==>tories
{
    my $self = shift;
    
    return
        $self->directory_with_name('compilers')->directory_wit <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553161	553311	
==>( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethod",
                  "FLAGS" => ":objec <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554557	554707	
==>( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethod",
                  "FLAGS" => ":objec <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555954	556104	
==>( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethod",
                  "FLAGS" => ":objec <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061414	1061728	
==>" => "",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1185,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#lin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356707	356948	
==>FMT, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357367	357608	
==>FMT, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	33363	33475	
==>ke "L<foo:bazE<123>bar>").  Feh.
          #$treelet->[$i][1]{'to'} = [ @{$treelet->[$i]} ];
          #splice @{ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	4295	4393	
==>DEFINED;
}

=item C<is_of_type($type)>

Returns whether the file is of the specified type.

=cut

s <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	5938	6032	
==>@@@@@@@@@@@@@@
#
# And now directives (not targets)

sub accept_directive_as_verbatim  { shift- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	817643	817798	
==>);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARR <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	481	591	
==>s_end   { $_[0][0] eq 'end'   }
sub is_text  { $_[0][0] eq 'text'  }

1;
__END__

sub dump { '[' . _esc( @{ $_[ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Compilers.pm	767	890	
==>ot',
            'compilers/ast',
            'compilers/imcc' ),
        $self->new_group( 'PGE', 'the Parrot Grammar En <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	15658	15765	
==>};
  my $curr_open = ($self->{'curr_open'} ||= []);

  my $scratch;

  DEBUG > 10 and print "# Paragraph buf <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	2257	2381	
==>s dies if it fails.
        mkpath($self->parent_path);
    }
    
    return -e $self->parent_path;
}

=item C<path()>

Retu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621136	621231	
==>erpreter->current_args;\n    mic = (Parrot_MIC *) cur_opcode[1];\n    caller_ctx = ctx->caller_c <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	3006	3095	
==>:Type::String');
  $self->SYNTAX_ERROR("Can't do arithmetic on strings") if UNIVERSAL::isa <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	3126	3215	
==>:Type::String');
  $self->SYNTAX_ERROR("Can't do arithmetic on strings") if UNIVERSAL::isa <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26516	26655	
==>35,
			'key' => 136
		}
	},
	{#State 82
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27 <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	920	1026	
==>mc
    src/utils.c
);
my $destdir = 'runtime/parrot/include';

@args = qw(verbose);

sub runstep
{
    my ( <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	66630	66729	
==>tition",$line,"$code$argcode(..$1)");

						!$matchrule and $rule and $rule->addcall($name);
					} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124498	124750	
==>DE" => 154,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 257 \"src/ops/bit.ops\"\n  {{\@1}} = (IN <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	1676	1786	
==>="special_directives">
END

my %ops;
for my $dir (@imcc_spdirec) {
    $dir =~ s/\.//g;
    print "      <item> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298196	298514	
==>AME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 347,
                  " <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34443	34552	
==>'$_noactions')
		. ($self->{argcode} ? ",sub { return $self->{argcode} }"
				   : ',undef')
		. ')))
		{
			' <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37911	38019	
==>'$_noactions')
		. ($self->{argcode} ? ", sub { return $self->{argcode} }"
				   : ', undef')
		. '))) 
		{' <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37510	37605	
==>TRACE;').'
		$Parse::RecDescent::lastexpected = ' . ($rule->hasleftmost($self) ? 'q{}'
				: 'q{ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39913	40008	
==>TRACE;').'
		$Parse::RecDescent::lastexpected = ' . ($rule->hasleftmost($self) ? 'q{}'
				: 'q{ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	58247	58342	
==>ptimized regex that matches a string delimited
by any one of the characters in the single argume <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	2593	2699	
==>ndler->start_element({ Name => 'sub', Attributes => { name => $name, type => $type } });
  }
  else {
    $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	11235	11328	
==>ls, $flags, $nolines)>

Returns a new C<Parrot::Op> instance for the specified arguments.

=cu <==
3	/Users/nnunley/parrot/config/init/hints/darwin.pm	7	97	
==>ight (C) 2005, The Perl Foundation.
# $Id: /parrot/config/init/hints/darwin.pm 19593 2006-0 <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5910	6093	
==>->{pragma} and $_->{pragma} eq 'multi' ) {
                print {$FH} " :flat";
            }
            $first = 0;
        }
        print {$FH} ")\n";
    }

    sub visit <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	7005	7188	
==>->{pragma} and $_->{pragma} eq 'multi' ) {
                print {$FH} " :flat";
            }
            $first = 0;
        }
        print {$FH} ")\n";
    }

    sub visit <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	9919	10102	
==>->{pragma} and $_->{pragma} eq 'multi' ) {
                print {$FH} " :flat";
            }
            $first = 0;
        }
        print {$FH} ")\n";
    }

    sub visit <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	5811	5959	
==>w .$type");
            $code .= emit("a_$name = $quote$default$quote");
            $code .= "done_$name: \n";
        }
    }
    
    return $code <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3258	3379	
==>elf)=shift;

        @_
    and ${$$self{VALUE}}=$_[0];
    ${$$self{VALUE}};
}

sub YYExpect {
    my($self)=shif <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3096	3209	
==>elf)=shift;

        @_
    and ${$$self{VALUE}}=$_[0];
    ${$$self{VALUE}};
}

sub YYExpect {
    my($self)=shif <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18061	18163	
==>so)"
end select
select case t*1+0
case 1 to 10, t*2, >100
	print "Wrong 1!"
case 49 to 49, t*2, g
	prin <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4219	4315	
==>s) = each %$group_files) {
        partial_link($group, $group_libs->{$group}, [ "lib-$group", @$ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4323	4419	
==>s) = each %$group_files) {
        partial_link($group, $group_libs->{$group}, [ "lib-$group", @$ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	2821	2935	
==>u call new(), you're
getting the same object.  This is called a singleton.  This is done so that
multiple modules s <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	2032	2146	
==>@funcs;

    # Toast anything non-whitespace
    @funcs = grep /\S/, @funcs;

    # If it's got a semicolon, it's n <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	3319	3415	
==>: No C<class_init> code is generated.

=item C<const_too>

Classes with this flag get 2 vtables a <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	372	467	
==>test_junction;

# for running the test suite multiple times in the same process
$Test::testing_s <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	28152	28256	
==>..>'s
  my($self,@stack) = @_;

  my($i, $treelet);
  my $start_line = $stack[0][1]{'start_line'};

  # A <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	223	313	
==>rl examples/mops/mops.pl

=head1 DESCRIPTION

A Perl implementation of the F<examples/mops/ <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	219	309	
==>rl examples/mops/mops.pl

=head1 DESCRIPTION

A Perl implementation of the F<examples/mops/ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33239	33359	
==>[1]{'start_line'},
              "You have '=item " . $para->[1]{'number'} .
              "' instead of the expected '=i <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	697	807	
==>)) { # most common case: one bare string
      return bless ['', {}, $_[0] ], $class;
    } elsif( ref($_[0] || <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	8338	8429	
==>al_pmc(st->val);
}

#define GET_NCI_I(n) get_nci_I(interpreter, &st, n)
#define GET_NCI_S(n) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544569	544695	
==>)>>1;\n }\n \n gcd = b<<p;\n saved_var1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545905	546031	
==>)>>1;\n }\n \n gcd = b<<p;\n saved_var1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547241	547367	
==>)>>1;\n }\n \n gcd = b<<p;\n saved_var1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	233	339	
==>COMP_parsefuncs.pm";

sub init {
        @type[0..2]=("","","");
        @syms[0..2]=("","","");
	$seg="_ba <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	426	529	
==>times in the same process
$Test::testing_started = 1;

### FUNCTIONS

## plan

sub plan (Int $number_of_ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7131	7234	
==>rn $self->name unless $self->contains_pod;
	
	my $text = $self->read;
	
	return '' 
		unless $text =~ /^ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5206	5300	
==>assign) {
          $value = Jako::Construct::Expression::Value::Literal->new($block, $self->re <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8206	8300	
==>assign) {
          $value = Jako::Construct::Expression::Value::Literal->new($block, $self->re <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	7123	7233	
==>")) {
        run(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c failed ($?) <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5417	5527	
==>")) {
        run(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c failed ($?) <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7334	7444	
==>")) {
        run(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c failed ($?) <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22742	22850	
==>mp_1);
  return $return;
}

sub _op_even_p {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gen <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5784	5886	
==>n";
			} else {
				push @{$code{$seg}->{code}}, "IFBRANCH_$_:\n";
			}
			while($_=pop(@{$elsestack->{ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8132	8230	
==>n";
		} else {
			push @{$code{$seg}->{code}}, "IFBRANCH_$_:\n";
		}
		while($_=pop(@{$elsestack->{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276155	276244	
==>"BODY" => "#line 881 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277033	277122	
==>"BODY" => "#line 881 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277911	278000	
==>"BODY" => "#line 881 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	23336	23500	
==>e($R, $rfail);
    my @ops = (
                        aop('pushmark', [ "+" ]),
               $loop => @R_ops,
                        aop('pushint', [ 0, 'plus ma <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565714	565800	
==>rc/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->can(interpreter, {{\@2}}, {{\@3}});\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566607	566693	
==>rc/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->can(interpreter, {{\@2}}, {{\@3}});\n <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1407	1530	
==>sif ($dir_count == 2) {
          $path_to_language = '.';
        } elsif ($dir_count >2) {
          $path_to_language = F <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1892	2015	
==>sif ($dir_count == 2) {
          $path_to_language = '.';
        } elsif ($dir_count >2) {
          $path_to_language = F <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10255	10354	
==>{$function} %" : "n/a" ]}</a></td>
             <td><a href="$outfile_base.calls.html#$function">@{[ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7261	7420	
==>educe using rule ".-$act." ($lhs,$len): ";

                $act
            or  $self->YYAccept();

            $$dotpos=$len;

                unpack(' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6925	7077	
==>educe using rule ".-$act." ($lhs,$len): ";

                $act
            or  $self->YYAccept();

            $$dotpos=$len;

                unpack(' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	11973	12063	
==>plit(/\n/, <<'END');
$rx_match{'!POS'} = $rx_pos;
$rx_match{'!RESULT'} = undef;
$rx_match{' <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	733	829	
==>g_f);
    $out_f  = File::Spec->rel2abs($out_f);
    Parrot::Test::write_code_to_file( $code, $la <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	617	713	
==>warnings;

use File::Basename;
use File::Spec;
use Parrot::Config;

require Exporter;
require Par <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	770	866	
==>g_f);
    $out_f  = File::Spec->rel2abs($out_f);
    Parrot::Test::write_code_to_file( $code, $la <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	6365	6524	
==>text = $todo;
        }
        else {
            $context =  "TODO" ~ ($todo.isa('Str') ?? " $todo" !! '');
            if ( $cond ) {
                $Test:: <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1308	1407	
==>R';
# Get type (so we can find register type).
dec ${ITEMP0}
${PTEMP0} = ${STYPES}[${ITEMP0}]

# Ass <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3018	3117	
==>R';
# Get type (so we can find register type).
dec ${ITEMP0}
${PTEMP0} = ${STYPES}[${ITEMP0}]

# Ass <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	836	945	
==>tr { return shift->temp_reg('S'); }


#
# anon_lbl()
#

my $anon_lbl_count = 0;

sub anon_lbl
{
  my $self = s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830611	830699	
==>"\n  INTVAL i = {{\@1}};\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stac <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831352	831440	
==>"\n  INTVAL i = {{\@1}};\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stac <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	7522	7622	
==>rp *interpreter, struct call_state *st, int n)
{
    assert(n < st->src.n);
    Parrot_fetch_arg_nci( <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	7705	7805	
==>rp *interpreter, struct call_state *st, int n)
{
    assert(n < st->src.n);
    Parrot_fetch_arg_nci( <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	7887	7987	
==>rp *interpreter, struct call_state *st, int n)
{
    assert(n < st->src.n);
    Parrot_fetch_arg_nci( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004435	1004764	
==>,
                  "CODE" => 1121,
                  "ARGS" => [
                              "i",
                              "i",
                              "s",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.o <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6737	6843	
==>}:
PIR
	return $pir;
}

# Pre and post load operation hooks.
sub pre_load($) {
	my $self = shift;
	my $need <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4675	4781	
==>}:
PIR
	return $pir;
}

# Pre and post load operation hooks.
sub pre_load($) {
	my $self = shift;
	my $need <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	8631	8741	
==>load_op_map_file {
  my $file = shift;

  if (!defined $file) {
    $file = "src/ops/ops.num";
  }

  my ($name <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	9408	9517	
==>de =~
          m/[\x00-\x2C\x2F\x39\x3B-\x40\x5B-\x5E\x60\x7B-\x7F]/
            # Characters under 0x80 that <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10672	10781	
==>de =~
          m/[\x00-\x2C\x2F\x39\x3B-\x40\x5B-\x5E\x60\x7B-\x7F]/
            # Characters under 0x80 that <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322361	322583	
==>} = (UINTVAL)((Parrot_UInt4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323133	323355	
==>} = (UINTVAL)((Parrot_UInt4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	14743	14872	
==>25
		}
	},
	{#State 29
		DEFAULT => -8
	},
	{#State 30
		ACTIONS => {
			'NUM' => 49,
			'CHAR' => 47,
			"]" => 50
		},
		GOTOS = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712473	712562	
==>sprintf_c(interpreter, \"%.12g\", (double){{\@1}});\n  PIO_putps(interpreter, io, s);\n  i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713580	713669	
==>sprintf_c(interpreter, \"%.12g\", (double){{\@1}});\n  PIO_putps(interpreter, io, s);\n  i <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4529	4649	
==>(@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note that for loading debu <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4304	4415	
==>(@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note that for loading debu <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	24102	24211	
==>g);
	}
	my ($i, $j, $arg_name);
	my $pushed_args = scalar @args;
	#
	# that's wrong, works only for all or non <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614349	614708	
==>lasses",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 696,
                  "ARGS" => [
                              "i",
                              "p" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3683	3800	
==>({ Name => 'block' });
    $handler->start_element({ Name => 'block', Attributes => { kind => 'then' } });
  }

  if ( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	3009	3123	
==>({ Name => 'block' });
    $handler->start_element({ Name => 'block', Attributes => { kind => 'then' } });
  }

  $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3773	3887	
==>({ Name => 'block' });
    $handler->start_element({ Name => 'block', Attributes => { kind => 'then' } });
  }

  $ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	43076	43178	
==>TOACTION" => undef,
		"_AUTOTREE"   => undef,
	};
	if ($::RD_AUTOACTION)
	{
		my $sourcecode = $::RD_AU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	99623	99844	
==>bitwise_not(interpreter, {{\@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	15300	15421	
==>}

        $body =~ s/\$(\d+)/{{\@$1}}/mg;

        my $file_escaped = $file;
        $file_escaped =~ s|(\\)|$1$1|g; # es <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	349	454	
==>cess,
    # inter/progs.pl will merge the command-line overrides with the defaults.
    # We do one bit of <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028248	1028465	
==>ext}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029099	1029316	
==>ext}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029940	1030157	
==>ext}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841609	841750	
==>tring.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842373	842514	
==>tring.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	1279	1385	
==>f->path;
}

=item C<parent($path)>

Returns the file's parent directory.    

=cut

sub parent
{
    my $se <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3217	3321	
==>c($_) foreach (@pmcs);

    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_group <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3321	3425	
==>c($_) foreach (@pmcs);

    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_group <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62639	62734	
==>=~ m/$ANY/gco)
				{
					_parse("a zero-or-more subrule match", $aftererror,$line,"$code$argcod <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607971	608330	
==>ct_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 689,
                  "ARGS" => [
                              "p",
                              " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	725482	725790	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clone",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726243	726551	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clone",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812691	812999	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clone",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inl <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	15790	15906	
==>fined $extra{todo};

            my $pass = $builder->$meth( $real_output, $expected, $desc );
            $builder-> <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	18341	18457	
==>fined $extra{todo};

            my $pass = $builder->$meth( $real_output, $expected, $desc );
            $builder-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834341	834529	
==>@1}}, STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835067	835255	
==>@1}}, STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1446	1546	
==>rint {$_[0]{'output_fh'}} $indent, $text, "\n";
  }
  return;
}

sub _handle_element_end {
  DEBUG an <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	49327	49422	
==>s into their compromised form? (applies
to E parsing too)

TODO: BOM/encoding things.

TODO: asc <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1560	1700	
==>ft;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = $op->{op} $op->{a <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2220	2360	
==>ft;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = $op->{op} $op->{a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102155	102438	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 127,
                  "ARGS" = <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	18552	18663	
==>l declare the test as failing and TODO.  Similar
to

    print "not ok $tnum # TODO $why\n";

=cut

sub todo_ski <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	6627	6731	
==>], "gt") });

sub convert_to_rpn {
	my(@expr)=@_;

	#print STDERR "In RPN Convert...\n";
	# Convert to RP <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29398	29488	
==>ge Parrot::Pmc2c::Standard;
use base 'Parrot::Pmc2c';

=item C<body($method, $line, $out_na <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	19420	19550	
==>',', $content, -1),
        $neg ? () : '*'
      ) {
        DEBUG > 2 and
         print " Considering whether =begin $content ma <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714542	714640	
==>G * const s = {{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (s && string_length(inter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715465	715563	
==>G * const s = {{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (s && string_length(inter <==
3	/Users/nnunley/parrot/Configure.pl	1038	1138	
==>e installed.

=item C<--ask>

This turns on the user prompts.

=back

Compile Options

=over

=item C <==
3	/Users/nnunley/parrot/config/auto/cgoto.pm	188	280	
==>DESCRIPTION

Determines whether the compiler supports computed C<goto>.

=cut

package auto:: <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	14431	14517	
==>tests_skipped"><tmpl_var name=skipped> skipped</span> and
		<span class="tests_unexpect <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2587	2692	
==>$sym);

  $block->push_content($self);

  return $self;
}

# block handled by superclass?

sub kind  { ret <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2704	2808	
==>$sym);

  $block->push_content($self);

  return $self;
}

# block handled by superclass?

sub kind { ret <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27188	27312	
==>TION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 138,
			'functioncall' => 31,
			'function' => 26,
			'ta <==
3	/Users/nnunley/parrot/config/inter/progs.pm	3053	3163	
==>ldflags');
    $ldflags =~ s/-libpath:\S+//g;   # XXX No idea why.
    $ldflags = integrate($ldflags, $conf->op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105660	1105904	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106635	1106879	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
3	/Users/nnunley/parrot/Configure.pl	1639	1733	
==>he given compiler flags.

=item C<--ccwarn=(flags)>

Use the given compiler warning flags.

=it <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	176	269	
==>or

=head1 DESCRIPTION

Determines whether C<yacc> is installed and if it's actually C<bison>. <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	3269	3384	
==>:") {
		append;
		emit("COMP");
		fetch;
		goto MAIN;
	}
	if ($cur eq "") { goto END };
	die "unknown: $cur at sourc <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6744	6849	
==>Expression::Value->new($block, $self->require_literal);
      }

      $self->require_semicolon;

      $s <==
3	/Users/nnunley/parrot/config/init/miniparrot.pm	1702	1837	
==>=> '',
        asmfun_o           => '',
        has___sighandler_t => undef,
        has_sigatomic_t    => undef,
        has_sigaction <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	814	900	
==>onfess "Left is not Value!" unless UNIVERSAL::isa($left, 'Jako::Construct::Expression:: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	826	912	
==>onfess "Left is not Value!" unless UNIVERSAL::isa($left, 'Jako::Construct::Expression:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028025	1028124	
==>s\"\n  opcode_t *next = {{^+2}};\n  if ({{\@1}} < 0) {\n      real_exception(interpreter, next, NEG_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028876	1028975	
==>s\"\n  opcode_t *next = {{^+2}};\n  if ({{\@1}} < 0) {\n      real_exception(interpreter, next, NEG_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344882	345179	
==>,
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 403, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430368	430618	
==>CODE" => 494,
                  "ARGS" => [
                              "ic",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 74 \"src/ops/math.ops\"\n  mmd_disp <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2364	2488	
==>profiled, 
    # we rename the gcov log file.
    # The -o flag is necessary to help gcov locate it's basic block (.bb) files <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	1193	1294	
==></h3>\n",
  '/head4' => "</a></h4>\n",

  'X'  => "<!--\n\tINDEX: ",
  '/X' => "\n-->",

  changes(qw( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1255	1357	
==>ebug (\\\$var, STARTNUMVAL)\nAborting");
  }

  if( defined $variable ) {
    # make a not-really-const <==
3	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	839	933	
==>he directories in the Parrot subversion repository. (Needed for
# distributions or in general w <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3694	3788	
==>he directories in the Parrot subversion repository. (Needed for
# distributions or in general w <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	1490	1615	
==>group(
	        'Abstract PMCs', 
	        'These PMCs are not instantiated.', 
	        @abstract_items
	    ),
		$self->new_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	1421	1529	
==>ment passes a variable value into the op
    label         an in argument containing a branch offset or addre <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	244	333	
==>mmon path
logic for C<Parrot::IO::File> and C<Parrot::IO::Directory>.

Instances created w <==
3	/Users/nnunley/parrot/lib/File/Which.pm	1404	1538	
==>en tested!!
            # PPT which says MPW-Perl cannot resolve `Alias $alias`,
            # let's just hope it's fixed
            i <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1038	1135	
==>->any_errata_seen" \
   thingy.pod

=head1 DESCRIPTION

This class is that parses Pod and dumps ju <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	7066	7212	
==>c op1
    .param pmc op2
    $I1 = op1
    $I2 = op2
    $I3 = $I2 - $I1   

    $N1 = fact $I1
    $N2 = fact $I2
    $N3 = fact $I3

    $N2 /= $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1024	1118	
==>s) for its
content, and then an end-token with the tagname of "head1".

=item $token->tagname(I <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1452	1546	
==>s) for its
content, and then an end-token with the tagname of "head1".

=item $token->tagname(I <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	31073	31192	
==>$c, $cmt) = @_;
    print <<EOC;
	throw P5 $cmt
EOC
}

sub SETUP_LOOP
{
    my ($n, $c, $cmt) = @_;
    my $targ = "pc_x <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10053	10166	
==>onf->options->get('verbose');

    if (defined($_[0]) && length($_[0])) {
        local $" = ' ';
        _run_com <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10634	10747	
==>onf->options->get('verbose');

    if (defined($_[0]) && length($_[0])) {
        local $" = ' ';
        _run_com <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924450	924702	
==>tringrep_one, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925241	925493	
==>tringrep_one, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	8550	8654	
==>hecks($t, $guarantee, $follow_min);

    } elsif ($type eq 'seq' && $t->{add_check_visited}) {
        my <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2493	2603	
==>named

  if($in =~ m/^\d+$/s) {
    return 0 + $in;
  } else {
    return $Name2character_number{$in}; # return <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031433	1031533	
==>c/ops/sys.ops\"\n    if ({{\@2}} < enum_first_type || {{\@2}} >= enum_last_type)\n        {{\@1}} = - <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032302	1032402	
==>c/ops/sys.ops\"\n    if ({{\@2}} < enum_first_type || {{\@2}} >= enum_last_type)\n        {{\@1}} = - <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2094	2207	
==>aras->[-1];
       # So that it definitely fills the buffer.
      $self->{'source_dead'} = 1;
      $self->_ponde <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	820	907	
==>----------------------------------------------------------------
sub e2char {
  my $in = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1838	1963	
==>ck '%s'", $kind);
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  if (not $self->pref <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	4984	5097	
==>t $out "\n"; # extra newline after header
    }

    # this loop can not be implemented as a foreach loop as the b <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	350	447	
==>][1] }
sub tag { shift->tagname(@_) }

sub is_tagname { $_[0][1] eq $_[1] }
sub is_tag { shift->is <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	8091	8200	
==>y $t (@_) {
    next unless defined $t and length $t;
    # TODO: enforce some limitations on what a target na <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	8610	8719	
==>y $t (@_) {
    next unless defined $t and length $t;
    # TODO: enforce some limitations on what a target na <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	11876	11979	
==>rx_stack;
return \%rx_match;
END
}

sub output_rule_fail {
    my ($self, $name) = @_;
  return split(/\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2315	2424	
==>set
{
    my ($self, $offset) = @_;
    return "{ cur_opcode += $offset; goto SWITCH_AGAIN; }";
}

=item C<got <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676062	676285	
==>hift_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676842	677065	
==>hift_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	9531	9650	
==>$arg->{type};
        $is_repeating = $arg->{repeating};
    }

    $max = undef if $is_repeating;
    
    return $min, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948117	948393	
==>@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958569	958845	
==>@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	659	761	
==>ssor
  return $_[1]->{'Errata_seen'};
}

sub new {
  my $self = shift;
  my $new = $self->SUPER::new(@_ <==
3	/Users/nnunley/parrot/config/auto/readline.pm	1313	1427	
==>ink lives.
    if ($osname =~ /darwin/) {
        if (-f "/sw/include/readline/readline.h") {
            $conf->da <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	7232	7351	
==>D_C

    return 0;
}


#
# compile_file()
#

sub compile_file {
    my ($file_name) = @_;

    my $pf = Parrot::PackFile <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	1326	1435	
==>ub output_pushmark {
    my ($self) = @_;
    return "rx_pushmark P0";
}

sub output_pushindex {
    my ($self <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5801	5905	
==>$item = _get_arg($node,1);

  return __quoted ($self, $item, $return, {});
}

sub _op_quasiquote {
  my ( <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	18082	18198	
==>d+)/) {
	$targ = "pc_$1";
    }
    print <<EOC;
	if $tos->[1] goto $targ $cmt
EOC
}

sub UNARY_NOT
{
    my ($n, $c, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578216	578416	
==>S" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 284 \"src/ops/object.ops\"\n  {{\@1}} = VTABLE_subclass(in <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34817	34952	
==>{'number'};
             # Only a PROPER item-number element is allowed
             #  to have a number attribute.
          } elsif($i <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	268	363	
==>rot;

    Parrot::Docs::Section::Parrot->new->write_html;

=head1 DESCRIPTION

This is the top-l <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11092	11310	
==>TION, STACK_CLEANUP_NULL);\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11881	12099	
==>TION, STACK_CLEANUP_NULL);\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/config/auto/byteorder.pm	244	341	
==>arrot's wordsize.

=cut

package auto::byteorder;

use strict;
use vars qw($description @args);

u <==
3	/Users/nnunley/parrot/lib/Test/More.pm	29375	29522	
==>(!ref $e1 and !ref $e2);

        if( defined $e1 xor defined $e2 ) {
            $ok = 0;
        }
        elsif ( $e1 == $DNE xor $e2 == $DNE ) { <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	9443	9548	
==>at about File::Slurp?
sub slurp_file {
    my ($file_name) = @_;

    open( SLURP, "< $file_name" ) or die <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	27225	27321	
==>characters
# (in this case: any type of quote or a slash)

	$patstring = gen_delimited_pat(q{'"`/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955399	955643	
==>NAME" => "encodingname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956210	956454	
==>NAME" => "encodingname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326121	326319	
==>RGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 149 \"src/ops/dotgnu.ops\"\n  {{\@1}}->vtable->set_int <==
3	/Users/nnunley/parrot/config/init/miniparrot.pm	2108	2226	
==>sert complex ctype errno locale math setjmp signal stdarg
        stdio stdlib string time)
        ) {
        $conf-> <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2176	2265	
==>('compilers')->directory_with_name('imcc'),
        $self->directory_with_name('examples') <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44549	44799	
==>"JUMP" => 0,
                  "NAME" => "popmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45190	45440	
==>"JUMP" => 0,
                  "NAME" => "popmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	27649	27753	
==>ght be '0', or '1'.
      $self->{'accept_codes'}{$new_letter}
        = (@fallbacks == 1) ? $fallbacks[0 <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	19506	19606	
==>it skips once and terminates the
test.

=end _unimplemented

=back


=head2 Test style

=over 4

=ite <==
3	/Users/nnunley/parrot/config/inter/lex.pm	123	216	
==>$

=head1 NAME

config/auto/lex.pm - lexical analyzer generator

=head1 DESCRIPTION

Determine <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	818	1025	
==>ze       => 4,
            intsize          => 4,
            longsize         => 4,
            shortsize        => 2,
            hugeintval       => 'long',
            hugeintvalsize   => 4,
            h <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	12263	12396	
==>h.h
logbl       math.h
logf        math.h
logl        math.h
longjmp     setjmp.h
lrint       math.h
lrintf      math.h
lrintl      ma <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	372	468	
==>tion for the HTML documentation for Parrot.

=head2 Class Methods

=over

=cut

package Parrot::D <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	7911	8075	
==>ned($sublen); # [m..INF]*
        return undef if $sublen > 0;        # [m..sublen]*
        return 0;                           # [0..0]*
    } else {
        retur <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	589	684	
==>. Defaults to ''.

=item C<prefix>

The install prefix. Defaults to '/usr'.

=item C<exec_prefix <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	818	913	
==>. Defaults to ''.

=item C<prefix>

The install prefix. Defaults to '/usr'.

=item C<exec_prefix <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18884	18990	
==>,
                  "BODY" => "#line 314 \"src/ops/core.ops\"\n  if ({{\@1}}->vtable->get_bool(interpreter, <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	1348	1448	
==>r
reference is:

=over 4

=item p

Parameter is a void pointer, taken from the PMC's data pointer. PM <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	18357	18453	
==>_ALL_FLAG, "function signature argument character 'v' ignored");
       signature = string_chopn( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	839561	839818	
==>};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rotate_up",
                  "FLAGS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840255	840512	
==>};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rotate_up",
                  "FLAGS" => <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	467	565	
==>ad2 Command-Line Options

The following options can be used to limit the symbols:

=over 4

=item C <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	6386	6513	
==>29,
 'lArr'     , 8656,
 'uArr'     , 8657,
 'rArr'     , 8658,
 'dArr'     , 8659,
 'hArr'     , 8660,
 'forall'   , 8704,
 'pa <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1625	1727	
==>des

=head1 SYNOPSIS

 # a long story

=head1 DESCRIPTION

This class is not of interest to general use <==
3	/Users/nnunley/parrot/config/inter/lex.pm	387	479	
==>:Configure::Step::Base);

use Parrot::Configure::Step qw( :inter capture_output check_progs ) <==
3	/Users/nnunley/parrot/config/inter/make.pm	381	473	
==>:Configure::Step::Base);

use Parrot::Configure::Step qw( :inter capture_output check_progs ) <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	382	474	
==>:Configure::Step::Base);

use Parrot::Configure::Step qw( :inter capture_output check_progs ) <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	9662	9766	
==>core_opfunc[$i]}[1];

    my $jit_func;
    my $op = $Parrot::OpLib::core::ops->[$i];

    $precompiled = <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	11163	11269	
==>cept_codes'}{$new_code};

    DEBUG > 2 and print "OK, won't accept the code $new_code<...>.\n";
  }
  
  r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8992	9091	
==>s' not found\", label);\n    else {\n\tinterpreter->resume_offset = fe->offset;\n        Parrot_swit <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10108	10207	
==>s' not found\", label);\n    else {\n\tinterpreter->resume_offset = fe->offset;\n        Parrot_swit <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2376	2485	
==>saves, $var);
				}
			}
			if (@saves) {
				$edit.=qq{\tfind_global _GLOBALS, "COMMON"\n};
				foreach(@save <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2785	2894	
==>saves, $var);
				}
			}
			if (@saves) {
				$edit.=qq{\tfind_global _GLOBALS, "COMMON"\n};
				foreach(@save <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3612	3716	
==>se only now are all
		# the contents guaranteed to be instances.
		# Remember that this method is also us <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	8463	8570	
==>me is $_[0].\n";

    # TODO: file-discipline things here!
  }

  $self->{'source_fh'} = $handle;
  DEBUG an <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3702	3804	
==>)=splice(@$inarray,0,2)) {
        $prm=uc($prm);
			exists($$checklist{$prm})
		or	croak("Unknow pa <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3510	3609	
==>)=splice(@$inarray,0,2)) {
        $prm=uc($prm);
			exists($$checklist{$prm})
		or	croak("Unknow pa <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	2548	2686	
==>ch (keys %$typedefs) {
            delete $typedefs->{$_} unless ($contents =~ /\Q$_\E/);	    
	}
	
	foreach (keys %bad_fdecls) {
	    my ( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959279	959365	
==>src/ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, {{\@1}}, {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960081	960167	
==>src/ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, {{\@1}}, {{ <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	2523	2644	
==>file: $!";
    while ( my $line = <IN>) {
        if ($line =~ m/^#define/) {
            $line =~ s/PREV_OP\s(..?)\s(\w+) <==
3	/Users/nnunley/parrot/tools/build/vtable_h.pl	417	518	
==>Vtable>

=back

=cut

use lib 'lib';
use Parrot::Vtable;

my $vtable = parse_vtable();

open OUT, ">in <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3370	3469	
==>_base;
#endif

SWITCH_RELOAD:
    _reg_base = (char*)interpreter->ctx.bp.regs_i;
    do {
SWITCH_AGA <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6927	7017	
==>s1$="The longer string"
found$="longer"
bogus$="not"
print "Found  (5): ", instr(s1$, found <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18656	18746	
==>s1$="The longer string"
found$="longer"
bogus$="not"
print "Found  (5): ", instr(s1$, found <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	11348	11461	
==>pos $$textref = $startpos;
		return;
	    }
	    my $deref = $1;

	    unless ($$textref =~ m/\G\s*(?:::|')?(?:[_a <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3234	3335	
==>mcs);

    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pm <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3338	3439	
==>mcs);

    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pm <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	4343	4464	
==>got an error.
    if ($in_heredoc) {
        die "Unterminated heredoc runs to end of file\n";
    }

    # If we've a rul <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10714	10823	
==>n $value;
}

sub _op_set_bang {
  my ($self, $node) = @_;

  _num_arg ($node, 2, 'set!');

  my $symbol = _get <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	6276	6368	
==>")) {
    print SOURCE $trans->ops_addr_decl($bs);
}
if ($trans->can("run_core_func_decl")) { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907096	907377	
==>DE" => 1022,
                  "ARGS" => [
                              "s",
                              "p",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 262 \"src/ops/string.ops\"\n  {{\ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	22818	22939	
==>>

    TODO: {
        todo_skip $why, $how_many if $condition;

        ...normal testing code...
    }

With todo tests, <==
3	/Users/nnunley/parrot/config/auto/headers.pm	1625	1743	
==>esent
    if ($^O eq "msys") {
        push @extra_headers, qw(sysmman.h netdb.h);
    }
    my @found_headers;
    for <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841131	841415	
==>" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841894	842178	
==>" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
3	/Users/nnunley/parrot/Configure.pl	7104	7202	
==>ptions:

   For using a system ICU, these options can be used:

   --icu-config=/path/to/icu-config <==
3	/Users/nnunley/parrot/lib/Test/More.pm	17591	17707	
==>ee the bare number
        # for it to work with non-Exporter based modules.
        eval <<USE;
package $pack;
use $ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3957	4062	
==>'s name. If it fails for both it returns 'Undefined'.

=cut

sub type
{
	my $self = shift;
	my $type = $se <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540294	540447	
==>"
                            ],
                  "BODY" => "#line 1022 \"src/ops/math.ops\"\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541546	541699	
==>"
                            ],
                  "BODY" => "#line 1022 \"src/ops/math.ops\"\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542798	542951	
==>"
                            ],
                  "BODY" => "#line 1022 \"src/ops/math.ops\"\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2} <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	12616	12766	
==>"$1\"></a>";
            } 

            my ($initial) = substr($_, 0, 16);
            if ($initial =~ /^\s*\d+\s*$/) {
                print OUT qq($ <==
3	/Users/nnunley/parrot/languages/m4/tools/scrutinize.pl	73	170	
==>head1 DESCRIPTION

This is not below 't', in order to not interfere with regression testing.

=hea <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	5839	5935	
==>e);

\$VERSION = "$version";

END_C

print MODULE $preamble;
print MODULE Data::Dumper->Dump([ $r <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54085	54214	
==>ng
    } elsif(
      $_ eq '0' # very common case
      or(
         m/^-?(?:[123456789]\d*|0)(?:\.\d+)?$/s
         and $_ ne '- <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	1439	1561	
==>are a new version for release.', 'RELEASE_INSTRUCTIONS'),
        ),
        $self->new_group('Legal', '',
            $sel <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	33939	34028	
==>mbol_p,
  'symbol->string' => \&_op_symbol_string,
  'string->symbol' => \&_op_string_symb <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	10726	10845	
==>return "t_$temp_num";
    };
    /I/ && do {
        push @{$temps_ref}, "INTVAL t_$temp_num;";
        push @{$extra_pr <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	39392	39497	
==>SPIR

    # Return generated code.
    return $pir;
}


# Inserts auto-magically instantiated meta-variabl <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	7151	7248	
==>h for any possible match of this subtree?
    return $t if (defined($t->maxlen()) && $guarantee >= <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10994	11103	
==>") or die "Can't read $infile: $!\n";
    open (OUT, ">$outfile") or die "Can't write $outfile: $!\n";

    pr <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11478	11587	
==>") or die "Can't read $infile: $!\n";
    open (OUT, ">$outfile") or die "Can't write $outfile: $!\n";

    pr <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11942	12051	
==>") or die "Can't read $infile: $!\n";
    open (OUT, ">$outfile") or die "Can't write $outfile: $!\n";

    pr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934157	934428	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":base <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934932	935203	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":base <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	15298	15426	
==>},
		DEFAULT => -57,
		GOTOS => {
			'tableconstructor' => 46,
			'args' => 43,
			'key' => 45
		}
	},
	{#State 32
		DEF <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	273	373	
==>$runtime_jump);


my @fors=();
my @whiles=();
my @dos=();
@selects=();
my $scopes=0;
my @data=();
sub <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	39668	39761	
==>ext = "/para line 1\n\nline 3\n/para line 4";

	extract_tagged($text, '/para', '/endpara', und <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	39982	40075	
==>ext = "/para line 1\n\nline 3\n/para line 4";

	extract_tagged($text, '/para', '/endpara', und <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130799	131127	
==>UMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131653	131981	
==>UMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132508	132836	
==>UMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824587	824821	
==>\n  {{\@1}} = UVal_str(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825658	825892	
==>\n  {{\@1}} = UVal_str(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	835	921	
==>truct::Declaration::Sub;
use Jako::Construct::Declaration::Variable;

use Jako::Constru <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3585	3691	
==>ub (props = %s)...", $name, join(", ", %props));

    $name =~ s/::/__/g;

    if (exists $props{fn} or exi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	3020	3126	
==>ub (props = %s)...", $name, join(", ", %props));

    $name =~ s/::/__/g;

    if (exists $props{fn} or exi <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	22459	22563	
==>Get and set the correct options and execute the runmode
# specified in @ARGS.
#
sub main {
    my ($defau <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31199	31336	
==>List {
    my ( $parser, $vars, $exprs, $block ) = @_;
    my @opcodes1 = ();
    my @opcodes2 = ();
    my @opcodes3 = ();
    my @p <==
3	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	436	539	
==>rot from the VERSION file
and returns it.

=cut

# cache for repeated calls
# XXX this could be in BEGIN <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715253	715461	
==>> "function",
                  "CODE" => 802,
                  "ARGS" => [
                              "sc"
                            ],
                  "BODY" => "#line 75 \"src/ops/python.ops\"\n  ST <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2600	2701	
==>me => $self->op } });
    $self->left->sax($handler);
    $self->right->sax($handler);
    $handler->e <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2477	2578	
==>me => $self->op } });
    $self->left->sax($handler);
    $self->right->sax($handler);
    $handler->e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968756	968955	
==>",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_ccla <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969765	969964	
==>",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_ccla <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	608	720	
==>p = { children => [{ value => 'quote' }] };
    my $expr;
    $count++;
    ($count, $expr) = _build_tree ($token <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	11703	11839	
==>State 4
		DEFAULT => -45
	},
	{#State 5
		DEFAULT => -15,
		GOTOS => {
			'@3-1' => 19
		}
	},
	{#State 6
		ACTIONS => {
			'N <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2984	3085	
==>$$self{DOTPOS}} - 1;

		$index < 0
	and	-$index <= @{$$self{STACK}}
	and	return $$self{STACK}[$ind <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	1108	1206	
==>f it finds it.
The search is only performed once.

The criterion is that there should be a F<README <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2840	2937	
==>$$self{DOTPOS}} - 1;

		$index < 0
	and	-$index <= @{$$self{STACK}}
	and	return $$self{STACK}[$ind <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	8971	9072	
==>urce") || die "Error appending to $source: $!\n";
unless ($nolines_flag) {
    my $source_escaped = $s <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11846	11940	
==>tring reference, no way
function a$(u$)
	u$="No way"
	a$="Hello"
end function
t$="Not me"
e$=a$ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4041	4136	
==>nd $self->isa("Jako::Construct::Block");
  confess "No symbol name!"  unless defined $name;
  co <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6209	6304	
==>nd $self->isa("Jako::Construct::Block");
  confess "No symbol name!"  unless defined $name;
  co <==
3	/Users/nnunley/parrot/config/auto/pack.pm	1876	2021	
==>but '$format' gave %d bytes.
AARGH
            }
        } else {
            $format = '?';
        }

        $conf->data->set($which => $format <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	804	897	
==>ibdir>

The library directory. Defaults to '/usr/lib'.

=item C<includedir>

The header direct <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	1033	1126	
==>ibdir>

The library directory. Defaults to '/usr/lib'.

=item C<includedir>

The header direct <==
3	/Users/nnunley/parrot/lib/Test/More.pm	24363	24463	
==>ata structures

Not everything is a simple eq check or regex.  There are times you
need to see if two <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	4342	4432	
==>t Intermediate Representation and generate Parrot Assembler Code.
Pass unless the generated <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	155	243	
==>er.
#
# $Id: /parrot/languages/jako/lib/Jako/Lexer.pm 19606 2006-05-30T15:08:05.048089Z c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140846	140968	
==>"#line 77 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141742	141864	
==>"#line 77 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142638	142760	
==>"#line 77 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480814	481099	
==>NTVAL)floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481817	482102	
==>NTVAL)floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482820	483105	
==>NTVAL)floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4508	4621	
==>to 1
for j = 0 to 1
print i; j;
if i and j then a$="True  " else a$="False "
if i or  j then b$="True  " else b$=" <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17579	17692	
==>to 1
for j = 0 to 1
print i; j;
if i and j then a$="True  " else a$="False "
if i or  j then b$="True  " else b$=" <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1784	1873	
==>:Test::pir_output_is;
}

=item C<p6rule_isnt($target, $pattern, $description, @todo)>

Run <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	9565	9668	
==>? ', ' : '.local string ';
		$stack_locals .= "stack$_";
		$mv->{"STACK$_"} = "stack$_";
	}
	my $dest_lo <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8657	8738	
==>"NAVIGATE","PHASERS","QUIT"
data "SHIELDS","SOS","SRSCAN","STATUS","TORPEDO","TRAN <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21521	21602	
==>"NAVIGATE","PHASERS","QUIT"
data "SHIELDS","SOS","SRSCAN","STATUS","TORPEDO","TRAN <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671038	671396	
==>> [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 751,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 415 \"src <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	2981	3112	
==>$code;
}

sub arg_check {
    my (@args) = @_;
    
    my ($min, $max) = num_args(@args);
    my $code = "";
    
    if ($max == $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	9047	9151	
==>_)
}
sub get_version     { shift->_get_titled_section(
   'VERSION',
    max_token => 400,
    accept_ver <==
3	/Users/nnunley/parrot/config/init/hints/hpux.pm	187	301	
==>y ($self, $conf) = @_;

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' <==
3	/Users/nnunley/parrot/config/init/hints/solaris.pm	241	355	
==>y ($self, $conf) = @_;

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25067	25166	
==>ON();

	feedme();
	if ($syms[CURR] eq "step") {
		($stepexpr, $type, @stepcode)=EXPRESSION();
	} els <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412437	412922	
==>i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 476,
                  "ARGS" => [
                              "i",
                              "p",
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	7390	7541	
==>nt (in-line)
        #   nc   Number constant index
        #   pc   PMC constant index
        #   sc   String constant index
        #   kc   Key cons <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	8198	8298	
==>o *((void *)*cur_opcode);

END_C
} elsif ($suffix =~ /cg/) {
    print SOURCE <<END_C;
goto *${bs}ops <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	21441	21546	
==>$lp, $rp $cmt$isnot
EOC
	}
	print <<EOC;
	$pres = new .Boolean
	$pres = $res # ugly
EOC
	push @stack, [-1, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2556	2656	
==>(%s)!", ref $args[$i])
      unless defined $actual_arg_type;

    if ($formal_arg_type->name ne $act <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2256	2356	
==>(%s)!", ref $args[$i])
      unless defined $actual_arg_type;

    if ($formal_arg_type->name ne $act <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019112	1019402	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "localtime",
                  "FLAGS" => "",
                  "ARGDIR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020042	1020332	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "localtime",
                  "FLAGS" => "",
                  "ARGDIR <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	37920	38022	
==>>YYData->{self} = BuildParam( $parser, 'self' );
}

sub BuildFunctionBody {
    my ( $parser, $para <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9538	9656	
==>, <rx_stack>",
                $self->popop . " $reg, <rx_stack>",
                $self->dbprint("POPPED[\%<<rx_tmp>>] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355140	355236	
==>\n  STRING * const s = (VTABLE_get_string(interpreter, p));\n  if (s) {\n    PIO_putps(interprete <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360840	360936	
==>\n  STRING * const s = (VTABLE_get_string(interpreter, p));\n  if (s) {\n    PIO_putps(interprete <==
3	/Users/nnunley/parrot/config/inter/ops.pm	212	320	
==>ect which ops files to include.

=cut

package inter::ops;

use strict;
use vars qw($description @args);

use <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7096	7203	
==>turn @ops;
}

sub output_pushindex {
    my ($self, $reg) = @_;
    $reg = value(defined($reg) ? $reg : 'pos <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6738	6845	
==>turn @ops;
}

sub output_pushindex {
    my ($self, $reg) = @_;
    $reg = value(defined($reg) ? $reg : 'pos <==
3	/Users/nnunley/parrot/config/gen/config_pm.pm	792	897	
==>Config_pm.in") or die "Can't open Config_pm.in: $!";
    open(OUT, ">lib/Parrot/Config.pm")             or <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	19795	19909	
==>erly and we only dispatch one
    # byte at a time.
    foreach (@rules) {
        if ($_->{'code'} =~ /\w\s+\w/) { <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	1136	1250	
==>ocal $/ = undef;
    open my $file, "<", $filename
        or die "can't open '$filename' for reading";

    return <==
3	/Users/nnunley/parrot/config/inter/progs.pm	285	377	
==>xical analyzer generator and parser generator to use. Also whether debugging
should be enable <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	5728	5865	
==>::Spec->catfile( $DIR, '*.t' ) ;

    if (@files) {
        return runtests(@files);
    } else {  
        return;
    }
}

##
## my $str <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1102	1214	
==>=> $out_f );
    unless ($pass) {
        my $file = Parrot::Test::slurp_file($out_f);
        $pass =$self->{bui <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1143	1255	
==>=> $out_f );
    unless ($pass) {
        my $file = Parrot::Test::slurp_file($out_f);
        $pass =$self->{bui <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8273	8396	
==>"JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9388	9511	
==>"JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	430	531	
==>BigNum;

use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a n <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19062	19208	
==>CTIONS => {
			'NAME' => 104
		},
		GOTOS => {
			'funcname' => 105,
			'_funcname' => 106
		}
	},
	{#State 55
		ACTIONS => {
			"(" => 8 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103988	1104076	
==>s);\n\t\ttype = pmc_type(interpreter, class);\n\t}\n\tif (type <= 0)\n\t\treal_exception( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105203	1105291	
==>s);\n\t\ttype = pmc_type(interpreter, class);\n\t}\n\tif (type <= 0)\n\t\treal_exception( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023300	1023398	
==>> "#line 210 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_l <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024150	1024248	
==>> "#line 210 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_l <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	5093	5190	
==>cker->new;
	
		$self->{POD_ERRORS_TIME} = time;
		$self->{POD_ERRORS} = '';
		$checker->output_str <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	31963	32103	
==>{'~counter'};
          
          if($item_type eq 'bullet') {
            # Hm, it's not numeric.  Correct for this.
            $para->[1] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552638	552736	
==>pmc = {{\@2}};\n  /* XXX should we check if object.can(method) */\n\n  next = {{^+3}};\n  interpret <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122109	122336	
==>\n   */\n  LVALUE_CAST(UINTVAL, {{\@1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123021	123248	
==>\n   */\n  LVALUE_CAST(UINTVAL, {{\@1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	2781	2891	
==>ut

sub add_step
{
    my ($self, $step, @params) = @_;

    push @{$self->{steps}},
        Parrot::Configure: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650773	651042	
==>@1}} = 1;\n    else\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651695	651964	
==>@1}} = 1;\n    else\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	12055	12161	
==>_done:
    .return(result)
.end

.sub unicode:"monadic:\u2191" # first
    .param pmc op1
    $P1 = shift o <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9985	10088	
==>ACTIONS}{error})
					or	$$states[$$stack[-1][0]]{ACTIONS}{error} <= 0)) {

#DBG>			$debug & 0x10
#D <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9538	9637	
==>ACTIONS}{error})
					or	$$states[$$stack[-1][0]]{ACTIONS}{error} <= 0)) {

#DBG>			$debug & 0x10
#D <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	188	279	
==>n Page

=head1 DESCRIPTION

C<Parrot::Docs::HTMLPage> gives Parrot documentation pages the P <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24713	24806	
==>ged($textref, $pre, $ldel, $rdel, $omode, $bad, $ignore);

		return _fail(wantarray, $textref) <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7547	7639	
==>ged($textref, $pre, $ldel, $rdel, $omode, $bad, $ignore);

	return _fail(wantarray, $textref) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	130	218	
==>as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/Sub.p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095201	1095409	
==>Command(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095896	1096104	
==>Command(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	360	456	
==>($key1 => $value1, $key2 => $value2);
    $data->add($delimiter, $key1 => $value1, $key2 => $valu <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	42504	42640	
==>'E') {
        unshift @stack, $treelet->[$i]; # recurse
        next;
      }
      
      DEBUG > 1 and print "Ogling E node ", pretty( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627027	627139	
==>,
                  "BODY" => "#line 53 \"src/ops/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtab <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628171	628283	
==>,
                  "BODY" => "#line 53 \"src/ops/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtab <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	31675	31827	
==>ack => aop('rule_fail', [ $name ]),
                     aop('rule_end', [ $name ]),
      );

    push @{ $def->{args} }, \@declarations;

    return (u <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	10571	10665	
==>ymatch, $L_backup, $num_groups, $startup) = @_;

    my $trymatch = $self->output_label_use($L_ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	3240	3343	
==>$subtree = $self->pass1(rop('alternate', \@children), $ctx);
            @{ $t->{args} } = ($R, $subtree <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	3918	4021	
==>$subtree = $self->pass1(rop('alternate', \@children), $ctx);
            @{ $t->{args} } = ($R, $subtree <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30338	30440	
==>e
	# Source in P6
	# Dest returned in P1
STRUCT_COPY:
SCOPYDIS
	foreach(keys %usertypes) {
		print CODE <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	679	766	
==>sa($dest, 'Jako::Construct::Expression::Value::Identifier');
  confess("Left (" . ref($l <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	670	757	
==>sa($dest, 'Jako::Construct::Expression::Value::Identifier');
  confess("Left (" . ref($l <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	559	646	
==>sa($dest, 'Jako::Construct::Expression::Value::Identifier');
  confess("Left (" . ref($l <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8714	8899	
==>ments!" if @_;

  my $found = $self->find_symbol($name);

  return $found ? $found->kind : undef;
}


###############################################################################

=he <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10051	10236	
==>ments!" if @_;

  my $found = $self->find_symbol($name);

  return $found ? $found->kind : undef;
}


###############################################################################

=he <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	6447	6563	
==>'t increase
    # the indenting level.  Neither does PARROT_IN_CORE.

    my @stack;
    my $line = 0;
    foreach (@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477164	477417	
==>= (INTVAL)floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478060	478313	
==>= (INTVAL)floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	1346	1461	
==>ract_functions {
    my $text = shift;

    return if $text =~ /DO NOT EDIT THIS FILE/;

    # Strip blocks of comme <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1373	1493	
==>"  global \"$ident_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1367	1487	
==>"  global \"$ident_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	14597	14709	
==>R MANY MORE CASES HERE!!!
		if ($$textref =~ m#\G\s*( [-+*x/%^&|.]=?
					| [!=]~
					| =(?!>)
					| (\*\*|&&|\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302097	302190	
==>c/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302973	303066	
==>c/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303849	303942	
==>c/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n", <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	29625	29761	
==>anchUnlessOp( $parser,
        'arg1'   => $_step,
        'op'     => '>',
        'arg2'   => $zero->[0],
        'result' => $lbl_ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29048	29152	
==>ttern;
	$desc=~s/\\/\\\\/g;
	$desc=~s/}/\\}/g;
	$desc=~s/{/\\{/g;

	bless 
	{
		"pattern"     => $pattern <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31152	31254	
==>ttern;
	$desc=~s/\\/\\\\/g;
	$desc=~s/}/\\}/g;
	$desc=~s/{/\\{/g;

	bless 
	{
		"pattern"   => $pattern <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5767	5872	
==>tion.

=cut

sub init_func_init1
{
    my ($self, $base) = @_;
    my $cg_func = $self->core_prefix . $bas <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83765	83851	
==>_COMPREG_HASH);\n  VTABLE_set_pmc_keyed_str(interpreter, compreg_hash, {{\@1}}, {{\@2}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84671	84757	
==>_COMPREG_HASH);\n  VTABLE_set_pmc_keyed_str(interpreter, compreg_hash, {{\@1}}, {{\@2}} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2722	2823	
==>t!")  unless defined $dest_type;
  $self->INTERNAL_ERROR("No type for left!")  unless defined $left_ty <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2488	2589	
==>t!")  unless defined $dest_type;
  $self->INTERNAL_ERROR("No type for left!")  unless defined $left_ty <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2410	2511	
==>t!")  unless defined $dest_type;
  $self->INTERNAL_ERROR("No type for left!")  unless defined $left_ty <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	960	1064	
==>if $message;
	return ("",$$textref,"") if $wantarray;
	return undef;
}

sub _succeed
{
	$@ = undef;
	my ( <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	7457	7561	
==>$group$LOAD_EXT", $libs, \@sources))
          or die "partial link $group$LOAD_EXT failed ($?)\n";
    } <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7668	7772	
==>$group$LOAD_EXT", $libs, \@sources))
          or die "partial link $group$LOAD_EXT failed ($?)\n";
    } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135192	135480	
==>],
                  "TYPE" => "inline",
                  "CODE" => 166,
                  "ARGS" => [
                              "s",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 326 \"src/ops/b <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5668	5817	
==>= ";
        }
        print {$FH} "$op->{arg1}->{symbol}(";
        my $first = 1;
        foreach ( @{ $op->{arg2} } ) {
            print {$FH <==
3	/Users/nnunley/parrot/languages/regex/test.pl	3135	3246	
==>@_;
    open(PIR, ">$filename") or die "create $filename: $!";

    my $ctx = { };
    my $trees = Regex::expr_t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16697	16969	
==>[
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	17471	17743	
==>[
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18266	18538	
==>[
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "" <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	11569	11729	
==>f $opt{nobody};
        if ($methodname eq 'class_init') {
            $class_init = {
                meth        => $methodname,
                body        => <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	2776	2878	
==>et_symbol
{
  my $self = shift; # Required: Jako::Construct::Block
  my $name = shift; # Required: stri <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3860	3962	
==>et_symbol
{
  my $self = shift; # Required: Jako::Construct::Block
  my $name = shift; # Required: stri <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	20491	20617	
==><", $file );
        while (<$fh>) {
            if (/^(?:extern\s+)?\w+\*?\s+\*?(\w+)\s*\([^)]+\)\s*;/) {
                push <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	20824	20950	
==><", $file );
        while (<$fh>) {
            if (/^(?:extern\s+)?\w+\*?\s+\*?(\w+)\s*\([^)]+\)\s*;/) {
                push <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	8562	8672	
==>ad', [-1]);
  my $oldscope = $self->{scope};
  $self->{scope} = { '*UP*' => $oldscope };

  my $num = 5;
  my @ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465203	465453	
==>" => 0,
                  "NAME" => "dec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "COD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465824	466074	
==>" => 0,
                  "NAME" => "dec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "COD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143555	143654	
==>cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144483	144582	
==>cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145411	145510	
==>cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	12944	13061	
==>test;
        return $test;
    }

    return $self->cmp_ok($got, 'ne', $dont_expect, $name);
}

sub isnt_num {
    my <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	415	516	
==>r second) using
integer arithmetic.

Prints out:

=over 4

=item * the number of look iterations, 

=i <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	419	519	
==>r second) using
integer arithmetic.

Prints out:

=over 4

=item * the number of look iterations,

=i <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	4188	4406	
==>eval $block;
                    select STDOUT;
                    die $@ if $@;
                }
            }

        }
        if ($in_def ne '') {
            die "Missing '&end_gen' in $f\n";
        }
        c <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	7941	8092	
==>l}) {
                $str .= "**" if $_->{label}{reachable};
                $str .= "$_->{label}->{label}: ";
            }
            $str .= $_->{c <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8335	8434	
==>to locate a matching
symbol, and then returns that symbol's kind.

=cut

sub kind_of_ident
{
  my $s <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	5423	5559	
==>?$w$/, @warns;
            }
            $warns = join ' ', @warns;
        }
    }

    if (defined $conf->options->get('miniparrot') && <==
3	/Users/nnunley/parrot/tools/util/pirtidy.pl	815	920	
==>IS

 perl pirtidy.pl [ options ] file1 file2 file3 ...
         (output goes to file1.tdy, file2.tdy, file <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	18736	18836	
==>ref =~ m{$label\n}gc;
		$ld2pos = pos($$textref);
		return (
			$startpos,	$oppos-$startpos,	# PREFIX <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	47959	48058	
==>ing: Class->_duo($source1, $source2)
  #  returns the parse trees of $source1 and $source2.
  # Good <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556356	556607	
==>E" => 638,
                  "ARGS" => [
                              "p",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 115 \"src/ops/object.ops\"\n  opcode_t *d <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	30049	30147	
==>'s
pretty good at guessing the right package to look at based on $Level.

Sometimes there is some c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	304287	304707	
==>DIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 354,
                  "ARGS" => [
                              "i",
                              "p",
                              "p"
                            ],
                  "BODY" => <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	7383	7473	
==>needs_build("$group$LOAD_EXT", @sources)) {
        run(partial_link_cmd("$group$LOAD_EXT", <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7594	7684	
==>needs_build("$group$LOAD_EXT", @sources)) {
        run(partial_link_cmd("$group$LOAD_EXT", <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	3071	3170	
==>ting rules for the various
	# forms of goto recognized by Parrot/OpsFile.pm and Parrot/Op.pm

	# abs <==
3	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	108	210	
==>8:15.110975Z coke  $

package init::hints::dec_osf;

use strict;

sub runstep
{
    my ($self, $conf) = <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1482	1579	
==>ewhere this macro should (again)
 * be in includes/parrot/event.h
 *
 * This gives +50 % performan <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	962	1073	
==>and returns the value of C<$result> from the inheriting
classes namespace.

=cut

sub result
{
    my $self = sh <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10465	10571	
==>'*unknown*';
  }

  $value = $self->_generate($lambda);

  if ($value !~ /^P/) {
    my $pmc = $self->_save <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143592	143865	
==>eter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144520	144793	
==>eter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145448	145721	
==>eter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4361	4504	
==>";
	while(<DRV>) {
                	/^\s*sub\s+_Parse\s*{\s*$/ .. /^\s*}\s*#\s*_Parse\s*$/
        	and     do {
                	s/^#DBG>// <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4141	4280	
==>";
	while(<DRV>) {
                	/^\s*sub\s+_Parse\s*{\s*$/ .. /^\s*}\s*#\s*_Parse\s*$/
        	and     do {
                	s/^#DBG>// <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2859	2960	
==>E}; }
sub name { return shift->{NAME}; }

sub file { return shift->{FILE}; }
sub line { return shift-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828844	829071	
==>on stack!\");\n  }\n\n  {{\@1}} = UVal_pmc(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829912	830139	
==>on stack!\");\n  }\n\n  {{\@1}} = UVal_pmc(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Test/More.pm	27324	27444	
==>if !ref $thing;

    for my $type (qw(ARRAY HASH REF SCALAR GLOB Regexp)) {
        return $type if UNIVERSAL::isa($thing <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037232	1037514	
==>,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038012	1038294	
==>,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	3224	3383	
==>ic_linking' => 1,
             'has_gdbm' => 0,
             'has_gnu_bc' => 0,
             'has_gnu_m4' => 1,
             'has_icu' => 1,
             'has_p <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8529	8634	
==>s up to the SRM to do the store.
	# Otherwise, there's nothing to do here.
	if ($dest_reg) {
		$pir .= <<' <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6349	6454	
==>s up to the SRM to do the store.
	# Otherwise, there's nothing to do here.
	if ($dest_reg) {
		$pir .= <<' <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5264	5369	
==>s up to the SRM to do the store.
	# Otherwise, there's nothing to do here.
	if ($dest_reg) {
		$pir .= <<' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	456	561	
==>b new
{
  my $class = shift;
  my ($block, $token) = @_;

  confess "Block is not!" unless UNIVERSAL::isa( <==
3	/Users/nnunley/parrot/config/auto/gc.pm	453	546	
==>C library C<malloc>.

=item C<malloc>

Use the malloc in F<src/res_lea.c>.

=item C<malloc-tra <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	8936	9023	
==>hisoffset, q{Parse::RecDescent::OffsetCounter}, \$text, $thisparser;
	':'') . ($parser-> <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	2145	2320	
==>C "*/\n" if $inc =~ /\.h/;
                next;
            }
            if (/&end_gen/) {
                close INC;
                my $destfile = ($inc =~ m[/]) ? "$inc" : <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59245	59382	
==>"
                            ],
                  "BODY" => "#line 901 \"src/ops/core.ops\"\n  PARROT_WARNINGS_on(interpreter, {{\@1}});\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59893	60030	
==>"
                            ],
                  "BODY" => "#line 901 \"src/ops/core.ops\"\n  PARROT_WARNINGS_on(interpreter, {{\@1}});\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544607	544906	
==>1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545943	546242	
==>1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547279	547578	
==>1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	292	391	
==>ISA = ('Pod::Simple::Methody');
BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG)
          ? \&Pod::Sim <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	174	273	
==>ISA = ('Pod::Simple::Methody');
BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG)
          ? \&Pod::Sim <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	48240	48337	
==>ift(@_) if @_ and ref($_[0] || '') eq 'CODE';

  Carp::croak "But $class->_duo takes two parameter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	328518	328655	
==>n"
                            ],
                  "BODY" => "#line 159 \"src/ops/dotgnu.ops\"\n  {{\@1}} =  (FLOATVAL)((Parrot_Float4)({ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	18810	18907	
==>>{items}}[$i];

		$code .= preitempos() if $parser->{_check}{itempos};

		$code .= $item->code($na <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8702	8798	
==>th;
    
    return $self->file_with_path($path);
}

=item C<path_for_directory_with_relative_pat <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	10754	10870	
==>//;
	print <<EOC;
	$pmc = new .BigInt $cmt
	$pmc = "$c"
EOC
	push @stack, [$n, $pmc, 'P'];
	return;
    }
    elsif ( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441599	441705	
==>mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442614	442720	
==>mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1607	1702	
==>y $right = $self->right;

  my $dest_sym = $block->find_symbol($dest->value);
  $self->SYNTAX_ER <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1565	1660	
==>y $right = $self->right;

  my $dest_sym = $block->find_symbol($dest->value);
  $self->SYNTAX_ER <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1487	1582	
==>y $right = $self->right;

  my $dest_sym = $block->find_symbol($dest->value);
  $self->SYNTAX_ER <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10249	10337	
==>de--------------------------------------------------


#line 1 "lib/Regex/Grammar.y"


us <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	1887	2006	
==>tern)/, @funcs;

    # Variables are of no use to us
    @funcs = grep !/=/, @funcs;

    # Get rid of any blocks at the <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834302	834387	
==>TEXT(interpreter->ctx)->user_stack, {{\@1}}, STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835028	835113	
==>TEXT(interpreter->ctx)->user_stack, {{\@1}}, STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	714	806	
==>uct::Expression::Value::Identifier');
  confess "Props are not hash!" if defined $props and r <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	793	885	
==>uct::Expression::Value::Identifier');
  confess "Props are not hash!" if defined $props and r <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	658	744	
==>oup('Loading', '', 'src/dynpmc'),
		$self->new_group('Runtime', '', 'runtime/parrot/inc <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5748	5858	
==>er) = @_;

    return
        unless defined $self->{triggers}{$key}
        and defined $self->{triggers}{$key <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6318	6428	
==>er) = @_;

    return
        unless defined $self->{triggers}{$key}
        and defined $self->{triggers}{$key <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1449	1548	
==>elf->{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/gets the transform's arguments.

=cu <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1058	1157	
==>elf->{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/gets the transform's arguments.

=cu <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	2289	2377	
==>not some generic term.  Currently acceptable prefixes are
C</^(Parrot|PDB|PF|PIO|PackFile <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2069	2191	
==>left_type = $left_sym->type;
  }
  else {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2027	2149	
==>left_type = $left_sym->type;
  }
  else {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1949	2071	
==>left_type = $left_sym->type;
  }
  else {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2786	2897	
==>f)=shift;

	${$$self{CHECK}}='ACCEPT';
    undef;
}

sub YYError {
	my($self)=shift;

	${$$self{CHECK}} <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2657	2759	
==>f)=shift;

	${$$self{CHECK}}='ACCEPT';
    undef;
}

sub YYError {
	my($self)=shift;

	${$$self{CHECK}} <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1578	1704	
==>=> \$nberr,
				TOKEN => \$token,
				VALUE => \$value,
				DOTPOS => \$dotpos,
				STACK => [],
				DEBUG => 0,
				CHEC <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1525	1645	
==>=> \$nberr,
				TOKEN => \$token,
				VALUE => \$value,
				DOTPOS => \$dotpos,
				STACK => [],
				DEBUG => 0,
				CHEC <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11936	12040	
==>"-$syms[CURR]";
			}
		}
		if ($type[CURR] =~ /STRING|BARE|INT|FLO/) {
			push @ld, { type => "STRING", v <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4563	4686	
==>) )
        )
    }sx;

    while ($source =~ m{$regex}go) {
        my ($name, $expl, $body, $out) = ($1, $2, $3, choose($4 <==
3	/Users/nnunley/parrot/tools/build/vtable_extend.pl	1047	1142	
==>de) may access.

There is a deliberate distancing from the internals here. Don't go
peeking insi <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1463	1581	
==>r,$token,$value,$check,$dotpos);
    my($self)={ ERROR => \&_Error,
				ERRST => \$errst,
                NBERR => \ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1413	1528	
==>r,$token,$value,$check,$dotpos);
    my($self)={ ERROR => \&_Error,
				ERRST => \$errst,
                NBERR => \ <==
3	/Users/nnunley/parrot/languages/regex/test.pl	2234	2332	
==>not enough args: testfile required"
  if ! defined $testfile && ! defined $pattern;

if (defined $t <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1832	1926	
==>ent events.  Most applications
can just use the normal stringification of objects of this class <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021683	1021776	
==>time_t) {{\@2}};\n  Parrot_gmtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022525	1022618	
==>time_t) {{\@2}};\n  Parrot_gmtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  { <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	5054	5201	
==>wd' => 'define',
             'i_rpcsvcdbm' => undef,
             'i_setjmp' => 'define',
             'i_sfio' => undef,
             'i_sgtty' => <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11474	11577	
==>}

sub parse_stop {
	feedme();
	print CODE<<STOP;
	print "Stopped at source line "
	print I11
	print "\\ <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	3506	3605	
==>=~ m!^src/dynoplibs/! || $dynamic_flag) {
    $source  =~ s!src/ops/!!;
    $header = "${base}_ops${ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143527	143619	
==>ODY" => "#line 84 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) == 0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144455	144547	
==>ODY" => "#line 84 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) == 0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145383	145475	
==>ODY" => "#line 84 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) == 0 <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	11352	11477	
==>};
    /c/ && do {
        push @{$temps_ref}, "char t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	17242	17356	
==>->diag(sprintf <<DIAGNOSTIC, $got, $type, $expect);
    %s
        %s
    %s
DIAGNOSTIC
}

=item B<BAILOUT>

    $T <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1874	1974	
==>>{scopef} }, $parser->YYData->{lex_num};
    $parser->YYData->{lex_num} = 0;
##    warn "PushScopeF <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	565	657	
==>'Jako::Construct::Block');
  confess "Value is not!" if defined $value and not UNIVERSAL::isa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736628	736758	
==>],
                  "BODY" => "#line 144 \"src/ops/set.ops\"\n  {{\@1}} = (FLOATVAL){{\@2}};\n  {{+=3}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737374	737504	
==>],
                  "BODY" => "#line 144 \"src/ops/set.ops\"\n  {{\@1}} = (FLOATVAL){{\@2}};\n  {{+=3}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6137	6257	
==>TODO: add to docs: Note: this may cause cuts to be processed out
      #  of order relative to pods, but in order relativ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2407	2506	
==>}";
}

=item C<goto_pop()>

Transforms the C<goto POP()> macro in an ops file into the relevant C
co <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	3535	3655	
==>$parser->YYData->{symbtab_cst}->Insert( $type . $value, $defn );
        if ( $type eq 'key' ) {
            push @opco <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	17134	17244	
==>ned $got    ? "'$got'"    : 'undef';
    $expect = defined $expect ? "'$expect'" : 'undef';
    return $self->d <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738197	738428	
==>ing_to_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738961	739192	
==>ing_to_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	5851	5988	
==>ut_fh'}} 
                $self->{'Tagmap'}{$tagname} . 
                $self->html_link(
                    $self->{DOCS_FILE}->parent- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94347	94627	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95239	95519	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96132	96412	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
3	/Users/nnunley/parrot/lib/File/Which.pm	1979	2081	
==>ile::Spec->path();
    unshift @path, File::Spec->curdir if $Is_DOSish or $Is_VMS or $Is_MacOS;

    fo <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	21208	21314	
==>urn $self->{No_Ending};
}


=back

=head2 Output

Controlling where the test output goes.

It's ok for your <==
3	/Users/nnunley/parrot/config/auto/format.pm	34	131	
==>l Foundation.
# $Id: /parrot/config/auto/format.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=hea <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70373	70658	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "loadlib",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71141	71426	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "loadlib",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	7866	7962	
==>et parentname
    $const->{parentname} = $self->{class};

}

=item C<init($class)>

Initializes t <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	3476	3631	
==>ock
        if ($function && /^\s*$/) {
            undef $function;
            next;
        }

        # beginning of variable block
        if (/VARIABL <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1009	1096	
==>[i])
#define SREG(i) REG_STR(cur_opcode[i])
#define CONST(i) CONTEXT(interpreter->ctx)-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1125	1212	
==>[i])
#define SREG(i) REG_STR(cur_opcode[i])
#define CONST(i) CONTEXT(interpreter->ctx)-> <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1646	1737	
==>:PGE::_generate_subrule_pir($target, $pattern)
        : Parrot::Test::PGE::_generate_pir_fo <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2169	2260	
==>:PGE::_generate_subrule_pir($target, $pattern)
        : Parrot::Test::PGE::_generate_pir_fo <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5039	5151	
==>) {
        copy("$_$LOAD_EXT", $dest) or die "Copy $_$LOAD_EXT failed ($?)\n";

        # Execute permissions on <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5250	5362	
==>) {
        copy("$_$LOAD_EXT", $dest) or die "Copy $_$LOAD_EXT failed ($?)\n";

        # Execute permissions on <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	54699	54793	
==>le>. Note too that the value returned by an extractor
subroutine need not bear any relationship <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529280	529532	
==>" => 611,
                  "ARGS" => [
                              "n",
                              "nc",
                              "n"
                            ],
                  "BODY" => "#line 838 \"src/ops/math.ops\"\n  {{\@1}} = atan <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2417	2524	
==>("print $what;");
}

sub output_test {
    my ($self, $test, $val1, $val2, $dest) = @_;
    $val1 = value($v <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2734	2840	
==>("print $what");
}

sub output_test {
    my ($self, $test, $val1, $val2, $dest) = @_;
    $val1 = value($v <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284849	285138	
==>erpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285726	286015	
==>erpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286603	286892	
==>erpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	185	293	
==>ND_OF_PIR';
    .sym pmc throwable
    throwable = new .Exception
    throwable[0] = "DOMAIN ERROR\n"
    thr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710663	710755	
==>nst io = PIO_STDOUT(interpreter);\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711497	711589	
==>nst io = PIO_STDOUT(interpreter);\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(int <==
3	/Users/nnunley/parrot/config/init/hints/linux.pm	736	862	
==>piler has the same name as its C compiler
        $link = 'icc';

        # don't allow icc to pretend it's gcc
        $cflags <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712731	712826	
==>-1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713838	713933	
==>-1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n" <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	13043	13141	
==>{code}}, qq{\tgoto END_$seg\n};
		feedme();
		#$_=english_func($funcname);
		#print CODE "\tgoto FU <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8556	8640	
==>t
print
data "ABANDON","CHART","COMPUTER"
data "DAMAGES","DESTRUCT","DOCK","IDLE","IM <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21420	21504	
==>t
print
data "ABANDON","CHART","COMPUTER"
data "DAMAGES","DESTRUCT","DOCK","IDLE","IM <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	33561	33665	
==>rays and elements which aren't explicitly
        # filled in with a shared reference will puke under 5.8 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	407	521	
==>_;
    return () unless $self->{DEBUG};
    my $ctx = $self->{ctx};
    $what = "\%<<rx_pos>>: $what";

    my @ops <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029744	1029840	
==>ext = {{^+2}};\n  if ({{\@1}} < 0.0) {\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\"C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030586	1030682	
==>ext = {{^+2}};\n  if ({{\@1}} < 0.0) {\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\"C <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	9550	9680	
==>an confuse Test::Harness.
        $out   .= " - $name";
        $result->{name} = $name;
    }
    else {
        $result->{name} = <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11262	11357	
==>yms[CURR] eq ",";
	feedme();
	my($rightres, $righttype, @right)=EXPRESSION({lhs => 1});
	push @{ <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	13316	13410	
==>s from names (as in C<EE<lt>I<name>E<gt>>) like "eacute" or "sol"
to the Unicode value that eac <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	12943	13072	
==>urn;
    }
    # params TODO
    if ($names{$c}) {
	$p = $names{$c};
	print <<"EOC";
	# lexical $n '$c' := $p $cmt
EOC
    }
    e <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	7160	7289	
==>rn @files;
}

sub clip_excess_lines {
    my $cnt = defined $_[1] ? $_[1] : 20;
    $_[0] =~ s/(([^\n]*\n){0,$cnt}).*/$1   [...]\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017691	1017929	
==>" => "function",
                  "CODE" => 1137,
                  "ARGS" => [
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 182 \"src/ops/sys.ops\" <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	1317	1423	
==>rrot/Docs/POD2HTML.pm'),
            $self->new_item('', 'lib/Parrot/Docs/HTMLPage.pm'),
            $self- <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30127	30234	
==>elsif($over_type eq 'block') {
          unless($curr_open->[-1][1]{'~bitched_about'}) {
            $curr_o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48535	48636	
==>f ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_BOUNDS_FLAG); }\n  else         { Interp_flag <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49325	49426	
==>f ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_BOUNDS_FLAG); }\n  else         { Interp_flag <==
3	/Users/nnunley/parrot/config/inter/lex.pm	333	438	
==>escription @args $prompt $util );

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Ste <==
3	/Users/nnunley/parrot/config/inter/make.pm	327	432	
==>escription @args $prompt $util );

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Ste <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	328	433	
==>escription @args $prompt $util );

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Ste <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955926	956158	
==>ng_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956738	956970	
==>ng_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	19882	20016	
==>y telling Test::Builder which
                # package the .t file is in (one more than usual, due to the
                # extra laye <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	35289	35443	
==>le::LinkSection->new( $it ); # treelet!
          next;
        }
        # else fall thru...
      }
      
      

      # ...Uhoh, here's the real L<... <==
3	/Users/nnunley/parrot/config/init/defaults.pm	4834	4948	
==>-e rm_rf',
        mkdir     => '$(PERL) -MExtUtils::Command -e mkpath',
        touch     => '$(PERL) -MExtUtils:: <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9847	9958	
==>T_CTOR_${CURIC}:

# Loop over each parameter and put them into ${PARAMS}. Note that they come
# off the stack la <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7361	7472	
==>T_CTOR_${CURIC}:

# Loop over each parameter and put them into ${PARAMS}. Note that they come
# off the stack la <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6325	6436	
==>T_CTOR_${CURIC}:

# Loop over each parameter and put them into ${PARAMS}. Note that they come
# off the stack la <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5543	5650	
==>no=$$stack[-1][0];
        $actions=$$states[$stateno];

#DBG>	print STDERR ('-' x 40),"\n";
#DBG>		$deb <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5276	5379	
==>no=$$stack[-1][0];
        $actions=$$states[$stateno];

#DBG>	print STDERR ('-' x 40),"\n";
#DBG>		$deb <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2435	2531	
==>en->dump

This returns a handy stringified value of this object.  This
is useful for debugging, a <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1272	1383	
==>$desc );
        $self->{builder}->diag("'$cmd' failed with exit code $exit_code")
        if $exit_code and not <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1313	1424	
==>$desc );
        $self->{builder}->diag("'$cmd' failed with exit code $exit_code")
        if $exit_code and not <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	1689	1792	
==>$desc );
    $self->{builder}->diag("'$cmd' failed with exit code $exit_code")
    if $exit_code and not <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	5675	5802	
==>ut .= "    \@_ ? (\$i = shift) : return \$r->$elem;\n"; 
                $out .= "    if (ref(\$i) eq 'ARRAY' && !\@_) { \$r->$e <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	2297	2424	
==>hashes = ();
    my %classes = ();
    my $got_class = 0;
    my $out = '';

    $out = "{\n  package $class;\n  use Carp;\n  su <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51688	51779	
==>"BODY" => "#line 815 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_trace(interprete <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52471	52562	
==>"BODY" => "#line 815 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_trace(interprete <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	638	772	
==>_;

        ++$count;
        my( $lang_f, $pasm_f, $by_f, $out_f ) = map { # JMG
            my $t = $0; $t =~ s/\.t$/_$count\.$_/; $t <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	553	687	
==>_;

        ++$count;
        my( $lang_f, $pasm_f, $by_f, $out_f ) = map { # JMG
            my $t = $0; $t =~ s/\.t$/_$count\.$_/; $t <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	1079	1179	
==>self, $tree, $ctx) = @_;
    return op('seq' => [ map { $self->convert($_, $ctx) } @{ $tree->things } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506945	507261	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 583,
                  "A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029883	1030071	
==>arrot_sleep_on_event(interpreter, {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030725	1030913	
==>arrot_sleep_on_event(interpreter, {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7443	7547	
==>, 200, 300
print "No match\n"
FIN:
for i = 1 to 3
	on i gosub oats, peas, beans
next i
print
end
100 prin <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19726	19830	
==>, 200, 300
print "No match\n"
FIN:
for i = 1 to 3
	on i gosub oats, peas, beans
next i
print
end
100 prin <==
3	/Users/nnunley/parrot/config/init/manifest.pm	348	439	
==>gs);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step;
use ExtUtils <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116617	116946	
==>"shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 145,
                  "ARGS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115762	116061	
==>"shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 144, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114908	115205	
==>"shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 14 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	13298	13425	
==>14
		ACTIONS => {
			"-" => 31,
			"^" => 32
		},
		DEFAULT => -40,
		GOTOS => {
			'classpieces' => 30
		}
	},
	{#State 15
		DE <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	4411	4510	
==>$textref) unless @match;

	return _succeed ( $wantarray, $textref,
			  $match[2], $match[5]+2,	# MA <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	178	268	
==>n;
use Pod::Simple::PullParserEndToken;
use Pod::Simple::PullParserTextToken;

BEGIN { *DEB <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	9894	10041	
==>ate VTABLE_macro to the expanded form
        $opbody =~ s/
            \bVTABLE_(\w+)
            \s*\(
            interpreter,\s*
            {{\ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	1471	1571	
==>ite_RET',    'returncc'],
 ],
 apply => 
 [['# Apply function'],
  ['apply_ENTRY', 'set', 'P0', 'P5'] <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	7896	7986	
==>&
	!(ref($trans) eq 'Parrot::OpTrans::CGP' ||
	  ref($trans) eq 'Parrot::OpTrans::CSwitch') <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958170	958408	
==>tion",
                  "CODE" => 1078,
                  "ARGS" => [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 581 \"src/ops/string.ops\"\n  IN <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	11139	11230	
==>CK->compile(COMPILER, FILTER)

Compile the block's content using COMPILER. If FILTER is prov <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	522	617	
==>st a call to some other
function and a C<return> statement), opcode functions are in the format: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473593	473909	
==>v",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 543,
                  " <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10033	10135	
==>]]{ACTIONS}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Pop state $$stack[-1][ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9585	9684	
==>]]{ACTIONS}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Pop state $$stack[-1][ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022656	1022946	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodelocaltime",
                  "FLAGS" => "",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023505	1023795	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodelocaltime",
                  "FLAGS" => "",
                  " <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	7612	7773	
==>>', $group ]),
                        $self->dbprint("pushing end[$group]: "),
                        aop('pushint', [ '<tmp>' ]),
                        aop(' <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	55876	56007	
==>lua51.yp"
{
            BuildLiteral( $_[0], $_[1], 'number' );
        }
	],
	[#Rule 80
		 'primary', 1,
sub
#line 432 "Lua <==
3	/Users/nnunley/parrot/config/inter/progs.pm	669	781	
==>libs debugging
    lex yacc maintainer);

sub runstep
{
    my ($self, $conf) = @_;

    my ($cc, $cxx, $link, $l <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4410	4511	
==>ypes index.
inc ${ITEMP0}
PIR
		$pir =~ s/\$push_num/$push_num/g;
		$push_num++;
	}

	# Return generat <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2826	2927	
==>ypes index.
inc ${ITEMP0}
PIR
		$pir =~ s/\$push_num/$push_num/g;
		$push_num++;
	}

	# Return generat <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1761	1876	
==>ost_translation() {
	# Nothing to do.
	return "";
}

# Extra subroutines required for the mapper.
sub subs() {
	# No <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	801	916	
==>ost_translation() {
	# Nothing to do.
	return "";
}

# Extra subroutines required for the mapper.
sub subs() {
	# No <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	558	673	
==>ost_translation() {
	# Nothing to do.
	return "";
}

# Extra subroutines required for the mapper.
sub subs() {
	# No <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	54998	55094	
==>ing
'\G' and the gc modifiers enabled. The extracted value is either
$1 if that variable is defin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106234	1106326	
==>}};\n    if (typ < 1 || typ >= interpreter->n_vtable_max)\n\treal_exception(interpreter, NULL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107210	1107302	
==>}};\n    if (typ < 1 || typ >= interpreter->n_vtable_max)\n\treal_exception(interpreter, NULL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111253	111358	
==>line 187 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112145	112250	
==>line 187 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113037	113142	
==>line 187 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009155	1009447	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compose",
                  "FL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009919	1010211	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compose",
                  "FL <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2623	2724	
==>ul for seeing exactly what events you
get out of some Pod that you feed in.

This is a subclass of L<P <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16696	16796	
==>($opts{choose}) {
			$opts{stuff}=~s/X/$type/g;
		}
		# The rhs was passed in
		@stream=build_assignm <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	22575	22674	
==>ed::Extractor')
					{ @bits = $field = $func->extract($$textref) }
				elsif( $$textref =~ m/\G$fun <==
3	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	4360	4456	
==>t them off visually.
 o could remove/add explicit declarations of string type
 o could convert do <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	3830	3952	
==>$n = @args;
		$arg_count{$f} = $n;
		for (my $i = 0; $i < $n; $i++) {
		    my ($a, $def) = split(/=/, $args[$i]);
		    $a <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	4329	4451	
==>$n = @args;
		$arg_count{$f} = $n;
		for (my $i = 0; $i < $n; $i++) {
		    my ($a, $def) = split(/=/, $args[$i]);
		    $a <==
3	/Users/nnunley/parrot/config/auto/snprintf.pm	383	477	
==>);

use Parrot::Configure::Step qw(cc_gen cc_build cc_clean cc_run);

$description = 'Testing s <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6508	6609	
==>hift;
    my $tagname = $token->tagname;
    
    print {$self->{'output_fh'}} $self->{'Tagmap'}{$tagn <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557862	557953	
==>bject = {{\@1}};\n  meth = {{\@2}};\n  interpreter->current_cont = CONTEXT(interpreter->ctx) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559246	559337	
==>bject = {{\@1}};\n  meth = {{\@2}};\n  interpreter->current_cont = CONTEXT(interpreter->ctx) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42344	42533	
==>ion(interpreter, EXCEPT_exit, {{\@1}});\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43034	43223	
==>ion(interpreter, EXCEPT_exit, {{\@1}});\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	1274	1423	
==>new(
        $file, $line, 'literal', 'N', $1);
      $text = $2;
      next;
    }

    #
    # Integer literals:
    #

    if ($text =~ m{^( 0 | (- <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	7492	7646	
==>d
                -(\d+)		# 16	unexpected
               --([a-f0-9]+)	# 17    harness_args
               --([a-f0-9]+)	# 18	id
   .html$/x
    and return <==
3	/Users/nnunley/parrot/examples/benchmarks/fib.pl	307	412	
==>bonacci Number for C<n> (defaults to 28 if
unspecified).

=cut

use strict;

sub fib {
	my $n = shift;
	re <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	1942	2035	
==>{\t\t# Grab "COMMON" variables from global stash\n};
		print CODE qq{\t\tfind_global _GLOBALS, <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	3344	3482	
==>, 166,
 'sect'     , 167,
 'uml'      , 168,
 'copy'     , 169,
 'ordf'     , 170,
 'laquo'    , 171,
 'not'      , 172,
 'shy'      , 173, <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	47341	47438	
==>EOMSG" (i.e. the right delimiter of the here document),

=item [7..10]

"" (a here document has no <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100360	100450	
==>06 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}}->vtable->bitwise_not(interpreter, {{\@2}}, NULL <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11892	12029	
==>lf)=$class->SUPER::new( yyversion => '1.05',
                                  yystates =>
[
	{#State 0
		DEFAULT => -2,
		GOTOS => {
			' <==
3	/Users/nnunley/parrot/lib/Test/More.pm	2403	2506	
==>acement for Test::Simple
which you can switch to once you get the hang of basic testing.

The purpose of <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	37604	37700	
==>g_ge_p,
  'string-ci=?'   => \&_op_string_ci_eq_p,
  'string-ci<?'   => \&_op_string_ci_lt_p,
  ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125877	126272	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rot",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127011	127406	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rot",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128146	128541	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rot",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	11900	12015	
==>::Tree::group::render {
    my $op = shift;
    my $R = $op->{args}->[0];
    my $str = $R->render();
    # Strip of <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	149	256	
==>ge Parrot::Test::Lua;

use strict;

use Data::Dumper;
use File::Basename;

require Parrot::Test;

= <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	860	949	
==>qq[-L/usr/local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS = qq[-bundle -undefined suppres <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	13284	13380	
==>tartpos = pos($$textref) = pos($$textref) || 0;
	unless ($$textref =~ m/\G($pre)/gc)
	{
		_failms <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	10944	11038	
==>tartpos = pos($$textref) = pos($$textref)||0;
	unless ($$textref =~ m/\G($pre)/gc)
	{
		_failms <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	3445	3555	
==>l" context="#stay" />
          <HlCHex attribute="Hex" context="#stay" />
          <Float attribute="Float" c <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	1681	1774	
==>('P6C::sv_literal') && is_string($atom->type)) {
        $R = $self->convert_sv_literal($atom, <==
3	/Users/nnunley/parrot/examples/benchmarks/fib.pl	34	122	
==>03, The Perl Foundation.
# $Id: /parrot/examples/benchmarks/fib.pl 19601 2006-05-30T13:32 <==
3	/Users/nnunley/parrot/config/gen/config_h.pm	586	689	
==>':gen';

$description = 'Generating C headers';

@args = ('define');

sub runstep
{
    my ($self, $conf <==
3	/Users/nnunley/parrot/lib/Test/More.pm	3258	3359	
==>declare that you
have no plan.  (Try to avoid using this as it weakens your test.)

  use Test::More q <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14354	14454	
==>e>\n";
  $title = '\lang1024\noproof ' . $title
   if $is_obviously_module_name;

  return sprintf << <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	2193	2314	
==>icode:"dyadic:\u2260"]  = <<"END_PIR"             # not equal
    $I100 = isne %1, %2
    %1 = $I100
END_PIR

    $P0[unic <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1009	1115	
==>ct;

use vars qw ( $VERSION $COMPATIBLE $FILENAME );

$VERSION = '1.05';
$COMPATIBLE = '0.07';
$FILEN <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	977	1077	
==>ct;

use vars qw ( $VERSION $COMPATIBLE $FILENAME );

$VERSION = '1.05';
$COMPATIBLE = '0.07';
$FILEN <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	153742	153972	
==>ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 127 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp( <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	5519	5615	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_element_start {     # OVERRIDE IN DERIVED CLASS
  my($ <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	7896	7981	
==>_jit_vtable_newp_ic_op Parrot_jit_normal_op

#define Parrot_jit_restart_op Parrot_jit_ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35992	36121	
==>ests, it will still be
considered a failure and will exit with 255.

So the exit codes are...

    0                   all tests s <==
3	/Users/nnunley/parrot/lib/Test/More.pm	34063	34192	
==>ests, it will still be
considered a failure and will exit with 255.

So the exit codes are...

    0                   all tests s <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2858	2987	
==>ests, it will still be
considered a failure and will exit with 255.

So the exit codes are...

    0                   all tests s <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	7535	7692	
==>in',
             'jitcapable' => 1,
             'jitcpu' => 'PPC',
             'jitcpuarch' => 'ppc',
             'jitosname' => 'DARWIN',
             'l <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14092	14188	
==>('', 'set', [$return,1]);
    $self->_add_inst ('', 'branch', ["DONE_$label"]);
    $self->_add_i <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16362	16454	
==>('', 'set', [$return,1]);
  $self->_add_inst ('', 'branch', ["DONE_$label"]);
  $self->_add_i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360612	360822	
==>=> "function",
                  "CODE" => 422,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 258 \"src/ops/io.ops\"\n  PMC * c <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4887	5019	
==>te().
    
    unlink($_[0]->path) or die 'Failed to unlink ' . $_[0]->path . ": $!";
    
    $_[0]->SUPER::delete;
}

=back

=head1 <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	952	1061	
==>'';
    my $resources = shift || '';
    
    <<"HEADER";
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transiti <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11099	11182	
==>call_HAS_RETURN_${CURIC}
goto pre_call_NO_RETURN_${CURIC}
pre_call_HAS_RETURN_${CURI <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8285	8368	
==>call_HAS_RETURN_${CURIC}
goto pre_call_NO_RETURN_${CURIC}
pre_call_HAS_RETURN_${CURI <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5947	6030	
==>call_HAS_RETURN_${CURIC}
goto pre_call_NO_RETURN_${CURIC}
pre_call_HAS_RETURN_${CURI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726025	726259	
==>1}} = string_copy(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726787	727021	
==>1}} = string_copy(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742005	742239	
==>1}} = string_copy(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511309	511591	
==>g",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 589,
                  "ARGS <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	16167	16300	
==>2,
			"+" => 24,
			"*" => 27,
			"[" => 14,
			"?" => 23,
			'CODE' => 6,
			"(" => 10,
			"." => 15
		},
		DEFAULT => -9,
		GOTOS => <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	31674	31771	
==>rue, something
has gone horribly wrong.  It will die with the given $description and
a note to con <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	7662	7774	
==>ndex);
    }
    $one_op .= "$definition $comment {\n$src}\n\n";
    push @op_funcs, $one_op;
    $index++;
}

if <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2801	2905	
==>{$$self{CHECK}}='ACCEPT';
    undef;
}

sub YYError {
	my($self)=shift;

	${$$self{CHECK}}='ERROR' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2670	2767	
==>{$$self{CHECK}}='ACCEPT';
    undef;
}

sub YYError {
	my($self)=shift;

	${$$self{CHECK}}='ERROR' <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	5301	5438	
==>m/\.svn/) {
       $svn_cmd = 'svn';
   } else {
       $svn_cmd = 'svk';
   }

   # Find all directories in the Parrot distribution
   my <==
3	/Users/nnunley/parrot/tools/dev/cc_flags.pl	1313	1435	
==>, $option ];
	    }
	}
	elsif (s{s(.)(.*?)\1(.*?)\1([imsx]*)\s*}{}) {
	    my $mod = "";
	    $mod = "(?$4)" if $4;

	    p <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	9303	9393	
==>seg}->{code}}, <<PRINT;
	find_global \$P0, "PRINTCOL"
	\$P0["value"]=0
	store_global "PRINT <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	37032	37132	
==>routine takes up to five optional arguments:

=over 4

=item 1.

A string to be processed (C<$_> if t <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	11923	12019	
==>tatic HOP **hop;

static void hop_init(void);
static size_t hash_str(const char * str);
static vo <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	7355	7455	
==>{ "$_$O" } @$stems;
    if (needs_build("$group$LOAD_EXT", @sources)) {
        run(partial_link_cmd( <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7566	7666	
==>{ "$_$O" } @$stems;
    if (needs_build("$group$LOAD_EXT", @sources)) {
        run(partial_link_cmd( <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	358	453	
==>the build tool takes this and generates the
actual compiler for that command.

Many builtins nee <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	46179	46280	
==>]) and !ref($p->[$i + 1]) ) {
      DEBUG > 5 and print "_verbatim_format merges {$p->[$i]} and {$p->[ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653503	653600	
==>l_exception(interpreter, resume, METH_NOT_FOUND,\n            \"Method '%s' not found\", string_to <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654664	654761	
==>l_exception(interpreter, resume, METH_NOT_FOUND,\n            \"Method '%s' not found\", string_to <==
3	/Users/nnunley/parrot/lib/Test/More.pm	29240	29355	
==>d(\$e1, \$e2);

        # Either they're both references or both not.
        my $same_ref = !(!ref $e1 xor !ref $e2 <==
3	/Users/nnunley/parrot/lib/Test/More.pm	9093	9195	
==>like($this, qr/that/, 'this is like that');

is similar to:

    ok( $this =~ /that/, 'this is like tha <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	413	502	
==>l_group'
.namespace ['']

END_PIR

print "  .include 'languages/tcl/$static_dir/$_.pir'\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291483	291750	
==>"inline",
                  "CODE" => 339,
                  "ARGS" => [
                              "i",
                              "nc",
                              "n"
                            ],
                  "BODY" => "#line 940 \"src/ops/cmp.ops\"\ <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	2731	2840	
==>flag;
Usage() unless @ARGV;


#
# Read in the first ops file.
#

my $package = "core";
my $moddir  = "lib/Parr <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4826	4921	
==>n array of C<Parrot::IO::File> instances.

Set C<$recursive> to true if you want all files in su <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3136	3241	
==>= ();
	
	foreach my $content (@{$self->{CONTENTS}})
	{
		if ( ref($content) )
		{
			push @contents, $cont <==
3	/Users/nnunley/parrot/config/inter/ops.pm	109	207	
==>110975Z coke  $

=head1 NAME

config/inter/ops.pm - Ops Files

=head1 DESCRIPTION

Asks the user to <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25422	25508	
==>RLOOP_STEP_$forloop= $stepexpr
FOR_$forloop:
	gt FORLOOP_STEP_$forloop, 0.0, FOR_GT_$fo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582691	582996	
==>GS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 664,
                  "ARGS" => <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	2561	2675	
==>ould skip over?
        } elsif ($line eq "" && (!$cur_method || $cur_method->{'unimplemented'})) {
            # D <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	21408	21513	
==>l not be affected.

=over 4

=item B<diag>

    $Test->diag(@msgs);

Prints out the given @msgs.  Like C<p <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1340	1453	
==>e for the consequences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $self->set_resu <==
3	/Users/nnunley/parrot/config/inter/make.pm	1161	1274	
==>e for the consequences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $self->set_resu <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1337	1450	
==>e for the consequences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $self->set_resu <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35652	35753	
==>t with zero (which is
normal).  If anything failed it will exit with how many failed.  If
you run less <==
3	/Users/nnunley/parrot/lib/Test/More.pm	33723	33824	
==>t with zero (which is
normal).  If anything failed it will exit with how many failed.  If
you run less <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2519	2620	
==>t with zero (which is
normal).  If anything failed it will exit with how many failed.  If
you run less <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	21662	21767	
==>tref)
	{
		my @func = defined $_[1] ? @{$_[1]} : @{$def_func};
		my $max  = defined $_[2] && $_[2]>0 ? $_[ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	5934	6037	
==>*(\Q$1\E)/gsc and next;
			_failmsg "Unmatched embedded quote ($1)",
				 pos $$textref;
			pos $$textre <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	17530	17625	
==>t'}{'from'} += length($1);
		$itempos[$#itempos]{'line'}{'from'}   = $thisline;
		$itempos[$#ite <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	1187	1314	
==>e_for_path{$path}, $self;
        }
        
        return $instance_for_path{$path};
    }
    
    my ($volume, $directories, <==
3	/Users/nnunley/parrot/config/init/optimize.pm	1441	1562	
==>t was passed to --optimize on the CLI
            $conf->data->add(' ', ccflags => $optimize);
            # record what o <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	3688	3792	
==>ions->get(qw(verbose verbose-step ask));

    my $n = 0; # step number
    foreach my $task ($self->steps <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1560	1787	
==>NE:                         # DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
print "Elapsed time:  $N2\n"; # prin <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	1560	1787	
==>NE:                         # DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
print "Elapsed time:  $N2\n"; # prin <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	354	447	
==>tep::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining if your C compi <==
3	/Users/nnunley/parrot/config/auto/msvc.pm	374	467	
==>tep::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining if your C compi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10823	10904	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sub do_begi <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9695	9795	
==>f it's a call to instantiate, need to knock off first arg.
if "${CURIC}" != "73" goto pre_call_NOT_CT <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7209	7309	
==>f it's a call to instantiate, need to knock off first arg.
if "${CURIC}" != "73" goto pre_call_NOT_CT <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6173	6273	
==>f it's a call to instantiate, need to knock off first arg.
if "${CURIC}" != "73" goto pre_call_NOT_CT <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2439	2561	
==>ER}={};

	$$self{USER};
	
}

sub YYErrok {
	my($self)=shift;

	${$$self{ERRST}}=0;
    undef;
}

sub YYNberr { <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2343	2452	
==>ER}={};

	$$self{USER};
	
}

sub YYErrok {
	my($self)=shift;

	${$$self{ERRST}}=0;
    undef;
}

sub YYNberr { <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	21844	21951	
==>wantarray)
		{
			use Carp;
			carp "extract_multiple reset maximal count to 1 in scalar context"
				if $^W <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	198	300	
==>d 'GNU m4'.

=cut

package Parrot::Test::M4;

use strict;
use warnings;
use 5.006;

use Data::Dumper;
u <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2258	2350	
==>m C<expr_offset($offset)>

Transforms the C<OFFSET($offset)> macro in an ops file into the
re <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	2095	2195	
==>st, given the possibilitiy of running off the end) are returned. If
# a count is not given, 1 is infe <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1715	1817	
==>_increment {
    my ($self, $distance, $failLabel) = @_;
    die "invalid distance" if $distance =~ /[^ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1468	1570	
==>_increment {
    my ($self, $distance, $failLabel) = @_;
    die "invalid distance" if $distance =~ /[^ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	219	315	
==>p/While.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23641	23795	
==>lue>);
    #
    #   last;
    #   last if     (<value> <op> <value>);
    #   last unless (<value> <op> <value>);
    #
    #   last <label>;
    #   last <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	346	449	
==>e vars qw ( @ISA );
use strict;

@ISA= qw ( Parse::Yapp::Driver );
#Included Parse/Yapp/Driver.pm fi <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	339	438	
==>e vars qw ( @ISA );
use strict;

@ISA= qw ( Parse::Yapp::Driver );
#Included Parse/Yapp/Driver.pm fi <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	12514	12615	
==>];
	my $rdel_inner = $ldel_inner;
	my $rdel_outer = $ldel_outer;
	my $posbug = pos;
	for ($ldel_inner, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4864	4956	
==>_block;

      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $self- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22659	22750	
==>_block;
      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $self- <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	6972	7085	
==>suffix($suffix);
        push @files, $file;
    }
    
    return @files;
}

=item C<path_for_directory_with_name <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20617	20710	
==>s_assign) {
        my $left = Jako::Construct::Expression::Value::Identifier->new($block, $se <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	63	152	
==>lib/Parrot/Configure/Data.pm 20321 2006-06-20T20:02:00.179448Z bernhard  $

=pod

=head1 N <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113351	113644	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TY <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114089	114382	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TY <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92273	92542	
==>E" => "inline",
                  "CODE" => 114,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 43 \"src/ops/bit.ops <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1670	1892	
==>$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
print "Elapsed time:  $N2\n"; # print  "Elapsed time:  "
                              # print  N2
                              # print  "\n <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	1670	1892	
==>$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
print "Elapsed time:  $N2\n"; # print  "Elapsed time:  "
                              # print  N2
                              # print  "\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	935164	935412	
==>se",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1051,
                  "ARGS" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	760	862	
==>PREFIX tells the prefix that will be used for block-related labels. For
example, B<while> loops have la <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35593	35689	
==>ssubrule ($) { return $_[0]->{"subrule"} }
sub isterminal { 0 }
sub sethashname { }

sub describe <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33072	33167	
==>ssubrule ($) { return $_[0]->{"subrule"} }
sub isterminal { 0 }
sub sethashname {}

sub describe <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	27828	27941	
==>er => fallbacks @fallbacks.\n";
    }

  } else {
    DEBUG > 2 and print "Extensor has bad syntax.\n";
    $self- <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2178	2300	
==>ead'} = 1;
      $self->_ponder_paragraph_buffer;
      next;
    }


    if( $self->{'line_count'}++ ) {
      ($line = $s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2899	2995	
==>f->content;
  $handler->end_element({ Name => 'block' });

  $handler->end_element({ Name => $sel <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2781	2877	
==>f->content;
  $handler->end_element({ Name => 'block' });

  $handler->end_element({ Name => $sel <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14689	14787	
==>'' unless defined $title;
  $title =~ s/^\s+//;
  return $title;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5865	5988	
==>hould be at most a single group
        my $group = $class->{flags}{group}
          or next;
        ($group) = keys %$grou <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6076	6199	
==>hould be at most a single group
        my $group = $class->{flags}{group}
          or next;
        ($group) = keys %$grou <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	17605	17721	
==>/mg;

        # FIXME: This ought to throw errors when attempting to rewrite $n
        # argument accesses and other <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9551	9671	
==>''	# End of input: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	print STDERR "**At eof: aborting.\n";
				r <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9121	9237	
==>''	# End of input: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	print STDERR "**At eof: aborting.\n";
				r <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13734	13844	
==>->_save_1 ('I');

  if ($item =~ /^[INS]/) {
    $self->_add_inst ('', 'set', [$return,0]);
  }
  else {
    $s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4885	4992	
==>pmc();

    $compiler->emit("  $pmc_reg = new $pmc_type");
    $compiler->emit("  $pmc_reg = $dest");
    $c <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2948	3055	
==>pmc();

    $compiler->emit("  $pmc_reg = new $pmc_type");
    $compiler->emit("  $pmc_reg = $dest");
    $c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630418	630516	
==>> "#line 81 \"src/ops/pmc.ops\"\n    PMC *class = {{\@2}};\n    INTVAL type = pmc_type_p(interprete <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631408	631506	
==>> "#line 81 \"src/ops/pmc.ops\"\n    PMC *class = {{\@2}};\n    INTVAL type = pmc_type_p(interprete <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	3251	3341	
==>e::String');

  $self->SYNTAX_ERROR("Can't do arithmetic on PMCs") if UNIVERSAL::isa($dest_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543517	543695	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lcm",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544852	545030	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lcm",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546188	546366	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lcm",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2728	2838	
==>type);
      my $value = $args[$i]->compile($compiler);
      $compiler->emit("  $temp = $value");
      $args[ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2428	2538	
==>type);
      my $value = $args[$i]->compile($compiler);
      $compiler->emit("  $temp = $value");
      $args[ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	4260	4359	
==>ler) = @_;

  $handler->start_element({ Name => 'assign' });
  $self->dest->sax($handler);

  $handl <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	8638	8735	
==>truct call_state *st, INTVAL val)
{
    Parrot_init_ret_nci(interpreter, st, "I");
    UVal_int(st <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	176	270	
==>cape $WRAP %Tagmap);
$VERSION = '2.02';
use Pod::Simple::PullParser ();
BEGIN {@ISA = ('Pod::Si <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	49204	49297	
==>ond argument (delimiter brackets) indicates that only C<'{'> is to be used.
Omitting the third <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730561	730765	
==>RGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 124 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n" <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	29485	29590	
==>or = new_label($parser);
    my $zero = BuildLiteral( $_[0], 0, 'number' );
    push @opcodes, @{ $zero- <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	61139	61225	
==>ract_bracketed>, C<extract_quotelike> or C<extract_codeblock> encountered
a closing bra <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54124	54240	
==>common case
      or(
         m/^-?(?:[123456789]\d*|0)(?:\.\d+)?$/s
         and $_ ne '-0' # the strange case that <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621751	621842	
==>UB_FLAG_TAILCALL) {\n\t    PObj_get_FLAGS(ccont) &= ~SUB_FLAG_TAILCALL;\n\t    --ctx->recurs <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29591	29674	
==>UB_FLAG_TAILCALL) {\n\tPObj_get_FLAGS(ccont) &= ~SUB_FLAG_TAILCALL;\n\t--ctx->recurs <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200465	200855	
==>ore",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 237,
                  "ARGS" => [
                              "nc",
                              "n",
                              "ic <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	2652	2752	
==>to HTML and
written to a file in C<$target> and an HTML link is created to it.

Alternatively, if a f <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	262	361	
==>his is needed for the dynamic
GDBMHash PMC.

=cut

package auto::gdbm;

use strict;
use vars qw($des <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	5369	5508	
==>dings', 
                'contents' => ['src/encodings']
            ),
            $self->c_header_item('', 'unicode'),
            $self-> <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	13092	13199	
==>rewrite_scan {
    my ($self, $op, $R, $lastback) = @_;

    my $scan = $self->genlabel('scan_start');
    m <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	1617	1730	
==>uted.', 'LICENSES/Artistic', 'LICENSES/gpl.txt'),
        ),
        $self->new_group('Status', '',
            $s <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1606	1713	
==>ildren}}) {
      _dataflow($_);
    }
    my $cur_type = $node->{children}[0]{type};
    for(@{$node->{chil <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	4437	4536	
==>E);

 $digest = $ctx->digest;
 $digest = $ctx->hexdigest;
 $digest = $ctx->b64digest;

=head1 DESCRI <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2793	2897	
==>y $name = $self->{NAME};

  return $name;
}

sub props { return %{shift->{PROPS}}; }
sub args  { return @ <==
3	/Users/nnunley/parrot/config/init/hints/freebsd.pm	1044	1141	
==>t$(SHARE_EXT)',
        libparrot_soname        => '-Wl,-soname=libparrot$(SHARE_EXT).$(SOVERSION) <==
3	/Users/nnunley/parrot/config/init/hints/linux.pm	1882	1979	
==>t$(SHARE_EXT)',
        libparrot_soname        => '-Wl,-soname=libparrot$(SHARE_EXT).$(SOVERSION) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015090	1015314	
==>erpreter, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015914	1016138	
==>erpreter, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6297	6403	
==>urn shift->require('type');          }

sub require_value         { return shift->require('ident', 'literal <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720837	721042	
==>[
                              "p",
                              "nc"
                            ],
                  "BODY" => "#line 133 \"src/ops/python.ops\"\n  PMC * const io = {{\@1}};\n  STRING *s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054366	1054458	
==>"Tried to get from null namespace.\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055493	1055585	
==>"Tried to get from null namespace.\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to <==
3	/Users/nnunley/parrot/config/init/hints/netbsd.pm	118	229	
==>elf, $conf) = @_;

    my $ccflags = $conf->data->get('ccflags');
    if ($ccflags !~ /-pthread/) {
        $ccf <==
3	/Users/nnunley/parrot/config/init/hints/openbsd.pm	210	321	
==>elf, $conf) = @_;

    my $ccflags = $conf->data->get('ccflags');
    if ($ccflags !~ /-pthread/) {
        $ccf <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24852	24951	
==>ON({ lhs => 1, assign => 1});
	push @{$code{$seg}->{code}}, @code;

	die "TO expected at source line <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4250	4369	
==>suffix$LOAD_EXT";
	        copy($src, $dest)
			    or die "Copy $src failed ($?)\n";
	
		    # Execute permissions on l <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1857	1950	
==>rt_over_number  { ++$_[0]{'Indent'} }
sub start_over_text    { ++$_[0]{'Indent'} }
sub start_o <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1425	1518	
==>rt_over_number  { ++$_[0]{'Indent'} }
sub start_over_text    { ++$_[0]{'Indent'} }
sub start_o <==
3	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	2098	2228	
==>iparrot directory\n";

    foreach my $obj (@ARGV) {
        my $src = $obj;
        $src =~ s/\.o/\.c/g;
        copy_file($src, " <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	3369	3468	
==>$desc !! "The object is-a '$expected_type'";
    my $test := $ref.isa($expected_type);
    Test::pro <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	292	389	
==>& Percent \\\\
\\hline
HEADING
foreach (@results) {
	print "$_->{'name'} & $_->{'done'} & $_-> <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4447	4564	
==>ops, 'print "\n";';
    }
    return @ops;
}

sub output_classmatch {
    my ($self, $incexc, $failLabel) = @_;

    m <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5462	5578	
==>CH_$c:
CODE
		$elseline++;
		goto PARSE;
	}
	if ($syms[CURR] eq "end") {
		if ($syms[NEXT] eq "function") {
			parse_ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4784	4900	
==>ops, 'print "\n"';
    }
    return @ops;
}

sub output_classmatch {
    my ($self, $incexc, $failLabel) = @_;

    m <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	5243	5422	
==>le->{'name'}\n";
                } else {
                    $has_code = 1;
                }
            } else {
                die "Invalid value for code in rule $rule->{'nam <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	12457	12586	
==>e_t key = 0;
    const char * s;
    for(s=str; *s; s++)
        key = key * 65599 + *s;
    return key;
}

static void store_op(o <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	7822	7924	
==>::CALLER::SUBNAME ~ ' ') >= 0) {
        Test::diag("  $wanted: '" ~ ($expected.defined ?? $expected !! <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56358	56581	
==>re.ops\"\n  {{\@1}} = interpinfo_p(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57120	57343	
==>re.ops\"\n  {{\@1}} = interpinfo_p(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40495	40716	
==>> 51,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 720 \"src/ops/core.ops\"\n  if ({{\@1}} == EXCEPT_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	16465	16591	
==>) : (),
      },
    );
  }

  my($para, $para_type);
  while(@$paras) {
    last if @$paras == 1 and
      ( $paras->[0][0] eq <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	14158	14267	
==>{{+=$op_size}}/mg;
        $absolute ||= $body =~ s/\bgoto\s+ADDRESS\((.*?)\)/{{=$1}}/mg;
        $pop      || <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	52	135	
==>d: /parrot/lib/Parrot/Docs/Section/Info.pm 20333 2006-06-21T18:44:31.111564Z bernhar <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6531	6658	
==>r pass by setting Exchange to TRUE.
   FOR I = 2 TO Max
      IF A$(I-1) > A$(I) THEN
         Exchange = TRUE
         B$=A$(I- <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16184	16311	
==>r pass by setting Exchange to TRUE.
   FOR I = 2 TO Max
      IF A$(I-1) > A$(I) THEN
         Exchange = TRUE
         B$=A$(I- <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	14620	14718	
==>ocumented here just in case you might find it useful.

=back

=head1 CAVEATS

On Perl versions befo <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1646	1756	
==>n $self;
    }

    if ($conf->options->get('ask')) {
        $prog = prompt($prompt, $prog ? $prog : $conf->da <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1660	1770	
==>n $self;
    }

    if ($conf->options->get('ask')) {
        $prog = prompt($prompt, $prog ? $prog : $conf->da <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	888	981	
==>rpreters.

=head1 CONFIGURATION

You must specify paths to executables in a configuration file <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276183	276305	
==>ps/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277061	277183	
==>ps/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277939	278061	
==>ps/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10439	10617	
==>file}{$function} %" : "n/a" ]}</a></td>
           </tr>
            );
        }
        print OUT qq(
            </tbody>
            </table>
        );
    }

    print OUT p <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	874	984	
==>=> $left,
    RIGHT => $right
  }, $class;

  $block->push_content($self);

  return $self;
}

sub left  { retu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	882	992	
==>=> $left,
    RIGHT => $right
  }, $class;

  $block->push_content($self);

  return $self;
}

sub left  { retu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527106	527397	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527859	528150	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14160	14250	
==>nter.foo=12
print mine(foo,20,z.pointer)
print z.pointer.foo

' Array access, 132
type firs <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685961	686352	
==>> "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 770,
                  "ARGS" => [
                              "p",
                              "s",
                              "p" <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	341	462	
==>'(') {
    $temp->{children} = [];
    $count++;
    while($tokens->[$count] ne ')') {
      my $expr;
      ($count, $exp <==
3	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1734	1816	
==>.\\
OutputBaseFilename=setup-parrot-$options{version}
Compression=lzma
SolidCompres <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24189	24332	
==>less( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "yield",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	10889	10996	
==>$file' ($!)!";

    return;
}

# Extends a string containing an or expression "0" .. "A" .. "A|B" etc.
sub o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558060	558151	
==>_object = object;\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_method( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559444	559535	
==>_object = object;\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_method( <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31185	31293	
==>ements($method)>

Always true for vtables.

=cut

sub implements
{
    my ($self, $meth) = @_;
    $self->imp <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32648	32756	
==>ements($method)>

Always true for vtables.

=cut

sub implements
{
    my ($self, $meth) = @_;
    $self->imp <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39805	39913	
==>ements($method)>

Always true for vtables.

=cut

sub implements
{
    my ($self, $meth) = @_;
    $self->imp <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	981	1123	
==>rot::Test::run_command($cmd, CD => $self->{relpath},
                                           STDOUT => $out_f, STDERR => $out_f );
    unles <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1022	1164	
==>rot::Test::run_command($cmd, CD => $self->{relpath},
                                           STDOUT => $out_f, STDERR => $out_f );
    unles <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2072	2182	
==>rot::Test::run_command($cmd, #CD => $self->{relpath},
					   STDOUT => $out_f, STDERR => $out_f);
  
    unles <==
3	/Users/nnunley/parrot/languages/regex/test.pl	1260	1351	
==>aaa))a
INPUT:
xxxxxxxxaaabb
OUTPUT:
Match found
0: 8..10
1: 8..9
INPUT:
aaaaaaaaaaaa
OUTPUT: <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35906	36019	
==>d exit with 255.  If the test died, even after
having successfully completed all its tests, it will still be
consi <==
3	/Users/nnunley/parrot/lib/Test/More.pm	33977	34090	
==>d exit with 255.  If the test died, even after
having successfully completed all its tests, it will still be
consi <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2772	2885	
==>d exit with 255.  If the test died, even after
having successfully completed all its tests, it will still be
consi <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1917	2022	
==>}

=back

=head2 Instance Methods

=over 4

=item C<create_path()>

This is called from C<new()> to create <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	894	999	
==>}

=back

=head2 Instance Methods

=over 4

=item C<create_path()>

This is called from C<new()> to create <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	1903	2008	
==>}

=back

=head2 Instance Methods

=over 4

=item C<create_path()>

This is called from C<new()> to create <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946577	946822	
==>AME" => "find_charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947478	947723	
==>AME" => "find_charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	624	727	
==>$options{d};

if (@ARGV) {
	open(D, $ARGV[0]) || die;
	@basic=<D>;
	chomp(@basic);
	seek D, 0, 0 or warn <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2274	2408	
==>le
        $@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exist <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	33303	33426	
==>elet
        } else {
          # It's a URL but complex (like "L<foo:bazE<123>bar>").  Feh.
          #$treelet->[$i][1]{'t <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2191	2313	
==>le
        $@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exist <==
3	/Users/nnunley/parrot/tools/build/vtable_extend.pl	2344	2447	
==>ble
   and has some code.

   PARROT_CALLIN_END(interpreter) will put the stack anchor back to
   the wa <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	50053	50152	
==>fails, return
the error it returned. Otherwise go back to step 1.

=item 3.

Try to match an opening <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	841	937	
==>$name, $text, @items)>

Returns a new section. 

Use this when creating subsections within a subc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569327	569581	
==>}->vtable->isa(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570220	570474	
==>}->vtable->isa(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	19553	19685	
==>eturn generated PIR.
    return $pir;
}


# Binary dispatch table builder.
# ##############################
sub binary_dispatch_table <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	50	146	
==>ck to register mapper. Simple and stupid.
# Inherits from SRM::Base.

package SRM::Stack;
use str <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819683	819776	
==>ception(99, \"Stack Depth wrong\");\n  }\n  {{\@1}} = get_entry_type(interpreter, entry);\n  { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820643	820736	
==>ception(99, \"Stack Depth wrong\");\n  }\n  {{\@1}} = get_entry_type(interpreter, entry);\n  { <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2808	2930	
==>S ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $PATH <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3117	3239	
==>S ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $PATH <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2912	3034	
==>S ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $PATH <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300757	301106	
==>,
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 350,
                  "ARGS" => [
                              "i", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059535	1059798	
==>ARROT_JUMP_ENEXT",
                  "NAME" => "find_name",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060439	1060702	
==>ARROT_JUMP_ENEXT",
                  "NAME" => "find_name",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => " <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7248	7388	
==>int STDERR "Reduce using rule ".-$act." ($lhs,$len): ";

                $act
            or  $self->YYAccept();

            $$dotpos=$ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6912	7047	
==>int STDERR "Reduce using rule ".-$act." ($lhs,$len): ";

                $act
            or  $self->YYAccept();

            $$dotpos=$ <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	2667	2769	
==>file, error $!";

# To start, save all the registers, just in case
print OUTPUT "saveall\n";


my @libs <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	591	680	
==>self->SUPER::new(
		'Big Number Arithmetic', 'bignum.html', '',
		$self->new_group('Decima <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4605	4692	
==>o_middle && $self->do_end;
}


#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3236	3322	
==>o_middle && $self->do_end;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653305	653399	
==>c/ops/pmc.ops\"\n    opcode_t * resume = {{^+4}};\n    {{\@1}} = {{\@2}}->vtable->find_method(i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654466	654560	
==>c/ops/pmc.ops\"\n    opcode_t * resume = {{^+4}};\n    {{\@1}} = {{\@2}}->vtable->find_method(i <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	178	270	
==>libraries documentation section

=head1 SYNOPSIS

	use Parrot::Docs::Libs;

=head1 DESCRIPTIO <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	28517	28682	
==>) {
        unshift @stack, $treelet->[$i]; # recurse
        next;
      }
        
      DEBUG > 1 and print "Nixing Z node @{$treelet->[$i]}\n";
        
      # b <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	23369	23486	
==>expr1->[1] };
    my $lbl1 = new_label($parser);
    if ( $op eq 'and' ) {
        push @opcodes, new BranchIfOp( $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1202	1287	
==>onstruct::Statement::Call;
use Jako::Construct::Statement::Concat;
use Jako::Construct <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	8602	8728	
==>$obj->c;           # object reference
    $obj->c->method(...);               # call method of object
    $obj->c(new My_Other_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824428	824521	
==>n(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_STRING) {\n    internal_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825499	825592	
==>n(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_STRING) {\n    internal_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103929	1104014	
==>\tif (!type) {\n\t\tParrot_autoload_class(interpreter, class);\n\t\ttype = pmc_type(in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105144	1105229	
==>\tif (!type) {\n\t\tParrot_autoload_class(interpreter, class);\n\t\ttype = pmc_type(in <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2922	3069	
==>ptional test harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # te <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4319	4466	
==>ptional test harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # te <==
3	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	2220	2320	
==>nt Dump( $frozen );

# Parse the freeze-state
my $symtab = $frozen_parser->frozen( $frozen );

# Dump <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	11824	11929	
==>or(_get_args($node)) {
    my $temp = $self->_generate($_);
    $self->_add_inst(''         ,'eq' ,[$temp, <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	12211	12316	
==>or(_get_args($node)) {
    my $temp = $self->_generate($_);
    $self->_add_inst(''         ,'eq' ,[$temp, <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	6853	6949	
==>rectories).
Optionally, die with an error message if that file cannot be found.

=cut

sub find_f <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	29212	29304	
==>e input text. Thus, the following code also processes
each quote-like operation, but actually <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4938	5029	
==>$nberror,$token,$value,$stack,$check,$dotpos)
     = @$self{ 'ERRST', 'NBERR', 'TOKEN', 'VA <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4696	4786	
==>$nberror,$token,$value,$stack,$check,$dotpos)
     = @$self{ 'ERRST', 'NBERR', 'TOKEN', 'VA <==
3	/Users/nnunley/parrot/lib/Test/More.pm	14942	15038	
==>ways for you to write your own diagnostic
messages which are safer than just C<print STDERR>.

=o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957468	957555	
==>ine 581 \"src/ops/string.ops\"\n  INTVAL n = Parrot_encoding_number(interpreter, {{\@2}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958373	958460	
==>ine 581 \"src/ops/string.ops\"\n  INTVAL n = Parrot_encoding_number(interpreter, {{\@2}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407504	407807	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "connect",
                  "FLAGS" => ":base_netwo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408402	408705	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "connect",
                  "FLAGS" => ":base_netwo <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	652	738	
==>new_group('Loading', '', 'src/dynpmc'),
		$self->new_group('Runtime', '', 'runtime/parr <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	31379	31529	
==>ch => $self->startup($num_groups),
                     @R_ops,
                     @save_rxlocals,
                     aop('getstart', [ '<tmp>', "0 <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	2251	2344	
==>xt, each method body is processed with various directives (see below)
getting replaced by thei <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12026	12160	
==>te 8
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6287	6391	
==>can happen later.
        if ($access eq 'const' and $type->isa("Jako::Construct::Type::PMC"));

      my <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	10476	10573	
==>bles all of those checks. So you should call
# add_checks() to put the (hopefully fewer) checks ba <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208196	208397	
==>p",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 401 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(int <==
3	/Users/nnunley/parrot/Configure.pl	9151	9265	
==>g
    inter::types
    inter::ops
    inter::pmc
    auto::alignptrs
    auto::headers
    auto::sizes
    auto::by <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	389	491	
==>ctor. Just base this class on a hash.
sub new() {
	my $invocant = shift;
	return bless {}, $invocant;
} <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	295	397	
==>ctor. Just base this class on a hash.
sub new() {
	my $invocant = shift;
	return bless {}, $invocant;
} <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	203	305	
==>ctor. Just base this class on a hash.
sub new() {
	my $invocant = shift;
	return bless {}, $invocant;
} <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2493	2591	
==>table descriptions.\n";
    if($show_full) {
	print "Their heads are included in a second section b <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6246	6332	
==>] = ${STYPES}
prop_stack_depth[${ITEMP0}] = stack_depth
goto POST_BRANCH_NOT_switch_${C <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4184	4270	
==>] = ${STYPES}
prop_stack_depth[${ITEMP0}] = stack_depth
goto POST_BRANCH_NOT_switch_${C <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	1292	1409	
==>ts => 23;

You must have a plan.


=over 4

=item B<ok>

  ok( $foo eq $bar, $name );
  ok( $foo eq $bar );

ok() is g <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2457	2550	
==>emit_par( 0) }
sub end_item_number { $_[0]->emit_par( 0) }
sub end_item_text   { $_[0]->emit_p <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2025	2118	
==>emit_par( 0) }
sub end_item_number { $_[0]->emit_par( 0) }
sub end_item_text   { $_[0]->emit_p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1096981	1097118	
==>n    }\n    else\n    {\n        PMC *key_tail, *key;\n        STRING *tmp;\n        int i, max;\n\n        /* Need to turn list of string <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	1623	1747	
==>> {  'I' => 0, 'N' => 0, 'P' => 0, 'S' => 0 },
    ANON_LBL_COUNT => 0,
    BLOCK_COUNT    => 0
  }, $class;
}


#
# indent() <==
3	/Users/nnunley/parrot/lib/File/Which.pm	4589	4684	
==>le::Which> finds such an
environment variable, it parses the list and uses it as the different e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242064	242174	
==>TABLE_get_number(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243013	243123	
==>TABLE_get_number(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	11527	11629	
==>le::Transcode::->encmodver;
    $enc_error = join '' =>
      "This document probably does not appear a <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	58715	58877	
==>arlist1', 1,
sub
#line 537 "Lua\lua51.yp"
{
            [
                BuildParam( $_[0], $_[1] ),
            ];
        }
	],
	[#Rule 102
		 'parlis <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	22323	22457	
==>was = $treelet->[$i][0] };
      if( DEBUG > 3 ) {
        if(!defined $is) {
          print "   Code $was<> is UNKNOWN!\n";
        } <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	18585	18706	
==>nd_file($include, $file, 1);

    my $fh = open_file( "<", $file );

    my $class;
    eval do { local $/; <$fh> };
    d <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	36541	36668	
==>rule\" doesn't make
					    sense.",$line);
			Parse::RecDescent::_hint("Lookahead for negated optional
					   repetitions (su <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	31222	31328	
==>$self = shift;

    _whoa($self->{Curr_Test} < 0,  'Says here you ran a negative number of tests!');
    _w <==
3	/Users/nnunley/parrot/config/auto/format.pm	232	329	
==>d be used for C<sprintf()>.

=cut

package auto::format;

use strict;
use vars qw($description @ar <==
3	/Users/nnunley/parrot/tools/dev/as2c.pl	127	226	
==>t, $cmd, $func);

$src =  $ARGV[0];
$cmd  = "cc -c $src.c -Wall -O3 -fomit-frame-pointer -DNDEBUG -W <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5826	5922	
==>ode}}, "IFBRANCH_$_:\n";
			}
			while($_=pop(@{$elsestack->{$elsetag}})) {
				push @{$code{$seg <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8172	8265	
==>ode}}, "IFBRANCH_$_:\n";
		}
		while($_=pop(@{$elsestack->{$elsetag}})) {
			push @{$code{$seg <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	11992	12134	
==>smatch', [ $incexc, $lastback ]),
                         aop('increment', [ 1, $lastback ]),
                         aop('goto', [ $next ]), <==
3	/Users/nnunley/parrot/lib/Test/More.pm	19565	19673	
==>rness>.

The way Test::More handles this is with a named block.  Basically, a
block of tests which can be ski <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	790	886	
==>porary hack
our $conf;

our @EXPORT = ();
our @EXPORT_OK = qw(prompt genfile copy_if_diff move_if <==
3	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	3378	3599	
==>= "\n";
        }
        else {
            if ($seen_blank) {
              $result .= "\n";
              $seen_blank = 0;
            }
            # verbatim hunk.
            $result .= $code;
        }
    }

    re <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7816	7909	
==>T_CALL_END_${CURIC}

# It's a call. Get details of method we're calling.
(${PTEMP0}, ${STEMP0} <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	7877	7964	
==>f_op
#define Parrot_jit_vtable_newp_ic_op Parrot_jit_normal_op

#define Parrot_jit_resta <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	4019	4130	
==>info,$text) = @_;
    my $desc;
    if($text =~ /^\#/) { # perl file (or sh)
	my($comment) = $text =~ /^(\#[^\n] <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	1670	1769	
==>s

=head2 Compiling PMCs

First, the program determines the names of the .c and .h files from the
ba <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15351	15460	
==>t_end {
  my $self = shift;   # leaving ($element_name);
  DEBUG > 2 and print "-- $_[0]\n";
  push @{ $self-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	878	966	
==>_OPCODE cur_opcode
#define IREG(i) REG_INT(cur_opcode[i])
#define NREG(i) REG_NUM(cur_opc <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	994	1082	
==>_OPCODE cur_opcode
#define IREG(i) REG_INT(cur_opcode[i])
#define NREG(i) REG_NUM(cur_opc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	395003	395106	
==>\n  if ({{\@3}}) {\n    PIOOFF_T pos;\n    pos = PIO_tell(interpreter, {{\@3}});\n    {{\@1}} = (INTVAL) <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8640	8721	
==>MPULSE","LRSCAN","NAVIGATE","PHASERS","QUIT"
data "SHIELDS","SOS","SRSCAN","STATUS <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21504	21585	
==>MPULSE","LRSCAN","NAVIGATE","PHASERS","QUIT"
data "SHIELDS","SOS","SRSCAN","STATUS <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	1897	1985	
==>es -Winline -Wpointer-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -W <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1262	1350	
==>es -Winline -Wpointer-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -W <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1266	1354	
==>es -Winline -Wpointer-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -W <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	3822	3937	
==>e we at the end of a heredoc?
        elsif ($in_heredoc && /^$heredoc_terminator\s*$/) {
            # Stash key/va <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	3641	3750	
==>lf->svn_id;
    my ($version) = $id =~ /,v\s+(\S+)/s;
    
    return $version;
}

=item C<is_hidden()>

Retur <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	3384	3488	
==>ince 2.12
# older versions will work but obviously not sorted
{
    my $dd_version;
    if ($Data::Dumper <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88833	89098	
==>" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89570	89835	
==>" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	2235	2349	
==>cs;
}

sub function_components {
    my $proto = shift;

    my @parts = split( /\n/, $proto, 2 );
    my $returnty <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1631	1716	
==>directory_with_path(File::Spec->catdir(File::Spec->tmpdir, @_));
}

=item C<new($path) <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	58388	58502	
==>)
		{
			_parseunneg("a rule declaration", 0,
				    $lookahead,$line) or next;
			my $rulename = $1;
			if ($rule <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2404	2507	
==>else {
    $right_type = $right->type;
  }

  $self->INTERNAL_ERROR("No type for dest!")  unless defined <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2326	2429	
==>else {
    $right_type = $right->type;
  }

  $self->INTERNAL_ERROR("No type for dest!")  unless defined <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11039	11131	
==>pre_call_HAS_RETURN_${CURIC}
if "${CURIC}" == "73" goto pre_call_HAS_RETURN_${CURIC}
goto pre <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8225	8317	
==>pre_call_HAS_RETURN_${CURIC}
if "${CURIC}" == "73" goto pre_call_HAS_RETURN_${CURIC}
goto pre <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5887	5979	
==>pre_call_HAS_RETURN_${CURIC}
if "${CURIC}" == "73" goto pre_call_HAS_RETURN_${CURIC}
goto pre <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5236	5336	
==>ako::Construct::Expression::Value::Literal->new($block, $self->require_literal);
        }

        $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8236	8336	
==>ako::Construct::Expression::Value::Literal->new($block, $self->require_literal);
        }

        $ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33133	33232	
==>errides the default implementation to perform locking.

=cut

sub body
{
    my ($self, $method, $li <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43671	43860	
==>ops\"\n  Parrot_push_mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44315	44504	
==>ops\"\n  Parrot_push_mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	21754	21863	
==>"B~C~E~F~I~L~S~X~Z" eq join '~', sort keys %$map)
     ? "  (all normal)\n" : "\n"
  ;

  # A recursive algori <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	1948	2073	
==>) {
    if($] < 5.007  and  $in > 255) { # can't be trusted with Unicode
      return $FAR_CHAR;
    } else {
      return chr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	352	456	
==>itional;

use Carp;
use Jako::Compiler;

use base qw(Jako::Construct::Block);


#
# compile()
#

sub comp <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	4694	4824	
==>m.
        foreach my $arg (@{ $t->{args} }) {
            if (UNIVERSAL::isa($arg, 'Regex::Ops::Tree')) {
                # $arg i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103870	1103958	
==>= {{\@2}};\n\tINTVAL type = pmc_type(interpreter, class);\n\tif (!type) {\n\t\tParrot_aut <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105085	1105173	
==>= {{\@2}};\n\tINTVAL type = pmc_type(interpreter, class);\n\tif (!type) {\n\t\tParrot_aut <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	3715	3834	
==>q '[' ? 'open-bracket' : 'close-bracket', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^([\{\}])( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	324	431	
==>Type::PMC;

use base qw(Jako::Construct::Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  retur <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	369	472	
==>_file = shift @ARGV;
usage() if !$input_file || @ARGV;

# Parse the file to get the methods.
my $fh;
ope <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	569	679	
==>::Scan> installed to run this. Use the CPAN
shell:

    perl -MCPAN -e shell 
    cpan> install C::Scan 
    .. <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8655	8736	
==>","NAVIGATE","PHASERS","QUIT"
data "SHIELDS","SOS","SRSCAN","STATUS","TORPEDO","TR <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21519	21600	
==>","NAVIGATE","PHASERS","QUIT"
data "SHIELDS","SOS","SRSCAN","STATUS","TORPEDO","TR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464604	464807	
==>"n",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 322 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	786	895	
==>ass;

  $block->push_content($self);

  return $self;
}

sub ident  { return shift->{IDENT};  }


#
# compile( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	786	895	
==>ass;

  $block->push_content($self);

  return $self;
}

sub ident  { return shift->{IDENT};  }


#
# compile( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694370	694853	
==>> [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 780,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i",
                              "p"
                            ],
                  "BODY <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	15821	15925	
==>. Create new empty array.
    stypes = new ResizablePMCArray
    type_trans = new Hash
    type_trans["ty <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	13762	13854	
==>is, qr/$regex/, $name);
  $Test->unlike($this, '/$regex/', $name);

Like Test::More's unlike( <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	4123	4309	
==>,
                'arg1'   => '.Lua' . ucfirst($type),
            );
            unless ( $type eq 'nil' ) {
                if ( $type eq 'string' ) {
                    my $str = <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	3755	3879	
==>table.
    foreach (keys %classes) {
        my $label = "CLASS_$_";
        $label =~ s/\./_/g;
        $pir .= "if class_na <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4944	5041	
==>i_external_calls = grep { ! exists($ansi_c89_symbol{$_}) } @external_calls;
    
    printf("Found <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	71357	71486	
==>"$call\"? Otherwise
					       it will be treated as an 
					       immediate <reject>.");
					eval "sub $self->{namespace}::$c <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Compilers.pm	265	365	
==>RIPTION

A documentation section describing all compilers in Parrot.

=head2 Class Methods

=ov <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	170	263	
==>:Section::Parrot - Root documentation section

=head1 SYNOPSIS

    use Parrot::Docs::Section: <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28079	28183	
==>ame> is the name
of the output file we are generating.

=cut

sub gen_h() {
    my ($self, $out_name) = @ <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	10872	10996	
==>dt { margin-top:  1em;  }
    .leftsep  { padding-left: 10px;  }
    .num      { text-align:   right; }

    .details  { disp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710760	710850	
==>eter, io, \" \");\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  PIO_softspace <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711594	711684	
==>eter, io, \" \");\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  PIO_softspace <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	9023	9147	
==>ymbol = $TypeLong ? "init" : "D";
			    } elsif ($uninit) {
				$symbol = $TypeLong ? "uninit" : "B";
			    } else {
				$s <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	3421	3516	
==>> "set_nci_P(interpreter, &st, return_data);",
       S => "set_nci_S(interpreter, &st, return_d <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	275	370	
==>:Pmc2c::Library is a wrapper around a collection of PMCs linked in the
same dynamic library. A d <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571107	571196	
==>s = Parrot_class_lookup_p(interpreter, {{\@3}});\n    {{\@1}} = Parrot_object_isa(interpre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572062	572151	
==>s = Parrot_class_lookup_p(interpreter, {{\@3}});\n    {{\@1}} = Parrot_object_isa(interpre <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33501	33637	
==>f(@$para == 2) {
            # For the cases where we /didn't/ push to @$para
            if($paras->[0][0] eq '~Para') {
              D <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35314	35450	
==>f(@$para == 2) {
            # For the cases where we /didn't/ push to @$para
            if($paras->[0][0] eq '~Para') {
              D <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	2174	2269	
==>determined, it is processed and its method names
are extracted and saved.

Next, each method bod <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4501	4623	
==>0) {
        delete $self->{name};
        delete $self->{args};
        return $self->op('nop', [], %$self);
    } elsif ( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5638	5760	
==>0) {
        delete $self->{name};
        delete $self->{args};
        return $self->op('nop', [], %$self);
    } elsif ( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	3113	3229	
==>ndef;
    } elsif(exists $self->{'source_fh'}) {
      my @lines;
      my $fh = $self->{'source_fh'}
       || Carp: <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	60136	60294	
==>113
		 'fieldsep', 1, undef
	],
	[#Rule 114
		 'fieldsep', 1, undef
	]
],
                                  @_);
    bless($self,$class);
}

#line 6 <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	979	1062	
==>ize_t)((opcode_t*)cur_opcode - (opcode_t*)interpreter->code->prederef.code))
#define <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1109	1192	
==>ize_t)((opcode_t*)cur_opcode - (opcode_t*)interpreter->code->prederef.code))
#define <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837607	837898	
==>FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 949,
                  "ARGS" => [
                              "n"
                            ] <==
3	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	1068	1169	
==>.
# 
# Ignore the SVN directories
\B\.svn\b

# debian/ should not go into release tarballs
^debian$
^d <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3923	4023	
==>.
#
# Ignore the SVN directories
\B\.svn\b

# debian/ should not go into release tarballs
^debian$
^d <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	2661	2815	
==>);

            ## set a default description
            $desc = sprintf '(%s line %s)' => (caller())[1,2]
                unless $desc;

            my( $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	93	183	
==>006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::OpTrans::CGoto - CGoto Transfo <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4883	4971	
==>{ 'RULES', 'STATES', 'LEX', 'ERROR' };
	my($errstatus,$nberror,$token,$value,$stack,$che <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4642	4729	
==>{ 'RULES', 'STATES', 'LEX', 'ERROR' };
	my($errstatus,$nberror,$token,$value,$stack,$che <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4010	4113	
==>$$outhash{$_})
		or	croak("Missing mandatory parameter '".lc($_)."'");
	}
}

sub _Error {
	print " <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	1793	1896	
==>, @funcs;

    # Typedefs and structs are no good
    @funcs = grep !/^(typedef|struct|enum|extern)/, @f <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3808	3905	
==>$$outhash{$_})
		or	croak("Missing mandatory parameter '".lc($_)."'");
	}
}

sub _Error {
	print " <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	52947	53153	
==>_->[0]
        }
    @$curr_open
  ;
}

###########################################################################
my %pretty_form = (
  "\a" => '\a', # ding!
  "\b" => '\b', # BS
  "\e" => '\e', # ESC
  "\ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	69162	69265	
==>::compiling)
	{
		my $code = $self->_code();
		if (defined $::RD_TRACE)
		{
			print STDERR "printing co <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	28251	28349	
==>st('',           'mul',[$return,$return,$temp]);
  $self->_restore($temp);
  $self->_add_inst("DONE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367369	367632	
==>"NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368160	368423	
==>"NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	14027	14125	
==>en_label\n";
    my $srm_label = $srm->gen_label();
    $pir .= sub_meta($srm_label, $mv, 'gen_labe <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349273	349387	
==>{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=3}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350275	350389	
==>{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=3}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14942	15038	
==>t pair\n" unless $return =~ /^P/;
  $self->_add_inst ('', 'set', [$return,$return.'[0]']);

  ret <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610064	610297	
==>"ARGS" => [
                              "p",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 478 \"src/ops/object.ops\"\n    {{\@1}} = VTABLE_ge <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015088	1015311	
==>nterpreter, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015912	1016135	
==>nterpreter, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	1832	1932	
==>ourcefile) = @_;

		$class =~ /^(\w+::)*\w+$/ or croak("Bad class name: $class");

		my $modulefile = <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6953	7046	
==>und$="longer"
bogus$="not"
print "Found  (5): ", instr(s1$, found$)
print "Bogus  (0): ", inst <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18682	18775	
==>und$="longer"
bogus$="not"
print "Found  (5): ", instr(s1$, found$)
print "Bogus  (0): ", inst <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9660	9745	
==>,$d,$_[9],4,0xfffa3942,/* 33 */
HH,$d,$a,$b,$c,$_[12],11,0x8771f681,/* 34 */
HH,$c,$d, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033384	1033467	
==>L(lex_pad)) {\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%S <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034482	1034565	
==>L(lex_pad)) {\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%S <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	653	805	
==>_error();
    }

    sub FETCH {
        my ($self, $index) = @_;
        $self->[$index];
    }

    sub FETCHSIZE {
        my $self = shift;
        r <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3244	3369	
==>rval {
	my($self)=shift;

        @_
    and ${$$self{VALUE}}=$_[0];
    ${$$self{VALUE}};
}

sub YYExpect {
    my($ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3083	3199	
==>rval {
	my($self)=shift;

        @_
    and ${$$self{VALUE}}=$_[0];
    ${$$self{VALUE}};
}

sub YYExpect {
    my($ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	5614	5790	
==>$symbol, $table{$symbol};
  }
}


###############################################################################

=head2 BLOCK->find_symbol(NAME)

Search for a symbol, starting <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	1737	1850	
==>the left column, it's not a func
    @funcs = grep /^\S/, @funcs;

    # Typedefs and structs are no good
    @fun <==
3	/Users/nnunley/parrot/lib/Test/More.pm	31927	32023	
==>imilar to eq_array(), except the order of the elements is B<not>
important.  This is a deep check <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2194	2299	
==>dentifier '%s'.", $args[$i]->value) unless $arg_sym;
      $actual_arg_type = $arg_sym->type; 
    }
    e <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1894	1999	
==>dentifier '%s'.", $args[$i]->value) unless $arg_sym;
      $actual_arg_type = $arg_sym->type; 
    }
    e <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16793	16893	
==>ignment($assignto, \@left, $opts{stuff}, [], $type);
		
		$result=$assignto;
	} else {
		#print STDER <==
3	/Users/nnunley/parrot/config/inter/charset.pm	691	798	
==>t = $conf->options->get('charset')
        || join(' ', grep { defined $_ } @charset);

    if ($conf->optio <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653398	653490	
==>(interpreter, {{\@2}}, {{\@3}});\n    if (!{{\@1}} || !VTABLE_defined(interpreter, {{\@1}}))\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654559	654651	
==>(interpreter, {{\@2}}, {{\@3}});\n    if (!{{\@1}} || !VTABLE_defined(interpreter, {{\@1}}))\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026993	1027282	
==>i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1148,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 280 \"src/ops/s <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8209	8340	
==>do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Abort.\n";

				return(undef);

			};

#DBG>			$debug & 0x04
#DBG>		a <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7839	7960	
==>do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Abort.\n";

				return(undef);

			};

#DBG>			$debug & 0x04
#DBG>		a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943352	943617	
==>P" => 0,
                  "NAME" => "charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "func <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944140	944405	
==>P" => 0,
                  "NAME" => "charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "func <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	4422	4522	
==>ops->{PREAMBLE} = $ops->{PREAMBLE};
$real_ops->version($ops->version);

# verify opcode numbers
my $s <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	10079	10206	
==>s{$name} = 1;
        my $full_name  = $op->full_name;
        my $func_name  = $op->func_name($trans);
        my $body       = <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2581	2699	
==>LS\n};
			}
			s/#SAVECOMMON/$edit/;
		}		
		if (/#RESTORECOMMON/) {
			@saves=();
			$edit="";
			foreach my $var (key <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	6541	6646	
==>{$api};
    }
}

if (keys %DataD) {
    printf "--- Initialized Modifiable Data: %d ---\n", scalar keys %D <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3610	3721	
==>e, join(", ", %props));

    $name =~ s/::/__/g;

    if (exists $props{fn} or exists $props{fnlib}) {
      $na <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	3045	3156	
==>e, join(", ", %props));

    $name =~ s/::/__/g;

    if (exists $props{fn} or exists $props{fnlib}) {
      $na <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	537566	537849	
==>=> 0,
                  "NAME" => "sinh",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	5294	5406	
==>son, :$depends;
        }
    }
}

sub skip_rest (Str $reason?, :$depends) returns Bool is export {
    Test::ski <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1859	1969	
==>y ($func,@x) = split /,/;
	my $c = $f{$func};
	$c =~ s/X(\d)/$x[$1]/g;
	$c =~ s/(S\d{2})/$s{$1}/;
        $c =~ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11489	11579	
==>-I;}
{\*\cs17 \additive \i\lang1024\noproof \sbasedon10 pod-F;}
{\*\cs18 \additive \b \sbas <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840151	840233	
==>s/stack.ops\"\n  rotate_entries(interpreter, &CONTEXT(interpreter->ctx)->user_stack <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840846	840928	
==>s/stack.ops\"\n  rotate_entries(interpreter, &CONTEXT(interpreter->ctx)->user_stack <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	918	1022	
==>extra subs.
	return "";
}

# Label generation.
sub gen_label() {
	# We'll emit a label for every single i <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	675	779	
==>extra subs.
	return "";
}

# Label generation.
sub gen_label() {
	# We'll emit a label for every single i <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	36293	36391	
==>254.


=head1 THREADS

In perl 5.8.0 and later, Test::Builder is thread-safe.  The test
number is s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	282615	282964	
==>lt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 329,
                  "ARGS" => [
                              " <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15929	16060	
==>'   => $fct,
        'arg2'   => [$argv],
    );
    return [ $result, \@opcodes ];
}

sub BuildCallVariable {
    my ( $pars <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6252	6359	
==>) = "Chicago"
A$(4) = "Seattle"
Max = 4 'UBOUND(A$)
Exchange=TRUE           ' Force first pass through the a <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15905	16012	
==>) = "Chicago"
A$(4) = "Seattle"
Max = 4 'UBOUND(A$)
Exchange=TRUE           ' Force first pass through the a <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	14568	14674	
==>t;

    my ($min, $max, $greedy, $R) = @{ $op->{args} };
    my $ref = [ annotated($op, "multi_match($min . <==
3	/Users/nnunley/parrot/tools/build/addopstags.pl	500	606	
==>pen T, '<', 'tags';
push @tags, <T>;
close T;

# Spit 'em out sorted
open T, '>', 'tags';
print T sort @tag <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	36894	36983	
==>extract_codeblock">.


=head2 C<extract_tagged>

C<extract_tagged> extracts and segments t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670662	670885	
==>ush_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671435	671658	
==>ush_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	33238	33351	
==>ages.
    my $test_results = $self->{Test_Results};
    if( @$test_results ) {
        # The plan?  We have no pla <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	6905	7062	
==>rser->YYData->{lineno}++,
                last;

            s/^(0[Xx])([0-9A-Fa-f]+)//
                and return ( 'NUMBER', hex($2) );

            s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	408	520	
==>laration);

use Jako::Construct::Type;


#
# new()
#

sub new
{
  my $class = shift;

  my ($block, $type, $ident <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	408	520	
==>laration);

use Jako::Construct::Type;


#
# new()
#

sub new
{
  my $class = shift;

  my ($block, $type, $ident <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3109	3213	
==>k'  => "PREG(%ld)",
    'ki' => "IREG(%ld)",

    'ic' => "cur_opcode[%ld]",
    'nc' => "CONST(%ld)->u.n <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2022	2124	
==>k'   => "PREG(%ld)",
  'ki'  => "IREG(%ld)",

  'ic'  => "cur_opcode[%ld]",
  'nc'  => "CONST(%ld)->u.n <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10740	10825	
==>a87e4f,/* 57 */
II,$d,$a,$b,$c,$_[19],10,0xfe2ce6e0,/* 58 */
II,$c,$d,$a,$b,$_[10],15, <==
3	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	1348	1476	
==>_to_date = 0;
        last;
    }
    print "$output is up to date with respect to $input\n" if $Verbose;
}

exit 0 if $up_to_dat <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714526	714626	
==>n.ops\"\n  STRING * const s = {{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (s && strin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715449	715549	
==>n.ops\"\n  STRING * const s = {{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (s && strin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864184	864461	
==>\n  }\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	865076	865353	
==>\n  }\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853969	854169	
==>"ARGS" => [
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 100 \"src/ops/string.ops\"\n  {{\@1}} = string_append <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	603020	603284	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "classname",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1096126	1096390	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "classname",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	38100	38204	
==>$parser->YYData->{self} ) {
        unshift @{$params}, $parser->YYData->{self};
        $parser->YYDat <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936376	936647	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "titlecase",
                  "FLAGS" => ":base_c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937153	937424	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "titlecase",
                  "FLAGS" => ":base_c <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27372	27482	
==>self->_restore ($return);
      $return = $temp;
    }
    my $temp = $self->_constant(1);
    $self->_add_inst <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109727	110017	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":ba <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110506	110796	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":ba <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	3336	3448	
==>le with a heredoc?
        elsif (!$in_heredoc && $rule && /^\s*(\w+)\s*=\s*<<(\w+)\s*$/) {
            # Initial <==
3	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	200	351	
==>lf   = \%attr;
        bless $self, $class;
        foreach ( keys %attr ) {
            unless ( defined $self->{$_} ) {
                delete $se <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	7866	7972	
==>UG and print "$self 's source is array ref $_[0]\n";
    return;
  } elsif(ref $_[0]) {
    $self->{'source <==
3	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1510	1615	
==>"create $filename: $!";

    my $ctx = { };
    my $trees = Regex::expr_to_tree($pattern, $ctx, DEBUG => 0 <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4129	4224	
==>Get type (so we can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign register nam <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2545	2640	
==>Get type (so we can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign register nam <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847718	848012	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TY <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848497	848791	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TY <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9893	9994	
==>nd put them into ${PARAMS}. Note that they come
# off the stack last to first, but need to be first to <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7407	7508	
==>nd put them into ${PARAMS}. Note that they come
# off the stack last to first, but need to be first to <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6371	6472	
==>nd put them into ${PARAMS}. Note that they come
# off the stack last to first, but need to be first to <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	7432	7545	
==>>[0])) {
			push @stream, pop @stack;
		}
		push @stack, $item;
		
	}
	push @stream, reverse @stack;	
	#print STDE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946987	947095	
==>],
                  "BODY" => "#line 526 \"src/ops/string.ops\"\n  INTVAL n = Parrot_charset_number(interpre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947889	947997	
==>],
                  "BODY" => "#line 526 \"src/ops/string.ops\"\n  INTVAL n = Parrot_charset_number(interpre <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	18553	18657	
==>as to precede E and S
    $self->_treat_Es($treelet);
    $self->_treat_Ss($treelet);  # S has to come af <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065081	1065177	
==>e 260 \"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065955	1066051	
==>e 260 \"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30190	30315	
==>][1]{'~bitched_about'}) {
            $curr_open->[-1][1]{'~bitched_about'} = 1;
            $self->whine(
              $curr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1979	2080	
==>= $block->find_symbol($self->name);

  #
  # If the identifier is already defined at this lexical scop <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1726	1827	
==>= $block->find_symbol($self->name);

  #
  # If the identifier is already defined at this lexical scop <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	12299	12444	
==>ath.h
logl        math.h
longjmp     setjmp.h
lrint       math.h
lrintf      math.h
lrintl      math.h
lround      math.h
lroundf     math.h
lroun <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1285	1381	
==>compiler;

  my $sym = $block->find_symbol($ident_name);

  confess "No such symbol '$ident_name' <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	1767	1874	
==>options{compiler}
        if $options{compiler};

    # Per Leo on 18APR2005, run the test suite with --gc-d <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5006	5103	
==>', 'NBERR', 'TOKEN', 'VALUE', 'STACK', 'CHECK', 'DOTPOS' };

#DBG>	my($debug)=$$self{DEBUG};
#D <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4763	4857	
==>', 'NBERR', 'TOKEN', 'VALUE', 'STACK', 'CHECK', 'DOTPOS' };

#DBG>	my($debug)=$$self{DEBUG};
#D <==
3	/Users/nnunley/parrot/lib/Test/More.pm	17632	17745	
==>rk with non-Exporter based modules.
        eval <<USE;
package $pack;
use $module $imports[0];
USE
    }
    else <==
3	/Users/nnunley/parrot/Configure.pl	3993	4088	
==>uild parrot assuming only pure ANSI C is available.

=back

=head1 SEE ALSO

F<config/init/data. <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77482	77577	
==>racecontext =~ s/\s+/ /g;
	$tracerulename = qq{$tracerulename};
	write TRACE;
	if ($tracecontext <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686484	686772	
==>nterpreter, {{\@3}}, {{\@2}});\n   {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687374	687662	
==>nterpreter, {{\@3}}, {{\@2}});\n   {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	15461	15594	
==>EFAULT => -77
	},
	{#State 34
		DEFAULT => -95,
		GOTOS => {
			'@11-1' => 70
		}
	},
	{#State 35
		ACTIONS => {
			":" => 5 <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	20272	20396	
==>eturn;
			}
			$ldel2 = $rdel2 = "\Q$1";
			$rdel2 =~ tr/[({</])}>/;
		}
		else
		{
			$ldel2 = $rdel2 = $ldel1;
		}
		$str2p <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	1977	2100	
==>IN>) {
	if (m/^\s*#\s*line\s+(\d+)/) {
	    # #line directive
	    $line = $1 - 1;
	    next;
	}
	$line++;
	next if m/^\s*#/ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	9221	9342	
==>e_f or die "Unable to open '$code_f'";
    binmode $CODE;
    print $CODE $code;
    close $CODE;

    return;
}

# We can <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	599	713	
==>ass = shift;
  $class = ref($class) || $class;
  my $new;
  if(@_ == 1) {
    if (!ref($_[0] || '')) { # most commo <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	18986	19154	
==>'      => 1,
        actual_ok => 0,
        name      => '',
        type      => 'todo_skip',
        reason    => $why,
    });

    my $out = "not ok";
    $out   .= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10954	11041	
==>DY" => "#line 206 \"src/ops/core.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11743	11830	
==>DY" => "#line 206 \"src/ops/core.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter-> <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	8230	8344	
==>.n)
        Parrot_fetch_arg_nci(interpreter, st);
    else
        UVal_pmc(st->val) = NULL;

    return UVal_pmc( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	9243	9348	
==>t_titled_section(
   'DESCRIPTION',
    max_token => 400,
    max_content_length => 3_000,
   @_,
) }

sub <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	1269	1360	
==>C<integrate($orig, $new)>

Integrates C<$new> into C<$orig>.  Returns C<$orig> if C<$new> is <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	8382	8501	
==>hl     complex.h
casinl      complex.h
catan       complex.h
catanf      complex.h
catanh      complex.h
catanhf     com <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862460	862551	
==>> "#line 138 \"src/ops/string.ops\"\n  {{\@1}} = string_length(interpreter, {{\@2}});\n  {{+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863229	863320	
==>> "#line 138 \"src/ops/string.ops\"\n  {{\@1}} = string_length(interpreter, {{\@2}});\n  {{+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334638	334906	
==>=> "inline",
                  "CODE" => 392,
                  "ARGS" => [
                              "p",
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 56 \"src/ops/io.ops\"\ <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	30104	30228	
==>my $w = pop @stack;
    push @stack, $w;
    push @stack, $v;
}

sub STORE_SUBSCR
{
    my ($n, $c, $cmt) = @_;
    my $x = p <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4208	4303	
==>ompiler->temp_reg($calc_type);
    $right = $right->compile($compiler);
    $compiler->emit("  $ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5684	5774	
==>TEMP0}, ${PTEMP1}, ${PTEMP2}) = method_info_from_token(${ASSEMBLY}, ${ARG0})

# If there is <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7904	7994	
==>TEMP0}, ${PTEMP1}, ${PTEMP2}) = method_info_from_token(${ASSEMBLY}, ${ARG0})

# If there is <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205595	205888	
==>CMP) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	212267	212560	
==>CMP) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213216	213509	
==>CMP) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	544	659	
==>]->can( 'end_' . $_[1] )
    || return
  )->(
    $_[0]
  );
}

1;


__END__

=head1 NAME

Pod::Simple::Methody -- t <==
3	/Users/nnunley/parrot/lib/Test/More.pm	1763	1861	
==>x_structure1, $complex_structure2, $test_name);

  SKIP: {
      skip $why, $how_many unless $have_ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	1249	1357	
==>ess $self->{NAV_BAR};
    
    my $title = $self->{'Title'};
    esc($title);

    print {$self->{'output_fh' <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	4448	4554	
==>$nm_ro  = 1;
} elsif ($^O eq 'darwin'  && $nm_try =~ /invalid argument/) {
    $nm_opt = '';
} elsif ($nm_t <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	962	1079	
==>t 'refs';

    *{"Parrot::Test::Bc::$func"} = sub {
        my $self = shift;
        my ( $code, $output, $desc, %opt <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	17365	17478	
==>t
    gen_pir = concat tmp
    gen_pir = concat ": "
NOT_FINALLY_START:

    # Goto next handler.
    goto EH_LOOP <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	643	779	
==>until',
    LEFT      => $left,
    OP        => $op,
    RIGHT     => $right,

    CONTENT   => [ ]
  }, $class;

  $block->push_content <==
3	/Users/nnunley/parrot/config/inter/encoding.pm	1600	1705	
==>sh');
    $TEMP_encoding_o =~ s/^| / src${slash}encodings${slash}/g;

    $conf->data->set(
        encodi <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	11996	12091	
==>he accessor returns a reference to the
element's whole array (whether or not the element was
spe <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	13298	13409	
==>e intial stuff emitted.
    ehs = bc.get_eh()
    if null ehs goto NO_EH_HEADER
    i = elements ehs
    gen_pir <==
3	/Users/nnunley/parrot/config/gen/cpu/i386/auto.pm	325	426	
==>tform.h
 i386_has_mmx   => 1

=cut

package gen::cpu::i386::auto;

use strict;
use warnings;

use Parr <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	5839	5972	
==>,
 'sigmaf'   , 962,
 'sigma'    , 963,
 'tau'      , 964,
 'upsilon'  , 965,
 'phi'      , 966,
 'chi'      , 967,
 'psi'      , 968, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6706	6819	
==>f->get(1)->kind eq $_ } @_;

  return $self->forth;
}


#
# SKIPS:
#

sub skip_assign        { return shift->skip( <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	583	679	
==>ot::Test::Perl6;

use strict;
use warnings;

use File::Basename;
use File::Spec;
use Parrot::Conf <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	2527	2654	
==>gname eq 'L' ) 
    {
        $self->process_link_start_token($token);
    }
    elsif ( $tagname eq 'F' )
    {
        $self-> <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	1780	1890	
==>umentation', '',
		    $self->new_item('How to add new configuration steps.', 
		        'docs/configuration.po <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222712	222985	
==>CMP) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	229384	229657	
==>CMP) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	230333	230606	
==>CMP) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465172	465423	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "dec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465793	466044	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "dec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "i <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	6507	6613	
==>mbols = grep { ! /^_/ } sort keys %defined_in;
    
    my @external_symbols = sort grep { ! defined($defin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369473	369564	
==>/ops/io.ops\"\n  {{\@1}} = PIO_reads(interpreter, {{\@2}}, (size_t){{\@3}});\n  {{+=4}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	370358	370449	
==>/ops/io.ops\"\n  {{\@1}} = PIO_reads(interpreter, {{\@2}}, (size_t){{\@3}});\n  {{+=4}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244030	244317	
==>terpreter, l, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244962	245249	
==>terpreter, l, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	3738	3870	
==>riable_scope eq "Local") {
                $variable_visible{$file}{$1}++;
            } else {
                $variable_visible{"AL <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	605	701	
==>ion->new;
    my $dir = $dist->existing_directory_with_name('src/pmc');
	
	my @concrete_items = ( <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6107	6200	
==>f 0x${CURIC} == 0x45 goto POST_BRANCH_switch_${CURIC}
${ITEMP0} = ${NEXTPC} + I_arg_0 # XXX Ca <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4045	4138	
==>f 0x${CURIC} == 0x45 goto POST_BRANCH_switch_${CURIC}
${ITEMP0} = ${NEXTPC} + I_arg_0 # XXX Ca <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	10393	10527	
==>r_nocase{$dirname}{lc($filename)}=$_;
    }

    close(F);
}



sub info {
    my ($file, $line, $message) = @_;

    print "$file:$lin <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2356	2470	
==>$lang_fn );

        # STDERR is written into same output file
        my $exit_code = Parrot::Test::run_command <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1876	1987	
==>$lang_fn );

        # STDERR is written into same output file
        my $exit_code = Parrot::Test::run_command <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82564	82833	
==>" => "inline",
                  "CODE" => 103,
                  "ARGS" => [
                              "p",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 1196 \"src/ops/core.o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576561	576817	
==>@1}} = VTABLE_subclass(interpreter, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577573	577829	
==>@1}} = VTABLE_subclass(interpreter, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19044	19148	
==>n $_[1]; }
	],
	[#Rule 8
		 'regex1', 2,
sub
#line 105 "lib/Regex/Grammar.y"
{ return op('seq' => [ $_[1] <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2434	2531	
==>t the Perl 6 pattern, passing the test
if the output produced by the test code matches the C<$expe <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3868	3965	
==>t the Perl 6 pattern, passing the test
if the output produced by the test code matches the C<$expe <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	7768	7899	
==>le(
        'config/gen/makefiles/Zcode.in' => 'languages/Zcode/Makefile',
        commentType                     => '#',
        r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573041	573131	
==>{\@2}});\n  {{\@1}} = pmc_new_init(interpreter, enum_class_ParrotClass, name);\n  {{+=3}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573951	574041	
==>{\@2}});\n  {{\@1}} = pmc_new_init(interpreter, enum_class_ParrotClass, name);\n  {{+=3}};\ <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	4782	4918	
==>) {
            last if $vers > $gccversion;
            next unless $opt; # Ignore blank lines

            if ($opt =~ /-mno-accumulate <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	12955	13089	
==>ror      stdio.h
pow         math.h
printf      stdio.h
putc        stdio.h
putchar     stdio.h
puts        stdio.h
qsort       stdlib. <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	2035	2155	
==>flags   => $ccflags);
        $conf->data->set(linkflags => $linkflags);
        print " (no) " if $verbose;
        $sel <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	433	547	
==>elf->{DEBUG};
    my $ctx = $self->{ctx};
    $what = "\%<<rx_pos>>: $what";

    my @ops;
    foreach my $part ($w <==
3	/Users/nnunley/parrot/config/auto/snprintf.pm	74	163	
==>/snprintf.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/snprintf. <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	7869	7989	
==>funcs .= "    PARROT_CALLIN_START( interp );\n    ";
        $funcs .= "retval = " unless $ret_type eq 'void';
        $f <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2574	2687	
==>=shift;

	${$$self{NBERR}};
}

sub YYRecovering {
	my($self)=shift;

	${$$self{ERRST}} != 0;
}

sub YYA <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2464	2566	
==>=shift;

	${$$self{NBERR}};
}

sub YYRecovering {
	my($self)=shift;

	${$$self{ERRST}} != 0;
}

sub YYA <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3304	3396	
==>e
which one you like best!

L<Pod::Simple>, L<Pod::Simple::DumpAsXML>

The older libraries L< <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677579	677669	
==>rc/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_float(interpreter, {{\@1}}, {{\@2}});\n    { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678357	678447	
==>rc/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_float(interpreter, {{\@1}}, {{\@2}});\n    { <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	744	851	
==>ck_depth = new Hash
PIR
}

# Post translation hook.
sub post_translation() {
	# Nothing to do.
	return "";
} <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4973	5075	
==>k,$dotpos)
     = @$self{ 'ERRST', 'NBERR', 'TOKEN', 'VALUE', 'STACK', 'CHECK', 'DOTPOS' };

#DBG>	m <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4731	4830	
==>k,$dotpos)
     = @$self{ 'ERRST', 'NBERR', 'TOKEN', 'VALUE', 'STACK', 'CHECK', 'DOTPOS' };

#DBG>	m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048703	1049027	
==>ind_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1172,
                  "ARGS" => [
                              "p" <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	4628	4723	
==>n unsigned short integer as the exit status).

Because VMS's exit codes are much, much different <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2037	2140	
==>hift;
  my ($handler) = @_;

  if (not $self->prefix and $self->peer and $self->peer->prefix) {
    $sel <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1914	2017	
==>hift;
  my ($handler) = @_;

  if (not $self->prefix and $self->peer and $self->peer->prefix) {
    $sel <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15138	15227	
==>umber{$name})>.

=head1 SEE ALSO

L<perlpod|perlpod>

L<perlpodspec|perlpodspec>

L<Text:: <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	62243	62367	
==>r->{prologue};
    foreach my $fct ( @{ $parser->YYData->{functs} } ) {
        foreach my $op ( @{$fct} ) {
            i <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	3009	3096	
==>ion::C>

=item C<Parrot::Docs::Section::Ops>

=item C<Parrot::Docs::Section::IMCC>

=ite <==
3	/Users/nnunley/parrot/config/auto/pack.pm	1097	1230	
==>if ($size == 4) {
            $format = 'l';
        } elsif ($size == 8 || $Config{use64bitint} eq 'define') {

            # pp_pack <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79320	79420	
==>ew(interpreter, enum_class_Undef);\n  }\n  else {\n      /* At this point we have the symbol's addres <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80841	80941	
==>ew(interpreter, enum_class_Undef);\n  }\n  else {\n      /* At this point we have the symbol's addres <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123887	124172	
==>TVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124761	125046	
==>TVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125635	125920	
==>TVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14651	14784	
==>State 27
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRIN <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1419	1511	
==>self->INTERNAL_ERROR("Undefined block!")
    unless defined $block;

  $self->INTERNAL_ERROR( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1267	1359	
==>self->INTERNAL_ERROR("Undefined block!")
    unless defined $block;

  $self->INTERNAL_ERROR( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	1551	1646	
==>f $block and $block->isa("Jako::Construct::Block"));
  confess "Extra arguments!" if @_;

  retu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710711	710802	
==>tspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_printf(interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711545	711636	
==>tspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_printf(interpreter <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	20402	20513	
==>n op('multi_match' => [ $_[2]->{min}, $_[2]->{max}, TRUE, $_[1] ]); }
	],
	[#Rule 20
		 'expr', 3,
sub
#line 131 <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	926	1024	
==>die "post_op not implemented for current stack to register mapper\n";
}

# Pre and post branch oper <==
3	/Users/nnunley/parrot/config/auto/byteorder.pm	974	1109	
==>data->set(
            byteorder => $byteorder,
            bigendian => 1
        );
        $self->set_result('big-endian');
    } els <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1824	1931	
==>@@@@@@@@@@@@@@@@

sub _xml_escape {
  foreach my $x (@_) {
    # Escape things very cautiously:
    $x =~ s/ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4726	4836	
==>s) =~ /--destination=(.*)/
      or die "copy command requires destination";
    my $dest = $1;

    my ($group <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4830	4940	
==>s) =~ /--destination=(.*)/
      or die "copy command requires destination";
    my $dest = $1;

    my ($group <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	2814	2906	
==>diff($from, $to, $ignorePattern)>

Copies the file specified by C<$from> to the location spec <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26417	26520	
==>TYPES}, ${STACK0}, ${STACK1})
${INS} = concat ${STEMP0}
PIR
    }
	
	# Now we split based upon the class <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81939	82032	
==>ops\"\n  internal_exception(1, \"don't use compile - just invoke the compiler\");\n  {{+=4}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82833	82926	
==>ops\"\n  internal_exception(1, \"don't use compile - just invoke the compiler\");\n  {{+=4}};\ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	40979	41120	
==>e ($repcount < ' . $self->{max} . ')
		  {
			$backtrack = 0;
			' . $leftarg->code(@_[1..2]) . '
			$repcount++;
			$backtrack = 1;
			' . $o <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	13611	13720	
==>decl,
        $return_assign, $other_decl, $final_assign,
        $temps_ref,
        $extra_preamble_ref, $ex <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	15932	16028	
==>d2 Functions

=over 4

=item C<esc(@strings)>

=item C<esc($string)>

Reimplemented here to silen <==
3	/Users/nnunley/parrot/config/auto/aio.pm	678	807	
==>rt');

    cc_gen('config/auto/aio/aio.in');
    eval { cc_build(); };
    if (!$@) {
        $test = cc_run(35);

        # if th <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6693	6792	
==>el) = @_;
    my $fail = $self->output_label_use($failLabel);
    return ($self->dbprint("At end: %< <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6337	6436	
==>el) = @_;
    my $fail = $self->output_label_use($failLabel);
    return ($self->dbprint("At end: %< <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	315151	315399	
==>onv_u1",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 368,
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	535	637	
==>',$count);
    my $out_f     = Parrot::Test::per_test('.out',$count);
    my $parrotdir = dirname $self <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	572	674	
==>',$count);
    my $out_f     = Parrot::Test::per_test('.out',$count);
    my $parrotdir = dirname $self <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247602	247904	
==>ps\"\n  {{\@1}} = {{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	248466	248768	
==>ps\"\n  {{\@1}} = {{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	249330	249632	
==>ps\"\n  {{\@1}} = {{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	2428	2604	
==>urn $self->{PREFIX};
}


###############################################################################

=head2 BLOCK->set_symbol(NAME, VALUE)

Set a symbol in this block's sym <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	23074	23195	
==>, $c, $cmt) = @_;
    my @args;
    if ($make_f) {
	$make_f = 0;
	print <<EOC;
	# make_f \t$cmt
EOC
	# pop @stack;
	return <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	5270	5369	
==>e of (" . join(", ", @_) . ")" : $_[0], $self->get(1)->text)
    unless grep { $self->get(1)->kind e <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	1491	1621	
==>($path) ) {
        return $dist = $self if $self->file_exists_with_name('README') and 
                                $self->file <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	1715	1820	
==>igure.pl'),
		$self->config_groups,
        $self->new_group('Documentation', '',
		    $self->new_item('H <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13788	13886	
==>->_add_inst ('', 'set', [$return,0]);
  }
  else {
    $self->_add_inst ('', 'typeof', [$return,$it <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11355	11461	
==>_block;

      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $token);
      my $o <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11902	12008	
==>_block;

      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $token);
      my $o <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12445	12551	
==>_block;

      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $token);
      my $o <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1884	1995	
==>en if the program they provided appears to be
    # broken
    if ($ret == -1 and !$conf->options->get('ask')) { <==
3	/Users/nnunley/parrot/config/inter/make.pm	1758	1869	
==>en if the program they provided appears to be
    # broken
    if ($ret == -1 and !$conf->options->get('ask')) { <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1898	2009	
==>en if the program they provided appears to be
    # broken
    if ($ret == -1 and !$conf->options->get('ask')) { <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7571	7674	
==>d post store operation hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "" <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5689	5792	
==>d post store operation hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "" <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4531	4634	
==>d post store operation hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "" <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62711	62837	
==>rror,$line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr($grammar,$pos,0,
						       " <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63422	63548	
==>rror,$line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr($grammar,$pos,0,
						       " <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64152	64278	
==>rror,$line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr($grammar,$pos,0,
						       " <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2820	2929	
==>lass instructions) hooks.
sub pre_op($$) {
	my $self = shift;
	my ($pops, $pushes) = @_;
	my $register_num = 0 <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1742	1851	
==>lass instructions) hooks.
sub pre_op($$) {
	my $self = shift;
	my ($pops, $pushes) = @_;
	my $register_num = 0 <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	931	1040	
==>lass instructions) hooks.
sub pre_op($$) {
	my $self = shift;
	my ($pops, $pushes) = @_;
	my $register_num = 0 <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27420	27520	
==>$::RD_TRACE;').'
		$lastsep = "";
		$Parse::RecDescent::lastexpected = q{' . ($rule->hasleftmost($sel <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29530	29630	
==>$::RD_TRACE;').'
		$lastsep = "";
		$Parse::RecDescent::lastexpected = q{' . ($rule->hasleftmost($sel <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31627	31727	
==>$::RD_TRACE;').'
		$lastsep = "";
		$Parse::RecDescent::lastexpected = q{' . ($rule->hasleftmost($sel <==
3	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	369	464	
==>.c and variants

=head1 SYNOPSIS

    % perl tools/build/parrot_config_c.pl --mini > src/null_co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733450	733688	
==>"TYPE" => "inline",
                  "CODE" => 823,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 134 \"src/ops/set.ops <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	1402	1491	
==>ion="1.0" encoding="UTF-8"?>
 <!DOCTYPE language SYSTEM "language.dtd">
 <!-- Created auto <==
3	/Users/nnunley/parrot/config/auto/readline.pm	1859	1970	
==>HAS_READLINE => $has_readline,
	);
    }
    unless ($has_readline) {

        # The Config::Data settings might <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	20844	20952	
==>ata'), " paragraphs\n";
      DEBUG > 1 and print " (Stack now: ", $self->_dump_curr_open(), ")\n";

      pu <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27978	28073	
==>$self->{hdecls};
}

=item C<gen_h($out_name)>

Generates the C header file code for the PMC. C<$ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	585	675	
==>fess("Identifier (" . ref($ident) . ") is not!") unless UNIVERSAL::isa($ident, 'Jako::Const <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	585	675	
==>fess("Identifier (" . ref($ident) . ") is not!") unless UNIVERSAL::isa($ident, 'Jako::Const <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826570	826663	
==>(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_FLOAT) {\n    internal_ex <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827640	827733	
==>(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_FLOAT) {\n    internal_ex <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46532	46780	
==>_JUMP_RESTART",
                  "NAME" => "debug",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47314	47562	
==>_JUMP_RESTART",
                  "NAME" => "debug",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14275	14375	
==>le0: <$title>\n";
  $title = rtf_esc($title);
  DEBUG and print "Title1: <$title>\n";
  $title = '\la <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	7585	7739	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "branch",
                  "FLAGS" => ": <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19055	19146	
==>en $parser->get_short_title on that document will return
"Hoo::Boy::Wowza".

But if the docu <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	7368	7451	
==>pcount"};
	return "_alternation_${impcount}_of_production_${prodcount}_of_rule_$self <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	7898	8012	
==>' . $self->{"name"} . ']},
				  Parse::RecDescent::_tracefirst($_[1]),
				  q{' . $self->{"name"} . '})
					if d <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121943	122040	
==>8 \"src/ops/bit.ops\"\n  /*\n   * lvalue casts are evil, but this one isn't evil enough to kill.\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122855	122952	
==>8 \"src/ops/bit.ops\"\n  /*\n   * lvalue casts are evil, but this one isn't evil enough to kill.\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3209	3320	
==>_offset
{
    my ($self, $offset) = @_;
    return "CUR_OPCODE + $offset";
}

sub goto_offset
{
    my ($self, $ <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	3449	3554	
==>], $nolines_flag );
    die "$0: Could not read ops file '$file'!\n" unless defined $temp_ops;

    die "O <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2132	2252	
==>$source;
};

sub partial_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32 <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2424	2544	
==>$source;
};

sub partial_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32 <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2219	2339	
==>$source;
};

sub partial_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	445375	445657	
==>=> 509,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 119 \"src/ops/math.ops\"\n  {{\@2}} = m <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11365	11461	
==>E_U = 0x19
	.const int ELEMENT_TYPE_FNPTR = 0x1B
	.const int ELEMENT_TYPE_OBJECT = 0x1C
	.const i <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6987	7077	
==>ce|info|docu|Text|TODO|status|MANIFEST|README/;
}

=item C<title()>

Returns the title of t <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7793	7980	
==>os .. -1 ]
                        :   ();

            $semval = $code ? &$code( $self, @sempar )
                            : @sempar ? $sempar[0] : undef;

            splice(@$s <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7441	7622	
==>os .. -1 ]
                        :   ();

            $semval = $code ? &$code( $self, @sempar )
                            : @sempar ? $sempar[0] : undef;

            splice(@$s <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19692	19788	
==>y($name,$type);
			die "Syntax error in type $type[CURR]/$syms[CURR] (source line $sourceline)" u <==
3	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	1560	1660	
==>);
exit($status >> 8) if $status != 0;

foreach my $output (@outputs) {
    open(OUTPUT, ">>$output") <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2519	2603	
==>p6>,
F<examples/mops/mops.ps>,
F<examples/mops/mops.py>,
F<examples/mops/mops.rb>,
F< <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	2519	2603	
==>p6>,
F<examples/mops/mops.ps>,
F<examples/mops/mops.py>,
F<examples/mops/mops.rb>,
F< <==
3	/Users/nnunley/parrot/config/init/hints/linux.pm	1480	1610	
==>_flags  => $ld_share_flags,
        i_lib_pthread  => 1,              # XXX fake a header entry
        linkflags      => $linkflag <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	900	988	
==>fine IREG(i) REG_INT(cur_opcode[i])
#define NREG(i) REG_NUM(cur_opcode[i])
#define PREG(i <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1016	1104	
==>fine IREG(i) REG_INT(cur_opcode[i])
#define NREG(i) REG_NUM(cur_opcode[i])
#define PREG(i <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6313	6427	
==>TRUE           ' Force first pass through the array.
WHILE Exchange          ' Sort until no elements are exchanged <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15966	16080	
==>TRUE           ' Force first pass through the array.
WHILE Exchange          ' Sort until no elements are exchanged <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	843	953	
==>my $cmd;
    my $exit_code = 0;
    my $pass = 0;

    $cmd = "$self->{parrot} $args languages/APL/APL.pbc $lan <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	933543	933826	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934317	934600	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	1149	1246	
==>tem C<--no-body>

Emit an empty body in the dump. This may be useful for debugging.

=item C<--inc <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	14702	14909	
==>T or lastback
#                push 2
#                goto next
#          back: popint -> I0
#                eq I0, 0, R.back
#                eq I0, 1, S.back
#                goto T.back
#          next: <==
3	/Users/nnunley/parrot/config/gen/platform.pm	2793	2906	
==>(e.g. misc.c).
    }

    # finally append generated
    @headers = grep { /\.h$/ } split(',', $generated);
    fo <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	7835	7938	
==>ble} = $self->{vtable};
    # set parentname
    $const->{parentname} = $self->{class};

}

=item C<init <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	18305	18414	
==>off
    return $treelet;
  } else {
    $treelet = $self->_treelet_from_formatting_codes(@_);
  }
  
  if( $se <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16667	16762	
==>things very cautiously:
        $x =~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10115	10206	
==>things very cautiously:
    $x =~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\} <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3749	3850	
==>t_parent($self);
	}
	
	return @contents;
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::Docs::Sec <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	2803	2899	
==>L
link is created to the file itself.

Some HTML-formatted text describing the files linked to is <==
3	/Users/nnunley/parrot/config/auto/signal.pm	1979	2109	
==>me (split(' ', $Config{sig_name})) {
        print O ".constant SIG$name\t$i\n" if $i;
        $i++;
    }
    close O;
    
    re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	32061	32165	
==>ext has results */\n        opcode_t * const results = PMC_cont(cc)->to_ctx->current_results;\n        if <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20242	20338	
==>ll C<parse_file> etc, but you don't I<have> to.

And if you're not writing a formatter class, but <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	3046	3209	
==>=> '/usr/lib',
                includedir  => '/usr/include',
                docdir      => '/usr/share/doc',
                'dry-run'   => 0,
              );

m <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	68237	68356	
==>translatable item encountered: \"$1\"",
			       $line);
			_hint("Did you misspell \"$1\"
			           or forget to c <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9526	9629	
==>sed');
  flunk('This test failed');

  skip('skip this test for now');

  flunk('this fails, but might w <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	2581	2708	
==>g,
          );

sub Usage {
    print STDERR <<_EOF_;
usage: $0 [--help] [--no-lines] input.ops [input2.ops ...]
_EOF_
    exit <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	550	653	
==>$self = shift;

  if (@_) { $self->{FILE} = shift; }

  return defined $self->{FILE} ? $self->{FILE} : ' <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	33690	33782	
==>any one (or more) of the user-specified delimiter
brackets: '(..)', '{..}', '[..]', or '<..>' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453672	453893	
==>E" => 520,
                  "ARGS" => [
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 230 \"src/ops/math.ops\"\n  {{\@1}} += {{\@2} <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	646	745	
==>.

=head1 HISTORY

Started by josh in 2002.

=head1 AUTHOR

josh

=head1 SEE ALSO

F<docs/pdds/pdd07 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	5031	5128	
==>do_url_link { return $_[1]->attr('to') }

sub do_man_link { return undef }
 # But subclasses are w <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	19127	19236	
==>5', 'P'];   # simulate the DUP_TOP
    print <<EOC;
	# except compare '$l' <=> $r->[1]
	$cmp = iseq $l, $r->[1 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9631	9746	
==>nt STDERR "**At eof: aborting.\n";
				return(undef);
			};

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**D <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9198	9308	
==>nt STDERR "**At eof: aborting.\n";
				return(undef);
			};

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**D <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	667	770	
==>($t, 0, 0);
    # Delete the no-implicit-check marker
    $t = $self->maptree($t, sub { delete shift->{n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	28827	29165	
==>rams",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 38,
                  "ARGS" => [
                              "pc"
                            ],
                  "BODY" => <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	50990	51114	
==>ff.\n";
        push @{ $lineage[-1] }, $4;
      }

    } elsif(defined $5) {
      DEBUG > 3 and print "Found stuff \"$5\"\ <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	8260	8379	
==>$$show = 0;
			}
		    }
		}
		want_show(\$show, $Code,   $code  ) if $show;
		want_show(\$show, $Data,   $data  ) if $s <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6970	7130	
==>en ne ''	#Don't eat the eof
				and	$$token=$$value=undef;
                next;
            };

            #reduce
            my($lhs,$len,$code,@sempar <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6645	6799	
==>en ne ''	#Don't eat the eof
				and	$$token=$$value=undef;
                next;
            };

            #reduce
            my($lhs,$len,$code,@sempar <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeDumb.pm	405	528	
==>null'        => 1,
  'latin1'      => 1,
  'latin-1'     => 1,
  %Supported,
);

sub is_dumb  {1}
sub is_smart {0}

sub all_ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	15664	15758	
==>made silent by passing the "no_diag" option to
Test::More.  C<use Test::More tests => 1, 'no_di <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2593	2760	
==>n";
    }

    sub visitKeyedGetOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714537	714636	
==>STRING * const s = {{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (s && string_length(i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715460	715559	
==>STRING * const s = {{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (s && string_length(i <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3999	4103	
==>de for each push.
	$pir .= "\${ITEMP0} = 0\n";
	for (1..$pushes) {
		$pir .= <<'PIR';
# Increment stack d <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2415	2519	
==>de for each push.
	$pir .= "\${ITEMP0} = 0\n";
	for (1..$pushes) {
		$pir .= <<'PIR';
# Increment stack d <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	921	1012	
==>Parrot::IO::File';
}

=item C<directory_with_path($path)>

Returns the directory with the sp <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4588	4745	
==>ble_visible{$file}{$1} ||
                          $variable_visible{ALL}{$1});
            }
        }
    }
    
    close(F);

    # filter out things tha <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	32921	33036	
==>arent
    # should do the ending.
    # Exit if plan() was never called.  This is so "require Test::Simple" 
    # d <==
3	/Users/nnunley/parrot/config/init/hints/solaris.pm	136	230	
==>e init::hints::solaris;

use strict;

use Parrot::Configure::Step qw(cc_gen cc_run);

sub runst <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129323	129588	
==>MP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130061	130326	
==>MP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	19485	19604	
==>test_func = "${package}::${prefix}_${meth}";
                $test_func->( @remaining );
                $builder->level <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1170	1442	
==>"; # print  "Estimated ops: "
                              # print  I5
                              # print  "\n"
                              #
$N1 = time_hires();           # time N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3 <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	1170	1442	
==>"; # print  "Estimated ops: "
                              # print  I5
                              # print  "\n"
                              #
$N1 = time_hires();           # time N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3 <==
3	/Users/nnunley/parrot/config/gen/platform.pm	3993	4105	
==>e.
    if (-e "config/gen/platform/$platform/begin.c") {
        local $/ = undef;
        open IN_C, "< config/g <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5833	5926	
==>ned $self->{triggers}{$key}{$trigger};

    my $verbose = defined $self->get('verbose') && $se <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6403	6496	
==>ned $self->{triggers}{$key}{$trigger};

    my $verbose = defined $self->get('verbose') && $se <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	3912	4065	
==>%1 *= 3.14159265358979323846"
                                      # PI

    $P0[unicode:"monadic:\u2373"]  =  <<"END_PIR"            # index of
    #XXX <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948821	948906	
==>35 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@1} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949621	949706	
==>35 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@1} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094556	1094865	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exec",
                  "FLAGS" => "",
                  "ARG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856572	856802	
==>=> [
                              "s",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 105 \"src/ops/string.ops\"\n  {{\@1}} = string_concat(i <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	3590	3711	
==>0 unless defined $_[0];
        return $_[0] eq $suffix;
    }
    
    return $suffix ne '';
}

=item C<parent_path()>

R <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407757	408053	
==>connect",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408655	408951	
==>connect",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10086	10187	
==>am pmc rettype
    .param int trace
    .local pmc bc, ex, stypes, dtypes, loadtype, type_trans, c_par <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	8071	8195	
==>or:
    $ary_ref = $obj->a;                 # reference to whole array
    $ary_element_value = $obj->a(2);    # array elemen <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	956	1076	
==>les = @ARGV;

if (! @files) {
    die "Usage: $0 <source files>\n" .
        "       $0 all_source\n";
}

if ($files[0] e <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	629	727	
==>tes = qw(STORE PUSH POP SHIFT UNSHIFT DELETE);
  @writes{@writes} = (1) x @writes;
}
use Text::Bala <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37563	37657	
==>$rule->hasleftmost($self) ? 'q{}'
				: 'q{'.$self->describe.'}' ) . ';
		$Parse::RecDescent::l <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39966	40060	
==>$rule->hasleftmost($self) ? 'q{}'
				: 'q{'.$self->describe.'}' ) . ';
		$Parse::RecDescent::l <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	46792	46903	
==>{
			_parse("a comment",0,$line);
			next;
		}
		elsif ($grammar =~ m/$NEGLOOKAHEAD/gco)
		{
			_parse("a negati <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571116	571204	
==>t_class_lookup_p(interpreter, {{\@3}});\n    {{\@1}} = Parrot_object_isa(interpreter, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572071	572159	
==>t_class_lookup_p(interpreter, {{\@3}});\n    {{\@1}} = Parrot_object_isa(interpreter, {{\ <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	15059	15221	
==>er_mmd }) {
                    ##print "** @{ $super_mmd } **\n";
                    push @{ $self->{super_mmd} },
                        { $pname => $super_mmd <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	2132	2231	
==>of
C<--files>, return a list of files to process.  This list is one per line, and
is relative to the <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2850	2957	
==>'sol'    => 47,
 'verbar' => 124,

 'lchevron' => 171, # legacy for laquo
 'rchevron' => 187, # legacy for r <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	8629	8718	
==>(i) REG_STR(jit_info->cur_op[i])
#define CONST(i) interpreter->code->const_table->constant <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973824	974153	
==>ne",
                  "CODE" => 1094,
                  "ARGS" => [
                              "i",
                              "ic",
                              "s",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	5606	5706	
==>_loadbc(interpreter, pf);

    /* setup P0, stolen from embed.c */
    userargv = pmc_new(interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	598	688	
==>::new(
		'Dynamic PMCs', 'dynapmc.html', '',
		$self->new_group('Loading', '', 'src/dynpmc' <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	9724	9852	
==>ilename");
        }
        $filebase  = substr($filebase, 0, 8);
        $extension = substr($extension, 0, 3);
        my $fil <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14151	14246	
==>', ["DONE_$label"]);
    $self->_add_inst ("FAIL_$label", 'set', [$return,0]);
    $self->_add_i <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16419	16510	
==>', ["DONE_$label"]);
  $self->_add_inst ("FAIL_$label", 'set', [$return,0]);
  $self->_add_i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557892	557979	
==>@2}};\n  interpreter->current_cont = CONTEXT(interpreter->ctx)->current_cont;\n  PObj_ge <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559276	559363	
==>@2}};\n  interpreter->current_cont = CONTEXT(interpreter->ctx)->current_cont;\n  PObj_ge <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560648	560735	
==>@2}};\n  interpreter->current_cont = CONTEXT(interpreter->ctx)->current_cont;\n  PObj_ge <==
3	/Users/nnunley/parrot/config/gen/PodText.pm	1141	1255	
==>$parser = Pod::Text->new(width => 79);

    my $count = 0; # number of processed files
    foreach my $pod (keys %d <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	3920	4028	
==>num and *.ops
if ($renum_flag) {
    renum_op_map_file($ops);
    exit 0;
}    
# else check strictly against <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	6693	6801	
==>ing are assumed to work Everywhere.
		my $absolute = ($type =~ /^[Aa]$/  ) ? 1 : 0;
		my $uninit   = ($type = <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	2076	2186	
==>ately.
    my $fdecls = $c->get('fdecls');
    foreach my $fdecl (@$fdecls) {
        next unless ($fdecl =~ /\ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10367	10456	
==>e stack.
${PTEMP3} = ${STYPES}[${ITEMP2}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP3}["reg_type_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7751	7840	
==>e stack.
${PTEMP3} = ${STYPES}[${ITEMP2}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP3}["reg_type_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046933	1047333	
==>ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1170,
                  "ARGS" => [
                              "kc",
                              "sc",
                              "p"
                            ], <==
3	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	3304	3497	
==>.= "\n";
            }
            $result .= $code;
            $result .= "\n";
        }
        else {
            if ($seen_blank) {
              $result .= "\n";
              $seen_blank <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	140	239	
==>1 NAME

tools/dev/parrot_coverage.pl - Run coverage tests and report

=head1 SYNOPSIS

    % mkdir p <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	11026	11189	
==>$incexc[-1] = $last+1;
            }
        } else {
            # Append
            push @incexc, $first, ($last+1);
        }
    }

    return \@incexc;
}

sub <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943810	943898	
==>DY" => "#line 516 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_charset_number_of_str(interp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944599	944687	
==>DY" => "#line 516 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_charset_number_of_str(interp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	309100	309358	
==>"
                               ],
                  "TYPE" => "function",
                  "CODE" => 360,
                  "ARGS" => [
                              "sc"
                            ],
                  "BODY" => "#line 64 \"src/ops/debug. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1096410	1096648	
==>"TYPE" => "function",
                  "CODE" => 1216,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 236 \"src/ops/expe <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	2980	3085	
==>define _CONST_STRING_$line $n\n";
	print ALL qq!$len\t$hashval\t"$str"\n!;
    }
    close(IN);
}

sub cre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158882	159198	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 192,
                  "A <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6355	6463	
==>the array.
WHILE Exchange          ' Sort until no elements are exchanged.
   Exchange=FALSE
   ' Compare the <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16008	16116	
==>the array.
WHILE Exchange          ' Sort until no elements are exchanged.
   Exchange=FALSE
   ' Compare the <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976181	976441	
==>"i",
                              "ic",
                              "sc",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_st <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	18835	18979	
==>$matchcount, $max, $next ]),
               @R_ops,
               aop('add', [ $matchcount, 1 ]),
               aop('goto', [ $loop ]),
      $ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7053	7158	
==>T_FUNC($var);
	#	goto PARSE_NOFEED;
	#}

	if ($syms[CURR] eq "_startasm") {
		feedme;
		#$syms[CURR]=~s/^\ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	22946	23065	
==>able);

EOC
    # init vtable slot
    if ($self->{flags}{dynpmc}) {
        $cout .= <<"EOC";
        vt_clone->base_ty <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	56579	56681	
==>nd bracketed
parts are also blessed to identify them (the "anything else" is unblessed):

        @fiel <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	61	150	
==>2006-04-30T14:02:48.452322Z bernhard  $

package Regex::CodeGen::Re;
use Regex::RegexOps ( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632581	632678	
==>er, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_ne <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633623	633720	
==>er, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_ne <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	930	1020	
==>cc_end_yield .namespace .endnamespace .macro .include);
my @pod_start = qw(head[1-6] over b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21656	21940	
==>NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 29,
                  " <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14583	14692	
==>$title) { print "  Returing title <$title>\n" }
    else { print "Returning title <>\n" }
  }
  
  return '' u <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	23148	23257	
==>$title) { print "  Returing title <$title>\n" }
    else { print "Returning title <>\n" }
  }
  
  return '' u <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	446453	446724	
==>{{\@1}} );\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447090	447361	
==>{{\@1}} );\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449399	449669	
==>{{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2256	2371	
==>tual_arg_type = $arg_sym->type; 
    }
    else {
      $actual_arg_type = $args[$i]->type;
    }

    $self->INTERN <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1956	2071	
==>tual_arg_type = $arg_sym->type; 
    }
    else {
      $actual_arg_type = $args[$i]->type;
    }

    $self->INTERN <==
3	/Users/nnunley/parrot/config/auto/funcptr.pm	1077	1175	
==>to use the JIT code.

If you wish to continue without JIT support, please re-run this script
With t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	33691	33929	
==>line",
                  "CODE" => 42,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 627 \"src/ops/core.ops\"\n  {{\@1} <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	7466	7630	
==>Makefile',
        commentType                        => '#',
        replace_slashes                    => 1
    );
    genfile(
        'config/gen/makefiles/urm.i <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	18132	18293	
==>join('.', @_);
    }
    elsif (@_ == 0)
    {
        if (wantarray)
        {
            return split(/\./, $self->{VERSION});
        }
        else
        { <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1378	1484	
==>n with bad source code as input.
  #

  $self->INTERNAL_ERROR("Undefined block!")
    unless defined $block <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1323	1429	
==>n with bad source code as input.
  #

  $self->INTERNAL_ERROR("Undefined block!")
    unless defined $block <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1226	1332	
==>n with bad source code as input.
  #

  $self->INTERNAL_ERROR("Undefined block!")
    unless defined $block <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047455	1047743	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_EN <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054564	1054852	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_EN <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059259	1059547	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_EN <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	4348	4509	
==>ile->path), 
                $source->relative_path($file->path));
                    
            $index_html .= "<br>\n";
        }
    }
    
    return '' un <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	1641	1785	
==>'I16', 'P16'],
  ['',            'set', 'I1', 0],
  ['',            'set', 'I2', 0],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  [' <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27313	27433	
==>ew BranchOp( $parser,
        'result' => $l_continue,
    );
    push @opcodes, new LabelOp( $parser,
        'arg1' <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28192	28312	
==>ew BranchOp( $parser,
        'result' => $l_continue,
    );
    push @opcodes, new LabelOp( $parser,
        'arg1' <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	31169	31266	
==>atting codes. That is, authors should not use
# "L<B<Foo::Bar>>".
#
# Note, however, that formatti <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277860	277998	
==>"
                            ],
                  "BODY" => "#line 881 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596204	596459	
==>= VTABLE_subclass(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597097	597352	
==>= VTABLE_subclass(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8079	8176	
==>PLOOP_END_${CURIC}:

# If there is a return type, need to supply a ${DEST0}.
${ITEMP0} = ${PTEMP1} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247598	247859	
==>mp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	248462	248723	
==>mp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	249326	249587	
==>mp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/config/gen/icu.pm	2699	2827	
==>out) {
        $conf->data->set(
            has_icu    => 0,
            icu_shared => '', # used for generating src/dynpmc/Make <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614886	614992	
==>t;\n    offset = Parrot_class_offset(interpreter, {{\@2}}, {{\@3}});\n    if (offset < 0) {\n        real_e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616037	616143	
==>t;\n    offset = Parrot_class_offset(interpreter, {{\@2}}, {{\@3}});\n    if (offset < 0) {\n        real_e <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	798	907	
==>ck->push_content($self);

  return $self;
}

sub ident  { return shift->{IDENT};  }


#
# compile()
#

sub com <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	798	907	
==>ck->push_content($self);

  return $self;
}

sub ident  { return shift->{IDENT};  }


#
# compile()
#

sub com <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70688	70908	
==>> 94,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 1150 \"src/ops/core.ops\"\n\n  {{\@1}} = Parrot_lo <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	8194	8317	
==>)/) {
		    my $vars = $1;
		    $vars =~ s/[\s']//g;
		    $func_info{$cur_f}{varnames} = $vars;
		    print "# $cur_f; var <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	16920	17024	
==>all others (bullets
    #   and numbers) do.

# TODO: winge about many kinds of directives in non-resolvi <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	1635	1753	
==>pe"
      unless defined $1;
    if ($self->{regs}->{$1}{$2}) {
      $self->{regs}->{$1}{$2} = 0;
    }
  }
}

sub _re <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	7799	7909	
==>_one_end
    item_one = shift iter_one 
    inc pos_one
    if item_one != item_two goto loop_one
    push resu <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	778	877	
==>my $opt_warndups = 0;

# This file will eventually be compiled
open NCI, ">", "src/nci.c" or die "Ca <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9969	10074	
==>ction myfunc(a)
	print a
	a=12
        myfunc=80
end function
z=5
T=myfunc(z)
print z

' Basic Hello
a$="H <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11582	11687	
==>ction myfunc(a)
	print a
	a=12
        myfunc=80
end function
z=5
T=myfunc(z)
print z

' Basic Hello
a$="H <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	11525	11626	
==>mple::Transcode::->encmodver;
    $enc_error = join '' =>
      "This document probably does not appea <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	2231	2365	
==>e stack of active blocks. We keep a block on the
##                          stack for the file scope.
##
## NOTE: Do NOT access the bl <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15575	15696	
==>ocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new AssignOp( $parser,
        'result' => $r <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19328	19449	
==>ocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new AssignOp( $parser,
        'result' => $r <==
3	/Users/nnunley/parrot/config/gen/PodText.pm	1618	1765	
==>by " . __PACKAGE__ . " from $pod\n"
              . "\n"
              . $text
        ;
        # the filehandle was opened for update so the files <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561997	562285	
==>' not found\", {{\@3}});\n  }\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563081	563369	
==>' not found\", {{\@3}});\n  }\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	6966	7070	
==>$t, 'type');
  }
  
  unshift @{$self->{'token_buffer'}}, @_;
  DEBUG > 1 and print "Token buffer now has <==
3	/Users/nnunley/parrot/config/auto/jit.pm	1684	1817	
==>386';
        $osname  = 'cygwin';
    }

    if ($archname =~ m/powerpc/) {
        $cpuarch = 'ppc';
    }

    $cpuarch =~ s/armv[3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596183	596292	
==>ect.ops\"\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597076	597185	
==>ect.ops\"\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6484	6663	
==>->block; # Terminate recursion

  return $self->block->find_symbol($name); # Recurse
}


###############################################################################

=head2 BLO <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	4242	4342	
==>$rdel));
	pos = $posbug;

	my $startpos = pos $$textref || 0;
	my @match = _match_bracketed($textref, <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2505	2587	
==>les/mops/mops.p6>,
F<examples/mops/mops.ps>,
F<examples/mops/mops.py>,
F<examples/m <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	2505	2587	
==>les/mops/mops.p6>,
F<examples/mops/mops.ps>,
F<examples/mops/mops.py>,
F<examples/m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494775	495203	
==>" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 568,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 5 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	230064	230294	
==>ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 545 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720225	720451	
==>er, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721425	721651	
==>er, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	50111	50205	
==>$aftererror,$line);
				$item = new Parse::RecDescent::Directive(
					'Text::Balanced::extract <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	50458	50552	
==>$aftererror,$line);
				$item = new Parse::RecDescent::Directive(
					'Text::Balanced::extract <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	24	112	
==>6, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Configure.pm 20321 2006-06-20T20:02:00. <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	1629	1755	
==>as path.
    undef $parent_path if $parent_path eq $path;
    
    $self = bless {
        PATH => $path,
        NAME => $name <==
3	/Users/nnunley/parrot/config/auto/format.pm	186	281	
==>d1 DESCRIPTION

Figures out what formats should be used for C<sprintf()>.

=cut

package auto::f <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	652	743	
==>ot::Docs::File';
}

=item C<directory_class()>

Returns C<Parrot::Docs::Directory>.

=cut

s <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1501	1607	
==>new,
        Parrot::Docs::Section::PMCs->new,
        Parrot::Docs::Section::DynaPMCs->new,
        Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550092	550190	
==>eter->current_object = object;\n  interpreter->current_cont = NEED_CONTINUATION;\n  interpreter->cu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551393	551491	
==>eter->current_object = object;\n  interpreter->current_cont = NEED_CONTINUATION;\n  interpreter->cu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552735	552833	
==>eter->current_object = object;\n  interpreter->current_cont = NEED_CONTINUATION;\n  interpreter->cu <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19857	19956	
==>ng this appropriately is useful if you want to use the RTF
to spellcheck, and/or if you want it to h <==
3	/Users/nnunley/parrot/lib/File/Which.pm	5018	5116	
==>HEXT> variable.

=head2 VMS

Same case as Windows 9x: uses C<.exe> and C<.com> (in that order).

=h <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666131	666420	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "elements",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6999	7129	
==>|Text|TODO|status|MANIFEST|README/;
}

=item C<title()>

Returns the title of the file.

=cut

sub title
{
	my $self = shift;

	ret <==
3	/Users/nnunley/parrot/tools/dev/gen_class.pl	473	582	
==>C to Parrot.

To see what a minimal PMC looks like, create a PMC template and compile
it to C.

	% perl t <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	6795	6978	
==>., which we use later.
        #
        # Either of these two forms work:
        #
        #   inline op  name (args) {
        #   op         name (args) {
        #
        # The a <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	21021	21115	
==>$typename
DIM_$typename:
	#print "Dimensioning $typename\\n"
	pushp
	P2= .PerlHash
TYPEE
		fore <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	38070	38158	
==>eating Data paragraph as Plain/Verbatim because the containing =for ($fors[-1][1]{'target <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9955	10051	
==>k last to first, but need to be first to last in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITEM <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7469	7565	
==>k last to first, but need to be first to last in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITEM <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6433	6529	
==>k last to first, but need to be first to last in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITEM <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24059	24176	
==>'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 128,
			'functioncall' => 31,
			'function' => 26,
			'tableconstru <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	19582	19728	
==>eth};
            $meth_name = "Parrot_${class}_$meth";
        }
        else {
            $defaulted = 1;
            $meth_name = "Parrot_defau <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	330	434	
==>.pl> to transform Parrot bytecode to a C code
run loop.

=head2 Instance Methods

=over 4

=cut


package <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32542	32638	
==>ut with locking.

=over 4

=cut

package Parrot::Pmc2c::SharedRef;
use base 'Parrot::Pmc2c';

=it <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377334	377586	
==>DE" => 441,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 432 \"src/ops/io.ops\"\n  {{\@1}} = Parro <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	539	649	
==>utput_reverse_fork {
#      my ($label) = @_;
#      return "reverse_fork $label->[1]";
#  }

sub output_onfail <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1108127	1108222	
==>Y" => "#line 361 \"src/ops/experimental.ops\"\n    INTVAL type;\n    switch ({{\@2}}->vtable->ba <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	12908	13010	
==>.= "### pre_translation\n";
    my $srm_pt = $srm->pre_translation();
    $pir .= sub_meta($srm_pt, $mv <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	3437	3539	
==>lf->at($pos, $count);
}


#
# forth()
#
# Moves the current token position $offset tokens forward. Retu <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11377	11467	
==>{\stylesheet
{\snext0 Normal;}
{\*\cs10 \additive Default Paragraph Font;}
{\*\cs16 \additi <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3212	3321	
==>> [ 1, 'N' ],
  COMPLEX  => [ 2, 'I' ],
  STRING   => [ 1, 'S' ],
};

#------------------------------------

s <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	4132	4323	
==>nal label as reachable
                        $dest->{reachable} = 1;
                        last; # Stop tracing through jumps
                    } else {
                        die "unta <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	517	633	
==>unstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    my $cc        = $conf->d <==
3	/Users/nnunley/parrot/config/auto/readline.pm	529	645	
==>unstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    my $cc        = $conf->d <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21394	21536	
==>> 28
		}
	},
	{#State 66
		ACTIONS => {
			'NAME' => 120
		}
	},
	{#State 67
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' <==
3	/Users/nnunley/parrot/config/init/hints/vms.pm	365	501	
==>",
        exe     => "exe"
    );

    {
        local $^W;    # no warnings on redefinition

        *Parrot::Configure::Step::cc_build <==
3	/Users/nnunley/parrot/languages/APL/t/APL.pm	799	897	
==>eed things up for end users, give developers the ability
# to easily see if anything new is passing <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	13106	13217	
==>gnal.h
rand        stdlib.h
real        complex.h
realloc     stdlib.h
remainder   math.h
remainderf  math.h
rem <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19828	19927	
==>ing tree-building action in rule
					   \"$rule->{name}\"")
		and
		Parse::RecDescent::_hint("The d <==
3	/Users/nnunley/parrot/Configure.pl	7734	7830	
==>ation of ICU headers without /unicode
   --icushared=(flags)  Full linker command to create share <==
3	/Users/nnunley/parrot/config/gen/icu.pm	3812	3908	
==>ation of ICU headers without /unicode
   --icushared=(flags)  Full linker command to create share <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5277	5385	
==>ops;
}

sub output_initgroup {
    my ($self, $group) = @_;
    return ("<rx_match>{\"$group\"} = [];");
}

s <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	101	194	
==>vide language specific testing routines here...

This is currently alarmingly similar to the g <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	199	292	
==>vide language specific testing routines here...

This is currently alarmingly similar to the g <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2700	2811	
==>ranch($) {
	my $self = shift;
	my $pops = shift;
	my $register_num = 0;
	
	# Emit initial code.
	my $pir = <<'PI <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	457	558	
==>s out:

=over 4

=item * the number of look iterations, 

=item * the estimated number of ops performe <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	461	561	
==>s out:

=over 4

=item * the number of look iterations,

=item * the estimated number of ops performe <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	5120	5279	
==>([\#\}])/) {
            # skip the last line of the func or cpp directives.
            $f = undef if ($1 eq "}");
            next;
        }

        if (def <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946146	946283	
==>c"
                            ],
                  "BODY" => "#line 521 \"src/ops/string.ops\"\n  {{\@1}} = string_copy(interpreter, Parr <==
3	/Users/nnunley/parrot/config/auto/readline.pm	1916	2025	
==>_readline) {

        # The Config::Data settings might have changed for the test
        $conf->data->set('li <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	8417	8515	
==>it  ) if $show;
		want_show(\$show, $Uninit, $uninit) if $show;
		want_show(\$show, $Const,  $const <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	4451	4545	
==>', 'set',[$return,$value]);
    }
    elsif ($value =~ /^[-+]?((\d+\.\d*)|(\.d+))([eE][-+]?\d+) <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3470	3561	
==>', 'set', [$return,$value]);
  }
  elsif ($value =~ /^[-+]?((\d+\.\d*)|(\.d+))([eE][-+]?\d+) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	27356	27549	
==>ODE" => 36,
                  "ARGS" => [
                              "pc"
                            ],
                  "BODY" => "#line 491 \"src/ops/core.ops\"\n    opcode_t * const this <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9856	9968	
==>args";
    } else {
        return "INTERP, SELF";
    }
}

=item C<proto($type,$parameters)>

Determines the pro <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	76	167	
==>-stamp: "2002-08-27 19:58:02 MDT"
package Pod::Escapes;
require Exporter;
@ISA = ('Exporter' <==
3	/Users/nnunley/parrot/tools/dev/pbc_header.pl	1039	1141	
==>ub get_version {
    my $version_file = 'VERSION';
    open IN, $version_file or die "Can't read $versi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1415	1515	
==>> >>

=back

You're unlikely to ever need to construct an object of this class for
yourself, but if y <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	377	473	
==>ce(n)" => "advance input <n> chars" ],
    [ "increment(var,[amount])" => "advance input <n> char <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49296	49399	
==>e);
			}
			elsif ($grammar =~ m/$UNCOMMITMK/gco)
			{
				_parse("an uncommit marker", $aftererror,$lin <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1755	1922	
==>.lib',
            o          => '.obj',
            cc_o_out   => '-Fo',
            cc_exe_out => '-out:',
            cc_ldflags => '/link',

            # ZI messes <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3634	3801	
==>.lib',
            o          => '.obj',
            cc_o_out   => '-Fo',
            cc_exe_out => '-out:',
            cc_ldflags => '/link',

            # ZI messes <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	9144	9272	
==>->_unoverload(\$todo);

    my $out;
    my $result = &share({});

    unless( $test ) {
        $out .= "not ";
        @$result <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011926	1012164	
==>ine",
                  "CODE" => 1129,
                  "ARGS" => [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 39 \"src/ops/sys.ops\"\n  {{\@1}} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	223	322	
==>fix.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako:: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	225	324	
==>fix.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496926	497054	
==>" => "#line 595 \"src/ops/math.ops\"\n  {{\@1}} = floatval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497796	497924	
==>" => "#line 595 \"src/ops/math.ops\"\n  {{\@1}} = floatval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498666	498794	
==>" => "#line 595 \"src/ops/math.ops\"\n  {{\@1}} = floatval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	10045	10170	
==>f-op:
        #
        # We stash the accumulated body of source code in the Parrot::Op, push the
        # Parrot::Op onto o <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	16098	16194	
==>for when you have like "=over\n\n=item 456\n\n"
  my($self, $para) = @_;
  return $para->[1]{'~ty <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5698	5946	
==>d_bytecode",
                  "FLAGS" => ":load_file",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8,
                  "A <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	16	108	
==>kage Pod::Simple::TiedOutFH;
use Symbol ('gensym');
use Carp ();

#~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1188	1279	
==>NTEXT(interpreter->ctx)->constants[cur_opcode[i]]
END
}

=item C<pc($pc)>

=item C<pc()>

Se <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	53224	53374	
==>the list:

        [
                sub { extract_variable($_[0], '') },
                sub { extract_quotelike($_[0],'') },
                sub { ex <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15485	15600	
==>ape{$1}/g;  # ESCAPER
             # Escape \, {, }, -, control chars, and 7f-ff.
    $x =~ s/([^\x00-\xFF])/'\\uc1\ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16664	16779	
==>ape{$1}/g;  # ESCAPER
             # Escape \, {, }, -, control chars, and 7f-ff.
    $x =~ s/([^\x00-\xFF])/'\\uc1\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86112	86373	
==>,
                  "TYPE" => "inline",
                  "CODE" => 107,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 1208 \"src/ops/core.ops <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	8627	8866	
==>($type =~ /^INTKEY$/i)
                {
                    $type = "ki";
                }
                else
                {
                    $type = lc substr($type, 0, 1);
                }

                # convert e.g. "label <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6438	6548	
==>x_pos> >= %<rx_len>?\n"),
            "goto $fail if <rx_pos> < <rx_len>; # at end?");
}

sub output_pushmark { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	67006	67177	
==>=> [
                              "ic"
                            ],
                  "BODY" => "#line 1023 \"src/ops/core.ops\"\n  if ({{\@1}})\n    Parrot_do_dod_run(i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5326	5419	
==>>sax($handler);
  $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', nam <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3389	3482	
==>>sax($handler);
  $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', nam <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553892	553992	
==>ect = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+4}};\n  interpreter->current_object = object;\n  inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555289	555389	
==>ect = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+4}};\n  interpreter->current_object = object;\n  inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187715	187912	
==>s",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 292 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4153	4256	
==>x;
    foreach $core_suffix (values %cores) {
		foreach (@oplibs) {
			my $src = $_ . "_ops$core_suffix$ <==
3	/Users/nnunley/parrot/languages/converter.pl	1385	1495	
==>][0];
		  $return .= "# $item[2]\n";
		  $return .= $item[3][0] if defined $item[3][0];
 		}
		| terminal(?) '| <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8977	9071	
==>s: fixup for '%s' not found\", label);\n    else {\n\tinterpreter->resume_offset = fe->offset;\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10093	10187	
==>s: fixup for '%s' not found\", label);\n    else {\n\tinterpreter->resume_offset = fe->offset;\ <==
3	/Users/nnunley/parrot/config/inter/shlibs.pm	678	791	
==>igure::Step ':inter';

$description = 'Determining flags for building shared libraries';

@args = qw(ask verbose c <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1944	2081	
==>>{result}->{symbol}, $op->{arg2}->{symbol}\n";
        }
        else {
            print {$FH}
                "  $op->{result}->{sym <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33158	33265	
==>mentation to perform locking.

=cut

sub body
{
    my ($self, $method, $line, $out_name) = @_;

    my $met <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	11220	11315	
==>c?, Bool :$todo, Str :$depends) returns Bool is export`

These functions should work with most r <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10566	10687	
==>r}, undef ]);

    }

    #never reached
	croak("Error in driver logic. Please, report it as a BUG");

}#_Parse
#D <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10094	10207	
==>r}, undef ]);

    }

    #never reached
	croak("Error in driver logic. Please, report it as a BUG");

}#_Parse
#D <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033274	1033373	
==>ex_name = {{\@1}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n    if ( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034372	1034471	
==>ex_name = {{\@1}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n    if ( <==
3	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1347	1441	
==>n't include anything here, which
 * could pull in some globals
 */
void Parrot_set_config_hash( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658296	658402	
==>: {{\@2}}->vtable->defined_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659215	659321	
==>: {{\@2}}->vtable->defined_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361663	361760	
==>@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, INTVAL_FMT, {{\@2}});\n    PIO_putps <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362562	362659	
==>@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, INTVAL_FMT, {{\@2}});\n    PIO_putps <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	786	881	
==>ven ops files. See also F<tools/dev/ops_renum.mak>.

=back

=head2 WARNING

Generating a C<Parro <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1671	1775	
==>cat " = pop s\n"
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$register_num++;
	}

	# Do code for ea <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5041	5131	
==>fail = $self->output_label_use($failLabel);
    my $pass = $self->output_label_use($passLab <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4716	4806	
==>fail = $self->output_label_use($failLabel);
    my $pass = $self->output_label_use($passLab <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	7836	7991	
==>omp;
        $fix = 0 if /^###DYNAMIC###/;
        s/#.*$//;
        s/\s*$//;
        s/^\s*//;
        next unless $_;
        ($name, $number) = split(/\ <==
3	/Users/nnunley/parrot/config/init/optimize.pm	350	446	
==>=cut

package init::optimize;

use strict;
use vars qw($description @args);

use base qw(Parrot:: <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	7914	8008	
==>UTHORS

The original MD5 interface was written by Neil Winton
(C<N.Winton@axion.bt.co.uk>).

C< <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	24341	24486	
==>n another to be at the end
         #  when that loop back around to process the errata.
        next;
        
      } else {
        DEBUG and p <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	5110	5228	
==>o it can be GC'd
      }
       # to make sure that an undef is always sent to signal end-of-stream

    } elsif(exists <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	41571	41676	
==>um);
  my $start_line = $stack[0][1]{'start_line'};

  # A recursive algorithm implemented iteratively!  W <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756708	756792	
==>e 271 \"src/ops/set.ops\"\n  {{\@1}}->vtable->assign_string_native(interpreter, {{\@1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757498	757582	
==>e 271 \"src/ops/set.ops\"\n  {{\@1}}->vtable->assign_string_native(interpreter, {{\@1 <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8033	8141	
==>here was no match.
    push result, not_found

    goto loop_two 
loop_two_end:

    .return (result)
.end

. <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	1768	1875	
==>my $self = shift;
  my %regs = %{$self->{regs}};

  for my $type (reverse keys %regs) {
    for (my $count=3 <==
3	/Users/nnunley/parrot/config/gen/platform.pm	4142	4246	
==>e "Can't open begin.c: $!";
        print PLATFORM_C <<"END_HERE";
/*
** begin.c
*/
#line 1 "config/gen/p <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2343	2566	
==>ot::Test::slurp_file($out_fn),
                       $output,
                       $desc
                                                  );
        unless ( $pass ) {
            my $diag = '';
            my $test_prog <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	2354	2564	
==>ot::Test::slurp_file($out_fn),
                          $output,
                          $desc
                      );
           unless ( $pass ) {
               my $diag = '';
               my $test_prog <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20632	20755	
==>31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 61
		DEFAU <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	2798	2933	
==>el         { return shift->is('label');         }
sub is_last          { return shift->is('last');          }
sub is_literal       { ret <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945367	945477	
==>],
                  "BODY" => "#line 521 \"src/ops/string.ops\"\n  {{\@1}} = string_copy(interpreter, Parrot_c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946177	946287	
==>],
                  "BODY" => "#line 521 \"src/ops/string.ops\"\n  {{\@1}} = string_copy(interpreter, Parrot_c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037254	1037518	
==>AME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038034	1038298	
==>AME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20762	20856	
==>de->{children}}) {
    my $temp_1 = $self->_generate($node->{children}[$1]);
    $self->_add_in <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	1818	1960	
==>643812574028291115057151 0\n"
            ) {
            $has_gmp = 1;
            print " (yes) " if $verbose;
            $self->set_result( <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5423	5514	
==>em C<expr_address($address)>

Implemented in subclasses to return the C code for C<ADDRESS($ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1529	1666	
==>r,
				ERRST => \$errst,
                NBERR => \$nberr,
				TOKEN => \$token,
				VALUE => \$value,
				DOTPOS => \$dotpos,
				S <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1478	1609	
==>r,
				ERRST => \$errst,
                NBERR => \$nberr,
				TOKEN => \$token,
				VALUE => \$value,
				DOTPOS => \$dotpos,
				S <==
3	/Users/nnunley/parrot/lib/Test/More.pm	10318	10421	
==>hat, 'this && that' );
    ...etc...

Its advantage over ok() is when the test fails you'll know what $t <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2134	2239	
==>STDOUT => $out_f, STDERR => $out_f);
  
    unless ($pass) {
      my $file = Parrot::Test::slurp_file($ou <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1077	1182	
==>STDOUT => $out_f, STDERR => $out_f );
    unless ($pass) {
        my $file = Parrot::Test::slurp_file($ou <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1118	1223	
==>STDOUT => $out_f, STDERR => $out_f );
    unless ($pass) {
        my $file = Parrot::Test::slurp_file($ou <==
3	/Users/nnunley/parrot/lib/Test/More.pm	21130	21244	
==>en no_plan is in use.
        _carp "skip() needs to know \$how_many tests are in the block"
          unless $Test <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	10054	10163	
==>alue) = @_;
    $value = value($value);
    $DB::single = 1 unless length($value);
    return ".arg $value";
} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5828	5933	
==>IMITED TO LITERAL?
    #   const <type> <ident>, <ident>, ... = <value>; # TODO: SHOULD BE LIMITED TO LITE <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	1658	1761	
==>e -fno-common -no-cpp-precomp  -pipe -Wdeclaration-after-statement -I/usr/local/include -I/opt/local/inc <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1046	1149	
==>e -fno-common -no-cpp-precomp  -pipe -Wdeclaration-after-statement -I/usr/local/include -I/opt/local/inc <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1050	1153	
==>e -fno-common -no-cpp-precomp  -pipe -Wdeclaration-after-statement -I/usr/local/include -I/opt/local/inc <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1282	1405	
==>/gets the current position in Parrot code.

=cut

sub pc
{
    my $self = shift;

    if (@_)
    {
        $self->{PC} = sh <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	891	1014	
==>/gets the current position in Parrot code.

=cut

sub pc
{
    my $self = shift;

    if (@_)
    {
        $self->{PC} = sh <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3734	3840	
==>{ Name => 'block', Attributes => { kind => 'then' } });
  }

  if ($name) {
    $handler->start_element({ N <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3832	3933	
==>_ident->kind eq 'var') and ($dest_ident->scope eq 'global')) {
    my $pmc_type = $dest_ident->type->i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4740	4841	
==>_ident->kind eq 'var') and ($dest_ident->scope eq 'global')) {
    my $pmc_type = $dest_ident->type->i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2803	2904	
==>_ident->kind eq 'var') and ($dest_ident->scope eq 'global')) {
    my $pmc_type = $dest_ident->type->i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540358	540466	
==>ine 1022 \"src/ops/math.ops\"\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541610	541718	
==>ine 1022 \"src/ops/math.ops\"\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542862	542970	
==>ine 1022 \"src/ops/math.ops\"\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\ <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	4415	4513	
==>);
 $ctx->addfile(*FILE);

 $digest = $ctx->digest;
 $digest = $ctx->hexdigest;
 $digest = $ctx->b6 <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16118	16215	
==>abel = $self->_gensym();

  _num_arg ($node, 1, 'null?');

  my $temp = $self->_generate(_get_arg( <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	4920	5010	
==>}

=item C<contents_relative_to_source($source)>

Returns the contents of the item interpre <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	12834	12941	
==>EBUG and print "  Didn't look titular ($head1_text_content).\n",
            "\n  Dropping back to seeking-h <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	3837	3937	
==>{ Name => 'const', Attributes => { type => $self->type->name, name => $self->name } });
  $self->valu <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19557	19653	
==>em->isa("Parse::RecDescent::Action"))
	{
		if ($i==1 && $item->isterminal)
		{
			$code .= $parse <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	306702	306963	
==>ROT_JUMP_RELATIVE",
                  "NAME" => "unless_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307495	307756	
==>ROT_JUMP_RELATIVE",
                  "NAME" => "unless_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	612	723	
==>n $self;
}

sub generate_h
{
    my ($self, $conf) = @_;

    my $file = "include/parrot/core_pmcs.h";
    open( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196144	196413	
==>" => "function",
                  "CODE" => 232,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 335 \"src/ops/cmp.o <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10726	10838	
==>([^\#]+)\#/${$self}{$1}/g; # interpolate
      print $fh $scratch;
    }
  }
  return 1;
}

#~~~~~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806032	806122	
==>" => "#line 497 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed(inter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806938	807028	
==>" => "#line 497 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed(inter <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	1773	1896	
==>ents
		append;
		fetch;
		while($cur ne -1 and $cur ne "\n") {
			append;	
			fetch;
		}
		emit("COMM");
		fetch;
		goto MAI <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	531	631	
==>2 Options

=over 4

=item C<buildprefix>

The build prefix. Defaults to ''.

=item C<prefix>

The ins <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	760	860	
==>2 Options

=over 4

=item C<buildprefix>

The build prefix. Defaults to ''.

=item C<prefix>

The ins <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	33173	33314	
==>vv, $ww);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ($w->[2] eq 'P') {
	   $ww = temp('I');
	   p <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	33922	34063	
==>vv, $ww);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ($w->[2] eq 'P') {
	   $ww = temp('I');
	   p <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	34846	34987	
==>vv, $ww);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ($w->[2] eq 'P') {
	   $ww = temp('I');
	   p <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30483	30621	
==>{#State 98
		ACTIONS => {
			"," => 151,
			")" => 152
		}
	},
	{#State 99
		DEFAULT => -92
	},
	{#State 100
		ACTIONS => {
			" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	5710	5823	
==>require_comma         { return shift->require('comma');         }
sub require_ident         { return shift->requir <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11560	11658	
==>y $result="";
	foreach my $token (@stream) {
		my($sym,$type,$op)=@$token;
		#print "Dealing with $ <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	621	739	
==>$verbose = $conf->options->get('verbose');

    my $cc        = $conf->data->get('cc');
    my $libs      = $conf->data <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	562	680	
==>$verbose = $conf->options->get('verbose');

    my $cc        = $conf->data->get('cc');
    my $libs      = $conf->data <==
3	/Users/nnunley/parrot/config/auto/readline.pm	574	692	
==>$verbose = $conf->options->get('verbose');

    my $cc        = $conf->data->get('cc');
    my $libs      = $conf->data <==
3	/Users/nnunley/parrot/lib/Test/More.pm	21016	21131	
==>skip {
    my($why, $how_many) = @_;

    unless( defined $how_many ) {
        # $how_many can only be avoided when <==
3	/Users/nnunley/parrot/lib/Test/More.pm	23441	23556	
==>skip {
    my($why, $how_many) = @_;

    unless( defined $how_many ) {
        # $how_many can only be avoided when <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	7437	7532	
==>nt(s), prepend self as parrent
    $const->{parents} = [ $self->{class}, @{ $self->{parents} } ] <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	4857	4976	
==>nscoding to $line
        #  by time we call $code_handler!

        if( $line =~ m/^#\s*line\s+(\d+)\s*(?:\s"([^"]+)")? <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	13101	13219	
==>$globals{$c};
	print <<"EOC";
	# $c = global "$c" $cmt
EOC
    }
    else {
	my $type = 'pmc';
	$p = $c;
	if ($type_map <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	2112	2214	
==>num} = $lex_num;
    my $scope = shift @{ $parser->YYData->{scopef} };
    $parser->YYData->{scope} = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412794	412994	
==>,
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpret <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413921	414121	
==>,
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpret <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2517	2611	
==>Pod
document.  This class is of interest to people writing Pod formatters
based on Pod::Simple. <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	11320	11433	
==>mc op1

    .local pmc result,iter
    result = new 'APLVector'
    iter = new .Iterator, op1

loop:
    unless it <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2368	2480	
==>ub YYData {
	my($self)=shift;

		exists($$self{USER})
	or	$$self{USER}={};

	$$self{USER};
	
}

sub YYE <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2276	2378	
==>ub YYData {
	my($self)=shift;

		exists($$self{USER})
	or	$$self{USER}={};

	$$self{USER};
	
}

sub YYE <==
3	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	889	1038	
==>UTPUT:/;
             $input .= $_;
         }
         chomp($input);
         die "EOF during INPUT section" if ! defined($output);

         # Gath <==
3	/Users/nnunley/parrot/languages/regex/test.pl	2780	2904	
==>UTPUT:/;
        $input .= $_;
    }
    chomp($input);
    die "EOF during INPUT section" if ! defined($output);

    # Gath <==
3	/Users/nnunley/parrot/languages/converter.pl	1868	1967	
==>[^']*/ "'" mod(?)
#		{[@item]}
		{ qq('$item[2]') . ::modifier($item[4]) }
		| '"' /[^"]*/ '"' mod(? <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863483	863656	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bytelength",
                  "FLAGS" => ":base_mem",
                  "ARGDIR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864374	864547	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bytelength",
                  "FLAGS" => ":base_mem",
                  "ARGDIR <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10416	10568	
==>eturn [ $defn, [], $assign ];
            }
        }
        else {
            my $defn = $parser->YYData->{symbtab}->LookupU($idf);
            i <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	10122	10254	
==>>full_name;
        my $func_name  = $op->func_name($trans);
        my $body       = $op->body;
        my $jump       = $op->jump | <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146365	146478	
==>ch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_EQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167591	167704	
==>ch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_EQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040872	1041149	
==>",
                  "CODE" => 1163,
                  "ARGS" => [
                              "s",
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line 120 \"src/ops/var.ops\"\n    Parrot_stor <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9996	10102	
==>ror})
					or	$$states[$$stack[-1][0]]{ACTIONS}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9549	9651	
==>ror})
					or	$$states[$$stack[-1][0]]{ACTIONS}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28146	28256	
==>RecDescent::unexpected
				   = ($lastsep||"").$text;
			}'.($::RD_NO_TRACE?'':'
			Parse::RecDescent::_trace(q <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30220	30330	
==>RecDescent::unexpected
				   = ($lastsep||"").$text;
			}'.($::RD_NO_TRACE?'':'
			Parse::RecDescent::_trace(q <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32421	32531	
==>RecDescent::unexpected
				   = ($lastsep||"").$text;
			}'.($::RD_NO_TRACE?'':'
			Parse::RecDescent::_trace(q <==
3	/Users/nnunley/parrot/config/inter/encoding.pm	1618	1730	
==>coding_o =~ s/^| / src${slash}encodings${slash}/g;

    $conf->data->set(
        encoding            => $encodin <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	6950	7057	
==>($n, $c, $cmt) = @_;
    print <<EOC;
	# $c($n) $cmt
EOC
}

my (@stack, $temp, $make_f, %pir_functions);

su <==
3	/Users/nnunley/parrot/lib/Test/More.pm	21973	22070	
==>k, the tests inside are expected to fail.  Test::More
will run the tests normally, but print out s <==
3	/Users/nnunley/parrot/lib/Test/More.pm	19784	19889	
==>$why, $how_many if $condition;

      ...normal testing code goes here...
  }

This declares a block of te <==
3	/Users/nnunley/parrot/config/gen/platform.pm	5700	5803	
==>}
    }

    # interface is the same for all platforms
    copy_if_diff("config/gen/platform/platform_in <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31529	31625	
==>he default implementation to direct all unknown methods to
the thing referred to.

=cut

sub body <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13553	13653	
==>."]");
		my $what = $items[0]->describe =~ /<rulevar/
				? "a <rulevar> (which acts like an uncondit <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	44540	44640	
==>ion or the target list of a
translation),

=item [6]

the right delimiter of the first block of the o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314742	314840	
==>\n  if({{\@1}} >= -128 && {{\@1}} <= 127) {\n    {{\@1}} = (INTVAL)((signed char)({{\@1}}));\n  }\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615030	615293	
==>\n            \"Class not parent of object\");\n    }\n    {{\@1}} = offset;\n    {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616181	616444	
==>\n            \"Class not parent of object\");\n    }\n    {{\@1}} = offset;\n    {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/config/auto/snprintf.pm	902	1009	
==>rintf/) {
        $conf->data->set(HAS_OLD_SNPRINTF => 1);
    }
    print " ($res) " if $conf->options->get <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2525	2636	
==>b  -licuuc -licudata -lpthread -lm';
        $extraLibs =~ s/blib/..\\blib/g;
        $extraLibs =~ s/\Q$(A)\E/. <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2834	2945	
==>b  -licuuc -licudata -lpthread -lm';
        $extraLibs =~ s/blib/..\\blib/g;
        $extraLibs =~ s/\Q$(A)\E/. <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2629	2740	
==>b  -licuuc -licudata -lpthread -lm';
        $extraLibs =~ s/blib/..\\blib/g;
        $extraLibs =~ s/\Q$(A)\E/. <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	12041	12161	
==>el_use($fail);
    my @ops;
    if (defined $name) {
        push @ops, "<rx_match>['$name'] = $uid";
    }
    return (@ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9137	9287	
==>elf->{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        return ("\$dbg_tmp = \@<rx_stack>;",
                "$reg = pop \@<rx_stack> <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3104	3201	
==>pmc -> X.dump and X.c and also create any lib-GROUP.c files

    generate_dump($_) foreach (@pmcs) <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3208	3305	
==>pmc -> X.dump and X.c and also create any lib-GROUP.c files

    generate_dump($_) foreach (@pmcs) <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	33086	33209	
==>s as " as ho-hum L<URL> link.\n},
            $treelet->[$i][2]
          ;
          $treelet->[$i][1]{'to'} = Pod::Simple: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605920	606143	
==>_attribute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606711	606934	
==>_attribute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	18902	19019	
==>lobals, IGLOBALS_NCI_FUNCS,
                HashPointer);

$put_pointer

    }

    b = VTABLE_get_pmc_keyed_str(inter <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	22580	22680	
==>xtractor')
					{ @bits = $field = $func->extract($$textref) }
				elsif( $$textref =~ m/\G$func/gc ) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557284	557558	
==>AME" => "tailcallmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558667	558941	
==>AME" => "tailcallmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560051	560325	
==>AME" => "tailcallmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
3	/Users/nnunley/parrot/Configure.pl	9522	9669	
==>::gmp
    auto::readline
    auto::gdbm
    auto::snprintf
    auto::perldoc
    auto::python
    auto::bc
    auto::m4
    gen::icu
    gen::revisi <==
3	/Users/nnunley/parrot/examples/benchmarks/stress.pl	758	841	
==>marks/stress2.pasm>, 
F<examples/benchmarks/stress2.pl>, 
F<examples/benchmarks/stre <==
3	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	819	902	
==>marks/stress2.pasm>, 
F<examples/benchmarks/stress2.pl>, 
F<examples/benchmarks/stre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961112	961420	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962074	962382	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963036	963344	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236522	236673	
==>"
                            ],
                  "BODY" => "#line 606 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}});\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237404	237555	
==>"
                            ],
                  "BODY" => "#line 606 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}});\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238286	238437	
==>"
                            ],
                  "BODY" => "#line 606 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}});\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741024	741262	
==>E" => "inline",
                  "CODE" => 833,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 164 \"src/ops/set.ops\"\n <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5216	5356	
==>ult} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $first = 1;
            foreach ( @{ $op->{result} } <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6248	6388	
==>ult} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $first = 1;
            foreach ( @{ $op->{result} } <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	504	606	
==>em C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	my $dist = Parrot::Distributio <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	12338	12435	
==>r
print t.narf

' Variable-depth structure references
type first
	foo as integer
	bar as string
en <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	617647	617741	
==>pes)\n\t    goto runit_v_pp;\n\tif (++lru->u.type == lr_types)\n\t    goto runit_v_pp;\n\tmic-> <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	2428	2550	
==>ile = shift;

    my %ops;
    my $template;

    open IN, '<', $file or die "Can't open file $file: $!";
    while ( my $l <==
3	/Users/nnunley/parrot/languages/regex/test.pl	3265	3369	
==>ctx, DEBUG => $DEBUG);

    my $driver = Regex::Driver->new('pir', emit_main => 1);

    print PIR <<"END <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	31355	31451	
==>d, the
pattern C<'\s*'> - optional whitespace - is used. If the delimiter set
is also not specifi <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	16999	17160	
==>};

    struct Cat =>
    [
        name     => '$',
        kittens  => '@',
        markings => '%',
        breed    => 'Breed',
    ];


    my $cat = Cat->ne <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7661	7761	
==>URIC}
dec ${ITEMP0}
dec ${ITEMP2}

# Generate name of register to hold value we pop off the stack.
${ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6619	6719	
==>URIC}
dec ${ITEMP0}
dec ${ITEMP2}

# Generate name of register to hold value we pop off the stack.
${ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48606	48723	
==>}\n  else         { Interp_flags_CLEAR(interpreter, PARROT_BOUNDS_FLAG); }\n  {{=0,+=2}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49396	49513	
==>}\n  else         { Interp_flags_CLEAR(interpreter, PARROT_BOUNDS_FLAG); }\n  {{=0,+=2}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	7149	7232	
==>$self->{"opcount"};
	return "_operator_${opcount}_of_production_${prodcount}_of_rule <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8716	8902	
==>nts!" if @_;

  my $found = $self->find_symbol($name);

  return $found ? $found->kind : undef;
}


###############################################################################

=head2 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10053	10239	
==>nts!" if @_;

  my $found = $self->find_symbol($name);

  return $found ? $found->kind : undef;
}


###############################################################################

=head2 <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	33199	33290	
==>on to this problem.


=head2 C<extract_bracketed>

Like C<"extract_delimited">, the C<extrac <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	13305	13477	
==>al =~ /\#\#\#/) {
                print OUT qq($atag<font color="red">$_</font>)
            } else {
                print OUT $_;
            }
        }
    }
}


sub pag <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8280	8398	
==>= new 'APLVector'
 
    .local int pos
    pos = 0
    .local float value_at
    .local int not_there
    not_there = o <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23099	23200	
==>mp_0,0,"DONE_$label"]);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16965	17340	
==>=> "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 23,
                  "ARGS" => [
                              "n",
                              "ic"
                            ],
                  "BODY" = <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25607	25705	
==>mp,$return]);
    $self->_restore($temp);
  } else {
    $return = $self->_generate($node->{childre <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27505	27603	
==>mp,$return]);
    $self->_restore($temp);
  } else {
    $return = $self->_generate($node->{childre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722200	722306	
==>\"\n  STRING * const s = {{\@2}};\n  PMC * const io = {{\@1}}; /* TODO Can this be localized? */\n  if (s & <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723229	723335	
==>\"\n  STRING * const s = {{\@2}};\n  PMC * const io = {{\@1}}; /* TODO Can this be localized? */\n  if (s & <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2776	2935	
==>est \s+ (\S+)                  # test ident
             \s+ \{ ([^}]+) \}          # test description
             \s+ (?:\S+ \s+)? \{ \n     # optional test h <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4173	4332	
==>est \s+ (\S+)                  # test ident
             \s+ \{ ([^}]+) \}          # test description
             \s+ (?:\S+ \s+)? \{ \n     # optional test h <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	270	356	
==>pTrans::CPrederef> and
C<Parrot::OpTrans::CGoto> to provide predereferenced register ad <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2081	2181	
==>e, we want to complain
  # about the redefinition. Otherwise, we assume the programmer wanted to shad <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1601	1701	
==>e, we want to complain
  # about the redefinition. Otherwise, we assume the programmer wanted to shad <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1828	1928	
==>e, we want to complain
  # about the redefinition. Otherwise, we assume the programmer wanted to shad <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	937	1073	
==>er()!
  return $self;
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

sub parse_string_document {
  my $t <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	15930	16054	
==>legate' :
                'default';
        }
    }
}


=head2 add_defaulted($class_structure, $vtable);

Add methods to the <==
3	/Users/nnunley/parrot/config/init/defaults.pm	1614	1733	
==>rwise currently
        # unset.  Ultimately, it should be set to whatever ICU figures
        # out, or parrot should l <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	15533	15674	
==>1-1' => 70
		}
	},
	{#State 35
		ACTIONS => {
			":" => 51,
			"[" => 47,
			"(" => 48,
			"." => 49,
			'STRING' => 44,
			"{" => 3 <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45200	45296	
==>';
my $VARIABLEMK		= '\G\s*<perl_variable>';
my $NOCHECKMK		= '\G\s*<nocheck>';
my $AUTOTREEMK		= <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	4612	4716	
==>$nm_ro  = 1;
} else {
    # Hope for BSD-style nm output.
}

Getopt::Long::Configure ("bundling");

unles <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2390	2489	
==>y=$array)
	P0= P10[0]
	P1= P0["$stype"]
	P0= P1["$var"]	# Pull the original
	P2= P10[I25]
	P3= P2["$ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2617	2716	
==>y=$array)
	P0= P10[0]
	P1= P0["$stype"]
	P0= P1["$var"]	# Pull the original
	P2= P10[I25]
	P3= P2["$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054158	1054340	
==>"p",
                              "s"
                            ],
                  "BODY" => "#line 182 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (PMC_IS_NULL({{\@2}}))\n <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	2105	2205	
==>f ($debug) {
		push @{$code{$seg}->{code}},"\t_DEBUG_INIT()\n";
		debug();
	}

	
PARSE:
	1;
PARSE_NOF <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357611	357859	
==>interr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 418,
                  "ARG <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	61191	61312	
==>YData->{self}        = undef;
    $parser->YYData->{idx_tmp}     = 0;
    $parser->YYData->{idx_lbl}     = 0;
    $pars <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	2400	2507	
==>/pmc2c.pl'),
            $self->new_item('', 'tools/build/revision_c.pl'),
            $self->new_item('', ' <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	538	807	
==>l = qw(
    NEWS                                            [devel]doc
    PBC_COMPAT                                      [devel]doc
    PLATFORMS                                       [devel]doc
    README                                          [devel]doc
    README <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2311	2495	
==>ot_shared     => 'libparrot$(SHARE_EXT)',
            ar_flags             => '',
            ar_out               => '-out:',
            slash                => '\\',
            blib <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17904	18011	
==>ect case t
case 10
	print "Wrong"
case 50
	select case g
	case 6
		print "Wrong again!"
	case 0
		print "Rig <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	4321	4442	
==>ndef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^(next|last|redo|goto|return)(?!\w)(.*)$}) {
      push <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6065	6177	
==>c/ops/core.ops\"\n    Parrot_load_bytecode(interpreter, {{\@1}});\n    {{+=2}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6731	6843	
==>c/ops/core.ops\"\n    Parrot_load_bytecode(interpreter, {{\@1}});\n    {{+=2}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	7205	7334	
==>dices($code)) {
            $AMDEST{$_->{label}} = 1;
        }
    }
    foreach (@output4) {
        delete $_->{label} if ($_-> <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	22261	22385	
==>xtref) < length($$textref))
		{
			my $field;
			my @bits;
			foreach my $i ( 0..$#func )
			{
				my $pref;
				$func = $fun <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	615	706	
==>return $self->new(File::Spec->catfile(File::Spec->tmpdir, @_));
}

=item C<new($path)>

Retu <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9685	9785	
==>RG0})

# If it's a call to instantiate, need to knock off first arg.
if "${CURIC}" != "73" goto pre_c <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7199	7299	
==>RG0})

# If it's a call to instantiate, need to knock off first arg.
if "${CURIC}" != "73" goto pre_c <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	1687	1776	
==>tem C<Parrot::OpsFile>

=item C<Parrot::Op>

=item C<Parrot::OpTrans>

=item C<Parrot::OpT <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	56317	56479	
==>xtract_multiple($text,
                                   [ sub { extract_variable($_[0]) } ],
                                   undef, 1);

This example separate <==
3	/Users/nnunley/parrot/languages/lua/luac.pl	871	981	
==>nb_info} )
{
    my $nb = $parser->YYData->{nb_info};
    print "$nb info(s).\n";
}

unless ( exists $par <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	6787	6887	
==>tch. I suppose it should restore $n to its previous
# value, but I'm not going to bother with that fo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553195	553340	
==>ARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethod",
                  "FLAGS" => ":object_base",
                  "A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554591	554736	
==>ARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethod",
                  "FLAGS" => ":object_base",
                  "A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555988	556133	
==>ARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethod",
                  "FLAGS" => ":object_base",
                  "A <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7621	7733	
==>elf->pushop . " <rx_stack>, $reg";
}

sub output_save {
    my ($self, $reg) = @_;
    $reg = value($reg);
    re <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1765	1868	
==>amespace}_ELSE");
      $compiler->indent;
      $self->SUPER::compile($compiler);
      $compiler->outd <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	755	848	
==>i)
#define SREG(i) REG_STR(i)
#define CONST(i) interpreter->code->const_table->constants[i]
EN <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6426	6611	
==>eed token.\n";
        }

            defined($act)
        and do {

                $act > 0
            and do {        #shift

#DBG>				$debug & 0x04
#DBG>			and	print STDE <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6129	6304	
==>eed token.\n";
        }

            defined($act)
        and do {

                $act > 0
            and do {        #shift

#DBG>				$debug & 0x04
#DBG>			and	print STDE <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	293	401	
==>yacc;

use strict;

use vars qw( $description @args $prompt $util );

use base qw(Parrot::Configure::Step::Ba <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3073	3193	
==>f{STACK}[$index][1];

	undef;	#Invalid index
}

sub YYCurtok {
	my($self)=shift;

        @_
    and ${$$self{TO <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2925	3036	
==>f{STACK}[$index][1];

	undef;	#Invalid index
}

sub YYCurtok {
	my($self)=shift;

        @_
    and ${$$self{TO <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	1548	1650	
==>ults{ptrsize} != $results{intvalsize}) {
        print <<"END";

Hmm, I see your chosen INTVAL isn't th <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664297	664495	
==>RGS" => [
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 354 \"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delete_ke <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7213	7314	
==>STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
PIR
	}

	return $pir;
}

sub post_load($) {
	my $sel <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5035	5136	
==>STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
PIR
	}

	return $pir;
}

sub post_load($) {
	my $sel <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	32909	33011	
==>do,
  'delay'      => \&_op_delay,
  'quasiquote' => \&_op_quasiquote,

#----------------------
#
# Sec <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367299	367592	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368090	368383	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10338	10446	
==>ath
{
    my $self = shift;
    my $path = $self->path_for_directory_with_relative_path(shift);
    
    retu <==
3	/Users/nnunley/parrot/config/inter/libparrot.pm	481	574	
==>:Configure::Step::Base);

use Parrot::Configure::Step ':inter';

$description = 'Determine <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135503	135770	
==>string_bitwise_xor(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136397	136664	
==>string_bitwise_xor(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137291	137558	
==>string_bitwise_xor(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1021	1106	
==>interpreter->code->prederef.code))
#define CUR_OPCODE ((opcode_t*)cur_opcode + CONTEXT <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	955	1040	
==>interpreter->code->prederef.code))
#define CUR_OPCODE ((opcode_t*)cur_opcode + CONTEXT <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1151	1236	
==>interpreter->code->prederef.code))
#define CUR_OPCODE ((opcode_t*)cur_opcode + CONTEXT <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5220	5324	
==>$op    = $self->op;
  my $right = $self->right;

  $handler->start_element({ Name => 'assign' });
  $dest <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3283	3387	
==>$op    = $self->op;
  my $right = $self->right;

  $handler->start_element({ Name => 'assign' });
  $dest <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20569	20664	
==>[ $R_back ]),
      $back => $self->op_restore_rxlocals($op),
$local_back => aop('ge', [ $matchc <==
3	/Users/nnunley/parrot/Configure.pl	7056	7152	
==>c|libc|malloc|malloc-trace) default is gc

ICU Options:

   For using a system ICU, these options <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567491	567578	
==>e 213 \"src/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->does(interpreter, {{\@2}}, {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568386	568473	
==>e 213 \"src/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->does(interpreter, {{\@2}}, {{ <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	3000	3134	
==>g .= "'$test_prog' failed with exit code $exit_code."
                if $exit_code;
            $self->{builder}->diag($diag) if $di <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	2612	2733	
==>g .= "'$test_prog' failed with exit code $exit_code." if $exit_code;
               $self->{builder}->diag( $diag ) if $di <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2611	2729	
==>g .= "'$test_prog' failed with exit code $exit_code." if $exit_code;
            $self->{builder}->diag( $diag ) if $di <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	6906	7012	
==>that file cannot be found.

=cut

sub find_file {
    my ($include, $file, $die_unless_found) = @_;

    if <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210212	210302	
==>line 408 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211192	211282	
==>line 408 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	394746	395016	
==>,
                  "CODE" => 458,
                  "ARGS" => [
                              "i",
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 495 \"src/ops/io.ops\"\n  if ({{\@3} <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	4711	4825	
==>terator, arg
    shape = arg.'get_shape'()
    $I0 = shape
    if $I0 == 2 goto print_2D
    # XXX assume 1d otherw <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18992	19096	
==>(in half-points, like 15 for 7.5-point)
that the header on each page will appear in.  The header
is usual <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352295	352401	
==>ps/io.ops\"\n  PIO_printf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352953	353059	
==>ps/io.ops\"\n  PIO_printf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	10058	10157	
==>e}{$filename_8dot3} ($filename_8dot3)");
        }
        $files_in_dir_8dot3{$dirname}{$filename_8 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319455	319666	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320224	320435	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320994	321205	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o" <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	52056	52212	
==>{ $_[1] }, $_[2] ];
        }
	],
	[#Rule 49
		 'key', 3,
sub
#line 295 "Lua\lua51.yp"
{
            $_[2];
        }
	],
	[#Rule 50
		 'key', 2, <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2265	2386	
==>$parrotdir = dirname( $self->{parrot} );
        Parrot::Test::write_code_to_file( $code, $lang_fn );

        # STDERR <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	2621	2725	
==>*)*)$del";
		}
		else
		{
			push @pat, "$del(?:[^$esc$del]*(?:$esc.[^$esc$del]*)*)$del";
		}
	}
	my $pat <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5085	5228	
==>y $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  ";
        if ( exists $op->{result} and scal <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6117	6260	
==>y $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  ";
        if ( exists $op->{result} and scal <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	1499	1606	
==>ype'" if $type ne 'int';

    # Bad implementation -- does not handle recursion. Actual
    # instances shou <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294119	294349	
==>> [
                              "i",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 945 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interp <==
3	/Users/nnunley/parrot/tools/dev/cc_flags.pl	870	994	
==>{
    chomp;
    s/#.*//;
    next unless /\S/;

    my $regex;
    if (s/^\{(.*?)\}\s*//) {
	next unless $1;
	$regex = qr/$1 <==
3	/Users/nnunley/parrot/languages/scheme/Scheme.pm	1267	1358	
==>er::tokenize($self->{file});
  $self->{tree}   = Scheme::Parser::parse($self->{tokens});
  $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	5480	5585	
==>^( \+\+ | -- )(.*)$}x) {
      push @tokens, Jako::Token->new(
        $file, $line, 'exfix-arith', undef, <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7201	7301	
==>pos');
    return $self->output_pushint($reg);
}

sub output_pushint {
    my ($self, $reg, $db_desc) <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6843	6943	
==>pos');
    return $self->output_pushint($reg);
}

sub output_pushint {
    my ($self, $reg, $db_desc) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	36996	37172	
==>PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "throw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62148	62256	
==>{
				pos($grammar)--;

				if ($grammar =~ m/$OPTIONAL/gco)
				{
					_parse("an zero-or-one subrule match" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438557	438663	
==>dispatch_p_ppp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	425	561	
==>ck);


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $kind        = $self->kind;
  my $peer        = $s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	405	541	
==>ck);


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $kind        = $self->kind;
  my $peer        = $s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629613	629715	
==>n(interpreter, NULL, NO_CLASS,\n            \"Class '%Ss' not found\", class);\n  {{\@1}} = pmc_new(int <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	18556	18678	
==>, $n, $tos->[2]];

    }
}

sub UNARY_POSITIVE
{
    my (undef, $c, $cmt) = @_;
    my $t = pop @stack;
    my $p = $t->[1] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864075	864181	
==>n  if (!s)\n    n = 0;\n  else {\n    n = s->bufused;\n    assert(n == ENCODING_BYTES(interpreter, {{\@2}}) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864967	865073	
==>n  if (!s)\n    n = 0;\n  else {\n    n = s->bufused;\n    assert(n == ENCODING_BYTES(interpreter, {{\@2}}) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240147	240250	
==>ps\"\n  INTVAL l = VTABLE_get_integer(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241095	241198	
==>ps\"\n  INTVAL l = VTABLE_get_integer(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	686	771	
==>ntinue;
use Jako::Construct::Block::Loop::Until;
use Jako::Construct::Block::Loop::Whi <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	15317	15448	
==>7,
		GOTOS => {
			'tableconstructor' => 46,
			'args' => 43,
			'key' => 45
		}
	},
	{#State 32
		DEFAULT => -83
	},
	{#S <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1431	1531	
==>'re unlikely to ever need to construct an object of this class for
yourself, but if you want to, call <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2583	2683	
==>'re unlikely to ever need to construct an object of this class for
yourself, but if you want to, call <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1720	1820	
==>'re unlikely to ever need to construct an object of this class for
yourself, but if you want to, call <==
3	/Users/nnunley/parrot/config/inter/progs.pm	3323	3428	
==>s);

    $libs = $conf->data->get('libs');
    $libs = join ' ', grep { $^O =~ /VMS|MSWin/ || !/^-l(c|gdbm <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	18663	18805	
==>ip {
    my($self, $why) = @_;
    $why ||= '';

    unless( $self->{Have_Plan} ) {
        require Carp;
        Carp::croak("You tried to run <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1271	1373	
==>ng.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
dec ${ITEMP0}
${PTE <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2981	3083	
==>ng.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
dec ${ITEMP0}
${PTE <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	10635	10746	
==>ssage) = @_;

    print "$file:$line (WARNING) " . Text::Wrap::wrap("", "        ", $message) . "\n";
}


sub er <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11247	11339	
==>T0} = concat ${STEMP0}
inc stack_depth
${STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
pr <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8433	8525	
==>T0} = concat ${STEMP0}
inc stack_depth
${STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
pr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211966	212217	
==>ODE" => 249,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 416 \"src/ops/cmp.ops\"\n  if (mmd_dis <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1593	1723	
==>output =~ m/Version (\d+)/ && $1 >= 13;

        $conf->data->set(
            share_ext  => '.dll',
            load_ext   => '.dl <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	1000	1115	
==>n =~ m/^(0[0-7]*)$/s ) {
    $in = oct $in;
  } elsif($in =~ m/^0x([0-9a-fA-F]+)$/s ) {
    $in = hex $1;
  } # else <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2359	2474	
==>n =~ m/^(0[0-7]*)$/s ) {
    $in = oct $in;
  } elsif($in =~ m/^0x([0-9a-fA-F]+)$/s ) {
    $in = hex $1;
  } # else <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	10309	10410	
==>h " . $files_in_dir_nocase{$dirname}{lc($filename)});
        }
        $files_in_dir_nocase{$dirname} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	502	609	
==>me, $attr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBUG and print "++ $_[1]\n";
  
  pr <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	501	608	
==>me, $attr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBUG and print "++ $_[1]\n";
  
  pr <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	696	800	
==>me, $attr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBUG and print "++ $_[1]\n";
  pr <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28293	28418	
==>ser,
        'arg1' => $l_break,
    );
    return \@opcodes;
}

sub BuildForNum {
    my ( $parser, $var, $e_start, $e <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	858	949	
==>::isa($left, 'Jako::Construct::Expression::Value');
  confess "Op is not scalar!" if ref $op <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	870	961	
==>::isa($left, 'Jako::Construct::Expression::Value');
  confess "Op is not scalar!" if ref $op <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	1588	1705	
==>ASCII numeric value, which we'll
        #  now go get the local equivalent for.
    }

    # It's numeric, whether by <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	10424	10533	
==>il->new($block, $prefix, $left, $op, $right);
      }
      else {
        $self->INTERNAL_ERROR("Unexpected l <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	2169	2256	
==>mper->Dump([$m],["*MATCH_OBJECT"]);
my $mini = minimatch($m);
print Data::Dumper->Dump([ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32285	32392	
==>{class}, $method, 0);
    # I think that these will be out by one - NWC
    my $l = $self->line_directive($l <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40907	41014	
==>{class}, $method, 0);
    # I think that these will be out by one - NWC
    my $l = $self->line_directive($l <==
3	/Users/nnunley/parrot/tools/build/revision_c.pl	411	507	
==>pm>,
F<include/parrot/config.h>

=cut

use strict;
use Parrot::Revision;

print <<"EOF";
/* ex: s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505666	505829	
==>"
                            ],
                  "BODY" => "#line 631 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	777	870	
==>$op, $right) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct:: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	805	898	
==>$op, $right) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct:: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	489	582	
==>$op, $right) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct:: <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35537	35645	
==>lt.c");
    return <<EOC;
$l
${decl}\{
    cant_do_method(interpreter, pmc, "$meth");
    ${ret}
}

EOC
}

=b <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	4498	4602	
==>odo, "No exception thrown", :$depends);
    }
}

## lives ok

sub lives_ok (Code &code, Str $desc?, :$tod <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3883	3980	
==>ME ops!";
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	32346	32460	
==>ll' => 31,
			'explist1' => 158,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	617089	617193	
==>rc/ops/pic.ops\"\n    Parrot_MIC *mic;\n    Parrot_PIC_lru *lru;\n    PMC *left, *right;\n    INTVAL lr_t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	618781	618885	
==>rc/ops/pic.ops\"\n    Parrot_MIC *mic;\n    Parrot_PIC_lru *lru;\n    PMC *left, *right;\n    INTVAL lr_t <==
3	/Users/nnunley/parrot/config/gen/PodText.pm	1817	1946	
==>ng of the file so we don't end up just
        # appending to the end of the file.
        seek $fh, 0, 0;
        print $fh $text <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	14201	14317	
==>trncmp     string.h
strncpy     string.h
strpbrk     string.h
strrchr     string.h
strspn      string.h
strstr      s <==
3	/Users/nnunley/parrot/tools/util/pirtidy.pl	934	1028	
==>=head1 DESCRIPTION

pirtidy reads a pir file and writes an indented, reformatted script.

pirti <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	8213	8345	
==>-indentation-style: bsd
        * c-basic-offset: 4
        * indent-tabs-mode: nil
        * End:
        *
        * vim: expandtab <==
3	/Users/nnunley/parrot/tools/build/vtable_extend.pl	3102	3199	
==>-indentation-style: bsd
 * c-basic-offset: 4
 * indent-tabs-mode: nil
 * End:
 *
 * vim: expandtab <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	5290	5388	
==>>

  $Test->plan('no_plan');
  $Test->plan( skip_all => $reason );
  $Test->plan( tests => $num_tes <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	4431	4525	
==>->value } });
  $_->sax($handler) foreach $self->args;
  $handler->end_element({ Name => 'call' <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5093	5207	
==>$LOAD_EXT failed ($?)\n";

        # Execute permissions on libraries is especially important on
        # some pla <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5304	5418	
==>$LOAD_EXT failed ($?)\n";

        # Execute permissions on libraries is especially important on
        # some pla <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4631	4757	
==>f->{args} } == 1 && 2 == keys %$self) {
        return $self->{args}->[0];
    } else {
        return $self;
    }
}

sub minl <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5768	5894	
==>f->{args} } == 1 && 2 == keys %$self) {
        return $self->{args}->[0];
    } else {
        return $self;
    }
}

sub minl <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13414	13518	
==>ger
	bar as string
end type
type second
	other as first
	narf as integer
	pnext as first
end type
dim x a <==
3	/Users/nnunley/parrot/tools/dev/mk_inno.pl	370	467	
==>head1 SYNOPSIS

    % perl tools/dev/mk_inno.pl [options]

=head1 DESCRIPTION

=head2 Options

=ov <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	3629	3753	
==>bol} = find_lex \"$op->{arg1}->{symbol}\"\n";
    }

    sub visitStoreLexOp {
        my $self = shift;
        my ($op <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6250	6368	
==>, \%pmc_group, \%pmc_libs);
}

sub modtime {
    my $ago = (-M shift);

    if (defined $ago) {
        return $NOW - $ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6461	6579	
==>, \%pmc_group, \%pmc_libs);
}

sub modtime {
    my $ago = (-M shift);

    if (defined $ago) {
        return $NOW - $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4483	4577	
==>k!"  unless defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "Ex <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4990	5084	
==>k!"  unless defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "Ex <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10393	10486	
==>k!" unless defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "Ex <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	586	681	
==>t(qw( text plaintext plain ));
  $new->nix_X_codes(1);
  $new->nbsp_for_S(1);
  $new->{'Thispara <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1608	1739	
==>--$_[0]{'indent'}, "</", $_[1], ">\n";
  return;
}

# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

s <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3849	3952	
==>f ($syms[CURR] eq "#") {
		feedme();
		$fd=$syms[CURR];
		feedme();
		die "Expecting ," unless $syms[CUR <==
3	/Users/nnunley/parrot/tools/build/vtable_extend.pl	1113	1212	
==>ls here. Don't go
peeking inside -- you've as much access as bytecode does, but no more,
so we can p <==
3	/Users/nnunley/parrot/config/auto/gc.pm	1911	2025	
==>=> "\$(SRC_DIR)\/$gc\$(O) \$(SRC_DIR)/res_lea\$(O)",
            gc_flag   => '-DGC_IS_MALLOC',
        );
    } el <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	3472	3583	
==>ed
    my $now = time;
    utime $now, $now, $to;

    return 1;
}

=item C<move_if_diff($from, $to, $ignorePatt <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	44957	45055	
==>ock of the operation (if any),

=item [10]

the trailing modifiers on the operation (if any).

=bac <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054549	1054838	
==>r, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059244	1059533	
==>r, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597125	597412	
==>r, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => " <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6904	7013	
==>me;  # Get the =
	#	#print "Going to expression with $syms[CURR]\n";
	#	print CODE EXPRESSION;		# Evaluate the <==
3	/Users/nnunley/parrot/config/init/defaults.pm	167	259	
==>- Configuration Defaults

=head1 DESCRIPTION

Sets up the configuration system's default valu <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	733	825	
==>last package name component of a
subclass of C<Parrot::OpTrans>. These subclasses all have fu <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	10997	11116	
==>t_$temp_num;";
        push @{$extra_preamble_ref},
             "t_$temp_num = GET_NCI_P($reg_num);";
        return "( <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	10401	10519	
==>t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_P($reg_num);";
        return "( <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	11600	11718	
==>t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_P($reg_num);";
        return "( <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	2152	2263	
==>Data settings might have changed for the test
        $conf->data->set('libs',      $libs);
        $conf->data- <==
3	/Users/nnunley/parrot/config/auto/readline.pm	1952	2063	
==>Data settings might have changed for the test
        $conf->data->set('libs',      $libs);
        $conf->data- <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	1771	1879	
==>linked to is returned.

=cut

sub write_html
{
	my $self = shift;
	my $index_html = $self->write_contents_htm <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088846	1088939	
==>Y" => "#line 186 \"src/ops/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interprete <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089794	1089887	
==>Y" => "#line 186 \"src/ops/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interprete <==
3	/Users/nnunley/parrot/config/auto/env.pm	1350	1473	
==>->set_result('unsetenv');
    } else {
        print " (no) " if $verbose;
        $self->set_result('no');
    }

    retur <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	1210	1306	
==>ope with US-ASCII codes, use fallbacks for Latin-1, or use FAR_CHAR.
    unless($in =~ m/^\d+$/s) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023398	1023508	
==>localtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024248	1024358	
==>localtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	6341	6445	
==>, $api, $API{$api};
    }
}

if (keys %DataB) {
    printf "--- Uninitialized Modifiable Data: %d ---\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941044	941276	
==>> [
                              "p",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 486 \"src/ops/string.ops\"\n    {{\@1}} = string_split(int <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5795	5904	
==>= shift;
	my $pops = shift;
	my $pir = '';

	# Branches mean we need to deal with basic block-ish stuff. If th <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3733	3842	
==>= shift;
	my $pops = shift;
	my $pir = '';

	# Branches mean we need to deal with basic block-ish stuff. If th <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15472	15587	
==>F-\xFF])/$Escape{$1}/g;  # ESCAPER
             # Escape \, {, }, -, control chars, and 7f-ff.
    $x =~ s/([^\x00-\ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16651	16766	
==>F-\xFF])/$Escape{$1}/g;  # ESCAPER
             # Escape \, {, }, -, control chars, and 7f-ff.
    $x =~ s/([^\x00-\ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	6159	6264	
==>nds}{$group} = 1;
}

sub rewrite_try {
    my ($self, $op, $R, $lastback) = @_;
    return $self->rewrite( <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2791	2920	
==>AGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $lib <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3100	3229	
==>AGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $lib <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2895	3024	
==>AGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $lib <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	5525	5639	
==>$k;
    }
    my $self;
    if ($meth ne '') {
	$self = shift @params;
	#shift @{$def_args{$arg}};
	$arg_count{$arg <==
3	/Users/nnunley/parrot/config/inter/lex.pm	2330	2440	
==>=> "$1.$2.$3");
    }

    $conf->data->set($util => $prog);
    $self->set_result('yes');

    return $self;
} <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10336	10430	
==>length, cur_ic, pop_count, label_num, sp_dest
    .local int i, j, type, try_offset, try_length <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	14707	14824	
==>&|\|\||<<|>>)=?
					| split|grep|map|return
					)#gcx)
		{
			$patvalid = 1;
			next;
		}

		if ( _match_codeblock($ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	32166	32266	
==>.  It should ONLY be called from inside an END block.  It
doesn't actually exit, that's your job.

=c <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	388	485	
==>Ms

=head1 SYNOPSIS

    % perl tools/dev/mk_manifests.pl [options]

=head1 DESCRIPTION

This file <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840182	840286	
==>(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}});\n  {{+=2}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840877	840981	
==>(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}});\n  {{+=2}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	287417	287505	
==>"#line 918 \"src/ops/cmp.ops\"\n  {{\@1}} = (mmd_dispatch_i_pp(interpreter, {{\@2}}, {{\@ <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	3938	4059	
==>,
 'AElig'    , 198,
 'Ccedil'   , 199,
 'Egrave'   , 200,
 'Eacute'   , 201,
 'Ecirc'    , 202,
 'Euml'     , 203,
 'Igra <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	13780	13898	
==>s method
  
  if(!defined $source)             { $source = *STDIN{IO}
  } elsif(ref(\$source) eq 'GLOB') { # stet
  } e <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	397	494	
==>ion.

This is a subclass of C<Parrot::Docs::Directory> so that it can be used
to build the HTML do <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	609	715	
==>t CPAN
#
# Any use of this module in a standalone parser make the included
# text under the same copyrig <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	592	695	
==>t CPAN
#
# Any use of this module in a standalone parser make the included
# text under the same copyrig <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	7806	7890	
==>s $op->{arg1}->{symbol} $op->{op} $op->{arg2}->{symbol} goto $op->{result}->{symbol}\ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4671	4782	
==>$pops = shift;
	my $register_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop stuff <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3087	3198	
==>$pops = shift;
	my $register_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop stuff <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23587	23697	
==>"name"      => $_[3],
	}, $class;
}

# MARK, YOU MAY WANT TO OPTIMIZE THIS.


sub code($$$$)
{
	my ($self, $nam <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	29066	29174	
==>\$P1
PUSHARR
			# push @{$code{$seg}->{args}}, $_;
		}
	}
	return;
}

sub parse_endfunc {
	feedme;
	my $t=$se <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3183	3277	
==>See tools/dev/install_files.pl for documentation on the
# format of this file.
# See docs/submi <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	25841	25948	
==>nal {
    my ($self, $op, $R, $lastback) = @_;

    my $back = $self->genlabel('nongreedy_opt_back');
    my <==
3	/Users/nnunley/parrot/lib/Test/More.pm	23174	23272	
==>alarm>.  In these extreme
cases you have no choice but to skip over the broken tests entirely.

The <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32379	32474	
==>ule->{'instruction'}" =~ /\$\{STOREREG\}/) {
			$dest_reg = 1;
			$mv->{'STOREREG'} = 'storereg' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9058	9158	
==>= fe->offset;\n        Parrot_switch_to_cs(interpreter, fe->seg, 1);\n    }\n    string_cstring_free( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10174	10274	
==>= fe->offset;\n        Parrot_switch_to_cs(interpreter, fe->seg, 1);\n    }\n    string_cstring_free( <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	5097	5197	
==>ps2c.pl: Cannot open source file '$source' for writing: $!!\n";


#
# Print the preamble for the HEAD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553157	553300	
==>less( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethod",
                  "FLAGS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554553	554696	
==>less( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethod",
                  "FLAGS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555950	556093	
==>less( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethod",
                  "FLAGS" <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	7263	7361	
==>up_next");

    $self->need_group_setup($group);

    my ($R_back, @R_ops) = $self->rewrite($R, $rf <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	612	702	
==>lock, 'Jako::Construct::Block');
  confess "Ident is not!" unless UNIVERSAL::isa($ident, 'J <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	500	590	
==>lock, 'Jako::Construct::Block');
  confess "Ident is not!" unless UNIVERSAL::isa($ident, 'J <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061545	1061752	
==>"TYPE" => "function",
                  "CODE" => 1185,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 241 \"src/ops/var.ops\ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	7738	7843	
==>classname
    $const->{class} = "Const" . $self->{class};
    # and alias vtable
    $const->{vtable} = $s <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17660	17752	
==>Array', "ERR_$label"]);
  $self->_add_inst ('', 'inc',[$return]);
  $self->_add_inst ('', 'se <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467390	467612	
==>CODE" => 536,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 376 \"src/ops/math.ops\"\n  INTVAL den = {{\ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4477	4575	
==>roup->{$_} } @pmcs;
    partial_link($_, $pmc_libs->{$_}, [ $_ ] ) foreach (@ungrouped_pmcs);
} 
el <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4581	4679	
==>roup->{$_} } @pmcs;
    partial_link($_, $pmc_libs->{$_}, [ $_ ] ) foreach (@ungrouped_pmcs);
} 
el <==
3	/Users/nnunley/parrot/languages/converter.pl	205	308	
==>scent;

sub modifier {
  my $modifier = shift;
  return '' unless defined $modifier->[0];
  return '(?)' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2945	3053	
==>andler->end_element({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
    $handler->start_el <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3619	3727	
==>andler->end_element({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
    $handler->start_el <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3709	3817	
==>andler->end_element({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
    $handler->start_el <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27817	27983	
==>{
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $l_break;
            }
        }
    }
    push @opcodes, @{$block};
    my $co <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3507	3615	
==>ce of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) = @_;

    #print STDERR "pbcc: <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3306	3414	
==>ce of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) = @_;

    #print STDERR "pbcc: <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	15465	15574	
==>>

Returns an HTML anchor with the specified "href".

=cut

sub html_link
{
    my $self = shift;
    my $href <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	9437	9539	
==>x2F\x39\x3B-\x40\x5B-\x5E\x60\x7B-\x7F]/
            # Characters under 0x80 that aren't legal in an XM <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10701	10803	
==>x2F\x39\x3B-\x40\x5B-\x5E\x60\x7B-\x7F]/
            # Characters under 0x80 that aren't legal in an XM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70371	70656	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "loadlib",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71139	71424	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "loadlib",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	12893	12991	
==>font_table {
  return <<'END';  # text font, code font, heading font
{\fonttbl
{\f0\froman Times Ne <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10706	10929	
==>h @types, 'CODE';
                $state = 2;
                $depth = 1;
            } else {
                if ($c =~ /\d/) {
                    push @tokens, $c;
                    push @types, 'NUM';
                } <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27464	27573	
==>hods} } ) {
        if ($self->implements($meth->{meth})) {
            $hout .= $self->decl($classname, $meth <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25550	25637	
==>AFTER_NEXT_$forloop
	goto FOR_LOOP_BODY_$forloop
FOR_GT_$forloop:
	gt $result, FORLOOP_E <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	14389	14502	
==>lassname, $meth, $body);
    }

    # now split into MMD if necessary:
    my $additional_bodies= '';
    $total_b <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2138	2255	
==>e;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value::Identifier')) {
    my $ri <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2096	2213	
==>e;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value::Identifier')) {
    my $ri <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2018	2135	
==>e;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value::Identifier')) {
    my $ri <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	708619	708840	
==>_pmc(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	709268	709489	
==>_pmc(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	3898	3995	
==>TPUT "dlfunc P2, P1, '$name', '$signature'\n";
  print OUTPUT "store_global '${cur_package}::${nam <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1897	2003	
==>parrot, qw/ languages perl6 p6shell.pir /,
);


sub import {
    my($class, $plan, @args) = @_;
    $b->pla <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1894	1998	
==>urn "";
}

# Label generation.
sub gen_label() {
	# This is a good place (as we call gen_label before tra <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	269	362	
==>DESCRIPTION

Recreates MANIFEST and MANIFEST.SKIP from the svn directories.  So far tested
wit <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	395107	395372	
==>(pos >> 32);\n    {{\@2}} = (INTVAL)(pos & 0xffffffff);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	574	684	
==>f->output_label_use($label);
}

sub output_match {
    my ($self, $byte) = @_;
    my $comment = '';
    if ($b <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	8817	8918	
==>o->cur_op[i] * sizeof(struct PackFile_Constant) + offsetof(struct PackFile_Constant, u))
#define RCONS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	816739	816913	
==>lear_n(interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6739	6889	
==>"matched"
            goto match_end
          match_fail:
            print "failed"
          match_end:
        .end\n);

    return $pirCode;
}

su <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	2363	2479	
==>ned} @contents);
}

=item C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shift;
    
    return $se <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737017	737343	
==>> ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 828,
                  "ARGS" => [
                              "n",
                              "ic <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46924	47019	
==>0 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Interp_debug_SET(interpreter,   {{\@1}}); }\n  els <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47707	47802	
==>0 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Interp_debug_SET(interpreter,   {{\@1}}); }\n  els <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	7177	7311	
==>em.c"))
          or die "compile $src_stem.c failed ($?)\n";
    }
    else {
        1;
    }
}

sub partial_link {
    my ($group, $ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7388	7522	
==>em.c"))
          or die "compile $src_stem.c failed ($?)\n";
    }
    else {
        1;
    }
}

sub partial_link {
    my ($group, $ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	44667	44758	
==>s|\.\.)'.$SIMPLEPAT.'\)';
my $EXACTLY		= '\G\(([1-9]\d*)'.$SIMPLEPAT.'\)';
my $BETWEEN		= '\ <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	3926	4067	
==>pe eq '$') {
            $out .= "    \$r->$elem = $init undef;$cmt\n";
        }
        elsif( $type =~ /^\w+(?:::\w+)*$/ ){
            $ou <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	713	807	
==>::Spec->rel2abs($lang_f);
    $out_f  = File::Spec->rel2abs($out_f);
    Parrot::Test::write_co <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	750	844	
==>::Spec->rel2abs($lang_f);
    $out_f  = File::Spec->rel2abs($out_f);
    Parrot::Test::write_co <==
3	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	382	500	
==>cs_code = shift;
    my $opt = shift;
    $opt ||= '';
	
	# Write file.
	my $fh;
	open $fh, "> $file_name.cs" or die "$ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	3000	3125	
==>sert( $var->[0] );
    return $var;
}

sub InsertList {
    my ( $parser, $vars ) = @_;

    for my $var ( @{$vars} ) { <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	659	759	
==>fined $op;
  confess "Right is not defined!" unless defined $right;

  confess "Block is not!" unless <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	671	771	
==>fined $op;
  confess "Right is not defined!" unless defined $right;

  confess "Block is not!" unless <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	13994	14106	
==>s/^ //s;
  $title =~ s/ $/, /s;
   # make sure it ends in a comma and a space, unless it's 0-length

  my $is_obv <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	532	640	
==>> "_I", NEXT => 'TEST', REDO => 'THEN', LAST => 'ELSE' },
  'sub'      => { PREFIX => "_S", NEXT => 'TEST', R <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	553	661	
==>> "_I", NEXT => 'TEST', REDO => 'THEN', LAST => 'ELSE' },
  'sub'      => { PREFIX => "_S", NEXT => 'TEST', R <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2747	2846	
==>Sub1
PRINT "ERR this line in main routine should be skipped"
Label1:
   PRINT "5 back in module-leve <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16714	16813	
==>Sub1
PRINT "ERR this line in main routine should be skipped"
Label1:
   PRINT "5 back in module-leve <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	496	595	
==>ctions

The following functions are exported:

=over 4

=cut

package Parrot::Vtable;

use strict;
u <==
3	/Users/nnunley/parrot/tools/dev/symlink.pl	2308	2418	
==>is not a symlink\n";
		}
	    }
	    if (!defined $readlink || $readlink ne $srcfile) {
		print "$dstfile\n" if <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7149	7253	
==>reg) = @_;
    $reg = value(defined($reg) ? $reg : 'pos');
    return $self->output_pushint($reg);
}

sub <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6791	6895	
==>reg) = @_;
    $reg = value(defined($reg) ? $reg : 'pos');
    return $self->output_pushint($reg);
}

sub <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2707	2836	
==>ne( "=encode utf8" );
        $line =~ tr/\n\r//d;
        
      } elsif( $line =~ s/^\xFE\xFF//s ) {
        DEBUG and print "Bi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088884	1088978	
==>l.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089832	1089926	
==>l.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	3073	3165	
==>directories()>

Returns the directories which contain C header files.

Currently only F<inclu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710718	710810	
==>interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_printf(interpreter, INTVAL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711552	711644	
==>interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_printf(interpreter, INTVAL <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	1870	2061	
==>, \@lines);
}

check_manifest();

exit 0;

###############################################################################

sub check_source {
    my ($file, $source) = @_;

    print "Checkin <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16748	16851	
==>urn,'.Undef']);

  my @reverse = reverse _get_args($node);

  for (@reverse) {
    my $item = $self->_ge <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	9011	9110	
==>1}
${PARAMS}[0] = ${STEMP0}
dec stack_depth

PRE_CALL_END_${CURIC}:
PIR
}

sub post_call {
    # Not <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684563	684702	
==>"
                            ],
                  "BODY" => "#line 550 \"src/ops/pmc.ops\"\n      {{\@1}}->vtable->setprop(interpreter, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685458	685597	
==>"
                            ],
                  "BODY" => "#line 550 \"src/ops/pmc.ops\"\n      {{\@1}}->vtable->setprop(interpreter, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2915	3004	
==>fset)>

=item C<goto_offset($offset)>

=item C<goto_address($address)>

CPrederef is funky <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	261	360	
==>), @Test::More::EXPORT );
@ISA = qw(Exporter Test::More);

sub import {
    my( $class, $plan, @args <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	178	277	
==>), @Test::More::EXPORT );
@ISA = qw(Exporter Test::More);

sub import {
    my( $class, $plan, @args <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	3727	3821	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@
# Pull in some functions that, for some reason, I expect to see her <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	288	406	
==>_;
    my $idf = 'L' . $parser->YYData->{idx_lbl}++;
    return new defn( $idf, 'label' );
}

sub new_fct {
    m <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	51927	52009	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub text_content_of_treel <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	95	193	
==>use strict;

my $fail_label = Regex::Ops::Tree::mark('FAIL');

sub init_context {
    my ($self, $c <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	96	194	
==>use strict;

my $fail_label = Regex::Ops::Tree::mark('FAIL');

sub init_context {
    my ($self, $c <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	3675	3766	
==>SAL::isa($right_type, 'Jako::Construct::Type::Number');

#  $self->DEBUG(0, "   ...calc type <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2207	2348	
==>c};
        # That's the reason for:   no strict 'refs';
        my $pass = $self->{builder}->$builder_func(
                       Parrot::Te <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2746	2887	
==>c};
        # That's the reason for:   no strict 'refs';
        my $pass = $self->{builder}->$builder_func(
                       Parrot::Te <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2677	2813	
==>c};

        # That's the reason for:   no strict 'refs';
        my $pass = $self->{builder}
            ->$builder_func( Parrot::Te <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480783	481047	
==>ide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481786	482050	
==>ide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482789	483053	
==>ide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	512293	512514	
==>CODE" => 590,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 690 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	39523	39652	
==>e( $line =~
              # Sort of adapted from Text::Tabs -- yes, it's hardwired in that
              # tabs are at every EIGHT <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	1202	1306	
==>file.t";
  next unless -f $path; # Might have a command that doesn't have a test file.
  open my $test_h, <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	16313	16468	
==>$counter >= @R goto lastback
#                goto try
#          back: pop $counter
#                goto R[].back
#          next:
#
# The code below does <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	23276	23429	
==>ty) {
          DEBUG > 4 and printf
           "    Grafting a new %s node between %s and %s\n",
           $dynasty[-1], $treelet->[0], $treelet->[$i][0 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	5246	5364	
==>ock->symbol_names) {
      next if exists $table{$symbol};
      $table{$symbol} = $level;
    }

    $block = $block-> <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24448	24591	
==>3,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 129,
			'functioncall' => 31,
			'function' => 26,
			'tablecons <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2745	2847	
==>ffset)>.

=cut

sub restart_offset
{
    my ($self, $offset) = @_;

    return "interpreter->resume_off <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4080	4182	
==>ffset)>.

=cut

sub restart_offset
{
    my ($self, $offset) = @_;

    return "interpreter->resume_off <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	4053	4235	
==>DRESS",
                  "NAME" => "wrapper__",
                  "FLAGS" => ":internal",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10735	10861	
==>_url($section);
        # Turn char 1234 into "(1234)"
        $section = '_' unless length $section;
    }
    
    foreach my <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4112	4229	
==>_url($section);
     # Turn char 1234 into "(1234)"
    $section = '_' unless length $section;
  }
  
  

  foreach my <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11943	12038	
==>::HTML -e \
   "exit Pod::Simple::HTML->filter(shift)->errors_seen" \
   thingy.pod


=head1 DES <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9748	9842	
==>quire_open_paren;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->req <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25284	25378	
==>quire_open_paren;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->req <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	6791	6896	
==>ma";

    printf OUT "\t%-30s\t/* %4d */\n", $opname, $n;
}

print OUT <<END_C;
} parrot_opcode_enums;

#e <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	1307	1400	
==>ib/Parrot/Config.pm";
		%Parrot::Config::PConfig
	} or die "Unable to locate Parrot::Config. <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	182	274	
==>ages/jako/lib/Jako/Symbol.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "u <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	1275	1373	
==>fig = eval {
		require "$_[0]/lib/Parrot/Config.pm";
		%Parrot::Config::PConfig
	} or die "Unabl <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	481	590	
==>s GMP';

@args = qw(verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->ge <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454591	454866	
==>"
                            ],
                  "BODY" => "#line 235 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455446	455721	
==>"
                            ],
                  "BODY" => "#line 235 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456301	456576	
==>"
                            ],
                  "BODY" => "#line 235 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	8151	8280	
==>-2]->tagname =~ m/^item-/s
          ) {
            # Bail out here, after setting rtfitemkeepn yea or nay.
            $self->{' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	840	935	
==>:isa($block, 'Jako::Construct::Block');
  confess "Ident is not!" if defined $ident and not UNIV <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	868	963	
==>:isa($block, 'Jako::Construct::Block');
  confess "Ident is not!" if defined $ident and not UNIV <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	11109	11216	
==>ond {
  my ($self, $node) = @_;

  my @clauses = _get_args($node);

  my $transnode;

  if ($clauses[-1]->{c <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	6314	6419	
==>_ ) for 'Benchmark', keys %bench;
Longest( $max[ $_ + 1 ] , length $program[$_] ) for 0 .. $#program;
prin <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18576	18672	
==>.$#{$node->{children}}) {
    my $temp_1 = $self->_generate($node->{children}[$_]);
    if (subst <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644077	644330	
==>ble->type_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644970	645223	
==>ble->type_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	31117	31259	
==>_op(1, 1);
		    $pre_op = sub_meta($pre_op, $mv, "pre_op for rule $rule->{'name'} value type clone");
            my $post_op = $srm->post_op( <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	2873	2991	
==>st_only},
    'time'         => \$cfg{use_times},
    'help|?'       => \$cfg{display_help},
    'method=s'     => \$cf <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3088	3195	
==>agmap};
  return $new;
}

sub run {
  my $self = $_[0];
  return $self->do_middle if $self->bare_output;
  r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600085	600183	
==>ter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readab <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601161	601259	
==>ter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readab <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	4168	4304	
==>top = rop('test', [ $op1, $rev_test, $op2,
                                   rop('goto', [ $continue ]) ]);
        return ($self->rewri <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3996	4102	
==>ment({ Name => 'return' });

  if (defined $cond) {
    $handler->end_element({ Name => 'block' });
    $ha <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34048	34148	
==>ftmost($self) ? 'q{}'
				# WAS : 'qq{'.$self->describe.'}' ) . ')->($text);
				: 'q{'.$self->descri <==
3	/Users/nnunley/parrot/config/init/headers.pm	519	652	
==>nstep
{
    my ($self, $conf) = @_;

    my $inc = 'include/parrot';

    my @headers = (
        sort
            map { m{^$inc/(.*\. <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1792	1890	
==>ill be either the string
"start", the string "text", or the string "end".

Once you know what the t <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	276	369	
==>se strict;
eval "use warnings";

package Jako::Construct::Expression::Infix;

use base qw(Jako <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999906	1000220	
==>DE" => 1117,
                  "ARGS" => [
                              "i",
                              "i",
                              "s",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  { <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2249	2382	
==>reate stab entry on compile
        $@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $retval
}

sub YYData {
	m <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2166	2289	
==>reate stab entry on compile
        $@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $retval
}

sub YYData {
	m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143552	143647	
==>ps/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144480	144575	
==>ps/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145408	145503	
==>ps/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  } <==
3	/Users/nnunley/parrot/config/auto/jit.pm	1237	1330	
==>bove split fails because archname is "darwin-thread-multi-2level".
    if ($cpuarch =~ /darwin <==
3	/Users/nnunley/parrot/languages/regex/test.pl	3304	3407	
==>= Regex::Driver->new('pir', emit_main => 1);

    print PIR <<"END";
# Regular expression test
# Generat <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7228	7326	
==>$(s1$);" Upper"
print lcase$(s1$);" Lower"
a$="   Flush   "
print ">";ltrim$(a$)
print rtrim$(a$);" <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18957	19055	
==>$(s1$);" Upper"
print lcase$(s1$);" Lower"
a$="   Flush   "
print ">";ltrim$(a$)
print rtrim$(a$);" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033306	1033398	
==>nst lex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n    if (PMC_IS_NULL(lex_pad)) {\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034404	1034496	
==>nst lex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n    if (PMC_IS_NULL(lex_pad)) {\n <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	4434	4584	
==>->{symbol}, $op->{arg1}\n";
        }
    }

    sub visitNewClosureOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $se <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1558	1682	
==>t->{TYPE};      }
sub name      { return shift->{NAME};      }
sub props     { return %{shift->{PROPS}};  }
sub args      { r <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	384	481	
==>cs::Section::Libs;

use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847575	847867	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848354	848646	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849134	849426	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  " <==
3	/Users/nnunley/parrot/lib/Test/More.pm	31391	31537	
==>on-hash ref";
        return 0;
    }

    return 1 if $a1 eq $a2;

    my $ok = 1;
    my $bigger = keys %$a1 > keys %$a2 ? $a1 : $a2;
    foreach <==
3	/Users/nnunley/parrot/config/auto/alignptrs.pm	692	795	
==>self->set_result('');
    my $align;
    if (defined($conf->data->get('ptr_alignment'))) {
        $alig <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	10568	10662	
==>_trymatch, $L_backup, $num_groups, $startup) = @_;

    my $trymatch = $self->output_label_use( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754964	755182	
==>=> 851,
                  "ARGS" => [
                              "p",
                              "n"
                            ],
                  "BODY" => "#line 266 \"src/ops/set.ops\"\n  {{\@1}}->vtable->se <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7281	7445	
==>$act." ($lhs,$len): ";

                $act
            or  $self->YYAccept();

            $$dotpos=$len;

                unpack('A1',$lhs) eq '@'    #In l <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6945	7102	
==>$act." ($lhs,$len): ";

                $act
            or  $self->YYAccept();

            $$dotpos=$len;

                unpack('A1',$lhs) eq '@'    #In l <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1882	1999	
==>undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2487	2604	
==>undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3161	3278	
==>undef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  i <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	32781	32917	
==>reelet->[$i][2] =~ m/^\w+:[^:\s]\S*$/s
      ) {
        $treelet->[$i][1]{'type'} = 'url';
        $treelet->[$i][1]{'content-implicit'} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787904	788013	
==>,
                  "BODY" => "#line 422 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788814	788923	
==>,
                  "BODY" => "#line 422 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	35009	35130	
==>";
		}
        if ($rule->{'code'} eq '45') {
            $pir .= <<'PIRCODE';
i = elements P_arg_0
SS_PROP_LOOP_switch:
i <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	11484	11587	
==>ft;
  my @lines;
  foreach my $line_group (@_) {
    next unless defined $line_group and length $line_gr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557832	557930	
==>^+3}};\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  interpreter->current_cont = CO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559216	559314	
==>^+3}};\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  interpreter->current_cont = CO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506520	506681	
==>"
                            ],
                  "BODY" => "#line 636 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507375	507536	
==>"
                            ],
                  "BODY" => "#line 636 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	508230	508391	
==>"
                            ],
                  "BODY" => "#line 636 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035401	1035502	
==>xt_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@2}};\n    PMC * const <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036565	1036666	
==>xt_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@2}};\n    PMC * const <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8424	8553	
==>q 'ERROR'
            or  do {
#DBG>				$debug & 0x04
#DBG>			and	print STDERR 
#DBG>				    "go to state $$states[$$stack[-1] <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8042	8167	
==>q 'ERROR'
            or  do {
#DBG>				$debug & 0x04
#DBG>			and	print STDERR 
#DBG>				    "go to state $$states[$$stack[-1] <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21414	21513	
==>def])})
					if defined $::RD_TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_tr <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10680	10782	
==>shift;
    my $path = $self->path_for_file_with_relative_path(shift) || return;
    
    return $self-> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2033	2130	
==>entifier is already defined at this lexical scope, we want to complain
  # about the redefinition. <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1780	1877	
==>entifier is already defined at this lexical scope, we want to complain
  # about the redefinition. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130752	131067	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131606	131921	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132461	132776	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	50803	50968	
==>name', 3,
sub
#line 235 "Lua\lua51.yp"
{
            PrepareMethod( $_[0] );
            [
                @{ $_[1] },
                BuildLiteral( $_[0], $_[ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	56206	56340	
==>esenting possible
					       types of the specified token. For example:
					       <token:NOUN,VERB>");
				}
				else
				{
					$it <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8622	8746	
==>ire_type);
          my $arg_token = $self->require_ident;
          my $arg_name  = $arg_token->text;

          push @forma <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6794	6902	
==>ral);
      }

      $self->require_semicolon;

      $self->SYNTAX_ERROR("Cannot declare constant without as <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	14221	14323	
==>incase}:\t# Default\n";
		$selects[-1]->{incase}=$incase+1;
		return;
	}

	my $lambda=<<GL;
	
	P0= P10[ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	1514	1615	
==>:Tree::rule::ISA         = qw(Regex::Ops::Tree::_onearg);
@Regex::Ops::Tree::scan::ISA         = qw(Re <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops.pm	76	188	
==>|| '';
    my $number = ++$MARKERS{$name};
    $number = '' if ($number == 1) && ($name ne '');
    return bless( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2708	2820	
==>|| '';
    my $number = ++$MARKERS{$name};
    $number = '' if ($number == 1) && ($name ne '');
    return bless( <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	120	213	
==>1564Z bernhard  $

=head1 NAME

Parrot::Docs::Section::C - C source code documentation section <==
3	/Users/nnunley/parrot/examples/benchmarks/oo3.pl	6	118	
==>l -w
use strict;

my $o = new Foo();
for my $i (1 .. 500000) {
	my $x = $o->[0];
	my $y = $o->[1];
}
print $o->[0 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_assignments.pm	348	443	
==>rint CODE<<ASS_FUNC;
	new P0, .PerlArray
	set P0[.TYPE], "BARE"
	set P0[.VALUE], "$varname"
	bsr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630707	631008	
==>eter, type);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631697	631998	
==>eter, type);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629720	630019	
==>eter, type);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  " <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	56267	56399	
==>or example:
					       <token:NOUN,VERB>");
				}
				else
				{
					$item = new Parse::RecDescent::Directive(
						      'no stri <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	57855	57970	
==>code\"",
					       $line);
					_hint("Items like $code that consist of angle
					brackets enclosing a sequence o <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	8966	9049	
==>jit_info->cur_op[i]]
#define CALL(f) Parrot_exec_add_text_rellocation_func(jit_info- <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	8948	9097	
==>p
          }
          # else keep while'ing along
        }
        # Now put it aaaaall back...
        $self->unget_token(@to_unget);

      } els <==
3	/Users/nnunley/parrot/config/inter/lex.pm	917	1028	
==>et('maintainer')) {
        $conf->data->set($util => 'echo');
        $self->set_result('skipped');
        ret <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	914	1025	
==>et('maintainer')) {
        $conf->data->set($util => 'echo');
        $self->set_result('skipped');
        ret <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	3908	4038	
==>t;
        }
         # but pass thru the undef, which will set source_dead to true

        # TODO: look to see if $lines[-1] is = <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6866	6959	
==>id$(t$, 2, 8)
print left$(t$, 5)
print right$(t$, 5)
' instr
s1$="The longer string"
found$="l <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18595	18688	
==>id$(t$, 2, 8)
print left$(t$, 5)
print right$(t$, 5)
' instr
s1$="The longer string"
found$="l <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133934	134224	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":bas <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134715	135005	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":bas <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	11111	11217	
==>th) or die 'Failed to rmdir ' . $_[0]->path . ": $!";
    
    $_[0]->SUPER::delete;
}

=item C<delete_cont <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100467	100757	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":bas <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101900	102190	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":bas <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102671	102961	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":bas <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	185	280	
==>ls documentation section

=head1 SYNOPSIS

    use Parrot::Docs::Section::Tools;

=head1 DESCRIP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920984	921072	
==>"#line 316 \"src/ops/string.ops\"\n    {{\@1}}=Parrot_psprintf(interpreter, {{\@2}}, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921877	921965	
==>"#line 316 \"src/ops/string.ops\"\n    {{\@1}}=Parrot_psprintf(interpreter, {{\@2}}, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	2432	2564	
==>{
    my $self = shift;
    my $token = shift;
    my $tagname = $token->tagname;

    if ( $tagname eq 'L' ) 
    {
        $self->p <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	10201	10308	
==>h;

  Carp::croak( "Unknown " . ((1 == keys %options) ? "option: " : "options: ")
    . join " ", map "[$_]" <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	3576	3683	
==>ble by indent.  Some of these could even be in system header\n";
        print STDERR "files.  If so, ignore <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	4365	4467	
==>X::sysconf( &POSIX::_SC_CLK_TCK );
my %Get_Time = (
    1 => sub { my @times = times();  return $times[ <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	12487	12607	
==>s;
    for(s=str; *s; s++)
        key = key * 65599 + *s;
    return key;
}

static void store_op(op_info_t *info, int f <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	3973	4088	
==>e($ops);
    exit 0;
}    
# else check strictly against ops.num and renumber
else {
    load_op_map_file();

    my <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	28252	28366	
==>on for the above (if any)
            };

'ok' is true if Test::Harness will consider the test to be a pass.

'actu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52887	53197	
==>gc_debug",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 68,
                  "ARGS" => [
                              "i"
                            ] <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	75509	75683	
==>|||||@                                      |^<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 $tracerulename, '|',				   $tracecontext
| ~~       |                                      |^<<<<<< <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4264	4385	
==>T";
	        copy($src, $dest)
			    or die "Copy $src failed ($?)\n";
	
		    # Execute permissions on libraries is espe <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3553	3653	
==>d data)
C<const> -- for the latter, remember that you need two consts:

  const char* const foo[] = { <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	43801	43926	
==>Ignoring\n";
      next;
    }

    # A formatty line has to have #: in the first two columns, and uses
    # "^" to mean bold <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	17597	17703	
==>t', [ $counter, 'dynamic alt counter' ]),
                 $self->dbprint("backtracking into dynalt's index <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	1365	1455	
==>gex::Ops::Tree::group::ISA        = qw(Regex::Ops::Tree::_onearg);
@Regex::Ops::Tree::call: <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31402	31522	
==>}[0];
    my $nil      = BuildLiteral( $parser, 'nil', 'nil' );
    push @opcodes1, @{ $nil->[1] };

    for ( @{$var <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2792	2888	
==>elf, $offset) = @_;

    return "interpreter->resume_offset = REL_PC + $offset; interpreter->resu <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4127	4223	
==>elf, $offset) = @_;

    return "interpreter->resume_offset = REL_PC + $offset; interpreter->resu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093686	1093939	
==>}}, {{\@2}});\n  {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094489	1094742	
==>}}, {{\@2}});\n  {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	63363	63457	
==>e opening tag (after any specified
prefix was removed).

=item C<Unable to construct closing ta <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	51247	51362	
==>AA at line ", __LINE__, "\n";
      die "SPORK 512512!";
    }
  }

  if(@stack) { # Uhoh, some sequences weren't cl <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	347	454	
==>eturn $self;
}

sub init {
    my $self = shift;
    $self->{state} ||= Regex->global_state();
}

sub mklabe <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	2134	2230	
==>ated with the same
executable, the last one will be used.  For instance, with the
configuration f <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19637	19735	
==>e_code> )

This sets the language code to tag this document as being in. By
default, it is currentl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353587	353684	
==>DY" => "#line 200 \"src/ops/io.ops\"\n  STRING * const s = {{\@1}};\n  if (s && string_length(inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354332	354429	
==>DY" => "#line 200 \"src/ops/io.ops\"\n  STRING * const s = {{\@1}};\n  if (s && string_length(inte <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	4581	4698	
==>opt = '';
    $nm_gnu = 1;
    $nm_ro  = 1;
} else {
    # Hope for BSD-style nm output.
}

Getopt::Long::Configure (" <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2424	2521	
==>el for every single instruction. While we kinda find
	# basic blocks, we don't discover backward b <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1002	1099	
==>el for every single instruction. While we kinda find
	# basic blocks, we don't discover backward b <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	13169	13273	
==>ed255\green0\blue0;\red0\green0\blue255;}
END
}


sub doc_info {
   my $self = $_[0];

   my $class = ref <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1196	1303	
==>at C<$where> is suitably cast.

=cut

sub gen_goto
{
    my ($self, $where_str) = @_;

    return "return (o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129776	130003	
==>ODY" => "#line 301 \"src/ops/bit.ops\"\n  {{\@1}} ^= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130515	130742	
==>ODY" => "#line 301 \"src/ops/bit.ops\"\n  {{\@1}} ^= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10780	10879	
==>arg ($node, 2, 'set!');

  my $symbol = _get_arg ($node, 1)->{value};
  my $temp = $self->_generate( <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	9574	9734	
==>.
        $out   .= " - $name";
        $result->{name} = $name;
    }
    else {
        $result->{name} = '';
    }

    if( $todo ) {
        $out   .= " # TO <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	33713	33839	
==>n->new(
            $treelet->[$i]  # yes, clone the whole content as a treelet
          );
          $treelet->[$i][1]{'to'}[ <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	14147	14241	
==>hat case, you can use the rather blunt pass()
functions and its compliment the flunk() function <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	10352	10453	
==>s;

  my %content_containers;
  $content_containers{'Para'} = 1;
  if($accept_verbatim) {
    $content <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7040	7140	
==>mode   = defined $options{fail} ? $options{fail} : '';
	my $bad     = ref($options{reject}) eq 'ARRAY <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24042	24142	
==>mode   = defined $options{fail} ? $options{fail} : '';
	my $bad     = ref($options{reject}) eq 'ARRAY <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	615	729	
==>=> "_S", NEXT => 'TEST', REDO => 'THEN', LAST => 'ELSE' }, # TODO: fix these
);


#
# new()
#

sub new
{
  my $clas <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	636	750	
==>=> "_S", NEXT => 'TEST', REDO => 'THEN', LAST => 'ELSE' }, # TODO: fix these
);


#
# new()
#

sub new
{
  my $clas <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	112	200	
==>-2003, The Perl Foundation.
# $Id: /parrot/tools/dev/extract_file_descriptions.pl 19607 2 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1067	1171	
==>$VERSION = '1.05';
$COMPATIBLE = '0.07';
$FILENAME=__FILE__;

use Carp;

#Known parameters, all sta <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1031	1129	
==>$VERSION = '1.05';
$COMPATIBLE = '0.07';
$FILENAME=__FILE__;

use Carp;

#Known parameters, all sta <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	36141	36238	
==>l input and output
###

  'number->string' => \&_op_number_string,
  'string->number' => \&_op_str <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37550	37648	
==>ected = ' . ($rule->hasleftmost($self) ? 'q{}'
				: 'q{'.$self->describe.'}' ) . ';
		$Parse::RecD <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39953	40051	
==>ected = ' . ($rule->hasleftmost($self) ? 'q{}'
				: 'q{'.$self->describe.'}' ) . ';
		$Parse::RecD <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	8355	8447	
==>t_info->cur_op[x])
#define ROFFS_PMC(x) REG_OFFS_PMC(jit_info->cur_op[x])
#
END_C

if ($jit_c <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	15611	15749	
==>=> {
			"?" => 23,
			'CHAR' => 4,
			"<" => 22,
			"+" => 24,
			'CODE' => 6,
			"(" => 10,
			"|" => 26,
			"*" => 27,
			"[" => 14,
			" <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	16928	17066	
==>=> {
			"?" => 23,
			'CHAR' => 4,
			"<" => 22,
			"+" => 24,
			'CODE' => 6,
			"(" => 10,
			"|" => 26,
			"*" => 27,
			"[" => 14,
			" <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	36429	36556	
==>_gt_p,
  'char<=?'          => \&_op_char_le_p,
  'char>=?'          => \&_op_char_ge_p,
  'char-ci=?'        => \&_op_char_eq_p <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	3780	3891	
==>f, $fh) = @_;

    my $subname = $self->{subname} || '_regex';
    print $fh <<"END";
.sub $subname
    .param s <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	62382	62482	
==>f '$', '@', or '%' at the start of
a variable, but didn't find any of them.

=item C<Bad identifier a <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	343	458	
==>{
    return bless {};
}

sub output_is() {
    my ($self, $code, $output, $desc) = @_;
  
    my $count = $self->{b <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	381	496	
==>{
    return bless {};
}

sub output_is() {
    my ($self, $code, $output, $desc) = @_;
  
    my $count = $self->{b <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	3439	3543	
==>>{pmcs}} );

    return $cout;
}

=item C<includes()>

Returns the set of C C<#include>s for the library. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285242	285662	
==>IRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 332,
                  "ARGS" => [
                              "i",
                              "sc",
                              "s"
                            ],
                  "BODY" => <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	6372	6466	
==>%opsubs=(%opsubs, 
	'<=' => sub { &{$opsubs{"="}}(@_[0..2], "le") },
	'>=' => sub { &{$opsubs{" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591021	591375	
==>i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 671,
                  "ARGS" => [
                              "p",
                              "k",
                              "k"
                            ],
                  "BODY" => "#line 325 \"s <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	51632	51806	
==>,
            ];
        }
	],
	[#Rule 45
		 'var', 1,
sub
#line 276 "Lua\lua51.yp"
{
            [ $_[1] ];
        }
	],
	[#Rule 46
		 'var', 4,
sub
#line 280 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	16372	16493	
==>tate 46
		DEFAULT => -14
	},
	{#State 47
		ACTIONS => {
			"-" => 61
		},
		DEFAULT => -42
	},
	{#State 48
		DEFAULT => -3 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1753	1854	
==>\@_, $self );

		exists($$self{VERSION})
	and	$$self{VERSION} < $COMPATIBLE
	and	croak "Yapp drive <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1692	1789	
==>\@_, $self );

		exists($$self{VERSION})
	and	$$self{VERSION} < $COMPATIBLE
	and	croak "Yapp drive <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276209	276468	
==>string_compare(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277087	277346	
==>string_compare(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277965	278224	
==>string_compare(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216464	216883	
==>DIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 254,
                  "ARGS" => [
                              "p",
                              "n",
                              "ic"
                            ],
                  "BODY <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2787	2892	
==>});
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
    $le <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3461	3566	
==>});
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
    $le <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3551	3656	
==>});
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
    $le <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2657	2802	
==>ist .= ' ' . $extraLibs;
    } else {
        $liblist = join( ' ', map { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2966	3111	
==>ist .= ' ' . $extraLibs;
    } else {
        $liblist = join( ' ', map { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2761	2906	
==>ist .= ' ' . $extraLibs;
    } else {
        $liblist = join( ' ', map { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819009	819292	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "entrytype",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819968	820251	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "entrytype",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
3	/Users/nnunley/parrot/lib/Test/More.pm	32641	32751	
==>e sort them, as long as both arrays are sorted
    # with the same algorithm.
    # Have to inline the sort rou <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22485	22597	
==>self->_add_inst(''           ,'mod'   ,[$temp_0,$temp_0,$temp_1]);
  $self->_add_inst(''           ,'eq'    ,[$te <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22986	23098	
==>self->_add_inst(''           ,'mod'   ,[$temp_0,$temp_0,$temp_1]);
  $self->_add_inst(''           ,'eq'    ,[$te <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	1380	1501	
==>ue into the op
    invar         the argument passes a variable value into the op
    label         an in argument contain <==
3	/Users/nnunley/parrot/config/auto/signal.pm	1047	1154	
==>ler_t)" if $verbose;
    }
    cc_clean();

    cc_gen('config/auto/signal/test_2.in');
    eval { cc_build( <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	3825	3924	
==>oo:
BEGIN {
  *pretty        = \&Pod::Simple::BlackBox::pretty;
  *stringify_lol = \&Pod::Simple::Bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753955	754281	
==>> ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 850,
                  "ARGS" => [
                              "p",
                              "ic <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37746	37854	
==>t

sub gen_ret
{
    my ($self, $type) = @_;

    #return "ret_val = *($1*) " if ($type =~ /((?:INT|FLOAT)VAL <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	129	224	
==>rnhard  $

=head1 NAME

Parrot::OpTrans::CSwitch - C Switch Transform

=head1 DESCRIPTION

C<Par <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3133	3255	
==>urtok {
	my($self)=shift;

        @_
    and ${$$self{TOKEN}}=$_[0];
    ${$$self{TOKEN}};
}

sub YYCurval {
	my( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2980	3093	
==>urtok {
	my($self)=shift;

        @_
    and ${$$self{TOKEN}}=$_[0];
    ${$$self{TOKEN}};
}

sub YYCurval {
	my( <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	37768	37873	
==>>YYData->{symbtab}->Insert($defn);
    }
    return [ $defn, \@opcodes1, \@opcodes2 ];
}

sub Prepare <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5897	6059	
==>f ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                print {$FH} " :flat";
            }
            $first = 0;
        }
        print {$ <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6992	7154	
==>f ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                print {$FH} " :flat";
            }
            $first = 0;
        }
        print {$ <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	9906	10068	
==>f ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                print {$FH} " :flat";
            }
            $first = 0;
        }
        print {$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61021	61279	
==>i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 79,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 914 \"src/ops/core.op <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	1103	1205	
==>ntent_seen;

    # Suppress the warning in the tests.
    $self->{RESOURCES_URL} = '' unless $self->{RE <==
3	/Users/nnunley/parrot/config/init/hints/openbsd.pm	13	102	
==>C) 2005, The Perl Foundation.
# $Id: /parrot/config/init/hints/openbsd.pm 19593 2006-05-30 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18281	18414	
==>'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36,
			")" => 99
		},
		GOTOS => {
			'exp' = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	308489	308605	
==>S" => [],
                  "BODY" => "#line 42 \"src/ops/debug.ops\"\n    PDB_t *pdb;\n\n    if (!(interpreter->pdb) <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	194	305	
==>turn $self;
}

sub init {
    my $self = shift;
    $self->{state} ||= Regex->global_state();
}

# R (seq, R, S, <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	4347	4471	
==>OT EDIT THIS FILE",
            "Generated by " . __PACKAGE__ . " from $source"
        );

        if ($options{commentType} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2122	2233	
==>ub   end_over_block   { --$_[0]{'Indent'} }


# . . . . . Now the actual formatters:

sub end_head1       { $_[0 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1690	1801	
==>ub   end_over_block   { --$_[0]{'Indent'} }


# . . . . . Now the actual formatters:

sub end_head1       { $_[0 <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	991	1100	
==>get('cpuarch') =~ /sun4|sparc64/) {

        # CFLAGS entries must be left-aligned.
        print CFLAGS <<"EO <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1940	2020	
==>Jako::Construct::Expression::Value::Identifier->compile2($compiler, $self->block, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	2323	2403	
==>Jako::Construct::Expression::Value::Identifier->compile2($compiler, $self->block, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011421	1011673	
==>and(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012186	1012438	
==>and(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19076	19180	
==>n;
	}
	if ($do->{needstmt}) {
		my $false="0.0";
		feedme();
		my $which=$syms[CURR];
		my($result, $type <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46996	47098	
==>er,   {{\@1}}); }\n  else         { Interp_debug_CLEAR(interpreter, PARROT_ALL_DEBUG_FLAGS); }\n  {{=0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47779	47881	
==>er,   {{\@1}}); }\n  else         { Interp_debug_CLEAR(interpreter, PARROT_ALL_DEBUG_FLAGS); }\n  {{=0, <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	2455	2571	
==>T "package $class;\nuse Parse::RecDescent;\n\n";

		print OUT "{ my \$ERRORS;\n\n";

		print OUT $self->_code();

		p <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	5529	5638	
==>der'}->($line);

    # HERE WE CATCH =encoding EARLY!
    if( $line =~ m/^=encoding\s+\S+\s*$/s ) {
      $lin <==
3	/Users/nnunley/parrot/lib/Test/More.pm	9733	9831	
==>unlike>

  unlike( $this, qr/that/, $test_name );

Works exactly as like(), only it checks if $this <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863576	863838	
==>"bytelength",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864467	864729	
==>"bytelength",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	4629	4725	
==>g_${line}_data,
      sizeof(static_string_${line}_data)
    }},
    (PObj_constant_FLAG|PObj_ext <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	521339	521505	
==>"
                            ],
                  "BODY" => "#line 739 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	4066	4188	
==>%meta;
    @meta{split(/,/, $meta)} = ();
    $meta{$_} = 1 for (keys %meta); # Laziness

    if ($meta{lib}) {
        # d <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr3.pm	593	712	
==>s/${pir_fn}",
             "$self->{parrot} languages/${pir_fn}" );
}
 

sub skip_why {
    my $self = shift;
    my ( $ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	418	514	
==>ss language => 'perl6', compiler => 'perl6.pbc';

That's it.  Seriously.

=head1 DESCRIPTION

Thi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920922	921058	
==>p"
                            ],
                  "BODY" => "#line 316 \"src/ops/string.ops\"\n    {{\@1}}=Parrot_psprintf(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921815	921951	
==>p"
                            ],
                  "BODY" => "#line 316 \"src/ops/string.ops\"\n    {{\@1}}=Parrot_psprintf(interpreter, <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	117	235	
==>er;
use strict;

sub new {
    my ($class, $language, %options) = @_;

    if ($language eq 'perl5') {
        $class = <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	2746	2850	
==>e Syntax

The basic syntax of a PMC file is

=over 4

=item 1.

A preamble, consisting of code to be copi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1581	1682	
==>sub _handle_element_end {
  DEBUG and print "-- $_[1]\n";
  print {$_[0]{'output_fh'}}
   '  ' x --$_[ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1511	1612	
==>sub _handle_element_end {
  DEBUG and print "-- $_[1]\n";
  print {$_[0]{'output_fh'}}
   '  ' x --$_[ <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	2011	2139	
==>umeric
    STR       the argument is an string
    PMC       the argument is an PMC
    KEY       the argument is an aggregate PM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722229	722329	
==>2}};\n  PMC * const io = {{\@1}}; /* TODO Can this be localized? */\n  if (s && string_length(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723258	723358	
==>2}};\n  PMC * const io = {{\@1}}; /* TODO Can this be localized? */\n  if (s && string_length(interpr <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21211	21348	
==>or'), $para->[1]);
      }

      next;
      
    } elsif($para_type eq '=end') { #/////////////////////////////////////////

      my $c <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	917	1020	
==>File::Find;
use File::Basename;

my @files = @ARGV;

if (! @files) {
    die "Usage: $0 <source files>\n <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	11460	11563	
==>d("expander_" + id);
      if(elem.className == "details") {
	elem.className = "";  /* hack? */
	expande <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22055	22172	
==>:Value->new($block, $self->require_value);
        $op    = $self->require_infix_rel->text;
        $right = Jako::Con <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22988	23105	
==>:Value->new($block, $self->require_value);
        $op    = $self->require_infix_rel->text;
        $right = Jako::Con <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24634	24751	
==>:Value->new($block, $self->require_value);
        $op    = $self->require_infix_rel->text;
        $right = Jako::Con <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	4320	4447	
==>urn_data = ",
       S => "return_data = ",
       I => "return_data = ",
       N => "return_data = ",
#      B => "return_data <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4570	4677	
==>ode for the ops address declaration.

=cut

sub ops_addr_decl
{
    my ($self, $bs) = @_;

    return "stati <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	364	459	
==>=head2 Class Methods

=over

=cut

package Parrot::Docs::Section::BigNum;

use strict;
use warni <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	3343	3448	
==>ed $self->block and not defined $self->block->block;
}


#
# compile()
#

sub compile
{
  my $self = shift <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3364	3469	
==>', $val1, $val2, $dest);
}

sub output_gt {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_te <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3059	3164	
==>', $val1, $val2, $dest);
}

sub output_gt {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_te <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3140	3245	
==>', $val1, $val2, $dest);
}

sub output_lt {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_te <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2836	2941	
==>', $val1, $val2, $dest);
}

sub output_lt {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_te <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	5743	5836	
==>find_symbol(NAME)

Search for a symbol, starting with this block, but also checking parent
blo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8920	9012	
==>label);\n    if (!fe)\n\tinternal_exception(1, \"branch_cs: fixup for '%s' not found\", label <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10036	10128	
==>label);\n    if (!fe)\n\tinternal_exception(1, \"branch_cs: fixup for '%s' not found\", label <==
3	/Users/nnunley/parrot/config/auto/byteorder.pm	682	810	
==>program: $!";
    cc_clean();

    chomp $byteorder;

    if ($byteorder =~ /^1234/) {
        $conf->data->set(
            byte <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	20168	20285	
==>_l++;
	$cmt ="\t\t# $opcode\t $rest";
	if ($rest =~ /to (\d+)/) {
	    $targ = "pc_$1";
	}
    }
    elsif ($opcode eq <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	3705	3811	
==>ce[$line-1];
	    if ($source =~ /def (\w+)\s*\((.*)\)/) {
		my ($f, $args) = ($1, $2);
		my @args = split( <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	2082	2207	
==>leHandle->new('>' . $self->path) or 
        die 'Failed to open ' . $self->path . ": $!";
    
    print $fh @_;
    
    $fh <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	5625	5723	
==>g) {
    print HEADER "#define PARROT_IN_EXTENSION\n";
}
print HEADER <<END_C;
#include "parrot/par <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	581	673	
==>::OpTrans::Compiled;
use Parrot::OpLib::core;
use Parrot::Config;
use Parrot::Key;

my $trans <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	340	457	
==>e SRM::Base;
our @ISA = qw/SRM::Base/;

# Constructor. Just base this class on a hash.
sub new() {
	my $invocant = shi <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	246	363	
==>e SRM::Base;
our @ISA = qw/SRM::Base/;

# Constructor. Just base this class on a hash.
sub new() {
	my $invocant = shi <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	154	271	
==>e SRM::Base;
our @ISA = qw/SRM::Base/;

# Constructor. Just base this class on a hash.
sub new() {
	my $invocant = shi <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	53425	53527	
==>ed.


=item 3.

An number specifying the maximum number of fields to return. If this
argument is omitte <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19623	19731	
==>to 5
	input #2,a$
	print a$,
next i
close #2
print

' ON..GOTO   200! and then Oats..
t=2
on t goto 100, 200, <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3836	3943	
==>I2', 'apply_ITER'],
  ['apply_CALL',  'set', 'I0', 0],
  ['',            'invoke'],
  ['apply_HELP',  'P16', <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	13502	13602	
==>$core_opfunc[$i] */\n";
}

print JITCPU @jit_funcs, "};\n";

if ($genfile =~ /jit_cpu.c/) {
    print <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	167	260	
==>ead1 NAME

Parrot::Test::Punie -- testing routines for languages/punie

This is largely a copy <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	25868	25961	
==>rot::Test::_generate_functions();

=head1 SEE ALSO

=over 4

=item F<t/harness>

=item F<docs/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185891	186073	
==>s",
                              "ic"
                            ],
                  "BODY" => "#line 292 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) < <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186821	187003	
==>s",
                              "ic"
                            ],
                  "BODY" => "#line 292 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) < <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	36436	36564	
==>opcodes1 = ();
    my @opcodes2 = ();
    my $defn;
    if ( $idf eq '...' ) {
        $defn = new defn( 'vararg', 'local', ' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	10291	10424	
==>ncoding
    do {
      DEBUG > 1 and print " Setting encoding to $e\n";
      $self->{'encoding'} = $e;
      1;
    }
    and $e eq ' <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	908	1003	
==>trailing pattern delimiters.

(Hint: if you try using qr// for the $pattern then you're misreadi <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3006	3101	
==>trailing pattern delimiters.

(Hint: if you try using qr// for the $pattern then you're misreadi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871943	872172	
==>"s",
                              "sc",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	689	777	
==>isa($ident, 'Jako::Construct::Expression::Value::Identifier');
  confess "Props are not h <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	768	856	
==>isa($ident, 'Jako::Construct::Expression::Value::Identifier');
  confess "Props are not h <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420573	420868	
==>GS" => [
                              "i",
                              "p",
                              "ic",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914887	915056	
==>sc",
                              "i"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915899	916068	
==>sc",
                              "i"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interp <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	13594	13694	
==>x::Ops::Tree::reftree {
    my $op = shift;
    return $op->{name};
}

sub Regex::Ops::Tree::_onearg: <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7372	7492	
==>})	       ? $options{ignore}
		    :					 ''
		    ;

	if (!defined $ldel) { $ldel = '<\w+(?:' . gen_delimited_pat(q{'"}) <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24374	24494	
==>})	       ? $options{ignore}
		    :					 ''
		    ;

	if (!defined $ldel) { $ldel = '<\w+(?:' . gen_delimited_pat(q{'"}) <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8723	8808	
==>b,$c,$d,$a,$_[15],22,0x895cd7be,/* 12 */
FF,$a,$b,$c,$d,$_[16],7,0x6b901122,/* 13 */
F <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	3277	3421	
==>rgc > $max goto bad_args\n"
            if $max;
    }
    
    return $code;
}

sub helpers {
    my (@args) = @_;
    
    # types present in t <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32927	33024	
==>";
}

=item C<body($method, $line, $out_name)>

Returns the C code for the method body. C<$line> i <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37890	37987	
==>";
}

=item C<body($method, $line, $out_name)>

Returns the C code for the method body. C<$line> i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1308	1439	
==>$compiler->emit(".end");

        $last_seen = 'sub';
      }
    }
    else {
      if ($last_seen ne 'inline') {
        $compiler <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1103	1230	
==>t,

    DEBUG => 1,
    FILE  => $dest->file,
    LINE  => $dest->line
  }, $class;

  $block->push_content($self);

  return $s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1094	1221	
==>t,

    DEBUG => 1,
    FILE  => $dest->file,
    LINE  => $dest->line
  }, $class;

  $block->push_content($self);

  return $s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	983	1110	
==>t,

    DEBUG => 1,
    FILE  => $dest->file,
    LINE  => $dest->line
  }, $class;

  $block->push_content($self);

  return $s <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10648	10744	
==>=~ tr/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
        $section = $self->unicode_escape_url($sect <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4029	4121	
==>=~ tr/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
    $section = $self->unicode_escape_url($sect <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8243	8364	
==>G>		and	print STDERR "Abort.\n";

				return(undef);

			};

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Back to <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7870	7984	
==>G>		and	print STDERR "Abort.\n";

				return(undef);

			};

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Back to <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3225	3320	
==>lf->type;

  if (UNIVERSAL::isa($type, 'Jako::Construct::Type::String')) {
    my $string = $sel <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29156	29332	
==>{
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'A <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41262	41438	
==>{
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'A <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44408	44584	
==>{
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'A <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2758	2856	
==>~~~~~~~~~~~~~~~~~~~~~~

sub new {
  my $new = shift->SUPER::new(@_);
  #$new->nix_X_codes(1);
  $ne <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3114	3210	
==>~~~~~~~~~~~~~~~~~~~~~~
sub new {
  my $new = shift->SUPER::new(@_);
  $new->nix_X_codes(1);
  $ne <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	9	91	
==>arrot/languages/regex/lib/Regex/Parse/P6C.pm 18978 2006-04-30T14:02:48.452322Z bern <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2326	2446	
==>liblist = join( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ /gcc/i) {
            $liblist =~ s/gdbm\.lib/-ll <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2618	2738	
==>liblist = join( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ /gcc/i) {
            $liblist =~ s/gdbm\.lib/-ll <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2413	2533	
==>liblist = join( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ /gcc/i) {
            $liblist =~ s/gdbm\.lib/-ll <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352661	352955	
==>S" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 411,
                  "ARGS" => [
                              "nc"
                            ],
                  "BODY" => "#line 195 \"src/ops/ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27429	27533	
==>CE;').'
		$lastsep = "";
		$Parse::RecDescent::lastexpected = q{' . ($rule->hasleftmost($self) ? ''
				: <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29539	29643	
==>CE;').'
		$lastsep = "";
		$Parse::RecDescent::lastexpected = q{' . ($rule->hasleftmost($self) ? ''
				: <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31636	31740	
==>CE;').'
		$lastsep = "";
		$Parse::RecDescent::lastexpected = q{' . ($rule->hasleftmost($self) ? ''
				: <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	43352	43451	
==>ess $self, $class;
	shift;
	return $self->Replace(@_)
}

sub Compile($$$$) {

	die "Compilation of P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449352	449540	
==>\"\n  {{\@1}}->vtable->i_absolute(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8694	8792	
==>PES}
if ${ITEMP0} == 0 goto PRE_CALL_END_${CURIC}

# Get type of return value and build code to pop <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7266	7364	
==>PES}
if ${ITEMP0} == 0 goto PRE_CALL_END_${CURIC}

# Get type of return value and build code to pop <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6655	6759	
==>output_atend {
    my ($self, $failLabel) = @_;
    my $fail = $self->output_label_use($failLabel);
    r <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6299	6403	
==>output_atend {
    my ($self, $failLabel) = @_;
    my $fail = $self->output_label_use($failLabel);
    r <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	170	266	
==>rot_api.pl - Verify Parrot API (symbols)

=head1 SYNOPSIS

    % perl tools/dev/parrot_api.pl [li <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	4712	4878	
==>",
       O => "P",
       S => "S",
       I => "I",
       N => "N",
       B => "S",
       v => "v",
       J => "",
     );

my $temp_cnt = 0;
my @put_pointer;
my <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2925	3078	
==>$generated_files{$path} = $tmp;
            $tmp = '';
        } else {
            $tmp .= $_;
        }
    }
    close(GCOVSUMMARY);

    foreach my $g <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	12338	12465	
==>de is PIR code
    return ("# START EMBEDDED PIR CODE",
            split(/\n/, substr($code, 1, -1)),
            "# END EMBEDD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557794	557894	
==>d_pmc, *object;\n  opcode_t *next = {{^+3}};\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559178	559278	
==>d_pmc, *object;\n  opcode_t *next = {{^+3}};\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2} <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	3402	3498	
==>et 2 vtables and 2 enums, one pair with
read/write set methods, and one with read-only set method <==
3	/Users/nnunley/parrot/config/inter/encoding.pm	755	865	
==>(' ', grep { defined $_ } @encoding);

    if ($conf->options->get('ask')) {
        print <<"END";


The follo <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	3148	3252	
==>an't write '$string_private_h': $!";
    print OUT <<"HEADER";
/* ex: set ro:
 * !!!!!!!   DO NOT EDIT TH <==
3	/Users/nnunley/parrot/config/inter/libparrot.pm	262	356	
==>ary containing the parrot VM. This configuration
step determines whether it should be build st <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010912	1011197	
==>> 0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011676	1011961	
==>> 0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012441	1012726	
==>> 0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11 <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12489	12587	
==>rmethod(" . full_arguments($1) . ')'/xeg;

    # Rewrite DYNSELF.other_method(args...)
    s/DYNSEL <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	538	629	
==>L::isa($block, 'Jako::Construct::Block');
  confess("Identifier (" . ref($ident) . ") is not <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	538	629	
==>L::isa($block, 'Jako::Construct::Block');
  confess("Identifier (" . ref($ident) . ") is not <==
3	/Users/nnunley/parrot/Configure.pl	9049	9158	
==>::msvc
    init::optimize
    inter::shlibs
    inter::libparrot
    inter::charset
    inter::encoding
    in <==
3	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	869	976	
==>ke a smoke; aborting.\n";
    exit 1;
  }

  $request{smoke} = $compress->($smoke) || $smoke;
  debug "ok.\n <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	481	585	
==>()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new(
		'Libraries <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	10759	10882	
==>x; padding-bottom: 10px; }

    p, dl, pre, table { margin:      15px; }
    dt    { font-weight: bold; }
    dd+dt { margin <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12013	12110	
==>)      # capture argument list
     /"interpreter->vtables[$supertype].$method(" . full_arguments( <==
3	/Users/nnunley/parrot/languages/regex/test.pl	358	453	
==>This is still probably unix-only, because the parrot binary
# will have different names
my $PARR <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	1919	2034	
==>$da_file);
    my $src_filename = $da_file;
    $src_filename =~ s/\.da$/.c/;
    
    # gcov must be run from the d <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	2418	2513	
==>e enough.  Test::Builder provides the a
building block upon which to write your own test librari <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18158	18367	
==>string_bool(interpreter, {{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21321	21530	
==>string_bool(interpreter, {{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	3888	4057	
==>ption;
            
            next unless $short_desc;
            
            next if grep {$_ eq $short_desc} @short_desc;
            
            push @short_desc, <==
3	/Users/nnunley/parrot/languages/converter.pl	1127	1238	
==>eturn = '';
		  $return .= $item[1][0] if defined $item[1][0];
		  $return .= " ( $item[3] )(?) ";
		  $return . <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5755	5863	
==>_;

    return
        unless defined $self->{triggers}{$key}
        and defined $self->{triggers}{$key}{$tr <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6325	6433	
==>_;

    return
        unless defined $self->{triggers}{$key}
        and defined $self->{triggers}{$key}{$tr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561219	561395	
==>JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "fetchmethod",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562302	562478	
==>JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "fetchmethod",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	410	541	
==>ke',
    output_isnt       => 'isnt_eq'
                        );

foreach my $func ( keys %language_test_map ) {

  *{"Parrot::Tes <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27487	27607	
==>d = q{' . ($rule->hasleftmost($self) ? ''
				: $self->describe ) . '};
		' . ($self->{"lookahead"} ? '$_savetext = $text <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29597	29717	
==>d = q{' . ($rule->hasleftmost($self) ? ''
				: $self->describe ) . '};
		' . ($self->{"lookahead"} ? '$_savetext = $text <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31694	31814	
==>d = q{' . ($rule->hasleftmost($self) ? ''
				: $self->describe ) . '};
		' . ($self->{"lookahead"} ? '$_savetext = $text <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	28269	28398	
==>ethod = "rewrite_" . $op->{name};
        if ($self->can($method)) {
            return $self->$method($op, @{ $op->{args} }, $las <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421791	421883	
==>DY" => "#line 562 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_bind(interpreter, {{\@2}}, {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422684	422776	
==>DY" => "#line 562 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_bind(interpreter, {{\@2}}, {{ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6374	6544	
==>G>			$debug & 0x01
#DBG>		and	print STDERR "Don't need token.\n";
        }

            defined($act)
        and do {

                $act > 0
            and d <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6078	6240	
==>G>			$debug & 0x01
#DBG>		and	print STDERR "Don't need token.\n";
        }

            defined($act)
        and do {

                $act > 0
            and d <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	386	485	
==>Trans::C;

use strict;
use warnings;

use base qw( Parrot::OpTrans );

=item C<core_type()>

Returns <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	8	108	
==>ement.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is sub <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	8	108	
==>ement.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is sub <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	8	108	
==>ement.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is sub <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1938	2036	
==>ance Methods

=over 4

=item C<create_path()>

This is called from C<new()> to create the path if n <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	915	1013	
==>ance Methods

=over 4

=item C<create_path()>

This is called from C<new()> to create the path if n <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	29879	30007	
==>$v = pop @stack;
    my $w = pop @stack;
    my $x = pop @stack;
    push @stack, $v;
    push @stack, $x;
    push @stack, $w;
} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1214	1326	
==>"\n"
#
# to effect string interpolation.
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  confess " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	639172	639267	
==>onstants[arg_op[1]]->u.key;\n  ASSERT_SIG_PMC(sig);\n  if (!SIG_ELEMS(sig)) {\n        real_exce <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408953	409207	
==>E" => 472,
                  "ARGS" => [
                              "i",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 540 \"src/ops/io.ops\"\n    {{\@1}} = (INTV <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193469	193564	
==>"BODY" => "#line 320 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtab <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194448	194543	
==>"BODY" => "#line 320 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtab <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565206	565503	
==>an",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 64 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566098	566395	
==>an",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 64 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1330	1452	
==>alue, '"';
      }
    }
  }
  print $fh ">";
  return;
}

sub _handle_text {
  DEBUG and print "== \"$_[1]\"\n";
  if(leng <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	410209	410532	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "send",
                  "FLAGS" => ":b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411101	411424	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "send",
                  "FLAGS" => ":b <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	807	1038	
==>E.win32.pod                                [devel]doc
    README.win32.pod                                [devel]doc
    RESPONSIBLE_PARTIES                             [main]doc
    TODO                                            [ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8144	8267	
==>ent->text;
      
        my $value;

        if ($self->skip_assign) {
          $value = Jako::Construct::Expression::Valu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5150	5267	
==>ent->text;

        my $value;

        if ($self->skip_assign) {
          $value = Jako::Construct::Expression::Valu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502259	502515	
==>YPE" => "inline",
                  "CODE" => 577,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 626 \"src/ops/math.ops\"\n  {{\@1}} *= {{ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4459	4575	
==>"\n";';
    }
    return @ops;
}

sub output_classmatch {
    my ($self, $incexc, $failLabel) = @_;

    my $passLabe <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4796	4911	
==>"\n"';
    }
    return @ops;
}

sub output_classmatch {
    my ($self, $incexc, $failLabel) = @_;

    my $passLabe <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	467	576	
==>';

@args = qw(miniparrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->optio <==
3	/Users/nnunley/parrot/config/auto/memalign.pm	483	592	
==>';

@args = qw(miniparrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->optio <==
3	/Users/nnunley/parrot/config/auto/signal.pm	428	537	
==>';

@args = qw(miniparrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->optio <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	11390	11492	
==>Pugs, it is suggested you don't try anything
too funky.

- `cmp_ok (Str $got, Code &compare_func, Str $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1966	2062	
==>+$_[0]{'Indent'} }

sub   end_over_bullet  { --$_[0]{'Indent'} }
sub   end_over_number  { --$_[0] <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1534	1630	
==>+$_[0]{'Indent'} }

sub   end_over_bullet  { --$_[0]{'Indent'} }
sub   end_over_number  { --$_[0] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	725529	725823	
==>P" => 0,
                  "NAME" => "clone",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726290	726584	
==>P" => 0,
                  "NAME" => "clone",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812738	813032	
==>P" => 0,
                  "NAME" => "clone",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650602	650709	
==>ops\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtable_max)\n        {{\@1}} = 1;\n    else if ({{\@2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651524	651631	
==>ops\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtable_max)\n        {{\@1}} = 1;\n    else if ({{\@2 <==
3	/Users/nnunley/parrot/config/inter/make.pm	430	531	
==>Step qw( :inter capture_output check_progs );

$util        = 'make';
$description = "Determining whet <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	844	960	
==>ten into same output file
        open LANG, "> $lang_f" or die "Unable to open '$lang_f'"; # JMG
        binmode LAN <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	756	872	
==>ten into same output file
        open LANG, "> $lang_f" or die "Unable to open '$lang_f'"; # JMG
        binmode LAN <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	6716	6829	
==>s) = @_;

    my $const = bless {}, $class . '::Const';
    $self->{const} = $const;
    my @methods = @{ $self->{ <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	8358	8478	
==>inhf     complex.h
casinhl     complex.h
casinl      complex.h
catan       complex.h
catanf      complex.h
catanh      co <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1069	1169	
==>arrot = Parrot::Test::path_to_parrot();
        my $dir_count      = scalar(File::Spec->splitdir($pat <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1559	1654	
==>arrot = Parrot::Test::path_to_parrot();
        my $dir_count = scalar(File::Spec->splitdir($pat <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1571	1659	
==>prop_type_state, prop_stack_depth, lazy_moves
stack_depth = -1
prop_type_state = new Hash <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305649	305886	
==>_NULL({{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307218	307455	
==>_NULL({{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	3095	3188	
==>return keys %{$self->{c}};
}

=item C<dump()>

Provides a L<Data::Dumper> serialized string of <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	8907	9031	
==>h
cimagl      complex.h
clearerr    stdio.h
clock       time.h
clog        complex.h
clogf       complex.h
clogl       comple <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	145	240	
==>ot::Test::Harness - a test harness for languages built on Parrot

=head1 SYNOPSIS

Tell the harn <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	27111	27206	
==>ring representing an optimized pattern (a la Friedl)
# that matches a substring delimited by any <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015114	1015388	
==>p), \"ascii\", 0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015938	1016212	
==>p), \"ascii\", 0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29222	29318	
==>eturn $self->{vtable}{methods}[$n]{mmd} =~ /MMD/ ? 0 : 1;
}

=back

=head1 SUBCLASSES

=head2 Par <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	380	482	
==>base qw(Jako::Construct::Declaration);

use Jako::Construct::Type;


#
# new()
#

sub new
{
  my $class <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	380	482	
==>base qw(Jako::Construct::Declaration);

use Jako::Construct::Type;


#
# new()
#

sub new
{
  my $class <==
3	/Users/nnunley/parrot/languages/urm/urm-old.pl	1401	1498	
==>f ($1 ne $2) {print "Syntax error: Registers don't match!\n"; exit 1;}
	$register{$1} = eval( "$re <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9356	9472	
==>output_popint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);
    if ($self->{DEBUG}) {
        my $de <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9050	9166	
==>output_popint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);
    if ($self->{DEBUG}) {
        my $de <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	4820	4926	
==>join(", ", map({ $_->[1]} $self->args)) . ")");
      $compiler->emit("  .return(__result)");
    }
    els <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	466	578	
==>tput2");
		open(O, "_output2") || die;
		print <O>;
		close(O);
		print "\n";
	}
	
}

__DATA__
input a$,
print a$ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6871	6980	
==>mc.c", "$pmc.pmc")) {
        run("$PMC2C --c $pmc.pmc")
          or die "pmc2c code generation failed ($?)\n <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7082	7191	
==>mc.c", "$pmc.pmc")) {
        run("$PMC2C --c $pmc.pmc")
          or die "pmc2c code generation failed ($?)\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	33252	33543	
==>S" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set_addr",
                  "FLAGS" => "",
                  "ARGDIRS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	34040	34331	
==>S" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set_addr",
                  "FLAGS" => "",
                  "ARGDIRS <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18096	18200	
==>member {
}

sub _op_assq {
}

sub _op_assv {
}

sub _op_assoc {
}

sub _op_symbol_p {
}

sub _op_symbol_s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeSmart.pm	249	343	
==>ncodings {
  return Encode::->encodings(':all');
}

sub encoding_is_available {
  return Encode <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019873	1019962	
==>_localtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = string_from_cs <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020804	1020893	
==>_localtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = string_from_cs <==
3	/Users/nnunley/parrot/config/init/defaults.pm	4422	4533	
==>static_linking => 1,
        has_dynamic_linking => 0,

        # default behaviour for linking parrot to a stat <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	6388	6488	
==>here are two exceptions.  The outermost "GUARD" ifdef doesn't increase
    # the indenting level.  Ne <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7169	7262	
==>, bogus$, "t")
' instr() tests
s1$="Mixed case"
print ucase$(s1$);" Upper"
print lcase$(s1$);" <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18898	18991	
==>, bogus$, "t")
' instr() tests
s1$="Mixed case"
print ucase$(s1$);" Upper"
print lcase$(s1$);" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358301	358563	
==>"FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 419,
                  "ARGS" => [
                              "nc <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	51925	52025	
==>gco)
			{
				_parse("an reject marker", $aftererror,$line);
				$item = new Parse::RecDescent::Uncon <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	14437	14533	
==>$ref, $_->reftree()) foreach (@{ $op->{args} });
    return $ref;
}

sub Regex::Ops::Tree::multi_ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35656	35785	
==>th zero (which is
normal).  If anything failed it will exit with how many failed.  If
you run less (or more) tests than you planne <==
3	/Users/nnunley/parrot/lib/Test/More.pm	33727	33856	
==>th zero (which is
normal).  If anything failed it will exit with how many failed.  If
you run less (or more) tests than you planne <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2523	2652	
==>th zero (which is
normal).  If anything failed it will exit with how many failed.  If
you run less (or more) tests than you planne <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2064	2333	
==>, 1000000.0
$N1 = $N1 / $N2;              # div    N1, N1, N2
                              #
print "M op/s:        $N1\n"; # print  "M op/s:        "
                              # print  N1
                              # print  "\n"
                              #
e <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	2064	2333	
==>, 1000000.0
$N1 = $N1 / $N2;              # div    N1, N1, N2
                              #
print "M op/s:        $N1\n"; # print  "M op/s:        "
                              # print  N1
                              # print  "\n"
                              #
e <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3814	3923	
==>$prm'");
			ref($value) eq $$checklist{$prm}
		or	croak("Invalid value for parameter '$prm'");
        $prm <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3619	3725	
==>$prm'");
			ref($value) eq $$checklist{$prm}
		or	croak("Invalid value for parameter '$prm'");
        $prm <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	1134	1234	
==>es. XXX This should go away
# Once PMI ports his lovely new perl6 code back into APL.

.sub "__load_p <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	4578	4711	
==>it /\n/, $ignore{$dir}) {
        s/\./\\./g; s/\*/.*/g;
        print $SKIP
            $dir ne '.' ?
            "^$dir/$_\$\n^$dir/ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2087	2185	
==>) {
      my $arg_sym = $self->block->find_symbol($args[$i]->value);
      $self->SYNTAX_ERROR("Und <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1787	1885	
==>) {
      my $arg_sym = $self->block->find_symbol($args[$i]->value);
      $self->SYNTAX_ERROR("Und <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3492	3634	
==>$$self{LEX};
}


#################
# Private stuff #
#################


sub _CheckParams {
	my($mandatory,$checklist,$inarray,$outha <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3314	3446	
==>$$self{LEX};
}


#################
# Private stuff #
#################


sub _CheckParams {
	my($mandatory,$checklist,$inarray,$outha <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19548	19672	
==>' => 36
		},
		GOTOS => {
			'exp' => 100,
			'functioncall' => 31,
			'explist1' => 109,
			'function' => 26,
			'tab <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284689	284856	
==>"s",
                              "s"
                            ],
                  "BODY" => "#line 913 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	996	1119	
==>'));
    print OUT "    enum_class_default,\n";
    my $i = 1;
    foreach (@pmcs) {
        print OUT "    enum_class_$_,\t <==
3	/Users/nnunley/parrot/lib/Test/More.pm	12201	12301	
==>_ok($ref,    $type,  $ref_name);

Checks to see if the given C<< $object->isa($class) >>.  Also check <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	11226	11380	
==>e, my $line) = caller();
               $desc = "($file line $line)";
            }

            # $test_no will be part of temporary file
            my $ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	16711	16865	
==>e, my $line) = caller();
               $desc = "($file line $line)";
            }

            # $test_no will be part of temporary file
            my $ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/EditorPlugins.pm	389	484	
==>2 Class Methods

=over

=cut

package Parrot::Docs::Section::EditorPlugins;

use strict;
use war <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	15764	15864	
==>e

    pointer =  (func_t)D2FPTR(PMC_struct_val(self));
    $temp_in
    $return_assign ($ret_type)(* <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	31460	31558	
==>set C</["'`]/> is used. If the text to be processed
is not specified either, C<$_> is used.

In lis <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2720	2809	
==>self->name unless $silent;
	
	foreach my $content ($self->contents_relative_to_source($sou <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429685	429774	
==>" => "#line 74 \"src/ops/math.ops\"\n  mmd_dispatch_v_ps(interpreter, {{\@2}}, {{\@3}}, {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430572	430661	
==>" => "#line 74 \"src/ops/math.ops\"\n  mmd_dispatch_v_ps(interpreter, {{\@2}}, {{\@3}}, {{ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	40058	40204	
==>t) {
          $link_text->[-1] .= ' in ' if $section_name;
          push @$link_text, @ell_content;
        }
      }


      # And the E resolve <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	7638	7725	
==>p Parrot_jit_normal_op
#define Parrot_jit_vtable_1r332_op Parrot_jit_normal_op
#define P <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12898	13015	
==>le
					  conditional <error?> directive would 
					  normally succeed (with the value zero) if the
					  rule is no <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2157	2245	
==>directory_with_name('compilers')->directory_with_name('imcc'),
        $self->directory_w <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606496	606716	
==>> 687,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 441 \"src/ops/object.ops\"\n    Parrot_add_attri <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	755	878	
==>$part =~ s/\n/\\n/g;
            push @ops, $self->output_print("\"$part\"");
        }
    }
    return @ops;
}

sub render <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	31237	31348	
==>ndo our clobbering:
            push @$para, $para->[1]{'~orig_content'};
            delete $para->[1]{'number' <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7186	7298	
==>($1 ne $indent) {
                error($file, $line, "Improper indenting for \"$_\"\n(should be \"#$indent$2\" b <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7493	7605	
==>($1 ne $indent) {
                error($file, $line, "Improper indenting for \"$_\"\n(should be \"#$indent$2\" b <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7851	7963	
==>($1 ne $indent) {
                error($file, $line, "Improper indenting for \"$_\"\n(should be \"#$indent$2\" b <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2126	2275	
==>>{arg2}->{symbol}\n";
        }
    }

    sub visitRelationalOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	1826	1943	
==>COPE}     }
sub kind   { return shift->{KIND};     }
sub type   { return shift->{TYPE};     }
sub name   { return shif <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2909	3025	
==>gacy for laquo
 'rchevron' => 187, # legacy for raquo

 # Remember, grave looks like \ (as in virtu\)
 #           ac <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	532476	532714	
==>"inline",
                  "CODE" => 615,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 877 \"src/ops/math.ops\"\n  {{\ <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11947	12040	
==>n a name or number that could appear in a
C<EE<lt>name_or_numE<gt>> sequence, this returns the <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12444	12537	
==>n a name or number that could appear in a
C<EE<lt>name_or_numE<gt>> sequence, this returns the <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026082	1026366	
==>E" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1147,
                  "AR <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5380	5494	
==>verbose') == 2;

    print "Looking up all triggers on configuration key $key\n"
        if $verbose;

    return C <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	11362	11471	
==>git     ctype.h
isfinite    math.h
isgraph     ctype.h
isgreater   math.h
isgreatereq math.h
isinf       math. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804834	805154	
==>"i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 908,
                  "ARGS" => [
                              "p",
                              "kc",
                              "p"
                            ],
                  "BODY" => "#line 472 \"src/o <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3142	3272	
==>py)
              | (\w+) )
    ]sx;

    while ($source =~ m[$regex]go) {
        my ($name, $expl, $body, $out) = ($1, $2, $3, ch <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41379	41523	
==>" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86
		},
		DEFAULT => -111
	} <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5545	5652	
==>=$$stack[-1][0];
        $actions=$$states[$stateno];

#DBG>	print STDERR ('-' x 40),"\n";
#DBG>		$debug <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5278	5381	
==>=$$stack[-1][0];
        $actions=$$states[$stateno];

#DBG>	print STDERR ('-' x 40),"\n";
#DBG>		$debug <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905944	906328	
==>",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1021,
                  "ARGS" => [
                              "s",
                              "p",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 262 <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	9238	9351	
==>ew_code;
    if(ASCII) {
      # A good-enough check that it's good as an XML Name symbol:
      Carp::croak "\"$n <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10502	10615	
==>ew_code;
    if(ASCII) {
      # A good-enough check that it's good as an XML Name symbol:
      Carp::croak "\"$n <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	373	483	
==>arser->YYData->{srcname}, ':',
        $parser->YYData->{lineno}, ': ', $msg
        if ( exists $parser->YYD <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	839	949	
==>arser->YYData->{srcname}, ':',
        $parser->YYData->{lineno}, ': ', $msg
        if ( exists $parser->YYD <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1297	1407	
==>arser->YYData->{srcname}, ':',
        $parser->YYData->{lineno}, ': ', $msg
        if ( exists $parser->YYD <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18046	18173	
==>econstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 48
		ACTIONS => {
			"-" => 24,
			'NAME' => 4, <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	2503	2622	
==>->tagname;

    if ( $tagname eq 'L' ) 
    {
        $self->process_link_start_token($token);
    }
    elsif ( $tagnam <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	1977	2087	
==>ith size 2, conversion ops might fail!

END
    }
    if ($results{shortsize} == 4) {
        $conf->data->set( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650479	650653	
==>"i",
                              "i"
                            ],
                  "BODY" => "#line 247 \"src/ops/pmc.ops\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter- <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	19733	19882	
==>meth";
        }
        # normal vtable method}
        unless ($method->{mmd} =~ /MMD_/) {
            push @meths, $meth_name;
        }
        $d <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1216	1351	
==>ping algorithm:
      s/(
         [^\n]{55}         # Snare some characters from a line
         [^\n\ ]{0,50}     #  and finish any cu <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1160	1295	
==>ping algorithm:
      s/(
         [^\n]{55}         # Snare some characters from a line
         [^\n\ ]{0,50}     #  and finish any cu <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	13523	13630	
==>";
}

print JITCPU @jit_funcs, "};\n";

if ($genfile =~ /jit_cpu.c/) {
    print JITCPU <<"EOC";
    PARROT_ <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2657	2758	
==>v_file = $file; $dev_file =~ s/(.*)\.c$/docs\/dev\/$1.dev/g;
    return if -f $dev_file;

    info($fi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807877	807970	
==>"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808782	808875	
==>"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4} <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	7502	7695	
==>pcodes2;
                return [ $result, \@opcodes1 ];
            }
        }
        else {
            $key = $field->[0];
            $val = $field->[1];
        }
        push @op <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	3403	3513	
==>d dispatch.
	if ($syms[CURR] =~ /^(	
		while | wend | dim | type | exit | function | for | next |
		do | loop | <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2714	2817	
==>indent||0) );
   # Yes, 'STRING' x NEGATIVE gives '', same as 'STRING' x 0

  $self->{'Thispara'} =~ tr{ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2248	2351	
==>indent||0) );
   # Yes, 'STRING' x NEGATIVE gives '', same as 'STRING' x 0

  $self->{'Thispara'} =~ tr{ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20307	20419	
==>2)
for i = -1 to 1
	print "Sign of ";i;" is ",sgn(i)
next i


' "shared" Whoa, 66666, Goodbye, 909090, 101010
typ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1806	1899	
==>}
}

=item C<goto_offset($offset)>

Transforms the C<goto OFFSET($offset)> macro in an ops fil <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2174	2267	
==>}
}

=item C<goto_offset($offset)>

Transforms the C<goto OFFSET($offset)> macro in an ops fil <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	4811	4918	
==>r = $_[2];
	my $line  = $_[3];
	my $replace = $_[4];

	if (defined $owner->{"rules"}{$name})
	{
		my $self = <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1769	1851	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _xml_e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760465	760665	
==>S" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 286 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}}->vtable->get_ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	38403	38530	
==>ector,
  'vector-fill!'  => \&_op_vector_fill_bang,

###
### Control features
###

  'procedure?'                      => \&_op_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	97734	97998	
==>ME" => "bnot",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	99133	99397	
==>ME" => "bnot",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	698	791	
==>MOKES_OF_SAME_CATEGORY => 5,
};
$CGI::POST_MAX = MAX_SIZE;
chdir BASEDIR or die "Couldn't chdi <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	2351	2470	
==>$_[2]+$c' . $MSK . ', $_[3]+$d' . $MSK . ';
  }';
  eval $dump;
  #print "$dump\n";
  #exit 0;
}

gen_code();


# object <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	35781	35893	
==>nock off the 'L' and {} bits

      DEBUG > 3 and print " Ell content to start: ",
       pretty(@ell_content), " <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	2269	2368	
==>ex = $self->pos unless defined $index;

  $count = 1 unless defined $count;

  $self->INTERNAL_ERROR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135495	135604	
==>\@1}} = string_bitwise_xor(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136389	136498	
==>\@1}} = string_bitwise_xor(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137283	137392	
==>\@1}} = string_bitwise_xor(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45797	45890	
==>??)>';
my $MSGERRORMK		= '\G\s*<error(\??):';
my $UNCOMMITPROD	= $PROD.'\s*<uncommit';
my $ERR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411020	411133	
==>\"\n    {{\@1}} = (INTVAL)PIO_send(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411913	412026	
==>\"\n    {{\@1}} = (INTVAL)PIO_send(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Test/More.pm	25018	25115	
==>ctionality
along these lines.

=back

=cut

use vars qw(@Data_Stack %Refs_Seen);
my $DNE = bless [ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	673	771	
==>->peer ? $peer->prefix : $compiler->block_label($kind);
    $self->prefix($prefix);
  }

  my $name <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	653	751	
==>->peer ? $peer->prefix : $compiler->block_label($kind);
    $self->prefix($prefix);
  }

  my $name <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	779	871	
==>xpected> is the unexpected result.
The parameter C<$description> should describe the test.

A <==
3	/Users/nnunley/parrot/config/gen/icu.pm	3455	3584	
==>eader '$header' not found\n";
            }
        }
    }

    die <<"HELP" unless $ok; # this text is also in Configure.PL!
Som <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	191	293	
==>tion of Configuration Steps

=head1 SYNOPSIS

    use Parrot::Configure;

    my $conf = Parrot::Config <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	70018	70113	
==>line) = @_;
	pos($grammar)=pos($_[2]);
	return if $grammar =~ m/$OPTIONAL/gco || $grammar =~ m/$ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	8038	8168	
==>l produce something like this:

    not ok 17 - Is foo the same as bar?
    #     Failed test (foo.t at line 139)
    #          go <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8340	8438	
==>ht.
PRE_STORE_${CURIC}_CONT:
dec stack_depth
PIR
	}

	return $pir;
}

sub post_store($) {
	my $self <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	42799	42927	
==>ater.
  }

  if( DEBUG > 4 ) {
    print "<<\n";
    for(my $i = $#$p; $i >= 2; $i--) { # work backwards over the lines
      pri <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6853	6947	
==>7890"
print mid$(t$, 2, 8)
print left$(t$, 5)
print right$(t$, 5)
' instr
s1$="The longer strin <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18582	18676	
==>7890"
print mid$(t$, 2, 8)
print left$(t$, 5)
print right$(t$, 5)
' instr
s1$="The longer strin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	195970	196391	
==>> [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 232,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#li <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27315	27442	
==>econstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 84
		ACTIONS => {
			"-" => 24,
			'NAME' => 4, <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1518	1610	
==>When you do $parser->get_token on a L<Pod::Simple::PullParser>, you should
get an object of a <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	544	647	
==>hes
# atend : At the end of the input?
# advance : Unconditionally advance 1 char
# code : Embedded code <==
3	/Users/nnunley/parrot/tools/docs/pod_errors.pl	532	628	
==>s(1, $ignore))
{
	next unless $file->contains_pod;
	next unless $file->num_pod_errors;
	
	my $err <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5082	5192	
==>);
    my $pass = $self->output_label_use($passLabel);

    while (@$incexc) {
        my $first = shift(@$ince <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4757	4867	
==>);
    my $pass = $self->output_label_use($passLabel);

    while (@$incexc) {
        my $first = shift(@$ince <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17216	17319	
==>",
      $self->_dump_curr_open(), ")\n";
    
    if($para_type eq '=for') { #///////////////////////// <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	368	474	
==>RM::Base/;

# Constructor. Just base this class on a hash.
sub new() {
	my $invocant = shift;
	return bless <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	274	380	
==>RM::Base/;

# Constructor. Just base this class on a hash.
sub new() {
	my $invocant = shift;
	return bless <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	182	288	
==>RM::Base/;

# Constructor. Just base this class on a hash.
sub new() {
	my $invocant = shift;
	return bless <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207861	208158	
==>GS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 245,
                  "ARGS" <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	1824	1954	
==>hmark python]
    exe       = /usr/local/bin/python
    type      = .py

    [benchmark ruby]
    exe       = /usr/bin/ruby
    typ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3039	3144	
==>{$$self{STACK}}
	and	return $$self{STACK}[$index][1];

	undef;	#Invalid index
}

sub YYCurtok {
	my <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2892	2990	
==>{$$self{STACK}}
	and	return $$self{STACK}[$index][1];

	undef;	#Invalid index
}

sub YYCurtok {
	my <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14110	14205	
==>rn,1]);
    $self->_add_inst ('', 'branch', ["DONE_$label"]);
    $self->_add_inst ("FAIL_$label <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	10278	10373	
==>of each element is
prefixed with the class name (see I<Perl Cookbook>, Recipe 13.12).

A functio <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16380	16471	
==>rn,1]);
  $self->_add_inst ('', 'branch', ["DONE_$label"]);
  $self->_add_inst ("FAIL_$label <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118497	118727	
==>" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 226 \"src/ops/bit.ops\"\n  {{\@1}} >>= {{\@2}};\n  {{+=3}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	26766	26889	
==>, $fallback);
        push @ops, @rewritten;
        $fallback = $back;
    }

    return ($fallback, @ops);
}

sub rewrite_ <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	5060	5178	
==>unnecessary.
                $asm =~ s/\)->u\.(\w+)/)/g;
                $asm =~ s/CONST\((\d)\)\s*([><=!]=?)\s*CONST\( <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	36359	36482	
==>ar<?'           => \&_op_char_lt_p,
  'char>?'           => \&_op_char_gt_p,
  'char<=?'          => \&_op_char_le_p,
  'cha <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1888	1986	
==>nt'} }
sub start_over_text    { ++$_[0]{'Indent'} }
sub start_over_block   { ++$_[0]{'Indent'} }

s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1456	1554	
==>nt'} }
sub start_over_text    { ++$_[0]{'Indent'} }
sub start_over_block   { ++$_[0]{'Indent'} }

s <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29088	29205	
==>\\}/g;
	$desc=~s/{/\\{/g;

	bless 
	{
		"pattern"     => $pattern,
		"lookahead"   => $_[2],
		"line"        => $_[3], <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31192	31303	
==>\\}/g;
	$desc=~s/{/\\{/g;

	bless 
	{
		"pattern"   => $pattern,
		"lookahead" => $_[2],
		"line"      => $_[3], <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	34198	34308	
==>t->[$i]} == 3 and ! ref $treelet->[$i][2]) {
        my $it = $treelet->[$i][2];
        if($it =~ m/^[-a-zA-Z0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743322	743543	
==>ODE" => 836,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 174 \"src/ops/set.ops\"\n  {{\@1}} = string <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4669	4808	
==>uct::Label->new($block, $ident);
      next;
    }

    #
    # Modules:
    #
    #   module <ident> [:<prop>[=<value] ...] {
    #

    if <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	11441	11550	
==>of the file where output is written.
            # Switch to a different extension when we are generating code <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	2941	3088	
==>HASH' ){
            $elem = "{'${class}::$name'}";
        }
        elsif( $base_type eq 'ARRAY' ){
            $elem = "[$cnt]";
            ++$c <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14123	14213	
==>self->_add_inst ('', 'branch', ["DONE_$label"]);
    $self->_add_inst ("FAIL_$label", 'set' <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16391	16479	
==>self->_add_inst ('', 'branch', ["DONE_$label"]);
  $self->_add_inst ("FAIL_$label", 'set' <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	5222	5321	
==>ccept_codes'      => { map( ($_=>$_), @Known_formatting_codes ) },
    'accept_directives' => { %Kno <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	595	692	
==>the package that all subsequent sub PMCs will be put
into. The name is a simple concatenation of t <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	5205	5302	
==>-%s-%s",
      $_[0]->{DEVEL} eq "devel" ? "repository snapshot" : "release",
	  runcore2human($_[ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828698	828791	
==>l_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_PMC) {\n    in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829766	829859	
==>l_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_PMC) {\n    in <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	25952	26068	
==>tart_line'},
        "Format for second =extend parameter must be like"
        . " M or 1 or 0 or M,N or M,N,O but y <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	463	567	
==>.  This script is used for building
dynamic PMCs.

=cut

use strict;

use File::Copy qw(copy);

# qq[] is <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	425	529	
==>.  This script is used for building
dynamic PMCs.

=cut

use strict;

use File::Copy qw(copy);

# qq[] is <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887834	888165	
==>TYPE" => "inline",
                  "CODE" => 1004,
                  "ARGS" => [
                              "s",
                              "s",
                              "i",
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 252 \"src <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	7728	7833	
==>one = 0 # parrot's 0 == APL's 1
loop_one:
    unless iter_one goto loop_one_end
    item_one = shift iter_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	1471	1563	
==>ate_final_pir($srm, $metavars);

# Finally, we need to insert auto-magically instantiated loc <==
3	/Users/nnunley/parrot/config/init/hints/linux.pm	1311	1452	
==>_GNU_SOURCE';
    }

    $conf->data->set(
        ccflags        => $cflags,
        libs           => $libs,
        ld_share_flags => $ld_s <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6915	7023	
==>upply the register to load
	# into here. Note that we must clear up any lazy moves we have not
    # done fir <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	25444	25545	
==>_, @Known_formatting_codes) {
      DEBUG > 2 and print " $new_letter isn't a good thing to extend, be <==
3	/Users/nnunley/parrot/config/gen/platform.pm	3014	3136	
==>erbose && $verbose == 2;
            open IN_H, "< $_" or die "Can't open $_: $!";
            print PLATFORM_H <<"END_HERE <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	809	903	
==>>

The library directory. Defaults to '/usr/lib'.

=item C<includedir>

The header directory. D <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	1038	1132	
==>>

The library directory. Defaults to '/usr/lib'.

=item C<includedir>

The header directory. D <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	23992	24167	
==>code = run_command($cmd,
                                     'STDOUT' => $build_f,
                                     'STDERR' => $build_f);
            $builder->diag("'$cm <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	24753	24928	
==>code = run_command($cmd,
                                     'STDOUT' => $build_f,
                                     'STDERR' => $build_f);
            $builder->diag("'$cm <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	933237	933372	
==>"s"
                            ],
                  "BODY" => "#line 420 \"src/ops/string.ops\"\n  string_upcase_inplace(interpreter, { <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2799	2900	
==>stack operation (op class instructions) hooks.
sub pre_op($$) {
	my $self = shift;
	my ($pops, $pushes <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1721	1822	
==>stack operation (op class instructions) hooks.
sub pre_op($$) {
	my $self = shift;
	my ($pops, $pushes <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	910	1011	
==>stack operation (op class instructions) hooks.
sub pre_op($$) {
	my $self = shift;
	my ($pops, $pushes <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93342	93564	
==>ise_and(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94122	94344	
==>ise_and(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	1317	1449	
==>$self->get_test_prog( $count, \%options );

        # This does not create byte code, but bc code
        {
            my $parrotdir <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2665	2789	
==>8'.\n";
        $self->_handle_encoding_line( "=encode utf8" );
        $line =~ tr/\n\r//d;
        
      } elsif( $line =~ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	31101	31194	
==>{
}

sub _op_current_input_port {
}

sub _op_current_output_port {
}

sub _op_with_input_to_fi <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	6372	6482	
==>le section
    my $vt = $self->{vtable};
    foreach my $entry (@{ $vt->{methods} } ) {
	$self->{all}{$entry->{ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	5993	6084	
==>d_as_html()>

Runs C<Parrot::Docs::POD2HTML> on the contents of the file. Executable files
a <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	10413	10513	
==>lmsg "Did not find closing tag", pos $$textref unless $@;
	pos($$textref) = $startpos;
	return;
}

su <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	291	387	
==>RIPTION

A documentation section describing all the dynamic PMCs.

=head2 Class Methods

=over

= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16930	17246	
==>=> "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 23,
                  "ARGS" => [
                              "n" <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	7323	7447	
==>they are inherited from $self
            $const->{super}{$meth} = $self->{class};
        }
    }
    # copy parent(s), prep <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	158	265	
==>|= 0;

use strict;
use vars qw($VERSION);
$VERSION = '0.30';
$VERSION = eval $VERSION;    # make the alpha v <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682902	683074	
==>"s",
                              "p"
                            ],
                  "BODY" => "#line 517 \"src/ops/pmc.ops\"\n    {{\@1}} = {{\@2}}->vtable->shift_string <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15579	15700	
==>Dir( $parser,
        'result' => $result,
    );
    push @opcodes, new AssignOp( $parser,
        'result' => $resul <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19332	19453	
==>Dir( $parser,
        'result' => $result,
    );
    push @opcodes, new AssignOp( $parser,
        'result' => $resul <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15264	15363	
==>^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } el <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16445	16544	
==>^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } el <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	13590	13686	
==>name=skipped>,</td>
	      <td class="num tests_unexpect"><tmpl_var name=unexpect></td>
	    </tm <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	4543	4694	
==>tlist'),
            $self->c_pair_item('', 'list'),
        ),
        $self->new_group(
            'PMCs', 
            '',
            $self->c_pair <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	19815	19940	
==>localized:

    {
        local $Test::Builder::Level = 2;
        $Test->ok($test);
    }

=cut

sub level {
    my($self, $l <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1897	1994	
==>>SUPER::new($path);
}

=back

=head2 Instance Methods

=over 4

=item C<create_path()>

This is ca <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	874	971	
==>>SUPER::new($path);
}

=back

=head2 Instance Methods

=over 4

=item C<create_path()>

This is ca <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	17494	17586	
==>rser->set_source( \@document_lines )

=back

Or you can call these methods, which Pod::Simple <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2762	2870	
==>into the relevant C
code.

=cut

sub goto_pop
{
    my ($self) = @_;

    return "opcode_t* pop_addr = (opcod <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4670	4770	
==>rgument, given as --destination=DIRECTORY
    shift(@pmcs) =~ /--destination=(.*)/
      or die "copy <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4774	4874	
==>rgument, given as --destination=DIRECTORY
    shift(@pmcs) =~ /--destination=(.*)/
      or die "copy <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	2634	2736	
==>g, $Help, $Version);

sub show_version {
    print "$ME: $VERSION ( $RCS_DATE)\n";
}

sub show_help {
p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353669	353760	
==>ring_length(interpreter, s)) {\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n  } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354414	354505	
==>ring_length(interpreter, s)) {\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n  } <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2510	2630	
==>elf->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  if (defined $cond) {
    $h <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3184	3304	
==>elf->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  if (defined $cond) {
    $h <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3274	3394	
==>elf->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  if (defined $cond) {
    $h <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16342	16463	
==>ft  = Jako::Construct::Expression::Value->new($block, $self->forth);
      my $op    = $self->forth->text;
      my $right <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17113	17234	
==>ft  = Jako::Construct::Expression::Value->new($block, $self->forth);
      my $op    = $self->forth->text;
      my $right <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17918	18039	
==>ft  = Jako::Construct::Expression::Value->new($block, $self->forth);
      my $op    = $self->forth->text;
      my $right <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	4962	5050	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub new {
  # t <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	11924	12041	
==>revision' => 0,
             'rm_f' => 'perl -MExtUtils::Command -e rm_f',
             'rm_rf' => 'perl -MExtUtils::C <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	15901	16024	
==>lder->diag("'$cmd' failed with exit code $exit_code")
                  if $exit_code and not $pass;

            unless($EN <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	18452	18575	
==>lder->diag("'$cmd' failed with exit code $exit_code")
                  if $exit_code and not $pass;

            unless($EN <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	25494	25599	
==>lder->diag("'$cmd' failed with exit code $exit_code") if $exit_code and not $pass;

            unless($EN <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094710	1094970	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exec",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095404	1095664	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exec",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	443	594	
==>or
       $ch eq ')') {
      push @$tokref,$token;
      $token = $ch;
    } elsif($ch eq '-' and
            ($token =~ /^[a-z]/ or               # Da <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	8317	8445	
==>{ my $t = $_; $t =~ s/\.ops$/.pod/; "ops/$t" } @ops;

        $conf->data->set(pod => $pod);

        genfile(
            'confi <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	4	92	
==>d: /parrot/languages/regex/lib/Regex/CodeGen/Re.pm 18978 2006-04-30T14:02:48.452322Z bern <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499479	499586	
==>\"src/ops/math.ops\"\n  {{\@1}} = floatval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500242	500349	
==>\"src/ops/math.ops\"\n  {{\@1}} = floatval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	3633	3739	
==>^.*[/\\]!!;
    $include = "${base}_ops${suffix}.h";
    $dynamic_flag = 1;
}

my $sym_export = $dynamic_fl <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	3960	4080	
==>Rating     eq 'R',             'Rating() get'   );
    ok( $btaste->NumExplodingSheep == 1,        'NumExplodingSheep() g <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1108675	1108802	
==>0)\n                real_exception(interpreter, NULL, NO_CLASS,\n                    \"Class '%Ss' not found\", readable_name(in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630545	630656	
==>0)\n        real_exception(interpreter, NULL, NO_CLASS,\n            \"Class '%Ss' not found\", readable_name(in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631535	631646	
==>0)\n        real_exception(interpreter, NULL, NO_CLASS,\n            \"Class '%Ss' not found\", readable_name(in <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	1505	1623	
==>g quote?)" if ( $cur eq -1 or $cur eq "\n");
			append;
			fetch;
		}
		append;
		$curtok=~s/^"|"$//g;    # Remove quot <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	479	594	
==>rgs!" unless @_ == 5;

  my ($block, $prefix, $left, $op, $right) = @_;

  my $self = bless {
    BLOCK     => $bloc <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	479	594	
==>rgs!" unless @_ == 5;

  my ($block, $prefix, $left, $op, $right) = @_;

  my $self = bless {
    BLOCK     => $bloc <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	1602	1708	
==>= FileHandle->new($file, O_RDONLY) or
        die "Can't open $file for reading: $!\n";
    my $section = ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472967	473191	
==>,
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 394 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_except <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11859	11954	
==>{
			($ac,@args)=pushargs(\@code, \$optype, \@work);
			$pir_args = join(",", map {$_->[0]} (rev <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	12269	12364	
==>{
			($ac,@args)=pushargs(\@code, \$optype, \@work);
			$pir_args = join(",", map {$_->[0]} (rev <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	11267	11398	
==>lc($e);
    $norm =~ tr[-_][]d;
    my $n;
    foreach my $enc (@supported) {
      $n = lc($enc);
      $n =~ tr[-_][]d;
      next <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	1552	1655	
==>str($$textref,$extrapos,$extralen,"\n")} ;
				#REARRANGE HERE DOC AND FILLET IF POSSIBLE
			pos($$textr <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	17324	17421	
==>{'from'=>$thisoffset, 'to'=>undef},
				'line'   => {'from'=>$thisline,   'to'=>undef},
				'colum <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	220305	220724	
==>IRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 258,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	26737	26840	
==>NED) CALAMITY
	$mod =~ s/[gc]//g;
	$pattern =~ s/(\A|[^\\])\\G/$1/g;

	bless 
	{
		"pattern"   => $patte <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	6046	6144	
==>ne. So + 1 again.
    return $self->line_directive(1 + 1 + count_newlines($output), $file);
}

=ite <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544270	544387	
==>\n INTVAL saved_var1 = a, saved_var2 = b; \n\n if(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545606	545723	
==>\n INTVAL saved_var1 = a, saved_var2 = b; \n\n if(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546942	547059	
==>\n INTVAL saved_var1 = a, saved_var2 = b; \n\n if(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) { <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8772	8894	
==>eturn @ops;
}

sub output_peekindex {
    my $self = shift;
    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fa <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8432	8554	
==>eturn @ops;
}

sub output_peekindex {
    my $self = shift;
    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fa <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2869	2978	
==>$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUOTE";
}

our $NOW = time() <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3178	3287	
==>$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUOTE";
}

our $NOW = time() <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2973	3082	
==>$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUOTE";
}

our $NOW = time() <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4491	4598	
==>ess defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "Extra arguments!" if @_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4998	5105	
==>ess defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "Extra arguments!" if @_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10400	10507	
==>ess defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "Extra arguments!" if @_ <==
3	/Users/nnunley/parrot/languages/regex/test.pl	2177	2290	
==>} else {
        usage "too many args!";
    }
}

usage "not enough args: testfile required"
  if ! defined $testf <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	4881	4989	
==>s successful
    4     SS$_ABORT         something went wrong

Unfortunately, I can't differentiate any furth <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	426	529	
==>', # the scalarref we're reading from
  'source_arrayref',   # the arrayref we're reading from
);

#@@@@ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	66912	67031	
==>ule",
					       $line);
					_hint("Repeated subrules like \"$code$argcode$&\" cannot have
					       a maximum repet <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	16366	16471	
==>nd pop_all (typed eh)\n";
    my $pre_load = $srm->pre_load(0);
	$pir .= "### pre_load (typed eh)\n";
	$pi <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	14247	14339	
==>x/);
  $Test->maybe_regex('/$regex/');

Convenience method for building testing functions tha <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	18706	18814	
==>heck}{itempos};

	my $item;
	my $i;

	for ($i = 0; $i < @{$self->{"items"}}; $i++)
	{
		$item = ${$self->{ite <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189736	189826	
==>ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) < {{\@2}}) {\n    { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190677	190767	
==>ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) < {{\@2}}) {\n    { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943911	944184	
==>}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "charset <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944700	944973	
==>}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "charset <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629420	629510	
==>e = pmc_type(interpreter, class);\n    if (!type) {\n\tParrot_autoload_class(interpreter, c <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6940	7058	
==>get[-1]->tagname eq $tagname;
    }
    
    # Convert them into an anchor name;
    
    my $name = $self->linearize_t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81955	82067	
==>l_exception(1, \"don't use compile - just invoke the compiler\");\n  {{+=4}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82849	82961	
==>l_exception(1, \"don't use compile - just invoke the compiler\");\n  {{+=4}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650759	651017	
==>)\n        {{\@1}} = 1;\n    else\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651681	651939	
==>)\n        {{\@1}} = 1;\n    else\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6351	6447	
==>_HTML};
}

=item C<is_docs_link()>

Returns whether the file is suitable for inclusion in a docum <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2302	2402	
==>ion of identifier '%s' within same block. Previous declaration on line %d of file '%s'.",
      $self <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	272	368	
==>tines specific to 'HQ9plus'.

=head1 DESCRIPTION

Call HQ9plus.pbc

=head1 METHODS

=head2 new

= <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	1615	1707	
==>egex::Ops::Tree::_onearg);
@Regex::Ops::Tree::atend::ISA        = qw(Regex::Ops::Tree);
@Rege <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	585	678	
==>s "Block undefined." unless defined $block;
  confess "Token undefined." unless defined $token <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	892	980	
==>dent is not!" if defined $ident and not UNIVERSAL::isa($ident, 'Jako::Construct::Expressi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	920	1008	
==>dent is not!" if defined $ident and not UNIVERSAL::isa($ident, 'Jako::Construct::Expressi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853417	853691	
==>}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854199	854473	
==>}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	5339	5451	
==>ring'
    unless iter goto loop_end_2d
  loop_2d:
    newline = 0
    if pos != row_size goto cont_2d
    newline <==
3	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	1952	2062	
==>n from the line above
name:               m/[a-zA-Z0-9_-]{$::name_len}/ 

# length is known from the line above <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11566	11667	
==>ck, $self->forth);

      $self->require_semicolon;

      my $arith = Jako::Construct::Statement::Ari <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16511	16612	
==>ck, $self->forth);

      $self->require_semicolon;

      my $arith = Jako::Construct::Statement::Ari <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	18152	18318	
==>=> 1,
        name      => '',
        type      => 'skip',
        reason    => $why,
    });

    my $out = "ok";
    $out   .= " $self->{Curr_Test}" if $self->use_n <==
3	/Users/nnunley/parrot/config/auto/snprintf.pm	698	814	
==>lean();

    if ($res =~ /snprintf/) {
        $conf->data->set(HAS_SNPRINTF => 1);
    }
    if ($res =~ /^C99 snpri <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	23482	23614	
==>int', [ 0, 'plus matched marker' ]),
                        aop('goto', [ $loop ]),
              $rfail => aop('popindex', [ '<tmp> <==
3	/Users/nnunley/parrot/config/init/miniparrot.pm	97	217	
==>06-06-20T19:26:31.775154Z bernhard  $

=head1 NAME

config/init/miniparrot.pm - Miniparrot configuration

=head1 DESCRIPT <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	38360	38456	
==>$text, '<A>', '</A>', undef, {reject => ['<A>']} );

=item C<ignore =E<gt> $listref>

The list re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761509	761767	
==>\n    REG_PMC({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762362	762620	
==>\n    REG_PMC({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	26609	26732	
==>f eq '0' or $f eq '1';
      DEBUG > 2 and print "  Can't fall back on unknown code $f\n";
      $self->whine(
        $para <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	382	484	
==>truct::Statement);

my %block_types = (
  'while'    => { PREFIX => "_W", NEXT => 'CONT', REDO => 'REDO <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	403	505	
==>truct::Statement);

my %block_types = (
  'while'    => { PREFIX => "_W", NEXT => 'CONT', REDO => 'REDO <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1929	2024	
==>e

sub unlike (Str $got, Rule $expected, Str $desc?, :$todo, :$depends) returns Bool is export { <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	3792	3898	
==>ub {
		return("\t$_[2] = $_[1] - $_[0]", $_[2]);
	},
	'*' => sub {
		return("\t$_[2] = $_[0] * $_[1]", $_[2 <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3667	3767	
==>e') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pm <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3771	3871	
==>e') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pm <==
3	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	543	634	
==>versions of Parrot, i.e. the
file F<DEVELOPING> exists. Releases include a non-dynamic finge <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367823	367909	
==>o.ops\"\n  {{\@1}} = PIO_reads(interpreter, PIO_STDIN(interpreter), (size_t){{\@2}});\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368615	368701	
==>o.ops\"\n  {{\@1}} = PIO_reads(interpreter, PIO_STDIN(interpreter), (size_t){{\@2}});\n <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11853	12102	
==>0],
                        'arg2'   => undef,
                        'result' => $result,
                    );
                    return [ $defn, \@opcodes, $assign ];
                }
                else {
                    my $assig <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10049	10270	
==>0],
                    'arg2'   => undef,
                    'result' => $result,
                );
                return [ $defn, \@opcodes, $assign ];
            }
            else {
                my $assig <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	3859	3962	
==>Data::Dumper->new([$self->{c}], ['*PConfig'])->Dump();
        };
    }
}

=item C<clean()>

Deletes key <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9979	10084	
==>nc(a)
	print a
	a=12
        myfunc=80
end function
z=5
T=myfunc(z)
print z

' Basic Hello
a$="Hello"
prin <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11592	11697	
==>nc(a)
	print a
	a=12
        myfunc=80
end function
z=5
T=myfunc(z)
print z

' Basic Hello
a$="Hello"
prin <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	16661	16757	
==>a C<run> method
that calls C<< $token = $parser->get_token >> to pull tokens.

See the source for <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841592	841681	
==>ne 40 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},0);\n  {{+=3}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842356	842445	
==>ne 40 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},0);\n  {{+=3}};\n <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	1119	1240	
==>my ($chr) = @_;
    my $ret = 0;
    
    $chr = chr($chr);
    $ret |= 0x0001 if $chr =~ /^[[:upper:]]$/;  # CCLASS_UPPER <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350962	351049	
==>90 \"src/ops/io.ops\"\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  {{+=2} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351624	351711	
==>90 \"src/ops/io.ops\"\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  {{+=2} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540492	540598	
==>@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541744	541850	
==>@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542996	543102	
==>@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	62825	62923	
==>%s>

A nested code block was found that started with a delimiter that was specified
as being only t <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	1201	1297	
==>'} . " -DPARROT_IN_CORE";
while ($cc_inc  =~ s/-I(\S+)//g) { push @incdirs, $1; }
while ($ccflags <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1554	1647	
==>od' => '{\cs22\i'."\n",
 'L=url' => '{\cs23\i'."\n",
 'L=man' => '{\cs24\i'."\n",
 '/L' => '}' <==
3	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	784	935	
==>k "$file_name.cs";
	return 1;
}

# This translates a .NET DLL or EXE to a PBC.
# ###########################################
sub translate($$) {
	my $ne <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3763	3858	
==>($$checklist{$prm})
		or	croak("Unknow parameter '$prm'");
			ref($value) eq $$checklist{$prm} <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3569	3662	
==>($$checklist{$prm})
		or	croak("Unknow parameter '$prm'");
			ref($value) eq $$checklist{$prm} <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2919	3036	
==>ON: ([\d\.]+)/    and $smoke{VERSION}      = $1;
  $html =~ /branch: ([\w\-]+)/     and $smoke{branch}       = $1;
  $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2666	2763	
==>nd', Attributes => { kind => $cond } });
    $handler->start_element({ Name => 'block', Attributes <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3430	3527	
==>nd', Attributes => { kind => $cond } });
    $handler->start_element({ Name => 'block', Attributes <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11278	11468	
==>state == 1) {
            push @tokens, $c;
            push @types, 'CHAR';
            $state = 0;
        } else {
            if ($c eq '{') {
                ++$depth;
            } elsi <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	7728	7831	
==>@_)         } # alias
sub accept_target_as_text { shift->accept_targets_as_text(@_) } # alias


sub acce <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10732	10827	
==>ELEMENT_TYPE_U1 = 0x05
	.const int ELEMENT_TYPE_I2 = 0x06
	.const int ELEMENT_TYPE_U2 = 0x07
	.c <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	19375	19478	
==>hildren of this $treelet->[0] node...\n";
    for($i = 2; $i < @$treelet; ++$i) { # iterate over childre <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	22018	22121	
==>hildren of this $treelet->[0] node...\n";
    for($i = 2; $i < @$treelet; ++$i) { # iterate over childre <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3655	3754	
==>he Pod syntax of a document

=head1 SYNOPSIS

  perl -MPod::Simple::Checker -e \
   "exit Pod::Simpl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	625990	626137	
==>2 + i]);\n                break;\n            default:\n                internal_exception(1, \"unhandled sig_bits\");\n        }\n    }\n    /* set <==
3	/Users/nnunley/parrot/lib/File/Which.pm	3139	3267	
==>e {
        return undef;
    }
}

sub where {
    my @res = which($_[0]); # force wantarray
    return @res;
}

1;
__END__

=hea <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	11290	11408	
==>hort)GET_NCI_I($reg_num);";
        return "t_$temp_num";
    };
    /c/ && do {
        push @{$temps_ref}, "char t_$t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712769	712972	
==>0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713876	714079	
==>0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34393	34496	
==>ing '=item * Foo' tolerance hack.\n";
              push @$para, delete $para->[1]{'~_freaky_para_hack'} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4797	4901	
==>')) {
    my $pmc_type = $dest_ident->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();

    $comp <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2860	2964	
==>')) {
    my $pmc_type = $dest_ident->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();

    $comp <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	31309	31401	
==>not found\\n"
	_platform_shutdown()
	end
RTBE
}
sub parse_data_setup {
	push @{$code{_data}-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862032	862296	
==>ME" => "length",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862800	863064	
==>ME" => "length",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1377	1511	
==>uage = $language;
        } elsif ($dir_count == 2) {
          $path_to_language = '.';
        } elsif ($dir_count >2) {
          $p <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1862	1996	
==>uage = $language;
        } elsif ($dir_count == 2) {
          $path_to_language = '.';
        } elsif ($dir_count >2) {
          $p <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	1227	1348	
==>es) {
	    if (ref $_ && $_->{name} eq 'seq') {
		push @pieces, @{$_->{args}};
	    } else {
		push @pieces, $_;
	    }
	} <==
3	/Users/nnunley/parrot/config/init/hints/darwin.pm	1770	1948	
==>>data->get('lib_dir') .
                               $conf->data->get('slash') .
                               "libparrot" .
                               $conf->data->get('sh <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10731	10835	
==>_op_set_bang {
  my ($self, $node) = @_;

  _num_arg ($node, 2, 'set!');

  my $symbol = _get_arg ($node, <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4466	4561	
==>ists $pmc_group->{$_} } @pmcs;
    partial_link($_, $pmc_libs->{$_}, [ $_ ] ) foreach (@ungroupe <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4570	4665	
==>ists $pmc_group->{$_} } @pmcs;
    partial_link($_, $pmc_libs->{$_}, [ $_ ] ) foreach (@ungroupe <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789819	790075	
==>_string_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790729	790985	
==>_string_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560784	560873	
==>AILCALL;\n  interpreter->current_object = object;\n  interpreter->current_method = VTABLE_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47074	47294	
==>_DEBUG_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47857	48077	
==>_DEBUG_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	5429	5548	
==>oto cont_2d
    newline = 1
    pos = 0

  cont_2d:
    old_type = value_type
    value = shift iter
    bsr print_value <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118867	119208	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	119721	120062	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120576	120917	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	1836	1950	
==>ackage) = $meta =~ /^\[(.*?)\]/;
    $meta =~ s/^\[(.*?)\]//;
    next if $package eq "";
    my %meta;
    @meta{s <==
3	/Users/nnunley/parrot/config/init/defaults.pm	42	132	
==>tion.
# $Id: /parrot/config/init/defaults.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=he <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33789	33916	
==>{
              DEBUG and print "Can't assimilate following ", $paras->[0][0], "\n";
              push @$para, '';  # Just so i <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35602	35729	
==>{
              DEBUG and print "Can't assimilate following ", $paras->[0][0], "\n";
              push @$para, '';  # Just so i <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	12003	12116	
==>es targetting parrot (e.g. tcl),
    are also available.
  </p>

  <p>
    Submitting your own smoke is easy,
  </ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	13779	13890	
==>to COMPLETE
    
    # If we have a stack type state propogated here, put it in place.
    ss = ss_propogate[pc] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716504	716605	
==>, p));\n  if (s) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \") <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724396	724497	
==>, p));\n  if (s) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \") <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78969	79061	
==>\n\n  void * const p = Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? NULL : PMC_data({{\@2}}), name);\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80490	80582	
==>\n\n  void * const p = Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? NULL : PMC_data({{\@2}}), name);\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319475	319760	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TY <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320244	320529	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TY <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321014	321299	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TY <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327127	327359	
==>preter, {{\@1}}, (INTVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327929	328161	
==>preter, {{\@1}}, (INTVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8983	9078	
==>ngs:

  $cc, $ccflags, $ldout, $o, $link, $linkflags, $cc_exe_out, $exe, $libs

Calls the compil <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768138	768281	
==>"sc"
                            ],
                  "BODY" => "#line 335 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768992	769135	
==>"sc"
                            ],
                  "BODY" => "#line 335 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS) <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	16765	16885	
==>de, @order);

     $template .= 'push result, ' . $order[0] . "\n";

          $template .= << 'END_PIR';
    goto loop
l <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509090	509351	
==>"LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509721	509982	
==>"LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510376	510637	
==>"LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "A <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1506	1603	
==>print {$_[0]{'output_fh'}} $indent, '* "', $text, "\"\n";
  }
  return;
}

sub _handle_element_end <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	266	361	
==>an  $

=head1 NAME

tools/build/dynclasses.pl - Build script for dynamic PMCs

=head1 DESCRIPTIO <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35900	35998	
==>ing and exit with 255.  If the test died, even after
having successfully completed all its tests, i <==
3	/Users/nnunley/parrot/lib/Test/More.pm	33971	34069	
==>ing and exit with 255.  If the test died, even after
having successfully completed all its tests, i <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2766	2864	
==>ing and exit with 255.  If the test died, even after
having successfully completed all its tests, i <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35718	35818	
==>th how many failed.  If
you run less (or more) tests than you planned, the missing (or extras)
will b <==
3	/Users/nnunley/parrot/lib/Test/More.pm	33789	33889	
==>th how many failed.  If
you run less (or more) tests than you planned, the missing (or extras)
will b <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2585	2685	
==>th how many failed.  If
you run less (or more) tests than you planned, the missing (or extras)
will b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196468	196733	
==>\@2}}, MMD_NUMCMP) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	40619	40741	
==>", splice(@$para, 2) if @$para > 3;
        
      } else {
        die "\$para type is $para_type -- how did that happen?" <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	619	720	
==>R::new(
        'Language Implementations', 'languages.html', '',
        $self->new_item('', 'languag <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	58311	58442	
==>8
		 'funcbody', 4,
sub
#line 520 "Lua\lua51.yp"
{
            PopScopeF( $_[0] );
            BuildFunctionBody( $_[0], [], $ <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	227	315	
==>ame2character
  %Name2character_number
  %Latin1Code_to_fallback
  %Latin1Char_to_fallbac <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	504	592	
==>ame2character
  %Name2character_number
  %Latin1Code_to_fallback
  %Latin1Char_to_fallbac <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	1654	1739	
==>clude -fno-common -no-cpp-precomp  -pipe -Wdeclaration-after-statement -I/usr/local/in <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1042	1127	
==>clude -fno-common -no-cpp-precomp  -pipe -Wdeclaration-after-statement -I/usr/local/in <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1046	1131	
==>clude -fno-common -no-cpp-precomp  -pipe -Wdeclaration-after-statement -I/usr/local/in <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28670	28775	
==>elf->{"lookahead"} ? '$text = $_savetext;' : '' ) .'
';

	return $code;
}

1;

package Parse::RecDescent:: <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30748	30853	
==>elf->{"lookahead"} ? '$text = $_savetext;' : '' ) .'
';

	return $code;
}

1;

package Parse::RecDescent:: <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32951	33056	
==>elf->{"lookahead"} ? '$text = $_savetext;' : '' ) .'
';

	return $code;
}

1;

package Parse::RecDescent:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101310	101594	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102080	102364	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103516	103800	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24027	24131	
==>]} : ();
	my $omode   = defined $options{fail} ? $options{fail} : '';
	my $bad     = ref($options{reject} <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39665	39758	
==>> \&_op_eof_object_p,
  'char-ready?' => \&_op_char_ready_p,
  'write' => \&_op_write,
  'disp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288347	288670	
==>} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289203	289526	
==>} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290059	290382	
==>} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	21421	21528	
==>ge', 6,
sub
#line 151 "lib/Regex/Grammar.y"
{ return { min => $_[2], max => $_[5] }; }
	],
	[#Rule 30
		 'ra <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717898	717994	
==>DY" => "#line 124 \"src/ops/python.ops\"\n  PMC * const io = {{\@1}};\n  if (PIO_softspace(interp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718830	718926	
==>DY" => "#line 124 \"src/ops/python.ops\"\n  PMC * const io = {{\@1}};\n  if (PIO_softspace(interp <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1748	1851	
==>n hook.
sub post_translation() {
	# Nothing to do.
	return "";
}

# Extra subroutines required for the m <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	788	891	
==>n hook.
sub post_translation() {
	# Nothing to do.
	return "";
}

# Extra subroutines required for the m <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	545	648	
==>n hook.
sub post_translation() {
	# Nothing to do.
	return "";
}

# Extra subroutines required for the m <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	28704	28830	
==>y
      unless(  @{$treelet->[$i]} == 2
           or (@{$treelet->[$i]} == 3 and $treelet->[$i][2] eq '')
      ) {
        $s <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4295	4417	
==>ass, pass);
EOC
    }
    $cout .= <<"EOC";
    }
    return pmc;
}

EOC
}

=back

=head2 Class Methods

=over

=item C<new <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	1596	1701	
==>tances should probably be subclasses that use something like
    # IMCC's facilities for creating local va <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447902	448192	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	448728	449018	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_c <==
3	/Users/nnunley/parrot/config/inter/encoding.pm	134	228	
==>ad1 NAME

config/inter/encoding.pm - encoding files

=head1 DESCRIPTION

Asks the user to selec <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	11134	11240	
==>. q{])}, 
					  Parse::RecDescent::_tracefirst($text),
					  , q{' . $self->{"name"} .'})
	}').'
	$_[1] = <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	29595	29711	
==>ting.)
# 

############# The element children
# Second:
# The possibly inferred link-text -- i.e., if there was no re <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45938	46040	
==>\G\s*:';
my $OTHER		= '\G\s*([^\s]+)';

my $lines = 0;

sub _generate($$$;$$)
{
	my ($self, $grammar, $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	2175	2271	
==>ed only in some derived classes.

  'hide_line_numbers', # For some dumping subclasses: whether t <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	23853	23970	
==>ged # ($opentag, $closetag, $pre, \%options)
{
	my $ldel    = $_[0];
	my $rdel    = $_[1];
	my $pre     = defined $_[2 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2328	2420	
==>mple of using this class.

=head1 SEE ALSO

L<Pod::Simple>, L<Pod::Simple::Subclassing>

=hea <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7330	7470	
==>less defined $next;
        unless( $next->type eq 'text' ) {
          $self->unget_token($next);
          next;
        }
        DEBUG an <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9575	9715	
==>less defined $next;
        unless( $next->type eq 'text' ) {
          $self->unget_token($next);
          next;
        }
        DEBUG an <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2237	2354	
==>b write_all_files {
    my $self = shift;
    my $library = $self->{opt}{library};

    if ($library) {
        my $ho <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	7436	7558	
==>ype => $arg_type_name,
        name => $arg_name
      }
    });
    $handler->end_element({ Name => 'arg' });
  }

  $hand <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	560	667	
==>,

=item * the elapsed time, and 

=item * the number of M op/s.

=back

=cut

sub time_hires { time() }

$I <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	563	669	
==>,

=item * the elapsed time, and

=item * the number of M op/s.

=back

=cut

sub time_hires { time() }

$I <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29077	29185	
==>$desc=~s/}/\\}/g;
	$desc=~s/{/\\{/g;

	bless 
	{
		"pattern"     => $pattern,
		"lookahead"   => $_[2],
		"li <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6044	6150	
==>$cut_handler->(map $_, $line, $self->{'line_count'}, $self)
       if $cut_handler;

      # TODO: add to d <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31181	31285	
==>$desc=~s/}/\\}/g;
	$desc=~s/{/\\{/g;

	bless 
	{
		"pattern"   => $pattern,
		"lookahead" => $_[2],
		"li <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4422	4519	
==>lf, $opt)>

Returns C<$self> as a new instance.

C<$self> is a hash reference C<eval>-ed from a F< <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	701	795	
==>ix. Defaults to '/usr'.

=item C<bindir>

The executables directory. Defaults to '/usr/bin'.

= <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	930	1024	
==>ix. Defaults to '/usr'.

=item C<bindir>

The executables directory. Defaults to '/usr/bin'.

= <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	48207	48310	
==>less wantarray;

  my $mutor = shift(@_) if @_ and ref($_[0] || '') eq 'CODE';

  Carp::croak "But $clas <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1524	1620	
==>ype!")
    unless defined $type;

  $self->INTERNAL_ERROR("Type is not a Jako::Construct::Type in <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1372	1468	
==>ype!")
    unless defined $type;

  $self->INTERNAL_ERROR("Type is not a Jako::Construct::Type in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305099	305297	
==>ess( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305887	306085	
==>ess( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	8804	8924	
==>K}} and $self->{STACK}->[-1] eq 'text';
    }
    elsif ( $tagname =~ /head[12]/o )
    {
        # Put the up arrow on t <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3116	3241	
==>dex
}

sub YYCurtok {
	my($self)=shift;

        @_
    and ${$$self{TOKEN}}=$_[0];
    ${$$self{TOKEN}};
}

sub YY <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2966	3080	
==>dex
}

sub YYCurtok {
	my($self)=shift;

        @_
    and ${$$self{TOKEN}}=$_[0];
    ${$$self{TOKEN}};
}

sub YY <==
3	/Users/nnunley/parrot/config/auto/gc.pm	593	697	
==>racing enabled.

=back

=cut

package auto::gc;

use strict;
use vars qw($description @args);

use base q <==
3	/Users/nnunley/parrot/config/inter/progs.pm	4218	4310	
==>ove.  I don't know why.
    $ccwarn = integrate($conf->data->get('ccwarn'), $conf->options->g <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78915	79007	
==>onst name = string_to_cstring(interpreter, ({{\@3}}));\n\n  void * const p = Parrot_dlsym(PMC <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80436	80528	
==>onst name = string_to_cstring(interpreter, ({{\@3}}));\n\n  void * const p = Parrot_dlsym(PMC <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095276	1095535	
==>tal" => 1,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exec",
                  "FLAGS" => "" <==
3	/Users/nnunley/parrot/examples/benchmarks/shared_ref.pl	383	507	
==>eads;
use threads::shared;

for my $i (0..99_999) {
    my $r :shared;
    my $j :shared;
    $r = \$j;
    $$r = $i;
}

=hea <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9822	9928	
==>~ s/([\?\!\"\'\.\,]) /$1\n/g unless $self->{DONT_WRAP};
    
    # URLs not in L<>.
    $text =~ s|(http:// <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1330	1445	
==>responsible for the consequences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $self-> <==
3	/Users/nnunley/parrot/config/inter/make.pm	1151	1266	
==>responsible for the consequences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $self-> <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1327	1442	
==>responsible for the consequences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $self-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841456	841655	
==>> [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 40 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter <==
3	/Users/nnunley/parrot/config/gen/PodText.pm	1004	1113	
==>Pod';

@args = qw(verbose);

sub runstep
{
    my ($self, $conf, %docs) = @_;

    my $verbose = $conf->option <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	678	793	
==>step
{
    my ($self, $conf) = @_;
    
    my $verbose = $conf->options->get('verbose');

    # undef means we don' <==
3	/Users/nnunley/parrot/config/inter/lex.pm	688	799	
==>step
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    # undef means we don' <==
3	/Users/nnunley/parrot/config/inter/make.pm	665	776	
==>step
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    # undef means we don' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820260	820499	
==>"function",
                  "CODE" => 929,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 79 \"src/ops/stack.ops\"\n  S <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	44318	44433	
==>g and $p->[$i-1] =~ m/\S/) { # no-op
      splice @$p,$i,1; # remove this line
      $i--; # don't consider next lin <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	2411	2519	
==>();
	my $i;
	for ($i=0; $i<length $dels; $i++)
	{
		my $del = quotemeta substr($dels,$i,1);
		my $esc = quote <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825141	825360	
==>"CODE" => 934,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 133 \"src/ops/stack.ops\"\n  Stack_Entr <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	2241	2345	
==>isnt($code, $unexpected, $description)> or C<output_isnt($code, $unexpected, $description)>

Runs the Par <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	449	539	
==>_class.pl>, and
F<src/pmc/null.pl>.

=head2 Functions

The following functions are exported <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718067	718157	
==>erpreter, io, INTVAL_FMT, (INTVAL){{\@2}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=3} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718999	719089	
==>erpreter, io, INTVAL_FMT, (INTVAL){{\@2}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=3} <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16466	16564	
==>reserved.

This program is free software; you can redistribute it and/or modify it
under the same t <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1680	1778	
==>reserved.

This program is free software; you can redistribute it and/or modify it
under the same t <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2539	2621	
==>/mops.ps>,
F<examples/mops/mops.py>,
F<examples/mops/mops.rb>,
F<examples/mops/mops <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	2539	2621	
==>/mops.ps>,
F<examples/mops/mops.py>,
F<examples/mops/mops.rb>,
F<examples/mops/mops <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	3916	4032	
==>ef) = split(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a = qq!"$a"!;   # quote argument
		    $def_arg_names{$f}{$a <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	4415	4531	
==>ef) = split(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a = qq!"$a"!;   # quote argument
		    $def_arg_names{$f}{$a <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	2650	2752	
==>ge() unless @ARGV;

my $class_name = shift @ARGV;
my %is_allowed = map { $_ => 1 } qw(C CGoto CGP CSwit <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	9309	9414	
==>c = 'NULL';
$getop = '( int (*)(const char *, int) )NULL';

if ($suffix eq '') {
    $op_func = "${bs}op_f <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	689	784	
==>> should be the relative path from the page to
F<docs/resources>, the image and CSS file directo <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	1907	2002	
==>> should be the relative path from the page to
F<docs/resources>, the image and CSS file directo <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	15641	15753	
==>s, aop('goto', [ $next ]);
    }

    push @ops, $back => aop('popint', [ '<tmp>', 'branch marker' ]);

    for m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600003	600092	
==>> "#line 363 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601079	601168	
==>> "#line 363 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	6159	6273	
==>= 1;
    foreach my $stmt (@output2) {
	if ($stmt->{label}) {
	    $keeping = $stmt->{label}->{reachable}; # Keep i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150780	151049	
==>ction",
                  "CODE" => 183,
                  "ARGS" => [
                              "p",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 112 \"src/ops/cmp.ops\"\n  i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736704	736975	
==>FLOATVAL){{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737450	737721	
==>FLOATVAL){{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30674	30818	
==>77,
			">=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75, <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40024	40168	
==>77,
			">=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75, <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41651	41795	
==>77,
			">=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528686	528992	
==>3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529568	529874	
==>3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	39152	39272	
==>et for any reason I can see.
        # And precooked paragraphs already have a treelet.
        
      } elsif($para_type <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	19093	19219	
==>son    => $why,
    });

    my $out = "not ok";
    $out   .= " $self->{Curr_Test}" if $self->use_numbers;
    $out   .= " # T <==
3	/Users/nnunley/parrot/lib/Test/More.pm	1537	1639	
==>er than print STDERR "# here's what went wrong\n"
  diag("here's what went wrong");

  like  ($this, qr <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	1891	1990	
==>NAME

Scheme::Tokenizer - The Scheme tokenizer

=head1 SYNOPSIS

  use Scheme:Tokenizer;

  my @code <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733285	733659	
==>re",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 823,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	3441	3541	
==>pos,   length($$textref)-$endpos,	# REMAINDER
			$startpos, $prelen;			# PREFIX
}

sub extract_bracke <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	37242	37451	
==>ine",
                  "CODE" => 47,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 709 \"src/ops/core.ops\"\n  opcode_t * con <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9403	9506	
==>turn;
    my ($volume, $directories, $name) = File::Spec->splitpath($path);
    
    $path = File::Spec- <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	40	136	
==>algorithm keeps track of the current stack depth and assigns to
# virtual registers numbered by d <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	40	136	
==>algorithm keeps track of the current stack depth and assigns to
# virtual registers numbered by d <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931801	931910	
==>,
                  "BODY" => "#line 415 \"src/ops/string.ops\"\n  {{\@1}} = string_upcase(interpreter, {{\@2} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932572	932681	
==>,
                  "BODY" => "#line 415 \"src/ops/string.ops\"\n  {{\@1}} = string_upcase(interpreter, {{\@2} <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	34234	34327	
==>ounded by
matched brackets, such that any other (left or right) delimiter
bracket I<within> th <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031582	1031834	
==>}} - enum_first_type].size;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032451	1032703	
==>}} - enum_first_type].size;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453041	453201	
==>n"
                            ],
                  "BODY" => "#line 230 \"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	49361	49477	
==>{ $lineage[-1] }, ' '; # That was a for-real space, too.
        pos($para) = pos($para) - length($3) + 2;
      } el <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	471	572	
==>4

=item * the number of look iterations, 

=item * the estimated number of ops performed,

=item * th <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	475	575	
==>4

=item * the number of look iterations,

=item * the estimated number of ops performed,

=item * th <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	6307	6425	
==>? 1 : 0) ||
		($a cmp $b)
	} keys %branches
  ]);
  print $tmpl->output;
}

sub pack_smoke {
  my %smoke = @_;

  my $s <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1360	1458	
==>parameters
my(@params)=('LEX','RULES','STATES');

sub new {
    my($class)=shift;
	my($errst,$ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1315	1408	
==>parameters
my(@params)=('LEX','RULES','STATES');

sub new {
    my($class)=shift;
	my($errst,$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320044	320317	
==>}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320814	321087	
==>}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323980	324253	
==>}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	18811	18957	
==>pir',
                                  );

    my %language_test_map = (
        language_output_is   => 'output_is',
        language_output_like <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7282	7395	
==>r;
}

sub post_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If the register name to loa <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5104	5217	
==>r;
}

sub post_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If the register name to loa <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1349	1473	
==>, # $self->{relpath}, 
            STDOUT => $out_f, STDERR => $out_f, 
        );
        my $prog_output = Parrot::Test::sl <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1265	1389	
==>, # $self->{relpath}, 
            STDOUT => $out_f, STDERR => $out_f, 
        );
        my $prog_output = Parrot::Test::sl <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62057	62165	
==>'';

		# EXTRACT TRAILING REPETITION SPECIFIER (IF ANY)

			if ($grammar =~ m/\G[(]/gc)
			{
				pos($grammar <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	501	590	
==>xpected->expected()
	    unless $Parse::RecDescent::expected;
	$Parse::RecDescent::expecte <==
3	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1791	1876	
==>pression=lzma
SolidCompression=yes
ChangesAssociations=yes

[Files]
Source: "$options{ <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1451	1559	
==>anguage = '.';
        } elsif ($dir_count >2) {
          $path_to_language = File::Spec->join(File::Spec->u <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1936	2044	
==>anguage = '.';
        } elsif ($dir_count >2) {
          $path_to_language = File::Spec->join(File::Spec->u <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	45821	45968	
==>ref($_)?"<@$_> ":"<$_>", @new_line ), "\n";
    $i--; # So the next line we scrutinize is the line before the one
          #  that we just went and <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	18265	18378	
==>int $fh $Dumper->Dump;
        close $fh;
    }
}

=head2 read_dump( [$dir1, $dir2], $file );

Read in the class d <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	410	504	
==>er\n";
}
sub post_translation {
	die "post_translation not implemented for current stack to reg <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847830	848190	
==>" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 962,
                  "ARGS" => [
                              "s",
                              "i"
                            ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29772	29870	
==>ext immediately, but not if the\n\t   sub created a closure (or continuation, or . . .).  */\n\tPar <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033302	1033393	
==>* const lex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n    if (PMC_IS_NULL(lex_pad) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034400	1034491	
==>* const lex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n    if (PMC_IS_NULL(lex_pad) <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	16494	16605	
==>ext if $name eq 'quot' or $name eq 'apos' or $name eq 'gt';
    
      $value = hex $1 if $value =~ m/^x([a-fA-F <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10421	10531	
==>o state ".
#DBG>						 $$states[$$stack[-1][0]]{ACTIONS}{error}.
#DBG>						 ".\n";

		push(@$stack, [ $$st <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9953	10059	
==>o state ".
#DBG>						 $$states[$$stack[-1][0]]{ACTIONS}{error}.
#DBG>						 ".\n";

		push(@$stack, [ $$st <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	7842	7940	
==>$self, $trans) = @_;

    if ($self->flags =~ /:pic/ &&
	!(ref($trans) eq 'Parrot::OpTrans::CGP' || <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	344	433	
==>atted');
  return $new;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	343	432	
==>atted');
  return $new;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062578	1062767	
==>keyed(interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063447	1063636	
==>keyed(interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064317	1064506	
==>keyed(interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321624	321920	
==>}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u4",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322395	322691	
==>}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u4",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323167	323463	
==>}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u4",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	120	243	
==>ernhard  $

=head1 NAME

Parrot::IO::File - File

=head1 SYNOPSIS

    use Parrot::IO::File;

=head1 DESCRIPTION

Use this t <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	13352	13452	
==>~ m/\G($pre)/gc)
	{
		_failmsg qq{Did not match prefix /$pre/ at"} .
			    substr($$textref,pos($$te <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	3300	3436	
==>un the command and capture the exit code
            my $exit_code = Parrot::Test::run_command(
                $cmd,
                %{$ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	7570	7672	
==>eturn shift->skip('infix-rel');     }
sub skip_semicolon     { return shift->skip('semicolon');     }
s <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	175	272	
==>we never instantiate this class.
sub new() {
	die "Attempt to instantiate abstract class SRM::Base <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	16354	16459	
==>all thru to the general case:
  return $self->_get_item_type($para);
}



sub _get_item_type {       # mut <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2490	2572	
==>ps.il>,
F<examples/mops/mops.p6>,
F<examples/mops/mops.ps>,
F<examples/mops/mops.py <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	2490	2572	
==>ps.il>,
F<examples/mops/mops.p6>,
F<examples/mops/mops.ps>,
F<examples/mops/mops.py <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514128	514368	
==>\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515008	515248	
==>\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515888	516128	
==>\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1544	1641	
==>EMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Emit pop code.
${INS} = concat ${STA <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3254	3351	
==>EMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Emit pop code.
${INS} = concat ${STA <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	1222	1315	
==>refix deemed
Parroty enough, like C<PDB_>, C<PF_>, C<PIO_>, and C<PackFile>).

If code: see L< <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	373296	373586	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2253	2366	
==>m {
  my $in = $_[0];
  return undef unless defined $in and length $in;
  
  # Convert to decimal:
  if($in =~ m/^ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	3645	3757	
==>d print "  Line is: ",
          defined($lines[-1]) ? $lines[-1] : "<undef>\n";
        unless( defined $lines[- <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	42070	42184	
==>$moved;
      }
      $self->_add_inst ('','set',["P$count",$arg]);
    }
    $count++;
  }

  $self->_add_inst('', <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	14135	14232	
==>($op, "classpieces " . $op->render(@_));
}

sub Regex::Ops::Tree::seq::reftree {
    my $op = shif <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	33406	33502	
==>>_print("1..$self->{Curr_Test}\n") unless $self->no_header;
            $self->{Expected_Tests} = <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	2088	2191	
==>terpreter pointer is passed in

=item P

PMC.

=item 2

Pointer to short.

Taken from an I register.

=i <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1619	1719	
==>ern
        ? Parrot::Test::PGE::_generate_subrule_pir($target, $pattern)
        : Parrot::Test::PGE <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2142	2242	
==>ern
        ? Parrot::Test::PGE::_generate_subrule_pir($target, $pattern)
        : Parrot::Test::PGE <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	2011	2145	
==>4 : -1;
            push @{$vtable}, [ $1, $2, $3, $section, $mmd ];
        } else {
            die "Syntax error at $file line ".$fh <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	850	940	
==>ode->base.data))
#define CUR_OPCODE cur_opcode
#define IREG(i) REG_INT(cur_opcode[i])
#defi <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	966	1056	
==>ode->base.data))
#define CUR_OPCODE cur_opcode
#define IREG(i) REG_INT(cur_opcode[i])
#defi <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5254	5431	
==>) {
            print {$FH} "(";
            my $first = 1;
            foreach ( @{ $op->{result} } ) {
                print {$FH} ", " unless ($first);
                pr <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6286	6463	
==>) {
            print {$FH} "(";
            my $first = 1;
            foreach ( @{ $op->{result} } ) {
                print {$FH} ", " unless ($first);
                pr <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	51785	51923	
==>r', 4,
sub
#line 280 "Lua\lua51.yp"
{
            [ $_[2], $_[4] ];
        }
	],
	[#Rule 47
		 'var', 2,
sub
#line 284 "Lua\lua5 <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21330	21435	
==>'    ,[$temp,0,"DONE_$label"]);
  $self->_restore($temp);
  $self->_add_inst(''           ,'set'   ,[$retu <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	21718	21835	
==>atchcount++
#         next:
#
sub rewrite_star {
    my ($self, $op, $R, $greedy, $lastback) = @_;

    my $next = $se <==
3	/Users/nnunley/parrot/languages/javascript/bootstrap.pm	323	439	
==>in("\n", <$fh>); 
	      close $fh; 
	      return $val;
	});

$context->bind_function(
	name => "debug",
	func => su <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	54140	54237	
==>process works by applying each extractor in
sequence to the text string.

If the extractor is a su <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1371	1482	
==>n?',
        Parrot::Docs::Section::Info->new,
        Parrot::Docs::Section::Docs->new,
        Parrot::Docs::S <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	13818	13918	
==>Tree::match::reftree {
    my $op = shift;
    return annotated($op, "match(" . $op->render(@_) . ")" <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45998	46095	
==>_generate($$$;$$)
{
	my ($self, $grammar, $replace, $isimplicit, $isleftop) = (@_, 0);

	my $after <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	12032	12143	
==>Comment
        #   -----------------  -------  ------------  ----------------------------------
        #   got <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	35	122	
==>rot/Test/M4/Gnu.pm 18930 2006-04-24T19:32:28.634218Z bernhard  $

package Parrot::Test:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514108	514224	
==>\"src/ops/math.ops\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514988	515104	
==>\"src/ops/math.ops\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515868	515984	
==>\"src/ops/math.ops\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	8566	8670	
==>rn, $newl, $semi, $interp, $pmc);
    if ($for_header) {
        $export = $self->{flags}->{dynpmc} ? 'PA <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5936	6039	
==>ext unless ($entry->[4] =~ /MMD_/);
    next if ($entry->[4] =~ /_INT$/);
    next if ($entry->[4] =~ /_ <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6354	6457	
==>ext unless ($entry->[4] =~ /MMD_/);
    next if ($entry->[4] =~ /_INT$/);
    next if ($entry->[4] =~ /_ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11657	11847	
==>esult2;
                    }
                    push @opcodes, @{ $last_key->[1] };
                    my $assign = new KeyedSetOp( $parser,
                        'arg1'   => $last_k <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9869	10043	
==>esult2;
                }
                push @opcodes, @{ $last_key->[1] };
                my $assign = new KeyedSetOp( $parser,
                    'arg1'   => $last_k <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8748	8890	
==>esult2;
        }
        push @opcodes, @{ $last_key->[1] };
        my $assign = new KeyedSetOp( $parser,
            'arg1'   => $last_k <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860464	860608	
==>ic"
                            ],
                  "BODY" => "#line 118 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861469	861613	
==>ic"
                            ],
                  "BODY" => "#line 118 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception( <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	11125	11227	
==>f, $node) = @_;

  my @clauses = _get_args($node);

  my $transnode;

  if ($clauses[-1]->{children}->[ <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	19526	19640	
==>ut

sub gen_c {
    my ($include, @files) = @_;
    my %pmcs = map { $_, read_dump($include, $_) } @files;

    Par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033429	1033522	
==>NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    VTABLE_set_pmc_k <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034527	1034620	
==>NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    VTABLE_set_pmc_k <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6211	6396	
==>DEFAULT})
                        ?   $$actions{DEFAULT}
                        :   undef;
        }
        else {
            $act=$$actions{DEFAULT};
#DBG>			$debug & 0x01
#DB <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5921	6099	
==>DEFAULT})
                        ?   $$actions{DEFAULT}
                        :   undef;
        }
        else {
            $act=$$actions{DEFAULT};
#DBG>			$debug & 0x01
#DB <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	13588	13714	
==>ext, "\" to para-content.\n";
        $para_text_content .= $token->text;
        # and keep looking
        
      } elsif( $t <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	71310	71441	
==>ater, or did you perhaps
					       misspell \"$call\"? Otherwise
					       it will be treated as an 
					       immediate <reje <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5074	5178	
==>st) or die "Copy $_$LOAD_EXT failed ($?)\n";

        # Execute permissions on libraries is especially im <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5285	5389	
==>st) or die "Copy $_$LOAD_EXT failed ($?)\n";

        # Execute permissions on libraries is especially im <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017474	1017739	
==>NAME" => "gmtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1137 <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6545	6751	
==>ma} eq 'multi' ) {
                    print {$FH} " :slurpy";
                }
                $first = 0;
            }
            print {$FH} ") = ";
        }
        my @args = @{ $op->{arg2} } <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	52865	52971	
==>outine takes up to four optional arguments:

=over 4

=item 1.

A string to be processed (C<$_> if the stri <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	11084	11203	
==>'head1' ) {
        DEBUG and print "  Found head1.  Seeking content...\n";
        ++$state;
        $head1_text_conten <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	973	1066	
==>_EXT = qq[.bundle];
our $O = qq[.o];
our $CFLAGS = qq[-I/opt/local/include -fno-common -no-cpp <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	977	1070	
==>_EXT = qq[.bundle];
our $O = qq[.o];
our $CFLAGS = qq[-I/opt/local/include -fno-common -no-cpp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	68960	69109	
==>PE" => "function",
                  "CODE" => 91,
                  "ARGS" => [],
                  "BODY" => "#line 1071 \"src/ops/core.ops\"\n  Par <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	18173	18268	
==>t started pulling tokens
from yet:

=over

=item my $title_string = $parser->get_title

This tri <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	14125	14244	
==>zing itself based on its peer block's info
      # (available by passing $block in as an argument).
      #

      if ($ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	7439	7563	
==>ts}, 'LABEL_COMMENTS'),
            map { ($_->{label} ? ($_->{label}) : ()), $_->{code} } @output4
           );
}

sub dbg_ <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	2230	2349	
==>interp, enum_class_${_}, pass);\n"
        foreach (@pmcs[0 .. $#pmcs - 1]);
    print OUT <<"END_C";
        if (!pass) <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	3614	3724	
==>ackage
  $cur_package = $line;

}

sub lib_line {
  my $line = shift;
  print OUTPUT "loadlib P1, '$line'\n";
} <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	24488	24609	
==>{Todo_FH};
}


sub _new_fh {
    my($file_or_fh) = shift;

    my $fh;
    if( _is_fh($file_or_fh) ) {
        $fh = $file <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	3227	3335	
==>c,$d,@X);
	}
	pack 'V4',$a,$b,$c,$d;
}


sub md5_hex(@) {  
  unpack 'H*', &md5;
}

sub md5_base64(@) {
  enc <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21101	21203	
==>f defined $::RD_TRACE;').'
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) .'

		$_tok = ($_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90801	90916	
==>DY" => "#line 43 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91655	91770	
==>DY" => "#line 43 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92509	92624	
==>DY" => "#line 43 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	29	117	
==>01-2004, The Perl Foundation.
# $Id: /parrot/lib/Parrot/OpTrans/CPrederef.pm 20333 2006-0 <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	668	796	
==>.t$/_$count\.$_/; $t
        } ( qw(urm pasm pbc out) ); # JMG

        # STDERR is written into same output file
        open LA <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	8545	8659	
==>dx];

        if ($source->[$idx] !~ /\Q$end_boilerplate[$idx]\E/) {
            if ($ok == 2) { $mismatch_at = $id <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	72742	72840	
==>ce}\::ISA, 'Parse::RecDescent';";
	$self->{"startcode"} = '';

	my $rule;
	foreach $rule ( values % <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	3952	4073	
==>a =~ s/\s//g;
		    $a = qq!"$a"!;   # quote argument
		    $def_arg_names{$f}{$a} = $i;
		    # print STDERR "def $f($a = <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	4451	4572	
==>a =~ s/\s//g;
		    $a = qq!"$a"!;   # quote argument
		    $def_arg_names{$f}{$a} = $i;
		    # print STDERR "def $f($a = <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	22712	22827	
==>=> $flag,
    );
    my $result = new_tmp( $parser, 'pmc', 'boolean' );
    push @opcodes, new LocalDir( $parser, <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	23144	23267	
==>rint "    Renaming $was node to $dynasty[-1]\n"; 
        $treelet->[$i][0] = pop @dynasty;
        my $nugget;
        whil <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	5931	6037	
==>ted = ();

	my $prod;
	foreach $prod ( @{$self->{"prods"}} )
	{
		my $next = $prod->expected();
		unless (! <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12006	12209	
==>, \@opcodes, $assign ];
                }
                else {
                    my $assign = new StoreLexOp( $parser,
                        'arg1' => $defn,
                        'arg2' => u <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	947	1035	
==>G(i) REG_NUM(cur_opcode[i])
#define PREG(i) REG_PMC(cur_opcode[i])
#define SREG(i) REG_ST <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1063	1151	
==>G(i) REG_NUM(cur_opcode[i])
#define PREG(i) REG_PMC(cur_opcode[i])
#define SREG(i) REG_ST <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584723	584976	
==>lass, NULL);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585798	586051	
==>lass, NULL);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	26042	26204	
==>lastback);

    my @ops = (
                        aop('pushindex'),
                        aop('goto', [ $next ]),
               $back => aop('popindex', [ $R_ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	13395	13587	
==>,
                    'result' => $result,
                );
                return [ $result, \@opcodes, $assign ];
            }
        }
    }
}

sub BuildAssigns {
    my ( $par <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	15530	15665	
==>ng autogenerated, so these
            # methods aren't seen and not inherited properly
            #
            # the correct way woul <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	1095	1193	
==>defined symbols.

=item C<--file>

=item C<-f>

List the file(name) symbols.

=back

If more than o <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7769	7866	
==>" else print "Oops (string)"
s$=""
if s$ then print "Should not happen (string)"
i%=0
if i% then p <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14756	14853	
==>" else print "Oops (string)"
s$=""
if s$ then print "Should not happen (string)"
i%=0
if i% then p <==
3	/Users/nnunley/parrot/config/auto/headers.pm	95	188	
==>6-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/headers.pm - C headers

=head1 DESC <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1654	1766	
==>21 => 5, S22 => 9, S23 => 14,
	S24 => 20, S31 => 4, S32 => 11, S33 => 16, S34 => 23, S41 => 6, S42 => 10,
	S43 => <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	8159	8289	
==>x * $sublen;              # [m..sublen] repeated up to N times
    }
}

sub startset {
    my $op = shift;
    my @sub = $op->{args <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	372	477	
==>se qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $left, $right) = @_;

  c <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	363	468	
==>se qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $left, $right) = @_;

  c <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	8015	8148	
==>b']
            ),
            $self->c_source_item('', 'disassemble'),
            $self->c_pair_item('', 'trace'),
            $self <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	763	880	
==>hift->{nocheck} });
    return $t;
}

# Perform a few simple optimizations:
#
# 1. R(ST)    -> RST
# 2. aR|aS    -> a( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41880	41996	
==>] eq '=over') {
      $copy[0] = '=back';
    } else {
      die "I don't know how to auto-close an open $copy[0] reg <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	162	265	
==>tion - Parrot Distribution Directory

=head1 SYNOPSIS

    use Parrot::Distribution;

    my $dist = Par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642238	642327	
==>DY" => "#line 194 \"src/ops/pmc.ops\"\n  {{\@1}} = {{\@2}}->vtable->type_keyed(interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643126	643215	
==>DY" => "#line 194 \"src/ops/pmc.ops\"\n  {{\@1}} = {{\@2}}->vtable->type_keyed(interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	6773	6915	
==>p for the op size, etc., which we use later.
        #
        # Either of these two forms work:
        #
        #   inline op  name (args) { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170300	170436	
==>c"
                            ],
                  "BODY" => "#line 211 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpret <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171241	171377	
==>c"
                            ],
                  "BODY" => "#line 211 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpret <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629912	630223	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630901	631212	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107624	1107935	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	338571	338759	
==>396,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 108 \"src/ops/io.ops\"\n  {{\@1}} = PIO_STDOUT(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53276	53376	
==>= 0) { Interp_flags_SET(interpreter,   PARROT_GC_DEBUG_FLAG); }\n  else         { Interp_flags_CLEAR( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54032	54132	
==>= 0) { Interp_flags_SET(interpreter,   PARROT_GC_DEBUG_FLAG); }\n  else         { Interp_flags_CLEAR( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95028	95352	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95921	96245	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  " <==
3	/Users/nnunley/parrot/config/init/optimize.pm	961	1084	
==>d(' ', ccflags => "-DDISABLE_GC_DEBUG=1 -DNDEBUG");
        if ($optimize eq "1") {
            # use perl5's value
	    # g <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	770	867	
==>string against the Perl 6 pattern, passing the test
if they match.  Note that patterns should be s <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2868	2965	
==>string against the Perl 6 pattern, passing the test
if they match.  Note that patterns should be s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1037	1179	
==>=> $dest,
    LEFT  => $left,
    OP    => $op,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => $dest->file,
    LINE  => $dest->line
  }, $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1028	1170	
==>=> $dest,
    LEFT  => $left,
    OP    => $op,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => $dest->file,
    LINE  => $dest->line
  }, $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	917	1059	
==>=> $dest,
    LEFT  => $left,
    OP    => $op,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => $dest->file,
    LINE  => $dest->line
  }, $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596192	596335	
==>\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597085	597228	
==>\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38577	38698	
==>= grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    my $s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	1572	1693	
==>dfn
      kbd=keyboard
      variable=var
      citation=cite
      abbreviation=abbr
      acronym=acronym
      subscrip <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	5237	5355	
==>l is eval'ed
        if ($line =~ /^#perl/ && $options{feature_file}) {
            # OUT was/is used at the output fil <==
3	/Users/nnunley/parrot/languages/regex/test.pl	2387	2489	
==>tfile: $!";
    $pattern = <SPEC>;
    chomp($pattern);
}

generate_regular($pattern);
exit(0) if $comp <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	3226	3323	
==>stem.
It's just to get you started.  Once you're off the ground its
recommended you look at L<Test <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782033	782423	
==>re",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 883,
                  "ARGS" => [
                              "p",
                              "ki",
                              "sc" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47064	47282	
==>PARROT_ALL_DEBUG_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47847	48065	
==>PARROT_ALL_DEBUG_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	5027	5167	
==>efined, overrides struct accessor method");
        }
        else {
            $pre = $pst = $cmt = $sel = '';
            if( defined $ref <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	491	629	
==>> 'like',
    output_isnt       => 'isnt_eq'
                        );

foreach my $func ( keys %language_test_map ) {
    no strict 'refs <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	830	968	
==>> 'like',
    output_isnt       => 'isnt_eq'
                        );

foreach my $func ( keys %language_test_map ) {
    no strict 'refs <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19378	19501	
==>not ending in an
					  explicit action has the specified
		       			  \"auto-action\" automatically
					  appended.");
	} <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	317	444	
==>over

=cut

package Parrot::IO::File;

use strict;
use warnings;

use base qw( Parrot::IO::Path );

use FileHandle;
use Parrot:: <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	220	312	
==>II
  %Name2character
  %Name2character_number
  %Latin1Code_to_fallback
  %Latin1Char_to_fall <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	497	589	
==>II
  %Name2character
  %Name2character_number
  %Latin1Code_to_fallback
  %Latin1Char_to_fall <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	3316	3419	
==>exit unless my @files = get_files( %options );

    set_flags( %options );

    local $Test::Harness::Sw <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3961	4057	
==>s defines, not
system's or third parties'.

=back

=head1 HISTORY

Author: Jarkko Hietaniemi.

=c <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2809	2901	
==>ream inherits methods from
L<Pod::Simple>.


=head1 SEE ALSO

L<Pod::Simple::DumpAsXML> is ra <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1017	1137	
==>er->YYData->{_G}, \@opcodes ];
}

sub get_cond {
    my ( $parser, $expr )    = @_;
    my ( $defn,   $opcodes ) = @ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65063	65208	
==>ame,"$1..$2",$1,$2,
										   $lookahead,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->add <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	26430	26526	
==>ion"

	($extracted, $remainder) = extract_quotelike($text);


 # Extract the initial substring of <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	31948	32044	
==>pty string.

In a scalar context, just the extracted substring is returned. In
a void context, th <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	698	803	
==>) = _build_tree ($tokens, $count);
    push @{$temp->{children}}, $expr;
  }
  elsif ($tokens->[$count] eq <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	915	1020	
==>) = _build_tree ($tokens, $count);
    push @{$temp->{children}}, $expr;
  }
  elsif ($tokens->[$count] eq <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1129	1234	
==>) = _build_tree ($tokens, $count);
    push @{$temp->{children}}, $expr;
  }
  elsif ($tokens->[$count] eq <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18089	18223	
==>primary' => 28
		}
	},
	{#State 48
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27, <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	490	590	
==>building
dynamic PMCs.

=cut

use strict;

use File::Copy qw(copy);

# qq[] isn't guaranteed to work, <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	452	552	
==>building
dynamic PMCs.

=cut

use strict;

use File::Copy qw(copy);

# qq[] isn't guaranteed to work, <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	391	497	
==>cname}, ':',
        $parser->YYData->{lineno}, ': ', $msg
        if ( exists $parser->YYData->{verbose_ <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	857	963	
==>cname}, ':',
        $parser->YYData->{lineno}, ': ', $msg
        if ( exists $parser->YYData->{verbose_ <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1315	1421	
==>cname}, ':',
        $parser->YYData->{lineno}, ': ', $msg
        if ( exists $parser->YYData->{verbose_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	251222	251429	
==>"inline",
                  "CODE" => 292,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 703 \"src/ops/cmp.ops\"\n  {{\@2}}- <==
3	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	2015	2162	
==>d rerun make\n" if !@c;

    print '    ';
    my $i;
    for (@c) {
        printf "0x%02x", ord($_);
        ++$i;
        print ', ', if ($i < sc <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11525	11620	
==>dies (see F<tools/build/pmc2c.pl>).

=cut

sub rewrite_vtable_method ($$$$$) {
    my ($class, $ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	20064	20227	
==>y %type = (
        '-'   => 'number',
        '#'   => 'number',
        'not' => 'boolean',
    );
    my %opcode = (
        '-'   => 'neg',
        'not' <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2200	2313	
==>, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test::proclaim(u <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2595	2708	
==>, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test::proclaim(u <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485853	486177	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ceil",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14895	15057	
==>less( {
                  "JUMP" => "PARROT_JUMP_ADDRESS",
                  "NAME" => "jump",
                  "FLAGS" => ":base_loop",
                  "ARGDIR <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	7001	7118	
==>") {
			push @stream, pop @stack
				while(@stack and $stack[-1]->[0] ne "(");
			pop @stack;
			next;
		}

		if (	$ty <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9154	9259	
==>3 .. 5, 9);

  use_ok('Some::Module');
  use_ok('Some::Other::Module', todo => 1);

  ok(2 + 2 == 4, '2 an <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	2435	2534	
==>terp *interp, PMC* registry, int pmc_id)
{
    STRING* key = interp->vtables[pmc_id]->whoami;
    VT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496978	497263	
==>oatval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497848	498133	
==>oatval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498718	499003	
==>oatval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	7718	7826	
==>c}\n\n";
    push @op_funcs, $one_op;
    $index++;
}

if ($suffix =~ /cg/) {
    print SOURCE @cg_jump_table <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193543	193639	
==>,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194522	194618	
==>,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45810	46080	
==>( {
                  "JUMP" => 0,
                  "NAME" => "pushaction",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	75	182	
==>nslated (\d+) types out of (\d+) from .+?([\.\w]+)\n$/) {
		push @results, {
			name	=> $3,
			total	=> $ <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	75	182	
==>nslated (\d+) types out of (\d+) from .+?([\.\w]+)\n$/) {
		push @results, {
			name	=> $3,
			total	=> $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	322	429	
==>ype;

use Carp;

use overload
  "=="  => sub { $_[0]->code eq $_[0]->code },
  "!="  => sub { $_[0]->code ne <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	16679	16787	
==>{
    my ($self, $op, $sizer, $chooser, $lastback) = @_;

    my $try = $self->genlabel('dalt_try');
    my $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807872	807960	
==>.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed(interpreter, {{\@2}}, {{\@3}});\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808777	808865	
==>.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed(interpreter, {{\@2}}, {{\@3}});\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129145	129434	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGD <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11055	11149	
==>URN_${CURIC}
if "${CURIC}" == "73" goto pre_call_HAS_RETURN_${CURIC}
goto pre_call_NO_RETURN_${ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8241	8335	
==>URN_${CURIC}
if "${CURIC}" == "73" goto pre_call_HAS_RETURN_${CURIC}
goto pre_call_NO_RETURN_${ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5903	5997	
==>URN_${CURIC}
if "${CURIC}" == "73" goto pre_call_HAS_RETURN_${CURIC}
goto pre_call_NO_RETURN_${ <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	2778	2882	
==>",
       i => "set_nci_I(interpreter, &st, return_data);",
       I => "set_nci_I(interpreter, &st, retu <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	350	447	
==>t::LineCounter}, $thisline->[0],
	    $thisline->[1];
	$tlc;
}

sub expectation_message
{
	$Parse: <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	30232	30325	
==>older perlpods), or undef if none. E.g., in
# Getopt::Std/DESCRIPTION, "DESCRIPTION" is the se <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	1913	2013	
==>st labeled line before a "data" statement.
	my $singleif=0;
	my $elsetag=0;
	my $elsestack;
	my $ifli <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	330	427	
==>truct::Statement::Bitwise;

use Carp;

use base qw(Jako::Construct::Statement);

sub new
{
  my $c <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	18372	18468	
==>ction signature argument character 'v' ignored");
       signature = string_chopn(interpreter, si <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	4056	4192	
==>x->{external_labels}{$dest->{label}}) {
                        # Mark external label as reachable
                        $dest->{reacha <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	3168	3279	
==>.

=cut

sub process_link_start_token
{
    my $self = shift;
    my $token = shift;
    my $text = $self->do_li <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8245	8330	
==>$a,$b,$c,$d,$_[4],7,0xd76aa478,/* 1 */
FF,$d,$a,$b,$c,$_[5],12,0xe8c7b756,/* 2 */
FF,$ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	2524	2645	
==>. $func } = sub ($$;$%) {
            my( $code, $expected, $desc, %extra ) = @_;

            Parrot::Test::convert_line_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	2437	2553	
==>1;

  if ($count > 1) {
    return map { $self->at($index + $_) } (0..$count);
  }

  my $pos = $self->pos;

  $self- <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2938	3029	
==>fset($offset)>

=item C<goto_address($address)>

CPrederef is funky in that expr OFFSET(n) u <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	19076	19208	
==>$content =~ s/^:!/!:/s;
      my $neg;  # whether this is a negation-match
      $neg = 1        if $content =~ s/^!//s;
      my $to <==
3	/Users/nnunley/parrot/config/inter/libparrot.pm	1633	1754	
==>->data->get('rpath')
          .  $conf->data->get('build_dir')
          .  $conf->data->get('slash')
          .  $co <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	2138	2235	
==>r moderate heat, warm the oil until hot.

Add the puree and the balsamic vinegar, and cook, stirri <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	5416	5520	
==>{"opcount"}  = 0;
	$_[0]->{"vars"}  = "";
}

sub DESTROY {}

sub hasleftmost($$)
{
	my ($self, $ref) = @_ <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	5729	5822	
==>"
#include "parrot/oplib.h"

$sym_export extern op_lib_t *$init_func(long init);

END_C
my $cg <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	323	414	
==>it_cpu.c>. It parses the JIT file for the
specified CPU architecture type (F<src/jit/cpu-arc <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6407	6532	
==>}
}

sub needs_build {
    my ($target, @sources) = @_;

    my $target_mod = modtime($target)
      or return 1;
    for my $ <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4827	4952	
==>}
}

sub needs_build {
    my ($target, @sources) = @_;

    my $target_mod = modtime($target)
      or return 1;
    for my $ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6618	6743	
==>}
}

sub needs_build {
    my ($target, @sources) = @_;

    my $target_mod = modtime($target)
      or return 1;
    for my $ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	12178	12288	
==>urn $self->diag(sprintf <<DIAGNOSTIC, $got, $expect);
         got: %s
    expected: %s
DIAGNOSTIC

}    

=ite <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	2018	2113	
==>shortened to their unique prefixes, and one
leading dash ("-") can be used instead of two ("--") <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	3899	3994	
==>shortened to their unique prefixes,
and one leading dash ("-") can be used instead of two ("--") <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5608	5708	
==>m) = @_;

    if (needs_build("$stem$LOAD_EXT", "$stem$O")) {
        run(partial_link_cmd("$stem$LOA <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	35372	35504	
==>ll thru...
      }
      
      

      # ...Uhoh, here's the real L<...> parsing stuff...
      # "With the ill behavior, with the i <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22606	22707	
==>DONE_$label"]);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$labe <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23107	23208	
==>DONE_$label"]);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$labe <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	48012	48231	
==>$5: stuff containing no start-codes or end-codes
          (?:
            [^A-Z\ >]+
            |
            (?:
              [A-Z](?!<)
            )
            |
            (?:
              \ (?!>)
            ) <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2338	2455	
==>se();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exists($$self{USER})
	or	$$self{USER}={};

	$$sel <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2251	2357	
==>se();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exists($$self{USER})
	or	$$self{USER}={};

	$$sel <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20911	21001	
==>$self, $namespace, $rule) = @_;
	
''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Try <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33716	33806	
==>$self, $namespace, $rule) = @_;
	
''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Try <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20562	20651	
==>$="Whoa"
	bar(5)=66666
	lot$(2)="Goodbye"
	narf.first=909090
	poit(4).first=101010
end sub <==
3	/Users/nnunley/parrot/config/init/miniparrot.pm	929	1068	
==>}

    $conf->data->set(
        miniparrot         => 1,
        DEVEL              => $conf->data->get('DEVEL') . '-miniparrot',
        T <==
3	/Users/nnunley/parrot/config/gen/cpu/i386/auto.pm	590	722	
==>es = qw( memcpy_mmx.c memcpy_sse.c );
    for my $f (@files) {
        print " $f " if $verbose;
        my ( $suffix ) = $f =~ /memc <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	28612	28738	
==>k));
        }
    } elsif (UNIVERSAL::isa($op, "Regex::Ops::List")) {
        return ($lastback, $op);
    } else {
        $D <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	312926	313255	
==>ile",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 365,
                  "ARGS" => [
                              "s"
                            ],
                  "BO <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1801	1894	
==>on" attribute of "L" start-element events.  Most applications
can just use the normal stringif <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1314	1412	
==>xpected_perl = $expected.perl;
    my $test := ($got_perl eq $expected_perl);
    Test::proclaim($t <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2935	3040	
==>r);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
    $hand <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3609	3714	
==>r);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
    $hand <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3699	3804	
==>r);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
    $hand <==
3	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	1108	1216	
==>n\b

# debian/ should not go into release tarballs
^debian$
^debian/
END_HEADER
my $now = localtime();
$heade <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1097291	1097395	
==>1);\n        {{\@1}} = key_tail = key_new_string(interpreter, tmp);\n        max = VTABLE_elements(interp <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2011	2113	
==>v must be run from the directory that the compiler was invoked from.
    # Currently, this is the parro <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6984	7139	
==>t eat the eof
				and	$$token=$$value=undef;
                next;
            };

            #reduce
            my($lhs,$len,$code,@sempar,$semval) <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6659	6808	
==>t eat the eof
				and	$$token=$$value=undef;
                next;
            };

            #reduce
            my($lhs,$len,$code,@sempar,$semval) <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	5157	5254	
==>e was conceived while talking with Tony Bowden in his
kitchen one night about the problems I was h <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	252980	253212	
==>_not(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910625	910922	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1026,
                  "AR <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1760	1860	
==>elf );

		exists($$self{VERSION})
	and	$$self{VERSION} < $COMPATIBLE
	and	croak "Yapp driver vers <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	2748	2848	
==>sub '$cmd'
  .param int register
  .param pmc argv

  .local pmc compiler
  .get_from_HLL(compiler, ' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1699	1795	
==>elf );

		exists($$self{VERSION})
	and	$$self{VERSION} < $COMPATIBLE
	and	croak "Yapp driver vers <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85051	85407	
==>"FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 106,
                  "ARGS" => [
                              "p",
                              "s"
                            ], <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	3897	4014	
==>->[1]_method_t $entry->[1];\n";
    }

    $struct .= "};\n";

    return $struct;
}

=item C<vtbl_macros($vtable)>

R <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	10816	10919	
==>st::More's is().  Checks if $got == $expected.  This is the
numeric version.

=cut

sub is_eq {
    my($ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27831	27927	
==>T_DYNEXT_EXPORT ';
    }
    $hout .= <<"EOC";
void Parrot_${classname}_class_init(Parrot_Interp, <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2225	2318	
==>epth
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Decrement stack height. <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3477	3570	
==>epth
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Decrement stack height. <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	599	690	
==>f($ident) . ") is not!") unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value:: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	609	700	
==>f($ident) . ") is not!") unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value:: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	609	700	
==>f($ident) . ") is not!") unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value:: <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	2232	2332	
==>file;

#		local $::RD_HINT = 1;
		$self = Parse::RecDescent->new($grammar,1)
			|| croak("Can't compi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1972	2067	
==>$i]};
    my $actual_arg_type;

    if (UNIVERSAL::isa($args[$i], 'Jako::Construct::Expression:: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1672	1767	
==>$i]};
    my $actual_arg_type;

    if (UNIVERSAL::isa($args[$i], 'Jako::Construct::Expression:: <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5104	5206	
==>BG>	my($dbgerror)=0;

#DBG>	my($ShowCurToken) = sub {
#DBG>		my($tok)='>';
#DBG>		for (split('',$$t <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39700	39799	
==>age Parrot::Pmc2c::deleg_pmc;
use base 'Parrot::Pmc2c';
import Parrot::Pmc2c qw( gen_ret );

=item C <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4858	4956	
==>BG>	my($dbgerror)=0;

#DBG>	my($ShowCurToken) = sub {
#DBG>		my($tok)='>';
#DBG>		for (split('',$$t <==
3	/Users/nnunley/parrot/languages/regex/test.pl	4159	4295	
==>) {
        print "ok $testnum\n";
        return 1;
    } else {
        print "not ok $testnum\n";
        print " == Received ==\n$act <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	5396	5504	
==>uildprefix};

    $directories{dirname($dest)} = 1;
    push(@files, [ $src => $dest ]);
} continue {
    clo <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	3674	3770	
==>/\.(pl|pm|t|PL|pod|pasm)$|_pm\.in$/
	    or $text =~ /^\#/;
    return &describe_misc_file($info, <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	874	980	
==>ns the C C<#define> macros required by the ops.

=cut

sub defines
{
    return <<END;
#define REL_PC ((siz <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	830	936	
==>ns the C C<#define> macros required by the ops.

=cut

sub defines
{
    return <<END;
#define REL_PC ((siz <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1004	1110	
==>ns the C C<#define> macros required by the ops.

=cut

sub defines
{
    return <<END;
#define REL_PC ((siz <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419382	419711	
==>nction",
                  "CODE" => 482,
                  "ARGS" => [
                              "i",
                              "p",
                              "i",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 557 \"src/ops/io <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719796	719896	
==>ops\"\n  PMC * const io = {{\@1}};\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720996	721096	
==>ops\"\n  PMC * const io = {{\@1}};\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646363	646652	
==>"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 722,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 211 \"src/ops/pmc <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10658	10766	
==>it as a BUG");

}#_Parse
#DO NOT remove comment

1;

}
#End of include------------------------------- <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10181	10281	
==>it as a BUG");

}#_Parse
#DO NOT remove comment

1;

}
#End of include------------------------------- <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	38291	38382	
==>G and print "Treating $para_type paragraph as such because the containing =for ($fors[-1][1] <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	18428	18551	
==>n' && $name ne 'default') {
         $tree = $tree->{args}->[0];
     }
     my $op = op('rule' => [ $name, $tree, 1 + $::pa <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3486	3605	
==>les)) {
            run("$PMC2C --library $group --c " . join(" ",@pmcfiles))
              or die "pmc2c library creati <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3590	3709	
==>les)) {
            run("$PMC2C --library $group --c " . join(" ",@pmcfiles))
              or die "pmc2c library creati <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7606	7747	
==>evnull
            if $_ and $_ eq '/dev/null';
    }

    if ($out and $err and $out eq $err) {
        $err = "&STDOUT";
    }

    local *O <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2094	2201	
==>->compile($compiler);
    $right = $right->compile($compiler);

    if ($cond eq 'unless') {
      $op = $co <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	2302	2404	
==>>{symbtab_cst} = $symbtab;
    my $g = pop @{ $parser->YYData->{scope} };
    $parser->YYData->{_G} = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773327	773463	
==>"i"
                            ],
                  "BODY" => "#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774237	774373	
==>"i"
                            ],
                  "BODY" => "#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	14238	14359	
==>ngth $params) {
        my $proto = join ', ', map { $proto_type_ref->{$_} } split( '', $params );
        # This is an af <==
3	/Users/nnunley/parrot/languages/APL/t/APL.pm	1809	1931	
==>Parrot::Test::language_output_is('APL', $apl, $output, $block->name);
        }
      } else {
        SKIP: {
          sk <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	53451	53558	
==>st brilliant routine, but passable.
  # Don't give it a cyclic data structure!
  my @stuff = @_; # copy
  my <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	9834	9986	
==>me.h
div         stdlib.h
erf         math.h
erfc        math.h
erfcf       math.h
erfcl       math.h
erff        math.h
erfl        math.h
errno       e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	530668	530962	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cos",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1201	1301	
==>block, $ident_name, $kind, $scope, $type) = @_;

  confess "No \$compiler!" unless $compiler;

  my $ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	2954	3045	
==>NING: $syms[CURR] is unimplemented, skipping.\n";
		push @{$code{$seg}->{code}}, "\t# Unimpl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	6867	7007	
==>file()
#

sub slurp_file
{
  my $self = shift;
  my ($file) = @_;

  my $fh = FileHandle->new($file);

  die "$0: IO Error. Unable to open fi <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	36462	36581	
==>_op_char_le_p,
  'char>=?'          => \&_op_char_ge_p,
  'char-ci=?'        => \&_op_char_eq_p,
  'char-ci<?'        => <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	47836	47945	
==>ing_document( $_[0] );
  # use Data::Dumper; print Dumper($parser), "\n";
  return $out;
}


sub _duo {
  # Fo <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2503	2606	
==>n<$2>", "/$1", => "</$2>\n" ) : die "Funky $_"
  } @_;
}
sub changes2 {
  return map {; m/^([-_:0-9a-zA- <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	3066	3165	
==>egular expressions. It is not needed for basic
# compilation.
#
# Probably the best way to understan <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5930	6027	
==>nything it is unconditional, so next instruction needs to
	# have an empty stack type state propog <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3868	3965	
==>nything it is unconditional, so next instruction needs to
	# have an empty stack type state propog <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62671	62776	
==>("a zero-or-more subrule match", $aftererror,$line,"$code$argcode($1)");
					if ($2)
					{
						my $pos <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	239063	239292	
==>[
                              "i",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 611 \"src/ops/cmp.ops\"\n  {{\@1}} = mmd_dispatch_i_pp(int <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	862	989	
==>ut file
        open LANG, "> $lang_f" or die "Unable to open '$lang_f'"; # JMG
        binmode LANG; # JMG
        print LANG $ <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	774	901	
==>ut file
        open LANG, "> $lang_f" or die "Unable to open '$lang_f'"; # JMG
        binmode LANG; # JMG
        print LANG $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736238	736520	
==>"set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 827,
                  "A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738173	738396	
==>t.ops\"\n  {{\@1}} = string_to_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738937	739160	
==>t.ops\"\n  {{\@1}} = string_to_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8090	8268	
==>ound = $self->find_symbol($name);

  return $found ? $found->type : undef;
}


###############################################################################

=head2 BLOCK->kind_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716499	716603	
==>reter, p));\n  if (s) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724391	724495	
==>reter, p));\n  if (s) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	8945	9074	
==>k ])
      unless ($op->{nocheck});

    my @debugging;
    if ($self->{DEBUG}) {
        my $old_lastback = $lastback;
        $l <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	1226	1344	
==>one of:
    #   struct( class => [ element-list ])
    #   struct( class => { element-list })
    #   struct( element-l <==
3	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	583	685	
==>uent runs can be done with:
#    parrot.exe out.pbc
#
open(T, ">merged_basic.pasm") || die;

print T << <==
3	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	1465	1563	
==>f $up_to_date;

print "$command\n";
my $status = system($command);
exit 1 if (! defined $status);
e <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34973	35067	
==>arse::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = $Parse::RecDescent: <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42083	42177	
==>arse::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = $Parse::RecDescent: <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27873	27993	
==>$a);
			} elsif ($syms[NEXT] eq "(") {
				feedme();
				while($syms[CURR] ne ")") {
					feedme();
				}
				push(@param <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2743	2861	
==>=~ tr/\n\r//d;
        
      } elsif( $line =~ s/^\xFE\xFF//s ) {
        DEBUG and print "Big-endian UTF-16 BOM seen. <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	6915	7003	
==>name =~ /\.svn|core|\.[oa]|\.(so|brk|dsp|tmp)$/;
	return if $name =~ /locales\W[a-z_]+\.t <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	538	744	
==>lows:

    OpTrans
       |_________________________
       |           |             |
       C         CGoto       Compiled
       |           |
    CPrederef      |
       | |         |
       | |________ <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10226	10318	
==>ied from Text/Unidecode/x00.pm:

' ', qq{!}, qq{C/}, 'PS', qq{\$?}, qq{Y=}, qq{|}, 'SS', qq{" <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	35393	35501	
==>_dest = next_pc + I_arg_0
ss = clone stypes
ss_propogate[sp_dest] = ss
PIRCODE
        }

		# Finally, call p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832170	832360	
==>), STACK_ENTRY_FLOAT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832898	833088	
==>), STACK_ENTRY_FLOAT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9378	9515	
==>value> <op> <value>) {
    #
    #   <label>: while (<value> <op> <value>) {
    #            while (<value> <op> <value>) {
    #
 
    i <==
3	/Users/nnunley/parrot/languages/urm/urm-old.pl	182	288	
==>AM, $ARGV[0] or die "Couldn't get file";
foreach my $line (<PROGRAM>) {
    chomp $line;
    next if ($line <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	10080	10185	
==>the accumulated body of source code in the Parrot::Op, push the
        # Parrot::Op onto our op array, an <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	8342	8434	
==>$balanced, $remaining) = extract_balanced($code);

Remove a balanced {} construct from the be <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48883	49007	
==>ot have
					       a maximum repetition of zero, nor can they have
					       negative components in their ranges.");
				} <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	66997	67121	
==>ot have
					       a maximum repetition of zero, nor can they have
					       negative components in their ranges.");
				} <==
3	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	923	1026	
==>rot_version;
    $parrot_version =~ s/\s+//g;
    @parrot_version = split(/\./, $parrot_version);

    i <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27959	28063	
==>etext;' : '').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$P <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30033	30137	
==>etext;' : '').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$P <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32234	32338	
==>etext;' : '').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$P <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	5625	5807	
==>gs  => '-WD',
            libs           => 'import32.lib cw32.lib',

            link      => ${cc},
            linkflags => '',

            ar       => 'tlib',
            ar_flag <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	948	1060	
==>w C source and header file documentation item.

=cut

sub c_pair_item
{
    my $self = shift;
    
    return $se <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14166	14272	
==>title =~ m/^\S+$/s and $title =~ m/::/s;
    # catches the most common case, at least

  DEBUG and print "T <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8794	8913	
==>put_peekindex {
    my $self = shift;
    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8454	8573	
==>put_peekindex {
    my $self = shift;
    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62704	62821	
==>$aftererror,$line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr($grammar,$pos,0 <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63415	63532	
==>$aftererror,$line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr($grammar,$pos,0 <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64145	64262	
==>$aftererror,$line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr($grammar,$pos,0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959321	959461	
==>tring_trans_encoding(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960123	960263	
==>tring_trans_encoding(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	2270	2361	
==>pecific to Parrot,
not some generic term.  Currently acceptable prefixes are
C</^(Parrot|PDB <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2798	2995	
==>ol}\[$op->{arg2}->{symbol}\]\n";
    }

    sub visitKeyedSetOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113790	113949	
==>"i"
                            ],
                  "BODY" => "#line 204 \"src/ops/bit.ops\"\n  {{\@1}} <<= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2597	2720	
==>s
    undef,            # No args
    $self->file,
    $self->line
  );

  $block->set_symbol($self->name, $sym);

  $block- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2875	2997	
==>s
    undef,           # No args
    $self->file,
    $self->line
  );

  $block->set_symbol($self->name, $sym);

  $block- <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20164	20269	
==>36  France French
  3084  Canada French
  1035  Finnish
  1044  Norwegian (Bokmal)
  2068  Norwegian (Nyno <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	24481	24597	
==>>[-1]->isa('CallOp') ) {
        $defn->{pragma} = 'first';
    }
    return $expr;
}

sub BuildLocalVariable { <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	2281	2388	
==>m.pl'),
            $self->new_item('', 'tools/build/parrot_config_c.pl'),
            $self->new_item('', ' <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	895	1023	
==>ng_f" or die "Unable to open '$lang_f'"; # JMG
        binmode LANG; # JMG
        print LANG $lang_code; # JMG
        close LAN <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	807	935	
==>ng_f" or die "Unable to open '$lang_f'"; # JMG
        binmode LANG; # JMG
        print LANG $lang_code; # JMG
        close LAN <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28204	28310	
==>p for rule $rule->{'name'}");
		$pir .= "### end post_op\n";
	}

	# Loads (load class).
	elsif ($rule->{'cl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299121	299540	
==>RGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 348,
                  "ARGS" => [
                              "i",
                              "n",
                              "n"
                            ],
                  "BODY" <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	4833	4960	
==>q 'T') {
	    $Code{$s} = $o;
	} elsif ($v =~ /[BDR]/) {
	    if ($v eq 'B') {
		$DataB{$s} = $o;
	    } elsif ($v eq 'D') {
		$ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	4524	4629	
==>tput_fh.  Simplifies our code.
  #
  my $this = shift;
  return $this->{'output_string'} unless @_;  # GET <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15537	15657	
==>er, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new Ass <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19290	19410	
==>er, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new Ass <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	12718	12815	
==>extern()", "RESULT",  "\$$optype$retcount"];
			} elsif (isbuiltin($sym)) {
				$extern=~s/\$/_str <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	14608	14714	
==>ncat "push_eh LAB"
    handler_offset = eh.get_handler_offset()
    tmp = handler_offset
    gen_pir = conc <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1281	1382	
==>1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
dec ${ITEMP0}
${PTEMP0} = ${ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2991	3092	
==>1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
dec ${ITEMP0}
${PTEMP0} = ${ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1147	1259	
==>,
    LINE  => $dest->line
  }, $class;

  $block->push_content($self);

  return $self;
}

sub dest  { return sh <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1138	1250	
==>,
    LINE  => $dest->line
  }, $class;

  $block->push_content($self);

  return $self;
}

sub dest  { return sh <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1027	1139	
==>,
    LINE  => $dest->line
  }, $class;

  $block->push_content($self);

  return $self;
}

sub dest  { return sh <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	557	650	
==>RSAL::isa($block, 'Jako::Construct::Block');
  confess("Dest (" . ref($dest) . ") is not Ident <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	548	641	
==>RSAL::isa($block, 'Jako::Construct::Block');
  confess("Dest (" . ref($dest) . ") is not Ident <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	437	530	
==>RSAL::isa($block, 'Jako::Construct::Block');
  confess("Dest (" . ref($dest) . ") is not Ident <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	22389	22501	
==>i];
				$class = $class[$i];
				$lastpos = pos $$textref;
				if (ref($func) eq 'CODE')
					{ ($field,undef,$pr <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	2895	3002	
==>elf->c_pair_item('', 'embed'),
            $self->c_pair_item('', 'global_setup'),
            $self->c_item <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	4710	4833	
==>ch my $arg (@{ $t->{args} }) {
            if (UNIVERSAL::isa($arg, 'Regex::Ops::Tree')) {
                # $arg is a refer <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	10060	10183	
==>ch my $arg (@{ $t->{args} }) {
            if (UNIVERSAL::isa($arg, 'Regex::Ops::Tree')) {
                # $arg is a refer <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	15946	16042	
==>MP_GNEXT")      if (($jumps) && ($fixedargs[@fixedargs - 1]) && ($fixedargs[@fixedargs - 1] eq 'i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88829	89092	
==>NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89566	89829	
==>NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	5146	5253	
==>iting: $!!\n";


#
# Print the preamble for the HEADER and SOURCE files:
#

my $preamble = <<END_C;
/* ex: s <==
3	/Users/nnunley/parrot/Configure.pl	4592	4701	
==>m/--([-\w]+)(?:=(.*))?/;
  $key   = 'help' unless defined $key;
  $value = 1      unless defined $value;

  fo <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10978	11094	
==>xt) {
      $out .= $t->text;
    } elsif($t->is_start and $t->tag eq 'X') {
      # ignore until the end of this X<. <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1592	1706	
==>k = $self->block;
  my $value = $self->value;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3212	3326	
==>k = $self->block;
  my $value = $self->value;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $ <==
3	/Users/nnunley/parrot/Configure.pl	6367	6471	
==>er generator
   --yacc=(parser)      Use the given parser generator

   --define=inet_aton   Quick hack t <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2111	2199	
==>$self->block->find_symbol($args[$i]->value);
      $self->SYNTAX_ERROR("Undefined identif <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1811	1899	
==>$self->block->find_symbol($args[$i]->value);
      $self->SYNTAX_ERROR("Undefined identif <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	8951	9077	
==>ge;
    }

    my $result = join " ", @results;
    $result = " $result" if @results;
    return $result;
}

sub footer {
    r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240128	240217	
==>616 \"src/ops/cmp.ops\"\n  INTVAL l = VTABLE_get_integer(interpreter, {{\@2}});\n  {{\@1}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241076	241165	
==>616 \"src/ops/cmp.ops\"\n  INTVAL l = VTABLE_get_integer(interpreter, {{\@2}});\n  {{\@1}} <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7165	7270	
==>,$code)=@{$$rules[-$act]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print STDERR "Reduce usin <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6833	6934	
==>,$code)=@{$$rules[-$act]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print STDERR "Reduce usin <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	2714	2841	
==>get_dis {
    my ($cmd, $f) = @_;
    @dis = qx($cmd $f);
    print @dis if $opt{d};
}

sub get_source {
    my ($f) = @_;
    o <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	26198	26312	
==>{ # like "B", "M,I", etc.
      $self->whine(
        $para->[1]{'start_line'},
        "Format for third =extend p <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	49808	49903	
==>ecies as the last opening bracket, return the substring to that
point. If the bracket was mismat <==
3	/Users/nnunley/parrot/config/gen/PodText.pm	1500	1637	
==>!";
        my $text = do {local $/; <$fh>};
        $text = "# DO NOT EDIT THIS FILE\n"
              . "# Generated by " . __PACKAGE__ . <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2898	2999	
==>nfo->{desc}) {
	    print "\n* $info->{path}\n\n$info->{desc}\n";
	} else {
	    print "( $info->{path <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	7713	7803	
==>@codeb	\$N100= $resultb
@codef	\$N101= $resultf
	_screen_color(\$N101,\$N100)
FANDB
	} elsi <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13789	13894	
==>mber of lines, C<$out_name> is the name of the output file we are
generating.

=cut

sub body
{
    my ($s <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29572	29677	
==>mber of lines, C<$out_name> is the name of the output file we are
generating.

=cut

sub body
{
    my ($s <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30214	30319	
==>mber of lines, C<$out_name> is the name of the output file we are
generating.

=cut

sub body
{
    my ($s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931929	932219	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":bas <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932700	932990	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":bas <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1307	1416	
==>m;

  my %props = $sym->props;

  my @args  = $self->args;

  my @formal_args = $sym->args;

  $self->SYNTAX_E <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27891	28011	
==>syms[NEXT] eq "(") {
				feedme();
				while($syms[CURR] ne ")") {
					feedme();
				}
				push(@params, "()$a");
			} e <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34567	34665	
==>kahead"} ? '$text = $_savetext;' : '')
			    .($::RD_NO_TRACE?'':'
			Parse::RecDescent::_trace(q{ <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3822	3916	
==>or: also in that
namespace, Parrot should only present Parrot_ (and similar) symbols to
the out <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19721	19898	
==>stback
#                 $matchcount--
#                 goto R.back
#           back: if $matchcount >= max goto rfail
#                 R or rfail
#                 $matchcount <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19423	19590	
==>stback
#               $matchcount--
#               goto R.back
#         back: if $matchcount >= max goto rfail
#               R or rfail
#               $matchcount <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	12498	12592	
==>array reference
as the sole argument, this causes an assignment of the whole array element.
The <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	41168	41271	
==>s $scope->{$symbol}) {
    $scope = $scope->{'*UP*'};
  }
  if (!$scope) {
    push @{$self->{functions} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191594	191682	
==>Y" => "#line 313 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192534	192622	
==>Y" => "#line 313 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@ <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	10345	10462	
==>{lc($filename)});
        }
        $files_in_dir_nocase{$dirname}{lc($filename)}=$_;
    }

    close(F);
}



sub in <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	10681	10798	
==>13052; }
    .indent2 { padding-left: 40px; }
    .indent3 { padding-left: 80px; padding-bottom: 10px; }

    p, dl, p <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	3838	3930	
==>decl()>.

=back

B<Macro Substitutions>

The following methods are called by C<Parrot::OpFile <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	9249	9371	
==>else {
                print MAKEFILE "\tperldoc -u ..${slash}ops${slash}$ops > ops${slash}$pod\n";
                print M <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	184	296	
==>uilder;
my $Test = Test::Builder->new;

sub import {
    my $self = shift;
    my $caller = caller;
    *{$caller <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2094	2185	
==>,ord($1)/eg;
  }
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	750	858	
==>atching regexes (multiple)
   -time              show times instead of percentage

=head1 DESCRIPTION

Benchm <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191602	191690	
==>line 313 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) < { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192542	192630	
==>line 313 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) < { <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	11946	12071	
==>ng ALREADYDONE';
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

sub _handle_encoding_second_l <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2791	2895	
==>val2, $dest) = @_;
    $self->output_test('!=', $val1, $val2, $dest);
}

sub output_lt {
    my ($self, $ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	25657	25752	
==>{hashname} = $self->{hashname};
	return $dir->code($namespace, $rule, 0);
}

1;

package Parse:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049741	1050128	
==>",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1173,
                  "ARGS" => [
                              "p",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 17 <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	5676	5788	
==>next physical line in the output.

=cut

sub line_directive_here {
    my ($self, $output, $file) = @_;

    # Co <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1433	1524	
==>P0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = " <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1960	2051	
==>P0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = " <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3143	3234	
==>P0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = " <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	4303	4412	
==>tend.h);

for my $h (@H) {
    if (open(H, $h)) {
	while (<H>) {
	    if (/^\w+\s+(Parrot_\w+)\(/) {
		$Parrot <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	948	1047	
==>er) = @_;
  
  my $ident_name = $self->ident->value;

  my $ident = $self->ident->compile($compiler) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	948	1045	
==>er) = @_;

  my $ident_name = $self->ident->value;

  my $ident = $self->ident->compile($compiler) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205300	205551	
==>" => 242,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 387 \"src/ops/cmp.ops\"\n  if (mmd_dispat <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722183	722284	
==>rc/ops/python.ops\"\n  STRING * const s = {{\@2}};\n  PMC * const io = {{\@1}}; /* TODO Can this be lo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723212	723313	
==>rc/ops/python.ops\"\n  STRING * const s = {{\@2}};\n  PMC * const io = {{\@1}}; /* TODO Can this be lo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	246780	247086	
==>CMP);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "and" <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	3644	3819	
==>),
            $self->c_item(
                '', 
                'pairs' => ['stacks'], 
                'sources' => ['stack_common']
            ),
            $self->c_hea <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	5376	5495	
==>_o,
        TEMP_pmc_build       => $TEMP_pmc_build,
        TEMP_pmc_classes_o   => $TEMP_pmc_classes_o,
        TEMP_p <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	9391	9496	
==>len { undef }
sub dfa_safe { 0 }
sub hasback { 1 }
sub startset { undef }

# Embedded code is truly unpred <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3094	3191	
==>using $vars before it's set.
	$vars=1;
	if ($noreloop) {
		push @{$code{$seg}->{code}}, "\t#ne \$I <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	510	671	
==>subclass hierarchy is as follows:

    OpTrans
       |_________________________
       |           |             |
       C         CGoto       Compiled
       | <==
3	/Users/nnunley/parrot/Configure.pl	5265	5365	
==>step=regex Set verbose for step matching description
   --nomanicheck        Don't check the MANIFEST <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	807	900	
==>es instead of percentage

=head1 DESCRIPTION

Benchmark Parrot against other interpreters.

=h <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	8225	8346	
==>= 0;

        # If there were things with different types, create a new seq
        # that has a child seq for each chunk. <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	837	924	
==>nterpreter->code->base.data))
#define CUR_OPCODE cur_opcode
#define IREG(i) REG_INT(cur_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	953	1040	
==>nterpreter->code->base.data))
#define CUR_OPCODE cur_opcode
#define IREG(i) REG_INT(cur_ <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	10116	10245	
==>print <<"EOC";
	$n = new $DEFVAR
	$n = $v->[1]
EOC
    }
    $n;
}

sub LOAD_CONST {
    my ($n, $c, $cmt) = @_;
    my $typ = typ <==
3	/Users/nnunley/parrot/config/inter/ops.pm	1003	1110	
==>de subset libs
    if (0 && $conf->options->get('ask')) {
        print <<"END";


The following opcode file <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4756	4860	
==>, DO NOT remove comment at end of sub !!!
sub _Parse {
    my($self)=shift;

	my($rules,$states,$lex, <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4520	4620	
==>, DO NOT remove comment at end of sub !!!
sub _Parse {
    my($self)=shift;

	my($rules,$states,$lex, <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	1590	1709	
==>o{undef local $/;<$ffh>} );
        close $ffh;

	# Only generate output test file if we can find tests...
        my $o <==
3	/Users/nnunley/parrot/config/inter/charset.pm	547	679	
==>, $conf) = @_;

    my @charset = (
        sort
            map { m{\./src/charset/(.*)} } glob "./src/charset/*.c"
    );

    my $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	7208	7324	
==>@@@@@@@@@@@@@@@@

# $self->{'source_filename'} = $source;

sub set_source {
  my $self = shift @_;
  return $self->{' <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	2106	2205	
==>$file`;
    if (!$ret) {
	print STDERR "TEST FAILED: $file didn't return a value, Parrot crashed?\n" <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	36895	37049	
==>ndef, $idf );
        push @opcodes1, new ParamDir( $parser,
            'prolog' => 1,
            'result' => $defn,
        );
        my $nil = Bu <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1775	1888	
==>libparrot.a';
    }
}

# OPS2C Config
our $OPS2C = "$PERL -I $PATHQUOTE" . 
             q[/Users/nnunley/parrot/l <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544049	544210	
==>"
                            ],
                  "BODY" => "#line 1056 \"src/ops/math.ops\"\n INTVAL gcd = 0;\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545385	545546	
==>"
                            ],
                  "BODY" => "#line 1056 \"src/ops/math.ops\"\n INTVAL gcd = 0;\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546721	546882	
==>"
                            ],
                  "BODY" => "#line 1056 \"src/ops/math.ops\"\n INTVAL gcd = 0;\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1709	1804	
==>SYNTAX_ERROR("Wrong number of arguments (expected %d, got %d) in call to '%s'.",
    scalar(@for <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1409	1504	
==>SYNTAX_ERROR("Wrong number of arguments (expected %d, got %d) in call to '%s'.",
    scalar(@for <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20974	21065	
==>= P1["types"]
	P2["$typename"]= P0
	goto OUTOF_$typename
DIM_$typename:
	#print "Dimensionin <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	12066	12244	
==>no);
            }
            elsif ( $func =~ m/^pbc_output_/ ) {
                $code_f = per_test('.pbc', $test_no);
            }
            else {
                die "Unk <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	571	705	
==>the elapsed time, and 

=item * the number of M op/s.

=back

=cut

sub time_hires { time() }

$I2 = 0;                      # set    I <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	574	707	
==>the elapsed time, and

=item * the number of M op/s.

=back

=cut

sub time_hires { time() }

$I2 = 0;                      # set    I <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21467	21575	
==>E_$label");
  return $return;
}

sub _op_positive_p {
  my ($self,$node) = @_;
  my $return;
  my $label = $s <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	136	233	
==>ncomplete python bytecode to PIR translator
# It's purpose is just to investigate missing pythonic <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21579	21706	
==>r.\n"),
     last if @to_unget > 25; # sanity
    
    my $pattern = '';
    if( #$to_unget[-1]->type eq 'end'
        #and $to_ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14064	14161	
==>el"]);
    $self->_add_inst ('', 'set', [$return,1]);
    $self->_add_inst ('', 'branch', ["DONE_$ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16336	16429	
==>el"]);
  $self->_add_inst ('', 'set', [$return,1]);
  $self->_add_inst ('', 'branch', ["DONE_$ <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	4254	4388	
==>e'}}) } $cmt\n";
           $out .= "       elsif (UNIVERSAL::isa(\$init{'$name'}, '$type'))\n";
            $out .= "            { \$r <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30145	30258	
==>le->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end translation\n";

		# Push load type on <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	13551	13648	
==>ation
could be started).  This is most useful when writing modules and you
find there is some lang <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840199	840388	
==>NTEXT(interpreter->ctx)->user_stack, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840894	841083	
==>NTEXT(interpreter->ctx)->user_stack, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	85	174	
==>ude.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/gen/parrot_include.p <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6274	6359	
==>th[${ITEMP0}] = stack_depth
goto POST_BRANCH_NOT_switch_${CURIC}

POST_BRANCH_switch_$ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4212	4297	
==>th[${ITEMP0}] = stack_depth
goto POST_BRANCH_NOT_switch_${CURIC}

POST_BRANCH_switch_$ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3076	3182	
==>()
#
# TODO: Convert escapes. For example, "\n" should be an actual newline.
#

sub sax
{
  my $self = shif <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	5024	5124	
==>'String' goto print_space
    if old_type != value_type goto print_space
    goto iter_loop
  print_s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	46184	46284	
==>d !ref($p->[$i + 1]) ) {
      DEBUG > 5 and print "_verbatim_format merges {$p->[$i]} and {$p->[$i+1 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2545	2655	
==>he block at the top of the block stack. We fill in the
  # IDENT entry within the block.
  #

  $sym = Jako::Sy <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2292	2402	
==>he block at the top of the block stack. We fill in the
  # IDENT entry within the block.
  #

  $sym = Jako::Sy <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	505	604	
==>arrot::OpTrans );

=item C<defines()>

Returns the C C<#define> macros required by the ops.

=cut

s <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39004	39139	
==>2) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $parser->Error("no l <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	56940	57043	
==>gle substring that is a valid Perl quotelike
operator (and removes it from $text):

        $quotelike = <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35620	35719	
==>->{"subrule"} }
sub isterminal { 0 }
sub sethashname { }

sub describe ($)
{
	my $desc = $_[0]->{"ex <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	5813	5929	
==>ame}     cmp lc $b->{osname}     ||
          $b->{timestamp}[0]  <=> $a->{timestamp}[0]
        } @{ $branches{$bran <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149155	149245	
==>cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) == {{\@2}}) {\n    {{+={ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150096	150186	
==>cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) == {{\@2}}) {\n    {{+={ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	23588	23704	
==>is_shared} ? $libparrot_shared : $libparrot_static;

            my $iculibs = "";
            if ($PConfig{'has_icu' <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	8120	8226	
==>efined $t and length $t;
    # TODO: enforce some limitations on what a target name can be?
    $this->{'ac <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6920	7022	
==>>_save_1('P');
  my $label = $self->_gensym;

  # check for empty list
  $self->_add_inst('', 'typeof', <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225467	225558	
==>cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226408	226499	
==>cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5529	5631	
==>rns the C code following the run core function.

=cut

sub run_core_finish
{
    my ($self, $base) = @_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3865	3967	
==>rns the C code following the run core function.

=cut

sub run_core_finish
{
    my ($self, $base) = @_ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	38222	38318	
==>I<not> appear within the tagged text.

For example, to extract
an HTML link (which should not con <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	5426	5562	
==>0;
    my ($name, $footer);
    my $type;
    my $body;
    my $short_name;
    my $args;
    my @args;
    my @argdirs;
    my $seen_pod <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	322	416	
==>tion describing Parrot's client languages.

=head2 Class Methods

=over

=cut

package Parrot:: <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6452	6578	
==>ces) = @_;

    my $target_mod = modtime($target)
      or return 1;
    for my $source (@sources) {
        return 1 if modtim <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4872	4998	
==>ces) = @_;

    my $target_mod = modtime($target)
      or return 1;
    for my $source (@sources) {
        return 1 if modtim <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6663	6789	
==>ces) = @_;

    my $target_mod = modtime($target)
      or return 1;
    for my $source (@sources) {
        return 1 if modtim <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	5578	5709	
==>elta'    , 948,
 'epsilon'  , 949,
 'zeta'     , 950,
 'eta'      , 951,
 'theta'    , 952,
 'iota'     , 953,
 'kappa'    , 954,
 ' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	43042	43162	
==>ckwards over the lines, except the first (#2)
    
    #next unless $p->[$i]   =~ m{^#:([ \^\/\%]*)\n?$}s
    #        an <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	20309	20423	
==>rselves, we can't just redo()

      } elsif( ref $treelet->[$i] ) {
        DEBUG > 4 and print "  Enqueuing ", pr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083320	1083589	
==>" => "function",
                  "CODE" => 1202,
                  "ARGS" => [
                              "p",
                              "ic",
                              "kc"
                            ],
                  "BODY" => "#line 145 \"src/ops/exp <==
3	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1200	1303	
==>e is generated automatically by $0.
 *
 * Any changes made here will be lost!
 *
 */

#include "parrot/p <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74061	74163	
==>($parser, $text, $prod, $min, $max, $_noactions, $argcode) = @_;

	my @tokens = ();
	my $reps;
	my $_sa <==
3	/Users/nnunley/parrot/config/init/hints/solaris.pm	2935	3042	
==>we should run an
    # ieee-conformance test and then call back into a hints-file trigger
    # to set platf <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653428	653524	
==>);\n    if (!{{\@1}} || !VTABLE_defined(interpreter, {{\@1}}))\n        real_exception(interprete <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654589	654685	
==>);\n    if (!{{\@1}} || !VTABLE_defined(interpreter, {{\@1}}))\n        real_exception(interprete <==
3	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	390	513	
==>ch (1..10) {
	$arr[$_] = buildarray();
    }

    my @arr1;
    foreach (1..20) {
	$arr1[$_] = buildarray();
    }

    my @ <==
3	/Users/nnunley/parrot/examples/benchmarks/stress.pl	349	458	
==>ch (1..10) {
    $arr[$_] = buildarray();
}

my @arr1;
foreach (1..20) {
    $arr1[$_] = buildarray();
}

my @ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3487	3586	
==>atch. The same pattern argument syntax above applies here.

=cut

sub pgeglob_isnt {
    my ($target <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4689	4790	
==>e will be parsed from 'sub _Parse' up to '}#_Parse' inclusive.
#So, DO NOT remove comment at end of s <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4454	4554	
==>e will be parsed from 'sub _Parse' up to '}#_Parse' inclusive.
#So, DO NOT remove comment at end of s <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	27927	28024	
==>s at the current C<pos>
location of the string's variable (or at index zero, if no C<pos>
position <==
3	/Users/nnunley/parrot/tools/dev/as2c.pl	1050	1173	
==>t "    ". join '', map {"0x$_, "} @pairs;
	    print " " x (3*(8 - $len));
	    print "    /* $src */\n";
	}
	elsif (/\.type <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	20587	20695	
==>attrname ('section', 'to') {        
            if(defined($thing = $treelet->[$i][1]{$attrname}) and ref $t <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	42071	42177	
==>attrname ('section', 'to') {        
          if(defined($thing = $treelet->[$i][1]{$attrname}) and ref $t <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	38591	38687	
==>they would match the start tag pattern).

For example, to extract an arbitrary XML tag, but ignor <==
3	/Users/nnunley/parrot/config/auto/memalign.pm	1509	1639	
==>_c2.in');
    eval { cc_build(); };
    unless ($@ || cc_run_capture() !~ /ok/) {
        $test2 = 1;
    }
    cc_clean();

    $c <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	284	379	
==>on> is an HTML page containing links to one or
more, grouped or ungrouped items.

C<Parrot::Docs <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	14508	14602	
==>s running on a non-ASCII platform (where chr(32) doesn't
get you a space -- but $Code2USASCII{3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3341	3464	
==>ode = cur_op;
    char * _reg_base;
#endif

SWITCH_RELOAD:
    _reg_base = (char*)interpreter->ctx.bp.regs_i;
    do {
SWITC <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	2957	3048	
==>xplicitly passed between functions or implicitly retrieved from a
global API.  Encapsulating <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	6677	6765	
==>being tested--disables searching of installed libraries.
# (see Parrot_get_runtime_prefix <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21471	21590	
==>oncat',
    );
    my @opcodes = ();
    my $result = new_tmp( $parser, 'pmc', $type{$op} );
    push @opcodes, @{ $ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	15627	15735	
==>( $code, $expected, $desc, \%extra, $extra{todo}, $call_pkg ) if ( keys %extra );
            local *{ $call_ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	18178	18286	
==>( $code, $expected, $desc, \%extra, $extra{todo}, $call_pkg ) if ( keys %extra );
            local *{ $call_ <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	5344	5448	
==>RIPTION

    This is an autogenerated file, created by F<$0>.

    It contains Parrot version info, a pre <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	4731	4824	
==>>directory_with_name('html');
}

=item C<delete_html_docs()>

Deletes the HTML documentation d <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8940	9025	
==>*/ 
GG,$a,$b,$c,$d,$_[5],5,0xf61e2562,/* 17 */
GG,$d,$a,$b,$c,$_[10],9,0xc040b340,/* 1 <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	8819	8953	
==>ult}->{symbol} :anon";
        if ( exists $dir->{outer} ) {
            print {$FH} " :outer($dir->{outer})";
        }
        pr <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	12772	12882	
==>ndef and nothing else
        my $test = defined $got || defined $dont_expect;

        $self->ok($test, $name) <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	13216	13326	
==>ndef and nothing else
        my $test = defined $got || defined $dont_expect;

        $self->ok($test, $name) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	230917	231186	
==>YPE" => "inline",
                  "CODE" => 269,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 592 \"src/ops/cmp.o <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5748	5872	
==>be many libs
        my %libs = %{ $class->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There should be <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5959	6083	
==>be many libs
        my %libs = %{ $class->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There should be <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	625555	625671	
==>\n            case PARROT_ARG_INTVAL:\n                args[1 + i] = (void*)*(INTVAL*)(_reg_base + cur_opcode[2 + i]) <==
3	/Users/nnunley/parrot/config/inter/shlibs.pm	1191	1295	
==>cc_shared);
    $self->set_result(($cc_shared =~ m/^ ?$/) ? 'done' : $cc_shared);

    return $self;
}

1 <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	22656	22754	
==>rivate

=item B<_print>

    $Test->_print(@msgs);

Prints to the output() filehandle.

=end _priva <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1467	1562	
==>> macros required.

=item C<opsarraytype()>

Returns the type for the array of opcodes. By defau <==
3	/Users/nnunley/parrot/Configure.pl	3464	3558	
==>C<--icushared=(linkeroption)>

Linker command to link against ICU library.

E.g.

   --icushare <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	844	943	
==>en, all rights reserved.
# (see the pod text in Parse::Yapp module for use and distribution rights) <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	820	918	
==>en, all rights reserved.
# (see the pod text in Parse::Yapp module for use and distribution rights) <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Posix.pm	82	176	
==>448243Z bernhard  $

package Parrot::Test::Bc::Posix;

use strict;

use base 'Parrot::Test::Bc' <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	23885	24003	
==>, \%options)
{
	my $ldel    = $_[0];
	my $rdel    = $_[1];
	my $pre     = defined $_[2] ? $_[2] : '\s*';
	my %options = <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4549	4655	
==>($$) {
	# Nothing to do.
	return "";
}

# Pre and post branch operation hooks.
sub pre_branch($) {
	my $sel <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2965	3071	
==>($$) {
	# Nothing to do.
	return "";
}

# Pre and post branch operation hooks.
sub pre_branch($) {
	my $sel <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976946	977416	
==>IRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1097,
                  "ARGS" => [
                              "i",
                              "i",
                              "s",
                              " <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12845	12950	
==>e. Once we have that all we need is the relative
    # path from the current directory to the file and ret <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944925	945189	
==>"JUMP" => 0,
                  "NAME" => "charsetname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945734	945998	
==>"JUMP" => 0,
                  "NAME" => "charsetname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	3396	3548	
==>body) = each(%templates)) {
                if ($asm =~ /$t\s+/) {
                    my $tbody = $body;
                    while ($asm =~ s/\b(s(.).+? <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	2974	3100	
==>ush @tokens, Jako::Token->new(
        $file, $line, 'comma', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650582	650682	
==>e 247 \"src/ops/pmc.ops\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtable_max)\n        {{\@1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651504	651604	
==>e 247 \"src/ops/pmc.ops\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtable_max)\n        {{\@1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054434	1054532	
==>l_exception(1, \"Tried to get null global.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_glo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055561	1055659	
==>l_exception(1, \"Tried to get null global.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_glo <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3008	3122	
==>'i'  => "IREG(%ld)",
    'n'  => "NREG(%ld)",
    'p'  => "PREG(%ld)",
    's'  => "SREG(%ld)",
    'k'  => "PREG(% <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2828	2942	
==>'i'  => "IREG(%ld)",
    'n'  => "NREG(%ld)",
    'p'  => "PREG(%ld)",
    's'  => "SREG(%ld)",
    'k'  => "PREG(% <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1925	2036	
==>'i'   => "IREG(%ld)",
  'n'   => "NREG(%ld)",
  'p'   => "PREG(%ld)",
  's'   => "SREG(%ld)",
  'k'   => "PREG(% <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9363	9459	
==>clude "parrot/dynext.h"
EOC
    foreach my $parents ($self->{class}, @{ $self->{parents} } ) {
	m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835785	835871	
==>ack, string_copy(interpreter, {{\@1}}), STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836538	836624	
==>ack, string_copy(interpreter, {{\@1}}), STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1837	1932	
==>vents.  Most applications
can just use the normal stringification of objects of this class;
they <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	3652	3884	
==>{
                            die "error in template subst: $@\n";
                        }
                    }
                    $asm = $tbody;
                    # reset iterator for next run
                    keys(%templat <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	12302	12419	
==>mc result 
    result = new 'APLVector'

    .local pmc iter
    iter = new .Iterator, op2

    if op1 >= 0 goto pos_l <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	26	121	
==>imple::DumpAsText;
$VERSION = '2.02';
use Pod::Simple ();
BEGIN {@ISA = ('Pod::Simple')}

use st <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645776	645863	
==>2}} > 0 && {{\@2}} < interpreter->n_vtable_max)\n\t\t{{\@1}} = interpreter->vtables[{{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646673	646760	
==>2}} > 0 && {{\@2}} < interpreter->n_vtable_max)\n\t\t{{\@1}} = interpreter->vtables[{{\@ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9215	9349	
==>Errok has been called
            or  next;       # so continue parsing

#DBG>			$debug & 0x10
#DBG>		and	do {
#DBG>			print STDER <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8800	8929	
==>Errok has been called
            or  next;       # so continue parsing

#DBG>			$debug & 0x10
#DBG>		and	do {
#DBG>			print STDER <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	6364	6473	
==>ted two spaces.

    # there are two exceptions.  The outermost "GUARD" ifdef doesn't increase
    # the inden <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367162	367451	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367953	368242	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368745	369034	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDI <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14166	14300	
==>e 24
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653379	653468	
==>vtable->find_method(interpreter, {{\@2}}, {{\@3}});\n    if (!{{\@1}} || !VTABLE_defined(i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654540	654629	
==>vtable->find_method(interpreter, {{\@2}}, {{\@3}});\n    if (!{{\@1}} || !VTABLE_defined(i <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2636	2789	
==>.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else {
        $liblist = join( ' ', map { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDF <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2945	3098	
==>.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else {
        $liblist = join( ' ', map { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDF <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2740	2893	
==>.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else {
        $liblist = join( ' ', map { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDF <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302093	302185	
==>\"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302969	303061	
==>\"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303845	303937	
==>\"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}} <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	639	755	
==>quote' }] };
    my $expr;
    $count++;
    ($count, $expr) = _build_tree ($tokens, $count);
    push @{$temp->{chil <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	856	972	
==>quote' }] };
    my $expr;
    $count++;
    ($count, $expr) = _build_tree ($tokens, $count);
    push @{$temp->{chil <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1070	1186	
==>quote' }] };
    my $expr;
    $count++;
    ($count, $expr) = _build_tree ($tokens, $count);
    push @{$temp->{chil <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	1857	1947	
==>l -Wstrict-prototypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwrite-str <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1222	1312	
==>l -Wstrict-prototypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwrite-str <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1226	1316	
==>l -Wstrict-prototypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwrite-str <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	1734	1829	
==>fool$())

' String Arrays, expect "One"
dim g$()
g$(5)="One"
g$(6)="Two"
print g$(5)

' Evil BAS <==
3	/Users/nnunley/parrot/config/auto/bc.pm	468	559	
==>ep::Base);

use Config;
use Parrot::Configure::Step ':auto', 'capture_output';

$description <==
3	/Users/nnunley/parrot/config/auto/m4.pm	442	533	
==>ep::Base);

use Config;
use Parrot::Configure::Step ':auto', 'capture_output';

$description <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7847	7970	
==>se {
          ++$self->{'pod_para_count'};
          $self->_ponder_paragraph_buffer();
           # by now it's safe to co <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	8206	8323	
==>se {
        ++$self->{'pod_para_count'};
        $self->_ponder_paragraph_buffer();
         # by now it's safe to co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832510	832804	
==>RGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 942,
                  "ARGS" => [
                              "nc"
                            ],
                  "BODY" => "#line 192 \"src <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	1643	1739	
==>nternal C<OPS> hash key to do its concatenation, and the way it
twiddles each op's C<CODE> hash k <==
3	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	204	290	
==>parrot_config_c.pl 20350 2006-06-25T03:57:27.771662Z petdance  $' =~ /^\$[iI][dD]:\s(.* <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	23032	23167	
==>ss defined $firstpos;
							undef $unkpos;
							last FIELD if @fields == $max;
						}
					}
					push @fields, $class
						? bless <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	3610	3709	
==>$op->{result}->{symbol} = find_lex \"$op->{arg1}->{symbol}\"\n";
    }

    sub visitStoreLexOp { <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	2036	2137	
==>results{shortsize} == 4) {
        $conf->data->set(int4_t => 'short');
    } elsif ($results{intsize} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8984	9085	
==>p for '%s' not found\", label);\n    else {\n\tinterpreter->resume_offset = fe->offset;\n        Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10100	10201	
==>p for '%s' not found\", label);\n    else {\n\tinterpreter->resume_offset = fe->offset;\n        Parro <==
3	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	1315	1412	
==>substr ($fingerprint, $i*2, 2), ",\n";
}
print "};\n";

print << "EOF";

int
PackFile_check_finger <==
3	/Users/nnunley/parrot/lib/File/Which.pm	2545	2711	
==>iles.
                                # so we check -e. However, we don't want to pass -e on files
                                # that aren't in PATHEXT, like READM <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	26291	26407	
==>at for third =extend parameter: like foo or bar,Baz,qu:ux but not like "
        . $elements_one
      );
      retur <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	42452	42548	
==>nst('', 'set', [$return,'P5']) unless $return eq 'P5';
  $self->_restore_set;

  $return =~ /(\w) <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	25528	25640	
==>l($parser);
    my $l_next = new_label($parser);
    push @opcodes, new BranchUnlessOp( $parser,
        'arg1 <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	6935	7033	
==>NAME

Class::Struct - declare struct-like datatypes as Perl classes

=head1 SYNOPSIS

    use Class <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	10869	10970	
==>++$token_count <= ($max_token || 1_000_000)
    and defined(my $token = $self->get_token)
  ) {
    pu <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10338	10433	
==>r to hold value we pop off the stack.
${PTEMP3} = ${STYPES}[${ITEMP2}]
${STEMP0} = "$"
${STEMP1} <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7722	7817	
==>r to hold value we pop off the stack.
${PTEMP3} = ${STYPES}[${ITEMP2}]
${STEMP0} = "$"
${STEMP1} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927254	927523	
==>E" => "inline",
                  "CODE" => 1043,
                  "ARGS" => [
                              "i",
                              "sc",
                              "i"
                            ],
                  "BODY" => "#line 385 \"src/ops/strin <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1611	1720	
==>od::Simple::DEBUG = $value\n";
  }
  
  require Pod::Simple;
  return;
}

1;


__END__

=head1 NAME

Pod::Simp <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	12814	12926	
==>open $source: $!");
      $self->{'source_filename'} = $source;
      $source = *PODSOURCE{IO};
    }
    $self-> <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	8207	8309	
==>e is always optional.

=over 4

=item B<ok>

  $Test->ok($test, $name);

Your basic test.  Pass if $tes <==
3	/Users/nnunley/parrot/Configure.pl	8196	8287	
==>}
}

$args{debugging} = 1 unless ((exists $args{debugging}) && !$args{debugging});
$args{mai <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40581	40706	
==>onstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 168
		DEFAULT => -24,
		GOTOS => {
			'@7-5' => <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1761	1850	
==>[/Users/nnunley/parrot/tools/build/pmc2c.pl] . $PATHQUOTE;

# Actual commands
sub compile_ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1852	1941	
==>[/Users/nnunley/parrot/tools/build/pmc2c.pl] . $PATHQUOTE;

# Actual commands
sub compile_ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	2812	2923	
==>/\w/) {
			append;
			fetch;
		}
		emit("BARE");
		until($cur eq "\n" and $next eq "_" and $afternext =~ /\w/) { <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	182	287	
==>my ($self, $ctx) = @_;
    $ctx->{rx_match} ||= '$rx_match';
    $ctx->{rx_stack} ||= '$rx_stack';
    $ct <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	831	917	
==>Construct::Declaration::Sub;
use Jako::Construct::Declaration::Variable;

use Jako::Con <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	40948	41059	
==>traverse the treelet (which might well be just one string scalar)
      $self->{'content_seen'} ||= 1;
      $se <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	1053	1152	
==>B::single = 1 if $method eq "output_";
    return $self->$method(@{ $op->{args} });
}

sub lookup_va <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	17196	17293	
==>arrot::OpTrans> subclass) is supplied then
substitutions are made.

=cut

sub preamble
{
    my($s <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1807	2072	
==>"
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 = $N1 / $N2;              # div    N1, N1, N2
$N2 = 1000000.0;              # set    N2, 1000000 <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	1807	2072	
==>"
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 = $N1 / $N2;              # div    N1, N1, N2
$N2 = 1000000.0;              # set    N2, 1000000 <==
3	/Users/nnunley/parrot/config/auto/jit.pm	361	449	
==>qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Configure::Step qw(copy_if_di <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	2920	3031	
==>suffix then the empty string is returned.

=cut

sub suffix
{
    my $self = shift;
    
    return $self->{SUFF <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048319	1048415	
==>obal.\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_global(interpreter, NULL, {{\@2}}, nex <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049243	1049339	
==>obal.\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_global(interpreter, NULL, {{\@2}}, nex <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	15003	15129	
==>=> -40,
		GOTOS => {
			'classpieces' => 52
		}
	},
	{#State 33
		ACTIONS => {
			'CHAR' => 34,
			">" => 53
		}
	},
	{#State 3 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	696	789	
==>fined!" unless defined $right;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	708	801	
==>fined!" unless defined $right;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako: <==
3	/Users/nnunley/parrot/config/auto/msvc.pm	411	509	
==>tep ':auto';

$description = 'Determining if your C compiler is actually Visual C++';

@args = qw(v <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2686	2783	
==>est, all OK in sequence
PRINT "1 in module-level code"
GOSUB Sub1
PRINT "ERR this line in main rou <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16653	16750	
==>est, all OK in sequence
PRINT "1 in module-level code"
GOSUB Sub1
PRINT "ERR this line in main rou <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6117	6242	
==>foreach my $lib ( keys %libs ) {
            $group_libs{$group}->{lib} = 1;
        }
    }

    return (\%group_files, \%gro <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6328	6453	
==>foreach my $lib ( keys %libs ) {
            $group_libs{$group}->{lib} = 1;
        }
    }

    return (\%group_files, \%gro <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	16996	17090	
==>y $whilecounter=0;
sub parse_while {
	$whilecounter++;
	push(@whiles, { jump => $whilecounter } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822448	822682	
==>n\n  {{\@1}} = UVal_int(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823516	823750	
==>n\n  {{\@1}} = UVal_int(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	2016	2113	
==>rfunc $_[0] and $funcname..";
	return 0 unless defined $_[0];
	return 0 if $funcname and $funcname <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100457	100748	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101890	102181	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102661	102952	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	15375	15504	
==>gex' => 54,
			'regex1' => 7
		}
	},
	{#State 37
		ACTIONS => {
			"(" => 10,
			'CHAR' => 4,
			"<" => 3,
			"[" => 14,
			'CODE' <==
3	/Users/nnunley/parrot/examples/benchmarks/primes2.pl	200	325	
==>last is: %d\n",$max,$i6,$i7);

sub isprime1
{
    my($input)=@_;
    my $n;

    if ($input < 1) {
	return 0;
    }
    $n = $ <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	4732	4853	
==>ile (my ($vers, $opt) = splice @opt_and_vers, 0, 2) {
            last if $vers > $gccversion;
            next unless $op <==
3	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	664	769	
==>(INPUT, $input) or die "open $input: $!";
    $checksum = unpack("%32C*", <INPUT>);
    close INPUT;
}

my <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	246211	246508	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 286,
                  "ARG <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2419	2622	
==>e return
                last;
            s/^\\t//
                and $str .= "\t",      # horizontal tab
                last;
            s/^\\v//
                and $str .= "\x0b",    # vertic <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3933	4136	
==>e return
                last;
            s/^\\t//
                and $str .= "\t",      # horizontal tab
                last;
            s/^\\v//
                and $str .= "\x0b",    # vertic <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	45712	45817	
==>p with something that fails to say "and don't hyphenate
       # any part of 'bar baz'".  However, hyphena <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	2628	2731	
==>_method_t)($args);\n";
    }

    return $defs;
}

=item C<vtbl_struct($vtable)>

Returns the C C<struct <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	289	386	
==>ge.pl recompile
    % perl tools/dev/parrot_coverage.pl 

=head1 DESCRIPTION

This script runs a c <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20136	20246	
==>int ,
	for j = 0 to a(i)
		print "*";
	next j
	print 
next i

' Square roots and sgn
print 10,sqr(10)
print 327 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6643	6746	
==>$n!;
}

sub output_atend {
    my ($self, $failLabel) = @_;
    my $fail = $self->output_label_use($fail <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6287	6390	
==>$n!;
}

sub output_atend {
    my ($self, $failLabel) = @_;
    my $fail = $self->output_label_use($fail <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	446504	446761	
==>S" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447141	447398	
==>S" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449449	449706	
==>S" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARG <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1888	1998	
==>n an ops file into the
relevant C code.

=cut

sub goto_offset
{
    my ($self, $offset) = @_;

    return "got <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2537	2647	
==>n an ops file into the
relevant C code.

=cut

sub goto_offset
{
    my ($self, $offset) = @_;

    return "got <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	17213	17319	
==>ubclass) is supplied then
substitutions are made.

=cut

sub preamble
{
    my($self, $trans) = @_;

    lo <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7837	7934	
==>en (string)"
i%=0
if i% then print "Should not happen (int)"
i%=54
if i% then print "This is true" <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14824	14921	
==>en (string)"
i%=0
if i% then print "Should not happen (int)"
i%=54
if i% then print "This is true" <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	1917	2011	
==>r-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wno-unused -Wsign-compare - <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1282	1376	
==>r-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wno-unused -Wsign-compare - <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1286	1380	
==>r-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wno-unused -Wsign-compare - <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	3377	3505	
==>y (@args) = @_;
    
    # types present in this command
    my %types = ();
    for my $arg (@args) {
        next unless $arg-> <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5781	5881	
==>ess defined $self->{triggers}{$key}
        and defined $self->{triggers}{$key}{$trigger};

    my $v <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6351	6451	
==>ess defined $self->{triggers}{$key}
        and defined $self->{triggers}{$key}{$trigger};

    my $v <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	21998	22131	
==>pected, $example_f, @options );
            }
            else {
                fail( defined $extension, "no extension recognized fo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	632	749	
==>'TEST', REDO => 'THEN', LAST => 'ELSE' }, # TODO: fix these
);


#
# new()
#

sub new
{
  my $class = shift;
  my ($bl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	653	770	
==>'TEST', REDO => 'THEN', LAST => 'ELSE' }, # TODO: fix these
);


#
# new()
#

sub new
{
  my $class = shift;
  my ($bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557235	557375	
==>_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLAGS" => ":object_base",
                  "AR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558618	558758	
==>_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLAGS" => ":object_base",
                  "AR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560002	560142	
==>_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLAGS" => ":object_base",
                  "AR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814857	815151	
==>GDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 920,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 567 \"src/o <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	18565	18692	
==>s->[2]];

    }
}

sub UNARY_POSITIVE
{
    my (undef, $c, $cmt) = @_;
    my $t = pop @stack;
    my $p = $t->[1];
    print << <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	100	203	
==>/builtin";

print <<EOH;
# This file automatically generated by $0.

EOH

# commands that are in Tcl's : <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352576	352839	
==>"NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 411,
                  "ARGS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351919	352150	
==>"NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 41 <==
3	/Users/nnunley/parrot/config/auto/headers.pm	1160	1268	
==>wants this order:
    #include <sys/types.h>
    #include <sys/socket.h>
    #include <netinet/in.h>
    #inc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286310	286579	
==>e",
                  "CODE" => 333,
                  "ARGS" => [
                              "i",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 913 \"src/ops/cmp.ops\"\n  {{\@1 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5540	5648	
==>ateno=$$stack[-1][0];
        $actions=$$states[$stateno];

#DBG>	print STDERR ('-' x 40),"\n";
#DBG>		$d <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5273	5377	
==>ateno=$$stack[-1][0];
        $actions=$$states[$stateno];

#DBG>	print STDERR ('-' x 40),"\n";
#DBG>		$d <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1103	1214	
==>am:
    # default -> probe -> environment -> option -> ask
    $prog ||= $conf->options->get($util);
    $prog | <==
3	/Users/nnunley/parrot/config/inter/make.pm	924	1035	
==>am:
    # default -> probe -> environment -> option -> ask
    $prog ||= $conf->options->get($util);
    $prog | <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1100	1211	
==>am:
    # default -> probe -> environment -> option -> ask
    $prog ||= $conf->options->get($util);
    $prog | <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547589	547852	
==>,
                  "NAME" => "fact",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548495	548758	
==>,
                  "NAME" => "fact",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
3	/Users/nnunley/parrot/config/inter/shlibs.pm	16	104	
==>2005, The Perl Foundation.
# $Id: /parrot/config/inter/shlibs.pm 19593 2006-05-30T02:28:1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202747	202979	
==>f (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203678	203910	
==>f (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204609	204841	
==>f (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1 <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1308	1438	
==>iag("'$cmd' failed with exit code $exit_code")
        if $exit_code and not $pass;
    }

    unless($ENV{POSTMORTEM}) {
        u <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1349	1479	
==>iag("'$cmd' failed with exit code $exit_code")
        if $exit_code and not $pass;
    }

    unless($ENV{POSTMORTEM}) {
        u <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2472	2598	
==>iag("'$cmd' failed with exit code $exit_code")
      if $exit_code and not $pass;
    }

    unless($ENV{POSTMORTEM}) {
      u <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	23257	23390	
==>T - Autogenerated test file */\n";
            print $SOURCE $source;
            close $SOURCE;

            my $libparrot_shared = " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	817546	817657	
==>" => [],
                  "BODY" => "#line 610 \"src/ops/set.ops\"\n  Parrot_clear_p(interpreter);\n  {{+=1}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27903	28004	
==>class_init(Parrot_Interp, int, int);
EOC
    $self->{hdecls} .= $hout;
    $self->{hdecls};
}

=item C <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	48314	48428	
==>_duo takes two parameters, not: @_"
   unless @_ == 2;

  my(@out);
  
  while( @_ ) {
    my $parser = $class->new <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	4233	4339	
==>, $arg_name) = @$arg;
      my $imcc_type = $arg_type->imcc;

      $compiler->emit("  .param $imcc_type $a <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	2033	2135	
==>, $arg_name) = @$arg;
    my $imcc_type = $arg_type->imcc;

    $compiler->emit("  .param $imcc_type $a <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	1338	1444	
==>er reference.  Get its numeric Unicode value.
      $in = $Name2character{$in};
      return undef unless d <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4118	4217	
==>o arguments and returns a L<Parrot::Configure::Data> object.

=cut

sub clean
{
    my $self = shift <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	67	156	
==>Parrot/IO/Directory.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot: <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8601	8681	
==>a "DAMAGES","DESTRUCT","DOCK","IDLE","IMPULSE","LRSCAN","NAVIGATE","PHASERS","QUI <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21465	21545	
==>a "DAMAGES","DESTRUCT","DOCK","IDLE","IMPULSE","LRSCAN","NAVIGATE","PHASERS","QUI <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10025	10116	
==>= elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC}:
if ${ITEMP0} == <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7539	7630	
==>= elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC}:
if ${ITEMP0} == <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6503	6594	
==>= elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC}:
if ${ITEMP0} == <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8495	8596	
==>estination is a register then it is up to the SRM to do the store.
	# Otherwise, there's nothing to do <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6315	6416	
==>estination is a register then it is up to the SRM to do the store.
	# Otherwise, there's nothing to do <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5230	5331	
==>estination is a register then it is up to the SRM to do the store.
	# Otherwise, there's nothing to do <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1312	1416	
==>_;

  confess "No Compiler!" unless defined $compiler;

  my $type = $self->type;

#  $self->DEBUG(0, "Co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	12985	13072	
==>ops/core.ops\"\n  opcode_t * loc;\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13829	13916	
==>ops/core.ops\"\n  opcode_t * loc;\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)- <==
3	/Users/nnunley/parrot/lib/Test/More.pm	16069	16178	
==>h the test.

=cut

sub diag {
    return unless $Show_Diag;
    $Test->diag(@_);
}


=back

=head2 Module test <==
3	/Users/nnunley/parrot/examples/benchmarks/primes.pl	222	318	
==>0

=head1 SYNOPSIS

    % time perl examples/benchmarks/primes.pl

=head1 DESCRIPTION

Calculates <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	722	818	
==>my @all_strings;

&read_all;
open ALL, '>>', $outfile or die "Can't write '$outfile': $!";
proces <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325042	325305	
==>nv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 381 <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1019	1104	
==>*)interpreter->code->prederef.code))
#define CUR_OPCODE ((opcode_t*)cur_opcode + CONTE <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1149	1234	
==>*)interpreter->code->prederef.code))
#define CUR_OPCODE ((opcode_t*)cur_opcode + CONTE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557347	557720	
==>_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 639,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BO <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	15457	15589	
==>arrotClass isa delegate
            #
            # delegate has everything autogenerated, so these
            # methods aren't seen <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5646	5757	
==>step =~ m{^inter/} && $ask;

        # reset verbose value for the next step
        $self->options->set(verbose <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21377	21482	
==>re($temp);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$label");
  re <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21762	21867	
==>re($temp);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$label");
  re <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22147	22252	
==>re($temp);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$label");
  re <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	1571	1673	
==>* It would be nice to have a ParrotSourceFile class of course. ;)
(a jest - sort of.)

=item * Misc: ra <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824420	824513	
==>exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_STRING) {\n    i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825491	825584	
==>exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_STRING) {\n    i <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	2297	2411	
==>p</item>\n";
    $ops{$op} = 1;
}

print <<END;
    </list>

    <list name="types">
END

my %types;
for my $type ( <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42479	42582	
==>RD_TRACE;').'

		push @item, '.($::RD_NO_HITEM ? ''
			       : '$item{'.$self->{hashname}.'}=') . '$_to <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32839	32938	
==>RD_TRACE;').'
		push @item, ' . ($::RD_NO_HITEM ? ''
				 : '$item{'.$self->{hashname}.'}=') . '$_to <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	6460	6579	
==>/{{=\*}}/            $trans->goto_pop();       /me;

    s/{{\+=([^{]*?)}}/    $trans->goto_offset($1);  /me;
    s/{{-= <==
3	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	722	807	
==>pasm>, 
F<examples/benchmarks/stress.pl>, 
F<examples/benchmarks/stress1.pasm>, 
F<exa <==
3	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	569	654	
==>pasm>, 
F<examples/benchmarks/stress.pl>, 
F<examples/benchmarks/stress1.pasm>, 
F<exa <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	8160	8272	
==>ti-command
    # test), make it so now so the code below can treat everybody the
    # same.
    $command = [$com <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572990	573079	
==>);\n  VTABLE_set_string_native(interpreter, name, {{\@2}});\n  {{\@1}} = pmc_new_init(inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573900	573989	
==>);\n  VTABLE_set_string_native(interpreter, name, {{\@2}});\n  {{\@1}} = pmc_new_init(inte <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	8834	8986	
==>EBUG > 4) ? (q<: >, map($_->dump, @to_unget)) : (),
              ") to be keepn'd.\n";
            last; # give up
          }
          # else keep whi <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4413	4523	
==>e_t * " .
        $self->core_prefix .
        "$core(opcode_t *cur_op, Parrot_Interp interpreter)";
}

=item C <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2901	3011	
==>e_t * " .
        $self->core_prefix .
        "$core(opcode_t *cur_op, Parrot_Interp interpreter)";
}

=item C <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	4123	4221	
==>type eq $UNDEFINED;
	
	$type = $self->type_for_name($self->name);
	
	return $type unless $type eq $ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	45928	46031	
==>se
		{
			print "$op is not a pattern matching operation\n";
		}


=head2 C<extract_quotelike> and "here <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	5928	6022	
==>trans->run_core_func_decl($base);
    print HEADER "$run_core_func;\n";
}
my $bs = "${base}${su <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22077	22198	
==>elf->require_value);
        $op    = $self->require_infix_rel->text;
        $right = Jako::Construct::Expression::Value- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23010	23131	
==>elf->require_value);
        $op    = $self->require_infix_rel->text;
        $right = Jako::Construct::Expression::Value- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24656	24777	
==>elf->require_value);
        $op    = $self->require_infix_rel->text;
        $right = Jako::Construct::Expression::Value- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552877	552970	
==>r, method_pmc);\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556872	556965	
==>r, method_pmc);\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560895	560988	
==>r, method_pmc);\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	14625	14747	
==>)/{{=0}}/mg;

        $branch ||= $short_name =~ /runinterp/;
        $next   ||= $short_name =~ /runinterp/;

        if ( <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	17758	17855	
==>itempos[$#itempos]{'line'}{'to'}   = $prevline;
		$itempos[$#itempos]{'column'}{'to'} = $prevcolum <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	26844	26939	
==>quential applications of the specified functions
 # or regular expressions

	@extracted = extrac <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	46896	46993	
==>a negative lookahead",$aftererror,$line);
			$lookahead = $lookahead ? -$lookahead : -1;
			$looka <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3312	3421	
==>-------

sub _constant {
  my ($self, $value) = @_;
  my $return;

  if ($value =~ /^[-+]?\d+$/) {
    $return <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13082	13170	
==>stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  loc = INTVAL2PTR(opcode <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13926	14014	
==>stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  loc = INTVAL2PTR(opcode <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114843	115164	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115697	116018	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116552	116873	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931376	931658	
==>,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932146	932428	
==>,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2859	2952	
==>e for right!") unless defined $right_type;

  $self->SYNTAX_ERROR("Can't do arithmetic on stri <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	3091	3190	
==>t this extension running
 */

EOC
    $cout .= <<"EOC";

PARROT_DYNEXT_EXPORT extern Parrot_PMC Parr <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9968	10065	
==>nf->data->get('exe');
    my $slash = $conf->data->get('slash');
    my $verbose = $conf->options- <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10549	10646	
==>nf->data->get('exe');
    my $slash = $conf->data->get('slash');
    my $verbose = $conf->options- <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	10153	10275	
==>"      => "i",
  "INTVAL"   => "I",
  "float"    => "f",
  "FLOATVAL" => "N",
  "double"   => "d",
  "STRING*"  => "S",
  " <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	11134	11246	
==>ing [$e] is unsupported.",
      "\nSupporteds: @supported\n";
    my $suggestion = '';

    # Look for a near ma <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	6206	6299	
==>ne_endings($text)>

Convert Win32 style line endins with Unix style line endings.

=item C<pat <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	55837	55934	
==>case of a subroutine extractor), it is
assumed to have failed to extract.
If none of the extractor <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	6832	6971	
==>or'       , 8744,
 'cap'      , 8745,
 'cup'      , 8746,
 'int'      , 8747,
 'there4'   , 8756,
 'sim'      , 8764,
 'cong'     , 8773,
 ' <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	933	1031	
==>sh @{$code{$seg}->{code}}, "\t# $var was declared COMMON\n"; 
		if (! $array) {
			$main::code{$mai <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6519	6613	
==>e{$seg}->{code}}, "$labels{$syms[CURR]}:   # For user branch ($syms[CURR])\n";
		debug() if $de <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8799	8893	
==>e{$seg}->{code}}, "$labels{$syms[CURR]}:   # For user branch ($syms[CURR])\n";
		debug() if $de <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752778	752863	
==>line 256 \"src/ops/set.ops\"\n  {{\@1}}->vtable->assign_pmc(interpreter, {{\@1}}, {{\@ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8010	8129	
==>utput_popindex {
    my $self = shift;

    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7663	7782	
==>utput_popindex {
    my $self = shift;

    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	3512	3611	
==>ach (split "\n", $generated_files{$gcov_file}) {
            my ($percent, $total_lines, $real_filen <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1740	1863	
==>)
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $block = $self->block;
  my $name  = $self->ident ? $sel <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	12762	12862	
==>nctions, give 0 and 3 (modified)
type first
	foo as integer
	bar as string
end type
type second
	othe <==
3	/Users/nnunley/parrot/Configure.pl	2702	2800	
==>>

Use the given PMC files.

=item C<--cgoto=0>

Don't build cgoto core. This is recommended when y <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131372	131662	
==>}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132227	132517	
==>}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133082	133372	
==>}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
3	/Users/nnunley/parrot/config/auto/memalign.pm	621	722	
==>($conf->options->get('miniparrot')) {
        $conf->data->set(memalign => '');
        $self->set_res <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	585	681	
==>an attempt will be made to extract short descriptions from each
file to place under the file path <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	8150	8267	
==>mplex.h
cacoshl     complex.h
cacosl      complex.h
calloc      stdlib.h
carg        complex.h
cargf       complex.h
c <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34820	34931	
==>>{'name'}");
		}
		$pir .= "### end translation\n";

		# Now emit code to fix up the stack type array and propog <==
3	/Users/nnunley/parrot/config/inter/lex.pm	318	419	
==>use vars qw( $description @args $prompt $util );

use base qw(Parrot::Configure::Step::Base);

use Par <==
3	/Users/nnunley/parrot/config/inter/make.pm	312	413	
==>use vars qw( $description @args $prompt $util );

use base qw(Parrot::Configure::Step::Base);

use Par <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	313	414	
==>use vars qw( $description @args $prompt $util );

use base qw(Parrot::Configure::Step::Base);

use Par <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	4929	5072	
==>args/) {
                use Config;
                if ($Config{archname} !~ /86/) {
                    $opt =~ s/-mno-accumulate-outgoing-arg <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	692	780	
==>($ident, 'Jako::Construct::Expression::Value::Identifier');
  confess "Props are not hash <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	771	859	
==>($ident, 'Jako::Construct::Expression::Value::Identifier');
  confess "Props are not hash <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	12107	12290	
==>> "PARROT_JUMP_POP",
                  "NAME" => "ret",
                  "FLAGS" => "",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "COD <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5768	5878	
==>post_branch($) {
	my $self = shift;
	my $pops = shift;
	my $pir = '';

	# Branches mean we need to deal with ba <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3706	3816	
==>post_branch($) {
	my $self = shift;
	my $pops = shift;
	my $pir = '';

	# Branches mean we need to deal with ba <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1871	1977	
==>ct::Expression::Value::Identifier')) {
    my $left_sym = $block->find_symbol($left->value);
    $self->SYN <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1829	1935	
==>ct::Expression::Value::Identifier')) {
    my $left_sym = $block->find_symbol($left->value);
    $self->SYN <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1751	1857	
==>ct::Expression::Value::Identifier')) {
    my $left_sym = $block->find_symbol($left->value);
    $self->SYN <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	40153	40317	
==>result} eq 'break' ) {
                    $parser->Error("no loop to break\n");
                }
            }
        }
        unshift @{ $parser->YYData->{ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39080	39224	
==>result} eq 'break' ) {
                $parser->Error("no loop to break\n");
            }
        }
    }
    unshift @{ $parser->YYData->{ <==
3	/Users/nnunley/parrot/config/gen/config_pm.pm	53	143	
==>: /parrot/config/gen/config_pm.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340306	340665	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341305	341664	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342304	342663	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	102	218	
==>0T20:02:00.179448Z bernhard  $

=head1 NAME

lib/Parrot/BuildUtil.pm - Utilities for building Parrot

=head1 DESCRIPT <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	9742	9850	
==>' : '.local string ';
		$dest_locals .= "dest$_";
		$mv->{"DEST$_"} = "dest$_";
	}

    # Emit the translator <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844882	845018	
==>c"
                            ],
                  "BODY" => "#line 45 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845761	845897	
==>c"
                            ],
                  "BODY" => "#line 45 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2} <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	656	770	
==>$conf) = @_;

    my $file = "include/parrot/core_pmcs.h";
    open(OUT, ">$file.tmp");

    print OUT <<"END_H";
/ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23104	23204	
==>item, '.($::RD_NO_HITEM ? ''
			       : '$item{'.$self->{hashname}.'}=').'$_tok;
		' . ($self->{"loo <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32861	32960	
==>item, ' . ($::RD_NO_HITEM ? ''
				 : '$item{'.$self->{hashname}.'}=') . '$_tok;
		' . ($self->{"loo <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2480	2602	
==>) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  $op->{result}->{symbol} = $op->{arg1}->{symbol}\n";
    } <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	4926	5048	
==>) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  $op->{result}->{symbol} = $op->{arg1}->{symbol}\n";
    } <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	28369	28478	
==>G > 1 and print "=back found without a matching =over.  Stack: (",
            join(', ', map $_->[0], @$curr_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	306663	306826	
==>ess( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless_null",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307456	307619	
==>ess( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless_null",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
3	/Users/nnunley/parrot/config/init/hints/darwin.pm	1253	1363	
==>amic libparrot installable_parrot records
        # the path to the blib version of the library
        parrot_ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	13316	13476	
==>y) = $self->rewrite($R, $advance);

    my @ops = (
                  $scan => @R_body,
                           aop('goto', [ $next ]),
               $advanc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547617	547880	
==>> "fact",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548523	548786	
==>> "fact",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
3	/Users/nnunley/parrot/languages/urm/urm-old.pl	1155	1255	
==>) {
	$register{$1} = 0 unless defined $register{$1};
	if ($register{$1} == $2) {$pos = $3;} else {$po <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops.pm	65	179	
==>me = shift || '';
    my $number = ++$MARKERS{$name};
    $number = '' if ($number == 1) && ($name ne '');
    retu <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2697	2811	
==>me = shift || '';
    my $number = ++$MARKERS{$name};
    $number = '' if ($number == 1) && ($name ne '');
    retu <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9628	9726	
==>ent::LineCounter}, \$text, $thisparser;

	' : '
	my $thisline = [\$text, $thisparser];
	') . $self- <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26679	26782	
==>types = new ResizablePMCArray\n";

		# Insert typeinfo code (sets up dtypes).
		$pir .= "### typeinfo\n" <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	1550	1650	
==>lines>

Do not generate C<#line> directives in the generated C code.

=back

=head1 SEE ALSO

=over 4 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520169	520560	
==>,
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 600,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 739 \"src <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	2849	2971	
==><]*<[Hh]/o )
    {
        # If there is no heading or text then we have to bump it down a bit.
        $index_html = "<BR> <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10673	10764	
==>hat.
  }
  return @_;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1508	1634	
==>f)={ ERROR => \&_Error,
				ERRST => \$errst,
                NBERR => \$nberr,
				TOKEN => \$token,
				VALUE => \$value, <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1457	1579	
==>f)={ ERROR => \&_Error,
				ERRST => \$errst,
                NBERR => \$nberr,
				TOKEN => \$token,
				VALUE => \$value, <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	38118	38210	
==><reject =E<gt> $listref>

The list reference contains one or more strings specifying patterns <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	2874	3002	
==>)
        
  .local int argc
  .local string pir
  pir = ''
  argc = elements argv
END_PIR
    
    return $code;
}

sub arg_chec <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	27310	27437	
==>tension '$e'\n";
      }
    }


    if( defined $canonical_form ) {
      # We found a good N => elementname mapping
      $sel <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	845	941	
==>HTML;

=item C<new_item($text, @paths)>

Returns a new item.

Use this when creating items within <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2548	2634	
==>,
F<examples/mops/mops.py>,
F<examples/mops/mops.rb>,
F<examples/mops/mops.scheme>.

=c <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	2548	2634	
==>,
F<examples/mops/mops.py>,
F<examples/mops/mops.rb>,
F<examples/mops/mops.scheme>.

=c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349263	349377	
==>/\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=3}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350265	350379	
==>/\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=3}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	2809	2908	
==>bol::qualify($fh, scalar caller);
	}
	$self->{data} .= do{local$/;<$fh>};
	$self
}

sub digest {
	md <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16839	16958	
==>1)).';'/eg;
        # Leave out "- so that "--" won't make it thru in X-generated comments
        #  with text in them. <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	3860	3972	
==>$pir .= "if class_name == \"$_\" goto $label\n";
    }
    $pir .= "goto FAIL\n";

    # Now build method dispatc <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10283	10394	
==>1)).';'/eg;
    # Leave out "- so that "--" won't make it thru in X-generated comments
    #  with text in them. <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3101	3222	
==>ef;	#Invalid index
}

sub YYCurtok {
	my($self)=shift;

        @_
    and ${$$self{TOKEN}}=$_[0];
    ${$$self{TO <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2951	3064	
==>ef;	#Invalid index
}

sub YYCurtok {
	my($self)=shift;

        @_
    and ${$$self{TOKEN}}=$_[0];
    ${$$self{TO <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	14172	14285	
==>ched = ($closing && $1 eq $closing) )
			{
				next if $1 eq '>';	# MIGHT BE A "LESS THAN"
				_failmsg q{Mismatch <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	370176	370405	
==>[
                              "s",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 341 \"src/ops/io.ops\"\n  {{\@1}} = PIO_reads(interpreter <==
3	/Users/nnunley/parrot/config/inter/progs.pm	2294	2402	
==>et(ld => $ld);

    $ccflags = $conf->data->get('ccflags');

    # Remove some perl5-isms.
    $ccflags =~ s/ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7486	7576	
==>"reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP0} = concat "0"
${PARAMS}[0] = ${STEM <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1085	1189	
==>rces for the program:
    # default -> probe -> environment -> option -> ask
    $prog ||= $conf->options <==
3	/Users/nnunley/parrot/config/inter/make.pm	906	1010	
==>rces for the program:
    # default -> probe -> environment -> option -> ask
    $prog ||= $conf->options <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1082	1186	
==>rces for the program:
    # default -> probe -> environment -> option -> ask
    $prog ||= $conf->options <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	1915	2019	
==>ead2 Instance Methods

=over 4

=item C<create_path()>

This is called from C<new()> to create the parent <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1929	2029	
==>ead2 Instance Methods

=over 4

=item C<create_path()>

This is called from C<new()> to create the pa <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	906	1006	
==>ead2 Instance Methods

=over 4

=item C<create_path()>

This is called from C<new()> to create the pa <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	2013	2129	
==>e);

    # First instruction in bytecode must be the leader of a block
    $leaders{$new_pc} = 1;

    # This loop tr <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6202	6290	
==>'t use ${ARG0} :-(
prop_type_state[${ITEMP0}] = ${STYPES}
prop_stack_depth[${ITEMP0}] = s <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4140	4228	
==>'t use ${ARG0} :-(
prop_type_state[${ITEMP0}] = ${STYPES}
prop_stack_depth[${ITEMP0}] = s <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	54151	54248	
==>ks by applying each extractor in
sequence to the text string.

If the extractor is a subroutine it <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	13490	13584	
==>td class="num tests_todo"><tmpl_var name=todo>,</td>
	      <td class="num tests_skipped"><tmpl <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1478	1571	
==>atter/processor.

=head1 METHOD CALLING

When Pod::Simple sees a "=head1 Hi there", for exampl <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3795	3892	
==>"Unknow parameter '$prm'");
			ref($value) eq $$checklist{$prm}
		or	croak("Invalid value for pa <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3600	3695	
==>"Unknow parameter '$prm'");
			ref($value) eq $$checklist{$prm}
		or	croak("Invalid value for pa <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	59	152	
==>6-04-24T19:32:28.634218Z bernhard  $

=head1 NAME

Test/M4.pm - Testing routines specific to ' <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	42322	42459	
==>e 183
		ACTIONS => {
			'END' => 194
		}
	},
	{#State 184
		DEFAULT => -29
	},
	{#State 185
		ACTIONS => {
			"-" => 72,
			".. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028173	1028280	
==>ext = Parrot_sleep_on_event(interpreter, (FLOATVAL) {{\@1}}, next);\n  {{=next}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029024	1029131	
==>ext = Parrot_sleep_on_event(interpreter, (FLOATVAL) {{\@1}}, next);\n  {{=next}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426935	427101	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 64 \"src/ops/math.ops\"\n  mmd_dispatch_v_pi(interpreter, {{\@2} <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	6651	6775	
==>'prod'     , 8719,
 'sum'      , 8721,
 'minus'    , 8722,
 'lowast'   , 8727,
 'radic'    , 8730,
 'prop'     , 8733,
 'infi <==
3	/Users/nnunley/parrot/config/init/optimize.pm	276	371	
==>rm to
the C<CCFLAGS>. Should this be part of config/inter/progs.pm ? XXX

=cut

package init::op <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	7048	7180	
==>linearize_tokens(@to_unget);
    
    if ( defined $name ) 
    {
        $name =~ tr/ /_/;
        
        print {$self->{'output_f <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	2299	2419	
==>);
        }
    }
    
    return 1;
}

=item C<process_start_token($token)>

Process a start token.

=cut

sub process_ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	12881	12992	
==>b isa_ok ($$;$) {
    my($object, $class, $obj_name) = @_;

    my $diag;
    $obj_name = 'The object' unless de <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23121	23223	
==>_HITEM ? ''
			       : '$item{'.$self->{hashname}.'}=').'$_tok;
		' . ($self->{"lookahead"} ? '$text = <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32880	32979	
==>_HITEM ? ''
				 : '$item{'.$self->{hashname}.'}=') . '$_tok;
		' . ($self->{"lookahead"} ? '$text = <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	36347	36445	
==>, "" )

as expected. Without the specification of C<"> as an embedded quoter:

	@result = extract_b <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6278	6395	
==>deltrigger
{
    my ($self, $key, $trigger) = @_;

    return
        unless defined $self->{triggers}{$key}
        a <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35012	35115	
==>rse::RecDescent::unexpected
				   = $Parse::RecDescent::lastunexpected;
			}
			last;
		}'.($::RD_NO_TR <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42122	42225	
==>rse::RecDescent::unexpected
				   = $Parse::RecDescent::lastunexpected;
			}
			last;
		}'.($::RD_NO_TR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231159	231278	
==>> "#line 592 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232063	232182	
==>> "#line 592 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232967	233086	
==>> "#line 592 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233870	233988	
==>> "#line 599 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234774	234892	
==>> "#line 599 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235678	235796	
==>> "#line 599 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  { <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	4016	4125	
==>parse_print;
		goto PARSE_NOFEED;
	}
	#
	# Handle all of the IF-THEN logic
	#
	my $false="0.0";
	if ($syms[CUR <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	8996	9099	
==>$source->[$mismatch_at]\" (should be \"$end_boilerplate[$mismatch_at]\")");
        }
    }

}


sub che <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19576	19669	
==>ong.

(This method tolerates "AUTHORS" instead of "AUTHOR" too.)

=item $description_name = $p <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	19787	19908	
==>.  This is typically useful
localized:

    {
        local $Test::Builder::Level = 2;
        $Test->ok($test);
    }

=c <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	12559	12662	
==>ac == 0) {
					$optype="P";
				}
				push @code, qq{\t\$$optype$retcount = _ARRAY_LOOKUP_$optype("$ext <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	1850	1952	
==>Taken from an N register.

=item t

Paramter is a char *, presumably a C string

Taken from an S regist <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	12472	12558	
==>sedon0 \snext0 pod-head3;}
{\s34\ql \keepn\sb90\sa180\f2\fs%s\ul\sbasedon0 \snext0 pod- <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16393	16502	
==>um2.org>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey Tang. All rights reserved.

This program is free softw <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	281	377	
==>output_fh'} ||= *STDOUT{IO};
  $new->accept_codes('VerbatimFormatted');
  return $new;
}

#@@@@@@ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	280	376	
==>output_fh'} ||= *STDOUT{IO};
  $new->accept_codes('VerbatimFormatted');
  return $new;
}

#@@@@@@ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1578	1695	
==>"};
        my $ok = &{"Test::More::$meth"}( @_ );
        # if( $ok ) { foreach my $meth ( $lang_f, $pasm_f, $by_f, $ <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1494	1611	
==>"};
        my $ok = &{"Test::More::$meth"}( @_ );
        # if( $ok ) { foreach my $meth ( $lang_f, $pasm_f, $by_f, $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	619819	619910	
==>ss_BigInt);\n\t    VTABLE_set_integer_native(interpreter, left, a);\n\t    mmd_dispatch_p_pi <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4211	4323	
==>ode[%ld])",
        'sc' => "((STRING *)cur_opcode[%ld])",
        'pc' => "((PMC *)cur_opcode[%ld])",
        'k <==
3	/Users/nnunley/parrot/config/gen/cpu/x86_64/auto.pm	237	330	
==>>data->get('ccflags');
    $conf->data->add(' ', ccflags => "-fPIC") unless $ccflags =~ /-fPIC <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8644	8729	
==>$_[13],12,0x8b44f7af,/* 10 */
FF,$c,$d,$a,$b,$_[14],17,0xffff5bb1,/* 11 */
FF,$b,$c,$d <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	1915	2001	
==>ter-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wno-unused -Wsign <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1280	1366	
==>ter-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wno-unused -Wsign <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1284	1370	
==>ter-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wno-unused -Wsign <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2869	3002	
==>scription
             \s+ (?:\S+ \s+)? \{ \n     # optional test harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # te <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4266	4399	
==>scription
             \s+ (?:\S+ \s+)? \{ \n     # optional test harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # te <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	10625	10720	
==>{declarations}->{$sym}=1
					unless $main::code{$main::seg}->{declarations}->{$sym};
			}
			re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302052	302168	
==>,
                  "BODY" => "#line 980 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302928	303044	
==>,
                  "BODY" => "#line 980 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303804	303920	
==>,
                  "BODY" => "#line 980 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	907	1000	
==>_LOAD_FLAGS = qq[-bundle -undefined suppress];
our $PERL = q[perl];
our $LOAD_EXT = qq[.bundle <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	896	989	
==>_LOAD_FLAGS = qq[-bundle -undefined suppress];
our $PERL = q[perl];
our $LOAD_EXT = qq[.bundle <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	900	993	
==>_LOAD_FLAGS = qq[-bundle -undefined suppress];
our $PERL = q[perl];
our $LOAD_EXT = qq[.bundle <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	2781	2913	
==>ine, skip it.
        next if !$in_heredoc && /^\s*#|^\s*$/;
        
        # Is this a new rule?
        if (!$in_heredoc && /^\s* <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10138	10231	
==>---------

%Latin1Code_to_fallback = ();
@Latin1Code_to_fallback{0xA0 .. 0xFF} = (
# Copied fr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20605	20697	
==>f->get(1)->is_assign) {
        my $left = Jako::Construct::Expression::Value::Identifier->ne <==
3	/Users/nnunley/parrot/lib/Test/More.pm	22162	22258	
==>.
Should anything succeed, it will report it as an unexpected success.
You then know the thing yo <==
3	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1412	1516	
==>KeyedSetOp;
use base qw(Lua::opcode);

package IncrOp;
use base qw(Lua::opcode);

package NoOp;
us <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	8554	8651	
==>$Parse::RecDescent::failed,
	       $Parse::RecDescent::expected,
	       $Parse::RecDescent::unex <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6807	6946	
==>BG>					print STDERR "**End of Error recovery.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push(@$stack,[ $act, $$ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6490	6623	
==>BG>					print STDERR "**End of Error recovery.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push(@$stack,[ $act, $$ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	3692	3781	
==>tches the expected
result.

=item C<pbc_output_isnt($code, $unexpected, $description)>

Ru <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3196	3304	
==>->data->get('ld'));

        # We can't use -opt: and -debug together.
        if ($conf->data->get('ld_debug <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4700	4808	
==>->data->get('ld'));

        # We can't use -opt: and -debug together.
        if ($conf->data->get('ld_debug <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009804	1009912	
==>,
                  "BODY" => "#line 659 \"src/ops/string.ops\"\n  {{\@1}} = string_compose(interpreter, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010569	1010677	
==>,
                  "BODY" => "#line 659 \"src/ops/string.ops\"\n  {{\@1}} = string_compose(interpreter, {{\@ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	19424	19528	
==>they are supposed to fail
but will work in the future (a todo test).

For more details on the mechanics o <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2284	2423	
==>ious libraries in the link line.
        $liblist = join( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ /gcc/i) {
            $lib <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2576	2715	
==>ious libraries in the link line.
        $liblist = join( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ /gcc/i) {
            $lib <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2371	2510	
==>ious libraries in the link line.
        $liblist = join( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ /gcc/i) {
            $lib <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954084	954305	
==>ODE" => 1073,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 571 \"src/ops/string.ops\"\n  {{\@1}} = Par <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	2573	2670	
==>ush @pat, "$del(?:[^$del]*(?:(?:$del$del)[^$del]*)*)$del";
		}
		else
		{
			push @pat, "$del(?:[^ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293422	293519	
==>\"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294298	294395	
==>\"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295174	295271	
==>\"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n", <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8878	9001	
==>25s',\n}, $_, chr($_) foreach (32 .. 126)"
   32, ' ',
   33, '!',
   34, '"',
   35, '#',
   36, '$',
   37, '%',
   38, '& <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	6551	6657	
==>ll32 -lole32 -loleaut32 -lnetapi32 -luuid -lws2_32 -lmpr -lwinmm -lversion -lodbc32 ',
                link <==
3	/Users/nnunley/parrot/config/gen/PodText.pm	918	1014	
==>figure::Step::Base);

use Pod::Text;

$description = 'Generating plain text docs from Pod';

@arg <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	1137	1262	
==>} else {
      &struct;
    }
}

sub struct {

    # Determine parameter list structure, one of:
    #   struct( class => [ el <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	371	475	
==>b output_is() {
    my ($self, $code, $output, $desc) = @_;
  
    my $count = $self->{builder}->current_ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	409	513	
==>b output_is() {
    my ($self, $code, $output, $desc) = @_;
  
    my $count = $self->{builder}->current_ <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	3691	3805	
==>s->get(qw(verbose verbose-step ask));

    my $n = 0; # step number
    foreach my $task ($self->steps) {
        m <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	1657	1772	
==>f) = $remainderpos-$extralen+1; # RESET \G
		}
		else {
			pos($$textref) = $remainderpos;		    # RESET \G
		}
		ret <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	39	138	
==>ction;
  # Based somewhat dimly on Array::Autojoin

use strict;
use Pod::Simple::BlackBox;

use over <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28799	28896	
==>me { $_[0]->{hashname} = '__STRING' . ++$_[1]->{strcount} . '__'; }

sub issubrule { undef }
sub i <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30879	30976	
==>me { $_[0]->{hashname} = '__STRING' . ++$_[1]->{strcount} . '__'; }

sub issubrule { undef }
sub i <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	2379	2483	
==>$ctx) = @_;
    return $self->convert($tree, $ctx);
}

sub convert_rx_end {
    my ($self, $tree, $ctx) = <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	374	467	
==>ckage Parrot::Docs::Section::Tools;

use strict;
use warnings;

use base qw( Parrot::Docs::Sec <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2048	2160	
==>less $left_sym;
    $left_type = $left_sym->type;
  }
  else {
    $left_type = $left->type;
  }

  my $right_typ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2006	2118	
==>less $left_sym;
    $left_type = $left_sym->type;
  }
  else {
    $left_type = $left->type;
  }

  my $right_typ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1928	2040	
==>less $left_sym;
    $left_type = $left_sym->type;
  }
  else {
    $left_type = $left->type;
  }

  my $right_typ <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	4936	5066	
==>unless $_;

        if (/^(\s*).*\{\s*$/) {
            # note the beginning of a block, and its indent depth.
            $f=lengt <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11432	11525	
==>e)>

Rewrites the method body performing the various macro substitutions for
vtable method bod <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10310	10390	
==>href="$outfile_base.calls.html#$function">@{[$function_call_coverage{$source_file <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2967	3090	
==>CII;
  print {$self->{'output_fh'}} $out,
    #"\n"
  ;
  $self->{'Thispara'} = '';
  
  return;
}

# . . . . . . . . . . An <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2501	2616	
==>CII;
  print {$self->{'output_fh'}} $out, "\n";
  $self->{'Thispara'} = '';
  
  return;
}

# . . . . . . . . . . An <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22585	22690	
==>'eq'    ,[$temp_0,1,"DONE_$label"]);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	13297	13440	
==>my ($R_back, @R_body) = $self->rewrite($R, $advance);

    my @ops = (
                  $scan => @R_body,
                           aop('goto' <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27928	28043	
==>r .= "    type_trans = pop dtypes\n";
			$pir .= "    stypes = push type_trans\n";
		}

		# Finally, call post_op an <==
3	/Users/nnunley/parrot/config/inter/lex.pm	2016	2161	
==>k to default
        $self->set_result('no');
        return $self;
    }

    # if '--version' returns a string assume that this is flex.
    # f <==
3	/Users/nnunley/parrot/config/inter/make.pm	1890	2021	
==>k to default
        $self->set_result('no');
        return $self;
    }

    # if '--version' returns a string assume that this is <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	2030	2161	
==>k to default
        $self->set_result('no');
        return $self;
    }

    # if '--version' returns a string assume that this is <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5906	6068	
==>s $_->{pragma} and $_->{pragma} eq 'multi' ) {
                print {$FH} " :flat";
            }
            $first = 0;
        }
        print {$FH} ")\n" <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	7001	7163	
==>s $_->{pragma} and $_->{pragma} eq 'multi' ) {
                print {$FH} " :flat";
            }
            $first = 0;
        }
        print {$FH} ")\n" <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	9915	10077	
==>s $_->{pragma} and $_->{pragma} eq 'multi' ) {
                print {$FH} " :flat";
            }
            $first = 0;
        }
        print {$FH} ")\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903999	904299	
==>"TYPE" => "inline",
                  "CODE" => 1019,
                  "ARGS" => [
                              "s",
                              "ic",
                              "ic",
                              "sc"
                            ],
                  "BODY" => "#line 257 \"src <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	298	415	
==>Getopt::Std;
use Text::Balanced; # XXX temporarily limit ourselves to perl 5.8...
                    # XXX This doesn <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	1088	1178	
==>c object constructor.

Accepts no arguments and returns a L<Parrot::Configure::Data> object <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	486544	486808	
==>@1}} );\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ceil",
                  "FLAG <==
3	/Users/nnunley/parrot/Configure.pl	853	963	
==>ose=2> for step number C<N> or matching description.

=item C<--nomanicheck>

Tells Configure.pl not to run the <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	212	301	
==>rrot::Pmc2c;

=head1 DESCRIPTION

C<Parrot::Pmc2c> (and the L<subclasses|/SUBCLASSES> defi <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21168	21327	
==>r',
        '/'  => 'number',
        '^'  => 'number',
        '%'  => 'number',
        '..' => 'string',
    );
    my %opcode = (
        '+'  => 'ad <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3357	3460	
==>t {
    my($self)=shift;

    keys %{$self->{STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
}

sub YYLex <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3188	3285	
==>t {
    my($self)=shift;

    keys %{$self->{STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
}

sub YYLex <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1027124	1027325	
==>S" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 280 \"src/ops/sys.ops\"\n   {{\@1}} = sysinfo_i(interprete <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	346	442	
==>tation-related
methods to do with POD and file type.

It's used by the documentation tools in F<t <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9589	9692	
==>bose)
        and confess "C compiler failed (see test.cco)";

    _run_command("$link $linkflags test$o <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2624	2724	
==>) = @_;

    return "goto *ops_addr[*(cur_opcode += $offset)]";
}

=item C<goto_pop()>

Transforms th <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1080	1194	
==>parser, $expr )    = @_;
    my ( $defn,   $opcodes ) = @{$expr};
    if ( scalar( @{$opcodes} ) and $opcodes->[- <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	24369	24483	
==>parser, $expr )    = @_;
    my ( $defn,   $opcodes ) = @{$expr};
    if ( scalar( @{$opcodes} ) and $opcodes->[- <==
3	/Users/nnunley/parrot/config/init/hints/os2.pm	272	381	
==>figuration.
    # A more general one would be appreciated, should anyone actually be
    # using OS/2
    $con <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117722	117943	
==>CODE" => 146,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 226 \"src/ops/bit.ops\"\n  {{\@1}} >>= {{\@ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32043	32158	
==>, it's not numeric.  Correct for this.
            $para->[1]{'number'} = $expected_value;
            $self->whine( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32452	32567	
==>, it's not numeric.  Correct for this.
            $para->[1]{'number'} = $expected_value;
            $self->whine( <==
3	/Users/nnunley/parrot/Configure.pl	10202	10301	
==>d your Parrot.
(NOTE: do not use `$make -j <n>'!)
After that, you can use `$make test' to run the te <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	992	1088	
==>h the tagname of "head1", token(s) for its
content, and then an end-token with the tagname of "he <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1420	1516	
==>h the tagname of "head1", token(s) for its
content, and then an end-token with the tagname of "he <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5815	5948	
==>G>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defined($$token)
            or	do {
				($$token,$$value)=&$l <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5539	5665	
==>G>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defined($$token)
            or	do {
				($$token,$$value)=&$l <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	14171	14265	
==>$regex, '!~', $name);
}

=item B<maybe_regex>

  $Test->maybe_regex(qr/$regex/);
  $Test->maybe <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	13254	13384	
==>remquo      math.h
remquof     math.h
remquol     math.h
rename      stdio.h
rewind      stdio.h
rint        math.h
rintf       mat <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	1511	1614	
==>f, $fallback) = @_;
    die "Must always have fallback defined!" if ! $fallback;
    return "rx_popindex <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86752	87029	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new_callback",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87753	88030	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new_callback",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i", <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	3376	3470	
==>ou might use this instead of C<new()> if you're testing
a Test::Builder based module, but other <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826742	826995	
==>Val_num(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827812	828065	
==>Val_num(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	21504	21629	
==>,
                    (funcptr_t) $_->[3] }" } @mmds);
    my $isa = join(" ", $classname, @{ $self->{parents} });
    $isa =~ <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	1304	1409	
==>OWERCASE
    $ret |= 0x0004 if $chr =~ /^[[:alpha:]]$/;  # CCLASS_ALPHABETIC
    $ret |= 0x0008 if $chr =~ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18648	18741	
==>, like 52 for 26-point)
that these heading levels will appear as.

=item $parser->codeblock_ha <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196382	196471	
==>Y" => "#line 335 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640746	641103	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641510	641867	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645966	646323	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154445	154865	
==>[
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 187,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#lin <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	4135	4301	
==>f $exit_code and not $pass;

            unless($ENV{POSTMORTEM}) {
                unlink $f_out;
            }

            return $pass;
        };
    }
}


__PACK <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2126	2235	
==>unt = 1 if ! defined $amount;
    my $realvar = value($var);
    return "$realvar -= $amount;";
}

sub output_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367132	367424	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367923	368215	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368715	369007	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155313	155703	
==>e",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 188,
                  "ARGS" => [
                              "sc",
                              "s",
                              "ic <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5938	6043	
==>t unless ($entry->[4] =~ /MMD_/);
    next if ($entry->[4] =~ /_INT$/);
    next if ($entry->[4] =~ /_STR$ <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6356	6461	
==>t unless ($entry->[4] =~ /MMD_/);
    next if ($entry->[4] =~ /_INT$/);
    next if ($entry->[4] =~ /_STR$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552873	552966	
==>reter, method_pmc);\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556868	556961	
==>reter, method_pmc);\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560891	560984	
==>reter, method_pmc);\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{= <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	2529	2628	
==>work together>.

=head2 Construction

=over 4

=item B<new>

  my $Test = Test::Builder->new;

Retur <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9751	9844	
==>re_open_paren;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->requi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25287	25380	
==>re_open_paren;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->requi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878863	879248	
==>i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 996,
                  "ARGS" => [
                              "s",
                              "s",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 244 \ <==
3	/Users/nnunley/parrot/config/gen/config_h.pm	1212	1322	
==>h: $!";

    print HH <<EOF;
/*
** !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
**
** This file is generated autom <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548942	549038	
==>BODY" => "#line 1107 \"src/ops/math.ops\"\n  /* Coercing a negative to a UINT can get pretty ugly <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6047	6203	
==>";
			};

            $act=   exists($$actions{ACTIONS}{$$token})
                    ?   $$actions{ACTIONS}{$$token}
                    :   exists($$a <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5762	5913	
==>";
			};

            $act=   exists($$actions{ACTIONS}{$$token})
                    ?   $$actions{ACTIONS}{$$token}
                    :   exists($$a <==
3	/Users/nnunley/parrot/config/gen/config_h.pm	885	988	
==>ed_lines => 1
    );

    genfile(
        'config/gen/config_h/feature_h.in', 'include/parrot/feature.h <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351002	351201	
==>rpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351664	351863	
==>rpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2881	2971	
==>->accept_targets( 'html', 'HTML' );
  $new->accept_codes('VerbatimFormatted');
  $new->acce <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3046	3166	
==>INT "3 in subroutine two"
   RETURN Label2   'Cannot return from here to main
                   'program - only to SUB1. <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17013	17133	
==>INT "3 in subroutine two"
   RETURN Label2   'Cannot return from here to main
                   'program - only to SUB1. <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19343	19442	
==>esult, $false, DO_$do->{jump}";
		}
		push @{$code{$seg}->{code}}, "\t$_\n";
	} else {
		push @{$cod <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	2619	2716	
==>ptions, C<PC> and C<PC'> are the current
and next position within the Parrot code.

=over 4

=item <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2514	2597	
==>mops.p6>,
F<examples/mops/mops.ps>,
F<examples/mops/mops.py>,
F<examples/mops/mops.r <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	2514	2597	
==>mops.p6>,
F<examples/mops/mops.ps>,
F<examples/mops/mops.py>,
F<examples/mops/mops.r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841653	841924	
==>ter,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842417	842688	
==>ter,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	17295	17433	
==>ze=>"white" },
                        breed    => Breed->new(name=>'short-hair', cross=>1),
                   or:  breed    => {name=>'sh <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088030	1088387	
==>al" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice",
                  "FLAGS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090984	1091341	
==>al" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice",
                  "FLAGS <==
3	/Users/nnunley/parrot/config/init/miniparrot.pm	1623	1789	
==>_o         => '',
        TEMP_exec_h        => '',
        TEMP_exec_o        => '',
        asmfun_o           => '',
        has___sighandler_t => undef,
        ha <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	28201	28304	
==>);
  my $start_line = $stack[0][1]{'start_line'};

  # A recursive algorithm implemented iteratively!  W <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	31702	31805	
==>);
  my $start_line = $stack[0][1]{'start_line'};

  # A recursive algorithm implemented iteratively!  W <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6594	6723	
==>ntifiers, $ident;
        last unless $self->skip_comma;
      }

      my $value;

      if ($self->skip_assign) {
        $value <==
3	/Users/nnunley/parrot/languages/regex/test.pl	2410	2514	
==>n = <SPEC>;
    chomp($pattern);
}

generate_regular($pattern);
exit(0) if $compile;

my $status = 1;

my <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	2178	2271	
==>eant to be public, prefix it with <Parrot_>,
or something else specific enough, preferably spe <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22474	22599	
==>ction' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 72
		ACTIONS => {
			"- <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1956	2055	
==>r 4

=item C<create_path()>

This is called from C<new()> to create the path if necessary.

=cut

su <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	933	1032	
==>r 4

=item C<create_path()>

This is called from C<new()> to create the path if necessary.

=cut

su <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	4113	4223	
==>my %ignore;
my @ignore = split( /\n\n/, $svnignore );
foreach (@ignore) {
    my @cnt = m/( - )/g;
    if ($#cn <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2436	2535	
==>l_arg_name) 
      unless defined $formal_arg_type;

    $self->INTERNAL_ERROR("Can't determine type <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2136	2235	
==>l_arg_name) 
      unless defined $formal_arg_type;

    $self->INTERNAL_ERROR("Can't determine type <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	4320	4438	
==>_Plan}    = 0;
    $self->{No_Plan}      = 0;
    $self->{Original_Pid} = $$;

    share($self->{Curr_Test});
    $self <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	7800	7896	
==>g_nci(interpreter, st);

    return UVal_num(st->val);
}

static STRING*
get_nci_S(Interp *interp <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	19530	19625	
==>er =begin $content matches $target_name\n";
        next unless $self->{'accept_targets'}{$targe <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3091	3198	
==>ap};
  return $new;
}

sub run {
  my $self = $_[0];
  return $self->do_middle if $self->bare_output;
  retu <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11640	11742	
==>ape_url {
  my($self, $string) = @_;
  $string =~ s/([^\x00-\xFF])/'('.ord($1).')'/eg;
    #  Turn char <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1983	2124	
==>get('ask')) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    # if '--version' returns a str <==
3	/Users/nnunley/parrot/config/inter/make.pm	1857	1998	
==>get('ask')) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    # if '--version' returns a str <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1997	2138	
==>get('ask')) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    # if '--version' returns a str <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	35607	35897	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push_eh",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2889	3002	
==>ops, $pushes) = @_;
	my $register_num = 0;
	my $push_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1811	1924	
==>ops, $pushes) = @_;
	my $register_num = 0;
	my $push_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set <==
3	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	1293	1426	
==>batim_end ) {
            $verbatim_chunk .= $line;
            $verbatim_chunk .= "\n";

            # bracket the verbatim chunk wit <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	4641	4743	
==>is task.  For now we just check the first line of a function,
# and assume that more likely than not in <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	563	656	
==>t-hosted languages.  Right
now it parameterizes the two parameters that at least three languag <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	14648	14757	
==>rint <<EOC;
	# $namespace{$f} => $vtables{$f}
EOC
	    #$namespace{$f} => $vtables{$f}
	}
	else {
	    print < <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13574	13669	
==>items[0]->describe =~ /<rulevar/
				? "a <rulevar> (which acts like an unconditional <reject> d <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	6963	7093	
==>*)}{\\$1}g;
        }
 
        print $out $line;
    }

    close($in)  or die "Can't close $source: $!";
    close($out) or die " <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1690	1785	
==>m->args;

  $self->SYNTAX_ERROR("Wrong number of arguments (expected %d, got %d) in call to '%s' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1390	1485	
==>m->args;

  $self->SYNTAX_ERROR("Wrong number of arguments (expected %d, got %d) in call to '%s' <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3403	3500	
==>my ($self, $addr) = @_;
    return "return opcode_to_prederef(interpreter,  (opcode_t *)$addr)";
} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478887	478982	
==>er, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({{\@1}} / den);\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479779	479874	
==>er, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({{\@1}} / den);\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11265	11417	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE|PARROT_JUMP_ENEXT",
                  "NAME" => "bsr",
                  "FL <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	6389	6509	
==>se {
        require Carp;
        my @args = grep { defined } ($cmd, $arg);
        Carp::croak("plan() doesn't understa <==
3	/Users/nnunley/parrot/config/inter/encoding.pm	617	720	
==>ap { m{\./src/encodings/(.*)} } glob "./src/encodings/*.c"
    );

    my $encoding_list = $conf->option <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39713	39807	
==>har_ready_p,
  'write' => \&_op_write,
  'display' => \&_op_display,
  'newline' => \&_op_newli <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	1047	1190	
==>ression::Value');

  my $self = bless {
    BLOCK     => $block,

    KIND      => 'unless',
    LEFT      => $left,
    OP        => $op,
    R <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1873	1977	
==>y @args  = $self->args;

  my $subname = $name;

  $subname =~ s/::/__/g;

  $compiler->emit(".sub _${sub <==
3	/Users/nnunley/parrot/lib/Test/More.pm	14869	14970	
==>it failed.  But sometimes it doesn't work out
that way.  So here we have ways for you to write your ow <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4205	4307	
==>:'}{_DBParse})#Already loaded ?
		and	return;
	}
	my($fname)=__FILE__;
	my(@drv);
	open(DRV,"<$fna <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3990	4087	
==>:'}{_DBParse})#Already loaded ?
		and	return;
	}
	my($fname)=__FILE__;
	my(@drv);
	open(DRV,"<$fna <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	440	567	
==>ile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $kind        = $self->kind;
  my $peer        = $self->p <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	420	547	
==>ile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $kind        = $self->kind;
  my $peer        = $self->p <==
3	/Users/nnunley/parrot/lib/Test/More.pm	36852	36945	
==>Deep> gives you more powerful complex data structure testing.

L<Test::Unit> is XUnit style te <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	4601	4704	
==>: %d interfaces ===\n", scalar @ParrotAPI;

my %Code;
my %DataB;
my %DataD;
my %DataR;
my %Undef;
my %AP <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	12716	12811	
==>r="Hello"
print v.start.pnext.bar

' Member functions, give 0 and 3 (modified)
type first
	foo a <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	1188	1310	
==>ray', 'write_DOT'],
  ['',             'print', '" "'],
  ['',             'branch', 'write_NEXT'],
  ['write_DOT',    'pri <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5955	6058	
==>ib.op_func_table)
            ${bs}op_lib.op_func_table = (op_func_t *) $cg_func(0, 0);
END_C
}

=item C <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	3122	3217	
==>($code, $expected, $description)>

Runs the PIR code and passes the test if output matches the e <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33853	33998	
==>paras->[0][0], "\n";
              push @$para, '';  # Just so it's not contentless
            }
          }


        } elsif($over_type eq 'bul <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	27194	27294	
==>imited by any of the specified characters
# (in this case: any type of quote or a slash)

	$patstring <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843269	843598	
==>3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844147	844476	
==>3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845025	845354	
==>3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FL <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	25471	25646	
==>next;
    }
    #~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
    # ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~

    if <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	495	600	
==>tem C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new(
		'D <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	503	608	
==>tem C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new(
		'D <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	75703	75816	
==><<<
						   $tracecontext
.


select TRACECONTEXT;
$| = 1;

select STDOUT;

sub _verbosity($)
{
	   defined $::RD <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2405	2503	
==>P10[0]
	P1= P0["$stype"]
	P0= P1["$var"]	# Pull the original
	P2= P10[I25]
	P3= P2["$stype"]
	P3["$ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2632	2730	
==>P10[0]
	P1= P0["$stype"]
	P0= P1["$var"]	# Pull the original
	P2= P10[I25]
	P3= P2["$stype"]
	P3["$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419590	419759	
==>ic",
                              "ic"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpret <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420719	420888	
==>ic",
                              "ic"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpret <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13561	13647	
==>other.foo=1
x.other.bar="one"
x.narf=99
x.pnext.foo=2
x.pnext.bar="two"
y=x
print y.nar <==
3	/Users/nnunley/parrot/lib/File/Which.pm	3654	3751	
==>Which> was created to be able to get the paths to executable programs
on systems under which the ` <==
3	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	1617	1713	
==>!DEVELOPING

  print << "EOF";
/* fingerprint checking is only enabled in development versions */ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	41108	41198	
==>extract_tagged>

(Note: This subroutine is only available under Perl5.005)

C<gen_extract_t <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	11401	11526	
==>current_test() + 1;

            # Name of the file where output is written.
            # Switch to a different extension whe <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	3668	3775	
==>s, Jako::Token->new(
        $file, $line, $1 eq '[' ? 'open-bracket' : 'close-bracket', undef, $1);
      $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10747	10842	
==>render {
    die;
}

sub Regex::Ops::Tree::seq::needparen { 0 }
sub Regex::Ops::Tree::seq::rende <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826688	826801	
==>TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_num(entry->entry);\n  {{+=3}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827758	827871	
==>TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_num(entry->entry);\n  {{+=3}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	1009	1097	
==>elf->new_item('', 'docs/parrot.pod'),
		),
		$self->new_group('Specific Documentation', ' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19928	20033	
==>k, and/or if you want it to hyphenate right.

Here are some notable values:

  1033  US English
  2057  UK <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15412	15513	
==>BUG > 2 and print "-- $_[0]\n";
  push @{ $self->{'token_buffer'} }, 
       $self->{'end_token_class' <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	1979	2074	
==>, $name, $args, $argdirs, $labels, $flags)>

Allocates a new bodyless op. A body must be provide <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868668	869090	
==>IRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 986,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic"
                            ],
                  "BODY" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686	768	
==>*\n** bit.ops\n*/\n\n\n\n/*\n** cmp.ops\n*/\n\n\n\n/*\n** debug.ops\n*/\n\n\n\n/*\n <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	2289	2458	
==>ages/t/harness                             []
    runtime/parrot/dynext/README                    [devel]doc
    runtime/parrot/include/DWIM.pir                 [devel]do <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6634	6734	
==>pair]);
  $self->_restore($item, $pair);

  return $return;
}

sub _qq_unquote_splicing {
  my ($self <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	75	173	
==>rray::Autojoin

use strict;
use Pod::Simple::BlackBox;

use overload( # So it'll stringify nice
  ' <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27681	27776	
==>=~ s/\A($skip)/$lastsep=$1 and ""/e and '
		. ($check->{itempos}? 'do {'.Parse::RecDescent::Prod <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29791	29886	
==>=~ s/\A($skip)/$lastsep=$1 and ""/e and '
		. ($check->{itempos}? 'do {'.Parse::RecDescent::Prod <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31888	31983	
==>=~ s/\A($skip)/$lastsep=$1 and ""/e and '
		. ($check->{itempos}? 'do {'.Parse::RecDescent::Prod <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	512	636	
==>tem C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shift;
        
    return $self->SUPER::new(
        'L <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	472	577	
==>tem C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new(
		'L <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7115	7212	
==>_startasm") {
		feedme;
		#$syms[CURR]=~s/^\n|\n$//gm;
		push @{$code{$seg}->{code}}, "\t#\n\t# Us <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4348	4457	
==>al link of $group failed ($?)\n";
    }

    # Link non-grouped PMCs individually
    my @ungrouped_pmcs = gre <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4452	4561	
==>al link of $group failed ($?)\n";
    }

    # Link non-grouped PMCs individually
    my @ungrouped_pmcs = gre <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	18292	18388	
==>} elsif($para_type eq '=begin') { #///////////////////////////////////////

      my $content = j <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62713	62841	
==>or,$line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr($grammar,$pos,0,
						       "<lef <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63424	63552	
==>or,$line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr($grammar,$pos,0,
						       "<lef <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64154	64282	
==>or,$line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr($grammar,$pos,0,
						       "<lef <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10247	10356	
==>') && $ord <= ord('9');
    return 1 if $ord =~ /^[~!@#%&_'":;>,<]$/;
#    return 1 if $ord =~ /^[`~!@#$%^&*() <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	2528	2625	
==>ug will
throw a fatal error to the effect that
"it's s too late to call Pod::Simple::Debug".

Note <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	23598	23692	
==>e->whoami = CONST_STRING(interp, "$classname");
        vt_clone->isa_str = CONST_STRING(interp <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	22593	22725	
==><> maps to ",
           ref($is)
            ? ( "tags ", map("$_<", @$is), '...', map('>', @$is), "\n" )
            : "tag $is<... <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1654	1753	
==>tch: $desc", $todo, $got, $expected, $depends, :negate);
}

## like

sub like (Str $got, Rule $expec <==
3	/Users/nnunley/parrot/config/auto/pack.pm	1493	1614	
==>ined $test) {
            warn <<"AARGH"
Configure.pl:  Unable to find a functional packtype for $_.
               '$form <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39379	39475	
==>n-output-file'      => \&_op_open_output_file,
  'close-input-port'      => \&_op_close_input_por <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	163	257	
==>e;

=head1 Parrot::Test::Python

Provide language specific testing routines here...

This is cu <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	22105	22262	
==>'HASH')
			{
				push @class, (keys %$func)[0];
				$func = (values %$func)[0];
			}
			else
			{
				push @class, undef;
			}
		}

		FIELD: while (pos($$text <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	207	308	
==>t/Statement/Goto.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

pac <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	3631	3721	
==>...
  return shift->{'errors_seen'} || 0;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	425	527	
==>shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  #$new->accept_codes( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	229	330	
==>shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->accept_codes( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	228	329	
==>shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->accept_codes( <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5182	5291	
==>ntent (@{$self->{CONTENTS}})
    {
        push @contents, 
            $self->file_paths_relative_to_source($ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4068	4168	
==>$pir .= <<'PIR';
# Increment stack depth.
inc stack_depth

# Get type (so we can find register type). <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2484	2584	
==>$pir .= <<'PIR';
# Increment stack depth.
inc stack_depth

# Get type (so we can find register type). <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	389	495	
==>Construct::Block::Conditional);

#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $left, $op, $rig <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	401	507	
==>Construct::Block::Conditional);

#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $left, $op, $rig <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1763	1866	
==>Called by C<goto_offset()>.

=cut

sub expr_pop
{
    my ($self) = @_;

    return "pop_dest(interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496974	497239	
==>= floatval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497844	498109	
==>= floatval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498714	498979	
==>= floatval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	21615	21718	
==>he JUMP_IF_x got rewritten
    if ($r->[2] eq 'I' && $l->[2] eq 'I') {
	print <<"EOC";
	$op $l->[1], $r- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824414	824502	
==>ernal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_STRIN <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825485	825573	
==>ernal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_STRIN <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3431	3544	
==>c" } @$pmcs;
        if (needs_build("$group.c", @pmcfiles)) {
            run("$PMC2C --library $group --c " . jo <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3535	3648	
==>c" } @$pmcs;
        if (needs_build("$group.c", @pmcfiles)) {
            run("$PMC2C --library $group --c " . jo <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3547	3653	
==>ile') {
    # Convert X.c -> X.o for all X.c
	my $core_suffix;
	foreach $core_suffix (values %cores) {
		co <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40613	40747	
==>35,
			'primary' => 28
		}
	},
	{#State 168
		DEFAULT => -24,
		GOTOS => {
			'@7-5' => 186
		}
	},
	{#State 169
		ACTIONS = <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7728	7824	
==>s$="Hello"
if s$ then print "This is true" else print "Oops (string)"
s$=""
if s$ then print "Sho <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14715	14811	
==>s$="Hello"
if s$ then print "This is true" else print "Oops (string)"
s$=""
if s$ then print "Sho <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	25337	25453	
==>f {
    my ( $parser, $expr, $then, $elseifs, $else ) = @_;
    my @opcodes = ();
    my $cond = get_cond( $parser <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	1233	1339	
==>e inheriting classes name.

=cut

sub set_result
{
    my ($self, $result) = @_;

    $self->{result} = $re <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8676	8801	
==>$out;
            }
        }
    }

    return $exit_code;
}

=item C<cc_gen($source)>

Generates F<test.c> from the specifie <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	14330	14450	
==>e of func
	    # but can't create namespace yet
	    my $gn = "def_arg_" . ($n-$i-1);
	    print <<EOC;
	# $gn $g
	store_ <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	16406	16501	
==>Example 3

The constructor of a generated class can be passed a list
of I<element>=>I<value> pai <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554003	554094	
==>urrent_cont = {{\@3}};\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_me <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555400	555491	
==>urrent_cont = {{\@3}};\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_me <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	983	1082	
==>r mapper\n";
}

# Pre and post branch operation hooks.
sub pre_branch {
	die "pre_branch not impleme <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264743	265092	
==>me",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 308,
                  "ARGS" => [
                              " <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	38656	38760	
==>his really is the least evil way I
	# can think of to do it.
	$ins =~ s/(\$\{\w+\})/
		"\"\n\${INS} = con <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23785	23923	
==>35,
			'primary' => 28
		}
	},
	{#State 75
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' = <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	2381	2491	
==>ecified by C<$ignorePattern> are
not included in the checksum.

=cut

sub file_checksum
{
    my ($filename, $i <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2134	2234	
==>mit_par {
  my($self, $tweak_indent) = splice(@_,0,2);
  my $indent = ' ' x ( 2 * $self->{'Indent'} + <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035157	1035397	
==>on",
                  "CODE" => 1157,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 64 \"src/ops/var.ops\"\n    parrot_co <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2695	2792	
==>OK in sequence
PRINT "1 in module-level code"
GOSUB Sub1
PRINT "ERR this line in main routine shou <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16662	16759	
==>OK in sequence
PRINT "1 in module-level code"
GOSUB Sub1
PRINT "ERR this line in main routine shou <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	1503	1604	
==>or to the mailing
list.

=cut

package Parrot::Test::Harness;

use strict;
use warnings;

use Carp;
us <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	13558	13655	
==>ould be started).  This is most useful when writing modules and you
find there is some language fe <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	972	1076	
==>cation. TODO: Need a more generalized way for finding
    # where Fink lives.
    if ($osname =~ /darwin/ <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	1171	1275	
==>cation. TODO: Need a more generalized way for finding
    # where Fink lives.
    if ($osname =~ /darwin/ <==
3	/Users/nnunley/parrot/config/auto/readline.pm	1246	1350	
==>cation. TODO: Need a more generalized way for finding
    # where Fink lives.
    if ($osname =~ /darwin/ <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	13167	13285	
==>temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_P($reg_num);";
        return "t_$t <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3440	3552	
==>fnlib}) {
      $fnlib = $props{fnlib}->value; # TODO: We should make sure its a string, somewhere.
    }
    els <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6104	6216	
==>fnlib}) {
      $fnlib = $props{fnlib}->value; # TODO: We should make sure its a string, somewhere.
    }
    els <==
3	/Users/nnunley/parrot/lib/Test/More.pm	4390	4557	
==>n;
    while( $idx <= $#plan ) {
        my $item = $plan[$idx];

        if( $item eq 'no_diag' ) {
            $Show_Diag = 0;
        }
        else {
            pu <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1686	1805	
==>. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1732	1828	
==>. . . . . . . . . . . . . . .
#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	603	702	
==>cker;
use Parrot::Docs::POD2HTML;

my $UNDEFINED = 'Undefined';

# These are the Parrot file types e <==
3	/Users/nnunley/parrot/config/auto/bc.pm	492	581	
==>use Parrot::Configure::Step ':auto', 'capture_output';

$description = 'Determining whethe <==
3	/Users/nnunley/parrot/config/auto/m4.pm	466	555	
==>use Parrot::Configure::Step ':auto', 'capture_output';

$description = 'Determining whethe <==
3	/Users/nnunley/parrot/config/auto/perldoc.pm	384	473	
==>use Parrot::Configure::Step ':auto', 'capture_output';

$description = 'Determining whethe <==
3	/Users/nnunley/parrot/lib/Test/More.pm	30827	30973	
==>check");
	    }
        }
    }

    return $ok;
}


sub _whoa {
    my($check, $desc) = @_;
    if( $check ) {
        die <<WHOA;
WHOA!  $desc
Th <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32021	32152	
==>t') {
            # Hm, it's not numeric.  Correct for this.
            $para->[1]{'number'} = $expected_value;
            $self-> <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32430	32561	
==>t') {
            # Hm, it's not numeric.  Correct for this.
            $para->[1]{'number'} = $expected_value;
            $self-> <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	8957	9061	
==>amed your test '$name'.  You shouldn't use numbers for your test names.
    Very confusing.
ERR

    my($ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	1866	1965	
==>ine opcode_to_prederef(i, op)   (op ? \\
     (void**) (op   - CONTEXT(i->ctx)->pred_offset) : NULL) <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1277	1376	
==>ine opcode_to_prederef(i, op)   (op ? \\
     (void**) (op   - CONTEXT(i->ctx)->pred_offset) : NULL) <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	42870	42979	
==>$label . ' ' x ($max_len[0]-length($label)+2);
    if(defined $row->[1]) {
      $label = $row->[1];
      $se <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055322	1055467	
==>"
                            ],
                  "BODY" => "#line 182 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (PMC_IS_NULL({{\@2}}))\n <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	1626	1738	
==>marks!
		emit("STRING");
		fetch;
		goto MAIN;
	}
	if ( ($cur eq "'") or 
	     ($cur=~/[Rr]/ and $next=~/[Ee]/ a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717989	718082	
==>interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_fprintf(interpreter, io, IN <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718921	719014	
==>interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_fprintf(interpreter, io, IN <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	87	176	
==>ages.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Section: <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	3425	3532	
==>t := $ref.isa($expected_type);
    Test::proclaim($test, $out, $todo, $ref.ref, $expected_type, $depends);
} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	13873	13971	
==>t_line' => $m, 'errata' => 1}, 'POD ERRORS'],
    ['~Para', {'start_line' => $m, '~cooked' => 1, 'e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	308630	308741	
==>t *)mem_sys_allocate_zeroed(sizeof(PDB_t));\n\n        interpreter->pdb = pdb;\n        pdb->cur_opcode = interp <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	661	756	
==>r'.

=item C<exec_prefix>

The exec prefix. Defaults to '/usr'.

=item C<bindir>

The executable <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	890	985	
==>r'.

=item C<exec_prefix>

The exec prefix. Defaults to '/usr'.

=item C<bindir>

The executable <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	5889	6055	
==>d} ) == 1 ) {
            $val = $field->[0];
            if ( defined $num_key ) {
                my $incr = new IncrOp( $parser,
                    'result' => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427887	427994	
==>,
                  "BODY" => "#line 69 \"src/ops/math.ops\"\n  mmd_dispatch_v_pn(interpreter, {{\@2}}, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428774	428881	
==>,
                  "BODY" => "#line 69 \"src/ops/math.ops\"\n  mmd_dispatch_v_pn(interpreter, {{\@2}}, {{\@ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	22760	22875	
==>ned($field) && length($field))
				{
					if (!$igunk) {
						$unkpos = pos $$textref
							if length($pref) && !d <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	2985	3092	
==>cond";
    }
}

sub output_goto {
    my ($self, $where) = @_;
    return "branch ".$self->output_label_use( <==
3	/Users/nnunley/parrot/config/gen/config_pm.pm	107	200	
==>28:15.110975Z coke  $

=head1 NAME

config/gen/config_pm.pm - Record configuration data

=head <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2088	2197	
==>ym->type;
  }
  else {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2046	2155	
==>ym->type;
  }
  else {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1968	2077	
==>ym->type;
  }
  else {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	4241	4369	
==>e, "To-Do (XXX) noticed.");
        }
    }
}


sub check_cuddled_else {
    my ($file, $source) = @_;

    my $line = 0;
    for <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	8132	8226	
==>urce_file</td>
             <td><a href="$outfile_base.lines.html">@{[$file_line_coverage{$sour <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	3303	3396	
==>with C<abstract>: No C<class_init> code is generated.

=item C<const_too>

Classes with this f <==
3	/Users/nnunley/parrot/config/auto/env.pm	543	645	
==>lf, $conf) = (shift, shift);

    my $verbose = $conf->options->get('verbose');

    my ($setenv, $unse <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	25963	26062	
==>ests.pod>

=item L<Test/More>

=item L<Test/Builder>

=back

=cut

sub report_odd_hash {
    my $war <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	13641	13738	
==>ome language feature missing, or core bug that needs to
be sorted out before you can continue.

It <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319536	319807	
==>E" => "conv_i4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 37 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320305	320576	
==>E" => "conv_i4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 37 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321075	321346	
==>E" => "conv_i4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 37 <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	1247	1383	
==>'',             'branch', 'write_NEXT'],
  ['write_DOT',    'print', '" . "'],
  ['',             'save', 'P1'],
  ['',             'invo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79345	79459	
==>s_Undef);\n  }\n  else {\n      /* At this point we have the symbol's address. We just need to build\n         a PM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80866	80980	
==>s_Undef);\n  }\n  else {\n      /* At this point we have the symbol's address. We just need to build\n         a PM <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	1315	1453	
==>my ($m, $input) = @_;
    return if ! $m->{'!RESULT'};
    my %r;
    while (my ($k, $v) = each %$m) {
      next if $k =~ /^!/;
      if ( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2013	2102	
==>NIVERSAL::isa($args[$i], 'Jako::Construct::Expression::Value::Identifier')) {
      my $ar <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1713	1802	
==>NIVERSAL::isa($args[$i], 'Jako::Construct::Expression::Value::Identifier')) {
      my $ar <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2560	2663	
==>= $self->op;
  my $right = $self->right;

  if (defined $cond) {
    $handler->start_element({ Name => ' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3234	3337	
==>= $self->op;
  my $right = $self->right;

  if (defined $cond) {
    $handler->start_element({ Name => ' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3324	3427	
==>= $self->op;
  my $right = $self->right;

  if (defined $cond) {
    $handler->start_element({ Name => ' <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	949	1069	
==>1);
}

sub gen_code {
  # Discard upper 32 bits on 64 bit archs.
  my $MSK = ((1 << 16) << 16) ? ' & ' . MAX : '';
#	FF = <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	296	389	
==>s] input.ops [input2.ops ...]
 $ perl tools/build/ops2pm.pl [--renum]  input.ops [input2.ops . <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2746	2840	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub new {
  my $new = shift->SUPER::new(@_);
  #$new->nix_X <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3102	3194	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sub new {
  my $new = shift->SUPER::new(@_);
  $new->nix_X <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1174	1286	
==>= $conf->options->get($util);
    $prog ||= $ENV{uc($util)};

    # never override the user.  If a non-existent p <==
3	/Users/nnunley/parrot/config/inter/make.pm	995	1107	
==>= $conf->options->get($util);
    $prog ||= $ENV{uc($util)};

    # never override the user.  If a non-existent p <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1171	1283	
==>= $conf->options->get($util);
    $prog ||= $ENV{uc($util)};

    # never override the user.  If a non-existent p <==
3	/Users/nnunley/parrot/languages/urm/urm-old.pl	136	234	
==>@program;
my %register;
my $outreg;
open PROGRAM, $ARGV[0] or die "Couldn't get file";
foreach my $ <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	2183	2303	
==>nsert .= "\t$c\n";
  }
  
  my $dump = '
  sub round {
	my ($a,$b,$c,$d) = @_[0 .. 3];
	my $r;

	' . $insert . '
	$_[0]+$ <==
3	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	441	558	
==>>updir(), $PConfig{test_prog} );

sub run_spec {
    my ( $spec_fh ) = @_;

    my $pattern = <$spec_fh>;
    chomp($p <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1860	1966	
==>s == @args;

  for (my $i = 0; $i < @args; $i++) {
    my ($formal_arg_type, $formal_arg_name) = @{$formal_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1560	1666	
==>s == @args;

  for (my $i = 0; $i < @args; $i++) {
    my ($formal_arg_type, $formal_arg_name) = @{$formal_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4058	4161	
==>shes) {
		$pir .= <<'PIR';
# Increment stack depth.
inc stack_depth

# Get type (so we can find register <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2474	2577	
==>shes) {
		$pir .= <<'PIR';
# Increment stack depth.
inc stack_depth

# Get type (so we can find register <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	3630	3740	
==>-Wcast-align is now removed: it gives too many false positives
            #    e.g. when accessing registers - <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1747	1846	
==>s (expected %d, got %d) in call to '%s'.",
    scalar(@formal_args), scalar(@args), $name)
    unles <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1447	1546	
==>s (expected %d, got %d) in call to '%s'.",
    scalar(@formal_args), scalar(@args), $name)
    unles <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5257	5386	
==>the result and return
        if ($@) {
            my $result = $step->result || 'no result returned';
            carp "\nstep $ <==
3	/Users/nnunley/parrot/config/auto/memalign.pm	1800	1907	
==>gn => $f);
    print($test ? " (Yep:$f) " : " (no) ") if $verbose;
    $self->set_result($test ? 'yes' : 'no <==
3	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	165	269	
==>ols/build/fingerprint_c.pl - Create fingerprint.c

=head1 SYNOPSIS

    % perl tools/build/fingerprint_c. <==
3	/Users/nnunley/parrot/lib/Test/More.pm	27761	27856	
==>display a useful diff of two
arbitrary data structures.

These functions are usually used inside <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2558	2652	
==>ce_file_with_name($name)>

Returns the C source file with the specified name.

=cut

sub c_sour <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118919	119245	
==>,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	119773	120099	
==>,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120628	120954	
==>,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943845	943952	
==>ops\"\n  {{\@1}} = Parrot_charset_number_of_str(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944634	944741	
==>ops\"\n  {{\@1}} = Parrot_charset_number_of_str(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5919	6011	
==>ax.com>.

=head1 AUTHOR

Joshua Hoblitt C<jhoblitt@cpan.org>

=head1 SEE ALSO

F<docs/configu <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6768	6860	
==>ax.com>.

=head1 AUTHOR

Joshua Hoblitt C<jhoblitt@cpan.org>

=head1 SEE ALSO

F<docs/configu <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	48516	48606	
==>t_codeblock>

C<extract_codeblock> attempts to recognize and extract a balanced
bracket del <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	14493	14589	
==>h.get_try_offset()
    try_length = eh.get_try_length()
    if try_offset != pc goto NOT_TRY_STAR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5746	6058	
==>_file",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 14 <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	36602	36741	
==>cent::_hint("Lookahead for negated optional
					   repetitions (such as
					   \"!$subrule($repspec)\" can never
					   succeed, since op <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2945	3059	
==>)",
    'ki' => "IREG(%ld)",

    'ic' => "%ld",
    'nc' => "CONST(%ld)->u.number",
    'pc' => "CONST(%ld)->u.key <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	9167	9300	
==>EST: $!\n";

    my %files_in_dir_nocase;
    my %files_in_dir_8dot3;
    my $line = 0;
    while (<F>) {
        $line++;

        ch <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	9561	9674	
==>ew_code =~ m/^[-\.0-9]/s
        or $new_code =~ m/:[-\.0-9]/s;
            # The legal under-0x80 Name characters <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10825	10938	
==>ew_code =~ m/^[-\.0-9]/s
        or $new_code =~ m/:[-\.0-9]/s;
            # The legal under-0x80 Name characters <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1660	1784	
==>};  }
sub args      { return @{shift->{ARGS}};   }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1168	1285	
==>};  }
sub args { return @{shift->{ARGS}}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	987	1104	
==>};  }
sub args { return @{shift->{ARGS}}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_ <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	3796	3918	
==>ize} == $intvalsize) {

        # Could not find anything bigger than intval.
        $conf->data->set(
            hugeint <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20538	20646	
==>ore($temp_0);
  return $return;
}

sub _op_geq {
  my ($self,$node) = @_;
  my $return;
  my $label = $self-> <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13809	13906	
==>st)
	a=12
	b=99
	c.foo=103
	mine=100
end function
dim z as first
z.foo=13
print mine(foo,20,z)
pri <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	8959	9073	
==>e space is needed on the front.
        print {$self->{'output_fh'}} 
            " <a href='#_top'><img alt='^' bo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	500	609	
==>le, $line) = @_;

  $props = { } unless defined $props;
  $args  = [ ] unless defined $args;

  confess("Undef <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	580	673	
==>t::Block');
  confess "Value is not!" if defined $value and not UNIVERSAL::isa($value, 'Jako:: <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	4731	4854	
==>r my $regex ( @{ $cfg{skip_bench} } ) {
        $fail++ and last if /$regex/;
    }
    return if $fail;
    for my $index ( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	1843	1959	
==>ind   { return shift->{KIND};     }
sub type   { return shift->{TYPE};     }
sub name   { return shift->{NAME};     } <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2800	2898	
==>ind { return shift->{KIND}; }
sub type { return shift->{TYPE}; }
sub name { return shift->{NAME}; } <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2788	2916	
==>d $parser->Error("Invalid escape sequence $_ .\n"),
                last;
        }
    }

    $parser->Error("Untermined st <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4303	4431	
==>d $parser->Error("Invalid escape sequence $_ .\n"),
                last;
        }
    }

    $parser->Error("Untermined st <==
3	/Users/nnunley/parrot/lib/File/Which.pm	203	308	
==>use File::Spec;

my $Is_VMS    = ($^O eq 'VMS');
my $Is_MacOS  = ($^O eq 'MacOS');
my $Is_DOSish = (($^O e <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	305	397	
==>les/mops/mops.pasm> example program,
for speed comparisons.

Calculates a value for M ops/s ( <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	301	393	
==>les/mops/mops.pasm> example program,
for speed comparisons.

Calculates a value for M ops/s ( <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	5830	5922	
==>Bool $cond, Str $desc? is copy, $todo?, Str $got?, Str $expected?, $depends?, $negate?) retur <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749226	749552	
==>> ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 844,
                  "ARGS" => [
                              "p",
                              "nc <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3132	3232	
==>pm

package Parrot::PMC;

use strict;
use warnings;

use vars qw(@ISA %pmc_types @EXPORT_OK);

@ISA = <==
3	/Users/nnunley/parrot/lib/Parrot/PMC.pm	76	176	
==>pm

package Parrot::PMC;

use strict;
use warnings;

use vars qw(@ISA %pmc_types @EXPORT_OK);

@ISA = <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	3135	3264	
==>ag;
        }

        # The generated files are left in the t/* directories.
        # Let 'make clean' and 'svn:ignore' take <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2730	2855	
==>ag;
        }

        # The generated files are left in the t/* directories.
        # Let 'make clean' and 'svn:ignore' take <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5840	5932	
==>)> method is largely based on code written by Brent
Royal-Gordon C<brent@brentdax.com>.

=hea <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	60016	60125	
==>Accessing C<$@-E<gt>{error}> returns one of the error diagnostics listed
below.
Accessing C<$@-E<gt>{pos}> ret <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	10616	10715	
==>se, don't go here.
	print "Mistake"
elseif g then
	print "Also a mistake"
else 
	print "Correct"
end <==
3	/Users/nnunley/parrot/Configure.pl	3012	3108	
==>> should be one
of: C<gc>, C<libc>, C<malloc> or C<malloc-trace>. The default is C<gc>.

=back

I <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51822	52010	
==>clear_trace(interpreter, PARROT_ALL_TRACE_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52605	52793	
==>clear_trace(interpreter, PARROT_ALL_TRACE_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	741	840	
==>unless ref $self;

  $source = *STDIN{IO} unless defined $source;
  $self->set_source($source);
  $s <==
3	/Users/nnunley/parrot/config/init/hints/vms.pm	118	227	
==>oke  $

package init::hints::vms;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    $conf->data->se <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	32090	32190	
==>pcode_t * const results = PMC_cont(cc)->to_ctx->current_results;\n        if (results) {\n\t    /* ge <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	2955	3054	
==>e following part of the Makefile was built by 'config/inter/pmc.pm'

E_NOTE

    foreach my $pmc (sp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627490	627721	
==>vtable->init(interpreter, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628634	628865	
==>vtable->init(interpreter, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	279	377	
==>eir contents.

=head2 Class Methods

=over

=cut

package Parrot::IO::File;

use strict;
use warnin <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10076	10198	
==>ug & 0x10
#DBG>		and	print STDERR "**Pop state $$stack[-1][0].\n";

			pop(@$stack);
		}

			@$stack
		or	do {

#D <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9626	9739	
==>ug & 0x10
#DBG>		and	print STDERR "**Pop state $$stack[-1][0].\n";

			pop(@$stack);
		}

			@$stack
		or	do {

#D <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	42665	42778	
==>p just doing
     # a join("\n", ...) on the contents, so we have to append a
     # newline to ever line, and the <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	29852	29977	
==>print "\t\t$cmt\n";
    my $v = pop @stack;
    my $w = pop @stack;
    my $x = pop @stack;
    push @stack, $v;
    push @sta <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571185	571452	
==>isa(interpreter, {{\@2}}, class);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572140	572407	
==>isa(interpreter, {{\@2}}, class);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	4328	4466	
==>(
            "DO NOT EDIT THIS FILE",
            "Generated by " . __PACKAGE__ . " from $source"
        );

        if ($options{comment <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	1982	2093	
==>ype: $stype  User: $user Var: $var  Array: $array\n";
		if ($user and ! $array ) {
			print CODE<<SHARINGU;
	# S <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	651	748	
==>tandalone parser make the included
# text under the same copyright as the Parse::Yapp module itse <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	632	728	
==>tandalone parser make the included
# text under the same copyright as the Parse::Yapp module itse <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6675	6782	
==>f (needs_build("$pmc.dump", "$pmc.pmc")) {
        run("$PMC2C --dump $pmc.pmc")
          or die "pmc2c dum <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6886	6993	
==>f (needs_build("$pmc.dump", "$pmc.pmc")) {
        run("$PMC2C --dump $pmc.pmc")
          or die "pmc2c dum <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15406	15505	
==>@_ == 1) ? $_[0] : join '', @_)
    ) =~ s/([F\x00-\x1F\-\\\{\}\x7F-\xFF])/$Escape{$1}/g;  # ESCAPER <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1626	1725	
==>e!")
    unless UNIVERSAL::isa($type, "Jako::Construct::Type");

  my $type_name = $type->name;

  $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1474	1573	
==>e!")
    unless UNIVERSAL::isa($type, "Jako::Construct::Type");

  my $type_name = $type->name;

  $ <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9544	9629	
==>fa3f8,/* 30 */
GG,$c,$d,$a,$b,$_[11],14,0x676f02d9,/* 31 */
GG,$b,$c,$d,$a,$_[16],20,0 <==
3	/Users/nnunley/parrot/config/auto/headers.pm	922	1050	
==>ta->set($mapping{$_} || $_ => $Config{$_});
    }

    # some headers may not be probed-for by perl 5, or might not be
    # prop <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3436	3542	
==>$string, 1, -1); # Without the surrounding double quotes.

      $handler->start_element({ Name => 'concat' <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	16347	16448	
==>r$file: $!";
  print "Reading $file...\n";
  while(<IN>) {
    if(m/<!ENTITY\s+(\S+)\s+"&#([^;]+);">/) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365301	365421	
==>terpreter, {{\@1}}, {{\@2}});\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366141	366261	
==>terpreter, {{\@1}}, {{\@2}});\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	5193	5303	
==>y_range($op, $R, $min, $max, @rest);
        } else {
            return $self->rewrite_nongreedy_range($op, $R <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6640	6744	
==>up $n!;
}

sub output_atend {
    my ($self, $failLabel) = @_;
    my $fail = $self->output_label_use($fa <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6284	6388	
==>up $n!;
}

sub output_atend {
    my ($self, $failLabel) = @_;
    my $fail = $self->output_label_use($fa <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1346	1457	
==>the consequences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $self->set_result(' <==
3	/Users/nnunley/parrot/config/inter/make.pm	1167	1278	
==>the consequences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $self->set_result(' <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1343	1454	
==>the consequences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $self->set_result(' <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	5347	5477	
==>"a_$name = $convert(a_$name)")
            if $convert;
        
        # default value, if necessary
        if (defined $arg->{d <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35322	35430	
==>"name"} .'})
						if defined $::RD_TRACE;').'
		' . ($::RD_NO_HITEM ? ''
		     : '$item{q{' . $self->{subru <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115462	115787	
==>}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116317	116642	
==>}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  " <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	24707	24827	
==>gen_errata();
        if(@extras) {
          unshift @$paras, @extras;
          DEBUG and print "Generated errata... re <==
3	/Users/nnunley/parrot/config/init/hints.pm	1079	1194	
==>($@) {
        $hints->runstep($conf, @_) if $hints->can('runstep');
        $hints_used++;
    }

    if ($hints_us <==
3	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	940	1038	
==>s->($smoke) || $smoke;
  debug "ok.\n";
}

{
  debug "Sending data to smokeserver \"$smokeserv\"... <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956948	957157	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957852	958061	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	38156	38308	
==>get'}) is a resolver\n";
              $para->[0] = 'Para';
              $para_type = 'Plain';
            } else {
              DEBUG and print "Treat <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	3096	3362	
==>values{$2};
                        $last_val = $values{$2};
                    } else {
                        $_        = "$prefix$1\t$2";
                        $last_val = $2;
                    }
                    $values{$1} = $2;
                    eval <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	17	121	
==>use strict;

my @results = ();
while (<>) {
	if (/^Translated (\d+) types out of (\d+) from .+?([\.\w <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	17	121	
==>use strict;

my @results = ();
while (<>) {
	if (/^Translated (\d+) types out of (\d+) from .+?([\.\w <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	920	1057	
==>pen '$lang_f'"; # JMG
        binmode LANG; # JMG
        print LANG $lang_code; # JMG
        close LANG; # JMG

        Parrot::Test::ru <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	832	969	
==>pen '$lang_f'"; # JMG
        binmode LANG; # JMG
        print LANG $lang_code; # JMG
        close LANG; # JMG

        Parrot::Test::ru <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	66585	66689	
==>additem($item)
						      or  _no_rule("repetition",$line,"$code$argcode(..$1)");

						!$matchrule and <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63883	64107	
==>f(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARR <==
3	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	567	683	
==>my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }
    if ($li <==
3	/Users/nnunley/parrot/config/init/hints/solaris.pm	269	385	
==>my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }
    if ($li <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13153	13267	
==>rrently 'inside' a block, then we've got no business
      # seeing a close-brace.
      #

      $self->SYNTAX_ERR <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1376	1472	
==>t>, L<Pod::Spell>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All right <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	16998	17092	
==>en>), or undef if the parser-stream has hit
the end of the document.

=item $parser->unget_toke <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	16971	17079	
==>)
		{
			_failmsg qq{Did not find closing delimiter to match '$initial' at "} .
				     substr($$textref, $o <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	2389	2486	
==>he API is not meant to be public, considering making it private
(file static, and prefix it with C <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36022	36138	
==>->{'PARAMS'} = 'c_params';
        push @localmv, 'PARAMS';

        # If we don't have an ARG0, we'll fake it out. T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653483	653587	
==>\@1}}))\n        real_exception(interpreter, resume, METH_NOT_FOUND,\n            \"Method '%s' not found <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654644	654748	
==>\@1}}))\n        real_exception(interpreter, resume, METH_NOT_FOUND,\n            \"Method '%s' not found <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62439	62607	
==>GS" => [
                              "ic"
                            ],
                  "BODY" => "#line 951 \"src/ops/core.ops\"\n  PARROT_ERRORS_on(interpreter, { <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	19562	19693	
==>ct/member template builder
    #   12mar95
    #   Dean Roehrich
    #
    # changes/bugs fixed since 28nov94 version:
    #  - podi <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	16935	17035	
==>self->new_local("counter");
    my ($N, @N_ops) = $sizer->($self, $op);
    my ($R_back, @R_ops) = $c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610106	610306	
==>"p",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 478 \"src/ops/object.ops\"\n    {{\@1}} = VTABLE_get_attr_st <==
3	/Users/nnunley/parrot/lib/Test/More.pm	945	1085	
==>shift;
      my $level = shift;
      (undef) = shift;                  # redundant arg
      my $callpkg = caller($level);
      $pkg->expor <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	41465	41564	
==>y
C<gen_extract_tagged>, is that those generated subroutines:

=over 4

=item * 

do not have to rep <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60655	60875	
==>f(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61305	61525	
==>f(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63237	63457	
==>f(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	35716	35834	
==>qrt'             => \&_op_sqrt,
  'expt'             => \&_op_expt,
  'make-rectangular' => \&_op_make_rectangular,
  ' <==
3	/Users/nnunley/parrot/tools/dev/pbc_header.pl	1471	1587	
==>ad = finger_print
	print F $fp;
	close F;
    }
}

sub pbc_info {
    for my $f (@ARGV) {
	open F, "<$f" or die "Can' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	2230	2340	
==>_increment {
    my ($self, $var, $amount) = @_;
    $amount = 1 if ! defined($amount);
    return "add $var, $ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30759	30856	
==>$post_load = $srm->post_load($need_dest);
		$pir .= "### post_load\n";
		$pir .= sub_meta($post_lo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5105	5220	
==>ift;
  my ($handler) = @_;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3168	3283	
==>ift;
  my ($handler) = @_;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	10078	10184	
==>_functions {
    my $package = 'Parrot::Test';

    my $path_to_parrot = path_to_parrot();
    my $parrot = <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	9815	9929	
==>ntee
        # and follow_min to all children. (Which is reasonable, since
        # everything but seq tries to ma <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2762	2862	
==>SHARING
		} 
	}
}

my $inputcounts=0;
sub input_read_assign {
	my($prompt,$filedesc,$noreloop)=@_;
	m <==
3	/Users/nnunley/parrot/config/auto/alignptrs.pm	1128	1241	
==>ally test by compiling some code
        cc_gen('config/auto/alignptrs/test_c.in');
        cc_build();
        fo <==
3	/Users/nnunley/parrot/languages/scheme/Scheme.pm	200	302	
==>erator();
use Scheme::Builtins;

=head1 SUBROUTINES

=head2 new

A constructor

=cut

sub new {
  my ($ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37466	37557	
==>ame:
type_trans = pop stypes
dec pop_count
INS_TRANS_CP_LOOP_CHK_$name:
if pop_count != 0 go <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829455	829657	
==>S" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 159 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	7415	7539	
==>ibutes => {
        type => $arg_type_name,
        name => $arg_name
      }
    });
    $handler->end_element({ Name => 'ar <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	6702	6791	
==>arching of installed libraries.
# (see Parrot_get_runtime_prefix in src/library.c).
$ENV{P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	329742	330051	
==>=> ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 387,
                  "ARGS" => [
                              "n"
                            ],
                  "B <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26076	26182	
==>turn $return;
}

sub _op_times {
  my ($self,$node) = @_;
  my $return;
  my $num_children = defined $node- <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	19314	19456	
==>th};
        my $meth_name;
        my $defaulted = 0;
        my $class = '';
        if ($self->implements($meth)) {
            $meth_name = <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	5611	5711	
==>dea (unfortunately,
he wasn't in Tony's kitchen).  This is it.


=head1 SEE ALSO

=over 4

=item L<Te <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	306971	307210	
==>nction",
                  "CODE" => 357,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 1031 \"src/ops/cmp.ops\"\n  if ( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	11368	11472	
==>>text, "\" to head1-content.\n";
        $head1_text_content .= $token->text;
      } elsif( $token->is_e <==
3	/Users/nnunley/parrot/config/inter/progs.pm	1444	1542	
==>ENTER to accept them.  If you don't understand a question, the
    default will usually work--they' <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7597	7755	
==>ent$2\" because it is inside of " . (join ' > ', @stack) . ")\n")
            }

            pop @stack;

            next;
        }

        next unless @sta <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14800	14904	
==>op_car {
  my ($self, $node) = @_;

  _num_arg ($node, 1, 'car');

  my $return = $self->_generate (_get_ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	28691	28787	
==>push @{$code{$seg}->{code}}, qq{\t.param $t $_\n};
			push @{$code{$seg}->{args}}, $_;
		} else { <==
3	/Users/nnunley/parrot/languages/pugs/t/pmc.pm	517	627	
==>ned $P1 
    if $I0 goto ok
    print "not "
ok:
    print "ok\n"
.end
CODE
ok
OUTPUT

main::pir_output_is(<< " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632575	632673	
==>erpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633617	633715	
==>erpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305070	305224	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if_null",
                  "FLAGS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305858	306012	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if_null",
                  "FLAGS" => <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	369	461	
==>irst lists the Parrot public embedding API as described in the public
headers F<include/parro <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17094	17198	
==>shift @$paras;
    $para_type = $para->[0];

    DEBUG > 1 and print "Pondering a $para_type paragraph, g <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2469	2588	
==>}

sub YYErrok {
	my($self)=shift;

	${$$self{ERRST}}=0;
    undef;
}

sub YYNberr {
	my($self)=shift;

	${$ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2369	2476	
==>}

sub YYErrok {
	my($self)=shift;

	${$$self{ERRST}}=0;
    undef;
}

sub YYNberr {
	my($self)=shift;

	${$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	30844	30942	
==>\n\n    if (PMC_cont(ccont)->address) {\n\t/* else its from runops_fromc */\n\tparrot_context_t * c <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3180	3290	
==>et(link => $conf->data->get('ld'));

        # We can't use -opt: and -debug together.
        if ($conf->data- <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4684	4794	
==>et(link => $conf->data->get('ld'));

        # We can't use -opt: and -debug together.
        if ($conf->data- <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	19752	19855	
==>,"",$rdel1)
		|| do { pos $$textref = $startpos; return };
	}
	else
	{
		$$textref =~ /$ldel1[^\\$ldel1] <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	27979	28093	
==>$curr_open->[-1][0] eq '=over') {
        DEBUG > 1 and print "=back happily closes matching =over\n";
        # Ex <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822283	822376	
==>l_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_INT) {\n    in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823351	823444	
==>l_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_INT) {\n    in <==
3	/Users/nnunley/parrot/config/inter/lex.pm	305	406	
==>use strict;

use vars qw( $description @args $prompt $util );

use base qw(Parrot::Configure::Step::Ba <==
3	/Users/nnunley/parrot/config/inter/make.pm	299	400	
==>use strict;

use vars qw( $description @args $prompt $util );

use base qw(Parrot::Configure::Step::Ba <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3365	3457	
==>mpAsXML>

The older libraries L<Pod::PXML>, L<Pod::XML>, L<Pod::SAX>


=head1 COPYRIGHT AND D <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3017	3109	
==>mpAsXML>

The older libraries L<Pod::PXML>, L<Pod::XML>, L<Pod::SAX>


=head1 COPYRIGHT AND D <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1248	1334	
==>ef opcode_t* (*interface_f)(Interp*, INTVAL*, void **);\n\n\n\n/*\n** pmc.ops\n*/\n\n\n <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	8778	8904	
==>agraph\n";
        push @{$paras->[-1]}, $line;
      } else {
        # Unexpected case!
        die "Continuing a paragraph b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53260	53363	
==>n  if ({{\@1}} != 0) { Interp_flags_SET(interpreter,   PARROT_GC_DEBUG_FLAG); }\n  else         { Interp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54016	54119	
==>n  if ({{\@1}} != 0) { Interp_flags_SET(interpreter,   PARROT_GC_DEBUG_FLAG); }\n  else         { Interp <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	1365	1475	
==>qw(%OUTPUT);
sub gather {
    foreach (keys %Regex::Generate::) {
	next unless /^output_(\w+)$/;
	$OUTPUT{$1} = <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1659	1757	
==>ns);
    $cgen->init_context($ctx);
    return $cgen->output($list_regex->{code}, $ctx);
}

sub com <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20524	20616	
==>lot$()
	shared poit() as struct
	thing$="Whoa"
	bar(5)=66666
	lot$(2)="Goodbye"
	narf.first=9 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940832	941219	
==>",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1058,
                  "ARGS" => [
                              "p",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 4 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352179	352347	
==>=> [
                              "n"
                            ],
                  "BODY" => "#line 195 \"src/ops/io.ops\"\n  PIO_printf(interpreter, \"%f\", (doubl <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11775	11875	
==>own vtable method '$method'\n"
      unless defined $super_table->{$method};
    my $supermethod = "P <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	6904	7032	
==>print "Linearized ", scalar(@to_unget),
           " tokens as \"$name\".\n";
        } else {
          print $fh "<a\n>";  # Ye <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	362	464	
==>CSwitch | CPrederef

For example:

    % perl tools/build/ops2c.pl C --core

    % perl tools/build/ops <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3897	3996	
==>clone',[$to,$from]);
    } elsif ($from =~ /I/) {
      $self->_add_inst ('', 'new',[$to,'.Integer'] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477669	477907	
==>"TYPE" => "inline",
                  "CODE" => 547,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 428 \"src/ops/math.o <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1201	1308	
==>_to_language;
        if ($dir_count == 0) {
          $path_to_language = File::Spec->join('languages', $la <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1686	1793	
==>_to_language;
        if ($dir_count == 0) {
          $path_to_language = File::Spec->join('languages', $la <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	7417	7533	
==>m_one, item_two
    .local int pos_one
    .local int not_found

    not_found = op1
    inc not_found

    .local pm <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	22661	22776	
==>cM\cJ/\n/g;
            my $source_f = per_test('.c', $test_no);
            my $obj_f = per_test($PConfig{o}, $test <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9578	9676	
==>nt {$self->{'output_fh'}} "\n<!-- end doc -->\n</body></html>\n";
   # TODO: allow for a footer
  r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084860	1085202	
==>experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085913	1086255	
==>experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086966	1087308	
==>experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice" <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	8746	8852	
==>al;
    Parrot_convert_arg(interpreter, st);
    Parrot_store_arg(interpreter, st);
}

static void
set_nci_ <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	8987	9093	
==>al;
    Parrot_convert_arg(interpreter, st);
    Parrot_store_arg(interpreter, st);
}

static void
set_nci_ <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	9227	9333	
==>al;
    Parrot_convert_arg(interpreter, st);
    Parrot_store_arg(interpreter, st);
}

static void
set_nci_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7436	7612	
==>urn undef unless $self->block;

  return $self->block->find_block($kind, $label);
}


###############################################################################

=head2 BLO <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	309	396	
==>}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub _han <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	565	652	
==>}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub _han <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	728256	728406	
==>"
                            ],
                  "BODY" => "#line 57 \"src/ops/set.ops\"\n   PMC * const temp = {{\@1}};\n   {{\@1}} = {{\@2}};\n   { <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	340	450	
==>TRUCTOR:
#

sub new
{
  my $class = shift;

  confess "Expected 10 args" unless @_ == 10;

  my ($block, $scope <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	5025	5124	
==>for MANIFEST.SKIP.

=cut

sub gen_manifest_skip {

   # manicheck.pl is probably only useful for che <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	4905	5033	
==>alue = shift iter
    bsr print_value
    unless iter goto iter_end
    value_type = typeof value
    if value_type != 'String' g <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	1833	1926	
==>eturns the page footer.

C<$navigation> is currently unused.

C<$resources> should be the rela <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2200	2286	
==>mGunzip($CGI->param("smoke")) ||
    Compress::Bzip2::memBunzip($CGI->param("smoke")) | <==
3	/Users/nnunley/parrot/config/gen/platform.pm	656	756	
==>latform = lc $OSNAME;

    $platform = "ansi"  if defined($conf->options->get('miniparrot'));
    $pl <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2409	2507	
==>e'll emit a label for every single instruction. While we kinda find
	# basic blocks, we don't disco <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	987	1085	
==>e'll emit a label for every single instruction. While we kinda find
	# basic blocks, we don't disco <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599583	599865	
==>",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 679,
                  " <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29158	29268	
==>lookahead"   => $_[2],
		"line"        => $_[3],
		"description" => "'$desc'",
	}, $class;
}


sub code($$$$)
{ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31260	31365	
==>lookahead" => $_[2],
		"line"      => $_[3],
		"description" => "'$desc'",
	}, $class;
}

sub code($$$$)
{ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7582	7692	
==>e operation hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If the desti <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5700	5810	
==>e operation hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If the desti <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4542	4652	
==>e operation hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If the desti <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	14846	14974	
==>ram pmc op2
END_PREAMBLE

        if ($type1 eq "Float" && $type2 eq "Float") {
          # scalar to scalar..
            $templ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26656	26781	
==>_;
    my @opcodes    = ();
    my $l_continue = new_label($parser);
    my $l_break    = new_label($parser);
    push @op <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27541	27666	
==>_;
    my @opcodes    = ();
    my $l_continue = new_label($parser);
    my $l_break    = new_label($parser);
    push @op <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7987	8085	
==>_MOVE

# No lazy move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}[ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8844	8942	
==>_MOVE

# No lazy move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}[ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	7096	7197	
==>ed on Linux and Win2k )
# An alternative is using Test::Output
sub run_command {
    my ($command, %op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054455	1054553	
==>d to get null global.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global_p(interpreter, {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055582	1055680	
==>d to get null global.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global_p(interpreter, {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598200	598463	
==>lse\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599247	599510	
==>lse\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600322	600585	
==>lse\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	5908	6054	
==>\$temp_cnt, \@temps,
                                \@extra_preamble, \@extra_postamble);
            $sig .= $sig_char{$_};
            $_ eq 'J' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722819	723192	
==>io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 810,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39000	39108	
==>'input-port?'           => \&_op_input_port_p,
  'output-port?'          => \&_op_output_port_p,
  'current-i <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11403	11512	
==>utput_rule_pass {
    my ($self, $name) = @_;
    return ($self->output_match_succeeded(),
            ".retur <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51690	51781	
==>ODY" => "#line 815 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_trace(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52473	52564	
==>ODY" => "#line 815 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_trace(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1454	1556	
==>{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/gets the transform's arguments.

=cut

sub a <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1063	1165	
==>{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/gets the transform's arguments.

=cut

sub a <==
3	/Users/nnunley/parrot/config/auto/gc.pm	512	605	
==>src/res_lea.c>.

=item C<malloc-trace>

Use the malloc in F<src/res_lea.c> with tracing enable <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350998	351187	
==>interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351660	351849	
==>interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/config/auto/inline.pm	717	852	
==>_gen('config/auto/inline/test_1.in');
        eval { cc_build(); };
        if (!$@) {
            $test = cc_run();
            chomp $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	1191	1329	
==>my $self = shift;

  if (@_) {
    $self->{TOKENS} = [ @_ ];
  }
  else {
    return @{$self->{TOKENS}};
  }
}


#
# token_count()
#
# Retu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	327	432	
==>uct::Expression::Call;

use Carp;

use base qw(Jako::Construct::Expression);

sub new
{
  my $class = shif <==
3	/Users/nnunley/parrot/config/init/hints/solaris.pm	91	185	
==>3 2006-05-30T02:28:15.110975Z coke  $

package init::hints::solaris;

use strict;

use Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121472	121738	
==>"JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122383	122649	
==>"JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
3	/Users/nnunley/parrot/lib/File/Which.pm	1358	1480	
==>ias (@aliases) {
            # This has not been tested!!
            # PPT which says MPW-Perl cannot resolve `Alias $alia <==
3	/Users/nnunley/parrot/config/gen/platform.pm	1493	1594	
==>ude/parrot/platform.h"
        or die "Can't open include/parrot/platform.h: $!";

    print PLATFORM_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	2991	3084	
==>, \%attributes, I<...subnodes...> ]>.
See the example tree dump in the Synopsis, above.

Every <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030194	1030477	
==>" => "sleep",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1152,
                  "ARGS" => [
                              " <==
3	/Users/nnunley/parrot/examples/benchmarks/primes2.pl	36	167	
==>i6 = 0;
my $i7;

while (1) {
    if (&isprime1($i)) {
	$i7 = $i;
	$i6++;
    }
    $i++;
    if ($i==$max){
	last;
    }
}
printf("N <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/EditorPlugins.pm	573	673	
==>cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new(
		'Editor Plugins', 'editor.html', '', <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33375	33525	
==>xpr->[1] };
        push @opcodes3, new AssignOp( $parser,
            'result' => $var,
            'arg1'   => $expr->[0],
        );
        $e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088887	1088981	
==>ps\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089835	1089929	
==>ps\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	410724	411012	
==>],
                  "TYPE" => "function",
                  "CODE" => 474,
                  "ARGS" => [
                              "i",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 552 \"src/ops <==
3	/Users/nnunley/parrot/config/init/hints/freebsd.pm	996	1105	
==>)',
        libparrot_shared_alias  => 'libparrot$(SHARE_EXT)',
        libparrot_soname        => '-Wl,-sonam <==
3	/Users/nnunley/parrot/config/init/hints/linux.pm	1834	1943	
==>)',
        libparrot_shared_alias  => 'libparrot$(SHARE_EXT)',
        libparrot_soname        => '-Wl,-sonam <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	20669	20825	
==>ult' => [$result],
            'arg1'   => 'len',
            'arg2'   => [ $expr->[0] ],
        );
    }
    else {
        push @opcodes, new UnaryO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57866	57974	
==>74 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo_s(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58628	58736	
==>74 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo_s(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "L <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7248	7352	
==>r indenting for \"$_\"\n(should be \"#$indent$2\" because it is inside of " . (join ' > ', @stack) . ")\n <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7555	7659	
==>r indenting for \"$_\"\n(should be \"#$indent$2\" because it is inside of " . (join ' > ', @stack) . ")\n <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7913	8017	
==>r indenting for \"$_\"\n(should be \"#$indent$2\" because it is inside of " . (join ' > ', @stack) . ")\n <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	16	109	
==>age Pod::Simple::DumpAsXML;
$VERSION = '2.02';
use Pod::Simple ();
BEGIN {@ISA = ('Pod::Simple <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	36780	36872	
==>_p,
  'char-numeric?'    => \&_op_char_numeric_p,
  'char-whitespace?' => \&_op_char_whitespa <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7120	7232	
==>ode,@sempar,$semval);
            ($lhs,$len,$code)=@{$$rules[-$act]};

#DBG>			$debug & 0x04
#DBG>		and	$act <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6789	6897	
==>ode,@sempar,$semval);
            ($lhs,$len,$code)=@{$$rules[-$act]};

#DBG>			$debug & 0x04
#DBG>		and	$act <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2513	2679	
==>=> 'blib\\lib',
            ccflags              => $ccflags,
            ccwarn               => '',
            has_dynamic_linking  => 1,
            parrot_is_shar <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	621	721	
==>ix = $self->prefix;
  }
  else {
    $prefix = $self->peer ? $peer->prefix : $compiler->block_label($ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	601	701	
==>ix = $self->prefix;
  }
  else {
    $prefix = $self->peer ? $peer->prefix : $compiler->block_label($ <==
3	/Users/nnunley/parrot/config/auto/format.pm	643	761	
==>= $conf->data->get(
        qw(iv nv floatsize doublesize hugefloatvalsize)
    );

    if ($iv eq "int") {
        $iv <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3163	3256	
==>middle if $self->bare_output;
  return
   $self->do_beginning && $self->do_middle && $self->do <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4532	4625	
==>middle if $self->bare_output;
  return
   $self->do_beginning && $self->do_middle && $self->do <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	17388	17501	
==>ub get_super_mmds {
    my ($self, $meth, $right, $func) = @_;
    ## use Data::Dumper;
    ## printf "******* $me <==
3	/Users/nnunley/parrot/config/init/hints.pm	258	355	
==>aults set up in
F<config/init/default.pm>.

=cut

package init::hints;

use strict;
use vars qw($d <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	61589	61685	
==>a closing quote to match it.

=item C<Did not find closing delimiter to match '%s'>

C<extract_qu <==
3	/Users/nnunley/parrot/config/init/manifest.pm	551	651	
==>($self, $conf) = @_;

    if ($conf->options->get('nomanicheck')) {
        $self->set_result('skippe <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	50097	50193	
==>lock marker", $aftererror,$line);
				$item = new Parse::RecDescent::Directive(
					'Text::Balan <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	48234	48330	
==>d.

To prevent <extract_quotelike> from mucking about with the input in this way
(this is the onl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722457	722732	
==>, s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723486	723761	
==>, s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724530	724805	
==>, s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7701	7831	
==>{
        $err = "&STDOUT";
    }

    local *OLDOUT if $out;
    local *OLDERR if $err;

    # Save the old filehandles; we must n <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	7650	7780	
==>{
        $err = "&STDOUT";
    }

    local *OLDOUT if $out;
    local *OLDERR if $err;

    # Save the old filehandles; we must n <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	32704	32817	
==>1 if $sub =~ /^\(eval\)/;
    }
    $Test->{Test_Died} = 1 unless $in_eval;
};

sub _ending {
    my $self = shift <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	13429	13539	
==>, $c, $cmt) = @_;
    my $tos = pop @stack;
    print <<"EOC";
	print_item $tos->[1] $cmt
EOC
}

sub PRINT_NEWL <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	6881	6975	
==>.h"
#define JIT_EMIT $jit_emit_n

/* Disable "truncation from 'const int' to 'char'" warning. * <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18752	18970	
==>5,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 314 \"src/ops/core.ops\"\n  if ({{\@1}}->vtable->g <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36563	36708	
==>=> -66
	},
	{#State 141
		ACTIONS => {
			"-" => 72,
			"%" => 76,
			"*" => 80,
			".." => 71,
			"+" => 75,
			"^" => 79,
			"/" => 82 <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	4529	4626	
==>+))([eE][-+]?\d+)?$/) {
      $self->_add_inst ('', 'new',[$return,'.Float']);
      $self->_add_i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732201	732455	
==>n  {{\@1}} = (INTVAL)({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732947	733201	
==>n  {{\@1}} = (INTVAL)({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	1451	1552	
==>int', '")"'],
  ['write_RET',    'returncc'],
 ],
 apply => 
 [['# Apply function'],
  ['apply_ENTRY', <==
3	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	323	440	
==>0000 elements each.

=cut

foreach (1..10) {
    my @arr;
    foreach (1..10) {
	$arr[$_] = buildarray();
    }

    m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9043	9144	
==>>resume_offset = fe->offset;\n        Parrot_switch_to_cs(interpreter, fe->seg, 1);\n    }\n    string <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10159	10260	
==>>resume_offset = fe->offset;\n        Parrot_switch_to_cs(interpreter, fe->seg, 1);\n    }\n    string <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	2579	2676	
==>ameter being the class name of the step register.  All other
parameters are saved and passed to th <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499458	499550	
==>"BODY" => "#line 600 \"src/ops/math.ops\"\n  {{\@1}} = floatval_mod({{\@1}}, {{\@2}});\n  {{+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500221	500313	
==>"BODY" => "#line 600 \"src/ops/math.ops\"\n  {{\@1}} = floatval_mod({{\@1}}, {{\@2}});\n  {{+ <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	5863	6021	
==>ra => '/au',
            slash    => '\\',
            blib_dir => 'blib\\lib',
            make_and => "\n\t",
        );
    } elsif ($is_mingw) {
        my <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	137	236	
==>RS);
$VERSION = '2.02';
BEGIN {
  @ISA = ('Pod::Simple');
  *DEBUG = \&Pod::Simple::DEBUG unless def <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	138	237	
==>RS);
$VERSION = '2.02';
BEGIN {
  @ISA = ('Pod::Simple');
  *DEBUG = \&Pod::Simple::DEBUG unless def <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	12750	12884	
==>ame=smokes>
          <tr>
            <td class="indent2">Parrot&nbsp;<tmpl_var name=VERSION></td>
            <td>
              <tmp <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	17635	17733	
==>lumn'}{'from'} = $thiscolumn;
	}
}

sub postitempos
{
	return q
	{
		$itempos[$#itempos]{'offset'}{ <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	6285	6412	
==>") : inline("\\n");
    
    return $pir;
}

sub body {
    my ($file, @args) = @_;
    
    my %args = map { $_->{name} => $_ } <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	1686	1791	
==>mokes();

  print "ok";
}

sub validate_params {
  my $CGI = shift;

  if(not $CGI->param("version") or $C <==
3	/Users/nnunley/parrot/lib/Test/More.pm	1332	1436	
==>_ok( 'Some::Module' ); }
  require_ok( 'Some::Module' );

  # Various ways to say "ok"
  ok($this eq $tha <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	157	268	
==>t as a number


use Test::Builder;
my $Test = Test::Builder->new;

sub import {
    my $self = shift;
    my $ca <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11205	11306	
==>NOPSIS

  use Pod::Escapes qw(e2char);
  ...la la la, parsing POD, la la la...
  $text = e2char($e_nod <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	1876	1970	
==>onfiguration.pod')
		),
		$self->new_group('Library', '',
		    $self->new_item('PASM/IMC acces <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	27944	28102	
==>ot more detail.

    $tests[$test_num - 1] = 
            { 'ok'       => is the test considered a pass?
              actual_ok  => did it literally say 'ok'? <==
3	/Users/nnunley/parrot/config/init/defaults.pm	3067	3192	
==>or GNU ld.
        ld_load_flags     => $Config{lddlflags},

        libs => $Config{libs},

        cc_inc     => "-I./includ <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	83	178	
==>.pm 19593 2006-05-30T02:28:15.110975Z coke  $

package init::hints::mswin32;

use strict;

sub r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117960	118250	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":bas <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118699	118989	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":bas <==
3	/Users/nnunley/parrot/languages/regex/test.pl	2858	3006	
==>PUT section" if ! defined($output);

    # Gather output
    while (<SPEC>) {
        last if /^INPUT:/;
        $output .= $_;
    }

    $status && <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	45820	45937	
==>on is such a vexing
       # problem anyway, that most Pod renderers just don't render it
       # at all.  But if you <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7848	7948	
==>"
i%=0
if i% then print "Should not happen (int)"
i%=54
if i% then print "This is true" else print "O <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14835	14935	
==>"
i%=0
if i% then print "Should not happen (int)"
i%=54
if i% then print "This is true" else print "O <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854867	855034	
==>",
                              "s"
                            ],
                  "BODY" => "#line 105 \"src/ops/string.ops\"\n  {{\@1}} = string_concat(interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855756	855923	
==>",
                              "s"
                            ],
                  "BODY" => "#line 105 \"src/ops/string.ops\"\n  {{\@1}} = string_concat(interpreter <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3542	3635	
==>my($result, $type, @code)=EXPRESSION({ stuff => "\$X99", choose => 1 });
		push @{$code{$seg}- <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	4017	4127	
==>q 'solaris'      && $nm_try =~ /Solaris/) {
    $nm_opt = '-p';
} elsif ($^O eq 'hpux'    && $nm_try =~ /linker <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	80	183	
==>322Z bernhard  $

package Regex::Driver;
use strict;

sub new {
    my ($class, $language, %options) = @ <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	1004	1115	
==>) =~ /sun4|sparc64/) {

        # CFLAGS entries must be left-aligned.
        print CFLAGS <<"EOF";
src/jit_cpu <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	12060	12163	
==>ing_second_level {
  # By time this is called, the encoding (if well formed) will already
  #  have been <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	40703	40795	
==>xt) are C<undef>.

In a scalar context, C<extract_tagged> returns just the complete
substring <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522244	522362	
==>"BODY" => "#line 744 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523099	523217	
==>"BODY" => "#line 744 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523954	524072	
==>"BODY" => "#line 744 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2622	2734	
==>f);

  return $self;
}

# block handled by superclass?

sub kind  { return shift->{KIND};     }
sub type  { retur <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2739	2845	
==>f);

  return $self;
}

# block handled by superclass?

sub kind { return shift->{KIND}; }
sub type { retur <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099990	1100257	
==>inline",
                  "CODE" => 1219,
                  "ARGS" => [
                              "n",
                              "nc",
                              "i"
                            ],
                  "BODY" => "#line 296 \"src/ops/experiment <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11351	11447	
==>nt "Unknown E sequence \"", $e_node->label, "\"!";
  }
  ...else print/interpolate $text...

=hea <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	10016	10111	
==>are
added to Pugs, new test functions will be defined to facilitate the
testing of those feature <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199990	200109	
==>,
                  "BODY" => "#line 373 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200887	201006	
==>,
                  "BODY" => "#line 373 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201784	201903	
==>,
                  "BODY" => "#line 373 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4408	4502	
==>set $result, 1.0
EQ_$eqnum: noop
CODE
	},
	'or' => sub {
		my($a1,$a2,$result,$op,$ot1,$ot2)=@_ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9172	9276	
==>1,1)
RO=1
IF A(RO,5)=0 THEN GOSUB 20: REM GOO
   end
20 print "Correct"
   return

' Expect Hello A World <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8135	8236	
==>.end

.sub unicode:"dyadic:\u2373" :multi(APLVector, Float) # index of
    .param pmc op1
    .param f <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29199	29298	
==>s_method}{$meth};
    return $self->{vtable}{methods}[$n]{mmd} =~ /MMD/ ? 0 : 1;
}

=back

=head1 SU <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	56656	56835	
==>unblessed):

        @fields = extract_multiple($text,
                   [
                        { Delim => sub { extract_delimited($_[0],q{'"}) } },
                        { B <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	3398	3499	
==>der versions will work but obviously not sorted
{
    my $dd_version;
    if ($Data::Dumper::VERSION = <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5143	5260	
==>hile (@$incexc) {
        my $first = shift(@$incexc);
        my $last = shift(@$incexc);
        if (defined($last)) <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4818	4935	
==>hile (@$incexc) {
        my $first = shift(@$incexc);
        my $last = shift(@$incexc);
        if (defined($last)) <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	8685	8786	
==>an("run_core_finish")) {
    print SOURCE $trans->run_core_finish($base);
}


#
# reset #line in the S <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16249	16384	
==>=> 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			"[" => 88,
			'N <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28233	28324	
==>se::RecDescent::_trace(q{<<Didn\'t match terminal>>},
						  Parse::RecDescent::_tracefirst <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32508	32599	
==>se::RecDescent::_trace(q{<<Didn\'t match terminal>>},
						  Parse::RecDescent::_tracefirst <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9744	9837	
==>irst arg.
if "${CURIC}" != "73" goto pre_call_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEMP2}
pr <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7258	7351	
==>irst arg.
if "${CURIC}" != "73" goto pre_call_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEMP2}
pr <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6222	6315	
==>irst arg.
if "${CURIC}" != "73" goto pre_call_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEMP2}
pr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341759	342213	
==>",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 400,
                  "ARGS" => [
                              "i",
                              "p",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#lin <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9120	9235	
==>$(j);
	next j
	print
next i

' Expect Correct
DIM A(1,1)
RO=1
IF A(RO,5)=0 THEN GOSUB 20: REM GOO
   end
20 print "C <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1223	1308	
==>> "X0=rotate_left((X3^(X1&(X2^X3)))+X0+X4+X6$MSK,X5)+X1$MSK;",
	GG => "X0=rotate_left( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33295	33423	
==>ara->[1]{'number'} .
              "' instead of the expected '=item $expected_value'"
            );
            $para->[1]{'num <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	31263	31361	
==>Runtime branch of "
	print JUMPLABEL
	print " not found\\n"
	_platform_shutdown()
	end
RTBE
}
sub p <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15847	15941	
==>odProcessor->new;
 $parser->set_source( $some_filehandle_object );
 $parser->run;

Or:

 my $pa <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	5441	5539	
==>o, a preamble for inclusion in C code,
    and an array of C<Parrot::Op> instances representing the <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	1934	2029	
==>zer

=head1 SYNOPSIS

  use Scheme:Tokenizer;

  my @code = Scheme::Tokenizer->new($file_name)-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334	428	
==>o, a preamble for inclusion in C code,
and an array of C<Parrot::Op> instances representing the <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	11107	11247	
==>s( $expected );

            # set up default description
            unless ( $desc ) {
               (undef, my $file, my $line) = caller( <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	16592	16732	
==>s( $expected );

            # set up default description
            unless ( $desc ) {
               (undef, my $file, my $line) = caller( <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	7019	7123	
==>k, $temp, $make_f, %pir_functions);

sub gen_code {
    $cur_func = 'test::main';
    print <<EOC;
.sub $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005631	1005924	
==>S" => [
                              "i",
                              "ic",
                              "s",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714583	714677	
==>= PIO_STDOUT(interpreter);\n  if (s && string_length(interpreter, s)) {\n    if (PIO_softspace( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715506	715600	
==>= PIO_STDOUT(interpreter);\n  if (s && string_length(interpreter, s)) {\n    if (PIO_softspace( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683435	683792	
==>[
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 767,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 522 \"src/o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407689	407955	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "connect",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408587	408853	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "connect",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176798	177049	
==>DE" => 211,
                  "ARGS" => [
                              "sc",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 240 \"src/ops/cmp.ops\"\n  if ({{\@1}} <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	32603	32727	
==>ine,
  'set!'       => \&_op_set_bang,
  'cond'       => \&_op_cond,
  'case'       => \&_op_case,
  'and'        => \&_op_an <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	1100	1210	
==>ed $kind;
 
  confess("Unrecognized identifier scope attribute '" . $scope . "'.")
    unless $scope eq 'global <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2775	2897	
==>mpiler);
      $compiler->emit("  $temp = $value");
      $args[$i] = $temp;
    }
    else {
      $args[$i] = $args[$i]-> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2475	2597	
==>mpiler);
      $compiler->emit("  $temp = $value");
      $args[$i] = $temp;
    }
    else {
      $args[$i] = $args[$i]-> <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	172	267	
==>harness for languages built on Parrot

=head1 SYNOPSIS

Tell the harness which language (and opt <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048396	1048653	
==>, NULL, {{\@2}}, next);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049320	1049577	
==>, NULL, {{\@2}}, next);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "P <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	443	600	
==>evel',
             'HAS_C99_SNPRINTF' => 1,
             'HAS_GMP' => 1,
             'HAS_READLINE' => 1,
             'HAS_SNPRINTF' => 1,
             'HA <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	59411	59505	
==>iters than escape chars are specified, the last escape char
is used for the remaining delimiter <==
3	/Users/nnunley/parrot/examples/benchmarks/stress.pl	739	825	
==>, 
F<examples/benchmarks/stress2.pasm>, 
F<examples/benchmarks/stress2.pl>, 
F<examples <==
3	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	800	886	
==>, 
F<examples/benchmarks/stress2.pasm>, 
F<examples/benchmarks/stress2.pl>, 
F<examples <==
3	/Users/nnunley/parrot/config/auto/pack.pm	1564	1703	
==>a functional packtype for $_.
               '$format' failed: $@
AARGH
        }
        if ($test) {
            unless (length $test == $ <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	5413	5548	
==>^-W(?:no-)?$w$/, @warns;
            }
            $warns = join ' ', @warns;
        }
    }

    if (defined $conf->options->get('mini <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	20142	20263	
==>That is, this if true:

  ok 1
  ok 2
  ok 3

or this if false

  ok
  ok
  ok

Most useful when you can't depend on the t <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	9914	10056	
==>.h
erfcl       math.h
erff        math.h
erfl        math.h
errno       errno.h
exit        stdlib.h
exp         math.h
exp2        math.h
exp2 <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3080	3184	
==>ate') {
    # Convert X.pmc -> X.dump and X.c and also create any lib-GROUP.c files

    generate_dump($_ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3184	3288	
==>ate') {
    # Convert X.pmc -> X.dump and X.c and also create any lib-GROUP.c files

    generate_dump($_ <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	4737	4844	
==>methods.pasm) */
EOM
    for my $entry (@{$vtable}) {
    my $uc_meth = uc $entry->[1];
    $macros .= <<"EO <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	5344	5462	
==>compiled;
    /* TODO make also a shared variant of PackFile_new */
    pf          = PackFile_new(0);

    if( !PackFi <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	710	812	
==>ags = $conf->data->get('linkflags');
    my $ccflags   = $conf->data->get('ccflags');
    if ($^O =~ /m <==
3	/Users/nnunley/parrot/config/auto/readline.pm	722	824	
==>ags = $conf->data->get('linkflags');
    my $ccflags   = $conf->data->get('ccflags');
    if ($^O =~ /m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903943	904293	
==>"i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1019,
                  "ARGS" => [
                              "s",
                              "ic",
                              "ic",
                              "sc"
                            ],
                  "BODY" => "#line 257 <==
3	/Users/nnunley/parrot/lib/File/Which.pm	3958	4054	
==>ied
as a parameter to C<which()>. Under Win32 systems, which do not have a notion of
directly exe <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	18806	18898	
==>ointer = pmc_new(interpreter, enum_class_Hash);
        VTABLE_set_pmc_keyed_int(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846719	846995	
==>}});\n  {{\@1}} = s;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847515	847791	
==>}});\n  {{\@1}} = s;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	47192	47320	
==>B', {}, "pie" ],
  #            "!"
  #       ]
  
  my($self, $para, $start_line) = @_;
  my $treelet = ['~Top', {'start_line' = <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	3814	3937	
==>t'   , 191,
 'Agrave'   , 192,
 'Aacute'   , 193,
 'Acirc'    , 194,
 'Atilde'   , 195,
 'Auml'     , 196,
 'Aring'    , 197 <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	46332	46428	
==>mn prevline prevoffset prevcolumn))
	{
		$self->{_check}{$_} =
			($grammar =~ /\$$_/) || $self-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846707	846962	
==>INTVAL){{\@2}});\n  {{\@1}} = s;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847503	847758	
==>INTVAL){{\@2}});\n  {{\@1}} = s;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	6504	6709	
==>$parser,
                    'arg1'   => $unit->[0],
                    'result' => $num_key,
                );
                $key = [ $num_key, \@opcodes3 ];
            }
            if (    sca <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17831	17933	
==>se "
print a$;b$;c$;d$;e$
next j,i

' Select-case (all positive)
t=50
select case t
case 10
	print "Wro <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1654	1759	
==>o
do its clever tricks.

=cut

sub opsarraytype 
{ 
    return 'opcode_t' 
};

=item C<core_type()>

Imple <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	632	730	
==>map { $done += $_->{'done'}; $total += $_->{'total'}; } @results;
my $percent = int(($done / $tota <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	468	566	
==>map { $done += $_->{'done'}; $total += $_->{'total'}; } @results;
my $percent = int(($done / $tota <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	6050	6160	
==>= $options{destdir}.$dest;
    if ($options{'dry-run'}) {
	print "$src -> $dest\n";
	next;
    }
    else {
	ne <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	51940	52039	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub text_content_of_treelet {  # method: $parser->text_ <==
3	/Users/nnunley/parrot/languages/m4/tools/scrutinize.pl	116	211	
==>n order to not interfere with regression testing.

=head1 TODO

Find a better name. 'perlcritic' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3862	3977	
==>ther!")
        unless $module_props{fnlib};

      $fnlib = $module_props{fnlib}->value;
    }

    my $fn = $props <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6526	6641	
==>ther!")
        unless $module_props{fnlib};

      $fnlib = $module_props{fnlib}->value;
    }

    my $fn = $props <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	9	182	
==>w
################################################################################
# Copyright (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/tools/dev/run_indent.pl 1960 <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	309	423	
==>t::More);

sub import {
    my( $class, $plan, @args ) = @_;

    Test::More->import( $plan, @args );

    __PACKAG <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	226	340	
==>t::More);

sub import {
    my( $class, $plan, @args ) = @_;

    Test::More->import( $plan, @args );

    __PACKAG <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6347	6436	
==>ANCH_switch_${CURIC}:
i = elements P_arg_0
POST_BRANCH_switch_${CURIC}_LOOP:
if i == 0 got <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4285	4374	
==>ANCH_switch_${CURIC}:
i = elements P_arg_0
POST_BRANCH_switch_${CURIC}_LOOP:
if i == 0 got <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	371652	371739	
==>O_F_LINEBUF))\n\tPIO_setlinebuf(interpreter, pio);\n    {{\@1}} = PIO_reads(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	725571	725856	
==>e",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 813,
                  "ARGS" => <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	1033	1147	
==>args);
print   badargs($cmd, @args);
print    footer();

sub open_tmt {
    my ($filename) = @_;

    local $/ = un <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	9598	9707	
==>rse_flags {
    my $c = shift;

    $$c =~ s/^(.*?^\s*)pmclass ([\w]*)//ms;
    my ($pre, $classname) = ($1, $ <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	1597	1745	
==>int "$2 " if $conf->options->get('verbose');
                $prefix = ($4 || '');
                $subst  = ($6 || '');
                $in_def = $1 <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2320	2434	
==>t::Test::write_code_to_file( $code, $lang_fn );

        # STDERR is written into same output file
        my $e <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1840	1951	
==>t::Test::write_code_to_file( $code, $lang_fn );

        # STDERR is written into same output file
        my $e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749976	750258	
==>"set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 845,
                  "A <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8559	8677	
==>GOTOS}{$lhs}.\n";

#DBG>				$debug & 0x10
#DBG>			and	$dbgerror
#DBG>			and	$$errstatus == 0
#DBG>			and	do {
#DB <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8173	8285	
==>GOTOS}{$lhs}.\n";

#DBG>				$debug & 0x10
#DBG>			and	$dbgerror
#DBG>			and	$$errstatus == 0
#DBG>			and	do {
#DB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176873	177077	
==>",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 240 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	8472	8596	
==>Unable to construct closing tag to match: $rdel",
				 pos $$textref;
			goto failed;
		}
	}
	else
	{
		$rdelspec = eval "qq{ <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	4767	4900	
==>) {
        $fail++ and last if /$regex/;
    }
    return if $fail;
    for my $index ( 0 .. $#section ) {
        my ($name, $p, $ex <==
3	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	999	1100	
==>ecreate this file after SVN
# has been told about new generated files.
# 
# Ignore the SVN directories <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3854	3954	
==>ecreate this file after SVN
# has been told about new generated files.
#
# Ignore the SVN directories <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426083	426219	
==>"
                            ],
                  "BODY" => "#line 64 \"src/ops/math.ops\"\n  mmd_dispatch_v_pi(interpreter, {{\@2}}, {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426970	427106	
==>"
                            ],
                  "BODY" => "#line 64 \"src/ops/math.ops\"\n  mmd_dispatch_v_pi(interpreter, {{\@2}}, {{ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1723	1821	
==>ra'} = "$_[1]{'number'}. "  }
sub start_item_text   { $_[0]{'Thispara'} = ''   }

sub start_over_bu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963523	963843	
==>"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1084,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 595 \"src <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953760	954043	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954550	954833	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	22580	22687	
==>c, $tree, @include);
    # initialization to prevent warnings
    %opt = map { $_ => 0 } qw(nobody nolines d <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54881	54983	
==>var($1,$self)
				      or  _no_rule($code,$line);

				$item = new Parse::RecDescent::UncondReject($lo <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23318	23416	
==>ef }
sub isterminal { 0 }
sub describe { $_[1] ? '' : $_[0]->{name} }
sub sethashname { $_[0]->{has <==
3	/Users/nnunley/parrot/config/inter/lex.pm	993	1119	
==>->set_result('skipped');
        return $self;
    }

    my $prog;

    # precedence of sources for the program:
    # default <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	990	1116	
==>->set_result('skipped');
        return $self;
    }

    my $prog;

    # precedence of sources for the program:
    # default <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	3365	3530	
==>tes
            while (my($t, $body) = each(%templates)) {
                if ($asm =~ /$t\s+/) {
                    my $tbody = $body;
                    while ($a <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	956	1043	
==>NUM(cur_opcode[i])
#define PREG(i) REG_PMC(cur_opcode[i])
#define SREG(i) REG_STR(cur_op <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1072	1159	
==>NUM(cur_opcode[i])
#define PREG(i) REG_PMC(cur_opcode[i])
#define SREG(i) REG_STR(cur_op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180583	180737	
==>,
                  "BODY" => "#line 278 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181479	181633	
==>,
                  "BODY" => "#line 278 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182375	182529	
==>,
                  "BODY" => "#line 278 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	4525	4634	
==>h[8,9],			# REMAINDER
			  @match[0,1],			# PREFIX
			);
}

sub _match_bracketed($$$$$$)	# $textref, $pre, $ld <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1452	1556	
==>ax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'op', Attributes => { <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1446	1550	
==>ax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'op', Attributes => { <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	11045	11173	
==>: pointer; }  /* hack? */

    .tests_ok       { color: #050; }
    .tests_failed   { color: #500; }
    .tests_todo     { color: <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19185	19300	
==>p('lt', [ $matchcount, $min, $local_back ]),
      $next => $self->op_save_rxlocals($op),
              );

    retu <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20775	20890	
==>p('lt', [ $matchcount, $min, $local_back ]),
      $next => $self->op_save_rxlocals($op),
              );

    retu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	250518	250758	
==>" => "inline",
                  "CODE" => 291,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 698 \"src/ops/cmp.ops\"\n  { <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1477	1585	
==>e Jako::Construct::Statement::Return;


#
# new()
#

sub new
{
  my $class = shift;

  my $root = Jako::Const <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2469	2573	
==>ic block (.bb) files.
    my $cmd = "gcov -f -b -o $dirname $src_filename";
    print "Running $cmd\n" if <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	31156	31250	
==>}, qq|\teq JUMPLABEL, "$labels{$_}", $labels{$_}\n|;
		}
	}

	push @{$code{$seg}->{code}}, <<RT <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	5330	5433	
==>$info;
}

sub describe_c_file {
    my($info,$text) = @_;
    my $comment_is_at_beginning = $text =~ /^\ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	3897	4031	
==>, 
            '',
            $self->c_pair_item('', 'runops_cores'),
            $self->c_header_item('', 'op'),
            $self->c <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7258	7374	
==>MP0}
PIR
	}

	return $pir;
}

sub post_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If the <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5080	5196	
==>MP0}
PIR
	}

	return $pir;
}

sub post_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If the <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41567	41688	
==>tem) { undef $_tok; last }' unless $self->{min}==0;

	$code .= '
		  $_tok = [ @item ];
		  last;
		} 

		unless ($repcoun <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1734	1833	
==>1]{'number'}. "  }
sub start_item_text   { $_[0]{'Thispara'} = ''   }

sub start_over_bullet  { ++$_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1302	1401	
==>1]{'number'}. "  }
sub start_item_text   { $_[0]{'Thispara'} = ''   }

sub start_over_bullet  { ++$_ <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	6091	6203	
==>e <=> classname
    # TODO mange class namespace
    print <<EOC;
	# new_pad 0
	.local pmc None
	None = new .None <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	625	721	
==>ters that at least three language
implementations need.

If you really want, you can pass a third <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	238	326	
==>:CSwitch> inherits from C<Parrot::OpTrans::CPrederef>
to provide a mixture of prederefere <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	31817	31944	
==>[1];
    $n = $name;
    $n =~ s/["]//g;
    my $mangle = qq!"py::$n"!;
    $classes{$n} = $mangle;
    print <<EOC;
	$cl = subc <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	14603	14714	
==>/;
		}
	}
	return 0;
}

sub adddirective
{
	my ( $self, $whichop, $line ) = @_;
	push @{$self->{op}},
		{ type=> <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	461	555	
==>in F<include/parrot/op.h>.

=head2 Op Type

Ops are either I<auto> or I<manual>. Manual ops are <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	61150	61276	
==>a->{_G}          = undef;
    $parser->YYData->{self}        = undef;
    $parser->YYData->{idx_tmp}     = 0;
    $parser->Y <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35823	35919	
==>nsidered failures.  If no tests were ever run Test::Builder
will throw a warning and exit with 25 <==
3	/Users/nnunley/parrot/lib/Test/More.pm	33894	33990	
==>nsidered failures.  If no tests were ever run Test::Builder
will throw a warning and exit with 25 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	12667	12771	
==>ine( $para->[1]{'start_line'},
        sprintf "Couldn't do %s: %s",
          $self->{'encoding_command_ <==
3	/Users/nnunley/parrot/config/gen/platform.pm	1018	1119	
==>tform/$platform";

    print " platform='$platform' " if $verbose;

    my $generated = $conf->data->g <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	3180	3272	
==>} unless -r $cfg{config_file};

my $ini = Config::IniFiles->new( -file => $cfg{config_file} ) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3372	3480	
==>nd } });
    $handler->start_element({ Name => 'block', Attributes => { kind => 'test' } });
    $handler->st <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	252393	252567	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_not",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947049	947144	
==>\"\n  INTVAL n = Parrot_charset_number(interpreter, {{\@2}});\n  if (n < 0)\n    real_exception( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947951	948046	
==>\"\n  INTVAL n = Parrot_charset_number(interpreter, {{\@2}});\n  if (n < 0)\n    real_exception( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126535	126643	
==>/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  INTVAL d, t;\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127670	127778	
==>/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  INTVAL d, t;\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128805	128913	
==>/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  INTVAL d, t;\n <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5056	5174	
==>sub contents_relative_to_source
{
    my $self = shift;
    my $source = shift;
    my @contents = ();
    
    foreach <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3048	3151	
==>sub contents_relative_to_source
{
	my $self = shift;
	my $source = shift;
	my @contents = ();
	
	foreach <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	557	657	
==>ons for testing the grammar engine
and Perl 6 rules.

=cut

use strict;
use warnings;

require Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1226	1351	
==>->{ARGS} = [ @_ ];
    }
    else
    {
        return $self->{ARGS};
    }
}

=item C<arg($index)>

Returns the argument at i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561807	561898	
==>\n  opcode_t *next = {{^+4}};\n  {{\@1}} = VTABLE_find_method(interpreter, {{\@2}}, {{\@3}}) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562891	562982	
==>\n  opcode_t *next = {{^+4}};\n  {{\@1}} = VTABLE_find_method(interpreter, {{\@2}}, {{\@3}}) <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1173	1290	
==>o_parrot));
        my $path_to_language;
        if ($dir_count == 0) {
          $path_to_language = File::Spec->joi <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1658	1775	
==>o_parrot));
        my $path_to_language;
        if ($dir_count == 0) {
          $path_to_language = File::Spec->joi <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	11953	12054	
==>$self->_restore($temp);
  }
  $self->_add_inst(''           ,'set',[$return,1]);
  $self->_add_inst("D <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1300	1412	
==>cified then
    # the user is responsible for the consequences.
    if (defined $prog) {
        $conf->data->set <==
3	/Users/nnunley/parrot/config/inter/make.pm	1121	1233	
==>cified then
    # the user is responsible for the consequences.
    if (defined $prog) {
        $conf->data->set <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1297	1409	
==>cified then
    # the user is responsible for the consequences.
    if (defined $prog) {
        $conf->data->set <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104115	1104204	
==>\"Class '%Ss' not found\", class);\n\t{{\@1}} = pmc_new_init(interpreter, type, {{\@3}});\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105330	1105419	
==>\"Class '%Ss' not found\", class);\n\t{{\@1}} = pmc_new_init(interpreter, type, {{\@3}});\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714762	714922	
==>eter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715685	715845	
==>eter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716630	716790	
==>eter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1987	2088	
==>->find_symbol($self->name);

  #
  # If the identifier is already defined at this lexical scope, we wa <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1734	1835	
==>->find_symbol($self->name);

  #
  # If the identifier is already defined at this lexical scope, we wa <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	731	832	
==>ift;
    
    return Parrot::Docs::Group->new(@_);
}

=item C<new($name, $text, @contents)>

Returns a <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	11249	11383	
==>~ /
        ^(?:.*\.ops")\s+
        {{\@(\d)}}->vtable->
        (\w+)
        \(interpreter,
        \s*
        {{\@(\d)}},\s*{{\@(\ <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	12119	12253	
==>~ /
        ^(?:.*\.ops")\s+
        {{\@(\d)}}->vtable->
        (\w+)
        \(interpreter,
        \s*
        {{\@(\d)}},\s*{{\@(\ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1643	1732	
==>er->YYData->{symbtab_cst};
    $parser->YYData->{symbtab_cst} = new SymbTabConst($parser) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90747	90913	
==>"
                            ],
                  "BODY" => "#line 43 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91601	91767	
==>"
                            ],
                  "BODY" => "#line 43 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	5366	5479	
==>nd eq $_ } @_;

  return $self->forth;
}


#
# REQUIRES:
#

sub require_assign        { return shift->require('ass <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	553	658	
==>t of the Parse::Yapp package available on your
# nearest CPAN
#
# Any use of this module in a standalon <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	537	639	
==>t of the Parse::Yapp package available on your
# nearest CPAN
#
# Any use of this module in a standalon <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	19864	19991	
==>i != 2 and  # non-initial
         !ref $treelet->[$i] and !ref $treelet->[$i - 1]
      ) {
        DEBUG > 3 and print "   Mer <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819634	819731	
==>ck, {{\@2}});\n\n  if (!entry) {\n    internal_exception(99, \"Stack Depth wrong\");\n  }\n  {{\@1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820594	820691	
==>ck, {{\@2}});\n\n  if (!entry) {\n    internal_exception(99, \"Stack Depth wrong\");\n  }\n  {{\@1 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	28034	28145	
==>, $a);  # Always here?
			}
		}
	}
	my $argcnt=@params;
	# The outer compiler will provide the framework for the <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	47885	47993	
==>ract_quotelike> silently
rearranges the string to an equivalent piece of Perl:

        <<'EOMSG'
        Thi <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	487	584	
==>head2 Functions

The following functions are exported:

=over 4

=cut

package Parrot::Vtable;

us <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	18194	18303	
==>roduction: ['
					  . $self->describe . ']},
					  Parse::RecDescent::_tracefirst($_[1]),
					  q{' . $rule <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11773	11871	
==>printerr " "
inc j
goto PTYPES_LOOP
PTYPES_LOOP_END:
printerr "\\n"
printerr "    LTYPES: "
i = ele <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	588	676	
==>@{$code{$seg}->{code}}, <<KEYS;
	_ARRAY_KEYS("$source","$targ")
KEYS
}
sub parse_common { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129282	129575	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TY <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130020	130313	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TY <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8101	8204	
==>er);
  while( ($name, $number) = each %Name2character_number) {
    if($] < 5.007  and  $number > 255) { <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	2066	2199	
==>tion, $mmd ];
        } else {
            die "Syntax error at $file line ".$fh->input_line_number()."\n";
        }
    }

    retur <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5736	5833	
==>$result
EQ_$eqnum: eq $result, 0.0, EQ_${eqnum}_ok
	set $result, 0.0
	branch EQ_${eqnum}_end
EQ_${ <==
3	/Users/nnunley/parrot/config/auto/memalign.pm	449	553	
==>f your C library supports memalign';

@args = qw(miniparrot verbose);

sub runstep
{
    my ($self, $conf <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1904	2003	
==>:new($path);
}

=back

=head2 Instance Methods

=over 4

=item C<create_path()>

This is called from <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	881	980	
==>:new($path);
}

=back

=head2 Instance Methods

=over 4

=item C<create_path()>

This is called from <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24192	24354	
==>s( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "yield",
                  "FLAGS" => "",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	14536	14690	
==>{
                if ( $args =~ s/--run-pbc// || $args =~ s/-r // ) {
                    my $pbc_f = per_test('.pbc', $test_no);
                    $args <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	197	292	
==>ead1 SYNOPSIS

	use Parrot::Docs::Group;

=head1 DESCRIPTION

A documentation I<group> is a numb <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	3044	3189	
==>it_code."
                if $exit_code;
            $self->{builder}->diag($diag) if $diag;
        }

        # The generated files are lef <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2655	2781	
==>it_code." if $exit_code;
            $self->{builder}->diag( $diag ) if $diag;
        }

        # The generated files are lef <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10691	10793	
==>render {
    die;
}

sub Regex::Ops::Tree::classpieces::render {
    die;
}

sub Regex::Ops::Tree::seq: <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	21588	21838	
==>n
                                                 \z                          # at end of string
                                               }ixms or Usage();
            if ( defined $extension ) { 
                my $code = slurp_file($example_ <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	3987	4097	
==>xit 0;
}    
# else check strictly against ops.num and renumber
else {
    load_op_map_file();

    my $cur_cod <==
3	/Users/nnunley/parrot/Configure.pl	9757	9858	
==>gen::platform
    gen::config_pm
);

my $conf = Parrot::Configure->new;
{
    # XXX $Parrot::Configure <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848237	848327	
==>ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849017	849107	
==>ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1765	1887	
==>$util));
    }

    my ($stdout, $stderr, $ret) = capture_output($prog, '--version');

    # don't override the user even i <==
3	/Users/nnunley/parrot/config/inter/make.pm	1639	1761	
==>$util));
    }

    my ($stdout, $stderr, $ret) = capture_output($prog, '--version');

    # don't override the user even i <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1779	1901	
==>$util));
    }

    my ($stdout, $stderr, $ret) = capture_output($prog, '--version');

    # don't override the user even i <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	11391	11515	
==>$builder->current_test() + 1;

            # Name of the file where output is written.
            # Switch to a different ex <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240141	240235	
==>/cmp.ops\"\n  INTVAL l = VTABLE_get_integer(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? - <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241089	241183	
==>/cmp.ops\"\n  INTVAL l = VTABLE_get_integer(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? - <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1395	1502	
==>h @{$temp->{children}}, $expr;
  }
  else {
    $temp->{value} = $tokens->[$count++];
  }
  
  return ($coun <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	39708	39812	
==>e 4";

	extract_tagged($text, '/para', '/endpara', undef,
				{reject => '/para', fail => MAX );

	# EXTR <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	40022	40125	
==>e 4";

	extract_tagged($text, '/para', '/endpara', undef,
			{reject => '/para', fail => MAX );

	# EXTR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058077	1058329	
==>81,
                  "ARGS" => [
                              "p",
                              "k",
                              "sc"
                            ],
                  "BODY" => "#line 194 \"src/ops/var.ops\"\n    {{\@1}} = Parrot_ge <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	57971	58134	
==>( $_[0] );
            PushScope( $_[0] );
        }
	],
	[#Rule 96
		 'function', 3,
sub
#line 508 "Lua\lua51.yp"
{
            $_[3];
        }
	],
	[ <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	723	817	
==>::IO::Directory';
}

=item C<file_class()>

Returns the class used in the various file creation <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1677	1795	
==>options->get('ask')) {
        $prog = prompt($prompt, $prog ? $prog : $conf->data->get($util));
    }

    my ($stdout <==
3	/Users/nnunley/parrot/config/inter/make.pm	1551	1669	
==>options->get('ask')) {
        $prog = prompt($prompt, $prog ? $prog : $conf->data->get($util));
    }

    my ($stdout <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1691	1809	
==>options->get('ask')) {
        $prog = prompt($prompt, $prog ? $prog : $conf->data->get($util));
    }

    my ($stdout <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982537	982921	
==>,
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1102,
                  "ARG <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	42644	42777	
==>'OR' => 84,
			"<=" => 85,
			'DO' => 196,
			">" => 86
		}
	},
	{#State 186
		DEFAULT => -4,
		GOTOS => {
			'block' => 197, <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27017	27133	
==>($l, $out_name);
        $cout .= $self->{const}->init_func;
    }
    $cout .= $self->{post};
    $cout;
}

=item C< <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	2090	2388	
==>{ 'start_line' => 1 },
              'PIE'
            ],
            [
              'Para',
              { 'start_line' => 3 },
              'I like ',
              [
                'B',
                {},
                'pie'
              ],
              '!'
            ]
          ];

= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710489	710681	
==>> 797,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 50 \"src/ops/python.ops\"\n  PMC * const io = PIO_STDOUT <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	44810	44915	
==>de in the excursion won't be an S node.
  my($treelet, $in_s) = @_;
  
  my $is_s = ('S' eq $treelet->[0]) <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4027	4223	
==>ndef $variable;
            next;
        }
        
        if ($function) {
            if (/Calls (.*) : (.*)/) {                                
                # calling another function withi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4938	5068	
==>>new($block, $self->require_ident);
      my $name = $ident->value;

      #
      # Allow there to be Properties:
      #

      m <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7932	8062	
==>>new($block, $self->require_ident);
      my $name = $ident->value;

      #
      # Allow there to be Properties:
      #

      m <==
3	/Users/nnunley/parrot/config/inter/lex.pm	2322	2430	
==>version => "$1.$2.$3");
    }

    $conf->data->set($util => $prog);
    $self->set_result('yes');

    retur <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033387	1033471	
==>ex_pad)) {\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034485	1034569	
==>ex_pad)) {\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' n <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1757	1870	
==>ta->get($util));
    }

    my ($stdout, $stderr, $ret) = capture_output($prog, '--version');

    # don't overrid <==
3	/Users/nnunley/parrot/config/inter/make.pm	1631	1744	
==>ta->get($util));
    }

    my ($stdout, $stderr, $ret) = capture_output($prog, '--version');

    # don't overrid <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1771	1884	
==>ta->get($util));
    }

    my ($stdout, $stderr, $ret) = capture_output($prog, '--version');

    # don't overrid <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	980	1090	
==>\', @ARGV; exit $$? >> 8;"',
        ncilib_link_extra => '-def:src/libnci_test.def',
    );

    if ($is_msvc) <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1625	1725	
==>ink $meth } } # JMG
    }
}

1;

my $urmc = "$PConfig{perl} $FindBin::RealBin$PConfig{slash}..$PConfi <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	13850	13947	
==>>genlabel('alt_back');
    my $try_S = $self->genlabel('alt_S');
    my $next = $self->genlabel('n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712726	712821	
==>) == -1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=2} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713833	713928	
==>) == -1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=2} <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	7805	7921	
==>?\d+/) {
        return undef;
    } elsif (!defined($max) || $max == -1) {
        return undef if ! defined($sublen <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	593	703	
==>"    => \$output_file,
    "srm=s"        => \$srm_module
) or usage();
$rules_file = shift @ARGV;
usage() if ! <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1214	1323	
==>todo, :$depends) returns Bool is export {
    # hack for now
    my $got_perl = $got.perl;
    my $expected_pe <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722445	722677	
==>erpreter, io, s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723474	723706	
==>erpreter, io, s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724518	724750	
==>erpreter, io, s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	46709	46851	
==>. . . . . . . . . . . . . . . . . . . . . .
# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
#==================== <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	46757	46874	
==>. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
#=========================================== <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	46803	46897	
==>. . . . . . . . . . . . . .
#================================================================== <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	15946	16122	
==>t_code")
                  if $exit_code and not $pass;

            unless($ENV{POSTMORTEM}) {
                unlink $out_f;
            }

            return $pass;
        } <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	18497	18673	
==>t_code")
                  if $exit_code and not $pass;

            unless($ENV{POSTMORTEM}) {
                unlink $out_f;
            }

            return $pass;
        } <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	176	257	
==>anguages/jako/lib/Jako/Construct/Expression/Call.pm 19606 2006-05-30T15:08:05.0480 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7276	7436	
==>e ".-$act." ($lhs,$len): ";

                $act
            or  $self->YYAccept();

            $$dotpos=$len;

                unpack('A1',$lhs) eq '@' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6940	7093	
==>e ".-$act." ($lhs,$len): ";

                $act
            or  $self->YYAccept();

            $$dotpos=$len;

                unpack('A1',$lhs) eq '@' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7412	7547	
==>et_token($next);
          next;
        }
        DEBUG and print "    raw text ", $next->text, "\n";
        printf $fh "\n" . $next-> <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9657	9792	
==>et_token($next);
          next;
        }
        DEBUG and print "    raw text ", $next->text, "\n";
        printf $fh "\n" . $next-> <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6787	6883	
==>PRINT A$(I)
NEXT I
END

' mid/left/right  2-9, 1-5, 6-0
t$="1234567890"
print mid$(t$, 2, 8)
prin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353288	353599	
==>_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 412,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	622	724	
==>ow we implement a pull-parser on top of a push-parser...

sub filter {
  my($self, $source) = @_;
  $se <==
3	/Users/nnunley/parrot/config/gen/platform.pm	3809	3903	
==>** platform.c [$platform version]
**
** DO NOT EDIT THIS FILE
**
** Generated by config/gen/pla <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730694	730922	
==>" => "#line 124 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731430	731658	
==>" => "#line 124 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	1902	2055	
==>print " (yes) " if $verbose;
            $self->set_result('yes');

            $conf->data->set(
                gmp     => 'define',
                HAS <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	24857	24988	
==>: fallback(s)
      (?:\s+(\S+))? # 3 : element name(s)
      \s*
      $
    /xs
  ) {
    my $new_letter = $1;
    my $fallbacks_o <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2468	2561	
==>ML -e \
   "exit Pod::Simple::DumpAsXML->filter(shift)->any_errata_seen" \
   thingy.pod

=hea <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	7447	7615	
==>le->{'name'}\n";
            } else {
                $has_trans = 1;
            }
        }

		# typeinfo
        elsif (/^typeinfo$/) {
            if ($has_typeinfo) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676028	676118	
==>mc.ops\"\n    {{\@1}}->vtable->unshift_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676808	676898	
==>mc.ops\"\n    {{\@1}}->vtable->unshift_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}} <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	1979	2076	
==>racter matches (eg /a[bB]c/).

But perhaps this should be handled in the Tree -> List rewrite??

= <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27053	27143	
==>ns{$funcname}=$englishname;

	$f="_USERFUNC_$funcname";
	$f=changename($f);
	$f=~s/\$/_stri <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27326	27416	
==>ns{$funcname}=$englishname;

	$f="_USERFUNC_$funcname";
	$f=changename($f);
	$f=~s/\$/_stri <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	38523	38695	
==>> \&_op_procedure_p,
  'apply'                           => \&_op_apply,
  'map'                             => \&_op_map,
  'for-each'                        => \&_op_for_e <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	16038	16170	
==>_open  
       and @$paras and ! grep $_->[0] ne '~end', @$paras
        # i.e., if the paras is all ~ends
     )
    ;
    DEBUG and <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11607	11702	
==>~~~~~~~~~~~~~~~~

sub unicode_escape_url {
  my($self, $string) = @_;
  $string =~ s/([^\x00-\xF <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109189	109452	
==>"NAME" => "bors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109967	110230	
==>"NAME" => "bors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8664	8749	
==>,/* 10 */
FF,$c,$d,$a,$b,$_[14],17,0xffff5bb1,/* 11 */
FF,$b,$c,$d,$a,$_[15],22,0x895c <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	1407	1544	
==>f (/(\w+\.\w+)\s+(\d+)/) {
            $order{$1} = $2;
        }
    }
    close IN;

    return \%order;
}

sub sort_pmcs
{
    my @pmcs <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809688	809780	
==>n    {{\@1}} = {{\@2}}->vtable->get_string_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810593	810685	
==>n    {{\@1}} = {{\@2}}->vtable->get_string_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}} <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	4645	4817	
==>e = $1;
                my $decl = $2;
                $decl .= <PMC> until ($decl =~ s/\{.*//);
                $const = 1 if $decl =~ /\bconst_too\b/;
                next <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	15731	15879	
==>there isn't
            # a $class object
            $self->{super}{$meth} =
                $self->{class} eq 'ParrotObject' ||
                $se <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	2521	2618	
==>im>.

Accepts a delimiter value followed by a list of C<key => value> pairs and
returns a L<Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	18972	19105	
==>ke',
        language_output_isnt => 'output_isnt',
                            );

    foreach my $func ( keys %language_test_map ) { <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3777	3883	
==>_opcode[%ld]",

        'i'  => "(*(INTVAL *)OP_AS_OFFS(%ld))",
        'ki'  => "(*(INTVAL *)OP_AS_OFFS(%l <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105600	105834	
==>c/ops/bit.ops\"\n  {{\@1}} |= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	106338	106572	
==>c/ops/bit.ops\"\n  {{\@1}} |= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1637	1728	
==>b start_item_bullet { $_[0]{'Thispara'} = '* ' }
sub start_item_number { $_[0]{'Thispara'} = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305155	305438	
==>",
                  "NAME" => "if_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305943	306226	
==>",
                  "NAME" => "if_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2734	2837	
==>->is_global ? 'global' : 'local'),
    $self->access,
    $self->type,
    $self->name,
    $self->value <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	16415	16522	
==><!ENTITY\s+(\S+)\s+"&#([^;]+);">/) {
      my($name, $value) = ($1,$2);
      next if $name eq 'quot' or $na <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2776	2879	
==>set
{
    my ($self, $offset) = @_;

    return "interpreter->resume_offset = REL_PC + $offset; interpre <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4111	4214	
==>set
{
    my ($self, $offset) = @_;

    return "interpreter->resume_offset = REL_PC + $offset; interpre <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	4865	4975	
==>pcode, $arg, $rest, $source];
}

sub XXX {
   my ($n, $c, $cmt) = @_;
   print "#Unknown '$cmt'\n";
}

sub Labe <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	4129	4229	
==>hash passwords.

=item *

educational purposes

=back

=head1 SYNOPSIS

 # Functional style
 use Dige <==
3	/Users/nnunley/parrot/languages/regex/regex.pl	1506	1605	
==>} = $subname if $subname;
$options{emit_main} = 1 if $main;

if ($language eq 'pir') {
  $options{mo <==
3	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	734	841	
==>*", <INPUT>);
    close INPUT;
}

my $up_to_date = 1;
foreach my $output (@outputs) {
    if (! open(OUTPUT, <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4417	4516	
==>arget, $pattern, $captures) = @_;
    $target = _parrot_stringify($target);
    $pattern = _parrot_s <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6922	7021	
==>arget, $pattern, $captures) = @_;
    $target = _parrot_stringify($target);
    $pattern = _parrot_s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1192	1296	
==>lock->push_content($self);

  return $self;
}

sub dest  { return shift->{DEST};  }
sub left  { return sh <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1183	1287	
==>lock->push_content($self);

  return $self;
}

sub dest  { return shift->{DEST};  }
sub left  { return sh <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1072	1176	
==>lock->push_content($self);

  return $self;
}

sub dest  { return shift->{DEST};  }
sub left  { return sh <==
3	/Users/nnunley/parrot/config/init/defaults.pm	5703	5842	
==>m_asm => 0,
        as           => 'as',    # assembler

        cp    => '$(PERL) -MExtUtils::Command -e cp',
        lns   => $Config{lns <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	7269	7381	
==>print "It's an op!\n";
		$item->[2]="OP";
		if (! @stack) {
			push @stack, $item;
			next;
		}
		while(@stack an <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	34830	34926	
==>call to C<extract_bracketed> in a list context:

	@result = extract_bracketed( $text, '{}' );

wo <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2914	3039	
==>@_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol}\[$op->{arg1}->{symbol}\] = $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897022	897218	
==>",
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898040	898236	
==>",
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpre <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	4853	4959	
==>PBC
    $byte_code = $pf->pack();

    $offset = 0;
    while($offset < length($byte_code)){
	print join(', <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7755	7859	
==>=cut

sub type_of_ident
{
  my $self = shift; # Required: Jako::Construct::Block
  my $name = shift; # Re <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	101	191	
==>ols/gen_inline.pl src/builtins/foo.tmt > src/builtins/foo.pir

=head1 DESCRIPTION

Use this <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554290	554589	
==>interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555687	555986	
==>interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556924	557223	
==>interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104178	1104451	
==>terpreter, type, {{\@3}});\n\t{{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105393	1105666	
==>terpreter, type, {{\@3}});\n\t{{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6250	6346	
==>s::POD2HTML->new;
		
		$self->{POD_HTML} = $formatter->html_for_file($self);
	}
	
	return $self-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3791	3921	
==>t

sub restart_offset
{
    my ($self, $offset) = @_;

    die "pbc2c.pl: Cannot handle RESUME ops!";
}

=back

=head1 SEE ALSO

=o <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	32089	32217	
==>' => 27,
			'STRING' => 29,
			'NIL' => 30,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36,
			'NAME' => 4,
			" <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12072	12168	
==>nstTable.pm.html being turned into
        # Parrot/PackFile%2FConstTable.pm.html and thus breaki <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11221	11310	
==>1}["reg_type_short"]
${DEST0} = concat ${STEMP0}
inc stack_depth
${STEMP0} = stack_depth
$ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8407	8496	
==>1}["reg_type_short"]
${DEST0} = concat ${STEMP0}
inc stack_depth
${STEMP0} = stack_depth
$ <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	14520	14609	
==>s->init_func_init1($base);
}

my $init_set_dispatch = "";
if ($trans->can("init_set_dispat <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65013	65146	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE|PARROT_JUMP_ENEXT",
                  "NAME" => "runin <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	4041	4165	
==>$line++;
        next unless $_;

        if (/\/\// && ! /http:\/\//) {
            error($file, $line, "Possible C++ commen <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10513	10612	
==>, 'C', 'E', 'E', 'E', 'E', 'I', 'I', 'I', 'I',
'D', 'N', 'O', 'O', 'O', 'O', 'O', 'x', 'O', 'U', 'U' <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	1296	1390	
==>>new_item('', 'lib/Parrot/Docs/POD2HTML.pm'),
            $self->new_item('', 'lib/Parrot/Docs/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152467	152745	
==>ME" => "eq_str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4319	4412	
==>P1} = stack_depth
${STEMP0} = concat ${STEMP1}
${DEST$push_num} = ${STEMP0}

# Increment dtype <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2735	2828	
==>P1} = stack_depth
${STEMP0} = concat ${STEMP1}
${DEST$push_num} = ${STEMP0}

# Increment dtype <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10634	10746	
==>r logic. Please, report it as a BUG");

}#_Parse
#DO NOT remove comment

1;

}
#End of include----------- <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10157	10261	
==>r logic. Please, report it as a BUG");

}#_Parse
#DO NOT remove comment

1;

}
#End of include----------- <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	2084	2177	
==>). C<$self> is the hash reference passed to
C<new()>, and C<$class> is C<Parrot::Pmc2c>.

=cut <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1821	1932	
==>revious declaration on line %d of file '%s'.",
      $name, $sym->line, $sym->file);
  }

  #
  # Now that we've <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	1582	1677	
==>o the translator code.
$pir = insert_automagicals($pir, $metavars);

# Append any custom subs th <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	4333	4425	
==>*[a-z0-9]+\.(p[ml]|pasm)\s*\n//mi; # own file name - kludgy
	s/\#\s*Copyright[^\n]+\n(\# *\S[ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Examples.pm	956	1096	
==>oup('IO',                   '', 'examples/io'),
            $self->new_group('Streams',              '', 'examples/streams'),
            $se <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	34104	34217	
==>sts} - @$test_results);

        if( $self->{Curr_Test} < $self->{Expected_Tests} ) {
            my $s = $self->{ <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	7043	7138	
==>ed as the "RSA Data Security, Inc. MD5 Message-Digest
Algorithm" in all material mentioning or r <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1483	1595	
==>IBPARROT = qq[];

# Here comes some stuff for Win32.
our $PATHQUOTE = '';
if ($^O eq 'MSWin32') {
    # Paths nee <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1528	1640	
==>IBPARROT = qq[];

# Here comes some stuff for Win32.
our $PATHQUOTE = '';
if ($^O eq 'MSWin32') {
    # Paths nee <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1532	1644	
==>IBPARROT = qq[];

# Here comes some stuff for Win32.
our $PATHQUOTE = '';
if ($^O eq 'MSWin32') {
    # Paths nee <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614240	614381	
==>DDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "classoffset",
                  "FLAGS" => ":object_classes",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615390	615531	
==>DDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "classoffset",
                  "FLAGS" => ":object_classes",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665251	665423	
==>vtable->delete_keyed_int(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666028	666200	
==>vtable->delete_keyed_int(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7085	7199	
==>G and print "Linearized ", scalar(@to_unget),
           " tokens, but it was too long, so nevermind.\n";
        } <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	58878	59060	
==>t', 3,
sub
#line 546 "Lua\lua51.yp"
{
            [
                @{ $_[1] },
                BuildParam( $_[0], $_[3] ),
            ];
        }
	],
	[#Rule 103
		 'par <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	437	535	
==>on {
	die "post_translation not implemented for current stack to register mapper\n";
}

# Extra sub <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18126	18219	
==>e_semicolon;

      my $arith = Jako::Construct::Statement::Bitwise->new($block, $ident, $left <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627560	627896	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628704	629040	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631746	632082	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462855	462990	
==>er, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = fmod({{\@2}}, den);\n  {{+=4}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463852	463987	
==>er, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = fmod({{\@2}}, den);\n  {{+=4}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464849	464984	
==>er, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = fmod({{\@2}}, den);\n  {{+=4}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605398	605661	
==>MP" => 0,
                  "NAME" => "addattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606188	606451	
==>MP" => 0,
                  "NAME" => "addattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "T <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49235	49335	
==>error, $line, "<$1op:...>");
				$prod->adddirective($1, $line);
			}
			elsif ($grammar =~ m/$UNCOMM <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10450	10548	
==>tes[$$stack[-1][0]]{ACTIONS}{error}.
#DBG>						 ".\n";

		push(@$stack, [ $$states[$$stack[-1][ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9981	10076	
==>tes[$$stack[-1][0]]{ACTIONS}{error}.
#DBG>						 ".\n";

		push(@$stack, [ $$states[$$stack[-1][ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	35446	35541	
==>ribute tests that use no_plan or todo your
end-users will have to upgrade Test::Harness to the l <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	3036	3156	
==>id
{
    my $self = shift;
    my $content = $self->read;
    # Break up the $Id to prevent svn messing with it.
    my ( <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8112	8204	
==>} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK0} = ${STEMP <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6066	6158	
==>} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK0} = ${STEMP <==
3	/Users/nnunley/parrot/config/auto/env.pm	561	670	
==>t, shift);

    my $verbose = $conf->options->get('verbose');

    my ($setenv, $unsetenv) = (0, 0);

    cc_g <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1720	1808	
==>onfig
our $PMC2C = "$PERL $PATHQUOTE" . q[/Users/nnunley/parrot/tools/build/pmc2c.pl] . $ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1811	1899	
==>onfig
our $PMC2C = "$PERL $PATHQUOTE" . q[/Users/nnunley/parrot/tools/build/pmc2c.pl] . $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	3150	3349	
==>way to understand this stuff is to look at
# where it's used, mostly in TreeOptimize.pm.
############################################################################

sub order_startset {
    my $star <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	46901	47059	
==>_[0] );
        }
	],
	[#Rule 12
		 'stat', 4,
sub
#line 100 "Lua\lua51.yp"
{
            $_[3];
        }
	],
	[#Rule 13
		 '@2-1', 0,
sub
#line <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	23967	24070	
==>$_[2] ? $_[2] : '\s*';
	my %options = defined $_[3] ? %{$_[3]} : ();
	my $omode   = defined $options{fai <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5485	5584	
==>.'[0]',$item]);
      $self->_add_inst ('', 'set', [$pair.'[1]',$return]);
      $self->_add_inst (' <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17035	17129	
==>.'[0]',$item]);
    $self->_add_inst ('', 'set',[$pair.'[1]',$return]);
    $self->_add_inst (' <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6524	6613	
==>.'[0]',$item]);
  $self->_add_inst('', 'set', [$pair.'[1]',$return]);
  $self->_add_inst(' <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5450	5547	
==>$self->_add_inst ('', 'set', [$pair.'[0]',$item]);
      $self->_add_inst ('', 'set', [$pair.'[1]' <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17001	17094	
==>$self->_add_inst ('', 'set',[$pair.'[0]',$item]);
    $self->_add_inst ('', 'set',[$pair.'[1]' <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6490	6581	
==>$self->_add_inst('', 'set', [$pair.'[0]',$item]);
  $self->_add_inst('', 'set', [$pair.'[1]' <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7766	7938	
==>{ $$_[1] } @$stack[ -$$dotpos .. -1 ]
                        :   ();

            $semval = $code ? &$code( $self, @sempar )
                            : @sempar ? $se <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7414	7582	
==>{ $$_[1] } @$stack[ -$$dotpos .. -1 ]
                        :   ();

            $semval = $code ? &$code( $self, @sempar )
                            : @sempar ? $se <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	14523	14627	
==>se::RecDescent::(Action|Directive)/)
		{
			return 1 if $item->{code} =~ /\$skip/;
		}
	}
	return 0;
}

s <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4145	4257	
==>can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign register name.
${STEMP0} = "$"
${STEMP1} = ${ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2561	2673	
==>can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign register name.
${STEMP0} = "$"
${STEMP1} = ${ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1871	1983	
==>can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign register name.
${STEMP0} = "$"
${STEMP1} = ${ <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	2329	2428	
==>$Date: 2006-05-30T15:23:20.183054Z $;

my $nm_cmd = 'nm';
my $nm_opt = '';
my $nm_try = qx(nm -V 2>& <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	5476	5599	
==>ys %API;

my @NoParrotAPI = grep { !exists $API{$_} } sort keys %ParrotAPI;
my @NoParrotPrefix;
my @UnParrotAPI;

my $Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133828	133914	
==>line 321 \"src/ops/bit.ops\"\n  string_bitwise_xor(interpreter, {{\@1}}, {{\@2}}, &{{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134609	134695	
==>line 321 \"src/ops/bit.ops\"\n  string_bitwise_xor(interpreter, {{\@1}}, {{\@2}}, &{{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497343	497702	
==>ase_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 571,
                  "ARGS" => [
                              "n",
                              " <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	43035	43156	
==>)+2);
      $label = $row->[2];
      $self->{code} .= join ", ",@$label if $label;
    }
    $self->{code} .= "\n";
  }
} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093610	1093697	
==>> "#line 209 \"src/ops/experimental.ops\"\n  VTABLE_morph(interpreter, {{\@1}}, {{\@2}}) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094413	1094500	
==>> "#line 209 \"src/ops/experimental.ops\"\n  VTABLE_morph(interpreter, {{\@1}}, {{\@2}}) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321670	321967	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "AR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322441	322738	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "AR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323213	323510	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "AR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660067	660156	
==>ine 334 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->exist <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660989	661078	
==>ine 334 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->exist <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2245	2331	
==>prederef(interpreter,
	(opcode_t*)pop_dest(interpreter))))";
}

sub run_core_func_start <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	2925	3034	
==>_op }
    # and construct a mapping from label names to destination tagged_op
    my $curlabel;
    my @output <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	29733	29850	
==>],
        'result' => $lbl_or,
    );
    my $lbl_end = new_label($parser);
    push @opcodes, new BranchUnlessOp <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	8900	8998	
==>lf->_generate($_);
  }

  $self->_add_inst('', 'set', ['P5', $temp]);

  $self->_add_inst('', '# po <==
3	/Users/nnunley/parrot/tools/build/vtable_extend.pl	1136	1233	
==>ng inside -- you've as much access as bytecode does, but no more,
so we can provide backwards comp <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	2440	2594	
==>file',
        commentType                   => '#',
        replace_slashes               => 1
    );
    genfile(
        'config/gen/makefiles/dynpmc.in <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	13819	13924	
==>losing = $1;
	   $closing =~ tr/([<{/)]>}/;
	my $matched;
	my $patvalid = 1;
	while (pos($$textref) < leng <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	4248	4344	
==>utable' if $self->is_executable;
		
	return $UNDEFINED;
}

=item C<is_of_type($type)>

Returns wh <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6485	6598	
==>modtime($target)
      or return 1;
    for my $source (@sources) {
        return 1 if modtime($source) > $target <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4905	5018	
==>modtime($target)
      or return 1;
    for my $source (@sources) {
        return 1 if modtime($source) > $target <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6696	6809	
==>modtime($target)
      or return 1;
    for my $source (@sources) {
        return 1 if modtime($source) > $target <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	12462	12573	
==>iables.
    $mv->{'ASSEMBLY'} = 'assembly';
    $mv->{'BC'} = 'bc';
    $mv->{'INS'} = 'gen_pir';
    $mv->{'PC' <==
3	/Users/nnunley/parrot/lib/Test/More.pm	19508	19603	
==>ls on the mechanics of skip and todo tests see
L<Test::Harness>.

The way Test::More handles thi <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	5483	5575	
==>8a0fc1483df6e21

provided that the implementation is working correctly.  The same
checksum ca <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	37103	37206	
==>istribute it and/or 
modify it under the same terms as Perl itself.

See F<http://www.perl.com/perl/misc <==
3	/Users/nnunley/parrot/lib/Test/More.pm	37512	37615	
==>istribute it and/or 
modify it under the same terms as Perl itself.

See F<http://www.perl.com/perl/misc <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	6472	6575	
==>istribute it and/or 
modify it under the same terms as Perl itself.

See F<http://www.perl.com/perl/misc <==
3	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	978	1080	
==>sions.pod on how to recreate this file after SVN
# has been told about new generated files.
# 
# Ignore <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3833	3934	
==>sions.pod on how to recreate this file after SVN
# has been told about new generated files.
#
# Ignore <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20488	20583	
==>n to
bother subclassing to add a C<run> method.

=head1 SEE ALSO

L<Pod::Simple>

L<Pod::Simple: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567478	567568	
==>ODY" => "#line 213 \"src/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->does(interpreter, { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568373	568463	
==>ODY" => "#line 213 \"src/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->does(interpreter, { <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8831	8984	
==>0]]{GOTOS}{$lhs}, $semval ]);
                $$check='';
                next;
            };

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Force <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8434	8581	
==>0]]{GOTOS}{$lhs}, $semval ]);
                $$check='';
                next;
            };

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Force <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	22331	22435	
==>ass', 1,
sub
#line 167 "lib/Regex/Grammar.y"
{ return [ 'neg', [] ]; }
	],
	[#Rule 39
		 'classpieces', 2 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2759	2879	
==>$i]->compile($compiler);
      $compiler->emit("  $temp = $value");
      $args[$i] = $temp;
    }
    else {
      $args <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2459	2579	
==>$i]->compile($compiler);
      $compiler->emit("  $temp = $value");
      $args[$i] = $temp;
    }
    else {
      $args <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10366	10469	
==>,$c,$d,$_[4],6,0xf4292244,/* 49 */
II,$d,$a,$b,$c,$_[11],10,0x432aff97,/* 50 */
II,$c,$d,$a,$b,$_[18],15 <==
3	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	351	445	
==>and checking for that line
before rerunning the build script.

=head1 EXAMPLE

See parrot/confi <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	32317	32399	
==>---------------------------------------------------------------------

my %global_o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107149	107408	
==>ops/bit.ops\"\n  {{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108003	108262	
==>ops/bit.ops\"\n  {{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108857	109116	
==>ops/bit.ops\"\n  {{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	449	546	
==>ck, $left, $right) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($blo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	440	537	
==>ck, $left, $right) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($blo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51	148	
==>!!!!!
#
# This file is generated automatically from 'src/ops/core.ops'.
# Any changes made here wi <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	42947	43078	
==>te 189
		DEFAULT => -4,
		GOTOS => {
			'block' => 201,
			'chunk' => 57
		}
	},
	{#State 190
		DEFAULT => -86
	},
	{#Stat <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8427	8534	
==>cal pmc iter
    iter = new .Iterator, op1
loop_begin:
    unless iter goto no_gots
    value_at = shift ite <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	4858	4961	
==>ndex)>

Returns the direction of the op's argument at C<$index>.

=cut

sub arg_dir
{
    my $self = shi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	951	1093	
==>Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block,

    DEST  => $dest,
    LEFT  => $left,
    OP    => $op,
    RIGHT <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	942	1084	
==>Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block,

    DEST  => $dest,
    LEFT  => $left,
    OP    => $op,
    RIGHT <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	831	973	
==>Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block,

    DEST  => $dest,
    LEFT  => $left,
    OP    => $op,
    RIGHT <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	2277	2393	
==>the suite.

=cut

    if ( grep { /^--files$/ } @{ $options{arguments} } )
    {
        # --files indicates the 'lan <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	1637	1744	
==>ame);
    print $cout if $opt->{debug};
    print "Writing $c_name\n" if $opt->{verbose};
    open my $C, '> <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9811	9929	
==>e=undef;
		};

        $$errstatus=3;

		while(	  @$stack
			  and (		not exists($$states[$$stack[-1][0]]{ACTIONS <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9371	9483	
==>e=undef;
		};

        $$errstatus=3;

		while(	  @$stack
			  and (		not exists($$states[$$stack[-1][0]]{ACTIONS <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	43435	43540	
==>UG > 1 and print "Ogling E<$content>\n";

      $charnum  = Pod::Escapes::e2charnum($content);
      DEBUG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578981	579271	
==>,
                  "TYPE" => "function",
                  "CODE" => 661,
                  "ARGS" => [
                              "p",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 289 \"src/ops/ob <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	8101	8209	
==>{
    next unless defined $t and length $t;
    # TODO: enforce some limitations on what a target name can be <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	8620	8728	
==>{
    next unless defined $t and length $t;
    # TODO: enforce some limitations on what a target name can be <==
3	/Users/nnunley/parrot/lib/Test/More.pm	25130	25245	
==>:Exist';
sub is_deeply {
    unless( @_ == 2 or @_ == 3 ) {
        my $msg = <<WARNING;
is_deeply() takes two or th <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11653	11748	
==>ptypes
j = 0
PTYPES_LOOP:
if j == i goto PTYPES_LOOP_END
type_trans = ptypes[j]
type = type_tran <==
3	/Users/nnunley/parrot/tools/docs/write_docs.pl	394	486	
==>ng;
use Parrot::Docs::Section::Parrot;

my ($silent, $delete);

die unless GetOptions('silent <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4256	4387	
==>nal_calls{$1}{"$file:$function"}++ 
                  unless ($variable_visible{$file}{$1} || 
                          $variable_v <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4521	4650	
==>nal_calls{$1}{"$file:$function"}++
                  unless ($variable_visible{$file}{$1} ||
                          $variable_v <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	69426	69529	
==>val "$code 1" )
		{
			_error("Internal error in generated parser code!");
			$@ =~ s/at grammar/in gram <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	2845	3006	
==>vision_c.pl                       [devel]
    vtable.tbl                                      [devel]
);

open my $MANI, '>', 'MANIFEST';
print $MANI '# $' . 'Id' <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	5632	5723	
==>ith_path($_)} $self->directory_paths;
}

=item C<file_suffixes($recursive, $ignore)>

Use th <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	119485	119801	
==>= {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120340	120656	
==>= {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121195	121511	
==>= {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	12687	12808	
==>1;

    if( !defined $got || !defined $dont_expect ) {
        # undef only matches undef and nothing else
        my $tes <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	13131	13252	
==>1;

    if( !defined $got || !defined $dont_expect ) {
        # undef only matches undef and nothing else
        my $tes <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	10964	11058	
==>epends) returns Bool`

- `isnt (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	8245	8338	
==>sult, $type, @code)=EXPRESSION();
	feedme();
	die "Expecting FOR at $sourceline" unless $syms[ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627167	627260	
==>on(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628311	628404	
==>on(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379987	380239	
==>" => 444,
                  "ARGS" => [
                              "i",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 432 \"src/ops/io.ops\"\n  {{\@1}} = Parro <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	7299	7458	
==>my ($self, $body, $trans) = @_;

    # use vtable macros
    $body =~ s!
        (?:
            {{\@\d+\}}
            |
            \b\w+(?:->\w+)*
        )- <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	17569	17707	
==>spatch table.
# ############################
sub generate_dispatch_table($$$) {
    my $srm = shift;
    my @rules = @{shift()};
    my $mv <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623567	623676	
==>dest_pred = NULL;\n    }\n    lru = &mic->lru;\n    if (lru->u.signature == sig) {\n\tif (sig) {\n\t    n = (( <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	28842	28948	
==>ny test output, for example, when current_test() is changed.
In these cases, Test::Builder doesn't know the <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	1036	1138	
==>at brings total obliteration. I will face my fear. I will permit
	#  it to pass over me and through me. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5856	6082	
==>,
                  "TYPE" => "inline",
                  "CODE" => 8,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 144 \"src/ops/core.ops\"\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955893	955998	
==>g_copy(interpreter, Parrot_encoding_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956705	956810	
==>g_copy(interpreter, Parrot_encoding_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35875	35971	
==>Builder
will throw a warning and exit with 255.  If the test died, even after
having successfully <==
3	/Users/nnunley/parrot/lib/Test/More.pm	33946	34042	
==>Builder
will throw a warning and exit with 255.  If the test died, even after
having successfully <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822014	822185	
==>,
                              "i"
                            ],
                  "BODY" => "#line 120 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	23043	23171	
==>> $flag,
        'result' => $result,
    );
    return [ $result, \@opcodes ];
}

sub BuildLogop {
    my ( $parser, $exp <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	1083	1204	
==>s ) = @_;
  
        my $count = $self->{builder}->current_test() + 1;

        # These are the thing that depend on the a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	922391	922778	
==>o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1038,
                  "ARGS" => [
                              "p",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 321 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500998	501222	
==>621 \"src/ops/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501737	501961	
==>621 \"src/ops/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8414	8553	
==>post_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6234	6373	
==>post_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5149	5288	
==>post_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	246182	246477	
==>"cmp_num",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	3586	3690	
==>$R ]) if $R->{name} eq 'LABEL';
    return $self->rewrite($R, $lastback);
}

sub rewrite_test {
    my ($ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3977	4070	
==>_size(18);
  $new->header_halfpoint_size(17);
  $new->normal_halfpoint_size(25);

  return $ne <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	10300	10423	
==>2 + $N2
    $N2 = ln $N2
    .return ($N2)
neg_seven: # arctanh(x) = .5 * (ln (1+x) - ln (1 -x))
    $N1 = op2 + 1
    $N1 = <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	79	191	
==>ted (\d+) types out of (\d+) from .+?([\.\w]+)\n$/) {
		push @results, {
			name	=> $3,
			total	=> $2,
			do <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	79	191	
==>ted (\d+) types out of (\d+) from .+?([\.\w]+)\n$/) {
		push @results, {
			name	=> $3,
			total	=> $2,
			do <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	61390	61485	
==>rs in the text before closing one or more levels of nested
brackets.

=item C<Unmatched embedded <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	642	735	
==>er->get_token on a L<Pod::Simple::PullParser>, you might
get an object of this class.

This is <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	548	641	
==>er->get_token on a L<Pod::Simple::PullParser>, you might
get an object of this class.

This is <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547530	547705	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fact",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548436	548611	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fact",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33900	34017	
==>t = '(void) ';
    if ($method->{type} ne 'void') {
        my $type = $method->{type};
        $ret_def = "$type ret_ <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	379	490	
==>>YYData->{srcname}, ':',
        $parser->YYData->{lineno}, ': ', $msg
        if ( exists $parser->YYData->{v <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	845	956	
==>>YYData->{srcname}, ':',
        $parser->YYData->{lineno}, ': ', $msg
        if ( exists $parser->YYData->{v <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1303	1414	
==>>YYData->{srcname}, ':',
        $parser->YYData->{lineno}, ': ', $msg
        if ( exists $parser->YYData->{v <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1353	1473	
==>sequences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $self->set_result('yes');
        r <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1350	1470	
==>sequences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $self->set_result('yes');
        r <==
3	/Users/nnunley/parrot/config/inter/make.pm	1174	1283	
==>sequences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $self->set_result('yes') <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322368	322598	
==>NTVAL)((Parrot_UInt4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323140	323370	
==>NTVAL)((Parrot_UInt4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	6088	6220	
==>p lc $b } keys %{ $branches{$branch} }
    ];
  }

  $tmpl->param(branches => my $p = [
    map {{
      name       => $_,
      cate <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947161	947372	
==>L, 1,\n\t\"charset '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948063	948274	
==>L, 1,\n\t\"charset '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	1472	1569	
==>nt, $len) == 0;
}

size_t
PackFile_write_fingerprint (void *cursor)
{
    memcpy (cursor, fingerpr <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	3040	3200	
==>or/Makefile',
        commentType                      => '#',
        replace_slashes                  => 1
    );
    genfile(
        'config/gen/makefiles/la <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4638	4772	
==>s} } == 1 && 2 == keys %$self) {
        return $self->{args}->[0];
    } else {
        return $self;
    }
}

sub minlen {
    my $op <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5775	5909	
==>s} } == 1 && 2 == keys %$self) {
        return $self->{args}->[0];
    } else {
        return $self;
    }
}

sub minlen {
    my $op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	98694	98882	
==>" => 122,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 96 \"src/ops/bit.ops\"\n  {{\@1}}->vtable->i_bitw <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	20604	20698	
==>st->no_header($no_header);

If set to true, no "1..N" header will be printed.

=item B<no_endin <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	13094	13227	
==>29,
			"[" => 14,
			"." => 15
		},
		DEFAULT => -7,
		GOTOS => {
			'expr' => 28,
			'charclass' => 12,
			'range' => 25
		}
	},
	{#S <==
3	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	1145	1258	
==>ction,
           "executable=s" => \$executable);

if ($action) {
    &{$action}();
} else {
    (-d "miniparrot" <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2255	2367	
==>> 'libparrot'.$conf->data->get('a'),
            libparrot_shared     => 'libparrot$(SHARE_EXT)',
            ar_ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	7382	7478	
==>Find out whether a plan has been defined. $plan is either C<undef> (no plan has been set), C<no_p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824594	824846	
==>@1}} = UVal_str(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825665	825917	
==>@1}} = UVal_str(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	21755	21855	
==>tput.  A newline will be put on the end if there isn't one
already.

We encourage using this rather t <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3533	3640	
==>where.
    }
    else {
      $self->SYNTAX_ERROR("Sub declaration has no fnlib property, and parent block i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6197	6304	
==>where.
    }
    else {
      $self->SYNTAX_ERROR("Sub declaration has no fnlib property, and parent block i <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	1774	1862	
==>mper;
print Data::Dumper->Dump([$m],["*DEFAULT_RULE_MATCH"]);
  return reduce($m, $input) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	407	528	
==>ko::Construct::Block);


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $kind        = $s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	387	508	
==>ko::Construct::Block);


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $kind        = $s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeDumb.pm	613	715	
==>xists $Supported{lc $_[1]};
}

sub encmodver {
  return __PACKAGE__ . " v" .($VERSION || '?');
}

sub m <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	436	538	
==>ss = shift;
  my ($block, $ident) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	436	538	
==>ss = shift;
  my ($block, $ident) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	70213	70315	
==>r =~ m/$ATMOST/gco
	  || $grammar =~ m/$BETWEEN/gco && do { $min=$2; 1 }
	  || $grammar =~ m/$ATLEAST/g <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	53391	53524	
==>e 349 "Lua\lua51.yp"
{
            BuildBinop( $_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 61
		 'exp', 3,
sub
#line 3 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	858	981	
==>'";
}

sub output_start {
    my ($n) = @_;
    return "start $n";
}

sub output_end {
    my ($n) = @_;
    return "end $n" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	819	923	
==>>emit(".end");

  foreach my $construct ($self->content) {
    if (
         $construct->isa("Jako::Const <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630666	630896	
==>, class));\n    {{\@1}} = pmc_new(interpreter, type);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631656	631886	
==>, class));\n    {{\@1}} = pmc_new(interpreter, type);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35030	35216	
==>rt_line'},
              "Expected '=item *'"
            );
             # But doesn't need processing.  But it'll block assimilation
             #  of the next para.
          } else { <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1981	2107	
==>eturn "return (0);"
    }
    else
    {
  	    return <<EOC;
	    {
	       cur_opcode = (opcode_t *) opcode_to_prederef(inter <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	9258	9366	
==>I) {
      # A good-enough check that it's good as an XML Name symbol:
      Carp::croak "\"$new_code\" isn't <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10522	10630	
==>I) {
      # A good-enough check that it's good as an XML Name symbol:
      Carp::croak "\"$new_code\" isn't <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4606	4711	
==>rue  " else b$="False "
if i eqv j then d$="True  " else d$="False "
if i imp j then e$="True  " else e$=" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79441	79550	
==>uild\n         a PMC with it so we can get and set the value */\n      {{\@1}} = pmc_new(interpreter, enum_cla <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80962	81071	
==>uild\n         a PMC with it so we can get and set the value */\n      {{\@1}} = pmc_new(interpreter, enum_cla <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	60207	60299	
==>h not necessarily where it occurred!)
Printing C<$@> directly produces the error message, wit <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	21348	21451	
==>1
NOTUSER
			} else {
				print CODE<<USERTYPE;
	new P1, .PerlHash
	P1["name"]= '$_->[0]'
	P1["type"]= " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819602	819691	
==>TEXT(interpreter->ctx)->user_stack, {{\@2}});\n\n  if (!entry) {\n    internal_exception(9 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820562	820651	
==>TEXT(interpreter->ctx)->user_stack, {{\@2}});\n\n  if (!entry) {\n    internal_exception(9 <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	8225	8362	
==>t @lines;
		
				last if $line !~ /\S/o;
				
				push @abstract, $line;
			}
			
			my $desc = join ' ', @abstract;
			
			# Joining line <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	36148	36263	
==>xt if ref $ell_content[$j];
        DEBUG > 3 and
         print "    Peering at L-content text bit \"$ell_content[$ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	37357	37472	
==>xt if ref $ell_content[$j];
        DEBUG > 3 and
         print "    Peering at L-content text bit \"$ell_content[$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685832	686109	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686721	686998	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	12805	12936	
==>{ children => [ { value => 'lambda' },
					   { children => [ @variables ] },
					   @body ]},
			   @values
			  ]};

  $return = <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	245	338	
==>from C<Parrot::OpTrans> to provide a
function-based (slow or fast core) run loop.

=head2 Inst <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4601	4688	
==>f->do_middle && $self->do_end;
}


#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3232	3318	
==>f->do_middle && $self->do_end;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	410400	410573	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "send",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411292	411465	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "send",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18315	18439	
==>ALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36,
			")" => 99
		},
		GOTOS => {
			'exp' => 100,
			'functioncall' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505308	505730	
==>" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 581,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#li <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614329	614607	
==>FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 69 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615479	615757	
==>FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 69 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	13250	13375	
==>12
	},
	{#State 13
		DEFAULT => -4
	},
	{#State 14
		ACTIONS => {
			"-" => 31,
			"^" => 32
		},
		DEFAULT => -40,
		GOTOS => <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	1765	1914	
==>last_val = -1;
                %values   = ();
                open INC, ">$inc.tmp" or die "Can't write $inc.tmp";
                print INC "/*\n" i <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	35242	35388	
==>> {
			"-" => 72,
			"%" => 76,
			"*" => 80,
			".." => 71,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -69
	},
	{#State <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	6997	7129	
==>ons = defined $_[4] ? %{$_[4]} : ();
	my $omode   = defined $options{fail} ? $options{fail} : '';
	my $bad     = ref($options{reject} <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	5387	5477	
==>port {
    Test::skip($Test::num_of_tests_planned - $Test::num_of_tests_run, $reason // "", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164805	165073	
==>(interpreter, {{\@1}}, {{\@2}}) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165734	166002	
==>(interpreter, {{\@1}}, {{\@2}}) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166663	166931	
==>(interpreter, {{\@1}}, {{\@2}}) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	708	814	
==>$);

# HANDLE RETURN VALUES IN VARIOUS CONTEXTS

sub _failmsg {
	my ($message, $pos) = @_;
	$@ = bless { er <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5621	5751	
==>ibs, %pmc_group, %pmc_libs );
    for my $pmc (@pmcs) {
        our $class;
        require "$pmc.dump";
 
        # there can be m <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5832	5962	
==>ibs, %pmc_group, %pmc_libs );
    for my $pmc (@pmcs) {
        our $class;
        require "$pmc.dump";
 
        # there can be m <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	2369	2488	
==>}
}

sub op_restore_rxlocals {
    my ($self, $op) = @_;
    if ($op->{non_reentrant}) {
        return ();
    } else { <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4455	4572	
==>int "\n";';
    }
    return @ops;
}

sub output_classmatch {
    my ($self, $incexc, $failLabel) = @_;

    my $passL <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4792	4908	
==>int "\n"';
    }
    return @ops;
}

sub output_classmatch {
    my ($self, $incexc, $failLabel) = @_;

    my $passL <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	22714	22815	
==>name
printerr "    $name STS: "
i = elements stypes
j = 0
STS_LOOP_$name:
if j == i goto STS_LOOP_END_ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	6536	6720	
==>rg1'   => $unit->[0],
                    'result' => $num_key,
                );
                $key = [ $num_key, \@opcodes3 ];
            }
            if (    scalar @{$fiel <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109651	109759	
==>"\n  string_bitwise_or(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110430	110538	
==>"\n  string_bitwise_or(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32218	32348	
==>ected '=item $expected_value'"
            );
            push @$para, $para->[1]{'~orig_content'};
              # restore the bul <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029742	1029838	
==>*next = {{^+2}};\n  if ({{\@1}} < 0.0) {\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030584	1030680	
==>*next = {{^+2}};\n  if ({{\@1}} < 0.0) {\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	53514	53650	
==>data structure!
  my @stuff = @_; # copy
  my $x;
  my $out =
    # join ",\n" .
    join ", ",
    map {;
    if(!defined($_)) {
      " <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	12271	12374	
==>nguages directory and issue the same command.
  </p>

  <p>
    Note that old smoke reports are automati <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	1890	1985	
==>ile::Spec->join($path_to_tcl, 'tcl.pbc');
    if (defined($ENV{PARROT_TCLSH})) {
      $executab <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36160	36302	
==>te 139
		ACTIONS => {
			"-" => 72,
			"<" => 74,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			"<=" => 85,
			">" => 8 <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4690	4787	
==>destination=DIRECTORY
    shift(@pmcs) =~ /--destination=(.*)/
      or die "copy command requires <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4794	4891	
==>destination=DIRECTORY
    shift(@pmcs) =~ /--destination=(.*)/
      or die "copy command requires <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	1095	1282	
==>iles = $dir->files_with_suffix('pm', 1);    
        push @groups,
            $self->new_group(
                $titles{$group}, '',
                map {$self->new_item('', $dist->relati <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	14256	14385	
==>classname, $meth, $super,
                       $self->{super}, $body);
    }
    else {
        $total_body = rewrite_nci_method <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28678	28783	
==>step->[1] };
    my $_var = new_tmp( $parser, 'pmc', 'number' );
    push @opcodes, new LocalDir( $parse <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3929	4065	
==>_HELP',  'P16', 'P16[1]'],
  ['',            'inc', 'I1'],
  ['',            'typeof', 'I16', 'P16'],
  ['',            'ret'],
 ],
);

s <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4428	4526	
==>tern, $captures) = @_;
    $target = _parrot_stringify($target);
    $pattern = _parrot_stringify($ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6933	7031	
==>tern, $captures) = @_;
    $target = _parrot_stringify($target);
    $pattern = _parrot_stringify($ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048463	1048713	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049387	1049637	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global" <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4621	4727	
==>>suffix =~ /^(?:c|pod)$/;
    
    return 0;
}

=item C<delete()>

Deletes the file, removes the instance f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122642	122881	
==>> "inline",
                  "CODE" => 152,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 248 \"src/ops/bit.ops\"\n  /* <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	277	378	
==>$
#

use strict;
eval "use warnings";

package Jako::Construct::Declaration::Variable;

use Carp;

use <==
3	/Users/nnunley/parrot/lib/Test/More.pm	3088	3187	
==>:More>.

  use Test::More tests => $Num_Tests;

There are rare cases when you will not know beforeha <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104829	105071	
==>\n  {{\@1}} = {{\@2}}->vtable->bitwise_nots(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	5634	5746	
==>m_include) {
        if (! exists($ansi_c89_header{$include})) {
            print "    $include, included by:\n" <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9249	9333	
==>/
GG,$b,$c,$d,$a,$_[8],20,0xe7d3fbc8,/* 24 */
GG,$a,$b,$c,$d,$_[13],5,0x21e1cde6,/* 2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345036	345390	
==>",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 403,
                  "ARGS" => [
                              "p",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 148 \"src <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	4644	4790	
==>ered_branches;
                $file_branch_coverage{$source_file} = $percent;
                next;
            }

            ($percent, $total_b <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	12734	12832	
==>start.pnext.bar

' Member functions, give 0 and 3 (modified)
type first
	foo as integer
	bar as str <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6282	6376	
==>OD_HTML} = $formatter->html_for_file($self);
	}
	
	return $self->{POD_HTML};
}

=item C<is_docs <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	3441	3533	
==>.

=item C<init_func_init1($base)>

Optionally implemented in subclasses to return the C code <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79446	79555	
==>n         a PMC with it so we can get and set the value */\n      {{\@1}} = pmc_new(interpreter, enum_class_Un <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80967	81076	
==>n         a PMC with it so we can get and set the value */\n      {{\@1}} = pmc_new(interpreter, enum_class_Un <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	31019	31119	
==>ty_check();

Runs a bunch of end of test sanity checks to make sure reality came
through ok.  If anyt <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	15562	15672	
==>ll directives
  # 

  my $self = $_[0];
  my $paras;
  return unless @{$paras = $self->{'paras'}};
  my $curr_o <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	808	899	
==>qq[c++];
our $LDFLAGS = qq[-L/opt/local/lib -L/usr/local/lib -flat_namespace  ];
our $LD_LOA <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	812	903	
==>qq[c++];
our $LDFLAGS = qq[-L/opt/local/lib -L/usr/local/lib -flat_namespace  ];
our $LD_LOA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73576	74040	
==>"dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 97,
                  "ARGS" => [
                              "p",
                              "p",
                              "s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835807	835997	
==>preter, {{\@1}}), STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836560	836750	
==>preter, {{\@1}}), STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	18376	18484	
==>the place for this...
     if ($tree->{name} eq 'scan' && $name ne 'default') {
         $tree = $tree->{args <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724778	725027	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "print_newline",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5690	5798	
==>_quote {
  my ($self, $node) = @_;
  my $return = $self->_save_1 ('P');

  _num_arg ($node, 1, 'quote');

  m <==
3	/Users/nnunley/parrot/tools/build/addopstags.pl	88	183	
==>*.ops to tags

=head1 SYNOPSIS

	perl tools/build/addopstags.pl src/ops/*.ops

=head1 DESCRIPTIO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863508	863772	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "bytelength",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864399	864663	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "bytelength",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	606	691	
==>ua/lib/luamath.pir"
.include "languages/lua/lib/luaio.pir"
.include "languages/lua/l <==
3	/Users/nnunley/parrot/config/init/optimize.pm	238	331	
==>appropriate flags for the local platform to
the C<CCFLAGS>. Should this be part of config/inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828696	828785	
==>nal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_PMC) {\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829764	829853	
==>nal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_PMC) {\n <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	1813	1926	
==>ift(@args);
	    push @r, $curlabel . $outfunc->(@args);
	    $curlabel = "\t";
	} else {
	    die "Unable to outp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653487	653592	
==>}))\n        real_exception(interpreter, resume, METH_NOT_FOUND,\n            \"Method '%s' not found\", s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654648	654753	
==>}))\n        real_exception(interpreter, resume, METH_NOT_FOUND,\n            \"Method '%s' not found\", s <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	13897	14169	
==>f);
                        if ( -e $exe_f ) {
                            run_command($exe_f,
                                        CD     => $path_to_parrot,
                                        STDOUT => $out_f,
                                        STDERR => $ou <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	1684	1867	
==>imize

     B1: sub x, 1
         goto S0
     B2: sub x, 1
         goto B1
     B3: sub x, 1
         goto B2

 to

     B1: sub x, 1
         goto S0
     B2: sub x, 2
         goto <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	12467	12589	
==>LT => -11
	},
	{#State 5
		DEFAULT => -28,
		GOTOS => {
			'rulename' => 18
		}
	},
	{#State 6
		DEFAULT => -26
	},
	{#Stat <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35707	35809	
==>ill exit with how many failed.  If
you run less (or more) tests than you planned, the missing (or extra <==
3	/Users/nnunley/parrot/lib/Test/More.pm	33778	33880	
==>ill exit with how many failed.  If
you run less (or more) tests than you planned, the missing (or extra <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2574	2676	
==>ill exit with how many failed.  If
you run less (or more) tests than you planned, the missing (or extra <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	3021	3130	
==>ral events

 'content_seen',      # whether we've seen any real Pod content
 'errors_seen',       # TODO: docu <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6295	6392	
==>]/$type[CURR] source line $sourceline";
	goto UNK;

BARE:	# Check for user-subroutine
	if (usersub <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	46877	46973	
==>================================

sub filter {
  my($class, $source) = @_;
  my $new = $class->ne <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	6162	6262	
==>put of your test program.

=back


=head1 AUTHORS

Idea by Tony Bowden and Paul Johnson, code by Mich <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	893	1005	
==>ler> argument pair, the harness will run the tests
with C<perl>.  If you I<do> pass the pair, the harness will ru <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76712	76815	
==>\d+/
	    && $::RD_TRACE>1
	    && $::RD_TRACE+10<length($_[0]))
	{
		my $count = length($_[0]) - $::RD_ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77023	77126	
==>\d+/
	    && $::RD_TRACE>1
	    && $::RD_TRACE+10<length($_[0]))
	{
		my $count = length($_[0]) - $::RD_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82011	82317	
==>piler\");\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82905	83211	
==>piler\");\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	7799	7979	
==>->{label} : $_ } @{ $_->{args} || [] });
            }
        } @_;
    } else {
        map {
            my $str;
            if ($_->{label}) {
                $str .= "**" if $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714140	714374	
==>E" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 80 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715062	715296	
==>E" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 80 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715985	716219	
==>E" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 80 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	4502	4621	
==>}
      } else {
        DEBUG > 5 and print "# It's a code-line.\n";
        $code_handler->(map $_, $line, $self->{'li <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	3782	3890	
==>finitions {
    # In function definitions, the name starts in column 0, with the
    # return type on the pre <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	32119	32216	
==>ings.  Instead, this function edits $?
directly.  It should ONLY be called from inside an END bloc <==
3	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	1858	1974	
==>tution_len:   m/[0-9]+/
                  { $::substitution_len = $item[1] }

# length is known from the line above
n <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3565	3680	
==>, $type, $num, $op) = @_;

    #print STDERR "pbcc: map_arg($type, $num)\n";

    die "Unrecognized type '$type' for <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	313391	313501	
==>x), &info);\n  {{\@1}} = string_from_cstring(interpreter, info.file, 0);\n  {{+=2}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671950	672195	
==>> "inline",
                  "CODE" => 752,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 420 \"src/ops/pmc.ops\"\n    {{\@1}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1757	1925	
==>,
                  "TYPE" => "inline",
                  "CODE" => 0,
                  "ARGS" => [],
                  "BODY" => "#line 50 \"src/ops/core.ops\"\n  {{=0 <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	220	314	
==>ctly
my @static_cmds  = pir_cmds_in_dir($static_dir);
# subroutines that generate the PIR for T <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8337	8475	
==>>		and	print STDERR "Back to state $$stack[-1][0], then ";

                $$check eq 'ERROR'
            or  do {
#DBG>				$debug & 0 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7957	8091	
==>>		and	print STDERR "Back to state $$stack[-1][0], then ";

                $$check eq 'ERROR'
            or  do {
#DBG>				$debug & 0 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1186	1309	
==>$x = { %$x };
    }
     # otherwise leave it.
  }

  return bless $new, $class;
}

# Not much in this class is likely to be <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359390	359568	
==>) {\n    PIO_putps(interpreter, PIO_STDERR(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360138	360316	
==>) {\n    PIO_putps(interpreter, PIO_STDERR(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360908	361086	
==>) {\n    PIO_putps(interpreter, PIO_STDERR(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735183	735413	
==>" => "#line 139 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735919	736149	
==>" => "#line 139 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	129	215	
==>oundation.
# $Id: /parrot/tools/dev/run_indent.pl 19607 2006-05-30T15:23:20.183054Z cok <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	36113	36237	
==>l tests successful
    255                 test died
    any other number    how many failed (including missing or extras)

I <==
3	/Users/nnunley/parrot/lib/Test/More.pm	34184	34308	
==>l tests successful
    255                 test died
    any other number    how many failed (including missing or extras)

I <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2979	3103	
==>l tests successful
    255                 test died
    any other number    how many failed (including missing or extras)

I <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	8183	8283	
==>ons in
Test::More.

$name is always optional.

=over 4

=item B<ok>

  $Test->ok($test, $name);

Your <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	1942	2030	
==>str($$textref, $extrapos, $extralen)."\n" : "";
		eval {substr($$textref,$_[4],$_[1]+$_[5 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9511	9615	
==>after 3
for t=1 to 10 step 0.5
print t,
print sqr(t),
if t=3 then print "True!"
next t


' Expect OK
if 2 <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	551	655	
==>y $out_f     = Parrot::Test::per_test('.out',$count);
    my $parrotdir = dirname $self->{parrot};

    m <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	588	692	
==>y $out_f     = Parrot::Test::per_test('.out',$count);
    my $parrotdir = dirname $self->{parrot};

    m <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	5166	5264	
==>int 6-abs(-6)


' Some register confusion, expect .PTFCDR
Dim c(10), a$(10), u(10)
510 FOR I = 0 TO <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	1886	1987	
==>unused.

C<$resources> should be the relative path from the page to
F<docs/resources>, the image and C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	990840	991145	
==>GS" => [
                              "i",
                              "i",
                              "s",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_fin <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7390	7561	
==>en;

                unpack('A1',$lhs) eq '@'    #In line rule
            and do {
                    $lhs =~ /^\@[0-9]+\-([0-9]+)$/
                or  die "In line <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7049	7215	
==>en;

                unpack('A1',$lhs) eq '@'    #In line rule
            and do {
                    $lhs =~ /^\@[0-9]+\-([0-9]+)$/
                or  die "In line <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24835	24942	
==>e_close_paren;
      }

      $self->require_semicolon;

      my $ctl = Jako::Construct::Statement::LoopCon <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714524	714624	
==>hon.ops\"\n  STRING * const s = {{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (s && str <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715447	715547	
==>hon.ops\"\n  STRING * const s = {{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (s && str <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8491	8592	
==>If destination is a register then it is up to the SRM to do the store.
	# Otherwise, there's nothing t <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6311	6412	
==>If destination is a register then it is up to the SRM to do the store.
	# Otherwise, there's nothing t <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5226	5327	
==>If destination is a register then it is up to the SRM to do the store.
	# Otherwise, there's nothing t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819755	820027	
==>erpreter, entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820715	820987	
==>erpreter, entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	117	216	
==>ernhard  $

=head1 NAME

Parrot::Docs::Item - Documentation item

=head1 SYNOPSIS

    use Parrot::D <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	8322	8428	
==>rp::croak "Can't open $_[0]: $!";
      $handle = *PODSOURCE{IO};
    }
    $self->{'source_filename'} = $_ <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8557	8661	
==>aracter{'quot'}   = '"';
  $Name2character{'amp' }   = '&';
  $Name2character{'apos'}   = "'";
  $Name2ch <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	37571	37665	
==>the actual opening tag that was matched (I<not> the pattern
that matched the tag). For example, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352291	352397	
==>rc/ops/io.ops\"\n  PIO_printf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352949	353055	
==>rc/ops/io.ops\"\n  PIO_printf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	536	627	
==>opment versions of Parrot, i.e. the
file F<DEVELOPING> exists. Releases include a non-dynami <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	4754	4917	
==>s ($jit_cpu) {
                # no address of
                $asm =~ s/&([INSP])REG/$1REG/g;
                $asm =~ s/&CONST/CONST/g;
                # Use the m <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	12806	12911	
==>rog if $path;
    }

    return;
}

=item C<_slurp($filename)>

Slurps C<$filename> into memory and return <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11301	11397	
==>$e_node->label);
  unless(defined $text) {
    print "Unknown E sequence \"", $e_node->label, "\" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	795	903	
==>block->push_content($self);

  return $self;
}

sub ident  { return shift->{IDENT};  }


#
# compile()
#

sub <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	795	903	
==>block->push_content($self);

  return $self;
}

sub ident  { return shift->{IDENT};  }


#
# compile()
#

sub <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	927	1030	
==>fn seg defdbl defint deflng defsng defstr
				dim do loop double draw
			else elseif end endif environ e <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6270	6412	
==>_libs);
}

sub modtime {
    my $ago = (-M shift);

    if (defined $ago) {
        return $NOW - $ago;
    } else {
        return;
    }
}

s <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6481	6623	
==>_libs);
}

sub modtime {
    my $ago = (-M shift);

    if (defined $ago) {
        return $NOW - $ago;
    } else {
        return;
    }
}

s <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	22995	23127	
==>t_no);
            my $pdb_f = per_test('.pdb', $test_no);
            my $ilk_f = per_test('.ilk', $test_no);

            open my $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	866925	867192	
==>line",
                  "CODE" => 984,
                  "ARGS" => [
                              "s",
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 232 \"src/ops/string.ops\"\n <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3940	4043	
==>prm);
		$$outhash{$prm}=$value;
	}
	for (@$mandatory) {
			exists($$outhash{$_})
		or	croak("Missin <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3742	3840	
==>prm);
		$$outhash{$prm}=$value;
	}
	for (@$mandatory) {
			exists($$outhash{$_})
		or	croak("Missin <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6636	6772	
==>= rulesub(target)

            unless match goto match_fail
          match_success:
            print "matched"
            goto match_e <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7654	7789	
==>= rulesub(target)
            unless match goto match_fail
          match_success:
            print "matched"
            goto match_e <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3187	3290	
==>$dest);
}

sub output_ge {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_test('>=', $val1, <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6463	6571	
==>IC}_LOOP_EXIT
    dec i
    j = P_arg_0[i]
    ${ITEMP0} = ${NEXTPC} + j
    prop_type_state[${ITEMP0}] = ${S <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4401	4509	
==>IC}_LOOP_EXIT
    dec i
    j = P_arg_0[i]
    ${ITEMP0} = ${NEXTPC} + j
    prop_type_state[${ITEMP0}] = ${S <==
3	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	792	877	
==>kenize.pasm"
.include "basicvar.pasm"
.include "basic.pasm"
.include "instructions.pas <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2542	2642	
==>tual argument (%s)!", ref $args[$i])
      unless defined $actual_arg_type;

    if ($formal_arg_type <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2242	2342	
==>tual argument (%s)!", ref $args[$i])
      unless defined $actual_arg_type;

    if ($formal_arg_type <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	17035	17128	
==>as hit
the end of the document.

=item $parser->unget_token( $token )

=item $parser->unget_to <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	513797	514117	
==>"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 592,
                  "ARGS" => [
                              "n",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 708 \"src/ops/ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23028	23131	
==>ast '
		. ($self->{"lookahead"}<0?'if':'unless') . ' defined $_tok;
		push @item, '.($::RD_NO_HITEM ? '' <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25407	25495	
==>r
@stepcode
	FORLOOP_STEP_$forloop= $stepexpr
FOR_$forloop:
	gt FORLOOP_STEP_$forloop, 0. <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	5985	6177	
==>urn;
            s/^.//
                and last;
        }
    }
}

sub _Lexer {
    my $parser = shift;

    while (1) {
        $parser->YYData->{INPUT}
            or $parser->Y <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28080	28202	
==>anchIfOp( $parser,
        'arg1'   => $cond->[0],
        'result' => $l_break,
    );
    push @opcodes, new BranchOp <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4669	4761	
==>e other I<special> PMCs:
F<default>, C<delegate>, C<Null>, C<Ref> or C<SharedRef>.

C<$opt> i <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5166	5276	
==>hift;
	my $pir = "";

	# If the register name to load from was supplied, we need to generate
	# the name of the <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7266	7364	
==>wer"
a$="   Flush   "
print ">";ltrim$(a$)
print rtrim$(a$);"<"
' A's and -'s
print string$(10,75-1 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18995	19093	
==>wer"
a$="   Flush   "
print ">";ltrim$(a$)
print rtrim$(a$);"<"
' A's and -'s
print string$(10,75-1 <==
3	/Users/nnunley/parrot/config/auto/byteorder.pm	114	209	
==>110975Z coke  $

=head1 NAME

config/auto/byteorder.pm - Native Byteorder

=head1 DESCRIPTION

C <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63206	63298	
==>tchrule and $rule and $rule->addcall($name);

						_check_insatiable($name,$1,$grammar,$line <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63927	64019	
==>tchrule and $rule and $rule->addcall($name);

						_check_insatiable($name,$1,$grammar,$line <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10991	11090	
==>ile") or die "Can't read $infile: $!\n";
    open (OUT, ">$outfile") or die "Can't write $outfile: $ <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11475	11574	
==>ile") or die "Can't read $infile: $!\n";
    open (OUT, ">$outfile") or die "Can't write $outfile: $ <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11939	12038	
==>ile") or die "Can't read $infile: $!\n";
    open (OUT, ">$outfile") or die "Can't write $outfile: $ <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	434	546	
==>$value1, $key2 => $value2);
    my @keys = $data->keys;
    my $serialized = $data->dump;
    $data->clean;
    $ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	7663	7767	
==>};
    return('no_plan') if $self->{No_Plan};
    return(undef);
};


=item B<skip_all>

  $Test->skip_al <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3147	3245	
==>n unless $_[0]{'Errata_seen'};
  my $self = shift;
  if(Pod::Simple::ASCII) {
    $self->{'Thispara <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080274	1080447	
==>",
                              "k"
                            ],
                  "BODY" => "#line 145 \"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081339	1081512	
==>",
                              "k"
                            ],
                  "BODY" => "#line 145 \"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= inte <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3230	3337	
==>$name = $op->value if defined $op;
    $name =~ s/(^")|("$)//g; # Delete leading and trailing quotes;

    $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1027540	1027661	
==>{
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT",
                  "NAME" => "slee <==
3	/Users/nnunley/parrot/config/init/hints/openbsd.pm	545	641	
==>t('-', $Config{archname}))[0] eq 'powerpc') {
		$conf->data->set(as => 'as -mregnames');
	}

}

1 <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	889	1070	
==>%{$_[0]};
            }
            elsif( $type eq 'ARRAY' ) {
                @$data = @{$_[0]};
            }
            elsif( $type eq 'SCALAR' ) {
                $$data = ${$ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7056	7172	
==>p . " <rx_stack>, -1 # pushmark";
    return @ops;
}

sub output_pushindex {
    my ($self, $reg) = @_;
    $reg = va <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	567	660	
==>t::IO::File );

use Pod::Simple::Checker;
use Parrot::Docs::POD2HTML;

my $UNDEFINED = 'Undefi <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10161	10287	
==>k = shift;
    my $to = $link->attr('to');
    my $section = $link->attr('section');
    
    return unless
        ( defined $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	359	460	
==>se Jako::Compiler;

use base qw(Jako::Construct::Block);

sub kind { return 'module'; }

sub new
{
  m <==
3	/Users/nnunley/parrot/lib/Test/More.pm	32253	32347	
==>n.
While the order of elements does not matter, duplicate elements do.

Test::Deep contains muc <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	4723	4853	
==>EXT} = $short_desc;
    }
    
    if ( $self->{TEXT} )
    {
        $index_html .= "$self->{TEXT}<br>\n";
        $index_html = ' <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	2303	2427	
==>~ m[/]) ? "$inc" : "$destdir/$inc";

                #move_if_diff("$inc.tmp", "$destdir/$inc");
                #push(@gener <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	18316	18436	
==>sx) {
			$label = $+;
		}
		else {
			$label = "";
		}
		my $extrapos = pos($$textref);
		$$textref =~ m{.*\n}gc;
		$str1 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36662	36805	
==>71,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -67
	},
	{#State 142
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"< <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	4444	4555	
==>NATIVECODE/jit_info->native_ptr/g;
            $asm =~ s/CUR_OPCODE/jit_info->cur_op/g;
            $asm =~ s/cu <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4219	4323	
==>= concat "push s, "
${INS} = concat ${DEST0}
${INS} = concat "\n"
PIR
	} else {
		# Translator needs to e <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19716	19894	
==>to lastback
#                 $matchcount--
#                 goto R.back
#           back: if $matchcount >= max goto rfail
#                 R or rfail
#                 $matchc <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19418	19586	
==>to lastback
#               $matchcount--
#               goto R.back
#         back: if $matchcount >= max goto rfail
#               R or rfail
#               $matchc <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9684	9780	
==>C<full_arguments($args)>

Prepends C<INTERP, SELF> to C<$args>.

=cut

sub full_arguments {
    m <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33916	34030	
==>p;
    }
    push @opcodes1, @opcodes2, @opcodes3;
    my $lbl_loop = new_label($parser);
    push @opcodes1, n <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6190	6286	
==>E=1
FALSE=0
DIM A$(4)
A$(1) = "New York"
A$(2) = "Boston"
A$(3) = "Chicago"
A$(4) = "Seattle"
Max <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15843	15939	
==>E=1
FALSE=0
DIM A$(4)
A$(1) = "New York"
A$(2) = "Boston"
A$(3) = "Chicago"
A$(4) = "Seattle"
Max <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184995	185174	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 285 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  } <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	593	707	
==>tance =~ /\D/) {
        die "Unimplemented: variable-length advances with rx backend";
    } else {
        return <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1270	1373	
==>YVERSION => '',
			 YYRULES => 'ARRAY', YYSTATES => 'ARRAY', YYDEBUG => '');
#Mandatory parameters
my <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1227	1327	
==>YVERSION => '',
			 YYRULES => 'ARRAY', YYSTATES => 'ARRAY', YYDEBUG => '');
#Mandatory parameters
my <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5019	5115	
==>TOKEN', 'VALUE', 'STACK', 'CHECK', 'DOTPOS' };

#DBG>	my($debug)=$$self{DEBUG};
#DBG>	my($dbge <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4776	4869	
==>TOKEN', 'VALUE', 'STACK', 'CHECK', 'DOTPOS' };

#DBG>	my($debug)=$$self{DEBUG};
#DBG>	my($dbge <==
3	/Users/nnunley/parrot/lib/Test/More.pm	21201	21334	
==>sts are in the block"
          unless $Test->has_plan eq 'no_plan';
        $how_many = 1;
    }

    for( 1..$how_many ) {
        $ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	23631	23764	
==>sts are in the block"
          unless $Test->has_plan eq 'no_plan';
        $how_many = 1;
    }

    for( 1..$how_many ) {
        $ <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	6547	6666	
==>ails
	for ($i = $n; @{$def_args{$arg}}; $i--) {
	    my $reg = 4 + $i;
	    my $d = pop @{$def_args{$arg}};
	    my $arg <==
3	/Users/nnunley/parrot/config/init/defaults.pm	564	679	
==>mize profile verbose prefix);

sub runstep
{
    my ($self, $conf) = @_;

    # We need a Glossary somewhere!
    $c <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	4138	4251	
==>turns the new
# absolute position.
#

sub back
{
  my $self = shift;
  my ($offset) = @_;

  $offset = 1 unless de <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7827	7924	
==>d not happen (string)"
i%=0
if i% then print "Should not happen (int)"
i%=54
if i% then print "Thi <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14814	14911	
==>d not happen (string)"
i%=0
if i% then print "Should not happen (int)"
i%=54
if i% then print "Thi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12722	12815	
==>wise = Jako::Construct::Statement::Bitwise->new($block, $ident, $ident, $op, $value);
      ne <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	36416	36540	
==>rbatim';
        $para_type = '?Verbatim';
      } elsif($para_type eq '~Para') {
        $para->[0] = 'Para';
        $para_ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	28095	28190	
==>elf->_generate($node->{children}[1]);
  $self->_add_inst('',           'gt', [$return,0,"DONE_$l <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10467	10632	
==>$state = 0;
    my $depth = 0;
    for my $c (split(//, $data)) {
        if ($state == 0) {
            if ($c eq '\\') {
                $state = 1;
            } e <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6590	6719	
==>@identifiers, $ident;
        last unless $self->skip_comma;
      }

      my $value;

      if ($self->skip_assign) {
        $v <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	638	746	
==>ine, 'bof', undef, '__BOF__');
}

sub new_eof
{
  my $class = shift;
  my ($file, $line) = @_;

  return $cla <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843278	843612	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844156	844490	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845034	845368	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511534	511775	
==>,
                  "CODE" => 589,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 685 \"src/ops/math.ops\"\n  {{\@1}} = - {{ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2263	2358	
==>ACK$register_num} = ${STEMP0}

# Decrement stack height.
dec stack_depth
PIR
		$pir =~ s/\$regis <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3515	3610	
==>ACK$register_num} = ${STEMP0}

# Decrement stack height.
dec stack_depth
PIR
		$pir =~ s/\$regis <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501000	501224	
==>1 \"src/ops/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501739	501963	
==>1 \"src/ops/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3658	3758	
==>e($_ . "_ops$core_suffix") foreach (@oplibs);
	}
} 
elsif ($mode eq 'linklibs') {
	# Convert X.o -> X <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488092	488347	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	489485	489740	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	1091	1201	
==>-ftest-coverage\"");
    system("make");

    # Now run the tests
    system("make fulltest");
}

# And generat <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3620	3731	
==>\n";
        }
    }
} 
elsif ($mode eq 'compile') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3724	3835	
==>\n";
        }
    }
} 
elsif ($mode eq 'compile') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = <==
3	/Users/nnunley/parrot/languages/regex/regex.pl	1952	2057	
==>it;
} elsif ($operation eq 'dump') {
    print $_->dump_tree(), "\n" foreach (@$trees);
    exit;
}

local <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042928	1043071	
==>E_set_pmc_keyed_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043825	1043968	
==>E_set_pmc_keyed_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	1140	1264	
==>)!\nAborting";
  }
  if(defined &UNICODE) { }
  elsif($] >= 5.008)   { *UNICODE = sub() {1}  }
  else                 { *UNIC <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10564	10682	
==>ror}, undef ]);

    }

    #never reached
	croak("Error in driver logic. Please, report it as a BUG");

}#_Pars <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10092	10203	
==>ror}, undef ]);

    }

    #never reached
	croak("Error in driver logic. Please, report it as a BUG");

}#_Pars <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4343	4448	
==>}
    return pmc;
}

EOC
}

=back

=head2 Class Methods

=over

=item C<new($self, $opt)>

Returns C<$self <==
3	/Users/nnunley/parrot/config/inter/lex.pm	2013	2134	
==>back to default
        $self->set_result('no');
        return $self;
    }

    # if '--version' returns a string assume <==
3	/Users/nnunley/parrot/config/inter/make.pm	1887	2008	
==>back to default
        $self->set_result('no');
        return $self;
    }

    # if '--version' returns a string assume <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	2027	2148	
==>back to default
        $self->set_result('no');
        return $self;
    }

    # if '--version' returns a string assume <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	53310	53424	
==>\' => '\\\\',
  '$' => '\\$',
  '@' => '\\@',
  '%' => '\\%',
  '#' => '\\#',
);

sub pretty { # adopted from Class <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	4956	5049	
==>>
      <itemData name="Op" defStyleNum="dsNormal" color="#000080" selColor="#ffffff" bold="0" <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	7370	7468	
==>ems;
    if (needs_build("$group$LOAD_EXT", @sources)) {
        run(partial_link_cmd("$group$LOAD_ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7581	7679	
==>ems;
    if (needs_build("$group$LOAD_EXT", @sources)) {
        run(partial_link_cmd("$group$LOAD_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722484	722760	
==>terpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723513	723789	
==>terpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724557	724833	
==>terpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488960	489335	
==>e",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 560,
                  "ARGS" => [
                              "i",
                              "n"
                            ],
                  "BODY" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752792	752878	
==>/ops/set.ops\"\n  {{\@1}}->vtable->assign_pmc(interpreter, {{\@1}}, {{\@2}});\n  {{+=3} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841620	841843	
==>\n  {{\@1}} = string_ord(interpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842384	842607	
==>\n  {{\@1}} = string_ord(interpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	24861	24956	
==>push @{$thisparser->{errors}}, [qq{'.$self->{msg}.'},$thisline];'; 
		} else {
			$action .= 'pu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805906	806106	
==>",
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 497 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_int <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	5077	5182	
==>t file's
documentation file.

=cut

sub process_file_start_token
{
    my $self = shift;
    my $token = s <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr3.pm	502	596	
==>st::per_test( '_antlr3.pir', $count );

    return ( "java Bc languages/${lang_fn} languages/${ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35904	36001	
==>and exit with 255.  If the test died, even after
having successfully completed all its tests, it w <==
3	/Users/nnunley/parrot/lib/Test/More.pm	33975	34072	
==>and exit with 255.  If the test died, even after
having successfully completed all its tests, it w <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2770	2867	
==>and exit with 255.  If the test died, even after
having successfully completed all its tests, it w <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1759	1864	
==>efix}_LAST:");
  }
  else {
    $self->INTERNAL_ERROR("Unrecognized kind of block '%s'", $kind);
  }

  re <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	5075	5198	
==>_nongreedy_plus($op, $R, @rest);
        }
    } else {
        if ($greedy) {
            return $self->rewrite_greedy_rang <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	19983	20091	
==>cond_arg = $op =~ /s|tr|y/ ? 1 : 0;
	if ($second_arg)
	{
		my ($ldel2, $rdel2);
		if ($ldel1 =~ /[[(<{]/)
		{ <==
3	/Users/nnunley/parrot/examples/benchmarks/stress.pl	614	699	
==>=head1 SEE ALSO

F<examples/benchmarks/stress.pasm>, 
F<examples/benchmarks/stress1.pa <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	32155	32319	
==>t' => $iter,
            'arg1'   => $expr->[0],
        );
        $expr = shift @{$exprs};
    }
    my $state = new_tmp( $parser, 'pmc' );
    push @opcodes <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10692	10810	
==>);
        $section = $self->unicode_escape_url($section);
        # Turn char 1234 into "(1234)"
        $section = '_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4073	4180	
==>);
    $section = $self->unicode_escape_url($section);
     # Turn char 1234 into "(1234)"
    $section = '_ <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	1944	2113	
==>self->set_result('yes');

            $conf->data->set(
                gmp     => 'define',
                HAS_GMP => $has_gmp,
            );
        }
    }
    unles <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	5335	5490	
==>ext;
      $scratch =~ tr/\t\cb\cc/ /d;
      
      $self->{'no_proofing_exemptions'} or $scratch =~
       s/(?:
           ^
           |
           (?<= <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	17353	17448	
==>nd {
	$_=pop(@whiles);
	$_=$_->{jump};
	push @{$code{$seg}->{code}}, <<LOOPUP;
	goto WHILE_$_
AF <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613404	613763	
==>classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 695,
                  "ARGS" => [
                              "p",
                              "sc" <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1429	1548	
==>{
          $path_to_language = '.';
        } elsif ($dir_count >2) {
          $path_to_language = File::Spec->join(Fi <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1914	2033	
==>{
          $path_to_language = '.';
        } elsif ($dir_count >2) {
          $path_to_language = File::Spec->join(Fi <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41946	42078	
==>DEFAULT => -4,
		GOTOS => {
			'block' => 192,
			'chunk' => 57
		}
	},
	{#State 182
		ACTIONS => {
			"-" => 72,
			".." => <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3461	3563	
==>,
    "\n\n"
  ;
  $self->{'Thispara'} = '';
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2991	3093	
==>,
    "\n\n"
  ;
  $self->{'Thispara'} = '';
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12017	12125	
==>ewhere down the line, with
        # Parrot/PackFile/ConstTable.pm.html being turned into
        # Parrot/Pa <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	4728	4829	
==>'new',[$return,'.String']);
      $self->_add_inst ('', 'set',[$return,"\"$value\""]);
    }
  }
  els <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	48330	48456	
==>arameters, not: @_"
   unless @_ == 2;

  my(@out);
  
  while( @_ ) {
    my $parser = $class->new;

    push @out, '';
    $p <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33586	33695	
==>,
		"implicit"  => $_[4] || undef,
		"matchrule" => $_[5],
		"argcode"   => $_[6] || undef,
	}, $class;
}


su <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	330	431	
==>in
the F<*.pmc> or F<*.c> files that correspond to the F<*.o> files passed
on the command line.

    % <==
3	/Users/nnunley/parrot/Configure.pl	4518	4621	
==>FLUSH = 1;

# Handle options
my %args;
for (@ARGV) {
  my($key, $value) = m/--([-\w]+)(?:=(.*))?/;
  $ke <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	2729	2839	
==>ltins' ]
        
.sub '$cmd'
  .param int register
  .param pmc argv

  .local pmc compiler
  .get_from_HLL(co <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	9566	9661	
==>]);
  $self->_restore($true);

  $self->_add_inst("FALSE_$label");
  my $false = $self->_generat <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	64	153	
==>rrot/Docs/Section/Tools.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Par <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2575	2690	
==>aLibs =~ s/blib/..\\blib/g;
        $extraLibs =~ s/\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } els <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2884	2999	
==>aLibs =~ s/blib/..\\blib/g;
        $extraLibs =~ s/\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } els <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2679	2794	
==>aLibs =~ s/blib/..\\blib/g;
        $extraLibs =~ s/\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } els <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	7840	7977	
==>verage</th>
                  <th>Call Coverage</th>
                </tr>
    );
    
    foreach my $source_file (sort keys %file_line_c <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	1761	1850	
==>expected result is false.

=item C<pasm_output_is($code, $expected, $description)> or C<ou <==
3	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	785	871	
==>ude "tokenize.pasm"
.include "basicvar.pasm"
.include "basic.pasm"
.include "instructio <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	355	448	
==>parisons.

Calculates a value for M ops/s (million operations per second) using
integer arithm <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	351	444	
==>parisons.

Calculates a value for M ops/s (million operations per second) using
integer arithm <==
3	/Users/nnunley/parrot/lib/File/Which.pm	5127	5219	
==>ions

=head2 which($short_exe_name)

Exported by default.

C<$short_exe_name> is the name use <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343715	344137	
==>" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 402,
                  "ARGS" => [
                              "p",
                              "s",
                              "s"
                            ],
                  "BODY" => "#lin <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	1767	1960	
==>o_source();
}

exit(0);

##############################################################################

sub do_source {

    if ($files[0] eq "all_source") {
        # do a little "find" action <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1665	1764	
==>";

    return "cur_opcode = $addr;\ngoto switch_label";
}

=item C<expr_offset($offset)>

An offset <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	13134	13248	
==>ame : p->info->name))
            return p->info - ${bs}op_lib.op_info_table;
    }
    return -1;
}
static void ho <==
3	/Users/nnunley/parrot/lib/Parrot/Revision.pm	58	150	
==>lib/Parrot/Revision.pm 19602 2006-05-30T13:40:58.862833Z coke  $

=head1 NAME

Parrot::Revisi <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	409	518	
==>$output, $desc) = @_;
  
    my $count = $self->{builder}->current_test + 1;

    my $lang_f    = Parrot::Test <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	447	556	
==>$output, $desc) = @_;
  
    my $count = $self->{builder}->current_test + 1;

    my $lang_f    = Parrot::Test <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11057	11152	
==>PE_STRING = 0x0E
	.const int ELEMENT_TYPE_PTR = 0x0F
	.const int ELEMENT_TYPE_BYREF = 0x10
	.con <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	810	928	
==>$op->{args} }) {
        my $arg = $op->{args}->[$i];
        push(@indices, $i) if is_label($arg);
    }
    return @i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738164	738271	
==>rc/ops/set.ops\"\n  {{\@1}} = string_to_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738928	739035	
==>rc/ops/set.ops\"\n  {{\@1}} = string_to_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	1854	1988	
==>ie "Can't write $inc.tmp";
                print INC "/*\n" if $inc =~ /\.h/;
                print INC <<"EOF";
# DO NOT EDIT THIS FIL <==
3	/Users/nnunley/parrot/languages/javascript/bootstrap.pm	110	220	
==>me->create_context();

$context->bind_function(
	name =>	"snarf",
	func => sub { 
              my $file = shif <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	5483	5588	
==>sleftmost($$)
{
	my ($self, $ref) = @_;

	my $prod;
	foreach $prod ( @{$self->{"prods"}} )
	{
		return 1 i <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10938	11031	
==>ype, need to supply a ${DEST0}.
${ITEMP0} = ${PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOI <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8124	8217	
==>ype, need to supply a ${DEST0}.
${ITEMP0} = ${PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOI <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5786	5879	
==>ype, need to supply a ${DEST0}.
${ITEMP0} = ${PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946316	946589	
==>@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956762	957035	
==>@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find <==
3	/Users/nnunley/parrot/lib/Test/More.pm	9055	9171	
==>the regex C<qr/that/>.

So this:

    like($this, qr/that/, 'this is like that');

is similar to:

    ok( $this =~ / <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	722	827	
==>put is charclass, advance 1
# O (start, n) : mark start of n-th paren match
# O (end, n) : mark end of n-t <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	6059	6187	
==>ould do @output = (), but I hate doing a
                 # compiler's work for it.
    my $keeping = 1;
    foreach my $stmt (@o <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	5766	5882	
==>oot set */
    interpreter->pmc_reg.registers[0] = userargv;

    for (i = 0; i < argc; i++) {
        /* Run through <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	7033	7132	
==>ed
sub find_op_number {
    my ($opname, $experimental) = @_;
    if (exists $ParrotOps::optable{$op <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	2323	2449	
==>rray.

=cut

sub vtbl_defs {
    my $vtable = shift;

    my $defs = q{};
    my $entry;

    for $entry (@{$vtable}) {
    nex <==
3	/Users/nnunley/parrot/lib/Test/More.pm	26179	26303	
==>) = @_;

    my $var = '$FOO';
    my $did_arrow = 0;
    foreach my $entry (@Stack) {
        my $type = $entry->{type} || ' <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	19716	19833	
==>, %pmcs )
        ->write_all_files;
}

=head2 gen_def( [$dir1, $dir2], \%pmc )

Generate a .def file for symbols to e <==
3	/Users/nnunley/parrot/examples/benchmarks/addit.pl	694	800	
==>[3] = "3.87";
$args[4] = "21000000";
for (my $x = 500000; $x >= 0; --$x) {
    $result = varargs_adder(@arg <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	19324	19428	
==>t @stack) {
    DEBUG > 3 and print " Considering children of this $treelet->[0] node...\n";
    for($i = <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	21967	22071	
==>t @stack) {
    DEBUG > 3 and print " Considering children of this $treelet->[0] node...\n";
    for($i = <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21846	21983	
==>uctor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 68
		ACTIONS => {
			"^" => 79
		},
		DEFAULT => -73
	},
	{#S <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32930	33041	
==>) . '$_tok;
		' . ($self->{"lookahead"} ? '$text = $_savetext;' : '' ) .'
';

	return $code;
}

1;

package Pars <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	30679	30776	
==>s up to four scalars (the input text, the
delimiters, a prefix pattern to be skipped, and any esca <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	2566	2667	
==>x;
  my $suffix = $block_types{'while'}{uc $kind};

  my $label = "${prefix}_${suffix}";

  if (!defin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365233	365325	
==>03 \"src/ops/io.ops\"\n  if ({{\@2}} && {{\@1}}) {\n    PIO_putps(interpreter, {{\@1}}, {{\@2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366073	366165	
==>03 \"src/ops/io.ops\"\n  if ({{\@2}} && {{\@1}}) {\n    PIO_putps(interpreter, {{\@1}}, {{\@2 <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32326	32431	
==>these will be out by one - NWC
    my $l = $self->line_directive($line, "ref.c");
    return <<EOC;
$l
$de <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40948	41053	
==>these will be out by one - NWC
    my $l = $self->line_directive($line, "ref.c");
    return <<EOC;
$l
$de <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	19329	19436	
==>ack) {
    DEBUG > 3 and print " Considering children of this $treelet->[0] node...\n";
    for($i = 2; $i < <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	21972	22079	
==>ack) {
    DEBUG > 3 and print " Considering children of this $treelet->[0] node...\n";
    for($i = 2; $i < <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	735	840	
==>} == 0 goto SRM_LMKILL_EXIT$suffix
    dec ${ITEMP0}

    # Get register that we'll want to place stuff in <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	4552	4673	
==>ush @rules, $rule;
    }

    # Close file and return parsed rules.
    close $fh;
    return @rules;
}


# Rule validator <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	17426	17543	
==>LLY_START:

    # Goto next handler.
    goto EH_LOOP
END_EH_LOOP:
PIRCODE

    # Return generated code.
    return $p <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	10654	10761	
==>nterpreter, self, parameters...)
    my $ret = $calltype{$type or "void"};
    $ret .= "JO";
    $ret .= joi <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	25003	25110	
==>y $elements_one;
    $elements_one = defined($3) ? $3 : $1;

    DEBUG > 2 and print "Extensor has good synt <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	528	634	
==>ew section.

=cut

sub new
{
	my $self = shift;
	my $dist = Parrot::Distribution->new;
    my $dir = $dist- <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	2164	2267	
==>ATCHING A SIMPLE DELIMITED STRING

sub gen_delimited_pat($;$)  # ($delimiters;$escapes)
{
	my ($dels, $e <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	19271	19400	
==>= $language_test_map{$func};
            if ( my $prefix = $builtin_language_prefix{$language} ) { 
                my $level = $b <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3693	3795	
==>eq 'module';

      my %module_props = $self->block->props;

      $self->SYNTAX_ERROR("Sub declaration <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6357	6459	
==>eq 'module';

      my %module_props = $self->block->props;

      $self->SYNTAX_ERROR("Sub declaration <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4966	5060	
==>k,$check,$dotpos)
     = @$self{ 'ERRST', 'NBERR', 'TOKEN', 'VALUE', 'STACK', 'CHECK', 'DOTPOS <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4724	4817	
==>k,$check,$dotpos)
     = @$self{ 'ERRST', 'NBERR', 'TOKEN', 'VALUE', 'STACK', 'CHECK', 'DOTPOS <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	7098	7190	
==>unt = scalar @{$self->{"prods"}};
	my $opcount = ++$self->{"opcount"};
	return "_operator_${o <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5935	6064	
==>oup}
          or next;
        ($group) = keys %$group;
        $pmc_group{$pmc} = $group;
        push @{ $group_files{$group} } <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6146	6275	
==>oup}
          or next;
        ($group) = keys %$group;
        $pmc_group{$pmc} = $group;
        push @{ $group_files{$group} } <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33317	33416	
==>$$)
{
	if ($_[0]->{"matchrule"})
	{
		return "&{'$_[1]'.qq{$_[0]->{subrule}}}";
	}
	else
	{
		return <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9896	10002	
==>put them into ${PARAMS}. Note that they come
# off the stack last to first, but need to be first to last in <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7410	7516	
==>put them into ${PARAMS}. Note that they come
# off the stack last to first, but need to be first to last in <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6374	6480	
==>put them into ${PARAMS}. Note that they come
# off the stack last to first, but need to be first to last in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247043	247372	
==>UMP" => 0,
                  "NAME" => "and",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247906	248235	
==>UMP" => 0,
                  "NAME" => "and",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	248770	249099	
==>UMP" => 0,
                  "NAME" => "and",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2830	2938	
==>uctions) hooks.
sub pre_op($$) {
	my $self = shift;
	my ($pops, $pushes) = @_;
	my $register_num = 0;
	my $pu <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1752	1860	
==>uctions) hooks.
sub pre_op($$) {
	my $self = shift;
	my ($pops, $pushes) = @_;
	my $register_num = 0;
	my $pu <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	941	1049	
==>uctions) hooks.
sub pre_op($$) {
	my $self = shift;
	my ($pops, $pushes) = @_;
	my $register_num = 0;
	my $pu <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	661	760	
==>roup('Examples', '', 'examples/pir'),
		$self->new_group('Tests', '', 't/compilers/imcc'),
	);
}

=b <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	31	127	
==>This SRM algorithm keeps track of the current stack depth and assigns to
# virtual registers numb <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	31	127	
==>This SRM algorithm keeps track of the current stack depth and assigns to
# virtual registers numb <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	4709	4819	
==>) ? $_[0] : \( $_[0] );
  $$x = '' unless defined $$x;
  DEBUG > 4 and print "# Output string set to $x ($$x)\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653540	653641	
==>_NOT_FOUND,\n            \"Method '%s' not found\", string_to_cstring(interpreter, {{\@3}}));\n    {{= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654701	654802	
==>_NOT_FOUND,\n            \"Method '%s' not found\", string_to_cstring(interpreter, {{\@3}}));\n    {{= <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	977	1108	
==>n. TODO: Need a more generalized way for finding
    # where Fink lives.
    if ($osname =~ /darwin/) {
        if (-f "/sw/include/ <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	1176	1307	
==>n. TODO: Need a more generalized way for finding
    # where Fink lives.
    if ($osname =~ /darwin/) {
        if (-f "/sw/include/ <==
3	/Users/nnunley/parrot/config/auto/readline.pm	1251	1382	
==>n. TODO: Need a more generalized way for finding
    # where Fink lives.
    if ($osname =~ /darwin/) {
        if (-f "/sw/include/ <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	5225	5354	
==>ip $reason", :$depends);
        } else {
            Test::skip $reason, :$depends;
        }
    }
}

sub skip_rest (Str $reason <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10046	10144	
==>$source_file}{$function} %" : "n/a" ]}</a></td>
             <td><a href="$outfile_base.branches.ht <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621219	621311	
==>ctx->caller_ctx;\n    if (src_pc) {\n\tsrc_pred = (void**) src_pc - caller_ctx->pred_offset;\ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	509	618	
==>) = @_;

  $props = { } unless defined $props;
  $args  = [ ] unless defined $args;

  confess("Undefined iden <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2604	2705	
==>>push_content($self);

  return $self;
}

# block handled by superclass?

sub kind  { return shift->{K <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2721	2821	
==>>push_content($self);

  return $self;
}

# block handled by superclass?

sub kind { return shift->{K <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227230	227402	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 530 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228210	228382	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 530 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\ <==
3	/Users/nnunley/parrot/examples/benchmarks/fib.pl	201	298	
==>mark

=head1 SYNOPSIS

    % time perl examples/benchmarks/fib.pl n

=head1 DESCRIPTION

Calculate <==
3	/Users/nnunley/parrot/config/init/hints/os2.pm	205	315	
==>_;

    # This hints file is very specific to a particular os/2 configuration.
    # A more general one would b <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8838	8941	
==>failed = 0;
    $Test::num_of_tests_badpass = 0;
    $Test::num_of_tests_planned = undef;
    $Test::for <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	7760	7855	
==>h = $self->path_for_directory_with_name(shift) || return;
    
    return $self->directory_with_ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	68306	68429	
==>id you misspell \"$1\"
			           or forget to comment it out?");
		}

		if ($lookaheadspec =~ tr /././ > 3)
		{
			$look <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	59749	59840	
==>t context, all the functions return C<(undef,$original_text)>
on failure. In a scalar contex <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	4519	4688	
==>ce' }\n";
            $out .= "    }\n";
            $classes{$name} = $type;
            $got_class = 1;
        }
        else{
            croak "'$type' is not a vali <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	14337	14455	
==>nc
	    # but can't create namespace yet
	    my $gn = "def_arg_" . ($n-$i-1);
	    print <<EOC;
	# $gn $g
	store_globa <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	1180	1299	
==>ict-prototypes} # lots of noise!
EOF
    }

    close CFLAGS;
}

sub makefiles
{
    my ($self, $conf) = @_;

    genfil <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	324	443	
==>ed.

=cut

sub new {
    return bless {};
}

sub output_is() {
    my ($self, $code, $output, $desc) = @_;
  
    my $co <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	362	481	
==>ed.

=cut

sub new {
    return bless {};
}

sub output_is() {
    my ($self, $code, $output, $desc) = @_;
  
    my $co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	690686	690980	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "thaw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691442	691736	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "thaw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	52542	52643	
==>r  _no_rule("<reject:$code>",$line);
			}
			elsif ($grammar =~ m/(?=$SCOREMK)/gco
				and do { ($code <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760705	760996	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setp_ind",
                  "FLAGS" => ": <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761557	761848	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setp_ind",
                  "FLAGS" => ": <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	22868	22982	
==>l = $stack[-1];
    print <<EOC;
    # tuple $tupl->[1] n = $tupl->[0]
EOC
    $n = $tupl->[0];
    UNPACK_SEQUENCE <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	746	853	
==>'),
            $self->new_item('', 'tools/dev/cc_flags.pl'),
            $self->new_item('', 'tools/build/n <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	800	893	
==>B$("Hi Mom!")="interesting"
B$(0)="development.
keys a$(), b$()
i=0
do
	t$=a$(i)
	print t$,
	p <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19239	19353	
==>_ident
      and $self->get(3)->is_open_paren
    ) {
      my $block = $self->current_block();
      my $left = Ja <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9925	10030	
==>t>.

=cut

sub cc_run
{
    my $exe   = $conf->data->get('exe');
    my $slash = $conf->data->get('slash') <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	11703	11800	
==>g syntax:

  cmp_ok('test', &infix:<gt>, 'me', '... testing gt on two strings');

However the `&in <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53515	53632	
==>Directive(
					      'if ($text =~ s/\A[^\n]*\n//) { $return = 0; $& } else { undef }',
					      $lookahead,$line," <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36297	36436	
==>" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -72
	},
	{#State 140
		ACTIONS = <==
3	/Users/nnunley/parrot/config/auto/env.pm	969	1105	
==>();

    $conf->data->set(
        setenv   => $setenv,
        unsetenv => $unsetenv
    );

    if ($setenv && $unsetenv) {
        pri <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	8839	8930	
==>SO

=over 4

=item F<tools/build/jit2c.pl>

=item F<tools/build/pmc2c.pl>

=item F<tools/bui <==
3	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1599	1712	
==>ic const unsigned char parrot_config[] = {
EOF
;

if ($mini_parrot) {
    print "    0\n";
}
else {

    my $image <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627377	627471	
==>re its init method\n   * copies the registers. */\n  {{\@1}} = pmc_new_noinit(interpreter, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628521	628615	
==>re its init method\n   * copies the registers. */\n  {{\@1}} = pmc_new_noinit(interpreter, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452837	453126	
==>i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 519,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 230 \"src/ops/mat <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	24191	24316	
==>2->[0],
    );
    push @opcodes, new LabelOp( $parser,
        'arg1' => $lbl2,
    );
    return [ $result, \@opcodes ] <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8113	8220	
==>int "All is not right"
end if

' Count from 9 to 0, print 5
dim y(10)
i=10
tloop:
	y(i)=i
	i=i-1
	print i
	i <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	10107	10208	
==>}
        $files_in_dir_8dot3{$dirname}{$filename_8dot3}=$_;

        if (exists $files_in_dir_nocase{ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	10123	10217	
==>unction twice(number)
	twice=2*number
end function
a=twice(5)
print a


' Expect -7
t%=-7
print <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1013482	1013675	
==>" => [
                              "i"
                            ],
                  "BODY" => "#line 66 \"src/ops/sys.ops\"\n  {{\@1}} = errno;\n  {{+=2}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	37278	37404	
==>nt for a '/' ...\n";
      for(my $j = 0; $j < @ell_content; ++$j) {
        next if ref $ell_content[$j];
        DEBUG > 3 an <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	3844	3942	
==>return_data;\n    set_nci_S(interpreter, &st, final_destination);",
     );

my %func_call_assign = <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	25517	25621	
==>lush(\*STDOUT);
    _autoflush(\*TESTERR);
    _autoflush(\*STDERR);

    $self->output(\*TESTOUT);
    $ <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	9462	9561	
==>lename, $dirname) = fileparse($_);

        my ($filebase, $extension) = ($filename =~ /^(.*)\.(.*)/ <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	11940	12036	
==>y, initialized by default to C<()>.

With no argument, the accessor returns a reference to the
el <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067816	1068104	
==>,
                  "TYPE" => "inline",
                  "CODE" => 1192,
                  "ARGS" => [
                              "i",
                              "nc",
                              "n"
                            ],
                  "BODY" => "#line 49 \"src/ops/e <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	3757	3916	
==>r
    foreach my $task ($self->steps) {
        my $step_name   = $task->step;
        my @step_params = @{$task->params};

        $n++;

        eval "use $st <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	1018	1119	
==>de suppliers.
$output .= generate_bodies(@methods);

# End of output.
$output .= <<'PIR_OUT';
    # Ge <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2750	2847	
==>ype;
  $self->INTERNAL_ERROR("No type for left!")  unless defined $left_type;
  $self->INTERNAL_ER <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2516	2613	
==>ype;
  $self->INTERNAL_ERROR("No type for left!")  unless defined $left_type;
  $self->INTERNAL_ER <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2438	2535	
==>ype;
  $self->INTERNAL_ERROR("No type for left!")  unless defined $left_type;
  $self->INTERNAL_ER <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	9589	9699	
==>MP"
				or
			$type[CURR] eq "COMM"
				or
			($type[CURR] eq "BARE" and (iskeyword($syms[CURR])
					and !isbu <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	8841	8950	
==>een) {
    DEBUG and print "No content seen in search for title.\n";
    return;
  }
  $self->{'Title'} = $tit <==
3	/Users/nnunley/parrot/lib/Test/More.pm	13574	13747	
==>$ref = ref $object;
                    $diag = "$obj_name isn't a '$class' it's a '$ref'";
                }
            } else {
                die <<WHOA;
WHOA! I tried t <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	14105	14223	
==>goto loop_end 
    $S1 = substr $S0, $I0, 1
    push result, $S1
    inc $I0
    goto loop
  loop_end:
    .return(resu <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	1185	1295	
==>eption of the configuration file name itself.  In the event
you have specified an option both in the configurat <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9503	9630	
==>t valid: discard it
		and	do {
				$$token eq ''	# End of input: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	pri <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9075	9197	
==>t valid: discard it
		and	do {
				$$token eq ''	# End of input: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	pri <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	1868	1985	
==>ND};     }
sub type   { return shift->{TYPE};     }
sub name   { return shift->{NAME};     }
sub value  { return shift <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	53436	53568	
==>op( $_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 61
		 'exp', 3,
sub
#line 353 "Lua\lua51.yp"
{
            BuildBinop <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	26431	26536	
==>de for the PMC. C<$out_name> is the name
of the output file we are generating.

=cut

sub gen_c {
    my ( <==
3	/Users/nnunley/parrot/config/auto/aio.pm	68	159	
==>g/auto/aio.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/aio.pm - T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931368	931633	
==>MP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932138	932403	
==>MP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	38898	38985	
==>put-file'  => \&_op_call_with_input_file,
  'call-with-output-file' => \&_op_call_with_o <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	478	604	
==>l pmc s
    s = new ResizablePMCArray
CODE
PIR
}

# Post translation hook.
sub post_translation() {
	# Nothing to do.
	return " <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	532	658	
==>->kind;
  my $peer        = $self->peer;

  my $prefix;

  if ($self->prefix) {
    $prefix = $self->prefix;
  }
  else {
    $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	512	638	
==>->kind;
  my $peer        = $self->peer;

  my $prefix;

  if ($self->prefix) {
    $prefix = $self->prefix;
  }
  else {
    $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	13983	14116	
==>a_text_content) <= $max_content_length)
           : 1)
        ) {
          # Some minimal sanity constraints, I think.
          DE <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3154	3256	
==>C;

use strict;
use warnings;

use vars qw(@ISA %pmc_types @EXPORT_OK);

@ISA = qw( Exporter );
@EXPORT <==
3	/Users/nnunley/parrot/lib/Parrot/PMC.pm	98	200	
==>C;

use strict;
use warnings;

use vars qw(@ISA %pmc_types @EXPORT_OK);

@ISA = qw( Exporter );
@EXPORT <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	371	488	
==>ation file
   -d -directory      path to benchmarks directory
   -h -? -help        display this help and exits
   -li <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	133	226	
==>outines here...

This is currently alarmingly similar to the generated subs in Parrot::Test.
P <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	231	324	
==>outines here...

This is currently alarmingly similar to the generated subs in Parrot::Test.
P <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31162	31263	
==>en_ret );

=item C<implements($method)>

Always true for vtables.

=cut

sub implements
{
    my ($sel <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39782	39883	
==>en_ret );

=item C<implements($method)>

Always true for vtables.

=cut

sub implements
{
    my ($sel <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7327	7424	
==><"
' A's and -'s
print string$(10,75-10)
print string$(20, "-")

' ON..GOTO   200! and then Oats.. <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62911	63020	
==>else
					{
						$item = new Parse::RecDescent::Repetition($name,$1,0,$MAXREP,
										   $lookahead,$line, <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1211	1304	
==>{builder}->is_eq( Parrot::Test::slurp_file($out_f), $output, $desc );
        $self->{builder} <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1252	1345	
==>{builder}->is_eq( Parrot::Test::slurp_file($out_f), $output, $desc );
        $self->{builder} <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	4299	4411	
==>lsif (UNIVERSAL::isa(\$init{'$name'}, '$type'))\n";
            $out .= "            { \$r->$elem = \$init{'$name <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103899	1103984	
==>mc_type(interpreter, class);\n\tif (!type) {\n\t\tParrot_autoload_class(interpreter, c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105114	1105199	
==>mc_type(interpreter, class);\n\tif (!type) {\n\t\tParrot_autoload_class(interpreter, c <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1264	1373	
==>>{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1255	1364	
==>>{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1144	1253	
==>>{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	124	224	
==>6C;

use strict;
use Carp qw(confess);
use Regex::Ops::Tree;
use P6C::Util qw(is_string);

sub op { R <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1504	1601	
==>_head3 {  $_[0]{'Thispara'} = '' }
sub start_head4 {  $_[0]{'Thispara'} = '' }

sub start_Verbatim <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1034	1131	
==>_head3 {  $_[0]{'Thispara'} = '' }
sub start_head4 {  $_[0]{'Thispara'} = '' }

sub start_Verbatim <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	33893	34012	
==>e "SANITY FAILURE" if $treelet->[0] eq ''; # should never happen!
          DEBUG > 1 and print
           qq{Catching " <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30613	30730	
==>YDIS;
	#
	# Structure create dispatch routine
	# Call with S0 set to the type
	# Dest returned in P0
STRUCT_DIM:
SCOPY <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	112	208	
==>.552283Z bernhard  $

=head1 NAME

Parrot::OpTrans::C - Ops to C Code Generation

=head1 DESCRIPT <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2471	2566	
==>d1 NAME

Pod::Simple::XMLOutStream -- turn Pod into XML

=head1 SYNOPSIS

  perl -MPod::Simple:: <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	3631	3744	
==>y ($label, $actual) = @$stmt{'label','code'};

        # Find statements that can branch to a label
        my @la <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	74	169	
==>IS

 %perl languages/tcl/tools/gen_inline.pl src/builtins/foo.tmt > src/builtins/foo.pir

=head1 <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	285	387	
==>);

    # Later in the Parrot::Configure::RunSteps->runsteps process,
    # inter/progs.pl will merge t <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7261	7357	
==>my $ignore  = ref($options{ignore}) eq 'ARRAY' ? join('|', @{$options{ignore}})
		    : defined($ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24263	24359	
==>my $ignore  = ref($options{ignore}) eq 'ARRAY' ? join('|', @{$options{ignore}})
		    : defined($ <==
3	/Users/nnunley/parrot/config/init/hints/msys.pm	229	377	
==>et(
        ld            => '$(PERL) /bin/perlld',
        ld_load_flags => '-shared ',
        libs          =>
            '-lmsvcrt -lmoldname -l <==
3	/Users/nnunley/parrot/config/auto/alignptrs.pm	1535	1639	
==>ned $align;
        $conf->data->set(ptr_alignment => $align);
    }

    $self->set_result($self->result <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	6855	6956	
==>$op->size;
	    $source =~ s/^\s*goto PC_$new_pc;\s*$//mg if defined($new_pc);
	    $source =~ s/\n/\n <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr3.pm	536	643	
==>t );

    return ( "java Bc languages/${lang_fn} languages/${pir_fn}",
             "$self->{parrot} languag <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840176	840280	
==>ntries(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}});\n  {{+=2}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840871	840975	
==>ntries(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}});\n  {{+=2}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	5852	5995	
==>e' => undef,
             'i_sysmount' => 'define',
             'i_sysndir' => undef,
             'i_sysparam' => 'define',
             'i_sy <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2367	2473	
==>$register_num/g;
		$register_num++;
	}

	# Do code for each push.
	$pir .= "\${ITEMP0} = 0\n";
	for (1..$pu <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1719	1825	
==>$register_num/g;
		$register_num++;
	}

	# Do code for each push.
	$pir .= "\${ITEMP0} = 0\n";
	for (1..$pu <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	606	703	
==>b second(b() )
	b(5)=10
end sub
sub first(a() )
	call second(a())
end sub
dim t(),f()
call first(t <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	1376	1473	
==>b second(b() )
	b(5)=10
end sub
sub first(a() )
	call second(a())
end sub
dim t(),f()
call first(t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009201	1009491	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compose",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009965	1010255	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compose",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61610	61702	
==>elsif ($grammar =~ m/(?=$MATCHRULE)/gco
				and do { ($code) = extract_bracketed($grammar,'<' <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	3156	3285	
==>0['monadic:*']      =  "    %1 = exp %1"      # exp
    $P0[unicode:"monadic:\x{d7}"] =  <<"END_PIR"            # signum
    $N100 <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	8925	9020	
==>_init_ret_nci(interpreter, st, "N");
    UVal_num(st->val) = val;
    Parrot_convert_arg(interpr <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	26	113	
==>4/lib/Parrot/Test/M4/Gnu.pm 18930 2006-04-24T19:32:28.634218Z bernhard  $

package Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1014508	1014812	
==>( {
                  "JUMP" => 0,
                  "NAME" => "err",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015331	1015635	
==>( {
                  "JUMP" => 0,
                  "NAME" => "err",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	23936	24070	
==>rser,
        'result' => $lbl2,
    );
    push @opcodes, new LabelOp( $parser,
        'arg1' => $lbl1,
    );
    push @opcode <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51847	52065	
==>PARROT_ALL_TRACE_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52630	52848	
==>PARROT_ALL_TRACE_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1233	1329	
==>hods,
and adds these methods:

=over

=item $token->tagname

This returns the tagname for this st <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7547	7657	
==>nt "100!"
    goto FIN
200 print "200!"
    goto FIN
300 print "300!"
    goto FIN
oats:
	print "Oats",
	return <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19830	19940	
==>nt "100!"
    goto FIN
200 print "200!"
    goto FIN
300 print "300!"
    goto FIN
oats:
	print "Oats",
	return <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	3527	3634	
==>ineCounter\n"
                unless $self =~ /Parse::RecDescent::LineCounter/;
	
	my $parser = $self->{pars <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	1101	1242	
==>deref_to_opcode(Interp* interpreter,
                                           void** prederef_addr)
{
    INTVAL offset_in_ops;
    if (pred <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3152	3261	
==>same.
        $conf->data->set(link => $conf->data->get('ld'));

        # We can't use -opt: and -debug toget <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4656	4765	
==>same.
        $conf->data->set(link => $conf->data->get('ld'));

        # We can't use -opt: and -debug toget <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073042	1073379	
==>,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075227	1075564	
==>,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077412	1077749	
==>,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math", <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	364	474	
==>mpiler;

use base qw(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	384	494	
==>mpiler;

use base qw(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	364	474	
==>mpiler;

use base qw(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	3743	3859	
==>efined $lines[-1] ) {
          DEBUG and print "That's it for that source fh!  Killing.\n";
          delete $self-> <==
3	/Users/nnunley/parrot/config/auto/signal.pm	1235	1348	
==>on => 'define');
        print " (sigaction)" if $verbose;
    }
    cc_clean();

    cc_gen('config/auto/signal/t <==
3	/Users/nnunley/parrot/lib/Test/More.pm	5879	5978	
==>g
else is just gravy.

All of the following print "ok" or "not ok" depending on if the test
succeede <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314770	314869	
==>\@1}} <= 127) {\n    {{\@1}} = (INTVAL)((signed char)({{\@1}}));\n  }\n  else {\n    internal_except <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28363	28463	
==>).'

			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched terminal<< (return va <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30440	30539	
==>).'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched terminal<< (return va <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32640	32739	
==>).'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched terminal<< (return va <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	339357	339551	
==>"src/ops/io.ops\"\n  {{\@1}} = PIO_STDERR(interpreter);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830627	830712	
==>{{\@1}};\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &i, STACK_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831368	831453	
==>{{\@1}};\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &i, STACK_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1958	2067	
==>_block->name;

  my $return_type = $sub_block->type;

  my $anon;

  if (defined $cond) {
    $left  = $left-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549896	549991	
==>ODY" => "#line 56 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opco <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551197	551292	
==>ODY" => "#line 56 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opco <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	55761	55903	
==>deblock($grammar,'{',undef,'<');
					 $code;
				       } )
			{
				_parse("a token constructor", $aftererror,$line,$code);
				$code =~ s/\A <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8840	8975	
==>= 0 goto zero
    if $I1 == 1 goto one
    if $I1 == 2 goto two
    if $I1 == 3 goto three
    if $I1 == 4 goto four
    if $I1 == 5 got <==
3	/Users/nnunley/parrot/tools/util/pirtidy.pl	300	408	
==>nd line
foreach my $file (@ARGV) {
    warn "Processing $file...\n" if $verbose;
    open my $ifh, '<', $file <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	36758	36889	
==>ays
					   match (zero times at worst). 
					   Did you mean a single \"!$subrule\", 
					   instead?");
		}
	}
	bless 
	{
		"sub <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35236	35353	
==>ok . q{]},
					  
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{"name"} .'})
						if defined $: <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33289	33384	
==>rn $desc;
}

sub callsyntax($$)
{
	if ($_[0]->{"matchrule"})
	{
		return "&{'$_[1]'.qq{$_[0]->{s <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	33324	33457	
==>C;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I') <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	34073	34206	
==>C;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I') <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	34997	35130	
==>C;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I') <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	23303	23410	
==>}
			my $type;
			$type="FLO";
			my %th=( single => 'FLO', double => 'FLO', long => 'INT', integer => 'INT' <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	4633	4719	
==>static opcode_t* run_compiled(Interp *interpreter, opcode_t *cur_opcode, opcode_t *star <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	6410	6496	
==>static opcode_t* run_compiled(Interp *interpreter, opcode_t *cur_opcode, opcode_t *star <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	3787	3928	
==>test');
    my $rev_test = { "==" => "!=",
		     "!=" => "==",
		     "<" => ">=",
		     ">" => "<=",
		     "<=" => ">",
		     ">=" => "<" <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30263	30395	
==>'} = 1;
            $self->whine(
              $curr_open->[-1][1]{'start_line'},
              "You can't have =items (as at line " <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	3016	3120	
==>04,
    VTABLE_DATA_IS_PMC   = 0x08,
    VTABLE_PMC_IS_SINGLETON = 0x10,
    VTABLE_IS_SHARED_FLAG   = 0x <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8334	8459	
==>le them
    } else {
      $Name2character{$name} = chr $number;
      # normal case
    }
  }
  # So they resolve 'right' eve <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16825	16942	
==>])/'&#'.(ord($1)).';'/eg;
        # Leave out "- so that "--" won't make it thru in X-generated comments
        #  wi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10269	10378	
==>])/'&#'.(ord($1)).';'/eg;
    # Leave out "- so that "--" won't make it thru in X-generated comments
    #  wi <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	1652	1750	
==>b sarray.pmc | less

=head2 Compiling PMCs

First, the program determines the names of the .c and . <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	447	543	
==>options]

=head1 DESCRIPTION

This file generates a set of F<MANIFEST.*> files that give the fina <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61135	61237	
==>rod->additem($item)
			      or  _no_rule("pattern terminal",$line,"/$1/");
		}
		elsif ($grammar =~ m/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710783	710869	
==>O_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  PIO_softspace(interpreter, io, 1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711617	711703	
==>O_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  PIO_softspace(interpreter, io, 1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117903	118127	
==>6 \"src/ops/bit.ops\"\n  {{\@1}} >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118642	118866	
==>6 \"src/ops/bit.ops\"\n  {{\@1}} >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13219	13311	
==>hird
dim y as third
dim k as second
x.fwd.link.foo=34
y.fwd=x.fwd
x.fwd.link.foo=99
print y.f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	329401	329621	
==>vtable->get_number(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	330879	331099	
==>vtable->get_number(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2291	2393	
==>code',
	'txt' => 'Text file',
	'urm' => 'URM code',
	'vim' => 'Vim file',
	'xml' => 'XML file',
	'xs' = <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1115	1230	
==>fault -> probe -> environment -> option -> ask
    $prog ||= $conf->options->get($util);
    $prog ||= $ENV{uc($util <==
3	/Users/nnunley/parrot/config/inter/make.pm	936	1051	
==>fault -> probe -> environment -> option -> ask
    $prog ||= $conf->options->get($util);
    $prog ||= $ENV{uc($util <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1112	1227	
==>fault -> probe -> environment -> option -> ask
    $prog ||= $conf->options->get($util);
    $prog ||= $ENV{uc($util <==
3	/Users/nnunley/parrot/examples/benchmarks/stress.pl	567	673	
==>) {
	$foo[$_] = $_;
    }
    return \@foo;
}

=head1 SEE ALSO

F<examples/benchmarks/stress.pasm>, 
F<exam <==
3	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	629	735	
==>) {
	$foo[$_] = $_;
    }
    return \@foo;
}

=head1 SEE ALSO

F<examples/benchmarks/stress.pasm>, 
F<exam <==
3	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	476	582	
==>) {
	$foo[$_] = $_;
    }
    return \@foo;
}

=head1 SEE ALSO

F<examples/benchmarks/stress.pasm>, 
F<exam <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23273	23386	
==>6,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33713	33826	
==>6,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37318	37431	
==>6,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611177	611289	
==>s\"\n    VTABLE_set_attr(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612080	612192	
==>s\"\n    VTABLE_set_attr(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23016	23126	
==>NUATION;\n  dest = (opcode_t *)p->vtable->invoke(interpreter, p, dest);\n  {{=dest}};\n",
                  "LA <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	10265	10403	
==>tern = 2;  # fake number
            #print "$jit_func $extern\n";
        }
        # jitable vtable funcs:
        # *) $1->vtable->{vtab <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	8989	9106	
==>_pod_block'} = 0;
    }
    
  } # ends the big while loop

  DEBUG > 1 and print(pretty(@$paras), "\n");
  return $se <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2425	2537	
==>$what;");
}

sub output_test {
    my ($self, $test, $val1, $val2, $dest) = @_;
    $val1 = value($val1);
    $va <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2742	2853	
==>$what");
}

sub output_test {
    my ($self, $test, $val1, $val2, $dest) = @_;
    $val1 = value($val1);
    $va <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	2866	3016	
==>le);
            next;
        }

        if (/^INCLUDES : '(.*)' \[System file\]/) {
            next if ($1 =~ /^include\//);
            $system_inc <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	2148	2267	
==>tem>$op</item>\n";
        $ops{$op} = 1;
    }
}

for my $op (@imcc_oplike) {
    $op =~ s/\.//g;
    next if ($ops{$op <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2142	2242	
==>urn "if ((opcode_t *) $addr == 0)
	  return 0;
    goto *ops_addr[*(cur_opcode = (opcode_t *)$addr)]" <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2884	2974	
==>r)";
}

=item C<expr_offset($offset)>

=item C<goto_offset($offset)>

=item C<goto_address( <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	1832	1970	
==>thon]
    exe       = /usr/local/bin/python
    type      = .py

    [benchmark ruby]
    exe       = /usr/bin/ruby
    type      = .rb

=h <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	13221	13334	
==>ce>);  # readline
      last unless defined $lines[-1];
       # but pass thru the undef, which will set source_de <==
3	/Users/nnunley/parrot/languages/regex/test.pl	1323	1419	
==>9
INPUT:
aaaaaaaaaaaa
OUTPUT:
Match found
0: 0..11
INPUT:
xyz
OUTPUT:
Match failed
END
  exit $st <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232501	232798	
==>LAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 271,
                  "ARGS" <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2515	2612	
==>kward branches until late to do
	# otherwise. Also, putting a label everywhere doesn't hurt the fi <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1093	1190	
==>kward branches until late to do
	# otherwise. Also, putting a label everywhere doesn't hurt the fi <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	349	451	
==>ars qw ( @ISA );
use strict;

@ISA= qw ( Parse::Yapp::Driver );
#Included Parse/Yapp/Driver.pm file <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	342	440	
==>ars qw ( @ISA );
use strict;

@ISA= qw ( Parse::Yapp::Driver );
#Included Parse/Yapp/Driver.pm file <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	14820	14917	
==>complaint) = @_;
  my $self = shift(@_);
  ++$self->{'errors_seen'};
  if($self->{'no_whining'}) { <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	7871	7987	
==>t;
    open  OLDERR, ">&STDERR" or die "Can't save     stderr" if $err;

    open  STDOUT, ">$out"    or die "Can't r <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7921	8032	
==>t;
    open OLDERR, ">&STDERR" or die "Can't save     stderr" if $err;

    open STDOUT, ">$out" or die "Can't r <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39384	39483	
==>put-file'      => \&_op_open_output_file,
  'close-input-port'      => \&_op_close_input_port,
  'cl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050848	1051173	
==>"i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1174,
                  "ARGS" => [
                              "p",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 172 \"src/ops <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	2824	2941	
==>y ($f) = @_;
    open IN, $f or die "can't read $f: $!";
    @source = <IN>;
    close(IN);
}

my ($code_l, %params, % <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	320	417	
==>ctx->{rx_pos} ||= '$rx_pos';
    $ctx->{rx_len} ||= '$rx_len';
    $ctx->{rx_input} ||= '$rx_input <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427449	427746	
==>LAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 491,
                  "ARGS" <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	98	217	
==>@_ == 2) {
    $value = $_[1];
  } elsif(@_ == 3) {
    ($variable, $value) = @_[1,2];
    
    ($variable, $value) = ($ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	13850	13954	
==>,
    ['=head1', {'start_line' => $m, 'errata' => 1}, 'POD ERRORS'],
    ['~Para', {'start_line' => $m, ' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10366	10472	
==>/^over-/s ) {
        DEBUG and print "Indenting back $indent_stack[-1] twips.\n";
        $self->{'rtfinde <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4056	4159	
==>pushes) {
		$pir .= <<'PIR';
# Increment stack depth.
inc stack_depth

# Get type (so we can find regist <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2472	2575	
==>pushes) {
		$pir .= <<'PIR';
# Increment stack depth.
inc stack_depth

# Get type (so we can find regist <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10790	10912	
==>okens {  # self, tokens
  my $self = shift;
  my $out = '';
  
  my $t;
  while($t = shift @_) {
    if(!ref $t or !UNIVERS <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2796	2886	
==>f->{'Thispara'} =~ tr{\xAD}{}d if Pod::Simple::ASCII;
  my $out = Text::Wrap::wrap($indent, <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2330	2420	
==>f->{'Thispara'} =~ tr{\xAD}{}d if Pod::Simple::ASCII;
  my $out = Text::Wrap::wrap($indent, <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	11865	12008	
==>arclass');

    push @ops, (
                         $self->dbprint("trying classmatch\n"),
                         aop('classmatch', [ $incex <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	20148	20271	
==>means that this is a NON-match!\n";
        } else {
          $dont_ignore = 1;
          $para->[1]{'target_matching'} = ' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	1596	1698	
==>0-9a-fA-F]+ )($|\W.*$)}x) {
      push @tokens, Jako::Token->new(
        $file, $line, 'literal', 'I', <==
3	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	233	337	
==>my $ccflags = $conf->data->get('ccflags');
    if ($ccflags !~ /-pthread/) {
        $ccflags .= ' -pthre <==
3	/Users/nnunley/parrot/config/init/hints/netbsd.pm	141	245	
==>my $ccflags = $conf->data->get('ccflags');
    if ($ccflags !~ /-pthread/) {
        $ccflags .= ' -pthre <==
3	/Users/nnunley/parrot/config/init/hints/openbsd.pm	233	337	
==>my $ccflags = $conf->data->get('ccflags');
    if ($ccflags !~ /-pthread/) {
        $ccflags .= ' -pthre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	69809	70103	
==>ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 93,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 1094 \"s <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	25697	25809	
==>ame
    \$I0 = bc.read_int32()
    next_pc += 4
    \${P_ARG_$arg_num}[j] = \$I0
    inc j
    goto JT_LOOP_$name <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	990	1094	
==>nt->value;

  my $ident = $self->ident->compile($compiler);
  
  $compiler->emit("  dec $ident");
  
  if <==
3	/Users/nnunley/parrot/languages/regex/regex.pl	1280	1386	
==>!";
    $expr = <IN>;
    close IN;
}

$operation ||= "compile";

my %options;
$options{'no-tree-optimize'} <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2792	2891	
==>p -lreadline -lpthread -lm -L/opt/local/lib  -licuuc -licudata -lpthread -lm';
        $extraLibs =~ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2587	2686	
==>p -lreadline -lpthread -lm -L/opt/local/lib  -licuuc -licudata -lpthread -lm';
        $extraLibs =~ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	38953	39061	
==>0]) and !ref($ell_content[-1])
         and $ell_content[ 0] =~ m/^\"/s
         and $ell_content[-1] =~ m/\" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206480	206569	
==>if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207422	207511	
==>if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	4597	4707	
==>{^(new)(?!\w)(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, 'new', 'pmc', $1);
      $te <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393597	393806	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "tell",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	394388	394597	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "tell",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o", <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	84	178	
==>48243Z bernhard  $

package Parrot::Test::Bc::Antlr2;

use strict;

use base 'Parrot::Test::Bc' <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	21378	21495	
==>($l);
	    my $rp = promote($r);
	    print <<EOC;
	$res = $op $lp, $rp $cmt$isnot
EOC
	}
	print <<EOC;
	$pres = new . <==
3	/Users/nnunley/parrot/config/init/miniparrot.pm	537	636	
==>ds.

=cut

package init::miniparrot;

use strict;
use vars qw($description @args);

use base qw(Parr <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27279	27380	
==>translate for $rule->{'name'}");

		# If we have PIR for the instruction, just take that. If not, we n <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34418	34519	
==>translate for $rule->{'name'}");

		# If we have PIR for the instruction, just take that. If not, we n <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	66	155	
==>/Parrot/Docs/Section/PMCs.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

P <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	588	684	
==>uct::Block');
  confess("Dest (" . ref($dest) . ") is not Identifier!") unless UNIVERSAL::isa($de <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	579	675	
==>uct::Block');
  confess("Dest (" . ref($dest) . ") is not Identifier!") unless UNIVERSAL::isa($de <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	468	564	
==>uct::Block');
  confess("Dest (" . ref($dest) . ") is not Identifier!") unless UNIVERSAL::isa($de <==
3	/Users/nnunley/parrot/tools/dev/mk_inno.pl	188	363	
==>5-30T15:23:20.183054Z coke  $
################################################################################

=head1 TITLE

tools/dev/mk_inno.pl - Create a script for Inno Se <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862432	862540	
==>,
                  "BODY" => "#line 138 \"src/ops/string.ops\"\n  {{\@1}} = string_length(interpreter, {{\@2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863201	863309	
==>,
                  "BODY" => "#line 138 \"src/ops/string.ops\"\n  {{\@1}} = string_length(interpreter, {{\@2 <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	188	283	
==>code documentation section

=head1 SYNOPSIS

    use Parrot::Docs::Section::C;

=head1 DESCRIPTI <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	5769	5881	
==>{ # Scan up to nearest existing ancestor
		unshift @dirs, $dir;
		$dir = dirname($dir);
	    }
	    foreach (@dir <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14317	14420	
==>elf, $node) = @_;
  my $return;

  _num_arg ($node, 2, 'cons');

  my $car = $self->_generate(_get_arg($ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	1736	1836	
==>name);

  is_deeply($complex_structure1, $complex_structure2, $test_name);

  SKIP: {
      skip $why <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	1284	1407	
==>OR__};
    unless (defined $major) {
        print " (no) " if $verbose;
        $self->set_result('no');
        $conf->dat <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4749	4851	
==>so pop it off into a register.
	if (!$dest_reg) {
		$pir .= <<'PIR'
# Get type.
${ITEMP0} = elements ${ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	7228	7325	
==>_rule_$self->{name}";
}

sub nextimplicit($)
{
	my $self = shift;
	my $prodcount = scalar @{$self- <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	564	660	
==>prefix>

The build prefix. Defaults to ''.

=item C<prefix>

The install prefix. Defaults to '/us <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	793	889	
==>prefix>

The build prefix. Defaults to ''.

=item C<prefix>

The install prefix. Defaults to '/us <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	2321	2415	
==>l_link($path);
}

=item C<write_html($source, $target, $silent)>

C<$source> is the directory i <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	21329	21448	
==>->[1]\[$lk\]
EOC
	}
	else {
	    my $lp = promote($l);
	    my $rp = promote($r);
	    print <<EOC;
	$res = $op $lp, $rp <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28001	28117	
==>arser, $expr );
    push @opcodes, @{ $cond->[1] };
    push @opcodes, new BranchIfOp( $parser,
        'arg1'   = <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	9693	9805	
==>sname) = ($1, $2);

    # flags that have values passed with them
    my %has_value = map { $_ => 1 } qw(does ext <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	872	977	
==>urns the C C<#define> macros required by the ops.

=cut

sub defines
{
    return <<END;
#define REL_PC (( <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	828	933	
==>urns the C C<#define> macros required by the ops.

=cut

sub defines
{
    return <<END;
#define REL_PC (( <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1002	1107	
==>urns the C C<#define> macros required by the ops.

=cut

sub defines
{
    return <<END;
#define REL_PC (( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542625	542892	
==>line",
                  "CODE" => 627,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 1022 \"src/ops/math.ops\"\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106337	1106428	
==>rror,\n\t\t\"type number out of range\");\n    {{\@1}} = interpreter->vtables[typ]->class;\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107313	1107404	
==>rror,\n\t\t\"type number out of range\");\n    {{\@1}} = interpreter->vtables[typ]->class;\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180378	180647	
==>nline",
                  "CODE" => 215,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 278 \"src/ops/cmp.ops\"\n  i <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	12740	12863	
==>{
        # undef only matches undef and nothing else
        my $test = defined $got || defined $dont_expect;

        $sel <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	13184	13307	
==>{
        # undef only matches undef and nothing else
        my $test = defined $got || defined $dont_expect;

        $sel <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601884	602092	
==>ine",
                  "CODE" => 681,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 383 \"src/ops/object.ops\"\n  {{+=2}};\n <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4821	4914	
==>t type.
${ITEMP0} = elements ${STYPES}
dec ${ITEMP0}
${PTEMP0} = ${STYPES}[${ITEMP0}]

# We'll <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768714	769085	
==>[
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 868,
                  "ARGS" => [
                              "ic",
                              "sc"
                            ],
                  "BODY" => "#line 335 \"src/ops/set.ops\" <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	2273	2409	
==>,
        pc  => "CONST(%ld)",
        sc  => "CONST(%ld)",
        kc  => "CONST(%ld)",
        kic => "cur_opcode[%ld]"
    );
}

sub r <==
3	/Users/nnunley/parrot/config/inter/charset.pm	917	1029	
==>$charset_list = prompt('Which charsets would you like?', $charset_list);
        }
    }

    # names of class fi <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	1855	1956	
==>1 SYNOPSIS

  package My::Test::Module;
  use Test::Builder;
  require Exporter;
  @ISA = qw(Exporter) <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	38689	38843	
==>parser,
            'prolog' => 1,
            'result' => $extra,
            'pragma' => ':slurpy',
        );
    }
    for my $param ( @{$params} <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	4421	4564	
==>ne',
             'i_langinfo' => 'define',
             'i_libutil' => undef,
             'i_limits' => 'define',
             'i_locale' => ' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6023	6113	
==>ift->require('open-bracket');  }
sub require_open_paren    { return shift->require('open-pa <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5430	5564	
==>return;
        }

        my $result = $step->result || 'done';

        print "..." if $verbose && $verbose == 2;
        print "." x <==
3	/Users/nnunley/parrot/config/init/defaults.pm	3937	4064	
==>bug info in executable
        ld_debug => '',

        # Way to decorate a function to mark it as an exportable or
        # im <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	2779	2892	
==>m>$type</item>\n";
    $types{$type} = 1;
}

print <<END;
    </list>

    <contexts>

      <context name="defaul <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	3640	3775	
==>ra'     , 182,
 'middot'   , 183,
 'cedil'    , 184,
 'sup1'     , 185,
 'ordm'     , 186,
 'raquo'    , 187,
 'frac14'   , 188,
 'frac1 <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	1913	2030	
==>line directives
    # are used.
    my %lines_seen;
    while (<IN>) {
	if (m/^\s*#\s*line\s+(\d+)/) {
	    # #line di <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	6558	6657	
==>ts:
#

my @op_funcs;
my @op_func_table;
my @cg_jump_table;
my $index = 0;
my ($prev_source, $prev_fu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938443	938612	
==>s",
                              "p"
                            ],
                  "BODY" => "#line 481 \"src/ops/string.ops\"\n    {{\@1}} = string_join(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826552	826640	
==>internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_FL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827622	827710	
==>internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_FL <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	584	681	
==>ent, 'Jako::Construct::Expression::Value::Identifier');

  my $self = bless {
    BLOCK => $block, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	659	756	
==>ent, 'Jako::Construct::Expression::Value::Identifier');

  my $self = bless {
    BLOCK => $block, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	659	756	
==>ent, 'Jako::Construct::Expression::Value::Identifier');

  my $self = bless {
    BLOCK => $block, <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	13447	13568	
==>ort name */
    for (i = 0; i < ${bs}op_lib.op_count; i++)
        if (get_op(info[i].name, 0) == -1)
            store_op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349218	349313	
==>, \"+<\");\n  /* string_cstring_free(path); */\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350220	350315	
==>, \"+<\");\n  /* string_cstring_free(path); */\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpre <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	490	588	
==>ps

=head1 DESCRIPTION

This script uses a supplied transform to create a pair of C header and
impl <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	8676	8838	
==>ail</a>]</td>
          </tr>
       );
    }
    
    print OUT qq(
            </tbody>
          </table>
    );
    print OUT page_footer();

    close(OUT);
} <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	8801	8900	
==>arapos;
		}
		elsif ($$textref =~ m/\G($rdelspec)/gc )
		{
			$closetagpos = pos($$textref)-length($ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122101	122328	
==>nsigned.\n   */\n  LVALUE_CAST(UINTVAL, {{\@1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123013	123240	
==>nsigned.\n   */\n  LVALUE_CAST(UINTVAL, {{\@1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	52083	52183	
==>_lol($_[1]);
}

sub stringify_lol {  # function: stringify_lol($lol)
  my $string_form = '';
  _strin <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63243	63353	
==>$name);

						_check_insatiable($name,$1,$grammar,$line) if $::RD_CHECK;
					}
				}
				elsif ($grammar =~ m <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63964	64074	
==>$name);

						_check_insatiable($name,$1,$grammar,$line) if $::RD_CHECK;
					}
				}
				elsif ($grammar =~ m <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3766	3866	
==>urn <<END_C;
    default:
    switch (*cur_opcode) {
END_C
}

=item C<run_core_finish($base)>

Return <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	14507	14618	
==>textref,'\s*',$patvalid,$patvalid) )
		{
			$patvalid = 0;
			next;
		}


		# NEED TO COVER MANY MORE CASES HERE <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	865	958	
==>ruct::Block');
  confess "Ident is not!" if defined $ident and not UNIVERSAL::isa($ident, 'Jak <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	893	986	
==>ruct::Block');
  confess "Ident is not!" if defined $ident and not UNIVERSAL::isa($ident, 'Jak <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24568	24685	
==>eturn);
      $self->_restore ($return);
      $return = $temp;
    }
  } else {
    $return = $self->_generate($node- <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26467	26584	
==>eturn);
      $self->_restore ($return);
      $return = $temp;
    }
  } else {
    $return = $self->_generate($node- <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	699	792	
==>ER = ord($FAR_CHAR) unless defined $FAR_CHAR_NUMBER;

$NOT_ASCII = 'A' ne chr(65) unless defin <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4610	4716	
==>@drv);
}

#Note that for loading debugging version of the driver,
#this file will be parsed from 'sub _ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4379	4481	
==>@drv);
}

#Note that for loading debugging version of the driver,
#this file will be parsed from 'sub _ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	34414	34515	
==>r_Test} > $self->{Expected_Tests} ) {
            my $num_extra = $self->{Curr_Test} - $self->{Expecte <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	45479	45596	
==>ting <$new_line[-1][-1]> as $new_line[-1][0]\n";
      }
    }
    my @nixed =    
      splice @$p, $i-1, 2, @new_lin <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	975	1078	
==>tends\s+(\w+)/;
    return $PMC_PARENTS{$pmc} = 'default';
}

# Return an array of all
sub pmc_parents
{ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	912	998	
==>value) . ") is not!" unless UNIVERSAL::isa($value, qw(Jako::Construct::Expression::Valu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835273	835524	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "savec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836025	836276	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "savec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => " <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8624	8718	
==>($Test::num_of_tests_badpass) {
        $*ERR.say("# Looks like $Test::num_of_tests_badpass tes <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	16012	16130	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _get_initial_item_type {
  # A hack-wrapper here for when you have like "=over\n\n <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7392	7499	
==>' ON..GOTO   200! and then Oats..
t=2
on t goto 100, 200, 300
print "No match\n"
FIN:
for i = 1 to 3
	on i g <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19675	19782	
==>' ON..GOTO   200! and then Oats..
t=2
on t goto 100, 200, 300
print "No match\n"
FIN:
for i = 1 to 3
	on i g <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	5036	5200	
==>in Old Comments (Not!)",
          #$fname = $2 if defined $2;
          #DEBUG > 1 and defined $2 and print "# Setting fname to \"$fname\"\n";
          DEBUG > 1 a <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	5597	5704	
==>! perl -w
#
# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
#
# This file is generated automatically from '$file <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	2947	3040	
==>s either
explicitly passed between functions or implicitly retrieved from a
global API.  Encap <==
3	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	1770	1942	
==>next;
        }
        else {

            # strip whitespace
            $line =~ s{ ^ \s+ }{}xms;
            $line =~ s{ \s+ $ }{}xms;

            if ( $line =~ $blank_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	14566	14697	
==>\(\)/{{^*}}/mg;

                      $body =~ s/\bHALT\(\)/{{=0}}/mg;

        $branch ||= $short_name =~ /runinterp/;
        $ne <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	1374	1488	
==>ABETIC
    $ret |= 0x0008 if $chr =~ /^[[:digit:]]$/;  # CCLASS_NUMERIC        
    $ret |= 0x0010 if $chr =~ /^[[: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142468	142704	
==>=> [
                              "n",
                              "nc",
                              "ic"
                            ],
                  "BODY" => "#line 77 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	457	562	
==>, max, greedy, R)
#
# O (atend) : return whether at end of input string
# O (advance, n) : advance input < <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	263	355	
==>cumentation I<group> is a number of items with some optional
descriptive text.

C<Parrot::Doc <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1367	1476	
==>ration, even with bad source code as input.
  #

  $self->INTERNAL_ERROR("Undefined block!")
    unless define <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1312	1421	
==>ration, even with bad source code as input.
  #

  $self->INTERNAL_ERROR("Undefined block!")
    unless define <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1215	1324	
==>ration, even with bad source code as input.
  #

  $self->INTERNAL_ERROR("Undefined block!")
    unless define <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	929	1034	
==>L::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block,

    DEST <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	920	1025	
==>L::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block,

    DEST <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	809	914	
==>L::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block,

    DEST <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6439	6571	
==>target, @sources) = @_;

    my $target_mod = modtime($target)
      or return 1;
    for my $source (@sources) {
        return 1 if <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4859	4991	
==>target, @sources) = @_;

    my $target_mod = modtime($target)
      or return 1;
    for my $source (@sources) {
        return 1 if <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6650	6782	
==>target, @sources) = @_;

    my $target_mod = modtime($target)
      or return 1;
    for my $source (@sources) {
        return 1 if <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	1228	1355	
==>{1}  }
  else                 { *UNICODE = sub() {''} }
}
if(DEBUG > 2) {
  print "# We are ", ASCII ? '' : 'not ', "in ASCII-la <==
3	/Users/nnunley/parrot/config/init/defaults.pm	2899	3014	
==>ry, e.g.  -shared for GNU ld.
        ld_share_flags => $Config{lddlflags},

        # Flags to tell ld to build a d <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	8436	8538	
==>vbracket($1) /oes)
		{
			_failmsg "Unable to construct closing tag to match: $rdel",
				 pos $$textre <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	1590	1694	
==>der which Parrot is distributed.', 'LICENSES/Artistic', 'LICENSES/gpl.txt'),
        ),
        $self->ne <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	742	840	
==>n, @todo)>

Runs the target string against the Perl 6 pattern, passing the test
if they match.  Not <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2840	2938	
==>n, @todo)>

Runs the target string against the Perl 6 pattern, passing the test
if they match.  Not <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	839738	839969	
==>JUMP" => 0,
                  "NAME" => "rotate_up",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840432	840663	
==>JUMP" => 0,
                  "NAME" => "rotate_up",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inl <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	22047	22163	
==>urn [ $result, \@opcodes ];
}

sub BuildRelop {
    my ( $parser, $expr1, $op, $expr2 ) = @_;
    my %opcode = ( <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	29478	29595	
==>eq\[$i\] $cmt
EOC
	push @stack, [-1, $p, 'P'];
    }
}

sub DUP_TOP
{
    my ($n, $c, $cmt) = @_;
    my $tos = $stack <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10028	10130	
==>-1][0]]{ACTIONS}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Pop state $$stack <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9580	9679	
==>-1][0]]{ACTIONS}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Pop state $$stack <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	5209	5344	
==>920,
 'Iota'     , 921,
 'Kappa'    , 922,
 'Lambda'   , 923,
 'Mu'       , 924,
 'Nu'       , 925,
 'Xi'       , 926,
 'Omicron'  , 927 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	29111	29230	
==>ur $call_uid;
sub rewrite_call {
    my ($self, $op, $name, $capture, $lastback) = @_;

#    if ($capture) {
#        lo <==
3	/Users/nnunley/parrot/config/init/defaults.pm	4793	4899	
==>m_rf     => '$(PERL) -MExtUtils::Command -e rm_rf',
        mkdir     => '$(PERL) -MExtUtils::Command -e mk <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	745	937	
==>t    I3, 1
$I4 = 100000000;              # set    I4, 100000000
                              #
print "Iterations:    $I4\n"; # print  "Iterations:    "
                              # print  I <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86246	86416	
==>p",
                              "sc"
                            ],
                  "BODY" => "#line 1208 \"src/ops/core.ops\"\n  PMC * const compreg_hash = VTABLE_get <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	5919	6026	
==>s "am I closer than n away from the end of the string?"
#
# After this operation, /abc/ compiles to
#
#  che <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2644	2749	
==>plice(@_,0,2);
  my $indent = ' ' x ( 2 * $self->{'Indent'} + ($tweak_indent||0) );
   # Yes, 'STRING' x N <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	298	397	
==>slow or fast core) run loop.

=head2 Instance Methods

=over 4

=cut

package Parrot::OpTrans::C;

u <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24689	24779	
==>xt::Balanced::_match_tagged($textref, $pre, $ldel, $rdel, $omode, $bad, $ignore);

		return <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	999	1105	
==>L::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK     => $block,

    K <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	1011	1117	
==>L::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK     => $block,

    K <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1217	1319	
==>L::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block,

    K <==
3	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	1732	1834	
==>NE
	save S0
	bsr CSTORE
	branch ENDMAINLOOPNR

DOLINE:
	save S0
	bsr RUNLINE
	restore I0
	branch ENDMAI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189757	189850	
==>{{\@1}}->vtable->get_integer(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190698	190791	
==>{{\@1}}->vtable->get_integer(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	38011	38113	
==>e "Do not know how to handle class $rule->{'class'}\n";
	}

	# Finally, emit code to go to translate ne <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23344	23435	
==>>_gensym();

  $return = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{childre <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23806	23897	
==>>_gensym();

  $return = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{childre <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	40360	40478	
==>[-a-zA-Z0-9]+\)$/s
      ) {
        $ell->[1]{'type'}    = 'man';
        DEBUG > 3 and print "Considering this ($ell_ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28798	28899	
==>eth) = @_;

    return 0 unless exists $self->{has_method}{$meth};
    my $n = $self->{has_method}{$me <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	51169	51337	
==>'key' ),
            ];
        }
	],
	[#Rule 42
		 '_funcname', 1,
sub
#line 253 "Lua\lua51.yp"
{
            [ $_[1] ];
        }
	],
	[#Rule 43
		 'varli <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	147	244	
==>d1 NAME

examples/mops/mops.c - Calculate M ops/s

=head1 SYNOPSIS

    % perl examples/mops/mops. <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	143	240	
==>d1 NAME

examples/mops/mops.c - Calculate M ops/s

=head1 SYNOPSIS

    % perl examples/mops/mops. <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	40491	40615	
==>a man link.\n";
      } else {
        $ell->[1]{'type'}    = 'pod';
        DEBUG > 3 and print "Considering this a pod link <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1395	1486	
==>self->DEBUG(0, "Searching for symbol '$name'...");

  my $sym = $self->block->find_symbol($n <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1140	1231	
==>self->DEBUG(0, "Searching for symbol '$name'...");

  my $sym = $self->block->find_symbol($n <==
3	/Users/nnunley/parrot/config/inter/lex.pm	964	1091	
==>til => 'echo');
        $self->set_result('skipped');
        return $self;
    }

    my $prog;

    # precedence of sources fo <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	961	1088	
==>til => 'echo');
        $self->set_result('skipped');
        return $self;
    }

    my $prog;

    # precedence of sources fo <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	19391	19491	
==>ment types corrected.
    Class name to struct() made optional.
    Diagnostic checks added.

Origina <==
3	/Users/nnunley/parrot/lib/Test/More.pm	29103	29230	
==>%Refs_Seen;

    {
        # Quiet uninitialized value warnings when comparing undefs.
        local $^W = 0; 

        $Test->_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	25336	25440	
==>p $_->[1]{'~ignore'}, @$curr_open) {
      DEBUG > 1 and
       print "Skipping $para_type paragraph beca <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	526	622	
==>sym .arg prototyped non_prototyped .class
    .endclass .param inc dec new defined addr global cl <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	1690	1777	
==>pipe -Wdeclaration-after-statement -I/usr/local/include -I/opt/local/include -pipe -fno- <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1078	1165	
==>pipe -Wdeclaration-after-statement -I/usr/local/include -I/opt/local/include -pipe -fno- <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1082	1169	
==>pipe -Wdeclaration-after-statement -I/usr/local/include -I/opt/local/include -pipe -fno- <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	559	662	
==>ION_CORE';
}

=item C<core_prefix()>

Returns an empty string.

=cut

sub core_prefix
{
    return "";
} <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2345	2571	
==>::Test::slurp_file($out_fn),
                       $output,
                       $desc
                                                  );
        unless ( $pass ) {
            my $diag = '';
            my $test_prog = jo <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	2356	2569	
==>::Test::slurp_file($out_fn),
                          $output,
                          $desc
                      );
           unless ( $pass ) {
               my $diag = '';
               my $test_prog = jo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1706	1804	
==>("Assigning to unknown variable %s.", $dest->value) unless $dest_sym;
  my $dest_type = $dest_sym-> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1664	1762	
==>("Assigning to unknown variable %s.", $dest->value) unless $dest_sym;
  my $dest_type = $dest_sym-> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1586	1684	
==>("Assigning to unknown variable %s.", $dest->value) unless $dest_sym;
  my $dest_type = $dest_sym-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1391	1513	
==>self->{PC} = shift;
    }
    else
    {
        return $self->{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/g <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1000	1122	
==>self->{PC} = shift;
    }
    else
    {
        return $self->{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/g <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	5538	5634	
==>\nThe following non-ansi system includes are used:\n";
    foreach my $include (sort keys %system <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3411	3540	
==>}[$self->{STACK}[-1][0]]{ACTIONS}}
}

sub YYLexer {
    my($self)=shift;

	$$self{LEX};
}


#################
# Private <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3239	3357	
==>}[$self->{STACK}[-1][0]]{ACTIONS}}
}

sub YYLexer {
    my($self)=shift;

	$$self{LEX};
}


#################
# Private <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	18062	18167	
==>TF.

Authors of formatter subclasses might find these methods useful to
call on a parser object that you h <==
3	/Users/nnunley/parrot/config/auto/pack.pm	2062	2181	
==>packtype_b => 'C',
        packtype_n => ($conf->data->get('numvalsize') == 12 ? 'D' : 'd')
    );

    #
    # Find out <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4508	4625	
==>";
			}
		}
    }
}
else {
    die "invalid command '$mode'\nmust be one of generate, compile, linklibs, or copy\n";
} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	716	805	
==>and not UNIVERSAL::isa($type, qw(Jako::Construct::Type));
  confess "Identifier (". ref($i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878697	879028	
==>LAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 996,
                  "A <==
3	/Users/nnunley/parrot/lib/Test/More.pm	32203	32298	
==>orical accident, this is not a true set comparision.
While the order of elements does not matter <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	43734	43827	
==>art from modifying @_, they are equivalent to the rather ungainly:
	return _generate($_[0], $_ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30498	30637	
==>CTIONS => {
			"," => 151,
			")" => 152
		}
	},
	{#State 99
		DEFAULT => -92
	},
	{#State 100
		ACTIONS => {
			"-" => 72,
			"< <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1417	1537	
==>f, 
        );
        my $prog_output = Parrot::Test::slurp_file( "$out_f" );

        @_ = ( $prog_output, $output, $de <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1333	1453	
==>f, 
        );
        my $prog_output = Parrot::Test::slurp_file( "$out_f" );

        @_ = ( $prog_output, $output, $de <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	673	764	
==>SAL::isa($dest, 'Jako::Construct::Expression::Value::Identifier');
  confess("Left (" . ref( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	664	755	
==>SAL::isa($dest, 'Jako::Construct::Expression::Value::Identifier');
  confess("Left (" . ref( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	553	644	
==>SAL::isa($dest, 'Jako::Construct::Expression::Value::Identifier');
  confess("Left (" . ref( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132838	133090	
==>E" => 163,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 306 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@ <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1252	1363	
==>ut how many levels we have to go back to get to parrot.
        # And, conversely, how many levels we have to go <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	722	829	
==>ut how many levels we have to go back to get to parrot.
    # And, conversely, how many levels we have to go <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460636	460839	
==>i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 282 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3007	3143	
==>def', 'apply_CALL'],
  ['',            'set', 'P14', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '. <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	30534	30628	
==>$1;

but with C<extract_delimited> it can be simplified to:

	($extracted,$remainder) = extract <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7005	7104	
==>E WE CONSTRUCT NEW DIRECTIVE OBJECTS
        my $new = [$1, {'start_line' => $self->{'line_count'}}, <==
3	/Users/nnunley/parrot/config/gen/config_h.pm	650	760	
==>e');

sub runstep
{
    my ($self, $conf) = @_;

    genfile(
        'config/gen/config_h/config_h.in', 'inclu <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3336	3441	
==>the size of an op.

=item C<HALT()>

Transforms to C<PC' = 0>. Halts run loop, and resets the current
posi <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	4219	4322	
==>= \"$line\"\n";
	}
	print CODE<<FOO;
	\$P1["code"]= \$P0
	\$P1["step"]= 1   # Turn on stepping mode
	\$P <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2781	2893	
==>self, $test, $val1, $val2, $dest) = @_;
    $val1 = value($val1);
    $val2 = value($val2);
    return "$test $va <==
3	/Users/nnunley/parrot/config/init/manifest.pm	439	534	
==>s::Manifest qw(manicheck);

$description = 'Checking MANIFEST';

@args = qw(nomanicheck);

sub r <==
3	/Users/nnunley/parrot/examples/benchmarks/freeze.pl	62	149	
==>Id: /parrot/examples/benchmarks/freeze.pl 19601 2006-05-30T13:32:26.641316Z coke  $

=he <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447321	447586	
==>E" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 51 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	448143	448408	
==>E" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 51 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449629	449894	
==>E" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 51 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	5101	5223	
==>ef'}; # so it can be GC'd
      }
       # to make sure that an undef is always sent to signal end-of-stream

    } elsif(e <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1234	1323	
==>n->tag(...)

A shortcut for $token->tagname(...)

=item $token->is_tag(I<somestring>) or $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1664	1753	
==>n->tag(...)

A shortcut for $token->tagname(...)

=item $token->is_tag(I<somestring>) or $ <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	11373	11501	
==>},\s*{{\@(\d)}}
        \);
        \s+{{\+=\d}}/xm) {
            $jit_func = "Parrot_jit_vtable_$1$3$4_op";
            $extern <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	739	838	
==>cally calls 
# the inline'd version, compiles the result and invokes it.

print <<"END_PIR";

.HLL ' <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5484	5595	
==>em(@_) == 0;
}

# XXX: ordering of libs might be crucial
sub gather_groups_and_libs {
    my @pmcs = @_;

    my <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5695	5806	
==>em(@_) == 0;
}

# XXX: ordering of libs might be crucial
sub gather_groups_and_libs {
    my @pmcs = @_;

    my <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1633	1746	
==>aths need quoting as they may contain spaces.
    $PATHQUOTE = '"';

    unless ($CC =~ /gcc/i) {
        $LIBPARR <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1637	1750	
==>aths need quoting as they may contain spaces.
    $PATHQUOTE = '"';

    unless ($CC =~ /gcc/i) {
        $LIBPARR <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	123	223	
==>::aop;
*rop = *Regex::Rewrite::rop;

# The basic method signature used here:
#
# rewrite_X : (optree, <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2585	2680	
==>GS file',
	'ChangeLog' => 'Project info',
	'Changes' => 'Project info',
	'CREDITS' => 'Project i <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	4728	4833	
==>f(vtable_methods.pasm) */
EOM
    for my $entry (@{$vtable}) {
    my $uc_meth = uc $entry->[1];
    $macr <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	341	430	
==>ormatted');
  return $new;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	340	429	
==>ormatted');
  return $new;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2404	2517	
==>file.
    # The -o flag is necessary to help gcov locate it's basic block (.bb) files.
    my $cmd = "gcov -f -b - <==
3	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1395	1501	
==>ode);

package KeyedSetOp;
use base qw(Lua::opcode);

package IncrOp;
use base qw(Lua::opcode);

pa <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	11351	11443	
==>a 3-tuple. B<STDERR> is redirected to
F<test.err> during the execution, and deleted after the <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77609	77718	
==>cecontext)
		{
			$lastcontext = $tracecontext;
			$tracecontext = qq{"$tracecontext"};
		}
		else
		{
			$tra <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	103	198	
==>0:58.862833Z coke  $

=head1 NAME

Parrot::Test - testing routines for Parrot and language imple <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2431	2525	
==>{\tfind_global _GLOBALS, "COMMON"\n};
				foreach(@saves) {
					$edit.=qq{\t_GLOBALS["$_"]=$_\ <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	4282	4397	
==>da_count;
		my @args = split(/,/, $args);
		my $n = @args;
		$arg_count{$f} = $n;
		for (my $i = 0; $i < $n; $i++) { <==
3	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	1168	1264	
==>^debian/
END_HEADER
my $now = localtime();
$header =~ s/NOW/$now/;

print join( "\n", $header, @{ <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12472	12564	
==>d appear in a
C<EE<lt>name_or_numE<gt>> sequence, this returns the number of
the Unicode char <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3481	3600	
==>pmcfiles)) {
            run("$PMC2C --library $group --c " . join(" ",@pmcfiles))
              or die "pmc2c library c <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3585	3704	
==>pmcfiles)) {
            run("$PMC2C --library $group --c " . join(" ",@pmcfiles))
              or die "pmc2c library c <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	12079	12178	
==>f;
$rx_match{'!STACK'} = \$rx_stack;
return \%rx_match;
END
}

sub output_call_setup {
    my ($self <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59633	59741	
==>ule->addprod($prod)
			      or  _no_rule("<uncommit>",$line);
			$aftererror = 0;
		}
		elsif ($grammar =~ m <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	5526	5626	
==>tation is working correctly.  The same
checksum can also be calculated in OO style:

    use Digest:: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3555	3663	
==>while (1) {
        last unless defined $string and
          $string =~ m/(^|^.*?[^\\])\$((([A-Za-z][A-Za-z0 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1945	2049	
==>while (1) {
      last unless defined $string and
        $string =~ m/(^|^.*?[^\\])\$((([A-Za-z][A-Za-z0 <==
3	/Users/nnunley/parrot/config/auto/aio.pm	126	220	
==>head1 NAME

config/auto/aio.pm - Test for AIO

=head1 DESCRIPTION

Determines whether the platf <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293409	293502	
==>> "#line 945 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) == 0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294285	294378	
==>> "#line 945 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) == 0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295161	295254	
==>> "#line 945 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) == 0 <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24135	24246	
==>bel");
    $self->_restore($temp);
  }
  return $return;
}

sub _op_plus {
  my ($self,$node) = @_;
  my $return <==
3	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1696	1799	
==><<"END";
# Regular expression test
# Generated by $0
# Pattern >>$pattern<<

END

    $driver->output_he <==
3	/Users/nnunley/parrot/languages/regex/test.pl	3364	3467	
==><<"END";
# Regular expression test
# Generated by $0
# Pattern >>$pattern<<

END

    $driver->output_he <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5723	5858	
==>, <ident>, ... = <value>;
    #
    #   const <type> <ident> = <value>;               # TODO: SHOULD BE LIMITED TO LITERAL?
    #   cons <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	11586	11711	
==>";
      } else {
	elem.className = "details";
	expander.innerHTML = "&raquo;";
      }
    }
  //]]></script>
</head>

<body> <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tests.pm	559	648	
==>$self->SUPER::new(
		'Tests', 'tests.html', '',
		$self->new_group('Tools', '', 't/harness <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	13810	13944	
==>rce)             { $source = *STDIN{IO}
  } elsif(ref(\$source) eq 'GLOB') { # stet
  } elsif(ref($source)           ) { # stet
  } els <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189740	189830	
==>cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190681	190771	
==>cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={ <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	9290	9408	
==>ex.h
cpowf       complex.h
cpowl       complex.h
cproj       complex.h
cprojf      complex.h
cprojl      complex.h
crea <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572996	573082	
==>VTABLE_set_string_native(interpreter, name, {{\@2}});\n  {{\@1}} = pmc_new_init(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573906	573992	
==>VTABLE_set_string_native(interpreter, name, {{\@2}});\n  {{\@1}} = pmc_new_init(interpr <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	9570	9702	
==>~ m/^[-\.0-9]/s
        or $new_code =~ m/:[-\.0-9]/s;
            # The legal under-0x80 Name characters that 
            #  an XML <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10834	10966	
==>~ m/^[-\.0-9]/s
        or $new_code =~ m/:[-\.0-9]/s;
            # The legal under-0x80 Name characters that 
            #  an XML <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	825	912	
==>ed by config/gen/core_pmcs.pm
 */

/* &gen_from_enum(pmctypes.pasm) subst(s/enum_class_( <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31198	31309	
==>d)>

Always true for vtables.

=cut

sub implements
{
    my ($self, $meth) = @_;
    $self->implements_vtable($ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32661	32772	
==>d)>

Always true for vtables.

=cut

sub implements
{
    my ($self, $meth) = @_;
    $self->implements_vtable($ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39818	39929	
==>d)>

Always true for vtables.

=cut

sub implements
{
    my ($self, $meth) = @_;
    $self->implements_vtable($ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	45216	45373	
==>, [
          (
            $3 ? 'VerbatimB'  :
            $4 ? 'VerbatimI'  :
            $5 ? 'VerbatimBI' : die("Should never get called")
          ), {} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2163	2255	
==>self->SYNTAX_ERROR("Undefined identifier '%s'.", $args[$i]->value) unless $arg_sym;
      $ac <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1863	1955	
==>self->SYNTAX_ERROR("Undefined identifier '%s'.", $args[$i]->value) unless $arg_sym;
      $ac <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2994	3102	
==>POS}} - 1;

		$index < 0
	and	-$index <= @{$$self{STACK}}
	and	return $$self{STACK}[$index][1];

	undef <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2850	2952	
==>POS}} - 1;

		$index < 0
	and	-$index <= @{$$self{STACK}}
	and	return $$self{STACK}[$index][1];

	undef <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16298	16390	
==>'', 'ne', [$return,'.Undef',"FAIL_$label"]);
  $self->_add_inst ('', 'set', [$return,1]);
  $ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	57056	57267	
==>tiple($text,
                                      [
                                        sub { extract_quotelike($_[0]) },
                                      ], undef, 1);

Finally, here is yet another way <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4629	4727	
==>that for loading debugging version of the driver,
#this file will be parsed from 'sub _Parse' up t <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4395	4492	
==>that for loading debugging version of the driver,
#this file will be parsed from 'sub _Parse' up t <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2210	2323	
==>, $args[$i]->value) unless $arg_sym;
      $actual_arg_type = $arg_sym->type; 
    }
    else {
      $actual_arg_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1910	2023	
==>, $args[$i]->value) unless $arg_sym;
      $actual_arg_type = $arg_sym->type; 
    }
    else {
      $actual_arg_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	385	486	
==>e qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $dest, $left, $op, $ri <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	376	477	
==>e qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $dest, $left, $op, $ri <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	265	366	
==>e qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $dest, $left, $op, $ri <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	744	896	
==>c.exe));
    my $is_bcc   = grep { $cc eq $_ } (qw(bcc32 bcc32.exe));

    $conf->data->set(
        win32             => 1,
        PQ                => <==
3	/Users/nnunley/parrot/lib/Test/More.pm	19553	19649	
==>e
L<Test::Harness>.

The way Test::More handles this is with a named block.  Basically, a
block o <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2543	2636	
==>[1191] l_ops_addr[1192]
     */
#if defined(__GNUC__) && defined(I386) && defined(PARROT_CGP_R <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20417	20512	
==>lParser
object (and not an object of a subclass), then there's no reason to
bother subclassing t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899708	900177	
==>GDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1015,
                  "ARGS" => [
                              "s",
                              "ic",
                              "ic",
                              "s"
                            ] <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19470	19569	
==>symbols (as best as it can
notice them) that labels them as being not in English, and
so not worth s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14561	14666	
==>BUG) {
    if(defined $title) { print "  Returing title <$title>\n" }
    else { print "Returning title <> <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	23126	23231	
==>BUG) {
    if(defined $title) { print "  Returing title <$title>\n" }
    else { print "Returning title <> <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	34777	34873	
==>larly :-(] {} parenthesized >:-)' string }";

then a call to C<extract_bracketed> in a list conte <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	21122	21291	
==>1;
                $b->{'code'} =~ /^(\w{2})/;
                hex($x) <=> hex($1)
            } @rules;
            $pir .= "B2_BRANCH_$_:\n";
            $pir .= "    c <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1230	1361	
==>Configure> object.

=cut

sub new
{
    my $class = shift;

    my $self = {
        steps   => [],
        data    => Parrot::Confi <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12434	12524	
==>only F<lib/Parrot> modules are linkable.
Returns C<undef> if the current documentation file <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	54438	54570	
==>ne 381 "Lua\lua51.yp"
{
            BuildRelop( $_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 69
		 'exp', 3,
sub
#line <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733663	733753	
==>line 134 \"src/ops/set.ops\"\n  {{\@1}} = string_to_int(interpreter, {{\@2}});\n  {{+=3}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734427	734517	
==>line 134 \"src/ops/set.ops\"\n  {{\@1}} = string_to_int(interpreter, {{\@2}});\n  {{+=3}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494267	494411	
==>"
                            ],
                  "BODY" => "#line 590 \"src/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495135	495279	
==>"
                            ],
                  "BODY" => "#line 590 \"src/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496003	496147	
==>"
                            ],
                  "BODY" => "#line 590 \"src/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4} <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1728	1841	
==>}

# Post translation hook.
sub post_translation() {
	# Nothing to do.
	return "";
}

# Extra subroutines required <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	768	881	
==>}

# Post translation hook.
sub post_translation() {
	# Nothing to do.
	return "";
}

# Extra subroutines required <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	525	638	
==>}

# Post translation hook.
sub post_translation() {
	# Nothing to do.
	return "";
}

# Extra subroutines required <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	4291	4416	
==>w(
        $file, $line, $1, undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^(next|last|redo|goto|return) <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	6309	6408	
==>into memory. This is a todo.

=back

=head1 SEE ALSO

L<Digest::MD5>

L<md5sum(1)>

RFC 1321

=head1 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20639	20735	
==>01010
end sub
dim narf as struct
dim bar(1)
dim lot$(1)
dim poit(1) as struct
dim h$(1)
thing$="H <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56362	56586	
==>ps\"\n  {{\@1}} = interpinfo_p(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57124	57348	
==>ps\"\n  {{\@1}} = interpinfo_p(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23522	23614	
==>_gensym();
    $self->_add_inst('','gt', [$return,$temp,"NEXT_$label"]);
    $self->_add_inst <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48639	48827	
==>CLEAR(interpreter, PARROT_BOUNDS_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49429	49617	
==>CLEAR(interpreter, PARROT_BOUNDS_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319158	319257	
==>@1}} <= 65535) {\n    {{\@1}} = (INTVAL)((Parrot_UInt2)({{\@1}}));\n  }\n  else\n  {\n    internal_e <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	3442	3554	
==>+)/){
		$forward_off = $args[$1 - 1]
		    if $op->arg_type($1) eq 'ic';
	    }

	    if($forward_off =~ /^-?\d+$ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	516	612	
==>ident) = @_;

  confess "Block (". ref($block) . ") is not!" unless UNIVERSAL::isa($block, qw(Jak <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	36408	36502	
==>ahead,$line,$desc,$matchrule,$argcode);
		}
		else
		{
			Parse::RecDescent::_error("Not symbol <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73289	73685	
==>> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74891	75287	
==>> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76493	76889	
==>> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2614	2713	
==>p } });
    $self->left->sax($handler);
    $self->right->sax($handler);
    $handler->end_element({ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2491	2590	
==>p } });
    $self->left->sax($handler);
    $self->right->sax($handler);
    $handler->end_element({ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1208	1293	
==>ct::Statement::Call;
use Jako::Construct::Statement::Concat;
use Jako::Construct::Stat <==
3	/Users/nnunley/parrot/config/init/hints/aix.pm	123	239	
==>$

package init::hints::aix;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    $conf->data->set(
        c <==
3	/Users/nnunley/parrot/lib/Test/More.pm	21031	21142	
==>why, $how_many) = @_;

    unless( defined $how_many ) {
        # $how_many can only be avoided when no_plan is <==
3	/Users/nnunley/parrot/lib/Test/More.pm	23456	23567	
==>why, $how_many) = @_;

    unless( defined $how_many ) {
        # $how_many can only be avoided when no_plan is <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5335	5439	
==>G>		$tok.='<';
#DBG>	};

	$$errstatus=0;
	$$nberror=0;
	($$token,$$value)=(undef,undef);
	@$stack=( <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	173	276	
==>er;
@ISA = qw(Exporter);
@EXPORT = qw(struct);

$VERSION = '0.61';
}
## Tested on 5.002 and 5.003 withou <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5080	5178	
==>G>		$tok.='<';
#DBG>	};

	$$errstatus=0;
	$$nberror=0;
	($$token,$$value)=(undef,undef);
	@$stack=( <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	3754	3867	
==>.*)\)/) {
		my ($f, $args) = ($1, $2);
		my @args = split(/,/, $args);
		my $n = @args;
		$arg_count{$f} = $n;
		f <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7046	7156	
==>s) {
        if ($access eq 'var') {
          my $var    = Jako::Construct::Declaration::Variable->new($block, <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	40543	40668	
==>pe'}    = 'pod';
        DEBUG > 3 and print "Considering this a pod link (not man or url).\n";
      }

      if( defined $se <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6913	7028	
==>--c $pmc.pmc")
          or die "pmc2c code generation failed ($?)\n";
    }
}

sub compile {
    my ($src_stem, $de <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7124	7239	
==>--c $pmc.pmc")
          or die "pmc2c code generation failed ($?)\n";
    }
}

sub compile {
    my ($src_stem, $de <==
3	/Users/nnunley/parrot/examples/benchmarks/freeze.pl	420	530	
==>e qw( freeze thaw dclone );
use Time::HiRes qw( time );

my @a;
my $s = time();
for my $i (0..99999) {
    push <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8969	9071	
==>= shift;
    my $path = shift || return;
    my ($volume, $directories, $name) = File::Spec->splitpath( <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9368	9470	
==>= shift;
    my $path = shift || return;
    my ($volume, $directories, $name) = File::Spec->splitpath( <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1249	1351	
==>verride the user.  If a non-existent program is specified then
    # the user is responsible for the co <==
3	/Users/nnunley/parrot/config/inter/make.pm	1070	1172	
==>verride the user.  If a non-existent program is specified then
    # the user is responsible for the co <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1246	1348	
==>verride the user.  If a non-existent program is specified then
    # the user is responsible for the co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	99185	99559	
==>ore",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 123,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" = <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr3.pm	123	244	
==>t::Bc::Antlr3;

use strict;

use base 'Parrot::Test::Bc';

use Data::Dumper;

sub get_out_fn {
    my $self = shift;
    m <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2327	2432	
==>rot::OpTrans>. It
should not be duplicated.

=cut

sub gen_goto
{
    my ($self, $where_str) = @_;
    ret <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614973	615084	
==>0) {\n        real_exception(interpreter, next, NO_CLASS,\n            \"Class not parent of object\");\n    }\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616124	616235	
==>0) {\n        real_exception(interpreter, next, NO_CLASS,\n            \"Class not parent of object\");\n    }\n <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	7652	7755	
==>use_lines = $self->slurp_file($use_file);

      unshift @use_lines, "#line 1 \"$use_file\"\n";
      pu <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	1128	1229	
==>nd-of-stream
  my $self = shift;

  my $code_handler = $self->{'code_handler'};
  my $cut_handler  = $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3294	3387	
==>hem and see
which one you like best!

L<Pod::Simple>, L<Pod::Simple::DumpAsXML>

The older lib <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19753	19877	
==>rser, $expr )    = @_;
    my ( $defn,   $opcodes ) = @{$expr};
    my $call = pop @{$opcodes};
    my $ass  = pop @{$opco <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1166	1259	
==>ll starting with YY (leading YY will be discarded)
my(%params)=(YYLEX => 'CODE', 'YYERROR' => <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1124	1216	
==>ll starting with YY (leading YY will be discarded)
my(%params)=(YYLEX => 'CODE', 'YYERROR' => <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	9222	9337	
==>de and length $new_code;
    if(ASCII) {
      # A good-enough check that it's good as an XML Name symbol:
      Car <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10486	10601	
==>de and length $new_code;
    if(ASCII) {
      # A good-enough check that it's good as an XML Name symbol:
      Car <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	618	716	
==>s, while auto ops can count
on an automatically generated next-op to be appended to the op body.

N <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	757	847	
==>ess UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Left is not Value!" unless <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	769	859	
==>ess UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Left is not Value!" unless <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14673	14769	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#----------------------- <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14696	14792	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#---------------------------------------------- <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14719	14815	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~
#--------------------------------------------------------------------- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539149	539523	
==>ath",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 624,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691206	691315	
==>src/ops/pmc.ops\"\n   {{\@1}} = Parrot_thaw(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691963	692072	
==>src/ops/pmc.ops\"\n   {{\@1}} = Parrot_thaw(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	26314	26441	
==>\s*\(\s*(.*)\s*\)\s*{$/) {
      $self->begin_block(undef, $1, $2);
      # TODO
      next;
    }

    #
    # PMC Construction <==
3	/Users/nnunley/parrot/config/auto/msvc.pm	737	850	
==>st program: $!";
    cc_clean();

    # Set msvcversion to undef.  This will also trigger any hints-file
    # cal <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	604289	604392	
==>" => "#line 419 \"src/ops/object.ops\"\n    VTABLE_add_parent(interpreter, {{\@1}}, {{\@2}});\n    {{+=3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481331	481651	
==>"i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 551,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 446 \"src/o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653366	653457	
==>} = {{\@2}}->vtable->find_method(interpreter, {{\@2}}, {{\@3}});\n    if (!{{\@1}} || !VTABL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654527	654618	
==>} = {{\@2}}->vtable->find_method(interpreter, {{\@2}}, {{\@3}});\n    if (!{{\@1}} || !VTABL <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6451	6557	
==>switch_${CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0[i]
    ${ITEMP0} = ${NEXTPC} + j
    prop_type_state[${ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4389	4495	
==>switch_${CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0[i]
    ${ITEMP0} = ${NEXTPC} + j
    prop_type_state[${ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4089	4172	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

__PACKAGE__->_acces <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	470	613	
==>9_SNPRINTF' => 1,
             'HAS_GMP' => 1,
             'HAS_READLINE' => 1,
             'HAS_SNPRINTF' => 1,
             'HAS_aligned_fun <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048238	1048331	
==>code_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null global.\");\n\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049162	1049255	
==>code_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null global.\");\n\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193313	193541	
==>[
                              "p",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 320 \"src/ops/cmp.ops\"\n  if (string_compare(interprete <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	26925	27030	
==>racted = extract_multiple($text,
				      [ \&extract_bracketed,
					\&extract_quotelike,
					\&some_ot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951244	951496	
==>1070,
                  "ARGS" => [
                              "s",
                              "sc",
                              "i"
                            ],
                  "BODY" => "#line 540 \"src/ops/string.ops\"\n  STRING *dest = n <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9723	9823	
==>>		and	print STDERR "**Dicard invalid token ".&$ShowCurToken.".\n";

			$$token=$$value=undef;
		} <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9285	9382	
==>>		and	print STDERR "**Dicard invalid token ".&$ShowCurToken.".\n";

			$$token=$$value=undef;
		} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492765	492989	
==>"\n  {{\@1}} = intval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493526	493750	
==>"\n  {{\@1}} = intval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	43914	44019	
==>, $node);
      } else {
	my @args = map { $self->_generate($_); } _get_args($node);
	$return = $self->_ca <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5095	5201	
==>BUG};
#DBG>	my($dbgerror)=0;

#DBG>	my($ShowCurToken) = sub {
#DBG>		my($tok)='>';
#DBG>		for (split(' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4850	4951	
==>BUG};
#DBG>	my($dbgerror)=0;

#DBG>	my($ShowCurToken) = sub {
#DBG>		my($tok)='>';
#DBG>		for (split(' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5156	5273	
==>ock;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  $ha <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3219	3336	
==>ock;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  $ha <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	2442	2546	
==>t
if (!defined $to_file) {
  $to_file = $from_file;
  $to_file =~ s/\..*$//;
  $to_file .= ".pasm";
}

op <==
3	/Users/nnunley/parrot/lib/Test/More.pm	7089	7213	
==>st, $name);
}

=item B<is>

=item B<isnt>

  is  ( $this, $that, $test_name );
  isnt( $this, $that, $test_name );

Similar t <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	22296	22399	
==>";

    print "$action $filename\n" if $opt{verbose};
    open my $fh, $direction, $filename or die "$ac <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	1193	1295	
==>";
    print "$action $filename\n" if $opt{verbose};
    open my $fh, $direction, $filename or die "$ac <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	26849	26960	
==>mt
EOC
	}
	else {
	    if ($may_be_none{$c}) {
		delete $may_be_none{$c};
		print <<"EOC";
	    ne_addr $c, None <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41808	41918	
==>elf->describe
						  . ']>>},
						  Parse::RecDescent::_tracefirst($text),
						  q{' . $rule->{"name"} .'} <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38117	38219	
==>elf->describe . ']>>},
						  Parse::RecDescent::_tracefirst($text),
						  q{' . $rule->{"name"} .'} <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	25563	25671	
==>$func # avoid savetop
	P2 = $1
	${ret_string}meth\:\:$attr($args)  $cmt
EOC
	}
    }
    else {
	my $ret_type <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	474	576	
==>w(ask pmc);

my %PMC_PARENTS;

# Return the (lowercased) name of the immediate parent of the given
# (l <==
3	/Users/nnunley/parrot/config/inter/charset.pm	1034	1132	
==>for src/pmc/Makefile
    (my $TEMP_charset_o = $charset_list) =~ s/\.c/\$(O)/g;

    my $TEMP_chars <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10295	10410	
==>rn(undef);
		};

		#shift the error token

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Shift \$error toke <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1373	1488	
==>of input?",
            '<rx_match>{0}->[0] = <rx_pos>; # group 0 start := pos');
}

sub output_increment {
    my ( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9833	9942	
==>rn(undef);
		};

		#shift the error token

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Shift \$error toke <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	2158	2267	
==>tal number of blocks begun (used for labels)
##   @block_stack         The stack of active blocks. We keep a b <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	4703	4807	
==>_dup_stdhandles unless $^C;

    return undef;
}

=back

=head2 Setting up tests

These methods are for s <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	31830	31932	
==>alue would be stored in?
		my $dest_reg;
		if ($rule->{'pir'} =~ /\$\{STACK0\}/ &&
		    $rule->{'pir'} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480790	481054	
==>zero\");\n  {{\@1}} = (INTVAL)floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481793	482057	
==>zero\");\n  {{\@1}} = (INTVAL)floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482796	483060	
==>zero\");\n  {{\@1}} = (INTVAL)floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10948	11119	
==>.x and [10,x]=10..x
            if ($incexc[-1] <= $last+1) {
                $incexc[-1] = $last+1;
            }
        } else {
            # Append
            push @i <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	2538	2666	
==>debugging' => 1,
             'doc_dir' => '/opt/local/share/doc/parrot',
             'doublesize' => 8,
             'dquote' = <==
3	/Users/nnunley/parrot/tools/dev/pbc_header.pl	1917	2039	
==>esult = GetOptions(
	"update-fingerprint"     => \$upd_fp,
    );

    $upd_fp and do {
	update_fp;
	exit;
    };

    pbc_ <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	380	475	
==>alue for M ops/s (million operations per second) using
integer arithmetic.

Prints out:

=over 4 <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	376	471	
==>alue for M ops/s (million operations per second) using
integer arithmetic.

Prints out:

=over 4 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121928	122027	
==>Y" => "#line 248 \"src/ops/bit.ops\"\n  /*\n   * lvalue casts are evil, but this one isn't evil enou <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122840	122939	
==>Y" => "#line 248 \"src/ops/bit.ops\"\n  /*\n   * lvalue casts are evil, but this one isn't evil enou <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	5338	5448	
==>,
      $_[0]->{osname},
      $_[0]->{cc},
  };

  my @smokes  = map { unpack_smoke($_) } glob "parrot-smoke-* <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20667	20772	
==>dme;   # Collect the "type"
		$usertypes{$typename}=[ @types ];
		print CODE <<TYPE;
	# Type definition fo <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	11245	11340	
==>es the given command. The command's output (both stdout and stderr), and
its return status is re <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	12073	12231	
==>$lastback ]),
                         aop('goto', [ $next ]),
                $back => aop('increment', [ -1, $lastback ]),
                         aop('goto <==
3	/Users/nnunley/parrot/config/init/defaults.pm	3498	3626	
==>a},        # library or archive extension
        exe      => $Config{_exe},      # executable files extension
        cc_o_out = <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	7372	7470	
==>de "parrot/exec.h"
#  include "jit.h"
/*#  define CAN_BUILD_CALL_FRAMES*/
#endif

/*
 * helper func <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2015	2246	
==>= "\a",      # bell
                last;
            s/^\\b//
                and $str .= "\b",      # backspace
                last;
            s/^\\f//
                and $str .= "\f",      # form feed
                l <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3529	3760	
==>= "\a",      # bell
                last;
            s/^\\b//
                and $str .= "\b",      # backspace
                last;
            s/^\\f//
                and $str .= "\f",      # form feed
                l <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	6763	6869	
==>defined $t;
    Carp::croak "Can't unget $t, because it's not a token -- it's a string!"
     unless ref $t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890980	891419	
==>GDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1007,
                  "ARGS" => [
                              "s",
                              "s",
                              "i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2876	2970	
==>($handler) foreach $self->content;
  $handler->end_element({ Name => 'block' });

  $handler->e <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2758	2852	
==>($handler) foreach $self->content;
  $handler->end_element({ Name => 'block' });

  $handler->e <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23826	23965	
==><value>);
    #   last <label> unless (<value> <op> <value>);
    #
    #   redo;
    #   redo if     (<value> <op> <value>);
    #   redo u <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	16911	17041	
==>\n", "'$name'", $value;
      }
    } elsif(m/<!ENT/) {
      print "# Skipping $_";
    }
  
  }
  close(IN);
}

print @norms;
pri <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	2886	3010	
==>hint' => [ $_, "rxlocal $_" ]) }
                @$rxlocals);
}

sub rule_restore_rxlocals {
    my ($self) = @_;
    my $rxl <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	4529	4663	
==>>set(
            hugefloatval     => 'double',
            hugefloatvalsize => $conf->data->get('doublesize')
        );
    }

    cc <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4088	4189	
==>$result); 
	set $result, 1.0
	$op $a2, $a1, EQ_$eqnum
	set $result, 0.0
EQ_$eqnum: noop
CODE
	},
	'and <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27169	27265	
==>= $self->{"mod"};

	$sdel =~ s/[[{(<]/{}/;
	
my $code = ''.($::RD_NO_TRACE?'':'
		Parse::RecDesce <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925965	926107	
==>"i"
                            ],
                  "BODY" => "#line 385 \"src/ops/string.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO_HEA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927435	927577	
==>"i"
                            ],
                  "BODY" => "#line 385 \"src/ops/string.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO_HEA <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	2398	2492	
==>ined $value) {
    $self->SYNTAX_ERROR("'return' with argument in subroutine that does not retu <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	5066	5184	
==>ssary.
                $asm =~ s/\)->u\.(\w+)/)/g;
                $asm =~ s/CONST\((\d)\)\s*([><=!]=?)\s*CONST\((\d)\) <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	3502	3611	
==>rings[] = {
	{ 0, 0, "" },
HEADER
    my @all;
    for my $s (@all_strings) {
	push @all, qq!\t{$s->[0], $s->[ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	75341	75444	
==>|', $tracemsg
| ~~       |^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<|
	    $tracemsg
.

select TRACE;
$| = 1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680476	680716	
==>"inline",
                  "CODE" => 763,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 488 \"src/ops/pmc.ops\"\n    {{\@ <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	924	1031	
==>n {
    usage() and exit if $opt_h;
    checkout_tests() and convert_tests() if not -d $DIR;
    update_test <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1346	1442	
==>erwise, this is a subclass of L<Pod::Simple> and inherits all
its methods.)

You can use this cla <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	17812	17909	
==>"@code eq $result, $false, AFTERDO_$docounter";
		} else {
			$_="@code ne $result, $false, AFTERD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93324	93431	
==>s\"\n  string_bitwise_and(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94104	94211	
==>s\"\n  string_bitwise_and(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4540	4637	
==>iler->temp_reg($calc_type);
    $compiler->emit("  $temp = $left $op $right");
    $compiler->emit <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101152	101410	
==>n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103358	103616	
==>n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53974	54091	
==>RecDescent::Directive(
					      'if ($text =~ s/\A'.$1.'//) { $return = 0; $& } else { undef }',
					      $lookahe <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094581	1094872	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exec",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14169	14264	
==>);
    $self->_add_inst ("FAIL_$label", 'set', [$return,0]);
    $self->_add_inst ("DONE_$label" <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16437	16528	
==>);
  $self->_add_inst ("FAIL_$label", 'set', [$return,0]);
  $self->_add_inst ("DONE_$label" <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	5482	5625	
==>ath' => undef,
             'i_sysaccess' => undef,
             'i_sysdir' => 'define',
             'i_sysexit' => undef,
             'i_sysf <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	1464	1584	
==>hanges2(
    map {; m/^([-a-z]+)/s && push @_to_accept, $1; $_ }
    qw[
      sample=samp
      definition=dfn
      kbd <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4458	4584	
==>self) = @_;

    if (@{ $self->{args} } == 0) {
        delete $self->{name};
        delete $self->{args};
        return $sel <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5595	5721	
==>self) = @_;

    if (@{ $self->{args} } == 0) {
        delete $self->{name};
        delete $self->{args};
        return $sel <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29406	29508	
==>almv, 'LOADREG';
		} else {
			die "pir or instruction must use one of \${DEST0} or \${LOADREG} in rule <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29105	29223	
==>{/\\{/g;

	bless 
	{
		"pattern"     => $pattern,
		"lookahead"   => $_[2],
		"line"        => $_[3],
		"description" = <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31209	31321	
==>{/\\{/g;

	bless 
	{
		"pattern"   => $pattern,
		"lookahead" => $_[2],
		"line"      => $_[3],
		"description" = <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3231	3330	
==>ix)>

This is a class method that converts a file suffix to a description of
the type of files which <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7709	7814	
==>ed up.
	#	ASSIGNMENT($var);
	#	goto PARSE_NOFEED;
	#}
	goto PARSE;

=begin wrongway

UNK:	if (($type[CURR] <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1082	1169	
==>e_t*)cur_opcode + CONTEXT(interpreter->ctx)->pred_offset)

#  define opcode_to_prederef( <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1212	1299	
==>e_t*)cur_opcode + CONTEXT(interpreter->ctx)->pred_offset)

#  define opcode_to_prederef( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185996	186099	
==>292 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186926	187029	
==>292 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187856	187959	
==>292 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\ <==
3	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	1506	1638	
==>] }       

# TODO: What does this means???
flag:               'F' | 'T'

# We need the len of the macro name, 
# because we extract <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	734	844	
==>el") x $distance;
    }
}

sub output_match {
    my ($self, $byte, $failLabel) = @_;
    return "rx_literal P0 <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	749	857	
==>e ($dir->files_with_suffix('pmc'))
	{
	    my $code = $file->read;
	    
	    if ( $code =~ /^pmclass\s+[A-Z] <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2980	3129	
==>:\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # test result
              | " ((?:[^"\\]|\\.)+) "   #" (keep m <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4377	4526	
==>:\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # test result
              | " ((?:[^"\\]|\\.)+) "   #" (keep m <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	2030	2124	
==>he Parrot
itself sees those shortened definitions, the defines must not leak
to the outside wor <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295792	296061	
==>"TYPE" => "inline",
                  "CODE" => 344,
                  "ARGS" => [
                              "i",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 950 \"src/ops/cmp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	27560	27672	
==>ODE;\n    PMC * const signature = {{\@1}};\n    INTVAL argc;\n\n    /* for now just point to the opcode */\n    i <==
3	/Users/nnunley/parrot/config/auto/python.pm	288	386	
==>ad1 TODO

Store version of Python.

=cut

package auto::python;

use strict;
use vars qw($descripti <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655061	655346	
==>" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27087	27223	
==>) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $l_bre <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27768	27904	
==>) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $l_bre <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	11650	11762	
==>r", pos $$textref;
		pos $$textref = $startpos;
		return;
	    }
	}

	while (1)
	{
		next if _match_codeblock($te <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9940	10038	
==>:Expression::Value->new($block, $self->require_value);

      $self->require_close_paren;
      $se <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25476	25574	
==>:Expression::Value->new($block, $self->require_value);

      $self->require_close_paren;
      $se <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53011	53124	
==>code;
				       } )
			{
				_parse("an autoscore specifier", $aftererror,$line,$code);
				$code =~ /\A\s*<autos <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	32	131	
==>my @results = ();
while (<>) {
	if (/^Translated (\d+) types out of (\d+) from .+?([\.\w]+)\n$/) { <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	32	131	
==>my @results = ();
while (<>) {
	if (/^Translated (\d+) types out of (\d+) from .+?([\.\w]+)\n$/) { <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	1770	1885	
==>{$op->[0]}) {
	    my @args = @$op;
	    shift(@args);
	    push @r, $curlabel . $outfunc->(@args);
	    $curlabel = <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15243	15331	
==>APER
      $x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'? <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16424	16512	
==>APER
      $x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'? <==
3	/Users/nnunley/parrot/config/init/defaults.pm	4777	4890	
==>rm_f',
        rm_rf     => '$(PERL) -MExtUtils::Command -e rm_rf',
        mkdir     => '$(PERL) -MExtUtils::Comm <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	17494	17591	
==>rse_do {
	$docounter++;
	if ($syms[NEXT] eq "until" or $syms[NEXT] eq "while") {
		my $false="0.0" <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	16824	16906	
==>set_pmc_keyed_str(interpreter, HashPointer, string_from_cstring(interpreter, "$key" <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7174	7298	
==>)
		    : defined($options{reject})	       ? $options{reject}
		    :					 ''
		    ;
	my $ignore  = ref($options{ignore}) eq <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24176	24300	
==>)
		    : defined($options{reject})	       ? $options{reject}
		    :					 ''
		    ;
	my $ignore  = ref($options{ignore}) eq <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	110	214	
==>e::PullParserToken');
use strict;

sub new {  # Class->new(text);
  my $class = shift;
  return bless ['t <==
3	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	416	543	
==>uildarray();
    }

    my @arr1;
    foreach (1..20) {
	$arr1[$_] = buildarray();
    }

    my @arr2;
    foreach (1..20) {
	$ <==
3	/Users/nnunley/parrot/examples/benchmarks/stress.pl	378	487	
==>uildarray();
}

my @arr1;
foreach (1..20) {
    $arr1[$_] = buildarray();
}

my @arr2;
foreach (1..20) {
    $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41564	41672	
==>@@@@@@@@@@@

sub _closers_for_all_curr_open {
  my $self = $_[0];
  my @closers;
  foreach my $still_open (@{ <==
3	/Users/nnunley/parrot/tools/docs/pod_errors.pl	467	565	
==>);
my $ignore = shift || '^(icu)$';

foreach my $file ($dir->files(1, $ignore))
{
	next unless $fil <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324688	324770	
==>rc/ops/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}},{{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325481	325563	
==>rc/ops/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}},{{\ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1279	1377	
==>h in this class is likely to be link-section specific --
# but it just so happens that link-section <==
3	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	1077	1199	
==>/$!) {
        print "$output does not have a checksum line; remaking\n" if $Verbose;
        $up_to_date = 0;
        last <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5066	5170	
==>XT", $dest) or die "Copy $_$LOAD_EXT failed ($?)\n";

        # Execute permissions on libraries is espec <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5277	5381	
==>XT", $dest) or die "Copy $_$LOAD_EXT failed ($?)\n";

        # Execute permissions on libraries is espec <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621400	621515	
==>just for gcc */\n    }\n    lru = &mic->lru;\n    if (lru->u.signature == sig) {\n\tif (sig) {\n\t    n = ((arg_pass <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13038	13149	
==>s
					  tried. Since you almost certainly wanted
					  '<error?> <reject>' Parse::RecDescent
					  supplied i <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2570	2664	
==>_name($name)>

Returns the C source file with the specified name.

=cut

sub c_source_file_with <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26002	26111	
==>ub',[$return,$return,$temp]);
      $self->_restore($temp);
    }
  }
  return $return;
}

sub _op_times {
  m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563151	563455	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addmethod",
                  "FLAGS" => ":obj <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564048	564352	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addmethod",
                  "FLAGS" => ":obj <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	2939	3043	
==>locals);
}

sub rule_restore_rxlocals {
    my ($self) = @_;
    my $rxlocals = ($self->{rxlocals} ||= [] <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2497	2592	
==>don't discover backward branches until late to do
	# otherwise. Also, putting a label everywhere <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1075	1170	
==>don't discover backward branches until late to do
	# otherwise. Also, putting a label everywhere <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	592	681	
==>(" . ref($ident) . ") is not!") unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	602	691	
==>(" . ref($ident) . ") is not!") unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	602	691	
==>(" . ref($ident) . ") is not!") unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression <==
3	/Users/nnunley/parrot/config/auto/msvc.pm	1354	1471	
==>$msvc{_MSC_VER} % 100;
    unless (defined $major && defined $minor) {
        print " (no) " if $verbose;
        $se <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3107	3209	
==>ource = shift;
	my @contents = ();
	
	foreach my $content (@{$self->{CONTENTS}})
	{
		if ( ref($content <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	4735	4828	
==>rtpos, $ldelpos, $endpos) = (pos $$textref = pos $$textref||0);
	unless ($$textref =~ m/\G$pre <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35961	36070	
==>uccessfully completed all its tests, it will still be
considered a failure and will exit with 255.

So the exi <==
3	/Users/nnunley/parrot/lib/Test/More.pm	34032	34141	
==>uccessfully completed all its tests, it will still be
considered a failure and will exit with 255.

So the exi <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2827	2936	
==>uccessfully completed all its tests, it will still be
considered a failure and will exit with 255.

So the exi <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	5518	5661	
==>cess' => undef,
             'i_sysdir' => 'define',
             'i_sysexit' => undef,
             'i_sysfile' => 'define',
             'i_sy <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	1208	1326	
==>MAIN;
	}
NOTNUM:
	#if ($cur eq "-" and $next =~ /[\d\.]/) {
	#	append;
	#	fetch;
	#	goto NUMCONST;
	#}
	if ($cur eq '"' <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	584	694	
==>lf, $conf) = (shift, shift);

    my $verbose = $conf->options->get('verbose');

    my $cc        = $conf->dat <==
3	/Users/nnunley/parrot/lib/Test/More.pm	30239	30421	
==>$e1, $e2);
            }
            elsif( $type eq 'HASH' ) {
                $ok = _eq_hash($e1, $e2);
            }
            elsif( $type eq 'REF' ) {
                push @Dat <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3529	3633	
==>if ($mode eq 'compile') {
    # Convert X.c -> X.o for all X.c
	my $core_suffix;
	foreach $core_suffix (v <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1123	1208	
==>"languages/lua/lib/luapackage.pbc"
#  load_bytecode "languages/lua/lib/luastring.pbc" <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	38170	38270	
==>Clean up meta-variables hash.
	foreach (@localmv) {
		delete $mv->{$_};
	}

	# Return generated code. <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	14014	14113	
==>ou may find this useful if you are rendering
POD in a format that you think deals well only with US- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	371582	371674	
==>Cannot read line from empty filehandle\");\n\n    if (!(io->flags & PIO_F_LINEBUF))\n\tPIO_se <==
3	/Users/nnunley/parrot/config/inter/lex.pm	2161	2266	
==>flex calls it self by $0 so it will claim to be lex if invoked as `lex`
    if ($stdout =~ /f?lex .*? (\d+ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	933	1028	
==>parsing a "=head1 ..." line will give you
a start-token with the tagname of "head1", token(s) fo <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1361	1456	
==>parsing a "=head1 ..." line will give you
a start-token with the tagname of "head1", token(s) fo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549396	549524	
==>" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ":object_b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550696	550824	
==>" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ":object_b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551997	552125	
==>" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ":object_b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63200	63308	
==>rc/ops/core.ops\"\n  PARROT_ERRORS_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63846	63954	
==>rc/ops/core.ops\"\n  PARROT_ERRORS_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	630	724	
==>',
		$self->new_group('General Documentation', '',
			$self->new_item('', 'docs/overview.pod'), <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	6343	6445	
==>and length $d;
    Carp::croak "\"$d\" isn't a valid directive name"
     unless $d =~ m/^[a-zA-Z][a-zA <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	7137	7239	
==>and length $d;
    Carp::croak "\"$d\" isn't a valid directive name"
     unless $d =~ m/^[a-zA-Z][a-zA <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10840	10936	
==>o_fallback:
  %Latin1Char_to_fallback = ();
  my($k,$v);
  while( ($k,$v) = each %Latin1Code_to_f <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2691	2805	
==>t {
	my($self)=shift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$se <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2570	2674	
==>t {
	my($self)=shift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$se <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	1404	1496	
==>Net', 'dotnet.html', '', 'languages/dotnet'),
        $self->new_section('HQ9plus', 'hq9plus. <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2469	2570	
==>ed to actually declare the constant, we will place its
  # definition into the block at the top of the <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2216	2317	
==>ed to actually declare the constant, we will place its
  # definition into the block at the top of the <==
3	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	879	968	
==>EST_PROG_ARGS} || '';
  my $cmd = "$self->{parrot} languages/parrot_compiler/$test_prog_ar <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1142	1276	
==>nt -> option -> ask
    $prog ||= $conf->options->get($util);
    $prog ||= $ENV{uc($util)};

    # never override the user.  If a non- <==
3	/Users/nnunley/parrot/config/inter/make.pm	963	1097	
==>nt -> option -> ask
    $prog ||= $conf->options->get($util);
    $prog ||= $ENV{uc($util)};

    # never override the user.  If a non- <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1139	1273	
==>nt -> option -> ask
    $prog ||= $conf->options->get($util);
    $prog ||= $ENV{uc($util)};

    # never override the user.  If a non- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	473	590	
==>ed 5 args!" unless @_ == 5;

  my ($block, $prefix, $left, $op, $right) = @_;

  my $self = bless {
    BLOCK     => $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	473	590	
==>ed 5 args!" unless @_ == 5;

  my ($block, $prefix, $left, $op, $right) = @_;

  my $self = bless {
    BLOCK     => $ <==
3	/Users/nnunley/parrot/config/init/headers.pm	63	153	
==>config/init/headers.pm 20700 2006-06-26T19:26:45.696181Z bernhard  $

=head1 NAME

config/i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612946	613036	
==>Y" => "#line 496 \"src/ops/object.ops\"\n    VTABLE_set_attr_str(interpreter, {{\@1}}, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613853	613943	
==>Y" => "#line 496 \"src/ops/object.ops\"\n    VTABLE_set_attr_str(interpreter, {{\@1}}, {{\@ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5387	5502	
==>rate, compile, linklibs, or copy\n";
}

sub run {
    print join(" ", @_), "\n";

    return system(@_) == 0;
}

# X <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5598	5713	
==>rate, compile, linklibs, or copy\n";
}

sub run {
    print join(" ", @_), "\n";

    return system(@_) == 0;
}

# X <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4588	4698	
==>rate, compile, linklibs, or copy\n";
}

sub run {
    print join(" ", @_), "\n";

    return system(@_) == 0;
} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2012	2122	
==>);

  #
  # If the identifier is already defined at this lexical scope, we want to complain
  # about the redef <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1759	1869	
==>);

  #
  # If the identifier is already defined at this lexical scope, we want to complain
  # about the redef <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16071	16160	
==>Stevan Little <stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vincent <je <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2987	3075	
==>, 'Jako::Construct::Type::String');
  $self->SYNTAX_ERROR("Can't do arithmetic on strings <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	3107	3195	
==>, 'Jako::Construct::Type::String');
  $self->SYNTAX_ERROR("Can't do arithmetic on strings <==
3	/Users/nnunley/parrot/lib/Test/More.pm	14718	14822	
==>(;$) {
    $Test->ok(0, @_);
}

=back

=head2 Diagnostics

If you pick the right test function, you'll us <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	12014	12106	
==>.
PRE_CALL_${CURIC}_LAZY_MOVE_RET:
${STEMP0} = pop lazy_moves

# Put in params array.
PRE_CAL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834344	834532	
==>}, STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835070	835258	
==>}, STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10257	10381	
==>turn unless
        ( defined $to and length $to ) or
        ( defined $section and length $section );
    
    if ( defined <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	3563	3664	
==>$opcode, $arg, $rest) = ($1, $2, $3, $4, $5);
	$opcode =~ s/\+/_plus_/;
	## print STDERR "Op: '$opcode <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	532	630	
==>efined!" unless defined $block;
  confess "Left is not defined!" unless defined $left;
  confess "O <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	544	642	
==>efined!" unless defined $block;
  confess "Left is not defined!" unless defined $left;
  confess "O <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	44084	44179	
==>is returned. The elements are:

=over 4

=item [0]

the extracted quotelike substring (including <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	2022	2104	
==>al_destination = new_buffer_header(interpreter);\nPObj_external_SET(final_destinati <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	2135	2217	
==>al_destination = new_buffer_header(interpreter);\nPObj_external_SET(final_destinati <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9847	9959	
==>, SELF, $args";
    } else {
        return "INTERP, SELF";
    }
}

=item C<proto($type,$parameters)>

Determine <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	58695	58795	
==>ich might contain quoted strings):

        my $empty_tag = '<(' . gen_delimited_pat(q{'"}) . '|.)+/> <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	49072	49166	
==>kets to be specified separately (see below).

Omitting the first argument (input text) means pr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152736	153003	
==>function",
                  "CODE" => 185,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 120 \"src/ops/cmp.ops\" <==
3	/Users/nnunley/parrot/tools/build/addopstags.pl	230	341	
==>%seen;
my @tags;

# Pull ops tags
while (<>) {
	if (/\bop \s+ (\w+) \s* \(/x) {
		next if $seen{$1}++;
	# tag fi <==
3	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1632	1734	
==>er = Regex::Driver->new('pir', emit_main => 1);

    print $PIR <<"END";
# Regular expression test
# Ge <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90820	91078	
==>src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91674	91932	
==>src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92528	92786	
==>src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946549	946814	
==>" => 0,
                  "NAME" => "find_charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947450	947715	
==>" => 0,
                  "NAME" => "find_charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1543	1682	
==>eq '0')
    {
        return "return (0);"
    }
    else
    {
        return "if ((opcode_t *) $addr == 0)
	  return 0;
   _reg_base = (ch <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574748	574840	
==>t.ops\"\n    {{\@1}} = pmc_new_init(interpreter, enum_class_ParrotClass, {{\@2}});\n    {{+=3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575552	575644	
==>t.ops\"\n    {{\@1}} = pmc_new_init(interpreter, enum_class_ParrotClass, {{\@2}});\n    {{+=3 <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5487	5593	
==>= shift;
    return <<'PIR';
# See if we've got a return or something to call.
if ${ARGCOUNT} == 0 goto PRE <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6932	7037	
==>= shift;
    return <<'PIR'
# See if we've got a return or something to call.
if ${ARGCOUNT} == 0 goto PRE <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8778	8945	
==>$stack,
                     [ $$states[$$stack[-1][0]]{GOTOS}{$lhs}, $semval ]);
                $$check='';
                next;
            };

#DBG>			$debug <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8382	8543	
==>$stack,
                     [ $$states[$$stack[-1][0]]{GOTOS}{$lhs}, $semval ]);
                $$check='';
                next;
            };

#DBG>			$debug <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	6790	6949	
==>'slash');
                '/' x ($len/2) . ($len%2 ? $slash : '');
            }eg;
            # replace \* with \\*, so make will not eat the \
            $l <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4739	4840	
==>start()>

Returns the C code prior to the run core function.

=cut

sub run_core_func_start
{
    retu <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3027	3128	
==>start()>

Returns the C code prior to the run core function.

=cut

sub run_core_func_start
{
    retu <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10210	10310	
==>n} ? "$function_branch_coverage{$source_file}{$function} %" : "n/a" ]}</a></td>
             <td><a h <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423615	423729	
==>n    {{\@1}} = (INTVAL)PIO_listen(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	424512	424626	
==>n    {{\@1}} = (INTVAL)PIO_listen(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9864	9968	
==>n unless $path;
    
    return -d $path;
}

=item C<relative_path_is_file($path)>

Returns whether the s <==
3	/Users/nnunley/parrot/config/gen/platform.pm	3963	4064	
==>n.c before the parrot.h include.
    if (-e "config/gen/platform/$platform/begin.c") {
        local $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021629	1021724	
==>c/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_gmtime_r(&t, &t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022471	1022566	
==>c/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_gmtime_r(&t, &t <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1041	1164	
==>RR => $_[0] )},
};
my $tests = {
    is   => 'is_eq',
    like => 'like',
    isnt => 'isnt_eq',
};


## create a map of tes <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	16363	16458	
==>est->cmp_ok($this, $type, $that, $name);

Works just like Test::More's cmp_ok().

    $Test->cmp <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5938	6061	
==>ut_setend {
    my ($self, $group, $value, $adj) = @_;
    $value = value($value);
    my @ops;
    if ($adj) {
        push <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5576	5699	
==>ut_setend {
    my ($self, $group, $value, $adj) = @_;
    $value = value($value);
    my @ops;
    if ($adj) {
        push <==
3	/Users/nnunley/parrot/config/gen/config_pm.pm	193	283	
==>a

=head1 DESCRIPTION

Writes the C<Parrot::Config> Perl module, the
F<runtime/parrot/libra <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	47097	47196	
==>),

=item [3]

"<<" (i.e. the "name" of the quotelike operator)

=item [4]

"'EOMSG'" (i.e. the left <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	675997	676086	
==>BODY" => "#line 473 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_integer(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676777	676866	
==>BODY" => "#line 473 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_integer(interpreter, <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	14447	14542	
==>reftree()) foreach (@{ $op->{args} });
    return $ref;
}

sub Regex::Ops::Tree::multi_match::re <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11626	11719	
==>ub unicode_escape_url {
  my($self, $string) = @_;
  $string =~ s/([^\x00-\xFF])/'('.ord($1).' <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	8480	8561	
==>utfile_base.calls.html">@{[$file_call_coverage{$source_file} ? "$file_call_coverag <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	30619	30721	
==>_op_apply {
  my ($self, $node) = @_;
  my $return;

  my $func = $self->_generate(_get_arg ($node, 1)) <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	307	408	
==>ite_RET'],
  ['write_N_UNDEF','ne', 'I0', '.Scratchpad', 'write_N_LAMBDA'],
  ['',             'print' <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	27138	27234	
==>zed pattern (a la Friedl)
# that matches a substring delimited by any of the specified characters <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	2347	2441	
==>appropriate values.

Finally, the .c and .h files are generated. The appropriate base class
hea <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653447	653539	
==>} || !VTABLE_defined(interpreter, {{\@1}}))\n        real_exception(interpreter, resume, METH <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654608	654700	
==>} || !VTABLE_defined(interpreter, {{\@1}}))\n        real_exception(interpreter, resume, METH <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	23178	23290	
==>ne on the end if it needs it.
    $msg .= "\n" unless $msg =~ /\n\Z/;

    print $fh $msg;
}


=item B<_print_dia <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11151	11245	
==>URIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1}["reg_type_short"]
${DE <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8337	8431	
==>URIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1}["reg_type_short"]
${DE <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5999	6093	
==>URIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1}["reg_type_short"]
${DE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550149	550240	
==>nt = NEED_CONTINUATION;\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551450	551541	
==>nt = NEED_CONTINUATION;\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655540	655628	
==>\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined(interpreter, {{\@2}}) <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	528	642	
==>) {
        return "rx_advance P0, $failLabel";
    } elsif ($distance =~ /\D/) {
        die "Unimplemented: varia <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434472	434559	
==>ath.ops\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435487	435574	
==>ath.ops\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1} <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3279	3398	
==>4, unescape($5), $6));

        # make the test print the last line of output
        # XXX This should be "print the la <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4686	4805	
==>4, unescape($5), $6));

        # make the test print the last line of output
        # XXX This should be "print the la <==
3	/Users/nnunley/parrot/config/init/defaults.pm	2728	2830	
==>rating systems (e.g. Darwin) distinguish between shared
        # libraries and modules that can be dyn <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017447	1017731	
==>" => 0,
                  "NAME" => "gmtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018371	1018655	
==>" => 0,
                  "NAME" => "gmtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	14306	14452	
==>=> 4,
			"<" => 3,
			"[" => 14,
			'CODE' => 6,
			"." => 15
		},
		GOTOS => {
			'expr' => 45,
			'charclass' => 12
		}
	},
	{#State 27
		ACTIONS <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	870	1002	
==>));

  my $self = bless {
    BLOCK  => $block,

    KIND   => 'var',
    TYPE   => $type,
    NAME   => $ident->value,
    FILE   => <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6920	7034	
==>c.pmc")
          or die "pmc2c code generation failed ($?)\n";
    }
}

sub compile {
    my ($src_stem, $dest_ste <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7131	7245	
==>c.pmc")
          or die "pmc2c code generation failed ($?)\n";
    }
}

sub compile {
    my ($src_stem, $dest_ste <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	4955	5047	
==>_manifest_skip>

Query the svn:ignore property and generate the lines for MANIFEST.SKIP.

=cu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	1890	1992	
==>b is_close_paren   { return shift->is('close-paren');   }
sub is_colon         { return shift->is('colo <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27083	27183	
==>ldel = $self->{"ldelim"};
	my $rdel = $self->{"rdelim"};
	my $sdel = $ldel;
	my $mod  = $self->{"mod" <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	12566	12662	
==>he whole array element.
The object reference is returned.

=item Hash (C<'%'> or C<'*%'>)

The el <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584698	584931	
==>E_subclass(interpreter, class, NULL);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585773	586006	
==>E_subclass(interpreter, class, NULL);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	5307	5416	
==>ives' => { %Known_directives },
    'accept_targets'    => {},
  }, $class;
}



# TODO: an option for whether <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17100	17253	
==>1] };
                $result = new_tmp( $parser, 'pmc' );
                push @opcodes, new LocalDir( $parser,
                    'result' => $resul <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15502	15619	
==>1] };
    $result = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $resul <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19255	19372	
==>1] };
    $result = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $resul <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1762	2007	
==>psed time:  $N2\n"; # print  "Elapsed time:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 = $N1 / $N2;              # div <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	1762	2007	
==>psed time:  $N2\n"; # print  "Elapsed time:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 = $N1 / $N2;              # div <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1114	1204	
==>s::Section::Tests;
use Parrot::Docs::Section::EditorPlugins;

=item C<new()>

Returns a new <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106976	1107197	
==>CODE" => 1225,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 352 \"src/ops/experimental.ops\"\n    int <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	1524	1651	
==>ial-purpose parrot ops here
    $P0['dyadic:<']       =  <<"END_PIR"            # less than
    $I100 = islt %1, %2
    %1 = $I1 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	161	248	
==>.
#
# $Id: /parrot/languages/jako/lib/Jako/Processor.pm 19606 2006-05-30T15:08:05.048089 <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	10909	11037	
==>f      math.h
frexpl      math.h
fscanf      stdio.h
fseek       stdio.h
fsetpos     stdio.h
ftell       stdio.h
fwrite      stdi <==
3	/Users/nnunley/parrot/lib/File/Which.pm	4123	4218	
==>t> to identify them, C<File::Which> takes extra steps to assure that you
will find the correct f <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3842	3941	
==>$$checklist{$prm}
		or	croak("Invalid value for parameter '$prm'");
        $prm=unpack('@2A*',$pr <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3646	3743	
==>$$checklist{$prm}
		or	croak("Invalid value for parameter '$prm'");
        $prm=unpack('@2A*',$pr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	534938	535030	
==>line 916 \"src/ops/math.ops\"\n   FLOATVAL temp = log((FLOATVAL)2.0);\n  {{\@1}} = log((FLOAT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017401	1017698	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gmtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018325	1018622	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gmtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fu <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	8555	8673	
==>ce = 0;

    $code =~ s/^\s+//;

    # create a copy and remove strings and comments so that
    # unbalanced {} can be <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33946	34064	
==>d') {
        my $type = $method->{type};
        $ret_def = "$type ret_val;";
        $func_ret = $self->gen_ret($meth <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38908	39026	
==>d') {
        my $type = $method->{type};
        $ret_def = "$type ret_val;";
        $func_ret = $self->gen_ret($meth <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557302	557589	
==>ethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 639,
                  "A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558685	558948	
==>ethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 6 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560069	560332	
==>ethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 6 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2905	3014	
==>am(
          $self->{'line_count'},
          "UTF16-BE Byte Encoding Mark found; but Pod::Simple v$Pod::Simp <==
3	/Users/nnunley/parrot/config/auto/pack.pm	2376	2484	
==>data->set(ptrconst => "ul");
    } else {
        warn <<"AARGH";
Configure.pl:  Unable to find an integer ty <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6774	6898	
==>t load operation hooks.
sub pre_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If we need a destinat <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4712	4836	
==>t load operation hooks.
sub pre_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If we need a destinat <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3584	3708	
==>t load operation hooks.
sub pre_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If we need a destinat <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	55923	56053	
==>$_[1], 'number' );
        }
	],
	[#Rule 80
		 'primary', 1,
sub
#line 432 "Lua\lua51.yp"
{
            BuildLiteral( $_[0] <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3028	3149	
==>Label1
Sub2:
   PRINT "3 in subroutine two"
   RETURN Label2   'Cannot return from here to main
                   'progra <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16995	17116	
==>Label1
Sub2:
   PRINT "3 in subroutine two"
   RETURN Label2   'Cannot return from here to main
                   'progra <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	2184	2272	
==>output matches the expected result.

=item C<pasm_output_isnt($code, $unexpected, $descri <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	1546	1674	
==>= $self->output_label_def($op);
        } else {
            foreach my $line ($self->render($op)) {
                $line =~ s/< <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79368	79482	
==>{\n      /* At this point we have the symbol's address. We just need to build\n         a PMC with it so we can get <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80889	81003	
==>{\n      /* At this point we have the symbol's address. We just need to build\n         a PMC with it so we can get <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29582	29730	
==>" => 146,
			"," => 147
		},
		DEFAULT => -107,
		GOTOS => {
			'fieldsep' => 145
		}
	},
	{#State 94
		ACTIONS => {
			"-" => 72,
			".." <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	377	498	
==>$line, $kind, $type, $text) = @_;

  return bless {
    FILE => $file,
    LINE => $line,
    KIND => $kind, # op, 
    TY <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1864	1956	
==>erent runops core. C<ret> will
always treat saved addresses as relative to C<start_code>, bec <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2341	2457	
==>o_file( $code, $lang_fn );

        # STDERR is written into same output file
        my $exit_code = Parrot::Test <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1861	1974	
==>o_file( $code, $lang_fn );

        # STDERR is written into same output file
        my $exit_code = Parrot::Test <==
3	/Users/nnunley/parrot/config/gen/icu.pm	70	163	
==>gen/icu.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/gen/icu.pm - ICU

=h <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692485	692870	
==>i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 778,
                  "ARGS" => [
                              "i",
                              "i",
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 659 \ <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	495	616	
==>all;
    &create_c_include;
    exit;
};
$do_init and do {
    unlink $outfile;
    exit;
};

$file = shift @ARGV;
$file = <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1033	1123	
==>Returns the default 'C<Parrot_>' prefix.

Used by C<Parrot::Op>'s C<func_name()> to individ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	22585	22736	
==>rser,
        'op'     => $opcode{$op},
        'arg1'   => $expr1->[0],
        'arg2'   => $expr2->[0],
        'result' => $flag,
    );
    my <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	10293	10389	
==>, $oldresult)=@_;
	my $ts="INVALID";

	if ($type ne "RESULT") {
		if ($type=~/STRING|INT|FLO|BARE <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2733	2827	
==>pattern, 1);

    goto &Parrot::Test::pir_output_like;
}

=item C<pgeglob_is($target, $pattern, <==
3	/Users/nnunley/parrot/config/auto/python.pm	117	215	
==>e  $

=head1 NAME

config/auto/python - Check whether python is there

=head1 DESCRIPTION

Determin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822296	822389	
==>9, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_INT) {\n    internal_except <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823364	823457	
==>9, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_INT) {\n    internal_except <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	6049	6182	
==>\t/) {
            s/\t/\[TAB\]/g;
            warning($file, $line, "Tab character in source: $_\n");
        }
    }
}


sub check_c <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41231	41332	
==>ratch;
  $self->_handle_element_start(($scratch=$name), shift @_);
  
  foreach my $x (@_) {
    if(re <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	253	352	
==>ns [--help] [--no-lines] [--dynamic] [--core | input.ops [input2.ops ...]]
       trans := C | CGoto <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218854	218967	
==>le->get_string(interpreter, {{\@1}}), {{\@2}}) > 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219833	219946	
==>le->get_string(interpreter, {{\@1}}), {{\@2}}) > 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  " <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	10246	10358	
==>($c);
    if ($typ eq 'P') {
	if ($c =~ /^[_a-zA-Z]/ && !$names{$c}) {	# True, False ...
	    print <<EOC;
	.loca <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1866	1976	
==>/Users/nnunley/parrot/lib] .
             "$PATHQUOTE $PATHQUOTE" .
             q[/Users/nnunley/parrot/tools/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106185	1106283	
==>\"src/ops/experimental.ops\"\n    int typ = {{\@2}};\n    if (typ < 1 || typ >= interpreter->n_vtab <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107161	1107259	
==>\"src/ops/experimental.ops\"\n    int typ = {{\@2}};\n    if (typ < 1 || typ >= interpreter->n_vtab <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	8642	8788	
==>}
  return 1;
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

sub do_beginning {
  my $self = $_[0];

  my $title = <==
3	/Users/nnunley/parrot/lib/Test/More.pm	17332	17446	
==>ts) = @_;
    @imports = () unless @imports;

    my($pack,$filename,$line) = caller;

    local($@,$!);   # eval s <==
3	/Users/nnunley/parrot/config/init/defaults.pm	4224	4327	
==>ot library names
        libparrot_static => 'libparrot'.$Config{_a},
        libparrot_shared => 'libpa <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	1341	1445	
==>ne == 0)
	{
		_die("Usage: perl -MLocalTest - <grammarfile> <classname>")
			unless @ARGV == 2;

		my ($s <==
3	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1239	1359	
==>plan( tests => scalar(@spec) );

    generate_regular($pattern);

    foreach ( @spec ) {
        process($_->{input}, $_ <==
3	/Users/nnunley/parrot/lib/File/Which.pm	5069	5161	
==>x: uses C<.exe> and C<.com> (in that order).

=head1 Functions

=head2 which($short_exe_name) <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	953	1089	
==>=> 1,
    max => 'v',
    min => 'v',
    range => 1,
    xrange => 1,
    reduce => 1,
    str => 1,
    tuple => 1,
);

my %vtables = ( <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	2681	2778	
==>tate of the
test.

Since you only run one test per program C<new> always returns the same
Test::Bu <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3128	3250	
==>-

my $type_map = {
  INTEGER  => [ 1, 'I' ],
  RATIONAL => [ 2, 'I' ],
  REAL     => [ 1, 'N' ],
  COMPLEX  => [ 2, 'I' ], <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	26267	26373	
==>> <op> <value>) {
    #

    if (m/^}\s*(elsif)\s*\(\s*(.*)\s*\)\s*{$/) {
      $self->begin_block(undef, $ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3601	3686	
==>y move.
PRE_OP_${CURIC}_LAZY_MOVE_$register_num:
${STACK$register_num} = pop lazy_move <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	50485	50664	
==>t

                if ($text =~ s/.*?while\s*\{/{/)
                {
                        $loop = "while " . extract_codeblock($text);
                }

        # Remove the f <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4531	4651	
==>drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note that for loading debugg <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4306	4417	
==>drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note that for loading debugg <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576586	576871	
==>terpreter, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577598	577883	
==>terpreter, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	3865	3984	
==>a($currline);
		$currline="";
		goto PARSE;
		
	}
	
	goto PARSE if ($syms[CURR] eq "let");  # ha ha
	
	# TEMP FIXME	
	if <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23024	23202	
==>\n  dest = (opcode_t *)p->vtable->invoke(interpreter, p, dest);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24620	24732	
==>\n  dest = (opcode_t *)p->vtable->invoke(interpreter, p, dest);\n  {{=dest}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	10895	11045	
==>{{\@2}}->vtable->
        (\w+)
        \(interpreter,
        \s*
        {{\@2}}
        \);
        \s+{{\+=\d}}/xm) {
            $jit_func = 'Parr <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34180	34279	
==>ent::lastunexpected = $text;
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' )
		. ($self-> <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	8794	8889	
==>ile.
#

close(SOURCE);
open(SOURCE, "<$source") || die "Error re-reading $source: $!\n";
my $lin <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	7446	7601	
==>1_%0/g;
        }

        # args
        while ($line =~ s/\$(?!(?:P|S|N|I)\d+|R\b)(\w+)/a_$1/)
        {
            my $name = $1;
            my $arg  = <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5774	5892	
==>ibs = %{ $class->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There should be at most a single gr <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5985	6103	
==>ibs = %{ $class->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There should be at most a single gr <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2881	3005	
==>$PATHQUOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUOTE";
}

our $NOW = time();

################### MAIN <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3190	3314	
==>$PATHQUOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUOTE";
}

our $NOW = time();

################### MAIN <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2985	3109	
==>$PATHQUOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUOTE";
}

our $NOW = time();

################### MAIN <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38818	38939	
==>= '';
    my $func_ret = '(void) ';
    my $ret_type = '';
    if ($method->{type} ne 'void') {
        my $type = $method <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1397	1505	
==>>is_end) {
      ...access $token->tagname...
    
    }
  }

(Also see L<Pod::Simple::PullParser>)

=head1 D <==
3	/Users/nnunley/parrot/config/auto/cgoto.pm	1284	1367	
==>/runops_cores.c: $(INC_DIR)/oplib/core_ops_cgp.h

$(INC_DIR)/oplib/core_ops_cg.h: $( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2796	2914	
==>e = $op->value;
      $name =~ s/(^"|"$)//g;
    }

    $name =~ s/^.*:://; # Strip namespaces off ops.

    $compiler- <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4614	4722	
==>o -> destination, where destination is the first
    # argument, given as --destination=DIRECTORY
    shift(@ <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3927	4035	
==>o -> destination, where destination is the first
    # argument, given as --destination=DIRECTORY
    shift(@ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4718	4826	
==>o -> destination, where destination is the first
    # argument, given as --destination=DIRECTORY
    shift(@ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	51260	51444	
==>ua\lua51.yp"
{
            [ $_[1] ];
        }
	],
	[#Rule 43
		 'varlist1', 3,
sub
#line 260 "Lua\lua51.yp"
{
            [
                @{ $_[1] }, 
                Bu <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	5592	5725	
==>temps;
    my @arg;
    my $reg_num = 0;
    my $sig = '';

    if (defined $args and not $args =~ m/^\s*$/ ) {
        foreach (split <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3326	3417	
==>output_is;
}

=item C<pgeglob_isnt($target, $pattern, $description, @todo)>

Runs the target <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2972	3098	
==>n ( $type, $str );
}

sub _SingleQuoteStringLexer {
    my $parser = shift;
    my $str    = q{};
    my $type   = 'STRIN <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	52775	52877	
==>\A\s*<score:(.*)>\Z/s;
				$prod and $prod->addscore($1, $lookahead, $line)
				      or  _no_rule($cod <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	8399	8493	
==>)($XMLNAME).*/ quotemeta "$1\/$2". revbracket($1) /oes)
		{
			_failmsg "Unable to construct cl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	489141	489381	
==>",
                  "CODE" => 560,
                  "ARGS" => [
                              "i",
                              "n"
                            ],
                  "BODY" => "#line 512 \"src/ops/math.ops\"\n  {{\@1}} = (I <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714576	714671	
==>nst io = PIO_STDOUT(interpreter);\n  if (s && string_length(interpreter, s)) {\n    if (PIO_soft <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715499	715594	
==>nst io = PIO_STDOUT(interpreter);\n  if (s && string_length(interpreter, s)) {\n    if (PIO_soft <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126612	126741	
==>L w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127747	127876	
==>L w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128882	129011	
==>L w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186009	186108	
==>/cmp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186939	187038	
==>/cmp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187869	187968	
==>/cmp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683954	684245	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684848	685139	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	10915	11063	
==>ype
      \s+
        (\w+)           #method name
      \s*
        \( ([^\(]*) \)  #parameters
    }sx;

    my ($pre, $classname, $flags)   = pars <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	1409	1543	
==>ops;
}

static void** opcode_to_prederef(Interp* interpreter,
                                        opcode_t* opcode_addr)
{
    INTV <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	5289	5403	
==>c;
    $info->{desc} = $desc;
    return $info;
}

sub describe_c_file {
    my($info,$text) = @_;
    my $comment_ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	2885	2997	
==>f->new_group('Testing', '',
            $self->new_item('', 'tools/dev/mk_native_pbc'),
        ),
        $self- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012753	1012955	
==>S" => [
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 44 \"src/ops/sys.ops\"\n  {{\@1}} = Parrot_Run_OS_Command_Ar <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5092	5194	
==>$pass = $self->output_label_use($passLabel);

    while (@$incexc) {
        my $first = shift(@$incexc <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4767	4869	
==>$pass = $self->output_label_use($passLabel);

    while (@$incexc) {
        my $first = shift(@$incexc <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10404	10516	
==>or token and go to state ".
#DBG>						 $$states[$$stack[-1][0]]{ACTIONS}{error}.
#DBG>						 ".\n";

		push( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9936	10044	
==>or token and go to state ".
#DBG>						 $$states[$$stack[-1][0]]{ACTIONS}{error}.
#DBG>						 ".\n";

		push( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51311	51541	
==>RROT_JUMP_RESTART",
                  "NAME" => "trace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52093	52323	
==>RROT_JUMP_RESTART",
                  "NAME" => "trace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline", <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	2467	2587	
==>late;

    open IN, '<', $file or die "Can't open file $file: $!";
    while ( my $line = <IN>) {
        if ($line =~ m/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	195463	195555	
==>p.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_STRCMP) < 0) {\n    {{+={ <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	8736	8893	
==>'       => 'OR',
        'repeat'   => 'REPEAT',
        'return'   => 'RETURN',
        'then'     => 'THEN',
        'true'     => 'TRUE',
        'unt <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5227	5343	
==>ok.=		(ord($_) < 32 or ord($_) > 126)
#DBG>					?	sprintf('<%02X>',ord($_))
#DBG>					:	$_;
#DBG>		}
#DBG>		$tok. <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4976	5088	
==>ok.=		(ord($_) < 32 or ord($_) > 126)
#DBG>					?	sprintf('<%02X>',ord($_))
#DBG>					:	$_;
#DBG>		}
#DBG>		$tok. <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	6464	6594	
==>8659,
 'hArr'     , 8660,
 'forall'   , 8704,
 'part'     , 8706,
 'exist'    , 8707,
 'empty'    , 8709,
 'nabla'    , 8711,
 'isi <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3086	3190	
==>{
    # Convert X.pmc -> X.dump and X.c and also create any lib-GROUP.c files

    generate_dump($_) fore <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3190	3294	
==>{
    # Convert X.pmc -> X.dump and X.c and also create any lib-GROUP.c files

    generate_dump($_) fore <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4405	4507	
==>nt dtypes index.
inc ${ITEMP0}
PIR
		$pir =~ s/\$push_num/$push_num/g;
		$push_num++;
	}

	# Return gen <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2821	2923	
==>nt dtypes index.
inc ${ITEMP0}
PIR
		$pir =~ s/\$push_num/$push_num/g;
		$push_num++;
	}

	# Return gen <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1811	1899	
==>\par}\n",
 'VerbatimFormatted'  => "\n{\\pard\\li#rtfindent##rtfkeep#\\plain\\s20\\sa180\ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	44671	44776	
==>d");

  $self->_format_columns;

  # not need any more
  $self->{instruction} = undef;
  $self->{regs} = u <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2961	3058	
==>d in a way
that's better for sending to an XML processor (that is, it has
no ignoreable whitespace <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921078	921385	
==>\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sprintf" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921971	922278	
==>\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sprintf" <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4632	4718	
==>}


#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub do <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3263	3348	
==>}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub do <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10815	10899	
==>}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sub do <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	15287	15453	
==>hort)' : '' )
                                . "$temp[$_]->[1];"
                        } @tempi);
        my $temp_out  = join("\n    ", map { "$temp[$_]->[1] = arg <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	312561	312648	
==>\"\n  struct Parrot_Context_info info;\n  Parrot_Context_info(interpreter, CONTEXT(inter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	313293	313380	
==>\"\n  struct Parrot_Context_info info;\n  Parrot_Context_info(interpreter, CONTEXT(inter <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	7399	7494	
==>en-brace');    }
sub skip_open_bracket  { return shift->skip('open-bracket');  }
sub skip_open_p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954254	954342	
==>> "#line 571 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_encoding_number_of_str(interprete <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955045	955133	
==>> "#line 571 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_encoding_number_of_str(interprete <==
3	/Users/nnunley/parrot/config/auto/jit.pm	4173	4306	
==>h $(INC_DIR)/exec.h $(SRC_DIR)/exec_dep.h $(SRC_DIR)/exec_save.h',
                TEMP_exec_o =>
                    '$(SRC_DIR)/exec <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	8586	8715	
==>++$n;
        }
    }
    close OP;
}
  
sub load_op_map_file {
  my $file = shift;

  if (!defined $file) {
    $file = "src/ops/ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1750	1856	
==>cape {
  foreach my $x (@_) {
    # Escape things very cautiously:
    $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1853	1959	
==>cape {
  foreach my $x (@_) {
    # Escape things very cautiously:
    $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\ <==
3	/Users/nnunley/parrot/config/inter/lex.pm	595	706	
==>ical analyzer generator like flex or lex?";
@args        = qw( lex ask maintainer );

sub runstep
{
    my ($sel <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2247	2343	
==>t ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Decrement stack height.
dec stack_depth
PIR
		$p <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3499	3595	
==>t ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Decrement stack height.
dec stack_depth
PIR
		$p <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	689	788	
==>text under the same copyright as the Parse::Yapp module itself.
#
# This notice should remain unch <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	669	766	
==>text under the same copyright as the Parse::Yapp module itself.
#
# This notice should remain unch <==
3	/Users/nnunley/parrot/lib/File/Which.pm	6642	6726	
==>ncements from Peter Prymmer. See
http://www.perl.com/language/ppt/src/which/index.htm <==
3	/Users/nnunley/parrot/examples/benchmarks/oo3.pl	39	158	
==>();
for my $i (1 .. 500000) {
	my $x = $o->[0];
	my $y = $o->[1];
}
print $o->[0], "\n";

package Foo;

sub new {
    my <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37768	37878	
==>y ($self, $type) = @_;

    #return "ret_val = *($1*) " if ($type =~ /((?:INT|FLOAT)VAL)/);
    return "ret_val <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	28737	28935	
==>( {
                  "JUMP" => "PARROT_JUMP_ADDRESS",
                  "NAME" => "get_params",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i" <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	5443	5578	
==>'Phi'      , 934,
 'Chi'      , 935,
 'Psi'      , 936,
 'Omega'    , 937,
 'alpha'    , 945,
 'beta'     , 946,
 'gamma'    , 947,
 'de <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	923651	923759	
==>n  {{\@1}} = string_make_empty(interpreter, enum_stringrep_one, 0);\n  {{+=2}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	2356	2476	
==>}/$dest";
    }

    push @{ $FILES{$package} }, $entry;
}

while (my ($package, $files) = each %FILES) {
    my $manifes <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	22988	23101	
==>($self->{flags}{dynpmc}) {
        $cout .= <<"EOC";
        vt_clone->base_type = entry;
        vt_clone->whoami <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	7441	7550	
==>of_tests_failed++;
    }
    my $wanted = $negate ?? "Unwanted" !! "Expected";

    # As PIL2JS doesn't suppor <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	966	1055	
==>code[i])
#define PREG(i) REG_PMC(cur_opcode[i])
#define SREG(i) REG_STR(cur_opcode[i])
#de <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1082	1171	
==>code[i])
#define PREG(i) REG_PMC(cur_opcode[i])
#define SREG(i) REG_STR(cur_opcode[i])
#de <==
3	/Users/nnunley/parrot/config/init/hints/solaris.pm	1349	1472	
==>gnuc = eval cc_run() or die "Can't run the test program: $!";
        if (defined $gnuc{__GNUC__}) {
            $link = 'g+ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39410	39508	
==>en_output_file,
  'close-input-port'      => \&_op_close_input_port,
  'close-output-port'     => \ <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	2949	3042	
==>e_seen{$str} = $line;
	print "#define _CONST_STRING_$line $n\n";
	print ALL qq!$len\t$hashval\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774093	774345	
==>DE" => 874,
                  "ARGS" => [
                              "p",
                              "kic",
                              "i"
                            ],
                  "BODY" => "#line 377 \"src/ops/set.ops\"\n    {{\@1}}->v <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1053	1161	
==>ILENAME );

$VERSION = '1.05';
$COMPATIBLE = '0.07';
$FILENAME=__FILE__;

use Carp;

#Known parameter <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1019	1119	
==>ILENAME );

$VERSION = '1.05';
$COMPATIBLE = '0.07';
$FILENAME=__FILE__;

use Carp;

#Known parameter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011200	1011419	
==>,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 39 \"src/ops/sys.ops\"\n  {{\@1}} = Parrot_Run_OS_Com <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	9158	9281	
==>ead MANIFEST: $!\n";

    my %files_in_dir_nocase;
    my %files_in_dir_8dot3;
    my $line = 0;
    while (<F>) {
        $ <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	1814	1916	
==>defs and structs are no good
    @funcs = grep !/^(typedef|struct|enum|extern)/, @funcs;

    # Variabl <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2300	2393	
==>ement stack height.
dec stack_depth
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$registe <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3552	3645	
==>ement stack height.
dec stack_depth
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$registe <==
3	/Users/nnunley/parrot/config/inter/encoding.pm	1366	1450	
==>MP_encoding_build .= <<END
src/encodings/$encoding\$(O): src/encodings/$encoding.h sr <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	12130	12233	
==>hook */

static void hop_deinit(void);

/*
 * find a short or full opcode
 * usage:
 *
 * interp->op_lib <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	18703	18805	
==>rd1pos = pos($$textref);
		$$textref =~ m{$label\n}gc;
		$ld2pos = pos($$textref);
		return (
			$start <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	4604	4694	
==>te_label();
			push @{$code{$seg}->{code}}, "\tbranch $labels{$syms[CURR]}\t# Goto $syms[CU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090211	1090543	
==>UMP" => 0,
                  "NAME" => "slice",
                  "FLAGS" => ":python",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1091270	1091602	
==>UMP" => 0,
                  "NAME" => "slice",
                  "FLAGS" => ":python",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1928	2030	
==>name =~ s/::/__/g;

  $compiler->emit(".sub _${subname}");

  foreach my $arg (@args) {
    my ($arg_ty <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41513	41648	
==>=> -111
	},
	{#State 177
		DEFAULT => -108
	},
	{#State 178
		ACTIONS => {
			"-" => 72,
			"<" => 74,
			"%" => 76,
			"==" = <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1585	1709	
==>ack to default
        $self->set_result('no');
        return $self;
    }

    if ($conf->options->get('ask')) {
        $p <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1599	1723	
==>ack to default
        $self->set_result('no');
        return $self;
    }

    if ($conf->options->get('ask')) {
        $p <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18734	18888	
==>@{$args} ) {
        if ( scalar @{ $arg->[1] } ) {
            push @opcodes, @{ $arg->[1] };
        }
        else {
            push @opcodes, new <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	28163	28273	
==>e {
    my ($self, $op, $lastback) = @_;

    if (UNIVERSAL::isa($op, 'Regex::Ops::Tree')) {
        my $method <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	7101	7200	
==>ot/oplib/ops.h"

/*
 * if the architecture can build some or all of these signatures
 * enable the d <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944870	945044	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "charsetname",
                  "FLAGS" => ":base_core",
                  "AR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945679	945853	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "charsetname",
                  "FLAGS" => ":base_core",
                  "AR <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	23752	23846	
==>ure_output($fh);
    $Test->failure_output($file);

Where diagnostic output on test failures an <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50249	50469	
==>preter, PARROT_PROFILE_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51042	51262	
==>preter, PARROT_PROFILE_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/languages/lua/luac.pl	707	814	
==>rning} )
{
    my $nb = $parser->YYData->{nb_warning};
    print "$nb warning(s).\n";
}
if ( $parser->Y <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38489	38597	
==>{"name"} .'})
						if defined $::RD_TRACE;
		') . ($::RD_NO_HITEM ? ''
		     : '$item{q{' . $self->describe <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	18712	18825	
==>interpreter, iglobals,
            IGLOBALS_NCI_FUNCS);

    if (!HashPointer) {
        HashPointer = pmc_new(int <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27833	27941	
==>eedme();
				push(@params, $syms[CURR], $a);
			} elsif ($syms[NEXT] eq "(") {
				feedme();
				while($syms[ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6996	7163	
==>f
				and	$$token=$$value=undef;
                next;
            };

            #reduce
            my($lhs,$len,$code,@sempar,$semval);
            ($lhs,$le <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6671	6831	
==>f
				and	$$token=$$value=undef;
                next;
            };

            #reduce
            my($lhs,$len,$code,@sempar,$semval);
            ($lhs,$le <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	678	773	
==>ns C<nm> on each and determines what external functions are being
called. Note that it assumes a <==
3	/Users/nnunley/parrot/tools/dev/manicheck.pl	1175	1269	
==>d   = ExtUtils::Manifest::skipcheck();

printf "Found %d distinct files among MANIFEST and dire <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806075	806164	
==>\@1}} = {{\@2}}->vtable->get_integer_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806981	807070	
==>\@1}} = {{\@2}}->vtable->get_integer_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	751	842	
==>L<Pod::Simple::PullParserToken> and inherits all its methods,
and adds these methods:

=over <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1177	1268	
==>L<Pod::Simple::PullParserToken> and inherits all its methods,
and adds these methods:

=over <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	657	748	
==>L<Pod::Simple::PullParserToken> and inherits all its methods,
and adds these methods:

=over <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11487	11738	
==>2,
                            'arg1'   => $result,
                            'arg2'   => $key->[0],
                        );
                        $result = $result2;
                    }
                    push @opcodes, @{ $last_key->[ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9715	9942	
==>2,
                        'arg1'   => $result,
                        'arg2'   => $key->[0],
                    );
                    $result = $result2;
                }
                push @opcodes, @{ $last_key->[ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8626	8805	
==>2,
                'arg1'   => $result,
                'arg2'   => $key->[0],
            );
            $result = $result2;
        }
        push @opcodes, @{ $last_key->[ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	690532	690841	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "thaw",
                  "FLAGS" => "",
                  "ARG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691288	691597	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "thaw",
                  "FLAGS" => "",
                  "ARG <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	15984	16066	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _get_initial_item_ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	67321	67489	
==>d }
				$item = new Parse::RecDescent::Subrule($name,
								       $lookahead,
								       $line,
								       $desc,
								       $matchrule,
								       $a <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1996	2108	
==>led from C<new()> to create the path if necessary.

=cut

sub create_path
{
    my $self = shift;
    
    return <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	973	1085	
==>led from C<new()> to create the path if necessary.

=cut

sub create_path
{
    my $self = shift;
    
    return <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650415	650640	
==>27,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 247 \"src/ops/pmc.ops\"\n    if ({{\@2}} > 0 && {{\@2}} < <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	12866	12964	
==>e or two arguments, the first argument is a key specifying
one element of the hash; the second argu <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	44365	44487	
==>ce @$p,$i,1; # remove this line
      $i--; # don't consider next line
      next;
    }

    if( length($formatting) >= le <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	3296	3397	
==>"redim") {
		$syms[CURR]="dim";
		print "WARNING: REDIM interpreted as DIM\n";
	}
	# General purpose k <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8812	8924	
==>0
dim a(max)
for i = 0 to 100
	b=rnd*max+1
	a(b)=a(b)+1
next i
for i = 1 to max
	print ,
	for j = 0 to a(i)
		pri <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20053	20165	
==>0
dim a(max)
for i = 0 to 100
	b=rnd*max+1
	a(b)=a(b)+1
next i
for i = 1 to max
	print ,
	for j = 0 to a(i)
		pri <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	15067	15155	
==>self->{NAV_BAR} = $item->html_navigation("$rel_path/$name");
    $self->{RESOURCES_URL} = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	487890	488049	
==>"
                            ],
                  "BODY" => "#line 488 \"src/ops/math.ops\"\n  {{\@1}} = ceil({{\@2}});\n  {{+=3}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/config/init/hints/solaris.pm	763	872	
==>ersion test.  (If we were to
    # wait till it's normally run, the linker question would have already
    # b <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4727	4838	
==>to '}#_Parse' inclusive.
#So, DO NOT remove comment at end of sub !!!
sub _Parse {
    my($self)=shift;

	m <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4492	4598	
==>to '}#_Parse' inclusive.
#So, DO NOT remove comment at end of sub !!!
sub _Parse {
    my($self)=shift;

	m <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	5289	5368	
==>mitm_pushl_m[^\n]*CONST[^\n]*)/$1\\\n\tParrot_exec_add_text_rellocation(jit_info <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10822	10930	
==>ss)=shift;
        ref($class)
    and $class=ref($class);

    my($self)=$class->SUPER::new( yyversion = <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11822	11926	
==>ss)=shift;
        ref($class)
    and $class=ref($class);

    my($self)=$class->SUPER::new( yyversion = <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2320	2417	
==>ith_name('src'),
        $self->directory_with_name('src/encodings'),
        $self->directory_wit <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861756	862080	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "length",
                  "FLAGS" => ":b <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	19052	19182	
==>{
    my ($include,$depth, @files) = @_;

    for my $file (@files) {
        my $class = read_dump($include, $file);

        prin <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2733	2855	
==>~ s/\.\w+$/.c/;

            _write_a_file($generator, $h, $c);
        }
    }
}

=item C<gen_h>

Writes the header file f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647548	647775	
==>ps/pmc.ops\"\n    {{\@1}} = pmc_type(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648309	648536	
==>ps/pmc.ops\"\n    {{\@1}} = pmc_type(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/config/init/hints/darwin.pm	293	456	
==>);

    my $OSVers = `uname -r`;
    chomp $OSVers;
    {
        local $^W;
        if ($OSVers >= 7) {
            $libs =~ s/-ldl//;
        }
    }

    $ccflag <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	28402	28517	
==>ck)
              unless $self->{DEBUG};
            return $self->wrap($op, $self->$method($op, @{ $op->{args} }, $ <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	5729	5820	
==>other words, calls another method defined in the same file).

=item C<DYNSELF.method(a,b,c)> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447876	448152	
==>\@2}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	448702	448978	
==>\@2}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs <==
3	/Users/nnunley/parrot/lib/File/Which.pm	1118	1273	
==>MBOL $exec`;
        chomp($symbol);
        if (!$?) {
            return $symbol unless $all;
            push @results, $symbol;
        }
    }
    if ( <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	5909	6049	
==>c"
            p6rule_compile = compreg "PGE::P6Regex"

            .local string target
            .local pmc rulesub
            .local pm <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32359	32479	
==>ing the assimilation of next para

          } elsif($item_type eq 'text') {
            # Hm, it's not numeric.  Correct <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	24620	24725	
==>y ($self, $namespace, $rule, $check) = @_;
	
	my $action = '';
	
	if ($self->{"msg"})  # ERROR MESSAGE SUP <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	1231	1349	
==>f:
    #   struct( class => [ element-list ])
    #   struct( class => { element-list })
    #   struct( element-list ) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824525	824615	
==>eption(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_str(entry- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825596	825686	
==>eption(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_str(entry- <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3820	3931	
==>le($_) foreach (@pmcs);

    # lib-GROUP.c
    for my $group (keys %$group_files) {
        compile("$group", "l <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3924	4035	
==>le($_) foreach (@pmcs);

    # lib-GROUP.c
    for my $group (keys %$group_files) {
        compile("$group", "l <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	44701	44808	
==>\xA0]*)+)/


  return;
}


sub _change_S_to_nbsp { #  a recursive function
  # Sanely assumes that the top n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421846	422102	
==>TVAL)PIO_bind(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422739	422995	
==>TVAL)PIO_bind(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2823	2926	
==>st version 3.13 we're normalizing the current
    # working dir to be '.'.
    return (defined $rel_path <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2503	2621	
==>ft;

	${$$self{ERRST}}=0;
    undef;
}

sub YYNberr {
	my($self)=shift;

	${$$self{NBERR}};
}

sub YYRecove <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	6978	7088	
==>0: IO Error. Unable to open file '$file' for reading.\n"
    unless $fh;

  my @lines = <$fh>;

  return @lines <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2400	2506	
==>ft;

	${$$self{ERRST}}=0;
    undef;
}

sub YYNberr {
	my($self)=shift;

	${$$self{NBERR}};
}

sub YYRecove <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202730	202824	
==>ps/cmp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203661	203755	
==>ps/cmp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204592	204686	
==>ps/cmp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	652504	652758	
==>{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	26856	27108	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	10452	10576	
==>S";
				$sym=qq{"$sym"};
			}
			if ($type=~/BARE/) {
				if ($sym=~s/\$$/_string/) {	
					$$optype="S";
				} else {
					$ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	3061	3200	
==>d and set the run options
            my $cmd = qq{$parrot $args $perl6 "$f_code"};
            my $run_options = {
                CD => '. <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	20301	20411	
==>($params);
    $ret_reg  = return_data;
    REG_INT(0) = $stack_returns;
    REG_INT(1) = $int_returns;
    REG <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1327	1478	
==>cut

sub pc
{
    my $self = shift;

    if (@_)
    {
        $self->{PC} = shift;
    }
    else
    {
        return $self->{PC};
    }
}

=item C<ar <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	936	1087	
==>cut

sub pc
{
    my $self = shift;

    if (@_)
    {
        $self->{PC} = shift;
    }
    else
    {
        return $self->{PC};
    }
}

=item C<ar <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	9	102	
==>w
# Copyright (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/examples/mops/mops.pl 19601 2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830689	830878	
==>->user_stack, &i, STACK_ENTRY_INT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831430	831619	
==>->user_stack, &i, STACK_ENTRY_INT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	620315	620467	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "pic_get_params__",
                  "F <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953825	954087	
==>> "encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954615	954877	
==>> "encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10550	10654	
==>my $pmc = $self->_save_1 ('P');
    $self->_morph ($pmc, $value);
    $self->_restore ($value);
    $valu <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	18501	18604	
==>x these first
    $self->_treat_Ls($treelet);  # L has to precede E and S
    $self->_treat_Es($treelet) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	699	793	
==>ed!" unless defined $right;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Con <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	711	805	
==>ed!" unless defined $right;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Con <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	8267	8370	
==>->Indent(3);
    print $vtd $Dumper->Dump();
    close $vtd;
}

=head2 my ($balanced, $remaining) = extr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	220	316	
==>k/Conditional.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

p <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	49624	49718	
==>cted by stepping through the input text and
trying the following alternatives in sequence:

=ov <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1849	1940	
==>($left, 'Jako::Construct::Expression::Value::Identifier')) {
    my $left_sym = $block->find <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1807	1898	
==>($left, 'Jako::Construct::Expression::Value::Identifier')) {
    my $left_sym = $block->find <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1729	1820	
==>($left, 'Jako::Construct::Expression::Value::Identifier')) {
    my $left_sym = $block->find <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2108	2207	
==>}
}

sub uncompress_smoke {
  my $CGI = shift;
  $CGI->param("smoke",
    Compress::Zlib::memGunzip( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103963	1104051	
==>d_class(interpreter, class);\n\t\ttype = pmc_type(interpreter, class);\n\t}\n\tif (type < <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105178	1105266	
==>d_class(interpreter, class);\n\t\ttype = pmc_type(interpreter, class);\n\t}\n\tif (type < <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482181	482540	
==>ase_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 552,
                  "ARGS" => [
                              "i",
                              "i" <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	502	606	
==>rlInt';

getopts('dnD', \%opt);
$file = $ARGV[0];
$lambda_count = 0;

my %builtin_ops = (
    abs => 'o', <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	717	814	
==>ORY => 5,
};
$CGI::POST_MAX = MAX_SIZE;
chdir BASEDIR or die "Couldn't chdir into \"@{[ BASEDIR ]} <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7735	7846	
==>urn ("save $reg");
}

sub output_restore {
    my ($self, $reg) = @_;
    $reg = value($reg);
    return ("resto <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557803	557905	
==>bject;\n  opcode_t *next = {{^+3}};\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  inter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559187	559289	
==>bject;\n  opcode_t *next = {{^+3}};\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  inter <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	9102	9263	
==>' => 8,
             'nv' => 'double',
             'nvsize' => 8,
             'o' => '.o',
             'opcode_t' => 'long',
             'opcode_t_size' => 4, <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2616	2725	
==>Recovering {
	my($self)=shift;

	${$$self{ERRST}} != 0;
}

sub YYAbort {
	my($self)=shift;

	${$$self <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	138	244	
==>config/auto/gmp.pm - Test for GNU MP (GMP) Math library

=head1 DESCRIPTION

Determines whether the platfor <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2501	2601	
==>Recovering {
	my($self)=shift;

	${$$self{ERRST}} != 0;
}

sub YYAbort {
	my($self)=shift;

	${$$self <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	282290	282610	
==>@1}} = {{\@2}} < {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283135	283455	
==>@1}} = {{\@2}} < {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283980	284300	
==>@1}} = {{\@2}} < {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	22888	23013	
==>re deparsed with B::Deparse
    return if $^C;

    my $msg = join '', @msgs;

    local($\, $", $,) = (undef, ' ', '');
    m <==
3	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1538	1639	
==>);

package FindGlobalOp;
use base qw(Lua::opcode);

package FindLexOp;
use base qw(Lua::opcode) <==
3	/Users/nnunley/parrot/config/auto/perldoc.pm	201	297	
==>ESCRIPTION

Determines whether perldoc exists on the system.

=cut

package auto::perldoc;

use s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319279	319501	
==>w exception for conv_u2_ovf\");\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744294	744516	
==>{\@1}} = string_from_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745060	745282	
==>{\@1}} = string_from_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	981	1098	
==>}, @_ ];
  }

  # By now it's a treelet:  [ 'foo', {}, ... ]
  foreach my $x (@$new) {
    if(ref($x || '') eq 'ARRAY' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528040	528357	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528921	529238	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529803	530120	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44915	45057	
==>/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			'DO' => 210,
			"<=" => 85,
			'O <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6031	6161	
==>ShowCurToken."\n";
			};

            $act=   exists($$actions{ACTIONS}{$$token})
                    ?   $$actions{ACTIONS}{$$ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5746	5872	
==>ShowCurToken."\n";
			};

            $act=   exists($$actions{ACTIONS}{$$token})
                    ?   $$actions{ACTIONS}{$$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093266	1093625	
==>" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1212,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 209 \"s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	532284	532580	
==>AGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 615,
                  "ARGS" => [
                              "n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026545	1026779	
==>} = sysinfo_i(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1027302	1027536	
==>} = sysinfo_i(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	415	510	
==>uild/ops2c.pl C --core

    % perl tools/build/ops2c.pl C --dynamic myops.ops

=head1 DESCRIPTIO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	620108	620419	
==>\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "N <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137347	137656	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "N <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	304868	305177	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "N <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	55907	56038	
==>Literal( $_[0], $_[1], 'number' );
        }
	],
	[#Rule 80
		 'primary', 1,
sub
#line 432 "Lua\lua51.yp"
{
            Buil <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	1992	2088	
==>lass)>

Returns the appropriate C<Parrot::Pmc2c> subclass for the PMC
(C<< $self->{class} >>). C< <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7901	7991	
==>s stack?
${ITEMP0} = elements lazy_moves
if ${ITEMP0} > 0 goto PRE_STORE_${CURIC}_LAZY_MOVE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921429	921867	
==>,
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1037,
                  "ARGS" => [
                              "s",
                              "sc",
                              "p"
                            ],
                  " <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	2537	2672	
==>n";

    my $cnt = 0;
    my $idx = 0;
    my( $cmt, $name, $type, $elem );

    if( $base_type eq 'HASH' ){
        $out .= "    my(\$r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202615	202799	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 380 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203546	203730	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 380 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204477	204661	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 380 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3949	4050	
==>my $temp_pmc = $compiler->temp_pmc();

    $compiler->emit("  $temp_pmc = new $pmc_type");
    $compil <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1588	1689	
==>my $temp_pmc = $compiler->temp_pmc();

    $compiler->emit("  $temp_pmc = new $pmc_type");
    $compil <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1351	1452	
==>my $temp_pmc = $compiler->temp_pmc();

    $compiler->emit("  $temp_pmc = new $pmc_type");
    $compil <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3543	3665	
==>join(" ",@pmcfiles))
              or die "pmc2c library creation failed ($?)\n";
        }
    }
} 
elsif ($mode eq 'compi <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3647	3769	
==>join(" ",@pmcfiles))
              or die "pmc2c library creation failed ($?)\n";
        }
    }
} 
elsif ($mode eq 'compi <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	8669	8794	
==>an't close    stdout" if $out;
    close STDERR             or die "Can't close    stderr" if $err;

    open  STDOUT, ">&OLDO <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8201	8313	
==>an't close    stdout" if $out;
    close STDERR or die "Can't close    stderr" if $err;

    open STDOUT, ">&OLDO <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	265	364	
==>$skip );

sub linenum
{
	my ($thisline) = @_;
	my $tlc;
	tie $tlc, q{Parse::RecDescent::LineCounter} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191469	191666	
==>,
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 313 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(i <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	16677	16801	
==>s;
      if($value > 255) {
        push @good , sprintf "   %-10s , chr(%s),\n", "'$name'", $value;
        push @bad  , spr <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	14213	14310	
==>jump}_${incase}:\t# Default\n";
		$selects[-1]->{incase}=$incase+1;
		return;
	}

	my $lambda=<<GL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519628	519795	
==>i"
                            ],
                  "BODY" => "#line 739 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520483	520650	
==>i"
                            ],
                  "BODY" => "#line 739 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	1625	1722	
==>file_with_name($name)), 
                $dist->relative_path($dist->c_header_file_with_name($name <==
3	/Users/nnunley/parrot/config/init/defaults.pm	7286	7433	
==>->options->get('profile')) {
        $conf->data->set(
            cc_debug => " -pg ",
            ld_debug => " -pg ",
        );
    }

    retur <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3924	4028	
==>h this point.
    $pir .= _do_lazy_moves('_${CURIC}') if $pushes;

	# Do code for each push.
	$pir .= "\$ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49980	50082	
==>or  _no_rule("<perl_quotelike>",$line);
			}
			elsif ($grammar =~ m/$CODEBLOCKMK/gco)
			{
				_parse( <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	510	602	
==>ot::Docs::HTMLPage;

use strict;
use warnings;

=item C<header($title, $navigation, $resource <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14437	14553	
==>irst
u(2).foo=56
print u(2).foo

' Array assignment, 78
dim y(5)
y(1)=78
print y(1)

' Casting with arrays, 5.00000
d <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	605	713	
==>['write_ARRAY',  'print', '"("'],
  ['write_NEXT',   'set', 'P6', 'P5'],
  ['',             'set', 'P5', 'P6[ <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	698	793	
==>iled->new;

use Data::Dumper;
$Data::Dumper::Useqq  = 1;
$Data::Dumper::Terse  = 1;
$Data::Dumpe <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	3662	3770	
==>ode'\n";
	if ($line) {
	    $source = $source[$line-1];
	    if ($source =~ /def (\w+)\s*\((.*)\)/) {
		my ($ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1369	1462	
==>${PTEMP0} = ${STYPES}[${ITEMP0}]

# Assign register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0 <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3079	3172	
==>${PTEMP0} = ${STYPES}[${ITEMP0}]

# Assign register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523760	524012	
==>" => 604,
                  "ARGS" => [
                              "n",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 744 \"src/ops/math.ops\"\n  {{\@1}} = {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	2478	2600	
==>no strict 'refs';

        *{ $package . '::' . $func } = sub ($$;$%) {
            my( $code, $expected, $desc, %extra ) = <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	9138	9241	
==>, STRING *val)
{
    Parrot_init_ret_nci(interpreter, st, "S");
    UVal_str(st->val) = val;
    Parrot_ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8584	8665	
==>T","COMPUTER"
data "DAMAGES","DESTRUCT","DOCK","IDLE","IMPULSE","LRSCAN","NAVIGATE <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21448	21529	
==>T","COMPUTER"
data "DAMAGES","DESTRUCT","DOCK","IDLE","IMPULSE","LRSCAN","NAVIGATE <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7838	7949	
==>xt;
        ++$dont_wrap if $tagname eq 'Verbatim' or $tagname eq "VerbatimFormatted"
          or $tagname eq ' <==
3	/Users/nnunley/parrot/config/auto/jit.pm	126	221	
==>$

=head1 NAME

config/auto/jit - JIT Capability

=head1 DESCRIPTION

Determines the CPU archite <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1736	1827	
==>r_offset($offset)>

An offset expression is always an offset from C<start_code>, because
the <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	765	945	
==>cut

################################################################################

use strict;
use warnings;

use Data::Dumper;
use Text::Wrap;
use File::Find;
use File::Basenam <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	1073	1204	
==>en .= $ch;
    } elsif($ch eq '.' and
            $token =~ /^\d+$/) {  # Equal sign can follow '<','>'
      $token .= $ch;
    } e <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	57	152	
==>r IMCC
# Language:	Parrot IMCC
# Maintainer:	Andy Bussey <andybussey@yahoo.co.uk>
# Last change: <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	30045	30166	
==>new BranchOp( $parser,
        'result' => $lbl_blk,
    );
    push @opcodes, new LabelOp( $parser,
        'arg1' => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349148	349241	
==>interpreter, {{\@2}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, \"+<\");\n  /* string_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350150	350243	
==>interpreter, {{\@2}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, \"+<\");\n  /* string_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321830	322121	
==>{
                  "JUMP" => 0,
                  "NAME" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322601	322892	
==>{
                  "JUMP" => 0,
                  "NAME" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323373	323664	
==>{
                  "JUMP" => 0,
                  "NAME" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1640	1754	
==>ed quoting as they may contain spaces.
    $PATHQUOTE = '"';

    unless ($CC =~ /gcc/i) {
        $LIBPARROT = '/U <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1644	1758	
==>ed quoting as they may contain spaces.
    $PATHQUOTE = '"';

    unless ($CC =~ /gcc/i) {
        $LIBPARROT = '/U <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	603520	603614	
==>e 404 \"src/ops/object.ops\"\n    {{\@1}} = VTABLE_name(interpreter, {{\@2}});\n    {{+=3}};\n" <==
3	/Users/nnunley/parrot/config/init/hints/linux.pm	264	378	
==>libs');
    my $cflags    = $conf->data->get('ccflags');
    my $cc        = $conf->data->get('cc');
    my $linkfl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	923	1025	
==>ock->push_content($self);

  return $self;
}

sub left  { return shift->{LEFT};  }
sub right { return s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	931	1033	
==>ock->push_content($self);

  return $self;
}

sub left  { return shift->{LEFT};  }
sub right { return s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11272	11391	
==>($t->is_end   and $t->tag eq 'X') { --$x_open }
      }
    }
  }
  
  $out =~ tr/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65 <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	55075	55176	
==>e);
			}
			elsif ($grammar =~ m/(?=$DEFERPATMK)/gco
				and do { ($code) = extract_codeblock($grammar <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517789	518146	
==>RGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 597,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	20414	20553	
==>'}\n";
                $byte2_todo{"$prefix$_->{'code'}"} = $_->{'group'};
            } else {
                # Not a group; jump straight <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37618	37707	
==>p_count == 0 goto INS_TRANS_PUSH_LOOP_$name
type_trans = dtypes[0]
push stypes, type_trans <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	3258	3370	
==>section = $1;
    next;
  }

  # Everything else goes to the handler
  $dispatch{$cur_section}->($line);

}

# Pu <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37467	37564	
==>rule->{"name"} . '})
					if defined $::RD_TRACE;').'
		$Parse::RecDescent::lastexpected = ' . ($r <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39870	39967	
==>rule->{"name"} . '})
					if defined $::RD_TRACE;').'
		$Parse::RecDescent::lastexpected = ' . ($r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736707	736978	
==>ATVAL){{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737453	737724	
==>ATVAL){{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	12170	12297	
==>0,
			"[" => 14,
			"." => 15
		},
		GOTOS => {
			'charclass' => 12,
			'expr' => 11,
			'regex' => 13,
			'rule' => 8,
			'reg <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	366	464	
==>--vtable

Print a class tree for the specified PMCs:

    % perl tools/build/pmc2c.pl --tree src/pm <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464987	465320	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	320	422	
==>ster;
use strict;
use SRM::Base;
our @ISA = qw/SRM::Base/;

# Constructor. Just base this class on a ha <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	226	328	
==>ster;
use strict;
use SRM::Base;
our @ISA = qw/SRM::Base/;

# Constructor. Just base this class on a ha <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	42862	43019	
==>treelet->[$i] = 'E<>'; # splice in a literal
        next;
      }
        
      # bitch if content is weird
      unless(@{$treelet->[$i]} == 3 and !ref($co <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	240	332	
==>:Tcl, which looks like it's
largely a copy of Parrot::Test::Python. Abstraction needed.

=cut <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	278	370	
==>:Tcl, which looks like it's
largely a copy of Parrot::Test::Python. Abstraction needed.

=cut <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1551	1692	
==>elf = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = $op->{op} <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2211	2352	
==>elf = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = $op->{op} <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	305	416	
==>rser->YYData->{nb_error} = 1;
    }

    print STDOUT 'lua: ', $parser->YYData->{srcname}, ':',
        $par <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27639	27760	
==>} ) {
        next unless $method->{loc} eq 'nci';
        $hout .= $self->decl($classname, $method, 1);
    }
    # class <==
3	/Users/nnunley/parrot/config/gen/platform.pm	1063	1181	
==>tform' " if $verbose;

    my $generated = $conf->data->get('TEMP_generated');
    $generated = '' unless defined $gene <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	26306	26410	
==>od" }
	$desc =~ s/\\/\\\\/g;
	$desc =~ s/\$$/\\\$/g;
	$desc =~ s/}/\\}/g;
	$desc =~ s/{/\\{/g;

	if (!eva <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	395	503	
==>uct::Block::Conditional);

#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $left, $op, $right) = @_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	407	515	
==>uct::Block::Conditional);

#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $left, $op, $right) = @_ <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	13577	13670	
==>s of the version of Perl you're using --
which differs from C<%Name2character>'s behavior unde <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059574	1059839	
==>AME" => "find_name",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 11 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060478	1060743	
==>AME" => "find_name",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 11 <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	128	231	
==>head1 NAME

Parrot::OpTrans - Transform Ops to C Code 

=head1 DESCRIPTION

C<Parrot::OpTrans> is the ab <==
3	/Users/nnunley/parrot/lib/Test/More.pm	26444	26600	
==>idx}";
        }
        elsif( $type eq 'ARRAY' ) {
            $var .= "->" unless $did_arrow++;
            $var .= "[$idx]";
        }
        elsif( $ty <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	3718	3822	
==>lude "parrot/dynext.h"
EOC
    foreach my $pmc (values %{$self->{pmcs}}) {
        my $name = lc $pmc->{c <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	279	368	
==>'all_cstring.str';
my $string_private_h = 'src/string_private_cstring.h';

my ($result, $d <==
3	/Users/nnunley/parrot/examples/benchmarks/oo5.pl	284	399	
==>0] = shift } else { $self->[0] }
}

sub j {
    my $self = shift;
    if (@_) { $self->[1] = shift } else { $self->[ <==
3	/Users/nnunley/parrot/examples/benchmarks/oo6.pl	276	391	
==>0] = shift } else { $self->[0] }
}

sub j {
    my $self = shift;
    if (@_) { $self->[1] = shift } else { $self->[ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7775	7871	
==>entation, if it exists. If an C<ABSTRACT> is found then
that is preferred.

=cut

sub short_descr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	27962	28210	
==>IVE",
                  "NAME" => "get_results",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	2644	2738	
==>return $self->stat->mode & 0111;
}

=item C<modified_since($time)>

Use this to find out whethe <==
3	/Users/nnunley/parrot/config/init/defaults.pm	3835	3970	
==>',

        # ld output file.  Keep the trailing space.
        ld_out => '-o ',

        # include debug info in executable
        ld_ <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	564	670	
==>item * the elapsed time, and 

=item * the number of M op/s.

=back

=cut

sub time_hires { time() }

$I2 = <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	567	672	
==>item * the elapsed time, and

=item * the number of M op/s.

=back

=cut

sub time_hires { time() }

$I2 = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4822	4919	
==>$dest_ident->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();

    $compiler->emit("  $pmc <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2885	2982	
==>$dest_ident->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();

    $compiler->emit("  $pmc <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	52	141	
==>gure::Step from config/gen/makefiles/dynclasses_pl.in

# Copyright: 2001-2005 The Perl Fou <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165476	165727	
==>ODE" => 199,
                  "ARGS" => [
                              "sc",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 190 \"src/ops/cmp.ops\"\n  if (string <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2836	2952	
==>f;
}

sub YYError {
	my($self)=shift;

	${$$self{CHECK}}='ERROR';
    undef;
}

sub YYSemval {
	my($self)= <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2704	2809	
==>f;
}

sub YYError {
	my($self)=shift;

	${$$self{CHECK}}='ERROR';
    undef;
}

sub YYSemval {
	my($self)= <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	36812	36931	
==>dering known directive ${$para}[0] as $para_type\n";
      } else {
        # An unknown directive!
        DEBUG > 1 an <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12328	12428	
==>"}}[0] eq $ref  if scalar @{$self->{"items"}};
	return 0;
}

sub leftmostsubrule($)
{
	my $self = shi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8959	9052	
==>that uses find_symbol() to locate a matching
symbol, and then returns that symbol's scope (glo <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	1408	1519	
==>ind::name;
    }}, '.');
}


FILE:
foreach my $file (@files) {
    $file =~ s/^\.\///g;
    if (!open(F, "<$file <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1048	1157	
==>LE $FILENAME );

$VERSION = '1.05';
$COMPATIBLE = '0.07';
$FILENAME=__FILE__;

use Carp;

#Known param <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1014	1115	
==>LE $FILENAME );

$VERSION = '1.05';
$COMPATIBLE = '0.07';
$FILENAME=__FILE__;

use Carp;

#Known param <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856679	856816	
==>c"
                            ],
                  "BODY" => "#line 105 \"src/ops/string.ops\"\n  {{\@1}} = string_concat(interpreter, {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857569	857706	
==>c"
                            ],
                  "BODY" => "#line 105 \"src/ops/string.ops\"\n  {{\@1}} = string_concat(interpreter, {{ <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	1980	2072	
==>alled from C<new()> to create the parent path if necessary.
Subclasses should reimplement thi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21682	21832	
==>n->[-1][0] eq '=for' )
            ? ( " (Should be \"=end " . $curr_open->[-1][1]{'target'} . '")' )
            : ''
          )
        );
        D <==
3	/Users/nnunley/parrot/config/auto/signal.pm	494	601	
==>$conf) = @_;

    my $verbose = $conf->options->get('verbose');

    $conf->data->set(
        has___sighand <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	53	150	
==>ps track of the current stack depth and assigns to
# virtual registers numbered by depth. This eli <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	53	150	
==>ps track of the current stack depth and assigns to
# virtual registers numbered by depth. This eli <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528073	528371	
==>=> 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528954	529252	
==>=> 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529836	530134	
==>=> 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	29526	29643	
==>es>", there is no link text. Note
# that link text may contain formatting.)
# 

############# The element children
# S <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2031	2131	
==>sub   end_over_number  { --$_[0]{'Indent'} }
sub   end_over_text    { --$_[0]{'Indent'} }
sub   end_o <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1599	1699	
==>sub   end_over_number  { --$_[0]{'Indent'} }
sub   end_over_text    { --$_[0]{'Indent'} }
sub   end_o <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	3553	3662	
==>ach my $stmt (@output2) {
        # $stmt : { label => ?label, code => op }
	my ($label, $actual) = @$stmt{'la <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6374	6461	
==>lements P_arg_0
POST_BRANCH_switch_${CURIC}_LOOP:
if i == 0 goto POST_BRANCH_switch_${CU <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4312	4399	
==>lements P_arg_0
POST_BRANCH_switch_${CURIC}_LOOP:
if i == 0 goto POST_BRANCH_switch_${CU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	933575	933839	
==>> 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934349	934613	
==>> 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	8682	8796	
==>ack { 0 }
sub dfa_safe { 1 }

package Regex::Ops::Tree::nop;
sub minlen { 0 }
sub maxlen { 0 }

package Regex::Ops: <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	32800	32944	
==>,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			'DO' => 163,
			"<=" => 85,
			'OR' => 84,
			">" => 86
		}
	},
	{#State 116
		ACTION <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	46810	46913	
==>ment",0,$line);
			next;
		}
		elsif ($grammar =~ m/$NEGLOOKAHEAD/gco)
		{
			_parse("a negative lookahe <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	8561	8676	
==>guarantee, $follow_min);

    } elsif ($type eq 'seq' && $t->{add_check_visited}) {
        my ($kid_follow_min, $ki <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553775	553870	
==>4 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  S <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555172	555267	
==>4 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  S <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885562	885881	
==>],
                  "TYPE" => "inline",
                  "CODE" => 1002,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 244 \"sr <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	9442	9550	
==>his = shift;
  # Max_token is so high because these are
  #  typically at the end of the document:
  $this->_ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3032	3136	
==>val1, $val2, $dest);
}

sub output_ne {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_test( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2728	2832	
==>val1, $val2, $dest);
}

sub output_ne {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_test( <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	1719	1866	
==>est eq "gdbm is working.\n") {
            $has_gdbm = 1;
            print " (yes) " if $verbose;
            $self->result('yes');
        }
    } <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2818	2942	
==>value");
      $args[$i] = $temp;
    }
    else {
      $args[$i] = $args[$i]->compile($compiler);
    }
  }

  if (($dest_i <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	35	132	
==>ranslator Generator
# Script to generate the instruction translator from a rules file and a
# stac <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	176	283	
==>e strict;

use Data::Dumper;
use File::Basename;

require Parrot::Test;

=head1 NAME

Test/Lua.pm - <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	4797	4905	
==>= | &= | <<= | >>= )(.*)$}x) {
      push @tokens, Jako::Token->new(
        $file, $line, 'bit-assign', unde <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9336	9434	
==>out, $o, $link, $linkflags, $cc_exe_out, $exe, $libs) = $conf->data->get(
        qw(cc ccflags ld_ <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8823	8919	
==>::num_of_tests_failed = 0;
    $Test::num_of_tests_badpass = 0;
    $Test::num_of_tests_planned = <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	493	636	
==>Y {
        my $class = shift;
        return bless [], $class;
    }

    sub STORE {
        my ($self, $index, $value) = @_;
        Class::S <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7329	7447	
==>g);

    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        return ("set <rx_tmp>, <rx_sta <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9429	9546	
==>g);
    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        return ("set <rx_tmp>, <rx_sta <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	310259	310361	
==>r_opcode + 1;\n        PDB_set_break(interpreter,NULL);\n        while (!(interpreter->pdb->state & PDB <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	20630	20743	
==>aking note to ", $dont_ignore ? 'not ' : '',
        "ignore contents of this region\n";
      DEBUG > 1 and $dont <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	10769	10871	
==>ename_re = quotemeta($titlename);

  my $head1_text_content;
  my $para_text_content;

  while(
    ++$ <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	445	539	
==>uild/headerizer.pl OBJFILES

=head1 DESCRIPTION

=head1 TODO

* Tell if there are funcs without <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712755	712948	
==>reter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713862	714055	
==>reter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/examples/benchmarks/arriter.pl	156	258	
==>AME

examples/benchmarks/arriter.pl - Iterator Benchmark

=head1 SYNOPSIS

    % time perl examples/ben <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	8727	8827	
==>$trans->run_core_finish($base);
}


#
# reset #line in the SOURCE file.
#

close(SOURCE);
open(SOURCE <==
3	/Users/nnunley/parrot/lib/Test/More.pm	17150	17247	
==>mpile-time" is relative.  Instead, you want:

  BEGIN { use_ok('Some::Module') }
  BEGIN { ...some <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417996	418465	
==>> [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 481,
                  "ARGS" => [
                              "i",
                              "p",
                              "ic",
                              "i", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670412	670652	
==>ne",
                  "CODE" => 750,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 415 \"src/ops/pmc.ops\"\n    {{\@1}}-> <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	32396	32546	
==>{
        $self->whine( $start_line, "An empty L<>" );
        $treelet->[$i] = 'L<>';  # just make it a text node
        next;  # and move on
      } <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	7747	7845	
==>ubstitutions made by
C<$trans> (a subclass of C<Parrot::OpTrans>).

=cut

sub source
{
    my ($sel <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6840	6950	
==>need_dest = shift;
	my $pir = "";

	# If we need a destination, we simply supply the register to load
	# into h <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4778	4888	
==>need_dest = shift;
	my $pir = "";

	# If we need a destination, we simply supply the register to load
	# into h <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	8469	8577	
==>rg =        ($#arg & 01) ? @arg : (@arg, undef);
	my $text;
	my $lastsep="";
	local ($Parse::RecDescent::fail <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1356	1478	
==>lf->{relpath}, 
            STDOUT => $out_f, STDERR => $out_f, 
        );
        my $prog_output = Parrot::Test::slurp_f <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1272	1394	
==>lf->{relpath}, 
            STDOUT => $out_f, STDERR => $out_f, 
        );
        my $prog_output = Parrot::Test::slurp_f <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	13603	13704	
==>ree::reftree {
    my $op = shift;
    return $op->{name};
}

sub Regex::Ops::Tree::_onearg::reftree { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528077	528399	
==>,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528958	529280	
==>,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529840	530162	
==>,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	625852	625986	
==>)cur_opcode[2 + i];\n                break;\n            case PARROT_ARG_FLOATVAL:\n                args[1 + i] = (_reg_base + cur_opco <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4704	4806	
==>d from 'sub _Parse' up to '}#_Parse' inclusive.
#So, DO NOT remove comment at end of sub !!!
sub _Par <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4469	4569	
==>d from 'sub _Parse' up to '}#_Parse' inclusive.
#So, DO NOT remove comment at end of sub !!!
sub _Par <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2615	2738	
==>raLibs =~ s/\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else {
        $liblist = join( ' ', map { "-l$_" } <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2924	3047	
==>raLibs =~ s/\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else {
        $liblist = join( ' ', map { "-l$_" } <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2719	2842	
==>raLibs =~ s/\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else {
        $liblist = join( ' ', map { "-l$_" } <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	37017	37140	
==>t keys %{$self->{'accept_directives'}} )
        ;
        $self->whine(
          $para->[1]{'start_line'},
          "Unkn <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5112	5227	
==>my ($handler) = @_;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3175	3290	
==>my ($handler) = @_;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	27306	27416	
==>= promote($tos);
    my $s = temp('P');
    print <<EOC;
	$s = $p."__get_repr"() $cmt
EOC
    push @stack, [-1, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64743	64833	
==>ERN_CODE_FLAG);\n  new_interp->code = interpreter->code;\n  runops(new_interp, REL_PC + {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65694	65784	
==>ERN_CODE_FLAG);\n  new_interp->code = interpreter->code;\n  runops(new_interp, REL_PC + {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	370072	370360	
==>],
                  "TYPE" => "function",
                  "CODE" => 433,
                  "ARGS" => [
                              "s",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 341 \"src/op <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	11985	12084	
==>elf->_add_inst(''           ,'set',[$return,1]);
  $self->_add_inst("DONE_$label");
  return $return <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	53901	53996	
==>eset).

=item 4.

A value indicating whether unmatched substrings (see below) within the
text sh <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	9400	9534	
==>G',
   72, 'H',
   73, 'I',
   74, 'J',
   75, 'K',
   76, 'L',
   77, 'M',
   78, 'N',
   79, 'O',
   80, 'P',
   81, 'Q',
   82, 'R', <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7500	7626	
==>$reg",
                $self->dbprint("PUSHED[\%<<rx_tmp>>] INT: \%<$reg>$desc\n"),
               );
    }
    return $self->p <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3740	3851	
==>ut {
	feedme();
	my $promptcode="";
	if ($syms[CURR] eq ";") {
		feedme();		# Ignore this form for now.
	}
	if ( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667554	667661	
==>{{\@1}}->vtable->push_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668328	668435	
==>{{\@1}}->vtable->push_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	27739	28008	
==>\n    {{+=argc + 2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "get_results" <==
3	/Users/nnunley/parrot/languages/regex/test.pl	2489	2606	
==>pile;

my $status = 1;

my $testCount = 1;
$_ = <SPEC>;
while (1) {
    my ($input, $output);

    last if ! defined $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	39401	39518	
==>e and !$link_text and @ell_content
         and grep !ref($_) && m/ /s, @ell_content
      ) {
        $section_name = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516246	516528	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 595,
                  "ARGS <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	19711	19863	
==>est Module
                #       that would open the door for Scheme::Test
                $language = ucfirst($language);

                # make sure <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519515	519748	
==>"ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 739 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4649	4787	
==>& 2 == keys %$self) {
        return $self->{args}->[0];
    } else {
        return $self;
    }
}

sub minlen {
    my $op = shift;
    m <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5786	5924	
==>& 2 == keys %$self) {
        return $self->{args}->[0];
    } else {
        return $self;
    }
}

sub minlen {
    my $op = shift;
    m <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	5422	5525	
==>build,
        TEMP_pmc_classes_o   => $TEMP_pmc_classes_o,
        TEMP_pmc_classes_str => $TEMP_pmc_cl <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1851	1951	
==>river version $VERSION ".
			  "incompatible with version $$self{VERSION}:\n".
			  "Please recompi <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1786	1884	
==>river version $VERSION ".
			  "incompatible with version $$self{VERSION}:\n".
			  "Please recompi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594760	595031	
==>on",
                  "CODE" => 674,
                  "ARGS" => [
                              "p",
                              "kc",
                              "kc"
                            ],
                  "BODY" => "#line 325 \"src/ops/object.ops\"\n  PM <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	2829	2938	
==>ame =~ m/^head\d$/s) 
    {
        $self->process_item_text_or_head_start_token($token);
    } 
    elsif ($t <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	31553	31651	
==>tests ran!');
}

=item B<_whoa>

  _whoa($check, $description);

A sanity check, similar to assert( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407043	407363	
==>"i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 470,
                  "ARGS" => [
                              "s",
                              "ic",
                              "sc"
                            ],
                  "BODY" => "#line 535 \"sr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79290	79395	
==>son\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      /* At this point we <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80811	80916	
==>son\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      /* At this point we <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369478	369586	
==>io.ops\"\n  {{\@1}} = PIO_reads(interpreter, {{\@2}}, (size_t){{\@3}});\n  {{+=4}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	370363	370471	
==>io.ops\"\n  {{\@1}} = PIO_reads(interpreter, {{\@2}}, (size_t){{\@3}});\n  {{+=4}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9916	10015	
==>code($namespace,$self,$parser);

		$code .= $parser->{deferrable}
				? '		splice
				@{$thisparser- <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	16666	16772	
==>incase}_NO_OP:
	pop P1, P14
	pop S0, P14
	push P9, S0
	push P9, "OP"
	P0= P1
	bsr RUNTIME_PUSH
	P0= P5
	bsr <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	9930	10018	
==>UTF-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
  "http://www.w3.org/TR/xhtml1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456095	456385	
==>,
                  "TYPE" => "inline",
                  "CODE" => 523,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 235 \"src/ops/mat <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	729	845	
==>{
		$var=$syms[CURR];
		feedme();
		next if $var eq ",";
		my $array=0;
		if ($syms[CURR] eq "(") {
			$array=1;
			w <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	3391	3485	
==>self->new_item('', 'tools/util/ncidef2pasm.pl'),
            $self->new_item('', 'tools/util/sm <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	4168	4270	
==>rce =~ /lambda\s(.*?):/) {
		my $f = "lambda_$lambda_count";
		print "#xxxxxxxxx $f\n";
		my $args = $1 <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24205	24307	
==>us {
  my ($self,$node) = @_;
  my $return;
  my $num_children = defined $node->{children} ? @{$node->{ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25093	25195	
==>us {
  my ($self,$node) = @_;
  my $return;
  my $num_children = defined $node->{children} ? @{$node->{ <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	1928	2111	
==>e;
            $self->set_result('yes');

            $conf->data->set(
                gmp     => 'define',
                HAS_GMP => $has_gmp,
            );
        }
    }
    unl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	4505	4648	
==>1);
      $text = $2;
      next;
    }

    #
    # (Prefix) Ops:
    #

    if ($text =~ m{^(new)(?!\w)(.*)$}) {
      push @tokens, Jako::Tok <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	620869	620969	
==>MC *sig, *ccont;\n    opcode_t *src_pc;\n    void **src_pred;\n    parrot_context_t *caller_ctx, *ctx <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11121	11210	
==>C}
goto pre_call_NO_RETURN_${CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${STEMP0} <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8307	8396	
==>C}
goto pre_call_NO_RETURN_${CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${STEMP0} <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5969	6058	
==>C}
goto pre_call_NO_RETURN_${CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${STEMP0} <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5244	5344	
==>ed to generate
	# the name of the destination register emulating the stack position and
	# generate a <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1144	1243	
==>ss_label} = 1;
    $ctx->{external_labels}{$fail_label} = 1;

    my $opt2 = Regex::Optimize->new(%o <==
3	/Users/nnunley/parrot/config/auto/pack.pm	165	263	
==>ing

=head1 DESCRIPTION

Figures out how to C<pack()> Parrot's types.

=cut

package auto::pack;

u <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459887	459984	
==>ter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460875	460972	
==>ter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461863	461960	
==>ter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4 <==
3	/Users/nnunley/parrot/config/init/miniparrot.pm	138	228	
==>ead1 NAME

config/init/miniparrot.pm - Miniparrot configuration

=head1 DESCRIPTION

Modifi <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15925	16015	
==>=convert_to_rpn(@expr);	# Get infix into RPN
		($result,$type,@stream)=generate_code(0, @st <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	17076	17166	
==>=convert_to_rpn(@expr);	# Get infix into RPN
		($result,$type,@stream)=generate_code(0, @st <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2682	2780	
==>rt_offset($offset)>

Returns the C code for C<restart OFFSET($offset)>.

=cut

sub restart_offset
{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4017	4115	
==>rt_offset($offset)>

Returns the C code for C<restart OFFSET($offset)>.

=cut

sub restart_offset
{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3715	3813	
==>rt_offset($offset)>

Returns the C code for C<restart OFFSET($offset)>.

=cut

sub restart_offset
{ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	702	812	
==>od::Simple::Debug (NUMVAL)\nor"
                    . "\n use Pod::Simple::Debug (\\\$var, STARTNUMVAL)\nAborti <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1179	1289	
==>od::Simple::Debug (NUMVAL)\nor"
                    . "\n use Pod::Simple::Debug (\\\$var, STARTNUMVAL)\nAborti <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	523	629	
==>od::Simple::Debug (NUMVAL)\nor"
                . "\n use Pod::Simple::Debug (\\\$var, STARTNUMVAL)\nAborti <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722375	722479	
==>r, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_softspac <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723404	723508	
==>r, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_softspac <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724448	724552	
==>r, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_softspac <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	119412	119622	
==>],
                  "BODY" => "#line 231 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120267	120477	
==>],
                  "BODY" => "#line 231 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121122	121332	
==>],
                  "BODY" => "#line 231 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	15815	15922	
==>>{file});
    $cout .= "{$standard_body\n}\n";
    # We are back to generated code immediately here
    $cou <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	2301	2407	
==>$conf->data->set('linkflags', $linkflags);
        print " (no) " if $verbose;
        $self->set_result('n <==
3	/Users/nnunley/parrot/config/auto/readline.pm	2101	2207	
==>$conf->data->set('linkflags', $linkflags);
        print " (no) " if $verbose;
        $self->set_result('n <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	1032	1133	
==>e code if the loop was labeled.

TODO: Do we really need KIND, since we have subclasses?

=cut

sub ne <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760924	761206	
==>,
                  "NAME" => "setp_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761776	762058	
==>,
                  "NAME" => "setp_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4364	4467	
==>, $ot1, EQ_$eqnum
	eq $a2, $ot2, EQ_$eqnum
	set $result, 1.0
EQ_$eqnum: noop
CODE
	},
	'or' => sub {
		m <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27166	27262	
==>nction declarations for all the methods for inclusion
in the PMC's C header file.

TODO include M <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	184	279	
==>ar to the generated subs in Parrot::Test.
Perhaps someone can do a better job of delegation here <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	282	377	
==>ar to the generated subs in Parrot::Test.
Perhaps someone can do a better job of delegation here <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1512	1640	
==>/gets the transform's arguments.

=cut

sub args
{
    my $self = shift;

    if (@_)
    {
        $self->{ARGS} = [ @_ ];
    } <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1121	1249	
==>/gets the transform's arguments.

=cut

sub args
{
    my $self = shift;

    if (@_)
    {
        $self->{ARGS} = [ @_ ];
    } <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	21454	21561	
==>Grammar.y"
{ return { min => $_[2], max => $_[5] }; }
	],
	[#Rule 30
		 'range', 5,
sub
#line 153 "lib/Regex <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	25202	25391	
==>te($R, $rfail);

    my @ops = (
                        @R_ops,
                        aop('pushint', [ 1 ]),
                        aop('goto', [ $next ]),
               $back => aop('p <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1770	1888	
==>>emit(".end");

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_ele <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6828	6929	
==>en).

This is used to find the target blocks for loop control statements.

=cut

sub find_block
{
  my <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	2419	2541	
==>D
    }

    if ($results{floatsize} == 4) {
        $conf->data->set(float4_t => 'float');
    } else {
        $conf->dat <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021705	1021814	
==>rrot_gmtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022547	1022656	
==>rrot_gmtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	3646	3738	
==>f->INTERNAL_ERROR("Attempt to pop file-scope block off block stack!")
    if scalar($self->bl <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	33342	33486	
==>EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   print <<EOC;
	$vv = $v- <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	34091	34235	
==>EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   print <<EOC;
	$vv = $v- <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	35015	35159	
==>EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   print <<EOC;
	$vv = $v- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017954	1018049	
==>st time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_gmtime_r(&t, &tm);\n  Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018879	1018974	
==>st time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_gmtime_r(&t, &tm);\n  Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667215	667538	
==>",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 746,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 405 \"src/ops/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43086	43344	
==>};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pushmark",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43729	43987	
==>};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pushmark",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/lib/Test/More.pm	2082	2183	
==>($module, @methods);
  isa_ok($object, $class);

  pass($test_name);
  fail($test_name);

  # UNIMPLEM <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	663	754	
==>ix = $self->peer ? $peer->prefix : $compiler->block_label($kind);
    $self->prefix($prefix) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	643	734	
==>ix = $self->peer ? $peer->prefix : $compiler->block_label($kind);
    $self->prefix($prefix) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629989	630254	
==>" => "new",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630978	631243	
==>" => "new",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107701	1107966	
==>" => "new",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	446470	446729	
==>=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":ba <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447107	447366	
==>=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":ba <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449415	449674	
==>=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":ba <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6656	6797	
==>(I-1)
         A$(I-1)=A$(I)
         A$(I)=B$
         ' SWAP A$(I - 1), A$(I)
      END IF
   NEXT
WEND
 ' CLS
FOR I = 1 TO 4
   PRINT A$(I) <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16309	16450	
==>(I-1)
         A$(I-1)=A$(I)
         A$(I)=B$
         ' SWAP A$(I - 1), A$(I)
      END IF
   NEXT
WEND
 ' CLS
FOR I = 1 TO 4
   PRINT A$(I) <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	24899	25029	
==>ese fake-o paragraphs
        }
      }
      
      splice @$paras; # Well, that's that for this paragraph buffer.
      DEBUG and <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1472	1567	
==>[0]{'Thispara'} = '' }
sub start_head3 {  $_[0]{'Thispara'} = '' }
sub start_head4 {  $_[0]{'Thi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1002	1097	
==>[0]{'Thispara'} = '' }
sub start_head3 {  $_[0]{'Thispara'} = '' }
sub start_head4 {  $_[0]{'Thi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517055	517414	
==>S" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 596,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 729 \ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168533	168645	
==>>get_integer(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169475	169587	
==>>get_integer(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10880	10978	
==>the instance from
the cache, and undefines it.

Raises an exception if the delete fails.

=cut

sub <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4714	4812	
==>the instance from the cache, and undefines it.

Raises an exception if the delete fails.

=cut

sub <==
3	/Users/nnunley/parrot/tools/docs/pod_errors.pl	419	513	
==>$dir = Parrot::Docs::Directory->new(shift || '.');
my $ignore = shift || '^(icu)$';

foreach my <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	17876	18001	
==>} ) {
        require Carp;
        Carp::croak("You tried to run tests without a plan!  Gotta have a plan.");
    }

    lock <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	18741	18866	
==>} ) {
        require Carp;
        Carp::croak("You tried to run tests without a plan!  Gotta have a plan.");
    }

    lock <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Transcode.pm	97	198	
==>ined &Pod::Simple::DEBUG ) { *DEBUG = \&Pod::Simple::DEBUG; }
  else { *DEBUG = sub () {0}; }
}

forea <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	5613	5725	
==>f);
	}

	return 0;
}

sub leftmostsubrules($)
{
	my $self = shift;
	my @subrules = ();

	my $prod;
	foreach $prod <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27045	27153	
==>ut .= $self->{const}->init_func;
    }
    $cout .= $self->{post};
    $cout;
}

=item C<hdecls()>

Returns t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054453	1054550	
==>ied to get null global.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global_p(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055580	1055677	
==>ied to get null global.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global_p(interpreter, <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9859	9991	
==>IC}:

# Loop over each parameter and put them into ${PARAMS}. Note that they come
# off the stack last to first, but need to be first <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7373	7505	
==>IC}:

# Loop over each parameter and put them into ${PARAMS}. Note that they come
# off the stack last to first, but need to be first <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6337	6469	
==>IC}:

# Loop over each parameter and put them into ${PARAMS}. Note that they come
# off the stack last to first, but need to be first <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	4302	4420	
==>basename($dest));
    } elsif ($meta{bin}) {
        my $copy = $dest;
        $dest =~ s/^installable_//; # parrot wit <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432472	432579	
==>spatch_p_pip(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433487	433594	
==>spatch_p_pip(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573107	573381	
==>lass, name);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574017	574291	
==>lass, name);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	26067	26162	
==>($extracted, $remainder) = extract_tagged($text);


 # Extract the initial substring of $text th <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	36390	36535	
==>am {
    my ( $parser, $idf ) = @_;
    my @opcodes1 = ();
    my @opcodes2 = ();
    my $defn;
    if ( $idf eq '...' ) {
        $defn = n <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4260	4362	
==>l_link($group, $group_libs->{$group}, [ "lib-$group", @$pmcs ] )
          or die "partial link of $gro <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4364	4466	
==>l_link($group, $group_libs->{$group}, [ "lib-$group", @$pmcs ] )
          or die "partial link of $gro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415705	416101	
==>work",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 479,
                  "ARGS" => [
                              " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	816549	816717	
==>"ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 923,
                  "ARGS" => [],
                  "BODY" => "#line 600 \"src/ops/ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	8125	8238	
==>d $t and length $t;
    # TODO: enforce some limitations on what a target name can be?
    $this->{'accept_targets <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	979	1194	
==>"\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, I1
                              #
print "Estimated ops: $I5\n"; # print  "Estimated op <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	979	1194	
==>"\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, I1
                              #
print "Estimated ops: $I5\n"; # print  "Estimated op <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	17006	17118	
==>ulate a proper shell in the presence of a dumb one.

=cut

sub dump_pmc {
    my ($include, @files) = @_;
    # h <==
3	/Users/nnunley/parrot/lib/Test/More.pm	4792	4926	
==>orts;
    while( $idx <= $#_ ) {
        my $item = $_[$idx];

        if( $item eq 'import' ) {
            push @imports, @{$_[$idx+1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434501	434608	
==>spatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435516	435623	
==>spatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25625	25724	
==>$self->_restore($temp);
  } else {
    $return = $self->_generate($node->{children}[1]);
    if ($re <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27523	27622	
==>$self->_restore($temp);
  } else {
    $return = $self->_generate($node->{children}[1]);
    if ($re <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	15250	15346	
==>\n"
    gen_pir = concat "$P1000001 = cur_exception[\"obj\"]\n"
    class_type = eh.get_class_typ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970	1056	
==>ops\n*/\n\n#define DEPRECATED internal_exception(UNIMPLEMENTED, \"you shouldn't see thi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1113	1199	
==>ops\n*/\n\n#define DEPRECATED internal_exception(UNIMPLEMENTED, \"you shouldn't see thi <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	9193	9300	
==>{#line $line "$source_escaped"\n};
}


#
# write op_func_func
#

my ($op_info, $op_func, $getop);
$op_info = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656423	656509	
==>= PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed_int(interpreter, {{\@2}}, { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657347	657433	
==>= PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed_int(interpreter, {{\@2}}, { <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	1617	1715	
==>lf;
}

=back

=head2 Instance Methods

=over 4

=item C<is_root_section()>

Returns whether the sec <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	8217	8315	
==>code);

END_C
} elsif ($suffix =~ /cg/) {
    print SOURCE <<END_C;
goto *${bs}ops_addr[*cur_opcode <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	13456	13546	
==>_number{'eacute'}> is 201, and
C<$Name2character_number{'eacute'}> is 8364.  You get the co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206500	206612	
==>>get_integer(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207442	207554	
==>>get_integer(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/tools/dev/gen_class.pl	290	390	
==>d1 DESCRIPTION

Use this script to generate a template PMC file with stubs for all the
methods you <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	1996	2090	
==>reter start-up logic should be
modified so that it doesn't need to concatenate separate ops fil <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	2451	2580	
==>etch;
			}
		}
		if ($cur eq '&' or $cur eq '%') {
			append;
			fetch;
		}
		emit("BASE");
		goto MAIN;
	}
	if ($cur eq ">" or $c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64674	64759	
==>nterp *)PMC_data({{\@1}});\n  Interp_flags_SET(new_interp, PARROT_EXTERN_CODE_FLAG);\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65625	65710	
==>nterp *)PMC_data({{\@1}});\n  Interp_flags_SET(new_interp, PARROT_EXTERN_CODE_FLAG);\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	106546	106792	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107399	107645	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108253	108499	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	312034	312227	
==>=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getline",
                  "FLAGS" => <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24788	24883	
==>antarray, $textref) unless @match;
		return _succeed wantarray, $textref,
				$match[2], $match[ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7621	7714	
==>antarray, $textref) unless @match;
	return _succeed wantarray, $textref,
			$match[2], $match[ <==
3	/Users/nnunley/parrot/config/inter/types.pm	1027	1176	
==>t("What's your native opcode type?",                 $opcode);
        print "\n";
    }

    $conf->data->set(
        iv       => $intval,
        n <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	1248	1341	
==>addr == NULL) return NULL;
    offset_in_ops = prederef_addr - interpreter->code->prederef.cod <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563378	563675	
==>0,
                  "NAME" => "addmethod",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564275	564572	
==>0,
                  "NAME" => "addmethod",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	2492	2698	
==>ret",
                  "FLAGS" => "",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 2,
                  "ARGS" => [],
                  "BODY" => "#li <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2508	2604	
==>_ERROR("Can't determine type of actual argument (%s)!", ref $args[$i])
      unless defined $actu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2208	2304	
==>_ERROR("Can't determine type of actual argument (%s)!", ref $args[$i])
      unless defined $actu <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1608	1695	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1;
__END__

=head1 NAME

Pod::Simple::Sim <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047739	1048002	
==>MP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048662	1048925	
==>MP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functi <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	7155	7252	
==>r any possible match of this subtree?
    return $t if (defined($t->maxlen()) && $guarantee >= $t- <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	3744	3865	
==>ines = int(($percent/100) * $total_lines);
                $totals{lines} += $total_lines;
                $totals{covered <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5769	5887	
==><type> <ident> = <value>;               # TODO: SHOULD BE LIMITED TO LITERAL?
    #   const <type> <ident>, <ident>, .. <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1178	1287	
==>dy the next one.
        $compiler->emit(".return()"); # Return to the previous inline chunk.
        $compile <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	14338	14438	
==>r $diag)`

This will print each string with a '#' character appended to it, this is
ignored by the TA <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35844	35943	
==>f no tests were ever run Test::Builder
will throw a warning and exit with 255.  If the test died, ev <==
3	/Users/nnunley/parrot/lib/Test/More.pm	33915	34014	
==>f no tests were ever run Test::Builder
will throw a warning and exit with 255.  If the test died, ev <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	833	929	
==>ak>.

=back

=head2 WARNING

Generating a C<Parrot::OpLib::core> module for a set of ops files th <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	4551	4689	
==>my $i (0..$#args)
    {
        my $arg  = $args[$i];
        my $name = $arg->{name};
        
        $code .= emit("  .local pmc a_$name <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8147	8270	
==>->text;
      
        my $value;

        if ($self->skip_assign) {
          $value = Jako::Construct::Expression::Value:: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5153	5270	
==>->text;

        my $value;

        if ($self->skip_assign) {
          $value = Jako::Construct::Expression::Value:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632363	632535	
==>",
                              "p"
                            ],
                  "BODY" => "#line 91 \"src/ops/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633405	633577	
==>",
                              "p"
                            ],
                  "BODY" => "#line 91 \"src/ops/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter-> <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76374	76480	
==>rning" .  ($_[2] ? " (line $_[2])" : "");
	print ERROR "\n";
	$errortext =~ s/\s+/ /g;
	write ERROR;
	retur <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231065	231244	
==>",
                              "i"
                            ],
                  "BODY" => "#line 592 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231969	232148	
==>",
                              "i"
                            ],
                  "BODY" => "#line 592 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560565	560664	
==>c, *object;\n  opcode_t *next = {{^+3}};\n\n  object = {{\@1}};\n  method_pmc = {{\@2}};\n  interpre <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	8760	8869	
==>if $err;

    open  STDOUT, ">&OLDOUT" or die "Can't restore  stdout" if $out;
    open  STDERR, ">&OLDERR" or <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8280	8387	
==>if $err;

    open STDOUT, ">&OLDOUT" or die "Can't restore  stdout" if $out;
    open STDERR, ">&OLDERR" or <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	44486	44574	
==>s*<matchrule:)';
my $SIMPLEPAT		= '((\\s+/[^/\\\\]*(?:\\\\.[^/\\\\]*)*/)?)';
my $OPTIONAL <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1407	1517	
==>ub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $dest_ident = $self->dest;

  my $block = $self-> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1287	1397	
==>ub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $dest_ident = $self->dest;

  my $block = $self-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567546	567800	
==>le->does(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568441	568695	
==>le->does(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	1407	1527	
==>PARROT_LUA_TEST_PROG} ${test_prog_args} languages/${lang_fn}",
            );
        }
        elsif ( $lua_test eq ' <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	3383	3477	
==>object is passed as the first argument to each steps
C<runstep()> method followed by any parame <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931835	931926	
==>ne 415 \"src/ops/string.ops\"\n  {{\@1}} = string_upcase(interpreter, {{\@2}});\n  {{+=3}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932606	932697	
==>ne 415 \"src/ops/string.ops\"\n  {{\@1}} = string_upcase(interpreter, {{\@2}});\n  {{+=3}};\ <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	5729	5845	
==>r
	    my @dirs;
	    while (! -d $dir) { # Scan up to nearest existing ancestor
		unshift @dirs, $dir;
		$dir = dirn <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1394	1499	
==>f ($last_seen ne 'inline') {
        $compiler->emit(".sub __INLINE_" . $inline++);
        $compiler->ind <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1596	1693	
==>f ($last_seen ne 'inline') {
    $compiler->emit(".sub __INLINE_" . $inline++);
    $compiler->ind <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1244	1352	
==>Figure out how many levels we have to go back to get to parrot.
        # And, conversely, how many levels we <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	714	818	
==>Figure out how many levels we have to go back to get to parrot.
    # And, conversely, how many levels we <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739692	739779	
==>c/ops/set.ops\"\n  {{\@1}} = {{\@2}}->vtable->get_number(interpreter, {{\@2}});\n  {{+=3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667571	667794	
==>push_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668345	668568	
==>push_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	22226	22325	
==>int CODE<<USER;
	new P2, .PerlHash
	P2["name"]= '$_->[0]'
	P2["type"]= "USER"
	P5= P6		# Remember wh <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4580	4694	
==>($mode eq 'copy') {
    # Copy *.so -> destination, where destination is the first
    # argument, given as --desti <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4684	4798	
==>($mode eq 'copy') {
    # Copy *.so -> destination, where destination is the first
    # argument, given as --desti <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3896	4007	
==>($mode eq 'copy') {
	# Copy *.so -> destination, where destination is the first
    # argument, given as --desti <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	73472	73586	
==>->{deferred} = [];
	$_[0]->{errors} = [];
	my @args = @_[3..$#_];
	my $args = sub { [ @args ] };
				 
	$AUTOLOAD = <==
3	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1202	1301	
==>}

open OUT, "> parrot.iss" or die "Can't open parrot.iss";

print OUT qq{
; generated by tools/dev/ <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	1803	1910	
==>ie "Unable to open config/Makefile.in\n";
	my $makefile = join('', <$fh>);
	close $fh;
	
	# Sub in confi <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	9314	9412	
==>ght not be too hard.
package Regex::Ops::Tree::call;
sub minlen { 0 }
sub maxlen { undef }
sub dfa_ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	249	338	
==>ot::Docs::Section::BigNum;

=head1 DESCRIPTION

A documentation section describing Parrot' <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6037	6167	
==>rToken."\n";
			};

            $act=   exists($$actions{ACTIONS}{$$token})
                    ?   $$actions{ACTIONS}{$$token} <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5752	5878	
==>rToken."\n";
			};

            $act=   exists($$actions{ACTIONS}{$$token})
                    ?   $$actions{ACTIONS}{$$token} <==
3	/Users/nnunley/parrot/lib/Test/More.pm	19854	19954	
==>...
  }

This declares a block of tests that might be skipped, $how_many tests
there are, $why and un <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731827	732185	
==>=> [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 821,
                  "ARGS" => [
                              "i",
                              "n"
                            ],
                  "BODY" => "#line 129 \"src <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	60809	60907	
==>InterpLit($1,$lookahead,$line);
			$prod and $prod->additem($item)
			      or  _no_rule("interpola <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16321	16427	
==>assign;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->forth);
      my $op    = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17092	17198	
==>assign;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->forth);
      my $op    = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17897	18003	
==>assign;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->forth);
      my $op    = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	212572	212782	
==>ARROT_JUMP_RELATIVE",
                  "NAME" => "le_num",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
3	/Users/nnunley/parrot/tools/dev/symlink.pl	1679	1794	
==>ir, @manifile);
	    unless (-f $srcfile) {
		warn "$self: cannot find $dstfile\n";
		next;
	    }
	    push @srcfil <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	13238	13333	
==>ce
as the sole argument, this causes an assignment of the whole hash element.
The object referen <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429712	429819	
==>th.ops\"\n  mmd_dispatch_v_ps(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430599	430706	
==>th.ops\"\n  mmd_dispatch_v_ps(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13802	13911	
==>, C<$out_name> is the name of the output file we are
generating.

=cut

sub body
{
    my ($self, $method, $li <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29585	29694	
==>, C<$out_name> is the name of the output file we are
generating.

=cut

sub body
{
    my ($self, $method, $li <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30227	30336	
==>, C<$out_name> is the name of the output file we are
generating.

=cut

sub body
{
    my ($self, $method, $li <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793322	793458	
==>i"
                            ],
                  "BODY" => "#line 457 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794227	794363	
==>i"
                            ],
                  "BODY" => "#line 457 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115340	115666	
==>i"
                            ],
                  "BODY" => "#line 209 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} << {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116195	116521	
==>i"
                            ],
                  "BODY" => "#line 209 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} << {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/config/gen/cpu.pm	27	115	
==>The Perl Foundation.
# $Id: /parrot/config/gen/cpu.pm 19593 2006-05-30T02:28:15.110975Z c <==
3	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	342	438	
==>t files, and checking for that line
before rerunning the build script.

=head1 EXAMPLE

See parro <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	10093	10189	
==>mespace = sprintf("_%s_%d", uc $kind, $self->{BLOCK_COUNT}++);

      $prefix = $namespace unless <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	3395	3487	
==>nstead of C<new()> if you're testing
a Test::Builder based module, but otherwise you probably <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	775	869	
==>r in the given ops files. See also F<tools/dev/ops_renum.mak>.

=back

=head2 WARNING

Generati <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60594	60684	
==>ODY" => "#line 914 \"src/ops/core.ops\"\n  PARROT_WARNINGS_off(interpreter, {{\@1}});\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61244	61334	
==>ODY" => "#line 914 \"src/ops/core.ops\"\n  PARROT_WARNINGS_off(interpreter, {{\@1}});\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826725	826960	
==>\n\n  {{\@1}} = UVal_num(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827795	828030	
==>\n\n  {{\@1}} = UVal_num(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	17615	17744	
==>@{ $self->{super_mmd} }) {
        my ($super, $variants);
        $found = 0;
        @mmds = ();
        while (($super, $varian <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208374	208467	
==>->vtable->get_number(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209315	209408	
==>->vtable->get_number(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\ <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12167	12253	
==>n "/",
because C<EE<lt>solE<gt>>, C<EE<lt>47E<gt>>, C<EE<lt>0x2fE<gt>>,
and C<EE<lt>057 <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	33176	33305	
==>elet->[$i][1]{'to'} = Pod::Simple::LinkSection->new(
            $treelet->[$i][2]
          );                   # its own treele <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492740	492849	
==>e 585 \"src/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493501	493610	
==>e 585 \"src/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	1789	1906	
==>tokref,$token;
      $token = $ch;
    }
  }
  return [grep { /\S/ } @$tokref];
}

1;
__END__

=head1 NAME

Scheme::To <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	2072	2171	
==>things finer to start with, and work at it.

In a saucepan set over moderate heat, warm the oil unti <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573032	573123	
==>, name, {{\@2}});\n  {{\@1}} = pmc_new_init(interpreter, enum_class_ParrotClass, name);\n  { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573942	574033	
==>, name, {{\@2}});\n  {{\@1}} = pmc_new_init(interpreter, enum_class_ParrotClass, name);\n  { <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2871	3004	
==>ription
             \s+ (?:\S+ \s+)? \{ \n     # optional test harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4268	4401	
==>ription
             \s+ (?:\S+ \s+)? \{ \n     # optional test harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test <==
3	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	2282	2388	
==>"** $0: copying source files to miniparrot directory\n";

    foreach my $file (@ARGV) {
        copy_file( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	629	719	
==>truct::Block');
  confess "Ident is not!" unless UNIVERSAL::isa($ident, 'Jako::Construct::E <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	517	607	
==>truct::Block');
  confess "Ident is not!" unless UNIVERSAL::isa($ident, 'Jako::Construct::E <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1544	1633	
==>_currpos'}[0] }, [@_];
  return;
}
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	574	670	
==>my @_to_accept;

%Tagmap = (
  'Verbatim'  => "\n<pre$Computerese>",
  '/Verbatim' => "</pre>\n", <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27088	27181	
==>USERFUNC_$funcname";
	$f=changename($f);
	$f=~s/\$/_string/g; $f=~tr/a-z/A-Z/;
	$seg=$f;
	CALL <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27361	27454	
==>USERFUNC_$funcname";
	$f=changename($f);
	$f=~s/\$/_string/g; $f=~tr/a-z/A-Z/;
	$seg=$f;
	CALL <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30134	30273	
==>{
			'tableconstructor' => 46,
			'args' => 149
		}
	},
	{#State 97
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			" <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16771	16864	
==>ijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
        # Leav <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10215	10304	
==>ijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
    # Leav <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5282	5409	
==>w($block, $self->require_literal);
        }

        $props{$prop} = $value;
      }

      $self->require_open_brace;

      m <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	11690	11787	
==>ls for an unsupported encoding.",
      $suggestion, "  [$encmodver\'s supported encodings are: @s <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	19452	19541	
==>essage = string_concat(interpreter, signature, ns, 0);

#if defined(CAN_BUILD_CALL_FRAMES) <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	12121	12244	
==>ch>['$name'] = $uid";
    }
    return (@ops,
            "<rx_tmp> = $uid\['!RESULT']",
            "unless <rx_tmp>, $fail <==
3	/Users/nnunley/parrot/tools/dev/cc_flags.pl	1035	1156	
==>egex = qr/^\Q$1\E$/;
    }
    else {
	die "syntax error in $cflags: line $., $_\n";
    }

    for (;;) {
	if (s/^([-+])\ <==
3	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	1013	1119	
==>ite_code_to_file( $code, $code_f );

  # STDERR is written into same output file
  my $diag = '';
  my $par <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18561	18687	
==>en;

      my @args = ();

      unless ($self->get(1)->is_close_paren) {
        while (1) {
          push @args, Jako::Const <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19587	19713	
==>en;

      my @args = ();

      unless ($self->get(1)->is_close_paren) {
        while (1) {
          push @args, Jako::Const <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11931	12052	
==>Rewrite DYNSUPER(args)
    s/DYNSUPER          # Macro: DYNSUPER
      \(\s*(.*?)\)      # capture argument list
     /"in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104288	104497	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o", <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1442	1549	
==>)
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'op', Attribut <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1436	1543	
==>)
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'op', Attribut <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241811	242064	
==>DE" => 281,
                  "ARGS" => [
                              "i",
                              "p",
                              "n"
                            ],
                  "BODY" => "#line 624 \"src/ops/cmp.ops\"\n  FLOATVAL l = VT <==
3	/Users/nnunley/parrot/Configure.pl	908	1002	
==>item C<--nomanicheck>

Tells Configure.pl not to run the MANIFEST check.

=item C<--prefix>

Se <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787730	787984	
==>" => 889,
                  "ARGS" => [
                              "n",
                              "p",
                              "ki"
                            ],
                  "BODY" => "#line 422 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2 <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	95	185	
==>20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Section::PMCs - P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	535724	535814	
==>"BODY" => "#line 930 \"src/ops/math.ops\"\n  {{\@1}} = ((FLOATVAL)1) / cos((FLOATVAL){{\@2} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539222	539546	
==>o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 624,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 995 \"src/ops/ <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	15837	15933	
==>$return_assign ($ret_type)(*pointer)($call_params);
    $temp_out
    $final_assign
    $extra_po <==
3	/Users/nnunley/parrot/tools/build/vtable_extend.pl	966	1060	
==>tines
written in C, or some other compiled language, rather than in Parrot
bytecode) may access <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748832	748916	
==>line 199 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_number_native(interpreter, {{\@1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749616	749700	
==>line 199 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_number_native(interpreter, {{\@1 <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	12492	12587	
==>th an array reference
as the sole argument, this causes an assignment of the whole array element <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	8569	8680	
==>code =~ s/^\s+//;

    # create a copy and remove strings and comments so that
    # unbalanced {} can be used i <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2377	2486	
==>y/parrot/src/pmc' . $PATHQUOTE . " " .
        $source;
};

sub partial_link_cmd {
    my ($target, $libs, $so <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2172	2281	
==>y/parrot/src/pmc' . $PATHQUOTE . " " .
        $source;
};

sub partial_link_cmd {
    my ($target, $libs, $so <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	1127	1229	
==>contents = @_;
	
	# TODO - Groups should only contain items or paths.
	
	$self = $self->SUPER::new($tex <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	42535	42636	
==>c tags 
is a good idea if those functions are going to be called more than once, since
their performan <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	7914	8002	
==>c_op Parrot_jit_normal_op

#define Parrot_jit_restart_op Parrot_jit_cpcf_op

#include"jit <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	4013	4127	
==>n multiple times in the same process.

=cut

use vars qw($Level);

sub reset {
    my ($self) = @_;

    # We leave <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656410	656497	
==>"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed_int(interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657334	657421	
==>"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed_int(interpreter <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	9322	9437	
==>ymbol:
      Carp::croak "\"$new_code\" isn't a valid element name"
        if $new_code =~
          m/[\x00-\x2C\x <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10586	10701	
==>ymbol:
      Carp::croak "\"$new_code\" isn't a valid element name"
        if $new_code =~
          m/[\x00-\x2C\x <==
3	/Users/nnunley/parrot/config/gen/icu.pm	199	297	
==>d add appropriate targets to the Makefile.

=cut

package gen::icu;

use strict;
use vars qw($descr <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11138	11225	
==>NO_RETURN_${CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1}["r <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8324	8411	
==>NO_RETURN_${CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1}["r <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5986	6073	
==>NO_RETURN_${CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1}["r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093084	1093345	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "morph",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093886	1094147	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "morph",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	704	801	
==>own_strings = ();
my @all_strings;

&read_all;
open ALL, '>>', $outfile or die "Can't write '$outf <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	394	509	
==>::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $dest, $left, $op, $right) = @_;

  confess(" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	385	500	
==>::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $dest, $left, $op, $right) = @_;

  confess(" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	274	389	
==>::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $dest, $left, $op, $right) = @_;

  confess(" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1384	1491	
==>c();

    $compiler->emit("  $temp_pmc = new $pmc_type");
    $compiler->emit("  $temp_pmc = $right");
    $ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9206	9305	
==>cat ${STOREREG}
${INS} = concat " = "
${INS} = concat ${STEMP0}
${INS} = concat "\n"

# Decrement st <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6724	6823	
==>cat ${STOREREG}
${INS} = concat " = "
${INS} = concat ${STEMP0}
${INS} = concat "\n"

# Decrement st <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28600	28733	
==>=> 35,
			'primary' => 28
		}
	},
	{#State 87
		DEFAULT => -105
	},
	{#State 88
		ACTIONS => {
			"-" => 24,
			'NAME' => 4, <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	11441	11566	
==>($2,$3,$4,$5);
        my ($methodblock, $rema)                    = extract_balanced($classblock);

        $methodblock = "" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361636	361729	
==>src/ops/io.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, INTVA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362535	362628	
==>src/ops/io.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, INTVA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42682	42995	
==>S" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 54,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line <==
3	/Users/nnunley/parrot/config/init/hints/linux.pm	598	727	
==>lags');
    if ($ld_share_flags !~ /-fPIC/) {
        $ld_share_flags .= ' -fPIC';
    }

    if ($cc =~ /icc/) {

        # Intel <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	47633	47731	
==>ng delimiter of the here document),
which would cause the earlier " || die;\nexit;" to be skipped i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587355	587774	
==>,
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 668,
                  "ARGS" => [
                              "p",
                              "sc",
                              "k"
                            ], <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	7755	7854	
==>$prev, $this, $next)=(
			(($t-1 >= 0)?$foo[$t-1]:undef),
			$foo[$t], 
			(($t+1 <= $#foo)?$foo[$t+ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1309	1400	
==>block->find_symbol($ident_name);

  confess "No such symbol '$ident_name'!" unless defined $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214142	214405	
==>}, {{\@2}}, MMD_CMP) > 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1927	2036	
==>ler) = @_;

  my $block = $self->block;
  my $kind  = $self->kind;
  my $name  = $self->ident ? $self->ident-> <==
3	/Users/nnunley/parrot/tools/dev/gen_class.pl	896	1004	
==>in/../../vtable.tbl");

my $classname = shift
	or die "No classname given!\n";


## emit file header
p <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	10995	11086	
==>class, $method, $super, $super_table)>

Rewrites the method body performing the various macr <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11397	11488	
==>class, $method, $super, $super_table)>

Rewrites the method body performing the various macr <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	13651	13779	
==>e 19
		DEFAULT => -5
	},
	{#State 20
		ACTIONS => {
			":" => 37
		}
	},
	{#State 21
		ACTIONS => {
			"(" => 10,
			'CHAR' => 4, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	3184	3304	
==>{NAME}; }
sub value { return shift->{VALUE}; }
# file handled by superclass?
# line handled by superclass?

sub is_global <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16182	16269	
==>$temp = $self->_generate(_get_arg($node,1));
  $self->_add_inst ('', 'typeof',[$return,$ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2764	2865	
==>his line in main routine should be skipped"
Label1:
   PRINT "5 back in module-level code"
   END
Sub1 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16731	16832	
==>his line in main routine should be skipped"
Label1:
   PRINT "5 back in module-level code"
   END
Sub1 <==
3	/Users/nnunley/parrot/config/auto/funcptr.pm	403	494	
==>::Configure::Step ':auto';

$description = 'Verifying that the compiler supports function po <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	1101	1206	
==>F";
src/jit_cpu.c -{-Wcast-align}        # lots of noise!
src/nci.c     -{-Wstrict-prototypes} # lots of n <==
3	/Users/nnunley/parrot/tools/dev/cc_flags.pl	2098	2259	
==>}
        else {
            foreach my $arg (@ARGV) {
                $arg =~ s/$option->[2]/$option->[3]/;
            }
        }
    }
}

# print "@ARGV\n";
p <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2316	2427	
==>$PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/src/pmc' . $PATHQUOTE . " " .
        $sou <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2111	2222	
==>$PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/src/pmc' . $PATHQUOTE . " " .
        $sou <==
3	/Users/nnunley/parrot/lib/File/Which.pm	5781	5878	
==>e path names
matching C<$short_exe_name>.


=head1 Bugs and Caveats

Not tested on VMS or MacOS, a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225491	225584	
==>->vtable->get_number(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226432	226525	
==>->vtable->get_number(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6017	6128	
==>t if ($entry->[4] =~ /_STR$/);
    next if ($entry->[4] =~ /_FLOAT$/);
    $macros .= <<"EOM";
        $entry->[ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712322	712416	
==>PMC * const io = PIO_STDOUT(interpreter);\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713429	713523	
==>PMC * const io = PIO_STDOUT(interpreter);\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0 <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	7052	7176	
==>le) && -e $file) {
        return $file;
    }

    foreach my $dir ( @$include ) {
        my $path = File::Spec->catfile( $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10729	10846	
==>ranges;

    # Build up an inclusion/exclusion list
    my @incexc;
    foreach (@ranges) {
        my ($first, $last) <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	32	118	
==>erl Foundation.
# $Id: /parrot/lib/Parrot/Docs/Section/C.pm 20333 2006-06-21T18:44:31.1 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	359	476	
==>Carp;

use base qw(Jako::Construct::Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected 5 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	359	476	
==>Carp;

use base qw(Jako::Construct::Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected 5 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	368	483	
==>Carp;

use base qw(Jako::Construct::Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	486694	486969	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ceil",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	487445	487720	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ceil",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1727	1833	
==>est
# Generated by $0
# Pattern >>$pattern<<

END

    $driver->output_header($PIR);

    for my $tree (@$t <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	33243	33369	
==>_equalp,

###
### Pairs and Lists
###

  'pair?'    => \&_op_pair_p,
  'cons'     => \&_op_cons,
  'car'      => \&_op_car,
  ' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	642	735	
==>not Identifier!") unless UNIVERSAL::isa($dest, 'Jako::Construct::Expression::Value::Identifier <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	633	726	
==>not Identifier!") unless UNIVERSAL::isa($dest, 'Jako::Construct::Expression::Value::Identifier <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	522	615	
==>not Identifier!") unless UNIVERSAL::isa($dest, 'Jako::Construct::Expression::Value::Identifier <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135364	135532	
==>,
                              "s"
                            ],
                  "BODY" => "#line 326 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_xor(interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136258	136426	
==>,
                              "s"
                            ],
                  "BODY" => "#line 326 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_xor(interpreter <==
3	/Users/nnunley/parrot/config/inter/make.pm	2222	2321	
==>etup make_C
    if ($conf->data->get('gmake_version')) {
        $conf->data->set(make_c => "$prog - <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36791	36898	
==>cess in $meth()");
        $ret
}

EOC
}

=back

=head2 Parrot::Pmc2c::delegate Instance Methods

=over 4

= <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1994	2097	
==>symbol($self->name);

  #
  # If the identifier is already defined at this lexical scope, we want to com <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1741	1844	
==>symbol($self->name);

  #
  # If the identifier is already defined at this lexical scope, we want to com <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4433	4598	
==>*}\s*#\s*_Parse\s*$/
        	and     do {
                	s/^#DBG>//;
                	push(@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	ev <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4211	4367	
==>*}\s*#\s*_Parse\s*$/
        	and     do {
                	s/^#DBG>//;
                	push(@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	ev <==
3	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	2921	3041	
==>ank lines.

    my $result;
    my $seen_blank;
    foreach my $item (@output) {
        my ( $type, $code ) = ( @{$item} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	445989	446240	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	446625	446876	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inl <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	9695	9812	
==>ush - 1) {
		$dest_locals .= $dest_locals ? ', ' : '.local string ';
		$dest_locals .= "dest$_";
		$mv->{"DEST$_"} = " <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7899	7997	
==>%=54
if i% then print "This is true" else print "Oops (int)"
i=0
if i then print "Should not happen <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14886	14984	
==>%=54
if i% then print "This is true" else print "Oops (int)"
i=0
if i then print "Should not happen <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492849	493140	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493610	493901	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499584	499875	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129294	129577	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130032	130315	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	4763	4875	
==>f($_[0]) || $_[0];
	my $name  = $_[1];
	my $owner = $_[2];
	my $line  = $_[3];
	my $replace = $_[4];

	if (define <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	39727	39828	
==>ged($text, '/para', '/endpara', undef,
				{reject => '/para', fail => MAX );

	# EXTRACTED: "/para li <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	40041	40141	
==>ged($text, '/para', '/endpara', undef,
			{reject => '/para', fail => MAX );

	# EXTRACTED: "/para li <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	1288	1401	
==>if (-f "/sw/include/gmp.h") {
            $conf->data->add(' ', linkflags => '-L/sw/lib');
            $conf->data <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	15866	15978	
==>a directive. However no suitable
			 preceding directive was encountered. Typically this
			 indicates either a e <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	1476	1582	
==>lts) {
        $conf->data->set($_ => $results{$_});
    }

    if ($results{ptrsize} != $results{intvalsiz <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	33182	33279	
==>Figure out if we passed or failed and print helpful messages.
    my $test_results = $self->{Test_ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	4092	4201	
==>return aop('if', [ $op1, $test, $op2, $dest ]);
    } else {
        my $testop = rop('test', [ $op1, $rev_tes <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22463	22564	
==>elf->_constant(2);
  $self->_add_inst(''           ,'mod'   ,[$temp_0,$temp_0,$temp_1]);
  $self->_add <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22964	23065	
==>elf->_constant(2);
  $self->_add_inst(''           ,'mod'   ,[$temp_0,$temp_0,$temp_1]);
  $self->_add <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	12796	12891	
==>h.h
nearbyintf  math.h
nearbyintl  math.h
nextafter   math.h
nextafterf  math.h
nextafterl  math <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104034	1104118	
==>n\t}\n\tif (type <= 0)\n\t\treal_exception(interpreter, NULL, NO_CLASS,\n\t\t\t\t\"Cl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105249	1105333	
==>n\t}\n\tif (type <= 0)\n\t\treal_exception(interpreter, NULL, NO_CLASS,\n\t\t\t\t\"Cl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056924	1057285	
==>GS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1180,
                  "ARGS" => [
                              "p",
                              "k <==
3	/Users/nnunley/parrot/config/gen/platform.pm	618	719	
==>nf->options->get('verbose');
    my $platform = lc $OSNAME;

    $platform = "ansi"  if defined($conf- <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1830	1931	
==>foreach my $x (@_) {
    $x =~ s/([^\x00-\xFF])/sprintf'\x{%X}',ord($1)/eg;
    # Escape things very c <==
3	/Users/nnunley/parrot/lib/Test/More.pm	5960	6059	
==>f the test
succeeded or failed.  They all also return true or false,
respectively.

=over 4

=item B <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824246	824335	
==>line 133 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpret <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825317	825406	
==>line 133 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpret <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253242	253562	
==>> 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254104	254424	
==>> 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254967	255287	
==>> 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9234	9391	
==>>{BLOCKS}}, $sub;
      }

      next;
    }

    #
    # Loops:
    #
    #   <label>: until (<value> <op> <value>) {
    #            until (<value> <op> <v <==
3	/Users/nnunley/parrot/languages/perms.pl	290	430	
==>+;
      last if $i > @prefix;
    }
    
    if ( $prefix[-1] >= @$things ) {
      @prefix = ( (0) x (@prefix + 1) );
    }

	  my @tumbler <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	807	928	
==>rrot->new;
}

=item C<new_section($name, $text, @items)>

Returns a new section. 

Use this when creating subsections with <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	111	227	
==>5.110975Z coke  $

=head1 NAME

config/gen/core_pmcs.pm - Core PMC List

=head1 DESCRIPTION

Generates the core PMC l <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	2650	2766	
==>n{$str}, "\n";
	    }
	    else {
		print "#define _CONST_STRING_$line $n\n";
	    }
	    $this_file_seen{$str} = $li <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	44104	44198	
==>ments are:

=over 4

=item [0]

the extracted quotelike substring (including trailing modifiers <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621423	621525	
==>n    lru = &mic->lru;\n    if (lru->u.signature == sig) {\n\tif (sig) {\n\t    n = ((arg_pass_f)lru->f. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623592	623694	
==>n    lru = &mic->lru;\n    if (lru->u.signature == sig) {\n\tif (sig) {\n\t    n = ((arg_pass_f)lru->f. <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	1562	1663	
==>nerate the C code for a C<return> statement, if the body is empty then
make a cast if needed.

This me <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173658	173953	
==>JUMP_RELATIVE",
                  "NAME" => "ne_str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  " <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	9938	10056	
==>ding $orig' line is ",
       "redundant.  ($norm_current eq $norm_e).  Ignoring.\n";
      $enc_error = '';
       # B <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	6456	6553	
==>) {
	$self->{all}{$entry->{meth}} = $entry->{section};
    }
}

=item C<make_const($class)>

If th <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417301	417501	
==>",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418429	418629	
==>",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	773	874	
==>H_CORE';
}

=item C<core_prefix()>

The prefix is C<'switch_'>.

=cut

sub core_prefix
{
    return "s <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5680	5786	
==>ERR "In state $stateno:\n";
#DBG>		$debug & 0x08
#DBG>	and	print STDERR "Stack:[".
#DBG>					 join(',',m <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1272	1377	
==>ARTNUMVAL)\nAborting");
  }

  if( defined $variable ) {
    # make a not-really-constant
    *Pod::Simple <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5408	5511	
==>ERR "In state $stateno:\n";
#DBG>		$debug & 0x08
#DBG>	and	print STDERR "Stack:[".
#DBG>					 join(',',m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718073	718183	
==>er, io, INTVAL_FMT, (INTVAL){{\@2}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719005	719115	
==>er, io, INTVAL_FMT, (INTVAL){{\@2}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12357	12458	
==>self->{"items"}};
	return 0;
}

sub leftmostsubrule($)
{
	my $self = shift;

	if ( $#{$self->{"items"} <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	1144	1350	
==>'/usr/include'.

=back

=head1 SEE ALSO

F<install_files.pl>

=cut

################################################################################

my %options = ( prefix => '/usr',
                exec_pr <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	5750	5863	
==>b do_middle {      # the main work
  my $self = $_[0];
  my $fh = $self->{'output_fh'};
  
  my($token, $type, $ta <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4715	4828	
==>b do_middle {      # the main work
  my $self = $_[0];
  my $fh = $self->{'output_fh'};
  
  my($token, $type, $ta <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1511	1771	
==>f     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
print "Elapsed time: <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	1511	1771	
==>f     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
print "Elapsed time: <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4130	4219	
==>est::PGE::_generate_glob_for($target, $pattern, 1);

    goto &Parrot::Test::pir_output_li <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7739	7836	
==>if s$ then print "This is true" else print "Oops (string)"
s$=""
if s$ then print "Should not happ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14726	14823	
==>if s$ then print "This is true" else print "Oops (string)"
s$=""
if s$ then print "Should not happ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	7967	8060	
==>{$code{$seg}->{code}},<<FNOTB;
@codef	noop
	_screen_color($resultf)	# Broke!
FNOTB
	}
}
sub pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	308759	308909	
==>.data;\n        pdb->state |= PDB_RUNNING;\n    }\n\n    {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627252	627353	
==>\n  }\n\n  /* Why?? If we're creating a continuation, the continuation PMC\n   * needs to be in the de <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628396	628497	
==>\n  }\n\n  /* Why?? If we're creating a continuation, the continuation PMC\n   * needs to be in the de <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	3484	3596	
==>smokeserv-README.pod'),
        ),
        $self->new_group('Possibly obsolete', '',
            $self->new_item( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2757	2845	
==>\n\\par}\n",
 'item-number'  => "\n{\\pard\\li#rtfindent##rtfitemkeepn#\\sb60\\sa150\\fi- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716518	716619	
==>s) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_put <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724410	724511	
==>s) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_put <==
3	/Users/nnunley/parrot/lib/Test/More.pm	9979	10078	
==>e );

Halfway between ok() and is() lies cmp_ok().  This allows you to
compare two arguments using a <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	26655	26785	
==>f->emit_code('end');
      next;
    }

=cut


    #
    # TODO: Implement other stuff and put it before this.
    #

    $self->SY <==
3	/Users/nnunley/parrot/config/init/defaults.pm	6429	6539	
==>xtra flags needed for libnci_test.so
        ncilib_link_extra => '',

    );

    my $prefix = $conf->options- <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3667	3767	
==>type_for_name
{
	my $self = shift;
	my $name = shift;
	
	return $type_for_name{$name} if exists $type <==
3	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	1078	1182	
==>o few components to VERSION file contents: '$parrot_version' (should be 3 or 4)!"
    }

    if ( scalar( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1285	1371	
==>item $token->is_tag(I<somestring>) or $token->is_tagname(I<somestring>)

These are shor <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1715	1801	
==>item $token->is_tag(I<somestring>) or $token->is_tagname(I<somestring>)

These are shor <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2964	3055	
==>(Str $got, Code &compare_func, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945391	945481	
==>DY" => "#line 521 \"src/ops/string.ops\"\n  {{\@1}} = string_copy(interpreter, Parrot_chars <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946201	946291	
==>DY" => "#line 521 \"src/ops/string.ops\"\n  {{\@1}} = string_copy(interpreter, Parrot_chars <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	1220	1335	
==>sub convert_rx_atom {
    my ($self, $tree, $ctx) = @_;
    my $atom = $tree->atom;

    my $R;
    if (UNIVERSAL::c <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	1762	1858	
==>ms[0]\n";
	print "Current : $type[1] $syms[1]\n";
	print "Previous: $type[2] $syms[2]\n";
}
sub i <==
3	/Users/nnunley/parrot/lib/Test/More.pm	34714	34809	
==>ing.  So if a function starts returning overloaded objects instead of
bare strings your tests wo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841418	841639	
==>DE" => 954,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 40 \"src/ops/string.ops\"\n  {{\@1}} = string <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10435	10524	
==>= ${PTEMP3}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7819	7908	
==>= ${PTEMP3}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5477	5581	
==>, [$pair.'[0]',$item]);
      $self->_add_inst ('', 'set', [$pair.'[1]',$return]);
      $self->_add_inst <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17028	17126	
==>,[$pair.'[0]',$item]);
    $self->_add_inst ('', 'set',[$pair.'[1]',$return]);
    $self->_add_inst <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6516	6611	
==>, [$pair.'[0]',$item]);
  $self->_add_inst('', 'set', [$pair.'[1]',$return]);
  $self->_add_inst <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	410233	410537	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "send",
                  "FLAGS" => ":base_n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411125	411429	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "send",
                  "FLAGS" => ":base_n <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	14053	14148	
==>new
struct. 

Each initializer is a pair of values: I<element name>C< =E<gt> >I<value>.
The init <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010881	1011194	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011645	1011958	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012410	1012723	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2836	2926	
==>>INTERNAL_ERROR("No type for right!") unless defined $right_type;

  $self->SYNTAX_ERROR("C <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2602	2692	
==>>INTERNAL_ERROR("No type for right!") unless defined $right_type;

  $self->SYNTAX_ERROR("C <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	14270	14377	
==>$body =~ s/\bgoto\s+POP\(\)/{{=*}}/mg;
                      $body =~ s/\bexpr\s+OFFSET\((.*?)\)/{{^+$1}}/mg <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	5990	6087	
==>umbers are relative to the first one. (lower is better)\n";
}
print "\n";

open (COPYOUT, ">&STDOU <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	1932	2025	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub new {
  my $class = shift;
  my <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	1314	1418	
==>) { push @incdirs, $1; }
my $i_flags = join ' ', map { "-I$_" } @incdirs;

my %all_errors;
foreach my $fi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	198	294	
==>Jako/Compiler.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109120	109413	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TY <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109898	110191	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TY <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	9152	9249	
==>1]->hasback() }
sub dfa_safe { my ($op) = @_; $op->{args}->[1]->dfa_safe() }

# Rule calls are tot <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	1983	2084	
==>IS FILE.
#
# This file is generated automatically from
# $f by config/gen/parrot_include.pm
#
# Any ch <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	3517	3648	
==>s};
EOC
    }
    $cout .= <<"EOC";
    int pass;

    /*
     * create a library PMC
     */
    pmc = pmc_new(interpreter, enum_cl <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7653	7757	
==>= shift;
	my $pir = "";

	# If the destination isn't a register, determine register name now.
	if (!$dest <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5771	5875	
==>= shift;
	my $pir = "";

	# If the destination isn't a register, determine register name now.
	if (!$dest <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10534	10655	
==>E|PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT",
                  "NAME" => "bsr",
                  "FLAGS" => ":base_core,check_ <==
3	/Users/nnunley/parrot/config/auto/jit.pm	1942	2057	
==>uarch,
        osname   => $osname
    );

    my $jitarchname = "$cpuarch-$osname";
    my ($jitcapable, $execcapab <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	619197	619303	
==>val(left) :\n\t    VTABLE_get_integer(interpreter, left);\n\tINTVAL b = rt == enum_class_Integer ? PMC_int_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5265	5361	
==>t;

  $handler->start_element({ Name => 'assign' });
  $dest->sax($handler);
  $handler->start_el <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3328	3424	
==>t;

  $handler->start_element({ Name => 'assign' });
  $dest->sax($handler);
  $handler->start_el <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	567	718	
==>ess {
    BLOCK     => $block,

    PREFIX    => $prefix,
    KIND      => 'until',
    LEFT      => $left,
    OP        => $op,
    RIGHT     => $righ <==
3	/Users/nnunley/parrot/config/init/hints/freebsd.pm	1017	1117	
==>_shared_alias  => 'libparrot$(SHARE_EXT)',
        libparrot_soname        => '-Wl,-soname=libparrot$ <==
3	/Users/nnunley/parrot/config/init/hints/linux.pm	1855	1955	
==>_shared_alias  => 'libparrot$(SHARE_EXT)',
        libparrot_soname        => '-Wl,-soname=libparrot$ <==
3	/Users/nnunley/parrot/config/init/defaults.pm	1751	1888	
==>ways tell ICU what to
        # use.
        cxx => '',

        # Linker, used to link object files (plus libraries) into
        # an ex <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063335	1063433	
==>> "#line 253 \"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064205	1064303	
==>> "#line 253 \"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VT <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	16577	16735	
==>t;
    {
        local $^W = 0;
        local($@,$!);   # don't interfere with $@
                        # eval() sometimes resets $!
        $test = eval "\$ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	40024	40149	
==>'accept_codes'} and
            $self->{'accept_codes'}{'VerbatimFormatted'}
        ) {
          while(@$para > 3 and $para- <==
3	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	989	1117	
==>$self, @_ );
        }
        warn "Please implement a function 'visit", ref $self, "' in '",
            ref $visitor, "'.\n <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7167	7257	
==>eg_type_short"]
${DEST0} = concat ${STEMP0}
${STEMP0} = stack_depth
${DEST0} = concat ${STE <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4989	5079	
==>eg_type_short"]
${DEST0} = concat ${STEMP0}
${STEMP0} = stack_depth
${DEST0} = concat ${STE <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3027	3146	
==>,
    'n'  => "NREG(%ld)",
    'p'  => "PREG(%ld)",
    's'  => "SREG(%ld)",
    'k'  => "PREG(%ld)",
    'ki' => "IREG( <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2847	2966	
==>,
    'n'  => "NREG(%ld)",
    'p'  => "PREG(%ld)",
    's'  => "SREG(%ld)",
    'k'  => "PREG(%ld)",
    'ki' => "IREG( <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1945	2059	
==>,
  'n'   => "NREG(%ld)",
  'p'   => "PREG(%ld)",
  's'   => "SREG(%ld)",
  'k'   => "PREG(%ld)",
  'ki'  => "IREG( <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9969	10070	
==>t, but need to be first to last in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${ST <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7483	7584	
==>t, but need to be first to last in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${ST <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6447	6548	
==>t, but need to be first to last in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${ST <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1039	1125	
==>>prederef.code))
#define CUR_OPCODE ((opcode_t*)cur_opcode + CONTEXT(interpreter->ctx)- <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	973	1059	
==>>prederef.code))
#define CUR_OPCODE ((opcode_t*)cur_opcode + CONTEXT(interpreter->ctx)- <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1169	1255	
==>>prederef.code))
#define CUR_OPCODE ((opcode_t*)cur_opcode + CONTEXT(interpreter->ctx)- <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2309	2435	
==>{library};

    if ($library) {
        my $hout = $self->gen_h($library);
        my $h = "$library.h";
        my $c = "$libr <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	10348	10470	
==>> 'isnt_eq',
        pbc_output_like    => 'like',
        pasm_output_is     => 'is_eq',
        pasm_output_isnt   => 'is <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	3796	3902	
==>s

END
    }

    # src/pmc/$pmc\$(O): \$(NONGEN_HEADERS) $parent_headers src/pmc/pmc_$pmc.h

    # build l <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547524	547698	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fact",
                  "FLAGS" => ":advanced_math",
                  "ARGDIR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548430	548604	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fact",
                  "FLAGS" => ":advanced_math",
                  "ARGDIR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	36195	36285	
==>\n  PMC * const eh = pmc_new(interpreter, enum_class_Exception_Handler);\n  VTABLE_set_poin <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3537	3644	
==>e.
    }
    else {
      $self->SYNTAX_ERROR("Sub declaration has no fnlib property, and parent block is no <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6201	6308	
==>e.
    }
    else {
      $self->SYNTAX_ERROR("Sub declaration has no fnlib property, and parent block is no <==
3	/Users/nnunley/parrot/tools/dev/gen_class.pl	826	925	
==>./lib";
use Parrot::Vtable;


my $vtbl = parse_vtable("$FindBin::Bin/../../vtable.tbl");

my $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021155	1021420	
==>MP" => 0,
                  "NAME" => "decodetime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021996	1022261	
==>MP" => 0,
                  "NAME" => "decodetime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741804	742023	
==>34,
                  "ARGS" => [
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 169 \"src/ops/set.ops\"\n  {{\@1}} = string_copy(i <==
3	/Users/nnunley/parrot/config/init/hints/solaris.pm	900	1040	
==>_link_cb = sub {
        use Carp;
        my ($key, $cc) = @_;
        my %gnuc;
        my $link = $conf->data->get('link');
        cc_gen <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2462	2562	
==>e decided to actually declare the constant, we will place its
  # definition into the block at the to <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2209	2309	
==>e decided to actually declare the constant, we will place its
  # definition into the block at the to <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21240	21355	
==>t_title {  # some witchery in here
  my $self = $_[0];
  my $title;
  my @to_unget;

  while(1) {
    push @to_unget <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4860	4964	
==>mc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);
    my @ungrouped_pmcs = grep { ! exists $ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4964	5068	
==>mc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);
    my @ungrouped_pmcs = grep { ! exists $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3403	3508	
==>gt {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_test('gt', $val1, $val2, $dest);
}

sub o <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	703	797	
==>. Defaults to '/usr'.

=item C<bindir>

The executables directory. Defaults to '/usr/bin'.

=it <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	932	1026	
==>. Defaults to '/usr'.

=item C<bindir>

The executables directory. Defaults to '/usr/bin'.

=it <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8176	8314	
==>heck eq 'ABORT'
            and	do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Abort.\n";

				return(undef);

			};

#DBG> <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7807	7935	
==>heck eq 'ABORT'
            and	do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Abort.\n";

				return(undef);

			};

#DBG> <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	1795	1924	
==>if ($@) {
            warn "Warning! Unable to extract tests for $file\n";
        } else {
            warn "Extracting tests for <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	1495	1608	
==>,
 ],
 apply => 
 [['# Apply function'],
  ['apply_ENTRY', 'set', 'P0', 'P5'],
  ['',            'set', 'P16', 'P6 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3154	3248	
==>ush @{$code{$seg}->{code}}, "\t#ne \$I0, $vars, ERR_INPFIELDS\n";
	} else {
		push @{$code{$seg <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564945	565249	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "can",
                  "FLAGS" => ":object_b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565837	566141	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "can",
                  "FLAGS" => ":object_b <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	825	926	
==>s file',   # probably obsolete
	'PL' => 'Perl script',
	'SKIP' => 'MANIFEST skip file',
	'STATUS' => ' <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	7622	7752	
==>nm_gnu) {
		    if ($type =~ /^[Rr]$/) {
			$const = 1;
			$init  = 1;
		    } elsif ($type =~ /^[Ss]$/) {
			$small  = 1;
			$unin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9063	9162	
==>>offset;\n        Parrot_switch_to_cs(interpreter, fe->seg, 1);\n    }\n    string_cstring_free(labe <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10179	10278	
==>>offset;\n        Parrot_switch_to_cs(interpreter, fe->seg, 1);\n    }\n    string_cstring_free(labe <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38496	38612	
==>ethod, 0);
    my $parameters = $method->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / / <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3234	3324	
==>_ => Parrot::Test::PGE::_generate_glob_for($target, $pattern);

    goto &Parrot::Test::pir <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3659	3749	
==>_ => Parrot::Test::PGE::_generate_glob_for($target, $pattern);

    goto &Parrot::Test::pir <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8505	8621	
==>_gots
    value_at = shift iter
    if value_at == op2 goto got_it
    inc pos
    goto loop_begin
got_it:
    inc po <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	743	850	
==>.pl'),
            $self->new_item('', 'tools/dev/cc_flags.pl'),
            $self->new_item('', 'tools/buil <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9083	9251	
==>rstatus
        or   do {

            $$errstatus = 1;
            &$error($self);
                $$errstatus # if 0, then YYErrok has been called
            or <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8673	8835	
==>rstatus
        or   do {

            $$errstatus = 1;
            &$error($self);
                $$errstatus # if 0, then YYErrok has been called
            or <==
3	/Users/nnunley/parrot/config/init/hints/freebsd.pm	409	539	
==>rt.mk,
    # which must be assumed to do the right thing.

    my $osversion;
    if (-e "/sbin/sysctl") {
        $osversion = `/s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101048	1101436	
==>,
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1220,
                  "ARGS" => [
                              "n",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 296 \ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24258	24461	
==>ENEXT",
                  "NAME" => "yield",
                  "FLAGS" => "",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 32,
                  "AR <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	5897	5999	
==>literal');       }
sub require_open_brace    { return shift->require('open-brace');    }
sub require_op <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2431	2549	
==>y read-only) original source line!
    
    } else {
      DEBUG > 2 and print "First line: [$source_line]\n";

      i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	938	1036	
==>});
  $_->sax($handler) foreach $self->content;
  $handler->end_element({ Name => 'block' });
}


1 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1951	2049	
==>});
  $_->sax($handler) foreach $self->content;
  $handler->end_element({ Name => 'block' });
}


1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861978	862262	
==>{
                  "JUMP" => 0,
                  "NAME" => "length",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862746	863030	
==>{
                  "JUMP" => 0,
                  "NAME" => "length",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757824	758088	
==>=> 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758596	758860	
==>=> 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	19854	19967	
==>each (@rules) {
        if ($_->{'code'} =~ /\w\s+\w/) {
            die "Currently unable to build dispatch table <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21502	21606	
==>en ", $to_unget[-1]->dump, "\n";

    (DEBUG and print "Too much in the buffer.\n"),
     last if @to_ung <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64005	64118	
==>,$grammar,$line) if $::RD_CHECK;
					}
				}
				elsif ($grammar =~ m/$EXACTLY/gco)
				{
					_parse("an exactly <==
3	/Users/nnunley/parrot/languages/urm/urm-old.pl	565	681	
==>$line =~ /(r\d+)/) { $register{$1} = 0 unless defined $register{$1}}
    if ($line =~ /out\((r\d+)/) { $outreg = $1 } <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	16252	16362	
==>e (*pointer)(void);
    $return_data
    $other_decl
    $call_state
    $extra_preamble

    pointer =  ($ret_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	25497	25603	
==>nt " $new_letter isn't a good thing to extend, because known.\n";
      $self->whine(
        $para->[1]{'s <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	56	155	
==>parrot/lib/Parrot/IO/Path.pm 19602 2006-05-30T13:40:58.862833Z coke  $

=head1 NAME

Parrot::IO::Pat <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	56385	56515	
==>tract_variable($_[0]) } ],
                                   undef, 1);

This example separates a text into fields which are quote <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	13076	13191	
==>f ($globals{$c}) {
	$p = $globals{$c};
	print <<"EOC";
	# $c = global "$c" $cmt
EOC
    }
    else {
	my $type = 'pm <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	8499	8641	
==>ft;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH} "\n";
        print {$FH} "$op->{arg1}->{symbol}:\n";
    } <==
3	/Users/nnunley/parrot/config/inter/lex.pm	952	1077	
==>data->set($util => 'echo');
        $self->set_result('skipped');
        return $self;
    }

    my $prog;

    # precedence <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	949	1074	
==>data->set($util => 'echo');
        $self->set_result('skipped');
        return $self;
    }

    my $prog;

    # precedence <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	980	1104	
==>int LANG $lang_code; # JMG
        close LANG; # JMG

        Parrot::Test::run_command( 
            "$PConfig{perl} languag <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	892	1016	
==>int LANG $lang_code; # JMG
        close LANG; # JMG

        Parrot::Test::run_command( 
            "$PConfig{perl} languag <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6478	6611	
==>me eq '_MASTER';

        $pirCode .= qq(
            store_global name, rulesub\n\n);
    }

    # End of the pir code
    $pirCode . <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4143	4248	
==>BLoad {
	{
		no strict 'refs';

			exists(${__PACKAGE__.'::'}{_DBParse})#Already loaded ?
		and	retur <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3932	4032	
==>BLoad {
	{
		no strict 'refs';

			exists(${__PACKAGE__.'::'}{_DBParse})#Already loaded ?
		and	retur <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	7015	7115	
==>$src_stem, $dest_stem) = @_;

    $dest_stem ||= $src_stem;
    if (needs_build("$dest_stem$O", "$src <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5309	5409	
==>$src_stem, $dest_stem) = @_;

    $dest_stem ||= $src_stem;
    if (needs_build("$dest_stem$O", "$src <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7226	7326	
==>$src_stem, $dest_stem) = @_;

    $dest_stem ||= $src_stem;
    if (needs_build("$dest_stem$O", "$src <==
3	/Users/nnunley/parrot/lib/Test/More.pm	21903	22007	
==>'bent',    "Spoon bending, that's original" );
    }

With a todo block, the tests inside are expected to <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	367	467	
==>e qw(Jako::Construct::Statement);

my %block_types = (
  'while'    => { PREFIX => "_W", NEXT => 'CON <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	388	488	
==>e qw(Jako::Construct::Statement);

my %block_types = (
  'while'    => { PREFIX => "_W", NEXT => 'CON <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	26321	26489	
==>$next =>
              );

    return ($back, @ops);
}

###################### New stuff ###################

# Most rewrite rules will declare a fallback point, and als <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	295	409	
==>nchmarks matching regexes  (multiple)
   -c -conf           path to configuration file
   -d -directory      path t <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	19575	19674	
==>, ".\\nCAN_BUILD_CALL_FRAMES is enabled, this should not happen", 58, "ascii", 0);
#else
    ns = st <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1243	1332	
==>truct::Statement::Concat;
use Jako::Construct::Statement::Decrement;
use Jako::Construct:: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	2496	2606	
==>ype  = $self->type;
  my $name  = $self->name;
  my @args  = $self->args;

  if ($type) {
    $handler->start_e <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	4024	4133	
==>es{$f}{$a} = $i;
		    # print STDERR "def $f($a = $i)\n";
		}
		push @code, [$line, $pc, "ARG_count", $n, $f, <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	4523	4632	
==>es{$f}{$a} = $i;
		    # print STDERR "def $f($a = $i)\n";
		}
		push @code, [$line, $pc, "ARG_count", $n, $f, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743108	743433	
==>":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 836,
                  "ARGS" => [
                              "s",
                              "ic" <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	3720	3849	
==>p ask));

    my $n = 0; # step number
    foreach my $task ($self->steps) {
        my $step_name   = $task->step;
        my @st <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	396	513	
==>odules();

use constant {
  VERSION     => 0.4,
  MAX_SIZE    => 2**20 * 3.0,  # MiB limit
  BASEDIR     => "/tmp/parr <==
3	/Users/nnunley/parrot/tools/util/pirtidy.pl	333	440	
==>{
    warn "Processing $file...\n" if $verbose;
    open my $ifh, '<', $file;
    my $outfile = "$file.$exte <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13303	13402	
==>ulevar|<autoscore/)
	{
		# Do nothing
	}
	elsif (@items &&
		( ref($items[0]) =~ /\AParse::RecDescen <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	43250	43340	
==>A\s*\{.*\}\s*\Z/;
		$self->{_AUTOACTION}
			= new Parse::RecDescent::Action($sourcecode,0,- <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	68553	68667	
==>...")' ;
			_warn(1,"Found two or more lookahead specifiers in a
			       row.",$line)
			and
			_hint("Multiple p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650200	650574	
==>"",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 727,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" = <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	10712	10830	
==>ptree {
    my ($self, $t, $sub) = @_;
    $sub->($t);
    foreach my $arg (@{ $t->{args} }) {
        if (UNIVERSAL::i <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	5335	5438	
==>automatically from '$file' (and possibly other
 * .ops files). by $0.
 *
 * Any changes made here will b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757819	758085	
==>UMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758591	758857	
==>UMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	270	385	
==>:Simple::DEBUG
          : sub() {0}
      }

use Text::Wrap 98.112902 ();
$Text::Wrap::wrap = 'overflow';
#~~~~~~~~ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755100	755205	
==>,
                  "BODY" => "#line 266 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_number_native(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755887	755992	
==>,
                  "BODY" => "#line 266 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_number_native(interpr <==
3	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1799	1912	
==>ging output.
{
  my $fresh;
  sub debug($) {
    my $msg = shift;

    print STDERR "* " and $fresh++ unless $fres <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811512	811618	
==>{{\@2}}->vtable->get_pmc_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812414	812520	
==>{{\@2}}->vtable->get_pmc_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428335	428632	
==>LAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 492,
                  "ARGS" <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15294	15407	
==>$1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # return a single scalar
    ($x = ((@_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16475	16588	
==>$1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # return a single scalar
    ($x = ((@_ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31193	31301	
==>method)>

Always true for vtables.

=cut

sub implements
{
    my ($self, $meth) = @_;
    $self->implements_ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32656	32764	
==>method)>

Always true for vtables.

=cut

sub implements
{
    my ($self, $meth) = @_;
    $self->implements_ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39813	39921	
==>method)>

Always true for vtables.

=cut

sub implements
{
    my ($self, $meth) = @_;
    $self->implements_ <==
3	/Users/nnunley/parrot/languages/regex/test.pl	2644	2770	
==>NPUT:/;

    # Gather input, look for OUTPUT:
    $input = '';
    undef $output;
    while (<SPEC>) {
        $output = '', la <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20663	20774	
==>TION' . ++$_[1]->{actcount} .'__'; }

sub new
{
	my $class = ref($_[0]) || $_[0];
	bless 
	{
		"code"      => $_ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	2216	2315	
==>$scope;
    my $symbtab = shift @{ $parser->YYData->{scopef} };
    $parser->YYData->{symbtab_cst} <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19295	19389	
==>ode->{children}}) {
    my $temp_1 = $self->_generate($node->{children}[$_]);
    $self->_add_i <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19783	19877	
==>ode->{children}}) {
    my $temp_1 = $self->_generate($node->{children}[$_]);
    $self->_add_i <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20272	20366	
==>ode->{children}}) {
    my $temp_1 = $self->_generate($node->{children}[$_]);
    $self->_add_i <==
3	/Users/nnunley/parrot/config/init/defaults.pm	1118	1235	
==>n} : '',

        # Flags used to indicate this object file is to be compiled
        # with position-independent code <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6838	6953	
==>}
sub skip_colon         { return shift->skip('colon');         }
sub skip_comma         { return shift->skip('comma <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9987	10083	
==>ut_fh'}} $text;
}

=item C<do_pod_link($link)>

This is reimplemented here to avoid a bug in C<Po <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	17365	17463	
==>(@whiles);
	$_=$_->{jump};
	push @{$code{$seg}->{code}}, <<LOOPUP;
	goto WHILE_$_
AFTERWHILE_$_:
LO <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	35281	35379	
==>acketed( $text, '{[' );

would return the same result, since all sets of both types of specified
de <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	41986	42122	
==>ECIAL STUFF for semi-processed L<>'s
        
        my $thing;
        foreach my $attrname ('section', 'to') {        
          if(de <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	857	982	
==>]/smo )
	    {
	        push(@concrete_items, 
	            $self->new_item('', $dist->relative_path($file)));
	    }
	    els <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	35730	35845	
==>content = @$ell;
      splice @ell_content,0,2; # Knock off the 'L' and {} bits

      DEBUG > 3 and print " Ell con <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	102	195	
==>44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::File - Docs-Related File

=head1 SYNOPSI <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	6571	6778	
==>ource is undef";
                '';
            }
        }egx;

        if ($options{replace_slashes}) {
            $line =~ s{(/+)}{
                my $len = length $1;
                my $slash = $conf- <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3991	4103	
==>n";
    }
} 
elsif ($mode eq 'linklibs') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        g <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4095	4207	
==>n";
    }
} 
elsif ($mode eq 'linklibs') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        g <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5175	5285	
==>$self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  $handler->start <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3238	3348	
==>$self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  $handler->start <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	29918	30016	
==>tring_ci_gt_p {
}

sub _op_string_ci_le_p {
}

sub _op_string_ci_ge_p {
}

sub _op_substring {
}

s <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	25262	25374	
==>elect $old_fh;
}


sub _dup_stdhandles {
    my $self = shift;

    $self->_open_testhandles;

    # Set everythi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938551	938644	
==>\"src/ops/string.ops\"\n    {{\@1}} = string_join(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939441	939534	
==>\"src/ops/string.ops\"\n    {{\@1}} = string_join(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	4005	4142	
==>DO: look to see if $lines[-1] is =encoding, and if so,
        # do horribly magic things

      }
      
      if(DEBUG > 8) {
        pr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79518	79614	
==>} = pmc_new(interpreter, enum_class_UnManagedStruct);\n      PMC_data({{\@1}}) = p;\n  }\n  {{+=4 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81039	81135	
==>} = pmc_new(interpreter, enum_class_UnManagedStruct);\n      PMC_data({{\@1}}) = p;\n  }\n  {{+=4 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6889	6980	
==>t$(t$, 5)
print right$(t$, 5)
' instr
s1$="The longer string"
found$="longer"
bogus$="not"
p <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18618	18709	
==>t$(t$, 5)
print right$(t$, 5)
' instr
s1$="The longer string"
found$="longer"
bogus$="not"
p <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	58811	58902	
==>ract_tagged($text, undef, undef, undef, {ignore => [$empty_tag]} );


C<gen_delimited_pat> m <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	12940	13038	
==>my $srm_pt = $srm->pre_translation();
    $pir .= sub_meta($srm_pt, $mv, 'pre_translation');
    $p <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4523	4614	
==>ists_with_name($name)>

Returns whether a subdirectory with the specified name exists in the <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359055	359313	
==>i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 420,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 250 \"src/ops/io.op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52040	52202	
==>( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "trace",
                  "FLAGS" => "",
                  "A <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2352	2447	
==>, $silent)>

Iterates over the group's contents and calls C<write_html()> on each one.

Some HTM <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9342	9477	
==>nt STDERR "**Entering Error recovery.\n";
#DBG>			++$dbgerror;
#DBG>		};

            ++$$nberror;

        };

			$$errstatus = <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8922	9049	
==>nt STDERR "**Entering Error recovery.\n";
#DBG>			++$dbgerror;
#DBG>		};

            ++$$nberror;

        };

			$$errstatus = <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3449	3551	
==>{'Thispara'},
    "\n\n"
  ;
  $self->{'Thispara'} = '';
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2979	3081	
==>{'Thispara'},
    "\n\n"
  ;
  $self->{'Thispara'} = '';
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	369	457	
==>WRAP = 1 unless defined $WRAP;

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11404	11531	
==>d be done about that.
    }
    
    # Pod::Simple::HTML bug was here.
    my $out;
    
    $out = $to if defined $to and lengt <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630470	630574	
==>\@2}};\n    INTVAL type = pmc_type_p(interpreter, class);\n    if (type <= 0)\n        real_exception(int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631460	631564	
==>\@2}};\n    INTVAL type = pmc_type_p(interpreter, class);\n    if (type <= 0)\n        real_exception(int <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22893	23016	
==>title if $title =~ m<^\s*$>; # make sure it's contentful!
      last;
      
    } else {
      DEBUG and $pattern and print <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	3792	3889	
==>PATH}, $_)
    } $self->file_and_directory_names;
}

=item C<file_paths()>

These are the full pat <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	6036	6126	
==>ccept_directives('Verbatim', @_) }
sub accept_directive_as_data      { shift->_accept_direc <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	9932	10074	
==>h.h
erff        math.h
erfl        math.h
errno       errno.h
exit        stdlib.h
exp         math.h
exp2        math.h
exp2f       math.h
exp <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	25254	25374	
==>_pc += 4\n";
			$arg_name = "I_ARG_$arg_num";
		}

        # tstring
		elsif (/^tstring$/) {
			$out =  "    \${I_ARG_$ar <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6248	6345	
==>BJECTS_C
static const char * const Parrot_mmd_func_names[] = {
EOM

    for my $entry (@{$vtable}) <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	60342	60456	
==>use strict;

use Lua::lexer;
use Lua::build;
use Lua::symbtab;
use Lua::pir;

sub Run {
    my $parser = sh <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27165	27275	
==>end pre_op\n";

        # Add pre-translate code, if any.
        $pir .= sub_meta($pre_translate_code, $mv, "p <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	46	137	
==>.
# $Id: /parrot/config/gen/makefiles.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 N <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	1119	1260	
==>terp* interpreter,
                                           void** prederef_addr)
{
    INTVAL offset_in_ops;
    if (prederef_addr == NULL) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936243	936332	
==>DY" => "#line 455 \"src/ops/string.ops\"\n  {{\@1}} = string_titlecase(interpreter, {{\@2} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937020	937109	
==>DY" => "#line 455 \"src/ops/string.ops\"\n  {{\@1}} = string_titlecase(interpreter, {{\@2} <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8453	8567	
==>$dest_reg = shift;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the store.
	# Oth <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6273	6387	
==>$dest_reg = shift;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the store.
	# Oth <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5188	5302	
==>$dest_reg = shift;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the store.
	# Oth <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	13189	13326	
==>entheses, then double the
        # enclosing parentheses and add a space around the argument,
        # like so:
        #
        #    g <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3857	3956	
==>entheses, then double the enclosing
parentheses and add a space around the argument, like so:

    g <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1538	1651	
==>r $PATHQUOTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as they may contain spaces.
    $PATHQUOTE = ' <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1583	1696	
==>r $PATHQUOTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as they may contain spaces.
    $PATHQUOTE = ' <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1587	1700	
==>r $PATHQUOTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as they may contain spaces.
    $PATHQUOTE = ' <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	7958	8078	
==>iag("    Actual: '" ~ ($got.defined ?? $got !! "undef") ~ "'");
    }
    else {
        Test::diag("    Actual: " ~ ($go <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	888	977	
==>s "Ident is not!" if defined $ident and not UNIVERSAL::isa($ident, 'Jako::Construct::Expre <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	916	1005	
==>s "Ident is not!" if defined $ident and not UNIVERSAL::isa($ident, 'Jako::Construct::Expre <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11844	12097	
==>st_key->[0],
                        'arg2'   => undef,
                        'result' => $result,
                    );
                    return [ $defn, \@opcodes, $assign ];
                }
                else {
                    my $ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10040	10265	
==>st_key->[0],
                    'arg2'   => undef,
                    'result' => $result,
                );
                return [ $defn, \@opcodes, $assign ];
            }
            else {
                my $ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8887	9056	
==>st_key->[0],
            'arg2'   => undef,
            'result' => $result,
        );
        return [ $defn, \@opcodes, $assign ];
    }
    else {
        my $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978337	978666	
==>inline",
                  "CODE" => 1098,
                  "ARGS" => [
                              "i",
                              "ic",
                              "s",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/s <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	1432	1537	
==>path($volume, $directories, '');
    
    # To remove the trailing slash.
    $parent_path = File::Spec->c <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	21977	22081	
==>_table($prefix, @r1);
        $pir .= "INS_BRANCH_$prefix$r2[0]->{'code'}:\n";
        $pir .= binary_dis <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2672	2788	
==>_is_shared     => 1,

            sym_export => '__declspec(dllexport)',
            sym_import => '__declspec(dllimp <==
3	/Users/nnunley/parrot/config/init/hints/cygwin.pm	1197	1303	
==>_is_shared    => 1,
        sym_export => '__declspec(dllexport)',
        sym_import => '__declspec(dllimp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862489	862712	
==>.ops\"\n  {{\@1}} = string_length(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863258	863481	
==>.ops\"\n  {{\@1}} = string_length(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	121	212	
==>11564Z bernhard  $

=head1 NAME

Parrot::Docs::Section::DynaPMCs - Dynamic PMCs documentatio <==
3	/Users/nnunley/parrot/config/init/hints/linux.pm	132	257	
==>age init::hints::linux;

use strict;

use Config;

sub runstep
{
    my ($self, $conf) = @_;

    my $libs      = $conf->data- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	535002	535228	
==>2.0);\n  {{\@1}} = log((FLOATVAL){{\@2}}) / temp;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4282	4383	
==>ns the C code for the run core function declaration.

=cut

sub run_core_func_decl
{
    my ($self, $c <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2770	2871	
==>ns the C code for the run core function declaration.

=cut

sub run_core_func_decl
{
    my ($self, $c <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2061	2177	
==>m;
    $left_type = $left_sym->type;
  }
  else {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVERSA <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2019	2135	
==>m;
    $left_type = $left_sym->type;
  }
  else {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVERSA <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1941	2057	
==>m;
    $left_type = $left_sym->type;
  }
  else {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVERSA <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	928	1090	
==>pe =
     ( p => "void *",
       i => "int",
       3 => "int *",
       l => "long",
       4 => "long *",
       c => "char",
       s => "short",
       2 => " <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	1343	1505	
==>pe =
     ( p => "void *",
       i => "int",
       3 => "int *",
       l => "long",
       4 => "long *",
       c => "char",
       s => "short",
       2 => " <==
3	/Users/nnunley/parrot/lib/Test/More.pm	2436	2537	
==>u can switch to once you get the hang of basic testing.

The purpose of this module is to provide a wi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322823	323127	
==>i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 378,
                  "ARGS" => [
                              "i",
                              "nc"
                            ],
                  "BODY" => "#line 134 \"src/ops/dotgnu.ops\"\n  { <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	3778	3908	
==>atvalsize' => '16',
             'hugeintval' => 'long long',
             'hugeintvalsize' => 8,
             'i_arpainet' => 'def <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	8501	8598	
==>ter, &st, n)
#define GET_NCI_P(n) get_nci_P(interpreter, &st, n)

/*
 * set return value
 */
stati <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	330	462	
==>f /^\s*;/;
    s/;.*$//;
    $text .= $_;
  }
  close SOURCE;

  for my $ch (split //,$text) {
    if($ch eq '(' or
       $ch eq ')' <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4352	4462	
==>d])",
    );

    die "Unrecognized type '$type' for num '$num' in opcode @{[$op->full_name]}"
        unless e <==
3	/Users/nnunley/parrot/config/inter/progs.pm	2379	2473	
==>isms.
    $ccflags =~ s/-D((PERL|HAVE)_\w+\s*|USE_PERLIO)//g;
    $ccflags =~ s/-fno-strict-ali <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714785	714984	
==>reter), s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715708	715907	
==>reter), s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716653	716852	
==>reter), s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4231	4377	
==>t.
                $internal_calls{$1}{"$file:$function"}++ 
                  unless ($variable_visible{$file}{$1} || 
                          $ <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	5784	5916	
==>vn/;
       next if ( $dir && ! -d $dir ); 

       my $patterns = capture_output( "$svn_cmd propget svn:ignore $dir" );
       # TOD <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11201	11300	
==>=> 1});
	feedme();
	die "Expected ',': $syms[CURR]" unless $syms[CURR] eq ",";
	feedme();
	my($right <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	12334	12464	
==>prog' => 'parrot',
             'testheader' => undef,
             'testheaders' => undef,
             'touch' => 'perl -MExtUtil <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1316	1417	
==>$_[0]{'Errata_seen'} = 1;
      $_[0]{'Thispara'} = $_[0]{'source_filename'} ?
        "$_[0]{'source_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	3065	3160	
==>est  = $dest->value;
  $left  = $left->compile($compiler);
  $right = $right->compile($compiler) <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	718	825	
==>OMM|STMT/) {
		$var=$syms[CURR];
		feedme();
		next if $var eq ",";
		my $array=0;
		if ($syms[CURR] eq "(") <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4872	4968	
==>_) && defined(I386) /* && defined(NO_DYNOPS) */
    register opcode_t *cur_opcode asm ("esi") = c <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	104	209	
==>t;

my $fail_label = Regex::Ops::Tree::mark('FAIL');

sub init_context {
    my ($self, $ctx) = @_;
    $c <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	105	210	
==>t;

my $fail_label = Regex::Ops::Tree::mark('FAIL');

sub init_context {
    my ($self, $ctx) = @_;
    $c <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	2586	2685	
==>$parser->YYData->{symbtab} = new SymbTabVar($parser);
    $parser->YYData->{lex_num} ++;
##    war <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	9318	9450	
==>0 );
    }
    else {
        @$result{ 'ok', 'actual_ok' } = ( 1, $test );
    }

    $out .= "ok";
    $out .= " $self->{Curr_Test} <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12187	12273	
==>lt>solE<gt>>, C<EE<lt>47E<gt>>, C<EE<lt>0x2fE<gt>>,
and C<EE<lt>057E<gt>>, all mean "/" <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12710	12796	
==>lt>solE<gt>>, C<EE<lt>47E<gt>>, C<EE<lt>0x2fE<gt>>,
and C<EE<lt>057E<gt>>, all mean "/" <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	3553	3665	
==>ub includes() {
    my $self = shift;
    my $cout = "";
    $cout .= <<"EOC";
#define PARROT_IN_EXTENSION
#inclu <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	26649	26740	
==>$delim contains one or more of '(){}[]<>').

	($extracted, $remainder) = extract_codeblock($ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	26309	26437	
==>nd parameter: like foo or bar,Baz,qu:ux but not like "
        . $elements_one
      );
      return;
    }

    my @fallbacks  = <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	9379	9497	
==>x.h
cprojl      complex.h
creal       complex.h
crealf      complex.h
creall      complex.h
csin        complex.h
csinf <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018440	1018820	
==>S" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1138,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149182	149275	
==>table->get_number(interpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150123	150216	
==>table->get_number(interpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714755	714850	
==>interpreter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=2} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715678	715773	
==>interpreter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=2} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716623	716718	
==>interpreter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=2} <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1295	1415	
==>anguages', $language);
        } elsif ($dir_count == 1) {
          $path_to_language = $language;
        } elsif ($dir <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1780	1900	
==>anguages', $language);
        } elsif ($dir_count == 1) {
          $path_to_language = $language;
        } elsif ($dir <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4179	4298	
==>'_' unless length $section;
  }
  
  

  foreach my $it ($to, $section) {
    if( defined $it ) {
      $it =~ s/([^\x00 <==
3	/Users/nnunley/parrot/config/auto/jit.pm	853	965	
==>c/jit';        # base path for jit sources
    my $archname = $Config{archname};
    my ($cpuarch, $osname) = spl <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	15071	15176	
==>[CURR] eq "STMT" or $type[CURR] eq "COMP") {
			print CODE<<EQ;
@a	bsr DEREF
	push P12, P6   # Save result <==
3	/Users/nnunley/parrot/editor/ops2vim.pl	143	240	
==>les have been globbed on non-globbing OSes
## and make sure at least one command-line parameter ha <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24621	24759	
==>35,
			'primary' => 28
		}
	},
	{#State 77
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' = <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35232	35346	
==>f->{class}, $method, 0);
    my $ret = "";
    if ($method->{type} ne 'void') {
        # This cheats, assuming tha <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	7520	7633	
==>=> ELEMENT_TYPE, ... ];
    use Class::Struct CLASS_NAME => { ELEMENT_NAME => ELEMENT_TYPE, ... };

    package My <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	21780	21874	
==>self->{has_method}{class_init} : -1;
    my $class_init_code = $n >= 0 ? $self->{methods}[$n]{b <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20642	20724	
==>lParserStartToken>,
L<Pod::Simple::PullParserTextToken>, and
L<Pod::Simple::PullPar <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2703	2785	
==>lParserStartToken>,
L<Pod::Simple::PullParserTextToken>, and
L<Pod::Simple::PullPar <==
3	/Users/nnunley/parrot/config/gen/platform.pm	3331	3454	
==>nd\n");
        }
    }

    print PLATFORM_H <<'END_HERE';
#endif
END_HERE

    close PLATFORM_H;

    # implementation fil <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	6699	6821	
==>ne
    # shift off the beginning and push onto the end.
    $P1 = shift op2
    push op2, $P1
    dec op1
    goto pos
neg: <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	342	448	
==>s.  So far tested
with svn 1.2.0.

=cut

package main;

use strict;
use warnings;

use File::Find;

my @dir <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1014821	1015044	
==>1133,
                  "ARGS" => [
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 77 \"src/ops/sys.ops\"\n  const char * const tmp = st <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352142	352330	
==>DE" => 410,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 195 \"src/ops/io.ops\"\n  PIO_printf(interprete <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	1698	1812	
==>le(<>) {
    chomp;
    my ($file, $meta, $dest) = split(/\s+/, $_);
    $dest ||= $file;
    my $generated = $meta <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826674	826765	
==>ROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_num(entry->entry);\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827744	827835	
==>ROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_num(entry->entry);\n <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	3387	3552	
==>le.
# ##########################
sub generate_lookup {
    my @methods = @_;
    my $pir = "";

    # Group methods by class.
    my %classes = ();
    foreach (@meth <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11095	11197	
==>9])/sprintf('%%%02X',ord($1))/eg;
        # Yes, stipulate the list without a range, so that this can w <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4444	4545	
==>9])/sprintf('%%%02X',ord($1))/eg;
       # Yes, stipulate the list without a range, so that this can w <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	3902	4018	
==>t, $thisparser, $prevflag)
{
	bless {
		text    => $_[1],
		parser  => $_[2],
		prev    => $_[3]?1:0,
	      }, $_[0] <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	2906	3019	
==>t, $thisparser, $prevflag)
{
	bless {
		text    => $_[1],
		parser  => $_[2],
		prev	=> $_[3]?1:0,
	      }, $_[0] <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20676	20778	
==>:Value::Identifier->new($block, $self->get());
        push @left, $left;
        $self->require_assign <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	36088	36194	
==>t->exact'   => \&_op_inexact_exact,

###
### Numerical input and output
###

  'number->string' => \&_op_nu <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	3807	3910	
==>pect to see here too:
BEGIN {
  *pretty        = \&Pod::Simple::BlackBox::pretty;
  *stringify_lol = \&P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510615	510991	
==>",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 588,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#l <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	5824	5936	
==>); 

       my $patterns = capture_output( "$svn_cmd propget svn:ignore $dir" );
       # TODO: escape chars that <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2755	2846	
==>sed on Pod::Simple.

Pod::Simple::DumpAsXML inherits methods from
L<Pod::Simple>.


=head1 S <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	7869	8018	
==>AMIC###/;
        s/#.*$//;
        s/\s*$//;
        s/^\s*//;
        next unless $_;
        ($name, $number) = split(/\s+/, $_);
        $seen{$na <==
3	/Users/nnunley/parrot/config/inter/progs.pm	3234	3343	
==>ng shared libraries?", $ldflags)
        if $ask;
    $conf->data->set(ldflags => $ldflags);

    $libs = $con <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	73313	73406	
==>[0]->{lastlinenum} += $_[2] if @_ > 2;
	$_[0]->{offsetlinenum} = $_[0]->{lastlinenum};
	$_[0]- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	465	595	
==>my $self = shift;
  my ($compiler) = @_;

  my $kind        = $self->kind;
  my $peer        = $self->peer;

  my $prefix;

  if ($ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	445	575	
==>my $self = shift;
  my ($compiler) = @_;

  my $kind        = $self->kind;
  my $peer        = $self->peer;

  my $prefix;

  if ($ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	8939	9035	
==>CURR] eq "#";
	feedme();
	$fd=$syms[CURR];
	push @{$code{$seg}->{code}},<<CLOSE;
	_CLOSE($fd)
CLO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720799	721023	
==>" => 808,
                  "ARGS" => [
                              "p",
                              "nc"
                            ],
                  "BODY" => "#line 133 \"src/ops/python.ops\"\n  PMC * const io = {{ <==
3	/Users/nnunley/parrot/config/init/defaults.pm	1408	1534	
==>re
        # will try to find a suitable compiler, but it prefers GNU c++ over
        # a system c++, which might not be appro <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9546	9661	
==>n eq ''	# End of input: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	print STDERR "**At eof: aborting.\ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9116	9228	
==>n eq ''	# End of input: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	print STDERR "**At eof: aborting.\ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1336	1443	
==>ake a not-really-constant
    *Pod::Simple::DEBUG = sub () { $$variable } ;
    $$variable = $value;
    pri <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2175	2295	
==>($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various librari <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2467	2587	
==>($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various librari <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2262	2382	
==>($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various librari <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	7660	7779	
==>s, %seen, %fixed, $fix);
    local *OP;
    $fix = 1;
    open OP, "< $file" or die "Can't open $file, error $!";
    wh <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2168	2285	
==>::Test::per_test( '.m4', $count );
        my $lang_out_fn = $self->get_out_fn( $count );
        my @test_prog   = $s <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	1578	1679	
==>post_load {
	die "post_load not implemented for current stack to register mapper\n";
}

# Pre and post <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	4668	4779	
==>ess defined $arg;
	$rest = '' unless defined $rest;
    }
    else {  # program output from import - really ugly <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	253	348	
==>05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expression::Val <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	263	358	
==>05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expression::Val <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	10578	10680	
==>n.
sub disable_implicit_checks {
    my ($self, $t, $ctx) = @_;
    return $self->maptree($t, sub { shi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48568	48665	
==>g(interpreter,   PARROT_BOUNDS_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_B <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49358	49455	
==>g(interpreter,   PARROT_BOUNDS_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_B <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353683	353776	
==>terpreter, s)) {\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354428	354521	
==>terpreter, s)) {\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375568	375820	
==>E" => 439,
                  "ARGS" => [
                              "i",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parro <==
3	/Users/nnunley/parrot/examples/benchmarks/oo5.pl	199	313	
==>turn bless [ 10, 20 ], $self;
}

sub i {
    my $self = shift;
    if (@_) { $self->[0] = shift } else { $self->[0] <==
3	/Users/nnunley/parrot/examples/benchmarks/oo6.pl	191	305	
==>turn bless [ 10, 20 ], $self;
}

sub i {
    my $self = shift;
    if (@_) { $self->[0] = shift } else { $self->[0] <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	36632	36728	
==>ing}, qq{string}, etc) can be specified by including the
letter 'q' as a delimiter. Hence:

	@res <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3358	3448	
==>ple::DumpAsXML>

The older libraries L<Pod::PXML>, L<Pod::XML>, L<Pod::SAX>


=head1 COPYRI <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3010	3100	
==>ple::DumpAsXML>

The older libraries L<Pod::PXML>, L<Pod::XML>, L<Pod::SAX>


=head1 COPYRI <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	1864	1982	
==>'short');
    } else {
        $conf->data->set(int2_t => 'int');
        print <<'END';

Can't find a int type with si <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	10991	11106	
==>f( !defined $got || !defined $expect ) {
        # undef only matches undef and nothing else
        my $test = !def <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	11409	11524	
==>f( !defined $got || !defined $expect ) {
        # undef only matches undef and nothing else
        my $test = !def <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	29797	29898	
==>q S0, "$_", UF_}, english_func($_), qq{\n};
			}
		}
		print FUNC<<FUNCEND;
	goto UF_DISPATCH_END
UF_D <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	50149	50234	
==>rse::RecDescent::Directive(
					'Text::Balanced::extract_codeblock($text,undef,$skip) <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	2012	2105	
==>>new($file_name)->tokenize();

=head1 DESCRIPTION

The tokenizer takes a file and splits it in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85507	85596	
==>get_pmc_keyed_int(interpreter,\n      interpreter->iglobals, IGLOBALS_COMPREG_HASH);\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86414	86503	
==>get_pmc_keyed_int(interpreter,\n      interpreter->iglobals, IGLOBALS_COMPREG_HASH);\n  {{ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1032	1133	
==>mpile($compiler);
  
  $compiler->emit("  dec $ident");
  
  if (($self->ident->kind eq 'var') and ($s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561798	561888	
==>ect.ops\"\n  opcode_t *next = {{^+4}};\n  {{\@1}} = VTABLE_find_method(interpreter, {{\@2}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562882	562972	
==>ect.ops\"\n  opcode_t *next = {{^+4}};\n  {{\@1}} = VTABLE_find_method(interpreter, {{\@2}} <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6852	6968	
==>n>, $fail # at end?");
}

sub output_pushmark {
    my ($self) = @_;
    my @ops;
    if ($self->{DEBUG}) {
	push @op <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	837	942	
==>ck, and set as root.
  }
  DEBUG > 3 and print "Stack is now: ",
    join(">", map $_->[0], @{$_[0]{'_curr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440259	440559	
==>YPE" => "inline",
                  "CODE" => 504,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 104 \"src/ops <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	51023	51146	
==>-1] }, $4;
      }

    } elsif(defined $5) {
      DEBUG > 3 and print "Found stuff \"$5\"\n";
      push @{ $lineage[-1] } <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	1331	1436	
==>s;
    return $self;
}

=back

=head3 Object Methods

=over 4

=item C<get($key, ...)>

Provides access to <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	2531	2635	
==>code and passes the test if a string comparison of output
with the expected result is true.

=item C<past <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	3006	3107	
==>code and passes the test if a string comparison of output
with the expected result is true.

=item C<p <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	3484	3585	
==>code and passes the test if a string comparison of output
with the expected result is true.

=item C<p <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13528	13637	
==>p_equal_p {
}

sub _op_pair_p {
  my ($self, $node) = @_;
  my $return;
  my $label = $self->_gensym();

  _nu <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11419	11649	
==>{') {
                ++$depth;
            } elsif ($c eq '}') {
                if (--$depth == 0) {
                    $state = 0;
                }
            }
            $tokens[-1] .= $c;
        }
    }

#    for (0..$#t <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	17396	17492	
==>(.*)\)/{{+=$1}}/mg;
        #s/goto\s+NEXT\(\)/{{+=$op_size}}/mg;	#not supported--dependent on op <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6599	6687	
==>[${ITEMP0}] = stack_depth
    goto POST_BRANCH_switch_${CURIC}_LOOP
POST_BRANCH_switch_${ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4537	4625	
==>[${ITEMP0}] = stack_depth
    goto POST_BRANCH_switch_${CURIC}_LOOP
POST_BRANCH_switch_${ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549461	549707	
==>NAME" => "callmethodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550761	551007	
==>NAME" => "callmethodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552062	552308	
==>NAME" => "callmethodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	576	672	
==>tle, $navigation, $resources)>

Returns the page header with the specified title and navigation b <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2387	2483	
==>ription, @todo)>

Runs the target string against the Perl 6 pattern, passing the test
if the outp <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3821	3917	
==>ription, @todo)>

Runs the target string against the Perl 6 pattern, passing the test
if the outp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79558	79821	
==>nagedStruct);\n      PMC_data({{\@1}}) = p;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81079	81342	
==>nagedStruct);\n      PMC_data({{\@1}}) = p;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	14124	14231	
==>start_line' => $m, 'errata' => 1}, ''],
  ;

  push @out, 
    ['=back',  {'start_line' => $m, 'errata' => 1 <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35150	35264	
==>ody($self->{methods}[$n], $line, $out_name);
    }
    my $decl = $self->decl($self->{class}, $method, 0);
    my $ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36453	36567	
==>ody($self->{methods}[$n], $line, $out_name);
    }
    my $decl = $self->decl($self->{class}, $method, 0);
    my $ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38400	38514	
==>ody($self->{methods}[$n], $line, $out_name);
    }
    my $decl = $self->decl($self->{class}, $method, 0);
    my $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770387	770763	
==>,
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 870,
                  "ARGS" => [
                              "ic",
                              "i"
                            ],
                  "BODY" => "#l <==
3	/Users/nnunley/parrot/tools/util/pirtidy.pl	557	668	
==>$ifh>) {
      $formatter->add_pir( $line );
    }

    my $output = $formatter->get_formatted();
    print {$of <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	5345	5473	
==>se {
       $svn_cmd = 'svk';
   }

   # Find all directories in the Parrot distribution
   my %dir_list  = map { my $dir = ( Fil <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	91	189	
==>@ISA = ('Pod::Simple')}

use strict;

use Carp ();

BEGIN { *DEBUG = \&Pod::Simple::DEBUG unless de <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	90	188	
==>@ISA = ('Pod::Simple')}

use strict;

use Carp ();

BEGIN { *DEBUG = \&Pod::Simple::DEBUG unless de <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61336	61445	
==>code }
		      )

		{
			_parse("an m/../ pattern terminal", $aftererror,$line,$code);
			$item = new Parse::R <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667526	667612	
==>05 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->push_integer(interpreter, {{\@1}}, {{\@2}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668300	668386	
==>05 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->push_integer(interpreter, {{\@1}}, {{\@2}} <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2898	3056	
==>Q$SRCDIR\E//g;
            $generated_files{$path} = $tmp;
            $tmp = '';
        } else {
            $tmp .= $_;
        }
    }
    close(GCOVSUMMAR <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4568	4674	
==>o do.
	return "";
}

# Pre and post branch operation hooks.
sub pre_branch($) {
	my $self = shift;
	my $pop <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2984	3090	
==>o do.
	return "";
}

# Pre and post branch operation hooks.
sub pre_branch($) {
	my $self = shift;
	my $pop <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973822	974151	
==>line",
                  "CODE" => 1094,
                  "ARGS" => [
                              "i",
                              "ic",
                              "s",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/stri <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3078	3175	
==>E
#
# Automatically generated by config/gen/core_pmcs.pm

package Parrot::PMC;

use strict;
use wa <==
3	/Users/nnunley/parrot/lib/Parrot/PMC.pm	22	119	
==>E
#
# Automatically generated by config/gen/core_pmcs.pm

package Parrot::PMC;

use strict;
use wa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293799	294116	
==>> "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 342,
                  "ARGS" <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49915	50015	
==>perl_quotelike>");
				$prod and $prod->additem($item)
				      or  _no_rule("<perl_quotelike>",$lin <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	67149	67245	
==>se("a subrule match", $aftererror,$line,$code);
				my $desc;
				if ($name=~/\A_alternation_\d+_ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	37056	37156	
==>t>.

This program is free software; you can redistribute it and/or 
modify it under the same terms as <==
3	/Users/nnunley/parrot/lib/Test/More.pm	37465	37565	
==>t>.

This program is free software; you can redistribute it and/or 
modify it under the same terms as <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	6425	6525	
==>t>.

This program is free software; you can redistribute it and/or 
modify it under the same terms as <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1991	2097	
==>ax above applies here.

=cut

sub p6rule_isnt {
    my ($target, $pattern) = (shift, shift);

    unshift @ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34132	34234	
==>that these will be out by one - NWC
    my $l = $self->line_directive($line, "sharedref.c");
    return <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	4250	4341	
==>exists $known_strings{$text}) {
    <<"DATA";
#define static_string_${line} static_string_$k <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7797	7983	
==>. -1 ]
                        :   ();

            $semval = $code ? &$code( $self, @sempar )
                            : @sempar ? $sempar[0] : undef;

            splice(@$stac <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7445	7625	
==>. -1 ]
                        :   ();

            $semval = $code ? &$code( $self, @sempar )
                            : @sempar ? $sempar[0] : undef;

            splice(@$stac <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2829	2936	
==>rint "Big-endian UTF-16 BOM seen.  Aborting parsing.\n";
        $self->scream(
          $self->{'line_coun <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	16624	16805	
==>ch my $l (@list)
        {
            foreach my $v (@var)
            {
                push(@results,"$v,$l");
            }
        }

        return @results;
    }
}

=item C<o <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	11913	12044	
==>ate_for_title
           # if we're so desperate we'll take the first
           #  =head1's content as a title
          and $head1 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	7828	7952	
==>gs with and without maximum lengths
        my $havemax = 0;
        my @chunks = ([]);

        foreach my $kid (@{ $t->{arg <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41135	41242	
==>treelet_bit {  # for use only by the routine above
  my($self, $name) = splice @_,0,2;

  my $scratch;
  $se <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/EditorPlugins.pm	301	399	
==>d1 DESCRIPTION

A documentation section describing Parrot-related editor plugins.

=head2 Class Met <==
3	/Users/nnunley/parrot/config/auto/gc.pm	1815	1912	
==>c
\$(SRC_DIR)/res_lea\$(O):	\$(GENERAL_H_FILES) \$(SRC_DIR)/res_lea.c
EOF
            TEMP_gc_o => <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	20441	20543	
==>_[2]->{max}, TRUE, $_[1] ]); }
	],
	[#Rule 20
		 'expr', 3,
sub
#line 131 "lib/Regex/Grammar.y"
{ retur <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	340	440	
==>() {
	my $invocant = shift;
	return bless {}, $invocant;
}

# Pre-translation hook.
sub pre_translati <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	248	348	
==>() {
	my $invocant = shift;
	return bless {}, $invocant;
}

# Pre-translation hook.
sub pre_translati <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	3505	3651	
==>>{type};
        
        $types{ $arg->{type} } = 1;
    }
    
    # helper conversion subroutines
    my %helpers = (
        # type     subrout <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	34047	34177	
==>ics
###

  'number?'          => \&_op_number_p,
  'complex?'         => \&_op_complex_p,
  'real?'            => \&_op_real_p,
  ' <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	22958	23062	
==>>[0];
    UNPACK_SEQUENCE($n, '', "\t\t #unpack");
    CALL_FUNCTION($n, $c, $cmt);
}
sub CALL_FUNCTION
{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722362	722475	
==>ce(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_soft <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723391	723504	
==>ce(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_soft <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724435	724548	
==>ce(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_soft <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	35886	36180	
==>RGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 45,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 697 \"src/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835532	835739	
==>,
                  "CODE" => 946,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 215 \"src/ops/stack.ops\"\n  stack_push(int <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	3036	3179	
==>code $exit_code."
                if $exit_code;
            $self->{builder}->diag($diag) if $diag;
        }

        # The generated fil <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2647	2771	
==>code $exit_code." if $exit_code;
            $self->{builder}->diag( $diag ) if $diag;
        }

        # The generated fil <==
3	/Users/nnunley/parrot/languages/APL/t/APL.pm	80	199	
==>stalled.

BEGIN {
  eval {
    require Test::Base;
    import Test::Base qw/ -Base /;
  };
  if ($@) {
    eval 'use Tes <==
3	/Users/nnunley/parrot/Configure.pl	6294	6396	
==>for shared libraries
   --lex=(lexer)        Use the given lexical analyzer generator
   --yacc=(parser <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	32022	32117	
==>. In
a void context, the extracted substring (and any prefix) are simply
removed from the beginn <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82605	82854	
==>> 103,
                  "ARGS" => [
                              "p",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 1196 \"src/ops/core.ops\"\n  internal_exce <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	4225	4324	
==>ext, $line) = @_;

  if (exists $known_strings{$text}) {
    <<"DATA";
#define static_string_${line} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834329	834500	
==>r_stack, {{\@1}}, STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835055	835226	
==>r_stack, {{\@1}}, STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	36757	36858	
==>xt, '<q>' );

would correctly match something like this:

	$text = '<leftop: conj /and/ conj>';

See a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722395	722492	
==>O_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_softspace(interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723424	723521	
==>O_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_softspace(interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724468	724565	
==>O_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_softspace(interpreter <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	68370	68479	
==>?");
		}

		if ($lookaheadspec =~ tr /././ > 3)
		{
			$lookaheadspec =~ s/\A\s+//;
			$lookahead = $lookahead <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	595	685	
==>UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Ident is not!" unless UNIVERSA <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	483	573	
==>UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Ident is not!" unless UNIVERSA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571198	571487	
==>er, {{\@2}}, class);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572153	572442	
==>er, {{\@2}}, class);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	3022	3141	
==>ned($self->block) && not(defined($self->block->block));
}

#
# compile()
#

sub compile
{
  my $self = shift;
  my ($com <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	36103	36233	
==>$j = 0; $j < @ell_content; ++$j) {
        next if ref $ell_content[$j];
        DEBUG > 3 and
         print "    Peering at L-con <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	37312	37442	
==>$j = 0; $j < @ell_content; ++$j) {
        next if ref $ell_content[$j];
        DEBUG > 3 and
         print "    Peering at L-con <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37569	37692	
==>STRING' => 29,
			'NIL' => 30,
			'FALSE' => 33,
			'FUNCTION' => 34,
			"[" => 88,
			'NUMBER' => 36,
			'NAME' => 91 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5797	5935	
==>] } @$stack).
#DBG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defined($$token)
            or	do {
				($$token <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5522	5652	
==>] } @$stack).
#DBG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defined($$token)
            or	do {
				($$token <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	17133	17233	
==>ew();
}

sub additem
{
	my ( $self, $item ) = @_;
	$item->sethashname($self);
	push @{$self->{"items" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6271	6371	
==>e) # TODO: This can happen later.
        if ($access eq 'const' and $type->isa("Jako::Construct::Typ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17148	17316	
==>r, 'pmc' );
                push @opcodes, new LocalDir( $parser,
                    'result' => $result,
                );
                push @opcodes, new Keye <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18197	18317	
==>r, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new Keye <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	21980	22080	
==>| diag()>) it "passes through" the failure.

    return ok(...) || diag(...);

=for blame transfer
Ma <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	33736	33849	
==>p_memq,
  'memv'     => \&_op_memv,
  'member'   => \&_op_member,
  'assq'     => \&_op_assq,
  'assv'     => \&_o <==
3	/Users/nnunley/parrot/lib/File/Which.pm	5578	5672	
==>rn I<all> the
matches.

=head2 where($short_exe_name)

Not exported by default.

Same as C<whic <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18495	18585	
==>->head3_halfpoint_size( I<halfpoint_integer> );

=item $parser->head4_halfpoint_size( I<hal <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470890	471163	
==>nline",
                  "CODE" => 540,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 394 \"src/ops/math.ops\"\n  INTVA <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	17218	17318	
==>r stream.

=back

The source has to be set before you can parse anything.  The lowest-level
way is to <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	51139	51238	
==>mar =~ m/$AUTOSTUBMK/gco)
			{
				_parse("an autostub marker", $aftererror,$line);
				$::RD_AUTOST <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	671	780	
==>{
    if (!ref($_[0] || '')) { # most common case: one bare string
      return bless ['', {}, $_[0] ], $class <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22684	22777	
==>f->_add_inst("DONE_$label");
  $self->_restore($temp_0,$temp_1);
  return $return;
}

sub _op_ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23185	23278	
==>f->_add_inst("DONE_$label");
  $self->_restore($temp_0,$temp_1);
  return $return;
}

sub _op_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94953	95063	
==>ops\"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95846	95956	
==>ops\"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96739	96849	
==>ops\"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	27205	27402	
==>enting test number', 
                    type      => 'unknown', 
                    name      => undef 
                });
            }
        }
        # If backward, wipe history.  Its their <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864135	864247	
==>ssert(n == ENCODING_BYTES(interpreter, {{\@2}}));\n  }\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	865027	865139	
==>ssert(n == ENCODING_BYTES(interpreter, {{\@2}}));\n  }\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	35327	35428	
==>SLICE_plus_1 {
    return Del_Slice(@_, 1);
}
sub DELETE_SLICE_plus_2 {
    return Del_Slice(@_, 2);
} <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2437	2532	
==>.

Some HTML-formatted text describing the files linked to is returned.

=cut

sub write_content <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	750	845	
==><--plus-misses>

This creates a second section, with the heads of any files which had
familiar t <==
3	/Users/nnunley/parrot/config/gen/config_h.pm	520	610	
==>e qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':gen';

$description = ' <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	362	452	
==>e qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':gen';

$description = ' <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	354	444	
==>e qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':gen';

$description = ' <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27306	27417	
==>odes, new BranchOp( $parser,
        'result' => $l_continue,
    );
    push @opcodes, new LabelOp( $parser, <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28185	28296	
==>odes, new BranchOp( $parser,
        'result' => $l_continue,
    );
    push @opcodes, new LabelOp( $parser, <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10193	10296	
==>turns
    #  into "W".
  }
  
  return;
}

#------------------------------------------------------------ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88807	89090	
==>0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89544	89827	
==>0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10914	11024	
==>ned $it;

        $it =~ s/([^\x00-\xFF])/join '', map sprintf('%%%02X',$_), unpack 'C*', $1/eg;
        $it =~ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6131	6224	
==>o POST_BRANCH_switch_${CURIC}
${ITEMP0} = ${NEXTPC} + I_arg_0 # XXX Can't use ${ARG0} :-(
prop <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4069	4162	
==>o POST_BRANCH_switch_${CURIC}
${ITEMP0} = ${NEXTPC} + I_arg_0 # XXX Can't use ${ARG0} :-(
prop <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2641	2762	
==>ilder_func = $language_test_map{$func};

        # That's the reason for:   no strict 'refs';
        my $pass = $self- <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2171	2288	
==>ilder_func = $language_test_map{$func};
        # That's the reason for:   no strict 'refs';
        my $pass = $self- <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2710	2827	
==>ilder_func = $language_test_map{$func};
        # That's the reason for:   no strict 'refs';
        my $pass = $self- <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	1033	1132	
==>elow).

The only other constraint is you must pre-declare how many tests you
plan to run.  This is i <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2861	2955	
==>, map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUOTE <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3170	3264	
==>, map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUOTE <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2965	3059	
==>, map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUOTE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	537827	538067	
==>e",
                  "CODE" => 622,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 969 \"src/ops/math.ops\"\n  {{\@1}} = s <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	57157	57292	
==>tract_quotelike($_[0]) },
                                      ], undef, 1);

Finally, here is yet another way to do comma-separated va <==
3	/Users/nnunley/parrot/lib/Test/More.pm	6119	6229	
==>tes any expression (C<$this eq $that> is just a
simple example) and uses that to determine if the test succeede <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237044	237465	
==>RS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 276,
                  "ARGS" => [
                              "i",
                              "sc",
                              "s"
                            ],
                  "BODY" => " <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	2506	2626	
==>utput, $equivs[0];
		@equivs = ();
	    }
	    push @output, $stmt;
	}
    }
    die "The final 'terminate' is supposed t <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	4892	5003	
==>$max) || $max == -1) && $self->can('rewrite_plus')) {
        if ($greedy) {
            return $self->rewrite_p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143589	143853	
==>rpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144517	144781	
==>rpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145445	145709	
==>rpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4265	4394	
==>{$1}{"$file:$function"}++ 
                  unless ($variable_visible{$file}{$1} || 
                          $variable_visible{ <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4530	4657	
==>{$1}{"$file:$function"}++
                  unless ($variable_visible{$file}{$1} ||
                          $variable_visible{ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	13510	13604	
==>($file));
}

=item C<do_end()>

Reimplements the C<Pod::Simple::HTML> method to add a footer to <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	51380	51512	
==>"...";
    while(@stack) {
      push @{ $lineage[-1] }, '' if 2 == @{ $lineage[-1] };
      # Hmmmmm!

      my $code         = (pop <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1525	1623	
==>ncludes/parrot/event.h
 *
 * This gives +50 % performance
 */

#undef  CHECK_EVENTS
#define CHECK_E <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	13708	13802	
==>rk before 5.005.

=item B<unlike>

  $Test->unlike($this, qr/$regex/, $name);
  $Test->unlike($ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071182	1071545	
==>dvanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1195,
                  "AR <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	1482	1593	
==>ls/dev/manicheck.pl'),
            $self->new_item('', 'tools/dev/run_indent.pl'),
        ),
        $self->new <==
3	/Users/nnunley/parrot/config/auto/perldoc.pm	102	196	
==>T02:28:15.110975Z coke  $

=head1 NAME

config/auto/perldoc - Check whether perldoc works

=hea <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522008	522277	
==>"TYPE" => "inline",
                  "CODE" => 602,
                  "ARGS" => [
                              "n",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 744 \"src/ops/mat <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2482	2583	
==>y declare the constant, we will place its
  # definition into the block at the top of the block stack. <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2229	2330	
==>y declare the constant, we will place its
  # definition into the block at the top of the block stack. <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7346	7473	
==>f->{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        return ("set <rx_tmp>, <rx_stack>",
                $sel <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9445	9572	
==>f->{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        return ("set <rx_tmp>, <rx_stack>",
                $sel <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	7781	7895	
==>y $i = 0;
    foreach my $entry (@$default) {
        $meth_hash{$entry->[1]} = $i++;
        push @{$vtable{method <==
3	/Users/nnunley/parrot/config/inter/lex.pm	463	566	
==>put check_progs );

$util        = 'lex';
$description = "Determining whether $util is installed";
$prom <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18733	18863	
==>equire_value);
          last if $self->get(1)->is_close_paren;
          $self->require_comma;
        }
      }

      $self->req <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19759	19889	
==>equire_value);
          last if $self->get(1)->is_close_paren;
          $self->require_comma;
        }
      }

      $self->req <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1294	1412	
==>->{builder}->diag("'$cmd' failed with exit code $exit_code")
        if $exit_code and not $pass;
    }

    unless($EN <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1335	1453	
==>->{builder}->diag("'$cmd' failed with exit code $exit_code")
        if $exit_code and not $pass;
    }

    unless($EN <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2458	2574	
==>->{builder}->diag("'$cmd' failed with exit code $exit_code")
      if $exit_code and not $pass;
    }

    unless($EN <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	10114	10223	
==>e in the Parrot::Op, push the
        # Parrot::Op onto our op array, and forget the op so we can start the ne <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	11501	11601	
==>the element.

=over 4

=item Scalar (C<'$'> or C<'*$'>)

The element is a scalar, and by default is i <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	21095	21195	
==>cond_arg,		# 2ND LDEL (MAYBE)
		$str2pos,	$rd2pos-$str2pos,	# 2ND STR (MAYBE)
		$rd2pos,	$second_arg, <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	11826	11986	
==>r', $test_no);
            }
            elsif ( $func =~ m/^pasm_output_/ ) {
                $code_f = per_test('.pasm', $test_no);
            }
            e <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	26891	27012	
==>rdel,
		"mod"         => $mod,
		"lookahead"   => $_[4],
		"line"        => $_[5],
		"description" => $desc,
	}, $class;
} <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20157	20259	
==>(i)
		print "*";
	next j
	print 
next i

' Square roots and sgn
print 10,sqr(10)
print 32767,sqr(32767) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733313	733672	
==>IRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 823,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 134 \ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13015	13101	
==>oc;\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13859	13945	
==>oc;\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STA <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2229	2325	
==>:Identifier')) {
    my $right_sym = $block->find_symbol($right->value);
    $self->SYNTAX_ERROR( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2187	2283	
==>:Identifier')) {
    my $right_sym = $block->find_symbol($right->value);
    $self->SYNTAX_ERROR( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2109	2205	
==>:Identifier')) {
    my $right_sym = $block->find_symbol($right->value);
    $self->SYNTAX_ERROR( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	12960	13060	
==>t
{\fonttbl
{\f0\froman Times New Roman;}
{\f1\fmodern Courier New;}
{\f2\fswiss Arial;}
}

END
}

su <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784128	784359	
==>RGS" => [
                              "p",
                              "ki",
                              "p"
                            ],
                  "BODY" => "#line 392 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717976	718067	
==>IO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_fprintf(inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718908	718999	
==>IO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_fprintf(inte <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	574	670	
==>L::isa($ident, 'Jako::Construct::Expression::Value::Identifier');

  my $self = bless {
    BLOCK <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	649	745	
==>L::isa($ident, 'Jako::Construct::Expression::Value::Identifier');

  my $self = bless {
    BLOCK <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	649	745	
==>L::isa($ident, 'Jako::Construct::Expression::Value::Identifier');

  my $self = bless {
    BLOCK <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	3765	3880	
==>DERS) \\
        $parent_headers

END
    }

    # src/pmc/$pmc\$(O): \$(NONGEN_HEADERS) $parent_headers src/pmc/pmc <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2453	2555	
==>on. While we kinda find
	# basic blocks, we don't discover backward branches until late to do
	# otherw <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1031	1133	
==>on. While we kinda find
	# basic blocks, we don't discover backward branches until late to do
	# otherw <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	18762	18876	
==>@{$self->{"items"}}; $i++)
	{
		$item = ${$self->{items}}[$i];

		$code .= preitempos() if $parser->{_check}{itempo <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	11346	11452	
==>{
        $lineno += count_newlines($1);
        my ($flag, $type, $methodname, $parameters) = ($2,$3,$4,$5 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4071	4174	
==>({ Name => 'ident', Attributes => { name => $ident } });
        $handler->end_element({ Name => 'ident' <==
3	/Users/nnunley/parrot/tools/build/addopstags.pl	302	405	
==>\(/x) {
		next if $seen{$1}++;
	# tag file excmd xflags
	push @tags, join( "\t", $1, $ARGV, qq{$.;"}, "f <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16471	16568	
==>ved.

This program is free software; you can redistribute it and/or modify it
under the same terms <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1685	1782	
==>ved.

This program is free software; you can redistribute it and/or modify it
under the same terms <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15277	15379	
==>s Bool;
  multi sub is_deeply (List  $got, List  $expected, Str $desc?) returns Bool;
  multi sub is_de <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432420	432509	
==>> "#line 84 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433435	433524	
==>> "#line 84 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4490	4607	
==>args} } == 0) {
        delete $self->{name};
        delete $self->{args};
        return $self->op('nop', [], %$self <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5627	5744	
==>args} } == 0) {
        delete $self->{name};
        delete $self->{args};
        return $self->op('nop', [], %$self <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	27778	27890	
==>{
    my($self) = shift;

    return map { $_->{'ok'} } @{ $self->{Test_Results} };
}

=item B<details>

    my @ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111303	111564	
==>itwise_or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112195	112456	
==>itwise_or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113087	113348	
==>itwise_or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	5900	6031	
==>_num++, \$temp_cnt, \@temps,
                                \@extra_preamble, \@extra_postamble);
            $sig .= $sig_char{$_} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	725275	725386	
==>interpreter, io, \"\\n\");\n  PIO_softspace(interpreter, io, 0);\n  {{+=2}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30241	30338	
==>d
				   = ($lastsep||"").$text;
			}'.($::RD_NO_TRACE?'':'
			Parse::RecDescent::_trace(qq{<<Didn <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7393	7518	
==>b _run_command
{
    my ($command, $out, $err, $verbose) = @_;

    if ($verbose) {
        print "$command\n";
    }

    # M <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033444	1033536	
==>OUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    VTABLE_set_pmc_keyed_str(inter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034542	1034634	
==>OUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    VTABLE_set_pmc_keyed_str(inter <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1115	1214	
==>para'} .= $_[1] }

sub start_Para  {  $_[0]{'Thispara'} = '' }

sub start_head1 {
  if($_[0]{'Errata <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086569	1086848	
==>E" => 1205,
                  "ARGS" => [
                              "p",
                              "p",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 163 \"src/ops/experimental.ops\" <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3285	3389	
==>p, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    while (my ($group, $pmcs) = each %$group_fil <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3389	3493	
==>p, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    while (my ($group, $pmcs) = each %$group_fil <==
3	/Users/nnunley/parrot/tools/dev/symlink.pl	610	708	
==>elf);
my $toolsrcbase = basename($self);

use vars qw($v);

if ($toolsrcdir ne '' && -d $toolsrcdir <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2725	2822	
==>ule-level code"
GOSUB Sub1
PRINT "ERR this line in main routine should be skipped"
Label1:
   PRIN <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16692	16789	
==>ule-level code"
GOSUB Sub1
PRINT "ERR this line in main routine should be skipped"
Label1:
   PRIN <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	119482	119770	
==>}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120337	120625	
==>}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121192	121480	
==>}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088316	1088615	
==>UMP" => 0,
                  "NAME" => "slice",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089263	1089562	
==>UMP" => 0,
                  "NAME" => "slice",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2348	2444	
==>_depth = prop_stack_depth[${PC}]
NOWT_TO_PROPOGATE:
PIR

	# We'll emit a label for every single i <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11775	11994	
==>n = new KeyedSetOp( $parser,
                        'arg1'   => $last_key->[0],
                        'arg2'   => undef,
                        'result' => $result,
                    );
                    ret <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9975	10174	
==>n = new KeyedSetOp( $parser,
                    'arg1'   => $last_key->[0],
                    'arg2'   => undef,
                    'result' => $result,
                );
                ret <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8830	8989	
==>n = new KeyedSetOp( $parser,
            'arg1'   => $last_key->[0],
            'arg2'   => undef,
            'result' => $result,
        );
        ret <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	5531	5636	
==>.

If you call plan(), don't call any of the other methods below.

=cut

sub plan {
    my($self, $cmd, $a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566736	567039	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "does",
                  "FLAGS" => ":object_base" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567630	567933	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "does",
                  "FLAGS" => ":object_base" <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	1355	1443	
==>'docs/parrotbyte.pod'),
			$self->new_item('', 'docs/parrotbyte.pod'),
			$self->new_item <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	5856	5969	
==>ndle to redirect STDOUT to
    STDERR    filehandle to redirect STDERR to
    CD        directory to run the comma <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	24153	24265	
==>scalar @args;
	#
	# that's wrong, works only for all or none named arguments
	#
	for ($i = 0; $i < $nk; $i+=2,) { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13674	13869	
==>"CODE" => 18,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 231 \"src/ops/core.ops\"\n  opcode_t * loc;\n  stac <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	13567	13686	
==>Adding \"", $token->text, "\" to para-content.\n";
        $para_text_content .= $token->text;
        # and keep lookin <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5368	5468	
==>rstatus=0;
	$$nberror=0;
	($$token,$$value)=(undef,undef);
	@$stack=( [ 0, undef ] );
	$$check='' <==
3	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	139	238	
==>coke  $

=head1 NAME

examples/benchmarks/stress1.pl - GC stress-testing

=head1 SYNOPSIS

    % tim <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5110	5206	
==>rstatus=0;
	$$nberror=0;
	($$token,$$value)=(undef,undef);
	@$stack=( [ 0, undef ] );
	$$check='' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496954	497211	
==>th.ops\"\n  {{\@1}} = floatval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497824	498081	
==>th.ops\"\n  {{\@1}} = floatval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498694	498951	
==>th.ops\"\n  {{\@1}} = floatval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21356	21467	
==>l"]);
  $self->_restore($temp);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21741	21852	
==>l"]);
  $self->_restore($temp);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22126	22237	
==>l"]);
  $self->_restore($temp);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	329112	329350	
==>E" => "inline",
                  "CODE" => 386,
                  "ARGS" => [
                              "n",
                              "p"
                            ],
                  "BODY" => "#line 164 \"src/ops/dotgnu.ops\ <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	985	1093	
==>ecimal:
  if($in =~ m/^(0[0-7]*)$/s ) {
    $in = oct $in;
  } elsif($in =~ m/^0x([0-9a-fA-F]+)$/s ) {
    $i <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2344	2452	
==>ecimal:
  if($in =~ m/^(0[0-7]*)$/s ) {
    $in = oct $in;
  } elsif($in =~ m/^0x([0-9a-fA-F]+)$/s ) {
    $i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	8266	8367	
==>debug >= $level;

  my $message = $format ? sprintf($format, @args) : '<no message>';

  printf STDERR <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	92	186	
==>-27 19:58:02 MDT"
package Pod::Escapes;
require Exporter;
@ISA = ('Exporter');
$VERSION = '1.03 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056888	1057185	
==>find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 118 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057780	1058077	
==>find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 118 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058672	1058969	
==>find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 118 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576656	576959	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subclass",
                  "FLAGS" => ":object_b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595405	595708	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subclass",
                  "FLAGS" => ":object_b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596297	596600	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subclass",
                  "FLAGS" => ":object_b <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	3509	3614	
==>ader file with the specified name.

=cut

sub c_header_file_with_name
{
    my $self = shift;
    my $name <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361660	361756	
==>{{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, INTVAL_FMT, {{\@2}});\n    PIO_p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362559	362655	
==>{{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, INTVAL_FMT, {{\@2}});\n    PIO_p <==
3	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	911	1032	
==>x;
my $verbatim_end   = qr{ ^=cut }smx;

sub get_formatted {
    my ($self) = shift;

    my $level    = 0;
    my $verbat <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	8840	8938	
==>ringify.
    $self->_unoverload(\$name);

    $self->diag(<<ERR) if defined $name and $name =~ /^[\ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	5825	5920	
==>IVED CLASS
  my($self, $text) = @_;
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104337	104602	
==>P" => 0,
                  "NAME" => "n_bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	9858	9993	
==>body = $op->body;
        # retranslate VTABLE_macro to the expanded form
        $opbody =~ s/
            \bVTABLE_(\w+)
            \ <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	1401	1503	
==>ol name.

=item C<--t>

Append the short BSD-style type to the symbol name.

    B - uninitialised data <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	24572	24694	
==>ack;
    my $args = join ', ', @args;
    my $t;
    $func = $tos->[1];
    # create argument tuple
    if ($builtins{$name <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600223	600323	
==>l_exception(interpreter, next, NO_CLASS, \n         \"Class '%Ss' doesn't exist\", name);\n  }\n  els <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601299	601399	
==>l_exception(interpreter, next, NO_CLASS, \n         \"Class '%Ss' doesn't exist\", name);\n  }\n  els <==
3	/Users/nnunley/parrot/config/auto/cgoto.pm	520	623	
==>iparrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) <==
3	/Users/nnunley/parrot/config/auto/headers.pm	455	558	
==>iparrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) <==
3	/Users/nnunley/parrot/config/gen/cpu.pm	518	621	
==>iparrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	46247	46363	
==>t if $attrname =~ m/::/; # a hack
    *{caller() . '::' . $attrname} = sub {
      use strict;
      $Carp::CarpLevel <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	12398	12511	
==>if op1 >= 0 goto pos_loop
    iter = 4 # ITERATE_FROM_END

neg_loop:
    if op1 == 0 goto done
    unless iter got <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947029	947118	
==>\"src/ops/string.ops\"\n  INTVAL n = Parrot_charset_number(interpreter, {{\@2}});\n  if (n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947931	948020	
==>\"src/ops/string.ops\"\n  INTVAL n = Parrot_charset_number(interpreter, {{\@2}});\n  if (n <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1102	1205	
==>R';
# Get current stack types array size.
${ITEMP0} = elements ${STYPES}
PIR

	# Do code for each pop. N <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2812	2915	
==>R';
# Get current stack types array size.
${ITEMP0} = elements ${STYPES}
PIR

	# Do code for each pop. N <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	19832	19924	
==>ef =~ /$ldel1[^\\$ldel1]*(\\.[^\\$ldel1]*)*$ldel1/gcs
		|| do { pos $$textref = $startpos; re <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41142	41249	
==>_bit {  # for use only by the routine above
  my($self, $name) = splice @_,0,2;

  my $scratch;
  $self->_ha <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	5716	5816	
==>) {
    print "WARNING: Switching percentage to time - not enough executables\n";
    $cfg{use_times} <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62839	62963	
==>leftop: $name $2 $name>(s?) ");

						pos $grammar = $pos;
					}
					else
					{
						$item = new Parse::RecDescent::Repe <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4903	5020	
==>ts{$name} = [$expl, $body, $out];
    }

    return %tests;
}

##
## $string = format_tests(%tests)
##
## Create the s <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	1051	1149	
==>,
		$self->new_group('Documentation', '', 
            $self->new_item('', 'lib/Parrot/Docs/Item.pm <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	13228	13353	
==>losing parentheses and add a space around the argument,
        # like so:
        #
        #    goto OFFSET(( (void*)interpr <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	25303	25405	
==>rom strings.


=head1 SYNOPSIS

 use Text::Balanced qw (
			extract_delimited
			extract_bracketed
			e <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3886	3983	
==>losing
parentheses and add a space around the argument, like so:

    goto OFFSET(( (void*)interpr <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44164	44329	
==>197
		ACTIONS => {
			'END' => 207
		}
	},
	{#State 198
		DEFAULT => -102
	},
	{#State 199
		DEFAULT => -99
	},
	{#State 200
		DEFAULT => -98
	},
	{#Sta <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	6464	6577	
==>hings fail early if
# you get too close to the end of the string.
#
# Args:
#  t - The Tree op being visited
#  gu <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	240	342	
==>te;
use Regex::CodeGen::IMCC;

use strict;

# Class method to get a global state object
use vars qw($GL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	532826	533081	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ln",
                  "FLAGS" => ":base_math",
                  "ARGDIRS <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	981	1090	
==>($self, $fh, $subname, $rule, $ctx, $instructions) = @_;

    if ($subname) {
        print $fh <<"END";
sub $ <==
3	/Users/nnunley/parrot/config/auto/jit.pm	2054	2148	
==>apable) = (0, 0);

    print(qq{-e "$jitbase/$cpuarch/core.jit" = }, -e "$jitbase/$cpuarch/core <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6807	7024	
==>}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE|PARROT_JU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10327	10544	
==>}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE|PARROT_JU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63916	64133	
==>}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE|PARROT_JU <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	17751	17858	
==>,  # \\cf1
  "\cc" => "}",
);
1;

__END__

=head1 NAME

Pod::Simple::RTF -- format Pod as RTF

=head1 SYNOPS <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	82	182	
==>4218Z bernhard  $

package Parrot::Test::M4::PIR;

use strict;
use warnings;
use 5.006;

use base 'Pa <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13455	13546	
==><autoscore/
		))
	{
		Parse::RecDescent::_warn(1,"Optimizing away production: [". $_[0]->des <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	2215	2359	
==>vel]
    examples/sdl/raw_pixels.pir                     [devel]
    languages/t/harness                             []
    runtime/parrot/dynext <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149124	149211	
==>"BODY" => "#line 105 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150065	150152	
==>"BODY" => "#line 105 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048742	1049116	
==>=> "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1172,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51760	51858	
==>set_trace(interpreter,   {{\@1}}); }\n  else         { Parrot_clear_trace(interpreter, PARROT_ALL_T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52543	52641	
==>set_trace(interpreter,   {{\@1}}); }\n  else         { Parrot_clear_trace(interpreter, PARROT_ALL_T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447856	448110	
==>{{\@1}} = (INTVAL){{\@2}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55512	55649	
==>"ic"
                            ],
                  "BODY" => "#line 864 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo(interpreter, {{\@2 <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	3838	3925	
==>oreach my $cur_op (@$Parrot::OpLib::core::ops) {
	if($cur_op->full_name eq 'enternative' <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	15102	15218	
==>t = new rusage;

        # $t->ru_utime and $t->ru_stime are objects of type timeval.
        # set $t->ru_utime to 1 <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	14	110	
==>Create Kate syntax highlighting XML file for IMCC
# Language:	Parrot IMCC
# Maintainer:	Andy Buss <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2051	2145	
==>C<write_all_files()>

Writes C and header files for all the PMCs in the library,
I<or> E<lt>lib <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	1065	1164	
==>nd of the argument list.  Valid reasons include C<bug>,
C<unimplemented>, and so on.

B<Note:> you I <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	3969	4060	
==>t Intermediate Representation and generate Parrot Assembler Code.
Pass if the generated PASM <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	4152	4243	
==>t Intermediate Representation and generate Parrot Assembler Code.
Pass if the generated PASM <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	2972	3095	
==>= shift || die "No source\n";
    my $target = shift || die "No target\n";
    my $silent = shift || 0;
    my $index_html = <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	2420	2543	
==>= shift || die "No source\n";
    my $target = shift || die "No target\n";
    my $silent = shift || 0;
    my $index_html = <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2576	2696	
==>= shift || die "No source\n";
    my $target = shift || die "No target\n";
    my $silent = shift || 0;
	my $index_html = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1635	1729	
==>unless UNIVERSAL::isa($type, "Jako::Construct::Type");

  my $type_name = $type->name;

  $self <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1483	1577	
==>unless UNIVERSAL::isa($type, "Jako::Construct::Type");

  my $type_name = $type->name;

  $self <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	2504	2595	
==>boolean values indicating
whether each argument direction was prefixed by 'C<label>'.

C<$fl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423316	423606	
==>],
                  "TYPE" => "function",
                  "CODE" => 486,
                  "ARGS" => [
                              "i",
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 567 \"src/ops/i <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	3801	3934	
==>cript',
        var     => '__read',
    );
    
    # add code to get subs for needed conversions
    my $code = "  # get necessary c <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2132	2229	
==>e('ast'),
        $self->directory_with_name('compilers')->directory_with_name('imcc'),
        $s <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2121	2217	
==>figuration file',
	'scheme' => 'Scheme code',
	'sh' => 'Shell script',
	'spec' => 'RPM build spec <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6100	6194	
==>f->require_type);

      $self->INTERNAL_ERROR("Could not determine type.") unless defined $typ <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1776	1902	
==>{
    my $self = shift;
    my $path = shift;
    
    return unless defined $path and ! -f $path;
    
    return $self->SUPER <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2766	2874	
==>YYAccept {
	my($self)=shift;

	${$$self{CHECK}}='ACCEPT';
    undef;
}

sub YYError {
	my($self)=shif <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2638	2738	
==>YYAccept {
	my($self)=shift;

	${$$self{CHECK}}='ACCEPT';
    undef;
}

sub YYError {
	my($self)=shif <==
3	/Users/nnunley/parrot/config/init/hints/vms.pm	354	492	
==>=> "MCR $^X",
        exe     => "exe"
    );

    {
        local $^W;    # no warnings on redefinition

        *Parrot::Configure::Step: <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21344	21476	
==>nstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 66
		ACTIONS => {
			'NAME' => 120
		}
	},
	{#State 6 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	235	338	
==>oke  $
#

use strict;
eval "use warnings";

package Jako::Parser;

use Carp;

use base qw(Jako::Processo <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	15665	15790	
==>xtra{todo}, $call_pkg ) if ( keys %extra );
            local *{ $call_pkg . '::TODO' } = \$extra{todo}
                if def <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	18216	18341	
==>xtra{todo}, $call_pkg ) if ( keys %extra );
            local *{ $call_pkg . '::TODO' } = \$extra{todo}
                if def <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	352	464	
==>lf = bless \%options, $class;
    $self->init();

    return $self;
}

sub init {
}

sub output_header {
}

sub o <==
3	/Users/nnunley/parrot/config/auto/m4.pm	841	944	
==>ing 'm4 --version' hangs under FreeBSD
    my %m4_hangs = (freebsd => 1);

    if ($m4_hangs{$osname}) { <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	73044	73141	
==>parser, $text; $linenum, @args)
{
	croak "Could not find method: $AUTOLOAD\n" unless ref $_[0];
	m <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	171	259	
==>artToken;
use Pod::Simple::PullParserEndToken;
use Pod::Simple::PullParserTextToken;

BEG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104146	1104251	
==>s);\n\t{{\@1}} = pmc_new_init(interpreter, type, {{\@3}});\n\t{{+=4}};\n",
                  "experimental <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105361	1105466	
==>s);\n\t{{\@1}} = pmc_new_init(interpreter, type, {{\@3}});\n\t{{+=4}};\n",
                  "experimental <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	16794	16897	
==>}

=item C<ops()>

Returns the C<Parrot::Op> instances found in the file(s).

=cut

sub ops
{
    my ($s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	136	224	
==>s the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Declaration/ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	131	219	
==>s the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Declaration/ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	136	224	
==>s the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Declaration/ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	7650	7754	
==>xpected_Tests};
    return('no_plan') if $self->{No_Plan};
    return(undef);
};


=item B<skip_all>

  $ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	46909	47008	
==>t,
including fore and aft delimiters),

=item [1]

" || die;\nexit;" (i.e. the remainder of the inpu <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2532	2614	
==>es/mops/mops.ps>,
F<examples/mops/mops.py>,
F<examples/mops/mops.rb>,
F<examples/mo <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	2532	2614	
==>es/mops/mops.ps>,
F<examples/mops/mops.py>,
F<examples/mops/mops.rb>,
F<examples/mo <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	14708	14859	
==>@temp;
        for my $i (0..$#$args) {
            if ($args->[$i] =~ /^\((.+)\*\)&(.+)$/) {
                $temp[$i] = [ $1, $2 ];
                $a <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	11804	11927	
==>l('undo_charclass');
    my $next = $self->genlabel('after_charclass');

    push @ops, (
                         $self->db <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	11092	11214	
==>{ color: #050; }
    .tests_failed   { color: #500; }
    .tests_todo     { color: #030; }
    .tests_skipped  { color: #55 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	5843	5939	
==>cursively until a matching symbol is found or the root block is
encountered without a match (in w <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10743	10833	
==>${STEMP0}

# Next parameter.
dec stack_depth
goto pre_call_PLOOP_${CURIC}
PRE_CALL_PLOOP_EN <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7996	8086	
==>${STEMP0}

# Next parameter.
dec stack_depth
goto pre_call_PLOOP_${CURIC}
PRE_CALL_PLOOP_EN <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6483	6591	
==>c i
    j = P_arg_0[i]
    ${ITEMP0} = ${NEXTPC} + j
    prop_type_state[${ITEMP0}] = ${STYPES}
    prop_stac <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4421	4529	
==>c i
    j = P_arg_0[i]
    ${ITEMP0} = ${NEXTPC} + j
    prop_type_state[${ITEMP0}] = ${STYPES}
    prop_stac <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3238	3334	
==>{$code{$seg}->{code}}, "\tne \$I0, $vars, INPUT_$inputcounts  # Re-prompt\n";
	}

	$loop=0;
	barf <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	2651	2749	
==>l API that takes care of synchronization, data
as such is not a good API unless it's constant).

Th <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299095	299515	
==>> "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 348,
                  "ARGS" => [
                              "i",
                              "n",
                              "n"
                            ], <==
3	/Users/nnunley/parrot/config/init/hints.pm	391	480	
==>rot::Configure::Step::Base);

use Parrot::Configure::Step;

$description = 'Loading platfo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113889	114162	
==>\@1}} <<= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114628	114901	
==>\@1}} <<= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1853	1946	
==>ft, 'Jako::Construct::Expression::Value::Identifier')) {
    my $left_sym = $block->find_symbo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1811	1904	
==>ft, 'Jako::Construct::Expression::Value::Identifier')) {
    my $left_sym = $block->find_symbo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1733	1826	
==>ft, 'Jako::Construct::Expression::Value::Identifier')) {
    my $left_sym = $block->find_symbo <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1592	1707	
==>OTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as they may contain spaces.
    $PATHQUOTE = '"';

    un <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1596	1711	
==>OTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as they may contain spaces.
    $PATHQUOTE = '"';

    un <==
3	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	236	341	
==>xamples/benchmarks/stress2.pl

=head1 DESCRIPTION

Creates 200 arrays of 10000 elements each.

=cut

forea <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	7012	7112	
==>y ($src_stem, $dest_stem) = @_;

    $dest_stem ||= $src_stem;
    if (needs_build("$dest_stem$O", "$ <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5306	5406	
==>y ($src_stem, $dest_stem) = @_;

    $dest_stem ||= $src_stem;
    if (needs_build("$dest_stem$O", "$ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7223	7323	
==>y ($src_stem, $dest_stem) = @_;

    $dest_stem ||= $src_stem;
    if (needs_build("$dest_stem$O", "$ <==
3	/Users/nnunley/parrot/examples/benchmarks/oo5.pl	114	233	
==>, "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift;
    return bless [ 10, 20 ], $self;
}

su <==
3	/Users/nnunley/parrot/examples/benchmarks/oo6.pl	106	225	
==>, "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift;
    return bless [ 10, 20 ], $self;
}

su <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	749	840	
==>truct::Block::Loop::While;

use Jako::Construct::Declaration::Constant;
use Jako::Construct: <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	590	691	
==>.out',$count);
    my $parrotdir = dirname $self->{parrot};

    my $args = $ENV{TEST_PROG_ARGS} || '' <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	627	728	
==>.out',$count);
    my $parrotdir = dirname $self->{parrot};

    my $args = $ENV{TEST_PROG_ARGS} || '' <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13438	13529	
==>escribe||"") =~ /<autoscore/
		))
	{
		Parse::RecDescent::_warn(1,"Optimizing away productio <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44745	44884	
==>OTOS => {
			'block' => 209,
			'chunk' => 57
		}
	},
	{#State 205
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	16723	16829	
==>tback) = @_;

    my $try = $self->genlabel('dalt_try');
    my $fail = $self->genlabel('dalt_fail');
    m <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	1393	1486	
==>_code($srm, $_, $metavars);
}

# Generate final translator code.
$pir .= generate_final_pir($s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926698	927003	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928168	928473	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929638	929943	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringin <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	3501	3642	
==>$self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = find_le <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	10670	10808	
==>shift;

    my $signature_re = qr{
    ^
    (?:                 #blank spaces and comments and spurious semicolons
      [;\n\s]*
      (? <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	10352	10467	
==>ompiler errors
        my $arg_types  = "{ " . join(", ", scalar $op->arg_types
            ? map { sprintf("PARROT_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474023	474173	
==>"
                            ],
                  "BODY" => "#line 403 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    rea <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475014	475164	
==>"
                            ],
                  "BODY" => "#line 403 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    rea <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476005	476155	
==>"
                            ],
                  "BODY" => "#line 403 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    rea <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	623	714	
==>ref($dest) . ") is not Identifier!") unless UNIVERSAL::isa($dest, 'Jako::Construct::Expressi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	614	705	
==>ref($dest) . ") is not Identifier!") unless UNIVERSAL::isa($dest, 'Jako::Construct::Expressi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	503	594	
==>ref($dest) . ") is not Identifier!") unless UNIVERSAL::isa($dest, 'Jako::Construct::Expressi <==
3	/Users/nnunley/parrot/config/auto/jit.pm	5753	5913	
==>rch,
            jitosname   => $osname,
            jitcapable  => 0,
            execcapable => 0,
            cc_hasjit   => '',
            TEMP_jit_o  => '' <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1289	1391	
==>) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
dec ${ITEMP0}
${PTEMP0} = ${STYPES}[$ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2999	3101	
==>) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
dec ${ITEMP0}
${PTEMP0} = ${STYPES}[$ <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	7016	7110	
==>(disable: 4305)
#endif

/*
 *define default jit_funcs, if architecture doesn't have these optim <==
3	/Users/nnunley/parrot/Configure.pl	7748	7841	
==>eaders without /unicode
   --icushared=(flags)  Full linker command to create shared libraries <==
3	/Users/nnunley/parrot/config/gen/icu.pm	3826	3919	
==>eaders without /unicode
   --icushared=(flags)  Full linker command to create shared libraries <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	5636	5736	
==>goto NEXT()> line to the code to represent
the auto-computed return value. See the note on op types a <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6185	6275	
==>I_arg_0 # XXX Can't use ${ARG0} :-(
prop_type_state[${ITEMP0}] = ${STYPES}
prop_stack_depth <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4123	4213	
==>I_arg_0 # XXX Can't use ${ARG0} :-(
prop_type_state[${ITEMP0}] = ${STYPES}
prop_stack_depth <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	3335	3450	
==>my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = find_global \"$op->{arg1}\"\n <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1808	1921	
==>";
}

# Extra subroutines required for the mapper.
sub subs() {
	# No extra subs.
	return "";
}

# Label generatio <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	848	961	
==>";
}

# Extra subroutines required for the mapper.
sub subs() {
	# No extra subs.
	return "";
}

# Label generatio <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	605	718	
==>";
}

# Extra subroutines required for the mapper.
sub subs() {
	# No extra subs.
	return "";
}

# Label generatio <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560322	560542	
==>"CODE" => 641,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 152 \"src/ops/object.ops\"\n  opcode_t *d <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557751	557847	
==>ject.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next = {{^+3}};\n  STRING <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559135	559231	
==>ject.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next = {{^+3}};\n  STRING <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	6409	6551	
==>en/makefiles/punie.in' => 'languages/punie/Makefile',
        commentType                     => '#',
        replace_slashes                 = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408276	408369	
==>ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_connect(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409175	409268	
==>ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_connect(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	4416	4559	
==>m $source"
        );

        if ($options{commentType} eq '#') {
            foreach my $line (@comment) {
                $line = "# $line\n" <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	29951	30071	
==>h @stack, $v;
    push @stack, $x;
    push @stack, $w;
}

sub ROT_TWO
{
    my ($n, $c, $cmt) = @_;
    print "\t\t$cmt\ <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	1878	1981	
==>item t

Paramter is a char *, presumably a C string

Taken from an S register

=item v

Void. Only valid <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	8239	8349	
==>le], ['class']);
    $Dumper->Indent(3);
    print $vtd $Dumper->Dump();
    close $vtd;
}

=head2 my ($balance <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	4606	4707	
==>nt, every basic block but the first begins with a
    # labelled statement. Next, do a reachability an <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3169	3269	
==>ur_opcode[%ld]",
    'nc' => "CONST(%ld)->u.number",
    'pc' => "CONST(%ld)->u.key",
    'sc' => "CO <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2081	2178	
==>ur_opcode[%ld]",
  'nc'  => "CONST(%ld)->u.number",
  'pc'  => "CONST(%ld)->u.key",
  'sc'  => "CO <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	46713	46853	
==>. . . . . . . . . . . . . . . . . . . .
# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
#====================== <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	46761	46876	
==>. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
#============================================= <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	46807	46899	
==>. . . . . . . . . . . .
#==================================================================== <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	9116	9212	
==>back { my ($op) = @_; $op->{args}->[1]->hasback() }
sub dfa_safe { my ($op) = @_; $op->{args}->[1 <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	381	473	
==>pt, $DEFVAR, $cur_func, $lambda_count,
   %main_names, %namespace, %may_be_none);
$DIS = 'pyt <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5401	5608	
==>"BODY" => "#line 140 \"src/ops/core.ops\"\n  {{+=2}};  /* reserve 1 entries */\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1652	1746	
==>:isa($type, "Jako::Construct::Type");

  my $type_name = $type->name;

  $self->INTERNAL_ERROR( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1500	1594	
==>:isa($type, "Jako::Construct::Type");

  my $type_name = $type->name;

  $self->INTERNAL_ERROR( <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1477	1597	
==>rn $self;
    }

    $prog = check_progs(['flex', 'lex'], $verbose);

    unless ($prog) {

        # fall back to defaul <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	7450	7548	
==>k_cmd("$group$LOAD_EXT", $libs, \@sources))
          or die "partial link $group$LOAD_EXT failed ( <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7661	7759	
==>k_cmd("$group$LOAD_EXT", $libs, \@sources))
          or die "partial link $group$LOAD_EXT failed ( <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	2724	2848	
==>mature end of bytecode in argument.\n"
                if ($offset + sizeof('op')) > $length;
            my $arg = unpack "x <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	823	931	
==>pt1 = Regex::TreeOptimize->new();
        $tree = $opt1->optimize_tree($tree, $ctx);
    }

    my $rewrite = <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	11742	11841	
==>1>

  <p>
    Here's a list of recently submitted <a
    href="http://www.parrotcode.org/">Parrot</a <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2925	3073	
==>onal test harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # test r <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4322	4470	
==>onal test harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # test r <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	17055	17179	
==>b _cmp_diag {
    my($self, $got, $type, $expect) = @_;
    
    $got    = defined $got    ? "'$got'"    : 'undef';
    $expe <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	44690	44794	
==>tting and the previous line be exactly the same length,
    # with $formatting having a " " as the last c <==
3	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	719	804	
==>ss.pasm>, 
F<examples/benchmarks/stress.pl>, 
F<examples/benchmarks/stress1.pasm>, 
F< <==
3	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	566	651	
==>ss.pasm>, 
F<examples/benchmarks/stress.pl>, 
F<examples/benchmarks/stress1.pasm>, 
F< <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9336	9469	
==>_tmp] INT: \%<$reg>$desc\n"),
                );
    } else {
        return ("$reg = pop \@<rx_stack>; # popint");
    }
}

sub outpu <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	54789	54924	
==>}
	],
	[#Rule 71
		 'exp', 3,
sub
#line 393 "Lua\lua51.yp"
{
            BuildLogop( $_[0], $_[1], $_[2], $_[3] );
        }
	] <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1975	2071	
==>ndent'} }

sub   end_over_bullet  { --$_[0]{'Indent'} }
sub   end_over_number  { --$_[0]{'Indent' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1543	1639	
==>ndent'} }

sub   end_over_bullet  { --$_[0]{'Indent'} }
sub   end_over_number  { --$_[0]{'Indent' <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	17210	17328	
==>ct'" : 'undef';
    return $self->diag(sprintf <<DIAGNOSTIC, $got, $type, $expect);
    %s
        %s
    %s
DIAGNOSTIC <==
3	/Users/nnunley/parrot/config/gen/icu.pm	222	323	
==>ts to the Makefile.

=cut

package gen::icu;

use strict;
use vars qw($description @args);

use base q <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	40811	40910	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      $para->[0] =~ s/^[~=]//s;

      DEBUG and print <==
3	/Users/nnunley/parrot/lib/Test/More.pm	33587	33693	
==>with.

=cut

sub builder {
    return Test::Builder->new;
}

=back


=head1 EXIT CODES

If all your tests p <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9898	9993	
==>$$states[$$stack[-1][0]]{ACTIONS})
			        or  not exists($$states[$$stack[-1][0]]{ACTIONS}{ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9452	9546	
==>$$states[$$stack[-1][0]]{ACTIONS})
			        or  not exists($$states[$$stack[-1][0]]{ACTIONS}{ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	5551	5671	
==>r, 'pmc', 'table' );
    push @opcodes1, new LocalDir( $parser, 
        'result' => $result,
    );
    push @opcode <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1690	1795	
==>t := pos');
}

sub output_increment {
    my ($self, $distance, $failLabel) = @_;
    die "invalid distanc <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1443	1548	
==>t := pos');
}

sub output_increment {
    my ($self, $distance, $failLabel) = @_;
    die "invalid distanc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1096827	1096936	
==>_elements(interpreter, ns) < 2)\n    {\n        real_exception(interpreter, NULL, NO_CLASS, \n            \"At <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	3095	3189	
==>class is defined, methods from F<default.pmc> are used.

=item C<abstract>

This class cannot b <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1264	1399	
==>{
    my $class = shift;

    my $self = {
        steps   => [],
        data    => Parrot::Configure::Data->new,
        options => Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630624	630716	
==>Ss' not found\", readable_name(interpreter, class));\n    {{\@1}} = pmc_new(interpreter, type <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631614	631706	
==>Ss' not found\", readable_name(interpreter, class));\n    {{\@1}} = pmc_new(interpreter, type <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21984	22078	
==>elf->require_open_paren;

        $left  = Jako::Construct::Expression::Value->new($block, $sel <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22917	23011	
==>elf->require_open_paren;

        $left  = Jako::Construct::Expression::Value->new($block, $sel <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24564	24657	
==>elf->require_open_paren;
        $left  = Jako::Construct::Expression::Value->new($block, $sel <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2393	2504	
==>hift;

		exists($$self{USER})
	or	$$self{USER}={};

	$$self{USER};
	
}

sub YYErrok {
	my($self)=shift <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2300	2401	
==>hift;

		exists($$self{USER})
	or	$$self{USER}={};

	$$self{USER};
	
}

sub YYErrok {
	my($self)=shift <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	29304	29402	
==>alue of the "content-implicit" flag.
# First:
# The link-text. If there is none, this must be undef <==
3	/Users/nnunley/parrot/config/init/defaults.pm	3687	3798	
==>executable output file (different on Win32)
        cc_exe_out => '-o ',

        # prefix for ldflags (necessar <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672944	673055	
==>c.ops\"\n    {{\@1}} = {{\@2}}->vtable->pop_integer(interpreter, {{\@2}});\n    {{+=3}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035576	1035664	
==>= NULL;\n\n    if (!PMC_IS_NULL(lex_pad))\n\tresult = VTABLE_get_pmc_keyed_str(interprete <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036740	1036828	
==>= NULL;\n\n    if (!PMC_IS_NULL(lex_pad))\n\tresult = VTABLE_get_pmc_keyed_str(interprete <==
3	/Users/nnunley/parrot/tools/build/vtable_extend.pl	261	368	
==>is file is generated automatically from 'vtable.tbl' by
** tools/build/vtable_extend.pl
*/
EOH

open OUT, "> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48166	48496	
==>",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 62,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" = <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	852	960	
==>" : "\\x{%X}", ord($1))
    /eg;
  }
  return join ', ', @out;
}


__END__

=head1 NAME

Pod::Simple::PullPar <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	7686	7783	
==>d in any copies of any part of this
documentation and/or software.

=back

This copyright does not <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49764	50094	
==>",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 64,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" = <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	24199	24314	
==>};
}

sub failure_output {
    my($self, $fh) = @_;

    if( defined $fh ) {
        $self->{Fail_FH} = _new_fh($fh) <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11355	11453	
==>N_${CURIC}:

# Finished.
goto PRE_CALL_END_${CURIC}

# It's a return. See if we have a return value <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8541	8639	
==>N_${CURIC}:

# Finished.
goto PRE_CALL_END_${CURIC}

# It's a return. See if we have a return value <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27101	27241	
==>f ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $l_break;
            } <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27782	27922	
==>f ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $l_break;
            } <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	13957	14057	
==>", @{$extra_preamble_ref});
    my $extra_postamble = join("\n    ", @{$extra_postamble_ref});
    my <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	3981	4120	
==>generated.

=cut

sub is_generated
{
    my $self = shift;
    
    # CFLAGS
    # libparrot.def
    # Makefile
    # myconfig
    
    # in <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	243	334	
==>s.pl

=head1 DESCRIPTION

A Perl implementation of the F<examples/mops/mops.pasm> example pr <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	239	330	
==>s.pl

=head1 DESCRIPTION

A Perl implementation of the F<examples/mops/mops.pasm> example pr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22041	22137	
==>t::Expression::Value->new($block, $self->require_value);
        $op    = $self->require_infix_re <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22974	23070	
==>t::Expression::Value->new($block, $self->require_value);
        $op    = $self->require_infix_re <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24620	24716	
==>t::Expression::Value->new($block, $self->require_value);
        $op    = $self->require_infix_re <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3396	3487	
==><Pod::PXML>, L<Pod::XML>, L<Pod::SAX>


=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3048	3139	
==><Pod::PXML>, L<Pod::XML>, L<Pod::SAX>


=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9513	9638	
==>iscard it
		and	do {
				$$token eq ''	# End of input: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	print STDER <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9085	9205	
==>iscard it
		and	do {
				$$token eq ''	# End of input: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	print STDER <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041762	1042033	
==>on",
                  "CODE" => 1164,
                  "ARGS" => [
                              "sc",
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line 120 \"src/ops/var.ops\"\n    Pa <==
3	/Users/nnunley/parrot/config/auto/headers.pm	1847	1965	
==>that fails, try with all the
        # headers we found so far. This is somewhat a hack, but makes probing
        # wo <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	31067	31160	
==>must be present!) before the substring is extracted.
The final argument specifies the escape c <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	17812	17927	
==>';
    $self->_unoverload(\$why);

    unless( $self->{Have_Plan} ) {
        require Carp;
        Carp::croak("You <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6874	6967	
==>2, 8)
print left$(t$, 5)
print right$(t$, 5)
' instr
s1$="The longer string"
found$="longer"
b <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18603	18696	
==>2, 8)
print left$(t$, 5)
print right$(t$, 5)
' instr
s1$="The longer string"
found$="longer"
b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13186	13404	
==>\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14030	14248	
==>\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|P <==
3	/Users/nnunley/parrot/tools/dev/as2c.pl	435	557	
==>a $s.s
 * by '$0 $s'
 */

EOT
}
sub create_s {
    my $cmd = shift;
    my $r = system($cmd);
    if ($r) {
	die "$cmd fail <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	18696	18820	
==>e' => [ 'default', $_[1], 1 + $::paren ]);
     $::paren = 0; # FIXME!
     return $op;
   }
	],
	[#Rule 5
		 'regex', 2,
sub <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2453	2648	
==>sh                => '\\',
            blib_dir             => 'blib\\lib',
            ccflags              => $ccflags,
            ccwarn               => '',
            has_dynamic_linking  = <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4349	4544	
==>sh                => '\\',
            blib_dir             => 'blib\\lib',
            ccflags              => $ccflags,
            ccwarn               => '',
            has_dynamic_linking  = <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	26110	26290	
==>,
                        aop('goto', [ $next ]),
               $back => aop('popindex', [ $R_back ]),
                        @R_ops,
                        aop('pushmark', [ '?? <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	61191	61284	
==>odeblock> encountered
a closing bracket where none was expected.

=item  C<Unmatched opening b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48063	48195	
==>JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "bounds",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14593	14701	
==>print "  Returing title <$title>\n" }
    else { print "Returning title <>\n" }
  }
  
  return '' unless def <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	23158	23266	
==>print "  Returing title <$title>\n" }
    else { print "Returning title <>\n" }
  }
  
  return '' unless def <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	1146	1259	
==>:Test::per_test(
            $lua_test eq 'lua' ? '.orig_out' : '.parrot_out', $count );
        my $test_prog_a <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3634	3738	
==>ash)=@_;
	my($prm,$value);
	my($prmlst)={};

	while(($prm,$value)=splice(@$inarray,0,2)) {
        $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3446	3545	
==>ash)=@_;
	my($prm,$value);
	my($prmlst)={};

	while(($prm,$value)=splice(@$inarray,0,2)) {
        $ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5202	5338	
==>me platforms
        if ($^O eq 'hpux' or $^O eq 'cygwin') {
            chmod 0755, "$dest/$_$LOAD_EXT";
        }

    }
}
else {
    d <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5413	5549	
==>me platforms
        if ($^O eq 'hpux' or $^O eq 'cygwin') {
            chmod 0755, "$dest/$_$LOAD_EXT";
        }

    }
}
else {
    d <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/EditorPlugins.pm	365	457	
==>d editor plugins.

=head2 Class Methods

=over

=cut

package Parrot::Docs::Section::EditorPl <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	45639	45798	
==>LT => -21
	}
],
                                  yyrules  =>
[
	[#Rule 0
		 '$start', 2, undef
	],
	[#Rule 1
		 'program', 1,
sub
#line 46 "Lua\lua5 <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1631	1722	
==>? Parrot::Test::PGE::_generate_subrule_pir($target, $pattern)
        : Parrot::Test::PGE::_ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2154	2245	
==>? Parrot::Test::PGE::_generate_subrule_pir($target, $pattern)
        : Parrot::Test::PGE::_ <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2753	2852	
==>fo($file, 0, ".dev file not found for $file.");
}

# ignore any leading or trailing whitespace on th <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	915	1011	
==>fess "Op is not scalar!" if ref $op;
  confess "Right is not Value!" unless UNIVERSAL::isa($right <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	927	1023	
==>fess "Op is not scalar!" if ref $op;
  confess "Right is not Value!" unless UNIVERSAL::isa($right <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2711	2823	
==>t;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHECK}}='ACCEPT <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2589	2692	
==>t;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHECK}}='ACCEPT <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	37482	37577	
==>e closing
tag is constructed by inserting a C</> after any leading bracket
characters in the act <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	854	1058	
==>el]doc
    README.win32.pod                                [devel]doc
    RESPONSIBLE_PARTIES                             [main]doc
    TODO                                            [main]doc
    parrot- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	602	702	
==>fess "Token is not!" unless UNIVERSAL::isa($token, 'Jako::Token');

  return bless {
    BLOCK  => $b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22538	22851	
==>",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 30,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 409 \"s <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	2709	2834	
==>$I100
END_PIR

    $P0[unicode:"dyadic:\u2372"]  =  <<"END_PIR"            # nand
    $I100 = %1
    $I101 = %2
    $I100 = an <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	2527	2635	
==>{
  my $self = shift;
  DEBUG > 1 and print "\nget_token starting up on $self.\n";
  DEBUG > 2 and print " It <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243944	244034	
==>n  STRING* l = VTABLE_get_string(interpreter, {{\@2}});\n  {{\@1}} = string_compare(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244876	244966	
==>n  STRING* l = VTABLE_get_string(interpreter, {{\@2}});\n  {{\@1}} = string_compare(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57851	57943	
==>DY" => "#line 874 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo_s(interpreter, {{\@2}});\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58613	58705	
==>DY" => "#line 874 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo_s(interpreter, {{\@2}});\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2326	2418	
==>s;
}

=item C<p6rule_like($target, $pattern, $expected, $description, @todo)>

Runs the targe <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4561	4665	
==>se(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note that for loading debugging version of <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	41252	41354	
==>@{$self->{functions}}, $symbol
      unless grep { $_ eq $symbol} @{$self->{functions}};
  }

  my $ret <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4333	4431	
==>se(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note that for loading debugging version of <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	10916	11023	
==>my($self, $got, $expect, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $exp <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	11334	11441	
==>my($self, $got, $expect, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $exp <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	5802	5992	
==>*;\s*$/)
            {
                if (exists $self->{VERSION})
                {
                    #die "VERSION MULTIPLY DEFINED!";
                }

                $self->version($ <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	6091	6281	
==>*;\s*$/)
            {
                if (exists $self->{VERSION})
                {
                    #die "VERSION MULTIPLY DEFINED!";
                }

                $self->version($ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	1138	1227	
==>ation.pod'),
			$self->new_item('', 'docs/vtables.pod'),
			$self->new_item('', 'docs/mmd. <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45968	46066	
==>^\s]+)';

my $lines = 0;

sub _generate($$$;$$)
{
	my ($self, $grammar, $replace, $isimplicit, $isl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621787	621880	
==>FLAGS(ccont) &= ~SUB_FLAG_TAILCALL;\n\t    --ctx->recursion_depth;\n\t    ctx->caller_ctx = ca <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29623	29708	
==>FLAGS(ccont) &= ~SUB_FLAG_TAILCALL;\n\t--ctx->recursion_depth;\n\tctx->caller_ctx = ca <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	269742	270103	
==>FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 314,
                  "ARGS" => [
                              "i",
                              "p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122075	122169	
==>tegral to the equivalent unsigned.\n   */\n  LVALUE_CAST(UINTVAL, {{\@1}}) >>= {{\@2}};\n  {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122987	123081	
==>tegral to the equivalent unsigned.\n   */\n  LVALUE_CAST(UINTVAL, {{\@1}}) >>= {{\@2}};\n  {{+= <==
3	/Users/nnunley/parrot/lib/Test/More.pm	26885	27032	
==>dx (0..$#vals) {
        my $val = $vals[$idx];
        $vals[$idx] = !defined $val ? 'undef'          :
                      $val eq $DNE  ? "Does <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	4617	4724	
==>lf->_add_inst ('', 'set',[$return,$value]);
    }
    else { # assume its a symbol
      $self->_add_inst (' <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1205	1301	
==>quire` statements 
will find modules which are not located on Pugs's default
search path.

= LIMI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	372352	372451	
==>"BODY" => "#line 387 \"src/ops/io.ops\"\n  STRING ** const s = &{{\@1}};\n\n  *s = NULL;\n  PIO_peek <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8960	9064	
==>my $self = shift;
    my $path = shift || return;
    my ($volume, $directories, $name) = File::Spec->spl <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9359	9463	
==>my $self = shift;
    my $path = shift || return;
    my ($volume, $directories, $name) = File::Spec->spl <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	57626	57821	
==>e 488 "Lua\lua51.yp"
{
            [
                $_[1],
            ];
        }
	],
	[#Rule 94
		 'args', 1,
sub
#line 494 "Lua\lua51.yp"
{
            [
                BuildLit <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5821	5940	
==>shift;
    my @rel_paths = ();
    
    if ( $source->relative_path_is_directory($rel_path) )
    {
        my $dir = $s <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	47581	47680	
==>to parse source: {{\n$_[0]\n}}\n\n";
  
  
  my $parser = $class->new;
  $parser->hide_line_numbers( <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27341	27448	
==>Descent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;').'
		$lastsep = <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29451	29558	
==>Descent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;').'
		$lastsep = <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31548	31655	
==>Descent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;').'
		$lastsep = <==
3	/Users/nnunley/parrot/config/auto/msvc.pm	1162	1274	
==>ed $msvc{_MSC_VER}) {
        $self->set_result('no');
        $conf->data->set(msvcversion => undef);
        re <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9004	9116	
==>p>; # nope, set pos := popped index");
}

sub output_popint {
    my ($self, $reg, $db_desc) = @_;
    $reg = val <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9311	9422	
==>p> # nope, set pos := popped index");
}

sub output_popint {
    my ($self, $reg, $db_desc) = @_;
    $reg = val <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367859	368082	
==>preter, PIO_STDIN(interpreter), (size_t){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368651	368874	
==>preter, PIO_STDIN(interpreter), (size_t){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeDumb.pm	723	845	
==>nscoder {
  my($e) = $_[1];
  die "WHAT ENCODING!?!?" unless $e;
  my $x;
  return sub {;
    #foreach $x (@_) {
    #  if( <==
3	/Users/nnunley/parrot/languages/dotnet/tools/benchmark.pl	57	156	
==>m ('Stack', 'Register', 'OptRegister') {
	print "With SRM $srm\n";
	`nmake clean`;
	`perl Configu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6072	6264	
==>ore.ops\"\n    Parrot_load_bytecode(interpreter, {{\@1}});\n    {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6738	6930	
==>ore.ops\"\n    Parrot_load_bytecode(interpreter, {{\@1}});\n    {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29389	29505	
==>terminal: [' . $self->describe
					  . ']},
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31486	31602	
==>terminal: [' . $self->describe
					  . ']},
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27286	27395	
==>terminal: [' . $self->describe
					  . ']}, Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	1520	1625	
==>s file is generated automatically from '$infile'
 * by $0.
 *
 * Any changes made here will be lost!
 *
 * <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	3809	3914	
==>s file is generated automatically from '$infile'
 * by $0.
 *
 * Any changes made here will be lost!
 *
 * <==
3	/Users/nnunley/parrot/config/gen/revision.pm	213	309	
==>termines parrot's SVN revision.  In a release, there are no .svn directories,
so this field is em <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6358	6491	
==>rn $NOW - $ago;
    } else {
        return;
    }
}

sub needs_build {
    my ($target, @sources) = @_;

    my $target_mod = modtime <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4778	4911	
==>rn $NOW - $ago;
    } else {
        return;
    }
}

sub needs_build {
    my ($target, @sources) = @_;

    my $target_mod = modtime <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6569	6702	
==>rn $NOW - $ago;
    } else {
        return;
    }
}

sub needs_build {
    my ($target, @sources) = @_;

    my $target_mod = modtime <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	354	455	
==>n't change the type of an object
sub dump { Pod::Simple::pretty( [ @{ $_[0] } ] ) }

sub is_start { $_ <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	6530	6619	
==>lg32 -ladvapi32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid -lws2_32 -lmpr -lwinmm -lve <==
3	/Users/nnunley/parrot/config/init/hints/msys.pm	421	510	
==>lg32 -ladvapi32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid -lws2_32 -lmpr -lwinmm -lve <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	9671	9793	
==>using") {
		print "WARNING: PRINT USING not yet supported\n";
		feedme();	# "####"
		feedme();	# ;
	}
	while(1) {
		if ($ty <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1416	1524	
==>y C<goto_address()>.

=cut

sub expr_address
{
    my ($self, $addr) = @_;

    return $addr;
}

=item C<expr <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	1169	1263	
==>::_atom);
@Regex::Ops::Tree::seq::ISA          = qw(Regex::Ops::Tree);
@Regex::Ops::Tree::alter <==
3	/Users/nnunley/parrot/lib/Test/More.pm	25110	25223	
==>less [], 'Does::Not::Exist';
sub is_deeply {
    unless( @_ == 2 or @_ == 3 ) {
        my $msg = <<WARNING;
is_de <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2439	2535	
==>are the various types of files without suffix.

my %type_for_name = (
	'Artistic' => 'Licence fil <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819660	819755	
==>try) {\n    internal_exception(99, \"Stack Depth wrong\");\n  }\n  {{\@1}} = get_entry_type(inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820620	820715	
==>try) {\n    internal_exception(99, \"Stack Depth wrong\");\n  }\n  {{\@1}} = get_entry_type(inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796583	797004	
==>IRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 899,
                  "ARGS" => [
                              "p",
                              "k",
                              "n"
                            ],
                  "BODY" => " <==
3	/Users/nnunley/parrot/config/init/hints/cygwin.pm	315	424	
==>allation, so we get rid of it
    my $libs = $conf->data->get('libs');
    $libs =~ s/-lutil\b//g;

    my $bu <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	536	624	
==>::ConstTable;
use Parrot::OpsFile;
use Parrot::OpTrans::Compiled;
use Parrot::OpLib::core <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	36298	36416	
==>ng_second_level($para);

        next;  # and skip
      } elsif($para_type eq '~Verbatim') {
        $para->[0] = 'Ver <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	22088	22199	
==>er <mark@twoshortplanks.com>

=cut

sub diag {
    my($self, @msgs) = @_;
    return unless @msgs;

    # Preven <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	6126	6221	
==>nclude/parrot/oplib/ops.h";
my $inc_dir = "include/parrot/oplib";
if (! -d $inc_dir) {
    mkdir <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	969	1079	
==>p::Driver;

require 5.004;

use strict;

use vars qw ( $VERSION $COMPATIBLE $FILENAME );

$VERSION = '1 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	941	1043	
==>p::Driver;

require 5.004;

use strict;

use vars qw ( $VERSION $COMPATIBLE $FILENAME );

$VERSION = '1 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1064	1157	
==>>get_token on a L<Pod::Simple::PullParser> object, you might
get an object of this class.

Thi <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54641	54762	
==>PATMK)/gco
				and do { ($code) = extract_codeblock($grammar,'{',undef,'<');
					 $code;
				       } )
			{
				_parse(" <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	55117	55238	
==>PATMK)/gco
				and do { ($code) = extract_codeblock($grammar,'{',undef,'<');
					 $code;
				       } )
			{
				_parse(" <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	55717	55838	
==>PATMK)/gco
				and do { ($code) = extract_codeblock($grammar,'{',undef,'<');
					 $code;
				       } )
			{
				_parse(" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107459	1107751	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":object_c <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1934	2044	
==>\"");

    while (1) {
      last unless defined $string and
        $string =~ m/(^|^.*?[^\\])\$((([A-Za-z][A- <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	1496	1600	
==>FILE   !!!!!!!
 *
 * This file is generated automatically from '$infile'
 * by $0.
 *
 * Any changes made <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	3785	3889	
==>FILE   !!!!!!!
 *
 * This file is generated automatically from '$infile'
 * by $0.
 *
 * Any changes made <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351345	351638	
==>=> [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 409,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 190 \"src/ops/io <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	526	610	
==>ap = 'overflow';
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	360	444	
==>ap = 'overflow';
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4193	4309	
==>es) {
		foreach (@oplibs) {
			my $src = $_ . "_ops$core_suffix$LOAD_EXT";
	        copy($src, $dest)
			    or die " <==
3	/Users/nnunley/parrot/examples/benchmarks/freeze.pl	741	852	
==>f "  thaw time %.6f\n", $e-$s;

#$s = time();
#my $c = dclone \@a;
#$e = time();
#printf " clone time %.6f\n", $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143439	143611	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 84 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144367	144539	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 84 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145295	145467	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 84 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2 <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	8087	8196	
==>ch my $t (@_) {
    next unless defined $t and length $t;
    # TODO: enforce some limitations on what a targe <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	8606	8715	
==>ch my $t (@_) {
    next unless defined $t and length $t;
    # TODO: enforce some limitations on what a targe <==
3	/Users/nnunley/parrot/config/init/miniparrot.pm	713	821	
==>weaking settings for miniparrot';

@args = qw(miniparrot);

sub runstep
{
    my ($self, $conf) = @_;

    un <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	40212	40332	
==>-rules'        => \&_op_syntax_rules,
  'let-syntax'          => \&_op_let_syntax,
  'syntax'              => \&_op_synta <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12689	12799	
==>{$syms[CURR]}"};
	} else {
		push @args, qq{""};
	}
	feedme();
	push @{$code{$seg}->{code}}, "\t_RESTORE(" . jo <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11370	11465	
==>Finished.
goto PRE_CALL_END_${CURIC}

# It's a return. See if we have a return value.
PRE_CALL_R <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8556	8651	
==>Finished.
goto PRE_CALL_END_${CURIC}

# It's a return. See if we have a return value.
PRE_CALL_R <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7128	7223	
==>Finished.
goto PRE_CALL_END_${CURIC}

# It's a return. See if we have a return value.
PRE_CALL_R <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	43966	44082	
==>xA4" : "?";
        DEBUG > 1 and print "This Perl version can't handle ", 
          "E<$content> (chr $charnum), so <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10073	10187	
==>bug in C<Pod::Simple::HTML>.

=cut

sub do_pod_link 
{
    my $self = shift;
    my $link = shift;
    my $to = $li <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27033	27134	
==>'}, $rule->{'push'});
		$pir .= "### pre_op\n";
		$pir .= sub_meta($pre_op, $mv, "pre_op for rule $rul <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1594	1700	
==>ok = &{"Test::More::$meth"}( @_ );
        # if( $ok ) { foreach my $meth ( $lang_f, $pasm_f, $by_f, $out_f <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1510	1616	
==>ok = &{"Test::More::$meth"}( @_ );
        # if( $ok ) { foreach my $meth ( $lang_f, $pasm_f, $by_f, $out_f <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2653	2758	
==>al $code;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was fatal: $!", $expecte <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	1954	2066	
==>)
	if $regs{$type}->{$count};
    }
  }
}

sub _num_arg {
  my ($node, $expected, $name) = @_;

  my $args = scal <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6322	6408	
==>_switch_${CURIC}

POST_BRANCH_switch_${CURIC}:
i = elements P_arg_0
POST_BRANCH_switch_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4260	4346	
==>_switch_${CURIC}

POST_BRANCH_switch_${CURIC}:
i = elements P_arg_0
POST_BRANCH_switch_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	45507	45621	
==>not in ASCIIland, we can't assume that \xA0 == nbsp.)
       
       # Note that if you apply nbsp_for_S to text, a <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	922	1009	
==>t and not UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');
  co <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	950	1037	
==>t and not UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');
  co <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	48898	48987	
==>start_formatting_code and end_formatting_code methods, which in the
base class call start_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	431	525	
==>->is_tagname(@_) }

1;


__END__

=head1 NAME

Pod::Simple::PullParserEndToken -- end-tokens fr <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2494	2578	
==>l>,
F<examples/mops/mops.p6>,
F<examples/mops/mops.ps>,
F<examples/mops/mops.py>,
F<e <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	2494	2578	
==>l>,
F<examples/mops/mops.p6>,
F<examples/mops/mops.ps>,
F<examples/mops/mops.py>,
F<e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131359	131628	
==>ps\"\n  {{\@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132214	132483	
==>ps\"\n  {{\@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133069	133338	
==>ps\"\n  {{\@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	10802	10928	
==>}) {
        if (UNIVERSAL::isa($arg, 'Regex::Ops::Tree')) {
            $self->maptree($arg, $sub);
        }
    }
    return <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30778	30880	
==>$_savetext;' : '' ) .'
';

	return $code;
}

1;

package Parse::RecDescent::InterpLit;

sub sethashname <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110725	111050	
==>0,
                  "NAME" => "bors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111616	111941	
==>0,
                  "NAME" => "bors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112508	112833	
==>0,
                  "NAME" => "bors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2242	2388	
==>=~ /mswin32/i) {
        # Need to put various libraries in the link line.
        $liblist = join( ' ', map { "$_.lib" } keys %$libs );
        if <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2534	2680	
==>=~ /mswin32/i) {
        # Need to put various libraries in the link line.
        $liblist = join( ' ', map { "$_.lib" } keys %$libs );
        if <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2329	2475	
==>=~ /mswin32/i) {
        # Need to put various libraries in the link line.
        $liblist = join( ' ', map { "$_.lib" } keys %$libs );
        if <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319459	319737	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320228	320506	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320998	321276	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423115	423412	
==>GS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 486,
                  "AR <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	56124	56240	
==>"The <token:...> directive requires a list
					       of one or more strings representing possible
					       types <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	4279	4435	
==>m.Xml
        /;
#             System.Windows.Forms ### XXX Removed - bugz0r
        my $code = "";
        foreach (@libs) {
            $code .= "\t\$ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2221	2335	
==>$self->_DBParse()';#Do not create stab entry on compile
        $@ and die $@;
	}
	else {
		$retval = $self->_P <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2138	2248	
==>$self->_DBParse()';#Do not create stab entry on compile
        $@ and die $@;
	}
	else {
		$retval = $self->_P <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	1384	1518	
==>name, $args, %opts) = @_;

    $DB::single = 1 if ref $name;
    my $self = bless { name => $name,
                       args => $args <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826385	826475	
==>"#line 146 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827455	827545	
==>"#line 146 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpre <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	4343	4488	
==>xt;
                    
    if ( $text =~ /^Parrot::/o )
    {
        # TODO - C<Perl::Module> should really be L<Perl::Module>
        # but th <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490371	490621	
==>UMP" => 0,
                  "NAME" => "inc",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490992	491242	
==>UMP" => 0,
                  "NAME" => "inc",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  " <==
3	/Users/nnunley/parrot/lib/Test/More.pm	5052	5150	
==>lan);

    __PACKAGE__->_export_to_level(1, __PACKAGE__, @imports);
}


=head2 Test names

By conve <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	47056	47193	
==>treelet.  Full of scary tokenizing code.
  #  Like [ '~Top', {'start_line' => $start_line},
  #            "I like ",
  #            [ 'B' <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3596	3689	
==>y($mandatory,$checklist,$inarray,$outhash)=@_;
	my($prm,$value);
	my($prmlst)={};

	while( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3408	3497	
==>y($mandatory,$checklist,$inarray,$outhash)=@_;
	my($prm,$value);
	my($prmlst)={};

	while( <==
3	/Users/nnunley/parrot/tools/build/list_unjitted.pl	698	807	
==>it) = /^Parrot_(\S+)\s*\{\s*$/){
        push @jitted, $jit;
    }
}
close JIT or die "Noo.. $!";

my @not_jit <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	758	865	
==>alue);
  DEBUG and print "++ $_[1]\n";
  print $fh "<", $_[1];
  if($SORT_ATTRS) {
    foreach my $key (sort <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	14251	14344	
==>notated($op, "seq"), map { $_->reftree() } @{ $op->{args} } ];
}

sub Regex::Ops::Tree::altern <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	37863	37964	
==>sub PrepareMethod {
    my ($parser) = @_;
    $parser->YYData->{self} = BuildParam( $parser, 'self' <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37530	37621	
==>:RecDescent::lastexpected = ' . ($rule->hasleftmost($self) ? 'q{}'
				: 'q{'.$self->describ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39933	40024	
==>:RecDescent::lastexpected = ' . ($rule->hasleftmost($self) ? 'q{}'
				: 'q{'.$self->describ <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1108	1350	
==>I1
                              #
print "Estimated ops: $I5\n"; # print  "Estimated ops: "
                              # print  I5
                              # print  "\n"
                              #
$N1 = time_hires();           # t <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	1108	1350	
==>I1
                              #
print "Estimated ops: $I5\n"; # print  "Estimated ops: "
                              # print  I5
                              # print  "\n"
                              #
$N1 = time_hires();           # t <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16361	16490	
==>4,
			"[" => 88,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 90,
			'function' => 26,
			'primary' => 28,
			'fieldlis <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	4782	4891	
==>ing Interp" context="#pop" String="&quot;" />
      </context>

    </contexts>

END

print <<END;
    <itemDa <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	1665	1775	
==>p';
    %argmaps = %Parrot::OpTrans::C::arg_maps;
}
else {
    $jit_cpu = ($cpuarch eq 'i386') ? 0 : 1;
    pus <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	41416	41520	
==>tore($func_obj);

  return $return;
}

sub _call_function_obj {
  my $self = shift;
  my $func_obj = shif <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	2163	2263	
==>ut

use strict;
use lib 'lib';

use Data::Dumper;
$Data::Dumper::Useqq  = 1;
#$Data::Dumper::Terse  = <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	33562	33671	
==>p,
  'list'     => \&_op_list,
  'length'   => \&_op_length,
  'append'   => \&_op_append,
  'reverse'  => \&_ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	62454	62548	
==>em.

=item C<Bad identifier after dereferencer>

C<extract_variable> found a '$', '@', or '%' i <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	3123	3215	
==>ompatible changes to Parrot that invalidate existing bytecode files. This is the new experime <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	20417	20541	
==>= find_file($include, "pmc_$pmcname.h", 1);

        my $fh = open_file( "<", $file );
        while (<$fh>) {
            if <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645802	645889	
==>preter->n_vtable_max)\n\t\t{{\@1}} = interpreter->vtables[{{\@2}}]->whoami;\n    else\n\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646699	646786	
==>preter->n_vtable_max)\n\t\t{{\@1}} = interpreter->vtables[{{\@2}}]->whoami;\n    else\n\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52305	52512	
==>"TYPE" => "inline",
                  "CODE" => 67,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 815 \"src/ops/core.ops\"\ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	49176	49324	
==>] ] );
        }
	],
	[#Rule 28
		 '@9-2', 0,
sub
#line 171 "Lua\lua51.yp"
{
            PushScopeF( $_[0] );
            PushScope( $_[0] ) <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	96	190	
==>20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::OpsFile - Ops To C Code Gen <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	8310	8416	
==>arget of type $type\n";
  }    
  return sort keys %{ $this->{'accept_targets'} } if wantarray;
  return;
} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	16982	17076	
==>e::PullParserToken>), or undef if the parser-stream has hit
the end of the document.

=item $pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168520	168612	
==>@1}}->vtable->get_integer(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169462	169554	
==>@1}}->vtable->get_integer(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	55908	56009	
==>t.
If none of the extractor subroutines succeeds, then one
character is extracted from the start of th <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035481	1035580	
==>@2}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n    PMC *result = NUL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036645	1036744	
==>@2}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n    PMC *result = NUL <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	23635	23797	
==>tic;

            my $iculibs = "";
            if ($PConfig{'has_icu'}) {
                $iculibs = $PConfig{icu_shared};
            }

            my ($cmd, $e <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	51736	51832	
==>m, $item[0]}},0,-1);
					$self->{_AUTOTREE}{TERMINAL}
						= new Parse::RecDescent::Action(q{{b <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	37346	37471	
==>e
          DEBUG and print "Treating $para_type paragraph as such because stack is empty.\n";
        } else {
          my @ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	992	1101	
==>.004;

use strict;

use vars qw ( $VERSION $COMPATIBLE $FILENAME );

$VERSION = '1.05';
$COMPATIBLE = ' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	962	1064	
==>.004;

use strict;

use vars qw ( $VERSION $COMPATIBLE $FILENAME );

$VERSION = '1.05';
$COMPATIBLE = ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	652747	653043	
==>ARROT_JUMP_RESTART",
                  "NAME" => "find_method",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653907	654203	
==>ARROT_JUMP_RESTART",
                  "NAME" => "find_method",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4293	4408	
==>->emit("  $temp = $right");
    $right = $temp;
  }
  else {
    $right = $right->compile($compiler);
  }

  my $des <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824602	824853	
==>Val_str(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825673	825924	
==>Val_str(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	5647	5764	
==>eys %directories) {
	unless (-d $dir) {
	    # Make full path to the directory $dir
	    my @dirs;
	    while (! -d $d <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	9863	9997	
==>= $op->body;
        # retranslate VTABLE_macro to the expanded form
        $opbody =~ s/
            \bVTABLE_(\w+)
            \s*\( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2754	2852	
==>IVE gives '', same as 'STRING' x 0

  $self->{'Thispara'} =~ tr{\xAD}{}d if Pod::Simple::ASCII;
  m <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2288	2386	
==>IVE gives '', same as 'STRING' x 0

  $self->{'Thispara'} =~ tr{\xAD}{}d if Pod::Simple::ASCII;
  m <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	9450	9563	
==>x40\x5B-\x5E\x60\x7B-\x7F]/
            # Characters under 0x80 that aren't legal in an XML Name.
        or $new_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10714	10827	
==>x40\x5B-\x5E\x60\x7B-\x7F]/
            # Characters under 0x80 that aren't legal in an XML Name.
        or $new_ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5459	5577	
==>rst, $pass";
        }
    }
    push @ops, "branch $fail";

    push @ops, $self->output_label_def($passLabel);
    re <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	40155	40272	
==>tem;
		  ';

	if ($self->{type} eq "leftop" )
	{
		$code .= '
		  # MATCH LEFTARG
		  ' . $leftarg->code(@_[1..2]) . ' <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	2653	2748	
==>e, $expected, $description)>

Runs the PAST code and passes the test if output matches the expec <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	903	992	
==>e IREG(i) REG_INT(cur_opcode[i])
#define NREG(i) REG_NUM(cur_opcode[i])
#define PREG(i) RE <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1019	1108	
==>e IREG(i) REG_INT(cur_opcode[i])
#define NREG(i) REG_NUM(cur_opcode[i])
#define PREG(i) RE <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	17852	17961	
==>nless( $self->{Have_Plan} ) {
        require Carp;
        Carp::croak("You tried to run tests without a plan <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	18717	18826	
==>nless( $self->{Have_Plan} ) {
        require Carp;
        Carp::croak("You tried to run tests without a plan <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6645	6814	
==>$first = 0;
            }
            print {$FH} ") = ";
        }
        my @args = @{ $op->{arg2} };
        my $obj  = shift @args;
        print {$FH} "$obj-> <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	17011	17124	
==>"$key"), $value );|;
}


sub print_tail {
    my ($put_pointer_ref) = @_;

    my $put_pointer = join("\n", @{$put <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	3205	3315	
==>");
	return 60 if ($op eq "^");
	return 70 if ($op eq ".");

	return 99 if ($op eq "UNARYMINUS");
	
	return 100 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822402	822495	
==>D_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_int(entry->entry);\n  {{+=3} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823470	823563	
==>D_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_int(entry->entry);\n  {{+=3} <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	9761	10006	
==>CK{} blocks
sub startset { undef }

########################################################################
# Rendering - only used for debugging for now
########################################################################

package Regex::Op <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	8594	8737	
==>l/lib -L/usr/local/lib',
             'lns' => '/bin/ln -s',
             'load_ext' => '.bundle',
             'longsize' => 4,
             'm <==
3	/Users/nnunley/parrot/lib/Test/More.pm	18379	18486	
==>ne if we've been given a module name or file.
    # Module names must be barewords, files not.
    $module = <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	11875	11985	
==>ncommit, $error) = @_;
	my $class = ref($self) || $self;

	bless
	{
		"items"    => [],
		"uncommit" => $uncomm <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3696	3798	
==>'module';

      my %module_props = $self->block->props;

      $self->SYNTAX_ERROR("Sub declaration ha <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6360	6462	
==>'module';

      my %module_props = $self->block->props;

      $self->SYNTAX_ERROR("Sub declaration ha <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123847	123956	
==>ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124721	124830	
==>ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125595	125704	
==>ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	36121	36255	
==>successful
    255                 test died
    any other number    how many failed (including missing or extras)

If you fail more th <==
3	/Users/nnunley/parrot/lib/Test/More.pm	34192	34326	
==>successful
    255                 test died
    any other number    how many failed (including missing or extras)

If you fail more th <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2987	3121	
==>successful
    255                 test died
    any other number    how many failed (including missing or extras)

If you fail more th <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173054	173284	
==>[
                              "p",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 218 \"src/ops/cmp.ops\"\n  if (0 != string_equal(interpre <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9665	9750	
==>_[9],4,0xfffa3942,/* 33 */
HH,$d,$a,$b,$c,$_[12],11,0x8771f681,/* 34 */
HH,$c,$d,$a,$b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938567	938681	
==>.ops\"\n    {{\@1}} = string_join(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939457	939571	
==>.ops\"\n    {{\@1}} = string_join(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3280	3392	
==>>=', $val1, $val2, $dest);
}

sub output_if {
    my ($self, $reg, $dest) = @_;
    $reg = value($reg);
    retur <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11150	11264	
==>pl>).

=cut

sub rewrite_nci_method ($$$) {
    my ($class, $method) = @_;

    local $_ = $_[2];
    # Rewrite SEL <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11164	11262	
==>g Pod EE<lt>...E<gt> sequences

=head1 SYNOPSIS

  use Pod::Escapes qw(e2char);
  ...la la la, pars <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1568	1657	
==>{PC}]
if ${PTEMP0} == "" goto NOWT_TO_PROPOGATE
stack_depth = prop_stack_depth[${PC}]
NOWT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488008	488300	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "F <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	489401	489693	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "F <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	8138	8271	
==>r

        opendir OPS, "src/ops" or die "opendir ops: $!";
        my @ops = sort grep { !/^\./ && /\.ops$/ } readdir OPS;
        cl <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35218	35330	
==>elf->decl($self->{class}, $method, 0);
    my $ret = "";
    if ($method->{type} ne 'void') {
        # This chea <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	7039	7132	
==>m,
correctly handling nested substitions, and repeating over the whole string
until no more su <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	500	611	
==>means for registering, executing, and
coordinating one or more Configuration steps.  Please see
F<docs/configura <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1972	2070	
==>/^(.*)=rotate_left\((.*),(.*)\)\+(.*)$//;

	#my $rotate = "(($2 << $3) || (($2 >> (32 - $3)) & (1 < <==
3	/Users/nnunley/parrot/config/inter/shlibs.pm	550	644	
==>kage inter::shlibs;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configur <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528640	528901	
==>@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529522	529783	
==>@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	530404	530665	
==>@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	451	546	
==>sub _handle_element_start {
  # ($self, $element_name, $attr_hash_r)
  my $fh = $_[0]{'output_fh <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	450	545	
==>sub _handle_element_start {
  # ($self, $element_name, $attr_hash_r)
  my $fh = $_[0]{'output_fh <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	645	740	
==>sub _handle_element_start {
  # ($self, $element_name, $attr_hash_r)
  my $fh = $_[0]{'output_fh <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27337	27442	
==>:RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;').'
		$las <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29447	29552	
==>:RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;').'
		$las <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31544	31649	
==>:RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;').'
		$las <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284841	285114	
==>pare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285718	285991	
==>pare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286595	286868	
==>pare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240181	240313	
==>ger(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241129	241261	
==>ger(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "L <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	5252	5349	
==>/gosub out of range at $sourceline\\n"
	_platform_shutdown()
	end
ONOK_${ons}:
ON
	$i=1;
	for my $ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30713	30812	
==>tion(WRITE_TO_CONSTCLASS,
		"$meth() in $classname");
    else
        Parrot_${parentname}_$meth(in <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2124	2227	
==>nition. Otherwise, we assume the programmer wanted to shadow the
  # previous definition.
  #

  if (def <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1644	1747	
==>nition. Otherwise, we assume the programmer wanted to shadow the
  # previous definition.
  #

  if (def <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1871	1974	
==>nition. Otherwise, we assume the programmer wanted to shadow the
  # previous definition.
  #

  if (def <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	1164	1283	
==>pe="FLO";
			}
		}
		emit($numtype);
		goto MAIN;
	}
NOTNUM:
	#if ($cur eq "-" and $next =~ /[\d\.]/) {
	#	append;
	#	fe <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25637	25739	
==>ore($temp);
  } else {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) { <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27535	27637	
==>ore($temp);
  } else {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216947	217061	
==>_number(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217887	218001	
==>_number(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	21703	21806	
==>_[1]} : @{$def_func};
		my $max  = defined $_[2] && $_[2]>0 ? $_[2] : 1_000_000_000;
		my $igunk = $_[3] <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34034	34133	
==>if ($rule->{'class'} eq 'branch') {
		# Call pre_branch and append code that it generates.
		my $pre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934027	934116	
==>ODY" => "#line 435 \"src/ops/string.ops\"\n  {{\@1}} = string_downcase(interpreter, {{\@2} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934802	934891	
==>ODY" => "#line 435 \"src/ops/string.ops\"\n  {{\@1}} = string_downcase(interpreter, {{\@2} <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	789	900	
==>conversely, how many levels we have to go down to get to
    # the tcl binary.

    # There are basically 3 choi <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7082	7179	
==>, instr(s1$, "")
print "Start (11): ", instr(6, s1$, " ")
print "Inval  (0): ", instr(4, bogus$, " <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18811	18908	
==>, instr(s1$, "")
print "Start (11): ", instr(6, s1$, " ")
print "Inval  (0): ", instr(4, bogus$, " <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1423	1524	
==>'var') and ($scope eq 'global')) {
    my $imcc_code = $type->code();
    my $temp_reg = $compiler->te <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240114	240204	
==>DY" => "#line 616 \"src/ops/cmp.ops\"\n  INTVAL l = VTABLE_get_integer(interpreter, {{\@2}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241062	241152	
==>DY" => "#line 616 \"src/ops/cmp.ops\"\n  INTVAL l = VTABLE_get_integer(interpreter, {{\@2}} <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	8964	9084	
==>//;
    s/\s*$//;
    s/^\s*//;
    next unless $_;
    ($name, $number) = split(/\s+/, $_);
    if ($prev + 1 != $number <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2012	2109	
==>-$_[0]{'Indent'} }
sub   end_over_number  { --$_[0]{'Indent'} }
sub   end_over_text    { --$_[0]{' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1580	1677	
==>-$_[0]{'Indent'} }
sub   end_over_number  { --$_[0]{'Indent'} }
sub   end_over_text    { --$_[0]{' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46085	46273	
==>" => 59,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 742 \"src/ops/core.ops\"\n  Parrot_push_action(int <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	619	736	
==>trict 'refs';

    *{"Parrot::Test::HQ9plus::$func"} = sub ($$;$) {
        my $self = shift;
        my ( $code, $out <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	24442	24554	
==>f ( scalar( @{$opcodes} ) and $opcodes->[-1]->isa('CallOp') ) {
        $defn->{pragma} = 'first';
    }
    r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253837	254163	
==>}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "or",
                  "FL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254700	255026	
==>}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "or",
                  "FL <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13266	13354	
==>foo=34
y.fwd=x.fwd
x.fwd.link.foo=99
print y.fwd.link.foo

' Structure assignment torture <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	8050	8157	
==>f->c_source_item('', 'disassemble'),
            $self->c_pair_item('', 'trace'),
            $self->c_sourc <==
3	/Users/nnunley/parrot/lib/File/Which.pm	3925	4019	
==>able files having the name specified
as a parameter to C<which()>. Under Win32 systems, which d <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	5616	5721	
==>branches{$branch} }) {
      $branches{$branch}{$cat} = [
        map  {{ %$_, timestamp => $_->{timestamp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557792	557892	
==>hod_pmc, *object;\n  opcode_t *next = {{^+3}};\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559176	559276	
==>hod_pmc, *object;\n  opcode_t *next = {{^+3}};\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293500	293807	
==>= 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294376	294683	
==>= 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295252	295559	
==>= 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq", <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	11120	11252	
==>.h
gmtime      time.h
hypot       math.h
hypotf      math.h
hypotl      math.h
ilogb       math.h
ilogbf      math.h
ilogbl      math <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	12926	13034	
==>ng.

=cut

sub _slurp
{
    my $filename = shift;

    open(my $fh, '<', $filename) or die "Can't open $filen <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	625896	626042	
==>n            case PARROT_ARG_FLOATVAL:\n                args[1 + i] = (_reg_base + cur_opcode[2 + i]);\n                break;\n            default <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	10500	10596	
==>. So you should call
# add_checks() to put the (hopefully fewer) checks back in.
sub disable_impl <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3899	4017	
==>s) {
        compile("$group", "lib-$group")
          or die "compile $group.c failed ($?)\n";
    }
} 
elsif ($mode e <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4003	4121	
==>s) {
        compile("$group", "lib-$group")
          or die "compile $group.c failed ($?)\n";
    }
} 
elsif ($mode e <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4923	5016	
==>directories to be
included. To ignore everything below particular directories use a regex
in C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222198	222619	
==>RS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 260,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	36925	37064	
==>pcodes1, new ParamDir( $parser,
            'prolog' => 1,
            'result' => $defn,
        );
        my $nil = BuildLiteral( $pa <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	3518	3621	
==>unless defined $temp_ops;

    die "OPS invalid for $file" unless ref $temp_ops->{OPS};

    my $experim <==
3	/Users/nnunley/parrot/lib/Test/More.pm	5631	5738	
==>s take a name argument.  It's optional, but highly
suggested that you use it.


=head2 I'm ok, you're not ok <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717995	718088	
==>reter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_fprintf(interpreter, io, INTVAL_F <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718927	719020	
==>reter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_fprintf(interpreter, io, INTVAL_F <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9208	9307	
==>t ${STOREREG}
${INS} = concat " = "
${INS} = concat ${STEMP0}
${INS} = concat "\n"

# Decrement stac <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6726	6825	
==>t ${STOREREG}
${INS} = concat " = "
${INS} = concat ${STEMP0}
${INS} = concat "\n"

# Decrement stac <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Ops.pm	643	732	
==>>new_item('', 'tools/build/ops2c.pl'),
			$self->new_item('', 'src/ops/ops.num'),
			$self <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79398	79512	
==>ave the symbol's address. We just need to build\n         a PMC with it so we can get and set the value */\n      { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80919	81033	
==>ave the symbol's address. We just need to build\n         a PMC with it so we can get and set the value */\n      { <==
3	/Users/nnunley/parrot/Configure.pl	6393	6496	
==>rser)      Use the given parser generator

   --define=inet_aton   Quick hack to use inet_aton instead o <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10345	10448	
==>elf->{scope}->{$symbol}) {
    die "define: $symbol is already defined\n";
  }
  else {
    $self->{scop <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	7655	7756	
==>'SCALAR') {
    $self->{'source_scalar_ref'} = $_[0];
    DEBUG and print "$self 's source is scalar r <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	737	837	
==>to if unless call branch jump jsr ret invoke invokecc throw 
    rethrow die_hard .emit .eom .sub .en <==
3	/Users/nnunley/parrot/config/gen/cpu/i386/auto.pm	229	325	
==>reates these Config entries

 TEMP_generated => 'files ...'   for inclusion in platform.c or plat <==
3	/Users/nnunley/parrot/lib/Parrot/PMC.pm	448	541	
==>ParrotLibrary => 14,
	ConstParrotLibrary => 15,
	ParrotInterpreter => 16,
	ParrotThread => 17, <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	1762	1854	
==>er 4

=item C<set_parent($parent)>

=item C<parent()>

Accessors for the containing section/g <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Compilers.pm	482	599	
==>Section );

use Parrot::Distribution;

=item C<new()>

Returns a new section.

=cut

sub new
{
    my $sel <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	1512	1615	
==>Cs in the library.

=back

=head2 Internals

To see the internal data structures please run:

    % perl <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3134	3235	
==>ee expr_pop(), above, for a description of why this
works.)

=cut

sub expr_offset
{
    my ($self, $o <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	11300	11448	
==>able->
        (\w+)
        \(interpreter,
        \s*
        {{\@(\d)}},\s*{{\@(\d)}}
        \);
        \s+{{\+=\d}}/xm) {
            $jit_func <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	11747	11895	
==>able->
        (\w+)
        \(interpreter,
        \s*
        {{\@(\d)}},\s*{{\@(\d)}}
        \);
        \s+{{\+=\d}}/xm) {
            $jit_func <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	652	752	
==>'done'}; $total += $_->{'total'}; } @results;
my $percent = int(($done / $total) * 100);
print "SUM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714723	714819	
==>ter, io, \" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715646	715742	
==>ter, io, \" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716591	716687	
==>ter, io, \" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(inte <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	17737	17851	
==>(!@stack) {
	print "#XXX\t\t$cmt - stack empty\n";
	return;
    }
    my $tos = pop @stack;
    my $targ = "pc_xxx" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	976	1087	
==>t  { return shift->{LEFT};  }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	984	1095	
==>t  { return shift->{LEFT};  }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	655	754	
==>s embedded in their substution values. q[] is used in
# some places as Win32 paths have \'s in, whic <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	613	712	
==>s embedded in their substution values. q[] is used in
# some places as Win32 paths have \'s in, whic <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	617	716	
==>s embedded in their substution values. q[] is used in
# some places as Win32 paths have \'s in, whic <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	13339	13529	
==>'   => $key->[0],
                    'arg2'   => undef,
                    'result' => $result,
                );
                return [ $result, \@opcodes, $assign ];
            } <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	1548	1685	
==>TRY', 'set', 'P0', 'P5'],
  ['',            'set', 'P16', 'P6'],
  ['',            'typeof', 'I16', 'P16'],
  ['',            'set', 'I1', <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1448	1538	
==>MP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = "$register_num" <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1975	2065	
==>MP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = "$register_num" <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3158	3248	
==>MP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = "$register_num" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16268	16370	
==>entifier->new($block, $token);

      $self->require_assign;

      my $left  = Jako::Construct::Expres <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17039	17141	
==>entifier->new($block, $token);

      $self->require_assign;

      my $left  = Jako::Construct::Expres <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17844	17946	
==>entifier->new($block, $token);

      $self->require_assign;

      my $left  = Jako::Construct::Expres <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	32640	32782	
==>te 115
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 7 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	709235	709342	
==>c/ops/pmc.ops\"\n  dod_unregister_pmc(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	17997	18101	
==>so we can pass in fake-o pre-cooked paragraphs:
    #  just have the first line be a reference to a ['~To <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	33193	33332	
==>0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ($w->[2] eq 'P') {
	   $ww = temp('I');
	   print <<EOC;
	$ww = <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	33942	34081	
==>0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ($w->[2] eq 'P') {
	   $ww = temp('I');
	   print <<EOC;
	$ww = <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	34866	35005	
==>0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ($w->[2] eq 'P') {
	   $ww = temp('I');
	   print <<EOC;
	$ww = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944967	945228	
==>charsetname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945776	946037	
==>charsetname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297415	297837	
==>" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 346,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#li <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2444	2575	
==>lect the first defined variable.
##
sub choose {
    for (@_) {
        return $_ if defined $_;
    }
    return;
}

##
## %tests = <==
3	/Users/nnunley/parrot/config/inter/ops.pm	80	174	
==>pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/inter/ops.pm - Ops Files

=he <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11788	12006	
==>SetOp( $parser,
                        'arg1'   => $last_key->[0],
                        'arg2'   => undef,
                        'result' => $result,
                    );
                    return [ $defn, <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9988	10186	
==>SetOp( $parser,
                    'arg1'   => $last_key->[0],
                    'arg2'   => undef,
                    'result' => $result,
                );
                return [ $defn, <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8843	9001	
==>SetOp( $parser,
            'arg1'   => $last_key->[0],
            'arg2'   => undef,
            'result' => $result,
        );
        return [ $defn, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	865361	865609	
==>in",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "function",
                  "CODE" => 982,
                  "ARGS" <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	25475	25644	
==>', $R_back ]),
                        aop('goto', [ $lastback ]),
              $rfail => aop('pushint', [ 0 ]),
               $next =>
              );

    return ($b <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	13995	14099	
==>el + 1;
    $self->_regex_ok($this, $regex, '=~', $name);
}

sub unlike {
    my($self, $this, $regex, $n <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	5868	5958	
==>n;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
#
# An <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	8916	9006	
==>n;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
#
# An <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	7556	7645	
==>n
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
#
# An <==
3	/Users/nnunley/parrot/languages/APL/t/APL.pm	875	985	
==>anything new is passing.

sub run_apl_is() {
  foreach my $block (blocks) {
    my $apl    = $block->APL;
    m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	310662	310798	
==>DB_set_break(interpreter,NULL);\n\n    {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( { <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19316	19409	
==>t be found, then get_short_title returns empty-string
("").

=item $author_name   = $parser->g <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2056	2186	
==>,
  ['',            'set', 'P7', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	37133	37245	
==>&_op_char_downcase,

###
### Strings
###

  'string?'       => \&_op_string_p,
  'make-string'   => \&_op_make_st <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22682	22791	
==><< (return value: [}
						. $_tok . q{])},
						Parse::RecDescent::_tracefirst($text))
							if defined $:: <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2358	2587	
==>_file($out_fn),
                       $output,
                       $desc
                                                  );
        unless ( $pass ) {
            my $diag = '';
            my $test_prog = join ' && ', @test <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	2369	2585	
==>_file($out_fn),
                          $output,
                          $desc
                      );
           unless ( $pass ) {
               my $diag = '';
               my $test_prog = join ' && ', @test <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	726	826	
==>rn "Cannot reseek: $!";
} else {
	open(D, "<&DATA") || die;
}
shift(@ARGV);

tokenize();
#push(@ARGV) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	3530	3649	
==>' ? 'open-paren' : 'close-paren', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^([\[\]])(.*)$}) { <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	97	186	
==>/build/pbc2c.pl 19607 2006-05-30T15:23:20.183054Z coke  $

=head1 NAME

tools/build/pbc2c. <==
3	/Users/nnunley/parrot/config/init/hints.pm	1106	1225	
==>tep($conf, @_) if $hints->can('runstep');
        $hints_used++;
    }

    if ($hints_used == 0) {
        print "(no h <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	18018	18121	
==>st});
    $self->{Curr_Test}++;

    $self->{Test_Results}[$self->{Curr_Test}-1] = &share({
        'ok' <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	18883	18986	
==>st});
    $self->{Curr_Test}++;

    $self->{Test_Results}[$self->{Curr_Test}-1] = &share({
        'ok' <==
3	/Users/nnunley/parrot/config/auto/headers.pm	1616	1730	
==>ey are present
    if ($^O eq "msys") {
        push @extra_headers, qw(sysmman.h netdb.h);
    }
    my @found_hea <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2222	2356	
==>iblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various libraries in the link line.
        $liblist = join( ' ', map { "$_. <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2514	2648	
==>iblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various libraries in the link line.
        $liblist = join( ' ', map { "$_. <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2309	2443	
==>iblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various libraries in the link line.
        $liblist = join( ' ', map { "$_. <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_assignments.pm	385	482	
==>ray
	set P0[.TYPE], "BARE"
	set P0[.VALUE], "$varname"
	bsr ASSIGNMENT	# Do this type manually
ASS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035703	1035788	
==>t) {\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not foun <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036867	1036952	
==>t) {\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not foun <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216942	217054	
==>->get_number(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217882	217994	
==>->get_number(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	43092	43194	
==>he end of the q!) #'
	
	extract_quotelike '  "You said, \"Use sed\"."  '

	extract_quotelike ' s{([A-Z] <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	28104	28203	
==>erate($node->{children}[1]);
  $self->_add_inst('',           'gt', [$return,0,"DONE_$label"]);
  my <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	530	625	
==>k) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Dest (" . ref <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	521	616	
==>k) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Dest (" . ref <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	410	505	
==>k) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Dest (" . ref <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	905	998	
==>LD_LOAD_FLAGS = qq[-bundle -undefined suppress];
our $PERL = q[perl];
our $LOAD_EXT = qq[.bund <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	894	987	
==>LD_LOAD_FLAGS = qq[-bundle -undefined suppress];
our $PERL = q[perl];
our $LOAD_EXT = qq[.bund <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	898	991	
==>LD_LOAD_FLAGS = qq[-bundle -undefined suppress];
our $PERL = q[perl];
our $LOAD_EXT = qq[.bund <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6190	6299	
==>ut_delete {
    my ($self, $n) = @_;
    return qq!<rx_match>{"$n"}->[1] = undef; # delete group $n!;
}

sub o <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	324	428	
==>imited
				&extract_bracketed
				&extract_quotelike
				&extract_codeblock
				&extract_variable
				&ex <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	12254	12342	
==>ently!
sub Regex::Ops::Tree::scan::needparen { 0 }
sub Regex::Ops::Tree::scan::render { $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1275	1401	
==>E};      }
sub props     { return %{shift->{PROPS}};  }


#
# compile()
#

sub compile
{
  my $self     = shift;
  my $compiler <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	901	1011	
==>b subs() {
	# No extra subs.
	return "";
}

# Label generation.
sub gen_label() {
	# We'll emit a label for eve <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	658	768	
==>b subs() {
	# No extra subs.
	return "";
}

# Label generation.
sub gen_label() {
	# We'll emit a label for eve <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605181	605470	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addattribute",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605971	606260	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addattribute",
                  " <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	26884	26985	
==>write_external {
    my ($self, $op, $extname, $extargs, $lastback) = @_;
    my $handler = "external_ <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	7540	7648	
==>truct call_state *st, int n)
{
    assert(n < st->src.n);
    Parrot_fetch_arg_nci(interpreter, st);

    ret <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	7723	7831	
==>truct call_state *st, int n)
{
    assert(n < st->src.n);
    Parrot_fetch_arg_nci(interpreter, st);

    ret <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	7905	8013	
==>truct call_state *st, int n)
{
    assert(n < st->src.n);
    Parrot_fetch_arg_nci(interpreter, st);

    ret <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	39218	39326	
==>$srm_pt, $mv, 'post_translation');
    $pir .= "### end post_translation\n";

    # Emit the end of the trans <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	619334	619435	
==>_integer(interpreter, right);\n\tINTVAL c = a - b;\n\tif ((c^a) >= 0 || (c^~b) >= 0) {\n\t    if (lt = <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	1702	1797	
==>$self->{saving} = 1;
	$self->Precompile(undef,$class);
	$self->{saving} = 0;
}

sub Precompile
{ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	944	1042	
==>ation in such a way that a string register value results
# for use by further compilations. This re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210284	210375	
==>{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211264	211355	
==>{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1027996	1028097	
==>> "#line 295 \"src/ops/sys.ops\"\n  opcode_t *next = {{^+2}};\n  if ({{\@1}} < 0) {\n      real_except <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028847	1028948	
==>> "#line 295 \"src/ops/sys.ops\"\n  opcode_t *next = {{^+2}};\n  if ({{\@1}} < 0) {\n      real_except <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	3164	3258	
==>ket  { return shift->is('open-bracket');  }
sub is_open_paren    { return shift->is('open-paren <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	11524	11643	
==>urn "t_$temp_num";
    };
    /2/ && do {
        push @{$temps_ref}, "PMC* t_$temp_num;";
        push @{$extra_preambl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1108473	1108591	
==>MC_str_val({{\@2}}));\n            {{\@1}} = pmc_new(interpreter, type);\n            break;\n        case enum_class_K <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	24000	24098	
==>->genlabel('plus_rfail');
    my $next = $self->genlabel('plus_next');
    my ($R_back, @R_ops) = $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544320	544431	
==>a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n whil <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545656	545767	
==>a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n whil <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546992	547103	
==>a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n whil <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788377	788675	
==>GS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 890,
                  "ARGS" => <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	1452	1553	
==>all::ISA         = qw(Regex::Ops::Tree::_onearg);
@Regex::Ops::Tree::rule::ISA         = qw(Regex::Ops <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	8965	9083	
==>_[0];
    "\$$t" . ++$temp;
}

sub is_num {
    my $c = $_[0];
    my ($pointfloat, $expfloat, $frac, $exp);
    $exp = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787988	788095	
==>>vtable->get_number_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788898	789005	
==>>vtable->get_number_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9834	9939	
==>\'\.\,]) /$1\n/g unless $self->{DONT_WRAP};
    
    # URLs not in L<>.
    $text =~ s|(http://[^\s)]+)|<a <==
3	/Users/nnunley/parrot/tools/util/pirtidy.pl	912	1007	
==>tdy, file3.tdy, ...)

=head1 DESCRIPTION

pirtidy reads a pir file and writes an indented, refor <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2332	2422	
==>tml($source, $target, $silent)>

Iterates over the group's contents and calls C<write_html( <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10942	11048	
==>ption if the delete fails.

=cut

sub delete
{
    # Use $_[0] so that we can undef the instance in SUPER:: <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4776	4882	
==>ption if the delete fails.

=cut

sub delete
{
    # Use $_[0] so that we can undef the instance in SUPER:: <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	356	448	
==>stuff about the contents of
the distribution.

This is a subclass of C<Parrot::Docs::Director <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	4409	4580	
==>pc}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	40706	40827	
==>track=1;}'
				: "" ) . '
			' . $rightarg->code(@_[1..2]) . '
			$savetext = $text;
			$repcount++;
		  }
		  $text = $sa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427947	428056	
==>\n  mmd_dispatch_v_pn(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428834	428943	
==>\n  mmd_dispatch_v_pn(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1092941	1093233	
==>ntal" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "morph",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093743	1094035	
==>ntal" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "morph",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	8611	8725	
==>nt "## $src" if  $src;

	if ($rest =~ /(<code> \w+)/) {
	    $rest = "$1 ..>";
	}
	$cmt = "\t\t# $opcode\t$arg $res <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4317	4440	
==>mcs ] )
          or die "partial link of $group failed ($?)\n";
    }

    # Link non-grouped PMCs individually
    my @ung <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4421	4544	
==>mcs ] )
          or die "partial link of $group failed ($?)\n";
    }

    # Link non-grouped PMCs individually
    my @ung <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	4074	4193	
==>l pmc $help");
        $code .= emit("  .get_from_HLL($help, '_tcl', '$help')");
    }
    
    return $code;
}

sub inl <==
3	/Users/nnunley/parrot/tools/dev/pbc_header.pl	1740	1855	
==>y $i (0..5) {
	    my $c = substr $header, $i, 1;
	    $c = unpack 'c', $c;
	    printf "\t%-12s= %s\n", $fields[$i] <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3238	3338	
==>ST(%ld)->u.key",
    'sc' => "CONST(%ld)->u.string",
    'kc' => "CONST(%ld)->u.key",
    'kic' => "c <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2148	2244	
==>ST(%ld)->u.key",
  'sc'  => "CONST(%ld)->u.string",
  'kc'  => "CONST(%ld)->u.key",
  'kic' => "c <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	3180	3317	
==>es are left in the t/* directories.
        # Let 'make clean' and 'svn:ignore' take care of them.

        return $pass;
        }
} <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2772	2900	
==>es are left in the t/* directories.
        # Let 'make clean' and 'svn:ignore' take care of them.

        return $pass;
    }
} <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	3338	3466	
==>es are left in the t/* directories.
        # Let 'make clean' and 'svn:ignore' take care of them.

        return $pass;
    }
} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61919	62108	
==>core.ops\"\n  PARROT_ERRORS_on(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62563	62752	
==>core.ops\"\n  PARROT_ERRORS_on(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/config/gen/cpu.pm	137	228	
==>config/gen/cpu.pm - CPU specific Files

=head1 DESCRIPTION

Runs C<&run_cpu()> in F<config/g <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1098608	1099029	
==>RS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1218,
                  "ARGS" => [
                              "n",
                              "n",
                              "i"
                            ],
                  "BODY" => " <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	23280	23391	
==>$syms[CURR] eq ")";
			}
			my $type;
			$type="FLO";
			my %th=( single => 'FLO', double => 'FLO', long => 'INT <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	21091	21200	
==>= temp('I');
	my $pres = temp('P');
	$op = $is_map{$c};
	my $isnot = '';
	if ($c eq 'is not' || $c eq 'not in' <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	5572	5678	
==>art {     # OVERRIDE IN DERIVED CLASS
  my($self, $element_name, $attr_hash_r) = @_;
  return;
}

sub _hand <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103825	1103911	
==>"src/ops/experimental.ops\"\n\tSTRING *class = {{\@2}};\n\tINTVAL type = pmc_type(inter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105040	1105126	
==>"src/ops/experimental.ops\"\n\tSTRING *class = {{\@2}};\n\tINTVAL type = pmc_type(inter <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1244	1346	
==>::Simple::Debug (\\\$var, STARTNUMVAL)\nAborting");
  }

  if( defined $variable ) {
    # make a not-r <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22067	22179	
==>$block, $self->require_value);
        $op    = $self->require_infix_rel->text;
        $right = Jako::Construct: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23000	23112	
==>$block, $self->require_value);
        $op    = $self->require_infix_rel->text;
        $right = Jako::Construct: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24646	24758	
==>$block, $self->require_value);
        $op    = $self->require_infix_rel->text;
        $right = Jako::Construct: <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	11117	11237	
==>nt <<EOC;
	\t$cmt
EOC
    }
    else {
	print <<EOC;
	\t$cmt
EOC
    }
    push @stack, [$n, $c, $typ];
}
sub LOAD_LOCALS <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	472	575	
==>--------------------
{
#
# Module Parse::Yapp::Driver
#
# This module is part of the Parse::Yapp pa <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	461	559	
==>--------------------
{
#
# Module Parse::Yapp::Driver
#
# This module is part of the Parse::Yapp pa <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4866	4963	
==>.

Set C<$recursive> to true if you want all files in subdirectories to be
included. To ignore eve <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240167	240278	
==>TABLE_get_integer(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241115	241226	
==>TABLE_get_integer(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16471	16567	
==>l", 'set', [$return,0]);
  $self->_add_inst ("DONE_$label");
  $self->_restore ($temp);

  return <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	4809	4929	
==>rs > $gccversion;
            next unless $opt; # Ignore blank lines

            if ($opt =~ /-mno-accumulate-outgoing-a <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	3997	4101	
==>, $result, $op)=@_;
		$op="eq" unless $op;
		$result=~s/S/N/;
		$eqnum++;
		return(<<CODE, $result); 
	se <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	8367	8453	
==>nless ($rdelspec =~ s/\A([[(<{]+)($XMLNAME).*/ quotemeta "$1\/$2". revbracket($1) /oes) <==
3	/Users/nnunley/parrot/config/gen/config_h.pm	793	918	
==>mentType       => '/*',
        ignorePattern     => 'PARROT_CONFIG_DATE',
        conditioned_lines => 1
    );

    genfile( <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	4933	5044	
==>, [$return,'.Undef']);
    for (reverse @$children) {
      if (exists $_->{children}) {
        my $arg0 = _get <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11388	11485	
==>label, "\"!";
  }
  ...else print/interpolate $text...

=head1 DESCRIPTION

This module provides t <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1055	1163	
==>ENAME );

$VERSION = '1.05';
$COMPATIBLE = '0.07';
$FILENAME=__FILE__;

use Carp;

#Known parameters, <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1021	1121	
==>ENAME );

$VERSION = '1.05';
$COMPATIBLE = '0.07';
$FILENAME=__FILE__;

use Carp;

#Known parameters, <==
3	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	276	364	
==>$[iI][dD]:\s(.*)\$$/;

=head1 NAME

tools/build/parrot_config_c.pl - Create src/parrot_co <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9734	9831	
==>nock off first arg.
if "${CURIC}" != "73" goto pre_call_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEM <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7248	7345	
==>nock off first arg.
if "${CURIC}" != "73" goto pre_call_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEM <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6212	6309	
==>nock off first arg.
if "${CURIC}" != "73" goto pre_call_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEM <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17098	17249	
==>>[1] };
                $result = new_tmp( $parser, 'pmc' );
                push @opcodes, new LocalDir( $parser,
                    'result' => $r <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15500	15615	
==>>[1] };
    $result = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $r <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19253	19368	
==>>[1] };
    $result = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $r <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	472	565	
==>w->{'output_fh'} ||= *STDOUT{IO};
  #$new->accept_codes('VerbatimFormatted');
  return $new;
} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	276	368	
==>w->{'output_fh'} ||= *STDOUT{IO};
  $new->accept_codes('VerbatimFormatted');
  return $new;
} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	275	367	
==>w->{'output_fh'} ||= *STDOUT{IO};
  $new->accept_codes('VerbatimFormatted');
  return $new;
} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	639385	639487	
==>ig, 0)) {\n      case PARROT_ARG_IC:\n\t  typ = arg_op[2];\n\t  if (typ <= 1 || typ >= interpreter->n_v <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	12363	12464	
==>p, $howfar, $lastback) = @_;
    my $back = $self->genlabel('undo_charclass');
    my $next = $self->g <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	35975	36121	
==>==" => 77,
			">=" => 78,
			"*" => 80,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79,
			"/" => 8 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36233	36379	
==>==" => 77,
			">=" => 78,
			"*" => 80,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79,
			"/" => 8 <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10274	10377	
==>node,1)->{value};
    $lambda = _get_arg($node,2);
  }

  if (exists $self->{scope}->{$symbol}) {
    di <==
3	/Users/nnunley/parrot/config/auto/jit.pm	2271	2380	
==>1,
	ppc  => 1,	
	# all others are seriously b0rked
    );

    if (-e "$jitbase/$cpuarch/core.jit" && $jit_is_ <==
3	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	828	925	
==>ties
# of the directories in the Parrot subversion repository. (Needed for
# distributions or in g <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3683	3780	
==>ties
# of the directories in the Parrot subversion repository. (Needed for
# distributions or in g <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	5781	5919	
==>_push_registers(jit_info,$1)/g;
            $ops{$function} = [ $asm , $extern ];
            $function = undef;
        }
        unless ( <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	271	380	
==>b -benchmarks     use benchmarks matching regexes  (multiple)
   -c -conf           path to configuration file <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	382	486	
==>::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $left, $right) = @_;

  confess("B <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	373	477	
==>::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $left, $right) = @_;

  confess("B <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	34486	34604	
==>>{Curr_Test} - $self->{Expected_Tests};
            my $s = $self->{Expected_Tests} == 1 ? '' : 's';
            $self- <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	6605	6700	
==>jump_table;
my $index = 0;
my ($prev_source, $prev_func_name, $prev_def);

foreach my $op ($ops- <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	18727	18819	
==>string
("").

=item my $title_string = $parser->get_short_title

This is just like get_title, <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1027	1146	
==>eturn $self;
    }

    my $prog;

    # precedence of sources for the program:
    # default -> probe -> environment -> <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1024	1143	
==>eturn $self;
    }

    my $prog;

    # precedence of sources for the program:
    # default -> probe -> environment -> <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11023	11119	
==>E_R8 = 0x0D
	.const int ELEMENT_TYPE_STRING = 0x0E
	.const int ELEMENT_TYPE_PTR = 0x0F
	.const in <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	4776	4908	
==>e to set body and go to the end.
    my $pir = '';
    foreach (@_) {
        next if $_->{'unimplemented'};
        my $label = "BOD <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4246	4331	
==>head3_halfpoint_size',
 'head4_halfpoint_size',
 'codeblock_halfpoint_size',
 'header_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11386	11489	
==>RE_CALL_END_${CURIC}

# It's a return. See if we have a return value.
PRE_CALL_RETURN_${CURIC}:
${ITEMP0 <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8572	8675	
==>RE_CALL_END_${CURIC}

# It's a return. See if we have a return value.
PRE_CALL_RETURN_${CURIC}:
${ITEMP0 <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7144	7247	
==>RE_CALL_END_${CURIC}

# It's a return. See if we have a return value.
PRE_CALL_RETURN_${CURIC}:
${ITEMP0 <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1205	1347	
==>oBoolOp') ) {
        my $tobool = pop @{$opcodes};
        my $new    = pop @{$opcodes};
        my $loc    = pop @{$opcodes};
        $de <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	310231	310334	
==>>cur_opcode = (opcode_t *)cur_opcode + 1;\n        PDB_set_break(interpreter,NULL);\n        while (!(in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909093	909345	
==>"CODE" => 1024,
                  "ARGS" => [
                              "i",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 284 \"src/ops/string.ops\"\n    {{\@1 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	393	502	
==>:Construct::Declaration);

use Jako::Construct::Type;


#
# new()
#

sub new
{
  my $class = shift;

  my ($bl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	393	502	
==>:Construct::Declaration);

use Jako::Construct::Type;


#
# new()
#

sub new
{
  my $class = shift;

  my ($bl <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	6961	7151	
==>.]+)	#  1 VERSION
                -(\w+)		#  2 DEVEL
                -r(\d+)		#  3 revision
                -([\w\-]+)	#  4 branch
               --([\w\d]+)	#  5 cpuarch
                -([\ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	7915	8083	
==>_item(
                '', 
                'pairs' => ['debug'], 
                'sources' => ['pdb']
            ),
            $self->c_source_item('', 'disassemble' <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	8081	8193	
==>$1);
		    $func_info{$cur_f}{flags} = $f;
		    print "# $cur_f; flags=$f\n";
		}
		elsif (/# varnames\s+\((.*)\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276623	277051	
==>S" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 322,
                  "ARGS" => [
                              "i",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 88 <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	38	196	
==>{

    sub new {
        my $proto = shift;
        my $class = ref($proto) || $proto;
        my $self  = {};
        bless $self, $class;
        my ( <==
3	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	3130	3288	
==>{

    sub new {
        my $proto = shift;
        my $class = ref($proto) || $proto;
        my $self  = {};
        bless $self, $class;
        my ( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	250042	250264	
==>/cmp.ops\"\n  {{\@1}} = ! {{\@1}};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4332	4427	
==>epth
${STEMP0} = concat ${STEMP1}
${DEST$push_num} = ${STEMP0}

# Increment dtypes index.
inc ${ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2748	2843	
==>epth
${STEMP0} = concat ${STEMP1}
${DEST$push_num} = ${STEMP0}

# Increment dtypes index.
inc ${ <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2221	2445	
==>rm feed
                last;
            s/^\\n//
                and $str .= "\n",      # new line
                last;
            s/^\\r//
                and $str .= "\r",      # carriage return
                l <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3735	3959	
==>rm feed
                last;
            s/^\\n//
                and $str .= "\n",      # new line
                last;
            s/^\\r//
                and $str .= "\r",      # carriage return
                l <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	14617	14716	
==>e_with_binmode;
    $self->output_fh($out_fh);
  }

  return $self->parse_file($source);
}

#------- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3501	3608	
==>uld make sure its a string, somewhere.
    }
    else {
      $self->SYNTAX_ERROR("Sub declaration has no fn <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6165	6272	
==>uld make sure its a string, somewhere.
    }
    else {
      $self->SYNTAX_ERROR("Sub declaration has no fn <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	17416	17523	
==>lt.pmc")
        if not $all{default};

    my $vt = read_dump($include, "vtable.pmc");
    add_defaulted($a <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	43263	43388	
==>> _new_regs,
    frames => [],
    gensym   => 0,
    functions=> [],
    scope    => {},
  };
  bless $self,$class;
}

sub pr <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	678	777	
==>OG_ARGS} || '';

    $lang_f = File::Spec->rel2abs($lang_f);
    $out_f  = File::Spec->rel2abs($out_ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	715	814	
==>OG_ARGS} || '';

    $lang_f = File::Spec->rel2abs($lang_f);
    $out_f  = File::Spec->rel2abs($out_ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	1709	1939	
==>/eg;
                if (length($label) >= 8) {
                    push @r, $label;
                    $label = '';
                }
                if (ref($line)) {
                    push @r, "$label";
                    pu <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	22	132	
==>, this is BAD PERL later to be translated to PASM
# First tokenize the input stream into:
#          @tokens an <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846279	846638	
==>IRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 960,
                  "ARGS" => [
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 56 \" <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	13666	13813	
==>t_line' => $m},
        $_
        #]
        ],
        @{$self->{'errata'}{$line}}
      )
    ;
  }
  
  # TODO: report of unknown entities? unre <==
3	/Users/nnunley/parrot/config/gen/revision.pm	463	568	
==>description = "Determining Parrot's revision";

sub runstep
{
    my ($self, $conf) = @_;

    my $revisio <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16594	16741	
==>uct::Statement::Arithmetic->new($block, $ident, $left, $op, $right);

      next;
    }

    #
    # Concat Operators:
    #
    #   <var> = <value> <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	38787	38905	
==>' => \&_op_call_with_current_continuation,

###
### Input and Output
###

####
#### Ports
####

  'call-with-input-file <==
3	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1582	1692	
==>://path/to/smokeserv.pl
    Sets the path to the smoke server.
  --version
    Outputs the version of this prog <==
3	/Users/nnunley/parrot/lib/Test/More.pm	31595	31712	
==>} ? $a1->{$k} : $DNE;
        my $e2 = exists $a2->{$k} ? $a2->{$k} : $DNE;

        push @Data_Stack, { type => 'HASH <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	494	591	
==>N

This module provides various Parrot-specific test functions.

=head2 Functions

The parameter C <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	2150	2245	
==>IPTION

This is an internal module for controlling the debug level (a.k.a. trace
level) of Pod:: <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30144	30234	
==>oto SUB_DISPATCH_END
SUB_DISPATCH_END:
	ret
SUBEND
}
sub parse_struct_copy_dispatch {
	goto <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756731	756818	
==>\"\n  {{\@1}}->vtable->assign_string_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757521	757608	
==>\"\n  {{\@1}}->vtable->assign_string_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4044	4159	
==>g mandatory parameter '".lc($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _DBLoad {
	{
		no <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48659	48769	
==>{ }
				elsif ($grammar =~ m/$BADREP/gco)
				{
					_parse("an invalid repetition specifier", 0,$line);
					_ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3841	3946	
==>g mandatory parameter '".lc($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _DBLoad {
	{
		no <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	12681	12795	
==>ref}, "STRING *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_S($reg_num);" <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	12888	13002	
==>ref}, "STRING *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_S($reg_num);" <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	13373	13487	
==>ref}, "STRING *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_S($reg_num);" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	508681	509007	
==>S" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 585,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 6 <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	18340	18445	
==>LSE') {
	print "\t\t$cmt\n";
	$code_l++;
	JUMP_IF_TRUE($arg, $rest, "\t# JUMP_IF_FALSE");
    }
    else { <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	61560	61658	
==>ubstring, but
failed to find a closing quote to match it.

=item C<Did not find closing delimiter t <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	3876	4004	
==>i = 0; $i < $n; $i++) {
		    my ($a, $def) = split(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a = qq!"$a"!;   # quote argument <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	4375	4503	
==>i = 0; $i < $n; $i++) {
		    my ($a, $def) = split(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a = qq!"$a"!;   # quote argument <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	29860	29952	
==>NC<<FUNCEND;
	goto UF_DISPATCH_END
UF_DISPATCH_END:
	#print "Ending user function, stack dept <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	4255	4363	
==>the type of the op's argument at C<$index>.

=cut

sub arg_type
{
    my $self = shift;

    return $self->{A <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22099	22205	
==>t'    ,[$temp,0,"DONE_$label"]);
  $self->_restore($temp);
  $self->_add_inst(''           ,'set'   ,[$retu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321795	321972	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322566	322743	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323338	323515	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8315	8435	
==>pos
    pos = 0
    .local float value_at
    .local int not_there
    not_there = op1
    inc not_there
    .local pmc i <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	940	1048	
==>require lib;
  import('lib': @paths);
  
  # no load your other modules ...

= DESCRIPTION

This is a small s <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	48558	48704	
==>$_[9] );
        }
	],
	[#Rule 24
		 '@7-5', 0,
sub
#line 152 "Lua\lua51.yp"
{
            PushScope( $_[0] );
            InsertList( $_[ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1249	1351	
==>->ctx)->pred_offset)

#  define opcode_to_prederef(i, op)   (op ? \\
     (void**) (op   - CONTEXT(i->c <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	2142	2248	
==>rn shift->{LINE};     }

sub is_global   { return shift->scope eq 'global'; }
sub is_local    { return shif <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035678	1035766	
==>ex_name);\n    if (!result) {\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036842	1036930	
==>ex_name);\n    if (!result) {\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010859	1011162	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011623	1011926	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012388	1012691	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	1460	1612	
==>bless { name => $name,
                       args => $args || [],
                       %opts }, (ref($class) || $class);

    $self->init();
    retur <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	3055	3158	
==>n_data);",
       4 => "set_nci_I(interpreter, &st, *return_data);",
       3 => "set_nci_I(interpreter, <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	9926	10006	
==>ref="$outfile_base.lines.html#$function">@{[$function_line_coverage{$source_file} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862513	862744	
==>ng_length(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863282	863513	
==>ng_length(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	736	909	
==>'',
             'SVN_ENTRIES' => undef,
             'VERSION' => '0.4.5',
             'a' => '.a',
             'ar' => 'ar',
             'ar_extra' => '',
             ' <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	2444	2543	
==>ts will be
looked for.

C<$target> is directory into which the section's output will be written.

If <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11953	12052	
==>everse @args));
			$pir_args = ",$pir_args" if $pir_args;
			$extern=$sym;
			$optype=optype_of($ext <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	12363	12462	
==>everse @args));
			$pir_args = ",$pir_args" if $pir_args;
			$extern=$sym;
			$optype=optype_of($ext <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	619184	619277	
==>er ? PMC_int_val(left) :\n\t    VTABLE_get_integer(interpreter, left);\n\tINTVAL b = rt == enu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224263	224531	
==>> "function",
                  "CODE" => 262,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 516 \"src/ops/cmp.op <==
3	/Users/nnunley/parrot/lib/Test/More.pm	29571	29701	
==>$same_ref and ($e1 eq $e2) ) {
            $ok = 1;
        }
	elsif ( $not_ref ) {
	    push @Data_Stack, { type => '', vals => [$ <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10825	10920	
==>>

Deletes the directory and all its contents, removes the instance from
the cache, and undefine <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	2470	2581	
==>"/* @{[$char-$len+1]}-$char */\n" if $char % $len == $len-1;
    }
    print "};\n";
}



#
# create 'src/charse <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	4160	4267	
==>ext="#stay">
          <LineContinue attribute="Comment" context="#stay" />
          <RegExpr attribute="Co <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	30995	31101	
==>ns;
    while (my ($var, $type) = each %{ $self->{_temps} }) {
        push @declarations, aop('declare' => <==
3	/Users/nnunley/parrot/config/auto/cgoto.pm	1811	1921	
==>pLib/core.pm
	$(PERL) $(BUILD_TOOLS_DIR)/ops2c.pl CGP --core
EOF
            TEMP_cg_o => '$(OPS_DIR)/core_ops_ <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	5334	5435	
==>tAPI) {
	printf "%s\t%s\tOK\n", $api, $API{$api} || "-";
    }
}

printf "=== $Obj: %d interfaces ===\ <==
3	/Users/nnunley/parrot/config/auto/byteorder.pm	372	462	
==>:auto);
use base qw(Parrot::Configure::Step::Base);

$description = q{Computing native byte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	533666	533875	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "log10",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44966	45164	
==>Parrot_pop_mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45608	45806	
==>Parrot_pop_mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54181	54315	
==>?:\.\d+)?$/s
         and $_ ne '-0' # the strange case that that RE lets thru
      )
    ) { $_;
    } else {
      if( chr(65) eq 'A <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	483	592	
==>efore that on pie-thon.

=cut

sub new {
    return bless {};
}

sub output_is() {
    my ($self, $code, $outp <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	1278	1386	
==>= glob( File::Spec->catfile( $DIR, "*.test" ) );
    for my $file (@files) {
        my $test = substr $file, <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2258	2388	
==>b entry on compile
        $@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $retval
}

sub YYData {
	my($sel <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2175	2295	
==>b entry on compile
        $@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $retval
}

sub YYData {
	my($sel <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	4420	4520	
==>}
#sub _curr_open_listref { $_[0]{'curr_open'} ||= [] }


sub output_string {
  # Works by faking out <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2278	2413	
==>t non-global subs?
    $self->kind,
    $self->type,
    $name,
    undef,            # No value
    $props,           # Parsed Properti <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21264	21393	
==>Statement::New->new($block, $left, $right);
          $constructing = 0;
        }
        else {
          my $assign = Jako::Con <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	507	611	
==>'$rx_pos' if $name eq '<pos>';
    return '$rx_tmp' if $name eq '<tmp>';
    return '$rx_tmp' if $name eq <==
3	/Users/nnunley/parrot/config/gen/icu.pm	3299	3450	
==>eaders) {
            $header = "$icuheaders/unicode/$header";
            unless (-e $header) {
                $ok = 0;
                warn "error: I <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	52645	52745	
==>r_open { # return a string representation of the stack
  my $curr_open = $_[0]{'curr_open'};

  retur <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4768	4867	
==>a register.
	if (!$dest_reg) {
		$pir .= <<'PIR'
# Get type.
${ITEMP0} = elements ${STYPES}
dec ${IT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	626346	626453	
==>id) ((interface_f)lru->f.real_function)(interpreter, sig_bits, args);\n    {{=pc}};\n",
                  "L <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7725	7822	
==>th
s$="Hello"
if s$ then print "This is true" else print "Oops (string)"
s$=""
if s$ then print "S <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14712	14809	
==>th
s$="Hello"
if s$ then print "This is true" else print "Oops (string)"
s$=""
if s$ then print "S <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11625	11758	
==>}
    }

#    for (0..$#tokens) { print STDERR "  $tokens[$_] $types[$_]\n"; }

    return \@tokens, \@types;
}

sub op {
    Regex::O <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	1649	1748	
==>roduces "ok 1 - Hell not yet frozen over" (or not ok)
  ok( get_temperature($hell) > 0, 'Hell not ye <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	1666	1763	
==>e->base.data;
    return interpreter->code->prederef.code + offset_in_ops;
}
#else
#  define prede <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	75	164	
==>ocs/Section/C.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs: <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6648	6794	
==>rget)

            unless match goto match_fail
          match_success:
            print "matched"
            goto match_end
          match_fai <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7666	7811	
==>rget)
            unless match goto match_fail
          match_success:
            print "matched"
            goto match_end
          match_fai <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	418	515	
==>s::Section::BigNum;

use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	37980	38110	
==>ng for
          
            if($para_type eq 'Data') {
              DEBUG and print "Treating Data paragraph as Plain/Verbatim b <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2970	3074	
==>x)= $_[0] - ${$$self{DOTPOS}} - 1;

		$index < 0
	and	-$index <= @{$$self{STACK}}
	and	return $$self{ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2826	2926	
==>x)= $_[0] - ${$$self{DOTPOS}} - 1;

		$index < 0
	and	-$index <= @{$$self{STACK}}
	and	return $$self{ <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	1695	1839	
==>pc;
    my $new_pc = 0;
    my $offset=0;
    my $op_code;
    my $op;
    my %leaders;
    my @pc_list;
    my @blocks;
    my %opcodes;

    pr <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	18734	18855	
==>{  # i.e., unless it's one word
        $self->whine(
          $para->[1]{'start_line'},
          "'=begin' only takes o <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	70002	70093	
==>pspec,$grammar,$line) = @_;
	pos($grammar)=pos($_[2]);
	return if $grammar =~ m/$OPTIONAL/gc <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	694	816	
==>xpt
      $token .= $ch;
    } elsif($ch eq '?' and
            $token =~ /^[a-z]/) { # Question marks can follow an identi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256355	256454	
==>> "#line 740 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257263	257362	
==>> "#line 740 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258171	258270	
==>> "#line 740 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2 <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11731	11852	
==>/^call/ } );

    print OUT "</pre>";
    print OUT page_footer();

    close(OUT);
    close(IN);


    $outfile = "$outf <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	1575	1695	
==>y $vtable = [];
    my $fh = FileHandle->new($file, O_RDONLY) or
        die "Can't open $file for reading: $!\n";
    my <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	7191	7355	
==>%d%%", $used / ($base / 100) )
            );
        }
        else {
            printf ("%-$max[$_ + 1]s  ", '-');
        }
    }
}

sub Longest {
    $_[0] = $_ <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	532	652	
==>ng_fn        = Parrot::Test::per_test( '.m4', $count );

    return ( join( ' ',
                 File::Spec->join($path_ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	431	545	
==>) {
		system("perl testrun.pl > _output2");
		open(O, "_output2") || die;
		print <O>;
		close(O);
		print "\n";
	} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	525154	525513	
==>" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 606,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 787 \"sr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037178	1037473	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TY <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037958	1038253	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TY <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1154	1260	
==>= elements ${STYPES}
PIR

	# Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we're <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2864	2970	
==>= elements ${STYPES}
PIR

	# Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we're <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1383	1482	
==>t no double-strikethrough, because MSWord can't agree with the
   #  RTF spec on whether it's suppos <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3537	3641	
==>(!cur_opcode)
        break;
    switch (*cur_opcode) {
END_C
}

=item C<run_core_split($base)>

If defin <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	460	584	
==>$line,
    KIND => $kind, # op, 
    TYPE => $type,
    TEXT => $text
  }, $class;
}

sub new_bof
{
  my $class = shift;
  my <==
3	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	604	715	
==>t, @outputs) = @ARGV;
my $checksum;
{
    local $/;
    open(INPUT, $input) or die "open $input: $!";
    $check <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	91	183	
==>006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/yacc.pm - parser generator

=hea <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4592	4696	
==>re and post branch operation hooks.
sub pre_branch($) {
	my $self = shift;
	my $pops = shift;
	my $regist <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3008	3112	
==>re and post branch operation hooks.
sub pre_branch($) {
	my $self = shift;
	my $pops = shift;
	my $regist <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2655	2759	
==>re and post branch operation hooks.
sub pre_branch($) {
	my $self = shift;
	my $pops = shift;
	my $regist <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1252	1388	
==>^\n]{55}         # Snare some characters from a line
         [^\n\ ]{0,50}     #  and finish any current word
        )
        \x20{1,1 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1196	1332	
==>^\n]{55}         # Snare some characters from a line
         [^\n\ ]{0,50}     #  and finish any current word
        )
        \x20{1,1 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	7461	7586	
==>,
            map { ($_->{label} ? ($_->{label}) : ()), $_->{code} } @output4
           );
}

sub dbg_render {
    if (UNIVER <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243852	243990	
==>"
                            ],
                  "BODY" => "#line 632 \"src/ops/cmp.ops\"\n  STRING* l = VTABLE_get_string(interpreter, { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244784	244922	
==>"
                            ],
                  "BODY" => "#line 632 \"src/ops/cmp.ops\"\n  STRING* l = VTABLE_get_string(interpreter, { <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62719	62862	
==>ne,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr($grammar,$pos,0,
						       "<leftop: $name $2 $name>( <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64160	64303	
==>ne,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr($grammar,$pos,0,
						       "<leftop: $name $2 $name>( <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63430	63572	
==>ne,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr($grammar,$pos,0,
						       "<leftop: $name $2 $name> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714679	714775	
==>nterpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, PIO_STDO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715602	715698	
==>nterpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, PIO_STDO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716547	716643	
==>nterpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, PIO_STDO <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	52320	52469	
==>le 51
		 'namelist', 3,
sub
#line 306 "Lua\lua51.yp"
{
            [
                @{ $_[1] },
                BuildLocalVariable( $_[0], $_[ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	968	1089	
==>E   => $ident->value,
    FILE   => $ident->file,
    LINE   => $ident->line,
  }, $class;

  #
  # Check for a few bad co <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	16160	16260	
==>cmp eq '=~' ? "doesn't match" : "matches";
        $self->diag(sprintf <<DIAGNOSTIC, $this, $match, $ <==
3	/Users/nnunley/parrot/config/auto/perldoc.pm	766	909	
==>oc perldoc') || '';
            $version = 1;
            $self->set_result('yes, old version');
        } else {
            if (open FH, "< c9 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18142	18255	
==>re.ops\"\n  if (string_bool(interpreter, {{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "L <==
3	/Users/nnunley/parrot/config/auto/m4.pm	850	960	
==>-version' hangs under FreeBSD
    my %m4_hangs = (freebsd => 1);

    if ($m4_hangs{$osname}) {
        $has_gn <==
3	/Users/nnunley/parrot/lib/Test/More.pm	29801	29977	
==>urn $Refs_Seen{$e1} eq $e2;
            }
            else {
                $Refs_Seen{$e1} = "$e2";
            }

            my $type = _type($e1);
            $type = 'DIFF <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630424	630521	
==>ne 81 \"src/ops/pmc.ops\"\n    PMC *class = {{\@2}};\n    INTVAL type = pmc_type_p(interpreter, cl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631414	631511	
==>ne 81 \"src/ops/pmc.ops\"\n    PMC *class = {{\@2}};\n    INTVAL type = pmc_type_p(interpreter, cl <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4376	4491	
==>self, $core) = @_;

    return "opcode_t * " .
        $self->core_prefix .
        "$core(opcode_t *cur_op, Parrot_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2864	2979	
==>self, $core) = @_;

    return "opcode_t * " .
        $self->core_prefix .
        "$core(opcode_t *cur_op, Parrot_ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	9739	9838	
==>>

  unlike( $this, qr/that/, $test_name );

Works exactly as like(), only it checks if $this B<does <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	1327	1431	
==>="Hello"
c$="WRONG"
call mysub()


' Expect 10
sub second(b() )
	b(5)=10
end sub
sub first(a() )
	call se <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6173	6277	
==>$self = shift;
	
	if ( $self->contains_pod )
	{
		my $formatter = Parrot::Docs::POD2HTML->new;
		
		$self <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	437	534	
==>);


$SIG{__DIE__}=sub {
	print "At BASIC source line $main::sourceline:\n";
	$_=$_[0];
	s/^(.{1,5 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	3947	4050	
==>rx_stack
    rx_stack = new IntList
    rx_match = _default(1, rx_input, 0, rx_stack)
    .return (rx_ma <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	31276	31378	
==>and Z<>'s can occur in any and all
# parts of an L<...> (i.e., in name, section, text, and url).

sub _ <==
3	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	1325	1423	
==>(@parrot_version) {
        die "Illegal version component: '$_' in VERSION file!" unless m/^[1-9]* <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	99	225	
==>ed using Parse::Yapp version 1.05.
#
#        Don't edit this file, use source file instead.
#
#             ANY CHANGE MAD <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	97	219	
==>ed using Parse::Yapp version 1.05.
#
#        Don't edit this file, use source file instead.
#
#             ANY CHANGE MAD <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	6095	6226	
==>ng a
                 # compiler's work for it.
    my $keeping = 1;
    foreach my $stmt (@output2) {
	if ($stmt->{label}) {
	    $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719981	720070	
==>){{\@2}});\n  PIO_putps(interpreter, io, s);\n  if (string_str_index(interpreter, s,\n\tco <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721181	721270	
==>){{\@2}});\n  PIO_putps(interpreter, io, s);\n  if (string_str_index(interpreter, s,\n\tco <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	30398	30518	
==>($v->[2] eq 'I') {
	    # ok ?
	}
    }
    print <<EOC
	$v->[1]\[$key\] = $w->[1] $cmt
EOC
}

sub BINARY_SUBSCR
{
    my <==
3	/Users/nnunley/parrot/config/auto/alignptrs.pm	1583	1686	
==>nt => $align);
    }

    $self->set_result($self->result . " $align byte");
    $self->set_result($self <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	865	974	
==>tch_class P0, $class";
}

sub output_start {
    my ($self, $n) = @_;
    return "re_opengroup P0, $n";
}

sub <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104040	1104125	
==>\tif (type <= 0)\n\t\treal_exception(interpreter, NULL, NO_CLASS,\n\t\t\t\t\"Class '%S <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105255	1105340	
==>\tif (type <= 0)\n\t\treal_exception(interpreter, NULL, NO_CLASS,\n\t\t\t\t\"Class '%S <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19278	19386	
==>);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_generate($node->{children}[$_]);
    $self->_ad <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19766	19874	
==>);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_generate($node->{children}[$_]);
    $self->_ad <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20255	20363	
==>);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_generate($node->{children}[$_]);
    $self->_ad <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	16693	16791	
==>rm->post_load(0);
	$pir .= "### post_load (typed eh)\n";
	$pir .= sub_meta($post_load, { %$mv, LOAD <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2711	2804	
==>t info',
	'harness' => 'Perl test harness',
	'INSTALL' => 'Installation documentation',
	'LICE <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	60481	60572	
==>limiter provided to C<extract_bracketed> was not one of
C<'()[]E<lt>E<gt>{}'>.

=item  C<Did <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	2918	3014	
==>" lineEndContext="#stay">
          <RegExpr attribute="Label" context="#stay" String="[_\\w]+\\: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103859	1103949	
==>ING *class = {{\@2}};\n\tINTVAL type = pmc_type(interpreter, class);\n\tif (!type) {\n\t\tP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105074	1105164	
==>ING *class = {{\@2}};\n\tINTVAL type = pmc_type(interpreter, class);\n\tif (!type) {\n\t\tP <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41536	41625	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _closers_for_all_curr_open {
  my $self = $_[ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	998477	998947	
==>S" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1116,
                  "ARGS" => [
                              "i",
                              "ic",
                              "sc",
                              " <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	685	787	
==>typetable",
);

my $header = <<"HEADER";
/* $fileid
 * Copyright (C) 2005, The Perl Foundation.
 *
 * D <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	20389	20510	
==>ocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new NewOp( $parser,
        'result' => $resu <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21668	21789	
==>ocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new NewOp( $parser,
        'result' => $resu <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	22811	22932	
==>ocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new NewOp( $parser,
        'result' => $resu <==
3	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	1092	1202	
==>ction, $executable);
GetOptions("action=s"     => \$action,
           "executable=s" => \$executable);

if ($a <==
3	/Users/nnunley/parrot/config/auto/gc.pm	1197	1306	
==>conf->data->set(malloc_header => 'malloc.h');
        } else {
            $conf->data->set(malloc_header => ' <==
3	/Users/nnunley/parrot/config/auto/memalign.pm	992	1093	
==>conf->data->set(malloc_header => 'malloc.h');
    } else {
        $conf->data->set(malloc_header => ' <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	10035	10134	
==>es_in_dir_8dot3{$dirname}{$filename_8dot3} ($filename_8dot3)");
        }
        $files_in_dir_8dot <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	22081	22235	
==>', [ 0 ]),
          $loop => @R_ops,
                   aop('pushint', [ 1 ]),
                   aop('goto', [ $loop ]),
          $back => $self->dbprin <==
3	/Users/nnunley/parrot/Configure.pl	6645	6776	
==>ode=(type)      Use the given type for opcodes
   --ops=(files)        Use the given ops files
   --pmc=(files)        Use the given <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2238	2367	
==>lobal',         # TODO: Should we support non-global subs?
    $self->kind,
    $self->type,
    $name,
    undef,            # No <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Compilers.pm	126	223	
==>::Docs::Section::Compilers - Compilers documentation section

=head1 SYNOPSIS

    use Parrot: <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	25165	25281	
==>_letter) {
      DEBUG > 2 and print " $new_letter isn't a valid thing to entend.\n";
      $self->whine(
        $pa <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	728	839	
==>>get('linkflags');
    my $ccflags   = $conf->data->get('ccflags');
    if ($^O =~ /mswin32/i) {
        if ($cc <==
3	/Users/nnunley/parrot/config/auto/readline.pm	740	851	
==>>get('linkflags');
    my $ccflags   = $conf->data->get('ccflags');
    if ($^O =~ /mswin32/i) {
        if ($cc <==
3	/Users/nnunley/parrot/tools/build/vtable_extend.pl	29	129	
==>use warnings;

use lib 'lib';
use Parrot::Vtable;

my $vtable = parse_vtable( 'vtable.tbl' );

my ($f <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	3613	3766	
==>Cs: a PMC of that type
                                for objects: the class PMC */
    PMC *mro;                /* array PMC of [class, parents ... ] */ <==
3	/Users/nnunley/parrot/config/auto/funcptr.pm	506	614	
==>';

@args = qw(verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $jitcapable = $conf->data->get('j <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	1343	1451	
==>sub run {
  use Carp ();
  if( __PACKAGE__ eq ref($_[0]) || $_[0]) { # I'm not being subclassed!
    Carp::cr <==
3	/Users/nnunley/parrot/config/auto/jit.pm	3088	3221	
==>> $jitarchname,
            jitcpuarch  => $jitcpuarch,
            jitcpu      => uc($jitcpuarch),
            jitosname   => uc($jit <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9846	9950	
==>e_value);
      my $op    = $self->require_infix_rel->text;
      my $right = Jako::Construct::Expression <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25382	25486	
==>e_value);
      my $op    = $self->require_infix_rel->text;
      my $right = Jako::Construct::Expression <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	338052	338162	
==>> "#line 103 \"src/ops/io.ops\"\n  {{\@1}} = PIO_STDIN(interpreter);\n  {{+=2}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	36	122	
==>Foundation.
# $Id: /parrot/languages/lua/t/Parrot/Test/Lua.pm 19606 2006-05-30T15:08:0 <==
3	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	504	641	
==>ft;
        my ($symb) = @_;
##    warn "Lookup $symb\n";
        if ( exists $self->{table}{$symb} ) {
            my $defn = $self-> <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	7409	7522	
==>es a data start token.

=cut

sub process_data_start_token
{
    my $self = shift;
    my $token = shift;
    my $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41074	41184	
==>treelet_bit(@$para);
    }
  }
  
  return;
}

sub _traverse_treelet_bit {  # for use only by the routine above <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	22227	22365	
==>> 'is_eq',
         c_output_isnt => 'isnt_eq',
         c_output_like => 'like'
                     );

    foreach my $func ( keys %c_te <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	26677	26805	
==>ST
{
    my ($n, $c, $cmt) = @_;
    my $tos = pop @stack;
    $fast[$n] = $tos;
    my $p;
    if ($p = $lexicals{$c}) {
	if ($p <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	3010	3106	
==>Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := compare_func($got, $expec <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	3406	3508	
==>n for label references and follow goto's until the
    # final destination of each is reached, then rep <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	3600	3728	
==>acute'    , 180,
 'micro'    , 181,
 'para'     , 182,
 'middot'   , 183,
 'cedil'    , 184,
 'sup1'     , 185,
 'ordm'     , 186 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	421	512	
==>luded Parse/Yapp/Driver.pm file----------------------------------------
{
#
# Module Pars <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	410	498	
==>luded Parse/Yapp/Driver.pm file----------------------------------------
{
#
# Module Pars <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47007	47107	
==>}}); }\n  else         { Interp_debug_CLEAR(interpreter, PARROT_ALL_DEBUG_FLAGS); }\n  {{=0,+=2}};\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47790	47890	
==>}}); }\n  else         { Interp_debug_CLEAR(interpreter, PARROT_ALL_DEBUG_FLAGS); }\n  {{=0,+=2}};\n" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16292	16397	
==>oken);

      $self->require_assign;

      my $left  = Jako::Construct::Expression::Value->new($block, $s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17063	17168	
==>oken);

      $self->require_assign;

      my $left  = Jako::Construct::Expression::Value->new($block, $s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17868	17973	
==>oken);

      $self->require_assign;

      my $left  = Jako::Construct::Expression::Value->new($block, $s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561223	561433	
==>_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "fetchmethod",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562306	562516	
==>_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "fetchmethod",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	9669	9980	
==>f ($use eq 'inout')
                {
                    push @temp, $type;
                    push @argdirs, 'io';
                }
                else
                {
                    push @temp, $type;
                    push @argdirs, 'o';
                }
            }

            @args = @temp <==
3	/Users/nnunley/parrot/lib/Test/More.pm	31343	31486	
==>', $a1, $a2 ) {
        warn "eq_hash passed a non-hash ref";
        return 0;
    }

    return 1 if $a1 eq $a2;

    my $ok = 1;
    my $bigg <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107201	107524	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108055	108378	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747947	748112	
==>"p",
                              "ic"
                            ],
                  "BODY" => "#line 194 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_integer_nati <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	1849	1996	
==>pmc_order->{"const$_"}] = "const$_";
            #}
        } else {
            $sorted_pmcs[$n++] = $_;
        }
    }
    ## print "***\n", join <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	698	793	
==>be the relative path from the page to
F<docs/resources>, the image and CSS file directory.

=cut <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	1916	2011	
==>be the relative path from the page to
F<docs/resources>, the image and CSS file directory.

=cut <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400917	401310	
==>",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 464,
                  "ARGS" => [
                              "p",
                              "ic", <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	22065	22177	
==>pir .= binary_dispatch_table($prefix, @r2);
    }

    # Return generated code.
    return $pir;
}


# Generate t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600037	600129	
==>"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601113	601205	
==>"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	17922	18031	
==>k("You tried to run tests without a plan!  Gotta have a plan.");
    }

    lock($self->{Curr_Test});
    $sel <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	18787	18896	
==>k("You tried to run tests without a plan!  Gotta have a plan.");
    }

    lock($self->{Curr_Test});
    $sel <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	7375	7471	
==>urns the path for the file with the specified name in the directory.

=cut

sub path_for_file_wit <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2517	2611	
==>ub end_item_text   { $_[0]->emit_par(-2) }

sub emit_par {
  return unless $_[0]{'Errata_seen'} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1305	1393	
==>I<somestring>) or $token->is_tagname(I<somestring>)

These are shortcuts for C<< $token-> <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1735	1823	
==>I<somestring>) or $token->is_tagname(I<somestring>)

These are shortcuts for C<< $token-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606277	606631	
==>ct_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 687,
                  "ARGS" => [
                              "p",
                              "sc"
                            ] <==
3	/Users/nnunley/parrot/config/inter/make.pm	689	796	
==>onf) = @_;

    my $verbose = $conf->options->get('verbose');

    # undef means we don't have GNU make... d <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	9992	10097	
==>(" and $type[CURR] ne "STRING") {
			push(@expr, [ "(", "PUN" ]); # Make sure no-arg funcs have at
			push <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231169	231281	
==>92 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232073	232185	
==>92 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232977	233089	
==>92 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 :\n       0;\n  {{+=4 <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11473	11730	
==>lt' => $result2,
                            'arg1'   => $result,
                            'arg2'   => $key->[0],
                        );
                        $result = $result2;
                    }
                    push @opcodes, @{ $las <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9701	9934	
==>lt' => $result2,
                        'arg1'   => $result,
                        'arg2'   => $key->[0],
                    );
                    $result = $result2;
                }
                push @opcodes, @{ $las <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8612	8797	
==>lt' => $result2,
                'arg1'   => $result,
                'arg2'   => $key->[0],
            );
            $result = $result2;
        }
        push @opcodes, @{ $las <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	2602	2710	
==>RING_$line _CONST_STRING_",
		    $this_file_seen{$str}, "\n";
	    }
	    else {
		print "#define _CONST_STR <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	3274	3398	
==>push @code, [ 0, $1, "Label", $1, "", undef ];
	$l =~ s/>>//;
    }
    my $source = undef;
    if ($l =~ /^\s*	     # intial <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	820	917	
==>e listed with C<+++> (at the moment the only good thing
is Parrot APIs definitions their declarati <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43954	44283	
==>k",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 56,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349155	349247	
==>eter, {{\@2}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, \"+<\");\n  /* string_cstrin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350157	350249	
==>eter, {{\@2}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, \"+<\");\n  /* string_cstrin <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	43083	43204	
==>de} .= join ", ",@$label if $label;
    }
    $self->{code} .= "\n";
  }
}

sub new {
  my $class = shift;
  my $tree  = s <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	11224	11321	
==>(/\n/, <<'END');
my %rx_match;
$rx_match{'!INPUT'} = $rx_input;
$rx_match{'!GROUPS'} ||= [];
my $r <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	1023	1118	
==>r ( @{$Parrot::OpLib::core::ops} ) {
    my $name = join( '_', $_->{NAME}, @{$_->{ARGS}}[0..$#{$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558949	559170	
==>40,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 131 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9145	9340	
==>_cstring_free(label);\n    interpreter->resume_flag = 2;\n    {{=0}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10261	10456	
==>_cstring_free(label);\n    interpreter->resume_flag = 2;\n    {{=0}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22916	23027	
==>text))
							if defined $::RD_TRACE;
		}
		') . ($self->{"lookahead"} ? '$text = $_savetext and ' : '' ) .'
		l <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4665	4770	
==>="False "
if i imp j then e$="True  " else e$="False "
if i and not j then f$="True   " else f$="False "
p <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	728	819	
==>::Value::Identifier');
  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10690	10785	
==>NOT remove comment

1;

}
#End of include-------------------------------------------------- <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10210	10300	
==>NOT remove comment

1;

}
#End of include-------------------------------------------------- <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	50	138	
==>$Id: /parrot/lib/Parrot/Vtable.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 N <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21896	22001	
==>1)->is_if or $self->get(1)->is_unless) {
        $cond = $self->forth->text;

        $self->require_open_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22829	22934	
==>1)->is_if or $self->get(1)->is_unless) {
        $cond = $self->forth->text;

        $self->require_open_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24476	24581	
==>1)->is_if or $self->get(1)->is_unless) {
        $cond = $self->forth->text;

        $self->require_open_ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	55665	55767	
==>ld is also
blessed into the appropriate class, 

If the extractor fails to match (in the case of a rege <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	582	671	
==>confess("Identifier (" . ref($ident) . ") is not!") unless UNIVERSAL::isa($ident, 'Jako::C <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	582	671	
==>confess("Identifier (" . ref($ident) . ") is not!") unless UNIVERSAL::isa($ident, 'Jako::C <==
3	/Users/nnunley/parrot/config/gen/platform.pm	503	624	
==>ace';
our @args        = qw(miniparrot verbose);

sub runstep {
    my ($self, $conf) = @_;

    my $verbose  = $conf->opt <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	2595	2705	
==>0 = loadlib "match_group"

    .local pmc regex_sub
    .local pmc result
    .local int matched
    .local pmc <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12344	12447	
==>if scalar @{$self->{"items"}};
	return 0;
}

sub leftmostsubrule($)
{
	my $self = shift;

	if ( $#{$self <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2286	2410	
==>$@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exists( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2202	2315	
==>$@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exists( <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	13475	13571	
==>which must be
made to pass before this test can pass (or before an implementation
could be starte <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22181	22289	
==>Expression::Value->new($block, $self->require_value);

        $self->require_close_paren;
      }

      $se <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23114	23222	
==>Expression::Value->new($block, $self->require_value);

        $self->require_close_paren;
      }

      $se <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24760	24867	
==>Expression::Value->new($block, $self->require_value);
        $self->require_close_paren;
      }

      $se <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10080	10194	
==>);

    if (defined($_[0]) && length($_[0])) {
        local $" = ' ';
        _run_command(".${slash}test${exe} @_ <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10661	10775	
==>);

    if (defined($_[0]) && length($_[0])) {
        local $" = ' ';
        _run_command(".${slash}test${exe} @_ <==
3	/Users/nnunley/parrot/lib/Parrot/PMC.pm	1414	1513	
==>erArray => 66,
	ResizablePMCArray => 67,
	ResizableStringArray => 68,
	Slice => 69,
	Super => 70,
	U <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4526	4653	
==>$pattern);
    my $unicode = ($target =~ /\\u/) ? "unicode:" : "";
    if ($captures) { 
        $captures = qq(
            pri <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	46905	47005	
==>====

sub filter {
  my($class, $source) = @_;
  my $new = $class->new;
  $new->output_fh(*STDOUT{IO} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188860	189123	
==>2}}, MMD_CMP) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684529	684698	
==>,
                              "p"
                            ],
                  "BODY" => "#line 550 \"src/ops/pmc.ops\"\n      {{\@1}}->vtable->setprop(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685424	685593	
==>,
                              "p"
                            ],
                  "BODY" => "#line 550 \"src/ops/pmc.ops\"\n      {{\@1}}->vtable->setprop(interpreter, <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29236	29329	
==>ed_dest = 1;
		} elsif ($rule->{'pir'} =~ /\$\{LOADREG\}/ || $rule->{'instruction'} =~ /\$\{LO <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	230	319	
==>s providing common path
logic for C<Parrot::IO::File> and C<Parrot::IO::Directory>.

Insta <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	52283	52450	
==>_[2], 'key' );
        }
	],
	[#Rule 51
		 'namelist', 3,
sub
#line 306 "Lua\lua51.yp"
{
            [
                @{ $_[1] },
                BuildLocalV <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4760	4862	
==>oop
CODE
	},
	'not' => sub {
		my($a1,$a2,$result,$op,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	1055	1151	
==>ate the function-based (slow or fast core) run loop.

=item C<CGoto>

Create the C<goto> run loop <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3422	3534	
==>t_fh'} }   '', 
    $self->{'Thispara'},
    "\n\n"
  ;
  $self->{'Thispara'} = '';
  return;
}

#@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2952	3064	
==>t_fh'} }   '', 
    $self->{'Thispara'},
    "\n\n"
  ;
  $self->{'Thispara'} = '';
  return;
}

#@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/examples/benchmarks/freeze.pl	730	841	
==>me();
printf "  thaw time %.6f\n", $e-$s;

#$s = time();
#my $c = dclone \@a;
#$e = time();
#printf " clone time <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	2153	2270	
==>f @_ != 3;

    my @equivs; # (labels)
    my @output; # (ops)

    # Merge adjacent (equivalent) labels, renaming the <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6764	6853	
==>$"
${STEMP1} = ${PTEMP1}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${ITEMP1} = ${ITEM <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1214	1348	
==>apping algorithm:
      s/(
         [^\n]{55}         # Snare some characters from a line
         [^\n\ ]{0,50}     #  and finish any <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1158	1292	
==>apping algorithm:
      s/(
         [^\n]{55}         # Snare some characters from a line
         [^\n\ ]{0,50}     #  and finish any <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	2797	2897	
==>ted_pat;


# THE EXTRACTION FUNCTIONS

sub extract_delimited (;$$$$)
{
	my $textref = defined $_[0] ? <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5349	5501	
==>esult} } ) {
                print {$FH} ", " unless ($first);
                print {$FH} "$_->{symbol}";
                if ( exists $_->{pragma} an <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6381	6533	
==>esult} } ) {
                print {$FH} ", " unless ($first);
                print {$FH} "$_->{symbol}";
                if ( exists $_->{pragma} an <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	9791	9931	
==>esult} } ) {
            print {$FH} ", " unless ($first);
            print {$FH} "$_->{symbol}";
            if ( exists $_->{pragma} an <==
3	/Users/nnunley/parrot/config/init/defaults.pm	6546	6661	
==>prefix');
    unless (defined $prefix) {
        my $VERSION = $conf->data->get('VERSION');
        my $DEVEL   = $c <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3609	3702	
==>$checklist,$inarray,$outhash)=@_;
	my($prm,$value);
	my($prmlst)={};

	while(($prm,$value) <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3421	3510	
==>$checklist,$inarray,$outhash)=@_;
	my($prm,$value);
	my($prmlst)={};

	while(($prm,$value) <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	2865	2975	
==>erate_pm
{
    my ($self, $conf) = @_;

    my $file = "lib/Parrot/PMC.pm";
    my @pmcs = split(/ /, $conf->da <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	18921	19023	
==>haviour when
    returning a reference to an entire hash or array element.
    Previously these were re <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	37029	37131	
==>y in CHILDREN (not all underlings!)
      # And afterward, anything left in @ell_content will be the ra <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32119	32216	
==>arameters" if $parameters;
    my $body = "VTABLE_$meth(interpreter, PMC_pmc_val(pmc)$arg)";
    m <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33696	33793	
==>arameters" if $parameters;
    my $body = "VTABLE_$meth(interpreter, PMC_pmc_val(pmc)$arg)";
    m <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16398	16506	
==>elf->forth);
      my $op    = $self->forth->text;
      my $right = Jako::Construct::Expression::Value->new( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17169	17277	
==>elf->forth);
      my $op    = $self->forth->text;
      my $right = Jako::Construct::Expression::Value->new( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17974	18082	
==>elf->forth);
      my $op    = $self->forth->text;
      my $right = Jako::Construct::Expression::Value->new( <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	968	1088	
==>count );
        my $out_fn         = Parrot::Test::per_test( '.out', $count );
        my $path_to_parrot = Parrot::Test <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4140	4246	
==>enize the input, and possibly dump the tokens.
#

sub parse
{
  my $self = shift;

  my $root = $self->bloc <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	2784	2890	
==>}
    elsif ($tagname eq 'item-text' or $tagname =~ m/^head\d$/s) 
    {
        $self->process_item_text_o <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3378	3488	
==>rom ops

    $compiler->emit("  $name ", join(", ", $dest, @args));
  }

  #
  # For regular (user-defined) and <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4367	4476	
==>ailed ($?)\n";
    }

    # Link non-grouped PMCs individually
    my @ungrouped_pmcs = grep { ! exists $pmc_g <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4471	4580	
==>ailed ($?)\n";
    }

    # Link non-grouped PMCs individually
    my @ungrouped_pmcs = grep { ! exists $pmc_g <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	905	1013	
==>bs() {
	# No extra subs.
	return "";
}

# Label generation.
sub gen_label() {
	# We'll emit a label for every <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	662	770	
==>bs() {
	# No extra subs.
	return "";
}

# Label generation.
sub gen_label() {
	# We'll emit a label for every <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12640	12741	
==>:Value->new($block, $self->forth);

      $self->require_semicolon;

      my $bitwise = Jako::Constru <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	16382	16480	
==>gative argument!

=item Example 3

The constructor of a generated class can be passed a list
of I<e <==
3	/Users/nnunley/parrot/Configure.pl	7710	7803	
==>--icuheaders=(path)  Location of ICU headers without /unicode
   --icushared=(flags)  Full lin <==
3	/Users/nnunley/parrot/config/gen/icu.pm	3788	3881	
==>--icuheaders=(path)  Location of ICU headers without /unicode
   --icushared=(flags)  Full lin <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7927	8055	
==>r \"$_\"\n(should be \"#$indent$2\" because it is inside of " . (join ' > ', @stack) . ")\n")
            }
        }
    }
}


s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844	942	
==>NameSpace_name(Interp* interpreter, PMC* pmc);\n\n\n\n/*\n** io.ops\n*/\n\n#include \"../io/io_priv <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964757	964924	
==>"s",
                              "i"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965765	965932	
==>"s",
                              "i"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	6014	6096	
==>tion.pod>, L<Parrot::Configure::Data>,
L<Parrot::Configure::Step>, L<Parrot::Config <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6490	6601	
==>When two are exchanged,
   ' force another pass by setting Exchange to TRUE.
   FOR I = 2 TO Max
      IF A$(I-1 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16143	16254	
==>When two are exchanged,
   ' force another pass by setting Exchange to TRUE.
   FOR I = 2 TO Max
      IF A$(I-1 <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	62404	62509	
==>the start of
a variable, but didn't find any of them.

=item C<Bad identifier after dereferencer>

C<extra <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966739	966938	
==>",
                              "sc",
                              "i"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_ccla <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967748	967947	
==>",
                              "sc",
                              "i"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_ccla <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	28564	28671	
==>{
}

sub _op_truncate {
}

sub _op_round {
}

sub _op_rationalize {
}

sub _op_exp {
}

sub _op_log {
}

sub <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8184	8291	
==>and  $number > 255) {
      $Name2character{$name} = $FAR_CHAR;
      # substitute for Unicode characters, f <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	20382	20482	
==>goto B2_BRANCH_$prefix$_->{'code'}\n";
                $byte2_todo{"$prefix$_->{'code'}"} = $_->{'gro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819650	819747	
==>n  if (!entry) {\n    internal_exception(99, \"Stack Depth wrong\");\n  }\n  {{\@1}} = get_entry_t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820610	820707	
==>n  if (!entry) {\n    internal_exception(99, \"Stack Depth wrong\");\n  }\n  {{\@1}} = get_entry_t <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	9122	9251	
==>B";
			    } else {
				$symbol = $TypeLong ? "unknown" : "D?";
			    }
			    $symbol .= "_data" if $TypeLong;
			} elsif ($unde <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	4375	4491	
==>rint "* end of ", scalar(@lines), " lines\n";
      }

      $self->SUPER::parse_lines(@lines);
      
    } elsif(ex <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449378	449596	
==>bsolute(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	336	430	
==>gram,
for speed comparisons.

Calculates a value for M ops/s (million operations per second) us <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	332	426	
==>gram,
for speed comparisons.

Calculates a value for M ops/s (million operations per second) us <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2322	2438	
==>UOTE . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/src/pmc' . $PATHQUOTE . " " .
        $source;
};

su <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2117	2233	
==>UOTE . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/src/pmc' . $PATHQUOTE . " " .
        $source;
};

su <==
3	/Users/nnunley/parrot/languages/lua/luac.pl	408	522	
==>arning} = 1;    # 0, 1
$parser->YYData->{verbose_info}    = 1;    # 0, 1
$parser->Run(@ARGV);

if ( exists $par <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	503	632	
==>}
        and $parser->YYData->{verbose_error} );
}

sub Warning {
    my $parser = shift;
    my ($msg) = @_;

    $msg | <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172246	172338	
==>ine 218 \"src/ops/cmp.ops\"\n  if (0 != string_equal(interpreter,\n      {{\@1}}->vtable->get <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173224	173316	
==>ine 218 \"src/ops/cmp.ops\"\n  if (0 != string_equal(interpreter,\n      {{\@1}}->vtable->get <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881109	881460	
==>"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 998,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 244 \"src <==
3	/Users/nnunley/parrot/config/auto/signal.pm	608	746	
==>=> undef,
        has_sigatomic_t    => undef,
        has_sigaction      => undef,
        has_setitimer      => undef
    );
    if (defi <==
3	/Users/nnunley/parrot/examples/benchmarks/arriter.pl	262	356	
==>arks/arriter.pl

=head1 DESCRIPTION

Sets up an array and then loops over its contents, increme <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1226	1364	
==>$pasm_f @other",
            CD => '..', # $self->{relpath}, 
            STDOUT => $out_f, STDERR => $out_f, 
        );
        my $prog_ <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	1865	1964	
==>s not an API">.

=back

=head1 RULES

You can sometimes use C preprocessor defines to shorten the AP <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	8623	8715	
==>*interpreter, struct call_state *st, INTVAL val)
{
    Parrot_init_ret_nci(interpreter, st, " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544226	544339	
==>INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = a, saved_var2 = b; \n\n if(a==0 || b==0) { {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545562	545675	
==>INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = a, saved_var2 = b; \n\n if(a==0 || b==0) { {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546898	547011	
==>INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = a, saved_var2 = b; \n\n if(a==0 || b==0) { {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958159	958397	
==>E" => "function",
                  "CODE" => 1078,
                  "ARGS" => [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 581 \"src/ops/string. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302103	302213	
==>cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302979	303089	
==>cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303855	303965	
==>cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347693	347928	
==>[
                              "p",
                              "sc",
                              "sc"
                            ],
                  "BODY" => "#line 148 \"src/ops/io.ops\"\n  /* These char * need to go away soon <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	10531	10655	
==>t_rule_def {
    my ($self, $name, $L_trymatch, $L_backup, $num_groups, $startup) = @_;

    my $trymatch = $self->output_lab <==
3	/Users/nnunley/parrot/config/auto/pack.pm	2074	2194	
==>> 'C',
        packtype_n => ($conf->data->get('numvalsize') == 12 ? 'D' : 'd')
    );

    #
    # Find out what integer <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	8711	8862	
==>};
  for (@args) {
    my $arg = $_->{value};
    $self->_new_lex($arg, "P$num");
    $num++
  }

  $temp = 'none';
  for (_get_args($node,2)) {
    $se <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	50600	50742	
==>tract_codeblock($text);
                }

        # Remove the first round-bracketed list (which may include
        # round- or curly-bracket <==
3	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	1719	1853	
==>ref $_ eq 'ARRAY' ) {
                for my $symbtab ( @{$_} ) {
                    if ( defined($symbtab) and $symbtab->isa('SymbT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669116	669339	
==>->push_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669888	670111	
==>->push_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1549	1646	
==>tes => { kind => 'postfix', name => '--' } });
  $self->ident->sax($handler);
  $handler->end_elem <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031587	1031838	
==>enum_first_type].size;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032456	1032707	
==>enum_first_type].size;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	7463	7574	
==>stack;
		}
		push @stack, $item;
		
	}
	push @stream, reverse @stack;	
	#print STDERR "Outta RPN convert\n";
	re <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	43170	43279	
==>$i-1] !~ m{^#:[ \^\/\%]*\n?$}s;
     # look at a formatty line preceding a nonformatty one
    DEBUG > 5 and p <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4525	4633	
==>urn $pir;
}

sub post_op($$) {
	# Nothing to do.
	return "";
}

# Pre and post branch operation hooks.
sub pr <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2941	3049	
==>urn $pir;
}

sub post_op($$) {
	# Nothing to do.
	return "";
}

# Pre and post branch operation hooks.
sub pr <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11007	11123	
==>n't read $infile: $!\n";
    open (OUT, ">$outfile") or die "Can't write $outfile: $!\n";

    print OUT page_header( <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11491	11607	
==>n't read $infile: $!\n";
    open (OUT, ">$outfile") or die "Can't write $outfile: $!\n";

    print OUT page_header( <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11955	12071	
==>n't read $infile: $!\n";
    open (OUT, ">$outfile") or die "Can't write $outfile: $!\n";

    print OUT page_header( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084867	1085226	
==>ental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085920	1086279	
==>ental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086973	1087332	
==>ental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLA <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	6642	6772	
==>ine = <$file>)
    {
        # rename labels
        if ($line =~ /^\s* (\w+) \s* : \s*$/mx) {
            $code .= emit($1."_%0:", <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3296	3392	
==>AZY_MOVE_$register_num

# No lazy move available - need to refer to register.
${STEMP0} = "$"
${S <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5058	5154	
==>AZY_MOVE_$register_num

# No lazy move available - need to refer to register.
${STEMP0} = "$"
${S <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26090	26192	
==>}

sub _op_times {
  my ($self,$node) = @_;
  my $return;
  my $num_children = defined $node->{children <==
3	/Users/nnunley/parrot/config/auto/alignptrs.pm	628	744	
==>$self->set_result('skipped');
        return $self;
    }

    $self->set_result('');
    my $align;
    if (defined( <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	1688	1798	
==>fs';
        return ${$class . "::description"};
    }
}

=item * C<args()>

Accepts no arguments and returns t <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25079	25181	
==>}

sub _op_minus {
  my ($self,$node) = @_;
  my $return;
  my $num_children = defined $node->{children <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	1554	1667	
==>_path);
    
    # If we are root then the above will make parent the same as path.
    undef $parent_path if $par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841580	841672	
==>ODY" => "#line 40 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},0);\n  { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842344	842436	
==>ODY" => "#line 40 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},0);\n  { <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29604	29725	
==>he name of the output file we are
generating.

=cut

sub body
{
    my ($self, $method, $line, $out_name) = @_;

    my $m <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30246	30367	
==>he name of the output file we are
generating.

=cut

sub body
{
    my ($self, $method, $line, $out_name) = @_;

    my $m <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13821	13941	
==>he name of the output file we are
generating.

=cut

sub body
{
    my ($self, $method, $line, $out_name) = @_;

    my $ <==
3	/Users/nnunley/parrot/languages/APL/t/APL.pm	339	443	
==>is);

BEGIN {
  # APL *really* needs unicode to function, bail out if we don't have it.
  if (!$PConfig{h <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	423	527	
==>GE__->_export_to_level( 2, __PACKAGE__ );
}

my $count;

foreach my $meth ( qw(is isnt like) ) {
    no s <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	340	444	
==>GE__->_export_to_level( 2, __PACKAGE__ );
}

my $count;

foreach my $meth ( qw(is isnt like) ) {
    no s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566773	567061	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "does",
                  "FLAGS" => ":object_base",
                  "A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567667	567955	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "does",
                  "FLAGS" => ":object_base",
                  "A <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	2821	2979	
==>evel]
    tools/build/revision_c.pl                       [devel]
    vtable.tbl                                      [devel]
);

open my $MANI, '>', 'MANIFEST <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12886	13016	
==>ntinue {
    #   } else {
    #
 
    if ($token->is_close_brace) {
      my $cont;
    
      if ($self->get(1)->is_continue or $s <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9526	9648	
==>and	do {
				$$token eq ''	# End of input: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	print STDERR "**At eo <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9097	9215	
==>and	do {
				$$token eq ''	# End of input: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	print STDERR "**At eo <==
3	/Users/nnunley/parrot/Configure.pl	5248	5350	
==>nly
   --verbose-step=regex Set verbose for step matching description
   --nomanicheck        Don't che <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5519	5621	
==>se)>

Returns the C code following the run core function.

=cut

sub run_core_finish
{
    my ($self, $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3855	3957	
==>se)>

Returns the C code following the run core function.

=cut

sub run_core_finish
{
    my ($self, $ <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	6260	6363	
==>/^ *[a-z0-9_]+\.[chly]\s*\n//mi; # own filename - kludgy.
	$desc = $_;
	$desc = ""  # it's only emacs va <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	252	345	
==>represents a Parrot operation (op, for short), as read
from an ops file via C<Parrot::OpsFile> <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	474	577	
==>------------------
{
#
# Module Parse::Yapp::Driver
#
# This module is part of the Parse::Yapp pack <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	2712	2812	
==>ethod.

Accepts a list and returns a L<Parrot::Configure> object.

=cut

sub add_step
{
    my ($self <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	463	561	
==>------------------
{
#
# Module Parse::Yapp::Driver
#
# This module is part of the Parse::Yapp pack <==
3	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	2171	2296	
==>);
        print "\n    " unless $i % 8;
    }
    print "\n";
}

print << "EOF";
}; /* parrot_config */

void
Parrot_set_conf <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	35428	35532	
==>s the real L<...> parsing stuff...
      # "With the ill behavior, with the ill behavior, with the ill be <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6859	6960	
==>NS]/);

  my $type = $self->_save_1('I');
  my $head = $self->_save_1('P');
  my $label = $self->_gens <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2821	2936	
==>e/$1") or die("Couldn't rename $1 to $dirname/$1.");
            $path =~ s/\Q$SRCDIR\E//g;
            $generated_f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	639599	639697	
==>tantiate\", typ);\n\t  }\n\t  class = interpreter->vtables[typ]->class;\n\t  break;\n      case PAR <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	4788	4895	
==>ame  = $_[1];
	my $owner = $_[2];
	my $line  = $_[3];
	my $replace = $_[4];

	if (defined $owner->{"rules"}{ <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	193	292	
==>s/s

=head1 SYNOPSIS

    % perl examples/mops/mops.pl

=head1 DESCRIPTION

A Perl implementation of <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	189	288	
==>s/s

=head1 SYNOPSIS

    % perl examples/mops/mops.pl

=head1 DESCRIPTION

A Perl implementation of <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2381	2490	
==>rrot/src/pmc' . $PATHQUOTE . " " .
        $source;
};

sub partial_link_cmd {
    my ($target, $libs, $source <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2176	2285	
==>rrot/src/pmc' . $PATHQUOTE . " " .
        $source;
};

sub partial_link_cmd {
    my ($target, $libs, $source <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1111	1211	
==>ct, you might
get an object of this class.

This is a subclass of L<Pod::Simple::PullParserToken> and <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2718	2857	
==>( ' ', map { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join( <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3027	3166	
==>( ' ', map { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join( <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2822	2961	
==>( ' ', map { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join( <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	49831	49962	
==>$_[2] );
            BuildAssigns( $_[0], $_[2], [] );
        }
	],
	[#Rule 32
		 '_if_then', 3,
sub
#line 195 "Lua\lua51.yp <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2393	2497	
==>alue($what);
    return ("print $what;");
}

sub output_test {
    my ($self, $test, $val1, $val2, $dest) <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2710	2813	
==>alue($what);
    return ("print $what");
}

sub output_test {
    my ($self, $test, $val1, $val2, $dest) <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	8715	8834	
==>R             or die "Can't close    stderr" if $err;

    open  STDOUT, ">&OLDOUT" or die "Can't restore  stdout" if $o <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8247	8353	
==>R or die "Can't close    stderr" if $err;

    open STDOUT, ">&OLDOUT" or die "Can't restore  stdout" if $o <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	1812	1914	
==>ose') && $self->get('verbose') == 2;

    print "Setting Configuration Data:\n(\n" if $verbose;

    wh <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28126	28235	
==>pected;
				$Parse::RecDescent::unexpected
				   = ($lastsep||"").$text;
			}'.($::RD_NO_TRACE?'':'
			Parse: <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30200	30309	
==>pected;
				$Parse::RecDescent::unexpected
				   = ($lastsep||"").$text;
			}'.($::RD_NO_TRACE?'':'
			Parse: <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32401	32510	
==>pected;
				$Parse::RecDescent::unexpected
				   = ($lastsep||"").$text;
			}'.($::RD_NO_TRACE?'':'
			Parse: <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	459	561	
==>ms to the standards in
PDD 7.

To run it on all the C source code files in the distribution pass in
C<a <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16664	16760	
==>pe things very cautiously:
        $x =~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\| <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10112	10204	
==>pe things very cautiously:
    $x =~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\| <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11071	11169	
==>"${CURIC}" == "73" goto pre_call_HAS_RETURN_${CURIC}
goto pre_call_NO_RETURN_${CURIC}
pre_call_HAS_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8257	8355	
==>"${CURIC}" == "73" goto pre_call_HAS_RETURN_${CURIC}
goto pre_call_NO_RETURN_${CURIC}
pre_call_HAS_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5919	6017	
==>"${CURIC}" == "73" goto pre_call_HAS_RETURN_${CURIC}
goto pre_call_NO_RETURN_${CURIC}
pre_call_HAS_ <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1694	1807	
==>')) {
        $prog = prompt($prompt, $prog ? $prog : $conf->data->get($util));
    }

    my ($stdout, $stderr, $ <==
3	/Users/nnunley/parrot/config/inter/make.pm	1568	1681	
==>')) {
        $prog = prompt($prompt, $prog ? $prog : $conf->data->get($util));
    }

    my ($stdout, $stderr, $ <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1708	1821	
==>')) {
        $prog = prompt($prompt, $prog ? $prog : $conf->data->get($util));
    }

    my ($stdout, $stderr, $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302536	302976	
==>IRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 352,
                  "ARGS" => [
                              "i",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 980 \"src/op <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	628	732	
==>> 2) {  # Writing: $token->attr('attrname', 'newval')
    ${$_[0][2] ||= {}}{ $_[1] } = $_[2];
  } else { <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	15	111	
==>kage Pod::Simple::LinkSection;
  # Based somewhat dimly on Array::Autojoin

use strict;
use Pod:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947137	947230	
==>ception(interpreter, NULL, 1,\n\t\"charset '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948039	948132	
==>ception(interpreter, NULL, 1,\n\t\"charset '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	3022	3217	
==>$rule) {
                # Validate it.
                validate_rule($rule);

                # Save it.
                push @rules, $rule;
            }

            # Create new rule structure <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	5558	5705	
==>ling)$/) {
                if ($has_class) {
                    die "Duplicate value for class in rule $rule->{'name'}\n";
                } else { <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	36184	36300	
==>=> \&_op_number_string,
  'string->number' => \&_op_string_number,

###
### Character
###

  'char?'            => \& <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11486	11606	
==>th->text, 0, -1);
      my $value = Jako::Construct::Expression::Value->new($block, $self->forth);

      $self->require_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12033	12153	
==>th->text, 0, -1);
      my $value = Jako::Construct::Expression::Value->new($block, $self->forth);

      $self->require_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12576	12696	
==>th->text, 0, -1);
      my $value = Jako::Construct::Expression::Value->new($block, $self->forth);

      $self->require_ <==
3	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	686	865	
==>nce where the macro_name is the key
macros:             macro(s)
                  { my $dummy = { map { $_->[0] => 
                                        { flag         => $_->[ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	19939	20076	
==>king at other target names
      }

      if($neg) {
        if( $dont_ignore ) {
          $dont_ignore = '';
          delete $para->[1] <==
3	/Users/nnunley/parrot/config/auto/gc.pm	1511	1630	
==>uld be somewhere here
    unless ($test >= 128 && $test < 155) {
      # if not, use own copy of malloc
      $gc = 'mal <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	7054	7212	
==>gw Perl
        } else {
            warn "unknown configuration";
        }

        $conf->data->set(
            parrot_is_shared     => 1,
            has_ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	3300	3455	
==>cated temporary!";
}

######################## Default rewrite rules #######################

sub rewrite_terminate {
    my ($self, $op, $R) = @_;
    retu <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	4016	4130	
==>array, $textref,
			     "Did not find a suitable bracket in delimiter: \"$_[1]\"",
			     0;
	}
	my $posbug = pos <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853351	853460	
==>ring.ops\"\n  {{\@1}} = string_append(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854133	854242	
==>ring.ops\"\n  {{\@1}} = string_append(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	1953	2051	
==>r, puree the onions, tomatoes, tomatillos,
and ginger root.  You can even do it with a Braun hand " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612478	612756	
==>"FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 694 <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23413	23509	
==>r(2..$#{$node->{children}}) {
    my $temp = $self->_generate($node->{children}[$_]);
    my $lab <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23875	23971	
==>r(2..$#{$node->{children}}) {
    my $temp = $self->_generate($node->{children}[$_]);
    my $lab <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605369	605567	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "addattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606159	606357	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "addattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30251	30367	
==>CODE <<SCOPYDIS;
	
	#
	# Structure copy dispatch routine
	# Call with S0 set to the type
	# Source in P6
	# Dest retu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261623	261800	
==>",
                              "sc"
                            ],
                  "BODY" => "#line 793 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} == {{\@3}};\n    {{+=4}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262476	262653	
==>",
                              "sc"
                            ],
                  "BODY" => "#line 793 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} == {{\@3}};\n    {{+=4}};\n <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	1519	1635	
==>.; X: goto Y; with goto Y.
 3. Eliminate unreachable code.
 4. Eliminate jumps to the following address.
 5. Eliminat <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	282190	282351	
==>"n"
                            ],
                  "BODY" => "#line 908 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}};\n  {{+=4}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283035	283196	
==>"n"
                            ],
                  "BODY" => "#line 908 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}};\n  {{+=4}};\n",
                  "L <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10983	11090	
==>Regex::Ops::Tree::alternate::render {
    my $op = shift;
    my $str = '';
    foreach my $case (@{ $op->{a <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	5043	5153	
==>returns Bool is export {
    for (1 .. $count) {
        # Hack -- PIL2JS doesn't support multisubs correctly y <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	33929	34035	
==>}}->vtable->set_pointer(interpreter, {{\@1}}, (CUR_OPCODE + {{\@2}}));\n  {{+=3}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	5032	5128	
==>contains POD, then a link will be made to that file's
documentation file.

=cut

sub process_file <==
3	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	1392	1501	
==>nteractive mode
	set S0, ""
	
	set S0, ""
	read S0, 256
	length I1, S0
	eq I1, 1, MAINLOOPR
	save S0
	bsr STRI <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15069	15171	
==>en_buffer'} },
       $self->{'start_token_class'}->new(@_);
  return;
}

sub _handle_text {
  my $self <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	17173	17273	
==>is function serves a single purpose. It takes the function
   signature for a C function we want to c <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	18411	18510	
==>t, 2000-11-08, v0.59.

    Added the ability for compile time class creation.

Modified by Damian Co <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2326	2416	
==>ents_html($source, $target, $silent)>

Iterates over the group's contents and calls C<write <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27604	27704	
==>text;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'unless')
		. ' ($text =~ s/\A($skip)/$lastsep= <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29714	29814	
==>text;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'unless')
		. ' ($text =~ s/\A($skip)/$lastsep= <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31811	31911	
==>text;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'unless')
		. ' ($text =~ s/\A($skip)/$lastsep= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722211	722316	
==>G * const s = {{\@2}};\n  PMC * const io = {{\@1}}; /* TODO Can this be localized? */\n  if (s && string_l <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723240	723345	
==>G * const s = {{\@2}};\n  PMC * const io = {{\@1}}; /* TODO Can this be localized? */\n  if (s && string_l <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	7490	7597	
==>= "$FindBin::Bin/../../vtable.tbl";
    my $default = parse_vtable($file);
    my $dump    = $file;
    $dum <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	6352	6453	
==>h $d;
    Carp::croak "\"$d\" isn't a valid directive name"
     unless $d =~ m/^[a-zA-Z][a-zA-Z0-9]*$ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	7146	7247	
==>h $d;
    Carp::croak "\"$d\" isn't a valid directive name"
     unless $d =~ m/^[a-zA-Z][a-zA-Z0-9]*$ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	1963	2061	
==>he current token. With an argument, gives the
# token at that absolute position. If a count is give <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1014998	1015090	
==>rc/ops/sys.ops\"\n  const char * const tmp = strerror({{\@2}});\n  {{\@1}} = string_make(inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015822	1015914	
==>rc/ops/sys.ops\"\n  const char * const tmp = strerror({{\@2}});\n  {{\@1}} = string_make(inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509000	509194	
==>"#line 665 \"src/ops/math.ops\"\n  {{\@1}} = - {{\@1}};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5558	5672	
==>0];
        $actions=$$states[$stateno];

#DBG>	print STDERR ('-' x 40),"\n";
#DBG>		$debug & 0x2
#DBG>	and	pr <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5291	5400	
==>0];
        $actions=$$states[$stateno];

#DBG>	print STDERR ('-' x 40),"\n";
#DBG>		$debug & 0x2
#DBG>	and	pr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095206	1095414	
==>nd(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095901	1096109	
==>nd(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	3281	3379	
==>()>

Sequentially executes step in the order they were registered.  The invoking
L<Parrot::Configur <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2026	2130	
==>compiler->emit("  goto _LABEL_$name");
  } else {
    $left  = $left->compile($compiler);
    $right = $r <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3482	3576	
==>lf->arg($num - 1));
}

=item C<restart_address($address)>

Returns the C code for C<restart ADD <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	42388	42479	
==>rently implemented that way, in order
to preserve pre-5.005 compatibility).

Using C<gen_ext <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956458	956696	
==>,
                  "CODE" => 1076,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 576 \"src/ops/string.ops\"\n  {{\@1}} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9006	9138	
==>unless ($self->skip_open_brace) { # DEFINITION
        $self->require_semicolon;
      }
      else {
        my $sub = Jako::Constru <==
3	/Users/nnunley/parrot/config/auto/jit.pm	927	1037	
==>name};
    my ($cpuarch, $osname) = split(/-/, $archname);

    if (!defined $osname) {
        ($osname, $cpua <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614835	614934	
==>\"\n    opcode_t *next = {{^+4}};\n    INTVAL offset;\n    offset = Parrot_class_offset(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615986	616085	
==>\"\n    opcode_t *next = {{^+4}};\n    INTVAL offset;\n    offset = Parrot_class_offset(interpreter, <==
3	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1025	1114	
==>udir}) {
	$icu_section = qq{
Source: "$options{icudir}\\license.html"; DestDir: "{app}\\ic <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19244	19346	
==>which eq "while") {
			$_="@code ne $result, $false, DO_$do->{jump}";
		} else {
			$_="@code eq $resul <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2960	3053	
==>classes, if C<run_core_func_decl()> is implemented, to
return the C code prior to the run core <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	761	861	
==>, $cond, $left, $op, $right) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Co <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	789	889	
==>, $cond, $left, $op, $right) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Co <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	473	573	
==>, $cond, $left, $op, $right) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Co <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	13858	13963	
==>l('alt_back');
    my $try_S = $self->genlabel('alt_S');
    my $next = $self->genlabel('next');

    my ( <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35886	35982	
==>{ goto &{''.qq{$_[1]$_[0]->{subrule}}} }"; }
	else
		{ return "\\&$_[1]$_[0]->{subrule}"; }
}

su <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	288	380	
==>C<Parrot::IO::Directory>.

Instances created with C<new()> are cached so that there is only o <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	7723	7830	
==>print "$self 's source is scalar ref $_[0]\n";
    return;
  } elsif(ref( $_[0] ) eq 'ARRAY') {
    $self->{ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	259	352	
==>TDOUT{IO};
  $new->nix_X_codes(1);
  return $new;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	5121	5212	
==>RRORS_TIME} = time;
		$self->{POD_ERRORS} = '';
		$checker->output_string(\$self->{POD_ERROR <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8945	9108	
==>g & 0x04
#DBG>		and	print STDERR "Forced Error recovery.\n";

            $$check='';

        };

        #Error
            $$errstatus
        or   do { <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8543	8697	
==>g & 0x04
#DBG>		and	print STDERR "Forced Error recovery.\n";

            $$check='';

        };

        #Error
            $$errstatus
        or   do { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	639238	639343	
==>EMS(sig)) {\n        real_exception(interpreter, NULL, E_ValueError,\n            \"Empty signature with i <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5863	5987	
==>s{ACTIONS})) {

				defined($$token)
            or	do {
				($$token,$$value)=&$lex($self);
#DBG>				$debug & 0x01
#DB <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5584	5702	
==>s{ACTIONS})) {

				defined($$token)
            or	do {
				($$token,$$value)=&$lex($self);
#DBG>				$debug & 0x01
#DB <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	871	978	
==>$1))
    /eg;
  }
  return join ', ', @out;
}


__END__

=head1 NAME

Pod::Simple::PullParserToken -- tokens <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1164	1298	
==>', # $self->{relpath}, 
            STDOUT => $pasm_f, STDERR => $pasm_f,
        );
        Parrot::Test::run_command( 
            ". <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1073	1207	
==>', # $self->{relpath}, 
            STDOUT => $pasm_f, STDERR => $pasm_f,
        );
        Parrot::Test::run_command( 
            ". <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	619797	619886	
==>preter, left, enum_class_BigInt);\n\t    VTABLE_set_integer_native(interpreter, left, a);\ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1203	1325	
==>e      { return shift->{TYPE};      }
sub name      { return shift->{NAME};      }
sub props     { return %{shift->{PROPS}} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1538	1660	
==>e      { return shift->{TYPE};      }
sub name      { return shift->{NAME};      }
sub props     { return %{shift->{PROPS}} <==
3	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	340	445	
==>ARN   = 1;
$::RD_HINT   = 1;
#$::RD_TRACE  = 1;
$::RD_TRACE  = undef;
my $frozen_parser = Parse::RecDescen <==
3	/Users/nnunley/parrot/config/auto/env.pm	368	463	
==>tep::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining if your C library <==
3	/Users/nnunley/parrot/config/auto/isreg.pm	350	445	
==>tep::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining if your C library <==
3	/Users/nnunley/parrot/config/auto/memalign.pm	369	464	
==>tep::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining if your C library <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	11273	11389	
==>ntil end of head1
      if( $token->is_text ) {
        DEBUG and print "   Adding \"", $token->text, "\" to head1-co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009836	1009925	
==>line 659 \"src/ops/string.ops\"\n  {{\@1}} = string_compose(interpreter, {{\@2}});\n  {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010601	1010690	
==>line 659 \"src/ops/string.ops\"\n  {{\@1}} = string_compose(interpreter, {{\@2}});\n  {{+= <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	787	887	
==>changed.
#
# (c) Copyright 1998-2001 Francois Desarmenien, all rights reserved.
# (see the pod tex <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	765	862	
==>changed.
#
# (c) Copyright 1998-2001 Francois Desarmenien, all rights reserved.
# (see the pod tex <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2524	2618	
==>'Licence file',
	'BUGS' => 'Project info',
	'CFLAGS' => 'CFLAGS file',
	'ChangeLog' => 'Project <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15513	15614	
==>r);		# Repair unary -, functions, etc...
		@stream=convert_to_rpn(@expr);	# Get infix into RPN
		($ass <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	29471	29567	
==>unctions". In
# "L<Time::HiRes>" and even "L<|Time::HiRes>", there is no link text. Note
# that l <==
3	/Users/nnunley/parrot/config/auto/jit.pm	177	269	
==>head1 DESCRIPTION

Determines the CPU architecture, the operating system, and whether there i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826558	826648	
==>al_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_FLOAT) {\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827628	827718	
==>al_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_FLOAT) {\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676652	676851	
==>=> [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 473 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_integ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	2411	2591	
==>hift if @_;
  return $self->{PREFIX};
}


###############################################################################

=head2 BLOCK->set_symbol(NAME, VALUE)

Set a symbol in thi <==
3	/Users/nnunley/parrot/Configure.pl	5396	5511	
==>he installation prefix

   --ask                Have Configure ask for commonly-changed info

Compile Options:

   - <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	1320	1506	
==>n.pod                          [devel]doc
    docs/debug.pod                                  [devel]doc
    docs/dev/dod.pod                                [devel]doc
    docs/dev/events <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26032	26161	
==>opcodes, @{ $cond->[1] };
        push @opcodes, new BranchUnlessOp( $parser,
            'arg1'   => $cond->[0],
            ' <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26906	27023	
==>opcodes, @{ $cond->[1] };
    push @opcodes, new BranchUnlessOp( $parser,
        'arg1'   => $cond->[0],
        ' <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	35946	36089	
==>" => 74,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36204	36347	
==>" => 74,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2198	2309	
==>t );
        my $lang_out_fn = $self->get_out_fn( $count );
        my @test_prog   = $self->get_test_prog( $pat <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	10744	10849	
==>=~ s/[lL]$//;
	print <<EOC;
	$pmc = new .BigInt $cmt
	$pmc = "$c"
EOC
	push @stack, [$n, $pmc, 'P'];
	retu <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	10197	10296	
==>n(' ', map { $_->[0] } @expr);
	return(@expr);
}
sub pushthing {
	my($code, $optype, $sym, $type, $o <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	4309	4431	
==>op->{result}->{symbol}, $op->{arg1}, $op->{arg2}\n";
        }
        else {
            print {$FH} "  new $op->{resul <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10353	10460	
==>ebug & 0x10
#DBG>		and	print STDERR "**Shift \$error token and go to state ".
#DBG>						 $$states[$$stack <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9886	9991	
==>ebug & 0x10
#DBG>		and	print STDERR "**Shift \$error token and go to state ".
#DBG>						 $$states[$$stack <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720624	720982	
==>=> [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 808,
                  "ARGS" => [
                              "p",
                              "nc"
                            ],
                  "BODY" => "#line 133 \"sr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	987	1112	
==>=> $type,
    NAME   => $ident->value,
    PROPS  => $props,
    ARGS   => $args,

    DEBUG  => 1,
    FILE   => $ident->file <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1037	1157	
==>=> $type,
    NAME  => $ident->value,
    PROPS => $props,
    ARGS  => $args,

    DEBUG => 1,
    FILE  => $ident->file <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	61394	61550	
==>r,
        yyerror => sub { return; },
#        yydebug => 0x17,
        #    Bit Value    Outputs
        #    0x01         Token reading (useful for Le <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7204	7302	
==>TEMP0}
${STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
PIR
	}

	return $pir;
}

sub post_load($ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5026	5124	
==>TEMP0}
${STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
PIR
	}

	return $pir;
}

sub post_load($ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54258	54391	
==>u
      )
    ) { $_;
    } else {
      if( chr(65) eq 'A' ) {
        s<([^\x20\x21\x23\x27-\x3F\x41-\x5B\x5D-\x7E])>
         #<$pr <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20428	20540	
==>NG: * in TYPE not supported yet for $name\n";
				feedme;
				feedme;
			}
			while($type[CURR] eq "STMT" or $typ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	260	347	
==>RIPTION

C<Parrot::Docs::POD2HTML> subclasses C<Pod::Simple::HTML> to provide
various Pa <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	631	726	
==>uct::Block));
  confess "Type (" . ref($type) . ") is not!"  unless UNIVERSAL::isa($type, qw(Jak <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	622	715	
==>uct::Block));
  confess "Type (". ref($type) . ") is not!" unless UNIVERSAL::isa($type, qw(Jak <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719353	719636	
==>",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 807,
                  "ARGS" => <==
3	/Users/nnunley/parrot/config/auto/alignptrs.pm	284	375	
==>use strict;
use vars qw($description $result @args);

use base qw(Parrot::Configure::Step::B <==
3	/Users/nnunley/parrot/config/gen/PodText.pm	841	932	
==>use strict;
use vars qw($description $result @args);

use base qw(Parrot::Configure::Step::B <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284826	285095	
==>}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285703	285972	
==>}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286580	286849	
==>}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9456	9575	
==>};

			$$errstatus == 3	#The next token is not valid: discard it
		and	do {
				$$token eq ''	# End of input: no hop <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9030	9145	
==>};

			$$errstatus == 3	#The next token is not valid: discard it
		and	do {
				$$token eq ''	# End of input: no hop <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	23113	23213	
==>_meta will create
	# the .local declarations for arguments, but it needs to know the argument
	# type <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	37456	37585	
==>{
          my @fors = grep $_->[0] eq '=for', @$curr_open;
          DEBUG > 1 and print "Containing fors: ",
            join(', <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	8800	8915	
==>H} ".sub $dir->{result}->{symbol} :anon";
        if ( exists $dir->{outer} ) {
            print {$FH} " :outer($ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	36027	36124	
==>here is to have a testing utility that's simple to learn,
quick to use and difficult to trip yours <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	7642	7780	
==>$type =~ /^[Rr]$/) {
			$const = 1;
			$init  = 1;
		    } elsif ($type =~ /^[Ss]$/) {
			$small  = 1;
			$uninit = 1;
		    }
		}
		if ($t <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4510	4610	
==>->name) {
    my $temp = $compiler->temp_reg($calc_type);
    $compiler->emit("  $temp = $left $op $r <==
3	/Users/nnunley/parrot/config/inter/progs.pm	2107	2204	
==>);

    $ld = integrate($conf->data->get('ld'), $conf->options->get('ld'));
    $ld = prompt("What <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2833	2950	
==>ndef;
}

sub YYError {
	my($self)=shift;

	${$$self{CHECK}}='ERROR';
    undef;
}

sub YYSemval {
	my($self <==
3	/Users/nnunley/parrot/Configure.pl	9279	9393	
==>uto::va_ptr
    auto::pack
    auto::format
    auto::isreg
    auto::jit
    gen::cpu
    auto::funcptr
    auto:: <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2701	2807	
==>ndef;
}

sub YYError {
	my($self)=shift;

	${$$self{CHECK}}='ERROR';
    undef;
}

sub YYSemval {
	my($self <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23130	23232	
==>''
			       : '$item{'.$self->{hashname}.'}=').'$_tok;
		' . ($self->{"lookahead"} ? '$text = $_savete <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32889	32988	
==>''
				 : '$item{'.$self->{hashname}.'}=') . '$_tok;
		' . ($self->{"lookahead"} ? '$text = $_savete <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79567	79842	
==>ct);\n      PMC_data({{\@1}}) = p;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81088	81363	
==>ct);\n      PMC_data({{\@1}}) = p;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10493	10669	
==>r>
            );
        }
        print OUT qq(
            </tbody>
            </table>
        );
    }

    print OUT page_footer();

    close(OUT);
}


sub filter_gcov { <==
3	/Users/nnunley/parrot/config/init/hints/darwin.pm	537	650	
==>*//;
    $ldflags =~ s/-flat_namespace\s*//;
    $ldflags .= " -flat_namespace ";

    $conf->data->set(
        d <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	10639	10750	
==>n<<}, "",
					  q{' . $self->{"name"} .'})
						if defined $::RD_TRACE;').'
		$return = $score_return;
	}
	spl <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	1793	1902	
==>, $type) = @_;
    my $var = $self->new_local($name, $type);
    push @{ $op->{rxlocals} }, $var;
    return $ <==
3	/Users/nnunley/parrot/config/auto/msvc.pm	1182	1306	
==>{
        $self->set_result('no');
        $conf->data->set(msvcversion => undef);
        return $self;
    }

    my $major <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	7391	7505	
==>self->{class};
        }
    }
    # copy parent(s), prepend self as parrent
    $const->{parents} = [ $self->{clas <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	15867	15976	
==>hift;

    $path =~ s|\\+|/|go;

    return $path;
}

=back

=head2 Functions

=over 4

=item C<esc(@strings)> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1829	1940	
==>declaration on line %d of file '%s'.",
      $name, $sym->line, $sym->file);
  }

  #
  # Now that we've decided <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2963	3053	
==>yte Encoding Mark found; but Pod::Simple v$Pod::Simple::VERSION doesn't implement UTF16 yet <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3361	3451	
==>yte Encoding Mark found; but Pod::Simple v$Pod::Simple::VERSION doesn't implement UTF16 yet <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475835	476112	
==>e",
                  "CODE" => 545,
                  "ARGS" => [
                              "n",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 403 \"src/ops/math.ops\"\n  FLOATVAL den <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	315535	315726	
==>"\n  {{\@1}} = (INTVAL)((unsigned char)({{\@1}}));\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78322	78641	
==>{
                  "JUMP" => 0,
                  "NAME" => "dlvar",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79842	80161	
==>{
                  "JUMP" => 0,
                  "NAME" => "dlvar",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	505	625	
==>()>

Returns a new section.

=cut

sub new
{
    my $self = shift;
    
    return $self->SUPER::new(
        'Project In <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736685	736919	
==>ps\"\n  {{\@1}} = (FLOATVAL){{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737431	737665	
==>ps\"\n  {{\@1}} = (FLOATVAL){{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	8698	8799	
==>($$textref =~ m/\G(\n[ \t]*\n)/gc )
		{
			$parapos = pos($$textref) - length($1)
				unless defined $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240179	240292	
==>teger(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241127	241240	
==>teger(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2635	2733	
==>r_opcode = (opcode_t*)opcode_to_prederef(interpreter, dest);
	      goto SWITCH_AGAIN; }";
}

=item <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6001	6112	
==>t STDERR "Need token. Got ".&$ShowCurToken."\n";
			};

            $act=   exists($$actions{ACTIONS}{$$token <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5716	5824	
==>t STDERR "Need token. Got ".&$ShowCurToken."\n";
			};

            $act=   exists($$actions{ACTIONS}{$$token <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6089	6181	
==>e->new($self->require_type);

      $self->INTERNAL_ERROR("Could not determine type.") unless <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	3988	4311	
==>st if /}}/;
                        $block .= $_;
                    }
                    next;
                }
                if (/$match/) {
                    select INC;
                    eval $block;
                    select STDOUT;
                    die $@ if $@;
                }
            }

        } <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7117	7217	
==>tions{reject}) eq 'ARRAY' ? join('|', @{$options{reject}})
		    : defined($options{reject})	       ? <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24119	24219	
==>tions{reject}) eq 'ARRAY' ? join('|', @{$options{reject}})
		    : defined($options{reject})	       ? <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	22763	22904	
==>r, 'pmc', 'boolean' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new NewOp( $parser <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1584	1684	
==>-- represent "section" attributes of L codes

=head1 SYNOPSIS

 # a long story

=head1 DESCRIPTION

T <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	955	1048	
==>up.
$output .= generate_lookup(@methods);

# Generate method code suppliers.
$output .= genera <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3713	3806	
==>ursively) parent blocks'
symbol tables.

TODO: We should generate real compiler errors and war <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	43329	43444	
==>->[$i]   =~ m{^#:([ \^\/\%]*)\n?$}s) {
      DEBUG > 5 and print "  It's a formatty line.  ",
       "Peeking at pre <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34204	34305	
==>n";
		$pir .= sub_meta($pre_branch, $mv, "pre_branch for rule $rule->{'name'}");
		$pir .= "### end pr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3593	3694	
==>ration has no fnlib property, and parent block is not a module!")
        unless $self->block->kind eq <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6257	6358	
==>ration has no fnlib property, and parent block is not a module!")
        unless $self->block->kind eq <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	8643	8782	
==>DOUT             or die "Can't close    stdout" if $out;
    close STDERR             or die "Can't close    stderr" if $err;

    open  STD <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8187	8301	
==>DOUT or die "Can't close    stdout" if $out;
    close STDERR or die "Can't close    stderr" if $err;

    open STD <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6924	7040	
==>c")
          or die "pmc2c code generation failed ($?)\n";
    }
}

sub compile {
    my ($src_stem, $dest_stem) = @ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7135	7251	
==>c")
          or die "pmc2c code generation failed ($?)\n";
    }
}

sub compile {
    my ($src_stem, $dest_stem) = @ <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	8087	8178	
==>it_info->op_i + (i)]
#endif

extern PARROT_API char **Parrot_exec_rel_addr;
extern PARROT_AP <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	24809	24925	
==>>{lex_num} . '_' . $idf;
        $defn = new defn( $name, 'local', 'pmc', undef, $idf );
        push @opcodes, new <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	14454	14587	
==>=> {
			"?" => 46
		},
		DEFAULT => -13
	},
	{#State 28
		ACTIONS => {
			'CHAR' => 4,
			"<" => 22,
			"+" => 24,
			"*" => 27,
			"[ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27142	27272	
==>0,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 138,
			'functionca <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10921	11041	
==>e (1,10)=1..9 with [4,x]=4..x and [10,x]=10..x
            if ($incexc[-1] <= $last+1) {
                $incexc[-1] = $l <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8901	8989	
==>cl = Jako::Construct::Declaration::Sub->new($block, $type, $ident, { %props }, [ @formal_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660139	660244	
==>2}}->vtable->exists_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661061	661166	
==>2}}->vtable->exists_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623682	623767	
==>ass_f)lru->f.real_function)(interpreter, mic->m.sig,\n\t\t    _reg_base, (void**)cur_o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492818	493115	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493579	493876	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499553	499850	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_co <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2430	2627	
==>desc
                                                  );
        unless ( $pass ) {
            my $diag = '';
            my $test_prog = join ' && ', @test_prog;
            $diag .= "'$test_prog <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	2447	2628	
==>desc
                      );
           unless ( $pass ) {
               my $diag = '';
               my $test_prog = join ' && ', @test_prog;
               $diag .= "'$test_prog <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	13078	13196	
==>1 == 0 goto done
    $P1 = pop op2 # ignore p1, we're discarding it
    inc op1
    goto neg_loop

done:
    .return (o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90874	91196	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91728	92050	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAG <==
3	/Users/nnunley/parrot/lib/Test/More.pm	6061	6158	
==>ok>

  ok($this eq $that, $test_name);

This simply evaluates any expression (C<$this eq $that> is <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	651	736	
==>ess "Ident is not!" unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	730	815	
==>ess "Ident is not!" unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	539	624	
==>ess "Ident is not!" unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value: <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	3035	3185	
==>ibdir      => '/usr/lib',
                includedir  => '/usr/include',
                docdir      => '/usr/share/doc',
                'dry-run'   = <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28802	28914	
==>t' => $_var,
    );
    my $_limit = new_tmp( $parser, 'pmc', 'number' );
    push @opcodes, new LocalDir( $pa <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2466	2570	
==>};
				foreach(@saves) {
					$edit.=qq{\t_GLOBALS["$_"]=$_\n};
				}
				$edit.=qq{\tstore_global "COMMO <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22048	22156	
==>ession::Value->new($block, $self->require_value);
        $op    = $self->require_infix_rel->text;
        $r <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22981	23089	
==>ession::Value->new($block, $self->require_value);
        $op    = $self->require_infix_rel->text;
        $r <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24627	24735	
==>ession::Value->new($block, $self->require_value);
        $op    = $self->require_infix_rel->text;
        $r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11061	11168	
==>, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  {{+={{\@1}}}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11850	11957	
==>, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  {{+={{\@1}}}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	547	669	
==>2[$_] = buildarray();
    }
}

sub buildarray {
    my @foo;
    foreach (1..20000) {
	$foo[$_] = $_;
    }
    return \@fo <==
3	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	394	516	
==>r[$_] = buildarray();
    }
}

sub buildarray {
    my @foo;
    foreach (1..10000) {
	$foo[$_] = $_;
    }
    return \@fo <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6167	6274	
==>"$group";1], $value # close group $group!;
    return @ops;
}

sub output_getstart {
    my ($self, $reg, $g <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6317	6454	
==>subpat);

        $pirCode .= qq(
            name = "$name"
            subpat = "$subpat"
            rulesub = p6rule_compile(subpat)\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2983	3085	
==>$address)>.

=cut

sub restart_address
{
    my ($self, $addr) = @_;

    return "interpreter->resume_o <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3852	3954	
==>$address)>.

=cut

sub restart_address
{
    my ($self, $addr) = @_;

    return "interpreter->resume_o <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	4098	4204	
==>EXT};
    
    print {$self->{'output_fh'}} $self->{'Tagmap'}{$tagname};
    
    my $next = $self->get_tok <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	19372	19476	
==>g children of this $treelet->[0] node...\n";
    for($i = 2; $i < @$treelet; ++$i) { # iterate over child <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	22015	22119	
==>g children of this $treelet->[0] node...\n";
    for($i = 2; $i < @$treelet; ++$i) { # iterate over child <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1013018	1013308	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "err",
                  "FLAGS" => "",
                  "ARGDIRS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015169	1015459	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "err",
                  "FLAGS" => "",
                  "ARGDIRS <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24217	24307	
==>3["index"]=\$P2
	\$P3["hash"]=\$P0
	find_global \$P1, "BASICARR"
	\$P1["$var$seg"]= \$P3
	s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75215	75609	
==>> "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 98,
                  "ARGS" => [
                              "p",
                              "p", <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	32251	32376	
==>";
        
      # bitch if it's empty
      if(  @{$treelet->[$i]} == 2
       or (@{$treelet->[$i]} == 3 and $treelet->[$i] <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	42661	42778	
==>";

      # bitch if it's empty
      if(  @{$treelet->[$i]} == 2
       or (@{$treelet->[$i]} == 3 and $treelet->[$i] <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8137	8260	
==>uire_ident->text;
      
        my $value;

        if ($self->skip_assign) {
          $value = Jako::Construct::Expressio <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5143	5260	
==>uire_ident->text;

        my $value;

        if ($self->skip_assign) {
          $value = Jako::Construct::Expressio <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	11782	11877	
==>fter
assignment) is returned. If the element type is C<'*$'>, a reference
to the element is retu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778645	778900	
==>=> 879,
                  "ARGS" => [
                              "p",
                              "ki",
                              "nc"
                            ],
                  "BODY" => "#line 382 \"src/ops/set.ops\"\n    {{\@1}}->vtable-> <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	1260	1368	
==>new Regex::Grammar;
    return $parser->YYParse(yylex => $lexer,
			    yyerror => sub {
				my $parser = shi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10869	10969	
==>Jako::Construct::Block");
  confess "No content!"      unless @_;
  confess "Illegal content!" if gre <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2583	2744	
==>c;
            my $h;
            ($h = $file) =~ s/\.\w+$/.h/;
            $h =~ s/(\w+)\.h$/pmc_$1.h/;
            my $c;
            ($c = $file) =~ s/\.\w+$/. <==
3	/Users/nnunley/parrot/tools/dev/gen_class.pl	1457	1561	
==>gs) = @$_;
	if ($methname eq 'type' || $methname eq 'name' || $methname =~ /prop/) {
		# default.pmc ha <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18080	18218	
==>35,
			'primary' => 28
		}
	},
	{#State 48
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1444	1557	
==>kup the identifier:
  #

  my $name = $self->name;

  my $sym = $block->find_symbol($name);

  #
  # If the identi <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	8188	8292	
==>h_hash;

    my $Dumper = Data::Dumper->new([\%vtable], ['class']);
    $Dumper->Indent(3);
    print $vt <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2592	2715	
==>erties
    undef,            # No args
    $self->file,
    $self->line
  );

  $block->set_symbol($self->name, $sym);

  $b <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2870	2992	
==>erties
    undef,           # No args
    $self->file,
    $self->line
  );

  $block->set_symbol($self->name, $sym);

  $b <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5080	5197	
==>ne);
		$ifline++;
		$elseline++;
		goto PARSE;
	}
	if ($syms[CURR] eq "else") {   #  and $singleif) {
		my $c=pop @ifs <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	6687	6813	
==>1,
 'minus'    , 8722,
 'lowast'   , 8727,
 'radic'    , 8730,
 'prop'     , 8733,
 'infin'    , 8734,
 'ang'      , 8736,
 'an <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048281	1048379	
==>al_exception(1, \"Tried to get null global.\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_gl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049205	1049303	
==>al_exception(1, \"Tried to get null global.\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_gl <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5395	5509	
==>mpile, linklibs, or copy\n";
}

sub run {
    print join(" ", @_), "\n";

    return system(@_) == 0;
}

# XXX: ord <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5606	5720	
==>mpile, linklibs, or copy\n";
}

sub run {
    print join(" ", @_), "\n";

    return system(@_) == 0;
}

# XXX: ord <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	13468	13579	
==>ET_NCI_S($reg_num);";
        return "t_$temp_num";
    };
}

sub print_function {
    my ($sig, $return, $param <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9545	9666	
==>->is_while) {
      my $block = $self->current_block();
      my $kind = $token->text;

      my $prefix;

      if ($last <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25064	25169	
==>eturn $return;
}

sub _op_minus {
  my ($self,$node) = @_;
  my $return;
  my $num_children = defined $nod <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	13775	13870	
==>/, $name);
  $Test->unlike($this, '/$regex/', $name);

Like Test::More's unlike().  Checks if $t <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4975	5093	
==>token) {
  
    if( ($type = $token->type) eq 'text' ) {
      if( $self->{'rtfverbatim'} ) {
        DEBUG > 1 and pri <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1759	1857	
==>%d, got %d) in call to '%s'.",
    scalar(@formal_args), scalar(@args), $name)
    unless @formal_a <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1459	1557	
==>%d, got %d) in call to '%s'.",
    scalar(@formal_args), scalar(@args), $name)
    unless @formal_a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474081	474181	
==>=> "#line 403 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_except <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475072	475172	
==>=> "#line 403 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_except <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476063	476163	
==>=> "#line 403 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_except <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	34890	35032	
==>/'                => \&_op_divide,
  'abs'              => \&_op_abs,
  'quotient'         => \&_op_quotient,
  'remainder'        => \&_op_rem <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	5210	5359	
==>ecial{$_} :
        !m[/]             ? '[]' :
        m[^LICENSES/]     ? '[main]doc' :
        m[^docs/]         ? '[main]doc' :
        m[^editor/] <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	5901	6006	
==>ends?, $negate?) returns Bool {
    $Test::testing_started = 1;
    $Test::num_of_tests_run++;

    # $con <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	38826	38923	
==>item C<fail =E<gt> $str>

The C<fail> option indicates the action to be taken if a matching end
ta <==
3	/Users/nnunley/parrot/config/init/optimize.pm	1414	1550	
==>lse {
            # use what was passed to --optimize on the CLI
            $conf->data->add(' ', ccflags => $optimize);
            # r <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	24490	24615	
==>ed_args + $j] = promote($val);
	}
	$n = $nfix + $nk/2;
    }
    my $tos = pop @stack;
    my $args = join ', ', @args;
    my <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3377	3469	
==>1.  See L<http://www.sysadminmag.com/tpj/issues/vol5_5/>

=head1 COPYRIGHT AND DISCLAIMERS

C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	675560	675844	
==>0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 75 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676339	676623	
==>0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 75 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677119	677403	
==>0,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 75 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835304	835554	
==>" => 0,
                  "NAME" => "savec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836056	836306	
==>" => 0,
                  "NAME" => "savec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	9793	9899	
==>} qw(does extends group lib hll maps);

    my (%flags, $parent_nr);
    # look through the pmc declaration <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56957	57157	
==>ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 869 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo_p(int <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	4870	4979	
==>st::MD5> module is available it is used and if not you take
C<Digest::Perl::MD5>.

You can also install the Pe <==
3	/Users/nnunley/parrot/config/gen/icu.pm	3522	3620	
==>e <<"HELP" unless $ok; # this text is also in Configure.PL!
Something is wrong with your ICU instal <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	17504	17687	
==>$path_to_parrot,
                                        STDOUT => $out_f,
                                        STDERR => $out_f);

            my $meth = $pir_2_pasm_test_map{$func <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	12908	13024	
==>ef, $pre,
				     $ldel_outer, $rdel_outer,
				     $ldel_inner, $rdel_inner,
				     $rd);
	return _fail($wantarr <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	27535	27642	
==>ps $new_letter => known element $canonical_form.\n";
    } else {
      # We have to use the fallback(s), wh <==
3	/Users/nnunley/parrot/tools/build/list_unjitted.pl	644	747	
==>$ARGV[0]/core.jit: $!";

while (<JIT>){
    if (my ($jit) = /^Parrot_(\S+)\s*\{\s*$/){
        push @jit <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14265	14514	
==>",
                  "NAME" => "jump",
                  "FLAGS" => ":base_loop",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14951	15200	
==>",
                  "NAME" => "jump",
                  "FLAGS" => ":base_loop",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103715	1103882	
==>"s",
                              "p"
                            ],
                  "BODY" => "#line 332 \"src/ops/experimental.ops\"\n\tSTRING *class = {{\@2}};\n\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	508644	508875	
==>ME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 585, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	843	932	
==>nless UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess "Op is not sc <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	855	944	
==>nless UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess "Op is not sc <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8885	9063	
==>='';
                next;
            };

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Forced Error recovery.\n";

            $$check='';

        };

        #Erro <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8487	8654	
==>='';
                next;
            };

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Forced Error recovery.\n";

            $$check='';

        };

        #Erro <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	13	102	
==>C) 2001-2005, The Perl Foundation.
# $Id: /parrot/config/inter/yacc.pm 19593 2006-05-30T02 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022874	1023138	
==>> "decodelocaltime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023723	1023987	
==>> "decodelocaltime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	636	730	
==>II
);

$FAR_CHAR = "?" unless defined $FAR_CHAR;
$FAR_CHAR_NUMBER = ord($FAR_CHAR) unless defin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573075	573296	
==>(interpreter, enum_class_ParrotClass, name);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573985	574206	
==>(interpreter, enum_class_ParrotClass, name);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5368	5492	
==>must be one of generate, compile, linklibs, or copy\n";
}

sub run {
    print join(" ", @_), "\n";

    return system(@_) == <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4569	4693	
==>must be one of generate, compile, linklibs, or copy\n";
}

sub run {
    print join(" ", @_), "\n";

    return system(@_) == <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5579	5703	
==>must be one of generate, compile, linklibs, or copy\n";
}

sub run {
    print join(" ", @_), "\n";

    return system(@_) == <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	667	790	
==>);

sub runstep
{
    my ($self, $conf) = @_;
    
    my $verbose = $conf->options->get('verbose');

    # undef means we d <==
3	/Users/nnunley/parrot/config/inter/lex.pm	677	796	
==>);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    # undef means we d <==
3	/Users/nnunley/parrot/config/inter/make.pm	654	773	
==>);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    # undef means we d <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431331	431528	
==>c",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 79 \"src/ops/math.ops\"\n  mmd_dispatch_v_pp(interpreter, { <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11909	12014	
==>pos> = $uid\['!POS']
END
}

sub output_call_result {
    my ($self, $uid, $name, $fail) = @_;
    my $fail <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	44	131	
==>t::Configure::Step from config/gen/makefiles/dynoplibs_pl.in

# Copyright (C) 2001-2006, <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32762	32879	
==>. q{])},
						  Parse::RecDescent::_tracefirst($text))
							if defined $::RD_TRACE;').'
		push @item, ' . ($::RD_NO <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30559	30674	
==>. q{])},
						  Parse::RecDescent::_tracefirst($text))
							if defined $::RD_TRACE;').'
		push @item, '.($::RD_NO <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28483	28596	
==>. q{])},
						  Parse::RecDescent::_tracefirst($text))
					if defined $::RD_TRACE;').'
		push @item, '.($::RD_NO <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	1683	1804	
==>COUNT => 0,
    BLOCK_COUNT    => 0
  }, $class;
}


#
# indent()
#

sub indent
{
  my $self = shift;
  $self->{INDENT} += <==
3	/Users/nnunley/parrot/config/auto/format.pm	284	377	
==>mat;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base) <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1753	1861	
==>if $_->{type} eq 'REAL';
    }
    $node->{type} = $cur_type;#$node->{children}[0]{type};
  } else {
    $nod <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	5319	5412	
==>> set a description for you, so don't pass
one.

=item C<example_output_isnt( $example_f, $exp <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	21666	21766	
==>r_ic >= 0x$r2[0]->{'code'} goto INS_BRANCH_$prefix$r2[0]->{'code'}\n";
        $pir .= "    if cur_ic <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4294	4390	
==>2 BLOCK->symbol_names()

Returns the names of the symbols defined locally in this block.

=cut

s <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	738	834	
==>ST_MAX = MAX_SIZE;
chdir BASEDIR or die "Couldn't chdir into \"@{[ BASEDIR ]}\": $!\n";

$SIG{PIP <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5517	5611	
==>dress)>.
Called by C<goto_address()>.

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::OpTrans <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710639	710729	
==>python.ops\"\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (PIO_softspace(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711473	711563	
==>python.ops\"\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (PIO_softspace(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057812	1058144	
==>"FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1181,
                  "ARGS" => [
                              "p", <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2395	2496	
==>a        { $_[0]->emit_par( 0) }
sub end_item_bullet { $_[0]->emit_par( 0) }
sub end_item_number { $_[ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1963	2064	
==>a        { $_[0]->emit_par( 0) }
sub end_item_bullet { $_[0]->emit_par( 0) }
sub end_item_number { $_[ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841646	841897	
==>nterpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842410	842661	
==>nterpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/lib/File/Which.pm	825	932	
==>ve PATHEXT, so needs hardcoded.
    }
}
elsif ($Is_VMS) { 
    push @path_ext, qw(.exe .com);
}

sub which { <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	944	1071	
==>e_test_map ) {
    no strict 'refs';            ## no critic

    *{"Parrot::Test::M4::$func"} = sub ($$;$) {
        my $self = <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13035	13146	
==>t is
					  tried. Since you almost certainly wanted
					  '<error?> <reject>' Parse::RecDescent
					  supplie <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3016	3135	
==>n"
  ;
  $self->{'Thispara'} = '';
  
  return;
}

# . . . . . . . . . . And then off by its lonesome:

sub end_Verbatim <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2545	2661	
==>n";
  $self->{'Thispara'} = '';
  
  return;
}

# . . . . . . . . . . And then off by its lonesome:

sub end_Verbatim <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	12969	13077	
==>shift;

    open(my $fh, '<', $filename) or die "Can't open $filename: $!";
    my $text = do {local $/; <$fh <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571150	571301	
==>3}});\n    {{\@1}} = Parrot_object_isa(interpreter, {{\@2}}, class);\n    {{+=4}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572105	572256	
==>3}});\n    {{\@1}} = Parrot_object_isa(interpreter, {{\@2}}, class);\n    {{+=4}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1572	1670	
==>ix', name => '--' } });
  $self->ident->sax($handler);
  $handler->end_element({ Name => 'op' });
} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	821909	822147	
==>nction",
                  "CODE" => 931,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 120 \"src/ops/stack.ops\"\n  Sta <==
3	/Users/nnunley/parrot/config/init/defaults.pm	2380	2498	
==>he binary's symbols
        link_dynamic => $Config{ccdlflags},    # e.g. -Wl,-E on HP-UX

        # ld: Tool used to b <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	481	586	
==>ss = shift;

  my ($block, $type, $ident) = @_;

  confess "Block (". ref($block) . ") is not!" unless UNI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826710	826937	
==>stack!\");\n  }\n\n  {{\@1}} = UVal_num(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827780	828007	
==>stack!\");\n  }\n\n  {{\@1}} = UVal_num(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	1701	1797	
==>ach item in the group.

Some HTML-formatted text describing the files linked to is returned.

=cu <==
3	/Users/nnunley/parrot/config/init/defaults.pm	5640	5795	
==>atform has a .s file that needs to be assembled
        platform_asm => 0,
        as           => 'as',    # assembler

        cp    => '$(PERL) -MExtUtil <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	5747	5872	
==>list ) {
       next if $dir =~ m/\.svn/;
       next if ( $dir && ! -d $dir ); 

       my $patterns = capture_output( "$svn_ <==
3	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	433	526	
==>v/rebuild_miniparrot.pl [option]

=head1 DESCRIPTION

This script is used to build a new minip <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569316	569524	
==>}} = {{\@2}}->vtable->isa(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570209	570417	
==>}} = {{\@2}}->vtable->isa(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	3411	3504	
==>t argument to each steps
C<runstep()> method followed by any parameters that were registered f <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	1985	2137	
==>***\n", join(' ', @sorted_pmcs), "\n";
    @sorted_pmcs;
}

sub runstep
{
    my ($self, $conf) = @_;

    my @pmc = (
        sort
            map { m{\ <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	1917	2017	
==>.
	for (keys %config) {
		$makefile =~ s/\${$_}/$config{$_}/g;
	}
	$makefile =~ s/\$\{build_dir\} <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29242	29335	
==>t = 1;
		} elsif ($rule->{'pir'} =~ /\$\{LOADREG\}/ || $rule->{'instruction'} =~ /\$\{LOADREG\ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	995	1113	
==>gen))
    {
        my $dir = $dist->existing_directory_with_name('config/' . $group);
        my @files = $dir->files_ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	441	534	
==>$Parse::RecDescent::expected
	    = $Parse::RecDescent::defexpected->expected()
	    unless $P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104152	104423	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_bnots",
                  "FLAGS" => ":base_cor <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	35339	35462	
==>truncate,
  'round'            => \&_op_round,
  'rationalize'      => \&_op_rationalize,
  'exp'              => \&_op_exp, <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	5655	5775	
==>ectories) {
	unless (-d $dir) {
	    # Make full path to the directory $dir
	    my @dirs;
	    while (! -d $dir) { # Sca <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	2592	2699	
==><$flags> is one or more (comma-separated) I<hints>.

=cut

sub new
{
    my $class = shift;
    my ($code, $ <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	1121	1218	
==>rocess via C<make> there
shouldn't be a problem.

=head1 TODO

The original design of the ops proc <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13176	13269	
==>0]->{items}},
			Parse::RecDescent::UncondReject->new(0,0,'<reject>');
	}
	elsif (@items==1 && <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	35669	35803	
==>r,
        'result' => 'break',
    );
    return \@opcodes;
}

sub BuildReturn {
    my ( $parser, $exprs ) = @_;
    my @opco <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39760	39863	
==>ay' => \&_op_display,
  'newline' => \&_op_newline,
  'write-char' => \&_op_write_char,

####
#### Syste <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3671	3771	
==>onsists of any procedures defined in the test file outside of a test,
## as well as any catch command <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1022	1121	
==>le($compiler);
    $compiler->emit("  $test $left $op $right goto ${prefix}_LAST");

    $compiler-> <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	1931	2029	
==>the help.

=item C<--version>

Show the version number.

=back

All the options can be shortened to <==
3	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	913	1021	
==>t << "EOF";
/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automati <==
3	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1114	1222	
==>t << "EOF";
/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automati <==
3	/Users/nnunley/parrot/tools/build/revision_c.pl	489	596	
==>t <<"EOF";
/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automati <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4303	4414	
==>iteral', Attributes => { type => $type->name } });
        $handler->characters({ Data => $string });
        $h <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4653	4760	
==>iteral', Attributes => { type => $type->name } });
      $handler->characters({ Data => $string });
      $h <==
3	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	1339	1442	
==>*2, 2), ",\n";
}
print "};\n";

print << "EOF";

int
PackFile_check_fingerprint (void *cursor)
{
    ret <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39139	39271	
==>loop to break\n");
            }
        }
    }
    unshift @{ $parser->YYData->{functs} }, \@opcodes2;
    my $result = new_tm <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861738	862073	
==>LL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "length",
                  "FLAGS" <==
3	/Users/nnunley/parrot/languages/urm/urm-old.pl	1054	1165	
==>. $register{$reg} ;
    }
    print ") \t$line\n";
    if ($line =~ /if *(r\d) *= *(\d) *goto *(\d+)/) {
	$regis <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	447	540	
==>ind of factory, that finds the proper subclass of Parrot::Test::M4.
XXX: Do not configure with <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	15259	15384	
==>"<" => 3,
			"[" => 14,
			'CODE' => 6,
			"." => 15
		},
		GOTOS => {
			'expr' => 11,
			'charclass' => 12,
			'regex' => 54 <==
3	/Users/nnunley/parrot/config/auto/env.pm	580	680	
==>$verbose = $conf->options->get('verbose');

    my ($setenv, $unsetenv) = (0, 0);

    cc_gen('config <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	832	927	
==>s'),
		),
		$self->new_group('PMCs', '',
			$self->new_item('', 'lib/Parrot/Pmc2c.pm'),
			$self <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7553	7659	
==>g) = @_;
    $reg = value($reg);
    return ("$reg = \$::STATESTACK[-1]");
}

use vars qw($DEBUG_LABEL);
su <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106169	1106272	
==>" => "#line 352 \"src/ops/experimental.ops\"\n    int typ = {{\@2}};\n    if (typ < 1 || typ >= interpre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107145	1107248	
==>" => "#line 352 \"src/ops/experimental.ops\"\n    int typ = {{\@2}};\n    if (typ < 1 || typ >= interpre <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	15033	15135	
==>\$thisscore; \$score_return=\$item[-1]; }
			       undef;", $lookahead, $line,"<score: $code>") )
		un <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	905	1002	
==>for a set of ops files that
you do not later turn into C code (see F<tools/build/ops2c.pl>) with t <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	775	869	
==>gnu-ish C<nm>.

=item C<source>

In C<source> mode, it uses a the C<cxref> program
(L<http://ww <==
3	/Users/nnunley/parrot/config/init/defaults.pm	4496	4608	
==>behaviour for linking parrot to a static or shared libparrot
        parrot_is_shared => 0,

        #avoid a war <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15013	15104	
==>$n)> may not always be the
same as C<chr(e2charnum($n))>, and ditto for
C<$Name2character{$n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934117	934390	
==>});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "downcase <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934892	935165	
==>});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "downcase <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954913	955112	
==>=> [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 571 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_encoding_num <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	8648	8748	
==>ub startset { return () }
sub hasback { 0 }
sub dfa_safe { 1 }

package Regex::Ops::Tree::nop;
sub mi <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4491	4581	
==>eference C<eval>-ed from a F<*.dump> file generated
by F<tools/build/pmc2c.pl> from a F<*.p <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6024	6144	
==>p;
        push @{ $group_files{$group} }, $pmc;
        $group_libs{$group} ||= {};
        foreach my $lib ( keys %libs <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6235	6355	
==>p;
        push @{ $group_files{$group} }, $pmc;
        $group_libs{$group} ||= {};
        foreach my $lib ( keys %libs <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	6913	7012	
==>ve a valid previous value anyway; I think that'll only come in for
# situations like (R)*, which are <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561947	562065	
==>eter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", {{\@3}});\n  }\n  {{=next}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563031	563149	
==>eter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", {{\@3}});\n  }\n  {{=next}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	27587	27692	
==>ture = {{\@1}};\n    INTVAL argc;\n\n    /* for now just point to the opcode */\n    interpreter->current_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290934	291260	
==>}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291780	292106	
==>}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292626	292952	
==>}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq",
                  " <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	33894	33983	
==>in list of delimiters passed as
C<extract_bracketed>'s second argument. Delimiter brackets <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432432	432518	
==>\"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433447	433533	
==>\"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, {{\ <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	1834	1963	
==>NC, ">$inc.tmp" or die "Can't write $inc.tmp";
                print INC "/*\n" if $inc =~ /\.h/;
                print INC <<"EOF <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	8024	8147	
==>";
    }
    unless ($has_class) {
        die "Mandatory entry class missing in rule $rule->{'name'}\n";
    }
    unless ( <==
3	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	1886	1982	
==>LOOPNR:
	branch MAINLOOPNR

EOF

# Includes and constant substitutions
close(T);

unlink "basic.p <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	13588	13697	
==>ter)/gc)	# OUTERMOST DELIMITER
	{
		_failmsg qq{Did not find expected opening bracket at "} .
			     substr($ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561868	561960	
==>(interpreter, {{\@2}}, {{\@3}});\n  if (!{{\@1}}) {\n    real_exception(interpreter, next, ME <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562952	563044	
==>(interpreter, {{\@2}}, {{\@3}});\n  if (!{{\@1}}) {\n    real_exception(interpreter, next, ME <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655669	655959	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11073	11260	
==>STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11862	12049	
==>STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042935	1043191	
==>mc_keyed_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043832	1044088	
==>mc_keyed_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/config/inter/types.pm	797	898	
==>nf->options->get('ask')) {
        $intval   = prompt("\n\nHow big would you like your integers to be? <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2005	2106	
==>ves unknown variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->type;
  }
  els <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1963	2064	
==>ves unknown variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->type;
  }
  els <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1885	1986	
==>ves unknown variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->type;
  }
  els <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	679	805	
==>$$;$) {
        my $self = shift;
        my ( $code, $output, $desc ) = @_;
  
        my $count = $self->{builder}->current_t <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1046	1172	
==>$$;$) {
        my $self = shift;
        my ( $code, $output, $desc ) = @_;
  
        my $count = $self->{builder}->current_t <==
3	/Users/nnunley/parrot/config/auto/msvc.pm	448	552	
==>ning if your C compiler is actually Visual C++';

@args = qw(verbose);

sub runstep
{
    my ($self, $con <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12022	12130	
==>e down the line, with
        # Parrot/PackFile/ConstTable.pm.html being turned into
        # Parrot/PackFil <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2593	2692	
==>efined $actual_arg_type;

    if ($formal_arg_type->name ne $actual_arg_type->name) {
      my $temp <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2293	2392	
==>efined $actual_arg_type;

    if ($formal_arg_type->name ne $actual_arg_type->name) {
      my $temp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13380	13502	
==>=> "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "jsr",
                  "FLAGS" => ":base_core,che <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	16226	16321	
==>ent::_error(
			"Incorrect <$op->{type}op:...> specification:
			 expected 3 args, but found $sp <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	60433	60526	
==>C<Did not find a suitable bracket: "%s">

The delimiter provided to C<extract_bracketed> was n <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2404	2531	
==>rgs || [],
                       %opts }, $class;

    return $self->init();
}

# Default initialization, to be overridden in s <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	7066	7163	
==>rc_stem;
    if (needs_build("$dest_stem$O", "$src_stem.c")) {
        run(compile_cmd("$dest_stem <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5360	5457	
==>rc_stem;
    if (needs_build("$dest_stem$O", "$src_stem.c")) {
        run(compile_cmd("$dest_stem <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7277	7374	
==>rc_stem;
    if (needs_build("$dest_stem$O", "$src_stem.c")) {
        run(compile_cmd("$dest_stem <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2267	2382	
==>pe = $arg_sym->type; 
    }
    else {
      $actual_arg_type = $args[$i]->type;
    }

    $self->INTERNAL_ERROR("C <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1967	2082	
==>pe = $arg_sym->type; 
    }
    else {
      $actual_arg_type = $args[$i]->type;
    }

    $self->INTERNAL_ERROR("C <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	4382	4492	
==>X::_SC_CLK_TCK );
my %Get_Time = (
    1 => sub { my @times = times();  return $times[2] + $times[3] },
    2 = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714137	714367	
==>NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715059	715289	
==>NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715982	716212	
==>NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
3	/Users/nnunley/parrot/config/auto/inline.pm	495	607	
==>(inline verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $test;
    my ($inline, $verbose) = $conf->o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719785	719880	
==>ops/python.ops\"\n  PMC * const io = {{\@1}};\n  STRING *s;\n  if (PIO_softspace(interpreter, io <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720985	721080	
==>ops/python.ops\"\n  PMC * const io = {{\@1}};\n  STRING *s;\n  if (PIO_softspace(interpreter, io <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	186	297	
==>ars qw { $VERSION @ISA %EXPORT_TAGS };

$VERSION = '1.89';
@ISA		= qw ( Exporter );
		     
%EXPORT_TAGS	= ( ALL <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6410	6510	
==>ents are exchanged.
   Exchange=FALSE
   ' Compare the array elements by pairs. When two are exchange <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16063	16163	
==>ents are exchanged.
   Exchange=FALSE
   ' Compare the array elements by pairs. When two are exchange <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	56227	56344	
==>primary', 1, undef
	],
	[#Rule 83
		 'primary', 1, undef
	],
	[#Rule 84
		 'primary', 3,
sub
#line 444 "Lua\lu <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1034	1145	
==>re) = @_;
    return "goto ".$self->output_label_use($where).";";
}

sub output_terminate {
    return "";
}

su <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2808	2896	
==>ndent##rtfitemkeepn#\\sb60\\sa150\\fi-120\n",
 '/item-number' => "\n\\par}\n",
 'item-tex <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	29674	29810	
==>1, $uid ]),
               $handle => aop('call_result' => [ $uid, $capture ? $name : undef, $lastback ]),
                          aop( <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	9077	9207	
==>nit) {
				$symbol = $TypeLong ? "uninit" : "B";
			    } else {
				$symbol = $TypeLong ? "unknown" : "D?";
			    }
			    $symbo <==
3	/Users/nnunley/parrot/languages/converter.pl	805	915	
==>on(?)
#		{[@item]}
		{ $return = '';
		  $return .= $item[1][0] if defined $item[1][0];
		  $return .= " ( $ite <==
3	/Users/nnunley/parrot/languages/converter.pl	1102	1212	
==>on(?)
#		{[@item]}
		{ $return = '';
		  $return .= $item[1][0] if defined $item[1][0];
		  $return .= " ( $ite <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7008	7105	
==>s1$, found$)
print "Bogus  (0): ", instr(s1$, bogus$)
print "Null   (1): ", instr(s1$, "")
print " <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18737	18834	
==>s1$, found$)
print "Bogus  (0): ", instr(s1$, bogus$)
print "Null   (1): ", instr(s1$, "")
print " <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	201	293	
==>/Construct/Type/Integer.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242076	242208	
==>mber(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243025	243157	
==>mber(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  " <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	376	481	
==>ko::Construct::Expression);

sub new
{
  my $class = shift;
  my ($block, $dest, $ident, @args) = @_;

  c <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	119	217	
==>y by '$0'

END_OF_HEADER

my %macros;
$macros{DOMAIN_ERROR} = <<'END_OF_PIR';
    .sym pmc throwabl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349135	349223	
==>g_to_cstring(interpreter, {{\@2}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, \"+< <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350137	350225	
==>g_to_cstring(interpreter, {{\@2}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, \"+< <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	14996	15108	
==>Improperly nested codeblock at "} .
				     substr($$textref,pos($$textref),20) .
				     q{..."},
				 pos $$t <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	23765	23872	
==>os)="";
	       pos $$textref = $firstpos };
	return $fields[0];
}


sub gen_extract_tagged # ($opentag, $cl <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	5122	5221	
==>eyword" />
      <itemData name="Type" defStyleNum="dsDataType" />
      <itemData name="Comment" de <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196447	196562	
==>erpreter, {{\@1}}, {{\@2}}, MMD_NUMCMP) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	1117	1227	
==>(@{ $op->{args} });
}

sub lookup_var {
    my ($self, $var, $ctx) = @_;
    return $ctx->{$var} || $var;
}

su <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1869	1970	
==>Spec->catfile(
    $path_to_parrot, qw/ languages perl6 p6shell.pir /,
);


sub import {
    my($class <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10997	11102	
==>e $_[0] so that we can undef the instance in SUPER::delete().
    
    $_[0]->delete_contents;
    rmdir($ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8371	8471	
==>n returns that symbol's kind.

=cut

sub kind_of_ident
{
  my $self = shift; # Required: Jako::Constr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	531218	531470	
==>cos((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	535795	536047	
==>cos((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162060	162182	
==>=> "#line 183 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162957	163079	
==>=> "#line 183 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163854	163976	
==>=> "#line 183 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27527	27642	
==>'
				: $self->describe ) . '};
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self->{"look <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29637	29752	
==>'
				: $self->describe ) . '};
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self->{"look <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31734	31849	
==>'
				: $self->describe ) . '};
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self->{"look <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	63534	63628	
==>ried to
modify the matched text to produce a matching closing tag (because
none was specified). <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2346	2462	
==>e( $code, $lang_fn );

        # STDERR is written into same output file
        my $exit_code = Parrot::Test::run <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1866	1979	
==>e( $code, $lang_fn );

        # STDERR is written into same output file
        my $exit_code = Parrot::Test::run <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	1869	1964	
==>searched for C</pmclass \w*/> which attempts to find the
class being declared.

Once the class i <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	7985	8102	
==>.defined ?? $got !! "undef") ~ "'");
    }
    else {
        Test::diag("    Actual: " ~ ($got.defined ?? $got !! "un <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	2896	2995	
==>ional_label, code => original_op }
    # and construct a mapping from label names to destination tag <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10738	10837	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub linearize_tokens {  # self, tokens
  my $self = shift;
  my <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	5048	5223	
==>tem('', 'objects'),
        ),
        $self->new_group(
            'Strings', 
            '',
            $self->c_item(
                '', 
                'pairs' => ['st <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	6015	6132	
==>now the raw TODO, so we have to check it
    my $context;

    # Check if we have to forcetodo this test
    # because <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	3796	3905	
==>terfaces are:

    array    : container PMC with numerically-keyed elements
    event    : PMC that can be use <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718020	718110	
==>uts(interpreter, io, \" \");\n  PIO_fprintf(interpreter, io, INTVAL_FMT, (INTVAL){{\@2}});\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718952	719042	
==>uts(interpreter, io, \" \");\n  PIO_fprintf(interpreter, io, INTVAL_FMT, (INTVAL){{\@2}});\ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	40609	40724	
==>od link (not man or url).\n";
      }

      if( defined $section_name ) {
        $ell->[1]{'section'} = Pod::Simpl <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4623	4708	
==>>do_end;
}


#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3254	3338	
==>>do_end;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191402	191651	
==>27,
                  "ARGS" => [
                              "p",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 313 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtabl <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17338	17433	
==>difying C<Pod:Simple::HTLM> large sections of its code
have been copied here, and then refactore <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	662	756	
==>st;

=head2 Functions

=over 4

=item C<p6rule_is($target, $pattern, $description, @todo)>

Run <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540550	540669	
==>{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541802	541921	
==>{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543054	543173	
==>{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540544	540658	
==>0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541796	541910	
==>0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543048	543162	
==>0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831718	831999	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 941,
                  "ARGS" => [
                              "n <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	2995	3099	
==>lemented method given body at line $line_count\n";

        # Otherwise, just append it to current method <==
3	/Users/nnunley/parrot/lib/Test/More.pm	20417	20509	
==>will output special ok's
which Test::Harness interprets as skipped, but passing, tests.

It's <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2740	2835	
==>dler->end_element({ Name => 'block' });
  }

  $handler->start_element({ Name => 'block', Attrib <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2617	2712	
==>dler->end_element({ Name => 'block' });
  }

  $handler->start_element({ Name => 'block', Attrib <==
3	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1157	1251	
==>$ua->post($smokeserv => \%request);
  if($resp->is_success) {
    if($resp->content =~ /^ok/) { <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2365	2462	
==>ash

This returns the hashref that is the attribute set for this start-token.
This is useful if (f <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33998	34151	
==>"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			"<=" => 85,
			'OR' => 84,
			">" => 86
		}
	},
	{#State 120
		DEFAUL <==
3	/Users/nnunley/parrot/languages/urm/urm-old.pl	260	386	
==>omp $line;
    next if ($line =~ /^ *\#/);
    if ($line =~ /in *\(([r\d,]+)\)/) {
	print "Werte für $1: ";
	my $input = readl <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5540	5641	
==>->output_label_def($passLabel);
    return @ops;
}

sub output_initgroup {
    my ($self, $group) = @_ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5233	5334	
==>->output_label_def($passLabel);
    return @ops;
}

sub output_initgroup {
    my ($self, $group) = @_ <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	396	495	
==>s the
actual compiler for that command.

Many builtins need to use the same type of code, and do the <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1559	1666	
==>$_[1]\n";
  print {$_[0]{'output_fh'}}
   '  ' x --$_[0]{'indent'}, "</", $_[1], ">\n";
  return;
}

# . . . <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8889	8982	
==>eter,\n\t    enum_fixup_label, label);\n    if (!fe)\n\tinternal_exception(1, \"branch_cs: fix <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10005	10098	
==>eter,\n\t    enum_fixup_label, label);\n    if (!fe)\n\tinternal_exception(1, \"branch_cs: fix <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9584	9706	
==>current_block();
      my $kind = $token->text;

      my $prefix;

      if ($last_token->is_label) {
        $prefix = $l <==
3	/Users/nnunley/parrot/config/auto/readline.pm	1074	1186	
==>$conf->data->add(' ', libs => '-lreadline');
    }

    my $osname = $Config{osname};

    # On OS X check the pr <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	589	683	
==>o
files are specified on the command-line then the files worth describing
will be found recursi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071725	1071870	
==>"i"
                            ],
                  "BODY" => "#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073910	1074055	
==>"i"
                            ],
                  "BODY" => "#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	10030	10134	
==>es inherition from Parrot::Test
#

sub _generate_functions {
    my $package = 'Parrot::Test';

    my $p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766114	766487	
==>base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 865,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "B <==
3	/Users/nnunley/parrot/tools/build/list_unjitted.pl	177	309	
==>le (my $dir = readdir DIR){
        next if $dir =~ /^\./ or $dir eq '\.svn';
        print $dir;
    }
    exit 1;
}

my @ops;
my @j <==
3	/Users/nnunley/parrot/Configure.pl	8115	8233	
==>nly pure ANSI C is available

EOT
      exit;
    };
    $args{$key} = $value;
  }
}

$args{debugging} = 1 unless ((exi <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	6003	6103	
==>d ICU
files.

Note that if there are files with no suffix then the empty string will
be included in t <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6052	6157	
==>splicing
		};

  _num_arg ($node, 1, 'quote');

  my $item = _get_arg($node,1);

  __quoted ($self, $item, <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15281	15387	
==>c1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # return a single s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16462	16568	
==>c1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # return a single s <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	804	899	
==>pt, and expressions.

=cut

my $file = open_tmt(shift @ARGV);
my ($cmd, @args) = extract_info($f <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	12841	12945	
==>self->{'source_filename'} = $source;
      $source = *PODSOURCE{IO};
    }
    $self->_init_fh_source($so <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	6161	6308	
==>ke you tried to ".
                "say how many tests you plan to run but made a mistake.\n";
        }
        elsif( !$arg ) {
            die "Y <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1148	1263	
==>e::Spec->splitdir($path_to_parrot));
        my $path_to_language;
        if ($dir_count == 0) {
          $path_to <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1633	1748	
==>e::Spec->splitdir($path_to_parrot));
        my $path_to_language;
        if ($dir_count == 0) {
          $path_to <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1467	1618	
==>addr) = @_;

    #print STDERR "pbcc: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
        return "return (0);"
    }
    else
    {
        retu <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1992	2142	
==>addr) = @_;

    #print STDERR "pbcc: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
        return "return (0);"
    }
    else
    {
  	    retu <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1883	2032	
==>addr) = @_;

    #print STDERR "pbcc: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
  	    return "return (0);"
    }
    else
    {
  	    retu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1484	1598	
==>self->dest;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1364	1478	
==>self->dest;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self- <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	168	259	
==>rrot::OpTrans::CPrederef - C Predereferenced Transform

=head1 DESCRIPTION

C<Parrot::OpTran <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	7135	7267	
==>\n\n";
    }
    print <<END_C;
    break;

default:
    return cur_opcode;
}
    return(0);
}
END_C

    return 0;
}


#
# compile_f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712741	712850	
==>IO_puts(interpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713848	713957	
==>IO_puts(interpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	2232	2338	
==>ode, $num) = @_;
  $node->{children}->[$num];
}

sub _get_args {
  my ($node, $num) = @_;
  $num = 1 unless <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4503	4596	
==>rtial_link($_, $pmc_libs->{$_}, [ $_ ] ) foreach (@ungrouped_pmcs);
} 
elsif ($mode eq 'copy') <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4607	4700	
==>rtial_link($_, $pmc_libs->{$_}, [ $_ ] ) foreach (@ungrouped_pmcs);
} 
elsif ($mode eq 'copy') <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651329	651555	
==>E" => 728,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 247 \"src/ops/pmc.ops\"\n    if ({{\@2}} > 0 && {{ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	4368	4507	
==>0;
    my @cleaned_plan;
    while( $idx <= $#plan ) {
        my $item = $plan[$idx];

        if( $item eq 'no_diag' ) {
            $Show <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	16731	16832	
==>}
}

sub prevwasreturn
{
	my ( $self, $line ) = @_;
	unless (@{$self->{items}})
	{
		Parse::RecDescent <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	1060	1158	
==>able.
my $metavars = {};

# Generate initial translator code and populate metafields.
my $pir = gen <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	752	843	
==>" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Left is not Value!" un <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	764	855	
==>" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Left is not Value!" un <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736650	736762	
==>BODY" => "#line 144 \"src/ops/set.ops\"\n  {{\@1}} = (FLOATVAL){{\@2}};\n  {{+=3}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737396	737508	
==>BODY" => "#line 144 \"src/ops/set.ops\"\n  {{\@1}} = (FLOATVAL){{\@2}};\n  {{+=3}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	504	603	
==>etopt::Long;

# Parse command line.
our ($parrot_path, $mono_lib_path, $srm);
GetOptions(
	"par <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	4885	5012	
==>/) {
	    if ($v eq 'B') {
		$DataB{$s} = $o;
	    } elsif ($v eq 'D') {
		$DataD{$s} = $o;
	    } elsif ($v eq 'R') {
		$DataR{ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3112	3232	
==>ere to main
                   'program - only to SUB1.
' Exit tests
sub mysub(b,c)
	print "Print me"
	exit sub
	print "D <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17079	17199	
==>ere to main
                   'program - only to SUB1.
' Exit tests
sub mysub(b,c)
	print "Print me"
	exit sub
	print "D <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11833	12027	
==>1'   => $last_key->[0],
                        'arg2'   => undef,
                        'result' => $result,
                    );
                    return [ $defn, \@opcodes, $assign ] <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10029	10207	
==>1'   => $last_key->[0],
                    'arg2'   => undef,
                    'result' => $result,
                );
                return [ $defn, \@opcodes, $assign ] <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8876	9022	
==>1'   => $last_key->[0],
            'arg2'   => undef,
            'result' => $result,
        );
        return [ $defn, \@opcodes, $assign ] <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	5513	5642	
==>sysaccess' => undef,
             'i_sysdir' => 'define',
             'i_sysexit' => undef,
             'i_sysfile' => 'define', <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	11020	11140	
==>der { color: blue; cursor: pointer; }  /* hack? */

    .tests_ok       { color: #050; }
    .tests_failed   { color: #50 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1948	2044	
==>atted' => "\n\\par}\n",
 'Para'    => "\n{\\pard\\li#rtfindent#\\sa180\n",
 '/Para'   => "\n\\par <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	7210	7308	
==><< x >>->vtable->I<<
method >> >>> to C<VTABLE_I<method>>.

=cut

sub rewrite_body
{
    my ($self, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437978	438340	
==>:base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 502,
                  "ARGS" => [
                              " <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7105	7201	
==>CURR] eq "_startasm") {
		feedme;
		#$syms[CURR]=~s/^\n|\n$//gm;
		push @{$code{$seg}->{code}}, " <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	13298	13390	
==>ole hash element.
The object reference is returned.

=item Class (C<'Class_Name'> or C<'*Clas <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	933516	933729	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934290	934503	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	935065	935278	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41867	41981	
==>elsif($copy[0] eq '=over') {
      $copy[0] = '=back';
    } else {
      die "I don't know how to auto-close an op <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	744	840	
==>=over

=item $token->text

This returns the text that this token holds.  For example, parsing
CZ< <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27847	27942	
==>($node->{children}[$_]);
      $self->_add_inst('','div',[$return,$return,$temp]);
      $self-> <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	14044	14141	
==>ns Bool`

Sometimes what you need to test does not fit into one of the standard
testing functions. <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	773	863	
==>sa($block, 'Jako::Construct::Block');
  confess "Left is not Value!" unless UNIVERSAL::isa( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	785	875	
==>sa($block, 'Jako::Construct::Block');
  confess "Left is not Value!" unless UNIVERSAL::isa( <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	25996	26090	
==>, $mv, "argument read");
		$mv->{"ARG$arg_num"} = $mv->{$arg_name};
		push @localmv, "ARG$arg_n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	212510	212672	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le_num",
                  "FLAGS" => ":base_core" <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	1722	1841	
==>= sub { return $_[0] };
        *lock  = sub { 0 };
    }
}


=head1 NAME

Test::Builder - Backend for building test lib <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	28046	28149	
==>k happily closes matching =over\n";
        # Expected case: we're closing the most recently opened thin <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	15501	15611	
==>rint("Trying alternative $i of 0..$#args\n");
        push @ops, @{ $iops[$i] };
        push @ops, aop('pushin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864083	864193	
==>s)\n    n = 0;\n  else {\n    n = s->bufused;\n    assert(n == ENCODING_BYTES(interpreter, {{\@2}}));\n  }\n  { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864975	865085	
==>s)\n    n = 0;\n  else {\n    n = s->bufused;\n    assert(n == ENCODING_BYTES(interpreter, {{\@2}}));\n  }\n  { <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15296	15410	
==>)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # return a single scalar
    ($x = ((@_ == <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16477	16591	
==>)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # return a single scalar
    ($x = ((@_ == <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	375	470	
==>t locations

=head1 SYNOPSIS

    % perl tools/dev/install_files.pl [options]

=head1 DESCRIPTIO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20859	21143	
==>E" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 28,
                  "ARG <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	12475	12624	
==>fter_charclass');

    my @ops = (          aop('advance', [ $howfar, $lastback ]),
                         aop('goto', [ $next ]),
                $ <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2070	2174	
==>checkout_tests()
##
## Checkout the tests from CVS into $DIR.
##
sub checkout_tests {
    print "Checking <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	7295	7388	
==>my $prodcount = scalar @{$self->{"prods"}};
	my $impcount = ++$self->{"impcount"};
	return "_a <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6256	6342	
==>ES}
prop_stack_depth[${ITEMP0}] = stack_depth
goto POST_BRANCH_NOT_switch_${CURIC}

POS <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4194	4280	
==>ES}
prop_stack_depth[${ITEMP0}] = stack_depth
goto POST_BRANCH_NOT_switch_${CURIC}

POS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	229823	230243	
==>[
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 268,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#lin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182158	182455	
==>TYPE" => "inline",
                  "CODE" => 217,
                  "ARGS" => [
                              "i",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 278 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	2494	2596	
==>if (! iskeyword($syms[CURR]));

	# The "unimplementeds"
	# Eat tokens until we get to the next statemen <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189750	189844	
==>n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190691	190785	
==>n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126520	126626	
==>e 271 \"src/ops/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127655	127761	
==>e 271 \"src/ops/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128790	128896	
==>e 271 \"src/ops/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459953	460265	
==>{\@1}} = {{\@2}} % den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460941	461253	
==>{\@1}} = {{\@2}} % den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461929	462241	
==>{\@1}} = {{\@2}} % den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6396	6516	
==>eturn;
    }
}

sub needs_build {
    my ($target, @sources) = @_;

    my $target_mod = modtime($target)
      or return <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4816	4936	
==>eturn;
    }
}

sub needs_build {
    my ($target, @sources) = @_;

    my $target_mod = modtime($target)
      or return <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6607	6727	
==>eturn;
    }
}

sub needs_build {
    my ($target, @sources) = @_;

    my $target_mod = modtime($target)
      or return <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120913	121181	
==>=> "inline",
                  "CODE" => 150,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 231 \"src/ops/bit.ops\ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9176	9294	
==>>[-1\] # peekindex",
            "eq <rx_tmp>, -1, ".$self->output_label_use($fallback)." # was a mark?",
            " <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12268	12377	
==>)      # capture argument list
     /"Parrot_${1}_$method(" . full_arguments($2) . ')'/xeg;

    # Rewrite SUP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065573	1065947	
==>,
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1190,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" = <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6601	6726	
==>od;
    }

    return 0;
}

sub generate_dump {
    my ($pmc) = @_;

    if (needs_build("$pmc.dump", "$pmc.pmc")) {
        r <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6812	6937	
==>od;
    }

    return 0;
}

sub generate_dump {
    my ($pmc) = @_;

    if (needs_build("$pmc.dump", "$pmc.pmc")) {
        r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49187	49359	
==>S" => [
                              "ic"
                            ],
                  "BODY" => "#line 785 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3820	3928	
==>and parent module has no fnlib property either!")
        unless $module_props{fnlib};

      $fnlib = $modul <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6484	6592	
==>and parent module has no fnlib property either!")
        unless $module_props{fnlib};

      $fnlib = $modul <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540498	540609	
==>n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541750	541861	
==>n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543002	543113	
==>n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943426	943721	
==>=> ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1061,
                  "ARGS" => [
                              "i" <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	19161	19272	
==>lf->{Curr_Test}" if $self->use_numbers;
    $out   .= " # TODO & SKIP $why\n";

    $self->_print($out);

    re <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	99	198	
==>TTP::Server::Simple::Static;

use CGI;
use CGI::Carp   qw<fatalsToBrowser>;
use Fcntl       qw<:DEFA <==
3	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	1589	1694	
==>urn $len;
}
EOF

} else { # !DEVELOPING

  print << "EOF";
/* fingerprint checking is only enabled in deve <==
3	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	694	777	
==><examples/benchmarks/stress.pasm>, 
F<examples/benchmarks/stress.pl>, 
F<examples/be <==
3	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	541	624	
==><examples/benchmarks/stress.pasm>, 
F<examples/benchmarks/stress.pl>, 
F<examples/be <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	14888	15008	
==>));

    my $name = $target->name;
    
    # This is a cheat because we know that all top-level sections
    # have thei <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	5097	5209	
==>on file.

=cut

sub process_file_start_token
{
    my $self = shift;
    my $token = shift;
    my $tagname = $to <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	28930	29052	
==>it, 'P']
}
sub FOR_ITER
{
    my ($n, $c, $cmt) = @_;
    my $targ = "pc_xxx";
    my $tos = pop @stack;
    my $iter = $to <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8499	8608	
==>STDERR 
#DBG>				    "go to state $$states[$$stack[-1][0]]{GOTOS}{$lhs}.\n";

#DBG>				$debug & 0x10
#DBG> <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8114	8219	
==>STDERR 
#DBG>				    "go to state $$states[$$stack[-1][0]]{GOTOS}{$lhs}.\n";

#DBG>				$debug & 0x10
#DBG> <==
3	/Users/nnunley/parrot/examples/benchmarks/freeze.pl	894	988	
==>, "\n";
print "array size ", scalar(@b), "\n";

=head1 SEE ALSO

F<examples/benchmarks/freeze.p <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	1442	1548	
==>HEADER";
/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatic <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	3202	3308	
==>HEADER";
/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatic <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9881	9966	
==>,$c,$_[8],11,0x4bdecfa9,/* 38 */
HH,$c,$d,$a,$b,$_[11],16,0xf6bb4b60,/* 39 */
HH,$b,$c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292435	292638	
==>,
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 940 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} == {{\@3}};\n  {{+=4} <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	3988	4090	
==>{
    my @regexes = grep defined, $ini->val( regexes => 'exclude');
    @{ $cfg{skip_bench} } = @regexe <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	3498	3594	
==>s the test if a string comparison of output
with the expected result is true.

=item C<pbc_output <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	13116	13235	
==>[OP]/ && do {
        push @{$temps_ref}, "PMC *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	15134	15237	
==>u_utime and $t->ru_stime are objects of type timeval.
        # set $t->ru_utime to 100.0 sec and $t->ru <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	11944	12039	
==>nitialized by default to C<()>.

With no argument, the accessor returns a reference to the
eleme <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	12681	12776	
==>nitialized by default to C<()>.

With no argument, the accessor returns a reference to the
eleme <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21590	21704	
==>$expr1->[1] };
    push @opcodes, @{ $expr2->[1] };
    push @opcodes, new LocalDir( $parser,
        'result' = <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	22412	22526	
==>$expr1->[1] };
    push @opcodes, @{ $expr2->[1] };
    push @opcodes, new LocalDir( $parser,
        'result' = <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	3062	3152	
==>t
with the expected result is true.

=item C<pir_output_like($code, $expected, $description <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562005	562292	
==>und\", {{\@3}});\n  }\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563089	563376	
==>und\", {{\@3}});\n  }\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347663	347917	
==>,
                  "ARGS" => [
                              "p",
                              "sc",
                              "sc"
                            ],
                  "BODY" => "#line 148 \"src/ops/io.ops\"\n  /* These char * need to g <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	7470	7573	
==>ket');  }
sub skip_open_paren    { return shift->skip('open-paren');    }
sub skip_infix_rel     { retur <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8777	8866	
==>string_to_cstring(interpreter, {{\@1}});\n    struct PackFile_FixupEntry *fe = PackFile_fi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9893	9982	
==>string_to_cstring(interpreter, {{\@1}});\n    struct PackFile_FixupEntry *fe = PackFile_fi <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5818	5932	
==>value; # close group $group!;
    return @ops;
}

sub output_getstart {
    my ($self, $reg, $group) = @_;
    $reg <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6181	6294	
==>value # close group $group!;
    return @ops;
}

sub output_getstart {
    my ($self, $reg, $group) = @_;
    $reg <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	12372	12470	
==>).  Checks if $got ne $dont_expect.  This is
the string version.

=item B<isnt_num>

  $Test->is_nu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	5126	5232	
==>".
#

sub require
{
  my $self = shift;

#  DEBUG(0, "Requiring '$kind'");
  
  $self->SYNTAX_ERROR("Expect <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8549	8634	
==>+3)
next
print
data "ABANDON","CHART","COMPUTER"
data "DAMAGES","DESTRUCT","DOCK","IDL <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21413	21498	
==>+3)
next
print
data "ABANDON","CHART","COMPUTER"
data "DAMAGES","DESTRUCT","DOCK","IDL <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	3540	3661	
==>me.

=cut

sub c_header_file_with_name
{
    my $self = shift;
    my $name = shift || return;
    
    $name .= '.h' unle <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	2859	2975	
==>sub modified_since
{
    my $self = shift;
    my $time = shift;
    
    return $self->stat->mtime > $time;
}

=item <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28168	28278	
==>, $out_name) = @_;

    my $hout = dont_edit($self->{file});
    my $name = uc $self->{class};
    $hout .= <<" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	313683	313912	
==>ME" => "conv_i1",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2448	2544	
==>g goes horribly wrong.

If all your tests passed, Test::Simple will exit with zero (which is
norm <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	171	252	
==>ot/languages/jako/lib/Jako/Construct/Block/Sub.pm 19606 2006-05-30T15:08:05.048089 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908116	908397	
==>E" => 1023,
                  "ARGS" => [
                              "s",
                              "p",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 262 \"src/ops/string.ops\"\n  {{\ <==
3	/Users/nnunley/parrot/tools/build/vtable_h.pl	534	641	
==>able.h" or die $!;

print OUT <<'EOF';
/* ex: set ro:
** !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
**
** Thi <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	13814	13912	
==>-ing of tests.

== Misc. Functions

- `skip (Str $reason?) returns Bool`
- `skip (Int $count, Str $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8508	8619	
==>'print "\n"';
    }

    # FIXME: Still have extra copy in many cases
    push @ops, "eq <rx_tmp>, -1, ".$self-> <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	569	666	
==>tems)>

Returns a new group.

Use this when creating groups within a C<Parrot::Docs::Section>
subc <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	248	339	
==>_and_skip.pl

=head1 DESCRIPTION

Recreates MANIFEST and MANIFEST.SKIP from the svn director <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7385	7542	
==>attern
            .local pmc rulesub
            .local pmc match
            .local pmc code
            .local pmc exp
            target = unicode:"$targe <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8841	8996	
==>{$lhs}, $semval ]);
                $$check='';
                next;
            };

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Forced Error reco <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8444	8593	
==>{$lhs}, $semval ]);
                $$check='';
                next;
            };

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Forced Error reco <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	22021	22131	
==>dren of this $treelet->[0] node...\n";
    for($i = 2; $i < @$treelet; ++$i) { # iterate over children
      ne <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5299	5393	
==>me => 'assign' });
  $dest->sax($handler);
  $handler->start_element({ Name => 'op', Attributes <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3362	3456	
==>me => 'assign' });
  $dest->sax($handler);
  $handler->start_element({ Name => 'op', Attributes <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	1829	1974	
==>lang_fn}",
                "l2p -o languages/${pir_fn} > nul",
                "$self->{parrot} languages/${pir_fn}",
            );
        } <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	4052	4160	
==>fied target file.

=cut

sub genfile
{
    my ($source, $target, %options) = @_;

    open my $in, '<', $sour <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	9115	9210	
==>qr/\.\d+/;
    $pointfloat = qr/(?:(?:\d+)?$frac)|\d+\./o;
    $expfloat = qr/(?:\d+|$pointfloat <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5815	5928	
==>, $base) = @_;
    my $cg_func = $self->core_prefix . $base;
    my $bs = $base . $self->suffix . '_';

    return <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3154	3263	
==>me.
        $conf->data->set(link => $conf->data->get('ld'));

        # We can't use -opt: and -debug togethe <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4658	4767	
==>me.
        $conf->data->set(link => $conf->data->get('ld'));

        # We can't use -opt: and -debug togethe <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61476	61737	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorson",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inli <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62119	62380	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorson",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inli <==
3	/Users/nnunley/parrot/config/gen/PodText.pm	433	531	
==>o their plain text equivalents.

=head1 USAGE

=head2 Methods

=head3 Class Methods

=over

=item * <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3043	3157	
==>, $dest);
}

sub output_ne {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_test('ne', $val1, $val2, $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	10864	10969	
==>ould not close ops file '$file' ($!)!";

    return;
}

# Extends a string containing an or expression "0" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030910	1031185	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sizeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031778	1032053	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sizeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	14917	15035	
==>$call_params = join(",", @$args);
        my @tempi = grep { defined $temp[$_] } 0..$#$args;
        my $temp_decl = jo <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	9274	9408	
==>ile_line_coverage) {

        print OUT qq(
            <hr noshade>
            <a name="$source_file"></a>
            <b>File: $sour <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	317261	317471	
==>"NAME" => "conv_i2_ovf",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline" <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	2869	2967	
==>oddir/core.pm";

my $file = shift @ARGV;
die "$0: Could not find ops file '$file'!\n" unless -e $fi <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	7678	7865	
==>[$group]: "),
                        aop('pushint', [ '<tmp>' ]),
                        aop('setstart', [ $group, '<pos>' ]),
                        @R_ops,
                        $se <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019847	1019935	
==>esultbuffer[26];\n  Parrot_localtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020778	1020866	
==>esultbuffer[26];\n  Parrot_localtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	58457	58565	
==>e) or next;
			my $rulename = $1;
			if ($rulename =~ /Replace|Extend|Precompile|Save/ )
			{	
				_warn(2,"R <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	314	407	
==>mops.pasm> example program,
for speed comparisons.

Calculates a value for M ops/s (million op <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	310	403	
==>mops.pasm> example program,
for speed comparisons.

Calculates a value for M ops/s (million op <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3611	3704	
==>hecklist,$inarray,$outhash)=@_;
	my($prm,$value);
	my($prmlst)={};

	while(($prm,$value)=s <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3423	3512	
==>hecklist,$inarray,$outhash)=@_;
	my($prm,$value);
	my($prmlst)={};

	while(($prm,$value)=s <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	7529	7683	
==>)(\w+)/a_$1/)
        {
            my $name = $1;
            my $arg  = $args{$name};
            
            if ($arg->{type} eq 'script' or $arg->{typ <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	6179	6293	
==>e = shift;
    my $ignore = shift;
    my %suffixes = ();
    
    foreach my $file ($self->files($recursive, $igno <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	707	799	
==>fine NREG(i) REG_NUM(i)
#define PREG(i) REG_PMC(i)
#define SREG(i) REG_STR(i)
#define CONST(i <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	8227	8318	
==>_$label"]);

  $self->_add_inst ('', 'branch',["DONE_$label"]);
  $self->_add_inst ("LAMBDA_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103833	1103921	
==>/experimental.ops\"\n\tSTRING *class = {{\@2}};\n\tINTVAL type = pmc_type(interpreter, cl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105048	1105136	
==>/experimental.ops\"\n\tSTRING *class = {{\@2}};\n\tINTVAL type = pmc_type(interpreter, cl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760886	761169	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "setp_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761738	762021	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "setp_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "T <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	4571	4702	
==>fo->cur_op/g;
            $asm =~ s/MAP\[(\d)\]/MAP($1)/g;
            # set extern if the code calls a function
            $extern <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	20281	20417	
==>ass = "Parrot::Test::${language}";

                # set the builder object, and parrot config.
                my $obj         = $class <==
3	/Users/nnunley/parrot/config/init/defaults.pm	6357	6486	
==>hese
        yacc => 'bison -v -y',
        lex  => 'flex',

        # Extra flags needed for libnci_test.so
        ncilib_link_e <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	2111	2217	
==>ssibilitiy of running off the end) are returned. If
# a count is not given, 1 is inferred.
#

sub at
{
  my <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	38237	38375	
==>$_};
	}

	# Return generated code.
	return $pir;
}


# Instruction to PIR routine.
# ###########################
sub ins_to_pir($$) {
	my $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2824	2918	
==>pe;
  $self->INTERNAL_ERROR("No type for right!") unless defined $right_type;

  $self->SYNTAX_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2590	2684	
==>pe;
  $self->INTERNAL_ERROR("No type for right!") unless defined $right_type;

  $self->SYNTAX_ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1885	2027	
==>@_;

    return
        "$CC $CFLAGS " .
        "-o " . $target . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/include' . $PATHQUO <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2181	2323	
==>@_;

    return
        "$CC $CFLAGS " .
        "-o " . $target . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/include' . $PATHQUO <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1976	2118	
==>@_;

    return
        "$CC $CFLAGS " .
        "-o " . $target . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/include' . $PATHQUO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200710	200964	
==>DE" => 237,
                  "ARGS" => [
                              "nc",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 373 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	4737	4879	
==>=> undef,
             'i_ndbm' => 'define',
             'i_netdb' => 'define',
             'i_neterrno' => undef,
             'i_netinetin' <==
3	/Users/nnunley/parrot/config/gen/icu.pm	969	1069	
==>fied a icu config parameter,\nICU autodetection disabled.\n" if $verbose;
        } elsif (!defined $ <==
3	/Users/nnunley/parrot/config/inter/libparrot.pm	1982	2108	
==>->get('build_dir')
                   . $conf->data->get('slash')
                   . $conf->data->get('blib_dir') . ' -lpar <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	2993	3114	
==>turn shift->is('module');        }
sub is_next          { return shift->is('next');          }
sub is_open_brace    { retu <==
3	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	1056	1168	
==>.
 *
 * Any changes made here will be lost!
 *
 */

#include <string.h>
#include <parrot/packfile.h>

EOF

if (-e <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1423	1521	
==>-Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT = qq[];

# Here comes some stu <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1468	1566	
==>-Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT = qq[];

# Here comes some stu <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1472	1570	
==>-Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT = qq[];

# Here comes some stu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40193	40454	
==>ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41040	41301	
==>ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	16430	16541	
==>)\s+"&#([^;]+);">/) {
      my($name, $value) = ($1,$2);
      next if $name eq 'quot' or $name eq 'apos' or $na <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	44555	44688	
==>gth($p->[$i-1]) - 1) . ' ';
    } else {
      $formatting .= ' ' x (length($p->[$i-1]) - length($formatting));
    }
    # Make $form <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	5875	5984	
==>d} == 1 ? 'CPU' : 'wall-clock';
    print "Times are in $type seconds.  (lower is better)\n";
}
else {
    pri <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1896	1997	
==>arrot::Docs::Section::Compilers->new,
        Parrot::Docs::Section::Languages->new,
        Parrot::D <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985186	985478	
==>> [
                              "i",
                              "ic",
                              "sc",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56069	56358	
==>"
                               ],
                  "TYPE" => "function",
                  "CODE" => 72,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 869 \"src/ops/cor <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	4080	4245	
==>NAME" => "wrapper__",
                  "FLAGS" => ":internal",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848249	848359	
==>ps\"\n  {{\@1}} = string_chopn(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849029	849139	
==>ps\"\n  {{\@1}} = string_chopn(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247014	247331	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "and",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247877	248194	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "and",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	248741	249058	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "and",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	783	881	
==>t the Perl 6 pattern, passing the test
if they match.  Note that patterns should be specified as st <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2881	2979	
==>t the Perl 6 pattern, passing the test
if they match.  Note that patterns should be specified as st <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	651	748	
==>'',
			$self->new_item('Ops to C Code Generation', 
			    'lib/Parrot/OpsFile.pm', 'lib/Parrot/Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732167	732279	
==>=> "#line 129 \"src/ops/set.ops\"\n  {{\@1}} = (INTVAL)({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732913	733025	
==>=> "#line 129 \"src/ops/set.ops\"\n  {{\@1}} = (INTVAL)({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	42121	42224	
==>P$count",$arg]);
    }
    $count++;
  }

  $self->_add_inst('', 'set', ['P0', $func_obj]) unless $func_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1144	1246	
==>ot Value!" if defined $right and not UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  m <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1172	1274	
==>ot Value!" if defined $right and not UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  m <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	844	946	
==>ot Value!" if defined $right and not UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  m <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8507	8611	
==>s a register then it is up to the SRM to do the store.
	# Otherwise, there's nothing to do here.
	if ($de <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6327	6431	
==>s a register then it is up to the SRM to do the store.
	# Otherwise, there's nothing to do here.
	if ($de <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5242	5346	
==>s a register then it is up to the SRM to do the store.
	# Otherwise, there's nothing to do here.
	if ($de <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037694	1037788	
==>5 \"src/ops/var.ops\"\n    Parrot_store_global(interpreter, NULL, {{\@1}}, {{\@2}});\n    {{+=3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038475	1038569	
==>5 \"src/ops/var.ops\"\n    Parrot_store_global(interpreter, NULL, {{\@1}}, {{\@2}});\n    {{+=3 <==
3	/Users/nnunley/parrot/config/inter/lex.pm	969	1096	
==>> 'echo');
        $self->set_result('skipped');
        return $self;
    }

    my $prog;

    # precedence of sources for the <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	966	1093	
==>> 'echo');
        $self->set_result('skipped');
        return $self;
    }

    my $prog;

    # precedence of sources for the <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13950	14056	
==>continue block and then pop it back off. It will be in the
      # parent block's content array, and it wil <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5080	5179	
==>ebug)=$$self{DEBUG};
#DBG>	my($dbgerror)=0;

#DBG>	my($ShowCurToken) = sub {
#DBG>		my($tok)='>' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4835	4930	
==>ebug)=$$self{DEBUG};
#DBG>	my($dbgerror)=0;

#DBG>	my($ShowCurToken) = sub {
#DBG>		my($tok)='>' <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	6624	6896	
==>n -lodbc32 ',
                link              => 'gcc',
                linkflags         => '',
                o                 => '.o',
                slash             => '\\',
                blib_dir          => 'blib\\lib',
            );
            if ($conf-> <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28885	28986	
==>ndef }
sub isterminal { 1 }
sub describe ($) { shift->{'description'} }

sub new ($$$$)
{
	my $class = <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30965	31066	
==>ndef }
sub isterminal { 1 }
sub describe ($) { shift->{'description'} }

sub new ($$$$)
{
	my $class = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610943	611195	
==>E" => 692,
                  "ARGS" => [
                              "p",
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 491 \"src/ops/object.ops\"\n    VTABLE_set <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	37522	37676	
==>r,
            'prolog' => 1,
            'result' => $defn,
            'arg1'   => $nil->[0],
        );
        push @opcodes2, new LabelOp( $parse <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6104	6262	
==>}{$$token})
                    ?   $$actions{ACTIONS}{$$token}
                    :   exists($$actions{DEFAULT})
                        ?   $$actions{DEF <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5816	5971	
==>}{$$token})
                    ?   $$actions{ACTIONS}{$$token}
                    :   exists($$actions{DEFAULT})
                        ?   $$actions{DEF <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9919	10012	
==>lative_path_is_file($path)>

Returns whether the specified relative path is a file.

=cut

sub <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955378	955641	
==>,
                  "NAME" => "encodingname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "func <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956189	956452	
==>,
                  "NAME" => "encodingname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "func <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	12520	12653	
==>op('advance', [ $howfar, $lastback ]),
                         aop('goto', [ $next ]),
                $back => aop('increment', [ -$ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1173	1266	
==>ting with YY (leading YY will be discarded)
my(%params)=(YYLEX => 'CODE', 'YYERROR' => 'CODE' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1131	1223	
==>ting with YY (leading YY will be discarded)
my(%params)=(YYLEX => 'CODE', 'YYERROR' => 'CODE' <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	1484	1601	
==>->encoding, $_->type,
            $_->size, $_->data);

	$constant_num++;
    }
}


#
# compile_byte_code()
#

my @arg <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10724	10814	
==>RAMS}[${ITEMP0}] = ${STEMP0}

# Next parameter.
dec stack_depth
goto pre_call_PLOOP_${CURIC <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7977	8067	
==>RAMS}[${ITEMP0}] = ${STEMP0}

# Next parameter.
dec stack_depth
goto pre_call_PLOOP_${CURIC <==
3	/Users/nnunley/parrot/config/init/hints/freebsd.pm	141	248	
==>t::hints::freebsd;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    my $libs = $conf->data->get( <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34046	34146	
==>'class'} eq 'branch') {
		# Call pre_branch and append code that it generates.
		my $pre_branch = $sr <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5399	5511	
==>token,$$value)=(undef,undef);
	@$stack=( [ 0, undef ] );
	$$check='';

    while(1) {
        my($actions,$a <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	2705	2816	
==>l', ''
.namespace [ 'builtins' ]
        
.sub '$cmd'
  .param int register
  .param pmc argv

  .local pmc comp <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5139	5246	
==>token,$$value)=(undef,undef);
	@$stack=( [ 0, undef ] );
	$$check='';

    while(1) {
        my($actions,$a <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19909	20001	
==>orks like get_title except that it returns the contents of
the "=head1 VERSION\n\n[BIG BLOCK] <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	40950	41062	
==>ow->[$_] > $max_len[$_];
    }
  }
  @max_len;
}

sub _call_function_sym {
  my $self = shift;
  my $symbol = shi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653386	653476	
==>>find_method(interpreter, {{\@2}}, {{\@3}});\n    if (!{{\@1}} || !VTABLE_defined(interpret <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654547	654637	
==>>find_method(interpreter, {{\@2}}, {{\@3}});\n    if (!{{\@1}} || !VTABLE_defined(interpret <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645599	645805	
==>=> [
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 211 \"src/ops/pmc.ops\"\n    if ({{\@2}} > 0 && {{\@2}} < interpret <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561865	561956	
==>hod(interpreter, {{\@2}}, {{\@3}});\n  if (!{{\@1}}) {\n    real_exception(interpreter, next <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562949	563040	
==>hod(interpreter, {{\@2}}, {{\@3}});\n  if (!{{\@1}}) {\n    real_exception(interpreter, next <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	8502	8613	
==>ccept_target         { shift->unaccept_targets(@_) }

sub unaccept_targets {
  my $this = shift;
  foreach my $t <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10615	10724	
==>ranges = @{ shift() };

    # Sort those pairs by their first element
    @ranges = sort { $a->[0] <=> $b->[0] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015039	1015129	
==>p = strerror({{\@2}});\n  {{\@1}} = string_make(interpreter, tmp, strlen(tmp), \"ascii\", 0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015863	1015953	
==>p = strerror({{\@2}});\n  {{\@1}} = string_make(interpreter, tmp, strlen(tmp), \"ascii\", 0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1430	1528	
==>_opcode)[o])

/*
 * if we are using CHECK_EVENTS elsewhere this macro should (again)
 * be in inclu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51305	51534	
==>EXT|PARROT_JUMP_RESTART",
                  "NAME" => "trace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52087	52316	
==>EXT|PARROT_JUMP_RESTART",
                  "NAME" => "trace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "i <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	5074	5212	
==>de$/) {
            if ($rule->{$_} =~ /^([0-9A-F]{2}\s+)*[0-9A-F]{2}$/) {
                if ($has_code) {
                    die "Duplic <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22358	22475	
==>$title if $t->type eq 'text';
      }
      undef $title if $title =~ m<^\s*$>; # make sure it's contentful!
      las <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22842	22959	
==>$title if $t->type eq 'text';
      }
      undef $title if $title =~ m<^\s*$>; # make sure it's contentful!
      las <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	377	476	
==>::Configure::Step ':gen';

our $description = 'Generating core pmc list';
our @args = ();

sub runst <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	3058	3173	
==>turns the block on the top of the block stack.
#

sub current_block
{
  my $self = shift;

  $self->INTERNAL_ERROR(" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712350	712443	
==>interpreter);\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interprete <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713457	713550	
==>interpreter);\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interprete <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	334	439	
==>File;

use Carp;

use Jako::Compiler;

use base qw(Jako::Construct::Block);


#
# compile()
#

sub compile <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243972	244062	
==>ring(interpreter, {{\@2}});\n  {{\@1}} = string_compare(interpreter, l, {{\@3}});\n  {{+=4} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244904	244994	
==>ring(interpreter, {{\@2}});\n  {{\@1}} = string_compare(interpreter, l, {{\@3}});\n  {{+=4} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848304	848578	
==>\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ch <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849084	849358	
==>\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ch <==
3	/Users/nnunley/parrot/lib/Test/More.pm	28788	28927	
==>Data_Stack if $ok;

        last unless $ok;
    }

    return $ok;
}

sub _deep_check {
    my($e1, $e2) = @_;
    my $ok = 0;

    # Effec <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	23324	23438	
==>e;
            close $SOURCE;

            my $libparrot_shared = "$PConfig{rpath_blib} -L$PConfig{blib_dir} -lparr <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2801	2908	
==>ipped"
Label1:
   PRINT "5 back in module-level code"
   END
Sub1:
   PRINT "2 in subroutine one"
   GOSUB S <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16768	16875	
==>ipped"
Label1:
   PRINT "5 back in module-level code"
   END
Sub1:
   PRINT "2 in subroutine one"
   GOSUB S <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4028	4131	
==>${ITEMP0} = 0\n";
	for (1..$pushes) {
		$pir .= <<'PIR';
# Increment stack depth.
inc stack_depth

# Get <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2444	2547	
==>${ITEMP0} = 0\n";
	for (1..$pushes) {
		$pir .= <<'PIR';
# Increment stack depth.
inc stack_depth

# Get <==
3	/Users/nnunley/parrot/lib/Test/More.pm	34439	34536	
==>TS and NOTES

=over 4

=item Backwards compatibility

Test::More works with Perls as old as 5.004_ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	16662	16763	
==>ored.

If @imports are given, they are passed through to the use.  So this:

   BEGIN { use_ok('Some:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	370143	370393	
==>433,
                  "ARGS" => [
                              "s",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 341 \"src/ops/io.ops\"\n  {{\@1}} = PIO_reads <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	245	358	
==>coke  $
#

use strict;
eval "use warnings 'all';";

package Jako::Symbol;

use Carp;


#
# CONSTRUCTOR:
#

sub new <==
3	/Users/nnunley/parrot/tools/docs/pod_errors.pl	72	161	
==>t/tools/docs/pod_errors.pl 19607 2006-05-30T15:23:20.183054Z coke  $

=head1 NAME

tools/d <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54102	54214	
==>code);
				$prod and $prod->additem($item)
				      or  _no_rule($code,$line);
			}
			elsif ($grammar =~ m/(?=$ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54521	54633	
==>code);
				$prod and $prod->additem($item)
				      or  _no_rule($code,$line);
			}
			elsif ($grammar =~ m/(?=$ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54999	55111	
==>code);
				$prod and $prod->additem($item)
				      or  _no_rule($code,$line);
			}
			elsif ($grammar =~ m/(?=$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117540	117909	
==>"ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 146,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 226 \"src <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	6463	6582	
==>=\*}}/            $trans->goto_pop();       /me;

    s/{{\+=([^{]*?)}}/    $trans->goto_offset($1);  /me;
    s/{{-=([^ <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	9965	10050	
==>c unmanagedstruct.pmc managedstruct.pmc delegate.pmc csub.pmc compiler.pmc exception.p <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11482	11735	
==>esult2,
                            'arg1'   => $result,
                            'arg2'   => $key->[0],
                        );
                        $result = $result2;
                    }
                    push @opcodes, @{ $last_key <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9710	9939	
==>esult2,
                        'arg1'   => $result,
                        'arg2'   => $key->[0],
                    );
                    $result = $result2;
                }
                push @opcodes, @{ $last_key <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8621	8802	
==>esult2,
                'arg1'   => $result,
                'arg2'   => $key->[0],
            );
            $result = $result2;
        }
        push @opcodes, @{ $last_key <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539640	539929	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066182	1066471	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  " <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	7428	7574	
==>amples.in' => 'languages/tcl/examples/Makefile',
        commentType                        => '#',
        replace_slashes                    => 1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634053	634370	
==>=> "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 710,
                  "ARG <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	7619	7753	
==>ut and $err and $out eq $err ) {
        $err = "&STDOUT";
    }

    local *OLDOUT if $out;
    local *OLDERR if $err;

    # Save the <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7671	7804	
==>ut and $err and $out eq $err) {
        $err = "&STDOUT";
    }

    local *OLDOUT if $out;
    local *OLDERR if $err;

    # Save the <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	168	267	
==>t::Configure::Step::Base - Configuration Step Base Class

=head1 SYNOPSIS
    
    use base qw(Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490773	490992	
==>rc/ops/math.ops\"\n  {{\@1}}++;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	491394	491613	
==>rc/ops/math.ops\"\n  {{\@1}}++;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	1930	2050	
==>$sorted_pmcs[$n++] = $_;
        }
    }
    ## print "***\n", join(' ', @sorted_pmcs), "\n";
    @sorted_pmcs;
}

sub ru <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	5740	5921	
==>inkflags => '',

            ar       => 'tlib',
            ar_flags => '',
            ar_out   => '',
            ar_extra => '/au',
            slash    => '\\',
            blib <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	7290	7431	
==>_eh) \s+ (\w+)/$1 $2_%0/gx;

        # locals
        if (%locals) {
            my $locals = join "|", keys %locals;
            $line =~ s/\ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	24518	24634	
==>\n";
      }
      
      # Try generating errata section, if applicable
      unless($self->{'~tried_gen_errata'}) { <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	990	1086	
==>tance Methods

=over 4

=item C<prefix()>

Returns the default 'C<Parrot_>' prefix.

Used by C<Pa <==
3	/Users/nnunley/parrot/tools/build/revision_c.pl	822	917	
==>on(void);

int Parrot_revision(void)
{
    return ${Parrot::Revision::current};
}

int Parrot_co <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	8740	8894	
==>e' => 'gmake',
             'make_and' => '&&',
             'make_c' => 'gmake -C',
             'make_set_make' => '#',
             'memalign' => 'some_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168517	168607	
==>{{\@1}}->vtable->get_integer(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169459	169549	
==>{{\@1}}->vtable->get_integer(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n <==
3	/Users/nnunley/parrot/lib/Test/More.pm	26094	26225	
==>(@Data_Stack));
        }
    }

    return $ok;
}

sub _format_stack {
    my(@Stack) = @_;

    my $var = '$FOO';
    my $did_arro <==
3	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	771	866	
==>file should contain a transcript of the svn:ignore properties
# of the directories in the Parrot <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3626	3721	
==>file should contain a transcript of the svn:ignore properties
# of the directories in the Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572702	572948	
==>"inline",
                  "CODE" => 654,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 242 \"src/ops/object.ops\"\n  PMC *name <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	28725	28835	
==>.param $t $_\n};
			push @{$code{$seg}->{args}}, $_;
		} else {
			s/\(\)//g;
			$_=changename($_);
			#print S <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17616	17753	
==>t(1)->is_assign
      and $self->get(2)->is_value
      and $self->get(3)->is_infix_bit
      and $self->get(4)->is_value
    ) {
      my <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791577	791664	
==>e 432 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed_int(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792484	792571	
==>e 432 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed_int(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741032	741270	
==>nline",
                  "CODE" => 833,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 164 \"src/ops/set.ops\"\n  {{\@1} <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	24476	24585	
==>turn $self->{Todo_FH};
}


sub _new_fh {
    my($file_or_fh) = shift;

    my $fh;
    if( _is_fh($file_or_fh) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	619406	619502	
==>(c^~b) >= 0) {\n\t    if (lt == enum_class_Integer)\n\t\tPMC_int_val(left) = c;\n\t    else\n\t\t <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3133	3236	
==>'ki' => "IREG(%ld)",

    'ic' => "cur_opcode[%ld]",
    'nc' => "CONST(%ld)->u.number",
    'pc' => "CO <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2045	2146	
==>'ki'  => "IREG(%ld)",

  'ic'  => "cur_opcode[%ld]",
  'nc'  => "CONST(%ld)->u.number",
  'pc'  => "CO <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2778	2876	
==>elf, $val1, $val2, $dest) = @_;
    $self->output_test('!=', $val1, $val2, $dest);
}

sub output_lt <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	4185	4291	
==>>{experimental});
    }

    @{$ops->{OPS}} = sort { $a->{CODE} <=> $b->{CODE} } (@{$ops->{OPS}} );
}

# cr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	626319	626407	
==>} didn't change */\n    (void) ((interface_f)lru->f.real_function)(interpreter, sig_bits, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	27705	27939	
==>\n    argc = SIG_ELEMS(signature);\n    {{+=argc + 2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	28530	28764	
==>\n    argc = SIG_ELEMS(signature);\n    {{+=argc + 2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	31214	31448	
==>\n    argc = SIG_ELEMS(signature);\n    {{+=argc + 2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4267	4404	
==>_stringify {
    $_ = $_[0];
    s/\\(?!u)/\\\\/g;
    s/\n/\\n/g;
    s/\r/\\r/g;
    s/\"/\\"/g;
    return $_;
}

sub _generate_pir_for <==
3	/Users/nnunley/parrot/examples/benchmarks/freeze.pl	668	779	
==>.6f\n", $e-$s;

$s = time();
my @b = @{ thaw $image };
$e = time();
printf "  thaw time %.6f\n", $e-$s;

#$s = t <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	717	816	
==>es to just a scalar ref
  my($class, $scalar_ref) = @_;
  $$scalar_ref = '' unless defined $$scalar_ <==
3	/Users/nnunley/parrot/Configure.pl	3585	3682	
==>ram -licudata -licuuc'

(The libs in openoffice are actually version 2.2 and do not work)

=item C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206436	206523	
==>"BODY" => "#line 394 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207378	207465	
==>"BODY" => "#line 394 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7471	7580	
==>"
FIN:
for i = 1 to 3
	on i gosub oats, peas, beans
next i
print
end
100 print "100!"
    goto FIN
200 print " <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19754	19863	
==>"
FIN:
for i = 1 to 3
	on i gosub oats, peas, beans
next i
print
end
100 print "100!"
    goto FIN
200 print " <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	48616	48710	
==>ide_line_numbers(1);
    $mutor->($parser) if $mutor;
    $parser->parse_string_document( shift <==
3	/Users/nnunley/parrot/config/init/hints/linux.pm	1362	1494	
==>ccflags        => $cflags,
        libs           => $libs,
        ld_share_flags => $ld_share_flags,
        ld_load_flags  => $ld_ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	545	636	
==>:Section );

use Parrot::Distribution;

use Parrot::Docs::Section::Info;
use Parrot::Docs::S <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	2285	2400	
==>flags);
        $conf->data->set('linkflags', $linkflags);
        print " (no) " if $verbose;
        $self->set_re <==
3	/Users/nnunley/parrot/config/auto/readline.pm	2085	2200	
==>flags);
        $conf->data->set('linkflags', $linkflags);
        print " (no) " if $verbose;
        $self->set_re <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33951	34047	
==>_TRACE;').'
		if (1) { no strict qw{refs};
		$Parse::RecDescent::lastexpected = ' . ($rule->hasle <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	338962	339210	
==>0,
                  "NAME" => "getstderr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "COD <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	15427	15529	
==>map { "$temp[$_]->[1] = arg$_;"} @tempi);
        print NCI << "HEADER";
static void
pcf_${return}_$par <==
3	/Users/nnunley/parrot/lib/Test/More.pm	30032	30190	
==>ype eq 'DIFFERENT' ) {
                push @Data_Stack, { type => $type, vals => [$e1, $e2] };
                $ok = 0;
            }
            elsif( $type <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	6030	6157	
==>'i_syssecrt' => undef,
             'i_sysselct' => 'define',
             'i_syssocket' => 'define',
             'i_syssockio' <==
3	/Users/nnunley/parrot/config/auto/python.pm	224	321	
==>er python is there. Checks also whether we have Python 2.4.

=head1 TODO

Store version of Python. <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	21915	22019	
==>as, $i, $treelet); # scratch
  while($treelet = shift @stack) {
    DEBUG > 3 and print " Considering chi <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	894	989	
==>mport> method and exports no
I<symbols>.

=cut

package Parrot::Configure::Data;

use strict;
us <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	10279	10376	
==>lo, World!
print "Hello, ";	' COmment
print "World!"

' Expect Correct
DIM A(1,1)
RO=1
IF A(RO,5)= <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	53726	53844	
==>etely 
processed.

Note that in scalar and void contexts the value of this argument is 
automatically reset to 1 (under <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4805	4908	
==>fined $to and length $to;
  $out .= "#" . $section if defined $section and length $section;
  return und <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	430	525	
==>ting_codes = qw(I B C L E F S X Z); 
%Known_formatting_codes = map(($_=>1), @Known_formatting_co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095143	1095228	
==>"#line 223 \"src/ops/experimental.ops\"\n  Parrot_Exec_OS_Command(interpreter, {{\@1}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095838	1095923	
==>"#line 223 \"src/ops/experimental.ops\"\n  Parrot_Exec_OS_Command(interpreter, {{\@1}} <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3196	3294	
==>(@ISA %pmc_types @EXPORT_OK);

@ISA = qw( Exporter );
@EXPORT_OK = qw( %pmc_types);

%pmc_types = ( <==
3	/Users/nnunley/parrot/lib/Parrot/PMC.pm	140	238	
==>(@ISA %pmc_types @EXPORT_OK);

@ISA = qw( Exporter );
@EXPORT_OK = qw( %pmc_types);

%pmc_types = ( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64191	64473	
==>"runinterp",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 84,
                  "ARGS <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	415	528	
==>nt "this is ok\n"
    end
    CODE
    this is ok
    OUTPUT

=head1 DESCRIPTION

This module provides various Par <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	4879	4984	
==>$startpos;
		return;
	}

	$ldelpos = pos $$textref;

	unless ($$textref =~ m/\G($ldel)/gc)
	{
		_failmsg " <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1710	1968	
==>2, N5, N1
                              #
print "Elapsed time:  $N2\n"; # print  "Elapsed time:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	1710	1968	
==>2, N5, N1
                              #
print "Elapsed time:  $N2\n"; # print  "Elapsed time:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94754	94985	
==>"ARGS" => [
                              "s",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 63 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	14870	15005	
==>= "&arg$i";
            }
        }
        my $call_params = join(",", @$args);
        my @tempi = grep { defined $temp[$_] } 0..$#$ar <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	1951	2055	
==>nt INC <<"EOF";
# DO NOT EDIT THIS FILE.
#
# This file is generated automatically from
# $f by config/gen <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	11587	11702	
==>},
						 _get_args($clause,1) ] },
				 $transnode ] };
  }

  $self->_generate($transnode);
}

sub _op_case {
}

s <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	650	751	
==>'.c';
die "$0: $infile: $!" unless -e $infile;

my %known_strings = ();
my @all_strings;

&read_all;
o <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	6983	7081	
==>(@external_symbols));
    printf("Of these, %d are not defined by ANSI C89:\n", scalar(@non_ansi_ex <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	1614	1733	
==>pec;
use Test::Harness;

sub set_flags
{
    my %options           = @_;
    $ENV{HARNESS_VERBOSE} = 1;
    $ENV{HARNESS <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	3543	3650	
==>ed (;$$$)
{
	my $textref = defined $_[0] ? \$_[0] : \$_;
	my $ldel = defined $_[1] ? $_[1] : '{([<';
	my $pr <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	5595	5694	
==>ously had this idea (unfortunately,
he wasn't in Tony's kitchen).  This is it.


=head1 SEE ALSO

=o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38458	38598	
==>_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "AR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39322	39462	
==>_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "AR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905203	905370	
==>i",
                              "i"
                            ],
                  "BODY" => "#line 262 \"src/ops/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3605	3719	
==>$dest);
}

sub output_if {
    my ($self, $reg, $dest) = @_;
    $reg = value($reg);
    return "if $reg, " . $self <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Compilers.pm	948	1059	
==>w_group( 'TGE', 'the Tree Grammar Engine',
            'compilers/tge' ),
        $self->new_group( 'PAST', 't <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924420	924640	
==>make_empty(interpreter, enum_stringrep_one, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925211	925431	
==>make_empty(interpreter, enum_stringrep_one, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	2064	2168	
==>elf->new_item('The status of the Parrot test suite.', 't/TESTS.STATUS.pod'),
        ),
        $self->ne <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	46683	46797	
==>$grammar) + 1;
		my $commitonly;
		my $code = "";
		my @components = ();
		if ($grammar =~ m/$COMMENT/gco)
		{
			_ <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	698	812	
==>enum>

Renumber opcodes according to existing ops in ops/num and natural
order in the given ops files. See also F<t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42000	42313	
==>",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 53,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 727 \"s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556067	556364	
==>,
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 638 <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	455	577	
==>s
    if %1 >= 0 goto power_ok
%% DOMAIN_ERROR %%
power_ok:
    $N1 = %1
    $N2 = %2
    $N1 = pow $N1, $N2
	%1 = $N1

END <==
3	/Users/nnunley/parrot/config/auto/jit.pm	1246	1357	
==>t fails because archname is "darwin-thread-multi-2level".
    if ($cpuarch =~ /darwin/) {
        $osname  = 'da <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	18082	18175	
==>skip) ? $skip : $Parse::RecDescent::skip;'
			: '') .($::RD_NO_TRACE?'':'
		Parse::RecDescent: <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	2300	2404	
==>rocess to do it the first time.
    my $devnull = File::Spec->devnull;
    my $cmd = "cxref -raw -Iinclud <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19452	19543	
==>t that it returns the contents of the
"=head1 AUTHOR\n\nParagraph...\n" section, assuming th <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	328135	328309	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_r4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	328802	328976	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_r4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4727	4840	
==>ers({ Data => $string });
      $handler->end_element({ Name => 'literal' });
    }
  }
  else {
    $handler->sta <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321801	322015	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322572	322786	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323344	323558	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o" <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	47028	47169	
==>le 13
		 '@2-1', 0,
sub
#line 104 "Lua\lua51.yp"
{
            PushScope( $_[0] );
        }
	],
	[#Rule 14
		 'stat', 6,
sub
#line <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39521	39633	
==>utput_port,

####
#### Input
####

  'read' => \&_op_read,
  'read-char' => \&_op_read_char,
  'peek-char' => \&_ <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1720	1828	
==>onfigure::Data> object.

=cut

sub data
{
    my $self = shift;

    return $self->{data};
}

=item * C<optio <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	25569	25735	
==>('pushint', [ 0 ]),
               $next =>
              );

    return ($back, @ops);
}

# R?? ->       pushindex
#              goto next
#        back: popindex or <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8390	8542	
==>en ";

                $$check eq 'ERROR'
            or  do {
#DBG>				$debug & 0x04
#DBG>			and	print STDERR 
#DBG>				    "go to state $$states[ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8010	8156	
==>en ";

                $$check eq 'ERROR'
            or  do {
#DBG>				$debug & 0x04
#DBG>			and	print STDERR 
#DBG>				    "go to state $$states[ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3025	3127	
==>o/bI<ar>baz>>')
    "
Output:
  $VAR1 = 'barbaz';


=head1 SEE ALSO

L<Pod::Simple>

=head1 COPYRIGHT A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669114	669337	
==>le->push_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669886	670109	
==>le->push_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	279	375	
==>t;
eval "use warnings";

package Jako::Construct::Statement::New;

use Carp;

use base qw(Jako::C <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	5753	5906	
==>nsi -pedantic",
            gccversion => undef
        );

        return $self;
    }

    $conf->data->set(
        ccwarn              => "$warns $ccw <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	702	792	
==>Jako::Construct::Expression::Value::Identifier');
  confess "Props are not hash!" if define <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	781	871	
==>Jako::Construct::Expression::Value::Identifier');
  confess "Props are not hash!" if define <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	23432	23551	
==>,
            "$does", @{[length($does)]}, "ascii",
            PObj_constant_FLAG|PObj_external_FLAG);
EOC
    }
    el <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15290	15388	
==>ti sub is_deeply (List  $got, List  $expected, Str $desc?) returns Bool;
  multi sub is_deeply (Has <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	9694	9786	
==>morph($return,$false);
  $self->_restore($false);

  $self->_add_inst("DONE_$label");
  retur <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7593	7721	
==>File::Spec->devnull
            if $_ and $_ eq '/dev/null';
    }

    if ($out and $err and $out eq $err) {
        $err = "&ST <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037711	1037822	
==>ps\"\n    Parrot_store_global(interpreter, NULL, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038492	1038603	
==>ps\"\n    Parrot_store_global(interpreter, NULL, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9213	9347	
==>YYErrok has been called
            or  next;       # so continue parsing

#DBG>			$debug & 0x10
#DBG>		and	do {
#DBG>			print STD <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8798	8927	
==>YYErrok has been called
            or  next;       # so continue parsing

#DBG>			$debug & 0x10
#DBG>		and	do {
#DBG>			print STD <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	1916	2011	
==>d**) (op   - CONTEXT(i->ctx)->pred_offset) : NULL)
#endif

#define OP_AS_OFFS(o) (_reg_base + (( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284808	284926	
==>cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285685	285803	
==>cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286562	286680	
==>cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7197	7296	
==>cat ${STEMP0}
${STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
PIR
	}

	return $pir;
}

sub post_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5019	5118	
==>cat ${STEMP0}
${STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
PIR
	}

	return $pir;
}

sub post_ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	2970	3066	
==>ected, $description)>

Runs the PIR code and passes the test if a string comparison of output
wit <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	1573	1690	
==>\n|.)*][]mg;

    # Strip code blocks
    $text =~ s[^{.+?^}][]msg;

    # Split on paragraphs
    my @funcs = split / <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717991	718086	
==>terpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_fprintf(interpreter, io, INTVAL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718923	719018	
==>terpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_fprintf(interpreter, io, INTVAL <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1670	1760	
==>$dest->value);
  $self->SYNTAX_ERROR("Assigning to unknown variable %s.", $dest->value) unl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1628	1718	
==>$dest->value);
  $self->SYNTAX_ERROR("Assigning to unknown variable %s.", $dest->value) unl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1550	1640	
==>$dest->value);
  $self->SYNTAX_ERROR("Assigning to unknown variable %s.", $dest->value) unl <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7948	8047	
==>Oops (int)"
i=0
if i then print "Should not happen (flo)"
i=55
if i then print "This is true" else p <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14935	15034	
==>Oops (int)"
i=0
if i then print "Should not happen (flo)"
i=55
if i then print "This is true" else p <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1578	1674	
==>(0, "Compiling string literal: '%s'...", $self->value);

    return $string unless $string =~ m/( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5655	5886	
==>UMP" => 0,
                  "NAME" => "load_bytecode",
                  "FLAGS" => ":load_file",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6320	6551	
==>UMP" => 0,
                  "NAME" => "load_bytecode",
                  "FLAGS" => ":load_file",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => " <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	4466	4561	
==>dynpmc>

The class is a dynamic class. These have a special C<class_init>
routine suitable for d <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414606	415045	
==>GDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 478,
                  "ARGS" => [
                              "i",
                              "p",
                              "i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2366	2469	
==>nd', Attributes => { kind => $self->kind } });
  }

  if ($self->op) {
    $handler->start_element({ Nam <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	2834	2934	
==>root >> to get the
tree's top node.

=head1 Tree Contents

Every element node in the parse tree is re <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27128	27288	
==>hOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $l_break;
            }
        }
    }
    push @opcodes, @{$block <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27809	27969	
==>hOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $l_break;
            }
        }
    }
    push @opcodes, @{$block <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17646	17752	
==>="False "
if i or  j then b$="True  " else b$="False "
if i xor j then c$="True  " else c$="False "
if i eq <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5115	5241	
==>n";

        # Execute permissions on libraries is especially important on
        # some platforms
        if ($^O eq 'hpux' o <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5326	5452	
==>n";

        # Execute permissions on libraries is especially important on
        # some platforms
        if ($^O eq 'hpux' o <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4332	4453	
==>n";
	
		    # Execute permissions on libraries is especially important on
			# some platforms
	        if ($^O eq 'hpux' o <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	53838	53972	
==>etty($$_) ;
      $x;
    } elsif(ref($_) eq 'HASH') {
      my $hr = $_;
      $x = "{" . join(", ",
        map(pretty($_) . '=>' . p <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	12697	12811	
==>( !defined $got || !defined $dont_expect ) {
        # undef only matches undef and nothing else
        my $test = <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	13141	13255	
==>( !defined $got || !defined $dont_expect ) {
        # undef only matches undef and nothing else
        my $test = <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	17609	17700	
==>ed
to work just like Pod::Simple's same-named methods:

=over

=item $parser->parse_file(... <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567495	567581	
==>3 \"src/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->does(interpreter, {{\@2}}, {{\@3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568390	568476	
==>3 \"src/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->does(interpreter, {{\@2}}, {{\@3 <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	17379	17492	
==>ariants
sub get_super_mmds {
    my ($self, $meth, $right, $func) = @_;
    ## use Data::Dumper;
    ## printf "** <==
3	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	845	939	
==>ectories in the Parrot subversion repository. (Needed for
# distributions or in general when sv <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3700	3794	
==>ectories in the Parrot subversion repository. (Needed for
# distributions or in general when sv <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7134	7252	
==>emval);
            ($lhs,$len,$code)=@{$$rules[-$act]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print S <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6803	6916	
==>emval);
            ($lhs,$len,$code)=@{$$rules[-$act]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print S <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	14159	14269	
==>trlen      string.h
strncat     string.h
strncmp     string.h
strncpy     string.h
strpbrk     string.h
strrchr <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	64442	64539	
==>here in this code, if
only because parts of it give the impression of understanding a great deal
m <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9726	9822	
==>eed to knock off first arg.
if "${CURIC}" != "73" goto pre_call_NOT_CTOR_${CURIC}
${PTEMP4} = shi <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7240	7336	
==>eed to knock off first arg.
if "${CURIC}" != "73" goto pre_call_NOT_CTOR_${CURIC}
${PTEMP4} = shi <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6204	6300	
==>eed to knock off first arg.
if "${CURIC}" != "73" goto pre_call_NOT_CTOR_${CURIC}
${PTEMP4} = shi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787999	788255	
==>t_number_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788909	789165	
==>t_number_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19184	19282	
==>wo rows of identical numbers
type foo
	first as integer
end type
dim y as foo
read a,b,y.first
read <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413641	414055	
==>,
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 477,
                  "ARGS" => [
                              "i",
                              "p",
                              "ic",
                              "i",
                              "i"
                            ],
                  "BODY" => "#lin <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7955	8054	
==>nt)"
i=0
if i then print "Should not happen (flo)"
i=55
if i then print "This is true" else print "O <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14942	15041	
==>nt)"
i=0
if i then print "Should not happen (flo)"
i=55
if i then print "This is true" else print "O <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17704	17838	
==>te 47
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784306	784392	
==>ne 392 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_pmc_keyed_int(interpreter, {{\@1}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785212	785298	
==>ne 392 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_pmc_keyed_int(interpreter, {{\@1}} <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9029	9222	
==>='';

        };

        #Error
            $$errstatus
        or   do {

            $$errstatus = 1;
            &$error($self);
                $$errstatus # if 0, then YYErrok ha <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8624	8807	
==>='';

        };

        #Error
            $$errstatus
        or   do {

            $$errstatus = 1;
            &$error($self);
                $$errstatus # if 0, then YYErrok ha <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	10876	10999	
==>/* $index */
    /* type $type, */
    "$name",
    "$full_name",
    "$func_name",
    /* "",  body */
    $jump,
    $arg_ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5249	5382	
==>ined($last)) {
            push @ops, "lt <rx_tmp>, $first, $fail"
              unless $first == 0;
            push @ops, "lt <rx_tm <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6657	6751	
==>enerate name of register to hold value we pop off the stack.
${PTEMP1} = ${STYPES}[${ITEMP2}]
$ <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	3619	3712	
==>Ron Rivests MD5 Algorithm

=head1 DISCLAIMER

This is B<not> an interface (like C<Digest::MD5> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	492	620	
==>mpiler) = @_;

  my $kind        = $self->kind;
  my $peer        = $self->peer;

  my $prefix;

  if ($self->prefix) {
    $pref <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	472	600	
==>mpiler) = @_;

  my $kind        = $self->kind;
  my $peer        = $self->peer;

  my $prefix;

  if ($self->prefix) {
    $pref <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	9700	9801	
==>y $norm_current = $self->{'encoding'};
    my $norm_e = $e;
    foreach my $that ($norm_current, $norm <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369487	369666	
==>n  {{\@1}} = PIO_reads(interpreter, {{\@2}}, (size_t){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	370372	370551	
==>n  {{\@1}} = PIO_reads(interpreter, {{\@2}}, (size_t){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830716	830934	
==>RY_INT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831457	831675	
==>RY_INT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
3	/Users/nnunley/parrot/tools/build/vtable_extend.pl	2062	2162	
==>dle
   the problem.

   PARROT_CALLIN_START(interpreter) will figure out if the stack
   anchor needs <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	2121	2214	
==>red steps.  Where each steps is represented by an
L<Parrot::Configure::Task> object.  Steps ar <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822387	822477	
==>eption(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_int(entry- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823455	823545	
==>eption(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_int(entry- <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1610	1725	
==>elf->set_result('no');
        return $self;
    }

    if ($conf->options->get('ask')) {
        $prog = prompt($pr <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1624	1739	
==>elf->set_result('no');
        return $self;
    }

    if ($conf->options->get('ask')) {
        $prog = prompt($pr <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9493	9593	
==>by .5's and True! after 3
for t=1 to 10 step 0.5
print t,
print sqr(t),
if t=3 then print "True!"
nex <==
3	/Users/nnunley/parrot/config/auto/gc.pm	1828	1925	
==>/res_lea\$(O):	\$(GENERAL_H_FILES) \$(SRC_DIR)/res_lea.c
EOF
            TEMP_gc_o => "\$(SRC_DIR) <==
3	/Users/nnunley/parrot/config/auto/gc.pm	2119	2216	
==>/res_lea\$(O):	\$(GENERAL_H_FILES) \$(SRC_DIR)/res_lea.c
EOF
            TEMP_gc_o => "\$(SRC_DIR) <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	14741	14894	
==>rgs) {
            if ($args->[$i] =~ /^\((.+)\*\)&(.+)$/) {
                $temp[$i] = [ $1, $2 ];
                $args->[$i] = "&arg$i";
            } <==
3	/Users/nnunley/parrot/config/auto/jit.pm	5409	5543	
==>it/test_c.in');
            eval { cc_build(); };
            unless ($@ || cc_run() !~ /ok/) {
                $conf->data->set(jit_i3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	395757	396057	
==>TYPE" => "function",
                  "CODE" => 459,
                  "ARGS" => [
                              "p",
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 527 \"src/op <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	2815	2971	
==>nstructions to translate class library.
# ##########################################################
sub generate_classlib_make($) {
    my $mono_class_li <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	15211	15330	
==>f $I1 == $I2 goto good
    %% DOMAIN_ERROR %%
  good:
    # Create a result vector
    .local pmc result 
    result = n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557262	557526	
==>,
                  "NAME" => "tailcallmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558645	558909	
==>,
                  "NAME" => "tailcallmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560029	560293	
==>,
                  "NAME" => "tailcallmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	839591	839829	
==>LS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rotate_up",
                  "FLAGS" => ":base_cor <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840285	840523	
==>LS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rotate_up",
                  "FLAGS" => ":base_cor <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	176	269	
==>languages/jako/lib/Jako/Token.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#
#

use strict;
ev <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462932	463240	
==>d({{\@2}}, den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463929	464237	
==>d({{\@2}}, den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464926	465234	
==>d({{\@2}}, den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92617	92924	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95068	95375	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95961	96268	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core", <==
3	/Users/nnunley/parrot/config/inter/libparrot.pm	1342	1486	
==>t_is_shared,  

        libparrot => $parrot_is_shared         
            ? '$(LIBPARROT_SHARED)'      
            : '$(LIBPARROT_STATIC)' <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4076	4175	
==><<'PIR';
# Increment stack depth.
inc stack_depth

# Get type (so we can find register type).
${PTEM <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2492	2591	
==><<'PIR';
# Increment stack depth.
inc stack_depth

# Get type (so we can find register type).
${PTEM <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	4745	4859	
==>shape'()
    $I0 = shape
    if $I0 == 2 goto print_2D
    # XXX assume 1d otherwise.
    unless iter goto iter_end <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	8132	8243	
==>,
      ],
      duration      => sprintf("%.02f", Time::Seconds->new($10)->minutes) . "&nbsp;min",
      summar <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	632	717	
==>ruct::Block::Sub;
use Jako::Construct::Block::Loop::Continue;
use Jako::Construct::Blo <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1468	1589	
==>GOTO ];

our $LIBPARROT = qq[];

# Here comes some stuff for Win32.
our $PATHQUOTE = '';
if ($^O eq 'MSWin32') {
    # Pat <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1513	1634	
==>GOTO ];

our $LIBPARROT = qq[];

# Here comes some stuff for Win32.
our $PATHQUOTE = '';
if ($^O eq 'MSWin32') {
    # Pat <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1517	1638	
==>GOTO ];

our $LIBPARROT = qq[];

# Here comes some stuff for Win32.
our $PATHQUOTE = '';
if ($^O eq 'MSWin32') {
    # Pat <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	29563	29662	
==>har_downcase {
}

sub _op_string_p {
}

sub _op_make_string {
}

sub _op_string {
}

sub _op_string_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806030	806120	
==>DY" => "#line 497 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed(int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806936	807026	
==>DY" => "#line 497 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed(int <==
3	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1422	1531	
==>ne . "\n";
    exit 1;
  }
}

sub usage { print STDERR <<USAGE; exit }
Usage: $0 [options] -- smoke1.html smok <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	18055	18162	
==>clude, $name, \%all);
        gen_super_meths($class, $vt, \%all);

        my $Dumper = Data::Dumper->new([ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18849	18937	
==>hat codeblocks ("verbatim sections") will appear as.

=item $parser->header_halfpoint_siz <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	7597	7756	
==>_[0], 'Regex::Ops::List')) {
        map {
            if ($_->{name} eq 'LABEL') {
                "$_->{label}: ";
            } else {
                $_->{n <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	1514	1634	
==>$lua_test eq 'monkey' ) {
            @test_prog = (
                "monkey -o languages/${pir_fn} languages/${lang_fn <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	795	886	
==>"an"
B$("Hi Mom!")="interesting"
B$(0)="development.
keys a$(), b$()
i=0
do
	t$=a$(i)
	print <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	16487	16613	
==>T => -39
	},
	{#State 49
		ACTIONS => {
			"-" => 62
		},
		DEFAULT => -44
	},
	{#State 50
		DEFAULT => -37
	},
	{#State 51
		A <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	4012	4112	
==>=cut

sub type
{
	my $self = shift;
	my $type = $self->type_for_suffix($self->suffix);
	
	return $typ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	25087	25182	
==>{
	&{$_[0]}($_[1]);
}

package Text::Balanced::ErrorMsg;

use overload '""' => sub { "$_[0]->{er <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	622532	622826	
==>GDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 701,
                  "ARGS" => [
                              "pc"
                            ],
                  "BODY" => "#line 189 \"src/ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	32546	32708	
==>w AssignOp( $parser,
            'result' => $state,
            'arg1'   => $nil->[0],
        );
        push @return1, $state;
    }
    else {
        p <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	11310	11405	
==>most reg-exps, but given that they are still a
somewhat experimental feature in Pugs, it is sugg <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	5673	5803	
==>/$//; # /*  */
    s/^ *\/\///mg;   # //
    s/^ ?\*\*//mg;   # |**
    s/^ {0,2}\*//mg; # | *

    s/^ *(\$I[d]: .+)\n//m; $info-> <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	20605	20716	
==>[1] ]); }
	],
	[#Rule 21
		 '@1-1', 0,
sub
#line 132 "lib/Regex/Grammar.y"
{ ++$::paren }
	],
	[#Rule 22
		 'exp <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	3579	3689	
==>:$depends) is export {
    my $caller = caller().package;

    eval "package $caller; require $module";

    #t <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	34814	34897	
==>\"\<\>\:\#\&\*\{\}\[\]\(\)]+(\:\:[^\/\|,\$\%\@\ \"\<\>\:\#\&\*\{\}\[\]\(\)]+)*$/s) { <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6514	6638	
==>urn 1;
    for my $source (@sources) {
        return 1 if modtime($source) > $target_mod;
    }

    return 0;
}

sub genera <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4934	5058	
==>urn 1;
    for my $source (@sources) {
        return 1 if modtime($source) > $target_mod;
    }

    return 0;
}

sub genera <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6725	6849	
==>urn 1;
    for my $source (@sources) {
        return 1 if modtime($source) > $target_mod;
    }

    return 0;
}

sub genera <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136826	137250	
==>RS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 168,
                  "ARGS" => [
                              "s",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#li <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	12833	12938	
==>ned $dont_expect;

        $self->ok($test, $name);
        $self->_cmp_diag($got, 'ne', $dont_expect) unl <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	31955	32059	
==>E
}
sub typeof {
	my($var)=@_;
	return "FLO" if ($var=~/[!#%&]$/);
	return "STRING" if ($var=~/\$$/);
	re <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18575	18691	
==>@args = ();

      unless ($self->get(1)->is_close_paren) {
        while (1) {
          push @args, Jako::Construct <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19601	19717	
==>@args = ();

      unless ($self->get(1)->is_close_paren) {
        while (1) {
          push @args, Jako::Construct <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	846	953	
==>ipt instead.
 *
 * Created by $svnid
 *  Overview:
 *     This file contains various charset tables.
 *  Dat <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27896	28022	
==>NEXT] eq "(") {
				feedme();
				while($syms[CURR] ne ")") {
					feedme();
				}
				push(@params, "()$a");
			} else {
				p <==
3	/Users/nnunley/parrot/examples/benchmarks/shared_ref.pl	337	442	
==>es between threads.

=cut

use strict;
use threads;
use threads::shared;

for my $i (0..99_999) {
    my $ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16126	16302	
==>if ( wantarray ) 
        {
            @_ = splice @_; # break aliasing
        } 
        else 
        {
            my $x = shift;
            # Pod::Simple::HTML didn't che <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1521	1616	
==>en Pod::Simple sees a "=head1 Hi there", for example, it basically does
this:

  $parser->_handl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320063	320353	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" => ":d <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320833	321123	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" => ":d <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	12369	12484	
==>er = new .Iterator, op2

    if op1 >= 0 goto pos_loop
    iter = 4 # ITERATE_FROM_END

neg_loop:
    if op1 == 0 go <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2568	2671	
==>my $CGI = shift;
  my $html = $CGI->param("smoke");

  my $id = md5_hex $html;
  if(glob "parrot-smoke-* <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834246	834329	
==>02 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834972	835055	
==>02 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7266	7373	
==>*[\n\r]+([^\n\r]+)/smo;
	
	$text = $1;
	# Tidy it up a bit.
	$text =~ s/^\s+//o;
	$text =~ s/\s+$//o;
	$text <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3453	3555	
==>ispara'},
    "\n\n"
  ;
  $self->{'Thispara'} = '';
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2983	3085	
==>ispara'},
    "\n\n"
  ;
  $self->{'Thispara'} = '';
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	3056	3245	
==>next;
            }
            else {
                $line =~ m/(extern\s*)?(\w+)\s*{/; #}
                $extern = (defined($1))? 1 : 0;
                $function = $2;
                $ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3712	3806	
==>pattern);

    goto &Parrot::Test::pir_output_is;
}

=item C<pgeglob_like($target, $pattern, $e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818070	818161	
==>e 40 \"src/ops/stack.ops\"\n  Parrot_push_regs(interpreter);\n  /* these 2 opcodes change th <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	23471	23591	
==>gget = ;
          splice @$treelet, $i, 1, [pop(@dynasty), {}, $treelet->[$i]];
            # relace node with a new par <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	3602	3711	
==>s
{
    my $self = shift;

    my ($verbose, $verbose_step, $ask) =
        $self->options->get(qw(verbose ver <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	5274	5371	
==>t->{label}->{reachable}; # Already reached here
	$stmt->{label}->{reachable} = 1;

	# Loop over th <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9917	10018	
==>S}. Note that they come
# off the stack last to first, but need to be first to last in ${PARAMS}.
${IT <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7431	7532	
==>S}. Note that they come
# off the stack last to first, but need to be first to last in ${PARAMS}.
${IT <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6395	6496	
==>S}. Note that they come
# off the stack last to first, but need to be first to last in ${PARAMS}.
${IT <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36662	36767	
==>append code that it generates.
		my $pre_call = $srm->pre_call();
		$pir .= "### pre_call\n";
		$pir .= su <==
3	/Users/nnunley/parrot/lib/Test/More.pm	34353	34453	
==>eported as 254.

B<NOTE>  This behavior may go away in future versions.


=head1 CAVEATS and NOTES

= <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	4580	4715	
==>, $dest];
            next;
        }
    } elsif ($meta{include}) {
        $dest =~ s/^include//;
        $dest = File::Spec->catdir($ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1848	1942	
==>}
sub start_over_number  { ++$_[0]{'Indent'} }
sub start_over_text    { ++$_[0]{'Indent'} }
sub <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1416	1510	
==>}
sub start_over_number  { ++$_[0]{'Indent'} }
sub start_over_text    { ++$_[0]{'Indent'} }
sub <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009876	1010098	
==>}} = string_compose(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010641	1010863	
==>}} = string_compose(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	3332	3428	
==><br>\n";
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::Docs::Group>

=item C<Parrot::Docs:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1096451	1096673	
==>CODE" => 1216,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 236 \"src/ops/experimental.ops\"\n    PMC * <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	1657	1767	
==>valent for.
    }

    # It's numeric, whether by origin or by mutation from a known name
    return $Code2USAS <==
3	/Users/nnunley/parrot/examples/benchmarks/vpm.pl	45	151	
==>ienna-PM list
#
use strict;

my $big;
my $string="just another perl hacker";

for (0 .. 99999) {
    $big++ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4062	4185	
==>ter '".lc($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _DBLoad {
	{
		no strict 'refs';

			exis <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3859	3970	
==>ter '".lc($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _DBLoad {
	{
		no strict 'refs';

			exis <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073007	1073375	
==>[
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_ma <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075192	1075560	
==>[
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_ma <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077377	1077745	
==>[
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_ma <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	1401	1531	
==>'cc_exe_out' => '-o ',
             'cc_hasjit' => ' -DHAS_JIT -DPPC',
             'cc_inc' => '-I./include',
             'cc_ldf <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	10172	10283	
==>L_backup, $num_groups, $startup) = @_;
    my @ops;
#    if ($name ne 'default') {
#     @ops = split(/\n/, <<"E <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30011	30104	
==>rd::Const;
use base 'Parrot::Pmc2c::Standard';
import Parrot::Pmc2c qw( gen_ret );

=item C<bo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130771	131090	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131625	131944	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132480	132799	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	2635	2742	
==>f defined($ignorePattern) && /$ignorePattern/;
        $sum += unpack("%32C*", $_);
    }
    close($file) o <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4678	4767	
==>:CGoto>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot::OpTrans::Compiled>

=back

=cu <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4344	4445	
==>_safe { 1 }
sub hasback { 1 }

# Sequences of regexes like RS
package Regex::Ops::Tree::seq;

sub init <==
3	/Users/nnunley/parrot/config/auto/signal.pm	592	719	
==>___sighandler_t => undef,
        has_sigatomic_t    => undef,
        has_sigaction      => undef,
        has_setitimer      = <==
3	/Users/nnunley/parrot/config/init/miniparrot.pm	1754	1881	
==>___sighandler_t => undef,
        has_sigatomic_t    => undef,
        has_sigaction      => undef,
        has_setitimer      = <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	708	800	
==>b dumps {
	print "$syms[PREV] $type[PREV] \tprevious\n";
	print "$syms[CURR] $type[CURR] \tcu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8097	8231	
==>p_colon) {
        my $prop = $self->require_ident->text;
      
        my $value;

        if ($self->skip_assign) {
          $value <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5103	5231	
==>p_colon) {
        my $prop = $self->require_ident->text;

        my $value;

        if ($self->skip_assign) {
          $value <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	35486	35603	
==>ehavior, with the ill behavior, with the ill behavior..."

      DEBUG > 1 and print "Running a real parse on this non <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	13954	14077	
==>16,
			"." => 41
		},
		DEFAULT => -28,
		GOTOS => {
			'number' => 39,
			'rulename' => 17
		}
	},
	{#State 23
		ACTIONS => <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	8345	8458	
==>complex.h
casinhf     complex.h
casinhl     complex.h
casinl      complex.h
catan       complex.h
catanf      comp <==
3	/Users/nnunley/parrot/Configure.pl	2740	2836	
==>-cgoto=0>

Don't build cgoto core. This is recommended when you are short of memory.

=item C<--j <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	2661	2778	
==>e minus any .xyz suffix.

=cut

sub name_without_suffix
{
    my $self = shift;
    my $name = $self->name;
    
    $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3902	4010	
==>_check {
    my ($self, $needed, $failLabel, $lenvar) = @_;
    $lenvar ||= "<rx_len>";
    my $fail = $self- <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3616	3724	
==>_check {
    my ($self, $needed, $failLabel, $lenvar) = @_;
    $lenvar ||= "<rx_len>";
    my $fail = $self- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365646	365928	
==>t",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 428,
                  "ARGS <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	9495	9604	
==>->conform(1)) {
    print "Rate limiting -- please wait a bit and try again, thanks.";
    $exit++;
  }
  $buc <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54844	54935	
==>gth($out) < 75;
  return $out;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35987	36112	
==>its tests, it will still be
considered a failure and will exit with 255.

So the exit codes are...

    0                   al <==
3	/Users/nnunley/parrot/lib/Test/More.pm	34058	34183	
==>its tests, it will still be
considered a failure and will exit with 255.

So the exit codes are...

    0                   al <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2853	2978	
==>its tests, it will still be
considered a failure and will exit with 255.

So the exit codes are...

    0                   al <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563954	564160	
==>BLE_add_method(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564852	565058	
==>BLE_add_method(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449338	449452	
==>c/ops/math.ops\"\n  {{\@1}}->vtable->i_absolute(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	3877	4026	
==>};

        $n++;

        eval "use $step_name;";
        die $@ if $@;

        my $step = $step_name->new;

        # XXX This works. but is probab <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4225	4330	
==>ch my $it ($to, $section) {
    if( defined $it ) {
      $it =~ s/([^\x00-\xFF])/join '', map sprintf('%% <==
3	/Users/nnunley/parrot/config/inter/lex.pm	738	838	
==>e = $conf->options->get('verbose');

    # undef means we don't have flex... default to not having fl <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	45423	45540	
==>ength($1), length($1))
        ];
        #print "Formatting <$new_line[-1][-1]> as $new_line[-1][0]\n";
      }
    } <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	13855	13958	
==>ip (Str $reason?) returns Bool`
- `skip (Int $count, Str $reason?) returns Bool`

If for some reason a t <==
3	/Users/nnunley/parrot/config/auto/funcptr.pm	191	284	
==>=head1 DESCRIPTION

Verifies that the compiler supports function pointer casts.

=cut

package <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	6938	7068	
==>get),
           " tokens as \"$name\".\n";
        } else {
          print $fh "<a\n>";  # Yes, an 'a' element with no attributes <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	388	500	
==>@tokdsc, $_[0]);
	$curtok="";
}

sub tokenize {

	fetch;	
	fetch;
	fetch;
MAIN:
	goto END if $cur eq -1;
	if ($cu <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28103	28211	
==>output file we are generating.

=cut

sub gen_h() {
    my ($self, $out_name) = @_;

    my $hout = dont_edit <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2330	2444	
==>}

sub output_print {
    my ($self, $what) = @_;
    $what = value($what);
    return ("print $what;");
}

sub out <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2647	2760	
==>}

sub output_print {
    my ($self, $what) = @_;
    $what = value($what);
    return ("print $what");
}

sub out <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9451	9556	
==>me"} || return;
    
    --$self->{DONT_WRAP} if $tagname eq 'Verbatim' or $tagname eq 'X';
}

=item C<pro <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11436	11717	
==>r,
                            'result' => $result2,
                            'arg1'   => $result,
                            'arg2'   => $key->[0],
                        );
                        $result = $result2;
                    }
                    push @opc <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9668	9921	
==>r,
                        'result' => $result2,
                        'arg1'   => $result,
                        'arg2'   => $key->[0],
                    );
                    $result = $result2;
                }
                push @opc <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8587	8784	
==>r,
                'result' => $result2,
                'arg1'   => $result,
                'arg2'   => $key->[0],
            );
            $result = $result2;
        }
        push @opc <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	29952	30048	
==>, or undef if none. (E.g., in "L<Perl
# Functions|perlfunc>", the name -- also sometimes called t <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	256	346	
==>DESCRIPTION

A Perl implementation of the F<examples/mops/mops.pasm> example program,
for s <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	252	342	
==>DESCRIPTION

A Perl implementation of the F<examples/mops/mops.pasm> example program,
for s <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	1680	1815	
==>tx) } @{ $t->{args} };
        if (@children == 1) {
            return $children[0];
        }

        for (@children) { croak "nonref <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10079	10189	
==>f->path_for_file_with_relative_path(shift);
    
    return unless $path;
    
    return -f $path;
}

=item C< <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	50091	50190	
==>therwise go back to step 1.

=item 3.

Try to match an opening delimiter bracket. If found, call
C<e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744298	744520	
==>}} = string_from_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745064	745286	
==>}} = string_from_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3305	3404	
==>y $string = $self->value;

    if ($string =~ m/(^"|^".*?[^\\])\$/) { # Double-quote with an unescap <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	8005	8113	
==>pe);
  return $return;
}

sub _op_lambda {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensy <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	250	345	
==>ate character set tables.

=cut


my ($svnid) = '$Id: /parrot/tools/dev/gen_charset_tables.pl 19 <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	32283	32406	
==>s empty
      if(  @{$treelet->[$i]} == 2
       or (@{$treelet->[$i]} == 3 and $treelet->[$i][2] eq '')
      ) {
        $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	42685	42808	
==>s empty
      if(  @{$treelet->[$i]} == 2
       or (@{$treelet->[$i]} == 3 and $treelet->[$i][2] eq '')
      ) {
        $ <==
3	/Users/nnunley/parrot/config/auto/readline.pm	95	187	
==>06-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/readline.pm - Test for readline l <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15326	15454	
==>6)).'?'/eg;
      $x;
    } @_;
  } else { # return a single scalar
    ($x = ((@_ == 1) ? $_[0] : join '', @_)
    ) =~ s/([F\x0 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16507	16635	
==>6)).'?'/eg;
      $x;
    } @_;
  } else { # return a single scalar
    ($x = ((@_ == 1) ? $_[0] : join '', @_)
    ) =~ s/([F\x0 <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	14092	14218	
==>s = pop @stack;
    my $f;
    $tos->[1] =~ /<code> (\S+)/;
    $f = $1;
    print "\t\t$cmt $f\n";
    if ($n) {
	for (my $i=0 <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	66289	66427	
==>s,0,
						       "<leftop: $name $2 $name>(..$1) ");

						pos $grammar = $pos;
					}
					else
					{
						$item = new Parse::RecDesce <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	37481	37598	
==>ep $_->[0] eq '=for', @$curr_open;
          DEBUG > 1 and print "Containing fors: ",
            join(',', map $_->[1 <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	22562	22675	
==>\Z/;

    local $Level = $Level + 1;
    $self->_print_diag($msg);

    return 0;
}

=begin _private

=item B<_pri <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	5297	5409	
==>, :$depends;
        }
    }
}

sub skip_rest (Str $reason?, :$depends) returns Bool is export {
    Test::skip($ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79005	79095	
==>PMC_IS_NULL({{\@2}}) ? NULL : PMC_data({{\@2}}), name);\n  string_cstring_free(name);\n  if <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80526	80616	
==>PMC_IS_NULL({{\@2}}) ? NULL : PMC_data({{\@2}}), name);\n  string_cstring_free(name);\n  if <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6758	6871	
==>}

# Pre and post load operation hooks.
sub pre_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "" <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4696	4809	
==>}

# Pre and post load operation hooks.
sub pre_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "" <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3568	3681	
==>}

# Pre and post load operation hooks.
sub pre_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "" <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	7118	7223	
==>tem.c")) {
        run(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c f <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5412	5517	
==>tem.c")) {
        run(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c f <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7329	7434	
==>tem.c")) {
        run(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c f <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43385	43509	
==>> 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 192
		ACT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	269750	270170	
==>> "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 314,
                  "ARGS" => [
                              "i",
                              "p",
                              "p"
                            ], <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4546	4654	
==>lete $self->{args};
        return $self->op('nop', [], %$self);
    } elsif (@{ $self->{args} } == 1 && 2 == <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5683	5791	
==>lete $self->{args};
        return $self->op('nop', [], %$self);
    } elsif (@{ $self->{args} } == 1 && 2 == <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4510	4628	
==>cat' });
    }
    else {
      $string = substr($string, 1, -1); # Without the surrounding quotes.

      $handler->st <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11074	11169	
==>OPQRSTUVWXYZ0123456789])/sprintf('%%%02X',ord($1))/eg;
        # Yes, stipulate the list without <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4423	4517	
==>OPQRSTUVWXYZ0123456789])/sprintf('%%%02X',ord($1))/eg;
       # Yes, stipulate the list without <==
3	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	597	725	
==>ibs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }
    if ($libs !~ /-laio/) {
        $libs .= ' -laio' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9837	9942	
==>f->require_value);
      my $op    = $self->require_infix_rel->text;
      my $right = Jako::Construct::Ex <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25373	25478	
==>f->require_value);
      my $op    = $self->require_infix_rel->text;
      my $right = Jako::Construct::Ex <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880138	880401	
==>> [
                              "s",
                              "sc",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9621	9738	
==>$self->dbprint("POPPED[\%<<rx_tmp>>] INT: \%<$reg>$desc\n"),
                );
    } else {
        return ($self-> p <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	2348	2464	
==>ir2 =~ s/^\[//;
    $dir1 =~ s/\[$//;
    $dir2 =~ s/\[$//;
    my @dir1 = split(/,/, $dir1);
    my @dir2 = split(/, <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30912	31031	
==>.= "### end post_load\n";

        # Emit code to clone value types for the need_dest not set case.
        if (!$need_d <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61599	61698	
==>de);
		}
		elsif ($grammar =~ m/(?=$MATCHRULE)/gco
				and do { ($code) = extract_bracketed($grammar <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	1725	1817	
==>=foo(99, fool$())

' String Arrays, expect "One"
dim g$()
g$(5)="One"
g$(6)="Two"
print g$(5) <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	1800	1918	
==>@$op;
	    shift(@args);
	    push @r, $curlabel . $outfunc->(@args);
	    $curlabel = "\t";
	} else {
	    die "Unable <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	17011	17113	
==>return (op1) # might be pre-empted
.end
END_POSTAMBLE
    }
}

# Substitute all macros
foreach my $macr <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	85	176	
==>ata.pm 20321 2006-06-20T20:02:00.179448Z bernhard  $

=pod

=head1 NAME

Parrot::Configure:: <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	442	561	
==>rt($tree, $ctx);
    } else {
        return op('scan' => [ $self->convert($tree, $ctx) ]);
    }
}

sub convert {
    m <==
3	/Users/nnunley/parrot/config/auto/pack.pm	2233	2349	
==>inters.
    #

    if ($intsize == $ptrsize) {
        $conf->data->set(ptrconst => "u");
    } elsif ($longsize == $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	9634	9740	
==>ee::code;
sub minlen { 0 }
sub maxlen { undef }
sub dfa_safe { 0 }
sub hasback { 0 } # FIXME! code should b <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	6858	6974	
==>mt;
    }

    # Delete labels that are not the destination of any jump (these
    # are the ones that were marked re <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	11375	11479	
==>$short_name, $body, $args, $argdirs,
        $line, $file, $labels, $flags, $nolines) = @_;
    my $count <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8219	8319	
==>k = $self->output_label_use($fallback);
    push @ops, "goto $L_fallback if <rx_tmp> == -1; # was a m <==
3	/Users/nnunley/parrot/examples/benchmarks/stress.pl	563	671	
==>0000) {
	$foo[$_] = $_;
    }
    return \@foo;
}

=head1 SEE ALSO

F<examples/benchmarks/stress.pasm>, 
F<ex <==
3	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	625	733	
==>0000) {
	$foo[$_] = $_;
    }
    return \@foo;
}

=head1 SEE ALSO

F<examples/benchmarks/stress.pasm>, 
F<ex <==
3	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	472	580	
==>0000) {
	$foo[$_] = $_;
    }
    return \@foo;
}

=head1 SEE ALSO

F<examples/benchmarks/stress.pasm>, 
F<ex <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	2061	2188	
==>?" if $tree->negated;
    return op('multi_match' => [ $tree->min, $tree->max, $tree->greedy,
                                 $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4343	4451	
==>name } });
        $handler->characters({ Data => $string });
        $handler->end_element({ Name => 'litera <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4693	4797	
==>name } });
      $handler->characters({ Data => $string });
      $handler->end_element({ Name => 'litera <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957536	957629	
==>interpreter, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\"encoding ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958441	958534	
==>interpreter, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\"encoding ' <==
3	/Users/nnunley/parrot/config/gen/platform.pm	1754	1858	
==>enerated by config/gen/platform.pm
*/

END_HERE

    foreach (@headers) {
        my $header_file = "conf <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563912	564000	
==>> "#line 183 \"src/ops/object.ops\"\n  VTABLE_add_method(interpreter, {{\@1}}, {{\@2}}, { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564810	564898	
==>> "#line 183 \"src/ops/object.ops\"\n  VTABLE_add_method(interpreter, {{\@1}}, {{\@2}}, { <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14254	14354	
==>foo as integer
	bar as string
end type
dim y(5)
y(3)=66
dim u(5) as first
print y(3)*2

' Array struc <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	944	1035	
==>ef $op;
  confess "Right is not Value!" unless UNIVERSAL::isa($right, 'Jako::Construct::Expr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	956	1047	
==>ef $op;
  confess "Right is not Value!" unless UNIVERSAL::isa($right, 'Jako::Construct::Expr <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	8224	8335	
==>$prev->[0])	# This works, but damned if I know why. 
			#and $next->[0] ne ")"  
			){
#			print "Argthing $prev <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349216	349311	
==>th, \"+<\");\n  /* string_cstring_free(path); */\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350218	350313	
==>th, \"+<\");\n  /* string_cstring_free(path); */\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interp <==
3	/Users/nnunley/parrot/lib/Test/More.pm	18019	18127	
==>ilename line $line.}m;
        $Test->diag(<<DIAGNOSTIC);
    Tried to use '$module'.
    Error:  $@
DIAGNOST <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	336	440	
==>ment::Call;

use Carp;

use base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($b <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	64186	64282	
==>ext without finding a closing tag
to match the original opening tag (and the failure mode was not <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21957	22075	
==>text =~ m<^([A-Z]+)$>s ? $1 : 'X')
          : "BLORP"
         } @to_unget
       )) =~ m{<head1>NAME</head1><Para>(X| <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6040	6139	
==>f nothing has been
	# propogated there already.
	$pir .= <<'PIR';
if 0x${CURIC} == 0x45 goto POST_BR <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3978	4077	
==>f nothing has been
	# propogated there already.
	$pir .= <<'PIR';
if 0x${CURIC} == 0x45 goto POST_BR <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11454	11545	
==>.
PRE_CALL_RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_E <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8640	8731	
==>.
PRE_CALL_RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_E <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7212	7303	
==>.
PRE_CALL_RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_E <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	2527	2659	
==>less \@_;\n";

    my $cnt = 0;
    my $idx = 0;
    my( $cmt, $name, $type, $elem );

    if( $base_type eq 'HASH' ){
        $out . <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	16477	16599	
==>y ( $code, $expected, $desc, %extra ) = @_;

            # Strange Win line endings
            convert_line_endings( $expe <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	10994	11114	
==>y( $code, $expected, $desc, %extra) = @_;

            # Strange Win line endings
            convert_line_endings( $expe <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	10639	10740	
==>->{$sym}=1
					unless $main::code{$main::seg}->{declarations}->{$sym};
			}
			return $sym;
		} elsif <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1316	1407	
==>TES => 'ARRAY', YYDEBUG => '');
#Mandatory parameters
my(@params)=('LEX','RULES','STATES') <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1272	1361	
==>TES => 'ARRAY', YYDEBUG => '');
#Mandatory parameters
my(@params)=('LEX','RULES','STATES') <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178362	178805	
==>",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 213,
                  "ARGS" => [
                              "sc",
                              "sc",
                              "ic"
                            ],
                  "B <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	803	928	
==>lookup_var {
    my ($self, $var, $ctx) = @_;
    if ($ctx->{$var}) {
        return $ctx->{$var};
    } else {
        return <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	435	544	
==>) )[0]
  ;
  $$x = '' unless defined $$x;
  
  #Pod::Simple::DEBUG and print "New $class handle on $x = \"$$x\ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	2386	2539	
==>($t, $ctx)]);
            }
        }

        # opt(R|) -> opt(R)?
        # opt(R|S|) -> opt(R|S)?
        # opt(R|S||) -> opt(R|S)?
        if ($childr <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6690	6798	
==>"$pmc.dump", "$pmc.pmc")) {
        run("$PMC2C --dump $pmc.pmc")
          or die "pmc2c dump failed ($?)\n" <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6901	7009	
==>"$pmc.dump", "$pmc.pmc")) {
        run("$PMC2C --dump $pmc.pmc")
          or die "pmc2c dump failed ($?)\n" <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	993	1090	
==>ods for whatever other events you want to catch.

=head1 DESCRIPTION

This class is of
interest to <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	706	806	
==>in
# some places as Win32 paths have \'s in, which qq[] treats as escape sequences.
# Config stuff
ou <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	664	764	
==>in
# some places as Win32 paths have \'s in, which qq[] treats as escape sequences.
# Config stuff
ou <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	668	768	
==>in
# some places as Win32 paths have \'s in, which qq[] treats as escape sequences.
# Config stuff
ou <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3624	3733	
==>nd parent block is not a module!")
        unless $self->block->kind eq 'module';

      my %module_props = $s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6288	6397	
==>nd parent block is not a module!")
        unless $self->block->kind eq 'module';

      my %module_props = $s <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	13176	13273	
==>bel('scan_start');
    my $advance = $self->genlabel('scan_advance');
    my $next = $self->genlab <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	12123	12240	
==>$str =~ /^\(\?\:(.*)\)$/) {
        $str = $1;
    }
    return "($str)";
}

# FIXME: Should render the _absence_ of t <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2213	2316	
==>named library.

=cut

sub write_all_files {
    my $self = shift;
    my $library = $self->{opt}{library <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	5203	5303	
==>q 'match') {
	return $R->{args}[0] == $S->{args}[0];
    } elsif ($type eq 'classmatch') {
	return $R <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	5020	5135	
==>ex ] } = $ext;
    }
}, $cfg{bench_path};
die "No benchmarks found" if ! keys %bench;

# List Names Of Benchmarks Wi <==
3	/Users/nnunley/parrot/tools/dev/as2c.pl	87	192	
==>s also a test file

my ($src, $func, $out, $cmd, $func);

$src =  $ARGV[0];
$cmd  = "cc -c $src.c -Wall -O <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	163	253	
==>s::Section::Config - Configuration documentation section

=head1 SYNOPSIS

	use Parrot::Doc <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	3737	3853	
==>reg) = @_;
    return "restore $reg";
}

sub output_comment {
    my ($self, $string) = @_;
    return map { "# $_" } <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1554	1706	
==>b args
{
    my $self = shift;

    if (@_)
    {
        $self->{ARGS} = [ @_ ];
    }
    else
    {
        return $self->{ARGS};
    }
}

=item C<arg <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1163	1315	
==>b args
{
    my $self = shift;

    if (@_)
    {
        $self->{ARGS} = [ @_ ];
    }
    else
    {
        return $self->{ARGS};
    }
}

=item C<arg <==
3	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	1009	1114	
==>lose OUTPUT;
    if ($checksum_line !~ m!^/\* CHECKSUM: ([-\d+]+) \*/$!) {
        print "$output does not <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29359	29458	
==>\n    ctx = CONTEXT(interpreter->ctx);\n    ccont = ctx->current_cont;\n\n    caller_ctx = ctx->call <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	5444	5542	
==>a preamble for inclusion in C code,
    and an array of C<Parrot::Op> instances representing the Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	337	431	
==>a preamble for inclusion in C code,
and an array of C<Parrot::Op> instances representing the Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519685	519834	
==>" => "#line 739 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520540	520689	
==>" => "#line 739 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	521395	521544	
==>" => "#line 739 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1811	1912	
==>ock = $self->block;
  my $name  = $self->ident ? $self->ident->value : undef;
  my $cond  = $self->con <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2416	2517	
==>ock = $self->block;
  my $name  = $self->ident ? $self->ident->value : undef;
  my $cond  = $self->con <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	1457	1558	
==>Merge equivalent labels
 2. Jump threading: Replace goto X; ...; X: goto Y; with goto Y.
 3. Eliminate <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8125	8249	
==>= $self->require_ident->text;
      
        my $value;

        if ($self->skip_assign) {
          $value = Jako::Construct <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5131	5249	
==>= $self->require_ident->text;

        my $value;

        if ($self->skip_assign) {
          $value = Jako::Construct <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	13080	13191	
==>f = $op->reftree();
    return dump_ref($ref);
}

sub dump_ref {
    my ($ref, $indent) = @_;
    $indent ||= "" <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	4418	4536	
==>";
      }

      $self->SUPER::parse_lines(@lines);
      
    } elsif(exists $self->{'source_arrayref'}) {
      DEBU <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	773	867	
==>aults to '/usr/bin'.

=item C<libdir>

The library directory. Defaults to '/usr/lib'.

=item C< <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	1002	1096	
==>aults to '/usr/bin'.

=item C<libdir>

The library directory. Defaults to '/usr/lib'.

=item C< <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	5759	5853	
==>arn_if_both($Global, $Local,   'global', 'local');
warn_if_both($Init,   $Uninit,  'init',   'u <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138026	138230	
==>i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 70 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@ <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	6533	6633	
==>HEADER and SOURCE fragments:
#

my @op_funcs;
my @op_func_table;
my @cg_jump_table;
my $index = 0;
my <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	343	433	
==>C<Parrot::Docs::Group> is a subclass of C<Parrot::Docs::Item>.

=head2 Class Methods

=over <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949482	949680	
==>[
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 535 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1014989	1015084	
==>ne 77 \"src/ops/sys.ops\"\n  const char * const tmp = strerror({{\@2}});\n  {{\@1}} = string_mak <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015813	1015908	
==>ne 77 \"src/ops/sys.ops\"\n  const char * const tmp = strerror({{\@2}});\n  {{\@1}} = string_mak <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	6070	6199	
==>tput = (), but I hate doing a
                 # compiler's work for it.
    my $keeping = 1;
    foreach my $stmt (@output2) {
	i <==
3	/Users/nnunley/parrot/lib/Parrot/PMC.pm	225	334	
==>%pmc_types = (
	Null => 1,
	Env => 2,
	Key => 3,
	Random => 4,
	UnManagedStruct => 5,
	ManagedStruct => 6,
	de <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	2347	2440	
==>verbose => 0, -output => \*STDERR);
}

my ( $nolines_flag, $help_flag, $dynamic_flag, $core_fl <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	518	645	
==>{};
    my $lang_fn        = Parrot::Test::per_test( '.m4', $count );

    return ( join( ' ',
                 File::Spec->join <==
3	/Users/nnunley/parrot/config/init/optimize.pm	19	107	
==>1-2005, The Perl Foundation.
# $Id: /parrot/config/init/optimize.pm 19593 2006-05-30T02:2 <==
3	/Users/nnunley/parrot/examples/benchmarks/primes.pl	52	138	
==>ation.
# $Id: /parrot/examples/benchmarks/primes.pl 19601 2006-05-30T13:32:26.641316Z c <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4787	4904	
==>] ...] {
    #

    if ($token->is_module) {
      my $block = $self->current_block;

      my $ident = Jako::Construc <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1594	1710	
==>E = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as they may contain spaces.
    $PATHQUOTE = '"';

    unles <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1598	1714	
==>E = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as they may contain spaces.
    $PATHQUOTE = '"';

    unles <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	12101	12197	
==>int "Declaring $source as :raw for starters\n";
  #$self->_apply_binmode($source, ':raw');
  #bin <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	2659	2814	
==>= 1) {
                return rop('multi_match', [0,1,1,$children[0]]);
            } else {
                @{ $t->{args} } = @children;
                re <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2143	2247	
==>we assume the programmer wanted to shadow the
  # previous definition.
  #

  if (defined $sym and $sym-> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1890	1994	
==>we assume the programmer wanted to shadow the
  # previous definition.
  #

  if (defined $sym and $sym-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954046	954284	
==>E" => "function",
                  "CODE" => 1073,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 571 \"src/ops/string.o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826562	826655	
==>xception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_FLOAT) {\n    int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827632	827725	
==>xception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_FLOAT) {\n    int <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6968	7078	
==>cess eq 'const' and not defined $value);

      foreach my $ident (@identifiers) {
        if ($access eq 'var' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	332	436	
==>tement::New;

use Carp;

use base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	51719	51816	
==>on(q{{bless \%item, $item[0]}},0,-1);
					$self->{_AUTOTREE}{TERMINAL}
						= new Parse::RecDesc <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	4098	4198	
==>e = 0;
    for(@{$ops->{OPS}}) {
        $_->{CODE} = find_op_number($_->full_name, $_->{experimental <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4697	4811	
==>er_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we're maint <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3113	3227	
==>er_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we're maint <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10572	10682	
==>anges);
}

sub _ranges_to_incexc {
    my @ranges = @{ shift() };

    # Sort those pairs by their first elemen <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12718	12821	
==>he module, then we take its path relative to the 
    # distribution, then we append the HTML suffix and <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528593	528685	
==>BODY" => "#line 838 \"src/ops/math.ops\"\n  {{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL){{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529475	529567	
==>BODY" => "#line 838 \"src/ops/math.ops\"\n  {{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL){{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	530357	530449	
==>BODY" => "#line 838 \"src/ops/math.ops\"\n  {{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL){{\@ <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	14301	14416	
==>g.h
strstr      string.h
strtod      stdlib.h
strtof      stdlib.h
strtok      string.h
strtol      stdlib.h
strtold <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	3357	3469	
==>$parser->{lastlinenum} - $_[1];
	return undef;
}

sub resync       # ($linecounter)
{
        my $self = tied($_[ <==
3	/Users/nnunley/parrot/config/gen/platform.pm	169	264	
==>atform Files

=head1 DESCRIPTION

Moves the various platform-specific files into place.

=cut

p <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	332	451	
==>t

sub new {
    return bless {};
}

sub output_is() {
    my ($self, $code, $output, $desc) = @_;
  
    my $count = $s <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	370	489	
==>t

sub new {
    return bless {};
}

sub output_is() {
    my ($self, $code, $output, $desc) = @_;
  
    my $count = $s <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	68	180	
==>arrot/tools/build/ops2c.pl 20350 2006-06-25T03:57:27.771662Z petdance  $

=head1 NAME

tools/build/ops2c.pl - Par <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	7347	7500	
==>e macros
    $body =~ s!
        (?:
            {{\@\d+\}}
            |
            \b\w+(?:->\w+)*
        )->vtable->\s*(\w+)\(
        !VTABLE_$1(!sg <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	4156	4279	
==>"$dest_name\" = $temp_pmc");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handl <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	2136	2232	
==>next unless s/.*\bCONST_STRING\s*\(\w+\s*,//;

	if ($lines_seen{$line}++) {
	    die "Seen line $ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5218	5335	
==>DBG>			$tok.=		(ord($_) < 32 or ord($_) > 126)
#DBG>					?	sprintf('<%02X>',ord($_))
#DBG>					:	$_;
#DBG>		}
#DBG <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4967	5080	
==>DBG>			$tok.=		(ord($_) < 32 or ord($_) > 126)
#DBG>					?	sprintf('<%02X>',ord($_))
#DBG>					:	$_;
#DBG>		}
#DBG <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37884	37981	
==>type) ";
}

=item C<body($method, $line, $out_name)>

Returns the C code for the method body. C<$l <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611195	611452	
==>t_attr(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612098	612355	
==>t_attr(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1539	1637	
==>DEBUG and print "-- $_[1]\n";
  print {$_[0]{'output_fh'}}
   '  ' x --$_[0]{'indent'}, "</", $_[1] <==
3	/Users/nnunley/parrot/config/init/defaults.pm	5518	5635	
==>g $(MAKE)
        make_c => '$(PERL) -e \'chdir shift @ARGV; system q{$(MAKE)}, @ARGV; exit $$? >> 8;\'',

        # i <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4285	4385	
==>the C code for the run core function declaration.

=cut

sub run_core_func_decl
{
    my ($self, $cor <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2773	2873	
==>the C code for the run core function declaration.

=cut

sub run_core_func_decl
{
    my ($self, $cor <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	9080	9239	
==>if($1) {
            $balance++;
        } else { # $2
            $balance--;
            return substr($code, 0, pos, ""), $code
                if not $balan <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	3867	4031	
==>,
        commentType                       => '#',
        replace_slashes                   => 1
    );
    genfile(
        'config/gen/makefiles/bf.in' => 'langu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048344	1048458	
==>{^+3}};\n    {{\@1}} = Parrot_get_global(interpreter, NULL, {{\@2}}, next);\n    {{+=3}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049268	1049382	
==>{^+3}};\n    {{\@1}} = Parrot_get_global(interpreter, NULL, {{\@2}}, next);\n    {{+=3}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5954	6081	
==>ory_with_relative_path($rel_path);
        
        # There may be editor scratch files to ignore.
        
        foreach my $ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	576	665	
==>bution;

use Parrot::Docs::Section::Info;
use Parrot::Docs::Section::Docs;
use Parrot::Doc <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	1186	1293	
==>args} };
	my @pieces;
	foreach (@pre_pieces) {
	    if (ref $_ && $_->{name} eq 'seq') {
		push @pieces, @{$ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35645	35743	
==>minal { 0 }
sub sethashname { }

sub describe ($)
{
	my $desc = $_[0]->{"expected"} || $_[0]->{"sub <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	8641	8780	
==>STDOUT             or die "Can't close    stdout" if $out;
    close STDERR             or die "Can't close    stderr" if $err;

    open  S <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11566	11683	
==>if defined $section and length $section;
    
    return unless length $out;
    
    return $out;  
}

=item C<resolv <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8185	8299	
==>STDOUT or die "Can't close    stdout" if $out;
    close STDERR or die "Can't close    stderr" if $err;

    open S <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	1230	1346	
==>od'),
            $self->new_item('Where to find or put things that need doing in Parrot.', 'TODO'),
            $sel <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	170	276	
==>ltin/*.pir'));
my @a = map {my $a = $_; $a =~ s{.*/(.*)[.]pir}{$1}; $a} (@commands);

# Check each of these <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	439	524	
==>tional::Else;
use Jako::Construct::Block::Conditional::If;
use Jako::Construct::Block: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143086	143505	
==>,
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 175,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic"
                            ], <==
3	/Users/nnunley/parrot/Configure.pl	9983	10080	
==>eps);
$conf->options->set(%args);
# Run the actual steps
$conf->runsteps or exit(1);

# tell users <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1346	1435	
==>ress($address)>

Returns the C code for C<ADDRESS($address)>. Called by C<goto_address()>. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107191	107516	
==>}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108045	108370	
==>}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  " <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10108	10239	
==>y
    #  remap once.
    # If we say we accept "W", then a "W" in the treelet simply turns
    #  into "W".
  }
  
  return;
}

#--- <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10011	10099	
==>S}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC} <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7525	7613	
==>S}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC} <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6489	6577	
==>S}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563740	563969	
==>ARGS" => [
                              "p",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 183 \"src/ops/object.ops\"\n  VTABLE_add_method(i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830519	830659	
==>"
                            ],
                  "BODY" => "#line 186 \"src/ops/stack.ops\"\n  INTVAL i = {{\@1}};\n  stack_push(interprete <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831260	831400	
==>"
                            ],
                  "BODY" => "#line 186 \"src/ops/stack.ops\"\n  INTVAL i = {{\@1}};\n  stack_push(interprete <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284805	284916	
==>ps/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285682	285793	
==>ps/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286559	286670	
==>ps/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945200	945438	
==>ion",
                  "CODE" => 1063,
                  "ARGS" => [
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 521 \"src/ops/string.ops\"\n  {{\@ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	204	319	
==>@ISA %EXPORT_TAGS };

$VERSION = '1.89';
@ISA		= qw ( Exporter );
		     
%EXPORT_TAGS	= ( ALL => [ qw(
				&extract <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3393	3499	
==>SKIP, '>', 'MANIFEST.SKIP';
print $SKIP '# $' . 'Id' . '$' . "\n";  # confuse SVN
print $SKIP "#\n"; 
print <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	9215	9334	
==>p/o;
    return 1 if ($c =~ /$pointfloat|$expfloat/o);
    return 0;
}

sub is_imag {
    my $c = $_[0];
    return 1 if <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	3359	3531	
==>nch op */\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS",
                  "NAM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	3910	4082	
==>nch op */\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS",
                  "NAM <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	20509	20626	
==>/_FLOAT$//);
            $right = 'enum_type_STRING'   if ($func =~ s/_STR$//);
            if (exists $self->{super}{ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	12649	12768	
==>me) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $dont_expect ) {
        # undef only matche <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	13093	13212	
==>me) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $dont_expect ) {
        # undef only matche <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1013152	1013413	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "err",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1013767	1014028	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "err",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948615	948853	
==>ion",
                  "CODE" => 1067,
                  "ARGS" => [
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 535 \"src/ops/string.ops\"\n  {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1098858	1099092	
==>S" => [
                              "n",
                              "n",
                              "i"
                            ],
                  "BODY" => "#line 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2 <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	17296	17426	
==>un-exec//;

            write_code_to_file($code, $code_f);

            my $cmd = qq{$parrot $args "$code_f"};
            my $exi <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	17155	17283	
==>e' => 25
		}
	},
	{#State 56
		DEFAULT => -22
	},
	{#State 57
		DEFAULT => -33
	},
	{#State 58
		ACTIONS => {
			"." => 66
		}
	} <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	224	314	
==>of Parrot::Test::Tcl, which looks like it's
largely a copy of Parrot::Test::Python. Abstrac <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	262	352	
==>of Parrot::Test::Tcl, which looks like it's
largely a copy of Parrot::Test::Python. Abstrac <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22321	22408	
==>y $return = Jako::Construct::Statement::Return->new($block, $value, $cond, $left, $op, $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	13336	13460	
==>dn't see an immediately subsequent start-Para.  Reseeking H1\n";
        $state = 0;
      }
    }
    
    elsif($state == 3 <==
3	/Users/nnunley/parrot/config/gen/PodText.pm	994	1105	
==>docs from Pod';

@args = qw(verbose);

sub runstep
{
    my ($self, $conf, %docs) = @_;

    my $verbose = $conf <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	38	140	
==>The Perl Foundation.
# $Id: /parrot/examples/mops/mops.pl 19601 2006-05-30T13:32:26.641316Z coke  $

=h <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	7443	7542	
==>ial_link_cmd("$group$LOAD_EXT", $libs, \@sources))
          or die "partial link $group$LOAD_EXT fa <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7654	7753	
==>ial_link_cmd("$group$LOAD_EXT", $libs, \@sources))
          or die "partial link $group$LOAD_EXT fa <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	1150	1248	
==>instance, it is nice to see where the .pbc's land.

=item * Allow indescribable heads to be mixed i <==
3	/Users/nnunley/parrot/config/inter/make.pm	1411	1560	
==>$prog) {

            # fall back to default
            $self->set_result('no');
            return $self;
        }
    }

    if ($conf->options->g <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	20046	20178	
==>'}\n";
        }
    }

    # If we have 3 or less rules, dispatch directly to the translator.
    if (@rules <= 3) {
        my %byt <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	4773	4875	
==>e{$seg}->{code}}, "\t# On X $branch...\n";
	feedme();
	$loop=0;
	@onlab=();
	while($type[CURR] !~ /COMP <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	187	275	
==>ed Transform

=head1 DESCRIPTION

C<Parrot::OpTrans::CGP> inherits from C<Parrot::OpTrans <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465633	465891	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dec",
                  "FLAGS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	466254	466512	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dec",
                  "FLAGS" <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	1042	1140	
==>rrot/IO'),
		$self->new_group('Documentation', '', 
            $self->new_item('', 'lib/Parrot/Doc <==
3	/Users/nnunley/parrot/languages/regex/test.pl	2364	2466	
==>file) or die "open $testfile: $!";
    $pattern = <SPEC>;
    chomp($pattern);
}

generate_regular($pat <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	8563	8663	
==>al) if $show;
		want_show(\$show, $Local,  $local ) if $show;
		want_show(\$show, $Undef,  $undef ) i <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	6855	6958	
==>nd @codex) {  	# X and Y
	
	push @{$code{$seg}->{code}},<<XANDY;
@codey	
	\$N100= $resulty
@codex	
	\$N1 <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	158	252	
==>rot::Config;

require Exporter;
require Parrot::Test;

@EXPORT = ( qw(output_is output_like out <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	75	169	
==>rot::Config;

require Exporter;
require Parrot::Test;

@EXPORT = ( qw(output_is output_like out <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	984	1069	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub handle <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	768	853	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub handle <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	83	168	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub handle <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	12001	12110	
==>'           ,'set',[$return,1]);
  $self->_add_inst("DONE_$label");
  return $return;
}

sub _op_or {
  my ($s <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	375	471	
==>s a value for M ops/s (million operations per second) using
integer arithmetic.

Prints out:

=ov <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	371	467	
==>s a value for M ops/s (million operations per second) using
integer arithmetic.

Prints out:

=ov <==
3	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	468	606	
==>nk (@code) {
        if ($chunk eq "\n") {
            push @{ $self->{raw_pir} }, "\n";
        } else {
            push @{ $self->{raw_p <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8692	8826	
==>DERR "**End of Error recovery.\n";
#DBG>				$dbgerror=0;
#DBG>			};

			    push(@$stack,
                     [ $$states[$$stack[ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8300	8429	
==>DERR "**End of Error recovery.\n";
#DBG>				$dbgerror=0;
#DBG>			};

			    push(@$stack,
                     [ $$states[$$stack[ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	36043	36141	
==>a testing utility that's simple to learn,
quick to use and difficult to trip yourself up with while <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243959	244046	
==>VTABLE_get_string(interpreter, {{\@2}});\n  {{\@1}} = string_compare(interpreter, l, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244891	244978	
==>VTABLE_get_string(interpreter, {{\@2}});\n  {{\@1}} = string_compare(interpreter, l, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4338	4460	
==>ut

sub run_core_func_decl
{
    my ($self, $core) = @_;

    return "opcode_t * " .
        $self->core_prefix .
        " <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2826	2948	
==>ut

sub run_core_func_decl
{
    my ($self, $core) = @_;

    return "opcode_t * " .
        $self->core_prefix .
        " <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	4220	4336	
==>reach my $name (@path)
    {
        return unless $dir = $dir->existing_directory_with_name($name);
    }
    
    r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52139	52450	
==>> "trace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 67,
                  "ARGS" => [
                              "ic"
                            ] <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	614	714	
==>ode if ref $type;

  return '$' . $type . $self->{REG_COUNT}{$type}++;
}

sub temp_int { return shift <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552546	552646	
==>e_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n\n  object = {{\@1}};\n  method_pmc = {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556602	556702	
==>e_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n\n  object = {{\@1}};\n  method_pmc = {{\ <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	8953	9047	
==>lements
a "struct-like" data structure.

The new class is given a constructor method, C<new>, f <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	1851	1945	
==>e test suite with --gc-debug
    if ( $ENV{TEST_PROG_ARGS} && $ENV{TEST_PROG_ARGS} !~ /\b--gc-d <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824443	824534	
==>epth wrong\");\n  if (entry->entry_type != STACK_ENTRY_STRING) {\n    internal_exception(ERR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825514	825605	
==>epth wrong\");\n  if (entry->entry_type != STACK_ENTRY_STRING) {\n    internal_exception(ERR <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	423	515	
==>leHandle;
use Parrot::IO::Directory;

=item C<tmp_file($path)>

Returns the file for C<$path> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019827	1019918	
==>) {{\@2}};\n  char resultbuffer[26];\n  Parrot_localtime_r(&t, &tm);\n  Parrot_asctime_r(&tm <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020758	1020849	
==>) {{\@2}};\n  char resultbuffer[26];\n  Parrot_localtime_r(&t, &tm);\n  Parrot_asctime_r(&tm <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1395	1498	
==>{ $$variable } ;
    $$variable = $value;
    print "# Starting Pod::Simple::DEBUG = non-constant $varia <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	55203	55298	
==>tain exactly one element.
The value of that element is one of the
above extractor types (subrout <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2588	2687	
==>self->right;

  if (defined $cond) {
    $handler->start_element({ Name => 'cond', Attributes => { k <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3262	3361	
==>self->right;

  if (defined $cond) {
    $handler->start_element({ Name => 'cond', Attributes => { k <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3352	3451	
==>self->right;

  if (defined $cond) {
    $handler->start_element({ Name => 'cond', Attributes => { k <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	9845	9965	
==>our:
    $N1 = op2 * op2
    $N1 = 1 - $N1
    $N1 = sqrt $N1
    .return ($N1)
# These next three are implemented in ter <==
3	/Users/nnunley/parrot/languages/converter.pl	792	899	
==>d(?) production(?)
#		{[@item]}
		{ $return = '';
		  $return .= $item[1][0] if defined $item[1][0];
		  $re <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1391	1488	
==>and inherits all
its methods.)

You can use this class as the base class for a Pod formatter/proce <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46530	46778	
==>OT_JUMP_RESTART",
                  "NAME" => "debug",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47312	47560	
==>OT_JUMP_RESTART",
                  "NAME" => "debug",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	26546	26673	
==>, ignore it.
      } else {
        $list_type = 'block';
      }
      $para->[1]{'~type'} = $list_type;
      push @$curr_open <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	13323	13454	
==>dent . "  ") foreach (@children);
    } else {
        print $ref, "\n";
    }
}

sub annotated {
    my ($op, $str) = @_;
    my $m <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	871	969	
==>ated to the loop control statements,
and these are kept distinct by applying the prefix to the labe <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	53579	53674	
==>e.

If the third argument is I<N>, then extraction continues until I<N> fields
have been success <==
3	/Users/nnunley/parrot/languages/regex/test.pl	534	656	
==>{
    my ($msg, $status) = @_;
    $status = 1 if ! defined $status;

    print $msg . "\n" if $msg;

    print <<"END";
Us <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034850	1035144	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_lex",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036013	1036307	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_lex",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956945	957119	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957849	958023	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	2399	2540	
==>/makefiles/tge.in' => 'compilers/tge/Makefile',
        commentType                   => '#',
        replace_slashes               => 1
    ) <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	6972	7083	
==>ed_Tests} = $max;
        $self->{Have_Plan}      = 1;

        $self->_print("1..$max\n") unless $self->no_head <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	39698	39796	
==>n/para line 4";

	extract_tagged($text, '/para', '/endpara', undef,
				{reject => '/para', fail => <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	40012	40109	
==>n/para line 4";

	extract_tagged($text, '/para', '/endpara', undef,
			{reject => '/para', fail => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510341	510599	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5154	5262	
==>sub {
#DBG>		my($tok)='>';
#DBG>		for (split('',$$token)) {
#DBG>			$tok.=		(ord($_) < 32 or ord($_) > 126 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4906	5011	
==>sub {
#DBG>		my($tok)='>';
#DBG>		for (split('',$$token)) {
#DBG>			$tok.=		(ord($_) < 32 or ord($_) > 126 <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	11119	11219	
==>extract_balanced($code);

    my $lineno  = 1 + count_newlines($pre);
    $classblock = substr($class <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	533290	533490	
==>GS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 890 \"src/ops/math.ops\"\n  {{\@1}} = log((FLOATVAL){{\@2 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5076	5185	
==>lLabel);
    my $pass = $self->output_label_use($passLabel);

    while (@$incexc) {
        my $first = shift <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4751	4860	
==>lLabel);
    my $pass = $self->output_label_use($passLabel);

    while (@$incexc) {
        my $first = shift <==
3	/Users/nnunley/parrot/lib/Parrot/PMC.pm	1208	1308	
==>ay => 56,
	FixedFloatArray => 57,
	FixedPMCArray => 58,
	LexInfo => 59,
	MultiSub => 60,
	NameSpace = <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	100	196	
==>0T13:40:58.862833Z coke  $

=head1 NAME

Parrot::Test::Harness - a test harness for languages bui <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351011	351229	
==>INTVAL_FMT, (INTVAL){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351673	351891	
==>INTVAL_FMT, (INTVAL){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	725	831	
==>ing;

my %types = ( 'I' => 'int', 'N' => 'num', 'P' => 'pmc', 'S' => 'str');

sub CODE_TO_NAME {
  my ($cla <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	815	919	
==>item
{
    my $self = shift;

    return $self->c_item(shift, 'sources' => [@_]);
}

=item C<c_pair_item( <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	1648	1747	
==>ter mapper\n";
}

# Pre and post store operation hooks.
sub pre_store {
	die "pre_store not implemen <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	5437	5571	
==>",
              "$ret$args", $., $seen{"$ret$args"}
        if $opt_warndups;
      next;
    }

    my @extra_preamble;
    my @extra <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	5823	5932	
==>$api;
    }
}

if (@NoParrotAPI) {
    printf "--- Missing Parrot API: %d ---\n", scalar @NoParrotAPI;
    for <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	1063	1157	
==>/Parrot/Config.pm$::;
    my $dir_count = scalar(File::Spec->splitdir($path_to_parrot));
    my <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	4944	5111	
==>for (keys %$rule) {
        # name
        if (/^name$/) {
            # always fine
        }

        # code
        elsif (/^code$/) {
            if ($rule->{$_} =~ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51738	51838	
==>{\@1}} != 0) { Parrot_set_trace(interpreter,   {{\@1}}); }\n  else         { Parrot_clear_trace(inter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52521	52621	
==>{\@1}} != 0) { Parrot_set_trace(interpreter,   {{\@1}}); }\n  else         { Parrot_clear_trace(inter <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	795	937	
==>enumerate => 1,
    float => 1,
    hash => 1,
    hex => 1,
    id => 1,
    iter => 1,
    filter => 1,
    list => 1,
    long => 1,
    int <==
3	/Users/nnunley/parrot/examples/benchmarks/oofib.pl	45	159	
==>f = shift;
    my $n = shift;
    return $n if ($n < 2);
    return $self->fibA($n-1) + $self->fibB($n-2);
}
sub fi <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	59467	59563	
==>har
is used for the remaining delimiters.
If no escape char is specified for a given specified de <==
3	/Users/nnunley/parrot/lib/Test/More.pm	13927	14096	
==>lsif( !$rslt ) {
            my $ref = ref $object;
            $diag = "$obj_name isn't a '$class' it's a '$ref'";
        }
    }
            
      

    my $ok;
    i <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	2408	2524	
==>$dump;
  #print "$dump\n";
  #exit 0;
}

gen_code();


# object part of this module
sub new {
	my $class = shift;
	bl <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	13157	13249	
==>ack

=head1 SEE ALSO

=over 4

=item C<Parrot::Configure::RunSteps>

=item F<docs/configurati <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667510	667599	
==>ODY" => "#line 405 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->push_integer(interpreter, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668284	668373	
==>ODY" => "#line 405 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->push_integer(interpreter, {{\ <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2286	2386	
==>s($file, $source);
    check_cuddled_else($file, $source);
    check_comments($file, $source);
    ch <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959277	959361	
==>\"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, {{\@1}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960079	960163	
==>\"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, {{\@1}} <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29844	29988	
==>8,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			"<=" => 85,
			'OR' => 84,
			")" => 148,
			">" => 86
		}
	},
	{#State 95
		ACTIONS <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	952	1055	
==>ackage Parse::Yapp::Driver;

require 5.004;

use strict;

use vars qw ( $VERSION $COMPATIBLE $FILE <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	924	1021	
==>ackage Parse::Yapp::Driver;

require 5.004;

use strict;

use vars qw ( $VERSION $COMPATIBLE $FILE <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5267	5376	
==>p to the SRM to do the store.
	# Otherwise, there's nothing to do here.
	if ($dest_reg) {
		$pir .= <<'PIR'
${ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8532	8638	
==>p to the SRM to do the store.
	# Otherwise, there's nothing to do here.
	if ($dest_reg) {
		$pir .= <<'PIR' <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6352	6458	
==>p to the SRM to do the store.
	# Otherwise, there's nothing to do here.
	if ($dest_reg) {
		$pir .= <<'PIR' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87906	88342	
==>GDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 109,
                  "ARGS" => [
                              "p",
                              "p",
                              "p",
                              "s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40216	40519	
==>RT",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 51,
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	3633	3746	
==>] eq $suffix;
    }
    
    return $suffix ne '';
}

=item C<parent_path()>

Returns the path of the containing d <==
3	/Users/nnunley/parrot/config/auto/cgoto.pm	815	943	
==>t = $cgoto;
    } else {
        cc_gen('config/auto/cgoto/test_c.in');
        $test = eval { cc_build(); 1; } || 0;
        cc_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50185	50281	
==>RROT_PROFILE_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_PROFILE_FLAG); }\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50978	51074	
==>RROT_PROFILE_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_PROFILE_FLAG); }\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132620	133040	
==>DIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 163,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" = <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1168	1284	
==>opcodes} ) and $opcodes->[-1]->isa('ToBoolOp') ) {
        my $tobool = pop @{$opcodes};
        my $new    = pop @ <==
3	/Users/nnunley/parrot/languages/regex/test.pl	1555	1660	
==>ons of perl provide Getopt::Long as a builtin?
foreach (@ARGV) {
    if (/^(-h|--help)$/) {
        usage( <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30060	30196	
==>S => {
			"(" => 48,
			"{" => 38,
			'STRING' => 44
		},
		GOTOS => {
			'tableconstructor' => 46,
			'args' => 149
		}
	},
	{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605098	605189	
==>ops/object.ops\"\n    Parrot_remove_parent(interpreter, {{\@2}}, {{\@1}});\n    {{+=3}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714715	714814	
==>interpreter, io, \" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n    PIO_softspace <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715638	715737	
==>interpreter, io, \" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n    PIO_softspace <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716583	716682	
==>interpreter, io, \" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n    PIO_softspace <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9780	9906	
==>ken.".\n";

			$$token=$$value=undef;
		};

        $$errstatus=3;

		while(	  @$stack
			  and (		not exists($$states[ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9342	9460	
==>ken.".\n";

			$$token=$$value=undef;
		};

        $$errstatus=3;

		while(	  @$stack
			  and (		not exists($$states[ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	6722	6821	
==>sed only so that $n within R does not return a
# now-abandoned match. I suppose it should restore $n <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	1650	1758	
==>$textref) = $remainderpos-$extralen+1; # RESET \G
		}
		else {
			pos($$textref) = $remainderpos;		    # RESE <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	5945	6050	
==>l 5
a=0
do while a<5
	a=a+1
loop
print a
a=0
do until a>4
	a=a+1
loop
print a
a=0
do
	a=a+1
loop while a<5 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16490	16595	
==>l 5
a=0
do while a<5
	a=a+1
loop
print a
a=0
do until a>4
	a=a+1
loop
print a
a=0
do
	a=a+1
loop while a<5 <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	623	714	
==>ST> and F<MANIFEST.generated>.

It does NOT generate the F<MANIFEST> file that F<Configure.p <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	2329	2417	
==>$_[1]{'section'} ) }
     __PACKAGE__->new->parse_string_document('=head1 L<Foo/bI<ar>baz <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	2947	3035	
==>$_[1]{'section'} ) }
     __PACKAGE__->new->parse_string_document('=head1 L<Foo/bI<ar>baz <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647580	647833	
==>type(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648341	648594	
==>type(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641469	641720	
==>type(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38748	38987	
==>"inline",
                  "CODE" => 49,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 720 \"src/ops/core.ops\"\n  if ({ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	26451	26593	
==>ine'},
          "=over is the last thing in the document?!"
        );
        next; # But feh, ignore it.
      } else {
        $list_type = <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	30614	30751	
==>ck} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $lb <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	35161	35298	
==>ck} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $lb <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	3635	3771	
==>ODO
            my $call_pkg = $b->exported_to() || '';
            local *{ $call_pkg . '::TODO' } = \$extra{todo}
                if de <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	116	210	
==>48Z bernhard  $

=head1 NAME

Parrot::Docs::HTMLPage - HTML Documentation Page

=head1 DESCRIPT <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	56308	56472	
==>ields = extract_multiple($text,
                                   [ sub { extract_variable($_[0]) } ],
                                   undef, 1);

This example s <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16578	16745	
==>);
                push @opcodes, new LocalDir( $parser,
                    'result' => $result,
                );
                push @opcodes, new FindLexOp( $ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10725	10887	
==>);
                    push @opcodes,
                        new LocalDir( $parser, 'result' => $result, );
                    push @opcodes, new FindLexOp( $ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7222	7346	
==>E/Dumper.pir"
            load_bytecode "PGE/Text.pir"
            glob_compile = compreg "PGE::Glob"

            .local str <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7283	7447	
==>ct." ($lhs,$len): ";

                $act
            or  $self->YYAccept();

            $$dotpos=$len;

                unpack('A1',$lhs) eq '@'    #In lin <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6947	7104	
==>ct." ($lhs,$len): ";

                $act
            or  $self->YYAccept();

            $$dotpos=$len;

                unpack('A1',$lhs) eq '@'    #In lin <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	8910	9046	
==>ewl = "\n";
	    $semi = "";
        $interp = ' interpreter';
        $pmc = ' pmc';
    }
    return <<"EOC";
$export$extern$ret${newl} <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	8110	8262	
==>ines;
		
				last if $line =~ /\S/o;
			}
		
			my @abstract = $line;
			
			while ( @lines )
			{
				$line = shift @lines;
		
				last if $line !~ /\S/ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	5251	5369	
==>ars"	   => "",
			}, $class;
	}
}

sub reset($)
{
	@{$_[0]->{"prods"}} = ();
	@{$_[0]->{"calls"}} = ();
	$_[0]->{"chang <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	18555	18665	
==>/\.\w+$/.dump/;
    $file = find_file($include, $file, 1);

    my $fh = open_file( "<", $file );

    my $clas <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056929	1057320	
==>> "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1180,
                  "ARGS" => [
                              "p",
                              "kc",
                              " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630461	630567	
==>lass = {{\@2}};\n    INTVAL type = pmc_type_p(interpreter, class);\n    if (type <= 0)\n        real_except <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631451	631557	
==>lass = {{\@2}};\n    INTVAL type = pmc_type_p(interpreter, class);\n    if (type <= 0)\n        real_except <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3331	3421	
==>tants in Perl", in I<The Perl Journal> issue
21.  See L<http://www.sysadminmag.com/tpj/issu <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2629	2728	
==>tecode that is produced.
	$pir .= <<'PIR';
strPC = ${PC}
${INS} = concat "LAB"
${INS} = concat strPC <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054411	1054504	
==>f (!{{\@3}})\n\tinternal_exception(1, \"Tried to get null global.\");\n\n    next = {{^+4}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055538	1055631	
==>f (!{{\@3}})\n\tinternal_exception(1, \"Tried to get null global.\");\n\n    next = {{^+4}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12654	12758	
==>not very obvious, so let me explain. We get the file
    # for the module, then we take its path relative <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6914	7007	
==>, 5)
' instr
s1$="The longer string"
found$="longer"
bogus$="not"
print "Found  (5): ", instr( <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18643	18736	
==>, 5)
' instr
s1$="The longer string"
found$="longer"
bogus$="not"
print "Found  (5): ", instr( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93336	93560	
==>g_bitwise_and(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94116	94340	
==>g_bitwise_and(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	33802	33897	
==>ll also
respect quoted unbalanced brackets (see below).

A "delimiter bracket" is a bracket in l <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	90	201	
==>RT_TAGS);

$VERSION   = '0.01';
@ISA       = qw(Exporter);
@EXPORT_OK = qw(tokenize);

use Data::Dumper;

sub to <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	417	525	
==>ct | source] file1 [file2 ...]

=head1 DESCRIPTION

This script is intended to give us an idea of what C<libc <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	1341	1433	
==>andler->start_element({ Name => 'new' }, { class => $self->right->value });
  $self->left->sa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71316	71642	
==>"o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 95,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 1150 \"src/ops/ <==
3	/Users/nnunley/parrot/languages/lua/luac.pl	277	387	
==>rbose => 1 );
}

my $parser = new Lua::parser();
$parser->YYData->{verbose_error}   = 1;    # 0, 1
$parser <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2982	3084	
==>t'   => "\n\\par}\n",

 # we don't need any styles for over-* and /over-*
);


#~~~~~~~~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	4212	4323	
==>x()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'assign' });
  $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1623	1734	
==>x()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'assign' });
  $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1022	1120	
==>compilations. This register value is
# returned to the caller.
#
# Converts a single string argumen <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79317	79417	
==>c_new(interpreter, enum_class_Undef);\n  }\n  else {\n      /* At this point we have the symbol's add <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80838	80938	
==>c_new(interpreter, enum_class_Undef);\n  }\n  else {\n      /* At this point we have the symbol's add <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	4261	4374	
==>e64);

 $hash = md5 $data;
 $hash = md5_hex $data;
 $hash = md5_base64 $data;


 # OO style
 use Digest::MD5;

 $c <==
3	/Users/nnunley/parrot/tools/docs/pod_errors.pl	629	737	
==>ors = $file->pod_errors;
	
	print "\n",
		$file->path, 
		' has ', 
		$file->num_pod_errors, 
		' error',
		$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560398	560569	
==>p",
                              "p"
                            ],
                  "BODY" => "#line 152 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *o <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	181	280	
==>lculate M ops/s

=head1 SYNOPSIS

    % perl examples/mops/mops.pl

=head1 DESCRIPTION

A Perl imple <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	177	276	
==>lculate M ops/s

=head1 SYNOPSIS

    % perl examples/mops/mops.pl

=head1 DESCRIPTION

A Perl imple <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	248804	249307	
==>" => "and",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 289,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#li <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247077	247379	
==>" => "and",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 28 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247940	248242	
==>" => "and",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 28 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	31932	32045	
==>foreach $group (0 .. $num_groups) {
        push @ops, aop('initgroup' => [ $group ]);
    }

    push @ops, aop(' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	2008	2117	
==>peat {
    my ($self, $tree, $ctx) = @_;
    die "Huh?" if $tree->negated;
    return op('multi_match' => [ $t <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	4425	4534	
==>f the op's arguments.

=cut

sub arg_dirs
{
    my $self = shift;

    return @{$self->{ARGDIRS}};
}

=item C< <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	39042	39177	
==>)),
            $para->[1]{'start_line'}
          )};
        }
        # Empty paragraphs don't need a treelet for any reason I can se <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4186	4290	
==>sub clean
{
    my $self = shift;

    delete $self->{c}{$_} for grep { /^TEMP_/ } CORE::keys %{$self->{c <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	5844	5946	
==>escription of any POD errors in the file.

=cut

sub pod_errors
{
	my $self = shift;
	
	$self->check_po <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19041	19135	
==>header on each page will appear in.  The header
is usually just "I<modulename> p. I<pagenumber> <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10968	11085	
==>G;
    open (IN, "<$infile") or die "Can't read $infile: $!\n";
    open (OUT, ">$outfile") or die "Can't write $outfi <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11452	11569	
==>G;
    open (IN, "<$infile") or die "Can't read $infile: $!\n";
    open (OUT, ">$outfile") or die "Can't write $outfi <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11916	12033	
==>G;
    open (IN, "<$infile") or die "Can't read $infile: $!\n";
    open (OUT, ">$outfile") or die "Can't write $outfi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	481	594	
==>);
}

sub _handle_element_end {
  $_[1] =~ tr/-:./__/;
  ( $_[0]->can( 'end_' . $_[1] )
    || return
  )->(
    $ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22388	22493	
==>ective: ['
					. $self->describe . ']},
					Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	4802	4892	
==>sh(@{$elsestack->{$elsetag}}, $elseline);
		($result, $type, @code)=EXPRESSION();
		$false= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757288	757527	
==>=> "inline",
                  "CODE" => 854,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 271 \"src/ops/set.ops\"\n  { <==
3	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1753	1854	
==>osureOp;
use base qw(Lua::opcode);

package CloneOp;
use base qw(Lua::opcode);

package ToBoolOp <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	277	373	
==>trict;
eval "use warnings";

package Jako::Construct::Statement::Goto;

use Carp;

use base qw(Ja <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8385	8501	
==>PIR
	}

	return $pir;
}

sub post_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If destinat <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6205	6321	
==>PIR
	}

	return $pir;
}

sub post_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If destinat <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5120	5236	
==>PIR
	}

	return $pir;
}

sub post_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If destinat <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	310134	310235	
==>->state |= PDB_BREAK;\n        interpreter->pdb->state |= PDB_STOPPED;\n        interpreter->pdb->cur_ <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2267	2366	
==>umber of tests run in the form
"1..M" (so "1..5" means you're going to run 5 tests).  This strange
f <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	3829	3927	
==>BEGIN {
  *pretty        = \&Pod::Simple::BlackBox::pretty;
  *stringify_lol = \&Pod::Simple::Black <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	7	107	
==>ix.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subjec <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	8	108	
==>ix.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subjec <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	8	108	
==>ix.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subjec <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	6997	7099	
==>el( 2, __PACKAGE__ );
}

# this kludge is an hopefully portable way of having
# redirections ( tested o <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6472	6634	
==>ed($act)
        and do {

                $act > 0
            and do {        #shift

#DBG>				$debug & 0x04
#DBG>			and	print STDERR "Shift and go to sta <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6172	6327	
==>ed($act)
        and do {

                $act > 0
            and do {        #shift

#DBG>				$debug & 0x04
#DBG>			and	print STDERR "Shift and go to sta <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	6482	6654	
==>pcodes3, new CloneOp( $parser,
                    'arg1'   => $unit->[0],
                    'result' => $num_key,
                );
                $key = [ $num_key <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	6087	6228	
==>ne',
             'i_syssocket' => 'define',
             'i_syssockio' => 'define',
             'i_sysstat' => 'define',
             'i_sys <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	1965	2099	
==>ing ?
    }xo;
    
    while ($usage) {
        $usage =~ s/^\s+//;
        next unless $usage;
        die "invalid usage: '$usage'\n <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	3926	4052	
==>t(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a = qq!"$a"!;   # quote argument
		    $def_arg_names{$f}{$a} = $i;
		    # prin <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	4425	4551	
==>t(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a = qq!"$a"!;   # quote argument
		    $def_arg_names{$f}{$a} = $i;
		    # prin <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1906	2005	
==>..some stuff that uses Pod::Simple to do stuff, but which
  you don't want debug output from...

 $d <==
3	/Users/nnunley/parrot/tools/build/vtable_extend.pl	1994	2100	
==>.

   To deal with this there are two macros that are defined to handle
   the problem.

   PARROT_CALLIN_S <==
3	/Users/nnunley/parrot/examples/benchmarks/vpm.pl	3	102	
==>erl program by Thomas Klausner posted on Vienna-PM list
#
use strict;

my $big;
my $string="just ano <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	457	550	
==>nt::expected
	    = $Parse::RecDescent::defexpected->expected()
	    unless $Parse::RecDescent <==
3	/Users/nnunley/parrot/config/auto/socklen_t.pm	565	666	
==>('verbose');

    my $d_socklen_t = $Config{d_socklen_t};
    my $has_socklen_t = ( $d_socklen_t && $d <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1562	1661	
==>]{'Thispara'} = '' }

sub start_Verbatim    { $_[0]{'Thispara'} = ''   }
sub start_item_bullet { $_[ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1092	1191	
==>]{'Thispara'} = '' }

sub start_Verbatim    { $_[0]{'Thispara'} = ''   }
sub start_item_bullet { $_[ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5245	5344	
==>$right = $self->right;

  $handler->start_element({ Name => 'assign' });
  $dest->sax($handler);
  $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3308	3407	
==>$right = $self->right;

  $handler->start_element({ Name => 'assign' });
  $dest->sax($handler);
  $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24520	24612	
==>s/core.ops\"\n  opcode_t *dest = {{^+1}};\n  PMC * const p = CONTEXT(interpreter->ctx)->curre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593583	593834	
==>673,
                  "ARGS" => [
                              "p",
                              "k",
                              "kc"
                            ],
                  "BODY" => "#line 325 \"src/ops/object.ops\"\n  PMC *class = Par <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1476	1593	
==>nguages
        #  languages/m4

        my $language = 'm4';
        my $path_to_parrot = Parrot::Test::path_to_parro <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4104	4211	
==>destination";
    my $dest = $1;

	my $core_suffix;
    foreach $core_suffix (values %cores) {
		foreach (@o <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7204	7324	
==>ect})	       ? $options{reject}
		    :					 ''
		    ;
	my $ignore  = ref($options{ignore}) eq 'ARRAY' ? join('|', @{$op <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24206	24326	
==>ect})	       ? $options{reject}
		    :					 ''
		    ;
	my $ignore  = ref($options{ignore}) eq 'ARRAY' ? join('|', @{$op <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12569	12710	
==>gs...)
    s/DYNSELF           # Macro: DYNSELF
      \.(\w+)           # other_method
      \(\s*(.*?)\)      # capture argument list
     /" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679141	679231	
==>pmc.ops\"\n    {{\@1}}->vtable->unshift_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679920	680010	
==>pmc.ops\"\n    {{\@1}}->vtable->unshift_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}} <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	12655	12774	
==>@_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $dont_expect ) {
        # undef only matches unde <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	13099	13218	
==>@_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $dont_expect ) {
        # undef only matches unde <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	18677	18776	
==>_title can't find the title, it will return empty-string
("").

=item my $title_string = $parser->ge <==
3	/Users/nnunley/parrot/config/auto/m4.pm	726	851	
==>);
    if (!defined $osname) {
        ($osname, $cpuarch) = ($cpuarch, "");
    }

    my $has_gnu_m4;

    # Calling 'm4 --v <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	4449	4556	
==>cut

sub arg_dirs
{
    my $self = shift;

    return @{$self->{ARGDIRS}};
}

=item C<labels()>

Returns the <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	17785	17888	
==>}gc)
	{
		_failmsg q{No quotelike operator found after prefix at "} .
			     substr($$textref, pos($$te <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	4724	4821	
==>de);

#include "parrot/embed.h"

static char program_code[] = {
END_C

    $pf->byte_code($byte_co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807890	807998	
==>} = {{\@2}}->vtable->get_number_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808795	808903	
==>} = {{\@2}}->vtable->get_number_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LA <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11950	12047	
==>t t$

' references to references, expect 99
function last(t)
	t=99
	last=0
end function
function m <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	9826	9936	
==>-- just so that when we
    #  see "=extend W [whatever] thatelementname", we say that W maps
    #  to whateve <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019860	1019952	
==>6];\n  Parrot_localtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = stri <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020791	1020883	
==>6];\n  Parrot_localtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = stri <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	47949	48087	
==>PushScope( $_[0] );
            my $var = BuildLocalVariable( $_[0], $_[2] );
            Insert( $_[0], $var );
        }
	],
	[#Rule <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	48304	48442	
==>PushScope( $_[0] );
            my $var = BuildLocalVariable( $_[0], $_[2] );
            Insert( $_[0], $var );
        }
	],
	[#Rule <==
3	/Users/nnunley/parrot/lib/Test/More.pm	23774	23892	
==>o_skip($why);
    }

    local $^W = 0;
    last TODO;
}

=item When do I use SKIP vs. TODO?

B<If it's something the u <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655569	655711	
==>{\@2}}) ? 0 : {{\@2}}->vtable->defined(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	941	1051	
==>ts)
#

package Parse::Yapp::Driver;

require 5.004;

use strict;

use vars qw ( $VERSION $COMPATIBLE $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	916	1017	
==>ts)
#

package Parse::Yapp::Driver;

require 5.004;

use strict;

use vars qw ( $VERSION $COMPATIBLE $ <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	17205	17310	
==>ose. It takes the function
   signature for a C function we want to call and returns a pointer
   to a fun <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	6616	6720	
==>e sometimes prefixed by a ".".
		my ($type, $name) = ($1, $2);
		# The following are assumed to work Ever <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	69686	69799	
==>-s")
		       for hints on fixing these problems.');
	}
	if ($ERRORS) { $ERRORS=0; return }
	return $self;
}


sub <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	24585	24689	
==>_create_mro(interp, entry);
EOC
    # declare each nci method for this class
    foreach my $method (@{ $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	406	530	
==>:Statement);

sub new
{
  my $class = shift;
  my ($block, $dest, $left, $op, $right) = @_;

  confess("Block (" . ref($block <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	397	521	
==>:Statement);

sub new
{
  my $class = shift;
  my ($block, $dest, $left, $op, $right) = @_;

  confess("Block (" . ref($block <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	286	410	
==>:Statement);

sub new
{
  my $class = shift;
  my ($block, $dest, $left, $op, $right) = @_;

  confess("Block (" . ref($block <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21745	21881	
==>and
        ($pattern = join('',
         map {;
            ($_->type eq 'start') ? ("<" . $_->tagname .">")
          : ($_->type eq 'e <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	1432	1551	
==>_run();
    cc_clean();

    for (keys %results) {
        $conf->data->set($_ => $results{$_});
    }

    if ($results <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49737	49841	
==>tive(
					'my ($match,@res);
					 ($match,$text,undef,@res) =
						  Text::Balanced::extract_quotelike <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	117	221	
==>se strict;

use Carp ();

BEGIN { *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG }

sub new {
  my $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	116	220	
==>se strict;

use Carp ();

BEGIN { *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG }

sub new {
  my $ <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5249	5352	
==>f, $key) = @_;

    return unless defined $self->{triggers}{$key};

    my $verbose = defined $self->get <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	903	1002	
==>(10),b$(t$)
	i=i+1
loop while t$ <> ""

' 5 and PI
dim a$(), m()
a$(1)="5"
print a$(1)
m(99)=3.14
pr <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	44532	44624	
==>\\\]*(?:\\\\.[^/\\\\]*)*/)?)';
my $OPTIONAL		= '\G\((\?)'.$SIMPLEPAT.'\)';
my $ANY			= '\G\(( <==
3	/Users/nnunley/parrot/config/init/hints/solaris.pm	2804	2911	
==>this with the -xlibmieee flag.
    # I don't know of an equivalent flag for gcc.
    # (Alternatively, and m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	725636	725993	
==>ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 813,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356012	356202	
==>TDOUT(interpreter), s->strstart, s->bufused);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	26324	26480	
==>*)\s*\)\s*{$/) {
      $self->begin_block(undef, $1, $2);
      # TODO
      next;
    }

    #
    # PMC Construction:
    #
    # a = new Foo;
    #

    i <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3729	3841	
==>) = 
        gather_groups_and_libs(@pmcs);

    # Convert X.c -> X.o for all X.c
    compile($_) foreach (@pmcs) <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3833	3945	
==>) = 
        gather_groups_and_libs(@pmcs);

    # Convert X.c -> X.o for all X.c
    compile($_) foreach (@pmcs) <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	1414	1569	
==>[devel]doc
    docs/dev/dod.pod                                [devel]doc
    docs/dev/events.pod                             [devel]doc
    docs/dev/fhs.po <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	930	1042	
==>t hash!" if defined $args and ref($args) ne "ARRAY";

  my $self = bless {
    BLOCK => $block,

    TYPE  => $ty <==
3	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	977	1078	
==>t 'refs';
use Config;
use Getopt::Long;
use File::Copy;
use File::Basename;
use File::Path;
use File:: <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5015	5114	
==>p = INPUT[pos]");
    my $fail = $self->output_label_use($failLabel);
    my $pass = $self->output_l <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4690	4789	
==>p = INPUT[pos]");
    my $fail = $self->output_label_use($failLabel);
    my $pass = $self->output_l <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	17101	17199	
==>[1]{'~_freaky_para_hack'} = $1;
    DEBUG > 2 and print " Tolerating $$para[2] as =item *\\n\\n$1\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920998	921088	
==>rc/ops/string.ops\"\n    {{\@1}}=Parrot_psprintf(interpreter, {{\@2}}, {{\@3}});\n    {{+=4 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921891	921981	
==>rc/ops/string.ops\"\n    {{\@1}}=Parrot_psprintf(interpreter, {{\@2}}, {{\@3}});\n    {{+=4 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426162	426250	
==>s/math.ops\"\n  mmd_dispatch_v_pi(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427049	427137	
==>s/math.ops\"\n  mmd_dispatch_v_pi(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n" <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	6666	6778	
==>ll_name;
    my $n = $_->{CODE};
    my $comma = $n < @{$real_ops->{OPS}} -1 ? "," : "";
    $opname = "PARROT_OP <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	5078	5211	
==>ut

sub body
{
    my $self = shift;

    if (@_)
    {
        $self->{BODY} = shift;
    }

    return $self->{BODY};
}

=item C<jum <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7237	7348	
==>int($reg);
}

sub output_pushint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);

    if ($self-> <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6879	6990	
==>int($reg);
}

sub output_pushint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);

    if ($self-> <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28357	28452	
==>RACE;').'

			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched terminal<< <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30434	30528	
==>RACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched terminal<< <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32634	32728	
==>RACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched terminal<< <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	641	734	
==>');
  confess "Ident is not!" unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Valu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	720	813	
==>');
  confess "Ident is not!" unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Valu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	529	622	
==>');
  confess "Ident is not!" unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Valu <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33756	33891	
==>t @$paras},2;
            } else {
              DEBUG and print "Can't assimilate following ", $paras->[0][0], "\n";
              push <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35569	35704	
==>t @$paras},2;
            } else {
              DEBUG and print "Can't assimilate following ", $paras->[0][0], "\n";
              push <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	246785	247129	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "and",
                  "FLAGS" => ":base_core" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247648	247992	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "and",
                  "FLAGS" => ":base_core" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	248512	248856	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "and",
                  "FLAGS" => ":base_core" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095732	1095899	
==>"ARGS" => [
                              "sc"
                            ],
                  "BODY" => "#line 223 \"src/ops/experimental.ops\"\n  Parrot_Exec_OS_Comm <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4431	4544	
==>tring.\n");
    $parser->YYData->{lineno}++;
    return ( $type, $str );
}

sub _LongStringLexer {
    my $p <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	9488	9601	
==>nd
(c) a hash ref containing the flags associated with the class
(such as 'extends' and 'does').

=cut

sub parse_ <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	10695	10803	
==>is somewhat convoluted based the description from the old APL/360 manual
.sub 'dyadic:|'               # loga <==
3	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1192	1294	
==>Flags:
};
}

open OUT, "> parrot.iss" or die "Can't open parrot.iss";

print OUT qq{
; generated by too <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	11966	12071	
==>);
static size_t hash_str(const char * str);
static void store_op(op_info_t *info, int full);

/* XXX on c <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1788	1885	
==>ft;

    return $self->{ARGS}[shift];
}

=item C<goto_address($address)>

Transforms the C<goto AD <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1403	1500	
==>ft;

    return $self->{ARGS}[shift];
}

=item C<goto_address($address)>

Transforms the C<goto AD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	310296	310400	
==>interpreter,NULL);\n        while (!(interpreter->pdb->state & PDB_EXIT)) {\n            PDB_get_command( <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	58635	58739	
==>d>. For example, to properly ignore "empty" XML elements
(which might contain quoted strings):

        m <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	6078	6178	
==>quotelike && _match_quotelike($textref,"",1,0))
		{
			next;
		}

		else { $$textref =~ m/\G(?:[a-zA- <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	30483	30625	
==>{$pack.'::TODO'}
                                     : 0;
}

=item B<caller>

    my $package = $Test->caller;
    my($pack, $file, $line) = $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2511	2610	
==>st' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $self <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2388	2487	
==>st' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $self <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557980	558081	
==>t_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAILCALL;\n  interpreter->current_object = object;\n  i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559364	559465	
==>t_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAILCALL;\n  interpreter->current_object = object;\n  i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560736	560837	
==>t_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAILCALL;\n  interpreter->current_object = object;\n  i <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1194	1302	
==>t($util);
    $prog ||= $ENV{uc($util)};

    # never override the user.  If a non-existent program is specif <==
3	/Users/nnunley/parrot/config/inter/make.pm	1015	1123	
==>t($util);
    $prog ||= $ENV{uc($util)};

    # never override the user.  If a non-existent program is specif <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1191	1299	
==>t($util);
    $prog ||= $ENV{uc($util)};

    # never override the user.  If a non-existent program is specif <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131395	131719	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "F <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132250	132574	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "F <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	6963	7100	
==>elf->c_pair_item('', 'tsq'),
        ),
        $self->new_group(
            'Exceptions',
            '',
            $self->c_pair_item <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37298	37411	
==>);
    return 'N' if ($char eq 'F');
    return 'v' if ($type eq 'void');
    return '?';
}

=item C<signature($pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1027	1112	
==>i) REG_STR(cur_opcode[i])
#define CONST(i) CONTEXT(interpreter->ctx)->constants[cur_op <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1143	1228	
==>i) REG_STR(cur_opcode[i])
#define CONST(i) CONTEXT(interpreter->ctx)->constants[cur_op <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4119	4218	
==>_depth

# Get type (so we can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign regist <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2535	2634	
==>_depth

# Get type (so we can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign regist <==
3	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	50	146	
==>en2yaml.pl 4793 2005-05-31T14:22:35.671857Z svm  $

=head1 DESCRIPTION

=head1 SYNTAX

=cut

# pr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462915	463235	
==>\n  {{\@1}} = fmod({{\@2}}, den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463912	464232	
==>\n  {{\@1}} = fmod({{\@2}}, den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464909	465229	
==>\n  {{\@1}} = fmod({{\@2}}, den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5579	5693	
==>mcs = @_;

    my ( %group_files, %group_libs, %pmc_group, %pmc_libs );
    for my $pmc (@pmcs) {
        our $clas <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5790	5904	
==>mcs = @_;

    my ( %group_files, %group_libs, %pmc_group, %pmc_libs );
    for my $pmc (@pmcs) {
        our $clas <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1361	1446	
==>onstruct::Statement::Increment;
use Jako::Construct::Statement::LoopControl;
use Jako: <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30714	30839	
==>') {
          my $item_type = $self->_get_item_type($para);
            # That kills the content of the item if it's a number <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	31679	31804	
==>') {
          my $item_type = $self->_get_item_type($para);
            # That kills the content of the item if it's a number <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34002	34127	
==>') {
          my $item_type = $self->_get_item_type($para);
            # That kills the content of the item if it's a number <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2148	2247	
==>gment
	foreach(@{$code{$seg}->{code}}) {
		s/#RTJ// if $runtime_jump;
		if (/#SAVECOMMON/) {
			@sav <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791627	791768	
==>vtable->get_pmc_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792534	792675	
==>vtable->get_pmc_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	505	600	
==>se qw( Parrot::Docs::Item );

=item C<new_group($name, $text, @items)>

Returns a new group.

Us <==
3	/Users/nnunley/parrot/lib/File/Which.pm	161	263	
==>where);

$File::Which::VERSION = '0.05';

use File::Spec;

my $Is_VMS    = ($^O eq 'VMS');
my $Is_MacOS <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2868	2960	
==>Wrap::wrap($indent, $indent, $self->{'Thispara'} .= "\n");
  $out =~ tr{\xA0}{ } if Pod::Simp <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2402	2494	
==>Wrap::wrap($indent, $indent, $self->{'Thispara'} .= "\n");
  $out =~ tr{\xA0}{ } if Pod::Simp <==
3	/Users/nnunley/parrot/config/init/hints/netbsd.pm	191	306	
==>($ccflags !~ /-pthread/) {
        $ccflags .= ' -pthread';
    }
    $conf->data->set(ccflags => $ccflags);

    my <==
3	/Users/nnunley/parrot/config/init/hints/openbsd.pm	283	398	
==>($ccflags !~ /-pthread/) {
        $ccflags .= ' -pthread';
    }
    $conf->data->set(ccflags => $ccflags);

    my <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	3686	3783	
==>my ($self, $op, $op1, $test, $op2, $dest, $lastback) = @_;
    my $continue = $self->genlabel('aft <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	2146	2243	
==>s s/.*\bCONST_STRING\s*\(\w+\s*,//;

	if ($lines_seen{$line}++) {
	    die "Seen line $line before <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	12630	12764	
==>s
        ($util) = $util =~ /(\S+)/;
        my $path = which($util);

        if ($verbose) {
            print "$path is executable\ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9501	9626	
==>not valid: discard it
		and	do {
				$$token eq ''	# End of input: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9073	9193	
==>not valid: discard it
		and	do {
				$$token eq ''	# End of input: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and <==
3	/Users/nnunley/parrot/config/gen/platform.pm	1507	1612	
==>tform.h"
        or die "Can't open include/parrot/platform.h: $!";

    print PLATFORM_H <<"END_HERE";
#i <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	1396	1497	
==>age.pm'),
            $self->new_item('', 'lib/Parrot/Docs/File.pm'),
		    $self->new_item('', 'lib/P <==
3	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	1858	1959	
==>emoving files in miniparrot directory\n";
    find(sub {
	     return if ($File::Find::dir =~ /\.svn/) <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	5672	5793	
==>ss (-d $dir) {
	    # Make full path to the directory $dir
	    my @dirs;
	    while (! -d $dir) { # Scan up to nearest ex <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4300	4416	
==>"  $temp = $right");
    $right = $temp;
  }
  else {
    $right = $right->compile($compiler);
  }

  my $dest_name = <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	26901	27004	
==>gular expressions

	@extracted = extract_multiple($text,
				      [ \&extract_bracketed,
					\&extract <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706708	706876	
==>"ic",
                              "ic"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	707701	707869	
==>"ic",
                              "ic"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, { <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	6002	6160	
==>arg ) {
            return $self->expected_tests($arg);
        }
        elsif( !defined $arg ) {
            die "Got an undefined number of tests.  Looks li <==
3	/Users/nnunley/parrot/lib/File/Which.pm	3430	3537	
==>(which where);  # exports which() and where()
  
  my $exe_path = which('perldoc');
  
  my @paths = where(' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9761	9863	
==>ren;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->require_value);
      my <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25297	25399	
==>ren;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->require_value);
      my <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8975	9163	
==>ERR "Forced Error recovery.\n";

            $$check='';

        };

        #Error
            $$errstatus
        or   do {

            $$errstatus = 1;
            &$error($ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8572	8749	
==>ERR "Forced Error recovery.\n";

            $$check='';

        };

        #Error
            $$errstatus
        or   do {

            $$errstatus = 1;
            &$error($ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	10821	10915	
==>:Construct::Expression::Value::Identifier->new($block, $token);
      my $op    = $self->forth- <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2761	2863	
==>sub restart_offset
{
    my ($self, $offset) = @_;

    return "interpreter->resume_offset = REL_PC + $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4096	4198	
==>sub restart_offset
{
    my ($self, $offset) = @_;

    return "interpreter->resume_offset = REL_PC + $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2505	2599	
==>fix)>

Optionally implemented in subclasses to return the C code for the ops
address declaratio <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656415	656501	
==>{{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed_int(interpreter, {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657339	657425	
==>{{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed_int(interpreter, {{ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3718	3860	
==>hex($1)
                                      # yes, tolerate even more hex!
    : '1033'
  );

  $new->head1_halfpoint_size(32);
  $new->head2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644019	644108	
==>> "#line 199 \"src/ops/pmc.ops\"\n  {{\@1}} = {{\@2}}->vtable->type_keyed_int(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644912	645001	
==>> "#line 199 \"src/ops/pmc.ops\"\n  {{\@1}} = {{\@2}}->vtable->type_keyed_int(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032522	1032811	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_lex",
                  "FLAGS" => "",
                  "ARGDIRS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033619	1033908	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_lex",
                  "FLAGS" => "",
                  "ARGDIRS <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	15027	15123	
==>oot directory - but it works.
    
    $self->{NAV_BAR} = $item->html_navigation("$rel_path/$name <==
3	/Users/nnunley/parrot/config/inter/make.pm	538	663	
==>til is installed";
$prompt      = "Do you have a make utility like 'gmake' or 'make'?";
@args        = qw( make ask );

sub ru <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	11042	11163	
==>qq(print "INPUT:\$rx_input\\n";);
        push @ops, qq(print "      " . (" " x \$rx_pos) . "^\\n";);
    }

    push @ops <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	4440	4674	
==>str .= sprintf( '\x%02x', ord $_ );
                        }
                        elsif ( ord $_ >= 128 ) {
                            $str .= sprintf( '\u%04x', ord $_ );
                        }
                        els <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	2551	2676	
==>> undef,
    list_only    => undef,
    use_times    => undef,
    display_help => undef,
    method       => undef,
    run_b <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	7668	7766	
==>es must be retained in any copies of any part of this
documentation and/or software.

=back

This c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822442	822668	
==>\n  }\n\n  {{\@1}} = UVal_int(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823510	823736	
==>\n  }\n\n  {{\@1}} = UVal_int(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	14826	14943	
==>runcf      math.h
truncl      math.h
ungetc      stdio.h
vfprintf    stdio.h
vfscanf     stdio.h
vprintf     stdio.h
v <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3002	3124	
==>MAIN PROGRAM ################

my ($mode, @pmcs) = @ARGV;

if ($mode eq 'generate') {
    # Convert X.pmc -> X.dump and X.c <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3106	3228	
==>MAIN PROGRAM ################

my ($mode, @pmcs) = @ARGV;

if ($mode eq 'generate') {
    # Convert X.pmc -> X.dump and X.c <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	36908	37019	
==>ve!
        DEBUG > 1 and printf "Unhandled directive %s (Handled: %s)\n",
         $para->[0], join(' ', sort k <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	10087	10177	
==>ang="en">
<head>
  <title>Parrot Smoke Reports</title>
  <meta http-equiv="Content-Type" co <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7394	7526	
==>db_desc)" : "";
        return ("set <rx_tmp>, <rx_stack>",
                $self->pushop . " <rx_stack>, $reg",
                $sel <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101795	101883	
==>Y" => "#line 130 \"src/ops/bit.ops\"\n  string_bitwise_not(interpreter, {{\@2}}, &{{\@1}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102566	102654	
==>Y" => "#line 130 \"src/ops/bit.ops\"\n  string_bitwise_not(interpreter, {{\@2}}, &{{\@1}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101844	102065	
==>twise_not(interpreter, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102615	102836	
==>twise_not(interpreter, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	1829	1927	
==>croak "Use set_source with ", __PACKAGE__,
    " and subclasses, not parse_line";
}

#~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945475	945707	
==>t_charset_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946285	946517	
==>t_charset_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	13046	13146	
==>></td>
			<td class="leftsep"><tmpl_var name=harness_args></td>
            <td class="leftsep num">< <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13960	14062	
==>t
	foo as integer
	bar as string
end type
type second
	pointer as first
	number as integer
end type
fun <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11313	11407	
==>st int ELEMENT_TYPE_I = 0x18
	.const int ELEMENT_TYPE_U = 0x19
	.const int ELEMENT_TYPE_FNPTR = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	2316	2398	
==>dent = Jako::Construct::Expression::Value::Identifier->compile2($compiler, $self->b <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	45162	45289	
==>'chunk' => 57
		}
	},
	{#State 207
		DEFAULT => -25
	},
	{#State 208
		DEFAULT => -97
	},
	{#State 209
		DEFAULT => -3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2771	2874	
==>t_offset
{
    my ($self, $offset) = @_;

    return "interpreter->resume_offset = REL_PC + $offset; int <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4106	4209	
==>t_offset
{
    my ($self, $offset) = @_;

    return "interpreter->resume_offset = REL_PC + $offset; int <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	5520	5625	
==>_)} }, $_ for @smokes;

  foreach my $branch (keys %branches) {
    foreach my $cat   (keys %{ $branches{$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236621	236882	
==>1}} = string_compare(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237503	237764	
==>1}} = string_compare(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238385	238646	
==>1}} = string_compare(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4438	4571	
==>rators 
print "      AND   OR    XOR   EQV   IMP   a & ! b"
for i = 0 to 1
for j = 0 to 1
print i; j;
if i and j then a$="True  " else <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	916	1032	
==>onfigure::Data;

use Class::Struct;

struct(
    'Parrot::Configure::Task' => {
        step    => '$',
        param <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	6009	6113	
==>{^( ~= )(.*)$}x) {
      push @tokens, Jako::Token->new(
        $file, $line, 'concat-assign', undef, $1 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6474	6575	
==>urn qq!set $reg, <rx_match>["$group";1] # get group $group end!;
}

sub output_delete {
    my ($self, <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14526	14626	
==>>unget_token(@to_unget);
  
  if(DEBUG) {
    if(defined $title) { print "  Returing title <$title>\n <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	23091	23191	
==>>unget_token(@to_unget);
  
  if(DEBUG) {
    if(defined $title) { print "  Returing title <$title>\n <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	13568	13696	
==>35
		}
	},
	{#State 18
		ACTIONS => {
			'CHAR' => 34,
			"=" => 36
		}
	},
	{#State 19
		DEFAULT => -5
	},
	{#State 20
		ACTIONS <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6169	6294	
==>($text);
        }
    }
    else
    {
        $self->unget_token($next);
        print {$self->{'output_fh'}} $self->{'Tagma <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	4642	4766	
==>code might be useful in a non debugging version
        );
        $warns = "";
        while (my ($vers, $opt) = splice @opt <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16542	16658	
==>y $ret = $self->body($method, $line, $out_name);
            $line += count_newlines($ret);
            $cout .= $ret <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16799	16907	
==>y $ret = $self->body($method, $line, $out_name);
        $line += count_newlines($ret);
        $cout .= $ret <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	39772	39888	
==>)(\t+)/$1.(" " x ((length($2)<<3)-(length($1)&7)))/e
            ) {}

            # TODO: whinge about (or otherwise <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	218	332	
==>nt(($1 / $2) * 100)
		};
	}
}

print <<HEADING;
Name & Done & Total & Percent \\\\
\\hline
HEADING
foreach <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	8	98	
==>ght (C) 2004, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Docs/Section/Config.pm 20333 2 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	13363	13487	
==>ACKAGE__) {
     $tag = " ($tag)";
     $tag = " v" . $self->VERSION . $tag   if   defined $self->VERSION;
     $tag = $class <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	803	942	
==>=> 'is_eq',
    output_like       => 'like',
    output_isnt       => 'isnt_eq',
                        );

foreach my $func ( keys %langua <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	536	644	
==>=> 'is_eq',
    output_like => 'like',
    output_isnt => 'isnt_eq',
);

foreach my $func ( keys %langua <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	947	1038	
==>/Parrot/Vtable.pm'),
		),
		$self->new_group('IO', '',
			'lib/Parrot/Distribution.pm', 'lib <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25653	25744	
==>TER_NEXT_$forloop
FOR_LOOP_BODY_$forloop:
COND
	debug() if $debug;
	
	push @{$fors[$scopes]} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627433	627519	
==>@1}} = pmc_new_noinit(interpreter, {{\@2}});\n  {{\@1}}->vtable->init(interpreter, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628577	628663	
==>@1}} = pmc_new_noinit(interpreter, {{\@2}});\n  {{\@1}}->vtable->init(interpreter, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321808	322110	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322579	322881	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323351	323653	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1924	2031	
==>sub_block);

  my $sub_name = $sub_block->name;

  my $return_type = $sub_block->type;

  my $anon;

  if (d <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	6865	6971	
==><(.+?)>/$smoke{$1}/g;

  $str;
}

sub unpack_smoke {
  my $name = shift;

  /^parrot-smoke-([\d\.]+)	#  1 V <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	443	539	
==>le is generated in the order you specify, so
if there are library dependencies, make sure you hav <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	309517	309761	
==>(interpreter,f);\n    }\n\n    {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018016	1018105	
==>arrot_gmtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = string_from_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018941	1019030	
==>arrot_gmtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = string_from_ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	2271	2372	
==>st_num );
    $f_code = File::Spec->rel2abs( $f_code );

    return( $next_test_num, $f_out, $f_code ) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834232	834319	
==>Y" => "#line 202 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834958	835045	
==>Y" => "#line 202 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter-> <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	40617	40730	
==>(not man or url).\n";
      }

      if( defined $section_name ) {
        $ell->[1]{'section'} = Pod::Simple::Lin <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32278	32385	
==>$self->{class}, $method, 0);
    # I think that these will be out by one - NWC
    my $l = $self->line_direc <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40900	41007	
==>$self->{class}, $method, 0);
    # I think that these will be out by one - NWC
    my $l = $self->line_direc <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	17162	17270	
==>ump
    # label.
    gen_pir = concat ".get_results (cur_exception, $S1000000)\nsaved_ehs["
    tmp = i
    g <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2297	2402	
==>ame implementation as in C<Parrot::OpTrans>. It
should not be duplicated.

=cut

sub gen_goto
{
    my ($s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Transcode.pm	352	457	
==>nd print "About to try loading $class...\n";
  eval "require $class;";
  if($@) {
    DEBUG and print "Cou <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	21504	21608	
==>ut to start _remap_sequences on treelet from line %s.\n",
   $start_line || '[?]'
  ;
  DEBUG > 3 and pri <==
3	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	4092	4189	
==>formatted()>

Return the nicely formatted code for the raw PIR that's been provided.

=for XXX

Ma <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2805	2901	
==>($source))
	{
		$index_html .= $content->write_html($source, $target, $silent);
	}
	
	return $ind <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	12711	12830	
==>itial =~ /^\s*\d+\s*$/) {
                print OUT qq($atag<font color="green">$_</font>)
            } elsif ($_ =~ /b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054480	1054579	
==>\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055607	1055706	
==>\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+= <==
3	/Users/nnunley/parrot/Configure.pl	9970	10061	
==>add_steps(@steps);
$conf->options->set(%args);
# Run the actual steps
$conf->runsteps or exi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2702	2787	
==>}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub ne <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	1911	1996	
==>}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub ne <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353949	354234	
==>UMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 413,
                  "A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353205	353467	
==>UMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 41 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354694	354956	
==>UMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 41 <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7369	7470	
==>$text =~ s/\s*-$//o;
	
	# There was not text, just another POD command (=head2 probably).
	return '' i <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	5476	5572	
==>erpreter, pf, (opcode_t *)program_code,
			    sizeof(program_code)) ) {
	printf( "Can't unpack.\ <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	13333	13427	
==>in C<EE<lt>I<name>E<gt>>) like "eacute" or "sol"
to the Unicode value that each stands for.  Fo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	725	836	
==>f = bless {
    BLOCK => $block,
    IDENT => $ident
  }, $class;

  $block->push_content($self);

  return $sel <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	725	836	
==>f = bless {
    BLOCK => $block,
    IDENT => $ident
  }, $class;

  $block->push_content($self);

  return $sel <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	13896	13999	
==>{
    print SOURCE <<END_C;
static void hop_deinit(void) {}
END_C
}

print SOURCE <<END_C;

/*
** op lib <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	10211	10311	
==>agpos,		# OPENING TAG
		$textpos,     $closetagpos-$textpos,		# TEXT
		$closetagpos, $endpos-$closeta <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	92	189	
==>se vars qw( $ATTR_PAD @ISA $VERSION $SORT_ATTRS);
$VERSION = '2.02';
BEGIN {
  @ISA = ('Pod::Simpl <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	93	190	
==>se vars qw( $ATTR_PAD @ISA $VERSION $SORT_ATTRS);
$VERSION = '2.02';
BEGIN {
  @ISA = ('Pod::Simpl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130839	131136	
==>bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 16 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131693	131990	
==>bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 16 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132548	132845	
==>bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 16 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	16342	16451	
==>ment'),
      {
        'start_line' => $paras->[0][1]{'start_line'},
        $starting_contentless ? ( 'conte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322288	322395	
==>,
                  "BODY" => "#line 134 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (UINTVAL)((Parrot_UInt4)({{\@2} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323060	323167	
==>,
                  "BODY" => "#line 134 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (UINTVAL)((Parrot_UInt4)({{\@2} <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16018	16135	
==>re to silence a C<Pod::Simple::HTML> warning.

=cut

sub esc 
{
    if ( defined wantarray ) 
    {
        if ( wanta <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	14986	15099	
==>rpolate($code, 'op1', 'op2');
        } elsif ($type1 eq "APLVector" && $type2 eq "APLVector") {
          # vecto <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	2903	3005	
==>";
typedef enum {
    VTABLE_IS_CONST_FLAG = 0x01,
    VTABLE_HAS_CONST_TOO = 0x02,
    VTABLE_PMC_NEED <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113391	113656	
==>JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inli <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114129	114394	
==>JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inli <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	2531	2659	
==>,
    bench_path   => undef,
    list_only    => undef,
    use_times    => undef,
    display_help => undef,
    method       => <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10385	10507	
==>o and length $to ) 
    {
        $to = $self->resolve_pod_page_link($to, $section);
        
        return unless defined <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	23628	23745	
==>0') {
        splice(@$treelet, $i, 1); # just nix this node (and its descendants)
        --$i;  # back-update the co <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	1426	1538	
==>g subclassed!
    Carp::croak "You can call run() only on subclasses of "
     . __PACKAGE__;
  } else {
    Carp <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	7910	8079	
==>t_value = $obj->s;           # element value
    $obj->s('new value');               # assign to element

                                    # array type accessor:
    $ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	17916	18019	
==>::croak("You tried to run tests without a plan!  Gotta have a plan.");
    }

    lock($self->{Curr_Test <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	18781	18884	
==>::croak("You tried to run tests without a plan!  Gotta have a plan.");
    }

    lock($self->{Curr_Test <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78167	78491	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlvar",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79687	80011	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlvar",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	5475	5616	
==>$body;
    my $short_name;
    my $args;
    my @args;
    my @argdirs;
    my $seen_pod;
    my $seen_op;
    my $line;
    my $flags;
    my <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327096	327200	
==>table->set_integer_native(interpreter, {{\@1}}, (INTVAL){{\@2}});\n  {{+=3}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327898	328002	
==>table->set_integer_native(interpreter, {{\@1}}, (INTVAL){{\@2}});\n  {{+=3}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	3158	3259	
==>EXT_EXPORT extern Parrot_PMC Parrot_lib_${lc_libname}_load(Parrot_INTERP interpreter); /* don't warn * <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3230	3338	
==>name, $expl, $body, $out) = ($1, $2, $3, choose($4, unescape($5), $6));

        # make the test print the la <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4637	4745	
==>name, $expl, $body, $out) = ($1, $2, $3, choose($4, unescape($5), $6));

        # make the test print the la <==
3	/Users/nnunley/parrot/config/inter/shlibs.pm	8	98	
==>ght (C) 2005, The Perl Foundation.
# $Id: /parrot/config/inter/shlibs.pm 19593 2006-05-30T0 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	1133	1245	
==>t as #5
for i = 1 to 5
	input #5,a$
	print a$,
next i
close #5
print

' Expect 5, 0, "Hello"
common i, a$
sub mys <==
3	/Users/nnunley/parrot/config/init/hints/irix.pm	224	329	
==>ags = $conf->data->get('ccflags') || "";

    # 1185 An enumerated type is mixed with another type.
    if <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	4805	4908	
==>s ($$textref =~ m/\G$pre/gc)
	{
		_failmsg "Did not find prefix: /$pre/", $startpos;
		return;
	}

	$lde <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3438	3544	
==>s{fnlib}) {
      $fnlib = $props{fnlib}->value; # TODO: We should make sure its a string, somewhere.
    } <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6102	6208	
==>s{fnlib}) {
      $fnlib = $props{fnlib}->value; # TODO: We should make sure its a string, somewhere.
    } <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	17626	17736	
==>s,	$endpos-$modpos,	# MODIFIERS
			$endpos, 	$textlen-$endpos,	# REMAINDER
		       );
	}

	unless ($$textref = <==
3	/Users/nnunley/parrot/lib/Test/More.pm	36784	36877	
==>est::More.

L<Test::Class> is like XUnit but more perlish.

L<Test::Deep> gives you more power <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1028	1115	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub handle_text {  $_[0]{'Errata_seen'} and $_[0]{'Thisp <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25412	25534	
==>_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    my $ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27312	27434	
==>_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    my $ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	13321	13417	
==>] eq "do") {
		feedme();
		$foo=$dos[-1];
		push @{$code{$seg}->{code}}, "\tgoto AFTERDO_$foo->{j <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	7824	7932	
==>>&STDOUT" or die "Can't save     stdout" if $out;
    open  OLDERR, ">&STDERR" or die "Can't save     stderr" <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7874	7981	
==>>&STDOUT" or die "Can't save     stdout" if $out;
    open OLDERR, ">&STDERR" or die "Can't save     stderr" <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	13972	14071	
==>er that best aproximates
it (like "e").  You may find this useful if you are rendering
POD in a form <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9155	9295	
==>&$error($self);
                $$errstatus # if 0, then YYErrok has been called
            or  next;       # so continue parsing

#DBG> <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8741	8877	
==>&$error($self);
                $$errstatus # if 0, then YYErrok has been called
            or  next;       # so continue parsing

#DBG> <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	5701	5792	
==>C;
#include "parrot/parrot.h"
#include "parrot/oplib.h"

$sym_export extern op_lib_t *$init_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766333	766557	
==>865,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 335 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} <==
3	/Users/nnunley/parrot/Configure.pl	7545	7680	
==>r
                        of the following ICU options.

   If you do not have a full ICU installation:

   --without-icu        Build p <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9565	9680	
==>put: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	print STDERR "**At eof: aborting.\n";
				return(und <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9135	9246	
==>put: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	print STDERR "**At eof: aborting.\n";
				return(und <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45511	45607	
==>s*<skip:';
my $OPMK		= '\G\s*<(left|right)op:';
my $ENDDIRECTIVEMK	= '\G\s*>';
my $RESYNCMK		= '\ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3253	3360	
==>, $val1, $val2, $dest);
}

sub output_le {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_test( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2948	3055	
==>, $val1, $val2, $dest);
}

sub output_le {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_test( <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	61661	61810	
==>, reduces, accept...)
        #    0x08         Parse Stack dump
        #    0x10         Error Recovery tracing
    );

    close $parser->YYDa <==
3	/Users/nnunley/parrot/lib/Parrot/PMC.pm	257	363	
==>=> 2,
	Key => 3,
	Random => 4,
	UnManagedStruct => 5,
	ManagedStruct => 6,
	delegate => 7,
	CSub => 8,
	Com <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	36229	36327	
==>L-content text bit \"$ell_content[$j]\" for a '|'.\n";

        if($ell_content[$j] =~ m/^([^\|]*)\ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	7981	8091	
==>ass> is its class.

=cut

sub init() {
    my ($self, $class) = @_;

    $self->get_vtable_section();
    $self <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Compilers.pm	426	532	
==>se strict;
use warnings;

use base qw( Parrot::Docs::Section );

use Parrot::Distribution;

=item C< <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	428	527	
==>se strict;
use warnings;

use base qw( Parrot::Docs::Section );

use Parrot::Distribution;

=item C< <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	46104	46246	
==>ule 4
		 'chunk', 0,
sub
#line 61 "Lua\lua51.yp"
{
            [];
        }
	],
	[#Rule 5
		 '_semicolon_opt', 1, undef
	],
	[#Rule <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	20916	21044	
==>sne',
	    '>' => 'isgt',
	    '>=' => 'isge',
	    '<' => 'islt',
	    '<=' => 'isle',
	    'is' => 'issame',
	    'is not' => ' <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2732	2837	
==>-f $dev_file;

    info($file, 0, ".dev file not found for $file.");
}

# ignore any leading or trailing w <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3029	3134	
==>, $val1, $val2, $dest);
}

sub output_ne {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_tes <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2725	2830	
==>, $val1, $val2, $dest);
}

sub output_ne {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_tes <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	17791	17891	
==>rrot::Op->rewrite_body($_, $trans);
    }

    return $_;
}

=item C<version($major, $minor, $patch)> <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	2667	2788	
==>t "diff @diff\n" if $opt{d};
    @diff;
}

sub get_dis {
    my ($cmd, $f) = @_;
    @dis = qx($cmd $f);
    print @dis if <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1553	1666	
==>goto &{"Test::More::$meth"};
        my $ok = &{"Test::More::$meth"}( @_ );
        # if( $ok ) { foreach my $meth <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1469	1582	
==>goto &{"Test::More::$meth"};
        my $ok = &{"Test::More::$meth"}( @_ );
        # if( $ok ) { foreach my $meth <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	1174	1275	
==>ins', '$cmd')
  .local string pir_code
  .local int register_num
  (register_num,pir_code) = inlined(0 <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	52476	52576	
==>"<reject:$code>");
				$prod and $prod->additem($item)
				      or  _no_rule("<reject:$code>",$line) <==
3	/Users/nnunley/parrot/lib/Test/More.pm	9421	9518	
==>rnative delimiters are
currently not supported):

    like( $this, '/that/', 'this is like that' ) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506988	507426	
==>",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 583,
                  "ARGS" => [
                              "n",
                              "nc",
                              "n"
                            ],
                  " <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	5770	5928	
==>ing anything strange:
          (?:
           [a-zA-Z'\x80-\xFF]+[\$\@\:_<>\(\\\*]\S+
          )
         )
        /\cb$1\cc/xsg
      ;
      
      rtf_es <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	508	624	
==>ate_c_include;
    exit;
};
$do_init and do {
    unlink $outfile;
    exit;
};

$file = shift @ARGV;
$file =~ s/\.c$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423411	423646	
==>ARGS" => [
                              "i",
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 567 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_liste <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13398	13538	
==>DRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "jsr",
                  "FLAGS" => ":base_core,check_event",
                  "ARGDIR <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	18302	18412	
==>op off
    return $treelet;
  } else {
    $treelet = $self->_treelet_from_formatting_codes(@_);
  }
  
  if( $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342147	342285	
==>c"
                            ],
                  "BODY" => "#line 128 \"src/ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343147	343285	
==>c"
                            ],
                  "BODY" => "#line 128 \"src/ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, { <==
3	/Users/nnunley/parrot/examples/benchmarks/addit.pl	606	711	
==>$sum
}
my $result = 0;
my @args;
$args[0] = 1000;
$args[1] = 7.100;
$args[2] = 87;
$args[3] = "3.87";
$arg <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3150	3251	
==>$main::common{$var}) {
			push(@saves, $var);
		}
	}
	if (@saves) {
		print CODE qq{\t\tfind_global _G <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103806	1103896	
==>DY" => "#line 332 \"src/ops/experimental.ops\"\n\tSTRING *class = {{\@2}};\n\tINTVAL type = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105021	1105111	
==>DY" => "#line 332 \"src/ops/experimental.ops\"\n\tSTRING *class = {{\@2}};\n\tINTVAL type = <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	1497	1630	
==>SH' ) {
        $class = shift;
        @decls = %{shift()};
        _usage_error() if @_;
    }
    elsif ( $base_type eq 'ARRAY' ) { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623786	623902	
==>char*)caller_ctx->bp.regs_i, dest_pred);\n\t}\n        else\n            n = 2;\n\t{{+=n}};\n    }\n    /* no match r <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28076	28179	
==>cent::expected
				   = $Parse::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = ($ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30150	30253	
==>cent::expected
				   = $Parse::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = ($ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32351	32454	
==>cent::expected
				   = $Parse::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = ($ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321860	322123	
==>0,
                  "NAME" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322631	322894	
==>0,
                  "NAME" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323403	323666	
==>0,
                  "NAME" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	253	345	
==>ow
the inlined tcl builtin works. Parameters specifying argument types and
subcommands can be <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686410	686499	
==>=> "#line 563 \"src/ops/pmc.ops\"\n   {{\@1}} = {{\@3}}->vtable->getprop(interpreter, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687300	687389	
==>=> "#line 563 \"src/ops/pmc.ops\"\n   {{\@1}} = {{\@3}}->vtable->getprop(interpreter, {{\@ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17187	17292	
==>paragraph, given the stack: (",
      $self->_dump_curr_open(), ")\n";
    
    if($para_type eq '=for') { <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	16313	16413	
==>l_state
    $extra_preamble

    pointer =  ($ret_type (*)(void))D2FPTR(PMC_struct_val(self));
    $r <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	28818	28912	
==>ed without it
printing any test output, for example, when current_test() is changed.
In these c <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4273	4376	
==>, $group_libs->{$group}, [ "lib-$group", @$pmcs ] )
          or die "partial link of $group failed ($?) <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4377	4480	
==>, $group_libs->{$group}, [ "lib-$group", @$pmcs ] )
          or die "partial link of $group failed ($?) <==
3	/Users/nnunley/parrot/config/inter/charset.pm	218	316	
==>to select which charset files to include.

=cut

package inter::charset;

use strict;
use vars qw($ <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	3300	3476	
==>f (/FUNCTION : (.*) \[(.*)\]/) {
            $function = $1;
            my $function_scope = $2;
            
            next;
        }
        
        # end of function blo <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12067	12154	
==>.  For example, C<e2char('sol')>, C<e2char('47')>,
C<e2char('0x2F')>, and C<e2char('057' <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12591	12678	
==>.  For example,
C<e2char('sol')>, C<e2char('47')>,
C<e2char('0x2F')>, and C<e2char('057' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2016	2151	
==>=> "\n<dd>",
  '/Para_item'   => "</dd><p$Lame></p>\n",

  'B'      =>  "<b>",                  '/B'     =>  "</b>",
  'I'      =>  "<i> <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2767	2858	
==>my $extraLibs = '-lm -lgmp -lreadline -lpthread -lm -L/opt/local/lib  -licuuc -licudata -lpt <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2562	2653	
==>my $extraLibs = '-lm -lgmp -lreadline -lpthread -lm -L/opt/local/lib  -licuuc -licudata -lpt <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11994	12216	
==>1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_POP",
                  "NAME" => "ret",
                  "FLAGS" => "",
                  "AR <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	6292	6400	
==>b usage {
    print <<'END_USAGE';
Usage: tcl-test.pl [-cu]
    -c Convert the .test files to .t files
    -u <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	18851	18947	
==>f the files, using the
given directories to search for all of correct PMCs. The middle
argument i <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13288	13392	
==>op_not {
  my ($self,$node) = @_;

  my $return = $self->_save_1 ('I');
  $self->_generate(_get_arg($node <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	5244	5368	
==>ntries 
            && $Parrot::Revision::svn_entries =~ m/\.svn/) {
       $svn_cmd = 'svn';
   } else {
       $svn_cmd = ' <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	14208	14305	
==>ecDescent::_hint("The production starts with $what. That means that the
					  production can neve <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	3596	3690	
==>Perl implementation of Ron Rivests MD5 Algorithm

=head1 DISCLAIMER

This is B<not> an interfac <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	5186	5317	
==>e"     => $line,
				"impcount" => 0,
				"opcount"  => 0,
				"vars"	   => "",
			}, $class;
	}
}

sub reset($)
{
	@{$_[0]->{"prods <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	20821	20924	
==>ut_is   => 'language_output_is',
        example_output_like => 'language_output_like',
        example_ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	3216	3311	
==>my ($self, $name) = @_;
    return $self->{_temps}->{$name} || die "Requested unallocated tempor <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13008	13094	
==>e_t * loc;\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13852	13938	
==>e_t * loc;\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757797	758081	
==>{
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758569	758853	
==>{
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => " <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	1962	2074	
==>LSH})) {
      $executable = $ENV{PARROT_TCLSH};
    }
    $cmd = "$executable $lang_f";

    $exit_code = Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32470	32576	
==>Parrot::Pmc2c::SharedRef Instance Methods

C<SharedRef> is like C<Ref> but with locking.

=over 4

=cut

pa <==
3	/Users/nnunley/parrot/lib/Test/More.pm	20333	20429	
==>e HTML::Lint installed, the whole block of
code I<won't be run at all>.  Test::More will output s <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	121	324	
==>ersion 1.05.
#
#        Don't edit this file, use source file instead.
#
#             ANY CHANGE MADE HERE WILL BE LOST !
#
####################################################################
pac <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	119	315	
==>ersion 1.05.
#
#        Don't edit this file, use source file instead.
#
#             ANY CHANGE MADE HERE WILL BE LOST !
#
####################################################################
pac <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	15997	16106	
==>ammar, or a
			 problem inside the previous directive.");
		return;
	}
	my $op = pop @{$self->{op}};
	my $span <==
3	/Users/nnunley/parrot/config/gen/platform.pm	688	782	
==>form = "ansi"  if defined($conf->options->get('miniparrot'));
    $platform = "win32" if $platf <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8662	8743	
==>GATE","PHASERS","QUIT"
data "SHIELDS","SOS","SRSCAN","STATUS","TORPEDO","TRANSFER" <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21526	21607	
==>GATE","PHASERS","QUIT"
data "SHIELDS","SOS","SRSCAN","STATUS","TORPEDO","TRANSFER" <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28321	28436	
==>reak,
    );
    return \@opcodes;
}

sub BuildForNum {
    my ( $parser, $var, $e_start, $e_limit, $e_step, $ <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	956	1069	
==>ngth $in;
  
  # Convert to decimal:
  if($in =~ m/^(0[0-7]*)$/s ) {
    $in = oct $in;
  } elsif($in =~ m/^0x([0- <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2315	2428	
==>ngth $in;
  
  # Convert to decimal:
  if($in =~ m/^(0[0-7]*)$/s ) {
    $in = oct $in;
  } elsif($in =~ m/^0x([0- <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	13162	13270	
==>c     stdlib.h
remainder   math.h
remainderf  math.h
remainderl  math.h
remove      stdio.h
remquo      math. <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	11568	11675	
==>ef eq '$#' or $deref eq '$$' )
	    {
		_failmsg "Bad identifier after dereferencer", pos $$textref;
		pos $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	11854	11944	
==>ref $self and $self->isa("Jako::Construct::Block");
  confess "No compiler!" unless defined <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161862	162114	
==>> 195,
                  "ARGS" => [
                              "n",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 183 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035464	1035559	
==>st lex_name = {{\@2}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036628	1036723	
==>st lex_name = {{\@2}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124535	124765	
==>=> [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 257 \"src/ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL) <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	11224	11353	
==>ub LOAD_LOCALS {
    my ($n, $c, $cmt) = @_;
    # TODO $cmt
    my $pad = temp('P');
    print <<EOC;
	peek_pad $pad      # ???
E <==
3	/Users/nnunley/parrot/Configure.pl	3847	3944	
==>aintainer>

Use this option if you want imcc's parser and lexer files to be generated.
Needs a wor <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	524074	524395	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sqrt",
                  "FLAGS" => ":base_core",
                  "AR <==
3	/Users/nnunley/parrot/tools/docs/write_docs.pl	5	97	
==>rl -w
# Copyright (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/tools/docs/write_docs.pl <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	9332	9421	
==>>_add_inst('','eq',[$cond,0,"FALSE_$label"]);
  $self->_restore($cond);
  $return = $self- <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	2522	2678	
==>D VALIGN="middle" ALIGN="center">
                    <IMG BORDER=0
                        SRC="$resources/parrot.small.png" 
                        ALT="p <==
3	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	2082	2273	
==>end ) {
                    $level--;
                }
                $line = ( $self->{indent} x $level ) . $line;
                if ( $line =~ $block_begin ) {
                    push @o <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	14999	15137	
==>eer_block);
        $self->push_block($cond) if defined $cont;;
      }
      elsif ($peer_block->kind eq 'else') {
        if (defined $co <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	2988	3100	
==>|aS|bT) -> (a opt(R|S) | opt(bT))
        # opt(R|...) -> (opt(R)|opt(...)) (when R is not a sequence)
        my <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302131	302434	
==>g_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303007	303310	
==>g_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303883	304186	
==>g_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	10547	10688	
==>_meth();
                }
            }
        };
    }
}


=item B<is_eq>

  $Test->is_eq($got, $expected, $name);

Like Test::More's is(). <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1055	1164	
==>ompile
{
  my $self = shift;
  my ($compiler) = @_;

  my $name  = $self->name;

#  $self->DEBUG(0, "Searching <==
3	/Users/nnunley/parrot/config/init/hints/darwin.pm	798	1033	
==>dow",
        libs                => $libs,
        share_ext           => '.dylib',
        load_ext            => '.bundle',
        link                => 'c++',
        ld                  => 'c++',
        ld_share_flags      => '- <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	5921	6062	
==>= $self->get_token) {

    # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    if( ($type = $token->type) eq 'start' ) <==
3	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	684	784	
==>hould check for proper nesting

my $block_begin = qr{ ( ^ \.sub | ^push_eh) }smx;

my $block_end = qr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576590	576876	
==>reter, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577602	577888	
==>reter, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7225	7324	
==>($file, $line, "Improper indenting for \"$_\"\n(should be \"#$indent$2\" because it is inside of " . <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7532	7631	
==>($file, $line, "Improper indenting for \"$_\"\n(should be \"#$indent$2\" because it is inside of " . <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7890	7989	
==>($file, $line, "Improper indenting for \"$_\"\n(should be \"#$indent$2\" because it is inside of " . <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	1039	1177	
==>\n";
    my $i = 1;
    foreach (@pmcs) {
        print OUT "    enum_class_$_,\t/*  $i */ \n";
        $i++;
    }
    print OUT <<"END_H" <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	12261	12373	
==>| COPYRIGHT | LICENSE | NOTES? | FUNCTIONS? | METHODS?
             | CAVEATS? | BUGS? | SEE\ ALSO | SWITCHES | E <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126574	126704	
==>\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127709	127839	
==>\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128844	128974	
==>\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661660	661929	
==>"TYPE" => "inline",
                  "CODE" => 739,
                  "ARGS" => [
                              "i",
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 339 \"src/ops/pmc <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	5929	6143	
==>Y DEFINED!";
                }

                $self->version($1);
                $_ = '';
            }
            elsif (m/^\s*VERSION\s*=\s*PARROT_VERSION\s*;\s*$/)
            {
                if (exists $se <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	10249	10336	
==>error("MANIFEST", $line, "$_: case-insensitive collision with " . $files_in_dir_nocase{$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754746	755100	
==>:base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 851,
                  "ARGS" => [
                              "p",
                              "n"
                            ], <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	1794	1890	
==>rns the value of C<@args> from the inheriting
classes namespace.

This method also works as an ob <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77357	77450	
==>cerulename = $_[2]||$lastrulename;
	if ($tracerulename) { $lastrulename = $tracerulename }

	$ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28078	28185	
==>nt::expected
				   = $Parse::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = ($lastse <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30152	30259	
==>nt::expected
				   = $Parse::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = ($lastse <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32353	32460	
==>nt::expected
				   = $Parse::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = ($lastse <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165213	165510	
==>LAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 199,
                  "ARG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822470	822741	
==>t(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823538	823809	
==>t(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	491207	491416	
==>PE" => "inline",
                  "CODE" => 563,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 539 \"src/ops/math.ops\"\n  {{ <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	11209	11326	
==>t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = (short)GET_NCI_I($reg_num);";
        r <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	373	473	
==>PTION

Call 'Parrot bc' and 'POSIX bc'.

=head1 METHODS

=head2 new

A kind of factory, that finds th <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	20554	20675	
==>my $thing;
          foreach my $attrname ('section', 'to') {        
            if(defined($thing = $treelet->[$i][1]{$a <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	42040	42157	
==>my $thing;
        foreach my $attrname ('section', 'to') {        
          if(defined($thing = $treelet->[$i][1]{$a <==
3	/Users/nnunley/parrot/config/auto/snprintf.pm	50	147	
==>$Id: /parrot/config/auto/snprintf.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

confi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353712	353902	
==>ps(interpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354457	354647	
==>ps(interpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355224	355414	
==>ps(interpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5778	5894	
==>= %{ $class->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There should be at most a single grou <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5989	6105	
==>= %{ $class->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There should be at most a single grou <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17321	17425	
==>=foo$
print t$
t=0
do
	print "This is right"
	exit do
	print "This is wrong"
	t=t+1
loop until t>1

' Fun <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	4044	4148	
==>$desc;
    if($text =~ /^\#/) { # perl file (or sh)
	my($comment) = $text =~ /^(\#[^\n]*\n( *\n)?(\#[^\n] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561915	562013	
==>}) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562999	563097	
==>}) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", {{ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	12381	12493	
==>: '{';
	my $pre        = defined $_[2] ? $_[2] : '\s*';
	my $ldel_outer = defined $_[3] ? $_[3] : $ldel_inner;
	m <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2590	2695	
==>lf->right;

  if (defined $cond) {
    $handler->start_element({ Name => 'cond', Attributes => { kind => $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3264	3369	
==>lf->right;

  if (defined $cond) {
    $handler->start_element({ Name => 'cond', Attributes => { kind => $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3354	3459	
==>lf->right;

  if (defined $cond) {
    $handler->start_element({ Name => 'cond', Attributes => { kind => $ <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	290	386	
==>rc/pmc/foo.pmc ...

Create F<vtable.dump>:

    % perl tools/build/pmc2c.pl --vtable

Print a cla <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945413	945497	
==>c/ops/string.ops\"\n  {{\@1}} = string_copy(interpreter, Parrot_charset_name(interpre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946223	946307	
==>c/ops/string.ops\"\n  {{\@1}} = string_copy(interpreter, Parrot_charset_name(interpre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314917	315158	
==>\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u1", <==
3	/Users/nnunley/parrot/config/gen/config_pm.pm	1958	2130	
==>["\\])/\\$1/g;
                    $v =~ s/\n/\\n/g;
                    print OUT qq(\tset P0["$k"], "$v"\n);
                } else {
                    print OUT qq(\tse <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	11400	11517	
==>Iterator, op1

loop:
    unless iter goto done
    $P1 = shift iter
    unshift result, $P1
    goto loop
done:
    .r <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8519	8625	
==>kip_close_paren) {
        while (1) {
          my $arg_type  = Jako::Construct::Type->new($self->require_ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	269	371	
==>argely a copy of Parrot::Test::Python. Abstraction needed.

=cut

sub new {
    return bless {};
}

sub <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	307	409	
==>argely a copy of Parrot::Test::Python. Abstraction needed.

=cut

sub new {
    return bless {};
}

sub <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607616	607933	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getattribute" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608520	608837	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getattribute" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609427	609744	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getattribute" <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	13829	13956	
==>io.h
sqrt        math.h
sqrtf       math.h
sqrtl       math.h
srand       stdlib.h
sscanf      stdio.h
stderr      stdio.h
stdin <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	7925	8031	
==>accept_targets('force_resolve', @_) }
 # forces them to be processed, even when there's no ":".

sub _accep <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13814	13915	
==>l the appropriate labels can be generated for
      # the loop control statements to function properly <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	5550	5682	
==>T
$name - $expl
DESC

END

        $counter++;
    }

    return $string;
}

##
## run_tests(@globs)
##
## Run the tests.
##
sub run_ <==
3	/Users/nnunley/parrot/tools/dev/as2c.pl	439	560	
==>.s
 * by '$0 $s'
 */

EOT
}
sub create_s {
    my $cmd = shift;
    my $r = system($cmd);
    if ($r) {
	die "$cmd failed: <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	21732	21840	
==>e 32
		 'range', 5,
sub
#line 157 "lib/Regex/Grammar.y"
{ return { min => $_[2], max => -1 }; }
	],
	[#Rule 3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789816	790071	
==>get_string_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790726	790981	
==>get_string_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	633	744	
==>VERSAL::isa($token, 'Jako::Token');

  return bless {
    BLOCK  => $block,

    TOKEN  => $token,
    VALUE  => <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	13607	13744	
==>) = @_;
    my @opcodes1 = ();
    my @opcodes2 = ();
    my @opcodes3 = ();
    while ( my $var = shift @{$vars} ) {
        push @o <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	3874	3988	
==>bname
    .param string rx_input

    .local pmc rx_match
    .local pmc rx_stack
    rx_stack = new IntList
    rx <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	14432	14528	
==>ast;
		}

		if (_match_variable($textref,'\s*') ||
		    _match_quotelike($textref,'\s*',$patvali <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576563	576819	
==>}} = VTABLE_subclass(interpreter, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577575	577831	
==>}} = VTABLE_subclass(interpreter, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	524037	524361	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sqrt",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5566	5676	
==>bel);
    return @ops;
}

sub output_initgroup {
    my ($self, $group) = @_;
    return ("new <rx_ptmp>, \"Mat <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117833	117993	
==>"
                            ],
                  "BODY" => "#line 226 \"src/ops/bit.ops\"\n  {{\@1}} >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118572	118732	
==>"
                            ],
                  "BODY" => "#line 226 \"src/ops/bit.ops\"\n  {{\@1}} >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	444	553	
==>left$ len loc lof log lpos ltrim$
		    mid$ mkd$ mkdmbf$ mki$ mkl$ mks$ mksmbf$
		    peek pen play pmap poin <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5158	5288	
==>ries is especially important on
        # some platforms
        if ($^O eq 'hpux' or $^O eq 'cygwin') {
            chmod 0755, "$ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5369	5499	
==>ries is especially important on
        # some platforms
        if ($^O eq 'hpux' or $^O eq 'cygwin') {
            chmod 0755, "$ <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4374	4498	
==>ries is especially important on
			# some platforms
	        if ($^O eq 'hpux' or $^O eq 'cygwin') {
		        chmod 0755, "$ <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	4342	4473	
==>eturns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto(1, $desc, :$todo);
    }
    else {
        Test::p <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	32208	32335	
==>1 and print "Ogling L node $treelet->[$i]\n";
        
      # bitch if it's empty
      if(  @{$treelet->[$i]} == 2
       or ( <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	3834	3926	
==>ng comparison of output
with the unexpected result is false.

=item C<pir_2_pasm_is($code, $e <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	417	530	
==>ession::Value);

sub new
{
  my $class = shift;
  my ($block, $token) = @_;

  return bless {
    BLOCK  => $block <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64750	64841	
==>E_FLAG);\n  new_interp->code = interpreter->code;\n  runops(new_interp, REL_PC + {{\@2}});\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65701	65792	
==>E_FLAG);\n  new_interp->code = interpreter->code;\n  runops(new_interp, REL_PC + {{\@2}});\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	17313	17431	
==>,
                  "BODY" => "#line 300 \"src/ops/core.ops\"\n  if ({{\@1}} != 0.0) {\n    {{+={{\@2}}}};\n  }\n  {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060088	1060186	
==>ception(1, \"Tried to get null name\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_name(inter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060993	1061091	
==>ception(1, \"Tried to get null name\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_name(inter <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	13659	13855	
==>size_t i;
        for (i = 0; i < OP_HASH_SIZE; i++)
            for (p = hop[i]; p; ) {
                next = p->next;
                free(p);
                p = next;
        }
        free(ho <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	50180	50322	
==>6,
sub
#line 207 "Lua\lua51.yp"
{
            [ @{ $_[1] }, [ $_[3], $_[6] ] ];
        }
	],
	[#Rule 35
		 '_elseif_star', 0,
sub
#l <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	3605	3698	
==>ls/dev/gen_charset_tables.pl'),
            $self->new_item('', 'tools/dev/rebuild_miniparrot. <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	2394	2522	
==>unctions {
    my( $package ) = @_;

    for my $func ( keys %$test_map ) {
        no strict 'refs';

        *{ $package . '::' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7620	7713	
==>e_of_ident(NAME)

This is a shortcut method that uses find_symbol() to locate a matching
symbo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8915	9008	
==>e_of_ident(NAME)

This is a shortcut method that uses find_symbol() to locate a matching
symbo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804903	805196	
==>line",
                  "CODE" => 908,
                  "ARGS" => [
                              "p",
                              "kc",
                              "p"
                            ],
                  "BODY" => "#line 472 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_pmc <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	1641	1734	
==>O

=over 4

=item F<tools/build/ops2pm.pl>

=item C<Parrot::OpsFile>

=item C<Parrot::Op>

=it <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	7334	7425	
==>else {
	my $n = $ParrotOps::optable{$opname} = ++$ParrotOps::max_op_num;
	warn "$opname\t$n\ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	1355	1448	
==>e = Parrot::Test::run_command($pycmd, STDOUT => $py_out_f);
    my $py_file = Parrot::Test::sl <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3016	3157	
==>e::VERSION doesn't implement UTF16 yet."
        );
        splice @_;
        push @_, undef;
        next;

        # TODO: implement someho <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3414	3555	
==>e::VERSION doesn't implement UTF16 yet."
        );
        splice @_;
        push @_, undef;
        next;

        # TODO: implement someho <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	12211	12305	
==>e:
 *
 * interp->op_lib->op_code("set", 0)
 * interp->op_lib->op_code("set_i_i", 1)
 *
 * retur <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31173	31271	
==>=item C<implements($method)>

Always true for vtables.

=cut

sub implements
{
    my ($self, $meth <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39793	39891	
==>=item C<implements($method)>

Always true for vtables.

=cut

sub implements
{
    my ($self, $meth <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544481	544624	
==>f (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n gcd = b<<p;\n saved_var1 /= gcd;\n {{\@1} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545817	545960	
==>f (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n gcd = b<<p;\n saved_var1 /= gcd;\n {{\@1} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547153	547296	
==>f (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n gcd = b<<p;\n saved_var1 /= gcd;\n {{\@1} <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	16374	16480	
==>ll (typed eh)\n";
    my $pre_load = $srm->pre_load(0);
	$pir .= "### pre_load (typed eh)\n";
	$pir .= sub_ <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	7001	7136	
==>]$/  ) ? 1 : 0;
		my $undef    = ($type =~ /^[Uu]$/  ) ? 1 : 0;
		my $zeroed   = 0;
		my $const    = 0;
		my $local    = $type eq lc $ty <==
3	/Users/nnunley/parrot/config/init/hints/cygwin.pm	1494	1600	
==>et_[ap]ton/) {
        $define = join(',', 'inet_aton', $define);
    }
    $conf->options->set(define => $ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	2028	2120	
==>rrot::Pmc2c> subclass for the PMC
(C<< $self->{class} >>). C<$self> is the hash reference pas <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9985	10083	
==>e first to last in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_cal <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7499	7597	
==>e first to last in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_cal <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6463	6561	
==>e first to last in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_cal <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382658	383077	
==>,
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 447,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic"
                            ], <==
3	/Users/nnunley/parrot/config/init/hints/solaris.pm	3238	3381	
==>= @_;

        if ($gccversion) {

            # Don't know how to do this for gcc.
        } else {
            my $linkflags = $conf->data->ge <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5108	5232	
==>$value = $arg0->{value};
          if (exists $special->{$value}) {
            _num_arg($_, 1);
            $special->{$valu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936305	936537	
==>itlecase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937082	937314	
==>itlecase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	136	235	
==>xt::Balanced;

use Exporter;
use SelfLoader;
use vars qw { $VERSION @ISA %EXPORT_TAGS };

$VERSION = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359418	359619	
==>er, PIO_STDERR(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360166	360367	
==>er, PIO_STDERR(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360936	361137	
==>er, PIO_STDERR(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	1675	1781	
==>le_descriptions.pl'),
            $self->new_item('', 'tools/dev/lib_deps.pl'),
            $self->new_item <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	6503	6609	
==>o)\]:$/ || m/\((.+\.o)\):$/) {
		$o = $1;
	    } elsif (/ ([A-Za-z]) \.?(\w+)$/) {
		# Especially text symb <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	8762	8866	
==>rr_Test}++;

    # In case $name is a string overloaded object, force it to stringify.
    $self->_unover <==
3	/Users/nnunley/parrot/config/inter/make.pm	120	216	
==>ke  $

=head1 NAME

config/auto/make.pm - make utility

=head1 DESCRIPTION

Determines whether C< <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621748	621840	
==>& SUB_FLAG_TAILCALL) {\n\t    PObj_get_FLAGS(ccont) &= ~SUB_FLAG_TAILCALL;\n\t    --ctx->recu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29588	29672	
==>& SUB_FLAG_TAILCALL) {\n\tPObj_get_FLAGS(ccont) &= ~SUB_FLAG_TAILCALL;\n\t--ctx->recu <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	9667	9794	
==>ub make_arg {
    #
    # we have to fetch all to temps, so that the call code
    # can operate in sequence
    #
    my ($argt <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1700	1824	
==>. . . . . . . . . . . . . . . . . . .

sub _xml_escape {
  foreach my $x (@_) {
    # Escape things very cautiously:
    $x = <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	11280	11383	
==>:multi_match::needparen { 1 }
sub Regex::Ops::Tree::multi_match::render {
    my $op = shift;
    my ($m <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	8698	8802	
==>=".0";
		}

		if ($this->[1] eq "BARE") {
			$this->[0]=changename($this->[0]);
		}

		push(@expr, $foo[$ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22180	22284	
==>$_[4],
	}, $class;
}

sub code($$$$)
{
	my ($self, $namespace, $rule) = @_;
	
'
		' . ($self->{"lookahead <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	12133	12246	
==>ed) will already
  #  have been acted one.
  my($self, $para) = @_;
  my @x = @$para;
  my $content = join ' ', sp <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1110	1205	
==>->kind eq 'var') and ($self->ident->scope eq 'global')) {
    my $pmc_type = $self->ident->type- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1104	1199	
==>->kind eq 'var') and ($self->ident->scope eq 'global')) {
    my $pmc_type = $self->ident->type- <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6120	6226	
==>herefore not formatted.

=cut

sub pod_as_html
{
	my $self = shift;
	
	if ( $self->contains_pod )
	{
		my $ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3237	3326	
==>> Parrot::Test::PGE::_generate_glob_for($target, $pattern);

    goto &Parrot::Test::pir_o <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3662	3751	
==>> Parrot::Test::PGE::_generate_glob_for($target, $pattern);

    goto &Parrot::Test::pir_o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875641	875972	
==>AGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 993,
                  "AR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1006845	1007074	
==>",
                              "sc",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007985	1008214	
==>",
                              "sc",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727510	727611	
==>BODY" => "#line 50 \"src/ops/set.ops\"\n   const INTVAL temp = {{\@1}};\n   {{\@1}} = {{\@2}};\n   {{\ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19492	19586	
==>push @{$code{$seg}->{code}}, "AFTERDO_$do->{jump}:\n";
}

sub parse_type {
		my(@types);
		feed <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	13300	13393	
==>er{I<name>}

Maps from names (as in C<EE<lt>I<name>E<gt>>) like "eacute" or "sol"
to the Unico <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7365	7496	
==>the previous paragraph as done.
                
        push @$paras, $new; # the new incipient paragraph
        DEBUG > 1 and pri <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	936	1051	
==>y $self = shift;

    # We have to do this because it has the side effect of setting
    # content_seen.
    $self-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146781	147078	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 179,
                  "A <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2365	2515	
==>name,
                       args => $args || [],
                       %opts }, $class;

    return $self->init();
}

# Default initialization, to be <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	2095	2188	
==>_destination)",
#      B => "Buffer *final_destination = new_buffer_header(interpreter);\nPObj <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	4364	4478	
==>ng '&end_gen' in $f\n";
        }
        close(F);
    }
    $conf->data->set(TEMP_gen_pasm_includes => join("\t\\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2367	2464	
==>or the run
core function declaration. C<$base> is the name of the main ops file minus
the .ops ext <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	311135	311222	
==>preter->pdb->state & PDB_BREAK)) {\n#if 1\n\tPIO_eprintf(interpreter, \"debug_print is d <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7266	7385	
==>q 'Data') {
        my $next = $self->get_token;
        next unless defined $next;
        unless( $next->type eq 'text <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9511	9630	
==>q 'Data') {
        my $next = $self->get_token;
        next unless defined $next;
        unless( $next->type eq 'text <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	13315	13427	
==>path);
    
    # There's no point in linking to the file you are already in.
    return if $file == $self->{DOCS <==
3	/Users/nnunley/parrot/config/inter/make.pm	1331	1471	
==>ake', 'mingw32-make', 'nmake', 'make'],
            $verbose);

        unless ($prog) {

            # fall back to default
            $sel <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11138	11235	
==>s);
	feedme();
	my($leftres, $lefttype, @left)=EXPRESSION({lhs => 1});
	feedme();
	die "Expected ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70913	71165	
==>ib(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71682	71934	
==>ib(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	2119	2219	
==>his loop tries to identify instructions that may be the target
    # of control flow changing opcodes <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	2340	2447	
==>L') {
	    push @equivs, $stmt;
	} else {
	    if (@equivs) {
		my $megalabel = $self->combineLabels(@equivs <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5777	5880	
==>}

    return $self;
}

=back

=head1 CREDITS

The L</runsteps()> method is largely based on code writte <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28353	28465	
==>des;
}

sub BuildForNum {
    my ( $parser, $var, $e_start, $e_limit, $e_step, $block ) = @_;
    my @opcode <==
3	/Users/nnunley/parrot/lib/Test/More.pm	17649	17772	
==>ter based modules.
        eval <<USE;
package $pack;
use $module $imports[0];
USE
    }
    else {
        eval <<USE;
pack <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019799	1019893	
==>\n  const time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_localtime_r(&t, &tm) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020730	1020824	
==>\n  const time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_localtime_r(&t, &tm) <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	2428	2533	
==>eaders, which may well be tuned to a non-strict
        # environment -- especially since we are using per <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1471	1571	
==>tem C<args(@args)>

=item C<args()>

Sets/gets the transform's arguments.

=cut

sub args
{
    my $s <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1080	1180	
==>tem C<args(@args)>

=item C<args()>

Sets/gets the transform's arguments.

=cut

sub args
{
    my $s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060520	1060876	
==>AGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1184,
                  "ARGS" => [
                              "p",
                              "sc"
                            ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958754	958997	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959555	959798	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	32111	32238	
==>= @_;
    my $tos = pop @stack;  # object
    my $attr = temp('P');
    my $obj = promote $tos;
    my $o;
    if ($builtins{$ob <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598573	598898	
==>ect_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 678,
                  "ARGS" => [
                              "p",
                              "sc" <==
3	/Users/nnunley/parrot/lib/Test/More.pm	21181	21306	
==>o know \$how_many tests are in the block"
          unless $Test->has_plan eq 'no_plan';
        $how_many = 1;
    }

    for <==
3	/Users/nnunley/parrot/lib/Test/More.pm	23611	23736	
==>o know \$how_many tests are in the block"
          unless $Test->has_plan eq 'no_plan';
        $how_many = 1;
    }

    for <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3267	3398	
==>t;

        @_
    and ${$$self{VALUE}}=$_[0];
    ${$$self{VALUE}};
}

sub YYExpect {
    my($self)=shift;

    keys %{$s <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3105	3226	
==>t;

        @_
    and ${$$self{VALUE}}=$_[0];
    ${$$self{VALUE}};
}

sub YYExpect {
    my($self)=shift;

    keys %{$s <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11798	12017	
==>rser,
                        'arg1'   => $last_key->[0],
                        'arg2'   => undef,
                        'result' => $result,
                    );
                    return [ $defn, \@opcodes, <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9998	10197	
==>rser,
                    'arg1'   => $last_key->[0],
                    'arg2'   => undef,
                    'result' => $result,
                );
                return [ $defn, \@opcodes, <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8853	9012	
==>rser,
            'arg1'   => $last_key->[0],
            'arg2'   => undef,
            'result' => $result,
        );
        return [ $defn, \@opcodes, <==
3	/Users/nnunley/parrot/tools/build/vtable_extend.pl	566	673	
==>RD

/* Need size_t  */
#include <stddef.h>

EOF

print OUT $protos;

print OUT <<'EOF';

#endif
EOF

close O <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571103	571192	
==>class = Parrot_class_lookup_p(interpreter, {{\@3}});\n    {{\@1}} = Parrot_object_isa(inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572058	572147	
==>class = Parrot_class_lookup_p(interpreter, {{\@3}});\n    {{\@1}} = Parrot_object_isa(inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300216	300449	
==>ARGS" => [
                              "i",
                              "nc",
                              "n"
                            ],
                  "BODY" => "#line 975 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} != {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946710	947033	
==>"o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1065,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 526 \"src <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017870	1017986	
==>,
                  "BODY" => "#line 182 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018795	1018911	
==>,
                  "BODY" => "#line 182 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	580	778	
==>talled to run this. Use the CPAN
shell:

    perl -MCPAN -e shell 
    cpan> install C::Scan 
    ...

=cut

################################################################################

# the fo <==
3	/Users/nnunley/parrot/lib/File/Which.pm	6425	6517	
==>slight modifications
by Stas Bekman, then extracted to create C<File::Which>.

Version 0.04 h <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	7865	8033	
==>_;
    } else {
        map {
            my $str;
            if ($_->{label}) {
                $str .= "**" if $_->{label}{reachable};
                $str .= "$_->{l <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85533	85624	
==>ter,\n      interpreter->iglobals, IGLOBALS_COMPREG_HASH);\n  {{\@1}} = VTABLE_get_pmc_keyed <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86440	86531	
==>ter,\n      interpreter->iglobals, IGLOBALS_COMPREG_HASH);\n  {{\@1}} = VTABLE_get_pmc_keyed <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	235	346	
==>$count) = @_;
  my $temp   = {};

  die "EOF reached" if $count >= $#$tokens;

  if ($tokens->[$count] eq '(') { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789808	789915	
==>vtable->get_string_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790718	790825	
==>vtable->get_string_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1589	1712	
==>to default
        $self->set_result('no');
        return $self;
    }

    if ($conf->options->get('ask')) {
        $prog <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1603	1726	
==>to default
        $self->set_result('no');
        return $self;
    }

    if ($conf->options->get('ask')) {
        $prog <==
3	/Users/nnunley/parrot/tools/dev/manicheck.pl	393	484	
==>tools/dev/manicheck.pl

=head1 DESCRIPTION

Check the contents of the F<MANIFEST> file again <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11388	11488	
==>Construct::Expression::Value::Identifier->new($block, $token);
      my $op    = substr($self->forth- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11935	12035	
==>Construct::Expression::Value::Identifier->new($block, $token);
      my $op    = substr($self->forth- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12478	12578	
==>Construct::Expression::Value::Identifier->new($block, $token);
      my $op    = substr($self->forth- <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	39144	39269	
==>t == 1 and $ell_content[0] eq '"'
         )
      ) {
        $section_name = [splice @ell_content];
        $section_name->[ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322327	322415	
==>4 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (UINTVAL)((Parrot_UInt4)({{\@2}}));\n  {{+=3}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323099	323187	
==>4 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (UINTVAL)((Parrot_UInt4)({{\@2}}));\n  {{+=3}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108335	108741	
==>"NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 135,
                  "ARGS" => [
                              "i",
                              " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	106628	106935	
==>"NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 13 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107481	107788	
==>"NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 13 <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	8491	8614	
==>dentally
    # store, so we turn it into a boolean.
    $test = $test ? 1 : 0;

    unless( $self->{Have_Plan} ) {
        r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436488	436575	
==>4 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437503	437590	
==>4 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, {{ <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	13707	13851	
==>Float) # reshape
    .param pmc op1
    .param pmc op2

    # Convert the scalar into a vector and reshape it.
    $P1 = new 'APLVector'
    push <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1371	1502	
==>_code and not $pass;
    }

    unless($ENV{POSTMORTEM}) {
        unlink $lang_f;
        unlink $out_f;
    }

    return $pass;
} <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1412	1543	
==>_code and not $pass;
    }

    unless($ENV{POSTMORTEM}) {
        unlink $lang_f;
        unlink $out_f;
    }

    return $pass;
} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028204	1028404	
==>erpreter, (FLOATVAL) {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029055	1029255	
==>erpreter, (FLOATVAL) {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	42347	42440	
==>}

(although C<extract_tagged> is not currently implemented that way, in order
to preserve pre <==
3	/Users/nnunley/parrot/lib/File/Which.pm	2115	2232	
==>file($_, $exec) } @path) {
       for my $ext (@path_ext) {
            my $file = $base.$ext;
# print STDERR "$file\n <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15223	15322	
==>urn =~ /^P/;
  $self->_add_inst ('', 'set', [$return,$return.'[1]']);

  return $return;
}

sub _op_ <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	5743	5835	
==>rrot/oplib.h"

$sym_export extern op_lib_t *$init_func(long init);

END_C
my $cg_func = $tran <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	3893	4001	
==>*PConfig'])->Dump();
        };
    }
}

=item C<clean()>

Deletes keys matching C</^TEMP_/>.  Keys using thi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4035	4127	
==>self and $self->isa("Jako::Construct::Block");
  confess "No symbol name!"  unless defined $n <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6203	6295	
==>self and $self->isa("Jako::Construct::Block");
  confess "No symbol name!"  unless defined $n <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11130	11222	
==>re_call_NO_RETURN_${CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1} <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8316	8408	
==>re_call_NO_RETURN_${CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1} <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5978	6070	
==>re_call_NO_RETURN_${CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1} <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	22079	22213	
==>fail( defined $extension, "no extension recognized for $example_f" );
            }
        }
    }

    my %c_test_map = (
         c_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349124	349212	
==>ath = string_to_cstring(interpreter, {{\@2}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350126	350214	
==>ath = string_to_cstring(interpreter, {{\@2}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30756	30876	
==>assname");
    else
        Parrot_${parentname}_$meth(interpreter, pmc, type);
EOC
    }
    else {
        $cout .= <<E <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	10827	10931	
==>TODO
    # scan src/call_list.txt if the generated signature is available
    # TODO report errors for "? <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	273	366	
==>se strict;
eval "use warnings";

package Jako::Construct::Statement;

use base qw(Jako::Constr <==
3	/Users/nnunley/parrot/tools/dev/pbc_header.pl	1648	1752	
==>lds) = qw( wordsize byteorder major minor
	    intvalsize floattype );
	print "$f\n";
	for my $i (0..5) { <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	7516	7616	
==>= shift || return;
    
    return File::Spec->catfile($self->path, $name);
}

=item C<directory_with <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20387	20477	
==>write to me.

=head1 SEE ALSO

L<Pod::Simple>, L<RTF::Writer>, L<RTF::Cookbook>, L<RTF::Doc <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	18517	18621	
==>ip($why);

Like skip(), only it will declare the test as failing and TODO.  Similar
to

    print "not ok <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3400	3501	
==>]?\d+$/) {
    $return = $self->_save_1 ('I');
    $self->_add_inst ('', 'set', [$return,$value]);
  } <==
3	/Users/nnunley/parrot/config/auto/headers.pm	2513	2699	
==>=~ /^$header OK/) {
                $pass = 1;
                push @found_headers, $header;
            }
            cc_clean();
            last if $pass;
        }

        my $flag = <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	634	749	
==>rn '' unless @_;
  my @out;
  foreach my $in (@_) {
    push @out, '"' . $in . '"';
    $out[-1] =~ s/([^- \:\:\.\,\ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	18782	18900	
==>ts fast-tracked.\n";
     # Very common case!
  }
  
  splice @$treelet, 0, 2;  # lop the top off

  return $treelet;
} <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	2207	2313	
==>tools/build/ops2c.pl'),
            $self->new_item('', 'tools/build/ops2pm.pl'),
            $self->new_it <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	13060	13166	
==>n _succeed($wantarray, $textref,
			@match[2..3,4..5,0..1]	# MATCH, REMAINDER, PREFIX
		       );

}

sub _ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4718	4828	
==>ift(@pmcs) =~ /--destination=(.*)/
      or die "copy command requires destination";
    my $dest = $1;

    my <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4822	4932	
==>ift(@pmcs) =~ /--destination=(.*)/
      or die "copy command requires destination";
    my $dest = $1;

    my <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	1611	1716	
==>cppflags' => $ccflags;
    $c->set('includeDirs' => \@incdirs);
    $/="\n";  # i don't know why, but this <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	2080	2177	
==>ecent post on p6i, if called with a single argument of
C<--files>, return a list of files to proce <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2708	2818	
==>hift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHECK}}='A <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2586	2687	
==>hift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHECK}}='A <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	52688	52788	
==>f the stack
  my $curr_open = $_[0]{'curr_open'};

  return '[empty]' unless @$curr_open;
  return jo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020945	1021234	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodetime",
                  "FLAGS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021786	1022075	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodetime",
                  "FLAGS" => <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	15654	15794	
==>> 22,
			"+" => 24,
			'CODE' => 6,
			"(" => 10,
			"|" => 26,
			"*" => 27,
			"[" => 14,
			")" => 56,
			"." => 15
		},
		GOTOS => {
			' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965375	965857	
==>[
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1086,
                  "ARGS" => [
                              "i",
                              "ic",
                              "s",
                              "i"
                            ],
                  "BODY <==
3	/Users/nnunley/parrot/config/auto/readline.pm	1865	1978	
==>ADLINE => $has_readline,
	);
    }
    unless ($has_readline) {

        # The Config::Data settings might have ch <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	3925	4030	
==>ey are almost
    # always part of function and arguments, or constants listings
    #and should stand ou <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4967	5081	
==>lf->get_token) {
  
    if( ($type = $token->type) eq 'text' ) {
      if( $self->{'rtfverbatim'} ) {
        DEBUG <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1624	1719	
==>NS} = concat ${STACK$register_num}
${INS} = concat " = pop s\n"
PIR
		$pir =~ s/\$register_num/$ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3334	3429	
==>NS} = concat ${STACK$register_num}
${INS} = concat " = pop s\n"
PIR
		$pir =~ s/\$register_num/$ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12260	12377	
==>UMBER' => 36
		},
		GOTOS => {
			'exp' => 37,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1679	1781	
==>".*?[^\\])\$/; # Double-quote with an unescaped '$'.

    $string = substr($string, 1, -1); # Without t <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	8548	8643	
==>_checks($t, $guarantee, $follow_min);

    } elsif ($type eq 'seq' && $t->{add_check_visited}) { <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3021	3138	
==>(%ld)",
    'n'  => "NREG(%ld)",
    'p'  => "PREG(%ld)",
    's'  => "SREG(%ld)",
    'k'  => "PREG(%ld)",
    'ki' = <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2841	2958	
==>(%ld)",
    'n'  => "NREG(%ld)",
    'p'  => "PREG(%ld)",
    's'  => "SREG(%ld)",
    'k'  => "PREG(%ld)",
    'ki' = <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1939	2051	
==>(%ld)",
  'n'   => "NREG(%ld)",
  'p'   => "PREG(%ld)",
  's'   => "SREG(%ld)",
  'k'   => "PREG(%ld)",
  'ki'  = <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38855	38965	
==>lass;
}

sub code($$$$)
{
	my ($self, $namespace, $rule) = @_;
	
	'
		$return = $item[-1];
	';
}

package Parse <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	5949	6053	
==>a=0
do while a<5
	a=a+1
loop
print a
a=0
do until a>4
	a=a+1
loop
print a
a=0
do
	a=a+1
loop while a<5
pr <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16494	16598	
==>a=0
do while a<5
	a=a+1
loop
print a
a=0
do until a>4
	a=a+1
loop
print a
a=0
do
	a=a+1
loop while a<5
pr <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	34021	34165	
==>->[$i][1]{'to'}" as a complex L<URL> link.\n};
        }

        next; # and move on
      }
      
      
      # Catch some very simple and/or <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121971	122074	
==>n   * lvalue casts are evil, but this one isn't evil enough to kill.\n   * it's just casting a signed in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122883	122986	
==>n   * lvalue casts are evil, but this one isn't evil enough to kill.\n   * it's just casting a signed in <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4026	4126	
==>ibs') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4130	4230	
==>ibs') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	6577	6673	
==>2], "lt") },
	'>' => sub { &{$opsubs{"="}}(@_[0..2], "gt") });

sub convert_to_rpn {
	my(@expr)=@ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	2117	2245	
==>als} };
        return ();
    } else {
        my $rxlocals = ($op->{rxlocals} ||= []);
        return (aop(comment => [ "save r <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	481	588	
==>REDO', LAST => 'LAST' },
  'if'       => { PREFIX => "_I", NEXT => 'TEST', REDO => 'THEN', LAST => 'ELSE' }, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	502	609	
==>REDO', LAST => 'LAST' },
  'if'       => { PREFIX => "_I", NEXT => 'TEST', REDO => 'THEN', LAST => 'ELSE' }, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733680	733822	
==>s/set.ops\"\n  {{\@1}} = string_to_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734444	734586	
==>s/set.ops\"\n  {{\@1}} = string_to_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	30634	30727	
==>mited($text, "'");

C<extract_delimited> takes up to four scalars (the input text, the
delimit <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	4776	4895	
==>\$class;\n  }\n";

    # Create accessor methods.

    my( $pre, $pst, $sel );
    $cnt = 0;
    foreach $name (@methods <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653529	653628	
==>esume, METH_NOT_FOUND,\n            \"Method '%s' not found\", string_to_cstring(interpreter, {{\@3} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654690	654789	
==>esume, METH_NOT_FOUND,\n            \"Method '%s' not found\", string_to_cstring(interpreter, {{\@3} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1627	1739	
==>lf->value;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->ri <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3247	3359	
==>lf->value;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->ri <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11511	11693	
==>th == 0) {
                    $state = 0;
                }
            }
            $tokens[-1] .= $c;
        }
    }

#    for (0..$#tokens) { print STDERR "  $tokens[$_] $types[ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	5421	5531	
==>$self->{'source_scalar_ref'} }) || 0),
        " characters left to parse.\n";

      DEBUG > 3 and print " Fet <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	8718	8819	
==>name can be?
    delete $this->{'accept_targets'}{$t};
    DEBUG > 2 and print "OK, won't accept \"$t\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667560	667783	
==>}->vtable->push_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668334	668557	
==>}->vtable->push_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34492	34598	
==>turn $self->{argcode} }"
				   : ',undef')
		. ')))
		{
			'.($self->{"lookahead"} ? '$text = $_savetext;' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	7831	7965	
==>@R_ops,
                        $self->dbprint("setting end[$group] := %<rx_pos>-1\n"),
                        aop('setend', [ $group, <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	16552	16675	
==>eption handler");
	$pir .= "### end pre_load (typed eh)\n";
    $pir .= <<'PIRCODE';
    loadreg = "$P1000001"
PIRCODE
    m <==
3	/Users/nnunley/parrot/lib/Test/More.pm	29059	29176	
==>ered
    # circular.
    local %Refs_Seen = %Refs_Seen;

    {
        # Quiet uninitialized value warnings when compa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255572	255894	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "xor",
                  "FLAGS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256479	256801	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "xor",
                  "FLAGS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257387	257709	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "xor",
                  "FLAGS" <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2682	2805	
==>elf = shift;
    my $name = shift || return;
    
    $name .= '.c' unless $name =~ /\.[Cc]$/o;
    
    foreach my $dir ($s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054352	1054443	
==>exception(1, \"Tried to get from null namespace.\");\n    if (!{{\@3}})\n\tinternal_exceptio <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055479	1055570	
==>exception(1, \"Tried to get from null namespace.\");\n    if (!{{\@3}})\n\tinternal_exceptio <==
3	/Users/nnunley/parrot/config/gen/cpu.pm	495	602	
==>stuff';

@args = qw(miniparrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1014983	1015079	
==>> "#line 77 \"src/ops/sys.ops\"\n  const char * const tmp = strerror({{\@2}});\n  {{\@1}} = strin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015807	1015903	
==>> "#line 77 \"src/ops/sys.ops\"\n  const char * const tmp = strerror({{\@2}});\n  {{\@1}} = strin <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21851	21964	
==>, $left, $op, $right);

      if ($self->get(1)->is_if or $self->get(1)->is_unless) {
        $cond = $self->forth <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22784	22897	
==>, $left, $op, $right);

      if ($self->get(1)->is_if or $self->get(1)->is_unless) {
        $cond = $self->forth <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24431	24544	
==>, $left, $op, $right);

      if ($self->get(1)->is_if or $self->get(1)->is_unless) {
        $cond = $self->forth <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856645	856812	
==>,
                              "sc"
                            ],
                  "BODY" => "#line 105 \"src/ops/string.ops\"\n  {{\@1}} = string_concat(interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857535	857702	
==>,
                              "sc"
                            ],
                  "BODY" => "#line 105 \"src/ops/string.ops\"\n  {{\@1}} = string_concat(interpreter <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	2155	2262	
==>_make/g;
	
	# Write makefile.
	open $fh, "> Makefile" or die "Unable to open Makefile\n";
	print $fh $ma <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819527	819617	
==>ck.ops\"\n  Stack_Entry_t * const entry =\n    stack_entry(interpreter, CONTEXT(interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820487	820577	
==>ck.ops\"\n  Stack_Entry_t * const entry =\n    stack_entry(interpreter, CONTEXT(interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11171	11384	
==>[
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE|PARROT_JUMP_ENEXT",
                  "NAME <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7074	7190	
==>ine' => $self->{'line_count'}}, $2];
         # Note that in "=head1 foo", the WS is lost.
         # Example: ['=hea <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	17979	18088	
==>ndependent way. Which is to say
       "here there be hacks" */
    UNUSED(pmc_nci);
    signature_len = strin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605890	606000	
==>s/object.ops\"\n    Parrot_add_attribute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606681	606791	
==>s/object.ops\"\n    Parrot_add_attribute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "L <==
3	/Users/nnunley/parrot/config/init/defaults.pm	206	301	
==>PTION

Sets up the configuration system's default values and data structures.

=cut

package ini <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	4934	5029	
==>ete();
}

=item C<gen_manifest_skip>

Query the svn:ignore property and generate the lines for M <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033299	1033391	
==>MC * const lex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n    if (PMC_IS_NULL(lex_pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034397	1034489	
==>MC * const lex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n    if (PMC_IS_NULL(lex_pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256770	257094	
==>"xor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 299,
                  "ARGS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255863	256160	
==>"xor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 29 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	17700	17800	
==>n";
		my($result, $type, @code)=EXPRESSION();
		$false=qq{""} if $type eq "S";
		if ($which eq "while <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1370	1460	
==>Wpacked -Wdisabled-optimization -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_CO <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1415	1505	
==>Wpacked -Wdisabled-optimization -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_CO <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1419	1509	
==>Wpacked -Wdisabled-optimization -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_CO <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8589	8691	
==>ng to do here.
	if ($dest_reg) {
		$pir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6409	6511	
==>ng to do here.
	if ($dest_reg) {
		$pir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64129	64245	
==>subrule match", $aftererror,$line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						subst <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	2153	2273	
==>$I101
    %1 = $I100
END_PIR

    $P0[unicode:"dyadic:\u2260"]  = <<"END_PIR"             # not equal
    $I100 = isne %1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	27512	27616	
==>/core.ops\"\n    opcode_t * const this = CUR_OPCODE;\n    PMC * const signature = {{\@1}};\n    INTVAL ar <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	28364	28468	
==>/core.ops\"\n    opcode_t * const this = CUR_OPCODE;\n    PMC * const signature = {{\@1}};\n    INTVAL ar <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	20089	20222	
==>faulted) {
            my ($func, $left, $right);
            $func = $method->{mmd};
            # dynamic PMCs need the runtime type <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	43753	43853	
==>s behaviour is identical to that of the actual compiler.

C<extract_quotelike> takes two arguments: t <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	305	401	
==>e Jako::Construct::Type::PMC;

use base qw(Jako::Construct::Type);

sub new
{
  my $class = shift <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955909	956130	
==>er, Parrot_encoding_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956721	956942	
==>er, Parrot_encoding_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	60144	60238	
==>to the original string at
which the error was detected (although not necessarily where it occur <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	3649	3748	
==>fh, $subname, $rule, $ctx, $instructions) = @_;
    print $fh join("\n", @$instructions), "\n";
}

s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832123	832205	
==>ONTEXT(interpreter->ctx)->user_stack, &({{\@1}}), STACK_ENTRY_FLOAT, STACK_CLEANUP_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832851	832933	
==>ONTEXT(interpreter->ctx)->user_stack, &({{\@1}}), STACK_ENTRY_FLOAT, STACK_CLEANUP_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2019	2117	
==>->prefix($self->peer->prefix);
  }

  if ($self->prefix) {
    $handler->start_element({ Name => 'l <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2142	2239	
==>->prefix($self->peer->prefix);
  }

  if ($self->prefix) {
    $handler->start_element({ Name => ' <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	1672	1765	
==>)
	foo=1
end function
dim fool$()
fool$(10)="Hello"
a=foo(99, fool$())

' String Arrays, expec <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	328195	328443	
==>,
                  "NAME" => "conv_r4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "C <==
3	/Users/nnunley/parrot/lib/Test/More.pm	18803	18929	
==>ule'.
    Error:  $@
DIAGNOSTIC

    }

    return $ok;
}


sub _is_module_name {
    my $module = shift;

    # Module names s <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	4974	5092	
==>$code .= "  .local int    r_$name \n";
        $code .= "  (r_$name, \$S0) = compiler(register, \$P0) \n";
        $cod <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685093	685512	
==>GDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 769,
                  "ARGS" => [
                              "p",
                              "sc",
                              "p"
                            ],
                  "BOD <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4648	4774	
==>join(" ", @_), "\n";

    return system(@_) == 0;
}

sub modtime {
    my $ago = (-M shift);

    if (defined $ago) {
        r <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	2614	2741	
==>( $tagname eq 'F' )
    {
        $self->process_file_start_token($token);
    }
    elsif ( $tagname eq 'C' )
    {
        $se <==
3	/Users/nnunley/parrot/config/inter/progs.pm	1973	2082	
==>'link'), $conf->options->get('link'));
    $link = prompt("How about your linker?", $link) if $ask;
    $conf- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49717	49965	
==>_RESTART",
                  "NAME" => "profile",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50509	50757	
==>_RESTART",
                  "NAME" => "profile",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	3347	3489	
==>LE

Here's an example of a simple .t file for the fictional Film module.

    use Test::Simple tests => 5;

    use Film;  # What you're testin <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	20890	21019	
==>uage_output_like',
        example_output_isnt => 'language_output_isnt',
                           );

    foreach my $func ( ke <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3767	3885	
==>mcs);

    # Convert X.c -> X.o for all X.c
    compile($_) foreach (@pmcs);

    # lib-GROUP.c
    for my $group (keys <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3871	3989	
==>mcs);

    # Convert X.c -> X.o for all X.c
    compile($_) foreach (@pmcs);

    # lib-GROUP.c
    for my $group (keys <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1864	1976	
==>t definition involves undefined value!")
    unless defined $value;

  #
  # Lookup the identifier:
  #

  my $sy <==
3	/Users/nnunley/parrot/languages/regex/regex.pl	1677	1773	
==>ions{module} = "Regex::CodeGen::Perl5";
} else {
  die "unknown language '$language'\n";
}

my $c <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2899	3006	
==>if $dir->file_exists_with_name($name);
    }
    
    print 'WARNING: ' . __FILE__ . ':' . __LINE__ . ' File <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627214	627311	
==>PMC enum (%d) in new\", (int){{\@2}});\n  }\n\n  /* Why?? If we're creating a continuation, the co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628358	628455	
==>PMC enum (%d) in new\", (int){{\@2}});\n  }\n\n  /* Why?? If we're creating a continuation, the co <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	262	358	
==><Parrot::OpsFile> takes one or more files of op functions and
creates real C code for them.

This <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	3633	3765	
==>f (\d+)(?: source)? lines executed in file (.*)/;
            if ($total_lines) {
                my $covered_lines = int(($percent/1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1612	1735	
==>$self->{ARGS} = [ @_ ];
    }
    else
    {
        return $self->{ARGS};
    }
}

=item C<arg($index)>

Returns the argume <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1221	1344	
==>$self->{ARGS} = [ @_ ];
    }
    else
    {
        return $self->{ARGS};
    }
}

=item C<arg($index)>

Returns the argume <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	4038	4168	
==>= shift || return;

    my @path = split '::', $module;
    
    $module = pop @path;
    $module .= '.pm';
    
    my $dir = $sel <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12921	13030	
==>error?> directive would 
					  normally succeed (with the value zero) if the
					  rule is not 'commited' wh <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	31532	31666	
==>d never happen
          }
          
          # =item-text thingies don't need any assimilation, it seems.

        } elsif($over_typ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7299	7417	
==>elf->get_token;
        next unless defined $next;
        unless( $next->type eq 'text' ) {
          $self->unget_tok <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9544	9662	
==>elf->get_token;
        next unless defined $next;
        unless( $next->type eq 'text' ) {
          $self->unget_tok <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	456	559	
==>utput check_progs );

$util        = 'yacc';
$description = "Determining whether $util is installed";
$p <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	28238	28337	
==>tart_line'};

  # A recursive algorithm implemented iteratively!  Whee!

  while($treelet = shift @s <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	31739	31838	
==>tart_line'};

  # A recursive algorithm implemented iteratively!  Whee!

  while($treelet = shift @s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16286	16391	
==>ck, $token);

      $self->require_assign;

      my $left  = Jako::Construct::Expression::Value->new($blo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17057	17162	
==>ck, $token);

      $self->require_assign;

      my $left  = Jako::Construct::Expression::Value->new($blo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17862	17967	
==>ck, $token);

      $self->require_assign;

      my $left  = Jako::Construct::Expression::Value->new($blo <==
3	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	2463	2685	
==>return undef;
    }

}

################################################################################

package SymbTabConst;
use base qw(Lua::symbtab);
{

    sub Lookup {
        my $self = shift;
        m <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1335	1462	
==>t code $exit_code")
        if $exit_code and not $pass;
    }

    unless($ENV{POSTMORTEM}) {
        unlink $lang_f;
        u <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1376	1503	
==>t code $exit_code")
        if $exit_code and not $pass;
    }

    unless($ENV{POSTMORTEM}) {
        unlink $lang_f;
        u <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1013636	1013894	
==>{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "err",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1014349	1014607	
==>{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "err",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/config/inter/encoding.pm	1755	1864	
==>oding_o     => $TEMP_encoding_o,
        TEMP_encoding_build => $TEMP_encoding_build,
    );

    return $self <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2360	2458	
==>{ $_[0]->emit_par(-1) }
sub end_Para        { $_[0]->emit_par( 0) }
sub end_item_bullet { $_[0]->em <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1928	2026	
==>{ $_[0]->emit_par(-1) }
sub end_Para        { $_[0]->emit_par( 0) }
sub end_item_bullet { $_[0]->em <==
3	/Users/nnunley/parrot/config/inter/lex.pm	849	948	
==>nf->data->set(flex_version => undef);

    unless ($conf->options->get('maintainer')) {
        $con <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8886	8977	
==>rpreter,\n\t    enum_fixup_label, label);\n    if (!fe)\n\tinternal_exception(1, \"branch_cs <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10002	10093	
==>rpreter,\n\t    enum_fixup_label, label);\n    if (!fe)\n\tinternal_exception(1, \"branch_cs <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2399	2496	
==>do)>

Runs the target string against the Perl 6 pattern, passing the test
if the output produced b <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3833	3930	
==>do)>

Runs the target string against the Perl 6 pattern, passing the test
if the output produced b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540703	541019	
==>1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n {{\@1}} = b<<p;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541955	542271	
==>1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n {{\@1}} = b<<p;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543207	543523	
==>1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n {{\@1}} = b<<p;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	32194	32337	
==>,
			'NAME' => 4,
			"{" => 38,
			"..." => 39,
			"(" => 40,
			"#" => 41
		},
		DEFAULT => -37,
		GOTOS => {
			'exp' => 100,
			'fu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2534	2636	
==>pe of actual argument (%s)!", ref $args[$i])
      unless defined $actual_arg_type;

    if ($formal_ar <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2234	2336	
==>pe of actual argument (%s)!", ref $args[$i])
      unless defined $actual_arg_type;

    if ($formal_ar <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	46	146	
==>before rendering it out
# as List ops. Most optimizations should go here, since the List form
# is re <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2394	2491	
==>, @todo)>

Runs the target string against the Perl 6 pattern, passing the test
if the output produ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3828	3925	
==>, @todo)>

Runs the target string against the Perl 6 pattern, passing the test
if the output produ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	520	631	
==>::Driver
#
# This module is part of the Parse::Yapp package available on your
# nearest CPAN
#
# Any use of <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	506	612	
==>::Driver
#
# This module is part of the Parse::Yapp package available on your
# nearest CPAN
#
# Any use of <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	1683	1782	
==>enation, and the way it
twiddles each op's C<CODE> hash key after that.

If the op and oplib Perl mo <==
3	/Users/nnunley/parrot/examples/benchmarks/primes2.pl	63	187	
==>{
    if (&isprime1($i)) {
	$i7 = $i;
	$i6++;
    }
    $i++;
    if ($i==$max){
	last;
    }
}
printf("N primes calculated t <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3092	3196	
==>, $val2, $dest) = @_;
    $self->output_test('ne', $val1, $val2, $dest);
}

sub output_lt {
    my ($self <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864149	864376	
==>ODING_BYTES(interpreter, {{\@2}}));\n  }\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	865041	865268	
==>ODING_BYTES(interpreter, {{\@2}}));\n  }\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	2415	2525	
==>ded to be used only
once by the root section, it is not passed to subsections.

=cut

sub write_docs
{
    my $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	31521	31834	
==>GS" => "",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 40,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	16140	16245	
==>, "OP"
	push P9, ">="
	push P9, "OP"
	P0= P5
	bsr RUNTIME_PUSH
	pop P0, P13
	bsr RUNTIME_PUSH
	push P9, "< <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	10422	10527	
==>q 'HACKRAW'
  ) {
    DEBUG and print " Putting in HACKRAW (no-op) encoding mode.\n";

  } elsif( Pod::Sim <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6313	6421	
==>M

    for my $entry (@{$vtable}) {
    next unless ($entry->[4] =~ /MMD_/);
    next if ($entry->[4] =~ /_IN <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5896	6003	
==>M
    for my $entry (@{$vtable}) {
    next unless ($entry->[4] =~ /MMD_/);
    next if ($entry->[4] =~ /_IN <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	10608	10704	
==>DISPLAY(1,$result)
PRINT
		}
		#print "After Expression have $type[CURR] $syms[CURR]\n";
		$eol=0 <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	1778	1907	
==>/bin/perl585-th
    type      = .pl

    [benchmark python]
    exe       = /usr/local/bin/python
    type      = .py

    [benchm <==
3	/Users/nnunley/parrot/examples/benchmarks/oo1.pl	67	187	
==>);
}
my $o = new Foo();
print $o->[0], "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift;
    r <==
3	/Users/nnunley/parrot/examples/benchmarks/oo2.pl	67	187	
==>);
}
my $o = new Foo();
print $o->[0], "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift;
    r <==
3	/Users/nnunley/parrot/Configure.pl	1279	1374	
==>--profile>

Turn on profiled compile (gcc only for now)

=item C<--optimize>

Add perl5's $Confi <==
3	/Users/nnunley/parrot/examples/benchmarks/stress.pl	714	797	
==>es/benchmarks/stress1.pl>, 
F<examples/benchmarks/stress2.pasm>, 
F<examples/benchma <==
3	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	658	741	
==>es/benchmarks/stress1.pl>, 
F<examples/benchmarks/stress2.pasm>, 
F<examples/benchma <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131432	131736	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132287	132591	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_c <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	2657	2786	
==>add
{
    my $self = shift;
    my $delim = shift;
    
    while (my ($key, $val) = splice @_, 0, 2) {
        my ($old) = $self- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	380	484	
==>ko::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $left, $right) = @_;

  confess( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	371	475	
==>ko::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $left, $right) = @_;

  confess( <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	3926	4023	
==>ng Interp" context="string_interp" String="&quot;" />
          <RegExpr attribute="Identifier" co <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28899	29013	
==>n rule " .
				"$rule->{'name'}\n";
        } elsif ($rule->{'instruction'} =~ /\$\{DEST0\}/ &&
		         $rule->{ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	15634	15742	
==>, $expected, $desc, \%extra, $extra{todo}, $call_pkg ) if ( keys %extra );
            local *{ $call_pkg . ' <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	18185	18293	
==>, $expected, $desc, \%extra, $extra{todo}, $call_pkg ) if ( keys %extra );
            local *{ $call_pkg . ' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2533	2644	
==>ine]\n";

      if( ($line = $source_line) =~ s/^\xEF\xBB\xBF//s ) {
        DEBUG and print "UTF-8 BOM seen.  F <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22853	22952	
==>c/ops/core.ops\"\n  opcode_t *dest;\n  PMC * const p = {{\@1}};\n  dest = {{^+2}};\n  interpreter->c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25242	25341	
==>c/ops/core.ops\"\n  opcode_t *dest;\n  PMC * const p = {{\@1}};\n  dest = {{^+2}};\n  interpreter->c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243995	244236	
==>}});\n  {{\@1}} = string_compare(interpreter, l, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244927	245168	
==>}});\n  {{\@1}} = string_compare(interpreter, l, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	816	925	
==>st event!  set to stack, and set as root.
  }
  DEBUG > 3 and print "Stack is now: ",
    join(">", map $_->[0 <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	10052	10190	
==>da_\d+)/) {
		$n = $1;
		return $n;
	    }
	}
	$n = temp('P');
	print <<"EOC";
	$n = new $DEFVAR
	$n = $v->[1]
EOC
    }
    $n;
}

sub LOA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	626200	626318	
==>= CUR_OPCODE + 2 + n_args + 3 + 3 + 2;    \n    args[1 + n_args] = pc;\n    lru = &mic->lru;\n    /* TODO verify {{\@1} <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7526	7639	
==>"=") {
	#	# Assignment statement
	#	my $var=$syms[CURR];
	#	feedme;  # Get the =
	#	#print "Going to expression wi <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	5022	5177	
==>e = ( $value eq 'true' ) ? 1 : 0;
                }
                my $expr = new defn( $value, 'literal', 'pmc', $type );
                push @opcodes <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20236	20333	
==>n (Bokmal)
  2068  Norwegian (Nynorsk)

=back

If you are particularly interested in customizing t <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	2272	2363	
==>$self->block->find_symbol($ident);

      $ident = Jako::Construct::Expression::Value::Ident <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039962	1040236	
==>TYPE" => "function",
                  "CODE" => 1162,
                  "ARGS" => [
                              "sc",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 120 \"src/ops/var.o <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	7756	7861	
==>ld filehandles; we must not let them get closed.
    open  OLDOUT, ">&STDOUT" or die "Can't save     stdou <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7807	7911	
==>ld filehandles; we must not let them get closed.
    open OLDOUT, ">&STDOUT" or die "Can't save     stdou <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	590	719	
==>rn $ENV{PARROT_M4_TEST_PROG} ?
        ( bless {}, 'Parrot::Test::M4::Gnu' )              
        :
        ( bless {}, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719813	719909	
==>nst io = {{\@1}};\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpret <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721013	721109	
==>nst io = {{\@1}};\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpret <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7538	7648	
==>PIR
	}

	return $pir;
}

# Pre and post store operation hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5656	5766	
==>PIR
	}

	return $pir;
}

# Pre and post store operation hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4498	4608	
==>PIR
	}

	return $pir;
}

# Pre and post store operation hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11475	11591	
==>PE_SZARRAY = 0x1D
	.const int ELEMENT_TYPE_INTERNAL = 0x21
    
    # Trace info - param and local types.
    if trac <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4303	4410	
==>sub minlen { 1 }
sub maxlen { 1 }
sub dfa_safe { 1 }
sub hasback { 1 }

# Sequences of regexes like RS
packa <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	5693	5795	
==>,
just like in Test::More.

=item C<run_command($command, %options)>

Run the given $command in a cross <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	34151	34282	
==>vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   print <<EOC;
	$vv = $v->[1]
EOC
       }
    }
    my $dest =  (pop @s <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	35075	35206	
==>vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   print <<EOC;
	$vv = $v->[1]
EOC
       }
    }
    my $dest =  (pop @s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	16791	16886	
==>of a formatter
that uses Pod::Simple::PullParser.

=head1 METHODS

=over

=item my $token = $par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101288	101591	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102058	102361	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103494	103797	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	590	714	
==>ng_f, $pasm_f, $by_f, $out_f ) = map { # JMG
            my $t = $0; $t =~ s/\.t$/_$count\.$_/; $t
        } ( qw(urm pasm pb <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	10692	10811	
==>{'!POS'};
#         <rx_stack> = <rx_match>{'!STACK'};
#     }
# END
        @ops = ("sub _rule_$name {", 'my ($rx_mode, <==
3	/Users/nnunley/parrot/config/auto/aio.pm	627	729	
==>>get('libs');
    $conf->data->add(' ', libs => '-lrt');

    cc_gen('config/auto/aio/aio.in');
    eva <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744257	744348	
==>> "#line 179 \"src/ops/set.ops\"\n  {{\@1}} = string_from_num(interpreter, {{\@2}});\n  {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745023	745114	
==>> "#line 179 \"src/ops/set.ops\"\n  {{\@1}} = string_from_num(interpreter, {{\@2}});\n  {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	922845	922936	
==>terpreter, {{\@1}},\n        Parrot_psprintf(interpreter, {{\@2}}->vtable->get_string(interp <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	1433	1544	
==>assed!
    Carp::croak "You can call run() only on subclasses of "
     . __PACKAGE__;
  } else {
    Carp::croa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42297	42387	
==>=> "#line 727 \"src/ops/core.ops\"\n  do_exception(interpreter, EXCEPT_exit, {{\@1}});\n  { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42987	43077	
==>=> "#line 727 \"src/ops/core.ops\"\n  do_exception(interpreter, EXCEPT_exit, {{\@1}});\n  { <==
3	/Users/nnunley/parrot/config/gen/PodText.pm	1159	1276	
==>t->new(width => 79);

    my $count = 0; # number of processed files
    foreach my $pod (keys %docs) {
        $count <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544603	544862	
==>_var1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545939	546198	
==>_var1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547275	547534	
==>_var1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11727	11850	
==>@types;
}

sub op {
    Regex::Ops::Tree->op(@_);
}

$::paren = 0;



sub new {
        my($class)=shift;
        ref($class <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4159	4265	
==>gure::Data> object.

=cut

sub clean
{
    my $self = shift;

    delete $self->{c}{$_} for grep { /^TEMP_/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320003	320226	
==>n  {{\@1}} = (INTVAL)((Parrot_Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320773	320996	
==>n  {{\@1}} = (INTVAL)((Parrot_Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	76	165	
==>Trans/CSwitch.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::OpTra <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950649	950954	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_ch <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951609	951914	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_ch <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952569	952874	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_ch <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27650	27745	
==><0?'if':'unless')
		. ' ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and '
		. ($check->{itempos}? <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29760	29855	
==><0?'if':'unless')
		. ' ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and '
		. ($check->{itempos}? <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31857	31952	
==><0?'if':'unless')
		. ' ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and '
		. ($check->{itempos}? <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	3720	3846	
==>>\n";
        unless( defined $lines[-1] ) {
          DEBUG and print "That's it for that source fh!  Killing.\n";
          d <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53250	53343	
==>ore.ops\"\n  if ({{\@1}} != 0) { Interp_flags_SET(interpreter,   PARROT_GC_DEBUG_FLAG); }\n  e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54006	54099	
==>ore.ops\"\n  if ({{\@1}} != 0) { Interp_flags_SET(interpreter,   PARROT_GC_DEBUG_FLAG); }\n  e <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	5114	5251	
==>$name + 1 \n";
        $code .= "  pir .= \$S0 \n";
        $code .= emit("a_$name = \$P%0", "r_$name");
        
        # convert the ar <==
3	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	1121	1218	
==>ailed:\n$output";
		return 0;
	}
	$output = `$N2PConfig::parrot -o $out_name $out_name.pir`;
	unli <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4176	4263	
==>ize(
 'doc_lang',
 'head1_halfpoint_size',
 'head2_halfpoint_size',
 'head3_halfpoint_si <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	903	1022	
==>push @_to_accept, $1; $_ }
   qw[
       underline=ul         smallcaps=scaps  shadow=shad
       superscript=super    s <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	7888	7997	
==>RR, ">&STDERR" or die "Can't save     stderr" if $err;

    open  STDOUT, ">$out"    or die "Can't redirect st <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7937	8042	
==>RR, ">&STDERR" or die "Can't save     stderr" if $err;

    open STDOUT, ">$out" or die "Can't redirect st <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	737	826	
==>[^- \:\:\.\,\'\>\<\"\/\=\?\+\|\[\]\{\}\_a-zA-Z0-9_\`\~\!\#\%\^\&\*\(\)])/
      sprintf( ( <==
3	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1169	1283	
==>c, { input => $input, output => $output };
    }
    
    Test::More::plan( tests => scalar(@spec) );

    generate <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	9532	9656	
==>in an XML Name.
        or $new_code =~ m/^[-\.0-9]/s
        or $new_code =~ m/:[-\.0-9]/s;
            # The legal under-0x <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10796	10920	
==>in an XML Name.
        or $new_code =~ m/^[-\.0-9]/s
        or $new_code =~ m/:[-\.0-9]/s;
            # The legal under-0x <==
3	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	866	970	
==>ructions.pasm"
.include "expr.pasm"


MAIN:
	new P20, .PerlHash     # PerlHash   # Numerics
	new P21, .Pe <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9857	9969	
==>lf->{'Tagmap'}{$tagname}) or next;
      $scratch =~ s/\#([^\#]+)\#/${$self}{$1}/g; # interpolate
      print $fh <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	1711	1811	
==>rtypes );
use vars qw( $funcname );
use vars qw( $branchseq @selects $sourceline );
sub parse {
	$run <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	1397	1488	
==>reach (keys %Regex::Generate::) {
	next unless /^output_(\w+)$/;
	$OUTPUT{$1} = $Regex::Gene <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	7659	7777	
==>len {
    my $op = shift;
    my ($min, $max, $greedy, $R) = @{ $op->{args} };
    my $sublen = $R->maxlen();
    if (d <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	3768	3861	
==>le subexpression.
# By default, all calls are propagated to the subexpression.
package Regex:: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3717	3813	
==>module_props = $self->block->props;

      $self->SYNTAX_ERROR("Sub declaration has no fnlib prop <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6381	6477	
==>module_props = $self->block->props;

      $self->SYNTAX_ERROR("Sub declaration has no fnlib prop <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	2922	3014	
==>($code_l, %params, %lexicals, %names, %def_args, %arg_count,
    @code, %globals, %classes, @ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	306713	306976	
==>LATIVE",
                  "NAME" => "unless_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307506	307769	
==>LATIVE",
                  "NAME" => "unless_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	2455	2556	
==>lex/store_lex
sub _find_lex {
  my ($self, $symbol) = @_;
  my $return = $self->_save_1 ('P');
  $self <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	7281	7399	
==>lete $options{CD};

    while (my($key, $value) = each %options) {
        $key =~ m/^STD(OUT|ERR)$/
            or die <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543904	544154	
==>ODE" => 628,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 1056 \"src/ops/math.ops\"\n INTVAL gcd <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	15178	15326	
==>f ($body =~ s/\brestart\s+ADDRESS\((.*?)\)/{{=$1}}/mg)
        {
            $next = 0;
            $restart = 1;
        }

        $body =~ s/\$(\d <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	7569	7653	
==>vtable_2231_op Parrot_jit_normal_op
#define Parrot_jit_vtable_1r223_op Parrot_jit_nor <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349314	349567	
==>ter, enum_class_Undef);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350316	350569	
==>ter, enum_class_Undef);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	24705	24831	
==>BUG > 2 and print "Ogling extensor: =extend $content\n";

  if($content =~
    m/^
      (\S+)         # 1 : new item
      \s+ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	15157	15276	
==>, P6   # Save result for later.
EQ
			$ors++;
		}
		if ($syms[CURR] eq "to") {
			my @b=EXPRESSION();
			feedme();
			pr <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27447	27538	
==>->_constant(1);
    $self->_add_inst('','div',[$return,$temp,$return]);
    $self->_restore( <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10964	11049	
==>af235,/* 62 */
II,$c,$d,$a,$b,$_[6],15,0x2ad7d2bb,/* 63 */
II,$b,$c,$d,$a,$_[13],21,0x <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	17179	17314	
==>s{$macro}/gx;
}

print $template;

# Given a code snippet, convert it to something usable in the generated file

sub interpolate {
    m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045149	1045568	
==>IRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1168,
                  "ARGS" => [
                              "kc",
                              "s",
                              "p"
                            ],
                  "BODY <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	21220	21413	
==>_extension 
                = ( pasm => 'PASM',
                    past => 'PAST',
                    pir  => 'PIR',
                    imc  => 'PIR', );

            my ( $extension ) = $exa <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	498	589	
==>rot::Test::Bc.
XXX: Do not configure with environment variables.
Use Antlr2 in smoke testing <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	22706	22837	
==>cout .= <<"EOC";
    if (pass == 0) {
EOC
    $cout .= <<"EOC";
        /*
         * create vtable - clone it - we have to set a fe <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605885	605976	
==>rc/ops/object.ops\"\n    Parrot_add_attribute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606676	606767	
==>rc/ops/object.ops\"\n    Parrot_add_attribute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576577	576842	
==>bclass(interpreter, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577589	577854	
==>bclass(interpreter, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12793	12898	
==>(" . join(",",@args) . ")\n";
}


sub parse_exit {
	if ($syms[NEXT] eq "for") {
		feedme();
	  	$foo=$fors <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	31672	31791	
==>LD_CLASS
{
    my ($n, $c, $cmt) = @_;
    my $parent_tuple = pop @stack;
    my $tos = pop @stack;
    my $cl = temp('P <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	5232	5351	
==>ive {
    my ($self, $line, $file) = @_;

    return '' if $self->{opt}{nolines};
    if (defined $file) {
        my $f <==
3	/Users/nnunley/parrot/config/init/hints/solaris.pm	2687	2801	
==>d atan2(-0.0, -0.0)
    # return 0, when they should return +PI and -PI respectively.
    # For Sun's compilers, fi <==
3	/Users/nnunley/parrot/tools/dev/symlink.pl	2400	2504	
==>int "$dstfile\n" if $v;
		if (defined $readlink) {
		    unless (unlink($dstfile)) {
			warn "$self: unli <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	5040	5169	
==>me {
    my ($R, $S) = @_;
    return 0 if ! ref $R;
    return 0 if ! ref $S;
    return 0 if $R->{name} ne $S->{name};
    my $t <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8672	8769	
==>EMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_END_${CURIC}

# Get type of return valu <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7244	7341	
==>EMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_END_${CURIC}

# Get type of return valu <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	3052	3168	
==>f = shift;
    my $content = $self->read;
    # Break up the $Id to prevent svn messing with it.
    my ($id) = $cont <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	466	574	
==>new
{
  my $class = shift;

  my ($block, $type, $ident) = @_;

  confess "Block (". ref($block) . ") is not! <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2144	2246	
==>tem C<opsarraytype()>

The ops array type is C<void *>.

=cut

sub opsarraytype
{
    return 'void *'
} <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	3226	3429	
==>efix$1\t$2";
                        $last_val = $2;
                    }
                    $values{$1} = $2;
                    eval $subst if ($subst ne '');
                    print INC ".constant <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	9846	9982	
==>nt OUT qq(
           <tr>
             <td>$function</td>
             <td><a href="$outfile_base.lines.html#$function">@{[$function_lin <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	1114	1230	
==>filename) = @_;

    local $/ = undef;
    open my $file, "<", $filename
        or die "can't open '$filename' for r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655131	655506	
==>S" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 732,
                  "ARGS" => [
                              "i",
                              "p"
                            ],
                  "BODY <==
3	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	366	487	
==>e = shift;
	my $cs_code = shift;
    my $opt = shift;
    $opt ||= '';
	
	# Write file.
	my $fh;
	open $fh, "> $file_name. <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2026	2142	
==>);
    return "$realvar += $arg1;";
}

sub output_sub {
    my ($self, $var, $amount) = @_;
    $amount = 1 if ! defi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3038	3152	
==>$handler) = @_;

  my $block = $self->block;
  my $kind  = $self->kind;
  my $name  = $self->ident ? $self->ident-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009670	1009889	
==>1126,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 659 \"src/ops/string.ops\"\n  {{\@1}} = string_co <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	1984	2183	
==>structs
  }, $class;
}


###############################################################################

#
# ACCESSORS:
#

sub peer      { return shift->{PEER};  }
sub kind      { return shift->{KIND <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1843	1944	
==>ected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## unlike

sub unlike (S <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495866	496116	
==>69,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 590 \"src/ops/math.ops\"\n  {{\@1}} = intval_m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443575	443664	
==>ODY" => "#line 114 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444590	444679	
==>ODY" => "#line 114 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710785	710872	
==>printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  PIO_softspace(interpreter, io, 1);\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711619	711706	
==>printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  PIO_softspace(interpreter, io, 1);\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58238	58613	
==>" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 75,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BOD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106398	1106640	
==>rpreter->vtables[typ]->class;\n    {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107374	1107616	
==>rpreter->vtables[typ]->class;\n    {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/config/init/hints/cygwin.pm	103	204	
==>02:28:15.110975Z coke  $

package init::hints::cygwin;

use strict;

sub runstep
{
    my ($self, $con <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7085	7181	
==>nstr(s1$, "")
print "Start (11): ", instr(6, s1$, " ")
print "Inval  (0): ", instr(4, bogus$, "t" <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18814	18910	
==>nstr(s1$, "")
print "Start (11): ", instr(6, s1$, " ")
print "Inval  (0): ", instr(4, bogus$, "t" <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	4295	4433	
==>ata = ",
       P => "return_data = ",
       S => "return_data = ",
       I => "return_data = ",
       N => "return_data = ",
#      B = <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	33328	33435	
==>\&_op_cons,
  'car'      => \&_op_car,
  'cdr'      => \&_op_cdr,
  'set-car!' => \&_op_set_car_bang,
  'set <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	1337	1443	
==>$result;

    return $self;
}

=back

=head3 Class Methods

=over 4

=item * C<description()>

Accepts no a <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26699	26804	
==>tinue = new_label($parser);
    my $l_break    = new_label($parser);
    push @opcodes, new LabelOp( $pa <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27584	27689	
==>tinue = new_label($parser);
    my $l_break    = new_label($parser);
    push @opcodes, new LabelOp( $pa <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	6527	6641	
==>that changes, this fails
	for ($i = $n; @{$def_args{$arg}}; $i--) {
	    my $reg = 4 + $i;
	    my $d = pop @{$def_ <==
3	/Users/nnunley/parrot/config/auto/readline.pm	927	1039	
==>c -lole32 -luuid -lwsock32 -lmsvcp60');
        } else {
            $conf->data->add(' ', libs => 'readline.lib' <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	5405	5500	
==>r there is any POD formatted documentation in the file.
Executable files are assumed not to cont <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	7721	7831	
==>ame
{
    my $self = shift;
    my $path = $self->path_for_directory_with_name(shift) || return;
    
    retur <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8268	8378	
==>ame
{
    my $self = shift;
    my $path = $self->path_for_directory_with_name(shift) || return;
    
    retur <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5932	6031	
==>p,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		($a1,$a2,$ <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	781	894	
==>y $rmask = (1 << $_[1]) - 1;
	($_[0] << $_[1]) | (( $_[0] >> (32 - $_[1])  )  & ((1 << $_[1]) - 1));
	#$_[0] << $_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2575	2669	
==>N

Pod::Simple::DumpAsXML is a subclass of L<Pod::Simple> that parses Pod
and turns it into ind <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	424	512	
==>le_h.pl>, F<tools/dev/gen_class.pl>, and
F<src/pmc/null.pl>.

=head2 Functions

The follo <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	4584	4790	
==>$text);
        
        esc($text);
    
        if ( $href )
        {
            $text = "<a href='$href'>$text</a>";
        }
    }
    else
    {
        # Tidy up the C reference *s.
        $text =~ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	22223	22341	
==>ef;
			}
		}

		FIELD: while (pos($$textref) < length($$textref))
		{
			my $field;
			my @bits;
			foreach my $i ( 0.. <==
3	/Users/nnunley/parrot/tools/docs/pod_errors.pl	600	706	
==>e->num_pod_errors;
	
	my $errors = $file->pod_errors;
	
	print "\n",
		$file->path, 
		' has ', 
		$file->n <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22351	22463	
==>text . $title if $t->type eq 'text';
      }
      undef $title if $title =~ m<^\s*$>; # make sure it's contentfu <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22835	22947	
==>text . $title if $t->type eq 'text';
      }
      undef $title if $title =~ m<^\s*$>; # make sure it's contentfu <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	13358	13491	
==>y subsequent start-Para.  Reseeking H1\n";
        $state = 0;
      }
    }
    
    elsif($state == 3) {
      # accumulating text u <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	17297	17413	
==>cm"  => "\n",
  "\cj"  => "\n",
  "\n"   => "\n\\line ",

  "\t"   => "\\tab ",     # Tabs (altho theoretically raw \ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	4541	4632	
==>ns C<Pod::Simple::Checker> on the contents of the file. Executable
files, and F<*.dump> file <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	17595	17699	
==>s,	0,			# NO 2ND RDEL
			$modpos,	$endpos-$modpos,	# MODIFIERS
			$endpos, 	$textlen-$endpos,	# REMAINDER <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1463	1564	
==>self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'op', Attributes => { kind => <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1457	1558	
==>self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'op', Attributes => { kind => <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Examples.pm	198	292	
==>ocumentation section

=head1 SYNOPSIS

    use Parrot::Docs::Section::Examples;

=head1 DESCRIP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64148	64416	
==>T_JUMP_GNEXT",
                  "NAME" => "runinterp",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3523	3628	
==>ring, somewhere.
    }
    else {
      $self->SYNTAX_ERROR("Sub declaration has no fnlib property, and pa <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6187	6292	
==>ring, somewhere.
    }
    else {
      $self->SYNTAX_ERROR("Sub declaration has no fnlib property, and pa <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2945	3048	
==>utine one should be skipped"
Label2:
   PRINT "4 back in subroutine one"
   RETURN Label1
Sub2:
   PRINT <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16912	17015	
==>utine one should be skipped"
Label2:
   PRINT "4 back in subroutine one"
   RETURN Label1
Sub2:
   PRINT <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	36463	36564	
==>'<>' );

the result would be:

	( '<A HREF=">', '>>>">link</A>', "" )

In addition to the quote delimi <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2725	2861	
==>map { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3034	3170	
==>map { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2829	2965	
==>map { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	839078	839388	
==>" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 951,
                  "ARGS" => [
                              "s"
                            ],
                  "BOD <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	4096	4249	
==>ymbol}\n";
    }

    sub visitNewOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        if ( exists $op->{a <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9260	9359	
==>ect Hello A World
print "Hello " + chr$(65);
print " World"

' Expect 21 and "Correct"
print 1+int(2 <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	2357	2446	
==>, then the generated
parrot-<VERSION>-1.<arch>.rpm file will contain the file
/usr/parroty <==
3	/Users/nnunley/parrot/languages/regex/test.pl	3342	3454	
==>=> 1);

    print PIR <<"END";
# Regular expression test
# Generated by $0
# Pattern >>$pattern<<

END

    $driv <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3887	3981	
==>$handler->start_element({ Name => 'return' });
  $value->sax($handler) if defined $value;
  $ha <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	7642	7728	
==>rrot_jit_normal_op
#define Parrot_jit_vtable_1r332_op Parrot_jit_normal_op
#define Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	533716	533983	
==>"JUMP" => 0,
                  "NAME" => "log10",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	1052	1204	
==>ar",
       s => "short",
       2 => "short *",
       f => "float",
       d => "double",
       t => "char *",
       v => "void",
#      b => "void * <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5260	5381	
==>table is for */
    "",     /* Flags. Duh */
    "",     /* space-separated list of interfaces */
    "",     /* space-sep <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	705	857	
==>rcent = int(($done / $total) * 100);
print "SUMMARY                                           ";
print $done . (' ' x (10 - length($done)));
print $to <==
3	/Users/nnunley/parrot/config/init/headers.pm	334	422	
==>ase qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step;
use ExtUtils::Manife <==
3	/Users/nnunley/parrot/config/init/manifest.pm	359	447	
==>ase qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step;
use ExtUtils::Manife <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39756	39883	
==>stat} ) {
        my @opcodes = ();
        my $main = new defn( '_main', 'fct' );
        push @opcodes, new SubDir( $parser <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	73	172	
==>e Pod::Simple ();
use vars qw( $ATTR_PAD @ISA $VERSION $SORT_ATTRS);
$VERSION = '2.02';
BEGIN {
  @I <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	74	173	
==>e Pod::Simple ();
use vars qw( $ATTR_PAD @ISA $VERSION $SORT_ATTRS);
$VERSION = '2.02';
BEGIN {
  @I <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	15948	16099	
==>R_OPCODE, interpreter->code->base.data)}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2804	2911	
==>ed"
Label1:
   PRINT "5 back in module-level code"
   END
Sub1:
   PRINT "2 in subroutine one"
   GOSUB Sub2 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16771	16878	
==>ed"
Label1:
   PRINT "5 back in module-level code"
   END
Sub1:
   PRINT "2 in subroutine one"
   GOSUB Sub2 <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	21743	21858	
==>d}{class_init} ?
                   $self->{has_method}{class_init} : -1;
    my $class_init_code = $n >= 0 ? $self- <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	31719	31821	
==>ill die with the given $description and
a note to contact the author.

=cut

sub _whoa {
    my($check, <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	10141	10227	
==>thread.pmc lexpad.pmc timer.pmc pointer.pmc sub.pmc closure.pmc continuation.pmc retcon <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	32040	32169	
==>NS => {
			"-" => 24,
			'TRUE' => 25,
			'NOT' => 27,
			'STRING' => 29,
			'NIL' => 30,
			'FALSE' => 33,
			'FUNCTION' = <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37506	37635	
==>NS => {
			"-" => 24,
			'TRUE' => 25,
			'NOT' => 27,
			'STRING' => 29,
			'NIL' => 30,
			'FALSE' => 33,
			'FUNCTION' = <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10001	10115	
==>ex::Ops::Tree; # Won't get used much

sub needparen { 0 }

# Nonportable
sub isplain {
    my $ord = shift;
    ret <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7113	7221	
==>$len,$code,@sempar,$semval);
            ($lhs,$len,$code)=@{$$rules[-$act]};

#DBG>			$debug & 0x04
#DBG <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6782	6886	
==>$len,$code,@sempar,$semval);
            ($lhs,$len,$code)=@{$$rules[-$act]};

#DBG>			$debug & 0x04
#DBG <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	62	153	
==>Id: /parrot/lib/Parrot/OpTrans/CPrederef.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

= <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	34216	34322	
==>>{Expected_Tests} == 1 ? '' : 's';
            $self->diag(<<"FAIL");
Looks like you planned $self->{Expect <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	34552	34658	
==>>{Expected_Tests} == 1 ? '' : 's';
            $self->diag(<<"FAIL");
Looks like you planned $self->{Expect <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24808	24903	
==>e a float.
	($result, $type, @code)=EXPRESSION({ lhs => 1, assign => 1});
	push @{$code{$seg}->{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544323	544458	
==>0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545659	545794	
==>0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546995	547130	
==>0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1790	1935	
==>obj',
            cc_o_out   => '-Fo',
            cc_exe_out => '-out:',
            cc_ldflags => '/link',

            # ZI messes with __LINE_ <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3669	3814	
==>obj',
            cc_o_out   => '-Fo',
            cc_exe_out => '-out:',
            cc_ldflags => '/link',

            # ZI messes with __LINE_ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7939	8032	
==>textpos, $parapos, $closetagpos, $endpos) = ( pos($$textref) = pos($$textref)||0 );

	unless ( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22075	22181	
==>$self->require_value);
        $op    = $self->require_infix_rel->text;
        $right = Jako::Construct::E <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23008	23114	
==>$self->require_value);
        $op    = $self->require_infix_rel->text;
        $right = Jako::Construct::E <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24654	24760	
==>$self->require_value);
        $op    = $self->require_infix_rel->text;
        $right = Jako::Construct::E <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	18927	19064	
==>',
        language_output_like => 'output_like',
        language_output_isnt => 'output_isnt',
                            );

    forea <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15255	15344	
==>x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
      $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16436	16525	
==>x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
      $ <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	4106	4224	
==>e to edit it
    $byte_code = $pf->byte_code;

    # First block
    push @blocks, [shift @pc_list ];

    # change ins <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	7583	7694	
==>ype = $t->{name};

    if ($type eq 'seq' && ! $t->{add_check_visited}) {
        # Split the seq up into chunks <==
3	/Users/nnunley/parrot/Configure.pl	4260	4356	
==>h qw( -no_match_vars );
use Parrot::BuildUtil;
use Parrot::Configure;

# These globals are access <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	45958	46073	
==>t hyphenation, I guess
       # that you'd better have nbsp_for_S off.
    }
  }

  return $is_s;
}

#-------------- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476985	477083	
==>"#line 428 \"src/ops/math.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477881	477979	
==>"#line 428 \"src/ops/math.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744123	744323	
==>S" => [
                              "s",
                              "n"
                            ],
                  "BODY" => "#line 179 \"src/ops/set.ops\"\n  {{\@1}} = string_from_num(inter <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	14015	14143	
==>ls_<tmpl_var name=id>">
            <td colspan="12" class="indent3">
              <tmpl_loop name=summary>
                <spa <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16720	16816	
==>->_add_inst ('', 'new',[$return,'.Undef']);

  my @reverse = reverse _get_args($node);

  for (@r <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12036	12129	
==>DESCRIPTION

This class is for TODO.
This is a subclass of L<Pod::Simple::PullParser> and inhe <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	2607	2732	
==>$b, $where";
    } elsif ($cond eq '!=') {
        return "ne $a, $b, $where";
    } elsif ($cond eq '<') {
        return "lt <==
3	/Users/nnunley/parrot/config/gen/icu.pm	2339	2512	
==>eaders;
            }

            if ($without) {
                $self->set_result("failed");
            }
        }
    }

    if ($verbose) {
        print "icuconfig: $ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	16079	16214	
==>.

=cut

sub diag {
    return unless $Show_Diag;
    $Test->diag(@_);
}


=back

=head2 Module tests

You usually want to test if the m <==
3	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	2259	2348	
==>parrot_config */

void
Parrot_set_config_hash(void)
{
    Parrot_set_config_hash_internal( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	364	468	
==>rol;

use Carp;

use base qw(Jako::Construct::Statement);

my %block_types = (
  'while'    => { PREFIX = <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	896	995	
==>w: ",
    join(">", map $_->[0], @{$_[0]{'_currpos'}}), "\n";
  return;
}

sub _handle_element_end { <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	54257	54355	
==>ed in a list context and is
expected to return a list of a single element, namely the extracted
tex <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696694	696921	
==>,
                              "i",
                              "ic",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697695	697922	
==>,
                              "i",
                              "ic",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	12964	13065	
==>del_inner, $rdel_inner,
				     $rd);
	return _fail($wantarray, $textref) unless @match;
	return _suc <==
3	/Users/nnunley/parrot/config/init/hints/hpux.pm	121	233	
==>e  $

package init::hints::hpux;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    my $libs = $conf->d <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	4405	4501	
==>>add($data);
 $ctx->addfile(*FILE);

 $digest = $ctx->digest;
 $digest = $ctx->hexdigest;
 $diges <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	5204	5295	
==>goto ONOK_${ons}
ONERR_${ons}:
	print "On...goto/gosub out of range at $sourceline\\n"
	_pla <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	218	317	
==>ement.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	228	327	
==>ement.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	228	327	
==>ement.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31271	31367	
==>h) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $line, $out_name)>

Return <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35902	35998	
==>h) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $line, $out_name)>

Return <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39891	39987	
==>h) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $line, $out_name)>

Return <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11211	11309	
==>arg tag...
	return(scalar @args, @args);
}
sub optype_of {
	my($func, $extra)=@_;
	if ($extra and $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5601	5774	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "load_bytecode",
                  "FLAGS" => ":load_file",
                  "AR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6266	6439	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "load_bytecode",
                  "FLAGS" => ":load_file",
                  "AR <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	819	916	
==>as data types, and should
# be converted to typedefs.
my @type_macros = qw(CHARTYPE ENCODING STRIN <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	2639	2828	
==>ype                          => '#',
        replace_slashes                      => 1,
        conditioned_lines                    => 1
    );
    genfile(
        'config/gen/makefiles/dy <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	1373	1544	
==>ype                    => '#',
        replace_slashes                => 1,
        conditioned_lines              => 1
    );
    genfile(
        'config/gen/makefiles/dy <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7480	7577	
==>ed_pat(q{'"}) . '|[^>])*>'; }
	$@ = undef;

	my @match = _match_tagged($textref, $pre, $ldel, $rde <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459937	460210	
==>by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460925	461198	
==>by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461913	462186	
==>by zero\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2386	2485	
==>array=$array)
	P0= P10[0]
	P1= P0["$stype"]
	P0= P1["$var"]	# Pull the original
	P2= P10[I25]
	P3= P <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2613	2712	
==>array=$array)
	P0= P10[0]
	P1= P0["$stype"]
	P0= P1["$var"]	# Pull the original
	P2= P10[I25]
	P3= P <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2203	2301	
==>CII charsets.  Something should be done about that.
  }
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2306	2404	
==>CII charsets.  Something should be done about that.
  }
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	31080	31173	
==>nt!) before the substring is extracted.
The final argument specifies the escape character to b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826704	826931	
==>pe on stack!\");\n  }\n\n  {{\@1}} = UVal_num(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827774	828001	
==>pe on stack!\");\n  }\n\n  {{\@1}} = UVal_num(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1135	1224	
==>ight is not Value!" if defined $right and not UNIVERSAL::isa($right, 'Jako::Construct::Exp <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1163	1252	
==>ight is not Value!" if defined $right and not UNIVERSAL::isa($right, 'Jako::Construct::Exp <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	835	924	
==>ight is not Value!" if defined $right and not UNIVERSAL::isa($right, 'Jako::Construct::Exp <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	861	998	
==>Thispara'} = '';
  $new->{'Indent'} = 0;
  $new->{'Indentstring'} = '   ';
  $new->{'Errata_seen'} = 0;
  return $new;
}

#~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/lib/Parrot/Revision.pm	77	171	
==>.pm 19602 2006-05-30T13:40:58.862833Z coke  $

=head1 NAME

Parrot::Revision - SVN Revision

=h <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3546	3635	
==>goto PRE_OP_${CURIC}_CONT_$register_num

# Can do a lazy move.
PRE_OP_${CURIC}_LAZY_MOVE_$ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	1526	1639	
==>e sleep
				sound static stop sub swap system step
			then 
			time_NOTYET$ 
			timer troff tron type to
			uevent <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	6411	6520	
==>h begin with _.  These are likely to be internal
    # variables used by libc macros.
    my @symbols = grep { <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	37992	38087	
==>erence containing various parsing options (see below)

=back

The various options that can be sp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691221	691447	
==>\"\n   {{\@1}} = Parrot_thaw(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691978	692204	
==>\"\n   {{\@1}} = Parrot_thaw(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	439	533	
==>ools/build/headerizer.pl OBJFILES

=head1 DESCRIPTION

=head1 TODO

* Tell if there are funcs w <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3741	3838	
==>ock->props;

      $self->SYNTAX_ERROR("Sub declaration has no fnlib property, and parent module h <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6405	6502	
==>ock->props;

      $self->SYNTAX_ERROR("Sub declaration has no fnlib property, and parent module h <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6090	6227	
==>print {$self->{'output_fh'}} 
                $self->{'Tagmap'}{$tagname} . esc($text);
        }
    }
    else
    {
        $self->unge <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936252	936341	
==>line 455 \"src/ops/string.ops\"\n  {{\@1}} = string_titlecase(interpreter, {{\@2}});\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937029	937118	
==>line 455 \"src/ops/string.ops\"\n  {{\@1}} = string_titlecase(interpreter, {{\@2}});\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253826	254132	
==>2}} : {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254689	254995	
==>2}} : {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255552	255858	
==>2}} : {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	2510	2637	
==>rules = ();
    my $rule;

    # Read through rules file line by line.
    my $line = 0;
    my $in_heredoc = 0;
    my ($heredo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	2937	3037	
==>pe

  confess "No symbol name!"  unless defined $name;
  confess "No symbol value!" unless defined $s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	518	602	
==>om
);

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2741	2840	
==>GOSUB Sub1
PRINT "ERR this line in main routine should be skipped"
Label1:
   PRINT "5 back in modul <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16708	16807	
==>GOSUB Sub1
PRINT "ERR this line in main routine should be skipped"
Label1:
   PRINT "5 back in modul <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	616	723	
==>$test_module = $ENV{'PARROT_BC_TEST_MODULE'} || 'Parrot::Test::Bc::Antlr2';
                
    return bles <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3196	3300	
==>el = 0 }
  BEGIN { sub Pod::Simple::DEBUG () { $debug_level }
  use Pod::Simple ();

=head1 SEE ALSO

L<P <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	937	1033	
==>ing a "=head1 ..." line will give you
a start-token with the tagname of "head1", token(s) for its <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1365	1461	
==>ing a "=head1 ..." line will give you
a start-token with the tagname of "head1", token(s) for its <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	58334	58473	
==>ub
#line 520 "Lua\lua51.yp"
{
            PopScopeF( $_[0] );
            BuildFunctionBody( $_[0], [], $_[3] );
        }
	],
	[#Rul <==
3	/Users/nnunley/parrot/tools/build/vtable_extend.pl	1534	1637	
==>ich calls these functions, so most
   extension code is safe, no problem.

   The problem comes in if th <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	8504	8604	
==>om") {
		die "random file i/o not implemented yet at $sourceline"
	} else {
		die "Expected input/out <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	1778	1878	
==>}
}


=head1 NAME

Test::Builder - Backend for building test libraries

=head1 SYNOPSIS

  package My <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	818	916	
==>-9_]*)\s*:(?!:))(.*)$}) {
    push @tokens, Jako::Token->new(
      $file, $line, 'label', 'N', $2) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359380	359492	
==>preter, s)) {\n    PIO_putps(interpreter, PIO_STDERR(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360128	360240	
==>preter, s)) {\n    PIO_putps(interpreter, PIO_STDERR(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LA <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	17490	17629	
==>P:
PIRCODE

    # Return generated code.
    return $pir;
}


# Generate the dispatch table.
# ############################
sub generate_dis <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5798	5908	
==>ft;
    my $rel_path = shift;
    my @rel_paths = ();
    
    if ( $source->relative_path_is_directory($rel_pa <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	7677	7782	
==>file($use_file);

      unshift @use_lines, "#line 1 \"$use_file\"\n";
      push @use_lines, "#line $line <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	5893	5989	
==>decl")) {
    my $run_core_func = $trans->run_core_func_decl($base);
    print HEADER "$run_core_ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	66871	66983	
==>ncorrect specification of a repeated subrule",
					       $line);
					_hint("Repeated subrules like \"$code$arg <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3253	3362	
==>bug together.
        if ($conf->data->get('ld_debug') =~ /-debug/) {
            my $linkflags = $conf->data- <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4757	4866	
==>bug together.
        if ($conf->data->get('ld_debug') =~ /-debug/) {
            my $linkflags = $conf->data- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2553	2651	
==>me => 'op', Attributes => { kind => 'infix', name => $self->op } });
    $self->left->sax($handler) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2430	2528	
==>me => 'op', Attributes => { kind => 'infix', name => $self->op } });
    $self->left->sax($handler) <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	2005	2097	
==>$$textref,$_[4],$_[1]+$_[5])=$extra} ;	#CHOP OUT PREFIX & MATCH, IF POSSIBLE
		pos($$textref) <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	2908	3009	
==>aration:

    pmclass PMCNAME [flags] {

where C<flags> are:

=over 4

=item C<extends PMCPARENT>

All <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035641	1035729	
==>pmc_keyed_str(interpreter, lex_pad, lex_name);\n    if (!result) {\n\treal_exception(inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036805	1036893	
==>pmc_keyed_str(interpreter, lex_pad, lex_name);\n    if (!result) {\n\treal_exception(inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838600	838747	
==>"p"
                            ],
                  "BODY" => "#line 246 \"src/ops/stack.ops\"\n  (void)stack_pop(interpreter, &CONTEXT(interpreter <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	845	939	
==>o '/usr/lib'.

=item C<includedir>

The header directory. Defaults to '/usr/include'.

=back

= <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	1074	1168	
==>o '/usr/lib'.

=item C<includedir>

The header directory. Defaults to '/usr/include'.

=back

= <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9352	9468	
==>sub output_popint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);
    if ($self->{DEBUG}) {
        my <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9046	9162	
==>sub output_popint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);
    if ($self->{DEBUG}) {
        my <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	75	167	
==>gdbm.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/gdbm.pm - Test fo <==
3	/Users/nnunley/parrot/tools/dev/mk_inno.pl	333	433	
==>l - Create a script for Inno Setup

=head1 SYNOPSIS

    % perl tools/dev/mk_inno.pl [options]

=head <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15572	15659	
==>x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
    r <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16751	16838	
==>x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
    r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698728	698924	
==>ic",
                              "ic",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699730	699926	
==>ic",
                              "ic",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	37277	37372	
==>p_string,
  'string-length' => \&_op_string_length,
  'string-ref'    => \&_op_string_ref,
  'st <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946847	947069	
==>DE" => 1065,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 526 \"src/ops/string.ops\"\n  INTVAL n = Parr <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	2916	3027	
==>q "<=");
	return 10 if ($op eq "<>");
	return 10 if ($op eq ">");
	return 10 if ($op eq "<");
	return 15 if ($op <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5789	5891	
==>te');

  my $item = _get_arg($node,1);

  return __quoted ($self, $item, $return, {});
}

sub _op_quasi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168473	168561	
==>Y" => "#line 204 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169415	169503	
==>Y" => "#line 204 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24016	24102	
==>'','lt', [$return,$temp,"NEXT_$label"]);
    $self->_add_inst('','set',[$return,$temp]) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	922917	923183	
==>e->get_string(interpreter, {{\@2}}), {{\@3}})\n    );\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	26886	26988	
==>ctions
 # or regular expressions

	@extracted = extract_multiple($text,
				      [ \&extract_bracketed <==
3	/Users/nnunley/parrot/lib/File/Which.pm	6184	6279	
==>r not. Could someone please tell
me?

=head1 Author

Per Einar Ellefsen, E<lt>per.einar (at) sky <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94929	95028	
==>"#line 63 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95822	95921	
==>"#line 63 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96715	96814	
==>"#line 63 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\ <==
3	/Users/nnunley/parrot/config/auto/format.pm	331	422	
==>s);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step;

$description <==
3	/Users/nnunley/parrot/config/init/hints.pm	371	462	
==>s);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step;

$description <==
3	/Users/nnunley/parrot/config/init/miniparrot.pm	616	707	
==>s);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step;

$description <==
3	/Users/nnunley/parrot/Configure.pl	10249	10358	
==>!)
After that, you can use `$make test' to run the test suite.

Happy Hacking,
        The Parrot Team

END

e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035564	1035654	
==>PMC *result = NULL;\n\n    if (!PMC_IS_NULL(lex_pad))\n\tresult = VTABLE_get_pmc_keyed_str( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036728	1036818	
==>PMC *result = NULL;\n\n    if (!PMC_IS_NULL(lex_pad))\n\tresult = VTABLE_get_pmc_keyed_str( <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	15802	15917	
==>{todo};

            my $pass = $builder->$meth( $real_output, $expected, $desc );
            $builder->diag("'$cmd <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	18353	18468	
==>{todo};

            my $pass = $builder->$meth( $real_output, $expected, $desc );
            $builder->diag("'$cmd <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	5507	5603	
==>JUMP};
}

=item C<full_body()>

For manual ops, C<full_body()> is the same as C<body()>. For auto <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2504	2612	
==>($in =~ m/^\d+$/s) {
    return 0 + $in;
  } else {
    return $Name2character_number{$in}; # returns undef i <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	218	305	
==>form

=head1 DESCRIPTION

C<Parrot::OpTrans::CPrederef> inherits from C<Parrot::OpTrans: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009325	1009621	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compose",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010089	1010385	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compose",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	52042	52151	
==>ad,$line,"<reject>");
				$prod and $prod->additem($item)
				      or  _no_rule("<reject>",$line);
			}
			el <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	17756	17853	
==>ified implicit construction of nested objects.
   Now will also take an object ref instead of requ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2092	2181	
==>$self->{TEXT}</p>\n\n" . $index_html if $self->{TEXT};
		$index_html = qq(<h2>$self->{NAME <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332260	332406	
==>s"
                            ],
                  "BODY" => "#line 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333538	333684	
==>s"
                            ],
                  "BODY" => "#line 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	1166	1260	
==>'};
my $ccflags = $PConfig{'ccflags'} . " -DPARROT_IN_CORE";
while ($cc_inc  =~ s/-I(\S+)//g) { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621415	621522	
==>\n    }\n    lru = &mic->lru;\n    if (lru->u.signature == sig) {\n\tif (sig) {\n\t    n = ((arg_pass_f)lru- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623584	623691	
==>\n    }\n    lru = &mic->lru;\n    if (lru->u.signature == sig) {\n\tif (sig) {\n\t    n = ((arg_pass_f)lru- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752565	752803	
==>"TYPE" => "inline",
                  "CODE" => 848,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 256 \"src/ops/set.ops <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	9044	9147	
==>{
			pos($$textref) -= length($1);	# CUT OFF WHATEVER CAUSED THE SHORTNESS
			goto short if ($omode eq ' <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	632	728	
==>r = <<'PIR';
${ITEMP0} = elements lazy_moves
${ITEMP1} = stack_depth
SRM_LMKILL$suffix:
    if ${ <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	15344	15458	
==>'
    # Loop through each vector, doing the ops.
    .local pmc iter1, iter2
    iter1 = new .Iterator, op1
    ite <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3785	3886	
==>declaration has no fnlib property, and parent module has no fnlib property either!")
        unless $m <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6449	6550	
==>declaration has no fnlib property, and parent module has no fnlib property either!")
        unless $m <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	2066	2184	
==>pe_map {
    my $t = $_[0];
    return $type_map{$t} if $type_map{$t} ;
    return $t;
}
sub parse_dis
{
    my @d = @_ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16675	16769	
==>ery cautiously:
        $x =~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefg <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10123	10213	
==>ery cautiously:
    $x =~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefg <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	10589	10749	
==>.h
fmaxl       math.h
fmin        math.h
fminf       math.h
fminl       math.h
fmod        math.h
fmodf       math.h
fmodl       math.h
fopen       stdio.h
fpcla <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	18031	18144	
==>lf->{Curr_Test}++;

    $self->{Test_Results}[$self->{Curr_Test}-1] = &share({
        'ok'      => 1,
        act <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	18896	19009	
==>lf->{Curr_Test}++;

    $self->{Test_Results}[$self->{Curr_Test}-1] = &share({
        'ok'      => 1,
        act <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11069	11173	
==>$item);
		push @args, [ $a1, @$item ];
	}
	#foreach(@args) {
		#push @$code, qq{\t.arg $_->[0]\t\t# $_->[ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	43059	43184	
==>w->[2];
      $self->{code} .= join ", ",@$label if $label;
    }
    $self->{code} .= "\n";
  }
}

sub new {
  my $class = sh <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710805	710913	
==>INTVAL_FMT, (INTVAL){{\@1}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711639	711747	
==>INTVAL_FMT, (INTVAL){{\@1}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1955	2049	
==>>value);
    $self->SYNTAX_ERROR("Expression involves unknown variable %s.", $left->value) unle <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1913	2007	
==>>value);
    $self->SYNTAX_ERROR("Expression involves unknown variable %s.", $left->value) unle <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1835	1929	
==>>value);
    $self->SYNTAX_ERROR("Expression involves unknown variable %s.", $left->value) unle <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	620378	620586	
==>ARROT_JUMP_RELATIVE",
                  "NAME" => "pic_get_params__",
                  "FLAGS" => ":pic",
                  "ARGDIRS" => [
                                 "i"
                               ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054426	1054524	
==>tinternal_exception(1, \"Tried to get null global.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055553	1055651	
==>tinternal_exception(1, \"Tried to get null global.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	4748	4855	
==>ops->ops;
my $num_entries = $num_ops + 1; # For trailing NULL


#
# Open the output files:
#

if (!$dynamic_ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76851	76958	
==>D_TRACE/2)
			. "...<$count>..."
			. substr($_[0],-$::RD_TRACE/2);
	}
	else
	{
		return $_[0];
	}
}

sub _t <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4978	5076	
==>($ansi_c89_symbol{$_}) } @external_calls;
    
    printf("Found %d functions which are defined and <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	672	766	
==>les', '', 'examples/pir'),
		$self->new_group('Tests', '', 't/compilers/imcc'),
	);
}

=back

= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94956	95065	
==>\"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95849	95958	
==>\"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96742	96851	
==>\"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Test/More.pm	3158	3269	
==>hen you will not know beforehand how many tests
your script is going to run.  In this case, you can declare that <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1643	1733	
==>st::PGE::_generate_subrule_pir($target, $pattern)
        : Parrot::Test::PGE::_generate_pi <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2166	2256	
==>st::PGE::_generate_subrule_pir($target, $pattern)
        : Parrot::Test::PGE::_generate_pi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813945	814208	
==>}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814567	814830	
==>}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	815195	815458	
==>}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107746	1108071	
==>ject_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1226,
                  "ARGS" => [
                              "p",
                              "p <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	3931	4033	
==>ut

sub file_paths()
{
    my $self = shift;

    return sort grep {-f} $self->file_and_directory_paths <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	614	712	
==>rrent stack to register mapper\n";
}

# Label generation.
sub gen_label {
	die "gen_label not imple <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122128	122361	
==>AST(UINTVAL, {{\@1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123040	123273	
==>AST(UINTVAL, {{\@1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	23883	23981	
==>ERR.

=item B<todo_output>

    $Test->todo_output($fh);
    $Test->todo_output($file);

Where diag <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2965	3083	
==>ps = (
    'op' => "cur_opcode[%ld]",

    'i'  => "IREG(%ld)",
    'n'  => "NREG(%ld)",
    'p'  => "PREG(%ld)",
    ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1885	1997	
==>ps = (
  'op'  => "cur_opcode[%ld]",

  'i'   => "IREG(%ld)",
  'n'   => "NREG(%ld)",
  'p'   => "PREG(%ld)",
  ' <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4984	5082	
==>nit($class);
    $self;
}

=back

=head2 Instance Methods

=over

=item C<line_directive($self,$lin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10642	10931	
==>se_core,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 14,
                  "ARGS" => [
                              "i"
                            ], <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2336	2442	
==>) }
sub end_head4       { $_[0]->emit_par(-1) }
sub end_Para        { $_[0]->emit_par( 0) }
sub end_item_bu <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1904	2010	
==>) }
sub end_head4       { $_[0]->emit_par(-1) }
sub end_Para        { $_[0]->emit_par( 0) }
sub end_item_bu <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2110	2215	
==>Indent'} }
sub   end_over_block   { --$_[0]{'Indent'} }


# . . . . . Now the actual formatters:

sub end_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1678	1783	
==>Indent'} }
sub   end_over_block   { --$_[0]{'Indent'} }


# . . . . . Now the actual formatters:

sub end_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17101	17205	
==>$paras;
    $para_type = $para->[0];

    DEBUG > 1 and print "Pondering a $para_type paragraph, given th <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3130	3228	
==>also create any lib-GROUP.c files

    generate_dump($_) foreach (@pmcs);
    generate_c($_) foreac <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3234	3332	
==>also create any lib-GROUP.c files

    generate_dump($_) foreach (@pmcs);
    generate_c($_) foreac <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2301	2393	
==>ml;
}

=item C<write_contents_html($source, $target, $silent)>

Iterates over the group's con <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2806	2927	
==>AGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $P <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3115	3236	
==>AGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $P <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2910	3031	
==>AGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $P <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	14928	15049	
==>$pname}{$meth};
                my $super_mmd = $all->{$pname}{methods}[$n]{mmds};
                if ($super_mmd && scala <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	281	376	
==>PTION

A documentation section describing all the C source code in Parrot.

=head2 Class Methods <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	15812	15930	
==>ENEXT")      if ($next);
        # I'm assuming the op branches to the value in the last argument.
        or_flag(\$ju <==
3	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	927	1023	
==>neral when svn is not available).
# See docs/submissions.pod on how to recreate this file after S <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3782	3878	
==>neral when svn is not available).
# See docs/submissions.pod on how to recreate this file after S <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31144	31268	
==>_end,
    );
    return \@opcodes;
}

sub BuildForList {
    my ( $parser, $vars, $exprs, $block ) = @_;
    my @opcod <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	1282	1375	
==>[ return_type method_name parameters section MMD_type ]

for each vtable method defined in C<$ <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6179	6272	
==>SER_FIRST
} parrot_mmd_func_enum;

/* &end_gen */

#ifdef PARROT_IN_OBJECTS_C
static const cha <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	8587	8715	
==>$name,
      link          => BASEHTTPDIR . $name, 
    };
  return ();
}

sub runcore2human {
  my %runcore = (
	  goto => "comp <==
3	/Users/nnunley/parrot/config/auto/msvc.pm	1874	1996	
==>eprecated
        # functions with the following message.
        #
        # This function or variable may be unsafe. Cons <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	2266	2380	
==>mount) = @_;
    $amount = 1 if ! defined($amount);
    return "add $var, $amount";
}

sub output_assign {
    my ( <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22403	22499	
==>ren}[1]);
  $return = $self->_constant(1);
  my $temp_1 = $self->_constant(2);
  $self->_add_inst <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22904	23000	
==>ren}[1]);
  $return = $self->_constant(1);
  my $temp_1 = $self->_constant(2);
  $self->_add_inst <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	330054	330148	
==>Y" => "#line 169 \"src/ops/dotgnu.ops\"\n  {{\@1}} =  (FLOATVAL)(Parrot_Float8)({{\@1}});\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10450	10563	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE|PARROT_JUMP_ENEXT|PARROT_JUM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64039	64152	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE|PARROT_JUMP_ENEXT|PARROT_JUM <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	40280	40376	
==>ments is returned. The elements are:

=over 4

=item [0]

the extracted tagged substring (includi <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6669	6814	
==>less match goto match_fail
          match_success:
            print "matched"
            goto match_end
          match_fail:
            print <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7686	7831	
==>less match goto match_fail
          match_success:
            print "matched"
            goto match_end
          match_fail:
            print <==
3	/Users/nnunley/parrot/config/init/hints.pm	188	282	
==>SCRIPTION

Loads the platform and local hints files, modifying the defaults set up in
F<config/ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	31466	31588	
==>$ok = 1;
    my $bigger = keys %$a1 > keys %$a2 ? $a1 : $a2;
    foreach my $k (keys %$bigger) {
        my $e1 = exists $a <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2197	2317	
==>d();
		$retval = eval '$self->_DBParse()';#Do not create stab entry on compile
        $@ and die $@;
	}
	else {
		$ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2115	2230	
==>d();
		$retval = eval '$self->_DBParse()';#Do not create stab entry on compile
        $@ and die $@;
	}
	else {
		$ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	40093	40225	
==>op and $op->isa('BranchOp') ) {
                if ( $op->{result} eq 'break' ) {
                    $parser->Error("no loop to br <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39024	39148	
==>op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $parser->Error("no loop to br <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653587	653843	
==>d\", string_to_cstring(interpreter, {{\@3}}));\n    {{=resume}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654748	655004	
==>d\", string_to_cstring(interpreter, {{\@3}}));\n    {{=resume}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1139	1264	
==>nt->file,
    LINE   => $ident->line,
    VALUE  => $value
  }, $class;

  #
  # Check for a few bad conditions.
  #
  # NOTE: <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1803	2069	
==>e:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 = $N1 / $N2;              # div    N1, N1, N2
$N2 = 1000000.0;              # set    N2, 1000 <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	1803	2069	
==>e:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 = $N1 / $N2;              # div    N1, N1, N2
$N2 = 1000000.0;              # set    N2, 1000 <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	3707	3807	
==>/$pmc.c

src/pmc/$pmc\$(O): src/pmc/$pmc.str \$(NONGEN_HEADERS) \\
        $parent_headers

END
    } <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	2202	2296	
==>iler);
  $compiler->outdent;

  $compiler->emit("_${name}_LEAVE:");
  $compiler->emit("  .retur <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23710	23800	
==>e) = @_;
	
''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Rejecting production<< ( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	1016	1102	
==>(Regex::Ops::Tree::_atom);
@Regex::Ops::Tree::charclass::ISA    = qw(Regex::Ops::Tree:: <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	4817	4959	
==>$asm =~ s/&([INSP])REG/$1REG/g;
                $asm =~ s/&CONST/CONST/g;
                # Use the macro
                $asm =~ s/CALL_FUNCTI <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	8823	8917	
==>k

=head1 SEE ALSO

=over 4

=item F<tools/build/jit2c.pl>

=item F<tools/build/pmc2c.pl>

=ite <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	639876	639973	
==>= NULL; /* just for cc */\n\t  break;\n  }\n  {{\@1}} = VTABLE_instantiate(interpreter, class, sig <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2525	2620	
==>C<$expected>
parameter.  Note that C<$expected> is a I<Perl 5> pattern.

=cut

sub p6rule_like { <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	570	661	
==>ew(
		'Libraries', 'libs.html', '',
		$self->new_group('Parrot Core Libraries', '', 'runtime <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5721	5848	
==>g & 0x08
#DBG>	and	print STDERR "Stack:[".
#DBG>					 join(',',map { $$_[0] } @$stack).
#DBG>					 "]\n";


        if  (e <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5448	5569	
==>g & 0x08
#DBG>	and	print STDERR "Stack:[".
#DBG>					 join(',',map { $$_[0] } @$stack).
#DBG>					 "]\n";


        if  (e <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	4658	4752	
==>static_string_${line}_data)
    }},
    (PObj_constant_FLAG|PObj_external_FLAG)
    GC_DEBUG_VE <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23946	24085	
==>ue>);
    #   redo unless (<value> <op> <value>);
    #
    #   redo <label>;
    #   redo <label> if     (<value> <op> <value>);
    #   re <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	14938	15040	
==>rint "Discarding complaint (at line $_[0]) $_[1]\n because no_whining is on.\n";
    return;
  }
  retu <==
3	/Users/nnunley/parrot/config/inter/charset.pm	1195	1289	
==>as built by 'config/inter/charset.pm'

E_NOTE

    foreach my $charset (split(/\s+/, $charset_l <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	5121	5240	
==>cut

sub exported_to {
    my($self, $pack) = @_;

    if( defined $pack ) {
        $self->{Exported_To} = $pack;
    } <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	43079	43183	
==>pe: \# (not the end of the q!) #'
	
	extract_quotelike '  "You said, \"Use sed\"."  '

	extract_quotelike <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	4939	5032	
==>ode)){
	print join(',', unpack("c*", substr($byte_code, $offset, 20)));
	print ",\n";
	$offset <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	10572	10715	
==>", ", scalar $op->arg_dirs
            ? map { $arg_dir_mapping{$_} } $op->arg_dirs
            : 0
        ) . " }";
        my $labels     = " <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	35429	35569	
==>"%" => 76,
			"*" => 80,
			".." => 71,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -68
	},
	{#State 132
		ACTIONS = <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2670	2758	
==>prederef(interpreter, pop_dest(interpreter))";
}

=item C<expr_address($address)>

Same l <==
3	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	2594	2706	
==>print "** $0: writing parrot build scripts\n";

    ## GCC ##

    print "- miniparrot/build_gcc.sh\n";
    open( <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	10930	11050	
==>, $expect, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # undef onl <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	11348	11468	
==>, $expect, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # undef onl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453107	453332	
==>ne 230 \"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453846	454071	
==>ne 230 \"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	53112	53206	
==>references, specifying the extractors
to be used to split the string. If this argument is omitt <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2746	2842	
==>st_type;
  $self->INTERNAL_ERROR("No type for left!")  unless defined $left_type;
  $self->INTERN <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2512	2608	
==>st_type;
  $self->INTERNAL_ERROR("No type for left!")  unless defined $left_type;
  $self->INTERN <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2434	2530	
==>st_type;
  $self->INTERNAL_ERROR("No type for left!")  unless defined $left_type;
  $self->INTERN <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3559	3693	
==>m/^0?x([a-fA-F0-9]{1,10})$/s ? hex($1)
                                      # yes, tolerate hex!
    : ($ENV{'RTFDEFLANG'} || '') =~ m <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6309	6423	
==>nge=TRUE           ' Force first pass through the array.
WHILE Exchange          ' Sort until no elements are excha <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15962	16076	
==>nge=TRUE           ' Force first pass through the array.
WHILE Exchange          ' Sort until no elements are excha <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	18446	18554	
==>ories) and recreate the data structure.

=cut

sub read_dump {
    my ($include, $file) = @_;

    $file =~ s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22441	22552	
==>ake sure it's contentful!
      last;

    } elsif ($pattern =~ m{<head(\d)>(.+)</head\d>$}
      and !( $1 eq ' <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29100	29217	
==>c=~s/{/\\{/g;

	bless 
	{
		"pattern"     => $pattern,
		"lookahead"   => $_[2],
		"line"        => $_[3],
		"descript <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31204	31315	
==>c=~s/{/\\{/g;

	bless 
	{
		"pattern"   => $pattern,
		"lookahead" => $_[2],
		"line"      => $_[3],
		"descript <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	4472	4572	
==>sion($ops->version);

# verify opcode numbers
my $seq = 0;
for(@{$ops->{OPS}}) {
    next if ($_->{CO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107174	107491	
==>= {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108028	108345	
==>= {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108882	109199	
==>= {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
3	/Users/nnunley/parrot/config/gen/config_h.pm	1017	1134	
==>'/*',
        ignorePattern => 'PARROT_CONFIG_DATE',
        feature_file  => 1
    );

    my $hh = "include/parrot/h <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	1373	1487	
==>E CELLSPACING="0" WIDTH="730">
            <TR>
                <TD WIDTH="100%" COLSPAN="2" CLASS="BANNER">parrotc <==
3	/Users/nnunley/parrot/config/auto/perldoc.pm	609	716	
==>ut('perldoc -ud c99da7c4.tmp perldoc') || undef;

    if (defined $a) {
        if ($a =~ m/^Unknown option: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4897	4986	
==>Construct::Expression::Value::Identifier->new($block, $self->require_ident);
      my $nam <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7891	7980	
==>Construct::Expression::Value::Identifier->new($block, $self->require_ident);
      my $nam <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	9764	9869	
==>J/\n/g;
}

sub path_to_parrot {

    my $path = $INC{'Parrot/Config.pm'};
    $path   =~ s{ /lib/Parrot/Co <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5323	5415	
==>st->sax($handler);
  $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3386	3478	
==>st->sax($handler);
  $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	358	463	
==>ISA = qw/SRM::Base/;

# Constructor. Just base this class on a hash.
sub new() {
	my $invocant = shift;
	r <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	264	369	
==>ISA = qw/SRM::Base/;

# Constructor. Just base this class on a hash.
sub new() {
	my $invocant = shift;
	r <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	172	277	
==>ISA = qw/SRM::Base/;

# Constructor. Just base this class on a hash.
sub new() {
	my $invocant = shift;
	r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327124	327356	
==>terpreter, {{\@1}}, (INTVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327926	328158	
==>terpreter, {{\@1}}, (INTVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	8492	8600	
==>funcs; $i++) {
    if ($i && $i % $CORE_SPLIT == 0 && $trans->can("run_core_split")) {
        print SOURCE $ <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	7451	7561	
==>dump_const_table($pf);
    compile_byte_code($pf, $file_name);

    undef $pf;

    return;
}

#
# MAIN PROGRAM <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	57715	57808	
==>hing up to a comma...">.
The undef third argument means:
I<"...as many times as possible...">, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750387	750473	
==>"BODY" => "#line 204 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_string_native(interpre <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	7509	7610	
==>stream, reverse @stack;	
	#print STDERR "Outta RPN convert\n";
	return(@stream);
}

sub fixup {
	my(@e <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	11056	11167	
==>ches undef and nothing else
        my $test = !defined $got && !defined $expect;

        $self->ok($test, $nam <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	11474	11585	
==>ches undef and nothing else
        my $test = !defined $got && !defined $expect;

        $self->ok($test, $nam <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	25673	25768	
==>//////////////////////////////////////////////
      $self->whine(
        $para->[1]{'start_lin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607580	607836	
==>_get_attr(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608484	608740	
==>_get_attr(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	2874	2974	
==>re $trans_class";

my $trans = $trans_class->new();

# Not used
my $prefix  = $trans->prefix();
my $s <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2873	3007	
==>ption
             \s+ (?:\S+ \s+)? \{ \n     # optional test harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test bo <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4270	4404	
==>ption
             \s+ (?:\S+ \s+)? \{ \n     # optional test harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test bo <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	20486	20606	
==>LOATVAL' if ($func =~ s/_FLOAT$//);
            $right = 'enum_type_STRING'   if ($func =~ s/_STR$//);
            if (ex <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4571	4677	
==>o.
	return "";
}

# Pre and post branch operation hooks.
sub pre_branch($) {
	my $self = shift;
	my $pops = <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2987	3093	
==>o.
	return "";
}

# Pre and post branch operation hooks.
sub pre_branch($) {
	my $self = shift;
	my $pops = <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	6420	6505	
==>t::OpTrans::CGP>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::CSwitc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107144	107405	
==>"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107998	108259	
==>"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108852	109113	
==>"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	273	389	
==>($language eq 'pir') {
        $class = 'Regex::Driver::PIR';
    }

    my $self = bless \%options, $class;
    $sel <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	30891	31006	
==>tab(5)" is).
#

############# Not implemented, I guess.
# Sixth:
# The raw original L<...> content, before text is s <==
3	/Users/nnunley/parrot/tools/build/vtable_extend.pl	2087	2189	
==>ARROT_CALLIN_START(interpreter) will figure out if the stack
   anchor needs setting and, if so, will s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2378	2479	
==>-1) }
sub end_Para        { $_[0]->emit_par( 0) }
sub end_item_bullet { $_[0]->emit_par( 0) }
sub end_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1946	2047	
==>-1) }
sub end_Para        { $_[0]->emit_par( 0) }
sub end_item_bullet { $_[0]->emit_par( 0) }
sub end_ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25388	25482	
==>D_$forloop= $endexpr
@stepcode
	FORLOOP_STEP_$forloop= $stepexpr
FOR_$forloop:
	gt FORLOOP_STEP <==
3	/Users/nnunley/parrot/lib/File/Which.pm	582	695	
==>sh) {
    if ($ENV{PATHEXT} and $Is_DOSish) {    # WinNT. PATHEXT might be set on Cygwin, but not used.
        pu <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	2450	2562	
==>size} == 4) {
        $conf->data->set(float4_t => 'float');
    } else {
        $conf->data->set(float4_t => 'd <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1042	1137	
==>ederef.code))
#define CUR_OPCODE ((opcode_t*)cur_opcode + CONTEXT(interpreter->ctx)->pred_offset <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	976	1071	
==>ederef.code))
#define CUR_OPCODE ((opcode_t*)cur_opcode + CONTEXT(interpreter->ctx)->pred_offset <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1172	1267	
==>ederef.code))
#define CUR_OPCODE ((opcode_t*)cur_opcode + CONTEXT(interpreter->ctx)->pred_offset <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	486772	487037	
==>E" => "ceil",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	487523	487788	
==>E" => "ceil",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
3	/Users/nnunley/parrot/config/auto/jit.pm	4545	4676	
==>xeccapable => 0
            );
        }

        # test for executable malloced memory
        if (-e "config/auto/jit/test_exec_$o <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3298	3411	
==>elf{VALUE}}=$_[0];
    ${$$self{VALUE}};
}

sub YYExpect {
    my($self)=shift;

    keys %{$self->{STATES} <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3133	3239	
==>elf{VALUE}}=$_[0];
    ${$$self{VALUE}};
}

sub YYExpect {
    my($self)=shift;

    keys %{$self->{STATES} <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	746	850	
==>emp->{children}}, $expr;
  }
  elsif ($tokens->[$count] eq "`") {
    $temp = { children => [{ value => ' <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7162	7283	
==>tack-1);
            if ($1 ne $indent) {
                error($file, $line, "Improper indenting for \"$_\"\n(should be \ <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7469	7590	
==>tack-1);
            if ($1 ne $indent) {
                error($file, $line, "Improper indenting for \"$_\"\n(should be \ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	22580	22685	
==>opy $typename\\n"
	save P3
	popp
	restore P1
	ret
OUTOF_$typename: 

OUTOF

}

sub parse_dim {
		feedme;
A <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9742	9844	
==>facilitate the Pugs test suite. It has the
distinction of being the very first module written for Pugs. <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	28255	28352	
==>iters.
If the extraction fails an empty string is returned.

=item [1]

The remainder of the input <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010692	1011009	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011456	1011773	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012221	1012538	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421835	422044	
==>\@1}} = (INTVAL)PIO_bind(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422728	422937	
==>\@1}} = (INTVAL)PIO_bind(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	703	811	
==>"Can't run the test program: $!";
    cc_clean();

    my ($gccversion, $warns, $ccwarn);
    $ccwarn = $conf <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36449	36593	
==>=> 72,
			"%" => 76,
			"*" => 80,
			".." => 71,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -66
	},
	{#State 141
		AC <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1129	1226	
==>ructors

=over 4

=item * C<new()>

Basic constructor.

Accepts no arguments and returns a L<Parro <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	666	763	
==>ructors

=over 4

=item * C<new()>

Basic constructor.

Accepts no arguments and returns a L<Parro <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64904	65042	
==>os,0,
						       "<leftop: $name $3 $name>($1..$2) ");

						pos $grammar = $pos;
					}
					else
					{
						$item = new Parse::RecDe <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	421	547	
==>:Block);


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $kind        = $self->kind;
  my $pe <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	401	527	
==>:Block);


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $kind        = $self->kind;
  my $pe <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	4530	4639	
==>moke-*.html";
  push @{ $cats{$category->($_)} }, $_ for @smokes;

  $cats{$_} = [
    (sort {
      $b->{revi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057150	1057421	
==>on",
                  "CODE" => 1180,
                  "ARGS" => [
                              "p",
                              "kc",
                              "s"
                            ],
                  "BODY" => "#line 194 \"src/ops/var.ops\"\n    {{\ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	28442	28592	
==>n 0;
    }

    return 1 if $a1 eq $a2;

    my $ok = 1;
    my $max = $#$a1 > $#$a2 ? $#$a1 : $#$a2;
    for (0..$max) {
        my $e1 = $_ > $#$a1 ? <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	35560	35677	
==>OC
}

sub IMPORT_NAME {
    my ($n, $c, $cmt) = @_;
    pop @stack;
    print <<EOC;
	\t $cmt XXX
EOC
}
sub IMPORT_FRO <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5721	5859	
==>mp";
 
        # there can be many libs
        my %libs = %{ $class->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # Th <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5932	6070	
==>mp";
 
        # there can be many libs
        my %libs = %{ $class->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # Th <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447766	447870	
==>ps/math.ops\"\n  if ({{\@2}} < 0) {\n    {{\@1}} = - (INTVAL){{\@2}};\n  }\n  else {\n    {{\@1}} = (INTV <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	368	470	
==>se Carp;

use base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $dest, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	359	461	
==>se Carp;

use base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $dest, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	248	350	
==>se Carp;

use base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $dest, <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4377	4536	
==>) {
                	/^\s*sub\s+_Parse\s*{\s*$/ .. /^\s*}\s*#\s*_Parse\s*$/
        	and     do {
                	s/^#DBG>//;
                	push(@drv,$_ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4156	4311	
==>) {
                	/^\s*sub\s+_Parse\s*{\s*$/ .. /^\s*}\s*#\s*_Parse\s*$/
        	and     do {
                	s/^#DBG>//;
                	push(@drv,$_ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	147	242	
==>::Test::Harness - a test harness for languages built on Parrot

=head1 SYNOPSIS

Tell the harnes <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	9005	9115	
==>rs for your test names.
    Very confusing.
ERR

    my($pack, $file, $line) = $self->caller;

    my $todo = $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	12980	13067	
==>"src/ops/core.ops\"\n  opcode_t * loc;\n  stack_push(interpreter, &CONTEXT(interpreter-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13824	13911	
==>"src/ops/core.ops\"\n  opcode_t * loc;\n  stack_push(interpreter, &CONTEXT(interpreter-> <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2229	2317	
==>self->directory_with_name('examples')->directory_with_name('c'),
        $self->directory <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573434	573807	
==>sses",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 655,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253638	253841	
==>,
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 726 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@2}} : {{\@3}};\n <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8435	8542	
==>est::num_of_tests_run");
    }

    if ($Test::num_of_tests_failed) {
        $*ERR.say("# Looks like you fa <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	14056	14165	
==>sub unlike {
    my($self, $this, $regex, $name) = @_;

    local $Level = $Level + 1;
    $self->_regex_ok($t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363536	363638	
==>e){{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364439	364541	
==>e){{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3727	3822	
==>urn $type_for_name{$name} if exists $type_for_name{$name};
	
	return $UNDEFINED;
}

=back

=head <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1325	1425	
==>l = $expected.perl;
    my $test := ($got_perl eq $expected_perl);
    Test::proclaim($test, $desc, $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5221	5337	
==>able
{
    my ($self, $bs) = @_;

    return <<END_C;

    if (!${bs}ops_addr)
	${bs}ops_addr = l_ops_addr;
    if (c <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1093	1202	
==>th_to_parrot();
        my $dir_count      = scalar(File::Spec->splitdir($path_to_parrot));
        my $path_t <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1583	1687	
==>th_to_parrot();
        my $dir_count = scalar(File::Spec->splitdir($path_to_parrot));
        my $path_t <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7887	8058	
==>empar )
                            : @sempar ? $sempar[0] : undef;

            splice(@$stack,-$len,$len);

                $$check eq 'ACCEPT'
            and do { <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7532	7697	
==>empar )
                            : @sempar ? $sempar[0] : undef;

            splice(@$stack,-$len,$len);

                $$check eq 'ACCEPT'
            and do { <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	426	543	
==>e="" unless defined $type;
         $sym="" unless defined $sym;
        unshift(@type, $type);
        unshift(@syms, <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	13427	13544	
==>eamble_ref},
            "t_$temp_num = GET_NCI_S($reg_num);";
        return "t_$temp_num";
    };
}

sub print_funct <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1000	1096	
==>gname of "head1", token(s) for its
content, and then an end-token with the tagname of "head1".

= <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1428	1524	
==>gname of "head1", token(s) for its
content, and then an end-token with the tagname of "head1".

= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786162	786268	
==>@2}}->vtable->get_integer_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787073	787179	
==>@2}}->vtable->get_integer_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7745	7850	
==>H
			@match[8..9,0..1,2..7];				# REM, PRE, BITS
}

sub _match_tagged	# ($$$$$$$)
{
	my ($textref, $pre, $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	296	403	
==>to a native tree.

=cut

sub convert_p6tree {
    my ($self, $tree, $ctx) = @_;
    if (ref($tree) eq 'P6C:: <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21583	21676	
==>ensym();

  $return = $self->_constant(1);
  my $temp = $self->_generate($node->{children}[1]) <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21968	22061	
==>ensym();

  $return = $self->_constant(1);
  my $temp = $self->_generate($node->{children}[1]) <==
3	/Users/nnunley/parrot/config/inter/ops.pm	691	851	
==>p $b)
            }
            grep {
            !/vtable\.ops/
            } glob "src/ops/*.ops"
    );

    my $ops = join ' ', grep { !/obscure\.ops/ } @op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065140	1065234	
==>root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed_str(interpreter, ns_root, {{\@2}});\n    {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066014	1066108	
==>root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed_str(interpreter, ns_root, {{\@2}});\n    {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389597	389800	
==>",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390729	390932	
==>",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interp <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	264	353	
==>and the L<subclasses|/SUBCLASSES> defined in this
file) is used by F<tools/build/pmc2c.pl> <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	3706	3813	
==>n$/
	    or $text =~ /^\#/;
    return &describe_misc_file($info,$text);
}

sub describe_misc_file {
    my( <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	50	146	
==>keeps track of the current stack depth and assigns to
# virtual registers numbered by depth. This <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	50	146	
==>keeps track of the current stack depth and assigns to
# virtual registers numbered by depth. This <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10988	11076	
==>P1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pre_call_HAS_RETURN_${CURIC}
if "${CUR <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8174	8262	
==>P1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pre_call_HAS_RETURN_${CURIC}
if "${CUR <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5836	5924	
==>P1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pre_call_HAS_RETURN_${CURIC}
if "${CUR <==
3	/Users/nnunley/parrot/config/inter/ops.pm	956	1069	
==>sabled - until we can build and load
    # opcode subset libs
    if (0 && $conf->options->get('ask')) {
        p <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4841	4941	
==>lassmatch {
    my ($self, $incexc, $failLabel) = @_;

    my $passLabel = $self->{state}->genlabel(" <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4505	4605	
==>lassmatch {
    my ($self, $incexc, $failLabel) = @_;

    my $passLabel = $self->{state}->genlabel(" <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	805	1071	
==>000
                              #
print "Iterations:    $I4\n"; # print  "Iterations:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	805	1071	
==>000
                              #
print "Iterations:    $I4\n"; # print  "Iterations:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43336	43450	
==>GOTOS => {
			'exp' => 202,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647534	647647	
==>ne 229 \"src/ops/pmc.ops\"\n    {{\@1}} = pmc_type(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648295	648408	
==>ne 229 \"src/ops/pmc.ops\"\n    {{\@1}} = pmc_type(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	164	268	
==>"Syntax error.\n";

    if ( exists $parser->YYData->{nb_error} ) {
        $parser->YYData->{nb_error <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	5399	5498	
==>es but that people hate
to write tests B<at all>.  What was needed was a dead simple module
that too <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2672	2776	
==>t || 0;
	my $index_html = '';
	
	print "\n\n", $self->name unless $silent;
	
	foreach my $content ($self- <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	47215	47311	
==>parse_file($source);
  }
  
  return $new;
}


#------------------------------------------------- <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	4925	5045	
==>r->{"rules"}{$name};
		if ($replace && !$self->{"changed"})
		{
			$self->reset;
		}
		return $self;
	}
	else
	{
		return <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2450	2532	
==>amples/mops/mops.cs>,
F<examples/mops/mops.il>,
F<examples/mops/mops.p6>,
F<example <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	2450	2532	
==>amples/mops/mops.cs>,
F<examples/mops/mops.il>,
F<examples/mops/mops.p6>,
F<example <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	531494	531757	
==>NAME" => "cosh",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
3	/Users/nnunley/parrot/config/auto/gc.pm	1062	1173	
==>sif ($gc eq 'libc') {

        # tests mallinfo after allocation of 128 bytes
        if ($conf->data->get('i_ma <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	68987	69091	
==>c = "";

		$grammar =~ m/\G\s+/gc;
	}

	unless ($ERRORS or $isimplicit or !$::RD_CHECK)
	{
		$self->_chec <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33745	33864	
==>lice @{shift @$paras},2;
            } else {
              DEBUG and print "Can't assimilate following ", $paras->[0][0 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35558	35677	
==>lice @{shift @$paras},2;
            } else {
              DEBUG and print "Can't assimilate following ", $paras->[0][0 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	39479	39604	
==>[$i]) { # just for aliasing
            while( $line =~
              # Sort of adapted from Text::Tabs -- yes, it's hardwired <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122085	122199	
==>the equivalent unsigned.\n   */\n  LVALUE_CAST(UINTVAL, {{\@1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122997	123111	
==>the equivalent unsigned.\n   */\n  LVALUE_CAST(UINTVAL, {{\@1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964293	964624	
==>s_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1085 <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	975	1078	
==>nvert to decimal:
  if($in =~ m/^(0[0-7]*)$/s ) {
    $in = oct $in;
  } elsif($in =~ m/^0x([0-9a-fA-F]+ <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2334	2437	
==>nvert to decimal:
  if($in =~ m/^(0[0-7]*)$/s ) {
    $in = oct $in;
  } elsif($in =~ m/^0x([0-9a-fA-F]+ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	18077	18230	
==>$self->{Curr_Test}-1] = &share({
        'ok'      => 1,
        actual_ok => 1,
        name      => '',
        type      => 'skip',
        reason    = <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	40851	40966	
==>~~~~~
      $para->[0] =~ s/^[~=]//s;

      DEBUG and print "\n", pretty($para), "\n";

      # traverse the treele <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	2566	2680	
==>skip over?
        } elsif ($line eq "" && (!$cur_method || $cur_method->{'unimplemented'})) {
            # Do not <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2387	2609	
==>> '',
            ar_out               => '-out:',
            slash                => '\\',
            blib_dir             => 'blib\\lib',
            ccflags              => $ccflags,
            ccwarn               => <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4283	4505	
==>> '',
            ar_out               => '-out:',
            slash                => '\\',
            blib_dir             => 'blib\\lib',
            ccflags              => $ccflags,
            ccwarn               => <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	3072	3189	
==>ine
  chomp $line;
  $line =~ s/#.*//;
  $line =~ s/\s*$//;
  next unless $line;

  # Is it a section line? If so, ext <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	26027	26188	
==>->rewrite($R, $lastback);

    my @ops = (
                        aop('pushindex'),
                        aop('goto', [ $next ]),
               $back => aop(' <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	9	110	
==>ME

Parrot::Test::PGE - test functions for Perl 6 Grammar Engine

=head1 SYNOPSIS

In a .t file:

  us <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	51671	51768	
==>OTREE}{NODE}
						= new Parse::RecDescent::Action(q{{bless \%item, $item[0]}},0,-1);
					$self-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449863	450107	
==>,
                  "CODE" => 515,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 195 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	1326	1430	
==>'module' or $kind eq 'sub' or $kind eq 'var' or $kind eq 'arg' or $kind eq 'const';

  my $self = bless { <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1533	1646	
==>st  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  my $dest_sym <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1491	1604	
==>st  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  my $dest_sym <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1413	1526	
==>st  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  my $dest_sym <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	7761	7866	
==>lehandles; we must not let them get closed.
    open  OLDOUT, ">&STDOUT" or die "Can't save     stdout" if <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	505	610	
==>$x = [$_[1], $_[2]];
  if($_[0]{'_currpos'}) {
    push    @{ $_[0]{'_currpos'}[0] }, $x; # insert in pare <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7812	7916	
==>lehandles; we must not let them get closed.
    open OLDOUT, ">&STDOUT" or die "Can't save     stdout" if <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744306	744537	
==>ing_from_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745072	745303	
==>ing_from_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	42618	42735	
==>gling E node ", pretty($treelet->[$i]), "\n";

      # bitch if it's empty
      if(  @{$treelet->[$i]} == 2
       or <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	2059	2157	
==>rent PMC. PMCs default to
inheriting from 'default'. Only single inheritance is supported.

Once th <==
3	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	401	496	
==>, removed LOAD message, renamed intermediate compile files
#
# Revision 1.7  2002/05/24 03:59:46 <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5906	6014	
==>my $entry (@{$vtable}) {
    next unless ($entry->[4] =~ /MMD_/);
    next if ($entry->[4] =~ /_INT$/);
    n <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6324	6432	
==>my $entry (@{$vtable}) {
    next unless ($entry->[4] =~ /MMD_/);
    next if ($entry->[4] =~ /_INT$/);
    n <==
3	/Users/nnunley/parrot/config/init/hints/solaris.pm	1227	1330	
==>ommand("$cc -o test test.c", 'test.cco', 'test.cco')
            and confess "C compiler failed (see tes <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	8776	8884	
==>"switch",
	  fast => "fast",
	  default => "default",
  );

  $runcore{$_[0]};
}

sub runcore_from_args {
  l <==
3	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	911	1007	
==>butions or in general when svn is not available).
# See docs/submissions.pod on how to recreate t <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3766	3862	
==>butions or in general when svn is not available).
# See docs/submissions.pod on how to recreate t <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7343	7453	
==>shift;
	my $pir = "";

	# If the register name to load from was supplied, we put it on the lazy
	# moves stack. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848218	848307	
==>=> "#line 78 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@1}}, {{\@2} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848998	849087	
==>=> "#line 78 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@1}}, {{\@2} <==
3	/Users/nnunley/parrot/tools/dev/as2c.pl	1336	1464	
==>\d+\s+(\w+):/) {
	    print " " x 26, " /* $1: */\n";
	}
	elsif ($in_comment) {
	    print " * $_\n";
	}
    }
    print "    0x0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679139	679229	
==>s/pmc.ops\"\n    {{\@1}}->vtable->unshift_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679918	680008	
==>s/pmc.ops\"\n    {{\@1}}->vtable->unshift_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769812	769986	
==>",
                              "i"
                            ],
                  "BODY" => "#line 350 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770665	770839	
==>",
                              "i"
                            ],
                  "BODY" => "#line 350 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	4887	4987	
==>l one of these methods.

=over 4

=item B<exported_to>

  my $pack = $Test->exported_to;
  $Test->exp <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10467	10566	
==>]]{ACTIONS}{error}.
#DBG>						 ".\n";

		push(@$stack, [ $$states[$$stack[-1][0]]{ACTIONS}{error <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9998	10094	
==>]]{ACTIONS}{error}.
#DBG>						 ".\n";

		push(@$stack, [ $$states[$$stack[-1][0]]{ACTIONS}{error <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518080	518240	
==>"
                            ],
                  "BODY" => "#line 734 \"src/ops/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518819	518979	
==>"
                            ],
                  "BODY" => "#line 734 \"src/ops/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21094	21186	
==>print "Goodbye, world"

' Column alignment
print "Hello";tab$(15);"World"
print "Foo";tab$(15 <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	4335	4481	
==>e) = @_;

    my $line = 0;
    foreach (@$source) {
        $line++;
        next unless $_;

        if (/\}\s*else\s*\{/) {
            error($f <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	12136	12265	
==>DE' => 6,
			"^" => 9,
			"(" => 10,
			"[" => 14,
			"." => 15
		},
		GOTOS => {
			'charclass' => 12,
			'expr' => 11,
			'regex <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981588	982035	
==>,
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1101,
                  "ARGS" => [
                              "i",
                              "i",
                              "s",
                              "i",
                              "ic"
                            ],
                  "BODY" => " <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	61610	61769	
==>n
        #    0x04         Driver actions (shifts, reduces, accept...)
        #    0x08         Parse Stack dump
        #    0x10         Error Recovery t <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5700	5806	
==>$stem$LOAD_EXT", $libs, [ "$stem$O" ]))
          or die "partial link $stem$LOAD_EXT failed ($?)\n";
    } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539602	539893	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066144	1066435	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	43695	43797	
==>, 0, 1);
	# return _generate(@_);
	# Apart from modifying @_, they are equivalent to the rather ungainl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952340	952478	
==>"ic"
                            ],
                  "BODY" => "#line 540 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(inter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953301	953439	
==>"ic"
                            ],
                  "BODY" => "#line 540 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(inter <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	13078	13177	
==>element value.  If the element type is
C<'*%'>, a reference to the hash element is returned.

As a s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950653	950981	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951613	951941	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952573	952901	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956775	957046	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_encoding", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957679	957950	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_encoding", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	625285	625410	
==>[2]) : NULL;\n    }\n    else\n        args[0] = NULL;\n    /* set_args */\n    n_args = 0;\n    sig = mic->m.sig;\n    ASSERT <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	1488	1638	
==>_inc' => '-I./include',
             'cc_ldflags' => '',
             'cc_o_out' => '-o ',
             'cc_shared' => ' ',
             'ccflags' => ' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	343	442	
==>atement::Decrement;

use Carp;

use base qw(Jako::Construct::Statement);

sub new
{
  my $class = sh <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943384	943648	
==>" => "charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944172	944436	
==>" => "charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	250071	250330	
==>@1}};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "not",
                  "FL <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	590	693	
==>ptions(
	"parrot=s" => \$parrot_path,
	"srm=s" => \$srm,
	"monolib=s" => \$mono_lib_path
);

# Get <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4558	4661	
==>close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note that for loading debugging versio <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4330	4427	
==>close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note that for loading debugging versio <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1323	1447	
==>@{$opcodes};
        $defn = $opcodes->[-1]->{result};
    }
    return [ $defn, $opcodes ];
}

sub PushScopeF {
    m <==
3	/Users/nnunley/parrot/config/init/defaults.pm	605	723	
==>p
{
    my ($self, $conf) = @_;

    # We need a Glossary somewhere!
    $conf->data->set(
        debugging => $conf-> <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	3790	3906	
==>frac34'   , 190,
 'iquest'   , 191,
 'Agrave'   , 192,
 'Aacute'   , 193,
 'Acirc'    , 194,
 'Atilde'   , 195,
 'Aum <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314108	314346	
==>char)({{\@1}}));\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	315569	315807	
==>char)({{\@1}}));\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	9608	9739	
==>erage</th>
                  <th>Call Coverage</th>
    );

        my $outfile_base = $source_file; 
        $outfile_base =~ s/\// <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	12212	12329	
==>my \$$uid;";
}

sub output_call {
    my ($self, $name, $mode, $uid) = @_;
#    if ($mode) {
        return split(/\n/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208322	208410	
==>DY" => "#line 401 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209263	209351	
==>DY" => "#line 401 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1124	1230	
==>uate op function names.

=cut

sub prefix 
{ 
    return 'Parrot_'; 
}

=item C<suffix()>

Implemented in s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747252	747338	
==>BODY" => "#line 194 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_integer_native(interpre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748037	748123	
==>BODY" => "#line 194 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_integer_native(interpre <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16461	16554	
==>ght = Jako::Construct::Expression::Value->new($block, $self->forth);

      $self->require_sem <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17232	17325	
==>ght = Jako::Construct::Expression::Value->new($block, $self->forth);

      $self->require_sem <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18037	18130	
==>ght = Jako::Construct::Expression::Value->new($block, $self->forth);

      $self->require_sem <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11019	11110	
==>MENT_TYPE_VOID goto pre_call_HAS_RETURN_${CURIC}
if "${CURIC}" == "73" goto pre_call_HAS_RET <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8205	8296	
==>MENT_TYPE_VOID goto pre_call_HAS_RETURN_${CURIC}
if "${CURIC}" == "73" goto pre_call_HAS_RET <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5867	5958	
==>MENT_TYPE_VOID goto pre_call_HAS_RETURN_${CURIC}
if "${CURIC}" == "73" goto pre_call_HAS_RET <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33534	33655	
==>r the cases where we /didn't/ push to @$para
            if($paras->[0][0] eq '~Para') {
              DEBUG and print "As <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35347	35468	
==>r the cases where we /didn't/ push to @$para
            if($paras->[0][0] eq '~Para') {
              DEBUG and print "As <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	485	599	
==>][2] ||= {} }

sub attr      {
  if(@_ == 2) {      # Reading: $token->attr('attrname')
    ${$_[0][2] || return un <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946555	946818	
==>,
                  "NAME" => "find_charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "func <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947456	947719	
==>,
                  "NAME" => "find_charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "func <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	49904	50033	
==>3) + $stack[-1];
      } else {
        # We saw " >>>>" but needed " >>>>>>".  So this is all just stuff!
        DEBUG > 4 and p <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1285	1387	
==>o ${prefix}_ELSE");
    $compiler->emit("${prefix}_THEN:");

    if ($self->content) {
      $compiler- <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2374	2474	
==>lly never used!
  '/L' =>  "</a>",
);

sub changes {
  return map {; m/^([-_:0-9a-zA-Z]+)=([-_:0-9a-z <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12154	12291	
==>PER(args...)
    s/(\w+)             # capture OtherClass
      \.SUPER           # Macro: SUPER
      \(\s*(.*?)\)      # capture argumen <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	193	314	
==>my ($fh) = @_;
        $self->{fh}       = $fh;
        $self->{prologue} = q{.namespace [ "Lua" ]
.HLL "Lua", "lua_gro <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	19915	20025	
==>fined $op) {
	goto plain;
    }
    if ($opcode eq 'Label') {
	$label = "pc_" . $code[$code_l]->[3] . ":";
	$co <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18737	18867	
==>re_value);
          last if $self->get(1)->is_close_paren;
          $self->require_comma;
        }
      }

      $self->require <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19763	19893	
==>re_value);
          last if $self->get(1)->is_close_paren;
          $self->require_comma;
        }
      }

      $self->require <==
3	/Users/nnunley/parrot/config/init/optimize.pm	1286	1413	
==>flags => $opts);
            # record what optimization was enabled
            $conf->data->set(optimize => $opts);
        } e <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	18617	18719	
==>eck next);

    my $matchcount = $self->new_rxlocal($op, "matchcount");

    my ($R_back, @R_ops) = $se <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20205	20307	
==>eck next);

    my $matchcount = $self->new_rxlocal($op, "matchcount");

    my ($R_back, @R_ops) = $se <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16669	16770	
==>m ();
  my $return = $self->_save_1 ('P');

  $self->_add_inst ('', 'new',[$return,'.Undef']);

  my @ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279742	280051	
==>< {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	280597	280906	
==>< {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	281452	281761	
==>< {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687923	688162	
==>on",
                  "CODE" => 772,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 576 \"src/ops/pmc.ops\"\n   {{\@1}}-> <==
3	/Users/nnunley/parrot/config/auto/headers.pm	2406	2527	
==>$conf->data->set(testheader  => undef);

            eval { cc_build(); };
            if (!$@ && cc_run() =~ /^$header OK <==
3	/Users/nnunley/parrot/config/gen/icu.pm	4383	4487	
==>$conf->data->set(testheader  => undef);
    eval { cc_build(); };
    if (!$@ && cc_run() =~ /^$header OK <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	6385	6495	
==>e_global "RANDSEED", \$P0
EOR
		feedme();
	}
}
sub parse_locate {	# locate x,y   | locate x   | locate ,y  
	my <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2769	2869	
==>eturn $pir;
}

# Pre and post stack operation (op class instructions) hooks.
sub pre_op($$) {
	my $se <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1691	1791	
==>eturn $pir;
}

# Pre and post stack operation (op class instructions) hooks.
sub pre_op($$) {
	my $se <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88623	88911	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90951	91239	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91805	92093	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGD <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39654	39751	
==>arg) =
		@{$self}{ qw{leftarg op rightarg} };

	my $code = ''.($::RD_NO_TRACE?'':'
		Parse::RecDes <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	6508	6720	
==>xpect>);
  my $args = unpack("H*", $smoke{harness_args});

  #                           1       2          3        4         5        6         7      8           9        10          ...
  my $str = "parrot-smo <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	7430	7591	
==>mp>', $group ]),
                        $self->dbprint("pushing start[$group]: "),
                        aop('pushint', [ '<tmp>' ]),
                        a <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	20886	20991	
==>d print " (Stack now: ", $self->_dump_curr_open(), ")\n";

      push @$curr_open, $para;
      if(!$dont_ <==
3	/Users/nnunley/parrot/config/gen/icu.pm	4473	4606	
==>=~ /^$header OK/) {

        # Ok, we don't need anything more.
        print "Your compiler found the icu headers... good!\n" if $ver <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1303	1421	
==>= {
        steps   => [],
        data    => Parrot::Configure::Data->new,
        options => Parrot::Configure::Data- <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	2587	2695	
==>efine _CONST_STRING_$line _CONST_STRING_",
		    $this_file_seen{$str}, "\n";
	    }
	    else {
		print "#de <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81707	81967	
==>DE" => 102,
                  "ARGS" => [
                              "p",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 1196 \"src/ops/core.ops\"\n  internal_exception(1 <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5478	5659	
==>( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                    print {$FH} " :slurpy";
                }
                $first = 0;
            }
            print { <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6510	6691	
==>( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                    print {$FH} " :slurpy";
                }
                $first = 0;
            }
            print { <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12754	12849	
==>ush @{$code{$seg}->{code}}, "\t_RESTORE(" . join(",",@args) . ")\n";
}


sub parse_exit {
	if ($ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1050	1141	
==>eft and not UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess "Right is <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1078	1169	
==>eft and not UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess "Right is <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	750	841	
==>eft and not UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess "Right is <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	9035	9140	
==>my $old_lastback = $lastback;
        $lastback = $self->genlabel('debug_matchback');
        @debugging = <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	25712	25807	
==>= extract_delimited($text,$delim);


 # Extract the initial substring of $text that is bracketed <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	610	713	
==>f C<@Parrot::Configure::steps>.

=cut

sub config_groups
{
    my $self = shift;
    my $dist = Parrot:: <==
3	/Users/nnunley/parrot/config/gen/platform.pm	628	729	
==>s->get('verbose');
    my $platform = lc $OSNAME;

    $platform = "ansi"  if defined($conf->options-> <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	10639	10737	
==>by that name is explicitly defined; in the latter case, a
warning is issued if the warning flag (B< <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035530	1035625	
==>interpreter, lex_name, ctx);\n    PMC *result = NULL;\n\n    if (!PMC_IS_NULL(lex_pad))\n\tresul <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036694	1036789	
==>interpreter, lex_name, ctx);\n    PMC *result = NULL;\n\n    if (!PMC_IS_NULL(lex_pad))\n\tresul <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544202	544305	
==>? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = a, saved_var2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545538	545641	
==>? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = a, saved_var2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546874	546977	
==>? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = a, saved_var2 <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	22069	22180	
==>i = 2; $i < @$treelet; ++$i) { # iterate over children
      next unless ref $treelet->[$i];  # text nodes are u <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	28355	28466	
==>i = 2; $i < @$treelet; ++$i) { # iterate over children
      next unless ref $treelet->[$i];  # text nodes are u <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	41812	41923	
==>i = 2; $i < @$treelet; ++$i) { # iterate over children
      next unless ref $treelet->[$i];  # text nodes are u <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754038	754361	
==>i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 850,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 261 \"src/op <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	282	390	
==>T );
@ISA = qw(Exporter Test::More);

sub import {
    my( $class, $plan, @args ) = @_;

    Test::More->impo <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	199	307	
==>T );
@ISA = qw(Exporter Test::More);

sub import {
    my( $class, $plan, @args ) = @_;

    Test::More->impo <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31116	31242	
==>ser,
        'arg1' => $lbl_end,
    );
    return \@opcodes;
}

sub BuildForList {
    my ( $parser, $vars, $exprs, $bl <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	31854	31968	
==>(my $i = 2; $i < @$treelet; ++$i) {
      # iterate over children of current tree node
      next unless ref $treel <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	1181	1276	
==>pmcs.h";
my $date = localtime(time);


opendir PARROT, "$parrot" or die "Supply Parrot directory <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	19587	19719	
==>r
    #   12mar95
    #   Dean Roehrich
    #
    # changes/bugs fixed since 28nov94 version:
    #  - podified
    # changes/bugs fi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892588	892756	
==>"i",
                              "sc"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893723	893891	
==>"i",
                              "sc"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpre <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4988	5076	
==>MP0} = elements lazy_moves
if ${ITEMP0} > 0 goto PRE_BRANCH_${CURIC}_LAZY_MOVE_$register_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958619	958910	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959420	959711	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960222	960513	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "A <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10256	10378	
==>left on stack: aborting.\n";

			return(undef);
		};

		#shift the error token

#DBG>			$debug & 0x10
#DBG>		and	pr <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9796	9910	
==>left on stack: aborting.\n";

			return(undef);
		};

		#shift the error token

#DBG>			$debug & 0x10
#DBG>		and	pr <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	519	612	
==>nings;

use base qw( Parrot::Docs::Group );

use Parrot::Docs::Item;
use Parrot::Docs::Directo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2960	3082	
==>ub line  { return shift->{LINE};     }


#
# compile()
#

sub compile
{
  my $self     = shift; # Required
  my $compiler = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712330	712427	
==>nst io = PIO_STDOUT(interpreter);\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713437	713534	
==>nst io = PIO_STDOUT(interpreter);\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1593	1718	
==>if $distance == 0;

    if ($distance == 1) {
        return "<rx_pos>++;";
    } elsif ($distance == -1) {
        return "<r <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3310	3411	
==>Wrong one"
end function
call mysub( 78, 80)
t$=foo$
print t$
t=0
do
	print "This is right"
	exit do
	p <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6818	6951	
==>nt STDERR "**End of Error recovery.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push(@$stack,[ $act, $$value <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6501	6628	
==>nt STDERR "**End of Error recovery.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push(@$stack,[ $act, $$value <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	4533	4653	
==>packed will harm
            # us -Wpadded may prove interesting, or even noisy.
            # -Wunreachable-code might b <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	1374	1482	
==>eger literals:
    #

    if ($text =~ m{^( 0 | (-?[1-9][0-9]*))($|\W.*$)}x) {
      push @tokens, Jako::Toke <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	34538	34736	
==>RGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 632 \"src/ops/core.ops\"\n  {{\@1}}->vtable->set_point <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6819	6906	
==>cpan.org>

=head1 SEE ALSO

F<docs/configuration.pod>, L<Parrot::Configure>, L<Parrot::C <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	2106	2193	
==>cpan.org>

=head1 SEE ALSO

F<docs/configuration.pod>, L<Parrot::Configure>, L<Parrot::C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079914	1080309	
==>" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1199,
                  "ARGS" => [
                              "p",
                              "i",
                              "k" <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	3142	3257	
==>er->new;
sub new {
    my($class) = shift;
    $Test ||= $class->create;
    return $Test;
}


=item B<create>

  my <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840137	840222	
==>e 272 \"src/ops/stack.ops\"\n  rotate_entries(interpreter, &CONTEXT(interpreter->ctx)- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840832	840917	
==>e 272 \"src/ops/stack.ops\"\n  rotate_entries(interpreter, &CONTEXT(interpreter->ctx)- <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11173	11358	
==>0];
  my $fh = $self->{'output_fh'};
  return print $fh '}'; # that should do it
}

###########################################################################

sub stylesheet {
  return <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2365	2459	
==>>INTERNAL_ERROR("Can't determine type of formal argument (%s)!", $formal_arg_name) 
      unles <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2065	2159	
==>>INTERNAL_ERROR("Can't determine type of formal argument (%s)!", $formal_arg_name) 
      unles <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	16464	16584	
==>example:
		         <$op->{type}op:leftarg /op/ rightarg>");
	    }
	    else
	    {
		push @{$self->{items}},
			Parse:: <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	12373	12481	
==>op(const char * name, int full);

static size_t hash_str(const char * str) {
    size_t key = 0;
    const ch <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	56779	56916	
==>t_delimited($_[0],q{'"}) } },
                        { Brack => sub { extract_bracketed($_[0],'{}') } },
                   ]);

This cal <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	11214	11314	
==>OK, won't accept the code $new_code<...>.\n";
  }
  
  return;
}


#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738153	738243	
==>ine 149 \"src/ops/set.ops\"\n  {{\@1}} = string_to_num(interpreter, {{\@2}});\n  {{+=3}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738917	739007	
==>ine 149 \"src/ops/set.ops\"\n  {{\@1}} = string_to_num(interpreter, {{\@2}});\n  {{+=3}};\n <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	681	782	
==>$compiler);
    $compiler->outdent;
    $compiler->emit(".endnamespace ${namespace}");
  }

  return 1 <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16134	16221	
==>pan.org>

Jesse Vincent <jesse@bestpractical.com>

Yuval Kogman <nothingmuch@woobling.or <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1136	1239	
==>= scalar(File::Spec->splitdir($path_to_parrot));
        my $path_to_language;
        if ($dir_count == <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1621	1724	
==>= scalar(File::Spec->splitdir($path_to_parrot));
        my $path_to_language;
        if ($dir_count == <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	6185	6284	
==>plib";
if (! -d $inc_dir) {
    mkdir($inc_dir, 0755) or die "ops2pm.pl: Could not mkdir $inc_dir: $ <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	3126	3256	
==>g) if $diag;
        }

        # The generated files are left in the t/* directories.
        # Let 'make clean' and 'svn:igno <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2720	2847	
==>g ) if $diag;
        }

        # The generated files are left in the t/* directories.
        # Let 'make clean' and 'svn:igno <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	201	300	
==>class.
sub new() {
	die "Attempt to instantiate abstract class SRM::Base.\n";
}

# Pre and post tran <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	6547	6685	
==>pre\$r->$elem$sel = shift$pst) : $pre\$r->$elem$sel$pst;\n";
            $out .= "  }\n";
        }
    }
    $out .= "}\n1;\n";

    print <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33232	33328	
==>desc = "<matchrule:$desc>" if $_[0]->{"matchrule"};
	return $desc;
}

sub callsyntax($$)
{
	if ($ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35754	35850	
==>desc = "<matchrule:$desc>" if $_[0]->{"matchrule"};
	return $desc;
}

sub callsyntax($$)
{
	if ($ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	3477	3609	
==>ut .= <<"EOC";
    Parrot_Int type${class};
EOC
    }
    $cout .= <<"EOC";
    int pass;

    /*
     * create a library PMC
     */ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	2025	2143	
==>self->{INDENT});
  
  my $fh = $self->{FH};

  print $fh @_, "\n";
}


#
# compile()
#

sub compile
{
  my $self = shif <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5545	5648	
==>1]',$return]);
      $self->_add_inst ('', 'set', [$return,$pair]);
      $self->_restore ($item, $pair) <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17092	17190	
==>1]',$return]);
    $self->_add_inst ('', 'set',[$return,$pair]);

    $self->_restore($item, $pair) <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6579	6672	
==>1]',$return]);
  $self->_add_inst('', 'set', [$return,$pair]);
  $self->_restore($item, $pair) <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	2269	2384	
==>reate_table {
    my ($name) = @_;
    my $len = 8;

    print "const PARROT_CCLASS_FLAGS ${name}[256] = {\n";
    f <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	297	403	
==>or. Just base this class on a hash.
sub new() {
	my $invocant = shift;
	return bless {}, $invocant;
}

# Pr <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	205	311	
==>or. Just base this class on a hash.
sub new() {
	my $invocant = shift;
	return bless {}, $invocant;
}

# Pr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3799	3899	
==>s no fnlib property, and parent module has no fnlib property either!")
        unless $module_props{f <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6463	6563	
==>s no fnlib property, and parent module has no fnlib property either!")
        unless $module_props{f <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	29900	29999	
==>t_p {
}

sub _op_string_ci_gt_p {
}

sub _op_string_ci_le_p {
}

sub _op_string_ci_ge_p {
}

sub _op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514180	514486	
==>3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515060	515366	
==>3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow" <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8309	8403	
==>@{$code{$seg}->{code}}, "\t# $syms[CURR]\n" if $type[CURR] eq "COMM";
		$elsetag--;
		$singleif <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	9393	9532	
==>ult}->{symbol} $dir->{pragma}\n";
        }
        else {
            print {$FH}
                "  .param $dir->{result}->{type} $dir <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	6893	6993	
==>r message if that file cannot be found.

=cut

sub find_file {
    my ($include, $file, $die_unless_f <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	71973	72070	
==>les))
		{
			_error("Rule \"$rule->{name}\" is left-recursive.");
			_hint("Redesign the grammar s <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	22741	22843	
==>ine 177 "lib/Regex/Grammar.y"
{ return $_[1]; }
	],
	[#Rule 43
		 'classpiece', 3,
sub
#line 179 "lib/R <==
3	/Users/nnunley/parrot/lib/Test/More.pm	10925	11028	
==>unctions, too).

    can_ok('Foo', qw(this that whatever));

is almost exactly like saying:

    ok( Foo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92902	93166	
==>FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 115,
                  "ARGS" => <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2368	2479	
==>line %d of file '%s'.",
      $self->name, $sym->line, $sym->file);
  }

  #
  # Now that we've decided to actua <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2115	2226	
==>line %d of file '%s'.",
      $self->name, $sym->line, $sym->file);
  }

  #
  # Now that we've decided to actua <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650778	651048	
==>= 1;\n    else\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651700	651970	
==>= 1;\n    else\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
3	/Users/nnunley/parrot/lib/File/Which.pm	3902	3995	
==>)>), looking for executable files having the name specified
as a parameter to C<which()>. Unde <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	467	569	
==>his script is used for building
dynamic PMCs.

=cut

use strict;

use File::Copy qw(copy);

# qq[] isn' <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	429	531	
==>his script is used for building
dynamic PMCs.

=cut

use strict;

use File::Copy qw(copy);

# qq[] isn' <==
3	/Users/nnunley/parrot/lib/Test/More.pm	12727	12825	
==>test normally just refer to 'the object'.  If
you'd like them to be more specific, you can supply a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843266	843573	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "or <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844144	844451	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "or <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845022	845329	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "or <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411971	412280	
==>{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "po <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514177	514484	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "po <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515057	515364	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "po <==
3	/Users/nnunley/parrot/config/inter/encoding.pm	724	842	
==>get('encoding')
        || join(' ', grep { defined $_ } @encoding);

    if ($conf->options->get('ask')) {
        pri <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2901	3015	
==>RROR';
    undef;
}

sub YYSemval {
	my($self)=shift;
	my($index)= $_[0] - ${$$self{DOTPOS}} - 1;

		$index <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2763	2869	
==>RROR';
    undef;
}

sub YYSemval {
	my($self)=shift;
	my($index)= $_[0] - ${$$self{DOTPOS}} - 1;

		$index <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2107	2208	
==>nd $self->peer->prefix) {
    $self->prefix($self->peer->prefix);
  }

  if ($self->prefix) {
    $han <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1984	2085	
==>nd $self->peer->prefix) {
    $self->prefix($self->peer->prefix);
  }

  if ($self->prefix) {
    $han <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	17809	17902	
==>itempos[$#itempos]{'column'}{'to'} = $prevcolumn;
	}
}

sub code($$$$)
{
	my ($self,$namespace <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	81	186	
==>_OK %EXPORT_TAGS);

$VERSION   = '0.01';
@ISA       = qw(Exporter);
@EXPORT_OK = qw(tokenize);

use Data:: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	2701	2804	
==>ler errors and warnings instead of using
confess() and warn().

=cut

sub set_symbol
{
  my $self = shif <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	1105	1193	
==>:Type::Integer->new($token) if $type eq 'int';
  return Jako::Construct::Type::Number->ne <==
3	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	440	551	
==>ic for cxx, as it is for cc)
        $ccflags .= ' -D_XOPEN_SOURCE=500';
    }
    $conf->data->set(ccflags => $ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6813	6906	
==>mid/left/right  2-9, 1-5, 6-0
t$="1234567890"
print mid$(t$, 2, 8)
print left$(t$, 5)
print ri <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18542	18635	
==>mid/left/right  2-9, 1-5, 6-0
t$="1234567890"
print mid$(t$, 2, 8)
print left$(t$, 5)
print ri <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	2408	2545	
==>elf\n";

  return $self;
}

# ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~

sub get_token {
  my $self = shif <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	20214	20328	
==>st =~ /to (\d+)/) {
	    $targ = "pc_$1";
	}
    }
    elsif ($opcode eq 'JUMP_IF_TRUE') {
	print "\t\t$cmt\n";
	$c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719953	720043	
==>erpreter, \"%.12g\", (double){{\@2}});\n  PIO_putps(interpreter, io, s);\n  if (string_str_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721153	721243	
==>erpreter, \"%.12g\", (double){{\@2}});\n  PIO_putps(interpreter, io, s);\n  if (string_str_ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	28770	28879	
==>}}, $_;
		} else {
			s/\(\)//g;
			$_=changename($_);
			#print STDERR "Marking ${_}${seg}\n";
			$arrays{"${ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864759	864964	
==>" => [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 143 \"src/ops/string.ops\"\n  UINTVAL n;\n  STRING *s = {{\@2}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	2800	2952	
==>1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	36872	37024	
==>1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129621	129843	
==>159,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 301 \"src/ops/bit.ops\"\n  {{\@1}} ^= {{\@2}};\n  {{+ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6516	6611	
==>code{$seg}->{code}}, "$labels{$syms[CURR]}:   # For user branch ($syms[CURR])\n";
		debug() if $ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8796	8891	
==>code{$seg}->{code}}, "$labels{$syms[CURR]}:   # For user branch ($syms[CURR])\n";
		debug() if $ <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	3277	3388	
==>norePattern);
        my $to_sum   = file_checksum($to,   $ignorePattern);
        return if $from_sum == $to_su <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3044	3149	
==>@pmcs) = @ARGV;

if ($mode eq 'generate') {
    # Convert X.pmc -> X.dump and X.c and also create any lib- <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3148	3253	
==>@pmcs) = @ARGV;

if ($mode eq 'generate') {
    # Convert X.pmc -> X.dump and X.c and also create any lib- <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5079	5200	
==>o_source
{
    my $self = shift;
    my $source = shift;
    my @contents = ();
    
    foreach my $content (@{$self->{CO <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	9995	10103	
==>ge Regex::Ops::Tree; # Won't get used much

sub needparen { 0 }

# Nonportable
sub isplain {
    my $ord = sh <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3071	3177	
==>o_source
{
	my $self = shift;
	my $source = shift;
	my @contents = ();
	
	foreach my $content (@{$self->{CO <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1900	2016	
==>m they provided appears to be
    # broken
    if ($ret == -1 and !$conf->options->get('ask')) {

        # fall back <==
3	/Users/nnunley/parrot/config/inter/make.pm	1774	1890	
==>m they provided appears to be
    # broken
    if ($ret == -1 and !$conf->options->get('ask')) {

        # fall back <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1914	2030	
==>m they provided appears to be
    # broken
    if ($ret == -1 and !$conf->options->get('ask')) {

        # fall back <==
3	/Users/nnunley/parrot/config/inter/encoding.pm	949	1062	
==>= prompt('Which encodings would you like?', $encoding_list);
        }
    }

    # names of class files for src/p <==
3	/Users/nnunley/parrot/tools/dev/as2c.pl	775	872	
==>?:NO_)?APP/);	# APP, NO_APP
	chomp;
	if (/^\s*\d+\s[\da-fA-F]{4}\s([\dA-F]{2,8})\s+(.*)/) {
	    i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1174	1270	
==>nd not UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BL <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1202	1298	
==>nd not UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BL <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	874	970	
==>nd not UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BL <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6498	6630	
==>et)
      or return 1;
    for my $source (@sources) {
        return 1 if modtime($source) > $target_mod;
    }

    return 0;
}

su <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4918	5050	
==>et)
      or return 1;
    for my $source (@sources) {
        return 1 if modtime($source) > $target_mod;
    }

    return 0;
}

su <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6709	6841	
==>et)
      or return 1;
    for my $source (@sources) {
        return 1 if modtime($source) > $target_mod;
    }

    return 0;
}

su <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	485	668	
==>X Most of these can probably be cleaned up
my %special = qw(
    NEWS                                            [devel]doc
    PBC_COMPAT                                      [devel]d <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4390	4514	
==>ly important on
			# some platforms
	        if ($^O eq 'hpux' or $^O eq 'cygwin') {
		        chmod 0755, "$dest/$src";
			} <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	563	661	
==>l_source> instead of a list of files.

=head1 TODO

Make better use of CPAN modules.

=head1 HISTOR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650792	651076	
==>\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651714	651998	
==>\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	6856	6991	
==>ts $val->[1]->[-1]->{result}[0]->{pragma} )
            {
                my $callop = $val->[1]->[-1];
                $callop->{res <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	109	202	
==>guage specific testing routines here...

This is currently alarmingly similar to the generated <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	207	300	
==>guage specific testing routines here...

This is currently alarmingly similar to the generated <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	1409	1510	
==>randomize read redim rem reset restore resume
				return rmdir rset run
			screen seek select case sha <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216882	216970	
==>DY" => "#line 462 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217822	217910	
==>DY" => "#line 462 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	310798	310982	
==>{
                  "JUMP" => 0,
                  "NAME" => "debug_print",
                  "FLAGS" => ":base_debug",
                  "ARGDIRS" => [],
                  "TYPE" => "f <==
3	/Users/nnunley/parrot/tools/dev/gen_class.pl	1022	1130	
==>{classname}.pmc
 *  Copyright (C) 2001-2003, The Perl Foundation.
 *  SVN Info
 *     \$Id\$
 *  Overview <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	25467	25566	
==>Directive('if (' .
		($self->{"commitonly"} ? '$commit' : '1') . 
		") { do {$action} unless ".' $_n <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	17900	17997	
==>nested object attributes to undef, rather
   than calling object constructor without args
   Origi <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39509	39603	
==>." ".$op->describe." ".$rightarg->describe.">",
	}, $class;
}

sub code($$$$)
{
	my ($self, $na <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6856	6964	
==>needs_build("$pmc.c", "$pmc.pmc")) {
        run("$PMC2C --c $pmc.pmc")
          or die "pmc2c code generati <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7067	7175	
==>needs_build("$pmc.c", "$pmc.pmc")) {
        run("$PMC2C --c $pmc.pmc")
          or die "pmc2c code generati <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	5646	5744	
==>P0, stolen from embed.c */
    userargv = pmc_new(interpreter, enum_class_PerlArray);
    /* immedi <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9913	10016	
==>k[-1][0]]{ACTIONS})
			        or  not exists($$states[$$stack[-1][0]]{ACTIONS}{error})
					or	$$stat <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9467	9568	
==>k[-1][0]]{ACTIONS})
			        or  not exists($$states[$$stack[-1][0]]{ACTIONS}{error})
					or	$$stat <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1057	1152	
==>el);
    return $code if $options{'no-list-optimize'};

    $ctx->{external_labels}{$pass_label} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162752	163003	
==>ODE" => 196,
                  "ARGS" => [
                              "nc",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 183 \"src/ops/cmp.ops\"\n  if ({{\@1} <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	909	1018	
==>e directories)
        my $lua_test = $ENV{PARROT_LUA_TEST_PROG} || q{};
        my $lang_fn = Parrot::Test: <==
3	/Users/nnunley/parrot/config/auto/msvc.pm	824	932	
==>er any hints-file
    # callbacks that depend on knowing whether or not we're using Visual C++.

    # This k <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	628	723	
==>Computerese>",
  '/Verbatim' => "</pre>\n",
  'VerbatimFormatted'  => "\n<pre$Computerese>",
  ' <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35807	35902	
==>tras)
will be considered failures.  If no tests were ever run Test::Builder
will throw a warning <==
3	/Users/nnunley/parrot/lib/Test/More.pm	33878	33973	
==>tras)
will be considered failures.  If no tests were ever run Test::Builder
will throw a warning <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8201	8325	
==>x of
    .param pmc op1
    .param float op2

    .local pmc result
    result = new 'APLVector'
 
    .local int pos
    pos <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	233	323	
==>::Test::Tcl, which looks like it's
largely a copy of Parrot::Test::Python. Abstraction need <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	271	361	
==>::Test::Tcl, which looks like it's
largely a copy of Parrot::Test::Python. Abstraction need <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	429	526	
==>Config;
use Parrot::Configure::Step ':auto';

$description = 'Determining if your platform support <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	383	480	
==>Config;
use Parrot::Configure::Step ':auto';

$description = 'Determining if your platform support <==
3	/Users/nnunley/parrot/config/auto/readline.pm	390	487	
==>Config;
use Parrot::Configure::Step ':auto';

$description = 'Determining if your platform support <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	14575	14728	
==>cont) {
          $self->SYNTAX_ERROR("No more than one continue block allowed.");
        }
      }

      #
      # 'if' blocks:
      #
      # Continu <==
3	/Users/nnunley/parrot/examples/benchmarks/oo1.pl	52	166	
==>y $o = new Foo();
}
my $o = new Foo();
print $o->[0], "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref <==
3	/Users/nnunley/parrot/examples/benchmarks/oo2.pl	52	166	
==>y $o = new Foo();
}
my $o = new Foo();
print $o->[0], "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	342	458	
==>use base qw(Jako::Construct);

1;

#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $ident) = @_;

  confess <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4161	4266	
==>ot/core_pmcs.h
    # include/parrot/feature.h
    # include/parrot/platform.h
    
    # runtime/parrot/in <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	3750	3851	
==>ttern) = @_;
    copy_if_diff($from, $to, $ignorePattern);
    unlink $from;
}

=item C<genfile($sourc <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	437	538	
==>d logical
    'FE01', 'FE02', 'FE03', 'FE04', 'FE05' # compare
);

# Grab parameters.
my ($rules_file, <==
3	/Users/nnunley/parrot/tools/build/list_unjitted.pl	496	606	
==>p;
    }
    else { die "Misformated line: $.";}
}

close OPS or die "Noo.. $!";

open JIT, '<', "jit/$ARGV[0]/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	243	337	
==>rclass for the Parrot op to C
transforms. Each transform contains various bits of information n <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	14724	14845	
==>al_body, '{');
        die "Empty MMD body near '$total_body'"
            if (!$body_part);
        $body_part = substr($ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	8015	8127	
==>$out;
    open  STDERR, ">$err"    or die "Can't redirect stderr to $err" if $err;

    # If $command isn't alrea <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1727	1828	
==>rot::Docs::Section::Perl->new,
        Parrot::Docs::Section::Libs->new,
        Parrot::Docs::Section <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	50756	50875	
==>'funcname', 1, undef
	],
	[#Rule 40
		 'funcname', 3,
sub
#line 235 "Lua\lua51.yp"
{
            PrepareMethod( $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2058	2156	
==>$_[0]{'Indent'} }
sub   end_over_text    { --$_[0]{'Indent'} }
sub   end_over_block   { --$_[0]{'In <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1626	1724	
==>$_[0]{'Indent'} }
sub   end_over_text    { --$_[0]{'Indent'} }
sub   end_over_block   { --$_[0]{'In <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744885	745085	
==>ARGS" => [
                              "s",
                              "nc"
                            ],
                  "BODY" => "#line 179 \"src/ops/set.ops\"\n  {{\@1}} = string_from_num(i <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33812	33925	
==>nd print "Can't assimilate following ", $paras->[0][0], "\n";
              push @$para, '';  # Just so it's not c <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35625	35738	
==>nd print "Can't assimilate following ", $paras->[0][0], "\n";
              push @$para, '';  # Just so it's not c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164793	164911	
==>string_equal(interpreter, {{\@1}}, {{\@2}}) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165722	165840	
==>string_equal(interpreter, {{\@1}}, {{\@2}}) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166651	166769	
==>string_equal(interpreter, {{\@1}}, {{\@2}}) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	15374	15521	
==>t_f);
            }

            my $meth = $parrot_test_map{$func};
            my $real_output = slurp_file($out_f);

            # set a TODO for <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	5957	6074	
==>he actual substitutions.
sub _substitute
{
    my $self = shift;
    local $_ = shift;
    my $trans = shift;

    s/{ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	26434	26546	
==>truction:
    #
    # a = new Foo;
    #

    if (m/^([A-Za-z][A-Za-z0-9_]*)\s*=\s*new\s+([A-Za-z][A-Za-z0-9_]*)$ <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1329	1598	
==>hires();           # time N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	1329	1598	
==>hires();           # time N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	45825	45962	
==>dMain( $_[0], $_[1] );
        }
	],
	[#Rule 2
		 'program', 1,
sub
#line 50 "Lua\lua51.yp"
{
            print "Error (program)\n <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	6716	6826	
==>t = eval $out;
    carp $@ if $@;
}

sub _usage_error {
    confess "struct usage error";
}

sub _subclass_erro <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	445	542	
==>e qw( Parrot::Docs::Section );

use Parrot::Docs::Item;

=item C<new()>

Returns a new section.

= <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	1915	2023	
==>tcl, 'tcl.pbc');
    if (defined($ENV{PARROT_TCLSH})) {
      $executable = $ENV{PARROT_TCLSH};
    }
    $cm <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5541	5643	
==>r.'[1]',$return]);
      $self->_add_inst ('', 'set', [$return,$pair]);
      $self->_restore ($item, $ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17088	17185	
==>r.'[1]',$return]);
    $self->_add_inst ('', 'set',[$return,$pair]);

    $self->_restore($item, $ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6575	6667	
==>r.'[1]',$return]);
  $self->_add_inst('', 'set', [$return,$pair]);
  $self->_restore($item, $ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	9414	9525	
==>\n"
PRINT
		}
	}

}
sub parse_print {
	my $eol=0;
	my $expr=0;
	my $c=0;
	my $fd="";
	my ($result, $type, @CODE) <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	702	804	
==>less $self->{DEBUG};
    return () unless $self->{DEBUG_SUPPORT};
    return ("goto $label");
}

sub lo <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	2360	2452	
==>ay of argument direction
descriptors. Element I<x> is the direction of argument C<< $args->[I <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7982	8118	
==>ack,-$len,$len);

                $$check eq 'ACCEPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Accept.\ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7624	7754	
==>ack,-$len,$len);

                $$check eq 'ACCEPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Accept.\ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	41764	41861	
==>to pre-compile the regexes they use
(whereas C<extract_tagged> uses standard string variable inter <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1252	1382	
==>rs'};
        _xml_escape($value);
        print $fh $ATTR_PAD, $key, '="', $value, '"';
      }
    }
  }
  print $fh ">";
  retur <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1977	2083	
==>ew,
        Parrot::Docs::Section::Config->new,
        Parrot::Docs::Section::Tests->new,
        Parrot:: <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19513	19612	
==>'expr', 1,
sub
#line 115 "lib/Regex/Grammar.y"
{ return op('classpieces' => [ $_[1] ]); }
	],
	[#Rul <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075856	1076185	
==>e",
                  "CODE" => 1197,
                  "ARGS" => [
                              "i",
                              "i",
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 65 \"src/ops/experime <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467296	467585	
==>i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 536,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 376 \"src/ops/mat <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	7465	7558	
==>r funcs - get argument n
 */
static INTVAL
get_nci_I(Interp *interpreter, struct call_state *s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17337	17461	
==>////
      # Fake it out as a begin/end
      my $target;

      if(grep $_->[1]{'~ignore'}, @$curr_open) {
        DEBUG > 1 <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6942	7053	
==>ie "pmc2c code generation failed ($?)\n";
    }
}

sub compile {
    my ($src_stem, $dest_stem) = @_;

    $dest <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7153	7264	
==>ie "pmc2c code generation failed ($?)\n";
    }
}

sub compile {
    my ($src_stem, $dest_stem) = @_;

    $dest <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	7550	7657	
==>MAIN PROGRAM:
#

@ARGV = qw(-) unless @ARGV;

foreach (@ARGV) {
    compile_file($_)
}

exit 0;

__END__

=b <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	2856	3024	
==>bs/Makefile',
        commentType                         => '#',
        replace_slashes                     => 1
    );
    genfile(
        'config/gen/makefiles/edit <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	2033	2183	
==>art' ) 
        {
            $self->process_start_token($token);
        }
        elsif ( $type eq 'end' ) 
        {
            $self->process_end_ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12523	12651	
==>)'/xeg;

    # Rewrite DYNSELF.other_method(args...)
    s/DYNSELF           # Macro: DYNSELF
      \.(\w+)           # other_met <==
3	/Users/nnunley/parrot/tools/util/pirtidy.pl	498	606	
==>er = new Parrot::PIR::Formatter();

    foreach my $line (<$ifh>) {
      $formatter->add_pir( $line );
    } <==
3	/Users/nnunley/parrot/config/auto/msvc.pm	528	635	
==>tep
{
    my ($self, $conf) = (shift, shift);

    my $verbose = $conf->options->get('verbose');

    cc_gen <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107194	107518	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108048	108372	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FL <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	9045	9169	
==>nit" : "D";
			    } elsif ($uninit) {
				$symbol = $TypeLong ? "uninit" : "B";
			    } else {
				$symbol = $TypeLong ? "u <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030373	1030580	
==>"inline",
                  "CODE" => 1152,
                  "ARGS" => [
                              "nc"
                            ],
                  "BODY" => "#line 305 \"src/ops/sys.ops\"\n  opcode <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	898	992	
==>t leading/trailing pattern delimiters.

(Hint: if you try using qr// for the $pattern then you' <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2996	3090	
==>t leading/trailing pattern delimiters.

(Hint: if you try using qr// for the $pattern then you' <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	10234	10358	
==>: 0;
}


sub _unoverload {
    my $self  = shift;

    local($@,$!);

    eval { require overload } || return;

    foreach m <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7427	7539	
==>elf, $reg) = @_;
    $reg = value($reg);
    return ("$reg = pop \@::STATESTACK;");
}

sub output_refresh {
    m <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5768	5877	
==>se);
    }

    return $self;
}

=back

=head1 CREDITS

The L</runsteps()> method is largely based on code wri <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1400	1524	
==>} = shift;
    }
    else
    {
        return $self->{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/gets the tra <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1009	1133	
==>} = shift;
    }
    else
    {
        return $self->{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/gets the tra <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2817	2955	
==>nt
             \s+ \{ ([^}]+) \}          # test description
             \s+ (?:\S+ \s+)? \{ \n     # optional test harness info (ignorin <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4214	4352	
==>nt
             \s+ \{ ([^}]+) \}          # test description
             \s+ (?:\S+ \s+)? \{ \n     # optional test harness info (ignorin <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21281	21371	
==>f':'unless') . ' (defined $_tok)
		{'.($::RD_NO_TRACE?'':'
			Parse::RecDescent::_trace(q{< <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10951	11043	
==>supply a ${DEST0}.
${ITEMP0} = ${PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pre_c <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8137	8229	
==>supply a ${DEST0}.
${ITEMP0} = ${PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pre_c <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5799	5891	
==>supply a ${DEST0}.
${ITEMP0} = ${PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pre_c <==
3	/Users/nnunley/parrot/config/init/defaults.pm	1032	1141	
==>cflags => $Config{ccflags},
        ccwarn  => exists($Config{ccwarn}) ? $Config{ccwarn} : '',

        # Flag <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847756	848022	
==>"JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848535	848801	
==>"JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "in <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4322	4421	
==><CODE, $result);
	set $result, 0.0
	eq $a1, $ot1, EQ_$eqnum
	eq $a2, $ot2, EQ_$eqnum
	set $result, 1 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2082	2184	
==>E qq{\t\t$_=_GLOBALS["$_"]\n};
		}
	}

	# Emit the code for the segment
	foreach(@{$code{$seg}->{code}} <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	36761	36851	
==>st::Simple, Test::More, Test::Harness

=head1 AUTHORS

Original code by chromatic, maintain <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243951	244039	
==>NG* l = VTABLE_get_string(interpreter, {{\@2}});\n  {{\@1}} = string_compare(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244883	244971	
==>NG* l = VTABLE_get_string(interpreter, {{\@2}});\n  {{\@1}} = string_compare(interpreter, <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	75265	75349	
==>RACE =
|@|||||||||@^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<|
$tracerulename, '|', $trac <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	250	350	
==>6 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

use Carp;

package Jako::C <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	7331	7426	
==>clare struct, based on array, implicit class name:
    struct( ELEMENT_NAME => ELEMENT_TYPE, ... <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	47915	48050	
==>32 "Lua\lua51.yp"
{
            PushScope( $_[0] );
            my $var = BuildLocalVariable( $_[0], $_[2] );
            Insert( $_ <==
3	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	35	123	
==>es/BASIC/interpreter/basic.pl 11512 2005-10-12T02:11:40.290517Z coke  $
# $Log: basic.pl, <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4836	4936	
==>put_classmatch {
    my ($self, $incexc, $failLabel) = @_;

    my $passLabel = $self->{state}->genla <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4500	4600	
==>put_classmatch {
    my ($self, $incexc, $failLabel) = @_;

    my $passLabel = $self->{state}->genla <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	15955	16046	
==>=item C<esc(@strings)>

=item C<esc($string)>

Reimplemented here to silence a C<Pod::Simple <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122169	122460	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123081	123372	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	1157	1260	
==>f->pass1($_, $ctx) } @{ $t->{args} };
	my @pieces;
	foreach (@pre_pieces) {
	    if (ref $_ && $_->{name <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	37062	37162	
==>nal arguments:

=over 4

=item 1.

A string to be processed (C<$_> if the string is omitted or C<unde <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	52894	52994	
==>nal arguments:

=over 4

=item 1.

A string to be processed (C<$_> if the string is omitted or C<unde <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2220	2316	
==>a shortcut for C<< $token->type() eq "start" >>

=item $token->is_text

This is a shortcut for C< <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7220	7314	
==>error($file, $line, "Improper indenting for \"$_\"\n(should be \"#$indent$2\" because it is ins <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7527	7621	
==>error($file, $line, "Improper indenting for \"$_\"\n(should be \"#$indent$2\" because it is ins <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7885	7979	
==>error($file, $line, "Improper indenting for \"$_\"\n(should be \"#$indent$2\" because it is ins <==
3	/Users/nnunley/parrot/config/auto/gc.pm	983	1116	
==>ed($gc)) {

        # default is GC in resources.c
        $gc = 'gc';
    } elsif ($gc eq 'libc') {

        # tests mallinfo after a <==
3	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1867	1954	
==>"$options{prefix}\\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs
${icu_secti <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	2798	2958	
==>subst ne '');
                    print INC ".constant $_\n";
                }
            } elsif ($in_def eq 'enum') {
                if (/(\w+)\s+=\s+(-?\w+ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	659	777	
==>ILE>';
}


#
# line()
#

sub line
{
  my $self = shift;

  if (@_) { $self->{LINE} = shift; }

  return defined $self-> <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	12406	12509	
==>mp_num;";
        push @{$extra_preamble_ref},
        "t_$temp_num = string_to_cstring(interpreter, GET <==
3	/Users/nnunley/parrot/lib/File/Which.pm	4283	4378	
==>ry C<perl.exe>, C<perl.bat>, etc.)

=head1 Steps Used on Win32, DOS, OS2 and VMS

=head2 Windows <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	11232	11361	
==>_;
    return [ 0 ] if (@$incexc == 0);
    return [ 0, @$incexc ] if $incexc->[0] > 0;
    return [ ] if @$incexc == 1;
    shift <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5033	5156	
==>e to be Properties:
      #

      my %props;

      while ($self->skip_colon) {
        my $prop = $self->require_ident->te <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8027	8150	
==>e to be Properties:
      #

      my %props;

      while ($self->skip_colon) {
        my $prop = $self->require_ident->te <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540743	541071	
==>-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n {{\@1}} = b<<p;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541995	542323	
==>-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n {{\@1}} = b<<p;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543247	543575	
==>-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n {{\@1}} = b<<p;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	33373	33518	
==>n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   print <<EOC;
	$vv = $v->[1]
EOC
       }
    }
    my $ <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	34122	34267	
==>n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   print <<EOC;
	$vv = $v->[1]
EOC
       }
    }
    my $ <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	35046	35191	
==>n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   print <<EOC;
	$vv = $v->[1]
EOC
       }
    }
    my $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573127	573425	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":ob <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574037	574335	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":ob <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574840	575138	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":ob <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27803	27910	
==>k type array.
		for (1..$rule->{'pop'}) {
			$pir .= "    type_trans = pop stypes\n";
		}
		for (1..$rule->{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630413	630512	
==>DY" => "#line 81 \"src/ops/pmc.ops\"\n    PMC *class = {{\@2}};\n    INTVAL type = pmc_type_p(interp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631403	631502	
==>DY" => "#line 81 \"src/ops/pmc.ops\"\n    PMC *class = {{\@2}};\n    INTVAL type = pmc_type_p(interp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256393	256515	
==>\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257301	257423	
==>\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258209	258331	
==>\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175218	175433	
==>, {{\@1}}, {{\@2}}, MMD_NUMCMP) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1 <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	5156	5258	
==>$api (keys %API) {
    delete $API{$api} unless exists $Code{$api}; # Not ours.
}

printf "+++ Parrot A <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2274	2373	
==>f tests run in the form
"1..M" (so "1..5" means you're going to run 5 tests).  This strange
format l <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5765	5866	
==>turn
        unless defined $self->{triggers}{$key}
        and defined $self->{triggers}{$key}{$trigg <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6335	6436	
==>turn
        unless defined $self->{triggers}{$key}
        and defined $self->{triggers}{$key}{$trigg <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	9548	9649	
==>}

/* All our static functions that call in various ways. Yes, terribly
   hackish, but that is just f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	30973	31062	
==>nt)->to_ctx;\n\tif (! caller_ctx) {\n\t    real_exception(interpreter, NULL, INVALID_OPERA <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1179	1275	
==>_type = $self->ident->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();
    $compiler->emi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1173	1269	
==>_type = $self->ident->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();
    $compiler->emi <==
3	/Users/nnunley/parrot/tools/dev/cc_flags.pl	546	639	
==>ch C file.

See F<config/gen/cflags/root.in> for the transformation file format.

=head1 SEE A <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	10172	10282	
==>tput_param {
    my ($self, $name, $type, $reg) = @_;
    $reg = value($reg);
    return ".param $type $reg";
} <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	8335	8430	
==>1 SEE ALSO

=over 4

=item C<Parrot::OpsFile>

=item C<Parrot::OpTrans>

=item F<tools/build/ops <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	639192	639288	
==>>u.key;\n  ASSERT_SIG_PMC(sig);\n  if (!SIG_ELEMS(sig)) {\n        real_exception(interpreter, NU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612969	613060	
==>ops/object.ops\"\n    VTABLE_set_attr_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613876	613967	
==>ops/object.ops\"\n    VTABLE_set_attr_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+= <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	19101	19212	
==>}
    push @stack, [-1, 'P5', 'P'];   # simulate the DUP_TOP
    print <<EOC;
	# except compare '$l' <=> $r->[1] <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2344	2445	
==>ir =~ s/\$register_num/$register_num/g;
		$register_num++;
	}

	# Do code for each push.
	$pir .= "\${ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1696	1797	
==>ir =~ s/\$register_num/$register_num/g;
		$register_num++;
	}

	# Do code for each push.
	$pir .= "\${ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	48369	48472	
==>quotelike> does so),
you can pass the input variable as an interpolated literal:

        $quotelike = e <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4110	4213	
==>groups_and_libs(@pmcs);

    # Convert lib-GROUP.so + A.so + B.so ... -> GROUP.so
    while (my ($group, <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4214	4317	
==>groups_and_libs(@pmcs);

    # Convert lib-GROUP.so + A.so + B.so ... -> GROUP.so
    while (my ($group, <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	664	773	
==>mbols.

=item C<--init>

=item C<-i>

List the initialised data symbols.

=item C<--uninit>

=item C<-u>

List <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5846	5947	
==>ches mean we need to deal with basic block-ish stuff. If the branch
	# did not pop anything it is unco <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3784	3885	
==>ches mean we need to deal with basic block-ish stuff. If the branch
	# did not pop anything it is unco <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113342	113586	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114080	114324	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 " <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	9938	10019	
==>e_base.lines.html#$function">@{[$function_line_coverage{$source_file}{$function} ? <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1471	1588	
==>,$value,$check,$dotpos);
    my($self)={ ERROR => \&_Error,
				ERRST => \$errst,
                NBERR => \$nberr, <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1421	1535	
==>,$value,$check,$dotpos);
    my($self)={ ERROR => \&_Error,
				ERRST => \$errst,
                NBERR => \$nberr, <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10752	10847	
==>05
	.const int ELEMENT_TYPE_I2 = 0x06
	.const int ELEMENT_TYPE_U2 = 0x07
	.const int ELEMENT_TYP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813980	814238	
==>=> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814602	814860	
==>=> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	815230	815488	
==>=> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	742	841	
==>get('libs');
    my $linkflags = $conf->data->get('linkflags');
    my $ccflags   = $conf->data->get <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	683	782	
==>get('libs');
    my $linkflags = $conf->data->get('linkflags');
    my $ccflags   = $conf->data->get <==
3	/Users/nnunley/parrot/config/auto/readline.pm	695	794	
==>get('libs');
    my $linkflags = $conf->data->get('linkflags');
    my $ccflags   = $conf->data->get <==
3	/Users/nnunley/parrot/examples/benchmarks/stress.pl	572	682	
==>$foo[$_] = $_;
    }
    return \@foo;
}

=head1 SEE ALSO

F<examples/benchmarks/stress.pasm>, 
F<examples/benc <==
3	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	634	744	
==>$foo[$_] = $_;
    }
    return \@foo;
}

=head1 SEE ALSO

F<examples/benchmarks/stress.pasm>, 
F<examples/benc <==
3	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	481	591	
==>$foo[$_] = $_;
    }
    return \@foo;
}

=head1 SEE ALSO

F<examples/benchmarks/stress.pasm>, 
F<examples/benc <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	268	372	
==>rict;
eval "use warnings";

package Jako::Construct::Type;

use Carp;

use overload
  "=="  => sub { $_[0 <==
3	/Users/nnunley/parrot/config/auto/jit.pm	2672	2764	
==>f_diff("$jitbase/$cpuarch/asm.s", "src/asmfun.s");
        $conf->data->set(asmfun_o => 'src/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616580	616877	
==>pic_infix__",
                  "FLAGS" => ":pic",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 6 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54686	54890	
==>[
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 864 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo(interpreter, {{\@2} <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	773	875	
==>EADME file',
	'C' => 'C code',
	'Log' => 'SVN Entries file',   # probably obsolete
	'PL' => 'Perl scrip <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653597	653852	
==>g_to_cstring(interpreter, {{\@3}}));\n    {{=resume}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654758	655013	
==>g_to_cstring(interpreter, {{\@3}}));\n    {{=resume}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77377	77470	
==>$lastrulename;
	if ($tracerulename) { $lastrulename = $tracerulename }

	$tracecontext =~ s/\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	341	439	
==>nced register addressing
and C C<goto> run loop.

=head2 Instance Methods

=over 4

=cut

package P <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	34620	34714	
==>d within the substring, and any other kind of
("non-delimiter") bracket in the substring is ign <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15581	15702	
==>r( $parser,
        'result' => $result,
    );
    push @opcodes, new AssignOp( $parser,
        'result' => $result, <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19334	19455	
==>r( $parser,
        'result' => $result,
    );
    push @opcodes, new AssignOp( $parser,
        'result' => $result, <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2403	2500	
==>the attribute set for this start-token.
This is useful if (for example) you want to ask what all t <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30749	30903	
==>f->_get_item_type($para);
            # That kills the content of the item if it's a number or bullet.
          DEBUG and print " Item is of type ", $para <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	31714	31868	
==>f->_get_item_type($para);
            # That kills the content of the item if it's a number or bullet.
          DEBUG and print " Item is of type ", $para <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34037	34191	
==>f->_get_item_type($para);
            # That kills the content of the item if it's a number or bullet.
          DEBUG and print " Item is of type ", $para <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	29338	29453	
==>"You forgot a '=back' before '$para_type'"
        );
        unshift @$paras, ['=back', {}, ''], $para;   # close t <==
3	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	102	207	
==>=head1 DESCRIPTION

=head1 SYNTAX

=cut

# pragmata
use strict;
use 5.005;

# standard perl modules

# Mod <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6694	6787	
==>e we pop off the stack.
${PTEMP1} = ${STYPES}[${ITEMP2}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP1} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	8796	8896	
==>= shift->get_title(@_);
  $title = $1 if $title =~ m/^(\S{1,60})\s+--?\s+./s;
    # turn "Foo::Bar -- <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	24366	24488	
==>tput {
    my($self, $fh) = @_;

    if( defined $fh ) {
        $self->{Todo_FH} = _new_fh($fh);
    }
    return $self->{ <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4781	4889	
==>cb) = @_;

    return unless defined $key and defined $trigger and defined $cb;

    my $verbose = defined $s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109716	110007	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110495	110786	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAG <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2596	2703	
==>ce function
sub rop {
    return __PACKAGE__->op(@_);
}

use vars qw(%MARKERS);
sub mark {
    my $name = sh <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046011	1046373	
==>" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1169,
                  "ARGS" => [
                              "k",
                              "sc", <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12952	13067	
==>p' => 50,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primar <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	2056	2153	
==>PTION

The tokenizer takes a file and splits it into tokens.

=head1 AUTHOR

Jeffrey Goff, drforr@ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	31810	31908	
==>ter name where the value would be stored in?
		my $dest_reg;
		if ($rule->{'pir'} =~ /\$\{STACK0\}/ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	29798	29896	
==>{
}

sub _op_string_le_p {
}

sub _op_string_ge_p {
}

sub _op_string_ci_eq_p {
}

sub _op_string_c <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	579	669	
==>c.html', '', 
		$self->new_group('Documentation', '', 'docs/imcc'),
		$self->new_group('Exa <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	478	569	
==>oper subclass of Parrot::Test::Bc.
XXX: Do not configure with environment variables.
Use Ant <==
3	/Users/nnunley/parrot/tools/dev/cc_flags.pl	573	663	
==>n/cflags/root.in> for the transformation file format.

=head1 SEE ALSO

F<config/gen/cflags <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	2595	2694	
==>e/) {
            $line =~ s/PREV_OP\s(..?)\s(\w+)/(jit_info->prev_op) && (*jit_info->prev_op $1 $op <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26722	26817	
==>g call $sub\n";
	($result, $type, @code)=EXPRESSION({ignorecomma => 1});
#	print STDERR "Got bac <==
3	/Users/nnunley/parrot/languages/APL/t/APL.pm	1427	1560	
==>tput,
                      # Since we're converting an explicit blank output to 0
    }
    if ($output =~ m/\n\n$/smx) {
      chomp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359373	359465	
==>h(interpreter, s)) {\n    PIO_putps(interpreter, PIO_STDERR(interpreter), s);\n  }\n  {{+=2}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360121	360213	
==>h(interpreter, s)) {\n    PIO_putps(interpreter, PIO_STDERR(interpreter), s);\n  }\n  {{+=2}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073364	1073727	
==>:advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1196,
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4368	4467	
==>lback on C<$key> named C<$trigger>.  Multiple triggers can be set on a
given key.  When the key is s <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	13020	13112	
==>\$/_string/g; $extern=~tr/a-z/A-Z/;

				$calling_code = "(%s) = _USERFUNC_${extern}_run($ac$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075549	1075912	
==>:advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1197,
                  " <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	75401	75504	
==><<<<|
	    $tracemsg
.

select TRACE;
$| = 1;

open (TRACECONTEXT, ">&STDERR");
format TRACECONTEXT =
|@ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4939	5035	
==>(5)
print t(3)

' Unary minus goodness
Dim t7(1),w(10)
w=20
w(2)=5
t7(0)=0
w=w-(T7(0) * T7(0) * 1 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	22417	22560	
==>]),
          $next =>
                  );

        return ($back, @ops);
    } else {
        my $rfail = $self->genlabel('nongreedy_star_fail <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	75995	76097	
==>rror($;$)
{
	$ERRORS++;
	return 0 if ! _verbosity("ERRORS");
	$errortext   = $_[0];
	$errorprefix = "ER <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5393	5507	
==>compile, linklibs, or copy\n";
}

sub run {
    print join(" ", @_), "\n";

    return system(@_) == 0;
}

# XXX: o <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5604	5718	
==>compile, linklibs, or copy\n";
}

sub run {
    print join(" ", @_), "\n";

    return system(@_) == 0;
}

# XXX: o <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	14299	14410	
==>?:STDOUT|1)$/i
  ) {
    $self->output_fh( *STDOUT{IO} );
  } else {
    require Symbol;
    my $out_fh = Symbol <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1476	1569	
==>hort"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = "$register_num"
${STEMP0} = concat ${STEMP1}
$ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2003	2096	
==>hort"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = "$register_num"
${STEMP0} = concat ${STEMP1}
$ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3186	3279	
==>hort"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = "$register_num"
${STEMP0} = concat ${STEMP1}
$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106417	1106690	
==>p]->class;\n    {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107393	1107666	
==>p]->class;\n    {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/lib/Test/More.pm	13125	13253	
==>}
    elsif( !ref $object ) {
        $diag = "$obj_name isn't a reference";
    }
    else {
        # We can't use UNIVERSAL::i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848259	848483	
==>\@1}} = string_chopn(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849039	849263	
==>\@1}} = string_chopn(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	1230	1342	
==>ose CFLAGS;
}

sub makefiles
{
    my ($self, $conf) = @_;

    genfile(
        'config/gen/makefiles/root.in' = <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6147	6239	
==>itch_${CURIC}
${ITEMP0} = ${NEXTPC} + I_arg_0 # XXX Can't use ${ARG0} :-(
prop_type_state[${I <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4085	4177	
==>itch_${CURIC}
${ITEMP0} = ${NEXTPC} + I_arg_0 # XXX Can't use ${ARG0} :-(
prop_type_state[${I <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10089	10209	
==>BG>		and	print STDERR "**Pop state $$stack[-1][0].\n";

			pop(@$stack);
		}

			@$stack
		or	do {

#DBG>			$debu <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9638	9750	
==>BG>		and	print STDERR "**Pop state $$stack[-1][0].\n";

			pop(@$stack);
		}

			@$stack
		or	do {

#DBG>			$debu <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	1015	1105	
==>TYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"
    "http://www.w3.org/TR/REC-html <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	858	978	
==>l binary.

    # There are basically 3 choices: run in one of:
    #  languages
    #  languages/tcl
    #  languages/tcl <==
3	/Users/nnunley/parrot/config/init/hints/irix.pm	176	288	
==>step
{
    my ($self, $conf) = @_;

    my $ccflags = $conf->data->get('ccflags') || "";

    # 1185 An enumerate <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9069	9160	
==>eth(Interp*$interp, PMC*$pmc$args)$semi
EOC
}

=item C<includes()>

Returns the C C<#include <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	29759	29858	
==>p_string_lt_p {
}

sub _op_string_gt_p {
}

sub _op_string_le_p {
}

sub _op_string_ge_p {
}

sub _o <==
3	/Users/nnunley/parrot/lib/Test/More.pm	8268	8367	
==>g the test.

You are encouraged to use is() and isnt() over ok() where possible,
however do not be t <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	8845	8937	
==>cent::lastunexpected = $_[1];
	'. ($parser->{_check}{thisoffset}?'
	my $thisoffset;
	tie $thi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215002	215091	
==>Y" => "#line 455 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215943	216032	
==>Y" => "#line 455 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	40080	40206	
==>'VerbatimFormatted'}
        ) {
          while(@$para > 3 and $para->[-1] !~ m/\S/) { pop @$para }
           # Kill any numb <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680677	680765	
==>"#line 488 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_pmc(interpreter, {{\@1}}, {{ <==
3	/Users/nnunley/parrot/lib/File/Which.pm	831	943	
==>HEXT, so needs hardcoded.
    }
}
elsif ($Is_VMS) { 
    push @path_ext, qw(.exe .com);
}

sub which {
    my ($e <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16600	16748	
==>sh @opcodes, new LocalDir( $parser,
                    'result' => $result,
                );
                push @opcodes, new FindLexOp( $par <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10751	10890	
==>sh @opcodes,
                        new LocalDir( $parser, 'result' => $result, );
                    push @opcodes, new FindLexOp( $par <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7602	7726	
==>ode, exp) = glob_compile(pattern)
            match = rulesub(target)
            unless match goto match_fail
          matc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459776	459878	
==>" => "#line 282 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460764	460866	
==>" => "#line 282 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461752	461854	
==>" => "#line 282 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception( <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	19074	19192	
==>nc ( keys %language_test_map ) {
        push @EXPORT, $func;
        no strict 'refs';

        *{$package.'::'.$func} <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	2979	3087	
==>rgs}}, @args;

        $src = $op->full_body();

	# The regexes here correspond to the rewriting rules for th <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	1921	2010	
==>are skipping $total_skipped total tests.\n";
print "(-clock ($clock_skipped) -deprecated ( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067613	1067910	
==>GS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1192,
                  "AR <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1812	1957	
==>_out   => '-Fo',
            cc_exe_out => '-out:',
            cc_ldflags => '/link',

            # ZI messes with __LINE__
            cc_debug <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3691	3836	
==>_out   => '-Fo',
            cc_exe_out => '-out:',
            cc_ldflags => '/link',

            # ZI messes with __LINE__
            cc_debug <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	49	145	
==>en;
use Pod::Simple::PullParserToken ();
@ISA = ('Pod::Simple::PullParserToken');
use strict;

su <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	51	147	
==>en;
use Pod::Simple::PullParserToken ();
@ISA = ('Pod::Simple::PullParserToken');
use strict;

su <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	50	146	
==>en;
use Pod::Simple::PullParserToken ();
@ISA = ('Pod::Simple::PullParserToken');
use strict;

su <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8567	8669	
==>herwise, there's nothing to do here.
	if ($dest_reg) {
		$pir .= <<'PIR'
# Get type (so we can find reg <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6387	6489	
==>herwise, there's nothing to do here.
	if ($dest_reg) {
		$pir .= <<'PIR'
# Get type (so we can find reg <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	29319	29410	
==>ts $code{$t}->{args}) {
		foreach(@{$code{$t}->{args}}) {
			push @{$code{$t}->{code}}, "\t. <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	154	374	
==>dit this file, use source file instead.
#
#             ANY CHANGE MADE HERE WILL BE LOST !
#
####################################################################
package Lua::parser;
use vars qw ( @ISA );
use stri <==
3	/Users/nnunley/parrot/config/auto/cgoto.pm	1424	1507	
==>S_FILES) $(BUILD_TOOLS_DIR)/ops2c.pl lib/Parrot/OpsFile.pm lib/Parrot/Op.pm lib/Parr <==
3	/Users/nnunley/parrot/config/auto/cgoto.pm	1697	1780	
==>S_FILES) $(BUILD_TOOLS_DIR)/ops2c.pl lib/Parrot/OpsFile.pm lib/Parrot/Op.pm lib/Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779286	779583	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 880,
                  "ARG <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2943	3041	
==>X_ERROR("Can only do bitwise ops on integers") unless UNIVERSAL::isa($right_type, 'Jako::Construct: <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	39105	39198	
==>.

However, if the string value associated with <reject> is "MAX", then
C<extract_tagged> retu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	1945	2066	
==>NT} < 0;
}


#
# emit()
#

sub emit
{
  my $self = shift;

  unshift(@_, " " x $self->{INDENT});
  
  my $fh = $self->{FH} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	2489	2598	
==>return a value.")
      unless defined $return_type;

    my $arg_type = $value->type;
    my $ret_val = $valu <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10892	10987	
==>09
	.const int ELEMENT_TYPE_I8 = 0x0A
	.const int ELEMENT_TYPE_U8 = 0x0B
	.const int ELEMENT_TYP <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7180	7267	
==>code{$seg}->{code}}, "\t#\n\t# User-included assembly\n$syms[CURR]\n\t# End assembly\n\t <==
3	/Users/nnunley/parrot/Configure.pl	10255	10363	
==>er that, you can use `$make test' to run the test suite.

Happy Hacking,
        The Parrot Team

END

exit(0 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3130	3233	
==>tional

  my $name  = $self->name;

  if ($self->block->kind eq 'module') {
    $name = $self->block->na <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	199	293	
==>ract_delimited);
use Math::BigInt;
use Getopt::Long;
use strict;

my $outfile = 'all_cstring.st <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054393	1054488	
==>espace.\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to get null global.\");\n\n    n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055520	1055615	
==>espace.\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to get null global.\");\n\n    n <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	12091	12351	
==>+):/g);
            push @methods,
                {
                    meth        => $methodname,
                    body        => $methodblock,
                    line        => $lineno,
                    type        => $type,
                    param <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	455	558	
==>s = shift;
  my ($block, $left, $op, $right) = @_;

  confess "Block is not defined!" unless defined $bl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	467	570	
==>s = shift;
  my ($block, $left, $op, $right) = @_;

  confess "Block is not defined!" unless defined $bl <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	1967	2059	
==>of the output with the expected result it true.

=item C<pasm_output_like($code, $expected, $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64719	64807	
==>T(new_interp, PARROT_EXTERN_CODE_FLAG);\n  new_interp->code = interpreter->code;\n  runop <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65670	65758	
==>T(new_interp, PARROT_EXTERN_CODE_FLAG);\n  new_interp->code = interpreter->code;\n  runop <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540673	540802	
==>1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n {{\@1} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541925	542054	
==>1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n {{\@1} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543177	543306	
==>1)) a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n {{\@1} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101884	102177	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102655	102948	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FL <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	861	958	
==>ns C<Parrot::IO::File>.

=cut

sub file_class
{
    return 'Parrot::IO::File';
}

=item C<director <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7135	7225	
==>= "$"
${STEMP0} = ${LOADTYPE}["reg_type_short"]
${DEST0} = concat ${STEMP0}
${STEMP0} = sta <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4957	5047	
==>= "$"
${STEMP0} = ${LOADTYPE}["reg_type_short"]
${DEST0} = concat ${STEMP0}
${STEMP0} = sta <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	40390	40491	
==>ost tags),

=item [1]

the remainder of the input text,

=item [2]

the prefix substring (if any),

=i <==
3	/Users/nnunley/parrot/config/auto/headers.pm	171	268	
==>aders

=head1 DESCRIPTION

Probes for various C headers.

=cut

package auto::headers;

use strict <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	532754	533045	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ln",
                  "FLAGS" => ":ba <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022839	1023104	
==>P" => 0,
                  "NAME" => "decodelocaltime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023688	1023953	
==>P" => 0,
                  "NAME" => "decodelocaltime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functi <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	388	489	
==>mport( $plan, @args );

    __PACKAGE__->_export_to_level( 2, __PACKAGE__ );
}

my $count;

foreach my <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	305	406	
==>mport( $plan, @args );

    __PACKAGE__->_export_to_level( 2, __PACKAGE__ );
}

my $count;

foreach my <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11379	11472	
==>onst int ELEMENT_TYPE_FNPTR = 0x1B
	.const int ELEMENT_TYPE_OBJECT = 0x1C
	.const int ELEMENT_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048379	1048615	
==>lobal(interpreter, NULL, {{\@2}}, next);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049303	1049539	
==>lobal(interpreter, NULL, {{\@2}}, next);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7608	7722	
==>ent> [:<prop>[=<value] ...] (<arg>, <arg>, ...) {
    #

    if ($token->is_sub) {
      my $block = $self->current <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1958	2086	
==>{value} =~
                                 /^[-]?\d+\.(\d+([-+]?[eE]\d+)?)?/;
    $node->{type} = 'REAL'    if $node->{value} =~ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	29196	29323	
==>st four
# attributes:

############# Not used.  Expressed via the element children plus
#############  the value of the "content <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	16848	16964	
==>plate .= << 'END_PIR';
    goto loop
loop_done:
    # return the result vector
    .return (result)
END_PIR
        } <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1446	1555	
==>$compiler) = @_;

  my $dest_ident = $self->dest;

  my $block = $self->block;
  my $dest  = $self->dest;
  my <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1326	1435	
==>$compiler) = @_;

  my $dest_ident = $self->dest;

  my $block = $self->block;
  my $dest  = $self->dest;
  my <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566699	567021	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "does",
                  "FLAGS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567593	567915	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "does",
                  "FLAGS" <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	1528	1644	
==>ne character long.)
        # ...So $in holds the char's US-ASCII numeric value, which we'll
        #  now go get th <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	13314	13437	
==>f($_, $indent . "  ") foreach (@children);
    } else {
        print $ref, "\n";
    }
}

sub annotated {
    my ($op, $str <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	16573	16689	
==>( $paras->[0][0] eq '=over' or $paras->[0][0] eq '~Verbatim'
        or $paras->[0][0] eq '=item' )
    ;
    # Those <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	7299	7400	
==>sure if I got this right- it came from a C99 reference, so some 99isms
#  might have slipped in)
abort <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544465	544598	
==>>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n gcd = b<<p;\n s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545801	545934	
==>>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n gcd = b<<p;\n s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547137	547270	
==>>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n gcd = b<<p;\n s <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	9773	9873	
==>t and third forms is
based on an array, whereas an object of a class created by the
second form is ba <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348566	348831	
==>P" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349567	349832	
==>P" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	167	275	
==>ESCRIPTION

Call 'Parrot m4' and 'GNU m4'.

=cut

package Parrot::Test::M4;

use strict;
use warnings;
use 5. <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1967	2060	
==>w_name = $name . "::" . $symbol_name;

    $self->block->set_symbol($new_name, $self->get_symb <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1912	2005	
==>ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
    # Yes, stipulate the list wi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2015	2108	
==>ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
    # Yes, stipulate the list wi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319906	320042	
==>"n"
                            ],
                  "BODY" => "#line 124 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (INTVAL)((Parrot_Int4)({{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6839	6955	
==>sh @to_unget, $self->get_token;
        
        last if $to_unget[-1]->is_end
            and $to_unget[-1]->tagname <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	6540	6651	
==>sh @to_unget, $self->get_token;
          last if $to_unget[-1]->is_end
              and $to_unget[-1]->tagname <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244026	244311	
==>e(interpreter, l, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244958	245243	
==>e(interpreter, l, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
3	/Users/nnunley/parrot/lib/File/Which.pm	3713	3807	
==>e programs
on systems under which the `which' program wasn't implemented in the shell.

C<File: <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5929	6020	
==>=head1 AUTHOR

Joshua Hoblitt C<jhoblitt@cpan.org>

=head1 SEE ALSO

F<docs/configuration.po <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6778	6869	
==>=head1 AUTHOR

Joshua Hoblitt C<jhoblitt@cpan.org>

=head1 SEE ALSO

F<docs/configuration.po <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	11023	11148	
==>pect ) {
        # undef only matches undef and nothing else
        my $test = !defined $got && !defined $expect;

        $s <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	11441	11566	
==>pect ) {
        # undef only matches undef and nothing else
        my $test = !defined $got && !defined $expect;

        $s <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	1525	1625	
==>->{opt};

    print Data::Dumper->Dump([$generator]) if $opt->{debug} > 1;
    my $cout = $generator- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955153	955442	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "encodingname",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955964	956253	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "encodingname",
                  " <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2053	2159	
==>state a stack type state
	# that was propogated to this instruction. If we do then we should also
    # cle <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180552	180697	
==>"
                            ],
                  "BODY" => "#line 278 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181448	181593	
==>"
                            ],
                  "BODY" => "#line 278 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182344	182489	
==>"
                            ],
                  "BODY" => "#line 278 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931919	932208	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932690	932979	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAG <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	10942	11066	
==>fscanf      stdio.h
fseek       stdio.h
fsetpos     stdio.h
ftell       stdio.h
fwrite      stdio.h
getc        stdio.h
getch <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	6602	6701	
==>n_command skip slurp_file );

use base qw( Exporter );

# tell parrot it's being tested--disables se <==
3	/Users/nnunley/parrot/config/gen/icu.pm	29	117	
==>e Perl Foundation.
# $Id: /parrot/config/gen/icu.pm 19593 2006-05-30T02:28:15.110975Z cok <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443084	443520	
==>ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 507,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              " <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	15671	15776	
==>f->decl($classname, $method, 0);
    # This is the part that comes from the PMC file.
    $cout .= $self-> <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	11191	11296	
==>ts_skipped  { color: #555; }
    .tests_unexpect { color: #550; }
  </style>

  <script type="text/javascr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1324	1428	
==>bol($ident_name);

  confess "No such symbol '$ident_name'!" unless defined $sym;

  if (($kind eq 'var') <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	651	746	
==>on and no interpreted version,
# create a shim for the interpreted version that automatically ca <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208799	209096	
==>LAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 246,
                  "ARG <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	20145	20251	
==>nt "\t\t$cmt\n";
	$code_l++;
	$cmt ="\t\t# $opcode\t $rest";
	if ($rest =~ /to (\d+)/) {
	    $targ = "pc_$ <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	20309	20415	
==>nt "\t\t$cmt\n";
	$code_l++;
	$cmt ="\t\t# $opcode\t $rest";
	if ($rest =~ /to (\d+)/) {
	    $targ = "pc_$ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12223	12341	
==>ER           # Macro: SUPER
      \(\s*(.*?)\)      # capture argument list
     /"Parrot_${1}_$method(" . full_argumen <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	28946	29044	
==>the result of the test, so
it's type is 'unkown'.  These details for these tests are filled in.
The <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	770	865	
==>$ctx, \@asm);
}

sub output_footer {
}

package Regex::Driver::Perl5;
our @ISA = qw(Regex::Drive <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	3036	3172	
==>, %func_info);

sub decode_line {
    my $l = shift;
    my ($pc, $line ,$opcode, $arg, $rest);
    if ($l =~ /Disassembly of <?([\w:]+)> <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	371	494	
==>o lib.import() must be directory, not file");
        }
        # add to the @*INC, but do not allow duplicates
        @*IN <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	19289	19384	
==>in _unimplemented

=item B<skip_rest>

  $Test->skip_rest;
  $Test->skip_rest($reason);

Like sk <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	2072	2171	
==>nitions, the defines must not leak
to the outside world.

=head2 Public or Private

If the API is re <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4962	5056	
==>stack,$check,$dotpos)
     = @$self{ 'ERRST', 'NBERR', 'TOKEN', 'VALUE', 'STACK', 'CHECK', 'DO <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4720	4813	
==>stack,$check,$dotpos)
     = @$self{ 'ERRST', 'NBERR', 'TOKEN', 'VALUE', 'STACK', 'CHECK', 'DO <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	12209	12326	
==>= @$para;
  my $content = join ' ', splice @x, 2;
  $content =~ s/^\s+//s;
  $content =~ s/\s+$//s;

  DEBUG > 2 and p <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	35973	36065	
==>re
therefore treated as non-delimiter characters (and ignored).

However, if a particular spe <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	3285	3388	
==>ocal int match_end
    set match_start, result[match_num;0]
    set match_end, result[match_num;1]
    e <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1976	2077	
==>ym = $block->find_symbol($self->name);

  #
  # If the identifier is already defined at this lexical s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1723	1824	
==>ym = $block->find_symbol($self->name);

  #
  # If the identifier is already defined at this lexical s <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	128	223	
==>4Z bernhard  $

=head1 NAME

Parrot::Docs::Section::BigNum - Big Number documentation section

= <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	2876	2978	
==>({ Name => 'arg', Attributes => { name => $arg_name, type => $arg_type } });
    $handler->end_element( <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	5847	5939	
==>$qdel && $$textref =~ m/\G([$qdel])/gc)
		{
			$$textref =~ m/\G[^\\$1]*(?:\\.[^\\$1]*)*(\Q$1 <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	3548	3740	
==>parated list of classes */
    PMC *class;              /* for PMCs: a PMC of that type
                                for objects: the class PMC */
    PMC *mro;                /* array PMC o <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3509	3692	
==>) {
        $conf->data->set(
            share_ext  => '.dll',
            load_ext   => '.dll',
            a          => '.lib',
            o          => '.obj',
            cc_o_o <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	242	352	
==>ions ) = @_;

    return $options->{with_past} ?
               Parrot::Test::per_test( '_antlr2.out', $count ) <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	23591	23711	
==>$arg_num = 0;
	my $arg_size = 0;
	foreach (@args) {
		my $out;
		my $arg_name;

		# uint8
		if (/^uint8$/) {
			$out =  " <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1516	1619	
==>espace}_CONT");
      $compiler->indent;
      $self->SUPER::compile($compiler);
      $compiler->outden <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	379	473	
==>ple subrules test");
  p6rule_isnt('abc', '^bc', 'BOS bc');
  p6rule_like('abcdef', 'bcd', qr/0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361427	361666	
==>on",
                  "CODE" => 423,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 281 \"src/ops/io.ops\"\n  if ({{\@1}} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	13912	14034	
==>itle>\n";
  $title .= ' ' if length $title;
  
  $title =~ s/ *$/ /s;
  $title =~ s/^ //s;
  $title =~ s/ $/, /s;
   # make <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1422	1538	
==>turn 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'op <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1416	1532	
==>turn 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'op <==
3	/Users/nnunley/parrot/config/auto/env.pm	113	208	
==>5Z coke  $

=head1 NAME

config/auto/env.pm - System Environment

=head1 DESCRIPTION

Determinin <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11420	11523	
==>urn. See if we have a return value.
PRE_CALL_RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0 <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8606	8709	
==>urn. See if we have a return value.
PRE_CALL_RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0 <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7178	7281	
==>urn. See if we have a return value.
PRE_CALL_RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0 <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	513	624	
==>e) ) {
    no strict 'refs';

    *{"Scheme::Test::output_$meth"} = sub ($$;$) {
        my( $lang_code, $output <==
3	/Users/nnunley/parrot/config/auto/va_ptr.pm	841	965	
==>va_type = 'ppc';
    } else {
        $va_type = 'x86';
    }
    cc_clean();
    $self->set_result($va_type);
    $conf->dat <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	537067	537306	
==>> "inline",
                  "CODE" => 621,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 956 \"src/ops/math.ops\"\n  {{ <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	11419	11534	
==>dname, $parameters) = ($2,$3,$4,$5);
        my ($methodblock, $rema)                    = extract_balanced($classbl <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	9604	9694	
==>->_add_inst("FALSE_$label");
  my $false = $self->_generate(_get_arg($node,3));
  $self->_m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527822	528073	
==>tan((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	11731	11830	
==>op_code() a hash
 * of short and full opcode names is created
 * hash functions are from imcc, thank <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	16518	16635	
==>terator, $vector
  loop:    
    unless iter1 goto loop_done
    \$P1 = shift iter1
    \$S1 = typeof \$P1
    if \$S1 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1455	1559	
==>{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'op', Attributes => { ki <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1449	1553	
==>{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'op', Attributes => { ki <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11469	11719	
==>result' => $result2,
                            'arg1'   => $result,
                            'arg2'   => $key->[0],
                        );
                        $result = $result2;
                    }
                    push @opcod <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9697	9923	
==>result' => $result2,
                        'arg1'   => $result,
                        'arg2'   => $key->[0],
                    );
                    $result = $result2;
                }
                push @opcod <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8608	8786	
==>result' => $result2,
                'arg1'   => $result,
                'arg2'   => $key->[0],
            );
            $result = $result2;
        }
        push @opcod <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	9231	9369	
==>{
        $out .= "not ";
        @$result{ 'ok', 'actual_ok' } = ( ( $todo ? 1 : 0 ), 0 );
    }
    else {
        @$result{ 'ok', 'actua <==
3	/Users/nnunley/parrot/config/init/hints/freebsd.pm	1023	1123	
==>d_alias  => 'libparrot$(SHARE_EXT)',
        libparrot_soname        => '-Wl,-soname=libparrot$(SHARE <==
3	/Users/nnunley/parrot/config/init/hints/linux.pm	1861	1961	
==>d_alias  => 'libparrot$(SHARE_EXT)',
        libparrot_soname        => '-Wl,-soname=libparrot$(SHARE <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2123	2216	
==>r{$in}; # returns undef if unknown
  }
}

#--------------------------------------------------- <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2588	2681	
==>r{$in}; # returns undef if unknown
  }
}

#--------------------------------------------------- <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35872	35974	
==>lements
{

    my ($self, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $l <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31242	31343	
==>lements
{
    my ($self, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $l <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39862	39963	
==>lements
{
    my ($self, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $l <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627447	627535	
==>_noinit(interpreter, {{\@2}});\n  {{\@1}}->vtable->init(interpreter, {{\@1}});\n  {{+=3}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628591	628679	
==>_noinit(interpreter, {{\@2}});\n  {{\@1}}->vtable->init(interpreter, {{\@1}});\n  {{+=3}} <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	13417	13534	
==>fo + i, 1);
    /* plus one short name */
    for (i = 0; i < ${bs}op_lib.op_count; i++)
        if (get_op(info[i].na <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8783	8884	
==>Test::num_of_tests_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_tests_badpass = 0 <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	186	279	
==>Test::num_of_tests_run    = 0;
$Test::num_of_tests_failed = 0;
$Test::num_of_tests_badpass = 0 <==
3	/Users/nnunley/parrot/config/inter/progs.pm	4021	4172	
==>$debug || $debug =~ /n/i) {
        $conf->data->set(
            cc_debug   => '',
            link_debug => '',
            ld_debug   => ''
        ) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22851	22949	
==>src/ops/core.ops\"\n  opcode_t *dest;\n  PMC * const p = {{\@1}};\n  dest = {{^+2}};\n  interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25240	25338	
==>src/ops/core.ops\"\n  opcode_t *dest;\n  PMC * const p = {{\@1}};\n  dest = {{^+2}};\n  interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849953	850277	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850840	851164	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851727	852051	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	4271	4382	
==>acros hide the details
 */

EOM
    for my $entry (@{$vtable}) {
    next if ($entry->[4] =~ /MMD_/);
    my @ar <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	4181	4330	
==>) = @_;
        my $FH   = $self->{fh};
        if ( exists $op->{arg2} ) {
            print {$FH}
                "  new $op->{result}->{symbol} <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	5580	5739	
==>lls;
                $file_call_coverage{$source_file} = $percent;
                next;
            }
        }

        filter_gcov($gcov_file);
    }
}

writ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2743	2845	
==>$offset)>.

=cut

sub restart_offset
{
    my ($self, $offset) = @_;

    return "interpreter->resume_o <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4078	4180	
==>$offset)>.

=cut

sub restart_offset
{
    my ($self, $offset) = @_;

    return "interpreter->resume_o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290779	290952	
==>,
                              "n"
                            ],
                  "BODY" => "#line 940 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} == {{\@3}};\n  {{+=4}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291625	291798	
==>,
                              "n"
                            ],
                  "BODY" => "#line 940 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} == {{\@3}};\n  {{+=4}};\n", <==
3	/Users/nnunley/parrot/config/init/manifest.pm	250	345	
==>distribution is complete.

=cut

package init::manifest;

use strict;
use vars qw($description @ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	7857	7968	
==>stdout" if $out;
    open  OLDERR, ">&STDERR" or die "Can't save     stderr" if $err;

    open  STDOUT, ">$out" <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7907	8016	
==>stdout" if $out;
    open OLDERR, ">&STDERR" or die "Can't save     stderr" if $err;

    open STDOUT, ">$out" <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	8848	8945	
==>e",$fd)
OPEN
}
sub parse_close {
	feedme();
	die "Expecting # at $sourceline" unless $syms[CURR] e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447293	447580	
==>=> 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	448115	448402	
==>=> 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449601	449888	
==>=> 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	33782	33889	
==>return Slice(@_, 2);
}
sub SLICE_plus_3 {
    return Slice(@_, 3);
}

sub Store_Slice
{
    my ($n, $c, $cmt <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	1634	1738	
==>y', [ $atom, $ctx ] ]);
    } elsif ($atom->isa('P6C::sv_literal') && is_string($atom->type)) {
        $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	7368	7470	
==>e++;

    last if m/^__EOF__\s*$/;

    if (m/^\s*use\s+([a-zA-Z_][a-zA-Z0-9_]*(::[a-zA-Z_][a-zA-Z0-9_] <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35927	36031	
==>the test died, even after
having successfully completed all its tests, it will still be
considered a fail <==
3	/Users/nnunley/parrot/lib/Test/More.pm	33998	34102	
==>the test died, even after
having successfully completed all its tests, it will still be
considered a fail <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2793	2897	
==>the test died, even after
having successfully completed all its tests, it will still be
considered a fail <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	13151	13280	
==>$jit_func = $normal_op;
        }
    }
    else
    {
        $jit_func = "$core_opfunc[$i]$func_end";
    }

    unless($precomp <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	5424	5522	
==>arrot version info, a preamble for inclusion in C code,
    and an array of C<Parrot::Op> instances <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	317	411	
==>arrot version info, a preamble for inclusion in C code,
and an array of C<Parrot::Op> instances <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76312	76413	
==>= ($::RD_WARN||1));
	$errortext   = $_[1];
	$errorprefix = "Warning" .  ($_[2] ? " (line $_[2])" : "") <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106277	1106360	
==>>n_vtable_max)\n\treal_exception(interpreter, NULL, E_ValueError,\n\t\t\"type number <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107253	1107336	
==>>n_vtable_max)\n\treal_exception(interpreter, NULL, E_ValueError,\n\t\t\"type number <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	49856	49979	
==>.\n";
        pos($para) = pos($para) - length($3) + $stack[-1];
      } else {
        # We saw " >>>>" but needed " >>>>>> <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7989	8087	
==>OVE

# No lazy move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["r <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8846	8944	
==>OVE

# No lazy move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["r <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3983	4081	
==>r segment
EOD
}
if ($debug) {
	print CODE<<FOO;
.sub _DEBUG_INIT
	saveall
	\$P0=new .PerlArray
	fin <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1323	1419	
==>'ARRAY', YYDEBUG => '');
#Mandatory parameters
my(@params)=('LEX','RULES','STATES');

sub new <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1279	1371	
==>'ARRAY', YYDEBUG => '');
#Mandatory parameters
my(@params)=('LEX','RULES','STATES');

sub new <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614795	614897	
==>BODY" => "#line 508 \"src/ops/object.ops\"\n    opcode_t *next = {{^+4}};\n    INTVAL offset;\n    offs <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615946	616048	
==>BODY" => "#line 508 \"src/ops/object.ops\"\n    opcode_t *next = {{^+4}};\n    INTVAL offset;\n    offs <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8467	8569	
==>CDIC-land
  $Name2character{'lt'  }   = '<';
  $Name2character{'gt'  }   = '>';
  $Name2character{'quot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499305	499524	
==>573,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 600 \"src/ops/math.ops\"\n  {{\@1}} = floatval_mod <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2484	2598	
==>k {
	my($self)=shift;

	${$$self{ERRST}}=0;
    undef;
}

sub YYNberr {
	my($self)=shift;

	${$$self{NBER <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2382	2486	
==>k {
	my($self)=shift;

	${$$self{ERRST}}=0;
    undef;
}

sub YYNberr {
	my($self)=shift;

	${$$self{NBER <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	2308	2421	
==>= $length) {
	my ($src, $is_branch);

        $pc       = $new_pc;
	$op_code  = unpack "x$offset l", $pf->byte_cod <==
3	/Users/nnunley/parrot/config/inter/progs.pm	3730	3834	
==>xx'));
    $cxx = prompt("What C++ compiler do you want to use?", $cxx) if $ask;
    $conf->data->set(cxx <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	9225	9326	
==>ouldn't open \"@{[ BUCKET ]}\": $!\n";
  flock $fh, LOCK_EX
    or die "Couldn't flock \"@{[ BUCKET ]} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197337	197454	
==>366 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198234	198351	
==>366 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199131	199248	
==>366 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	5454	5560	
==>"";
}

sub DESTROY {}

sub hasleftmost($$)
{
	my ($self, $ref) = @_;

	my $prod;
	foreach $prod ( @{$self-> <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	5780	5877	
==>ORS_COUNT} || 0;
}

=item C<pod_errors($options)>

Gives you a description of any POD errors in th <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169174	169443	
==>PE" => "function",
                  "CODE" => 203,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 204 \"src/ops/cm <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28435	28537	
==>Matched terminal<< (return value: [}
						. $& . q{])},
						  Parse::RecDescent::_tracefirst($text)) <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30511	30613	
==>Matched terminal<< (return value: [}
						. $& . q{])},
						  Parse::RecDescent::_tracefirst($text)) <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	59624	59742	
==>reviously called
C<delimited_pat>. That name may still be used, but is now deprecated.
        

=head1 DIAGNOSTICS

In <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2392	2494	
==>rmine type of formal argument (%s)!", $formal_arg_name) 
      unless defined $formal_arg_type;

    $s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2092	2194	
==>rmine type of formal argument (%s)!", $formal_arg_name) 
      unless defined $formal_arg_type;

    $s <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3269	3373	
==>eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P17', 'P16'],
  ['apply_COUNT', 'ne', 'I16 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596173	596261	
==>rc/ops/object.ops\"\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, {{\@3}});\n  {{+=4 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597066	597154	
==>rc/ops/object.ops\"\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, {{\@3}});\n  {{+=4 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2739	2838	
==>ned $dest_type;
  $self->INTERNAL_ERROR("No type for left!")  unless defined $left_type;
  $self->IN <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2505	2604	
==>ned $dest_type;
  $self->INTERNAL_ERROR("No type for left!")  unless defined $left_type;
  $self->IN <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2427	2526	
==>ned $dest_type;
  $self->INTERNAL_ERROR("No type for left!")  unless defined $left_type;
  $self->IN <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	13728	13925	
==>(p = hop[i]; p; ) {
                next = p->next;
                free(p);
                p = next;
        }
        free(hop);
    }
    hop = 0;
}

END_C

}
else {
    print SOURCE <<END_C;
st <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	5597	5725	
==>on-4 space indenting (contains tab(s))");
                } elsif (length($indent) != 4) {
                    error($file, $line <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19551	19657	
==>elf->_restore($temp_0);
  return $return;
}

sub _op_gt {
  my ($self,$node) = @_;
  my $return;
  my $labe <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540540	540650	
==>(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541792	541902	
==>(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543044	543154	
==>(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18182	18308	
==>t
	print "Ok!"
end select
select case h
case 99
	print "Wrong 3!"
case <5
	print "Ok!"
case <10   ' Fallthrough
	print "Ok (not <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	1811	1911	
==>', 'PLATFORMS'),
            $self->new_item('Contains the version number of the distribution.', 'VER <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642904	643173	
==>,
                  "CODE" => 718,
                  "ARGS" => [
                              "i",
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 194 \"src/ops/pmc.ops\"\n  {{\@1}} <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	1793	1894	
==>ap)) {
    $rev_type_map{$v} = $k;
};

get_dis($DIS, $file);
get_source($file);
exit if $opt{D};
gen_c <==
3	/Users/nnunley/parrot/config/inter/lex.pm	882	991	
==>ef);

    unless ($conf->options->get('maintainer')) {
        $conf->data->set($util => 'echo');
        $sel <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	879	988	
==>ef);

    unless ($conf->options->get('maintainer')) {
        $conf->data->set($util => 'echo');
        $sel <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	35152	35248	
==>uld be returned. In
a void context, C<$text> would be replaced by an empty string.)

Likewise the <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30815	30955	
==>the item if it's a number or bullet.
          DEBUG and print " Item is of type ", $para->[0], " under $over_type\n";
          
          i <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34103	34243	
==>the item if it's a number or bullet.
          DEBUG and print " Item is of type ", $para->[0], " under $over_type\n";
          
          i <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	31780	31896	
==>the item if it's a number or bullet.
          DEBUG and print " Item is of type ", $para->[0], " under $over_type\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931954	932225	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_core <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932725	932996	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_core <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	292	386	
==>hort), as read
from an ops file via C<Parrot::OpsFile>, or perhaps even generated by
some other <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761454	761558	
==>TERS)\n        PANIC(\"Out of bound register access\");\n    REG_PMC({{\@1}}) = {{\@2}};\n    {{+=3}};\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762307	762411	
==>TERS)\n        PANIC(\"Out of bound register access\");\n    REG_PMC({{\@1}}) = {{\@2}};\n    {{+=3}};\n" <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	720	820	
==>.
sub gen_label() {
	# We'll emit a label for every single instruction.
	return <<'PIR';
strPC = ${PC <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	1880	1992	
==>fetch;
		goto MAIN;
	}
	if ($cur =~ /[A-Za-z]/) {		# Bareword 
		append;
		fetch;
		while($cur =~ /[A-Za-z0-9]/ o <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2375	2484	
==>r_num/g;
		$register_num++;
	}

	# Do code for each push.
	$pir .= "\${ITEMP0} = 0\n";
	for (1..$pushes) {
		$ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1727	1836	
==>r_num/g;
		$register_num++;
	}

	# Do code for each push.
	$pir .= "\${ITEMP0} = 0\n";
	for (1..$pushes) {
		$ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7323	7504	
==>$act
            or  $self->YYAccept();

            $$dotpos=$len;

                unpack('A1',$lhs) eq '@'    #In line rule
            and do {
                    $lhs =~ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6985	7159	
==>$act
            or  $self->YYAccept();

            $$dotpos=$len;

                unpack('A1',$lhs) eq '@'    #In line rule
            and do {
                    $lhs =~ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	2962	3064	
==>pty token buffer...\n";
    if($self->{'source_dead'}) {
      DEBUG and print "$self 's source is dead <==
3	/Users/nnunley/parrot/lib/Parrot/PMC.pm	277	387	
==>ndom => 4,
	UnManagedStruct => 5,
	ManagedStruct => 6,
	delegate => 7,
	CSub => 8,
	Compiler => 9,
	Exception = <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	590	696	
==>code, $output, $desc) = @_;
  
    $count = $self->{builder}->current_test + 1;

    $desc = $language unle <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	582	686	
==>code, $output, $desc) = @_;

    $count = $self->{builder}->current_test + 1;

    $desc = $language unle <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3042	3165	
==>NREG(%ld)",
    'p'  => "PREG(%ld)",
    's'  => "SREG(%ld)",
    'k'  => "PREG(%ld)",
    'ki' => "IREG(%ld)",

    'ic' => <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2862	2985	
==>NREG(%ld)",
    'p'  => "PREG(%ld)",
    's'  => "SREG(%ld)",
    'k'  => "PREG(%ld)",
    'ki' => "IREG(%ld)",

    'ic' => <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1959	2077	
==>NREG(%ld)",
  'p'   => "PREG(%ld)",
  's'   => "SREG(%ld)",
  'k'   => "PREG(%ld)",
  'ki'  => "IREG(%ld)",

  'ic'  => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297632	297914	
==>=> 346,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 970 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 0 : 1;\n  {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	11763	11900	
==>xedargs ], [ @$argdirs ], [ @$labels ], $flags);
        my $op_size = $op->size;
        my $jumps = "0";

        #
        # Macro subs <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	4134	4265	
==>blib/lib/libparrot.a' unless defined $Obj;
die "$0: '$Obj': No such file\n" unless -f $Obj;

my %ParrotAPI;

$| = 1;

my @H = qw(inc <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3975	4084	
==>|= "<rx_len>";
    my $fail = $self->output_label_use($failLabel);
    if ($needed eq "1") {
        return "g <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3689	3798	
==>|= "<rx_len>";
    my $fail = $self->output_label_use($failLabel);
    if ($needed eq "1") {
        return "g <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	2907	3014	
==>y $time = shift;
    
    return $self->stat->mtime > $time;
}

=item C<svn_id()>

Returns the svn C<$Id> st <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	499	611	
==>qw(is isnt like) ) {
    no strict 'refs';

    *{"Scheme::Test::output_$meth"} = sub ($$;$) {
        my( $lang_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1954	2054	
==>a good place (as we call gen_label before translating
	# every instruction) to see if we need to inst <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1353	1453	
==>a good place (as we call gen_label before translating
	# every instruction) to see if we need to inst <==
3	/Users/nnunley/parrot/Configure.pl	4658	4774	
==>$value = 1      unless defined $value;

  for ($key) {
    m/version/ && do {
      my $svnid = '$Id: /parrot/Configu <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15750	15848	
==>LER to force Test.pm to always
append the caller information to the test's `$desc`.

= SEE ALSO

Th <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	21892	21986	
==>lass_init_code =~ s/INTERP/interp/g;
    my $enum_name = $self->{flags}{dynpmc} ? -1 : "enum_cl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367870	368091	
==>_STDIN(interpreter), (size_t){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368662	368883	
==>_STDIN(interpreter), (size_t){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	15046	15163	
==>= @_;
    my $usable_regex = undef;

    return $usable_regex unless defined $regex;

    my($re, $opts);

    # Check <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	34979	35125	
==>9,
			"/" => 82
		},
		DEFAULT => -65
	},
	{#State 128
		ACTIONS => {
			"%" => 76,
			"*" => 80,
			"^" => 79,
			"/" => 82
		},
		DEF <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	74	197	
==>trict;

my $retcount=200;
my $currentexpr;

@builtins=qw( 	abs      	asc      	atn
	      	cdbl		chr$		cint
		clng		command$ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3797	3900	
==>rs and warnings instead of using
die() and warn().

=cut

sub get_symbol
{
  my $self = shift; # Require <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	26242	26339	
==>el$pattern$rdel$mod" }
	else		  { $desc = "m$ldel$pattern$rdel$mod" }
	$desc =~ s/\\/\\\\/g;
	$des <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	7115	7206	
==>otOps::optable{$opname}) {
	return $ParrotOps::optable{$opname};
    } elsif (!$experimental <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	333	430	
==>on> knows all kinds of stuff about the contents of
the distribution.

This is a subclass of C<Parr <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2435	2526	
==>_item_bullet { $_[0]->emit_par( 0) }
sub end_item_number { $_[0]->emit_par( 0) }
sub end_ite <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2003	2094	
==>_item_bullet { $_[0]->emit_par( 0) }
sub end_item_number { $_[0]->emit_par( 0) }
sub end_ite <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4484	4600	
==>elf->{args} } == 0) {
        delete $self->{name};
        delete $self->{args};
        return $self->op('nop', [], <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5621	5737	
==>elf->{args} } == 0) {
        delete $self->{name};
        delete $self->{args};
        return $self->op('nop', [], <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9645	9745	
==>o(1));

  diag('some misc comments and documentation');

= DESCRIPTION

This module was built to faci <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30795	30933	
==>=" => 73,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -54
	},
	{#State 101
		DEFAULT => -50
	},
	{#State 102
		DE <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	23350	23454	
==>o whatever
	# I_ARG_0 turns out to me. We also keep track of the fact that ARG0 should
	# only exist insi <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8500	8598	
==>d) {
        $*ERR.say("# Looks like you failed $Test::num_of_tests_failed tests of $Test::num_of_t <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8140	8291	
==>mval);
			};

                $$check eq 'ABORT'
            and	do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Abort.\n";

				return(un <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7774	7916	
==>mval);
			};

                $$check eq 'ABORT'
            and	do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Abort.\n";

				return(un <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13878	13975	
==>o=13
print mine(foo,20,z)
print foo
print z.foo

' Should print 100, 103
type first
	foo as intege <==
3	/Users/nnunley/parrot/config/auto/pack.pm	1988	2110	
==>$conf->data->set($which => $format);
    }

    $conf->data->set(
        packtype_b => 'C',
        packtype_n => ($conf-> <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42367	42476	
==>]}} . q{]},
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{"name"} .'})
						if defined $ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	6159	6255	
==>ref =~ m/\G(?:[a-zA-Z0-9]+|.)/gcs }
	}
	if ($#nesting>=0)
	{
		_failmsg "Unmatched opening bracke <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1140	1235	
==>ver 4

=item * C<new()>

Basic constructor.

Accepts no arguments and returns a L<Parrot::Config <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	677	772	
==>ver 4

=item * C<new()>

Basic constructor.

Accepts no arguments and returns a L<Parrot::Config <==
3	/Users/nnunley/parrot/languages/scheme/Scheme.pm	1339	1427	
==>self->{tokens});
  $self->{code}   = link_functions(Scheme::Generator::generate($self->{t <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	22462	22587	
==>) ? " " : " const ";
    if (scalar @mmds) {
        $cout .= <<"EOC";

   $const MMD_init _temp_mmd_init[] = {
        $mmd_l <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2407	2517	
==>sts($$self{USER})
	or	$$self{USER}={};

	$$self{USER};
	
}

sub YYErrok {
	my($self)=shift;

	${$$sel <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2312	2412	
==>sts($$self{USER})
	or	$$self{USER}={};

	$$self{USER};
	
}

sub YYErrok {
	my($self)=shift;

	${$$sel <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453680	453938	
==>0,
                  "ARGS" => [
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 230 \"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/Configure.pl	5949	6057	
==>the given compiler warning flags
   --cxx=(compiler)     Use the given C++ compiler
   --libs=(libs)        U <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76702	76805	
==>TRACE =~ /\d+/
	    && $::RD_TRACE>1
	    && $::RD_TRACE+10<length($_[0]))
	{
		my $count = length($_[0] <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77013	77116	
==>TRACE =~ /\d+/
	    && $::RD_TRACE>1
	    && $::RD_TRACE+10<length($_[0]))
	{
		my $count = length($_[0] <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	1940	2048	
==>in/ruby
    type      = .rb

=head1 BUGS

While every effort was made to ensure this script is portable,
it i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786115	786202	
==>line 417 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed_int(inter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787026	787113	
==>line 417 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed_int(inter <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	9458	9677	
==>dirs, 'i';
                }
                elsif ($use eq 'inconst')
                {
                    push @temp, "${type}c";
                    push @argdirs, 'i';
                }
                elsif ($use e <==
3	/Users/nnunley/parrot/config/init/hints/linux.pm	638	767	
==>C/) {
        $ld_share_flags .= ' -fPIC';
    }

    if ($cc =~ /icc/) {

        # Intel C++ compiler has the same name as its C <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	43517	43625	
==>m($content);
      DEBUG > 1 and print " Considering E<$content> with char ",
        defined($charnum) ? $ch <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	16901	17022	
==>+ 1;

            # Name of the file with test code.
            my $code_f = File::Spec->rel2abs( per_test('.pir', $test_ <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	4975	5095	
==>\s*,\s*\(void\*\)\s*(.*)\)/CALL("$1")/g;
                # The ->u.(string|float) is unnecessary.
                $asm =~ <==
3	/Users/nnunley/parrot/Configure.pl	4882	5007	
==>gure 2.0
$svnid
END
      exit;
    };

    m/help/    && do {
      print <<"EOT";
$0 - Parrot Configure 2.0

General Options <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	27498	27607	
==>lf->can($method)) {
        $desc = $self->$method($op, @{ $op->{args} });
        return ($back, @ops) if ! d <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	2847	2962	
==>s) 
    {
        $self->process_item_text_or_head_start_token($token);
    } 
    elsif ($tagname eq 'Data') 
    { <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30439	30543	
==>label = "LD_VALTYPE_$name";
            $pir .= <<PIR
\$I1000000 = loadtype["type"]
if \$I1000000 != ELEM <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19185	19281	
==>d $self->get(1)->is_assign
      and $self->get(2)->is_ident
      and $self->get(3)->is_open_par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786175	786382	
==>>get_integer_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787086	787293	
==>>get_integer_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	407	517	
==>ub'; }

sub new
{
  my $class = shift;

  confess "Expected 5 args!" unless @_ == 5;
  my ($block, $type, $iden <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	3825	3931	
==>^([\{\}])(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, $1 eq '{' ? 'open-brace' : ' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3352	3443	
==>d::Simple::DumpAsXML>

The older libraries L<Pod::PXML>, L<Pod::XML>, L<Pod::SAX>


=head1 C <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3004	3095	
==>d::Simple::DumpAsXML>

The older libraries L<Pod::PXML>, L<Pod::XML>, L<Pod::SAX>


=head1 C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77106	77388	
==>=> 99,
                  "ARGS" => [
                              "p",
                              "p",
                              "sc",
                              "sc"
                            ],
                  "BODY" => "#line 1156 \"src/ops/core.ops\"\n  char * con <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	7836	7973	
==>and without maximum lengths
        my $havemax = 0;
        my @chunks = ([]);

        foreach my $kid (@{ $t->{args} }) {
            i <==
3	/Users/nnunley/parrot/config/inter/lex.pm	910	1012	
==>ions->get('maintainer')) {
        $conf->data->set($util => 'echo');
        $self->set_result('skippe <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	907	1009	
==>ions->get('maintainer')) {
        $conf->data->set($util => 'echo');
        $self->set_result('skippe <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5760	5887	
==>:[".
#DBG>					 join(',',map { $$_[0] } @$stack).
#DBG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				def <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5486	5606	
==>:[".
#DBG>					 join(',',map { $$_[0] } @$stack).
#DBG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				def <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	209	306	
==>$ctx->{rx_match} ||= '$rx_match';
    $ctx->{rx_stack} ||= '$rx_stack';
    $ctx->{rx_tmp} ||= '$r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784359	784598	
==>pmc_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785265	785504	
==>pmc_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11675	11785	
==>filter out any call coverage lines.
    do_filter(sub { /^call/ } );

    print OUT "</pre>";
    print OUT pag <==
3	/Users/nnunley/parrot/Configure.pl	10105	10204	
==>e = $conf->data->get('make');

print <<"END";

Okay, we're done!

You can now use `$make' to build y <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042906	1042997	
==>s/var.ops\"\n    VTABLE_set_pmc_keyed_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043803	1043894	
==>s/var.ops\"\n    VTABLE_set_pmc_keyed_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+= <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	322	418	
==>s and
subcommands can be specified, the build tool takes this and generates the
actual compiler f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133817	133905	
==>BODY" => "#line 321 \"src/ops/bit.ops\"\n  string_bitwise_xor(interpreter, {{\@1}}, {{\@2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134598	134686	
==>BODY" => "#line 321 \"src/ops/bit.ops\"\n  string_bitwise_xor(interpreter, {{\@1}}, {{\@2 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15431	15539	
==>t expression tokens
		$whole.=join(' ', map { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair unary -, func <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15793	15901	
==>t expression tokens
		$whole.=join(' ', map { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair unary -, func <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16944	17052	
==>t expression tokens
		$whole.=join(' ', map { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair unary -, func <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	1606	1742	
==>${pir_fn} languages/${lang_fn}",
                "$self->{parrot} languages/${pir_fn}",
            );
        }
        elsif ( $lua <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2753	2865	
==>$args[$i]->compile($compiler);
      $compiler->emit("  $temp = $value");
      $args[$i] = $temp;
    }
    else <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2453	2565	
==>$args[$i]->compile($compiler);
      $compiler->emit("  $temp = $value");
      $args[$i] = $temp;
    }
    else <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802184	802453	
==>PE" => "inline",
                  "CODE" => 905,
                  "ARGS" => [
                              "p",
                              "k",
                              "sc"
                            ],
                  "BODY" => "#line 467 \"src/ops/set.o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021694	1021787	
==>@2}};\n  Parrot_gmtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022536	1022629	
==>@2}};\n  Parrot_gmtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938045	938342	
==>in",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 10 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938934	939231	
==>in",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 10 <==
3	/Users/nnunley/parrot/lib/File/Which.pm	1722	1873	
==>ile unless $all;
                push @results, $file;
                # we can stop this loop as if it finds more aliases matching,
                # i <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	5329	5458	
==>=> 1,
        conditioned_lines             => 1
    );
    genfile(
        'languages/m4/config/makefiles/root.in' => 'languages <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	3972	4076	
==>ot;" />
          <RegExpr attribute="Identifier" context="#stay" String="[a-zA-Z_][\\w_]*" />
      </co <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8288	8386	
==>H_$_:\n";
		}
		push @{$code{$seg}->{code}}, "\t# $syms[CURR]\n" if $type[CURR] eq "COMM";
		$elset <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509053	509313	
==>};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509684	509944	
==>};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37593	37685	
==>t = elements dtypes
if pop_count == 0 goto INS_TRANS_PUSH_LOOP_$name
type_trans = dtypes[0]
p <==
3	/Users/nnunley/parrot/examples/benchmarks/overload.pl	15	135	
==>age Foo;
use strict;

use overload '*' => \&my_mul, 'fallback' => 1;

sub new {
    my ($class, $val) = @_;
    bless \$v <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1510	1620	
==>th> relative to the default temporary
directory.

=cut

sub tmp_directory
{
    my $self = shift;
    
    retu <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	15177	15282	
==>e timeval.
        # set $t->ru_utime to 100.0 sec and $t->ru_stime to 5.0 sec.
    $t->ru_utime->tv_secs( <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	24056	24196	
==>TDOUT' => $build_f,
                                     'STDERR' => $build_f);
            $builder->diag("'$cmd' failed with exit code $exi <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	24817	24957	
==>TDOUT' => $build_f,
                                     'STDERR' => $build_f);
            $builder->diag("'$cmd' failed with exit code $exi <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	184	284	
==>ion ();
use Pod::Simple::BlackBox ();
#use utf8;

use vars qw(
  $VERSION @ISA
  @Known_formatting_co <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	37088	37195	
==>re; you can redistribute it and/or 
modify it under the same terms as Perl itself.

See F<http://www.perl.co <==
3	/Users/nnunley/parrot/lib/Test/More.pm	37497	37604	
==>re; you can redistribute it and/or 
modify it under the same terms as Perl itself.

See F<http://www.perl.co <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	6457	6564	
==>re; you can redistribute it and/or 
modify it under the same terms as Perl itself.

See F<http://www.perl.co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	604648	604909	
==>emoveparent",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	8727	8854	
==>'Para' ) 
    {
        $tagname = 'Para_item' 
            if @{$self->{STACK}} and $self->{STACK}->[-1] eq 'text';
    }
    e <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35079	35203	
==>&& return;
        }

        _my_exit( $num_failed <= 254 ? $num_failed : 254  ) && return;
    }
    elsif ( $self->{Skip_A <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	9187	9316	
==>> '.o',
             'opcode_t' => 'long',
             'opcode_t_size' => 4,
             'ops' => 'src/ops/core.ops src/ops/bit. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361627	361721	
==>ne 281 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interprete <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362526	362620	
==>ne 281 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interprete <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	442	582	
==>}

#  sub output_fork {
#      my ($label) = @_;
#      return "fork $label->[1]";
#  }

#  sub output_reverse_fork {
#      my ($label) = @_ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	20899	21007	
==>4
		 'expr', 3,
sub
#line 137 "lib/Regex/Grammar.y"
{ return op('call' => [ $_[2], 0 ]) }
	],
	[#Rule 25
		 ' <==
3	/Users/nnunley/parrot/lib/Test/More.pm	36386	36483	
==>fuses you and you just want to write
some tests.  You can upgrade to Test::More later (it's forwar <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	2683	2774	
==>stered class's C<runstep()> method.

Accepts a list and returns a L<Parrot::Configure> objec <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363484	363573	
==>nst s = Parrot_sprintf_c(interpreter, \"%f\", (double){{\@2}});\n    PIO_putps(interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364387	364476	
==>nst s = Parrot_sprintf_c(interpreter, \"%f\", (double){{\@2}});\n    PIO_putps(interpreter <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5103	5232	
==>failed ($?)\n";

        # Execute permissions on libraries is especially important on
        # some platforms
        if ($^O eq <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5314	5443	
==>failed ($?)\n";

        # Execute permissions on libraries is especially important on
        # some platforms
        if ($^O eq <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571161	571337	
==>{{\@1}} = Parrot_object_isa(interpreter, {{\@2}}, class);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572116	572292	
==>{{\@1}} = Parrot_object_isa(interpreter, {{\@2}}, class);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	1214	1304	
==>'', 'docs/mmd.pod'),
			$self->new_item('', 'docs/strings.pod'),
			$self->new_item('', 'do <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	26995	27185	
==>ults : 0;
            for ($start..$num-1) {
                $test_results->[$_] = &share({
                    'ok'      => 1, 
                    actual_ok => undef, 
                    r <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4143	4320	
==>"Extra arguments!" if @_;

  return $self->{SYMBOLS}{$name};
}


###############################################################################

=head2 BLOCK->symbol_names()

Re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	2587	2736	
==>PE" => "inline",
                  "CODE" => 2,
                  "ARGS" => [],
                  "BODY" => "#line 108 \"src/ops/core.ops\"\n#ifdef __ <==
3	/Users/nnunley/parrot/tools/dev/cc_flags.pl	491	586	
==>le> to process the flags to pass to the
compiler for each C file.

See F<config/gen/cflags/root. <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1822	1941	
==>subroutines required for the mapper.
sub subs() {
	# No extra subs.
	return "";
}

# Label generation.
sub gen_label() { <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	862	981	
==>subroutines required for the mapper.
sub subs() {
	# No extra subs.
	return "";
}

# Label generation.
sub gen_label() { <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	619	738	
==>subroutines required for the mapper.
sub subs() {
	# No extra subs.
	return "";
}

# Label generation.
sub gen_label() { <==
3	/Users/nnunley/parrot/tools/dev/pbc_header.pl	1709	1831	
==>attype );
	print "$f\n";
	for my $i (0..5) {
	    my $c = substr $header, $i, 1;
	    $c = unpack 'c', $c;
	    printf "\t% <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	498	639	
==>',
    output_isnt       => 'isnt_eq'
                        );

foreach my $func ( keys %language_test_map ) {
    no strict 'refs';

    *{ <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	837	978	
==>',
    output_isnt       => 'isnt_eq'
                        );

foreach my $func ( keys %language_test_map ) {
    no strict 'refs';

    *{ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	26006	26100	
==>.= <<"EOC";
#define N_MMD_INIT (sizeof(_temp_mmd_init)/sizeof(_temp_mmd_init[0]))
        Parro <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11599	11720	
==>tokens[-1] .= $c;
        }
    }

#    for (0..$#tokens) { print STDERR "  $tokens[$_] $types[$_]\n"; }

    return \@tok <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	2377	2496	
==>mp", "$destdir/$inc");
                #push(@generated, "$destdir/$inc");
                move_if_diff("$inc.tmp", "$de <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	32039	32137	
==>ble with exiting inside an END block.  5.005_03
and 5.6.1 both seem to do odd things.  Instead, thi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360682	360861	
==>S" => [
                              "p"
                            ],
                  "BODY" => "#line 258 \"src/ops/io.ops\"\n  PMC * const p = {{\@1}};\n  STRING * const s = <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	21688	21804	
==>me of where we'll stash the .def file.
        my $deffile = "$group.def";

        # Does the DEF file already exist <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	24593	24697	
==>mro(interp, entry);
EOC
    # declare each nci method for this class
    foreach my $method (@{ $self->{m <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	945	1070	
==>YPE   => $type,
    NAME   => $ident->value,
    FILE   => $ident->file,
    LINE   => $ident->line,
  }, $class;

  #
  # Che <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	10802	10912	
==>,/, $parameters));
    # TODO
    # scan src/call_list.txt if the generated signature is available
    # TODO r <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9375	9477	
==>n 
	print "Hi"
elseif t=1 then
	print "Wrong"
else
	print "Correct"
end if
if p$ = "Hello" then print " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572842	572980	
==>"
                            ],
                  "BODY" => "#line 242 \"src/ops/object.ops\"\n  PMC *name = pmc_new(interpreter, enum_cla <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573752	573890	
==>"
                            ],
                  "BODY" => "#line 242 \"src/ops/object.ops\"\n  PMC *name = pmc_new(interpreter, enum_cla <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	202	296	
==>tion

=head1 SYNOPSIS

	use Parrot::Docs::Section::Perl;

=head1 DESCRIPTION

A documentation s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253738	253885	
==>,
                  "BODY" => "#line 726 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@2}} : {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254601	254748	
==>,
                  "BODY" => "#line 726 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@2}} : {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255464	255611	
==>,
                  "BODY" => "#line 726 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@2}} : {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	15412	15545	
==>k hack to get the inheritance
            # ParrotClass isa delegate
            #
            # delegate has everything autogenerated <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722292	722386	
==>? */\n  if (s && string_length(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723321	723415	
==>? */\n  if (s && string_length(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048402	1048658	
==>, {{\@2}}, next);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049326	1049582	
==>, {{\@2}}, next);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	11218	11364	
==>Y, $Z)
        elsif ($opbody =~ /
        ^(?:.*\.ops")\s+
        {{\@(\d)}}->vtable->
        (\w+)
        \(interpreter,
        \s*
        { <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	11891	12008	
==>(float)GET_NCI_N($reg_num);";
        return "t_$temp_num";
    };
    /d/ && do {
        push @{$temps_ref}, "double <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79419	79532	
==>ess. We just need to build\n         a PMC with it so we can get and set the value */\n      {{\@1}} = pmc_new(int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80940	81053	
==>ess. We just need to build\n         a PMC with it so we can get and set the value */\n      {{\@1}} = pmc_new(int <==
3	/Users/nnunley/parrot/languages/regex/test.pl	4253	4377	
==>um\n";
        print " == Received ==\n$actual_output\n";
        print " == Expected ==\n$output\n";
        return 0;
    } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240150	240254	
==>"\n  INTVAL l = VTABLE_get_integer(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241098	241202	
==>"\n  INTVAL l = VTABLE_get_integer(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	43298	43450	
==>t
          '>'
        );
        # Don't need to do --$i, as the 'E<' we just added isn't interesting.
        next;
      }

      DEBUG > 1 and print <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104075	1104165	
==>n(interpreter, NULL, NO_CLASS,\n\t\t\t\t\"Class '%Ss' not found\", class);\n\t{{\@1}} = pmc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105290	1105380	
==>n(interpreter, NULL, NO_CLASS,\n\t\t\t\t\"Class '%Ss' not found\", class);\n\t{{\@1}} = pmc <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7894	8000	
==>f, $reg) = @_;
    $reg = value($reg);
    return ("restore $reg", "save $reg");
}

use vars qw($DEBUG_LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920475	920775	
==>"NAME" => "sprintf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921367	921667	
==>"NAME" => "sprintf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	922260	922560	
==>"NAME" => "sprintf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031616	1031908	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sizeof",
                  "FLAGS" => <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1425	1560	
==>test   => { name => $t, data => $tests->{$t},   },
        };
    }
}


push @EXPORT => keys %{$test_map};

use base qw( Parrot::Test Ex <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	772	900	
==>~ /\d/) {
			append;
			fetch;
			goto NUMCONST;
		}
		if ($cur eq '.' ) {
			append;
			fetch;
			$numtype="FLO";
			goto NUMCON <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	10378	10499	
==>encoding'} = $e;
      1;
    }
    and $e eq 'HACKRAW'
  ) {
    DEBUG and print " Putting in HACKRAW (no-op) encoding mo <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	3522	3642	
==>inal
    # reference.

    foreach my $stmt (@output2) {
        # $stmt : { label => ?label, code => op }
	my ($label, $ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	17439	17533	
==>HILE_$_
AFTERWHILE_$_:
LOOPUP
}
my $docounter=0;
sub parse_do {
	$docounter++;
	if ($syms[NEXT] <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	19845	19964	
==>Template.
    # changes/bugs fixed since 20feb94 version:
    #  - Updated to be a more proper module.
    #  - Added "u <==
3	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	1003	1106	
==>ate this file after SVN
# has been told about new generated files.
# 
# Ignore the SVN directories
\B\.s <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3858	3960	
==>ate this file after SVN
# has been told about new generated files.
#
# Ignore the SVN directories
\B\.s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9460	9588	
==>ype') || 'pod');
        
      } elsif ($tagname eq 'Data') {
        my $next = $self->get_token;
        next unless defined $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	34308	34412	
==>0-9]+\([-a-zA-Z0-9]+\)$/s) { # man sections
          # Hopefully neither too broad nor too restrictive a <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	209	306	
==>on section

=head1 SYNOPSIS

    use Parrot::Docs::Section::Info;

=head1 DESCRIPTION

A documenta <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	3143	3246	
==>le = $core_flag ? 'core.ops' : shift @ARGV;

my $base = $file;
$base =~ s/\.ops$//;

my $incdir  = "incl <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20184	20280	
==>lass, you should define a C<run> just so
that users can call C<parse_file> etc, but you don't I<h <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	3927	4082	
==>5358979323846"
                                      # PI

    $P0[unicode:"monadic:\u2373"]  =  <<"END_PIR"            # index of
    #XXX hack all the _1' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599997	600086	
==>ODY" => "#line 363 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interprete <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601073	601162	
==>ODY" => "#line 363 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interprete <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	678	782	
==>truct::Expression::Value');
  confess "Left is not Value!" if defined $left and not UNIVERSAL::isa($left, <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35690	35790	
==>thing failed it will exit with how many failed.  If
you run less (or more) tests than you planned, th <==
3	/Users/nnunley/parrot/lib/Test/More.pm	33761	33861	
==>thing failed it will exit with how many failed.  If
you run less (or more) tests than you planned, th <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2557	2657	
==>thing failed it will exit with how many failed.  If
you run less (or more) tests than you planned, th <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	603	735	
==>.31) },
    S => { map { $_ => 0 } (0..31) },
    P => { map { $_ => 0 } (0..31) },
  };
};

sub _save {
  my $self  = shift;
  my $c <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1085	1212	
==>,
    FILE   => $ident->file,
    LINE   => $ident->line,
  }, $class;

  #
  # Check for a few bad conditions.
  #
  # NOTE: Th <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	988	1115	
==>,
    FILE   => $ident->file,
    LINE   => $ident->line,
  }, $class;

  #
  # Check for a few bad conditions.
  #
  # NOTE: Th <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447264	447555	
==>( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	448086	448377	
==>( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449572	449863	
==>( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	658	775	
==>} },    $x; # prefix to stack
  } else {
    DEBUG and print " And oo, it gets to be root!\n";
    $_[0]{'_currpos'} = <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	15651	15756	
==>case}_NO_OR:
	push P9, "="
	push P9, "OP"
	P0= P5		# The "constant"
	bsr RUNTIME_PUSH
	pop P0, P12
	bsr RU <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	3549	3691	
==>until');         }
sub is_var           { return shift->is('var');           }
sub is_while         { return shift->is('while');         }

sub <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	6604	6716	
==>{  # Y only
		feedme();
		($resulty, $typey, @codey)=EXPRESSION();   # Y (only)
	} else {
	    	($resultx, $typex <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2143	2235	
==>libnameE<gt>.c and pmc_E<lt>libnameE<gt>.h if his object
represents a named library.

=cut

s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1558	1671	
==>}, $class;

  $block->push_content($self);

  return $self;
}


#
# ACCESSORS:
#

sub kind  { return shift->{KIND} <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	30462	30559	
==>y used:

	($remainder = $text) =~ s/\A('(\\.|[^'])*')//s;
	$extracted = $1;

but with C<extract_de <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	158	243	
==>eter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.p <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1671	1774	
==>ir($target, $pattern)
        : Parrot::Test::PGE::_generate_pir_for($target, $pattern)
    );

    goto <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2194	2297	
==>ir($target, $pattern)
        : Parrot::Test::PGE::_generate_pir_for($target, $pattern)
    );

    goto <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	12006	12101	
==>tr);
static void store_op(op_info_t *info, int full);

/* XXX on changing interpreters, this sho <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	3060	3182	
==>atching type
            # ? -Wmissing-declarations
            #   Warn if a global function is defined without a previous <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1615	1716	
==>pattern
        ? Parrot::Test::PGE::_generate_subrule_pir($target, $pattern)
        : Parrot::Test:: <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2138	2239	
==>pattern
        ? Parrot::Test::PGE::_generate_subrule_pir($target, $pattern)
        : Parrot::Test:: <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	14777	14890	
==>tmp = $I0
    gen_pir = concat tmp
    gen_pir = concat "\n"
NOT_TRY_START:

    # If this is the start of a typed <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	967	1066	
==>@_;

  my $block = $self->block;
  my $ident = $self->ident->value;

  $compiler->emit("_LABEL_$iden <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	2021	2116	
==>art of a new method?
        if ($line =~ /^\[([\w\.]+)\s*\:\:\s*(\w+)\s*(\:unimplemented)?\s*\] <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1031	1152	
==>n $self;
    }

    my $prog;

    # precedence of sources for the program:
    # default -> probe -> environment -> optio <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1028	1149	
==>n $self;
    }

    my $prog;

    # precedence of sources for the program:
    # default -> probe -> environment -> optio <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	129	235	
==>) = @_;
    my $idf = 'tmp_' . $parser->YYData->{idx_tmp}++;
    return new defn( $idf, 'tmp', $type, $su <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34913	35037	
==>a number attribute.
          } elsif($item_type eq 'text') {
            $self->whine(
              $para->[1]{'start_line' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101799	101887	
==>> "#line 130 \"src/ops/bit.ops\"\n  string_bitwise_not(interpreter, {{\@2}}, &{{\@1}});\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102570	102658	
==>> "#line 130 \"src/ops/bit.ops\"\n  string_bitwise_not(interpreter, {{\@2}}, &{{\@1}});\n <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8469	8589	
==>t;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the store.
	# Otherwise, there's nothin <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6289	6409	
==>t;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the store.
	# Otherwise, there's nothin <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5204	5324	
==>t;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the store.
	# Otherwise, there's nothin <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32355	32468	
==>C
    my $l = $self->line_directive($line, "ref.c");
    return <<EOC;
$l
$decl {
    $ret
}

EOC
}

=back

=head2 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	2509	2605	
==>{ Name => 'module', Attributes => { name => $self->name } });
  $_->sax($handler) foreach $self-> <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	3680	3829	
==>annel',
        expr    => '__expr',
        int     => '__integer',
        list    => '__list',
        script  => '__script',
        var     => '_ <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	4354	4503	
==>annel',
        expr    => '__expr',
        int     => '__integer',
        list    => '__list',
        script  => '__script',
        var     => '_ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3658	3771	
==>eedme();
		if ($syms[CURR] eq ",") {
			feedme();
			next;
		}
	}

}
sub parse_input {
	feedme();
	my $promptcode= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952983	953369	
==>o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1072,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#lin <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	11396	11504	
==>}, "char t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = (char)GET_NCI_I($reg_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4449	4545	
==>compile($compiler);

  unless ($dest_type->name eq $calc_type->name) {
    my $temp = $compiler-> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24971	25132	
==>rget, $cond, $left, $op, $right);
      next;
    }

    #
    # Conditional Blocks:
    #
    #   if     (<value> <op> <value>) {
    #   unless (<value> <op> <v <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645815	645903	
==>ble_max)\n\t\t{{\@1}} = interpreter->vtables[{{\@2}}]->whoami;\n    else\n\t\t{{\@1}} = P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646712	646800	
==>ble_max)\n\t\t{{\@1}} = interpreter->vtables[{{\@2}}]->whoami;\n    else\n\t\t{{\@1}} = P <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	13482	13591	
==>$max = $op->maxlen();
    $max = "INF" if ! defined $max;
    return "$str [$min..$max]";
}

# Defaults
sub Re <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	518	620	
==>em * the estimated number of ops performed,

=item * the elapsed time, and 

=item * the number of M op <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	521	622	
==>em * the estimated number of ops performed,

=item * the elapsed time, and

=item * the number of M op <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21958	22076	
==>->forth->text;

        $self->require_open_paren;

        $left  = Jako::Construct::Expression::Value->new($block, $s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22891	23009	
==>->forth->text;

        $self->require_open_paren;

        $left  = Jako::Construct::Expression::Value->new($block, $s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24538	24655	
==>->forth->text;

        $self->require_open_paren;
        $left  = Jako::Construct::Expression::Value->new($block, $s <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4735	4880	
==>ptures = "";
    }
    return qq(
        .sub _PGE_Test
            .local pmc p6rule_compile
            load_bytecode "PGE.pbc"
            loa <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	743	835	
==>k is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Left is not Va <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	755	847	
==>k is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Left is not Va <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	8136	8277	
==>tmp>', 'group end' ]),
                        aop('setend', [ $group, '<tmp>' ] ),
                        aop('popint', [ '<tmp>', 'group st <==
3	/Users/nnunley/parrot/config/auto/pack.pm	678	785	
==>>get('intsize');
    my $longsize = $conf->data->get('longsize');
    my $ptrsize  = $conf->data->get('ptrsi <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9158	9257	
==>rx_tmp>, <rx_stack>[-1\] # peekindex",
            "eq <rx_tmp>, -1, ".$self->output_label_use($fall <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2408	2499	
==>[0]->emit_par( 0) }
sub end_item_bullet { $_[0]->emit_par( 0) }
sub end_item_number { $_[0]- <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1976	2067	
==>[0]->emit_par( 0) }
sub end_item_bullet { $_[0]->emit_par( 0) }
sub end_item_number { $_[0]- <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	13608	13742	
==>art_line' => $m, '~cooked' => 1},
        #['~Top', {'start_line' => $m},
        $_
        #]
        ],
        @{$self->{'errata'}{ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	6978	7107	
==>ts} = $max;
        $self->{Have_Plan}      = 1;

        $self->_print("1..$max\n") unless $self->no_header;
    }
    return $se <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11054	11156	
==>= $num_groups
  length <rx_len>, <rx_input> # cache the length in <rx_len>

END

    push @ops, $self-> <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Examples.pm	186	281	
==>- Examples documentation section

=head1 SYNOPSIS

    use Parrot::Docs::Section::Examples;

=he <==
3	/Users/nnunley/parrot/config/auto/byteorder.pm	665	781	
==>yteorder testing program: $!";
    cc_clean();

    chomp $byteorder;

    if ($byteorder =~ /^1234/) {
        $conf <==
3	/Users/nnunley/parrot/config/auto/env.pm	668	768	
==>c_gen('config/auto/env/test_setenv.in');
    eval { cc_build(); };
    unless ($@ || cc_run() !~ /ok/ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	16985	17081	
==>y $false;
my $whilecounter=0;
sub parse_while {
	$whilecounter++;
	push(@whiles, { jump => $while <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2274	2391	
==>nguage_test_map{$func};
    
      {
        no strict 'refs';

        $pass = $self->{builder}->$builder_func( Parro <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11349	11446	
==>_RETURN_${CURIC}:

# Finished.
goto PRE_CALL_END_${CURIC}

# It's a return. See if we have a retur <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8535	8632	
==>_RETURN_${CURIC}:

# Finished.
goto PRE_CALL_END_${CURIC}

# It's a return. See if we have a retur <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	602240	602523	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "class",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22648	22748	
==>cent::_trace(q{>>Matched directive<< (return value: [}
						. $_tok . q{])},
						Parse::RecDescent <==
3	/Users/nnunley/parrot/config/auto/socklen_t.pm	588	683	
==>_socklen_t = $Config{d_socklen_t};
    my $has_socklen_t = ( $d_socklen_t && $d_socklen_t ne 'un <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	1874	1980	
==>var}) {
			push(@saves, $var);
		}
	}
	if (@saves) {
		print CODE qq{\t\t# Grab "COMMON" variables from glo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353594	353689	
==>"#line 200 \"src/ops/io.ops\"\n  STRING * const s = {{\@1}};\n  if (s && string_length(interpret <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354339	354434	
==>"#line 200 \"src/ops/io.ops\"\n  STRING * const s = {{\@1}};\n  if (s && string_length(interpret <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	31667	31785	
==>e eq 'number') {
          my $item_type = $self->_get_item_type($para);
            # That kills the content of the it <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561792	561882	
==>ps/object.ops\"\n  opcode_t *next = {{^+4}};\n  {{\@1}} = VTABLE_find_method(interpreter, { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562876	562966	
==>ps/object.ops\"\n  opcode_t *next = {{^+4}};\n  {{\@1}} = VTABLE_find_method(interpreter, { <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2943	3042	
==>$handler->end_element({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
    $handle <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3617	3716	
==>$handler->end_element({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
    $handle <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3707	3806	
==>$handler->end_element({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
    $handle <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	1572	1703	
==>_error() if @_;
    }
    elsif ( $base_type eq 'ARRAY' ) {
        $class = shift;
        @decls = @{shift()};
        _usage_erro <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	10686	10801	
==>gint
	my $typ = $DEFVAR;
        my $pmc = temp('P');
	$c =~ s/[lL]$//;
	print <<EOC;
	$pmc = new .BigInt $cmt
	$pmc <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10832	10917	
==>4314,/* 59 */
II,$b,$c,$d,$a,$_[17],21,0x4e0811a1,/* 60 */
II,$a,$b,$c,$d,$_[8],6,0xf7 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	2783	2914	
==>oto @2
    #  ...
    #  @1: goto @2
    #

    # First, convert all statements to the form
    #  { label => optional_label, code = <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	18969	19108	
==>t_compare
{
    my ($l, $r) = @_;
    my $cmp = temp('I');
    if ($l && $l->[1]) {
	$l = $l->[1];
    }
    else {
	$l = 'P5';
    }
    pu <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	101	193	
==>9601 2006-05-30T13:32:26.641316Z coke  $

=head1 NAME

examples/mops/mops.c - Calculate M ops <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	97	189	
==>9601 2006-05-30T13:32:26.641316Z coke  $

=head1 NAME

examples/mops/mops.c - Calculate M ops <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7118	7226	
==>ut_pushindex {
    my ($self, $reg) = @_;
    $reg = value(defined($reg) ? $reg : 'pos');
    return $self->o <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6760	6868	
==>ut_pushindex {
    my ($self, $reg) = @_;
    $reg = value(defined($reg) ? $reg : 'pos');
    return $self->o <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	3147	3251	
==>e've seen any errors (fatal or not)

 'code_handler',      # coderef to call when a code (non-pod) line i <==
3	/Users/nnunley/parrot/lib/File/Which.pm	3905	3999	
==>, looking for executable files having the name specified
as a parameter to C<which()>. Under Wi <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	4309	4429	
==>{
    $nm_opt = '-B';
    $nm_ro = 1;
} elsif ($^O eq 'dec_osf' && $nm_try =~ /Alpha/) { # aka Tru64 aka DEC OSF/1
    $n <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1079	1166	
==>code_t*)cur_opcode + CONTEXT(interpreter->ctx)->pred_offset)

#  define opcode_to_preder <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1209	1296	
==>code_t*)cur_opcode + CONTEXT(interpreter->ctx)->pred_offset)

#  define opcode_to_preder <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	68233	68409	
==>ock_DOD(interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	68674	68850	
==>ock_DOD(interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	880	975	
==>de/parrot/warnings.h
    src/pmc/timer.pmc
    src/utils.c
);
my $destdir = 'runtime/parrot/incl <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6695	6842	
==>_TEXT} = 1;
    }
    
    my @to_unget;
    
    # Get all the contained tokens, including the end token.
    
    while ( 1 )
    {
        push @ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5530	5630	
==>ops, $self->output_label_def($passLabel);
    return @ops;
}

sub output_initgroup {
    my ($self, $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5223	5323	
==>ops, $self->output_label_def($passLabel);
    return @ops;
}

sub output_initgroup {
    my ($self, $ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	4203	4323	
==>Link to the actual file rather than the HTML version.
            $index_html .= $formatter->html_link(
                $ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8502	8590	
==>tab$(12);c$(i+1);tab$(22);c$(i+2);tab$(32);c$(i+3)
next
print
data "ABANDON","CHART","COM <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21366	21454	
==>tab$(12);c$(i+1);tab$(22);c$(i+2);tab$(32);c$(i+3)
next
print
data "ABANDON","CHART","COM <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	12735	12860	
==>ct ) {
        # undef only matches undef and nothing else
        my $test = defined $got || defined $dont_expect;

        $ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	13179	13304	
==>ct ) {
        # undef only matches undef and nothing else
        my $test = defined $got || defined $dont_expect;

        $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	40977	41079	
==>ight well be just one string scalar)
      $self->{'content_seen'} ||= 1;
      $self->_traverse_treele <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20634	20766	
==>cal_back => aop('ge', [ $matchcount, $max, $rfail ]),
               @R_ops,
               aop('add', [ $matchcount, 1 ]),
     $che <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	56228	56328	
==>le, the following extracts substrings that are valid Perl variables:

        @fields = extract_multi <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	8858	8961	
==>{
			$closetagpos = pos($$textref)-length($1);
			goto matched;
		}
		elsif ($ignore && $$textref =~ m/\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218759	218852	
==>BODY" => "#line 469 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vta <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219738	219831	
==>BODY" => "#line 469 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vta <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1008	1103	
==>confess "Left is not Value!" if defined $left and not UNIVERSAL::isa($left, 'Jako::Construct::Ex <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1036	1131	
==>confess "Left is not Value!" if defined $left and not UNIVERSAL::isa($left, 'Jako::Construct::Ex <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	708	803	
==>confess "Left is not Value!" if defined $left and not UNIVERSAL::isa($left, 'Jako::Construct::Ex <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	35961	36054	
==>miters and are
therefore treated as non-delimiter characters (and ignored).

However, if a par <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	57	166	
==>sub new {
    my ($proto, %options) = @_;
    my $self = bless \%options, (ref($proto) || $proto);
    $self-> <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	224	333	
==>sub new {
    my ($proto, %options) = @_;
    my $self = bless \%options, (ref($proto) || $proto);
    $self-> <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	565	674	
==>sub new {
    my ($proto, %options) = @_;
    my $self = bless \%options, (ref($proto) || $proto);
    $self-> <==
3	/Users/nnunley/parrot/config/auto/aio.pm	989	1156	
==>k/x
            ) {
            print " (yes) " if $verbose;
            $self->set_result('yes');

            $conf->data->set(
                aio        => 'define' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612984	613095	
==>"\n    VTABLE_set_attr_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613891	614002	
==>"\n    VTABLE_set_attr_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	50	153	
==>liness)
#

use warnings;

use vars qw( %usertypes );
use vars qw( %arrays );
use vars qw( $funcname $sub <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2320	2415	
==>token->type() eq "text" >>

=item $token->is_end

This is a shortcut for C<< $token->type() eq " <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	13516	13608	
==>this, qr/$regex/, $name);
  $Test->like($this, '/$regex/', $name);

Like Test::More's like(). <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	510	607	
==>ON

This script uses a supplied transform to create a pair of C header and
implementation files fr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	692	786	
==>t defined!" unless defined $right;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Ja <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	704	798	
==>t defined!" unless defined $right;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Ja <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	3681	3791	
==>$name must be hash reference'\n";
            $out .= "        if defined(\$init{'$name'}) && ref(\$init{'$name <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85444	85531	
==>1208 \"src/ops/core.ops\"\n  PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86351	86438	
==>1208 \"src/ops/core.ops\"\n  PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467401	467625	
==>6,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 376 \"src/ops/math.ops\"\n  INTVAL den = {{\@2}};\n  if ( <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	13565	13693	
==>ms, "\$" .
						  optype_of($arg->[0], $arg) .
						  $retcount++;
					}
				}
				if (@return_params) {
					push @code, spri <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	1956	2055	
==>'PASM/IMC access to Parrot configuration data.', 
		        'runtime/parrot/library/config.pir')
		) <==
3	/Users/nnunley/parrot/languages/APL/t/APL.pm	766	868	
==>ble is set,
# skip the tests - speed things up for end users, give developers the ability
# to easily s <==
3	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	797	891	
==>script of the svn:ignore properties
# of the directories in the Parrot subversion repository. ( <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3652	3746	
==>script of the svn:ignore properties
# of the directories in the Parrot subversion repository. ( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563943	564050	
==>ps\"\n  VTABLE_add_method(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564841	564948	
==>ps\"\n  VTABLE_add_method(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3639	3738	
==>rts at C<PC + S>.

=item C<$n>

Transforms to the op function's nth argument. C<$0> is the opcode it <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1271	1365	
==>rg_type, $arg_name, $arg_token) = @$arg;
    my $sym = Jako::Symbol->new($self, 'local', 'arg', <==
3	/Users/nnunley/parrot/config/auto/va_ptr.pm	353	442	
==>w(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936602	936865	
==>lecase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1053 <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9543	9649	
==>!$self->{flags}{dynpmc}) {
	    my $name = lc $self->{class};
	    $cout .= <<"EOC";
#include "$name.str"
E <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	1133	1231	
==>ce line info

=item C<--no-body>

Emit an empty body in the dump. This may be useful for debugging. <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	26718	26821	
==>VENT (WELL-INTENTIONED) CALAMITY
	$mod =~ s/[gc]//g;
	$pattern =~ s/(\A|[^\\])\\G/$1/g;

	bless 
	{
		"p <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	231	320	
==>les/mops/mops.pl

=head1 DESCRIPTION

A Perl implementation of the F<examples/mops/mops.pa <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	227	316	
==>les/mops/mops.pl

=head1 DESCRIPTION

A Perl implementation of the F<examples/mops/mops.pa <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	23353	23492	
==>";
    }

    if ($action{default}) {
        dump_default();
        exit;
    }

    # All other actions require files
    if ( !@ARGV ) { <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	1432	1534	
==>ut see L</"Data is not an API">.

=item No Parrot API

The API is defined in the lib but not defined in <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	2757	2845	
==>Prederef);
Usage() unless $is_allowed{$class_name};
my $trans_class = "Parrot::OpTrans::" <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	8185	8334	
==>me::Seconds->new($10)->minutes) . "&nbsp;min",
      summary       => [{
        total       => $11,
        ok          => $12,
        failed      = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037703	1037795	
==>ps/var.ops\"\n    Parrot_store_global(interpreter, NULL, {{\@1}}, {{\@2}});\n    {{+=3}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038484	1038576	
==>ps/var.ops\"\n    Parrot_store_global(interpreter, NULL, {{\@1}}, {{\@2}});\n    {{+=3}};\n", <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3525	3650	
==>ry $group --c " . join(" ",@pmcfiles))
              or die "pmc2c library creation failed ($?)\n";
        }
    }
} 
elsif ( <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3629	3754	
==>ry $group --c " . join(" ",@pmcfiles))
              or die "pmc2c library creation failed ($?)\n";
        }
    }
} 
elsif ( <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19476	19575	
==>lly
					  appended.");
	}
	elsif ($parser->{_AUTOTREE} && defined($item) && !$item->isa("Parse::Rec <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	4560	4672	
==>t if ($_->{CODE} < 0);	# skip
    my $opname = $_->full_name;
    my $n = $ParrotOps::optable{$opname} ;
    if ( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100155	100394	
==>ine",
                  "CODE" => 124,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 106 \"src/ops/bit.ops\"\n  {{\@1}} = <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	5492	5646	
==>se_type eq 'HASH' ){
                $elem = "{'${class}::$name'}";
            }
            if( defined $arrays{$name} ){
                $out .= "    my <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2920	3023	
==>ile,
    $self->line
  );

  $block->set_symbol($self->name, $sym);

  $block->push_content($self);

  r <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2643	2746	
==>ile,
    $self->line
  );

  $block->set_symbol($self->name, $sym);

  $block->push_content($self);

  r <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	51250	51348	
==>}
			elsif ($grammar =~ m/$AUTOTREEMK/gco)
			{
				_parse("an autotree marker", $aftererror,$line) <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	5383	5484	
==>ed$meth $cmt
EOC
    my (@params, $k, $v, $params);
    while ( ($k, $v) = each(%{$def_arg_names{$arg} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1320	1409	
==>or $token->is_tagname(I<somestring>)

These are shortcuts for C<< $token->tag() eq I<somes <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1750	1839	
==>or $token->is_tagname(I<somestring>)

These are shortcuts for C<< $token->tag() eq I<somes <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4764	4866	
==>e "copy command requires destination";
    my $dest = $1;

    my ($group_files, $group_libs, $pmc_grou <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4868	4970	
==>e "copy command requires destination";
    my $dest = $1;

    my ($group_files, $group_libs, $pmc_grou <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688165	688387	
==>able->delprop(interpreter, {{\@1}}, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688937	689159	
==>able->delprop(interpreter, {{\@1}}, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35463	35567	
==>@item, $_tok;
		' . ($self->{"lookahead"} ? '$text = $_savetext;' : '' ) .'
		}
'
}

package Parse::RecDe <==
3	/Users/nnunley/parrot/config/init/hints/cygwin.pm	1457	1571	
==>et_aton';
    } elsif ($define !~ /inet_[ap]ton/) {
        $define = join(',', 'inet_aton', $define);
    }
    $c <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	2236	2348	
==>code.c',
             'chmod' => 'perl -MExtUtils::Command -e ExtUtils::Command::chmod',
             'configdate <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	10615	10713	
==>@_;

    my $trymatch = $self->output_label_use($L_trymatch);
    my $backup = $self->output_label_ <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	16718	16826	
==>pmc_dt  = (stat $pmc)[9];
    my $dump_dt = (stat $file)[9];

    return $dump_dt > $pmc_dt;
}

=head2 dump_p <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	464	570	
==>etitions of R
# group : Capture a group
# scan : Scan through input until R matches
# atend : At the end of <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33914	34049	
==>o it's not contentless
            }
          }


        } elsif($over_type eq 'bullet') {
          my $item_type = $self->_get_item_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149148	149234	
==>rc/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) == {{\@2}}) { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150089	150175	
==>rc/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) == {{\@2}}) { <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	1652	1763	
==>ore the beginning
    $pos = $count if $pos > $count; # Just past the end (in case we get more tokens)

    $sel <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4019	4120	
==>pir .= "\${ITEMP0} = 0\n";
	for (1..$pushes) {
		$pir .= <<'PIR';
# Increment stack depth.
inc stack_d <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2435	2536	
==>pir .= "\${ITEMP0} = 0\n";
	for (1..$pushes) {
		$pir .= <<'PIR';
# Increment stack depth.
inc stack_d <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1751	1860	
==>ook.
sub post_translation() {
	# Nothing to do.
	return "";
}

# Extra subroutines required for the mapper.
su <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	791	900	
==>ook.
sub post_translation() {
	# Nothing to do.
	return "";
}

# Extra subroutines required for the mapper.
su <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	548	657	
==>ook.
sub post_translation() {
	# Nothing to do.
	return "";
}

# Extra subroutines required for the mapper.
su <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4893	5013	
==>on;
  return undef unless length $out;
  return $out;  
}


sub resolve_pod_page_link {
  my($self, $to) = @_;
  
  retur <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	349	438	
==>');
  return $new;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	348	437	
==>');
  return $new;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787990	788132	
==>table->get_number_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788900	789042	
==>table->get_number_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	43872	43978	
==>plice(@_, 2, 0, 0);
	return _generate(@_);
}

sub _no_rule ($$;$)
{
	_error("Ruleless $_[0] at start of gra <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	12551	12666	
==>p when iterating from end.
    unshift result, $P1

    inc op1
    goto neg_loop

pos_loop:
    if op1 == 0 goto do <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9985	10089	
==>e');
    my $slash = $conf->data->get('slash');
    my $verbose = $conf->options->get('verbose');

    if <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10566	10670	
==>e');
    my $slash = $conf->data->get('slash');
    my $verbose = $conf->options->get('verbose');

    if <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297026	297374	
==>@2}} == {{\@3}}) ? 0 : 1;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297882	298230	
==>@2}} == {{\@3}}) ? 0 : 1;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298738	299086	
==>@2}} == {{\@3}}) ? 0 : 1;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  " <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	1478	1593	
==>ap {; m/^([-a-z]+)/s && push @_to_accept, $1; $_ }
    qw[
      sample=samp
      definition=dfn
      kbd=keyboard <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11340	11435	
==>e_call_NO_RETURN_${CURIC}:

# Finished.
goto PRE_CALL_END_${CURIC}

# It's a return. See if we h <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8526	8621	
==>e_call_NO_RETURN_${CURIC}:

# Finished.
goto PRE_CALL_END_${CURIC}

# It's a return. See if we h <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	6394	6508	
==>([^{]*?)}}/  $trans->restart_offset(-$1) . "; {{=0}}"; /me;

    s/{{=\*}}/            $trans->goto_pop();       /m <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1164	1267	
==>) {
    my $pmc_type = $self->ident->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();
    $compi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1158	1261	
==>) {
    my $pmc_type = $self->ident->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();
    $compi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565734	565844	
==>n  {{\@1}} = {{\@2}}->vtable->can(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566627	566737	
==>n  {{\@1}} = {{\@2}}->vtable->can(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	6010	6116	
==>rod->expected();
		unless (! $next or _contains($next,@expected) )
		{
			push @expected, $next;
		}
	}

	r <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29214	29364	
==>> 73,
			"+" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			" <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41320	41470	
==>> 73,
			"+" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			" <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44466	44616	
==>> 73,
			"+" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			" <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8810	8958	
==>$$states[$$stack[-1][0]]{GOTOS}{$lhs}, $semval ]);
                $$check='';
                next;
            };

#DBG>			$debug & 0x04
#DBG <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8413	8555	
==>$$states[$$stack[-1][0]]{GOTOS}{$lhs}, $semval ]);
                $$check='';
                next;
            };

#DBG>			$debug & 0x04
#DBG <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	689	789	
==>Methods

=over 4

=cut

package Parrot::Distribution;

use strict;
use warnings;

use Data::Dumper;
u <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9628	9743	
==>print STDERR "**At eof: aborting.\n";
				return(undef);
			};

#DBG>			$debug & 0x10
#DBG>		and	print STDERR " <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	4512	4623	
==>else {
        DEBUG > 5 and print "# It's a code-line.\n";
        $code_handler->(map $_, $line, $self->{'line <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9195	9305	
==>print STDERR "**At eof: aborting.\n";
				return(undef);
			};

#DBG>			$debug & 0x10
#DBG>		and	print STDERR " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879891	880341	
==>",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 997,
                  "ARGS" => [
                              "s",
                              "sc",
                              "i",
                              "i"
                            ],
                  "BODY" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822335	822422	
==>->entry_type != STACK_ENTRY_INT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823403	823490	
==>->entry_type != STACK_ENTRY_INT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29687	29791	
==>_meta($pre_load, $mv, "pre_load for rule $rule->{'name'}");
		$pir .= "### end pre_load\n";

		# If we ha <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	1373	1473	
==>tion.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new(
		'Configuration', 'config.htm <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	824	921	
==>fined $type and not UNIVERSAL::isa($type, qw(Jako::Construct::Type));
  confess "Value (" . ref($v <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	36129	36243	
==>>isa('CallOp') ) {
        unless ( exists $returns[-1]->{pragma} ) {
            $returns[-1]->{pragma} = 'multi <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	22504	22612	
==>he runmode
# specified in @ARGS.
#
sub main {
    my ($default, $dump, $gen_c, $tree, @include);
    # initia <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	2422	2517	
==>of interest to people writing a Pod processor/formatter.

This class takes Pod and parses it, re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607495	607605	
==>,
                  "BODY" => "#line 473 \"src/ops/object.ops\"\n    {{\@1}} = VTABLE_get_attr(interpreter, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608399	608509	
==>,
                  "BODY" => "#line 473 \"src/ops/object.ops\"\n    {{\@1}} = VTABLE_get_attr(interpreter, {{\ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13678	13781	
==>t

' Passing structures
' Expect:  100, 12 and 103
type first
	foo as integer
	bar as string
end type
fu <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	824	942	
==>lose PMC;

    # Throw out everything but the pmclass declaration
    s/^.*?pmclass//s;
    s/\{.*$//s;

    return $PM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093625	1093712	
==>src/ops/experimental.ops\"\n  VTABLE_morph(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094428	1094515	
==>src/ops/experimental.ops\"\n  VTABLE_morph(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	4191	4412	
==>hable} = 1;
                        last; # Stop tracing through jumps
                    } else {
                        die "untargeted label $dest->{label}";
                    }
                }
                las <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	47487	47593	
==>ft(@_) if @_ and ref($_[0] || '') eq 'CODE';

  DEBUG and print "\n\n", '#' x 76,
   "\nAbout to parse sour <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29163	29261	
==>r'} =~ /\$\{DEST0\}/ || $rule->{'instruction'} =~ /\$\{DEST0\}/) {
			$need_dest = 1;
		} elsif ($r <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	36583	36690	
==>);
			Parse::RecDescent::_hint("Lookahead for negated optional
					   repetitions (such as
					   \"!$subr <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	10165	10268	
==>);
	}
	barf();
	$currentexpr=join(' ', map { $_->[0] } @expr);
	return(@expr);
}
sub pushthing {
	my($co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747061	747299	
==>inline",
                  "CODE" => 841,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 194 \"src/ops/set.ops\"\n  {{\@1 <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	71135	71250	
==>defined $::RD_AUTOSTUB)
				{
					_warn(3,"Undefined (sub)rule \"$call\"
					      used in a production.")
					an <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61520	61622	
==>od and $prod->additem($item)
			      or  _no_rule("pattern terminal",$line,$code);
		}
		elsif ($gramm <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16433	16527	
==>f->forth->text;
      my $right = Jako::Construct::Expression::Value->new($block, $self->forth) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17204	17298	
==>f->forth->text;
      my $right = Jako::Construct::Expression::Value->new($block, $self->forth) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18009	18103	
==>f->forth->text;
      my $right = Jako::Construct::Expression::Value->new($block, $self->forth) <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	41094	41200	
==>nd_lex($symbol);

  my $scope = $self->{scope};

  while ($scope && !exists $scope->{$symbol}) {
    $scope <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	4093	4191	
==>? @regexes : '[^\d\D]';
}

# Frequently Used Variables
my %bench;
my @section = sort $ini->GroupMem <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4328	4422	
==>if $self->suffix =~ /^(?:dump|html|flag|o)$/o
        or $self->name =~ /^(?:perl6-config|libpa <==
3	/Users/nnunley/parrot/config/gen/config_h.pm	12	101	
==>(C) 2001-2006, The Perl Foundation.
# $Id: /parrot/config/gen/config_h.pm 19593 2006-05-30 <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	73099	73199	
==>d method: $AUTOLOAD\n" unless ref $_[0];
	my $class = ref($_[0]) || $_[0];
	my $text = ref($_[1]) ? $ <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	5173	5343	
==>func or cpp directives.
            $f = undef if ($1 eq "}");
            next;
        }

        if (defined($f)) {
            # first line of a block
            if ( <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	81	178	
==>k depth and assigns to
# virtual registers numbered by depth. This eliminates the need for a stack <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	81	178	
==>k depth and assigns to
# virtual registers numbered by depth. This eliminates the need for a stack <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22195	22306	
==>lue->new($block, $self->require_value);

        $self->require_close_paren;
      }

      $self->require_semic <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23128	23239	
==>lue->new($block, $self->require_value);

        $self->require_close_paren;
      }

      $self->require_semic <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24774	24884	
==>lue->new($block, $self->require_value);
        $self->require_close_paren;
      }

      $self->require_semic <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9781	9893	
==>urn "$value, ";
}

sub output_param {
    my ($self, $name, $type, $reg) = @_;
    $reg = value($reg);
    return <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	7204	7311	
==>);
}

    
__END__
# The following symbols are available in a C89 Hosted Implementation
# (not sure if I got <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3426	3523	
==>the current
position to the start of the Parrot code, without resuming.

=item C<restart OFFSET(X) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2196	2285	
==>ko::Construct::Expression::Value::Identifier')) {
    my $right_sym = $block->find_symbol( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2154	2243	
==>ko::Construct::Expression::Value::Identifier')) {
    my $right_sym = $block->find_symbol( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2076	2165	
==>ko::Construct::Expression::Value::Identifier')) {
    my $right_sym = $block->find_symbol( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934085	934316	
==>ing_downcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934860	935091	
==>ing_downcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	6230	6327	
==>PER(a,b,c)>

As above, but uses the actual dynamic type of C<SELF>.

=back

=head1 AUTHOR

Leopold <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1596	1684	
==>d1 SEE ALSO

L<Pod::Simple::PullParserToken>, L<Pod::Simple>, L<Pod::Simple::Subclassing> <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2763	2851	
==>d1 SEE ALSO

L<Pod::Simple::PullParserToken>, L<Pod::Simple>, L<Pod::Simple::Subclassing> <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1883	1971	
==>d1 SEE ALSO

L<Pod::Simple::PullParserToken>, L<Pod::Simple>, L<Pod::Simple::Subclassing> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504020	504285	
==>ine 631 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504875	505140	
==>ine 631 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505730	505995	
==>ine 631 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506584	506849	
==>ine 636 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507439	507704	
==>ine 636 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	508294	508559	
==>ine 636 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	728359	728594	
==>nst temp = {{\@1}};\n   {{\@1}} = {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729953	730188	
==>nst temp = {{\@1}};\n   {{\@1}} = {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8658	8743	
==>44f7af,/* 10 */
FF,$c,$d,$a,$b,$_[14],17,0xffff5bb1,/* 11 */
FF,$b,$c,$d,$a,$_[15],22, <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	8431	8551	
==>g;
			$desc =~ s/^\s+//os;
			$desc =~ s/\s+$//os;
			
			# Remove any POD.
			# TODO - Decide whether we want to do this <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	14093	14201	
==>y =~ s/^[ ]{4}//mg;
    my $super = $self->{super}{$meth};

    my $total_body;
    if ($method->{loc} eq 'vt <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	7623	7724	
==>@@@@@@@@@@@@@@@@
#
# And now targets (not directives)

sub accept_target         { shift->accept_targe <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	4323	4440	
==>c/ops/core.ops\"\n    opcode_t *pc = CUR_OPCODE;\n    DO_OP(pc, interpreter);\n    {{=pc}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	8421	8556	
==>$chdir ) {
        $orig_dir = cwd;
        chdir $chdir;
    }

    # Execute all commands
    system( $_ ) for (@{$command});

    if( <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	5818	5921	
==>both($Init,   $Uninit,  'init',   'uninit');
warn_if_both($Def,    $Undef,   'def',    'undef');

$Undef <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	204	293	
==>rserEndToken;
use Pod::Simple::PullParserTextToken;

BEGIN { *DEBUG = \&Pod::Simple::DEBUG <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	5667	5767	
==>ty Output
if ( ! $cfg{use_times} && @program < 2 ) {
    print "WARNING: Switching percentage to time <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2531	2630	
==>er->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $self->op } });
    $self <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2408	2507	
==>er->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $self->op } });
    $self <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480631	480735	
==>"#line 446 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481634	481738	
==>"#line 446 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482637	482741	
==>"#line 446 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpr <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4064	4277	
==>t;
            s/^\\v//
                and $str .= "\x0b",    # vertical tab
                last;
            s/^\\([0-9]{1,3})//
                and $str .= chr $1, 
                last;

            s/ <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2550	2762	
==>t;
            s/^\\v//
                and $str .= "\x0b",    # vertical tab
                last;
            s/^\\([0-9]{1,3})//
                and $str .= chr $1,
                last;

            s/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	337375	337482	
==>ops/io.ops\"\n  {{\@1}} = (INTVAL)PIO_getfd(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/examples/benchmarks/primes2.pl	133	233	
==>$i==$max){
	last;
    }
}
printf("N primes calculated to %d is %d\nlast is: %d\n",$max,$i6,$i7);

sub <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	1868	1962	
==>xpected, $description)>

Runs the Parrot Assembler code and passes the test if a string compari <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	2309	2403	
==>xpected, $description)>

Runs the Parrot Assembler code and passes the test
if a string compari <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	33180	33318	
==>);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ($w->[2] eq 'P') {
	   $ww = temp('I');
	   print <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	33929	34067	
==>);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ($w->[2] eq 'P') {
	   $ww = temp('I');
	   print <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	34853	34991	
==>);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ($w->[2] eq 'P') {
	   $ww = temp('I');
	   print <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39722	39859	
==>$stat ) = @_;
    if ( scalar @{$stat} ) {
        my @opcodes = ();
        my $main = new defn( '_main', 'fct' );
        push @opco <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216887	216974	
==>> "#line 462 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217827	217914	
==>> "#line 462 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121228	121554	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123924	124250	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124798	125124	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	721	818	
==>lue::Identifier');
  confess("Left (" . ref($left) . ") is not Value") unless UNIVERSAL::isa($left <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	712	809	
==>lue::Identifier');
  confess("Left (" . ref($left) . ") is not Value") unless UNIVERSAL::isa($left <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	601	698	
==>lue::Identifier');
  confess("Left (" . ref($left) . ") is not Value") unless UNIVERSAL::isa($left <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	316	399	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub _han <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1520	1638	
==>ock;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  my $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1478	1596	
==>ock;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  my $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1400	1518	
==>ock;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  my $ <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	390	490	
==>teps;
    $conf->add_steps(@steps);
    $conf->runsteps;

=head1 DESCRIPTION

This module provides pr <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	1764	1861	
==><-B>

The same as C<--t>.

=item C<--type=long>

=item C<-L>

Append a long type (e.g. "global_con <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1939	2194	
==>phe
                last;
            s/^\\a//
                and $str .= "\a",      # bell
                last;
            s/^\\b//
                and $str .= "\b",      # backspace
                last;
            s/^\\f//
                a <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3453	3708	
==>phe
                last;
            s/^\\a//
                and $str .= "\a",      # bell
                last;
            s/^\\b//
                and $str .= "\b",      # backspace
                last;
            s/^\\f//
                a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	36321	36526	
==>{\@1}});\n  push_exception(interpreter, eh);\n  {{+=2}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         ble <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	445965	446206	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	446601	446842	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ] <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	574	686	
==>n ('set <rx_match>["!POS"], <rx_pos>',
            'set <rx_match>["!RESULT"], 1',
            'add <rx_tmp>, <rx <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784785	785205	
==>IRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 886,
                  "ARGS" => [
                              "p",
                              "kic",
                              "p"
                            ],
                  "BODY" = <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1492	1612	
==>t >2) {
          $path_to_language = File::Spec->join(File::Spec->updir() x ($dir_count - 2));
        }
        my @tes <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	5337	5439	
==>>{"calls"}} = ();
	$_[0]->{"changed"}  = 0;
	$_[0]->{"impcount"}  = 0;
	$_[0]->{"opcount"}  = 0;
	$_[0] <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	3217	3314	
==>asses are shown with lower
case class names in the class tree.

=item C<noinit>

Used with C<abstr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1944	2043	
==>mbol($left->value);
    $self->SYNTAX_ERROR("Expression involves unknown variable %s.", $left->value <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1902	2001	
==>mbol($left->value);
    $self->SYNTAX_ERROR("Expression involves unknown variable %s.", $left->value <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1824	1923	
==>mbol($left->value);
    $self->SYNTAX_ERROR("Expression involves unknown variable %s.", $left->value <==
3	/Users/nnunley/parrot/tools/dev/manicheck.pl	705	885	
==>SKIP are not reported as extra
files. 

=cut

################################################################################

use strict;
use FindBin;
use lib "$FindBin::Bin/../.. <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1963	2062	
==>ace (as we call gen_label before translating
	# every instruction) to see if we need to instate a st <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1362	1461	
==>ace (as we call gen_label before translating
	# every instruction) to see if we need to instate a st <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	42923	43057	
==>=> 200
		}
	},
	{#State 189
		DEFAULT => -4,
		GOTOS => {
			'block' => 201,
			'chunk' => 57
		}
	},
	{#State 190
		DEFAULT <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	9528	9653	
==>gal in an XML Name.
        or $new_code =~ m/^[-\.0-9]/s
        or $new_code =~ m/:[-\.0-9]/s;
            # The legal under <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10792	10917	
==>gal in an XML Name.
        or $new_code =~ m/^[-\.0-9]/s
        or $new_code =~ m/:[-\.0-9]/s;
            # The legal under <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2349	2457	
==>known variable %s.", $right->value) unless $right_sym;
    $right_type = $right_sym->type;
  }
  else {
    $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2307	2415	
==>known variable %s.", $right->value) unless $right_sym;
    $right_type = $right_sym->type;
  }
  else {
    $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2229	2337	
==>known variable %s.", $right->value) unless $right_sym;
    $right_type = $right_sym->type;
  }
  else {
    $ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20252	20368	
==>$th{$type};
			} else {
				$marker='USER';
			}
			push(@types, [ $name, $type, $marker ]);
			feedme();
			if ($typ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948831	948916	
==>ps/string.ops\"\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@1}}, {{\@2}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949631	949716	
==>ps/string.ops\"\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@1}}, {{\@2}} <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39440	39564	
==>TION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 182,
			'functioncall' => 31,
			'function' => 26,
			'ta <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787975	788064	
==>}} = {{\@2}}->vtable->get_number_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788885	788974	
==>}} = {{\@2}}->vtable->get_number_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	2602	2694	
==>ss;
}

=item C<dynext_load_code($library_name, %classes)>

C<$library_name> is the name of th <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4309	4423	
==>elf->at(-1);

  while(1) {
    $token      = $self->forth;
    $last_token = $self->get(-1);

    last if $token->i <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2917	3015	
==>RINT "ERR this line in subroutine one should be skipped"
Label2:
   PRINT "4 back in subroutine one <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16884	16982	
==>RINT "ERR this line in subroutine one should be skipped"
Label2:
   PRINT "4 back in subroutine one <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9342	9452	
==>dex");
}

sub output_popint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);
    if ($self->{DEBU <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9036	9146	
==>dex");
}

sub output_popint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);
    if ($self->{DEBU <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	35992	36138	
==>=" => 78,
			"*" => 80,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAUL <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36250	36396	
==>=" => 78,
			"*" => 80,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAUL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664999	665237	
==>PE" => "inline",
                  "CODE" => 743,
                  "ARGS" => [
                              "p",
                              "ki"
                            ],
                  "BODY" => "#line 359 \"src/ops/pmc.ops\" <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	5265	5368	
==>if ($type eq 'classmatch') {
	return $R->{args}[0] eq $S->{args}[0];
    } elsif ($type eq 'start' || $t <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1784	2031	
==>print  "Elapsed time:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 = $N1 / $N2;              # div    N1, N1, N2
$N2 = 100 <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	1784	2031	
==>print  "Elapsed time:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 = $N1 / $N2;              # div    N1, N1, N2
$N2 = 100 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	1227	1349	
==>t("  new $left, .$right");

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->s <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	198	299	
==>entation section

=head1 SYNOPSIS

    use Parrot::Docs::Section::C;

=head1 DESCRIPTION

A documentat <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	21492	21598	
==>tf
   "\nAbout to start _remap_sequences on treelet from line %s.\n",
   $start_line || '[?]'
  ;
  DEBUG > <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1266	1350	
==>en->tagname(...)

=item $token->is_tag(I<somestring>) or $token->is_tagname(I<somestr <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1696	1780	
==>en->tagname(...)

=item $token->is_tag(I<somestring>) or $token->is_tagname(I<somestr <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	4873	4973	
==>dir) {
    mkdir($incdir, 0755) or die "ops2c.pl: Could not mkdir $incdir $!!\n";
}

open HEADER, ">$ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	36846	36935	
==>ce?' => \&_op_char_whitespace_p,
  'char-upper-case?' => \&_op_char_upper_case_p,
  'char- <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3610	3696	
==>d::Simple>, L<Pod::Simple::TextContent>, L<Pod::Text>

=head1 COPYRIGHT AND DISCLAIMERS <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30646	30767	
==>@$paras, $para;
          next;

        } elsif($over_type eq 'text') {
          my $item_type = $self->_get_item_type($ <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3351	3462	
==>utput
        # XXX This should be "print the last command". Which is harder.
        $body =~ s/^(\s*)([^\n]+)\ <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4758	4869	
==>utput
        # XXX This should be "print the last command". Which is harder.
        $body =~ s/^(\s*)([^\n]+)\ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	8932	9027	
==>f->{'Title'} = $title;

  esc($title);
  print {$self->{'output_fh'}}
   "<html><head>\n<title>$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753548	753634	
==>DY" => "#line 261 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_integer_native(interprete <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754336	754422	
==>DY" => "#line 261 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_integer_native(interprete <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38420	38524	
==>[$n], $line, $out_name);
    }
    my $decl = $self->decl($self->{class}, $method, 0);
    my $parameters <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	841	938	
==>ther compilations. But, string
# literals are subject to interpolation, and so they go through
# c <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1860	1951	
==>arrot::Configure::Data> object intended to contain CLI
option data.

Accepts no arguments an <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	862	986	
==>r type"
    unless $type and $type=~/^[INPS]$/;
  my @temp;
  for(0..31) {
    next if $self->{regs}->{$type}{$_} == 1;
    l <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2883	2985	
==>dir to be '.'.
    return (defined $rel_path and $rel_path eq '') ? '.' : $rel_path;
}

=item C<parent( <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	41737	41849	
==>es.

  #my @ells_to_tweak;

  while($treelet = shift @stack) {
    for(my $i = 2; $i < @$treelet; ++$i) { # itera <==
3	/Users/nnunley/parrot/lib/Test/More.pm	3523	3621	
==>t to completely skip an entire testing script.

  use Test::More skip_all => $skip_reason;

Your sc <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	33573	33661	
==>s to C<'{}()[]E<lt>E<gt>'> (see below).

C<extract_bracketed> extracts a balanced-bracket <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	13019	13126	
==>n_parent_list( [$dir1, $dir2], $class, $classes );

Generate an ordered list of parent classes to put in the <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1449	1553	
==>b sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'op', Attributes = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1443	1547	
==>b sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'op', Attributes = <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	8778	8892	
==>table>
    );
    print OUT page_footer();

    close(OUT);
}



sub write_function_coverage_summary {

    print " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59318	59423	
==>"src/ops/core.ops\"\n  PARROT_WARNINGS_on(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59966	60071	
==>"src/ops/core.ops\"\n  PARROT_WARNINGS_on(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688146	688255	
==>s\"\n   {{\@1}}->vtable->delprop(interpreter, {{\@1}}, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688918	689027	
==>s\"\n   {{\@1}}->vtable->delprop(interpreter, {{\@1}}, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	1478	1573	
==>o HTML link. This method returns an empty string which will
be discarded when building the navig <==
3	/Users/nnunley/parrot/config/auto/gc.pm	1521	1646	
==>ewhere here
    unless ($test >= 128 && $test < 155) {
      # if not, use own copy of malloc
      $gc = 'malloc';
    }

=cu <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	30009	30108	
==>ckage to find it.  If that's not set, it's
pretty good at guessing the right package to look at base <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369529	369815	
==>}, (size_t){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	370414	370700	
==>}, (size_t){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	14909	15031	
==>l \$^W;
			       my \$thisscore = do { $code } + 0;
			       if (!defined(\$score) || \$thisscore>\$score)
					{ \$score <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	989	1097	
==>e 5.004;

use strict;

use vars qw ( $VERSION $COMPATIBLE $FILENAME );

$VERSION = '1.05';
$COMPATIBLE <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	1308	1415	
==>tories, $name) = File::Spec->splitpath($path);
    
    # Needs '' to avoid a warning.
    my $parent_path = <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	959	1060	
==>e 5.004;

use strict;

use vars qw ( $VERSION $COMPATIBLE $FILENAME );

$VERSION = '1.05';
$COMPATIBLE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687666	687950	
==>" => 0,
                  "NAME" => "delprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688437	688721	
==>" => 0,
                  "NAME" => "delprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	305	407	
==>ops [input2.ops ...]
 $ perl tools/build/ops2pm.pl [--renum]  input.ops [input2.ops ...]

=head1 DESCRI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629814	630070	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":object_classes",
                  "ARG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630803	631059	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":object_classes",
                  "ARG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107526	1107782	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":object_classes",
                  "ARG <==
3	/Users/nnunley/parrot/config/gen/platform.pm	2898	3056	
==>);
    for (@headers) {
        if (-e $_) {
            local $/ = undef;
            print("\t$_\n") if defined $verbose && $verbose == 2;
            open I <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615023	615155	
==>_CLASS,\n            \"Class not parent of object\");\n    }\n    {{\@1}} = offset;\n    {{=next}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616174	616306	
==>_CLASS,\n            \"Class not parent of object\");\n    }\n    {{\@1}} = offset;\n    {{=next}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	1038	1157	
==>ang_f );

    my ($pycmd, $cmd, $pass, $dir);
    my $exit_code = 0;

    $pycmd = "python  $lang_f";
    $cmd = "pirate <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2829	2933	
==>sion 3.13 we're normalizing the current
    # working dir to be '.'.
    return (defined $rel_path and $r <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	14234	14336	
==>.sub unicode:"monadic:\u2395\u2190" # quad output
    .param pmc op1

    'aplprint'(op1)
    .return(o <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10116	10240	
==>p state $$stack[-1][0].\n";

			pop(@$stack);
		}

			@$stack
		or	do {

#DBG>			$debug & 0x10
#DBG>		and	print STDE <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	2476	2596	
==>shes containing the data.
    my @rules = ();
    my $rule;

    # Read through rules file line by line.
    my $line = 0 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9665	9780	
==>p state $$stack[-1][0].\n";

			pop(@$stack);
		}

			@$stack
		or	do {

#DBG>			$debug & 0x10
#DBG>		and	print STDE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47012	47128	
==>}\n  else         { Interp_debug_CLEAR(interpreter, PARROT_ALL_DEBUG_FLAGS); }\n  {{=0,+=2}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47795	47911	
==>}\n  else         { Interp_debug_CLEAR(interpreter, PARROT_ALL_DEBUG_FLAGS); }\n  {{=0,+=2}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	14274	14384	
==>g q{Mismatched closing bracket at "} .
					     substr($$textref,pos($$textref),20) .
					     qq{...". Expec <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	566	658	
==>uct::Block');
  confess("Identifier (" . ref($ident) . ") is not!") unless UNIVERSAL::isa($id <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	566	658	
==>uct::Block');
  confess("Identifier (" . ref($ident) . ") is not!") unless UNIVERSAL::isa($id <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	12318	12413	
==>ok (Str $code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `eval_is (Str $code, Str <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305150	305432	
==>ATIVE",
                  "NAME" => "if_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305938	306220	
==>ATIVE",
                  "NAME" => "if_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	3716	3839	
==>Cs props
     */

    /*
     * for all PMCs we want to register:
     */
EOC
    while (my ($class, $info) = each %classes) <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	1057	1173	
==>$_[0]};
}

sub PRINTF {
  my $it = shift;
  my $format = shift;
  $$$it .= sprintf $format, @_;
  return 1;
}

sub FI <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11436	11541	
==>ation_Limit;
  
  $out = $self->unicode_escape_url($out);
  $out = '_' unless length $out;
  
  return $ou <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	2103	2192	
==>0]);
$Data::Dumper::Sortkeys = 1;
use Data::Dumper;
print Data::Dumper->Dump([$m],["*MATCH <==
3	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	148	262	
==>s::dec_osf;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    # Tru64
    my $ccflags = $conf->data->get <==
3	/Users/nnunley/parrot/examples/benchmarks/stress.pl	628	713	
==>O

F<examples/benchmarks/stress.pasm>, 
F<examples/benchmarks/stress1.pasm>, 
F<exampl <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	622	738	
==>1]";
#  }

sub output_onfail {
    my ($label) = @_;
    return "onfail $label->[1]";
}

sub output_match {
    my ($ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	1237	1352	
==>om {
    my ($self, $tree, $ctx) = @_;
    my $atom = $tree->atom;

    my $R;
    if (UNIVERSAL::can($atom, 'rx_val <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	40866	40976	
==>ra->[0] =~ s/^[~=]//s;

      DEBUG and print "\n", pretty($para), "\n";

      # traverse the treelet (which m <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	36400	36502	
==>> as an embedded quoter:

	@result = extract_bracketed( $text, '<>' );

the result would be:

	( '<A HR <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	3517	3622	
==>pe, $depends);
}

## use_ok

sub use_ok (Str $module, :$todo, :$depends) is export {
    my $caller = call <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614850	614947	
==>t *next = {{^+4}};\n    INTVAL offset;\n    offset = Parrot_class_offset(interpreter, {{\@2}}, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616001	616098	
==>t *next = {{^+4}};\n    INTVAL offset;\n    offset = Parrot_class_offset(interpreter, {{\@2}}, {{\ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	13391	13526	
==>ass) };
        if( $@ ) {
            if( $@ =~ /^Can't call method "isa" on unblessed reference/ ) {
                if( !UNIVERSAL::i <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28635	28738	
==>->{hashname}.'}=') . '$&;
		' . ($self->{"lookahead"} ? '$text = $_savetext;' : '' ) .'
';

	return $cod <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30713	30816	
==>->{hashname}.'}=') . '$&;
		' . ($self->{"lookahead"} ? '$text = $_savetext;' : '' ) .'
';

	return $cod <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	3523	3667	
==>uffix = $self->suffix;
    
    if ( @_ > 0 )
    {
        return 0 unless defined $_[0];
        return $_[0] eq $suffix;
    }
    
    return <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	2378	2508	
==>int "New pullparser object: $self\n";

  return $self;
}

# ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2411	2521	
==>$$self{USER})
	or	$$self{USER}={};

	$$self{USER};
	
}

sub YYErrok {
	my($self)=shift;

	${$$self{ER <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2316	2416	
==>$$self{USER})
	or	$$self{USER}={};

	$$self{USER};
	
}

sub YYErrok {
	my($self)=shift;

	${$$self{ER <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18499	18637	
==>bleconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 49
		ACTIONS => {
			'NAME' => 101
		}
	},
	{#State 50 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	3831	3933	
==>fset;

#  DEBUG(0, "Setting position to $pos");
  $self->pos($pos);
#  DEBUG(0, "forth(): Position is n <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	134	219	
==>tion.
# $Id: /parrot/tools/dev/extract_file_descriptions.pl 19607 2006-05-30T15:23:20. <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	3351	3474	
==>oc?
        elsif (!$in_heredoc && $rule && /^\s*(\w+)\s*=\s*<<(\w+)\s*$/) {
            # Initialize heredoc.
            $ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	1596	1693	
==>elative_path($dist->c_source_file_with_name($name)), 
                $dist->relative_path($dist-> <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	4437	4533	
==>->_add_inst ('', 'set',[$return,$value]);
    }
    elsif ($value =~ /^[-+]?((\d+\.\d*)|(\.d+))([ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3456	3549	
==>->_add_inst ('', 'set', [$return,$value]);
  }
  elsif ($value =~ /^[-+]?((\d+\.\d*)|(\.d+))([ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	8148	8277	
==>et[-2]->tagname =~ m/^item-/s
          ) {
            # Bail out here, after setting rtfitemkeepn yea or nay.
            $self- <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	36771	36893	
==>atch (zero times at worst). 
					   Did you mean a single \"!$subrule\", 
					   instead?");
		}
	}
	bless 
	{
		"subrule <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152990	153080	
==>/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_STREQ)) {\n    { <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	1133	1217	
==>e('^\s*('.$type_re.')\s+('.$ident_re.')\s*\(('.$arglist_re.')\)\s*$');


=item C<pars <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	973	1189	
==>rint  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, I1
                              #
print "Estimated ops: $I5\n"; # print  "Estimat <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	973	1189	
==>rint  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, I1
                              #
print "Estimated ops: $I5\n"; # print  "Estimat <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	28619	28728	
==>ationalize {
}

sub _op_exp {
}

sub _op_log {
}

sub _op_sin {
}

sub _op_cos {
}

sub _op_tan {
}

sub _op_a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73253	73608	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74855	75210	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76457	76812	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAG <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	7534	7654	
==>ftover = $3;

#print STDERR "use $use_file;\n";

      $use_file =~ s{::}{/}g;
      $use_file .= ".jako";

      my @use <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	5902	6011	
==>s it's a zero-length "empty line" at the very
         #  end of "foo\nbar\n" (i.e., between the \n and the EO <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	11846	11953	
==>s it's a zero-length "empty line" at the very
       #  end of "foo\nbar\n" (i.e., between the \n and the EO <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8928	9061	
==>ee
    if $I1 == 4 goto four
    if $I1 == 5 goto five
    if $I1 == 6 goto six
    if $I1 == 7 goto seven
    if $I1 == -1 goto neg_o <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	2177	2273	
==>me => 'ident', Attributes => { name => $self->value } });
  $handler->end_element({ Name => 'iden <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	827	921	
==>tage

=head1 DESCRIPTION

Benchmark Parrot against other interpreters.

=head1 CONFIGURATION

Y <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	12610	12721	
==>{
    my($self, $got, $dont_expect, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defin <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	13054	13165	
==>{
    my($self, $got, $dont_expect, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defin <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	4786	4894	
==>/s; # normalize emptiness
	$comment = $_;
	$desc = $info->{perl_comment} = $comment;
    }
    if(!$desc && $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356057	356299	
==>\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359450	359692	
==>\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360198	360440	
==>\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printerr", <==
3	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	1393	1493	
==>$output is up to date with respect to $input\n" if $Verbose;
}

exit 0 if $up_to_date;

print "$comma <==
3	/Users/nnunley/parrot/lib/Test/More.pm	2963	3061	
==>is going to run to protect against premature
failure.

The preferred way to do this is to declare a <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	43	136	
==>s/python/pie-thon.pl 17329 2006-02-27T07:57:10.879453Z bernhard  $

# This is a minimal and in <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	1042	1152	
==>b parse_lines {             # Usage: $parser->parse_lines(@lines)
  # an undef means end-of-stream
  my $self = <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	19265	19406	
==>le}{methods}} ) {
        my $meth = $method->{meth};
        my $meth_name;
        my $defaulted = 0;
        my $class = '';
        if ($s <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	8791	8893	
==>OLDOUT" or die "Can't restore  stdout" if $out;
    open  STDERR, ">&OLDERR" or die "Can't restore  std <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8310	8411	
==>OLDOUT" or die "Can't restore  stdout" if $out;
    open STDERR, ">&OLDERR" or die "Can't restore  std <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1209	1307	
==>suite, but you may find
some other use for it.

This is a subclass of L<Pod::Simple> and inherits a <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	3361	3458	
==>rt multiple occurrences of the same file
my %seen;

my @files;
my @installable_exe;
my %directorie <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227448	227721	
==>), {{\@2}}) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228428	228701	
==>), {{\@2}}) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	27570	27663	
==>calls, so it only works under Perl 5.005 or later.

	$extract_head = gen_extract_tagged('<HEAD <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30095	30200	
==>->[1]{'start_line'};

        } elsif($over_type eq 'block') {
          unless($curr_open->[-1][1]{'~bitc <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10025	10127	
==>ck[-1][0]]{ACTIONS}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Pop state $$st <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9577	9676	
==>ck[-1][0]]{ACTIONS}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Pop state $$st <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	20891	21040	
==>weak.\n";
            }
          }
        }
      }
    }
  }
  DEBUG > 2 and print "End of _wrap_up traversal.\n\n";

  return;
}

#:.:.:.:.:.:.:.: <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9760	9845	
==>6,0x6d9d6122,/* 35 */
HH,$b,$c,$d,$a,$_[18],23,0xfde5380c,/* 36 */
HH,$a,$b,$c,$d,$_[5 <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	24070	24226	
==>ld_f,
                                     'STDERR' => $build_f);
            $builder->diag("'$cmd' failed with exit code $exit_code")
                if $e <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	24831	24979	
==>ld_f,
                                     'STDERR' => $build_f);
            $builder->diag("'$cmd' failed with exit code $exit_code")
        if $e <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7297	7438	
==>pile = compreg "PGE::Glob"

            .local string target
            .local string pattern
            .local pmc rulesub
            .loc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553852	553954	
==>pcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+4}};\n  interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555249	555351	
==>pcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+4}};\n  interpr <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	1305	1403	
==>bol;
my %ansi_c89_header;

my ($mode, @files) = @ARGV;

if ($mode !~ /^(source|object)$/ || ! @file <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544598	544857	
==>saved_var1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545934	546193	
==>saved_var1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547270	547529	
==>saved_var1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	5407	5506	
==>s not set (if you're using this through
# perl6, then you can turn this on with the $RX_DEBUG enviro <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	2324	2421	
==>'Pod::Simple::PullParserEndToken';

  DEBUG > 1 and print "New pullparser object: $self\n";

  ret <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510483	510758	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511221	511496	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511959	512234	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	244	353	
==>15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block::Module;

use Car <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15608	15704	
==>@@@@@@@@@

1;


__END__

=head1 NAME

Pod::Simple::PullParser -- a pull-parser interface to parsi <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	5174	5270	
==>hile talking with Tony Bowden in his
kitchen one night about the problems I was having writing so <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4070	4173	
==>t::Block");
  confess "No symbol name!"  unless defined $name;
  confess "Extra arguments!" if @_;

  re <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	12971	13072	
==>er, $rdel_inner,
				     $rd);
	return _fail($wantarray, $textref) unless @match;
	return _succeed($w <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	23698	23794	
==>s to STDOUT.

=item B<failure_output>

    $Test->failure_output($fh);
    $Test->failure_output( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645798	645884	
==>nterpreter->n_vtable_max)\n\t\t{{\@1}} = interpreter->vtables[{{\@2}}]->whoami;\n    el <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646695	646781	
==>nterpreter->n_vtable_max)\n\t\t{{\@1}} = interpreter->vtables[{{\@2}}]->whoami;\n    el <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1710	1817	
==>ndex)>

Returns the argument at C<$index>.

=cut

sub arg
{
    my $self = shift;

    return $self->{ARGS}[ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1341	1433	
==>gister type).
dec ${ITEMP0}
${PTEMP0} = ${STYPES}[${ITEMP0}]

# Assign register name.
${STEMP <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3051	3143	
==>gister type).
dec ${ITEMP0}
${PTEMP0} = ${STYPES}[${ITEMP0}]

# Assign register name.
${STEMP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187752	187933	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 292 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) < <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54100	54212	
==>,$code);
				$prod and $prod->additem($item)
				      or  _no_rule($code,$line);
			}
			elsif ($grammar =~ m/(? <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54519	54631	
==>,$code);
				$prod and $prod->additem($item)
				      or  _no_rule($code,$line);
			}
			elsif ($grammar =~ m/(? <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54997	55109	
==>,$code);
				$prod and $prod->additem($item)
				      or  _no_rule($code,$line);
			}
			elsif ($grammar =~ m/(? <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	25	114	
==>, The Perl Foundation.
# $Id: /parrot/languages/lua/t/Parrot/Test/Lua.pm 19606 2006-05-30 <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	52947	53063	
==>o { ($code) = extract_codeblock($grammar,'{',undef,'<');
					 $code;
				       } )
			{
				_parse("an autoscore sp <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	229	320	
==>utput_is output_like output_isnt), @Test::More::EXPORT );
@ISA = qw(Exporter Test::More);

s <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	146	237	
==>utput_is output_like output_isnt), @Test::More::EXPORT );
@ISA = qw(Exporter Test::More);

s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505481	505750	
==>TYPE" => "inline",
                  "CODE" => 581,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 631 \"src/ops/mat <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	20628	20786	
==>ew CallMethOp( $parser,
            'result' => [$result],
            'arg1'   => 'len',
            'arg2'   => [ $expr->[0] ],
        );
    }
    el <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11336	11429	
==>ctorial(a)
	if a then factorial=a*factorial(a-1) else factorial=1
end function
t=0
g=0
if t th <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87459	87747	
==>e_cb(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88461	88749	
==>e_cb(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	22106	22223	
==>ate over children
      next unless ref $treelet->[$i];  # text nodes are uninteresting
      
      DEBUG > 4 and pri <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	32971	33093	
==>=~ /^\d+$/) {	# MMD
	$cc = "-$c";
    }
    else {
	$cc = qq!"$c"!;
    }
    print <<EOC;
	setattribute $obj->[1], $cc, $v <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10675	10776	
==>ts to the Block's content list.

=cut

sub push_content
{
  my $self = shift; # Required: Jako::Constr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349090	349184	
==>ay soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2}});\n\n  {{\@1}} = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350092	350186	
==>ay soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2}});\n\n  {{\@1}} = <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	8995	9119	
==>c${slash}ops${slash}$ops\n";
            if ($new_perldoc == 1) {
                print MAKEFILE "\tperldoc -ud ops${slash}$p <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	5251	5359	
==>../lib ../../../lib);
use Parrot::Test tests => $count;

END

    my $counter = 1;
    for my $name (sort key <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	31051	31147	
==>ime.
RUNTIME_JUMP:
RTB
	if ($runtime_jump) {
		foreach(sort keys %labels) {
			push @{$code{$seg} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2762	2853	
==>->INTERNAL_ERROR("No type for left!")  unless defined $left_type;
  $self->INTERNAL_ERROR("N <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2528	2619	
==>->INTERNAL_ERROR("No type for left!")  unless defined $left_type;
  $self->INTERNAL_ERROR("N <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2450	2541	
==>->INTERNAL_ERROR("No type for left!")  unless defined $left_type;
  $self->INTERNAL_ERROR("N <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38461	38601	
==>MP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39325	39465	
==>MP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21253	21364	
==>some witchery in here
  my $self = $_[0];
  my $title;
  my @to_unget;

  while(1) {
    push @to_unget, $self-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	26153	26294	
==>)p->vtable->invoke(interpreter, p, {{^+1}});\n  {{=dest}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/languages/regex/regex.pl	22	125	
==>e lib 'lib';
use Regex;
use Regex::Driver;
use strict;

my $operation;
my $expr;
my $expr_file;
my $tree <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1177	1277	
==>uctor.

Accepts no arguments and returns a L<Parrot::Configure> object.

=cut

sub new
{
    my $clas <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341009	341270	
==>[
                              "i",
                              "p",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 128 \"src/ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpr <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7421	7574	
==>A1',$lhs) eq '@'    #In line rule
            and do {
                    $lhs =~ /^\@[0-9]+\-([0-9]+)$/
                or  die "In line rule name '$ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7078	7228	
==>A1',$lhs) eq '@'    #In line rule
            and do {
                    $lhs =~ /^\@[0-9]+\-([0-9]+)$/
                or  die "In line rule name '$ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5798	5924	
==>{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There should be at most a single group
        my $group = $class-> <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6009	6135	
==>{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There should be at most a single group
        my $group = $class-> <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9696	9791	
==>ink_args ${cc_exe_out}test$exe $libs", 'test.ldo', 'test.ldo', $verbose)
        and confess "Li <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290879	291142	
==>e 940 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} == {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291725	291988	
==>e 940 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} == {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292571	292834	
==>e 940 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} == {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8262	8382	
==>R "Abort.\n";

				return(undef);

			};

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Back to state $$stack[-1] <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7889	8002	
==>R "Abort.\n";

				return(undef);

			};

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Back to state $$stack[-1] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178570	178841	
==>=> "function",
                  "CODE" => 213,
                  "ARGS" => [
                              "sc",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 240 \"src/ops/cmp.ops <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7722	7844	
==>DOUT";
    }

    local *OLDOUT if $out;
    local *OLDERR if $err;

    # Save the old filehandles; we must not let them g <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	7671	7793	
==>DOUT";
    }

    local *OLDOUT if $out;
    local *OLDERR if $err;

    # Save the old filehandles; we must not let them g <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83819	84052	
==>r, compreg_hash, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84725	84958	
==>r, compreg_hash, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19067	19219	
==>gs);
      next;
    }

    #
    # Function Calls:
    #
    # a = foo(...);
    #

    if ($token->is_ident
      and $self->get(1)->is_assign
      an <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	14758	14884	
==>tate 29
		DEFAULT => -8
	},
	{#State 30
		ACTIONS => {
			'NUM' => 49,
			'CHAR' => 47,
			"]" => 50
		},
		GOTOS => {
			'clas <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	830	939	
==>dren => [{ value => 'quasiquote' }] };
    my $expr;
    $count++;
    ($count, $expr) = _build_tree ($tokens, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855397	855756	
==>ase_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 971,
                  "ARGS" => [
                              "s",
                              "sc" <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48503	48611	
==>sif ($grammar =~ m/$ATLEAST/gco)
					{ $minrep = $1 }
				elsif ($grammar =~ m/$ATMOST/gco)
					{ $maxrep = <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	7187	7287	
==>id directive name"
     unless $d =~ m/^[a-zA-Z][a-zA-Z0-9]*$/s;
    Carp::croak "But you must accept <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	12170	12288	
==>nes.
    do_filter(sub { /^branch/ } );

    print OUT "</pre>";
    print OUT page_footer();

    close(OUT);
    clos <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	22053	22152	
==>..);

=for blame transfer
Mark Fowler <mark@twoshortplanks.com>

=cut

sub diag {
    my($self, @msg <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	57950	58046	
==>reserved as separate fields (i.e. like split
does if your split pattern has capturing parentheses <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	603549	603777	
==>n    {{\@1}} = VTABLE_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640685	640909	
==>n  {{\@1}} = VTABLE_name(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	9127	9229	
==>XEC_CALLDISP);

END_C
}
if ( $cpuarch eq 'ppc' && $genfile ne 'src/jit_cpu.c' ) {
    print JITCPU "#de <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5462	5585	
==>heck='';

    while(1) {
        my($actions,$act,$stateno);

        $stateno=$$stack[-1][0];
        $actions=$$stat <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5200	5317	
==>heck='';

    while(1) {
        my($actions,$act,$stateno);

        $stateno=$$stack[-1][0];
        $actions=$$stat <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	1217	1324	
==>ocessing code was intended to be
a read-only representation of what was in a particular ops file. It was
not <==
3	/Users/nnunley/parrot/config/init/hints.pm	548	656	
==>unstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    my $hints_used = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	817331	817515	
==>> 0,
                  "NAME" => "clearp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" = <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	8635	8748	
==>ents so that
    # unbalanced {} can be used in them in PMCs, being careful to
    # preserve string length.
    l <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2241	2347	
==>h_num/g;
		$register_num++;
		$push_num++;
	}

	# Return generated code.
	return $pir;
}

sub post_op($$) { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	491056	491318	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 563,
                  "ARGS" => [
                              "n <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	2965	3076	
==>anguage
        # You may want a deeper search than this.
        return ( glob( File::Spec->catfile( 't', '*.t' <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	42593	42701	
==>return $return;
}

sub _format_columns {
  my $self    = shift;
  my $colref  = $self->{instruction};
  my @m <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	40170	40334	
==>' ) {
                    $parser->Error("no loop to break\n");
                }
            }
        }
        unshift @{ $parser->YYData->{functs} }, \@opco <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39097	39241	
==>' ) {
                $parser->Error("no loop to break\n");
            }
        }
    }
    unshift @{ $parser->YYData->{functs} }, \@opco <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	3105	3258	
==>',
                docdir      => '/usr/share/doc',
                'dry-run'   => 0,
              );

my @manifests;
foreach (@ARGV) {
    if (/^--([^=] <==
3	/Users/nnunley/parrot/languages/converter.pl	2143	2237	
==>y $parser = Parse::RecDescent->new($grammargrammar);

my $file = $ARGV[0];
my @lines;
my @rules <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6006	6125	
==>roup{$pmc} = $group;
        push @{ $group_files{$group} }, $pmc;
        $group_libs{$group} ||= {};
        foreach m <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6217	6336	
==>roup{$pmc} = $group;
        push @{ $group_files{$group} }, $pmc;
        $group_libs{$group} ||= {};
        foreach m <==
3	/Users/nnunley/parrot/config/auto/snprintf.pm	348	466	
==>se qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step qw(cc_gen cc_build cc_clean cc_run);

$description = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456769	457207	
==>",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 524,
                  "ARGS" => [
                              "n",
                              "n",
                              "n"
                            ],
                  "B <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1800	2132	
==>OUNT      => 0,
    BLOCKS           => [ $root ], # Block stack
    ROOT             => $root,
    TOKENS           => [ ]
  }, $class;
}


###############################################################################
###############################################################################
##
## The Block Stack
##
##   $b <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	62702	62796	
==>deblock> failed to find any of the outermost opening brackets
that were specified.

=item C<Imp <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	11978	12082	
==>forms. Individual languages targetting parrot (e.g. tcl),
    are also available.
  </p>

  <p>
    Submi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670343	670632	
==>"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 750,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 415 \"src/ops/pmc. <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	533	641	
==>($self, $conf) = @_;

    $self->makefiles($conf);
    $self->cflags($conf);

    return $self;
}

sub cflags <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	31336	31430	
==>utdown()
	end
RTBE
}
sub parse_data_setup {
	push @{$code{_data}->{code}},<<DATAPREP;
	# Prepar <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	53541	53675	
==>"
{
            BuildBinop( $_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 62
		 'exp', 3,
sub
#line 357 "Lua\lua51.yp"
{ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	1516	1617	
==>anola oil (or vegetable oil)
 
 * 1 tablespoon garam masala
 * 1/2 teaspoon red chili powder, or to ta <==
3	/Users/nnunley/parrot/config/inter/ops.pm	660	836	
==>n 1 }
            return ($a cmp $b)
            }
            grep {
            !/vtable\.ops/
            } glob "src/ops/*.ops"
    );

    my $ops = join ' ', grep { !/obsc <==
3	/Users/nnunley/parrot/config/auto/jit.pm	4064	4198	
==>ccapable) {
            $conf->data->set(
                TEMP_exec_h =>
                    '$(SRC_DIR)/jit.h $(INC_DIR)/exec.h $(SRC_ <==
3	/Users/nnunley/parrot/config/inter/make.pm	526	629	
==>g whether $util is installed";
$prompt      = "Do you have a make utility like 'gmake' or 'make'?";
@arg <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095236	1095492	
==>{+=2}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095931	1096187	
==>{+=2}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
3	/Users/nnunley/parrot/lib/Test/More.pm	28929	29030	
==>ively turn %Refs_Seen into a stack.  This avoids picking up
    # the same referenced used twice (such <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	27602	27708	
==>if ! defined $desc;
    }

    my $db_back = $self->genlabel($op->{name}."_back");
    my $db_start = $self <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10732	10823	
==>ITEMP0}] = ${STEMP0}

# Next parameter.
dec stack_depth
goto pre_call_PLOOP_${CURIC}
PRE_CAL <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7985	8076	
==>ITEMP0}] = ${STEMP0}

# Next parameter.
dec stack_depth
goto pre_call_PLOOP_${CURIC}
PRE_CAL <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	1830	1941	
==>H"]);
  return reduce($m, $input);
}
sub minimatch {
  my ($m, $name) = @_;
  $name ||= 'ALL';
  my $res = [ "$n <==
3	/Users/nnunley/parrot/config/auto/gc.pm	157	262	
==>Garbage Collection

=head1 DESCRIPTION

Checks whether the C<--gc> command-line option was passed to F<Con <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	674	778	
==>_[0]{'indent'}++;
  while(($key,$value) = each %{$_[2]}) {
    unless($key =~ m/^~/s) {
      next if $ke <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16362	16480	
==>t::Expression::Value->new($block, $self->forth);
      my $op    = $self->forth->text;
      my $right = Jako::Construc <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17133	17251	
==>t::Expression::Value->new($block, $self->forth);
      my $op    = $self->forth->text;
      my $right = Jako::Construc <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17938	18056	
==>t::Expression::Value->new($block, $self->forth);
      my $op    = $self->forth->text;
      my $right = Jako::Construc <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	21428	21681	
==>.]                         # introducing extension
                                                 ( pasm | pir | imc | past ) # match and capture the extension
                                                 \z                          # at end of str <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16388	16499	
==>$block, $self->forth);
      my $op    = $self->forth->text;
      my $right = Jako::Construct::Expression::Valu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17159	17270	
==>$block, $self->forth);
      my $op    = $self->forth->text;
      my $right = Jako::Construct::Expression::Valu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17964	18075	
==>$block, $self->forth);
      my $op    = $self->forth->text;
      my $right = Jako::Construct::Expression::Valu <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	12700	12922	
==>_init;
    }


    return $classname,
           {
               pre          => $pre,
               flags        => $flags,
               methods      => \@methods,
               post         => $post,
               c <==
3	/Users/nnunley/parrot/lib/Test/More.pm	1092	1191	
==>lpkg, @_);
}


=head1 NAME

Test::More - yet another framework for writing test scripts

=head1 SYNO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	26576	26815	
==>> "inline",
                  "CODE" => 35,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 452 \"src/ops/core.ops\"\n  {{\ <==
3	/Users/nnunley/parrot/config/inter/ops.pm	563	725	
==>ort {
            if ($a =~ /core\.ops/) { return -1 }
            if ($b =~ /core\.ops/) { return 1 }
            return ($a cmp $b)
            }
            gre <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	20506	20594	
==>line 131 "lib/Regex/Grammar.y"
{ return op('multi_match' => [ $_[2]->{min}, $_[2]->{max}, <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1351	1475	
==>= $opcodes->[-1]->{result};
    }
    return [ $defn, $opcodes ];
}

sub PushScopeF {
    my ($parser) = @_;

    Pus <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	415	522	
==>arnings;

use File::Find;

my @dirs;  # will be filled in wanted

# XXX Most of these can probably be cleane <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	18079	18173	
==>ormatter subclasses might find these methods useful to
call on a parser object that you haven't <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	12065	12189	
==>>{vtable}(interp, $Y, $Z, $A)
        elsif ($opbody =~ /
        ^(?:.*\.ops")\s+
        {{\@(\d)}}->vtable->
        (\w+) <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	3049	3164	
==>self = shift;
    my $content = $self->read;
    # Break up the $Id to prevent svn messing with it.
    my ($id) = $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	354	461	
==>SCALAR')
    ; # tolerate getting it backwards
    
    unless( defined $variable and ref($variable) eq 'SCA <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	7662	7769	
==>ot directives)

sub accept_target         { shift->accept_targets(@_)         } # alias
sub accept_target_as <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3387	3489	
==>te with an unescaped '$'.
      $string = substr($string, 1, -1); # Without the surrounding double quot <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1706	1807	
==>te with an unescaped '$'.

    $string = substr($string, 1, -1); # Without the surrounding double quot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710817	711009	
==>(INTVAL){{\@1}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711651	711843	
==>(INTVAL){{\@1}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	4016	4143	
==>"return_data = ",
       2 => "return_data = ",
       4 => "return_data = ",
       l => "return_data = ",
       c => "return_ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	15582	15690	
==>exported_to() || '';
            # die Dumper( $code, $expected, $desc, \%extra, $extra{todo}, $call_pkg ) if <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	18133	18241	
==>exported_to() || '';
            # die Dumper( $code, $expected, $desc, \%extra, $extra{todo}, $call_pkg ) if <==
3	/Users/nnunley/parrot/lib/Test/More.pm	2933	3029	
==>es
how many tests your script is going to run to protect against premature
failure.

The preferre <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16405	16511	
==>rth);
      my $op    = $self->forth->text;
      my $right = Jako::Construct::Expression::Value->new($bloc <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17176	17282	
==>rth);
      my $op    = $self->forth->text;
      my $right = Jako::Construct::Expression::Value->new($bloc <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17981	18087	
==>rth);
      my $op    = $self->forth->text;
      my $right = Jako::Construct::Expression::Value->new($bloc <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	36162	36270	
==>ied
    any other number    how many failed (including missing or extras)

If you fail more than 254 tests, i <==
3	/Users/nnunley/parrot/lib/Test/More.pm	34233	34341	
==>ied
    any other number    how many failed (including missing or extras)

If you fail more than 254 tests, i <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	3028	3136	
==>ied
    any other number    how many failed (including missing or extras)

If you fail more than 254 tests, i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179521	179772	
==>,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 247 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627242	627340	
==>){{\@2}});\n  }\n\n  /* Why?? If we're creating a continuation, the continuation PMC\n   * needs to <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628386	628484	
==>){{\@2}});\n  }\n\n  /* Why?? If we're creating a continuation, the continuation PMC\n   * needs to <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	153027	153139	
==>pp(interpreter, {{\@1}}, {{\@2}}, MMD_STREQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920419	920748	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "sprintf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921311	921640	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "sprintf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	922204	922533	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "sprintf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359394	359617	
==>n    PIO_putps(interpreter, PIO_STDERR(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360142	360365	
==>n    PIO_putps(interpreter, PIO_STDERR(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360912	361135	
==>n    PIO_putps(interpreter, PIO_STDERR(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	16575	16666	
==>or a particular element, its default
initialization is performed instead. Initializers for n <==
3	/Users/nnunley/parrot/config/init/miniparrot.pm	157	247	
==>nit/miniparrot.pm - Miniparrot configuration

=head1 DESCRIPTION

Modifies settings to matc <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	3606	3738	
==>}}, function_components( $func ) );
            ++$nfuncs;
        }
    } # for @cfiles
    my $nfiles = scalar keys %files;
    pri <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	1952	2063	
==>CTUATION    
    $ret |= 0x0800 if $chr =~ /^[[:alnum:]]$/;  # CCLASS_ALPHANUMERIC   
    $ret |= 0x1000 if $chr <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	9181	9284	
==>ength => 3_000,
   @_,
  );
}
sub get_description { shift->_get_titled_section(
   'DESCRIPTION',
    ma <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7140	7241	
==>($self, $reg) = @_;
    $reg = value(defined($reg) ? $reg : 'pos');
    return $self->output_pushint($ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6782	6883	
==>($self, $reg) = @_;
    $reg = value(defined($reg) ? $reg : 'pos');
    return $self->output_pushint($ <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9165	9270	
==>,$d,$a,$b,$c,$_[14],9,0x2441453,/* 22 */
GG,$c,$d,$a,$b,$_[19],14,0xd8a1e681,/* 23 */
GG,$b,$c,$d,$a,$_[8] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661942	662028	
==>\@1}} = PMC_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(interpreter, {{\@2}}, { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662858	662944	
==>\@1}} = PMC_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(interpreter, {{\@2}}, { <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2210	2323	
==>s) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test::proclaim(undef, $des <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2605	2718	
==>s) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test::proclaim(undef, $des <==
3	/Users/nnunley/parrot/tools/docs/pod_errors.pl	543	640	
==>e))
{
	next unless $file->contains_pod;
	next unless $file->num_pod_errors;
	
	my $errors = $file- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	97106	97356	
==>" => "bnot",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 120,
                  " <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	14136	14243	
==>l + 1;
    $self->_regex_ok($this, $regex, '!~', $name);
}

=item B<maybe_regex>

  $Test->maybe_regex(qr/$r <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	2890	2990	
==>e::Task->new(step => $step, params => \@params);

    return $self;
}

=item * C<add_steps()>

Regist <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5610	5714	
==>INS} = concat ${LOADREG}
${INS} = concat "\n"
PIR
	}

	return $pir;
}

# Pre and post store operation hoo <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4452	4556	
==>INS} = concat ${LOADREG}
${INS} = concat "\n"
PIR
	}

	return $pir;
}

# Pre and post store operation hoo <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37817	37916	
==>$srm->post_call();
		$pir .= "### post_call\n";
		$pir .= sub_meta($post_call, $mv, "post_call for r <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3919	4060	
==>ement({ Name => 'literal' });
        }

        my $ident = $2;
        $ident =~ s/^{(.*)}$/$1/; # Strip '{' and '}'.

        $handler->sta <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	46236	46364	
==>],
	[#Rule 6
		 '_semicolon_opt', 0, undef
	],
	[#Rule 7
		 'block', 1,
sub
#line 75 "Lua\lua51.yp"
{
            PopSco <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	1868	1967	
==>t/parrot.h"
#include "parrot/string.h"
END_C

    print $trans->defines;
    print $ops->preamble($t <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2062	2162	
==>guages/lua/luac.pl languages/${lang_fn}",
                "$self->{parrot} --no-gc languages/${pir_f <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	21017	21193	
==>{$_}};
            @rules = sort { 
                $a->{'code'} =~ /^(\w{2})/;
                my $x = $1;
                $b->{'code'} =~ /^(\w{2})/;
                hex($x) < <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	7451	7616	
==>\n";
        }
        else {
            print {$FH}
                "  if $op->{arg1}->{symbol} goto $op->{result}->{symbol}\n";
        }
    }

    sub vi <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	6460	6554	
==>trict;
use warnings;

use FindBin;
use lib "$FindBin::Bin/../..";
use lib "$FindBin::Bin/../../ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	8505	8637	
==>ommands
    system( $_ ) for (@{$command});

    if( $chdir ) {
        chdir $orig_dir;
    }

    my $exit_code = $? >> 8;

    clo <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	12658	12789	
==>ACTIONS => {
			"(" => 10,
			'CHAR' => 4,
			"<" => 3,
			"[" => 14,
			'CODE' => 6,
			"." => 15
		},
		GOTOS => {
			'expr' => 11 <==
3	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	1918	2031	
==>len = $item[1] }

# length is known from the line above
name:               m/[a-zA-Z0-9_-]{$::name_len}/ 

# leng <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	7143	7300	
==>($totals{call_coverage} %)</td>
                 </tr>
              </tbody>
            </table>
            </ul>
    );
    print OUT page_footer();
}


s <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	11090	11199	
==>classblock, $post)         = extract_balanced($code);

    my $lineno  = 1 + count_newlines($pre);
    $classb <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	44765	44863	
==>item [8]

the text of the second block of the operation 
(that is, the replacement of a substitutio <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	7823	7975	
==>) {
        $meth_hash{$entry->[1]} = $i++;
        push @{$vtable{methods}},
            {
                parameters  => $entry->[2],
                m <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	37516	37616	
==>op_string_gt_p,
  'string<=?'     => \&_op_string_le_p,
  'string>=?'     => \&_op_string_ge_p,
  'st <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2238	2357	
==>er')) {
    my $right_sym = $block->find_symbol($right->value);
    $self->SYNTAX_ERROR("Expression involves unknown var <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2196	2315	
==>er')) {
    my $right_sym = $block->find_symbol($right->value);
    $self->SYNTAX_ERROR("Expression involves unknown var <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2118	2237	
==>er')) {
    my $right_sym = $block->find_symbol($right->value);
    $self->SYNTAX_ERROR("Expression involves unknown var <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8526	8629	
==>o state $$states[$$stack[-1][0]]{GOTOS}{$lhs}.\n";

#DBG>				$debug & 0x10
#DBG>			and	$dbgerror
#DB <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	1010	1110	
==>ed in the public headers but not defined in the Parrot lib.

Either the API listing is wrong or the i <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8140	8239	
==>o state $$states[$$stack[-1][0]]{GOTOS}{$lhs}.\n";

#DBG>				$debug & 0x10
#DBG>			and	$dbgerror
#DB <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	14749	14960	
==>ase, we need to execute more than one
                    # command. Instead of a single scalar, build an
                    # array of commands.
                    $cmd = [
                        qq{$parrot $ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	33439	33538	
==>so:

=over 4

=item B<builder>

    my $test_builder = Test::More->builder;

Returns the Test::Build <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	12778	12874	
==>.h
nearbyint   math.h
nearbyintf  math.h
nearbyintl  math.h
nextafter   math.h
nextafterf  math.h <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10074	10187	
==>rbose');

    if (defined($_[0]) && length($_[0])) {
        local $" = ' ';
        _run_command(".${slash}test${ <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10655	10768	
==>rbose');

    if (defined($_[0]) && length($_[0])) {
        local $" = ' ';
        _run_command(".${slash}test${ <==
3	/Users/nnunley/parrot/Configure.pl	1116	1212	
==>Options

=over

=item C<--debugging=0>

Debugging is turned on by default. Use this to disable it <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	49823	49934	
==>e than we needed to close complex.\n";
        pos($para) = pos($para) - length($3) + $stack[-1];
      } else { <==
3	/Users/nnunley/parrot/lib/Test/More.pm	21175	21286	
==>eeds to know \$how_many tests are in the block"
          unless $Test->has_plan eq 'no_plan';
        $how_many <==
3	/Users/nnunley/parrot/lib/Test/More.pm	23605	23716	
==>eeds to know \$how_many tests are in the block"
          unless $Test->has_plan eq 'no_plan';
        $how_many <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3965	4067	
==>pile $group.c failed ($?)\n";
    }
} 
elsif ($mode eq 'linklibs') {
    my ($group_files, $group_libs, <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4069	4171	
==>pile $group.c failed ($?)\n";
    }
} 
elsif ($mode eq 'linklibs') {
    my ($group_files, $group_libs, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111190	111331	
==>"
                            ],
                  "BODY" => "#line 187 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_or(interpreter, {{\@2} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112082	112223	
==>"
                            ],
                  "BODY" => "#line 187 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_or(interpreter, {{\@2} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112974	113115	
==>"
                            ],
                  "BODY" => "#line 187 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_or(interpreter, {{\@2} <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21045	21194	
==>$expr1, $op, $expr2 ) = @_;
    my %type = (
        '+'  => 'number',
        '-'  => 'number',
        '*'  => 'number',
        '/'  => 'numbe <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9089	9198	
==>ker on F<test.c>.

=cut

sub cc_build
{
    my ($cc_args, $link_args) = @_;

    $cc_args   = '' unless define <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	350	455	
==>se Carp;

use base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $ident, @ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	365	468	
==>se Carp;

use base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $ident) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	365	468	
==>se Carp;

use base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $ident) <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26261	26370	
==>_$ps->{num}
AFTER_NEXT_$ps->{num}: noop
NEXT
			if ($syms[NEXT] eq ",") {
				feedme();
				feedme();
				$ps= <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3629	3719	
==>_MOVE_$register_num:
${STACK$register_num} = pop lazy_moves

# Decrement stack height.
PRE_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5399	5489	
==>_MOVE_$register_num:
${STACK$register_num} = pop lazy_moves

# Decrement stack height.
PRE_ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	75303	75397	
==><<<<<<<<<<<<<<<<<<<|
$tracerulename, '|', $tracemsg
| ~~       |^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2261	2370	
==>SHARINGU
		} elsif ( $user and $array) {
			# TODO TODO TODO TODO
			print CODE<<SHARING;
	# Sharing $stype $v <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	836	924	
==>lue!" unless UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess "Op i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	848	936	
==>lue!" unless UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess "Op i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	10167	10275	
==>fix = $namespace unless defined $prefix;

      if ($kind eq 'while') {
        $loop = Jako::Construct::Bloc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084908	1085267	
==>> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085961	1086320	
==>> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087014	1087373	
==>> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	12689	12818	
==>CHAR' => 4,
			"<" => 3,
			"[" => 14,
			'CODE' => 6,
			"." => 15
		},
		GOTOS => {
			'expr' => 11,
			'charclass' => 12,
			'r <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	15244	15373	
==>CHAR' => 4,
			"<" => 3,
			"[" => 14,
			'CODE' => 6,
			"." => 15
		},
		GOTOS => {
			'expr' => 11,
			'charclass' => 12,
			'r <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	527	632	
==>=cut

sub suffix
{
    return "_cg";
}

=item C<core_prefix()>

The core prefix is C<'cg_'>.

=cut

sub co <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	1639	1769	
==>s busted when threads are off.
    # We emulate it here.
    else {
        *share = sub { return $_[0] };
        *lock  = sub { 0 <==
3	/Users/nnunley/parrot/config/auto/format.pm	742	867	
==>"int") {
        $ivformat = "%d";
    } elsif (($iv eq "long") || ($iv eq "long int")) {
        $ivformat = "%ld";
    } els <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	49111	49204	
==>low).

Omitting the first argument (input text) means process C<$_> instead.
Omitting the seco <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750023	750399	
==>",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 845,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#l <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	1874	1971	
==>ot.h"
#include "parrot/string.h"
END_C

    print $trans->defines;
    print $ops->preamble($trans <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2954	3082	
==>g = join ' && ', @test_prog;
            $diag .= "'$test_prog' failed with exit code $exit_code."
                if $exit_cod <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	2564	2677	
==>g = join ' && ', @test_prog;
               $diag .= "'$test_prog' failed with exit code $exit_code." if $exit_cod <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2566	2676	
==>g = join ' && ', @test_prog;
            $diag .= "'$test_prog' failed with exit code $exit_code." if $exit_cod <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	4321	4423	
==>type
    scalar   : (only used by the sample src/dynpmc/foo.pmc)

This is not a canonical list, but mer <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	827	917	
==>GS = qq[-L/opt/local/lib -L/usr/local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS = qq[-bund <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	831	921	
==>GS = qq[-L/opt/local/lib -L/usr/local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS = qq[-bund <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	4921	5049	
==>$s} = $o;
	    } elsif ($v eq 'D') {
		$DataD{$s} = $o;
	    } elsif ($v eq 'R') {
		$DataR{$s} = $o;
	    }
	} elsif ($v eq 'U') <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	362	446	
==>$new;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	361	445	
==>$new;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	3061	3265	
==>.
        my @libs = qw/
            mscorlib
            System
            Accessibility
            I18N.CJK
            I18N.MidEast
            I18N.Other
            I18N.Rare
            I1 <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	10334	10465	
==>emp_num";
    };
    /3/ && do {
        push @{$temps_ref}, "PMC *t_$temp_num;";
        push @{$extra_preamble_ref},
            " <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	4167	4281	
==>t = $2;
      next;
    }

    if ($text =~ m{^(while|until|for|continue)(?!\w)(.*)$}) {
      push @tokens, Jako:: <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	2572	2684	
==>rint OUT "}\npackage $class; sub new { ";
# SEAN: this is bad.
# 		print OUT "my ";

		require Data::Dumper;
		pr <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	4079	4178	
==>f data (less than one million bytes). I use it to
hash passwords.

=item *

educational purposes

=b <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3816	3908	
==>rocessor: also in that
namespace, Parrot should only present Parrot_ (and similar) symbols to <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1762	1866	
==>b arg
{
    my $self = shift;

    return $self->{ARGS}[shift];
}

=item C<goto_address($address)>

Trans <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1377	1481	
==>b arg
{
    my $self = shift;

    return $self->{ARGS}[shift];
}

=item C<goto_address($address)>

Trans <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26225	26316	
==>}, FORLOOP_STEP_$ps->{num}
	goto FOR_$ps->{num}
AFTER_NEXT_$ps->{num}: noop
NEXT
			if ($sym <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847714	847990	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848493	848769	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	8158	8274	
==>PS, "src/ops" or die "opendir ops: $!";
        my @ops = sort grep { !/^\./ && /\.ops$/ } readdir OPS;
        close <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	3216	3335	
==>unicode:"monadic:\x{d7}"] =  <<"END_PIR"            # signum
    $N100 = %1
    $I100 = cmp_num $N100, 0.0
    %1 = $I10 <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	26613	26723	
==>xpression",
					   $_[5]);
		$@ =~ s/ at \(eval.*/./;
		Parse::RecDescent::_hint($@);
	}

	# QUIETLY PREVENT ( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	6969	7098	
==>$name\".\n";
        } else {
          print $fh "<a\n>";  # Yes, an 'a' element with no attributes!
          DEBUG and print "L <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21490	21616	
==>directive\n";
      
      unless(length($content)) {
        $self->whine(
          $para->[1]{'start_line'},
          "'=en <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	2458	2561	
==>to_file) {
  $to_file = $from_file;
  $to_file =~ s/\..*$//;
  $to_file .= ".pasm";
}

open INPUT, "<$fr <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9271	9378	
==>continue parsing

#DBG>			$debug & 0x10
#DBG>		and	do {
#DBG>			print STDERR "**Entering Error recovery. <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8855	8958	
==>continue parsing

#DBG>			$debug & 0x10
#DBG>		and	do {
#DBG>			print STDERR "**Entering Error recovery. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200012	200111	
==>ODY" => "#line 373 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200909	201008	
==>ODY" => "#line 373 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201806	201905	
==>ODY" => "#line 373 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+= <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	7645	7777	
==>thinsp'   , 8201,
 'zwnj'     , 8204,
 'zwj'      , 8205,
 'lrm'      , 8206,
 'rlm'      , 8207,
 'ndash'    , 8211,
 'mdash'    , 8 <==
3	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	2851	2948	
==>-e\n";
    foreach (@compiled_files) {
	print F "gcc -DMINIPARROT -I./include -c $_->[0] -o $_->[1 <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	840	935	
==>obably obsolete
	'PL' => 'Perl script',
	'SKIP' => 'MANIFEST skip file',
	'STATUS' => 'Languages <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	16454	16567	
==>h vector, doing the ops.
    .local pmc iter1
    iter1 = new .Iterator, $vector
  loop:    
    unless iter1 goto <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149146	149231	
==>"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) == {{\@2}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150087	150172	
==>"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) == {{\@2}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353699	353893	
==>\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354444	354638	
==>\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355211	355405	
==>\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	73457	73564	
==>h $text;
	$_[0]->{deferred} = [];
	$_[0]->{errors} = [];
	my @args = @_[3..$#_];
	my $args = sub { [ @args ] <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	58876	59059	
==>l
                                       be used as a subrule of other rules).
                                       It can't be directly called because
				       Parse::RecDescent:: <==
3	/Users/nnunley/parrot/tools/dev/gen_class.pl	1376	1488	
==>e {

EOF

## emit method bodies
for (@$vtbl) {
	my ($retval, $methname, $args) = @$_;
	if ($methname eq 't <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363442	363536	
==>o.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, \"%f\", (double <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364345	364439	
==>o.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, \"%f\", (double <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11545	11630	
==>}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub un <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6806	6930	
==>n shift->skip('assign');        }
sub skip_colon         { return shift->skip('colon');         }
sub skip_comma         { re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79463	79561	
==>ith it so we can get and set the value */\n      {{\@1}} = pmc_new(interpreter, enum_class_UnManage <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80984	81082	
==>ith it so we can get and set the value */\n      {{\@1}} = pmc_new(interpreter, enum_class_UnManage <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293447	293710	
==>\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294323	294586	
==>\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295199	295462	
==>\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3276	3376	
==>f ($conf->data->get('ld_debug') =~ /-debug/) {
            my $linkflags = $conf->data->get('linkflag <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4780	4880	
==>f ($conf->data->get('ld_debug') =~ /-debug/) {
            my $linkflags = $conf->data->get('linkflag <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	13444	13533	
==>n op1.'get_shape'()
.end

.sub unicode:"dyadic:\u2374" :multi (APLVector,APLVector) # resh <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	4948	5142	
==>S" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "reserved",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7527	7639	
==>f->dbprint("PUSHED[\%<<rx_tmp>>] INT: \%<$reg>$desc\n"),
               );
    }
    return $self->pushop . " <rx <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	4116	4215	
==>($syms[CURR] eq "if") {
		($result, $type, @code)=EXPRESSION();
		$false=qq{""} if $type eq "S";
		p <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21755	21867	
==>00,
			'functioncall' => 31,
			'explist1' => 121,
			'function' => 26,
			'tableconstructor' => 32,
			'var <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101823	101930	
==>it.ops\"\n  string_bitwise_not(interpreter, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102594	102701	
==>it.ops\"\n  string_bitwise_not(interpreter, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557994	558085	
==>reter->current_cont) |= SUB_FLAG_TAILCALL;\n  interpreter->current_object = object;\n  inter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559378	559469	
==>reter->current_cont) |= SUB_FLAG_TAILCALL;\n  interpreter->current_object = object;\n  inter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560750	560841	
==>reter->current_cont) |= SUB_FLAG_TAILCALL;\n  interpreter->current_object = object;\n  inter <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62012	62108	
==>e) = extract_codeblock($grammar, "[]",'') || '';

		# EXTRACT TRAILING REPETITION SPECIFIER (IF A <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	20551	20694	
==>}  = $parrot;
                $obj->$meth(@remaining);

                # restore prior level, just in case.
                $builder->level($le <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30836	30964	
==>mber or bullet.
          DEBUG and print " Item is of type ", $para->[0], " under $over_type\n";
          
          if($item_t <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34124	34252	
==>mber or bullet.
          DEBUG and print " Item is of type ", $para->[0], " under $over_type\n";
          
          if($item_t <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	69	164	
==>4T19:32:28.634218Z bernhard  $

package Parrot::Test::M4::Gnu;

use strict;
use warnings;
use 5. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29440	29534	
==>ler_ctx = ctx->caller_ctx;\n    pc = parrot_pass_args(interpreter, caller_ctx, ctx,\n\t    PARR <==
3	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	277	367	
==>ParrotCompiler.pm - Testing routines specific to 'ParrotCompiler'.

=head1 DESCRIPTION

Cal <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1294	1440	
==>rrent position in Parrot code.

=cut

sub pc
{
    my $self = shift;

    if (@_)
    {
        $self->{PC} = shift;
    }
    else
    {
        r <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	903	1049	
==>rrent position in Parrot code.

=cut

sub pc
{
    my $self = shift;

    if (@_)
    {
        $self->{PC} = shift;
    }
    else
    {
        r <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	11387	11503	
==>'];
}

sub STORE_NAME {
    my ($n, $c, $cmt) = @_;
    if ($make_f) {
	$make_f = 0;
	print_stack();
	print "# make_f <==
3	/Users/nnunley/parrot/examples/benchmarks/oofib.pl	116	246	
==>lf->fibA($n-1) + $self->fibB($n-2);
}
sub fibA {
    my $self = shift;
    my $n = shift;
    return $n if ($n < 2);
    return $se <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934054	934161	
==>s/string.ops\"\n  {{\@1}} = string_downcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934829	934936	
==>s/string.ops\"\n  {{\@1}} = string_downcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Test/More.pm	31505	31628	
==>eys %$a2 ? $a1 : $a2;
    foreach my $k (keys %$bigger) {
        my $e1 = exists $a1->{$k} ? $a1->{$k} : $DNE;
        my $ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	2252	2347	
==>D_HINT = 1;
		$self = Parse::RecDescent->new($grammar,1)
			|| croak("Can't compile bad grammar" <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	534	626	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
my @_to_accept;

%Tagmap = (
  'Verbatim'  => "\n<pre <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	393	495	
==>my ( $path_to_parrot, $path_to_language, $count ) = @_;
 
    
    my $test_prog_args = $ENV{TEST_PROG_ <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	411	507	
==>my ( $path_to_parrot, $path_to_language, $count ) = @_;

    my $test_prog_args = $ENV{TEST_PROG_ <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	2011	2106	
==>t the function returns no data.

=item I

Interpreter pointer. The current interpreter pointer i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953862	954158	
==>S" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1073,
                  "ARGS" => [
                              " <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	9215	9337	
==>six
    if $I1 == -7 goto neg_seven

# XXX this right?
%% DOMAIN_ERROR %%
zero:
    $N1 = op2 * op2
    $N1 = 1 - $N1
    $ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	40463	40563	
==>refix substring (if any),

=item [3]

the opening tag

=item [4]

the text between the opening and cl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146383	146645	
==>r, {{\@1}}, {{\@2}}, MMD_EQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167609	167871	
==>r, {{\@1}}, {{\@2}}, MMD_EQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	11290	11406	
==>incexc ] if $incexc->[0] > 0;
    return [ ] if @$incexc == 1;
    shift @$incexc;
    $incexc->[0]++;
    return $in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321593	321824	
==>>get_integer(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323949	324180	
==>>get_integer(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	14351	14453	
==>op_func,		/* op_func_table */
  $getop		/* op_code() */
};

END_C

# generate initfunc
my $init1_code = <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	7302	7445	
==>ists $op->{op} ) {
            print {$FH}
                "  if $op->{arg1}->{symbol} $op->{op} $op->{arg2}->{symbol} goto $op->{result}->{sy <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	12583	12707	
==>nshift result, $P1

    inc op1
    goto neg_loop

pos_loop:
    if op1 == 0 goto done
    unless iter goto done
    
    $P1 <==
3	/Users/nnunley/parrot/config/auto/jit.pm	4599	4708	
==>st for executable malloced memory
        if (-e "config/auto/jit/test_exec_$osname.in") {
            print " <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1087	1191	
==>es for the program:
    # default -> probe -> environment -> option -> ask
    $prog ||= $conf->options-> <==
3	/Users/nnunley/parrot/config/inter/make.pm	908	1012	
==>es for the program:
    # default -> probe -> environment -> option -> ask
    $prog ||= $conf->options-> <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1084	1188	
==>es for the program:
    # default -> probe -> environment -> option -> ask
    $prog ||= $conf->options-> <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2728	2846	
==>HECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHECK}}='ACCEPT';
    undef;
}

su <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2604	2711	
==>HECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHECK}}='ACCEPT';
    undef;
}

su <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2667	2766	
==>ript with --plus-misses, and a second section will be "
	    ."included,\nwith the heads of these in <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	12847	12959	
==>_pbcexe' . $PConfig{exe}, $test_no);  # Make cleanup and svn:ignore more simple
                my $exec_f = per_ <==
3	/Users/nnunley/parrot/tools/dev/manicheck.pl	1463	1593	
==>"\n";
    print "Missing files:\n";
    foreach (@missing) {
        print "  $_\n";
    }
}

if (@extra) {
    print "\n";
    pri <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9432	9561	
==>++$$nberror;

        };

			$$errstatus == 3	#The next token is not valid: discard it
		and	do {
				$$token eq ''	# End of <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9008	9131	
==>++$$nberror;

        };

			$$errstatus == 3	#The next token is not valid: discard it
		and	do {
				$$token eq ''	# End of <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	4959	5066	
==>t is typically donw with automake installed packages.  If there
        # is a use case to make this configu <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34978	35072	
==>:RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = $Parse::RecDescent::last <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42088	42182	
==>:RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = $Parse::RecDescent::last <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	5053	5181	
==>($n, $arg, $cmt) = @_;
    my $nst = "";
    my $ns = $namespace{$arg};
    my $real_name = $arg;
    my $meth = '';
    if ($ns) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653344	653439	
==>= {{^+4}};\n    {{\@1}} = {{\@2}}->vtable->find_method(interpreter, {{\@2}}, {{\@3}});\n    if ( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654505	654600	
==>= {{^+4}};\n    {{\@1}} = {{\@2}}->vtable->find_method(interpreter, {{\@2}}, {{\@3}});\n    if ( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1668	1793	
==>b args      { return @{shift->{ARGS}};   }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1176	1294	
==>b args { return @{shift->{ARGS}}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	995	1113	
==>b args { return @{shift->{ARGS}}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $ <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	9676	9808	
==>"MANIFEST", $line, "$_: more than one '.' in a filename");
        }
        $filebase  = substr($filebase, 0, 8);
        $extension <==
3	/Users/nnunley/parrot/lib/Test/More.pm	13003	13116	
==>_name;
    my $name = "$obj_name isa $class";
    if( !defined $object ) {
        $diag = "$obj_name isn't define <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3520	3630	
==>ontent);
		}
	}
	
	foreach my $content (@contents)
	{
		# We wait until now to do this because only now are all <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	8954	9112	
==>ed for class calling in rule $rule->{'name'}\n";
    }
}


# Generate the translator initialization code.
# ############################################
sub ge <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	68881	69000	
==>c\" was reduced to $lookahead.
			       Was this your intention?");
		}
		$lookahead = 0;
		$lookaheadspec = "";

		$gr <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	2008	2099	
==>the appropriate C<Parrot::Pmc2c> subclass for the PMC
(C<< $self->{class} >>). C<$self> is t <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	14775	14915	
==>ET\((.*?)\)/{{=0,+=$1}}/mg)
        {
            $branch = 1;
            $restart = 1;
        }
        elsif($body =~ s/\brestart\s+NEXT\ <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	418	527	
==>ermining some sizes';

@args = qw(miniparrot);

sub runstep
{
    my ($self, $conf) = @_;

    if (defined $co <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	3129	3234	
==>);
    if ($l =~ /Disassembly of <?([\w:]+)>?/) {
	push @code, [ 0, 0, "New_func", 0, $1, undef ];
	return <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	5129	5251	
==>xt = $stmt;
    }

    # Push first statement on the queue
    my @Q = ($output2[0]);

  BBLOCK:
    while (my $stmt = shif <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9323	9430	
==>et pos := popped index");
}

sub output_popint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg) <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9017	9124	
==>et pos := popped index");
}

sub output_popint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg) <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14044	14141	
==>ends in a comma and a space, unless it's 0-length

  my $is_obviously_module_name;
  $is_obviously <==
3	/Users/nnunley/parrot/config/auto/gc.pm	2309	2417	
==>gc = 'gc';
        $conf->data->set(
            TEMP_gc_c => <<"EOF",
\$(SRC_DIR)/resources\$(O):	\$(GENERAL <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11182	11290	
==>ctx});

    push @ops, split(/\n/, <<"END");
  if <rx_mode> goto $trymatch
  goto $backup
END

    return @op <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	14570	14672	
==>tion.

=head1 EXAMPLES

=over 4

=item Example 1

Giving a struct element a class type that is also a s <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	2946	3134	
==>\s+=\s+(-?\w+)/) {
                    local $_;
                    if (defined($values{$2})) {
                        $_        = "$prefix$1\t" . $values{$2};
                        $la <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	4469	4596	
==>ft, validate and stash it.
    if ($rule) {
        validate_rule($rule);
        push @rules, $rule;
    }

    # Close file an <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	4563	4670	
==>se {
	    push @{$blocks[-1]}, $instr_pc;
	}
    }

    print<<END_C;
static opcode_t* run_compiled(Interp * <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	43680	43792	
==>) {
        DEBUG > 1 and print "I don't know how to deal with E<$content>.\n";
        $self->whine( $start_line <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	5087	5197	
==>ocumentation file.

=cut

sub process_file_start_token
{
    my $self = shift;
    my $token = shift;
    my $t <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	791	890	
==><symbols>.

=cut

package Parrot::Configure;

use strict;
use warnings;

use lib qw(config);
use Car <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9284	9397	
==>ing

#DBG>			$debug & 0x10
#DBG>		and	do {
#DBG>			print STDERR "**Entering Error recovery.\n";
#DBG>			++$db <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8868	8976	
==>ing

#DBG>			$debug & 0x10
#DBG>		and	do {
#DBG>			print STDERR "**Entering Error recovery.\n";
#DBG>			++$db <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	607	710	
==>h), and
# to call the proper callbacks on the treelets.
#
# Every node in a treelet is a ['name', {attrh <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	20380	20504	
==>es, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new NewOp( $parser,
        'result' => <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21659	21783	
==>es, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new NewOp( $parser,
        'result' => <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	22802	22926	
==>es, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new NewOp( $parser,
        'result' => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83751	83837	
==>bals, IGLOBALS_COMPREG_HASH);\n  VTABLE_set_pmc_keyed_str(interpreter, compreg_hash, {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84657	84743	
==>bals, IGLOBALS_COMPREG_HASH);\n  VTABLE_set_pmc_keyed_str(interpreter, compreg_hash, {{ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	40405	40518	
==>x} . ')
		  {
			$backtrack = 0;
			' . $op->code(@_[1..2]) . '
			' . ($op->isterminal() ? 'pop @item;' : '$backt <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	2417	2513	
==>s is of interest to people writing a Pod processor/formatter.

This class takes Pod and parses it <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87238	87467	
==>,
                              "p",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 1215 \"src/ops/core.ops\"\n  {{\@1}} = Parrot_make_cb(inte <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7785	7913	
==>ount'}\n";
          push @{$paras->[-1]}, $line;
        } else {
          ++$self->{'pod_para_count'};
          $self->_ponde <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	2603	2733	
==>parrot',
             'doublesize' => 8,
             'dquote' => '\\"',
             'encoding' => 'fixed_8.c ucs2.c utf16.c utf8. <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	1345	1460	
==>q 'sub' or $kind eq 'var' or $kind eq 'arg' or $kind eq 'const';

  my $self = bless {
    BLOCK  => $block,

    SC <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	23012	23108	
==>for the op and set argument meta-variables.
	# There is something slightly curious going on here. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131370	131658	
==>@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132225	132513	
==>@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133080	133368	
==>@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	12768	12886	
==>_num = GET_NCI_S($reg_num);";
        return "PObj_bufstart(t_$temp_num)";
    };
    /B/ && do {
        push @{$temps <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	1572	1689	
==>'-o ',
             'cc_shared' => ' ',
             'ccflags' => '-I/opt/local/include -fno-common -no-cpp-precomp  - <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6860	6970	
==>);

    return $pirCode;
}

sub _generate_glob_for {
    my($target, $pattern, $captures) = @_;
    $target = _ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841082	841357	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841845	842120	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	15838	15940	
==>$complaint\n";
    push @{$self->{'errata'}{$line}}, $complaint
      # for a report to be generated la <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	304473	304744	
==>"inline",
                  "CODE" => 354,
                  "ARGS" => [
                              "i",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 985 \"src/ops/cmp.ops\"\n  if <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	12365	12510	
==>p";
            $extern = vtable_num($2);
            #print $op->full_name .": $jit_func $extern\n";
        }
        # some specials
        el <==
3	/Users/nnunley/parrot/lib/Test/More.pm	28823	28959	
==>less $ok;
    }

    return $ok;
}

sub _deep_check {
    my($e1, $e2) = @_;
    my $ok = 0;

    # Effectively turn %Refs_Seen into a st <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392859	393159	
==>",
                  "CODE" => 456,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 464 \"src/ops/io.ops\"\n  i <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5055	5148	
==>ddr[] = {
END_C
}

=item C<run_core_after_addr_table($base_suffix)>

Returns the run core C co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	617329	617421	
==>->vtable->base_type << 16) | right->vtable->base_type;\n    if (lru->u.type == lr_types) {\nr <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	5147	5259	
==>utput
if ( $cfg{list_only} ) {
    my @rows;
    push @rows, [ 'Benchmark', @program ];
    for my $name ( sort k <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7127	7235	
==>dex {
    my ($self, $reg) = @_;
    $reg = value(defined($reg) ? $reg : 'pos');
    return $self->output_pus <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6769	6877	
==>dex {
    my ($self, $reg) = @_;
    $reg = value(defined($reg) ? $reg : 'pos');
    return $self->output_pus <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22616	22721	
==>l"]);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$label");
  $self-> <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23117	23222	
==>l"]);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$label");
  $self-> <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3073	3171	
==>ple::Debug (\$debug_level,0);  # or some integer

is basically equivalent to this:

  my $debug_lev <==
3	/Users/nnunley/parrot/config/gen/config_pm.pm	1834	2002	
==>>data->keys) {
                my $v = $conf->data->get($k);
                if (defined $v) {
                    $v =~ s/(["\\])/\\$1/g;
                    $v =~ s/\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441558	441645	
==>ne 109 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442573	442660	
==>ne 109 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302090	302181	
==>80 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302966	303057	
==>80 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303842	303933	
==>80 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721711	722001	
==>,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722739	723029	
==>,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723768	724058	
==>,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	880	975	
==>e of the class is created and
later consulted for various bits of information needed to generate <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	681	766	
==>VERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');
  confess "Prop <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	760	845	
==>VERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');
  confess "Prop <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	3694	3836	
==>heep => 1
                           });
    ok( defined($btaste) && ref $btaste eq 'Film,     'new() works' );

    ok( $btaste->Title      eq <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	6851	6941	
==>} if wantarray;
  return;
}

#------------------------------------------------------------- <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	8390	8480	
==>} if wantarray;
  return;
}

#------------------------------------------------------------- <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	16161	16331	
==>= 0
#           try: R[$counter] or goto fail
#                push $counter
#                goto next
#          fail: $counter++
#                if $counter >= @R goto <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26176	26311	
==>next,
        );
        push @opcodes, @{ $elseif->[1] };
        push @opcodes, new BranchOp( $parser,
            'result' => $l_ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12875	12982	
==>on consisting of a single
					  conditional <error?> directive would 
					  normally succeed (with the val <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	21642	21745	
==>P6 Dest in P1 (don't trash P0)
	#print "--Copying a $typename\\n"
	pushp			# Makes an internal mess of P <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	929	1023	
==>sub defines
{
    return <<END;
#define REL_PC ((size_t)((opcode_t*)cur_opcode - (opcode_t*)int <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1059	1153	
==>sub defines
{
    return <<END;
#define REL_PC ((size_t)((opcode_t*)cur_opcode - (opcode_t*)int <==
3	/Users/nnunley/parrot/config/init/headers.pm	33	120	
==>rl Foundation.
# $Id: /parrot/config/init/headers.pm 20700 2006-06-26T19:26:45.696181Z b <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22761	22903	
==>et'}
          . ".  (Stack: "
          . $self->_dump_curr_open() . ')'
        );
        DEBUG and print "Ignoring mistargetted =end $conte <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	683	779	
==>nto a a TAP-style
protocol that can then use Test::Harness to run and report results.

=head1 SYN <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	1199	1291	
==>Library declarations file',
	'def' => 'Library definitions file',
	'dev' => 'Development docu <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1908	2040	
==>rovided appears to be
    # broken
    if ($ret == -1 and !$conf->options->get('ask')) {

        # fall back to default
        $sel <==
3	/Users/nnunley/parrot/config/inter/make.pm	1782	1914	
==>rovided appears to be
    # broken
    if ($ret == -1 and !$conf->options->get('ask')) {

        # fall back to default
        $sel <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1922	2054	
==>rovided appears to be
    # broken
    if ($ret == -1 and !$conf->options->get('ask')) {

        # fall back to default
        $sel <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	4560	4761	
==>,
       4 => "P",
       l => "I",
       c => "I",
       s => "I",
       f => "N",
       d => "N",
       b => "S",
       t => "S",
       P => "P",
       O => "P",
       S => "S",
       I => " <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	4220	4376	
==>file',
        commentType                    => '#',
        replace_slashes                => 1
    );
    genfile(
        'languages/HQ9plus/config/makef <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	78	169	
==>igure/Data.pm 20321 2006-06-20T20:02:00.179448Z bernhard  $

=pod

=head1 NAME

Parrot::Conf <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1868	1957	
==>truct::Expression::Value::Identifier')) {
    my $left_sym = $block->find_symbol($left->va <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1826	1915	
==>truct::Expression::Value::Identifier')) {
    my $left_sym = $block->find_symbol($left->va <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1748	1837	
==>truct::Expression::Value::Identifier')) {
    my $left_sym = $block->find_symbol($left->va <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	837	941	
==>ption> should describe the test.

Any optional parameters can follow.  For example, to mark a test as a T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921028	921284	
==>}}=Parrot_psprintf(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921921	922177	
==>}}=Parrot_psprintf(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/config/gen/cpu/x86_64/auto.pm	9	100	
==>AME

config/gen/cpu/x86_64/auto.pl

=head1 DESCRIPTION

Adds -fPIC to x86_64 (AMD64) ccflags <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	2627	2789	
==>op';
            if (@children == 1) {
                return rop('multi_match', [0,1,1,$children[0]]);
            } else {
                @{ $t->{args} } = @chi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	788	879	
==>o::Construct::Block');
  confess "Left is not Value!" unless UNIVERSAL::isa($left, 'Jako::Co <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	800	891	
==>o::Construct::Block');
  confess "Left is not Value!" unless UNIVERSAL::isa($left, 'Jako::Co <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34946	35049	
==>scent::expected
				   = $Parse::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = $ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42056	42159	
==>scent::expected
				   = $Parse::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = $ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74605	74707	
==>scent::expected
			    = $Parse::RecDescent::lastexpected;
			$Parse::RecDescent::unexpected
			    = $ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	31707	31802	
==>}) {
			my($t,$v)=($_->{type}, $_->{value});
			push @{$code{_data}->{code}},<<ADDDATA;
	push \$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834238	834323	
==>"#line 202 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834964	835049	
==>"#line 202 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx) <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37341	37434	
==>cent::_trace(q{Trying repeated subrule: [' . $self->describe . ']},
				  Parse::RecDescent::_ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	7082	7178	
==>ift;
	my $prodcount = scalar @{$self->{"prods"}};
	my $opcount = ++$self->{"opcount"};
	return "_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065135	1065224	
==>ter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed_str(interpreter, ns_root, {{\@2}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066009	1066098	
==>ter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed_str(interpreter, ns_root, {{\@2}} <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27401	27506	
==>)
						if defined $::RD_TRACE;').'
		$lastsep = "";
		$Parse::RecDescent::lastexpected = q{' . ($rule->ha <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29511	29616	
==>)
						if defined $::RD_TRACE;').'
		$lastsep = "";
		$Parse::RecDescent::lastexpected = q{' . ($rule->ha <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31608	31713	
==>)
						if defined $::RD_TRACE;').'
		$lastsep = "";
		$Parse::RecDescent::lastexpected = q{' . ($rule->ha <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	48422	48535	
==>ss->new;

    push @out, '';
    $parser->output_string( \( $out[-1] ) );

    DEBUG and print " _duo out to ", $p <==
3	/Users/nnunley/parrot/lib/Parrot/PMC.pm	699	809	
==>> 26,
	Eval => 27,
	NCI => 28,
	Float => 29,
	Integer => 30,
	BigInt => 31,
	Complex => 32,
	String => 33,
	Boo <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	1003	1104	
==>admittedly a little bit silly:
	# do we ever export anything else than 'struct'...?
      $self->expor <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	2134	2276	
==>f = shift;
    my $path = shift;
    my $parent = $self->parent || return '';
    
    return join ' | ', 
        grep {length} 
            $ <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	16048	16164	
==>var not needed if there are no params and a void return
        $call_state = '' if 'v' eq $return;
        print NCI <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	5359	5459	
==>is is an autogenerated file, created by F<$0>.

    It contains Parrot version info, a preamble for i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	487249	487520	
==>VAL)ceil({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2308	2415	
==>});
  }
  else {
    $handler->start_element({ Name => 'cond', Attributes => { kind => $self->kind } });
  } <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6608	6704	
==>ALL_END_${CURIC}
dec ${ITEMP0}
dec ${ITEMP2}

# Generate name of register to hold value we pop of <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46950	47051	
==>if ({{\@1}} != 0) { Interp_debug_SET(interpreter,   {{\@1}}); }\n  else         { Interp_debug_CLEAR(i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47733	47834	
==>if ({{\@1}} != 0) { Interp_debug_SET(interpreter,   {{\@1}}); }\n  else         { Interp_debug_CLEAR(i <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Posix.pm	285	401	
==>st( '_posix.out', $count );
}

sub get_test_prog {
    my $self = shift;
    my ( $count, $options ) = @_;

    my $l <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954261	954348	
==>e 571 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_encoding_number_of_str(interpreter, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955052	955139	
==>e 571 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_encoding_number_of_str(interpreter, {{\ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1475	1597	
==>rp_file( "$out_f" );

        @_ = ( $prog_output, $output, $desc );
        #goto &{"Test::More::$meth"};
        my $ok = <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1391	1513	
==>rp_file( "$out_f" );

        @_ = ( $prog_output, $output, $desc );
        #goto &{"Test::More::$meth"};
        my $ok = <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2958	3052	
==>m C<goto_address($address)>

CPrederef is funky in that expr OFFSET(n) uses a pointer to the
or <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	768	872	
==>=> $ident
  }, $class;

  $block->push_content($self);

  return $self;
}

sub ident  { return shift->{ID <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	768	872	
==>=> $ident
  }, $class;

  $block->push_content($self);

  return $self;
}

sub ident  { return shift->{ID <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35965	36061	
==>subrule}"; }
}

sub new ($$$$$$$$$$)
{
	my ($self, $subrule, $repspec, $min, $max, $lookahead, $l <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2503	2611	
==>t, we will place its
  # definition into the block at the top of the block stack. We fill in the
  # IDENT en <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2250	2358	
==>t, we will place its
  # definition into the block at the top of the block stack. We fill in the
  # IDENT en <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940964	941233	
==>YPE" => "function",
                  "CODE" => 1058,
                  "ARGS" => [
                              "p",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 486 \"src/ops/s <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7743	7854	
==>al *OLDOUT if $out;
    local *OLDERR if $err;

    # Save the old filehandles; we must not let them get closed. <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	7692	7803	
==>al *OLDOUT if $out;
    local *OLDERR if $err;

    # Save the old filehandles; we must not let them get closed. <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	12994	13164	
==>/JUMP_RESTART/ ) {
            $jit_func = $restart_op;
        }
        elsif ($op->jump) {
            $jit_func = $cpcf_op;
        } else {
            $jit_func = $n <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	3149	3279	
==>64') {

        $conf->data->set(int8_t => $type);
        eval {
            cc_gen('config/auto/sizes/test2_c.in');
            c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89251	89461	
==>"BODY" => "#line 38 \"src/ops/bit.ops\"\n  {{\@1}} &= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89989	90199	
==>"BODY" => "#line 38 \"src/ops/bit.ops\"\n  {{\@1}} &= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	2678	2771	
==>file= File::Spec->catfile($charset_dir, 'tables.c');
open STDOUT, '>', $c_file
    or die "can <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359422	359672	
==>PIO_STDERR(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360170	360420	
==>PIO_STDERR(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360940	361190	
==>PIO_STDERR(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	4753	4876	
==>if (UNIVERSAL::isa($arg, 'Regex::Ops::Tree')) {
                # $arg is a reference variable, remember.
                $a <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	10103	10226	
==>if (UNIVERSAL::isa($arg, 'Regex::Ops::Tree')) {
                # $arg is a reference variable, remember.
                $a <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18122	18236	
==>y' );
    push @opcodes, @{ $key->[1] };
    my $result = new_tmp( $parser, 'pmc' );
    push @opcodes, new Loca <==
3	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	1398	1537	
==>ss ( exists $self->{table}{$symb} ) {
            $self->{table}{$symb} = $defn;
        }
    }

    sub LookupU {
        my $self = <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	9118	9229	
==>lf->todo($pack);
    $self->_unoverload(\$todo);

    my $out;
    my $result = &share({});

    unless( $test ) <==
3	/Users/nnunley/parrot/Configure.pl	9806	9905	
==>arrot::Configure->new;
{
    # XXX $Parrot::Configure::Step::conf is a temporty hack
    no warnings <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	36158	36264	
==>st died
    any other number    how many failed (including missing or extras)

If you fail more than 254 te <==
3	/Users/nnunley/parrot/lib/Test/More.pm	34229	34335	
==>st died
    any other number    how many failed (including missing or extras)

If you fail more than 254 te <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	3024	3130	
==>st died
    any other number    how many failed (including missing or extras)

If you fail more than 254 te <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122143	122416	
==>\@1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123055	123328	
==>\@1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	2447	2543	
==>ded to facilitate the selection of
suitable ops for a Parrot safe mode, or for inclusion in minip <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	1162	1266	
==>nts[-1]) until $parents[-1] eq 'default';
    shift(@parents);
  
    return @parents;
}

sub get_pmc_ord <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	4336	4440	
==>die "$0: Could not read ops file '$opsfile'!\n" unless -r $opsfile;
    }

    $ops = Parrot::OpsFile->ne <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	2695	2825	
==>I100
    %1 = $I100
END_PIR

    $P0[unicode:"dyadic:\u2372"]  =  <<"END_PIR"            # nand
    $I100 = %1
    $I101 = %2
    $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	385	490	
==>ko::Construct::Block::Conditional);

#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $left, $op, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	397	502	
==>ko::Construct::Block::Conditional);

#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $left, $op, <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7425	7572	
==>t);
          next;
        }
        DEBUG and print "    raw text ", $next->text, "\n";
        printf $fh "\n" . $next->text . "\n";
        next <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9670	9817	
==>t);
          next;
        }
        DEBUG and print "    raw text ", $next->text, "\n";
        printf $fh "\n" . $next->text . "\n";
        next <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	20467	20560	
==>OVERCOME BROKEN LOOKAHEAD 
			_match_bracketed($textref,"",$ldel2,"","",$rdel2)
			|| do { pos <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	308742	308881	
==>reter->code->base.data;\n        pdb->state |= PDB_RUNNING;\n    }\n\n    {{+=1}};\n",
                  "LABELS" => []
                }, ' <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7445	7555	
==>PARSE;
	# Got a bareword.  
	# This should be an assignment
	#if ($syms[NEXT] eq "=") {
	#	# Assignment stateme <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	17866	17958	
==>erl -MPod::Simple::RTF -e \
   "exit Pod::Simple::RTF->filter(shift)->any_errata_seen" \
   t <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	670	799	
==>} = sub ($$;$) {
        my $self = shift;
        my ( $code, $output, $desc ) = @_;
  
        my $count = $self->{builder}->cur <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1037	1166	
==>} = sub ($$;$) {
        my $self = shift;
        my ( $code, $output, $desc ) = @_;
  
        my $count = $self->{builder}->cur <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	28668	28776	
==>//////////////////////////////////////////////////
      # All non-magical codes!!!
      
      # Here we st <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	8684	8842	
==>bundle',
             'longsize' => 4,
             'make' => 'gmake',
             'make_and' => '&&',
             'make_c' => 'gmake -C',
             'make <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	1847	1952	
==>_html = $self->write_contents_html(@_);
	
	if ( $index_html )
	{
		# If none of the items are in a para th <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6647	6743	
==>bed($vtable)>

Returns the C function definitions to call the vtable methods on a PMC for the
ele <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	2566	2728	
==>eate 'src/charset/tables.c'
#
###########################################################################
my $c_file= File::Spec->catfile($charset_dir, 'tables.c') <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1208	1342	
==>ant wrapping algorithm:
      s/(
         [^\n]{55}         # Snare some characters from a line
         [^\n\ ]{0,50}     #  and fini <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1152	1286	
==>ant wrapping algorithm:
      s/(
         [^\n]{55}         # Snare some characters from a line
         [^\n\ ]{0,50}     #  and fini <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920146	920487	
==>4}});\n    {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70821	70929	
==>],
                  "BODY" => "#line 1150 \"src/ops/core.ops\"\n\n  {{\@1}} = Parrot_load_lib(interpreter, { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71590	71698	
==>],
                  "BODY" => "#line 1150 \"src/ops/core.ops\"\n\n  {{\@1}} = Parrot_load_lib(interpreter, { <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	2832	2929	
==>left  = $left->compile($compiler);
    $right = $right->compile($compiler);

    $compiler->emit(" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	3089	3182	
==>left  = $left->compile($compiler);
  $right = $right->compile($compiler);

  $compiler->emit(" <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8282	8374	
==>Y_MOVE:
${STACK0} = pop lazy_moves

# Decrement stack height.
PRE_STORE_${CURIC}_CONT:
dec st <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	3463	3567	
==>int STDERR "between the return type and the function declaration.  This is not\n";
        print STDERR " <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22714	22817	
==>Value::Identifier->new($block, $self->require_ident);

      my ($cond, $left, $op, $right);

      if ( <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	1124	1250	
==>ined $type;
    
    my $recursive = shift;
    my $ignore = shift;
    my @files = ();
    
    foreach my $file ($self->files <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	6990	7109	
==>Perl classes

=head1 SYNOPSIS

    use Class::Struct;
            # declare struct, based on array:
    struct( CLASS_NA <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	1359	1447	
==>ce> *[package]meta1,meta2,... <whitespace> destination

The square brackets around C<pack <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905410	905751	
==>4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subs <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906429	906770	
==>4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subs <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907448	907789	
==>4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subs <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379211	379380	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 432 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(interp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380096	380265	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 432 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(interp <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	7	96	
==>T EDIT THIS FILE
# Generated by Parrot::Configure::Step from config/gen/makefiles/dynclass <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	1925	2045	
==>{$_}="#defined";
    }
    
    
    # post-process the file to find function declarations which would not
    # have bee <==
3	/Users/nnunley/parrot/config/gen/config_h.pm	688	795	
==>nf) = @_;

    genfile(
        'config/gen/config_h/config_h.in', 'include/parrot/config.h',
        commen <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	9105	9206	
==>THE SHORTNESS
			goto short if ($omode eq 'PARA' || $omode eq 'MAX');
			_failmsg "Found invalid neste <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	33152	33285	
==>@_;
    my ($v, $w, $vv, $ww);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ($w->[2] eq 'P') <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	33901	34034	
==>@_;
    my ($v, $w, $vv, $ww);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ($w->[2] eq 'P') <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	34825	34958	
==>@_;
    my ($v, $w, $vv, $ww);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ($w->[2] eq 'P') <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	13286	13411	
==>ath.h
remquol     math.h
rename      stdio.h
rewind      stdio.h
rint        math.h
rintf       math.h
rintl       math.h
roun <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2879	2973	
==>andler) foreach $self->content;
  $handler->end_element({ Name => 'block' });

  $handler->end_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2761	2855	
==>andler) foreach $self->content;
  $handler->end_element({ Name => 'block' });

  $handler->end_ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	11493	11607	
==>ren => [ { value => 'if' },
				 _get_arg($clause,0),
				 { children => [ { value => 'begin' },
						 _get_args($ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12284	12378	
==>DO';
}

=item C<href_for_perl_module($module)>

Returns the path to the Perl module's HTML file <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	23	111	
==>05, The Perl Foundation.
# $Id: /parrot/config/auto/gdbm.pm 19593 2006-05-30T02:28:15.110 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16400	16622	
==>ODE" => 22,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 293 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	992	1079	
==>EG_PMC(cur_opcode[i])
#define SREG(i) REG_STR(cur_opcode[i])
#define CONST(i) CONTEXT(in <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1108	1195	
==>EG_PMC(cur_opcode[i])
#define SREG(i) REG_STR(cur_opcode[i])
#define CONST(i) CONTEXT(in <==
3	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	1267	1406	
==>self   = shift;
        my ($defn) = @_;
        my $symb   = $defn->{name};
##    warn "Insert $symb in $self\n";
        unless ( exis <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1942	2040	
==>b start_over_block   { ++$_[0]{'Indent'} }

sub   end_over_bullet  { --$_[0]{'Indent'} }
sub   end_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1510	1608	
==>b start_over_block   { ++$_[0]{'Indent'} }

sub   end_over_bullet  { --$_[0]{'Indent'} }
sub   end_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11553	11652	
==>{\*\cs18 \additive \b \sbasedon10 pod-B;}
{\*\cs19 \additive \f1\lang1024\noproof\sbasedon10 pod-C;} <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	21330	21539	
==>> 'PIR',
                    imc  => 'PIR', );

            my ( $extension ) = $example_f =~ m{ [.]                         # introducing extension
                                                 ( pasm | pir <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	6922	7051	
==>arhdr' => 'stdarg.h',
             'i_vfork' => undef,
             'icu_dir' => '/opt/local',
             'icu_shared' => '-lpth <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	5295	5394	
==>N" />
      <itemData name="Hex" defStyleNum="dsBaseN" />
      <itemData name="Float" defStyleNum=" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888052	888219	
==>"i",
                              "s"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889186	889353	
==>"i",
                              "s"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpre <==
3	/Users/nnunley/parrot/languages/m4/tools/scrutinize.pl	147	244	
==>egression testing.

=head1 TODO

Find a better name. 'perlcritic' is already taken.

Look at the t <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3392	3509	
==>g;
  
  print { $self->{'output_fh'} }   '', 
    $self->{'Thispara'},
    "\n\n"
  ;
  $self->{'Thispara'} = '';
  re <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2922	3039	
==>g;
  
  print { $self->{'output_fh'} }   '', 
    $self->{'Thispara'},
    "\n\n"
  ;
  $self->{'Thispara'} = '';
  re <==
3	/Users/nnunley/parrot/lib/Test/More.pm	16865	16968	
==>e checked like so:

   # Just like "use Some::Module 1.02"
   BEGIN { use_ok('Some::Module', 1.02) }

Do <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194228	194498	
==>,
                  "CODE" => 230,
                  "ARGS" => [
                              "p",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 320 \"src/ops/cmp.ops\"\n  if (str <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11266	11381	
==>ackup
END

    return @ops;
}

sub output_rule_end {
    my ($self, $name) = @_;
    return ("end", ".end # End of r <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	4534	4676	
==>e/) {
            push @installable_exe, [$src, $dest];
            next;
        }
    } elsif ($meta{include}) {
        $dest =~ s/^include/ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	1482	1596	
==>ion.
#

sub pos
{
  my $self = shift;
  my ($pos) = @_;

  if (defined $pos) {
    my $count = scalar(@{$self->{TOK <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2524	2606	
==>F<examples/mops/mops.ps>,
F<examples/mops/mops.py>,
F<examples/mops/mops.rb>,
F<exa <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	2524	2606	
==>F<examples/mops/mops.ps>,
F<examples/mops/mops.py>,
F<examples/mops/mops.rb>,
F<exa <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	1176	1289	
==>ng
  my $block  = shift; # Optional: Jako::Construct::Block
  my $kind   = shift; # Required: string (TODO: domain <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2744	2855	
==>h the heads of these indescribable files.\n";
    }
    print "\n";
    my @no_descriptions;
    foreach (@files <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54533	54626	
==>re in some crazy non-ASCII world!
        s<([^abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTU <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	14286	14422	
==>>{_labels}{'fail'} ]),
           $try_S => @S_ops,
                     aop('goto', [ $next ]),
            $back => aop('popindex', [ $ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22253	22363	
==>turn $return;
}

sub _op_odd_p {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  my $ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	1111	1208	
==>ontents)>

Returns a new item. If there is no descriptive text then C<$text> should
be an empty st <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	31	116	
==>Foundation.
# $Id: /parrot/lib/Parrot/Test/Harness.pm 19602 2006-05-30T13:40:58.862833 <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	36786	36879	
==>est::Harness

=head1 AUTHORS

Original code by chromatic, maintained by Michael G Schwern
E<lt <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2810	2901	
==>mple::PullParser> and L<Pod::Simple>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 S <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	3872	4023	
==>.
        $conf->data->set(
            hugeintval     => $intval,
            hugeintvalsize => $intvalsize,
        );
    }

    cc_clean();

    #ge <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	67710	67820	
==>" => [],
                  "BODY" => "#line 1038 \"src/ops/core.ops\"\n  Parrot_go_collect(interpreter);\n  {{+ <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12028	12120	
==>s returns the string that
it stands for.  For example, C<e2char('sol')>, C<e2char('47')>,
C<e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23050	23249	
==>vtable->invoke(interpreter, p, dest);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25489	25688	
==>vtable->invoke(interpreter, p, dest);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/languages/regex/test.pl	1757	1888	
==>?)optimize/) {
        $tree_opt = 0;
        $list_opt = 0;
    } elsif (/--language=(.*)/) {
        $language = $1;
    } elsif ( <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1974	2082	
==>PATHQUOTE . '/Users/nnunley/parrot/include' . $PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/ <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2270	2378	
==>PATHQUOTE . '/Users/nnunley/parrot/include' . $PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2065	2173	
==>PATHQUOTE . '/Users/nnunley/parrot/include' . $PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528022	528336	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528903	529217	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529785	530099	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	23574	23698	
==>ode with a new parent
        }
      } elsif($is eq '0') {
        splice(@$treelet, $i, 1); # just nix this node (and its d <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6698	6797	
==>o call the vtable methods on a PMC for the
elements in the referenced vtable array.

=cut

sub vtbl_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1615	1708	
==>dle_element_start( "head1", \%attributes );
  $parser->_handle_text( "Hi there" );
  $parser-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60043	60299	
==>n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "warningsoff",
                  "FLAGS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60692	60948	
==>n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "warningsoff",
                  "FLAGS" => <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	4222	4325	
==>uction}}, [@_];
}

sub generate {
  my ($code, $name) = @_;

  die "$name: Unknown builtin\n" unless exi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3996	4098	
==>piler->emit("  $temp_pmc = new $pmc_type");
    $compiler->emit("  $temp_pmc = $dest");

    my $dest_n <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36711	36811	
==>srm->pre_call();
		$pir .= "### pre_call\n";
		$pir .= sub_meta($pre_call, $mv, "pre_call for rule $r <==
3	/Users/nnunley/parrot/config/inter/shlibs.pm	223	315	
==>r which flags are needed for compiling position-independent code
for use in shared libraries. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757319	757538	
==>"CODE" => 854,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 271 \"src/ops/set.ops\"\n  {{\@1}}->vta <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7751	7849	
==>(!$dest_reg) {
		$pir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[s <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5869	5967	
==>(!$dest_reg) {
		$pir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[s <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1000	1087	
==>ur_opcode[i])
#define SREG(i) REG_STR(cur_opcode[i])
#define CONST(i) CONTEXT(interprete <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1116	1203	
==>ur_opcode[i])
#define SREG(i) REG_STR(cur_opcode[i])
#define CONST(i) CONTEXT(interprete <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	42317	42403	
==>-----------------------------------------------------------

sub _verbatim_format {
  m <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4618	4724	
==>ss");
    my @ops = ("<rx_tmp> = ord(substr(<rx_input>, <rx_pos>)); # tmp = INPUT[pos]");
    my $fail = $s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1016594	1016813	
==>@1}} = Parrot_intval_time();\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	5077	5204	
==>.= "___BUILTIN_CODE___\ngoto END\n";
    }
    return $pir;
}


# Usage message.
# ##############
sub usage() {
    print <<USAG <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	3272	3383	
==>gnum
    $N100 = %1
    $I100 = cmp_num $N100, 0.0
    %1 = $I100
END_PIR
    $P0[unicode:"monadic:\x{f7}"] =  < <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	994	1107	
==>=~ /^pmclass\s+[a-z]/smo )
	    {
	        push(@abstract_items, 
	            $self->new_item('', $dist->relative <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924363	924451	
==>=> "#line 342 \"src/ops/string.ops\"\n  {{\@1}} = string_make_empty(interpreter, enum_str <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925154	925242	
==>=> "#line 342 \"src/ops/string.ops\"\n  {{\@1}} = string_make_empty(interpreter, enum_str <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17679	17814	
==>FAULT => -93
	},
	{#State 47
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			".. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151023	151114	
==>12 \"src/ops/cmp.ops\"\n  if (0 == string_equal(interpreter,\n      {{\@1}}->vtable->get_str <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152001	152092	
==>12 \"src/ops/cmp.ops\"\n  if (0 == string_equal(interpreter,\n      {{\@1}}->vtable->get_str <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126699	127004	
==>n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127834	128139	
==>n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128969	129274	
==>n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	14509	14607	
==>ak "Can't write-open $to: $!";
    binmode($out_fh)
     if $self->can('write_with_binmode') and $s <==
3	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	338	452	
==>ad';
    }
    if ($ccflags !~ /-D_XOPEN_SOURCE=/) {

        # Request all POSIX visible (not automatic for cxx, a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56348	56455	
==>src/ops/core.ops\"\n  {{\@1}} = interpinfo_p(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57110	57217	
==>src/ops/core.ops\"\n  {{\@1}} = interpinfo_p(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2085	2195	
==>t_sym->type;
  }
  else {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Ja <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2043	2153	
==>t_sym->type;
  }
  else {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Ja <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1965	2075	
==>t_sym->type;
  }
  else {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Ja <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117215	117545	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	119546	119876	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120401	120731	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
3	/Users/nnunley/parrot/config/gen/platform.pm	3542	3711	
==>dl.c
        stat.c
        math.c
        memalign.c
        signal.c
        itimer.c
        memexec.c
        exec.c
        misc.c
        /;

    open PLATFORM_C, " <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	31397	31502	
==>your tests ran without a plan!');
    _whoa($self->{Curr_Test} != @{ $self->{Test_Results} },
          'S <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	5006	5103	
==>a file
path and that file contains POD, then a link will be made to that file's
documentation file <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6218	6313	
==>= "New York"
A$(2) = "Boston"
A$(3) = "Chicago"
A$(4) = "Seattle"
Max = 4 'UBOUND(A$)
Exchange=T <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15871	15966	
==>= "New York"
A$(2) = "Boston"
A$(3) = "Chicago"
A$(4) = "Seattle"
Max = 4 'UBOUND(A$)
Exchange=T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722403	722499	
==>nterpreter, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_softspace(interpreter, io, 1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723432	723528	
==>nterpreter, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_softspace(interpreter, io, 1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724476	724572	
==>nterpreter, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_softspace(interpreter, io, 1 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2382	2487	
==>ight_sym->type;
  }
  else {
    $right_type = $right->type;
  }

  $self->INTERNAL_ERROR("No type for des <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2304	2409	
==>ight_sym->type;
  }
  else {
    $right_type = $right->type;
  }

  $self->INTERNAL_ERROR("No type for des <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	19505	19604	
==>t " Considering child at $i ", pretty($treelet->[$i]), "\n";
      if($nixx and ref $treelet->[$i] a <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1921	2126	
==>tion mark, apostrophe
                last;
            s/^\\a//
                and $str .= "\a",      # bell
                last;
            s/^\\b//
                and $str .= "\b",      # backs <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3435	3640	
==>tion mark, apostrophe
                last;
            s/^\\a//
                and $str .= "\a",      # bell
                last;
            s/^\\b//
                and $str .= "\b",      # backs <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	14310	14424	
==>d better be namespace of func
	    # but can't create namespace yet
	    my $gn = "def_arg_" . ($n-$i-1);
	    prin <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	2697	2792	
==>since($time)>

Use this to find out whether the file has been modified since the
specified time. <==
3	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	1410	1501	
==>ot::Test::slurp_file($out_f);
}


=head2 output_is

This gets called when language_output_is <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2786	2887	
==>e for left!")  unless defined $left_type;
  $self->INTERNAL_ERROR("No type for right!") unless defined <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2552	2653	
==>e for left!")  unless defined $left_type;
  $self->INTERNAL_ERROR("No type for right!") unless defined <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2474	2575	
==>e for left!")  unless defined $left_type;
  $self->INTERNAL_ERROR("No type for right!") unless defined <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10099	10199	
==>e
    .param int trace
    .local pmc bc, ex, stypes, dtypes, loadtype, type_trans, c_params, escaper <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23447	23544	
==>my $temp = $self->_generate($node->{children}[$_]);
    my $label = $self->_gensym();
    $self->_ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23909	24006	
==>my $temp = $self->_generate($node->{children}[$_]);
    my $label = $self->_gensym();
    $self->_ <==
3	/Users/nnunley/parrot/languages/regex/regex.pl	400	521	
==>$tree_opt = ($opts =~ /t/i);
        $list_opt = ($opts =~ /l/i);
    } elsif (/--main/ || $_ eq '-m') {
        $main = 1 <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1773	1869	
==>ley/parrot/tools/build/pmc2c.pl] . $PATHQUOTE;

# Actual commands
sub compile_cmd {
    my ($targ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1864	1960	
==>ley/parrot/tools/build/pmc2c.pl] . $PATHQUOTE;

# Actual commands
sub compile_cmd {
    my ($targ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	45460	45585	
==>=~ tr/ /\xA0/ if ASCII and $in_s;
       # (If not in ASCIIland, we can't assume that \xA0 == nbsp.)
       
       # Note tha <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	28564	28666	
==>$p->[1]
EOC
	}
	my $x = (pop @stack)->[1];
	print <<EOC;
	$x\["_message"\] = "Foo"
EOC
	$throw = "throw <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24184	24276	
==>lArray
	\$P3 = new .PerlHash
	\$P3["index"]=\$P2
	\$P3["hash"]=\$P0
	find_global \$P1, "BASIC <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	8892	8979	
==>heck}{thisoffset}?'
	my $thisoffset;
	tie $thisoffset, q{Parse::RecDescent::OffsetCounte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427784	427980	
==>ic",
                              "p",
                              "n"
                            ],
                  "BODY" => "#line 69 \"src/ops/math.ops\"\n  mmd_dispatch_v_pn(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1158	1249	
==>rot::Test::slurp_file($out_f);
        $pass =$self->{builder}->is_eq( Parrot::Test::slurp_f <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1199	1290	
==>rot::Test::slurp_file($out_f);
        $pass =$self->{builder}->is_eq( Parrot::Test::slurp_f <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31852	31967	
==>->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my $parameters = $method->{parameters};
    my $n=0 <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33429	33544	
==>->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my $parameters = $method->{parameters};
    my $n=0 <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40486	40601	
==>->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my $parameters = $method->{parameters};
    my $n=0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16119	16401	
==>MP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16891	17173	
==>MP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2453	2557	
==>S, "COMMON"\n};
				foreach(@saves) {
					$edit.=qq{\t_GLOBALS["$_"]=$_\n};
				}
				$edit.=qq{\tstore_ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2458	2587	
==>apply_CALL'],
  ['',            'set', 'P10', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '. <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5842	5954	
==>ths = ();
    
    if ( $source->relative_path_is_directory($rel_path) )
    {
        my $dir = $source->directo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1202	1306	
==>, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block,

    IDENT => $ident, <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	14922	15052	
==>y ($op, $cmt) = @_;
    my $r = pop @stack;
    my $l = pop @stack;
    my ($t, $n);
    {
	my $nl = promote($l);
	$n = temp($t = ' <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	15239	15369	
==>y ($op, $cmt) = @_;
    my $r = pop @stack;
    my $l = pop @stack;
    my ($t, $n);
    {
	my $nl = promote($l);
	$n = temp($t = ' <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12427	12528	
==>hift;

	if ( $#{$self->{"items"}} >= 0 )
	{
		my $subrule = $self->{"items"}[0]->issubrule();
		return <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8836	8951	
==>o 100
	b=rnd*max+1
	a(b)=a(b)+1
next i
for i = 1 to max
	print ,
	for j = 0 to a(i)
		print "*";
	next j
	print 
nex <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20077	20192	
==>o 100
	b=rnd*max+1
	a(b)=a(b)+1
next i
for i = 1 to max
	print ,
	for j = 0 to a(i)
		print "*";
	next j
	print 
nex <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106356	1106470	
==>umber out of range\");\n    {{\@1}} = interpreter->vtables[typ]->class;\n    {{+=3}};\n",
                  "experi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107332	1107446	
==>umber out of range\");\n    {{\@1}} = interpreter->vtables[typ]->class;\n    {{+=3}};\n",
                  "experi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4959	5061	
==>solve_pod_page_link {
  my($self, $to) = @_;
  
  return 'TODO';
}

sub do_url_link { return $_[1]->att <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9380	9521	
==>n";
#DBG>			++$dbgerror;
#DBG>		};

            ++$$nberror;

        };

			$$errstatus == 3	#The next token is not valid: discard it <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8960	9093	
==>n";
#DBG>			++$dbgerror;
#DBG>		};

            ++$$nberror;

        };

			$$errstatus == 3	#The next token is not valid: discard it <==
3	/Users/nnunley/parrot/tools/dev/symlink.pl	657	758	
==>ars qw($v);

if ($toolsrcdir ne '' && -d $toolsrcdir && lc $toolsrcbase eq 'symlink.pl') {
    my $try <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	3987	4113	
==>ch class.
    foreach (keys %classes) {
        # Stick label at top.
        my $label = "CLASS_$_";
        $label =~ s/\./_/ <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2517	2633	
==>::memBunzip = sub { return };
}

sub add_smoke {
  my $CGI = shift;
  my $html = $CGI->param("smoke");

  my $id = md <==
3	/Users/nnunley/parrot/Configure.pl	10005	10107	
==>set(%args);
# Run the actual steps
$conf->runsteps or exit(1);

# tell users what to do next
my $make = <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9302	9416	
==>_stack[-1] twips.\n";
        $self->{'rtfindent'} += $indent_stack[-1];
        
      } elsif ($tagname eq 'L') { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64713	64799	
==>ags_SET(new_interp, PARROT_EXTERN_CODE_FLAG);\n  new_interp->code = interpreter->code;\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65664	65750	
==>ags_SET(new_interp, PARROT_EXTERN_CODE_FLAG);\n  new_interp->code = interpreter->code;\ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	12837	12936	
==>rride these as necessary for further customization

sub font_table {
  return <<'END';  # text font, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550158	550247	
==>_CONTINUATION;\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_method(i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551459	551548	
==>_CONTINUATION;\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_method(i <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	30578	30692	
==>dditional attributes including:
#

############# The "type" attribute.
# Fifth:
# A flag for whether item 3 (if pre <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	598	699	
==>nless defined $left;
  confess "Op is not defined!" unless defined $op;
  confess "Right is not define <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	610	711	
==>nless defined $left;
  confess "Op is not defined!" unless defined $op;
  confess "Right is not define <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6807	6918	
==>oad($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If we need a destination, we simply suppl <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4745	4856	
==>oad($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If we need a destination, we simply suppl <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	43015	43111	
==>f($content = $treelet->[$i][2])) {
        $self->whine( $start_line, "An E<...> surrounding stra <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71172	71460	
==>=> 0,
                  "NAME" => "loadlib",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 95, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70404	70690	
==>=> 0,
                  "NAME" => "loadlib",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 9 <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	17632	17764	
==>mmd} }) {
        my ($super, $variants);
        $found = 0;
        @mmds = ();
        while (($super, $variants) = each %{ $super <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	29163	29279	
==>$curr_open->[-1][0] eq '=over'
      ) {
        DEBUG > 2 and print "'=$para_type' inside an '=over'!\n";
        $s <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	16987	17103	
==>mp_diag($got, $type, $expect);
        }
    }
    return $ok;
}

sub _cmp_diag {
    my($self, $got, $type, $expect) <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	719	831	
==>_[0] >> (32 - $_[1]);
	#my $right = $_[0] >> (32 - $_[1]);
	#my $rmask = (1 << $_[1]) - 1;
	($_[0] << $_[1]) | (( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019117	1019406	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "localtime",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020047	1020336	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "localtime",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	33768	33862	
==>..]', or '<..>'). Optionally it will also
respect quoted unbalanced brackets (see below).

A "d <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9321	9442	
==>and	do {
#DBG>			print STDERR "**Entering Error recovery.\n";
#DBG>			++$dbgerror;
#DBG>		};

            ++$$nberror <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8902	9018	
==>and	do {
#DBG>			print STDERR "**Entering Error recovery.\n";
#DBG>			++$dbgerror;
#DBG>		};

            ++$$nberror <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	15590	15702	
==>(*func_t)($proto);
    func_t pointer;
    $call_state
    $return_data
    $temp_decl
    $other_decl
    Parrot <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	21766	21880	
==>opped)
	new P3, .PerlHash       # Uses S0, I0, N0
FINDIM
		
		foreach(@types) {
			my %val=( INT => 'I0', FLO => 'N <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1711	1813	
==>$check };

	_CheckParams( [], \%params, \@_, $self );

		exists($$self{VERSION})
	and	$$self{VERSI <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1652	1749	
==>$check };

	_CheckParams( [], \%params, \@_, $self );

		exists($$self{VERSION})
	and	$$self{VERSI <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31986	32107	
==>rep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $paramet <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33563	33684	
==>rep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $paramet <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40620	40741	
==>rep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $paramet <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	1874	1995	
==>prefix, # Prefix, if given in source code.
    SYMBOLS => { },     # Identifiers
    CONTENT => [ ]      # Constructs
  }, <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	45157	45254	
==>re, all of these values (except the remaining text) are C<undef>.


In a scalar context, C<extract <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	40655	40751	
==>re, all of these values (except the remaining text) are C<undef>.

In a scalar context, C<extract <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123303	123629	
==>> 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124176	124502	
==>> 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125050	125376	
==>> 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566216	566604	
==>",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 647,
                  "ARGS" => [
                              "i",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 194 \ <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	11244	11380	
==>ody =~ /
        ^(?:.*\.ops")\s+
        {{\@(\d)}}->vtable->
        (\w+)
        \(interpreter,
        \s*
        {{\@(\d)}},\s*{{\ <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	12114	12250	
==>ody =~ /
        ^(?:.*\.ops")\s+
        {{\@(\d)}}->vtable->
        (\w+)
        \(interpreter,
        \s*
        {{\@(\d)}},\s*{{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958583	958879	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959384	959680	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960186	960482	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLA <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	18623	18723	
==>=item C<minor_version()>

Returns the minor version number.

=cut

sub minor_version
{
    my $self = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724314	724411	
==>}; /* TODO Can this be localized? */\n  STRING *s = (VTABLE_get_string(interpreter, p));\n  if (s) <==
3	/Users/nnunley/parrot/lib/Test/More.pm	8202	8298	
==>yarblokos'

So you can figure out what went wrong without rerunning the test.

You are encouraged <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243980	244090	
==>erpreter, {{\@2}});\n  {{\@1}} = string_compare(interpreter, l, {{\@3}});\n  {{+=4}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244912	245022	
==>erpreter, {{\@2}});\n  {{\@1}} = string_compare(interpreter, l, {{\@3}});\n  {{+=4}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	21132	21231	
==>pos,	$rd2pos-$str2pos,	# 2ND STR (MAYBE)
		$rd2pos,	$second_arg,		# 2ND RDEL (MAYBE)
		$modpos,	$end <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	54870	55010	
==>uildLogop( $_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 72
		 'exp', 3,
sub
#line 397 "Lua\lua51.yp"
{
            BuildLogop( <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3736	3827	
==>_$register_num:
dec stack_depth
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$register_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5510	5601	
==>_$register_num:
dec stack_depth
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$register_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196908	197328	
==>IRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 233,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	59798	59936	
==>, 5,
sub
#line 591 "Lua\lua51.yp"
{
            [ $_[2], $_[5] ];
        }
	],
	[#Rule 111
		 'field', 3,
sub
#line 595 "Lua\lua <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	24640	24789	
==>lastback)
                   : $self->rewrite_nongreedy_optional($op, $R, $lastback);
}

# R? ->       R or rfail
#             push 1
#             g <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	23551	23680	
==>ion{dump} ) {
        dump_pmc(\@include, @ARGV);
    }

    if ( $action{tree} ) {
        print_tree(\@include, 0, @ARGV);
    } <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	16433	16553	
==>of exactly three elements. For example:
		         <$op->{type}op:leftarg /op/ rightarg>");
	    }
	    else
	    {
		pus <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670656	670879	
==>ble->push_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671429	671652	
==>ble->push_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	4699	4819	
==>i++) {
    my $tok = $self->at($i);

    printf STDERR "%6d : %-30s : %5s : %-15s: %1s : %s\n",
      $i,
      $tok->fil <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	25012	25125	
==>ts_one;
    $elements_one = defined($3) ? $3 : $1;

    DEBUG > 2 and print "Extensor has good syntax.\n";

    un <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	2685	2842	
==>s+(\w+)\s+(-?\w+|".*?")/) {
                    local $_ = "$prefix$1\t$2";
                    eval $subst if ($subst ne '');
                    print INC " <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1794	1886	
==>hings very cautiously:
    $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}a <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1897	1989	
==>hings very cautiously:
    $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105077	105320	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105814	106057	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	5400	5508	
==>DO: We should make sure its a string, somewhere.
    my $op    = $props{op}    ? $props{op}->value    : $name <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598184	598426	
==>}} ));\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599231	599473	
==>}} ));\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5037	5129	
==>PRE_BRANCH_${CURIC}_LAZY_MOVE_$register_num

# No lazy move available - need to refer to regi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583970	584233	
==>ss",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 6 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585044	585307	
==>ss",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 6 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253705	253848	
==>"i"
                            ],
                  "BODY" => "#line 726 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@2}} : {{\@3}};\n  {{+=4 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254568	254711	
==>"i"
                            ],
                  "BODY" => "#line 726 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@2}} : {{\@3}};\n  {{+=4 <==
3	/Users/nnunley/parrot/config/gen/config_h.pm	1622	1737	
==>\U$1\n";
        }
    }

    print HH "\n#define BUILD_OS_NAME \"$^O\"\n";

    my $define = $conf->options->get('d <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5565	5668	
==>}
}

sub partial_link {
    my ($libs, $stem) = @_;

    if (needs_build("$stem$LOAD_EXT", "$stem$O")) { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663661	663747	
==>=> "#line 354 \"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delete_keyed(interpreter, {{\@1}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664433	664519	
==>=> "#line 354 \"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delete_keyed(interpreter, {{\@1}} <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	25859	25977	
==>g_num";
		}

		# Unknown.
		else {
			die "Known argument type $_ not implemented yet.\n";
		}

		# Generate PIR.
		$pi <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	4206	4312	
==>er  : PMC that behaves similarly to the base int type
    float    : PMC that behaves similarly to the base <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3441	3545	
==>t) = @_;
    $self->output_test('gt', $val1, $val2, $dest);
}

sub output_ge {
    my ($self, $val1, $val <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	52243	52351	
==>'{',undef,'<');
					  $code })
			{
				_parse("a (conditional) reject marker", $aftererror,$line);
				$cod <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	14198	14304	
==>$block in as an argument).
      #

      if ($peer_block->kind eq 'while' or $peer_block->kind eq 'until') <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	4700	4800	
==>::Spec->catdir($options{includedir}, $dest);
    } elsif ($meta{doc}) {
        $dest = File::Spec->c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361725	361825	
==>INTVAL_FMT, {{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error he <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362624	362724	
==>INTVAL_FMT, {{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error he <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	136	223	
==>the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Statement/Ass <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9101	9272	
==>r   do {

            $$errstatus = 1;
            &$error($self);
                $$errstatus # if 0, then YYErrok has been called
            or  next;       # so co <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8690	8856	
==>r   do {

            $$errstatus = 1;
            &$error($self);
                $$errstatus # if 0, then YYErrok has been called
            or  next;       # so co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	267706	267798	
==>DY" => "#line 811 \"src/ops/cmp.ops\"\n    {{\@1}} = VTABLE_get_bool(interpreter, {{\@2}});\n <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	3940	4043	
==>C<clean()>

Deletes keys matching C</^TEMP_/>.  Keys using this naming convention are
intended to be use <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712462	712548	
==>s = Parrot_sprintf_c(interpreter, \"%.12g\", (double){{\@1}});\n  PIO_putps(interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713569	713655	
==>s = Parrot_sprintf_c(interpreter, \"%.12g\", (double){{\@1}});\n  PIO_putps(interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	14435	14591	
==>sts with -r" );
            }

            my ( $exit_code, $cmd );
            unless ( $run_exec ) {
                if ( $args =~ s/--run-pbc// || $args = <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7359	7494	
==>nless( $next->type eq 'text' ) {
          $self->unget_token($next);
          next;
        }
        DEBUG and print "    raw text ", <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9604	9739	
==>nless( $next->type eq 'text' ) {
          $self->unget_token($next);
          next;
        }
        DEBUG and print "    raw text ", <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19875	19990	
==>pcodes};
    my $decl = pop @{$opcodes};
    delete $call->{result};
    push @{$opcodes}, $call;
    return $op <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	27406	27513	
==>DEBUG};

    my $method = "describe_" . $op->{name};
    my $desc = $op->{name};
    if ($self->can($method) <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	18914	19015	
==>nted behaviour when
    returning a reference to an entire hash or array element.
    Previously these <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3482	3592	
==>lue; # TODO: We should make sure its a string, somewhere.
    }
    else {
      $self->SYNTAX_ERROR("Sub decla <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6146	6256	
==>lue; # TODO: We should make sure its a string, somewhere.
    }
    else {
      $self->SYNTAX_ERROR("Sub decla <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	408	504	
==>ibrary with just
one PMC, which is the case used by the Parrot core. See L<Parrot::Pmc2c>

=head2 <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2324	2442	
==>TE . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/src/pmc' . $PATHQUOTE . " " .
        $source;
};

sub pa <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2119	2237	
==>TE . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/src/pmc' . $PATHQUOTE . " " .
        $source;
};

sub pa <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2397	2495	
==>_errata_seen" \
   thingy.pod

=head1 DESCRIPTION

This class is for dumping, as text, the events g <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48531	48634	
==>n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_BOUNDS_FLAG); }\n  else         { Interp_fl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49321	49424	
==>n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_BOUNDS_FLAG); }\n  else         { Interp_fl <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	14121	14220	
==>T] eq "else") {
		feedme();
		print CODE "\t goto CASE_${jump}_FIN\n";
		print CODE "CASE_${jump}_${ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811900	812197	
==>LAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 916,
                  "ARGS" <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37055	37159	
==>desc,
		"argcode"   => $argcode || undef,
		"matchrule" => $matchrule,
	}, $class;
}

sub code($$$$)
{
	m <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3324	3422	
==>SVN
# has been told about new or deleted files.
END_HEADER

open my $SKIP, '>', 'MANIFEST.SKIP';
pr <==
3	/Users/nnunley/parrot/config/auto/m4.pm	888	1015	
==>m4_hangs = (freebsd => 1);

    if ($m4_hangs{$osname}) {
        $has_gnu_m4 = 0;
    } else {

        # This seems to work fo <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2523	2627	
==>ype '$type' for num '$num' in opcode @{[$op->full_name]}"
        unless exists $arg_maps{$type};

    re <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4389	4493	
==>ype '$type' for num '$num' in opcode @{[$op->full_name]}"
        unless exists $arg_maps{$type};

    re <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	21392	21511	
==>lifies sutff.
        $file =~ s/\.c$/.def/;
        $fh = open_file( ">", $file );
        print $fh "LIBRARY $pmcname\ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	293	399	
==>:Test::Python. Abstraction needed.

=cut

sub new {
    return bless {};
}

sub output_is() {
    my ($self <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	331	437	
==>:Test::Python. Abstraction needed.

=cut

sub new {
    return bless {};
}

sub output_is() {
    my ($self <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	4102	4209	
==>defines it.

=cut

sub delete
{
    # Use $_[0] so that we can undef the instance.

    delete($instance_for <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3105	3202	
==>ed by config/gen/core_pmcs.pm

package Parrot::PMC;

use strict;
use warnings;

use vars qw(@ISA % <==
3	/Users/nnunley/parrot/lib/Parrot/PMC.pm	49	146	
==>ed by config/gen/core_pmcs.pm

package Parrot::PMC;

use strict;
use warnings;

use vars qw(@ISA % <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7307	7425	
==>_token;
        next unless defined $next;
        unless( $next->type eq 'text' ) {
          $self->unget_token($next <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9552	9670	
==>_token;
        next unless defined $next;
        unless( $next->type eq 'text' ) {
          $self->unget_token($next <==
3	/Users/nnunley/parrot/languages/scheme/Scheme.pm	1248	1337	
==>} = Scheme::Tokenizer::tokenize($self->{file});
  $self->{tree}   = Scheme::Parser::parse( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	998729	999066	
==>PE" => "inline",
                  "CODE" => 1116,
                  "ARGS" => [
                              "i",
                              "ic",
                              "sc",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	525531	525797	
==>n  {{\@1}} = acos((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	5173	5283	
==>os $$textref < $textlen)
	{
		next if $$textref =~ m/\G\\./gcs;

		if ($$textref =~ m/\G($ldel)/gc)
		{
			push <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	550	655	
==>{
    push    @{ $_[0]{'_currpos'}[0] }, $x; # insert in parent's child-list
    unshift @{ $_[0]{'_currpo <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	2987	3088	
==>lval;
    die Dumper($tree) unless $literal =~ s/^\"//;
    die Dumper($tree) unless $literal =~ s/\"$ <==
3	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	2294	2380	
==>onfig_hash(void)
{
    Parrot_set_config_hash_internal(parrot_config, sizeof(parrot_con <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100025	1100276	
==>> 1219,
                  "ARGS" => [
                              "n",
                              "nc",
                              "i"
                            ],
                  "BODY" => "#line 296 \"src/ops/experimental.ops\"\n    FLOAT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736661	736869	
==>line 144 \"src/ops/set.ops\"\n  {{\@1}} = (FLOATVAL){{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737407	737615	
==>line 144 \"src/ops/set.ops\"\n  {{\@1}} = (FLOATVAL){{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32080	32186	
==>args) if @args;
    $parameters = ", $parameters" if $parameters;
    my $body = "VTABLE_$meth(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33657	33763	
==>args) if @args;
    $parameters = ", $parameters" if $parameters;
    my $body = "VTABLE_$meth(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40714	40820	
==>args) if @args;
    $parameters = ", $parameters" if $parameters;
    my $body = "VTABLE_$meth(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81168	81491	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compile",
                  "FLAGS" => "",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82061	82384	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compile",
                  "FLAGS" => "",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10196	10281	
==>_[13],4,0xd9d4d039,/* 45 */
HH,$d,$a,$b,$c,$_[16],11,0xe6db99e5,/* 46 */
HH,$c,$d,$a,$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302727	303004	
==>e",
                  "CODE" => 352,
                  "ARGS" => [
                              "i",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 980 \"src/ops/cmp.ops\"\n  {{\@1}} = str <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600078	600174	
==>nterpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601154	601250	
==>nterpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	7423	7557	
==>^\[(=*)\[//
                and return $parser->_LongStringLexer($1);

            s/^([A-Z_a-z][0-9A-Z_a-z]*)//
                an <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26039	26168	
==>, @{ $cond->[1] };
        push @opcodes, new BranchUnlessOp( $parser,
            'arg1'   => $cond->[0],
            'result' <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26913	27030	
==>, @{ $cond->[1] };
    push @opcodes, new BranchUnlessOp( $parser,
        'arg1'   => $cond->[0],
        'result' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760702	760992	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setp_ind",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761554	761844	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setp_ind",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	5593	5698	
==>s;
	#shift @{$def_args{$arg}};
	$arg_count{$arg}--;
    }

    $params = join("\n\t", map {".param pmc $_" <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	125	230	
==>t;

use Carp ();

BEGIN { *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG }

sub new {
  my $self = sh <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	124	229	
==>t;

use Carp ();

BEGIN { *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG }

sub new {
  my $self = sh <==
3	/Users/nnunley/parrot/config/auto/format.pm	574	690	
==>ze);
    my ($iv,       $nv,       $floatsize, $doublesize, $ldsize) = $conf->data->get(
        qw(iv nv floatsize d <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018007	1018099	
==>26];\n  Parrot_gmtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = string <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018932	1019024	
==>26];\n  Parrot_gmtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = string <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	699	798	
==>he way.

=back

=head1 COMMAND-LINE ARGUMENTS

=over 4

=item C<OBJFILES>

One or more object file n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561802	561893	
==>ops\"\n  opcode_t *next = {{^+4}};\n  {{\@1}} = VTABLE_find_method(interpreter, {{\@2}}, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562886	562977	
==>ops\"\n  opcode_t *next = {{^+4}};\n  {{\@1}} = VTABLE_find_method(interpreter, {{\@2}}, {{\ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	35532	35697	
==>,
  'cos'              => \&_op_cos,
  'tan'              => \&_op_tan,
  'asin'             => \&_op_asin,
  'acos'             => \&_op_acos,
  'atan'             = <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	8673	8774	
==>$syms[CURR] eq "as";
	feedme();
	die "Expecting #" unless $syms[CURR] eq "#";
	feedme();
	$fd=$syms[CU <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	347	443	
==>sing and a
C<switch>ed run loop.

=head2 Instance Methods

=over 4

=cut

package Parrot::OpTrans <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	11766	11874	
==>gth($2)
        or pos($line_group) != length($line_group);
       # I.e., unless it's a zero-length "empty l <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53218	53309	
==>"BODY" => "#line 829 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Interp_flags_SET(interprete <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53974	54065	
==>"BODY" => "#line 829 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Interp_flags_SET(interprete <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2920	3055	
==>blist $PATHQUOTE$LIBPARROT$PATHQUOTE";
}

our $NOW = time();

################### MAIN PROGRAM ################

my ($mode, @pmcs) = @AR <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3024	3159	
==>blist $PATHQUOTE$LIBPARROT$PATHQUOTE";
}

our $NOW = time();

################### MAIN PROGRAM ################

my ($mode, @pmcs) = @AR <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	488	604	
==>LAST => 'LAST' },
  'if'       => { PREFIX => "_I", NEXT => 'TEST', REDO => 'THEN', LAST => 'ELSE' },
  'sub'      => <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	509	625	
==>LAST => 'LAST' },
  'if'       => { PREFIX => "_I", NEXT => 'TEST', REDO => 'THEN', LAST => 'ELSE' },
  'sub'      => <==
3	/Users/nnunley/parrot/config/gen/platform.pm	39	129	
==>ndation.
# $Id: /parrot/config/gen/platform.pm 19593 2006-05-30T02:28:15.110975Z coke  $

= <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35594	35691	
==>IT CODES

If all your tests passed, Test::Builder will exit with zero (which is
normal).  If anyth <==
3	/Users/nnunley/parrot/lib/Test/More.pm	33665	33762	
==>IT CODES

If all your tests passed, Test::Builder will exit with zero (which is
normal).  If anyth <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7606	7697	
==>_add_inst('', 'set', [$copy.'[1]',$temp]);
  $self->_add_inst('', 'set', [$copy,$temp]);
  $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55950	56325	
==>LAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 72,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  " <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	6461	6567	
==>1,				# OPENING BRACKET
		$ldelpos+1, $endpos-$ldelpos-2,		# CONTENTS
		$endpos-1,  1,				# CLOSING BRACKET <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	6565	6664	
==>Za-z]) \.?(\w+)$/) {
		# Especially text symbols are sometimes prefixed by a ".".
		my ($type, $name <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	759	980	
==>I4 = 10000000;              # set    I4, 10000000
                              #
print "Iterations:    $I4\n"; # print  "Iterations:    "
                              # print  I4
                              # print  "\ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	20133	20270	
==>ght);
            $func = $method->{mmd};
            # dynamic PMCs need the runtime type
            # which is passed in entry to class <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	14052	14168	
==>bs{$sym}) {
				if (! ref $opsubs{$sym}) {
					die "No op code yet for $sym\n";
				} else {
					my($code, $return) <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	8646	8743	
==>::unexpected,
	       $Parse::RecDescent::lastexpected,
	       $Parse::RecDescent::lastunexpected <==
3	/Users/nnunley/parrot/languages/m4/tools/scrutinize.pl	267	361	
==>=head1 Author

Bernhard Schmalhofer - <Bernhard.Schmalhofer@gmx.de>

=cut

package main;

use s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	309348	309452	
==>/ops/debug.ops\"\n    const char *f;\n\n    if (!(interpreter->pdb->state & PDB_BREAK)) {\n        f = st <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	1263	1350	
==>otImplementedException"
$P1 = new "System.NotImplementedException"
$P0["obj"] = $P1
thro <==
3	/Users/nnunley/parrot/tools/dev/cc_flags.pl	1284	1388	
==>ush @options, [ $regex, $sign, $option ];
	    }
	}
	elsif (s{s(.)(.*?)\1(.*?)\1([imsx]*)\s*}{}) {
	    m <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	3590	3684	
==>ted" }
sub maxlen { confess "unimplemented" }
sub startset { confess "unimplemented" }
sub hasb <==
3	/Users/nnunley/parrot/config/inter/progs.pm	17	108	
==>001-2005, The Perl Foundation.
# $Id: /parrot/config/inter/progs.pm 19593 2006-05-30T02:28:1 <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	22783	22911	
==>_;
    $n++;	# its for sure not that simple
    # we have a tuple argumen
    my $tupl = $stack[-1];
    print <<EOC;
    # tuple <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7692	7791	
==>ination isn't a register, determine register name now.
	if (!$dest_reg) {
		$pir .= <<'PIR'
# Get ty <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5810	5909	
==>ination isn't a register, determine register name now.
	if (!$dest_reg) {
		$pir .= <<'PIR'
# Get ty <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	201	299	
==>NOPSIS

    use Parrot::Docs::Section;

=head1 DESCRIPTION

A documentation I<section> is an HTML p <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	581	679	
==>:Construct::Block');
  confess("Dest (" . ref($dest) . ") is not Identifier!") unless UNIVERSAL::is <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	572	670	
==>:Construct::Block');
  confess("Dest (" . ref($dest) . ") is not Identifier!") unless UNIVERSAL::is <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	461	559	
==>:Construct::Block');
  confess("Dest (" . ref($dest) . ") is not Identifier!") unless UNIVERSAL::is <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	7247	7348	
==>lled first
 * - if it returns NULL, the hardcoded version will do the job
 */

#if defined(HAS_JIT) && <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149126	149214	
==>ODY" => "#line 105 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150067	150155	
==>ODY" => "#line 105 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{ <==
3	/Users/nnunley/parrot/config/auto/pack.pm	1390	1541	
==>or $_.\n"
            unless $format;

        my $test = eval { pack $format, 0 };
        unless (defined $test) {
            warn <<"AARGH"
Configur <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	2664	2786	
==>(1 .. scalar($op->arg_types) - 1) {
            die "$0: Premature end of bytecode in argument.\n"
                if ($off <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2688	2783	
==>XML.  This class is of
interest to people writing Pod formatters based on Pod::Simple.

Pod::Sim <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11834	11929	
==>(isarray($sym) and $lhs) {
			($ac,@args)=pushargs(\@code, \$optype, \@work);
			$pir_args = joi <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	46719	46857	
==>. . . . . . . . . . . . . . . . .
# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
#========================== <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	46767	46880	
==>. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
#================================================= <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	46813	46903	
==>. . . . . . . . .
#======================================================================== <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	26825	27046	
==>rrot_new_closure(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1097329	1097439	
==>new_string(interpreter, tmp);\n        max = VTABLE_elements(interpreter, ns);\n        for (i = 2; i < max; i+ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10620	10714	
==>_MOVE:
${STEMP0} = pop lazy_moves

# Put it in the parameter register list.
PRE_CALL_${CURIC}_C <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9898	9994	
==>, SELF";
    }
}

=item C<proto($type,$parameters)>

Determines the prototype (argument signature <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8678	8759	
==>"QUIT"
data "SHIELDS","SOS","SRSCAN","STATUS","TORPEDO","TRANSFER","VISUAL","WARP" <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21542	21623	
==>"QUIT"
data "SHIELDS","SOS","SRSCAN","STATUS","TORPEDO","TRANSFER","VISUAL","WARP" <==
3	/Users/nnunley/parrot/config/inter/ops.pm	118	217	
==>oke  $

=head1 NAME

config/inter/ops.pm - Ops Files

=head1 DESCRIPTION

Asks the user to select wh <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936417	936672	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "titlecase",
                  "FLAGS" => ":base_core",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937194	937449	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "titlecase",
                  "FLAGS" => ":base_core",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452301	452460	
==>"ic"
                            ],
                  "BODY" => "#line 225 \"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3471	3565	
==>of
portability issues.

Make your strings and arrays of strings (or similar inlined data)
C<con <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14621	14714	
==>lf->_restore ($car);

  my $cdr = $self->_generate(_get_arg($node,2));
  $self->_add_inst ('', <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	1867	1954	
==>-prototypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwrite-strings -W <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1232	1319	
==>-prototypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwrite-strings -W <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1236	1323	
==>-prototypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwrite-strings -W <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	44369	44496	
==>. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

sub _treat_Ss {
  my($self,$treelet) = @_;
  
  _change_S_to_ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15491	15586	
==>unless $return =~ /^P/;
  my $value = $self->_generate (_get_arg($node,2));
  $self->_add_inst ( <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15849	15944	
==>unless $return =~ /^P/;
  my $value = $self->_generate (_get_arg($node,2));
  $self->_add_inst ( <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9087	9178	
==>zy move.
POST_STORE_${CURIC}_LAZY_MOVE:
${STEMP0} = pop lazy_moves

# Emit move.
POST_STORE_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576526	576617	
==>interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, name);\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577538	577629	
==>interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, name);\n  {{ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2259	2363	
==>> { kind => $self->kind, name => $self->prefix } });
  }
  else {
    $handler->start_element({ Name => ' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2136	2240	
==>> { kind => $self->kind, name => $self->prefix } });
  }
  else {
    $handler->start_element({ Name => ' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1790	1884	
==>e name!")
    unless defined $type_name;

  $self->INTERNAL_ERROR("Constant definition involves <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12395	12498	
==>ftmostsubrule($)
{
	my $self = shift;

	if ( $#{$self->{"items"}} >= 0 )
	{
		my $subrule = $self->{"ite <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2258	2357	
==>"
if 5=4 then print "Wrong" else print "Ok"
if 5=5 then print "Ok" else print "Wrong"
if 5>4 then pr <==
3	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	109	199	
==>6-05-30T15:23:20.183054Z coke  $

=head1 NAME

tools/dev/gen_manifest_skip.pl - generated t <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	526	634	
==>fh;
}

print "SKIPPING @skip\n";

# get a list of all the tests in the harness.

my $teetcl = 't_tcl';

my @b <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	1404	1498	
==>new_item('', 'tools/docs/pod_errors.pl'),
            $self->new_item('', 'tools/dev/manicheck. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	622196	622417	
==>>m.sig;\n    {{+=0}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	312008	312184	
==>ace(interpreter);\n    {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	150	237	
==>rpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Label.pm 19606 2006-05-30T15 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85620	85841	
==>keyed_str(interpreter, compreg_hash, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86527	86748	
==>keyed_str(interpreter, compreg_hash, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	185	319	
==>p}++;
    return new defn( $idf, 'tmp', $type, $subtype );
}

sub new_label {
    my ($parser) = @_;
    my $idf = 'L' . $parser- <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	42264	42357	
==>s, \@copy;
  }
  return @closers;
}

#-------------------------------------------------------- <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	14951	15124	
==>{$parrot $args "$code_f"},
                        qq{$parrot "$pbc_f"},
                    ];
                } else {
                    $cmd = qq{$parrot $args "$code_f" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216930	217022	
==>@1}}->vtable->get_number(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217870	217962	
==>@1}}->vtable->get_number(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4 <==
3	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	2286	2514	
==>q{} ];
                    $level++;
                }
            }
            push @output, [ 1, $line ];
            if ( $line =~ $block_end ) {
                push @output, [ 1, q{} ];
            }
        }
    }
    # B <==
3	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	538	714	
==>r = @_;
        while ( my ( $key, $value ) = each(%attr) ) {
            if ( defined $value ) {
                $self->{$key} = $value;
            }
        }
        r <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5328	5429	
==>o do here.
	if ($dest_reg) {
		$pir .= <<'PIR'
${INS} = concat ${STOREREG}
${INS} = concat " = pop s\n <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	743	870	
==>');
    my $ccflags   = $conf->data->get('ccflags');
    if ($^O =~ /mswin32/i) {
        if ($cc =~ /^gcc/i) {
            $con <==
3	/Users/nnunley/parrot/config/auto/readline.pm	755	882	
==>');
    my $ccflags   = $conf->data->get('ccflags');
    if ($^O =~ /mswin32/i) {
        if ($cc =~ /^gcc/i) {
            $con <==
3	/Users/nnunley/parrot/tools/dev/manicheck.pl	1504	1629	
==>oreach (@missing) {
        print "  $_\n";
    }
}

if (@extra) {
    print "\n";
    print "Extra files:\n";
    foreach (@e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705583	705864	
==>1,
                  "ARGS" => [
                              "p",
                              "ic",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1}} = mmd_v <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	4714	4889	
==>}
    }
    else
    {
        # Tidy up the C reference *s.
        $text =~ s|\b\s*\*\s+\b| \*|gs;
        
        esc($text);
    }
    
    print {$self->{'output_fh'}} $t <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	4383	4526	
==>oot.in' => 'languages/HQ9plus/Makefile',
        commentType                  => '#',
        replace_slashes              => 1,
        conditi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2345	2450	
==>nd_head4       { $_[0]->emit_par(-1) }
sub end_Para        { $_[0]->emit_par( 0) }
sub end_item_bullet { $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1913	2018	
==>nd_head4       { $_[0]->emit_par(-1) }
sub end_Para        { $_[0]->emit_par( 0) }
sub end_item_bullet { $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088353	1088650	
==>> "slice",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089300	1089597	
==>> "slice",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
3	/Users/nnunley/parrot/config/inter/shlibs.pm	409	503	
==>from config/inter/progs.pm because the answers depend
on which compiler is in use.  Thus it sho <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	12416	12537	
==>=> {
			'rulename' => 17
		}
	},
	{#State 4
		DEFAULT => -11
	},
	{#State 5
		DEFAULT => -28,
		GOTOS => {
			'rulename' = <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2213	2311	
==>ts.  Something should be done about that.
  }
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2316	2414	
==>ts.  Something should be done about that.
  }
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	1535	1658	
==>_;

  if (defined $pos) {
    my $count = scalar(@{$self->{TOKENS}});

    $pos = -1 if $pos < 0;          # Just before the <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12859	12957	
==>] eq "for") {
		feedme();
	  	$foo=$fors[$scopes]->[-1];
		push @{$code{$seg}->{code}}, "\tgoto AFT <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	883	971	
==>new_item('', 'lib/Parrot/Pmc2c.pm'),
			$self->new_item('', 'lib/Parrot/Vtable.pm'),
		), <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117921	118176	
==>s\"\n  {{\@1}} >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118660	118915	
==>s\"\n  {{\@1}} >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	6916	7022	
==>en be more dramatic!).
#
sub add_checks {
    my ($self, $t, $guarantee, $follow_min) = @_;

    if ($t->{n <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1628	1716	
==>ParserToken>, L<Pod::Simple>, L<Pod::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLAIME <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2795	2883	
==>ParserToken>, L<Pod::Simple>, L<Pod::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLAIME <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1915	2003	
==>ParserToken>, L<Pod::Simple>, L<Pod::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLAIME <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031256	1031478	
==>53,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 323 \"src/ops/sys.ops\"\n    if ({{\@2}} < enum_first_ <==
3	/Users/nnunley/parrot/examples/benchmarks/arriter.pl	839	957	
==>nk = ();
}

my $j = 0;
for $s (@k) {
    ++$j;
    $ha{$s} = 1;
}
print scalar(@k), "\n";
print "$j\n";
print scalar ke <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818200	818297	
==>}} reloads cached base pointers, and works with\n   * arbitrary branch opcodes too. While it's a b <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4984	5087	
==>pmcs;

    foreach (@ungrouped_pmcs, keys %$group_files) {
        copy("$_$LOAD_EXT", $dest) or die "Co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035484	1035586	
==>};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n    PMC *result = NULL;\n\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036648	1036750	
==>};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n    PMC *result = NULL;\n\n <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	9846	9951	
==>o all children. (Which is reasonable, since
        # everything but seq tries to match its children at th <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	618912	619015	
==>= {{\@2}};\n    mic = (Parrot_MIC *) cur_opcode[1];\n    lt = left->vtable->base_type;\n    right = {{\@ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	42773	42867	
==>s to recognize, extract, and segment any
one of the various Perl quotes and quotelike operators <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	1115	1241	
==>$_,\t/*  $i */ \n";
        $i++;
    }
    print OUT <<"END_H";
    enum_class_core_max
};

/* &end_gen */
END_H

    close OU <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	7792	7912	
==>) {
    print SOURCE @cg_jump_table;
    print SOURCE <<END_C;
        NULL
    };
END_C
    print SOURCE $trans->run_cor <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	39580	39676	
==>ontinues until the next "/endpara" tag or until another "/para" tag is
encountered:

	$text = "/p <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	3033	3204	
==>DOUT;



#
# create 'src/charset/tables.h'
#
###########################################################################
my $h_file= File::Spec->catfile($charset_dir, 'tabl <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3589	3686	
==>s {
	my($mandatory,$checklist,$inarray,$outhash)=@_;
	my($prm,$value);
	my($prmlst)={};

	whi <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3402	3494	
==>s {
	my($mandatory,$checklist,$inarray,$outhash)=@_;
	my($prm,$value);
	my($prmlst)={};

	whi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977106	977520	
==>,
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1097,
                  "ARGS" => [
                              "i",
                              "i",
                              "s",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677624	677848	
==>t_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678402	678626	
==>t_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29244	29345	
==>ass;
}


sub code($$$$)
{
	my ($self, $namespace, $rule, $check) = @_;
	
my $code = ''.($::RD_NO_TRACE <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31342	31442	
==>ass;
}

sub code($$$$)
{
	my ($self, $namespace, $rule, $check) = @_;
	
my $code = ''.($::RD_NO_TRACE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681516	681749	
==>ft_integer(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24762	24857	
==>ignore);

		return _fail(wantarray, $textref) unless @match;
		return _succeed wantarray, $textr <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7596	7689	
==>ignore);

	return _fail(wantarray, $textref) unless @match;
	return _succeed wantarray, $textr <==
3	/Users/nnunley/parrot/config/auto/jit.pm	3488	3616	
==>($jitcpuarch eq 'i386')
            || ($jitcpuarch eq 'ppc')
            || ($jitcpuarch eq 'arm')) {
            $execcapable = <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	1904	2001	
==>ts for the user's response. Returns the
response, or the default if the user just hit C<ENTER>.

= <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	700	794	
==>]{'output_fh'}} "\n"  unless $_[1] =~ m/^[A-Z]$/s;
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	312	412	
==>es=();
my @dos=();
@selects=();
my $scopes=0;
my @data=();
sub parse_keys {
	feedme();
	my $targ=$sym <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717979	718070	
==>softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_fprintf(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718911	719002	
==>softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_fprintf(interpr <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeDumb.pm	922	1063	
==>'re in horrible gimp territory, so we need to knock out
    #    # all the highbit things
    #    $x =
    #      pack 'C*',
    #      map { <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	11323	11449	
==>.

=cut

sub make_op
{
    my ($self, $code, $type, $short_name, $body, $args, $argdirs,
        $line, $file, $labels, $flags, <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	167	282	
==>);

use Data::Dumper;

my $ind = 0;
sub _build_tree {
  my ($tokens,$count) = @_;
  my $temp   = {};

  die "EOF rea <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	17559	17672	
==>$modpos,	0,			# NO 2ND STR
			$modpos,	0,			# NO 2ND RDEL
			$modpos,	$endpos-$modpos,	# MODIFIERS
			$endpos, 	$t <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	39619	39718	
==>or until another "/para" tag is
encountered:

	$text = "/para line 1\n\nline 3\n/para line 4";

	ext <==
3	/Users/nnunley/parrot/languages/urm/urm-old.pl	363	467	
==>1: ";
	my $input = readline(STDIN);
	my @register = split (",", $1);
	chomp $input;
	my @input = split(", <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2341	2440	
==><SHARING;
	# Sharing $stype $var with main  (array=$array)
	P0= P10[0]
	P1= P0["$stype"]
	P0= P1["$v <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2568	2667	
==><SHARING;
	# Sharing $stype $var with main  (array=$array)
	P0= P10[0]
	P1= P0["$stype"]
	P0= P1["$v <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	359	471	
==>o::Compiler;

use base qw(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($co <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	379	491	
==>o::Compiler;

use base qw(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($co <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	359	471	
==>o::Compiler;

use base qw(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	230735	231154	
==>"ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 269,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BOD <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	7473	7589	
==>r_f;
    for (@dis) {
	if (/Information of <?([\w:]+)>?/) {
	    $in_info = 1;
	    $cur_f = $1;
	}
	elsif ($in_info) <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	11479	11580	
==>_a-z]\w*/gci
	    	or _match_codeblock($textref, "", '\{', '\}', '\{', '\}', 0)
		or $deref eq '$#' or <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	306740	307005	
==>"NAME" => "unless_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307533	307798	
==>"NAME" => "unless_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	10050	10159	
==>UN" ]); # Make sure no-arg funcs have at
			push(@expr, [ ")", "PUN" ]); # least token parenthesis...
		}
		fe <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	2013	2100	
==>.

=item C<pasm_output_like($code, $expected, $description)> or C<output_like($code, $ex <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9845	9943	
==>NOT_CTOR_${CURIC}:

# Loop over each parameter and put them into ${PARAMS}. Note that they come
# o <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7359	7457	
==>NOT_CTOR_${CURIC}:

# Loop over each parameter and put them into ${PARAMS}. Note that they come
# o <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6323	6421	
==>NOT_CTOR_${CURIC}:

# Loop over each parameter and put them into ${PARAMS}. Note that they come
# o <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	36713	36833	
==>ver
					   succeed, since optional items always
					   match (zero times at worst). 
					   Did you mean a single \"!$ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6277	6390	
==>attle"
Max = 4 'UBOUND(A$)
Exchange=TRUE           ' Force first pass through the array.
WHILE Exchange          ' <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15930	16043	
==>attle"
Max = 4 'UBOUND(A$)
Exchange=TRUE           ' Force first pass through the array.
WHILE Exchange          ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59819	60007	
==>DE" => 77,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 901 \"src/ops/core.ops\"\n  PARROT_WARNINGS_on( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2033	2121	
==>tuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/sprintf'\x%02X',ord($1)/eg;
  }
  return;
} <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	12718	12817	
==>]]))>>}}/ds }
	for ($ldel_inner, $ldel_outer, $rdel_inner, $rdel_outer)
	{
		$_ = '('.join('|',map { <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	18766	18864	
==>ree( [$dir1, $dir2], 0, $file1, $file2, ... );

Print the inheritence tree for each of the files, u <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3114	3210	
==>fig/gen/core_pmcs.pm

package Parrot::PMC;

use strict;
use warnings;

use vars qw(@ISA %pmc_type <==
3	/Users/nnunley/parrot/lib/Parrot/PMC.pm	58	154	
==>fig/gen/core_pmcs.pm

package Parrot::PMC;

use strict;
use warnings;

use vars qw(@ISA %pmc_type <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	13738	13869	
==>ACTIONS => {
			"(" => 10,
			'CHAR' => 4,
			"<" => 3,
			"[" => 14,
			'CODE' => 6,
			"." => 15
		},
		GOTOS => {
			'expr' => 38 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	24841	24969	
==>if tmp, R.back
#             goto lastback
#      rfail: push 0
#       next:
#
sub rewrite_greedy_optional {
    my ($self, $op, <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	58094	58214	
==>is not
					yet implemented. Or did you misspell
					\"$code\"?");
				}
				else
				{
					_error("Untranslatable item <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	7326	7439	
==>t came from a C99 reference, so some 99isms
#  might have slipped in)
abort       stdlib.h
abs         stdlib.h
ac <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39452	39562	
==>=> \&_op_close_input_port,
  'close-output-port'     => \&_op_close_output_port,

####
#### Input
####

  'read <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	1916	2010	
==>module',
	'pmc' => 'PMC code',
	'pod' => 'POD documentation',
	'prd' => 'Parse::RecDescent gram <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3343	3453	
==>e an item for sequences of files with the
			# same description.
			
			push @contents, 
				map {$self->new_it <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033237	1033336	
==>erpreter->ctx);\n    STRING * const lex_name = {{\@1}};\n    PMC * const lex_pad = Parrot_find_pad(i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034335	1034434	
==>erpreter->ctx);\n    STRING * const lex_name = {{\@1}};\n    PMC * const lex_pad = Parrot_find_pad(i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084183	1084607	
==>",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1203,
                  "ARGS" => [
                              "p",
                              "p",
                              "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	524827	525117	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "acos",
                  "FLAGS" => ":ba <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	12933	13032	
==>ent of the hash; the second argument, if present, is
assigned to the hash element.  If the element t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23079	23299	
==>, dest);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_AD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25518	25738	
==>, dest);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_AD <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	2098	2228	
==>c = (
        sort
            map { m{\./src/pmc/(.*)} } glob "./src/pmc/*.pmc"
    );

    @pmc = sort_pmcs(@pmc);

    my $pmc_l <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085235	1085659	
==>",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1204,
                  "ARGS" => [
                              "p",
                              "p",
                              "i <==
3	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	2482	2699	
==>}

}

################################################################################

package SymbTabConst;
use base qw(Lua::symbtab);
{

    sub Lookup {
        my $self = shift;
        my ($symb) = @_ <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	3720	3875	
==>accessing registers - this is all aligned
     
            2.7  => "",
            2.8  => "-Wsign-compare",
            2.95 => "",

            # 2.95 do <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3885	3984	
==>obal')) {
    my $pmc_type = $dest_ident->type->imcc_pmc();
    my $temp_pmc = $compiler->temp_pmc() <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818377	818519	
==>e pointers\n   * TODO OPTIMIZE later\n   */\n  {{=0,+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         ble <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	38362	38493	
==>ng =for ($fors[-1][1]{'target'}) is a resolver\n";
            }
          } else {
            DEBUG and print "Treating $para_type <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8245	8354	
==>Test::num_of_tests_run");
    }
    elsif ($Test::num_of_tests_planned != $Test::num_of_tests_run) {
        $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1067	1166	
==>y.pod

=head1 DESCRIPTION

This class is that parses Pod and dumps just the text content.  It is
mai <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035541	1035638	
==>, lex_name, ctx);\n    PMC *result = NULL;\n\n    if (!PMC_IS_NULL(lex_pad))\n\tresult = VTABLE_ge <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036705	1036802	
==>, lex_name, ctx);\n    PMC *result = NULL;\n\n    if (!PMC_IS_NULL(lex_pad))\n\tresult = VTABLE_ge <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	12484	12620	
==>n       stdlib.h
mbstowcs    stdlib.h
mbtowc      stdlib.h
memchr      string.h
memcmp      string.h
memcpy      string.h
memmove     str <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	2501	2610	
==>op_code\n";
	$offset  += sizeof('op');
	push @pc_list, $pc;
	$opcodes{$pc}->{op} = $op;
        $new_pc   = $p <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	30828	30928	
==>f->_call_function_sym('apply');

  return $return;
}

sub _op_map {
}

sub _op_for_each {
}

sub _op_ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	5612	5758	
==>>{args}->[$pos]->{label}};
                    pop @Q if ! defined $Q[-1]; # External label
                }
                if ($stmt->{code}->{n <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33675	33812	
==>g ~Para content into $over_type item\n";
              push @$para, splice @{shift @$paras},2;
            } else {
              DEBUG an <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35488	35625	
==>g ~Para content into $over_type item\n";
              push @$para, splice @{shift @$paras},2;
            } else {
              DEBUG an <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25422	25547	
==>P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    my $temp   = $sel <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27322	27445	
==>P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    my $temp = $sel <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	28355	28473	
==>{
        DEBUG > 1 and print "=back found without a matching =over.  Stack: (",
            join(', ', map $_->[0], @$ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	669	784	
==>self->init();
    return $self;
}

sub init {
    my ($self, @args) = @_;
    $self->{_markers} = {};
    $self->{_t <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	2116	2231	
==>, 't/TESTS.STATUS.pod'),
        ),
        $self->new_group('People', '',
            $self->new_item('A list of so <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	2779	2868	
==>er 4

=item C<Parrot::Docs::Section::Info>

=item C<Parrot::Docs::Section::Docs>

=item C< <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	53164	53318	
==>split the string. If this argument is omitted (or
C<undef>) the list:

        [
                sub { extract_variable($_[0], '') },
                sub { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691191	691285	
==>> "#line 626 \"src/ops/pmc.ops\"\n   {{\@1}} = Parrot_thaw(interpreter, {{\@2}});\n   {{+=3}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691948	692042	
==>> "#line 626 \"src/ops/pmc.ops\"\n   {{\@1}} = Parrot_thaw(interpreter, {{\@2}});\n   {{+=3}};\ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	4411	4536	
==>th;

    printf STDERR "%6d : %-30s : %5s : %-15s: %1s : %s\n",
      $self->pos,
      $tok->file,
      $tok->line,
      $t <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	1424	1526	
==>tatic, but see L</"Data is not an API">.

=item No Parrot API

The API is defined in the lib but not de <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	3436	3535	
==>fg{list_only} = $ini->val( global => 'list' );
}
if ( ! defined $cfg{use_times} ) {
    $cfg{use_tim <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1163	1254	
==>Test::slurp_file($out_f);
        $pass =$self->{builder}->is_eq( Parrot::Test::slurp_file($ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1204	1295	
==>Test::slurp_file($out_f);
        $pass =$self->{builder}->is_eq( Parrot::Test::slurp_file($ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	12819	12915	
==>quotemeta $_ } split('',$_)).')'
	}
	pos = $posbug;

	my @match = _match_codeblock($textref, $pre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035390	1035484	
==>arrot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@2}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036554	1036648	
==>arrot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@2}} <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	105	198	
==>:02:00.179448Z bernhard  $

=head1 NAME

Parrot::Docs::HTMLPage - HTML Documentation Page

=he <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1503	1591	
==>{STEMP1}
${STEMP1} = "$register_num"
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3213	3301	
==>{STEMP1}
${STEMP1} = "$register_num"
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	10661	10790	
==>if ($typ eq 'B') {   # bigint
	my $typ = $DEFVAR;
        my $pmc = temp('P');
	$c =~ s/[lL]$//;
	print <<EOC;
	$pmc = new .BigInt <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3081	3180	
==>X)>

Transforms to C<PC + X>. This is used to give a relative address.

=item C<expr NEXT()>

Transf <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	23080	23185	
==>r_test('.ilk', $test_no);

            open my $SOURCE, '>', $source_f or die "Unable to open '$source_f'" <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	396	484	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_element_start {
  # ($ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	395	483	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_element_start {
  # ($ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2231	2355	
==>Parse()';#Do not create stab entry on compile
        $@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $re <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2148	2266	
==>Parse()';#Do not create stab entry on compile
        $@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $re <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	40759	40855	
==>dn't happen.
      }

      #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813932	814191	
==>ULL;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	815182	815441	
==>ULL;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FL <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	3883	3989	
==>$meta =~ /^\[(.*?)\]/;
    $meta =~ s/^\[(.*?)\]//;
    next unless $package; # Skip if this file belongs t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53397	53636	
==>GC_DEBUG_FLAG); }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54153	54392	
==>GC_DEBUG_FLAG); }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	6183	6283	
==>READLINE
	bsr CHOMP
	I12= S0
PROMPTRND
	} else {
		($result, $type, @code)=EXPRESSION();
		push @{$co <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	4234	4350	
==>oto loop_done_1 
    $P100[$I101] = $I100
    inc $I101
    inc $I100
    goto loop_begin_1
  loop_done_1:
    %1 = $ <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	1786	1916	
==>akefiles/dynoplibs_pl.in' => 'tools/build/dynoplibs.pl',
        commentType                             => '#',
        replace_sl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026531	1026757	
==>s\"\n   {{\@1}} = sysinfo_i(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1027288	1027514	
==>s\"\n   {{\@1}} = sysinfo_i(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	13927	14031	
==>os = promote(pop @stack);
    print <<EOC;
    	.pcc_begin_yield $cmt
	.return $tos
	.pcc_end_yield
EOC
} <==
3	/Users/nnunley/parrot/lib/File/Which.pm	6316	6407	
==>-2.0/lib/Apache/Build.pm>. Changed for use in DocSet
(for the mod_perl site) and Win32-aware <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10248	10369	
==>o state left on stack: aborting.\n";

			return(undef);
		};

		#shift the error token

#DBG>			$debug & 0x10
#DBG <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9788	9901	
==>o state left on stack: aborting.\n";

			return(undef);
		};

		#shift the error token

#DBG>			$debug & 0x10
#DBG <==
3	/Users/nnunley/parrot/config/inter/progs.pm	4246	4334	
==>$ccwarn = integrate($conf->data->get('ccwarn'), $conf->options->get('ccwarn'));
    $conf <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	11336	11473	
==>ll be part of temporary file
            my $test_no = $builder->current_test() + 1;

            # Name of the file where output is writt <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	43198	43331	
==>ee  = shift;
  my $self = {
    tree     => $tree,
    regs     => _new_regs,
    frames => [],
    gensym   => 0,
    functions=> [], <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	6257	6373	
==>chable}; # Keep if reachable
	}
	push @output3, $stmt if $keeping;
    }

    # Reset the 'next' pointers
    undef $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015075	1015280	
==>string_make(interpreter, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015899	1016104	
==>string_make(interpreter, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759687	759885	
==>"ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 281 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_pmc( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	522	614	
==>s from Pod::Simple::PullParser

=head1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head1 DES <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	941	1033	
==>s from Pod::Simple::PullParser

=head1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head1 DES <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	428	520	
==>s from Pod::Simple::PullParser

=head1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head1 DES <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	9230	9359	
==>th.h
coshl       math.h
cosl        math.h
cpow        complex.h
cpowf       complex.h
cpowl       complex.h
cproj       complex.h <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	6153	6258	
==>etup_ends}{$group} = 1;
}

sub rewrite_try {
    my ($self, $op, $R, $lastback) = @_;
    return $self->re <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	18380	18485	
==>matting_codes(@_);
  }
  
  if( $self->_remap_sequences($treelet) ) {
    $self->_treat_Zs($treelet);  # M <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	11099	11237	
==>e_endings( $expected );

            # set up default description
            unless ( $desc ) {
               (undef, my $file, my $line) <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	16584	16722	
==>e_endings( $expected );

            # set up default description
            unless ( $desc ) {
               (undef, my $file, my $line) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	625632	625746	
==>(INTVAL*)(_reg_base + cur_opcode[2 + i]);\n                break;\n            case PARROT_ARG_INTVAL|PARROT_ARG_CO <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9802	9905	
==>URIC}
${PTEMP4} = shift ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over each parameter and put them i <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7316	7419	
==>URIC}
${PTEMP4} = shift ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over each parameter and put them i <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6280	6383	
==>URIC}
${PTEMP4} = shift ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over each parameter and put them i <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	15705	15815	
==>opint', [ '<tmp>', 'branch marker' ]);

    for my $i (0..$#args-1) {
        push @ops, aop('eq', [ '<tmp>', $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1098564	1098862	
==>S" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1218,
                  "ARGS" => <==
3	/Users/nnunley/parrot/config/auto/socklen_t.pm	315	408	
==>e qw(Parrot::Configure::Step::Base);

use Config;

use Parrot::Configure::Step ':auto';

our $ <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1188	1478	
==>ated ops: "
                              # print  I5
                              # print  "\n"
                              #
$N1 = time_hires();           # time N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, I4, I3
g <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	1188	1478	
==>ated ops: "
                              # print  I5
                              # print  "\n"
                              #
$N1 = time_hires();           # time N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, I4, I3
g <==
3	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	472	574	
==>s it.

=cut

# cache for repeated calls
# XXX this could be in BEGIN block
my ( $parrot_version, @parro <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	5252	5368	
==>/^    //osmg;
    =head1 NAME

    Parrot::OpLib::$package - Parrot Op Info

    =head1 DESCRIPTION

    This is an a <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	9431	9534	
==>XX this isn't quite right. Need to be more clever with options.
        $max++ if $arg->{option} && $arg <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	16702	16799	
==>gnored.

Note that the initializer for a nested class may be specified as
an object of that class, <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	17685	17782	
==>DO_$docounter:\n";
		my($result, $type, @code)=EXPRESSION();
		$false=qq{""} if $type eq "S";
		if <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439557	439648	
==>n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440572	440663	
==>n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n <==
3	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	303	401	
==>> */

to the end of all generated output files, and checking for that line
before rerunning the bui <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441586	441677	
==>n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442601	442692	
==>n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n <==
3	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	1994	2079	
==>("../../../parrot -o basic.pbc merged_basic.pasm");
system("../../../parrot basic.pbc" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946582	946844	
==>=> "find_charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947483	947745	
==>=> "find_charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
3	/Users/nnunley/parrot/config/init/hints/darwin.pm	46	133	
==>Id: /parrot/config/init/hints/darwin.pm 19593 2006-05-30T02:28:15.110975Z coke  $

packa <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	14123	14285	
==>k'),
                     aop('pushindex'),
                     @R_ops,
                     aop('goto', [ $next ]),
         $nextalt => aop('popindex', [ $self- <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	51996	52136	
==>'var', 2,
sub
#line 288 "Lua\lua51.yp"
{
            [ @{ $_[1] }, $_[2] ];
        }
	],
	[#Rule 49
		 'key', 3,
sub
#line 295 "Lu <==
3	/Users/nnunley/parrot/lib/Test/More.pm	6602	6711	
==>ery short description of the test that will be printed
out.  It makes it very easy to find a test in your scri <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150773	151041	
==>=> "function",
                  "CODE" => 183,
                  "ARGS" => [
                              "p",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 112 \"src/ops/cmp.op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305644	305871	
==>MC_IS_NULL({{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307213	307440	
==>MC_IS_NULL({{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	3108	3212	
==>t;
    
    return unless $self->parent_path;
    
    return $self->directory_with_path($self->parent_pa <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	1770	1866	
==>tion root\n";
}

=back

=head2 Instance Methods

=over 4

=item C<c_source_file_directories()>

R <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	36076	36210	
==>a '|' ...\n";
      for(my $j = 0; $j < @ell_content; ++$j) {
        next if ref $ell_content[$j];
        DEBUG > 3 and
         prin <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24716	24809	
==>($textref, $pre, $ldel, $rdel, $omode, $bad, $ignore);

		return _fail(wantarray, $textref) un <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7550	7642	
==>($textref, $pre, $ldel, $rdel, $omode, $bad, $ignore);

	return _fail(wantarray, $textref) un <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	35790	35899	
==>e-rectangular' => \&_op_make_rectangular,
  'make-polar'       => \&_op_make_point,
  'real-part'        => \& <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645885	645992	
==>se\n\t\t{{\@1}} = Parrot_get_datatype_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646782	646889	
==>se\n\t\t{{\@1}} = Parrot_get_datatype_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31140	31236	
==>rt Parrot::Pmc2c qw( gen_ret );

=item C<implements($method)>

Always true for vtables.

=cut

su <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39760	39856	
==>rt Parrot::Pmc2c qw( gen_ret );

=item C<implements($method)>

Always true for vtables.

=cut

su <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832164	832352	
==>{\@1}}), STACK_ENTRY_FLOAT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832892	833080	
==>{\@1}}), STACK_ENTRY_FLOAT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	1279	1378	
==>l temporarily assume everything
    # works and ignore stderr.
    $exit_code = Parrot::Test::run_co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849986	850313	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850873	851200	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851760	852087	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "A <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	12235	12330	
==>eated, we will add it here, and
maintain backwards compatibility as well.

- `eval_ok (Str $code <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215033	215123	
==>ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215974	216064	
==>ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	31341	31501	
==>goto' => [ $R_back ]),
        $trymatch => $self->startup($num_groups),
                     @R_ops,
                     @save_rxlocals,
                     a <==
3	/Users/nnunley/parrot/lib/Parrot/Revision.pm	558	662	
==>taken from pugs/util/version_h.pl rev 859
    if (-r $svn_entries) {
        open my $FH, '<', $svn_entri <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1920	2020	
==>f->block->get_symbol($symbol_name);

    my $new_name = $name . "::" . $symbol_name;

    $self->bloc <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	59536	59630	
==>ied for a given specified delimiter, '\' is used.

Note that 
C<gen_delimited_pat> was previous <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	9563	9680	
==>ing = $arg->{repeating};
    }

    $max = undef if $is_repeating;
    
    return $min, $max;
}

=head1 TODO

Doesn't <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	36158	36271	
==>$ell_content[$j];
        DEBUG > 3 and
         print "    Peering at L-content text bit \"$ell_content[$j]\" for <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	37367	37480	
==>$ell_content[$j];
        DEBUG > 3 and
         print "    Peering at L-content text bit \"$ell_content[$j]\" for <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	12072	12172	
==>ptions and ref $options eq 'HASH');
  confess "Extra arguments!" if @_;

  foreach my $construct ($se <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	12209	12332	
==>TOS => {
			'charclass' => 12,
			'expr' => 11,
			'regex' => 13,
			'rule' => 8,
			'regex1' => 7
		}
	},
	{#State 2
		DEFA <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	491	607	
==>count);
      push @{$temp->{children}}, $expr;
    }
    $count++;
  }
  elsif ($tokens->[$count] eq "'") {
    $tem <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	23462	23561	
==>bparrot_static  = $PConfig{blib_dir}.$PConfig{slash}.$PConfig{libparrot_static};

            my $li <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3600	3711	
==>creation failed ($?)\n";
        }
    }
} 
elsif ($mode eq 'compile') {
    my ($group_files, $group_libs, $pmc <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3704	3815	
==>creation failed ($?)\n";
        }
    }
} 
elsif ($mode eq 'compile') {
    my ($group_files, $group_libs, $pmc <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2280	2374	
==>}
	
	return $index_html;
}

=item C<write_contents_html($source, $target, $silent)>

Iterates o <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	768	868	
==>, $left, $op, $right) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	796	896	
==>, $left, $op, $right) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	480	580	
==>, $left, $op, $right) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3131	3253	
==>YCurtok {
	my($self)=shift;

        @_
    and ${$$self{TOKEN}}=$_[0];
    ${$$self{TOKEN}};
}

sub YYCurval {
	m <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2978	3091	
==>YCurtok {
	my($self)=shift;

        @_
    and ${$$self{TOKEN}}=$_[0];
    ${$$self{TOKEN}};
}

sub YYCurval {
	m <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2455	2553	
==>ctory_with_name('src/ops'),
        $self->directory_with_name('src/packfile'),
    ;
}

=item C<c_ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	1445	1552	
==>deblock
        $R = op('external' => [ 'code', [ $atom, $ctx ] ]);
    } elsif (UNIVERSAL::can($atom, 'type <==
3	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	1041	1144	
==>ine !~ m!^/\* CHECKSUM: ([-\d+]+) \*/$!) {
        print "$output does not have a checksum line; remakin <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	7248	7345	
==>->genlabel("group_next");

    $self->need_group_setup($group);

    my ($R_back, @R_ops) = $self- <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2887	3003	
==>PREG(%ld)",
    's'  => "SREG(%ld)",
    'k'  => "PREG(%ld)",
    'ki' => "IREG(%ld)",

    'ic' => "%ld",
    'nc' = <==
3	/Users/nnunley/parrot/config/auto/pack.pm	822	933	
==>pcode_t_size') {
        my $which = $_ eq 'intvalsize' ? 'packtype_i' : 'packtype_op';
        my $size = $conf <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	44448	44549	
==>s {
  my($self,$treelet) = @_;
  
  _change_S_to_nbsp($treelet,0) if $self->{'nbsp_for_S'};

  # TODO: <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13330	13420	
==>eturn = $self->_save_1 ('I');
  $self->_generate(_get_arg($node,1));
  $self->_add_inst('', <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	532	635	
==>ated number of ops performed,

=item * the elapsed time, and 

=item * the number of M op/s.

=back

=cu <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	535	637	
==>ated number of ops performed,

=item * the elapsed time, and

=item * the number of M op/s.

=back

=cu <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	34116	34257	
==>86
		}
	},
	{#State 120
		DEFAULT => -51
	},
	{#State 121
		ACTIONS => {
			"," => 151,
			'DO' => 168
		}
	},
	{#State 122
		DEF <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650600	650707	
==>c.ops\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtable_max)\n        {{\@1}} = 1;\n    else if ({{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651522	651629	
==>c.ops\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtable_max)\n        {{\@1}} = 1;\n    else if ({{\ <==
3	/Users/nnunley/parrot/config/inter/progs.pm	1840	1954	
==>What C compiler do you want to use?", $cc)
        if $ask;
    $conf->data->set(cc => $cc);

    $link = integrate <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87405	87492	
==>line 1215 \"src/ops/core.ops\"\n  {{\@1}} = Parrot_make_cb(interpreter, {{\@2}}, {{\@3}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88407	88494	
==>line 1215 \"src/ops/core.ops\"\n  {{\@1}} = Parrot_make_cb(interpreter, {{\@2}}, {{\@3}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862255	862493	
==>E" => "inline",
                  "CODE" => 978,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 138 \"src/ops/string.ops\ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	39645	39770	
==>ry EIGHTH column.  For portability, it has to be
              # one setting everywhere, and 8th wins.
              s/^([^\t] <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4959	5071	
==>emit("  $pmc_reg = $dest");
    $compiler->emit("  global \"$dest_name\" = $pmc_reg");
  }

  return 1;
}


#
# s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3022	3134	
==>emit("  $pmc_reg = $dest");
    $compiler->emit("  global \"$dest_name\" = $pmc_reg");
  }

  return 1;
}


#
# s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	98872	99060	
==>ble->i_bitwise_not(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	92	193	
==>Lua.pm 19606 2006-05-30T15:08:05.048089Z coke  $

package Parrot::Test::Lua;

use strict;

use D <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	5157	5255	
==>pe" defStyleNum="dsDataType" />
      <itemData name="Comment" defStyleNum="dsComment" />
      <it <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7574	7686	
==>ost store operation hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If the <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5692	5804	
==>ost store operation hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If the <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4534	4646	
==>ost store operation hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If the <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6118	6212	
==>} == 0x45 goto POST_BRANCH_switch_${CURIC}
${ITEMP0} = ${NEXTPC} + I_arg_0 # XXX Can't use ${AR <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4056	4150	
==>} == 0x45 goto POST_BRANCH_switch_${CURIC}
${ITEMP0} = ${NEXTPC} + I_arg_0 # XXX Can't use ${AR <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	3190	3305	
==>ract the section and set it.
  if ($line =~ /\[(\w+)\]/) {
    $cur_section = $1;
    next;
  }

  # Everything else <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7091	7189	
==>1$, "")
print "Start (11): ", instr(6, s1$, " ")
print "Inval  (0): ", instr(4, bogus$, "t")
' inst <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18820	18918	
==>1$, "")
print "Start (11): ", instr(6, s1$, " ")
print "Inval  (0): ", instr(4, bogus$, "t")
' inst <==
3	/Users/nnunley/parrot/config/inter/make.pm	2027	2132	
==>e.
    if ($stdout =~ /GNU \s+ Make \s+ (\d+) \. (\d+)/x) {
        $conf->data->set(gmake_version => "$1. <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	89	188	
==>Gen';
use strict;

my $fail_label = Regex::Ops::Tree::mark('FAIL');

sub init_context {
    my ($sel <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	90	189	
==>Gen';
use strict;

my $fail_label = Regex::Ops::Tree::mark('FAIL');

sub init_context {
    my ($sel <==
3	/Users/nnunley/parrot/lib/Test/More.pm	544	702	
==>re_ok
             is isnt like unlike is_deeply
             cmp_ok
             skip todo todo_skip
             pass fail
             eq_array eq_hash eq_s <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	1231	1349	
==>int "# Constants: $count entries\n";
    print "# ID  Flags    Encoding Type     Size     Data\n";

    my $constant_nu <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15583	15676	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

1;


__END__

=head1 NAME

Pod::Simple::PullParser -- a pu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631056	631413	
==>"ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 707,
                  "ARGS" => [
                              "p",
                              "kc"
                            ],
                  "BODY" => "#li <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4772	4872	
==>r to the run core function.

=cut

sub run_core_func_start
{
    return <<END_C;
#if defined(__GNUC__ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3060	3160	
==>r to the run core function.

=cut

sub run_core_func_start
{
    return <<END_C;
#if defined(__GNUC__ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744303	744524	
==>string_from_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745069	745290	
==>string_from_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	31135	31227	
==>}

sub _op_current_output_port {
}

sub _op_with_input_to_file {
}

sub _op_with_output_from_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	674	760	
==>ess UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');
  confess <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	753	839	
==>ess UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');
  confess <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	673	759	
==>ess UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');
  confess <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	733	838	
==>f->data->get('libs');
    my $linkflags = $conf->data->get('linkflags');
    my $ccflags   = $conf->data-> <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	674	779	
==>f->data->get('libs');
    my $linkflags = $conf->data->get('linkflags');
    my $ccflags   = $conf->data-> <==
3	/Users/nnunley/parrot/config/auto/readline.pm	686	791	
==>f->data->get('libs');
    my $linkflags = $conf->data->get('linkflags');
    my $ccflags   = $conf->data-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630509	630620	
==>terpreter, class);\n    if (type <= 0)\n        real_exception(interpreter, NULL, NO_CLASS,\n            \"Class <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631499	631610	
==>terpreter, class);\n    if (type <= 0)\n        real_exception(interpreter, NULL, NO_CLASS,\n            \"Class <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	245	337	
==>ot::Docs::Section::C;

=head1 DESCRIPTION

A documentation section describing all the C sourc <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9429	9542	
==>rx_stack>; # popint");
    }
}

sub output_substr {
    my ($self, $dest, $src, $offset, $len) = @_;
    return (" <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9755	9867	
==>rx_stack> # popint");
    }
}

sub output_substr {
    my ($self, $dest, $src, $offset, $len) = @_;
    return (" <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2335	2434	
==>ression_modules {
  no strict 'refs';
  eval { require Compress::Zlib } or
    *Compress::Zlib::memG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029602	1029777	
==>> [
                              "n"
                            ],
                  "BODY" => "#line 305 \"src/ops/sys.ops\"\n  opcode_t *next = {{^+2}};\n  if ({{\@1}} < 0. <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	48319	48436	
==>okenstack = (@stack)\n";
    if(defined $1) {
      if(defined $2) {
        DEBUG > 3 and print "Found complex start- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	372201	372411	
==>on",
                  "CODE" => 435,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 387 \"src/ops/io.ops\"\n  STRING ** const s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210260	210350	
==>re(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) <= 0) {\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211240	211330	
==>re(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) <= 0) {\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144007	144366	
==>_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 176,
                  "ARGS" => [
                              "sc",
                              "s" <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15830	15961	
==>, 'util' );
    push @opcodes, new CallOp( $parser,
        'result' => [$result],
        'arg1'   => $fct,
        'arg2'   => <==
3	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	3483	3609	
==>type} = $subtype if ( defined $subtype );
        $self->{name}    = $name if ( defined $name );
        return $self;
    } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	310351	310468	
==>state & PDB_EXIT)) {\n            PDB_get_command(interpreter);\n            command = interpreter->pdb->cur_command;\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822327	822414	
==>f (entry->entry_type != STACK_ENTRY_INT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823395	823482	
==>f (entry->entry_type != STACK_ENTRY_INT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	2916	3021	
==>I(interpreter, &st, return_data);",
       s => "set_nci_I(interpreter, &st, return_data);",
       c => " <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9398	9496	
==>each my $parents ($self->{class}, @{ $self->{parents} } ) {
	my $name = lc $parents;
	$cout .= <<"E <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	7290	7387	
==>dcoded version will do the job
 */

#if defined(HAS_JIT) && defined(I386)
#  include "parrot/exec. <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8897	8988	
==>=head2 BLOCK->scope_of_ident(NAME)

This is a shortcut method that uses find_symbol() to loc <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	12829	12977	
==>_op";
            $opbody =~ /vtable->(\w+)/;
            $extern = vtable_num($1);
            #print "$jit_func $extern\n";
        }

        elsi <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	12593	12740	
==>_op";
            $opbody =~ /vtable->(\w+)/;
            $extern = vtable_num($1);
            #print "$jit_func $extern\n";
        }
        elsi <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6816	6921	
==>f ( $self->has_suffix )
	{
		return 0 if $self->suffix !~ m/[Tt][Xx][Tt]/o;
	}
	else
	{
		return 1 if $sel <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	16043	16170	
==>$test, $name );
    }

    unless( $ok ) {
        $this = defined $this ? "'$this'" : 'undef';
        my $match = $cmp eq '=~' <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	4855	4960	
==>p>' . $index_html . "</p>\n";
    }
    
    return $index_html;
}

=item C<contents_relative_to_source($s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818185	818282	
==>\n   * {{=0,+=1}} reloads cached base pointers, and works with\n   * arbitrary branch opcodes too. <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	8711	8837	
==>ir) = @_;
        my $FH    = $self->{fh};
        print {$FH} "\n";
        print {$FH} ".sub $dir->{result}->{symbol} :ano <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	815	913	
==>e test
if they match.  Note that patterns should be specified as strings
and without leading/traili <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2913	3011	
==>e test
if they match.  Note that patterns should be specified as strings
and without leading/traili <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729712	729953	
==>on",
                  "CODE" => 818,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 71 \"src/ops/set.ops\"\n   STRING * con <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	13930	14052	
==>moke report">&raquo;</a></td>
          </tr>
          <tr class="details" id="details_<tmpl_var name=id>">
            <t <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	6509	6604	
==>opsubs{"="}}(@_[0..2], "ne") },
	'<' => sub { &{$opsubs{"="}}(@_[0..2], "lt") },
	'>' => sub { & <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7363	7484	
==>ns{ignore})	       ? $options{ignore}
		    :					 ''
		    ;

	if (!defined $ldel) { $ldel = '<\w+(?:' . gen_delimited_pa <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24365	24486	
==>ns{ignore})	       ? $options{ignore}
		    :					 ''
		    ;

	if (!defined $ldel) { $ldel = '<\w+(?:' . gen_delimited_pa <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2497	2594	
==>itialization, to be overridden in subclasses.
sub init { return shift(); };

# Exportable convenie <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	391	492	
==>ako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $dest, $left, $op, $right) = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	382	483	
==>ako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $dest, $left, $op, $right) = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	271	372	
==>ako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $dest, $left, $op, $right) = <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	1881	1965	
==>missing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwrite-strings -Waggregate-r <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1246	1330	
==>missing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwrite-strings -Waggregate-r <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1250	1334	
==>missing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwrite-strings -Waggregate-r <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	1656	1741	
==>ude -fno-common -no-cpp-precomp  -pipe -Wdeclaration-after-statement -I/usr/local/incl <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1044	1129	
==>ude -fno-common -no-cpp-precomp  -pipe -Wdeclaration-after-statement -I/usr/local/incl <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1048	1133	
==>ude -fno-common -no-cpp-precomp  -pipe -Wdeclaration-after-statement -I/usr/local/incl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6252	6354	
==>confess "No symbol name!"  unless defined $name;
  confess "Extra arguments!" if @_;

  my $sym = $self <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	6699	6791	
==>BUG > 6 and print "$this\'s accept_directives : ",
   pretty($this->{'accept_directives'}), " <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	5457	5541	
==>e to codes.

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3199	3307	
==>CONST(%ld)->u.number",
    'pc' => "CONST(%ld)->u.key",
    'sc' => "CONST(%ld)->u.string",
    'kc' => "CONS <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3007	3115	
==>CONST(%ld)->u.number",
    'pc' => "CONST(%ld)->u.key",
    'sc' => "CONST(%ld)->u.string",
    'kc' => "CONS <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2110	2215	
==>CONST(%ld)->u.number",
  'pc'  => "CONST(%ld)->u.key",
  'sc'  => "CONST(%ld)->u.string",
  'kc'  => "CONS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946522	946805	
==>( {
                  "JUMP" => 0,
                  "NAME" => "find_charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947423	947706	
==>( {
                  "JUMP" => 0,
                  "NAME" => "find_charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	25392	25504	
==>tstring()\n    next_pc += 4\n";
			$arg_name = "I_ARG_$arg_num";
		}

        # jumptable
		elsif (/^jumptable$/) <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	37077	37183	
==>free software; you can redistribute it and/or 
modify it under the same terms as Perl itself.

See F<http:/ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	37486	37592	
==>free software; you can redistribute it and/or 
modify it under the same terms as Perl itself.

See F<http:/ <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	6446	6552	
==>free software; you can redistribute it and/or 
modify it under the same terms as Perl itself.

See F<http:/ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16462	16599	
==>PQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
            return $x;
        }
    }

    foreach my $x (@_) 
    {
        # Pod::Simple <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8851	8980	
==>ro
    if $I1 == 1 goto one
    if $I1 == 2 goto two
    if $I1 == 3 goto three
    if $I1 == 4 goto four
    if $I1 == 5 goto fiv <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3484	3576	
==>fa=-1
m0=48100
m=48000
w=-19
t=3
m(t)=-100
ba(fa+1)=9
w=w+M(T)+INT(M(T) * BA(FA + 1) / (BA(FA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921043	921310	
==>ntf(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921936	922203	
==>ntf(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29863	29957	
==>.Parse::RecDescent::Production::incitempos().' 1} and ' : '')
		. '  $text =~ s/\A' . quotemeta <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	905	1001	
==>butes => { kind => $self->kind } });
  $_->sax($handler) foreach $self->content;
  $handler->end_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1918	2014	
==>butes => { kind => $self->kind } });
  $_->sax($handler) foreach $self->content;
  $handler->end_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2712	2808	
==>butes => { kind => $self->kind } });
  $_->sax($handler) foreach $self->content;
  $handler->end_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	527	616	
==>m Pod::Simple::PullParser

=head1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head1 DESCR <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	946	1035	
==>m Pod::Simple::PullParser

=head1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head1 DESCR <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	433	522	
==>m Pod::Simple::PullParser

=head1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head1 DESCR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796549	796908	
==>ase_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 899,
                  "ARGS" => [
                              "p",
                              "k" <==
3	/Users/nnunley/parrot/config/auto/m4.pm	62	153	
==>ig/auto/m4.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/m4 - Check <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10679	10788	
==>'A' eq chr(65);
        $section = $self->unicode_escape_url($section);
        # Turn char 1234 into "(1234)" <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4060	4162	
==>'A' eq chr(65);
    $section = $self->unicode_escape_url($section);
     # Turn char 1234 into "(1234)" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	132	221	
==>s the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Type.pm 19606 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5169	5281	
==>st  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  $handler->s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3232	3344	
==>st  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  $handler->s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	23984	24079	
==>t "Stack: ", pretty($curr_open), "\n";
        unshift @$paras, $self->_closers_for_all_curr_ope <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	538	680	
==>IR => "/",
  BUCKET      => "bucket.dat",
  MAX_RATE    => 1 / 30,       # Allow a new smoke all 30s
  BURST       => 5,            # Set max b <==
3	/Users/nnunley/parrot/config/init/hints/msys.pm	162	294	
==>ict;

sub runstep
{
    my ($self, $conf) = @_;

    $conf->data->set(
        ld            => '$(PERL) /bin/perlld',
        ld_loa <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	10342	10446	
==>Correct
DIM A(1,1)
RO=1
IF A(RO,5)=0 THEN GOSUB 20: REM GOO
   end
20 print "Correct"
   return


' Expec <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9158	9261	
==>Correct
DIM A(1,1)
RO=1
IF A(RO,5)=0 THEN GOSUB 20: REM GOO
   end
20 print "Correct"
   return

' Expec <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3157	3252	
==>earer
into which context the data belongs.

For APIs purely internal to Parrot, try using C<cons <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	1356	1447	
==>'languages/lisp'),
        $self->new_section('.Net', 'dotnet.html', '', 'languages/dotnet') <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429704	429792	
==>c/ops/math.ops\"\n  mmd_dispatch_v_ps(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430591	430679	
==>c/ops/math.ops\"\n  mmd_dispatch_v_ps(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59369	59614	
==>er, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "warni <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60017	60262	
==>er, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "warni <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60666	60911	
==>er, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "warni <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31110	31206	
==>use base 'Parrot::Pmc2c';
import Parrot::Pmc2c qw( gen_ret );

=item C<implements($method)>

Alwa <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34474	34570	
==>use base 'Parrot::Pmc2c';
import Parrot::Pmc2c qw( gen_ret );

=item C<implements($method)>

Alwa <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39730	39826	
==>use base 'Parrot::Pmc2c';
import Parrot::Pmc2c qw( gen_ret );

=item C<implements($method)>

Alwa <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8341	8477	
==>nd	print STDERR "Back to state $$stack[-1][0], then ";

                $$check eq 'ERROR'
            or  do {
#DBG>				$debug & 0x0 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7961	8093	
==>nd	print STDERR "Back to state $$stack[-1][0], then ";

                $$check eq 'ERROR'
            or  do {
#DBG>				$debug & 0x0 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2391	2491	
==>m = Jako::Symbol->new(
    $self->block,
    ($self->is_global ? 'global' : 'local'),
    $self->kind <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79281	79385	
==>known reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      /* At thi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80802	80906	
==>known reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      /* At thi <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	209	381	
==>le_is("   int argc ",
    [
        [ type    => 'int | double | float | char' ],
        [ ident   => '\w+' ],
        [ _MASTER => ':w<type> <ident>' ],
    ],
    "simple <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	2379	2510	
==>->{default}     = $5;
        $arg->{repeating}   = $6 eq "+";

        die "Optionals need to be optional.\n"
            if $arg-> <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35376	35500	
==>t from zero.
        $ret = "return ($method->{type})0;";
    }
    # I think that these will be out by one - NWC
    my $l = <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2297	2504	
==>tr .= "\n",      # new line
                last;
            s/^\\r//
                and $str .= "\r",      # carriage return
                last;
            s/^\\t//
                and $str .= "\t <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3811	4018	
==>tr .= "\n",      # new line
                last;
            s/^\\r//
                and $str .= "\r",      # carriage return
                last;
            s/^\\t//
                and $str .= "\t <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8728	8813	
==>$d,$a,$_[15],22,0x895cd7be,/* 12 */
FF,$a,$b,$c,$d,$_[16],7,0x6b901122,/* 13 */
FF,$d, <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	2686	2812	
==>sc.[^$esc$del]*)*)$del";
		}
	}
	my $pat = join '|', @pat;
	return "(?:$pat)";
}

*delimited_pat = \&gen_delimited_pat;


# THE <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2978	3100	
==>t {$self->{'output_fh'}} $out,
    #"\n"
  ;
  $self->{'Thispara'} = '';
  
  return;
}

# . . . . . . . . . . And then off <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2512	2626	
==>t {$self->{'output_fh'}} $out, "\n";
  $self->{'Thispara'} = '';
  
  return;
}

# . . . . . . . . . . And then off <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101144	101384	
==>\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103350	103590	
==>\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	27954	28183	
==>MP_RELATIVE",
                  "NAME" => "get_results",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "functio <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94868	95008	
==>"
                            ],
                  "BODY" => "#line 63 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95761	95901	
==>"
                            ],
                  "BODY" => "#line 63 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96654	96794	
==>"
                            ],
                  "BODY" => "#line 63 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2 <==
3	/Users/nnunley/parrot/config/auto/byteorder.pm	273	372	
==>age auto::byteorder;

use strict;
use vars qw($description @args);

use Parrot::Configure::Step qw(: <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	14148	14241	
==>ass="tests_total"><tmpl_var name=total> test cases</span>:<br />
		<span class="tests_ok"><tmp <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2357	2465	
==>OTE . '/Users/nnunley/parrot/src/pmc' . $PATHQUOTE . " " .
        $source;
};

sub partial_link_cmd {
    my <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2152	2260	
==>OTE . '/Users/nnunley/parrot/src/pmc' . $PATHQUOTE . " " .
        $source;
};

sub partial_link_cmd {
    my <==
3	/Users/nnunley/parrot/tools/build/vtable_extend.pl	3027	3129	
==>RY

Initial version by Dan Sugalski.

=cut

*/

/*
 * Local variables:
 * c-indentation-style: bsd
 * c <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3802	3901	
==>o fnlib property, and parent module has no fnlib property either!")
        unless $module_props{fnl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6466	6565	
==>o fnlib property, and parent module has no fnlib property either!")
        unless $module_props{fnl <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	21960	22054	
==>group\nEXPORTS\n\tParrot_lib_${group}_load\n" unless $defexists;
        print $fh "\t$_\n" for <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2542	2661	
==>ata -lpthread -lm';
        $extraLibs =~ s/blib/..\\blib/g;
        $extraLibs =~ s/\Q$(A)\E/.lib/g;
        $liblist . <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2851	2970	
==>ata -lpthread -lm';
        $extraLibs =~ s/blib/..\\blib/g;
        $extraLibs =~ s/\Q$(A)\E/.lib/g;
        $liblist . <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2646	2765	
==>ata -lpthread -lm';
        $extraLibs =~ s/blib/..\\blib/g;
        $extraLibs =~ s/\Q$(A)\E/.lib/g;
        $liblist . <==
3	/Users/nnunley/parrot/lib/File/Which.pm	5168	5264	
==>rted by default.

C<$short_exe_name> is the name used in the shell to call the program (for
examp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828821	828915	
==>ACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_pmc(entry->entry);\n  {{+=3}};\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829889	829983	
==>ACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_pmc(entry->entry);\n  {{+=3}};\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837253	837355	
==>rpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}),\n                  STACK_ENTRY_INT);\n  {{ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	721	815	
==>ight;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  con <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	733	827	
==>ight;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  con <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	2537	2624	
==>LE_set_integer_keyed_str(interp, registry, key, pmc_id);
}

void
Parrot_register_core_pm <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	5161	5271	
==>rst statement on the queue
    my @Q = ($output2[0]);

  BBLOCK:
    while (my $stmt = shift(@Q)) {
	next if $s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225438	225526	
==>ODY" => "#line 523 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226379	226467	
==>ODY" => "#line 523 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	625809	625957	
==>ANT:\n                args[1 + i] = (void**)cur_opcode[2 + i];\n                break;\n            case PARROT_ARG_FLOATVAL:\n                args[1 <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2299	2399	
==>arrot/include' . $PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/src/pmc' . $PA <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2094	2194	
==>arrot/include' . $PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/src/pmc' . $PA <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11950	12051	
==>ll_result {
    my ($self, $uid, $name, $fail) = @_;
    my $fail_label = $self->output_label_use($fai <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	12616	12717	
==>ll_result {
    my ($self, $uid, $name, $fail) = @_;
    my $fail_label = $self->output_label_use($fai <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	50406	50550	
==>t', 2,
sub
#line 218 "Lua\lua51.yp"
{
            BuildReturn( $_[0], $_[2] );
        }
	],
	[#Rule 37
		 'laststat', 1,
sub
#line 222 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	6302	6398	
==>t "get_token about to return ",
   Pod::Simple::pretty( @{$self->{'token_buffer'}}
     ? $self-> <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	29	116	
==>e Perl Foundation.
# $Id: /parrot/lib/Parrot/Docs/Section/PMCs.pm 20333 2006-06-21T18:44 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26845	26951	
==>seg}->{code}},<<CALLSUB;
@code
CALLSUB
}
sub parse_sub {
	# Deja-vu from functions.
	feedme;
	my $f;
	$func <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18675	18776	
==>ls{$syms[CURR]}"  # Return $syms[CURR]
	ret
RETURN2
		if (! $runtime_jump) {
			warn "Note: RETURN x c <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	1581	1681	
==>e root then the above will make parent the same as path.
    undef $parent_path if $parent_path eq $p <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	349	446	
==>is is the top-level section for the HTML documentation for Parrot.

=head2 Class Methods

=over

= <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	1493	1593	
==>t containing a branch offset or address
    labelconst    an invar argument containing a branch offse <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	8904	8992	
==>ray;
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	7544	7631	
==>ray;
  return
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4088	4259	
==>if ($function) {
            if (/Calls (.*) : (.*)/) {                                
                # calling another function within parrot.
                $internal_ <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	2681	2784	
==>";

# To start, save all the registers, just in case
print OUTPUT "saveall\n";


my @libs;
my ($cur_pack <==
3	/Users/nnunley/parrot/config/auto/alignptrs.pm	464	566	
==>r minimum pointer alignment';

@args = qw(miniparrot);

sub runstep
{
    my ($self, $conf) = (shift, s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	538	631	
==>'} ||= *STDOUT{IO};
  $new->accept_target_as_text(qw( text plaintext plain ));
  $new->nix_X_c <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2541	2642	
==>to do
	# otherwise. Also, putting a label everywhere doesn't hurt the final
	# Parrot bytecode that is <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1119	1220	
==>to do
	# otherwise. Also, putting a label everywhere doesn't hurt the final
	# Parrot bytecode that is <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	6758	6837	
==>nch>--<cpuarch>-<osname>-<cc>-<runcore>--<timestamp>-<duration>--$summary--$args <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	410151	410425	
==>eter, {{\@2}}, &dest);\n    {{\@3}} = dest;\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5516	5620	
==>of libs might be crucial
sub gather_groups_and_libs {
    my @pmcs = @_;

    my ( %group_files, %group_l <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5727	5831	
==>of libs might be crucial
sub gather_groups_and_libs {
    my @pmcs = @_;

    my ( %group_files, %group_l <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22971	23068	
==>->{"lookahead"} ? '$text = $_savetext and ' : '' ) .'
		last '
		. ($self->{"lookahead"}<0?'if':'u <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	24041	24138	
==>->{"lookahead"} ? '$text = $_savetext and ' : '' ) .'
		last '
		. ($self->{"lookahead"}<0?'if':'u <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	157	244	
==>preter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm 19606 20 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20756	20894	
==>LT => -28,
		GOTOS => {
			'@9-2' => 116
		}
	},
	{#State 62
		DEFAULT => -52
	},
	{#State 63
		ACTIONS => {
			"," => 66,
			"= <==
3	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1349	1478	
==>n";
      exit 1;
    }
  } else {
    debug "error: " . $resp->status_line . "\n";
    exit 1;
  }
}

sub usage { print STDERR << <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	1827	1923	
==>rrot assembly code',
	'pbc' => 'Parrot bytecode',
	'pl' => 'Perl script',
	'pm' => 'Perl module', <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956276	956650	
==>,
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1076,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" = <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13220	13333	
==>p;
}

sub _op_do {
}

sub _op_delay {
}

#---- Section 6 ----

sub _op_not {
  my ($self,$node) = @_;

  my $retur <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	10086	10178	
==>ent_length   = delete $options{'max_content_length'};
  $max_content_length = 120 unless defi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1156	1278	
==>_escape($text);
    $text =~  # A not-totally-brilliant wrapping algorithm:
      s/(
         [^\n]{55}         # Snare so <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1100	1222	
==>_escape($text);
    $text =~  # A not-totally-brilliant wrapping algorithm:
      s/(
         [^\n]{55}         # Snare so <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	15831	15924	
==>] : '\s*';

	my @match = _match_quotelike($textref,$pre,1,0);
	return _fail($wantarray, $textr <==
3	/Users/nnunley/parrot/lib/Test/More.pm	22226	22326	
==>ccess.
You then know the thing you had todo is done and can remove the
TODO flag.

The nice part abou <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4465	4561	
==>_parrot_stringify($target);
    $pattern = _parrot_stringify($pattern);
    my $unicode = ($targe <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2315	2405	
==>ir_output_is;
}

=item C<p6rule_like($target, $pattern, $expected, $description, @todo)>

R <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123769	123909	
==>"
                            ],
                  "BODY" => "#line 257 \"src/ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124643	124783	
==>"
                            ],
                  "BODY" => "#line 257 \"src/ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125517	125657	
==>"
                            ],
                  "BODY" => "#line 257 \"src/ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}} <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	7768	7880	
==>es; we must not let them get closed.
    open  OLDOUT, ">&STDOUT" or die "Can't save     stdout" if $out;
    ope <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7819	7930	
==>es; we must not let them get closed.
    open OLDOUT, ">&STDOUT" or die "Can't save     stdout" if $out;
    ope <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2222	2321	
==>t_fn = $self->get_out_fn( $count );
        my @test_prog   = $self->get_test_prog( $path_to_parrot, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600185	600283	
==>e_name(interpreter, {{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n         \"Class ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601261	601359	
==>e_name(interpreter, {{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n         \"Class ' <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2439	2540	
==>$var"]	# Pull the original
	P2= P10[I25]
	P3= P2["$stype"]
	P3["$var"]= P0	# Hack in the alias

SHARIN <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2666	2767	
==>$var"]	# Pull the original
	P2= P10[I25]
	P3= P2["$stype"]
	P3["$var"]= P0	# Hack in the alias

SHARIN <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24543	24638	
==>t *dest = {{^+1}};\n  PMC * const p = CONTEXT(interpreter->ctx)->current_sub;\n  dest = (opcode_ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	2074	2177	
==>ile'");

		print STDERR "precompiling grammar from file '$sourcefile'\n",
			     "to class $class in mo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664132	664455	
==>",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 742,
                  "ARGS" => [
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 354 \"src/ops <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	6282	6407	
==>}
    return $max;
}

sub startset {
    my $op = shift;
    my %start;
    foreach (@{ $op->{args} }) {
        @start{$_->st <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2961	3056	
==>Returns the contents of the group interpreted relative to the source
directory.

=cut

sub conte <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5460	5583	
==>$check='';

    while(1) {
        my($actions,$act,$stateno);

        $stateno=$$stack[-1][0];
        $actions=$$st <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	24067	24190	
==>b output {
    my($self, $fh) = @_;

    if( defined $fh ) {
        $self->{Out_FH} = _new_fh($fh);
    }
    return $self- <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5198	5315	
==>$check='';

    while(1) {
        my($actions,$act,$stateno);

        $stateno=$$stack[-1][0];
        $actions=$$st <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29977	30216	
==>}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
3	/Users/nnunley/parrot/config/init/headers.pm	330	418	
==>se base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step;
use ExtUtils::Ma <==
3	/Users/nnunley/parrot/config/init/manifest.pm	355	443	
==>se base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step;
use ExtUtils::Ma <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	442	527	
==>tine.pir"
.include "languages/lua/lib/luapackage.pir"
.include "languages/lua/lib/lu <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	2545	2662	
==>eds"
	# Eat tokens until we get to the next statement of some kind.
	# These are likely to *never* be implemented.
	if <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2332	2439	
==>URM code',
	'vim' => 'Vim file',
	'xml' => 'XML file',
	'xs' => 'XS code',
	'y' => 'Yacc file'
);

# These a <==
3	/Users/nnunley/parrot/languages/regex/test.pl	2739	2866	
==>PEC>) {
        $output = '', last if /^OUTPUT:/;
        $input .= $_;
    }
    chomp($input);
    die "EOF during INPUT secti <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	1276	1384	
==>my $self = shift;

  print STDERR "{\n";
  foreach my $key (sort keys %$self) {
    printf STDERR "%10s => %s <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10391	10476	
==>,/* 49 */
II,$d,$a,$b,$c,$_[11],10,0x432aff97,/* 50 */
II,$c,$d,$a,$b,$_[18],15,0xab94 <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8370	8493	
==>ERR, ">&OLDERR" or die "Can't restore  stderr" if $err;

    if ($verbose) {
        foreach ($out, $err) {
            if ( <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5758	5872	
==>r;
}

sub post_branch($) {
	my $self = shift;
	my $pops = shift;
	my $pir = '';

	# Branches mean we need to deal w <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3696	3810	
==>r;
}

sub post_branch($) {
	my $self = shift;
	my $pops = shift;
	my $pir = '';

	# Branches mean we need to deal w <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4044	4148	
==>d only temporally, e.g.  as file lists for Makefile
generation.

Accepts no arguments and returns a L<Par <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	1132	1226	
==>>

Returns a new C source and/or header files documentation item. Recognized keys
for C<%conten <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	3821	3913	
==>self->{PARENT_PATH};
}

=item C<stat()>

Returns the C<File::stat> object. Used by subclasses <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021770	1022043	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodetim <==
3	/Users/nnunley/parrot/config/init/hints/linux.pm	1459	1592	
==>lags,
        ld_load_flags  => $ld_share_flags,
        i_lib_pthread  => 1,              # XXX fake a header entry
        linkflags <==
3	/Users/nnunley/parrot/tools/util/pirtidy.pl	591	710	
==>( $line );
    }

    my $output = $formatter->get_formatted();
    print {$ofh} $output;

    close $ifh;
    close $of <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	17803	17920	
==>why ||= '';
    $self->_unoverload(\$why);

    unless( $self->{Have_Plan} ) {
        require Carp;
        Carp::cro <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	393	498	
==>eblock
				&extract_variable
				&extract_tagged
				&extract_multiple

				&gen_delimited_pat
				&gen_ex <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	4616	4727	
==>o you can
easily exchange them, e.g.

	BEGIN {
	  eval {
	    require Digest::MD5;
	    import Digest::MD5 'md5_ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	7342	7446	
==>ources = map { "$_$O" } @$stems;
    if (needs_build("$group$LOAD_EXT", @sources)) {
        run(partial_ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7553	7657	
==>ources = map { "$_$O" } @$stems;
    if (needs_build("$group$LOAD_EXT", @sources)) {
        run(partial_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89129	89351	
==>> [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 38 \"src/ops/bit.ops\"\n  {{\@1}} &= {{\@2}};\n  {{+=3}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	565	673	
==>1] =~ tr/\xAD//d;
    $_[1] =~ tr/\xA0/ /;
  }
  print {$_[0]{'output_fh'}} $_[1];
  return;
}

sub _handle_e <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6041	6141	
==>my $s=pop @selects;
			feedme;
			print CODE "CASE_$s->{jump}_$s->{incase}:\n";
			print CODE "CASE_$ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	15606	15740	
==>IONS => {
			"?" => 23,
			'CHAR' => 4,
			"<" => 22,
			"+" => 24,
			'CODE' => 6,
			"(" => 10,
			"|" => 26,
			"*" => 27,
			"[" => <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	16923	17057	
==>IONS => {
			"?" => 23,
			'CHAR' => 4,
			"<" => 22,
			"+" => 24,
			'CODE' => 6,
			"(" => 10,
			"|" => 26,
			"*" => 27,
			"[" => <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	4666	4765	
==>fset or \$prevoffset\n";
}



package Parse::RecDescent::Rule;

sub new ($$$$$)
{
	my $class = ref($ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	32144	32242	
==>tion edits $?
directly.  It should ONLY be called from inside an END block.  It
doesn't actually ex <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	294	383	
==>the F<examples/mops/mops.pasm> example program,
for speed comparisons.

Calculates a value <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	290	379	
==>the F<examples/mops/mops.pasm> example program,
for speed comparisons.

Calculates a value <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	30108	30262	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "set_returns",
                  "FLAGS" => "", <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	1618	1755	
==>nguages/${lang_fn}",
                "$self->{parrot} languages/${pir_fn}",
            );
        }
        elsif ( $lua_test eq 'lua <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	53	145	
==>base qw/HTTP::Server::Simple::CGI/;
#HSS use HTTP::Server::Simple::Static;

use CGI;
use CGI: <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3535	3651	
==>rivate stuff #
#################


sub _CheckParams {
	my($mandatory,$checklist,$inarray,$outhash)=@_;
	my($prm <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3352	3462	
==>rivate stuff #
#################


sub _CheckParams {
	my($mandatory,$checklist,$inarray,$outhash)=@_;
	my($prm <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	7	97	
==>ight (C) 2004, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Docs/Section.pm 20333 2006-06 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3976	4084	
==>ps{fn} ? $props{fn}->value : "\"$name\"";

    my $thunk = "_${name}_THUNK";
    $thunk =~ s/::/__/g;

    $c <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34754	34861	
==>::_tracefirst($text),
						  q{' . $rule->{"name"} .'})
							if defined $::RD_TRACE;').'
			if ($Parse::R <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41864	41971	
==>::_tracefirst($text),
						  q{' . $rule->{"name"} .'})
							if defined $::RD_TRACE;').'
			if ($Parse::R <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236594	236682	
==>\"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}});\n  {{+=4} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237476	237564	
==>\"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}});\n  {{+=4} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238358	238446	
==>\"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}});\n  {{+=4} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7635	7737	
==>'start_of_pod_block'} and @$paras and $paras->[-1][0] eq '~Verbatim') {
          DEBUG > 1 and print " <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6349	6449	
==>'start_of_pod_block'} and @$paras and $paras->[-1][0] eq '~Verbatim') {
        DEBUG > 1 and print " <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10287	10374	
==>------------------------
sub unaccept_code { shift->unaccept_codes(@_) }

sub unaccept_c <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	4888	5039	
==>bj'),
            $self->c_pair_item('', 'pmc_freeze'),
        ),
        $self->new_group(
            'Objects', 
            '',
            $self-> <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	2257	2354	
==>is is of interest only to Pod::Simple
developers.


=head1 CAVEATS

Note that you should load this <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	595	687	
==>les', 'perl.html', '',
		$self->new_group('Operations', '',
			$self->new_item('Ops to C Code <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11145	11235	
==>RN_${CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1}["reg_type_sh <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8331	8421	
==>RN_${CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1}["reg_type_sh <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5993	6083	
==>RN_${CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1}["reg_type_sh <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	9293	9435	
==>} = ( ( $todo ? 1 : 0 ), 0 );
    }
    else {
        @$result{ 'ok', 'actual_ok' } = ( 1, $test );
    }

    $out .= "ok";
    $out .= " $se <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	640	739	
==>->join($path_to_parrot,$self->{parrot}), 
                 File::Spec->join($path_to_language, 'm4.p <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45410	45507	
==>s*<reject:';
my $SCOREMK		= '\G\s*<score:';
my $AUTOSCOREMK		= '\G\s*<autoscore:';
my $SKIPMK		= ' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2722	2812	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub new {
  my $new = shift->SU <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3078	3167	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sub new {
  my $new = shift->SU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135517	135772	
==>_xor(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136411	136666	
==>_xor(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137305	137560	
==>_xor(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/languages/urm/urm-old.pl	528	638	
==>eg} = shift @input;
	}
    }
    if ($line =~ /(r\d+)/) { $register{$1} = 0 unless defined $register{$1}}
    i <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	43759	43856	
==>ey are equivalent to the rather ungainly:
	return _generate($_[0], $_[1], 1, @_[2..$#_]);
}

sub E <==
3	/Users/nnunley/parrot/config/auto/byteorder.pm	263	358	
==>=cut

package auto::byteorder;

use strict;
use vars qw($description @args);

use Parrot::Config <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1586	1689	
==>p    = $self->op;
  my $right = $self->right;

  my $dest_sym = $block->find_symbol($dest->value);
  $se <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1544	1647	
==>p    = $self->op;
  my $right = $self->right;

  my $dest_sym = $block->find_symbol($dest->value);
  $se <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1466	1569	
==>p    = $self->op;
  my $right = $self->right;

  my $dest_sym = $block->find_symbol($dest->value);
  $se <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	5365	5520	
==>no-)?(.*)$/$1/;
                @warns = grep !/^-W(?:no-)?$w$/, @warns;
            }
            $warns = join ' ', @warns;
        }
    }

    if (defin <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	1029	1142	
==>e, @args);
print   badargs($cmd, @args);
print    footer();

sub open_tmt {
    my ($filename) = @_;

    local $/ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	1802	1913	
==>out;
    close $C;
    my $hout = $generator->gen_h($h_name);
    print $hout if $opt->{debug};
    print "Writi <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	10661	10782	
==>math.h
fmod        math.h
fmodf       math.h
fmodl       math.h
fopen       stdio.h
fpclassify  math.h
fprintf     stdio.h <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	933	1037	
==>arset tables.
 *  Data Structure and Algorithms:
 *  History:
 *  Notes:
 *  References:
 */
HEADER

=ove <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863022	863260	
==>PE" => "inline",
                  "CODE" => 979,
                  "ARGS" => [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 138 \"src/ops/string.op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947165	947393	
==>,\n\t\"charset '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948067	948295	
==>,\n\t\"charset '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	4646	4750	
==>c __func, __lib, $fn_name, \"$sig\"");

    if ($self->type) {
      $compiler->emit("  .local " . $self- <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	48818	48921	
==>act_codeblock> takes the same initial three parameters as C<extract_bracketed>:
a text to process, a set <==
3	/Users/nnunley/parrot/lib/File/Which.pm	6401	6493	
==>2-awareness by me, with slight modifications
by Stas Bekman, then extracted to create C<File: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407723	408021	
==>> 0,
                  "NAME" => "connect",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408621	408919	
==>> 0,
                  "NAME" => "connect",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	14108	14202	
==>get, $rel_path, $item)>

Writes an HTML version of the file specified by C<$rel_path> in
C<$sou <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015081	1015304	
==>_make(interpreter, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015905	1016128	
==>_make(interpreter, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	35778	35873	
==>ng. In a void context, C<$text> would be unchanged.)

Note that the embedded single-quotes in th <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4804	4907	
==>Parse {
    my($self)=shift;

	my($rules,$states,$lex,$error)
     = @$self{ 'RULES', 'STATES', 'LEX <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4567	4666	
==>Parse {
    my($self)=shift;

	my($rules,$states,$lex,$error)
     = @$self{ 'RULES', 'STATES', 'LEX <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	8324	8420	
==>t, @args) : '<no message>';

  printf STDERR "%s [%s]: Debug message: %s\n", $self->file, $self-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490328	490588	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inc",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490949	491209	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inc",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26556	26657	
==>>{'pop'} ||= 0;
	$rule->{'push'} ||= 0;
	if ($rule->{'class'} eq 'op') {
		# Init destination types ar <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	847	944	
==>a($ident, qw(Jako::Construct::Expression::Value::Identifier));

  my $self = bless {
    BLOCK  => <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	811	908	
==>a($ident, qw(Jako::Construct::Expression::Value::Identifier));

  my $self = bless {
    BLOCK  => <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	14649	14746	
==>->init_set_dispatch($bs);
}

print SOURCE <<END_C;
op_lib_t *
$init_func(long init) {
    /* initi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64791	65016	
==>r->code;\n  runops(new_interp, REL_PC + {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65742	65967	
==>r->code;\n  runops(new_interp, REL_PC + {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	41929	42023	
==>takes up to four optional arguments (the same set as
C<extract_tagged> except for the string to <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4808	4930	
==>al pmc p6rule_compile
            load_bytecode "PGE.pbc"
            load_bytecode "PGE/Dumper.pir"
            load_bytec <==
3	/Users/nnunley/parrot/config/init/hints/vms.pm	160	280	
==>ict;

sub runstep
{
    my ($self, $conf) = @_;

    $conf->data->set(
        ccflags => qq{/Standard=Relaxed_ANSI/Prefi <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	12170	12268	
==>ince we do not yet have
object support. Once object support is created, we will add it here, and
ma <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54339	54447	
==>rror,$line);
				$code =~ /\A\s*<skip:(.*)>\Z/s;
				$item = new Parse::RecDescent::Directive(
					      'my <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35023	35128	
==>cent::unexpected
				   = $Parse::RecDescent::lastunexpected;
			}
			last;
		}'.($::RD_NO_TRACE?'':'
		Pa <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42133	42238	
==>cent::unexpected
				   = $Parse::RecDescent::lastunexpected;
			}
			last;
		}'.($::RD_NO_TRACE?'':'
		Pa <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	4136	4312	
==>oap
            System.Security
            System.ServiceProcess
            System.Web.Services
            System.Web
            System.Xml
        /;
#             S <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811466	811554	
==>"#line 512 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812368	812456	
==>"#line 512 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed(interpreter, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	665	748	
==>not!" unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	744	827	
==>not!" unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	553	636	
==>not!" unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676064	676287	
==>ft_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676844	677067	
==>ft_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/languages/m4/tools/scrutinize.pl	87	187	
==>ION

This is not below 't', in order to not interfere with regression testing.

=head1 TODO

Find a b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20901	21275	
==>=> "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 28,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	5884	5984	
==>l..\n" if $DEBUG;
    open (OUT, ">$HTMLDIR/index.html") or
      die "Can't open $HTMLDIR/index.html <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629746	630039	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":object_c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630735	631028	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":object_c <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	2607	2736	
==>= $pc + $op->size;

        @args = ();

        foreach (1 .. scalar($op->arg_types) - 1) {
            die "$0: Premature end of <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048341	1048456	
==>= {{^+3}};\n    {{\@1}} = Parrot_get_global(interpreter, NULL, {{\@2}}, next);\n    {{+=3}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049265	1049380	
==>= {{^+3}};\n    {{\@1}} = Parrot_get_global(interpreter, NULL, {{\@2}}, next);\n    {{+=3}};\n",
                  " <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	1022	1117	
==>.generated
are used) is:

    source_path <whitespace> [package]meta1,meta2,...

or you may opti <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500994	501219	
==>ine 621 \"src/ops/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501733	501958	
==>ine 621 \"src/ops/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3811	3908	
==>%cores) {
		partial_link({}, $_ . "_ops$core_suffix") foreach (@oplibs);
	}
} 
elsif ($mode eq 'co <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6924	7049	
==>push(@$stack,[ $act, $$value ]);

					$$token ne ''	#Don't eat the eof
				and	$$token=$$value=undef;
                nex <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6601	6722	
==>push(@$stack,[ $act, $$value ]);

					$$token ne ''	#Don't eat the eof
				and	$$token=$$value=undef;
                nex <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123842	123952	
==>"src/ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124716	124826	
==>"src/ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125590	125700	
==>"src/ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	22993	23149	
==>hmark
#       loop: R or rback
#             push 0
#             goto loop
#      rback: popindex or lastback
#       next:
#
# (back is R.back)
#
#
sub rew <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10440	10528	
==>TEMP3}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7824	7912	
==>TEMP3}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	18628	18746	
==>$treelet);  # S has to come after E

    $self->_wrap_up($treelet); # Nix X's and merge texties
    
  } else {
    DEB <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35861	35958	
==>ver run Test::Builder
will throw a warning and exit with 255.  If the test died, even after
having <==
3	/Users/nnunley/parrot/lib/Test/More.pm	33932	34029	
==>ver run Test::Builder
will throw a warning and exit with 255.  If the test died, even after
having <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	14467	14579	
==>block($loop) if defined $cont;
      }
      elsif ($peer_block->kind eq 'continue') {
        if (defined $cont) <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	2641	2744	
==>$_}/g;
	}
	
	# Write.
	open $fh, "> config/N2PConfig.pm" or die "Unable to open config/N2PConfig.pm\ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7020	7113	
==>f', [$type, $list]);
  $self->_add_inst('', 'eq', [$type,'.Undef',"DONE_$label"]);

  my $copy <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	865940	866190	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "unpin",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033276	1033376	
==>_name = {{\@1}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n    if (PMC <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034374	1034474	
==>_name = {{\@1}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n    if (PMC <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	5447	5578	
==>it_emit_end/exec_emit_end/;
            }
            if (($cpuarch eq 'ppc') && ($genfile ne "src/jit_cpu.c")) {
                $a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113879	114133	
==>ps\"\n  {{\@1}} <<= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114618	114872	
==>ps\"\n  {{\@1}} <<= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	16875	16973	
==>~orig_content'} = $content;
    return $para->[1]{'~type'} = 'bullet';

  } elsif($content =~ m/^\s <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16820	16925	
==>56789])/'&#'.(ord($1)).';'/eg;
        # Leave out "- so that "--" won't make it thru in X-generated comme <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10264	10365	
==>56789])/'&#'.(ord($1)).';'/eg;
    # Leave out "- so that "--" won't make it thru in X-generated comme <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443339	443620	
==>"CODE" => 507,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 114 \"src/ops/math.ops\"\n  {{\ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2554	2660	
==>op    = $self->op;
  my $right = $self->right;

  if (defined $cond) {
    $handler->start_element({ Name = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3228	3334	
==>op    = $self->op;
  my $right = $self->right;

  if (defined $cond) {
    $handler->start_element({ Name = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3318	3424	
==>op    = $self->op;
  my $right = $self->right;

  if (defined $cond) {
    $handler->start_element({ Name = <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	46773	46867	
==>t_quotelike> would return the list

=over 4

=item [0]

"<<'EOMSG'\nThis is the message.\nEOMSG <==
3	/Users/nnunley/parrot/config/auto/funcptr.pm	38	126	
==>undation.
# $Id: /parrot/config/auto/funcptr.pm 19593 2006-05-30T02:28:15.110975Z coke  $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200022	200143	
==>line 373 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200919	201040	
==>line 373 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201816	201937	
==>line 373 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	23546	23660	
==>ar @args;
    push @localmv, 'ARGCOUNT';
	my $arg_num = 0;
	my $arg_size = 0;
	foreach (@args) {
		my $out;
		my $a <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	11110	11220	
==>URCE <<END_C;
};

END_C
}

if ($suffix eq '' && !$dynamic_flag) {
    $getop = 'get_op';
    my $hash_size = 30 <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	15589	15687	
==>y($self,$line,$complaint) = @_;
  if( $self->{'no_errata_section'} ) {
    DEBUG > 9 and print "Dis <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	31659	31871	
==>" => "inline",
                  "CODE" => 40,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 571 \"src/ops/core.ops\"\n    /* Get <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7328	7466	
==>unless defined $next;
        unless( $next->type eq 'text' ) {
          $self->unget_token($next);
          next;
        }
        DEBU <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9573	9711	
==>unless defined $next;
        unless( $next->type eq 'text' ) {
          $self->unget_token($next);
          next;
        }
        DEBU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377057	377406	
==>",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 441,
                  "ARGS" => [
                              " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208384	208496	
==>get_number(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209325	209437	
==>get_number(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/config/inter/lex.pm	989	1113	
==>self->set_result('skipped');
        return $self;
    }

    my $prog;

    # precedence of sources for the program:
    # d <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	986	1110	
==>self->set_result('skipped');
        return $self;
    }

    my $prog;

    # precedence of sources for the program:
    # d <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	3408	3514	
==>rminate {
    my ($self, $op, $R) = @_;
    return $R, aop('goto', [ $self->{_return} ]);
}

sub rewrite_go <==
3	/Users/nnunley/parrot/languages/lua/luac.pl	1022	1132	
==>->Generate();
}

__END__

=head1 NAME

luac - Lua compiler

=head1 SYNOPSIS

 luac [options] I<sourc <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	10149	10318	
==>} =
                $flag eq 'extends' ? ++$parent_nr : 1;
        }
        else {
            $flags{$flag} = 1;
        }
    }

    # setup some defaults
    if ($cla <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1897	2011	
==>YData->{lex_num};
    $parser->YYData->{lex_num} = 0;
##    warn "PushScopeF\n";
}

sub PopScopeF {
    my ($ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	5368	5464	
==>ined $type) {
    $self->whine("Typeless L!?", $token->attr('start_line'));
  } elsif( $type eq ' <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	1166	1273	
==>= chr($chr);
    $ret |= 0x0001 if $chr =~ /^[[:upper:]]$/;  # CCLASS_UPPERCASE
    $ret |= 0x0002 if $chr = <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	12283	12385	
==>add_inst(''         ,'eq' ,[$temp,1,"DONE_$label"]);
    $self->_restore($temp);
  }
  $self->_add_inst <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	54332	54425	
==>namely the extracted
text. It may optionally also return two further arguments: a string
repre <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	5107	5238	
==>ND\n";
    }
    return $pir;
}


# Usage message.
# ##############
sub usage() {
    print <<USAGE;
Usage:
  perl build/builtins.pl <==
3	/Users/nnunley/parrot/config/init/hints/darwin.pm	258	384	
==>>data->get(qw(ccflags ldflags libs));

    my $OSVers = `uname -r`;
    chomp $OSVers;
    {
        local $^W;
        if ($OS <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	40522	40624	
==>m [4]

the text between the opening and closing tags

=item [5]

the closing tag (or "" if no closing t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606429	606686	
==>],
                  "TYPE" => "inline",
                  "CODE" => 687,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 441 \"src/ops/obje <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2284	2377	
==>{STEMP0}

# Decrement stack height.
dec stack_depth
PIR
		$pir =~ s/\$register_num/$register_n <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3536	3629	
==>{STEMP0}

# Decrement stack height.
dec stack_depth
PIR
		$pir =~ s/\$register_num/$register_n <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	458	559	
==>----------------------------------
{
#
# Module Parse::Yapp::Driver
#
# This module is part of th <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	2134	2231	
==>0;

=head1 DESCRIPTION

This is an internal module for controlling the debug level (a.k.a. trace
l <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	447	543	
==>----------------------------------
{
#
# Module Parse::Yapp::Driver
#
# This module is part of th <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	7485	7599	
==>mary.html for writing: $!\n";

    print OUT page_header("File Coverage Summary");
    print OUT qq(
            <i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242034	242126	
==>ps/cmp.ops\"\n  FLOATVAL l = VTABLE_get_number(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242983	243075	
==>ps/cmp.ops\"\n  FLOATVAL l = VTABLE_get_number(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3} <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	1031	1183	
==>g *",
       c => "char",
       s => "short",
       2 => "short *",
       f => "float",
       d => "double",
       t => "char *",
       v => "void" <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	1446	1598	
==>g *",
       c => "char",
       s => "short",
       2 => "short *",
       f => "float",
       d => "double",
       t => "char *",
       v => "void" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085484	1085782	
==>"inline",
                  "CODE" => 1204,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 163 \"src/ops/exper <==
3	/Users/nnunley/parrot/languages/regex/regex.pl	272	406	
==>(-?)optimize/) {
        $tree_opt = 0;
        $list_opt = 0;
    } elsif (/--optimize=(.*)/) {
        my $opts = $1;
        $tree_o <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10161	10253	
==>to_fallback = ();
@Latin1Code_to_fallback{0xA0 .. 0xFF} = (
# Copied from Text/Unidecode/x00. <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1754	1863	
==>ue) unless $dest_sym;
  my $dest_type = $dest_sym->type;

  my $left_type;
  if (UNIVERSAL::isa($left, 'Jako:: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1712	1821	
==>ue) unless $dest_sym;
  my $dest_type = $dest_sym->type;

  my $left_type;
  if (UNIVERSAL::isa($left, 'Jako:: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1634	1743	
==>ue) unless $dest_sym;
  my $dest_type = $dest_sym->type;

  my $left_type;
  if (UNIVERSAL::isa($left, 'Jako:: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2395	2497	
==>ne type of formal argument (%s)!", $formal_arg_name) 
      unless defined $formal_arg_type;

    $self <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2095	2197	
==>ne type of formal argument (%s)!", $formal_arg_name) 
      unless defined $formal_arg_type;

    $self <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	705	809	
==>$$$$);

# HANDLE RETURN VALUES IN VARIOUS CONTEXTS

sub _failmsg {
	my ($message, $pos) = @_;
	$@ = bless <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	41489	41588	
==>reat_Es {
  my($self,@stack) = @_;

  my($i, $treelet, $content, $replacer, $charnum);
  my $start_l <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45312	45408	
==>e>';
my $AUTOSTUBMK		= '\G\s*<autostub>';
my $REJECTMK		= '\G\s*<reject>';
my $CONDREJECTMK	= '\G <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284726	284870	
==>"
                            ],
                  "BODY" => "#line 913 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285603	285747	
==>"
                            ],
                  "BODY" => "#line 913 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286480	286624	
==>"
                            ],
                  "BODY" => "#line 913 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\ <==
3	/Users/nnunley/parrot/config/init/manifest.pm	844	951	
==>t everything here.  Please try to find the above
files and then try running Configure again.

END

        r <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3971	4064	
==>y())
	print y(4)
end function
function arrfunc(x())
	u=aftwo(x())
	arrfunc=55
end function
dim <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15244	15337	
==>y())
	print y(4)
end function
function arrfunc(x())
	u=aftwo(x())
	arrfunc=55
end function
dim <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	24752	24871	
==>nt <<"EOC";
	$ar = new .FixedPMCArray
	$ar = $n
EOC
	$cmt .= "   $name";
	for (my $i = 0; $i < $n; $i++) {
	    print << <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2541	2643	
==>m '$num' in opcode @{[$op->full_name]}"
        unless exists $arg_maps{$type};

    return sprintf($ar <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4407	4509	
==>m '$num' in opcode @{[$op->full_name]}"
        unless exists $arg_maps{$type};

    return sprintf($ar <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1054	1183	
==>T  => $left,
    OP    => $op,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => $dest->file,
    LINE  => $dest->line
  }, $clas <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1045	1174	
==>T  => $left,
    OP    => $op,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => $dest->file,
    LINE  => $dest->line
  }, $clas <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	934	1063	
==>T  => $left,
    OP    => $op,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => $dest->file,
    LINE  => $dest->line
  }, $clas <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035406	1035507	
==>* const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@2}};\n    PMC * const lex_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036570	1036671	
==>* const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@2}};\n    PMC * const lex_ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	16852	16950	
==>e++;
	print CODE<<ENDCASE;
	bsr EVALEXPR
	bsr TRUTH
	ne I1, 1, CASE_${jump}_${incase}
ENDCASE
	$sel <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349605	349868	
==>open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 407 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863059	863280	
==>ODE" => 979,
                  "ARGS" => [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 138 \"src/ops/string.ops\"\n  {{\@1}} = str <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	1738	1916	
==>ility of intra-comment blank line elimination; pod
handling;

=back

=cut

################################################################################

use Regexp::Common qw/ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3444	3559	
==>reg;";
}

sub output_unless {
    my ($self, $reg, $dest) = @_;
    $reg = value($reg);
    return "goto " . $self-> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5969	6083	
==>or $token->is_const) {
      my $access = $token->text; # 'const' or 'var'.

      my $type       = Jako::Construct <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	978	1067	
==>alue;
use Jako::Construct::Expression::Value::Identifier;

use Jako::Construct::Label;

us <==
3	/Users/nnunley/parrot/tools/build/vtable_extend.pl	2659	2761	
==>This is the only place they ought to have to be put
   in, and most of the functions are already writte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550129	550218	
==>erpreter->current_cont = NEED_CONTINUATION;\n  interpreter->current_method = meth;\n  meth <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551430	551519	
==>erpreter->current_cont = NEED_CONTINUATION;\n  interpreter->current_method = meth;\n  meth <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514558	514980	
==>" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 593,
                  "ARGS" => [
                              "n",
                              "nc",
                              "n"
                            ],
                  "BODY" => "#li <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	6019	6146	
==>ess defined $_;

        if (/\t/) {
            s/\t/\[TAB\]/g;
            warning($file, $line, "Tab character in source: $_\ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	33543	33650	
==>'    => \&_op_list_p,
  'list'     => \&_op_list,
  'length'   => \&_op_length,
  'append'   => \&_op_append <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321886	322152	
==>" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322657	322923	
==>" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323429	323695	
==>" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10331	10425	
==>register to hold value we pop off the stack.
${PTEMP3} = ${STYPES}[${ITEMP2}]
${STEMP0} = "$"
$ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7715	7809	
==>register to hold value we pop off the stack.
${PTEMP3} = ${STYPES}[${ITEMP2}]
${STEMP0} = "$"
$ <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	35363	35465	
==>@_, 1);
}
sub DELETE_SLICE_plus_2 {
    return Del_Slice(@_, 2);
}
sub DELETE_SLICE_plus_3 {
    return <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	169	265	
==>d to
generate a parrot wrapper for the named library (or libraries). Its
format is simple, and lo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	2792	2946	
==>\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PAR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	36864	37018	
==>\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PAR <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8951	9061	
==>th
{
    my $self = shift;
    my $path = shift || return;
    my ($volume, $directories, $name) = File::Spec-> <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9350	9460	
==>th
{
    my $self = shift;
    my $path = shift || return;
    my ($volume, $directories, $name) = File::Spec-> <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	6705	6786	
==>tr = "parrot-smoke-<VERSION>-<DEVEL>-r<revision>-<branch>--<cpuarch>-<osname>-<cc> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474076	474177	
==>ODY" => "#line 403 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_ex <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475067	475168	
==>ODY" => "#line 403 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_ex <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476058	476159	
==>ODY" => "#line 403 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_ex <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5711	5823	
==>BG>		$debug & 0x08
#DBG>	and	print STDERR "Stack:[".
#DBG>					 join(',',map { $$_[0] } @$stack).
#DBG>					 " <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5438	5547	
==>BG>		$debug & 0x08
#DBG>	and	print STDERR "Stack:[".
#DBG>					 join(',',map { $$_[0] } @$stack).
#DBG>					 " <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	3285	3381	
==>onfiguration
if ( ! defined $cfg{bench_path} ) {
    $cfg{bench_path} = $ini->val( global => 'dir <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	37530	37657	
==>G > 1 and print "Containing fors: ",
            join(',', map $_->[1]{'target'}, @fors), "\n";
          
          if(! @fors) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	603510	603606	
==>" => "#line 404 \"src/ops/object.ops\"\n    {{\@1}} = VTABLE_name(interpreter, {{\@2}});\n    {{+ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11753	11847	
==>e "$class defines unknown vtable method '$method'\n"
      unless defined $super_table->{$metho <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090069	1090324	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice",
                  "FLAGS" => ":python",
                  "ARGDIRS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1091128	1091383	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice",
                  "FLAGS" => ":python",
                  "ARGDIRS <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	11609	11716	
==>pt's compiled code.

=cut


sub compile
{
  my $self     = shift; # Required: Jako::Construct::Block
  my $c <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	46639	46770	
==>dAssigns( $_[0], $_[1], $_[3] );
        }
	],
	[#Rule 10
		 'stat', 1,
sub
#line 92 "Lua\lua51.yp"
{
            BuildVoidF <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	811	939	
==>ar {
    my ($self, $var, $ctx) = @_;
    if ($ctx->{$var}) {
        return $ctx->{$var};
    } else {
        return '$' . $var <==
3	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	183	278	
==>GC stress-testing

=head1 SYNOPSIS

    % time perl examples/benchmarks/stress2.pl

=head1 DESCR <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23377	23470	
==>generate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp = $self->_gener <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23839	23932	
==>generate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp = $self->_gener <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225245	225495	
==>> 263,
                  "ARGS" => [
                              "p",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 523 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vta <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	310465	310597	
==>nd;\n            PDB_run_command(interpreter,command);\n        }\n        /* FIXME this is not ok */\n        exit(0);\n    }\n    i <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	114	211	
==>/M4.pm - Testing routines specific to 'm4'.

=head1 DESCRIPTION

Call 'Parrot m4' and 'GNU m4'.

= <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	35518	35647	
==>lbl_end,
    );
    return \@opcodes1;
}

sub BuildBreak {
    my ($parser) = @_;
    my @opcodes = ();
    push @opcodes, <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	14714	14824	
==>cent|_amp)$/) {
			my $ti="\$I" . ++$retcount;
			my $tn="\$N" . ++$retcount;
			@ass=(
				@$rightexpr,
				"\ <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	11005	11092	
==>Sub Compiler Exception Version VtableCache ParrotIO ParrotLibrary ConstParrotLibrary Par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018624	1018862	
==>ction",
                  "CODE" => 1138,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 182 \"src/ops/sys.ops\"\n  stru <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20685	20804	
==>dentifier->new($block, $self->get());
        push @left, $left;
        $self->require_assign;
      }

      my $const <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	10637	10734	
==>eq($got, $expected, $name);

Like Test::More's is().  Checks if $got eq $expected.  This is the
st <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503568	503987	
==>re",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 579,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ], <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	1396	1495	
==>ual ops file from multiple physical ops files.

This code does half of that job (the other half is g <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6409	6512	
==>${CURIC}_LOOP:
if i == 0 goto POST_BRANCH_switch_${CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0[i]
    ${I <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4347	4450	
==>${CURIC}_LOOP:
if i == 0 goto POST_BRANCH_switch_${CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0[i]
    ${I <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	2259	2351	
==>referably specific to Parrot,
not some generic term.  Currently acceptable prefixes are
C</^( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722380	722487	
==>, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_softspace(interp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723409	723516	
==>, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_softspace(interp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724453	724560	
==>, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_softspace(interp <==
3	/Users/nnunley/parrot/lib/Test/More.pm	34795	34892	
==>s your tests won't notice the difference.  This is good.

However, it does mean that functions lik <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611152	611240	
==>e 491 \"src/ops/object.ops\"\n    VTABLE_set_attr(interpreter, {{\@1}}, {{\@2}}, {{\@3}}) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612055	612143	
==>e 491 \"src/ops/object.ops\"\n    VTABLE_set_attr(interpreter, {{\@1}}, {{\@2}}, {{\@3}}) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13139	13332	
==>ULL);\n  loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13983	14176	
==>ULL);\n  loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	629	777	
==>nt
                  { $item[3] }

# Return a hash reference where the macro_name is the key
macros:             macro(s)
                  { my $dum <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	53544	53682	
==>@_; # copy
  my $x;
  my $out =
    # join ",\n" .
    join ", ",
    map {;
    if(!defined($_)) {
      "undef";
    } elsif(ref($_) eq ' <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	26580	26715	
==>$c} = $c;
	print <<EOC;
        \t $cmt
EOC
    }
    push @stack, [$n, $c, 'P'];
}

sub STORE_FAST
{
    my ($n, $c, $cmt) = @_;
    my <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	25889	25993	
==>al test output.
    open(TESTOUT, ">&STDOUT") or die "Can't dup STDOUT:  $!";
    open(TESTERR, ">&STDERR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953154	953404	
==>"CODE" => 1072,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 540 \"src/ops/string.ops\"\n  STR <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	25673	25795	
==>";
        _temp_mmd_init[$entry->[0]].right = my_enum_class_$entry->[1];
EOC
        }
    }
    # just to be safe
    for <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	48566	48658	
==>ognize and extract a balanced
bracket delimited substring that may contain unbalanced bracket <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	7169	7292	
==>ident         { return shift->skip('ident');         }
sub skip_literal       { return shift->skip('literal');       }
sub s <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7970	8066	
==>ORE_${CURIC}_LAZY_MOVE

# No lazy move available - need to refer to register.
${STEMP0} = "$"
${S <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8827	8923	
==>ORE_${CURIC}_LAZY_MOVE

# No lazy move available - need to refer to register.
${STEMP0} = "$"
${S <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	8423	8569	
==>ibs' => '-lm -lgmp -lreadline',
             'link' => 'c++',
             'link_debug' => '',
             'link_dynamic' => ' ',
             'li <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658250	658337	
==>c.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed(interpret <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659169	659256	
==>c.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed(interpret <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	1322	1429	
==>eption"
$P0["obj"] = $P1
throw $P0
PIR

    # Return.
END:
    .return(body)
.end
PIR_OUT

# Write output.
o <==
3	/Users/nnunley/parrot/config/auto/cgoto.pm	1852	1950	
==>ops2c.pl CGP --core
EOF
            TEMP_cg_o => '$(OPS_DIR)/core_ops_cg$(O) $(OPS_DIR)/core_ops_cg <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	33272	33396	
==>ists
###

  'pair?'    => \&_op_pair_p,
  'cons'     => \&_op_cons,
  'car'      => \&_op_car,
  'cdr'      => \&_op_cdr,
  ' <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36668	36763	
==>rective($line, "null.c");
    return <<EOC;
$l
${decl} {
	real_exception(interpreter, NULL, NULL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621384	621490	
==>red = NULL;\t/* just for gcc */\n    }\n    lru = &mic->lru;\n    if (lru->u.signature == sig) {\n\tif (sig <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16433	16540	
==>mnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
            return $x;
        } <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9976	10073	
==>mnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
      return $x;
    } <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1366	1450	
==>otate_left((X1^X2^X3)+X0+X4+X6$MSK,X5)+X1$MSK;",
	II => "X0=rotate_left((X2^(X1|(~X3) <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	209	317	
==>ntime_jump );

require "COMP_parsefuncs.pm";

sub init {
        @type[0..2]=("","","");
        @syms[0..2]= <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1793	1894	
==>})
	and	$$self{VERSION} < $COMPATIBLE
	and	croak "Yapp driver version $VERSION ".
			  "incompatibl <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1730	1828	
==>})
	and	$$self{VERSION} < $COMPATIBLE
	and	croak "Yapp driver version $VERSION ".
			  "incompatibl <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5911	6014	
==>ch
	# did not pop anything it is unconditional, so next instruction needs to
	# have an empty stack type <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3849	3952	
==>ch
	# did not pop anything it is unconditional, so next instruction needs to
	# have an empty stack type <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	14540	14640	
==>my $standard_body = $total_body;
    my $header_decls = '';
    while ($total_body =~ s/\bMMD_(\w+):\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665266	665487	
==>keyed_int(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666043	666264	
==>keyed_int(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	21556	21652	
==>her.

Normally, it uses the failure_output() handle, but if this is for a
TODO test, the todo_out <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528689	529014	
==>);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529571	529896	
==>);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  " <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5483	5577	
==>P0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}

${INS} = concat ${ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7812	7936	
==>l:
            print "failed"
          match_end:
        .end\n);
}
=back

=head1 AUTHOR

Patrick R. Michaud, pmichaud@pobo <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	800	917	
==>write_code_to_file( $code, $lang_f );

    my $cmd;
    my $exit_code = 0;
    my $pass = 0;

    $cmd = "$self->{parr <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	837	954	
==>write_code_to_file( $code, $lang_f );

    my $cmd;
    my $exit_code = 0;
    my $pass = 0;

    $cmd = "$self->{parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	603023	603306	
==>( {
                  "JUMP" => 0,
                  "NAME" => "classname",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TY <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1096129	1096412	
==>( {
                  "JUMP" => 0,
                  "NAME" => "classname",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TY <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	2373	2502	
==>nfile(
        'config/gen/makefiles/tge.in' => 'compilers/tge/Makefile',
        commentType                   => '#',
        re <==
3	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	3090	3296	
==>F);
}


############################################################################
sub run_command {
    my ($command) = @_;

    print "- $command\n";
    system($command);

    if ($? >> 8) {
        die <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936248	936337	
==>> "#line 455 \"src/ops/string.ops\"\n  {{\@1}} = string_titlecase(interpreter, {{\@2}});\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937025	937114	
==>> "#line 455 \"src/ops/string.ops\"\n  {{\@1}} = string_titlecase(interpreter, {{\@2}});\n <==
3	/Users/nnunley/parrot/config/inter/lex.pm	962	1088	
==>$util => 'echo');
        $self->set_result('skipped');
        return $self;
    }

    my $prog;

    # precedence of sources <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	959	1085	
==>$util => 'echo');
        $self->set_result('skipped');
        return $self;
    }

    my $prog;

    # precedence of sources <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747231	747336	
==>,
                  "BODY" => "#line 194 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_integer_native(interp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748016	748121	
==>,
                  "BODY" => "#line 194 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_integer_native(interp <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	1610	1707	
==>l be lost!
 *
 */

#define CONCAT(a,b) a##b
#define _CONST_STRING(i, l) (i)->const_cstring_table[C <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10894	11028	
==>c[-1]) {
            # Merge (1,10)=1..9 with [4,x]=4..x and [10,x]=10..x
            if ($incexc[-1] <= $last+1) {
                $in <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16453	16550	
==>. All rights reserved.

This program is free software; you can redistribute it and/or modify it
un <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1667	1764	
==>. All rights reserved.

This program is free software; you can redistribute it and/or modify it
un <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1775	1871	
==>Methody, it will instead do this
when it sees a "=head1 Hi there":

  $parser->start_head1( \%att <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129818	130091	
==>{{\@1}} ^= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130557	130830	
==>{{\@1}} ^= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	46914	47022	
==>ad",$aftererror,$line);
			$lookahead = $lookahead ? -$lookahead : -1;
			$lookaheadspec .= $1;
			next;	# SK <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6403	6504	
==>no elements are exchanged.
   Exchange=FALSE
   ' Compare the array elements by pairs. When two are ex <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16056	16157	
==>no elements are exchanged.
   Exchange=FALSE
   ' Compare the array elements by pairs. When two are ex <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	908	1005	
==>var=~s/\$$/_string/;
		push @{$code{$seg}->{code}}, "\t# $var was declared COMMON\n"; 
		if (! $ar <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	708	803	
==>::isa($type, qw(Jako::Construct::Type));
  confess "Identifier (" . ref($ident) . ") is not!" un <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	733	828	
==>::isa($type, qw(Jako::Construct::Type));
  confess "Identifier (". ref($ident) . ") is not!"  un <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	697	792	
==>::isa($type, qw(Jako::Construct::Type));
  confess "Identifier (". ref($ident) . ") is not!"  un <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2229	2338	
==>e into the
relevant C code.

=cut

sub goto_offset
{
    my ($self, $offset) = @_;

    if ($offset =~ /^-?\d+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478959	479214	
==>= floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479851	480106	
==>= floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15456	15564	
==>-\x1F\-\\\{\}\x7F-\xFF])/$Escape{$1}/g;  # ESCAPER
             # Escape \, {, }, -, control chars, and 7f-ff <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554267	554528	
==>code_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555664	555925	
==>code_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556901	557162	
==>code_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	2914	3037	
==>JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "check_events",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1422	1537	
==>pr;
  }
  else {
    $temp->{value} = $tokens->[$count++];
  }
  
  return ($count,$temp);
}

sub _dataflow {
  my $ <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	14028	14139	
==>ib_t ${bs}op_lib = {
  "$base",		/* name */
  "$suffix",		/* suffix */
  $core_type,	        /* core_type = PARR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500981	501127	
==>"BODY" => "#line 621 \"src/ops/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501720	501866	
==>"BODY" => "#line 621 \"src/ops/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	1432	1540	
==>e.tbl>.  If it is not an MMD method, C<MMD_type> is -1.

=cut

sub parse_vtable {

    my $file = defined $_[ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11471	11721	
==>sult' => $result2,
                            'arg1'   => $result,
                            'arg2'   => $key->[0],
                        );
                        $result = $result2;
                    }
                    push @opcodes <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9699	9925	
==>sult' => $result2,
                        'arg1'   => $result,
                        'arg2'   => $key->[0],
                    );
                    $result = $result2;
                }
                push @opcodes <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8610	8788	
==>sult' => $result2,
                'arg1'   => $result,
                'arg2'   => $key->[0],
            );
            $result = $result2;
        }
        push @opcodes <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	2457	2573	
==>on, it is not passed to subsections.

=cut

sub write_docs
{
    my $self = shift;
    my $silent = shift || 0;
    m <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2903	2998	
==>ontent;
  $handler->end_element({ Name => 'block' });

  $handler->end_element({ Name => $self-> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2785	2880	
==>ontent;
  $handler->end_element({ Name => 'block' });

  $handler->end_element({ Name => $self-> <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	1062	1160	
==>le.
my $metavars = {};

# Generate initial translator code and populate metafields.
my $pir = gener <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924411	924518	
==>= string_make_empty(interpreter, enum_stringrep_one, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925202	925309	
==>= string_make_empty(interpreter, enum_stringrep_one, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	3662	3762	
==>e is not the file for that
module, then the documentation file for the module is linked to.

=cut

su <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21143	21342	
==>GS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 349 \"src/ops/core.ops\"\n  if (!string_bool(interprete <==
3	/Users/nnunley/parrot/Configure.pl	9409	9523	
==>:inline
    auto::gc
    auto::memalign
    auto::signal
    auto::socklen_t
    auto::env
    auto::aio
    auto:: <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	6818	6907	
==>lib/core_ops_cgp.h>
#endif
#include"parrot/exec.h"
#include"jit.h"
#define JIT_EMIT $jit_e <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	40388	40518	
==>//s; # Kill any number of terminal newlines
        }
        
      } elsif($para_type eq 'Data') {
        DEBUG and print " givi <==
3	/Users/nnunley/parrot/config/auto/jit.pm	992	1106	
==>f (!defined $osname) {
        ($osname, $cpuarch) = ($cpuarch, q{});
    }

    # This was added to convert 9000/8 <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5795	5921	
==>gs}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There should be at most a single group
        my $group = $clas <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6006	6132	
==>gs}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There should be at most a single group
        my $group = $clas <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	221	318	
==>e vars qw(%code %options @basic %common);
use vars qw( @syms @type );
use vars qw( %labels $runtim <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11036	11128	
==>ewrites the method body performing the various macro substitutions for
nci method bodies (see <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	213	301	
==>arrot::Test::Bc::Antlr2;
use Parrot::Test::Bc::Antlr3;
use Parrot::Test::Bc::Posix;

=hea <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5202	5342	
==>ists $op->{result} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $first = 1;
            foreach ( @{ $ <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6234	6374	
==>ists $op->{result} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $first = 1;
            foreach ( @{ $ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	1095	1205	
==>sub _save_set {
  my $self = shift;
  my %regs = %{$self->{regs}};
  for my $type (keys %regs) {
    for my $co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129754	129919	
==>,
                  "BODY" => "#line 301 \"src/ops/bit.ops\"\n  {{\@1}} ^= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130493	130658	
==>,
                  "BODY" => "#line 301 \"src/ops/bit.ops\"\n  {{\@1}} ^= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6482	6593	
==>= shift;
    my $token = shift;
    my $tagname = $token->tagname;
    
    print {$self->{'output_fh'}} $self-> <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	2407	2512	
==>->convert($tree, $ctx);
}

sub convert_rx_end {
    my ($self, $tree, $ctx) = @_;
    return op('seq' => [ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	18042	18145	
==>eq '<<') {
		$ld1pos = pos($$textref);
		my $label;
		if ($$textref =~ m{\G([A-Za-z_]\w*)}gc) {
			$labe <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	1854	1956	
==>}

=item C<html_link($path)>

Returns the HTML link for the section.

=cut

sub html_link
{
    my $sel <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	16124	16313	
==>l $counter
#                $counter = 0
#           try: R[$counter] or goto fail
#                push $counter
#                goto next
#          fail: $counter++
#                if $ <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10076	10189	
==>ose');

    if (defined($_[0]) && length($_[0])) {
        local $" = ' ';
        _run_command(".${slash}test${ex <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10657	10770	
==>ose');

    if (defined($_[0]) && length($_[0])) {
        local $" = ' ';
        _run_command(".${slash}test${ex <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	3615	3724	
==>hift;
  my ($offset) = @_;

  $offset = 1 unless defined $offset;

  my $pos = $self->pos;

  $self->INTERNAL_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	762	868	
==>IDENT => $ident
  }, $class;

  $block->push_content($self);

  return $self;
}

sub ident  { return shift- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	762	868	
==>IDENT => $ident
  }, $class;

  $block->push_content($self);

  return $self;
}

sub ident  { return shift- <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	13170	13289	
==>nd print "  Found start of Para.  Accumulating content...\n";
        $para_text_content = '';
        ++$state;
      } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	526267	526375	
==>c/ops/math.ops\"\n  {{\@1}} = acos(((FLOATVAL)1) / ((FLOATVAL){{\@2}}));\n  {{+=3}};\n",
                  "L <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	12601	12706	
==>s);
  for (@{$locals->{children}}) {
    _num_arg ($_, 1, 'let locals');
    my ($var, $val) = _get_args ( <==
3	/Users/nnunley/parrot/config/init/miniparrot.pm	1553	1736	
==>apable        => 0,
        cc_hasjit          => '',
        TEMP_jit_o         => '',
        TEMP_exec_h        => '',
        TEMP_exec_o        => '',
        asmfun_o           = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92592	92919	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95043	95370	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95936	96263	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_c <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	5516	5663	
==>if ($type) {
      $handler->start_element({
        Name       => 'sub',
        Attributes => {
          name  => $name,
          type  => $type <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6765	6912	
==>if ($type) {
      $handler->start_element({
        Name       => 'sub',
        Attributes => {
          name  => $name,
          type  => $type <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	2573	2674	
==>if ($type) {
    $handler->start_element({ Name => 'sub', Attributes => { name => $name, type => $type <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1406	1518	
==>{
  DEBUG and print "== \"$_[1]\"\n";
  if(length $_[1]) {
    my $text = $_[1];
    _xml_escape($text);
    prin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122091	122202	
==>uivalent unsigned.\n   */\n  LVALUE_CAST(UINTVAL, {{\@1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123003	123114	
==>uivalent unsigned.\n   */\n  LVALUE_CAST(UINTVAL, {{\@1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6885	7025	
==>BG>				};
				};


                push(@$stack,[ $act, $$value ]);

					$$token ne ''	#Don't eat the eof
				and	$$token=$$value=und <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6566	6699	
==>BG>				};
				};


                push(@$stack,[ $act, $$value ]);

					$$token ne ''	#Don't eat the eof
				and	$$token=$$value=und <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26133	26257	
==>ION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 133,
			'functioncall' => 31,
			'function' => 26,
			'tab <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9196	9332	
==>tus # if 0, then YYErrok has been called
            or  next;       # so continue parsing

#DBG>			$debug & 0x10
#DBG>		and	do {
#D <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8781	8912	
==>tus # if 0, then YYErrok has been called
            or  next;       # so continue parsing

#DBG>			$debug & 0x10
#DBG>		and	do {
#D <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	36065	36172	
==>, $parser, $matchrule, $argcode) = @_;
	my $class = ref($self) || $self;
	($max, $min) = ( $min, $max) if ($ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	46530	46624	
==>ing "<<'EOMSG'\nThis is the message.\nEOMSG",
leaving the string " || die;\nexit;" in the origi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64625	64715	
==>/ops/core.ops\"\n  Interp * const new_interp = (Interp *)PMC_data({{\@1}});\n  Interp_flags <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65576	65666	
==>/ops/core.ops\"\n  Interp * const new_interp = (Interp *)PMC_data({{\@1}});\n  Interp_flags <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319396	319627	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320165	320396	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320935	321166	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540443	540543	
==>{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b== <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541695	541795	
==>{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b== <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542947	543047	
==>{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b== <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4682	4822	
==>ew($block, $ident);
      next;
    }

    #
    # Modules:
    #
    #   module <ident> [:<prop>[=<value] ...] {
    #

    if ($token->is_m <==
3	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	1255	1356	
==>rot") || mkdir("miniparrot");

    print "** $0: reconfiguring parrot for miniparrot build\n";
    run <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18020	18120	
==>)!"
	end select
	print "Ongoing (right also)"
end select
select case t*1+0
case 1 to 10, t*2, >100
	p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540420	540522	
==>@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541672	541774	
==>@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542924	543026	
==>@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	2738	2859	
==>/);
	    delete $bad_fdecls{$_} unless ($contents =~ /\Q$function_maybe\E/);
        }
	
    }
    close(F);

    print ST <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	380	480	
==>:More->import( $plan, @args );

    __PACKAGE__->_export_to_level( 2, __PACKAGE__ );
}

my $count;

f <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	297	397	
==>:More->import( $plan, @args );

    __PACKAGE__->_export_to_level( 2, __PACKAGE__ );
}

my $count;

f <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33836	33985	
==>te following ", $paras->[0][0], "\n";
              push @$para, '';  # Just so it's not contentless
            }
          }


        } elsif($over <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090887	1091016	
==>e->slice(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1091947	1092076	
==>e->slice(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABE <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11919	12018	
==>_args = join(",", map {$_->[0]} (reverse @args));
			$pir_args = ",$pir_args" if $pir_args;
			$exte <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	12329	12428	
==>_args = join(",", map {$_->[0]} (reverse @args));
			$pir_args = ",$pir_args" if $pir_args;
			$exte <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	15407	15503	
==>sor function can be redefined in order to provide
additional checking of values, etc.  Here, we w <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7143	7249	
==>f $self and $self->isa("Jako::Construct::Block");
  confess "No block kind!"  unless defined $kind;
  confe <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	908	1008	
==>xt content of Pod

=head1 SYNOPSIS

 TODO

  perl -MPod::Simple::TextContent -e \
   "exit Pod::Simpl <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2113	2207	
==>" . $index_html if $self->{TEXT};
		$index_html = qq(<h2>$self->{NAME}  <a href="#_top"><img al <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	20841	20957	
==>pir .= "    goto INS_NOT_FOUND_ERROR\n";

        # We may need to bulid second byte dispatch tables.
        foreach <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363436	363530	
==>/ops/io.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, \"%f\", ( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364339	364433	
==>/ops/io.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, \"%f\", ( <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	7765	7861	
==>_all;
  $Test->skip_all($reason);

Skips all the tests, using the given $reason.  Exits immediate <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	11665	11773	
==>te($transnode);
}

sub _op_case {
}

sub _op_and {
  my ($self,$node) = @_;
  my $return;
  my $label = $self <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	2527	2629	
==>ent)
        unless $sym;

      if (not UNIVERSAL::isa($sym->type, 'Jako::Construct::Type::String')) { <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	5280	5374	
==>T} = $checker->errors_seen;
		$self->{CONTAINS_POD} = $checker->content_seen;
	}
}

=item C<con <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506578	506725	
==>=> "#line 636 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507433	507580	
==>=> "#line 636 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	508288	508435	
==>=> "#line 636 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	23831	23947	
==>else {
					die "Unknown type $syms[CURR]";
				}
			} else {
				$_=substr($var, -1, 1);
				if (exists $sigilmap{$_ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9635	9749	
==>TDERR "**At eof: aborting.\n";
				return(undef);
			};

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Dica <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9202	9311	
==>TDERR "**At eof: aborting.\n";
				return(undef);
			};

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Dica <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	22371	22537	
==>),
                   aop('goto', [ $lastback ]),
          $next =>
                  );

        return ($back, @ops);
    } else {
        my $rfail = $self->genlab <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	6208	6325	
==>hift;
    my %suffixes = ();
    
    foreach my $file ($self->files($recursive, $ignore))
    {
        $suffixes{$fi <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11207	11296	
==>MP0} = ${PTEMP1}["reg_type_short"]
${DEST0} = concat ${STEMP0}
inc stack_depth
${STEMP0} = <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8393	8482	
==>MP0} = ${PTEMP1}["reg_type_short"]
${DEST0} = concat ${STEMP0}
inc stack_depth
${STEMP0} = <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	7452	7570	
==>and return $parser->_LongStringLexer($1);

            s/^([A-Z_a-z][0-9A-Z_a-z]*)//
                and return $par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031430	1031529	
==>"src/ops/sys.ops\"\n    if ({{\@2}} < enum_first_type || {{\@2}} >= enum_last_type)\n        {{\@1}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032299	1032398	
==>"src/ops/sys.ops\"\n    if ({{\@2}} < enum_first_type || {{\@2}} >= enum_last_type)\n        {{\@1}} <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	61920	62031	
==>b Generate {
    my $parser = shift;

    my $filename = $parser->YYData->{srcname};
    $filename =~ s/\.lu <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4425	4523	
==>pattern, $captures) = @_;
    $target = _parrot_stringify($target);
    $pattern = _parrot_stringif <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6930	7028	
==>pattern, $captures) = @_;
    $target = _parrot_stringify($target);
    $pattern = _parrot_stringif <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	7005	7136	
==>sub 'dyadic:!'           # binomial coefficient
    .param pmc op1
    .param pmc op2
    $I1 = op1
    $I2 = op2
    $I3 = $I2 - $I <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	44810	44903	
==>T		= '\G\((\d+)\.\.'.$SIMPLEPAT.'\)';
my $ATMOST		= '\G\(\.\.([1-9]\d*)'.$SIMPLEPAT.'\)';
my $ <==
3	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1834	1923	
==>ssociations=yes

[Files]
Source: "$options{prefix}\\*"; DestDir: "{app}"; Flags: ignorever <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	13465	13577	
==>ION;
     $tag = $class . $tag;
   }

   return sprintf <<'END',
{\info{\doccomm
%s
 using %s v%s
 under Perl v%s <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	771	923	
==>t_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    output_isnt       => 'isnt_eq',
                        );

foreach my $ <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	509	625	
==>t_map = (
    output_is   => 'is_eq',
    output_like => 'like',
    output_isnt => 'isnt_eq',
);

foreach my $ <==
3	/Users/nnunley/parrot/Configure.pl	2820	2917	
==>ory.

=item C<--jitcapable>

Use JIT system.

=item C<--execcapable>

Use JIT to emit a native exe <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	12864	13031	
==>ods,
               post         => $post,
               class        => $classname,
               has_method   => \%meth_hash
           };
}

=head2 gen_parent_list <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	20431	20555	
==>nclude, "pmc_$pmcname.h", 1);

        my $fh = open_file( "<", $file );
        while (<$fh>) {
            if (/^(?:extern\ <==
3	/Users/nnunley/parrot/config/auto/headers.pm	1032	1152	
==>t not be
    # properly reflected in %Config (i_fcntl seems to be wrong on my machine,
    # for instance).
    #
    # F <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	3790	3896	
==>) if @arg_types;

    $name = "deprecated_$name" if ($self->body =~ /DEPRECATED/);

    return $name;
}

=i <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	20289	20389	
==>UMP_IF_TRUE') {
	print "\t\t$cmt\n";
	$code_l++;
	$cmt ="\t\t# $opcode\t $rest";
	if ($rest =~ /to (\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457155	457318	
==>"
                            ],
                  "BODY" => "#line 240 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458010	458173	
==>"
                            ],
                  "BODY" => "#line 240 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458865	459028	
==>"
                            ],
                  "BODY" => "#line 240 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Test/More.pm	36358	36456	
==>est::Simple> if all this confuses you and you just want to write
some tests.  You can upgrade to Te <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	378	492	
==>ase qw(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	398	512	
==>ase qw(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	378	492	
==>ase qw(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	23230	23356	
==>nless defined $firstpos;
					$lastpos = pos $$textref;
					last FIELD if @fields == $max;
					next FIELD;
				}
			}
			if ( <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1152	1267	
==>pec->splitdir($path_to_parrot));
        my $path_to_language;
        if ($dir_count == 0) {
          $path_to_lan <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1637	1752	
==>pec->splitdir($path_to_parrot));
        my $path_to_language;
        if ($dir_count == 0) {
          $path_to_lan <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527062	527314	
==>1}} = asin((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	404	511	
==>Statement);

sub new
{
  my $class = shift;
  my ($block, $ident) = @_;

  confess("Block (" . ref($block) . <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	404	511	
==>Statement);

sub new
{
  my $class = shift;
  my ($block, $ident) = @_;

  confess("Block (" . ref($block) . <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	19289	19404	
==>ic
	err = concat str_ic
	err = concat ")"
    ex["_message"] = err 
    throw ex

PIRCODE

    # Restore original in <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1105	1202	
==>d2 Methods

=head3 Constructors

=over 4

=item * C<new()>

Basic constructor.

Accepts no argumen <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	642	739	
==>d2 Methods

=head3 Constructors

=over 4

=item * C<new()>

Basic constructor.

Accepts no argumen <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10973	11068	
==>TEMP0} = ${PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pre_call_HAS_RETURN_${CURIC}
i <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8159	8254	
==>TEMP0} = ${PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pre_call_HAS_RETURN_${CURIC}
i <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5821	5916	
==>TEMP0} = ${PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pre_call_HAS_RETURN_${CURIC}
i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642149	642316	
==>",
                              "k"
                            ],
                  "BODY" => "#line 194 \"src/ops/pmc.ops\"\n  {{\@1}} = {{\@2}}->vtable->type_keyed( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	7306	7413	
==>tch of this subtree?
    if (($t->minlen() || 0) > $guarantee) {
        my $newtree = $self->add_checks($t, <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	1935	2040	
==>s_UnManagedStruct);",
       t => "STRING *final_destination;"
#      b => "Buffer *final_destination = ne <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668623	668926	
==>,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 748,
                  "A <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	4544	4649	
==>PIR'
FAIL:
    $P0 = new .Exception
    $P0["_message"] = "No body supplied for built-in method"
    throw <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665271	665503	
==>_int(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666048	666280	
==>_int(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	57202	57305	
==>aftererror = !$commitonly;
			}
			elsif ($grammar =~ m/(?=$MSGERRORMK)/gco
				and do { $commitonly = $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592396	592631	
==>"ARGS" => [
                              "p",
                              "kc",
                              "k"
                            ],
                  "BODY" => "#line 325 \"src/ops/object.ops\"\n  PMC *class = Parrot_cla <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	4795	4945	
==>"S",
       v => "v",
       J => "",
     );

my $temp_cnt = 0;
my @put_pointer;
my %seen;

while (<>) {
    chomp;
    s/#.*$//;             # commen <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	6787	6906	
==>it   = ($type =~ /^[BbCc]$/) ? 1 : 0;
		my $init     = ($type =~ /^[DdGg]$/) ? 1 : 0;
		my $file     = ($type =~ /^[Ff]$ <==
3	/Users/nnunley/parrot/config/auto/perldoc.pm	38	138	
==>undation.
# $Id: /parrot/config/auto/perldoc.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAM <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	1539	1634	
==>"Must always have fallback defined!" if ! $fallback;
    return "rx_popindex P0, ".$self->output <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138062	138241	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 70 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138958	139137	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 70 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139854	140033	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 70 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  } <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	722	833	
==>self = bless {
    BLOCK => $block,
    IDENT => $ident
  }, $class;

  $block->push_content($self);

  return $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	722	833	
==>self = bless {
    BLOCK => $block,
    IDENT => $ident
  }, $class;

  $block->push_content($self);

  return $ <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	2657	2757	
==>(keys %bad_fdecls) {
	    my ($function_maybe) = ($bad_fdecls{$_} =~ /^\s*(\S+)\(/);
	    delete $bad <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140749	140936	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 77 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141645	141832	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 77 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142541	142728	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 77 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+= <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3719	3828	
==>y,0,2)) {
        $prm=uc($prm);
			exists($$checklist{$prm})
		or	croak("Unknow parameter '$prm'");
			re <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3527	3632	
==>y,0,2)) {
        $prm=uc($prm);
			exists($$checklist{$prm})
		or	croak("Unknow parameter '$prm'");
			re <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	6206	6299	
==>THORS

Idea by Tony Bowden and Paul Johnson, code by Michael G Schwern
E<lt>schwern@pobox.comE <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33985	34103	
==>};
        $ret_def = "$type ret_val;";
        $func_ret = $self->gen_ret($method->{type});
        $ret = "return ret <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38947	39065	
==>};
        $ret_def = "$type ret_val;";
        $func_ret = $self->gen_ret($method->{type});
        $ret = "return ret <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3676	3780	
==>ts of any procedures defined in the test file outside of a test,
## as well as any catch commands.
##
sub <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	3442	3580	
==>within an
            #    function.  -Wlong-long
            # Ha. this is the default! with -pedantic.
            # -Wno-long-long for t <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15088	15181	
==>ion arrfunc(x())
	print x(4)
	arrfunc=55
end function
dim g(10)
g(5)=666
g(4)=12
a=g(5)+0
y=ar <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	6336	6432	
==>ans->can("run_core_func_decl")) {
    print SOURCE $trans->run_core_func_decl($base);
    print S <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663759	664054	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664531	664826	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665307	665602	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18722	18845	
==>k, $self->require_value);
          last if $self->get(1)->is_close_paren;
          $self->require_comma;
        }
      } <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19748	19871	
==>k, $self->require_value);
          last if $self->get(1)->is_close_paren;
          $self->require_comma;
        }
      } <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	8334	8433	
==>ot with
    # anything else.
	if ($has_typeinfo && $rule->{'class'} ne 'op' && $rule->{'class'} ne ' <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10246	10367	
==>*No state left on stack: aborting.\n";

			return(undef);
		};

		#shift the error token

#DBG>			$debug & 0x10
#D <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9786	9899	
==>*No state left on stack: aborting.\n";

			return(undef);
		};

		#shift the error token

#DBG>			$debug & 0x10
#D <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	28585	28693	
==>rewrite_other($op, $lastback));
        }
    } elsif (UNIVERSAL::isa($op, "Regex::Ops::List")) {
        ret <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	27193	27303	
==>first acceptable elementname wins!
      } else {
        DEBUG > 1 and print " Can't map '$new_letter' to unkn <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3596	3689	
==>string and
          $string =~ m/(^|^.*?[^\\])\$((([A-Za-z][A-Za-z0-9_]*)\b)|({[A-Za-z][A-Za- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1984	2075	
==>string and
        $string =~ m/(^|^.*?[^\\])\$((([A-Za-z][A-Za-z0-9_]*)\b)|({[A-Za-z][A-Za- <==
3	/Users/nnunley/parrot/config/auto/gc.pm	1171	1291	
==>_malloc')) {
            $conf->data->set(malloc_header => 'malloc.h');
        } else {
            $conf->data->set(mal <==
3	/Users/nnunley/parrot/config/auto/memalign.pm	970	1078	
==>_malloc')) {
        $conf->data->set(malloc_header => 'malloc.h');
    } else {
        $conf->data->set(mal <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4529	4623	
==>addr_decl($base_suffix)>

Returns the C code for the ops address declaration.

=cut

sub ops_ad <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	26435	26560	
==>];
	print <<EOC;
	\t # '$c' := $p $cmt
EOC
	$c = $p;
    }
    else {
	my $p = 5 + keys %params;
	$params{$c} = $c;
	$lexicals <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612976	613068	
==>ect.ops\"\n    VTABLE_set_attr_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613883	613975	
==>ect.ops\"\n    VTABLE_set_attr_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n", <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	5314	5414	
==>Testing module.  He observed that the
main problem is not dealing with these edge cases but that peop <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1937	2036	
==>Z0123456789])/'&#'.(ord($1)).';'/eg;
    # Yes, stipulate the list without a range, so that this can <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2040	2139	
==>Z0123456789])/'&#'.(ord($1)).';'/eg;
    # Yes, stipulate the list without a range, so that this can <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	8963	9072	
==>our test '$name'.  You shouldn't use numbers for your test names.
    Very confusing.
ERR

    my($pack, $file <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716497	716596	
==>rpreter, p));\n  if (s) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724389	724488	
==>rpreter, p));\n  if (s) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, i <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5786	5910	
==>ass->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There should be at most a single group
        my $gr <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5997	6121	
==>ass->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There should be at most a single group
        my $gr <==
3	/Users/nnunley/parrot/lib/Test/More.pm	16745	16845	
==>IN { use_ok('Some::Module', qw(foo bar)) }

is like doing this:

   use Some::Module qw(foo bar);

Ve <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2645	2794	
==>$self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = $op->{arg1}->{s <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2449	2585	
==>$self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  $op->{result}->{symbol} = $op->{arg1}->{s <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	4895	5031	
==>$self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  $op->{result}->{symbol} = $op->{arg1}->{s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	67716	67827	
==>],
                  "BODY" => "#line 1038 \"src/ops/core.ops\"\n  Parrot_go_collect(interpreter);\n  {{+=1}};\n <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	44964	45060	
==>->generate();

=head1 DESCRIPTION

The code generator reads in a tree structure, and walks that t <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	1213	1309	
==>s processing code was intended to be
a read-only representation of what was in a particular ops f <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	6750	6893	
==>td' => 'define',
             'i_ustat' => undef,
             'i_utime' => 'define',
             'i_values' => undef,
             'i_varargs' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	13779	13911	
==>,
			"<" => 3,
			"[" => 14,
			'CODE' => 6,
			"." => 15
		},
		GOTOS => {
			'expr' => 38,
			'charclass' => 12
		}
	},
	{#State 22 <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	1692	1806	
==>uld still compile and run, but you may see a ton of warnings.
END
    }

    # set fixed sized types
    if ($resul <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	7379	7518	
==>{
		    $const = 1;
		    $init  = 1;
		}
		if ($^O eq 'dec_osf') {
		    if ($type eq 'E') {
			$small = 1;
		    } elsif ($type =~ /^[RrQq <==
3	/Users/nnunley/parrot/lib/File/Which.pm	5241	5337	
==>l the program (for
example, C<perl>).

If it finds an executable with the name you specified, C<w <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	901	995	
==>ead1 CONFIGURATION

You must specify paths to executables in a configuration file.
That file ma <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	7078	7197	
==>checks($t->{args}->[1], 0, 0);
        return $t;
    }

    # Have enough for any possible match of this subtree?
    r <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18071	18174	
==>counter:\n";
		push(@dos, { jump => $docounter, needstmt => 1 });
	}
}
sub parse_goto {
	feedme;
	create <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	3583	3673	
==>nt, $total_lines, $real_filename) = /\s*([^%]+)% of (\d+)(?: source)? lines executed in fil <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	11288	11423	
==>\@(\d)}}->vtable->
        (\w+)
        \(interpreter,
        \s*
        {{\@(\d)}},\s*{{\@(\d)}}
        \);
        \s+{{\+=\d}}/xm <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	11735	11870	
==>\@(\d)}}->vtable->
        (\w+)
        \(interpreter,
        \s*
        {{\@(\d)}},\s*{{\@(\d)}}
        \);
        \s+{{\+=\d}}/xm <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	2910	3010	
==>y $file = "lib/Parrot/PMC.pm";
    my @pmcs = split(/ /, $conf->data->get('pmc_names'));

    open(OU <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1934	2054	
==>"-o " . $target . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/include' . $PATHQUOTE . " " .
        "-I" . $ <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2230	2350	
==>"-o " . $target . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/include' . $PATHQUOTE . " " .
        "-I" . $ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2025	2145	
==>"-o " . $target . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/include' . $PATHQUOTE . " " .
        "-I" . $ <==
3	/Users/nnunley/parrot/config/auto/funcptr.pm	1182	1315	
==>jitcapable=0' argument.
END
            exit(-1);
        }
        cc_clean();
        print " (yes) " if $conf->options->get('verbos <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37475	37572	
==>name"} . '})
					if defined $::RD_TRACE;').'
		$Parse::RecDescent::lastexpected = ' . ($rule->has <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39878	39975	
==>name"} . '})
					if defined $::RD_TRACE;').'
		$Parse::RecDescent::lastexpected = ' . ($rule->has <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350996	351184	
==>f(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351658	351846	
==>f(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	2106	2226	
==>iler->emit("  concat $temp, \"$1\"")
        if defined $1 and $1 ne '';

      my $ident = $2;
      $ident =~ s/^{(.*)} <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	981	1083	
==>{
	# We'll emit a label for every single instruction. While we kinda find
	# basic blocks, we don't dis <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11944	12044	
==>put_call_result {
    my ($self, $uid, $name, $fail) = @_;
    my $fail_label = $self->output_label_u <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	12610	12710	
==>put_call_result {
    my ($self, $uid, $name, $fail) = @_;
    my $fail_label = $self->output_label_u <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	2037	2146	
==>tion in bytecode must be the leader of a block
    $leaders{$new_pc} = 1;

    # This loop tries to identify i <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8424	8530	
==>or i = 1 to 20 : read c$(i) : next
print
for i = 1 to 20 step 4
  print c$(i);tab$(12);c$(i+1);tab$(22);c$( <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21288	21394	
==>or i = 1 to 20 : read c$(i) : next
print
for i = 1 to 20 step 4
  print c$(i);tab$(12);c$(i+1);tab$(22);c$( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1104	1210	
==>b dest { return shift->{DEST};  }
sub name { return shift->{NAME};  }
sub args { return @{shift->{ARGS}}; } <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2038	2135	
==>nd_over_number  { --$_[0]{'Indent'} }
sub   end_over_text    { --$_[0]{'Indent'} }
sub   end_over_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1606	1703	
==>nd_over_number  { --$_[0]{'Indent'} }
sub   end_over_text    { --$_[0]{'Indent'} }
sub   end_over_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	879	980	
==>rint "Stack is now: ",
    join(">", map $_->[0], @{$_[0]{'_currpos'}}), "\n";
  return;
}

sub _handl <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1112	1213	
==>rint "Stack is now: ",
    join(">", map $_->[0], @{$_[0]{'_currpos'}}), "\n";
  return;
}

sub _handl <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	5904	5995	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
#
# And now directives (not targets)

sub a <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	16023	16166	
==>($vector, $scalar, @order);
           if ($type1 eq 'APLVector') {
               $vector = "op1";
               $scalar = "op2";
			   @order <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27601	27720	
==>'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 139,
			'functioncall' => 31,
			'function' => 2 <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1168	1287	
==>ent_test + 1;

        # This is taken from Parrot::Test::Tcl.pm

        # Figure out how many levels we have to go bac <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27345	27459	
==>ent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;').'
		$lastsep = "";
		$Par <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29455	29569	
==>ent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;').'
		$lastsep = "";
		$Par <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31552	31666	
==>ent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;').'
		$lastsep = "";
		$Par <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	18164	18304	
==>rt_line' => $para->[1]{'start_line'}, '~really' => '=for'},
          $target,
        ],
      ;
      
      next;
      
    } elsif($para <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	18211	18324	
==>elet hack to $_[0][0]\n";
    $treelet = $_[0][0];
    splice @$treelet, 0, 2;  # lop the top off
    return $tree <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5164	5266	
==>qnum++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		return(<<CODE, $result);
	# XOR $a1, $a2
	set $result <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194901	195196	
==>RELATIVE",
                  "NAME" => "lt_str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	1512	1644	
==>ate the makefile.
# ######################
sub generate_makefile(%) {
	my %config = @_;

    # Generate class library make instr <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	13567	13662	
==>tref =~ m/\G($ldel_outer)/gc)	# OUTERMOST DELIMITER
	{
		_failmsg qq{Did not find expected openi <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	1822	1934	
==>test files to run.\n";
}
my $cmd = "$^X t/harness @tests";
print "$cmd\n";
system $cmd;

print "we are skipping $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191646	191739	
==>>vtable->get_number(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192586	192679	
==>>vtable->get_number(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n" <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	8586	8697	
==>his = shift;
  foreach my $t (@_) {
    next unless defined $t and length $t;
    # TODO: enforce some limitatio <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042884	1042973	
==>=> "#line 125 \"src/ops/var.ops\"\n    VTABLE_set_pmc_keyed_str(interpreter, {{\@1}}, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043781	1043870	
==>=> "#line 125 \"src/ops/var.ops\"\n    VTABLE_set_pmc_keyed_str(interpreter, {{\@1}}, {{\@ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	2996	3104	
==>al int match_num
    .local int ii
    .local int valid_flag
    set num_groups, result["!GROUPS"]
    set ma <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	10170	10275	
==>arg is a reference variable, remember.
                $arg = $self->add_checks($arg, $guarantee, $follow_ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2356	2449	
==>get, $pattern, $expected, $description, @todo)>

Runs the target string against the Perl 6 pat <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3790	3883	
==>get, $pattern, $expected, $description, @todo)>

Runs the target string against the Perl 6 pat <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	2772	2894	
==>er be used, all of these defaults will get overridden.
my %options = ( buildprefix => '',
                prefix      => '/ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	2043	2160	
==>ING'),
            $self->new_item('The status of the Parrot test suite.', 't/TESTS.STATUS.pod'),
        ),
        $ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	31413	31523	
==>har {
}

sub _op_eof_object_p {
}

sub _op_char_ready_p {
}

sub _op_write {
  my ($self,$node) = @_;
  my $tem <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5095	5207	
==>$self = shift;
  my ($handler) = @_;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $self- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3158	3270	
==>$self = shift;
  my ($handler) = @_;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $self- <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	512	610	
==>ning information about the ops.

=head2 Options

=over 4

=item C<--help>

Print synopsis.

=item C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710558	710701	
==>"
                            ],
                  "BODY" => "#line 50 \"src/ops/python.ops\"\n  PMC * const io = PIO_STDOUT(interpreter);\n  if <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711392	711535	
==>"
                            ],
                  "BODY" => "#line 50 \"src/ops/python.ops\"\n  PMC * const io = PIO_STDOUT(interpreter);\n  if <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1924	2036	
==>$temp = \"\"");

    while (1) {
      last unless defined $string and
        $string =~ m/(^|^.*?[^\\])\$((([A- <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	135	306	
==>ion.
# $Id: /parrot/tools/dev/install_files.pl 19607 2006-05-30T15:23:20.183054Z coke  $
################################################################################

= <==
3	/Users/nnunley/parrot/config/inter/shlibs.pm	1010	1112	
==>t flags instruct your compiler to compile code suitable for use in a shared library?",
        $cc_shar <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	657	749	
==>Construct::Expression::Value');
  confess("Right (" . ref($right) . ") is not Identifier") un <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	12431	12611	
==>tack
        #   expr OFFSET(X)     {{^+X}}  PC + X        Relative address
        #   expr NEXT()        {{^+S}}  PC + S        Where S is op size
        #   expr ADDRESS(X)    { <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1808	1937	
==>g;
  }
  else {
    return $ident_name;
  }
}


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  retur <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33544	33664	
==>s where we /didn't/ push to @$para
            if($paras->[0][0] eq '~Para') {
              DEBUG and print "Assimilatin <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35357	35477	
==>s where we /didn't/ push to @$para
            if($paras->[0][0] eq '~Para') {
              DEBUG and print "Assimilatin <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11078	11170	
==>--------------------------------
1;
__END__

=head1 NAME

Pod::Escapes -- for resolving Pod E <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	18978	19129	
==>$rd1pos,	# RIGHT DEL
			$ld2pos,	0,			# NO 2ND LDEL
			$ld2pos,	0,                	# NO 2ND STR
			$ld2pos,	0,	                # NO 2ND RDEL
			$ld2pos, <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4370	4480	
==>ed ($?)\n";
    }

    # Link non-grouped PMCs individually
    my @ungrouped_pmcs = grep { ! exists $pmc_group <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4474	4584	
==>ed ($?)\n";
    }

    # Link non-grouped PMCs individually
    my @ungrouped_pmcs = grep { ! exists $pmc_group <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547536	547779	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fact",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548442	548685	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fact",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180516	180695	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 278 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181412	181591	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 278 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	922310	922638	
==>":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1038,
                  "ARGS" => [
                              "p" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550165	550255	
==>UATION;\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_method(interpret <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551466	551556	
==>UATION;\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_method(interpret <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349321	349594	
==>um_class_Undef);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350323	350596	
==>um_class_Undef);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	16427	16528	
==>a file is newer than the PMC file.
(If it's not, then the PMC file has changed and the dump has
not be <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	14458	14569	
==>}:
	new P12, .PerlArray   # OR
	new P13, .PerlArray   # TO
	new P14, .PerlArray   # Operators.  Op first, then v <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607540	607633	
==>c/ops/object.ops\"\n    {{\@1}} = VTABLE_get_attr(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608444	608537	
==>c/ops/object.ops\"\n    {{\@1}} = VTABLE_get_attr(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}} <==
3	/Users/nnunley/parrot/config/gen/config_h.pm	862	974	
==>ATE',
        conditioned_lines => 1
    );

    genfile(
        'config/gen/config_h/feature_h.in', 'include/pa <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	1829	1925	
==>o on 18APR2005, run the test suite with --gc-debug
    if ( $ENV{TEST_PROG_ARGS} && $ENV{TEST_PRO <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	3096	3192	
==>BLE_IS_SHARED_FLAG   = 0x20,
    VTABLE_IS_CONST_PMC_FLAG = 0x40
} vtable_flags_t;

struct _vtabl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3263	3361	
==>$sym = $self->block->find_symbol($name);

  my %props = $sym->props;

  if (exists $props{fn} or ex <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840134	840218	
==>line 272 \"src/ops/stack.ops\"\n  rotate_entries(interpreter, &CONTEXT(interpreter->c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840829	840913	
==>line 272 \"src/ops/stack.ops\"\n  rotate_entries(interpreter, &CONTEXT(interpreter->c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065079	1065175	
==>ine 260 \"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065953	1066049	
==>ine 260 \"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABL <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74932	75023	
==>>>>>>: ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$errorprefix,          $error <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	29149	29259	
==>func {
	feedme;
	my $t=$seg;
	$seg=~s/^_//;       # Remove the _
	$seg=~tr/A-Z/a-z/;  # lowercase
	$seg=~s/user <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152438	152735	
==>ATIVE",
                  "NAME" => "eq_str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	6210	6304	
==>C<Digest::MD5>
for those amounts of data.

=item *

C<Digest::Perl::MD5> loads all data to encr <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	13002	13109	
==>lename) or die "Can't open $filename: $!";
    my $text = do {local $/; <$fh>};
    close($fh) or die "Can't <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2037	2135	
==>. $index_html . "</p>\n\n";
		}
		
		$index_html = "<p>$self->{TEXT}</p>\n\n" . $index_html if $sel <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	13684	13799	
==>king
        
      } elsif( $token->is_end and $content_containers{ $token->tagname } ) {
        DEBUG and print " <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	25680	25791	
==>shname};
	return $dir->code($namespace, $rule, 0);
}

1;

package Parse::RecDescent::Token;

sub sethashname { $ <==
3	/Users/nnunley/parrot/examples/benchmarks/addit.pl	762	860	
==>-$x) {
    $result = varargs_adder(@args);
}
print "$result\n";

=head1 SEE ALSO

F<examples/benchm <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	2712	2838	
==>homp;
        $line++;

        # If it's a blank line or a comemnt line, skip it.
        next if !$in_heredoc && /^\s*#|^\s*$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630485	630585	
==>VAL type = pmc_type_p(interpreter, class);\n    if (type <= 0)\n        real_exception(interpreter, N <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631475	631575	
==>VAL type = pmc_type_p(interpreter, class);\n    if (type <= 0)\n        real_exception(interpreter, N <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41813	41932	
==>describe
						  . ']>>},
						  Parse::RecDescent::_tracefirst($text),
						  q{' . $rule->{"name"} .'})
							if de <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38122	38233	
==>describe . ']>>},
						  Parse::RecDescent::_tracefirst($text),
						  q{' . $rule->{"name"} .'})
							if de <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	28843	28939	
==>extracted text. That means that in a list context the various
subroutines can be used much like r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028139	1028231	
==>nnot go back in time\");\n  }\n  next = Parrot_sleep_on_event(interpreter, (FLOATVAL) {{\@1}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028990	1029082	
==>nnot go back in time\");\n  }\n  next = Parrot_sleep_on_event(interpreter, (FLOATVAL) {{\@1}} <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	12255	12363	
==>self, $name, $mode, $uid) = @_;
#    if ($mode) {
        return split(/\n/, <<"END");
\$$uid = _rule_$name($ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22037	22139	
==>ate($node->{children}[1]);
  $self->_add_inst(''           ,'lt'    ,[$temp,0,"DONE_$label"]);
  $self- <==
3	/Users/nnunley/parrot/lib/Test/More.pm	27619	27713	
==>produce no diagnostics to help figure
out what went wrong.  They were written before is_deeply( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192343	192592	
==>,
                  "ARGS" => [
                              "p",
                              "nc",
                              "ic"
                            ],
                  "BODY" => "#line 313 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	1051	1165	
==>urn ${$_[0]};
}

sub PRINTF {
  my $it = shift;
  my $format = shift;
  $$$it .= sprintf $format, @_;
  return 1;
} <==
3	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	309	409	
==>clintp
# For new assembler
#
# Revision 1.8  2002/05/25 02:36:14  clintp
# Added autorun.bas, removed <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831009	831318	
==>:base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 940,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" = <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	43726	43844	
==>) {
    my $func = _get_arg ($node, 0);
    if (exists $func->{value}) {
      my $symbol = $func->{value};
      if (e <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4164	4272	
==>:Data> object.

=cut

sub clean
{
    my $self = shift;

    delete $self->{c}{$_} for grep { /^TEMP_/ } CORE <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	3383	3525	
==>ength {
    my ($file, $source) = @_;

    my $line = 0;
    foreach (@$source) {
        $line++;
        next unless defined $_;

        # i <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32030	32142	
==>o { $_tok = "' . $self->{"pattern"} . '"; 1 } and
		     substr($text,0,length($_tok)) eq $_tok and
		     do { s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2203	2294	
==>.  For example, "foo.bar:baz" becomes start_foo_bar_baz
and end_foo_bar_baz.

See the source <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147952	148220	
==>> "function",
                  "CODE" => 180,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 98 \"src/ops/cmp.ops <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557843	557938	
==>TRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  interpreter->current_cont = CONTEXT(in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559227	559322	
==>TRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  interpreter->current_cont = CONTEXT(in <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63657	63792	
==>cDescent::Repetition($name,$1,1,$MAXREP,
										   $lookahead,$line,
										   $self,
										   $matchrule,
										   $argco <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	3921	4050	
==>( $type eq '$') {
            $out .= "    \$r->$elem = $init undef;$cmt\n";
        }
        elsif( $type =~ /^\w+(?:::\w+)*$/ ) <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	1147	1248	
==>houldn't be a problem.

=head1 TODO

The original design of the ops processing code was intended to be <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	750	853	
==>f.
#
# This notice should remain unchanged.
#
# (c) Copyright 1998-2001 Francois Desarmenien, all ri <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	730	829	
==>f.
#
# This notice should remain unchanged.
#
# (c) Copyright 1998-2001 Francois Desarmenien, all ri <==
3	/Users/nnunley/parrot/lib/Test/More.pm	8214	8312	
==>So you can figure out what went wrong without rerunning the test.

You are encouraged to use is() a <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33863	33974	
==>:RecDescent::_tracefirst($text),
				  q{' . $rule->{"name"} . '})
					if defined $::RD_TRACE;').'
		if (1) { n <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34743	34852	
==>:RecDescent::_tracefirst($text),
						  q{' . $rule->{"name"} .'})
							if defined $::RD_TRACE;').'
			if ( <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41853	41962	
==>:RecDescent::_tracefirst($text),
						  q{' . $rule->{"name"} .'})
							if defined $::RD_TRACE;').'
			if ( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	3025	3137	
==>1;
}


#
# current_block()
#
# Returns the block on the top of the block stack.
#

sub current_block
{
  my $self <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1810	1901	
==>tart_over_bullet  { ++$_[0]{'Indent'} }
sub start_over_number  { ++$_[0]{'Indent'} }
sub sta <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1378	1469	
==>tart_over_bullet  { ++$_[0]{'Indent'} }
sub start_over_number  { ++$_[0]{'Indent'} }
sub sta <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	464	561	
==>);
  $new->{'output_fh'} ||= *STDOUT{IO};
  #$new->accept_codes('VerbatimFormatted');
  return $ne <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	268	364	
==>);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->accept_codes('VerbatimFormatted');
  return $ne <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	267	363	
==>);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->accept_codes('VerbatimFormatted');
  return $ne <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917744	918043	
==>> "inline",
                  "CODE" => 1033,
                  "ARGS" => [
                              "i",
                              "sc",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 289 \"src/ops/str <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11027	11143	
==>}}, <<EOASS;
@code
EOASS
		if ($syms[CURR] eq ",") {
			#feedme();
			next;
		}
	}
}
sub parse_swap {
	my(@f, @s);
	f <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	2515	2610	
==>::Simple::Debug will
throw a fatal error to the effect that
"it's s too late to call Pod::Simple <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037706	1037817	
==>var.ops\"\n    Parrot_store_global(interpreter, NULL, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038487	1038598	
==>var.ops\"\n    Parrot_store_global(interpreter, NULL, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	1197	1291	
==>.html', '', 'languages/bf'),
        $self->new_section('Cola', 'cola.html', '', 'languages/col <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18113	18226	
==>meth, 'key' );
    push @opcodes, @{ $key->[1] };
    my $result = new_tmp( $parser, 'pmc' );
    push @opcodes <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1231	1338	
==>t

sub gen_goto
{
    my ($self, $where_str) = @_;

    return "return (opcode_t *)$where_str";
}

=item C<e <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	299	391	
==>rnings";

package Jako::Construct::Block::Loop::Until;

use Carp;

use base qw(Jako::Construc <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3241	3358	
==>tent;
		}
		else
		{
			# It would be good to check the short description for each
			# file and create an item for se <==
3	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	974	1076	
==>bmissions.pod on how to recreate this file after SVN
# has been told about new generated files.
# 
# Ig <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3829	3930	
==>bmissions.pod on how to recreate this file after SVN
# has been told about new generated files.
#
# Ig <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	27359	27470	
==>onymous sub that is just like extract_tagged
# but pre-compiled and optimized for a specific pair of tags, and c <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	31309	31403	
==>ackslash (C<\>).
If the prefix is not specified, the
pattern C<'\s*'> - optional whitespace - i <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45824	45914	
==>G\s*<error(\??):';
my $UNCOMMITPROD	= $PROD.'\s*<uncommit';
my $ERRORPROD		= $PROD.'\s*<err <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443587	443674	
==>ne 114 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444602	444689	
==>ne 114 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4} <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	1543	1668	
==>s are not instantiated.', 
	        @abstract_items
	    ),
		$self->new_group(
	        'Concrete PMCs', 
	        'These PMC <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2705	2801	
==>ence
PRINT "1 in module-level code"
GOSUB Sub1
PRINT "ERR this line in main routine should be ski <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16672	16768	
==>ence
PRINT "1 in module-level code"
GOSUB Sub1
PRINT "ERR this line in main routine should be ski <==
3	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	52	209	
==>w {
        my $proto  = shift;
        my $class  = ref($proto) || $proto;
        my $parser = shift;
        my %attr   = @_;
        my $self   = \%a <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	1794	1901	
==>.in" or die "Unable to open config/Makefile.in\n";
	my $makefile = join('', <$fh>);
	close $fh;
	
	# Sub <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327136	327389	
==>{\@1}}, (INTVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327938	328191	
==>{\@1}}, (INTVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	69536	69661	
==>e.ops\"\n  Parrot_unblock_GC(interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27624	27744	
==>reak    = new_label($parser);
    push @opcodes, new LabelOp( $parser,
        'arg1' => $l_continue,
    );
    fore <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2312	2428	
==>{
		$retval = $self->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exists($$self{USER})
	or <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2226	2332	
==>{
		$retval = $self->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exists($$self{USER})
	or <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522193	522354	
==>"
                            ],
                  "BODY" => "#line 744 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523048	523209	
==>"
                            ],
                  "BODY" => "#line 744 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523903	524064	
==>"
                            ],
                  "BODY" => "#line 744 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462736	462835	
==>ODY" => "#line 322 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463733	463832	
==>ODY" => "#line 322 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464730	464829	
==>ODY" => "#line 322 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_ <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	5585	5730	
==>i_sysexit' => undef,
             'i_sysfile' => 'define',
             'i_sysfilio' => 'define',
             'i_sysin' => undef,
             'i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365307	365461	
==>ter, {{\@1}}, {{\@2}});\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366147	366301	
==>ter, {{\@1}}, {{\@2}});\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	15952	16046	
==>E<<TOS;
	I5= P13
	div I5, I5, 2
CASE_${jump}_${incase}_STARTTO:
	eq I5, 1, CASE_${jump}_${incas <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	12523	12621	
==>oke  $

=head1 AUTHOR

Gregor N. Purdy E<lt>gregor@focusresearch.comE<gt>

=head1 COPYRIGHT

Copyri <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	62394	62492	
==>or '%' at the start of
a variable, but didn't find any of them.

=item C<Bad identifier after deref <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	75258	75342	
==>ormat TRACE =
|@|||||||||@^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<|
$tracerulename, '|' <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4149	4260	
==>{
	{
		no strict 'refs';

			exists(${__PACKAGE__.'::'}{_DBParse})#Already loaded ?
		and	return;
	}
	my( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3938	4042	
==>{
	{
		no strict 'refs';

			exists(${__PACKAGE__.'::'}{_DBParse})#Already loaded ?
		and	return;
	}
	my( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	391	497	
==>nstruct::Block::Conditional);

#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $left, $op, $right <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	403	509	
==>nstruct::Block::Conditional);

#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $left, $op, $right <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	31853	31952	
==>newline {
}

sub _op_write_char {
}

sub _op_load {
}

sub _op_transcript_on {
}

sub _op_transcript <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	83	186	
==>20340 2006-06-22T21:49:11.552283Z bernhard  $

=head1 NAME

Parrot::Pmc2c - PMC to C Code Generation

=h <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477147	477373	
==>o\");\n  {{\@1}} = (INTVAL)floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478043	478269	
==>o\");\n  {{\@1}} = (INTVAL)floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	1222	1322	
==>C<$pmcfile> is the name
of the original source F<*.pmc> file.

=cut

sub dont_edit {
    my ($pmcfile <==
3	/Users/nnunley/parrot/lib/Test/More.pm	31757	31883	
==>$ok = _deep_check($e1, $e2);
        pop @Data_Stack if $ok;

        last unless $ok;
    }

    return $ok;
}

=item B<eq_set <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35058	35153	
==>ecDescent::lastunexpected;
			}
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42168	42263	
==>ecDescent::lastunexpected;
			}
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	972	1069	
==>. Of course,
the prefix could come explicitly from the source code if the loop was labeled.

TODO: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627445	627532	
==>ew_noinit(interpreter, {{\@2}});\n  {{\@1}}->vtable->init(interpreter, {{\@1}});\n  {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628589	628676	
==>ew_noinit(interpreter, {{\@2}});\n  {{\@1}}->vtable->init(interpreter, {{\@1}});\n  {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327999	328270	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_r4",
                  "FLAGS" => ":dotg <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	34281	34418	
==>( $parser,
            'result' => $result,
        );
        push @opcodes1, new AssignOp( $parser,
            'result' => $result, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	445616	445713	
==>ne 119 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_ppp(interpreter, {{\@3}}, {{\@4}}, NULL, { <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	963	1065	
==>now the implementation does not yet work), pass:

    todo => 'reason to consider this TODO'

at the en <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37439	37541	
==>efirst($text),
				  q{' . $rule->{"name"} . '})
					if defined $::RD_TRACE;').'
		$Parse::RecDescent: <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39842	39944	
==>efirst($text),
				  q{' . $rule->{"name"} . '})
					if defined $::RD_TRACE;').'
		$Parse::RecDescent: <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7663	7796	
==>, $1;
        } elsif( $tagname eq 'Para') {
          $tagname = 'Para_item' if @stack and $stack[-1] eq 'text';
        }
        pr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645845	645931	
==>reter->vtables[{{\@2}}]->whoami;\n    else\n\t\t{{\@1}} = Parrot_get_datatype_name(inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646742	646828	
==>reter->vtables[{{\@2}}]->whoami;\n    else\n\t\t{{\@1}} = Parrot_get_datatype_name(inte <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	5522	5633	
==>s representing the Parrot ops.

    =cut
END_POD

my $preamble = <<END_C;
#! perl -w
#
# !!!!!!!   DO NOT EDIT T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026511	1026621	
==>280 \"src/ops/sys.ops\"\n   {{\@1}} = sysinfo_i(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1027268	1027378	
==>280 \"src/ops/sys.ops\"\n   {{\@1}} = sysinfo_i(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716215	716420	
==>=> 803,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 87 \"src/ops/python.ops\"\n  PMC * const p = {{\@1}};\n  PMC * const <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34767	34874	
==>($text),
						  q{' . $rule->{"name"} .'})
							if defined $::RD_TRACE;').'
			if ($Parse::RecDescent::la <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41877	41984	
==>($text),
						  q{' . $rule->{"name"} .'})
							if defined $::RD_TRACE;').'
			if ($Parse::RecDescent::la <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	3258	3364	
==>the 
        # same back-end file (core.ops, for example)
        if (exists($file_line_coverage{$source_fi <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	2147	2245	
==>ass> is C<Parrot::Pmc2c>.

=cut

my %special_class_name = map {($_,1)}
    qw( Ref default Null del <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1755	1852	
==>b start_item_text   { $_[0]{'Thispara'} = ''   }

sub start_over_bullet  { ++$_[0]{'Indent'} }
sub <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1323	1420	
==>b start_item_text   { $_[0]{'Thispara'} = ''   }

sub start_over_bullet  { ++$_[0]{'Indent'} }
sub <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	277	380	
==>ION = '2.02';
@ISA = ('Pod::Simple::Methody');
BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG)
          ? <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	159	262	
==>ION = '2.02';
@ISA = ('Pod::Simple::Methody');
BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG)
          ? <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	49190	49287	
==>0x20 literals are found in the input, or
under-E<32> E codes are found in the tree. And ditto \x7f <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	593	692	
==>Block');
  confess("Dest (" . ref($dest) . ") is not Identifier!") unless UNIVERSAL::isa($dest, 'Jak <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	584	683	
==>Block');
  confess("Dest (" . ref($dest) . ") is not Identifier!") unless UNIVERSAL::isa($dest, 'Jak <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	473	572	
==>Block');
  confess("Dest (" . ref($dest) . ") is not Identifier!") unless UNIVERSAL::isa($dest, 'Jak <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	3155	3274	
==>($source);
    my @short_desc = ();
    
    foreach my $rel_path (@rel_paths)
    {
        my $file = $source->file_wi <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32530	32636	
==>(q{<<Didn\'t match terminal>>},
						  Parse::RecDescent::_tracefirst($text))
							if defined $::RD_TRAC <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28255	28359	
==>(q{<<Didn\'t match terminal>>},
						  Parse::RecDescent::_tracefirst($text))
					if defined $::RD_TRAC <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35121	35256	
==>d processing.  But it'll block assimilation
             #  of the next para.
          } else {
            die "Unhandled item type $i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791574	791661	
==>line 432 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed_int(interpret <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792481	792568	
==>line 432 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed_int(interpret <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4088	4200	
==>bs) = 
        gather_groups_and_libs(@pmcs);

    # Convert lib-GROUP.so + A.so + B.so ... -> GROUP.so
    while <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4192	4304	
==>bs) = 
        gather_groups_and_libs(@pmcs);

    # Convert lib-GROUP.so + A.so + B.so ... -> GROUP.so
    while <==
3	/Users/nnunley/parrot/lib/Test/More.pm	8514	8611	
==>oes not check if C<exists $brooklyn{tree}> is true, it checks if
it returns 1.  Very different.  S <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	7748	7875	
==>, and operates on the beginning instead of the end!
          
          if($to_unget[-1]->type eq 'text') {
            if( ($t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	725980	726072	
==>ODY" => "#line 29 \"src/ops/set.ops\"\n  {{\@1}} = string_copy(interpreter, {{\@2}});\n  {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726742	726834	
==>ODY" => "#line 29 \"src/ops/set.ops\"\n  {{\@1}} = string_copy(interpreter, {{\@2}});\n  {{+= <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	930	1029	
==>>kind } });
  $_->sax($handler) foreach $self->content;
  $handler->end_element({ Name => 'block' }) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1943	2042	
==>>kind } });
  $_->sax($handler) foreach $self->content;
  $handler->end_element({ Name => 'block' }) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2737	2836	
==>>kind } });
  $_->sax($handler) foreach $self->content;
  $handler->end_element({ Name => 'block' }) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634412	634617	
==>,
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 107 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6848	6941	
==>234567890"
print mid$(t$, 2, 8)
print left$(t$, 5)
print right$(t$, 5)
' instr
s1$="The longer <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18577	18670	
==>234567890"
print mid$(t$, 2, 8)
print left$(t$, 5)
print right$(t$, 5)
' instr
s1$="The longer <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432438	432525	
==>ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433453	433540	
==>ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, { <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	12888	13057	
==>C + X
        #   restart NEXT()     {{=0,+=S}}   PC' = 0       Restarts at PC + S
        #
        #   $X                 {{@X}}   Argument X    $0 is opcode, $1 is fir <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	2416	2512	
==>pe[CURR] Sym $syms[CURR]\n";
	goto UNK if ($type[CURR] ne 'BARE');
	goto BARE if (! iskeyword($sy <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2415	2503	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__END__

=head1 NAME

Pod::Simple::XMLOutStrea <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060150	1060378	
==>\n    {{\@1}} = Parrot_get_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061055	1061283	
==>\n    {{\@1}} = Parrot_get_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	2746	2871	
==>ethod specified yet?
        } elsif (!$cur_method) {
            die "Syntax error at line $line_count\n";

        # Have we <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	750	877	
==>ew
{
    my $self = shift;
    my $path = shift;
    
    return unless defined $path and ! -d $path;
    
    return $self->SUP <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	40022	40156	
==>dDir($parser);
        foreach my $op (@opcodes) {
            if ( $op and $op->isa('BranchOp') ) {
                if ( $op->{resu <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10231	10346	
==>print STDERR "**No state left on stack: aborting.\n";

			return(undef);
		};

		#shift the error token

#DBG <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9771	9879	
==>print STDERR "**No state left on stack: aborting.\n";

			return(undef);
		};

		#shift the error token

#DBG <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	2922	3038	
==>g:
    #

    if ($text =~ m{^([,])(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, 'comma', und <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714729	714822	
==>o, \" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715652	715745	
==>o, \" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716597	716690	
==>o, \" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(interpr <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	12791	12908	
==>se
        my $test = defined $got || defined $dont_expect;

        $self->ok($test, $name);
        $self->_cmp_diag <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	13235	13352	
==>se
        my $test = defined $got || defined $dont_expect;

        $self->ok($test, $name);
        $self->_cmp_diag <==
3	/Users/nnunley/parrot/config/auto/headers.pm	2163	2265	
==>et(testheaders => join('', map { "#include <$_>\n" } @$use_headers));
            $conf->data->set(test <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037009	1037332	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037789	1038112	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038570	1038893	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARG <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27910	28023	
==>)
		{
			'.($self->{"lookahead"} ? '$text = $_savetext;' : '').'
			if ($Parse::RecDescent::lastexpected
			    && <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29984	30097	
==>)
		{
			'.($self->{"lookahead"} ? '$text = $_savetext;' : '').'
			if ($Parse::RecDescent::lastexpected
			    && <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32185	32298	
==>)
		{
			'.($self->{"lookahead"} ? '$text = $_savetext;' : '').'
			if ($Parse::RecDescent::lastexpected
			    && <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	48909	49056	
==>1 "Lua\lua51.yp"
{
            PushScopeF( $_[0] );
            PushScope( $_[0] );
        }
	],
	[#Rule 27
		 'stat', 4,
sub
#line 166 "L <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940258	940397	
==>s"
                            ],
                  "BODY" => "#line 486 \"src/ops/string.ops\"\n    {{\@1}} = string_split(interpreter, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941150	941289	
==>s"
                            ],
                  "BODY" => "#line 486 \"src/ops/string.ops\"\n    {{\@1}} = string_split(interpreter, {{\ <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	904	1011	
==>1 } @static_cmds;
for my $cmd (@dynamic_cmds) {
    # skip if there's a static version
    next if $static_c <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1765	1868	
==>h my $x (@_) {
    # Escape things very cautiously:
    $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1868	1971	
==>h my $x (@_) {
    # Escape things very cautiously:
    $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897928	898209	
==>ODE" => 1013,
                  "ARGS" => [
                              "s",
                              "ic",
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  (v <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	57811	57926	
==>"Token items are not yet
					supported: \"$code\"",
					       $line);
					_hint("Items like $code that consist o <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	21917	22012	
==>ag() is often used in conjunction with
a failing test (C<ok() || diag()>) it "passes through" th <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42888	43056	
==>S" => [
                              "ic"
                            ],
                  "BODY" => "#line 727 \"src/ops/core.ops\"\n  do_exception(interpreter, EXCEPT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630437	630538	
==>ps/pmc.ops\"\n    PMC *class = {{\@2}};\n    INTVAL type = pmc_type_p(interpreter, class);\n    if (ty <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631427	631528	
==>ps/pmc.ops\"\n    PMC *class = {{\@2}};\n    INTVAL type = pmc_type_p(interpreter, class);\n    if (ty <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	67805	67982	
==>rpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sweepo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	68245	68422	
==>rpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sweepo <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	6938	7027	
==>-----------------
# TODO: document these:

sub unaccept_directive { shift->unaccept_direct <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13197	13316	
==>business
      # seeing a close-brace.
      #

      $self->SYNTAX_ERROR("Closing brace without open block.")
        u <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	3349	3460	
==>erated.

=item C<const_too>

Classes with this flag get 2 vtables and 2 enums, one pair with
read/write set meth <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	2630	2726	
==>ion->new;

    $dist->delete_html_docs if $delete;

    $self->write_html($dist, $dist->html_docs <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85650	85922	
==>_hash, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86557	86829	
==>_hash, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	11275	11393	
==>_$temp_num = (short)GET_NCI_I($reg_num);";
        return "t_$temp_num";
    };
    /c/ && do {
        push @{$temps_r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795831	796119	
==>],
                  "TYPE" => "inline",
                  "CODE" => 898,
                  "ARGS" => [
                              "p",
                              "kc",
                              "ic"
                            ],
                  "BODY" => "#line 457 \"src/ops <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	14366	14478	
==>h
strtok      string.h
strtol      stdlib.h
strtold     stdlib.h
strtoll     stdlib.h
strtoul     stdlib.h
strtou <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr3.pm	205	314	
==>get_out_fn {
    my $self = shift;
    my ( $count, $options ) = @_;

    return Parrot::Test::per_test( '_ant <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	9410	9526	
==>my $max = $t->maxlen();
        if (!defined($max) || $max < 0) { $guarantee = 0; }
        else { $guarantee /= $max <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2411	2516	
==>$sym->line, $sym->file);
  }

  #
  # Now that we've decided to actually declare the constant, we will pla <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2158	2263	
==>$sym->line, $sym->file);
  }

  #
  # Now that we've decided to actually declare the constant, we will pla <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	229	352	
==>$*ERR.say("Empty compile time value given to lib.import()");
        }
        if (-e $path && !-d $path) {
            $*ER <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	1359	1470	
==>sub count
{
  my $self = shift;

  return scalar(@{$self->{TOKENS}});
}


#
# pos()
#
# Returns (or sets) the ab <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	49098	49193	
==>e, and the
version of Pod::Simple.

option to delete all E<shy>s?
option to scream if under-0x20 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557562	557789	
==>=> 639,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 131 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *m <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7076	7173	
==>(1): ", instr(s1$, "")
print "Start (11): ", instr(6, s1$, " ")
print "Inval  (0): ", instr(4, bog <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18805	18902	
==>(1): ", instr(s1$, "")
print "Start (11): ", instr(6, s1$, " ")
print "Inval  (0): ", instr(4, bog <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	948	1057	
==>stdir = 'runtime/parrot/include';

@args = qw(verbose);

sub runstep
{
    my ($self, $conf) = @_;

    # need <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2441	2536	
==>erl 6 pattern, passing the test
if the output produced by the test code matches the C<$expected> <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3875	3970	
==>erl 6 pattern, passing the test
if the output produced by the test code matches the C<$expected> <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	1425	1540	
==>edim rem reset restore resume
				return rmdir rset run
			screen seek select case shared shell single sleep
				sou <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663654	663741	
==>"BODY" => "#line 354 \"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delete_keyed(interpreter, { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664426	664513	
==>"BODY" => "#line 354 \"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delete_keyed(interpreter, { <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10874	10969	
==>EMENT_TYPE_U4 = 0x09
	.const int ELEMENT_TYPE_I8 = 0x0A
	.const int ELEMENT_TYPE_U8 = 0x0B
	.con <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	506	595	
==>ock) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Ident <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	506	595	
==>ock) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Ident <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	8298	8430	
==>RING',
        'void*'    => 'void*',
        'INTVAL'   => 'Parrot_Int',
        'PMC*'     => 'Parrot_PMC',
        'FLOATVAL' => ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828756	828847	
==>y_type != STACK_ENTRY_PMC) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829824	829915	
==>y_type != STACK_ENTRY_PMC) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15546	15635	
==>ol chars, and 7f-ff.
    $x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16725	16814	
==>ol chars, and 7f-ff.
    $x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3480	3590	
==>value; # TODO: We should make sure its a string, somewhere.
    }
    else {
      $self->SYNTAX_ERROR("Sub dec <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6144	6254	
==>value; # TODO: We should make sure its a string, somewhere.
    }
    else {
      $self->SYNTAX_ERROR("Sub dec <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	58010	58103	
==>lit pattern has capturing parentheses), you would
just make the last parameter undefined (or r <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	1288	1406	
==>KENS}};
  }
}


#
# token_count()
#
# Returns the number of tokens.
#

sub count
{
  my $self = shift;

  return scalar <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	2463	2564	
==>>[4] =~ /MMD_/);
        my $args = join(", ", 'Interp* interpreter', 'PMC* pmc', split(/\s*,\s*/, $en <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	991	1127	
==>' and
            $token =~ /^[<>]/) {  # Equal sign can follow '<','>'
      $token .= $ch;
    } elsif($ch eq '.' and
            $toke <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	198	294	
==>DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG;
}

__PACKAGE__->_accessorize(
  'root',   # r <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	18016	18108	
==>nopsis above, or the source for Pod::Simple::RTF.

Authors of formatter subclasses might find <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548212	548461	
==>i>0) {\n    q = q*i;\n    i--;\n  }\n  {{\@1}} = q;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549119	549368	
==>i>0) {\n    q = q*i;\n    i--;\n  }\n  {{\@1}} = q;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	5216	5319	
==>($3)->u.number/ if ($asm =~ /CONST.*CONST/);
                $asm =~ s/(emitm_pushl_m[^\n]*CONST[^\n]*)/ <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3228	3340	
==>e can't use -opt: and -debug together.
        if ($conf->data->get('ld_debug') =~ /-debug/) {
            my $li <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4732	4844	
==>e can't use -opt: and -debug together.
        if ($conf->data->get('ld_debug') =~ /-debug/) {
            my $li <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	18007	18100	
==>ee the Synopsis above, or the source for Pod::Simple::RTF.

Authors of formatter subclasses mi <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	11688	11821	
==>\.ops")\s+
        {{\@(\d)}}\s*=\s*
        {{\@(\d)}}->vtable->
        (\w+)
        \(interpreter,
        \s*
        {{\@(\d)}}, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	750	859	
==>$block,
    IDENT => $ident
  }, $class;

  $block->push_content($self);

  return $self;
}

sub ident  { retu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	750	859	
==>$block,
    IDENT => $ident
  }, $class;

  $block->push_content($self);

  return $self;
}

sub ident  { retu <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	9071	9171	
==>{
    return ".end\n";
}

=head1 Utility Methods

=head2 (min,max) = num_args($template)

Given an ar <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	50102	50197	
==>marker", $aftererror,$line);
				$item = new Parse::RecDescent::Directive(
					'Text::Balanced: <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	50449	50544	
==>marker", $aftererror,$line);
				$item = new Parse::RecDescent::Directive(
					'Text::Balanced: <==
3	/Users/nnunley/parrot/config/init/hints/solaris.pm	1655	1819	
==>ta->settrigger("cc", "solaris_link", $solaris_link_cb);

    ################################################################
    # cc_shared:  Flags to instruct the <==
3	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	809	942	
==>or my $symbtab ( @{ $parser->YYData->{scope} } ) {
                if ( $symbtab->isa('SymbTabVar') ) {
                    if ( exi <==
3	/Users/nnunley/parrot/tools/dev/mk_inno.pl	365	462	
==>up

=head1 SYNOPSIS

    % perl tools/dev/mk_inno.pl [options]

=head1 DESCRIPTION

=head2 Options <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9654	9769	
==>orting.\n";
				return(undef);
			};

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Dicard invalid token ".& <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9221	9331	
==>orting.\n";
				return(undef);
			};

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Dicard invalid token ".& <==
3	/Users/nnunley/parrot/lib/Test/More.pm	37234	37329	
==>y Bowden, blackstar.co.uk, chromatic, Fergal Daly and
the perl-qa gang.


=head1 BUGS

See F<htt <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263251	263485	
==>"ARGS" => [
                              "i",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 798 \"src/ops/cmp.ops\"\n    if ({{\@2}} == {{\@3}})\ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	17087	17211	
==>15
		},
		GOTOS => {
			'expr' => 28,
			'charclass' => 12,
			'range' => 25
		}
	},
	{#State 56
		DEFAULT => -22
	},
	{#Stat <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	18842	18962	
==>'P');
    my $p = $t->[1];
    print <<EOC;
	$n = new $DEFVAR
	neg $n, $p $cmt
EOC
    push @stack, [-1, $n, 'P'];
}

sub <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090242	1090574	
==>AME" => "slice",
                  "FLAGS" => ":python",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1091301	1091633	
==>AME" => "slice",
                  "FLAGS" => ":python",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	22013	22131	
==>sult' => $result,
    );
    return [ $result, \@opcodes ];
}

sub BuildRelop {
    my ( $parser, $expr1, $op, $e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240863	241116	
==>DE" => 280,
                  "ARGS" => [
                              "i",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 616 \"src/ops/cmp.ops\"\n  INTVAL l = VTA <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16326	16475	
==>okup($idf);
        if ( defined $defn ) {
            $result = $defn;
        }
        else {
            $defn = $parser->YYData->{symbtab}-> <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11470	11594	
==>ere.
    my $out;
    
    $out = $to if defined $to and length $to;
    $out .= "#" . $section if defined $section and lengt <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	37091	37192	
==>m 1.

A string to be processed (C<$_> if the string is omitted or C<undef>)

=item 2.

A string specif <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	4341	4479	
==>S => "return_data = ",
       I => "return_data = ",
       N => "return_data = ",
#      B => "return_data = ",
       v => "",
     );

m <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	9632	9754	
==>but that is just fine */

HEAD
}

sub make_arg {
    #
    # we have to fetch all to temps, so that the call code
    # can <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	6368	6461	
==>t keys %suffixes;
}

=item C<files_with_suffix($suffix, $recursive, $ignore)>

Use this to get <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	694	788	
==>ight
get an object of this class.

This is a subclass of L<Pod::Simple::PullParserToken> and in <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1120	1214	
==>ight
get an object of this class.

This is a subclass of L<Pod::Simple::PullParserToken> and in <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	600	694	
==>ight
get an object of this class.

This is a subclass of L<Pod::Simple::PullParserToken> and in <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	131	262	
==>(ref($proto) || $proto);
    $self->init();
    return $self;
}

sub init {
    my $self = shift;
    $self->{state} ||= Regex->glob <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	298	429	
==>(ref($proto) || $proto);
    $self->init();
    return $self;
}

sub init {
    my $self = shift;
    $self->{state} ||= Regex->glob <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	144	275	
==>(ref($proto) || $proto);
    $self->init();
    return $self;
}

sub init {
    my $self = shift;
    $self->{state} ||= Regex->glob <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	30582	30699	
==>stack;
    my $x = temp('P');
    my $agg = promote($v);
    print <<EOC;
	$x = $agg\[$w->[1]\] $cmt
EOC
    push @sta <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630575	630673	
==>erpreter, NULL, NO_CLASS,\n            \"Class '%Ss' not found\", readable_name(interpreter, class) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631565	631663	
==>erpreter, NULL, NO_CLASS,\n            \"Class '%Ss' not found\", readable_name(interpreter, class) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684654	684769	
==>\n      {{\@1}}->vtable->setprop(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n      {{+=4}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685549	685664	
==>\n      {{\@1}}->vtable->setprop(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n      {{+=4}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/config/auto/m4.pm	535	647	
==>= 'Determining whether GNU m4 is installed';

@args = qw();

sub runstep
{
    my ($self, $conf) = @_;

    my $a <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28121	28223	
==>astexpected;
				$Parse::RecDescent::unexpected
				   = ($lastsep||"").$text;
			}'.($::RD_NO_TRACE?'' <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30195	30297	
==>astexpected;
				$Parse::RecDescent::unexpected
				   = ($lastsep||"").$text;
			}'.($::RD_NO_TRACE?'' <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32396	32498	
==>astexpected;
				$Parse::RecDescent::unexpected
				   = ($lastsep||"").$text;
			}'.($::RD_NO_TRACE?'' <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	11835	11938	
==>est.err";

    return ($output, $out_err, $retval) if wantarray;
    return $output;
}

=item C<check_pr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223579	223665	
==>/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) >= {{\@2}}) {\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224521	224607	
==>/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) >= {{\@2}}) {\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971632	971932	
==>TYPE" => "inline",
                  "CODE" => 1092,
                  "ARGS" => [
                              "i",
                              "ic",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 608 \"src/ <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	4200	4345	
==>_float' => 'define',
             'i_fp' => undef,
             'i_fp_class' => undef,
             'i_gdbm' => undef,
             'i_grp' => 'de <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65707	65850	
==>Repetition($name,"$1..",$1,$MAXREP,
										   $lookahead,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$p <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	1893	2023	
==>erp *interp)
{
    int pass;
    for (pass = 0; pass <= 1; ++pass) {
        /* first the PMC with the highest enum
         * this <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	818	904	
==>s not!"  unless UNIVERSAL::isa($ident, qw(Jako::Construct::Expression::Value::Identifie <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	782	868	
==>s not!"  unless UNIVERSAL::isa($ident, qw(Jako::Construct::Expression::Value::Identifie <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	794	879	
==>s not!" unless UNIVERSAL::isa($ident, qw(Jako::Construct::Expression::Value::Identifie <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	885	984	
==>ct::Expression::Value');
  confess "Op is not scalar!" if ref $op;
  confess "Right is not Value!" u <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	897	996	
==>ct::Expression::Value');
  confess "Op is not scalar!" if ref $op;
  confess "Right is not Value!" u <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	43941	44038	
==>_error("Ruleless $_[0] at start of grammar.",$_[1]);
	my $desc = $_[2] ? "\"$_[2]\"" : "";
	_hint( <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2835	2978	
==>+ \{ ([^}]+) \}          # test description
             \s+ (?:\S+ \s+)? \{ \n     # optional test harness info (ignoring)
                 ( ( <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4232	4375	
==>+ \{ ([^}]+) \}          # test description
             \s+ (?:\S+ \s+)? \{ \n     # optional test harness info (ignoring)
                 ( ( <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	46984	47080	
==>the remainder of the input text, concatenated),

=item [2]

"" (i.e. the prefix substring -- triv <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029694	1029796	
==>" => "#line 305 \"src/ops/sys.ops\"\n  opcode_t *next = {{^+2}};\n  if ({{\@1}} < 0.0) {\n      real_ex <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030536	1030638	
==>" => "#line 305 \"src/ops/sys.ops\"\n  opcode_t *next = {{^+2}};\n  if ({{\@1}} < 0.0) {\n      real_ex <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	331	430	
==>ted_to($caller);
    $Test->plan(@_);
}


=head1 NAME

Test::Simple - Basic utilities for writing te <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	1826	1937	
==>print <<END;
    </list>
    
    <list name="ops">
END

for my $ops_file (@ops_files) {
    open OPS, "<$ops_fi <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	3314	3410	
==>"#.*\$" />
          <RegExpr attribute="Comment" context="pod" String="^\\=($pod_start_rx).*" /> <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	1515	1609	
==>core opcode library.

=item C<--no-lines>

Do not generate C<#line> directives in the generated <==
3	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	375	505	
==>PEN_SOURCE=/) {

        # Request all POSIX visible (not automatic for cxx, as it is for cc)
        $ccflags .= ' -D_XOPEN_SOURCE <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	5768	5891	
==>} <=> $a->{revision} ||
          lc $a->{osname}     cmp lc $b->{osname}     ||
          $b->{timestamp}[0]  <=> $a->{time <==
3	/Users/nnunley/parrot/config/init/hints/darwin.pm	133	240	
==>age init::hints::darwin;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    my ($ccflags, $ldflags <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3531	3634	
==>ngs (or similar inlined data)
C<const> -- for the latter, remember that you need two consts:

  const ch <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	62071	62165	
==>ing.

=item  C<No block delimiter found after quotelike "%s">

C<extract_quotelike> or C<extrac <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	826	917	
==>eom .sub .end .pcc_begin
    .pcc_end .pcc_sub .pcc_begin_return .pcc_end_return .pcc_begin_ <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	334	428	
==>etopt::Std;

my ($DIS, @dis, @source, $file, %opt, $DEFVAR, $cur_func, $lambda_count,
   %main_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502458	502604	
==>"BODY" => "#line 626 \"src/ops/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503197	503343	
==>"BODY" => "#line 626 \"src/ops/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21955	22095	
==>less it's one word
        $self->whine(
          $para->[1]{'start_line'},
          "'=end $content' is invalid.  (Stack: "
          . $s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273637	273896	
==>6 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	274483	274742	
==>6 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	275329	275588	
==>6 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7388	7501	
==>ions{ignore}
		    :					 ''
		    ;

	if (!defined $ldel) { $ldel = '<\w+(?:' . gen_delimited_pat(q{'"}) . '|[^>] <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24390	24503	
==>ions{ignore}
		    :					 ''
		    ;

	if (!defined $ldel) { $ldel = '<\w+(?:' . gen_delimited_pat(q{'"}) . '|[^>] <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	40306	40403	
==>ments are:

=over 4

=item [0]

the extracted tagged substring (including the outermost tags),

=i <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	4204	4309	
==>s
 * as vtable methods might get moved around internally
 * these macros hide the details
 */

EOM
    for <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	48039	48137	
==>e;
	exit;

in which the here document I<is> contiguous. It still leaves the
matching position after <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	36055	36147	
==>ticular species of quote character is included in the
delimiter specification, then that type <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100142	100380	
==>TYPE" => "inline",
                  "CODE" => 124,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 106 \"src/ops/bit.ops\ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	2632	2755	
==>)
    {
        $self->process_file_start_token($token);
    }
    elsif ( $tagname eq 'C' )
    {
        $self->process_co <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	55902	56002	
==>\A\s*<token:(.*)>\Z/$1/s;

				my $types = eval 'no strict; local $SIG{__WARN__} = sub {0}; my @arr=( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333147	333537	
==>_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 391,
                  "ARGS" => [
                              "p",
                              "ic",
                              " <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5100	5211	
==>$self->output_label_use($passLabel);

    while (@$incexc) {
        my $first = shift(@$incexc);
        my $la <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4775	4886	
==>$self->output_label_use($passLabel);

    while (@$incexc) {
        my $first = shift(@$incexc);
        my $la <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902764	903200	
==>GDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1018,
                  "ARGS" => [
                              "s",
                              "i",
                              "ic",
                              " <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12670	12770	
==>th);

      $self->require_semicolon;

      my $bitwise = Jako::Construct::Statement::Bitwise->new($ <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	978	1073	
==>w()>

Searches up the file system tree from the current working directory
looking for the distri <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	690	784	
==>push @out, '"' . $in . '"';
    $out[-1] =~ s/([^- \:\:\.\,\'\>\<\"\/\=\?\+\|\[\]\{\}\_a-zA-Z0- <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	13713	13848	
==>37
		}
	},
	{#State 21
		ACTIONS => {
			"(" => 10,
			'CHAR' => 4,
			"<" => 3,
			"[" => 14,
			'CODE' => 6,
			"." => 15
		},
		GOTOS <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	5818	5904	
==>temData name="Identifier" defStyleNum="dsDataType" color="#C00000" selColor="#C00000" b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581762	581930	
==>",
                              "sc"
                            ],
                  "BODY" => "#line 289 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(in <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6108	6211	
==>re_type);

      $self->INTERNAL_ERROR("Could not determine type.") unless defined $type;

      $self-> <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6968	7127	
==>oken ne ''	#Don't eat the eof
				and	$$token=$$value=undef;
                next;
            };

            #reduce
            my($lhs,$len,$code,@sem <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6643	6796	
==>oken ne ''	#Don't eat the eof
				and	$$token=$$value=undef;
                next;
            };

            #reduce
            my($lhs,$len,$code,@sem <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	2552	2659	
==>lly need an interactive step for this
    # user could deactivate vital PMCs like SArray
    # so there woul <==
3	/Users/nnunley/parrot/lib/Parrot/Revision.pm	605	729	
==>f (-r $svn_entries) {
        open my $FH, '<', $svn_entries or die $!;
        while (<$FH>) {
            /^ *committed-rev <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24508	24623	
==>> {
			'exp' => 129,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35, <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1819	1910	
==>_bullet  { ++$_[0]{'Indent'} }
sub start_over_number  { ++$_[0]{'Indent'} }
sub start_over_t <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1387	1478	
==>_bullet  { ++$_[0]{'Indent'} }
sub start_over_number  { ++$_[0]{'Indent'} }
sub start_over_t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523543	523964	
==>RS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 604,
                  "ARGS" => [
                              "n",
                              "n",
                              "nc"
                            ],
                  "BODY" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349212	349308	
==>, path, \"+<\");\n  /* string_cstring_free(path); */\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350214	350310	
==>, path, \"+<\");\n  /* string_cstring_free(path); */\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(int <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	8759	8894	
==>}) {
            $kid_follow_min += $kid->minlen();
        }

        foreach my $kid (@{ $t->{args} }) {
            $kid_follow_min - <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28490	28605	
==>> {
			'exp' => 141,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35, <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	525	627	
==>OpTrans::CPrederef );

sub new
{
	my $class = shift;
	my $self  = $class->SUPER::new( @_ );
	$self->{sp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955321	955495	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "encodingname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956132	956306	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "encodingname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	9155	9255	
==>rce line $sourceline: ";
	dumpq;
	die;
}
sub debug {
	push @{$code{$seg}->{code}}, <<DEBUG;
	${seg}_d <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	693	812	
==>o::Construct::Expression::Value::Identifier');
  confess("Left (" . ref($left) . ") is not Value") unless UNIVERSAL::isa <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	684	803	
==>o::Construct::Expression::Value::Identifier');
  confess("Left (" . ref($left) . ") is not Value") unless UNIVERSAL::isa <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	573	692	
==>o::Construct::Expression::Value::Identifier');
  confess("Left (" . ref($left) . ") is not Value") unless UNIVERSAL::isa <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	6789	6911	
==>$P1
    dec op1
    goto pos
neg:
    unless op1 goto done
    # pop off the end and unshift onto the beginning
    $P1 = p <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	2464	2565	
==>|| die "Can't find an op for opcode $op_code\n";
	$offset  += sizeof('op');
	push @pc_list, $pc;
	$opc <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	48	144	
==>tack to register mapper. Simple and stupid.
# Inherits from SRM::Base.

package SRM::Stack;
use s <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28106	28218	
==>::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = ($lastsep||"").$text;
			}'.($::RD_NO_TRA <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30180	30292	
==>::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = ($lastsep||"").$text;
			}'.($::RD_NO_TRA <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32381	32493	
==>::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = ($lastsep||"").$text;
			}'.($::RD_NO_TRA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964553	964872	
==>,
                  "TYPE" => "inline",
                  "CODE" => 1085,
                  "ARGS" => [
                              "i",
                              "i",
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 608 \"src/o <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	1969	2089	
==>les from global stash\n};
		print CODE qq{\t\tfind_global _GLOBALS, "COMMON"\n};
		foreach(@saves) {
			print CODE qq{\t\ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9953	10046	
==>termines the prototype (argument signature) for a method body
(see F<src/call_list>).

=cut

m <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21423	21533	
==>ontent =~ s/\s+$//s;
      DEBUG and print "Ogling '=end $content' directive\n";
      
      unless(length($co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819609	819699	
==>terpreter->ctx)->user_stack, {{\@2}});\n\n  if (!entry) {\n    internal_exception(99, \"Sta <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820569	820659	
==>terpreter->ctx)->user_stack, {{\@2}});\n\n  if (!entry) {\n    internal_exception(99, \"Sta <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74942	75060	
==><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$errorprefix,          $errortext
~~                     ^<<<<<<<< <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74965	75083	
==><<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$errorprefix,          $errortext
~~                     ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74988	75106	
==><<<<<<
$errorprefix,          $errortext
~~                     ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5305	5451	
==>first = 1;
            foreach ( @{ $op->{result} } ) {
                print {$FH} ", " unless ($first);
                print {$FH} "$_->{symb <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6337	6483	
==>first = 1;
            foreach ( @{ $op->{result} } ) {
                print {$FH} ", " unless ($first);
                print {$FH} "$_->{symb <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528599	528691	
==>=> "#line 838 \"src/ops/math.ops\"\n  {{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529481	529573	
==>=> "#line 838 \"src/ops/math.ops\"\n  {{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	530363	530455	
==>=> "#line 838 \"src/ops/math.ops\"\n  {{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\ <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	11132	11262	
==>olor: #500; }
    .tests_todo     { color: #030; }
    .tests_skipped  { color: #555; }
    .tests_unexpect { color: #550; }
  </st <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	561	669	
==>lazily.
sub _do_lazy_moves {
    my $suffix = shift || "";  
    my $pir = <<'PIR';
${ITEMP0} = elements lazy <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	8492	8588	
==>++];
	my ($opcode, $arg, $rest, $src) = ($l->[2], $l->[3], $l->[4], $l->[5]);
	next unless $opcod <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41440	41574	
==>D' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86
		},
		DEFAULT => -111
	},
	{#State 177
		DEFAULT => -108
	},
	{#State 1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065107	1065201	
==>n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed_str(interp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065981	1066075	
==>n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed_str(interp <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	17665	17775	
==>targ $cmt
EOC
}

sub JUMP_IF_FALSE
{
    my ($n, $c, $cmt) = @_;
    if (!@stack) {
	print "#XXX\t\t$cmt - stac <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3395	3501	
==>ib;

    if (exists $props{fnlib} and $props{fnlib}) {
      $fnlib = $props{fnlib}->value; # TODO: We shou <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6059	6165	
==>ib;

    if (exists $props{fnlib} and $props{fnlib}) {
      $fnlib = $props{fnlib}->value; # TODO: We shou <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3875	3983	
==>group (keys %$group_files) {
        compile("$group", "lib-$group")
          or die "compile $group.c faile <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3979	4087	
==>group (keys %$group_files) {
        compile("$group", "lib-$group")
          or die "compile $group.c faile <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2283	2385	
==>)) ||
    $CGI->param("smoke"));
}

sub require_compression_modules {
  no strict 'refs';
  eval { requ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	66265	66455	
==>E" => 86,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 989 \"src/ops/core.ops\"\n  {{\@1}} = VTABLE_get_pm <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441547	441636	
==>DY" => "#line 109 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442562	442651	
==>DY" => "#line 109 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3} <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32007	32130	
==>0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $parameters = ", $parameters" i <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33584	33707	
==>0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $parameters = ", $parameters" i <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40641	40764	
==>0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $parameters = ", $parameters" i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105555	105720	
==>,
                  "BODY" => "#line 162 \"src/ops/bit.ops\"\n  {{\@1}} |= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	106293	106458	
==>,
                  "BODY" => "#line 162 \"src/ops/bit.ops\"\n  {{\@1}} |= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	831	941	
==>ut

sub does_write($$) {
    my ($meth, $section) = @_;

    warn "no $meth\n" unless $section;
    return exis <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	52902	53027	
==>e 55
		 'exp', 1, undef
	],
	[#Rule 56
		 'exp', 1,
sub
#line 335 "Lua\lua51.yp"
{
            BuildCallVariable( $_[0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685862	686180	
==>{
                  "JUMP" => 0,
                  "NAME" => "getprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686751	687069	
==>{
                  "JUMP" => 0,
                  "NAME" => "getprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	4787	4890	
==>Digest::Perl::MD5;
	    import Digest::Perl::MD5 'md5_hex'
	  }		
	}

If the C<Digest::MD5> module is av <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10637	10773	
==>close(OUT);
}


sub filter_gcov {
    my ($infile) = @_;
    
    my $source_file = $infile;
    $source_file =~ s/\.gcov$//g;

    my $o <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2755	2854	
==>working directory.  In order to be
    # compatible with both pre/post version 3.13 we're normalizin <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	13496	13604	
==>ed_ehs = new .FixedPMCArray\nsaved_ehs = "
    tmp = i
    gen_pir = concat tmp
    gen_pir = concat "\n"
NO_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1915	2013	
==>my ($formal_arg_type, $formal_arg_name) = @{$formal_args[$i]};
    my $actual_arg_type;

    if (UN <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1615	1713	
==>my ($formal_arg_type, $formal_arg_name) = @{$formal_args[$i]};
    my $actual_arg_type;

    if (UN <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	4970	5098	
==>b Label {
   my ($n, $c) = @_;
   print <<EOC;
pc_$n:
EOC
}

sub New_func {
    my ($n, $arg, $cmt) = @_;
    my $nst = "";
    m <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	720	820	
==>ges/LANGUAGES.STATUS.pod'),
        $self->new_item('', 'languages/t/harness'),
        $self->new_se <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	142	232	
==>ot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm 19606 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113892	114166	
==>}} <<= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114631	114905	
==>}} <<= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	55815	55926	
==>defined value (in the case of a subroutine extractor), it is
assumed to have failed to extract.
If none of the e <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2303	2418	
==>rce_line) =~ tr/\n\r//d;
       # If we don't have two vars, we'll end up with that there
       # tr/// modding the <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717918	718010	
==>src/ops/python.ops\"\n  PMC * const io = {{\@1}};\n  if (PIO_softspace(interpreter, io, 0))\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718850	718942	
==>src/ops/python.ops\"\n  PMC * const io = {{\@1}};\n  if (PIO_softspace(interpreter, io, 0))\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479461	479699	
==>" => "inline",
                  "CODE" => 549,
                  "ARGS" => [
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 437 \"src/ops/math.ops\"\ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1172	1275	
==>{
      $compiler->emit(".namespace ${namespace}");
      $compiler->indent;
      $self->SUPER::compile <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	582	679	
==>{
    $compiler->emit(".namespace ${namespace}");
    $compiler->indent;
    $self->SUPER::compile <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2314	2426	
==>_parrot, $path_to_language, $count );

        # This does nor create byte code, but m4 code
        Parrot::Test <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19306	19398	
==>ck = $self->current_block();
      my $left = Jako::Construct::Expression::Value::Identifier- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20388	20480	
==>ck = $self->current_block();
      my $left = Jako::Construct::Expression::Value::Identifier- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1997	2091	
==>on involves unknown variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym-> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1955	2049	
==>on involves unknown variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym-> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1877	1971	
==>on involves unknown variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym-> <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9636	9735	
==>ml>\n";
   # TODO: allow for a footer
  return 1;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	811	892	
==>-------------------------------------------------------------------------
sub e2ch <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2167	2248	
==>-------------------------------------------------------------------------
sub e2ch <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010831	1011151	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011595	1011915	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012360	1012680	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10669	10774	
==>");

}#_Parse
#DO NOT remove comment

1;

}
#End of include--------------------------------------- <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10192	10289	
==>");

}#_Parse
#DO NOT remove comment

1;

}
#End of include--------------------------------------- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021607	1021706	
==>DY" => "#line 202 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022449	1022548	
==>DY" => "#line 202 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459314	459611	
==>LAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 527,
                  "ARGS" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	670	792	
==>K => $block,

    IDENT => $ident,

    DEBUG => 1,
    FILE  => $ident->file,
    LINE  => $ident->line
  }, $class;

  $b <==
3	/Users/nnunley/parrot/config/inter/types.pm	309	402	
==>nter::types;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Ste <==
3	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	2428	2535	
==>b write_buildscripts {
    my @compiled_files;
    foreach my $obj (@ARGV) {
	my $src = $obj;
	$src =~ s/\.o <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	461	567	
==>fess "Expected 5 args!" unless @_ == 5;

  my ($block, $prefix, $left, $op, $right) = @_;

  my $self = ble <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	461	567	
==>fess "Expected 5 args!" unless @_ == 5;

  my ($block, $prefix, $left, $op, $right) = @_;

  my $self = ble <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Ops.pm	631	720	
==>',
			$self->new_item('', 'tools/build/ops2c.pl'),
			$self->new_item('', 'src/ops/ops.num <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	2626	2782	
==>ces/parrot.small.png" 
                        ALT="parrot">
                </TD>
            </TR>
        </TABLE>
    </BODY>
</HTML>
FOOTER
}

=back

=c <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	1386	1499	
==>s Methods

=over 4

=item * C<description()>

Accepts no arguments and returns the value of C<$description> from t <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	44537	44629	
==>(?:\\\\.[^/\\\\]*)*/)?)';
my $OPTIONAL		= '\G\((\?)'.$SIMPLEPAT.'\)';
my $ANY			= '\G\((s\?)' <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	6221	6324	
==>$self); /me;

    s/{{=0,=([^{]*?)}}/   $trans->restart_address($1) . "; {{=0}}"; /me;
    s/{{=0,\+=([^ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5043	5141	
==>d_pmcs = grep { ! exists $pmc_group->{$_} } @pmcs;

    my (@list_to_process) = (@ungrouped_pmcs, k <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	69970	70061	
==>tiable($$$$)
{
	my ($subrule,$repspec,$grammar,$line) = @_;
	pos($grammar)=pos($_[2]);
	retu <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	11041	11196	
==>'Parrot_jit_vtable1r_op';
            $extern = vtable_num($1);
            #print $op->full_name .": $jit_func $extern\n";
        }
        # *) $X->vtabl <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	1932	2041	
==>) {
      DEBUG > 4 and print "# Undef-line seen.\n";

      push @$paras, ['~end', {'start_line' => $self->{' <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2949	3112	
==>ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # test result
              | " ((?:[^"\\]|\\.) <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4346	4509	
==>ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # test result
              | " ((?:[^"\\]|\\.) <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20971	21059	
==>Parse::RecDescent::_trace(q{Trying action},
					  Parse::RecDescent::_tracefirst($text), <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	4528	4620	
==>ck_pod()>

Runs C<Pod::Simple::Checker> on the contents of the file. Executable
files, and F< <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	9578	9695	
==>peating};
    }

    $max = undef if $is_repeating;
    
    return $min, $max;
}

=head1 TODO

Doesn't support subcom <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5090	5196	
==>lf{DEBUG};
#DBG>	my($dbgerror)=0;

#DBG>	my($ShowCurToken) = sub {
#DBG>		my($tok)='>';
#DBG>		for (sp <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4845	4946	
==>lf{DEBUG};
#DBG>	my($dbgerror)=0;

#DBG>	my($ShowCurToken) = sub {
#DBG>		my($tok)='>';
#DBG>		for (sp <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	1133	1260	
==>t/local/bin',
             'bison_version' => undef,
             'blib_dir' => 'blib/lib',
             'build_dir' => '/Users/ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27804	27918	
==>feedme();  # Get the as
				feedme();
				push(@params, $syms[CURR], $a);
			} elsif ($syms[NEXT] eq "(") {
				fee <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517196	517434	
==>" => "inline",
                  "CODE" => 596,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 729 \"src/ops/math.ops\"\ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	47814	47966	
==>h kinds of start-codes
        |
        (\ >{2,})       # $3: end-codes of the type " >>", " >>>", etc.
        |
        (\ ?>)          # $4: simple e <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	25197	25302	
==>ut =  "    \${I_ARG_$arg_num} = bc.read_ttype()\n    next_pc += 4\n";
			$arg_name = "I_ARG_$arg_num";
		} <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	9352	9486	
==>C',
   68, 'D',
   69, 'E',
   70, 'F',
   71, 'G',
   72, 'H',
   73, 'I',
   74, 'J',
   75, 'K',
   76, 'L',
   77, 'M',
   78, 'N', <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	33656	33765	
==>, 'P'];
}

sub SLICE_plus_0 {
    return Slice(@_, 0);
}
sub SLICE_plus_1 {
    return Slice(@_, 1);
}
sub SLI <==
3	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	119	209	
==>30T13:32:26.641316Z coke  $

=head1 NAME

examples/benchmarks/stress1.pl - GC stress-testin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953834	954116	
==>ng",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1073,
                  " <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	3405	3501	
==>hey are ANDed.
They can also be negated with a "no", for example --noconst.
[1] Not all platforms <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	309	402	
==>rite individual tests like this:

    pasm_output_is(<<'CODE', <<'OUTPUT', "description of tes <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	6263	6414	
==>chars
               "^${dir}${_}\$",             # SVN globs are specific to a dir
               "^${dir}${_}/",              # SVN globs are specific <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	333	450	
==>DEBUG = defined(&Pod::Simple::DEBUG)
          ? \&Pod::Simple::DEBUG
          : sub() {0}
      }

use Text::Wrap 98 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	215	332	
==>DEBUG = defined(&Pod::Simple::DEBUG)
          ? \&Pod::Simple::DEBUG
          : sub() {0}
      }

use Text::Wrap 98 <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21583	21685	
==>ext)
						if defined $::RD_TRACE;').'
		push @item, $_tok;
		' . (($self->{line}>=0 && !$::RD_NO_HITEM <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6611	6742	
==>ERR "Shift and go to state $act.\n";

					$$errstatus
				and	do {
					--$$errstatus;

#DBG>					$debug & 0x10
#DBG>				and <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6304	6428	
==>ERR "Shift and go to state $act.\n";

					$$errstatus
				and	do {
					--$$errstatus;

#DBG>					$debug & 0x10
#DBG>				and <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	14499	14609	
==>telike($textref,'\s*',$patvalid,$patvalid) )
		{
			$patvalid = 0;
			next;
		}


		# NEED TO COVER MANY MORE C <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	13162	13260	
==>sif ($syms[NEXT] eq "sub") {
		push @{$code{$seg}->{code}}, qq{\tgoto END_$seg\n};
		feedme();
		#p <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	36082	36232	
==>...

    0                   all tests successful
    255                 test died
    any other number    how many failed (including missing or extra <==
3	/Users/nnunley/parrot/lib/Test/More.pm	34153	34303	
==>...

    0                   all tests successful
    255                 test died
    any other number    how many failed (including missing or extra <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2948	3098	
==>...

    0                   all tests successful
    255                 test died
    any other number    how many failed (including missing or extra <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	6001	6125	
==>s_mingw) {
        my $make = $conf->data->get(qw(make));
        if ($make =~ /nmake/i) {

            # ActiveState Perl or <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3349	3447	
==>is class is a formatter that takes Pod and renders it as
wrapped plaintext.

Its wrapping is done b <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	7178	7268	
==>fine Parrot_jit_vtable1r_op Parrot_jit_normal_op
/*
 * the numbers corresspond to the regis <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496956	497236	
==>.ops\"\n  {{\@1}} = floatval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497826	498106	
==>.ops\"\n  {{\@1}} = floatval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498696	498976	
==>.ops\"\n  {{\@1}} = floatval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019298	1019581	
==>=> 0,
                  "NAME" => "localtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020228	1020511	
==>=> 0,
                  "NAME" => "localtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	20004	20119	
==>ds, was using @var when @$var needed.
    #  - Now using my() rather than local().
    #
    # Uses perl5 classes to <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125667	125990	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rot",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Examples.pm	872	995	
==>f->new_group('Subroutines',          '', 'examples/subs'),
            $self->new_group('IO',                   '', 'example <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63299	63415	
==>) if $::RD_CHECK;
					}
				}
				elsif ($grammar =~ m/$MANY/gco)
				{
					_parse("a one-or-more subrule match", $ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6045	6143	
==>hing has been
	# propogated there already.
	$pir .= <<'PIR';
if 0x${CURIC} == 0x45 goto POST_BRANCH <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3983	4081	
==>hing has been
	# propogated there already.
	$pir .= <<'PIR';
if 0x${CURIC} == 0x45 goto POST_BRANCH <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	1137	1233	
==>anguage itself and run them
through your compiler itself.  If you can load PIR libraries from you <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	258	357	
==>like it's
largely a copy of Parrot::Test::Python. Abstraction needed.

=cut

sub new {
    return bl <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	296	395	
==>like it's
largely a copy of Parrot::Test::Python. Abstraction needed.

=cut

sub new {
    return bl <==
3	/Users/nnunley/parrot/lib/Test/More.pm	35768	35864	
==>shua Pritikin's Test
module.  I was largely unaware of its existence when I'd first
written my ow <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	18336	18441	
==>//////////////////////////////

      my $content = join ' ', splice @$para, 2;
      $content =~ s/^\s+// <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21306	21411	
==>//////////////////////////////

      my $content = join ' ', splice @$para, 2;
      $content =~ s/^\s+// <==
3	/Users/nnunley/parrot/config/gen/config_pm.pm	494	588	
==>p qw(genfile);
use Data::Dumper;
use Cwd qw(cwd);

$description = "Recording configuration data <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	3301	3394	
==>rrot::Docs::Section::Languages>

=item C<Parrot::Docs::Section::Config>

=item C<Parrot::Docs: <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5805	5895	
==>ush @{$code{$seg}->{code}}, "IFBRANCH_$_:\n";
			}
			while($_=pop(@{$elsestack->{$elsetag} <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8151	8239	
==>ush @{$code{$seg}->{code}}, "IFBRANCH_$_:\n";
		}
		while($_=pop(@{$elsestack->{$elsetag} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806699	806968	
==>PE" => "inline",
                  "CODE" => 910,
                  "ARGS" => [
                              "i",
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 497 \"src/ops/set.o <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28607	28711	
==>'
			       : '$item{'.$self->{hashname}.'}=') . '$&;
		' . ($self->{"lookahead"} ? '$text = $_savetext;' <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30685	30789	
==>'
			       : '$item{'.$self->{hashname}.'}=') . '$&;
		' . ($self->{"lookahead"} ? '$text = $_savetext;' <==
3	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	1525	1625	
==>mand);
exit 1 if (! defined $status);
exit($status >> 8) if $status != 0;

foreach my $output (@outpu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600198	600298	
==>reter, {{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n         \"Class '%Ss' doesn't ex <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601274	601374	
==>reter, {{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n         \"Class '%Ss' doesn't ex <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1784	1915	
==>.pbc'),
                    $lang_fn ) );

        Parrot::Test::write_code_to_file( $code, $lang_fn );

        # STDERR is written <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1357	1463	
==>) {
	# We need a stack depth and a string for label gen and some
	# storage for stack depths and stack type <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	444	550	
==>) {
	# We need a stack depth and a string for label gen and some
	# storage for stack depths and stack type <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	1739	1837	
==>ce of one smallish lime
 * a dash of balsamic vinegar (to taste)
 * cooked rice, preferably long-gr <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	59933	60066	
==>\lua51.yp"
{
            [ BuildLiteral( $_[0], $_[1], 'key' ), $_[3] ];
        }
	],
	[#Rule 112
		 'field', 1,
sub
#line 59 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1175	1275	
==>$self, $label) = @_;
    return () unless $self->{DEBUG};
    return () unless $self->{DEBUG_SUPPORT} <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	665	765	
==>$self, $label) = @_;
    return () unless $self->{DEBUG};
    return () unless $self->{DEBUG_SUPPORT} <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7450	7623	
==>rule
            and do {
                    $lhs =~ /^\@[0-9]+\-([0-9]+)$/
                or  die "In line rule name '$lhs' ill formed: ".
                        "rep <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7107	7276	
==>rule
            and do {
                    $lhs =~ /^\@[0-9]+\-([0-9]+)$/
                or  die "In line rule name '$lhs' ill formed: ".
                        "rep <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	176	274	
==>izes

=head1 DESCRIPTION

Determines the sizes of various types.

=cut

package auto::sizes;

use s <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	748	847	
==>ONTEXTS

sub _failmsg {
	my ($message, $pos) = @_;
	$@ = bless { error=>$message, pos=>$pos }, "Text <==
3	/Users/nnunley/parrot/lib/File/Which.pm	4169	4267	
==>a steps to assure that you
will find the correct file (so for example, you might be searching for C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633082	633503	
==>=> [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 709,
                  "ARGS" => [
                              "p",
                              "ic",
                              "p"
                            ],
                  "BODY" => "#l <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840211	840409	
==>reter->ctx)->user_stack, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840906	841104	
==>reter->ctx)->user_stack, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544515	544651	
==><b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n gcd = b<<p;\n saved_var1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545851	545987	
==><b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n gcd = b<<p;\n saved_var1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547187	547323	
==><b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n gcd = b<<p;\n saved_var1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704656	704885	
==>p",
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2443	2539	
==>l 6 pattern, passing the test
if the output produced by the test code matches the C<$expected>
pa <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3877	3973	
==>l 6 pattern, passing the test
if the output produced by the test code matches the C<$expected>
pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567549	567815	
==>>does(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568444	568710	
==>>does(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	126	218	
==>4Z bernhard  $

=head1 NAME

Parrot::Docs::Section::Info - Project info documentation section <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109355	109644	
==>"i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 136,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 182 \"src/ops/bi <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	1171	1281	
==>nd({wanted => sub {
        if ( $File::Find::dir =~ m:(languages|examples)$: ) {
            $File::Find::prun <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22761	22864	
==>$t->type eq 'start' and $t->tagname =~ m/^head\d$/s;
        $title = $t->text . $title if $t->type eq ' <==
3	/Users/nnunley/parrot/config/init/hints/freebsd.pm	309	405	
==>bs =~ s/(-lpthreads|-lc_r)\b\s*//g;

    # The following test is from FreeBSD's /usr/ports/Mk/bsd <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	33168	33261	
==>telike"> for a (partial) solution to this problem.


=head2 C<extract_bracketed>

Like C<"extr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2484	2585	
==>pe;

    $self->INTERNAL_ERROR("Can't determine type of actual argument (%s)!", ref $args[$i])
      u <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2184	2285	
==>pe;

    $self->INTERNAL_ERROR("Can't determine type of actual argument (%s)!", ref $args[$i])
      u <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	5864	5958	
==>u can just use Test::More instead of Test::Simple in your
programs and things will still work). <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869825	870094	
==>e",
                  "CODE" => 987,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 232 \"src/ops/string.ops\"\n  I <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672970	673192	
==>@2}}->vtable->pop_integer(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/lib/Test/More.pm	37222	37315	
==>aymaker, Tony Bowden, blackstar.co.uk, chromatic, Fergal Daly and
the perl-qa gang.


=head1 B <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288370	288681	
==>) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289226	289537	
==>) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290082	290393	
==>) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3597	3701	
==>%s)...", $name, join(", ", %props));

    $name =~ s/::/__/g;

    if (exists $props{fn} or exists $props <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	3032	3136	
==>%s)...", $name, join(", ", %props));

    $name =~ s/::/__/g;

    if (exists $props{fn} or exists $props <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	8367	8462	
==>op[x])
#define ROFFS_PMC(x) REG_OFFS_PMC(jit_info->cur_op[x])
#
END_C

if ($jit_cpu) {
    print <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	16988	17123	
==>4,
			'CODE' => 6,
			"(" => 10,
			"|" => 26,
			"*" => 27,
			"[" => 14,
			")" => 65,
			"." => 15
		},
		GOTOS => {
			'expr' => 28, <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	6162	6254	
==>s->preamble($trans);
$text =~ s/\bops_addr\b/${bs}ops_addr/g;
print SOURCE $text;


if ($tran <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	38680	38771	
==>ut ignore "empty" elements:

	extract_tagged($text, undef, undef, undef, {ignore => ['<[^>]* <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	8870	9016	
==>$export = "";
	    $extern = "";
	    $newl = "\n";
	    $semi = "";
        $interp = ' interpreter';
        $pmc = ' pmc';
    }
    return <<"E <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598167	598399	
==>nterpreter, {{\@2}} ));\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599214	599446	
==>nterpreter, {{\@2}} ));\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/config/init/optimize.pm	1093	1198	
==>oesn't like -mcpu=xx, i.e. it's deprecated
	    # XXX do we know compiler (version) already?
	    my $opts <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279751	280064	
==>) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	280606	280919	
==>) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	281461	281774	
==>) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt", <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2457	2587	
==>t defined variable.
##
sub choose {
    for (@_) {
        return $_ if defined $_;
    }
    return;
}

##
## %tests = extract_tes <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1367	1489	
==>h}, 
            STDOUT => $out_f, STDERR => $out_f, 
        );
        my $prog_output = Parrot::Test::slurp_file( "$out_ <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1283	1405	
==>h}, 
            STDOUT => $out_f, STDERR => $out_f, 
        );
        my $prog_output = Parrot::Test::slurp_file( "$out_ <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	1865	1949	
==>ct-prototypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwrite-strin <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1230	1314	
==>ct-prototypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwrite-strin <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1234	1318	
==>ct-prototypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwrite-strin <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39336	39462	
==>targ"   => $leftarg,
		"op"        => $op,
		"min"       => $minrep,
		"max"       => $maxrep,
		"rightarg"  => $rightarg,
		"e <==
3	/Users/nnunley/parrot/config/init/hints.pm	594	697	
==>verbose = $conf->options->get('verbose');

    my $hints_used = 0;

    my $hints = "init::hints::" . lc <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	8434	8526	
==>pl>

=item F<tools/build/ops2pm.pl>

=item F<tools/build/pbc2c.pl>

=back

=head1 HISTORY

Au <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2510	2608	
==>r backward branches until late to do
	# otherwise. Also, putting a label everywhere doesn't hurt th <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1088	1186	
==>r backward branches until late to do
	# otherwise. Also, putting a label everywhere doesn't hurt th <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6994	7110	
==>_>1?$_[1]:"mark").qq(\\n"));
    }
    push @ops, $self->pushop . " <rx_stack>, -1 # pushmark";
    return @ops;
}

s <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2500	2614	
==>e);
    check_returns($file, $source);
    check_dev($file);
}

sub check_dev {
    my ($file) = @_;

    return un <==
3	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	868	978	
==>rsion = <$VERSION>;
    close $VERSION;

    chomp $parrot_version;
    $parrot_version =~ s/\s+//g;
    @parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067667	1068088	
==>> [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1192,
                  "ARGS" => [
                              "i",
                              "nc",
                              "n"
                            ],
                  "BODY" => "#lin <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15461	15575	
==>, 'nil' );
    push @opcodes, @{ $nil->[1] };
    $result = new_tmp( $parser, 'pmc' );
    push @opcodes, new Lo <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19214	19328	
==>, 'nil' );
    push @opcodes, @{ $nil->[1] };
    $result = new_tmp( $parser, 'pmc' );
    push @opcodes, new Lo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039073	1039346	
==>PE" => "function",
                  "CODE" => 1161,
                  "ARGS" => [
                              "s",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 120 \"src/ops/var.ops <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3126	3237	
==>t

sub pgeglob_is {
    my ($target, $pattern) = (shift, shift);

    unshift @_ => 'matched';
    unshift @_ => <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	20085	20181	
==>s is the template thing

static void pcf_$funcname(Interp *interpreter, PMC *self) {
    $ret_typ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	57523	57714	
==>sub
#line 484 "Lua\lua51.yp"
{
            [];
        }
	],
	[#Rule 93
		 'args', 1,
sub
#line 488 "Lua\lua51.yp"
{
            [
                $_[1],
            ];
        } <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	21015	21110	
==>4,
sub
#line 139 "lib/Regex/Grammar.y"
{ return op('group', [ op('call' => [ $_[3], 1 ]), ++$::p <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15895	15984	
==>l.ent
 http://www.w3.org/TR/xhtml1/DTD/xhtml-symbol.ent

=head1 AUTHOR

Sean M. Burke C<sb <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43264	43515	
==>UMP" => 0,
                  "NAME" => "pushmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43907	44158	
==>UMP" => 0,
                  "NAME" => "pushmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	18207	18337	
==>(1);

        my $fh = open_file( ">", $file );
        print $fh $Dumper->Dump;
        close $fh;
    }
}

=head2 read_dump( [$di <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5705	5815	
==>";
#DBG>		$debug & 0x08
#DBG>	and	print STDERR "Stack:[".
#DBG>					 join(',',map { $$_[0] } @$stack).
#DBG <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5433	5539	
==>";
#DBG>		$debug & 0x08
#DBG>	and	print STDERR "Stack:[".
#DBG>					 join(',',map { $$_[0] } @$stack).
#DBG <==
3	/Users/nnunley/parrot/config/gen/config_pm.pm	1594	1695	
==>' and \%PConfig
# This file should be the last thing run during
# the make process, after Parrot is bu <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	613	721	
==>$fh   '  ' x ($_[0]{'indent'} || 0),  "<", $_[1];

  foreach my $key (sort keys %{$_[2]}) {
    unless($key = <==
3	/Users/nnunley/parrot/config/gen/platform.pm	1678	1775	
==>RD

/*
** platform.h [$platform version]
**
** DO NOT EDIT THIS FILE
**
** Generated by config/gen <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744310	744562	
==>from_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745076	745328	
==>from_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	1218	1363	
==>ir =~ m:(languages|examples)$: ) {
            $File::Find::prune = 1;	
            return;
        }
        return if /malloc/;

        /^.*\.[ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	5127	5242	
==>le_start_token
{
    my $self = shift;
    my $token = shift;
    my $tagname = $token->tagname;
    my $next = $sel <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	367	475	
==>e Carp;

use base qw(Jako::Construct::Declaration);

use Jako::Construct::Type;


#
# new()
#

sub new
{
  my <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	367	475	
==>e Carp;

use base qw(Jako::Construct::Declaration);

use Jako::Construct::Type;


#
# new()
#

sub new
{
  my <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2696	2823	
==>['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P12', 'P16[0]'],
  ['',            'bsr', 'apply <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	329	431	
==>sh.
sub new() {
	my $invocant = shift;
	return bless {}, $invocant;
}

# Pre-translation hook.
sub pre_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	237	339	
==>sh.
sub new() {
	my $invocant = shift;
	return bless {}, $invocant;
}

# Pre-translation hook.
sub pre_ <==
3	/Users/nnunley/parrot/config/gen/config_pm.pm	721	812	
==>fig_pm/myconfig.in', 'myconfig');

    open(IN,  "config/gen/config_pm/Config_pm.in") or die <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103881	1103967	
==>n\tINTVAL type = pmc_type(interpreter, class);\n\tif (!type) {\n\t\tParrot_autoload_cla <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105096	1105182	
==>n\tINTVAL type = pmc_type(interpreter, class);\n\tif (!type) {\n\t\tParrot_autoload_cla <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3217	3335	
==>elf{TOKEN}};
}

sub YYCurval {
	my($self)=shift;

        @_
    and ${$$self{VALUE}}=$_[0];
    ${$$self{VALUE <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3059	3169	
==>elf{TOKEN}};
}

sub YYCurval {
	my($self)=shift;

        @_
    and ${$$self{VALUE}}=$_[0];
    ${$$self{VALUE <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9902	10003	
==>ode .= $prod->code($namespace,$self,$parser);

		$code .= $parser->{deferrable}
				? '		splice
				@{ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	5748	5873	
==>y($target);

    # Beginning of the pir code
    my $pirCode = qq(
        .sub _PGE_Test
            .local pmc p6rule_compil <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2490	2585	
==>duced by the test code matches the C<$expected>
parameter.  Note that C<$expected> is a I<Perl 5 <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3924	4019	
==>duced by the test code matches the C<$expected>
parameter.  Note that C<$expected> is a I<Perl 5 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	9094	9196	
==>format, @args) = @_;
  $self->ERROR('Syntax', $format, @args);
}


#
# INTERNAL_ERROR()
#

sub INTERNAL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916485	916912	
==>e",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1032,
                  "ARGS" => [
                              "i",
                              "s",
                              "s", <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	567	673	
==>::Yapp package available on your
# nearest CPAN
#
# Any use of this module in a standalone parser make t <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	551	654	
==>::Yapp package available on your
# nearest CPAN
#
# Any use of this module in a standalone parser make t <==
3	/Users/nnunley/parrot/config/auto/pack.pm	93	185	
==>-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/pack.pm - Packing

=head1 DESCRIPTI <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23572	23664	
==>$temp,"NEXT_$label"]);
    $self->_add_inst('','set',[$return,$temp]);
    $self->_add_inst(" <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24034	24126	
==>$temp,"NEXT_$label"]);
    $self->_add_inst('','set',[$return,$temp]);
    $self->_add_inst(" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58447	58668	
==>"CODE" => 75,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 874 \"src/ops/core.ops\"\n  {{\@1}} = inte <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	640	762	
==>}
  } else {
    require Carp;
    Carp::croak("Usage:\n use Pod::Simple::Debug (NUMVAL)\nor"
                    . "\n use <==
3	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1277	1379	
==>use base qw(Lua::opcode);

package AssignOp;
use base qw(Lua::opcode);

package KeyedGetOp;
use b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62806	63057	
==>P" => 0,
                  "NAME" => "errorsoff",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63451	63702	
==>P" => 0,
                  "NAME" => "errorsoff",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	7392	7503	
==>eturn (
            bless($self->{_label_comments}, 'LABEL_COMMENTS'),
            map { ($_->{label} ? ($_->{la <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	13701	13800	
==>_count(void);
    int jit_op_count() { return $core_numops; }
EOC
}

print("jit2c: JITed $njit (+ $v <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645829	645917	
==>{{\@1}} = interpreter->vtables[{{\@2}}]->whoami;\n    else\n\t\t{{\@1}} = Parrot_get_data <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646726	646814	
==>{{\@1}} = interpreter->vtables[{{\@2}}]->whoami;\n    else\n\t\t{{\@1}} = Parrot_get_data <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5781	5899	
==>(',',map { $$_[0] } @$stack).
#DBG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defined($$token <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5506	5618	
==>(',',map { $$_[0] } @$stack).
#DBG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defined($$token <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2533	2685	
==>ndef,            # No value
    undef,            # No properties
    undef,            # No args
    $self->file,
    $self->line
  );

  $block->set_sy <==
3	/Users/nnunley/parrot/lib/Test/More.pm	26493	26645	
==>) {
            $var .= "->" unless $did_arrow++;
            $var .= "[$idx]";
        }
        elsif( $type eq 'REF' ) {
            $var = "\${$var}" <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2773	2882	
==>bol} = $op->{arg1}->{symbol}\[$op->{arg2}->{symbol}\]\n";
    }

    sub visitKeyedSetOp {
        my $sel <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131361	131655	
==>\"\n  {{\@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132216	132510	
==>\"\n  {{\@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133071	133365	
==>\"\n  {{\@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5029	5155	
==>\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  my $block = $self->bl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3092	3218	
==>\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  my $block = $self->bl <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5289	5381	
==>r_num} = ${STEMP0}
goto PRE_BRANCH_${CURIC}_CONT_$register_num

# Can do a lazy move.
PRE_BRA <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	77	193	
==>We do this to prevent
# use of uninitialized value warnings in older perls.
$^C ||= 0;

use strict;
use vars qw($VERS <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10906	11013	
==>e, and undefines it.

Raises an exception if the delete fails.

=cut

sub delete
{
    # Use $_[0] so that w <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4740	4847	
==>e, and undefines it.

Raises an exception if the delete fails.

=cut

sub delete
{
    # Use $_[0] so that w <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	25987	26107	
==>cond =extend parameter must be like"
        . " M or 1 or 0 or M,N or M,N,O but you have it like "
        . $fallbacks_ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12488	12591	
==>self->{"items"}[0]->issubrule();
		return $subrule if defined $subrule;
	}

	return ();
}

sub checkleft <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	2757	2854	
==>>$self->{TEXT}</p>\n\n" . $index_html;
    }
    elsif ( $index_html !~ /<DIV CLASS="pod">[^<]*<[H <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256296	256441	
==>"
                            ],
                  "BODY" => "#line 740 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257204	257349	
==>"
                            ],
                  "BODY" => "#line 740 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258112	258257	
==>"
                            ],
                  "BODY" => "#line 740 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2691	2793	
==>$handler->end_element({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
  }

  $handle <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2568	2670	
==>$handler->end_element({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
  }

  $handle <==
3	/Users/nnunley/parrot/config/inter/libparrot.pm	156	251	
==>r/libparrot.pm - Determines build information for libparrot

=head1 DESCRIPTION

libparrot i <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	3239	3353	
==>STDERR "$0: Ops file '$file' mentioned more than once!\n";
	next;
    }
    $seen{$file} = 1;

    die "$0: Could n <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	5156	5250	
==>umentation see the C<Digest::MD5> module.

=head1 EXAMPLES

The simplest way to use this librar <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	14893	14987	
==>ch character, you get a "?".  Latin-1
characters (characters 160-255) are unaffected.

Under EB <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	15293	15431	
==>ls));
        push @ibacks, $iback;
        push @iops, \@ops;
    }

    my @ops;
    for my $i (0..$#args) {
        push @ops, $tries[$i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670621	670711	
==>src/ops/pmc.ops\"\n    {{\@1}}->vtable->push_string(interpreter, {{\@1}}, {{\@2}});\n    {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671394	671484	
==>src/ops/pmc.ops\"\n    {{\@1}}->vtable->push_string(interpreter, {{\@1}}, {{\@2}});\n    {{ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	3934	4047	
==>most
    # always part of function and arguments, or constants listings
    #and should stand out.
    
    print <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	3420	3530	
==>es;
my @installable_exe;
my %directories;
@ARGV = @manifests;
while(<>) {
    chomp;

    s/\#.*//; # Ignore co <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	26000	26105	
==>L<Test/Builder>

=back

=cut

sub report_odd_hash {
    my $warning = shift;
    if ($warning =~ /Odd numb <==
3	/Users/nnunley/parrot/config/auto/socklen_t.pm	368	460	
==>e Parrot::Configure::Step ':auto';

our $description = 'Asking Perl5 whether there is socklen <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	14689	14792	
==>s the useful diagnostic messages,
could be written as:

  sub laconic_like {
      my ($self, $this, $re <==
3	/Users/nnunley/parrot/config/gen/icu.pm	664	758	
==>ed, $icuheaders, $icuconfig, $without) = $conf->options->get(@args);

    my @icu_headers = qw( <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5238	5357	
==>$_) < 32 or ord($_) > 126)
#DBG>					?	sprintf('<%02X>',ord($_))
#DBG>					:	$_;
#DBG>		}
#DBG>		$tok.='<';
#DBG>	} <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4987	5101	
==>$_) < 32 or ord($_) > 126)
#DBG>					?	sprintf('<%02X>',ord($_))
#DBG>					:	$_;
#DBG>		}
#DBG>		$tok.='<';
#DBG>	} <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	48815	48901	
==>--------------------------------------------------------------
1;
__END__

TODO:
A star <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2903	2997	
==>}

=item C<restart_address($address)>

Returns the C code for C<restart ADDRESS($address)>.

=c <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3772	3866	
==>}

=item C<restart_address($address)>

Returns the C code for C<restart ADDRESS($address)>.

=c <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3502	3596	
==>}

=item C<restart_address($address)>

Returns the C code for C<restart ADDRESS($address)>.

=c <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	6827	6919	
==>ops_cgp.h>
#endif
#include"parrot/exec.h"
#include"jit.h"
#define JIT_EMIT $jit_emit_n

/* Di <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8646	8727	
==>","LRSCAN","NAVIGATE","PHASERS","QUIT"
data "SHIELDS","SOS","SRSCAN","STATUS","TOR <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21510	21591	
==>","LRSCAN","NAVIGATE","PHASERS","QUIT"
data "SHIELDS","SOS","SRSCAN","STATUS","TOR <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35732	35835	
==>iled.  If
you run less (or more) tests than you planned, the missing (or extras)
will be considered fail <==
3	/Users/nnunley/parrot/lib/Test/More.pm	33803	33906	
==>iled.  If
you run less (or more) tests than you planned, the missing (or extras)
will be considered fail <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2599	2702	
==>iled.  If
you run less (or more) tests than you planned, the missing (or extras)
will be considered fail <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966317	966668	
==>,
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1087,
                  "ARGS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78299	78627	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlvar",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79819	80147	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlvar",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	37168	37267	
==>=item 2.

A string specifying a pattern to be matched as the opening tag.
If the pattern string is o <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3386	3476	
==>ibraries L<Pod::PXML>, L<Pod::XML>, L<Pod::SAX>


=head1 COPYRIGHT AND DISCLAIMERS

Copyrig <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3038	3128	
==>ibraries L<Pod::PXML>, L<Pod::XML>, L<Pod::SAX>


=head1 COPYRIGHT AND DISCLAIMERS

Copyrig <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272295	272684	
==>> "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 317,
                  "ARGS" => [
                              "i",
                              " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945419	945504	
==>string.ops\"\n  {{\@1}} = string_copy(interpreter, Parrot_charset_name(interpreter, {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946229	946314	
==>string.ops\"\n  {{\@1}} = string_copy(interpreter, Parrot_charset_name(interpreter, {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077743	1078139	
==>_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1198,
                  "ARGS" => [
                              " <==
3	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	168	277	
==>porter);
our @EXPORT = qw(compile_cs translate run_pir);

require "config/N2PConfig.pm";

# This compiles C# c <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10294	10396	
==>ectory.

=cut

sub directory_with_relative_path
{
    my $self = shift;
    my $path = $self->path_for_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660033	660144	
==>],
                  "BODY" => "#line 334 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->v <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660955	661066	
==>],
                  "BODY" => "#line 334 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->v <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	43559	43659	
==>DING ALPHABETIC/UNDERSCORE
		[a-z0-9]*	# FOLLOWED BY ANY NUMBER OF ALPHANUMERICS
	   /x'

will be ext <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	625431	625543	
==>n_args = SIG_ELEMS(sig);\n    sig_bits = SIG_ARRAY(sig);\n    for (i = 0; i < n_args; ++i) {\n        switch (sig <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6855	6949	
==>90"
print mid$(t$, 2, 8)
print left$(t$, 5)
print right$(t$, 5)
' instr
s1$="The longer string" <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18584	18678	
==>90"
print mid$(t$, 2, 8)
print left$(t$, 5)
print right$(t$, 5)
' instr
s1$="The longer string" <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1298	1408	
==>pecified then
    # the user is responsible for the consequences.
    if (defined $prog) {
        $conf->data- <==
3	/Users/nnunley/parrot/config/inter/make.pm	1119	1229	
==>pecified then
    # the user is responsible for the consequences.
    if (defined $prog) {
        $conf->data- <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1295	1405	
==>pecified then
    # the user is responsible for the consequences.
    if (defined $prog) {
        $conf->data- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	534840	535022	
==>",
                              "n"
                            ],
                  "BODY" => "#line 916 \"src/ops/math.ops\"\n   FLOATVAL temp = log((FLOATVAL)2.0);\n  {{\@1}} = lo <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36630	36740	
==>y one - NWC
    my $l = $self->line_directive($line, "null.c");
    return <<EOC;
$l
${decl} {
	real_exception( <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	15533	15638	
==>($S0)
    gen_pir = concat $S0
    gen_pir = concat "\nif $I1000000 goto TYPED_EH_FOUND_"
    tmp = handle <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	3343	3461	
==>attern);
        return if $from_sum == $to_sum;
    }

    File::Copy::copy($from, $to);

    # Make sure the timestam <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	4314	4429	
==>s, $opsfile;

        die "$0: Could not read ops file '$opsfile'!\n" unless -r $opsfile;
    }

    $ops = Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	618	721	
==>tdir = dirname $self->{parrot};

    my $args = $ENV{TEST_PROG_ARGS} || '';

    $lang_f = File::Spec->r <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	655	758	
==>tdir = dirname $self->{parrot};

    my $args = $ENV{TEST_PROG_ARGS} || '';

    $lang_f = File::Spec->r <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	1627	1720	
==>=head1 SEE ALSO

=over 4

=item F<tools/build/ops2pm.pl>

=item C<Parrot::OpsFile>

=item C<Pa <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11889	11981	
==>0
LTYPES_LOOP:
if j == i goto LTYPES_LOOP_END
type_trans = ltypes[j]
type = type_trans["type" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8302	8442	
==>S|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLAGS" => ":base_loop,check_event",
                  "AR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9417	9557	
==>S|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLAGS" => ":base_loop,check_event",
                  "AR <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	11503	11605	
==>} else { goto " . $self->output_label_use($L_backup) . "};";

    return @ops;
}

sub output_rule_end { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846712	846968	
==>L){{\@2}});\n  {{\@1}} = s;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847508	847764	
==>L){{\@2}});\n  {{\@1}} = s;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	2795	2936	
==>/opt/local',
             'execcapable' => 1,
             'flex_version' => undef,
             'float4_t' => 'float',
             'float8_t <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	46654	46785	
==>, $_[1], $_[3] );
        }
	],
	[#Rule 10
		 'stat', 1,
sub
#line 92 "Lua\lua51.yp"
{
            BuildVoidFunctionCall( $_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	831	921	
==>NIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Ident is not!" if defined $iden <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	859	949	
==>NIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Ident is not!" if defined $iden <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630044	630418	
==>es",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 706,
                  "ARGS" => [
                              "p",
                              "k"
                            ],
                  "BODY" => <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	13397	13527	
==>goto AFTERDO_$foo->{jump}\n";
	} else {
		die "Unknown EXIT type source line $sourceline";
	}
}



$selectcounter=0;
sub parse_sele <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	2242	2341	
==>q$Revision: 19607 $ =~ /(\d+)/g; # jhi@iki.fi;

my $ME = basename($0);
my $RCS_DATE = q$Date: 2006-0 <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	885	976	
==>n.co.uk/cxref/>) to extract information from
the program source about what functions are bei <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2191	2294	
==>ual formatters:

sub end_head1       { $_[0]->emit_par(-4) }
sub end_head2       { $_[0]->emit_par(-3) } <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1759	1862	
==>ual formatters:

sub end_head1       { $_[0]->emit_par(-4) }
sub end_head2       { $_[0]->emit_par(-3) } <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27446	27549	
==>p = "";
		$Parse::RecDescent::lastexpected = q{' . ($rule->hasleftmost($self) ? ''
				: $self->describe <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29556	29659	
==>p = "";
		$Parse::RecDescent::lastexpected = q{' . ($rule->hasleftmost($self) ? ''
				: $self->describe <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31653	31756	
==>p = "";
		$Parse::RecDescent::lastexpected = q{' . ($rule->hasleftmost($self) ? ''
				: $self->describe <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	25603	25724	
==>start_line'},
        "You can't extend an established code like \"$new_letter\""
      );
      
      #TODO: or allow if <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561897	561996	
==>});\n  if (!{{\@1}}) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562981	563080	
==>});\n  if (!{{\@1}}) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1480	1588	
==>ght");
    $compiler->emit("  global \"$left\" = $temp_pmc");
  }
  else {
    $compiler->emit("  $left = $ri <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832091	832175	
==>\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}), STA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832819	832903	
==>\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}), STA <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	60907	61028	
==>m}     = 0;
    $parser->YYData->{scope}       = [];
    $parser->YYData->{scopef}      = [];
    $parser->YYData->{sym <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2503	2598	
==>discover backward branches until late to do
	# otherwise. Also, putting a label everywhere doesn <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1081	1176	
==>discover backward branches until late to do
	# otherwise. Also, putting a label everywhere doesn <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609356	609449	
==>ect.ops\"\n    {{\@1}} = VTABLE_get_attr_str(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610264	610357	
==>ect.ops\"\n    {{\@1}} = VTABLE_get_attr_str(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n", <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	28	118	
==>ht (C) 2004, The Perl Foundation.
# $Id: /parrot/tools/dev/parrot_api.pl 19607 2006-05-30T1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200462	200821	
==>e_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 237,
                  "ARGS" => [
                              "nc",
                              "n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009386	1009670	
==>,
                  "NAME" => "compose",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010150	1010434	
==>,
                  "NAME" => "compose",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
3	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	157	250	
==>e strict;

use Data::Dumper;
use File::Basename;
use File::Spec::Functions;
use Parrot::Config <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	653	770	
==>verbose');

    my $cc        = $conf->data->get('cc');
    my $libs      = $conf->data->get('libs');
    my $linkflag <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	594	711	
==>verbose');

    my $cc        = $conf->data->get('cc');
    my $libs      = $conf->data->get('libs');
    my $linkflag <==
3	/Users/nnunley/parrot/config/auto/readline.pm	606	723	
==>verbose');

    my $cc        = $conf->data->get('cc');
    my $libs      = $conf->data->get('libs');
    my $linkflag <==
3	/Users/nnunley/parrot/config/auto/headers.pm	553	671	
==>rot')) {
        $self->set_result('skipped');
        return $self;
    }

    # perl5's Configure system doesn't call <==
3	/Users/nnunley/parrot/config/inter/charset.pm	653	770	
==>arset/*.c"
    );

    my $charset_list = $conf->options->get('charset')
        || join(' ', grep { defined $_ } @cha <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10009	10124	
==>TUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
      return $x;
    }
  }
  foreach my $x (@_) {
    # Escape things ver <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	9777	9922	
==>pe_op' => 'l!',
             'parrot_is_shared' => 0,
             'perl' => 'perl',
             'platform_asm' => 0,
             'pmc' => 'defa <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	4654	4774	
==>)+//s;         # remove leading
	s/\n(\# *\n)+\s*$/\n/s;     # remove trailing
	s/^\#//mg; # get rid of #
	#s/^( *\n)+//s <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	18851	18964	
==>);

    my %language_test_map = (
        language_output_is   => 'output_is',
        language_output_like => 'ou <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035742	1035842	
==>L, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    {{\@1}} = result;\n    {{+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036906	1037006	
==>L, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    {{\@1}} = result;\n    {{+ <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10109	10194	
==>--------------------------------------

%Latin1Code_to_fallback = ();
@Latin1Code_to_f <==
3	/Users/nnunley/parrot/config/auto/memalign.pm	633	734	
==>ons->get('miniparrot')) {
        $conf->data->set(memalign => '');
        $self->set_result('skipped <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	2605	2699	
==>lass of L<Pod::Simple> and inherits all its methods.

This class is inspired by XML::Parser's " <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4008	4101	
==>->file_and_directory_paths;
}

=item C<directory_paths()>

These are the full paths of all the <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	1195	1310	
==>shmark()" ],
    [ "popmark()" ],
    [ "pushindex()" ],
    [ "popindex()" ],

    [ "preamble()" ],
    [ "match_s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326290	326395	
==>\"\n  {{\@1}}->vtable->set_integer_same(interpreter, {{\@1}},{{\@2}});\n  {{+=3}};\n",
                  " <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15542	15633	
==>ate (_get_arg($node,2));
  $self->_add_inst ('', 'set', [$return.'[0]',$value]);
  $self->_r <==
3	/Users/nnunley/parrot/lib/Test/More.pm	1800	1922	
==>est_name);

  SKIP: {
      skip $why, $how_many unless $have_some_feature;

      ok( foo(),       $test_name );
      is( <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3138	3255	
==>6', '.Undef', 'apply_CALL'],
  ['',            'set', 'P15', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['', <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	43700	43798	
==>ASE INSENSITIVE
		[a-z_]		# LEADING ALPHABETIC/'

This behaviour is identical to that of the actual <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26709	26815	
==>n";

		# Insert typeinfo code (sets up dtypes).
		$pir .= "### typeinfo\n";
		$pir .= sub_meta($rule->{'typ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557758	557856	
==>s\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next = {{^+3}};\n  STRING *meth;\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559142	559240	
==>s\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next = {{^+3}};\n  STRING *meth;\n <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16319	16421	
==>e_assign;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->forth);
      my $o <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17090	17192	
==>e_assign;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->forth);
      my $o <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17895	17997	
==>e_assign;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->forth);
      my $o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24838	25067	
==>ARROT_JUMP_ENEXT",
                  "NAME" => "tailcall",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inlin <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	1912	2073	
==>ing tests for $file\n";
            open my $tfh, '>>', $test;
            print {$tfh} $output;
            close $tfh;
        };
    }
    return;
}
##
## chec <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28847	28947	
==>s_method}{$meth};
    my $n = $self->{has_method}{$meth};
    return $self->{methods}[$n]{'loc'} ne ' <==
3	/Users/nnunley/parrot/config/auto/jit.pm	3781	3954	
==>nux')
                || ($osname eq 'darwin')
                || ($osname eq 'MSWin32')) {
                $execcapable = 0;
            }
        }
        $execcapable = $ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	6337	6507	
==>} =~ /^\d+$/) {
                if ($has_pop) {
                    die "Duplicate value for pop in rule $rule->{'name'}\n";
                } else {
                    $ <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4601	4727	
==>= q{};
    my $type    = 'STRING';

    $_ = $parser->YYData->{INPUT};
    s/^\n//
        and $parser->YYData->{lineno}++ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170382	170473	
==>/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171323	171414	
==>/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	728943	729166	
==>ODE" => 817,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 64 \"src/ops/set.ops\"\n   FLOATVAL temp = {{\ <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	8098	8225	
==>te *st, int n)
{
    /*
     * exessive args are passed as NULL
     * used by e.g. MMD infix like __add
     */
    if (n < st- <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	30733	30838	
==>lf->rewrite($R, $back);

    # Set up the full preamble, including stuff gathered from
    # rewriting the <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4221	4405	
==>$str .= chr $1, 
                last;

            s/^\\//
                and $parser->Error("Invalid escape sequence $_ .\n"),
                last;
        }
    }

    $pa <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2707	2890	
==>$str .= chr $1,
                last;

            s/^\\//
                and $parser->Error("Invalid escape sequence $_ .\n"),
                last;
        }
    }

    $pa <==
3	/Users/nnunley/parrot/lib/File/Which.pm	3184	3295	
==>{
    my @res = which($_[0]); # force wantarray
    return @res;
}

1;
__END__

=head1 NAME

File::Which - Porta <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	4602	4691	
==>$major_version = $ops->major_version;
my $minor_version = $ops->minor_version;
my $patch_v <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691196	691288	
==>ine 626 \"src/ops/pmc.ops\"\n   {{\@1}} = Parrot_thaw(interpreter, {{\@2}});\n   {{+=3}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691953	692045	
==>ine 626 \"src/ops/pmc.ops\"\n   {{\@1}} = Parrot_thaw(interpreter, {{\@2}});\n   {{+=3}};\n", <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	5375	5535	
==>")
            if $convert;
        
        # default value, if necessary
        if (defined $arg->{default}) {
            my $type    = $arg->{type} eq 'int' <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	18038	18153	
==>rr_Test}++;

    $self->{Test_Results}[$self->{Curr_Test}-1] = &share({
        'ok'      => 1,
        actual_ok => <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	18903	19018	
==>rr_Test}++;

    $self->{Test_Results}[$self->{Curr_Test}-1] = &share({
        'ok'      => 1,
        actual_ok => <==
3	/Users/nnunley/parrot/config/auto/cgoto.pm	740	865	
==>t(qw(cgoto verbose));

    my $test;
    if (defined $cgoto) {
        $test = $cgoto;
    } else {
        cc_gen('config/aut <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1406	1527	
==>RR => $out_f, 
        );
        my $prog_output = Parrot::Test::slurp_file( "$out_f" );

        @_ = ( $prog_output, $o <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1322	1443	
==>RR => $out_f, 
        );
        my $prog_output = Parrot::Test::slurp_file( "$out_f" );

        @_ = ( $prog_output, $o <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27330	27464	
==>ser,
        'result' => $l_continue,
    );
    push @opcodes, new LabelOp( $parser,
        'arg1' => $l_break,
    );
    retu <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28209	28343	
==>ser,
        'result' => $l_continue,
    );
    push @opcodes, new LabelOp( $parser,
        'arg1' => $l_break,
    );
    retu <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	58564	58664	
==>limited_pat> would be to build special purpose tags
for C<extract_tagged>. For example, to properly i <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	467	582	
==>y @keys = $data->keys;
    my $serialized = $data->dump;
    $data->clean;
    $data->settrigger($key, $trigger, $cb <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	2619	2717	
==>ss";
}

sub convert_rx_oneof {
    die "unimplemented enumerated charclass";
}

sub convert_rx_asse <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2162	2293	
==>cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various libra <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2454	2585	
==>cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various libra <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2249	2380	
==>cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various libra <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4262	4354	
==>_exists_with_name($name)>

Returns whether a file with the specified name exists in the direc <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	3	92	
==>opyright (C) 2001-2005, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Configure/Data.pm 2 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5421	5547	
==>undef);
	@$stack=( [ 0, undef ] );
	$$check='';

    while(1) {
        my($actions,$act,$stateno);

        $stateno=$$ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5161	5280	
==>undef);
	@$stack=( [ 0, undef ] );
	$$check='';

    while(1) {
        my($actions,$act,$stateno);

        $stateno=$$ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1455	1552	
==>if ($self->content) {
      $compiler->emit(".namespace ${namespace}_CONT");
      $compiler->inde <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11396	11493	
==>t::Expression::Value::Identifier->new($block, $token);
      my $op    = substr($self->forth->text <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11943	12040	
==>t::Expression::Value::Identifier->new($block, $token);
      my $op    = substr($self->forth->text <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12486	12583	
==>t::Expression::Value::Identifier->new($block, $token);
      my $op    = substr($self->forth->text <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7896	7995	
==>"
i%=54
if i% then print "This is true" else print "Oops (int)"
i=0
if i then print "Should not happ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14883	14982	
==>"
i%=54
if i% then print "This is true" else print "Oops (int)"
i=0
if i then print "Should not happ <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	3275	3369	
==>fix.

=item C<has_suffix($suffix)>

Finds out whether the name suffix is C<$suffix>.

Note that <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	1370	1486	
==>=dl
    over-block=blockquote
    item-bullet=li
    item-number=li
    item-text=dt
  )),
  changes2(
    map {; m/^ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	441	548	
==>w
{
  my $class = shift;
  my ($block, $left, $op, $right) = @_;

  confess "Block is not defined!" unless d <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	453	560	
==>w
{
  my $class = shift;
  my ($block, $left, $op, $right) = @_;

  confess "Block is not defined!" unless d <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	30089	30213	
==>$lbl_blk,
    );
    push @opcodes, new LabelOp( $parser,
        'arg1' => $lbl_or,
    );
    push @opcodes, new Branc <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	3988	4107	
==>b describe_perl_file {
    my($info,$text) = @_;
    my $desc;
    if($text =~ /^\#/) { # perl file (or sh)
	my($comment <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38086	38187	
==>ating.

The C<delegate> PMC redirects all methods to bytecode.

=cut

sub body
{
    my ($self, $metho <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1089	1191	
==>OMPATIBLE = '0.07';
$FILENAME=__FILE__;

use Carp;

#Known parameters, all starting with YY (leadi <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1052	1149	
==>OMPATIBLE = '0.07';
$FILENAME=__FILE__;

use Carp;

#Known parameters, all starting with YY (leadi <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2991	3098	
==>DOTPOS}} - 1;

		$index < 0
	and	-$index <= @{$$self{STACK}}
	and	return $$self{STACK}[$index][1];

	u <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2847	2948	
==>DOTPOS}} - 1;

		$index < 0
	and	-$index <= @{$$self{STACK}}
	and	return $$self{STACK}[$index][1];

	u <==
3	/Users/nnunley/parrot/lib/Test/More.pm	37245	37338	
==>lackstar.co.uk, chromatic, Fergal Daly and
the perl-qa gang.


=head1 BUGS

See F<http://rt.cp <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	10784	10916	
==>fputc       stdio.h
fputs       stdio.h
fread       stdio.h
free        stdlib.h
freopen     stdio.h
frexp       math.h
frexpf      m <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	19896	20030	
==>::Builder which
                # package the .t file is in (one more than usual, due to the
                # extra layer of package i <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19637	19741	
==>eline++;
		feedme;
		while($syms[CURR] ne "end") {
			my($name,$type);
			die "Syntax error in type $type <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	624876	624978	
==>bits;\n    PMC *sig;\n\n    ctx = CONTEXT(interpreter->ctx);\n    mic = (Parrot_MIC *) cur_opcode[1];\n <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	1540	1652	
==>}
	}
	#print CODE<<INIT;
	#.sub ${seg}_run			# Always jump here.
		#${seg}_main()
		#ret
	#.end
#INIT
	my($edit,@ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10838	10940	
==>)->{value};
  my $temp = $self->_generate(_get_arg($node,2));
  if ($temp !~ /^P/) {
    my $pmc = $sel <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1695	1799	
==>pos');
}

sub output_increment {
    my ($self, $distance, $failLabel) = @_;
    die "invalid distance" i <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1448	1552	
==>pos');
}

sub output_increment {
    my ($self, $distance, $failLabel) = @_;
    die "invalid distance" i <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19220	19313	
==>rser->get_short_title on that document will return "Hooboy,
stuff wow yeah!".

If the title ca <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5963	6086	
==>BG>				$debug & 0x01
#DBG>			and	print STDERR "Need token. Got ".&$ShowCurToken."\n";
			};

            $act=   exists( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5679	5798	
==>BG>				$debug & 0x01
#DBG>			and	print STDERR "Need token. Got ".&$ShowCurToken."\n";
			};

            $act=   exists( <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	4279	4390	
==>5 $data;
 $hash = md5_hex $data;
 $hash = md5_base64 $data;


 # OO style
 use Digest::MD5;

 $ctx = Digest::MD5 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840483	840764	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 953,
                  "ARGS" => [
                              "i <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	987	1096	
==>imal:
  if($in =~ m/^(0[0-7]*)$/s ) {
    $in = oct $in;
  } elsif($in =~ m/^0x([0-9a-fA-F]+)$/s ) {
    $in = <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2346	2455	
==>imal:
  if($in =~ m/^(0[0-7]*)$/s ) {
    $in = oct $in;
  } elsif($in =~ m/^0x([0-9a-fA-F]+)$/s ) {
    $in = <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7868	7965	
==>int "Should not happen (int)"
i%=54
if i% then print "This is true" else print "Oops (int)"
i=0
if <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14855	14952	
==>int "Should not happen (int)"
i%=54
if i% then print "This is true" else print "Oops (int)"
i=0
if <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	80	169	
==>n/Tools.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Secti <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615063	615340	
==>of object\");\n    }\n    {{\@1}} = offset;\n    {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616214	616491	
==>of object\");\n    }\n    {{\@1}} = offset;\n    {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/languages/converter.pl	1453	1563	
==>efined $item[3][0];
 		}
		| terminal(?) '|' production mod(?)
#		{[@item]}
		{ $return = '';
		  $return .= $i <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	5008	5130	
==>t <<EOC;
pc_$n:
EOC
}

sub New_func {
    my ($n, $arg, $cmt) = @_;
    my $nst = "";
    my $ns = $namespace{$arg};
    my <==
3	/Users/nnunley/parrot/config/init/hints/netbsd.pm	198	314	
==>gs !~ /-pthread/) {
        $ccflags .= ' -pthread';
    }
    $conf->data->set(ccflags => $ccflags);

    my $libs = <==
3	/Users/nnunley/parrot/config/init/hints/openbsd.pm	290	406	
==>gs !~ /-pthread/) {
        $ccflags .= ' -pthread';
    }
    $conf->data->set(ccflags => $ccflags);

    my $libs = <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	18760	18922	
==>'pasm',
        PAST  => 'past',
        PIR   => 'pir',
                                  );

    my %language_test_map = (
        language_output_is   => 'outpu <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	1910	2039	
==>"all_source") {
        # do a little "find" action for now.
        
        @files = ();
        File::Find::find({wanted => sub <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	1079	1187	
==>"all_source") {
    # do a little "find" action for now.
    @files = ();
    File::Find::find({wanted => sub <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4173	4268	
==>($where)>

The various C<goto_I<X>> methods below call this method with the return
value of an C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557965	558053	
==>ont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAILCALL;\n  interpreter->c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559349	559437	
==>ont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAILCALL;\n  interpreter->c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560721	560809	
==>ont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAILCALL;\n  interpreter->c <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	21036	21217	
==>it_mmds{$variant->[0]} = 1;
                }
                else {
                    $right = "enum_class_$variant->[0]";
                }
                $meth_name = $variant- <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	12260	12391	
==>},
            "t_$temp_num = GET_NCI_N($reg_num);";
        return "t_$temp_num";
    };
    /t/ && do {
        push @{$temps_ref} <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	16849	16958	
==>found in the file(s).

=cut

sub ops
{
    my ($self) = @_;

    return @{$self->{OPS}};
}

=item C<op($index) <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	8415	8521	
==>d"
        or $tagname eq 'X';
}

=item C<process_end_token($token)>

Processes an end token.

=cut

sub pr <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	210	309	
==>b new() {
	die "Attempt to instantiate abstract class SRM::Base.\n";
}

# Pre and post translation h <==
3	/Users/nnunley/parrot/config/inter/ops.pm	140	236	
==>onfig/inter/ops.pm - Ops Files

=head1 DESCRIPTION

Asks the user to select which ops files to in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126806	127162	
==>[
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rot",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127941	128297	
==>[
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rot",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	25074	25170	
==>self, $text)
{
	&{$_[0]}($_[1]);
}

package Text::Balanced::ErrorMsg;

use overload '""' => sub { <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6675	6820	
==>atch goto match_fail
          match_success:
            print "matched"
            goto match_end
          match_fail:
            print "fail <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7692	7837	
==>atch goto match_fail
          match_success:
            print "matched"
            goto match_end
          match_fail:
            print "fail <==
3	/Users/nnunley/parrot/Configure.pl	9037	9146	
==>gcc
    auto::msvc
    init::optimize
    inter::shlibs
    inter::libparrot
    inter::charset
    inter::enc <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	150	272	
==>hs.reverse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say("Empty compile time value given to <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645759	645851	
==>s\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtable_max)\n\t\t{{\@1}} = interpreter-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646656	646748	
==>s\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtable_max)\n\t\t{{\@1}} = interpreter-> <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	3634	3769	
==>e;

    eval "package $caller; require $module";

    #try {
    #    &::($module)::import.goto();
    #};

    if ($!) {
        Test:: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3830	3924	
==>st_ident->kind eq 'var') and ($dest_ident->scope eq 'global')) {
    my $pmc_type = $dest_ident <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4738	4832	
==>st_ident->kind eq 'var') and ($dest_ident->scope eq 'global')) {
    my $pmc_type = $dest_ident <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2801	2895	
==>st_ident->kind eq 'var') and ($dest_ident->scope eq 'global')) {
    my $pmc_type = $dest_ident <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	4144	4249	
==>{slash}/g;
    (my $TEMP_pmc_classes_pmc = $pmc_list)     =~ s/^| / src${slash}pmc${slash}/g;

    # Gathe <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	339	440	
==>=~tr/A-Z/a-z/;
	}
	push(@tokens, $curtok);
	push(@tokdsc, $_[0]);
	$curtok="";
}

sub tokenize {

	fet <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	324	420	
==>of PMCs linked in the
same dynamic library. A degenerate case is having an unnamed library with j <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	7307	7415	
==>P";
		if (! @stack) {
			push @stack, $item;
			next;
		}
		while(@stack and precedence($stack[-1]->[0]) >= p <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1187	1283	
==>$self->ident->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();
    $compiler->emit("  $pm <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1181	1277	
==>$self->ident->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();
    $compiler->emit("  $pm <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980566	980915	
==>,
                  "TYPE" => "inline",
                  "CODE" => 1100,
                  "ARGS" => [
                              "i",
                              "ic",
                              "sc",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 622 <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	13678	13876	
==>or (i = 0; i < OP_HASH_SIZE; i++)
            for (p = hop[i]; p; ) {
                next = p->next;
                free(p);
                p = next;
        }
        free(hop);
    }
    hop = 0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490343	490595	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "inc",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490964	491216	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "inc",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "in <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21536	21666	
==>ent)) {
        $self->whine(
          $para->[1]{'start_line'},
          "'=end' without a target?" . (
            ( @$curr_ope <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1184	1280	
==>piler->emit(".namespace ${namespace}");
      $compiler->indent;
      $self->SUPER::compile($com <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	90	183	
==>ec;


=head1 NAME

tools/dev/gen_charset_tables.pl -- generate charset tables

=head1 SYNOPSIS <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	592	684	
==>piler->emit(".namespace ${namespace}");
    $compiler->indent;
    $self->SUPER::compile($com <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	3843	4048	
==>next run
                    keys(%templates);
                    last;
                }
            }

            # end of template definition?
            if (defined($template)) {
                $tem <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37209	37305	
==>e, $repspec, $min, $max, $lookahead) =
		@{$self}{ qw{subrule repspec min max lookahead} };

''.( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1300	1385	
==>:Decrement;
use Jako::Construct::Statement::Goto;
use Jako::Construct::Statement::Incr <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	44100	44216	
==>/         
    

    DEBUG > 4 and print "_verbatim_format considers:\n<$p->[$i-1]>\n<$p->[$i]>\n";
    
    $formatt <==
3	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	901	999	
==>r
# distributions or in general when svn is not available).
# See docs/submissions.pod on how to re <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3756	3854	
==>r
# distributions or in general when svn is not available).
# See docs/submissions.pod on how to re <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4764	4862	
==>nd ($dest_ident->scope eq 'global')) {
    my $pmc_type = $dest_ident->type->imcc_pmc;
    my $pmc_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2827	2925	
==>nd ($dest_ident->scope eq 'global')) {
    my $pmc_type = $dest_ident->type->imcc_pmc;
    my $pmc_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	1320	1416	
==>rent stack to register mapper\n";
}
sub post_call {
	die "post_call not implemented for current s <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1965	2102	
==>eturn;
	}
    print "OK: $file\n";
}

sub run_test {
    my ($file, $expect) = @_;
    my $ret = `$urmc $run $FindBin::RealBin$PConfig{sla <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53326	53424	
==>EBUG_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_GC_DEBUG_FLAG); }\n  {{+=2}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54082	54180	
==>EBUG_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_GC_DEBUG_FLAG); }\n  {{+=2}} <==
3	/Users/nnunley/parrot/config/inter/progs.pm	2644	2752	
==>er receive?", $ccflags)
        if $ask;
    $conf->data->set(ccflags => $ccflags);

    $linkflags = $conf-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64690	64776	
==>({{\@1}});\n  Interp_flags_SET(new_interp, PARROT_EXTERN_CODE_FLAG);\n  new_interp->cod <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65641	65727	
==>({{\@1}});\n  Interp_flags_SET(new_interp, PARROT_EXTERN_CODE_FLAG);\n  new_interp->cod <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29187	29338	
==>,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41293	41444	
==>,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44439	44590	
==>,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	2116	2218	
==>_init(interp, enum_class_${_}, pass);\n" foreach (@pmcs[-1 .. -1]);
    print OUT "        Parrot_${_}_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	371	476	
==>use base qw(Jako::Construct::Block::Conditional);

#
# new()
#

sub new
{
  my $class = shift;
  my ($bloc <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	383	488	
==>use base qw(Jako::Construct::Block::Conditional);

#
# new()
#

sub new
{
  my $class = shift;
  my ($bloc <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2472	2576	
==>ing the files linked to is returned.

=cut

sub write_contents_html
{
	my $self = shift;
    my $source = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122167	122457	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123079	123369	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/tools/build/vtable_h.pl	566	669	
==>'EOF';
/* ex: set ro:
** !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
**
** This file is generated automati <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	282267	282525	
==>rc/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283112	283370	
==>rc/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283957	284215	
==>rc/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066446	1066836	
==>math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1191,
                  "ARGS" => [
                              "i",
                              "n",
                              "n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035505	1035602	
==>ex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n    PMC *result = NULL;\n\n    if (!PMC_IS_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036669	1036766	
==>ex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n    PMC *result = NULL;\n\n    if (!PMC_IS_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	2058	2169	
==>turn @{shift->{ARGS}}; }

sub file   { return shift->{FILE};     }
sub line   { return shift->{LINE};     }

sub <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3047	3152	
==>cs) = @ARGV;

if ($mode eq 'generate') {
    # Convert X.pmc -> X.dump and X.c and also create any lib-GRO <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3151	3256	
==>cs) = @ARGV;

if ($mode eq 'generate') {
    # Convert X.pmc -> X.dump and X.c and also create any lib-GRO <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	6526	6671	
==>ore beginning of ops in file '$orig'!\n"
            unless defined $self->version;

        #
        # Handle start-of-op:
        #
        # W <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561800	561891	
==>t.ops\"\n  opcode_t *next = {{^+4}};\n  {{\@1}} = VTABLE_find_method(interpreter, {{\@2}}, { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562884	562975	
==>t.ops\"\n  opcode_t *next = {{^+4}};\n  {{\@1}} = VTABLE_find_method(interpreter, {{\@2}}, { <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	8751	8896	
==>e',
             'make_and' => '&&',
             'make_c' => 'gmake -C',
             'make_set_make' => '#',
             'memalign' => 'some_me <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7396	7488	
==>emp);

  $self->_add_inst('', 'set', [$list,$list.'[1]']);
  $self->_add_inst('', 'typeof', [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	220	310	
==>C<Parrot::OpTrans::CSwitch> inherits from C<Parrot::OpTrans::CPrederef>
to provide a mixtur <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	56716	56830	
==>[#Rule 87
		 'functioncall', 2,
sub
#line 459 "Lua\lua51.yp"
{
            my $fct = BuildCallVariable( $_[0], <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11373	11471	
==>$ident = Jako::Construct::Expression::Value::Identifier->new($block, $token);
      my $op    = sub <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11920	12018	
==>$ident = Jako::Construct::Expression::Value::Identifier->new($block, $token);
      my $op    = sub <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12463	12561	
==>$ident = Jako::Construct::Expression::Value::Identifier->new($block, $token);
      my $op    = sub <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	91	182	
==>/mops.pl 19601 2006-05-30T13:32:26.641316Z coke  $

=head1 NAME

examples/mops/mops.c - Calc <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	87	178	
==>/mops.pl 19601 2006-05-30T13:32:26.641316Z coke  $

=head1 NAME

examples/mops/mops.c - Calc <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3383	3492	
==>be "print the last command". Which is harder.
        $body =~ s/^(\s*)([^\n]+)\s*\Z/$1puts [$2]/m;

        $ <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4790	4899	
==>be "print the last command". Which is harder.
        $body =~ s/^(\s*)([^\n]+)\s*\Z/$1puts [$2]/m;

        $ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	207	301	
==>tion

=head1 SYNOPSIS

	use Parrot::Docs::Section::PMCs;

=head1 DESCRIPTION

A documentation s <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	7754	7873	
==>t = 1;
		    }
		}
		if ($type =~ /^[ABCDFGQRSTU]$/i) {
		    unless ($undef || $code || $other || $absolute) {
			if ($ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	116	215	
==>SA $VERSION $SORT_ATTRS);
$VERSION = '2.02';
BEGIN {
  @ISA = ('Pod::Simple');
  *DEBUG = \&Pod::Sim <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	117	216	
==>SA $VERSION $SORT_ATTRS);
$VERSION = '2.02';
BEGIN {
  @ISA = ('Pod::Simple');
  *DEBUG = \&Pod::Sim <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	4499	4600	
==>is is a problem, you probably have a huge test script.
Split it into multiple files.  (Otherwise blame <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2865	2957	
==>t::Wrap::wrap($indent, $indent, $self->{'Thispara'} .= "\n");
  $out =~ tr{\xA0}{ } if Pod::S <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2399	2491	
==>t::Wrap::wrap($indent, $indent, $self->{'Thispara'} .= "\n");
  $out =~ tr{\xA0}{ } if Pod::S <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105072	105281	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105809	106018	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8125	8279	
==>if ( ref($idf) eq 'ARRAY' ) {
        my $defn = $idf->[0];
        push @opcodes, @{ $idf->[1] };
        my $last_key = pop @{$var};
        my $resu <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	47957	48145	
==>: simple end-codes
        |
        (               # $5: stuff containing no start-codes or end-codes
          (?:
            [^A-Z\ >]+
            |
            (?:
              [A-Z <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247016	247338	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "and",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247879	248201	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "and",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	248743	249065	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "and",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1197	1311	
==>{};
for my $t ( keys %{$tests} ) {
    for my $s ( keys %$streams ) {
        $test_map->{join( '_' => $lang, $s, $ <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5927	6035	
==>) {
    next unless ($entry->[4] =~ /MMD_/);
    next if ($entry->[4] =~ /_INT$/);
    next if ($entry->[4] = <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6345	6453	
==>) {
    next unless ($entry->[4] =~ /MMD_/);
    next if ($entry->[4] =~ /_INT$/);
    next if ($entry->[4] = <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	1425	1529	
==>Append the short BSD-style type to the symbol name.

    B - uninitialised data symbol
    D - initialise <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227387	227481	
==>eter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) >= 0) {\n    {{+={{\@3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228367	228461	
==>eter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) >= 0) {\n    {{+={{\@3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64769	64879	
==>erp->code = interpreter->code;\n  runops(new_interp, REL_PC + {{\@2}});\n  {{+=3}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65720	65830	
==>erp->code = interpreter->code;\n  runops(new_interp, REL_PC + {{\@2}});\n  {{+=3}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752019	752126	
==>.ops\"\n  {{\@1}} = {{\@2}}->vtable->get_integer(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054261	1054354	
==>e 182 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (PMC_IS_NULL({{\@2}}))\n\tinternal_exc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055388	1055481	
==>e 182 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (PMC_IS_NULL({{\@2}}))\n\tinternal_exc <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5365	5450	
==>azy move.
PRE_BRANCH_${CURIC}_LAZY_MOVE_$register_num:
${STACK$register_num} = pop laz <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	35301	35442	
==>end;
            }
        }
    }
    push @opcodes1, @{$block};
    push @opcodes1, new BranchOp( $parser,
        'result' => $lbl_lo <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	2548	2656	
==>lse {
        $nclass .= "::Standard";
    }
    $nclass;
}

=item C<dynext_load_code($library_name, %classes <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	8832	8940	
==>);

  $runcore{$_[0]};
}

sub runcore_from_args {
  local $_ = shift;

  /\b-g\b/ and return "goto";
  /\b-j\ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32214	32308	
==>{STOREREG} in rule " .
				"$rule->{'name'}\n";
		} elsif ("$rule->{'pir'}$rule->{'instruction' <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7173	7264	
==>e_short"]
${DEST0} = concat ${STEMP0}
${STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
PI <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4995	5086	
==>e_short"]
${DEST0} = concat ${STEMP0}
${STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
PI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284306	284655	
==>t",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 331,
                  "ARGS" => [
                              "i <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	11206	11335	
==>e}(interp, $Y, $Z)
        elsif ($opbody =~ /
        ^(?:.*\.ops")\s+
        {{\@(\d)}}->vtable->
        (\w+)
        \(inter <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	30446	30543	
==>_num_arg ($node, 1, 'procedure?');

  $return = $self->_constant(0);

  my $temp = $self->_generat <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	6502	6635	
==>unget;
        while(1) {
          push @to_unget, $self->get_token;
          last if $to_unget[-1]->is_end
              and $to_un <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	2178	2299	
==>PIR

    $P0[unicode:"dyadic:\u2260"]  = <<"END_PIR"             # not equal
    $I100 = isne %1, %2
    %1 = $I100
END_PI <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	9613	9771	
==>> '',
             'osname' => 'darwin',
             'packtype_b' => 'C',
             'packtype_i' => 'l!',
             'packtype_n' => 'd',
             'p <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	40370	40498	
==>ra->[-1] =~ s/\n+$//s; # Kill any number of terminal newlines
        }
        
      } elsif($para_type eq 'Data') {
        DE <==
3	/Users/nnunley/parrot/config/gen/icu.pm	3862	3966	
==>ed=(flags)  Full linker command to create shared libraries
HELP

    #'

    my $icudir = dirname($icuhea <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39783	39921	
==>ACTIONS => {
			"(" => 123
		},
		GOTOS => {
			'funcbody' => 184
		}
	},
	{#State 165
		ACTIONS => {
			"," => 151
		},
		DEFAU <==
3	/Users/nnunley/parrot/config/auto/pack.pm	1071	1200	
==>rmat = 'l!';
        } elsif ($size == 4) {
            $format = 'l';
        } elsif ($size == 8 || $Config{use64bitint} eq 'def <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	18379	18480	
==>erson'};


Modified by Casey West, 2000-11-08, v0.59.

    Added the ability for compile time class cr <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26301	26429	
==>NEXT
			if ($syms[NEXT] eq ",") {
				feedme();
				feedme();
				$ps=pop @{$fors[$scopes]};
				next;
			}
			last;
		}
	}
}
sub <==
3	/Users/nnunley/parrot/Configure.pl	3040	3136	
==><libc>, C<malloc> or C<malloc-trace>. The default is C<gc>.

=back

ICU Options

=over

=item C<- <==
3	/Users/nnunley/parrot/config/inter/types.pm	201	296	
==>IPTION

Asks the user which size integer, floating-point number and opcode types should
be.

=cu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50764	50955	
==>,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 800 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	12333	12434	
==>Ogling encoding directive: =encoding $content\n";
  
  if($content eq 'ALREADYDONE') {
    # It's alre <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	15429	15560	
==>1 (\w*) $,sx
         )
    {
        $usable_regex = length $opts ? "(?$opts)$re" : $re;
    }

    return $usable_regex;
};

sub _ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023346	1023442	
==>tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_localtime_r(&t, &tm);\n  {{\@1}} = tm_to_arra <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024196	1024292	
==>tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_localtime_r(&t, &tm);\n  {{\@1}} = tm_to_arra <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632654	632799	
==>\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633696	633841	
==>\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	786	880	
==>T THIS FILE
 *
 * Automatically generated by config/gen/core_pmcs.pm
 */

/* &gen_from_enum(pmc <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	9204	9312	
==>ss defined $new_code and length $new_code;
    if(ASCII) {
      # A good-enough check that it's good as an X <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10468	10576	
==>ss defined $new_code and length $new_code;
    if(ASCII) {
      # A good-enough check that it's good as an X <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	19997	20102	
==>", $i-1,
         ":[$treelet->[$i-1]] and $i\:[$treelet->[$i]]\n";
        $treelet->[$i-1] .= ( splice(@ <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	756	875	
==>cflags   = $conf->data->get('ccflags');
    if ($^O =~ /mswin32/i) {
        if ($cc =~ /^gcc/i) {
            $conf->da <==
3	/Users/nnunley/parrot/config/auto/readline.pm	768	887	
==>cflags   = $conf->data->get('ccflags');
    if ($^O =~ /mswin32/i) {
        if ($cc =~ /^gcc/i) {
            $conf->da <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	795	907	
==>=cut

sub new
{
    my $class = shift;

    return bless {}, ref $class || $class;
}

=back

=head3 Object Method <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	4574	4679	
==>>[1]($args) \\
    (pmc)->vtable->$entry->[1]($args)
EOM
    }
    $macros .= <<"EOM";

/*
 * vtable metho <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	19063	19164	
==>pir .= binary_dispatch_table('', @rules_grouped);

    # Emit unknown instruction code.
    $pir .= << <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432424	432513	
==>line 84 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433439	433528	
==>line 84 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}} <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3362	3455	
==>hat cross into the operating system and/or
external libraries, you usually cannot go overly C< <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32117	32208	
==>$parameters" if $parameters;
    my $body = "VTABLE_$meth(interpreter, PMC_pmc_val(pmc)$arg) <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33694	33785	
==>$parameters" if $parameters;
    my $body = "VTABLE_$meth(interpreter, PMC_pmc_val(pmc)$arg) <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	9610	9717	
==>nc_table;

    print SOURCE <<END_C;
  (op_func${suffix}_t)0  /* NULL function pointer */
};


END_C
}

my ( <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	2618	2718	
==>ages/unlambda'),
        $self->new_section('URM', 'urm.html', '', 'languages/urm'),
        $self->n <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	448	568	
==>etch;
	fetch;
MAIN:
	goto END if $cur eq -1;
	if ($cur =~ /[\t ]/) {   # Whitespace
		fetch;
		goto MAIN;
	}

	if ($cur = <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	13061	13171	
==>o {local $/; <$fh>};
    close($fh) or die "Can't close $filename: $!";

    return $text;
}

=back

=head1 SEE <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	763	860	
==>ame, integer, channel, list, string, script, and expressions.

=cut

my $file = open_tmt(shift @AR <==
3	/Users/nnunley/parrot/config/gen/platform.pm	3063	3195	
==>< $_" or die "Can't open $_: $!";
            print PLATFORM_H <<"END_HERE";
/*
** $_
*/
#line 1 "$_"
END_HERE
            print PLAT <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6180	6291	
==>}->{lib} = 1;
        }
    }

    return (\%group_files, \%group_libs, \%pmc_group, \%pmc_libs);
}

sub modtime <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6391	6502	
==>}->{lib} = 1;
        }
    }

    return (\%group_files, \%group_libs, \%pmc_group, \%pmc_libs);
}

sub modtime <==
3	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	3263	3390	
==>);

    if ($? >> 8) {
        die "Error " . ($? >>8). " running $command\n";
    }
}

sub copy_file {
    my ($from, $to) = @_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3150	3249	
==>.

=item C<expr NEXT()>

Transforms to C<PC + S>, the position of the next op.

=item C<expr ADDRESS <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	285	375	
==>al "use warnings";

package Jako::Construct::Type::String;

use base qw(Jako::Construct::Ty <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10267	10388	
==>ck: aborting.\n";

			return(undef);
		};

		#shift the error token

#DBG>			$debug & 0x10
#DBG>		and	print STDERR <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	10118	10233	
==>ay
    } else {
      $enc_error = "Encoding is already set to " . $self->{'encoding'};
      DEBUG > 1 and print $e <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9807	9920	
==>ck: aborting.\n";

			return(undef);
		};

		#shift the error token

#DBG>			$debug & 0x10
#DBG>		and	print STDERR <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	4133	4287	
==>st ]);
    } else {
        my $testop = rop('test', [ $op1, $rev_test, $op2,
                                   rop('goto', [ $continue ]) ]);
        ret <==
3	/Users/nnunley/parrot/tools/build/vtable_extend.pl	208	307	
==>** !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
**
** This file is generated automatically from 'vtable <==
3	/Users/nnunley/parrot/tools/build/vtable_h.pl	588	687	
==>** !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
**
** This file is generated automatically from 'vtable <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33736	33856	
==>$para, splice @{shift @$paras},2;
            } else {
              DEBUG and print "Can't assimilate following ", $para <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35549	35669	
==>$para, splice @{shift @$paras},2;
            } else {
              DEBUG and print "Can't assimilate following ", $para <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	2687	2775	
==>data(final_destination) = return_data;\n    set_nci_P(interpreter, &st, final_destination <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1525	1670	
==>nsform's arguments.

=cut

sub args
{
    my $self = shift;

    if (@_)
    {
        $self->{ARGS} = [ @_ ];
    }
    else
    {
        return <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1134	1279	
==>nsform's arguments.

=cut

sub args
{
    my $self = shift;

    if (@_)
    {
        $self->{ARGS} = [ @_ ];
    }
    else
    {
        return <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	15115	15211	
==>core: $code>") )
		unless $self->{items}[-1]->describe =~ /<score/;
	return 1;
}

sub check_pendi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826692	826805	
==>, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_num(entry->entry);\n  {{+=3}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827762	827875	
==>, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_num(entry->entry);\n  {{+=3}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	3363	3452	
==>t::Type::PMC');
  $self->SYNTAX_ERROR("Can't do arithmetic on PMCs") if UNIVERSAL::isa($le <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65066	65208	
==>" => "PARROT_JUMP_RELATIVE|PARROT_JUMP_ENEXT",
                  "NAME" => "runinterp",
                  "FLAGS" => "",
                  "ARG <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	2220	2321	
==>r && $sourcefile;

#		local $::RD_HINT = 1;
		$self = Parse::RecDescent->new($grammar,1)
			|| croak(" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679120	679208	
==>"#line 483 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_string(interpreter, {{\@1}}, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679899	679987	
==>"#line 483 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_string(interpreter, {{\@1}}, <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1735	1839	
==>og ? $prog : $conf->data->get($util));
    }

    my ($stdout, $stderr, $ret) = capture_output($prog, '-- <==
3	/Users/nnunley/parrot/config/inter/make.pm	1609	1713	
==>og ? $prog : $conf->data->get($util));
    }

    my ($stdout, $stderr, $ret) = capture_output($prog, '-- <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1749	1853	
==>og ? $prog : $conf->data->get($util));
    }

    my ($stdout, $stderr, $ret) = capture_output($prog, '-- <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	3598	3700	
==>="Int" context="#stay" />
END

print <<END;
          <RegExpr attribute="Register" context="#stay" Str <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	1065	1165	
==>:Docs::Item->new(@_);
}

=item C<new($text, @contents)>

Returns a new item. If there is no descripti <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	3296	3397	
==>do, :$depends) returns Bool is export {
    my $out := defined($desc) ?? $desc !! "The object is-a '$e <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	39687	39783	
==>\n\nline 3\n/para line 4";

	extract_tagged($text, '/para', '/endpara', undef,
				{reject => '/p <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	40001	40096	
==>\n\nline 3\n/para line 4";

	extract_tagged($text, '/para', '/endpara', undef,
			{reject => '/p <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	12092	12221	
==>source_file");
    print OUT "<pre>";

    # filter out any branch coverage lines.
    do_filter(sub { /^branch/ } );

    print O <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	7803	7913	
==>.
    open  OLDOUT, ">&STDOUT" or die "Can't save     stdout" if $out;
    open  OLDERR, ">&STDERR" or die "Can <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7854	7962	
==>.
    open OLDOUT, ">&STDOUT" or die "Can't save     stdout" if $out;
    open OLDERR, ">&STDERR" or die "Can <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15450	15546	
==>ub is_deeply (Pair  $got, Pair  $expected, Str $desc?) returns Bool;

Because these functions wil <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	689	803	
==>ues. q[] is used in
# some places as Win32 paths have \'s in, which qq[] treats as escape sequences.
# Config stuff <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	647	761	
==>ues. q[] is used in
# some places as Win32 paths have \'s in, which qq[] treats as escape sequences.
# Config stuff <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	651	765	
==>ues. q[] is used in
# some places as Win32 paths have \'s in, which qq[] treats as escape sequences.
# Config stuff <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	329414	329665	
==>umber(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	330892	331143	
==>umber(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	3528	3634	
==>|| $dynamic_flag) {
    $source  =~ s!src/ops/!!;
    $header = "${base}_ops${suffix}.h";
    $base =~ s!^. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840146	840228	
==>rc/ops/stack.ops\"\n  rotate_entries(interpreter, &CONTEXT(interpreter->ctx)->user_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840841	840923	
==>rc/ops/stack.ops\"\n  rotate_entries(interpreter, &CONTEXT(interpreter->ctx)->user_ <==
3	/Users/nnunley/parrot/config/init/hints/darwin.pm	934	1085	
==>ink                => 'c++',
        ld                  => 'c++',
        ld_share_flags      => '-dynamiclib -undefined suppress',
        ld_load_fla <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2122	2232	
==>f $class;
    while (1) {
        last if UNIVERSAL::isa("${class}::$name", 'Regex::Ops::Tree');
        $class <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	12199	12297	
==>ment of the array; the second argument, if
present, is assigned to the array element.  If the eleme <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556132	556551	
==>"ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 638,
                  "ARGS" => [
                              "p",
                              "p",
                              "p"
                            ],
                  "B <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1816	1944	
==>TE;

# Actual commands
sub compile_cmd {
    my ($target, $source) = @_;

    return
        "$CC $CFLAGS " .
        "-o " . $ta <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1907	2035	
==>TE;

# Actual commands
sub compile_cmd {
    my ($target, $source) = @_;

    return
        "$CC $CFLAGS " .
        "-o " . $ta <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24952	25087	
==>($block, $kind, $target, $cond, $left, $op, $right);
      next;
    }

    #
    # Conditional Blocks:
    #
    #   if     (<value> <o <==
3	/Users/nnunley/parrot/lib/Test/More.pm	12298	12402	
==>hecks to make
sure the object was defined in the first place.  Handy for this sort
of thing:

    my $obj <==
3	/Users/nnunley/parrot/tools/build/revision_c.pl	790	882	
==>ROT_API int Parrot_config_revision(void);

int Parrot_revision(void)
{
    return ${Parrot::R <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	25095	25202	
==>getting undef
           UNIVERSAL::can((tied($maybe_fh) || ''), 'TIEHANDLE');
}


sub _autoflush {
    my($ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019818	1019910	
==>= (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_localtime_r(&t, &tm);\n  Parrot_ascti <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020749	1020841	
==>= (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_localtime_r(&t, &tm);\n  Parrot_ascti <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	2149	2294	
==>name;
                          }}, '.');
    }

    # note: need to run this a second time so the database is built.
    # should just use the bu <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	5639	5739	
==>ELF.method(a,b,c)>

Calls the vtable method 'method' using the static type of C<SELF> (in
other words <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	7135	7231	
==>st->{methods} }, {
		meth => "$meth",
		type => $entry->{type},
		parameters => $entry->{paramete <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540484	540584	
==>}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541736	541836	
==>}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542988	543088	
==>}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !( <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	349	470	
==>print STDOUT 'lua: ', $parser->YYData->{srcname}, ':',
        $parser->YYData->{lineno}, ': ', $msg
        if ( exists <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	815	936	
==>print STDOUT 'lua: ', $parser->YYData->{srcname}, ':',
        $parser->YYData->{lineno}, ': ', $msg
        if ( exists <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1273	1394	
==>print STDOUT 'lua: ', $parser->YYData->{srcname}, ':',
        $parser->YYData->{lineno}, ': ', $msg
        if ( exists <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025340	1025687	
==>,
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1146,
                  "ARGS" => [
                              "s",
                              "ic" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605351	605524	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606141	606314	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIR <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9705	9830	
==>xt_token
{
    my $self = shift;
    my $token = shift;
    my $text = $token->text;
    
    esc($text);
    $text =~ s/([\?\ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1129	1249	
==>ontaining subrules that refer to each
other. In this form:

    [
        [ name1 => 'pattern 1' ],
        [ name2 => 'p <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1308	1425	
==>tx) ];
    return $code;
}

sub list_to_pasm {
    my ($list_regex, $ctx, %options) = @_;
    my $cgen;

    $options{ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7009	7120	
==>").qq(\\n"));
    }
    push @ops, $self->pushop . " <rx_stack>, -1 # pushmark";
    return @ops;
}

sub output_ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	53949	54044	
==>atched substrings (see below) within the
text should be skipped or returned as fields. If the va <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11238	11329	
==>t ELEMENT_TYPE_ARRAY= 0x14
	.const int ELEMENT_TYPE_TYPEDBYREF = 0x16
	.const int ELEMENT_TY <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	727	824	
==>dentifier');
  confess("Left (" . ref($left) . ") is not Value") unless UNIVERSAL::isa($left, 'Jak <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	718	815	
==>dentifier');
  confess("Left (" . ref($left) . ") is not Value") unless UNIVERSAL::isa($left, 'Jak <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	607	704	
==>dentifier');
  confess("Left (" . ref($left) . ") is not Value") unless UNIVERSAL::isa($left, 'Jak <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4851	4950	
==>{
    my ($self, $incexc, $failLabel) = @_;

    my $passLabel = $self->{state}->genlabel("pass_char <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4515	4614	
==>{
    my ($self, $incexc, $failLabel) = @_;

    my $passLabel = $self->{state}->genlabel("pass_char <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	267	364	
==>::Base.\n";
}

# Pre and post translation hooks.
sub pre_translation {
	die "pre_translation not i <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	14928	15036	
==>egex::Ops::Tree::rule::reftree {
    my $op = shift;
    my ($rule, $tree) = @{ $op->{args} };
    return [ a <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12676	12775	
==>, qq{"$labels{$syms[CURR]}"};
	} else {
		push @args, qq{""};
	}
	feedme();
	push @{$code{$seg}->{co <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	504	600	
==>}->genlabel("L");
}

sub is_label {
    return UNIVERSAL::isa(shift(), 'Regex::Ops::Label');
}

= <==
3	/Users/nnunley/parrot/examples/benchmarks/fib.pl	354	462	
==>ecified).

=cut

use strict;

sub fib {
	my $n = shift;
	return $n if ($n < 2);
	return fib($n-1) + fib($n-2) <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	2465	2566	
==>elf, $tree, $ctx) = @_;
    return op('seq' => [ $self->convert($tree, $ctx), op('atend') ]);
}

sub c <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	11267	11362	
==>The command's output (both stdout and stderr), and
its return status is returned as a 3-tuple. B <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5198	5301	
==>it('',$$token)) {
#DBG>			$tok.=		(ord($_) < 32 or ord($_) > 126)
#DBG>					?	sprintf('<%02X>',ord($_) <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4948	5049	
==>it('',$$token)) {
#DBG>			$tok.=		(ord($_) < 32 or ord($_) > 126)
#DBG>					?	sprintf('<%02X>',ord($_) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	153954	154046	
==>(mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_NUMEQ)) {\n    {{+={{\@3}}}};\n  }\n  { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643720	644040	
==>"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 719,
                  "ARGS" => [
                              "i",
                              "p",
                              "ki"
                            ],
                  "BODY" => "#line 199 \"src/ops <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27601	27700	
==>= $text;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'unless')
		. ' ($text =~ s/\A($skip)/$last <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29711	29810	
==>= $text;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'unless')
		. ' ($text =~ s/\A($skip)/$last <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31808	31907	
==>= $text;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'unless')
		. ' ($text =~ s/\A($skip)/$last <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722499	722776	
==>1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723528	723805	
==>1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724572	724848	
==>1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_ <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	366	483	
==>the only\n",
        "argument. The XML file will be written to the standard\n",
        "output.\n\n";
    exit;
}

$ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9557	9674	
==>nd of input: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	print STDERR "**At eof: aborting.\n";
				retu <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9127	9240	
==>nd of input: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	print STDERR "**At eof: aborting.\n";
				retu <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	2991	3097	
==>self->c_item(
                'Parrot Interpreter: Callback Function Handling; Creation and Destruction; Mi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1301	1406	
==>ely to be link-section specific --
# but it just so happens that link-sections are about the only treelets <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	30480	30576	
==>der = $text) =~ s/\A('(\\.|[^'])*')//s;
	$extracted = $1;

but with C<extract_delimited> it can b <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5468	5568	
==>'', 'set', [$pair.'[0]',$item]);
      $self->_add_inst ('', 'set', [$pair.'[1]',$return]);
      $se <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17019	17113	
==>'', 'set',[$pair.'[0]',$item]);
    $self->_add_inst ('', 'set',[$pair.'[1]',$return]);
    $se <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6507	6598	
==>'', 'set', [$pair.'[0]',$item]);
  $self->_add_inst('', 'set', [$pair.'[1]',$return]);
  $se <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117953	118243	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118692	118982	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2360	2456	
==>->is_end

This is a shortcut for C<< $token->type() eq "end" >>

=item $token->dump

This returns <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15867	16003	
==>allOp( $parser,
        'result' => [$result],
        'arg1'   => $fct,
        'arg2'   => [$argv],
    );
    return [ $result, \ <==
3	/Users/nnunley/parrot/config/gen/revision.pm	472	579	
==>on = "Determining Parrot's revision";

sub runstep
{
    my ($self, $conf) = @_;

    my $revision = $Parrot <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4789	4891	
==>$out = $to if defined $to and length $to;
  $out .= "#" . $section if defined $section and length $sect <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	6158	6341	
==>g;                  # . is simply a dot
               s/\*/.*/g;                   # * is any amount of chars
               "^${dir}${_}\$",             # SVN globs are specific to a <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	2280	2388	
==>for the elements in the referenced
vtable array.

=cut

sub vtbl_defs {
    my $vtable = shift;

    my $defs <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	5041	5135	
==>e Digest::MD5 as normal, it falls back to Digest::Perl::MD5 if it
cannot load its object files. <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	22060	22180	
==>@{$groups{$group}};
        close $fh;
    }
}

=cut

sub open_file {
    my $direction = shift;
    my $filename = shift <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	21544	21651	
==>ine 153 "lib/Regex/Grammar.y"
{ return { min => 0, max => $_[4] }; }
	],
	[#Rule 31
		 'range', 3,
sub
#line <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	619635	619718	
==>G)) {\n\t\treal_exception(interpreter, NULL, ERR_OVERFLOW,\n\t\t\t\"Integer overflow <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121252	121556	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123948	124252	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124822	125126	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_c <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	7481	7624	
==>{
            print {$FH}
                "  if $op->{arg1}->{symbol} goto $op->{result}->{symbol}\n";
        }
    }

    sub visitBranc <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	6753	6850	
==>s*local\s+([%@\$]\w+)/)
	{
		$parser->{localvars} .= " $1";
		$self->{"vars"} .= "$var;\n" }
	else <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	54909	55007	
==>ar expression or a string,
it is matched against the text in a scalar context with a leading
'\G' a <==
3	/Users/nnunley/parrot/config/init/hints/freebsd.pm	1038	1135	
==>bparrot$(SHARE_EXT)',
        libparrot_soname        => '-Wl,-soname=libparrot$(SHARE_EXT).$(SOVE <==
3	/Users/nnunley/parrot/config/init/hints/linux.pm	1876	1973	
==>bparrot$(SHARE_EXT)',
        libparrot_soname        => '-Wl,-soname=libparrot$(SHARE_EXT).$(SOVE <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	3010	3103	
==>, to
return the C code prior to the run core function.

=item C<run_core_after_addr_table($bas <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21469	21555	
==>($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched action<< (return value: [} <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8471	8582	
==>oop_begin:
    unless iter goto no_gots
    value_at = shift iter
    if value_at == op2 goto got_it
    inc pos <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26690	26795	
==>my $l_continue = new_label($parser);
    my $l_break    = new_label($parser);
    push @opcodes, new Lab <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27575	27680	
==>my $l_continue = new_label($parser);
    my $l_break    = new_label($parser);
    push @opcodes, new Lab <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189551	189780	
==>> [
                              "p",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 306 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24406	24556	
==>",
                  "CODE" => 32,
                  "ARGS" => [],
                  "BODY" => "#line 429 \"src/ops/core.ops\"\n  opcode_t *dest = {{^+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	196	283	
==>rm

=head1 DESCRIPTION

C<Parrot::OpTrans::CSwitch> inherits from C<Parrot::OpTrans::CPr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946585	946847	
==>"find_charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947486	947748	
==>"find_charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	652	743	
==>ntations', 'languages.html', '',
        $self->new_item('', 'languages/LANGUAGES.STATUS.pod <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3077	3197	
==>TURN Label2   'Cannot return from here to main
                   'program - only to SUB1.
' Exit tests
sub mysub(b,c)
	p <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17044	17164	
==>TURN Label2   'Cannot return from here to main
                   'program - only to SUB1.
' Exit tests
sub mysub(b,c)
	p <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3127	3231	
==>_Verbatim  {
  return unless $_[0]{'Errata_seen'};
  my $self = shift;
  if(Pod::Simple::ASCII) {
    $se <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353176	353428	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "fu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353920	354172	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "fu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354665	354917	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "fu <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	12334	12461	
==>mp_num";
    };
    /t/ && do {
        push @{$temps_ref}, "char *t_$temp_num;";
        push @{$extra_preamble_ref},
        " <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	17118	17219	
==>cent::Result->new();
}

sub additem
{
	my ( $self, $item ) = @_;
	$item->sethashname($self);
	push @{$ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	2761	2858	
==>C names for which code is to be generated,
to dump info (PMC metadata).

This function is exported <==
3	/Users/nnunley/parrot/tools/docs/pod_errors.pl	558	657	
==>ess $file->contains_pod;
	next unless $file->num_pod_errors;
	
	my $errors = $file->pod_errors;
	
	p <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	154	250	
==>o/sizes.pm - Various Sizes

=head1 DESCRIPTION

Determines the sizes of various types.

=cut

pac <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9210	9297	
==>iscolumn, q{Parse::RecDescent::ColCounter}, \$text, $thisparser;
	':'') . ($parser->{_ch <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191538	191673	
==>c"
                            ],
                  "BODY" => "#line 313 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192478	192613	
==>c"
                            ],
                  "BODY" => "#line 313 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpre <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	63509	63604	
==>ecified opening tag and tried to
modify the matched text to produce a matching closing tag (beca <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96931	97186	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnot",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	98298	98553	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnot",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	7523	7634	
==>rents} } ];
    # copy flags, set is_const
    $const->{flags} = {is_const => 1, %{ $self->{flags} } };
    dele <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	982	1080	
==>g brace B<must> be on its own line.

=head2 Op Arguments

Op arguments are a comma-separated list o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106271	1106352	
==>reter->n_vtable_max)\n\treal_exception(interpreter, NULL, E_ValueError,\n\t\t\"typ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107247	1107328	
==>reter->n_vtable_max)\n\treal_exception(interpreter, NULL, E_ValueError,\n\t\t\"typ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	11627	11738	
==>ame
          or $head1_text_content =~ m/\($titlename_re\)/s
          # We accept "=head1 Nomen Modularis (NAM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756727	756813	
==>.ops\"\n  {{\@1}}->vtable->assign_string_native(interpreter, {{\@1}}, {{\@2}});\n  {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757517	757603	
==>.ops\"\n  {{\@1}}->vtable->assign_string_native(interpreter, {{\@1}}, {{\@2}});\n  {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492309	492595	
==>> "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 565,
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493069	493333	
==>> "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 56 <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	35201	35310	
==>pop @stack)->[1];
    print <<EOC;
	\t $cmt
	delete $dest\[ $vv .. $ww ]
EOC
    #push @stack, [-1, $dest, 'P' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115795	116124	
==>=> ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 144,
                  "ARGS" => [
                              "i <==
3	/Users/nnunley/parrot/languages/regex/regex.pl	220	350	
==>main;

while (@ARGV) {
    $_ = shift;
    if (/--no(-?)optimize/) {
        $tree_opt = 0;
        $list_opt = 0;
    } elsif (/-- <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	1300	1397	
==>e C<--noconst>.

=over 4

=item C<--objectname>

=item C<-o>

Prepend the object name before the s <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	14416	14546	
==>' => 12
		}
	},
	{#State 27
		ACTIONS => {
			"?" => 46
		},
		DEFAULT => -13
	},
	{#State 28
		ACTIONS => {
			'CHAR' => 4,
			"<" <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	1058	1167	
==>$var}="COMMON";
			$common{$var}=1;
		}

	}
}

sub parse_shared {		# Keyword only
	feedme();
	$loop=0;
	while( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	164	258	
==>y for peephole optimization.

package Regex::TreeOptimize;
use Regex::Ops::Tree qw(rop);
use Ca <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	9850	9960	
==>self, $titlename, %options) = (@_);
  
  my $max_token            = delete $options{'max_token'};
  my $despera <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4364	4462	
==>lf, $code, $failLabel) = @_;
    my $comment = Regex::Ops::Tree::isplain($code) ? " # match '".chr( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4051	4149	
==>lf, $code, $failLabel) = @_;
    my $comment = Regex::Ops::Tree::isplain($code) ? " # match '".chr( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566928	567245	
==>{
                  "JUMP" => 0,
                  "NAME" => "does",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567822	568139	
==>{
                  "JUMP" => 0,
                  "NAME" => "does",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7412	7514	
==>ied, we put it on the lazy
	# moves stack.
	if (!$need_dest) {
		$pir .= <<'PIR'
inc stack_depth
lazy_m <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	8301	8397	
==>l_pmc(st->val) = NULL;

    return UVal_pmc(st->val);
}

#define GET_NCI_I(n) get_nci_I(interpret <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11394	11488	
==>ighttype}99 = $rightres
	$rightres = $leftres
	$leftres = \$${righttype}99
SWAP
}

sub parse_st <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	919	1022	
==>*';	# DEFAULT SEPARATOR IS OPTIONAL WHITESPACE
   $skip  = '\s*';		# UNIVERSAL SEPARATOR IS OPTIONAL WHI <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	13867	13967	
==>SE_${selectcounter}_0
	
SELECTSTART
	# Honestly the next thing needs to be a case statement.
	# I don <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	30963	31062	
==>private

=over 4

=item B<_sanity_check>

  $self->_sanity_check();

Runs a bunch of end of test san <==
3	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	2716	2867	
==>exists $self->{table}{$symb} ) {
            my $defn = $self->{table}{$symb};
            return $defn;
        }
        else {
            retur <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	9049	9154	
==>$expfloat, $frac, $exp);
    $exp = qr/[eE][-+]?\d+/;
    $frac = qr/\.\d+/;
    $pointfloat = qr/(?:(?:\d <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62616	62874	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorsoff",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63261	63519	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorsoff",
                  " <==
3	/Users/nnunley/parrot/lib/Test/More.pm	628	818	
==>ip todo todo_skip
             pass fail
             eq_array eq_hash eq_set
             $TODO
             plan
             can_ok  isa_ok
             diag
            );

my $Test = Tes <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	935783	936050	
==>UMP" => 0,
                  "NAME" => "titlecase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936559	936826	
==>UMP" => 0,
                  "NAME" => "titlecase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "in <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	8626	8804	
==>if ($ok == 2) { $mismatch_at = $idx; }
            $ok = 0;
        } else {
            $ok = 2 if $ok == 1;
        }
        $idx++;
    }

    if (! $ok) {
        if ($mismat <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1006735	1007045	
==>DE" => 1123,
                  "ARGS" => [
                              "i",
                              "i",
                              "sc",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6869	7013	
==>$dbgerror=0;
#DBG>				};
				};


                push(@$stack,[ $act, $$value ]);

					$$token ne ''	#Don't eat the eof
				and	$$token <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6551	6687	
==>$dbgerror=0;
#DBG>				};
				};


                push(@$stack,[ $act, $$value ]);

					$$token ne ''	#Don't eat the eof
				and	$$token <==
3	/Users/nnunley/parrot/config/init/defaults.pm	7063	7185	
==>c_dir     => $prefix . "/share/doc/parrot",
    );

    # add profiling if needed
    # FIXME gcc syntax
    # we should ha <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	960	1061	
==>:Docs::Item> instances, or 
relative paths.

=cut

sub new
{
	my $self = ref $_[0] ? ref shift : shift <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	520	616	
==>Do not configure with environment variables.

=cut

sub new {
    return $ENV{PARROT_M4_TEST_PROG <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17211	17401	
==>er,
                    'result' => $result,
                );
                push @opcodes, new KeyedGetOp( $parser,
                    'result' => $result,
                    'arg1 <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18248	18378	
==>er,
        'result' => $result,
    );
    push @opcodes, new KeyedGetOp( $parser,
        'result' => $result,
        'arg1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599663	600021	
==>> [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 679,
                  "ARGS" => [
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 363 \"src/ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	630	722	
==>you do $parser->get_token on a L<Pod::Simple::PullParser>, you might
get an object of this cl <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	536	628	
==>you do $parser->get_token on a L<Pod::Simple::PullParser>, you might
get an object of this cl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1138	1229	
==>t is not Value!" if defined $right and not UNIVERSAL::isa($right, 'Jako::Construct::Expressi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1166	1257	
==>t is not Value!" if defined $right and not UNIVERSAL::isa($right, 'Jako::Construct::Expressi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	838	929	
==>t is not Value!" if defined $right and not UNIVERSAL::isa($right, 'Jako::Construct::Expressi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114819	115064	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115673	115918	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116528	116773	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	15690	15829	
==>f ( keys %extra );
            local *{ $call_pkg . '::TODO' } = \$extra{todo}
                if defined $extra{todo};

            my $pas <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	18241	18380	
==>f ( keys %extra );
            local *{ $call_pkg . '::TODO' } = \$extra{todo}
                if defined $extra{todo};

            my $pas <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	4105	4212	
==>ne, $pc, "ARG_count", $n, $f, $source];
	    }
	    elsif ($source =~ /lambda\s(.*?):/) {
		my $f = "lambda_ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	7461	7585	
==>_token
{
    my $self = shift;
    my $token = shift;
    my $next = $self->get_token;
        
    return unless defined $ne <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2279	2377	
==>et)>

Transforms the C<OFFSET($offset)> macro in an ops file into the
relevant C code.

=cut

sub e <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4889	4987	
==>p { ! /^_/ } sort keys %internal_calls;
    my @non_ansi_external_calls = grep { ! exists($ansi_c89 <==
3	/Users/nnunley/parrot/lib/Parrot/Revision.pm	653	799	
==>$svn_entries or die $!;
        while (<$FH>) {
            /^ *committed-rev=.(\d+)./ or next;
            return $1;
        }
    }
    return 0 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	102	201	
==>( $ATTR_PAD @ISA $VERSION $SORT_ATTRS);
$VERSION = '2.02';
BEGIN {
  @ISA = ('Pod::Simple');
  *DEBU <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	103	202	
==>( $ATTR_PAD @ISA $VERSION $SORT_ATTRS);
$VERSION = '2.02';
BEGIN {
  @ISA = ('Pod::Simple');
  *DEBU <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	1606	1725	
==>l make parent the same as path.
    undef $parent_path if $parent_path eq $path;
    
    $self = bless {
        PATH = <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	5014	5129	
==>ILTIN_CODE___\"\n";
        $pir .= $_->{'body'};
        $pir .= "___BUILTIN_CODE___\ngoto END\n";
    }
    return <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2990	3083	
==>nly for computing information that may be useful in
# optimizing generated regular expressions <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819038	819303	
==>P" => 0,
                  "NAME" => "entrytype",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819997	820262	
==>P" => 0,
                  "NAME" => "entrytype",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fu <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3035	3148	
==>'  => "NREG(%ld)",
    'p'  => "PREG(%ld)",
    's'  => "SREG(%ld)",
    'k'  => "PREG(%ld)",
    'ki' => "IREG(%l <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2855	2968	
==>'  => "NREG(%ld)",
    'p'  => "PREG(%ld)",
    's'  => "SREG(%ld)",
    'k'  => "PREG(%ld)",
    'ki' => "IREG(%l <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1951	2061	
==>'   => "NREG(%ld)",
  'p'   => "PREG(%ld)",
  's'   => "SREG(%ld)",
  'k'   => "PREG(%ld)",
  'ki'  => "IREG(%l <==
3	/Users/nnunley/parrot/config/auto/isreg.pm	473	608	
==>args = qw(verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $test = 0;

    cc_gen('config/auto/isreg/test_c.in');
    eval { <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5054	5150	
==>>output_label_use($failLabel);
    my $pass = $self->output_label_use($passLabel);

    while (@$ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4729	4825	
==>>output_label_use($failLabel);
    my $pass = $self->output_label_use($passLabel);

    while (@$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022259	1022498	
==>n",
                  "CODE" => 1142,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 202 \"src/ops/sys.ops\"\n  struct tm <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819685	819779	
==>ption(99, \"Stack Depth wrong\");\n  }\n  {{\@1}} = get_entry_type(interpreter, entry);\n  {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820645	820739	
==>ption(99, \"Stack Depth wrong\");\n  }\n  {{\@1}} = get_entry_type(interpreter, entry);\n  {{+= <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11417	11509	
==>return. See if we have a return value.
PRE_CALL_RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPE <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8603	8695	
==>return. See if we have a return value.
PRE_CALL_RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPE <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7175	7267	
==>return. See if we have a return value.
PRE_CALL_RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583928	584190	
==>NEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585002	585264	
==>NEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10976	11079	
==>chr $k} = $v;
    #print chr($k), ' => ', $v, "\n";
  }
}

#-------------------------------------------- <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	3325	3421	
==>subclasses to return the C code following the run core
function. C<$base> is the same as for C<ru <==
3	/Users/nnunley/parrot/config/init/defaults.pm	3530	3665	
==>extension
        exe      => $Config{_exe},      # executable files extension
        cc_o_out => '-o ',              # cc object outpu <==
3	/Users/nnunley/parrot/lib/Test/More.pm	7358	7473	
==>ded or failed.  So these:

    # Is the ultimate answer 42?
    is( ultimate_answer(), 42,          "Meaning of Life <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	22319	22426	
==>8
		 'charclass', 1,
sub
#line 167 "lib/Regex/Grammar.y"
{ return [ 'neg', [] ]; }
	],
	[#Rule 39
		 'classp <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1449	1564	
==>= `$cc /? 2>&1` || '';
        $ccflags =~ s/-O1 // if $cc_output =~ m/Standard/ || $cc_output =~ m{/ZI};
        $c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653477	653581	
==>er, {{\@1}}))\n        real_exception(interpreter, resume, METH_NOT_FOUND,\n            \"Method '%s' not <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654638	654742	
==>er, {{\@1}}))\n        real_exception(interpreter, resume, METH_NOT_FOUND,\n            \"Method '%s' not <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	34535	34654	
==>&_op_zero_p,
  'positive?'        => \&_op_positive_p,
  'negative?'        => \&_op_negative_p,
  'odd?'             => <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	18913	19017	
==>"lib/Regex/Grammar.y"
{ return op('scan' => [ $_[1] ]); }
	],
	[#Rule 7
		 'regex1', 1,
sub
#line 103 "li <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	61831	61919	
==>cted "%c" but found "%s">

C<extract_bracketed>, C<extract_quotelike> or C<extract_codebl <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4749	4856	
==>e.
#So, DO NOT remove comment at end of sub !!!
sub _Parse {
    my($self)=shift;

	my($rules,$states,$ <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	1541	1645	
==>lf->{c};

    return @$c{@_};
}

=item C<set($key => $val, ...)>

Modifies or creates a new value.

Accep <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4514	4616	
==>e.
#So, DO NOT remove comment at end of sub !!!
sub _Parse {
    my($self)=shift;

	my($rules,$states,$ <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	426	523	
==>w( Parrot::IO::Path );

use DirHandle;
use File::Path;
use File::Spec;
use Parrot::IO::File;

=ite <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	13155	13248	
==>);

}

sub _match_codeblock($$$$$$$)
{
	my ($textref, $pre, $ldel_outer, $rdel_outer, $ldel_in <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	1417	1554	
==>())
        {
            next if defined $ignore and $dir->name =~ /$ignore/;
            
            push @files, $dir->files_of_type($ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	3296	3412	
==>o avoid using this as it weakens your test.)

  use Test::More qw(no_plan);

B<NOTE>: using no_plan requires a Test:: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	706	792	
==>nstruct::Block::Loop::Until;
use Jako::Construct::Block::Loop::While;

use Jako::Constr <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11397	11497	
==>_${CURIC}

# It's a return. See if we have a return value.
PRE_CALL_RETURN_${CURIC}:
${ITEMP0} = elem <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8583	8683	
==>_${CURIC}

# It's a return. See if we have a return value.
PRE_CALL_RETURN_${CURIC}:
${ITEMP0} = elem <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7155	7255	
==>_${CURIC}

# It's a return. See if we have a return value.
PRE_CALL_RETURN_${CURIC}:
${ITEMP0} = elem <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	69	158	
==>rrot/Configure/Step.pm 20340 2006-06-22T21:49:11.552283Z bernhard  $

=head1 NAME

Parrot: <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	31472	31605	
==>C;
	# $pc  $cmt
	clear_eh
EOC
    }
    else {
	print <<EOC;
	\t\t$cmt
EOC
    }
}

sub BREAK_LOOP
{
    my ($n, $c, $cmt) = @_;
    m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	318458	318648	
==>u.ops\"\n  {{\@1}} = (INTVAL)((Parrot_UInt2)({{\@1}}));\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	1545	1690	
==>}
    } else {
        eval { cc_build('', '-lgdbm'); };
    }
    my $has_gdbm = 0;
    if (!$@) {
        my $test = cc_run();
        unlink "g <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	799	900	
==>Class Methods

=over 4

=cut

package Parrot::OpTrans;

use strict;
use warnings;

=item C<new()>

Ret <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	5473	5555	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _h <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	374	456	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _h <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	373	455	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _h <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739471	739711	
==>" => "inline",
                  "CODE" => 831,
                  "ARGS" => [
                              "n",
                              "p"
                            ],
                  "BODY" => "#line 154 \"src/ops/set.ops\"\n  { <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27460	27556	
==>se::RecDescent::lastexpected = q{' . ($rule->hasleftmost($self) ? ''
				: $self->describe ) . '} <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29570	29666	
==>se::RecDescent::lastexpected = q{' . ($rule->hasleftmost($self) ? ''
				: $self->describe ) . '} <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31667	31763	
==>se::RecDescent::lastexpected = q{' . ($rule->hasleftmost($self) ? ''
				: $self->describe ) . '} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918538	919022	
==>" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1034,
                  "ARGS" => [
                              "i",
                              "s",
                              "sc",
                              "ic"
                            ],
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	776	872	
==>END;
#undef CONST
#define REL_PC     ((size_t)(cur_opcode - interpreter->code->base.data))
#defin <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	892	988	
==>END;
#undef CONST
#define REL_PC     ((size_t)(cur_opcode - interpreter->code->base.data))
#defin <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34752	34859	
==>nt::_tracefirst($text),
						  q{' . $rule->{"name"} .'})
							if defined $::RD_TRACE;').'
			if ($Parse: <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41862	41969	
==>nt::_tracefirst($text),
						  q{' . $rule->{"name"} .'})
							if defined $::RD_TRACE;').'
			if ($Parse: <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	32662	32759	
==>($substring) = extract_delimited $text, q{"'};


	# Delete the substring delimited by the first '/ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	24615	24754	
==>h;
    }
    else {
        $fh = do { local *FH };
        open $fh, ">$file_or_fh" or 
            die "Can't open test output log $file_o <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	3914	4043	
==>$step_name;";
        die $@ if $@;

        my $step = $step_name->new;

        # XXX This works. but is probably not a good des <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	1540	1640	
==>e Parrot::Test::Harness;

use strict;
use warnings;

use Carp;
use File::Spec;
use Test::Harness;

su <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569213	569349	
==>"
                            ],
                  "BODY" => "#line 218 \"src/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->isa(interpre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570106	570242	
==>"
                            ],
                  "BODY" => "#line 218 \"src/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->isa(interpre <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31000	31101	
==>C
    $cout;
}

=back

=head2 Parrot::Pmc2c::Ref Instance Methods

=over 4

=cut

package Parrot::Pmc2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025538	1025776	
==>PE" => "inline",
                  "CODE" => 1146,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 275 \"src/ops/sys.ops\ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	22304	22459	
==>ke'
                     );

    foreach my $func ( keys %c_test_map ) {
        push @EXPORT, $func;
        no strict 'refs';

        *{$package.'::'.$fu <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	5105	5232	
==>{$_} =~ /^([0-9A-F]{2}\s+)*[0-9A-F]{2}$/) {
                if ($has_code) {
                    die "Duplicate value for code i <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	2644	2760	
==>);

        foreach (1 .. scalar($op->arg_types) - 1) {
            die "$0: Premature end of bytecode in argument.\n <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2113	2218	
==>ent'} }
sub   end_over_block   { --$_[0]{'Indent'} }


# . . . . . Now the actual formatters:

sub end_hea <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1681	1786	
==>ent'} }
sub   end_over_block   { --$_[0]{'Indent'} }


# . . . . . Now the actual formatters:

sub end_hea <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	59062	59224	
==>ist', 1,
sub
#line 553 "Lua\lua51.yp"
{
            [
                BuildParam( $_[0], $_[1] ),
            ];
        }
	],
	[#Rule 104
		 'tableconst <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	859	952	
==>:Construct::Block');
  confess "Ident is not!" if defined $ident and not UNIVERSAL::isa($ident <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	887	980	
==>:Construct::Block');
  confess "Ident is not!" if defined $ident and not UNIVERSAL::isa($ident <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	3503	3609	
==>b rewrite_goto {
    my ($self, $op, $R, $lastback) = @_;
    return aop('goto', [ $R ]) if $R->{name} eq ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661957	662044	
==>NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662873	662960	
==>NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+= <==
3	/Users/nnunley/parrot/config/init/optimize.pm	1210	1334	
==>optimize};
	    $opts =~ s/-mcpu=\S+//;
            $conf->data->add(' ', ccflags => $opts);
            # record what optimi <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	1887	2007	
==>h (@type_macros) {
        $typedefs->{$_}="#defined";
    }
    
    
    # post-process the file to find function decla <==
3	/Users/nnunley/parrot/examples/benchmarks/freeze.pl	619	724	
==>= freeze(\@a);
$e = time();
printf "freeze time %.6f\n", $e-$s;

$s = time();
my @b = @{ thaw $image };
$e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255830	256129	
==>> 0,
                  "NAME" => "xor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256737	257036	
==>> 0,
                  "NAME" => "xor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257645	257944	
==>> 0,
                  "NAME" => "xor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	1399	1516	
==>my $parent_path = File::Spec->catpath($volume, $directories, '');
    
    # To remove the trailing slash.
    $parent <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	3033	3138	
==>lled to do global (once) setup
 * whatever is needed to get this extension running
 */

EOC
    $cout .= < <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	225	320	
==>s from .c files

=head1 SYNOPSIS

Update the headers in F<include/parrot> with the function decl <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12057	12150	
==>reter->vtables[$supertype].$method(" . full_arguments($1) . ')'/xeg;

    # Rewrite OtherClass <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947131	947220	
==>eal_exception(interpreter, NULL, 1,\n\t\"charset '%Ss' not found\", {{\@2}});\n  {{\@1}} = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948033	948122	
==>eal_exception(interpreter, NULL, 1,\n\t\"charset '%Ss' not found\", {{\@2}});\n  {{\@1}} = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645285	645570	
==>> 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 72 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646181	646466	
==>> 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 72 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18344	18435	
==>n it:

=over

=item $parser->head1_halfpoint_size( I<halfpoint_integer> );

=item $parser->h <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	4691	4868	
==>n";
    }

    sub visitNoOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};

        #    print {$FH} "  noop\n";
    }

    sub vi <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	13149	13267	
==>y lines at a time
      local $/ = $NL;
      push @lines, scalar(<$source>);  # readline
      last unless defined $li <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	31200	31294	
==>}

sub _op_with_output_from_file {
}

sub _op_open_input_file {
}

sub _op_open_output_file {
} <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2588	2696	
==>r =~ s/\$push_num/$_ - 1/ge;
	}

	# Return it.
	return $pir;
}

# Pre and post branch operation hooks.
sub pr <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	11540	11637	
==>'$'> or C<'*$'>)

The element is a scalar, and by default is initialized to C<undef>
(but see L<In <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8264	8358	
==>eg}->{code}}, "ELSEBRANCH_$_:\n";
		}
		push @{$code{$seg}->{code}}, "\t# $syms[CURR]\n" if $ty <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756737	756841	
==>{{\@1}}->vtable->assign_string_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757527	757631	
==>{{\@1}}->vtable->assign_string_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  " <==
3	/Users/nnunley/parrot/tools/util/pirtidy.pl	1357	1453	
==>idy never changes the input file.

=head1 BUGS

Missing all of the perltidy-ish geeknobs and opti <==
3	/Users/nnunley/parrot/Configure.pl	2539	2634	
==>the given type for C<FLOATVAL>.

=item C<--opcode=(type)>

Use the given type for opcodes.

=ite <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	792	884	
==>T
#define REL_PC     ((size_t)(cur_opcode - interpreter->code->base.data))
#define CUR_OPCODE <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	908	1000	
==>T
#define REL_PC     ((size_t)(cur_opcode - interpreter->code->base.data))
#define CUR_OPCODE <==
3	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	909	1019	
==>print << "EOF";
/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automa <==
3	/Users/nnunley/parrot/tools/build/revision_c.pl	485	594	
==>print <<"EOF";
/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automa <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	3696	3814	
==>tory_paths()
{
    my $self = shift;
    
    return map  {
        File::Spec->catfile($self->{PATH}, $_)
    } $self- <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16685	16778	
==>usly:
        $x =~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnop <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10133	10222	
==>usly:
    $x =~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnop <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734362	734499	
==>sc"
                            ],
                  "BODY" => "#line 134 \"src/ops/set.ops\"\n  {{\@1}} = string_to_int(interpreter, {{\@ <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	2342	2467	
==>t_class = 0;
    my $out = '';

    $out = "{\n  package $class;\n  use Carp;\n  sub new {\n";
    $out .= "    my (\$class, \ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	43106	43204	
==>q!) #'
	
	extract_quotelike '  "You said, \"Use sed\"."  '

	extract_quotelike ' s{([A-Z]{1,8}\.[A- <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	9567	9700	
==>': $!";
    local $/ = undef;
    my $file = <SLURP> . '';
    $file =~ s/\cM\cJ/\n/g;
    close SLURP;

    return $file;
}

sub conv <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804247	804332	
==>\"src/ops/set.ops\"\n    {{\@1}}->vtable->set_pmc_keyed(interpreter, {{\@1}}, {{\@2}}, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805148	805233	
==>\"src/ops/set.ops\"\n    {{\@1}}->vtable->set_pmc_keyed(interpreter, {{\@1}}, {{\@2}}, <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	5620	5749	
==>i_sysfile' => 'define',
             'i_sysfilio' => 'define',
             'i_sysin' => undef,
             'i_sysioctl' => 'defi <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	19028	19155	
==>.

=cut

sub print_tree {
    my ($include,$depth, @files) = @_;

    for my $file (@files) {
        my $class = read_dump($inc <==
3	/Users/nnunley/parrot/config/init/defaults.pm	3773	3887	
==>efix for ldflags (necessary for Win32)
        cc_ldflags => '',

        # ld output file.  Keep the trailing spac <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3363	3468	
==>elf->{'Thispara'} =~ s/^/$i/mg;
  
  print { $self->{'output_fh'} }   '', 
    $self->{'Thispara'},
    "\ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2893	2998	
==>elf->{'Thispara'} =~ s/^/$i/mg;
  
  print { $self->{'output_fh'} }   '', 
    $self->{'Thispara'},
    "\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	624002	624197	
==>returns_pc);\n    ((void**)cur_opcode)[1] = mic->m.sig;\n    {{+=0}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	34971	35075	
==>>diag(<<"FAIL");
Looks like your test died just after $self->{Curr_Test}.
FAIL

            _my_exit( 255 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948850	948938	
==>{{\@1}} = Parrot_string_trans_charset(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949650	949738	
==>{{\@1}} = Parrot_string_trans_charset(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	3560	3673	
==>xt="#stay" />
          <Int attribute="Int" context="#stay" />
END

print <<END;
          <RegExpr attribute="Re <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3366	3462	
==>my($self)=shift;

    keys %{$self->{STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
}

sub YYLexer <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3196	3287	
==>my($self)=shift;

    keys %{$self->{STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
}

sub YYLexer <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	6376	6515	
==>100)       : 0));
    
    print OUT page_header("Parrot Test Coverage");
    print OUT qq(
            <ul>
              <li><a href="file <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	5	102	
==>ire 5;
package Pod::Simple::Methody;
use strict;
use Pod::Simple ();
use vars qw(@ISA $VERSION);
$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644036	644121	
==>c/ops/pmc.ops\"\n  {{\@1}} = {{\@2}}->vtable->type_keyed_int(interpreter, {{\@2}}, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644929	645014	
==>c/ops/pmc.ops\"\n  {{\@1}} = {{\@2}}->vtable->type_keyed_int(interpreter, {{\@2}}, {{\ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22069	22193	
==>.  (Stack: "
          . $self->_dump_curr_open() . ')'
        );
        DEBUG and print "Ignoring mistargetted =end $conte <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22398	22522	
==>.  (Stack: "
          . $self->_dump_curr_open() . ')'
        );
        DEBUG and print "Ignoring mistargetted =end $conte <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	12218	12476	
==>ler, $options);
  }
}


1;

__END__

###############################################################################
###############################################################################

=head1 VERSION

$Id: /parrot/languages/jako/lib/Jako/Construc <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8464	8562	
==>ting_file_with_name($name)>

Returns a file with the specified name in the directory.

=cut

sub ex <==
3	/Users/nnunley/parrot/config/auto/gc.pm	1713	1810	
==>ata->set(
            TEMP_gc_c => <<"EOF",
\$(SRC_DIR)/$gc\$(O):	\$(GENERAL_H_FILES) \$(SRC_DIR)/ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	26348	26497	
==>self->begin_block(undef, $1, $2);
      # TODO
      next;
    }

    #
    # PMC Construction:
    #
    # a = new Foo;
    #

    if (m/^([A-Za-z][A <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	5498	5618	
==>(0);
}

unless (@ARGV) {
    show_help();
    exit(1);
}

sub warn_if_both {
    my ($a, $b, $sa, $sb) = @_;
    if (defi <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	5224	5338	
==>ace [$ns]!;
	if ($vtables{$arg}) {
	    $real_name = $vtables{$arg};
	}
    }
    print <<EOC;
.end		# $cur_func
.n <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2522	2630	
==>s
  # definition into the block at the top of the block stack. We fill in the
  # IDENT entry within the bloc <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2269	2377	
==>s
  # definition into the block at the top of the block stack. We fill in the
  # IDENT entry within the bloc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162504	162863	
==>se_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 196,
                  "ARGS" => [
                              "nc",
                              "n" <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	4630	4786	
==>o/Makefile',
        commentType                    => '#',
        replace_slashes                => 1
    );
    genfile(
        'config/gen/makefiles/lis <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	1870	1983	
==>docs.pl'),
        ),
        $self->new_group('Building', '',
            $self->new_item('', 'tools/build/c2str. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40188	40449	
==>JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41035	41296	
==>JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  " <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	829	918	
==>SRM module!\n" unless -e "build/SRM/$srm.pm";
my %config = get_parrot_config($parrot_path <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38477	38738	
==>JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39341	39602	
==>JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  " <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	3949	4056	
==>pack_op($cur_op->code);
	    last FINDENTERN;
	}
    }
    die "Could not locate enternative op!\n" unless d <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021697	1021810	
==>};\n  Parrot_gmtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022539	1022652	
==>};\n  Parrot_gmtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	7217	7324	
==>p->full_name() ." */";
    }
    else {
        $definition = "$prototype;\n$opsarraytype *\n$func_name ($ar <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1414	1533	
==>il => $prog);
        $self->set_result('yes');
        return $self;
    }

    $prog = check_progs(['bison -v -y', 'ya <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16090	16193	
==>self->_save_1 ('I');
  my $label = $self->_gensym();

  _num_arg ($node, 1, 'null?');

  my $temp = $sel <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	27644	27745	
==>point to the opcode */\n    interpreter->current_args = this;\n    argc = SIG_ELEMS(signature);\n    { <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5386	5502	
==>rror=0;
	($$token,$$value)=(undef,undef);
	@$stack=( [ 0, undef ] );
	$$check='';

    while(1) {
        my($a <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5127	5237	
==>rror=0;
	($$token,$$value)=(undef,undef);
	@$stack=( [ 0, undef ] );
	$$check='';

    while(1) {
        my($a <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8221	8323	
==>directory.

=cut

sub existing_directory_with_name
{
    my $self = shift;
    my $path = $self->path_f <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4828	4930	
==>hift;

	my($rules,$states,$lex,$error)
     = @$self{ 'RULES', 'STATES', 'LEX', 'ERROR' };
	my($err <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	5118	5216	
==>"dsKeyword" />
      <itemData name="Type" defStyleNum="dsDataType" />
      <itemData name="Commen <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4590	4688	
==>hift;

	my($rules,$states,$lex,$error)
     = @$self{ 'RULES', 'STATES', 'LEX', 'ERROR' };
	my($err <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	23463	23620	
==>codes, new BranchIfOp( $parser,
            'arg1'   => $expr1->[0],
            'result' => $lbl1,
        );
    }
    else {    # "or"
        push @ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7184	7292	
==>$act]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print STDERR "Reduce using rule ".-$act." ($lhs <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6852	6956	
==>$act]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print STDERR "Reduce using rule ".-$act." ($lhs <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	3092	3195	
==>my %labels; # { label string => tagged_op }
    foreach my $stmt (@output) {
	if ($stmt->{name} eq 'LABE <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	1486	1616	
==>::new($path) ) {
        return $dist = $self if $self->file_exists_with_name('README') and 
                                $self- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048240	1048338	
==>de_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null global.\");\n\n    nex <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049164	1049262	
==>de_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null global.\");\n\n    nex <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	306708	306971	
==>MP_RELATIVE",
                  "NAME" => "unless_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307501	307764	
==>MP_RELATIVE",
                  "NAME" => "unless_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	15546	15680	
==>{$meth} },
                [ $right_type, $sub_meth_name ];
        }

    }
    ## $cout .= $header_decls;
    $cout .= $self->decl($c <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	1368	1469	
==>h ($pf->const_table->constants) {
        printf("%04x: %08x %08x %08x %08x %s\n",
	    $constant_num, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50135	50235	
==>({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_PROFILE_FLAG); }\n  else         { Interp_flag <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50928	51028	
==>({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_PROFILE_FLAG); }\n  else         { Interp_flag <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4839	4939	
==>iles, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);
    my @ungrouped <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4943	5043	
==>iles, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);
    my @ungrouped <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	45079	45176	
==>ds marked "(if any)" the default value on success is
an empty string.
On failure, all of these val <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	20819	20978	
==>eelet->[$i][1]{$attrname} ),
               " as an attribute value to tweak.\n";
            }
          }
        }
      }
    }
  }
  DEBUG > 2 and print "E <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	1199	1312	
==>mes = map { $_->{label} =~ /(\w+)/; $1 } @_;
    my %names;
    @names{@names} = ();
    my $label = $self->mklabe <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	403	513	
==>eturn $self;
}

sub init {
}

sub optimize_tree {
    my ($self, $t, $ctx) = @_;
    $t = $self->pass1($t, $ctx <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11403	11506	
==>IC}

# It's a return. See if we have a return value.
PRE_CALL_RETURN_${CURIC}:
${ITEMP0} = elements ${DT <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8589	8692	
==>IC}

# It's a return. See if we have a return value.
PRE_CALL_RETURN_${CURIC}:
${ITEMP0} = elements ${DT <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7161	7264	
==>IC}

# It's a return. See if we have a return value.
PRE_CALL_RETURN_${CURIC}:
${ITEMP0} = elements ${DT <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	24030	24149	
==>arg1' => $lbl1,
    );
    push @opcodes, @{ $expr2->[1] };
    push @opcodes, new AssignOp( $parser,
        'resul <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27092	27185	
==>FUNC_$funcname";
	$f=changename($f);
	$f=~s/\$/_string/g; $f=~tr/a-z/A-Z/;
	$seg=$f;
	CALL_BOD <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27365	27458	
==>FUNC_$funcname";
	$f=changename($f);
	$f=~s/\$/_string/g; $f=~tr/a-z/A-Z/;
	$seg=$f;
	CALL_BOD <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	1441	1564	
==>t files..>\n" .
        "       $0 source <source files..>\n";
}

while (<DATA>) {
    next if /^\s*#/; chomp;
    my ($symb <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30540	30653	
==>lue: [}
						. $& . q{])},
						  Parse::RecDescent::_tracefirst($text))
							if defined $::RD_TRACE;').'
		pu <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28464	28575	
==>lue: [}
						. $& . q{])},
						  Parse::RecDescent::_tracefirst($text))
					if defined $::RD_TRACE;').'
		pu <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6634	6735	
==>$self->{'last_was_blank'}) {
        DEBUG > 1 and print "Noting para ends with blank line at ${$self} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	5559	5660	
==>ink($token);
  } elsif( $type eq 'man') { return $self->do_man_link($token);
  } else {
    $self->whi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	31072	31161	
==>\t\t   \"null caller_ctx for ccont %p\", ccont);\n\t}\n\tparrot_pass_args(interpreter, ctx <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	1460	1558	
==>y_out_f);
    my $pirate_file;

    $exit_code |= Parrot::Test::run_command($cmd, STDOUT => $pirate <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33364	33462	
==>{'$_[1]'.qq{$_[0]->{subrule}}}";
	}
	else
	{
		return $_[1].$_[0]->{"subrule"};
	}
}

sub new ($$$$ <==
3	/Users/nnunley/parrot/config/auto/funcptr.pm	145	236	
==>fig/auto/funcptr.pm - Function Pointer Casts

=head1 DESCRIPTION

Verifies that the compiler <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11946	12036	
==>MP1}
goto PRE_CALL_${CURIC}_LAZY_MOVE_RET_CONT

# Can do a lazy move.
PRE_CALL_${CURIC}_LAZ <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	1436	1556	
==>o key values.

Accepts a list and returns a list.

=cut

sub get
{
    my $self = shift;

    my $c = $self->{c};

    re <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1768	1864	
==>/nnunley/parrot/tools/build/pmc2c.pl] . $PATHQUOTE;

# Actual commands
sub compile_cmd {
    my ( <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1859	1955	
==>/nnunley/parrot/tools/build/pmc2c.pl] . $PATHQUOTE;

# Actual commands
sub compile_cmd {
    my ( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478945	479183	
==>);\n  {{\@1}} = floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479837	480075	
==>);\n  {{\@1}} = floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	13630	13786	
==>ked' => 1},
        #['~Top', {'start_line' => $m},
        $_
        #]
        ],
        @{$self->{'errata'}{$line}}
      )
    ;
  }
  
  # TODO: repor <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	911	1030	
==>D_FLAGS = qq[-bundle -undefined suppress];
our $PERL = q[perl];
our $LOAD_EXT = qq[.bundle];
our $O = qq[.o];
our $CFLAG <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	900	1019	
==>D_FLAGS = qq[-bundle -undefined suppress];
our $PERL = q[perl];
our $LOAD_EXT = qq[.bundle];
our $O = qq[.o];
our $CFLAG <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	904	1023	
==>D_FLAGS = qq[-bundle -undefined suppress];
our $PERL = q[perl];
our $LOAD_EXT = qq[.bundle];
our $O = qq[.o];
our $CFLAG <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	25950	26072	
==>d( $parser, $elseif->[0] );
        $l_next = new_label($parser);
        push @opcodes, @{ $cond->[1] };
        push @ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3121	3218	
==>lf->output_test('ne', $val1, $val2, $dest);
}

sub output_lt {
    my ($self, $val1, $val2, $dest) <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3959	4053	
==>.svn\b

# debian/ should not go into release tarballs
^debian$
^debian/
END_HEADER

find(\&want <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454237	454659	
==>> [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 521,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 2 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	105	203	
==>Simple')}

use strict;

use Carp ();

BEGIN { *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG } <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	104	202	
==>Simple')}

use strict;

use Carp ();

BEGIN { *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357103	357329	
==>,
                  "TYPE" => "function",
                  "CODE" => 417,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 240 \"src/ops/io.ops\ <==
3	/Users/nnunley/parrot/tools/dev/symlink.pl	2609	2723	
==>nk $srcfile $dstfile failed: $!\n";
		}
	    }
	}
    }
    warn "$self: could not find any files to symlink\n" unl <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	7814	7922	
==>r' kw='$kw'\n";
		    $func_info{$cur_f}{'args'} = $args;
		    $func_info{$cur_f}{'ar'} = $ar;
		    $func_i <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33888	34029	
==>push @$para, '';  # Just so it's not contentless
            }
          }


        } elsif($over_type eq 'bullet') {
          my $item_type <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23211	23317	
==>}

      $self->require_semicolon;
      
      my $goto = Jako::Construct::Statement::Goto->new($block, $i <==
3	/Users/nnunley/parrot/tools/util/pirtidy.pl	1235	1327	
==>omefile.pir

This will produce a file somefile.pir.tdy containing the pir file
reformatted us <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	26206	26315	
==>OC";
    } /* pass */
} /* Parrot_${classname}_class_init */
EOC
    if ($self->{flags}{dynpmc}) {
        $co <==
3	/Users/nnunley/parrot/config/auto/headers.pm	2049	2157	
==>ncluded first.
        foreach my $use_headers ([$header], [@found_headers, $header]) {
            $conf->da <==
3	/Users/nnunley/parrot/config/auto/jit.pm	313	410	
==>auto::jit;

use strict;
use warnings;

use base qw(Parrot::Configure::Step::Base);

use Config;
us <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	20996	21135	
==>des ];
}

sub BuildBinop {
    my ( $parser, $expr1, $op, $expr2 ) = @_;
    my %type = (
        '+'  => 'number',
        '-'  => ' <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	4361	4499	
==>ns=16 ",

            # -Wsequence-point is part of -Wall
            # -Wfloat-equal may not be what we want
            # We shouldn't be <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22661	22785	
==>start_line'},
          "=end $content doesn't match =begin " 
          . $curr_open->[-1][1]{'target'}
          . ".  (Sta <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5002	5101	
==>0} = concat ${STEMP1}
${STACK0} = concat "0"

# Emit pop code.
${INS} = concat ${STACK0}
${INS} = co <==
3	/Users/nnunley/parrot/lib/Test/More.pm	12218	12317	
==>e,  $ref_name);

Checks to see if the given C<< $object->isa($class) >>.  Also checks to make
sure t <==
3	/Users/nnunley/parrot/config/auto/funcptr.pm	792	890	
==>ND";
Although it is not required by the ANSI C standard,
Parrot requires the ability to cast from v <==
3	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	3738	3834	
==>d1 SYNOPSIS

 use Parrot::PIR::Formatter;

=head1 DESCRIPTION

Primarily intended to be used by C <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12845	12940	
==>:RecDescent::_hint("A production consisting of a single
					  conditional <error?> directive wo <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9299	9387	
==>ck}{prevcolumn}?'
	my $prevcolumn;
	tie $prevcolumn, q{Parse::RecDescent::ColCounter}, \$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51830	52018	
==>ace(interpreter, PARROT_ALL_TRACE_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52613	52801	
==>ace(interpreter, PARROT_ALL_TRACE_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30960	31077	
==>tem_type eq 'text') {
            # Nothing special needs doing for 'text'
          } elsif($item_type eq 'number' or <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12569	12723	
==>sh @opcodes, @{ $key->[1] };
                my $result = $global->[0];
                foreach my $key2 ( @{$var} ) {
                    my $result2 = <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	1280	1385	
==>my $title = $self->{'Title'};
    esc($title);

    print {$self->{'output_fh'}}
        Parrot::Docs::HTM <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10242	10334	
==>ctory with the specified relative path below the directory.

=cut

sub directory_with_relativ <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	6962	7057	
==>al symbols\n", scalar(@external_symbols));
    printf("Of these, %d are not defined by ANSI C89: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193583	193848	
==>erpreter, {{\@1}}), {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194562	194827	
==>erpreter, {{\@1}}), {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	5406	5517	
==>1$1|g; # escape backslashes
        return qq{#line $line "$file_escaped"\n};
    }
    return qq{#line $line\n} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8293	8414	
==>MP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLAGS" => ":base_loop,check_e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9408	9529	
==>MP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLAGS" => ":base_loop,check_e <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	43254	43375	
==>ty one
    DEBUG > 5 and print "Scrutinizing line $i: $$p[$i]\n";
    if($p->[$i]   =~ m{^#:([ \^\/\%]*)\n?$}s) {
      DE <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	7140	7251	
==>(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c failed ($?)\n";
    }
    els <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5434	5545	
==>(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c failed ($?)\n";
    }
    els <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7351	7462	
==>(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c failed ($?)\n";
    }
    els <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115440	115760	
==>1}} = {{\@2}} << {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116295	116615	
==>1}} = {{\@2}} << {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117150	117470	
==>1}} = {{\@2}} << {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	12897	13012	
==>was successfully handled already.)\n";
    }
    
  } else {
    # Otherwise it's a syntax error
    $self->whine( $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	43790	43901	
==>ine, "Unknown E content in E<$content>" );
        $replacer = "E<$content>"; # better than nothing
      } elsi <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10801	10934	
==>ction = '_' unless length $section;
    }
    
    foreach my $it ($to, $section) 
    {
        next unless defined $it;

        $it <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	757	860	
==>::Spec->rel2abs($out_f);
    Parrot::Test::write_code_to_file( $code, $lang_f );

    my $cmd;
    my $e <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	794	897	
==>::Spec->rel2abs($out_f);
    Parrot::Test::write_code_to_file( $code, $lang_f );

    my $cmd;
    my $e <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	578	699	
==>^\%]+)/g) {
        if ($part =~ /^\%/) {
            push @ops, $self->output_print(substr($part, 2, -1));
        } else <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	5773	5881	
==>s/^ *(\$I[d]: .+)\n//m; $info->{Id} = $1;

    my $desc;
    if(/Overview:/) { # normal parrot code files
	my <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	482	575	
==>sses] [files ...]

=head1 DESCRIPTION

This script extracts descriptions from the Parrot sourc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	923628	923713	
==>\"src/ops/string.ops\"\n  {{\@1}} = string_make_empty(interpreter, enum_stringrep_one, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924377	924462	
==>\"src/ops/string.ops\"\n  {{\@1}} = string_make_empty(interpreter, enum_stringrep_one, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925168	925253	
==>\"src/ops/string.ops\"\n  {{\@1}} = string_make_empty(interpreter, enum_stringrep_one, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687614	687908	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TY <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688385	688679	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TY <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	26611	26730	
==>{Have_Plan} ) {
            require Carp;
            Carp::croak("Can't change the current test number without a plan!" <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	7413	7548	
==>'getstart', [ '<tmp>', $group ]),
                        $self->dbprint("pushing start[$group]: "),
                        aop('pushin <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5170	5280	
==>($tok)='>';
#DBG>		for (split('',$$token)) {
#DBG>			$tok.=		(ord($_) < 32 or ord($_) > 126)
#DBG>					?	spr <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4921	5028	
==>($tok)='>';
#DBG>		for (split('',$$token)) {
#DBG>			$tok.=		(ord($_) < 32 or ord($_) > 126)
#DBG>					?	spr <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29160	29257	
==>'pir'} =~ /\$\{DEST0\}/ || $rule->{'instruction'} =~ /\$\{DEST0\}/) {
			$need_dest = 1;
		} elsif <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609345	609433	
==>src/ops/object.ops\"\n    {{\@1}} = VTABLE_get_attr_str(interpreter, {{\@2}}, {{\@3}});\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610253	610341	
==>src/ops/object.ops\"\n    {{\@1}} = VTABLE_get_attr_str(interpreter, {{\@2}}, {{\@3}});\n <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32256	32364	
==>y $decl = $self->decl($self->{class}, $method, 0);
    # I think that these will be out by one - NWC
    my $ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40878	40986	
==>y $decl = $self->decl($self->{class}, $method, 0);
    # I think that these will be out by one - NWC
    my $ <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	19302	19415	
==>eone can come up
      with a neater way to do this.
     */
    ns = string_make(interpreter, " is an unknown sig <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5259	5355	
==>->right;

  $handler->start_element({ Name => 'assign' });
  $dest->sax($handler);
  $handler->st <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3322	3418	
==>->right;

  $handler->start_element({ Name => 'assign' });
  $dest->sax($handler);
  $handler->st <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1346	1453	
==>iggered in normal operation, even with bad source code as input.
  #

  $self->INTERNAL_ERROR("Undefined blo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1291	1398	
==>iggered in normal operation, even with bad source code as input.
  #

  $self->INTERNAL_ERROR("Undefined blo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1194	1301	
==>iggered in normal operation, even with bad source code as input.
  #

  $self->INTERNAL_ERROR("Undefined blo <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1054	1161	
==>um = 0;
	
	# Emit initial code.
	my $pir = <<'PIR';
# Get current stack types array size.
${ITEMP0} = elemen <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2764	2871	
==>um = 0;
	
	# Emit initial code.
	my $pir = <<'PIR';
# Get current stack types array size.
${ITEMP0} = elemen <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	266	365	
==>e  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expression;

use base qw(Jako::Co <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	19678	19798	
==>nt "  It DOES match the acceptable target $target_name!\n";
        $to_resolve = 1
          if $self->{'accept_targets' <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2338	2454	
==>e_to_file( $code, $lang_fn );

        # STDERR is written into same output file
        my $exit_code = Parrot::T <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1858	1971	
==>e_to_file( $code, $lang_fn );

        # STDERR is written into same output file
        my $exit_code = Parrot::T <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	2228	2334	
==>ng the possible targets of ret
    # opcodes
    while ($offset + sizeof('op') <= $length) {
	my ($src, $is <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	457	565	
==>EXT => 'CONT', REDO => 'REDO', LAST => 'LAST' },
  'if'       => { PREFIX => "_I", NEXT => 'TEST', REDO => 'T <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	478	586	
==>EXT => 'CONT', REDO => 'REDO', LAST => 'LAST' },
  'if'       => { PREFIX => "_I", NEXT => 'TEST', REDO => 'T <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	185	273	
==>s/jako/lib/Jako/Construct/Block/Module.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

us <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1937	2048	
==>"Please recompile parser module.";

        ref($class)
    and $class=ref($class);

    bless($self,$class <==
3	/Users/nnunley/parrot/config/gen/icu.pm	4568	4676	
==>und the icu headers... good!\n" if $verbose;
    } else {
        print "Adding -I $icuheaders to ccflags for <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1870	1976	
==>"Please recompile parser module.";

        ref($class)
    and $class=ref($class);

    bless($self,$class <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42815	43022	
==>TYPE" => "inline",
                  "CODE" => 54,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 727 \"src/ops/core.ops\"\n <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	11033	11180	
==>_;

            # Strange Win line endings
            convert_line_endings( $expected );

            # set up default description
            unle <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	16518	16665	
==>_;

            # Strange Win line endings
            convert_line_endings( $expected );

            # set up default description
            unle <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668872	669112	
==>,
                  "CODE" => 748,
                  "ARGS" => [
                              "p",
                              "n"
                            ],
                  "BODY" => "#line 410 \"src/ops/pmc.ops\"\n    {{\@1}}->vta <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	66853	66965	
==>e);
					_error("Incorrect specification of a repeated subrule",
					       $line);
					_hint("Repeated subrule <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11224	11317	
==>x12
	.const int ELEMENT_TYPE_ARRAY= 0x14
	.const int ELEMENT_TYPE_TYPEDBYREF = 0x16
	.const in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356054	356296	
==>d);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printer <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	11037	11167	
==>y $u = defined $1 ? "u:" : "";
	    my $s = $2;
	    $c =~ s/.*/$u"$s"/;
	}
	print <<EOC;
	\t$cmt
EOC
    }
    else {
	print <<EOC <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3946	4038	
==>>resume_offset = $addr; interpreter->resume_flag = 1";
}

=item C<restart_offset($offset)>

R <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355546	355858	
==>o",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 415,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 21 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465318	465611	
==>> [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 533,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 343 \"src/ops/mat <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18805	18896	
==>e (in half-points, like 21 for 10.5-point)
that codeblocks ("verbatim sections") will appear <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	514	627	
==>sh_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBUG and print "++ $_[1]\n";
  
  print $fh   '  ' x ( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	513	626	
==>sh_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBUG and print "++ $_[1]\n";
  
  print $fh   '  ' x ( <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	8810	8901	
==>ALSO

=over 4

=item C<Parrot::Docs::Directory>

=item C<Parrot::Docs::POD2HTML>

=item C<Po <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483404	483671	
==>inline",
                  "CODE" => 553,
                  "ARGS" => [
                              "n",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 455 \"src/ops/math.ops\"\n <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	447	555	
==>. $parser->YYData->{idx_fct}++;
    return new defn( $idf, 'fct' );
}

sub get_global {
    my ($parser) <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	16	114	
==>Parser;

use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

$VERSION   = '0.0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349233	349325	
==>* string_cstring_free(path); */\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_cl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350235	350327	
==>* string_cstring_free(path); */\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_cl <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	14547	14653	
==>ld::(\w+)/) {   ## XXX && $f ne '__new__'
	$namespace{$f} = $classes{$1};
	if ($vtables{$f}) {
	    print < <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1356	1454	
==>is is a subclass of L<Pod::Simple> and inherits all
its methods.)

You can use this class as the ba <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	268	359	
==>n::Languages;

=head1 DESCRIPTION

A documentation section describing Parrot's client langua <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460320	460739	
==>e",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 528,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ], <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686465	686720	
==>->vtable->getprop(interpreter, {{\@3}}, {{\@2}});\n   {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687355	687610	
==>->vtable->getprop(interpreter, {{\@3}}, {{\@2}});\n   {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	2705	2803	
==>the makefile, which is probably the only time this
# script will ever be used, all of these default <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	963	1048	
==>Right is not Value!" unless UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	975	1060	
==>Right is not Value!" unless UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14591	14720	
==>DEFAULT => -78
	},
	{#State 26
		DEFAULT => -82
	},
	{#State 27
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712499	712589	
==>.12g\", (double){{\@1}});\n  PIO_putps(interpreter, io, s);\n  if (string_str_index(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713606	713696	
==>.12g\", (double){{\@1}});\n  PIO_putps(interpreter, io, s);\n  if (string_str_index(interpr <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	6981	7148	
==>omment    = '';
    my $one_op     = "";

    if ($suffix =~ /cg/) {
	$definition = "PC_$index:";
	$comment    = "/* ". $op->full_name() ." */";
    } elsif ($suffix =~ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	15721	15833	
==>.  C<use Test::More tests => 1, 'no_diag'>.  This is useful
if you have diagnostics for personal testing but then <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20911	21015	
==>[1]'
	push P0, P1
ADDT
		}
		print CODE<<TYPEE;
	P1= P10[0]
	P2= P1["types"]
	P2["$typename"]= P0
	goto O <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6835	6933	
==>olon;

      $self->SYNTAX_ERROR("Cannot declare constant without assigning a value.") # TODO: This <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	447	541	
==>"post_translation not implemented for current stack to register mapper\n";
}

# Extra subroutin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114987	115409	
==>> [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 143,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 2 <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6176	6287	
==>roup}->{lib} = 1;
        }
    }

    return (\%group_files, \%group_libs, \%pmc_group, \%pmc_libs);
}

sub mod <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6387	6498	
==>roup}->{lib} = 1;
        }
    }

    return (\%group_files, \%group_libs, \%pmc_group, \%pmc_libs);
}

sub mod <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61923	62112	
==>.ops\"\n  PARROT_ERRORS_on(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62567	62756	
==>.ops\"\n  PARROT_ERRORS_on(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	7844	7954	
==>E <<END_C;
        NULL
    };
END_C
    print SOURCE $trans->run_core_after_addr_table($bs);
}

if ($suffix =~ <==
3	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	1908	2030	
==>OPNR

EOF

# Includes and constant substitutions
close(T);

unlink "basic.pbc";
system("../../../parrot -o basic.pbc merged <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8536	8641	
==>states[$$stack[-1][0]]{GOTOS}{$lhs}.\n";

#DBG>				$debug & 0x10
#DBG>			and	$dbgerror
#DBG>			and	$$e <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8150	8251	
==>states[$$stack[-1][0]]{GOTOS}{$lhs}.\n";

#DBG>				$debug & 0x10
#DBG>			and	$dbgerror
#DBG>			and	$$e <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	9277	9398	
==>if ( exists $dir->{pragma} ) {
            print {$FH}
                "  .param $dir->{result}->{type} $dir->{result}-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53273	53373	
==>} != 0) { Interp_flags_SET(interpreter,   PARROT_GC_DEBUG_FLAG); }\n  else         { Interp_flags_CLE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54029	54129	
==>} != 0) { Interp_flags_SET(interpreter,   PARROT_GC_DEBUG_FLAG); }\n  else         { Interp_flags_CLE <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1453	1552	
==>ock!")
    unless defined $block;

  $self->INTERNAL_ERROR("Undefined type!")
    unless defined $ty <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1301	1400	
==>ock!")
    unless defined $block;

  $self->INTERNAL_ERROR("Undefined type!")
    unless defined $ty <==
3	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	2248	2342	
==>OF";
}; /* parrot_config */

void
Parrot_set_config_hash(void)
{
    Parrot_set_config_hash_int <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9874	9964	
==>$self->require_infix_rel->text;
      my $right = Jako::Construct::Expression::Value->new($ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25410	25500	
==>$self->require_infix_rel->text;
      my $right = Jako::Construct::Expression::Value->new($ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828881	829133	
==>l_pmc(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829949	830201	
==>l_pmc(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1002	1107	
==>cs::Section::Compilers;
use Parrot::Docs::Section::Languages;
use Parrot::Docs::Section::Config;
use Parro <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1461	1569	
==>'.';
        } elsif ($dir_count >2) {
          $path_to_language = File::Spec->join(File::Spec->updir() x ( <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1946	2054	
==>'.';
        } elsif ($dir_count >2) {
          $path_to_language = File::Spec->join(File::Spec->updir() x ( <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	2307	2401	
==>>new_item('', 'tools/build/parrot_config_c.pl'),
            $self->new_item('', 'tools/build/p <==
3	/Users/nnunley/parrot/examples/benchmarks/primes.pl	461	577	
==>i4;
my $i5;
my $i6 = 0;
my $i7;
printf("N primes up to ");
printf("%d", $i2);
printf(" is: ");

 REDO:
    $i3 = 2;
$ <==
3	/Users/nnunley/parrot/config/auto/funcptr.pm	475	584	
==>supports function pointer casts';

@args = qw(verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $ji <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	43793	43894	
==>gainly:
	return _generate($_[0], $_[1], 1, @_[2..$#_]);
}

sub Extend ($$)
{
	splice(@_, 2, 0, 0);
	re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732175	732399	
==>e 129 \"src/ops/set.ops\"\n  {{\@1}} = (INTVAL)({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732921	733145	
==>e 129 \"src/ops/set.ops\"\n  {{\@1}} = (INTVAL)({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	12079	12204	
==>($t ne $p) {
	    print <<EOC;
	assign $t, $p
EOC
	}
    }
    else {
	$p = promote($tos);
	print <<EOC;
	global "$c" = $p $cm <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	8382	8468	
==>=item C<Parrot::OpTrans>

=item F<tools/build/ops2c.pl>

=item F<tools/build/ops2pm.pl> <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	19166	19252	
==>=item C<Parrot::OpTrans>

=item F<tools/build/ops2c.pl>

=item F<tools/build/ops2pm.pl> <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1182	1314	
==>th}, 
            STDOUT => $pasm_f, STDERR => $pasm_f,
        );
        Parrot::Test::run_command( 
            "./parrot language <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1091	1223	
==>th}, 
            STDOUT => $pasm_f, STDERR => $pasm_f,
        );
        Parrot::Test::run_command( 
            "./parrot language <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133314	133524	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134094	134304	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44407	44665	
==>=> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "popmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45048	45306	
==>=> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "popmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9571	9674	
==>, 'test.cco', $verbose)
        and confess "C compiler failed (see test.cco)";

    _run_command("$link <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2090	2201	
==>->type;
  }
  else {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako::Co <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2048	2159	
==>->type;
  }
  else {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako::Co <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1970	2081	
==>->type;
  }
  else {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako::Co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863396	863652	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bytelength",
                  "FLAGS" => ":base_mem",
                  "AR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864287	864543	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bytelength",
                  "FLAGS" => ":base_mem",
                  "AR <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	666	765	
==>infile: $!" unless -e $infile;

my %known_strings = ();
my @all_strings;

&read_all;
open ALL, '>>', <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	5452	5550	
==>le for inclusion in C code,
    and an array of C<Parrot::Op> instances representing the Parrot ops <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345	439	
==>le for inclusion in C code,
and an array of C<Parrot::Op> instances representing the Parrot ops <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	816587	816736	
==>PE" => "inline",
                  "CODE" => 923,
                  "ARGS" => [],
                  "BODY" => "#line 600 \"src/ops/set.ops\"\n  Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911895	912064	
==>sc",
                              "sc"
                            ],
                  "BODY" => "#line 284 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(inter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918933	919102	
==>sc",
                              "ic"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(inter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919946	920115	
==>sc",
                              "ic"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(inter <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17549	17639	
==>,$list]);
  $self->_add_inst ('', 'eq',[$type,'.Undef', "DONE_$label"]);
  $self->_add_inst <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	17033	17163	
==>y $r = pop @stack;
    my $l = pop @stack;
    print <<"EOC";
	$op $l->[1], $r->[1] $cmt
EOC
    push @stack, [-1, $l->[1], $l->[2] <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21588	21685	
==>();

  $return = $self->_constant(1);
  my $temp = $self->_generate($node->{children}[1]);
  $self <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21973	22070	
==>();

  $return = $self->_constant(1);
  my $temp = $self->_generate($node->{children}[1]);
  $self <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	34202	34310	
==>my $s = $self->{Expected_Tests} == 1 ? '' : 's';
            $self->diag(<<"FAIL");
Looks like you planned $s <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	34538	34646	
==>my $s = $self->{Expected_Tests} == 1 ? '' : 's';
            $self->diag(<<"FAIL");
Looks like you planned $s <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4694	4800	
==>"True  " else e$="False "
if i and not j then f$="True   " else f$="False "
print a$;b$;c$;d$;e$;f$
next j, <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	11503	11603	
==>foreach my $line_group (@_) {
    next unless defined $line_group and length $line_group;
    pos($li <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1814	1905	
==>_over_bullet  { ++$_[0]{'Indent'} }
sub start_over_number  { ++$_[0]{'Indent'} }
sub start_o <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1382	1473	
==>_over_bullet  { ++$_[0]{'Indent'} }
sub start_over_number  { ++$_[0]{'Indent'} }
sub start_o <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1958	2078	
==>unley/parrot/tools/build/ops2c.pl] .
			 $PATHQUOTE;
our %cores = (
    C       => '',
   CGP     => '_cgp',
   CGoto   = <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44785	44931	
==>' => 57
		}
	},
	{#State 205
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	12312	12420	
==>macro.

=cut

sub check_progs
{
    my ($progs, $verbose) = @_;

    $progs = [$progs] unless ref $progs eq ' <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	31419	31523	
==>nds, the L<...> sequences

  # L<name>
  # L<name/"sec"> or L<name/sec>
  # L</"sec"> or L</sec> or L<"se <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5088	5222	
==>_name died during execution: $@\n";
            return;
        }

        # did the step return itself?
        eval { $ret->can('resu <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3366	3476	
==>pmcs) = each %$group_files) {
        my @pmcfiles = map { "$_.pmc" } @$pmcs;
        if (needs_build("$group.c <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3470	3580	
==>pmcs) = each %$group_files) {
        my @pmcfiles = map { "$_.pmc" } @$pmcs;
        if (needs_build("$group.c <==
3	/Users/nnunley/parrot/lib/Test/More.pm	30498	30651	
==>check($$e1, $$e2);
                pop @Data_Stack if $ok;
            }
            elsif( $type eq 'SCALAR' ) {
                push @Data_Stack, { type <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	10417	10545	
==>thing ) {
                if( my $string_meth = overload::Method($$thing, '""') ) {
                    $$thing = $$thing->$strin <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	14945	15068	
==>6
OP
			$ops++;
			next;
		}
		@a=EXPRESSION();   # CURR = "to", "," or EOL.
		feedme();
		if ($syms[CURR] eq "," or 
			$ty <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	276	378	
==>a copy of Parrot::Test::Python. Abstraction needed.

=cut

sub new {
    return bless {};
}

sub output <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	314	416	
==>a copy of Parrot::Test::Python. Abstraction needed.

=cut

sub new {
    return bless {};
}

sub output <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2488	2587	
==>ine
  );

#  $self->DEBUG(0, "Remembering symbol '$name' as sub...");

  $block->set_symbol($name, $ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	340	453	
==>();
my $scopes=0;
my @data=();
sub parse_keys {
	feedme();
	my $targ=$syms[CURR];
	feedme();
	feedme() while($syms <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133830	133916	
==>ne 321 \"src/ops/bit.ops\"\n  string_bitwise_xor(interpreter, {{\@1}}, {{\@2}}, &{{\@1} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134611	134697	
==>ne 321 \"src/ops/bit.ops\"\n  string_bitwise_xor(interpreter, {{\@1}}, {{\@2}}, &{{\@1} <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	17741	17852	
==>he original instruction code before we trash it.
    foreach (@rules) {
        $_->{'orig_code'} = $_->{'code'} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109640	109728	
==>ps/bit.ops\"\n  string_bitwise_or(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110419	110507	
==>ps/bit.ops\"\n  string_bitwise_or(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	7913	8044	
==>ll_state *st, int n)
{
    assert(n < st->src.n);
    Parrot_fetch_arg_nci(interpreter, st);

    return UVal_str(st->val);
}

stati <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	7731	7858	
==>ll_state *st, int n)
{
    assert(n < st->src.n);
    Parrot_fetch_arg_nci(interpreter, st);

    return UVal_num(st->val);
}

s <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	7548	7659	
==>ll_state *st, int n)
{
    assert(n < st->src.n);
    Parrot_fetch_arg_nci(interpreter, st);

    return UVal_in <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	30917	31022	
==>ption_Handler, $targ $cmt
	set_eh $eh
EOC
}
sub SETUP_FINALLY
{
    my ($n, $c, $cmt) = @_;
    SETUP_EXCE <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	2338	2432	
==>ction'} ) }
     __PACKAGE__->new->parse_string_document('=head1 L<Foo/bI<ar>baz>>')
    "
Outp <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	2956	3050	
==>ction'} ) }
     __PACKAGE__->new->parse_string_document('=head1 L<Foo/bI<ar>baz>>')
    "
Outp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	7435	7653	
==>core.ops\"\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8071	8289	
==>core.ops\"\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	47061	47158	
==>ix substring -- trivial in this case),

=item [3]

"<<" (i.e. the "name" of the quotelike operator <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1813	1913	
==>ION} < $COMPATIBLE
	and	croak "Yapp driver version $VERSION ".
			  "incompatible with version $$se <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1749	1847	
==>ION} < $COMPATIBLE
	and	croak "Yapp driver version $VERSION ".
			  "incompatible with version $$se <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	37053	37152	
==>E<gt>.

This program is free software; you can redistribute it and/or 
modify it under the same term <==
3	/Users/nnunley/parrot/lib/Test/More.pm	37462	37561	
==>E<gt>.

This program is free software; you can redistribute it and/or 
modify it under the same term <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	6422	6521	
==>E<gt>.

This program is free software; you can redistribute it and/or 
modify it under the same term <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	7976	8100	
==>str =~ s/ /&nbsp;/g;
          # hack, to make the timestamps not break so the smoke reports look
          # good even on 64 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48563	48661	
==>t_flag(interpreter,   PARROT_BOUNDS_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49353	49451	
==>t_flag(interpreter,   PARROT_BOUNDS_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	249416	249742	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "not",
                  "FLAGS" => ":base_core",
                  "A <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	2197	2300	
==>l flow changing opcodes including the possible targets of ret
    # opcodes
    while ($offset + sizeof( <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	11987	12083	
==>_str(const char * str);
static void store_op(op_info_t *info, int full);

/* XXX on changing inte <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	7370	7479	
==>class name:
    struct( ELEMENT_NAME => ELEMENT_TYPE, ... );

    # Declare struct at compile time
    use Cla <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	32152	32260	
==>s;\n        if (results) {\n\t    /* get results PMC index and get PMC. */\n\t    sig = PF_CONST(PMC_cont(cc) <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	7005	7109	
==>t$/i;
	return if $name =~ /icu\Wsource/; # icu cleanup code above needs work
	return if -d $_;
	return if <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	337448	337737	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getstdin",
                  "FLAG <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	10371	10478	
==>RO,5)=0 THEN GOSUB 20: REM GOO
   end
20 print "Correct"
   return


' Expect Correct
t=0
g=0
if t then
	pri <==
3	/Users/nnunley/parrot/Configure.pl	10138	10238	
==>int <<"END";

Okay, we're done!

You can now use `$make' to build your Parrot.
(NOTE: do not use `$ma <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	67306	67565	
==>G);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "collect",
                  " <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6003	6120	
==>c_group{$pmc} = $group;
        push @{ $group_files{$group} }, $pmc;
        $group_libs{$group} ||= {};
        fore <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6214	6331	
==>c_group{$pmc} = $group;
        push @{ $group_files{$group} }, $pmc;
        $group_libs{$group} ||= {};
        fore <==
3	/Users/nnunley/parrot/examples/benchmarks/primes.pl	421	534	
==>my $i1 = 1;
my $i2 = 10000;
my $i3;
my $i4;
my $i5;
my $i6 = 0;
my $i7;
printf("N primes up to ");
printf("%d", $i <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	1657	1770	
==>x.
    sc  The argument is a string constant index.
    kc  The argument is a key constant index.
    ki  The argu <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4770	4872	
==>y command requires destination";
    my $dest = $1;

    my ($group_files, $group_libs, $pmc_group, $pm <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4874	4976	
==>y command requires destination";
    my $dest = $1;

    my ($group_files, $group_libs, $pmc_group, $pm <==
3	/Users/nnunley/parrot/examples/benchmarks/freeze.pl	4	105	
==>erl -w
# Copyright (C) 2001-2006, The Perl Foundation.
# $Id: /parrot/examples/benchmarks/freeze.pl 19 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2766	2861	
==>TERNAL_ERROR("No type for left!")  unless defined $left_type;
  $self->INTERNAL_ERROR("No type f <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2532	2627	
==>TERNAL_ERROR("No type for left!")  unless defined $left_type;
  $self->INTERNAL_ERROR("No type f <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2454	2549	
==>TERNAL_ERROR("No type for left!")  unless defined $left_type;
  $self->INTERNAL_ERROR("No type f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099430	1099771	
==>"experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":bas <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100628	1100969	
==>"experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":bas <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101826	1102167	
==>"experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":bas <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	18216	18357	
==>=for'},
          $target,
        ],
      ;
      
      next;
      
    } elsif($para_type eq '=begin') { #/////////////////////////////// <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11979	12086	
==>id, $name, $fail) = @_;
    my $fail_label = $self->output_label_use($fail);
    my @ops;
    if (defined $n <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	12645	12752	
==>id, $name, $fail) = @_;
    my $fail_label = $self->output_label_use($fail);
    my @ops;
    if (defined $n <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1127	1255	
==>FILE  => $dest->file,
    LINE  => $dest->line
  }, $class;

  $block->push_content($self);

  return $self;
}

sub dest  { retur <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1118	1246	
==>FILE  => $dest->file,
    LINE  => $dest->line
  }, $class;

  $block->push_content($self);

  return $self;
}

sub dest  { retur <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1007	1135	
==>FILE  => $dest->file,
    LINE  => $dest->line
  }, $class;

  $block->push_content($self);

  return $self;
}

sub dest  { retur <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9112	9237	
==>gif'></a>";
    }
    elsif ( $tagname eq 'C' )
    {
        # See the note in process_code_start_token() above.
        prin <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	6001	6099	
==>relative to the first one. (lower is better)\n";
}
print "\n";

open (COPYOUT, ">&STDOUT") or die " <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1336	1424	
==>ALSO

L<Pod::Simple>, L<Pod::Simple::Text>, L<Pod::Spell>

=head1 COPYRIGHT AND DISCLAIME <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835458	835727	
==>"i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 946,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 215 \"src/ops/stack.ops\"\n  st <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63190	63297	
==>ne 964 \"src/ops/core.ops\"\n  PARROT_ERRORS_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63836	63943	
==>ne 964 \"src/ops/core.ops\"\n  PARROT_ERRORS_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "L <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	500	614	
==>pass1($t, $ctx);
    # Disable implicit checks
    $t = $self->maptree($t, sub { shift->{nocheck} = 1 });
    # Add <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24259	24356	
==>lobal \$P1, "BASICARR"
	\$P1["$var$seg"]= \$P3
	store_global "BASICARR", \$P1
	#
DIMARR
			if ($sy <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	981	1077	
==>okup(@methods);

# Generate method code suppliers.
$output .= generate_bodies(@methods);

# End o <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	7490	7612	
==>s) {
	if (/Information of <?([\w:]+)>?/) {
	    $in_info = 1;
	    $cur_f = $1;
	}
	elsif ($in_info) {
	    if (/^#/) {
		i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863997	864103	
==>Y" => "#line 143 \"src/ops/string.ops\"\n  UINTVAL n;\n  STRING *s = {{\@2}};\n  if (!s)\n    n = 0;\n  els <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864889	864995	
==>Y" => "#line 143 \"src/ops/string.ops\"\n  UINTVAL n;\n  STRING *s = {{\@2}};\n  if (!s)\n    n = 0;\n  els <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107132	107400	
==>"#line 167 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107986	108254	
==>"#line 167 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108840	109108	
==>"#line 167 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	31356	31513	
==>ack ]),
        $trymatch => $self->startup($num_groups),
                     @R_ops,
                     @save_rxlocals,
                     aop('getstart <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5368	5503	
==>ops, "lt <rx_tmp>, $last, $pass";
        } else {
            push @ops, "ge <rx_tmp>, $first, $pass";
        }
    }
    push @ops, " <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	1015	1109	
==>ranch operation hooks.
sub pre_branch {
	die "pre_branch not implemented for current stack to r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	624484	624695	
==>E" => "inline",
                  "CODE" => 702,
                  "ARGS" => [
                              "pc"
                            ],
                  "BODY" => "#line 247 \"src/ops/pic.ops\"\n    Par <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5332	5473	
==>ult || 'no result returned';
            carp "\nstep $step_name failed: " . $result;
            return;
        }

        my $result = $ste <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3760	3855	
==>so
	my $core_suffix;
	foreach $core_suffix (values %cores) {
		partial_link({}, $_ . "_ops$core_ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3514	3621	
==>C2C --library $group --c " . join(" ",@pmcfiles))
              or die "pmc2c library creation failed ($?)\n <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3618	3725	
==>C2C --library $group --c " . join(" ",@pmcfiles))
              or die "pmc2c library creation failed ($?)\n <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29367	29462	
==>behavior.

=over 4

=cut

package Parrot::Pmc2c::Standard;
use base 'Parrot::Pmc2c';

=item C<bo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836927	837220	
==>=> [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 948,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 234 \"src/ops/sta <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499498	499722	
==>"\n  {{\@1}} = floatval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500261	500485	
==>"\n  {{\@1}} = floatval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1148	1247	
==>ope eq 'global')) {
    my $pmc_type = $self->ident->type->imcc_pmc;
    my $pmc_reg = $compiler->te <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1142	1241	
==>ope eq 'global')) {
    my $pmc_type = $self->ident->type->imcc_pmc;
    my $pmc_reg = $compiler->te <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	14464	14562	
==>@work) {
		$_=pop @work;
		$result=pushthing(\@code, \$optype, @$_);
	}

	return( $result, $optype, <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	2553	2656	
==>irection was prefixed by 'C<label>'.

C<$flags> is one or more (comma-separated) I<hints>.

=cut

sub ne <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172250	172342	
==>218 \"src/ops/cmp.ops\"\n  if (0 != string_equal(interpreter,\n      {{\@1}}->vtable->get_str <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173228	173320	
==>218 \"src/ops/cmp.ops\"\n  if (0 != string_equal(interpreter,\n      {{\@1}}->vtable->get_str <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632681	632946	
==>init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633723	633988	
==>init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7538	7634	
==>MP0} = concat "0"
${PARAMS}[0] = ${STEMP0}
${INS} = concat ${STEMP0}
${INS} = concat " = pop s\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908878	909297	
==>GDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1024,
                  "ARGS" => [
                              "i",
                              "s",
                              "s"
                            ],
                  "BODY" <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5753	5879	
==>ny libs
        my %libs = %{ $class->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There should be at mos <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5964	6090	
==>ny libs
        my %libs = %{ $class->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There should be at mos <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4182	4284	
==>ht...");
    my $temp = $compiler->temp_reg($calc_type);
    $right = $right->compile($compiler);
    $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688121	688207	
==>line 576 \"src/ops/pmc.ops\"\n   {{\@1}}->vtable->delprop(interpreter, {{\@1}}, {{\@2}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688893	688979	
==>line 576 \"src/ops/pmc.ops\"\n   {{\@1}}->vtable->delprop(interpreter, {{\@1}}, {{\@2}} <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	25651	25768	
==>nd->[0],
        'result' => $l_next,
    );
    push @opcodes, @{$then};
    push @opcodes, new BranchOp( $parser <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	1361	1480	
==>_[0] ? ref shift : shift;
    my $name = shift;
    my $index_path = shift || 'index.html';
    my $text = shift;
    my <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103953	1104038	
==>ot_autoload_class(interpreter, class);\n\t\ttype = pmc_type(interpreter, class);\n\t}\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105168	1105253	
==>ot_autoload_class(interpreter, class);\n\t\ttype = pmc_type(interpreter, class);\n\t}\ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32078	32216	
==>is.
            $para->[1]{'number'} = $expected_value;
            $self->whine(
              $para->[1]{'start_line'},
              "Ex <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32487	32625	
==>is.
            $para->[1]{'number'} = $expected_value;
            $self->whine(
              $para->[1]{'start_line'},
              "Ex <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	9054	9159	
==>loat, $frac, $exp);
    $exp = qr/[eE][-+]?\d+/;
    $frac = qr/\.\d+/;
    $pointfloat = qr/(?:(?:\d+)?$f <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	538	675	
==>and
            ($token =~ /^[a-z]/ or               # Dashes can be in an ident
             $token =~ /^[-]\d+(\.\d+)?[eE]/)) { # Dashes <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	34755	34851	
==>$text = "{ an '[irregularly :-(] {} parenthesized >:-)' string }";

then a call to C<extract_brac <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24990	25082	
==>t::Balanced::Extractor';
}

package Text::Balanced::Extractor;

sub extract($$)	# ($self, $te <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	317278	317526	
==>2_ovf",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 371,
                  "A <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74441	74540	
==>>= $min and $prevtextlen == length $text;
	}

	if ($reps < $min) {
		if ($Parse::RecDescent::lastexp <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	1044	1141	
==>for disaster. But as long as you
just run these tools in the standard build process via C<make> th <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584388	584479	
==>ODY" => "#line 303 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585463	585554	
==>ODY" => "#line 303 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, { <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1215	1334	
==>|= $ENV{uc($util)};

    # never override the user.  If a non-existent program is specified then
    # the user is respo <==
3	/Users/nnunley/parrot/config/inter/make.pm	1036	1155	
==>|= $ENV{uc($util)};

    # never override the user.  If a non-existent program is specified then
    # the user is respo <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1212	1331	
==>|= $ENV{uc($util)};

    # never override the user.  If a non-existent program is specified then
    # the user is respo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79341	79445	
==>class_Undef);\n  }\n  else {\n      /* At this point we have the symbol's address. We just need to build\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80862	80966	
==>class_Undef);\n  }\n  else {\n      /* At this point we have the symbol's address. We just need to build\ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	9861	9962	
==>startpos,		# PREFIX
		$opentagpos,  $textpos-$opentagpos,		# OPENING TAG
		$textpos,     $parapos-$tex <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4063	4159	
==>C code for the specified op
argument type and value. C<$op> is an instance of C<Parrot::Op>.

=it <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	67577	67699	
==>e,$name);

				!$matchrule and $rule and $rule->addcall($name);
			}
		}
		elsif ($grammar =~ m/$LONECOLON/gco   )
		{
			_ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6701	6822	
==>, "$pmc.pmc")) {
        run("$PMC2C --dump $pmc.pmc")
          or die "pmc2c dump failed ($?)\n";
    }
}

sub generate_ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6912	7033	
==>, "$pmc.pmc")) {
        run("$PMC2C --dump $pmc.pmc")
          or die "pmc2c dump failed ($?)\n";
    }
}

sub generate_ <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	3611	3733	
==>($forward_off != $op->size){
		    $leaders{$forward_off + $pc} = 1;
		    $is_branch = 1;
		}
	    }
	    else {
		$is_bra <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	2778	2880	
==>_symbol
{
  my $self = shift; # Required: Jako::Construct::Block
  my $name = shift; # Required: string <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3862	3964	
==>_symbol
{
  my $self = shift; # Required: Jako::Construct::Block
  my $name = shift; # Required: string <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	1132	1230	
==>ub post_branch {
	die "post_branch not implemented for current stack to register mapper\n";
}

# Pr <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	1022	1121	
==>gisters #'d 100 or higher are used here for temporary conversions
# to other types required by the v <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8290	8385	
==>$(15);"World"
print "Foo";tab$(15);"Stuff"
print "I am the very model of a modern";tab$(15);"Mor <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21154	21249	
==>$(15);"World"
print "Foo";tab$(15);"Stuff"
print "I am the very model of a modern";tab$(15);"Mor <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	9738	9870	
==>~ /^u'.*'$/) {	# unicode-string TODO r raw
	$t = 'U';
    }
    elsif (is_num($c)) {        # num
	$t = 'N';
    }
    elsif ($c =~ / <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	17477	17579	
==>s includes running any additional test
scripts.

It will exit with 255.

=cut

sub BAILOUT {
    my($se <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	278894	279201	
==>D_CMP) <= 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	685	795	
==>cs)>

    $library = Parrot::Pmc2c::Library->new
        ( $options,     # hash refernce, the same passed to ot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863329	863619	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bytelength",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864220	864510	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bytelength",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	3295	3417	
==>2;
    } else {
        push @manifests, $_;
    }
}

# We'll report multiple occurrences of the same file
my %seen;

my @f <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5935	6058	
==>utput_setend {
    my ($self, $group, $value, $adj) = @_;
    $value = value($value);
    my @ops;
    if ($adj) {
        p <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5573	5696	
==>utput_setend {
    my ($self, $group, $value, $adj) = @_;
    $value = value($value);
    my @ops;
    if ($adj) {
        p <==
3	/Users/nnunley/parrot/config/auto/gc.pm	8	98	
==>ght (C) 2001-2005, The Perl Foundation.
# $Id: /parrot/config/auto/gc.pm 19593 2006-05-30T0 <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	5058	5157	
==>"0" />
      <itemData name="Special Directive" defStyleNum="dsKeyword" />
      <itemData name="Typ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1423	1516	
==>->INTERNAL_ERROR("Undefined block!")
    unless defined $block;

  $self->INTERNAL_ERROR("Unde <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1271	1364	
==>->INTERNAL_ERROR("Undefined block!")
    unless defined $block;

  $self->INTERNAL_ERROR("Unde <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	618529	618797	
==>> "inline",
                  "CODE" => 699,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 84 \"src/ops/pic.ops\"\ <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	1407	1532	
==>)
.end
END_PIR

}

sub pir_cmds_in_dir {
    my ($dir) = @_;
    
    opendir(DIR,$dir);
    # only return pir files (and stri <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10074	10195	
==>";
      } elsif ($tagname eq 'item-bullet') {
        print $fh "\\'95 \n";
        #for funky testing: print $fh '', rtf <==
3	/Users/nnunley/parrot/examples/benchmarks/oo5.pl	214	337	
==>, 20 ], $self;
}

sub i {
    my $self = shift;
    if (@_) { $self->[0] = shift } else { $self->[0] }
}

sub j {
    my $se <==
3	/Users/nnunley/parrot/examples/benchmarks/oo6.pl	206	329	
==>, 20 ], $self;
}

sub i {
    my $self = shift;
    if (@_) { $self->[0] = shift } else { $self->[0] }
}

sub j {
    my $se <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21117	21219	
==>lse {
        $self->{'content_seen'} ||= 1;
        $self->_handle_element_start(($scratch='for'), $pa <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	9894	9998	
==>name", we say that W maps
    #  to whatever $this->{accept_codes}{thatelementname} is,
    #  i.e., "tha <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2390	2488	
==>d_Para        { $_[0]->emit_par( 0) }
sub end_item_bullet { $_[0]->emit_par( 0) }
sub end_item_numb <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1958	2056	
==>d_Para        { $_[0]->emit_par( 0) }
sub end_item_bullet { $_[0]->emit_par( 0) }
sub end_item_numb <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	7722	7823	
==>def);
};


=item B<skip_all>

  $Test->skip_all;
  $Test->skip_all($reason);

Skips all the tests, usi <==
3	/Users/nnunley/parrot/config/inter/charset.pm	427	525	
==>ription = 'Determining what charset files should be compiled in';

@args = qw(ask charset);

sub ru <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	428	522	
==>rl tools/build/pmc2c.pl --tree src/pmc/*.pmc

Create F<src/pmc/foo.c> and C<pmc_foo.h> from F<s <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3227	3318	
==>shift @_ => Parrot::Test::PGE::_generate_glob_for($target, $pattern);

    goto &Parrot::Tes <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3652	3743	
==>shift @_ => Parrot::Test::PGE::_generate_glob_for($target, $pattern);

    goto &Parrot::Tes <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054423	1054521	
==>\n\tinternal_exception(1, \"Tried to get null global.\");\n\n    next = {{^+4}};\n    {{\@1}} = Par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055550	1055648	
==>\n\tinternal_exception(1, \"Tried to get null global.\");\n\n    next = {{^+4}};\n    {{\@1}} = Par <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	9330	9421	
==>nci_P(Interp *interpreter, struct call_state *st, PMC* val)
{
    Parrot_init_ret_nci(interp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106164	1106267	
==>"BODY" => "#line 352 \"src/ops/experimental.ops\"\n    int typ = {{\@2}};\n    if (typ < 1 || typ >= int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107140	1107243	
==>"BODY" => "#line 352 \"src/ops/experimental.ops\"\n    int typ = {{\@2}};\n    if (typ < 1 || typ >= int <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35294	35396	
==>$self->diag(<<'FAIL');
Looks like your test died before it could output anything.
FAIL
        _my_exit <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488046	488317	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	489439	489710	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_c <==
3	/Users/nnunley/parrot/lib/Test/More.pm	28086	28182	
==>rray(\@this, \@that);

Checks if two arrays are equivalent.  This is a deep check, so
multi-level <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2164	2258	
==>e following shortcuts:

=item $token->is_start

This is a shortcut for C<< $token->type() eq "s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804240	804327	
==>ne 472 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_pmc_keyed(interpreter, {{\@1}}, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805141	805228	
==>ne 472 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_pmc_keyed(interpreter, {{\@1}}, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557300	557562	
==>lmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558683	558945	
==>lmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560067	560329	
==>lmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3804	3901	
==>arameter '$prm'");
			ref($value) eq $$checklist{$prm}
		or	croak("Invalid value for parameter ' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3609	3704	
==>arameter '$prm'");
			ref($value) eq $$checklist{$prm}
		or	croak("Invalid value for parameter ' <==
3	/Users/nnunley/parrot/config/init/manifest.pm	174	267	
==>EST Check

=head1 DESCRIPTION

Uses C<ExtUtils::Manifest> to check that the distribution is co <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	18344	18458	
==>//////////////////////

      my $content = join ' ', splice @$para, 2;
      $content =~ s/^\s+//s;
      $content <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21314	21428	
==>//////////////////////

      my $content = join ' ', splice @$para, 2;
      $content =~ s/^\s+//s;
      $content <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121957	122059	
==>t.ops\"\n  /*\n   * lvalue casts are evil, but this one isn't evil enough to kill.\n   * it's just cast <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122869	122971	
==>t.ops\"\n  /*\n   * lvalue casts are evil, but this one isn't evil enough to kill.\n   * it's just cast <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	9989	10090	
==>i.e., "thatelementname".  Then when we go re-mapping,
    #  a "W" in the treelet turns into "thatelem <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	31732	31836	
==>all_function_sym('write',$temp);
    }
  }
  return $temp; # We need to return something
}

sub _op_displ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16589	16692	
==>ile a<5
print a
a=0
do
	a=a+1
loop until a>4
print a

' Branch test, all OK in sequence
PRINT "1 in modu <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	3504	3597	
==>item C<need_ext>

The class needs a C<PMC_EXT> structure. For instance, any class using
C<PMC_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237258	237510	
==>ODE" => 276,
                  "ARGS" => [
                              "i",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 606 \"src/ops/cmp.ops\"\n  {{\@1}} = st <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	2171	2281	
==>(int4_t => 'int');
    } elsif ($results{longsize} == 4) {
        $conf->data->set(int4_t => 'long');
    } el <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	8964	9068	
==>ans
		# "Push the top of the stack onto the function's call stack"
		# No-arg funcs are simply left alone <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760395	760635	
==>" => "inline",
                  "CODE" => 858,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 286 \"src/ops/set.ops\"\n  { <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1272	1380	
==>e = File::Spec->join('languages', $language);
        } elsif ($dir_count == 1) {
          $path_to_language <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1757	1865	
==>e = File::Spec->join('languages', $language);
        } elsif ($dir_count == 1) {
          $path_to_language <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1045	1154	
==>TIBLE $FILENAME );

$VERSION = '1.05';
$COMPATIBLE = '0.07';
$FILENAME=__FILE__;

use Carp;

#Known pa <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1011	1112	
==>TIBLE $FILENAME );

$VERSION = '1.05';
$COMPATIBLE = '0.07';
$FILENAME=__FILE__;

use Carp;

#Known pa <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	1082	1177	
==>ented for current stack to register mapper\n";
}
sub post_branch {
	die "post_branch not impleme <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607632	607974	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getattribute",
                  "FLAGS" => ":object_c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608536	608878	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getattribute",
                  "FLAGS" => ":object_c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609443	609785	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getattribute",
                  "FLAGS" => ":object_c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843310	843641	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "AR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844188	844519	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "AR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845066	845397	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "AR <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	8007	8126	
==>- - - - - - - - - - - - - - - -
    } elsif( $type eq 'end' ) {
      if( ($tagname = $token->tagname) =~ m/^over-/s ) { <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	530	622	
==>rectory_class()>

Returns the class used in the various directory creation methods. This
defa <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11068	11158	
==>------------------------------------------
1;
__END__

=head1 NAME

Pod::Escapes -- for res <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	18430	18529	
==>the given directories) and recreate the data structure.

=cut

sub read_dump {
    my ($include, $fi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569298	569387	
==>ect.ops\"\n  {{\@1}} = {{\@2}}->vtable->isa(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570191	570280	
==>ect.ops\"\n  {{\@1}} = {{\@2}}->vtable->isa(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453073	453238	
==>,
                  "BODY" => "#line 230 \"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453812	453977	
==>,
                  "BODY" => "#line 230 \"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213898	214133	
==>=> [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 448 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	6028	6144	
==>sm .= $line;
    }
    return %ops;
}

use Parrot::Vtable;
my $vtable;
my $vjit = 0;
sub vtable_num($) {
    my $meth <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17698	17789	
==>inst ('', 'inc',[$return]);
  $self->_add_inst ('', 'set',[$list,$list.'[1]']);
  $self->_ad <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1165	1288	
==>text);
    $text =~  # A not-totally-brilliant wrapping algorithm:
      s/(
         [^\n]{55}         # Snare some charact <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1109	1232	
==>text);
    $text =~  # A not-totally-brilliant wrapping algorithm:
      s/(
         [^\n]{55}         # Snare some charact <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	533	629	
==>you have them in the
correct order.

=head2 package

Declares the package that all subsequent sub <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549420	549600	
==>S|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550720	550900	
==>S|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552021	552201	
==>S|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846654	846751	
==>ops\"\n  STRING *s;\n  s = string_chr(interpreter, (UINTVAL){{\@2}});\n  {{\@1}} = s;\n  {{+=3}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847450	847547	
==>ops\"\n  STRING *s;\n  s = string_chr(interpreter, (UINTVAL){{\@2}});\n  {{\@1}} = s;\n  {{+=3}};\ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5057	5181	
==>rn 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  my $block = $self->block;
  my $dest  = $self-> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3120	3244	
==>rn 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  my $block = $self->block;
  my $dest  = $self-> <==
3	/Users/nnunley/parrot/lib/File/Which.pm	4609	4705	
==>h an
environment variable, it parses the list and uses it as the different extensions.

=head2 Wi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150675	151029	
==>,
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 183,
                  "ARGS" => [
                              "p",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 112 \"sr <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1274	1397	
==>)>

Sets/gets the current position in Parrot code.

=cut

sub pc
{
    my $self = shift;

    if (@_)
    {
        $self->{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	883	1006	
==>)>

Sets/gets the current position in Parrot code.

=cut

sub pc
{
    my $self = shift;

    if (@_)
    {
        $self->{ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17508	17640	
==>perators (not NOT)
print "      AND   OR    XOR   EQV   IMP"
for i = 0 to 1
for j = 0 to 1
print i; j;
if i and j then a$="True  " el <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	858	948	
==>up('PMCs', '',
			$self->new_item('', 'lib/Parrot/Pmc2c.pm'),
			$self->new_item('', 'lib/P <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	1042	1137	
==>pre_branch {
	die "pre_branch not implemented for current stack to register mapper\n";
}
sub pos <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	8405	8493	
==>>

=item F<tools/build/ops2c.pl>

=item F<tools/build/ops2pm.pl>

=item F<tools/build/pbc <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	19189	19277	
==>>

=item F<tools/build/ops2c.pl>

=item F<tools/build/ops2pm.pl>

=item F<tools/build/pbc <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4367	4526	
==>hile(<DRV>) {
                	/^\s*sub\s+_Parse\s*{\s*$/ .. /^\s*}\s*#\s*_Parse\s*$/
        	and     do {
                	s/^#DBG>//;
                	pu <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4146	4301	
==>hile(<DRV>) {
                	/^\s*sub\s+_Parse\s*{\s*$/ .. /^\s*}\s*#\s*_Parse\s*$/
        	and     do {
                	s/^#DBG>//;
                	pu <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	34584	34681	
==>Slice(@_, 2);
}
sub STORE_SLICE_plus_3 {
    return Store_Slice(@_, 3);
}

sub DELETE_SLICE_plus_0 <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	9079	9189	
==>print OUT page_header("Function Coverage Summary");
    print OUT qq(
            <i>You may click on a percent <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	8576	8682	
==>ype\n" unless exists $typemap{ $type };

    return $typemap{ $type };
}

sub parse_params
{
    my $params <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	1583	1686	
==>_op';
    $cpcf_op = 'Parrot_jit_cpcf_op';
    $restart_op = 'Parrot_jit_restart_op';
    %argmaps = %Pa <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	9351	9458	
==>new_code\" isn't a valid element name"
        if $new_code =~
          m/[\x00-\x2C\x2F\x39\x3B-\x40\x5B-\ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10615	10722	
==>new_code\" isn't a valid element name"
        if $new_code =~
          m/[\x00-\x2C\x2F\x39\x3B-\x40\x5B-\ <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1511	1609	
==>ected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not($got eq $expecte <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9767	9879	
==>alue);
    return "$value, ";
}

sub output_param {
    my ($self, $name, $type, $reg) = @_;
    $reg = value($re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035682	1035770	
==>ame);\n    if (!result) {\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036846	1036934	
==>ame);\n    if (!result) {\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexi <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	40970	41090	
==>(
          ['', {}, @ell_content]
        );
        DEBUG > 3 and print "L-to content: ", pretty($ell->[1]{'to'}), "\n" <==
3	/Users/nnunley/parrot/config/init/hints/irix.pm	29	115	
==>l Foundation.
# $Id: /parrot/config/init/hints/irix.pm 19593 2006-05-30T02:28:15.110975 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	334	426	
==>Expression::Value;

use base qw(Jako::Construct::Expression);

use Jako::Token;

use Jako::Co <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4926	5015	
==>($errstatus,$nberror,$token,$value,$stack,$check,$dotpos)
     = @$self{ 'ERRST', 'NBERR' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4684	4772	
==>($errstatus,$nberror,$token,$value,$stack,$check,$dotpos)
     = @$self{ 'ERRST', 'NBERR' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079909	1080239	
==>FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1199,
                  "ARGS" => [
                              "p" <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	13324	13452	
==>> 31,
			"^" => 32
		},
		DEFAULT => -40,
		GOTOS => {
			'classpieces' => 30
		}
	},
	{#State 15
		DEFAULT => -38
	},
	{#State 1 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	488	611	
==>op, 
    TYPE => $type,
    TEXT => $text
  }, $class;
}

sub new_bof
{
  my $class = shift;
  my ($file, $line) = @_;

  re <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	289	396	
==>nings";

package Jako::Construct::Label;

use Carp;

use base qw(Jako::Construct);

1;

#
# new()
#

sub new <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9722	9842	
==>NTERP, SELF> to C<$args>.

=cut

sub full_arguments {
    my $args = shift;

    if ($args =~ m/\S/) {
        return "IN <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028177	1028284	
==>= Parrot_sleep_on_event(interpreter, (FLOATVAL) {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029028	1029135	
==>= Parrot_sleep_on_event(interpreter, (FLOATVAL) {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	38771	38883	
==>{INS} = concat \""
	/ge;
	$ins = "\${INS} = concat \"$ins\"\n";
		
	# Return PIR.
	return $ins;
}


# Generate th <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9249	9354	
==>_comment {
  my $self = shift;
  return sprintf
   "<!-- generated by %s v%s, using %s v%s, under Perl v%s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1108204	1108306	
==>{{\@2}}->vtable->base_type)\n    {\n        case enum_class_String:\n\t        type = pmc_type(interpre <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	5340	5435	
==>catdir($options{buildprefix}, $dest)
      if $options{buildprefix};

    $directories{dirname($ <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2246	2467	
==>last;
            s/^\\n//
                and $str .= "\n",      # new line
                last;
            s/^\\r//
                and $str .= "\r",      # carriage return
                last;
            s/^\ <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3760	3981	
==>last;
            s/^\\n//
                and $str .= "\n",      # new line
                last;
            s/^\\r//
                and $str .= "\r",      # carriage return
                last;
            s/^\ <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	7923	8049	
==>!! "undef") ~ "'");
        Test::diag("    Actual: '" ~ ($got.defined ?? $got !! "undef") ~ "'");
    }
    else {
        Tes <==
3	/Users/nnunley/parrot/languages/perms.pl	592	714	
==>s);

while (my $i = $it->()) {
  print $i."\n"
    if length($i) >= 2;
}

__END__
    for my $i (@{ $things }) { 
      $pr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621809	621900	
==>LAG_TAILCALL;\n\t    --ctx->recursion_depth;\n\t    ctx->caller_ctx = caller_ctx->caller_ctx <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29645	29728	
==>LAG_TAILCALL;\n\t--ctx->recursion_depth;\n\tctx->caller_ctx = caller_ctx->caller_ctx <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	5751	5859	
==>elf && $self ne 'self') {
	print <<EOC;
	.local pmc $self
	$self = self
EOC
    }
    if ($func_info{$arg}{fl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784331	784422	
==>"\n    {{\@1}}->vtable->set_pmc_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785237	785328	
==>"\n    {{\@1}}->vtable->set_pmc_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	269620	269898	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isge",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	6516	6652	
==>'     , 8706,
 'exist'    , 8707,
 'empty'    , 8709,
 'nabla'    , 8711,
 'isin'     , 8712,
 'notin'    , 8713,
 'ni'       , 8715,
 'p <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	5775	5892	
==>RGET}->file_with_relative_path($path);
    
            print {$self->{'output_fh'}} 
                $self->{'Tagmap' <==
3	/Users/nnunley/parrot/languages/regex/test.pl	2630	2756	
==>cted" if ! /^INPUT:/;

    # Gather input, look for OUTPUT:
    $input = '';
    undef $output;
    while (<SPEC>) {
        $o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600242	600351	
==>eter, next, NO_CLASS, \n         \"Class '%Ss' doesn't exist\", name);\n  }\n  else\n    {{\@1}} = class;\n  { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601318	601427	
==>eter, next, NO_CLASS, \n         \"Class '%Ss' doesn't exist\", name);\n  }\n  else\n    {{\@1}} = class;\n  { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511044	511335	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511782	512073	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAG <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1796	1902	
==>sert = "";
  while(<DATA>) {
	chomp;
	next unless /^[FGHI]/;
	my ($func,@x) = split /,/;
	my $c = $f{$func} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104914	105209	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105651	105946	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	106389	106684	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	28027	28130	
==>_;
  my $return;
  my $label     = $self->_gensym();

  $return = $self->_generate($node->{children}[1]) <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23307	23406	
==>_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_generate($node->{children}[1]) <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23769	23868	
==>_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_generate($node->{children}[1]) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596847	597099	
==>E" => 676,
                  "ARGS" => [
                              "p",
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 337 \"src/ops/object.ops\"\n  {{\@1}} = V <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	45665	45781	
==>nto "foo bar&#160;faz quux", you
       # end up with something that fails to say "and don't hyphenate
       # any p <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	53964	54061	
==>gs (see below) within the
text should be skipped or returned as fields. If the value is true,
such <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	37198	37299	
==>_op_string_p,
  'make-string'   => \&_op_make_string,
  'string'        => \&_op_string,
  'string-len <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	59888	59986	
==>in this case the input text is not modified in any way).

In addition, on failure in I<any> context <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	923637	923725	
==>/string.ops\"\n  {{\@1}} = string_make_empty(interpreter, enum_stringrep_one, 0);\n  {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25461	25641	
==>L;\n  dest = (opcode_t *)p->vtable->invoke(interpreter, p, dest);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ] <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	3233	3338	
==>ta);",
       f => "set_nci_N(interpreter, &st, return_data);",
       d => "set_nci_N(interpreter, &st, r <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	12224	12328	
==>t are shipped with parrot, change
    to the languages directory and issue the same command.
  </p>

  <p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253524	253793	
==>YPE" => "inline",
                  "CODE" => 295,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 726 \"src/ops/cmp.o <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2806	2899	
==>ift->SUPER::new(@_);
  #$new->nix_X_codes(1);
  $new->nbsp_for_S(1);
  $new->accept_targets( ' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3161	3253	
==>ift->SUPER::new(@_);
  $new->nix_X_codes(1);
  $new->nbsp_for_S(1);
  $new->accept_targets( ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033027	1033231	
==>=> [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 41 \"src/ops/var.ops\"\n    parrot_context_t * const ctx = CONTEX <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	841	975	
==>like',
    output_isnt       => 'isnt_eq',
                        );

foreach my $func ( keys %language_test_map ) {
    no strict 're <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	569	678	
==>like',
    output_isnt => 'isnt_eq',
);

foreach my $func ( keys %language_test_map ) {
    no strict 're <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1266	1377	
==>DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{R <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1257	1368	
==>DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{R <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1146	1257	
==>DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{R <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	281098	281418	
==>"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 327,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 903 \"src/ops <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	10261	10396	
==>kground-color: white;
      margin:           0;

      font-family: sans-serif;
      line-height: 1.3em;
      font-size:   95%;
    } <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	5590	5690	
==>ue_type = typeof value
    if newline goto print_newline
    if value_type != 'String' goto print_spa <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16903	17029	
==>ru in X-generated comments
        #  with text in them.
        
        # Yes, stipulate the list without a range, so that th <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	17792	17913	
==>outfile=file.pasm' seems to create unnecessary whitespace
                $real_output =~ s/^\s*$//gm;
                $re <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10343	10453	
==>ru in X-generated comments
    #  with text in them.

    # Yes, stipulate the list without a range, so that th <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	7893	8047	
==>roup] := %<rx_pos>-1\n"),
                        aop('setend', [ $group, '<pos>', -1 ]),
                        aop('goto', [ $next ]),
              $rf <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4262	4391	
==>lls{$1}{"$file:$function"}++ 
                  unless ($variable_visible{$file}{$1} || 
                          $variable_visib <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4527	4654	
==>lls{$1}{"$file:$function"}++
                  unless ($variable_visible{$file}{$1} ||
                          $variable_visib <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916771	917058	
==>> 1032,
                  "ARGS" => [
                              "i",
                              "s",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = st <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516667	516893	
==>ine 729 \"src/ops/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517406	517632	
==>ine 729 \"src/ops/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	5310	5446	
==>s};
    if (defined $file) {
        my $file_escaped = $file;
        $file_escaped =~ s|(\\)|$1$1|g; # escape backslashes
        retur <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	9686	9797	
==>.return ($N1)
neg_one:
    $N1 = asin op2
    .return ($N1)
neg_two:
    $N1 = acos op2
    .return ($N1)
neg_th <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1470	1574	
==>ent) {
      $compiler->emit(".namespace ${namespace}_CONT");
      $compiler->indent;
      $self->SUPER <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2136	2240	
==>rwise, we assume the programmer wanted to shadow the
  # previous definition.
  #

  if (defined $sym and <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1883	1987	
==>rwise, we assume the programmer wanted to shadow the
  # previous definition.
  #

  if (defined $sym and <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	4661	4758	
==>, $description)>

Compiles and runs the C code, passing the test if output matches the
expected re <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1520	1616	
==>ed type!")
    unless defined $type;

  $self->INTERNAL_ERROR("Type is not a Jako::Construct::Typ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1368	1464	
==>ed type!")
    unless defined $type;

  $self->INTERNAL_ERROR("Type is not a Jako::Construct::Typ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199562	199921	
==>:base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 236,
                  "ARGS" => [
                              "n",
                              " <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	7337	7441	
==>my @sources = map { "$_$O" } @$stems;
    if (needs_build("$group$LOAD_EXT", @sources)) {
        run(par <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7548	7652	
==>my @sources = map { "$_$O" } @$stems;
    if (needs_build("$group$LOAD_EXT", @sources)) {
        run(par <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6747	6872	
==>lf->forth;
}


#
# SKIPS:
#

sub skip_assign        { return shift->skip('assign');        }
sub skip_colon         { return s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15279	15384	
==>\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # return a singl <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16460	16565	
==>\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # return a singl <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	15211	15301	
==>tml_for_file($file));
}

=item C<append_html_suffix($path)>

Returns C<$path> with and HTML <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2018	2107	
==>SAL::isa($args[$i], 'Jako::Construct::Expression::Value::Identifier')) {
      my $arg_sym <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1718	1807	
==>SAL::isa($args[$i], 'Jako::Construct::Expression::Value::Identifier')) {
      my $arg_sym <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9117	9240	
==>>seg, 1);\n    }\n    string_cstring_free(label);\n    interpreter->resume_flag = 2;\n    {{=0}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10233	10356	
==>>seg, 1);\n    }\n    string_cstring_free(label);\n    interpreter->resume_flag = 2;\n    {{=0}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	17297	17411	
==>, $trans) = @_;

    local $_ = $self->{PREAMBLE};

    if ($trans)
    {
        s/goto\s+OFFSET\((.*)\)/{{+=$1}}/ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	430	512	
==>ruct::Expression::Value::Literal;
use Jako::Construct::Expression::Value::Identifie <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551039	551261	
==>> 634,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 56 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PM <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	1183	1288	
==>roup P0, $n";
}

sub output_atend {
    my ($self, $failLabel) = @_;
    return ("rx_zwa_atend P0, ".$self <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	15415	15522	
==>n("\n    ", map { "$temp[$_]->[1] = arg$_;"} @tempi);
        print NCI << "HEADER";
static void
pcf_${retur <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83792	83898	
==>et_pmc_keyed_str(interpreter, compreg_hash, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84698	84804	
==>et_pmc_keyed_str(interpreter, compreg_hash, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2429	2526	
==>gainst the Perl 6 pattern, passing the test
if the output produced by the test code matches the C< <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3863	3960	
==>gainst the Perl 6 pattern, passing the test
if the output produced by the test code matches the C< <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	1207	1297	
==><<"PIR"
$P0 = new .Exception
$P0["_message"] = "System.NotImplementedException"
$P1 = new " <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5652	5779	
==>>;
    #   var <type> <ident>, <ident>, ...;
    #   var <type> <ident>, <ident>, ... = <value>;
    #
    #   const <type> <ide <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	586	692	
==>->(
    $_[0]
  );
}

1;


__END__

=head1 NAME

Pod::Simple::Methody -- turn Pod::Simple events into metho <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1194	1285	
==>my $sym = $self->block->find_symbol($name);

  $self->SYNTAX_ERROR("Call to unknown sub '%s' <==
3	/Users/nnunley/parrot/tools/dev/symlink.pl	1117	1228	
==>nless @toolsrcdir >= 2 &&
         lc($toolsrcdir[-1]) eq 'dev' &&
         lc($toolsrcdir[-2]) eq 'tools';
my @ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	6089	6184	
==>est_name);

This simply evaluates any expression (C<$this eq $that> is just a
simple example) an <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197333	197450	
==>ine 366 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198230	198347	
==>ine 366 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199127	199244	
==>ine 366 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1092890	1093165	
==>2}});\n    {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093694	1093967	
==>2}});\n  {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094497	1094770	
==>2}});\n  {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465645	465902	
==>\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dec",
                  "FLAGS" => ":base_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	466266	466523	
==>\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dec",
                  "FLAGS" => ":base_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	67645	67792	
==>unction",
                  "CODE" => 88,
                  "ARGS" => [],
                  "BODY" => "#line 1038 \"src/ops/core.ops\"\n  Parrot_go_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	1006	1124	
==>$$$it\"\n";

  return 1;
}

sub FETCH {
  return ${$_[0]};
}

sub PRINTF {
  my $it = shift;
  my $format = shift;
  $$ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12369	12486	
==>t OUTDATA;
				}
				$s.=$syms[CURR];
			}
		} else {
			die "Cannot use $type[CURR]/$syms[CURR] in DATA";
		}
		feedm <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33279	33377	
==>e"};
	return $desc;
}

sub callsyntax($$)
{
	if ($_[0]->{"matchrule"})
	{
		return "&{'$_[1]'.qq{$_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	967	1073	
==>head1' => "\n<h1>",  # And also stick in an <a name="...">
  'head2' => "\n<h2>",  #  ''
  'head3' => "\n<h <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6304	6403	
==>onfess "Extra arguments!" if @_;

  my $sym = $self->get_symbol($name); # Return the identifier if d <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776024	776192	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_i <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3327	3428	
==>0;
	barf();		# We're too far in already...
	while($type[CURR] !~ /COMP|COMM|STMT/) {
		die if $loop++> <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	1252	1354	
==>names;
    @names{@names} = ();
    my $label = $self->mklabel();
    $self->{_label_comments}{$label-> <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1054	1145	
==>n end-token with the tagname of "head1".

=item $token->tagname(I<somestring>)

This changes <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1482	1573	
==>n end-token with the tagname of "head1".

=item $token->tagname(I<somestring>)

This changes <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	795	895	
==>w 
    rethrow die_hard .emit .eom .sub .end .pcc_begin
    .pcc_end .pcc_sub .pcc_begin_return .pcc_ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18011	18111	
==>mt => 0 });
	} else {
		push @{$code{$seg}->{code}}, "DO_$docounter:\n";
		push(@dos, { jump => $doco <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	36023	36172	
==>ed a failure and will exit with 255.

So the exit codes are...

    0                   all tests successful
    255                 test died
    any <==
3	/Users/nnunley/parrot/lib/Test/More.pm	34094	34243	
==>ed a failure and will exit with 255.

So the exit codes are...

    0                   all tests successful
    255                 test died
    any <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2889	3038	
==>ed a failure and will exit with 255.

So the exit codes are...

    0                   all tests successful
    255                 test died
    any <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1612	1712	
==>od::Simple::PullParserToken>, L<Pod::Simple>, L<Pod::Simple::Subclassing>

=head1 COPYRIGHT AND DISCL <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2779	2879	
==>od::Simple::PullParserToken>, L<Pod::Simple>, L<Pod::Simple::Subclassing>

=head1 COPYRIGHT AND DISCL <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1899	1999	
==>od::Simple::PullParserToken>, L<Pod::Simple>, L<Pod::Simple::Subclassing>

=head1 COPYRIGHT AND DISCL <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	1634	1729	
==>ad2 Instance Methods

=over 4

=item C<is_root_section()>

Returns whether the section is the ro <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	973	1066	
==>Expression::Value::Identifier');
  confess "Left is not Value!" if defined $left and not UNIVE <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1001	1094	
==>Expression::Value::Identifier');
  confess "Left is not Value!" if defined $left and not UNIVE <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1930	2019	
==>block->find_symbol($left->value);
    $self->SYNTAX_ERROR("Expression involves unknown var <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1888	1977	
==>block->find_symbol($left->value);
    $self->SYNTAX_ERROR("Expression involves unknown var <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1810	1899	
==>block->find_symbol($left->value);
    $self->SYNTAX_ERROR("Expression involves unknown var <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	5079	5185	
==>ss = ref($_[0]) || $_[0];
  #Carp::croak(__PACKAGE__ . " is a virtual base class -- see perldoc "
  #  . __ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	15704	15842	
==>a );
            local *{ $call_pkg . '::TODO' } = \$extra{todo}
                if defined $extra{todo};

            my $pass = $builder- <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	18255	18393	
==>a );
            local *{ $call_pkg . '::TODO' } = \$extra{todo}
                if defined $extra{todo};

            my $pass = $builder- <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	417	521	
==>s is too restrictive. Need better tests
    if %1 >= 0 goto power_ok
%% DOMAIN_ERROR %%
power_ok:
    $N1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022612	1022885	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodeloc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023461	1023734	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodeloc <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	2392	2513	
==>';
  }';
  eval $dump;
  #print "$dump\n";
  #exit 0;
}

gen_code();


# object part of this module
sub new {
	my $class = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	580	688	
==>'ELSE' },
  'sub'      => { PREFIX => "_S", NEXT => 'TEST', REDO => 'THEN', LAST => 'ELSE' }, # TODO: fix the <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	601	709	
==>'ELSE' },
  'sub'      => { PREFIX => "_S", NEXT => 'TEST', REDO => 'THEN', LAST => 'ELSE' }, # TODO: fix the <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	38975	39070	
==>ring or some
C<reject> pattern matches). By default, a failure to match a closing
tag causes C<e <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31981	32103	
==>s = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $par <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33558	33680	
==>s = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $par <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40615	40737	
==>s = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $par <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	6304	6435	
==>m_key = new_tmp( $parser, 'pmc' );
                push @opcodes3, new LocalDir( $parser,
                    'result' => $num_key <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	4143	4265	
==>e, "Possible C++ comment detected.");
        }

        if (/XXX/) {
            info($file, $line, "To-Do (XXX) noticed." <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	5669	5804	
==>rors in the file.

=cut

sub num_pod_errors
{
	my $self = shift;
	
	$self->check_pod;
	
	return $self->{POD_ERRORS_COUNT} || 0;
}

=item <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	17167	17270	
==>ng $$para[2] as =item *\\n\\n$1\n";
    splice @$para, 2; # so it ends up just being ['=item', { attrhas <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540469	540570	
==>}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541721	541822	
==>}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542973	543074	
==>}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1008	1116	
==>_handle_text {
  DEBUG and print "== \"$_[1]\"\n";
  
  if(length $_[1]) {
    my $indent = '  ' x $_[0]{'ind <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	957	1062	
==>_handle_text {
  DEBUG and print "== \"$_[1]\"\n";
  if(length $_[1]) {
    my $indent = '  ' x $_[0]{'ind <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3112	3237	
==>d index
}

sub YYCurtok {
	my($self)=shift;

        @_
    and ${$$self{TOKEN}}=$_[0];
    ${$$self{TOKEN}};
}

su <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2962	3076	
==>d index
}

sub YYCurtok {
	my($self)=shift;

        @_
    and ${$$self{TOKEN}}=$_[0];
    ${$$self{TOKEN}};
}

su <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	7125	7236	
==>t;
    }

    # Have enough for any possible match of this subtree?
    return $t if (defined($t->maxlen()) && $ <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	6000	6120	
==>(\$i = shift) : return \$r->$elem;\n";
                $out .= "    if (ref(\$i) eq 'HASH' && !\@_) { \$r->$elem = \$i; r <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2101	2238	
==>' . $PATHQUOTE . " " .
        $source;
};

sub partial_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($ <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2393	2530	
==>' . $PATHQUOTE . " " .
        $source;
};

sub partial_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2188	2325	
==>' . $PATHQUOTE . " " .
        $source;
};

sub partial_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	9387	9511	
==>->{args}->[3];
        my $max = $t->maxlen();
        if (!defined($max) || $max < 0) { $guarantee = 0; }
        else { $gu <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2749	2852	
==>t)>.

=cut

sub restart_offset
{
    my ($self, $offset) = @_;

    return "interpreter->resume_offset = <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4084	4187	
==>t)>.

=cut

sub restart_offset
{
    my ($self, $offset) = @_;

    return "interpreter->resume_offset = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2533	2650	
==>= $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  if (defined $cond) {
    $handler->start_elemen <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3207	3324	
==>= $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  if (defined $cond) {
    $handler->start_elemen <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3297	3414	
==>= $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  if (defined $cond) {
    $handler->start_elemen <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	72461	72558	
==>';
$self->{startcode}

{
local \$SIG{__WARN__} = sub {0};
# PRETEND TO BE IN Parse::RecDescent NAM <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24884	24977	
==>ush @{$code{$seg}->{code}}, @code;

	die "TO expected at source line $sourceline" unless ($sym <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	7267	7377	
==>= shift;

    $self->{No_Plan}   = 1;
    $self->{Have_Plan} = 1;
}

=item B<has_plan>

  $plan = $Test->has_pl <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	2392	2486	
==>equivs) {
		my $megalabel = $self->combineLabels(@equivs);
		$_->{label} = $megalabel foreach ( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353751	354018	
==>, s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354496	354763	
==>, s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360963	361230	
==>, s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLA <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	57288	57459	
==>ed value parsing:

        @fields = extract_multiple($csv_text,
                                  [
                                        sub { extract_delimited($_[0],q <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	5875	5995	
==>$function = undef;
        }
        unless ($jit_cpu) {
            $line =~ s/emitm_pushl_i/emitm_pushl_m/ if ($line =~ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	24156	24261	
==>t "End of _remap_sequences traversal.\n\n";

  if(@_ == 2 and @{ $_[1] } == 3 and !ref $_[1][2]) {
    DEB <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	2209	2324	
==>"noop";
}

sub output_increment {
    my ($self, $var, $amount) = @_;
    $amount = 1 if ! defined($amount);
    ret <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	3709	3822	
==>columns. (" . length($_) . ")");
        }
    }
}

sub check_function_definitions {
    # In function definitions <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557228	557373	
==>OT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLAGS" => ":object_base",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558611	558756	
==>OT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLAGS" => ":object_base",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559995	560140	
==>OT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLAGS" => ":object_base",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210940	211209	
==>"TYPE" => "function",
                  "CODE" => 248,
                  "ARGS" => [
                              "p",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 408 \"src/ops <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	35483	35624	
==>5,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -68
	},
	{#State 132
		ACTIONS => {
			"^" => 79
		},
		DEFAULT => -62
	},
	{#Stat <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11935	12026	
==>oncat ${STEMP1}
goto PRE_CALL_${CURIC}_LAZY_MOVE_RET_CONT

# Can do a lazy move.
PRE_CALL_${ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19266	19529	
==>_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20042	20305	
==>_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2198	2298	
==>en->is_start

This is a shortcut for C<< $token->type() eq "start" >>

=item $token->is_text

This is <==
3	/Users/nnunley/parrot/lib/Test/More.pm	30100	30284	
==>type, vals => [$e1, $e2] };
                $ok = 0;
            }
            elsif( $type eq 'ARRAY' ) {
                $ok = _eq_array($e1, $e2);
            }
            elsif( $t <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27101	27194	
==>cname";
	$f=changename($f);
	$f=~s/\$/_string/g; $f=~tr/a-z/A-Z/;
	$seg=$f;
	CALL_BODY($englis <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27374	27467	
==>cname";
	$f=changename($f);
	$f=~s/\$/_string/g; $f=~tr/a-z/A-Z/;
	$seg=$f;
	CALL_BODY($englis <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10162	10271	
==>en a "W" in the treelet simply turns
    #  into "W".
  }
  
  return;
}

#----------------------------------- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784350	784457	
==>ble->set_pmc_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785256	785363	
==>ble->set_pmc_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2130	2230	
==>eft->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value::I <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2088	2188	
==>eft->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value::I <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2010	2110	
==>eft->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value::I <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7386	7556	
==>s=$len;

                unpack('A1',$lhs) eq '@'    #In line rule
            and do {
                    $lhs =~ /^\@[0-9]+\-([0-9]+)$/
                or  die "In <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7045	7210	
==>s=$len;

                unpack('A1',$lhs) eq '@'    #In line rule
            and do {
                    $lhs =~ /^\@[0-9]+\-([0-9]+)$/
                or  die "In <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	8745	8868	
==>\w+)/g)
    {
        push @params, $1, $2;
    }

    return @params;
}

=back

=head1 SEE ALSO

=over 4

=item F<tools/bui <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	18664	18771	
==>textref = $startpos;
			return;
		}
		$rd1pos = pos($$textref);
		$$textref =~ m{$label\n}gc;
		$ld2pos = po <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035461	1035556	
==>const lex_name = {{\@2}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name, ctx) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036625	1036720	
==>const lex_name = {{\@2}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name, ctx) <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	4741	4844	
==>arrot/embed.h"

static char program_code[] = {
END_C

    $pf->byte_code($byte_code);

    # this is now <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404759	405063	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":ba <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405671	405975	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":ba <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406583	406887	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":ba <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2918	3011	
==>art_address($address)>

Returns the C code for C<restart ADDRESS($address)>.

=cut

sub restar <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3787	3880	
==>art_address($address)>

Returns the C code for C<restart ADDRESS($address)>.

=cut

sub restar <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3517	3610	
==>art_address($address)>

Returns the C code for C<restart ADDRESS($address)>.

=cut

sub restar <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16002	16094	
==>autrijus@autrijus.org>

Benjamin Smith

Norman Nunley

Steve Peters

Stevan Little <stevan@ii <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1279	1368	
==>..)

=item $token->is_tag(I<somestring>) or $token->is_tagname(I<somestring>)

These are s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1709	1798	
==>..)

=item $token->is_tag(I<somestring>) or $token->is_tagname(I<somestring>)

These are s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	4657	4762	
==>_lib, $fn_name, \"$sig\"");

    if ($self->type) {
      $compiler->emit("  .local " . $self->type . " __ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669079	669170	
==>rc/ops/pmc.ops\"\n    {{\@1}}->vtable->push_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669851	669942	
==>rc/ops/pmc.ops\"\n    {{\@1}}->vtable->push_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21899	22035	
==>>is_if or $self->get(1)->is_unless) {
        $cond = $self->forth->text;

        $self->require_open_paren;

        $left  = Jako::Con <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22832	22968	
==>>is_if or $self->get(1)->is_unless) {
        $cond = $self->forth->text;

        $self->require_open_paren;

        $left  = Jako::Con <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24479	24614	
==>>is_if or $self->get(1)->is_unless) {
        $cond = $self->forth->text;

        $self->require_open_paren;
        $left  = Jako::Con <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	8963	9055	
==>op->{args}->[1]->minlen() }
sub maxlen { my ($op) = @_; $op->{args}->[1]->maxlen() }
sub star <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1743	1833	
==>RL $PATHQUOTE" . q[/Users/nnunley/parrot/tools/build/pmc2c.pl] . $PATHQUOTE;

# Actual comm <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1834	1924	
==>RL $PATHQUOTE" . q[/Users/nnunley/parrot/tools/build/pmc2c.pl] . $PATHQUOTE;

# Actual comm <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	14724	14813	
==>---------------------------------------------------------------

sub whine {
  #my($self,$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543305	543646	
==>1}} = b<<p;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lcm",
                  "FLAGS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540801	541108	
==>1}} = b<<p;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542053	542360	
==>1}} = b<<p;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	32537	32677	
==>es{$c}) {
	$c = $vtables{$c};
    }
    my $cc;
    if ($c =~ /^\d+$/) {	# MMD
	$cc = "-$c";
    }
    else {
	$cc = qq!"$c"!;
    }
    prin <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	32912	33052	
==>es{$c}) {
	$c = $vtables{$c};
    }
    my $cc;
    if ($c =~ /^\d+$/) {	# MMD
	$cc = "-$c";
    }
    else {
	$cc = qq!"$c"!;
    }
    prin <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	4869	4969	
==>ored directory    
    return if $File::Find::name =~ m{runtime.parrot.library.PAST};

    $File::Fin <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	329	434	
==>ut', $count );
}

sub get_test_prog {
    my $self = shift;
    my ( $path_to_parrot, $path_to_language, $ <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	347	452	
==>ut', $count );
}

sub get_test_prog {
    my $self = shift;
    my ( $path_to_parrot, $path_to_language, $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	38	138	
==>sText;
$VERSION = '2.02';
use Pod::Simple ();
BEGIN {@ISA = ('Pod::Simple')}

use strict;

use Carp ( <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8793	8896	
==>ndomize timer
max=10
dim a(max)
for i = 0 to 100
	b=rnd*max+1
	a(b)=a(b)+1
next i
for i = 1 to max
	prin <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20034	20137	
==>ndomize timer
max=10
dim a(max)
for i = 0 to 100
	b=rnd*max+1
	a(b)=a(b)+1
next i
for i = 1 to max
	prin <==
3	/Users/nnunley/parrot/config/init/optimize.pm	131	228	
==>head1 NAME

config/init/optimize.pm - Optimization

=head1 DESCRIPTION

Enables optimization by ad <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2387	2592	
==>and $str .= "\r",      # carriage return
                last;
            s/^\\t//
                and $str .= "\t",      # horizontal tab
                last;
            s/^\\v//
                a <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3901	4106	
==>and $str .= "\r",      # carriage return
                last;
            s/^\\t//
                and $str .= "\t",      # horizontal tab
                last;
            s/^\\v//
                a <==
3	/Users/nnunley/parrot/languages/regex/test.pl	905	1003	
==>ould be any number of pairs of INPUT and OUTPUT
  sections, where an INPUT: section begins with the <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	2516	2630	
==>open(my $file, '<', $filename) or die "Can't open $filename: $!";
    my $sum = 0;
    while (<$file>) {
        ne <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087732	1087930	
==>,
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 163 \"src/ops/experimental.ops\"\n    {{\@1}}->vtable->splic <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	634	743	
==>ub output_onfail {
    my ($label) = @_;
    return "onfail $label->[1]";
}

sub output_match {
    my ($byte) <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77661	77768	
==>tracecontext = qq{"$tracecontext"};
		}
		else
		{
			$tracecontext = qq{<NO TEXT LEFT>};
		}
		write TRACEC <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9818	9912	
==>= shift ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over each parameter and put them into ${P <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7332	7426	
==>= shift ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over each parameter and put them into ${P <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6296	6390	
==>= shift ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over each parameter and put them into ${P <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7686	7808	
==>$tagname eq 'Para') {
          $tagname = 'Para_item' if @stack and $stack[-1] eq 'text';
        }
        print $fh $sel <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	8163	8280	
==>$tagname eq 'Para' ) {
        $tagname = 'Para_item' if @stack and $stack[-1] eq 'text';
      }
      print $fh $sel <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	2528	2643	
==>e, '<', $filename) or die "Can't open $filename: $!";
    my $sum = 0;
    while (<$file>) {
        next if defined <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185986	186085	
==>=> "#line 292 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) < 0) {\n    { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186916	187015	
==>=> "#line 292 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) < 0) {\n    { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187846	187945	
==>=> "#line 292 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) < 0) {\n    { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786168	786275	
==>vtable->get_integer_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787079	787186	
==>vtable->get_integer_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	52	156	
==>arrot/lib/Parrot/Docs/Section/Docs.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot: <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	4715	4815	
==>t.pir"
RUNTIMESHUTDOWN

close(CODE);

exit 0;

=pod

=cut

__END__

print "This is the default progra <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9014	9113	
==>'output_fh'}} 
            " <a href='#_top'><img alt='^' border=0 src='$self->{RESOURCES_URL}/up.gi <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	3716	3814	
==>ion;
}

=item C<is_hidden()>

Returns whether the file is "hidden", i.e. it's name starts with a do <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	5986	6096	
==>I\n", $api, "-";
    }
}

if (@NoParrotPrefix) {
    printf "--- No Parrot prefix: %d ---\n", scalar @NoParrotP <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	1603	1703	
==>T - code/text symbol
    U - undefined symbol

Uppercase indicates that the symbol is global; lowerca <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	181	276	
==>milar to the generated subs in Parrot::Test.
Perhaps someone can do a better job of delegation h <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	279	374	
==>milar to the generated subs in Parrot::Test.
Perhaps someone can do a better job of delegation h <==
3	/Users/nnunley/parrot/config/auto/readline.pm	1395	1508	
==>dline.h") {
            $conf->data->add(' ', linkflags => '-L/sw/lib');
            $conf->data->add(' ', ldflags <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	22906	23004	
==>arrot_clone_vtable(interp, &temp_base_vtable);

EOC
    # init vtable slot
    if ($self->{flags}{d <==
3	/Users/nnunley/parrot/tools/util/pirtidy.pl	959	1054	
==>dy reads a pir file and writes an indented, reformatted script.

pirtidy is somewhat liberal abo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16149	16256	
==>4)->is_value
    ) {
      my $block = $self->current_block();
      my $ident = Jako::Construct::Expression <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16920	17027	
==>4)->is_value
    ) {
      my $block = $self->current_block();
      my $ident = Jako::Construct::Expression <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17725	17832	
==>4)->is_value
    ) {
      my $block = $self->current_block();
      my $ident = Jako::Construct::Expression <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8404	8516	
==>=0;
		goto PARSE
	}
	if ($type[CURR] eq "STMT"
		  or
	    $type[CURR] eq "COMP") { goto PARSE; }
	if ($type[CURR <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6130	6242	
==>],
EOM
    }
    $macros .=<<"EOM";
        MMD_USER_FIRST
} parrot_mmd_func_enum;

/* &end_gen */

#ifdef PARROT <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7245	7346	
==>rint lcase$(s1$);" Lower"
a$="   Flush   "
print ">";ltrim$(a$)
print rtrim$(a$);"<"
' A's and -'s
pri <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18974	19075	
==>rint lcase$(s1$);" Lower"
a$="   Flush   "
print ">";ltrim$(a$)
print rtrim$(a$);"<"
' A's and -'s
pri <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	1087	1185	
==>ount_newlines {
    return scalar $_[0] =~ tr/\n//;
}

=item C<dont_edit($pmcfile)>

Returns the "D <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2161	2265	
==>rammer wanted to shadow the
  # previous definition.
  #

  if (defined $sym and $sym->block eq $block) { <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1908	2012	
==>rammer wanted to shadow the
  # previous definition.
  #

  if (defined $sym and $sym->block eq $block) { <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	13537	13631	
==>pos($$textref);
	unless ($$textref =~ m/\G($ldel_outer)/gc)	# OUTERMOST DELIMITER
	{
		_failmsg <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	9748	9856	
==>{ pos($$textref) = $parapos }
	else		      { $parapos = pos($$textref) }

	return (
		$startpos,    $opentagp <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	735	832	
==>block, qw(Jako::Construct::Block));
  confess "Type (" . ref($type) . ") is not!"   if defined $ty <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	618	712	
==>block, qw(Jako::Construct::Block));
  confess "Type (". ref($type) . ") is not!" if defined $ty <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79071	79176	
==>cstring_free(name);\n  if (p == NULL) {\n      const char * const err = Parrot_dlerror();\n      Parrot_wa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80592	80697	
==>cstring_free(name);\n  if (p == NULL) {\n      const char * const err = Parrot_dlerror();\n      Parrot_wa <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	2256	2373	
==>shift->{LEFT};  }
sub op        { return shift->{OP};    }
sub right     { return shift->{RIGHT}; }

sub prefix
{
  my <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2600	2701	
==>ock->push_content($self);

  return $self;
}

# block handled by superclass?

sub kind  { return shift <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2717	2817	
==>ock->push_content($self);

  return $self;
}

# block handled by superclass?

sub kind { return shift <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	622	718	
==>>

The install prefix. Defaults to '/usr'.

=item C<exec_prefix>

The exec prefix. Defaults to '/ <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	851	947	
==>>

The install prefix. Defaults to '/usr'.

=item C<exec_prefix>

The exec prefix. Defaults to '/ <==
3	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	183	275	
==>:Dumper;
use File::Basename;

package Parrot::Test::ParrotCompiler;

=head1 NAME

Parrot/Test <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664797	665206	
==>ete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 743,
                  "ARGS" => [
                              "p",
                              "ki"
                            ],
                  "BODY" => <==
3	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	1396	1505	
==>active mode
	set S0, ""
	
	set S0, ""
	read S0, 256
	length I1, S0
	eq I1, 1, MAINLOOPR
	save S0
	bsr STRIPSPA <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	13419	13537	
==>{
    my ($op, $str) = @_;
    my $min = $op->minlen();
    my $max = $op->maxlen();
    $max = "INF" if ! defined $max <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	9644	9748	
==>C;
  (op_func${suffix}_t)0  /* NULL function pointer */
};


END_C
}

my (%names, $tot);
if ($suffix eq ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504008	504127	
==>BODY" => "#line 631 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504863	504982	
==>BODY" => "#line 631 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505718	505837	
==>BODY" => "#line 631 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	17873	17986	
==>ules with the same startcode into a group.
    my %groups = ();
    foreach (@rules) {
        $_->{'code'} =~ /^( <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	8581	8694	
==>he documentation item.
			$desc =~ s/[CFL]<([^>]+)>/$1/osg;
			
			return $desc;
		}
	}
	
	# TODO - The abstract s <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	4756	4895	
==>n};     # '/*'
            $comment[-1] =~ s{$}{\n */};    # ' */'
        } else {
            die "Unknown comment type '$options{commentT <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24752	24849	
==>e, $bad, $ignore);

		return _fail(wantarray, $textref) unless @match;
		return _succeed wantarray <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7586	7681	
==>e, $bad, $ignore);

	return _fail(wantarray, $textref) unless @match;
	return _succeed wantarray <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	37230	37325	
==>pening tag.
If the pattern string is omitted (or C<undef>) then a pattern
that matches any stand <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1027	1143	
==>ift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $left  = $self->lef <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	1035	1151	
==>ift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $left  = $self->lef <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	690746	691057	
==>> 0,
                  "NAME" => "thaw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 776,
                  "ARGS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691502	691787	
==>> 0,
                  "NAME" => "thaw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 77 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	25759	25876	
==>'start_line'},
        "=pod directives shouldn't be over one line long!  Ignoring all "
         . (@$para - 2) . " l <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	5441	5618	
==>dir_list  = map { my $dir = ( File::Spec->splitpath( $_ ) )[1];
                         $dir =~ s!\.svn/$!!;
                         $dir => 1 
                       } keys %{ <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	3173	3298	
==>->{fh};
        print {$FH} "  inc $op->{result}->{symbol}\n";
    }

    sub visitFindGlobalOp {
        my $self = shif <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	5562	5680	
==>g...\n";
      if( ${ $self->{'source_scalar_ref'} } =~
        m/([^\n\r]*)((?:\r?\n)?)/g
      ) {
        #print(">> <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2736	2865	
==>apply_CALL'],
  ['',            'set', 'P12', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '. <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	47152	47265	
==>->parse_file($source);
  } else {  # it's a filename
    $new->parse_file($source);
  }
  
  return $new;
}


#--- <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	12028	12137	
==>$outfile: $!\n";

    print OUT page_header("Call Coverage for $source_file");
    print OUT "<pre>";

    # f <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	17175	17281	
==>bprint("matching dynalt[%<$counter>]\n"),
                 @R_ops,
		 aop('pushint', [ $counter, "dynamic a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599974	600082	
==>],
                  "BODY" => "#line 363 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601050	601158	
==>],
                  "BODY" => "#line 363 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interp <==
3	/Users/nnunley/parrot/lib/Parrot/PMC.pm	639	740	
==>etContinuation => 24,
	Exception_Handler => 25,
	Coroutine => 26,
	Eval => 27,
	NCI => 28,
	Float => 2 <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	880	1028	
==>a|bbf|da|gcov)$/ &&
                            unlink($File::Find::name)
                        }}, $SRCDIR);

    # build parrot with coverage sup <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	42340	42434	
==>, 'set', ['I3', $count-5]); # Tell about number of registers
  $self->_add_inst('', 'invokecc') <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26067	26205	
==>push @opcodes, new BranchUnlessOp( $parser,
            'arg1'   => $cond->[0],
            'result' => $l_next,
        );
        pus <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	25583	25705	
==>push @opcodes, new BranchUnlessOp( $parser,
        'arg1'   => $cond->[0],
        'result' => $l_next,
    );
    pus <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	3635	3726	
==>er};
	my $apparently = $parser->{offsetlinenum}
			 - Parse::RecDescent::_linecount(${$self- <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15073	15194	
==>)-65536)).'?'/eg;
    }
    return;
  } elsif(wantarray) {  # return an array
    return map {; ($x = $_) =~
      s/([F\x <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16256	16377	
==>)-65536)).'?'/eg;
    }
    return;
  } elsif(wantarray) {  # return an array
    return map {; ($x = $_) =~
      s/([F\x <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556691	556785	
==>od_pmc = {{\@2}};\n\n  next = {{^+4}};\n  interpreter->current_object = object;\n  interpreter- <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3249	3373	
==>{
	my($self)=shift;

        @_
    and ${$$self{VALUE}}=$_[0];
    ${$$self{VALUE}};
}

sub YYExpect {
    my($self <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3088	3203	
==>{
	my($self)=shift;

        @_
    and ${$$self{VALUE}}=$_[0];
    ${$$self{VALUE}};
}

sub YYExpect {
    my($self <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	508	600	
==>nts to it's C<import> method and exports no
I<symbols>.

=cut

package Parrot::Configure::Ste <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	709492	709776	
==>,
                  "NAME" => "get_mro",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 7 <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6750	6872	
==>pmc")
          or die "pmc2c dump failed ($?)\n";
    }
}

sub generate_c {
    my ($pmc) = @_;

    if (needs_build("$pmc <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6961	7083	
==>pmc")
          or die "pmc2c dump failed ($?)\n";
    }
}

sub generate_c {
    my ($pmc) = @_;

    if (needs_build("$pmc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811992	812380	
==>,
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 916,
                  "ARGS" => [
                              "p",
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 512 \" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9095	9190	
==>to_cs(interpreter, fe->seg, 1);\n    }\n    string_cstring_free(label);\n    interpreter->resume <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10211	10306	
==>to_cs(interpreter, fe->seg, 1);\n    }\n    string_cstring_free(label);\n    interpreter->resume <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	20722	20874	
==>ift @stack, $thing;
              DEBUG > 4 and print "  +Enqueuing ",
               pretty( $treelet->[$i][1]{$attrname} ),
               " as an attr <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9670	9768	
==>{ASSEMBLY}, ${ARG0})

# If it's a call to instantiate, need to knock off first arg.
if "${CURIC}" ! <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7184	7282	
==>{ASSEMBLY}, ${ARG0})

# If it's a call to instantiate, need to knock off first arg.
if "${CURIC}" ! <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143573	143690	
==>tring_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144501	144618	
==>tring_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145429	145546	
==>tring_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Test/More.pm	25801	25938	
==>{ vals => [ $this, $that ] }) );
    }
    else {			       		# both references
        local @Data_Stack = ();
        if( _deep_check($th <==
3	/Users/nnunley/parrot/config/auto/memalign.pm	1672	1803	
==>undef);

    my $f =
          $test2 ? 'posix_memalign'
        : $test  ? 'memalign'
        : '';
    $conf->data->set(memalign = <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	32992	33113	
==>$cc = "-$c";
    }
    else {
	$cc = qq!"$c"!;
    }
    print <<EOC;
	setattribute $obj->[1], $cc, $val $cmt
EOC
}

sub S <==
3	/Users/nnunley/parrot/examples/benchmarks/stress.pl	698	783	
==>pasm>, 
F<examples/benchmarks/stress1.pl>, 
F<examples/benchmarks/stress2.pasm>, 
F<ex <==
3	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	642	727	
==>pasm>, 
F<examples/benchmarks/stress1.pl>, 
F<examples/benchmarks/stress2.pasm>, 
F<ex <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	4055	4157	
==>emit("  $temp_pmc = $dest");

    my $dest_name = $dest_ident->value;
    $compiler->emit("  global \"$ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	15744	15841	
==>ts => 1, 'no_diag'>.  This is useful
if you have diagnostics for personal testing but then wish to <==
3	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1136	1233	
==>options{icudir}\\bin\\icu*.dll"; DestDir: "{app}\\bin"; Flags:
};
}

open OUT, "> parrot.iss" or d <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1342	1467	
==>$exit_code")
        if $exit_code and not $pass;
    }

    unless($ENV{POSTMORTEM}) {
        unlink $lang_f;
        unlink <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1383	1508	
==>$exit_code")
        if $exit_code and not $pass;
    }

    unless($ENV{POSTMORTEM}) {
        unlink $lang_f;
        unlink <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	3845	3956	
==>ste',     'Title() get'    );
    ok( $btaste->Director   eq 'Peter Jackson', 'Director() get' );
    ok( $btast <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32300	32414	
==>d, 0);
    # I think that these will be out by one - NWC
    my $l = $self->line_directive($line, "ref.c");
    ret <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40922	41036	
==>d, 0);
    # I think that these will be out by one - NWC
    my $l = $self->line_directive($line, "ref.c");
    ret <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	685	777	
==>OpTrans::Compiled->new;

use Data::Dumper;
$Data::Dumper::Useqq  = 1;
$Data::Dumper::Terse  = <==
3	/Users/nnunley/parrot/lib/Test/More.pm	4920	5087	
==>[$idx+1]};
            $idx++;
        }
        else {
            push @plan, $item;
        }

        $idx++;
    }

    plan(@plan);

    __PACKAGE__->_export_to_l <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10344	10502	
==>irst, $last);
        if (ref $_) {
            ($first, $last) = @$_;
        } else {
            ($first, $last) = ($_, $_);
        }
        push @ranges, <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3067	3159	
==>I '# generated by tools/dev/mk_manifest_and_skip.pl ', scalar( localtime() ), "\n";
print $MA <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1537	1652	
==>= $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  my $dest_sym = $bl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1495	1610	
==>= $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  my $dest_sym = $bl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1417	1532	
==>= $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  my $dest_sym = $bl <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	333	434	
==>sub new() {
	my $invocant = shift;
	return bless {}, $invocant;
}

# Pre-translation hook.
sub pre_tra <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	241	342	
==>sub new() {
	my $invocant = shift;
	return bless {}, $invocant;
}

# Pre-translation hook.
sub pre_tra <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1813	1907	
==>->find_block('sub');

  $self->SYNTAX_ERROR("Cannot use 'return' outside of subroutine.")
    u <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822301	822393	
==>Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_INT) {\n    internal_exception( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823369	823461	
==>Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_INT) {\n    internal_exception( <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	701	791	
==>x @writes;
}
use Text::Balanced 'extract_bracketed';

=item C<does_write($method, $section) <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	132	254	
==>ess \%opts, (ref($proto) || $proto);
    $self->init();
    return $self;
}

sub init {
    my $self = shift;
    $self->{s <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	1151	1251	
==>on} or die "Invalid direction '$direction'";
    print "$action $filename\n" if $opt{verbose};
    op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	33432	33716	
==>"JUMP" => 0,
                  "NAME" => "set_addr",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	34220	34504	
==>"JUMP" => 0,
                  "NAME" => "set_addr",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	205	322	
==>mentation section

=head1 SYNOPSIS

	use Parrot::Docs::Section::DynaPMCs;

=head1 DESCRIPTION

A documentation section <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	797	914	
==>t::write_code_to_file( $code, $lang_f );

    my $cmd;
    my $exit_code = 0;
    my $pass = 0;

    $cmd = "$self->{p <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	834	951	
==>t::write_code_to_file( $code, $lang_f );

    my $cmd;
    my $exit_code = 0;
    my $pass = 0;

    $cmd = "$self->{p <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	12819	12929	
==>e:"dyadic:\u2193" :multi (Float, APLVector) # drop
    .param int op1
    .param pmc op2

    if op1 < 0 goto n <==
3	/Users/nnunley/parrot/config/gen/platform.pm	3593	3739	
==>.c
        signal.c
        itimer.c
        memexec.c
        exec.c
        misc.c
        /;

    open PLATFORM_C, "> src/platform.c" or die "Ca <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7808	7904	
==>$ then print "Should not happen (string)"
i%=0
if i% then print "Should not happen (int)"
i%=54
i <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14795	14891	
==>$ then print "Should not happen (string)"
i%=0
if i% then print "Should not happen (int)"
i%=54
i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073377	1073804	
==>h",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1196,
                  "ARGS" => [
                              "i",
                              " <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6314	6400	
==>ANCH_NOT_switch_${CURIC}

POST_BRANCH_switch_${CURIC}:
i = elements P_arg_0
POST_BRANCH <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4252	4338	
==>ANCH_NOT_switch_${CURIC}

POST_BRANCH_switch_${CURIC}:
i = elements P_arg_0
POST_BRANCH <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948140	948461	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948939	949260	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949739	950060	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDI <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	1579	1685	
==>sing string arrays, expect 99 and "Hello"
function foo(i, thing$())
	print i
	print thing$(10)
	foo=1
end f <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	1274	1369	
==>enced run loop.

=item C<CPrederef>

Create the predereferenced run loop.

=back

=head2 Options <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	934	1028	
==>ify paths to executables in a configuration file.
That file may be placed as parrotbench.conf i <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	791	913	
==>te.

=cut

sub new
{
    my $self = ref $_[0] ? ref shift : shift;
    my $path = shift;
    
    return unless defined $pa <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	4326	4437	
==>n PMCs.
    my @names;
    PMC: foreach my $pmc_file (split(/\s+/, $pmc_list)) {
        next if ($pmc_file =~ / <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	1130	1223	
==>ing);
my $parrot_pmcsh_file = "include/parrot/core_pmcs.h";
my $date = localtime(time);


open <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634347	634600	
==>,
                  "ARGS" => [
                              "p",
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 107 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2} <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	7207	7367	
==>', $1 . ( $3 || q{} ) );

            s/^\"//
                and return $parser->_DoubleQuoteStringLexer();

            s/^\'//
                and retur <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16636	16748	
==>xt unless $x;
        # Escape things very cautiously:
        $x =~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	24374	24535	
==>tback ]),
                        aop('goto', [ $R_back ]),
               $next =>
              );

    return ($back, @ops);
}

sub rewrite_optional {
    my ( <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1580	1708	
==>/-GF/ if $cc_output =~ m/Version (\d+)/ && $1 >= 13;

        $conf->data->set(
            share_ext  => '.dll',
            loa <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	1503	1599	
==>returns an empty string which will
be discarded when building the navigation bar.

=cut

sub html <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	32474	32617	
==>= 'L<>';  # just make it a text node
        next;  # and move on
      }
     
      # Catch URLs:
      # URLs can, alas, contain E<...> seque <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	3664	3780	
==>g) = @_;
    return "save $reg";
}

sub output_pop_reg {
    my ($self, $reg) = @_;
    return "restore $reg";
}

sub <==
3	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1575	1675	
==>rv=http://path/to/smokeserv.pl
    Sets the path to the smoke server.
  --version
    Outputs the ver <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	280368	280601	
==>"ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 903 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} < {{\ <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2349	2465	
==>$code, $lang_fn );

        # STDERR is written into same output file
        my $exit_code = Parrot::Test::run_co <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1869	1982	
==>$code, $lang_fn );

        # STDERR is written into same output file
        my $exit_code = Parrot::Test::run_co <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	4760	4884	
==>VERSAL::isa($arg, 'Regex::Ops::Tree')) {
                # $arg is a reference variable, remember.
                $arg = $se <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	10110	10234	
==>VERSAL::isa($arg, 'Regex::Ops::Tree')) {
                # $arg is a reference variable, remember.
                $arg = $se <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	6564	6673	
==>CKET
		$endpos,    length($$textref)-$endpos,	# REMAINDER
	       );
}

sub revbracket($)
{
	my $brack = rever <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2644	2776	
==>ng  => 1,
            parrot_is_shared     => 1,

            sym_export => '__declspec(dllexport)',
            sym_import => '__dec <==
3	/Users/nnunley/parrot/config/init/hints/cygwin.pm	1174	1291	
==>ng => 1,
        parrot_is_shared    => 1,
        sym_export => '__declspec(dllexport)',
        sym_import => '__dec <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	446	548	
==>ODE
    this is ok
    OUTPUT

=head1 DESCRIPTION

This module provides various Parrot-specific test fu <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	25183	25307	
==>autoflush {
    my($fh) = shift;
    my $old_fh = select $fh;
    $| = 1;
    select $old_fh;
}


sub _dup_stdhandles {
    m <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	1298	1410	
==>w/include/gmp.h") {
            $conf->data->add(' ', linkflags => '-L/sw/lib');
            $conf->data->add(' ' <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	37450	37545	
==>is omitted (or C<undef>) then the closing
tag is constructed by inserting a C</> after any leadi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032660	1032954	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_lex",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033757	1034051	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_lex",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/lib/File/Which.pm	2170	2316	
==>t) {
            my $file = $base.$ext;
# print STDERR "$file\n";

            if ((-x $file or    # executable, normal case
                 ($Is_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	524232	524441	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sqrt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	6228	6337	
==>eeping = $stmt->{label}->{reachable}; # Keep if reachable
	}
	push @output3, $stmt if $keeping;
    }

    # R <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	16327	16435	
==>scratch = 'Document'),
      {
        'start_line' => $paras->[0][1]{'start_line'},
        $starting_conten <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	26750	26848	
==>self->{pre};
    $cout .= $self->line_directive_here($cout, $out_name)
	. $self->includes;
    my $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	19304	19402	
==>hile($treelet = shift @stack) {
    DEBUG > 3 and print " Considering children of this $treelet->[0 <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	21947	22045	
==>hile($treelet = shift @stack) {
    DEBUG > 3 and print " Considering children of this $treelet->[0 <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16901	17026	
==>thru in X-generated comments
        #  with text in them.
        
        # Yes, stipulate the list without a range, so that <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10341	10450	
==>thru in X-generated comments
    #  with text in them.

    # Yes, stipulate the list without a range, so that <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	1910	2009	
==>izer - The Scheme tokenizer

=head1 SYNOPSIS

  use Scheme:Tokenizer;

  my @code = Scheme::Tokenize <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	8367	8475	
==>le = *PODSOURCE{IO};
    }
    $self->{'source_filename'} = $_[0];
    DEBUG and print "  Its name is $_[0].\ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6140	6236	
==>pre_call_NO_RETURN_${CURIC}:

# If it's a call to instantiate, need to knock off first arg.
if "$ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	853	948	
==>::isa($type, qw(Jako::Construct::Type));
  confess "Value (" . ref($value) . ") is not!"  if def <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	362	468	
==>= qw/SRM::Base/;

# Constructor. Just base this class on a hash.
sub new() {
	my $invocant = shift;
	return <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	268	374	
==>= qw/SRM::Base/;

# Constructor. Just base this class on a hash.
sub new() {
	my $invocant = shift;
	return <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	176	282	
==>= qw/SRM::Base/;

# Constructor. Just base this class on a hash.
sub new() {
	my $invocant = shift;
	return <==
3	/Users/nnunley/parrot/config/gen/icu.pm	1124	1249	
==>ef, $ret) = capture_output("icu-config", "--exists");

            if (($ret == -1) || (($ret >> 8) != 0)) {
                u <==
3	/Users/nnunley/parrot/examples/benchmarks/stress.pl	716	799	
==>/benchmarks/stress1.pl>, 
F<examples/benchmarks/stress2.pasm>, 
F<examples/benchmark <==
3	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	660	743	
==>/benchmarks/stress1.pl>, 
F<examples/benchmarks/stress2.pasm>, 
F<examples/benchmark <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158096	158482	
==>"i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 191,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	10458	10589	
==>, <rx_stack>) = \@_;
#         \$rx_match{'!INPUT'} = <rx_input>;
#         \$rx_match{'!GROUPS'} ||= [];
#     } else {
#         \ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	26	126	
==>CC;
use Regex::Ops::Tree (); # For mark()
use base 'Regex::CodeGen';
use strict;

my $fail_label = Re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9161	9368	
==>bel);\n    interpreter->resume_flag = 2;\n    {{=0}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10277	10484	
==>bel);\n    interpreter->resume_flag = 2;\n    {{=0}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499495	499719	
==>ps\"\n  {{\@1}} = floatval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500258	500482	
==>ps\"\n  {{\@1}} = floatval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	13200	13301	
==>7) you get a "?" in place of characters whose Unicode
value is over 255.

=item $Name2character_number <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236487	236655	
==>",
                              "s"
                            ],
                  "BODY" => "#line 606 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237369	237537	
==>",
                              "s"
                            ],
                  "BODY" => "#line 606 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, { <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	38218	38338	
==>n_name[ 0] =~ m/^\"/s
            and $section_name[-1] =~ m/\"$/s
            and !( # catch weird degenerate case of L< <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1971	2082	
==>lf->SYNTAX_ERROR("Expression involves unknown variable %s.", $left->value) unless $left_sym;
    $left_type = $l <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1929	2040	
==>lf->SYNTAX_ERROR("Expression involves unknown variable %s.", $left->value) unless $left_sym;
    $left_type = $l <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1851	1962	
==>lf->SYNTAX_ERROR("Expression involves unknown variable %s.", $left->value) unless $left_sym;
    $left_type = $l <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	4442	4595	
==>LS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "prederef__ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7115	7225	
==>en,$code,@sempar,$semval);
            ($lhs,$len,$code)=@{$$rules[-$act]};

#DBG>			$debug & 0x04
#DBG>		a <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6784	6890	
==>en,$code,@sempar,$semval);
            ($lhs,$len,$code)=@{$$rules[-$act]};

#DBG>			$debug & 0x04
#DBG>		a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60613	60718	
==>\"src/ops/core.ops\"\n  PARROT_WARNINGS_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61263	61368	
==>\"src/ops/core.ops\"\n  PARROT_WARNINGS_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1961	2056	
==>content of the section,
such as "foo" for
C<< LZ<><Stuff/foo> >>, and "bar" for 
C<< LZ<><Stuff/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357996	358184	
==>O_eprintf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358660	358848	
==>O_eprintf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	153	247	
==>:Basename;

=head1 NAME

Parrot::Test::Punie -- testing routines for languages/punie

This is l <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948352	948617	
==>" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949151	949416	
==>" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	3140	3268	
==>t("PUN");
		fetch;
		goto MAIN;
	}

	if ($cur eq "\n") {   # ;?
		append;
		emit("STMT");
		fetch;
		goto MAIN;
	}
	if ($cur eq " <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	2135	2235	
==>o identify instructions that may be the target
    # of control flow changing opcodes including the p <==
3	/Users/nnunley/parrot/examples/benchmarks/fib.pl	174	271	
==>ks/fib.pl - Fibonacci Benchmark

=head1 SYNOPSIS

    % time perl examples/benchmarks/fib.pl n

=h <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685827	686072	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686716	686961	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	569	657	
==>lock::File;
use Jako::Construct::Block::Module;
use Jako::Construct::Block::Sub;
use Jako <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	1281	1439	
==>mc2c->new($pmcs{$file}, $opt);
    }

    return bless { opt         => $opt,
                   pmcs        => \%pmcs,
                 }, $class;
}

sub _wri <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	8604	8723	
==>ath.h
ccos        complex.h
ccosf       complex.h
ccosh       complex.h
ccoshf      complex.h
ccoshl      complex.h
ccos <==
3	/Users/nnunley/parrot/config/gen/config_h.pm	28	115	
==>he Perl Foundation.
# $Id: /parrot/config/gen/config_h.pm 19593 2006-05-30T02:28:15.1109 <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	16623	16761	
==>$@,$!);   # don't interfere with $@
                        # eval() sometimes resets $!
        $test = eval "\$got $type \$expect";
    } <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	660	747	
==>less defined $token;

  return Jako::Construct::Expression::Value::Identifier->new($bloc <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	760	854	
==>Identifier (" . ref($ident) . ") is not!" unless UNIVERSAL::isa($ident, qw(Jako::Construct::Exp <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	785	879	
==>Identifier (". ref($ident) . ") is not!"  unless UNIVERSAL::isa($ident, qw(Jako::Construct::Exp <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	749	843	
==>Identifier (". ref($ident) . ") is not!"  unless UNIVERSAL::isa($ident, qw(Jako::Construct::Exp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122175	122465	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123087	123377	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	5347	5443	
==>,"F",350
550 DATA "C",325,"D",900,"R",20000

' Read/data  Hello World -
10 read a$
print a$
if a$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740031	740392	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 832,
                  "ARGS" => [
                              "s",
                              "p <==
3	/Users/nnunley/parrot/lib/Test/More.pm	37416	37510	
==>04 by Michael G Schwern E<lt>schwern@pobox.comE<gt>.

This program is free software; you can re <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	6376	6470	
==>04 by Michael G Schwern E<lt>schwern@pobox.comE<gt>.

This program is free software; you can re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	652790	653087	
==>E" => "find_method",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653950	654247	
==>E" => "find_method",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	11274	11368	
==>mand's output (both stdout and stderr), and
its return status is returned as a 3-tuple. B<STDER <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253267	253564	
==>AME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254129	254426	
==>AME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254992	255289	
==>AME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577927	578190	
==>ass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 66 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53237	53327	
==>9 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Interp_flags_SET(interpreter,   PARROT_GC_DEB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53993	54083	
==>9 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Interp_flags_SET(interpreter,   PARROT_GC_DEB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597487	597750	
==>ass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 67 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598533	598796	
==>ass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 67 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599580	599843	
==>ass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 67 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365274	365374	
==>{\@1}}) {\n    PIO_putps(interpreter, {{\@1}}, {{\@2}});\n  }\n  else {\n    /* Handle error here */\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366114	366214	
==>{\@1}}) {\n    PIO_putps(interpreter, {{\@1}}, {{\@2}});\n  }\n  else {\n    /* Handle error here */\ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	196	291	
==>ation section

=head1 SYNOPSIS

	use Parrot::Docs::Libs;

=head1 DESCRIPTION

A documentation se <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4291	4394	
==>{ Name => 'literal', Attributes => { type => $type->name } });
        $handler->characters({ Data => $s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4641	4742	
==>{ Name => 'literal', Attributes => { type => $type->name } });
      $handler->characters({ Data => $s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4852	4951	
==>{ Name => 'literal', Attributes => { type => $type->name } });
    $handler->characters({ Data => $s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1084	1185	
==>");
  
  if (($self->ident->kind eq 'var') and ($self->ident->scope eq 'global')) {
    my $pmc_type = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1080	1179	
==>");

  if (($self->ident->kind eq 'var') and ($self->ident->scope eq 'global')) {
    my $pmc_type = <==
3	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1306	1396	
==>etup.pl for the Inno Setup Script Compiler.

[Setup]
AppName=parrot
AppVerName=parrot $opti <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	441	538	
==>my ($block, $left, $right) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL:: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	432	529	
==>my ($block, $left, $right) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL:: <==
3	/Users/nnunley/parrot/lib/File/Which.pm	3998	4092	
==>Win32 systems, which do not have a notion of
directly executable files, but uses special extens <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	816799	816992	
==>LS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clears",
                  "FLAGS" => ":base_core",
                  " <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	15973	16106	
==>gs to count" if @_;
        }
        return $self->{'count'};
    }

    package main;
    $x = new MyObj;
    print "\$x->count(5) = <==
3	/Users/nnunley/parrot/tools/build/vtable_h.pl	8	100	
==>-w
# Copyright (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/tools/build/vtable_h.pl 203 <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	18011	18105	
==>Curr_Test});
    $self->{Curr_Test}++;

    $self->{Test_Results}[$self->{Curr_Test}-1] = &shar <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	18876	18970	
==>Curr_Test});
    $self->{Curr_Test}++;

    $self->{Test_Results}[$self->{Curr_Test}-1] = &shar <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853386	853620	
==>nd(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854168	854402	
==>nd(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8086	8182	
==>ND_${CURIC}:

# If there is a return type, need to supply a ${DEST0}.
${ITEMP0} = ${PTEMP1}["type <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	5228	5343	
==>:Revision::svn_entries 
            && $Parrot::Revision::svn_entries =~ m/\.svn/) {
       $svn_cmd = 'svn';
   } e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9072	9175	
==>n        Parrot_switch_to_cs(interpreter, fe->seg, 1);\n    }\n    string_cstring_free(label);\n    inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10188	10291	
==>n        Parrot_switch_to_cs(interpreter, fe->seg, 1);\n    }\n    string_cstring_free(label);\n    inte <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2024	2123	
==>nt'} }
sub   end_over_number  { --$_[0]{'Indent'} }
sub   end_over_text    { --$_[0]{'Indent'} }
sub <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1592	1691	
==>nt'} }
sub   end_over_number  { --$_[0]{'Indent'} }
sub   end_over_text    { --$_[0]{'Indent'} }
sub <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	4678	4773	
==>of a group of interrelated PMCs that should be
compiled together into a single shared library of <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1361	1454	
==>ecurity -Wpacked -Wdisabled-optimization -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DH <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1406	1499	
==>ecurity -Wpacked -Wdisabled-optimization -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DH <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1410	1503	
==>ecurity -Wpacked -Wdisabled-optimization -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DH <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	12033	12214	
==>@methods;
            my @mmds = ($methodblock =~ /MMD_(\w+):/g);
            push @methods,
                {
                    meth        => $methodname,
                    bod <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	835	946	
==>bless {
    BLOCK => $block,
    LEFT  => $left,
    RIGHT => $right
  }, $class;

  $block->push_content($self) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	843	954	
==>bless {
    BLOCK => $block,
    LEFT  => $left,
    RIGHT => $right
  }, $class;

  $block->push_content($self) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722426	722545	
==>\n    PIO_putps(interpreter, io, s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723455	723574	
==>\n    PIO_putps(interpreter, io, s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724499	724618	
==>\n    PIO_putps(interpreter, io, s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	392	488	
==>dme();
	my $targ=$syms[CURR];
	feedme();
	feedme() while($syms[CURR] =~ /[(),]/);
	my $source=$sy <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509067	509326	
==>\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509698	509957	
==>\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510353	510612	
==>\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_co <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	6918	7043	
==>rsive, $ignore))
    {
        next unless $file->has_suffix($suffix);
        push @files, $file;
    }
    
    return @file <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18768	18892	
==>elf->get(1)->is_close_paren;
          $self->require_comma;
        }
      }

      $self->require_close_paren;
      $self <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19794	19918	
==>elf->get(1)->is_close_paren;
          $self->require_comma;
        }
      }

      $self->require_close_paren;
      $self <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834100	834288	
==>"CODE" => 944,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 202 \"src/ops/stack.ops\"\n  stack_push(inte <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	2420	2557	
==>eturn $self;
}

# ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~

sub get_token {
  my $self = shift;
  DEBUG > <==
3	/Users/nnunley/parrot/languages/converter.pl	1034	1131	
==>']' mod(?) production(?)
		| terminal(?) '[' production ']' production(?)
#		{[@item]}
		{ $return <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164760	164861	
==>e 190 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) != 0) {\n    {{+={{\@3}}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165689	165790	
==>e 190 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) != 0) {\n    {{+={{\@3}}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166618	166719	
==>e 190 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) != 0) {\n    {{+={{\@3}}} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1377	1500	
==>-end
       /$1\n$indent/gx     # => line-break here
    ;
    
    print {$_[0]{'output_fh'}} $indent, $text, "\n";
  }
  r <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2048	2146	
==>eady defined at this lexical scope, we want to complain
  # about the redefinition. Otherwise, we a <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1795	1893	
==>eady defined at this lexical scope, we want to complain
  # about the redefinition. Otherwise, we a <==
3	/Users/nnunley/parrot/lib/Test/More.pm	2570	2663	
==>Various ways to say "ok" with better diagnostics,
facilities to skip tests, test future featur <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	40879	40990	
==>^[~=]//s;

      DEBUG and print "\n", pretty($para), "\n";

      # traverse the treelet (which might well be j <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	936	1030	
==>r!" if ref $op;
  confess "Right is not Value!" unless UNIVERSAL::isa($right, 'Jako::Construct: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	948	1042	
==>r!" if ref $op;
  confess "Right is not Value!" unless UNIVERSAL::isa($right, 'Jako::Construct: <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4814	4920	
==>eturn @ops;
}

sub output_classmatch {
    my ($self, $incexc, $failLabel) = @_;

    my $passLabel = $self <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4478	4584	
==>eturn @ops;
}

sub output_classmatch {
    my ($self, $incexc, $failLabel) = @_;

    my $passLabel = $self <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258806	259096	
==>],
                  "TYPE" => "inline",
                  "CODE" => 301,
                  "ARGS" => [
                              "i",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 785 \"src/ops/cmp <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3978	4070	
==>rint y(4)
end function
function arrfunc(x())
	u=aftwo(x())
	arrfunc=55
end function
dim g(10) <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15251	15343	
==>rint y(4)
end function
function arrfunc(x())
	u=aftwo(x())
	arrfunc=55
end function
dim g(10) <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	5405	5548	
==>rint "    $_:\n";
        foreach (sort keys %{$external_calls{$_}}) {
            print "        $_\n";
        }
    }

    print "\nThe follo <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	1365	1479	
==>re is an example parrotbench.conf:
    [global]
    directory = ../../examples/benchmarks
    list      = 0
    hel <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20148	20256	
==>many German
  1036  France French
  3084  Canada French
  1035  Finnish
  1044  Norwegian (Bokmal)
  2068  No <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423088	423384	
==>en",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423984	424280	
==>en",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
3	/Users/nnunley/parrot/config/init/defaults.pm	6803	6946	
==>rsion => $VERSION );
        }
    }
    $conf->data->set(
        prefix      => $prefix,
        exec_prefix => $prefix,
        bin_dir     = <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	19677	19799	
==>'ge',
	'<' => 'lt',
	'<=' => 'le',
	'is' => 'eq_addr',
	'is not' => 'ne_addr',
    );
    my $op = $rev_map{$c};
    my ($o <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	558	666	
==>?:\%\<[\<\>\w]+\>)|[^\%]+)/g) {
        if ($part =~ /^\%/) {
            push @ops, $self->output_print(subs <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	3463	3565	
==>[\w+]+)\s+      # opcode e.g. SLICE+3
	(?:(\d+)(?:\s+\((.*)\))?)? # oparg rest
	/x) {
	($line, $pc, $op <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	24578	24697	
==>link} $PConfig{linkflags} $PConfig{ld_debug} "
               . "$obj_f $cfg $PConfig{ld_out}$exe_f "
               . " <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	11053	11156	
==>s_start and $token->tagname eq 'head1' ) {
        DEBUG and print "  Found head1.  Seeking content...\n <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	2594	2691	
==>e class name of the step register.  All other
parameters are saved and passed to the registered cl <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	462	564	
==>------------------------------
{
#
# Module Parse::Yapp::Driver
#
# This module is part of the Par <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	451	548	
==>------------------------------
{
#
# Module Parse::Yapp::Driver
#
# This module is part of the Par <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9835	9931	
==>,$c,$d,$_[5],4,0xa4beea44,/* 37 */
HH,$d,$a,$b,$c,$_[8],11,0x4bdecfa9,/* 38 */
HH,$c,$d,$a,$b,$_[ <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	809	948	
==>_eq',
    output_like       => 'like',
    output_isnt       => 'isnt_eq',
                        );

foreach my $func ( keys %language_tes <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	542	650	
==>_eq',
    output_like => 'like',
    output_isnt => 'isnt_eq',
);

foreach my $func ( keys %language_tes <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	9848	9955	
==>tra_preamble_ref, $extra_postamble_ref) = @_;

    local $_ = $argtype;
    my $temp_num = ${$temp_cnt_ref}+ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	50186	50303	
==>r(@{$lineage[-1]}), "!!!\n";
      
      push @{ $lineage[-1] }, '' if 2 == @{ $lineage[-1] };
      # Keep the eleme <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21572	21678	
==>push @opcodes, @{ $expr1->[1] };
    push @opcodes, @{ $expr2->[1] };
    push @opcodes, new LocalDir( $p <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	22394	22500	
==>push @opcodes, @{ $expr1->[1] };
    push @opcodes, @{ $expr2->[1] };
    push @opcodes, new LocalDir( $p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830050	830305	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3724	3833	
==>)) {
        $prm=uc($prm);
			exists($$checklist{$prm})
		or	croak("Unknow parameter '$prm'");
			ref($va <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3532	3637	
==>)) {
        $prm=uc($prm);
			exists($$checklist{$prm})
		or	croak("Unknow parameter '$prm'");
			ref($va <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630498	630596	
==>c_type_p(interpreter, class);\n    if (type <= 0)\n        real_exception(interpreter, NULL, NO_CLA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631488	631586	
==>c_type_p(interpreter, class);\n    if (type <= 0)\n        real_exception(interpreter, NULL, NO_CLA <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	61878	61995	
==>S};
    delete $parser->{STACK};
}

sub Generate {
    my $parser = shift;

    my $filename = $parser->YYData- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621606	621718	
==>, \n\t\t    _reg_base, (void**)cur_opcode);\n\t}\n        else\n            n = 2;\n\tccont = ctx->current_cont;\ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	1854	1955	
==>h $pir;
close $fh;

# And display count of ops that can be translated.
print "Currently able to transl <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19201	19316	
==>count, $min, $local_back ]),
      $next => $self->op_save_rxlocals($op),
              );

    return ($back, @ops) <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20791	20906	
==>count, $min, $local_back ]),
      $next => $self->op_save_rxlocals($op),
              );

    return ($back, @ops) <==
3	/Users/nnunley/parrot/lib/Test/More.pm	34304	34408	
==>s)

If you fail more than 254 tests, it will be reported as 254.

B<NOTE>  This behavior may go away in f <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4210	4313	
==>DBParse})#Already loaded ?
		and	return;
	}
	my($fname)=__FILE__;
	my(@drv);
	open(DRV,"<$fname") o <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3995	4093	
==>DBParse})#Already loaded ?
		and	return;
	}
	my($fname)=__FILE__;
	my(@drv);
	open(DRV,"<$fname") o <==
3	/Users/nnunley/parrot/lib/Test/More.pm	27578	27673	
==>y are not
actually testing functions and produce no diagnostics to help figure
out what went wro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567528	567702	
==>}} = {{\@2}}->vtable->does(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568423	568597	
==>}} = {{\@2}}->vtable->does(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	15595	15703	
==>shift);
    my $text = shift || $href;
    
    return "<a href=\"$href\">$text</a>";
}

=item href_path($pat <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607534	607627	
==>3 \"src/ops/object.ops\"\n    {{\@1}} = VTABLE_get_attr(interpreter, {{\@2}}, {{\@3}});\n    { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608438	608531	
==>3 \"src/ops/object.ops\"\n    {{\@1}} = VTABLE_get_attr(interpreter, {{\@2}}, {{\@3}});\n    { <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	1567	1660	
==>ako.html', '', 'languages/jako'),
        $self->new_section('lazy-k', 'lazy-k.html', '', 'lan <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840187	840326	
==>rpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840882	841021	
==>rpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	7494	7610	
==>e($pf, $file_name);

    undef $pf;

    return;
}

#
# MAIN PROGRAM:
#

@ARGV = qw(-) unless @ARGV;

foreach (@ARGV) <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31988	32098	
==>on::incitempos().' 1} and ' : '')
		. '  do { $_tok = "' . $self->{"pattern"} . '"; 1 } and
		     substr($text <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	10936	11043	
==>$desc?, Bool :$todo, Str :$depends) returns Bool`

- `isnt (Str $got, Str $expected, Str $desc?, Bool :$todo <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	16376	16468	
==>))D2FPTR(PMC_struct_val(self));
    $return_assign ($ret_type)(*pointer)();
    $final_assign <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	31817	31930	
==>heck, $desc) = @_;
    if( $check ) {
        die <<WHOA;
WHOA!  $desc
This should never happen!  Please contact t <==
3	/Users/nnunley/parrot/lib/Test/More.pm	30901	31014	
==>heck, $desc) = @_;
    if( $check ) {
        die <<WHOA;
WHOA!  $desc
This should never happen!  Please contact t <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	26788	26887	
==>directive_here($cout, $out_name)
	. $self->includes;
    my $l = count_newlines($cout);
    $cout .= <==
3	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	2724	2846	
==>output[0][1] eq q{} ) {
        shift @output;
    }
    while ( $output[1][0] && $output[-1][1] eq q{} ) {
        pop @ou <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553847	553951	
==>\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+4}};\n  inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555244	555348	
==>\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+4}};\n  inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	316962	317052	
==>=> "#line 92 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (INTVAL)((Parrot_Int2)({{\@1}}));\n  {{+=2 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2664	2772	
==>$handler->start_element({ Name => 'block', Attributes => { kind => $self->kind } });
  $_->sax($handler) fore <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	35395	35538	
==>alize'      => \&_op_rationalize,
  'exp'              => \&_op_exp,
  'log'              => \&_op_log,
  'sin'              => \&_op_sin,
  'co <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	21359	21483	
==>inary_dispatch_table($_, @rules);
        }
    } else {
        # Otherwise, split the rules into two groups.
        my $sp <==
3	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	1232	1338	
==>ubstitution and flag
# The length is uninteresting later on.
# 
# Example:
# F8,8
# translittranslit
#
# Fl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75644	75814	
==>,
                              "sc"
                            ],
                  "BODY" => "#line 1156 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77247	77417	
==>,
                              "sc"
                            ],
                  "BODY" => "#line 1156 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(i <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	889	979	
==>n .pcc_end_return .pcc_begin_yield
    .pcc_end_yield .namespace .endnamespace .macro .incl <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	6116	6235	
==>)) {
            fprintf(stderr, "\t" INTVAL_FMT ": %s\n", i, argv[i]);
        }

        userargv->vtable->push_string <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	5544	5642	
==>er" defStyleNum="dsDecVal" />
      <itemData name="TempRegister" defStyleNum="dsDecVal" />
      < <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33115	33244	
==>umber'},
             " instead of the expected value of $expected_value\n";
            $self->whine(
              $para->[1]{'s <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	26361	26457	
==>own'.
if set backward, the details of the intervening tests are deleted.  You
can erase history i <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	6357	6451	
==>macs variables at the end of the file
	    if(!$comment_is_at_beginning && /c-indentation-style <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	4821	4963	
==>$file, $source) = @_;

    my $f = undef;
    my $line = 0;
    foreach (@$source) {
        $line++;
        next unless $_;

        if (/^(\ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4767	4888	
==>ash reference.

=cut

sub new {
    my $this = shift;
    my $self = shift;

    my $class = ref($this) || $this;
    $sel <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	1599	1693	
==>l_link
{
	return '';
}

=item C<write_html($source, $target, $silent)>

C<write_html()> is call <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1374	1510	
==>)
    {
        $self->{PC} = shift;
    }
    else
    {
        return $self->{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Set <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	983	1119	
==>)
    {
        $self->{PC} = shift;
    }
    else
    {
        return $self->{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Set <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1198	1309	
==>til);
    $prog ||= $ENV{uc($util)};

    # never override the user.  If a non-existent program is specified the <==
3	/Users/nnunley/parrot/config/inter/make.pm	1019	1130	
==>til);
    $prog ||= $ENV{uc($util)};

    # never override the user.  If a non-existent program is specified the <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1195	1306	
==>til);
    $prog ||= $ENV{uc($util)};

    # never override the user.  If a non-existent program is specified the <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367158	367448	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "AR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367949	368239	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "AR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368741	369031	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "AR <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6740	6863	
==>dump $pmc.pmc")
          or die "pmc2c dump failed ($?)\n";
    }
}

sub generate_c {
    my ($pmc) = @_;

    if (needs_bu <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6951	7074	
==>dump $pmc.pmc")
          or die "pmc2c dump failed ($?)\n";
    }
}

sub generate_c {
    my ($pmc) = @_;

    if (needs_bu <==
3	/Users/nnunley/parrot/tools/util/pirtidy.pl	423	525	
==>ile = "$file.$extension";
    open my $ofh, '>', $outfile;

    my $formatter = new Parrot::PIR::Format <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	66761	67043	
==>> "sweep",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 87,
                  "ARGS" => [
                              "ic <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210205	210298	
==>" => "#line 408 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211185	211278	
==>" => "#line 408 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable- <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18783	18943	
==>) {
            push @opcodes, @{ $arg->[1] };
        }
        else {
            push @opcodes, new NoOp($parser);
        }
        push @params, $arg- <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6346	6471	
==>act=$$actions{DEFAULT};
#DBG>			$debug & 0x01
#DBG>		and	print STDERR "Don't need token.\n";
        }

            defin <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6051	6171	
==>act=$$actions{DEFAULT};
#DBG>			$debug & 0x01
#DBG>		and	print STDERR "Don't need token.\n";
        }

            defin <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	516	637	
==>, $ident, $props, $args) = @_;

  confess "Block (". ref($block) . ") is not!" unless UNIVERSAL::isa($block, qw(Jako::Cons <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64633	64723	
==>e.ops\"\n  Interp * const new_interp = (Interp *)PMC_data({{\@1}});\n  Interp_flags_SET(new <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65584	65674	
==>e.ops\"\n  Interp * const new_interp = (Interp *)PMC_data({{\@1}});\n  Interp_flags_SET(new <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	484	600	
==>A','eq', 'I0', '.Array', 'write_ARRAY'],
  ['',             'print', 'P5'],
  ['',             'branch', 'write_RET'] <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	3327	3434	
==>)$/m  and $smoke{harness_args} = $1;
  $html =~ /build_dir: (.+)$/m     and $smoke{build_dir}    = $1;
  $ht <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	10650	10836	
==>_dirs
            : 0
        ) . " }";
        my $labels     = "{ " . join(", ",  scalar $op->labels
            ? $op->labels
            : 0
        ) . " }";
        my $flags      = <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	31573	31670	
==>text|name/sec>
  # L<text|/"sec"> or L<text|/sec> or L<text|"sec">
  # L<scheme:...>

  my($self,@ <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1886	1979	
==>ject intended to contain CLI
option data.

Accepts no arguments and returns a L<Parrot::Config <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42130	42339	
==>" => "inline",
                  "CODE" => 53,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 727 \"src/ops/core.ops\"\n  do_ex <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	7426	7550	
==>rect '$key' yet!";
        $value = File::Spec->devnull
            if $value eq '/dev/null';
    }

    my $out = $options{' <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	14000	14100	
==>ostamble = join("\n    ", @{$extra_postamble_ref});
    my $return_data     = "$return_assign $final_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571141	571255	
==>ter, {{\@3}});\n    {{\@1}} = Parrot_object_isa(interpreter, {{\@2}}, class);\n    {{+=4}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572096	572210	
==>ter, {{\@3}});\n    {{\@1}} = Parrot_object_isa(interpreter, {{\@2}}, class);\n    {{+=4}};\n",
                  " <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	710	817	
==>sub new
{
  my $class = shift;
  my ($block, $ident, $cond, $left, $op, $right) = @_;

  confess "Block is n <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	1614	1710	
==>="*.imc;*.pasm" mimetype="">

  <highlighting>

    <list name="special_directives">
END

my %ops <==
3	/Users/nnunley/parrot/Configure.pl	712	803	
==>erbose=2>

Tells Configure.pl to output information about i<every> setting added or
changed. <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	5105	5247	
==>char **argv) {
    int dummy_var;
    Interp *     interpreter;
    struct PackFile *          pf;
    INTVAL i;
    PMC *userargv;

    interp <==
3	/Users/nnunley/parrot/config/gen/platform.pm	3122	3254	
==>M_H <<"END_HERE";
/*
** $_
*/
#line 1 "$_"
END_HERE
            print PLATFORM_H <IN_H>, "\n\n";
            close IN_H;
        } el <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	60885	60978	
==>or  _no_rule("interpolated literal terminal",$line,"'$1'");
		}
		elsif ($grammar =~ m/$TOKEN/ <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	11497	11626	
==>_I($reg_num);";
        return "t_$temp_num";
    };
    /2/ && do {
        push @{$temps_ref}, "PMC* t_$temp_num;";
        push <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32276	32383	
==>l($self->{class}, $method, 0);
    # I think that these will be out by one - NWC
    my $l = $self->line_dir <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40898	41005	
==>l($self->{class}, $method, 0);
    # I think that these will be out by one - NWC
    my $l = $self->line_dir <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090813	1090903	
==>" => "#line 191 \"src/ops/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1091873	1091963	
==>" => "#line 191 \"src/ops/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpre <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2033	2145	
==>rn <<EOC;
	    {
	       cur_opcode = (opcode_t *) opcode_to_prederef(interpreter, $addr);
	       goto SWITCH_RE <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2622	2731	
==>ring {
	my($self)=shift;

	${$$self{ERRST}} != 0;
}

sub YYAbort {
	my($self)=shift;

	${$$self{CHECK <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2507	2607	
==>ring {
	my($self)=shift;

	${$$self{ERRST}} != 0;
}

sub YYAbort {
	my($self)=shift;

	${$$self{CHECK <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	54	174	
==>use File::Basename;
use File::Find;
use File::Spec;
use FindBin;
use Getopt::Long;
use Pod::Usage;
require POSIX;

=head1 <==
3	/Users/nnunley/parrot/config/auto/signal.pm	1058	1176	
==>$verbose;
    }
    cc_clean();

    cc_gen('config/auto/signal/test_2.in');
    eval { cc_build(); };
    unless ($@ | <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	672	766	
==>ted next-op to be appended to the op body.

Note that F<tools/build/ops2c.pl> supplies either ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783163	783434	
==>,
                  "CODE" => 884,
                  "ARGS" => [
                              "p",
                              "kic",
                              "sc"
                            ],
                  "BODY" => "#line 387 \"src/ops/set.ops\"\n    {{\@1 <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	3731	3875	
==>], 
                'sources' => ['stack_common']
            ),
            $self->c_header_item('', 'enums'),
        ),
        $self->new_gro <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	2417	2507	
==>tput with the unexpected result is false.

=item C<past_output_is($code, $expected, $descri <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3938	4041	
==>,$prm);
		$$outhash{$prm}=$value;
	}
	for (@$mandatory) {
			exists($$outhash{$_})
		or	croak("Miss <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3740	3838	
==>,$prm);
		$$outhash{$prm}=$value;
	}
	for (@$mandatory) {
			exists($$outhash{$_})
		or	croak("Miss <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29168	29265	
==>~ /\$\{DEST0\}/ || $rule->{'instruction'} =~ /\$\{DEST0\}/) {
			$need_dest = 1;
		} elsif ($rule- <==
3	/Users/nnunley/parrot/config/auto/env.pm	130	224	
==>1 NAME

config/auto/env.pm - System Environment

=head1 DESCRIPTION

Determining if the C libra <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1505	1626	
==>>

Sets/gets the transform's arguments.

=cut

sub args
{
    my $self = shift;

    if (@_)
    {
        $self->{ARGS} = <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1114	1235	
==>>

Sets/gets the transform's arguments.

=cut

sub args
{
    my $self = shift;

    if (@_)
    {
        $self->{ARGS} = <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1741	1831	
==>nshift @{ $parser->YYData->{scopef} }, $parser->YYData->{scope};
    $parser->YYData->{sco <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9781	9874	
==>pre_call_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop ove <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7295	7388	
==>pre_call_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop ove <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6259	6352	
==>pre_call_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop ove <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931225	931484	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931995	932254	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932766	933025	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2989	3092	
==>ss)>.

=cut

sub restart_address
{
    my ($self, $addr) = @_;

    return "interpreter->resume_offset = <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3858	3961	
==>ss)>.

=cut

sub restart_address
{
    my ($self, $addr) = @_;

    return "interpreter->resume_offset = <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	2924	3019	
==>$self) = @_;
  my $return = $self->_save_1('P');

  $self->_add_inst('', 'new', [$return,'.Array <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205520	205608	
==>/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_CMP) <= 0) {\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629961	630226	
==>> 0,
                  "NAME" => "new",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630950	631215	
==>> 0,
                  "NAME" => "new",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107673	1107938	
==>> 0,
                  "NAME" => "new",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685667	685990	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getprop",
                  "FLAGS" => "",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686556	686879	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getprop",
                  "FLAGS" => "",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	26366	26482	
==>elsif($paras->[0][0] eq '~end') {
        $self->whine(
          $para->[1]{'start_line'},
          "=over is the l <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106408	1106651	
==>tables[typ]->class;\n    {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107384	1107627	
==>tables[typ]->class;\n    {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	49584	49686	
==>e been
recognized, code blocks are extracted by stepping through the input text and
trying the followin <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	8169	8287	
==>ount'}}, $line];
        }
      } else {
        ++$self->{'pod_para_count'};
        $self->_ponder_paragraph_buffer( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1365	1473	
==>);
    }
  }
  elsif ($kind eq 'continue') {
    $compiler->emit("${prefix}_CONT:");

    if ($self->content) <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10672	10777	
==>Tagmap'}{"/$tagname"}) or next;
      $scratch =~ s/\#([^\#]+)\#/${$self}{$1}/g; # interpolate
      print <==
3	/Users/nnunley/parrot/config/auto/jit.pm	1043	1163	
==>= ($cpuarch, q{});
    }

    # This was added to convert 9000/800 to 9000_800 on HP-UX
    $cpuarch =~ s|/|_|g;

    # O <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	25353	25455	
==>_from_const_cstring(interp, "$dynpmc", 0));
EOC
    }
    # init MMD "right" slots with the dynpmc type <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670611	670699	
==>ine 415 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->push_string(interpreter, {{\@1}}, {{\@2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671384	671472	
==>ine 415 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->push_string(interpreter, {{\@1}}, {{\@2 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Transcode.pm	479	603	
==>\n";
  } else {
    DEBUG and print "OK, loaded $class.\n";
    @ISA = ($class);
    last;
  }
}

sub _blorp { return; } # ju <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	2404	2515	
==>ine number
  'pod_para_count',    # count of pod paragraphs seen so far

  'no_whining',        # whether to sup <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1057	1167	
==>ub kind  { return shift->{KIND};  }
sub scope { return shift->{SCOPE}; }

#
# compile2
#

sub compile2
{
  my $ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	2530	2649	
==>sname;
    }
    else {
        $nclass .= "::Standard";
    }
    $nclass;
}

=item C<dynext_load_code($library_name, % <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1230	1348	
==>); # Return to the previous inline chunk.
        $compiler->outdent;
        $compiler->emit(".end");

        $last_s <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	3665	3761	
==>se}_ops${suffix}.h";
    $dynamic_flag = 1;
}

my $sym_export = $dynamic_flag ? 'PARROT_DYNEXT_EX <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	250	336	
==>its from C<Parrot::OpTrans::CPrederef> and
C<Parrot::OpTrans::CGoto> to provide predere <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6867	6979	
==>end?");
}

sub output_pushmark {
    my ($self) = @_;
    my @ops;
    if ($self->{DEBUG}) {
	push @ops, (qq(prin <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6517	6629	
==>end?");
}

sub output_pushmark {
    my ($self) = @_;
    my @ops;
    if ($self->{DEBUG}) {
	push @ops, (qq(prin <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	3930	4039	
==>h
    .local pmc rx_stack
    rx_stack = new IntList
    rx_match = _default(1, rx_input, 0, rx_stack)
    .re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938597	938864	
==>oin(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939487	939754	
==>oin(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30176	30287	
==>\n" unless $pir =~ /\n$/;
		$pir .= "### end translation\n";

		# Push load type onto the stack types array.
		$ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8949	9083	
==>ult' => $result,
        );
        return [ $defn, \@opcodes, $assign ];
    }
    else {
        my $defn = $parser->YYData->{sy <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	874	979	
==>switch_";
}

=item C<suffix()>

The suffix is C<'_switch'>.

=cut

sub suffix
{
    return "_switch";
}

= <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	2953	3050	
==>information as the test counter and
where test output is going.

If you want a completely new Test <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27594	27698	
==>vetext = $text;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'unless')
		. ' ($text =~ s/\A($skip)/$la <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29704	29808	
==>vetext = $text;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'unless')
		. ' ($text =~ s/\A($skip)/$la <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31801	31905	
==>vetext = $text;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'unless')
		. ' ($text =~ s/\A($skip)/$la <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054279	1054371	
==>r.ops\"\n    opcode_t * next;\n    if (PMC_IS_NULL({{\@2}}))\n\tinternal_exception(1, \"Tried <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055406	1055498	
==>r.ops\"\n    opcode_t * next;\n    if (PMC_IS_NULL({{\@2}}))\n\tinternal_exception(1, \"Tried <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12645	12750	
==>her_method
      \(\s*(.*?)\)      # capture argument list
     /"pmc->vtable->$1(" . full_arguments($2) . <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834280	834363	
==>push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}}, STACK_ENTRY_STRIN <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835006	835089	
==>push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}}, STACK_ENTRY_STRIN <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18577	18672	
==>ze( I<halfpoint_integer> );

These methods set the size (in half-points, like 52 for 26-point)
t <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	542	634	
==>sa($block, 'Jako::Construct::Block');
  confess("Identifier (" . ref($ident) . ") is not!") u <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	542	634	
==>sa($block, 'Jako::Construct::Block');
  confess("Identifier (" . ref($ident) . ") is not!") u <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	7537	7667	
==>get_token;
        
    return unless defined $next;
        
    unless( $next->type eq 'text' )
    {
        $self->unget_token( <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	540	655	
==>chr(128));    
    $msg .= "\0" x (($l%64<=56?56:120)-$l%64);
    $l = ($l-1)*8;
    $msg .= pack 'VV', $l & MAX , ( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2858	2953	
==>n' } });
  $_->sax($handler) foreach $self->content;
  $handler->end_element({ Name => 'block' } <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6957	7050	
==>="longer"
bogus$="not"
print "Found  (5): ", instr(s1$, found$)
print "Bogus  (0): ", instr(s1 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18686	18779	
==>="longer"
bogus$="not"
print "Found  (5): ", instr(s1$, found$)
print "Bogus  (0): ", instr(s1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279719	280018	
==>\n  {{\@1}} = ({{\@2}} < {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	280574	280873	
==>\n  {{\@1}} = ({{\@2}} < {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	281429	281728	
==>\n  {{\@1}} = ({{\@2}} < {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	1389	1508	
==>/\[ (\w+) (?: \s+ (.+?) )? \]/x;

    my $cmd  = $1;
    my $args = $2;

    return $cmd, parse_usage($args);
}

sub par <==
3	/Users/nnunley/parrot/tools/dev/pbc_header.pl	789	892	
==>$compat_file = 'PBC_COMPAT';
    open IN, $compat_file or die "Can't read $compat_file";
    my @lines = <==
3	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	719	814	
==>$compat_file = 'PBC_COMPAT';
open IN, $compat_file or die "Can't read $compat_file";
my @lines = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170113	170382	
==>"TYPE" => "function",
                  "CODE" => 204,
                  "ARGS" => [
                              "p",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 211 \"src/ops/ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	875	1004	
==>P0', '.INTERPINFO_CURRENT_SUB'],
  ['',             'invokecc'],
  ['',             'restore', 'P1'],
  ['',             'restore' <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33051	33151	
==>st_reg);
		$pir .= "### pre_store\n";
		$pir .= sub_meta($pre_store, $mv, "pre_store for rule $rule-> <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	6898	7016	
==>ng
    $P1 = pop op2
    unshift op2, $P1
    inc op1
    goto neg

done:
nothing:
    .return(op2)
.end

.sub 'dyadic: <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6400	6501	
==>CURR])) {
		die "User Sub";
	}
	if ($syms[NEXT] eq ":") {
		create_label();
		label_defined($syms[CURR <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	38721	38812	
==>ged($text, undef, undef, undef, {ignore => ['<[^>]*/>']} );

(also see L<"gen_delimited_pat" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126798	127155	
==>ELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rot",
                  "FLAGS" => "",
                  "ARGDIR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127933	128290	
==>ELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rot",
                  "FLAGS" => "",
                  "ARGDIR <==
3	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	1340	1451	
==>n) {
        die "Illegal version component: '$_' in VERSION file!" unless m/^[1-9]*\w*$/;
    }

    if (@parro <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	11820	11913	
==>otcode.org/">Parrot</a> smoke reports. These smokes are
    automatically generated and show h <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5897	5986	
==>-Gordon C<brent@brentdax.com>.

=head1 AUTHOR

Joshua Hoblitt C<jhoblitt@cpan.org>

=head1 <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6746	6835	
==>-Gordon C<brent@brentdax.com>.

=head1 AUTHOR

Joshua Hoblitt C<jhoblitt@cpan.org>

=head1 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4525	4620	
==>d $self->isa("Jako::Construct::Block");
  confess "Extra arguments!" if @_;

  return keys %{$se <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6090	6181	
==>pir .= <<'PIR';
if 0x${CURIC} == 0x45 goto POST_BRANCH_switch_${CURIC}
${ITEMP0} = ${NEXTPC} <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4028	4119	
==>pir .= <<'PIR';
if 0x${CURIC} == 0x45 goto POST_BRANCH_switch_${CURIC}
${ITEMP0} = ${NEXTPC} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	525	627	
==>t we need to do better than this?

  if ($self->content) {
    $compiler->emit(".namespace ${namespace} <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	20023	20122	
==>$code_l++;
	($opcode, $rest) = ($code[$code_l]->[2],$code[$code_l]->[4]);
    }
    if ($opcode eq ' <==
3	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1688	1769	
==>re\\doc\\parrot\\LICENSES\\Artistic
OutputDir=.\\
OutputBaseFilename=setup-parrot- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	410277	410565	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "send",
                  "FLAGS" => ":base_network",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411169	411457	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "send",
                  "FLAGS" => ":base_network",
                  " <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	12785	12906	
==>reen">$_</font>)
            } elsif ($_ =~ /branch \d+ taken = 0%/) {
                print OUT qq($atag<font color="red" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1477	1583	
==>ck->push_content($self);

  return $self;
}


#
# ACCESSORS:
#

sub ident { return shift->{IDENT}; }
sub co <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	12184	12286	
==>end

.sub unicode:"dyadic:\u2191" :multi (Float, APLVector) # take
    .param int op1
    .param pmc op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361412	361650	
==>YPE" => "function",
                  "CODE" => 423,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 281 \"src/ops/io.ops\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39128	39356	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARRO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41688	41916	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARRO <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	6748	6871	
==>ected_tests {
    my $self = shift;
    my($max) = @_;

    if( @_ ) {
        die "Number of tests must be a postive intege <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4305	4422	
==>$group", @$pmcs ] )
          or die "partial link of $group failed ($?)\n";
    }

    # Link non-grouped PMCs indivi <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4409	4526	
==>$group", @$pmcs ] )
          or die "partial link of $group failed ($?)\n";
    }

    # Link non-grouped PMCs indivi <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	36929	37068	
==>es1, new ParamDir( $parser,
            'prolog' => 1,
            'result' => $defn,
        );
        my $nil = BuildLiteral( $parser <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	1470	1595	
==>ines              => 1
    );
    genfile(
        'config/gen/makefiles/dynpmc_pl.in' => 'tools/build/dynpmc.pl',
        com <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2927	3045	
==>\.]+)/    and $smoke{VERSION}      = $1;
  $html =~ /branch: ([\w\-]+)/     and $smoke{branch}       = $1;
  $html =~ / <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477502	477875	
==>ore",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 547,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	1111	1219	
==>t = shift;
	my @contents = @_;
	
	# TODO - Groups should only contain items or paths.
	
	$self = $self->SUPER <==
3	/Users/nnunley/parrot/config/gen/config_pm.pm	553	656	
==>tion = "Recording configuration data for later retrieval";

@args = ();

sub runstep
{
    my ($self, $c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202736	202836	
==>.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203667	203767	
==>.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204598	204698	
==>.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4 <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3193	3295	
==>' => "CONST(%ld)->u.number",
    'pc' => "CONST(%ld)->u.key",
    'sc' => "CONST(%ld)->u.string",
    ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3001	3103	
==>' => "CONST(%ld)->u.number",
    'pc' => "CONST(%ld)->u.key",
    'sc' => "CONST(%ld)->u.string",
    ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2103	2202	
==>'  => "CONST(%ld)->u.number",
  'pc'  => "CONST(%ld)->u.key",
  'sc'  => "CONST(%ld)->u.string",
  ' <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48277	48391	
==>= (0,1) }
				elsif ($grammar =~ m/$ANY/gco)
					{ $minrep = 0 }
				elsif ($grammar =~ m/$EXACTLY/gco)
					{ ($m <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	520	647	
==>fix, $left, $op, $right) = @_;

  my $self = bless {
    BLOCK     => $block,

    PREFIX    => $prefix,
    KIND      => 'while <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	10157	10279	
==>>diag("    $msg test ($file at line $line)\n");
    } 

    return $test ? 1 : 0;
}


sub _unoverload {
    my $self  = shi <==
3	/Users/nnunley/parrot/lib/Test/More.pm	23803	23913	
==>l $^W = 0;
    last TODO;
}

=item When do I use SKIP vs. TODO?

B<If it's something the user might not be able <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	4345	4469	
==>$self->rewrite($dest, $lastback),
                $continue);
    }
}

# TODO: can_match_empty (so s/a*/x/g doesn't go into i <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6435	6542	
==>oto POST_BRANCH_switch_${CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0[i]
    ${ITEMP0} = ${NEXTPC} + j
    pro <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4373	4480	
==>oto POST_BRANCH_switch_${CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0[i]
    ${ITEMP0} = ${NEXTPC} + j
    pro <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9922	10025	
==>ote that they come
# off the stack last to first, but need to be first to last in ${PARAMS}.
${ITEMP0} = <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7436	7539	
==>ote that they come
# off the stack last to first, but need to be first to last in ${PARAMS}.
${ITEMP0} = <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6400	6503	
==>ote that they come
# off the stack last to first, but need to be first to last in ${PARAMS}.
${ITEMP0} = <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	24048	24172	
==>remarkable
        unshift @stack, $treelet->[$i];  # just recurse
      }
    }
  }
  
  DEBUG > 2 and print "End of _remap_ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	63171	63264	
==>ening bracket>

C<extract_codeblock> failed to find a closing bracket to match the outermost
o <==
3	/Users/nnunley/parrot/lib/File/Which.pm	1651	1805	
==>e;  # if it failed, just go on the normal way
                return $file unless $all;
                push @results, $file;
                # we can stop <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	6145	6247	
==>ths, $source->relative_path($file->path);
        }
    }
    elsif ( $source->relative_path_is_file($r <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	75837	75938	
==>::RD_HINT    and  $_[0] =~ /ERRORS|WARN|HINT/
	or defined $::RD_WARN    and  $_[0] =~ /ERRORS|WARN/
	o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936332	936605	
==>}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "titleca <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937109	937382	
==>}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "titleca <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10353	10452	
==>test.out');

    return $output;
}

=item C<cc_run_capture()>

Same as C<cc_run()> except that warni <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509954	510265	
==>e_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 587,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#lin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056429	1056567	
==>s"
                            ],
                  "BODY" => "#line 194 \"src/ops/var.ops\"\n    {{\@1}} = Parrot_get_global_p(interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057321	1057459	
==>s"
                            ],
                  "BODY" => "#line 194 \"src/ops/var.ops\"\n    {{\@1}} = Parrot_get_global_p(interpreter <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	26382	26502	
==>][0] eq '~end') {
        $self->whine(
          $para->[1]{'start_line'},
          "=over is the last thing in the doc <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	26159	26265	
==>lements_one =~ m/^[^ ,]+(,[^ ,]+)*$/s) { # like "B", "M,I", etc.
      $self->whine(
        $para->[1]{'st <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	1600	1701	
==>ssing of =over
   # directives and verbatim paragraphs.  We call _ponder_paragraph_buffer
   # to proc <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3874	3967	
==>ic validity of Pod.
It works by basically acting like a simple-minded version of
L<Pod::Simple <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2074	2179	
==>{
    $left  = $left->compile($compiler);
    $right = $right->compile($compiler);

    if ($cond eq 'unle <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2772	2862	
==>xtraLibs = '-lm -lgmp -lreadline -lpthread -lm -L/opt/local/lib  -licuuc -licudata -lpthrea <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2567	2657	
==>xtraLibs = '-lm -lgmp -lreadline -lpthread -lm -L/opt/local/lib  -licuuc -licudata -lpthrea <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1996	2174	
==>debug             => '-debug',
            ld_share_flags       => '-dll',
            ld_load_flags        => '-dll',
            ld_out               => '-out:',
            ldf <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3979	4157	
==>debug             => '-debug',
            ld_share_flags       => '-dll',
            ld_load_flags        => '-dll',
            ld_out               => '-out:',
            ldf <==
3	/Users/nnunley/parrot/Configure.pl	1444	1538	
==>flags> to the compiler flags.

=item C<--inline>

Tell Configure that the compiler supports C<i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	995	1089	
==>ntifier');
  confess "Left is not Value!" if defined $left and not UNIVERSAL::isa($left, 'Jako: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1023	1117	
==>ntifier');
  confess "Left is not Value!" if defined $left and not UNIVERSAL::isa($left, 'Jako: <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	61880	61990	
==>C<extract_quotelike> or C<extract_codeblock> found
a valid bracket delimiter, but it was the wrong species. Thi <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10478	10587	
==>{error}.
#DBG>						 ".\n";

		push(@$stack, [ $$states[$$stack[-1][0]]{ACTIONS}{error}, undef ]);

    } <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10009	10113	
==>{error}.
#DBG>						 ".\n";

		push(@$stack, [ $$states[$$stack[-1][0]]{ACTIONS}{error}, undef ]);

    } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048170	1048285	
==>,
                  "BODY" => "#line 162 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_ex <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049094	1049209	
==>,
                  "BODY" => "#line 162 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_ex <==
3	/Users/nnunley/parrot/languages/regex/test.pl	284	386	
==>06;

use File::Spec::Functions;	# In perl core only for >= 5.6.

# FIXME: This is still probably unix-o <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	257	353	
==>08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Declaration:: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	247	343	
==>08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Declaration:: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	257	353	
==>08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Declaration:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762020	762258	
==>"TYPE" => "inline",
                  "CODE" => 860,
                  "ARGS" => [
                              "ic",
                              "p"
                            ],
                  "BODY" => "#line 305 \"src/ops/set.op <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1343	1445	
==>less defined $compiler;

  my $type = $self->type;

#  $self->DEBUG(0, "Compiling literal of type: '%s' <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	58	156	
==>5-31T14:22:35.671857Z svm  $

package Scheme::Test;

use strict;
use vars qw(@EXPORT @ISA);

use Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811530	811787	
==>et_pmc_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812432	812689	
==>et_pmc_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	12735	12861	
==>next =>
              );
    return ($back, @ops);
}

sub rewrite_other {
    my ($self, $op, $lastback) = @_;
    return aop($ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437220	437519	
==>> "inline",
                  "CODE" => 501,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 94 \"src/ops/math. <==
3	/Users/nnunley/parrot/lib/Test/More.pm	37393	37484	
==>opyright 2001, 2002, 2004 by Michael G Schwern E<lt>schwern@pobox.comE<gt>.

This program is <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	6353	6444	
==>opyright 2001, 2002, 2004 by Michael G Schwern E<lt>schwern@pobox.comE<gt>.

This program is <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183728	184026	
==>AGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 219,
                  "ARGS" = <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	8190	8343	
==>element value
    $obj->a(2, 'new value');            # assign to array element

                                    # hash type accessor:
    $hash_ref = <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	19942	20059	
==>dule.
    #  - Added "use strict".
    #  - Bug in build_methods, was using @var when @$var needed.
    #  - Now using <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1597	1697	
==>EMP0}

# Emit pop code.
${INS} = concat ${STACK$register_num}
${INS} = concat " = pop s\n"
PIR
		$pir <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3307	3407	
==>EMP0}

# Emit pop code.
${INS} = concat ${STACK$register_num}
${INS} = concat " = pop s\n"
PIR
		$pir <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6663	6771	
==>tend {
    my ($self, $failLabel) = @_;
    my $fail = $self->output_label_use($failLabel);
    return ($self <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6307	6415	
==>tend {
    my ($self, $failLabel) = @_;
    my $fail = $self->output_label_use($failLabel);
    return ($self <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561893	561991	
==>\@3}});\n  if (!{{\@1}}) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562977	563075	
==>\@3}});\n  if (!{{\@1}}) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method <==
3	/Users/nnunley/parrot/config/auto/signal.pm	1623	1716	
==>ow generate signal constants
    open O, ">runtime/parrot/include/signal.pasm" or die "Cant wr <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	1746	1870	
==>ecific
formatting have to be inserted.

=cut

sub do_middle 
{
    my $self = shift;
    my $token;
    my $type;
    
    $s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	29247	29364	
==>inside an '=over'!\n";
        $self->whine(
          $para->[1]{'start_line'},
          "You forgot a '=back' befor <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1613	1710	
==>s::Section::C->new,
        Parrot::Docs::Section::Ops->new,
        Parrot::Docs::Section::IMCC-> <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	58683	58782	
==>elements
(which might contain quoted strings):

        my $empty_tag = '<(' . gen_delimited_pat(q{' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4370	4467	
==>ode, $failLabel) = @_;
    my $comment = Regex::Ops::Tree::isplain($code) ? " # match '".chr($code <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4057	4154	
==>ode, $failLabel) = @_;
    my $comment = Regex::Ops::Tree::isplain($code) ? " # match '".chr($code <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	15537	15654	
==>[-1, $n, $t];
}

sub BINARY_AND
{
    my ($n, $c, $cmt) = @_;
    binary('&', $cmt);
}

sub BINARY_OR
{
    my ($n, $c <==
3	/Users/nnunley/parrot/languages/perms.pl	313	445	
==>prefix;
    }
    
    if ( $prefix[-1] >= @$things ) {
      @prefix = ( (0) x (@prefix + 1) );
    }

	  my @tumbler = map { $thing <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1012	1140	
==>ed');
        return $self;
    }

    my $prog;

    # precedence of sources for the program:
    # default -> probe -> environm <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1009	1137	
==>ed');
        return $self;
    }

    my $prog;

    # precedence of sources for the program:
    # default -> probe -> environm <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	916	1040	
==>n marks can follow an identifier
      $token .= $ch;
    } elsif($ch eq '=' and
            $token =~ /^[<>]/) {  # Equal si <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	1594	1701	
==>context in which the method is called.

    $contents = $file->read;
    @lines = $file->read;

=cut

sub re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196863	197161	
==>AGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 233,
                  "ARGS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161069	161243	
==>c",
                              "ic"
                            ],
                  "BODY" => "#line 176 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}} <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	11643	11779	
==>est code.
            # This depends on which kind of code we are testing.
            my $code_f;
            if ( $func =~ m/^pir_outpu <==
3	/Users/nnunley/parrot/lib/Test/More.pm	7827	7926	
==>r (beyond the name), but is() and
isnt() know what the test was and why it failed.  For example this <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35697	35803	
==>ailed it will exit with how many failed.  If
you run less (or more) tests than you planned, the missing (or <==
3	/Users/nnunley/parrot/lib/Test/More.pm	33768	33874	
==>ailed it will exit with how many failed.  If
you run less (or more) tests than you planned, the missing (or <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2564	2670	
==>ailed it will exit with how many failed.  If
you run less (or more) tests than you planned, the missing (or <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114981	115402	
==>IRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 143,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => " <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	46368	46469	
==>,  Carp::croak(
       "Accessor usage: \$obj->$attrname() or \$obj->$attrname(\$new_value)"
      ) u <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	11613	11714	
==>does not appear as it should, because its ",
      "\"=encoding $e\" line calls for an unsupported enc <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	8228	8363	
==>->{symbol}, $op->{result}->{symbol}\n";
    }

    sub visitBranchOp {
        my $self = shift;
        my ($op) = @_;
        my <==
3	/Users/nnunley/parrot/config/init/defaults.pm	6081	6227	
==>,
        DEVEL   => (-e 'DEVELOPING' ? '-devel' : ''),

        configdate => scalar localtime,
        PQ         => "'",
        dquote     => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189714	189802	
==>" => "#line 306 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190655	190743	
==>" => "#line 306 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	4723	4901	
==>st->exported_to($caller);

    my $idx = 0;
    my @plan;
    my @imports;
    while( $idx <= $#_ ) {
        my $item = $_[$idx];

        if( $item eq 'import' ) {
            p <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	12961	13078	
==>= 0 goto done
    $P1 = shift op2 # ignore p1, we're discarding it
    dec op1
    goto pos_loop

neg_loop:
    if op1 <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4278	4375	
==>e($name)>

Returns whether a file with the specified name exists in the directory.

=cut

sub file <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	1379	1495	
==>pe="";
		$user=0;
		if ($syms[CURR] eq "as") {
			feedme;
			$stype=$syms[CURR];
			feedme; # N
			my %th=( single => <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	42	145	
==>s = ();
while (<>) {
	if (/^Translated (\d+) types out of (\d+) from .+?([\.\w]+)\n$/) {
		push @resu <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	42	145	
==>s = ();
while (<>) {
	if (/^Translated (\d+) types out of (\d+) from .+?([\.\w]+)\n$/) {
		push @resu <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	659	762	
==>e parser make the included
# text under the same copyright as the Parse::Yapp module itself.
#
# This <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	640	740	
==>e parser make the included
# text under the same copyright as the Parse::Yapp module itself.
#
# This <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	393	485	
==>. It is the Perl equivalent of the C<op_info_t> C
C<struct> defined in F<include/parrot/op.h> <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	10951	11071	
==>_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # undef only matches undef and n <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	11369	11489	
==>_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # undef only matches undef and n <==
3	/Users/nnunley/parrot/tools/docs/write_docs.pl	287	388	
==>ad1 DESCRIPTION

This script writes the HTML documentation for Parrot.

=cut

use lib 'lib';
use Getop <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1016072	1016383	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "time",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TY <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1016703	1017014	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "time",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TY <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7340	7450	
==>ue($reg);
    return ("push \@::STATESTACK, $reg;");
}

sub output_restore {
    my ($self, $reg) = @_;
    $re <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34946	35069	
==>(1..$rule->{'pop'}) {
			$pir .= "    type_trans = pop stypes\n";
		}
        if ($rule->{'code'} eq '45') {
            $pi <==
3	/Users/nnunley/parrot/config/init/hints/freebsd.pm	965	1056	
==>bparrot$(SHARE_EXT).$(SOVERSION)',
        libparrot_shared_alias  => 'libparrot$(SHARE_EXT) <==
3	/Users/nnunley/parrot/config/init/hints/linux.pm	1803	1894	
==>bparrot$(SHARE_EXT).$(SOVERSION)',
        libparrot_shared_alias  => 'libparrot$(SHARE_EXT) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571712	572032	
==>i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 653,
                  "ARGS" => [
                              "i",
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 223 \"src/op <==
3	/Users/nnunley/parrot/examples/benchmarks/stress.pl	508	631	
==>y();
}

sub buildarray {
    my @foo;
    foreach (1..10000) {
	$foo[$_] = $_;
    }
    return \@foo;
}

=head1 SEE ALSO

F <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2501	2607	
==>t C
code.

=cut

sub goto_pop
{
    my ($self) = @_;
    return "{ opcode_t *dest = (opcode_t*)pop_dest(int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355125	355225	
==>st p = {{\@1}};\n  STRING * const s = (VTABLE_get_string(interpreter, p));\n  if (s) {\n    PIO_putps <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360825	360925	
==>st p = {{\@1}};\n  STRING * const s = (VTABLE_get_string(interpreter, p));\n  if (s) {\n    PIO_putps <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29228	29370	
==>=> 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"<=" => <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41334	41476	
==>=> 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"<=" => <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44480	44622	
==>=> 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"<=" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3293	3405	
==>_base   asm ("edi");
#else
    opcode_t *cur_opcode = cur_op;
    char * _reg_base;
#endif

SWITCH_RELOAD:
    _r <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3926	4026	
==>$needed, $failLabel, $lenvar) = @_;
    $lenvar ||= "<rx_len>";
    my $fail = $self->output_label_us <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3640	3740	
==>$needed, $failLabel, $lenvar) = @_;
    $lenvar ||= "<rx_len>";
    my $fail = $self->output_label_us <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2856	2973	
==>($$) {
	my $self = shift;
	my ($pops, $pushes) = @_;
	my $register_num = 0;
	my $push_num = 0;
	my $pir = '';

	# Do c <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1778	1895	
==>($$) {
	my $self = shift;
	my ($pops, $pushes) = @_;
	my $register_num = 0;
	my $push_num = 0;
	my $pir = '';

	# Do c <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21032	21148	
==>0;
        $right = Jako::Construct::Expression::Value->new($block, $self->require_value);
      }

      $self->requ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046051	1046471	
==>[
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1169,
                  "ARGS" => [
                              "k",
                              "sc",
                              "p"
                            ],
                  "BODY" => "#li <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18005	18104	
==>needstmt => 0 });
	} else {
		push @{$code{$seg}->{code}}, "DO_$docounter:\n";
		push(@dos, { jump = <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	8144	8242	
==>}

=item C<decl($classname, $method, $for_header)>

Returns the C code for the PMC method declarati <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242030	242122	
==>rc/ops/cmp.ops\"\n  FLOATVAL l = VTABLE_get_number(interpreter, {{\@2}});\n  {{\@1}} = l < {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242979	243071	
==>rc/ops/cmp.ops\"\n  FLOATVAL l = VTABLE_get_number(interpreter, {{\@2}});\n  {{\@1}} = l < {{ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	61158	61247	
==>extract_quotelike> or C<extract_codeblock> encountered
a closing bracket where none was ex <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2793	2891	
==>if (($dest_ident->kind eq 'var') and ($dest_ident->scope eq 'global')) {
    my $pmc_type = $dest_i <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	28903	29022	
==>In these cases, Test::Builder doesn't know the result of the test, so
it's type is 'unkown'.  These details for these te <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	306	397	
==>te;
use Algorithm::TokenBucket;
use Time::Piece;
use Time::Seconds;

require_compression_mod <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	33496	33617	
==>ests} = $self->{Curr_Test};
        }

        # Auto-extended arrays and elements which aren't explicitly
        # fille <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22318	22417	
==>eturn;
  my $label = $self->_gensym();

  my $temp_0 = $self->_generate($node->{children}[1]);
  $re <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22819	22918	
==>eturn;
  my $label = $self->_gensym();

  my $temp_0 = $self->_generate($node->{children}[1]);
  $re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264809	265230	
==>=> [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 308,
                  "ARGS" => [
                              "i",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#lin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	316286	316382	
==>{\@1}}));\n  }\n  else {\n    internal_exception(1, \"Overflow exception for conv_u1_ovf\");\n  } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	620028	620118	
==>parrot_pic_opcode(interpreter, PARROT_OP_pic_infix___ic_p_p);\n\t{{+=0}};\n    }\n    {{+=4 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730697	730924	
==>> "#line 124 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731433	731660	
==>> "#line 124 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/languages/APL/t/APL.pm	1838	1974	
==>_is('APL', $apl, $output, $block->name);
        }
      } else {
        SKIP: {
          skip("not implemented", 1);
          Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	7775	7886	
==>must not let them get closed.
    open  OLDOUT, ">&STDOUT" or die "Can't save     stdout" if $out;
    open  OLD <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7826	7935	
==>must not let them get closed.
    open OLDOUT, ">&STDOUT" or die "Can't save     stdout" if $out;
    open OLD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791611	791701	
==>@1}} = {{\@2}}->vtable->get_pmc_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792518	792608	
==>@1}} = {{\@2}}->vtable->get_pmc_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n", <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20814	20899	
==>($node->{children}[$1]);
    $self->_add_inst('','lt',[$temp_0,$temp_1,"DONE_$label"]) <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3049	3156	
==>) = @ARGV;

if ($mode eq 'generate') {
    # Convert X.pmc -> X.dump and X.c and also create any lib-GROUP.c <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3153	3260	
==>) = @ARGV;

if ($mode eq 'generate') {
    # Convert X.pmc -> X.dump and X.c and also create any lib-GROUP.c <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	26	131	
==>e constant VERSION => 2.3;

use constant PREV => 2;
use constant CURR => 1;
use constant NEXT => 0;
use su <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131347	131626	
==>rc/ops/bit.ops\"\n  {{\@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132202	132481	
==>rc/ops/bit.ops\"\n  {{\@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133057	133336	
==>rc/ops/bit.ops\"\n  {{\@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	35185	35328	
==>9
		},
		DEFAULT => -63
	},
	{#State 130
		ACTIONS => {
			"-" => 72,
			"%" => 76,
			"*" => 80,
			".." => 71,
			"+" => 75,
			"^" <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3096	3216	
==>ot return from here to main
                   'program - only to SUB1.
' Exit tests
sub mysub(b,c)
	print "Print me"
	ex <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17063	17183	
==>ot return from here to main
                   'program - only to SUB1.
' Exit tests
sub mysub(b,c)
	print "Print me"
	ex <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	318	406	
==>ako::Construct::Expression::Value;

use base qw(Jako::Construct::Expression);

use Jako:: <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	25211	25400	
==>fail);

    my @ops = (
                        @R_ops,
                        aop('pushint', [ 1 ]),
                        aop('goto', [ $next ]),
               $back => aop('popint', [ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37232	37356	
==>E' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 176,
			'functioncall' => 31,
			'funct <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	12867	13049	
==>0       Restarts at PC + X
        #   restart NEXT()     {{=0,+=S}}   PC' = 0       Restarts at PC + S
        #
        #   $X                 {{@X}}   Argument X    $0 is opcode, $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840172	840257	
==>te_entries(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}});\n  {{+=2}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840867	840952	
==>te_entries(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}});\n  {{+=2}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469756	470038	
==>div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 539,
                  "A <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	6088	6190	
==>oup) = @_;
    $self->{_setup_starts}{$group} = 1;
    $self->{_setup_ends}{$group} = 1;
}

sub rewrite <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	7896	8006	
==>TDERR" or die "Can't save     stderr" if $err;

    open  STDOUT, ">$out"    or die "Can't redirect stdout to $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480816	481105	
==>VAL)floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481819	482108	
==>VAL)floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482822	483111	
==>VAL)floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10600	10828	
==>> "bsr",
                  "FLAGS" => ":base_core,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11388	11616	
==>> "bsr",
                  "FLAGS" => ":base_core,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	2466	2566	
==>file  => File::Spec->catdir( $FindBin::Bin , 'parrotbench.conf' ),
    bench_path   => undef,
    lis <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4681	4793	
==>ift;
	my $register_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop stuff off the st <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3097	3209	
==>ift;
	my $register_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop stuff off the st <==
3	/Users/nnunley/parrot/config/inter/make.pm	853	969	
==>on => undef);

    my $prog;

    # precedence of sources for the program:
    # default -> probe -> environment -> o <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	8853	8952	
==>or re-reading $source: $!\n";
my $line = 0; while (<SOURCE>) { $line++; } $line+=2;
close(SOURCE);
o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101156	101413	
==>{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103362	103619	
==>{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/lib/Test/More.pm	6486	6594	
==>sts' );
    ok( !grep !defined $_, @items,       'items populated' );

(Mnemonic:  "This is ok.")

$test_name <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742758	742982	
==>\n  {{\@1}} = string_from_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743524	743748	
==>\n  {{\@1}} = string_from_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/lib/File/Which.pm	5772	5869	
==>ng all the path names
matching C<$short_exe_name>.


=head1 Bugs and Caveats

Not tested on VMS or <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847544	847835	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848323	848614	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849103	849394	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1775	2024	
==>N2\n"; # print  "Elapsed time:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 = $N1 / $N2;              # div    N1, N1, N2
$N <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	1775	2024	
==>N2\n"; # print  "Elapsed time:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 = $N1 / $N2;              # div    N1, N1, N2
$N <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	14564	14679	
==>ded</span>
              </tmpl_loop><br />
              <a href="<tmpl_var name=link>" title="Full smoke report">V <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	17945	18057	
==>ts without a plan!  Gotta have a plan.");
    }

    lock($self->{Curr_Test});
    $self->{Curr_Test}++;

    $se <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	18810	18922	
==>ts without a plan!  Gotta have a plan.");
    }

    lock($self->{Curr_Test});
    $self->{Curr_Test}++;

    $se <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	10323	10425	
==>o run. This should be specified at the very top of your tests.

- `force_todo (*@todo_tests) returns Vo <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	912	1010	
==>ut licences, prerequisites, and building instructions.', 'README'),
            $self->new_item('In <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15504	15600	
==>n =~ /^P/;
  my $value = $self->_generate (_get_arg($node,2));
  $self->_add_inst ('', 'set', [$r <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15862	15958	
==>n =~ /^P/;
  my $value = $self->_generate (_get_arg($node,2));
  $self->_add_inst ('', 'set', [$r <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23123	23226	
==>ITEM ? ''
			       : '$item{'.$self->{hashname}.'}=').'$_tok;
		' . ($self->{"lookahead"} ? '$text = $_ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32882	32982	
==>ITEM ? ''
				 : '$item{'.$self->{hashname}.'}=') . '$_tok;
		' . ($self->{"lookahead"} ? '$text = $_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3697	3789	
==>also search (recursively) parent blocks'
symbol tables.

TODO: We should generate real compil <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297338	297658	
==>"NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 346,
                  " <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	9147	9252	
==>'PARA' || $omode eq 'MAX');
			_failmsg "Found invalid nested tag: $1", pos $$textref;
			goto failed;
		} <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	27607	27706	
==>summary of the tests so far.  True for pass, false for fail.
This is a logical pass/fail, so todos a <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39050	39196	
==>et = "return ret_val;";
        if ($type !~ /\*/) {
            $ret_type = "_ret" . lc substr $type, 0, 1;
            $ret_type = "_reti" if $re <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	3499	3605	
==>? "\n\t# $comment" : "";
    ($label = $label->{label}) =~ s/^@//; # FIXME: local labels?
    return "$labe <==
3	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	2130	2229	
==>:Bzip2::memBzip(shift) };
  eval { require Compress::Zlib; debug "Gzip compression on\n" } and
    $ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30103	30232	
==>TRING' => 44
		},
		GOTOS => {
			'tableconstructor' => 46,
			'args' => 149
		}
	},
	{#State 97
		ACTIONS => {
			"-" => <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1660	1769	
==>O_PROPOGATE:
PIR

	# Return.
	return $pir;
}

# Pre and post stack operation (op class instructions) hooks.
su <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	19477	19585	
==>ren
      DEBUG > 3 and print " Considering child at $i ", pretty($treelet->[$i]), "\n";
      if($nixx and r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062497	1062591	
==>"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063366	1063460	
==>"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064236	1064330	
==>"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpre <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	878	976	
==>me = class.get_fullname()
    method_name = meth
PIR_OUT

# Generate the lookup.
$output .= generat <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	343	438	
==>tract_file_descriptions.pl - Extract descriptions from files

=head1 SYNOPSIS

    % perl tools/ <==
3	/Users/nnunley/parrot/config/gen/icu.pm	1390	1530	
==>nfig";
                print "icu-config found... good!\n" if $verbose;
            }
        }

        if (!$without && $autodetect && $icu <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	10998	11120	
==>ay: none; }
    .expander { color: blue; cursor: pointer; }  /* hack? */

    .tests_ok       { color: #050; }
    .tests_f <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	1903	1999	
==>Z(Z1,6))= 55
print B(Z(Z1,6))


' Comparison operator tests
if 4<5 then print "Ok" else print "Wr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368879	369188	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369763	370072	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	2862	2973	
==>q{};
    my $entry;

    $struct = <<"EOF";
typedef enum {
    VTABLE_IS_CONST_FLAG = 0x01,
    VTABLE_HAS_CONST <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	28003	28121	
==>{
  my ($self,$node) = @_;
  my $return;
  my $label     = $self->_gensym();

  $return = $self->_generate($node->{chil <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23283	23397	
==>{
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_generate($node->{chil <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23745	23859	
==>{
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_generate($node->{chil <==
3	/Users/nnunley/parrot/lib/Test/More.pm	6298	6429	
==>ple.

For example:

    ok( $exp{9} == 81,                   'simple exponential' );
    ok( Film->can('db_Main'),            'set_d <==
3	/Users/nnunley/parrot/lib/Test/More.pm	34553	34645	
==>loaded objects

String overloaded objects are compared B<as strings>.  This prevents
Test::Mo <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11330	11450	
==>PE_I = 0x18
	.const int ELEMENT_TYPE_U = 0x19
	.const int ELEMENT_TYPE_FNPTR = 0x1B
	.const int ELEMENT_TYPE_OBJECT = 0x1 <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	2493	2679	
==>"$destfile");
                push(@generated, "$destfile");
                $in_def = '';
                next;
            }
            if ($in_def eq 'def') {
                if (/#de <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2279	2399	
==>ined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was fatal: $!", :$depends);
    }
    else {
        #diag " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710737	710828	
==>)\n    PIO_puts(interpreter, io, \" \");\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711571	711662	
==>)\n    PIO_puts(interpreter, io, \" \");\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{\@ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8478	8590	
==>4
#DBG>			and	print STDERR 
#DBG>				    "go to state $$states[$$stack[-1][0]]{GOTOS}{$lhs}.\n";

#DBG>				$d <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8094	8202	
==>4
#DBG>			and	print STDERR 
#DBG>				    "go to state $$states[$$stack[-1][0]]{GOTOS}{$lhs}.\n";

#DBG>				$d <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	29662	29761	
==>= $Test->todo($pack);

todo() looks for a $TODO variable in your tests.  If set, all tests
will be c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181910	182207	
==>"lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 217 <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5694	5828	
==>s;
        require "$pmc.dump";
 
        # there can be many libs
        my %libs = %{ $class->{flags}{lib} || {} };
        $pmc_lib <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5905	6039	
==>s;
        require "$pmc.dump";
 
        # there can be many libs
        my %libs = %{ $class->{flags}{lib} || {} };
        $pmc_lib <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129845	130138	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130584	130877	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":b <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21729	21864	
==>d be \"=end " . $curr_open->[-1][1]{'target'} . '")' )
            : ''
          )
        );
        DEBUG and print "Ignoring targetl <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	3266	3384	
==>before you can call get_token');
       
      DEBUG and print "$self 's source is filehandle $fh.\n";
      # Read tho <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	7033	7133	
==>ge is an hopefully portable way of having
# redirections ( tested on Linux and Win2k )
# An alternati <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8736	8824	
==>th_path($path);
}

=item C<path_for_directory_with_relative_path($path)>

Returns the pat <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	1847	1944	
==>>, I think
  ),
  
  '/item-bullet' => "</li><p$Lame></p>\n",
  '/item-number' => "</li><p$Lame></ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789775	789862	
==>et.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_string_keyed_int(interpreter, {{\@2}}, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790685	790772	
==>et.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_string_keyed_int(interpreter, {{\@2}}, {{\@ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	30413	30542	
==>push @Data_Stack, { type => $type, vals => [$e1, $e2] };
                $ok = _deep_check($$e1, $$e2);
                pop @Data_ <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1184	1291	
==>' and remove the -O1 option if it does.
        # This will prevent the 'optimization is not available in th <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	253	345	
==>n 5.002 and 5.003 without class membership tests:
my $CHECK_CLASS_MEMBERSHIP = ($] >= 5.003_9 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033532	1033757	
==>interpreter, lex_pad, lex_name, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034630	1034855	
==>interpreter, lex_pad, lex_name, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15001	15097	
==>y is to implement this as a mutually recursive multi-
sub which will be able to handle structures <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23385	23760	
==>AGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 31,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BOD <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	655	752	
==>Undefined';

# These are the Parrot file types excluding the ICU specifc ones.

my %type_for_suffi <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20043	20151	
==>f, $op, $R, $min, $max, $lastback) = @_;

    my ($rfail, $local_back, $back, $check, $next) =
      map { $s <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	40825	40930	
==>ift;
  my @max_len=(0)x3;
  for my $row(@$colref) {
    for(0..$#{$row}) {
      $max_len[$_]=length($row- <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3548	3671	
==>" ",@pmcfiles))
              or die "pmc2c library creation failed ($?)\n";
        }
    }
} 
elsif ($mode eq 'compile') { <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3652	3775	
==>" ",@pmcfiles))
              or die "pmc2c library creation failed ($?)\n";
        }
    }
} 
elsif ($mode eq 'compile') { <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9871	9977	
==>ck
			  and (		not exists($$states[$$stack[-1][0]]{ACTIONS})
			        or  not exists($$states[$$stack[- <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9426	9530	
==>ck
			  and (		not exists($$states[$$stack[-1][0]]{ACTIONS})
			        or  not exists($$states[$$stack[- <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4608	4697	
==>r C<restart
OFFSET($offset)>.

=item C<goto_address($address)>

Transforms the C<goto ADDR <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35137	35234	
==>elf->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my $decl = $self->decl($self-> <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36440	36537	
==>elf->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my $decl = $self->decl($self-> <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38387	38484	
==>elf->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my $decl = $self->decl($self-> <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26158	26276	
==>=> 36
		},
		GOTOS => {
			'exp' => 133,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 3 <==
3	/Users/nnunley/parrot/config/auto/gc.pm	801	903	
==>at allocator to use';

# valid libc/malloc/malloc-trace/gc
@args = qw(gc verbose);

sub runstep
{
    m <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	29181	29281	
==>har_ge_p {
}

sub _op_char_ci_eq_p {
}

sub _op_char_ci_lt_p {
}

sub _op_char_ci_gt_p {
}

sub _op_c <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2370	2474	
==>$right->value) unless $right_sym;
    $right_type = $right_sym->type;
  }
  else {
    $right_type = $rig <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2328	2432	
==>$right->value) unless $right_sym;
    $right_type = $right_sym->type;
  }
  else {
    $right_type = $rig <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2250	2354	
==>$right->value) unless $right_sym;
    $right_type = $right_sym->type;
  }
  else {
    $right_type = $rig <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	72396	72489	
==>e vars qw(\$skip \$AUTOLOAD $self->{localvars} );
\$skip = '$skip';
$self->{startcode}

{
loca <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544127	544228	
==>/ops/math.ops\"\n INTVAL gcd = 0;\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545463	545564	
==>/ops/math.ops\"\n INTVAL gcd = 0;\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546799	546900	
==>/ops/math.ops\"\n INTVAL gcd = 0;\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INT <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	53274	53394	
==>_variable($_[0], '') },
                sub { extract_quotelike($_[0],'') },
                sub { extract_codeblock($_[0 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20578	20669	
==>=66666
	lot$(2)="Goodbye"
	narf.first=909090
	poit(4).first=101010
end sub
dim narf as struc <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	21344	21434	
==>_variable($_[0], '') },
	sub { extract_quotelike($_[0],'') },
	sub { extract_codeblock($_[0 <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	993	1202	
==>e Config.pm.
generate_config_pm(%config);


# #############################################################################


# Get Parrot Configuration
# ########################
sub get_parrot_config <==
3	/Users/nnunley/parrot/config/gen/icu.pm	3244	3354	
==>aders =~ s![\\/]$!!;
        foreach my $header (@icu_headers) {
            $header = "$icuheaders/unicode/$he <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6029	6131	
==>ted to it if nothing has been
	# propogated there already.
	$pir .= <<'PIR';
if 0x${CURIC} == 0x45 goto <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3967	4069	
==>ted to it if nothing has been
	# propogated there already.
	$pir .= <<'PIR';
if 0x${CURIC} == 0x45 goto <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	25375	25488	
==>g_num} = bc.read_tstring()\n    next_pc += 4\n";
			$arg_name = "I_ARG_$arg_num";
		}

        # jumptable
		elsif <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	443	543	
==>ift;
  my ($block, $ident) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	443	543	
==>ift;
  my ($block, $ident) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	590	705	
==>20)-$l%64);
    $l = ($l-1)*8;
    $msg .= pack 'VV', $l & MAX , ($l >> 16 >> 16);
}


sub rotate_left($$) {
	#$_[0] <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	695	804	
==>t

sub new_group
{
    my $self = shift;
    
    return Parrot::Docs::Group->new(@_);
}

=item C<new($name, $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1224	1321	
==>' : '* ' }
sub start_item_number { $_[0]{'Thispara'} = $FREAKYMODE ? '' : "$_[1]{'number'}. "  }
s <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	32038	32179	
==>[0] eq 'L') {
        unshift @stack, $treelet->[$i]; # recurse
        next;
      }
      
      
      # By here, $treelet->[$i] is definit <==
3	/Users/nnunley/parrot/config/inter/libparrot.pm	1139	1258	
==>using a shared library?",
                $parrot_is_shared ? 'y' : 'n');

        $parrot_is_shared = lc($parrot_is_ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8459	8558	
==>print
for i = 1 to 20 step 4
  print c$(i);tab$(12);c$(i+1);tab$(22);c$(i+2);tab$(32);c$(i+3)
next
p <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21323	21422	
==>print
for i = 1 to 20 step 4
  print c$(i);tab$(12);c$(i+1);tab$(22);c$(i+2);tab$(32);c$(i+3)
next
p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100461	100753	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101894	102186	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102665	102957	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125741	126177	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rot",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126875	127311	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rot",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128010	128446	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rot",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 " <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	14562	14659	
==>e will be the code support for those needs. The
following is a list of future features planned for <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7494	7601	
==>on i gosub oats, peas, beans
next i
print
end
100 print "100!"
    goto FIN
200 print "200!"
    goto FIN
30 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19777	19884	
==>on i gosub oats, peas, beans
next i
print
end
100 print "100!"
    goto FIN
200 print "200!"
    goto FIN
30 <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	6280	6371	
==>ops(interpreter, 0);
/*
    run_compiled(interpreter, (opcode_t *)program_code, (opcode_t *) <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	44552	44654	
==>$temp;

  $self->{scope} = {};

  $temp = $self->_generate($tree);

  $self->_restore($temp);
  $self-> <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1080	1177	
==>rot::Test::path_to_parrot();
        my $dir_count      = scalar(File::Spec->splitdir($path_to_par <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1570	1662	
==>rot::Test::path_to_parrot();
        my $dir_count = scalar(File::Spec->splitdir($path_to_par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441591	441699	
==>\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442606	442714	
==>\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	42291	42375	
==>osers;
}

#-------------------------------------------------------------------------- <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	7320	7471	
==>m('', 'malloc'),
            $self->c_source_item('', 'malloc-trace'),
            $self->c_item(
                '', 
                'pairs' => ['reso <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4458	4564	
==>_num/$push_num/g;
		$push_num++;
	}

	# Return generated code.
	return $pir;
}

sub post_op($$) {
	# Nothin <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2874	2980	
==>_num/$push_num/g;
		$push_num++;
	}

	# Return generated code.
	return $pir;
}

sub post_op($$) {
	# Nothin <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2829	2953	
==>ctories)
    {
        return $dir->file_with_name($name)
            if $dir->file_exists_with_name($name);
    }
    
    p <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2660	2763	
==>.= <<'PIR';
strPC = ${PC}
${INS} = concat "LAB"
${INS} = concat strPC
${INS} = concat ": "
PIR

	# Retur <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	275	372	
==>coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statement::LoopControl;

use <==
3	/Users/nnunley/parrot/config/auto/cgoto.pm	523	636	
==>rrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $s <==
3	/Users/nnunley/parrot/config/auto/headers.pm	458	571	
==>rrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $s <==
3	/Users/nnunley/parrot/config/gen/cpu.pm	521	634	
==>rrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $s <==
3	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	1371	1534	
==>ns it.
# #####################################################
sub run_pir($) {
	my $pir_code = shift;
	
	# Write.
	my $fh;
	open $fh, "> __temp__.pir" or die "$!\n <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	9667	9784	
==>RP;

    return $file;
}

sub convert_line_endings {
    my ( $text ) = @_;

    $text =~ s/\cM\cJ/\n/g;
}

sub path_t <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	881	976	
==>types.pasm) subst(s/enum_class_(\\w+)/\$1/e) */
enum {
END_H

    my @pmcs = split(/ /, $conf->d <==
3	/Users/nnunley/parrot/Configure.pl	9005	9119	
==>::lex
    inter::yacc
    auto::gcc
    auto::msvc
    init::optimize
    inter::shlibs
    inter::libparrot
    in <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	39374	39468	
==>r empty or contains
only whitespace characters).
If the string is "", the the default behaviour <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	21	108	
==>ges/bc/lib/Parrot/Test/Bc.pm 18020 2006-03-26T19:46:16.084129Z bernhard  $

package Parr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	834	949	
==>self;
}

sub ident  { return shift->{IDENT};  }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	834	949	
==>self;
}

sub ident  { return shift->{IDENT};  }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler <==
3	/Users/nnunley/parrot/lib/Test/More.pm	2477	2574	
==>basic testing.

The purpose of this module is to provide a wide range of testing
utilities.  Vario <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1385	1505	
==>}


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $dest_ident = $self->dest;

  my $blo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1265	1385	
==>}


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $dest_ident = $self->dest;

  my $blo <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19660	19767	
==>mmar.y"
{ return op('multi_match' => [ 0, -1, TRUE, $_[1] ]); }
	],
	[#Rule 14
		 'expr', 3,
sub
#line 119 " <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	1109	1225	
==>tle "find" action for now.
    @files = ();
    File::Find::find({wanted => sub {
        if ( $File::Find::dir =~ m: <==
3	/Users/nnunley/parrot/config/gen/platform.pm	2691	2796	
==>wrong file rather than creating the
        # correct one from the above list in their $platform/ dir (e.g <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	2126	2218	
==>tkeys = 1;
use Data::Dumper;
print Data::Dumper->Dump([$m],["*MATCH_OBJECT"]);
my $mini = min <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33569	33686	
==>to @$para
            if($paras->[0][0] eq '~Para') {
              DEBUG and print "Assimilating following ~Para cont <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35382	35499	
==>to @$para
            if($paras->[0][0] eq '~Para') {
              DEBUG and print "Assimilating following ~Para cont <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	15436	15549	
==>es
        $op->body( $nolines ? $body : qq{#line $line "$file_escaped"\n$body} );

        # Constants here are d <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	6821	6956	
==>CallOp')
                and !exists $val->[1]->[-1]->{result}[0]->{pragma} )
            {
                my $callop = $val->[1]->[ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27641	27760	
==>el($parser);
    push @opcodes, new LabelOp( $parser,
        'arg1' => $l_continue,
    );
    foreach my $op ( @{$ <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	10627	10723	
==>ll.

== Testing Functions

- `use_ok (Str $module, Bool :$todo, Str :$depends) returns Bool`

*NO <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	3926	4019	
==>expected, $description)>

Compile the Parrot Intermediate Representation and generate Parrot A <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	4109	4202	
==>expected, $description)>

Compile the Parrot Intermediate Representation and generate Parrot A <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	4299	4392	
==>expected, $description)>

Compile the Parrot Intermediate Representation and generate Parrot A <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1385	1511	
==>) {
        $conf->data->set($util => $prog);
        $self->set_result('yes');
        return $self;
    }

    $prog = check_ <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1382	1508	
==>) {
        $conf->data->set($util => $prog);
        $self->set_result('yes');
        return $self;
    }

    $prog = check_ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	32927	33037	
==>? -1 : ref $b ? 1 : $a cmp $b } @$a2]
    );
}

=back


=head2 Extending and Embedding Test::More

Sometimes th <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	1070	1188	
==>rate) ],
    auto  => [ qw(cc_gen cc_build cc_run cc_clean cc_run_capture
                  capture_output check_progs) <==
3	/Users/nnunley/parrot/config/init/miniparrot.pm	233	329	
==>ettings to match miniparrot (ANSI C Parrot)'s needs.  This step
primarily  overwrites a lot of se <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	26235	26323	
==>> tags

	($extracted, $remainder) =
		extract_tagged($text,"BEGIN","END",undef,{bad=>["BE <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	37916	38018	
==>ser->YYData->{self} = BuildParam( $parser, 'self' );
}

sub BuildFunctionBody {
    my ( $parser, $ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23458	23552	
==>$self->_generate($node->{children}[$_]);
    my $label = $self->_gensym();
    $self->_add_inst <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23920	24014	
==>$self->_generate($node->{children}[$_]);
    my $label = $self->_gensym();
    $self->_add_inst <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	5813	5923	
==>ift->require('ident');         }
sub require_literal       { return shift->require('literal');       }
sub requ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948856	948963	
==>} = Parrot_string_trans_charset(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949656	949763	
==>} = Parrot_string_trans_charset(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/config/auto/jit.pm	1616	1739	
==>sname =~ /cygwin/i || $cpuarch =~ /cygwin/i) {
        $cpuarch = 'i386';
        $osname  = 'cygwin';
    }

    if ($archn <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2600	2709	
==>e($dest) . " if $val1 $test $val2;";
}

sub output_eq {
    my ($self, $val1, $val2, $dest) = @_;
    $self->o <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	513	619	
==>IPTION

This script extracts descriptions from the Parrot source files. If no
files are specified on the co <==
3	/Users/nnunley/parrot/Configure.pl	7408	7531	
==>config=none    can be used to disable the autodetection feature.
                        It will also be disabled if you spe <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2409	2528	
==>perties
    $args,            # Parsed Properties
    $self->file,
    $self->line
  );

#  $self->DEBUG(0, "Remembering <==
3	/Users/nnunley/parrot/tools/build/list_unjitted.pl	348	455	
==>r die "Damn can not open 'ops/ops.num': $!";

while(<OPS>){
    next if /^\s*#/ or /^\s*$/;
    if (my ($op) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586556	586693	
==>k"
                            ],
                  "BODY" => "#line 314 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587742	587879	
==>k"
                            ],
                  "BODY" => "#line 314 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interp <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39430	39535	
==>urn <<EOC;
$l
${decl} {
    $ret_def
    STRING *meth = CONST_STRING(interpreter, "__$meth");
    PMC *sub <==
3	/Users/nnunley/parrot/languages/converter.pl	2386	2526	
==>xt if /^\s*#/;
  if($in_rule) {
    if(/::=/) {
      push @rules,$_;
    }
    else {
      $rules[-1] .= "\n$_";
    }
  }
  else {
    if( <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2873	2990	
==>h_name($name)
            if $dir->file_exists_with_name($name);
    }
    
    print 'WARNING: ' . __FILE__ . ':' . _ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	21087	21186	
==>pos,	$second_arg,		# 2ND LDEL (MAYBE)
		$str2pos,	$rd2pos-$str2pos,	# 2ND STR (MAYBE)
		$rd2pos,	$se <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1549	1668	
==>t;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  my $dest_sym = $block->find_symbol <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1507	1626	
==>t;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  my $dest_sym = $block->find_symbol <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1429	1548	
==>t;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  my $dest_sym = $block->find_symbol <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1671	1799	
==>.

Accepts no arguments and returns a L<Parrot::Configure::Data> object.

=cut

sub data
{
    my $self = shift;

    return $sel <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6066	6158	
==>ogated there already.
	$pir .= <<'PIR';
if 0x${CURIC} == 0x45 goto POST_BRANCH_switch_${CURIC <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4004	4096	
==>ogated there already.
	$pir .= <<'PIR';
if 0x${CURIC} == 0x45 goto POST_BRANCH_switch_${CURIC <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5599	5698	
==><$key> under the name C<$trigger>

Accepts a key name & a trigger name and returns a C<CODE> ref.

= <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2778	2869	
==>ct::Type::Integer');
  $self->SYNTAX_ERROR("Can only do bitwise ops on integers") unless UNI <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2908	2999	
==>ct::Type::Integer');
  $self->SYNTAX_ERROR("Can only do bitwise ops on integers") unless UNI <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	12279	12373	
==>kwards compatibility as well.

- `eval_ok (Str $code, Str $desc?, Bool :$todo, Str :$depends) r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612973	613065	
==>object.ops\"\n    VTABLE_set_attr_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613880	613972	
==>object.ops\"\n    VTABLE_set_attr_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20651	20754	
==>ame} = '__ACTION' . ++$_[1]->{actcount} .'__'; }

sub new
{
	my $class = ref($_[0]) || $_[0];
	bless 
	{ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	5049	5149	
==>n a link will be made to that file's
documentation file.

=cut

sub process_file_start_token
{
    my <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	1674	1774	
==>nce) cans chick peas or garbanzo beans, drained and rinsed
 * juice of one smallish lime
 * a dash of <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100445	100744	
==>, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FL <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	68	176	
==>Pod::Simple::Methody ();
use Pod::Simple ();
use vars qw( @ISA $VERSION $FREAKYMODE);
$VERSION = '2.02';
@ISA <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	34460	34576	
==>it\" as manpage link.\n";
          $treelet->[$i][1]{'type'} = 'man';
          # This's the only place where man li <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019756	1019853	
==>ne 192 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  char resultbu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020687	1020784	
==>ne 192 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  char resultbu <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	1464	1590	
==>" CLASS="BANNER">parrotcode: <SPAN CLASS="title">$title</SPAN></TD>
            </TR>
            <TR>
                <TD WIDT <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	7653	7815	
==>dump );

    my %vtable = (
        flags   => {},
        pre     => '',
        post    => '',
    );
    my %meth_hash;
    my $i = 0;
    foreach my $entry (@$ <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	11860	11966	
==>nless iter2 goto inner_done
    $P2 = shift iter2
    if $P1 == $P2 goto outer_loop # result must be withou <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	17097	17190	
==>token )

=item $parser->unget_token( $token1, $token2, ... )

This restores the token object(s <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	11866	11996	
==>nlib',
             'readline' => 'define',
             'revision' => 0,
             'rm_f' => 'perl -MExtUtils::Command -e rm_f' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64376	64633	
==>],
                  "TYPE" => "function",
                  "CODE" => 84,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 981 \"src/ops/core <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	2734	2838	
==>parser) = @_;

    my $symbtab = shift @{ $parser->YYData->{scope} };
    $parser->YYData->{symbtab} = <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1825	1977	
==>tual commands
sub compile_cmd {
    my ($target, $source) = @_;

    return
        "$CC $CFLAGS " .
        "-o " . $target . " " .
        "-I" . $PATH <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2121	2273	
==>tual commands
sub compile_cmd {
    my ($target, $source) = @_;

    return
        "$CC $CFLAGS " .
        "-o " . $target . " " .
        "-I" . $PATH <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1916	2068	
==>tual commands
sub compile_cmd {
    my ($target, $source) = @_;

    return
        "$CC $CFLAGS " .
        "-o " . $target . " " .
        "-I" . $PATH <==
3	/Users/nnunley/parrot/config/inter/lex.pm	2285	2396	
==>)/x) {
        $conf->data->set(flex_version => "$1.$2.$3");
    }

    $conf->data->set($util => $prog);
    $s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	13408	13514	
==>elf->{'errata'}};

  my @out;
  
  foreach my $line (sort {$a <=> $b} keys %{$self->{'errata'}}) {
    push <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	525	617	
==>)>

Dynamically creates the Configuration section's groups by studying the
contents of C<@Par <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13504	13614	
==>er
    s/SELF/pmc/g;
    s/\bINTERP\b/interpreter/g;

    # now use macros for all rewritten stuff
    s/\b(?:\ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2863	2955	
==>ext::Wrap::wrap($indent, $indent, $self->{'Thispara'} .= "\n");
  $out =~ tr{\xA0}{ } if Pod: <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2397	2489	
==>ext::Wrap::wrap($indent, $indent, $self->{'Thispara'} .= "\n");
  $out =~ tr{\xA0}{ } if Pod: <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	6683	6798	
==>int $out if $print;
    my $result = eval $out;
    carp $@ if $@;
}

sub _usage_error {
    confess "struct usage e <==
3	/Users/nnunley/parrot/config/inter/lex.pm	393	509	
==>gure::Step::Base);

use Parrot::Configure::Step qw( :inter capture_output check_progs );

$util        = 'lex';
$desc <==
3	/Users/nnunley/parrot/config/inter/make.pm	387	492	
==>gure::Step::Base);

use Parrot::Configure::Step qw( :inter capture_output check_progs );

$util        = ' <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	388	493	
==>gure::Step::Base);

use Parrot::Configure::Step qw( :inter capture_output check_progs );

$util        = ' <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	14670	14773	
==>sion of like(), sans the useful diagnostic messages,
could be written as:

  sub laconic_like {
      my <==
3	/Users/nnunley/parrot/lib/File/Which.pm	5670	5761	
==>hich($short_exe_name)> in array context. Same as the
C<`where'> utility, will return an arra <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8178	8267	
==>as made by Christian Lackas <delta@clackas.de>.

=cut

__DATA__
FF,$a,$b,$c,$d,$_[4],7,0xd <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	10185	10330	
==>nd forget the op so we can start the next
        # one.
        #

        if (/^}\s*$/)
        {
            $count += $self->make_op($count, $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170390	170480	
==>\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171331	171421	
==>\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	2873	2997	
==>.return($ret_val)");
  }

  #
  # Go to the subroutine exit point:
  #
  # TODO: Isn't this really a no-op, after doing a .re <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	783	892	
==>up some constants:

BEGIN {
  if(defined &ASCII)    { }
  elsif(chr(65) eq 'A') { *ASCII = sub () {1}  }
  els <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	18821	18923	
==>w(interpreter, enum_class_Hash);
        VTABLE_set_pmc_keyed_int(interpreter, iglobals, IGLOBALS_NCI_F <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1235	1343	
==>nt == 0) {
          $path_to_language = File::Spec->join('languages', $language);
        } elsif ($dir_coun <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1720	1828	
==>nt == 0) {
          $path_to_language = File::Spec->join('languages', $language);
        } elsif ($dir_coun <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	195886	196182	
==>> "lt_num",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	45919	46067	
==>yp"
{
            print "Error (program)\n";
        }
	],
	[#Rule 3
		 'chunk', 3,
sub
#line 57 "Lua\lua51.yp"
{
            [ @{ $_[1] }, <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	1813	1924	
==>|| $Latin1Code_to_fallback{$in} # Fallback.
        || $FAR_CHAR; # Fall further back
  }
  
  # Normal handling <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	937	1063	
==>eader in the standard
    # Fink location. TODO: Need a more generalized way for finding
    # where Fink lives.
    if ($osnam <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	1136	1262	
==>eader in the standard
    # Fink location. TODO: Need a more generalized way for finding
    # where Fink lives.
    if ($osnam <==
3	/Users/nnunley/parrot/config/auto/readline.pm	1211	1337	
==>eader in the standard
    # Fink location. TODO: Need a more generalized way for finding
    # where Fink lives.
    if ($osnam <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1367	1468	
==>need a stack depth and a string for label gen and some
	# storage for stack depths and stack type stat <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	454	555	
==>need a stack depth and a string for label gen and some
	# storage for stack depths and stack type stat <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7527	7725	
==>/
                or  die "In line rule name '$lhs' ill formed: ".
                        "report it as a BUG.\n";
                $$dotpos = $1;
            };

            @sempar =       $$ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7182	7374	
==>/
                or  die "In line rule name '$lhs' ill formed: ".
                        "report it as a BUG.\n";
                $$dotpos = $1;
            };

            @sempar =       $$ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	15135	15271	
==>$cont) {
          $self->SYNTAX_ERROR("No more than one else block allowed.");
        }
      }

      #
      # Handle the ending of s <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	18726	18847	
==>$::paren ]);
     $::paren = 0; # FIXME!
     return $op;
   }
	],
	[#Rule 5
		 'regex', 2,
sub
#line 97 "lib/Regex/Gramma <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2084	2183	
==>refix and $self->peer and $self->peer->prefix) {
    $self->prefix($self->peer->prefix);
  }

  if ( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1961	2060	
==>refix and $self->peer and $self->peer->prefix) {
    $self->prefix($self->peer->prefix);
  }

  if ( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	4328	4443	
==>imcc_type $arg_name");
      $sig .= $arg_type->code;
    }

    $sig =~ tr[INPS][ifpt]; # Defaults.

    my $fn_nam <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	18189	18295	
==>Applying precooked treelet hack to $_[0][0]\n";
    $treelet = $_[0][0];
    splice @$treelet, 0, 2;  # lop <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3641	3739	
==>nst foo[] = { "foo", "bar" };

=head1 DEPENDENCIES

Uses F<tools/dev/nm.pl> to list the symbols.

= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253209	253527	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254071	254389	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254934	255252	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	11192	11350	
==>) {
               (undef, my $file, my $line) = caller();
               $desc = "($file line $line)";
            }

            # $test_no will be part of t <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	16677	16835	
==>) {
               (undef, my $file, my $line) = caller();
               $desc = "($file line $line)";
            }

            # $test_no will be part of t <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	714	853	
==>sc',
    STR_CONST    => 'sc',
    INT_REG      => 'i',
    NUM_REG      => 'n',
    PMC_REG      => 'p',
    STRING_REG   => 's',
    STR_R <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	8097	8210	
==>_info{$cur_f}{flags} = $f;
		    print "# $cur_f; flags=$f\n";
		}
		elsif (/# varnames\s+\((.*)\)/) {
		    my $v <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	554	647	
==>Group );

use Parrot::Docs::Item;
use Parrot::Docs::Directory;
use Parrot::Docs::HTMLPage;

=i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	493	578	
==>:If;
use Jako::Construct::Block::Conditional::Unless;
use Jako::Construct::Block::File <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109662	109884	
==>_bitwise_or(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110441	110663	
==>_bitwise_or(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554327	554612	
==>=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PAR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555724	556009	
==>=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PAR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556961	557246	
==>=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PAR <==
3	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	2222	2326	
==>$src, "miniparrot/$src");
    }
}

sub copy_src {
    print "** $0: copying source files to miniparrot di <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4915	5009	
==>OR' };
	my($errstatus,$nberror,$token,$value,$stack,$check,$dotpos)
     = @$self{ 'ERRST', ' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4674	4766	
==>OR' };
	my($errstatus,$nberror,$token,$value,$stack,$check,$dotpos)
     = @$self{ 'ERRST', ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302784	303015	
==>RGS" => [
                              "i",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 980 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(i <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3770	3897	
==>turn;
}

sub _morph {
  my ($self, $to, $from) = @_;

  if ($to =~ /P/) {
    if ($from =~ /P/) {
      $self->_add_inst ('', 'c <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	25824	25941	
==>mmds) {
        next if $dynpmc eq $classname;
        $cout .= <<"EOC";
        assert(my_enum_class_$dynpmc != enum_ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	26338	26487	
==>x'};
        if( $type eq 'HASH' ) {
            $var .= "->" unless $did_arrow++;
            $var .= "{$idx}";
        }
        elsif( $type eq 'AR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035398	1035499	
==>ntext_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@2}};\n    PMC * co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036562	1036663	
==>ntext_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@2}};\n    PMC * co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156365	156685	
==>"
                               ],
                  "TYPE" => "function",
                  "CODE" => 189,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 134 \"src/ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12628	12784	
==>$global->[0];
                foreach my $key2 ( @{$var} ) {
                    my $result2 = new_tmp( $parser, 'pmc' );
                    push @opcode <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/State.pm	452	555	
==>= ++$self->{_markers}->{$desc};
    $number = '' if ($number == 1) && ($desc ne '');
    return $self->l <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	7440	7553	
==>);
        return rop('check', [ $t->minlen() + $follow_min, $newtree ]);
    }

    # Shortest possible subtree m <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	19228	19332	
==>Use of struct() in a subclass prohibited.
    User definition of accessor allowed.
    Treatment of '*' i <==
3	/Users/nnunley/parrot/languages/scheme/Scheme.pm	1220	1316	
==>f = shift;

  $self->{tokens} = Scheme::Tokenizer::tokenize($self->{file});
  $self->{tree}   = S <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	42630	42723	
==>rformance is typically twice as good as the more general-purpose
C<extract_tagged>.


=head2 C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924388	924474	
==>tring.ops\"\n  {{\@1}} = string_make_empty(interpreter, enum_stringrep_one, {{\@2}});\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925179	925265	
==>tring.ops\"\n  {{\@1}} = string_make_empty(interpreter, enum_stringrep_one, {{\@2}});\n <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	890	1033	
==>lter => 1,
    list => 1,
    long => 1,
    int => 1,
    map => 1,
    max => 'v',
    min => 'v',
    range => 1,
    xrange => 1,
    reduce <==
3	/Users/nnunley/parrot/config/auto/format.pm	840	956	
==>$ivformat = "%ld";
    } elsif (($iv eq "long long") || ($iv eq "long long int")) {
        $ivformat = "%lld";
    } <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4159	4260	
==>, "   ...converting right...");
    my $temp = $compiler->temp_reg($calc_type);
    $right = $right->c <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2374	2478	
==>ributes => { kind => $self->kind } });
  }

  if ($self->op) {
    $handler->start_element({ Name => 'blo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2251	2355	
==>ributes => { kind => $self->kind } });
  }

  if ($self->op) {
    $handler->start_element({ Name => 'blo <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	14367	14465	
==>nding
character (like space, for 32).  Only characters 32 to 126 are
defined.  This is meant for us <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123868	124125	
==>1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124742	124999	
==>1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125616	125873	
==>1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	329391	329610	
==>({{\@2}}->vtable->get_number(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	330869	331088	
==>({{\@2}}->vtable->get_number(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	28322	28434	
==>eelet = shift @stack) {
    for($i = 2; $i < @$treelet; ++$i) { # iterate over children
      next unless ref $tr <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	294	391	
==>x;

=head1 NAME

Test/Bc.pm - Testing routines specific to 'bc'.

=head1 DESCRIPTION

Call 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	4028	4141	
==>->path);
}

=item C<delete()>

Removes the instance from the cache, and undefines it.

=cut

sub delete
{
    # Us <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	25070	25170	
==>) and can() doesn't like getting undef
           UNIVERSAL::can((tied($maybe_fh) || ''), 'TIEHANDLE' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516288	516662	
==>e",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 595,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	936	1041	
==>eq 'start_line' and $_[0]{'hide_line_numbers'};
        _xml_escape($value = $_[2]{$key});
        print $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	753	854	
==>eq 'start_line' and $_[0]{'hide_line_numbers'};
      _xml_escape($value = $_[2]{$key});
      print $ <==
3	/Users/nnunley/parrot/config/inter/types.pm	886	1028	
==>tegers to be?", $intval);
        $floatval = prompt("And your floats?",                                $floatval);
        $opcode   = prompt( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1168	1273	
==>!
    LINE  => defined $value ? $value->line : undef, # TODO: YUCK!
  }, $class;

  $block->push_content($ <==
3	/Users/nnunley/parrot/config/auto/va_ptr.pm	185	280	
==>nversion test

=head1 DESCRIPTION

Tests which kind of PARROT_VA_TO_VAPTR to use.

=cut

package <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13012	13099	
==>* loc;\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  S <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13856	13943	
==>* loc;\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  S <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1816	1916	
==>apture_output($prog, '--version');

    # don't override the user even if the program they provided a <==
3	/Users/nnunley/parrot/config/inter/make.pm	1690	1790	
==>apture_output($prog, '--version');

    # don't override the user even if the program they provided a <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1830	1930	
==>apture_output($prog, '--version');

    # don't override the user even if the program they provided a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598211	598473	
==>\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599258	599520	
==>\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600333	600595	
==>\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243999	244257	
==>\n  {{\@1}} = string_compare(interpreter, l, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244931	245189	
==>\n  {{\@1}} = string_compare(interpreter, l, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	4351	4448	
==>n at $sourceline --  $syms[CURR]" if ($syms[CURR] ne "then");
		$singleif=1 if ($type[NEXT] ne "ST <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90384	90803	
==>RGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 112,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	8282	8392	
==>E;
      open(PODSOURCE, "<$_[0]") || Carp::croak "Can't open $_[0]: $!";
      $handle = *PODSOURCE{IO};
    } <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	4939	5036	
==>ompiler->emit("  __func(" . join(", ", map({ $_->[1]} $self->args)) . ")");
      $compiler->emit( <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	8192	8333	
==>ariables:
        * c-indentation-style: bsd
        * c-basic-offset: 4
        * indent-tabs-mode: nil
        * End:
        *
        * vi <==
3	/Users/nnunley/parrot/tools/build/vtable_extend.pl	3088	3187	
==>ariables:
 * c-indentation-style: bsd
 * c-basic-offset: 4
 * indent-tabs-mode: nil
 * End:
 *
 * vi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	3139	3228	
==>');
  $self->SYNTAX_ERROR("Can't do arithmetic on strings") if UNIVERSAL::isa($right_type, <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1374	1498	
==>anguage = $language;
        } elsif ($dir_count == 2) {
          $path_to_language = '.';
        } elsif ($dir_count >2) { <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1859	1983	
==>anguage = $language;
        } elsif ($dir_count == 2) {
          $path_to_language = '.';
        } elsif ($dir_count >2) { <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	46432	46548	
==>rminal newline
  for( my $i = $#$p; $i >= 2; $i-- ) {
    # work backwards over the tokens, even the first
    if( !r <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	6721	6849	
==>ype, name and args.
        # We query the Parrot::Op for the op size, etc., which we use later.
        #
        # Either of th <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	46416	46527	
==>nd remove the terminal newline
  for( my $i = $#$p; $i >= 2; $i-- ) {
    # work backwards over the tokens, even <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	6118	6262	
==>$1) if $1;
        $pir .= "  \$S0 = $args[$2] \n";
        $pir .= "  pir .= \$S0 \n";
    }
    
    # catch anything at the end
    $pir .= $c <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4520	4620	
==>em C<ops_addr_decl($base_suffix)>

Returns the C code for the ops address declaration.

=cut

sub ops <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	2996	3093	
==>orms to C<< PC' = <pop> >>. Pops the address off control stack.

=item C<expr OFFSET(X)>

Transfor <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557871	557960	
==>{\@1}};\n  meth = {{\@2}};\n  interpreter->current_cont = CONTEXT(interpreter->ctx)->curre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559255	559344	
==>{\@1}};\n  meth = {{\@2}};\n  interpreter->current_cont = CONTEXT(interpreter->ctx)->curre <==
3	/Users/nnunley/parrot/config/init/defaults.pm	6275	6415	
==>ator
        # lex  = Automatic lexer  generator
        # Some systems may lack these
        yacc => 'bison -v -y',
        lex  => 'flex', <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	430	531	
==>description = 'Determining if your platform supports GMP';

@args = qw(verbose);

sub runstep
{
    my <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9613	9702	
==>}

=item C<relative_path_is_directory($path)>

Returns whether the specified relative path <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29899	29997	
==>d::Const Instance Methods

Returns the C code for the method body.

=over 4

=cut

package Parrot:: <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4202	4298	
==>(my ($group, $pmcs) = each %$group_files) {
        partial_link($group, $group_libs->{$group}, [ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4306	4402	
==>(my ($group, $pmcs) = each %$group_files) {
        partial_link($group, $group_libs->{$group}, [ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3860	3973	
==>.c
    for my $group (keys %$group_files) {
        compile("$group", "lib-$group")
          or die "compile $gro <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3964	4077	
==>.c
    for my $group (keys %$group_files) {
        compile("$group", "lib-$group")
          or die "compile $gro <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9894	9987	
==>n -d $path;
}

=item C<relative_path_is_file($path)>

Returns whether the specified relative p <==
3	/Users/nnunley/parrot/examples/benchmarks/oo5.pl	170	291	
==>] ? ref shift : shift;
    return bless [ 10, 20 ], $self;
}

sub i {
    my $self = shift;
    if (@_) { $self->[0] = shi <==
3	/Users/nnunley/parrot/examples/benchmarks/oo6.pl	162	283	
==>] ? ref shift : shift;
    return bless [ 10, 20 ], $self;
}

sub i {
    my $self = shift;
    if (@_) { $self->[0] = shi <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	2656	2761	
==>would be tests needed, that check for vital classes

    # names of class files for src/pmc/Makefile
    ( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511006	511243	
==>ops/math.ops\"\n  {{\@1}} = - {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511744	511981	
==>ops/math.ops\"\n  {{\@1}} = - {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	8484	8587	
==>thod->{parameters};
    $args = ", $args" if $args =~ /\S/;
    my ($export, $extern, $newl, $semi, $int <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	6897	7045	
==>.local \s+ (\w+) \s+ (.+)$/mx) {
            my @vars = split /\s*,\s*/, $2;
            
            $locals{$_} = 1 for @vars;
            $code .= <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	5436	5545	
==>->YYData->{keyword}{$idf} ) {
        return ( $parser->YYData->{keyword}{$idf}, $idf );
    }
    return ( <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39235	39344	
==>e, $minrep, $maxrep, $leftarg, $op, $rightarg) = @_;

	bless 
	{
		"type"      => "${type}op",
		"leftarg"   = <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33999	34107	
==>t_def = "$type ret_val;";
        $func_ret = $self->gen_ret($method->{type});
        $ret = "return ret_val <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38961	39069	
==>t_def = "$type ret_val;";
        $func_ret = $self->gen_ret($method->{type});
        $ret = "return ret_val <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	71	164	
==>ot/Vtable.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Vtable - Func <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563125	563446	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addmethod",
                  "FLAGS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564022	564343	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addmethod",
                  "FLAGS" <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	3979	4068	
==>R(__LINE__))
#define __PARROT_STATIC_STR(line) CONCAT(&static_string_, line)

#if ! DISABL <==
3	/Users/nnunley/parrot/config/auto/pack.pm	2192	2309	
==>ger constant type we can use
    # for pointers.
    #

    if ($intsize == $ptrsize) {
        $conf->data->set(ptrco <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39227	39334	
==>ss, $type, $minrep, $maxrep, $leftarg, $op, $rightarg) = @_;

	bless 
	{
		"type"      => "${type}op",
		"le <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5074	5178	
==>set(@_));
}

=item C<goto_pop()>

Transforms the C<goto POP($address)> macro in an ops file into the
rele <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1258	1367	
==>shift->{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1249	1358	
==>shift->{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1138	1247	
==>shift->{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	25445	25610	
==>in ignore mode.\n";
      next;
    }
    #~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
    # ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2089	2197	
==>ift;
    my($retval);

	_CheckParams( \@params, \%params, \@_, $self );

	if($$self{DEBUG}) {
		_DBLoad <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2013	2115	
==>ift;
    my($retval);

	_CheckParams( \@params, \%params, \@_, $self );

	if($$self{DEBUG}) {
		_DBLoad <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	250346	250719	
==>core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 291,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" <==
3	/Users/nnunley/parrot/languages/regex/test.pl	2212	2322	
==>gs!";
    }
}

usage "not enough args: testfile required"
  if ! defined $testfile && ! defined $pattern;

if ( <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	29522	29628	
==>o = BuildLiteral( $_[0], 0, 'number' );
    push @opcodes, @{ $zero->[1] };
    push @opcodes, new Branch <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	6423	6546	
==>offset(-$1) . "; {{=0}}"; /me;

    s/{{=\*}}/            $trans->goto_pop();       /me;

    s/{{\+=([^{]*?)}}/    $trans-> <==
3	/Users/nnunley/parrot/config/init/defaults.pm	732	849	
==>>get('debugging') ? 1 : 0,
        optimize  => '',
        verbose   => $conf->options->get('verbose'),
        build <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2112	2207	
==>cursive \" find . \".\n\n".
		"--plus-misses creates a second section, with the heads of any\n". <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459610	459846	
==>S" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 282 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556613	556711	
==>n  PMC *method_pmc, *object;\n  opcode_t *next;\n\n  object = {{\@1}};\n  method_pmc = {{\@2}};\n\n <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	60	184	
==>ywords);
use strict;

my $retcount=200;
my $currentexpr;

@builtins=qw( 	abs      	asc      	atn
	      	cdbl		chr$		cint
		c <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5471	5563	
==>ort"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}

${IN <==
3	/Users/nnunley/parrot/config/init/hints/msys.pm	2	92	
==>Copyright (C) 2005, The Perl Foundation.
# $Id: /parrot/config/init/hints/msys.pm 19593 200 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714712	714807	
==>ts(interpreter, io, \" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n    PIO_so <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715635	715730	
==>ts(interpreter, io, \" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n    PIO_so <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716580	716675	
==>ts(interpreter, io, \" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n    PIO_so <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	3968	4082	
==>= $step_name->new;

        # XXX This works. but is probably not a good design.
        # Using $step->description <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10842	10949	
==>er {
    my $op = shift;
    return join('', map { $_->render() } @{ $op->{args} });
}

sub Regex::Ops::Tree <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	689	796	
==>rrot_coverage";
my $DEBUG   = 1;

if ($ARGV[0] && $ARGV[0] =~ /recompile/) {

    # clean up remnants of pri <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2788	2881	
==>utcounts=0;
sub input_read_assign {
	my($prompt,$filedesc,$noreloop)=@_;
	my @values=();

	pus <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540431	540541	
==>-{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541683	541793	
==>-{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542935	543045	
==>-{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	4512	4619	
==>= $self->pass1(rop('alternate', \@children), $ctx);
        @{ $t->{args} } = ($opt, $leftovers);
        re <==
3	/Users/nnunley/parrot/tools/dev/symlink.pl	1021	1116	
==>.\n";
}

my @toolsrcdir = File::Spec->splitdir($toolsrcdir);
die "$self: not in tools/dev\n"
  u <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3838	3929	
==>size(32);
  $new->head2_halfpoint_size(28);
  $new->head3_halfpoint_size(25);
  $new->head4_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30090	30195	
==>$over->[1]{'start_line'};

        } elsif($over_type eq 'block') {
          unless($curr_open->[-1][1]{' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023343	1023440	
==>tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_localtime_r(&t, &tm);\n  {{\@1}} = tm_to_ar <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024193	1024290	
==>tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_localtime_r(&t, &tm);\n  {{\@1}} = tm_to_ar <==
3	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	1030	1131	
==>as been told about new generated files.
# 
# Ignore the SVN directories
\B\.svn\b

# debian/ should no <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3885	3985	
==>as been told about new generated files.
#
# Ignore the SVN directories
\B\.svn\b

# debian/ should no <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	19458	19595	
==>: '*'
      ) {
        DEBUG > 2 and
         print " Considering whether =begin $content matches $target_name\n";
        next unless $s <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	5983	6103	
==>line =~ m/^#CONDITIONED_LINE\(([^)]+)\):(.*)/s) {
                next unless $conf->data->get($1);
                $line <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8297	8418	
==>DDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLAGS" => ":base_loop,check_event <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9412	9533	
==>DDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLAGS" => ":base_loop,check_event <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	17942	18062	
==>Sets/gets the version number.

=cut

sub version
{
    my $self = shift;

    if (@_ == 1)
    {
        $self->{VERSION} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	28096	28207	
==>cted case: we're closing the most recently opened thing
        #my $over = pop @$curr_open;
        $self->{'co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29383	29483	
==>rpreter->ctx);\n    ccont = ctx->current_cont;\n\n    caller_ctx = ctx->caller_ctx;\n    pc = parrot_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164812	165078	
==>reter, {{\@1}}, {{\@2}}) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165741	166007	
==>reter, {{\@1}}, {{\@2}}) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166670	166936	
==>reter, {{\@1}}, {{\@2}}) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	6185	6314	
==>{
      name       => $_,
      categories => $branches{$_},
    }} sort {
		($a eq "trunk" ? -1 : 0) ||
		($b eq "trunk" ? 1 : 0) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2424	2524	
==>pe = $right->type;
  }

  $self->INTERNAL_ERROR("No type for dest!")  unless defined $dest_type;
  $s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2346	2446	
==>pe = $right->type;
  }

  $self->INTERNAL_ERROR("No type for dest!")  unless defined $dest_type;
  $s <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2765	2910	
==>\//
                and $parser->Error("Invalid escape sequence $_ .\n"),
                last;
        }
    }

    $parser->Error("Untermi <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4280	4425	
==>\//
                and $parser->Error("Invalid escape sequence $_ .\n"),
                last;
        }
    }

    $parser->Error("Untermi <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	9592	9687	
==>e);

  $self->_add_inst("FALSE_$label");
  my $false = $self->_generate(_get_arg($node,3));
  $s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296086	296189	
==>= &{{\@3}})\n    {{\@1}} = 1;\n  else\n    {{\@1}} = mmd_dispatch_i_pp(interpreter, {{\@2}}, {{\@3}}, MM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	817404	817590	
==>:base_core",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 925,
                  "ARGS" => [],
                  "BODY" => "#line 6 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	817886	818072	
==>:base_core",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 926,
                  "ARGS" => [],
                  "BODY" => "#line 4 <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1773	1879	
==>C<goto_offset()>.

=cut

sub expr_pop
{
    my ($self) = @_;

    return "pop_dest(interpreter)";
}

our %a <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	7260	7365	
==>t::diag("  Failed ($todo) test ($?CALLER::CALLER::CALLER::POSITION)");
    }
    else {
        Test::diag <==
3	/Users/nnunley/parrot/config/inter/charset.pm	9	99	
==>ht (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/config/inter/charset.pm 19593 2006-05 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58899	59170	
==>( {
                  "JUMP" => 0,
                  "NAME" => "warningson",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59546	59817	
==>( {
                  "JUMP" => 0,
                  "NAME" => "warningson",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	5466	5566	
==>->require('assign');        }
sub require_close_brace   { return shift->require('close-brace');   }
s <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	2924	3093	
==>)\]\s*$/) {
            # If we have a current rule...
            my $name = $1;
            if ($rule) {
                # Validate it.
                validate_rule($r <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	7091	7195	
==>has_method}{$meth} = $i++;
	    push @{ $const->{methods} }, {
		meth => "$meth",
		type => $entry->{type <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19529	19621	
==>on, assuming that that section
isn't terribly long.

(This method tolerates "AUTHORS" instead <==
3	/Users/nnunley/parrot/lib/Test/More.pm	10476	10608	
==>t (foo.t at line 12)
    #     '23'
    #         &&
    #     undef

It's also useful in those cases where you are comparing numbers <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	17086	17207	
==>t, $type, $expect) = @_;
    
    $got    = defined $got    ? "'$got'"    : 'undef';
    $expect = defined $expect ? "'$ex <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48761	48873	
==>);
					_error("Incorrect specification of a repeated directive",
					       $line);
					_hint("Repeated direct <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	3237	3347	
==>ml =~ /DEVEL: -?(\w+)/        and $smoke{DEVEL}        = $1;
  $html =~ /harness_args: (.+)$/m  and $smoke{harn <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804272	804360	
==>{{\@1}}->vtable->set_pmc_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805173	805261	
==>{{\@1}}->vtable->set_pmc_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n", <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	5791	5918	
==>urn runtests(@files);
    } else {  
        return;
    }
}

##
## my $string = unescape( $original )
##
## Unescape backslashe <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296745	297014	
==>line",
                  "CODE" => 345,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 970 \"src/ops/cmp.ops\"\n  {{\ <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	34673	34790	
==>CE_plus_0 {
    my ($n, $c, $cmt) = @_;
    my $agg = pop @stack;
    print <<EOC;
	$agg->[1] = 0
EOC
}

sub Del_Slice <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	448945	449195	
==>,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630672	630901	
==>s));\n    {{\@1}} = pmc_new(interpreter, type);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631662	631891	
==>s));\n    {{\@1}} = pmc_new(interpreter, type);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305652	305890	
==>LL({{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307221	307459	
==>LL({{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/languages/converter.pl	1007	1099	
==>terminal(?) '[' production ']' mod(?) production(?)
		| terminal(?) '[' production ']' produc <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33967	34074	
==>e = $method->{type};
        $ret_def = "$type ret_val;";
        $func_ret = $self->gen_ret($method->{type} <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38929	39036	
==>e = $method->{type};
        $ret_def = "$type ret_val;";
        $func_ret = $self->gen_ret($method->{type} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1427	1525	
==>can use this class as the base class for a Pod formatter/processor.

=head1 METHOD CALLING

When Po <==
3	/Users/nnunley/parrot/examples/benchmarks/addit.pl	497	634	
==>rgs_adder {
    my $sum = 0;
    for (my $a = $#_; $a >= 0; --$a) {
        $sum += $_[$a];
    }
    return $sum
}
my $result = 0;
my @ar <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74205	74317	
==>$_savetext = $text;
		my $prevtextlen = length $text;
		my $_tok;
		if (! defined ($_tok = &$prod($parser,$text,1 <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45454	45549	
==>my $AUTOSCOREMK		= '\G\s*<autoscore:';
my $SKIPMK		= '\G\s*<skip:';
my $OPMK		= '\G\s*<(left|rig <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	9457	9571	
==>A' || $omode eq 'MAX';
				_failmsg "Found unbalanced nested tag: $tag",
					 pos $$textref;
				goto failed;
			} <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5491	5596	
==>ift;
    return <<'PIR';
# See if we've got a return or something to call.
if ${ARGCOUNT} == 0 goto PRE_CA <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6936	7040	
==>ift;
    return <<'PIR'
# See if we've got a return or something to call.
if ${ARGCOUNT} == 0 goto PRE_CA <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18547	18650	
==>L= ""
	ret
RETURN1
	} else {
		feedme();   # Special "Return Label"
		push @{$code{$seg}->{code}}, <<RET <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3279	3382	
==>/(^")|("$)//g; # Delete leading and trailing quotes;

    $name =~ s/^.*:://; # Delete namespaces from o <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2495	2591	
==>lse print "Wrong"
if 5>=5 then print "Ok" else print "Wrong"
if 4>=5 then print "Wrong" else prin <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	2265	2364	
==>$index = $self->pos unless defined $index;

  $count = 1 unless defined $count;

  $self->INTERNAL_E <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8575	8656	
==>ON","CHART","COMPUTER"
data "DAMAGES","DESTRUCT","DOCK","IDLE","IMPULSE","LRSCAN", <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21439	21520	
==>ON","CHART","COMPUTER"
data "DAMAGES","DESTRUCT","DOCK","IDLE","IMPULSE","LRSCAN", <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1537	1656	
==>s>, $distance # pos++",
            "gt <rx_pos>, <rx_len>, $failLabel # past end of input?",
            'set <rx_match <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5776	5878	
==>ping...\n";
			} else {
				push @{$code{$seg}->{code}}, "IFBRANCH_$_:\n";
			}
			while($_=pop(@{$else <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8124	8222	
==>ping...\n";
		} else {
			push @{$code{$seg}->{code}}, "IFBRANCH_$_:\n";
		}
		while($_=pop(@{$else <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560643	560732	
==>= {{\@2}};\n  interpreter->current_cont = CONTEXT(interpreter->ctx)->current_cont;\n  PObj <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	1955	2081	
==>rites the specified lines to the file.

=cut

sub write
{
    my $self = shift;
    
    return unless @_;
    
    my $fh = Fi <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	478	579	
==>is used for building
dynamic PMCs.

=cut

use strict;

use File::Copy qw(copy);

# qq[] isn't guarante <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	440	541	
==>is used for building
dynamic PMCs.

=cut

use strict;

use File::Copy qw(copy);

# qq[] isn't guarante <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665219	665302	
==>\"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delete_keyed_int(interpreter, {{\@1}}, {{\@2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665996	666079	
==>\"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delete_keyed_int(interpreter, {{\@1}}, {{\@2 <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30358	30466	
==>>},
						  Parse::RecDescent::_tracefirst($text))
							if defined $::RD_TRACE;').'
			last;
		}'.($::RD_NO <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32558	32666	
==>>},
						  Parse::RecDescent::_tracefirst($text))
							if defined $::RD_TRACE;').'
			last;
		}'.($::RD_NO <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28283	28390	
==>>},
						  Parse::RecDescent::_tracefirst($text))
					if defined $::RD_TRACE;').'

			last;
		}'.($::RD_NO <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	147	245	
==>ad1 NAME

tools/dev/parrot_api.pl - Verify Parrot API (symbols)

=head1 SYNOPSIS

    % perl tools/ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	72	165	
==>base 'Regex::CodeGen';
use strict;

my $fail_label = Regex::Ops::Tree::mark('FAIL');

sub init <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	73	166	
==>base 'Regex::CodeGen';
use strict;

my $fail_label = Regex::Ops::Tree::mark('FAIL');

sub init <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231891	232124	
==>RGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 592 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3} <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	4321	4454	
==>in_1
  loop_done_1:
    %1 = $P100
END_PIR

.end

.sub 'aplformat'
    .param pmc arg

    .local string result
    result = ''

    . <==
3	/Users/nnunley/parrot/config/init/defaults.pm	444	534	
==>ld_dir
use Parrot::Configure::Step;

$description = q{Setting up Configure's default values <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2204	2341	
==>func};
        # That's the reason for:   no strict 'refs';
        my $pass = $self->{builder}->$builder_func(
                       Par <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2743	2880	
==>func};
        # That's the reason for:   no strict 'refs';
        my $pass = $self->{builder}->$builder_func(
                       Par <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2674	2806	
==>func};

        # That's the reason for:   no strict 'refs';
        my $pass = $self->{builder}
            ->$builder_func( Par <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	18648	18780	
==>e );

    my $class;
    eval do { local $/; <$fh> };
    die $@ if $@;

    close $fh;
    $class;
}


=head2 print_tree( [$dir1, $d <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9036	9156	
==>) { # DEFINITION
        $self->require_semicolon;
      }
      else {
        my $sub = Jako::Construct::Block::Sub->ne <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49343	49443	
==>o)
			{
				_parse("an uncommit marker", $aftererror,$line);
				$item = new Parse::RecDescent::Direc <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/State.pm	16	169	
==>tate;

sub new {
    my ($class, %options) = @_;
    my $self = bless { _markers => {},
                       %options
                     }, ref($class <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22500	22632	
==>nstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 72
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TR <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	4941	5046	
==>e
    unless iter goto iter_end
    value_type = typeof value
    if value_type != 'String' goto print_spa <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	95	187	
==>21 2006-06-20T20:02:00.179448Z bernhard  $

=pod

=head1 NAME

Parrot::Configure::Data - Conf <==
3	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	188	282	
==>e File::Basename;
use File::Spec::Functions;
use Parrot::Config;


=head1 NAME

Test/Regex.pm - <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6250	6336	
==>${STYPES}
prop_stack_depth[${ITEMP0}] = stack_depth
goto POST_BRANCH_NOT_switch_${CURIC <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4188	4274	
==>${STYPES}
prop_stack_depth[${ITEMP0}] = stack_depth
goto POST_BRANCH_NOT_switch_${CURIC <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	920	1046	
==>f = bless {
    BLOCK  => $block,

    KIND   => 'sub',
    TYPE   => $type,
    NAME   => $ident->value,
    PROPS  => $props, <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	8887	9002	
==>> 'some_memalign',
             'mkdir' => 'perl -MExtUtils::Command -e mkpath',
             'msvcversion' => undef <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16000	16106	
==>$value);

  return $return;
}

sub _op_null_p {
  my ($self, $node) = @_;
  my $return = $self->_save_1 ('I <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	4998	5138	
==>)\)/CALL("$1")/g;
                # The ->u.(string|float) is unnecessary.
                $asm =~ s/\)->u\.(\w+)/)/g;
                $asm = <==
3	/Users/nnunley/parrot/config/gen/PodText.pm	135	234	
==>head1 NAME

config/gen/PodText.pm - generate plain text docs from Pod files

=head1 SYNOPSIS

    us <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	36	128	
==>by Parrot::Configure::Step from config/gen/makefiles/dynclasses_pl.in

# Copyright: 2001-2005 <==
3	/Users/nnunley/parrot/config/gen/PodText.pm	806	905	
==>back

=cut

package gen::PodText;

use strict;
use vars qw($description $result @args);

use base qw <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2990	3077	
==>Jako::Construct::Type::String');
  $self->SYNTAX_ERROR("Can't do arithmetic on strings") <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	3110	3197	
==>Jako::Construct::Type::String');
  $self->SYNTAX_ERROR("Can't do arithmetic on strings") <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	1024	1139	
==>pe$_";
    $self->{regs}->{$type}{$_}=1;
    $count--;
  }
  @temp;
}

sub _save_set {
  my $self = shift;
  my %reg <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	11469	11579	
==>depends
on the declared type of the element.

=over 4

=item Scalar (C<'$'> or C<'*$'>)

The element is a scala <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	51210	51297	
==>em{verb}} >

Parse::RecDescent uses C<extract_codeblock($text, '{}E<lt>E<gt>')> to extra <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101828	102002	
==>s\"\n  string_bitwise_not(interpreter, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102599	102773	
==>s\"\n  string_bitwise_not(interpreter, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/tools/build/vtable_extend.pl	1925	2032	
==>blem is that the
   stack base pointer will be NULL. This is Very Bad.

   To deal with this there are two m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888682	889046	
==>e_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1005,
                  "ARGS" => <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	14935	15066	
==>my $assign = $var->[2];
        if ( $assign->isa('AssignOp') ) {
            $assign->configure(
                'arg1' => $expr <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	1947	2071	
==>, 0, 2) {
        print "\t$key => ", defined($val) ? "'$val'" : 'undef', ",\n"
            if $verbose;
        $self->{c}{$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901749	902214	
==>S" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1017,
                  "ARGS" => [
                              "s",
                              "ic",
                              "i",
                              "sc"
                            ] <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3393	3493	
==>s %{$self->{STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
}

sub YYLexer {
    my($self)=shift;

	$$ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3221	3315	
==>s %{$self->{STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
}

sub YYLexer {
    my($self)=shift;

	$$ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	56707	56868	
==>xt,
                   [
                        { Delim => sub { extract_delimited($_[0],q{'"}) } },
                        { Brack => sub { extract_bracketed($ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2537	2638	
==>of actual argument (%s)!", ref $args[$i])
      unless defined $actual_arg_type;

    if ($formal_arg_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2237	2338	
==>of actual argument (%s)!", ref $args[$i])
      unless defined $actual_arg_type;

    if ($formal_arg_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710822	711013	
==>AL){{\@1}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711656	711847	
==>AL){{\@1}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	5893	5990	
==>xists($self->{"expected"});
	my @expected = ();

	my $prod;
	foreach $prod ( @{$self->{"prods"}} ) <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	46	147	
==>();
while (<>) {
	if (/^Translated (\d+) types out of (\d+) from .+?([\.\w]+)\n$/) {
		push @result <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	46	147	
==>();
while (<>) {
	if (/^Translated (\d+) types out of (\d+) from .+?([\.\w]+)\n$/) {
		push @result <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	5274	5375	
==>elease",
	  runcore2human($_[0]->{runcore}),
	  $_[0]->{cpuarch},
      $_[0]->{osname},
      $_[0]-> <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	31974	32115	
==>};
          
          if($item_type eq 'bullet') {
            # Hm, it's not numeric.  Correct for this.
            $para->[1]{'number'} = <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3067	3163	
==>IT THIS FILE
#
# Automatically generated by config/gen/core_pmcs.pm

package Parrot::PMC;

use st <==
3	/Users/nnunley/parrot/lib/Parrot/PMC.pm	11	107	
==>IT THIS FILE
#
# Automatically generated by config/gen/core_pmcs.pm

package Parrot::PMC;

use st <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890950	891314	
==>e_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1007,
                  "ARGS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641756	642073	
==>> "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 717,
                  "ARG <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	1985	2095	
==>$Test = Test::Builder->new;
  $Test->output('my_logfile');

  sub import {
      my($self) = shift;
      my $p <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	42244	42383	
==>THEN' => 193,
			"<=" => 85,
			'OR' => 84,
			">" => 86
		}
	},
	{#State 183
		ACTIONS => {
			'END' => 194
		}
	},
	{#State 184 <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	7692	7822	
==>ld' => 'c++',
             'ld_debug' => '',
             'ld_load_flags' => '-bundle -undefined suppress',
             'ld_out' = <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	266	366	
==>$VERSION = '1.5';

# I-Vektor
sub A() { 0x67_45_23_01 }
sub B() { 0xef_cd_ab_89 }
sub C() { 0x98_ba_d <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	47015	47121	
==>xt;	# SKIP LOOKAHEAD RESET AT END OF while LOOP
		}
		elsif ($grammar =~ m/$POSLOOKAHEAD/gco)
		{
			_parse <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19553	19657	
==>mar.y"
{ return op('classpieces' => [ $_[1] ]); }
	],
	[#Rule 13
		 'expr', 2,
sub
#line 117 "lib/Regex/G <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19222	19325	
==>$self->get(2)->is_ident
      and $self->get(3)->is_open_paren
    ) {
      my $block = $self->current_ <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	30274	30393	
==>= pop @stack;
    my $key = $x->[1];
    if ($v->[0] eq 'hash') {
	if ($key =~ /^\d+$/) {
	    $key = qq!"$key"!;
	}
	el <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48508	48598	
==>5 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_BOUNDS_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49298	49388	
==>5 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_BOUNDS_ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	33228	33353	
==>ual?'  => \&_op_equalp,

###
### Pairs and Lists
###

  'pair?'    => \&_op_pair_p,
  'cons'     => \&_op_cons,
  'car'      = <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5759	5867	
==>=> $verbose);
    }

    return $self;
}

=back

=head1 CREDITS

The L</runsteps()> method is largely based o <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	68	157	
==>/Docs/Directory.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Doc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913807	914038	
==>",
                              "sc",
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	52409	52502	
==>ll contexts
C<extract_multiple> starts at the current C<pos> of the string, and
sets that C<po <==
3	/Users/nnunley/parrot/tools/build/revision_c.pl	41	127	
==>ation.
# $Id: /parrot/tools/build/revision_c.pl 20350 2006-06-25T03:57:27.771662Z petda <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	58511	58688	
==>28 "Lua\lua51.yp"
{
            [
                @{ $_[1] },
                BuildParam( $_[0], $_[3] ),
            ];
        }
	],
	[#Rule 100
		 'parlist1', 1, unde <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	793	917	
==>@ops, $self->output_print("\"$part\"");
        }
    }
    return @ops;
}

sub render {
    my ($self, $op) = @_;

    die i <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	21062	21167	
==>,	1,			# RIGHT DEL
		$ld2pos,	$second_arg,		# 2ND LDEL (MAYBE)
		$str2pos,	$rd2pos-$str2pos,	# 2ND STR (MA <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3898	4009	
==>ny lazy moves
    # beneath this point.
    $pir .= _do_lazy_moves('_${CURIC}') if $pushes;

	# Do code for each <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600013	600100	
==>63 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601089	601176	
==>63 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1919	2104	
==>sses with __LINE__
            cc_debug             => '-Zi',
            ld_debug             => '-debug',
            ld_share_flags       => '-dll',
            ld_load_flags        = <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21977	22104	
==>arg2'   => $expr2->[0],
        'result' => $result,
    );
    return [ $result, \@opcodes ];
}

sub BuildRelop {
    my <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	1771	1883	
==>ING(i, __LINE__)

HEADER
    print ALL "# $infile\n";
    my %this_file_seen;
    # There is a chance that the sa <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2995	3095	
==>s UNIVERSAL::isa($right_type, 'Jako::Construct::Type::Integer');

  $dest  = $dest->value;
  $left  = <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	1526	1623	
==>* Automatically generated by config/gen/core_pmcs.pm
 */

#include "parrot/parrot.h"

END_C

    p <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4062	4158	
==>asback { my ($op) = @_; $op->{args}->[0]->hasback() }
sub dfa_safe { my ($op) = @_; $op->{args}-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558064	558155	
==>ect = object;\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_method(inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559448	559539	
==>ect = object;\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_method(inte <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	4231	4355	
==>de'   , 213,
 'Ouml'     , 214,
 'times'    , 215,
 'Oslash'   , 216,
 'Ugrave'   , 217,
 'Uacute'   , 218,
 'Ucirc'    , 219 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	1943	2052	
==>self, $op) = @_;
    if ($op->{non_reentrant}) {
        # Mark this variable as needing to be preserved acros <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	251	354	
==>5.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Declaration::Sub;

use C <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	854	956	
==>on to undef.  This will also trigger any hints-file
    # callbacks that depend on knowing whether or n <==
3	/Users/nnunley/parrot/config/auto/msvc.pm	790	892	
==>on to undef.  This will also trigger any hints-file
    # callbacks that depend on knowing whether or n <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	4360	4455	
==>n $value;
}

=item C<new(@files)>

Returns a new instance initialized by calling C<read_ops()> o <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2980	3072	
==>mpatibility file',
	'PLATFORMS' => 'Project info',
	'README' => 'README file',
	'RELEASE_INST <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	4564	4677	
==>egory->($_)} }, $_ for @smokes;

  $cats{$_} = [
    (sort {
      $b->{revision} <=> $a->{revision} ||
      $b-> <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	7292	7393	
==>ut_fh'}} "<a\n>";
    }
    
    $self->unget_token(@to_unget);
}

=item C<process_data_start_token($t <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	10953	11044	
==>turn $ret;
}

=item C<rewrite_nci_method($class, $method, $super, $super_table)>

Rewrites t <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	15945	16092	
==>,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			"<=" => 85,
			'OR' => 84,
			")" => 81,
			" <==
3	/Users/nnunley/parrot/config/inter/charset.pm	644	750	
==>"./src/charset/*.c"
    );

    my $charset_list = $conf->options->get('charset')
        || join(' ', grep <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3514	3615	
==>eg = value($reg);
    return "goto " . $self->output_label_use($dest) . " unless $reg;";
}

sub output <==
3	/Users/nnunley/parrot/lib/Test/More.pm	27447	27554	
==>$type);
    }

    return '';
}


=head2 Discouraged comparison functions

The use of the following function <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61165	61262	
==>r  _no_rule("pattern terminal",$line,"/$1/");
		}
		elsif ($grammar =~ m/(?=$MTOKEN)/gco
			and do <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	13064	13159	
==>es );

Generate an ordered list of parent classes to put in the
I<< $classes->{class}->{parents} <==
3	/Users/nnunley/parrot/config/auto/env.pm	364	459	
==>e::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining if your C lib <==
3	/Users/nnunley/parrot/config/auto/isreg.pm	346	441	
==>e::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining if your C lib <==
3	/Users/nnunley/parrot/config/auto/memalign.pm	365	460	
==>e::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining if your C lib <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1114	1214	
==>rrent stack types array size.
${ITEMP0} = elements ${STYPES}
PIR

	# Do code for each pop. Need to se <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2824	2924	
==>rrent stack types array size.
${ITEMP0} = elements ${STYPES}
PIR

	# Do code for each pop. Need to se <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3896	3992	
==>r) symbols to
the outside world.  Be careful to only scan Parrot's defines, not
system's or third <==
3	/Users/nnunley/parrot/languages/regex/test.pl	3473	3578	
==>*PIR);

    for my $tree (@$trees) {
        $driver->output_rule(*PIR, '_regex', $tree, $ctx, DEBUG => $D <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	4803	4913	
==>value\""]);
    }
  }
  elsif (exists $node->{children}) {
    my $children = $node->{children};
 
    $self->_ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	50	149	
==>est::Builder;


# Can't use Carp because it might cause use_ok() to accidentally succeed
# even thou <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	1617	1755	
==>dress.
 5. Eliminate unused labels.

TODO:

 1. I would like to optimize

     B1: sub x, 1
         goto S0
     B2: sub x, 1
         got <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	3383	3479	
==>object is-a '$expected_type'";
    my $test := $ref.isa($expected_type);
    Test::proclaim($test <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	700	790	
==>NIVERSAL::isa($type, qw(Jako::Construct::Type));
  confess "Identifier (" . ref($ident) . " <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	725	814	
==>NIVERSAL::isa($type, qw(Jako::Construct::Type));
  confess "Identifier (". ref($ident) . " <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	689	778	
==>NIVERSAL::isa($type, qw(Jako::Construct::Type));
  confess "Identifier (". ref($ident) . " <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	24589	24737	
==>{
        $fh = $file_or_fh;
    }
    else {
        $fh = do { local *FH };
        open $fh, ">$file_or_fh" or 
            die "Can't open test o <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	5537	5650	
==>the Parrot ops.

    =cut
END_POD

my $preamble = <<END_C;
#! perl -w
#
# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!! <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10724	10819	
==>ps::Tree::classpieces::render {
    die;
}

sub Regex::Ops::Tree::seq::needparen { 0 }
sub Regex <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	37893	38018	
==>d including J
          
          @ell_content  = grep ref($_)||length($_), @ell_content  ;
          @section_name = grep re <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4759	4862	
==>or die "copy command requires destination";
    my $dest = $1;

    my ($group_files, $group_libs, $pmc_ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4863	4966	
==>or die "copy command requires destination";
    my $dest = $1;

    my ($group_files, $group_libs, $pmc_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584715	584969	
==>reter, class, NULL);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585790	586044	
==>reter, class, NULL);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "P <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1534	1631	
==>se base qw( Parrot::Test Exporter );


my $b = Test::Builder->new();

my $path_to_parrot = $INC{"P <==
3	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	631	726	
==>output = `mcs -out:$file_name $kind $opt $file_name.cs`;
	if ($output) {
		print "compile_cs fai <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	1048	1155	
==>result
{
    my $self = shift;

    return $self->{result};
}

=item * C<set_result()>

Accepts a scalar val <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8105	8196	
==>{STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK0} = <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6059	6150	
==>{STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK0} = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712185	712357	
==>S" => [
                              "n"
                            ],
                  "BODY" => "#line 59 \"src/ops/python.ops\"\n  PMC * const io = PIO_STDOUT(interpre <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	17654	17769	
==>NULL;
    PMC        *HashPointer   = NULL;

#if defined(CAN_BUILD_CALL_FRAMES)

    /* Try if JIT code can build th <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	50030	50144	
==>nd print " But it's really just stuff, because we needed more.\n";
        push @{ $lineage[-1] }, $3;
        next <==
3	/Users/nnunley/parrot/config/auto/bc.pm	1107	1222	
==>$answer = capture_output('bc', '-v') || '';
        $has_gnu_bc =
            ($answer =~ m/^bc / && $answer =~ m/Fr <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	613	704	
==>ESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullParser>, you might
get an <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	519	610	
==>ESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullParser>, you might
get an <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	3995	4095	
==>figuration system's data,
and writes the results to specified target file.

=cut

sub genfile
{
    m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8796	8885	
==>nterpreter, {{\@1}});\n    struct PackFile_FixupEntry *fe = PackFile_find_fixup_entry(inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9912	10001	
==>nterpreter, {{\@1}});\n    struct PackFile_FixupEntry *fe = PackFile_find_fixup_entry(inte <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	25736	25842	
==>_pc += 4
    \${P_ARG_$arg_num}[j] = \$I0
    inc j
    goto JT_LOOP_$name
JT_LOOP_END_$name:
PIR
			$arg_n <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	15991	16089	
==>fixedargs - 1]) && ($fixedargs[@fixedargs - 1] eq 'i'));
        or_flag(\$jumps, "PARROT_JUMP_REST <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	295	389	
==>form contains various bits of information needed
to generate the C code, and creates a differen <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600262	600389	
==>, \n         \"Class '%Ss' doesn't exist\", name);\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601338	601465	
==>, \n         \"Class '%Ss' doesn't exist\", name);\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	19024	19132	
==>er, HashPointer, signature);

    if (b && b->vtable->base_type == enum_class_UnManagedStruct)
        return <==
3	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	188	359	
==>9607 2006-05-30T15:23:20.183054Z coke  $
################################################################################

=head1 NAME

tools/dev/rebuild_miniparrot.pl - Re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054317	1054402	
==>(PMC_IS_NULL({{\@2}}))\n\tinternal_exception(1, \"Tried to get from null namespace.\") <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055444	1055529	
==>(PMC_IS_NULL({{\@2}}))\n\tinternal_exception(1, \"Tried to get from null namespace.\") <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227442	227704	
==>{\@1}}), {{\@2}}) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228422	228684	
==>{\@1}}), {{\@2}}) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Test/More.pm	5689	5792	
==>ed that you use it.


=head2 I'm ok, you're not ok.

The basic purpose of this module is to print out ei <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672986	673245	
==>p_integer(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11985	12092	
==>ame, $fail) = @_;
    my $fail_label = $self->output_label_use($fail);
    my @ops;
    if (defined $name) { <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	12651	12758	
==>ame, $fail) = @_;
    my $fail_label = $self->output_label_use($fail);
    my @ops;
    if (defined $name) { <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1713	1808	
==>ning to unknown variable %s.", $dest->value) unless $dest_sym;
  my $dest_type = $dest_sym->type <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1671	1766	
==>ning to unknown variable %s.", $dest->value) unless $dest_sym;
  my $dest_type = $dest_sym->type <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1593	1688	
==>ning to unknown variable %s.", $dest->value) unless $dest_sym;
  my $dest_type = $dest_sym->type <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6652	6734	
==>_${CURIC}_LOOP
POST_BRANCH_switch_${CURIC}_LOOP_EXIT:

POST_BRANCH_NOT_switch_${CUR <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4590	4672	
==>_${CURIC}_LOOP
POST_BRANCH_switch_${CURIC}_LOOP_EXIT:

POST_BRANCH_NOT_switch_${CUR <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2356	2469	
==>tval
}

sub YYData {
	my($self)=shift;

		exists($$self{USER})
	or	$$self{USER}={};

	$$self{USER};
	
} <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2267	2369	
==>tval
}

sub YYData {
	my($self)=shift;

		exists($$self{USER})
	or	$$self{USER}={};

	$$self{USER};
	
} <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	5958	6057	
==>e suffixes used in Parrot ignoring all SVN and ICU
files.

Note that if there are files with no suff <==
3	/Users/nnunley/parrot/lib/Parrot/PMC.pm	1110	1208	
==>=> 51,
	AddrRegistry => 52,
	Bound_NCI => 53,
	deleg_pmc => 54,
	Enumerate => 55,
	FixedBooleanArra <==
3	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	1079	1174	
==>re the SVN directories
\B\.svn\b

# debian/ should not go into release tarballs
^debian$
^debian <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3933	4028	
==>re the SVN directories
\B\.svn\b

# debian/ should not go into release tarballs
^debian$
^debian <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	12768	12879	
==>es undef and nothing else
        my $test = defined $got || defined $dont_expect;

        $self->ok($test, $na <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	13212	13323	
==>es undef and nothing else
        my $test = defined $got || defined $dont_expect;

        $self->ok($test, $na <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	250	346	
==>hift;
  $class = ref($class) || $class;
  
  Carp::croak "Usage: ${class}->handle_on(\$somescalar <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713113	713407	
==>ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 800,
                  "ARGS" => [
                              "nc"
                            ],
                  "BODY" => "#line 59 \"src <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953797	954060	
==>,
                  "NAME" => "encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954587	954850	
==>,
                  "NAME" => "encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8475	8572	
==>to 20 step 4
  print c$(i);tab$(12);c$(i+1);tab$(22);c$(i+2);tab$(32);c$(i+3)
next
print
data "ABA <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21339	21436	
==>to 20 step 4
  print c$(i);tab$(12);c$(i+1);tab$(22);c$(i+2);tab$(32);c$(i+3)
next
print
data "ABA <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10505	10598	
==>stack_locals
	$dest_locals
	\${AUTO_MAGICALS}

	# Type constants.
	.const int ELEMENT_TYPE_VOI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540472	540574	
==>< 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541724	541826	
==>< 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542976	543078	
==>< 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1448	1544	
==>my($errst,$nberr,$token,$value,$check,$dotpos);
    my($self)={ ERROR => \&_Error,
				ERRST => <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1398	1492	
==>my($errst,$nberr,$token,$value,$check,$dotpos);
    my($self)={ ERROR => \&_Error,
				ERRST => <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4035	4131	
==>efault:
	    if (*cur_opcode >= 0 && *cur_opcode < (opcode_t)${bs}op_lib.op_count) {
		*cur_opcod <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16683	16776	
==>iously:
        $x =~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmn <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10131	10220	
==>iously:
    $x =~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmn <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	466888	467107	
==>nt(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492059	492278	
==>nt(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	8326	8432	
==>ype\n";
  }    
  return sort keys %{ $this->{'accept_targets'} } if wantarray;
  return;
}

#------------- <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	6619	6780	
==>s/^\n//
                and $parser->YYData->{lineno}++,
                last;

            s/^\-\-\[(=*)\[//       # LongComment
                and $parser <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861999	862264	
==>JUMP" => 0,
                  "NAME" => "length",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862767	863032	
==>JUMP" => 0,
                  "NAME" => "length",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inl <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	2142	2237	
==>ssembler code and passes the test if
the  output matches the expected result.

=item C<pasm_outp <==
3	/Users/nnunley/parrot/config/gen/platform.pm	1961	2095	
==>file = "config/gen/platform/$platform/$_";
        }

        if (-e $header_file) {
            local $/ = undef;
            print("\ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	17173	17296	
==>{#State 56
		DEFAULT => -22
	},
	{#State 57
		DEFAULT => -33
	},
	{#State 58
		ACTIONS => {
			"." => 66
		}
	},
	{#State 59 <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	4983	5083	
==>^\./][];
    -d and push @dirs, $File::Find::name;
    -f and -e ".svn/text-base/$_.svn-base" and MAN <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34981	35075	
==>cDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = $Parse::RecDescent::lastune <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42091	42185	
==>cDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = $Parse::RecDescent::lastune <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979641	979839	
==>sc",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980772	980970	
==>sc",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	133	229	
==>tdance  $

=head1 NAME

tools/build/nativecall.pl - Build up the native call routines

=head1 SYN <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	2323	2547	
==>ur_method = {
                class           => $1,
                method          => $2,
                unimplemented   => $3 ? 1 : 0,
                body            => ''
            };

        # Have we got a blank li <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2271	2378	
==>k->find_symbol($right->value);
    $self->SYNTAX_ERROR("Expression involves unknown variable %s.", $right->v <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2229	2336	
==>k->find_symbol($right->value);
    $self->SYNTAX_ERROR("Expression involves unknown variable %s.", $right->v <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2151	2258	
==>k->find_symbol($right->value);
    $self->SYNTAX_ERROR("Expression involves unknown variable %s.", $right->v <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	6945	7062	
==>nc op1
    goto neg

done:
nothing:
    .return(op2)
.end

.sub 'dyadic:!'           # binomial coefficient
    .param <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	5401	5529	
==>th;
}


#
# REQUIRES:
#

sub require_assign        { return shift->require('assign');        }
sub require_close_brace   { return <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	3891	4000	
==>$entry->[1]_method_t $entry->[1];\n";
    }

    $struct .= "};\n";

    return $struct;
}

=item C<vtbl_macro <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	2324	2431	
==>turn "add $var, $amount";
}

sub output_assign {
    my ($self, $var, $val) = @_;
    return "set $var, $val <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14194	14354	
==>itle = $para_text_content;
          last;
        } else {
          DEBUG and print "  Doesn't look at all contentworthy!\n  Giving up.\n";
          undef $ti <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1203	1311	
==>content($self);

  return $self;
}

sub dest  { return shift->{DEST};  }
sub left  { return shift->{LEFT};  } <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1194	1302	
==>content($self);

  return $self;
}

sub dest  { return shift->{DEST};  }
sub left  { return shift->{LEFT};  } <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1083	1191	
==>content($self);

  return $self;
}

sub dest  { return shift->{DEST};  }
sub left  { return shift->{LEFT};  } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599869	600070	
==>S" => [
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 363 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_loo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	373944	374080	
==>"i"
                            ],
                  "BODY" => "#line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374827	374963	
==>"i"
                            ],
                  "BODY" => "#line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11571	11671	
==>self->forth);

      $self->require_semicolon;

      my $arith = Jako::Construct::Statement::Arithme <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16516	16616	
==>self->forth);

      $self->require_semicolon;

      my $arith = Jako::Construct::Statement::Arithme <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5253	5350	
==>2
	set $result, 0.0
	eq $a1, $ot1, EQ_${eqnum}_a
	inc $result
EQ_${eqnum}_a:
	eq $a2, $ot2, EQ_$eq <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5629	5726	
==>2
	set $result, 0.0
	eq $a1, $ot1, EQ_${eqnum}_a
	inc $result
EQ_${eqnum}_a:
	eq $a2, $ot2, EQ_$eq <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	200	293	
==>onstruct/Block/Bare.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warn <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323910	323994	
==>INTVAL)(Parrot_UInt4) ({{\@2}}->vtable->get_integer(interpreter, {{\@2}}));\n  {{+=3} <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6686	6840	
==>atch_fail
          match_success:
            print "matched"
            goto match_end
          match_fail:
            print "failed"
          match_ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7703	7857	
==>atch_fail
          match_success:
            print "matched"
            goto match_end
          match_fail:
            print "failed"
          match_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556637	556753	
==>ect;\n  opcode_t *next;\n\n  object = {{\@1}};\n  method_pmc = {{\@2}};\n\n  next = {{^+4}};\n  interpreter->current_ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1985	2103	
==>f($class)
    and $class=ref($class);

    bless($self,$class);
}

sub YYParse {
    my($self)=shift;
    my($r <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1916	2026	
==>f($class)
    and $class=ref($class);

    bless($self,$class);
}

sub YYParse {
    my($self)=shift;
    my($r <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	5098	5201	
==>robably only useful for checked out revisions
   # Checkout is done either with svn or svk
   my $svn_cm <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	12908	13017	
==>g($got, 'ne', $dont_expect) unless $test;
        return $test;
    }

    return $self->cmp_ok($got, 'ne', $d <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	75613	75756	
==>tracecontext
| ~~       |                                      |^<<<<<<<<<<<<<<<<<<<<<<<<<<<<
						   $tracecontext
.


select TRACECONTEXT;
$| <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	310216	310309	
==>terpreter->pdb->cur_opcode = (opcode_t *)cur_opcode + 1;\n        PDB_set_break(interpreter,NU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	310599	310688	
==>terpreter->pdb->cur_opcode = (opcode_t *)cur_opcode + 1;\n    PDB_set_break(interpreter,NU <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37480	37578	
==>} . '})
					if defined $::RD_TRACE;').'
		$Parse::RecDescent::lastexpected = ' . ($rule->hasleftmo <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39883	39981	
==>} . '})
					if defined $::RD_TRACE;').'
		$Parse::RecDescent::lastexpected = ' . ($rule->hasleftmo <==
3	/Users/nnunley/parrot/config/init/headers.pm	367	460	
==>ase);

use Parrot::Configure::Step;
use ExtUtils::Manifest qw(maniread);

our $description = ' <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	16123	16230	
==>ms}} - $op->{offset};
	if ($op->{type} =~ /left|right/)
	{
	    if ($span != 3)
	    {
		Parse::RecDescent:: <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22314	22414	
==>'' )
		    .($::RD_NO_TRACE?'':'

		Parse::RecDescent::_trace(q{Trying directive: ['
					. $self->de <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	5662	5762	
==>file is generated automatically from '$file'.
# Any changes made here will be lost!
#

$pod

use stri <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2825	2933	
==>directories)
    {
        return $dir->file_with_name($name)
            if $dir->file_exists_with_name($nam <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	3733	3841	
==>directories)
    {
        return $dir->file_with_name($name)
            if $dir->file_exists_with_name($nam <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	48761	48857	
==>rser), "\n";
  }

  return @out;
}



#---------------------------------------------------------- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407139	407399	
==>"CODE" => 470,
                  "ARGS" => [
                              "s",
                              "ic",
                              "sc"
                            ],
                  "BODY" => "#line 535 \"src/ops/io.ops\"\n    {{\@1}} = PIO_so <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4206	4333	
==>her function within parrot.
                $internal_calls{$1}{"$file:$function"}++ 
                  unless ($variable_visibl <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	3253	3362	
==>l set_source before you can call get_token');
       
      DEBUG and print "$self 's source is filehandle $fh <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822466	822738	
==>l_int(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823534	823806	
==>l_int(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	1283	1446	
==>= @_;

    genfile(
        'config/gen/makefiles/root.in' => 'Makefile',
        commentType                    => '#',
        replace_slashes                => 1 <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	9529	9632	
==>p * interpreter)';

for ( my $i = 0; $i < $core_numops; $i++) {
    $body = $core_ops{$core_opfunc[$i]}[ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	5723	5824	
==>rs or character ranges) won't
# have to do their own checking.
#
# Without this, /abc/ would compile t <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3944	4038	
==>, expect 12
function aftwo(y())
	print y(4)
end function
function arrfunc(x())
	u=aftwo(x())
	a <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15217	15311	
==>, expect 12
function aftwo(y())
	print y(4)
end function
function arrfunc(x())
	u=aftwo(x())
	a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299484	299689	
==>"
                            ],
                  "BODY" => "#line 975 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300330	300535	
==>"
                            ],
                  "BODY" => "#line 975 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301176	301381	
==>"
                            ],
                  "BODY" => "#line 975 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	1852	2024	
==>nto same output file
            my $exit_code = Parrot::Test::run_command( 
                                \@test_prog, 
                                CD     => $self->{ <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2400	2529	
==>nto same output file
        my $exit_code = Parrot::Test::run_command(
            \@test_prog,
            CD     => $self->{ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	2953	3062	
==>sub block_depth
{
  my $self = shift;

  return scalar($self->blocks) - 1;
}


#
# current_block()
#
# Returns <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34255	34375	
==>h for rule $rule->{'name'}");
		$pir .= "### end pre_branch\n";

        # Add pre-translate code, if any.
        $pir . <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	37445	37541	
==>ring is omitted (or C<undef>) then the closing
tag is constructed by inserting a C</> after any l <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955402	955646	
==>E" => "encodingname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956213	956457	
==>E" => "encodingname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function" <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	4195	4301	
==>e($instance_for_path{$_[0]->path});
    
    undef $_[0];
}

=back

=head1 SEE ALSO

=over 4

=item C<Parro <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	4592	4726	
==>M_F) $_.pir\n";
        }
        return $code;
    } else {
        # Just say that we weren't configured with mono path, so no ca <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	12832	12943	
==>my $p;
    if (($o = is_opcode($c))) {
	print <<EOC;
	# builtin $c $cmt $o
EOC
	push @stack, [$c, $c, $o];
	retu <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	1653	1752	
==>ng a branch offset or address

Argument direction is used to determine the life times of symbols and <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108942	109272	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":base_core",
                  "ARGD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111390	111720	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":base_core",
                  "ARGD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112282	112612	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":base_core",
                  "ARGD <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1862	1995	
==>y ($target, $source) = @_;

    return
        "$CC $CFLAGS " .
        "-o " . $target . " " .
        "-I" . $PATHQUOTE . '/Users/nn <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2158	2291	
==>y ($target, $source) = @_;

    return
        "$CC $CFLAGS " .
        "-o " . $target . " " .
        "-I" . $PATHQUOTE . '/Users/nn <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1953	2086	
==>y ($target, $source) = @_;

    return
        "$CC $CFLAGS " .
        "-o " . $target . " " .
        "-I" . $PATHQUOTE . '/Users/nn <==
3	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1779	1879	
==>/parrot/include/config.fpmc';
    open F, $image_file or die "Can't read '$image_file': $!";
    my $ <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	7620	7773	
==>BranchUnlessOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        if ( exists $op->{op} ) {
            print <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656458	656563	
==>}->vtable->defined_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657382	657487	
==>}->vtable->defined_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	53390	53497	
==>($_[0],'{}','') },
        ]

is used.


=item 3.

An number specifying the maximum number of fields to retu <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9994	10100	
==>error})
					or	$$states[$$stack[-1][0]]{ACTIONS}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	pri <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9547	9649	
==>error})
					or	$$states[$$stack[-1][0]]{ACTIONS}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	pri <==
3	/Users/nnunley/parrot/config/gen/config_pm.pm	1880	2052	
==>data->get($k);
                if (defined $v) {
                    $v =~ s/(["\\])/\\$1/g;
                    $v =~ s/\n/\\n/g;
                    print OUT qq(\tset P0[ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30172	30323	
==>rgs' => 149
		}
	},
	{#State 97
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" = <==
3	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	256	346	
==>d1 NAME

Parrot/Test/ParrotCompiler.pm - Testing routines specific to 'ParrotCompiler'.

=h <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5264	5419	
==>eturn);
            next;
          }
        }
      }
      my $item = $self->_save_1 ('P');

      __quoted ($self, $_, $item, $special);

      my $pair <==
3	/Users/nnunley/parrot/config/auto/signal.pm	877	987	
==>o/signal/test_1.in');
    eval { cc_build(); };
    unless ($@ || cc_run() !~ /ok/) {
        $conf->data->set( <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7024	7120	
==>INS} = concat ${STEMP0}
${INS} = concat " = pop s\n"

# Next parameter.
goto pre_call_PLOOP_${CUR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385800	386131	
==>=> ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 450,
                  "ARGS" = <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10649	10748	
==>', 'a', 'a', 'a', 'a', 'ae', 'c', 'e', 'e', 'e', 'e', 'i', 'i', 'i', 'i',
'd', 'n', 'o', 'o', 'o', ' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6099	6222	
==>elf)
       if $cut_handler;

      # TODO: add to docs: Note: this may cause cuts to be processed out
      #  of order rel <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	6093	6189	
==>s_data      { shift->_accept_directives('Data',     @_) }
sub accept_directive_as_processed { shi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2275	2370	
==>rt-token object to
I<newvalue>.  You probably won't need to do this.

=item $token->attr_hash

T <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	23563	23678	
==>r_open->[-1][1]{'target'} because of =end $content\n";
      pop @$curr_open;

      next;
      
    } elsif($para_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1506	1595	
==>EMP1}
${STEMP1} = "$register_num"
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${S <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3216	3305	
==>EMP1}
${STEMP1} = "$register_num"
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${S <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	3986	4161	
==>$defn,
            );
            push @opcodes, new NewOp( $parser,
                'prolog' => 1,
                'result' => $defn,
                'arg1'   => '.Lua' . <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	11570	11678	
==>= join '' =>
      "This document probably does not appear as it should, because its ",
      "\"=encoding $e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661992	662246	
==>>exists_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662908	663162	
==>>exists_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	2011	2108	
==>his the start of a new method?
        if ($line =~ /^\[([\w\.]+)\s*\:\:\s*(\w+)\s*(\:unimplemente <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	645	768	
==>s->get('verbose');

    my $cc        = $conf->data->get('cc');
    my $libs      = $conf->data->get('libs');
    my $linkfl <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	586	709	
==>s->get('verbose');

    my $cc        = $conf->data->get('cc');
    my $libs      = $conf->data->get('libs');
    my $linkfl <==
3	/Users/nnunley/parrot/config/auto/readline.pm	598	721	
==>s->get('verbose');

    my $cc        = $conf->data->get('cc');
    my $libs      = $conf->data->get('libs');
    my $linkfl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938572	938785	
==>"\n    {{\@1}} = string_join(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939462	939675	
==>"\n    {{\@1}} = string_join(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	448617	448722	
==>< 0) {\n    {{\@1}} = - (FLOATVAL){{\@2}};\n  }\n  else {\n    {{\@1}} = (FLOATVAL){{\@2}};\n  }\n  {{+=3} <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16946	17060	
==>' => 94,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primar <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	77	177	
==>le ();
BEGIN {@ISA = ('Pod::Simple')}

use strict;

use Carp ();

BEGIN { *DEBUG = \&Pod::Simple::DEB <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	76	176	
==>le ();
BEGIN {@ISA = ('Pod::Simple')}

use strict;

use Carp ();

BEGIN { *DEBUG = \&Pod::Simple::DEB <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	3353	3496	
==>check templates
            while (my($t, $body) = each(%templates)) {
                if ($asm =~ /$t\s+/) {
                    my $tbody = $b <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39166	39267	
==>CTIVE' . ++$_[1]->{dircount} .  '__'; }


sub new
{
	my ($class, $type, $minrep, $maxrep, $leftarg, $o <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3570	3670	
==>that converts a file name to a description of the
type of files which have this name.

=cut

sub type <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3094	3212	
==>, 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P15', 'P16[0]'],
  [ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3170	3287	
==>elf->{CONTENTS}})
	{
		if ( ref($content) )
		{
			push @contents, $content;
		}
		else
		{
			# It would be good to c <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	47252	47354	
==>f, $para, $start_line) = @_;
  my $treelet = ['~Top', {'start_line' => $start_line},];
  
  $para =~ s/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959710	960065	
==>"ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1080,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106262	1106344	
==>>= interpreter->n_vtable_max)\n\treal_exception(interpreter, NULL, E_ValueError,\n\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107238	1107320	
==>>= interpreter->n_vtable_max)\n\treal_exception(interpreter, NULL, E_ValueError,\n\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	252968	253189	
==>ble->logical_not(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10895	11001	
==>om
the cache, and undefines it.

Raises an exception if the delete fails.

=cut

sub delete
{
    # Use $_[ <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4729	4835	
==>om the cache, and undefines it.

Raises an exception if the delete fails.

=cut

sub delete
{
    # Use $_[ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30392	30498	
==>acefirst($text))
							if defined $::RD_TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent: <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32592	32698	
==>acefirst($text))
							if defined $::RD_TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent: <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28317	28422	
==>acefirst($text))
					if defined $::RD_TRACE;').'

			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent: <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3248	3367	
==>, $out) = ($1, $2, $3, choose($4, unescape($5), $6));

        # make the test print the last line of output
        # X <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4655	4774	
==>, $out) = ($1, $2, $3, choose($4, unescape($5), $6));

        # make the test print the last line of output
        # X <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	652	747	
==>turn;
}

sub _handle_element_end {
  print {$_[0]{'output_fh'}} "\n"  unless $_[1] =~ m/^[A-Z]$/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188769	188858	
==>BODY" => "#line 299 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30039	30139	
==>= -1
SUBDISP
	foreach (keys %subs) {
		print FUNC qq{\teq S0, "$_", SUB_$_\n};
	}
	print FUNC<<SUBEND <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	951	1049	
==>L = q[perl];
our $LOAD_EXT = qq[.bundle];
our $O = qq[.o];
our $CFLAGS = qq[-I/opt/local/include -f <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	955	1053	
==>L = q[perl];
our $LOAD_EXT = qq[.bundle];
our $O = qq[.o];
our $CFLAGS = qq[-I/opt/local/include -f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	604094	604334	
==>inline",
                  "CODE" => 684,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 419 \"src/ops/object.ops\"\n    VT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	487974	488208	
==>th.ops\"\n  {{\@1}} = ceil({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1398	1491	
==>SK,X5)+X1$MSK;",
	II => "X0=rotate_left((X2^(X1|(~X3)))+X0+X4+X6$MSK,X5)+X1$MSK;",
  );
  #unl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	339044	339357	
==>",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 397,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 113 \" <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45439	45536	
==>\G\s*<score:';
my $AUTOSCOREMK		= '\G\s*<autoscore:';
my $SKIPMK		= '\G\s*<skip:';
my $OPMK		= '\G <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824473	824562	
==>ntry_type != STACK_ENTRY_STRING) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825544	825633	
==>ntry_type != STACK_ENTRY_STRING) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208080	208349	
==>"TYPE" => "function",
                  "CODE" => 245,
                  "ARGS" => [
                              "p",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 401 \"src/ops/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035674	1035763	
==>d, lex_name);\n    if (!result) {\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036838	1036927	
==>d, lex_name);\n    if (!result) {\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\ <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	4959	5083	
==>'\n";
}

sub Label {
   my ($n, $c) = @_;
   print <<EOC;
pc_$n:
EOC
}

sub New_func {
    my ($n, $arg, $cmt) = @_;
    my $ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	2511	2635	
==>ckage . '::' . $func } = sub ($$;$%) {
            my( $code, $expected, $desc, %extra ) = @_;

            Parrot::Test::con <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	44125	44222	
==>=item [0]

the extracted quotelike substring (including trailing modifiers),

=item [1]

the remai <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1636	1728	
==>ken>, L<Pod::Simple>, L<Pod::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyrigh <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2803	2895	
==>ken>, L<Pod::Simple>, L<Pod::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyrigh <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1923	2015	
==>ken>, L<Pod::Simple>, L<Pod::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyrigh <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478894	478991	
==>L, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({{\@1}} / den);\n  {{+=3} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479786	479883	
==>L, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({{\@1}} / den);\n  {{+=3} <==
3	/Users/nnunley/parrot/config/auto/alignptrs.pm	737	829	
==>defined($conf->data->get('ptr_alignment'))) {
        $align  = $conf->data->get('ptr_alignme <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948126	948398	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_char <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912420	912732	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1028 <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6867	6976	
==>("$pmc.c", "$pmc.pmc")) {
        run("$PMC2C --c $pmc.pmc")
          or die "pmc2c code generation failed ($ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7078	7187	
==>("$pmc.c", "$pmc.pmc")) {
        run("$PMC2C --c $pmc.pmc")
          or die "pmc2c code generation failed ($ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193559	193652	
==>->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194538	194631	
==>->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	46	136	
==>Token;
use Pod::Simple::PullParserToken ();
@ISA = ('Pod::Simple::PullParserToken');
use st <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	48	138	
==>Token;
use Pod::Simple::PullParserToken ();
@ISA = ('Pod::Simple::PullParserToken');
use st <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	47	137	
==>Token;
use Pod::Simple::PullParserToken ();
@ISA = ('Pod::Simple::PullParserToken');
use st <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632677	632931	
==>new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633719	633973	
==>new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	10810	10926	
==>ete op definition!\n";
    }

    close $OPS or die "Could not close ops file '$file' ($!)!";

    return;
}

# Exten <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	3121	3264	
==>nd Methods.', 
                'pairs' => ['interpreter'], 
                'sources' => [
                    'inter_cb', 'inter_create', 'inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712510	712599	
==>uble){{\@1}});\n  PIO_putps(interpreter, io, s);\n  if (string_str_index(interpreter, s,\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713617	713706	
==>uble){{\@1}});\n  PIO_putps(interpreter, io, s);\n  if (string_str_index(interpreter, s,\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2843	2937	
==>e_offset = REL_PC + $offset; interpreter->resume_flag = 1";
}

=item C<restart_address($address <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223605	223697	
==>1}}->vtable->get_integer(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224547	224639	
==>1}}->vtable->get_integer(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+= <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4905	4997	
==>assLabel = $self->{state}->genlabel("pass_charclass");
    my @ops = ("ord <rx_tmp>, <rx_inpu <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3091	3207	
==>'Cannot return from here to main
                   'program - only to SUB1.
' Exit tests
sub mysub(b,c)
	print "Prin <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17058	17174	
==>'Cannot return from here to main
                   'program - only to SUB1.
' Exit tests
sub mysub(b,c)
	print "Prin <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	3102	3206	
==>&st, *return_data);",
       3 => "set_nci_I(interpreter, &st, *return_data);",
       2 => "set_nci_I(in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488634	488826	
==>\"src/ops/math.ops\"\n  {{\@1}} = floor( {{\@1}} );\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25501	25608	
==>block, $self->require_value);

      $self->require_close_paren;
      $self->require_open_brace;
 
      my <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9965	10071	
==>block, $self->require_value);

      $self->require_close_paren;
      $self->require_open_brace;

      my <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7227	7332	
==>k_depth
${DEST0} = concat ${STEMP0}
PIR
	}

	return $pir;
}

sub post_load($) {
	my $self = shift;
	my $ne <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5049	5154	
==>k_depth
${DEST0} = concat ${STEMP0}
PIR
	}

	return $pir;
}

sub post_load($) {
	my $self = shift;
	my $ne <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	9508	9612	
==>ult, $type, @CODE);
	feedme();
	if ($syms[CURR] eq "#" and $type[CURR] eq "PUN") { 
		feedme();
		$fd=$sy <==
3	/Users/nnunley/parrot/examples/benchmarks/oo5.pl	248	367	
==>self = shift;
    if (@_) { $self->[0] = shift } else { $self->[0] }
}

sub j {
    my $self = shift;
    if (@_) { $sel <==
3	/Users/nnunley/parrot/examples/benchmarks/oo6.pl	240	359	
==>self = shift;
    if (@_) { $self->[0] = shift } else { $self->[0] }
}

sub j {
    my $self = shift;
    if (@_) { $sel <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	6557	6663	
==>p being visited
#  guarantee - The number of atoms we are currently guaranteed to have for
#      the curre <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	20159	20275	
==>C *self) {
    $ret_type (*pointer)();
    $ret_type return_data;

    pointer = PMC_struct_val(self);
    return_dat <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	90	191	
==>rd  $

package Parrot::Test::Bc;

use strict;
use warnings;

use Data::Dumper;
use File::Basename;

us <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	349	462	
==>class = shift;
  my ($file, $line, $kind, $type, $text) = @_;

  return bless {
    FILE => $file,
    LINE => $li <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	5292	5391	
==>aseN" />
      <itemData name="Hex" defStyleNum="dsBaseN" />
      <itemData name="Float" defStyleNu <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	2087	2181	
==>e particularly interested in getting the full value of
the treelet, can just traverse the conte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52804	53066	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gc_debug",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53559	53821	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gc_debug",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inl <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	2163	2283	
==>_);

      $self->export_to_level(1, $self, 'ok');
  }

  sub ok {
      my($test, $name) = @_;

      $Test->ok($test, $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462878	463154	
==>nError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = fmod({{\@2}}, den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463875	464151	
==>nError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = fmod({{\@2}}, den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464872	465148	
==>nError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = fmod({{\@2}}, den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944749	945019	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "charsetname",
                  "FLAGS" => ":base_cor <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945558	945828	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "charsetname",
                  "FLAGS" => ":base_cor <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	38790	38927	
==>y',
        );
    }
    for my $param ( @{$params} ) {
        push @opcodes2, @{ $param->[2] };
    }
    push @opcodes2, @{$block <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065103	1065197	
==>s\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed_str(in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065977	1066071	
==>s\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed_str(in <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1728	1821	
==>y symbol table to parent block.\n", __PACKAGE__;

  foreach my $symbol_name ($self->symbol_nam <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6290	6434	
==>me {
    my $ago = (-M shift);

    if (defined $ago) {
        return $NOW - $ago;
    } else {
        return;
    }
}

sub needs_build {
    m <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4710	4854	
==>me {
    my $ago = (-M shift);

    if (defined $ago) {
        return $NOW - $ago;
    } else {
        return;
    }
}

sub needs_build {
    m <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6501	6645	
==>me {
    my $ago = (-M shift);

    if (defined $ago) {
        return $NOW - $ago;
    } else {
        return;
    }
}

sub needs_build {
    m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164656	164823	
==>"s",
                              "ic"
                            ],
                  "BODY" => "#line 190 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165585	165752	
==>"s",
                              "ic"
                            ],
                  "BODY" => "#line 190 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1 <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	17380	17483	
==>efault} = read_dump($include, "default.pmc")
        if not $all{default};

    my $vt = read_dump($incl <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	10519	10641	
==>matted'} = 1;
  }

  my $token_count = 0;
  my $title;
  my @to_unget;
  my $state = 0;
  my $depth = 0;

  Carp::croak "Wh <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	15646	15753	
==>t
    gen_pir = concat tmp
    gen_pir = concat "\nthrow $P1000000\nTYPED_EH_FOUND_"
    gen_pir = concat tm <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060146	1060375	
==>3}};\n    {{\@1}} = Parrot_get_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061051	1061280	
==>3}};\n    {{\@1}} = Parrot_get_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Test/More.pm	36672	36765	
==>terpreted
by Perl.

L<Test::Differences> for more ways to test complex data structures.
And it <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	17061	17164	
==>06001 ? (\n";
print @good;
print " ) : (\n";
print @bad;
print " )\n);\n";

__END__
#~~~~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	23534	23635	
==>static};

            my $libparrot = $PConfig{parrot_is_shared} ? $libparrot_shared : $libparrot_stat <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	10585	10683	
==>will be defined as an accessor method unless a
method by that name is explicitly defined; in the la <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	3086	3183	
==>dex_html = '';
    my @rel_paths = $self->contents_relative_to_source($source);
    my @short_desc <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	54714	54808	
==>hat the value returned by an extractor
subroutine need not bear any relationship to the corresp <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64944	65065	
==>ame>($1..$2) ");

						pos $grammar = $pos;
					}
					else
					{
						$item = new Parse::RecDescent::Repetition($name <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76673	76778	
==>ed $::RD_TRACE
	    && $::RD_TRACE =~ /\d+/
	    && $::RD_TRACE>1
	    && $::RD_TRACE+10<length($_[0]))
	{ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76984	77089	
==>ed $::RD_TRACE
	    && $::RD_TRACE =~ /\d+/
	    && $::RD_TRACE>1
	    && $::RD_TRACE+10<length($_[0]))
	{ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6278	6424	
==>}

sub modtime {
    my $ago = (-M shift);

    if (defined $ago) {
        return $NOW - $ago;
    } else {
        return;
    }
}

sub needs_bui <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4698	4844	
==>}

sub modtime {
    my $ago = (-M shift);

    if (defined $ago) {
        return $NOW - $ago;
    } else {
        return;
    }
}

sub needs_bui <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6489	6635	
==>}

sub modtime {
    my $ago = (-M shift);

    if (defined $ago) {
        return $NOW - $ago;
    } else {
        return;
    }
}

sub needs_bui <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023315	1023409	
==>src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_localtime_r( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024165	1024259	
==>src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_localtime_r( <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19871	19960	
==>$rule->{name}\"")
		and
		Parse::RecDescent::_hint("The directive <autotree> was specified <==
3	/Users/nnunley/parrot/config/gen/platform.pm	2248	2352	
==>PLATFORM_H <<"END_HERE";
/*
** $header_file:
*/
#line 1 "$header_file"
END_HERE
            print PLATFOR <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	14554	14650	
==>2) doesn't
get you a space -- but $Code2USASCII{32} will).  It's
documented here just in case you <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	9269	9360	
==>();

  my $cond = $self->_generate(_get_arg($node,1));
  $self->_add_inst('','eq',[$cond,0," <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9067	9167	
==>set;\n        Parrot_switch_to_cs(interpreter, fe->seg, 1);\n    }\n    string_cstring_free(label);\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10183	10283	
==>set;\n        Parrot_switch_to_cs(interpreter, fe->seg, 1);\n    }\n    string_cstring_free(label);\n <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12728	12816	
==><lt>47E<gt>>, C<EE<lt>0x2fE<gt>>,
and C<EE<lt>057E<gt>>, all mean "/", whose Unicode numb <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504570	504890	
==>i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 580,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 631 \"src/op <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	3873	4009	
==>en->new(
        $file, $line, $1 eq '{' ? 'open-brace' : 'close-brace', undef, $1);
      $text = $2;
      next;
    }

    #
    # Con <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41051	41158	
==>ftarg->code(@_[1..2]) . '
			$repcount++;
			$backtrack = 1;
			' . $op->code(@_[1..2]) . '
			$savetext = $ <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	5900	6005	
==>777) or die "mkdir $_: $!\n";
	    }
	}
    }
}
print("Installing ...\n");
foreach (@files, @installable_e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	626892	627115	
==>> 703,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 53 \"src/ops/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2} <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	1283	1388	
==>ment documentation',
	'dump' => 'Dump file',
	'el' => 'eMacs Lisp code',
	'exp' => 'Perl6 expected parse t <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2799	2895	
==>art_element({ Name => 'block', Attributes => { kind => 'then' } });
  $_->sax($handler) foreach $ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	29924	30025	
==>ing user function, stack depth now "
	#print I25
	#print "\\n"
	ret
FUNCEND
	print FUNC<<SUBDISP;
SUB_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25258	25358	
==>\n  opcode_t *dest;\n  PMC * const p = {{\@1}};\n  dest = {{^+2}};\n  interpreter->current_cont = CON <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	684	784	
==>unction ...
    }

Note that currently the C<inline> op type is ignored.

Alternately, for opcode fun <==
3	/Users/nnunley/parrot/config/init/defaults.pm	5555	5666	
==>-e \'chdir shift @ARGV; system q{$(MAKE)}, @ARGV; exit $$? >> 8;\'',

        # if platform has a .s file that n <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5992	6092	
==>ave an empty stack type state propogated to it if nothing has been
	# propogated there already.
	$pir <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3930	4030	
==>ave an empty stack type state propogated to it if nothing has been
	# propogated there already.
	$pir <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759867	760090	
==>}->vtable->set_pmc(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	8001	8115	
==>as done.
          DEBUG > 1 and print "Starting verbatim para at line ${$self}{'line_count'}\n";
          push @$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	511	607	
==>(such as just a call to some other
function and a C<return> statement), opcode functions are in t <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	677	771	
==>c_prefix>

The exec prefix. Defaults to '/usr'.

=item C<bindir>

The executables directory. De <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	906	1000	
==>c_prefix>

The exec prefix. Defaults to '/usr'.

=item C<bindir>

The executables directory. De <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	4498	4590	
==>npack_smoke($_) } glob "parrot-smoke-*.html";
  push @{ $cats{$category->($_)} }, $_ for @smo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147251	147338	
==>> "#line 98 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148192	148279	
==>> "#line 98 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}} <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	11403	11510	
==>ils_"  + id),
          expander = document.getElementById("expander_" + id);
      if(elem.className == "de <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1600	1705	
==>t @_ => ( ref $pattern
        ? Parrot::Test::PGE::_generate_subrule_pir($target, $pattern)
        : Par <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2123	2228	
==>t @_ => ( ref $pattern
        ? Parrot::Test::PGE::_generate_subrule_pir($target, $pattern)
        : Par <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	4301	4415	
==>00
    goto loop_begin_1
  loop_done_1:
    %1 = $P100
END_PIR

.end

.sub 'aplformat'
    .param pmc arg

    .loc <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3376	3476	
==>should be "print the last command". Which is harder.
        $body =~ s/^(\s*)([^\n]+)\s*\Z/$1puts [$ <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4783	4883	
==>should be "print the last command". Which is harder.
        $body =~ s/^(\s*)([^\n]+)\s*\Z/$1puts [$ <==
3	/Users/nnunley/parrot/lib/File/Which.pm	5844	5941	
==>eats

Not tested on VMS or MacOS, although there is platform specific code
for those. Anyone who h <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	402	499	
==>makefiles/dynpmc_pl.in>.  This script is used for building
dynamic PMCs.

=cut

use strict;

use F <==
3	/Users/nnunley/parrot/config/init/defaults.pm	1914	2026	
==>$cc on Unix-ish systems.
        # VMS and Win32 might use "Link".
        # Perl5's Configure doesn't distinguis <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	67499	67685	
==>P" => 0,
                  "NAME" => "collect",
                  "FLAGS" => "",
                  "ARGDIRS" => [],
                  "TYPE" => "function",
                  "CODE" => 88, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	706	798	
==>less defined $right;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construc <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	718	810	
==>less defined $right;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construc <==
3	/Users/nnunley/parrot/lib/Test/More.pm	17809	17940	
==>E
    }

    my $ok = $Test->ok( !$@, "use $module;" );

    unless( $ok ) {
        chomp $@;
        $@ =~ s{^BEGIN failed--compil <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	713	817	
==>right as the Parse::Yapp module itself.
#
# This notice should remain unchanged.
#
# (c) Copyright 19 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	693	793	
==>right as the Parse::Yapp module itself.
#
# This notice should remain unchanged.
#
# (c) Copyright 19 <==
3	/Users/nnunley/parrot/config/gen/icu.pm	1145	1286	
==>utput("icu-config", "--exists");

            if (($ret == -1) || (($ret >> 8) != 0)) {
                undef $icuconfig;
                $aut <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	7269	7378	
==>le()
#

sub compile_file {
    my ($file_name) = @_;

    my $pf = Parrot::PackFile->new;
    $pf->unpack_file <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10089	10191	
==>my $x (@_) {
    # Escape things very cautiously:
    $x =~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[ <==
3	/Users/nnunley/parrot/config/gen/platform.pm	5251	5378	
==>2;
            open IN_C, "< $_" or die "Can't open $_: $!";
            print PLATFORM_C <<"END_HERE";
/*
** $_:
*/
#line 1 "$_ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	6309	6423	
==>or fail
#          match(e) or fail
#
# Note that the placement of the checks is *not* always optimal. But
# they s <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	1266	1355	
==>te::ISA    = qw(Regex::Ops::Tree);
@Regex::Ops::Tree::multi_match::ISA  = qw(Regex::Ops::T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53328	53427	
==>UG_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_GC_DEBUG_FLAG); }\n  {{+=2}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54084	54183	
==>UG_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_GC_DEBUG_FLAG); }\n  {{+=2}};\n <==
3	/Users/nnunley/parrot/lib/Test/More.pm	15070	15163	
==>iagnostic_message);

Prints a diagnostic message which is guaranteed not to interfere with
tes <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	107	202	
==>ge Regex::CodeGen::Re;
use Regex::RegexOps ();
use base 'Regex::CodeGen';
use strict;

sub outpu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565705	565792	
==>e 194 \"src/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->can(interpreter, {{\@2}}, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566598	566685	
==>e 194 \"src/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->can(interpreter, {{\@2}}, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479246	479528	
==>div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 549,
                  "A <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	14828	14981	
==>ck
#                eq I0, 1, S.back
#                goto T.back
#          next:
#
sub rewrite_alternate {
    my ($self, $op, @args) = @_;
    my $last <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	5824	5947	
==>files/parrot_compiler.in' => 'languages/parrot_compiler/Makefile',
        commentType                               => '#', <==
3	/Users/nnunley/parrot/config/init/hints/irix.pm	256	374	
==>) || "";

    # 1185 An enumerated type is mixed with another type.
    if ($ccflags =~ /-woff /) {
        $ccflags =~ <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	201	299	
==>ad1 SYNOPSIS

    % perl examples/mops/mops.pl

=head1 DESCRIPTION

A Perl implementation of the F< <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	197	295	
==>ad1 SYNOPSIS

    % perl examples/mops/mops.pl

=head1 DESCRIPTION

A Perl implementation of the F< <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	4582	4677	
==>piler->emit("  .local pmc __func");
    $compiler->emit("  dlfunc __func, __lib, $fn_name, \"$si <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677586	677678	
==>pmc.ops\"\n    {{\@1}}->vtable->unshift_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678364	678456	
==>pmc.ops\"\n    {{\@1}}->vtable->unshift_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n <==
3	/Users/nnunley/parrot/lib/Test/More.pm	5400	5503	
==>not ok 5 - simple exponential
  ok 6 - force == mass * acceleration

The later gives you some idea of wh <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	9274	9372	
==>ir meta-variables.
	my ($max_pop, $max_push) = (0, 0);
	foreach (@$rules) {
		if ($_->{'pop'} > $ma <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885635	885915	
==>,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12379	12504	
==>R(args...)
    s/SUPER             # Macro: SUPER
      \(\s*(.*?)\)      # capture argument list
     /"$supermethod(" . full <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11870	11974	
==>_

=head1 NAME

TODO - TODO

=head1 SYNOPSIS

 TODO

  perl -MPod::Simple::HTML -e \
   "exit Pod::Simple <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884229	884591	
==>base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1001,
                  "ARGS" => [
                              " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832130	832213	
==>interpreter->ctx)->user_stack, &({{\@1}}), STACK_ENTRY_FLOAT, STACK_CLEANUP_NULL);\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832858	832941	
==>interpreter->ctx)->user_stack, &({{\@1}}), STACK_ENTRY_FLOAT, STACK_CLEANUP_NULL);\n <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	4813	4940	
==>{$s} = $o;
	if ($v eq 'T') {
	    $Code{$s} = $o;
	} elsif ($v =~ /[BDR]/) {
	    if ($v eq 'B') {
		$DataB{$s} = $o;
	    } els <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	23620	23731	
==>"as"
				feedme; # type...
				if (exists $th{$syms[CURR]}) {
					$type=$th{$syms[CURR]};
				} elsif (exists $ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	2820	2919	
==>>

Runs the PAST code and passes the test if a string comparison of the output
with the unexpected r <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	850	946	
==>d2 WARNING

Generating a C<Parrot::OpLib::core> module for a set of ops files that
you do not lat <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	560	652	
==>Construct::Block');
  confess("Identifier (" . ref($ident) . ") is not!") unless UNIVERSAL::i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	560	652	
==>Construct::Block');
  confess("Identifier (" . ref($ident) . ") is not!") unless UNIVERSAL::i <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	838	961	
==>});
      print $fh ' ', $key, '="', $value, '"';
    }
  }


  print $fh ">\n";
  $_[0]{'indent'}++;
  return;
}

sub _hand <==
3	/Users/nnunley/parrot/examples/benchmarks/freeze.pl	847	945	
==>\n", $e-$s;

print "Image len ", length($image), "\n";
print "array size ", scalar(@b), "\n";

=hea <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	730	862	
==>\\])/\\$1/g;
            $part =~ s/\n/\\n/g;
            push @ops, $self->output_print("\"$part\"");
        }
    }
    return @op <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37191	37323	
==>rans
{
    my ($self, $type) = @_;

    my $char = substr $type, 0, 1;
    return $1 if ($char =~ /([ISP])/);
    return 'N' if ($cha <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1840	1933	
==>efault implementation raises an exception indicating
that the core type is missing. See the C< <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4493	4617	
==>s} } == 0) {
        delete $self->{name};
        delete $self->{args};
        return $self->op('nop', [], %$self);
    } e <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5630	5754	
==>s} } == 0) {
        delete $self->{name};
        delete $self->{args};
        return $self->op('nop', [], %$self);
    } e <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	44725	44828	
==>is, if it is a C<s>, C<tr>, or C<y>),

=item [8]

the text of the second block of the operation 
(that i <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19831	19933	
==>E, $_[1] ]); }
	],
	[#Rule 15
		 'expr', 2,
sub
#line 121 "lib/Regex/Grammar.y"
{ return op('multi_matc <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	12053	12148	
==>programs to search the current C<PATH> for.  The first matching
program name is returned or C<un <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	1445	1540	
==>::slurp_file($py_out_f);
    my $pirate_file;

    $exit_code |= Parrot::Test::run_command($cmd, <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14460	14554	
==>');

  $self->_add_inst ('', 'new', [$return,'.Array']);
  $self->_add_inst ('', 'set', [$retur <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	2969	3061	
==>');

  $self->_add_inst('', 'new', [$return,'.Array']);
  $self->_add_inst('', 'set', [$retur <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	27911	28034	
==>$n
EOC
    for (my $i = $n-1; $i >= 0; $i--) {
	my $p = pop @stack;
	print <<EOC;
	$ar\[$i\] = $p->[1]
EOC
    }
    push @s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365218	365313	
==>DY" => "#line 303 \"src/ops/io.ops\"\n  if ({{\@2}} && {{\@1}}) {\n    PIO_putps(interpreter, {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366058	366153	
==>DY" => "#line 303 \"src/ops/io.ops\"\n  if ({{\@2}} && {{\@1}}) {\n    PIO_putps(interpreter, {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490400	490631	
==>"NAME" => "inc",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	491021	491252	
==>"NAME" => "inc",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
3	/Users/nnunley/parrot/lib/Test/More.pm	27432	27539	
==>L::isa($thing, $type);
    }

    return '';
}


=head2 Discouraged comparison functions

The use of the fol <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	286	380	
==>al "use warnings";

package Jako::Construct::Declaration::Sub;

use Carp;

use base qw(Jako::Co <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	7448	7570	
==>ss_data_start_token
{
    my $self = shift;
    my $token = shift;
    my $next = $self->get_token;
        
    return unl <==
3	/Users/nnunley/parrot/lib/Test/More.pm	18446	18545	
==>st be barewords, files not.
    $module = qq['$module'] unless _is_module_name($module);

    local( <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	1801	1896	
==>em C<parent()>

Accessors for the containing section/group for the item.

=cut

sub set_parent
{ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	32337	32478	
==>$parser,
        'result' => $state,
    );
    if (    scalar( @{$exprs} ) == 0
        and scalar( @{ $expr->[1] } ) != 0
        and $ <==
3	/Users/nnunley/parrot/config/auto/msvc.pm	831	938	
==>hints-file
    # callbacks that depend on knowing whether or not we're using Visual C++.

    # This key sho <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	75932	76036	
==>ARN/
	or defined $::RD_ERRORS  and  $_[0] =~ /ERRORS/
}

sub _error($;$)
{
	$ERRORS++;
	return 0 if ! _ve <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361699	361788	
==>ot_sprintf_c(interpreter, INTVAL_FMT, {{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362598	362687	
==>ot_sprintf_c(interpreter, INTVAL_FMT, {{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492128	492384	
==>=> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2787	2886	
==>ew {
  my $new = shift->SUPER::new(@_);
  #$new->nix_X_codes(1);
  $new->nbsp_for_S(1);
  $new->acce <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3142	3240	
==>ew {
  my $new = shift->SUPER::new(@_);
  $new->nix_X_codes(1);
  $new->nbsp_for_S(1);
  $new->acce <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	2252	2358	
==>abels, renaming them
    for my $stmt (@$ops) {
	if (ref $stmt && $stmt->{name} eq 'LABEL') {
	    push @eq <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2178	2272	
==>ROR("Undefined identifier '%s'.", $args[$i]->value) unless $arg_sym;
      $actual_arg_type = $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1878	1972	
==>ROR("Undefined identifier '%s'.", $args[$i]->value) unless $arg_sym;
      $actual_arg_type = $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841624	841845	
==>{{\@1}} = string_ord(interpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842388	842609	
==>{{\@1}} = string_ord(interpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	659	775	
==>T => 'ELSE' }, # TODO: fix these
);


#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $ident, $cond, $left, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9509	9739	
==>> ":base_loop,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 13,
                  "ARGS" => [ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	1884	1993	
==>ype   { return shift->{TYPE};     }
sub name   { return shift->{NAME};     }
sub value  { return shift->{VALUE <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	3127	3225	
==>ype  { return shift->{TYPE}; }
sub name  { return shift->{NAME}; }
sub value { return shift->{VALUE <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	5495	5607	
==>.*)$}x) {
      push @tokens, Jako::Token->new(
        $file, $line, 'exfix-arith', undef, $1);
      $text = $2 <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2735	2843	
==>/-llibgdbm/i;
        }
        my $extraLibs = '-lm -lgmp -lreadline -lpthread -lm -L/opt/local/lib  -licuuc <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2530	2638	
==>/-llibgdbm/i;
        }
        my $extraLibs = '-lm -lgmp -lreadline -lpthread -lm -L/opt/local/lib  -licuuc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	339938	340237	
==>> "inline",
                  "CODE" => 398,
                  "ARGS" => [
                              "i",
                              "p",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 128 \"src/ops/io.ops <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	11522	11629	
==>n 1 if $next eq $root;
		my $child;
		foreach $child ( $rules->{$next}->leftmostsubrules() )
		{
		    push( <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	60734	60832	
==>srcname_size}  = $st[7];
    $parser->YYData->{srcname_mtime} = $st[9];
    $parser->_InitLexico( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	586	676	
==>" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Ident is not!" unless <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	474	564	
==>" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Ident is not!" unless <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	3769	3878	
==>arent_path
{
    my $self = shift;
    
    return $self->{PARENT_PATH};
}

=item C<stat()>

Returns the C<Fil <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	1813	1921	
==>s;
    my %opcodes;

    print <<END_C;
#include "parrot/parrot.h"
#include "parrot/string.h"
END_C

    prin <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3698	3795	
==>F<tools/dev/nm.pl> to list the symbols.

=head1 TODO

=over 4

=item *

Write a pollution detector <==
3	/Users/nnunley/parrot/config/auto/jit.pm	4703	4875	
==>rint " (has_exec_protect " if $verbose;
            cc_gen("config/auto/jit/test_exec_$osname.in");
            eval { cc_build(); };
            if ($@) {
                p <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	38958	39078	
==>erate_final_pir($$) {
    my $srm = shift;
    my $mv = shift;
    
    # Emit complete label.
    my $pir .= "COMPLETE:\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2774	2875	
==>pop()>.

=cut

sub expr_address
{
    my ($self, $addr) = @_;
    return "opcode_to_prederef(interpret <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	6481	6631	
==>1;
      push @tokens, Jako::Token->new(
        $file, $line, 'ident', undef, $1);
      $text = $3;
      next;
    }
   
    #
    # Anything else i <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	5605	5726	
==>rint "rule error"
          end:
        .end\n);
}

sub _generate_subrule_pir {
    my($target, $pattern) = @_;
    $targ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035636	1035724	
==>_get_pmc_keyed_str(interpreter, lex_pad, lex_name);\n    if (!result) {\n\treal_exception <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036800	1036888	
==>_get_pmc_keyed_str(interpreter, lex_pad, lex_name);\n    if (!result) {\n\treal_exception <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5163	5276	
==>my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  $handl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3226	3339	
==>my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  $handl <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	3056	3156	
==>ame}_load(Parrot_INTERP interpreter);
EOH

    return $hout;
}

=item C<gen_c>

Writes the C file for <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	7800	7910	
==>sed.
    open  OLDOUT, ">&STDOUT" or die "Can't save     stdout" if $out;
    open  OLDERR, ">&STDERR" or die " <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7851	7959	
==>sed.
    open OLDOUT, ">&STDOUT" or die "Can't save     stdout" if $out;
    open OLDERR, ">&STDERR" or die " <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	8638	8745	
==>-blank line /continuing/ the current para
      if(@$paras) {
        DEBUG > 2 and print "Line ${$self}{'li <==
3	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	937	1039	
==>eters.

=cut


use strict;

my ($mini_parrot, $install_parrot);

$mini_parrot = 1    if @ARGV && $ARGV[ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1497	1595	
==>b start_head3 {  $_[0]{'Thispara'} = '' }
sub start_head4 {  $_[0]{'Thispara'} = '' }

sub start_Ve <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1027	1125	
==>b start_head3 {  $_[0]{'Thispara'} = '' }
sub start_head4 {  $_[0]{'Thispara'} = '' }

sub start_Ve <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	11508	11628	
==>EFAULT => -1,
		GOTOS => {
			'functioncall' => 9,
			'var' => 11,
			'_if_then' => 14,
			'varlist1' => 13,
			'st <==
3	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	261	365	
==>pilation
#
# Revision 1.9  2002/06/01 18:23:01  clintp
# For new assembler
#
# Revision 1.8  2002/05/25 0 <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	4372	4475	
==>^\\=cut\\s*\$" />
      </context>

END

print <<END;
      <context name="string" attribute="String" li <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	3103	3229	
==>f->{builder}->diag($diag) if $diag;
        }

        # The generated files are left in the t/* directories.
        # Let <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2696	2820	
==>f->{builder}->diag( $diag ) if $diag;
        }

        # The generated files are left in the t/* directories.
        # Let <==
3	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	928	1049	
==>up_to_date = 0;
        last;
    }
    my $checksum_line = (<OUTPUT>)[-1];
    close OUTPUT;
    if ($checksum_line !~ m! <==
3	/Users/nnunley/parrot/config/auto/signal.pm	1334	1453	
==>g/auto/signal/test_itimer.in');
    eval { cc_build(); };
    unless ($@ || cc_run() !~ /ok/) {
        $conf->data->set <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	14428	14536	
==>ere at that level.  The main point being that one cannot
        # just cast pointers and expect things to ma <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	6031	6205	
==>F>) {
            chomp;
            
            my ($type, $symbol) = /^........ (\S) (.*)/;
            
            if ($type eq 'U') {
                $defined_in{$symbol <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	11560	11666	
==>ne_group and length $line_group;
    pos($line_group) = 0;
    while($line_group =~
      m/([^\n\r]*)((?:\ <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	925	1022	
==>t can be compiled for use with the Parrot interpreter.

=head1 COMMAND-LINE OPTIONS

=over 4

=ite <==
3	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	937	1056	
==>erlHash   # Numerics
	new P21, .PerlHash     # Alphabetics.
	new P22, .PerlHash     # ??
	new P23, .PerlHash     # ??
	n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10514	10633	
==>"PARROT_JUMP_RELATIVE|PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT",
                  "NAME" => "bsr",
                  "FLAGS" <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	12199	12307	
==>, "FLOATVAL t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_N($reg_num <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	10135	10257	
==>CTIVE};
        $self->diag("    $msg test ($file at line $line)\n");
    } 

    return $test ? 1 : 0;
}


sub _unoverload <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17484	17605	
==>nt asc("Z")

' Logical Operators (not NOT)
print "      AND   OR    XOR   EQV   IMP"
for i = 0 to 1
for j = 0 to 1
print i <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	4528	4616	
==>ries
	#
.include "RT_initialize.pir"
.include "RT_aggregates.pir"
.include "RT_builtins.p <==
3	/Users/nnunley/parrot/config/inter/types.pm	864	996	
==>would you like your integers to be?", $intval);
        $floatval = prompt("And your floats?",                                $floatv <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	637	729	
==>$parser->get_token on a L<Pod::Simple::PullParser>, you might
get an object of this class.

T <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	543	635	
==>$parser->get_token on a L<Pod::Simple::PullParser>, you might
get an object of this class.

T <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1447	1546	
==>$self->{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/gets the transform's arguments.

= <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1056	1155	
==>$self->{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/gets the transform's arguments.

= <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4591	4700	
==>'nop', [], %$self);
    } elsif (@{ $self->{args} } == 1 && 2 == keys %$self) {
        return $self->{args}-> <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5728	5837	
==>'nop', [], %$self);
    } elsif (@{ $self->{args} } == 1 && 2 == keys %$self) {
        return $self->{args}-> <==
3	/Users/nnunley/parrot/Configure.pl	940	1035	
==>figure.pl not to run the MANIFEST check.

=item C<--prefix>

Sets the location where parrot will <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	33294	33424	
==>ww = temp('I');
	   print <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v-> <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	34043	34173	
==>ww = temp('I');
	   print <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v-> <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	34967	35097	
==>ww = temp('I');
	   print <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v-> <==
3	/Users/nnunley/parrot/config/init/headers.pm	481	597	
==>ated header files';
our @args;

sub runstep
{
    my ($self, $conf) = @_;

    my $inc = 'include/parrot';

    my @h <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	2195	2296	
==>scii.c binary.c iso-8859-1.c tables.c unicode.c',
             'chmod' => 'perl -MExtUtils::Command -e <==
3	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	265	365	
==>ing the line

  /* CHECKSUM: <checksum> */

to the end of all generated output files, and checking fo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	373511	373810	
==>NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 43 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374393	374692	
==>NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 43 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375276	375575	
==>NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 43 <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2129	2367	
==>ce
                last;
            s/^\\f//
                and $str .= "\f",      # form feed
                last;
            s/^\\n//
                and $str .= "\n",      # new line
                last;
            s/^\\r/ <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3643	3881	
==>ce
                last;
            s/^\\f//
                and $str .= "\f",      # form feed
                last;
            s/^\\n//
                and $str .= "\n",      # new line
                last;
            s/^\\r/ <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	1329	1432	
==>f, $conf) = @_;

    my $file = "src/core_pmcs.c";
    my @pmcs = split(/ /, $conf->data->get('pmc_names <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2182	2289	
==>t
    #  under non-ASCII charsets.  Something should be done about that.
  }
  return;
}

#@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2285	2392	
==>t
    #  under non-ASCII charsets.  Something should be done about that.
  }
  return;
}

#@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	177	259	
==>uages/jako/lib/Jako/Construct/Block/Conditional/If.pm 19606 2006-05-30T15:08:05.048 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5023	5149	
==>t_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  my $block = $se <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3086	3212	
==>t_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  my $block = $se <==
3	/Users/nnunley/parrot/config/init/hints/cygwin.pm	133	243	
==>age init::hints::cygwin;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    # cygwin's perl is compil <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	328	440	
==>} = 1;
    }

    print STDOUT 'lua: ', $parser->YYData->{srcname}, ':',
        $parser->YYData->{lineno}, ' <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	794	906	
==>} = 1;
    }

    print STDOUT 'lua: ', $parser->YYData->{srcname}, ':',
        $parser->YYData->{lineno}, ' <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1252	1364	
==>} = 1;
    }

    print STDOUT 'lua: ', $parser->YYData->{srcname}, ':',
        $parser->YYData->{lineno}, ' <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1968	2072	
==>I" . $PATHQUOTE . '/Users/nnunley/parrot/include' . $PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/User <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2264	2368	
==>I" . $PATHQUOTE . '/Users/nnunley/parrot/include' . $PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/User <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2059	2163	
==>I" . $PATHQUOTE . '/Users/nnunley/parrot/include' . $PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/User <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	18452	18555	
==>.

For example, suppose you have a document that starts out:

  =head1 NAME
  
  Hoo::Boy::Wowza -- Stuf <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	18933	19036	
==>.

For example, suppose you have a document that starts out:

  =head1 NAME
  
  Hoo::Boy::Wowza -- Stuf <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	1830	1930	
==>ta, but modifiable.

See L</"Data is not an API">.

=back

=head1 RULES

You can sometimes use C prep <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123850	123993	
==>/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124724	124867	
==>/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125598	125741	
==>/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299936	300328	
==>S" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 349,
                  "ARGS" => [
                              "i",
                              "nc",
                              " <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6761	6866	
==>->new($block, $self->require_literal);
      }

      $self->require_semicolon;

      $self->SYNTAX_ERROR <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	182	273	
==>MCs - Dynamic PMCs documentation section

=head1 SYNOPSIS

	use Parrot::Docs::Section::DynaP <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28855	28955	
==>} . '__'; }

sub issubrule { undef }
sub isterminal { 1 }
sub describe ($) { shift->{'description'} } <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30935	31035	
==>} . '__'; }

sub issubrule { undef }
sub isterminal { 1 }
sub describe ($) { shift->{'description'} } <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	25843	25942	
==>} . '__'; }

sub issubrule { undef }
sub isterminal { 1 }
sub describe ($) { shift->{'description'}} <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	11319	11460	
==>)
        \(interpreter,
        \s*
        {{\@(\d)}},\s*{{\@(\d)}}
        \);
        \s+{{\+=\d}}/xm) {
            $jit_func = "Parrot_j <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	11766	11907	
==>)
        \(interpreter,
        \s*
        {{\@(\d)}},\s*{{\@(\d)}}
        \);
        \s+{{\+=\d}}/xm) {
            $jit_func = "Parrot_j <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222665	222759	
==>spatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_CMP) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}} <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5511	5608	
==>f->_add_inst ('', 'set', [$pair.'[1]',$return]);
      $self->_add_inst ('', 'set', [$return,$pair <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17059	17152	
==>f->_add_inst ('', 'set',[$pair.'[1]',$return]);
    $self->_add_inst ('', 'set',[$return,$pair <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6546	6637	
==>f->_add_inst('', 'set', [$pair.'[1]',$return]);
  $self->_add_inst('', 'set', [$return,$pair <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4416	4594	
==>b\\lib',
            ccflags              => $ccflags,
            ccwarn               => '',
            has_dynamic_linking  => 1
        );

        # 'link' needs to be xilin <==
3	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	1021	1127	
==>_to_file( $code, $code_f );

  # STDERR is written into same output file
  my $diag = '';
  my $parrot_exit <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	44886	44977	
==>MPLEPAT.'\)';
my $BADREP		= '\G\((-?\d+)?\.\.(-?\d+)?'.$SIMPLEPAT.'\)';
my $ACTION		= '\G\s* <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	5132	5228	
==>ome to override this if they have man
 #  pages somewhere URL-accessible.

#~~~~~~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572940	573026	
==>PMC *name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native(interp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573850	573936	
==>PMC *name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native(interp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122145	122418	
==>1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123057	123330	
==>1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	7316	7423	
==>urn shift->skip('new');           }
sub skip_open_brace    { return shift->skip('open-brace');    }
sub skip <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214158	214452	
==>CMP) > 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	220823	221117	
==>CMP) > 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221771	222065	
==>CMP) > 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256455	256771	
==>}}) ? {{\@3}} : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "x <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257363	257679	
==>}}) ? {{\@3}} : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "x <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258271	258586	
==>}}) ? {{\@3}} : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	17320	17426	
==>c_types{$_[1]}) ? 0 : 1;
}

# XXX quick hack - to get MMD variants
sub get_super_mmds {
    my ($self, $met <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	333	422	
==>erbatimFormatted');
  return $new;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	332	421	
==>erbatimFormatted');
  return $new;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	1451	1592	
==>'', '-llibgdbm'); };
        } else {
            eval { cc_build('', 'gdbm.lib'); };
        }
    } else {
        eval { cc_build('', '-lgd <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54866	55117	
==>pinfo(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55626	55877	
==>pinfo(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122652	122894	
==>,
                  "CODE" => 152,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 248 \"src/ops/bit.ops\"\n  /*\n   * lvalue <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630507	630617	
==>interpreter, class);\n    if (type <= 0)\n        real_exception(interpreter, NULL, NO_CLASS,\n            \"Cl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631497	631607	
==>interpreter, class);\n    if (type <= 0)\n        real_exception(interpreter, NULL, NO_CLASS,\n            \"Cl <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2589	2685	
==>ordpad borks on \tc\tcl1, or I'd put that in =head1 and =head2

 'item-bullet'  => "\n{\\pard\\li <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648151	648353	
==>ARGS" => [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 229 \"src/ops/pmc.ops\"\n    {{\@1}} = pmc_type(interpre <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	18654	18762	
==>self->{flags}{noinit};

    # TODO gen C line comment
    my $classname = $self->{class};
    my $vtbl_flag = <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	4113	4213	
==>_str) =~ s/^| / src${slash}pmc${slash}/g;
    (my $TEMP_pmc_classes_pmc = $pmc_list)     =~ s/^| / sr <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	9111	9221	
==>Coverage Summary");
    print OUT qq(
            <i>You may click on a percentage to see line-by-line detail</ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33189	33362	
==>es1, new AssignOp( $parser,
            'result' => $var,
            'arg1'   => $nil->[0],
        );
        push @return1, $var;
    }
    else {
        push @opc <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3336	3456	
==>cs);

    while (my ($group, $pmcs) = each %$group_files) {
        my @pmcfiles = map { "$_.pmc" } @$pmcs;
        if (n <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3440	3560	
==>cs);

    while (my ($group, $pmcs) = each %$group_files) {
        my @pmcfiles = map { "$_.pmc" } @$pmcs;
        if (n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52700	52957	
==>S" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gc_debug",
                  "FLAGS" => "",
                  "ARGDIRS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53455	53712	
==>S" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gc_debug",
                  "FLAGS" => "",
                  "ARGDIRS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	689525	689726	
==>RGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 590 \"src/ops/pmc.ops\"\n   {{\@1}} = {{\@2}}->vtable->ge <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11545	11711	
==>ate = 0;
                }
            }
            $tokens[-1] .= $c;
        }
    }

#    for (0..$#tokens) { print STDERR "  $tokens[$_] $types[$_]\n"; }

    ret <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	17486	17615	
==>'NUM' => 69
		}
	},
	{#State 63
		DEFAULT => -36
	},
	{#State 64
		DEFAULT => -35
	},
	{#State 65
		DEFAULT => -23
	},
	{#State 66 <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	7885	7980	
==>print SOURCE $trans->run_core_after_addr_table($bs);
}

if ($suffix =~ /cgp/) {
    print SOURCE <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	433	550	
==>compile
{
  my $self     = shift; # Required:
  my $compiler = shift; # Required

#  my $namespace = "FILE"; # TODO: D <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10078	10191	
==>e');

    if (defined($_[0]) && length($_[0])) {
        local $" = ' ';
        _run_command(".${slash}test${exe} <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10659	10772	
==>e');

    if (defined($_[0]) && length($_[0])) {
        local $" = ' ';
        _run_command(".${slash}test${exe} <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5581	5705	
==>s = @_;

    my ( %group_files, %group_libs, %pmc_group, %pmc_libs );
    for my $pmc (@pmcs) {
        our $class;
        r <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5792	5916	
==>s = @_;

    my ( %group_files, %group_libs, %pmc_group, %pmc_libs );
    for my $pmc (@pmcs) {
        our $class;
        r <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	16418	16518	
==>re_load(0);
	$pir .= "### pre_load (typed eh)\n";
	$pir .= sub_meta($pre_load, { %$mv, LOADREG => 'lo <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7667	7875	
==>pos = $1;
            };

            @sempar =       $$dotpos
                        ?   map { $$_[1] } @$stack[ -$$dotpos .. -1 ]
                        :   ();

            $semval = $code ? &$code <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7319	7520	
==>pos = $1;
            };

            @sempar =       $$dotpos
                        ?   map { $$_[1] } @$stack[ -$$dotpos .. -1 ]
                        :   ();

            $semval = $code ? &$code <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	23559	23674	
==>$curr_open->[-1][1]{'target'} because of =end $content\n";
      pop @$curr_open;

      next;
      
    } elsif($p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	2796	2948	
==>{{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARRO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	36868	37020	
==>{{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARRO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019790	1019887	
==>ct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_localtime_r(&t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020721	1020818	
==>ct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_localtime_r(&t <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	3420	3512	
==>e WHITESPACE  enum_cclass_whitespace
#define WORDCHAR    enum_cclass_word
#define PUNCTUATION <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	4208	4353	
==>/g;
    if ($#cnt) {
        my @a = split /\n(?=(?:.*?) - )/, $_;
        foreach (@a) {
            m/^\s*(.*?) - (.+)/sm;
            $ignore{$ <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	12075	12198	
==>t_$temp_num = (double)GET_NCI_N($reg_num);";
        return "t_$temp_num";
    };
    /N/ && do {
        push @{$temps_ref} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24610	24720	
==>rrent_sub;\n  dest = (opcode_t *)p->vtable->invoke(interpreter, p, dest);\n  {{=dest}};\n",
                  " <==
3	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	935	1021	
==>ages/parrot_compiler/$test_prog_args < languages/$code_f";

  Parrot::Test::write_code_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369515	369780	
==>preter, {{\@2}}, (size_t){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	370400	370665	
==>preter, {{\@2}}, (size_t){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	12358	12460	
==>_);

  if(!defined $source) {
    Carp::croak("Can't use empty-string as a source for parse_file");
  } <==
3	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	2415	2565	
==>ne =~ $block_end ) {
                push @output, [ 1, q{} ];
            }
        }
    }
    # Badly formatted pir might end in the middle of a ver <==
3	/Users/nnunley/parrot/lib/File/Which.pm	2154	2283	
==>y $ext (@path_ext) {
            my $file = $base.$ext;
# print STDERR "$file\n";

            if ((-x $file or    # executable, n <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	21489	21584	
==>he given @msgs.  Like C<print>, arguments are simply
appended together.

Normally, it uses the f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444101	444537	
==>DIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 508,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "sc" <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	776	874	
==>compiles the result and invokes it.

print <<"END_PIR";

.HLL 'Tcl', ''
.namespace ['']

END_PIR

m <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10924	11013	
==>);
}

sub Regex::Ops::Tree::alternate::needparen { 1 }
sub Regex::Ops::Tree::alternate::re <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	11290	11415	
==>t * 1.2) {
        print STDERR
            "please increase hash_size ($hash_size) in tools/build/ops2c.pl " .
            "t <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	12763	12873	
==>matches undef and nothing else
        my $test = defined $got || defined $dont_expect;

        $self->ok($tes <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	13207	13317	
==>matches undef and nothing else
        my $test = defined $got || defined $dont_expect;

        $self->ok($tes <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	8422	8522	
==>line_count'}}, $line];
        DEBUG > 1 and print "Starting plain para at line ${$self}{'line_count' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	987	1084	
==>n with the tagname of "head1", token(s) for its
content, and then an end-token with the tagname of <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1415	1512	
==>n with the tagname of "head1", token(s) for its
content, and then an end-token with the tagname of <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2989	3093	
==>ld",
    'nc' => "CONST(%ld)->u.number",
    'pc' => "CONST(%ld)->u.key",
    'sc' => "CONST(%ld)->u.stri <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149171	149261	
==>({{\@1}}->vtable->get_number(interpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150112	150202	
==>({{\@1}}->vtable->get_number(interpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714804	715028	
==>O_softspace(interpreter, io, 1);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715727	715951	
==>O_softspace(interpreter, io, 1);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716672	716896	
==>O_softspace(interpreter, io, 1);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	15051	15139	
==>_complain_warn(@_) if $self->{'complain_stderr'};
  return $self->_complain_errata(@_);
} <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	15297	15385	
==>_complain_warn(@_) if $self->{'complain_stderr'};
  return $self->_complain_errata(@_);
} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656215	656444	
==>[
                              "i",
                              "p",
                              "ki"
                            ],
                  "BODY" => "#line 324 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	3675	3770	
==>ister" context="#stay" String="[INSP](\\d|[12]\\d|3[01])" />
          <RegExpr attribute="TempR <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2704	2798	
==>MLOutStream is a subclass of L<Pod::Simple> that parses
Pod and turns it into XML.

Pod::Simple <==
3	/Users/nnunley/parrot/config/inter/types.pm	515	625	
==>rgs = qw(ask intval opcode floatval);

sub runstep
{
    my ($self, $conf) = @_;

    my $intval   = $conf->opt <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	2190	2300	
==>s inferred.
#

sub at
{
  my $self = shift;
  my ($index, $count) = @_;

  $index = $self->pos unless defined $ <==
3	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	74	175	
==>d a set of files only if the inputs have
changed, as judged by their checksums.

=head1 USAGE

  rebui <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8786	8922	
==>ken ];

          last if $self->skip_close_paren;

          $self->require_comma;
        }
      }

      my $decl = Jako::Construct:: <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2232	2338	
==>MMON/) {
			@saves=();
			$edit="";
			foreach my $var (keys %{$code{$seg}->{declarations}}) {
				if (exis <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2641	2747	
==>MMON/) {
			@saves=();
			$edit="";
			foreach my $var (keys %{$code{$seg}->{declarations}}) {
				if (exis <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2308	2422	
==>lse {
		$retval = $self->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exists($$self{USER} <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2222	2327	
==>lse {
		$retval = $self->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exists($$self{USER} <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	759	848	
==>o.pod'),
			$self->new_item('', 'docs/gettingstarted.pod'),
			$self->new_item('', 'docs/s <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	33371	33489	
==>l_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   print <<EOC;
	$vv = $v->[1 <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	34120	34238	
==>l_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   print <<EOC;
	$vv = $v->[1 <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	35044	35162	
==>l_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   print <<EOC;
	$vv = $v->[1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343344	343681	
==>S" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	385	506	
==>dsc;
	my $sym=shift @tokens;
        $type="" unless defined $type;
         $sym="" unless defined $sym;
        unshift( <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	1569	1687	
==>olds the char's US-ASCII numeric value, which we'll
        #  now go get the local equivalent for.
    }

    # It's n <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	405	506	
==>ta->add($delimiter, $key1 => $value1, $key2 => $value2);
    my @keys = $data->keys;
    my $serialize <==
3	/Users/nnunley/parrot/config/auto/alignptrs.pm	41	131	
==>ation.
# $Id: /parrot/config/auto/alignptrs.pm 19593 2006-05-30T02:28:15.110975Z coke  $

= <==
3	/Users/nnunley/parrot/config/init/hints/aix.pm	26	114	
==>Perl Foundation.
# $Id: /parrot/config/init/hints/aix.pm 19593 2006-05-30T02:28:15.110975 <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	935	1037	
==>defined suppress];
our $PERL = q[perl];
our $LOAD_EXT = qq[.bundle];
our $O = qq[.o];
our $CFLAGS = qq[ <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	924	1026	
==>defined suppress];
our $PERL = q[perl];
our $LOAD_EXT = qq[.bundle];
our $O = qq[.o];
our $CFLAGS = qq[ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	928	1030	
==>defined suppress];
our $PERL = q[perl];
our $LOAD_EXT = qq[.bundle];
our $O = qq[.o];
our $CFLAGS = qq[ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7933	8054	
==>);
           # by now it's safe to consider the previous paragraph as done.
          DEBUG > 1 and print "Starting verba <==
3	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	448	555	
==>mpile files
#
# Revision 1.7  2002/05/24 03:59:46  clintp
# Screwed up ID strings
#

# Loads and runs the BA <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	17366	17460	
==>ine'   => {'from'=>$thisline,   'to'=>undef},
				'column' => {'from'=>$thiscolumn, 'to'=>undef <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	288	378	
==>val "use warnings";

package Jako::Construct::Expression::Infix;

use base qw(Jako::Constru <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91425	91692	
==>"inline",
                  "CODE" => 113,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 43 \"src/ops/bit.ops\"\n <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	1125	1222	
==>'C code',
	'cola' => 'Cola code',
	'cs' => 'C# code',
	'declarations' => 'Library declarations fil <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9505	9602	
==>OUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get details of method we're calling.
(${P <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7019	7116	
==>OUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get details of method we're calling.
(${P <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5575	5672	
==>OUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get details of method we're calling.
(${P <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	695	793	
==>nder the same copyright as the Parse::Yapp module itself.
#
# This notice should remain unchanged <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	675	771	
==>nder the same copyright as the Parse::Yapp module itself.
#
# This notice should remain unchanged <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42873	42975	
==>)
{
	my $class = ref($_[0]) || $_[0];
	local $Parse::RecDescent::compiling = $_[2],
	my $self =
	{
		"r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566907	567184	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "does",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567801	568078	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "does",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	311	410	
==>re-translation hook.
sub pre_translation() {
	# We need to emit PIR that sets up a dummy stack.
	ret <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	5440	5576	
==>me, $footer);
    my $type;
    my $body;
    my $short_name;
    my $args;
    my @args;
    my @argdirs;
    my $seen_pod;
    my $seen <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947094	947188	
==>reter, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\"charset '%Ss' not <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947996	948090	
==>reter, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\"charset '%Ss' not <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	1934	2059	
==>ist_re)\)
        (?:\s+(MMD_\w+))?\s*$/x) {
        my $mmd = defined $4 ? $4 : -1;
            push @{$vtable}, [ $1, $2, $3 <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	58362	58465	
==>f ($grammar =~ m/$RULE/gco)
		{
			_parseunneg("a rule declaration", 0,
				    $lookahead,$line) or nex <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22709	22810	
==>foreach my $t (reverse @to_unget) {
        last if $t->type eq 'start' and $t->tagname =~ m/^head\d$/ <==
3	/Users/nnunley/parrot/examples/benchmarks/primes2.pl	14	141	
==>=0;
my $max=5000;
my $i6 = 0;
my $i7;

while (1) {
    if (&isprime1($i)) {
	$i7 = $i;
	$i6++;
    }
    $i++;
    if ($i==$max) <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	11364	11446	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub par <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	870	952	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub par <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11768	11875	
==>c ${ITEMP1}
${PTEMP0} = ${STYPES}[${ITEMP1}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8831	8938	
==>c ${ITEMP1}
${PTEMP0} = ${STYPES}[${ITEMP1}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7403	7510	
==>c ${ITEMP1}
${PTEMP0} = ${STYPES}[${ITEMP1}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	6864	6970	
==>all Interface routines. The code needed to build a
 *     parrot to C call frame is in here
 *  Data Struct <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1554	1656	
==>eturn shift->{IDENT}; }
sub cond  { return shift->{COND};  }
sub left  { return shift->{LEFT};  }
sub o <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1690	1792	
==>eturn shift->{IDENT}; }
sub cond  { return shift->{COND};  }
sub left  { return shift->{LEFT};  }
sub o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651904	652150	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_repr",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514104	514194	
==>708 \"src/ops/math.ops\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514984	515074	
==>708 \"src/ops/math.ops\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515864	515954	
==>708 \"src/ops/math.ops\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4043	4147	
==>{
    $left = $left->compile($compiler);
  }

  unless ($right_type->name eq $calc_type->name) {
#    $se <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	170	258	
==>d.
# $Id: /parrot/config/gen/makefiles/dynclasses_pl.in 15833 2006-01-13T18:59:41.278052Z <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137691	137988	
==>LAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 169,
                  "ARGS" <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	3225	3348	
==>T");
		fetch;
		goto MAIN;
	}
	if ($cur eq ":") {
		append;
		emit("COMP");
		fetch;
		goto MAIN;
	}
	if ($cur eq "") { goto <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	4878	4971	
==>_on($_[0]);
  return $this->{'output_string'} = ${ $this->{'output_fh'} };
}

#@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1021	1164	
==>ock,

    DEST  => $dest,
    LEFT  => $left,
    OP    => $op,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => $dest->file,
    LINE  => $de <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1012	1155	
==>ock,

    DEST  => $dest,
    LEFT  => $left,
    OP    => $op,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => $dest->file,
    LINE  => $de <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	901	1044	
==>ock,

    DEST  => $dest,
    LEFT  => $left,
    OP    => $op,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => $dest->file,
    LINE  => $de <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216937	217049	
==>table->get_number(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217877	217989	
==>table->get_number(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  " <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	2466	2568	
==>eturn map { $self->at($index + $_) } (0..$count);
  }

  my $pos = $self->pos;

  $self->INTERNAL_ERROR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89354	89644	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90092	90382	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	259	350	
==>Parrot::OpTrans::CGoto> inherits from C<Parrot::OpTrans> to provide a
C C<goto> run loop.

= <==
3	/Users/nnunley/parrot/languages/scheme/Scheme.pm	1137	1245	
==>code;
}


=head2 compile

This is called in schemec.

=cut

sub compile {
  my $self = shift;

  $self->{toke <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	137	234	
==>XPORT @ISA);

use Parrot::Config;

require Exporter;
require Parrot::Test;

@EXPORT = ( qw(output_ <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	54	151	
==>XPORT @ISA);

use Parrot::Config;

require Exporter;
require Parrot::Test;

@EXPORT = ( qw(output_ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	23024	23120	
==>sing.  Sometimes this isn't possible.
Often a failing test will cause the whole program to die or <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	17443	17544	
==>counter, 1 ]),
		 aop('ge', [ $counter, $N, $lastback ]),
		 aop('goto', [ $try ]),
	$back => $self->o <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	5429	5525	
==>$i\n";
		if ($branch eq "gosub") {
			push @{$code{$seg}->{code}}, qq{\tbsr $labels{$jumps}\t# $b <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1805	1919	
==>mal_args), scalar(@args), $name)
    unless @formal_args == @args;

  for (my $i = 0; $i < @args; $i++) {
    my ($ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1505	1619	
==>mal_args), scalar(@args), $name)
    unless @formal_args == @args;

  for (my $i = 0; $i < @args; $i++) {
    my ($ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073696	1074006	
==>DE" => 1196,
                  "ARGS" => [
                              "i",
                              "i",
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 65 \"src/ops/experimental.o <==
3	/Users/nnunley/parrot/config/init/defaults.pm	6496	6612	
==>',

    );

    my $prefix = $conf->options->get('prefix');
    unless (defined $prefix) {
        my $VERSION = $con <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	17162	17260	
==>cro \s+ %%/$macros{$macro}/gx;
}

print $template;

# Given a code snippet, convert it to something <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483644	483740	
==>e 455 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484643	484739	
==>e 455 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485642	485738	
==>e 455 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception( <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	3391	3526	
==>sic
            Microsoft.VisualC
            Microsoft.Vsa
            Mono.CompilerServices.SymbolWriter
            Mono.Data.Sql <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	34598	34701	
==>}
sub STORE_SLICE_plus_3 {
    return Store_Slice(@_, 3);
}

sub DELETE_SLICE_plus_0 {
    my ($n, $c, $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650790	651073	
==>se\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651712	651995	
==>se\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
3	/Users/nnunley/parrot/lib/Parrot/Revision.pm	576	692	
==>il/version_h.pl rev 859
    if (-r $svn_entries) {
        open my $FH, '<', $svn_entries or die $!;
        while (< <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	1164	1272	
==>t->{KIND}; }
sub type { return shift->{TYPE}; }
sub text { return shift->{TEXT}; }


#
# dump()
#

sub dump
{ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4135	4233	
==>$eqnum
	set $result, 0.0
EQ_$eqnum: noop
CODE
	},
	'and' => sub {
		my($a1,$a2,$result,$op,$ot1,$ot <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	31054	31177	
==>) {
        push @declarations, aop('declare' => [ $var, $type ]);
    }

    my @ops =
      ( $backup =>   aop('popint', [ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1510	1624	
==>($options{module} ne 'Regex::CodeGen::IMCC') {
      eval "use $options{module}";
      die $@ if $@;
    }

    $c <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	383	476	
==>rses a file of function signatures of the form:

    <return-type-specifier><whitespace><param <==
3	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	925	1020	
==>general when svn is not available).
# See docs/submissions.pod on how to recreate this file afte <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3780	3875	
==>general when svn is not available).
# See docs/submissions.pod on how to recreate this file afte <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	37672	37819	
==>parser,
            'prolog' => 1,
            'arg1'   => $lbl,
        );
        $parser->YYData->{symbtab}->Insert($defn);
    }
    retur <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8965	9069	
==>elf = shift;
    my $path = shift || return;
    my ($volume, $directories, $name) = File::Spec->splitpat <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9364	9468	
==>elf = shift;
    my $path = shift || return;
    my ($volume, $directories, $name) = File::Spec->splitpat <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1035	1131	
==>ft)->any_errata_seen" \
   thingy.pod

=head1 DESCRIPTION

This class is that parses Pod and dump <==
3	/Users/nnunley/parrot/config/gen/revision.pm	98	191	
==>02:28:15.110975Z coke  $

=head1 NAME

config/gen/revision.pm - Parrot's configure revision

= <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2325	2437	
==>= $self->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exists($$self{USER})
	or	$$self{U <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2238	2341	
==>= $self->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exists($$self{USER})
	or	$$self{U <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	40543	40644	
==>en the opening and closing tags

=item [5]

the closing tag (or "" if no closing tag was found)

=back <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43210	43470	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pushmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43853	44113	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pushmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	287445	287537	
==>\"\n  {{\@1}} = (mmd_dispatch_i_pp(interpreter, {{\@2}}, {{\@3}}, MMD_CMP) < 0);\n  {{+=4}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126732	127086	
==>\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127867	128221	
==>\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129002	129356	
==>\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	15040	15163	
==>eq "APLVector" && $type2 eq "APLVector") {
          # vector to vector
          $template .= << 'END_PIR';
    # Verify Sh <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4810	4913	
==>$dest = $1;

    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4914	5017	
==>$dest = $1;

    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	31769	31888	
==>contact the author.

=cut

sub _whoa {
    my($check, $desc) = @_;
    if( $check ) {
        die <<WHOA;
WHOA!  $desc
T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787928	788018	
==>Y" => "#line 422 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed_int(i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788838	788928	
==>Y" => "#line 422 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed_int(i <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6585	6733	
==>x
      IF A$(I-1) > A$(I) THEN
         Exchange = TRUE
         B$=A$(I-1)
         A$(I-1)=A$(I)
         A$(I)=B$
         ' SWAP A$(I - 1), A$(I <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16238	16386	
==>x
      IF A$(I-1) > A$(I) THEN
         Exchange = TRUE
         B$=A$(I-1)
         A$(I-1)=A$(I)
         A$(I)=B$
         ' SWAP A$(I - 1), A$(I <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	667	757	
==>_state, prop_stack_depth
stack_depth = -1
prop_type_state = new Hash
prop_stack_depth = new <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	31050	31147	
==>}

sub _op_input_port_p {
}

sub _op_output_port_p {
}

sub _op_current_input_port {
}

sub _op_cu <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	21451	21565	
==>cmt$isnot
EOC
	}
	print <<EOC;
	$pres = new .Boolean
	$pres = $res # ugly
EOC
	push @stack, [-1, $pres, 'P'];
	retu <==
3	/Users/nnunley/parrot/lib/Test/More.pm	9954	10052	
==>is, $op, $that, $test_name );

Halfway between ok() and is() lies cmp_ok().  This allows you to
com <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	137	230	
==>tion_Limit $VERSION);
@ISA = ('Pod::Simple::PullParser');
$VERSION = '2.02';

use UNIVERSAL () <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6195	6307	
==>group $group!;
    return @ops;
}

sub output_getstart {
    my ($self, $reg, $group) = @_;
    $reg = value($reg <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5833	5945	
==>group $group!;
    return @ops;
}

sub output_getstart {
    my ($self, $reg, $group) = @_;
    $reg = value($reg <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3286	3386	
==>tput_le {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_test('le', $val1, $val2, $dest) <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11001	11106	
==>ie "Can't read $infile: $!\n";
    open (OUT, ">$outfile") or die "Can't write $outfile: $!\n";

    print <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11485	11590	
==>ie "Can't read $infile: $!\n";
    open (OUT, ">$outfile") or die "Can't write $outfile: $!\n";

    print <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11949	12054	
==>ie "Can't read $infile: $!\n";
    open (OUT, ">$outfile") or die "Can't write $outfile: $!\n";

    print <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598223	598475	
==>s;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599270	599522	
==>s;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600345	600597	
==>s;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRE <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	1634	1777	
==>nder($op)) {
                $line =~ s/<(\w+)>/$self->lookup_var($1, $ctx)/eg;
                if (length($label) >= 8) {
                    p <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1996	2091	
==>over_bullet  { --$_[0]{'Indent'} }
sub   end_over_number  { --$_[0]{'Indent'} }
sub   end_over_t <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1564	1659	
==>over_bullet  { --$_[0]{'Indent'} }
sub   end_over_number  { --$_[0]{'Indent'} }
sub   end_over_t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56382	56613	
==>terpinfo_p(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57144	57375	
==>terpinfo_p(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101836	102057	
==>tring_bitwise_not(interpreter, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102607	102828	
==>tring_bitwise_not(interpreter, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	7591	7720	
==>ile(
        'config/gen/makefiles/urm.in' => 'languages/urm/Makefile',
        commentType                   => '#',
        repl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584646	584740	
==>ng( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, NULL);\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585721	585815	
==>ng( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, NULL);\n  {{ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	60894	60992	
==>ule("interpolated literal terminal",$line,"'$1'");
		}
		elsif ($grammar =~ m/$TOKEN/gco)
		{
			_p <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	3898	3992	
==>ds are called by C<Parrot::OpFile> to perform ops
file macro substitutions.

=over

=item C<acc <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19198	19313	
==>tchcount, $min, $local_back ]),
      $next => $self->op_save_rxlocals($op),
              );

    return ($back, @o <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20788	20903	
==>tchcount, $min, $local_back ]),
      $next => $self->op_save_rxlocals($op),
              );

    return ($back, @o <==
3	/Users/nnunley/parrot/config/gen/platform.pm	2173	2280	
==>, "< $header_file" or die "Can't open $header_file: $!";
            print PLATFORM_H <<"END_HERE";
/*
** $h <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61368	61625	
==>ELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorson",
                  "FLAGS" => "",
                  "ARGDIR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62011	62268	
==>ELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorson",
                  "FLAGS" => "",
                  "ARGDIR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837277	837481	
==>reter->ctx)->user_stack, &({{\@1}}),\n                  STACK_ENTRY_INT);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	628	751	
==>=> $peer,

    KIND      => 'else',

    CONTENT   => [ ]
  }, $class;

  $block->push_content($self);

  return $self;
}

s <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15556	15668	
==>ush @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new AssignOp( $par <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19309	19421	
==>ush @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new AssignOp( $par <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5742	5867	
==>e can be many libs
        my %libs = %{ $class->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There shou <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5953	6078	
==>e can be many libs
        my %libs = %{ $class->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There shou <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	3295	3407	
==>ts} ||= \@ARGV;

    exit unless my @files = get_files( %options );

    set_flags( %options );

    local $Test: <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27616	27714	
==>) . '

		' . ($self->{"lookahead"}<0?'if':'unless')
		. ' ($text =~ s/\A($skip)/$lastsep=$1 and ""/ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29726	29824	
==>) . '

		' . ($self->{"lookahead"}<0?'if':'unless')
		. ' ($text =~ s/\A($skip)/$lastsep=$1 and ""/ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31823	31921	
==>) . '

		' . ($self->{"lookahead"}<0?'if':'unless')
		. ' ($text =~ s/\A($skip)/$lastsep=$1 and ""/ <==
3	/Users/nnunley/parrot/config/gen/platform.pm	2306	2447	
==>header_file"
END_HERE
            print PLATFORM_H <IN_H>, "\n\n";
            close IN_H;
        }

        # just fall through if file is m <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	9156	9255	
==>rldoc -q lock.
  sysopen my $fh, BUCKET, O_RDWR|O_CREAT
    or die "Couldn't open \"@{[ BUCKET ]}\": <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2307	2404	
==>o "1..5" means you're going to run 5 tests).  This strange
format lets Test::Harness know how many <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	12100	12230	
==>t !~ m/^[ A-Z]+$/s
          and $head1_text_content !~
            m/\((?:
             NAME | TITLE | VERSION | AUTHORS? | DESCRI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627426	627513	
==>\n  {{\@1}} = pmc_new_noinit(interpreter, {{\@2}});\n  {{\@1}}->vtable->init(interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628570	628657	
==>\n  {{\@1}} = pmc_new_noinit(interpreter, {{\@2}});\n  {{\@1}}->vtable->init(interpreter <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	16069	16192	
==>[0,1],				# PREFIX
			@match[2..17],				# THE BITS
			@match[20,21],				# ANY FILLET?
		       );
};

sub _match_quotelike($ <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	404	497	
==>SCRIPTION

Reads the ops files listed on the command line and outputs a
C<Parrot::OpLib::core> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61938	62136	
==>T_ERRORS_on(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62582	62780	
==>T_ERRORS_on(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	7481	7596	
==>ame
      }
    });
    $handler->end_element({ Name => 'arg' });
  }

  $handler->end_element({ Name => 'sub' });
} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138098	138252	
==>"
                            ],
                  "BODY" => "#line 70 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138994	139148	
==>"
                            ],
                  "BODY" => "#line 70 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139890	140044	
==>"
                            ],
                  "BODY" => "#line 70 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100488	100786	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101921	102219	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102692	102990	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "A <==
3	/Users/nnunley/parrot/lib/File/Which.pm	2538	2704	
==>t/com files.
                                # so we check -e. However, we don't want to pass -e on files
                                # that aren't in PATHEXT, lik <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	4393	4494	
==>trings{$text} = $line;
    my $h = hash_val($text);
    <<"DATA";
static /*const*/ char static_string_ <==
3	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	64	156	
==>06-05-05T07:12:06.535041Z fperrad  $

require Parrot::Test;

package Parrot::Test::Regex;

us <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1362	1452	
==>/* XXX in io/io.c */\nint PIO_softspace(theINTERP, PMC *pmc, int new);\n\n\n\n/*\n** set.op <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18774	18880	
==>x causes slow IMCC compilation\n";
			$runtime_jump=1;
		}
	}
}
sub parse_loop {
	my $do=pop @dos;
	if ($do <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	7198	7321	
==>die "compile $src_stem.c failed ($?)\n";
    }
    else {
        1;
    }
}

sub partial_link {
    my ($group, $libs, $ste <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7409	7532	
==>die "compile $src_stem.c failed ($?)\n";
    }
    else {
        1;
    }
}

sub partial_link {
    my ($group, $libs, $ste <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	4458	4565	
==>$_[3]?-1:0,
	      }, $_[0];
}

sub FETCH    
{
	my $parser = $_[0]->{parser};
	return $parser->{fulltextlen <==
3	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	1373	1474	
==>g( $diag ) if $diag;
  
  return Parrot::Test::slurp_file($out_f);
}


=head2 output_is

This gets cal <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Transcode.pm	30	130	
==>e::Transcode;

BEGIN {
  if(defined &DEBUG) {;} # Okay
  elsif( defined &Pod::Simple::DEBUG ) { *DEBU <==
3	/Users/nnunley/parrot/config/inter/progs.pm	574	672	
==>C compiler and linker to use';

@args = qw(ask cc cxx link ld ccflags ccwarn linkflags ldflags libs <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2279	2397	
==>$cond $left $op $right goto _LABEL_$name");
  }

  return;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handle <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	809	914	
==>n-th paren match" ],
    [ "delete(n)" => "delete record of n-th paren match" ],

    [ "goto(label)" => " <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	11482	11598	
==>put
{
    my $command = join " ", @_;

    # disable STDERR
    open OLDERR, ">&STDERR";
    open STDERR, ">test.err" <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1146	1245	
==>_label} = 1;
    $ctx->{external_labels}{$fail_label} = 1;

    my $opt2 = Regex::Optimize->new(%opt <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	6506	6601	
==>my(@e2);
	my($resulty, $typey, @codey);
	my($resultx, $typex, @codex);
	if ($type[NEXT] =~ /PUN/ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4263	4382	
==>ed more chars",
               "lt <rx_tmp>, $needed, $fail";
    }
}

sub output_match {
    my ($self, $code, $failLab <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48528	48632	
==>\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_BOUNDS_FLAG); }\n  else         { Interp_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49318	49422	
==>\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_BOUNDS_FLAG); }\n  else         { Interp_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20720	20809	
==>llParserEndToken>.

L<HTML::TokeParser>, which inspired this.

=head1 COPYRIGHT AND DISCLA <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	3020	3164	
==>ailed with exit code $exit_code."
                if $exit_code;
            $self->{builder}->diag($diag) if $diag;
        }

        # Th <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2631	2756	
==>ailed with exit code $exit_code." if $exit_code;
            $self->{builder}->diag( $diag ) if $diag;
        }

        # Th <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	7818	7937	
==>217,
 'sbquo'    , 8218,
 'ldquo'    , 8220,
 'rdquo'    , 8221,
 'bdquo'    , 8222,
 'dagger'   , 8224,
 'Dagger'   , 8 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740484	740592	
==>\n  {{\@1}} = {{\@2}}->vtable->get_string(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948829	948914	
==>/ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@1}}, {{\@2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949629	949714	
==>/ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@1}}, {{\@2 <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5490	5591	
==>',$item]);
      $self->_add_inst ('', 'set', [$pair.'[1]',$return]);
      $self->_add_inst ('', 'set <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17040	17136	
==>',$item]);
    $self->_add_inst ('', 'set',[$pair.'[1]',$return]);
    $self->_add_inst ('', 'set <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6529	6620	
==>',$item]);
  $self->_add_inst('', 'set', [$pair.'[1]',$return]);
  $self->_add_inst('', 'set <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5547	5656	
==>$stack[-1][0];
        $actions=$$states[$stateno];

#DBG>	print STDERR ('-' x 40),"\n";
#DBG>		$debug & 0 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5280	5385	
==>$stack[-1][0];
        $actions=$$states[$stateno];

#DBG>	print STDERR ('-' x 40),"\n";
#DBG>		$debug & 0 <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	5637	5755	
==>@_;

    while (1) {
        $parser->YYData->{INPUT}
            or $parser->YYData->{INPUT} = readline $parser->Y <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4421	4520	
==>t, $pattern, $captures) = @_;
    $target = _parrot_stringify($target);
    $pattern = _parrot_strin <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6926	7025	
==>t, $pattern, $captures) = @_;
    $target = _parrot_stringify($target);
    $pattern = _parrot_strin <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	13512	13645	
==>,
	{#State 17
		ACTIONS => {
			'CHAR' => 34,
			">" => 35
		}
	},
	{#State 18
		ACTIONS => {
			'CHAR' => 34,
			"=" => 36
		}
	},
	{ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	12219	12333	
==>pir;
}

sub post_call {
    # Nothing to do.
    return "";
}

sub pop_all {
    return "stack_depth = -1\nlazy_mov <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	11370	11464	
==>> is redirected to
F<test.err> during the execution, and deleted after the command's run.

=cut <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	690274	690494	
==>5,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 621 \"src/ops/pmc.ops\"\n   {{\@1}} = Parrot_freeze(i <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	5469	5569	
==>turn this on with the $RX_DEBUG environment
# variable)
#
# Otherwise, emits a print of the given str <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	6490	6585	
==>it under the same terms as Perl itself.

 Copyright 2000 Christian Lackas, Imperia Software Solu <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	39705	39809	
==>line 4";

	extract_tagged($text, '/para', '/endpara', undef,
				{reject => '/para', fail => MAX );

	# E <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	40019	40122	
==>line 4";

	extract_tagged($text, '/para', '/endpara', undef,
			{reject => '/para', fail => MAX );

	# E <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2513	2615	
==>$1", => "</$2>\n" ) : die "Funky $_"
  } @_;
}
sub changes2 {
  return map {; m/^([-_:0-9a-zA-Z]+)=([-_ <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	2068	2213	
==>ir                      [devel]
    examples/sdl/move_parrot_logo.pir               [devel]
    examples/sdl/parrot_small.png                   [d <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	2869	3002	
==>$b, $where";
    } elsif ($cond eq '>=') {
        return "ge $a, $b, $where";
    } else {
        die "Huh? cond $cond";
    }
}

su <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	845	939	
==>, \"$byte\", ".$self->output_label_use($failLabel);
}

sub output_classmatch {
    my ($self, $ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28354	28448	
==>D_TRACE;').'

			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched termin <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30431	30524	
==>D_TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched termin <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32631	32724	
==>D_TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched termin <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11093	11179	
==>o pre_call_HAS_RETURN_${CURIC}
goto pre_call_NO_RETURN_${CURIC}
pre_call_HAS_RETURN_${C <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8279	8365	
==>o pre_call_HAS_RETURN_${CURIC}
goto pre_call_NO_RETURN_${CURIC}
pre_call_HAS_RETURN_${C <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5941	6027	
==>o pre_call_HAS_RETURN_${CURIC}
goto pre_call_NO_RETURN_${CURIC}
pre_call_HAS_RETURN_${C <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	8806	8918	
==>\t# $cur_func\n";
}

sub gen_pir {
    my ($opcode, $arg, $rest, $cmt) = @_;
    no strict "refs";
    &$opcode($ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	14487	14582	
==>senting a regular expression.

Returns a Perl value which may be used instead of the correspondi <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	3868	3979	
==>"if class_name == \"$_\" goto $label\n";
    }
    $pir .= "goto FAIL\n";

    # Now build method dispatch table <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5553	5662	
==>roups_and_libs {
    my @pmcs = @_;

    my ( %group_files, %group_libs, %pmc_group, %pmc_libs );
    for my $ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5764	5873	
==>roups_and_libs {
    my @pmcs = @_;

    my ( %group_files, %group_libs, %pmc_group, %pmc_libs );
    for my $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656450	656555	
==>: {{\@2}}->vtable->defined_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657374	657479	
==>: {{\@2}}->vtable->defined_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LA <==
3	/Users/nnunley/parrot/config/auto/m4.pm	179	275	
==>ead1 DESCRIPTION

Determines whether GNU m4 exists on the system. It is OK when it doesn't exist. <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	24093	24198	
==>Make sure there is exactly one ~end in the parastack, at the end:
        @$paras = grep $_->[0] ne '~end' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677565	677652	
==>"#line 478 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_float(interpreter, {{\@1}}, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678343	678430	
==>"#line 478 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_float(interpreter, {{\@1}}, <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	6171	6315	
==>goto try_S
#          match(b) or goto try_S
#          goto next
#   try_S: check(3)
#          match(c) or fail
#          match([dxy]) or fail <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	34878	35011	
==>p_times,
  '/'                => \&_op_divide,
  'abs'              => \&_op_abs,
  'quotient'         => \&_op_quotient,
  'remainder <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9384	9478	
==>, \$text, $thisparser, 1;
	':'') . ($parser->{_check}{prevline}?'
	my $prevline;
	tie $prevline <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6641	6787	
==>esub(target)

            unless match goto match_fail
          match_success:
            print "matched"
            goto match_end
          ma <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7659	7804	
==>esub(target)
            unless match goto match_fail
          match_success:
            print "matched"
            goto match_end
          ma <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1092884	1093161	
==>, {{\@2}});\n    {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093688	1093963	
==>, {{\@2}});\n  {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094491	1094766	
==>, {{\@2}});\n  {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	15940	16082	
==>=> 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			"<=" => 85,
			'OR' => 84,
			")" => <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29793	29935	
==>=> 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			"<=" => 85,
			'OR' => 84,
			")" => <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4538	4633	
==>ch]|(?:charclass|feature)\.h)$/o
        or $self->parent->name eq 'ops' and $self->suffix =~ /^ <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5988	6095	
==>try->[4] =~ /_INT$/);
    next if ($entry->[4] =~ /_STR$/);
    next if ($entry->[4] =~ /_FLOAT$/);
    $mac <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6406	6513	
==>try->[4] =~ /_INT$/);
    next if ($entry->[4] =~ /_STR$/);
    next if ($entry->[4] =~ /_FLOAT$/);
    $mac <==
3	/Users/nnunley/parrot/Configure.pl	3073	3166	
==>ce>. The default is C<gc>.

=back

ICU Options

=over

=item C<--icu-config=/path/to/icu-confi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426179	426353	
==>md_dispatch_v_pi(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427066	427240	
==>md_dispatch_v_pi(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	9817	9954	
==>ce_file}}) {

            print OUT qq(
           <tr>
             <td>$function</td>
             <td><a href="$outfile_base.lines.html <==
3	/Users/nnunley/parrot/languages/m4/tools/scrutinize.pl	25	121	
==>tinize.pl - check Perl code with Perl::Critic

=head1 DESCRIPTION

This is not below 't', in orde <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324677	324761	
==>ine 144 \"src/ops/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325470	325554	
==>ine 144 \"src/ops/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{ <==
3	/Users/nnunley/parrot/config/inter/ops.pm	918	1032	
==>s->get('ops');

    # ops selection disabled - until we can build and load
    # opcode subset libs
    if (0 && $c <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21596	21689	
==>return = $self->_constant(1);
  my $temp = $self->_generate($node->{children}[1]);
  $self->_a <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21981	22074	
==>return = $self->_constant(1);
  my $temp = $self->_generate($node->{children}[1]);
  $self->_a <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	82	173	
==>ll the builtins we have.

my @commands = ((glob 'src/builtin/*.pir'), (glob 'runtime/builtin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656389	656478	
==>24 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_ke <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657313	657402	
==>24 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_ke <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	1844	1953	
==>>at($pos)->line);
  }

  return defined $self->{POS} ? $self->{POS} : -1;
}


#
# at()
#
# Without an argument <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	839512	839771	
==>n                  STACK_ENTRY_STRING);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788003	788259	
==>mber_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788913	789169	
==>mber_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6465	6564	
==>f a file contains plain text rather than POD it may be directly linked to.

=cut

sub is_docs_link
{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848221	848309	
==>"#line 78 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@1}}, {{\@2}}, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849001	849089	
==>"#line 78 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@1}}, {{\@2}}, <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	3215	3354	
==>result}->{symbol}\n";
    }

    sub visitFindGlobalOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{f <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76693	76797	
==>&& $::RD_TRACE =~ /\d+/
	    && $::RD_TRACE>1
	    && $::RD_TRACE+10<length($_[0]))
	{
		my $count = leng <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77004	77108	
==>&& $::RD_TRACE =~ /\d+/
	    && $::RD_TRACE>1
	    && $::RD_TRACE+10<length($_[0]))
	{
		my $count = leng <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	1945	2066	
==>debug\b/ )
    {
        $ENV{TEST_PROG_ARGS} .= " --gc-debug";
    }
}

sub get_files
{
    my %options = @_;

=pod

Conf <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2595	2697	
==>', name => $self->op } });
    $self->left->sax($handler);
    $self->right->sax($handler);
    $handle <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2472	2574	
==>', name => $self->op } });
    $self->left->sax($handler);
    $self->right->sax($handler);
    $handle <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117441	117723	
==>0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118179	118461	
==>0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	57561	57694	
==>,
                                  undef,1);

The list in the second argument means:
I<"Try and extract a ' or " delimited string, ot <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	2921	3023	
==>at
# many tokens (at most, given the possibility of running of the end) are
# returned. If a count is n <==
3	/Users/nnunley/parrot/lib/Test/More.pm	37117	37209	
==>n@pobox.comE<gt> with much inspiration
from Joshua Pritikin's Test module and lots of help fr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	372767	373142	
==>,
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 436,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => " <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10181	10364	
==>$defn, \@opcodes, $assign ];
            }
            else {
                my $assign = new AssignOp( $parser,
                    'arg1'   => undef,
                    'resul <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	3354	3456	
==>atch_end, result[match_num;1]
    eq match_start, -2, skipPrint
    eq match_end, -2, skipPrint
    pri <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121261	121586	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123957	124282	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124831	125156	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028225	1028450	
==>{{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029076	1029301	
==>{{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029917	1030142	
==>{{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34756	34859	
==>s_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "### end tran <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8551	8636	
==>)
next
print
data "ABANDON","CHART","COMPUTER"
data "DAMAGES","DESTRUCT","DOCK","IDLE" <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21415	21500	
==>)
next
print
data "ABANDON","CHART","COMPUTER"
data "DAMAGES","DESTRUCT","DOCK","IDLE" <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6978	7093	
==>)\n";
    }
}

sub compile {
    my ($src_stem, $dest_stem) = @_;

    $dest_stem ||= $src_stem;
    if (needs_build <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7189	7304	
==>)\n";
    }
}

sub compile {
    my ($src_stem, $dest_stem) = @_;

    $dest_stem ||= $src_stem;
    if (needs_build <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	6460	6563	
==>mmary}{$_} } qw<total ok failed todo skipped unexpect>);
  my $args = unpack("H*", $smoke{harness_args}) <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	4077	4164	
==>=item C<pir_2_pasm_like($code, $expected, $description)>

Compile the Parrot Intermediat <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	6623	6734	
==>my $d = pop @{$def_args{$arg}};
	    my $arg_name = pop @params;
	    $may_be_none{$arg_name} = 1;
	    print << <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	362	465	
==>) = @_;

    Test::More->import( $plan, @args );

    __PACKAGE__->_export_to_level( 2, __PACKAGE__ );
} <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	279	382	
==>) = @_;

    Test::More->import( $plan, @args );

    __PACKAGE__->_export_to_level( 2, __PACKAGE__ );
} <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7819	7916	
==>t "Should not happen (string)"
i%=0
if i% then print "Should not happen (int)"
i%=54
if i% then pr <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14806	14903	
==>t "Should not happen (string)"
i%=0
if i% then print "Should not happen (int)"
i%=54
if i% then pr <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5450	5620	
==>mbol}";
                if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                    print {$FH} " :slurpy";
                }
                $first = <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6482	6652	
==>mbol}";
                if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                    print {$FH} " :slurpy";
                }
                $first = <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4383	4521	
==>ble_visible{ALL}{$1});
            } elsif (/Calls (.*)/) {
                # calling a function outside of parrot!
                $extern <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612709	612978	
==>PE" => "inline",
                  "CODE" => 694,
                  "ARGS" => [
                              "p",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 496 \"src/ops/object <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	895	1002	
==>$self->{_labels}{'fail'} = $FAIL;
}


sub aop {
    Regex::Ops::List->op(@_);
}

sub genlabel {
    my ($sel <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636316	636646	
==>"FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 712,
                  "ARGS" => [
                              "p" <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	26660	26781	
==>sh @$curr_open, $para;
       # yes, we reuse the paragraph as a stack item
      
      my $content = join ' ', splice @$ <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	679	779	
==>ad2 Class Methods

=over 4

=cut

package Parrot::Distribution;

use strict;
use warnings;

use Data: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607287	607558	
==>> "inline",
                  "CODE" => 688,
                  "ARGS" => [
                              "p",
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 473 \"src/ops/object.ops\"\ <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	10221	10322	
==>($filename)}) {
            error("MANIFEST", $line, "$_: case-insensitive collision with " . $files_i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	205	301	
==>uct/Type.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

packag <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2098	2203	
==>plain
  # about the redefinition. Otherwise, we assume the programmer wanted to shadow the
  # previous de <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1618	1723	
==>plain
  # about the redefinition. Otherwise, we assume the programmer wanted to shadow the
  # previous de <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1845	1950	
==>plain
  # about the redefinition. Otherwise, we assume the programmer wanted to shadow the
  # previous de <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	3124	3254	
==>iag) if $diag;
        }

        # The generated files are left in the t/* directories.
        # Let 'make clean' and 'svn:ig <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2718	2845	
==>iag ) if $diag;
        }

        # The generated files are left in the t/* directories.
        # Let 'make clean' and 'svn:ig <==
3	/Users/nnunley/parrot/config/gen/revision.pm	227	326	
==>t's SVN revision.  In a release, there are no .svn directories,
so this field is empty.

=cut

packa <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2126	2234	
==>tion. Otherwise, we assume the programmer wanted to shadow the
  # previous definition.
  #

  if (defined $s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1646	1754	
==>tion. Otherwise, we assume the programmer wanted to shadow the
  # previous definition.
  #

  if (defined $s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1873	1981	
==>tion. Otherwise, we assume the programmer wanted to shadow the
  # previous definition.
  #

  if (defined $s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596201	596457	
==>}} = VTABLE_subclass(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597094	597350	
==>}} = VTABLE_subclass(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	26161	26306	
==>arp;
        my @args = DB::uplevel_args();
        shift @args;
        my $func = ( caller() )[2];

        Carp::carp(
            "Odd $func i <==
3	/Users/nnunley/parrot/config/init/defaults.pm	151	242	
==>nit/defaults.pm - Configuration Defaults

=head1 DESCRIPTION

Sets up the configuration syst <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135398	135535	
==>"
                            ],
                  "BODY" => "#line 326 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_xor(interpreter, { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136292	136429	
==>"
                            ],
                  "BODY" => "#line 326 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_xor(interpreter, { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137186	137323	
==>"
                            ],
                  "BODY" => "#line 326 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_xor(interpreter, { <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5790	5929	
==>{ $$_[0] } @$stack).
#DBG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defined($$token)
            or	do {
				($ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5515	5646	
==>{ $$_[0] } @$stack).
#DBG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defined($$token)
            or	do {
				($ <==
3	/Users/nnunley/parrot/config/inter/shlibs.pm	75	180	
==>bs.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/inter/shlibs.pm - Flags for shared li <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686439	686530	
==>ps\"\n   {{\@1}} = {{\@3}}->vtable->getprop(interpreter, {{\@3}}, {{\@2}});\n   {{+=4}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687329	687420	
==>ps\"\n   {{\@1}} = {{\@3}}->vtable->getprop(interpreter, {{\@3}}, {{\@2}});\n   {{+=4}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544593	544852	
==>p;\n saved_var1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545929	546188	
==>p;\n saved_var1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547265	547524	
==>p;\n saved_var1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	15312	15415	
==>ess $@;
		return;
	}

	my $endpos = pos($$textref);
	return ( $startpos, $codepos-$startpos,
		 $codepos <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710624	710716	
==>e 50 \"src/ops/python.ops\"\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (PIO_softspace <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711458	711550	
==>e 50 \"src/ops/python.ops\"\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (PIO_softspace <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	4534	4677	
==>',
             'i_locale' => 'define',
             'i_machcthr' => undef,
             'i_malloc' => undef,
             'i_math' => 'define', <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22213	22317	
==>$$)
{
	my ($self, $namespace, $rule) = @_;
	
'
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	698	793	
==>os.pir"
.include "languages/lua/lib/luadebug.pir"

.sub __start :main
#  print "start Lua\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718077	718186	
==>io, INTVAL_FMT, (INTVAL){{\@2}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719009	719118	
==>io, INTVAL_FMT, (INTVAL){{\@2}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Test/More.pm	5183	5280	
==>umber in order.  This is
largely done automatically for you.  However, it's often very useful to
a <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17331	17474	
==>n;

      my $arith = Jako::Construct::Statement::Concat->new($block, $ident, $left, $op, $right);

      next;
    }

    #
    # Bitwise Opera <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	163	260	
==>se vars qw( %labels $branchseq @selects);
use vars qw( @data $sourceline %common );
use vars qw( % <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	1643	1737	
==>pt/local/include -fno-common -no-cpp-precomp  -pipe -Wdeclaration-after-statement -I/usr/local/ <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1031	1125	
==>pt/local/include -fno-common -no-cpp-precomp  -pipe -Wdeclaration-after-statement -I/usr/local/ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1035	1129	
==>pt/local/include -fno-common -no-cpp-precomp  -pipe -Wdeclaration-after-statement -I/usr/local/ <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	3835	3957	
==>bel =~ s/\./_/g;
        $pir .= "if class_name == \"$_\" goto $label\n";
    }
    $pir .= "goto FAIL\n";

    # Now build <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	747	849	
==>n and report results.

=head1 SYNOPSIS

  tcl-test.pl [-c] [-u]

  -c Convert the .test files to .t fil <==
3	/Users/nnunley/parrot/config/inter/libparrot.pm	515	608	
==>rrot::Configure::Step ':inter';

$description = 'Determine if parrot should be linked agains <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031543	1031725	
==>lse\n        {{\@1}} = data_types[{{\@2}} - enum_first_type].size;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032412	1032594	
==>lse\n        {{\@1}} = data_types[{{\@2}} - enum_first_type].size;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	9901	10025	
==>h eq q{} ) {
         $path = File::Spec->curdir();
    }

    return $path;
}

# 
# private methods, should not be used by M <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	5157	5269	
==>tdir($options{libdir}, 'pkgconfig', $dest);
    } else {
        $dest =~ s/^runtime/lib/;
        $dest = File:: <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2477	2588	
==>Z]+)$/s
     ? ( $1, => "\n<$2>", "/$1", => "</$2>\n" ) : die "Funky $_"
  } @_;
}
sub changes2 {
  return map { <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	7986	8080	
==>_op

#include"jit_emit.h"

#undef CONST
#ifndef MAP
# define MAP(i) jit_info->optimizer->map_br <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	525104	525369	
==>FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 606,
                  "ARGS" => [ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10098	10209	
==>d = shift;
    return 1 if $ord >= ord('a') && $ord <= ord('z');
    return 1 if $ord >= ord('A') && $ord <= ord <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34419	34513	
==>ethods

=over 4

=cut

package Parrot::Pmc2c::default;
use base 'Parrot::Pmc2c';
import Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	2369	2514	
==>53:19 2006',
             'cp' => 'perl -MExtUtils::Command -e cp',
             'cpuarch' => 'ppc',
             'cxx' => '',
             'darwi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	16434	16561	
==>entless ? ( 'contentless' => 1 ) : (),
      },
    );
  }

  my($para, $para_type);
  while(@$paras) {
    last if @$paras == 1 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15874	15967	
==>>set_source( $some_filehandle_object );
 $parser->run;

Or:

 my $parser = SomePodProcessor->n <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26278	26439	
==>rser,
            'result' => $l_end,
        );
        push @opcodes, new LabelOp( $parser,
            'arg1' => $l_next,
        );
    }
    if ( defi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052125	1052269	
==>sc"
                            ],
                  "BODY" => "#line 172 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinterna <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053160	1053304	
==>sc"
                            ],
                  "BODY" => "#line 172 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinterna <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	7158	7286	
==>t_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c failed ($?)\n";
    }
    else {
        1;
    }
}

sub partial <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5452	5580	
==>t_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c failed ($?)\n";
    }
    else {
        1;
    }
}

sub partial <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7369	7497	
==>t_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c failed ($?)\n";
    }
    else {
        1;
    }
}

sub partial <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	7880	7984	
==>_S(Interp *interpreter, struct call_state *st, int n)
{
    assert(n < st->src.n);
    Parrot_fetch_arg_n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022785	1022994	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodelocaltime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023634	1023843	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodelocaltime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2808	2910	
==>t_read_assign {
	my($prompt,$filedesc,$noreloop)=@_;
	my @values=();

	push @{$code{$seg}->{code}}, $pr <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1368	1489	
==>h_to_language = $language;
        } elsif ($dir_count == 2) {
          $path_to_language = '.';
        } elsif ($dir_co <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1853	1974	
==>h_to_language = $language;
        } elsif ($dir_count == 2) {
          $path_to_language = '.';
        } elsif ($dir_co <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	1871	1970	
==>ode',
	'pl' => 'Perl script',
	'pm' => 'Perl module',
	'pmc' => 'PMC code',
	'pod' => 'POD documenta <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24994	25124	
==>,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 78
		ACTIONS => {
			"-" => 24,
			'NAM <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5738	5849	
==>ey, $trigger) = @_;

    return
        unless defined $self->{triggers}{$key}
        and defined $self->{trigg <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6308	6419	
==>ey, $trigger) = @_;

    return
        unless defined $self->{triggers}{$key}
        and defined $self->{trigg <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4395	4494	
==>he stack.
		$pir .= <<'PIR'
${INS} = concat "push s, "
${INS} = concat ${LOADREG}
${INS} = concat "\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151044	151135	
==>"\n  if (0 == string_equal(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152022	152113	
==>"\n  if (0 == string_equal(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34794	34901	
==>file we are
generating.

Overrides the default implementation to throw an execption for unknown
methods.

=c <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	15563	15668	
==>ll_pkg = $builder->exported_to() || '';
            # die Dumper( $code, $expected, $desc, \%extra, $extra <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	18114	18219	
==>ll_pkg = $builder->exported_to() || '';
            # die Dumper( $code, $expected, $desc, \%extra, $extra <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	15434	15670	
==>\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS",
                  "NAME" => "e <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	323	415	
==>ipt for dynamic PMCs

=head1 DESCRIPTION

This file is generated by F<config/gen/makefiles.pl <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	289	381	
==>ipt for dynamic PMCs

=head1 DESCRIPTION

This file is generated by F<config/gen/makefiles.pl <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	1151	1279	
==>n
# ########################
sub get_parrot_config($$) {
	# Try to include config information from Parrot tree.
	my %config = <==
3	/Users/nnunley/parrot/tools/dev/mk_inno.pl	541	637	
==>version.

=item C<icudir>

The directory to locate ICU.

=back

=head1 SEE ALSO

http://www.jrsof <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	156	245	
==>cs::HTMLPage - HTML Documentation Page

=head1 DESCRIPTION

C<Parrot::Docs::HTMLPage> give <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2864	2963	
==>ap {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUOTE";
}

ou <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3173	3272	
==>ap {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUOTE";
}

ou <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2968	3067	
==>ap {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUOTE";
}

ou <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	27059	27221	
==>st_results->[$_] = &share({
                    'ok'      => 1, 
                    actual_ok => undef, 
                    reason    => 'incrementing test numbe <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	34142	34273	
==>stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   print <<EOC;
	$vv = $v->[1]
EOC
       }
    }
    my $dest = <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	35066	35197	
==>stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   print <<EOC;
	$vv = $v->[1]
EOC
       }
    }
    my $dest = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548563	548888	
==>:advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 632,
                  "ARGS" => [
                              "n",
                              " <==
3	/Users/nnunley/parrot/config/init/manifest.pm	864	980	
==>Please try to find the above
files and then try running Configure again.

END

        return;
    }

    return $sel <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	21818	21930	
==>r1]->{'code'}\n";

        # Recurse to make code for sub branches.
        $pir .= "INS_BRANCH_$prefix$r1[$#r1]- <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	42125	42219	
==>t to
be extracted from).

In other words, the implementation of C<extract_tagged> is exactly
eq <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605904	606131	
==>\n    Parrot_add_attribute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606695	606922	
==>\n    Parrot_add_attribute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	3016	3131	
==>bel;
    my @output2; # ( { label => ?label, code => op } : tagged_op )
    my %labels; # { label string => tagged_o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421293	421590	
==>" => "bind",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422185	422482	
==>" => "bind",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
3	/Users/nnunley/parrot/Configure.pl	8492	8588	
==>ke and prod your system to figure out
how to build Parrot. The process is completely automated, u <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241562	241921	
==>se_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 281,
                  "ARGS" => [
                              "i",
                              "p", <==
3	/Users/nnunley/parrot/lib/Test/More.pm	16756	16855	
==>('Some::Module', qw(foo bar)) }

is like doing this:

   use Some::Module qw(foo bar);

Version numb <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	12566	12661	
==>tatic void store_op(op_info_t *info, int full) {
    HOP * const p = mem_sys_allocate(sizeof(HOP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608221	608473	
==>CODE" => 689,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 473 \"src/ops/object.ops\"\n    {{\@1} <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	28647	28760	
==>{
}

sub _op_log {
}

sub _op_sin {
}

sub _op_cos {
}

sub _op_tan {
}

sub _op_asin {
}

sub _op_acos {
}

sub _ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	17091	17181	
==>return dynext_load_code($classname, $classname => {});
}

=item C<pmc_is_dynpmc>

Determine <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	8934	9029	
==>rl 5 class that implements
a "struct-like" data structure.

The new class is given a constructor <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	144	236	
==>1 NAME

Parrot::Configure::Step - Configuration Step Utilities

=head1 DESCRIPTION

The C<Par <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	3483	3582	
==>ould not read ops file '$file'!\n" unless defined $temp_ops;

    die "OPS invalid for $file" unless <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242010	242100	
==>Y" => "#line 624 \"src/ops/cmp.ops\"\n  FLOATVAL l = VTABLE_get_number(interpreter, {{\@2}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242959	243049	
==>Y" => "#line 624 \"src/ops/cmp.ops\"\n  FLOATVAL l = VTABLE_get_number(interpreter, {{\@2}} <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20889	20985	
==>sub code($$$$)
{
	my ($self, $namespace, $rule) = @_;
	
''.($::RD_NO_TRACE?'':'
		Parse::RecDesce <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23665	23761	
==>sub code($$$$)
{
	my ($self, $namespace, $rule) = @_;
	
''.($::RD_NO_TRACE?'':'
		Parse::RecDesce <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33694	33790	
==>sub code($$$$)
{
	my ($self, $namespace, $rule) = @_;
	
''.($::RD_NO_TRACE?'':'
		Parse::RecDesce <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	6527	6634	
==>";
/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically by <==
3	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1123	1230	
==>";
/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically by <==
3	/Users/nnunley/parrot/tools/build/revision_c.pl	497	604	
==>";
/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically by <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	13694	13897	
==>$PConfig{make} EXEC=$exec_f exec},
                                    CD     => $path_to_parrot,
                                    STDOUT => $out_f,
                                    STDERR => $out_f <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	1237	1356	
==>q "-" and $next =~ /[\d\.]/) {
	#	append;
	#	fetch;
	#	goto NUMCONST;
	#}
	if ($cur eq '"') {   # String constants
		app <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	312	404	
==>tes F<src/jit_cpu.c>. It parses the JIT file for the
specified CPU architecture type (F<src/j <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054432	1054530	
==>nal_exception(1, \"Tried to get null global.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_g <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055559	1055657	
==>nal_exception(1, \"Tried to get null global.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_g <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	28073	28169	
==>contexts

In a list context, all the subroutines return a list, the first three
elements of which <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90803	90951	
==>" => "#line 43 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91657	91805	
==>" => "#line 43 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92511	92659	
==>" => "#line 43 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6565	6684	
==>rn 1 if modtime($source) > $target_mod;
    }

    return 0;
}

sub generate_dump {
    my ($pmc) = @_;

    if (needs_b <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6776	6895	
==>rn 1 if modtime($source) > $target_mod;
    }

    return 0;
}

sub generate_dump {
    my ($pmc) = @_;

    if (needs_b <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	937	1032	
==>ss UNIVERSAL::isa($value, qw(Jako::Construct::Expression::Value));

  my $self = bless {
    BLO <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27714	27819	
==>/e and '
		. ($check->{itempos}? 'do {'.Parse::RecDescent::Production::incitempos().' 1} and ' : '')
		. ' <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29824	29929	
==>/e and '
		. ($check->{itempos}? 'do {'.Parse::RecDescent::Production::incitempos().' 1} and ' : '')
		. ' <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31921	32026	
==>/e and '
		. ($check->{itempos}? 'do {'.Parse::RecDescent::Production::incitempos().' 1} and ' : '')
		. ' <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	16154	16260	
==>>{type} =~ /left|right/)
	{
	    if ($span != 3)
	    {
		Parse::RecDescent::_error(
			"Incorrect <$op->{t <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2421	2517	
==>_type = $right->type;
  }

  $self->INTERNAL_ERROR("No type for dest!")  unless defined $dest_typ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2343	2439	
==>_type = $right->type;
  }

  $self->INTERNAL_ERROR("No type for dest!")  unless defined $dest_typ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879027	879290	
==>"ARGS" => [
                              "s",
                              "s",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{ <==
3	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	587	716	
==>ush @{ $self->{raw_pir} }, split /\n/, $chunk;
        }
    }
    return;    #void
}

# XXX we should check for proper nesting

m <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14430	14527	
==>5) as first
u(2).foo=56
print u(2).foo

' Array assignment, 78
dim y(5)
y(1)=78
print y(1)

' Cast <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649908	650198	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "valid_type",
                  "FLAGS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650829	651119	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "valid_type",
                  "FLAGS" => <==
3	/Users/nnunley/parrot/config/gen/icu.pm	3716	3812	
==>t without ICU support
   --icu-config=(file)  Location of icu-config
   --icuheaders=(path)  Loca <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	5000	5099	
==>pl: Cannot open header file '$header' for writing: $!!\n";

open SOURCE, ">$source"
    or die "ops2 <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	19132	19257	
==>,                      # NO MODIFIERS
			$ld2pos,	$textlen-$ld2pos,	# REMAINDER
			$extrapos,      $str1pos-$extrapos,	# FILLE <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	37105	37226	
==>->[1]{'start_line'},
          "Unknown directive: $para->[0]"
        );

        # And maybe treat it as text instead of <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621700	621788	
==>ctx->current_cont;\n\tif (PObj_get_FLAGS(ccont) & SUB_FLAG_TAILCALL) {\n\t    PObj_get_FL <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14987	15086	
==>dd_inst ('', 'set', [$return,$return.'[0]']);

  return $return;
}

sub _op_cdr {
  my ($self, $node <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	670	763	
==>_code)
#define IREG(i) REG_INT(i)
#define NREG(i) REG_NUM(i)
#define PREG(i) REG_PMC(i)
#defin <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1235	1328	
==>sub start_item_number { $_[0]{'Thispara'} = $FREAKYMODE ? '' : "$_[1]{'number'}. "  }
sub star <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	38873	38971	
==>dicates the action to be taken if a matching end
tag is not encountered (i.e. before the end of the <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11464	11553	
==>_RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_END_${CUR <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8650	8739	
==>_RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_END_${CUR <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7222	7311	
==>_RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_END_${CUR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439075	439525	
==>",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 503,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "i"
                            ],
                  "BODY" => " <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1133	1231	
==>self->ident->scope eq 'global')) {
    my $pmc_type = $self->ident->type->imcc_pmc;
    my $pmc_reg <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1127	1225	
==>self->ident->scope eq 'global')) {
    my $pmc_type = $self->ident->type->imcc_pmc;
    my $pmc_reg <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519697	519958	
==>739 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520552	520813	
==>739 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	521407	521668	
==>739 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	2034	2152	
==>pir);
    if (! defined($status) || $status) {
        die "assemble failed with status " . ($? >> 8);
    }
}

sub gen <==
3	/Users/nnunley/parrot/languages/regex/test.pl	3708	3826	
==>pir);
    if (! defined($status) || $status) {
        die "assemble failed with status " . ($? >> 8);
    }
}

sub gen <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeSmart.pm	322	424	
==>able {
  return Encode::resolve_alias($_[1]);
}

sub encmodver {
  return "Encode.pm v" .($Encode::VERS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017027	1017236	
==>ne",
                  "CODE" => 1136,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 108 \"src/ops/sys.ops\"\n  {{\@1}} = Parr <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10088	10177	
==>OOP_${CURIC}:
if ${ITEMP0} == 0 goto PRE_CALL_PLOOP_END_${CURIC}
dec ${ITEMP0}
dec ${ITEMP <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7602	7691	
==>OOP_${CURIC}:
if ${ITEMP0} == 0 goto PRE_CALL_PLOOP_END_${CURIC}
dec ${ITEMP0}
dec ${ITEMP <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2014	2120	
==>ub sax
{
  my $self = shift;
  my ($handler) = @_;

  if (not $self->prefix and $self->peer and $self->peer <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1891	1997	
==>ub sax
{
  my $self = shift;
  my ($handler) = @_;

  if (not $self->prefix and $self->peer and $self->peer <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	1145	1244	
==>st the file(name) symbols.

=back

If more than one of all the above options are given, they are C<A <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	36064	36214	
==>the exit codes are...

    0                   all tests successful
    255                 test died
    any other number    how many failed (includin <==
3	/Users/nnunley/parrot/lib/Test/More.pm	34135	34285	
==>the exit codes are...

    0                   all tests successful
    255                 test died
    any other number    how many failed (includin <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2930	3080	
==>the exit codes are...

    0                   all tests successful
    255                 test died
    any other number    how many failed (includin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031578	1031831	
==>{\@2}} - enum_first_type].size;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032447	1032700	
==>{\@2}} - enum_first_type].size;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	71809	71933	
==>l') was
					       automatically created.");

					$self->_generate("$call : '$call'",0,1);
				}
			}
		}

	# CHECK FOR LEF <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	803	931	
==>$file->read;
	    
	    if ( $code =~ /^pmclass\s+[A-Z]/smo )
	    {
	        push(@concrete_items, 
	            $self->new_item <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719799	719899	
==>\"\n  PMC * const io = {{\@1}};\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720999	721099	
==>\"\n  PMC * const io = {{\@1}};\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18566	18707	
==>},
	{#State 49
		ACTIONS => {
			'NAME' => 101
		}
	},
	{#State 50
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~= <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	7998	8131	
==>_);
        $seen{$name} = $number;
        $fixed{$name} = $number if ($fix);
    }
    close OP;
    open OP, "> $file" or die "Can' <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	5221	5338	
==>0,
				"opcount"  => 0,
				"vars"	   => "",
			}, $class;
	}
}

sub reset($)
{
	@{$_[0]->{"prods"}} = ();
	@{$_[0]->{ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4752	4856	
==>my $self = $_[0];
  my $fh = $self->{'output_fh'};
  
  my($token, $type, $tagname, $scratch);
  my @stac <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	2337	2434	
==>s the Parrot Assembler code and passes the test
if a string comparison of the output with the unex <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	363	492	
==>ompiler;

use base qw(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my $self     = shift; # Required:
  my $compiler <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4833	4954	
==>reach @{ $op->{args} };
    return $minlen;
}

sub maxlen {
    my $op = shift;
    my $maxlen = 0;
    foreach my $kid (@ <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	9608	9703	
==>xplicitly identify the name of the
class being created.  The third form assumes the current pack <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	916	1043	
==>led';
    my $navigation = shift || '';
    my $resources = shift || '';
    
    <<"HEADER";
<!DOCTYPE HTML PUBLIC "-//W3C//DTD <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	5294	5391	
==>eature into the new Testing module.  He observed that the
main problem is not dealing with these e <==
3	/Users/nnunley/parrot/config/inter/progs.pm	3685	3777	
==>onf->data->get('cxx'), $conf->options->get('cxx'));
    $cxx = prompt("What C++ compiler do y <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863029	863265	
==>"inline",
                  "CODE" => 979,
                  "ARGS" => [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 138 \"src/ops/string.ops\"\n <==
3	/Users/nnunley/parrot/lib/Test/More.pm	31152	31259	
==>same keys and values.  This
is a deep check.

=cut

sub eq_hash {
    local @Data_Stack;
    return _deep_ch <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2005	2093	
==>could probably do the same thing with code like
$token->isa('Pod::Simple::PullParserEndTo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3852	3966	
==>roperty either!")
        unless $module_props{fnlib};

      $fnlib = $module_props{fnlib}->value;
    }

    my $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6516	6630	
==>roperty either!")
        unless $module_props{fnlib};

      $fnlib = $module_props{fnlib}->value;
    }

    my $ <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	567	658	
==>le;
use Parrot::OpTrans::Compiled;
use Parrot::OpLib::core;
use Parrot::Config;
use Parrot:: <==
3	/Users/nnunley/parrot/lib/Test/More.pm	28109	28220	
==>Checks if two arrays are equivalent.  This is a deep check, so
multi-level structures are handled correctly.

=c <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	360	463	
==>se qw(Jako::Construct::Expression);

sub new
{
  my $class = shift;
  my ($left, $op, $right);

  return <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	3586	3674	
==>e.dump $parent_dumps lib/Parrot/Pmc2c.pm \\
		src/pmc/$pmc.pmc
	\$(PMC2CD) src/pmc/$pmc.p <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37492	37629	
==>e 145
		ACTIONS => {
			"-" => 24,
			'TRUE' => 25,
			'NOT' => 27,
			'STRING' => 29,
			'NIL' => 30,
			'FALSE' => 33,
			'FUNCT <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	61361	61468	
==>deblock> ran 
out of characters in the text before closing one or more levels of nested
brackets.

=item C<U <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	11414	11516	
==>ecution, and deleted after the command's run.

=cut

sub capture_output
{
    my $command = join " ", @ <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	3629	3741	
==>he name.

=cut

sub full_name
{
    my $self = shift;
    my $name = $self->name;
    my @arg_types = $self->arg_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4924	5025	
==>ler->characters({ Data => $self->value });
    $handler->end_element({ Name => 'literal' });
  }
}


1 <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	6378	6476	
==>nks to the author of F<pmc2c.pl>, many useful code pieces got
reused.

=cut

use strict;
use warnin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	37913	38171	
==>"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 48,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 715 \"src/ops/core.ops\ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6476	6639	
==>act)
        and do {

                $act > 0
            and do {        #shift

#DBG>				$debug & 0x04
#DBG>			and	print STDERR "Shift and go to state $a <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6176	6332	
==>act)
        and do {

                $act > 0
            and do {        #shift

#DBG>				$debug & 0x04
#DBG>			and	print STDERR "Shift and go to state $a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23042	23231	
==>_t *)p->vtable->invoke(interpreter, p, dest);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25481	25670	
==>_t *)p->vtable->invoke(interpreter, p, dest);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41981	42120	
==>lock' => 192,
			'chunk' => 57
		}
	},
	{#State 182
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276238	276527	
==>{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277116	277405	
==>{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277994	278283	
==>{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1156	1268	
==>shift->{NAME};  }
sub args { return @{shift->{ARGS}}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	975	1087	
==>shift->{NAME};  }
sub args { return @{shift->{ARGS}}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22001	22106	
==>stant(1);
  my $temp = $self->_generate($node->{children}[1]);
  $self->_add_inst(''           ,'lt'    ,[ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	9903	10011	
==>rything but seq tries to match its children at the same
        # starting point in the string -- think of al <==
3	/Users/nnunley/parrot/config/init/miniparrot.pm	29	116	
==>e Perl Foundation.
# $Id: /parrot/config/init/miniparrot.pm 20320 2006-06-20T19:26:31.77 <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7237	7343	
==>e, "Improper indenting for \"$_\"\n(should be \"#$indent$2\" because it is inside of " . (join ' > ', @stac <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7544	7650	
==>e, "Improper indenting for \"$_\"\n(should be \"#$indent$2\" because it is inside of " . (join ' > ', @stac <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7902	8008	
==>e, "Improper indenting for \"$_\"\n(should be \"#$indent$2\" because it is inside of " . (join ' > ', @stac <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544637	544947	
==>r1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545973	546283	
==>r1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547309	547619	
==>r1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	17097	17242	
==>'%',
        breed    => 'Breed',
    ];


    my $cat = Cat->new( name     => 'Socks',
                        kittens  => ['Monica', 'Kenneth'], <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	1228	1330	
==>if $opt{verbose};
    open my $fh, $direction, $filename or die "$action $filename: $!\n";
    return $ <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	22332	22434	
==>if $opt{verbose};
    open my $fh, $direction, $filename or die "$action $filename: $!\n";
    return $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	13247	13370	
==>and add a space around the argument,
        # like so:
        #
        #    goto OFFSET(( (void*)interpreter->happy_place <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	4769	4877	
==>program_code[] = {
END_C

    $pf->byte_code($byte_code);

    # this is now packed PBC
    $byte_code = $pf- <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3905	4000	
==>and add a space around the argument, like so:

    goto OFFSET(( (void*)interpreter->happy_place <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	4323	4427	
==>@@@@

#sub curr_open { # read-only list accessor
#  return @{ $_[0]{'curr_open'} || return() };
#}
#sub _ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369466	369555	
==>1 \"src/ops/io.ops\"\n  {{\@1}} = PIO_reads(interpreter, {{\@2}}, (size_t){{\@3}});\n  {{+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	370351	370440	
==>1 \"src/ops/io.ops\"\n  {{\@1}} = PIO_reads(interpreter, {{\@2}}, (size_t){{\@3}});\n  {{+ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	857	970	
==>block,
    LEFT  => $left,
    RIGHT => $right
  }, $class;

  $block->push_content($self);

  return $self;
}

su <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	865	978	
==>block,
    LEFT  => $left,
    RIGHT => $right
  }, $class;

  $block->push_content($self);

  return $self;
}

su <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	10269	10379	
==>P') {
	if ($c =~ /^[_a-zA-Z]/ && !$names{$c}) {	# True, False ...
	    print <<EOC;
	.local pmc $c $cmt
	$c = n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958578	958851	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encod <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959379	959652	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encod <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960181	960454	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encod <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5032	5134	
==>E', 'STACK', 'CHECK', 'DOTPOS' };

#DBG>	my($debug)=$$self{DEBUG};
#DBG>	my($dbgerror)=0;

#DBG>	m <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4789	4886	
==>E', 'STACK', 'CHECK', 'DOTPOS' };

#DBG>	my($debug)=$$self{DEBUG};
#DBG>	my($dbgerror)=0;

#DBG>	m <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	44147	44244	
==>\!)';
my $POSLOOKAHEAD	= '\G(\s*\.\.\.)';
my $RULE		= '\G\s*(\w+)[ \t]*:';
my $PROD		= '\G\s*([|]) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719772	719868	
==>ne 133 \"src/ops/python.ops\"\n  PMC * const io = {{\@1}};\n  STRING *s;\n  if (PIO_softspace(int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720972	721068	
==>ne 133 \"src/ops/python.ops\"\n  PMC * const io = {{\@1}};\n  STRING *s;\n  if (PIO_softspace(int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638643	638901	
==>o"
                               ],
                  "TYPE" => "function",
                  "CODE" => 714,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 128 \"src/ops/pmc.o <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7550	7681	
==>pm
    foreach ($out, $err) {
        $_ = File::Spec->devnull
            if $_ and $_ eq '/dev/null';
    }

    if ($out and $err <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4973	5070	
==>ness
Dim t7(1),w(10)
w=20
w(2)=5
t7(0)=0
w=w-(T7(0) * T7(0) * 12)
' Expect 20
print w
' Expect -20 <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	3264	3413	
==>I18N.West
            I18N
            ICSharpCode.SharpZipLib
            Microsoft.JScript
            Microsoft.VisualBasic
            Micros <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25934	26080	
==>}

=begin commented_out

    #
    # Bare Blocks:
    #
    #   <label>: {
    #   {
    #

    if ($token->is_open_brace) {
      my $label = $las <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105606	105860	
==>bit.ops\"\n  {{\@1}} |= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	106344	106598	
==>bit.ops\"\n  {{\@1}} |= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	1474	1589	
==>te position.
#

sub pos
{
  my $self = shift;
  my ($pos) = @_;

  if (defined $pos) {
    my $count = scalar(@{$sel <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6558	6701	
==>to TRUE.
   FOR I = 2 TO Max
      IF A$(I-1) > A$(I) THEN
         Exchange = TRUE
         B$=A$(I-1)
         A$(I-1)=A$(I)
         A$(I)=B$ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16211	16354	
==>to TRUE.
   FOR I = 2 TO Max
      IF A$(I-1) > A$(I) THEN
         Exchange = TRUE
         B$=A$(I-1)
         A$(I-1)=A$(I)
         A$(I)=B$ <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	7615	7735	
==>ops.num";
    }
    my ($name, $number, @lines, %seen, %fixed, $fix);
    local *OP;
    $fix = 1;
    open OP, "< $file" <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4189	4287	
==>${__PACKAGE__.'::'}{_DBParse})#Already loaded ?
		and	return;
	}
	my($fname)=__FILE__;
	my(@drv <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	11113	11207	
==>r $desc?, Bool :$todo, Str :$depends) returns Bool is export`
- `unlike (Str $got, Rule $expect <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3974	4068	
==>${__PACKAGE__.'::'}{_DBParse})#Already loaded ?
		and	return;
	}
	my($fname)=__FILE__;
	my(@drv <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	6782	6924	
==>ta->get('slash');
                '/' x ($len/2) . ($len%2 ? $slash : '');
            }eg;
            # replace \* with \\*, so make will not <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	3693	3818	
==>.const $type $name = $value");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handl <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31268	31365	
==>meth) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $line, $out_name)>

Retu <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35899	35996	
==>meth) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $line, $out_name)>

Retu <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39888	39985	
==>meth) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $line, $out_name)>

Retu <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	13037	13170	
==>r     stdio.h
puts        stdio.h
qsort       stdlib.h
raise       signal.h
rand        stdlib.h
real        complex.h
realloc     std <==
3	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	1012	1116	
==>file after SVN
# has been told about new generated files.
# 
# Ignore the SVN directories
\B\.svn\b

# de <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3867	3970	
==>file after SVN
# has been told about new generated files.
#
# Ignore the SVN directories
\B\.svn\b

# de <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4644	4740	
==>a trigger name, & a C<CODE> ref and returns a
L<Parrot::Configure::Data> object.

=cut

sub settr <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	31912	32008	
==>turned in the third element is an
empty string.

In a scalar context, just the extracted substrin <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	1454	1558	
==>od.  It is not a parser for the set of Pod-like
#  languages which happens to contain Pod -- it is just f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021619	1021715	
==>e 202 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_gmtime <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022461	1022557	
==>e 202 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_gmtime <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2137	2271	
==>ce;
};

sub partial_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Nee <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2429	2563	
==>ce;
};

sub partial_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Nee <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2224	2358	
==>ce;
};

sub partial_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Nee <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	8247	8390	
==>c-basic-offset: 4
        * indent-tabs-mode: nil
        * End:
        *
        * vim: expandtab shiftwidth=4:
        */
    );
    shift @e <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4446	4611	
==>se\s*$/
        	and     do {
                	s/^#DBG>//;
                	push(@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@d <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4224	4380	
==>se\s*$/
        	and     do {
                	s/^#DBG>//;
                	push(@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@d <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	14291	14391	
==>uction can never successfully match, so it was
					  optimized out of the final parser$caveat. $advi <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2891	3001	
==>lf, $val1, $val2, $dest) = @_;
    $self->output_test('<', $val1, $val2, $dest);
}

sub output_le {
    my ($se <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028128	1028219	
==>EP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_event(interpreter, (FLOAT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028979	1029070	
==>EP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_event(interpreter, (FLOAT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	521800	522159	
==>se_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 602,
                  "ARGS" => [
                              "n",
                              "n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173592	173746	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_str",
                  "FLAGS" => ":base <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	21911	22009	
==>_->[2] ne "USER") {
				print CODE<<NOTUSER;
	new P2, .PerlHash
	P2["name"]= '$_->[0]'
	P2["type"]= <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8238	8365	
==>ys have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg = value($reg);

    my @ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7891	8018	
==>ys have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg = value($reg);

    my @ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8680	8805	
==>ys have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg = value($reg);

    my <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	1008	1176	
==>long",
       4 => "long *",
       c => "char",
       s => "short",
       2 => "short *",
       f => "float",
       d => "double",
       t => "char *",
       v => <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	1423	1591	
==>long",
       4 => "long *",
       c => "char",
       s => "short",
       2 => "short *",
       f => "float",
       d => "double",
       t => "char *",
       v => <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	2328	2496	
==>long",
       4 => "long *",
       c => "char",
       s => "short",
       2 => "short *",
       f => "float",
       d => "double",
       t => "char *",
       v => <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2532	2655	
==>uuc -licudata -lpthread -lm';
        $extraLibs =~ s/blib/..\\blib/g;
        $extraLibs =~ s/\Q$(A)\E/.lib/g;
        $lib <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2841	2964	
==>uuc -licudata -lpthread -lm';
        $extraLibs =~ s/blib/..\\blib/g;
        $extraLibs =~ s/\Q$(A)\E/.lib/g;
        $lib <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2636	2759	
==>uuc -licudata -lpthread -lm';
        $extraLibs =~ s/blib/..\\blib/g;
        $extraLibs =~ s/\Q$(A)\E/.lib/g;
        $lib <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	448	593	
==>piler) = @_;

  return bless {
    FILE     => undef,
    LINE     => undef,
    TOKENS   => [ ],
    POS      => -1
  }, $class;
}


#
# scan_lin <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1795	1891	
==>= ''   }

sub start_over_bullet  { ++$_[0]{'Indent'} }
sub start_over_number  { ++$_[0]{'Indent'} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1363	1459	
==>= ''   }

sub start_over_bullet  { ++$_[0]{'Indent'} }
sub start_over_number  { ++$_[0]{'Indent'} <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	140	251	
==>se strict;

use base 'Parrot::Test::Bc';

sub get_out_fn {
    my $self = shift;
    my ( $count, $options ) = @ <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Posix.pm	138	249	
==>se strict;

use base 'Parrot::Test::Bc';

sub get_out_fn {
    my $self = shift;
    my ( $count, $options ) = @ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34195	34295	
==>cted = $text;
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' )
		. ($self->{"lookahead"}<0? <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	1249	1430	
==>iler_faq.pod                           [devel]doc
    docs/configuration.pod                          [devel]doc
    docs/debug.pod                                  [devel]doc
    do <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	5652	5771	
==>es{$branch}{$cat} = [
        map  {{ %$_, timestamp => $_->{timestamp}[1] }}
        sort {
          $b->{revision} <= <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	51593	51711	
==>ed.");
				}
				else
				{
					undef $self->{_AUTOACTION};
					$self->{_AUTOTREE}{NODE}
						= new Parse::RecDescen <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38340	38475	
==>49
	},
	{#State 151
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39, <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	9168	9270	
==>@@@@@@@@@@@@@@@@@@@@@

sub _handle_encoding_line {
  my($self, $line) = @_;
  
  # The point of this ro <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	32314	32396	
==>------------------------------------------------------------------------

my %globa <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1248	1350	
==>'YYERROR' => 'CODE', YYVERSION => '',
			 YYRULES => 'ARRAY', YYSTATES => 'ARRAY', YYDEBUG => '');
#M <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1205	1305	
==>'YYERROR' => 'CODE', YYVERSION => '',
			 YYRULES => 'ARRAY', YYSTATES => 'ARRAY', YYDEBUG => '');
#M <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2469	2567	
==>is ) did not have extractable descriptions.\n";
    if($show_full) {
	print "Their heads are includ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	13313	13414	
==>ich will set source_dead to true
    }
    $self->parse_lines(@lines);
  }
  delete($self->{'source_fh <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	169	263	
==>Build files

=head1 DESCRIPTION

Generates the various F<Makefile>s and other files needed to b <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	12198	12313	
==>ntf <<DIAGNOSTIC, $got, $expect);
         got: %s
    expected: %s
DIAGNOSTIC

}    

=item B<isnt_eq>

  $Test->is <==
3	/Users/nnunley/parrot/languages/regex/test.pl	934	1034	
==>f INPUT and OUTPUT
  sections, where an INPUT: section begins with the string 'INPUT:' on
  a line by <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2632	2727	
==>nges' => 'Project info',
	'CREDITS' => 'Project info',
	'DEVELOPING' => 'Project info',
	'harnes <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	29422	29536	
==>$i >= 0; $i--) {
	$p = temp('P');
	print <<EOC;
	$p = $seq\[$i\] $cmt
EOC
	push @stack, [-1, $p, 'P'];
    }
}

sub <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	42213	42326	
==>nless $func_obj eq 'P0';
  $self->_add_inst('', 'set', ['I0', 0]);        # Pass all args in Px registers
  $self- <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	99	197	
==>02:28:15.110975Z coke  $

=head1 NAME

config/auto/gmp.pm - Test for GNU MP (GMP) Math library

=he <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	23245	23354	
==>vt_clone->isa_str = string_make(interp,
            "$isa", @{[length($isa)]}, "ascii",
            PObj_const <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6053	6145	
==>ine 144 \"src/ops/core.ops\"\n    Parrot_load_bytecode(interpreter, {{\@1}});\n    {{+=2}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6719	6811	
==>ine 144 \"src/ops/core.ops\"\n    Parrot_load_bytecode(interpreter, {{\@1}});\n    {{+=2}};\n <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	1581	1681	
==>ps::Tree::scan::ISA         = qw(Regex::Ops::Tree::_onearg);
@Regex::Ops::Tree::atend::ISA        = q <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	6106	6250	
==>[dxy]e/ compiles to
#
#          check(2)
#          match(a) or goto try_S
#          match(b) or goto try_S
#          goto next
#   try_S: che <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	13368	13465	
==>ng")` parameter to most of the functions is a way
to provide a comment that refers to another file <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	1202	1295	
==>s may be useful for debugging.

=item C<--include=/path/to/pmc>

Specify include path where to <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540478	540579	
==>-{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n whil <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541730	541831	
==>-{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n whil <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542982	543083	
==>-{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n whil <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5861	6052	
==>{$FH} "$_->{symbol}";
            if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                print {$FH} " :flat";
            }
            $first = 0;
        }
        p <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6956	7147	
==>{$FH} "$_->{symbol}";
            if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                print {$FH} " :flat";
            }
            $first = 0;
        }
        p <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	9870	10061	
==>{$FH} "$_->{symbol}";
            if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                print {$FH} " :flat";
            }
            $first = 0;
        }
        p <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	911	1022	
==>(32 - $_[1])) & (1 << (32 - $_[1])) - 1);
}

sub gen_code {
  # Discard upper 32 bits on 64 bit archs.
  my $MSK <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	57	160	
==>2.02';
use Pod::Simple ();
BEGIN {@ISA = ('Pod::Simple')}

use strict;

use Carp ();

BEGIN { *DEBUG = \ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	56	159	
==>2.02';
use Pod::Simple ();
BEGIN {@ISA = ('Pod::Simple')}

use strict;

use Carp ();

BEGIN { *DEBUG = \ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	15260	15378	
==>tch found for opening bracket', pos $$textref
			unless $@;
		return;
	}

	my $endpos = pos($$textref);
	return ( $star <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	39694	39791	
==>e 3\n/para line 4";

	extract_tagged($text, '/para', '/endpara', undef,
				{reject => '/para', fa <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	40008	40104	
==>e 3\n/para line 4";

	extract_tagged($text, '/para', '/endpara', undef,
			{reject => '/para', fa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302082	302173	
==>"#line 980 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302958	303049	
==>"#line 980 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303834	303925	
==>"#line 980 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3426	3592	
==>oesn't implement UTF16 yet."
        );
        splice @_;
        push @_, undef;
        next;

        # TODO: implement somehow?
        
      } else {
        DE <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17067	17206	
==>28
		}
	},
	{#State 41
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39, <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	1563	1709	
==>0', 'P5'],
  ['',            'set', 'P16', 'P6'],
  ['',            'typeof', 'I16', 'P16'],
  ['',            'set', 'I1', 0],
  ['',            ' <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	754	852	
==>>

=item C<-u>

List the uninitialised data symbols.

=item C<--const>

=item C<-C>

List the const <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	55020	55115	
==>difiers enabled. The extracted value is either
$1 if that variable is defined after the match, o <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	34614	34724	
==>>[$i][1]{'content-implicit'} = 'yes';
          $treelet->[$i][1]{'to'  } =
            Pod::Simple::LinkSectio <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	35192	35302	
==>>[$i][1]{'content-implicit'} = 'yes';
          $treelet->[$i][1]{'to'  } =
            Pod::Simple::LinkSectio <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	5596	5703	
==>->hasleftmost($ref);
	}

	return 0;
}

sub leftmostsubrules($)
{
	my $self = shift;
	my @subrules = ();

	my <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	33132	33252	
==>ed}) )
    {
	_my_exit($?);
	return;
    }

    # Figure out if we passed or failed and print helpful messages.
    my $t <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1756	1855	
==>ed %d, got %d) in call to '%s'.",
    scalar(@formal_args), scalar(@args), $name)
    unless @formal <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1456	1555	
==>ed %d, got %d) in call to '%s'.",
    scalar(@formal_args), scalar(@args), $name)
    unless @formal <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	576	669	
==>escent::expected =~ s/_/ /g;
	if (!$Parse::RecDescent::unexpected
	    || $Parse::RecDescent:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408251	408342	
==>ODY" => "#line 540 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_connect(interpreter, {{\@2} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409150	409241	
==>ODY" => "#line 540 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_connect(interpreter, {{\@2} <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	8714	8817	
==>e->{'class'} eq 'calling')) {
		die "typeinfo must be supplied for rule $rule->{'name'}\n";
	}

    # po <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	10657	10756	
==>$name);

Like Test::More's is().  Checks if $got eq $expected.  This is the
string version.

=item B <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	4532	4623	
==>$macros .= <<"EOM";
#define VTABLE_$entry->[1]($args) \\
    (pmc)->vtable->$entry->[1]($arg <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	6771	6922	
==>th><th>Branches</th><th>Calls</th>
                 </tr>
                 <tr>
                 <td>Totals:</td>
                 <td>$totals{covered_l <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	23651	23764	
==>t;
		my $arg_name;

		# uint8
		if (/^uint8$/) {
			$out =  "    \${I_ARG_$arg_num} = bc.read_uint8()\n    next_pc <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1656	1764	
==>lock:
  #

  my $name = $self->name;

#  printf STDERR "%s: About to copy symbol table to parent block.\n", _ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293482	293795	
==>{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294358	294671	
==>{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295234	295547	
==>{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1588	1709	
==>ight");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2892	2982	
==>eturn $index_html;
}

=item C<contents_relative_to_source($source)>

Returns the contents o <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	4901	4991	
==>eturn $index_html;
}

=item C<contents_relative_to_source($source)>

Returns the contents o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903166	903331	
==>c",
                              "sc"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interprete <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904186	904351	
==>c",
                              "sc"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interprete <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	3087	3191	
==>d content
 'errors_seen',       # TODO: document.  whether we've seen any errors (fatal or not)

 'code_h <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129784	130010	
==>"#line 301 \"src/ops/bit.ops\"\n  {{\@1}} ^= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130523	130749	
==>"#line 301 \"src/ops/bit.ops\"\n  {{\@1}} ^= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	14275	14385	
==>oin ', ', map { $proto_type_ref->{$_} } split( '', $params );
        # This is an after-the-fact hack: real fi <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17170	17289	
==>hat won't work right
        #  under non-ASCII charsets.  Something should be done about that.
    }
    
    return @_ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	26694	26807	
==>s;
    foreach (@_) {
        my ($back, @rewritten) = $self->rewrite($_, $fallback);
        push @ops, @rewritte <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10586	10692	
==>hat won't work right
    #  under non-ASCII charsets.  Something should be done about that.
  }
  return @_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7251	7371	
==>sif ($tagname eq 'Data') {
        my $next = $self->get_token;
        next unless defined $next;
        unless( $next- <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9496	9616	
==>sif ($tagname eq 'Data') {
        my $next = $self->get_token;
        next unless defined $next;
        unless( $next- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171093	171344	
==>"CODE" => 205,
                  "ARGS" => [
                              "p",
                              "nc",
                              "ic"
                            ],
                  "BODY" => "#line 211 \"src/ops/cmp.ops\"\n  if ({{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	619	727	
==>my %instance_for_path = ();

=item C<new($path)>

Returns the instance for C<$path> if it already exists, oth <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	5174	5289	
==><$in>) {
        # everything after the line starting with #perl is eval'ed
        if ($line =~ /^#perl/ && $option <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5630	5879	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "load_bytecode",
                  "FLAGS" => ":load_file",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6295	6544	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "load_bytecode",
                  "FLAGS" => ":load_file",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYP <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	1415	1543	
==>{
				$cur=q{"};  # EOL is also an end-quote
				last;
			}
			die "Unexpected EOF (missing quote?)" if ( $cur eq -1 or $cur eq " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627533	627848	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628677	628992	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631719	632034	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARG <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20039	20164	
==>r' => 11,
			'laststat' => 111,
			'varlist1' => 13,
			'_if_then' => 14,
			'stat' => 7
		}
	},
	{#State 58
		DEFAULT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276220	276477	
==>are(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277098	277355	
==>are(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277976	278233	
==>are(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	2075	2190	
==>zation -falign-functions=16 -Wno-shadow',
             'cg_flag' => '-DHAVE_COMPUTED_GOTO',
             'charset' = <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	2872	2977	
==>cope}->{$symbol} = $value;
}

sub _new_pair {
  my ($self) = @_;
  my $return = $self->_save_1('P');

  $s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563325	563499	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addmethod",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564222	564396	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addmethod",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	27492	27596	
==>ster (i.e. 3 times faster). It uses qr// for better performance on
# repeated calls, so it only works und <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9674	9886	
==>ne",
                  "CODE" => 13,
                  "ARGS" => [
                              "sc"
                            ],
                  "BODY" => "#line 182 \"src/ops/core.ops\"\n    char * const la <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028133	1028225	
==>\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_event(interpreter, (FLOATVAL) { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028984	1029076	
==>\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_event(interpreter, (FLOATVAL) { <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2922	3036	
==>_num = 0;
	my $push_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop stuff off the sta <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1844	1958	
==>_num = 0;
	my $push_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop stuff off the sta <==
3	/Users/nnunley/parrot/config/auto/socklen_t.pm	77	169	
==>_t.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/socklen_t.pm - Is t <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7905	8003	
==>f i% then print "This is true" else print "Oops (int)"
i=0
if i then print "Should not happen (flo) <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14892	14990	
==>f i% then print "This is true" else print "Oops (int)"
i=0
if i then print "Should not happen (flo) <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	3309	3406	
==>/ast'),
        $self->directory_with_relative_path('compilers/imcc'),
        $self->directory_wi <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	20334	20443	
==>_data;
    REG_INT(0) = $stack_returns;
    REG_INT(1) = $int_returns;
    REG_INT(2) = $string_returns;
    R <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	20537	20645	
==>",$rdel2)
			|| do { pos $$textref = $startpos; return };
		}
		else
		{
			$$textref =~ /[^\\$ldel2]*(\\.[^\ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	44272	44372	
==>bstring (if any),

=item [3]

the name of the quotelike operator (if any),

=item [4]

the left delim <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	3411	3544	
==>)
        {   
            print "\n", $rel_path unless $silent;
        
            $formatter->write_html($source, $target, $rel_pa <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1137	1251	
==>line,
  }, $class;

  #
  # Check for a few bad conditions.
  #
  # NOTE: These are compiler internal consistency c <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1040	1154	
==>line,
  }, $class;

  #
  # Check for a few bad conditions.
  #
  # NOTE: These are compiler internal consistency c <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6935	7107	
==>k,[ $act, $$value ]);

					$$token ne ''	#Don't eat the eof
				and	$$token=$$value=undef;
                next;
            };

            #reduce
            my( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6612	6776	
==>k,[ $act, $$value ]);

					$$token ne ''	#Don't eat the eof
				and	$$token=$$value=undef;
                next;
            };

            #reduce
            my( <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4176	4389	
==>=> '-nologo -nodefaultlib',
            ar                   => 'xilib',
            ar_flags             => '',
            ar_out               => '-out:',
            slash                => '\\',
            bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063276	1063415	
==>"
                            ],
                  "BODY" => "#line 253 \"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root_namespace, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064146	1064285	
==>"
                            ],
                  "BODY" => "#line 253 \"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root_namespace, <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	30928	31062	
==>r,
        'arg2'   => $_step,
        'result' => $_var,
    );
    push @opcodes, new BranchOp( $parser,
        'result' => $lb <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2336	2434	
==>[$i]->type;
    }

    $self->INTERNAL_ERROR("Can't determine type of formal argument (%s)!", $form <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2036	2134	
==>[$i]->type;
    }

    $self->INTERNAL_ERROR("Can't determine type of formal argument (%s)!", $form <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321585	321805	
==>>vtable->get_integer(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323941	324161	
==>>vtable->get_integer(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	3217	3334	
==>.
  if ($line =~ /\[(\w+)\]/) {
    $cur_section = $1;
    next;
  }

  # Everything else goes to the handler
  $dispa <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	12215	12323	
==>ef)-$endpos
		);
}

sub extract_codeblock (;$$$$$)
{
	my $textref = defined $_[0] ? \$_[0] : \$_;
	my $wantar <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	61695	61791	
==>was unable to find a closing delimiter to match the
one that opened the quote-like operation.

=i <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	12610	12712	
==>l) {
    HOP * const p = mem_sys_allocate(sizeof(HOP));
    const size_t hidx = hash_str(full ? info->f <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	13832	13932	
==>[0];
  my $title = $self->get_short_title();
  DEBUG and print "Short Title: <$title>\n";
  $title .= <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	750	840	
==>'\>\<\"\/\=\?\+\|\[\]\{\}\_a-zA-Z0-9_\`\~\!\#\%\^\&\*\(\)])/
      sprintf( (ord($1) < 256) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3713	3808	
==>my %module_props = $self->block->props;

      $self->SYNTAX_ERROR("Sub declaration has no fnlib <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6377	6472	
==>my %module_props = $self->block->props;

      $self->SYNTAX_ERROR("Sub declaration has no fnlib <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	241	334	
==>Docs::Libs;

=head1 DESCRIPTION

A documentation section describing libraries in Parrot.

=hea <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359154	359348	
==>E" => 420,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 250 \"src/ops/io.ops\"\n  STRING * const s = {{\@1}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8924	9021	
==>l);\n    if (!fe)\n\tinternal_exception(1, \"branch_cs: fixup for '%s' not found\", label);\n    e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10040	10137	
==>l);\n    if (!fe)\n\tinternal_exception(1, \"branch_cs: fixup for '%s' not found\", label);\n    e <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	9796	9902	
==>=> $fh or
    die "Couldn't serialize bucket to \"@{[ BUCKET ]}\": $!\n";

  exit if $exit;
}

__DATA__
<?x <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22477	22593	
==>(2);
  $self->_add_inst(''           ,'mod'   ,[$temp_0,$temp_0,$temp_1]);
  $self->_add_inst(''           ,'eq'    , <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22978	23094	
==>(2);
  $self->_add_inst(''           ,'mod'   ,[$temp_0,$temp_0,$temp_1]);
  $self->_add_inst(''           ,'eq'    , <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	7589	7679	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
#
# And now targets (not directives)

su <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2037	2158	
==>->value) unless $left_sym;
    $left_type = $left_sym->type;
  }
  else {
    $left_type = $left->type;
  }

  my $right_t <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1995	2116	
==>->value) unless $left_sym;
    $left_type = $left_sym->type;
  }
  else {
    $left_type = $left->type;
  }

  my $right_t <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1917	2038	
==>->value) unless $left_sym;
    $left_type = $left_sym->type;
  }
  else {
    $left_type = $left->type;
  }

  my $right_t <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1948	2066	
==>ompile parser module.";

        ref($class)
    and $class=ref($class);

    bless($self,$class);
}

sub YYPar <==
3	/Users/nnunley/parrot/examples/benchmarks/shared_ref.pl	355	467	
==>.

=cut

use strict;
use threads;
use threads::shared;

for my $i (0..99_999) {
    my $r :shared;
    my $j :sha <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1881	1991	
==>ompile parser module.";

        ref($class)
    and $class=ref($class);

    bless($self,$class);
}

sub YYPar <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1613	1710	
==>p code.
${INS} = concat ${STACK$register_num}
${INS} = concat " = pop s\n"
PIR
		$pir =~ s/\$regis <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3323	3420	
==>p code.
${INS} = concat ${STACK$register_num}
${INS} = concat " = pop s\n"
PIR
		$pir =~ s/\$regis <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1207	1325	
==>ent($self);

  return $self;
}

sub dest  { return shift->{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { r <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1198	1316	
==>ent($self);

  return $self;
}

sub dest  { return shift->{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { r <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1087	1205	
==>ent($self);

  return $self;
}

sub dest  { return shift->{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { r <==
3	/Users/nnunley/parrot/lib/Test/More.pm	33275	33375	
==>be used together in the
same program>.

If you simply want to do a little tweaking of how the tests b <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1768	1865	
==>text   { $_[0]{'Thispara'} = ''   }

sub start_over_bullet  { ++$_[0]{'Indent'} }
sub start_over_n <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1336	1433	
==>text   { $_[0]{'Thispara'} = ''   }

sub start_over_bullet  { ++$_[0]{'Indent'} }
sub start_over_n <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	80	173	
==>m 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::File - Docs-Relate <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	1435	1523	
==>', 'lib/Parrot/Docs/File.pm'),
		    $self->new_item('', 'lib/Parrot/Docs/Directory.pm'), <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	140	227	
==>rot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm 1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033218	1033320	
==>t ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@1}};\n    PMC * const lex_pad = P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034316	1034418	
==>t ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@1}};\n    PMC * const lex_pad = P <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4600	4690	
==>bless>-ed either into
C<Parrot::Pmc2c::::Standard>, or into one of the other I<special> PMC <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553538	553807	
==>",
                  "CODE" => 636,
                  "ARGS" => [
                              "p",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 94 \"src/ops/object.ops\"\n  opcod <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019780	1019878	
==>\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_local <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020711	1020809	
==>\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_local <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314969	315224	
==>[
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u1",
                  "FLAGS" => ":dotgnu_core",
                  "A <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4525	4637	
==>f->{name};
        delete $self->{args};
        return $self->op('nop', [], %$self);
    } elsif (@{ $self->{arg <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5662	5774	
==>f->{name};
        delete $self->{args};
        return $self->op('nop', [], %$self);
    } elsif (@{ $self->{arg <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	1069	1175	
==>,
	'bf' => 'BF code',
	'bnf' => 'Grammar file',
	'c' => 'C code',
	'cola' => 'Cola code',
	'cs' => 'C# code <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	11182	11340	
==>s ( $desc ) {
               (undef, my $file, my $line) = caller();
               $desc = "($file line $line)";
            }

            # $test_no will be <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	16667	16825	
==>s ( $desc ) {
               (undef, my $file, my $line) = caller();
               $desc = "($file line $line)";
            }

            # $test_no will be <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	2413	2538	
==>ako::Token->new(
        $file, $line, 'sub', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^(var|const) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352007	352300	
==>=> [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 410,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 195 \"src/ops/io. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9010	9107	
==>bel);\n    else {\n\tinterpreter->resume_offset = fe->offset;\n        Parrot_switch_to_cs(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10126	10223	
==>bel);\n    else {\n\tinterpreter->resume_offset = fe->offset;\n        Parrot_switch_to_cs(interpr <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3641	3748	
==>ft;
	my $need_dest = shift;
	my $pir = "";

	# If we need a destination, emit PIR to generate one. Otherwise <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27075	27176	
==>p\n";
		$pir .= sub_meta($pre_op, $mv, "pre_op for rule $rule->{'name'}");
		$pir .= "### end pre_op\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3176	3264	
==>Parrot::OpTrans>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426565	426864	
==>S" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 490,
                  "ARGS" => [ <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	3511	3631	
==>.
    my %classes = ();
    foreach (@methods) {
        if ($classes{$_->{'class'}}) {
            push @{$classes{$_->{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	834	942	
==>he C C<#define> macros required by the ops.

=cut

sub defines
{
    return <<END;
#define REL_PC ((size_t)(c <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	878	985	
==>he C C<#define> macros required by the ops.

=cut

sub defines
{
    return <<END;
#define REL_PC ((size_t)( <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1008	1115	
==>he C C<#define> macros required by the ops.

=cut

sub defines
{
    return <<END;
#define REL_PC ((size_t)( <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35983	36083	
==>all its tests, it will still be
considered a failure and will exit with 255.

So the exit codes are.. <==
3	/Users/nnunley/parrot/lib/Test/More.pm	34054	34154	
==>all its tests, it will still be
considered a failure and will exit with 255.

So the exit codes are.. <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2849	2949	
==>all its tests, it will still be
considered a failure and will exit with 255.

So the exit codes are.. <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1481	1759	
==>o REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
print "E <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	1481	1759	
==>o REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
print "E <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	13505	13597	
==>.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.

sub parse_from_file {
  # An emulation of Pod::Parser's inte <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30804	30914	
==>content of the item if it's a number or bullet.
          DEBUG and print " Item is of type ", $para->[0], " un <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	31769	31879	
==>content of the item if it's a number or bullet.
          DEBUG and print " Item is of type ", $para->[0], " un <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34092	34202	
==>content of the item if it's a number or bullet.
          DEBUG and print " Item is of type ", $para->[0], " un <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	3424	3549	
==>>is('sub');           }
sub is_unless        { return shift->is('unless');        }
sub is_until         { return shift->is('u <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10664	10773	
==>x80-\x9F//d if 'A' eq chr(65);
        $section = $self->unicode_escape_url($section);
        # Turn char 123 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4045	4147	
==>x80-\x9F//d if 'A' eq chr(65);
    $section = $self->unicode_escape_url($section);
     # Turn char 123 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574419	574742	
==>",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 656,
                  "ARGS" => [
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 249 \"src/ops/ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9804	9898	
==>pression::Value->new($block, $self->require_value);
      my $op    = $self->require_infix_rel- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25340	25434	
==>pression::Value->new($block, $self->require_value);
      my $op    = $self->require_infix_rel- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650653	650755	
==>->n_vtable_max)\n        {{\@1}} = 1;\n    else if ({{\@2}} >= enum_first_type && {{\@2}} < enum_last_t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651575	651677	
==>->n_vtable_max)\n        {{\@1}} = 1;\n    else if ({{\@2}} >= enum_first_type && {{\@2}} < enum_last_t <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	49988	50080	
==>nd, call
C<extract_quotelike> to eat it. If C<extract_quotelike> fails, return
the error it r <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2546	2653	
==>=qq{\tstore_global "COMMON", _GLOBALS\n};
			}
			s/#SAVECOMMON/$edit/;
		}		
		if (/#RESTORECOMMON/) {
			@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540785	541103	
==>1;\n }\n \n {{\@1}} = b<<p;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542037	542355	
==>1;\n }\n \n {{\@1}} = b<<p;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543289	543607	
==>1;\n }\n \n {{\@1}} = b<<p;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	3058	3148	
==><c_header_file_directories()>

Returns the directories which contain C header files.

Curre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676047	676155	
==>}}->vtable->unshift_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676827	676935	
==>}}->vtable->unshift_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	49898	49995	
==>mismatched, return an error.

=item 2.

Try to match a quote or quotelike operator. If found, call <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4503	4612	
==>n generated code.
	return $pir;
}

sub post_op($$) {
	# Nothing to do.
	return "";
}

# Pre and post branch op <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2919	3028	
==>n generated code.
	return $pir;
}

sub post_op($$) {
	# Nothing to do.
	return "";
}

# Pre and post branch op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950685	950994	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951645	951954	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952605	952914	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "", <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	9772	9875	
==>, $op, $amount, $R, $lastback) = @_;
    my ($R_back, @R_body) = $self->rewrite($R, $lastback);
    my @ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	414	506	
==>l6 test functions. It has been heavily refactored
from Parrot::Test. Hopefully,similar refact <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439581	439871	
==>h_p_pip(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440596	440886	
==>h_p_pip(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	13434	13558	
==>ref},
            "t_$temp_num = GET_NCI_S($reg_num);";
        return "t_$temp_num";
    };
}

sub print_function {
    my ( <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13914	14016	
==>print z.foo

' Should print 100, 103
type first
	foo as integer
	bar as string
end type
type second
	po <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	592	692	
==>er back); 
%Known_directives       = map(($_=>'Plain'), @Known_directives);
$NL = $/ unless defined $ <==
3	/Users/nnunley/parrot/config/init/hints/vms.pm	4	94	
==>pyright (C) 2005, The Perl Foundation.
# $Id: /parrot/config/init/hints/vms.pm 19593 2006-0 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38731	38880	
==>> 35,
			'primary' => 28
		}
	},
	{#State 152
		DEFAULT => -91
	},
	{#State 153
		DEFAULT => -88
	},
	{#State 154
		DEFAULT => -27
	},
	{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	1941	2031	
==>tx)->pred_offset) : NULL)
#endif

#define OP_AS_OFFS(o) (_reg_base + ((opcode_t*)cur_opcode <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319999	320222	
==>s\"\n  {{\@1}} = (INTVAL)((Parrot_Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320769	320992	
==>s\"\n  {{\@1}} = (INTVAL)((Parrot_Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	2114	2221	
==>new,
    );
}

=back

=head2 Instance Methods

=over 4

=item C<write_docs($silent, $delete)>

Writes the HT <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30338	30450	
==>n\'t match terminal>>},
						  Parse::RecDescent::_tracefirst($text))
							if defined $::RD_TRACE;').'
			last <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32538	32650	
==>n\'t match terminal>>},
						  Parse::RecDescent::_tracefirst($text))
							if defined $::RD_TRACE;').'
			last <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28263	28374	
==>n\'t match terminal>>},
						  Parse::RecDescent::_tracefirst($text))
					if defined $::RD_TRACE;').'

			last <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	42119	42256	
==>"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			'THEN' => 193, <==
3	/Users/nnunley/parrot/config/auto/pack.pm	1684	1795	
==>s (length $test == $size) {
                warn sprintf <<"AARGH", $size, length $test;
Configure.pl:  Unable t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924417	924589	
==>ng_make_empty(interpreter, enum_stringrep_one, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925208	925380	
==>ng_make_empty(interpreter, enum_stringrep_one, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9946	10049	
==>ocol.

This module, like Pugs, is a work in progress. As new features are
added to Pugs, new test functi <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7151	7275	
==>|', @{$options{reject}})
		    : defined($options{reject})	       ? $options{reject}
		    :					 ''
		    ;
	my $ignore  = r <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24153	24277	
==>|', @{$options{reject}})
		    : defined($options{reject})	       ? $options{reject}
		    :					 ''
		    ;
	my $ignore  = r <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	58612	58710	
==>ags
for C<extract_tagged>. For example, to properly ignore "empty" XML elements
(which might contai <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Compilers.pm	365	498	
==>ver

=cut

package Parrot::Docs::Section::Compilers;

use strict;
use warnings;

use base qw( Parrot::Docs::Section );

use <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574724	574812	
==>line 249 \"src/ops/object.ops\"\n    {{\@1}} = pmc_new_init(interpreter, enum_class_Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575528	575616	
==>line 249 \"src/ops/object.ops\"\n    {{\@1}} = pmc_new_init(interpreter, enum_class_Parro <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	24398	24514	
==>. . . . . . . . . . . . . . . . . .

sub _ponder_extend {

  # "Go to an extreme, move back to a more comfortable pla <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	7754	7868	
==>L's 1
loop_one:
    unless iter_one goto loop_one_end
    item_one = shift iter_one 
    inc pos_one
    if item_on <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	1927	2048	
==>||R|S) -> opt(R|S)??
        # opt(|||) -> ()
        if ($children[0]->{name} eq 'nop') {
            pop(@children) whil <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	31372	31466	
==>setup {
	push @{$code{_data}->{code}},<<DATAPREP;
	# Prepare the Read/Data stuff
	find_global \ <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	1815	1899	
==>rot_initialize_core_pmcs(Interp *interp);
void Parrot_initialize_core_pmcs(Interp *in <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	477	604	
==>hift;
  my ($compiler) = @_;

  my $kind        = $self->kind;
  my $peer        = $self->peer;

  my $prefix;

  if ($self->pre <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	457	584	
==>hift;
  my ($compiler) = @_;

  my $kind        = $self->kind;
  my $peer        = $self->peer;

  my $prefix;

  if ($self->pre <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	1635	1727	
==>EE ALSO

=over 4

=item F<tools/build/ops2pm.pl>

=item C<Parrot::OpsFile>

=item C<Parrot::O <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	38953	39080	
==>ew EndDir( $parser );
    foreach my $op (@opcodes2) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{r <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6716	6829	
==>1; # pushmark";
    return @ops;
}

sub output_pushindex {
    my ($self, $reg) = @_;
    $reg = value(defined($re <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7075	7187	
==>1 # pushmark";
    return @ops;
}

sub output_pushindex {
    my ($self, $reg) = @_;
    $reg = value(defined($re <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6725	6854	
==>|("$)}{}g;
    $name =~ s/^.*:://;

    if ($type) {
      $handler->start_element({
        Name       => 'sub',
        Attribut <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5032	5157	
==>= $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  my $block = $self->bloc <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3095	3220	
==>= $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  my $block = $self->bloc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090903	1091213	
==>eter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1091963	1092273	
==>eter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4445	4540	
==>self> as a new instance.

C<$self> is a hash reference C<eval>-ed from a F<*.dump> file generate <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	60088	60203	
==>r =~ m/$PROD/gco)
		{
			_parseunneg("a new production", 0,
				    $lookahead,$line) or next;
			$rule
			  and (!$ <==
3	/Users/nnunley/parrot/config/gen/config_pm.pm	2031	2201	
==>print OUT qq(\tset P0["$k"], "$v"\n);
                } else {
                    print OUT qq(\tset P0["$k"], P1\n);
                }
            }
        } elsif (s/< <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	3775	3895	
==>eq 'Film,     'new() works' );

    ok( $btaste->Title      eq 'Bad Taste',     'Title() get'    );
    ok( $btaste->Dire <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	21566	21681	
==>rn;

    }
    # XXX the label may be wrong, if the JUMP_IF_x got rewritten
    if ($r->[2] eq 'I' && $l->[2] eq 'I' <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	2126	2243	
==>riggers($key)) {
            print "\tcalling trigger $trigger for $key\n" if $verbose;
            my $cb = $self->ge <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	13689	13786	
==>dy =~ s/\bgoto\s+OFFSET\(\( (.*?) \)\)/{{+=$1}}/mg;
        $absolute ||= $body =~ s/\bgoto\s+ADDR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948388	948651	
==>"trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 106 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949187	949450	
==>"trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 106 <==
3	/Users/nnunley/parrot/config/init/defaults.pm	6147	6301	
==>onfigdate => scalar localtime,
        PQ         => "'",
        dquote     => "\\\"",

        # yacc = Automatic parser generator
        # lex  = Autom <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	357	456	
==>L
);

@ISA = ('Pod::Simple::BlackBox');
$VERSION = '2.05';

@Known_formatting_codes = qw(I B C L E F <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	22287	22417	
==>',
        '~=' => 'isne',
    );
    my @opcodes = ();
    my $flag = new_tmp( $parser, 'int' );
    push @opcodes, @{ $expr1 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20717	20820	
==>}=[ @types ];
		print CODE <<TYPE;
	# Type definition for $typename
	new P0, .PerlArray
TYPE
		foreach(@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488638	488830	
==>c/ops/math.ops\"\n  {{\@1}} = floor( {{\@1}} );\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/File/Which.pm	246	382	
==>MS');
my $Is_MacOS  = ($^O eq 'MacOS');
my $Is_DOSish = (($^O eq 'MSWin32') or
                ($^O eq 'dos')     or
                ($^O <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	624	753	
==>p { $_ => 0 } (0..31) },
    P => { map { $_ => 0 } (0..31) },
  };
};

sub _save {
  my $self  = shift;
  my $count = shift;
  my <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1271	1386	
==>s not available in the
        # standard edition compiler' warning each time we compile.
        # The logo gets pr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	676	790	
==>rn bless {
    BLOCK  => $block,

    TOKEN  => $token,
    VALUE  => $token->text,
    SCOPE  => $block->scope_of_ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	108	201	
==>31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Section - Documentation section

=head1 SYN <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554276	554537	
==>VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555673	555934	
==>VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556910	557171	
==>VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4812	4909	
==>mc_type = $dest_ident->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();

    $compiler->em <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2875	2972	
==>mc_type = $dest_ident->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();

    $compiler->em <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	314	409	
==>ollection of PMCs linked in the
same dynamic library. A degenerate case is having an unnamed lib <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206503	206615	
==>t_integer(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207445	207557	
==>t_integer(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143571	143684	
==>(string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144499	144612	
==>(string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145427	145540	
==>(string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "L <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	822	929	
==>me, body

    # Get class and method names.
    class_name = class.get_fullname()
    method_name = meth
PIR <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2137	2227	
==>$args[$i]->value);
      $self->SYNTAX_ERROR("Undefined identifier '%s'.", $args[$i]->value <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1837	1927	
==>$args[$i]->value);
      $self->SYNTAX_ERROR("Undefined identifier '%s'.", $args[$i]->value <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161614	162033	
==>e",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 195,
                  "ARGS" => [
                              "n",
                              "n",
                              "ic"
                            ], <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53343	53458	
==>else         { Interp_flags_CLEAR(interpreter, PARROT_GC_DEBUG_FLAG); }\n  {{+=2}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54099	54214	
==>else         { Interp_flags_CLEAR(interpreter, PARROT_GC_DEBUG_FLAG); }\n  {{+=2}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	312218	312529	
==>"FLAGS" => "",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 364,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => <==
3	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1632	1753	
==>fig[] = {
EOF
;

if ($mini_parrot) {
    print "    0\n";
}
else {

    my $image_file = $install_parrot ?
        'instal <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	13190	13296	
==>elative_path($file));
    
    # This is the docs file for the module.
    $file = $self->{TARGET}->file_wi <==
3	/Users/nnunley/parrot/config/auto/msvc.pm	140	233	
==>/auto/msvc.pm - Microsoft Visual C++ Compiler

=head1 DESCRIPTION

Determines whether the C co <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	660	756	
==>_spdirec = qw(.pcc_call .result .return .local .const .globalconst
    end goto if unless call br <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653302	653396	
==>"src/ops/pmc.ops\"\n    opcode_t * resume = {{^+4}};\n    {{\@1}} = {{\@2}}->vtable->find_metho <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654463	654557	
==>"src/ops/pmc.ops\"\n    opcode_t * resume = {{^+4}};\n    {{\@1}} = {{\@2}}->vtable->find_metho <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879139	879311	
==>"i",
                              "i"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880243	880415	
==>"i",
                              "i"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	774	868	
==>post stack operation (op class instructions) hooks.
sub pre_op {
	die "pre_op not implemented f <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	57441	57641	
==>t_delimited($_[0],q{'"}) },
                                        qr/([^,]+)(.*)/,
                                  ],
                                  undef,1);

The list in the second argument me <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6315	6433	
==>UE           ' Force first pass through the array.
WHILE Exchange          ' Sort until no elements are exchanged.
   E <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15968	16086	
==>UE           ' Force first pass through the array.
WHILE Exchange          ' Sort until no elements are exchanged.
   E <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	9917	10021	
==>Test_Results}[$self->{Curr_Test}-1] = $result;
    $out .= "\n";

    $self->_print($out);

    unless( $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73239	73605	
==>\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "F <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74841	75207	
==>\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "F <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76443	76809	
==>\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "F <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101855	102107	
==>nterpreter, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102626	102878	
==>nterpreter, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	26744	26890	
==>t_line'},
        "Can't use unknown formatting code '$f' as a fallback for '$new_letter'"
      );
      return;
    }

    DEBUG > 3 and printf " <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2171	2271	
==>$$self{DEBUG}) {
		_DBLoad();
		$retval = eval '$self->_DBParse()';#Do not create stab entry on com <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2090	2188	
==>$$self{DEBUG}) {
		_DBLoad();
		$retval = eval '$self->_DBParse()';#Do not create stab entry on com <==
3	/Users/nnunley/parrot/tools/docs/write_docs.pl	508	598	
==>e' => \$delete);

my $docs = Parrot::Docs::Section::Parrot->new;

$docs->write_docs($silent <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	17713	17808	
==>$#itempos]{'offset'}{'to'} = $prevoffset;
		$itempos[$#itempos]{'line'}{'to'}   = $prevline;
		$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238174	238405	
==>GS" => [
                              "i",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 606 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare( <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	5969	6112	
==>{DOCS_FILE}->parent->relative_path($file),
                    esc($text));
        }
        else
        {
            print {$self->{'output_ <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	14483	14570	
==>> and
		<span class="tests_unexpect"><tmpl_var name=unexpect> unexpectedly succeeded</sp <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	5776	5938	
==>\s*=\s*"(\d+\.\d+\.\d+)"\s*;\s*$/)
            {
                if (exists $self->{VERSION})
                {
                    #die "VERSION MULTIPLY DEFINED! <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955875	955963	
==>n  {{\@1}} = string_copy(interpreter, Parrot_encoding_name(interpreter, {{\@2}}));\n  {{+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956687	956775	
==>n  {{\@1}} = string_copy(interpreter, Parrot_encoding_name(interpreter, {{\@2}}));\n  {{+ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	35636	35773	
==>TIONS => {
			"^" => 79
		},
		DEFAULT => -60
	},
	{#State 134
		ACTIONS => {
			'NAME' => 174
		}
	},
	{#State 135
		DEFAULT = <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4558	4667	
==>{args};
        return $self->op('nop', [], %$self);
    } elsif (@{ $self->{args} } == 1 && 2 == keys %$self) <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5695	5804	
==>{args};
        return $self->op('nop', [], %$self);
    } elsif (@{ $self->{args} } == 1 && 2 == keys %$self) <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15500	15610	
==>SCAPER
             # Escape \, {, }, -, control chars, and 7f-ff.
    $x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16679	16789	
==>SCAPER
             # Escape \, {, }, -, control chars, and 7f-ff.
    $x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord( <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	8536	8630	
==>et_nci_P(interpreter, &st, n)

/*
 * set return value
 */
static void
set_nci_I(Interp *interpr <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2808	2942	
==>valid escape sequence $_ .\n"),
                last;
        }
    }

    $parser->Error("Untermined string.\n");
    $parser->Y <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4323	4457	
==>valid escape sequence $_ .\n"),
                last;
        }
    }

    $parser->Error("Untermined string.\n");
    $parser->Y <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	30162	30293	
==>$v;
}

sub STORE_SUBSCR
{
    my ($n, $c, $cmt) = @_;
    my $x = pop @stack;
    my $v = pop @stack;
    my $w = pop @stack;
    my <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	141	238	
==>NAME

Parrot::Pmc2c::Library - PMC to C Code Generation

=head1 SYNOPSIS

    use Parrot::Pmc2c::L <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27046	27135	
==>functions{$funcname}=$englishname;

	$f="_USERFUNC_$funcname";
	$f=changename($f);
	$f=~s/ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27319	27408	
==>functions{$funcname}=$englishname;

	$f="_USERFUNC_$funcname";
	$f=changename($f);
	$f=~s/ <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	4263	4399	
==>d.");
        }
    }
}


sub check_cuddled_else {
    my ($file, $source) = @_;

    my $line = 0;
    foreach (@$source) {
        $lin <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	10616	10742	
==>_like   => 'like',
        pir_output_is      => 'is_eq',
        pir_output_isnt    => 'isnt_eq',
        pir_output_like    = <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	154	246	
==>ls/build/pmc2c.pl - PMC definition to C compiler

=head1 SYNOPSIS

Create F<src/pmc/foo.dump> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819623	819715	
==>)->user_stack, {{\@2}});\n\n  if (!entry) {\n    internal_exception(99, \"Stack Depth wrong\" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820583	820675	
==>)->user_stack, {{\@2}});\n\n  if (!entry) {\n    internal_exception(99, \"Stack Depth wrong\" <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1414	1533	
==>ut_f, 
        );
        my $prog_output = Parrot::Test::slurp_file( "$out_f" );

        @_ = ( $prog_output, $output, <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1330	1449	
==>ut_f, 
        );
        my $prog_output = Parrot::Test::slurp_file( "$out_f" );

        @_ = ( $prog_output, $output, <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	14440	14536	
==>ip($)
{
	my $item;
	foreach $item (@{$_[0]->{"items"}})
	{
		if (ref($item) =~ /Parse::RecDescent <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16206	16316	
==>ck();
      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $token);

      $self->requ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16977	17087	
==>ck();
      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $token);

      $self->requ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17782	17892	
==>ck();
      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $token);

      $self->requ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	13919	14043	
==>ONS => {
			'NUM' => 40,
			"?" => 16,
			"." => 41
		},
		DEFAULT => -28,
		GOTOS => {
			'number' => 39,
			'rulename' => 1 <==
3	/Users/nnunley/parrot/examples/benchmarks/stress.pl	526	644	
==>rray {
    my @foo;
    foreach (1..10000) {
	$foo[$_] = $_;
    }
    return \@foo;
}

=head1 SEE ALSO

F<examples/ben <==
3	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	435	553	
==>rray {
    my @foo;
    foreach (1..10000) {
	$foo[$_] = $_;
    }
    return \@foo;
}

=head1 SEE ALSO

F<examples/ben <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	36859	36979	
==>e\n";
      } else {
        # An unknown directive!
        DEBUG > 1 and printf "Unhandled directive %s (Handled: %s)\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048223	1048320	
==>r.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null glob <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049147	1049244	
==>r.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null glob <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474909	475143	
==>[
                              "n",
                              "nc",
                              "n"
                            ],
                  "BODY" => "#line 403 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2080	2169	
==>f->prefix and $self->peer and $self->peer->prefix) {
    $self->prefix($self->peer->prefix <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1957	2046	
==>f->prefix and $self->peer and $self->peer->prefix) {
    $self->prefix($self->peer->prefix <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	993	1098	
==>=> $ident->file,
    LINE  => $ident->line
  }, $class;

  $block->push_content($self);

  return $self;
} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	732	837	
==>=> $ident->file,
    LINE  => $ident->line
  }, $class;

  $block->push_content($self);

  return $self;
} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1414	1519	
==>=> $ident->file,
    LINE  => $ident->line
  }, $class;

  $block->push_content($self);

  return $self;
} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627206	627302	
==>Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n\n  /* Why?? If we're creating a continuatio <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628350	628446	
==>Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n\n  /* Why?? If we're creating a continuatio <==
3	/Users/nnunley/parrot/languages/regex/regex.pl	2218	2313	
==>ver = Regex::Driver->new($language, %options);

$driver->output_header(*OUTPUT);

for my $rule ( <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6778	6928	
==>s == 0
#DBG>				and	do {
#DBG>					print STDERR "**End of Error recovery.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6463	6605	
==>s == 0
#DBG>				and	do {
#DBG>					print STDERR "**End of Error recovery.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650741	650989	
==>} < enum_last_type)\n        {{\@1}} = 1;\n    else\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651663	651911	
==>} < enum_last_type)\n        {{\@1}} = 1;\n    else\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544142	544252	
==>\n INTVAL gcd = 0;\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545478	545588	
==>\n INTVAL gcd = 0;\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546814	546924	
==>\n INTVAL gcd = 0;\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	927	1021	
==>not scalar!" if ref $op;
  confess "Right is not Value!" unless UNIVERSAL::isa($right, 'Jako::C <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	939	1033	
==>not scalar!" if ref $op;
  confess "Right is not Value!" unless UNIVERSAL::isa($right, 'Jako::C <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	31	117	
==>Foundation.
# $Id: /parrot/lib/Parrot/OpTrans.pm 20321 2006-06-20T20:02:00.179448Z bern <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	25920	26042	
==>} ) {
        $cond = get_cond( $parser, $elseif->[0] );
        $l_next = new_label($parser);
        push @opcodes, @{ <==
3	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	818	950	
==>mbtab ( @{ $parser->YYData->{scope} } ) {
                if ( $symbtab->isa('SymbTabVar') ) {
                    if ( exists $sym <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74362	74484	
==>vetext;
			last;
		}
		push @tokens, $_tok if defined $_tok;
		last if ++$reps >= $min and $prevtextlen == length $text;
	} <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10941	11051	
==>f->_save_1 ('P');
    $self->_morph ($pmc, $temp);
    $self->_restore ($temp);
    $temp = $pmc;
  }
  $self-> <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	1605	1720	
==>following address.
 5. Eliminate unused labels.

TODO:

 1. I would like to optimize

     B1: sub x, 1
         got <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1838	1950	
==>ir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign register nam <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	5371	5479	
==>{oplib}->value : 'CORE'; # TODO: We should make sure its a string, somewhere.
    my $op    = $props{op}    ? <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5511	5663	
==>CKS}}, $module;

      next;

    }

    #
    # Variable declarations:
    #
    #   var <type> <ident>;
    #   var <type> <ident> = <value>;
    #   v <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3562	3666	
==>?$/) {
    $return = $self->_save_1 ('N');
    $self->_add_inst ('', 'set', [$return,$value]);
  }
  else <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740294	740513	
==>,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 159 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}}->vtable- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553841	553944	
==>bject;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+4}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555238	555341	
==>bject;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+4}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024993	1025104	
==>line 275 \"src/ops/sys.ops\"\n   {{\@1}} = sysinfo_s(interpreter, {{\@2}});\n   {{+=3}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025750	1025861	
==>line 275 \"src/ops/sys.ops\"\n   {{\@1}} = sysinfo_s(interpreter, {{\@2}});\n   {{+=3}};\n",
                  " <==
3	/Users/nnunley/parrot/config/auto/env.pm	13	102	
==>C) 2001-2003, The Perl Foundation.
# $Id: /parrot/config/auto/env.pm 19593 2006-05-30T02:2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630634	630729	
==>und\", readable_name(interpreter, class));\n    {{\@1}} = pmc_new(interpreter, type);\n    {{+=3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631624	631719	
==>und\", readable_name(interpreter, class));\n    {{\@1}} = pmc_new(interpreter, type);\n    {{+=3 <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Examples.pm	38	123	
==>ion.
# $Id: /parrot/lib/Parrot/Docs/Section/Examples.pm 20333 2006-06-21T18:44:31.1115 <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24860	24962	
==>,
				$match[2], $match[3]+$match[5]+$match[7],	# MATCH
				@match[8..9,0..1,2..7];				# REM, PRE, BITS <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7692	7792	
==>,
			$match[2], $match[3]+$match[5]+$match[7],	# MATCH
			@match[8..9,0..1,2..7];				# REM, PRE, BITS <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	292	390	
==>ktracking point that we should
# jump to if matching $op fails; $back is the backtracking point tha <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1713	1823	
==>er->emit(".return()");
  $compiler->outdent;
  $compiler->emit(".end");

  return 1;
}


#
# sax()
#

sub sax
{ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	2881	2982	
==>right->compile($compiler);

    $compiler->emit("  $cond $left $op $right goto $label");
  }

  return <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2061	2155	
==>-misses] [files...]\n\n".
		"FILES defaults to a recursive \" find . \".\n\n".
		"--plus-misses <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1883	1988	
==>"incompatible with version $$self{VERSION}:\n".
			  "Please recompile parser module.";

        ref($c <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1817	1919	
==>"incompatible with version $$self{VERSION}:\n".
			  "Please recompile parser module.";

        ref($c <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	53027	53118	
==>list of subroutine references and/or qr// objects and/or
literal strings and/or hash referen <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	15736	15858	
==>pkg . '::TODO' } = \$extra{todo}
                if defined $extra{todo};

            my $pass = $builder->$meth( $real_ou <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	18287	18409	
==>pkg . '::TODO' } = \$extra{todo}
                if defined $extra{todo};

            my $pass = $builder->$meth( $real_ou <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	826	919	
==>_table->constants[i]
END
}

=item C<pc($pc)>

=item C<pc()>

Sets/gets the current position in <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	4060	4186	
==>t}->{symbol} = clone $op->{arg1}->{symbol}\n";
    }

    sub visitNewOp {
        my $self = shift;
        my ($op) = @_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	8873	8982	
==>ontent seen in search for title.\n";
    return;
  }
  $self->{'Title'} = $title;

  esc($title);
  print {$se <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	2662	2805	
==>te' => '\\"',
             'encoding' => 'fixed_8.c ucs2.c utf16.c utf8.c',
             'exe' => '',
             'exec_prefix' => '/opt/local' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645887	645994	
==>\n\t\t{{\@1}} = Parrot_get_datatype_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646784	646891	
==>\n\t\t{{\@1}} = Parrot_get_datatype_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	8680	8808	
==>$self->{STACK}};
    }
    elsif ( $tagname eq 'Para' ) 
    {
        $tagname = 'Para_item' 
            if @{$self->{STACK}} a <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	35684	35796	
==>rule $rule->{'name'}");
		$pir .= "### end post_branch\n";
	}

    # Calls/returns (calling class)
    elsif ($ru <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	587	692	
==>, 'Jako::Construct::Expression::Value::Identifier');

  my $self = bless {
    BLOCK => $block,

    IDENT <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	662	766	
==>, 'Jako::Construct::Expression::Value::Identifier');

  my $self = bless {
    BLOCK => $block,
    IDENT <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	662	766	
==>, 'Jako::Construct::Expression::Value::Identifier');

  my $self = bless {
    BLOCK => $block,
    IDENT <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1419	1517	
==>w {
    my($class)=shift;
	my($errst,$nberr,$token,$value,$check,$dotpos);
    my($self)={ ERROR <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1371	1466	
==>w {
    my($class)=shift;
	my($errst,$nberr,$token,$value,$check,$dotpos);
    my($self)={ ERROR <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	28999	29093	
==>R"
	\$P1["${_}$seg"]= array_$englishname
	store_global "BASICARR", \$P1
PUSHARR
			# push @{$co <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	44011	44120	
==>self->_call_function_sym($symbol, @args);
	$self->_restore(@args);
      }
    } else {
      my @args = map { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048252	1048348	
==>\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null global.\");\n\n    next = {{^+3} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049176	1049272	
==>\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null global.\");\n\n    next = {{^+3} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528606	528697	
==>ne 838 \"src/ops/math.ops\"\n  {{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529488	529579	
==>ne 838 \"src/ops/math.ops\"\n  {{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	530370	530461	
==>ne 838 \"src/ops/math.ops\"\n  {{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53252	53353	
==>scent::UncondReject($lookahead,$line,$code);
				$prod and $prod->additem($item)
				      or  _no_rul <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54961	55062	
==>scent::UncondReject($lookahead,$line,$code);
				$prod and $prod->additem($item)
				      or  _no_rul <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	2972	3059	
==>DynaPMCs>

=item C<Parrot::Docs::Section::C>

=item C<Parrot::Docs::Section::Ops>

=item <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52797	53057	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gc_debug",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53552	53812	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gc_debug",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	340	434	
==>:RecDescent::LineCounter}, $thisline->[0],
	    $thisline->[1];
	$tlc;
}

sub expectation_messa <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1322	1475	
==>e.

=cut

sub pc
{
    my $self = shift;

    if (@_)
    {
        $self->{PC} = shift;
    }
    else
    {
        return $self->{PC};
    }
}

=item C <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	931	1084	
==>e.

=cut

sub pc
{
    my $self = shift;

    if (@_)
    {
        $self->{PC} = shift;
    }
    else
    {
        return $self->{PC};
    }
}

=item C <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	13719	13832	
==>= $self->new unless ref($self); # so we tolerate being a class method
  
  if(!defined $source)             { $sou <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5256	5366	
==>ession::Value::Literal->new($block, $self->require_literal);
        }

        $props{$prop} = $value;
      } <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8256	8366	
==>ession::Value::Literal->new($block, $self->require_literal);
        }

        $props{$prop} = $value;
      } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1234	1320	
==>s.h\"\n\ntypedef opcode_t* (*interface_f)(Interp*, INTVAL*, void **);\n\n\n\n/*\n** pmc <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2703	2813	
==>lf)=shift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHECK <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2581	2682	
==>lf)=shift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHECK <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472869	473163	
==>,
                  "CODE" => 542,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 394 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2388	2495	
==>ym->type;
  }
  else {
    $right_type = $right->type;
  }

  $self->INTERNAL_ERROR("No type for dest!")  un <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2310	2417	
==>ym->type;
  }
  else {
    $right_type = $right->type;
  }

  $self->INTERNAL_ERROR("No type for dest!")  un <==
3	/Users/nnunley/parrot/config/inter/shlibs.pm	378	472	
==>here.

This is a separate unit from config/inter/progs.pm because the answers depend
on which c <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8145	8238	
==>se integer'-hint.

This release was made by Christian Lackas <delta@clackas.de>.

=cut

__DATA <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8485	8594	
==>>			and	print STDERR 
#DBG>				    "go to state $$states[$$stack[-1][0]]{GOTOS}{$lhs}.\n";

#DBG>				$debug <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8100	8206	
==>>			and	print STDERR 
#DBG>				    "go to state $$states[$$stack[-1][0]]{GOTOS}{$lhs}.\n";

#DBG>				$debug <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	1130	1226	
==>ay set any command line option in the file with
the exception of the configuration file name itse <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	2704	2799	
==>h is not a good API unless it's constant).

Think multithreaded access, or just plain reentrancy <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9825	9930	
==>$block, $self->require_value);
      my $op    = $self->require_infix_rel->text;
      my $right = Jako::C <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25361	25466	
==>$block, $self->require_value);
      my $op    = $self->require_infix_rel->text;
      my $right = Jako::C <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	1647	1741	
==>em('', 'tools/dev/extract_file_descriptions.pl'),
            $self->new_item('', 'tools/dev/li <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14317	14454	
==>40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 68,
			' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1462	1560	
==>lf->block->find_symbol($name);

  unless ($sym) {
#    $self->block->dump_symbols;
    $self->SYNTA <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15103	15192	
==>$name}> and
C<chr($Name2character_number{$name})>.

=head1 SEE ALSO

L<perlpod|perlpod>

L <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818003	818130	
==>,
                  "ARGS" => [],
                  "BODY" => "#line 40 \"src/ops/stack.ops\"\n  Parrot_push_regs(interpreter);\ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	8706	8824	
==>ose STDERR             or die "Can't close    stderr" if $err;

    open  STDOUT, ">&OLDOUT" or die "Can't restore  std <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8238	8343	
==>ose STDERR or die "Can't close    stderr" if $err;

    open STDOUT, ">&OLDOUT" or die "Can't restore  std <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	187	281	
==>brary

=head1 DESCRIPTION

Determines whether the platform supports gdbm. This is needed for th <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	984	1077	
==>bundle];
our $O = qq[.o];
our $CFLAGS = qq[-I/opt/local/include -fno-common -no-cpp-precomp  - <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	988	1081	
==>bundle];
our $O = qq[.o];
our $CFLAGS = qq[-I/opt/local/include -fno-common -no-cpp-precomp  - <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627484	627704	
==>@1}}->vtable->init(interpreter, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628628	628848	
==>@1}}->vtable->init(interpreter, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	8010	8139	
==>('goto', [ $next ]),
              $rfail => $self->dbprint("R in group failed\n"),
                        aop('popint', [ '<tmp> <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12942	13055	
==>e and return that
    # as the link.
    
    my $dist = Parrot::Distribution->new;
    my $file = $dist->file_for <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1728	1815	
==>r $PMC2C = "$PERL $PATHQUOTE" . q[/Users/nnunley/parrot/tools/build/pmc2c.pl] . $PATHQUO <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1819	1906	
==>r $PMC2C = "$PERL $PATHQUOTE" . q[/Users/nnunley/parrot/tools/build/pmc2c.pl] . $PATHQUO <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	452	554	
==>lass = shift;
  my ($block, $left, $op, $right) = @_;

  confess "Block is not defined!" unless defined <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	464	566	
==>lass = shift;
  my ($block, $left, $op, $right) = @_;

  confess "Block is not defined!" unless defined <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29066	29167	
==>t use one of \${DEST0} or \${LOADREG} in rule " .
				"$rule->{'name'}\n";
		} elsif ($rule->{'pir'} = <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	2255	2382	
==>$cur =~ /[oO]/) {
			append;
			fetch;
			while($cur =~ /[0-7]/) {
				append;
				fetch;
			}
		} elsif ($cur =~ /[hH]/) {
			a <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	53268	53388	
==>xtract_variable($_[0], '') },
                sub { extract_quotelike($_[0],'') },
                sub { extract_codebloc <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	21338	21428	
==>xtract_variable($_[0], '') },
	sub { extract_quotelike($_[0],'') },
	sub { extract_codebloc <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	4597	4741	
==>gs[$i];
        my $name = $arg->{name};
        
        $code .= emit("  .local pmc a_$name");
        # do we need to use a default?
        $ <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	452	546	
==>ectory;

=item C<tmp_file($path)>

Returns the file for C<$path> relative to the default tempor <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256403	256554	
==>{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257311	257462	
==>{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258219	258370	
==>{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	50295	50400	
==>d $prod->additem($item)
				      or  _no_rule("<perl_codeblock>",$line);
			}
			elsif ($grammar =~ m/$VA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	119245	119520	
==>148,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 231 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n" <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1892	1990	
==>g against the Perl 6 pattern, passing the test if
they do not match. The same pattern argument synt <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3424	3522	
==>g against the Perl 6 pattern, passing the test if
they do not match. The same pattern argument synt <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114816	115026	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115670	115880	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116525	116735	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
3	/Users/nnunley/parrot/config/inter/libparrot.pm	1754	1860	
==>onf->data->get('blib_dir')
        : ''
    );

    unless (defined($conf->data->get('libparrot_ldflags <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6269	6374	
==>4) = "Seattle"
Max = 4 'UBOUND(A$)
Exchange=TRUE           ' Force first pass through the array.
WHILE Exc <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15922	16027	
==>4) = "Seattle"
Max = 4 'UBOUND(A$)
Exchange=TRUE           ' Force first pass through the array.
WHILE Exc <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18680	18781	
==>yms[CURR]}"  # Return $syms[CURR]
	ret
RETURN2
		if (! $runtime_jump) {
			warn "Note: RETURN x causes <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	6121	6220	
==>: --type=$Type unknown\n"
    if defined $Type && $Type ne '' && !exists $Type{$Type};

my $TypeLong <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172181	172324	
==>c"
                            ],
                  "BODY" => "#line 218 \"src/ops/cmp.ops\"\n  if (0 != string_equal(interpreter,\n      {{\@1} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173159	173302	
==>c"
                            ],
                  "BODY" => "#line 218 \"src/ops/cmp.ops\"\n  if (0 != string_equal(interpreter,\n      {{\@1} <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	2371	2475	
==>okens,$count);
    #_dataflow($tree);
    #print Data::Dumper->Dump ([$count, $tree]);
    push @tree, $t <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	9980	10122	
==>pe       = sprintf("PARROT_%s_OP", uc $op->type);
        my $name       = $op->name;
        $names{$name} = 1;
        my $full_name  = $op-> <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6798	6917	
==>";
    }
}

sub generate_c {
    my ($pmc) = @_;

    if (needs_build("$pmc.c", "$pmc.pmc")) {
        run("$PMC2C --c $ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7009	7128	
==>";
    }
}

sub generate_c {
    my ($pmc) = @_;

    if (needs_build("$pmc.c", "$pmc.pmc")) {
        run("$PMC2C --c $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	25140	25265	
==>reedy_optional_fail');
    my ($R_back, @R_ops) = $self->rewrite($R, $rfail);

    my @ops = (
                        @R_ops, <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	5387	5491	
==>ps files). by $0.
 *
 * Any changes made here will be lost!
 *
 */

END_C

my $mmp_v = "${major_version}_ <==
3	/Users/nnunley/parrot/languages/regex/test.pl	630	723	
==>msg;

    print <<"END";
Usage: $0 [-c|--compile] [--language=LANGUAGE] [--optimize=PASSES|--n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126690	126995	
==>= w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127825	128130	
==>= w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128960	129265	
==>= w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	1725	1811	
==>-I/usr/local/include -I/opt/local/include -pipe -fno-common -Wno-long-double  -I /opt/l <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1113	1199	
==>-I/usr/local/include -I/opt/local/include -pipe -fno-common -Wno-long-double  -I /opt/l <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1117	1203	
==>-I/usr/local/include -I/opt/local/include -pipe -fno-common -Wno-long-double  -I /opt/l <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931912	932204	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932683	932975	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  " <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	2475	2570	
==>on which to write your own test libraries I<which can
work together>.

=head2 Construction

=ove <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	2304	2411	
==>pmc);

    if ($conf->options->get('ask')) {
        print <<"END";


The following PMC files are available: <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	43087	43192	
==>> undef,
		"_AUTOTREE"   => undef,
	};
	if ($::RD_AUTOACTION)
	{
		my $sourcecode = $::RD_AUTOACTION;
		$s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946545	946808	
==>JUMP" => 0,
                  "NAME" => "find_charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947446	947709	
==>JUMP" => 0,
                  "NAME" => "find_charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	123	223	
==>alue warnings in older perls.
$^C ||= 0;

use strict;
use vars qw($VERSION);
$VERSION = '0.30';
$VERS <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4591	4698	
==>copy') {
    # Copy *.so -> destination, where destination is the first
    # argument, given as --destinati <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4695	4802	
==>copy') {
    # Copy *.so -> destination, where destination is the first
    # argument, given as --destinati <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3907	4011	
==>copy') {
	# Copy *.so -> destination, where destination is the first
    # argument, given as --destinati <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423621	423764	
==>{\@1}} = (INTVAL)PIO_listen(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	424518	424661	
==>{\@1}} = (INTVAL)PIO_listen(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Test/More.pm	24513	24608	
==>nces Test::More provides a handful of useful functions.

B<NOTE> I'm not quite sure what will ha <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	14026	14158	
==>r name=id>">
            <td colspan="12" class="indent3">
              <tmpl_loop name=summary>
                <span class="tests_ <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	1246	1359	
==>type_map = (
    bool  => 'Py_bool',
    complex  => 'Py_complex',
    float => 'Py_float',
    int   => 'Py_int', <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	26011	26122	
==>my $opcode = $code[$code_l]->[2];
    if ($opcode eq 'POP_TOP') {
	print "# POP_TOP\n";
	$code_l++;
    }
    el <==
3	/Users/nnunley/parrot/config/auto/env.pm	1147	1261	
==>>set_result('both');
    } elsif ($setenv) {
        print " (setenv) " if $verbose;
        $self->set_result('set <==
3	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1270	1382	
==>UT qq{
; generated by tools/dev/mk_setup.pl for the Inno Setup Script Compiler.

[Setup]
AppName=parrot
AppVerNam <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	12195	12287	
==>l opcode
 * usage:
 *
 * interp->op_lib->op_code("set", 0)
 * interp->op_lib->op_code("set_i_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090871	1090979	
==>= {{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1091931	1092039	
==>= {{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experi <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	12109	12195	
==>${CURIC}_LAZY_MOVE_RET_CONT:
${PARAMS}[0] = ${STEMP0}
dec stack_depth

PRE_CALL_END_${C <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2415	2618	
==>riage return
                last;
            s/^\\t//
                and $str .= "\t",      # horizontal tab
                last;
            s/^\\v//
                and $str .= "\x0b",    # ve <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3929	4132	
==>riage return
                last;
            s/^\\t//
                and $str .= "\t",      # horizontal tab
                last;
            s/^\\v//
                and $str .= "\x0b",    # ve <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	1871	1977	
==>sp_for_S',        # Whether to map S<...>'s to \xA0 characters
  'source_filename',   # Filename of the sou <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	6741	6867	
==>suffix = shift;
    
    return unless defined $suffix;
    
    my $recursive = shift;
    my $ignore = shift;
    my @files = <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49449	49568	
==>'$commit=0;1',
								  $lookahead,$line,"<uncommit>");
				$prod and $prod->additem($item)
				      or  _no_rule("<un <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4929	5042	
==>'Failed to unlink ' . $_[0]->path . ": $!";
    
    $_[0]->SUPER::delete;
}

=back

=head1 SEE ALSO

=over 4

=it <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93201	93367	
==>s",
                              "s"
                            ],
                  "BODY" => "#line 58 \"src/ops/bit.ops\"\n  string_bitwise_and(interpreter, {{\@1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50192	50290	
==>OFILE_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_PROFILE_FLAG); }\n  {{=0,+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50985	51083	
==>OFILE_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_PROFILE_FLAG); }\n  {{=0,+= <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	671	778	
==>NTENT   => [ ]
  }, $class;

  $block->push_content($self);

  return $self;
}

sub peer { return shift->{PE <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	662	769	
==>NTENT   => [ ]
  }, $class;

  $block->push_content($self);

  return $self;
}

sub peer { return shift->{PE <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5191	5295	
==>or (split('',$$token)) {
#DBG>			$tok.=		(ord($_) < 32 or ord($_) > 126)
#DBG>					?	sprintf('<%02X>',o <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4941	5043	
==>or (split('',$$token)) {
#DBG>			$tok.=		(ord($_) < 32 or ord($_) > 126)
#DBG>					?	sprintf('<%02X>',o <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10495	10580	
==>b,$c,$d,$a,$_[9],21,0xfc93a039,/* 52 */
II,$a,$b,$c,$d,$_[16],6,0x655b59c3,/* 53 */
II <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2120	2221	
==>$right = $right->compile($compiler);

    if ($cond eq 'unless') {
      $op = $compiler->invert_relop <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	2931	3036	
==>p|?'       => \$cfg{display_help},
    'method=s'     => \$cfg{method},
    'benchmarks=s' => $cfg{run_ben <==
3	/Users/nnunley/parrot/config/gen/cpu/x86_64/auto.pm	20	111	
==>/gen/cpu/x86_64/auto.pl

=head1 DESCRIPTION

Adds -fPIC to x86_64 (AMD64) ccflags, if necess <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1168	1265	
==>>{external_labels}{$fail_label} = 1;

    my $opt2 = Regex::Optimize->new(%options);
    $code->{c <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	273	361	
==>rl implementation of the F<examples/mops/mops.pasm> example program,
for speed comparison <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	269	357	
==>rl implementation of the F<examples/mops/mops.pasm> example program,
for speed comparison <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	7690	7777	
==>32_op Parrot_jit_normal_op
#define Parrot_jit_vtable_1r221_op Parrot_jit_normal_op

#def <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	933524	933767	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934298	934541	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19841	19980	
==>equire_comma;
        }
      }

      $self->require_close_paren;
      $self->require_semicolon;
     
      #
      # TODO: Call is reall <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667563	667786	
==>vtable->push_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668337	668560	
==>vtable->push_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	2972	3062	
==>mbols:
--code|-c	code/text symbols (Tt)
--data|-d	data symbols (Dd, Bb)
--init|-i	initialis <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	11464	11567	
==>xpander_" + id);
      if(elem.className == "details") {
	elem.className = "";  /* hack? */
	expander.in <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	525	624	
==>s not defined!" unless defined $block;
  confess "Left is not defined!" unless defined $left;
  conf <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	537	636	
==>s not defined!" unless defined $block;
  confess "Left is not defined!" unless defined $left;
  conf <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13121	13234	
==>N, STACK_CLEANUP_NULL);\n  loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13965	14078	
==>N, STACK_CLEANUP_NULL);\n  loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	11259	11352	
==>match{'!INPUT'} = $rx_input;
$rx_match{'!GROUPS'} ||= [];
my $rx_len = length($rx_input);
my $ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28732	28840	
==>r the method C<$method>.

=cut

sub implements
{
    my ($self, $meth) = @_;

    return 0 unless exists $sel <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	8653	8736	
==>r_op[i])
#define CONST(i) interpreter->code->const_table->constants[jit_info->cur_op <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	24253	24409	
==>pushint', [ 0 ]),
                        aop('goto', [ $next ]),
              $rfail => aop('popindex', [ '<tmp>', $lastback ]),
                        ao <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2997	3086	
==>onstruct::Type::String');
  $self->SYNTAX_ERROR("Can't do arithmetic on strings") if UNIVE <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	3117	3206	
==>onstruct::Type::String');
  $self->SYNTAX_ERROR("Can't do arithmetic on strings") if UNIVE <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6887	7011	
==>")) {
        run("$PMC2C --c $pmc.pmc")
          or die "pmc2c code generation failed ($?)\n";
    }
}

sub compile {
    m <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7098	7222	
==>")) {
        run("$PMC2C --c $pmc.pmc")
          or die "pmc2c code generation failed ($?)\n";
    }
}

sub compile {
    m <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	22600	22706	
==>ave P3
	popp
	restore P1
	ret
OUTOF_$typename: 

OUTOF

}

sub parse_dim {
		feedme;
ANOTHERDIM:
		if ($sym <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	57548	57766	
==>.yp"
{
            [];
        }
	],
	[#Rule 93
		 'args', 1,
sub
#line 488 "Lua\lua51.yp"
{
            [
                $_[1],
            ];
        }
	],
	[#Rule 94
		 'args', 1,
sub
#line 494 "Lu <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	2757	2873	
==>elf->{'token_buffer'} }
   ),
   @{ $self->{'token_buffer'} } ? '' : '       (no tokens)',
   "\n"
  ;

  until( @{ $ <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	2012	2107	
==>_dir\}/$parrot_path/g;
    $makefile =~ s/\$\{trans_mono_lib_path\}/$mono_lib_path/g;
    $mak <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	22408	22522	
==>lename: $!\n";
    return $fh;
}

#
#   main()
#
# Get and set the correct options and execute the runmode
# specif <==
3	/Users/nnunley/parrot/config/auto/gc.pm	1201	1309	
==>->data->set(malloc_header => 'malloc.h');
        } else {
            $conf->data->set(malloc_header => 'std <==
3	/Users/nnunley/parrot/config/auto/memalign.pm	996	1096	
==>->data->set(malloc_header => 'malloc.h');
    } else {
        $conf->data->set(malloc_header => 'std <==
3	/Users/nnunley/parrot/lib/File/Which.pm	4507	4603	
==>sually, it will contain a list in
the form C<.EXE;.BAT;.COM;.JS;.VBS> etc. If C<File::Which> find <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	10154	10247	
==>-equiv="Content-Type" content="text/html; charset=utf-8" />

  <style type="text/css">
    bod <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627192	627292	
==>SS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n\n  /* Why?? If we're creating a c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628336	628436	
==>SS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n\n  /* Why?? If we're creating a c <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12166	12265	
==>SEE ALSO

L<Pod::Simple>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All r <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3084	3183	
==>SEE ALSO

L<Pod::Simple>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All r <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	2977	3075	
==>goto POP()>

Transforms to C<< PC' = <pop> >>. Pops the address off control stack.

=item C<expr OF <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700761	700930	
==>"i",
                              "i"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701752	701921	
==>"i",
                              "i"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	906	1013	
==>$TEST_PROG_ARGS = $ENV{TEST_PROG_ARGS} || '-j -Oc';
    my $args = $TEST_PROG_ARGS;

    Parrot::Test::write <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2632	2762	
==>ynamic_linking  => 1,
            parrot_is_shared     => 1,

            sym_export => '__declspec(dllexport)',
            sym_im <==
3	/Users/nnunley/parrot/config/init/hints/cygwin.pm	1162	1277	
==>ynamic_linking => 1,
        parrot_is_shared    => 1,
        sym_export => '__declspec(dllexport)',
        sym_im <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	34134	34225	
==>rackets are specified is not significant.

A "balanced-bracket-delimited substring" is a sub <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1971	2165	
==>5
$N1 = $N1 / $N2;              # div    N1, N1, N2
$N2 = 1000000.0;              # set    N2, 1000000.0
$N1 = $N1 / $N2;              # div    N1, N1, N2
                              #
print "M <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	1971	2165	
==>5
$N1 = $N1 / $N2;              # div    N1, N1, N2
$N2 = 1000000.0;              # set    N2, 1000000.0
$N1 = $N1 / $N2;              # div    N1, N1, N2
                              #
print "M <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	52352	52442	
==>st successfully
extracted substring removed from it. In all contexts
C<extract_multiple> st <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953786	954050	
==>"JUMP" => 0,
                  "NAME" => "encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954576	954840	
==>"JUMP" => 0,
                  "NAME" => "encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	15477	15585	
==>n HTML anchor with the specified "href".

=cut

sub html_link
{
    my $self = shift;
    my $href = $self->h <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9736	9844	
==>> popop . " $reg, <rx_stack> # popint");
    }
}

sub output_substr {
    my ($self, $dest, $src, $offset, $l <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2449	2545	
==>rious types of files without suffix.

my %type_for_name = (
	'Artistic' => 'Licence file',
	'BUGS <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	542	647	
==>IPPING @skip\n";

# get a list of all the tests in the harness.

my $teetcl = 't_tcl';

my @b= map {s/.*\/ <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	1160	1256	
==>fix

The API is implemented but has no C<Parrot_> prefix (or prefix deemed
Parroty enough, like C <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	14243	14334	
==>e-acute) to characters (like "e").

=item $Code2USASCII{I<integer>}

This maps from US-ASCII <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	4307	4413	
==>/>
          <RegExpr attribute="Comment" context="#pop" String="^\\=cut\\s*\$" />
      </context>

END

p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819577	819662	
==>ck_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n\n  if (!entry <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820537	820622	
==>ck_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n\n  if (!entry <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7194	7307	
==>indent) {
                error($file, $line, "Improper indenting for \"$_\"\n(should be \"#$indent$2\" because it <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7501	7614	
==>indent) {
                error($file, $line, "Improper indenting for \"$_\"\n(should be \"#$indent$2\" because it <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7859	7972	
==>indent) {
                error($file, $line, "Improper indenting for \"$_\"\n(should be \"#$indent$2\" because it <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19949	20051	
==>TRUE, $_[1] ]); }
	],
	[#Rule 16
		 'expr', 3,
sub
#line 123 "lib/Regex/Grammar.y"
{ return op('multi_m <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	10296	10398	
==>collision with " . $files_in_dir_nocase{$dirname}{lc($filename)});
        }
        $files_in_dir_noca <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	1984	2077	
==>do carefully contain the effect so that only the Parrot
itself sees those shortened definition <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2511	2608	
==>e matches the C<$expected>
parameter.  Note that C<$expected> is a I<Perl 5> pattern.

=cut

sub p <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3945	4042	
==>e matches the C<$expected>
parameter.  Note that C<$expected> is a I<Perl 5> pattern.

=cut

sub p <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	9000	9082	
==>f) Parrot_exec_add_text_rellocation_func(jit_info->objfile, jit_info->native_ptr, f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78624	78893	
==>TYPE" => "function",
                  "CODE" => 100,
                  "ARGS" => [
                              "p",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 1176 \"src/ops/c <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2457	2576	
==>ce line!
    
    } else {
      DEBUG > 2 and print "First line: [$source_line]\n";

      if( ($line = $source_line) = <==
3	/Users/nnunley/parrot/config/gen/icu.pm	1119	1227	
==>, undef, $ret) = capture_output("icu-config", "--exists");

            if (($ret == -1) || (($ret >> 8) != 0 <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	58126	58215	
==>gen_delimited_pat>

The C<gen_delimited_pat> subroutine takes a single (string) argument a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961452	961842	
==>",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1082,
                  "ARGS" => [
                              "s",
                              "sc",
                              "i" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81165	81488	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compile",
                  "FLAGS" => "",
                  "AR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82058	82381	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compile",
                  "FLAGS" => "",
                  "AR <==
3	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	772	921	
==>file.
	unlink "$file_name.cs";
	return 1;
}

# This translates a .NET DLL or EXE to a PBC.
# ###########################################
sub translate <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	22364	22467	
==>/Grammar.y"
{ return [ 'neg', [] ]; }
	],
	[#Rule 39
		 'classpieces', 2,
sub
#line 170 "lib/Regex/Gramm <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6323	6416	
==>nk line
      if(!$self->{'start_of_pod_block'} and @$paras and $paras->[-1][0] eq '~Verbatim' <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7157	7261	
==>lhs,$len,$code)=@{$$rules[-$act]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print STDERR "Re <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	2429	2530	
==>l there is a working find_lex/store_lex
sub _find_lex {
  my ($self, $symbol) = @_;
  my $return = $se <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6825	6925	
==>lhs,$len,$code)=@{$$rules[-$act]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print STDERR "Re <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	49856	49955	
==>bstring to that
point. If the bracket was mismatched, return an error.

=item 2.

Try to match a quo <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	549	641	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
#
#  And here is how we implement a pu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	192	283	
==>b/Jako/Construct/Block/Loop.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1844	1936	
==>::isa($left, 'Jako::Construct::Expression::Value::Identifier')) {
    my $left_sym = $block-> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1802	1894	
==>::isa($left, 'Jako::Construct::Expression::Value::Identifier')) {
    my $left_sym = $block-> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1724	1816	
==>::isa($left, 'Jako::Construct::Expression::Value::Identifier')) {
    my $left_sym = $block-> <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4571	4683	
==>} 
elsif ($mode eq 'copy') {
    # Copy *.so -> destination, where destination is the first
    # argument, given <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4675	4787	
==>} 
elsif ($mode eq 'copy') {
    # Copy *.so -> destination, where destination is the first
    # argument, given <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3887	3996	
==>} 
elsif ($mode eq 'copy') {
	# Copy *.so -> destination, where destination is the first
    # argument, given <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	7430	7649	
==>/ops/core.ops\"\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8066	8285	
==>/ops/core.ops\"\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PA <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5432	5538	
==>alue) = @_;
    $DB::single = 1;
    $value = value($value);
    return qq!<rx_match>{"$group"}->[0] = $val <==
3	/Users/nnunley/parrot/config/inter/charset.pm	1472	1583	
==>ERS)


END
    }

    # build list of libraries for link line in Makefile
    my $slash = $conf->data->get('slas <==
3	/Users/nnunley/parrot/config/inter/encoding.pm	1489	1600	
==>ERS)


END
    }

    # build list of libraries for link line in Makefile
    my $slash = $conf->data->get('slas <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1348	1491	
==>$self = shift;

    if (@_)
    {
        $self->{PC} = shift;
    }
    else
    {
        return $self->{PC};
    }
}

=item C<args(@args)>

= <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	957	1100	
==>$self = shift;

    if (@_)
    {
        $self->{PC} = shift;
    }
    else
    {
        return $self->{PC};
    }
}

=item C<args(@args)>

= <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	1675	1775	
==>op->[0] eq 'label') {
	    $curlabel = "$op->[1]:" . $curlabel;
	} elsif (my $outfunc = $OUTPUT{$op-> <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	13323	13440	
==>ame);
        $self->_cmp_diag($got, '!=', $dont_expect) unless $test;
        return $test;
    }

    return $self-> <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	5134	5249	
==>n (.*)/;
            if ($total_calls) {
                $function_call_coverage{$source_file}{$function} = $percent <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12245	12351	
==>SUPER
      \(\s*(.*?)\)      # capture argument list
     /"Parrot_${1}_$method(" . full_arguments($2) . ' <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2171	2299	
==>'.Undef', 'apply_CALL'],
  ['',            'set', 'P8', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	2227	2317	
==>m);
print Data::Dumper->Dump([$mini],["*CAPTURES"]);
END
}

package Regex::Driver::PIR;
our <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10038	10142	
==>y $verbose = $conf->options->get('verbose');

    if (defined($_[0]) && length($_[0])) {
        local $" <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10619	10723	
==>y $verbose = $conf->options->get('verbose');

    if (defined($_[0]) && length($_[0])) {
        local $" <==
3	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	4247	4343	
==>e extraneous spaces.
 o add in "proper" spacing (after commas, etc.)
 o heredocs could be treated <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	2060	2157	
==>disabled-optimization -falign-functions=16 -Wno-shadow',
             'cg_flag' => '-DHAVE_COMPUTE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924385	924470	
==>s/string.ops\"\n  {{\@1}} = string_make_empty(interpreter, enum_stringrep_one, {{\@2}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925176	925261	
==>s/string.ops\"\n  {{\@1}} = string_make_empty(interpreter, enum_stringrep_one, {{\@2}} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	50299	50437	
==>element from being childless
      
      pop @stack;
      pop @lineage;
      
    } elsif(defined $4) {
      DEBUG > 3 and print "Found <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	9876	9967	
==>r, [ $syms[CURR], $type[CURR] ]);
		if ( (isbuiltin($syms[CURR]) or isuserfunc($syms[CURR])) <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62701	62814	
==>", $aftererror,$line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr($grammar <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63412	63525	
==>", $aftererror,$line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr($grammar <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64142	64255	
==>", $aftererror,$line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr($grammar <==
3	/Users/nnunley/parrot/tools/dev/pbc_header.pl	1532	1645	
==>fo {
    for my $f (@ARGV) {
	open F, "<$f" or die "Can't open $f: $!";
	my $header;
	read F, $header, 16;
	my (@f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660131	660237	
==>0 : {{\@2}}->vtable->exists_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661053	661159	
==>0 : {{\@2}}->vtable->exists_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LA <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	4027	4132	
==>$pmc_type");
    $compiler->emit("  $temp_pmc = $dest");

    my $dest_name = $dest_ident->value;
    $com <==
3	/Users/nnunley/parrot/languages/regex/test.pl	3865	3958	
==>t;
    generate_regular_pir("test_regex.pir", $pattern);
    generate_pbc("test_regex.pir", "t <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	364	454	
==>~~~~~~~~~~~~~~~~~~~~~~~

sub _handle_element_start {
  print {$_[0]{'output_fh'}} "\n"  unl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	2044	2153	
==>ub args   { return @{shift->{ARGS}}; }

sub file   { return shift->{FILE};     }
sub line   { return shift->{L <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2879	2986	
==>ub args  { return @{shift->{ARGS}};  }

sub file  { return shift->{FILE};     }
sub line  { return shift->{L <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	760	858	
==>rrot;
    
    return Parrot::Docs::Section::Parrot->new;
}

=item C<new_section($name, $text, @ite <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	1643	1790	
==>{
        my $test = cc_run();
        unlink "gdbm_test_db";
        if ($test eq "gdbm is working.\n") {
            $has_gdbm = 1;
            pr <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48806	48925	
==>repeated directive",
					       $line);
					_hint("Repeated directives cannot have
					       a maximum repetition of <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	16451	16564	
==>each vector, doing the ops.
    .local pmc iter1
    iter1 = new .Iterator, $vector
  loop:    
    unless iter1 g <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	1715	1854	
==>options );
        if ( $skip_why ) {
            $self->{builder}->skip( $skip_why );
        } else {
            # STDERR is written into <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716492	716592	
==>(interpreter, p));\n  if (s) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interprete <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724384	724484	
==>(interpreter, p));\n  if (s) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interprete <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	50157	50297	
==>34
		 '_elseif_star', 6,
sub
#line 207 "Lua\lua51.yp"
{
            [ @{ $_[1] }, [ $_[3], $_[6] ] ];
        }
	],
	[#Rule 35
		 '_ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	4824	4922	
==>etag}}, $elseline);
		($result, $type, @code)=EXPRESSION();
		$false=qq{""} if $type eq "S";
		push <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	933	1025	
==>File';
}

=item C<directory_with_path($path)>

Returns the directory with the specified path. <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	966	1076	
==>Yapp::Driver;

require 5.004;

use strict;

use vars qw ( $VERSION $COMPATIBLE $FILENAME );

$VERSION = <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59681	59789	
==>mmit>",$line);
			$aftererror = 0;
		}
		elsif ($grammar =~ m/$ERRORPROD/gco)
		{
			pos($grammar)-=6;
			_pa <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	938	1040	
==>Yapp::Driver;

require 5.004;

use strict;

use vars qw ( $VERSION $COMPATIBLE $FILENAME );

$VERSION = <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	13344	13460	
==>ATCH{$key} = substr($rx_match{'!INPUT'}, $start, $end - $start);
        }
    } else {
        # Don't deal with par <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2005	2109	
==>ng
	# every instruction) to see if we need to instate a stack type state
	# that was propogated to this i <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1404	1508	
==>ng
	# every instruction) to see if we need to instate a stack type state
	# that was propogated to this i <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27164	27262	
==>mod  = $self->{"mod"};

	$sdel =~ s/[[{(<]/{}/;
	
my $code = ''.($::RD_NO_TRACE?'':'
		Parse::RecDe <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	1522	1651	
==>PAN></TD>
            </TR>
            <TR>
                <TD WIDTH="100%" COLSPAN="2"  ID="NAV" STYLE="border-bottom: 1px soli <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1198	1303	
==>namespace ${namespace}");
      $compiler->indent;
      $self->SUPER::compile($compiler);
      $compiler <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	606	705	
==>namespace ${namespace}");
    $compiler->indent;
    $self->SUPER::compile($compiler);
    $compiler <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	5193	5336	
==>sgtty' => undef,
             'i_shadow' => undef,
             'i_signal' => 'define',
             'i_socks' => undef,
             'i_stdarg' <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	11290	11399	
==>ctype.h
isalpha     ctype.h
isblank     ctype.h
iscntrl     ctype.h
isdigit     ctype.h
isfinite    math.h
isg <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11218	11315	
==>...
	return(scalar @args, @args);
}
sub optype_of {
	my($func, $extra)=@_;
	if ($extra and $extra- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11049	11137	
==>ontrol_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  {{+={{\@1}}}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11838	11926	
==>ontrol_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  {{+={{\@1}}}};\n <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	767	861	
==>y. Defaults to '/usr/bin'.

=item C<libdir>

The library directory. Defaults to '/usr/lib'.

=i <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	996	1090	
==>y. Defaults to '/usr/bin'.

=item C<libdir>

The library directory. Defaults to '/usr/lib'.

=i <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7665	7873	
==>otpos = $1;
            };

            @sempar =       $$dotpos
                        ?   map { $$_[1] } @$stack[ -$$dotpos .. -1 ]
                        :   ();

            $semval = $code ? &$co <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7317	7518	
==>otpos = $1;
            };

            @sempar =       $$dotpos
                        ?   map { $$_[1] } @$stack[ -$$dotpos .. -1 ]
                        :   ();

            $semval = $code ? &$co <==
3	/Users/nnunley/parrot/lib/File/Which.pm	4950	5047	
==>hardcoded list if it's running
under Win32 but does not find a C<PATHEXT> variable.

=head2 VMS

S <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566696	567018	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "does",
                  "FLA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567590	567912	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "does",
                  "FLA <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	27692	27797	
==>ail, so todos are passes.

Of course, test #1 is $tests[0], etc...

=cut

sub summary {
    my($self) = sh <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7525	7716	
==>)$/
                or  die "In line rule name '$lhs' ill formed: ".
                        "report it as a BUG.\n";
                $$dotpos = $1;
            };

            @sempar = <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7180	7365	
==>)$/
                or  die "In line rule name '$lhs' ill formed: ".
                        "report it as a BUG.\n";
                $$dotpos = $1;
            };

            @sempar = <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	1751	1881	
==>ken .= $ch;
    } else {
      push @$tokref,$token;
      $token = $ch;
    }
  }
  return [grep { /\S/ } @$tokref];
}

1;
__END__ <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	6267	6358	
==>G Schwern
E<lt>schwern@pobox.comE<gt>, wardrobe by Calvin Klein.


=head1 COPYRIGHT

Copyrig <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955854	955938	
==>src/ops/string.ops\"\n  {{\@1}} = string_copy(interpreter, Parrot_encoding_name(inter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956666	956750	
==>src/ops/string.ops\"\n  {{\@1}} = string_copy(interpreter, Parrot_encoding_name(inter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255853	256154	
==>"NAME" => "xor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256760	257061	
==>"NAME" => "xor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257668	257969	
==>"NAME" => "xor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	10284	10387	
==>insensitive collision with " . $files_in_dir_nocase{$dirname}{lc($filename)});
        }
        $files_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140841	140941	
==>" => "#line 77 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141737	141837	
==>" => "#line 77 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142633	142733	
==>" => "#line 77 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27670	27769	
==>. ' ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and '
		. ($check->{itempos}? 'do {'.Parse::RecDescen <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29780	29879	
==>. ' ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and '
		. ($check->{itempos}? 'do {'.Parse::RecDescen <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31877	31976	
==>. ' ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and '
		. ($check->{itempos}? 'do {'.Parse::RecDescen <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9741	9857	
==>R "**Dicard invalid token ".&$ShowCurToken.".\n";

			$$token=$$value=undef;
		};

        $$errstatus=3;

		w <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9303	9412	
==>R "**Dicard invalid token ".&$ShowCurToken.".\n";

			$$token=$$value=undef;
		};

        $$errstatus=3;

		w <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13194	13281	
==>arse::RecDescent::UncondReject->new(0,0,'<reject>');
	}
	elsif (@items==1 && ($items[0]- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934389	934671	
==>se",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1050,
                  "AR <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	7	106	
==>le.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subje <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	10	109	
==>le.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subje <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	36948	37046	
==>led directive %s (Handled: %s)\n",
         $para->[0], join(' ', sort keys %{$self->{'accept_direc <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3080	3200	
==>}[$index][1];

	undef;	#Invalid index
}

sub YYCurtok {
	my($self)=shift;

        @_
    and ${$$self{TOKEN}}=$ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2932	3043	
==>}[$index][1];

	undef;	#Invalid index
}

sub YYCurtok {
	my($self)=shift;

        @_
    and ${$$self{TOKEN}}=$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20492	20591	
==>BODY" => "#line 342 \"src/ops/core.ops\"\n  if ({{\@1}} == 0.0) {\n    {{+={{\@2}}}};\n  }\n  {{+=3} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	470	568	
==>_start {
  # ($self, $element_name, $attr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value) <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	469	567	
==>_start {
  # ($self, $element_name, $attr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value) <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	664	762	
==>_start {
  # ($self, $element_name, $attr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value) <==
3	/Users/nnunley/parrot/lib/File/Which.pm	40	141	
==>re Exporter;

@File::Which::ISA       = qw(Exporter);

@File::Which::EXPORT    = qw(which);
@File::Whi <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	407	515	
==>parrot, $path_to_language, $count ) = @_;
 
    
    my $test_prog_args = $ENV{TEST_PROG_ARGS} || q{};
    my <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	425	527	
==>parrot, $path_to_language, $count ) = @_;

    my $test_prog_args = $ENV{TEST_PROG_ARGS} || q{};
    my <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	46229	46323	
==>ocument is rarely
a contiguous substring. For example, a typical piece of code using
here docum <==
3	/Users/nnunley/parrot/config/init/manifest.pm	490	597	
==>g MANIFEST';

@args = qw(nomanicheck);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->g <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	2611	2719	
==>tivate vital PMCs like SArray
    # so there would be tests needed, that check for vital classes

    # names <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	35004	35121	
==>pes\n";
		}
        if ($rule->{'code'} eq '45') {
            $pir .= <<'PIRCODE';
i = elements P_arg_0
SS_PROP_LOOP_ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27072	27163	
==>ishname;

	$f="_USERFUNC_$funcname";
	$f=changename($f);
	$f=~s/\$/_string/g; $f=~tr/a-z/A-Z <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27345	27436	
==>ishname;

	$f="_USERFUNC_$funcname";
	$f=changename($f);
	$f=~s/\$/_string/g; $f=~tr/a-z/A-Z <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379174	379372	
==>i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 432 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intva <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	49156	49289	
==>_[0], [$var], [ $_[4] ] );
        }
	],
	[#Rule 28
		 '@9-2', 0,
sub
#line 171 "Lua\lua51.yp"
{
            PushScopeF( $_[0] <==
3	/Users/nnunley/parrot/lib/Test/More.pm	1767	1865	
==>ructure1, $complex_structure2, $test_name);

  SKIP: {
      skip $why, $how_many unless $have_some <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	2128	2247	
==>rn shift->{PEER};  }
sub kind      { return shift->{KIND};  }
sub type      { return shift->{TYPE};   }

sub left      { <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1992	2109	
==>s)
    and $class=ref($class);

    bless($self,$class);
}

sub YYParse {
    my($self)=shift;
    my($retval) <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1923	2032	
==>s)
    and $class=ref($class);

    bless($self,$class);
}

sub YYParse {
    my($self)=shift;
    my($retval) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649081	649309	
==>\n    {{\@1}} = pmc_type_p(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649844	650072	
==>\n    {{\@1}} = pmc_type_p(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	23274	23393	
==>@opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, @{ $expr1->[1] };
    my $lb <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054465	1054561	
==>ull global.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055592	1055688	
==>ull global.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, { <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	473	568	
==>re, because we need the result now.
    $cc = $conf->options->get('cc') if defined $conf->option <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742744	742851	
==>/ops/set.ops\"\n  {{\@1}} = string_from_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743510	743617	
==>/ops/set.ops\"\n  {{\@1}} = string_from_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9743	9851	
==>~~~~~~~~~~~~~~~~~~~~~
sub esc {
  if(defined wantarray) {
    if(wantarray) {
      @_ = splice @_; # break a <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	6518	6606	
==>spool -lcomdlg32 -ladvapi32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid -lws2_32 -lmpr <==
3	/Users/nnunley/parrot/config/init/hints/msys.pm	409	497	
==>spool -lcomdlg32 -ladvapi32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid -lws2_32 -lmpr <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	2781	2876	
==>ub anymore, and so Pod::Simple (et al) won't compile with
constant-folding.


=head1 GUTS

Doing <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1503	1597	
==>$addr;
}

=item C<expr_offset($offset)>

Returns the C code for C<OFFSET($offset)>. Called by C <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	19171	19290	
==>p_up traversal.\n",
   $merge ? (" Merge mode on\n") : (),
   $nixx  ? (" Nix-X mode on\n") : (),
  ;    
  

  my($i, $ <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	7545	7658	
==>le Coverage Summary");
    print OUT qq(
            <i>You may click on a percentage to see line-by-line detail</ <==
3	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	2776	2961	
==>lf->{table}{$symb};
            return $defn;
        }
        else {
            return undef;
        }
    }

    sub Insert {
        my $self = shift;
        my ( $symb, <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	26565	26672	
==>t if exists $Known_formatting_codes{$f} or $f eq '0' or $f eq '1';
      DEBUG > 2 and print "  Can't fall b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818134	818229	
==>/* these 2 opcodes change the register base pointer\n   * {{=0,+=1}} reloads cached base pointer <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408228	408338	
==>],
                  "BODY" => "#line 540 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_connect(interpreter, {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409127	409237	
==>],
                  "BODY" => "#line 540 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_connect(interpreter, {{ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	12520	12610	
==>sa180\f2\fs%s\ul\sbasedon0 \snext0 pod-head4;}
}

END

   $_[0]->codeblock_halfpoint_size() <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	12110	12223	
==>y,
  </p>
    
  <pre class="indent2">$ make smoke
</pre>
    
  <p>
    should suffice. To test the languages tha <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	6591	6687	
==>grep { ! defined($defined_in{$_}) } @symbols;
    my @internal_symbols = sort grep { defined($def <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	14769	14926	
==>->[$i] =~ /^\((.+)\*\)&(.+)$/) {
                $temp[$i] = [ $1, $2 ];
                $args->[$i] = "&arg$i";
            }
        }
        my $call_para <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630599	630702	
==>,\n            \"Class '%Ss' not found\", readable_name(interpreter, class));\n    {{\@1}} = pmc_new(int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631589	631692	
==>,\n            \"Class '%Ss' not found\", readable_name(interpreter, class));\n    {{\@1}} = pmc_new(int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528541	528680	
==>"
                            ],
                  "BODY" => "#line 838 \"src/ops/math.ops\"\n  {{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529423	529562	
==>"
                            ],
                  "BODY" => "#line 838 \"src/ops/math.ops\"\n  {{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	530305	530444	
==>"
                            ],
                  "BODY" => "#line 838 \"src/ops/math.ops\"\n  {{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	1727	1823	
==>/usr/local/include -I/opt/local/include -pipe -fno-common -Wno-long-double  -I /opt/local/include <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1115	1211	
==>/usr/local/include -I/opt/local/include -pipe -fno-common -Wno-long-double  -I /opt/local/include <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1119	1215	
==>/usr/local/include -I/opt/local/include -pipe -fno-common -Wno-long-double  -I /opt/local/include <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7830	7941	
==>nt "failed"
          match_end:
        .end\n);
}
=back

=head1 AUTHOR

Patrick R. Michaud, pmichaud@pobox.com <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	4602	4701	
==>$self->read_ops($_, $nolines) for @{$files};

    # FILE holds a space separated list of opsfile nam <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	395942	396110	
==>i",
                              "i"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397022	397190	
==>i",
                              "i"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3119	3238	
==>main
                   'program - only to SUB1.
' Exit tests
sub mysub(b,c)
	print "Print me"
	exit sub
	print "Don't p <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17086	17205	
==>main
                   'program - only to SUB1.
' Exit tests
sub mysub(b,c)
	print "Print me"
	exit sub
	print "Don't p <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21221	21318	
==>do ' . $self->{"code"} . ';
		' . ($self->{"lookahead"}<0?'if':'unless') . ' (defined $_tok)
		{'. <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1415	1515	
==>..access $token->tagname...
    
    }
  }

(Also see L<Pod::Simple::PullParser>)

=head1 DESCRIPTION <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	9275	9374	
==>od-enough check that it's good as an XML Name symbol:
      Carp::croak "\"$new_code\" isn't a valid <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10539	10638	
==>od-enough check that it's good as an XML Name symbol:
      Carp::croak "\"$new_code\" isn't a valid <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	4537	4646	
==>bels()>

Returns the labels.

=cut

sub labels
{
    my $self = shift;

    return @{$self->{LABELS}};
}

=ite <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	461	561	
==>me/parrot/include';

my @files = qw(
    include/parrot/cclass.h
    include/parrot/core_pmcs.h
    i <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	3760	3852	
==>ithin the core's init function.
C<$base_suffix> is the same as for C<ops_addr_decl()>.

=back <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	1059	1223	
==>$self = bless {
    BLOCK     => $block,

    KIND      => 'if',
    LEFT      => $left,
    OP        => $op,
    RIGHT     => $right,

    CONTENT   => [ ]
  }, $c <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	2280	2391	
==>+;
		unless ($type[PREV] eq "STMT") {
			#print CODE "set .LINE, $sourceline\n";
			debug() if $debug;
		}
	}
	f <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	15515	15608	
==>ilename'} || 'Pod input', $line, $complaint;
}

sub _complain_errata {
  my($self,$line,$compl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2535	2634	
==>start_element({ Name => 'op', Attributes => { kind => 'infix', name => $self->op } });
    $self->le <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2412	2511	
==>start_element({ Name => 'op', Attributes => { kind => 'infix', name => $self->op } });
    $self->le <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12667	12761	
==>) =~ /\AParse::RecDescent::Error/
	    && $items[0]->{commitonly} )
	{
		Parse::RecDescent::_wa <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	43392	43514	
==>teresting.
        next;
      }

      DEBUG > 1 and print "Ogling E<$content>\n";

      $charnum  = Pod::Escapes::e2char <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29494	29603	
==>OADREG} in rule " .
				"$rule->{'name'}\n";
		}

		# Now call pre_load and append code that it generates.
		m <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9926	10020	
==>path_is_file($path)>

Returns whether the specified relative path is a file.

=cut

sub relativ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8375	8526	
==>tack[-1][0], then ";

                $$check eq 'ERROR'
            or  do {
#DBG>				$debug & 0x04
#DBG>			and	print STDERR 
#DBG>				    "go to <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7995	8140	
==>tack[-1][0], then ";

                $$check eq 'ERROR'
            or  do {
#DBG>				$debug & 0x04
#DBG>			and	print STDERR 
#DBG>				    "go to <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	20273	20372	
==>f ($opcode eq 'JUMP_IF_TRUE') {
	print "\t\t$cmt\n";
	$code_l++;
	$cmt ="\t\t# $opcode\t $rest";
	if <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10798	10901	
==>dparen { 0 }
sub Regex::Ops::Tree::seq::render {
    my $op = shift;
    return join('', map { $_->rende <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1804	1906	
==>_label, %options) = @_;

    $options{state} ||= global_state();

    my $trees = expr_to_tree($expr, $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	24279	24412	
==>ing that the treelet is now formatless.\n";
    return 0;
  }
  return 1;
}

# . . . . . . . . . . . . . . . . . . . . . . . . . . . . <==
3	/Users/nnunley/parrot/lib/Test/More.pm	7426	7548	
==>ultimate_answer(), 42,          "Meaning of Life" );

    # $foo isn't empty
    isnt( $foo, '',     "Got some foo" );

are <==
3	/Users/nnunley/parrot/lib/Test/More.pm	5138	5235	
==>mes

By convention, each test is assigned a number in order.  This is
largely done automatically f <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2926	3032	
==>sub YYSemval {
	my($self)=shift;
	my($index)= $_[0] - ${$$self{DOTPOS}} - 1;

		$index < 0
	and	-$inde <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2784	2885	
==>sub YYSemval {
	my($self)=shift;
	my($index)= $_[0] - ${$$self{DOTPOS}} - 1;

		$index < 0
	and	-$inde <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	31213	31314	
==>ts are optional. If the escape characters are not specified,
every delimiter is escaped with a backsla <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547650	547915	
==>S" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 631,
                  "ARGS" => [ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1896	1995	
==>ub start_over_text    { ++$_[0]{'Indent'} }
sub start_over_block   { ++$_[0]{'Indent'} }

sub   end_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1464	1563	
==>ub start_over_text    { ++$_[0]{'Indent'} }
sub start_over_block   { ++$_[0]{'Indent'} }

sub   end_ <==
3	/Users/nnunley/parrot/config/init/defaults.pm	1957	2069	
==>Win32 might use "Link".
        # Perl5's Configure doesn't distinguish linking from loading, so
        # make a <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9229	9334	
==>->normal_halfpoint_size);
        DEBUG and print "Indenting over $indent_stack[-1] twips.\n";
        $se <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	544	641	
==>steps.

=head2 Functions

=over 4

=cut

package Parrot::Configure::Step;

use strict;
use warning <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13395	13514	
==>, in case its the peer of a continuation
      # we are about to introduce.
      #

      my $peer_block = $self->pop_b <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	130	228	
==>ORT_ATTRS);
$VERSION = '2.02';
BEGIN {
  @ISA = ('Pod::Simple');
  *DEBUG = \&Pod::Simple::DEBUG un <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	131	229	
==>ORT_ATTRS);
$VERSION = '2.02';
BEGIN {
  @ISA = ('Pod::Simple');
  *DEBUG = \&Pod::Simple::DEBUG un <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31991	32109	
==>$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $parameter <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33568	33686	
==>$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $parameter <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40625	40743	
==>$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $parameter <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	23026	23129	
==>ignore'}, @$curr_open) {
        DEBUG > 1 and print "Not firing any event for this =end $content becaus <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	5873	5967	
==>>can("run_core_func_decl")) {
    my $run_core_func = $trans->run_core_func_decl($base);
    pr <==
3	/Users/nnunley/parrot/config/inter/shlibs.pm	862	955	
==>ed = $conf->options->get('cc_shared');
    $cc_shared = integrate($conf->data->get('cc_shared' <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	7160	7266	
==>e (Str $todo?, Str $got?, Str $expected?, Bool $negate?) returns Bool {
    if ($todo) {
        Test::diag <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	668	771	
==>make the included
# text under the same copyright as the Parse::Yapp module itself.
#
# This notice s <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	649	749	
==>make the included
# text under the same copyright as the Parse::Yapp module itself.
#
# This notice s <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8459	8573	
==>reg = shift;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the store.
	# Otherwise <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6279	6393	
==>reg = shift;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the store.
	# Otherwise <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5194	5308	
==>reg = shift;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the store.
	# Otherwise <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	311520	311651	
==>er,&interpreter->pmc_reg, -1, NULL);\n#endif\n    }\n    {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719941	720030	
==>printf_c(interpreter, \"%.12g\", (double){{\@2}});\n  PIO_putps(interpreter, io, s);\n  if <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721141	721230	
==>printf_c(interpreter, \"%.12g\", (double){{\@2}});\n  PIO_putps(interpreter, io, s);\n  if <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	336	440	
==>h to your Parrot directory as the only\n",
        "argument. The XML file will be written to the standar <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	5643	5784	
==>nt;
                next;
            }
        }

        filter_gcov($gcov_file);
    }
}

write_file_coverage_summary();
write_function_cov <==
3	/Users/nnunley/parrot/Configure.pl	9779	9878	
==>:config_pm
);

my $conf = Parrot::Configure->new;
{
    # XXX $Parrot::Configure::Step::conf is a te <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	15278	15415	
==>($_, shift(@fails));
        push @ibacks, $iback;
        push @iops, \@ops;
    }

    my @ops;
    for my $i (0..$#args) {
        push <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	638	733	
==>ock));
  confess "Type (" . ref($type) . ") is not!"  unless UNIVERSAL::isa($type, qw(Jako::Cons <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	629	722	
==>ock));
  confess "Type (". ref($type) . ") is not!" unless UNIVERSAL::isa($type, qw(Jako::Cons <==
3	/Users/nnunley/parrot/config/inter/charset.pm	721	847	
==>et')
        || join(' ', grep { defined $_ } @charset);

    if ($conf->options->get('ask')) {
        print <<"END";


The fo <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15556	15643	
==>and 7f-ff.
    $x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16735	16822	
==>and 7f-ff.
    $x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279738	280049	
==>2}} < {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	280593	280904	
==>2}} < {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	281448	281759	
==>2}} < {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
3	/Users/nnunley/parrot/examples/benchmarks/fib.pl	465	565	
==>}
my $N = shift || 28;

print "fib($N) = ", fib($N), "\n";

=head1 SEE ALSO

F<examples/benchmarks/fi <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	822	912	
==>LDFLAGS = qq[-L/opt/local/lib -L/usr/local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS = qq[ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	826	916	
==>LDFLAGS = qq[-L/opt/local/lib -L/usr/local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS = qq[ <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	4484	4623	
==>sif ($description =~ /$verbose_step/) {
                $self->options->set(verbose => 2);
            }
        }

        # XXX cc_build u <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5506	5600	
==>re_finish($base)>

Returns the C code following the run core function.

=cut

sub run_core_fini <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3842	3936	
==>re_finish($base)>

Returns the C code following the run core function.

=cut

sub run_core_fini <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	1159	1307	
==>figure::Data> object.

=cut

sub new
{
    my $class = shift;

    my $self = {
        c        => {},
        triggers => {},
    };

    bless $se <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557767	557865	
==>code_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next = {{^+3}};\n  STRING *meth;\n\n  objec <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559151	559249	
==>code_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next = {{^+3}};\n  STRING *meth;\n\n  objec <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	15109	15330	
==>per_mmd } **\n";
                    push @{ $self->{super_mmd} },
                        { $pname => $super_mmd,
                          'meth' => $meth};
                }
                last;
            }
        } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450747	450914	
==>",
                              "p"
                            ],
                  "BODY" => "#line 200 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}}->vtable->absolute(i <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	10032	10128	
==>=5
T=myfunc(z)
print z

' Basic Hello
a$="Hello"
print a$

' Simplest function, return 10
functio <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	30320	30430	
==>= @_;

    $pack = $pack || $self->exported_to || $self->caller($Level);
    return 0 unless $pack;

    no str <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	1706	1810	
==>($cur=~/[Rr]/ and $next=~/[Ee]/ and $afternext=~/[Mm]/ ) ) {	# Comments
		append;
		fetch;
		while($cur n <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2261	2390	
==>ntry on compile
        $@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $retval
}

sub YYData {
	my($self) <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2178	2297	
==>ntry on compile
        $@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $retval
}

sub YYData {
	my($self) <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	17211	17315	
==>t takes the function
   signature for a C function we want to call and returns a pointer
   to a function <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	2000	2127	
==>f ( $path )
    {
        $path = join('/', $path, $self->{INDEX_PATH});
    }
    else
    {
        $path = $self->{INDEX_PATH <==
3	/Users/nnunley/parrot/examples/benchmarks/oo4.pl	16	127	
==>trict;

my $o = new Foo();
for my $i (1 .. 500000) {
	$o->[0] = $i;
	$o->[1] = $i;
}
print $o->[0], "\n";

packa <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	1579	1668	
==>, 'docs/porting_intro.pod'),
			$self->new_item('', 'docs/debug.pod'),
			$self->new_item( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	579	740	
==>OCK     => $block,

    PREFIX    => $prefix,
    KIND      => 'while',
    LEFT      => $left,
    OP        => $op,
    RIGHT     => $right,

    CONTENT   => [ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43239	43371	
==>'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 202,
			'fu <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3002	3110	
==>1;

		$index < 0
	and	-$index <= @{$$self{STACK}}
	and	return $$self{STACK}[$index][1];

	undef;	#Inval <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2858	2960	
==>1;

		$index < 0
	and	-$index <= @{$$self{STACK}}
	and	return $$self{STACK}[$index][1];

	undef;	#Inval <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1106	1213	
==>piler) = @_;

  my $left  = $self->left->value;
  my $right = $self->right->compile($compiler);

  if ($self <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015051	1015142	
==>({{\@2}});\n  {{\@1}} = string_make(interpreter, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=3}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015875	1015966	
==>({{\@2}});\n  {{\@1}} = string_make(interpreter, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=3}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853428	853717	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854210	854499	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAG <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16498	16611	
==>2,
			'functioncall' => 31,
			'tableconstructor' => 32,
			'var' => 35,
			'_field_plus' => 93,
			'field' = <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	11381	11524	
==>($min, $max, $greedy, $R) = @{ $op->{args} };
    my $base = $R->render();
    $base = "(?:$base)" if $R->needparen();
    if ($min == 0 && $max <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	256	372	
==>x->global_state();
}

sub init_context {
}

# Convert "x%<foo>y" to
#   print "x"
#   print foo
#   print "y"
#
sub d <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054404	1054500	
==>\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to get null global.\");\n\n    next = {{^+4} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055531	1055627	
==>\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to get null global.\");\n\n    next = {{^+4} <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7510	7666	
==>[0-9]+\-([0-9]+)$/
                or  die "In line rule name '$lhs' ill formed: ".
                        "report it as a BUG.\n";
                $$dot <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7165	7318	
==>[0-9]+\-([0-9]+)$/
                or  die "In line rule name '$lhs' ill formed: ".
                        "report it as a BUG.\n";
                $$dot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	310150	310251	
==>REAK;\n        interpreter->pdb->state |= PDB_STOPPED;\n        interpreter->pdb->cur_opcode = (opcode <==
3	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	2028	2183	
==>n" if !@c;

    print '    ';
    my $i;
    for (@c) {
        printf "0x%02x", ord($_);
        ++$i;
        print ', ', if ($i < scalar(@c));
        pr <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	7460	7552	
==>ions concerning either
the merchantability of this software or the suitability of this
softwa <==
3	/Users/nnunley/parrot/lib/Test/More.pm	25805	25941	
==>ls => [ $this, $that ] }) );
    }
    else {			       		# both references
        local @Data_Stack = ();
        if( _deep_check($this, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118858	119141	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	119712	119995	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120567	120850	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490783	491024	
==>h.ops\"\n  {{\@1}}++;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	491404	491645	
==>h.ops\"\n  {{\@1}}++;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	503	614	
==>map {;
   m/^([-A-Za-z]+)=(\w[^\=]*)$/s or die "what's <$_>?";
   ( $1,  "{\\$2\n",   "/$1",  "}" );
 } @_;
}

m <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4439	4604	
==>\s*_Parse\s*$/
        	and     do {
                	s/^#DBG>//;
                	push(@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval joi <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4217	4373	
==>\s*_Parse\s*$/
        	and     do {
                	s/^#DBG>//;
                	push(@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval joi <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	29078	29173	
==>eneral behaviour in scalar and void contexts

In a scalar context, the extracted string is retur <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828729	828820	
==>rong\");\n  if (entry->entry_type != STACK_ENTRY_PMC) {\n    internal_exception(ERROR_BAD_ST <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829797	829888	
==>rong\");\n  if (entry->entry_type != STACK_ENTRY_PMC) {\n    internal_exception(ERROR_BAD_ST <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81490	81910	
==>DIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 102,
                  "ARGS" => [
                              "p",
                              "p",
                              "s"
                            ],
                  "BODY" => <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	5065	5261	
==>od");
        }
        else {
            $pre = $pst = $cmt = $sel = '';
            if( defined $refs{$name} ){
                $pre = "\\(";
                $pst = ")";
                $cmt = " <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	1738	1843	
==>KAGE__,
    " and subclasses, not parse_lines";
}

sub parse_line {
  use Carp ();
  Carp::croak "Use set_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	410495	410790	
==>end",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411387	411682	
==>end",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	306195	306434	
==>on",
                  "CODE" => 356,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 1012 \"src/ops/cmp.ops\"\n  if (!{{\ <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	11732	11841	
==>ator, op1

outer_loop:
    unless iter1 goto outer_done
    $P1 = shift iter1
 
    iter2 = new .Iterator, op2 <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2168	2274	
==>lt>libnameE<gt>.h if his object
represents a named library.

=cut

sub write_all_files {
    my $self = shi <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	5201	5304	
==>md;
   if (defined $Parrot::Revision::svn_entries 
            && $Parrot::Revision::svn_entries =~ m/\. <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1977	2112	
==>ions->get('ask')) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    # if '--version' r <==
3	/Users/nnunley/parrot/config/inter/make.pm	1851	1986	
==>ions->get('ask')) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    # if '--version' r <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1991	2126	
==>ions->get('ask')) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    # if '--version' r <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2274	2369	
==>r_num} = ${STEMP0}

# Decrement stack height.
dec stack_depth
PIR
		$pir =~ s/\$register_num/$re <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3526	3621	
==>r_num} = ${STEMP0}

# Decrement stack height.
dec stack_depth
PIR
		$pir =~ s/\$register_num/$re <==
3	/Users/nnunley/parrot/config/inter/libparrot.pm	61	154	
==>nfig/inter/libparrot.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544147	544262	
==>TVAL gcd = 0;\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545483	545598	
==>TVAL gcd = 0;\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546819	546934	
==>TVAL gcd = 0;\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029885	1030073	
==>rot_sleep_on_event(interpreter, {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030727	1030915	
==>rot_sleep_on_event(interpreter, {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	2123	2250	
==>type_map{$t} ;
    return $t;
}
sub parse_dis
{
    my @d = @_;
    my ($dir1, $dir2);
    for (@d) {
	if (/^\[/) {
	    if ($di <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540450	540555	
==>\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541702	541807	
==>\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542954	543059	
==>\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}} <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	289	404	
==>S	= ( ALL => [ qw(
				&extract_delimited
				&extract_bracketed
				&extract_quotelike
				&extract_codeblock
				& <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	110	203	
==>0:02:00.179448Z bernhard  $

=pod

=head1 NAME

Parrot::Configure::Data - Configuration data c <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	7692	7803	
==>ith four types of elements:
    struct( s => '$', a => '@', h => '%', c => 'My_Other_Class' );

    $obj = new M <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2373	2470	
==>rint "Wrong"
if 5>5 then print "Wrong" else print "Ok"
if 4>5 then print "Wrong" else print "OK"
i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669532	669855	
==>i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 749,
                  "ARGS" => [
                              "p",
                              "nc"
                            ],
                  "BODY" => "#line 410 \"src/op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557237	557386	
==>DDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558620	558769	
==>DDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560004	560153	
==>DDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13200	13319	
==>iness
      # seeing a close-brace.
      #

      $self->SYNTAX_ERROR("Closing brace without open block.")
        unle <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352271	352360	
==>Y" => "#line 195 \"src/ops/io.ops\"\n  PIO_printf(interpreter, \"%f\", (double){{\@1}});\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352929	353018	
==>Y" => "#line 195 \"src/ops/io.ops\"\n  PIO_printf(interpreter, \"%f\", (double){{\@1}});\n <==
3	/Users/nnunley/parrot/config/inter/progs.pm	2846	2937	
==>s = integrate($linkflags, $conf->options->get('linkflags'));
    $linkflags = prompt("And yo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955323	955498	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "encodingname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956134	956309	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "encodingname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6617	6727	
==>$n";1], -2 # delete group $n!;
}

sub output_atend {
    my ($self, $failLabel) = @_;
    my $fail = $self->out <==
3	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	15	97	
==>$Id: /parrot/languages/BASIC/interpreter/basic.pl 11512 2005-10-12T02:11:40.290517Z <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	14891	15014	
==>' => 48
		}
	},
	{#State 31
		DEFAULT => -40,
		GOTOS => {
			'classpieces' => 51
		}
	},
	{#State 32
		DEFAULT => -40,
		GO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63178	63268	
==>ODY" => "#line 964 \"src/ops/core.ops\"\n  PARROT_ERRORS_off(interpreter, {{\@1}});\n  {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63824	63914	
==>ODY" => "#line 964 \"src/ops/core.ops\"\n  PARROT_ERRORS_off(interpreter, {{\@1}});\n  {{+= <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	16217	16323	
==>*', $cmt);
}
sub BINARY_FLOOR_DIVIDE
{
    my ($n, $c, $cmt) = @_;
    binary('//', $cmt);
}
sub BINARY_DIV <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7629	7855	
==>t as a BUG.\n";
                $$dotpos = $1;
            };

            @sempar =       $$dotpos
                        ?   map { $$_[1] } @$stack[ -$$dotpos .. -1 ]
                        :   ();

            $sem <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7282	7500	
==>t as a BUG.\n";
                $$dotpos = $1;
            };

            @sempar =       $$dotpos
                        ?   map { $$_[1] } @$stack[ -$$dotpos .. -1 ]
                        :   ();

            $sem <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3031	3132	
==>Pod::Simple ();

And this:

  use Pod::Simple::Debug (\$debug_level,0);  # or some integer

is basical <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1351	1459	
==>onsequences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $self->set_result('ye <==
3	/Users/nnunley/parrot/config/inter/make.pm	1172	1280	
==>onsequences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $self->set_result('ye <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1348	1456	
==>onsequences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $self->set_result('ye <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51796	51912	
==>\n  else         { Parrot_clear_trace(interpreter, PARROT_ALL_TRACE_FLAGS); }\n  {{=0,+=2}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52579	52695	
==>\n  else         { Parrot_clear_trace(interpreter, PARROT_ALL_TRACE_FLAGS); }\n  {{=0,+=2}};\n",
                  "L <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10611	10705	
==>onst int ELEMENT_TYPE_BOOLEAN = 0x02
	.const int ELEMENT_TYPE_CHAR = 0x03
	.const int ELEMENT_T <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	3091	3269	
==>e && /^FILE : '(.*)'$/) {
            $file = $1;
            next;
        }
        
        # skip anything between files.
        next unless $file;
        
        # beginni <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23437	23540	
==>}}) {
    my $temp = $self->_generate($node->{children}[$_]);
    my $label = $self->_gensym();
    $sel <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23899	24002	
==>}}) {
    my $temp = $self->_generate($node->{children}[$_]);
    my $label = $self->_gensym();
    $sel <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	605	731	
==>',
    isinstance => 's',
    ord => 's',
);

my %builtins = (
    AssertionError => 1,
    bool => 1,
    complex => 1,
    ca <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11002	11094	
==>, $1/eg;
        $it =~ s/([^\._abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ012345678 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4353	4443	
==>, $1/eg;
      $it =~ s/([^\._abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ012345678 <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	6326	6431	
==>nless defined $d and length $d;
    Carp::croak "\"$d\" isn't a valid directive name"
     unless $d =~ m/ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	7120	7225	
==>nless defined $d and length $d;
    Carp::croak "\"$d\" isn't a valid directive name"
     unless $d =~ m/ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7398	7490	
==>p);

  $self->_add_inst('', 'set', [$list,$list.'[1]']);
  $self->_add_inst('', 'typeof', [$t <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6520	6661	
==>ct > 0
            and do {        #shift

#DBG>				$debug & 0x04
#DBG>			and	print STDERR "Shift and go to state $act.\n";

					$$errs <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6217	6352	
==>ct > 0
            and do {        #shift

#DBG>				$debug & 0x04
#DBG>			and	print STDERR "Shift and go to state $act.\n";

					$$errs <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	2247	2358	
==>ons->{PACKAGE} .= "::" . $self->name;
#  }
#  else {
#    $options->{PACKAGE} = $self->name;
#  }

  return $sel <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813760	813971	
==>18,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 557 \"src/ops/set.ops\"\n  {{\@1}} = NULL;\n  {{+=2}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1248	1345	
==>_file($out_f), $output, $desc );
        $self->{builder}->diag("'$cmd' failed with exit code $exi <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1289	1386	
==>_file($out_f), $output, $desc );
        $self->{builder}->diag("'$cmd' failed with exit code $exi <==
3	/Users/nnunley/parrot/config/auto/funcptr.pm	485	594	
==>unction pointer casts';

@args = qw(verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $jitcapable = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841648	841900	
==>erpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842412	842664	
==>erpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
3	/Users/nnunley/parrot/examples/benchmarks/addit.pl	451	575	
==>ult (21001097.97).

=cut

use strict;
sub varargs_adder {
    my $sum = 0;
    for (my $a = $#_; $a >= 0; --$a) {
        $su <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630571	630670	
==>(interpreter, NULL, NO_CLASS,\n            \"Class '%Ss' not found\", readable_name(interpreter, cla <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631561	631660	
==>(interpreter, NULL, NO_CLASS,\n            \"Class '%Ss' not found\", readable_name(interpreter, cla <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5792	5881	
==>$result, 0.0
	branch EQ_${eqnum}_end
EQ_${eqnum}_ok: set $result, 1.0
EQ_${eqnum}_end: noo <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7087	7189	
==>DONE_$label"]);

  my $copy = $self->_new_pair;

  $self->_add_inst('', 'set', [$head, $copy]);

  # ma <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10479	10568	
==>ncat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
goto PRE_CALL_${CURIC} <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11883	11972	
==>ncat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
goto PRE_CALL_${CURIC} <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5337	5465	
==>ist of interfaces */
    "",     /* space-separated list of classes */
    "",     /* class */
    "",     /* mro */

    /* Vtab <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	9360	9466	
==>" isn't a valid element name"
        if $new_code =~
          m/[\x00-\x2C\x2F\x39\x3B-\x40\x5B-\x5E\x60\ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10624	10730	
==>" isn't a valid element name"
        if $new_code =~
          m/[\x00-\x2C\x2F\x39\x3B-\x40\x5B-\x5E\x60\ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	8403	8540	
==>ra';

            DEBUG > 1 and printf "    item-* before %s(%s) %s keepn'd.\n",
              $to_unget[-1]->type,
              $to_unge <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	4609	4704	
==>ontext name="string_interp" attribute="String Interp" lineEndContext="#pop">
          <HlCStrin <==
3	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	498	615	
==>N_SOURCE=500';
    }
    $conf->data->set(ccflags => $ccflags);

    my $libs = $conf->data->get('libs');
    if ($lib <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	1193	1304	
==>ermine parameter list structure, one of:
    #   struct( class => [ element-list ])
    #   struct( class => { e <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	4331	4441	
==>e};
    if ($value =~ /^[-+]?\d+$/) {
      $self->_add_inst ('', 'new',[$return,'.Integer']);
      $self->_ad <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	36379	36501	
==>&_op_char_lt_p,
  'char>?'           => \&_op_char_gt_p,
  'char<=?'          => \&_op_char_le_p,
  'char>=?'          => \ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157101	157398	
==>FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 190,
                  "AR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133336	133619	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134116	134399	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514036	514179	
==>"
                            ],
                  "BODY" => "#line 708 \"src/ops/math.ops\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514916	515059	
==>"
                            ],
                  "BODY" => "#line 708 \"src/ops/math.ops\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515796	515939	
==>"
                            ],
                  "BODY" => "#line 708 \"src/ops/math.ops\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544133	544245	
==>ath.ops\"\n INTVAL gcd = 0;\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545469	545581	
==>ath.ops\"\n INTVAL gcd = 0;\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546805	546917	
==>ath.ops\"\n INTVAL gcd = 0;\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	15624	15756	
==>args
    $S2 = typeof $P2
    if $S2 == 'String' goto bad_args
    goto got_args
  bad_args:
    %% DOMAIN_ERROR %%
  got_args:
END_P <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2215	2309	
==>order=0 src="../resources/up.gif"></a></h2>\n\n) . $index_html;
	}
	
	return $index_html;
}

=i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2883	2970	
==>left_type, 'Jako::Construct::Type::Integer');
  $self->SYNTAX_ERROR("Can only do bitwise <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	1933	2021	
==>ual -Wwrite-strings -Waggregate-return -Winline -W -Wno-unused -Wsign-compare -Wformat-no <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1298	1386	
==>ual -Wwrite-strings -Waggregate-return -Winline -W -Wno-unused -Wsign-compare -Wformat-no <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1302	1390	
==>ual -Wwrite-strings -Waggregate-return -Winline -W -Wno-unused -Wsign-compare -Wformat-no <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093658	1093785	
==>BLE_morph(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094461	1094588	
==>BLE_morph(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	678	793	
==>t();
    return $self;
}

sub init {
    my ($self, @args) = @_;
    $self->{_markers} = {};
    $self->{_temp_int_c <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14817	14911	
==>@@@@@@@@@@@@@@@@@@
#
#  Methods that actually do work at parse-time:

sub _handle_element_start <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3603	3695	
==>and
          $string =~ m/(^|^.*?[^\\])\$((([A-Za-z][A-Za-z0-9_]*)\b)|({[A-Za-z][A-Za-z0-9_] <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1991	2081	
==>and
        $string =~ m/(^|^.*?[^\\])\$((([A-Za-z][A-Za-z0-9_]*)\b)|({[A-Za-z][A-Za-z0-9_] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579052	579303	
==>61,
                  "ARGS" => [
                              "p",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 289 \"src/ops/object.ops\"\n  PMC *class = Parro <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	19932	20041	
==>that need a symbol export list.

sub gen_def {
    my ($include, $pmcs) = @_;

    my ($pmcfilename, $pmcname) <==
3	/Users/nnunley/parrot/lib/Test/More.pm	5726	5829	
==>you're not ok.

The basic purpose of this module is to print out either "ok #" or "not
ok #" depending o <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3680	3824	
==>'} || '') =~ m/^([a-fA-F0-9]{4})$/s ? hex($1)
                                      # yes, tolerate even more hex!
    : '1033'
  );

  $new->hea <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	2089	2196	
==>CLASS_NEWLINE
    $ret |= 0x2000 if $chr =~ /^[[:alnum:]_]$/; # CCLASS_WORD

    return $ret;
}


=item B<cr <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	16881	16972	
==>sr EVALEXPR
	bsr TRUTH
	ne I1, 1, CASE_${jump}_${incase}
ENDCASE
	$selects[-1]->{incase}=$in <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22475	22587	
==>nt(2);
  $self->_add_inst(''           ,'mod'   ,[$temp_0,$temp_0,$temp_1]);
  $self->_add_inst(''           ,'eq <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22976	23088	
==>nt(2);
  $self->_add_inst(''           ,'mod'   ,[$temp_0,$temp_0,$temp_1]);
  $self->_add_inst(''           ,'eq <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	900	1001	
==>you want to
test your program will print out an "ok" or "not ok" to indicate pass
or fail.  You do thi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044515	1044744	
==>[
                              "k",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interpr <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	11090	11208	
==>ed gain between compile time and run time
class creation, there is just a new, more standard order of events.

=head2 E <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78841	78952	
==>,
                  "BODY" => "#line 1176 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80362	80473	
==>,
                  "BODY" => "#line 1176 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpre <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	8726	8824	
==>:Ops::Tree::nop;
sub minlen { 0 }
sub maxlen { 0 }

package Regex::Ops::Tree::check;
sub minlen { $ <==
3	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	2191	2392	
==>. $line;
                if ( $line =~ $block_begin ) {
                    push @output, [ 1, q{} ];
                    $level++;
                }
            }
            push @output, [ 1, $line ] <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37493	37582	
==>if defined $::RD_TRACE;').'
		$Parse::RecDescent::lastexpected = ' . ($rule->hasleftmost($ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39896	39985	
==>if defined $::RD_TRACE;').'
		$Parse::RecDescent::lastexpected = ' . ($rule->hasleftmost($ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	34737	34855	
==>); # treelet!

          next;
        }
        if($it =~ m/^[^\/\|,\$\%\@\ \"\<\>\:\#\&\*\{\}\[\]\(\)]+(\:\:[^\/\|,\$ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2656	2765	
==>ndled by superclass?

sub kind  { return shift->{KIND};     }
sub type  { return shift->{TYPE};     }

sub nam <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2773	2871	
==>ndled by superclass?

sub kind { return shift->{KIND}; }
sub type { return shift->{TYPE}; }
sub nam <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9627	9712	
==>0,0x8d2a4c8a,/* 32 */
HH,$a,$b,$c,$d,$_[9],4,0xfffa3942,/* 33 */
HH,$d,$a,$b,$c,$_[12] <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39329	39429	
==>input-file'       => \&_op_open_input_file,
  'open-output-file'      => \&_op_open_output_file,
  'c <==
3	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1881	1971	
==>ix}\\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs
${icu_section}

[Icons]
Name <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885453	885870	
==>",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1002,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#li <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6153	6250	
==>print a$,b$

' Bubble sort cities
TRUE=1
FALSE=0
DIM A$(4)
A$(1) = "New York"
A$(2) = "Boston"
A$( <==
3	/Users/nnunley/parrot/tools/dev/manicheck.pl	574	669	
==>ber of I<missing>, I<expected> and I<extra> files, and
then any extra files are listed.

Files t <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	10042	10152	
==>extref)-$parapos,	# REMAINDER
	       );
	
matched:
	$endpos = pos($$textref);
	return (
		$startpos,    $opent <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	3297	3406	
==>.ops, for example)
        if (exists($file_line_coverage{$source_file})) {
            $source_file = "$sourc <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	10073	10178	
==>r) = @_;
    return ("my \$$var;\n");
}

sub output_rule_def {
    my ($self, $name, $L_trymatch, $L_backu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	267203	267447	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "istrue",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	7303	7407	
==>$group, $libs, $stems) = @_;

    my @sources = map { "$_$O" } @$stems;
    if (needs_build("$group$LOAD_ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7514	7618	
==>$group, $libs, $stems) = @_;

    my @sources = map { "$_$O" } @$stems;
    if (needs_build("$group$LOAD_ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4401	4502	
==>on-grouped PMCs individually
    my @ungrouped_pmcs = grep { ! exists $pmc_group->{$_} } @pmcs;
    pa <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4505	4606	
==>on-grouped PMCs individually
    my @ungrouped_pmcs = grep { ! exists $pmc_group->{$_} } @pmcs;
    pa <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	52387	52487	
==>i] || '') and UNIVERSAL::isa($lol->[$i], 'ARRAY') ) {
      _stringify_lol( $lol->[$i], $to);  # recu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352313	352501	
==>_printf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352971	353159	
==>_printf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	13017	13137	
==>r="red">$_</font>)
            } elsif ($_ =~ /^call \d+ never executed/) {
                print OUT qq($atag<font color <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1991	2102	
==>opScopeF {
    my ($parser) = @_;

    my $lex_num = shift @{ $parser->YYData->{scopef} };
    $parser->YYDa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408059	408312	
==>> 471,
                  "ARGS" => [
                              "i",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 540 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814506	814724	
==>Y" => "#line 562 \"src/ops/set.ops\"\n  {{\@1}} = 0;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5868	5972	
==>ource->relative_path_is_directory($rel_path) )
    {
        my $dir = $source->directory_with_relative_p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540555	540675	
==>}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541807	541927	
==>}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543059	543179	
==>}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16025	16121	
==>and $self->get(1)->is_assign
      and $self->get(2)->is_value
      and $self->get(3)->is_infix_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16795	16891	
==>and $self->get(1)->is_assign
      and $self->get(2)->is_value
      and $self->get(3)->is_infix_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17603	17699	
==>and $self->get(1)->is_assign
      and $self->get(2)->is_value
      and $self->get(3)->is_infix_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255798	256126	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "xor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256705	257033	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "xor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257613	257941	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "xor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	2407	2532	
==>ht fail!

END
    }

    if ($results{floatsize} == 4) {
        $conf->data->set(float4_t => 'float');
    } else {
        $ <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3127	3227	
==>pmcs.pm

package Parrot::PMC;

use strict;
use warnings;

use vars qw(@ISA %pmc_types @EXPORT_OK);

@ <==
3	/Users/nnunley/parrot/lib/Parrot/PMC.pm	71	171	
==>pmcs.pm

package Parrot::PMC;

use strict;
use warnings;

use vars qw(@ISA %pmc_types @EXPORT_OK);

@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357833	358029	
==>418,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 245 \"src/ops/io.ops\"\n  PIO_eprintf(interpreter, \"%f\", (do <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	12107	12237	
==>---------------------
        #   goto OFFSET(X)     {{+=X}}  PC' = PC + X  Used for branches
        #   goto NEXT()        {{+=S} <==
3	/Users/nnunley/parrot/lib/Test/More.pm	5623	5720	
==>functions take a name argument.  It's optional, but highly
suggested that you use it.


=head2 I'm <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576595	576901	
==>, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577607	577913	
==>, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26874	26978	
==>d( $parser, $expr );
    push @opcodes, @{ $cond->[1] };
    push @opcodes, new BranchUnlessOp( $parser <==
3	/Users/nnunley/parrot/languages/regex/test.pl	3130	3243	
==>n) = @_;
    open(PIR, ">$filename") or die "create $filename: $!";

    my $ctx = { };
    my $trees = Regex::exp <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	755	862	
==>new Hash
PIR
}

# Post translation hook.
sub post_translation() {
	# Nothing to do.
	return "";
}

# Extra s <==
3	/Users/nnunley/parrot/languages/javascript/bootstrap.pm	512	606	
==>type.__defineProperty__ = function (a,b,c,d,e) {
	};
	debug(eval(snarf('jsdefs.js')));
	debug(e <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1679	1830	
==>-$_[0]{'indent'}, "--", $_[1], "\n";
  return;
}

# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

sub _perly_escape {
  f <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	941	1037	
==>a "=head1 ..." line will give you
a start-token with the tagname of "head1", token(s) for its
con <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1369	1465	
==>a "=head1 ..." line will give you
a start-token with the tagname of "head1", token(s) for its
con <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	6322	6459	
==>bs are specific to a dir
               "^${dir}${_}/",              # SVN globs are specific to a dir
           } split( /\n/, $patterns <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4241	4346	
==>nd	return;
	}
	my($fname)=__FILE__;
	my(@drv);
	open(DRV,"<$fname") or die "Report this as a BUG: Cann <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4025	4126	
==>nd	return;
	}
	my($fname)=__FILE__;
	my(@drv);
	open(DRV,"<$fname") or die "Report this as a BUG: Cann <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	424929	425303	
==>",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 488,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	28163	28265	
==>$self,@stack) = @_;

  my($i, $treelet);
  my $start_line = $stack[0][1]{'start_line'};

  # A recursiv <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	31664	31766	
==>$self,@stack) = @_;

  my($i, $treelet);
  my $start_line = $stack[0][1]{'start_line'};

  # A recursiv <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	60574	60675	
==>not find prefix: /%s/>

A non-optional prefix was specified but wasn't found at the start of the text. <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	1040	1136	
==>ead3 Constructors

=over 4

=item C<new()>

Basic object constructor.

Accepts no arguments and r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042881	1042971	
==>Y" => "#line 125 \"src/ops/var.ops\"\n    VTABLE_set_pmc_keyed_str(interpreter, {{\@1}}, {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043778	1043868	
==>Y" => "#line 125 \"src/ops/var.ops\"\n    VTABLE_set_pmc_keyed_str(interpreter, {{\@1}}, {{ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5474	5574	
==>et', [$pair.'[0]',$item]);
      $self->_add_inst ('', 'set', [$pair.'[1]',$return]);
      $self->_a <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17025	17119	
==>et',[$pair.'[0]',$item]);
    $self->_add_inst ('', 'set',[$pair.'[1]',$return]);
    $self->_a <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6513	6604	
==>et', [$pair.'[0]',$item]);
  $self->_add_inst('', 'set', [$pair.'[1]',$return]);
  $self->_a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411642	411911	
==>" => "function",
                  "CODE" => 475,
                  "ARGS" => [
                              "i",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 552 \"src/ops/io.op <==
3	/Users/nnunley/parrot/lib/Test/More.pm	13325	13453	
==>val sometimes resets $!
        my $rslt = eval { $object->isa($class) };
        if( $@ ) {
            if( $@ =~ /^Can't call m <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	319	419	
==>lation hook.
sub pre_translation() {
	# We need to emit PIR that sets up a dummy stack.
	return <<'PI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563127	563449	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addmethod",
                  "FLAGS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564024	564346	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addmethod",
                  "FLAGS" => <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	27947	28043	
==>os>
location of the string's variable (or at index zero, if no C<pos>
position is defined).

=hea <==
3	/Users/nnunley/parrot/config/auto/signal.pm	122	218	
==>e  $

=head1 NAME

config/auto/signal.pm - Signals

=head1 DESCRIPTION

Determines some signal st <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028161	1028254	
==>);\n  }\n  next = Parrot_sleep_on_event(interpreter, (FLOATVAL) {{\@1}}, next);\n  {{=next}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029012	1029105	
==>);\n  }\n  next = Parrot_sleep_on_event(interpreter, (FLOATVAL) {{\@1}}, next);\n  {{=next}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48114	48363	
==>T_JUMP_RESTART",
                  "NAME" => "bounds",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48903	49152	
==>T_JUMP_RESTART",
                  "NAME" => "bounds",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Posix.pm	5	87	
==>: /parrot/languages/bc/lib/Parrot/Test/Bc/Posix.pm 16454 2006-02-01T20:44:27.448243 <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	2221	2342	
==>exists $contents{'contents'} )
    {
        push @contents, @{$contents{'contents'}};
    }
    
    return $self->new_it <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2974	3071	
==>{code}},<<INP1;
	\$S0 = _READLINE($filedesc)
	\$P99 = _SPLITLINE(\$S0,$sf)
	\$I0= \$P99
INP1

	# B <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32229	32359	
==>m $expected_value'"
            );
            push @$para, $para->[1]{'~orig_content'};
              # restore the bullet, blocki <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	266	374	
==>self = shift;
    my ( $count ) = @_;

    return Parrot::Test::per_test( '.pir_out', $count );
}

sub get_te <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12534	12663	
==>" => 48,
			"." => 49
		},
		DEFAULT => -10,
		GOTOS => {
			'tableconstructor' => 46,
			'args' => 43,
			'key' => 45
		} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936270	936377	
==>/string.ops\"\n  {{\@1}} = string_titlecase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937047	937154	
==>/string.ops\"\n  {{\@1}} = string_titlecase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980419	980898	
==>,
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1100,
                  "ARGS" => [
                              "i",
                              "ic",
                              "sc",
                              "ic",
                              "i"
                            ],
                  "BO <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	5662	5768	
==>f->{DEBUG};
    my @ops;
    $what = "%<rx_pos>: $what";
    foreach my $part ($what =~ /((?:\%\<\w+\>)|[^\ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	19999	20120	
==>e is
the easiest way to illustrate:

    SKIP: {
        eval { require HTML::Lint };

        skip "HTML::Lint not instal <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8772	8865	
==>and build code to pop it.
${ITEMP1} = elements ${STYPES}
dec ${ITEMP1}
${PTEMP0} = ${STYPES}[$ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7344	7437	
==>and build code to pop it.
${ITEMP1} = elements ${STYPES}
dec ${ITEMP1}
${PTEMP0} = ${STYPES}[$ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	1421	1571	
==>elf = ref $_[0] ? ref shift : shift;
    my $text = shift;
    my @contents = @_;
    
    # TODO - Items should only contain paths.
    
    die "No c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206454	206540	
==>94 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) <= {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207396	207482	
==>94 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) <= {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	513603	513900	
==>"pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 59 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514482	514779	
==>"pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 59 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515362	515659	
==>"pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 59 <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	2041	2133	
==>methods of the current PMC. PMCs default to
inheriting from 'default'. Only single inheritanc <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	17936	18069	
==>g; # XXX: overwrite anything else
            }
        }

        my $class = $all{$name};
        gen_parent_list($include, $name, \ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	40446	40556	
==>nd print "Considering this ($ell_content[0]) a man link.\n";
      } else {
        $ell->[1]{'type'}    = 'pod <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9485	9599	
==>g to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get details of method we're calling.
( <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6999	7113	
==>g to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get details of method we're calling.
( <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5555	5669	
==>g to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get details of method we're calling.
( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350991	351179	
==>printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351653	351841	
==>printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Test/More.pm	15192	15289	
==>agnostic_message is simply concatinated
together.

Handy for this sort of thing:

    ok( grep(/fo <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5778	5880	
==>ng...\n";
			} else {
				push @{$code{$seg}->{code}}, "IFBRANCH_$_:\n";
			}
			while($_=pop(@{$elsest <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18248	18350	
==>case <5
	print "Ok!"
case <10   ' Fallthrough
	print "Ok (not!)"
end select
select case h
case 1
	print <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8126	8224	
==>ng...\n";
		} else {
			push @{$code{$seg}->{code}}, "IFBRANCH_$_:\n";
		}
		while($_=pop(@{$elsest <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	2712	2816	
==>[$self], [qw(self)]);

		print OUT "}";

		close OUT
			or croak("Can't write to new module file '$module <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28084	28203	
==>pected
				   = $Parse::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = ($lastsep||"").$text;
			} <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30158	30277	
==>pected
				   = $Parse::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = ($lastsep||"").$text;
			} <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32359	32478	
==>pected
				   = $Parse::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = ($lastsep||"").$text;
			} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714777	714979	
==>T(interpreter), s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715700	715902	
==>T(interpreter), s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716645	716847	
==>T(interpreter), s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359368	359461	
==>length(interpreter, s)) {\n    PIO_putps(interpreter, PIO_STDERR(interpreter), s);\n  }\n  {{+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360116	360209	
==>length(interpreter, s)) {\n    PIO_putps(interpreter, PIO_STDERR(interpreter), s);\n  }\n  {{+ <==
3	/Users/nnunley/parrot/config/gen/config_h.pm	278	363	
==>tion
values, F<include/parrot/has_header.h> with platform-specific header
information, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	870	963	
==>:Block');
  confess "Ident is not!" if defined $ident and not UNIVERSAL::isa($ident, 'Jako::Co <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	898	991	
==>:Block');
  confess "Ident is not!" if defined $ident and not UNIVERSAL::isa($ident, 'Jako::Co <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1254	1357	
==>OR' => 'CODE', YYVERSION => '',
			 YYRULES => 'ARRAY', YYSTATES => 'ARRAY', YYDEBUG => '');
#Mandator <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1211	1312	
==>OR' => 'CODE', YYVERSION => '',
			 YYRULES => 'ARRAY', YYSTATES => 'ARRAY', YYDEBUG => '');
#Mandator <==
3	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	321	411	
==>E

tools/dev/rebuild_miniparrot.pl - Rebuild a new miniparrot distribution

=head1 SYNOPSIS <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	5852	6053	
==>/^\n//
                and $parser->YYData->{lineno}++,
                last;
            s/^\]$level\]//
                and return;
            s/^.//
                and last;
        }
    } <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	652	762	
==><", $_[1];

  foreach my $key (sort keys %{$_[2]}) {
    unless($key =~ m/^~/s) {
      next if $key eq 'start_ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5240	5363	
==>art{@next} = ();
        # Stop unless NULLABLE.
        last unless (@next && $next[0] eq '');
    }

    return Regex::Ops <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35837	35937	
==>res.  If no tests were ever run Test::Builder
will throw a warning and exit with 255.  If the test di <==
3	/Users/nnunley/parrot/lib/Test/More.pm	33908	34008	
==>res.  If no tests were ever run Test::Builder
will throw a warning and exit with 255.  If the test di <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	12879	12996	
==>ame);
        $self->_cmp_diag($got, 'ne', $dont_expect) unless $test;
        return $test;
    }

    return $self-> <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	890	1018	
==>> $lang_f" or die "Unable to open '$lang_f'"; # JMG
        binmode LANG; # JMG
        print LANG $lang_code; # JMG
        clos <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	802	930	
==>> $lang_f" or die "Unable to open '$lang_f'"; # JMG
        binmode LANG; # JMG
        print LANG $lang_code; # JMG
        clos <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	10849	11006	
==>?:.*\.ops")\s+
        {{\@1}}\s*=\s*
        {{\@2}}->vtable->
        (\w+)
        \(interpreter,
        \s*
        {{\@2}}
        \);
        \s+{{\+=\ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4290	4380	
==>P0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${DEST$push_num <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2706	2796	
==>P0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${DEST$push_num <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	3818	3961	
==>files/befunge.in' => 'languages/befunge/Makefile',
        commentType                       => '#',
        replace_slashes                   = <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	7842	7943	
==>$self->{vtable};
    # set parentname
    $const->{parentname} = $self->{class};

}

=item C<init($cla <==
3	/Users/nnunley/parrot/config/auto/format.pm	69	158	
==>/auto/format.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/format <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	8878	9016	
==>age?" if $arg->{optional};
        }
        
        push @results, $usage;
    }

    my $result = join " ", @results;
    $result = " $r <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	18311	18447	
==>f->use_numbers;
    $out   .= " # skip";
    $out   .= " $why"       if length $why;
    $out   .= "\n";

    $self->_print($out);

    r <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	7418	7522	
==>pack file $file_name: $!";

#    dump_const_table($pf);
    compile_byte_code($pf, $file_name);

    unde <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	33113	33257	
==>Slice
{
    my ($n, $c, $cmt, $sl_n) = @_;
    my ($v, $w, $vv, $ww);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $ <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	33862	34006	
==>Slice
{
    my ($n, $c, $cmt, $sl_n) = @_;
    my ($v, $w, $vv, $ww);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $ <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	34786	34930	
==>Slice
{
    my ($n, $c, $cmt, $sl_n) = @_;
    my ($v, $w, $vv, $ww);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	38774	38907	
==>ction_name = \@section_name;
          last;
        }
      }

      # Turn L<"Foo Bar"> into L</Foo Bar>
      if(!$section_name and <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61436	61536	
==>w Parse::RecDescent::Token(@components[3,2,8],
							     $lookahead,$line);
			$prod and $prod->add <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	6116	6209	
==>c op_lib_t ${bs}op_lib;

END_C

my $text = $ops->preamble($trans);
$text =~ s/\bops_addr\b/${b <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	25975	26084	
==>item L<Test/More>

=item L<Test/Builder>

=back

=cut

sub report_odd_hash {
    my $warning = shift;
    if ( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653352	653446	
==>};\n    {{\@1}} = {{\@2}}->vtable->find_method(interpreter, {{\@2}}, {{\@3}});\n    if (!{{\@1} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654513	654607	
==>};\n    {{\@1}} = {{\@2}}->vtable->find_method(interpreter, {{\@2}}, {{\@3}});\n    if (!{{\@1} <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	3614	3728	
==>ment";
}

sub output_push_reg {
    my ($self, $reg) = @_;
    return "save $reg";
}

sub output_pop_reg {
    my ( <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13718	13822	
==>12 and 103
type first
	foo as integer
	bar as string
end type
function mine (a, b, c as first)
	a=12
	b=9 <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	13317	13412	
==>w 'APLVector'
    .return (result)
.end

.sub unicode:"monadic:\u2374" :multi (APLVector) # shap <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4293	4410	
==>up}, [ "lib-$group", @$pmcs ] )
          or die "partial link of $group failed ($?)\n";
    }

    # Link non-grouped <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4397	4514	
==>up}, [ "lib-$group", @$pmcs ] )
          or die "partial link of $group failed ($?)\n";
    }

    # Link non-grouped <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	47763	47861	
==>parse("an implicit subrule", $aftererror, $line,
				"( $code )");
			my $implicit = $rule->nextimp <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	15755	15888	
==>lt accessor method for 'count'
    sub count {
        my $self = shift;
        if ( @_ ) {
            die 'count must be nonnegativ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	5506	5630	
==>->{code});
                foreach my $pos (@labels) {
                    push @Q, $labels{$stmt->{code}->{args}->[$pos]->{l <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	892	1002	
==>}
  }


  print $fh ">\n";
  $_[0]{'indent'}++;
  return;
}

sub _handle_text {
  DEBUG and print "== \"$_[1]\" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101345	101629	
==>> 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102115	102399	
==>> 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103551	103835	
==>> 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4759	4862	
==>e C code prior to the run core function.

=cut

sub run_core_func_start
{
    return <<END_C;
#if define <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3047	3150	
==>e C code prior to the run core function.

=cut

sub run_core_func_start
{
    return <<END_C;
#if define <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	11649	11740	
==>ly allow Test::More-style cmp_ok() though the following syntax:

  cmp_ok('test', &infix:<gt <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31779	31904	
==>and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcodes1, new AssignOp <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	32430	32555	
==>and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcodes1, new AssignOp <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33080	33205	
==>and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcodes1, new AssignOp <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	78	185	
==>This file was generated using Parse::Yapp version 1.05.
#
#        Don't edit this file, use source file i <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	76	181	
==>This file was generated using Parse::Yapp version 1.05.
#
#        Don't edit this file, use source file i <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	6419	6514	
==>}}(@_[0..2], "le") },
	'>=' => sub { &{$opsubs{"="}}(@_[0..2], "ge") },
	'<>' => sub { &{$opsubs <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	15878	16015	
==>self->{class} eq 'ParrotClass' ?
                'delegate' :
                'default';
        }
    }
}


=head2 add_defaulted($class_s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	1740	1842	
==>t more tokens)

    $self->{POS} = $pos;

    $self->file($self->at($pos)->file);
    $self->line($self <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	627	722	
==>1 NAME

Pod::Simple::Methody -- turn Pod::Simple events into method calls

=head1 SYNOPSIS

 req <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514091	514191	
==>Y" => "#line 708 \"src/ops/math.ops\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514971	515071	
==>Y" => "#line 708 \"src/ops/math.ops\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515851	515951	
==>Y" => "#line 708 \"src/ops/math.ops\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27926	28030	
==>f->{"lookahead"} ? '$text = $_savetext;' : '').'
			if ($Parse::RecDescent::lastexpected
			    && !$Pars <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30000	30104	
==>f->{"lookahead"} ? '$text = $_savetext;' : '').'
			if ($Parse::RecDescent::lastexpected
			    && !$Pars <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32201	32305	
==>f->{"lookahead"} ? '$text = $_savetext;' : '').'
			if ($Parse::RecDescent::lastexpected
			    && !$Pars <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686454	686596	
==>} = {{\@3}}->vtable->getprop(interpreter, {{\@3}}, {{\@2}});\n   {{+=4}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687344	687486	
==>} = {{\@3}}->vtable->getprop(interpreter, {{\@3}}, {{\@2}});\n   {{+=4}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	531	625	
==>s a basic test harness for Parrot-hosted languages.  Right
now it parameterizes the two paramet <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2950	3078	
==>_prog = join ' && ', @test_prog;
            $diag .= "'$test_prog' failed with exit code $exit_code."
                if $exit <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	2560	2673	
==>_prog = join ' && ', @test_prog;
               $diag .= "'$test_prog' failed with exit code $exit_code." if $exit <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2562	2672	
==>_prog = join ' && ', @test_prog;
            $diag .= "'$test_prog' failed with exit code $exit_code." if $exit <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74139	74248	
==>= ();
	my $reps;
	my $_savetext;
	for ($reps=0; $reps<$max;)
	{
		$_savetext = $text;
		my $prevtextlen = leng <==
3	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	2872	2974	
==>compiled_files) {
	print F "gcc -DMINIPARROT -I./include -c $_->[0] -o $_->[1]\n";
    }
    my @obj_fi <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10895	10989	
==>->render() } @{ $op->{args} });
}

sub Regex::Ops::Tree::alternate::needparen { 1 }
sub Regex:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	337186	337407	
==>"CODE" => 394,
                  "ARGS" => [
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 81 \"src/ops/io.ops\"\n  {{\@1}} = (INTVAL <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	44732	44841	
==>f->{instruction} = undef;
  $self->{regs} = undef;

  return $self;
}

1;
__END__

=head1 NAME

Scheme::Genera <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	8325	8406	
==>tfile_base.branches.html">@{[$file_branch_coverage{$source_file} ? "$file_branch_c <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7121	7217	
==>instr(6, s1$, " ")
print "Inval  (0): ", instr(4, bogus$, "t")
' instr() tests
s1$="Mixed case"
p <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18850	18946	
==>instr(6, s1$, " ")
print "Inval  (0): ", instr(4, bogus$, "t")
' instr() tests
s1$="Mixed case"
p <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	60001	60092	
==>riable is set.
Accessing C<$@-E<gt>{error}> returns one of the error diagnostics listed
belo <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	47576	47709	
==>( $_[0] );
        }
	],
	[#Rule 18
		 'stat', 7,
sub
#line 124 "Lua\lua51.yp"
{
            BuildIf( $_[0], $_[1], $_[2], $_[ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3416	3515	
==>return = $self->_save_1 ('I');
    $self->_add_inst ('', 'set', [$return,$value]);
  }
  elsif ($val <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	78097	78190	
==>und $_[0] ($what) after an unconditional <error>",$_[2])
		and
		_hint("An unconditional <erro <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	1165	1257	
==>ssigns it to the inheriting classes C<$result>
variable.  Returns the inheriting classes name <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	39675	39813	
==>berately won't work on L<...|Foo Bar>
      }


      # Now make up the link_text
      # L<Foo>     -> L<Foo|Foo>
      # L</Bar>    -> L< <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	28495	28599	
==>tor {
}

sub _op_denominator {
}

sub _op_floor {
}

sub _op_ceiling {
}

sub _op_truncate {
}

sub _op_r <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	3838	3935	
==>return_type;
  my $signature = join("", @params);
  print OUTPUT "dlfunc P2, P1, '$name', '$signat <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	4883	5000	
==>INES
      );
      unless( @{ $self->{'source_arrayref'} } ) {
        DEBUG and print "That's it for that source arr <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2132	2235	
==>eref";
}

=item C<opsarraytype()>

The ops array type is C<void *>.

=cut

sub opsarraytype
{
    return <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841713	842002	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842477	842766	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGD <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	6456	6560	
==>e::order_startset(\%start);
}

# Returns true if at most one subexpression can ever hold at a given
# poi <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	8661	8764	
==>t;
    # TODO: enforce some limitations on what a target name can be?
    delete $this->{'accept_targets <==
3	/Users/nnunley/parrot/editor/ops2vim.pl	148	246	
==>ave been globbed on non-globbing OSes
## and make sure at least one command-line parameter has been <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126621	126744	
==>@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127756	127879	
==>@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128891	129014	
==>@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9362	9480	
==>_popint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);
    if ($self->{DEBUG}) {
        my $desc = $db <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9056	9174	
==>_popint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);
    if ($self->{DEBUG}) {
        my $desc = $db <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	1584	1684	
==>oad {
	die "post_load not implemented for current stack to register mapper\n";
}

# Pre and post stor <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2379	2488	
==>parrot/src/pmc' . $PATHQUOTE . " " .
        $source;
};

sub partial_link_cmd {
    my ($target, $libs, $sour <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2174	2283	
==>parrot/src/pmc' . $PATHQUOTE . " " .
        $source;
};

sub partial_link_cmd {
    my ($target, $libs, $sour <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	1411	1510	
==>ven an expression (in this case C<$foo eq $bar>).  If it's
true, the test passed.  If it's false, it <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5827	5954	
==>";


        if  (exists($$actions{ACTIONS})) {

				defined($$token)
            or	do {
				($$token,$$value)=&$lex($se <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5551	5671	
==>";


        if  (exists($$actions{ACTIONS})) {

				defined($$token)
            or	do {
				($$token,$$value)=&$lex($se <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	32214	32312	
==>ng of $text:

		$substring = extract_delimited($text, "'", '');

	# Remove a single-quoted Pascalis <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11233	11324	
==>_short"]
${DEST0} = concat ${STEMP0}
inc stack_depth
${STEMP0} = stack_depth
${DEST0} = conc <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8419	8510	
==>_short"]
${DEST0} = concat ${STEMP0}
inc stack_depth
${STEMP0} = stack_depth
${DEST0} = conc <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9251	9351	
==>= concat ${STEMP0}
${INS} = concat "\n"

# Decrement stack height.
dec stack_depth
PIR
	}

	return $p <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6769	6869	
==>= concat ${STEMP0}
${INS} = concat "\n"

# Decrement stack height.
dec stack_depth
PIR
	}

	return $p <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	4552	4642	
==>->{fulltextlen}-length(${$_[0]->{text}})+$_[0]->{prev};
}

sub STORE
{
	die "Can't set curr <==
3	/Users/nnunley/parrot/config/auto/jit.pm	4791	4964	
==>sname.in");
            eval { cc_build(); };
            if ($@) {
                print " $@) " if $verbose;
            } else {
                if (cc_run(0) !~ /ok/ && c <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	223	395	
==>054Z coke  $
################################################################################

=head1 NAME

tools/dev/extract_file_descriptions.pl - Extract descriptions fro <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	992	1111	
==>Aborting");
  }
  
  $value = 0 unless defined $value;

  unless($value =~ m/^-?\d+$/) {
    require Carp;
    Carp::cro <==
3	/Users/nnunley/parrot/languages/converter.pl	1792	1903	
==>$lhs-$rhs]/"
		}
		| terminal
#		{[@item]}
		{ $item[1] }


terminal	: "'" /[^']*/ "'" mod(?)
#		{[@item]}
		{ q <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2962	3068	
==>nt({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
    $handler->start_element({ Name => <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3636	3742	
==>nt({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
    $handler->start_element({ Name => <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3726	3832	
==>nt({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
    $handler->start_element({ Name => <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22053	22158	
==>n::Value->new($block, $self->require_value);
        $op    = $self->require_infix_rel->text;
        $rig <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22986	23091	
==>n::Value->new($block, $self->require_value);
        $op    = $self->require_infix_rel->text;
        $rig <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24632	24737	
==>n::Value->new($block, $self->require_value);
        $op    = $self->require_infix_rel->text;
        $rig <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	513651	514089	
==>,
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 592,
                  "ARGS" => [
                              "n",
                              "n",
                              "n"
                            ],
                  "BO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419374	419705	
==>" => "function",
                  "CODE" => 482,
                  "ARGS" => [
                              "i",
                              "p",
                              "i",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 557 \"src/ <==
3	/Users/nnunley/parrot/examples/benchmarks/addit.pl	794	885	
==>er(@args);
}
print "$result\n";

=head1 SEE ALSO

F<examples/benchmarks/addit.pasm>, F<examp <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	4130	4238	
==>~~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No except <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	28040	28141	
==>rn;
  my $label     = $self->_gensym();

  $return = $self->_generate($node->{children}[1]);
  $self-> <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	7128	7226	
==>ctory with the specified name in the
directory.

=cut

sub path_for_directory_with_name
{
    my $s <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	85	177	
==>m 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/gen/makefiles.pm - Build fil <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	29666	29801	
==>tart_line'},
            "'=item' outside of any '=over'"
          );
          unshift @$paras,
            ['=over', {'start_line' => <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	7619	7738	
==>micolon     { return shift->skip('semicolon');     }
sub skip_type          { return shift->skip('type');          }

su <==
3	/Users/nnunley/parrot/languages/javascript/bootstrap.pm	70	159	
==>avaScript::Runtime;
my $context = $runtime->create_context();

$context->bind_function(
	n <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	732	829	
==>fier');
  confess("Left (" . ref($left) . ") is not Value") unless UNIVERSAL::isa($left, 'Jako::Co <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	723	820	
==>fier');
  confess("Left (" . ref($left) . ") is not Value") unless UNIVERSAL::isa($left, 'Jako::Co <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	612	709	
==>fier');
  confess("Left (" . ref($left) . ") is not Value") unless UNIVERSAL::isa($left, 'Jako::Co <==
3	/Users/nnunley/parrot/lib/File/Which.pm	556	677	
==>h_ext = ('');
if ($Is_DOSish) {
    if ($ENV{PATHEXT} and $Is_DOSish) {    # WinNT. PATHEXT might be set on Cygwin, but no <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1915	2008	
==>DEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
    # Yes, stipulate the list witho <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2018	2111	
==>DEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
    # Yes, stipulate the list witho <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009320	1009564	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compose",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010084	1010328	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compose",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	10	100	
==>t (C) 2005-2006, The Perl Foundation.
# $Id: /parrot/languages/lua/t/Parrot/Test/Lua.pm 19 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553191	553314	
==>> "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethod",
                  "FLAGS" => ":object_b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554587	554710	
==>> "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethod",
                  "FLAGS" => ":object_b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555984	556107	
==>> "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethod",
                  "FLAGS" => ":object_b <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	15897	16021	
==>$builder->diag("'$cmd' failed with exit code $exit_code")
                  if $exit_code and not $pass;

            unless( <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	18448	18572	
==>$builder->diag("'$cmd' failed with exit code $exit_code")
                  if $exit_code and not $pass;

            unless( <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	25490	25596	
==>$builder->diag("'$cmd' failed with exit code $exit_code") if $exit_code and not $pass;

            unless( <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	61855	61943	
==>>

C<extract_bracketed>, C<extract_quotelike> or C<extract_codeblock> found
a valid brack <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	11033	11128	
==>Bool :$todo, Str :$depends) returns Bool`

- `like (Str $got, Rule $expected, Str $desc?, Bool : <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	4129	4252	
==>help, '_tcl', '$help')");
    }
    
    return $code;
}

sub inline {
    my $line = shift;
    return "  pir .= \"$line\"\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	617151	617259	
==>u;\n    PMC *left, *right;\n    INTVAL lr_types;\n\n    mic = (Parrot_MIC *) cur_opcode[1];\n    left = {{\@2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083845	1084150	
==>perimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice" <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	22521	22665	
==>as<> stays the same.\n";
        } else  {
          print "   Code $was<> maps to ",
           ref($is)
            ? ( "tags ", map("$_<", @$i <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	6587	6685	
==>mpcount"} = 0;
	$self->{"opcount"} = 0;
	$prod->{"number"} = $#{$self->{"prods"}};
	return $prod;
} <==
3	/Users/nnunley/parrot/config/auto/env.pm	506	613	
==>(verbose);

sub runstep
{
    my ($self, $conf) = (shift, shift);

    my $verbose = $conf->options->get('ve <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	547	654	
==>(verbose);

sub runstep
{
    my ($self, $conf) = (shift, shift);

    my $verbose = $conf->options->get('ve <==
3	/Users/nnunley/parrot/config/auto/msvc.pm	508	615	
==>(verbose);

sub runstep
{
    my ($self, $conf) = (shift, shift);

    my $verbose = $conf->options->get('ve <==
3	/Users/nnunley/parrot/config/auto/va_ptr.pm	679	804	
==>c_run() !~ /^ok/) {
        eval { cc_build('-DVA_TYPE_PPC'); };
        if ($@ || cc_run() !~ /^ok/) {
            die "Unkno <==
3	/Users/nnunley/parrot/config/init/hints/freebsd.pm	912	1027	
==>d        => 1,
        libparrot_shared        => 'libparrot$(SHARE_EXT).$(SOVERSION)',
        libparrot_shared_ali <==
3	/Users/nnunley/parrot/config/init/hints/linux.pm	1750	1865	
==>d        => 1,
        libparrot_shared        => 'libparrot$(SHARE_EXT).$(SOVERSION)',
        libparrot_shared_ali <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	11369	11485	
==>ew 'APLVector'
    iter = new .Iterator, op1

loop:
    unless iter goto done
    $P1 = shift iter
    unshift result <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060002	1060096	
==>"#line 208 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060907	1061001	
==>"#line 208 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543610	543907	
==>> "lcm",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544945	545242	
==>> "lcm",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546281	546578	
==>> "lcm",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87878	88272	
==>=> "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 109,
                  "ARGS" => [
                              "p",
                              "p <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	8894	8992	
==>se {
            error($file, (@$source+$mismatch_at), "Ending boilerplate incorrect.\n(mismatch at <==
3	/Users/nnunley/parrot/config/init/defaults.pm	6856	6995	
==>>set(
        prefix      => $prefix,
        exec_prefix => $prefix,
        bin_dir     => $prefix . "/bin",
        lib_dir     => $prefi <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	9979	10097	
==>$parapos,     0,				# NO CLOSING TAG
		$parapos,     length($$textref)-$parapos,	# REMAINDER
	       );
	
matched:
	$en <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	9459	9586	
==>lf->use_numbers;

    if( defined $name ) {
        $name =~ s|#|\\#|g;     # # in a name can confuse Test::Harness.
        $ou <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208324	208412	
==>" => "#line 401 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209265	209353	
==>" => "#line 401 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722108	722255	
==>"
                            ],
                  "BODY" => "#line 149 \"src/ops/python.ops\"\n  STRING * const s = {{\@2}};\n  PMC * const io = {{ <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	5781	5873	
==>es in the
directory.

C<$recursive> and C<$ignore> function as specified above for C<files()> <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3415	3537	
==>\S+//;
            $conf->data->set(linkflags => $linkflags);
        }
    } elsif ($is_intel) {
        $conf->data->set( <==
3	/Users/nnunley/parrot/lib/Test/More.pm	10254	10370	
==>hat' );

    # ok( $this && $that );
    cmp_ok( $this, '&&', $that, 'this && that' );
    ...etc...

Its advantage o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082437	1082578	
==>kc"
                            ],
                  "BODY" => "#line 145 \"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= inter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083503	1083644	
==>kc"
                            ],
                  "BODY" => "#line 145 \"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= inter <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	32393	32493	
==>lobal_ops = (

#----------------------
#
# Section 4 Expressions
#
#----------------------

  'quote' <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	354	469	
==>_test_prog {
    my $self = shift;
    my ( $path_to_parrot, $path_to_language, $count ) = @_;
 
    
    my $test_p <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	372	481	
==>_test_prog {
    my $self = shift;
    my ( $path_to_parrot, $path_to_language, $count ) = @_;

    my $test_p <==
3	/Users/nnunley/parrot/config/auto/isreg.pm	730	833	
==>g => $test);
    print($test ? " (Yep) " : " (no) ") if $conf->options->get('verbose');
    $self->set_r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506551	506689	
==>,
                  "BODY" => "#line 636 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507406	507544	
==>,
                  "BODY" => "#line 636 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	508261	508399	
==>,
                  "BODY" => "#line 636 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	23110	23240	
==>ax;
						}
					}
					push @fields, $class
						? bless (\$field, $class)
						: $field;
					$firstpos = $lastpos unless defin <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	17828	17925	
==>ormat Pod as RTF

=head1 SYNOPSIS

  perl -MPod::Simple::RTF -e \
   "exit Pod::Simple::RTF->filte <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	42475	42569	
==>n_extract_tagged> to create extraction functions for specific tags 
is a good idea if those fun <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31847	31945	
==>$self->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my $parameters = $method->{pa <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33424	33522	
==>$self->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my $parameters = $method->{pa <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40481	40579	
==>$self->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my $parameters = $method->{pa <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	596	729	
==>item.

=cut

sub c_header_item
{
    my $self = shift;
    
    return $self->c_item(shift, 'headers' => [@_]);
}

=item C<c_source_it <==
3	/Users/nnunley/parrot/config/auto/headers.pm	222	323	
==>ders.

=cut

package auto::headers;

use strict;
use vars qw($description @args);

use base qw(Parrot: <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	4399	4519	
==>pmc arg

    .local string result
    result = ''

    .local pmc value
    $I0 = does arg, 'array'
    if $I0 goto print <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	593	710	
==>sub'      => { PREFIX => "_S", NEXT => 'TEST', REDO => 'THEN', LAST => 'ELSE' }, # TODO: fix these
);


#
# new()
#

s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	614	731	
==>sub'      => { PREFIX => "_S", NEXT => 'TEST', REDO => 'THEN', LAST => 'ELSE' }, # TODO: fix these
);


#
# new()
#

s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9216	9315	
==>) * 4 * $self->normal_halfpoint_size);
        DEBUG and print "Indenting over $indent_stack[-1] twi <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10363	10453	
==>f the stack.
${PTEMP3} = ${STYPES}[${ITEMP2}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP3}["reg_ty <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7747	7837	
==>f the stack.
${PTEMP3} = ${STYPES}[${ITEMP2}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP3}["reg_ty <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	5187	5293	
==>e C<hll> flag.

=back

=item 3.

A list of vtable method implementations

=item 4.

The final close C<}>

= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558026	558116	
==>_TAILCALL;\n  interpreter->current_object = object;\n  interpreter->current_method = meth;\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559410	559500	
==>_TAILCALL;\n  interpreter->current_object = object;\n  interpreter->current_method = meth;\ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4048	4151	
==>_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert lib <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4152	4255	
==>_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert lib <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	1331	1419	
==>$SRCDIR);

my (%file_line_coverage, %file_branch_coverage, %file_call_coverage);
my (%fun <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	6247	6356	
==>{ return 1 if $target eq $item; }
	return 0;
}

sub addcall($$)
{
	my ( $self, $subrule ) = @_;
	unless ( _con <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	4906	5004	
==>head1/m) { # try an embedded pod
	my($doc) = $text =~ /(?:^|\n)=head1(.+)/s;
	die "internal bug" if <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509037	509279	
==>\@1}} = - {{\@1}};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509668	509910	
==>\@1}} = - {{\@1}};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17518	17639	
==>}
    foreach my $key ( @{$var} ) {
        push @opcodes, @{ $key->[1] };
        my $result2 = new_tmp( $parser, 'pmc <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	226	331	
==>t;
    $self->{state} ||= Regex->global_state();
}

sub init_context {
}

# Convert "x%<foo>y" to
#   prin <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11572	11673	
==>rewrite_vtable_method ($$$$$) {
    my ($class, $method, $super, $super_table) = @_;
    local $_ = $_ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	42850	42938	
==>uotelike operators (see
L<perlop(3)>) Nested backslashed delimiters, embedded balanced br <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	604326	604553	
==>"\n    VTABLE_add_parent(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	5320	5417	
==>se Digest::Perl::MD5 'md5_hex';
    print 'Digest is ', md5_hex('foobarbaz'), "\n";

The above exa <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	218	322	
==>psulated in here
  my $class = shift;
  $class = ref($class) || $class;
  
  Carp::croak "Usage: ${class} <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	477	576	
==>se warnings;

use base qw( Parrot::OpTrans );

=item C<defines()>

Returns the C C<#define> macros r <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	29364	29458	
==>char_numeric_p {
}

sub _op_char_whitespace_p {
}

sub _op_char_upper_case_p {
}

sub _op_char_ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	17977	18131	
==>+$//gm;

                $expected =~ s/[\t ]+/ /gm;
            }

            # set a TODO for Test::Builder to find
            my $call_pkg = $builder- <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	32046	32174	
==>{
			"-" => 24,
			'TRUE' => 25,
			'NOT' => 27,
			'STRING' => 29,
			'NIL' => 30,
			'FALSE' => 33,
			'FUNCTION' => 34, <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37512	37640	
==>{
			"-" => 24,
			'TRUE' => 25,
			'NOT' => 27,
			'STRING' => 29,
			'NIL' => 30,
			'FALSE' => 33,
			'FUNCTION' => 34, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	781	880	
==>ck) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');

  my $self = bless {
    B <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48559	48655	
==>t_set_flag(interpreter,   PARROT_BOUNDS_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49349	49445	
==>t_set_flag(interpreter,   PARROT_BOUNDS_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	39656	39779	
==>olumn.  For portability, it has to be
              # one setting everywhere, and 8th wins.
              s/^([^\t]*)(\t+)/$ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5953	6052	
==>onal, so next instruction needs to
	# have an empty stack type state propogated to it if nothing has <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3891	3990	
==>onal, so next instruction needs to
	# have an empty stack type state propogated to it if nothing has <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30317	30436	
==>cent::_trace(qq{<<Didn\'t match terminal>>},
						  Parse::RecDescent::_tracefirst($text))
							if defined $::RD_TRAC <==
3	/Users/nnunley/parrot/lib/Test/More.pm	10148	10259	
==>is, 'eq', $that, 'this eq that' );

    # ok( $this == $that );
    cmp_ok( $this, '==', $that, 'this == that' ) <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2143	2245	
==>ld also
    # clear up any lazy moves.
	my $pir .= <<'PIR';
${PTEMP0} = prop_type_state[${PC}]
if ${PTE <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3309	3436	
==>~ /-debug/) {
            my $linkflags = $conf->data->get('linkflags');
            $linkflags =~ s/-opt:\S+//;
            $co <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4813	4940	
==>~ /-debug/) {
            my $linkflags = $conf->data->get('linkflags');
            $linkflags =~ s/-opt:\S+//;
            $co <==
3	/Users/nnunley/parrot/lib/Test/More.pm	14569	14669	
==>for not ok).  They are synonyms for
ok(1) and ok(0).

Use these very, very, very sparingly.

=cut

su <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	7687	7787	
==>VAL
get_nci_N(Interp *interpreter, struct call_state *st, int n)
{
    assert(n < st->src.n);
    Par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557756	557853	
==>ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next = {{^+3}};\n  STRING *meth <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559140	559237	
==>ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next = {{^+3}};\n  STRING *meth <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	17959	18068	
==>lan!  Gotta have a plan.");
    }

    lock($self->{Curr_Test});
    $self->{Curr_Test}++;

    $self->{Test_R <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	18824	18933	
==>lan!  Gotta have a plan.");
    }

    lock($self->{Curr_Test});
    $self->{Curr_Test}++;

    $self->{Test_R <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64737	64839	
==>o)
				{
					_parse("a $1-to-$2 subrule match", $aftererror,$line,"$code$argcode($1..$2)");
					if ($ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1904	2199	
==>NS           => [ ]
  }, $class;
}


###############################################################################
###############################################################################
##
## The Block Stack
##
##   $block_count         The total number of blocks begun (used for label <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	52291	52457	
==>ey' );
        }
	],
	[#Rule 51
		 'namelist', 3,
sub
#line 306 "Lua\lua51.yp"
{
            [
                @{ $_[1] },
                BuildLocalVariable <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	3538	3643	
==>_ops;

    die "OPS invalid for $file" unless ref $temp_ops->{OPS};

    my $experimental = $file =~ /expe <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223322	223590	
==>> "function",
                  "CODE" => 261,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 516 \"src/ops/cmp.ops <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	16695	16815	
==>etimes resets $!
        $test = eval "\$got $type \$expect";
    }
    local $Level = $Level + 1;
    my $ok = $self->ok <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	13369	13477	
==>nt_expect) unless $test;
        return $test;
    }

    return $self->cmp_ok($got, '!=', $dont_expect, $nam <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023376	1023469	
==>t) {{\@2}};\n  Parrot_localtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024226	1024319	
==>t) {{\@2}};\n  Parrot_localtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+ <==
3	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	348	471	
==>cs {
	my $file_name = shift;
	my $cs_code = shift;
    my $opt = shift;
    $opt ||= '';
	
	# Write file.
	my $fh;
	open $fh <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3013	3116	
==>'.Array']);
  $self->_add_inst('', 'set', [$return, 2]);

  return $return;
}

#------------------------ <==
3	/Users/nnunley/parrot/languages/regex/test.pl	1201	1294	
==>The OUTPUT: section is similar.

  Example:

__END__
(a*a|(aaa))a
INPUT:
xxxxxxxxaaabb
OUTPUT: <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9315	9431	
==>tagname eq 'item-text' )
    {
        $self->{IN_ITEM_TEXT} = 0;
    }
    
    print {$self->{'output_fh'}} $self-> <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9004	9098	
==>ack_depth
${STEMP0} = concat ${STEMP1}
goto POST_STORE_${CURIC}_CONT

# Can do a lazy move.
POS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950693	951019	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951653	951979	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952613	952939	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	7439	7544	
==>r set_source");
  } elsif(ref(\( $_[0] )) eq 'GLOB') {
    $self->{'source_filename'} = '' . ($handle = $_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799222	799519	
==>set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 902 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349120	349209	
==>st path = string_to_cstring(interpreter, {{\@2}});\n\n  {{\@1}} = PIO_open(interpreter, NU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350122	350211	
==>st path = string_to_cstring(interpreter, {{\@2}});\n\n  {{\@1}} = PIO_open(interpreter, NU <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	42	137	
==>::Tree ();
use base 'Regex::CodeGen';
use strict;

my $fail_label = Regex::Ops::Tree::mark('FAIL <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1004	1089	
==>ode - (opcode_t*)interpreter->code->prederef.code))
#define CUR_OPCODE ((opcode_t*)cur <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1134	1219	
==>ode - (opcode_t*)interpreter->code->prederef.code))
#define CUR_OPCODE ((opcode_t*)cur <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714750	714842	
==>utps(interpreter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(interpreter, io, 1);\n  }\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715673	715765	
==>utps(interpreter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(interpreter, io, 1);\n  }\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716618	716710	
==>utps(interpreter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(interpreter, io, 1);\n  }\n <==
3	/Users/nnunley/parrot/config/init/hints/solaris.pm	628	739	
==>ompiled library) we
    # need to use the c++ compiler as a linker.  As soon as the user
    # selects a compile <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5980	6082	
==>eeds to
	# have an empty stack type state propogated to it if nothing has been
	# propogated there alre <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3918	4020	
==>eeds to
	# have an empty stack type state propogated to it if nothing has been
	# propogated there alre <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	933	1169	
==>NSIBLE_PARTIES                             [main]doc
    TODO                                            [main]doc
    parrot-config                                   [main]bin
    docs/BROKEN.pod                                 [devel]d <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3009	3105	
==>...subnodes...> ]>.
See the example tree dump in the Synopsis, above.

Every text node in the tre <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	13280	13410	
==>e;
      } else {
        DEBUG and print
         "  Didn't see an immediately subsequent start-Para.  Reseeking H1\n";
        $s <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28855	28954	
==>}{$meth};
    my $n = $self->{has_method}{$meth};
    return $self->{methods}[$n]{'loc'} ne 'nci';
} <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	15307	15398	
==>warn(@_) if $self->{'complain_stderr'};
  return $self->_complain_errata(@_);
}

sub _compla <==
3	/Users/nnunley/parrot/config/auto/socklen_t.pm	283	379	
==>e strict;
use warnings;

use base qw(Parrot::Configure::Step::Base);

use Config;

use Parrot::Co <==
3	/Users/nnunley/parrot/config/auto/jit.pm	327	422	
==>e strict;
use warnings;

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Co <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5137	5270	
==>= shift;
    my %start;
    foreach (@{ $op->{args} }) {
        my @next = $_->startset();
        @start{@next} = ();
        # Stop <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	16951	17103	
==>CHAR' => 4,
			"<" => 22,
			"+" => 24,
			'CODE' => 6,
			"(" => 10,
			"|" => 26,
			"*" => 27,
			"[" => 14,
			")" => 65,
			"." => 15
		},
		GOTOS = <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	43399	43517	
==>'s a formatty line.  ",
       "Peeking at previous line ", $i-1, ": $$p[$i-1]: \n";
      
      if( $p->[$i-1] =~ m{^ <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	843	934	
==>ocal/lib -L/usr/local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS = qq[-bundle -undefined sup <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	847	938	
==>ocal/lib -L/usr/local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS = qq[-bundle -undefined sup <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	111	201	
==>ols/dev/gen_charset_tables.pl -- generate charset tables

=head1 SYNOPSIS

	perl tools/dev/ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	23486	23619	
==>, [ 0, 'plus matched marker' ]),
                        aop('goto', [ $loop ]),
              $rfail => aop('popindex', [ '<tmp>', $l <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	24478	24590	
==>, move back to a more comfortable place"
  #  -- /Oblique Strategies/,  Brian Eno and Peter Schmidt
  
  my($self <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32940	33049	
==>\n";
        }

		# Now call pre_store and append code that it generates.
		my $pre_store = $srm->pre_store($d <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005597	1005918	
==>E" => 1122,
                  "ARGS" => [
                              "i",
                              "ic",
                              "s",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43708	43949	
==>, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pus <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45635	45876	
==>, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pus <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	1024	1260	
==>m(%config);


# #############################################################################


# Get Parrot Configuration
# ########################
sub get_parrot_config($$) {
	# Try to include config information from Parrot t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064652	1064941	
==>"get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1189,
                  "ARGS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48916	49185	
==>T",
                  "NAME" => "bounds",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 63,
                  "AR <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2623	2747	
==>~ s/\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else {
        $liblist = join( ' ', map { "-l$_" } keys %$l <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2932	3056	
==>~ s/\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else {
        $liblist = join( ' ', map { "-l$_" } keys %$l <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2727	2851	
==>~ s/\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else {
        $liblist = join( ' ', map { "-l$_" } keys %$l <==
3	/Users/nnunley/parrot/config/auto/jit.pm	3060	3203	
==>t(
            jitarchname => $jitarchname,
            jitcpuarch  => $jitcpuarch,
            jitcpu      => uc($jitcpuarch),
            jito <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19228	19333	
==>r.y"
{ return op('alternate' => [ $_[1], $_[3] ]); }
	],
	[#Rule 10
		 'expr', 2,
sub
#line 111 "lib/Regex <==
3	/Users/nnunley/parrot/lib/Parrot/Revision.pm	437	540	
==>s = undef;

sub __get_revision {
    return 0 unless (-e ".svn/entries");
    $svn_entries = ".svn/entri <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	61655	61804	
==>shifts, reduces, accept...)
        #    0x08         Parse Stack dump
        #    0x10         Error Recovery tracing
    );

    close $parser <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	2537	2663	
==>= $I100
END_PIR

    $P0[unicode:"dyadic:\u2371"]  = <<"END_PIR"             # nor
    $I100 = %1
    $I101 = %2
    $I100 = or <==
3	/Users/nnunley/parrot/config/auto/snprintf.pm	203	302	
==>ION

Tests if snprintf is present and if it's C99 compliant.

=cut

package auto::snprintf;

use str <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	5700	5887	
==>bel
                }
                if ($stmt->{code}->{name} =~ /^(?:goto|fail)$/) {
                    next BBLOCK;
                }
            }
	    $prev = $stmt;
	    $stmt = $s <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5609	5713	
==>print STDERR ('-' x 40),"\n";
#DBG>		$debug & 0x2
#DBG>	and	print STDERR "In state $stateno:\n";
#DBG> <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5339	5440	
==>print STDERR ('-' x 40),"\n";
#DBG>		$debug & 0x2
#DBG>	and	print STDERR "In state $stateno:\n";
#DBG> <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4843	4947	
==>/N/;
		$eqnum++;
		$ot1=false($ot1);
		return(<<CODE, $result);
	# FIXME
	eq $a1, $ot1, TRUE_${eqnum}
	se <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1847	1949	
==>AL_ERROR("Constant definition involves undefined value!")
    unless defined $value;

  #
  # Lookup th <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	729	823	
==>appy.
our $VERSION = '1.0';

use Parrot::Docs::HTMLPage;

=item C<do_beginning()> 

Reimplement <==
3	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	106	202	
==>uts have
changed, as judged by their checksums.

=head1 USAGE

  rebuild.pl [-v] <command> <input <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443602	443689	
==>s/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444617	444704	
==>s/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1} <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	895	1003	
==>er.
sub subs() {
	# No extra subs.
	return "";
}

# Label generation.
sub gen_label() {
	# We'll emit a label <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	652	760	
==>er.
sub subs() {
	# No extra subs.
	return "";
}

# Label generation.
sub gen_label() {
	# We'll emit a label <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10967	11079	
==>.

=cut

sub delete
{
    # Use $_[0] so that we can undef the instance in SUPER::delete().
    
    $_[0]->delet <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	2331	2423	
==>les.

Any lines matching the regular expression specified by C<$ignorePattern> are
not includ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490794	491034	
==>{{\@1}}++;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	491415	491655	
==>{{\@1}}++;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inc <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	5726	5859	
==>nd"},
					 pos $$textref;
				pos $$textref = $startpos;
			        return;
			}
			last if $#nesting < 0;
		}
		elsif ($qdel && $$te <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	40910	41029	
==>text = $text;
		  my $backtrack;
		  # MATCH (LEFTARG OP)(s)
		  while ($repcount < ' . $self->{max} . ')
		  {
			$back <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1365	1463	
==>eters
my(@params)=('LEX','RULES','STATES');

sub new {
    my($class)=shift;
	my($errst,$nberr <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1320	1413	
==>eters
my(@params)=('LEX','RULES','STATES');

sub new {
    my($class)=shift;
	my($errst,$nberr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20306	20413	
==>t>;
    #
 
    if ($token->is_ident and $self->get(1)->is_assign) {
      my $block = $self->current_block( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	243	344	
==>pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

use Carp;

package J <==
3	/Users/nnunley/parrot/languages/regex/test.pl	3884	3978	
==>ular_pir("test_regex.pir", $pattern);
    generate_pbc("test_regex.pir", "test.pbc");
}

sub pr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21257	21386	
==>truct::Statement::New->new($block, $left, $right);
          $constructing = 0;
        }
        else {
          my $assign = Ja <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	430	521	
==>se/Yapp/Driver.pm file----------------------------------------
{
#
# Module Parse::Yapp:: <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	419	507	
==>se/Yapp/Driver.pm file----------------------------------------
{
#
# Module Parse::Yapp:: <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5493	5600	
==>item]);
      $self->_add_inst ('', 'set', [$pair.'[1]',$return]);
      $self->_add_inst ('', 'set', [$retu <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17043	17144	
==>item]);
    $self->_add_inst ('', 'set',[$pair.'[1]',$return]);
    $self->_add_inst ('', 'set',[$retu <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6532	6629	
==>item]);
  $self->_add_inst('', 'set', [$pair.'[1]',$return]);
  $self->_add_inst('', 'set', [$retu <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1681	1797	
==>($distance == -1) {
        return "<rx_pos>--;";
    } elsif ($distance > 0) {
        return "<rx_pos> += $distance <==
3	/Users/nnunley/parrot/config/init/hints/cygwin.pm	700	807	
==>red, so we override the
    # perl5 Configure defaults and use 'gcc -shared' instead of 'ld2'.
    # If this <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917810	918074	
==>RGS" => [
                              "i",
                              "sc",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	24733	24859	
==>ined $defn ) {
        my $name;
        $name = 'var_' . $parser->YYData->{lex_num} . '_' . $idf;
        $defn = new defn( <==
3	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1845	1935	
==>=yes

[Files]
Source: "$options{prefix}\\*"; DestDir: "{app}"; Flags: ignoreversion recurse <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	23025	23157	
==>e, but something about that seems icky.
      }
      if(ref $is) {
        my @dynasty = @$is;
        DEBUG > 4 and print "    Rena <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	529	633	
==>timated number of ops performed,

=item * the elapsed time, and 

=item * the number of M op/s.

=back

= <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	532	635	
==>timated number of ops performed,

=item * the elapsed time, and

=item * the number of M op/s.

=back

= <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	42200	42301	
==>agged> is exactly
equivalent to:

	sub extract_tagged
	{
		my $text = shift;
		$extractor = gen_extrac <==
3	/Users/nnunley/parrot/tools/util/pirtidy.pl	1074	1171	
==>our file -- it has
no qualms about converting your script to use a maximal amount of
syntactic sug <==
3	/Users/nnunley/parrot/lib/Test/More.pm	17363	17468	
==>ess @imports;

    my($pack,$filename,$line) = caller;

    local($@,$!);   # eval sometimes interferes wi <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	6073	6168	
==>te an include file with opcode number

my $inc_f = "include/parrot/oplib/ops.h";
my $inc_dir = " <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	14213	14304	
==>ex>

  $Test->maybe_regex(qr/$regex/);
  $Test->maybe_regex('/$regex/');

Convenience method <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	1869	2072	
==>ile
            my $exit_code = Parrot::Test::run_command( 
                                \@test_prog, 
                                CD     => $self->{relpath}, 
                                STDOU <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2417	2557	
==>ile
        my $exit_code = Parrot::Test::run_command(
            \@test_prog,
            CD     => $self->{relpath},
            STDOU <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	4066	4187	
==>untime.Remoting
            System.Runtime.Serialization.Formatters.Soap
            System.Security
            System <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	44470	44570	
==>n
(that is, the contents of
a quote, the regex of a match or substitution or the target list of a
tra <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	393	487	
==>R";

.HLL 'tcl', 'tcl_group'
.namespace ['']

END_PIR

print "  .include 'languages/tcl/$static <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650755	651012	
==>type)\n        {{\@1}} = 1;\n    else\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651677	651934	
==>type)\n        {{\@1}} = 1;\n    else\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	8421	8530	
==>line($_);
	}
    }
    while ($code_l < @code) {
	my $l = $code[$code_l++];
	my ($opcode, $arg, $rest, $src) = <==
3	/Users/nnunley/parrot/Configure.pl	9415	9534	
==>e
    auto::gc
    auto::memalign
    auto::signal
    auto::socklen_t
    auto::env
    auto::aio
    auto::gmp
    aut <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2415	2513	
==>gument (%s)!", $formal_arg_name) 
      unless defined $formal_arg_type;

    $self->INTERNAL_ERROR <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2115	2213	
==>gument (%s)!", $formal_arg_name) 
      unless defined $formal_arg_type;

    $self->INTERNAL_ERROR <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3328	3437	
==>libs(@pmcs);

    while (my ($group, $pmcs) = each %$group_files) {
        my @pmcfiles = map { "$_.pmc" } @$ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3432	3541	
==>libs(@pmcs);

    while (my ($group, $pmcs) = each %$group_files) {
        my @pmcfiles = map { "$_.pmc" } @$ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23785	23892	
==>g production<< (found '
					 . $self->describe . ')},
					 Parse::RecDescent::_tracefirst($text),
					  q <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1134	1248	
==>nvironment -> option -> ask
    $prog ||= $conf->options->get($util);
    $prog ||= $ENV{uc($util)};

    # never o <==
3	/Users/nnunley/parrot/config/inter/make.pm	955	1069	
==>nvironment -> option -> ask
    $prog ||= $conf->options->get($util);
    $prog ||= $ENV{uc($util)};

    # never o <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1131	1245	
==>nvironment -> option -> ask
    $prog ||= $conf->options->get($util);
    $prog ||= $ENV{uc($util)};

    # never o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682768	683025	
==>],
                  "TYPE" => "inline",
                  "CODE" => 766,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 517 \"src/ops/pmc.o <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36396	36544	
==>LT => -72
	},
	{#State 140
		ACTIONS => {
			"-" => 72,
			"%" => 76,
			"*" => 80,
			".." => 71,
			"+" => 75,
			"^" => 79,
			"/" => 82 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875807	876191	
==>",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 993,
                  "ARGS" => [
                              "s",
                              "sc",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 239 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143505	143614	
==>,
                  "BODY" => "#line 84 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144433	144542	
==>,
                  "BODY" => "#line 84 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145361	145470	
==>,
                  "BODY" => "#line 84 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) <==
3	/Users/nnunley/parrot/config/init/defaults.pm	4063	4195	
==>importable symbol.
        sym_export => '',
        sym_import => '',

        # Library build directory
        blib_dir      => 'b <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	22151	22255	
==>nt $val{$_->[2]}
	#print "\\n"
	P3["$_->[0]"]= P2
NOTUSER
		} else {
				print CODE<<USER;
	new P2, .Perl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560801	560887	
==>preter->current_object = object;\n  interpreter->current_method = VTABLE_get_string(int <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4394	4507	
==>string });
        $handler->end_element({ Name => 'literal' });
      }

      $handler->end_element({ Name => 'c <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2819	2927	
==>_file_directories)
    {
        return $dir->file_with_name($name)
            if $dir->file_exists_with_nam <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	3727	3835	
==>_file_directories)
    {
        return $dir->file_with_name($name)
            if $dir->file_exists_with_nam <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199821	200085	
==>236,
                  "ARGS" => [
                              "n",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 373 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    { <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19318	19426	
==>The \$::RD_AUTOACTION was defined,
					  so any production not ending in an
					  explicit action has the s <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13798	13902	
==>t ('', 'set', [$return,0]);
  }
  else {
    $self->_add_inst ('', 'typeof', [$return,$item]);
    $self- <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	20391	20534	
==>alDir( $parser,
        'result' => $result,
    );
    push @opcodes, new NewOp( $parser,
        'result' => $result,
        'arg1'   => <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21670	21813	
==>alDir( $parser,
        'result' => $result,
    );
    push @opcodes, new NewOp( $parser,
        'result' => $result,
        'arg1'   => <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	22813	22956	
==>alDir( $parser,
        'result' => $result,
    );
    push @opcodes, new NewOp( $parser,
        'result' => $result,
        'arg1'   => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	31304	31560	
==>[
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "result_info",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	8662	8787	
==>.);               # call method of object
    $obj->c(new My_Other_Class);        # assign a new object

=head1 DESCRIPTION

C <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	36406	36502	
==>all threads.  This means if one thread sets
the test number using current_test() they will all be <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8989	9193	
==>ror recovery.\n";

            $$check='';

        };

        #Error
            $$errstatus
        or   do {

            $$errstatus = 1;
            &$error($self);
                $$errs <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8586	8778	
==>ror recovery.\n";

            $$check='';

        };

        #Error
            $$errstatus
        or   do {

            $$errstatus = 1;
            &$error($self);
                $$errs <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	5905	6040	
==>s/(["'\\])/\\$1/g;
            $part =~ s/\n/\\n/g;
            push @ops, aop('print', [ "\"$part\"" ]);
        }
    }
    return @op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565197	565494	
==>ME" => "can",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566089	566386	
==>ME" => "can",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11102	11200	
==>l_HAS_RETURN_${CURIC}
goto pre_call_NO_RETURN_${CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$" <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8288	8386	
==>l_HAS_RETURN_${CURIC}
goto pre_call_NO_RETURN_${CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$" <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5950	6048	
==>l_HAS_RETURN_${CURIC}
goto pre_call_NO_RETURN_${CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$" <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	53077	53202	
==>m = (
  "\a" => '\a', # ding!
  "\b" => '\b', # BS
  "\e" => '\e', # ESC
  "\f" => '\f', # FF
  "\t" => '\t', # tab
  "\cm" => <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	1314	1431	
==>) {
            $conf->data->add(' ', linkflags => '-L/sw/lib');
            $conf->data->add(' ', ldflags   => '-L/sw <==
3	/Users/nnunley/parrot/config/auto/readline.pm	1403	1520	
==>) {
            $conf->data->add(' ', linkflags => '-L/sw/lib');
            $conf->data->add(' ', ldflags   => '-L/sw <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8402	8710	
==>_loop,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 12,
                  "ARGS" => [
                              "s"
                            ],
                  "B <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	14636	14739	
==>er_offset = eh.get_handler_offset()
    tmp = handler_offset
    gen_pir = concat tmp
    gen_pir = conc <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	32235	32328	
==>{
}

sub _op_generate_identifier {
}

sub _op_construct_identifier {
}

#--------------------- <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	22139	22283	
==>op('pushint', [ 1 ]),
                   aop('goto', [ $loop ]),
          $back => $self->dbprint("backtracking into *\n"),
                   a <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	7031	7141	
==>ass::Struct;
            # declare struct, based on array:
    struct( CLASS_NAME => [ ELEMENT_NAME => ELEMENT_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15607	15707	
==>ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
    return $x;
  }
}

sub rtf_esc_codely {
  # Doesn' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671705	672090	
==>" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 752,
                  "ARGS" => [
                              "p",
                              " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670160	670446	
==>" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 75 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670932	671218	
==>" => 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 75 <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2960	3118	
==>in ' && ', @test_prog;
            $diag .= "'$test_prog' failed with exit code $exit_code."
                if $exit_code;
            $self->{builder}->di <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	2570	2715	
==>in ' && ', @test_prog;
               $diag .= "'$test_prog' failed with exit code $exit_code." if $exit_code;
               $self->{builder}->di <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2572	2711	
==>in ' && ', @test_prog;
            $diag .= "'$test_prog' failed with exit code $exit_code." if $exit_code;
            $self->{builder}->di <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	27886	28000	
==>ke any parameters, but you said =back $content"
        );
      }

      if(@$curr_open and $curr_open->[-1][0] eq <==
3	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1182	1290	
==>!!!
 *
 * This file is generated automatically by $0.
 *
 * Any changes made here will be lost!
 *
 */

#incl <==
3	/Users/nnunley/parrot/tools/build/revision_c.pl	556	664	
==>!!!
 *
 * This file is generated automatically by $0.
 *
 * Any changes made here will be lost!
 *
 */

#incl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422218	422515	
==>LAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 485,
                  " <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	18781	18891	
==>whine(
          $para->[1]{'start_line'},
          "'=begin' only takes one parameter, not several as in '=be <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	1490	1579	
==>tomatically by kate_syntax.pl  $date -->

<language name="IMCC" version="0.2" kateversion= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465312	465606	
==>IRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 533,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 343 \"src/op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	309010	309272	
==>GS" => ":base_debug",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 360,
                  "ARGS" => [
                              "sc" <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	3456	3584	
==>s = @_;
    my $pir = "";

    # Group methods by class.
    my %classes = ();
    foreach (@methods) {
        if ($classes{$_-> <==
3	/Users/nnunley/parrot/languages/APL/t/APL.pm	30	135	
==>le more gracefully for those without Test::Base installed.

BEGIN {
  eval {
    require Test::Base;
    i <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	213	308	
==>ead1 SYNOPSIS

    use Parrot::Docs::Section::Tools;

=head1 DESCRIPTION

A documentation sectio <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	55283	55377	
==>r types (subroutine reference, regular expression, or string).
The key of that element is the n <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26753	26871	
==>label($parser);
    push @opcodes, new LabelOp( $parser,
        'arg1' => $l_continue,
    );
    my $cond = get_c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951020	951439	
==>RS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1070,
                  "ARGS" => [
                              "s",
                              "sc",
                              "i"
                            ],
                  "BODY" <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	6548	6657	
==>xcess blank lines
    s/^\s*//s; s/\s*$/\n/s; # trim (and ends with a newline)
    s/^ {0,1}(\S)/  $1/mg; # mi <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12959	13050	
==>R_NEXT_$foo->{num}\n";
	} elsif ($syms[NEXT] eq "function") {
		push @{$code{$seg}->{code}}, <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	11006	11122	
==>t || !defined $expect ) {
        # undef only matches undef and nothing else
        my $test = !defined $got && !de <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	11424	11540	
==>t || !defined $expect ) {
        # undef only matches undef and nothing else
        my $test = !defined $got && !de <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	7255	7353	
==>x)
XNOTY
	}
}
sub parse_color {
	my($f,$b);
	my($resultb, $typeb, @codeb);
	my($resultf, $typef, @c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	603047	603311	
==>UMP" => 0,
                  "NAME" => "classname",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1096153	1096417	
==>UMP" => 0,
                  "NAME" => "classname",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	2826	2927	
==>compile with
constant-folding.


=head1 GUTS

Doing this:

  use Pod::Simple::Debug (5);  # or some in <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	5906	6045	
==>.pbc"
            p6rule_compile = compreg "PGE::P6Regex"

            .local string target
            .local pmc rulesub
            .loca <==
3	/Users/nnunley/parrot/config/auto/alignptrs.pm	638	758	
==>_result('skipped');
        return $self;
    }

    $self->set_result('');
    my $align;
    if (defined($conf->data->g <==
3	/Users/nnunley/parrot/config/auto/pack.pm	198	295	
==>out how to C<pack()> Parrot's types.

=cut

package auto::pack;

use strict;
use vars qw($descript <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83433	83674	
==>,
                  "CODE" => 104,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 1201 \"src/ops/core.ops\"\n  PMC * const c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8907	8999	
==>fixup_label, label);\n    if (!fe)\n\tinternal_exception(1, \"branch_cs: fixup for '%s' not f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10023	10115	
==>fixup_label, label);\n    if (!fe)\n\tinternal_exception(1, \"branch_cs: fixup for '%s' not f <==
3	/Users/nnunley/parrot/Configure.pl	6207	6306	
==>e given loader for shared libraries
   --ldflags=(flags)    Use the given loader flags for shared li <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947060	947153	
==>L n = Parrot_charset_number(interpreter, {{\@2}});\n  if (n < 0)\n    real_exception(interpret <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947962	948055	
==>L n = Parrot_charset_number(interpreter, {{\@2}});\n  if (n < 0)\n    real_exception(interpret <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5019	5143	
==>$dest_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  my $block <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3082	3206	
==>$dest_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  my $block <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2646	2745	
==>block' });
  }

  $handler->start_element({ Name => 'block', Attributes => { kind => $self->kind } } <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24856	24957	
==>tref,
				$match[2], $match[3]+$match[5]+$match[7],	# MATCH
				@match[8..9,0..1,2..7];				# REM, PRE, <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7688	7787	
==>tref,
			$match[2], $match[3]+$match[5]+$match[7],	# MATCH
			@match[8..9,0..1,2..7];				# REM, PRE, <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44577	44715	
==>,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86
		},
		DEFAULT => -110
	},
	{#State 203
		DEFAULT => -18
	},
	{#Sta <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676032	676123	
==>ps\"\n    {{\@1}}->vtable->unshift_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676812	676903	
==>ps\"\n    {{\@1}}->vtable->unshift_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n", <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	36156	36260	
==>test died
    any other number    how many failed (including missing or extras)

If you fail more than 25 <==
3	/Users/nnunley/parrot/lib/Test/More.pm	34227	34331	
==>test died
    any other number    how many failed (including missing or extras)

If you fail more than 25 <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	3022	3126	
==>test died
    any other number    how many failed (including missing or extras)

If you fail more than 25 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549701	549937	
==>"function",
                  "CODE" => 633,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 56 \"src/ops/object.ops\"\n <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	8363	8469	
==>unction Definitions:
*/

END_C

#
# Finish the SOURCE file's array initializer:
#
my $CORE_SPLIT = 300;
for <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1665	1756	
==>mbol($dest->value);
  $self->SYNTAX_ERROR("Assigning to unknown variable %s.", $dest->value) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1623	1714	
==>mbol($dest->value);
  $self->SYNTAX_ERROR("Assigning to unknown variable %s.", $dest->value) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1545	1636	
==>mbol($dest->value);
  $self->SYNTAX_ERROR("Assigning to unknown variable %s.", $dest->value) <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	2589	2691	
==>ef, $File,
    $ObjectName, $Type, $BSD, $Long, $Help, $Version);

sub show_version {
    print "$ME: $ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20003	20102	
==>', double => 'FLO', long => 'INT', integer => 'INT', string => 'STRING');
			die "Unknown type $type <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905018	905318	
==>"TYPE" => "inline",
                  "CODE" => 1020,
                  "ARGS" => [
                              "s",
                              "p",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 262 \"src/op <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	20446	20553	
==>>{max}, TRUE, $_[1] ]); }
	],
	[#Rule 20
		 'expr', 3,
sub
#line 131 "lib/Regex/Grammar.y"
{ return op('mult <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	325	461	
==>_fail P0';
}

############### SIMPLE OUTPUT ##############

sub output_advance {
    my ($self, $distance, $failLabel) = @_;
    $failLab <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	1913	2043	
==>b args
{
    my $class = shift;
    $class = ref $class || $class;
    {
        no strict 'refs';
        return @{$class . "::arg <==
3	/Users/nnunley/parrot/config/gen/platform.pm	2070	2190	
==>ndef;
            print("\t$header_file\n") if defined $verbose && $verbose == 2;
            open IN_H, "< $header_file" <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37567	37661	
==>e->hasleftmost($self) ? 'q{}'
				: 'q{'.$self->describe.'}' ) . ';
		$Parse::RecDescent::lastu <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39970	40064	
==>e->hasleftmost($self) ? 'q{}'
				: 'q{'.$self->describe.'}' ) . ';
		$Parse::RecDescent::lastu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170228	170425	
==>"p",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 211 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_numbe <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6964	7150	
==>b,
          fn    => $fn
        }
      });
    }
    else {
      $handler->start_element({
        Name       => 'sub',
        Attributes => {
          name  => $name,
          kin <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59834	59939	
==>rror,
				    $lookahead,$line) or next;
			$prod->check_pending($line) if $prod;
			$prod = new Parse::Re <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7754	7868	
==>}

sub output_restore {
    my ($self, $reg) = @_;
    $reg = value($reg);
    return ("restore $reg");
}

sub outp <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11264	11353	
==>EMP0}
inc stack_depth
${STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
pre_call_NO_RETU <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8450	8539	
==>EMP0}
inc stack_depth
${STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
pre_call_NO_RETU <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19343	19440	
==>emptions( I<true_or_false> );

Set this value to true if you don't want the formatter to try
putti <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	106681	107071	
==>core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 133,
                  "ARGS" => [
                              "i",
                              "i",
                              "i" <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	2689	2824	
==>ile (<$fh>) {
        chomp;
        $line++;

        # If it's a blank line or a comemnt line, skip it.
        next if !$in_heredoc & <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27671	27777	
==>ype[CURR] eq "PUN");
		if ($type[CURR] eq "BARE") {   # Variable name parameter
			$a=$syms[CURR];
			if ($ <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	24063	24174	
==>@stack;
	    unshift @args, promote($arg);
	}
	my ($i, $j, $arg_name);
	my $pushed_args = scalar @args;
	#
	# th <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	5828	5934	
==>put_fh'};
  
  my($token, $type, $tagname);
  my @stack;
  my $dont_wrap = 0;
  while($token = $self->get_t <==
3	/Users/nnunley/parrot/config/inter/ops.pm	260	353	
==>nter::ops;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step: <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	943	1068	
==>ind::name)
                        }}, $SRCDIR);

    # build parrot with coverage support
    system("perl Configure.pl --ccf <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	28194	28291	
==>treelet);
  my $start_line = $stack[0][1]{'start_line'};

  # A recursive algorithm implemented it <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	31695	31792	
==>treelet);
  my $start_line = $stack[0][1]{'start_line'};

  # A recursive algorithm implemented it <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5838	5930	
==>self->{triggers}{$key}{$trigger};

    my $verbose = defined $self->get('verbose') && $self-> <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6408	6500	
==>self->{triggers}{$key}{$trigger};

    my $verbose = defined $self->get('verbose') && $self-> <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1935	2031	
==>nstance Methods

=over 4

=item C<create_path()>

This is called from C<new()> to create the path <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	912	1008	
==>nstance Methods

=over 4

=item C<create_path()>

This is called from C<new()> to create the path <==
3	/Users/nnunley/parrot/tools/dev/symlink.pl	546	652	
==>pec->file_name_is_absolute($self);

my $toolsrcdir  = dirname($self);
my $toolsrcbase = basename($self);

u <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	432	542	
==>my $class = shift;
  my ($block, $dest, $left, $op, $right) = @_;

  confess("Block (" . ref($block) . ") not!" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	423	533	
==>my $class = shift;
  my ($block, $dest, $left, $op, $right) = @_;

  confess("Block (" . ref($block) . ") not!" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	312	422	
==>my $class = shift;
  my ($block, $dest, $left, $op, $right) = @_;

  confess("Block (" . ref($block) . ") not!" <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	1734	1838	
==>t

sub set
{
    my $self = shift;

    my $verbose = defined $self->get('verbose') && $self->get('verbos <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	758	858	
==>es
{
    return <<END;
#undef CONST
#define REL_PC     ((size_t)(cur_opcode - interpreter->code->base <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	874	974	
==>es
{
    return <<END;
#undef CONST
#define REL_PC     ((size_t)(cur_opcode - interpreter->code->base <==
3	/Users/nnunley/parrot/config/auto/byteorder.pm	854	973	
==>=> 0
        );
        $self->set_result('little-endian');
    } elsif ($byteorder =~ /^(8765|4321)/) {
        $conf-> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2252	2355	
==>butes => { kind => $self->kind, name => $self->prefix } });
  }
  else {
    $handler->start_element({ N <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2129	2232	
==>butes => { kind => $self->kind, name => $self->prefix } });
  }
  else {
    $handler->start_element({ N <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	51859	51969	
==>, $item[0]}},0,-1);
				}
			}

			elsif ($grammar =~ m/$REJECTMK/gco)
			{
				_parse("an reject marker", $aft <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48160	48269	
==>f ($grammar =~ m/\G[(]/gc)
			{
				pos($grammar)--;

				if ($grammar =~ m/$OPTIONAL/gco)
					{ ($minrep, $m <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	11949	12049	
==>_ok('test', sub ($a, $b) { ?($a gt $b) }, 'me', '... testing gt on two strings');

- `isa_ok ($ref, S <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11179	11268	
==>CURIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1}["reg_type_short"]
${DEST0} = concat ${STEMP0} <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8365	8454	
==>CURIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1}["reg_type_short"]
${DEST0} = concat ${STEMP0} <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6027	6116	
==>CURIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1}["reg_type_short"]
${DEST0} = concat ${STEMP0} <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22204	22302	
==>turn,0]);
  $self->_add_inst("DONE_$label");
  return $return;
}

sub _op_odd_p {
  my ($self,$node <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	221	311	
==>= ( qw(output_is output_like output_isnt), @Test::More::EXPORT );
@ISA = qw(Exporter Test:: <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	138	228	
==>= ( qw(output_is output_like output_isnt), @Test::More::EXPORT );
@ISA = qw(Exporter Test:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	34478	34717	
==>nline",
                  "CODE" => 43,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 632 \"src/ops/core.ops\"\n  {{\@1}} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	4359	4513	
==>_block'}
                            = $self->{'last_was_blank'}     = 1;
          # And fall thru to the pod-mode block further down
        }
      } el <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	1603	1700	
==>.
$pir = insert_automagicals($pir, $metavars);

# Append any custom subs that the SRM wants.
my $c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895960	896160	
==>",
                              "ic",
                              "sc"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interp <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	12919	13063	
==>pping back to seeking-head1-content mode...\n";
        }
      }
    }
    
    elsif($state == 2) {
      # seeking start of para (which must i <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2168	2277	
==>on't work right
    #  under non-ASCII charsets.  Something should be done about that.
  }
  return;
}

#@@@@@ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2271	2380	
==>on't work right
    #  under non-ASCII charsets.  Something should be done about that.
  }
  return;
}

#@@@@@ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	14819	14912	
==>lock($textref, '\s*', $ldel_inner, $rdel_inner, $ldel_inner, $rdel_inner, $rd) )
		{
			$patva <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	6054	6182	
==>ly should do @output = (), but I hate doing a
                 # compiler's work for it.
    my $keeping = 1;
    foreach my $stm <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12573	12670	
==>);
}

sub checkleftmost($)
{
	my @items = @{$_[0]->{"items"}};
	if (@items==1 && ref($items[0]) =~ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30601	30716	
==>first($text))
							if defined $::RD_TRACE;').'
		push @item, '.($::RD_NO_HITEM ? ''
			       : '$item{'.$self->{h <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28525	28638	
==>first($text))
					if defined $::RD_TRACE;').'
		push @item, '.($::RD_NO_HITEM ? ''
			       : '$item{'.$self->{h <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32804	32916	
==>first($text))
							if defined $::RD_TRACE;').'
		push @item, ' . ($::RD_NO_HITEM ? ''
				 : '$item{'.$self->{h <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1642	1758	
==>OTPOS => \$dotpos,
				STACK => [],
				DEBUG => 0,
				CHECK => \$check };

	_CheckParams( [], \%params, \@_, $ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	17681	17796	
==>es = @{shift()};
    my $mv = shift;

    # Make a copy of the original instruction code before we trash it.
    for <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1586	1697	
==>OTPOS => \$dotpos,
				STACK => [],
				DEBUG => 0,
				CHECK => \$check };

	_CheckParams( [], \%params, \@_, $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	709432	709726	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_mro",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	22626	22734	
==>);

    return 0;
}

=begin _private

=item B<_print>

    $Test->_print(@msgs);

Prints to the output() file <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	367	465	
==>();
sub parse_keys {
	feedme();
	my $targ=$syms[CURR];
	feedme();
	feedme() while($syms[CURR] =~ /[ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3993	4090	
==>urns 'Undefined'.

=cut

sub type
{
	my $self = shift;
	my $type = $self->type_for_suffix($self->s <==
3	/Users/nnunley/parrot/examples/benchmarks/stress.pl	648	731	
==>arks/stress.pasm>, 
F<examples/benchmarks/stress1.pasm>, 
F<examples/benchmarks/stre <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11447	11561	
==>es = \$${righttype}99
SWAP
}

sub parse_stop {
	feedme();
	print CODE<<STOP;
	print "Stopped at source line "
	prin <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	941	1055	
==>ined $in and length $in;
  
  # Convert to decimal:
  if($in =~ m/^(0[0-7]*)$/s ) {
    $in = oct $in;
  } elsif($i <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2300	2414	
==>ined $in and length $in;
  
  # Convert to decimal:
  if($in =~ m/^(0[0-7]*)$/s ) {
    $in = oct $in;
  } elsif($i <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	7164	7286	
==>8839,
 'oplus'    , 8853,
 'otimes'   , 8855,
 'perp'     , 8869,
 'sdot'     , 8901,
 'lceil'    , 8968,
 'rceil'    , 896 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7214	7312	
==>e"
print ucase$(s1$);" Upper"
print lcase$(s1$);" Lower"
a$="   Flush   "
print ">";ltrim$(a$)
prin <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18943	19041	
==>e"
print ucase$(s1$);" Upper"
print lcase$(s1$);" Lower"
a$="   Flush   "
print ">";ltrim$(a$)
prin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858720	859031	
==>}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repea <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859724	860035	
==>}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repea <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860728	861039	
==>}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "repea <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5946	6047	
==>&$lex($self);
#DBG>				$debug & 0x01
#DBG>			and	print STDERR "Need token. Got ".&$ShowCurToken."\n" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	2168	2267	
==>ub is_global   { return shift->scope eq 'global'; }
sub is_local    { return shift->scope eq 'local' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5663	5762	
==>&$lex($self);
#DBG>				$debug & 0x01
#DBG>			and	print STDERR "Need token. Got ".&$ShowCurToken."\n" <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31302	31411	
==>vtable($meth);
}

=item C<body($method, $line, $out_name)>

Returns the C code for the method body. C<$line> i <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35933	36042	
==>vtable($meth);
}

=item C<body($method, $line, $out_name)>

Returns the C code for the method body. C<$line> i <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39922	40031	
==>vtable($meth);
}

=item C<body($method, $line, $out_name)>

Returns the C code for the method body. C<$line> i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368380	368618	
==>TYPE" => "function",
                  "CODE" => 431,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 336 \"src/ops/io.op <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3679	3804	
==>\r//d;
      }
    }


    DEBUG > 5 and print "# Parsing line: [$line]\n";

    if(!$self->{'in_pod'}) {
      if($line =~ m/ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49611	49713	
==>~ m/$QUOTELIKEMK/gco)
			{
				_parse("an perl quotelike marker", $aftererror,$line);
				$item = new P <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	343	453	
==>:w<type> <ident>' ],
    ],
    "simple subrules test");
  p6rule_isnt('abc', '^bc', 'BOS bc');
  p6rule_like(' <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10751	10840	
==>}

# Next parameter.
dec stack_depth
goto pre_call_PLOOP_${CURIC}
PRE_CALL_PLOOP_END_${CUR <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8004	8093	
==>}

# Next parameter.
dec stack_depth
goto pre_call_PLOOP_${CURIC}
PRE_CALL_PLOOP_END_${CUR <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1070	1184	
==>RIGHT => $right,

    DEBUG => 1,
    FILE  => defined $value ? $value->file : undef, # TODO: YUCK!
    LINE  => de <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	24796	24903	
==>nd print "Generated errata... relooping...\n";
          next;  # I.e., loop around again to process these f <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	13211	13315	
==>the instruction.
    $pir .= <<'PIRCODE';
    # If we have exception handlers, need some intial stuff emi <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	38932	39039	
==>nd !ref($ell_content[0]) and !ref($ell_content[-1])
         and $ell_content[ 0] =~ m/^\"/s
         and $e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	617680	617769	
==>f (++lru->u.type == lr_types)\n\t    goto runit_v_pp;\n\tmic->pic->miss_count++;\n\t/*\n\t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	922431	922785	
==>,
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1038,
                  "ARGS" => [
                              "p",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 321 \"src/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120921	121190	
==>ne",
                  "CODE" => 150,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 231 \"src/ops/bit.ops\"\n  {{\@ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	27686	27789	
==>pass/fail, so todos are passes.

Of course, test #1 is $tests[0], etc...

=cut

sub summary {
    my($se <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	396	505	
==>I][dD]:\s(.*)\$$/;
my $fileid = '$'.'id $';
my $charset_dir = File::Spec->catdir(qw/ src charset /);

#
# char <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	734	830	
==>scription, @todo)>

Runs the target string against the Perl 6 pattern, passing the test
if they m <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2832	2928	
==>scription, @todo)>

Runs the target string against the Perl 6 pattern, passing the test
if they m <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	12187	12346	
==>,
             'shortsize' => 2,
             'slash' => '/',
             'sym_export' => '',
             'sym_import' => '',
             'test_prog' => 'par <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	4585	4694	
==>xt;

    last if $tok->is_eof;
  }

=begin commented_out

  foreach (my $i = 0; $i < scalar(@{$self->{TOKENS}} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	8488	8596	
==>) {
      esc($type = $token->text);  # reuse $type, why not
      $type =~ s/([\?\!\"\'\.\,]) /$1\n/g unless <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1484	1581	
==>k;

  $self->INTERNAL_ERROR("Undefined type!")
    unless defined $type;

  $self->INTERNAL_ERROR( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1332	1429	
==>k;

  $self->INTERNAL_ERROR("Undefined type!")
    unless defined $type;

  $self->INTERNAL_ERROR( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	3115	3212	
==>rent_block
{
  my $self = shift;

  $self->INTERNAL_ERROR("Attempt to reference top block with emp <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	39368	39474	
==>eturn(gen_pir)
.end
TRANSPIR

    # Return generated code.
    return $pir;
}


# Inserts auto-magically in <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7698	7799	
==>n isn't a register, determine register name now.
	if (!$dest_reg) {
		$pir .= <<'PIR'
# Get type (so w <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5816	5917	
==>n isn't a register, determine register name now.
	if (!$dest_reg) {
		$pir .= <<'PIR'
# Get type (so w <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	8338	8459	
==>false.  Just
like Test::Simple's ok().

=cut

sub ok {
    my($self, $test, $name) = @_;

    # $test might contain an obj <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2145	2234	
==>f if unknown
  }
}

#--------------------------------------------------------------------- <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2610	2699	
==>f if unknown
  }
}

#--------------------------------------------------------------------- <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9927	10029	
==>hat they come
# off the stack last to first, but need to be first to last in ${PARAMS}.
${ITEMP0} = ele <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7441	7543	
==>hat they come
# off the stack last to first, but need to be first to last in ${PARAMS}.
${ITEMP0} = ele <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6405	6507	
==>hat they come
# off the stack last to first, but need to be first to last in ${PARAMS}.
${ITEMP0} = ele <==
3	/Users/nnunley/parrot/languages/converter.pl	808	919	
==>?)
#		{[@item]}
		{ $return = '';
		  $return .= $item[1][0] if defined $item[1][0];
		  $return .= " ( $item[3] <==
3	/Users/nnunley/parrot/languages/converter.pl	1105	1216	
==>?)
#		{[@item]}
		{ $return = '';
		  $return .= $item[1][0] if defined $item[1][0];
		  $return .= " ( $item[3] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	617492	617589	
==>ght);\n\t{{+=4}};\n    }\n    if (mic->pic) {\n\tlru = mic->pic->lru;\n\tif (lru->u.type == lr_typ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62693	62812	
==>le match", $aftererror,$line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr($gramm <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63404	63523	
==>le match", $aftererror,$line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr($gramm <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64134	64253	
==>le match", $aftererror,$line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr($gramm <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544542	544663	
==>else               a = (a-b)>>1;\n }\n \n gcd = b<<p;\n saved_var1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\n {{+=4}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545878	545999	
==>else               a = (a-b)>>1;\n }\n \n gcd = b<<p;\n saved_var1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\n {{+=4}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547214	547335	
==>else               a = (a-b)>>1;\n }\n \n gcd = b<<p;\n saved_var1 /= gcd;\n {{\@1}} = saved_var1*saved_var2;\n {{+=4}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511339	511665	
==>=> ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 589,
                  "ARGS" => [
                              "n",
                              "n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029898	1030097	
==>event(interpreter, {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030740	1030939	
==>event(interpreter, {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90854	91161	
==>@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91708	92015	
==>@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92562	92869	
==>@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	816	965	
==>loat => 1,
    hash => 1,
    hex => 1,
    id => 1,
    iter => 1,
    filter => 1,
    list => 1,
    long => 1,
    int => 1,
    map => 1,
    max <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	7906	8027	
==>ken
{
    my $self = shift;
    my $token = shift;
    my $tagname = $token->tagname;
    
    if ( $tagname =~ m/^over-(. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830223	830454	
==>AME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 939 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	14427	14654	
==>back ]),
                     aop('goto', [ $try_S ]),
            $next =>
                    );
}

# R|S|T ->       R or tryS
#                push 0
#                goto next
#          tryS: S or tryT
#                push <==
3	/Users/nnunley/parrot/config/init/hints/netbsd.pm	14	118	
==>) 2006, The Perl Foundation.
# $Id$

package init::hints::netbsd;

use strict;

sub runstep
{
    my ($se <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	1347	1451	
==>number=ol
    over-text=dl
    over-block=blockquote
    item-bullet=li
    item-number=li
    item-text= <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	3065	3181	
==>when R is not a sequence)
        my $R = shift(@children);

        # opt(R|...) -> (opt(R)|opt(...)) (R is not a se <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30468	30574	
==>$self->{class};
    my $parentname = $self->{parentname};
    my $ret = gen_ret($method);
    my $cout = << <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	15389	15494	
==>epos-$startpos,
		 $codepos, $endpos-$codepos,
		 $endpos,  length($$textref)-$endpos,
	       );
}


my % <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	1881	1980	
==>s "R") to the
symbol name.

=item C<--help>

Show the help.

=item C<--version>

Show the version nu <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	8365	8481	
==>classname, $method, $for_header) = @_;

    my $ret = $method->{type};
    my $meth= $method->{meth};
    my $args= $ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	1826	1930	
==>>{declarations}}) {
		if (exists $main::common{$var}) {
			push(@saves, $var);
		}
	}
	if (@saves) {
		pr <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3117	3221	
==>>{declarations}}) {
		if (exists $main::common{$var}) {
			push(@saves, $var);
		}
	}
	if (@saves) {
		pr <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	659	778	
==>} || 'Parrot::Test::Bc::Antlr2';
                
    return bless {}, $test_module;
}

my %language_test_map = (
    ou <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015061	1015171	
==>\n  {{\@1}} = string_make(interpreter, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=3}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015885	1015995	
==>\n  {{\@1}} = string_make(interpreter, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=3}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197266	197410	
==>"ic"
                            ],
                  "BODY" => "#line 366 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198163	198307	
==>"ic"
                            ],
                  "BODY" => "#line 366 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199060	199204	
==>"ic"
                            ],
                  "BODY" => "#line 366 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567147	567501	
==>i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 648,
                  "ARGS" => [
                              "i",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 213 \"src <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452058	452381	
==>"io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 518,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 225 \"src/ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	9994	10093	
==>mals) = @{_get_arg($node,1)->{children}};
    $symbol = $symbol->{value};
    $lambda = { children = <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1564	1679	
==>t::More::$meth"};
        my $ok = &{"Test::More::$meth"}( @_ );
        # if( $ok ) { foreach my $meth ( $lang_f, $ <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1480	1595	
==>t::More::$meth"};
        my $ok = &{"Test::More::$meth"}( @_ );
        # if( $ok ) { foreach my $meth ( $lang_f, $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13132	13325	
==>EANUP_NULL);\n  loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13976	14169	
==>EANUP_NULL);\n  loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/config/auto/jit.pm	971	1091	
==>/, $archname);

    if (!defined $osname) {
        ($osname, $cpuarch) = ($cpuarch, q{});
    }

    # This was added to <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30317	30445	
==>dtype\n";

        # Emit code to clone value types for the need_dest set case.
        if ($need_dest) {
            my $label = <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1587	1714	
==>r,
				TOKEN => \$token,
				VALUE => \$value,
				DOTPOS => \$dotpos,
				STACK => [],
				DEBUG => 0,
				CHECK => \$che <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1534	1655	
==>r,
				TOKEN => \$token,
				VALUE => \$value,
				DOTPOS => \$dotpos,
				STACK => [],
				DEBUG => 0,
				CHECK => \$che <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133955	134226	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134736	135007	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_ <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	5203	5335	
==>${cc},
            ccflags    => '-O2 -w-8066 -DWIN32 -DNO_STRICT -DNDEBUG -D_CONSOLE',
            cc_o_out   => '-o',
            c <==
3	/Users/nnunley/parrot/config/init/hints/solaris.pm	320	449	
==>!~ /-lpthread/) {
        $libs .= ' -lpthread';
    }
    if ($libs !~ /-lrt\b/) {
        $libs .= ' -lrt';    # Needed for sche <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4019	4125	
==>label_use($failLabel);
    if ($needed eq "1") {
        return "ge <rx_pos>, $lenvar, $fail # need $needed <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	31013	31111	
==>{
}

sub _op_call_with_output_file {
}

sub _op_input_port_p {
}

sub _op_output_port_p {
}

sub _o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404416	404668	
==>7,
                  "ARGS" => [
                              "s",
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 535 \"src/ops/io.ops\"\n    {{\@1}} = PIO_sockaddr <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1886	1980	
==>dent'} }
sub start_over_text    { ++$_[0]{'Indent'} }
sub start_over_block   { ++$_[0]{'Indent' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1454	1548	
==>dent'} }
sub start_over_text    { ++$_[0]{'Indent'} }
sub start_over_block   { ++$_[0]{'Indent' <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	756	858	
==>core_prefix()>

The core prefix is C<'cgp_'>.

=cut

sub core_prefix
{
    return "cgp_";
}

=item C<de <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688114	688203	
==>" => "#line 576 \"src/ops/pmc.ops\"\n   {{\@1}}->vtable->delprop(interpreter, {{\@1}}, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688886	688975	
==>" => "#line 576 \"src/ops/pmc.ops\"\n   {{\@1}}->vtable->delprop(interpreter, {{\@1}}, {{\ <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	2223	2350	
==>.2 and
        # -Wfoo isn't recognised there, move it up into the next version becone
        # (2.8)

        # Don't use -ans <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20626	20709	
==>Pod::Simple::PullParserStartToken>,
L<Pod::Simple::PullParserTextToken>, and
L<Pod:: <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2687	2770	
==>Pod::Simple::PullParserStartToken>,
L<Pod::Simple::PullParserTextToken>, and
L<Pod:: <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53211	53307	
==>ode,$line);

				$item = new Parse::RecDescent::UncondReject($lookahead,$line,$code);
				$prod a <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54920	55016	
==>ode,$line);

				$item = new Parse::RecDescent::UncondReject($lookahead,$line,$code);
				$prod a <==
3	/Users/nnunley/parrot/examples/benchmarks/arriter.pl	75	164	
==>xamples/benchmarks/arriter.pl 19601 2006-05-30T13:32:26.641316Z coke  $

=head1 NAME

exam <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	6	104	
==>l -w
use strict;
use lib qw(lib);

my $static_dir  = "runtime/builtin";
my $dynamic_dir = "src/buil <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	1183	1281	
==>ler itself.  If you can load PIR libraries from your
language, you can even use the existing PIR te <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	2951	3042	
==>d.

The regular expression specified by C<$ignorePattern> is passed to
C<file_checksum()> wh <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	4736	4857	
==>s thrown : $!", :$depends);
    }
    else {
        &Test::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. test u <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	99	215	
==>of (\d+) from .+?([\.\w]+)\n$/) {
		push @results, {
			name	=> $3,
			total	=> $2,
			done	=> $1,
			percent	=> <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	99	215	
==>of (\d+) from .+?([\.\w]+)\n$/) {
		push @results, {
			name	=> $3,
			total	=> $2,
			done	=> $1,
			percent	=> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1013020	1013311	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "err",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015171	1015462	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "err",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	7442	7617	
==>des2, new NoOp($parser);
                push @opcodes1, @opcodes2;
                return [ $result, \@opcodes1 ];
            }
        }
        else {
            $ke <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841106	841390	
==>{
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841869	842153	
==>{
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inl <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	5552	5704	
==>overed_calls} += $covered_calls;
                $file_call_coverage{$source_file} = $percent;
                next;
            }
        }

        fil <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1000	1099	
==>elf, tagname
  DEBUG > 2 and print "Handling $_[1] end-event\n";
  shift @{$_[0]{'_currpos'}};
  DEB <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18428	18513	
==>arser->head2_halfpoint_size( I<halfpoint_integer> );

=item $parser->head3_halfpoint_s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193590	193853	
==>r, {{\@1}}), {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194569	194832	
==>r, {{\@1}}), {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	17973	18095	
==>IF_TRUE
{
    my ($n, $c, $cmt) = @_;
    my $tos = pop @stack;
    my $targ = "pc_xxx";
    if ($c =~ /to (\d+)/) {
	$targ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	52806	52981	
==>'explist1', 1,
sub
#line 326 "Lua\lua51.yp"
{
            [ $_[1] ];
        }
	],
	[#Rule 55
		 'exp', 1, undef
	],
	[#Rule 56
		 'exp', 1,
sub
#line 335 "Lua\lua <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24706	24798	
==>tch_tagged($textref, $pre, $ldel, $rdel, $omode, $bad, $ignore);

		return _fail(wantarray, $ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7540	7631	
==>tch_tagged($textref, $pre, $ldel, $rdel, $omode, $bad, $ignore);

	return _fail(wantarray, $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496947	497208	
==>/ops/math.ops\"\n  {{\@1}} = floatval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497817	498078	
==>/ops/math.ops\"\n  {{\@1}} = floatval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498687	498948	
==>/ops/math.ops\"\n  {{\@1}} = floatval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/PMC.pm	645	754	
==>inuation => 24,
	Exception_Handler => 25,
	Coroutine => 26,
	Eval => 27,
	NCI => 28,
	Float => 29,
	Integer => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019852	1019942	
==>buffer[26];\n  Parrot_localtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020783	1020873	
==>buffer[26];\n  Parrot_localtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	658	760	
==>mbedded in their substution values. q[] is used in
# some places as Win32 paths have \'s in, which qq[] <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	616	718	
==>mbedded in their substution values. q[] is used in
# some places as Win32 paths have \'s in, which qq[] <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	620	722	
==>mbedded in their substution values. q[] is used in
# some places as Win32 paths have \'s in, which qq[] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627502	627754	
==>(interpreter, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628646	628898	
==>(interpreter, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	42354	42461	
==>----------------------

sub _verbatim_format {
  my($it, $p) = @_;
  
  my $formatting;

  for(my $i = 2; $i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298456	298725	
==>line",
                  "CODE" => 347,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 970 \"src/ops/cmp.ops\"\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786159	786246	
==>{{\@2}}->vtable->get_integer_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787070	787157	
==>{{\@2}}->vtable->get_integer_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133765	133901	
==>"
                            ],
                  "BODY" => "#line 321 \"src/ops/bit.ops\"\n  string_bitwise_xor(interpreter, {{\@1}}, { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134546	134682	
==>"
                            ],
                  "BODY" => "#line 321 \"src/ops/bit.ops\"\n  string_bitwise_xor(interpreter, {{\@1}}, { <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	38	123	
==>undation.
# $Id: /parrot/lib/Parrot/OpTrans/Compiled.pm 20333 2006-06-21T18:44:31.1115 <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	3429	3537	
==>ing
then this method will return true.

=cut

sub has_suffix
{
    my $self = shift;
    my $suffix = $self-> <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	5493	5596	
==>ue {
    close ARGV if eof; # Reset line numbering for each input file
}

unless ($options{'dry-run'}) { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332814	333147	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334092	334425	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335370	335703	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1092655	1092857	
==>GS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 196 \"src/ops/experimental.ops\"\n    {{\@1}} = {{\@2}}->vt <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	46302	46453	
==>block', 1,
sub
#line 75 "Lua\lua51.yp"
{
            PopScope( $_[0] );
            $_[1];
        }
	],
	[#Rule 8
		 'block', 3,
sub
#line 8 <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	9595	9714	
==>mplex.h
csqrt       complex.h
csqrtf      complex.h
csqrtl      complex.h
ctan        complex.h
ctanf       complex.h
ct <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	15775	15911	
==>f->ok( 0, $name );
        $self->diag("    '$regex' doesn't look much like a regex to me.");
        return $ok;
    }

    {
        lo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	639072	639173	
==>G_ACCESS,\n            \"No set_args with instantiate\");\n  }\n  sig = CONTEXT(interpreter->ctx)->con <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15845	15928	
==>.ent
 http://www.w3.org/TR/xhtml1/DTD/xhtml-special.ent
 http://www.w3.org/TR/xhtml1 <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	33128	33268	
==>($n, $c, $cmt, $sl_n) = @_;
    my ($v, $w, $vv, $ww);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	33877	34017	
==>($n, $c, $cmt, $sl_n) = @_;
    my ($v, $w, $vv, $ww);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	34801	34941	
==>($n, $c, $cmt, $sl_n) = @_;
    my ($v, $w, $vv, $ww);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	23	116	
==>03, The Perl Foundation.
# $Id: /parrot/config/auto/sizes.pm 20338 2006-06-22T16:18:58.705067Z <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688117	688205	
==>> "#line 576 \"src/ops/pmc.ops\"\n   {{\@1}}->vtable->delprop(interpreter, {{\@1}}, {{\@2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688889	688977	
==>> "#line 576 \"src/ops/pmc.ops\"\n   {{\@1}}->vtable->delprop(interpreter, {{\@1}}, {{\@2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663703	663875	
==>}}->vtable->delete_keyed(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664475	664647	
==>}}->vtable->delete_keyed(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	274	385	
==>use warnings";

package Jako::Token;


#
# CONSTRUCTOR:
#

sub new
{
  my $class = shift;
  my ($file, $line, $k <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	46363	46526	
==>cope( $_[0] );
            $_[1];
        }
	],
	[#Rule 8
		 'block', 3,
sub
#line 80 "Lua\lua51.yp"
{
            PopScope( $_[0] );
            [ @{ $_[ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3281	3385	
==>group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    while (my ($group, $pmcs) = each %$group <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3385	3489	
==>group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    while (my ($group, $pmcs) = each %$group <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18062	18163	
==>, "DO_$docounter:\n";
		push(@dos, { jump => $docounter, needstmt => 1 });
	}
}
sub parse_goto {
	feed <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	3516	3614	
==>turn (@null, keys %$start);
}

# Defaults
sub minlen { confess "unimplemented" }
sub maxlen { confe <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33128	33225	
==>l { 0 }
sub sethashname {}

sub describe ($)
{
	my $desc = $_[0]->{"implicit"} || $_[0]->{"subrule <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	8171	8286	
==>ore;
	my $score_return;
	my $_tok;
	my $return = undef;
	my $_matched=0;
	my $commit=0;
	my @item = ();'.($::RD_NO_H <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15861	15961	
==>aste this into a file and run it without there being
  #  dire screaming about the mysterious hard-hy <==
3	/Users/nnunley/parrot/config/gen/config_pm.pm	369	462	
==>ig_pm;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Bas <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5740	5851	
==>, $trigger) = @_;

    return
        unless defined $self->{triggers}{$key}
        and defined $self->{trigger <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6310	6421	
==>, $trigger) = @_;

    return
        unless defined $self->{triggers}{$key}
        and defined $self->{trigger <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8764	8851	
==>ath_for_directory_with_relative_path($path)>

Returns the path for the subdirectory with <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	248926	249313	
==>o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 289,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 670 <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	1448	1586	
==>f(Interp* interpreter,
                                        opcode_t* opcode_addr)
{
    INTVAL offset_in_ops;
    if (opcode_addr == NU <==
3	/Users/nnunley/parrot/config/auto/perldoc.pm	553	670	
==>@_;

    my $version = 0;
    my $a       = capture_output('perldoc -ud c99da7c4.tmp perldoc') || undef;

    if (defi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	622145	622340	
==>get_params_pc);\n    ((void**)cur_opcode)[1] = mic->m.sig;\n    {{+=0}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	329	433	
==>d
				&extract_bracketed
				&extract_quotelike
				&extract_codeblock
				&extract_variable
				&extract <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3092	3187	
==>ev/mk_manifest_and_skip.pl ', scalar( localtime() ), "\n";
print $MANI <<'END_HEADER';
#
# See t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176533	176830	
==>FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 211,
                  "AR <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32564	32707	
==>ine(
              $para->[1]{'start_line'},
              "Expected '=item $expected_value'"
            );
            # Text content will sti <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	463	564	
==>return bless {}, $invocant;
}


# Internal routine to emit code to really do any moves we've done lazi <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	17758	17919	
==>72
		}
	},
	{#State 68
		DEFAULT => -41
	},
	{#State 69
		DEFAULT => -43
	},
	{#State 70
		ACTIONS => {
			'NUM' => 57,
			">" => 73
		}
	},
	{#State 71
		DEFAULT <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	1195	1301	
==>The argument is incoming
    o   The argument is outgoing
    io  The argument is both incoming and outgoin <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	334	423	
==>tables.pl 19607 2006-05-30T15:23:20.183054Z coke  $' =~ /^\$[iI][dD]:\s(.*)\$$/;
my $filei <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034926	1035192	
==>NAME" => "find_lex",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 115 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036089	1036355	
==>NAME" => "find_lex",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 115 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605809	605946	
==>s"
                            ],
                  "BODY" => "#line 441 \"src/ops/object.ops\"\n    Parrot_add_attribute(interpreter, {{\ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15577	15698	
==>alDir( $parser,
        'result' => $result,
    );
    push @opcodes, new AssignOp( $parser,
        'result' => $res <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19330	19451	
==>alDir( $parser,
        'result' => $result,
    );
    push @opcodes, new AssignOp( $parser,
        'result' => $res <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9509	9605	
==>} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get details of method we're calling.
(${PTEM <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7023	7119	
==>} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get details of method we're calling.
(${PTEM <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5579	5675	
==>} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get details of method we're calling.
(${PTEM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6092	6292	
==>t_load_bytecode(interpreter, {{\@1}});\n    {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6758	6958	
==>t_load_bytecode(interpreter, {{\@1}});\n    {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	4377	4520	
==>iles/root.in' => 'languages/HQ9plus/Makefile',
        commentType                  => '#',
        replace_slashes              => 1,
        c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403361	403657	
==>DE" => 466,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket( <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22492	22604	
==>add_inst(''           ,'mod'   ,[$temp_0,$temp_0,$temp_1]);
  $self->_add_inst(''           ,'eq'    ,[$temp_0,1, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2045	2144	
==>my ($handler) = @_;

  if (not $self->prefix and $self->peer and $self->peer->prefix) {
    $self->p <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1922	2021	
==>my ($handler) = @_;

  if (not $self->prefix and $self->peer and $self->peer->prefix) {
    $self->p <==
3	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1840	1976	
==>"Can't read '$image_file': $!";
    my $image;
    local $/;
    binmode F;
    $_ = <F>;
    close F;

    my @c = split '';
    die "'$ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	7283	7391	
==>ach (@output4) {
        delete $_->{label} if ($_->{label} && ! $AMDEST{$_->{label}->{label}});
    }

    r <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	950	1037	
==>urn <<END;
#define REL_PC ((size_t)((opcode_t*)cur_opcode - (opcode_t*)interpreter->code <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1080	1167	
==>urn <<END;
#define REL_PC ((size_t)((opcode_t*)cur_opcode - (opcode_t*)interpreter->code <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	20157	20280	
==>hat knows how to test the language implementation
                require "Parrot/Test/$language.pm";
                my $cl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957478	957568	
==>src/ops/string.ops\"\n  INTVAL n = Parrot_encoding_number(interpreter, {{\@2}});\n  if (n < <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958383	958473	
==>src/ops/string.ops\"\n  INTVAL n = Parrot_encoding_number(interpreter, {{\@2}});\n  if (n < <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2344	2442	
==>pe;
    }

    $self->INTERNAL_ERROR("Can't determine type of formal argument (%s)!", $formal_arg_n <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2044	2142	
==>pe;
    }

    $self->INTERNAL_ERROR("Can't determine type of formal argument (%s)!", $formal_arg_n <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	15566	15657	
==>q I5, 1, CASE_${jump}_${incase}_NO_OR
	push P9, "or"
	push P9, "OP"
CASE_${jump}_${incase}_N <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459784	459885	
==>ine 282 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460772	460873	
==>ine 282 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461760	461861	
==>ine 282 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714681	714794	
==>erpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715604	715717	
==>erpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716549	716662	
==>erpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048363	1048588	
==>} = Parrot_get_global(interpreter, NULL, {{\@2}}, next);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049287	1049512	
==>} = Parrot_get_global(interpreter, NULL, {{\@2}}, next);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/config/gen/icu.pm	301	397	
==>ion @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Cwd qw(cwd);
use File:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483578	483736	
==>"
                            ],
                  "BODY" => "#line 455 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_except <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484577	484735	
==>"
                            ],
                  "BODY" => "#line 455 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_except <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485576	485734	
==>"
                            ],
                  "BODY" => "#line 455 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_except <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031476	1031585	
==>st_type || {{\@2}} >= enum_last_type)\n        {{\@1}} = -1;\n    else\n        {{\@1}} = data_types[{{\@2}} - <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032345	1032454	
==>st_type || {{\@2}} >= enum_last_type)\n        {{\@1}} = -1;\n    else\n        {{\@1}} = data_types[{{\@2}} - <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	9200	9295	
==>u.c' ) {
    print JITCPU "#define ECONST(i) (int *)(jit_info->cur_op[i] * sizeof(struct PackFil <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88772	89055	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89509	89792	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	8118	8250	
==>repeated up to N times
        return $max * $sublen;              # [m..sublen] repeated up to N times
    }
}

sub startset {
    m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732222	732495	
==>({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732968	733241	
==>({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	13650	13760	
==>{
    my $self = shift;
    
    print {$self->{'output_fh'}} 
        Parrot::Docs::HTMLPage->footer('', $self <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797810	797977	
==>kc",
                              "n"
                            ],
                  "BODY" => "#line 462 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed( <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	221	313	
==>based on a template describing how
the inlined tcl builtin works. Parameters specifying argum <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19178	19273	
==>I<halfpoint_integer> );

This method sets the size (in half-points, like 26 for 13-point)
that n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824534	824625	
==>ROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_str(entry->entry);\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825605	825696	
==>ROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_str(entry->entry);\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8200	8351	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9315	9466	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" = <==
3	/Users/nnunley/parrot/config/auto/readline.pm	1003	1116	
==>data->add(' ', libs => 'readline.lib');
        }
    } else {
        $conf->data->add(' ', libs => '-lreadline') <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1083	1206	
==>,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => $dest->file,
    LINE  => $dest->line
  }, $class;

  $block->push_cont <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1074	1197	
==>,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => $dest->file,
    LINE  => $dest->line
  }, $class;

  $block->push_cont <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	963	1086	
==>,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => $dest->file,
    LINE  => $dest->line
  }, $class;

  $block->push_cont <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51770	51867	
==>interpreter,   {{\@1}}); }\n  else         { Parrot_clear_trace(interpreter, PARROT_ALL_TRACE_FLAG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52553	52650	
==>interpreter,   {{\@1}}); }\n  else         { Parrot_clear_trace(interpreter, PARROT_ALL_TRACE_FLAG <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	2906	2996	
==>e unexpected result is false.

=item C<pir_output_is($code, $expected, $description)>

Runs <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987416	987726	
==>106,
                  "ARGS" => [
                              "i",
                              "ic",
                              "s",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497704	497872	
==>c",
                              "n"
                            ],
                  "BODY" => "#line 595 \"src/ops/math.ops\"\n  {{\@1}} = floatval_mod({{\@2}}, {{\@3 <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	7014	7137	
==>}{$meth})) {
            # create methods if they write
            $const->{has_method}{$meth} = $i++;
	    push @{ $const- <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	44972	45104	
==>g an S element,
                   #  or by an ancestor being an S element.

  for(my $i = 2; $i < @$treelet; ++$i) {
    if(ref $tre <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2440	2531	
==>_bullet { $_[0]->emit_par( 0) }
sub end_item_number { $_[0]->emit_par( 0) }
sub end_item_tex <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2008	2099	
==>_bullet { $_[0]->emit_par( 0) }
sub end_item_number { $_[0]->emit_par( 0) }
sub end_item_tex <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	9548	9711	
==>mbol} :optional\n";
        }
    }

    sub visitReturnDir {
        my $self  = shift;
        my ($dir) = @_;
        my $FH    = $self->{fh};
        pr <==
3	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	2045	2197	
==>rint '    ';
    my $i;
    for (@c) {
        printf "0x%02x", ord($_);
        ++$i;
        print ', ', if ($i < scalar(@c));
        print "\n    " u <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	621	709	
==>") unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');

  my <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	631	719	
==>") unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');

  my <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	631	719	
==>") unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');

  my <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1858	1968	
==>don't override the user even if the program they provided appears to be
    # broken
    if ($ret == -1 and !$c <==
3	/Users/nnunley/parrot/config/inter/make.pm	1732	1842	
==>don't override the user even if the program they provided appears to be
    # broken
    if ($ret == -1 and !$c <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1872	1982	
==>don't override the user even if the program they provided appears to be
    # broken
    if ($ret == -1 and !$c <==
3	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	1083	1225	
==>}

# ignore comments
comment:            m/^#[^\n]*\n/

# TODO: What does this means???
V1:                 "V1\n"

# for each macro we need: n <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	664	782	
==>er );

sub runstep
{
    my ($self, $conf) = @_;
    
    my $verbose = $conf->options->get('verbose');

    # undef me <==
3	/Users/nnunley/parrot/config/inter/lex.pm	674	788	
==>er );

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    # undef me <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	12681	12810	
==>10,
			'CHAR' => 4,
			"<" => 3,
			"[" => 14,
			'CODE' => 6,
			"." => 15
		},
		GOTOS => {
			'expr' => 11,
			'charclass' => 1 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	15236	15365	
==>10,
			'CHAR' => 4,
			"<" => 3,
			"[" => 14,
			'CODE' => 6,
			"." => 15
		},
		GOTOS => {
			'expr' => 11,
			'charclass' => 1 <==
3	/Users/nnunley/parrot/examples/benchmarks/addit.pl	641	744	
==>rgs[0] = 1000;
$args[1] = 7.100;
$args[2] = 87;
$args[3] = "3.87";
$args[4] = "21000000";
for (my $x = 5 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714565	714664	
==>n  PMC * const io = PIO_STDOUT(interpreter);\n  if (s && string_length(interpreter, s)) {\n    if (P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715488	715587	
==>n  PMC * const io = PIO_STDOUT(interpreter);\n  if (s && string_length(interpreter, s)) {\n    if (P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830266	830575	
==>> ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 939,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	7800	7974	
==>ew Myobj;               # constructor

                                    # scalar type accessor:
    $element_value = $obj->s;           # element value
    $obj->s('new val <==
3	/Users/nnunley/parrot/lib/Test/More.pm	30325	30463	
==>_eq_hash($e1, $e2);
            }
            elsif( $type eq 'REF' ) {
                push @Data_Stack, { type => $type, vals => [$e1, $e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	106551	106886	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107404	107739	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108258	108593	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561233	561528	
==>ARROT_JUMP_ENEXT",
                  "NAME" => "fetchmethod",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562316	562611	
==>ARROT_JUMP_ENEXT",
                  "NAME" => "fetchmethod",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	13063	13163	
==>syntax: $content"
    );
  }
  
  return;
}

#~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	7028	7147	
==>est_stem) = @_;

    $dest_stem ||= $src_stem;
    if (needs_build("$dest_stem$O", "$src_stem.c")) {
        run(compile <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5322	5441	
==>est_stem) = @_;

    $dest_stem ||= $src_stem;
    if (needs_build("$dest_stem$O", "$src_stem.c")) {
        run(compile <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7239	7358	
==>est_stem) = @_;

    $dest_stem ||= $src_stem;
    if (needs_build("$dest_stem$O", "$src_stem.c")) {
        run(compile <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561984	562242	
==>\"Method '%Ss' not found\", {{\@3}});\n  }\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563068	563326	
==>\"Method '%Ss' not found\", {{\@3}});\n  }\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9558	9651	
==>ess_text_token($token)>

Processes the specified text token. URLs which are not in link tags
a <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1119	1223	
==>unless ($pass) {
        my $file = Parrot::Test::slurp_file($out_f);
        $pass =$self->{builder}->is <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1160	1264	
==>unless ($pass) {
        my $file = Parrot::Test::slurp_file($out_f);
        $pass =$self->{builder}->is <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6437	6536	
==>1 and print "Saving blank line at line ${$self}{'line_count'}\n";
        push @{$paras->[-1]}, $lin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478952	479210	
==>{\@1}} = floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479844	480102	
==>{\@1}} = floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	2404	2504	
==>erated. The appropriate base class
header files are included.

If the C<noinit> flag was used, then n <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	19863	19977	
==>les) {
        if ($_->{'code'} =~ /\w\s+\w/) {
            die "Currently unable to build dispatch table for instr <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4632	4734	
==>where destination is the first
    # argument, given as --destination=DIRECTORY
    shift(@pmcs) =~ /-- <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4736	4838	
==>where destination is the first
    # argument, given as --destination=DIRECTORY
    shift(@pmcs) =~ /-- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	4394	4507	
==>$tok = $self->forth;

    printf STDERR "%6d : %-30s : %5s : %-15s: %1s : %s\n",
      $self->pos,
      $tok->fil <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4470	4580	
==>um/g;
		$push_num++;
	}

	# Return generated code.
	return $pir;
}

sub post_op($$) {
	# Nothing to do.
	return <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2886	2996	
==>um/g;
		$push_num++;
	}

	# Return generated code.
	return $pir;
}

sub post_op($$) {
	# Nothing to do.
	return <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28663	28767	
==>' . ($self->{"lookahead"} ? '$text = $_savetext;' : '' ) .'
';

	return $code;
}

1;

package Parse::RecD <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30741	30845	
==>' . ($self->{"lookahead"} ? '$text = $_savetext;' : '' ) .'
';

	return $code;
}

1;

package Parse::RecD <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32944	33048	
==>' . ($self->{"lookahead"} ? '$text = $_savetext;' : '' ) .'
';

	return $code;
}

1;

package Parse::RecD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197320	197428	
==>"BODY" => "#line 366 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198217	198325	
==>"BODY" => "#line 366 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199114	199222	
==>"BODY" => "#line 366 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126518	126618	
==>ine 271 \"src/ops/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127653	127753	
==>ine 271 \"src/ops/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128788	128888	
==>ine 271 \"src/ops/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = { <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	1915	2034	
==>2_t => 'int');
        print <<'END';

Can't find a int type with size 2, conversion ops might fail!

END
    }
    if ( <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9556	9660	
==>.c", 'test.cco', 'test.cco', $verbose)
        and confess "C compiler failed (see test.cco)";

    _run_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2295	2393	
==>s is a shortcut for C<< $token->type() eq "text" >>

=item $token->is_end

This is a shortcut for C <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1196	1327	
==>]->isa('ToBoolOp') ) {
        my $tobool = pop @{$opcodes};
        my $new    = pop @{$opcodes};
        my $loc    = pop @{$op <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	5091	5211	
==>ode .= "  register = r_$name + 1 \n";
        $code .= "  pir .= \$S0 \n";
        $code .= emit("a_$name = \$P%0", "r_$n <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	11907	12011	
==>f "foo\nbar\n" (i.e., between the \n and the EOS).
    }
  }
  $self->parse_lines(undef); # to signal EOF <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	119446	119689	
==>ine 231 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120301	120544	
==>ine 231 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121156	121399	
==>ine 231 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	372466	372684	
==>PIO_STDIN(interpreter), s);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1279	1409	
==>and( 
            "./parrot languages/$pasm_f",
            CD => '..', # $self->{relpath}, 
            STDOUT => $out_f, STDERR = <==
3	/Users/nnunley/parrot/lib/Test/More.pm	21207	21339	
==>e in the block"
          unless $Test->has_plan eq 'no_plan';
        $how_many = 1;
    }

    for( 1..$how_many ) {
        $Test- <==
3	/Users/nnunley/parrot/lib/Test/More.pm	23637	23769	
==>e in the block"
          unless $Test->has_plan eq 'no_plan';
        $how_many = 1;
    }

    for( 1..$how_many ) {
        $Test- <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	5204	5299	
==>ons which were called.\n", scalar(@external_calls));
    printf("Of these, %d are not defined by <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	520	619	
==>Parrot::Op;
use Parrot::OpTrans::C;

my $trans = Parrot::OpTrans::C->new;

my %type_to_arg = (
    I <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	828	945	
==>f ($cur eq '.' ) {
			append;
			fetch;
			$numtype="FLO";
			goto NUMCONST;
		}
		if ($cur =~ /[eEdD]/ and $next =~/[ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	891	991	
==>pression::Value');
  confess "Op is not scalar!" if ref $op;
  confess "Right is not Value!" unless U <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	903	1003	
==>pression::Value');
  confess "Op is not scalar!" if ref $op;
  confess "Right is not Value!" unless U <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	21173	21280	
==>nd @{ $stack[0] } == 3 and !ref $stack[0][2]) {
    # VERY common case: abort it.
    DEBUG and print "Skipp <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3452	3608	
==>sub YYLexer {
    my($self)=shift;

	$$self{LEX};
}


#################
# Private stuff #
#################


sub _CheckParams {
	my($mandatory, <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3277	3420	
==>sub YYLexer {
    my($self)=shift;

	$$self{LEX};
}


#################
# Private stuff #
#################


sub _CheckParams {
	my($mandatory, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	548	643	
==>=> sub { $_[0]->name }
;

use Jako::Token;

use Jako::Construct::Type::Integer;
use Jako::Constr <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19649	19749	
==>eedme;
		while($syms[CURR] ne "end") {
			my($name,$type);
			die "Syntax error in type $type[CURR]/$ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6404	6502	
==>itch_${CURIC}_LOOP:
if i == 0 goto POST_BRANCH_switch_${CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0[ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4342	4440	
==>itch_${CURIC}_LOOP:
if i == 0 goto POST_BRANCH_switch_${CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0[ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	4031	4138	
==>n->line);

  return $token;
}


#
# back()
#
# Moves the current token position $offset tokens backward. Ret <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	410411	410654	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "send",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411303	411546	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "send",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	5582	5705	
==>} 0 .. $#$col; 
        print "\n";
    }
    exit;
}

# Run The Benchmarks With Pretty Output
if ( ! $cfg{use_times} && @pr <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1006	1102	
==>of "head1", token(s) for its
content, and then an end-token with the tagname of "head1".

=item $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1434	1530	
==>of "head1", token(s) for its
content, and then an end-token with the tagname of "head1".

=item $ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	889	994	
==>nit {
	push @{$code{$seg}->{code}}, <<INIT;
	#
	# Program Begins Here
	# I must not fear. Fear is the mind <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	2935	3036	
==>alar(keys %$typedefs) . " typedefs.\n";
    my $cmd = "indent -kr -nce -sc -cp0 -l79 -lc79 -psl -nut - <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	68	164	
==>the environment
$Test::ALWAYS_CALLER = %*ENV<TEST_ALWAYS_CALLER>;

### GLOBALS

# globals to keep <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	68437	68544	
==>ec =~ s/\A\s+//;
			$lookahead = $lookahead<0
					? 'a negative lookahead ("...!")'
					: 'a positive look <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	33357	33457	
==>&_op_car,
  'cdr'      => \&_op_cdr,
  'set-car!' => \&_op_set_car_bang,
  'set-cdr!' => \&_op_set_cd <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	6141	6240	
==>, File::Spec->devnull) or die "Unable to redirect STDOUT";
select COPYOUT;
$| = 1;

my @max = $cfg{m <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	14663	14774	
==>rt_name =~ /runinterp/;
        $next   ||= $short_name =~ /runinterp/;

        if ($body =~ s/\brestart\s+OFFS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819751	820004	
==>(interpreter, entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820711	820964	
==>(interpreter, entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
3	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	372	469	
==>4  clintp
# Added autorun.bas, removed LOAD message, renamed intermediate compile files
#
# Revisi <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1501	1611	
==><< 16) << 16) { %f = %{$CODES{'32bit'}} }
  #else { %f = %{$CODES{'64bit'}} }

  my %s = (  # shift lengths
	S1 <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31979	32100	
==>rgs = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33556	33677	
==>rgs = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40613	40734	
==>rgs = grep {$n++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790248	790668	
==>[
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 892,
                  "ARGS" => [
                              "s",
                              "p",
                              "kic"
                            ],
                  "BODY" => "#line <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	4534	4674	
==>ft;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = newclosure $op->{ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	12489	12581	
==>9606 2006-05-30T15:08:05.048089Z coke  $

=head1 AUTHOR

Gregor N. Purdy E<lt>gregor@focusres <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3259	3361	
==>es, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    while (my ($grou <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3363	3465	
==>es, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    while (my ($grou <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19147	19247	
==>ment starts out:

  =head1 NAME
  
  Hooboy, stuff B<wow> yeah!

then $parser->get_short_title on tha <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2218	2321	
==>ion::Value::Identifier')) {
    my $right_sym = $block->find_symbol($right->value);
    $self->SYNTAX_ER <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2176	2279	
==>ion::Value::Identifier')) {
    my $right_sym = $block->find_symbol($right->value);
    $self->SYNTAX_ER <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2098	2201	
==>ion::Value::Identifier')) {
    my $right_sym = $block->find_symbol($right->value);
    $self->SYNTAX_ER <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511564	511787	
==>589,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 685 \"src/ops/math.ops\"\n  {{\@1}} = - {{\@2}};\n  {{ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6880	6998	
==>kip('colon');         }
sub skip_comma         { return shift->skip('comma');         }
sub skip_close_brace   { return <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	16421	16521	
==>Test::More's cmp_ok().

    $Test->cmp_ok($big_num, '!=', $other_big_num);

=cut

sub cmp_ok {
    my <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670547	670683	
==>"
                            ],
                  "BODY" => "#line 415 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->push_string(interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671320	671456	
==>"
                            ],
                  "BODY" => "#line 415 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->push_string(interpreter <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	7108	7221	
==>if -B $_;
	push(@files,$name);
    }, ".");
    return @files;
}

sub clip_excess_lines {
    my $cnt = defined $_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85617	85838	
==>mc_keyed_str(interpreter, compreg_hash, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86524	86745	
==>mc_keyed_str(interpreter, compreg_hash, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	8470	8577	
==>n
  $self->{regs}{P}{1} = 1;
  
  # expand the lexical scope
  $self->_add_inst('', '# new_pad', [-1]);
  my <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	17655	17918	
==>"PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18450	18713	
==>"PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	93	194	
==>::Tree::EXPORT = qw(rop);

# Tree operators
#
# This package defines operators that can be used to con <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1458	1559	
==>o construct an object of this class for
yourself, but if you want to, call
C<<
Pod::Simple::PullParser <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2610	2711	
==>o construct an object of this class for
yourself, but if you want to, call
C<<
Pod::Simple::PullParser <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1747	1848	
==>o construct an object of this class for
yourself, but if you want to, call
C<<
Pod::Simple::PullParser <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27390	27499	
==>{name} . '})
						if defined $::RD_TRACE;').'
		$lastsep = "";
		$Parse::RecDescent::lastexpected = q{' . ($r <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29500	29609	
==>{name} . '})
						if defined $::RD_TRACE;').'
		$lastsep = "";
		$Parse::RecDescent::lastexpected = q{' . ($r <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31597	31706	
==>{name} . '})
						if defined $::RD_TRACE;').'
		$lastsep = "";
		$Parse::RecDescent::lastexpected = q{' . ($r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404763	405071	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_netwo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405675	405983	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_netwo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406587	406895	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":base_netwo <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43051	43196	
==>DEFAULT => -86
	},
	{#State 191
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 3 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3931	4031	
==>);
  $value->sax($handler) if defined $value;
  $handler->end_element({ Name => 'return' });

  if (d <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	603004	603213	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "classname",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1096110	1096319	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "classname",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o", <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	53665	53760	
==>en successfully extracted, or until the string has been completely 
processed.

Note that in sca <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	30681	30799	
==>t
EOC
    push @stack, [-1, $x, 'P'];
}
# exceptions
sub SETUP_EXCEPT
{
    my ($n, $c, $cmt) = @_;
    my $targ = "pc_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10915	11022	
==>my $self = $_[0];
  my $fh = $self->{'output_fh'};
  return print $fh join '',
    $self->doc_init,
    $sel <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485393	485662	
==>PE" => "inline",
                  "CODE" => 555,
                  "ARGS" => [
                              "n",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 455 \"src/ops/math. <==
3	/Users/nnunley/parrot/config/init/hints/solaris.pm	2409	2570	
==>$conf->data->settrigger("gccversion", "solaris_cc_shared", $solaris_cc_shared_cb);

    ################################################################
    # Par <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62539	62644	
==>ode$argcode($1)");

					!$matchrule and $rule and $rule->addcall($name);
				}
				elsif ($grammar =~ m/$ <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	22770	22906	
==>ude,

        "vtable"        => \$action{default},
        "dump"          => \$action{dump},
        "c|gen-c"       => \$action{gen_c} <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	5958	6063	
==>ed $Undef;

my %Type; @Type{qw(bsd long)} = ();
$Type = 'bsd' if $BSD ||
		 (defined $Type && $Type eq '1' <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	2493	2592	
==>your own test libraries I<which can
work together>.

=head2 Construction

=over 4

=item B<new>

  m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404737	405061	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ": <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405649	405973	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ": <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406561	406885	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ": <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520941	521269	
==>":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 601,
                  "ARGS" => [
                              "i", <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	254	377	
==>onfigure;

    my $conf = Parrot::Configure->new;
    my $data = $conf->data;
    my $options = $conf->options;
    my @step <==
3	/Users/nnunley/parrot/lib/Test/More.pm	22037	22134	
==>he tests normally, but print out special flags indicating
they are "todo".  Test::Harness will int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204335	204602	
==>function",
                  "CODE" => 241,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 380 \"src/ops/cmp.ops\ <==
3	/Users/nnunley/parrot/config/auto/perldoc.pm	914	1147	
==>c4.tmp") {
                local $/;
                $a = <FH>;
                close FH;
                $version = 2;
                $self->set_result('yes');
            } else {
                $a = undef;
            }
        } <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	716	813	
==>arrot::Test::per_test('.py',$count);
    my $py_out_f = "$lang_f.out";
    my $pirate_out_f = Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60164	60373	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "warningsoff",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60813	61022	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "warningsoff",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i" <==
3	/Users/nnunley/parrot/config/auto/format.pm	1452	1563	
==>n't find a printf-style format specifier for type \"$nv\"\n";
    }

    $conf->data->set(
        intvalfmt   = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85302	85505	
==>" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 1208 \"src/ops/core.ops\"\n  PMC * const compreg_hash = VTABLE <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	393	495	
==>( $plan, @args );

    __PACKAGE__->_export_to_level( 2, __PACKAGE__ );
}

my $count;

foreach my $meth <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	310	412	
==>( $plan, @args );

    __PACKAGE__->_export_to_level( 2, __PACKAGE__ );
}

my $count;

foreach my $meth <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114868	115168	
==>JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115722	116022	
==>JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116577	116877	
==>JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1115	1215	
==>ame  = $self->name;

#  $self->DEBUG(0, "Searching for symbol '$name'...");

  my $sym = $self->block <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	312567	312653	
==>struct Parrot_Context_info info;\n  Parrot_Context_info(interpreter, CONTEXT(interprete <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	313299	313385	
==>struct Parrot_Context_info info;\n  Parrot_Context_info(interpreter, CONTEXT(interprete <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684387	684654	
==>function",
                  "CODE" => 768,
                  "ARGS" => [
                              "p",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 550 \"src/ops/pmc.ops\"\ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	804	908	
==>nd, n) : mark end of n-th paren match
# O (goto, label)
# O (label, name)
# O (increment, name [, amount] <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	2451	2551	
==>= (
    config_file  => File::Spec->catdir( $FindBin::Bin , 'parrotbench.conf' ),
    bench_path   => <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8032	8182	
==>CEPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Accept.\n";

				return($semval);
			};

                $$check eq <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7672	7813	
==>CEPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Accept.\n";

				return($semval);
			};

                $$check eq <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	38928	39044	
==>};
    push @opcodes2, new EndDir( $parser );
    foreach my $op (@opcodes2) {
        if ( $op and $op->isa('Bran <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	4115	4217	
==>. I use it to
hash passwords.

=item *

educational purposes

=back

=head1 SYNOPSIS

 # Functional sty <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	418	511	
==>s2pm.pl> and F<tools/build/pbc2c.pl>.

=head2 Op Functions

For ops that have trivial bodies ( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985255	985484	
==>"ic",
                              "sc",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_strin <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15245	15334	
==>ER
      $x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/e <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16426	16515	
==>ER
      $x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	274828	275224	
==>E" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 320,
                  "ARGS" => [
                              "i",
                              "n", <==
3	/Users/nnunley/parrot/config/auto/signal.pm	1974	2093	
==>h $name (split(' ', $Config{sig_name})) {
        print O ".constant SIG$name\t$i\n" if $i;
        $i++;
    }
    clos <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16660	16832	
==>sult' => $result,
                );
                push @opcodes, new FindLexOp( $parser,
                    'result' => $result,
                    'arg1'   => $def <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10815	10982	
==>sult' => $result, );
                    push @opcodes, new FindLexOp( $parser,
                        'result' => $result,
                        'arg1'   => $def <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	545	680	
==>py qw(copy);

# qq[] isn't guaranteed to work, but it's safer than "" as some platforms
# (eg FreeBSD) have ""s embedded in their substu <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	503	638	
==>py qw(copy);

# qq[] isn't guaranteed to work, but it's safer than "" as some platforms
# (eg FreeBSD) have ""s embedded in their substu <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	507	642	
==>py qw(copy);

# qq[] isn't guaranteed to work, but it's safer than "" as some platforms
# (eg FreeBSD) have ""s embedded in their substu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1624	1789	
==>MP" => 0,
                  "NAME" => "end",
                  "FLAGS" => ":base_core,check_event",
                  "ARGDIRS" => [],
                  "TYPE" => "in <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	470	590	
==>0 goto power_ok
%% DOMAIN_ERROR %%
power_ok:
    $N1 = %1
    $N2 = %2
    $N1 = pow $N1, $N2
	%1 = $N1

END_PIR

    '\x <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1356	1612	
==>1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hires( <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	1356	1612	
==>1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hires( <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	40296	40392	
==>d. The elements are:

=over 4

=item [0]

the extracted tagged substring (including the outermost <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	6975	7116	
==>mp'    , 8776,
 'ne'       , 8800,
 'equiv'    , 8801,
 'le'       , 8804,
 'ge'       , 8805,
 'sub'      , 8834,
 'sup'      , 8835,
 'nsub' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029862	1029973	
==>\");\n  }\n  next = Parrot_sleep_on_event(interpreter, {{\@1}}, next);\n  {{=next}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030704	1030815	
==>\");\n  }\n  next = Parrot_sleep_on_event(interpreter, {{\@1}}, next);\n  {{=next}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	7639	7800	
==>n_file( ">", $dump );

    my %vtable = (
        flags   => {},
        pre     => '',
        post    => '',
    );
    my %meth_hash;
    my $i = 0;
    foreac <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4964	5080	
==>"  $pmc_reg = $dest");
    $compiler->emit("  global \"$dest_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3027	3143	
==>"  $pmc_reg = $dest");
    $compiler->emit("  global \"$dest_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50206	50322	
==>\n  else         { Interp_flags_CLEAR(interpreter, PARROT_PROFILE_FLAG); }\n  {{=0,+=2}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50999	51115	
==>\n  else         { Interp_flags_CLEAR(interpreter, PARROT_PROFILE_FLAG); }\n  {{=0,+=2}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	1533	1646	
==>arrot_version[3];
        $#parrot_version = 3;
    }
    $parrot_version = join('.', @parrot_version);

    retur <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	3099	3201	
==>$_=$type[CURR];
			last unless $_;
			last if $_ =~ /STMT|COMM|COMP/;
			push @{$code{$seg}->{code}}, " <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11263	11361	
==>n
T=factorial(5)
print T!

' Correct and factorial of 4 is 24
function factorial(a)
	if a then fact <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2156	2283	
==>_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put var <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2448	2575	
==>_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put var <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2243	2370	
==>_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put var <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3289	3388	
==>ddress.

=item C<OP_SIZE>

Transforms to C<S>, the size of an op.

=item C<HALT()>

Transforms to C< <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206441	206530	
==>" => "#line 394 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207383	207472	
==>" => "#line 394 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653565	653674	
==>\"Method '%s' not found\", string_to_cstring(interpreter, {{\@3}}));\n    {{=resume}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654726	654835	
==>\"Method '%s' not found\", string_to_cstring(interpreter, {{\@3}}));\n    {{=resume}};\n",
                  " <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	931	1030	
==>($self, $class, $failLabel) = @_;
    return "rx_oneof P0, $class, ".$self->output_label_use($failLa <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	6254	6350	
==>--\n", scalar @UnParrotAPI;
    for my $api (@UnParrotAPI) {
	printf "%s\t%s\tNO_API\n", $api, $A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540689	540825	
==>lse if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n {{\@1}} = b<<p;\n {{+=4}};\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541941	542077	
==>lse if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n {{\@1}} = b<<p;\n {{+=4}};\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543193	543329	
==>lse if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n {{\@1}} = b<<p;\n {{+=4}};\n" <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12579	12710	
==>0,
		GOTOS => {
			'tableconstructor' => 46,
			'args' => 43,
			'key' => 45
		}
	},
	{#State 10
		ACTIONS => {
			"-" => 2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558050	558141	
==>r->current_object = object;\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_fi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559434	559525	
==>r->current_object = object;\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_fi <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	672	786	
==>$cc        = $conf->data->get('cc');
    my $libs      = $conf->data->get('libs');
    my $linkflags = $conf->data- <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	613	727	
==>$cc        = $conf->data->get('cc');
    my $libs      = $conf->data->get('libs');
    my $linkflags = $conf->data- <==
3	/Users/nnunley/parrot/config/auto/readline.pm	625	739	
==>$cc        = $conf->data->get('cc');
    my $libs      = $conf->data->get('libs');
    my $linkflags = $conf->data- <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	610	701	
==>1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullParser>, you might
get <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	516	607	
==>1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullParser>, you might
get <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	10883	11009	
==>bvious, so your class acts like every other class in
Perl.  Creating your class at compile time will make the order of events
s <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	23106	23228	
==>esult, \@opcodes ];
}

sub BuildLogop {
    my ( $parser, $expr1, $op, $expr2 ) = @_;
    my @opcodes = ();
    my $r <==
3	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	2293	2434	
==>t;
        my ($symb) = @_;
        if ( exists $self->{table}{$symb} ) {
            my $defn = $self->{table}{$symb};
            return <==
3	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	2673	2814	
==>t;
        my ($symb) = @_;
        if ( exists $self->{table}{$symb} ) {
            my $defn = $self->{table}{$symb};
            return <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	4672	4783	
==>emove leading
	s/\n(\# *\n)+\s*$/\n/s;     # remove trailing
	s/^\#//mg; # get rid of #
	#s/^( *\n)+//s;
	s/^\s* <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29020	29145	
==>tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 89
		DEFAULT => -109
	},
	{#State 90
		A <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6977	7072	
==>t"
print "Found  (5): ", instr(s1$, found$)
print "Bogus  (0): ", instr(s1$, bogus$)
print "Null <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18706	18801	
==>t"
print "Found  (5): ", instr(s1$, found$)
print "Bogus  (0): ", instr(s1$, bogus$)
print "Null <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319938	320045	
==>],
                  "BODY" => "#line 124 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (INTVAL)((Parrot_Int4)({{\@2}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320708	320815	
==>],
                  "BODY" => "#line 124 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (INTVAL)((Parrot_Int4)({{\@2}} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	817	923	
==>ttr("key", "newval")');
    return undef;
  }
}

1;


__END__

=head1 NAME

Pod::Simple::PullParserStartTok <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	817437	817605	
==>RGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 925,
                  "ARGS" => [],
                  "BODY" => "#line 610 \"src/ops/se <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16444	16562	
==>xyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
            return $x;
        }
    }

    foreach my <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9987	10090	
==>xyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
      return $x;
    }
  }
  foreach my <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550076	550179	
==>+3}};\n  interpreter->current_object = object;\n  interpreter->current_cont = NEED_CONTINUATION;\n  inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551377	551480	
==>+3}};\n  interpreter->current_object = object;\n  interpreter->current_cont = NEED_CONTINUATION;\n  inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552719	552822	
==>+3}};\n  interpreter->current_object = object;\n  interpreter->current_cont = NEED_CONTINUATION;\n  inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299550	299813	
==>e 975 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300396	300659	
==>e 975 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301242	301505	
==>e 975 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10108	10218	
==>e_path(shift);
    
    return unless $path;
    
    return -f $path;
}

=item C<directory_with_relative_path( <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4197	4300	
==>lags}->{noinit};
        $cout .= <<"EOC";
        Parrot_${class}_class_init(interpreter, type$class, p <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6189	6281	
==>$code{$seg}->{code}}, "\t_platform_shutdown()\n\tend\n";
		goto PARSE;
	}
	die "Unknown keywo <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	20353	20469	
==>opcode\t $rest";
	if ($rest =~ /to (\d+)/) {
	    $targ = "pc_$1";
	}
	$op = $op_map{$c};
    }
    elsif ($opcode eq <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	2535	2638	
==>->name;
  my @args  = $self->args;

  if ($type) {
    $handler->start_element({ Name => 'sub', Attribut <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	3229	3328	
==>less defined $pos;
  $self->INTERNAL_ERROR("Offset is not defined")   unless defined $offset;

#  DE <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2318	2472	
==>lass}::$name";
    my $self = bless { name => $name,
                       args => $args || [],
                       %opts }, $class;

    return $self- <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	31350	31454	
==>rt {
}

sub _op_read {
}

sub _op_read_char {
}

sub _op_peek_char {
}

sub _op_eof_object_p {
}

sub _op <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	38096	38193	
==>are:

=over 4

=item C<reject =E<gt> $listref>

The list reference contains one or more strings sp <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36835	36927	
==>ack

=head2 Parrot::Pmc2c::delegate Instance Methods

=over 4

=cut

package Parrot::Pmc2c::d <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253805	254096	
==>@1}} = {{\@2}} ? {{\@2}} : {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254668	254959	
==>@1}} = {{\@2}} ? {{\@2}} : {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255531	255822	
==>@1}} = {{\@2}} ? {{\@2}} : {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165265	165686	
==>> [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 199,
                  "ARGS" => [
                              "sc",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#l <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819562	819649	
==>ntry =\n    stack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820522	820609	
==>ntry =\n    stack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n\ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	809	904	
==>),
    ACCESS => $block->access_of_ident($token->text),
    TYPE   => $block->type_of_ident($tok <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1794	1902	
==>ut, $stderr, $ret) = capture_output($prog, '--version');

    # don't override the user even if the program t <==
3	/Users/nnunley/parrot/config/inter/make.pm	1668	1776	
==>ut, $stderr, $ret) = capture_output($prog, '--version');

    # don't override the user even if the program t <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1808	1916	
==>ut, $stderr, $ret) = capture_output($prog, '--version');

    # don't override the user even if the program t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46521	46750	
==>NEXT|PARROT_JUMP_RESTART",
                  "NAME" => "debug",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => " <==
3	/Users/nnunley/parrot/config/init/defaults.pm	4157	4278	
==>d directory
        blib_dir      => 'blib/lib',

        # libparrot library names
        libparrot_static => 'libparrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557825	557923	
==>xt = {{^+3}};\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  interpreter->current_co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559209	559307	
==>xt = {{^+3}};\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  interpreter->current_co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	603284	603548	
==>,
                  "TYPE" => "inline",
                  "CODE" => 683,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 404 \"src/ops/object.ops\"\ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	13302	13414	
==>tial stuff emitted.
    ehs = bc.get_eh()
    if null ehs goto NO_EH_HEADER
    i = elements ehs
    gen_pir = co <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10115	10200	
==>,0xd4ef3085,/* 43 */
HH,$b,$c,$d,$a,$_[10],23,0x4881d05,/* 44 */
HH,$a,$b,$c,$d,$_[13] <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	51922	52073	
==>a51.yp"
{
            [ $_[1], $_[2] ];
        }
	],
	[#Rule 48
		 'var', 2,
sub
#line 288 "Lua\lua51.yp"
{
            [ @{ $_[1] }, $_[2] ] <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	3387	3489	
==>hile (my ($class, $info) = each %classes) {
	next if $info->{flags}->{noinit};
        $cout .= <<"EOC" <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4135	4237	
==>hile (my ($class, $info) = each %classes) {
	next if $info->{flags}->{noinit};
        $cout .= <<"EOC" <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	14004	14125	
==>extalt);
    my ($S_back, @S_ops) = $self->rewrite($S, $back);

    return $S_back, (
                     aop('pushmark') <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	2858	2962	
==>_I(interpreter, &st, return_data);",
       l => "set_nci_I(interpreter, &st, return_data);",
       s => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653594	653849	
==>ring_to_cstring(interpreter, {{\@3}}));\n    {{=resume}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654755	655010	
==>ring_to_cstring(interpreter, {{\@3}}));\n    {{=resume}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	253	350	
==>e
    % perl tools/dev/parrot_coverage.pl recompile
    % perl tools/dev/parrot_coverage.pl 

=hea <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93385	93658	
==>@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94165	94438	
==>@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485432	485683	
==>E" => 555,
                  "ARGS" => [
                              "n",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 455 \"src/ops/math.ops\"\n  FLOATVAL den <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	5971	6071	
==>ed in Parrot ignoring all SVN and ICU
files.

Note that if there are files with no suffix then the em <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835697	835781	
==>215 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836450	836534	
==>215 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user <==
3	/Users/nnunley/parrot/config/inter/make.pm	1474	1602	
==>>set_result('no');
            return $self;
        }
    }

    if ($conf->options->get('ask')) {
        $prog = prompt($promp <==
3	/Users/nnunley/parrot/config/auto/format.pm	1486	1604	
==>cifier for type \"$nv\"\n";
    }

    $conf->data->set(
        intvalfmt   => $ivformat,
        floatvalfmt => $nvfo <==
3	/Users/nnunley/parrot/config/auto/format.pm	487	613	
==>s = ();

sub runstep
{
    my ($self, $conf) = @_;

    my ($ivformat, $nvformat, $nvsize);
    my ($iv,       $nv,       $floa <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1028	1124	
==>ant to catch.

=head1 DESCRIPTION

This class is of
interest to people writing Pod formatters bas <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3039	3130	
==>' => 'README file',
	'RELEASE_INSTRUCTIONS' => 'Project info',
	'RESPONSIBLE_PARTIES' => 'Pr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876671	877033	
==>se_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 994,
                  "ARGS" => [
                              "s", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028014	1028111	
==>/ops/sys.ops\"\n  opcode_t *next = {{^+2}};\n  if ({{\@1}} < 0) {\n      real_exception(interprete <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028865	1028962	
==>/ops/sys.ops\"\n  opcode_t *next = {{^+2}};\n  if ({{\@1}} < 0) {\n      real_exception(interprete <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914535	914985	
==>,
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1030,
                  "ARGS" => [
                              "i",
                              "s",
                              "sc",
                              "i"
                            ],
                  "BODY" => " <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33983	34101	
==>pe};
        $ret_def = "$type ret_val;";
        $func_ret = $self->gen_ret($method->{type});
        $ret = "return r <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38945	39063	
==>pe};
        $ret_def = "$type ret_val;";
        $func_ret = $self->gen_ret($method->{type});
        $ret = "return r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544513	544635	
==>(a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n gcd = b<<p;\n saved_var1 /= gcd;\n {{\@1}} = saved_v <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545849	545971	
==>(a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n gcd = b<<p;\n saved_var1 /= gcd;\n {{\@1}} = saved_v <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547185	547307	
==>(a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n gcd = b<<p;\n saved_var1 /= gcd;\n {{\@1}} = saved_v <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	513925	514157	
==>GS" => [
                              "n",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 708 \"src/ops/math.ops\"\n   {{\@1}} = pow((FLOATVAL){ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819680	819770	
==>_exception(99, \"Stack Depth wrong\");\n  }\n  {{\@1}} = get_entry_type(interpreter, entry) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820640	820730	
==>_exception(99, \"Stack Depth wrong\");\n  }\n  {{\@1}} = get_entry_type(interpreter, entry) <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	4298	4393	
==>urn on stepping mode
	\$P0=new .PerlHash
	\$P1["break"]= \$P0  # Breakpoints
	\$P0=new .PerlArra <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78928	79016	
==>tring_to_cstring(interpreter, ({{\@3}}));\n\n  void * const p = Parrot_dlsym(PMC_IS_NULL( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80449	80537	
==>tring_to_cstring(interpreter, ({{\@3}}));\n\n  void * const p = Parrot_dlsym(PMC_IS_NULL( <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31153	31256	
==>c2c qw( gen_ret );

=item C<implements($method)>

Always true for vtables.

=cut

sub implements
{
    m <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39773	39876	
==>c2c qw( gen_ret );

=item C<implements($method)>

Always true for vtables.

=cut

sub implements
{
    m <==
3	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	502	596	
==>e that this is only done for development versions of Parrot, i.e. the
file F<DEVELOPING> exists <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	4563	4676	
==>, $op, $min, $max, $greedy, $R, @rest) = @_;

    if (($min == 0) && defined($max) && ($max == 1)) {
        retur <==
3	/Users/nnunley/parrot/config/gen/platform.pm	4496	4603	
==>gen/platform/generic/$_";
        if (-e "config/gen/platform/$platform/$_") {
            $impl_file = "con <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15483	15582	
==>expected, Str $desc?) returns Bool;

Because these functions will be mutually recursive, they will e <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3184	3279	
==>$new->nix_X_codes(1);
  $new->nbsp_for_S(1);
  $new->accept_targets( 'rtf', 'RTF' );

  $new->{' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	2081	2175	
==>uct for $class" unless $self;

  $self->{'token_buffer'} ||= [];
  $self->{'start_token_class'} <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	15468	15579	
==>usable_regex = length $opts ? "(?$opts)$re" : $re;
    }

    return $usable_regex;
};

sub _regex_ok {
    my($ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1106	1200	
==>dent->kind eq 'var') and ($self->ident->scope eq 'global')) {
    my $pmc_type = $self->ident-> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1100	1194	
==>dent->kind eq 'var') and ($self->ident->scope eq 'global')) {
    my $pmc_type = $self->ident-> <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	44873	44985	
==>i-1], ">\n";


    my @new_line;
    while( $formatting =~ m{\G(( +)|(\^+)|(\/+)|(\%+))}g ) {
      #print "Forma <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2948	3053	
==>ne one should be skipped"
Label2:
   PRINT "4 back in subroutine one"
   RETURN Label1
Sub2:
   PRINT "3 i <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16915	17020	
==>ne one should be skipped"
Label2:
   PRINT "4 back in subroutine one"
   RETURN Label1
Sub2:
   PRINT "3 i <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	15300	15410	
==>ocal pmc result 
    result = new 'APLVector'
    # Loop through each vector, doing the ops.
    .local pmc ite <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	16386	16496	
==>ocal pmc result 
    result = new 'APLVector'
    # Loop through each vector, doing the ops.
    .local pmc ite <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	27120	27221	
==>stback, aop('external' => [ $extname, $extargs, $lastback ]));
    }
}

sub describe_seq { undef };
su <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	2567	2698	
==>nfig/gen/makefiles/dynpmc.in' => 'src/dynpmc/Makefile',
        commentType                          => '#',
        replace_slashes <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	19250	19353	
==>nown instruction (code "
	str_ic = cur_ic
	err = concat str_ic
	err = concat ")"
    ex["_message"] = er <==
3	/Users/nnunley/parrot/examples/benchmarks/primes.pl	212	310	
==>ers < 10000

=head1 SYNOPSIS

    % time perl examples/benchmarks/primes.pl

=head1 DESCRIPTION

Ca <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	778	899	
==>f);
    Parrot::Test::write_code_to_file( $code, $lang_f );

    my $cmd;
    my $exit_code = 0;
    my $pass = 0;

    $c <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	815	936	
==>f);
    Parrot::Test::write_code_to_file( $code, $lang_f );

    my $cmd;
    my $exit_code = 0;
    my $pass = 0;

    $c <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	2316	2424	
==>ock) {
    if (defined $name) {
      $self->SYNTAX_ERROR("No loop '%s' in loop control.", $name);
    } else <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8408	8515	
==>k> # popindex");
    if ($self->{DEBUG}) {
        push @ops, 'print "POPPED: "', "print <rx_tmp>", 'print " <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7882	7981	
==>t happen (int)"
i%=54
if i% then print "This is true" else print "Oops (int)"
i=0
if i then print "S <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14869	14968	
==>t happen (int)"
i%=54
if i% then print "This is true" else print "Oops (int)"
i=0
if i then print "S <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	50787	50951	
==>ule 40
		 'funcname', 3,
sub
#line 235 "Lua\lua51.yp"
{
            PrepareMethod( $_[0] );
            [
                @{ $_[1] },
                BuildLi <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	4553	4661	
==>y $self = bless { PREAMBLE => '' }, $class;

    $self->read_ops($_, $nolines) for @{$files};

    # FILE hol <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26140	26247	
==>that we need to insert to handle enum fixups if this is
    # an instruction that needs it.
    my $pre_tran <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	5563	5693	
==>'    , 947,
 'delta'    , 948,
 'epsilon'  , 949,
 'zeta'     , 950,
 'eta'      , 951,
 'theta'    , 952,
 'iota'     , 953,
 'kap <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	389	512	
==>ty";
}


#
# debug()
#

sub debug
{
  my $self = shift;

  if (@_) {
    $self->{DEBUG} = shift;
  }

  return $self->{DEBUG <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6541	6638	
==>bels{$syms[CURR]}:   # For user branch ($syms[CURR])\n";
		debug() if $debug;
		$currline="$labels <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	7183	7298	
==>$index:";
	$comment    = "/* ". $op->full_name() ." */";
    }
    else {
        $definition = "$prototype;\n$opsar <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	534	639	
==>ed number of ops performed,

=item * the elapsed time, and 

=item * the number of M op/s.

=back

=cut

s <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	537	641	
==>ed number of ops performed,

=item * the elapsed time, and

=item * the number of M op/s.

=back

=cut

s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841590	841678	
==>line 40 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},0);\n  {{+=3}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842354	842442	
==>line 40 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},0);\n  {{+=3}} <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36218	36341	
==>nt, but we still want to use
        # this mechanism. Ugly, huh?
        unless ($mv->{'ARG0'}) {
            $mv->{'ARG0'} <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	5110	5210	
==>ect 3
print 5-2
' Expect 3 also
print 5+-2
' Expect 0
print 6-abs(-6)


' Some register confusion, ex <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	57689	57782	
==>ng, otherwise extract anything up to a comma...">.
The undef third argument means:
I<"...as ma <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10616	10730	
==>ak("Error in driver logic. Please, report it as a BUG");

}#_Parse
#DO NOT remove comment

1;

}
#End of in <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10139	10245	
==>ak("Error in driver logic. Please, report it as a BUG");

}#_Parse
#DO NOT remove comment

1;

}
#End of in <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	8787	8881	
==>t);
    Parrot_store_arg(interpreter, st);
}

static void
set_nci_N(Interp *interpreter, struct <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107187	107494	
==>{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108041	108348	
==>{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108895	109202	
==>{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887947	888207	
==>"s",
                              "s",
                              "i",
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_repl <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	1727	1861	
==>han
    $I100 = isgt %1, %2
    %1 = $I100
END_PIR

    $P0['dyadic:=']       =  <<"END_PIR"            # equal
    $I100 = iseq %1, %2 <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	19619	19771	
==>t_${class}_$meth";
        }
        else {
            $defaulted = 1;
            $meth_name = "Parrot_default_$meth";
        }
        # normal vtabl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3443	3563	
==>ib}) {
      $fnlib = $props{fnlib}->value; # TODO: We should make sure its a string, somewhere.
    }
    else {
      $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6107	6227	
==>ib}) {
      $fnlib = $props{fnlib}->value; # TODO: We should make sure its a string, somewhere.
    }
    else {
      $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117896	118121	
==>line 226 \"src/ops/bit.ops\"\n  {{\@1}} >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118635	118860	
==>line 226 \"src/ops/bit.ops\"\n  {{\@1}} >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	2664	2802	
==>) && (*jit_info->prev_op $1 $opcodes{$2})/g;
            $header .= $line;
            next;
        }
        # ignore comment and empty l <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151010	151105	
==>" => "#line 112 \"src/ops/cmp.ops\"\n  if (0 == string_equal(interpreter,\n      {{\@1}}->vtable <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151988	152083	
==>" => "#line 112 \"src/ops/cmp.ops\"\n  if (0 == string_equal(interpreter,\n      {{\@1}}->vtable <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	339	429	
==>::Step::Base> module contains utility methods that
should be inherited by all configuration <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44928	45018	
==>=> "#line 737 \"src/ops/core.ops\"\n  Parrot_pop_mark(interpreter, {{\@1}});\n  {{+=2}};\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45570	45660	
==>=> "#line 737 \"src/ops/core.ops\"\n  Parrot_pop_mark(interpreter, {{\@1}});\n  {{+=2}};\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133098	133475	
==>{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131388	131697	
==>{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132243	132552	
==>{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor" <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	4746	4845	
==>.MAX_SMOKES_OF_SAME_CATEGORY-1]
  ] for keys %cats;

  my %delete = map { $_->{filename} => 1 } @smo <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	219	314	
==>UNIVERSAL ();
sub DEBUG () {0}

$Computerese =  " lang='und' xml:lang='und'" unless defined $Com <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	327	415	
==>ako::Construct::Block::Conditional::Unless;

use Carp;

use base qw(Jako::Construct::Bloc <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	9402	9527	
==>rn ($N1)
two:
    $N1 = cos op2
    .return ($N1)
three:
    $N1 = tan op2
    .return ($N1)
four:
    $N1 = op2 * op2
    $N1 <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	7841	7957	
==>"Can't save     stdout" if $out;
    open  OLDERR, ">&STDERR" or die "Can't save     stderr" if $err;

    open  STDO <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7891	8005	
==>"Can't save     stdout" if $out;
    open OLDERR, ">&STDERR" or die "Can't save     stderr" if $err;

    open STDO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494364	494620	
==>{\@1}} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495232	495488	
==>{\@1}} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496100	496356	
==>{\@1}} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193577	193725	
==>ng(interpreter, {{\@1}}), {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194556	194704	
==>ng(interpreter, {{\@1}}), {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	8230	8313	
==>REG_OFFS_INT(jit_info->cur_op[x])
#define ROFFS_NUM(x) REG_OFFS_NUM(jit_info->cur_op <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27177	27287	
==>";

        # Add pre-translate code, if any.
        $pir .= sub_meta($pre_translate_code, $mv, "pre-translate <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34316	34426	
==>";

        # Add pre-translate code, if any.
        $pir .= sub_meta($pre_translate_code, $mv, "pre-translate <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	25	113	
==>, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Configure/Step/Base.pm 20321 2006-06-20T <==
3	/Users/nnunley/parrot/config/auto/aio.pm	462	574	
==>= qw(verbose);

sub runstep
{
    my ($self, $conf) = (shift, shift);

    my $test;
    my $verbose = $conf->opt <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29194	29295	
==>ps\"\n    opcode_t * const this = CUR_OPCODE;\n    parrot_context_t *caller_ctx, *ctx;\n    PMC *ccont <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	1183	1288	
==>ile (keys %pmcs) {
        $pmcs{$file}->{vtable} = $vtable_dump;
        $pmcs{$file} = Parrot::Pmc2c->ne <==
3	/Users/nnunley/parrot/config/gen/config_h.pm	340	438	
==>ific header
information, and F<include/parrot/feature.h> with information on optional
features.

=c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598152	598269	
==>g_to_cstring( interpreter, {{\@2}} ));\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599199	599316	
==>g_to_cstring( interpreter, {{\@2}} ));\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213157	213248	
==>f (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_NUMCMP) <= 0) {\n    {{+={{\@3}}}};\ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29246	29388	
==>76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41352	41494	
==>76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44498	44640	
==>76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86 <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21540	21646	
==>= @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(1);
  my $temp = $self->_ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21925	22031	
==>= @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(1);
  my $temp = $self->_ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	64251	64352	
==>ag (and the failure mode was not
"MAX" or "PARA").




=back


=head1 AUTHOR

Damian Conway (damian@co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037754	1038009	
==>NULL, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038535	1038790	
==>NULL, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	5199	5300	
==>-of-stream

    } elsif(exists $self->{'source_scalar_ref'}) {

      DEBUG and print "$self 's source <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959326	959548	
==>_trans_encoding(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960128	960350	
==>_trans_encoding(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5304	5449	
==>rst, $fail"
              unless $first == 0;
            push @ops, "lt <rx_tmp>, $last, $pass";
        } else {
            push @ops, "ge <rx_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623017	623124	
==>t cc;\n    int n;\n\n    ctx = CONTEXT(interpreter->ctx);\n    mic = (Parrot_MIC *) cur_opcode[1];\n    ccon <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627373	627466	
==>before its init method\n   * copies the registers. */\n  {{\@1}} = pmc_new_noinit(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628517	628610	
==>before its init method\n   * copies the registers. */\n  {{\@1}} = pmc_new_noinit(interpreter, <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4165	4275	
==>pe).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2581	2691	
==>pe).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1891	2001	
==>pe).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	1890	1987	
==>od')
		),
		$self->new_group('Library', '',
		    $self->new_item('PASM/IMC access to Parrot confi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822333	822420	
==>ry->entry_type != STACK_ENTRY_INT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823401	823488	
==>ry->entry_type != STACK_ENTRY_INT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wro <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	37613	37708	
==><not> the pattern
that matched the tag). For example, if the opening tag pattern
is specified as <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4116	4209	
==>Passing arrays (expect 12)
function arrfunc(x())
	print x(4)
	arrfunc=55
end function
dim g(10 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15056	15149	
==>Passing arrays (expect 12)
function arrfunc(x())
	print x(4)
	arrfunc=55
end function
dim g(10 <==
3	/Users/nnunley/parrot/lib/Test/More.pm	31934	32031	
==>to eq_array(), except the order of the elements is B<not>
important.  This is a deep check, but th <==
3	/Users/nnunley/parrot/lib/File/Which.pm	6715	6810	
==>ch/index.html for more
information.

=head1 License

This library is free software; you can redi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361714	361813	
==>terpreter, INTVAL_FMT, {{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Han <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362613	362712	
==>terpreter, INTVAL_FMT, {{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Han <==
3	/Users/nnunley/parrot/config/auto/isreg.pm	144	238	
==>ig/auto/isreg - S_ISREG

=head1 DESCRIPTION

Determines if the C library has a working C<S_ISRE <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2310	2420	
==>f->SYNTAX_ERROR("Expression involves unknown variable %s.", $right->value) unless $right_sym;
    $right_type = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2268	2378	
==>f->SYNTAX_ERROR("Expression involves unknown variable %s.", $right->value) unless $right_sym;
    $right_type = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2190	2300	
==>f->SYNTAX_ERROR("Expression involves unknown variable %s.", $right->value) unless $right_sym;
    $right_type = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575979	576401	
==>RS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 658,
                  "ARGS" => [
                              "p",
                              "p",
                              "s"
                            ],
                  "BODY" => "#l <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	1074	1249	
==>]};
            }
            else {
                die "Unknown type: ".$type;
            }

            $_[0] = &threads::shared::share($_[0]);

            if( $type eq 'H <==
3	/Users/nnunley/parrot/config/auto/socklen_t.pm	68	157	
==>o/socklen_t.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/socklen <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	9591	9709	
==>ndef;
    my $file = <SLURP> . '';
    $file =~ s/\cM\cJ/\n/g;
    close SLURP;

    return $file;
}

sub convert_line_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423600	423692	
==>c/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_listen(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	424497	424589	
==>c/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_listen(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}} <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	15675	15801	
==>, $call_pkg ) if ( keys %extra );
            local *{ $call_pkg . '::TODO' } = \$extra{todo}
                if defined $extra <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	18226	18352	
==>, $call_pkg ) if ( keys %extra );
            local *{ $call_pkg . '::TODO' } = \$extra{todo}
                if defined $extra <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4077	4182	
==>die "copy command requires destination";
    my $dest = $1;

	my $core_suffix;
    foreach $core_suffix (v <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2137	2226	
==>rns undef if unknown
  }
}

#------------------------------------------------------------- <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2602	2691	
==>rns undef if unknown
  }
}

#------------------------------------------------------------- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216755	216952	
==>"p",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 462 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_numbe <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27231	27325	
==>$pir .= sub_meta($pre_translate_code, $mv, "pre-translate for $rule->{'name'}");

		# If we hav <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34370	34464	
==>$pir .= sub_meta($pre_translate_code, $mv, "pre-translate for $rule->{'name'}");

		# If we hav <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15757	15863	
==>e style-smarts.
  # We don't want to change the "-" to hard-hyphen, because we want to
  #  be able to past <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	2540	2635	
==>mc', split(/\s*,\s*/, $entry->[2]));
        $defs .= "typedef $entry->[0] (*$entry->[1]_method_ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1772	1889	
==>urn "<rx_pos> += $distance;";
    } elsif ($distance < 0) {
        return "<rx_pos> -= $distance;";
    }
}

sub outp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841585	841675	
==>=> "#line 40 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},0);\n  {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842349	842439	
==>=> "#line 40 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},0);\n  {{+= <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	8124	8230	
==>pty-string as a source for set_source");
  } else {  # It's a filename!
    DEBUG and print "$self 's sourc <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1860	1948	
==>ko::Construct::Expression::Value::Identifier')) {
    my $left_sym = $block->find_symbol( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1818	1906	
==>ko::Construct::Expression::Value::Identifier')) {
    my $left_sym = $block->find_symbol( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1740	1828	
==>ko::Construct::Expression::Value::Identifier')) {
    my $left_sym = $block->find_symbol( <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	7838	7985	
==>ey->[0],
            'arg2'   => $val->[0],
            'result' => $result,
        );
    }
    push @opcodes1, @opcodes2;
    return [ $res <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356693	356912	
==>reter, INTVAL_FMT, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357353	357572	
==>reter, INTVAL_FMT, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
3	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	1352	1457	
==>ame is 'translit'
# substitution: 'translit'
macro:              flag name_len ',' substitution_len name s <==
3	/Users/nnunley/parrot/tools/build/vtable_extend.pl	1696	1792	
==>This happens when an embedding application calls
   them to do stuff with PMCs, STRINGS, interpre <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6277	6367	
==>'}} $self->{'Tagmap'}{$tagname};
    }
}

=item C<process_item_text_or_head_start_token($to <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101165	101422	
==>",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103371	103628	
==>",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3343	3441	
==>ring =~ m/(^"|^".*?[^\\])\$/) { # Double-quote with an unescaped '$'.
      $string = substr($strin <==
3	/Users/nnunley/parrot/Configure.pl	4866	4989	
==>ot_version Configure 2.0
$svnid
END
      exit;
    };

    m/help/    && do {
      print <<"EOT";
$0 - Parrot Configure 2. <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	1310	1421	
==>lex => $lexer,
			    yyerror => sub {
				my $parser = shift;
				die "Error: expected ".join(" ", $parser->YYE <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	699	791	
==>d1 DESCRIPTION

This module contains configuration data for use by the other
L<Parrot::Config <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	13252	13354	
==>";
    }

    unless($precompiled){
    print JITCPU "\nstatic $jit_fn_retn\n" .$core_opfunc[$i] . $fun <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	36389	36487	
==>tion of C<"> as an embedded quoter:

	@result = extract_bracketed( $text, '<>' );

the result would <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2799	2933	
==>Error("Invalid escape sequence $_ .\n"),
                last;
        }
    }

    $parser->Error("Untermined string.\n");
    $ <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4314	4448	
==>Error("Invalid escape sequence $_ .\n"),
                last;
        }
    }

    $parser->Error("Untermined string.\n");
    $ <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	3548	3650	
==>^-?\d+$/){
		$forward_off = -$forward_off if $dir eq '-';

		if($forward_off != $op->size){
		    $lead <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	8678	8808	
==>arams = shift;

    my @params;

    while ($params =~ m/(\w+\*?) (\w+)/g)
    {
        push @params, $1, $2;
    }

    return @p <==
3	/Users/nnunley/parrot/config/auto/msvc.pm	78	169	
==>19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/msvc.pm - Microsoft Visu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	251952	252173	
==>ODE" => 293,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 708 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1909	2106	
==>slash, quotation mark, apostrophe
                last;
            s/^\\a//
                and $str .= "\a",      # bell
                last;
            s/^\\b//
                and $str . <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3423	3620	
==>slash, quotation mark, apostrophe
                last;
            s/^\\a//
                and $str .= "\a",      # bell
                last;
            s/^\\b//
                and $str . <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	25371	25497	
==>_letter\""
      );
      return;
    }
    
    if(grep $new_letter eq $_, @Known_formatting_codes) {
      DEBUG > 2 and prin <==
3	/Users/nnunley/parrot/config/inter/lex.pm	2250	2360	
==>~ /f?lex .*? (\d+) \. (\d+) \. (\d+)/x) {
        $conf->data->set(flex_version => "$1.$2.$3");
    }

    $con <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	5656	5745	
==>="String" defStyleNum="dsString" color="#FF6C6C" selColor="#FF6C6C" bold="0" italic="0" /> <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19312	19446	
==>6
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24248	24382	
==>6
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28230	28364	
==>6
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29 <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	2926	3051	
==>ef for undefined idenfiers in #if
            # ? -Wbad-function-cast
            #   Warn whenever a function call is cast to <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10836	10943	
==>${CURIC}:
PIR

    $pir .= _do_lazy_moves('_${CURIC}');

    $pir .= <<'PIR';
# If there is a return type, n <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	18585	18692	
==>s ctor.

    Changed to two-argument blessing in ctor to support
    derivation from created classes.

    A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999551	999916	
==>lass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1117 <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	2666	2843	
==>2c.pl                            [devel]
    tools/build/ops2pm.pl                           [devel]
    tools/build/pbc2c.pl                            [devel]
    tools/build/r <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	7736	7908	
==>as_typeinfo = 1;
            }
        }
		
        # Unknown key.
        else {
            die "Unknown key $_ in rule $rule->{'name'}\n";
        }
    }

    # Check we <==
3	/Users/nnunley/parrot/config/gen/icu.pm	394	482	
==>le::Basename;
use Parrot::Configure::Step qw(capture_output cc_gen cc_clean);

$descripti <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	24914	25028	
==>um} = bc.read_tfield()\n    next_pc += 4\n";
			$arg_name = "I_ARG_$arg_num";
		}

        # tmethod
		elsif (/^tme <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28591	28694	
==>:RD_NO_HITEM ? ''
			       : '$item{'.$self->{hashname}.'}=') . '$&;
		' . ($self->{"lookahead"} ? '$te <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30669	30772	
==>:RD_NO_HITEM ? ''
			       : '$item{'.$self->{hashname}.'}=') . '$&;
		' . ($self->{"lookahead"} ? '$te <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5964	6071	
==>MMD_/);
    next if ($entry->[4] =~ /_INT$/);
    next if ($entry->[4] =~ /_STR$/);
    next if ($entry->[4] <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6382	6489	
==>MMD_/);
    next if ($entry->[4] =~ /_INT$/);
    next if ($entry->[4] =~ /_STR$/);
    next if ($entry->[4] <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	625	730	
==>nformation', 
        'info.html', 
        'The conventional, generally all-caps, project information fil <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28350	28443	
==>$::RD_TRACE;').'

			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched t <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30427	30519	
==>$::RD_TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched t <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32627	32719	
==>$::RD_TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched t <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	11906	12030	
==>} = $p;
    $lexicals{$c} = $p;
}

sub STORE_GLOBAL {
    my ($n, $c, $cmt) = @_;
    my $tos = pop @stack;
    my $p = $tos- <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4468	4578	
==>_num/g;
		$push_num++;
	}

	# Return generated code.
	return $pir;
}

sub post_op($$) {
	# Nothing to do.
	retu <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2884	2994	
==>_num/g;
		$push_num++;
	}

	# Return generated code.
	return $pir;
}

sub post_op($$) {
	# Nothing to do.
	retu <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	4369	4488	
==>ig/makefiles/root.in' => 'languages/HQ9plus/Makefile',
        commentType                  => '#',
        replace_slas <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6350	6458	
==>ough the array.
WHILE Exchange          ' Sort until no elements are exchanged.
   Exchange=FALSE
   ' Compar <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16003	16111	
==>ough the array.
WHILE Exchange          ' Sort until no elements are exchanged.
   Exchange=FALSE
   ' Compar <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17441	17581	
==>' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 42
		ACTIONS => {
			'NAME' => 96
		}
	},
	{#State 43
		DEFAULT => -8 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	135	223	
==>as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/Loop/ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	132	220	
==>as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/Loop/ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	132	220	
==>as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/Loop/ <==
3	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	2200	2299	
==>$frozen = <>;
}
#print Dump( $frozen );

# Parse the freeze-state
my $symtab = $frozen_parser->froze <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28239	28329	
==>cDescent::_trace(q{<<Didn\'t match terminal>>},
						  Parse::RecDescent::_tracefirst($tex <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32514	32604	
==>cDescent::_trace(q{<<Didn\'t match terminal>>},
						  Parse::RecDescent::_tracefirst($tex <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649937	650227	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "valid_type",
                  "FLAGS" => "",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650858	651148	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "valid_type",
                  "FLAGS" => "",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	17335	17434	
==>hisoffset, 'to'=>undef},
				'line'   => {'from'=>$thisline,   'to'=>undef},
				'column' => {'from' <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26026	26142	
==>push @opcodes, @{ $cond->[1] };
        push @opcodes, new BranchUnlessOp( $parser,
            'arg1'   => $cond-> <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26900	27008	
==>push @opcodes, @{ $cond->[1] };
    push @opcodes, new BranchUnlessOp( $parser,
        'arg1'   => $cond-> <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	5950	6054	
==>otAPI) {
	printf "%s\t%s\tMISSING_API\n", $api, "-";
    }
}

if (@NoParrotPrefix) {
    printf "--- No P <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	33315	33449	
==>rint <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = t <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	34064	34198	
==>rint <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = t <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	34988	35122	
==>rint <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = t <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4598	4708	
==>{
    # Copy *.so -> destination, where destination is the first
    # argument, given as --destination=DIRECTO <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4702	4812	
==>{
    # Copy *.so -> destination, where destination is the first
    # argument, given as --destination=DIRECTO <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3914	4021	
==>{
	# Copy *.so -> destination, where destination is the first
    # argument, given as --destination=DIRECTO <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	10143	10260	
==>K_COUNT}++);

      $prefix = $namespace unless defined $prefix;

      if ($kind eq 'while') {
        $loop = Jako:: <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6628	6741	
==>ne="$labels{$syms[CURR]}";
		feedme;  # Get the :
		goto PARSE
	}
	
	# function assignment...  WRONG-O!
	#     Don <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	1895	1997	
==>ns the Parrot Assembler code and passes the test if a string comparison
of the output with the expected <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	8185	8317	
==>, $protos);
}

sub find_type
{
    my $type    = shift;

    my %typemap =
    (
        'STRING*'  => 'Parrot_STRING',
        'void <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	5821	5936	
==>le to
#  check(1)
#  match(a)
#  check(1)
#  match(b)
#  check(1)
#  match(c)
#
# where check(n) is "am I closer tha <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	1372	1481	
==><$test_h>;
    $line =~ /^use Parrot::Test tests => (\d+)/;
    my $num_tests = $1;
    next READLINE unless $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552867	552960	
==>interpreter, method_pmc);\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556862	556955	
==>interpreter, method_pmc);\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560885	560978	
==>interpreter, method_pmc);\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2159	2262	
==>ogrammer wanted to shadow the
  # previous definition.
  #

  if (defined $sym and $sym->block eq $block <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1906	2009	
==>ogrammer wanted to shadow the
  # previous definition.
  #

  if (defined $sym and $sym->block eq $block <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9706	9792	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sub esc {
  if(defined wanta <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2007	2192	
==>v    N1, N1, N2
$N2 = 1000000.0;              # set    N2, 1000000.0
$N1 = $N1 / $N2;              # div    N1, N1, N2
                              #
print "M op/s:        $N1\n"; # pri <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	2007	2192	
==>v    N1, N1, N2
$N2 = 1000000.0;              # set    N2, 1000000.0
$N1 = $N1 / $N2;              # div    N1, N1, N2
                              #
print "M op/s:        $N1\n"; # pri <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	10390	10507	
==>y \%rx_match;
#     if (<rx_mode>) {
#         (<rx_input>, <rx_pos>, <rx_stack>) = \@_;
#         \$rx_match{'!INPUT' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947169	947397	
==>t\"charset '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948071	948299	
==>t\"charset '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	7484	7612	
==>eally does make things pretty.
        #
        while(1) {
          push @to_unget, $self->get_token;
          pop(@to_unget), <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32602	32757	
==>ine'},
              "Expected '=item $expected_value'"
            );
            # Text content will still be there and will block next ~Para

          } <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	1475	1616	
==>null
	# expressions to optional matches:
        #
        # opt(aR|aS) => a(R|S)
        # opt(R|)    => opt(R)?
        # opt(|R)    => opt( <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	14345	14441	
==>e regular
expressions as arguments, but need to work before perl 5.005.

Takes a quoted regular e <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	8022	8191	
==>e        => $entry->[0],
                section     => $entry->[3],
                mmd         => $entry->[4]
            };
    }
    $vtable{'has_method'} = \%meth_ha <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	1882	1997	
==>s/^\[(.*?)\]//;
    next if $package eq "";
    my %meta;
    @meta{split(/,/, $meta)} = ();
    $meta{$_} = 1 for ( <==
3	/Users/nnunley/parrot/tools/dev/pbc_header.pl	1094	1204	
==>open IN, $version_file or die "Can't read $version_file";
    my $v = <IN>;
    close IN;
    $v =~ /^(\d+)\.(\ <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	655	781	
==>rbose');

    my $cc        = $conf->data->get('cc');
    my $libs      = $conf->data->get('libs');
    my $linkflags = $conf-> <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	596	722	
==>rbose');

    my $cc        = $conf->data->get('cc');
    my $libs      = $conf->data->get('libs');
    my $linkflags = $conf-> <==
3	/Users/nnunley/parrot/config/auto/readline.pm	608	734	
==>rbose');

    my $cc        = $conf->data->get('cc');
    my $libs      = $conf->data->get('libs');
    my $linkflags = $conf-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502477	502701	
==>6 \"src/ops/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503216	503440	
==>6 \"src/ops/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/config/inter/encoding.pm	1055	1153	
==>or src/pmc/Makefile
    (my $TEMP_encoding_o = $encoding_list) =~ s/\.c/\$(O)/g;

    my $TEMP_enco <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961121	961442	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962083	962404	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963045	963366	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FL <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	667	786	
==>1;

    $desc = $language unless $desc;

    # Figure out how many levels we have to go back to get to parrot.
    # And <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33940	34059	
==>e 'void') {
        my $type = $method->{type};
        $ret_def = "$type ret_val;";
        $func_ret = $self->gen_ret( <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38902	39021	
==>e 'void') {
        my $type = $method->{type};
        $ret_def = "$type ret_val;";
        $func_ret = $self->gen_ret( <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44359	44500	
==>ND' => 208
		}
	},
	{#State 202
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"%" => 76, <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7281	7377	
==>sh   "
print ">";ltrim$(a$)
print rtrim$(a$);"<"
' A's and -'s
print string$(10,75-10)
print stri <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19010	19106	
==>sh   "
print ">";ltrim$(a$)
print rtrim$(a$);"<"
' A's and -'s
print string$(10,75-10)
print stri <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5874	6001	
==>) {

				defined($$token)
            or	do {
				($$token,$$value)=&$lex($self);
#DBG>				$debug & 0x01
#DBG>			and	print <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5595	5716	
==>) {

				defined($$token)
            or	do {
				($$token,$$value)=&$lex($self);
#DBG>				$debug & 0x01
#DBG>			and	print <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	56	147	
==>6-25T03:57:27.771662Z petdance  $

=head1 NAME

tools/build/c2str.pl - constant string suppo <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29471	29578	
==>ne of \${DEST0} or \${LOADREG} in rule " .
				"$rule->{'name'}\n";
		}

		# Now call pre_load and append co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197958	198246	
==>],
                  "TYPE" => "inline",
                  "CODE" => 234,
                  "ARGS" => [
                              "ic",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 366 \"src/ops <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	17986	18093	
==>it"} ? '' : ' && !$commit')
	. ')
	{
		' .
		($self->changesskip()
			? 'local $skip = defined($skip) ? $ski <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	14613	14709	
==>f if it's argument is not recognised.

For example, a version of like(), sans the useful diagnost <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8096	8315	
==>}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13196	13415	
==>}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14040	14259	
==>}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126541	126656	
==>ps\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127676	127791	
==>ps\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128811	128926	
==>ps\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	18826	18926	
==>h style tree to dispatch
    # to the translation code for an instruction in something like O(log(n)) <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2392	2475	
==>mples/benchmarks/mops.pasm>,
F<examples/mops/mops.c>,
F<examples/mops/mops.cs>,
F<ex <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	2392	2475	
==>mples/benchmarks/mops.pasm>,
F<examples/mops/mops.c>,
F<examples/mops/mops.cs>,
F<ex <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2010	2108	
==>5 then print "Wrong" else print "Ok"
if 6<5 then print "Wrong" else print "OK"
if 4<=5 then print " <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	176	271	
==>ly similar to the generated subs in Parrot::Test.
Perhaps someone can do a better job of delegat <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	274	369	
==>ly similar to the generated subs in Parrot::Test.
Perhaps someone can do a better job of delegat <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	4987	5084	
==>ted, @todo )>

Determine the language from the extension of C<$example_f> and runs
language_output <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	5200	5297	
==>ted, @todo )>

Determine the language from the extension of C<$example_f> and runs
language_output <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	5415	5512	
==>ted, @todo )>

Determine the language from the extension of C<$example_f> and runs
language_output <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	424308	424541	
==>RGS" => [
                              "i",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 567 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_lis <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14970	15068	
==>ould not happen (flo)"
i=55
if i then print "This is true" else print "Oops (flo)"

' Passing array <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31182	31309	
==>}

sub BuildForList {
    my ( $parser, $vars, $exprs, $block ) = @_;
    my @opcodes1 = ();
    my @opcodes2 = ();
    my <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5562	5673	
==>_libs {
    my @pmcs = @_;

    my ( %group_files, %group_libs, %pmc_group, %pmc_libs );
    for my $pmc (@pmcs) <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5773	5884	
==>_libs {
    my @pmcs = @_;

    my ( %group_files, %group_libs, %pmc_group, %pmc_libs );
    for my $pmc (@pmcs) <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10005	10097	
==>{PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURI <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7519	7611	
==>{PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURI <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6483	6575	
==>{PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948296	948505	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949095	949304	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i <==
3	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	1837	1940	
==>OOP
	end

ENDMAINLOOP:
	branch MAINLOOPR 
ENDMAINLOOPNR:
	branch MAINLOOPNR

EOF

# Includes and constan <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33937	34079	
==>"+" => 75,
			"/" => 82,
			"," => 167,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			"<= <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	2023	2139	
==>matically from
# $f by config/gen/parrot_include.pm
#
# Any changes made here will be lost.
#
EOF
                pri <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	1348	1450	
==>copy pen play poke preset print using
				pset put
			random randomize read redim rem reset restore res <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	252645	252934	
==>"i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 294,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 713 \"src/ops/cm <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938478	938617	
==>p"
                            ],
                  "BODY" => "#line 481 \"src/ops/string.ops\"\n    {{\@1}} = string_join(interpreter, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939368	939507	
==>p"
                            ],
                  "BODY" => "#line 481 \"src/ops/string.ops\"\n    {{\@1}} = string_join(interpreter, {{\@ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	12986	13120	
==>HAR' => 4,
			"<" => 22,
			"+" => 24,
			'CODE' => 6,
			"(" => 10,
			"|" => 26,
			"*" => 27,
			"\$" => 29,
			"[" => 14,
			"." => <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	709	807	
==>mplemented for current stack to register mapper\n";
}

# Pre and post stack operation (op class ins <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	55314	55411	
==>regular expression, or string).
The key of that element is the name of a class into which the succ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1180	1273	
==>th YY (leading YY will be discarded)
my(%params)=(YYLEX => 'CODE', 'YYERROR' => 'CODE', YYVER <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1138	1230	
==>th YY (leading YY will be discarded)
my(%params)=(YYLEX => 'CODE', 'YYERROR' => 'CODE', YYVER <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687618	687913	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688389	688684	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	255	347	
==>eze>;
use Digest::MD5 qw<md5_hex>;
use HTML::Template;
use Algorithm::TokenBucket;
use Time:: <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	281	389	
==>P6C parse tree to a native tree.

=cut

sub convert_p6tree {
    my ($self, $tree, $ctx) = @_;
    if (ref($t <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1661	1763	
==>";0], <rx_pos> # group 0 start := pos');
}

sub output_increment {
    my ($self, $distance, $failLabel <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	14306	14393	
==>urn @out;
}

}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	916	1026	
==>< "EOF";
/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically <==
3	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1117	1227	
==>< "EOF";
/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically <==
3	/Users/nnunley/parrot/tools/build/revision_c.pl	492	601	
==><"EOF";
/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741540	741827	
==>" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 834,
                  "A <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21524	21629	
==>y ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(1);
  my <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21909	22014	
==>y ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(1);
  my <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129872	130143	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130611	130882	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_c <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	22719	22832	
==>as") {
			my $var=$syms[CURR];
			feedme;  # "as"
			feedme;  # type.
			die "Unknown type $syms[CURR]" unless exi <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76709	76813	
==>~ /\d+/
	    && $::RD_TRACE>1
	    && $::RD_TRACE+10<length($_[0]))
	{
		my $count = length($_[0]) - $::R <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77020	77124	
==>~ /\d+/
	    && $::RD_TRACE>1
	    && $::RD_TRACE+10<length($_[0]))
	{
		my $count = length($_[0]) - $::R <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2818	2913	
==>elf, $addr) = @_;
    return "opcode_to_prederef(interpreter, $addr)";
}

=item C<expr_offset($o <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/State.pm	268	407	
==>c ||= '';
    return bless { name => 'LABEL',
                   label => $label,
                 }, 'Regex::Ops::Label';
}

sub genlabel { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095136	1095223	
==>DY" => "#line 223 \"src/ops/experimental.ops\"\n  Parrot_Exec_OS_Command(interpreter, {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095831	1095918	
==>DY" => "#line 223 \"src/ops/experimental.ops\"\n  Parrot_Exec_OS_Command(interpreter, {{ <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1060	1184	
==>hift;
    my ($msg) = @_;

    $msg ||= ".\n";

    if ( exists $parser->YYData->{nb_info} ) {
        $parser->YYData- <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18009	18114	
==>sub _op_reverse {
}

sub _op_list_ref {
}

sub _op_memq {
}

sub _op_memv {
}

sub _op_member {
}

sub _op <==
3	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1561	1656	
==>$trees = Regex::expr_to_tree($pattern, $ctx, DEBUG => 0);

    my $driver = Regex::Driver->new(' <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9617	9734	
==>DBG>			and	print STDERR "**At eof: aborting.\n";
				return(undef);
			};

#DBG>			$debug & 0x10
#DBG>		and	print <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9184	9296	
==>DBG>			and	print STDERR "**At eof: aborting.\n";
				return(undef);
			};

#DBG>			$debug & 0x10
#DBG>		and	print <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	18856	18960	
==>eturn $_[2]; }
	],
	[#Rule 6
		 'regex', 1,
sub
#line 99 "lib/Regex/Grammar.y"
{ return op('scan' => [ $_ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	27983	28079	
==>e (or at index zero, if no C<pos>
position is defined).

=head2 General behaviour in list context <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028147	1028240	
==>back in time\");\n  }\n  next = Parrot_sleep_on_event(interpreter, (FLOATVAL) {{\@1}}, next);\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028998	1029091	
==>back in time\");\n  }\n  next = Parrot_sleep_on_event(interpreter, (FLOATVAL) {{\@1}}, next);\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347406	347796	
==>_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 405,
                  "ARGS" => [
                              "p",
                              "sc",
                              " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550026	550123	
==>object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+3}};\n  interpreter->current_object = object;\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551327	551424	
==>object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+3}};\n  interpreter->current_object = object;\n <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2305	2420	
==>/tcl co -d $DIR tcl/tests
END_COMMAND

    return ($rc == 0) ; # just care if it failed, not howm
}

##
## my $var = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787980	788086	
==>{{\@2}}->vtable->get_number_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788890	788996	
==>{{\@2}}->vtable->get_number_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  " <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	6159	6251	
==>$ops->preamble($trans);
$text =~ s/\bops_addr\b/${bs}ops_addr/g;
print SOURCE $text;


if ($t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	371397	371484	
==>_exception(interpreter, NULL, PIO_ERROR,\n\t\t\"Cannot read line from empty filehandle\" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	371534	371621	
==>_exception(interpreter, NULL, PIO_ERROR,\n\t\t\"Cannot read line from empty filehandle\" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	811	896	
==>IVERSAL::isa($ident, qw(Jako::Construct::Expression::Value::Identifier));
  confess "V <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	330918	331210	
==>));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "close",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7403	7528	
==>mand
{
    my ($command, $out, $err, $verbose) = @_;

    if ($verbose) {
        print "$command\n";
    }

    # Mostly copi <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	833	934	
==>turn "cgp_";
}

=item C<defines()>

Returns the C C<#define> macros required by the ops.

=cut

sub de <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662520	662840	
==>i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 740,
                  "ARGS" => [
                              "i",
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 339 \"src/op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597749	597969	
==>677,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 351 \"src/ops/object.ops\"\n  PMC *class = Parrot_c <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1304	1404	
==>e");
    $compiler->emit("  $pmc_reg = $ident");
    $compiler->emit("  global \"$ident_name\" = $pmc <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1298	1398	
==>e");
    $compiler->emit("  $pmc_reg = $ident");
    $compiler->emit("  global \"$ident_name\" = $pmc <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	6625	6718	
==>Copyright 1995-1996 Neil Winton.
 Copyright 1991-1992 RSA Data Security, Inc.

The MD5 algorit <==
3	/Users/nnunley/parrot/config/init/hints/solaris.pm	3438	3558	
==>ags => '-xlibmieee')
                unless $linkflags =~ /-xlibmieee/;
        }
        $conf->data->deltrigger("gccver <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	3927	4036	
==><",
		 }->{$test};

    if ($dest->{name} eq 'goto') {
        return aop('if', [ $op1, $test, $op2, $dest->[1 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	28906	29002	
==>e "Expected rule!" unless ref($tree) eq 'Regex::Ops::Tree::rule';

    my (undef, @ops) = $self-> <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3383	3506	
==>oup_files) {
        my @pmcfiles = map { "$_.pmc" } @$pmcs;
        if (needs_build("$group.c", @pmcfiles)) {
            r <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3487	3610	
==>oup_files) {
        my @pmcfiles = map { "$_.pmc" } @$pmcs;
        if (needs_build("$group.c", @pmcfiles)) {
            r <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	14407	14515	
==>tinue->new($parent_block, $peer_block);
        $self->push_block($loop) if defined $cont;
      }
      elsi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40280	40655	
==>" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 51,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1487	1579	
==>propogating.
	return <<'PIR';
.local string strPC
.local int stack_depth
.local pmc prop_type <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	574	666	
==>propogating.
	return <<'PIR';
.local string strPC
.local int stack_depth
.local pmc prop_type <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	2471	2573	
==>ne 'BARE');
	goto BARE if (! iskeyword($syms[CURR]));

	# The "unimplementeds"
	# Eat tokens until we g <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714675	714773	
==>ce(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, PIO_ST <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715598	715696	
==>ce(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, PIO_ST <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716543	716641	
==>ce(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, PIO_ST <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	7233	7369	
==>bSs]$/) {
		    if ($type =~ /^[Ss]$/) {
			$small  = 1;
			$uninit = 1;
		    }
		    $zeroed = 1;
		}
		if ($^O eq 'irix' && $type =~ / <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	2943	3054	
==>pt(aR|aS|aT) -> a opt(R|S|T)
        # opt(aR|aS|bT) -> (a opt(R|S) | opt(bT))
        # opt(R|...) -> (opt(R)|o <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	26088	26190	
==>er) = extract_tagged($text);


 # Extract the initial substring of $text that is bounded by
 # a C<BEGI <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	12024	12129	
==>- - - - - - - - -

sub _handle_encoding_second_level {
  # By time this is called, the encoding (if well f <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4114	4211	
==>stack_depth

# Get type (so we can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2530	2627	
==>stack_depth

# Get type (so we can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21888	21993	
==>lf->get(1)->is_if or $self->get(1)->is_unless) {
        $cond = $self->forth->text;

        $self->requi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22821	22926	
==>lf->get(1)->is_if or $self->get(1)->is_unless) {
        $cond = $self->forth->text;

        $self->requi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24468	24573	
==>lf->get(1)->is_if or $self->get(1)->is_unless) {
        $cond = $self->forth->text;

        $self->requi <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	15927	16042	
==>mt);
}

sub BINARY_ADD
{
    my ($n, $c, $cmt) = @_;
    binary('+', $cmt);
}

sub BINARY_SUBTRACT
{
    my ($n, $c, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712452	712542	
==>" \");\n  s = Parrot_sprintf_c(interpreter, \"%.12g\", (double){{\@1}});\n  PIO_putps(inter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713559	713649	
==>" \");\n  s = Parrot_sprintf_c(interpreter, \"%.12g\", (double){{\@1}});\n  PIO_putps(inter <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	5827	5975	
==>m('', 'mmd'),
        ),
        $self->new_group(
            'Extensions', 
            '',
            $self->c_pair_item('', 'extend'),
        ) <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	4620	4726	
==>tation directory.

=cut

sub html_docs_directory
{
    my $self = shift;
    
    return $self->docs_direct <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12895	12987	
==>yntactally invalid (as with a name of "1/4"), this returns undef.

=item $Name2character{I<na <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	1050	1143	
==>bc.html', '', 'languages/bc'),
        $self->new_section('Befunge', 'befunge.html', '', 'lang <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	3523	3615	
==>ntation is not complete.  C<level>, for example, is
still shared amongst B<all> Test::Builder <==
3	/Users/nnunley/parrot/config/gen/platform.pm	14	105	
==>) 2001-2006, The Perl Foundation.
# $Id: /parrot/config/gen/platform.pm 19593 2006-05-30T02: <==
3	/Users/nnunley/parrot/examples/benchmarks/freeze.pl	637	743	
==>= time();
printf "freeze time %.6f\n", $e-$s;

$s = time();
my @b = @{ thaw $image };
$e = time();
printf " <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4269	4365	
==>core)>

Returns the C code for the run core function declaration.

=cut

sub run_core_func_decl
{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2757	2853	
==>core)>

Returns the C code for the run core function declaration.

=cut

sub run_core_func_decl
{ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	6700	6835	
==>ts$/) {
            if ($has_args) {
                die "Duplicate value for arguments in rule $rule->{'name'}\n";
            } else { <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	6778	6905	
==>s defined $suffix;
    
    my $recursive = shift;
    my $ignore = shift;
    my @files = ();
    
    foreach my $file ($self- <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3986	4093	
==>'.Integer']);
      $self->_add_inst ('', 'set',[$to,$from]);
    } elsif ($from =~ /N/) {
      $self->_add <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	7414	7613	
==>"#line 171 \"src/ops/core.ops\"\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8050	8249	
==>"#line 171 \"src/ops/core.ops\"\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	5193	5362	
==>UG > 1 and print "# Setting nextline to $1\n";
          $self->{'line_count'} = $1 - 1;
        }
        
        next;
      }
    }
    
    # . . . . . . . . . . . . <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703333	703738	
==>ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 789,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic", <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	9127	9224	
==>l_state *st, STRING *val)
{
    Parrot_init_ret_nci(interpreter, st, "S");
    UVal_str(st->val) = <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	8990	9083	
==>, $thisparser;
	':'') . ($parser->{_check}{prevoffset}?'
	my $prevoffset;
	tie $prevoffset, q{ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2646	2744	
==>>compile($compiler);

  my $dest_name = $dest->value;
  $dest = $dest->compile($compiler);

  $comp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170369	170455	
==>211 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) != {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171310	171396	
==>211 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) != {{\ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	400	506	
==>ct::Statement);

sub new
{
  my $class = shift;
  my ($block, $ident) = @_;

  confess("Block (" . ref($blo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	400	506	
==>ct::Statement);

sub new
{
  my $class = shift;
  my ($block, $ident) = @_;

  confess("Block (" . ref($blo <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5531	5638	
==>et', [$pair.'[1]',$return]);
      $self->_add_inst ('', 'set', [$return,$pair]);
      $self->_restore ($it <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17079	17180	
==>et',[$pair.'[1]',$return]);
    $self->_add_inst ('', 'set',[$return,$pair]);

    $self->_restore($it <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6565	6662	
==>et', [$pair.'[1]',$return]);
  $self->_add_inst('', 'set', [$return,$pair]);
  $self->_restore($it <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	780	883	
==>).$comment;
}

sub output_classmatch {
    my ($self, $class) = @_;
    return "re_match_class P0, $clas <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	66	160	
==>/Parrot/Pmc2c/Library.pm 19602 2006-05-30T13:40:58.862833Z coke  $

=head1 NAME

Parrot::Pmc2c: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	619240	619333	
==>preter, left);\n\tINTVAL b = rt == enum_class_Integer ? PMC_int_val(right) :\n\t    VTABLE_get <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	10336	10486	
==>erif;
      line-height: 1.3em;
      font-size:   95%;
    }

    h1, h2 {
      background-color: #313052;
      color:            white;
      paddi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464269	464566	
==>FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 532,
                  "ARGS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565742	565916	
==>}} = {{\@2}}->vtable->can(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566635	566809	
==>}} = {{\@2}}->vtable->can(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16124	16434	
==>LATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 22,
                  "ARGS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16896	17180	
==>LATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 2 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1382	1478	
==>)=('LEX','RULES','STATES');

sub new {
    my($class)=shift;
	my($errst,$nberr,$token,$value, <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1336	1428	
==>)=('LEX','RULES','STATES');

sub new {
    my($class)=shift;
	my($errst,$nberr,$token,$value, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1320	1432	
==>eally should not be
  # triggered in normal operation, even with bad source code as input.
  #

  $self->INTERNAL <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1265	1377	
==>eally should not be
  # triggered in normal operation, even with bad source code as input.
  #

  $self->INTERNAL <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1168	1280	
==>eally should not be
  # triggered in normal operation, even with bad source code as input.
  #

  $self->INTERNAL <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	5572	5705	
==>arith', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^( \+= | \*= | -= | /= | %= )(.*)$}x) {
      push @tokens <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	53241	53350	
==>n', # probably overrides one of either \cm or \cj
  '"' => '\"',
  '\\' => '\\\\',
  '$' => '\\$',
  '@' => '\ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	13953	14061	
==>gex, $name) = @_;

    local $Level = $Level + 1;
    $self->_regex_ok($this, $regex, '=~', $name);
}

sub un <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	1738	1869	
==>c
    examples/sdl/anim_image.pir                     [devel]
    examples/sdl/anim_image_dblbuf.pir              [devel]
    exampl <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	11334	11466	
==>erpreter,
        \s*
        {{\@(\d)}},\s*{{\@(\d)}}
        \);
        \s+{{\+=\d}}/xm) {
            $jit_func = "Parrot_jit_vta <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	11781	11913	
==>erpreter,
        \s*
        {{\@(\d)}},\s*{{\@(\d)}}
        \);
        \s+{{\+=\d}}/xm) {
            $jit_func = "Parrot_jit_vta <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	23380	23479	
==>long => 'INT', integer => 'INT', string => 'STRING');
			my %sigilmap=( '%' => 'integer', '&' => 'lo <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	51455	51586	
==>eage[-1] };
      # Hmmmmm!

      my $code         = (pop @lineage)->[0];
      my $ender_length =  pop @stack;
      if($ender_len <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	2298	2412	
==>of('op') <= $length) {
	my ($src, $is_branch);

        $pc       = $new_pc;
	$op_code  = unpack "x$offset l", $pf- <==
3	/Users/nnunley/parrot/config/auto/signal.pm	1244	1355	
==>fine');
        print " (sigaction)" if $verbose;
    }
    cc_clean();

    cc_gen('config/auto/signal/test_iti <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4469	4575	
==>refix . "$base */\n\n";

    return $c;
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::OpTrans>

=item <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	294	385	
==>HTML::Template;
use Algorithm::TokenBucket;
use Time::Piece;
use Time::Seconds;

require_com <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16134	16241	
==>and $self->get(4)->is_value
    ) {
      my $block = $self->current_block();
      my $ident = Jako::Constr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16905	17012	
==>and $self->get(4)->is_value
    ) {
      my $block = $self->current_block();
      my $ident = Jako::Constr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17710	17817	
==>and $self->get(4)->is_value
    ) {
      my $block = $self->current_block();
      my $ident = Jako::Constr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724325	724424	
==>Can this be localized? */\n  STRING *s = (VTABLE_get_string(interpreter, p));\n  if (s) {\n    if (P <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	1458	1570	
==>y $text = shift;
    my @contents = @_;
    
    $self = $self->SUPER::new($name, $text, @contents);
    $self->{ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	6584	6693	
==>} && $stmt->{code}->{name} eq 'goto') {
	    if ($stmt->{next}->{label}
                && $stmt->{code}->{arg <==
3	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	595	701	
==>nd, $input, @outputs) = @ARGV;
my $checksum;
{
    local $/;
    open(INPUT, $input) or die "open $input: $ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2978	3081	
==>] - ${$$self{DOTPOS}} - 1;

		$index < 0
	and	-$index <= @{$$self{STACK}}
	and	return $$self{STACK}[ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2834	2933	
==>] - ${$$self{DOTPOS}} - 1;

		$index < 0
	and	-$index <= @{$$self{STACK}}
	and	return $$self{STACK}[ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2726	2840	
==>{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHECK}}='ACCEPT';
    undef;
} <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2602	2707	
==>{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHECK}}='ACCEPT';
    undef;
} <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	1676	1777	
==>ties for creating local vars.
    return $self->alloc_temp_int($name);
}

sub new_rxlocal {
    my ($s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	674479	674570	
==>/ops/pmc.ops\"\n    {{\@1}} = {{\@2}}->vtable->pop_string(interpreter, {{\@2}});\n    {{+=3} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340301	340642	
==>}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioct <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341300	341641	
==>}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioct <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342299	342640	
==>}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioct <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913770	914033	
==>=> [
                              "i",
                              "sc",
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1611	1704	
==>t::Type instance!")
    unless UNIVERSAL::isa($type, "Jako::Construct::Type");

  my $type_nam <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1459	1552	
==>t::Type instance!")
    unless UNIVERSAL::isa($type, "Jako::Construct::Type");

  my $type_nam <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	4544	4644	
==>lines, between the # comment lines
	s/\n(\# *\n){2,}/\n\#\n/sg; # crush down double blank lines
	s/^\ <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	111	206	
==>05-30T13:32:26.641316Z coke  $

=head1 NAME

examples/mops/mops.c - Calculate M ops/s

=head1 SY <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	107	202	
==>05-30T13:32:26.641316Z coke  $

=head1 NAME

examples/mops/mops.c - Calculate M ops/s

=head1 SY <==
3	/Users/nnunley/parrot/config/inter/libparrot.pm	2105	2226	
==>lparrot'
            : $conf->data->get('libparrot')
        );
    }

    $self->set_result($parrot_is_shared ? 'yes <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2078	2188	
==>ays be the file block at the time subs are declared). We fill in the
  # IDENT entry within the block.
  #

  $ <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	1888	1986	
==>lass \w*/> which attempts to find the
class being declared.

Once the class is found, all of its su <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	3542	3668	
==>f it looks like it's basically all string.
        next if /^\s*\".*\"(\);|,)?$/;

        if (length($_) > 79) {
            w <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7118	7208	
==>_depth 
${DEST0} = "$"
${STEMP0} = ${LOADTYPE}["reg_type_short"]
${DEST0} = concat ${STEMP0 <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4940	5030	
==>_depth 
${DEST0} = "$"
${STEMP0} = ${LOADTYPE}["reg_type_short"]
${DEST0} = concat ${STEMP0 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	11505	11617	
==>' ) {
        DEBUG and print "  Found end of head1.  Considering content...\n";
        if($head1_text_content e <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2929	3033	
==>$out =~ tr{\xA0}{ } if Pod::Simple::ASCII;
  print {$self->{'output_fh'}} $out,
    #"\n"
  ;
  $self->{' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2463	2559	
==>$out =~ tr{\xA0}{ } if Pod::Simple::ASCII;
  print {$self->{'output_fh'}} $out, "\n";
  $self->{' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742782	743033	
==>m_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743548	743799	
==>m_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
3	/Users/nnunley/parrot/languages/regex/regex.pl	1446	1539	
==>$list_opt;
$options{'DEBUG'} = 1 if $debug;
$options{subname} = $subname if $subname;
$options <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	14256	14390	
==>{#State 26
		ACTIONS => {
			"(" => 10,
			'CHAR' => 4,
			"<" => 3,
			"[" => 14,
			'CODE' => 6,
			"." => 15
		},
		GOTOS => {
			'e <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1139	1242	
==>calar(File::Spec->splitdir($path_to_parrot));
        my $path_to_language;
        if ($dir_count == 0) <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1624	1727	
==>calar(File::Spec->splitdir($path_to_parrot));
        my $path_to_language;
        if ($dir_count == 0) <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	28784	28890	
==>ng $para_type for our own twisted purposes, to
      #  mean how it should get treated, not as what the ele <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1426	1533	
==>"== \"$_[1]\"\n";
  if(length $_[1]) {
    my $text = $_[1];
    _xml_escape($text);
    print {$_[0]{'outpu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832059	832145	
==>> "#line 192 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832787	832873	
==>> "#line 192 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1323	1429	
==>$_[1];
  return;
}


# A bit of evil from the black box...  please avert your eyes, kind souls.
sub _traver <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22858	22956	
==>/core.ops\"\n  opcode_t *dest;\n  PMC * const p = {{\@1}};\n  dest = {{^+2}};\n  interpreter->curre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25247	25345	
==>/core.ops\"\n  opcode_t *dest;\n  PMC * const p = {{\@1}};\n  dest = {{^+2}};\n  interpreter->curre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78301	78630	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlvar",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79821	80150	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlvar",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	9048	9137	
==>o->objfile, jit_info->native_ptr, f); \
    emitm_calll(jit_info->native_ptr, EXEC_CALLDIS <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	11921	12071	
==>ONS => {
			";" => 22
		},
		DEFAULT => -6,
		GOTOS => {
			'_semicolon_opt' => 23
		}
	},
	{#State 8
		ACTIONS => {
			"-" => 24,
			'NAME' <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	3267	3394	
==>) {
        $options{$1} = $2;
    } else {
        push @manifests, $_;
    }
}

# We'll report multiple occurrences of the sam <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	55501	55596	
==>value, that value is immediately
treated as the next extracted field and pushed onto the list of <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1959	2067	
==>ier:
  #

  my $sym = $block->find_symbol($self->name);

  #
  # If the identifier is already defined at this <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1706	1814	
==>ier:
  #

  my $sym = $block->find_symbol($self->name);

  #
  # If the identifier is already defined at this <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	38015	38114	
==>us parsing options (see below)

=back

The various options that can be specified are:

=over 4

=ite <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	23292	23477	
==>');
    my ($R_back, @R_ops) = $self->rewrite($R, $rfail);
    my @ops = (
                        aop('pushmark', [ "+" ]),
               $loop => @R_ops,
                        aop(' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	620650	620846	
==>" => 700,
                  "ARGS" => [
                              "pc"
                            ],
                  "BODY" => "#line 138 \"src/ops/pic.ops\"\n    Parrot_MIC *mic;\n    Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787958	788045	
==>.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed_int(interpreter, {{\@2}}, {{\@3} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788868	788955	
==>.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed_int(interpreter, {{\@2}}, {{\@3} <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9704	9813	
==>call to instantiate, need to knock off first arg.
if "${CURIC}" != "73" goto pre_call_NOT_CTOR_${CURIC}
${PTEM <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7218	7327	
==>call to instantiate, need to knock off first arg.
if "${CURIC}" != "73" goto pre_call_NOT_CTOR_${CURIC}
${PTEM <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6182	6291	
==>call to instantiate, need to knock off first arg.
if "${CURIC}" != "73" goto pre_call_NOT_CTOR_${CURIC}
${PTEM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302086	302179	
==>ne 980 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302962	303055	
==>ne 980 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303838	303931	
==>ne 980 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  { <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	393	500	
==>truct::Block::Conditional);

#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $left, $op, $right) = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	405	512	
==>truct::Block::Conditional);

#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $left, $op, $right) = <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	281	367	
==>cs::POD2HTML> subclasses C<Pod::Simple::HTML> to provide
various Parrot-specific format <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528262	528616	
==>"i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 610,
                  "ARGS" => [
                              "n",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 838 \"sr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	619852	619949	
==>eger_native(interpreter, left, a);\n\t    mmd_dispatch_p_pip(interpreter, left, b, left, MMD_SUBTR <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	1283	1402	
==>{$op};

  confess "Unrecognized op '$op'!" unless defined $new_op;

  return $new_op;
}
 

#
# new()
#

sub new
{
  my $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	37480	37595	
==>r a '/'.\n";

        if($ell_content[$j] =~ m/^([^\/]*)\/(.*)$/s) {
          my @section_name = ($2); # might be 0 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3002	3109	
==>} }  # or some integer
  use Pod::Simple ();

And this:

  use Pod::Simple::Debug (\$debug_level,0);  # or s <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16948	17076	
==>xt in them.
        
        # Yes, stipulate the list without a range, so that this can work right on
        #  all charsets th <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10384	10496	
==>xt in them.

    # Yes, stipulate the list without a range, so that this can work right on
    #  all charsets th <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33681	33781	
==>ore and append code it generates.
		my $post_store = $srm->post_store($dest_reg);
		$pir .= "### post <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791593	791681	
==>set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed_int(interpreter, {{\@2}}, {{\@3}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792500	792588	
==>set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed_int(interpreter, {{\@2}}, {{\@3}} <==
3	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	677	762	
==>s1.pl>, 
F<examples/benchmarks/stress2.pasm>, 
F<examples/benchmarks/stress3.pasm>.

= <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	550	643	
==>s UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Dest (" . ref($dest) . ") is no <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	541	634	
==>s UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Dest (" . ref($dest) . ") is no <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	430	523	
==>s UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Dest (" . ref($dest) . ") is no <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11684	11801	
==>! $op) {
			push @work, $token;
			next;
		}
		next if ($sym eq ",");  # Commas get ignored, args to stack
		my($ac, @ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4486	4601	
==>m++;
	}

	# Return generated code.
	return $pir;
}

sub post_op($$) {
	# Nothing to do.
	return "";
}

# Pre and pos <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2902	3017	
==>m++;
	}

	# Return generated code.
	return $pir;
}

sub post_op($$) {
	# Nothing to do.
	return "";
}

# Pre and pos <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41212	41312	
==>e @_,0,2;

  my $scratch;
  $self->_handle_element_start(($scratch=$name), shift @_);
  
  foreach my <==
3	/Users/nnunley/parrot/config/gen/config_pm.pm	2206	2362	
==>>>/cwd/e) {
            print OUT;
        } else {
            print OUT;
        }
    }

    close IN  or die "Can't close config_lib.in: $!";
    close O <==
3	/Users/nnunley/parrot/tools/dev/as2c.pl	1358	1493	
==>print " " x 26, " /* $1: */\n";
	}
	elsif ($in_comment) {
	    print " * $_\n";
	}
    }
    print "    0x00\n";
    print "};\n";
    c <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1020	1115	
==>op = $compiler->invert_relop($op); # Invert the test, since we jump *unless* the condition is tr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665846	666044	
==>GS" => [
                              "p",
                              "kic"
                            ],
                  "BODY" => "#line 359 \"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delete_ke <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	319	408	
==>ccept_codes('VerbatimFormatted');
  return $new;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	318	407	
==>ccept_codes('VerbatimFormatted');
  return $new;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8248	8389	
==>ess( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLAG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9363	9504	
==>ess( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLAG <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	4415	4524	
==>self = shift;
	my $type = shift;
	
	return 0 unless defined $type;
	
	return $self->type eq $type;
}

=item C< <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	1543	1647	
==>omatically from '$infile'
 * by $0.
 *
 * Any changes made here will be lost!
 *
 */

#define CONCAT(a,b) <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	3832	3936	
==>omatically from '$infile'
 * by $0.
 *
 * Any changes made here will be lost!
 *
 */

#define CONCAT(a,b) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260413	260805	
==>S" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 303,
                  "ARGS" => [
                              "i",
                              "sc",
                              " <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	2736	2861	
==>'', 'warnings'),
            $self->c_pair_item('', 'longopt'),
        ),
        $self->new_group(
            'Interpreter' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	4042	4148	
==>e}_THUNK";
    $thunk =~ s/::/__/g;

    $compiler->emit(".sub $thunk");

    my $sig = defined $self->type <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29231	29373	
==>75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41337	41479	
==>75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44483	44625	
==>75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85 <==
3	/Users/nnunley/parrot/config/auto/isreg.pm	634	756	
==>s ($@ || cc_run() !~ /ok/) {
        $test = 1;
    }
    cc_clean();

    $conf->data->set(isreg => $test);
    print($tes <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	24218	24337	
==>opcodes, new LabelOp( $parser,
        'arg1' => $lbl2,
    );
    return [ $result, \@opcodes ];
}

sub BuildPare <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	211	325	
==>ON = 0.01;

sub get_out_fn {
    my $self = shift;
    my ( $count ) = @_;

    return Parrot::Test::per_test( '.gn <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	4579	4664	
==>ggregates.pir"
.include "RT_builtins.pir"
.include "RT_debugger.pir"
.include "RT_io.p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011419	1011670	
==>mmand(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012184	1012435	
==>mmand(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	1140	1273	
==>rns a L<Parrot::Configure::Data> object.

=cut

sub new
{
    my $class = shift;

    my $self = {
        c        => {},
        tri <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	636	734	
==>b
sub first(a() )
	call second(a())
end sub
dim t(),f()
call first(t())
print t(5)

' Keys test, "i <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	120	214	
==>since the List form
# is really suitable only for peephole optimization.

package Regex::TreeOp <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	1560	1660	
==>on garam masala
 * 1/2 teaspoon red chili powder, or to taste
 * Salt, to taste (probably quite a bit <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	8	107	
==>iler.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is sub <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031065	1031422	
==>ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1153,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#lin <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2330	2441	
==>lf->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exists($$self{USER})
	or	$$self{USER} <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2243	2345	
==>lf->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exists($$self{USER})
	or	$$self{USER} <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4283	4400	
==>(@drv);
	open(DRV,"<$fname") or die "Report this as a BUG: Cannot open $fname";
	while(<DRV>) {
                	/^ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4064	4178	
==>(@drv);
	open(DRV,"<$fname") or die "Report this as a BUG: Cannot open $fname";
	while(<DRV>) {
                	/^ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	5057	5192	
==>ine, 'infix-bit', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^( == | >= | <= | != | < | > )(.*)$}x) {
      pus <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17694	17831	
==>},
	{#State 47
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'ST <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571128	571218	
==>up_p(interpreter, {{\@3}});\n    {{\@1}} = Parrot_object_isa(interpreter, {{\@2}}, class);\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572083	572173	
==>up_p(interpreter, {{\@3}});\n    {{\@1}} = Parrot_object_isa(interpreter, {{\@2}}, class);\ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21529	21648	
==>ew_tmp( $parser, 'pmc', $type{$op} );
    push @opcodes, @{ $expr1->[1] };
    push @opcodes, @{ $expr2->[1] };
    p <==
3	/Users/nnunley/parrot/config/init/hints.pm	737	855	
==>se;

    eval "use $hints";
    die $@ if $@;

    # call the runstep method if it exists.  Otherwise the step must hav <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6837	6935	
==>{ITEMP1} = ${ITEMP0} + 1
${STEMP1} = ${ITEMP1}
${STEMP0} = concat ${STEMP1}

# Put it in the parame <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	24158	24274	
==>_fh($fh);
    }
    return $self->{Out_FH};
}

sub failure_output {
    my($self, $fh) = @_;

    if( defined $fh ) { <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7136	7242	
==>ARRAY' ? join('|', @{$options{reject}})
		    : defined($options{reject})	       ? $options{reject}
		    : <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24138	24244	
==>ARRAY' ? join('|', @{$options{reject}})
		    : defined($options{reject})	       ? $options{reject}
		    : <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755743	755962	
==>"CODE" => 852,
                  "ARGS" => [
                              "p",
                              "nc"
                            ],
                  "BODY" => "#line 266 \"src/ops/set.ops\"\n  {{\@1}}->vta <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4669	4763	
==>rn "static void *const* ${bs}ops_addr;\n\n";
}

=item C<run_core_func_start()>

Returns the C c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1744	1912	
==>RGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 0,
                  "ARGS" => [],
                  "BODY" => "#line 50 \"src/ops/core. <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8173	8311	
==>$$check eq 'ABORT'
            and	do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Abort.\n";

				return(undef);

			};

#D <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7804	7932	
==>$$check eq 'ABORT'
            and	do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Abort.\n";

				return(undef);

			};

#D <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223429	223626	
==>"p",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 516 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19653	19758	
==>gex/Grammar.y"
{ return op('multi_match' => [ 0, -1, TRUE, $_[1] ]); }
	],
	[#Rule 14
		 'expr', 3,
sub
#l <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	71047	71145	
==>(!defined ${$rules}{$call}
			  &&!defined &{"Parse::RecDescent::$call"})
			{
				if (!defined $:: <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5009	5105	
==>'NBERR', 'TOKEN', 'VALUE', 'STACK', 'CHECK', 'DOTPOS' };

#DBG>	my($debug)=$$self{DEBUG};
#DBG <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4766	4859	
==>'NBERR', 'TOKEN', 'VALUE', 'STACK', 'CHECK', 'DOTPOS' };

#DBG>	my($debug)=$$self{DEBUG};
#DBG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302149	302441	
==>r, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303025	303317	
==>r, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303901	304193	
==>r, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736699	736973	
==>} = (FLOATVAL){{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737445	737719	
==>} = (FLOATVAL){{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3826	3934	
==>his form for now.
	}
	if ($syms[CURR] eq "#") {
		feedme();
		$fd=$syms[CURR];
		feedme();
		die "Expecting , <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	5769	5898	
==>i_syslog' => 'define',
             'i_sysmman' => 'define',
             'i_sysmode' => undef,
             'i_sysmount' => 'defi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	8303	8429	
==>me"} || next;
      --$dont_wrap if $tagname eq 'Verbatim' or $tagname eq 'X';

    # - - - - - - - - - - - - - - - - - - - - - <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	2096	2191	
==>lits it into tokens.

=head1 AUTHOR

Jeffrey Goff, drforr@hargray.com

=head1 SEE ALSO

L<Scheme <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1560	1672	
==>ok ) { foreach my $meth ( $lang_f, $pasm_f, $by_f, $out_f ) { unlink $meth } } # JMG
    }
}

1;

my $urmc = "$PC <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832119	832202	
==>, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}), STACK_ENTRY_FLOAT, STACK_CLEAN <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832847	832930	
==>, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}), STACK_ENTRY_FLOAT, STACK_CLEAN <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746835	747122	
==>" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 841,
                  "A <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	2835	2941	
==>his function is exported.

=cut

sub dynext_load_code {
    my ($libname, %classes ) = @_;

    my $lc_libn <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	278	370	
==>ict;
eval "use warnings";

package Jako::Construct::Type::Number;

use base qw(Jako::Construc <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30604	30746	
==>ACTIONS => {
			"-" => 72,
			"<" => 74,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			" <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39954	40096	
==>ACTIONS => {
			"-" => 72,
			"<" => 74,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			" <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41581	41723	
==>ACTIONS => {
			"-" => 72,
			"<" => 74,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			" <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11118	11240	
==>x_open = 1;
      while($x_open) {
        next if( ($t = shift @_)->is_text );
        if(   $t->is_start and $t->tag eq ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090808	1090898	
==>"BODY" => "#line 191 \"src/ops/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1091868	1091958	
==>"BODY" => "#line 191 \"src/ops/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853195	853394	
==>=> [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 100 \"src/ops/string.ops\"\n  {{\@1}} = string_append(interp <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	2243	2376	
==>\n";
	print $fh $makefile;
	close $fh;
}


# Generate Config.pm.
# ###################
sub generate_config_pm(%) {
	my %confi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1431	1531	
==>nd ($scope eq 'global')) {
    my $imcc_code = $type->code();
    my $temp_reg = $compiler->temp_reg( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614946	615059	
==>{\@3}});\n    if (offset < 0) {\n        real_exception(interpreter, next, NO_CLASS,\n            \"Class not pare <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616097	616210	
==>{\@3}});\n    if (offset < 0) {\n        real_exception(interpreter, next, NO_CLASS,\n            \"Class not pare <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	604	698	
==>cified on the command-line then the files worth describing
will be found recursively from the c <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30388	30491	
==>:_tracefirst($text))
							if defined $::RD_TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecD <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32588	32691	
==>:_tracefirst($text))
							if defined $::RD_TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecD <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28313	28415	
==>:_tracefirst($text))
					if defined $::RD_TRACE;').'

			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecD <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37687	37799	
==>type)>

Generate the C code for a C<return> statement.

=cut

sub gen_ret
{
    my ($self, $type) = @_;

    #ret <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32800	32911	
==>type)>

Generate the C code for a C<return> statement.

=cut

sub gen_ret
{
    my ($self, $type) = @_;

    ret <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	25292	25375	
==>[Parse::RecDescent::expectation_message(),'.($check->{itempos} ? '$thisline' : 'Pars <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045081	1045399	
==>re_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1168,
                  "A <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	6286	6414	
==>92,
 'uarr'     , 8593,
 'rarr'     , 8594,
 'darr'     , 8595,
 'harr'     , 8596,
 'crarr'    , 8629,
 'lArr'     , 8656,
 'uAr <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	1850	1951	
==>C;
#include "parrot/parrot.h"
#include "parrot/string.h"
END_C

    print $trans->defines;
    print $ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76049	76154	
==>ORS");
	$errortext   = $_[0];
	$errorprefix = "ERROR" .  ($_[1] ? " (line $_[1])" : "");
	$errortext =~ s/ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36042	36181	
==>> 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -71
	},
	{#State 139
		ACTIONS => { <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2446	2564	
==>cut

sub relative_path
{
    my $self = shift;
    my $path = shift || return;
    
    $path = $path->path if ref $pat <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	1633	1745	
==>,
    'fromkeys' => 'fromkeys',
    'locase' => 'locase',
    'next' => 'next',
    'sort' => 'sort',
);

my %rev <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002964	1003329	
==>lass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1120 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1013603	1013825	
==>ys.ops\"\n  {{\@1}} = errno;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16300	16405	
==>f(wantarray) {  # return an array
    return map {; ($x = $_) =~
      s/([F\x00-\x1F\\\{\}\x7F-\xFF])/$Es <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41913	42142	
==>ARROT_JUMP_RESTART",
                  "NAME" => "exit",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42602	42831	
==>ARROT_JUMP_RESTART",
                  "NAME" => "exit",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline" <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	890	984	
==>d without leading/trailing pattern delimiters.

(Hint: if you try using qr// for the $pattern t <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2988	3082	
==>d without leading/trailing pattern delimiters.

(Hint: if you try using qr// for the $pattern t <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2168	2276	
==>wanted to shadow the
  # previous definition.
  #

  if (defined $sym and $sym->block eq $block) {
    $self- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1915	2023	
==>wanted to shadow the
  # previous definition.
  #

  if (defined $sym and $sym->block eq $block) {
    $self- <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	269	357	
==>ref> inherits from C<Parrot::OpTrans::C>
to provide predereferenced register addressing r <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	793	898	
==>defines()>

Returns the C C<#define> macros required by the ops.

=cut

sub defines
{
    return <<END;
#u <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809664	809751	
==>507 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_string_keyed(interpreter, {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810569	810656	
==>507 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_string_keyed(interpreter, {{ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6791	6902	
==>hooks.
sub pre_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If we need a destination, <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4729	4840	
==>hooks.
sub pre_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If we need a destination, <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3601	3712	
==>hooks.
sub pre_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If we need a destination, <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	33634	33758	
==>to'  }};
          
          $treelet->[$i][1]{'to'} = Pod::Simple::LinkSection->new(
            $treelet->[$i]  # yes, clo <==
3	/Users/nnunley/parrot/lib/Test/More.pm	8562	8661	
==>ue, it checks if
it returns 1.  Very different.  Similar caveats exist for false and 0.
In these cas <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	751266	751490	
==>@1}},\n    string_copy(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	3998	4103	
==>{
    my ($self, $trans) = @_;

    return $trans->prefix . $self->full_name;
}

=item C<arg_types()>

Ret <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	25995	26093	
==>ers, $lookahead, $linenum
sub new ($$$$$$)
{
	my $class = ref($_[0]) || $_[0];
	my $pattern = $_[1] <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	24346	24460	
==>pc += 4\n";
			$arg_name = "I_ARG_$arg_num";
		}

		# int32
		elsif (/^int32$/) {
			$out =  "    \${I_ARG_$arg_num <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27690	27815	
==>rser,
        'arg1' => $l_continue,
    );
    foreach my $op ( @{$block} ) {
        if ( $op and $op->isa('BranchOp') ) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4974	5093	
==>g = $dest");
    $compiler->emit("  global \"$dest_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3037	3156	
==>g = $dest");
    $compiler->emit("  global \"$dest_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	15602	15732	
==>"[" => 47,
			"(" => 48,
			"." => 49,
			'STRING' => 44,
			"{" => 38
		},
		DEFAULT => -56,
		GOTOS => {
			'tableconstru <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	3689	3795	
==>+)/s;
    
    return $version;
}

=item C<is_hidden()>

Returns whether the file is "hidden", i.e. it's na <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121739	121981	
==>e",
                  "CODE" => 151,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 248 \"src/ops/bit.ops\"\n  /*\n   * lvalu <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	14536	14634	
==>below for an example of initialization.

=head1 EXAMPLES

=over 4

=item Example 1

Giving a struct <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	309	404	
==>ion section describing Parrot's big number subsystem.

=head2 Class Methods

=over

=cut

packag <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30607	30751	
==>IONS => {
			"-" => 72,
			"<" => 74,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<=" = <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39957	40101	
==>IONS => {
			"-" => 72,
			"<" => 74,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<=" = <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41584	41728	
==>IONS => {
			"-" => 72,
			"<" => 74,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<=" = <==
3	/Users/nnunley/parrot/config/inter/make.pm	1453	1594	
==>lt
            $self->set_result('no');
            return $self;
        }
    }

    if ($conf->options->get('ask')) {
        $prog = promp <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	383	492	
==>hift;
    my ( $path_to_parrot, $path_to_language, $count ) = @_;
 
    
    my $test_prog_args = $ENV{TEST_PR <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	401	504	
==>hift;
    my ( $path_to_parrot, $path_to_language, $count ) = @_;

    my $test_prog_args = $ENV{TEST_PR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81999	82286	
==>voke the compiler\");\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82893	83180	
==>voke the compiler\");\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	40774	40884	
==>rror.
    if ($pir =~ /\$\{([^}]*)}/) {
        die "Unknown metavariable $1 used in $code_source\n";
    } els <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3052	3201	
==>et."
        );
        splice @_;
        push @_, undef;
        next;

        # TODO: implement somehow?

      } elsif( $line =~ s/^\xFF\xFE//s ) <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	30388	30511	
==>p( $parser,
        'arg1' => $lbl_blk,
    );
    push @opcodes, @{ $var->[1] };
    push @opcodes, new AssignOp( $pars <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	11110	11266	
==>$expected );

            # set up default description
            unless ( $desc ) {
               (undef, my $file, my $line) = caller();
               $ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	16595	16751	
==>$expected );

            # set up default description
            unless ( $desc ) {
               (undef, my $file, my $line) = caller();
               $ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36576	36681	
==>n_ret($method);
    # I think that these will be out by one - NWC
    my $l = $self->line_directive($line, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553967	554057	
==>t_object = object;\n  interpreter->current_cont = {{\@3}};\n  interpreter->current_method = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555364	555454	
==>t_object = object;\n  interpreter->current_cont = {{\@3}};\n  interpreter->current_method = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556752	556842	
==>t_object = object;\n  interpreter->current_cont = {{\@3}};\n  interpreter->current_method = <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	1559	1660	
==>h buffer.  Because we need to defer processing of =over
   # directives and verbatim paragraphs.  We c <==
3	/Users/nnunley/parrot/config/inter/types.pm	280	380	
==>s should
be.

=cut

package inter::types;

use strict;
use vars qw($description @args);

use base qw( <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2056	2155	
==>te_all_files()>

Writes C and header files for all the PMCs in the library,
I<or> E<lt>libnameE<gt>. <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62089	62198	
==>TION SPECIFIER (IF ANY)

			if ($grammar =~ m/\G[(]/gc)
			{
				pos($grammar)--;

				if ($grammar =~ m/$OPTI <==
3	/Users/nnunley/parrot/lib/Parrot/Revision.pm	220	314	
==>int $Parrot::Revision::current;
    print $Parrot::Revision::config;

=head1 DESCRIPTION

Get p <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	8933	9061	
==>rl -MExtUtils::Command -e mkpath',
             'msvcversion' => undef,
             'ncilib_link_extra' => '',
             'new <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	14364	14457	
==>y $loop = Jako::Construct::Block::Loop::Continue->new($parent_block, $peer_block);
        $se <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	25172	25261	
==>AS: Parse::RecDescent::_error("Invalid $rule: " . $expectation->message() ,$thisline);
		p <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11958	12062	
==>e @args));
			$pir_args = ",$pir_args" if $pir_args;
			$extern=$sym;
			$optype=optype_of($extern);
			g <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2417	2516	
==>P0["$stype"]
	P0= P1["$var"]	# Pull the original
	P2= P10[I25]
	P3= P2["$stype"]
	P3["$var"]= P0	# H <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2644	2743	
==>P0["$stype"]
	P0= P1["$var"]	# Pull the original
	P2= P10[I25]
	P3= P2["$stype"]
	P3["$var"]= P0	# H <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	42146	42265	
==>->[$i][1]{$attrname}) and ref $thing) {
            unshift @stack, $thing;
            DEBUG > 2 and print "  Enqueuing <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2499	2606	
==>stant, we will place its
  # definition into the block at the top of the block stack. We fill in the
  # IDE <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2246	2353	
==>stant, we will place its
  # definition into the block at the top of the block stack. We fill in the
  # IDE <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	4664	4795	
==>ems left in it.\n";

      DEBUG > 3 and print "  Fetching ", Pod::Simple::MANY_LINES, " lines.\n";
      $self->SUPER::parse_lines( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	371388	371474	
==>)\n\treal_exception(interpreter, NULL, PIO_ERROR,\n\t\t\"Cannot read line from empty fi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	371525	371611	
==>)\n\treal_exception(interpreter, NULL, PIO_ERROR,\n\t\t\"Cannot read line from empty fi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407760	408055	
==>nect",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408658	408953	
==>nect",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	1572	1699	
==>$op);
        } else {
            foreach my $line ($self->render($op)) {
                $line =~ s/<(\w+)>/$self->lookup_var( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766081	766364	
==>,
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 865,
                  "ARGS" => <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8945	9055	
==>ive_path
{
    my $self = shift;
    my $path = shift || return;
    my ($volume, $directories, $name) = File:: <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9344	9454	
==>ive_path
{
    my $self = shift;
    my $path = shift || return;
    my ($volume, $directories, $name) = File:: <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33978	34096	
==>->{type};
        $ret_def = "$type ret_val;";
        $func_ret = $self->gen_ret($method->{type});
        $ret = "ret <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38940	39058	
==>->{type};
        $ret_def = "$type ret_val;";
        $func_ret = $self->gen_ret($method->{type});
        $ret = "ret <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	1053	1146	
==>turn $self->c_item(shift, 'pairs' => [@_]);
}

=item C<c_item($text, %contents)>

Returns a ne <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724269	724372	
==>const p = {{\@2}};\n  PMC * const io = {{\@1}}; /* TODO Can this be localized? */\n  STRING *s = (VTABLE <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	5742	5848	
==>ediately anchor pmc to root set */
    interpreter->pmc_reg.registers[0] = userargv;

    for (i = 0; i < a <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14913	15011	
==>e,1));
  die "car: Element not pair\n" unless $return =~ /^P/;
  $self->_add_inst ('', 'set', [$ret <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	643	738	
==>m the Tcl CVS repository, convert them into a a TAP-style
protocol that can then use Test::Harne <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	37374	37481	
==>ing-set!'   => \&_op_string_set_bang,
  'string=?'      => \&_op_string_eq_p,
  'string<?'      => \&_op_str <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488625	488819	
==>line 507 \"src/ops/math.ops\"\n  {{\@1}} = floor( {{\@1}} );\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095155	1095240	
==>"src/ops/experimental.ops\"\n  Parrot_Exec_OS_Command(interpreter, {{\@1}});\n  {{+=2} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095850	1095935	
==>"src/ops/experimental.ops\"\n  Parrot_Exec_OS_Command(interpreter, {{\@1}});\n  {{+=2} <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	2495	2612	
==>_t => 'float');
    } else {
        $conf->data->set(float4_t => 'double');
        print <<'END';

Can't find a floa <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	39738	39839	
==>'/para', '/endpara', undef,
				{reject => '/para', fail => MAX );

	# EXTRACTED: "/para line 1\n\nlin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811015	811405	
==>core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 915,
                  "ARGS" => [
                              "p",
                              "p",
                              "k" <==
3	/Users/nnunley/parrot/lib/Test/More.pm	17642	17763	
==>n-Exporter based modules.
        eval <<USE;
package $pack;
use $module $imports[0];
USE
    }
    else {
        eval << <==
3	/Users/nnunley/parrot/languages/javascript/bootstrap.pm	11	109	
==>warnings;
use strict;

use JavaScript;

my $runtime = new JavaScript::Runtime;
my $context = $runti <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	13436	13568	
==>goto', [ $next ]),
               $advance => $self->dbprint("scan advancing\n"),
                           aop('advance', [ 1, $las <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	3727	3841	
==>th($_) . ")");
        }
    }
}

sub check_function_definitions {
    # In function definitions, the name starts i <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	6342	6438	
==>aned up by Matt Diephouse.

Many thanks to the author of F<pmc2c.pl>, many useful code pieces got <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645848	645934	
==>er->vtables[{{\@2}}]->whoami;\n    else\n\t\t{{\@1}} = Parrot_get_datatype_name(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646745	646831	
==>er->vtables[{{\@2}}]->whoami;\n    else\n\t\t{{\@1}} = Parrot_get_datatype_name(interpr <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	1434	1558	
==>en .= $ch;
    } elsif($ch =~ /[a-zA-Z]/ and
            $token =~ /^\w/) {    # Letters can follow other letters
      $toke <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	1413	1527	
==>] eq "as") {
			feedme;
			$stype=$syms[CURR];
			feedme; # N
			my %th=( single => 'FLO', double => 'FLO', long => <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15183	15280	
==>RESSION {
	my(%opts);
	%opts=%{$_[0]} if @_;
	my(@expr, @stream, @left, $whole);
	my($assignto, $r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596854	597104	
==>76,
                  "ARGS" => [
                              "p",
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 337 \"src/ops/object.ops\"\n  {{\@1}} = VTABLE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122094	122207	
==>alent unsigned.\n   */\n  LVALUE_CAST(UINTVAL, {{\@1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123006	123119	
==>alent unsigned.\n   */\n  LVALUE_CAST(UINTVAL, {{\@1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61370	61627	
==>S" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorson",
                  "FLAGS" => "",
                  "ARGDIRS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62013	62270	
==>S" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorson",
                  "FLAGS" => "",
                  "ARGDIRS" <==
3	/Users/nnunley/parrot/languages/regex/test.pl	1518	1616	
==>tfile;
my $pattern;

# Hm. What versions of perl provide Getopt::Long as a builtin?
foreach (@ARGV) <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6694	6857	
==>l
          match_success:
            print "matched"
            goto match_end
          match_fail:
            print "failed"
          match_end:
        .end <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7711	7874	
==>l
          match_success:
            print "matched"
            goto match_end
          match_fail:
            print "failed"
          match_end:
        .end <==
3	/Users/nnunley/parrot/Configure.pl	3814	3911	
==>Other Options

=over

=item C<--maintainer>

Use this option if you want imcc's parser and lexer f <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1855	1945	
==>ken->new( I<text> )
>>

=head1 SEE ALSO

L<Pod::Simple::PullParserToken>, L<Pod::Simple>, L <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3538	3652	
==>s of L<Pod::Simple> and inherits all its methods.

=head1 SEE ALSO

L<Pod::Simple>, L<Pod::Simple::TextContent>, L< <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4097	4199	
==>s of L<Pod::Simple> and inherits all its methods.

=head1 SEE ALSO

L<Pod::Simple>, L<Pod::Simple::Text <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1274	1376	
==>s of L<Pod::Simple> and inherits all its methods.

=head1 SEE ALSO

L<Pod::Simple>, L<Pod::Simple::Text <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1959	2060	
==>k   { ++$_[0]{'Indent'} }

sub   end_over_bullet  { --$_[0]{'Indent'} }
sub   end_over_number  { --$_[ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1527	1628	
==>k   { ++$_[0]{'Indent'} }

sub   end_over_bullet  { --$_[0]{'Indent'} }
sub   end_over_number  { --$_[ <==
3	/Users/nnunley/parrot/languages/lua/luac.pl	614	708	
==>r(s).\n";
}
if ( $parser->YYData->{verbose_warning}
    and exists $parser->YYData->{nb_warn <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934074	934296	
==>\@1}} = string_downcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934849	935071	
==>\@1}} = string_downcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	5329	5423	
==>$type = $token->attr('type');
  if(!defined $type) {
    $self->whine("Typeless L!?", $token->a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015673	1015877	
==>" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 77 \"src/ops/sys.ops\"\n  const char * const tmp = strerror({{ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	5891	6042	
==>ush
        elsif (/^push$/) {
            if ($rule->{$_} =~ /^\d+$/) {
                if ($has_push) {
                    die "Duplicate value for p <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	14627	14747	
==>ods} } ) {
        my $meth = $entry->{meth};
        next if exists $self->{super}{$meth};
        foreach my $pname (@{ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	1705	1807	
==>o beans, drained and rinsed
 * juice of one smallish lime
 * a dash of balsamic vinegar (to taste)
 * c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934599	934837	
==>YPE" => "inline",
                  "CODE" => 1050,
                  "ARGS" => [
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 435 \"src/ops/string. <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2662	2795	
==>$libs );
        if ($CC =~ /gcc/i) {
            $liblist =~ s/gdbm\.lib/-llibgdbm/i;
        }
        my $extraLibs = '-lm -lgmp -l <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2457	2590	
==>$libs );
        if ($CC =~ /gcc/i) {
            $liblist =~ s/gdbm\.lib/-llibgdbm/i;
        }
        my $extraLibs = '-lm -lgmp -l <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	714	860	
==>0]'],
  ['',             'save', 'P6'],
  ['',             'save', 'P1'],
  ['',             '.include', '"interpinfo.pasm"'],
  ['',             ' <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3094	3190	
==>lly generated by config/gen/core_pmcs.pm

package Parrot::PMC;

use strict;
use warnings;

use va <==
3	/Users/nnunley/parrot/lib/Parrot/PMC.pm	38	134	
==>lly generated by config/gen/core_pmcs.pm

package Parrot::PMC;

use strict;
use warnings;

use va <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	5397	5517	
==>les/]     ? '[main]doc' :
        m[^include/]      ? '[main]include' :
        (m[^languages/(\w+)/] and $1 ne 'conversi <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	3056	3160	
==>in'',@_);
	my ($a,$b,$c,$d) = (A,B,C,D);
	my $i;
	for $i (0 .. (length $message)/64-1) {
		my @X = unpack <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	5900	6003	
==>self->{"expected"});
	my @expected = ();

	my $prod;
	foreach $prod ( @{$self->{"prods"}} )
	{
		my $nex <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5012	5136	
==>obal \"$dest_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  my <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3075	3199	
==>obal \"$dest_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  my <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2677	2783	
==>ct info',
	'DEVELOPING' => 'Project info',
	'harness' => 'Perl test harness',
	'INSTALL' => 'Installation d <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6418	6546	
==>eds_build {
    my ($target, @sources) = @_;

    my $target_mod = modtime($target)
      or return 1;
    for my $source (@sourc <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4838	4966	
==>eds_build {
    my ($target, @sources) = @_;

    my $target_mod = modtime($target)
      or return 1;
    for my $source (@sourc <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6629	6757	
==>eds_build {
    my ($target, @sources) = @_;

    my $target_mod = modtime($target)
      or return 1;
    for my $source (@sourc <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	873	1155	
==>print  "Iterations:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, I1
                              #
print "Estima <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	873	1155	
==>print  "Iterations:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, I1
                              #
print "Estima <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	1490	1610	
==>sses of "
     . __PACKAGE__;
  } else {
    Carp::croak join '',
      "You can't call run() because ",
      ref($_[0]) <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	3245	3367	
==><<"END_PIR"            # signum
    $N100 = %1
    $I100 = cmp_num $N100, 0.0
    %1 = $I100
END_PIR
    $P0[unicode:"monad <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	6321	6425	
==>n, $defs);
	$n = $arg_count{$arg};
	$defs = @{$def_args{$arg}};
	print "# @{$def_args{$arg}}\n";
	# XXX t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558001	558102	
==>current_cont) |= SUB_FLAG_TAILCALL;\n  interpreter->current_object = object;\n  interpreter->current_m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559385	559486	
==>current_cont) |= SUB_FLAG_TAILCALL;\n  interpreter->current_object = object;\n  interpreter->current_m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560757	560858	
==>current_cont) |= SUB_FLAG_TAILCALL;\n  interpreter->current_object = object;\n  interpreter->current_m <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	30867	30967	
==>rn $return;
}

sub _op_map {
}

sub _op_for_each {
}

sub _op_force {
}

sub _op_call_with_current_co <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	7455	7553	
==>("$group$LOAD_EXT", $libs, \@sources))
          or die "partial link $group$LOAD_EXT failed ($?)\n <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7666	7764	
==>("$group$LOAD_EXT", $libs, \@sources))
          or die "partial link $group$LOAD_EXT failed ($?)\n <==
3	/Users/nnunley/parrot/config/gen/icu.pm	1652	1782	
==>use
            $icuconfig = "icu-config" if $icuconfig eq "1";

            # ldflags
            $icushared = capture_output("$ic <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1933	2029	
==>nt'} }
sub start_over_block   { ++$_[0]{'Indent'} }

sub   end_over_bullet  { --$_[0]{'Indent'} } <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1501	1597	
==>nt'} }
sub start_over_block   { ++$_[0]{'Indent'} }

sub   end_over_bullet  { --$_[0]{'Indent'} } <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30778	30885	
==>ISP;
	eq S0, "$_", DIM_$_
DISP
	}
	print CODE <<DISP2;
	print "Structure type of "
	print S0
	print " not fo <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	254	348	
==>::num_of_tests_badpass = 0;
$Test::num_of_tests_planned;

# a Junction to hold our FORCE_TODO t <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	16573	16668	
==>e the
# alternative that corresponds to the (dynamic) $counter passed in.
#
sub rewrite_dynamic_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1597	1711	
==>shift->{COND};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shif <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1733	1847	
==>shift->{COND};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shif <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1376	1490	
==>shift->{COND};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shif <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6677	6809	
==>do {
					--$$errstatus;

#DBG>					$debug & 0x10
#DBG>				and	$dbgerror
#DBG>				and	$$errstatus == 0
#DBG>				and	do {
#DBG> <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6367	6492	
==>do {
					--$$errstatus;

#DBG>					$debug & 0x10
#DBG>				and	$dbgerror
#DBG>				and	$$errstatus == 0
#DBG>				and	do {
#DBG> <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	294	401	
==>t ) = @_;

    return Parrot::Test::per_test( '.pir_out', $count );
}

sub get_test_prog {
    my $self = sh <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	2804	2945	
==>PE => $type,
        NAME => $name,
        ARGS => [ @$args ],
        ARGDIRS => [ @$argdirs ],
        LABELS  => [ @$labels ],
        FLA <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	1893	1988	
==>xec_normal_op";
    $cpcf_op = "Parrot_exec_cpcf_op";
    $restart_op = "Parrot_exec_restart_op" <==
3	/Users/nnunley/parrot/examples/benchmarks/primes.pl	33	121	
==>003, The Perl Foundation.
# $Id: /parrot/examples/benchmarks/primes.pl 19601 2006-05-30T1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92582	92913	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ": <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95033	95364	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ": <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95926	96257	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ": <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20893	20997	
==>code($$$$)
{
	my ($self, $namespace, $rule) = @_;
	
''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23669	23773	
==>code($$$$)
{
	my ($self, $namespace, $rule) = @_;
	
''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33698	33802	
==>code($$$$)
{
	my ($self, $namespace, $rule) = @_;
	
''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	6207	6319	
==>shift;
	my $item;
	foreach $item ( @_ ) { return 1 if $target eq $item; }
	return 0;
}

sub addcall($$)
{
	my ( $ <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	3635	3744	
==><does interface>

The class 'does' the given interfaces (the collection of methods
which the class implements) <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	31883	31985	
==>>{'pir'} =~ /\$\{STACK0\}/ &&
		    $rule->{'pir'} =~ /\$\{STOREREG\}/) {
			die "pir must use one of \ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	3050	3149	
==>d $_[3] ? $_[3] : qq{\\};
	my $pat = gen_delimited_pat($del, $esc);
	my $startpos = pos $$textref || <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47078	47303	
==>UG_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_EN <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47861	48086	
==>UG_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_EN <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6441	6580	
==>pile(subpat)\n);

        last if $name eq '_MASTER';

        $pirCode .= qq(
            store_global name, rulesub\n\n);
    }

    # End <==
3	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	1767	1866	
==>MAINLOOPNR

DOLINE:
	save S0
	bsr RUNLINE
	restore I0
	branch ENDMAINLOOP
	end

ENDMAINLOOP:
	branch <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	874	965	
==>latform--generally the full filename is required,
though the directory generally isn't.

You <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10848	10947	
==>self and $self->isa("Jako::Construct::Block");
  confess "No content!"      unless @_;
  confess "Il <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16356	16509	
==>ned $defn ) {
            $result = $defn;
        }
        else {
            $defn = $parser->YYData->{symbtab}->LookupU($idf);
            if ( d <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10189	10301	
==>do {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**No state left on stack: aborting.\n";

			return(unde <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9732	9839	
==>do {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**No state left on stack: aborting.\n";

			return(unde <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	96	206	
==>roto, %opts) = @_;
    my $self = bless \%opts, (ref($proto) || $proto);
    $self->init();
    return $self;
} <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	306	416	
==>roto, %opts) = @_;
    my $self = bless \%opts, (ref($proto) || $proto);
    $self->init();
    return $self;
} <==
3	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	467	564	
==>rprint of the state of Parrot.

Note that this is only done for development versions of Parrot, i. <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16791	16890	
==>CDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
        # Leave out "- so that "--" won' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10235	10330	
==>CDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
    # Leave out "- so that "--" won' <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15552	15643	
==>arg($node,2));
  $self->_add_inst ('', 'set', [$return.'[0]',$value]);
  $self->_restore ($v <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141401	141759	
==>i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 173,
                  "ARGS" => [
                              "nc",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 77 \"src/op <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5700	5819	
==>f") {
			$_=pop @ifstack;
			if ($_ < 0 ) {
				# print "Else was done, skipping...\n";
			} else {
				push @{$code{$se <==
3	/Users/nnunley/parrot/config/init/hints.pm	303	399	
==>cut

package init::hints;

use strict;
use vars qw($description @args);

use base qw(Parrot::Conf <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938043	938339	
==>join",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938932	939228	
==>join",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19798	19928	
==>T' => 5,
			'BREAK' => 110,
			'FOR' => 6,
			"(" => 8,
			'RETURN' => 112,
			'IF' => 10,
			'FUNCTION' => 12,
			'DO' => 1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876897	877216	
==>,
                  "TYPE" => "inline",
                  "CODE" => 994,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 239 \"src/ <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	28690	28818	
==>";
    }
    print <<EOC;
	$throw $cmt
EOC
}
sub GET_ITER
{
    my ($n, $c, $cmt) = @_;
    my $it = temp('P');
    my $tos = pop <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15910	16001	
==>arg($node,2));
  $self->_add_inst ('', 'set', [$return.'[1]',$value]);
  $self->_restore ($v <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352288	352394	
==>\"src/ops/io.ops\"\n  PIO_printf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352946	353052	
==>\"src/ops/io.ops\"\n  PIO_printf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  " <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16274	16374	
==>n(%opts);	# Get expression tokens
		#print STDERR Dumper(\@expr);
		$whole.=join(' ', map { $_->[0] } <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	825	928	
==>y ($self, $tree, $ctx) = @_;
    return $self->convert($tree->pat, $ctx);
}

sub convert_rx_alt {
    my <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	4371	4533	
==>\n    DO_OP(pc, interpreter);\n    {{=pc}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => " <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	59859	59956	
==>cated by returning C<undef>
(in this case the input text is not modified in any way).

In addition <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712753	712946	
==>rpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713860	714053	
==>rpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/examples/benchmarks/primes.pl	695	817	
==>OP;}
     $i6++;
     $i7 = $i1;
 NEXT:
  $i1++;
  if ($i1 <= $i2) {goto REDO;}
  print $i6, "\nlast is: $i7\n";

=head1 SE <==
3	/Users/nnunley/parrot/config/init/hints/darwin.pm	484	586	
==>no-long-double ";
    $ccflags =~ s/-flat_namespace\s*//;
    $ldflags =~ s/-flat_namespace\s*//;
    $ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9888	9984	
==>ot exists($$states[$$stack[-1][0]]{ACTIONS})
			        or  not exists($$states[$$stack[-1][0]]{ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9442	9537	
==>ot exists($$states[$$stack[-1][0]]{ACTIONS})
			        or  not exists($$states[$$stack[-1][0]]{ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37393	37499	
==>describe . ']},
				  Parse::RecDescent::_tracefirst($text),
				  q{' . $rule->{"name"} . '})
					if defi <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39796	39902	
==>describe . ']},
				  Parse::RecDescent::_tracefirst($text),
				  q{' . $rule->{"name"} . '})
					if defi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1254	1363	
==>urn shift->{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { re <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1245	1354	
==>urn shift->{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { re <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1134	1243	
==>urn shift->{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { re <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	7826	7960	
==>f      math.h
atanhl      math.h
atanl       math.h
atexit      stdlib.h
atof        stdlib.h
atoi        stdlib.h
atol        stdlib.h <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2192	2325	
==>$sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various libraries in the link line.
        $ <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2484	2617	
==>$sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various libraries in the link line.
        $ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2279	2412	
==>$sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various libraries in the link line.
        $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773922	774309	
==>",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 874,
                  "ARGS" => [
                              "p",
                              "kic",
                              "i"
                            ],
                  "BODY" => "#line 377 <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	51064	51187	
==>ed using a C<E<lt>defer:...E<gt>> directive. For example:

        sentence: subject verb object
                        <de <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Examples.pm	660	775	
==>:new(
        'Examples', 'examples.html', '',
            $self->new_group('PASM and PIR',         '', 'examples/pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937368	937597	
==>ME" => "titlecase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1999	2087	
==>pe;

    if (UNIVERSAL::isa($args[$i], 'Jako::Construct::Expression::Value::Identifier')) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1699	1787	
==>pe;

    if (UNIVERSAL::isa($args[$i], 'Jako::Construct::Expression::Value::Identifier')) <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	8101	8223	
==>unless $ret_type eq 'void';
        $funcs .= ";\n}\n\n";

    }

    return ($funcs, $protos);
}

sub find_type
{
    my $ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3951	4050	
==>outhash{$prm}=$value;
	}
	for (@$mandatory) {
			exists($$outhash{$_})
		or	croak("Missing manda <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3752	3847	
==>outhash{$prm}=$value;
	}
	for (@$mandatory) {
			exists($$outhash{$_})
		or	croak("Missing manda <==
3	/Users/nnunley/parrot/Configure.pl	4122	4210	
==>eps.pm>,
F<lib/Parrot/Configure/Step.pm>, F<docs/configuration.pod>

=cut

use strict;
us <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5084	5230	
==>t;";
        } else {
            push @ops, "goto $pass if <rx_tmp> >= $first;";
        }
    }
    push @ops, "goto $fail;";

    push @ops, $se <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	13708	13836	
==>= shift @{$vars} ) {
        push @opcodes1, @{ $var->[1] };
        my $expr = shift @{$exprs};
        unless ( defined $exp <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	1945	2037	
==>em('The presence of this file indicates that the distribution is a development version.', 'DE <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	103	193	
==>-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Section::Docs - Docs documenta <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1354	1445	
==>pbc"
#  load_bytecode "languages/lua/lib/luaos.pbc"
#  load_bytecode "languages/lua/lib/lu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471121	471221	
==>=> "#line 394 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472108	472208	
==>=> "#line 394 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473095	473195	
==>=> "#line 394 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1394	1513	
==>d block!")
    unless defined $block;

  #
  # Lookup the identifier:
  #

  my $name = $self->name;

  my $sym = $block <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807855	807942	
==>502 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed(interpreter, {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808760	808847	
==>502 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed(interpreter, {{ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30636	30794	
==>"<" => 74,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39986	40144	
==>"<" => 74,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41613	41771	
==>"<" => 74,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561907	562004	
==>(!{{\@1}}) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not fo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562991	563088	
==>(!{{\@1}}) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not fo <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39455	39543	
==>rg,
		"expected"  => "<${type}op: ".$leftarg->describe." ".$op->describe." ".$rightarg->d <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	13726	13986	
==>},
                                    CD     => $path_to_parrot,
                                    STDOUT => $out_f,
                                    STDERR => $out_f);
                        if ( -e $exe_f ) {
                            run_command($ex <==
3	/Users/nnunley/parrot/config/auto/headers.pm	32	120	
==>erl Foundation.
# $Id: /parrot/config/auto/headers.pm 19593 2006-05-30T02:28:15.110975Z c <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7375	7511	
==>pe eq 'text' ) {
          $self->unget_token($next);
          next;
        }
        DEBUG and print "    raw text ", $next->text, "\n <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9620	9756	
==>pe eq 'text' ) {
          $self->unget_token($next);
          next;
        }
        DEBUG and print "    raw text ", $next->text, "\n <==
3	/Users/nnunley/parrot/Configure.pl	10177	10279	
==>n now use `$make' to build your Parrot.
(NOTE: do not use `$make -j <n>'!)
After that, you can use `$ma <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	769	868	
==>, for opcode functions that have more internal complexity the
format is:

    op opname (args) :clas <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	938	1026	
==>efine NREG(i) REG_NUM(cur_opcode[i])
#define PREG(i) REG_PMC(cur_opcode[i])
#define SREG( <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1054	1142	
==>efine NREG(i) REG_NUM(cur_opcode[i])
#define PREG(i) REG_PMC(cur_opcode[i])
#define SREG( <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5982	6084	
==>ds to
	# have an empty stack type state propogated to it if nothing has been
	# propogated there alread <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3920	4022	
==>ds to
	# have an empty stack type state propogated to it if nothing has been
	# propogated there alread <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	16250	16346	
==>nt
  xhtml-lat1.ent
  xhtml-special.ent
)) {
  open(IN, "<$dir$file") or die "can't read-open $di <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1113	1211	
==>ds

=head3 Constructors

=over 4

=item * C<new()>

Basic constructor.

Accepts no arguments and re <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	650	748	
==>ds

=head3 Constructors

=over 4

=item * C<new()>

Basic constructor.

Accepts no arguments and re <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6574	6690	
==>odtime($source) > $target_mod;
    }

    return 0;
}

sub generate_dump {
    my ($pmc) = @_;

    if (needs_build(" <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6785	6901	
==>odtime($source) > $target_mod;
    }

    return 0;
}

sub generate_dump {
    my ($pmc) = @_;

    if (needs_build(" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	571	664	
==>Block');
  confess("Identifier (" . ref($ident) . ") is not!") unless UNIVERSAL::isa($ident, ' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	571	664	
==>Block');
  confess("Identifier (" . ref($ident) . ") is not!") unless UNIVERSAL::isa($ident, ' <==
3	/Users/nnunley/parrot/config/gen/icu.pm	493	585	
==>rmining whether ICU is installed";

@args = qw(verbose icushared icuheaders icu-config withou <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1353	1610	
==>e N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hire <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	1353	1610	
==>e N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hire <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	8173	8316	
==>$line;
			
			while ( @lines )
			{
				$line = shift @lines;
		
				last if $line !~ /\S/o;
				
				push @abstract, $line;
			}
			
			my $des <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	32815	32936	
==>_star,
  'letrec'     => \&_op_letrec,
  'begin'      => \&_op_begin,
  'do'         => \&_op_do,
  'delay'      => \&_op_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	3012	3132	
==>$self);

  return $self;
}


#
# ACCESSORS:
#

# block handled by superclass?
# access handled by superclass?
sub type  { <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65380	65475	
==>=~ m/$ATLEAST/gco)
				{
					_parse("a $1-or-more subrule match", $aftererror,$line,"$code$argc <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	5191	5411	
==>p( $parser,
                    'prolog' => 1,
                    'arg1'   => $expr,
                    'result' => $defn,
                );
            }
        }
        return [ $defn, \@opcodes ];
    }
} <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	30881	30988	
==>height + 1);
    return wantarray ? @caller : $caller[0];
}

=back

=cut

=begin _private

=over 4

=item B< <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	3185	3283	
==>($charset_dir, 'tables.h');
open STDOUT, '>', $h_file
    or die "can not open '$h_file': $!\n";
pr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	718	829	
==>my $self = bless {
    BLOCK => $block,
    IDENT => $ident
  }, $class;

  $block->push_content($self);

  retu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	718	829	
==>my $self = bless {
    BLOCK => $block,
    IDENT => $ident
  }, $class;

  $block->push_content($self);

  retu <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	6815	6924	
==>1 # TODO" confuse the harness. Escape desc #s.
    $out ~~ s:P5:g/#/\\#/;

    my $context_out = $context.defi <==
3	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1658	1773	
==>_parrot) {
    print "    0\n";
}
else {

    my $image_file = $install_parrot ?
        'install_config.fpmc' : 'ru <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2748	2846	
==>d_element({ Name => 'block' });
  }

  $handler->start_element({ Name => 'block', Attributes => { k <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2625	2723	
==>d_element({ Name => 'block' });
  }

  $handler->start_element({ Name => 'block', Attributes => { k <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510530	510795	
==>MP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511268	511533	
==>MP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	512006	512271	
==>MP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135557	135929	
==>);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136451	136823	
==>);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARG <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/State.pm	384	493	
==>abel';
}

sub genlabel {
    my ($self, $desc) = @_;
    my $number = ++$self->{_markers}->{$desc};
    $numbe <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	2123	2257	
==>ler);

    if ($cond eq 'if') {
      $op = $compiler->invert_relop($op);
    }
    else {
      $cond = 'if';
    }

    $anon = $comp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151013	151107	
==>> "#line 112 \"src/ops/cmp.ops\"\n  if (0 == string_equal(interpreter,\n      {{\@1}}->vtable-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151991	152085	
==>> "#line 112 \"src/ops/cmp.ops\"\n  if (0 == string_equal(interpreter,\n      {{\@1}}->vtable-> <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	3300	3419	
==>g else goes to the handler
  $dispatch{$cur_section}->($line);

}

# Put the registers back and end
print OUTPUT "restor <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	45470	45587	
==>t "Formatting <$new_line[-1][-1]> as $new_line[-1][0]\n";
      }
    }
    my @nixed =    
      splice @$p, $i-1, 2, <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	28849	28961	
==>($tos);
    print <<EOC;
	$it = iter $var $cmt
EOC
    push @stack, [$tos->[0], $it, 'P']
}
sub FOR_ITER
{
    my <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554312	554601	
==>c, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555709	555998	
==>c, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556946	557235	
==>c, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30610	30771	
==>S => {
			"-" => 72,
			"<" => 74,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86, <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39960	40121	
==>S => {
			"-" => 72,
			"<" => 74,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86, <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41587	41748	
==>S => {
			"-" => 72,
			"<" => 74,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86, <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	6169	6334	
==>\(([^)]+)\):(.*)/s) {
                next if $conf->data->get($1);
                $line = $2;
            }
        }

        # interoplate @foo@ values
        $l <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2240	2367	
==>t_f);
      my $builder_func = $language_test_map{$func};
    
      {
        no strict 'refs';

        $pass = $self->{builde <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	1085	1195	
==>put_";
    return $self->$method(@{ $op->{args} });
}

sub lookup_var {
    my ($self, $var, $ctx) = @_;
    re <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	4472	4580	
==>{Test_Results} = &share([]);

    $self->{Exported_To}    = undef;
    $self->{Expected_Tests} = 0;

    $sel <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717943	718039	
==>MC * const io = {{\@1}};\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718875	718971	
==>MC * const io = {{\@1}};\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736670	736894	
==>\"src/ops/set.ops\"\n  {{\@1}} = (FLOATVAL){{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737416	737640	
==>\"src/ops/set.ops\"\n  {{\@1}} = (FLOATVAL){{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	147	234	
==>terpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm 19606 2006-0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	923174	923384	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	923850	924060	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924640	924850	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	658	785	
==>{ map { $_ => 0 } (0..31) },
  };
};

sub _save {
  my $self  = shift;
  my $count = shift;
  my $type  = shift || 'I';

  die " <==
3	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	2205	2310	
==>lOp;
use base qw(Lua::opcode);

package SubDir;
use base qw(Lua::opcode);

package EndDir;
use base <==
3	/Users/nnunley/parrot/Configure.pl	1362	1454	
==>erl5's $Config{optimize} to the compiler flags.

=item C<--optimize=flags>

Add C<flags> to t <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	15393	15537	
==>e the ending of module blocks:
      #

      elsif ($peer_block->kind eq 'module') {
        # DO NOTHING
      }

      #
      # If there is a <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	2714	2824	
==>}

sub rule_save_rxlocals {
    my ($self) = @_;

    my $rxlocals = ($self->{rxlocals} ||= []);
    return (ao <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13317	13416	
==>ore/)
	{
		# Do nothing
	}
	elsif (@items &&
		( ref($items[0]) =~ /\AParse::RecDescent::UncondRejec <==
3	/Users/nnunley/parrot/config/gen/config_h.pm	526	620	
==>arrot::Configure::Step::Base);

use Parrot::Configure::Step ':gen';

$description = 'Generating <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	368	462	
==>arrot::Configure::Step::Base);

use Parrot::Configure::Step ':gen';

$description = 'Generating <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	360	454	
==>arrot::Configure::Step::Base);

use Parrot::Configure::Step ':gen';

$description = 'Generating <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4427	4527	
==>ly
    my @ungrouped_pmcs = grep { ! exists $pmc_group->{$_} } @pmcs;
    partial_link($_, $pmc_libs- <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4531	4631	
==>ly
    my @ungrouped_pmcs = grep { ! exists $pmc_group->{$_} } @pmcs;
    partial_link($_, $pmc_libs- <==
3	/Users/nnunley/parrot/tools/dev/symlink.pl	1641	1741	
==>srcfile = File::Spec->catfile($topsrcdir, @manifile);
	    unless (-f $srcfile) {
		warn "$self: cann <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122121	122344	
==>VALUE_CAST(UINTVAL, {{\@1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123033	123256	
==>VALUE_CAST(UINTVAL, {{\@1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	2028	2118	
==>tination = new_buffer_header(interpreter);\nPObj_external_SET(final_destination)",
#      B <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	597	700	
==>m paragraph), and
# to call the proper callbacks on the treelets.
#
# Every node in a treelet is a ['nam <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1398	1500	
==><rx_match>{0}->[0] = <rx_pos>; # group 0 start := pos');
}

sub output_increment {
    my ($self, $dist <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	282	374	
==>ict;
eval "use warnings";

package Jako::Construct::Expression::Value;

use base qw(Jako::Con <==
3	/Users/nnunley/parrot/config/auto/readline.pm	1094	1217	
==>, libs => '-lreadline');
    }

    my $osname = $Config{osname};

    # On OS X check the presence of the readline header i <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9956	10044	
==>sts($$states[$$stack[-1][0]]{ACTIONS}{error})
					or	$$states[$$stack[-1][0]]{ACTIONS}{ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9509	9596	
==>sts($$states[$$stack[-1][0]]{ACTIONS}{error})
					or	$$states[$$stack[-1][0]]{ACTIONS}{ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	12108	12243	
==><" => 3,
			"&" => 5,
			'CODE' => 6,
			"^" => 9,
			"(" => 10,
			"[" => 14,
			"." => 15
		},
		GOTOS => {
			'charclass' => 12,
			' <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	2220	2342	
==>} == 4) {
        $conf->data->set(int4_t => 'long');
    } else {
        $conf->data->set(int4_t => 'int');
        print <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	3379	3479	
==>RR "\nThe following function declarations appear to contain a newline\n";
        print STDERR "betwe <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	2550	2643	
==>ue followed by a list of C<key => value> pairs and
returns a L<Parrot::Configure::Data> object <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109614	109702	
==>ODY" => "#line 182 \"src/ops/bit.ops\"\n  string_bitwise_or(interpreter, {{\@1}}, {{\@2}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110393	110481	
==>ODY" => "#line 182 \"src/ops/bit.ops\"\n  string_bitwise_or(interpreter, {{\@1}}, {{\@2}} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	1674	1804	
==>ronym
      subscript=sub
      superscript=sup
      big=big
      small=small
      underline=u
      strikethrough=s
    ]  # no <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	1303	1406	
==>Instance Methods

=over 4

=item C<name()>

Returns the name of the group.

=cut

sub name
{
	my $self = <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	40282	40376	
==>1 and !ref($ell_content[0])
         and $ell_content[0] =~ m/^[-a-zA-Z0-9]+\([-a-zA-Z0-9]+\)$/ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28605	28742	
==>,
			'primary' => 28
		}
	},
	{#State 87
		DEFAULT => -105
	},
	{#State 88
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRU <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	278	406	
==>use File::Spec;
use Getopt::Std;
use Text::Balanced; # XXX temporarily limit ourselves to perl 5.8...
                    # XXX T <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20283	20383	
==>trace(q{>>Matched production: ['
					  . $self->describe . ']<<},
					  Parse::RecDescent::_tracefi <==
3	/Users/nnunley/parrot/languages/regex/regex.pl	115	223	
==>e;
my $tree_opt = 1;
my $list_opt = 1;
my $debug = 0;
my $output;
my $subname;
my $language = "pir";
my $main <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21531	21637	
==>f,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(1);
  my $temp = <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21916	22022	
==>f,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(1);
  my $temp = <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	2348	2456	
==>ND';

Can't find a int type with size 4, conversion ops might fail!

END
    }

    if ($results{floatsize} = <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3995	4100	
==>o code for each push.
	$pir .= "\${ITEMP0} = 0\n";
	for (1..$pushes) {
		$pir .= <<'PIR';
# Increment stac <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2411	2516	
==>o code for each push.
	$pir .= "\${ITEMP0} = 0\n";
	for (1..$pushes) {
		$pir .= <<'PIR';
# Increment stac <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544243	544364	
==>} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = a, saved_var2 = b; \n\n if(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n wh <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545579	545700	
==>} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = a, saved_var2 = b; \n\n if(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n wh <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546915	547036	
==>} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = a, saved_var2 = b; \n\n if(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n wh <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29498	29639	
==>tate 92
		ACTIONS => {
			"}" => 144
		}
	},
	{#State 93
		ACTIONS => {
			";" => 146,
			"," => 147
		},
		DEFAULT => -107,
		GOTO <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	9256	9364	
==>CII) {
      # A good-enough check that it's good as an XML Name symbol:
      Carp::croak "\"$new_code\" isn <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10520	10628	
==>CII) {
      # A good-enough check that it's good as an XML Name symbol:
      Carp::croak "\"$new_code\" isn <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4387	4484	
==>STEMP0}

# Increment dtypes index.
inc ${ITEMP0}
PIR
		$pir =~ s/\$push_num/$push_num/g;
		$push_n <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2803	2900	
==>STEMP0}

# Increment dtypes index.
inc ${ITEMP0}
PIR
		$pir =~ s/\$push_num/$push_num/g;
		$push_n <==
3	/Users/nnunley/parrot/languages/urm/urm-old.pl	656	764	
==>((r\d+)/) { $outreg = $1 }
    if ($line =~ /^\d+:(.+)/) { 
	my $code = $1;
	# Some beautification!
	$code =~ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822407	822501	
==>CK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_int(entry->entry);\n  {{+=3}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823475	823569	
==>CK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_int(entry->entry);\n  {{+=3}};\n", <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26865	26979	
==>e'}");
		$pir .= "\n" if $pir !~ /\n$/;
		$pir .= "### end typeinfo\n";

		# Now call pre_op and append code that i <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	34605	34697	
==>correctly nested within the substring, and any other kind of
("non-delimiter") bracket in the <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722487	722772	
==>preter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pri <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723516	723801	
==>preter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pri <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724560	724845	
==>preter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pri <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	6913	7037	
==>$recursive, $ignore))
    {
        next unless $file->has_suffix($suffix);
        push @files, $file;
    }
    
    return <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	1254	1369	
==>$3];
		$known_strings{$3} = scalar @all_strings;
	    }
	}
	close(IN);
    }
}

sub process_cfile {
    open IN, $in <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5450	5552	
==>p
CODE
	},
	'eqv' => sub {
		my($a1,$a2,$result,$op,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	2410	2537	
==>output_header($fh);
    return 1 unless $self->{emit_main};

    print $fh <<'END';
.sub main :main
    .param pmc args
    .loc <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9678	9763	
==>turn 1;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10807	10892	
==>turn 1;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1261	1371	
==>ft->{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1252	1362	
==>ft->{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1141	1251	
==>ft->{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726022	726245	
==>{\@1}} = string_copy(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726784	727007	
==>{\@1}} = string_copy(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742002	742225	
==>{\@1}} = string_copy(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13092	13197	
==>my @args = _get_args ($node);

  for (@args) {
    $self->_restore ($temp);
    $temp = $self->_generate ( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	842	936	
==>L::isa($ident, qw(Jako::Construct::Expression::Value::Identifier));

  my $self = bless {
    B <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	806	900	
==>L::isa($ident, qw(Jako::Construct::Expression::Value::Identifier));

  my $self = bless {
    B <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	45975	46087	
==>guess
       # that you'd better have nbsp_for_S off.
    }
  }

  return $is_s;
}

#---------------------------- <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	6407	6509	
==>tartpos,  $ldelpos-$startpos,		# PREFIX
		$ldelpos,   1,				# OPENING BRACKET
		$ldelpos+1, $endpos-$ld <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	189	270	
==>ko/lib/Jako/Construct/Block/Conditional/Unless.pm 19606 2006-05-30T15:08:05.048089 <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7569	7671	
==>and post store operation hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5687	5789	
==>and post store operation hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4529	4631	
==>and post store operation hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	839664	839855	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rotate_up",
                  "FLAGS" => ":base_core",
                  "ARG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840358	840549	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rotate_up",
                  "FLAGS" => ":base_core",
                  "ARG <==
3	/Users/nnunley/parrot/config/init/hints.pm	1056	1166	
==>se $hints";
    unless ($@) {
        $hints->runstep($conf, @_) if $hints->can('runstep');
        $hints_used <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	2143	2266	
==>2 - $3))  & ((1 << $3) - 1))) + $4";
	$insert .= "\t$c\n";
  }
  
  my $dump = '
  sub round {
	my ($a,$b,$c,$d) = @_[0 .. 3 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	1893	2008	
==>ay\n";
		if ($array) { 
			$stype="ARRAY"; 
		} else {
			$var=~s/\W$//g;
		}
		#print "Type: $stype  User: $user Va <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	2107	2208	
==>y $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'ident', Attributes => { n <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	194	287	
==>ols/dev/gen_charset_tables.pl

=head1 DESCRIPTION

Generate character set tables.

=cut


my ( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62803	63053	
==>JUMP" => 0,
                  "NAME" => "errorsoff",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63448	63698	
==>JUMP" => 0,
                  "NAME" => "errorsoff",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1098294	1098450	
==>3\");       /* opcode 0xcc */\n#endif\n    {{+=1}};\n",
                  "experimental" => 1,
                  "LABELS" => []
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	5462	5588	
==>ude' :
        (m[^languages/(\w+)/] and $1 ne 'conversion') ? "[$1]" :
        m[^lib/]          ? '[devel]' :
        m[^runt <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	51	152	
==>e rendering it out
# as List ops. Most optimizations should go here, since the List form
# is really s <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29774	29866	
==>ethod}{$meth};
    return $self->SUPER::body($self->{methods}[$n], $line, $out_name);
}

=bac <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	1526	1652	
==>_test( '.bc', $count );
            Parrot::Test::write_code_to_file( $code, $lang_fn );
        }

        # set a TODO for Te <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	2233	2366	
==>it /\n/, $fdecl;
        if ($firstline !~ /\(/) {
	    $bad_fdecls{$fdecl} = $secondline;
        }
    }
    
    # now a little tri <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	44021	44132	
==>]\"" : "";
	_hint("You need to define a rule for the $_[0] $desc
	       to be part of.");
}

my $NEGLOOKAHEAD	= <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1092	1187	
==>people writing Pod formatters based on Pod::Simple.

This class (which is very small -- read the <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	4171	4277	
==>"Can't open $source: $!";

    open my $out, '>', "$target.tmp" or die "Can't open $target.tmp: $!";

    i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630582	630685	
==>r, NULL, NO_CLASS,\n            \"Class '%Ss' not found\", readable_name(interpreter, class));\n    {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631572	631675	
==>r, NULL, NO_CLASS,\n            \"Class '%Ss' not found\", readable_name(interpreter, class));\n    {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	7917	8070	
==>hort_name = $2;
            $args       = _trim(lc $3);
            $flags      = $4 ? _trim(lc $4) : "";
            @args       = split(/\s*,\s*/, $args <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	4219	4326	
==>sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'assign' });
  $sel <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1630	1737	
==>sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'assign' });
  $sel <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680538	680738	
==>ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 488 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_p <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	7503	7631	
==>$FH}
                "  if $op->{arg1}->{symbol} goto $op->{result}->{symbol}\n";
        }
    }

    sub visitBranchUnless <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	6629	6724	
==>is generated automatically from 'src/jit/$cpuarch/core.jit'
 * by $0.
 *
 * Any changes made her <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271091	271358	
==>"#line 871 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271937	272204	
==>"#line 871 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272783	273050	
==>"#line 871 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576659	576962	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subclass",
                  "FLAGS" => ":object_base <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595408	595711	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subclass",
                  "FLAGS" => ":object_base <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596300	596603	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subclass",
                  "FLAGS" => ":object_base <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571812	572066	
==>=> 653,
                  "ARGS" => [
                              "i",
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 223 \"src/ops/object.ops\"\n    PMC *class = P <==
3	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	350	472	
==>0) {
    my @arr;
    foreach (1..10) {
	$arr[$_] = buildarray();
    }
}

sub buildarray {
    my @foo;
    foreach (1..10 <==
3	/Users/nnunley/parrot/config/auto/headers.pm	203	300	
==>s for various C headers.

=cut

package auto::headers;

use strict;
use vars qw($description @args <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	7197	7308	
==>irectory_with_name
{
    my $self = shift;
    my $name = shift || return;
    
    return File::Spec->catdir($s <==
3	/Users/nnunley/parrot/config/auto/alignptrs.pm	352	442	
==>rrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';
use Config;

$descripti <==
3	/Users/nnunley/parrot/config/auto/headers.pm	319	409	
==>rrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';
use Config;

$descripti <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685028	685344	
==>"setprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 769,
                  "A <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	7357	7483	
==>s
        #  from getting split from the things they're subheadings for.
        #
        # It's not terribly pretty, but it r <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2171	2267	
==>nd section, with the heads of any\n".
		"files which had familiar types, but from which descripti <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	814	914	
==>'SVN Entries file',   # probably obsolete
	'PL' => 'Perl script',
	'SKIP' => 'MANIFEST skip file',
	' <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	3066	3165	
==>C_IS_SINGLETON = 0x10,
    VTABLE_IS_SHARED_FLAG   = 0x20,
    VTABLE_IS_CONST_PMC_FLAG = 0x40
} vta <==
3	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	1645	1743	
==>UT, ">>$output") or die "open $output for append: $!";
    print OUTPUT "/* CHECKSUM: $checksum */\ <==
3	/Users/nnunley/parrot/config/gen/platform.pm	1236	1343	
==>nt("\n") if defined $verbose && $verbose == 2;

    # headers are merged into platform.h
    my @headers = q <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1783	1889	
==>.
	$pir .= "\${ITEMP0} = 0\n";
	for (1..$pushes) {
		$pir .= <<'PIR';
# Get type (so we can find register t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273628	273874	
==>"#line 876 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	274474	274720	
==>"#line 876 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	275320	275566	
==>"#line 876 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/config/auto/headers.pm	2817	2925	
==>options->get('verbose');
        $conf->data->set($flag => $pass ? 'define' : undef);
    }

    return $self <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	1273	1367	
==>y include path where to find PMCs.

=item C<--library=libname>

Specifiy the library name. This <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	5465	5564	
==>I = sort keys %API;

my @NoParrotAPI = grep { !exists $API{$_} } sort keys %ParrotAPI;
my @NoParrotP <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1785	1881	
==>shift;

    return $self->{ARGS}[shift];
}

=item C<goto_address($address)>

Transforms the C<got <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1400	1496	
==>shift;

    return $self->{ARGS}[shift];
}

=item C<goto_address($address)>

Transforms the C<got <==
3	/Users/nnunley/parrot/languages/lua/luac.pl	215	330	
==>calar(@ARGV) != 1 ) {
    use Pod::Usage;
    pod2usage( -verbose => 1 );
}

my $parser = new Lua::parser();
$ <==
3	/Users/nnunley/parrot/config/auto/gc.pm	249	342	
==>assed to F<Configure.pl>
and sets the memory allocator accordingly.

C<--gc> can take the valu <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	640	734	
==>s about the configuration
framework.

=head1 USAGE

=head2 Import Parameters

This module accep <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	534	628	
==>r_number
  %Latin1Code_to_fallback
  %Latin1Char_to_fallback
  $FAR_CHAR
  $FAR_CHAR_NUMBER
  $ <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	24291	24408	
==>k;
	    my $arg = pop @stack;
	    my $arg_name = $arg->[1];
	    $j = $def_arg_names{$name}{$arg_name};
	    print << <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1910	2002	
==>yzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
    # Yes, stipulate the list <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2013	2105	
==>yzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
    # Yes, stipulate the list <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636681	636856	
==>",
                              "sc"
                            ],
                  "BODY" => "#line 107 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	4135	4248	
==>d|HP-UX/) { 
    $nm_opt = '-p';
} elsif ($^O eq 'aix'     && $nm_try =~ /illegal option/) {
    $nm_opt = '-B';
} <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	7382	7530	
==>r constant (in-line)
        #   nc   Number constant index
        #   pc   PMC constant index
        #   sc   String constant index
        #   kc <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	327	437	
==>ort {
    my( $class, $plan, @args ) = @_;

    Test::More->import( $plan, @args );

    __PACKAGE__->_export_t <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	244	354	
==>ort {
    my( $class, $plan, @args ) = @_;

    Test::More->import( $plan, @args );

    __PACKAGE__->_export_t <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	691	810	
==>ew($path)>

Returns the instance for C<$path>.

=cut

sub new
{
    my $self = shift;
    my $path = shift;
    
    ret <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2863	2968	
==>ub1:
   PRINT "2 in subroutine one"
   GOSUB Sub2
   PRINT "ERR this line in subroutine one should be skip <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16830	16935	
==>ub1:
   PRINT "2 in subroutine one"
   GOSUB Sub2
   PRINT "ERR this line in subroutine one should be skip <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3208	3336	
==>es.pl for documentation on the
# format of this file.
# See docs/submissions.pod on how to recreate this file after SVN
# has bee <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3042	3143	
==>ff control stack.

=item C<expr OFFSET(X)>

Transforms to C<PC + X>. This is used to give a relative a <==
3	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	649	748	
==>t


use strict;
use lib 'lib';
use Digest::Perl::MD5 qw(md5_hex);

my $compat_file = 'PBC_COMPAT';
o <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	8182	8300	
==>es\s+\((.*)\)/) {
		    my $vars = $1;
		    $vars =~ s/[\s']//g;
		    $func_info{$cur_f}{varnames} = $vars;
		    pri <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1257	1363	
==>t_f), $output, $desc );
        $self->{builder}->diag("'$cmd' failed with exit code $exit_code")
        i <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1298	1404	
==>t_f), $output, $desc );
        $self->{builder}->diag("'$cmd' failed with exit code $exit_code")
        i <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	5529	5670	
==>]" :
        m[^lib/]          ? '[devel]' :
        m[^runtime/]      ? '[library]' :
        m[^tools/docs/]   ? '[devel]' :
        m[^tool <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	2786	2902	
==>g{config_file},
    'directory=s'  => \$cfg{bench_path},
    'list'         => \$cfg{list_only},
    'time'         = <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	6346	6457	
==>process $rel_path.\n";
    }

    return @rel_paths;
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::Docs::S <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	3974	4131	
==>undef,
             'i_db' => 'define',
             'i_dbm' => undef,
             'i_dirent' => 'define',
             'i_dld' => undef,
             'i_dlf <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2255	2377	
==>{
    my $self = shift;
    my $library = $self->{opt}{library};

    if ($library) {
        my $hout = $self->gen_h($libr <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	15304	15407	
==>rary);
    PMC_struct_val(lib) = (void *) $init_func;
    dynop_register(interpreter, lib);
    return l <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	1290	1432	
==>()" ],
    [ "match_succeeded()" ],
    [ "match_failed()" ],
  );

sub op {
    my ($class, $name, $args, %opts) = @_;

    $DB::single = 1 if <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724237	724338	
==>\"src/ops/python.ops\"\n  PMC * const p = {{\@2}};\n  PMC * const io = {{\@1}}; /* TODO Can this be lo <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30677	30776	
==>t to the type
	# Dest returned in P0
STRUCT_DIM:
SCOPYDIS
	foreach(keys %usertypes) {
		print CODE<< <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25617	25722	
==>]);
    $self->_restore($temp);
  } else {
    $return = $self->_generate($node->{children}[1]);
    if ($ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27515	27620	
==>]);
    $self->_restore($temp);
  } else {
    $return = $self->_generate($node->{children}[1]);
    if ($ <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	3915	4011	
==>lines_flag );
    $ops->{OPS} = $Parrot::OpLib::core::ops;
    $ops->{PREAMBLE} = $Parrot::OpLib: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14675	14870	
==>\n  opcode_t * const loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	15362	15557	
==>\n  opcode_t * const loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	1763	1897	
==>"void *",
       B => "void **",
       L => "long *",
       T => "char **",
     );

my %other_decl =
     ( p => "PMC *final_destina <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54820	54930	
==>ne 864 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55580	55690	
==>ne 864 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19476	19575	
==>s (as best as it can
notice them) that labels them as being not in English, and
so not worth spellch <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320028	320280	
==>rrot_Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320798	321050	
==>rrot_Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	31045	31149	
==>} elsif($item_type eq 'number' or $item_type eq 'bullet') {
            die "Unknown item type $item_type <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10660	10766	
==>pmc;
  }

  $self->_new_lex ($symbol,$value);

  return $value;
}

sub _op_set_bang {
  my ($self, $node) = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627393	627487	
==>od\n   * copies the registers. */\n  {{\@1}} = pmc_new_noinit(interpreter, {{\@2}});\n  {{\@1}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628537	628631	
==>od\n   * copies the registers. */\n  {{\@1}} = pmc_new_noinit(interpreter, {{\@2}});\n  {{\@1}} <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1376	1462	
==>d -Wdisabled-optimization -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMP <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1421	1507	
==>d -Wdisabled-optimization -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMP <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1425	1511	
==>d -Wdisabled-optimization -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11056	11162	
==>stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  {{+={{\@1}}}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11845	11951	
==>stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  {{+={{\@1}}}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1680	1796	
==>ue);
  $self->SYNTAX_ERROR("Assigning to unknown variable %s.", $dest->value) unless $dest_sym;
  my $dest_type = $de <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1638	1754	
==>ue);
  $self->SYNTAX_ERROR("Assigning to unknown variable %s.", $dest->value) unless $dest_sym;
  my $dest_type = $de <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1560	1676	
==>ue);
  $self->SYNTAX_ERROR("Assigning to unknown variable %s.", $dest->value) unless $dest_sym;
  my $dest_type = $de <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	4344	4468	
==>rc'    , 219,
 'Uuml'     , 220,
 'Yacute'   , 221,
 'THORN'    , 222,
 'szlig'    , 223,
 'agrave'   , 224,
 'aacute'   , 22 <==
3	/Users/nnunley/parrot/lib/Test/More.pm	21566	21668	
==>fail and $why.  Perhaps it's
because you haven't fixed a bug or haven't finished a new feature:

    TO <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	1540	1641	
==>if ($results{ptrsize} != $results{intvalsize}) {
        print <<"END";

Hmm, I see your chosen INTVAL <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2521	2635	
==>) {
    return 0 + $in;
  } else {
    return $Name2character_number{$in}; # returns undef if unknown
  }
}

#----- <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	5239	5343	
==>0), u(10)
510 FOR I = 0 TO 6
520 READ A$(I), U(I)
    print A$(I);
530 NEXT I
540 DATA ".",0,"P",100,"T", <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	16879	17000	
==>ilder->current_test() + 1;

            # Name of the file with test code.
            my $code_f = File::Spec->rel2abs( p <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	564	662	
==>= Parrot::Test::per_test('.out',$count);
    my $parrotdir = dirname $self->{parrot};

    my $args <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	601	699	
==>= Parrot::Test::per_test('.out',$count);
    my $parrotdir = dirname $self->{parrot};

    my $args <==
3	/Users/nnunley/parrot/config/auto/cgoto.pm	526	638	
==>t verbose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $sel <==
3	/Users/nnunley/parrot/config/auto/headers.pm	461	573	
==>t verbose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $sel <==
3	/Users/nnunley/parrot/config/gen/cpu.pm	524	636	
==>t verbose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot')) {
        $sel <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13799	13903	
==>nes, C<$out_name> is the name of the output file we are
generating.

=cut

sub body
{
    my ($self, $met <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29582	29686	
==>nes, C<$out_name> is the name of the output file we are
generating.

=cut

sub body
{
    my ($self, $met <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30224	30328	
==>nes, C<$out_name> is the name of the output file we are
generating.

=cut

sub body
{
    my ($self, $met <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	4908	5007	
==>die "ops2c.pl: Could not mkdir $incdir $!!\n";
}

open HEADER, ">$header"
    or die "ops2c.pl: Cann <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	1298	1391	
==>thod_name parameters section MMD_type ]

for each vtable method defined in C<$file>. If C<$fil <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8467	8578	
==>ift;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the store.
	# Otherwise, the <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6287	6398	
==>ift;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the store.
	# Otherwise, the <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5202	5313	
==>ift;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the store.
	# Otherwise, the <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	4779	4871	
==>nt, $total_branches, $function) = /\s*([^%]+)% of (\d+) branches taken at least once in funct <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	8431	8550	
==>and printf "    item-* before %s(%s) %s keepn'd.\n",
              $to_unget[-1]->type,
              $to_unget[-1]->can <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621437	621533	
==>c->lru;\n    if (lru->u.signature == sig) {\n\tif (sig) {\n\t    n = ((arg_pass_f)lru->f.real_fun <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623606	623702	
==>c->lru;\n    if (lru->u.signature == sig) {\n\tif (sig) {\n\t    n = ((arg_pass_f)lru->f.real_fun <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	513	609	
==>source code files in the distribution pass in
C<all_source> instead of a list of files.

=head1 T <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	168	262	
==>g;

require Exporter;
require Parrot::Test;

@EXPORT = ( qw(output_is output_like output_isnt), <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	85	179	
==>g;

require Exporter;
require Parrot::Test;

@EXPORT = ( qw(output_is output_like output_isnt), <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13019	13123	
==>rf
print t

' Deep-copy of structures, 34 (NOT 99)
type first
	foo as integer
	bar as string
end type
typ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676009	676095	
==>ine 473 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_integer(interpreter, {{\@1}}, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676789	676875	
==>ine 473 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_integer(interpreter, {{\@1}}, <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	1880	2001	
==>) $var as array\n";
		if ($array) { 
			$stype="ARRAY"; 
		} else {
			$var=~s/\W$//g;
		}
		#print "Type: $stype  User: $ <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	371	482	
==>my $self = shift;
    my ( $path_to_parrot, $path_to_language, $count ) = @_;
 
    
    my $test_prog_args = $E <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	389	494	
==>my $self = shift;
    my ( $path_to_parrot, $path_to_language, $count ) = @_;

    my $test_prog_args = $E <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	17016	17137	
==>imiter to match '$initial' at "} .
				     substr($$textref, $oppos, 20) .
				     q{..."},
				 pos $$textref;
			pos $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2028	2126	
==>he identifier is already defined at this lexical scope, we want to complain
  # about the redefinit <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1775	1873	
==>he identifier is already defined at this lexical scope, we want to complain
  # about the redefinit <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23453	23549	
==>mp = $self->_generate($node->{children}[$_]);
    my $label = $self->_gensym();
    $self->_add_i <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23915	24011	
==>mp = $self->_generate($node->{children}[$_]);
    my $label = $self->_gensym();
    $self->_add_i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2061	2155	
==>$self->prefix) {
    $handler->start_element({ Name => 'loop', Attributes => { kind => $self->k <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	5676	5788	
==>->YYData->{INPUT}
            or $parser->YYData->{INPUT} = readline $parser->YYData->{fh}
            or retur <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	6134	6246	
==>->YYData->{INPUT}
            or $parser->YYData->{INPUT} = readline $parser->YYData->{fh}
            or retur <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1933	2032	
==>ck->find_symbol($left->value);
    $self->SYNTAX_ERROR("Expression involves unknown variable %s.", $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1891	1990	
==>ck->find_symbol($left->value);
    $self->SYNTAX_ERROR("Expression involves unknown variable %s.", $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1813	1912	
==>ck->find_symbol($left->value);
    $self->SYNTAX_ERROR("Expression involves unknown variable %s.", $ <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	32895	33031	
==>);
    if ($vtables{$c}) {
	$c = $vtables{$c};
    }
    my $cc;
    if ($c =~ /^\d+$/) {	# MMD
	$cc = "-$c";
    }
    else {
	$cc = qq! <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	4246	4359	
==>ess defined $offset;

  return $self->forth(-$offset);
}


#
# dump()
#
# Dump the tokens.
#

sub dump
{
  my $sel <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	30686	30790	
==>el('rule_fail');
    my ($R_back, @R_ops) = $self->rewrite($R, $back);

    # Set up the full preamble, i <==
3	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	542	669	
==>re only interested in the macro definitions
frozen:             comment V1 macros comment
                  { $item[3] }

# Retu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9102	9199	
==>nterpreter, fe->seg, 1);\n    }\n    string_cstring_free(label);\n    interpreter->resume_flag = 2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10218	10315	
==>nterpreter, fe->seg, 1);\n    }\n    string_cstring_free(label);\n    interpreter->resume_flag = 2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477158	477393	
==>\@1}} = (INTVAL)floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478054	478289	
==>\@1}} = (INTVAL)floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	3368	3491	
==>s this vtable is for */
    UINTVAL flags;           /* Flags. Duh */
    STRING* does_str;        /* space-separated list o <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10871	10980	
==>sh}test${exe}", './test.out', './test.out',
            $verbose);
    }

    my $output = _slurp('./test.out' <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2796	2892	
==>to return the C code for the run
core function declaration. C<$base> is the same as for
C<run_cor <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	116	212	
==>3:20.183054Z coke  $

=head1 NAME

tools/build/pmc2c.pl - PMC definition to C compiler

=head1 SY <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	37972	38182	
==>" => "inline",
                  "CODE" => 48,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 715 \"src/ops/core.ops\"\n  opcode <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	22558	22686	
==>y $i = temp('I');
    my $p = pop @stack;
    pop @stack;	# functions
    my $s = temp('S');
    print <<EOC;
	$s = $p->[1]
	$i = <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	3892	4000	
==>class = ";
        $cout .= <<"EOC";
    whoami = const_string(interpreter, "$class");
    ${lhs}pmc_register <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	29251	29367	
==>push @stack, [-1, $var, 'P']
}


sub UNPACK_SEQUENCE
{
    my ($n, $c, $cmt) = @_;
    my $tos = pop @stack;
    my $ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27667	27780	
==>or rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end translation\n";

		# Emit c <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37216	37329	
==>or rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end translation\n";

		# Emit c <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30609	30721	
==>ext))
							if defined $::RD_TRACE;').'
		push @item, '.($::RD_NO_HITEM ? ''
			       : '$item{'.$self->{hashna <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28533	28643	
==>ext))
					if defined $::RD_TRACE;').'
		push @item, '.($::RD_NO_HITEM ? ''
			       : '$item{'.$self->{hashna <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32812	32921	
==>ext))
							if defined $::RD_TRACE;').'
		push @item, ' . ($::RD_NO_HITEM ? ''
				 : '$item{'.$self->{hashna <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	925	1042	
==><<INIT;
	#
	# Program Begins Here
	# I must not fear. Fear is the mind-killer. Fear is the little-death 
	#  that brin <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	23305	23420	
==>r_open->[-1][1]{'start_line'} = $para->[1]{'start_line'};
          # what's that for?
        
        $self->{'con <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20531	20638	
==>->_restore($temp_0);
  return $return;
}

sub _op_geq {
  my ($self,$node) = @_;
  my $return;
  my $label = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060074	1060172	
==>n\tinternal_exception(1, \"Tried to get null name\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060979	1061077	
==>n\tinternal_exception(1, \"Tried to get null name\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	252904	252992	
==>ODY" => "#line 713 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}}->vtable->logical_not(interpre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028232	1028461	
==>, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PAR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029083	1029312	
==>, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PAR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029924	1030153	
==>, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PAR <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	33570	33675	
==>st'     => \&_op_list,
  'length'   => \&_op_length,
  'append'   => \&_op_append,
  'reverse'  => \&_op_r <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1656	1759	
==>offset) = @_;

    return "cur_opcode + $offset";
}

=item C<expr_pop()>

Returns the C code for C<POP() <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4387	4479	
==>urn $where_str";
}

=item C<restart_address($address)>

Implemented in subclasses to return t <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39992	40093	
==>? 'q{}'
				: 'q{'.$self->describe.'}' ) . ';
		$Parse::RecDescent::lastunexpected = $text;

		$_tok = <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	4389	4487	
==>rn _fail ($wantarray, $textref) unless @match;

	return _succeed ( $wantarray, $textref,
			  $matc <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	15898	15990	
==>rn _fail($wantarray, $textref) unless @match;
	return _succeed($wantarray, $textref,
			$matc <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	4837	4955	
==>re, $pst, $sel );
    $cnt = 0;
    foreach $name (@methods){
        if ( do { no strict 'refs'; defined &{$class . ": <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852093	852514	
==>S" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 967,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic"
                            ],
                  "BODY" => " <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	34921	35046	
==>de,
  'abs'              => \&_op_abs,
  'quotient'         => \&_op_quotient,
  'remainder'        => \&_op_remainder,
  'mod <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	6073	6180	
==>t_value:
    if value >= 0.0 goto print_value_1
    result .= unicode:"\u207b"
    value = abs value
  print <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	4358	4500	
==>= CUR_OPCODE;\n    DO_OP(pc, interpreter);\n    {{=pc}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3247	3357	
==>nd -debug together.
        if ($conf->data->get('ld_debug') =~ /-debug/) {
            my $linkflags = $conf-> <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4751	4861	
==>nd -debug together.
        if ($conf->data->get('ld_debug') =~ /-debug/) {
            my $linkflags = $conf-> <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	49792	49936	
==>yp"
{
            InsertList( $_[0], $_[2] );
            BuildAssigns( $_[0], $_[2], [] );
        }
	],
	[#Rule 32
		 '_if_then', 3,
su <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	44069	44173	
==>of 11 elements is returned. The elements are:

=over 4

=item [0]

the extracted quotelike substring (inc <==
3	/Users/nnunley/parrot/config/auto/socklen_t.pm	213	313	
==>mines whether there is a socklen_t

=cut

package auto::socklen_t;

use strict;
use warnings;

use ba <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61768	61892	
==>o
				and $code = $1)
		{
			my $name = $code;
			my $matchrule = 0;
			if (substr($name,0,1) eq '<')
			{
				$name =~ s/$MA <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	703	800	
==>s C<PARROT_CGOTO_CORE>.

=cut

sub core_type
{
    return 'PARROT_CGOTO_CORE';
}

=item C<defines( <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	5436	5531	
==>l be lost!
 *
 */

END_C

my $mmp_v = "${major_version}_${minor_version}_${patch_version}";
my $ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8834	8951	
==>RR]}:   # For user branch ($syms[CURR])\n";
		debug() if $debug;
		goto PARSE
	}
	#
	# End of compile?
	#
	if ($syms[C <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1605	1692	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1;
__END__

=head1 NAME

Pod::Simple:: <==
3	/Users/nnunley/parrot/config/auto/inline.pm	994	1194	
==>build(); };
            if (!$@) {
                $test = cc_run();
                chomp $test if $test;
            }
            cc_clean();
        }
        if ($test) {
            print " ($tes <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	2059	2179	
==>ond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  #
  # Locate the b <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	24173	24286	
==>that's wrong, works only for all or none named arguments
	#
	for ($i = 0; $i < $nk; $i+=2,) {
	    my $val = pop @ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	71230	71357	
==>production.")
					and
					_hint("Will you be providing this rule
					       later, or did you perhaps
					       misspell \" <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3623	3713	
==>}_LAZY_MOVE_$register_num:
${STACK$register_num} = pop lazy_moves

# Decrement stack height <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5393	5483	
==>}_LAZY_MOVE_$register_num:
${STACK$register_num} = pop lazy_moves

# Decrement stack height <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	96	212	
==>ut of (\d+) from .+?([\.\w]+)\n$/) {
		push @results, {
			name	=> $3,
			total	=> $2,
			done	=> $1,
			percent <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	96	212	
==>ut of (\d+) from .+?([\.\w]+)\n$/) {
		push @results, {
			name	=> $3,
			total	=> $2,
			done	=> $1,
			percent <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	1506	1612	
==>->kind eq $_ } @_; }

sub is_arith_assign  { return shift->is('arith-assign');  }
sub is_assign        { re <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3101	3206	
==>sts $props{op}) {
    my $op = $props{op};

#    $self->DEBUG(0, "Calling %s%s...", $name, ($op ? ' (op $o <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2638	2743	
==>sts $props{op}) {
    my $op = $props{op};

#    $self->DEBUG(0, "Calling %s%s...", $name, ($op ? ' (op $o <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	16179	16275	
==>'c:/sgml/docbook/';
my %escapes;
foreach my $file (qw(
  xhtml-symbol.ent
  xhtml-lat1.ent
  xhtm <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126709	127007	
==>TVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127844	128142	
==>TVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128979	129277	
==>TVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	14764	14890	
==>9
		DEFAULT => -8
	},
	{#State 30
		ACTIONS => {
			'NUM' => 49,
			'CHAR' => 47,
			"]" => 50
		},
		GOTOS => {
			'classpiece <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	11923	12042	
==>| $self;

	bless
	{
		"items"    => [],
		"uncommit" => $uncommit,
		"error"    => $error,
		"line"     => $line,
		strc <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	226	327	
==>d5_hex md5_base64);

@ISA = 'Exporter';
$VERSION = '1.5';

# I-Vektor
sub A() { 0x67_45_23_01 }
sub B( <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11509	11621	
==>f defined $to and length $to;
    $out .= "#" . $section if defined $section and length $section;
    
    return <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4801	4904	
==>f defined $to and length $to;
  $out .= "#" . $section if defined $section and length $section;
  return <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	205	303	
==>heck conformancs of C source code to PDD 7

=head1 SYNOPSIS

    % perl tools/dev/check_source_stan <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7132	7232	
==>eq 'ARRAY' ? join('|', @{$options{reject}})
		    : defined($options{reject})	       ? $options{rejec <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24134	24234	
==>eq 'ARRAY' ? join('|', @{$options{reject}})
		    : defined($options{reject})	       ? $options{rejec <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	508840	509050	
==>e",
                  "CODE" => 585,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 665 \"src/ops/math.ops\"\n  {{\@1}} = - {{\@ <==
3	/Users/nnunley/parrot/languages/lua/luac.pl	1029	1143	
==>ate();
}

__END__

=head1 NAME

luac - Lua compiler

=head1 SYNOPSIS

 luac [options] I<source>.lua

= <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	2929	3036	
==>ntext="#stay">
          <RegExpr attribute="Label" context="#stay" String="[_\\w]+\\:" />
          <keywor <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	1778	2010	
==>ush @r, $label;
                    $label = '';
                }
                if (ref($line)) {
                    push @r, "$label";
                    push @r, $line;
                } else {
                    push @r, "$l <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	1832	1938	
==>arations}}) {
		if (exists $main::common{$var}) {
			push(@saves, $var);
		}
	}
	if (@saves) {
		print CODE <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3123	3229	
==>arations}}) {
		if (exists $main::common{$var}) {
			push(@saves, $var);
		}
	}
	if (@saves) {
		print CODE <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17327	17446	
==>' => 36
		},
		GOTOS => {
			'exp' => 95,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 3 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	31798	31898	
==>sh \$P2, $v
ADDDATA
			$counter++;
		}
	}

	push @{$code{_data}->{code}},<<DATADONE;
	store_global "R <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048298	1048395	
==>"Tried to get null global.\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_global(interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049222	1049319	
==>"Tried to get null global.\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_global(interpreter <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7929	8034	
==>g);
    return ("restore $reg", "save $reg");
}

use vars qw($DEBUG_LABEL);
sub output_popindex {
    my $ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17493	17584	
==>'I');
  $self->_add_inst ("NEXT_$label", 'typeof',[$type,$list]);
  $self->_add_inst ('', 'e <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	184	265	
==>uages/jako/lib/Jako/Construct/Statement/Decrement.pm 19606 2006-05-30T15:08:05.048 <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27294	27399	
==>rule->{'name'}");

		# If we have PIR for the instruction, just take that. If not, we need
		# to generate <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34433	34538	
==>rule->{'name'}");

		# If we have PIR for the instruction, just take that. If not, we need
		# to generate <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7937	8031	
==>{$seg}->{code}}, "IFBRANCH_$_:\n";
		}
=cut
UNK:	if (($type[CURR] eq "STMT" or $type[CURR] eq " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488828	489103	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	489581	489856	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	21452	21544	
==>USER"
	bsr DIM_$_->[1]
	P1["storage"]= P0
	P1["_type"], '$_->[1]'
	P2["$_->[0]"]= P1
USERTYPE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813937	814200	
==>n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814559	814822	
==>n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	815187	815450	
==>n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126662	126804	
==>s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127797	127939	
==>s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128932	129074	
==>s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6019	6151	
==>en. Got ".&$ShowCurToken."\n";
			};

            $act=   exists($$actions{ACTIONS}{$$token})
                    ?   $$actions{A <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5734	5862	
==>en. Got ".&$ShowCurToken."\n";
			};

            $act=   exists($$actions{ACTIONS}{$$token})
                    ?   $$actions{A <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3947	4051	
==>so:

    goto OFFSET(( (void*)interpreter->happy_place ))

=head2 Class Methods

=over 4

=cut

package P <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	12001	12113	
==>d1's content as a title
          and $head1_text_content =~ m/\S/
          and $head1_text_content !~ m/^[ A-Z] <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	534	627	
==>xtracts descriptions from the Parrot source files. If no
files are specified on the command-li <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	14614	14798	
==>RY
##
##  stop reading now stop reading now stop reading now stop reading now stop
##
##############################################################################

sub _ponder_paragra <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	3313	3427	
==>Section::Languages>

=item C<Parrot::Docs::Section::Config>

=item C<Parrot::Docs::Section::Tests>

=item C<Parrot: <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	3094	3225	
==>100 = %1
    $I100 = fact $I100
    %1 = $I100
END_PIR

    $P0['monadic:*']      =  "    %1 = exp %1"      # exp
    $P0[unicode:"m <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	330	448	
==>cut

sub new {
    return bless {};
}

sub output_is() {
    my ($self, $code, $output, $desc) = @_;
  
    my $count = <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	368	486	
==>cut

sub new {
    return bless {};
}

sub output_is() {
    my ($self, $code, $output, $desc) = @_;
  
    my $count = <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	831	948	
==>my($self, $text) = @_;
   ...
 }
 
 sub start_head1 {
   my($self, $attrs) = @_;
   ...
 }
 sub end_head1 {
   my($sel <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46907	46998	
==>ODY" => "#line 770 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Interp_debug_SET(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47690	47781	
==>ODY" => "#line 770 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Interp_debug_SET(interpreter, <==
3	/Users/nnunley/parrot/lib/File/Which.pm	2226	2358	
==>$file\n";

            if ((-x $file or    # executable, normal case
                 ($Is_MacOS ||  # MacOS doesn't mark as executab <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	13182	13295	
==>ins parentheses, then double the
        # enclosing parentheses and add a space around the argument,
        # li <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3850	3943	
==>ins parentheses, then double the enclosing
parentheses and add a space around the argument, li <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005462	1005875	
==>i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1122,
                  "ARGS" => [
                              "i",
                              "ic",
                              "s",
                              "ic",
                              "ic"
                            ],
                  "BODY" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789813	789987	
==>e->get_string_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790723	790897	
==>e->get_string_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63688	63848	
==>,$MAXREP,
										   $lookahead,$line,
										   $self,
										   $matchrule,
										   $argcode);
										   
						$prod and $prod->additem($item) <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62981	63127	
==>,$MAXREP,
										   $lookahead,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item) <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65733	65879	
==>,$MAXREP,
										   $lookahead,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item) <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	12182	12291	
==>ush @{$temps_ref}, "FLOATVAL t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GE <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	10834	10939	
==>xpression::Value::Identifier->new($block, $token);
      my $op    = $self->forth->text;

      $self->req <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3606	3709	
==>$name, join(", ", %props));

    $name =~ s/::/__/g;

    if (exists $props{fn} or exists $props{fnlib}) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	3041	3144	
==>$name, join(", ", %props));

    $name =~ s/::/__/g;

    if (exists $props{fn} or exists $props{fnlib}) <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29145	29291	
==>ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41251	41397	
==>ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44397	44543	
==>ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => <==
3	/Users/nnunley/parrot/editor/ops2vim.pl	83	189	
==>y $prefix = 'syn keyword pirOp';

my %seen;

## make sure files have been globbed on non-globbing OSes
## a <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	10880	10997	
==>t%=7
print t%*1

' Also expect 7
t%=7
print 1*t%

' Expect correct
t=0
if t then print "Wrong" else print "Correct"

' <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	19309	19410	
==>.
    Treatment of '*' in element types corrected.
    Treatment of classes as element types corrected <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1108258	1108380	
==>class_String:\n\t        type = pmc_type(interpreter, PMC_str_val({{\@2}}));\n            if (type <= 0)\n                r <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	14616	14731	
==>ERE!!!
		if ($$textref =~ m#\G\s*( [-+*x/%^&|.]=?
					| [!=]~
					| =(?!>)
					| (\*\*|&&|\|\||<<|>>)=?
					| sp <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	6859	6969	
==>o longer
# be correct to fail early (since failure can then be more dramatic!).
#
sub add_checks {
    my ($sel <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	229628	229782	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge_num",
                  "FLAGS" => ":bas <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	12524	12632	
==>$$uid || <rx_match>{'$uid'});
# \$rx_pos = \$$uid\->{'!POS'};
# END
#     }
}

sub output_call_result {
    m <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16416	16522	
==>unary -, functions, etc...
		@stream=convert_to_rpn(@expr);	# Get infix into RPN
		#print STDERR "Stream:", <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2514	2627	
==>$self{ERRST}}=0;
    undef;
}

sub YYNberr {
	my($self)=shift;

	${$$self{NBERR}};
}

sub YYRecovering { <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2409	2512	
==>$self{ERRST}}=0;
    undef;
}

sub YYNberr {
	my($self)=shift;

	${$$self{NBERR}};
}

sub YYRecovering { <==
3	/Users/nnunley/parrot/config/gen/PodText.pm	777	875	
==>lowed by a flattened hash.

=back

=cut

package gen::PodText;

use strict;
use vars qw($descriptio <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19349	19440	
==>$node->{children}[$_]);
    $self->_add_inst('','ge',[$temp_0,$temp_1,"DONE_$label"]);
    $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33516	33651	
==>{
            # For the cases where we /didn't/ push to @$para
            if($paras->[0][0] eq '~Para') {
              DEBUG and print <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35329	35464	
==>{
            # For the cases where we /didn't/ push to @$para
            if($paras->[0][0] eq '~Para') {
              DEBUG and print <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	8809	8904	
==><<OPEN;
@code	noop
	_OPEN($result,"$mode",$fd)
OPEN
}
sub parse_close {
	feedme();
	die "Expecti <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	1385	1496	
==>package name as struct name.

    my ($class, @decls);
    my $base_type = ref $_[1];
    if ( $base_type eq 'HA <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1746	1846	
==>arams, \@_, $self );

		exists($$self{VERSION})
	and	$$self{VERSION} < $COMPATIBLE
	and	croak "Ya <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1685	1781	
==>arams, \@_, $self );

		exists($$self{VERSION})
	and	$$self{VERSION} < $COMPATIBLE
	and	croak "Ya <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7230	7342	
==>fined $kind;
  confess "Extra arguments!" if @_;

  if ($self->kind eq $kind) {
    if (defined $label) {
      r <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23617	23715	
==>','set',[$return,$temp]);
    $self->_add_inst("NEXT_$label");
    $self->_restore($temp);
  }
  re <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24079	24177	
==>','set',[$return,$temp]);
    $self->_add_inst("NEXT_$label");
    $self->_restore($temp);
  }
  re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64578	64689	
==>],
                  "BODY" => "#line 981 \"src/ops/core.ops\"\n  Interp * const new_interp = (Interp *)PMC_data <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65529	65640	
==>],
                  "BODY" => "#line 981 \"src/ops/core.ops\"\n  Interp * const new_interp = (Interp *)PMC_data <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	24626	24731	
==>func = $tos->[1];
    # create argument tuple
    if ($builtins{$name} && $builtins{$name} eq 'v') {
	my $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130775	131095	
==>( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131629	131949	
==>( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132484	132804	
==>( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	70266	70372	
==>& do { $min=$2; 1 }
	  || $grammar =~ m/$ATLEAST/gco && do { $min=$2; 1 }
	  || $grammar =~ m/$SUBRULE(?!\s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5280	5372	
==>>start_element({ Name => 'assign' });
  $dest->sax($handler);
  $handler->start_element({ Nam <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3343	3435	
==>>start_element({ Name => 'assign' });
  $dest->sax($handler);
  $handler->start_element({ Nam <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	6590	6724	
==>ned $self->version;

        #
        # Handle start-of-op:
        #
        # We create a new Parrot::Op instance based on the type, <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	19754	19863	
==>,
    );
    my $op = $rev_map{$c};
    my ($opcode, $rest) = ($code[$code_l]->[2],$code[$code_l]->[4]);
    m <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	24127	24261	
==>uild_f);
            $builder->diag("'$cmd' failed with exit code $exit_code")
                if $exit_code;

            if (! -e $ob <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	15036	15157	
==>in("\n    ", map { "$temp[$_]->[0] arg$_;"} @tempi);
        ## shorts need to be properly cast
        my $temp_in   = jo <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6011	6144	
==>Need token. Got ".&$ShowCurToken."\n";
			};

            $act=   exists($$actions{ACTIONS}{$$token})
                    ?   $$ac <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5726	5855	
==>Need token. Got ".&$ShowCurToken."\n";
			};

            $act=   exists($$actions{ACTIONS}{$$token})
                    ?   $$ac <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	2588	2708	
==><" or $cur eq "=") { 
		append;
		if ($next eq "=" or $next eq ">") {
			fetch;
			append;
		}
		emit("Compare");
		fetch <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	14904	15009	
==>]->reftree() ];
}

sub Regex::Ops::Tree::rule::reftree {
    my $op = shift;
    my ($rule, $tree) = @{ $o <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	39684	39781	
==>e 1\n\nline 3\n/para line 4";

	extract_tagged($text, '/para', '/endpara', undef,
				{reject => ' <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	39998	40094	
==>e 1\n\nline 3\n/para line 4";

	extract_tagged($text, '/para', '/endpara', undef,
			{reject => ' <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7259	7418	
==>"Reduce using rule ".-$act." ($lhs,$len): ";

                $act
            or  $self->YYAccept();

            $$dotpos=$len;

                unpack <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6923	7075	
==>"Reduce using rule ".-$act." ($lhs,$len): ";

                $act
            or  $self->YYAccept();

            $$dotpos=$len;

                unpack <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638935	639039	
==>*sig, *class;\n  int typ;\n  \n  arg_op = interpreter->current_args;\n  if (!arg_op) {\n        real_exce <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	1571	1710	
==>: $!\n");
        next;
    }

    my @lines = <F>;
    close(F);
    chomp @lines;

    for (@lines[0..10]) {
        next unless defined $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1397	1499	
==>ode as input.
  #

  $self->INTERNAL_ERROR("Undefined block!")
    unless defined $block;

  $self->INT <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1245	1347	
==>ode as input.
  #

  $self->INTERNAL_ERROR("Undefined block!")
    unless defined $block;

  $self->INT <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	326	439	
==>andle_on(\$somescalar)" unless @_;
  
  my $x = (defined($_[0]) and ref($_[0]))
    ? $_[0]
    : ( \( $_[0] ) )[0 <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17981	18089	
==>urn;
}

sub _op_append {
}

sub _op_reverse {
}

sub _op_list_ref {
}

sub _op_memq {
}

sub _op_memv {
}

su <==
3	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	306	396	
==>outines specific to 'ParrotCompiler'.

=head1 DESCRIPTION

Calls 'parrot_compiler.pbc'.

=h <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	5784	5889	
==>ft;
    my $body = $self->body;

    $body .= sprintf("  {{+=%d}};\n", $self->size) if $self->type eq 'aut <==
3	/Users/nnunley/parrot/config/auto/gc.pm	570	667	
==>F<src/res_lea.c> with tracing enabled.

=back

=cut

package auto::gc;

use strict;
use vars qw($d <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	2844	2969	
==>e rxlocals" ]),
            map { aop('pushint' => [ $_, "rxlocal $_" ]) }
                @$rxlocals);
}

sub rule_restore_rx <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8922	9024	
==>ndef;
    $Test::force_todo_test_junction = undef;
    $Test::testing_started = 0;
}

END { Test::test_ <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	303	399	
==>ious configuration settings and generates various files
# that will be used in the build process <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	2901	2997	
==>n the object or archive files.  The options can be used to limit the symbols:
--code|-c	code/text <==
3	/Users/nnunley/parrot/config/init/hints/irix.pm	502	626	
==>gs);

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }
    $conf <==
3	/Users/nnunley/parrot/config/init/hints/netbsd.pm	295	419	
==>gs);

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }
    $conf <==
3	/Users/nnunley/parrot/config/init/hints/openbsd.pm	387	505	
==>gs);

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
	}
	$conf <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	116	213	
==>gisters numbered by depth. This eliminates the need for a stack.
# In addition, it does "lazy" mov <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7424	7577	
==>,$lhs) eq '@'    #In line rule
            and do {
                    $lhs =~ /^\@[0-9]+\-([0-9]+)$/
                or  die "In line rule name '$lhs <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7081	7231	
==>,$lhs) eq '@'    #In line rule
            and do {
                    $lhs =~ /^\@[0-9]+\-([0-9]+)$/
                or  die "In line rule name '$lhs <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	13925	14067	
==>hunk' => 57
		}
	},
	{#State 20
		ACTIONS => {
			"=" => 65
		},
		DEFAULT => -52
	},
	{#State 21
		ACTIONS => {
			"," => 66,
			' <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	37647	37786	
==>be 0-length

          DEBUG > 3 and
           print "     FOUND a '/' in it.",
             "  Splitting to page [...$1] + section [$2...] <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	4749	4884	
==>ile(
        'config/gen/makefiles/lisp.in' => 'languages/lisp/Makefile',
        commentType                    => '#',
        replace <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	10525	10654	
==>line (INFO) " . Text::Wrap::wrap("", "        ", $message) . "\n";
}


sub warning {
    my ($file, $line, $message) = @_;

    pr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23179	23292	
==>elf->require_close_paren;
      }

      $self->require_semicolon;
      
      my $goto = Jako::Construct::Statem <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	446	545	
==>m file----------------------------------------
{
#
# Module Parse::Yapp::Driver
#
# This module <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	435	529	
==>m file----------------------------------------
{
#
# Module Parse::Yapp::Driver
#
# This module <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	7515	7697	
==>ll';
    }

    my $out = $options{'STDOUT'} || '';
    my $err = $options{'STDERR'} || '';

    if ( $out and $err and $out eq $err ) {
        $err = "&STDOUT";
    }

    local *OL <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	31824	31924	
==>sub _op_display {
}

sub _op_newline {
}

sub _op_write_char {
}

sub _op_load {
}

sub _op_transcrip <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	9396	9491	
==>p_func = "${bs}op_func_table";
    print SOURCE <<END_C;

INTVAL ${bs}numops${suffix} = $num_ops <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17205	17318	
==>er non-ASCII charsets.  Something should be done about that.
    }
    
    return @_;
}

=back

=head1 HISTORY

I <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9459	9564	
==>e got a return or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6973	7078	
==>e got a return or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5529	5634	
==>e got a return or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	323	420	
==>lass adds a few documentation-related
methods to do with POD and file type.

It's used by the docu <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	2487	2588	
==>_file;
  $to_file =~ s/\..*$//;
  $to_file .= ".pasm";
}

open INPUT, "<$from_file" or die "Can't open <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	28316	28414	
==>Harness will consider the test to be a pass.

'actual_ok' is a reflection of whether or not the tes <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910675	911096	
==>S" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1026,
                  "ARGS" => [
                              "i",
                              "s",
                              "sc"
                            ],
                  "BODY" => " <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1940	2040	
==>23456789])/'&#'.(ord($1)).';'/eg;
    # Yes, stipulate the list without a range, so that this can wor <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2043	2143	
==>23456789])/'&#'.(ord($1)).';'/eg;
    # Yes, stipulate the list without a range, so that this can wor <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16417	16522	
==>my $op    = $self->forth->text;
      my $right = Jako::Construct::Expression::Value->new($block, $self->f <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17188	17293	
==>my $op    = $self->forth->text;
      my $right = Jako::Construct::Expression::Value->new($block, $self->f <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17993	18098	
==>my $op    = $self->forth->text;
      my $right = Jako::Construct::Expression::Value->new($block, $self->f <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	5923	6037	
==>ewline:
    if newline==0 goto continue_2d
    result .= "\n"

  continue_2d:
    inc pos 
    goto loop_2d
  loop_ <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	6091	6202	
==>ns{'dry-run'}) {
	print "$src -> $dest\n";
	next;
    }
    else {
	next unless -e $src;
	copy($src, $dest) or d <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	460	557	
==>>SUPER::init_context($ctx);
}

sub pushop { "push" };
sub popop { "pop" };

sub output_match_succe <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755611	755934	
==>"i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 852,
                  "ARGS" => [
                              "p",
                              "nc"
                            ],
                  "BODY" => "#line 266 \"src/o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830699	830888	
==>ck, &i, STACK_ENTRY_INT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831440	831629	
==>ck, &i, STACK_ENTRY_INT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1339	1466	
==>CD => '..', # $self->{relpath}, 
            STDOUT => $out_f, STDERR => $out_f, 
        );
        my $prog_output = Parrot::T <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1255	1382	
==>CD => '..', # $self->{relpath}, 
            STDOUT => $out_f, STDERR => $out_f, 
        );
        my $prog_output = Parrot::T <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1147	1274	
==>elsif(ref($x || '') eq 'HASH') {
      $x = { %$x };
    }
     # otherwise leave it.
  }

  return bless $new, $class;
}

# Not <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	20371	20484	
==>i] ) {
        DEBUG > 4 and print "  Enqueuing ", pretty($treelet->[$i]), " for traversal.\n";
        push @stac <==
3	/Users/nnunley/parrot/lib/File/Which.pm	4312	4412	
==>etc.)

=head1 Steps Used on Win32, DOS, OS2 and VMS

=head2 Windows NT

Windows NT has a special envi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	2175	2263	
==>} ||= 'Pod::Simple::PullParserStartToken';
  $self->{'text_token_class'}  ||= 'Pod::Simpl <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	759	864	
==>l --library libfoo -c \
           src/pmc/foo1.pmc src/pmc/foo2.pmc ...

=head1 DESCRIPTION

The job of t <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2819	2909	
==>xAD}{}d if Pod::Simple::ASCII;
  my $out = Text::Wrap::wrap($indent, $indent, $self->{'This <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2353	2443	
==>xAD}{}d if Pod::Simple::ASCII;
  my $out = Text::Wrap::wrap($indent, $indent, $self->{'This <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6213	6309	
==>$(1) = "New York"
A$(2) = "Boston"
A$(3) = "Chicago"
A$(4) = "Seattle"
Max = 4 'UBOUND(A$)
Exchan <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15866	15962	
==>$(1) = "New York"
A$(2) = "Boston"
A$(3) = "Chicago"
A$(4) = "Seattle"
Max = 4 'UBOUND(A$)
Exchan <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	850	946	
==>ilations. But, string
# literals are subject to interpolation, and so they go through
# compilati <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	10078	10187	
==>sarily mean that the earlier one went okay
    } else {
      $enc_error = "Encoding is already set to " . $se <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835688	835774	
==>> "#line 215 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836441	836527	
==>> "#line 215 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx <==
3	/Users/nnunley/parrot/Configure.pl	1544	1638	
==>>.

=item C<--cc=(compiler)>

Specify which compiler to use.

=item C<--ccflags=(flags)>

Use t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788670	788903	
==>GS" => [
                              "n",
                              "p",
                              "kic"
                            ],
                  "BODY" => "#line 422 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtabl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	229783	230142	
==>e_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 268,
                  "ARGS" => [
                              "p",
                              "p" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756755	756976	
==>ssign_string_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757545	757766	
==>ssign_string_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	33299	33434	
==>temp('I');
	   print <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P' <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	34048	34183	
==>temp('I');
	   print <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P' <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	34972	35107	
==>temp('I');
	   print <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P' <==
3	/Users/nnunley/parrot/examples/benchmarks/primes.pl	593	724	
==>LOOP:
    $i5 = $i1 % $i3;
  if ($i5) {goto OK;}
  goto NEXT;
 OK:
  $i3++;
  if ($i3 <= $i4) {goto LOOP;}
     $i6++;
     $i7 = $i <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20713	20830	
==>y $class = ref($_[0]) || $_[0];
	bless 
	{
		"code"      => $_[1],
		"lookahead" => $_[2],
		"line"      => $_[3],
	}, <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	2469	2572	
==>b PushScope {
    my ($parser) = @_;

    unshift @{ $parser->YYData->{scope} }, $parser->YYData->{sy <==
3	/Users/nnunley/parrot/config/auto/jit.pm	2000	2101	
==>name = "$cpuarch-$osname";
    my ($jitcapable, $execcapable) = (0, 0);

    print(qq{-e "$jitbase/$cp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784240	784376	
==>p"
                            ],
                  "BODY" => "#line 392 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_pmc_keyed_int(inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785146	785282	
==>p"
                            ],
                  "BODY" => "#line 392 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_pmc_keyed_int(inte <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	20770	20893	
==>include, "$pmcname.c", 1);

        $fh = open_file( "<", $file );
        while (<$fh>) {
            if (/^(?:extern\s+)?\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608993	609347	
==>i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 690,
                  "ARGS" => [
                              "p",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 478 \"src <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3790	3892	
==>ration has no fnlib property, and parent module has no fnlib property either!")
        unless $module_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6454	6556	
==>ration has no fnlib property, and parent module has no fnlib property either!")
        unless $module_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	12870	13047	
==>=> [
                              "i"
                            ],
                  "BODY" => "#line 231 \"src/ops/core.ops\"\n  opcode_t * loc;\n  stack_push(interpreter, &C <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	75	169	
==>e 'Regex::CodeGen';
use strict;

my $fail_label = Regex::Ops::Tree::mark('FAIL');

sub init_con <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	76	170	
==>e 'Regex::CodeGen';
use strict;

my $fail_label = Regex::Ops::Tree::mark('FAIL');

sub init_con <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048383	1048618	
==>l(interpreter, NULL, {{\@2}}, next);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049307	1049542	
==>l(interpreter, NULL, {{\@2}}, next);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	10534	10682	
==>,
        \s*
        {{\@1}}
        \);
        \s+{{\+=\d}}/xm) {
            $jit_func = 'Parrot_jit_vtable1_op';
            $extern = vtable_nu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238768	239133	
==>> ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 278,
                  "ARGS" => [
                              "i",
                              "p", <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7101	7199	
==>ad     = ref($options{reject}) eq 'ARRAY' ? join('|', @{$options{reject}})
		    : defined($options <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24103	24201	
==>ad     = ref($options{reject}) eq 'ARRAY' ? join('|', @{$options{reject}})
		    : defined($options <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	6375	6531	
==>sa(\$_[0], '$classes{$name}');\n";
                }
            }
            $out .= "    croak 'Too many args to $name' if \@_ > 1;\n";
            $out . <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	2645	2761	
==>d '$next'\n";

	return 5  if ($op eq "and");
	return 5  if ($op eq "eqv");
	return 5  if ($op eq "imp");
	return 5  i <==
3	/Users/nnunley/parrot/config/gen/platform.pm	3723	3821	
==>orm.c" or die "Can't open src/platform.c: $!";

    print PLATFORM_C <<"END_HERE";
/*
** platform.c <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3977	4071	
==>should not go into release tarballs
^debian$
^debian/
END_HEADER

find(\&wanted, '.');

my $svn <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8864	8954	
==>_find_fixup_entry(interpreter,\n\t    enum_fixup_label, label);\n    if (!fe)\n\tinternal_e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9980	10070	
==>_find_fixup_entry(interpreter,\n\t    enum_fixup_label, label);\n    if (!fe)\n\tinternal_e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426185	426440	
==>patch_v_pi(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427072	427327	
==>patch_v_pi(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	1136	1256	
==>/

# TODO: What does this means???
V1:                 "V1\n"

# for each macro we need: name, substitution and flag
# Th <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365892	366134	
==>CODE" => 428,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 303 \"src/ops/io.ops\"\n  if ({{\@2}} && {{\@1}}) {\n    PIO_pu <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	6022	6201	
==>Duplicate value for push in rule $rule->{'name'}\n";
                } else {
                    $has_push = 1;
                }
            } else {
                die "Invalid <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202734	202828	
==>mp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203665	203759	
==>mp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204596	204690	
==>mp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	50215	50375	
==>{
            [ @{ $_[1] }, [ $_[3], $_[6] ] ];
        }
	],
	[#Rule 35
		 '_elseif_star', 0,
sub
#line 211 "Lua\lua51.yp"
{
            [];
        } <==
3	/Users/nnunley/parrot/config/auto/alignptrs.pm	781	896	
==>{
        $align  = $conf->data->get('ptr_alignment');
        $self->set_result("configured: ");
    } elsif ($^O e <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1440	1539	
==>"Undefined block!")
    unless defined $block;

  $self->INTERNAL_ERROR("Undefined type!")
    unles <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1288	1387	
==>"Undefined block!")
    unless defined $block;

  $self->INTERNAL_ERROR("Undefined type!")
    unles <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	7673	7801	
==>xed, $fix);
    local *OP;
    $fix = 1;
    open OP, "< $file" or die "Can't open $file, error $!";
    while (<OP>) {
        p <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	16631	16728	
==>$content = join "\n", @{$para}[2 .. $#$para];

  if($content =~ m/^\s*\*\s*$/s or $content =~ m/^\ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	15976	16067	
==>, I5, 2
CASE_${jump}_${incase}_STARTTO:
	eq I5, 1, CASE_${jump}_${incase}_NO_TO
	push P9, "o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242513	242903	
==>core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 282,
                  "ARGS" => [
                              "i",
                              "p",
                              "nc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	617908	618181	
==>_opcode);\n    /* rerun this opcode */\n    {{+=0}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6727	6829	
==>G-O!
	#     Don't go looking for lhs expression, please.
	#if ($syms[NEXT] eq "=" and exists $functions <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4238	4346	
==>iles) {
        partial_link($group, $group_libs->{$group}, [ "lib-$group", @$pmcs ] )
          or die "part <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4342	4450	
==>iles) {
        partial_link($group, $group_libs->{$group}, [ "lib-$group", @$pmcs ] )
          or die "part <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	11148	11245	
==>ete $this->{'accept_codes'}{$new_code};

    DEBUG > 2 and print "OK, won't accept the code $new_c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420512	420841	
==>tion",
                  "CODE" => 483,
                  "ARGS" => [
                              "i",
                              "p",
                              "ic",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 557 \"src/ops/io. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576402	576492	
==>ine 276 \"src/ops/object.ops\"\n  PMC *name;\n  name = pmc_new(interpreter, enum_class_Stri <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577414	577504	
==>ine 276 \"src/ops/object.ops\"\n  PMC *name;\n  name = pmc_new(interpreter, enum_class_Stri <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	428	530	
==>ng
integer arithmetic.

Prints out:

=over 4

=item * the number of look iterations, 

=item * the esti <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	432	533	
==>ng
integer arithmetic.

Prints out:

=over 4

=item * the number of look iterations,

=item * the esti <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	87	177	
==>20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Directory - Docs- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320050	320342	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320820	321112	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FL <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	43103	43206	
==>OTREE"   => undef,
	};
	if ($::RD_AUTOACTION)
	{
		my $sourcecode = $::RD_AUTOACTION;
		$sourcecode = "{ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	3717	3843	
==>_pkg . '::TODO' } = \$extra{todo}
                if defined $extra{todo};

            ## run Test::Builder's test on actual v <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	20313	20426	
==>$type{$op} );
    push @opcodes, @{ $expr->[1] };
    push @opcodes, new LocalDir( $parser,
        'result' => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	622111	622198	
==>pic_opcode(interpreter, PARROT_OP_get_params_pc);\n    ((void**)cur_opcode)[1] = mic->m. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870645	871095	
==>o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 988,
                  "ARGS" => [
                              "s",
                              "s",
                              "i",
                              "i"
                            ],
                  "BODY" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218845	218938	
==>1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) > 0) {\n    {{+={{\@3}}}};\n  }\n  {{+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219824	219917	
==>1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) > 0) {\n    {{+={{\@3}}}};\n  }\n  {{+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714759	714854	
==>rpreter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=2}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715682	715777	
==>rpreter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=2}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716627	716722	
==>rpreter, PIO_STDOUT(interpreter), s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=2}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	807	900	
==>back

=head2 Instance Methods

=over 4

=item C<files_of_type($type, $recursive, $ignore)>

Us <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611180	611326	
==>\n    VTABLE_set_attr(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612083	612229	
==>\n    VTABLE_set_attr(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2446	2550	
==>nd _reg_base is clobbered
     * # if 1191 := PARROT_OP_set_args_pc
     * (gdb) disas l_ops_addr[1191] l <==
3	/Users/nnunley/parrot/tools/dev/cc_flags.pl	1711	1822	
==>) {
  # Found a "" - remove it
  splice @ARGV, $where, 1;
  $inject_point = $where;
} else {
  $inject_point = 1 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	1870	1965	
==>= qw(Regex::Ops::Tree);

@Regex::Ops::Tree::call::ISA         = qw(Regex::Ops::Tree);
@Regex::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	536015	536304	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "sech",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832113	832196	
==>preter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}), STACK_ENTRY_FLOAT, STACK <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832841	832924	
==>preter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}), STACK_ENTRY_FLOAT, STACK <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814539	814782	
==>s\"\n  {{\@1}} = 0;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	815789	816032	
==>s\"\n  {{\@1}} = 0;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873772	874156	
==>",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 991,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 239 <==
3	/Users/nnunley/parrot/lib/Test/More.pm	36126	36221	
==>lf up with while still
providing more flexibility than the existing Test.pm.  As such, the
names <==
3	/Users/nnunley/parrot/tools/util/pirtidy.pl	30	123	
==>til/pirtidy.pl 19235 2006-05-11T16:43:46.320675Z particle  $

use strict;
use warnings;
use Fa <==
3	/Users/nnunley/parrot/lib/Test/More.pm	11066	11178	
==>hat') && 
        Foo->can('whatever') 
      );

only without all the typing and with a better interface.  Handy <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	4400	4501	
==>w',[$return,'.Integer']);
      $self->_add_inst ('', 'set',[$return,$value]);
    }
    elsif ($value <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34304	34405	
==>func_ret$body;
    UNLOCK_PMC(interpreter, pmc);
    $ret
}

EOC
}

=back

=head2 Parrot::Pmc2c::defau <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	0	92	
==>package Regex::CodeGen::Perl5;
use Regex::Ops::Tree (); # For mark()
use base 'Regex::CodeGen <==
3	/Users/nnunley/parrot/tools/docs/write_docs.pl	489	581	
==>=> \$silent, 'delete' => \$delete);

my $docs = Parrot::Docs::Section::Parrot->new;

$docs->w <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1391	1475	
==>X4+X6$MSK,X5)+X1$MSK;",
	II => "X0=rotate_left((X2^(X1|(~X3)))+X0+X4+X6$MSK,X5)+X1$MS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398995	399295	
==>"TYPE" => "function",
                  "CODE" => 462,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 527 \"src <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	12235	12359	
==>put_call {
    my ($self, $name, $mode, $uid) = @_;
#    if ($mode) {
        return split(/\n/, <<"END");
\$$uid = _rule_$na <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	50705	50829	
==>@{ $lineage[-1] }, ' ';
        } elsif( 2 == @{ $lineage[-1] } ) { # Closing a childless element
          push @{ $lineage[ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	17548	17668	
==>lf);
    ## exit 0;
    my (@mmds, $found);
    for my $super_mmd (@{ $self->{super_mmd} }) {
        my ($super, $varian <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3931	4031	
==>ed, $failLabel, $lenvar) = @_;
    $lenvar ||= "<rx_len>";
    my $fail = $self->output_label_use($fa <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3645	3745	
==>ed, $failLabel, $lenvar) = @_;
    $lenvar ||= "<rx_len>";
    my $fail = $self->output_label_use($fa <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3583	3681	
==>"\n";
print $SKIP <<'END_HEADER';
#
# This file should contain a transcript of the svn:ignore prope <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992053	992282	
==>",
                              "s",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_fin <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30916	31054	
==>er $over_type\n";
          
          if($item_type eq 'text') {
            # Nothing special needs doing for 'text'
          } elsif($i <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	10521	10639	
==>nt*)&PMC_int_val(t_$temp_num)";
    };
    /l/ && do {
        push @{$temps_ref}, "long t_$temp_num;";
        push @{ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5347	5456	
==>p} = $value;
      }

      $self->require_open_brace;

      my $module = Jako::Construct::Block::Module->new <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2430	2528	
==>right->type;
  }

  $self->INTERNAL_ERROR("No type for dest!")  unless defined $dest_type;
  $self- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2352	2450	
==>right->type;
  }

  $self->INTERNAL_ERROR("No type for dest!")  unless defined $dest_type;
  $self- <==
3	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	246	335	
==>examples/benchmarks/stress1.pl

=head1 DESCRIPTION

Creates 500 arrays with 20000 elements <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	846	995	
==>hex => 1,
    id => 1,
    iter => 1,
    filter => 1,
    list => 1,
    long => 1,
    int => 1,
    map => 1,
    max => 'v',
    min => 'v',
    r <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	9172	9299	
==>my $out;
    my $result = &share({});

    unless( $test ) {
        $out .= "not ";
        @$result{ 'ok', 'actual_ok' } = ( ( <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	6644	6752	
==>eturn all
the files with no suffix.

=cut

sub files_with_suffix
{
    my $self = shift;
    my $suffix = shi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880039	880358	
==>,
                  "TYPE" => "inline",
                  "CODE" => 997,
                  "ARGS" => [
                              "s",
                              "sc",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 244 \"src/o <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	10929	11047	
==>$full_name",
    "$func_name",
    /* "",  body */
    $jump,
    $arg_count,
    $arg_types,
    $arg_dirs,
    $label <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4898	4990	
==>ITEMP0}]

# We'll use register $[INSP]0.
${STACK0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_shor <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	44765	44853	
==>+)\.\.([1-9]\d*)'.$SIMPLEPAT.'\)';
my $ATLEAST		= '\G\((\d+)\.\.'.$SIMPLEPAT.'\)';
my $AT <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	10996	11095	
==>er of events
similar to using any other class ( or Perl module ).

There is no significant speed gai <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614815	614914	
==>\"src/ops/object.ops\"\n    opcode_t *next = {{^+4}};\n    INTVAL offset;\n    offset = Parrot_class <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615966	616065	
==>\"src/ops/object.ops\"\n    opcode_t *next = {{^+4}};\n    INTVAL offset;\n    offset = Parrot_class <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	3992	4099	
==>Rating() get'   );
    ok( $btaste->NumExplodingSheep == 1,        'NumExplodingSheep() get' );

It will pro <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	21799	21905	
==>min => $_[2], max => -1 }; }
	],
	[#Rule 33
		 'number', 2,
sub
#line 160 "lib/Regex/Grammar.y"
{ return $_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13093	13182	
==>2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  loc = INTVAL2PTR(opcode_t *, {{\@1} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13937	14026	
==>2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  loc = INTVAL2PTR(opcode_t *, {{\@1} <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	1889	2031	
==>+
            ($ident_re)\s*
        \(($arglist_re)\)
        (?:\s+(MMD_\w+))?\s*$/x) {
        my $mmd = defined $4 ? $4 : -1;
            p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	728315	728418	
==>> "#line 57 \"src/ops/set.ops\"\n   PMC * const temp = {{\@1}};\n   {{\@1}} = {{\@2}};\n   {{\@2}} = tem <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7563	7657	
==>S}[0] = ${STEMP0}
${INS} = concat ${STEMP0}
${INS} = concat " = pop s\n"

PRE_CALL_END_${CURIC} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	2235	2334	
==>erl -MData::Dumper -e
    "use base qw(Pod::Simple::Methody);
     sub start_L { print Dumper($_[1]{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787949	788035	
==>c/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed_int(interpreter, {{\@2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788859	788945	
==>c/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed_int(interpreter, {{\@2 <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	7132	7281	
==>n ('NUMBER', new Math::BigFloat($1));
                and return ( 'NUMBER', $1 . ( $3 || q{} ) );

            s/^\"//
                and return <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	26406	26526	
==>uff ###################

# Most rewrite rules will declare a fallback point, and also jump back
# to the previous fallbac <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	29	117	
==>01-2006, The Perl Foundation.
# $Id: /parrot/tools/dev/check_source_standards.pl 19607 20 <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5941	6039	
==>is unconditional, so next instruction needs to
	# have an empty stack type state propogated to it i <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3879	3977	
==>is unconditional, so next instruction needs to
	# have an empty stack type state propogated to it i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	310	406	
==>age Jako::Construct::Block::Module;

use Carp;

use Jako::Compiler;

use base qw(Jako::Construct: <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	4792	4904	
==>rint_2D
    # XXX assume 1d otherwise.
    unless iter goto iter_end
  iter_loop:
    old_type = value_type
    v <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106333	1106423	
==>lueError,\n\t\t\"type number out of range\");\n    {{\@1}} = interpreter->vtables[typ]->cla <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107309	1107399	
==>lueError,\n\t\t\"type number out of range\");\n    {{\@1}} = interpreter->vtables[typ]->cla <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11767	11940	
==>y $assign = new KeyedSetOp( $parser,
                        'arg1'   => $last_key->[0],
                        'arg2'   => undef,
                        'result' => $re <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9967	10128	
==>y $assign = new KeyedSetOp( $parser,
                    'arg1'   => $last_key->[0],
                    'arg2'   => undef,
                    'result' => $re <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8822	8959	
==>y $assign = new KeyedSetOp( $parser,
            'arg1'   => $last_key->[0],
            'arg2'   => undef,
            'result' => $re <==
3	/Users/nnunley/parrot/Configure.pl	111	211	
==>20.183054Z coke  $

=head1 NAME

Configure.pl - Parrot's Configuration Script

=head1 SYNOPSIS

    % <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	14356	14458	
==>otal_body = rewrite_nci_method($classname, $meth, $body);
    }

    # now split into MMD if necessary: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	583	683	
==>not defined!" unless defined $left;
  confess "Op is not defined!" unless defined $op;
  confess "Rig <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	595	695	
==>not defined!" unless defined $left;
  confess "Op is not defined!" unless defined $op;
  confess "Rig <==
3	/Users/nnunley/parrot/config/init/hints/solaris.pm	3194	3354	
==>e_cb = sub {
        my ($key, $gccversion) = @_;

        if ($gccversion) {

            # Don't know how to do this for gcc.
        } else {
            my $ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7451	7542	
==>]);
  $self->_add_inst('', 'typeof', [$type,$list]);
  $self->_add_inst('', 'eq', [$type,'.U <==
3	/Users/nnunley/parrot/lib/Parrot/Revision.pm	16	104	
==>2005, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Revision.pm 19602 2006-05-30T13:40:5 <==
3	/Users/nnunley/parrot/config/inter/make.pm	17	105	
==>001-2005, The Perl Foundation.
# $Id: /parrot/config/inter/make.pm 19593 2006-05-30T02:28 <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1777	1907	
==>HQ9plus.pbc'),
                    $lang_fn ) );

        Parrot::Test::write_code_to_file( $code, $lang_fn );

        # STDERR is <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	12531	12657	
==>eq 'if_p_ic') {
            $jit_func = "Parrot_jit_vtable_ifp_op";
            $opbody =~ /vtable->(\w+)/;
            $extern <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17404	17502	
==>g($node,1));

  $self->_add_inst ('', 'set',[$return,'0']);
  my $type = $self->_save_1 ('I');
  $s <==
3	/Users/nnunley/parrot/config/init/hints/vms.pm	417	535	
==>cal $^W;    # no warnings on redefinition

        *Parrot::Configure::Step::cc_build = sub {
            my ($cc, $ccf <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035739	1035835	
==>NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    {{\@1}} = result;\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036903	1036999	
==>NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    {{\@1}} = result;\n <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36593	36736	
==>CTIONS => {
			"-" => 72,
			"%" => 76,
			"*" => 80,
			".." => 71,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -67
	} <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	54	161	
==>ake a copy of the original

sub import (Str $pkg: *@_paths) returns Void {
    my @paths = @_paths.reverse() <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11358	11448	
==>n sprintf <<'END',
{\stylesheet
{\snext0 Normal;}
{\*\cs10 \additive Default Paragraph Font <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	17511	17632	
==>"pc_$1";
    }
    print <<EOC;
	goto $targ $cmt
EOC
}

sub JUMP_ABSOLUTE()
{
    my ($n, $c, $cmt) = @_;
    my $targ = " <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	725	824	
==>s as escape sequences.
# Config stuff
our $CC = qq[/usr/bin/gcc-4.0 -c];
our $LD = qq[c++];
our $LDF <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	729	828	
==>s as escape sequences.
# Config stuff
our $CC = qq[/usr/bin/gcc-4.0 -c];
our $LD = qq[c++];
our $LDF <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104664	104864	
==>" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 145 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}}->vtable->bitwi <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	3379	3514	
==>oft.VisualBasic
            Microsoft.VisualC
            Microsoft.Vsa
            Mono.CompilerServices.SymbolWriter
            M <==
3	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	545	643	
==>Attempt to compile.
	my $kind = $file_name =~ /\.dll$/ ? '-target:library' : '';
	my $output = `mcs <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1806	1898	
==>ype;

  my $left_type;
  if (UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value::Ident <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1764	1856	
==>ype;

  my $left_type;
  if (UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value::Ident <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1686	1778	
==>ype;

  my $left_type;
  if (UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value::Ident <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2381	2531	
==>>{arg2}->{symbol}\n";
    }

    sub visitAssignOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        pr <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	985	1109	
==>ANG $lang_code; # JMG
        close LANG; # JMG

        Parrot::Test::run_command( 
            "$PConfig{perl} languages/sc <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	754	875	
==>namespace}");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_ele <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	18347	18477	
==>ip";
    $out   .= " $why"       if length $why;
    $out   .= "\n";

    $self->_print($out);

    return 1;
}


=item B<todo_skip <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	2926	3034	
==>> \@params);

    return $self;
}

=item * C<add_steps()>

Registers a new step to be run at the end of the e <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1505	1598	
==>$type, "Jako::Construct::Type");

  my $type_name = $type->name;

  $self->INTERNAL_ERROR("Var <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	532469	532707	
==>PE" => "inline",
                  "CODE" => 615,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 877 \"src/ops/math.ops\" <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2605	2727	
==>on
sub rop {
    return __PACKAGE__->op(@_);
}

use vars qw(%MARKERS);
sub mark {
    my $name = shift || '';
    my $numbe <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	25984	26077	
==>ub_meta($out, $mv, "argument read");
		$mv->{"ARG$arg_num"} = $mv->{$arg_name};
		push @localm <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22346	22477	
==>'},
          "=end $content without matching =begin.  (Stack: "
          . $self->_dump_curr_open() . ')'
        );
        DEBUG <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	17014	17117	
==>ke: "=item * Foo bar baz";
    $para->[1]{'~orig_content'}      = $content;
    $para->[1]{'~_freaky_par <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20324	20409	
==>e($node->{children}[$_]);
    $self->_add_inst('','gt',[$temp_0,$temp_1,"DONE_$label"] <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23671	23781	
==>label");
    $self->_restore($temp);
  }
  return $return;
}

sub _op_min {
  my ($self,$node) = @_;
  my $retu <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30721	30821	
==>ad and append code it generates.
		my $post_load = $srm->post_load($need_dest);
		$pir .= "### post_l <==
3	/Users/nnunley/parrot/config/gen/config_h.pm	291	376	
==>F<include/parrot/has_header.h> with platform-specific header
information, and F<includ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745402	745728	
==>=> ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 839,
                  "ARGS" => [
                              "p",
                              "p <==
3	/Users/nnunley/parrot/config/gen/platform.pm	1988	2122	
==>/$platform/$_";
        }

        if (-e $header_file) {
            local $/ = undef;
            print("\t$header_file\n") if define <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	1185	1299	
==>emit($numtype);
		goto MAIN;
	}
NOTNUM:
	#if ($cur eq "-" and $next =~ /[\d\.]/) {
	#	append;
	#	fetch;
	#	goto NUM <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34720	34835	
==>. ']>>},
						  Parse::RecDescent::_tracefirst($text),
						  q{' . $rule->{"name"} .'})
							if defined $::RD_T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666559	666799	
==>> "inline",
                  "CODE" => 745,
                  "ARGS" => [
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 372 \"src/ops/pmc.ops\"\n  {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569308	569417	
==>n  {{\@1}} = {{\@2}}->vtable->isa(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570201	570310	
==>n  {{\@1}} = {{\@2}}->vtable->isa(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48152	48265	
==>P);
			if ($grammar =~ m/\G[(]/gc)
			{
				pos($grammar)--;

				if ($grammar =~ m/$OPTIONAL/gco)
					{ ($minrep <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	815	913	
==>1 USAGE

=head2 Import Parameters

This module accepts no arguments to it's C<import> method and ex <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	444	542	
==>1 USAGE

=head2 Import Parameters

This module accepts no arguments to it's C<import> method and ex <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	570	686	
==>r;

  my $prefix;

  if ($self->prefix) {
    $prefix = $self->prefix;
  }
  else {
    $prefix = $self->peer ? $peer <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	550	666	
==>r;

  my $prefix;

  if ($self->prefix) {
    $prefix = $self->prefix;
  }
  else {
    $prefix = $self->peer ? $peer <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	2305	2408	
==>S'),
            $self->new_item('A list of some of people who have contributed to Parrot.', 'CREDITS'), <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3335	3430	
==>ion
by callers.  For APIs that cross into the operating system and/or
external libraries, you us <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1702	1786	
==>> "\n{\\pard\\li#rtfindent##rtfkeep#\\plain\\s20\\sa180\\f1\\fs18\\lang1024\\noproof\ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1844	1928	
==>> "\n{\\pard\\li#rtfindent##rtfkeep#\\plain\\s20\\sa180\\f1\\fs18\\lang1024\\noproof\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629908	630153	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630897	631142	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107620	1107865	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1183	1291	
==>e next one.
        $compiler->emit(".return()"); # Return to the previous inline chunk.
        $compiler->o <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2410	2501	
==>]->emit_par( 0) }
sub end_item_bullet { $_[0]->emit_par( 0) }
sub end_item_number { $_[0]->e <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1978	2069	
==>]->emit_par( 0) }
sub end_item_bullet { $_[0]->emit_par( 0) }
sub end_item_number { $_[0]->e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778392	778751	
==>se_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 879,
                  "ARGS" => [
                              "p",
                              "ki" <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	760	863	
==>pec->rel2abs($out_f);
    Parrot::Test::write_code_to_file( $code, $lang_f );

    my $cmd;
    my $exit <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	797	900	
==>pec->rel2abs($out_f);
    Parrot::Test::write_code_to_file( $code, $lang_f );

    my $cmd;
    my $exit <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20182	20299	
==>fail local_back back check next);

    my $matchcount = $self->new_rxlocal($op, "matchcount");

    my ($R_back, @R_op <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3988	4079	
==>end function
function arrfunc(x())
	u=aftwo(x())
	arrfunc=55
end function
dim g(10)
g(5)=666 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15261	15352	
==>end function
function arrfunc(x())
	u=aftwo(x())
	arrfunc=55
end function
dim g(10)
g(5)=666 <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	19426	19524	
==>ests you plan to run
and terminates the test.

If you're running under no_plan, it skips once and t <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1126	1223	
==>nstructors

=over 4

=item * C<new()>

Basic constructor.

Accepts no arguments and returns a L<Pa <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	663	760	
==>nstructors

=over 4

=item * C<new()>

Basic constructor.

Accepts no arguments and returns a L<Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953793	954058	
==>=> 0,
                  "NAME" => "encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954583	954848	
==>=> 0,
                  "NAME" => "encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functi <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	277	365	
==>=cut


my ($svnid) = '$Id: /parrot/tools/dev/gen_charset_tables.pl 19607 2006-05-30T15:23 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	564	656	
==>name }
;

use Jako::Token;

use Jako::Construct::Type::Integer;
use Jako::Construct::Type::Nu <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	4529	4668	
==>llable/) {
            push @installable_exe, [$src, $dest];
            next;
        }
    } elsif ($meta{include}) {
        $dest =~ s/^ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83734	83817	
==>interpreter->iglobals, IGLOBALS_COMPREG_HASH);\n  VTABLE_set_pmc_keyed_str(interpret <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84640	84723	
==>interpreter->iglobals, IGLOBALS_COMPREG_HASH);\n  VTABLE_set_pmc_keyed_str(interpret <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11793	11887	
==>lname symbolname2...);>,
or you can do C<use Pod::Escapes qw(:ALL);> to get all
exportable symb <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21891	21998	
==>>get(1)->is_if or $self->get(1)->is_unless) {
        $cond = $self->forth->text;

        $self->require_op <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22824	22931	
==>>get(1)->is_if or $self->get(1)->is_unless) {
        $cond = $self->forth->text;

        $self->require_op <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24471	24578	
==>>get(1)->is_if or $self->get(1)->is_unless) {
        $cond = $self->forth->text;

        $self->require_op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924428	924649	
==>ty(interpreter, enum_stringrep_one, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925219	925440	
==>ty(interpreter, enum_stringrep_one, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477144	477370	
==>zero\");\n  {{\@1}} = (INTVAL)floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478040	478266	
==>zero\");\n  {{\@1}} = (INTVAL)floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	51033	51178	
==>le 
					       is defined.");
				}
				else
				{
					local $::RD_CHECK = 1;
				}
			}
			elsif ($grammar =~ m/$AUTOSTUBMK/gco)
			{
				_pars <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2770	2889	
==>rn
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOT <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3079	3198	
==>rn
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOT <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2874	2993	
==>rn
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOT <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	46806	46930	
==>}, after {$p->[$i-1]} !?\n";
      }
      last; # we only want the next one
    }
  }

  return;
}


#@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	787	881	
==>/bin'.

=item C<libdir>

The library directory. Defaults to '/usr/lib'.

=item C<includedir>

T <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	1016	1110	
==>/bin'.

=item C<libdir>

The library directory. Defaults to '/usr/lib'.

=item C<includedir>

T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429732	429987	
==>atch_v_ps(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430619	430874	
==>atch_v_ps(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7338	7449	
==>if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        return ("set <rx_tmp>, <rx_stack <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9437	9548	
==>if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        return ("set <rx_tmp>, <rx_stack <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	1380	1481	
==>AGE__ eq ref($_[0]) || $_[0]) { # I'm not being subclassed!
    Carp::croak "You can call run() only o <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21064	21160	
==>uct::Expression::Value->new($block, $self->require_value);
      }

      $self->require_semicolo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819597	819687	
==>, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n\n  if (!entry) {\n    internal_excepti <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820557	820647	
==>, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n\n  if (!entry) {\n    internal_excepti <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	1002	1156	
==>l => "long",
       4 => "long *",
       c => "char",
       s => "short",
       2 => "short *",
       f => "float",
       d => "double",
       t => " <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	1417	1571	
==>l => "long",
       4 => "long *",
       c => "char",
       s => "short",
       2 => "short *",
       f => "float",
       d => "double",
       t => " <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	2322	2476	
==>l => "long",
       4 => "long *",
       c => "char",
       s => "short",
       2 => "short *",
       f => "float",
       d => "double",
       t => " <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2793	2921	
==>rser->Error("Invalid escape sequence $_ .\n"),
                last;
        }
    }

    $parser->Error("Untermined string. <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4308	4436	
==>rser->Error("Invalid escape sequence $_ .\n"),
                last;
        }
    }

    $parser->Error("Untermined string. <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	17167	17271	
==>pmc>

Determines if a given PMC type is dynamically loaded or not.

=cut

sub pmc_is_dynpmc {
    # surel <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892123	892623	
==>> [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1008,
                  "ARGS" => [
                              "s",
                              "s",
                              "i",
                              "i",
                              " <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	42	153	
==>t;
use Carp ();
BEGIN           { *DEBUG = sub () {0} unless defined &DEBUG }
use integer;
use Pod::Escapes 1.03 <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34142	34238	
==>= $srm->pre_branch($rule->{'pop'});
		$pir .= "### pre_branch\n";
		$pir .= sub_meta($pre_branch, <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2329	2444	
==>write_code_to_file( $code, $lang_fn );

        # STDERR is written into same output file
        my $exit_code = <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1849	1961	
==>write_code_to_file( $code, $lang_fn );

        # STDERR is written into same output file
        my $exit_code = <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	10110	10208	
==>Parrot::Test';

    my $path_to_parrot = path_to_parrot();
    my $parrot = File::Spec->join(File:: <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	19920	20053	
==>lt/;
        $defaulted = 1 if $meth_name =~ /_delegate/;
        $defaulted = 1 if $class =~ /^[A-Z]/;
        # MMD method
        i <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25645	25756	
==>p);
  } else {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27543	27654	
==>p);
  } else {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186050	186319	
==>ter, {{\@1}}, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186980	187249	
==>ter, {{\@1}}, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187910	188179	
==>ter, {{\@1}}, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37479	37570	
==>ns = pop stypes
dec pop_count
INS_TRANS_CP_LOOP_CHK_$name:
if pop_count != 0 goto INS_TRANS_ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34994	35101	
==>texpected;
				$Parse::RecDescent::unexpected
				   = $Parse::RecDescent::lastunexpected;
			}
			last;
		} <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42104	42211	
==>texpected;
				$Parse::RecDescent::unexpected
				   = $Parse::RecDescent::lastunexpected;
			}
			last;
		} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18167	18262	
==>:Simple> and inherits all its methods.

=head1 FORMAT CONTROL ATTRIBUTES

You can set these attr <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	31184	31322	
==>=> 123
		},
		GOTOS => {
			'funcbody' => 154
		}
	},
	{#State 106
		ACTIONS => {
			":" => 155,
			"." => 156
		},
		DEFAULT => <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1607	1705	
==>mit pop code.
${INS} = concat ${STACK$register_num}
${INS} = concat " = pop s\n"
PIR
		$pir =~ s/\$ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3317	3415	
==>mit pop code.
${INS} = concat ${STACK$register_num}
${INS} = concat " = pop s\n"
PIR
		$pir =~ s/\$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600087	600185	
==>r, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601163	601261	
==>r, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9714	9811	
==>out}test$exe $libs", 'test.ldo', 'test.ldo', $verbose)
        and confess "Linker failed (see tes <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9318	9437	
==>rint("POPPED[\$dbg_tmp] INT: \%<$reg>$desc\n"),
                );
    } else {
        return ("$reg = pop \@<rx_stack> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084877	1085261	
==>1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085930	1086314	
==>1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086983	1087367	
==>1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGDI <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7186	7294	
==>ct]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print STDERR "Reduce using rule ".-$act." ($lhs,$ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6854	6958	
==>ct]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print STDERR "Reduce using rule ".-$act." ($lhs,$ <==
3	/Users/nnunley/parrot/config/gen/config_pm.pm	4	94	
==>pyright (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/config/gen/config_pm.pm 19593 20 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1736	1835	
==>{'number'}. "  }
sub start_item_text   { $_[0]{'Thispara'} = ''   }

sub start_over_bullet  { ++$_[0 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1304	1403	
==>{'number'}. "  }
sub start_item_text   { $_[0]{'Thispara'} = ''   }

sub start_over_bullet  { ++$_[0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683790	683908	
==>c/ops/pmc.ops\"\n    {{\@1}} = {{\@2}}->vtable->shift_pmc(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "L <==
3	/Users/nnunley/parrot/tools/build/vtable_extend.pl	1391	1492	
==>e stack start pointer's not set and a DOD run is
   triggered. The pointer *will* be set by the interp <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	36220	36346	
==>s[-1]->{pragma} = 'multi';
        }
    }
    push @opcodes, new ReturnDir( $parser,
        'result' => \@returns,
    ) <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	59444	59540	
==>fied, the last escape char
is used for the remaining delimiters.
If no escape char is specified f <==
3	/Users/nnunley/parrot/config/inter/lex.pm	10	100	
==>t (C) 2001-2005, The Perl Foundation.
# $Id: /parrot/config/inter/lex.pm 19593 2006-05-30T0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29162	29260	
==>" => "#line 512 \"src/ops/core.ops\"\n    opcode_t * const this = CUR_OPCODE;\n    parrot_context_t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85591	85680	
==>\n  {{\@1}} = VTABLE_get_pmc_keyed_str(interpreter, compreg_hash, {{\@2}});\n  {{+=3}};\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86498	86587	
==>\n  {{\@1}} = VTABLE_get_pmc_keyed_str(interpreter, compreg_hash, {{\@2}});\n  {{+=3}};\n" <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	17013	17150	
==>r', $test_no) );

            # output file
            my $out_f  = per_test('.pasm', $test_no);

            my $opt = $code_f =~ m!opt( <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	8957	9065	
==>length $1 ]sexg;

    /^\{/ or die "bad block open: ", substr($code,0,10), "...";

    while (/ (\{) | (\}) / <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455302	455554	
==>E" => 522,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 235 \"src/ops/math.ops\"\n  {{\@1}} = {{\ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	34672	34840	
==>even?'            => \&_op_even_p,
  'max'              => \&_op_max,
  'min'              => \&_op_min,
  '+'                => \&_op_plus,
  '-'                => \&_o <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	1494	1627	
==>my (%real_filename);
my %totals = (
    lines            => 0,
    covered_lines    => 0,
    branches         => 0,
    covered_branc <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	5787	5946	
==>sion => undef
        );

        return $self;
    }

    $conf->data->set(
        ccwarn              => "$warns $ccwarn",
        gccversion          => $gc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095188	1095312	
==>rrot_Exec_OS_Command(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "experimental" => 1,
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095883	1096007	
==>rrot_Exec_OS_Command(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "experimental" => 1,
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	13682	13882	
==>_command(qq{$PConfig{make} EXEC=$exec_f exec},
                                    CD     => $path_to_parrot,
                                    STDOUT => $out_f,
                                    S <==
3	/Users/nnunley/parrot/config/auto/m4.pm	566	681	
==>s installed';

@args = qw();

sub runstep
{
    my ($self, $conf) = @_;

    my $archname = $Config{archname};
    m <==
3	/Users/nnunley/parrot/config/auto/bc.pm	647	761	
==>lf, $conf) = @_;

    my $has_gnu_bc;
    my $osname = $Config{osname};

    # There were some problems with a hang <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550147	550238	
==>cont = NEED_CONTINUATION;\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551448	551539	
==>cont = NEED_CONTINUATION;\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	5579	5669	
==>lose_bracket { return shift->require('close-bracket'); }
sub require_close_paren   { return <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061100	1061380	
==>{{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_nam <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606744	607020	
==>{{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	337432	337706	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9723	9815	
==>, need to knock off first arg.
if "${CURIC}" != "73" goto pre_call_NOT_CTOR_${CURIC}
${PTEMP4 <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7237	7329	
==>, need to knock off first arg.
if "${CURIC}" != "73" goto pre_call_NOT_CTOR_${CURIC}
${PTEMP4 <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6201	6293	
==>, need to knock off first arg.
if "${CURIC}" != "73" goto pre_call_NOT_CTOR_${CURIC}
${PTEMP4 <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	1484	1668	
==>doc
    docs/dev/events.pod                             [devel]doc
    docs/dev/fhs.pod                                [devel]doc
    docs/dev/infant.pod                             [de <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5926	6032	
==>elf->get('verbose') == 2;

    print "Looking up trigger $trigger on configuration key $key\n"
        if $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1558	1653	
==>default here it's an array
C<opcode_t>, but the prederef runops core uses an array of C<void*> t <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1523	1620	
==>ocs::Section::PMCs->new,
        Parrot::Docs::Section::DynaPMCs->new,
        Parrot::Docs::Secti <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	944	1038	
==>to executables in a configuration file.
That file may be placed as parrotbench.conf in the same <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	10660	10745	
==>floatarray.pmc fixedpmcarray.pmc lexinfo.pmc multisub.pmc namespace.pmc none.pmc pair. <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21158	21265	
==>'$_savetext = $text;' : '' ) .'

		$_tok = ($_noactions) ? 0 : do ' . $self->{"code"} . ';
		' . ($self->{"l <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	8067	8170	
==>asm ("jmp *4(%ebp)");	/* jump to ret addr, used by JIT */
# endif
#endif
    _reg_base = (char*)interpre <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	9044	9144	
==>t_copy_dispatch();
		parse_data_setup();
		check_branches();
		return;
	}

PARSEERR:
	print "Parse er <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	12668	12854	
==>ZE            {{^S}}   S             op size
        #
        #   HALT()             {{=0}}   PC' = 0       Halts run_ops loop, no resume
        #
        #   restart OFFSET(X)  {{=0,+= <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	3109	3209	
==>LPage->header(
            $self->name, $self->html_navigation, '../resources'));
    $index->append( <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	202	316	
==>ur $VERSION = 0.01;

sub get_out_fn {
    my $self = shift;
    my ( $count ) = @_;

    return Parrot::Test::per_t <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	220	334	
==>ur $VERSION = 0.01;

sub get_out_fn {
    my $self = shift;
    my ( $count ) = @_;

    return Parrot::Test::per_t <==
3	/Users/nnunley/parrot/config/init/hints/solaris.pm	1113	1222	
==>aven't set all the flags yet.
        # This should suffice for this test.
        Parrot::Configure::Step::_r <==
3	/Users/nnunley/parrot/tools/util/pirtidy.pl	397	508	
==>, '<', $file;
    my $outfile = "$file.$extension";
    open my $ofh, '>', $outfile;

    my $formatter = new Pa <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	8723	8828	
==>[1] eq "BARE") {
			$this->[0]=changename($this->[0]);
		}

		push(@expr, $foo[$t]);
		
		# Functions, arr <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	1128	1230	
==>lemented>, and so on.

B<Note:> you I<must> use a C<$description> with TODO tests.

=over 4

=item C<la <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2339	2435	
==>@@@@@@@@@@@
1;

__END__

=head1 NAME

Pod::Simple::DumpAsXML -- turn Pod into XML

=head1 SYNOPSI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355618	355876	
==>"
                               ],
                  "TYPE" => "function",
                  "CODE" => 415,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 217 \"src/ops/io.ops <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103877	1103964	
==>}};\n\tINTVAL type = pmc_type(interpreter, class);\n\tif (!type) {\n\t\tParrot_autoload_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105092	1105179	
==>}};\n\tINTVAL type = pmc_type(interpreter, class);\n\tif (!type) {\n\t\tParrot_autoload_ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	16438	16574	
==>ckage.'::'.$func} = sub {
            my ( $code, $expected, $desc, %extra ) = @_;

            # Strange Win line endings
            co <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	1173	1289	
==>ypes), shift(@$vals) if (@$types);
        return ('', undef);
    };
    my $parser = new Regex::Grammar;
    return <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	2661	2763	
==>se File::Spec;
use strict;

# When run from the makefile, which is probably the only time this
# script <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	207	300	
==>s largely a copy of Parrot::Test::Tcl, which looks like it's
largely a copy of Parrot::Test::P <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	245	338	
==>s largely a copy of Parrot::Test::Tcl, which looks like it's
largely a copy of Parrot::Test::P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61338	61595	
==>}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorson",
                  "FLAGS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61981	62238	
==>}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorson",
                  "FLAGS" => <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	18423	18543	
==>content =~ s/^\s+//s;
      $content =~ s/\s+$//s;
      unless(length($content)) {
        $self->whine(
          $para <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38559	38687	
==>33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 178,
			'functioncall' => 31,
			'function' => 26 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5145	5252	
==>Token) = sub {
#DBG>		my($tok)='>';
#DBG>		for (split('',$$token)) {
#DBG>			$tok.=		(ord($_) < 32 or ord <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4897	5001	
==>Token) = sub {
#DBG>		my($tok)='>';
#DBG>		for (split('',$$token)) {
#DBG>			$tok.=		(ord($_) < 32 or ord <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	9256	9355	
==>ebug($sourceline)
DEBUG
}

sub english_func {
	local $_=$_[0];
	s/\$$/dollar/;
	s/\%$/int/;
	s/\&$/l <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1634	1727	
==>at ${STACK$register_num}
${INS} = concat " = pop s\n"
PIR
		$pir =~ s/\$register_num/$register <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3344	3437	
==>at ${STACK$register_num}
${INS} = concat " = pop s\n"
PIR
		$pir =~ s/\$register_num/$register <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5686	5821	
==>ur $class;
        require "$pmc.dump";
 
        # there can be many libs
        my %libs = %{ $class->{flags}{lib} || {} };
        $ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5897	6032	
==>ur $class;
        require "$pmc.dump";
 
        # there can be many libs
        my %libs = %{ $class->{flags}{lib} || {} };
        $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	178	291	
==>s) = @_;

    if ($language eq 'perl5') {
        $class = 'Regex::Driver::Perl5';
    } elsif ($language eq 'pir' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811516	811657	
==>2}}->vtable->get_pmc_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812418	812559	
==>2}}->vtable->get_pmc_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/config/inter/progs.pm	2421	2516	
==>\s*|USE_PERLIO)//g;
    $ccflags =~ s/-fno-strict-aliasing//g;
    $ccflags =~ s/-fnative-struct <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33151	33306	
==>CallOp') )
    {
        push @opcodes1, new AssignOp( $parser,
            'result' => $var,
            'arg1'   => $nil->[0],
        );
        pu <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	18752	18864	
==>d print "Formatless treelet gets fast-tracked.\n";
     # Very common case!
  }
  
  splice @$treelet, 0, 2;  # l <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15829	15938	
==>use we want to
  #  be able to paste this into a file and run it without there being
  #  dire screaming about <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	245356	245775	
==>RGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 285,
                  "ARGS" => [
                              "i",
                              "p",
                              "p"
                            ],
                  "BODY" <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37384	37484	
==>. $self->describe . ']},
				  Parse::RecDescent::_tracefirst($text),
				  q{' . $rule->{"name"} . ' <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39787	39887	
==>. $self->describe . ']},
				  Parse::RecDescent::_tracefirst($text),
				  q{' . $rule->{"name"} . ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353179	353430	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "func <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353923	354174	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "func <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354668	354919	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "func <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937761	937950	
==>s\"\n  string_titlecase_inplace(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120202	120375	
==>",
                              "i"
                            ],
                  "BODY" => "#line 231 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n" <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7230	7347	
==>);
    }
    return "push \@<rx_stack>, $reg;";
}

sub output_save {
    my ($self, $reg) = @_;
    $reg = value($reg) <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	8103	8219	
==>rd($syms[PREV]) and not isbuiltin($syms[PREV]) ) {
				$unary=1;
			}
		}
		if (
			$this->[0] eq "("    and 
			hasa <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	3378	3492	
==>um;1]
    eq match_start, -2, skipPrint
    eq match_end, -2, skipPrint
    print match_num
    print ": "
    prin <==
3	/Users/nnunley/parrot/config/inter/libparrot.pm	1393	1566	
==>hared         
            ? '$(LIBPARROT_SHARED)'      
            : '$(LIBPARROT_STATIC)',
    );                       

    $conf->data->set(
        rpath_blib => <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	910	998	
==>i) REG_INT(cur_opcode[i])
#define NREG(i) REG_NUM(cur_opcode[i])
#define PREG(i) REG_PMC( <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1026	1114	
==>i) REG_INT(cur_opcode[i])
#define NREG(i) REG_NUM(cur_opcode[i])
#define PREG(i) REG_PMC( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2913	3006	
==>his class; see its
documentation for a discussion of the differences.

L<Pod::Simple>, L<Pod:: <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6845	6938	
==>="1234567890"
print mid$(t$, 2, 8)
print left$(t$, 5)
print right$(t$, 5)
' instr
s1$="The lon <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18574	18667	
==>="1234567890"
print mid$(t$, 2, 8)
print left$(t$, 5)
print right$(t$, 5)
' instr
s1$="The lon <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	32	120	
==>ted by Parrot::Configure::Step from config/gen/makefiles/dynoplibs_pl.in

# Copyright (C) <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1454	1568	
==>t = Parrot::Test::slurp_file( "$out_f" );

        @_ = ( $prog_output, $output, $desc );
        #goto &{"Test::Mo <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1370	1484	
==>t = Parrot::Test::slurp_file( "$out_f" );

        @_ = ( $prog_output, $output, $desc );
        #goto &{"Test::Mo <==
3	/Users/nnunley/parrot/lib/Test/More.pm	27685	27779	
==>ere written before is_deeply() existed
because I couldn't figure out how to display a useful di <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	14740	14863	
==>at "\npushmark "
    $I0 = i + 1
    tmp = $I0
    gen_pir = concat tmp
    gen_pir = concat "\n"
NOT_TRY_START:

    # If t <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	50680	50800	
==>keted list (which may include
        # round- or curly-bracketed code blocks or quotelike operators)

                ex <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33918	34020	
==>ame"} . '})
					if defined $::RD_TRACE;').'
		if (1) { no strict qw{refs};
		$Parse::RecDescent::laste <==
3	/Users/nnunley/parrot/config/gen/cpu.pm	76	168	
==>u.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/gen/cpu.pm - CPU specific <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	8243	8375	
==>eepn yea or nay.
            $self->{'rtfitemkeepn'} = '\keepn' if 
              $to_unget[-1]->type eq 'start' and
              $t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123334	123732	
==>> "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 153,
                  "ARGS" => [
                              "i",
                              " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124207	124506	
==>> "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 15 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125081	125380	
==>> "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 15 <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	4983	5141	
==>boolean' ) {
                    $value = ( $value eq 'true' ) ? 1 : 0;
                }
                my $expr = new defn( $value, 'literal', 'pmc', $ty <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216913	217003	
==>.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217853	217943	
==>.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3 <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	29882	29984	
==>tribute (which might be text, or a treelet)
# Third:
# The name or URL, or undef if none. (E.g., in "L< <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	6521	6610	
==>ol -lcomdlg32 -ladvapi32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid -lws2_32 -lmpr -lw <==
3	/Users/nnunley/parrot/config/init/hints/msys.pm	412	501	
==>ol -lcomdlg32 -ladvapi32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid -lws2_32 -lmpr -lw <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1080	1199	
==>$op,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => $dest->file,
    LINE  => $dest->line
  }, $class;

  $block->pu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1071	1190	
==>$op,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => $dest->file,
    LINE  => $dest->line
  }, $class;

  $block->pu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	960	1079	
==>$op,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => $dest->file,
    LINE  => $dest->line
  }, $class;

  $block->pu <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38619	38734	
==>=> {
			'exp' => 178,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324698	324783	
==>gnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}},{{\@2}});\n  {{+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325491	325576	
==>gnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}},{{\@2}});\n  {{+ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	411	527	
==>itional);

#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $left, $op, $right) = @_;

  confess "Block is n <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	423	539	
==>itional);

#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $left, $op, $right) = @_;

  confess "Block is n <==
3	/Users/nnunley/parrot/config/auto/jit.pm	3389	3494	
==>R)/jit_cpu$(O) $(SRC_DIR)/jit_debug$(O) $(SRC_DIR)/jit_debug_xcoff$(O)'
        );

        if (   ($jitcp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684676	684936	
==>e->setprop(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n      {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685571	685831	
==>e->setprop(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n      {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	31602	31698	
==>h $line) {
			push @{$code{_data}->{code}}, qq{\t\$P1["$line"]= $counter\n};
		}
		foreach (@{$ld <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	35691	35824	
==>> 'break',
    );
    return \@opcodes;
}

sub BuildReturn {
    my ( $parser, $exprs ) = @_;
    my @opcodes = ();
    my @re <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29163	29277	
==>head"   => $_[2],
		"line"        => $_[3],
		"description" => "'$desc'",
	}, $class;
}


sub code($$$$)
{
	my ($se <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31265	31374	
==>head" => $_[2],
		"line"      => $_[3],
		"description" => "'$desc'",
	}, $class;
}

sub code($$$$)
{
	my ($se <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	1703	1811	
==>ss this.
  
  $self->{'pod_para_count'} ||= 0;

  my $line;
  foreach my $source_line (@_) {
    if( $self->{ <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	7205	7345	
==>osf') &&
		    $type =~ /^[BbSs]$/) {
		    if ($type =~ /^[Ss]$/) {
			$small  = 1;
			$uninit = 1;
		    }
		    $zeroed = 1;
		}
		if ($^O <==
3	/Users/nnunley/parrot/config/auto/headers.pm	2159	2261	
==>a->set(testheaders => join('', map { "#include <$_>\n" } @$use_headers));
            $conf->data->set( <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	5150	5240	
==>ame="Type" defStyleNum="dsDataType" />
      <itemData name="Comment" defStyleNum="dsCommen <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	46525	46634	
==>undef;
	my $item = undef;
	my $lastgreedy = '';
	pos $grammar = 0;
	study $grammar;

	while (pos $grammar < le <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	16820	16928	
==>$bad,\n", "'$name'", $value;
      } else {
        push @norms, sprintf " %-10s , chr(%s),\n", "'$name'", $v <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18760	18878	
==>st if $self->get(1)->is_close_paren;
          $self->require_comma;
        }
      }

      $self->require_close_pare <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19786	19904	
==>st if $self->get(1)->is_close_paren;
          $self->require_comma;
        }
      }

      $self->require_close_pare <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5153	5273	
==>>= $first;";
        }
    }
    push @ops, "goto $fail;";

    push @ops, $self->output_label_def($passLabel);
    retur <==
3	/Users/nnunley/parrot/config/init/hints/freebsd.pm	922	1029	
==>> 1,
        libparrot_shared        => 'libparrot$(SHARE_EXT).$(SOVERSION)',
        libparrot_shared_alias <==
3	/Users/nnunley/parrot/config/init/hints/linux.pm	1760	1867	
==>> 1,
        libparrot_shared        => 'libparrot$(SHARE_EXT).$(SOVERSION)',
        libparrot_shared_alias <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10942	11113	
==>,x]=4..x and [10,x]=10..x
            if ($incexc[-1] <= $last+1) {
                $incexc[-1] = $last+1;
            }
        } else {
            # Append
            p <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	9348	9468	
==>\w*\]\w*/) {
            error("MANIFEST", $line, "malformed entry for filename ($_)");
        }

        my ($filename, <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5622	5736	
==>rint "$result." unless $step =~ m{^inter/} && $ask;

        # reset verbose value for the next step
        $self- <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	23611	23714	
==>ONST_STRING(interp, "$classname");
        vt_clone->isa_str = CONST_STRING(interp, "$isa");
        vt_ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7532	7643	
==>int
end
100 print "100!"
    goto FIN
200 print "200!"
    goto FIN
300 print "300!"
    goto FIN
oats:
	print " <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19815	19926	
==>int
end
100 print "100!"
    goto FIN
200 print "200!"
    goto FIN
300 print "300!"
    goto FIN
oats:
	print " <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	11413	11519	
==>d1_text_content .= $token->text;
      } elsif( $token->is_end and $token->tagname eq 'head1' ) {
        D <==
3	/Users/nnunley/parrot/config/inter/libparrot.pm	1839	1945	
==>get('libparrot_ldflags'))) {
        $conf->data->set(
            libparrot_ldflags => ($parrot_is_share <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	27966	28072	
==>{'start_line'},
      "Unknown =extend syntax: $content"
    )
  }
  return;
}


#:.:.:.:.:.:.:.:.:.:.:.:.: <==
3	/Users/nnunley/parrot/tools/docs/pod_errors.pl	271	367	
==>ignore-regex]

=head1 DESCRIPTION

This script reports on any POD errors found in the files.

=cu <==
3	/Users/nnunley/parrot/config/auto/pack.pm	2202	2320	
==>nt type we can use
    # for pointers.
    #

    if ($intsize == $ptrsize) {
        $conf->data->set(ptrconst => "u") <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	28265	28379	
==>ove (if any)
            };

'ok' is true if Test::Harness will consider the test to be a pass.

'actual_ok' is a r <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	3754	3856	
==>n) = @_;
    copy_if_diff($from, $to, $ignorePattern);
    unlink $from;
}

=item C<genfile($source, $t <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	12958	13069	
==>r_test( '_pbcexe', $test_no);  # Make cleanup and svn:ignore more simple
                $exe_f =~ s@[\\/:]@$PCo <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	27723	27832	
==>ourse, test #1 is $tests[0], etc...

=cut

sub summary {
    my($self) = shift;

    return map { $_->{'ok'} } <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	1906	2013	
==>GS} && $ENV{TEST_PROG_ARGS} !~ /\b--gc-debug\b/ )
    {
        $ENV{TEST_PROG_ARGS} .= " --gc-debug";
    } <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	2054	2190	
==>y $navigation = shift || '';
    my $resources = shift || '';
    
    <<"FOOTER";
        </DIV>
        <P>
        <TABLE BORDER="0" W <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1344	1460	
==>text, $token->text_r, etc...
    
    } elsif($token->is_end) {
      ...access $token->tagname...
    
    }
  }

(A <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	1872	1974	
==>ad2 Class Methods

=over 4

=cut

package Parrot::Op;

use strict;
use warnings;


=item C<new($code, $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1102	1192	
==>$token->tagname(I<somestring>)

This changes the tagname for this end-token object.
You pro <==
3	/Users/nnunley/parrot/config/auto/memalign.pm	834	965	
==>set; leave it alone
        $self->set_result('already set');
        return $self;
    }
    my $test = 0;

    if ($conf->data->ge <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	2137	2232	
==>s supported.

Once the superclass is determined, it is processed and its method names
are extrac <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64600	64692	
==>BODY" => "#line 981 \"src/ops/core.ops\"\n  Interp * const new_interp = (Interp *)PMC_data({{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65551	65643	
==>BODY" => "#line 981 \"src/ops/core.ops\"\n  Interp * const new_interp = (Interp *)PMC_data({{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745374	745657	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 839,
                  "ARGS" = <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6639	6774	
==>ulesub(target)

            unless match goto match_fail
          match_success:
            print "matched"
            goto match_end <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7657	7791	
==>ulesub(target)
            unless match goto match_fail
          match_success:
            print "matched"
            goto match_end <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550970	551227	
==>],
                  "TYPE" => "function",
                  "CODE" => 634,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 56 \"src/ops/obj <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5958	6079	
==>}
			feedme;
			$elsetag--;
			goto PARSE;
		}
		if ($syms[NEXT] eq "select") {
			my $s=pop @selects;
			feedme;
			print <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	30142	30242	
==>y ($self, $op, $name, $R, $num_groups, $lastback) = @_;

    # Generate code for saving/restoring the <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714809	715065	
==>tspace(interpreter, io, 1);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715732	715988	
==>tspace(interpreter, io, 1);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716677	716933	
==>tspace(interpreter, io, 1);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	25970	26074	
==>xt,$delim);


 # Extract the initial substring of $text that is bounded by
 # an HTML/XML tag.

	($extrac <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3443	3606	
==>}}
}

sub YYLexer {
    my($self)=shift;

	$$self{LEX};
}


#################
# Private stuff #
#################


sub _CheckParams {
	my($mandator <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3271	3418	
==>}}
}

sub YYLexer {
    my($self)=shift;

	$$self{LEX};
}


#################
# Private stuff #
#################


sub _CheckParams {
	my($mandator <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30323	30465	
==>=> 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			"<=" => 85,
			'OR' => 84,
			"]" => 150,
			">" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746110	746393	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 840,
                  "ARGS" = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1859	1971	
==>te and clear a temporary string register

    $compiler->emit("  $temp = \"\"");

    while (1) {
      last unle <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3680	3782	
==>ue($reg);
    return "if $reg, " . $self->output_label_use($dest);
}

sub output_unless {
    my ($self <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	629	716	
==>est) . ") is not Identifier!") unless UNIVERSAL::isa($dest, 'Jako::Construct::Expression <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	620	707	
==>est) . ") is not Identifier!") unless UNIVERSAL::isa($dest, 'Jako::Construct::Expression <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	509	596	
==>est) . ") is not Identifier!") unless UNIVERSAL::isa($dest, 'Jako::Construct::Expression <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2435	2556	
==>f{USER}={};

	$$self{USER};
	
}

sub YYErrok {
	my($self)=shift;

	${$$self{ERRST}}=0;
    undef;
}

sub YYNb <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2339	2447	
==>f{USER}={};

	$$self{USER};
	
}

sub YYErrok {
	my($self)=shift;

	${$$self{ERRST}}=0;
    undef;
}

sub YYNb <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3413	3544	
==>$self->{STACK}[-1][0]]{ACTIONS}}
}

sub YYLexer {
    my($self)=shift;

	$$self{LEX};
}


#################
# Private stu <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3241	3361	
==>$self->{STACK}[-1][0]]{ACTIONS}}
}

sub YYLexer {
    my($self)=shift;

	$$self{LEX};
}


#################
# Private stu <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1908	2005	
==>r_text    { ++$_[0]{'Indent'} }
sub start_over_block   { ++$_[0]{'Indent'} }

sub   end_over_bulle <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1476	1573	
==>r_text    { ++$_[0]{'Indent'} }
sub start_over_block   { ++$_[0]{'Indent'} }

sub   end_over_bulle <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732182	732405	
==>"src/ops/set.ops\"\n  {{\@1}} = (INTVAL)({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732928	733151	
==>"src/ops/set.ops\"\n  {{\@1}} = (INTVAL)({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31719	31848	
==>ter,
    );
    if (    scalar( @{$exprs} ) == 0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa( <==
3	/Users/nnunley/parrot/config/gen/config_pm.pm	1023	1141	
==>>data;

    while (<IN>) {
	if (/<<HERE>>/) {
       	    s/<<HERE>>/$data->dump()/e;
	    s/(\$\(([A-Za-z_]+)\))/$data <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	286	382	
==>rict;
eval "use warnings";

package Jako::Construct::Block::Conditional::Else;

use Carp;

use ba <==
3	/Users/nnunley/parrot/config/inter/make.pm	1201	1321	
==>$prog) {
        $conf->data->set($util => $prog);
        $self->set_result('yes');
    } else {
        $prog = check_p <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	48379	48492	
==>ed $2) {
        DEBUG > 3 and print "Found complex start-text code \"$1\"\n";
        push @stack, length($1) - 1 <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	8472	8563	
==>item F<tools/build/pbc2c.pl>

=back

=head1 HISTORY

Author: Gregor N. Purdy E<lt>gregor@foc <==
3	/Users/nnunley/parrot/config/init/hints/solaris.pm	474	645	
==>->data->set(libs => $libs);

    ################################################################
    # If we're going to be using ICU (or any other C++-compiled library) w <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	15661	15800	
==>nown kind of block '%s'!", $peer_block->kind);
      }

      next;
    }

    #
    # Arithmetic Operators:
    #
    #   <var> = <value> < <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	1937	2043	
==>";
    exit;
  }

  uncompress_smoke($CGI);
  unless($CGI->param("smoke") =~ /^<!DOCTYPE html/) {
    print <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11243	11417	
==>ould do it
}

###########################################################################

sub stylesheet {
  return sprintf <<'END',
{\stylesheet
{\snext0 Normal;}
{\*\cs10 \ <==
3	/Users/nnunley/parrot/config/init/hints/darwin.pm	1323	1439	
==>ib version of the library
        parrot_is_shared     => 0,
        libparrot_shared        => 'libparrot.$(SOVERSIO <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	209	323	
==>fn( $idf, 'tmp', $type, $subtype );
}

sub new_label {
    my ($parser) = @_;
    my $idf = 'L' . $parser->YYD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1097650	1097940	
==>= key;\n        }\n    }    \n    {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848580	848862	
==>pn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 963,
                  "AR <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3089	3183	
==>oject info',
	'RESPONSIBLE_PARTIES' => 'Project info',
	'TODO' => 'TODO file',
	'VERSION' => 'P <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	2497	2598	
==>eyword { 
	return 1 if (grep /^\Q$_[0]\E$/i, @keywords);
	return 0;
}
sub precedence {
	my ($op, $next <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	51	150	
==>tor
# Script to generate the instruction translator from a rules file and a
# stack to register mapp <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33296	33390	
==>c;
}

sub callsyntax($$)
{
	if ($_[0]->{"matchrule"})
	{
		return "&{'$_[1]'.qq{$_[0]->{subrule <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34743	34862	
==>and block assimilation of the next paragraph
            delete $para->[1]{'number'};
             # Only a PROPER item- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359342	359434	
==>\@1}};\n  if (s && string_length(interpreter, s)) {\n    PIO_putps(interpreter, PIO_STDERR(in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360090	360182	
==>\@1}};\n  if (s && string_length(interpreter, s)) {\n    PIO_putps(interpreter, PIO_STDERR(in <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11948	12048	
==>]} (reverse @args));
			$pir_args = ",$pir_args" if $pir_args;
			$extern=$sym;
			$optype=optype_of( <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	12358	12458	
==>]} (reverse @args));
			$pir_args = ",$pir_args" if $pir_args;
			$extern=$sym;
			$optype=optype_of( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	12402	12492	
==>:needparen { 0 }
sub Regex::Ops::Tree::atend::render { '$' }

sub Regex::Ops::Tree::check:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937957	938200	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "join",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938846	939089	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "join",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	23507	23622	
==>nt_FLAG|PObj_external_FLAG);
EOC
    }
    else {
        $cout .= <<"EOC";
        vt_clone->whoami = CONST_STRING( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1743	1849	
==>_xml_escape {
  foreach my $x (@_) {
    # Escape things very cautiously:
    $x =~ s/([^-\n\t !\#\$\%\(\)\ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1846	1952	
==>_xml_escape {
  foreach my $x (@_) {
    # Escape things very cautiously:
    $x =~ s/([^-\n\t !\#\$\%\(\)\ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	1239	1361	
==>RR];
		feedme;
		my $array=0;
		if ($syms[CURR] eq "(") {
			$array=1;
			while($syms[CURR] ne ")") {
				feedme;
			}
			f <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	3452	3559	
==>ount);
}


#
# forth()
#
# Moves the current token position $offset tokens forward. Returns the
# token at t <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	428	523	
==><package> C<Configure::Step>. See
F<docs/configuration.pod> for more information on how to creat <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095238	1095497	
==>=2}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095933	1096192	
==>=2}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	2008	2104	
==>up logic should be
modified so that it doesn't need to concatenate separate ops files.

=head1 SE <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	6794	6894	
==>age error";
}

sub _subclass_error {
    croak 'struct class cannot be a subclass (@ISA not allowed)' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141567	141800	
==>RGS" => [
                              "nc",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 77 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009868	1010092	
==>n  {{\@1}} = string_compose(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010633	1010857	
==>n  {{\@1}} = string_compose(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/languages/lua/luac.pl	398	510	
==>{verbose_warning} = 1;    # 0, 1
$parser->YYData->{verbose_info}    = 1;    # 0, 1
$parser->Run(@ARGV);

if ( <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2400	2482	
==>nchmarks/mops.pasm>,
F<examples/mops/mops.c>,
F<examples/mops/mops.cs>,
F<examples/ <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	2400	2482	
==>nchmarks/mops.pasm>,
F<examples/mops/mops.c>,
F<examples/mops/mops.cs>,
F<examples/ <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	4489	4600	
==>, 'array'
    if $I0 goto print_vector
    value = arg
    bsr print_value
    .return (result)

  print_vector: <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31823	31941	
==>and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcodes1, new AssignOp( $parser,
            'result' => $ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	32474	32592	
==>and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcodes1, new AssignOp( $parser,
            'result' => $ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33124	33242	
==>and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcodes1, new AssignOp( $parser,
            'result' => $ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1715	1820	
==>PMCArray
PIR
}

# Post translation hook.
sub post_translation() {
	# Nothing to do.
	return "";
}

# Extra <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8312	8406	
==>oo";tab$(15);"Stuff"
print "I am the very model of a modern";tab$(15);"More"
print "Hello","Aga <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21176	21270	
==>oo";tab$(15);"Stuff"
print "I am the very model of a modern";tab$(15);"More"
print "Hello","Aga <==
3	/Users/nnunley/parrot/config/inter/progs.pm	3961	4129	
==>gging build of Parrot?", $debug)
        if $ask;

    if (!$debug || $debug =~ /n/i) {
        $conf->data->set(
            cc_debug   => '',
            link_debug => <==
3	/Users/nnunley/parrot/config/inter/libparrot.pm	133	228	
==>ad1 NAME

config/inter/libparrot.pm - Determines build information for libparrot

=head1 DES <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710794	710885	
==>terpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711628	711719	
==>terpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434489	434598	
==>2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435504	435613	
==>2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  " <==
3	/Users/nnunley/parrot/config/inter/types.pm	258	355	
==>number and opcode types should
be.

=cut

package inter::types;

use strict;
use vars qw($descript <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4642	4741	
==>ing debugging version of the driver,
#this file will be parsed from 'sub _Parse' up to '}#_Parse' i <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4408	4506	
==>ing debugging version of the driver,
#this file will be parsed from 'sub _Parse' up to '}#_Parse' i <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	46108	46206	
==>from an input
string, but with an important caveat in list contexts.

Unlike other types of quote-l <==
3	/Users/nnunley/parrot/config/init/hints/netbsd.pm	172	284	
==>'ccflags');
    if ($ccflags !~ /-pthread/) {
        $ccflags .= ' -pthread';
    }
    $conf->data->set(ccflags <==
3	/Users/nnunley/parrot/config/init/hints/openbsd.pm	264	376	
==>'ccflags');
    if ($ccflags !~ /-pthread/) {
        $ccflags .= ' -pthread';
    }
    $conf->data->set(ccflags <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	37322	37420	
==>tandard HTML/XML tag is used.

=item 3.

A string specifying a pattern to be matched at the closing <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	11846	11964	
==>ra_preamble_ref},
            "t_$temp_num = (float)GET_NCI_N($reg_num);";
        return "t_$temp_num";
    };
    /d/ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	5369	5469	
==>n( tests => $num_tests );

A convenient way to set up your tests.  Call this and Test::Builder
will p <==
3	/Users/nnunley/parrot/tools/dev/pbc_header.pl	321	413	
==>hanges to
PBC_COMPAT) the fingerprint of existing bytecode files is invalidated.

This utilit <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	5481	5566	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_eleme <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	382	467	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_eleme <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	381	466	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_eleme <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	625022	625133	
==>t_results;\n    if (pc) {\n        pred_pc = (void**) pc - ctx->pred_offset;\n        sig = (PMC*)(pred_pc[1]);\ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	23	124	
==>lator
# Base class for implementing stack to register mapping algorithms.

package SRM::Base;
use stri <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	72609	72698	
==>trict 'refs';
	\$AUTOLOAD =~ s/^$self->{namespace}/Parse::RecDescent/;
	goto &{\$AUTOLOAD} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807905	808112	
==>able->get_number_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808810	809017	
==>able->get_number_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	185	349	
==>strict;

sub output_preamble {
    my $self = shift;

    return (
            'new P0, PerlRegex',
            're_bind P0, S0'
           );
}

############### SIM <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9823	9928	
==>w($block, $self->require_value);
      my $op    = $self->require_infix_rel->text;
      my $right = Jako: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25359	25464	
==>w($block, $self->require_value);
      my $op    = $self->require_infix_rel->text;
      my $right = Jako: <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5393	5491	
==>branch ELSEBRANCH_$elseline
	# The expression was not true...
	IFBRANCH_$c:
CODE
		$elseline++;
		g <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021650	1021748	
==>ruct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_gmtime_r(&t, &tm);\n  {{\@1}} = tm_to_a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022492	1022590	
==>ruct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_gmtime_r(&t, &tm);\n  {{\@1}} = tm_to_a <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	40833	40928	
==>g the start and end
tags). C<undef> is returned on failure. In addition, the original input
text <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27678	27792	
==>le->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end translation\n";

		# Emit code to fix u <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37227	37341	
==>le->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end translation\n";

		# Emit code to fix u <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	15589	15702	
==>P1
    if $S1 == 'String' goto bad_args
    $S2 = typeof $P2
    if $S2 == 'String' goto bad_args
    goto got_arg <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	4205	4365	
==>$op2,
                                   rop('goto', [ $continue ]) ]);
        return ($self->rewrite($testop, $lastback),
                $self->rewrite($dest, <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	4666	4763	
==>and therefore
not checked.

Note that the results are cached and the POD will only be rechecked
if <==
3	/Users/nnunley/parrot/config/init/hints/hpux.pm	20	108	
==>, The Perl Foundation.
# $Id: /parrot/config/init/hints/hpux.pm 19593 2006-05-30T02:28:15 <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12950	13082	
==>$1) . ')'/xeg;

    # Rewrite OtherClass.SELF.other_method(args...)
    s/(\w+)             # OtherClass
      \.SELF            # Ma <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	40610	40724	
==>@item, ' .
			     ($::RD_NO_HITEM ? ''
			      : '$item{'.$self->{hashname}.'}=') . '$1; $backtrack=1;}'
				: "" <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	1579	1680	
==>o skip files that are not members of any
package.

The various meta flags recognized are:

=over 4

=i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40174	40317	
==>P" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41021	41164	
==>P" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4202	4321	
==>ion;
  }
  
  

  foreach my $it ($to, $section) {
    if( defined $it ) {
      $it =~ s/([^\x00-\xFF])/join '', map sp <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	418	516	
==>= 'Determining if your C compiler is actually gcc';

@args = qw(miniparrot verbose);

sub runstep
{ <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	1697	1793	
==>initialized with any data.

See L</"Data is not an API">.

=item Initialized Modifiable Data

Dat <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	22659	22761	
==>x/Grammar.y"
{ return [ $_[1], $_[3] ] }
	],
	[#Rule 42
		 'classpiece', 1,
sub
#line 177 "lib/Regex/Gr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1014483	1014779	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "err",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015306	1015602	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "err",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	2946	3048	
==>$typedefs) . " typedefs.\n";
    my $cmd = "indent -kr -nce -sc -cp0 -l79 -lc79 -psl -nut -cdw -ncs -lp <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8390	8520	
==>}

	return $pir;
}

sub post_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If destination is a register t <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6210	6340	
==>}

	return $pir;
}

sub post_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If destination is a register t <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5125	5255	
==>}

	return $pir;
}

sub post_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If destination is a register t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60072	60329	
==>" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "warningsoff",
                  "FLAGS" => "",
                  "ARGDIR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60721	60978	
==>" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "warningsoff",
                  "FLAGS" => "",
                  "ARGDIR <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4711	4818	
==>se(F);

    # filter out things that start with _.  Probably internal libc stuff.
    my @external_calls = g <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17555	17682	
==>{#State 43
		DEFAULT => -89
	},
	{#State 44
		DEFAULT => -94
	},
	{#State 45
		DEFAULT => -47
	},
	{#State 46
		DEFAUL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170392	170483	
==>\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171333	171424	
==>\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175967	176173	
==>"s",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 240 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@ <==
3	/Users/nnunley/parrot/lib/File/Which.pm	4138	4233	
==>them, C<File::Which> takes extra steps to assure that you
will find the correct file (so for exa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105100	105385	
==>( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105837	106122	
==>( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "i <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1635	1725	
==>rrot::Test::PGE::_generate_subrule_pir($target, $pattern)
        : Parrot::Test::PGE::_gen <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2158	2248	
==>rrot::Test::PGE::_generate_subrule_pir($target, $pattern)
        : Parrot::Test::PGE::_gen <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2738	2827	
==>Pod formatters based on Pod::Simple.

Pod::Simple::DumpAsXML inherits methods from
L<Pod:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630716	631010	
==>e);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631706	632000	
==>e);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629729	630021	
==>e);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035823	1036100	
==>} = result;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fi <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	2056	2200	
==>> "IREG(%ld)",
        n   => "NREG(%ld)",
        p   => "PREG(%ld)",
        s   => "SREG(%ld)",
        k   => "PREG(%ld)",
        ki  => "IR <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	3022	3137	
==>=cut

sub svn_id
{
    my $self = shift;
    my $content = $self->read;
    # Break up the $Id to prevent svn messin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621815	621911	
==>ILCALL;\n\t    --ctx->recursion_depth;\n\t    ctx->caller_ctx = caller_ctx->caller_ctx;\n\t    Pa <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	4509	4613	
==>time property.
sub rewrite_multi_match {
    my ($self, $op, $min, $max, $greedy, $R, @rest) = @_;

    i <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	424	524	
==>ckage Parrot::Pmc2c;

use strict;
use warnings;

use Parrot::PMC qw(%pmc_types);

use base qw( Export <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	854	940	
==>ram
(L<http://www.gedanken.demon.co.uk/cxref/>) to extract information from
the program <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211393	211676	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	212342	212625	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le_ <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4114	4221	
==>ies in the directory.

=cut

sub directory_paths
{
    my $self = shift;

    return sort grep {-d} $self->f <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27566	27662	
==>$self->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'unle <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29676	29772	
==>$self->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'unle <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31773	31869	
==>$self->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'unle <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024016	1024223	
==>" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 210 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (tim <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	2804	2904	
==>goto NEXT()>

Transforms to C<PC' = PC + S>, where C<S> is the size of an op.

=item C<goto ADDRESS(X <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	3111	3233	
==>ut the return type on the same line.
        $cmd =~ s/-psl/-npsl/g;	
    }
    foreach (sort keys %$typedefs) {
        $c <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	14935	15031	
==>h.get_handler_offset()
    eh_flags = eh.get_flags()
    if eh_flags != 0 goto NOT_TYPED_EH_START <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	2497	2592	
==>art_element({ Name => 'module', Attributes => { name => $self->name } });
  $_->sax($handler) fo <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1204	1322	
==>UT => $pasm_f, STDERR => $pasm_f,
        );
        Parrot::Test::run_command( 
            "./parrot languages/$pasm_ <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1113	1231	
==>UT => $pasm_f, STDERR => $pasm_f,
        );
        Parrot::Test::run_command( 
            "./parrot languages/$pasm_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5137	5237	
==>un core C code for section after the address table.

=cut

sub run_core_after_addr_table
{
    my ($s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	909	1016	
==>/s) {
        next if $key eq 'start_line' and $_[0]{'hide_line_numbers'};
        _xml_escape($value = $_[2 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	728	831	
==>/s) {
      next if $key eq 'start_line' and $_[0]{'hide_line_numbers'};
      _xml_escape($value = $_[2 <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	211	304	
==>ad1 SYNOPSIS

	use Parrot::Docs::Section::IMCC;

=head1 DESCRIPTION

A documentation section d <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	3125	3316	
==>tem
            Accessibility
            I18N.CJK
            I18N.MidEast
            I18N.Other
            I18N.Rare
            I18N.West
            I18N
            ICSharpCode. <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7593	7691	
==>urn ("$reg = \$::STATESTACK[-1]");
}

use vars qw($DEBUG_LABEL);
sub output_popindex {
    my $self <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1584	1675	
==>RNAL_ERROR("Variable definition involves undefined type name!")
    unless defined $type_nam <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	13732	13842	
==>le {
    my ($self, $op, $R, $S, $lastback) = @_;

    my $nextalt = $self->genlabel('nextalt');
    my $back = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650570	650665	
==>DY" => "#line 247 \"src/ops/pmc.ops\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtable_ma <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651492	651587	
==>DY" => "#line 247 \"src/ops/pmc.ops\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtable_ma <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	7529	7636	
==>erpreter, struct call_state *st, int n)
{
    assert(n < st->src.n);
    Parrot_fetch_arg_nci(interpreter, s <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	7712	7819	
==>erpreter, struct call_state *st, int n)
{
    assert(n < st->src.n);
    Parrot_fetch_arg_nci(interpreter, s <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	7894	8001	
==>erpreter, struct call_state *st, int n)
{
    assert(n < st->src.n);
    Parrot_fetch_arg_nci(interpreter, s <==
3	/Users/nnunley/parrot/lib/Test/More.pm	34611	34703	
==>s strings>.  This prevents
Test::More from piercing an object's interface allowing better bla <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	951	1138	
==>*",
       i => "int",
       3 => "int *",
       l => "long",
       4 => "long *",
       c => "char",
       s => "short",
       2 => "short *",
       f => "float",
       d => "doub <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	1366	1553	
==>*",
       i => "int",
       3 => "int *",
       l => "long",
       4 => "long *",
       c => "char",
       s => "short",
       2 => "short *",
       f => "float",
       d => "doub <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	2271	2458	
==>*",
       i => "int",
       3 => "int *",
       l => "long",
       4 => "long *",
       c => "char",
       s => "short",
       2 => "short *",
       f => "float",
       d => "doub <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733709	733940	
==>ng_to_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734473	734704	
==>ng_to_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	32191	32296	
==>ed from inside an END block.  It
doesn't actually exit, that's your job.

=cut

sub _my_exit {
    $? = $_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942653	943006	
==>i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1060,
                  "ARGS" => [
                              "p",
                              "sc",
                              "sc"
                            ],
                  "BODY" => "#line 486 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7453	7626	
==>e
            and do {
                    $lhs =~ /^\@[0-9]+\-([0-9]+)$/
                or  die "In line rule name '$lhs' ill formed: ".
                        "report <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7110	7279	
==>e
            and do {
                    $lhs =~ /^\@[0-9]+\-([0-9]+)$/
                or  die "In line rule name '$lhs' ill formed: ".
                        "report <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	16786	16896	
==>e an <over type=text> region
    #   and any =item inside an <over type=block> region (rare)
    #   don't requ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565718	565806	
==>ps/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->can(interpreter, {{\@2}}, {{\@3}});\n  {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566611	566699	
==>ps/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->can(interpreter, {{\@2}}, {{\@3}});\n  {{+= <==
3	/Users/nnunley/parrot/Configure.pl	4639	4760	
==>ss defined $key;
  $value = 1      unless defined $value;

  for ($key) {
    m/version/ && do {
      my $svnid = '$Id: / <==
3	/Users/nnunley/parrot/lib/Test/More.pm	5998	6096	
==>all also return true or false,
respectively.

=over 4

=item B<ok>

  ok($this eq $that, $test_name <==
3	/Users/nnunley/parrot/config/gen/platform.pm	703	795	
==>if defined($conf->options->get('miniparrot'));
    $platform = "win32" if $platform =~ /^msys <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262087	262404	
==>same",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 305,
                  "ARGS" => <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	851	965	
==>_;

  $handler->start_element({ Name => 'block', Attributes => { kind => $self->kind } });
  $_->sax($handler) fore <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1864	1978	
==>_;

  $handler->start_element({ Name => 'block', Attributes => { kind => $self->kind } });
  $_->sax($handler) fore <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	9834	9938	
==>de) = @_;

  _num_arg ($node, 2, 'define');

  my ($symbol, $lambda, $value);

  if (exists _get_arg($nod <==
3	/Users/nnunley/parrot/config/gen/revision.pm	176	271	
==>gure revision

=head1 DESCRIPTION

Determines parrot's SVN revision.  In a release, there are no <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	95	190	
==>rd  $

package Regex::CodeGen::Re;
use Regex::RegexOps ();
use base 'Regex::CodeGen';
use strict <==
3	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	1086	1198	
==>numbers
	time I24  	       # Seed the random number generator

	save 0  # Initialize the runtime stack!
	save "LO <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6227	6333	
==>oup_files, \%group_libs, \%pmc_group, \%pmc_libs);
}

sub modtime {
    my $ago = (-M shift);

    if (defi <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6438	6544	
==>oup_files, \%group_libs, \%pmc_group, \%pmc_libs);
}

sub modtime {
    my $ago = (-M shift);

    if (defi <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5392	5489	
==>.0, EQ_${eqnum}_end
	set $result, 0.0
EQ_${eqnum}_end: noop
CODE
	},
	'eqv' => sub {
		my($a1,$a2, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717951	718048	
==>st io = {{\@1}};\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718883	718980	
==>st io = {{\@1}};\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4296	4406	
==>t <rx_tmp>, $needed, $fail";
    }
}

sub output_match {
    my ($self, $code, $failLabel) = @_;
    my $commen <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8330	8425	
==>f"
print "I am the very model of a modern";tab$(15);"More"
print "Hello","Again",d
dim c$(1)
for <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21194	21289	
==>f"
print "I am the very model of a modern";tab$(15);"More"
print "Hello","Again",d
dim c$(1)
for <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103966	1104054	
==>lass(interpreter, class);\n\t\ttype = pmc_type(interpreter, class);\n\t}\n\tif (type <= 0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105181	1105269	
==>lass(interpreter, class);\n\t\ttype = pmc_type(interpreter, class);\n\t}\n\tif (type <= 0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208265	208400	
==>"ic"
                            ],
                  "BODY" => "#line 401 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209206	209341	
==>"ic"
                            ],
                  "BODY" => "#line 401 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interp <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	10479	10583	
==>= @_;
    return (".local $type $var");
}

sub output_rule_def {
    my ($self, $name, $L_trymatch, $L_ba <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2620	2742	
==>s =~ s/\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else {
        $liblist = join( ' ', map { "-l$_" } key <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2929	3051	
==>s =~ s/\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else {
        $liblist = join( ' ', map { "-l$_" } key <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2724	2846	
==>s =~ s/\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else {
        $liblist = join( ' ', map { "-l$_" } key <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414652	415117	
==>o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 478,
                  "ARGS" => [
                              "i",
                              "p",
                              "i",
                              "ic",
                              "i" <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3484	3632	
==>ft;

	$$self{LEX};
}


#################
# Private stuff #
#################


sub _CheckParams {
	my($mandatory,$checklist,$inarray,$out <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3308	3444	
==>ft;

	$$self{LEX};
}


#################
# Private stuff #
#################


sub _CheckParams {
	my($mandatory,$checklist,$inarray,$out <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5463	5571	
==>table Functions */
EOM
    for my $entry (@{$vtable}) {
    next if ($entry->[4] =~ /MMD_/);
    $macros .= < <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	12255	12413	
==>,
			'regex' => 13,
			'rule' => 8,
			'regex1' => 7
		}
	},
	{#State 2
		DEFAULT => 0
	},
	{#State 3
		ACTIONS => {
			"?" => 16
		},
		DEFAULT => -28,
		GOTO <==
3	/Users/nnunley/parrot/lib/File/Which.pm	3592	3689	
==>ay forces search for all of them

=head1 DESCRIPTION

C<File::Which> was created to be able to get <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5291	5382	
==>tem C<expr_offset($offset)>

Implemented in subclasses to return the C code for C<OFFSET($of <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	371595	371685	
==>ine from empty filehandle\");\n\n    if (!(io->flags & PIO_F_LINEBUF))\n\tPIO_setlinebuf(in <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1810	1899	
==>>{ARGS}[shift];
}

=item C<goto_address($address)>

Transforms the C<goto ADDRESS($address <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1425	1514	
==>>{ARGS}[shift];
}

=item C<goto_address($address)>

Transforms the C<goto ADDRESS($address <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	464	570	
==>'CONT', REDO => 'REDO', LAST => 'LAST' },
  'if'       => { PREFIX => "_I", NEXT => 'TEST', REDO => 'THEN', <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	485	591	
==>'CONT', REDO => 'REDO', LAST => 'LAST' },
  'if'       => { PREFIX => "_I", NEXT => 'TEST', REDO => 'THEN', <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	32	131	
==>03-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# a <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	34	133	
==>03-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# a <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3110	3207	
==>o the
prederef array. (see expr_pop(), above, for a description of why this
works.)

=cut

sub exp <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	53927	54059	
==>ua51.yp"
{
            BuildBinop( $_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 65
		 'exp', 3,
sub
#line 369 "Lua\lua <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	12060	12164	
==>---------  -------  ------------  ----------------------------------
        #   goto OFFSET(X)     {{+=X <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33739	33836	
==>>post_store($dest_reg);
		$pir .= "### post_store\n";
		$pir .= sub_meta($post_store, $mv, "post_s <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5840	5973	
==>%libs;

        # There should be at most a single group
        my $group = $class->{flags}{group}
          or next;
        ($group <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6051	6184	
==>%libs;

        # There should be at most a single group
        my $group = $class->{flags}{group}
          or next;
        ($group <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	21983	22085	
==>rammar.y"
{ return $_[1]; }
	],
	[#Rule 35
		 'charclass', 4,
sub
#line 164 "lib/Regex/Grammar.y"
{ ret <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	14653	14749	
==>ype that is also a struct is how
structs are nested.  Here, C<timeval> represents a time (seconds <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	198	290	
==>/Jako/Construct/Statement.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "u <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	1315	1431	
==>or) {
        print " (no) " if $verbose;
        $self->set_result('no');
        $conf->data->set(gccversion => und <==
3	/Users/nnunley/parrot/lib/Test/More.pm	29891	30041	
==>1} = "$e2";
            }

            my $type = _type($e1);
            $type = 'DIFFERENT' unless _type($e2) eq $type;

            if( $type eq 'DI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363417	363513	
==>=> "#line 292 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(inter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364320	364416	
==>=> "#line 292 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(inter <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3466	3605	
==>inkflags);
        }
    } elsif ($is_intel) {
        $conf->data->set(
            share_ext  => '.dll',
            load_ext   => '.dll', <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	2044	2171	
==>unicode:"dyadic:\u2228"]  = <<"END_PIR"             # or
    $I100 = %1
    $I101 = %2
    $I100 = or $I100, $I101
    %1 = $I10 <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8708	8793	
==>1,/* 11 */
FF,$b,$c,$d,$a,$_[15],22,0x895cd7be,/* 12 */
FF,$a,$b,$c,$d,$_[16],7,0x6b90 <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	31891	31993	
==>xt, and the prefix returned in the third element is an
empty string.

In a scalar context, just the ext <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439525	439613	
==>"#line 104 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440540	440628	
==>"#line 104 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\ <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	8084	8249	
==>ctuator

            s/^([\S]+)//
                and $parser->Error("lexer error $1.\n"),
                last;
        }
    }
}

sub _InitLexico {
    my <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15602	15726	
==>'result' => $result,
    );
    push @opcodes, new AssignOp( $parser,
        'result' => $result,
        'arg1'   => $n <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19355	19479	
==>'result' => $result,
    );
    push @opcodes, new AssignOp( $parser,
        'result' => $result,
        'arg1'   => $n <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1901	1997	
==>ier')) {
    my $left_sym = $block->find_symbol($left->value);
    $self->SYNTAX_ERROR("Expressio <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1859	1955	
==>ier')) {
    my $left_sym = $block->find_symbol($left->value);
    $self->SYNTAX_ERROR("Expressio <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1781	1877	
==>ier')) {
    my $left_sym = $block->find_symbol($left->value);
    $self->SYNTAX_ERROR("Expressio <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407715	408012	
==>"JUMP" => 0,
                  "NAME" => "connect",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408613	408910	
==>"JUMP" => 0,
                  "NAME" => "connect",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	3943	4044	
==>self->pos);

  my $token = $self->get;

  $self->file($token->file);
  $self->line($token->line);

  r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436498	436586	
==>s/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437513	437601	
==>s/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2096	2182	
==>\keepn\\sb90\\sa180\\f2\\fs#head1_halfpoint_size#\\ul{\n",
 '/head1'  => "\n}\\par}\n", <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	397	493	
==>(million operations per second) using
integer arithmetic.

Prints out:

=over 4

=item * the numb <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	393	489	
==>(million operations per second) using
integer arithmetic.

Prints out:

=over 4

=item * the numb <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2229	2315	
==>\keepn\\sb90\\sa180\\f2\\fs#head2_halfpoint_size#\\ul{\n",
 '/head2'  => "\n}\\par}\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818589	818771	
==>ART",
                  "NAME" => "restoreall",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	15860	15981	
==>put, $expected, $desc );
            $builder->diag("'$cmd' failed with exit code $exit_code")
                  if $exit_ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	18411	18532	
==>put, $expected, $desc );
            $builder->diag("'$cmd' failed with exit code $exit_code")
                  if $exit_ <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	19973	20086	
==>def {
    my ($include, $pmcs) = @_;

    my ($pmcfilename, $pmcname);
    my %groups;
    foreach $pmcfilename (k <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441554	441642	
==>"#line 109 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442569	442657	
==>"#line 109 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608298	608498	
==>,
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 473 \"src/ops/object.ops\"\n    {{\@1}} = VTABLE_get_attr(inter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54835	55010	
==>s/core.ops\"\n  {{\@1}} = interpinfo(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55595	55770	
==>s/core.ops\"\n  {{\@1}} = interpinfo(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576558	576813	
==>{{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577570	577825	
==>{{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Test/More.pm	26811	26926	
==>ted/;

    my $out = "Structures begin differing at:\n";
    foreach my $idx (0..$#vals) {
        my $val = $vals[$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644079	644333	
==>e->type_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644972	645226	
==>e->type_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16270	16380	
==>tifier->new($block, $token);

      $self->require_assign;

      my $left  = Jako::Construct::Expression::Valu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17041	17151	
==>tifier->new($block, $token);

      $self->require_assign;

      my $left  = Jako::Construct::Expression::Valu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17846	17956	
==>tifier->new($block, $token);

      $self->require_assign;

      my $left  = Jako::Construct::Expression::Valu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	4650	4806	
==>n->new(
        $file, $line, 'new', 'pmc', $1);
      $text = $2;
      next;
    }

    
    #
    # (Infix) Ops:
    #

    if ($text =~ m{^( \|= | &= | < <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	37704	37820	
==>_type paragraph as such because stack has no =for's\n";
            
          #} elsif(grep $_->[1]{'~resolve'}, @fo <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	32466	32568	
==>"'", '', "'");

	# Extract a single- or double- quoted substring from the
	# beginning of $text, option <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721702	721972	
==>UMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722730	723000	
==>UMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723759	724029	
==>UMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1108704	1108810	
==>ption(interpreter, NULL, NO_CLASS,\n                    \"Class '%Ss' not found\", readable_name(interprete <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630566	630664	
==>ption(interpreter, NULL, NO_CLASS,\n            \"Class '%Ss' not found\", readable_name(interprete <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631556	631654	
==>ption(interpreter, NULL, NO_CLASS,\n            \"Class '%Ss' not found\", readable_name(interprete <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	6422	6527	
==>/\.o$/;
	my $file;
	while(<NM>) {
	    chomp;
	    if (m/^(.+\.o):$/ || m/\[(.+\.o)\]:$/ || m/\((.+\.o)\): <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019825	1019916	
==>_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_localtime_r(&t, &tm);\n  Parrot_asctime_r(& <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020756	1020847	
==>_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_localtime_r(&t, &tm);\n  Parrot_asctime_r(& <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31364	31488	
==>rn1  = ();
    my $var1     = ${$vars}[0];
    my $nil      = BuildLiteral( $parser, 'nil', 'nil' );
    push @opcodes1, @ <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	1005	1112	
==>ke_re($type_re.'\s+'.$ident_re);
my $arglist_re = make_re('(?:'.$param_re.'(?:\s*,\s*'.$param_re.')*)?');
my <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	23493	23595	
==>);
      }
      DEBUG > 1 and print "Popping $curr_open->[-1][0] $curr_open->[-1][1]{'target'} because <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3397	3485	
==>.sysadminmag.com/tpj/issues/vol5_5/>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 200 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623535	623643	
==>}\n    else {\n\tsig = NULL;\n\tdest_pred = NULL;\n    }\n    lru = &mic->lru;\n    if (lru->u.signature == s <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	1059	1157	
==>tem C<--def>

=item C<-D>

List the defined symbols.

=item C<--file>

=item C<-f>

List the file(n <==
3	/Users/nnunley/parrot/lib/Test/More.pm	8448	8545	
==>( exists $brooklyn{tree}, 1, 'A tree grows in Brooklyn' );

This does not check if C<exists $brook <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	10644	10782	
==>e1_op';
            $extern = vtable_num($1);
            #print $op->full_name .": $jit_func $extern\n";
        }
        # *) $1 = $2->v <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13857	13954	
==>n
dim z as first
z.foo=13
print mine(foo,20,z)
print foo
print z.foo

' Should print 100, 103
type <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10777	10868	
==>tack_depth
goto pre_call_PLOOP_${CURIC}
PRE_CALL_PLOOP_END_${CURIC}:
PIR

    $pir .= _do_la <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	69308	69514	
==>",
                  "FLAGS" => "",
                  "ARGDIRS" => [],
                  "TYPE" => "function",
                  "CODE" => 92,
                  "ARGS" => [],
                  "BODY" => "#li <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7200	7298	
==>s1$="Mixed case"
print ucase$(s1$);" Upper"
print lcase$(s1$);" Lower"
a$="   Flush   "
print ">";l <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18929	19027	
==>s1$="Mixed case"
print ucase$(s1$);" Upper"
print lcase$(s1$);" Lower"
a$="   Flush   "
print ">";l <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32719	32815	
==>my ($self, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<gen_ret($type)>

Generate <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	17455	17552	
==>LE_$_:
LOOPUP
}
my $docounter=0;
sub parse_do {
	$docounter++;
	if ($syms[NEXT] eq "until" or $sym <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10044	10154	
==>{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Pop state $$stack[-1][0].\n";

			pop(@ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9596	9701	
==>{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Pop state $$stack[-1][0].\n";

			pop(@ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	405	492	
==>t>Parrot::I<Module>E<gt>> and C<FE<lt>I<file>E<gt>>, and using the
Parrot house-style pr <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20017	20121	
==>reedy_range {
    my ($self, $op, $R, $min, $max, $lastback) = @_;

    my ($rfail, $local_back, $back, $ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	34661	34758	
==>d of
("non-delimiter") bracket in the substring is ignored.

For example, given the string:

	$tex <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	688	806	
==>Usage:\n use Pod::Simple::Debug (NUMVAL)\nor"
                    . "\n use Pod::Simple::Debug (\\\$var, STARTNUMVAL)\n <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1165	1283	
==>Usage:\n use Pod::Simple::Debug (NUMVAL)\nor"
                    . "\n use Pod::Simple::Debug (\\\$var, STARTNUMVAL)\n <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	509	623	
==>Usage:\n use Pod::Simple::Debug (NUMVAL)\nor"
                . "\n use Pod::Simple::Debug (\\\$var, STARTNUMVAL)\n <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	409	506	
==>cription = 'Determining if your C compiler is actually gcc';

@args = qw(miniparrot verbose);

sub <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441575	441662	
==>math.ops\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}}) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442590	442677	
==>math.ops\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}}) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722198	722303	
==>ps\"\n  STRING * const s = {{\@2}};\n  PMC * const io = {{\@1}}; /* TODO Can this be localized? */\n  if ( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723227	723332	
==>ps\"\n  STRING * const s = {{\@2}};\n  PMC * const io = {{\@1}}; /* TODO Can this be localized? */\n  if ( <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	1235	1340	
==>_UPPERCASE
    $ret |= 0x0002 if $chr =~ /^[[:lower:]]$/;  # CCLASS_LOWERCASE
    $ret |= 0x0004 if $chr = <==
3	/Users/nnunley/parrot/config/auto/jit.pm	2247	2360	
==>is_working = (
	i386 => 1,
	ppc  => 1,	
	# all others are seriously b0rked
    );

    if (-e "$jitbase/$cpuarch/c <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2425	2523	
==>)!", $formal_arg_name) 
      unless defined $formal_arg_type;

    $self->INTERNAL_ERROR("Can't de <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2125	2223	
==>)!", $formal_arg_name) 
      unless defined $formal_arg_type;

    $self->INTERNAL_ERROR("Can't de <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	10981	11105	
==>fined $1 ? $1 : "";
	if ($c =~ /^(u|U)?'(.*)'/) {
	    my $u = defined $1 ? "u:" : "";
	    my $s = $2;
	    $c =~ s/.*/$u"$s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48490	48581	
==>BODY" => "#line 785 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49280	49371	
==>BODY" => "#line 785 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286937	287356	
==>",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 334,
                  "ARGS" => [
                              "i",
                              "p",
                              "p" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81162	81466	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compile",
                  "FLAGS" => "", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82055	82359	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compile",
                  "FLAGS" => "", <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22039	22134	
==>uct::Expression::Value->new($block, $self->require_value);
        $op    = $self->require_infix <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22972	23067	
==>uct::Expression::Value->new($block, $self->require_value);
        $op    = $self->require_infix <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24618	24713	
==>uct::Expression::Value->new($block, $self->require_value);
        $op    = $self->require_infix <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650690	650805	
==>\n    else if ({{\@2}} >= enum_first_type && {{\@2}} < enum_last_type)\n        {{\@1}} = 1;\n    else\n        {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651612	651727	
==>\n    else if ({{\@2}} >= enum_first_type && {{\@2}} < enum_last_type)\n        {{\@1}} = 1;\n    else\n        {{\@ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	12	94	
==>ot/languages/regex/lib/Regex/CodeGen/Re.pm 18978 2006-04-30T14:02:48.452322Z bernha <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2837	2972	
==>e,
    undef,           # No properties
    undef,           # No args
    $self->file,
    $self->line
  );

  $block->set_symbol($self <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088854	1088941	
==>line 186 \"src/ops/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089802	1089889	
==>line 186 \"src/ops/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	4681	4798	
==>");

    if ($self->type) {
      $compiler->emit("  .local " . $self->type . " __result");
      $compiler->emit("  _ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7113	7205	
==>($options{reject}) eq 'ARRAY' ? join('|', @{$options{reject}})
		    : defined($options{rejec <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24115	24207	
==>($options{reject}) eq 'ARRAY' ? join('|', @{$options{reject}})
		    : defined($options{rejec <==
3	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	1117	1230	
==>parrot_exit_code = Parrot::Test::run_command( $cmd, 
						    CD     => $self->{relpath},
						    STDOUT => $ou <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8756	8841	
==>* 12 */
FF,$a,$b,$c,$d,$_[16],7,0x6b901122,/* 13 */
FF,$d,$a,$b,$c,$_[17],12,0xfd98719 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38471	38647	
==>ARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39335	39511	
==>ARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i", <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	28912	29031	
==>ould be.

      DEBUG > 1 and print "Pondering non-magical $para_type\n";

      my $i;

      # Enforce some =headN dis <==
3	/Users/nnunley/parrot/config/auto/jit.pm	684	800	
==>ptions->get('miniparrot')) {
        $self->set_result('skipped');
        return $self;
    }

    my $verbose = $co <==
3	/Users/nnunley/parrot/config/gen/cpu.pm	596	712	
==>ptions->get('miniparrot')) {
        $self->set_result('skipped');
        return $self;
    }

    my $verbose = $co <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	1970	2078	
==>ns);

    my $length = length($pf->byte_code);

    # First instruction in bytecode must be the leader of a b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319479	319765	
==>( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320248	320534	
==>( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321018	321304	
==>( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563420	563717	
==>,
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 64 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564317	564614	
==>,
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 64 <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3307	3417	
==>edi");
#else
    opcode_t *cur_opcode = cur_op;
    char * _reg_base;
#endif

SWITCH_RELOAD:
    _reg_base = (c <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	9450	9572	
==>('goto', [ $next ]),
            $back => $self->dbprint("Unmatching $char\n"),
                     aop('increment', [ -1, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9027	9118	
==>\n\tinterpreter->resume_offset = fe->offset;\n        Parrot_switch_to_cs(interpreter, fe->s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10143	10234	
==>\n\tinterpreter->resume_offset = fe->offset;\n        Parrot_switch_to_cs(interpreter, fe->s <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	13896	13995	
==>Int $count, Str $reason?) returns Bool`

If for some reason a test is to be skipped, you can use thi <==
3	/Users/nnunley/parrot/lib/Test/More.pm	21398	21515	
==>=item B<TODO: BLOCK>

    TODO: {
        local $TODO = $why if $condition;

        ...normal testing code goes here. <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	6681	6780	
==>];
	$brack =~ tr/[({</])}>/;
	return $brack;
}

my $XMLNAME = q{[a-zA-Z_:][a-zA-Z0-9_:.-]*};

sub ex <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	45036	45129	
==>ructure, and walks that to generate the
output.

=head1 AUTHOR

Jeffrey Goff, drforr@hargray.c <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	72806	72909	
==>my $rule;
	foreach $rule ( values %{$self->{"rules"}} )
	{
		if ($rule->{"changed"})
		{
			$code .= $ru <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12746	12840	
==><lt>0x2fE<gt>>,
and C<EE<lt>057E<gt>>, all mean "/", whose Unicode number is 47.  If
the name h <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	16167	16261	
==>};

sub _match_quotelike($$$$)	# ($textref, $prepat, $allow_raw_match)
{
	my ($textref, $pre, $ <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	4782	4892	
==>for keys %cats;

  my %delete = map { $_->{filename} => 1 } @smokes;
  for(map { @$_ } values %cats) {
    next <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	849	1104	
==>terations:    $I4\n"; # print  "Iterations:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	849	1104	
==>terations:    $I4\n"; # print  "Iterations:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	2973	3070	
==>f the Makefile was built by 'config/inter/pmc.pm'

E_NOTE

    foreach my $pmc (split(/\s+/, $pmc_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2928	3028	
==>s($address)>

Returns the C code for C<restart ADDRESS($address)>.

=cut

sub restart_address
{
    m <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3797	3897	
==>s($address)>

Returns the C code for C<restart ADDRESS($address)>.

=cut

sub restart_address
{
    m <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3527	3627	
==>s($address)>

Returns the C code for C<restart ADDRESS($address)>.

=cut

sub restart_address
{
    m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478921	479153	
==>\t    \"Divide by zero\");\n  {{\@1}} = floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479813	480045	
==>\t    \"Divide by zero\");\n  {{\@1}} = floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	26353	26508	
==>DO test"
        );
    } else {
        warn $warning;
    }
}

package DB;

sub uplevel_args {
    my @foo = caller( 2 );
    return @DB::args;
}

1;

# v <==
3	/Users/nnunley/parrot/config/init/hints/netbsd.pm	74	181	
==>tbsd;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    my $ccflags = $conf->data->get('ccflags') <==
3	/Users/nnunley/parrot/lib/Test/More.pm	5909	6007	
==>the following print "ok" or "not ok" depending on if the test
succeeded or failed.  They all also r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78444	78863	
==>ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 100,
                  "ARGS" => [
                              "p",
                              "p",
                              "s"
                            ],
                  "BO <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26208	26311	
==>truction that needs it.
    my $pre_translate_code = "";
    if (grep { $rule->{'code'} eq $_ } @need_en <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	3764	3856	
==>linenum} += $parser->{lastlinenum} - $apparently;
	return 1;
}

package Parse::RecDescent::Co <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2698	2787	
==>le::PullParserStartToken->new( I<tagname>, I<attrhash> )
>>

=head1 SEE ALSO

L<Pod::Simpl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667547	667657	
==>"\n    {{\@1}}->vtable->push_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668321	668431	
==>"\n    {{\@1}}->vtable->push_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	6934	7033	
==>alue anyway; I think that'll only come in for
# situations like (R)*, which are silly anyway. Then a <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	27243	27347	
==>def };
sub describe_group { "group $_[3]" }
sub describe_rule { undef }

sub wrap {
    my ($self, $op, $ <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	7253	7382	
==>ad_flags        => '-shared ',
            ld_share_flags       => '-shared ',
            libparrot_ldflags    => $conf->data->ge <==
3	/Users/nnunley/parrot/config/auto/bc.pm	877	991	
==>2 bc is available on http://gnuwin32.sourceforge.net/
    my %bc_does_not_hang = (
        linux   => 1,
        MS <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15257	15355	
==>', 'set', [$return,$return.'[1]']);

  return $return;
}

sub _op_set_car_bang {
  my ($self, $node <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	6749	6890	
==>$code .= emit($1."_%0:", 'loop_num');
            next;
        }
        
        # rename locals (during declaration)
        if ($line =~ / <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	14101	14220	
==>}/mg;
                      $body =~ s/\bgoto\s+NEXT\(\)/{{+=$op_size}}/mg;
        $absolute ||= $body =~ s/\bgoto\s+AD <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	29659	29773	
==>DUP_TOPX
{
    my ($n, $c, $cmt) = @_;
    foreach (1..$n) {
	my $thing = $stack[-$n];
	push @stack, $thing;
    pr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	338127	338383	
==>=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getstdout",
                  "FLAGS <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28633	28735	
==>lf->{hashname}.'}=') . '$&;
		' . ($self->{"lookahead"} ? '$text = $_savetext;' : '' ) .'
';

	return $ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30711	30813	
==>lf->{hashname}.'}=') . '$&;
		' . ($self->{"lookahead"} ? '$text = $_savetext;' : '' ) .'
';

	return $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	639275	639377	
==>nterpreter, NULL, E_ValueError,\n            \"Empty signature with instantiate\");\n  }\n  switch (SIG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366989	367082	
==>ABLE_get_string(interpreter, {{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else { <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	4152	4248	
==>=$main::basic[$_];
		$line=~s/"/'/g;
		print CODE "\t\$P0[",$_+1,"]= \"$line\"\n";
	}
	print CODE <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9748	9867	
==>card invalid token ".&$ShowCurToken.".\n";

			$$token=$$value=undef;
		};

        $$errstatus=3;

		while(	  @$ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9310	9422	
==>card invalid token ".&$ShowCurToken.".\n";

			$$token=$$value=undef;
		};

        $$errstatus=3;

		while(	  @$ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	361	460	
==>::Literal;

use Carp;

use base qw(Jako::Construct::Expression::Value);

sub new
{
  my $class = shi <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	5428	5527	
==>t version info, a preamble for inclusion in C code,
    and an array of C<Parrot::Op> instances repr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321	416	
==>t version info, a preamble for inclusion in C code,
and an array of C<Parrot::Op> instances repr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834803	835010	
==>e",
                  "CODE" => 945,
                  "ARGS" => [
                              "sc"
                            ],
                  "BODY" => "#line 202 \"src/ops/stack.ops\"\n  stack_push( <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	15673	15799	
==>o}, $call_pkg ) if ( keys %extra );
            local *{ $call_pkg . '::TODO' } = \$extra{todo}
                if defined $ext <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	18224	18350	
==>o}, $call_pkg ) if ( keys %extra );
            local *{ $call_pkg . '::TODO' } = \$extra{todo}
                if defined $ext <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1177	1275	
==>not UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1205	1303	
==>not UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	877	975	
==>not UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344037	344213	
==>",
                              "s"
                            ],
                  "BODY" => "#line 148 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345279	345455	
==>",
                              "s"
                            ],
                  "BODY" => "#line 148 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5788	5888	
==>!<rx_match>{"$group"}->[1] = $value; # close group $group!;
    return @ops;
}

sub output_getstart { <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10610	10708	
==>'U', 'U', 'U', 'U', 'Th', 'ss',
'a', 'a', 'a', 'a', 'a', 'a', 'ae', 'c', 'e', 'e', 'e', 'e', 'i', ' <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	9337	9454	
==>h
cproj       complex.h
cprojf      complex.h
cprojl      complex.h
creal       complex.h
crealf      complex.h
creall <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6481	6593	
==>y pairs. When two are exchanged,
   ' force another pass by setting Exchange to TRUE.
   FOR I = 2 TO Max
      I <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16134	16246	
==>y pairs. When two are exchanged,
   ' force another pass by setting Exchange to TRUE.
   FOR I = 2 TO Max
      I <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72004	72368	
==>FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 96,
                  "ARGS" => [
                              " <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	2140	2249	
==>se;
        $self->set_result('no');
    }
    $conf->data->set(has_gdbm => $has_gdbm); # for gdbmhash.t and d <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11673	11781	
==>_[4];

    # Rewrite method body
    my $supertype = "enum_class_$super";
    die "$class defines unknown vta <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	841	970	
==>t to
    # the tcl binary.

    # There are basically 3 choices: run in one of:
    #  languages
    #  languages/tcl
    #  langu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122025	122124	
==>nough to kill.\n   * it's just casting a signed integral to the equivalent unsigned.\n   */\n  LVALU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122937	123036	
==>nough to kill.\n   * it's just casting a signed integral to the equivalent unsigned.\n   */\n  LVALU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544291	544399	
==>= a, saved_var2 = b; \n\n if(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545627	545735	
==>= a, saved_var2 = b; \n\n if(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546963	547071	
==>= a, saved_var2 = b; \n\n if(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	251001	251251	
==>UMP" => 0,
                  "NAME" => "not",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	2282	2391	
==>ple::Methody);
     sub start_L { print Dumper($_[1]{'section'} ) }
     __PACKAGE__->new->parse_string_docume <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22367	22500	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "invo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23225	23358	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "invo <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	832	948	
==>ormat is:

    op opname (args) :class,flags {
        ... body of function ...
    }

There may be more than one C<r <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	5350	5460	
==>$file_escaped = $file;
        $file_escaped =~ s|(\\)|$1$1|g; # escape backslashes
        return qq{#line $li <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	13109	13208	
==>$ac$pir_args)";
				push @work, [ "result of $extern()", "RESULT",  "\$$optype$retcount"];
				$retc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	489857	490114	
==>,
                  "TYPE" => "inline",
                  "CODE" => 561,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 517 \"src/ops/math.o <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6762	6866	
==>he browser thinks it should
	# download the file.
	
	if ( $self->has_suffix )
	{
		return 0 if $self->suf <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	2210	2310	
==>5;

$VERSION = sprintf "%d.%d", q$Revision: 19607 $ =~ /(\d+)/g; # jhi@iki.fi;

my $ME = basename($0) <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	101	200	
==>rict;

my $fail_label = Regex::Ops::Tree::mark('FAIL');

sub init_context {
    my ($self, $ctx) = @ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	102	201	
==>rict;

my $fail_label = Regex::Ops::Tree::mark('FAIL');

sub init_context {
    my ($self, $ctx) = @ <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	4457	4553	
==>tribute="String" lineEndContext="#pop">
          <RegExpr attribute="String" context="#stay" Str <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3317	3412	
==>ubnodes...> ]>


=head1 SEE ALSO

L<Pod::Simple>

L<perllol>

L<The "Tree" subsubsection in XML: <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	6468	6556	
==>svcrt -lmoldname -lkernel32 -luser32 -lgdi32 -lwinspool -lcomdlg32 -ladvapi32 -lshell32 - <==
3	/Users/nnunley/parrot/config/init/hints/msys.pm	359	447	
==>svcrt -lmoldname -lkernel32 -luser32 -lgdi32 -lwinspool -lcomdlg32 -ladvapi32 -lshell32 - <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	7199	7327	
==>bel_indices($code)) {
            $AMDEST{$_->{label}} = 1;
        }
    }
    foreach (@output4) {
        delete $_->{label} i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035734	1035830	
==>ter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    {{\@1}} = resu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036898	1036994	
==>ter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    {{\@1}} = resu <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	5123	5240	
==>file;

    $self->{FILE} .= $file . ', ';

    my $orig = $file;

    open my $OPS, '<', $file or die "Can't open $fil <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	3532	3645	
==>);
    foreach (@methods) {
        if ($classes{$_->{'class'}}) {
            push @{$classes{$_->{'class'}}}, $_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1268	1406	
==>nk.
        $compiler->outdent;
        $compiler->emit(".end");

        $last_seen = 'sub';
      }
    }
    else {
      if ($last_seen <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	704	817	
==>heir indices.

=cut

sub label_indices {
    my ($self, $op) = @_;
    my @indices;
    for my $i (0..$#{ $op->{ar <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	2962	3069	
==>ibility of running of the end) are
# returned. If a count is not given, 1 is inferred.
#

sub get
{
  my $se <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92571	92901	
==>\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90863	91171	
==>\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91717	92025	
==>\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band" <==
3	/Users/nnunley/parrot/lib/Test/More.pm	29158	29279	
==>warnings when comparing undefs.
        local $^W = 0; 

        $Test->_unoverload(\$e1, \$e2);

        # Either they're <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	3437	3548	
==>),
            $self->new_item('', 'tools/util/smokeserv-README.pod'),
        ),
        $self->new_group('Poss <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	31015	31116	
==>"|", "/", etc,
# and before E<...> codes are expanded.


# For L<...> codes without a "name|" part, on <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8606	8691	
==>],7,0x698098d8,/* 9 */
FF,$d,$a,$b,$c,$_[13],12,0x8b44f7af,/* 10 */
FF,$c,$d,$a,$b,$_[ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	15908	16027	
==>d.
    # TODO: Should we really be allowing the shift constant to be negative?
    #

    if ($token->is_ident
      and <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10931	11036	
==>pmc = $self->_save_1 ('P');
    $self->_morph ($pmc, $temp);
    $self->_restore ($temp);
    $temp = $pmc <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1003	1107	
==>bit archs.
  my $MSK = ((1 << 16) << 16) ? ' & ' . MAX : '';
#	FF => "X0=rotate_left(((X1&X2)|(~X1&X3))+X <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447319	447583	
==>AME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	448141	448405	
==>AME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449627	449891	
==>AME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
3	/Users/nnunley/parrot/config/inter/lex.pm	328	423	
==>w( $description @args $prompt $util );

use base qw(Parrot::Configure::Step::Base);

use Parrot: <==
3	/Users/nnunley/parrot/config/inter/make.pm	322	417	
==>w( $description @args $prompt $util );

use base qw(Parrot::Configure::Step::Base);

use Parrot: <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	323	418	
==>w( $description @args $prompt $util );

use base qw(Parrot::Configure::Step::Base);

use Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10946	11052	
==>n if the delete fails.

=cut

sub delete
{
    # Use $_[0] so that we can undef the instance in SUPER::dele <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4780	4886	
==>n if the delete fails.

=cut

sub delete
{
    # Use $_[0] so that we can undef the instance in SUPER::dele <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	821441	821681	
==>>user_stack);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
3	/Users/nnunley/parrot/config/init/defaults.pm	3398	3520	
==>amically loadable module extension
        load_ext => ".$Config{so}",
        a        => $Config{_a},        # library or <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	3616	3727	
==>e =~ s/\+/_plus_/;
	## print STDERR "Op: '$opcode'\n";
	if ($line) {
	    $source = $source[$line-1];
	    if ($ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	1628	1753	
==>less {
        TEXT => $text,
        CONTENTS => \@contents,
    }, $self;

    return $self;
}


=back

=head2 Instance Meth <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	4730	4843	
==>else {  # program output from import - really ugly
	push @code, [0,0, undef, 0, $l, ''];
	return;
    }
    push @ <==
3	/Users/nnunley/parrot/languages/regex/test.pl	366	459	
==>still probably unix-only, because the parrot binary
# will have different names
my $PARROT_EXE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953731	953906	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954521	954696	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569331	569585	
==>table->isa(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570224	570478	
==>table->isa(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	3580	3685	
==>f = shift;
    my $cout = "";
    $cout .= <<"EOC";
#define PARROT_IN_EXTENSION
#include "parrot/parrot.h" <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	47575	47673	
==>rtcode($code);
		}
		elsif ($grammar =~ m/(?=$IMPLICITSUBRULE)/gco
			and do { ($code) = extract_co <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17799	17893	
==>', 'branch',["NEXT_$label"]);
  # XXX Use exceptions here
  $self->_add_inst ("ERR_$label", 'pr <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	1170	1263	
==>de_handler = $self->{'code_handler'};
  my $cut_handler  = $self->{'cut_handler'};
  $self->{' <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1457	1557	
==>PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = "$register_num"
${STEMP0} = concat <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1984	2084	
==>PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = "$register_num"
${STEMP0} = concat <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3167	3267	
==>PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = "$register_num"
${STEMP0} = concat <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1436	1535	
==>nlikely to ever need to construct an object of this class for
yourself, but if you want to, call
C<< <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2588	2687	
==>nlikely to ever need to construct an object of this class for
yourself, but if you want to, call
C<< <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1725	1824	
==>nlikely to ever need to construct an object of this class for
yourself, but if you want to, call
C<< <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	933462	933687	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934236	934461	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	935011	935236	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630685	630953	
==>@1}} = pmc_new(interpreter, type);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631675	631943	
==>@1}} = pmc_new(interpreter, type);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629698	629964	
==>@1}} = pmc_new(interpreter, type);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	31335	31445	
==>ion_Handler, $targ $cmt
	set_eh $eh
EOC
}
sub POP_BLOCK
{
    my ($n, $c, $cmt) = @_;
    if (@loops) {
	my $pc <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1451	1547	
==>sub start_head2 {  $_[0]{'Thispara'} = '' }
sub start_head3 {  $_[0]{'Thispara'} = '' }
sub start <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	981	1077	
==>sub start_head2 {  $_[0]{'Thispara'} = '' }
sub start_head3 {  $_[0]{'Thispara'} = '' }
sub start <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	11250	11380	
==>mble_ref},
            "t_$temp_num = (short)GET_NCI_I($reg_num);";
        return "t_$temp_num";
    };
    /c/ && do {
        pu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2591	2699	
==>l in the
  # IDENT entry within the block.
  #

  $sym = Jako::Symbol->new( # TODO: Just point at the Declara <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	67299	67419	
==>ules"}{$name}->expected }
				$item = new Parse::RecDescent::Subrule($name,
								       $lookahead,
								       $li <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853321	853411	
==>DY" => "#line 100 \"src/ops/string.ops\"\n  {{\@1}} = string_append(interpreter, {{\@1}}, { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854103	854193	
==>DY" => "#line 100 \"src/ops/string.ops\"\n  {{\@1}} = string_append(interpreter, {{\@1}}, { <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	945	1056	
==>f);

  return $self;
}

sub left  { return shift->{LEFT};  }
sub right { return shift->{RIGHT}; }


#
# compile( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	953	1064	
==>f);

  return $self;
}

sub left  { return shift->{LEFT};  }
sub right { return shift->{RIGHT}; }


#
# compile( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	6394	6504	
==>mt (reverse @output3) {
	$stmt->{next} = $next;
	$next = $stmt;
    }

    # Eliminate gotos to the following a <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	11003	11118	
==>$got || !defined $expect ) {
        # undef only matches undef and nothing else
        my $test = !defined $got && <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	11421	11536	
==>$got || !defined $expect ) {
        # undef only matches undef and nothing else
        my $test = !defined $got && <==
3	/Users/nnunley/parrot/tools/build/vtable_extend.pl	3019	3118	
==>d1 HISTORY

Initial version by Dan Sugalski.

=cut

*/

/*
 * Local variables:
 * c-indentation-styl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200014	200117	
==>Y" => "#line 373 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200911	201014	
==>Y" => "#line 373 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201808	201911	
==>Y" => "#line 373 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	455	566	
==>_handle_element_start {
  # ($self, $element_name, $attr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $valu <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	454	565	
==>_handle_element_start {
  # ($self, $element_name, $attr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $valu <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	649	760	
==>_handle_element_start {
  # ($self, $element_name, $attr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $valu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57895	58117	
==>\@1}} = interpinfo_s(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58657	58879	
==>\@1}} = interpinfo_s(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Test/More.pm	4359	4487	
==>y $idx = 0;
    my @cleaned_plan;
    while( $idx <= $#plan ) {
        my $item = $plan[$idx];

        if( $item eq 'no_diag' ) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873878	874177	
==>ine",
                  "CODE" => 991,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	514	602	
==>) not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Identifier ( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	514	602	
==>) not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Identifier ( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	4302	4442	
==>ildren == 0) {
            # Nothing left, so the original alternation disappears
            return $opt;
        }

        # Something lef <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	6923	7052	
==>, scalar(@to_unget),
           " tokens as \"$name\".\n";
        } else {
          print $fh "<a\n>";  # Yes, an 'a' element wi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157984	158281	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 191, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	2346	2467	
==>s('exfix-arith');   }
sub is_goto          { return shift->is('goto');          }
sub is_ident         { return shift->is( <==
3	/Users/nnunley/parrot/Configure.pl	2133	2229	
==>=(lexer)>

Specify which lexer to use.

=item C<--yacc=(parser)>

Specify which parser to use.

= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574798	575031	
==>num_class_ParrotClass, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575602	575835	
==>num_class_ParrotClass, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2993	3088	
==>S0 = _READLINE($filedesc)
	\$P99 = _SPLITLINE(\$S0,$sf)
	\$I0= \$P99
INP1

	# Bug here...FIXME.. <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	76	189	
==>proto, %options) = @_;
    my $self = bless \%options, (ref($proto) || $proto);
    $self->init();
    return $sel <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	243	356	
==>proto, %options) = @_;
    my $self = bless \%options, (ref($proto) || $proto);
    $self->init();
    return $sel <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	584	697	
==>proto, %options) = @_;
    my $self = bless \%options, (ref($proto) || $proto);
    $self->init();
    return $sel <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	538636	538836	
==>RGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 982 \"src/ops/math.ops\"\n  {{\@1}} = tan((FLOATVAL){{\@ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7980	8116	
==>stack,-$len,$len);

                $$check eq 'ACCEPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Accept <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7622	7752	
==>stack,-$len,$len);

                $$check eq 'ACCEPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Accept <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611193	611450	
==>set_attr(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612096	612353	
==>set_attr(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	12772	12896	
==>path;
        }

        return $prog if $path;
    }

    return;
}

=item C<_slurp($filename)>

Slurps C<$filename> into me <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7590	7748	
==>\"#$indent$2\" because it is inside of " . (join ' > ', @stack) . ")\n")
            }

            pop @stack;

            next;
        }

        next unle <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61641	61764	
==>ULE)/gco
				and do { ($code) = extract_bracketed($grammar,'<');
					 $code
				       }
		       or $grammar =~ m/$SUBRULE <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	8371	8470	
==>($this->[0] eq 'not' and $this->[1] ne "STRING") {
			push(@expr, [ "0.0", "INT"],   # Cheating, mak <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293350	293490	
==>"
                            ],
                  "BODY" => "#line 945 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294226	294366	
==>"
                            ],
                  "BODY" => "#line 945 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295102	295242	
==>"
                            ],
                  "BODY" => "#line 945 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, { <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27701	27800	
==>sep=$1 and ""/e and '
		. ($check->{itempos}? 'do {'.Parse::RecDescent::Production::incitempos().' 1 <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29811	29910	
==>sep=$1 and ""/e and '
		. ($check->{itempos}? 'do {'.Parse::RecDescent::Production::incitempos().' 1 <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31908	32007	
==>sep=$1 and ""/e and '
		. ($check->{itempos}? 'do {'.Parse::RecDescent::Production::incitempos().' 1 <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	10440	10541	
==>y C<struct>.

The I<ELEMENT_LIST> has the form

    NAME => TYPE, ...

Each name-type pair declares on <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035656	1035746	
==>nterpreter, lex_pad, lex_name);\n    if (!result) {\n\treal_exception(interpreter, NULL, LE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036820	1036910	
==>nterpreter, lex_pad, lex_name);\n    if (!result) {\n\treal_exception(interpreter, NULL, LE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9180	9403	
==>ter->resume_flag = 2;\n    {{=0}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10296	10519	
==>ter->resume_flag = 2;\n    {{=0}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	5517	5650	
==>ion') ? "[$1]" :
        m[^lib/]          ? '[devel]' :
        m[^runtime/]      ? '[library]' :
        m[^tools/docs/]   ? '[devel <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6231	6344	
==>shift->require('semicolon');     }
sub require_type          { return shift->require('type');          }

sub requ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786140	786227	
==>s\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed_int(interpreter, {{\@2}}, {{\@3}}) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787051	787138	
==>s\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed_int(interpreter, {{\@2}}, {{\@3}}) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244006	244262	
==>@1}} = string_compare(interpreter, l, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244938	245194	
==>@1}} = string_compare(interpreter, l, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	32323	32436	
==>=> 100,
			'functioncall' => 31,
			'explist1' => 158,
			'function' => 26,
			'tableconstructor' => 32,
			' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	2391	2507	
==>r, $val) = @_;
    return "set $var, $val";
}

sub output_if {
    my $self = shift;
    my ($a, $cond, $b, $where) = <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3908	4017	
==>);
        $prm=unpack('@2A*',$prm);
		$$outhash{$prm}=$value;
	}
	for (@$mandatory) {
			exists($$outhas <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3711	3815	
==>);
        $prm=unpack('@2A*',$prm);
		$$outhash{$prm}=$value;
	}
	for (@$mandatory) {
			exists($$outhas <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	2346	2462	
==>erEndToken';

  DEBUG > 1 and print "New pullparser object: $self\n";

  return $self;
}

# ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ <==
3	/Users/nnunley/parrot/Configure.pl	2931	3025	
==>em C<--gc=(type)>

Determine the type of garbage collection. The value for C<type> should be on <==
3	/Users/nnunley/parrot/tools/util/pirtidy.pl	1135	1231	
==>use a maximal amount of
syntactic sugar.

Inspired by perltidy.

=head1 EXAMPLES

 perl pirtidy.p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100969	101136	
==>> [
                              "s"
                            ],
                  "BODY" => "#line 125 \"src/ops/bit.ops\"\n  string_bitwise_not(interpreter, {{\@1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753557	753641	
==>line 261 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754345	754429	
==>line 261 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	691	798	
==>t is charclass, advance 1" ],

    [ "start(n)" => "mark start of n-th paren match" ],
    [ "end(n)" => "ma <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4940	5046	
==>t *cur_opcode asm ("esi") = cur_op;
#else
    opcode_t *cur_opcode = cur_op;
#endif

    static void *const <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	2656	2748	
==>ebug (\$x, I<somenum>)> mode will make
Pod::Simple (et al) run rather slower, since &Pod::Sim <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2340	2438	
==>->type;
    }

    $self->INTERNAL_ERROR("Can't determine type of formal argument (%s)!", $formal_a <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2040	2138	
==>->type;
    }

    $self->INTERNAL_ERROR("Can't determine type of formal argument (%s)!", $formal_a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560598	560692	
==>{^+3}};\n\n  object = {{\@1}};\n  method_pmc = {{\@2}};\n  interpreter->current_cont = CONTEXT( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105633	105925	
==>@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	106371	106663	
==>@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  " <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	12596	12722	
==>DEFAULT => -6
	},
	{#State 8
		DEFAULT => -1
	},
	{#State 9
		ACTIONS => {
			"(" => 10,
			'CHAR' => 4,
			"<" => 3,
			"[" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91461	91713	
==>> 113,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 43 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} & <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8858	8948	
==>pecified path taken
relative to the directory.

=cut

sub path_for_directory_with_relative_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948304	948579	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949103	949378	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/Configure.pl	3785	3880	
==>ders='/home/lt/icu/'

=back

Other Options

=over

=item C<--maintainer>

Use this option if you <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8259	8344	
==>[4],7,0xd76aa478,/* 1 */
FF,$d,$a,$b,$c,$_[5],12,0xe8c7b756,/* 2 */
FF,$c,$d,$a,$b,$_[ <==
3	/Users/nnunley/parrot/config/gen/platform.pm	757	866	
==>atform = "win32" if $platform =~ /^msys/;
    $platform = "win32" if $platform =~ /^mingw/;
    $platform =~ s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218822	218916	
==>nterpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) > 0) {\n    {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219801	219895	
==>nterpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) > 0) {\n    {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4549	4651	
==>ix)>

Returns the C code for the ops address declaration.

=cut

sub ops_addr_decl
{
    my ($self, $bs <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	3099	3203	
==>ount) = @_;

  $offset = 0 unless defined $offset;

  my $pos = $self->pos;

  $self->INTERNAL_ERROR("Pos <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5630	5733	
==>REG}
${INS} = concat "\n"
PIR
	}

	return $pir;
}

# Pre and post store operation hooks.
sub pre_store($ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4472	4575	
==>REG}
${INS} = concat "\n"
PIR
	}

	return $pir;
}

# Pre and post store operation hooks.
sub pre_store($ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6846	6991	
==>covery.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push(@$stack,[ $act, $$value ]);

					$$token ne ''	#Don't eat th <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6529	6666	
==>covery.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push(@$stack,[ $act, $$value ]);

					$$token ne ''	#Don't eat th <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	324	416	
==>one or
more, grouped or ungrouped items.

C<Parrot::Docs::Section> is a subclass of C<Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47036	47206	
==>rp_debug_CLEAR(interpreter, PARROT_ALL_DEBUG_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47819	47989	
==>rp_debug_CLEAR(interpreter, PARROT_ALL_DEBUG_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950387	950555	
==>s",
                              "i"
                            ],
                  "BODY" => "#line 540 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(in <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	16461	16564	
==>tes the item!!
  my($self, $para) = @_;
  return $para->[1]{'~type'} if $para->[1]{'~type'};


  # Other <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471028	471202	
==>",
                              "i"
                            ],
                  "BODY" => "#line 394 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472015	472189	
==>",
                              "i"
                            ],
                  "BODY" => "#line 394 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16255	16359	
==>on::Value::Identifier->new($block, $token);

      $self->require_assign;

      my $left  = Jako::Constr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17026	17130	
==>on::Value::Identifier->new($block, $token);

      $self->require_assign;

      my $left  = Jako::Constr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17831	17935	
==>on::Value::Identifier->new($block, $token);

      $self->require_assign;

      my $left  = Jako::Constr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570613	571051	
==>,
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 652,
                  "ARGS" => [
                              "i",
                              "p",
                              "k"
                            ],
                  "BO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947172	947401	
==>charset '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948074	948303	
==>charset '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52353	52544	
==>67,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 815 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_se <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033351	1033441	
==>x_name, ctx);\n    if (PMC_IS_NULL(lex_pad)) {\n\treal_exception(interpreter, NULL, LEX_NOT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034449	1034539	
==>x_name, ctx);\n    if (PMC_IS_NULL(lex_pad)) {\n\treal_exception(interpreter, NULL, LEX_NOT <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2345	2448	
==>RING;
	# Sharing $stype $var with main  (array=$array)
	P0= P10[0]
	P1= P0["$stype"]
	P0= P1["$var"]	# P <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2572	2675	
==>RING;
	# Sharing $stype $var with main  (array=$array)
	P0= P10[0]
	P1= P0["$stype"]
	P0= P1["$var"]	# P <==
3	/Users/nnunley/parrot/lib/Test/More.pm	14907	15006	
==>ork out
that way.  So here we have ways for you to write your own diagnostic
messages which are safe <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5679	5769	
==>, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method_info_from_token(${ASSEMBLY}, ${ARG0})

# If the <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7899	7989	
==>, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method_info_from_token(${ASSEMBLY}, ${ARG0})

# If the <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557168	557304	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmeth <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558551	558687	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmeth <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559935	560071	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmeth <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1306	1411	
==>andard edition compiler' warning each time we compile.
        # The logo gets printed to STDERR; hence th <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	898	986	
==>define IREG(i) REG_INT(cur_opcode[i])
#define NREG(i) REG_NUM(cur_opcode[i])
#define PREG <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1014	1102	
==>define IREG(i) REG_INT(cur_opcode[i])
#define NREG(i) REG_NUM(cur_opcode[i])
#define PREG <==
3	/Users/nnunley/parrot/languages/dotnet/tools/benchmark.pl	267	379	
==>`nmake class-library`;
		my $end = time;
		my $diff = $end - $start;
		push @times, $diff;
		print "$diff (S: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106325	1106416	
==>LL, E_ValueError,\n\t\t\"type number out of range\");\n    {{\@1}} = interpreter->vtables[ty <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107301	1107392	
==>LL, E_ValueError,\n\t\t\"type number out of range\");\n    {{\@1}} = interpreter->vtables[ty <==
3	/Users/nnunley/parrot/lib/Test/More.pm	24041	24137	
==>ke fork() or symlinks), or maybe
you need an Internet connection and one isn't available.

B<If i <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	289	380	
==>n of the F<examples/mops/mops.pasm> example program,
for speed comparisons.

Calculates a va <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	285	376	
==>n of the F<examples/mops/mops.pasm> example program,
for speed comparisons.

Calculates a va <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4804	4901	
==>ols visible from this block, including those
from the symbol tables of parent blocks.

=cut

sub d <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	13084	13180	
==><<'END';
{\rtf1\ansi\deff0

END
}

sub color_table {
   return <<'END';
{\colortbl;\red255\green0 <==
3	/Users/nnunley/parrot/lib/Test/More.pm	2527	2622	
==>rovide a wide range of testing
utilities.  Various ways to say "ok" with better diagnostics,
fac <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	746	855	
==>e 1
# O (start, n) : mark start of n-th paren match
# O (end, n) : mark end of n-th paren match
# O (goto, lab <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	2535	2633	
==>my $prefix = $loop_block->prefix;
  my $suffix = $block_types{'while'}{uc $kind};

  my $label = "$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605861	605950	
==>"BODY" => "#line 441 \"src/ops/object.ops\"\n    Parrot_add_attribute(interpreter, {{\@1}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606652	606741	
==>"BODY" => "#line 441 \"src/ops/object.ops\"\n    Parrot_add_attribute(interpreter, {{\@1}} <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	8420	8524	
==>method->{type};
    my $meth= $method->{meth};
    my $args= $method->{parameters};
    $args = ", $args" <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	297	398	
==>$_[0][1] = $_[1]) : $_[0][1] }

sub text_r { \ $_[0][1] }

1;

__END__

=head1 NAME

Pod::Simple::Pull <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	1110	1203	
==>s = qw(int float string);
my $parrot_pmcsh_file = "include/parrot/core_pmcs.h";
my $date = loc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210321	210584	
==>r, {{\@1}}), {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211301	211564	
==>r, {{\@1}}), {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9380	9494	
==>ooks.
sub pre_call {
    my $self = shift;
    my $pir = <<'PIR';
# See if we've got a return or something to call. <==
3	/Users/nnunley/parrot/config/init/hints/linux.pm	1534	1711	
==>1,              # XXX fake a header entry
        linkflags      => $linkflags,
        link           => $link,
        rpath          => '-Wl,-rpath=',

        has_dynamic_lin <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	3716	3807	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
# Pull in some functions that, for some reason, I exp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227438	227701	
==>r, {{\@1}}), {{\@2}}) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228418	228681	
==>r, {{\@1}}), {{\@2}}) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	545	656	
==>pmap point pos
		    right$ rnd rtrim$
		    sadd screen seek setmem sgn sin spc sqr
			stick str$ strig string$ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7104	7195	
==>PIR'
inc stack_depth 
${DEST0} = "$"
${STEMP0} = ${LOADTYPE}["reg_type_short"]
${DEST0} = co <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4926	5017	
==>PIR'
inc stack_depth 
${DEST0} = "$"
${STEMP0} = ${LOADTYPE}["reg_type_short"]
${DEST0} = co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989574	989954	
==>i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1108,
                  "ARGS" => [
                              "i",
                              "ic",
                              "sc",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#lin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809718	809975	
==>->get_string_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810623	810880	
==>->get_string_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37546	37644	
==>texpected = ' . ($rule->hasleftmost($self) ? 'q{}'
				: 'q{'.$self->describe.'}' ) . ';
		$Parse:: <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39949	40047	
==>texpected = ' . ($rule->hasleftmost($self) ? 'q{}'
				: 'q{'.$self->describe.'}' ) . ';
		$Parse:: <==
3	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	1406	1504	
==>_fingerprint (void *cursor)
{
    return memcmp (cursor, fingerprint, $len) == 0;
}

size_t
PackFil <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	251778	252137	
==>" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 293,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 708 \"sr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653404	653502	
==>preter, {{\@2}}, {{\@3}});\n    if (!{{\@1}} || !VTABLE_defined(interpreter, {{\@1}}))\n        rea <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654565	654663	
==>preter, {{\@2}}, {{\@3}});\n    if (!{{\@1}} || !VTABLE_defined(interpreter, {{\@1}}))\n        rea <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	8232	8334	
==>ind opening tag: /$ldel/", pos $$textref;
		goto failed;
	}

	$textpos = pos($$textref);

	if (!defined <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	29221	29316	
==>sub _op_char_ci_lt_p {
}

sub _op_char_ci_gt_p {
}

sub _op_char_ci_le_p {
}

sub _op_char_ci_ge <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1879	1986	
==>er even if the program they provided appears to be
    # broken
    if ($ret == -1 and !$conf->options->get( <==
3	/Users/nnunley/parrot/config/inter/make.pm	1753	1860	
==>er even if the program they provided appears to be
    # broken
    if ($ret == -1 and !$conf->options->get( <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1893	2000	
==>er even if the program they provided appears to be
    # broken
    if ($ret == -1 and !$conf->options->get( <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	22073	22192	
==>2; $i < @$treelet; ++$i) { # iterate over children
      next unless ref $treelet->[$i];  # text nodes are uninteresting <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	28359	28478	
==>2; $i < @$treelet; ++$i) { # iterate over children
      next unless ref $treelet->[$i];  # text nodes are uninteresting <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	41816	41935	
==>2; $i < @$treelet; ++$i) { # iterate over children
      next unless ref $treelet->[$i];  # text nodes are uninteresting <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15398	15522	
==>@expr=get_expression(%opts);	# Get expression tokens
		$whole.=join(' ', map { $_->[0] } @expr);
		@expr=fixup(@expr);		# Rep <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15760	15884	
==>@expr=get_expression(%opts);	# Get expression tokens
		$whole.=join(' ', map { $_->[0] } @expr);
		@expr=fixup(@expr);		# Rep <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16911	17035	
==>@expr=get_expression(%opts);	# Get expression tokens
		$whole.=join(' ', map { $_->[0] } @expr);
		@expr=fixup(@expr);		# Rep <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2882	2976	
==>ler) foreach $self->content;
  $handler->end_element({ Name => 'block' });

  $handler->end_ele <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2764	2858	
==>ler) foreach $self->content;
  $handler->end_element({ Name => 'block' });

  $handler->end_ele <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	11454	11544	
==>goto " . $self->output_label_use($L_trymatch) . "} else { goto " . $self->output_label_use( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	27371	27475	
==>eturn ($back, @ops) unless $self->{DEBUG};

    my $method = "describe_" . $op->{name};
    my $desc = $o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033349	1033438	
==>lex_name, ctx);\n    if (PMC_IS_NULL(lex_pad)) {\n\treal_exception(interpreter, NULL, LEX_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034447	1034536	
==>lex_name, ctx);\n    if (PMC_IS_NULL(lex_pad)) {\n\treal_exception(interpreter, NULL, LEX_ <==
3	/Users/nnunley/parrot/config/auto/python.pm	561	671	
==>unstep
{
    my ($self, $conf) = @_;

    my ($out, $err) = capture_output('python', '-V');
    my $output = jo <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	24078	24186	
==>= "I_ARG_$arg_num";
		}

		# int16
		elsif (/^int16$/) {
			$out =  "    \${I_ARG_$arg_num} = bc.read_int16() <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15880	16023	
==>r,
        'result' => [$result],
        'arg1'   => $fct,
        'arg2'   => [$argv],
    );
    return [ $result, \@opcodes ];
}

su <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8594	8675	
==>ER"
data "DAMAGES","DESTRUCT","DOCK","IDLE","IMPULSE","LRSCAN","NAVIGATE","PHASERS <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21458	21539	
==>ER"
data "DAMAGES","DESTRUCT","DOCK","IDLE","IMPULSE","LRSCAN","NAVIGATE","PHASERS <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6939	7110	
==>$act, $$value ]);

					$$token ne ''	#Don't eat the eof
				and	$$token=$$value=undef;
                next;
            };

            #reduce
            my($lh <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6616	6779	
==>$act, $$value ]);

					$$token ne ''	#Don't eat the eof
				and	$$token=$$value=undef;
                next;
            };

            #reduce
            my($lh <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	5506	5643	
==>my $args;
    my @args;
    my @argdirs;
    my $seen_pod;
    my $seen_op;
    my $line;
    my $flags;
    my @labels;

    while (<$OPS <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2360	2472	
==>ble %s.", $right->value) unless $right_sym;
    $right_type = $right_sym->type;
  }
  else {
    $right_type = $r <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2318	2430	
==>ble %s.", $right->value) unless $right_sym;
    $right_type = $right_sym->type;
  }
  else {
    $right_type = $r <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2240	2352	
==>ble %s.", $right->value) unless $right_sym;
    $right_type = $right_sym->type;
  }
  else {
    $right_type = $r <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	5916	6042	
==>params; ++$i) {
	    my $p = $params[$i];
	    print <<EOC;
	$p = find_lex -1, $i
EOC
	}
    }
    # XXX classes are store in t <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	50241	50367	
==>age[-1] }, '' if 2 == @{ $lineage[-1] };
      # Keep the element from being childless
      
      pop @stack;
      pop @line <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	21425	21535	
==>OC;
	$res = $op $lp, $rp $cmt$isnot
EOC
	}
	print <<EOC;
	$pres = new .Boolean
	$pres = $res # ugly
EOC
	push @ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4567	4691	
==>e_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If the destination is not going to be a register, t <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	164	261	
==>/mops/mops.c - Calculate M ops/s

=head1 SYNOPSIS

    % perl examples/mops/mops.pl

=head1 DESCRI <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	160	257	
==>/mops/mops.c - Calculate M ops/s

=head1 SYNOPSIS

    % perl examples/mops/mops.pl

=head1 DESCRI <==
3	/Users/nnunley/parrot/Configure.pl	9244	9358	
==>to::sizes
    auto::byteorder
    auto::va_ptr
    auto::pack
    auto::format
    auto::isreg
    auto::jit
    ge <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1080	1180	
==>dent");
  
  if (($self->ident->kind eq 'var') and ($self->ident->scope eq 'global')) {
    my $pmc_t <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1076	1174	
==>dent");

  if (($self->ident->kind eq 'var') and ($self->ident->scope eq 'global')) {
    my $pmc_t <==
3	/Users/nnunley/parrot/lib/Test/More.pm	34490	34587	
==>y

Test::More works with Perls as old as 5.004_05.


=item Overloaded objects

String overloaded o <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2756	2847	
==>'INSTALL' => 'Installation documentation',
	'LICENSE' => 'Licence file',
	'MAINTAINER' => 'M <==
3	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	1668	1794	
==>t line
name_len:           m/[0-9]+/
                  { $::name_len = $item[1] }

# We need the len of the macro substitution, <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4625	4724	
==>ote that for loading debugging version of the driver,
#this file will be parsed from 'sub _Parse' u <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4391	4489	
==>ote that for loading debugging version of the driver,
#this file will be parsed from 'sub _Parse' u <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7831	7930	
==>that is preferred.

=cut

sub short_description
{
	my $self = shift;

	return '' unless $self->conta <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561873	561966	
==>rpreter, {{\@2}}, {{\@3}});\n  if (!{{\@1}}) {\n    real_exception(interpreter, next, METH_NOT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562957	563050	
==>rpreter, {{\@2}}, {{\@3}});\n  if (!{{\@1}}) {\n    real_exception(interpreter, next, METH_NOT <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2343	2548	
==>ast;
            s/^\\r//
                and $str .= "\r",      # carriage return
                last;
            s/^\\t//
                and $str .= "\t",      # horizontal tab
                la <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3857	4062	
==>ast;
            s/^\\r//
                and $str .= "\r",      # carriage return
                last;
            s/^\\t//
                and $str .= "\t",      # horizontal tab
                la <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	37587	37726	
==>ight be 0-length
          $ell_content[$j] =  $1;  # might be 0-length

          DEBUG > 3 and
           print "     FOUND a '/' in it.", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22713	22908	
==>,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 409 \"src/ops/core.ops\"\n  opcode_t *dest;\n  PMC * const p = { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612952	613040	
==>"#line 496 \"src/ops/object.ops\"\n    VTABLE_set_attr_str(interpreter, {{\@1}}, {{\@2}}, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613859	613947	
==>"#line 496 \"src/ops/object.ops\"\n    VTABLE_set_attr_str(interpreter, {{\@1}}, {{\@2}}, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800525	800692	
==>,
                              "s"
                            ],
                  "BODY" => "#line 467 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed(int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801429	801596	
==>,
                              "s"
                            ],
                  "BODY" => "#line 467 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed(int <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	671	774	
==>:Expression::Value::Identifier');

  my $name = $ident->value;

  my $self = bless {
    BLOCK => $block <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	7605	7706	
==>"
without express or implied warranty of any kind.

These notices must be retained in any copies of an <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	7173	7292	
==>eak;

default:
    return cur_opcode;
}
    return(0);
}
END_C

    return 0;
}


#
# compile_file()
#

sub compile_file <==
3	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	1241	1341	
==>to VERSION file contents: '$parrot_version' (should be 3 or 4)!"
    }

    foreach (@parrot_version) <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	5582	5677	
==>$self = shift;

    return map {$self->directory_with_path($_)} $self->directory_paths;
}

=item <==
3	/Users/nnunley/parrot/lib/Test/More.pm	30604	30752	
==>AR' ) {
                push @Data_Stack, { type => 'REF', vals => [$e1, $e2] };
                $ok = _deep_check($$e1, $$e2);
                pop @ <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	4771	4873	
==>ntry (@{$vtable}) {
    my $uc_meth = uc $entry->[1];
    $macros .= <<"EOM";
#define PARROT_VTABLE_${u <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	4168	4326	
==>";
        }

        # Otherwise, syntax eror.
        else {
            die "Syntax error on line $line (\"$_\")\n";
        }
    }

    # If we're still i <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	315	404	
==>w->accept_codes('VerbatimFormatted');
  return $new;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	314	403	
==>w->accept_codes('VerbatimFormatted');
  return $new;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600256	600384	
==>_CLASS, \n         \"Class '%Ss' doesn't exist\", name);\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601332	601460	
==>_CLASS, \n         \"Class '%Ss' doesn't exist\", name);\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  " <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	5256	5353	
==>ory snapshot" : "release",
	  runcore2human($_[0]->{runcore}),
	  $_[0]->{cpuarch},
      $_[0]->{ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	490	618	
==>-----------

sub _new_regs {
     return
  {
    I => { map { $_ => 0 } (0..31) },
    N => { map { $_ => 0 } (0..31) },
    S => <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	11660	11770	
==>cexc, $lastback) = @_;

    my @ops;
    push @ops, aop('check', [ 1, $lastback ])
      unless ($op->{nocheck} <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	2962	3062	
==>item * C<add_steps()>

Registers a new step to be run at the end of the execution queue.

Accepts a l <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529061	529481	
==>DIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 611,
                  "ARGS" => [
                              "n",
                              "nc",
                              "n"
                            ],
                  "BODY" = <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	2991	3095	
==>f) = @_;
    my $rxlocals = ($self->{rxlocals} ||= []);
    return (aop(comment => [ "restore rxlocals" ] <==
3	/Users/nnunley/parrot/config/init/hints/cygwin.pm	665	768	
==>n get by with simply using gcc -shared, so we override the
    # perl5 Configure defaults and use 'gcc - <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	11292	11440	
==>d)}}->vtable->
        (\w+)
        \(interpreter,
        \s*
        {{\@(\d)}},\s*{{\@(\d)}}
        \);
        \s+{{\+=\d}}/xm) {
            $ <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	11739	11887	
==>d)}}->vtable->
        (\w+)
        \(interpreter,
        \s*
        {{\@(\d)}},\s*{{\@(\d)}}
        \);
        \s+{{\+=\d}}/xm) {
            $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133921	134212	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134702	134993	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLA <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	3383	3532	
==>files/amber.in' => 'languages/amber/Makefile',
        commentType                     => '#',
        replace_slashes                 => 1,
        c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359188	359366	
==>" => [
                              "s"
                            ],
                  "BODY" => "#line 250 \"src/ops/io.ops\"\n  STRING * const s = {{\@1}};\n  if (s && string <==
3	/Users/nnunley/parrot/config/auto/jit.pm	4302	4440	
==>/exec$(O) $(SRC_DIR)/exec_cpu$(O) $(SRC_DIR)/exec_save$(O)',
                execcapable => 1
            );
        } else {
            $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	1651	1773	
==>t);
      }
    }
    return \%r;
}
sub match {
  my ($input) = @_;
  my $m = _rule_default(1, $input, 0, []);
use Data::Du <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86175	86397	
==>" => 107,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 1208 \"src/ops/core.ops\"\n  PMC * const compre <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	5794	5945	
==>'',
            $self->c_pair_item('', 'mmd'),
        ),
        $self->new_group(
            'Extensions', 
            '',
            $self->c_pair <==
3	/Users/nnunley/parrot/config/init/hints/vms.pm	676	815	
==>=test test")        and die "Link failed!";
        };

        *Parrot::Configure::Step::cc_run = sub {
            `mcr []test`;
        } <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	3153	3267	
==>ps, done
    bsr printGroup
    inc match_num
    goto printLoop
done:
    .return ()

printGroup:
    .local int m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033320	1033408	
==>Parrot_find_pad(interpreter, lex_name, ctx);\n    if (PMC_IS_NULL(lex_pad)) {\n\treal_exc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034418	1034506	
==>Parrot_find_pad(interpreter, lex_name, ctx);\n    if (PMC_IS_NULL(lex_pad)) {\n\treal_exc <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	11316	11457	
==>\w+)
        \(interpreter,
        \s*
        {{\@(\d)}},\s*{{\@(\d)}}
        \);
        \s+{{\+=\d}}/xm) {
            $jit_func = "Parro <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	11763	11904	
==>\w+)
        \(interpreter,
        \s*
        {{\@(\d)}},\s*{{\@(\d)}}
        \);
        \s+{{\+=\d}}/xm) {
            $jit_func = "Parro <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	1475	1575	
==>$res[1]";
			eval { substr($$textref,$remainderpos,0) = $extra;
			       substr($$textref,$extrapos, <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	614	720	
==>N
#
# Any use of this module in a standalone parser make the included
# text under the same copyright as <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	597	700	
==>N
#
# Any use of this module in a standalone parser make the included
# text under the same copyright as <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	23734	23836	
==>ertypes{$syms[CURR]}) {
					$type="USER";
					$ut=qq{\tP2["usertype"]= "$syms[CURR]"\n};
				} else { <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	21048	21151	
==>/PAT
		$rd1pos,	1,			# RIGHT DEL
		$ld2pos,	$second_arg,		# 2ND LDEL (MAYBE)
		$str2pos,	$rd2pos-$str2po <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	992	1074	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub handle_text <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	776	858	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub handle_text <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15457	15570	
==>nil', 'nil' );
    push @opcodes, @{ $nil->[1] };
    $result = new_tmp( $parser, 'pmc' );
    push @opcodes, n <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19210	19323	
==>nil', 'nil' );
    push @opcodes, @{ $nil->[1] };
    $result = new_tmp( $parser, 'pmc' );
    push @opcodes, n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653408	653506	
==>er, {{\@2}}, {{\@3}});\n    if (!{{\@1}} || !VTABLE_defined(interpreter, {{\@1}}))\n        real_ex <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654569	654667	
==>er, {{\@2}}, {{\@3}});\n    if (!{{\@1}} || !VTABLE_defined(interpreter, {{\@1}}))\n        real_ex <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	62517	62614	
==>able> found a '$', '@', or '%' indicating a variable, but that
character was not followed by a leg <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1390	1481	
==>ptimization -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $ <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1435	1526	
==>ptimization -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1439	1530	
==>ptimization -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14268	14424	
==>G and print "  Doesn't look at all contentworthy!\n  Giving up.\n";
          undef $title;
          last;
        }
      }
    }
    
    else {
      die <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11792	11889	
==>name, $mode, $uid) = @_;
    return split(/\n/, <<"END");
$uid = _$name($mode, <rx_input>, <rx_pos <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181309	181560	
==>216,
                  "ARGS" => [
                              "ic",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 278 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@ <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	4992	5128	
==>ent;
                next;
            }

            ($percent, my $total_calls, $function) = /\s*([^%]+)% of (\d+) calls executed in fu <==
3	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	2030	2131	
==>package BranchOp;
use base qw(Lua::opcode);

package BranchIfOp;
use base qw(Lua::opcode);

pack <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	11890	12020	
==>lsif(
          $desperate_for_title
           # if we're so desperate we'll take the first
           #  =head1's content as a ti <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4137	4242	
==>sub _DBLoad {
	{
		no strict 'refs';

			exists(${__PACKAGE__.'::'}{_DBParse})#Already loaded ?
		and <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3926	4026	
==>sub _DBLoad {
	{
		no strict 'refs';

			exists(${__PACKAGE__.'::'}{_DBParse})#Already loaded ?
		and <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835307	835559	
==>> 0,
                  "NAME" => "savec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836059	836311	
==>> 0,
                  "NAME" => "savec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	2654	2785	
==>'})) {
            # Do nothing.

        # Have we got a non-blank line when we've got no method specified yet?
        } elsif (!$ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8987	9106	
==>al_args ]);

      unless ($self->skip_open_brace) { # DEFINITION
        $self->require_semicolon;
      }
      else { <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3244	3333	
==>t::Test::PGE::_generate_glob_for($target, $pattern);

    goto &Parrot::Test::pir_output_i <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3669	3758	
==>t::Test::PGE::_generate_glob_for($target, $pattern);

    goto &Parrot::Test::pir_output_i <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6521	6639	
==>rce another pass by setting Exchange to TRUE.
   FOR I = 2 TO Max
      IF A$(I-1) > A$(I) THEN
         Exchange = TRU <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16174	16292	
==>rce another pass by setting Exchange to TRUE.
   FOR I = 2 TO Max
      IF A$(I-1) > A$(I) THEN
         Exchange = TRU <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2917	3003	
==>X_ERROR("Can't do arithmetic on strings") if UNIVERSAL::isa($dest_type, 'Jako::Construc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807385	807715	
==>" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 911,
                  "ARGS" => [
                              " <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	3895	4021	
==>+) {
		    my ($a, $def) = split(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a = qq!"$a"!;   # quote argument
		    $def_arg_n <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	4394	4520	
==>+) {
		    my ($a, $def) = split(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a = qq!"$a"!;   # quote argument
		    $def_arg_n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875032	875230	
==>",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876050	876248	
==>",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interp <==
3	/Users/nnunley/parrot/config/auto/headers.pm	2245	2357	
==>$conf->data->set(testheader  => $header);

            cc_gen('config/auto/headers/test_c.in');

            $con <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	43349	43461	
==>\^\/\%]*)\n?$}s) {
      DEBUG > 5 and print "  It's a formatty line.  ",
       "Peeking at previous line ", $i- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189766	189859	
==>vtable->get_integer(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190707	190800	
==>vtable->get_integer(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653621	653909	
==>, {{\@3}}));\n    {{=resume}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARR <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6468	6576	
==>OOP_EXIT
    dec i
    j = P_arg_0[i]
    ${ITEMP0} = ${NEXTPC} + j
    prop_type_state[${ITEMP0}] = ${STYPES <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4406	4514	
==>OOP_EXIT
    dec i
    j = P_arg_0[i]
    ${ITEMP0} = ${NEXTPC} + j
    prop_type_state[${ITEMP0}] = ${STYPES <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	533	646	
==>};
$do_init and do {
    unlink $outfile;
    exit;
};

$file = shift @ARGV;
$file =~ s/\.c$//;
my $infile = $file <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	499	599	
==>to register mapper\n";
}

# Extra subroutines required for the mapper.
sub subs {
	die "subs not impl <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	20610	20734	
==>o') {        
            if(defined($thing = $treelet->[$i][1]{$attrname}) and ref $thing) {
              unshift @stack, $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	42094	42214	
==>o') {        
          if(defined($thing = $treelet->[$i][1]{$attrname}) and ref $thing) {
            unshift @stack, $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3958	4048	
==>od::Simple::Text> that formats only the "Pod Errors" section
(if Pod::Simple even generates <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1940	2057	
==>en
    if ($ret == -1 and !$conf->options->get('ask')) {

        # fall back to default
        $self->set_result('no <==
3	/Users/nnunley/parrot/config/inter/make.pm	1814	1931	
==>en
    if ($ret == -1 and !$conf->options->get('ask')) {

        # fall back to default
        $self->set_result('no <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1954	2071	
==>en
    if ($ret == -1 and !$conf->options->get('ask')) {

        # fall back to default
        $self->set_result('no <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862515	862766	
==>_length(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863284	863535	
==>_length(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/config/init/defaults.pm	4751	4866	
==>L) -MExtUtils::Command -e rm_f',
        rm_rf     => '$(PERL) -MExtUtils::Command -e rm_rf',
        mkdir     => ' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7971	8084	
==>");
}

use vars qw($DEBUG_LABEL);
sub output_popindex {
    my $self = shift;

    my ($reg, $fallback);
    if (@ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7624	7737	
==>");
}

use vars qw($DEBUG_LABEL);
sub output_popindex {
    my $self = shift;

    my ($reg, $fallback);
    if (@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247157	247579	
==>S" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 287,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#li <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117891	118118	
==>=> "#line 226 \"src/ops/bit.ops\"\n  {{\@1}} >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118630	118857	
==>=> "#line 226 \"src/ops/bit.ops\"\n  {{\@1}} >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114905	115202	
==>=> "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115759	116056	
==>=> "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116614	116911	
==>=> "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83823	84075	
==>ompreg_hash, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84729	84981	
==>ompreg_hash, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37571	37665	
==>asleftmost($self) ? 'q{}'
				: 'q{'.$self->describe.'}' ) . ';
		$Parse::RecDescent::lastunexp <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39974	40068	
==>asleftmost($self) ? 'q{}'
				: 'q{'.$self->describe.'}' ) . ';
		$Parse::RecDescent::lastunexp <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	1358	1485	
==>,
  ['',             'invokecc'],
  ['',             'restore', 'P1'],
  ['write_KET',    'print', '")"'],
  ['write_RET',    'r <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1896	1997	
==>{$func};
	$c =~ s/X(\d)/$x[$1]/g;
	$c =~ s/(S\d{2})/$s{$1}/;
        $c =~ s/^(.*)=rotate_left\((.*),( <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	30380	30474	
==>xample, to extract a single-quote delimited string, the
following code is typically used:

	($r <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	7913	8008	
==>oke!
BNOTF
	} elsif (@codef and not @codeb) {
		push @{$code{$seg}->{code}},<<FNOTB;
@codef	noop <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948804	948892	
==>BODY" => "#line 535 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_charset(inter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949604	949692	
==>BODY" => "#line 535 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_charset(inter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210303	210416	
==>_string(interpreter, {{\@1}}), {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211283	211396	
==>_string(interpreter, {{\@1}}), {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2370	2614	
==>n),
                       $output,
                       $desc
                                                  );
        unless ( $pass ) {
            my $diag = '';
            my $test_prog = join ' && ', @test_prog;
            $diag .= <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	2381	2615	
==>n),
                          $output,
                          $desc
                      );
           unless ( $pass ) {
               my $diag = '';
               my $test_prog = join ' && ', @test_prog;
               $diag .= <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54193	54294	
==>if ($grammar =~ m/(?=$SKIPMK)/gco
				and do { ($code) = extract_codeblock($grammar,'<');
					  $code <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6789	7010	
==>\@1}});\n    {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63900	64119	
==>\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	734	833	
==>ue::Identifier');
  confess "Props are not hash!" if defined $props and ref($props) ne "HASH";

  my <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	1104	1212	
==>$b goto $where->[1]";
}

sub output_goto {
    my ($where) = @_;
    return "goto $where->[1]";
}

sub output <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	25451	25554	
==>r'
	${ret_string}$func($args)  $cmt
EOC
	}
	else {
	    print <<EOC;
	.local NCI meth\:\:$attr
	meth\:\: <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	395	484	
==>PullParserTextToken -- text-tokens from Pod::Simple::PullParser

=head1 SYNOPSIS

(See L<P <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	2896	3029	
==>$opt{verbose},
    ) or exit(1);

    my $nfuncs = 0;
    my @ofiles = @ARGV;
    my %files;
    for my $ofile ( @ofiles ) {
        n <==
3	/Users/nnunley/parrot/config/inter/lex.pm	950	1074	
==>->data->set($util => 'echo');
        $self->set_result('skipped');
        return $self;
    }

    my $prog;

    # precede <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	947	1071	
==>->data->set($util => 'echo');
        $self->set_result('skipped');
        return $self;
    }

    my $prog;

    # precede <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5729	6020	
==>"FLAGS" => ":load_file",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8,
                  "ARGS" => [
                              "s"
                            ], <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2617	2768	
==>sitKeyedGetOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}-> <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	13856	13952	
==>ift;
    return annotated($op, "match(" . $op->render(@_) . ")");
}

sub Regex::Ops::Tree::charcl <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	6845	6955	
==>those integers are different.
    my %start;
    foreach my $subop (@{ $op->{args} }) {
        my @subop_start <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	103	228	
==>sing Parse::Yapp version 1.05.
#
#        Don't edit this file, use source file instead.
#
#             ANY CHANGE MADE H <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	101	222	
==>sing Parse::Yapp version 1.05.
#
#        Don't edit this file, use source file instead.
#
#             ANY CHANGE MADE H <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1435	1534	
==>} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = "$register_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1962	2061	
==>} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = "$register_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3145	3244	
==>} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = "$register_ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22121	22235	
==>kahead" => $_[2],
		"line"      => $_[3],
		"name"      => $_[4],
	}, $class;
}

sub code($$$$)
{
	my ($self, $name <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	4642	4739	
==>macros .= <<"EOM";

/*
 * vtable method name defines for delegate
 */

/* &gen_from_def(vtable_met <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8706	8791	
==>"SRSCAN","STATUS","TORPEDO","TRANSFER","VISUAL","WARP"

' Random number distribution
r <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5586	5708	
==>_;

    my ( %group_files, %group_libs, %pmc_group, %pmc_libs );
    for my $pmc (@pmcs) {
        our $class;
        requ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5797	5919	
==>_;

    my ( %group_files, %group_libs, %pmc_group, %pmc_libs );
    for my $pmc (@pmcs) {
        our $class;
        requ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	1678	1776	
==>at the SRM wants.
my $csubs = $srm->subs();
$pir .= sub_meta($csubs, {}, 'custom subs');

# Finally <==
3	/Users/nnunley/parrot/config/init/hints/vms.pm	593	704	
==>tem("$cc $ccflags test.c") and die "C compiler died!";
            system("link/exe=test test")        and die " <==
3	/Users/nnunley/parrot/lib/File/Which.pm	3525	3631	
==>ths = where('perl');
  - Or -
  my @paths = which('perl'); # an array forces search for all of them

=head1 <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	10619	10723	
==>ers =~ s/ //g;

    # type method(interpreter, self, parameters...)
    my $ret = $calltype{$type or "voi <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1331	1434	
==>hook.
sub pre_translation() {
	# We need a stack depth and a string for label gen and some
	# storage fo <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	418	521	
==>hook.
sub pre_translation() {
	# We need a stack depth and a string for label gen and some
	# storage fo <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	12537	12695	
==>howfar, $lastback ]),
                         aop('goto', [ $next ]),
                $back => aop('increment', [ -$howfar ]),
                         aop('g <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7121	7212	
==>pth 
${DEST0} = "$"
${STEMP0} = ${LOADTYPE}["reg_type_short"]
${DEST0} = concat ${STEMP0}
${ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4943	5034	
==>pth 
${DEST0} = "$"
${STEMP0} = ${LOADTYPE}["reg_type_short"]
${DEST0} = concat ${STEMP0}
${ <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	445	559	
==>@_;
 
    
    my $test_prog_args = $ENV{TEST_PROG_ARGS} || q{};
    my $lang_fn        = Parrot::Test::per_test( ' <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	463	571	
==>@_;

    my $test_prog_args = $ENV{TEST_PROG_ARGS} || q{};
    my $lang_fn        = Parrot::Test::per_test( ' <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	438	536	
==>n F<tools/docs>.

=head2 Class Methods

=over 4

=cut

package Parrot::Docs::File;

use strict;
use <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203437	203688	
==>E" => 240,
                  "ARGS" => [
                              "sc",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 380 \"src/ops/cmp.ops\"\n  if (string_c <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	32505	32660	
==>Op') )
    {
        push @opcodes1, new AssignOp( $parser,
            'result' => $state,
            'arg1'   => $nil->[0],
        );
        push <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5783	5883	
==>s, qq!<rx_match>{"$group"}->[1] = $value; # close group $group!;
    return @ops;
}

sub output_getst <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	3188	3309	
==>piler->emit("  _${name}(" . join(", ", @args) . ")");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	3334	3451	
==>($file_line_coverage{$source_file})) {
            $source_file = "$source_file (from $da_file)";
        }

        p <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1817	1928	
==>calar(@args), $name)
    unless @formal_args == @args;

  for (my $i = 0; $i < @args; $i++) {
    my ($formal_ar <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1517	1628	
==>calar(@args), $name)
    unless @formal_args == @args;

  for (my $i = 0; $i < @args; $i++) {
    my ($formal_ar <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	498	607	
==>BUG and print "New $class handle on $x = \"$$x\"\n";
  
  my $new = gensym();
  tie *$new, $class, $x;
  retur <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	1068	1172	
==>ion-based (slow or fast core) run loop.

=item C<CGoto>

Create the C<goto> run loop.

=item C<CGP>

Crea <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1768	1866	
==>d) in call to '%s'.",
    scalar(@formal_args), scalar(@args), $name)
    unless @formal_args == @a <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1468	1566	
==>d) in call to '%s'.",
    scalar(@formal_args), scalar(@args), $name)
    unless @formal_args == @a <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1892	1990	
==>::Identifier')) {
    my $left_sym = $block->find_symbol($left->value);
    $self->SYNTAX_ERROR("Ex <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1850	1948	
==>::Identifier')) {
    my $left_sym = $block->find_symbol($left->value);
    $self->SYNTAX_ERROR("Ex <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1772	1870	
==>::Identifier')) {
    my $left_sym = $block->find_symbol($left->value);
    $self->SYNTAX_ERROR("Ex <==
3	/Users/nnunley/parrot/config/auto/byteorder.pm	1002	1135	
==>rder => $byteorder,
            bigendian => 1
        );
        $self->set_result('big-endian');
    } else {
        die "Unsupport <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	7407	7535	
==>'t know how to redirect '$key' yet!";
        $value = File::Spec->devnull
            if $value eq '/dev/null';
    }

    my $o <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	1373	1490	
==>unless $spec =~ /\[ (\w+) (?: \s+ (.+?) )? \]/x;

    my $cmd  = $1;
    my $args = $2;

    return $cmd, parse_usage( <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59705	59810	
==>error = 0;
		}
		elsif ($grammar =~ m/$ERRORPROD/gco)
		{
			pos($grammar)-=6;
			_parseunneg("a new (erro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	337615	337824	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getstdin",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o" <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	13371	13498	
==>intf       math.h
rintl       math.h
round       math.h
roundf      math.h
roundl      math.h
scalbln     math.h
scalblnf    mat <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	2547	2646	
==>ion', # whether to suppress the errata section
  'complain_stderr',   # whether to complain to stder <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	6558	6678	
==>ole32 -loleaut32 -lnetapi32 -luuid -lws2_32 -lmpr -lwinmm -lversion -lodbc32 ',
                link              => 'gcc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	220235	220532	
==>r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 258 <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	4104	4223	
==>rated unique number.
    $P100 = new 'APLVector'
    $I100 = 1
    $I101 = 0
    $I102 = %1
  loop_begin_1:
    if $I100 <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	17735	17830	
==>to'} = $prevoffset;
		$itempos[$#itempos]{'line'}{'to'}   = $prevline;
		$itempos[$#itempos]{'co <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	3234	3363	
==>0,
 'iexcl'    , 161,
 'cent'     , 162,
 'pound'    , 163,
 'curren'   , 164,
 'yen'      , 165,
 'brvbar'   , 166,
 'sect'     , <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	757	864	
==>class
    .param pmc meth
    .local string class_name, method_name, body

    # Get class and method names. <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27351	27461	
==>tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;').'
		$lastsep = "";
		$Parse <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29461	29571	
==>tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;').'
		$lastsep = "";
		$Parse <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31558	31668	
==>tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;').'
		$lastsep = "";
		$Parse <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	897	1036	
==>1,
            'result' => $parser->YYData->{_G},
            'arg1'   => '_G',
        );
    }
    return [ $parser->YYData->{_G}, \@ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	2162	2286	
==>>
        <TABLE BORDER="0" WIDTH="730" CELLSPACING="0" CELLPADDING="0">
            <TR ALIGN="RIGHT">
                <TD W <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2975	3084	
==>name, $sym);

  $block->push_content($self);

  return $self;
}


#
# ACCESSORS:
#

# block handled by supercl <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	45764	45883	
==>ate
       # any part of 'bar baz'".  However, hyphenation is such a vexing
       # problem anyway, that most Pod rende <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1032	1148	
==>{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $left  = $self->left->va <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	1040	1156	
==>{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $left  = $self->left->va <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	2057	2183	
==>le calls
        push @{ $self->{rxlocals} }, @{ $op->{rxlocals} };
        return ();
    } else {
        my $rxlocals = ($op <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	1001	1116	
==>:isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK     => $block,

    KIND      => <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	1013	1128	
==>:isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK     => $block,

    KIND      => <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1219	1326	
==>:isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block,

    KIND  => <==
3	/Users/nnunley/parrot/config/init/hints/cygwin.pm	1131	1249	
==>ic_linking  => 0,
        has_dynamic_linking => 1,
        parrot_is_shared    => 1,
        sym_export => '__declspec <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	57604	57715	
==>le("$code",$line);
				$aftererror = !$commitonly;
			}
			elsif (do { $commitonly = $1;
					 ($code) = extract <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	17109	17212	
==>get to escape out 'F' so that we can send RTF files thru the mail
  # without the slightest worry that p <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	8147	8367	
==>body       = '';
            $seen_op    = 1;
            $line	      = $.+1;

            my @temp = ();

            foreach my $arg (@args)
            {
                my ($use, $type) = $arg =~
                    m <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	1227	1324	
==>h
the words "This is Parrot" in the directory.

Raises an exception if the distribution root is no <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	6266	6357	
==>_addr_decl")) {
    print SOURCE $trans->ops_addr_decl($bs);
}
if ($trans->can("run_core_fun <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	706	798	
==>AL::isa($type, qw(Jako::Construct::Type));
  confess "Identifier (" . ref($ident) . ") is not <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	731	822	
==>AL::isa($type, qw(Jako::Construct::Type));
  confess "Identifier (". ref($ident) . ") is not <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	695	786	
==>AL::isa($type, qw(Jako::Construct::Type));
  confess "Identifier (". ref($ident) . ") is not <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2620	2735	
==>ie "Error invoking '$cmd': $!";
    my $tmp;
    my %generated_files;
    while (<GCOVSUMMARY>) {
        if (/^Crea <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4104	4208	
==>ather_groups_and_libs(@pmcs);

    # Convert lib-GROUP.so + A.so + B.so ... -> GROUP.so
    while (my ($g <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4208	4312	
==>ather_groups_and_libs(@pmcs);

    # Convert lib-GROUP.so + A.so + B.so ... -> GROUP.so
    while (my ($g <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	815071	815231	
==>"p"
                            ],
                  "BODY" => "#line 567 \"src/ops/set.ops\"\n  {{\@1}} = PMCNULL;\n  {{+=2}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	998	1103	
==>ts(@args);
print      body($file, @args);
print   badargs($cmd, @args);
print    footer();

sub open_tmt { <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	6295	6395	
==>return(<<CODE, $result);
	cmod $result, $a2, $a1
CODE
	},
	'^' => "POW",	
);
%opsubs=(%opsubs, 
	'<=' <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5488	5670	
==>_->{pragma} and $_->{pragma} eq 'multi' ) {
                    print {$FH} " :slurpy";
                }
                $first = 0;
            }
            print {$FH} ") = " <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6520	6702	
==>_->{pragma} and $_->{pragma} eq 'multi' ) {
                    print {$FH} " :slurpy";
                }
                $first = 0;
            }
            print {$FH} ") = " <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	12467	12566	
==>eturns Bool`

These functions will eval a code snippet, and then pass the result to is or ok
on succ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2771	2867	
==>L_ERROR("No type for left!")  unless defined $left_type;
  $self->INTERNAL_ERROR("No type for rig <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2537	2633	
==>L_ERROR("No type for left!")  unless defined $left_type;
  $self->INTERNAL_ERROR("No type for rig <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2459	2555	
==>L_ERROR("No type for left!")  unless defined $left_type;
  $self->INTERNAL_ERROR("No type for rig <==
3	/Users/nnunley/parrot/lib/File/Which.pm	4380	4476	
==>NT

Windows NT has a special environment variable called C<PATHEXT>, which is used
by the shell t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367810	367896	
==>6 \"src/ops/io.ops\"\n  {{\@1}} = PIO_reads(interpreter, PIO_STDIN(interpreter), (size_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368602	368688	
==>6 \"src/ops/io.ops\"\n  {{\@1}} = PIO_reads(interpreter, PIO_STDIN(interpreter), (size_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759397	759661	
==>E" => "setref",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4623	4738	
==>ry.

=cut

sub directory_exists_with_name
{
    my $self = shift;
    my $name = shift;
    
    return -d File::Spe <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	13622	13731	
==>my $op = shift;
    return $op->{name};
}

sub Regex::Ops::Tree::_onearg::reftree {
    my $op = shift;
    re <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8779	8872	
==>lements lazy_moves
if ${ITEMP0} > 0 goto POST_STORE_${CURIC}_LAZY_MOVE

# No lazy move availab <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	2161	2287	
==>ons ##############

sub output_nop {
    return "noop";
}

sub output_increment {
    my ($self, $var, $amount) = @_;
    $amou <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	3960	4085	
==>els{$dest->{label}}; # tagged_op
                if (! $dest_stmt) {
                    if ($ctx->{external_labels}{$dest->{l <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	41902	42002	
==>s).

=back

The subroutine takes up to four optional arguments (the same set as
C<extract_tagged> exc <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6339	6476	
==>ago) {
        return $NOW - $ago;
    } else {
        return;
    }
}

sub needs_build {
    my ($target, @sources) = @_;

    my $targe <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4759	4896	
==>ago) {
        return $NOW - $ago;
    } else {
        return;
    }
}

sub needs_build {
    my ($target, @sources) = @_;

    my $targe <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6550	6687	
==>ago) {
        return $NOW - $ago;
    } else {
        return;
    }
}

sub needs_build {
    my ($target, @sources) = @_;

    my $targe <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34502	34617	
==>->{argcode} }"
				   : ',undef')
		. ')))
		{
			'.($self->{"lookahead"} ? '$text = $_savetext;' : '')
			    .($:: <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15495	15591	
==>ss $return =~ /^P/;
  my $value = $self->_generate (_get_arg($node,2));
  $self->_add_inst ('', ' <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15853	15949	
==>ss $return =~ /^P/;
  my $value = $self->_generate (_get_arg($node,2));
  $self->_add_inst ('', ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147296	147388	
==>}->vtable->get_integer(interpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148237	148329	
==>}->vtable->get_integer(interpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35270	35413	
==>should never happen
          }

          if(@$para == 2) {
            # For the cases where we /didn't/ push to @$para
            if($paras- <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	156	249	
==>h - Path

=head1 DESCRIPTION

C<Parrot::IO::Path> is an abstract superclass providing common p <==
3	/Users/nnunley/parrot/config/auto/env.pm	29	117	
==>e Perl Foundation.
# $Id: /parrot/config/auto/env.pm 19593 2006-05-30T02:28:15.110975Z co <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11379	11474	
==>$e_node->label, "\"!";
  }
  ...else print/interpolate $text...

=head1 DESCRIPTION

This module <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104000	1104086	
==>e = pmc_type(interpreter, class);\n\t}\n\tif (type <= 0)\n\t\treal_exception(interprete <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105215	1105301	
==>e = pmc_type(interpreter, class);\n\t}\n\tif (type <= 0)\n\t\treal_exception(interprete <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42908	43013	
==>];
	local $Parse::RecDescent::compiling = $_[2],
	my $self =
	{
		"rules"     => {},
		"namespace" => _nex <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113876	114131	
==>t.ops\"\n  {{\@1}} <<= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114615	114870	
==>t.ops\"\n  {{\@1}} <<= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1249	1360	
==>{ return shift->{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1240	1351	
==>{ return shift->{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1129	1240	
==>{ return shift->{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24803	24898	
==>ref) unless @match;
		return _succeed wantarray, $textref,
				$match[2], $match[3]+$match[5]+$m <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7636	7729	
==>ref) unless @match;
	return _succeed wantarray, $textref,
			$match[2], $match[3]+$match[5]+$m <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	11170	11298	
==>$state;
        $head1_text_content = '';
      }
    }

    elsif($state == 1) { # accumulating text until end of head1
      if <==
3	/Users/nnunley/parrot/tools/util/pirtidy.pl	18	108	
==>rrot/tools/util/pirtidy.pl 19235 2006-05-11T16:43:46.320675Z particle  $

use strict;
use w <==
3	/Users/nnunley/parrot/config/auto/signal.pm	1471	1605	
==>_setitimer    => 'define',
            has_sig_atomic_t => 'define'
        );
        print " (setitimer) " if $verbose;
    }
    cc_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3385	3487	
==>uote with an unescaped '$'.
      $string = substr($string, 1, -1); # Without the surrounding double qu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1704	1805	
==>uote with an unescaped '$'.

    $string = substr($string, 1, -1); # Without the surrounding double qu <==
3	/Users/nnunley/parrot/config/init/hints/cygwin.pm	1228	1335	
==>_export => '__declspec(dllexport)',
        sym_import => '__declspec(dllimport)'
    );

    # inet_aton ne <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553900	553997	
==>\@1}};\n  meth = {{\@2}};\n  next = {{^+4}};\n  interpreter->current_object = object;\n  interpret <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555297	555394	
==>\@1}};\n  meth = {{\@2}};\n  next = {{^+4}};\n  interpreter->current_object = object;\n  interpret <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15509	15610	
==>@expr);		# Repair unary -, functions, etc...
		@stream=convert_to_rpn(@expr);	# Get infix into RPN
		( <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15871	15972	
==>@expr);		# Repair unary -, functions, etc...
		@stream=convert_to_rpn(@expr);	# Get infix into RPN
		( <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	17022	17123	
==>@expr);		# Repair unary -, functions, etc...
		@stream=convert_to_rpn(@expr);	# Get infix into RPN
		( <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	10980	11093	
==>.return($N2)
zero_LHS:
    if op2 < 0 goto neg_RHS
    .return(op2) 
neg_RHS:
    %% DOMAIN_ERROR %%
.end

.sub 'm <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	381	489	
==>o::Construct::Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected 5 args!" unles <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	381	489	
==>o::Construct::Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected 5 args!" unles <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8286	8418	
==>urn(undef);

			};

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Back to state $$stack[-1][0], then ";

                $$ch <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7911	8036	
==>urn(undef);

			};

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Back to state $$stack[-1][0], then ";

                $$ch <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3807	3904	
==>ues %cores) {
		partial_link({}, $_ . "_ops$core_suffix") foreach (@oplibs);
	}
} 
elsif ($mode eq <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	48260	48360	
==>f($_[0] || '') eq 'CODE';

  Carp::croak "But $class->_duo takes two parameters, not: @_"
   unless @ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369448	369538	
==>BODY" => "#line 341 \"src/ops/io.ops\"\n  {{\@1}} = PIO_reads(interpreter, {{\@2}}, (size_t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	370333	370423	
==>BODY" => "#line 341 \"src/ops/io.ops\"\n  {{\@1}} = PIO_reads(interpreter, {{\@2}}, (size_t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863356	863627	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bytelength",
                  "FLAGS" => ":base_me <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864247	864518	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bytelength",
                  "FLAGS" => ":base_me <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	1302	1413	
==>g

Op Type:

    i   The argument is an integer register index.
    n   The argument is a number register index. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848277	848511	
==>pn(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849057	849291	
==>pn(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	13969	14071	
==>t enforce it though.  Honor system!  :)
}
sub parse_case {
	my @a;
	my $s=$selects[-1];
	my($jump, $inc <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	26097	26275	
==>('pushindex'),
                        aop('goto', [ $next ]),
               $back => aop('popindex', [ $R_back ]),
                        @R_ops,
                        aop('p <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	2948	3059	
==>ols/dev/mk_native_pbc'),
        ),
        $self->new_group('Benchmarking', '',
            $self->new_item('', <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4255	4366	
==>me/parrot/include/* (all?)

    # lib/Parrot/Config.pm
    
    return 1 if $self->suffix =~ /^(?:dump|html|flag <==
3	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	556	699	
==>($pattern);

    $_ = <$spec_fh>;
    my @spec;
    while (1) {
         my ($input, $output);

         last if ! defined $_;
         die "INP <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	4619	4760	
==>'line_count'}, $self)
         if $code_handler;
        # Note: this may cause code to be processed out of order relative
        #  to pods, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205011	205308	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 242, <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	2303	2415	
==>nt_path);
    }
    
    return -e $self->parent_path;
}

=item C<path()>

Returns the actual path.

=cut

sub pa <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	9908	10012	
==>EBUG > 1 and print "The '=encoding $orig' line is ",
       "redundant.  ($norm_current eq $norm_e).  Ign <==
3	/Users/nnunley/parrot/config/init/hints/solaris.pm	2464	2644	
==>d", $solaris_cc_shared_cb);

    ################################################################
    # Parrot usually aims for IEEE-754 compliance.
    # For Solaris 8/Sun Workshop <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52848	53099	
==>MP" => 0,
                  "NAME" => "gc_debug",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53603	53854	
==>MP" => 0,
                  "NAME" => "gc_debug",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	6498	6603	
==>ef if empty
}

use UNIVERSAL ();
sub unget_token {
  my $self = shift;
  DEBUG and print "Ungetting ", sca <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	5059	5188	
==>(register, \$P0) \n";
        $code .= "  register = r_$name + 1 \n";
        $code .= "  pir .= \$S0 \n";
        $code .= emit(" <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1190	1314	
==>info}++;
    }
    else {
        $parser->YYData->{nb_info} = 1;
    }

    print STDOUT 'lua: ', $parser->YYData->{sr <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	30649	30757	
==><<EOC;
	$x = $agg\[$w->[1]\] $cmt
EOC
    push @stack, [-1, $x, 'P'];
}
# exceptions
sub SETUP_EXCEPT
{
    m <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	9123	9229	
==>_token => 400,
    accept_verbatim => 1,
    max_content_length => 3_000,
   @_,
  );
}
sub get_description <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168502	168592	
==>p.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169444	169534	
==>p.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375676	375843	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376560	376727	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(inte <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	3732	3833	
==>s implements).

The default is "scalar". Other currently used interfaces are:

    array    : containe <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	2536	2704	
==>ed, "$destfile");
                $in_def = '';
                next;
            }
            if ($in_def eq 'def') {
                if (/#define\s+(\w+)\s+(-?\w+|".* <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	717	847	
==>c"} = sub {
        my $self = shift;
        my ( $code, $output, $desc, %options ) = @_;

        my $count = $self->{builder <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	1002	1130	
==>c"} = sub {
        my $self = shift;
        my ( $code, $output, $desc, %options ) = @_;
  
        my $count = $self->{builder <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	580	685	
==>xit;
};

$file = shift @ARGV;
$file =~ s/\.c$//;
my $infile = $file . '.c';
die "$0: $infile: $!" unless - <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15507	15602	
==>~ /^P/;
  my $value = $self->_generate (_get_arg($node,2));
  $self->_add_inst ('', 'set', [$ret <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15865	15960	
==>~ /^P/;
  my $value = $self->_generate (_get_arg($node,2));
  $self->_add_inst ('', 'set', [$ret <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711290	711499	
==>ine",
                  "CODE" => 798,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 50 \"src/ops/python.ops\"\n  PMC * const <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	2155	2261	
==>this is bison.
    # if this is bison pretending to be yacc '--version' doesn't work
    if ($stdout =~ /Bi <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7188	7280	
==>g}->{code}}, "\t#\n\t# User-included assembly\n$syms[CURR]\n\t# End assembly\n\t#\n";
		feedm <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	51292	51460	
==>_[1] ];
        }
	],
	[#Rule 43
		 'varlist1', 3,
sub
#line 260 "Lua\lua51.yp"
{
            [
                @{ $_[1] }, 
                BuildVariable( $_[ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	46458	46586	
==>)"
      ) unless (@_ == 1 or @_ == 2) and ref $_[0];
      (@_ == 1) ?  $_[0]->{$attrname}
                : ($_[0]->{$attrname} <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5796	5937	
==>s %$self) {
        return $self->{args}->[0];
    } else {
        return $self;
    }
}

sub minlen {
    my $op = shift;
    my $min;
    f <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	756	849	
==>es directory. Defaults to '/usr/bin'.

=item C<libdir>

The library directory. Defaults to '/u <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	985	1078	
==>es directory. Defaults to '/usr/bin'.

=item C<libdir>

The library directory. Defaults to '/u <==
3	/Users/nnunley/parrot/config/init/hints/linux.pm	668	798	
==>.= ' -fPIC';
    }

    if ($cc =~ /icc/) {

        # Intel C++ compiler has the same name as its C compiler
        $link = 'icc' <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	22691	22808	
==>urce_f = per_test('.c', $test_no);
            my $obj_f = per_test($PConfig{o}, $test_no);
            my $exe_f = pe <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	20097	20195	
==>ule 17
		 'expr', 2,
sub
#line 125 "lib/Regex/Grammar.y"
{ return op('multi_match' => [ 0, 1, TRUE, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746535	746760	
==>9 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11320	11441	
==>"PARROT_JUMP_RELATIVE|PARROT_JUMP_ENEXT",
                  "NAME" => "bsr",
                  "FLAGS" => ":base_core,chec <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	30445	30544	
==>od sense means the part of the text that's
# introduced by the heading or item whose text is "Foo".) <==
3	/Users/nnunley/parrot/lib/Test/More.pm	36715	36809	
==>r more ways to test complex data structures.
And it plays well with Test::More.

L<Test::Class> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321644	321939	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u4",
                  "FLAGS" => ":dotgnu_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322415	322710	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u4",
                  "FLAGS" => ":dotgnu_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323187	323482	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u4",
                  "FLAGS" => ":dotgnu_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647364	647589	
==>=> 723,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 229 \"src/ops/pmc.ops\"\n    {{\@1}} = pmc_type(inter <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	48509	48619	
==>ength of the necessary complex end-code string
      } else {
        DEBUG > 3 and print "Found simple start-t <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	862	955	
==>elf->output_label_use($failLabel);
}

sub output_classmatch {
    my ($self, $class, $failLabe <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994193	994522	
==>,
                  "CODE" => 1112,
                  "ARGS" => [
                              "i",
                              "ic",
                              "sc",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.o <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2665	2809	
==>l, $source, $out ])
##
sub extract_tests {
    my ($source) = @_;
    my %tests;

    my $regex = qr[
        test \s+ (\S+)                  # t <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1705	1842	
==>f->{parrot}), 
                    File::Spec->join($path_to_language, 'HQ9plus.pbc'),
                    $lang_fn ) );

        Parrot:: <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	4980	5101	
==>s*\(void\*\)\s*(.*)\)/CALL("$1")/g;
                # The ->u.(string|float) is unnecessary.
                $asm =~ s/\)- <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27085	27178	
==>="_USERFUNC_$funcname";
	$f=changename($f);
	$f=~s/\$/_string/g; $f=~tr/a-z/A-Z/;
	$seg=$f;
	C <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27358	27451	
==>="_USERFUNC_$funcname";
	$f=changename($f);
	$f=~s/\$/_string/g; $f=~tr/a-z/A-Z/;
	$seg=$f;
	C <==
3	/Users/nnunley/parrot/config/auto/snprintf.pm	291	387	
==>tf;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

u <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835819	836007	
==>1}}), STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836572	836760	
==>1}}), STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	4487	4645	
==>sub visitNewClosureOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}- <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	844	985	
==>e.dump
          pmc1        => $pmc1_dump,
          pmc2        => $pmc2_dump,
          ... );

Creates a new library object. If the C<$opt <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	45251	45383	
==>-97
	},
	{#State 209
		DEFAULT => -34
	},
	{#State 210
		DEFAULT => -20,
		GOTOS => {
			'@5-9' => 212
		}
	},
	{#State 21 <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	9003	9112	
==>$result = " $result" if @results;
    return $result;
}

sub footer {
    return ".end\n";
}

=head1 Utility M <==
3	/Users/nnunley/parrot/config/inter/progs.pm	3536	3641	
==>bs'));
    $libs = prompt("What libraries should your C compiler use?", $libs) if $ask;
    $conf->data->s <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	12279	12398	
==>temp_num = GET_NCI_N($reg_num);";
        return "t_$temp_num";
    };
    /t/ && do {
        push @{$temps_ref}, "char <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921010	921120	
==>g.ops\"\n    {{\@1}}=Parrot_psprintf(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921903	922013	
==>g.ops\"\n    {{\@1}}=Parrot_psprintf(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21986	22083	
==>f->require_open_paren;

        $left  = Jako::Construct::Expression::Value->new($block, $self->re <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22919	23016	
==>f->require_open_paren;

        $left  = Jako::Construct::Expression::Value->new($block, $self->re <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24566	24662	
==>f->require_open_paren;
        $left  = Jako::Construct::Expression::Value->new($block, $self->re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353325	353623	
==>[
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 412,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 200 \"src/ops/io.ops\"\ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15013	15105	
==>s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
    }
    retur <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16196	16288	
==>s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
    }
    retur <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1112	1213	
==>::Value');
  confess "Right is not Value!" if defined $right and not UNIVERSAL::isa($right, 'Jako::Con <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1140	1241	
==>::Value');
  confess "Right is not Value!" if defined $right and not UNIVERSAL::isa($right, 'Jako::Con <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	812	913	
==>::Value');
  confess "Right is not Value!" if defined $right and not UNIVERSAL::isa($right, 'Jako::Con <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4514	4625	
==>or j = 0 to 1
print i; j;
if i and j then a$="True  " else a$="False "
if i or  j then b$="True  " else b$="Fals <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17585	17696	
==>or j = 0 to 1
print i; j;
if i and j then a$="True  " else a$="False "
if i or  j then b$="True  " else b$="Fals <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	44598	44700	
==>AT.'\)';
my $ANY			= '\G\((s\?)'.$SIMPLEPAT.'\)';
my $MANY 		= '\G\((s|\.\.)'.$SIMPLEPAT.'\)';
my $EXAC <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544193	544298	
==>@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = a, sav <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545529	545634	
==>@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = a, sav <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546865	546970	
==>@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = a, sav <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	533	682	
==>== 2;

  my ($block, $peer) = @_;

  my $self = bless {
    BLOCK     => $block,
    PEER      => $peer,

    KIND      => 'else',

    CONTENT   => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56339	56429	
==>ne 869 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo_p(interpreter, {{\@2}});\n  {{+=3}};\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57101	57191	
==>ne 869 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo_p(interpreter, {{\@2}});\n  {{+=3}};\n" <==
3	/Users/nnunley/parrot/config/auto/readline.pm	1011	1137	
==>d(' ', libs => 'readline.lib');
        }
    } else {
        $conf->data->add(' ', libs => '-lreadline');
    }

    my $osna <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761436	761536	
==>\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_PMC({{\@1}}) = {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762289	762389	
==>\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_PMC({{\@1}}) = {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	8964	9077	
==>ce is needed on the front.
        print {$self->{'output_fh'}} 
            " <a href='#_top'><img alt='^' border <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1325	1413	
==>oken->is_tagname(I<somestring>)

These are shortcuts for C<< $token->tag() eq I<somestrin <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1755	1843	
==>oken->is_tagname(I<somestring>)

These are shortcuts for C<< $token->tag() eq I<somestrin <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	7725	7850	
==>) {
			$small  = 1;
			$uninit = 1;
		    }
		}
		if ($type =~ /^[ABCDFGQRSTU]$/i) {
		    unless ($undef || $code || $other | <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	30807	30901	
==>e initial substring of the text that
is appropriately delimited. If the delimiter string has mu <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	317	410	
==>HEADING
foreach (@results) {
	print "$_->{'name'} & $_->{'done'} & $_->{'total'} & $_->{'per <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	13548	13698	
==>ad>
             <title>$title</title>
          </head>
          <body bgcolor="white">
            <h1>$title</h1>
            <hr noshade>
    );
} <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	4370	4492	
==>*([^%]+)% of (\d+) branches taken at least once in file/;
            if ($total_branches) {
                my $covered_br <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	13697	13804	
==>ops);
}

sub rewrite_simple_or_simple {
    my ($self, $op, $R, $S, $lastback) = @_;

    my $nextalt = $sel <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862846	863221	
==>":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 979,
                  "ARGS" => [
                              "i",
                              "sc"
                            ],
                  " <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1434	1680	
==>$I4 - $I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	1434	1680	
==>$I4 - $I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225507	225654	
==>mber(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226448	226595	
==>mber(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	35636	35786	
==>in,
  'acos'             => \&_op_acos,
  'atan'             => \&_op_atan,
  'sqrt'             => \&_op_sqrt,
  'expt'             => \&_op_expt,
  ' <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	25202	25320	
==>dynpmc (keys %init_mmds) {
        next if $dynpmc eq $classname;
        $cout .= <<"EOC";
        int my_enum_class_$ <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	11820	11929	
==>2 = new .Iterator, op2
inner_loop:
    unless iter2 goto inner_done
    $P2 = shift iter2
    if $P1 == $P2 go <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050737	1051157	
==>[
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1174,
                  "ARGS" => [
                              "p",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#li <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	2439	2535	
==>der provides the a
building block upon which to write your own test libraries I<which can
work to <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	146	240	
==>s the information needed to
generate a parrot wrapper for the named library (or libraries). Its <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	5548	5704	
==>: 'TclString';
            my $quote   = $arg->{type} eq 'int' ? ''       : "'";
            my $default = $arg->{default};
            
            $code .= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103836	1103923	
==>perimental.ops\"\n\tSTRING *class = {{\@2}};\n\tINTVAL type = pmc_type(interpreter, clas <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105051	1105138	
==>perimental.ops\"\n\tSTRING *class = {{\@2}};\n\tINTVAL type = pmc_type(interpreter, clas <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2420	2537	
==>ER})
	or	$$self{USER}={};

	$$self{USER};
	
}

sub YYErrok {
	my($self)=shift;

	${$$self{ERRST}}=0;
    un <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2325	2431	
==>ER})
	or	$$self{USER}={};

	$$self{USER};
	
}

sub YYErrok {
	my($self)=shift;

	${$$self{ERRST}}=0;
    un <==
3	/Users/nnunley/parrot/config/inter/charset.pm	1345	1429	
==>rset_build .= <<END
src/charset/$charset\$(O): src/charset/$charset.h src/charset/asc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791622	791728	
==>2}}->vtable->get_pmc_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792529	792635	
==>2}}->vtable->get_pmc_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	3859	3963	
==>nt_headers src/pmc/pmc_$pmc.h

    # build list of libraries for link line in Makefile
    my $slash = $c <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2572	2674	
==>=back


You're unlikely to ever need to construct an object of this class for
yourself, but if you want <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1421	1522	
==>=back

You're unlikely to ever need to construct an object of this class for
yourself, but if you want <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1710	1811	
==>=back

You're unlikely to ever need to construct an object of this class for
yourself, but if you want <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	2454	2578	
==>ub', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^(var|const)(?!\w)(.*)$}) {
      push @tokens, Jako <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	14014	14138	
==>E)#gc)
		{
			$patvalid = 0;
			next;
		}

		if ($$textref =~ m/\G\s*#.*/gc)
		{
			next;
		}

		if ($$textref =~ m/\G\s*($rd <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	40552	40642	
==>fier=?'    => \&_op_free_identifier_eq_p,
  'generate-identfier'  => \&_op_generate_identif <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2744	2838	
==>piler->emit("  concat $dest, $left, $right");

  if (($dest_ident->kind eq 'var') and ($dest_id <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090853	1090946	
==>ps\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1091913	1092006	
==>ps\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5 <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	2973	3080	
==>rser->YYData->{symbtab}->Insert( $var->[0] );
    return $var;
}

sub InsertList {
    my ( $parser, $v <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3146	3250	
==>lib-GROUP.c files

    generate_dump($_) foreach (@pmcs);
    generate_c($_) foreach (@pmcs);

    my ($g <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3250	3354	
==>lib-GROUP.c files

    generate_dump($_) foreach (@pmcs);
    generate_c($_) foreach (@pmcs);

    my ($g <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	412	515	
==>rned on
    if( $] >= 5.008 && $Config{useithreads} && $INC{'threads.pm'}) {
        require threads::sh <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11622	11717	
==>yfunc=80
end function
z=5
T=myfunc(z)
print z

' Basic Hello
a$="Hello"
print a$

' Concatenatio <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	29730	29824	
==>ts.  If set, all tests
will be considered 'todo' (see Test::More and Test::Harness for
details) <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	4008	4142	
==>filename;
                next;
            }

            ($percent, $total_lines, my $function) = /\s*([^%]+)% of (\d+)(?: source)? l <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	35773	35888	
==>0,2; # Knock off the 'L' and {} bits

      DEBUG > 3 and print " Ell content to start: ",
       pretty(@ell_conten <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	18683	18795	
==>});
'			if $parser->{_check}{itempos};

	my $item;
	my $i;

	for ($i = 0; $i < @{$self->{"items"}}; $i++)
	{
		$i <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18063	18172	
==>q {
}

sub _op_memv {
}

sub _op_member {
}

sub _op_assq {
}

sub _op_assv {
}

sub _op_assoc {
}

sub _op_sy <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15931	16024	
==>f->_add_inst ('', 'set', [$return.'[1]',$value]);
  $self->_restore ($value);

  return $retur <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	7722	7831	
==>*OLDERR if $err;

    # Save the old filehandles; we must not let them get closed.
    open  OLDOUT, ">&STDOUT <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7773	7881	
==>*OLDERR if $err;

    # Save the old filehandles; we must not let them get closed.
    open OLDOUT, ">&STDOUT <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20906	21007	
==>'$_->[1]'
	push P0, P1
ADDT
		}
		print CODE<<TYPEE;
	P1= P10[0]
	P2= P1["types"]
	P2["$typename"]= P0 <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1951	2081	
==>$ret == -1 and !$conf->options->get('ask')) {

        # fall back to default
        $self->set_result('no');
        return $self <==
3	/Users/nnunley/parrot/config/inter/make.pm	1825	1955	
==>$ret == -1 and !$conf->options->get('ask')) {

        # fall back to default
        $self->set_result('no');
        return $self <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1965	2095	
==>$ret == -1 and !$conf->options->get('ask')) {

        # fall back to default
        $self->set_result('no');
        return $self <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27963	28068	
==>t;' : '').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse: <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30037	30142	
==>t;' : '').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse: <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32238	32343	
==>t;' : '').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86745	86988	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new_callback",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87746	87989	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new_callback",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	12157	12259	
==>init(void);

/*
 * find a short or full opcode
 * usage:
 *
 * interp->op_lib->op_code("set", 0)
 * int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584702	584934	
==>bclass(interpreter, class, NULL);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585777	586009	
==>bclass(interpreter, class, NULL);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2954	3121	
==>ing)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # test result
              | " ((?:[^"\\]|\\.)+) "   #" <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4351	4518	
==>ing)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # test result
              | " ((?:[^"\\]|\\.)+) "   #" <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48576	48690	
==>r =~ m/$ATMOST/gco)
					{ $maxrep = $1 }
				elsif ($grammar =~ m/$MANY/gco)
					{ }
				elsif ($grammar =~ m/$BA <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	28685	28795	
==>ch UNLESS it's empty
      unless(  @{$treelet->[$i]} == 2
           or (@{$treelet->[$i]} == 3 and $treelet-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	15514	15622	
==>} );

        # Constants here are defined in include/parrot/op.h
        or_flag(\$jumps, "PARROT_JUMP_RELAT <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	694	805	
==>Value::Identifier');

  my $self = bless {
    BLOCK => $block,
    IDENT => $ident
  }, $class;

  $block->push <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	694	805	
==>Value::Identifier');

  my $self = bless {
    BLOCK => $block,
    IDENT => $ident
  }, $class;

  $block->push <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	3903	4004	
==>ist of libraries for link line in Makefile
    my $slash = $conf->data->get('slash');
    (my $TEMP_pm <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516362	516713	
==>,
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 595,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 729 \"src/ops/math.ops\"\n  {{\@1}} -= {{\@ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8794	8883	
==>it.
${ITEMP1} = elements ${STYPES}
dec ${ITEMP1}
${PTEMP0} = ${STYPES}[${ITEMP1}]
${STEMP0 <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7366	7455	
==>it.
${ITEMP1} = elements ${STYPES}
dec ${ITEMP1}
${PTEMP0} = ${STYPES}[${ITEMP1}]
${STEMP0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	310495	310614	
==>nd(interpreter,command);\n        }\n        /* FIXME this is not ok */\n        exit(0);\n    }\n    interpreter->pdb-> <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11221	11335	
==>@_;

    local $_ = $_[2];
    # Rewrite SELF -> pmc, INTERP -> interpreter
    s/SELF/pmc/g;
    s/\bINTERP\b/inte <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	24832	24940	
==>= <<"EOC";
        enter_nci_method(interp, entry,
                F2DPTR(Parrot_${classname}_$method->{meth} <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	14190	14317	
==>{#State 25
		ACTIONS => {
			"?" => 44
		},
		DEFAULT => -19
	},
	{#State 26
		ACTIONS => {
			"(" => 10,
			'CHAR' => 4,
			"<" <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1017	1118	
==>se vars qw ( $VERSION $COMPATIBLE $FILENAME );

$VERSION = '1.05';
$COMPATIBLE = '0.07';
$FILENAME <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	983	1080	
==>se vars qw ( $VERSION $COMPATIBLE $FILENAME );

$VERSION = '1.05';
$COMPATIBLE = '0.07';
$FILENAME <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860259	860547	
==>],
                  "TYPE" => "inline",
                  "CODE" => 976,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 118 \"src/ops/ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	8999	9151	
==>n";
    }
}


# Generate the translator initialization code.
# ############################################
sub generate_initial_pir($$$) {
    my $srm = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	1981	2102	
==>{
  my $self = shift;

  unshift(@_, " " x $self->{INDENT});
  
  my $fh = $self->{FH};

  print $fh @_, "\n";
}


#
# com <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	4370	4472	
==>:Builtins->new();

  for (@{$built_ins{$name}}) {
    my ($label, $op, @args) = @$_;
    $self->_add_in <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	4433	4528	
==>self->_add_inst ('', 'set',[$return,$value]);
    }
    elsif ($value =~ /^[-+]?((\d+\.\d*)|(\.d <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3452	3544	
==>self->_add_inst ('', 'set', [$return,$value]);
  }
  elsif ($value =~ /^[-+]?((\d+\.\d*)|(\.d <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131158	131391	
==>"ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 306 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} ^ {{\@3 <==
3	/Users/nnunley/parrot/lib/Parrot/PMC.pm	1164	1261	
==>mc => 54,
	Enumerate => 55,
	FixedBooleanArray => 56,
	FixedFloatArray => 57,
	FixedPMCArray => 58 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4750	4845	
==>}_false: noop
CODE
	},
	'not' => sub {
		my($a1,$a2,$result,$op,$ot1,$ot2)=@_;
		$result=~s/S/N/ <==
3	/Users/nnunley/parrot/config/inter/make.pm	667	788	
==>ep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    # undef means we don't have GNU m <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	680	799	
==>ep
{
    my ($self, $conf) = @_;
    
    my $verbose = $conf->options->get('verbose');

    # undef means we don't have <==
3	/Users/nnunley/parrot/config/inter/lex.pm	690	805	
==>ep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    # undef means we don't have <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	508	638	
==>" unless @_ == 2;

  my ($block, $peer) = @_;

  my $self = bless {
    BLOCK     => $block,

    KIND      => 'continue',
    PEER <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3645	3750	
==>t a module!")
        unless $self->block->kind eq 'module';

      my %module_props = $self->block->props <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6309	6414	
==>t a module!")
        unless $self->block->kind eq 'module';

      my %module_props = $self->block->props <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596218	596483	
==>ass(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597111	597376	
==>ass(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	2296	2526	
==>" VALIGN="MIDDLE">
                    <BR>
                    <DIV CLASS="FOOTER">
                        <DIV ALIGN="LEFT">
                        </DIV>
                    </DIV>
                </TD>
                <TD VAL <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	5434	5556	
==>ed closing bracket: \"$found\"",
					 pos $$textref;
				pos $$textref = $startpos;
			        return;
			}
			my $expecte <==
3	/Users/nnunley/parrot/lib/Test/More.pm	12849	12961	
==>mple 'Test customer').

=cut

sub isa_ok ($$;$) {
    my($object, $class, $obj_name) = @_;

    my $diag;
    $ob <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2366	2465	
==>s does nor create byte code, but m4 code
        Parrot::Test::write_code_to_file( $code, $lang_fn ) <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27219	27312	
==>ode = ''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying terminal: [' . $self->descr <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29322	29415	
==>ode = ''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying terminal: [' . $self->descr <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31419	31512	
==>ode = ''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying terminal: [' . $self->descr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377442	377610	
==>i",
                              "i"
                            ],
                  "BODY" => "#line 432 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(inte <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21532	21658	
==>";

    (DEBUG and print "Too much in the buffer.\n"),
     last if @to_unget > 25; # sanity
    
    my $pattern = '';
    if( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18095	18195	
==>f->forth);

      $self->require_semicolon;

      my $arith = Jako::Construct::Statement::Bitwise->n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290871	291088	
==>=> "#line 940 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} == {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291717	291934	
==>=> "#line 940 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} == {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292563	292780	
==>=> "#line 940 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} == {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17470	17697	
==>Operators:
    #
    #   a = b << 4;
    #   a = b >> 4;
    #   a = b & c;
    #   a = b | c;
    #

    if ($token->is_ident
      and $self->get(1)->is_assign
      and $self->get(2)->is_value
      and $self->get(3)->is_infi <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3720	3831	
==>$pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert X.c -> X.o for all X.c
    compile($_) forea <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3824	3935	
==>$pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert X.c -> X.o for all X.c
    compile($_) forea <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	526	700	
==>'isnt_eq'
                        );

foreach my $func ( keys %language_test_map ) {
    no strict 'refs';

    *{"Parrot::Test::HQ9plus::$func"} = sub ($$;$) {
        my $se <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	865	993	
==>'isnt_eq'
                        );

foreach my $func ( keys %language_test_map ) {
    no strict 'refs';

    *{"Parrot::Test:: <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2640	2768	
==>$cmd': $!";
    my $tmp;
    my %generated_files;
    while (<GCOVSUMMARY>) {
        if (/^Creating (.*)\./) {
            my $p <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	9032	9135	
==>lines_flag) {
    my $source_escaped = $source;
    $source_escaped =~ s|\.temp||;
    $source_escaped = <==
3	/Users/nnunley/parrot/config/auto/gc.pm	1818	1915	
==>$(SRC_DIR)/res_lea\$(O):	\$(GENERAL_H_FILES) \$(SRC_DIR)/res_lea.c
EOF
            TEMP_gc_o => "\ <==
3	/Users/nnunley/parrot/config/auto/gc.pm	2109	2206	
==>$(SRC_DIR)/res_lea\$(O):	\$(GENERAL_H_FILES) \$(SRC_DIR)/res_lea.c
EOF
            TEMP_gc_o => "\ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4586	4692	
==>}

# Pre and post branch operation hooks.
sub pre_branch($) {
	my $self = shift;
	my $pops = shift;
	my $re <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3002	3108	
==>}

# Pre and post branch operation hooks.
sub pre_branch($) {
	my $self = shift;
	my $pops = shift;
	my $re <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2649	2755	
==>}

# Pre and post branch operation hooks.
sub pre_branch($) {
	my $self = shift;
	my $pops = shift;
	my $re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931847	931954	
==>/ops/string.ops\"\n  {{\@1}} = string_upcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932618	932725	
==>/ops/string.ops\"\n  {{\@1}} = string_upcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2709	2814	
==>output_test('==', $val1, $val2, $dest);
}

sub output_ne {
    my ($self, $val1, $val2, $dest) = @_;
    $ <==
3	/Users/nnunley/parrot/config/init/defaults.pm	4650	4778	
==>t_soname => '',

        perl      => $^X,
        test_prog => 'parrot',
        rm_f      => '$(PERL) -MExtUtils::Command -e rm <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	288	388	
==>o see if they are just a stub, and skippable.

my (@keep,@skip);
foreach my $file (@commands) {
  ope <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7730	7826	
==>="Hello"
if s$ then print "This is true" else print "Oops (string)"
s$=""
if s$ then print "Shoul <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14717	14813	
==>="Hello"
if s$ then print "This is true" else print "Oops (string)"
s$=""
if s$ then print "Shoul <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2591	2737	
==>rn               => '',
            has_dynamic_linking  => 1,
            parrot_is_shared     => 1,

            sym_export => '__declspec(dllexp <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	839	928	
==>pt/local/lib -L/usr/local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS = qq[-bundle -undefin <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	843	932	
==>pt/local/lib -L/usr/local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS = qq[-bundle -undefin <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	754	851	
==>od::Simple::PullParserToken> and inherits all its methods,
and adds these methods:

=over

=item $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1180	1277	
==>od::Simple::PullParserToken> and inherits all its methods,
and adds these methods:

=over

=item $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	660	757	
==>od::Simple::PullParserToken> and inherits all its methods,
and adds these methods:

=over

=item $ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11800	11901	
==>}[${ITEMP1}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${ST <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8863	8964	
==>}[${ITEMP1}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${ST <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7435	7536	
==>}[${ITEMP1}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${ST <==
3	/Users/nnunley/parrot/config/auto/signal.pm	980	1101	
==>ta->set(has___sighandler_t => 'define');
        print " (__sighandler_t)" if $verbose;
    }
    cc_clean();

    cc_gen( <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	6	96	
==>right (C) 2004, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Docs/Section/Perl.pm 20333 2 <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2192	2280	
==>irectory_with_name('imcc'),
        $self->directory_with_name('examples')->directory_wit <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630674	630918	
==>);\n    {{\@1}} = pmc_new(interpreter, type);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631664	631908	
==>);\n    {{\@1}} = pmc_new(interpreter, type);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629689	629929	
==>);\n  {{\@1}} = pmc_new(interpreter, type);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	815946	816121	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cleari",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [], <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6055	6178	
==>{$group} }, $pmc;
        $group_libs{$group} ||= {};
        foreach my $lib ( keys %libs ) {
            $group_libs{$grou <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6266	6389	
==>{$group} }, $pmc;
        $group_libs{$group} ||= {};
        foreach my $lib ( keys %libs ) {
            $group_libs{$grou <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1593	1703	
==>urn shift->{COND};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { ret <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1729	1839	
==>urn shift->{COND};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { ret <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1372	1482	
==>urn shift->{COND};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { ret <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	7344	7461	
==>reference, so some 99isms
#  might have slipped in)
abort       stdlib.h
abs         stdlib.h
acos        math.h
acosf <==
3	/Users/nnunley/parrot/config/auto/funcptr.pm	297	393	
==>tr;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

u <==
3	/Users/nnunley/parrot/config/auto/va_ptr.pm	292	388	
==>tr;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

u <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	125	216	
==>nse
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/Ba <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	9419	9524	
==>&Test::More::skip;

# What about File::Slurp?
sub slurp_file {
    my ($file_name) = @_;

    open( SLURP, <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	1365	1467	
==>tcl = '.';
    } elsif ($dir_count >2) {
      $path_to_tcl = File::Spec->join(File::Spec->updir() x ($ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	13143	13240	
==>~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`

{
my $m = -321;   # magic line number

sub _gen_errata { <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	9144	9253	
==>this = shift;
  
  foreach my $new_code (@_) {
    next unless defined $new_code and length $new_code;
    if( <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10408	10517	
==>this = shift;
  
  foreach my $new_code (@_) {
    next unless defined $new_code and length $new_code;
    if( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3226	3333	
==>nt "Little-endian UTF-16 BOM seen.  Aborting parsing.\n";
        $self->scream(
          $self->{'line_cou <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600195	600294	
==>erpreter, {{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n         \"Class '%Ss' doesn' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601271	601370	
==>erpreter, {{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n         \"Class '%Ss' doesn' <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	5306	5404	
==>down()
	end
ONOK_${ons}:
ON
	$i=1;
	for my $jumps (@onlab) {
		push @{$code{$seg}->{code}}, "\tne $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4586	4695	
==>->op('nop', [], %$self);
    } elsif (@{ $self->{args} } == 1 && 2 == keys %$self) {
        return $self->{ar <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5723	5832	
==>->op('nop', [], %$self);
    } elsif (@{ $self->{args} } == 1 && 2 == keys %$self) {
        return $self->{ar <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	416	510	
==>thods defined here supply various default values and behaviour common
to all transforms.

The s <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2307	2399	
==>tack height.
dec stack_depth
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$register_num+ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3559	3651	
==>tack height.
dec stack_depth
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$register_num+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517763	518136	
==>ore",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 597,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	6055	6180	
==>ch}{$_},
      }} sort { lc $a cmp lc $b } keys %{ $branches{$branch} }
    ];
  }

  $tmpl->param(branches => my $p = [
    m <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	537	632	
==>] =~ /[(),]/);
	$targ.=$seg;
	$source.=$seg;
	push @{$code{$seg}->{code}}, <<KEYS;
	_ARRAY_KEYS( <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	14154	14246	
==>$code, $return)=&{$opsubs{$sym}}($a1, $a2, "\$$optype$retcount", "", $ot1, $ot2);
					($opty <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840168	840252	
==>rotate_entries(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}});\n  {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840863	840947	
==>rotate_entries(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}});\n  {{+= <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5172	5284	
==>s")) {
			run("$OPS2C $_ --dynamic $oplib.ops")
	          or die "ops2c code generation failed ($?)\n";
		}
	}
} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175208	175322	
==>nterpreter, {{\@1}}, {{\@2}}, MMD_NUMCMP) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959260	959349	
==>Y" => "#line 590 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_encoding(interpre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960062	960151	
==>Y" => "#line 590 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_encoding(interpre <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	1620	1735	
==>on type to
			uevent unlock until using
			view
			wait while wend width window write
			keys
		);

sub dumpq {
	pri <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	44427	44530	
==>])*)"};
my $SUBRULE		= '\G\s*(\w+)';
my $MATCHRULE		= '\G(\s*<matchrule:)';
my $SIMPLEPAT		= '((\\s+/[^/ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	64043	64140	
==>sted closing tag (and the failure mode was not "MAX" or "PARA").

=item C<Did not find closing tag <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	22106	22258	
==>efined $rets{$a};
    return 'P';
}
sub OPC_isinstance
{
    my ($n, $c, $cmt) = @_;
    my $i = temp('I');
    my $cl = pop @stack;
    my $ob = promote <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10744	10855	
==>{
  my ($self, $node) = @_;

  _num_arg ($node, 2, 'set!');

  my $symbol = _get_arg ($node, 1)->{value};
  my $ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23585	23676	
==>label"]);
    $self->_add_inst('','set',[$return,$temp]);
    $self->_add_inst("NEXT_$label" <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24047	24138	
==>label"]);
    $self->_add_inst('','set',[$return,$temp]);
    $self->_add_inst("NEXT_$label" <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8820	8972	
==>$stack[-1][0]]{GOTOS}{$lhs}, $semval ]);
                $$check='';
                next;
            };

#DBG>			$debug & 0x04
#DBG>		and	print S <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8423	8569	
==>$stack[-1][0]]{GOTOS}{$lhs}, $semval ]);
                $$check='';
                next;
            };

#DBG>			$debug & 0x04
#DBG>		and	print S <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	56062	56155	
==>r("Incorrect token specification: \"$@\"", $line);
					_hint("The <token:...> directive requi <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11458	11547	
==>E_CALL_RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_END <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8644	8733	
==>E_CALL_RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_END <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7216	7305	
==>E_CALL_RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_END <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	6565	6736	
==>709,
 'nabla'    , 8711,
 'isin'     , 8712,
 'notin'    , 8713,
 'ni'       , 8715,
 'prod'     , 8719,
 'sum'      , 8721,
 'minus'    , 8722,
 'lowast'   , 8727,
 'radic <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1681	1787	
==>up 0 start := pos');
}

sub output_increment {
    my ($self, $distance, $failLabel) = @_;
    die "invalid <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1434	1540	
==>up 0 start := pos');
}

sub output_increment {
    my ($self, $distance, $failLabel) = @_;
    die "invalid <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14441	14533	
==>= $self->_save_1('P');

  $self->_add_inst ('', 'new', [$return,'.Array']);
  $self->_add_ins <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	2950	3041	
==>= $self->_save_1('P');

  $self->_add_inst('', 'new', [$return,'.Array']);
  $self->_add_ins <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	11162	11251	
==>tion RetContinuation Exception_Handler Coroutine Eval NCI Float Integer BigInt Complex Str <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	35490	35594	
==>t, '{([<' );

would fail, returning:

	( undef , "{ an '[irregularly :-(] {} parenthesized >:-)' string } <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	5410	5556	
==>xemptions'} or $scratch =~
       s/(?:
           ^
           |
           (?<=[\cm\cj\t "\[\<\(])
         )   # start on whitespace, sequence-s <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	25814	25912	
==>PATTERN' . ++$_[1]->{patcount} . '__'; }

sub issubrule { undef }
sub isterminal { 1 }
sub describe <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	17438	17524	
==>item $parser->set_source( \$document_source )

=item $parser->set_source( \@document_li <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12272	12372	
==>/".  If
the name has no known value (as with a name of "qacute") or is
syntactally invalid (as with a <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1804	1894	
==>$self->{ARGS}[shift];
}

=item C<goto_address($address)>

Transforms the C<goto ADDRESS($ad <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1419	1509	
==>$self->{ARGS}[shift];
}

=item C<goto_address($address)>

Transforms the C<goto ADDRESS($ad <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	1654	1755	
==>t of C<key => value> pairs and returns a
L<Parrot::Configure::Data> object.

=cut

sub set
{
    my $s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	486	583	
==>core;

use vars qw($VERSION $ops $preamble);

$VERSION = "0.4.5";

$preamble = "/*\n** core.ops\n* <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	4067	4168	
==>.PerlArray
	find_global \$P1, "DEBUGGER"
FOO
	foreach(0..@main::basic-1) {
		my $line=$main::basic[$_] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828703	828796	
==>eption(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_PMC) {\n    interna <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829771	829864	
==>eption(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_PMC) {\n    interna <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	21866	21977	
==>le to append to it.
        my $fh = open_file( ">>", $deffile );
        print $fh "LIBRARY $group\nEXPORTS\n\t <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	17558	17652	
==>various
APL operators in all possible configurations.

=head1 LICENSE

Copyright (C) 2005-2006, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3682	3785	
==>lock->kind eq 'module';

      my %module_props = $self->block->props;

      $self->SYNTAX_ERROR("Sub d <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6346	6449	
==>lock->kind eq 'module';

      my %module_props = $self->block->props;

      $self->SYNTAX_ERROR("Sub d <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	10812	10910	
==>create your class at compile time.  The main reason
for doing this is obvious, so your class acts l <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2002	2100	
==>volves unknown variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->type;
  } <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1960	2058	
==>volves unknown variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->type;
  } <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1882	1980	
==>volves unknown variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->type;
  } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105585	105811	
==>"#line 162 \"src/ops/bit.ops\"\n  {{\@1}} |= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	106323	106549	
==>"#line 162 \"src/ops/bit.ops\"\n  {{\@1}} |= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	24534	24667	
==>x + $nk/2;
    }
    my $tos = pop @stack;
    my $args = join ', ', @args;
    my $t;
    $func = $tos->[1];
    # create argument tu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253269	253570	
==>E" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254131	254432	
==>E" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254994	255295	
==>E" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 2 <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6497	6632	
==>lf->get('verbose') == 2;

    print "Removing trigger $trigger on configuration key $key\n"
        if $verbose;

    delete $self->{tri <==
3	/Users/nnunley/parrot/lib/Test/More.pm	10994	11117	
==>t exactly like saying:

    ok( Foo->can('this') && 
        Foo->can('that') && 
        Foo->can('whatever') 
      );

on <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	10211	10324	
==>e, $reg) = @_;
    $reg = value($reg);
    return ".param $type $reg";
}


sub output_return {
    my ($self, $ret <==
3	/Users/nnunley/parrot/config/gen/platform.pm	5750	5848	
==>orms
    copy_if_diff("config/gen/platform/platform_interface.h", "include/parrot/platform_interfac <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	2114	2216	
==>elsif ($results{intsize} == 4) {
        $conf->data->set(int4_t => 'int');
    } elsif ($results{longs <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	3257	3356	
==>able name of the structure is
C<PConfig>.

Accepts no arguments and returns a string.

=cut

# Data: <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	3270	3365	
==>ass tree.

=item C<noinit>

Used with C<abstract>: No C<class_init> code is generated.

=item C< <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	21543	21662	
==>"\t$_\n" foreach @exports;
        close $fh;
    }

    # Generate .def file for groups.
    for my $group (keys %group <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50113	50202	
==>/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_PROFILE_FLAG) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50906	50995	
==>/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_PROFILE_FLAG) <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27119	27278	
==>sa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $l_break;
            }
        }
    }
    push @opcodes <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27800	27959	
==>sa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $l_break;
            }
        }
    }
    push @opcodes <==
3	/Users/nnunley/parrot/languages/regex/regex.pl	279	415	
==>imize/) {
        $tree_opt = 0;
        $list_opt = 0;
    } elsif (/--optimize=(.*)/) {
        my $opts = $1;
        $tree_opt = ($op <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	31635	31753	
==>temp =~ /[INS]/) {
      $self->_add_inst('','print',[$temp]);
    }
    else {  
      $self->_call_function_sym('writ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	513891	514144	
==>ODE" => 592,
                  "ARGS" => [
                              "n",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 708 \"src/ops/math.ops\"\n   {{\@1}} = po <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12172	12257	
==>,
because C<EE<lt>solE<gt>>, C<EE<lt>47E<gt>>, C<EE<lt>0x2fE<gt>>,
and C<EE<lt>057E<gt <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12695	12780	
==>,
because C<EE<lt>solE<gt>>, C<EE<lt>47E<gt>>, C<EE<lt>0x2fE<gt>>,
and C<EE<lt>057E<gt <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738188	738410	
==>1}} = string_to_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738952	739174	
==>1}} = string_to_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	470	566	
==>mplemented for current stack to register mapper\n";
}

# Extra subroutines required for the mappe <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1252	1358	
==>mc();
    $compiler->emit("  $pmc_reg = new $pmc_type");
    $compiler->emit("  $pmc_reg = $ident");
    $c <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1246	1352	
==>mc();
    $compiler->emit("  $pmc_reg = new $pmc_type");
    $compiler->emit("  $pmc_reg = $ident");
    $c <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	3352	3449	
==>efined($desc) ?? $desc !! "The object is-a '$expected_type'";
    my $test := $ref.isa($expected_t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327151	327424	
==>){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327953	328226	
==>){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	531231	531504	
==>){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2733	2831	
==>s defined $dest_type;
  $self->INTERNAL_ERROR("No type for left!")  unless defined $left_type;
  $s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2499	2597	
==>s defined $dest_type;
  $self->INTERNAL_ERROR("No type for left!")  unless defined $left_type;
  $s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2421	2519	
==>s defined $dest_type;
  $self->INTERNAL_ERROR("No type for left!")  unless defined $left_type;
  $s <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	32928	33067	
==>$vtables{$c};
    }
    my $cc;
    if ($c =~ /^\d+$/) {	# MMD
	$cc = "-$c";
    }
    else {
	$cc = qq!"$c"!;
    }
    print <<EOC;
	setat <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	39002	39116	
==>content[ 0] =~ m/^\"/s
         and $ell_content[-1] =~ m/\"$/s
         and !( # catch weird degenerate case of L< <==
3	/Users/nnunley/parrot/config/inter/make.pm	1991	2101	
==>ns a string assume that this is gmake.
    if ($stdout =~ /GNU \s+ Make \s+ (\d+) \. (\d+)/x) {
        $conf-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1027420	1027614	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT|PARROT <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	3480	3584	
==>"set_nci_S(interpreter, &st, return_data);",
       v => "",
       t => "final_destination = string_from <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	112	211	
==>itialized value warnings in older perls.
$^C ||= 0;

use strict;
use vars qw($VERSION);
$VERSION = ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	394778	395032	
==>8,
                  "ARGS" => [
                              "i",
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 495 \"src/ops/io.ops\"\n  if ({{\@3}}) {\n    PIOOFF <==
3	/Users/nnunley/parrot/tools/build/addopstags.pl	487	592	
==>isting tags
open T, '<', 'tags';
push @tags, <T>;
close T;

# Spit 'em out sorted
open T, '>', 'tags';
pri <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	532735	533008	
==>){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "l <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	533485	533758	
==>){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "l <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	534240	534513	
==>){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "l <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835331	835563	
==>NAME" => "savec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 94 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836083	836315	
==>NAME" => "savec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 94 <==
3	/Users/nnunley/parrot/lib/Test/More.pm	13537	13725	
==>, $class) ) {
                    my $ref = ref $object;
                    $diag = "$obj_name isn't a '$class' it's a '$ref'";
                }
            } else {
                die < <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	38531	38636	
==>l go into the output.
	$ins =~ s/\\/\\\\/g;
	$ins =~ s/\n/\\n/g;
	$ins =~ s/"/\\"/g;

	# Substitute in met <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	61	151	
==>/Parrot/Docs/File.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Do <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444323	444625	
==>> "inline",
                  "CODE" => 508,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 114 \"src/ops/math.op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033376	1033458	
==>C_IS_NULL(lex_pad)) {\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Le <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034474	1034556	
==>C_IS_NULL(lex_pad)) {\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Le <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	535808	536081	
==>){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	536577	536850	
==>){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	537328	537601	
==>){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1125	1241	
==>ptmp>';
    return $name;
}

sub dbgoto {
    my ($self, $label) = @_;
    return () unless $self->{DEBUG};
    retur <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	615	731	
==>ptmp>';
    return $name;
}

sub dbgoto {
    my ($self, $label) = @_;
    return () unless $self->{DEBUG};
    retur <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3970	4064	
==>Text> that formats only the "Pod Errors" section
(if Pod::Simple even generates one for the giv <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20747	20846	
==>:TokeParser>, which inspired this.

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Bur <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	7675	7765	
==>=head1 AUTHOR

Gregor N. Purdy E<lt>gregor@focusresearch.comE<gt>

=head1 COPYRIGHT

Copyri <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3695	3793	
==>es F<tools/dev/nm.pl> to list the symbols.

=head1 TODO

=over 4

=item *

Write a pollution detect <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	27336	27432	
==>te a reference to an anonymous sub that is just like extract_tagged
# but pre-compiled and optimi <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	35492	35645	
==>p_log,
  'sin'              => \&_op_sin,
  'cos'              => \&_op_cos,
  'tan'              => \&_op_tan,
  'asin'             => \&_op_asin,
  'aco <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	6076	6216	
==>\$i) eq 'HASH' && !\@_) { \$r->$elem = \$i; return \$r }\n";
                $sel = "->{\$i}";
            }
            elsif( defined $clas <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2103	2194	
==>eg;
  }
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	1608	1705	
==>h"

END_C

    print OUT "extern void Parrot_${_}_class_init(Interp *, int, int);\n" foreach (@pmc <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	804	895	
==>ock');
  confess "Left is not Value!" unless UNIVERSAL::isa($left, 'Jako::Construct::Express <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	816	907	
==>ock');
  confess "Left is not Value!" unless UNIVERSAL::isa($left, 'Jako::Construct::Express <==
3	/Users/nnunley/parrot/lib/Test/More.pm	11581	11703	
==>Test->diag('    can_ok() called with no methods');
        return $ok;
    }

    my @nok = ();
    foreach my $method (@me <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	17336	17449	
==>eed    => Breed->new(name=>'short-hair', cross=>1),
                   or:  breed    => {name=>'short-hair', cross <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	15729	15839	
==>cmt) = @_;
    binary_word('xor', $cmt);
}

sub BINARY_LSHIFT
{
    my ($n, $c, $cmt) = @_;
    binary_word('sh <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48648	48849	
==>erpreter, PARROT_BOUNDS_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49438	49639	
==>erpreter, PARROT_BOUNDS_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	18815	18911	
==>NST_TOO' : $self->{flags}{is_const} ?
	  'VTABLE_IS_CONST_FLAG' : 0;
    if (exists $self->{flags <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6799	6940	
==>do {
#DBG>					print STDERR "**End of Error recovery.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push(@$stack,[ $a <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6483	6617	
==>do {
#DBG>					print STDERR "**End of Error recovery.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push(@$stack,[ $a <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	14334	14430	
==>I codes (like 32) to the corresponding
character (like space, for 32).  Only characters 32 to 126 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2808	2926	
==>ue;
      $name =~ s/(^"|"$)//g;
    }

    $name =~ s/^.*:://; # Strip namespaces off ops.

    $compiler->emit("  $na <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614951	615064	
==>});\n    if (offset < 0) {\n        real_exception(interpreter, next, NO_CLASS,\n            \"Class not parent of <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616102	616215	
==>});\n    if (offset < 0) {\n        real_exception(interpreter, next, NO_CLASS,\n            \"Class not parent of <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14234	14336	
==>on case, at least

  DEBUG and print "Title0: <$title>\n";
  $title = rtf_esc($title);
  DEBUG and prin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712361	712458	
==>);\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713468	713565	
==>);\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60650	60868	
==>GS_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61300	61518	
==>GS_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	3547	3676	
==>mn'   , 177,
 'sup2'     , 178,
 'sup3'     , 179,
 'acute'    , 180,
 'micro'    , 181,
 'para'     , 182,
 'middot'   , 183,
 'c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411031	411271	
==>@1}} = (INTVAL)PIO_send(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411924	412164	
==>@1}} = (INTVAL)PIO_send(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	21162	21265	
==>$self->{No_Ending} = $no_ending;
    }
    return $self->{No_Ending};
}


=back

=head2 Output

Controll <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13028	13159	
==>->is_else) {
        $cont = $self->forth->text;
        $self->require_open_brace;
      }

      #
      # If we are not currently <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	7194	7337	
==>urn ( 'NUMBER', $1 . ( $3 || q{} ) );

            s/^\"//
                and return $parser->_DoubleQuoteStringLexer();

            s/^\ <==
3	/Users/nnunley/parrot/config/init/defaults.pm	4365	4469	
==>he system know about static/dynamic linking?
        has_static_linking => 1,
        has_dynamic_linking <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8490	8589	
==>to PARSE; }
	if ($type[CURR] eq 'COMM') {
		push @{$code{$seg}->{code}}, "\t# $syms[CURR]\n";
		goto <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612966	613057	
==>rc/ops/object.ops\"\n    VTABLE_set_attr_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613873	613964	
==>rc/ops/object.ops\"\n    VTABLE_set_attr_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    { <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	8453	8561	
==>)
#

sub WARNING
{
  my ($self, $format, @args) = @_;

  my $message = sprintf($format, @args);

  print STDE <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	542	638	
==>) to avoid the export because we have a stat() method.
use File::stat qw();

my %instance_for_pat <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	10742	10824	
==>air.pmc resizablebooleanarray.pmc resizablefloatarray.pmc resizableintegerarray.pmc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	652630	652831	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RESTART",
                  "NAME" => "find_method",
                  "FL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653790	653991	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RESTART",
                  "NAME" => "find_method",
                  "FL <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6728	6849	
==>} @_;

  return $self->forth;
}


#
# SKIPS:
#

sub skip_assign        { return shift->skip('assign');        }
sub skip_c <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	1912	1999	
==>ointer-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wno-unused -Wsi <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1277	1364	
==>ointer-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wno-unused -Wsi <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1281	1368	
==>ointer-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wno-unused -Wsi <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	6582	6684	
==>EXPORT = qw( plan run_command skip slurp_file );

use base qw( Exporter );

# tell parrot it's being te <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574561	574782	
==>6,
                  "ARGS" => [
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 249 \"src/ops/object.ops\"\n    {{\@1}} = pmc_new_init <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	2517	2628	
==>$where = $self->output_label_use($where);
    if ($cond eq '==') {
        return "eq $a, $b, $where";
    } els <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	23481	23578	
==>PConfig{blib_dir}.$PConfig{slash}.$PConfig{libparrot_static};

            my $libparrot = $PConfi <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7195	7314	
==>tions{reject})	       ? $options{reject}
		    :					 ''
		    ;
	my $ignore  = ref($options{ignore}) eq 'ARRAY' ? join( <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24197	24316	
==>tions{reject})	       ? $options{reject}
		    :					 ''
		    ;
	my $ignore  = ref($options{ignore}) eq 'ARRAY' ? join( <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	13607	13702	
==>accessor will C<croak> if this is not an appropriate object
reference.

If the element type does <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	956	1096	
==>f";

    $exit_code = Parrot::Test::run_command($cmd, CD => $self->{relpath},
                                           STDOUT => $out_f, ST <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	997	1137	
==>f";

    $exit_code = Parrot::Test::run_command($cmd, CD => $self->{relpath},
                                           STDOUT => $out_f, ST <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2047	2153	
==>f";

    $exit_code = Parrot::Test::run_command($cmd, #CD => $self->{relpath},
					   STDOUT => $out_f, ST <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	784	893	
==>b output_classmatch {
    my ($class) = @_;
    return "classmatch '$class'";
}

sub output_start {
    my ($n <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	927	1063	
==>ang_f'"; # JMG
        binmode LANG; # JMG
        print LANG $lang_code; # JMG
        close LANG; # JMG

        Parrot::Test::run_comm <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	839	975	
==>ang_f'"; # JMG
        binmode LANG; # JMG
        print LANG $lang_code; # JMG
        close LANG; # JMG

        Parrot::Test::run_comm <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	8697	8796	
==>~

sub get_title_short {  shift->get_short_title(@_)  } # alias

sub get_short_title {
  my $title = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450170	450460	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_abs",
                  "FLAGS" => ":b <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	8415	8536	
==>$ok = 1;
    my $idx = -@end_boilerplate;
    my $mismatch_at = 0;
    while ($idx < 0) {
        next unless defined $sou <==
3	/Users/nnunley/parrot/config/auto/memalign.pm	165	260	
==>m - Memory Alignment

=head1 DESCRIPTION

Determines if the C library supports C<memalign()>.

= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121965	122069	
==>n  /*\n   * lvalue casts are evil, but this one isn't evil enough to kill.\n   * it's just casting a sign <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122877	122981	
==>n  /*\n   * lvalue casts are evil, but this one isn't evil enough to kill.\n   * it's just casting a sign <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	98817	98904	
==>"BODY" => "#line 96 \"src/ops/bit.ops\"\n  {{\@1}}->vtable->i_bitwise_not(interpreter, { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	315820	316068	
==>_ovf",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 369,
                  "AR <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	5129	5317	
==>) {
            # skip the last line of the func or cpp directives.
            $f = undef if ($1 eq "}");
            next;
        }

        if (defined($f)) {
            # first line o <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	16784	16883	
==>mv, LOADREG => 'loadreg' }, "post_load for typed exception handler");
	$pir .= "### end post_load (t <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	7404	7508	
==>OAD_EXT", @sources)) {
        run(partial_link_cmd("$group$LOAD_EXT", $libs, \@sources))
          or di <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7615	7719	
==>OAD_EXT", @sources)) {
        run(partial_link_cmd("$group$LOAD_EXT", $libs, \@sources))
          or di <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	7036	7136	
==>ext_out;

    Test::report_failure($context, $got, $expected, $negate) unless $cond;

    return $con <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614192	614333	
==>ss( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "classoffset",
                  "FLAGS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615342	615483	
==>ss( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "classoffset",
                  "FLAGS <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	3072	3181	
==>} : tagged_op )
    my %labels; # { label string => tagged_op }
    foreach my $stmt (@output) {
	if ($stmt->{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286124	286545	
==>=> [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 333,
                  "ARGS" => [
                              "i",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#lin <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	17954	18065	
==>t a plan!  Gotta have a plan.");
    }

    lock($self->{Curr_Test});
    $self->{Curr_Test}++;

    $self->{Tes <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	18819	18930	
==>t a plan!  Gotta have a plan.");
    }

    lock($self->{Curr_Test});
    $self->{Curr_Test}++;

    $self->{Tes <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	25028	25162	
==>cific init code from the .pmc file
    $cout .= <<"EOC";
        /* class_init */
    $class_init_code
EOC

    # declare auxiliary var <==
3	/Users/nnunley/parrot/config/auto/readline.pm	1675	1793	
==>ild(); };
    my $has_readline = 0;
    if (!$@) {
	$has_readline = 1;
	print " (yes) " if $verbose;
	$self->set_result <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31059	31176	
==>$class = ref($_[0]) || $_[0];

	my $pattern = $_[1];
	$pattern =~ s#/#\\/#g;

	my $desc = $pattern;
	$desc=~s/\\/\\\\/ <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	13026	13127	
==><name>E<gt>>) like "eacute" or "sol"
to the string that each stands for.  Note that this does not
incl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600778	601101	
==>,
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 680,
                  "ARGS" => [
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 363 \"src/ops/ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8669	8750	
==>PHASERS","QUIT"
data "SHIELDS","SOS","SRSCAN","STATUS","TORPEDO","TRANSFER","VISUA <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21533	21614	
==>PHASERS","QUIT"
data "SHIELDS","SOS","SRSCAN","STATUS","TORPEDO","TRANSFER","VISUA <==
3	/Users/nnunley/parrot/lib/Test/More.pm	3275	3376	
==>have no plan.  (Try to avoid using this as it weakens your test.)

  use Test::More qw(no_plan);

B<NO <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	15209	15299	
==>load_func(Parrot_Interp interpreter)
{
    PMC *lib = pmc_new(interpreter, enum_class_Parro <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29178	29288	
==>],
		"line"        => $_[3],
		"description" => "'$desc'",
	}, $class;
}


sub code($$$$)
{
	my ($self, $namesp <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31278	31385	
==>],
		"line"      => $_[3],
		"description" => "'$desc'",
	}, $class;
}

sub code($$$$)
{
	my ($self, $namesp <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	101	197	
==>2:28:15.110975Z coke  $

=head1 NAME

config/inter/pmc.pm - PMC Files

=head1 DESCRIPTION

Asks t <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	10478	10591	
==>roto ($$) {
    my ($type, $parameters) = @_;

    # reduce to a comma separated set of types
    $parameters =~ s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188819	188913	
==>_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_CMP) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4 <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	1098	1190	
==>onstructor.

Accepts no arguments and returns a L<Parrot::Configure::Data> object.

=cut

sub <==
3	/Users/nnunley/parrot/tools/dev/manicheck.pl	342	440	
==>eck the MANIFEST file

=head1 SYNOPSIS

    % perl tools/dev/manicheck.pl

=head1 DESCRIPTION

Chec <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4910	5001	
==>pression::Value::Identifier->new($block, $self->require_ident);
      my $name = $ident->val <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7904	7995	
==>pression::Value::Identifier->new($block, $self->require_ident);
      my $name = $ident->val <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054088	1054326	
==>=> [
                              "p",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 182 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (PMC_IS_NU <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	9897	10016	
==>',
  113, 'q',
  114, 'r',
  115, 's',
  116, 't',
  117, 'u',
  118, 'v',
  119, 'w',
  120, 'x',
  121, 'y',
  122, 'z <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	2357	2454	
==>er code and passes the test
if a string comparison of the output with the unexpected result is fal <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	1922	2134	
==>YMBOLS => { },     # Identifiers
    CONTENT => [ ]      # Constructs
  }, $class;
}


###############################################################################

#
# ACCESSORS:
#

sub peer      { return shif <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149178	149270	
==>}->vtable->get_number(interpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150119	150211	
==>}->vtable->get_number(interpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}} <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	866	992	
==>ile
        open LANG, "> $lang_f" or die "Unable to open '$lang_f'"; # JMG
        binmode LANG; # JMG
        print LANG $lan <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	778	904	
==>ile
        open LANG, "> $lang_f" or die "Unable to open '$lang_f'"; # JMG
        binmode LANG; # JMG
        print LANG $lan <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	4436	4534	
==>ing left: opt(aR|aS|T|...) -> a opt(R|S) | opt(T|...)
        my $leftovers = $self->pass1(rop('alt <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	11966	12065	
==>$programs> may be either a scalar with the name of a single program or
an array ref of programs to s <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1171	1264	
==>arting with YY (leading YY will be discarded)
my(%params)=(YYLEX => 'CODE', 'YYERROR' => 'COD <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1129	1221	
==>arting with YY (leading YY will be discarded)
my(%params)=(YYLEX => 'CODE', 'YYERROR' => 'COD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	725527	725792	
==>UMP" => 0,
                  "NAME" => "clone",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726288	726553	
==>UMP" => 0,
                  "NAME" => "clone",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812736	813001	
==>UMP" => 0,
                  "NAME" => "clone",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7799	7939	
==>= @_;
    $reg = value($reg);
    return ("restore $reg");
}

sub output_refresh {
    my ($self, $reg) = @_;
    $reg = value($reg);
    ret <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8013	8133	
==>ut_popindex {
    my $self = shift;

    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_) <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7666	7786	
==>ut_popindex {
    my $self = shift;

    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_) <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	4152	4262	
==>print TEST <<'END';
#include <stdio.h>

int main() {
    long double foo;
    printf("%u", sizeof(foo));
    re <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	61513	61608	
==>cketed> attempted to match an embedded quoted substring, but
failed to find a closing quote to m <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1546	1644	
==>EE ALSO

`perldoc lib`

= AUTHOR

Stevan Little <stevan@iinteractive.com>

= COPYRIGHT

Copyright ( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	425352	425586	
==>O_accept(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	316332	316524	
==>on(1, \"Overflow exception for conv_u1_ovf\");\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	3784	3880	
==>use of this it is slow but it works without C-Code.
You should use C<Digest::MD5> instead of this <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478948	479204	
==>n  {{\@1}} = floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479840	480096	
==>n  {{\@1}} = floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1122	1218	
==>emit("${prefix}_REDO:");

    if ($self->content) {
      $compiler->emit(".namespace ${namespace <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3039	3150	
==>> "NREG(%ld)",
    'p'  => "PREG(%ld)",
    's'  => "SREG(%ld)",
    'k'  => "PREG(%ld)",
    'ki' => "IREG(%ld) <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2859	2970	
==>> "NREG(%ld)",
    'p'  => "PREG(%ld)",
    's'  => "SREG(%ld)",
    'k'  => "PREG(%ld)",
    'ki' => "IREG(%ld) <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1956	2063	
==>> "NREG(%ld)",
  'p'   => "PREG(%ld)",
  's'   => "SREG(%ld)",
  'k'   => "PREG(%ld)",
  'ki'  => "IREG(%ld) <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	71896	72013	
==>0,1);
				}
			}
		}

	# CHECK FOR LEFT RECURSION

		if ($rule->isleftrec($rules))
		{
			_error("Rule \"$rule->{name} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822330	822417	
==>entry->entry_type != STACK_ENTRY_INT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823398	823485	
==>entry->entry_type != STACK_ENTRY_INT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \" <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	40297	40406	
==>_content[0])
         and $ell_content[0] =~ m/^[-a-zA-Z0-9]+\([-a-zA-Z0-9]+\)$/s
      ) {
        $ell->[1]{ <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1056	1156	
==>my $path_to_parrot = Parrot::Test::path_to_parrot();
        my $dir_count      = scalar(File::Spec-> <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1546	1641	
==>my $path_to_parrot = Parrot::Test::path_to_parrot();
        my $dir_count = scalar(File::Spec-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627510	627782	
==>eter, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628654	628926	
==>eter, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	2278	2384	
==>);
    $f_code = File::Spec->rel2abs( $f_code );

    return( $next_test_num, $f_out, $f_code );
}


sub _g <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	14731	14883	
==>p/;

        if ($body =~ s/\brestart\s+OFFSET\((.*?)\)/{{=0,+=$1}}/mg)
        {
            $branch = 1;
            $restart = 1;
        }
        el <==
3	/Users/nnunley/parrot/lib/Test/More.pm	28284	28404	
==>_);
}

sub _eq_array  {
    my($a1, $a2) = @_;

    if( grep !_type($_) eq 'ARRAY', $a1, $a2 ) {
        warn "eq_array p <==
3	/Users/nnunley/parrot/tools/docs/pod_errors.pl	308	407	
==>is script reports on any POD errors found in the files.

=cut

use lib 'lib';
use Parrot::Docs::Dire <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	14300	14418	
==>my $source = shift;
    my $target = shift;
    my $rel_path = shift;
    my $item = shift;
    my $file = $source->fil <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	1326	1436	
==>/POD2HTML.pm'),
            $self->new_item('', 'lib/Parrot/Docs/HTMLPage.pm'),
            $self->new_item('', <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	1230	1328	
==>n, they are C<AND>ed.
They can also be negated with a "no", for example C<--noconst>.

=over 4

=it <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672962	673168	
==>}} = {{\@2}}->vtable->pop_integer(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7741	7858	
==>if @stack and $stack[-1] eq 'text';
        }
        print $fh $self->{'Tagmap'}{$tagname} || next;
        ++$dont_w <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	18228	18330	
==>/
    if (2 == signature_len && 'v' == string_index(interpreter, signature, 1)) {
       Parrot_warn(in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509013	509215	
==>src/ops/math.ops\"\n  {{\@1}} = - {{\@1}};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509644	509846	
==>src/ops/math.ops\"\n  {{\@1}} = - {{\@1}};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2204	2297	
==>c'  => "CONST(%ld)->u.key",
  'kic' => "cur_opcode[%ld]"
);

=item C<access_arg($type, $value, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718097	718321	
==>VAL){{\@2}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719029	719253	
==>VAL){{\@2}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629644	629768	
==>n            \"Class '%Ss' not found\", class);\n  {{\@1}} = pmc_new(interpreter, type);\n  {{+=3}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	5590	5748	
==>defined $arrays{$name} ){
                $out .= "    my \$i;\n";
                $out .= "    \@_ ? (\$i = shift) : return \$r->$elem;\n"; 
                $ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	439	556	
==>ed
				&extract_multiple

				&gen_delimited_pat
				&gen_extract_tagged

				&delimited_pat
			       ) ] );

Exporte <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	3594	3691	
==>ese are the full paths of all the files and subdirectories in the directory.

=cut

sub file_and_d <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1578	1677	
==>'' }

sub start_Verbatim    { $_[0]{'Thispara'} = ''   }
sub start_item_bullet { $_[0]{'Thispara'} = <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1108	1207	
==>'' }

sub start_Verbatim    { $_[0]{'Thispara'} = ''   }
sub start_item_bullet { $_[0]{'Thispara'} = <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	1347	1440	
==>g comparison
of the output with the expected result it true.

=item C<language_output_like( $l <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1597	1800	
==>N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
print "Elapsed time:  $N2\n"; # print  "Elapsed t <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	1597	1800	
==>N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
print "Elapsed time:  $N2\n"; # print  "Elapsed t <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1227	1353	
==>e it.
  }

  return bless $new, $class;
}

# Not much in this class is likely to be link-section specific --
# but it just so h <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	42283	42425	
==>=> 84,
			">" => 86
		}
	},
	{#State 183
		ACTIONS => {
			'END' => 194
		}
	},
	{#State 184
		DEFAULT => -29
	},
	{#State 185
		A <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	8173	8276	
==>itations on what a target name can be?
    $this->{'accept_targets'}{$t} = $type;
    DEBUG > 2 and prin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035323	1035435	
==>],
                  "BODY" => "#line 64 \"src/ops/var.ops\"\n    parrot_context_t * const ctx = CONTEXT(interpre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036487	1036599	
==>],
                  "BODY" => "#line 64 \"src/ops/var.ops\"\n    parrot_context_t * const ctx = CONTEXT(interpre <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	167	274	
==>my $parrot = $ARGV[0];

if ($parrot eq '-h') {
    print "kate_syntax.pl\n\n",
        "Create Kate syntax h <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	5099	5257	
==>> undef,
             'i_setjmp' => 'define',
             'i_sfio' => undef,
             'i_sgtty' => undef,
             'i_shadow' => undef,
             ' <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2903	3018	
==>= @_;
	my $register_num = 0;
	my $push_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1825	1940	
==>= @_;
	my $register_num = 0;
	my $push_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	7170	7286	
==>= fact $I2
    $N3 = fact $I3

    $N2 /= $N3 
    $N2 /= $N1 
    .return($N2)
.end

.sub unicode:"dyadic:\u2373" :m <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2127	2220	
==>n}; # returns undef if unknown
  }
}

#------------------------------------------------------- <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2592	2685	
==>n}; # returns undef if unknown
  }
}

#------------------------------------------------------- <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	14687	14831	
==>args = qq{$args -o "$pbc_f"};

                    # In this case, we need to execute more than one
                    # command. Instead of a s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	31927	32027	
==>C * const cc = CONTEXT(interpreter->ctx)->current_cont;\n    PMC *sig = NULL;\n    if (cc && PMC_cont <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7145	7235	
==>ms[CURR]=~s/^\n|\n$//gm;
		push @{$code{$seg}->{code}}, "\t#\n\t# User-included assembly\n$ <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	1837	2045	
==>.pl',
        commentType                             => '#',
        replace_slashes                         => 0,
        conditioned_lines                       => 1
    );
    genfile(
        'config/gen/ <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	1579	1784	
==>.pl',
        commentType                             => '#',
        replace_slashes                         => 0,
        conditioned_lines                       => 1
    );
	genfile(
        'config/gen/ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	44961	45070	
==>$ACTION		= '\G\s*\{';
my $IMPLICITSUBRULE	= '\G\s*\(';
my $COMMENT		= '\G\s*(#.*)';
my $COMMITMK		= '\G\s*<com <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	10524	10625	
==>b output_rule_def {
    my ($self, $name, $L_trymatch, $L_backup, $num_groups, $startup) = @_;

    my <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	10116	10216	
==>b output_rule_def {
    my ($self, $name, $L_trymatch, $L_backup, $num_groups, $startup) = @_;
    my <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760598	760688	
==>=> "#line 286 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}}->vtable->get_pmc(interpreter, {{\@2} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037337	1037696	
==>" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1159,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 115 \ <==
3	/Users/nnunley/parrot/config/gen/platform.pm	486	603	
==>orm files into place';
our @args        = qw(miniparrot verbose);

sub runstep {
    my ($self, $conf) = @_;

    my $ <==
3	/Users/nnunley/parrot/lib/Parrot/PMC.pm	895	994	
==>tList => 39,
	Iterator => 40,
	SArray => 41,
	ConstSArray => 42,
	FixedStringArray => 43,
	MultiArra <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225495	225607	
==>able->get_number(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226436	226548	
==>able->get_number(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	61	177	
==>rt {
  my($value,$variable);
  
  if(@_ == 2) {
    $value = $_[1];
  } elsif(@_ == 3) {
    ($variable, $value) = @_ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3252	3353	
==>oup_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    while (m <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3356	3457	
==>oup_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    while (m <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	5588	5706	
==>f->{'source_scalar_ref'} } =~
        m/([^\n\r]*)((?:\r?\n)?)/g
      ) {
        #print(">> $1\n"),
        $self->SU <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1802	1906	
==>formal_args), scalar(@args), $name)
    unless @formal_args == @args;

  for (my $i = 0; $i < @args; $i++ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1502	1606	
==>formal_args), scalar(@args), $name)
    unless @formal_args == @args;

  for (my $i = 0; $i < @args; $i++ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	563	666	
==>ss UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');

  my $self = bless {
    B <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	638	741	
==>ss UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');

  my $self = bless {
    B <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	638	741	
==>ss UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');

  my $self = bless {
    B <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	21430	21524	
==>($_[0],'{}','') },
];

sub extract_multiple (;$$$$)	# ($text, $functions_ref, $max_fields, $ign <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654250	654503	
==>> 731,
                  "ARGS" => [
                              "p",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 292 \"src/ops/pmc.ops\"\n    opcode_t * resume <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2846	2955	
==>el code"
   END
Sub1:
   PRINT "2 in subroutine one"
   GOSUB Sub2
   PRINT "ERR this line in subroutine one s <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16813	16922	
==>el code"
   END
Sub1:
   PRINT "2 in subroutine one"
   GOSUB Sub2
   PRINT "ERR this line in subroutine one s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263435	263547	
==>8 \"src/ops/cmp.ops\"\n    if ({{\@2}} == {{\@3}})\n        {{\@1}} = 0;\n    else\n        {{\@1}} = !VTABLE_is_ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	37103	37202	
==>ng to be processed (C<$_> if the string is omitted or C<undef>)

=item 2.

A string specifying a pat <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3523	3647	
==>rary $group --c " . join(" ",@pmcfiles))
              or die "pmc2c library creation failed ($?)\n";
        }
    }
} 
elsi <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3627	3751	
==>rary $group --c " . join(" ",@pmcfiles))
              or die "pmc2c library creation failed ($?)\n";
        }
    }
} 
elsi <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	3646	3739	
==>rrot Bytecode and passes the test if output matches the expected
result.

=item C<pbc_output_i <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4452	4625	
==>/
        	and     do {
                	s/^#DBG>//;
                	push(@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#No <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4230	4391	
==>/
        	and     do {
                	s/^#DBG>//;
                	push(@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#No <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	9216	9336	
==>ber of args required
for this builtin.

=cut

sub num_args {
    my @args = @_;

    my $min = my $max = @args;

    my $ <==
3	/Users/nnunley/parrot/examples/benchmarks/shared_ref.pl	396	521	
==>eads::shared;

for my $i (0..99_999) {
    my $r :shared;
    my $j :shared;
    $r = \$j;
    $$r = $i;
}

=head1 SEE ALSO

F <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	6661	6759	
==>rrent node (NOT for this node and everything following it)
#  follow_min - The minimum number of at <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2329	2423	
==>pression involves unknown variable %s.", $right->value) unless $right_sym;
    $right_type = $r <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2287	2381	
==>pression involves unknown variable %s.", $right->value) unless $right_sym;
    $right_type = $r <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2209	2303	
==>pression involves unknown variable %s.", $right->value) unless $right_sym;
    $right_type = $r <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	438	540	
==>ges;

use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new s <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19351	19449	
==>false, DO_$do->{jump}";
		}
		push @{$code{$seg}->{code}}, "\t$_\n";
	} else {
		push @{$code{$seg} <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	5946	6044	
==>nc_decl($base);
    print HEADER "$run_core_func;\n";
}
my $bs = "${base}${suffix}_";

print SOURCE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84931	85206	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85837	86112	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	418	518	
==>::Configure::Step qw( :inter capture_output check_progs );

$util        = 'yacc';
$description = "De <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22076	22195	
==>ck: "
          . $self->_dump_curr_open() . ')'
        );
        DEBUG and print "Ignoring mistargetted =end $content <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22405	22524	
==>ck: "
          . $self->_dump_curr_open() . ')'
        );
        DEBUG and print "Ignoring mistargetted =end $content <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22786	22905	
==>ck: "
          . $self->_dump_curr_open() . ')'
        );
        DEBUG and print "Ignoring mistargetted =end $content <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2325	2430	
==>emit_par(-2) }
sub end_head4       { $_[0]->emit_par(-1) }
sub end_Para        { $_[0]->emit_par( 0) }
sub <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1893	1998	
==>emit_par(-2) }
sub end_head4       { $_[0]->emit_par(-1) }
sub end_Para        { $_[0]->emit_par( 0) }
sub <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3564	3663	
==>ut_label_use($dest) . " unless $reg;";
}

sub output_check {
    my ($self, $needed, $failLabel, $le <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	47697	47830	
==>], $_[2], $_[3], $_[6] );
        }
	],
	[#Rule 19
		 'stat', 4,
sub
#line 128 "Lua\lua51.yp"
{
            BuildIf( $_[0], $_ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20728	20852	
==>$_[0]) || $_[0];
	bless 
	{
		"code"      => $_[1],
		"lookahead" => $_[2],
		"line"      => $_[3],
	}, $class;
}

sub issubr <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2138	2241	
==>the corresponding method name will have a underscore
in its place.  For example, "foo.bar:baz" becomes s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035456	1035551	
==>NG * const lex_name = {{\@2}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036620	1036715	
==>NG * const lex_name = {{\@2}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name, <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30877	30990	
==>for rule $rule->{'name'}");
		$pir .= "### end post_load\n";

        # Emit code to clone value types for the nee <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20886	20981	
==>oit(4).first

' ADD bug, Return OK
function foo$
	foo$="Return OK"
	a$="Blah"
end function
print <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1336	1425	
==>ol->new($self, 'local', 'arg', $arg_type, $arg_name, undef, undef, undef, $arg_token->file <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2811	2987	
==>urn bless([ 'label', "\@$name$number" ], 'asm_op');
}

############################################################################
# OPTIMIZATION INFORMATION
#
# All of this is <==
3	/Users/nnunley/parrot/config/init/optimize.pm	1295	1436	
==>$opts);
            # record what optimization was enabled
            $conf->data->set(optimize => $opts);
        } else {
            # use <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	922826	922915	
==>et_string_native(interpreter, {{\@1}},\n        Parrot_psprintf(interpreter, {{\@2}}->vtab <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409291	409595	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "recv",
                  "FLAGS" => ":base <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322310	322398	
==>ODY" => "#line 134 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (UINTVAL)((Parrot_UInt4)({{\@2}})) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323082	323170	
==>ODY" => "#line 134 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (UINTVAL)((Parrot_UInt4)({{\@2}})) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327131	327383	
==>er, {{\@1}}, (INTVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327933	328185	
==>er, {{\@1}}, (INTVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	2542	2678	
==>group(
            'General', 
            '',
            $self->c_source_item('This file is unused.', 'parrot'),
            $self->c_h <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1944	2058	
==>arget . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/include' . $PATHQUOTE . " " .
        "-I" . $PATH <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2240	2354	
==>arget . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/include' . $PATHQUOTE . " " .
        "-I" . $PATH <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2035	2149	
==>arget . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/include' . $PATHQUOTE . " " .
        "-I" . $PATH <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10396	10485	
==>}[${ITEMP2}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP3}["reg_type_short"]
${STEMP0} = concat ${ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7780	7869	
==>}[${ITEMP2}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP3}["reg_type_short"]
${STEMP0} = concat ${ <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	7432	7559	
==>ilib_link_extra    => 'src/libnci_test.def',
            sym_export           => '__declspec(dllexport)',
            sym_import <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1485	1575	
==>STEMP0} = concat ${STEMP1}
${STEMP1} = "$register_num"
${STEMP0} = concat ${STEMP1}
${STACK <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3195	3285	
==>STEMP0} = concat ${STEMP1}
${STEMP1} = "$register_num"
${STEMP0} = concat ${STEMP1}
${STACK <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3419	3517	
==>his is wrong"
	t=t+1
loop until t>1

' Mathmagic
dim m(1), ba(1)
fa=-1
m0=48100
m=48000
w=-19
t=3
m <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	1136	1229	
==>ctions{$direction} or die "Invalid direction '$direction'";
    print "$action $filename\n" if <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41115	41226	
==>' . $op->code(@_[1..2]) . '
			$savetext = $text;
			' . ($op->isterminal() ? 'pop @item;' : "" ) . '
			' . (re <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	577	684	
==>lazy_moves {
    my $suffix = shift || "";  
    my $pir = <<'PIR';
${ITEMP0} = elements lazy_moves
${ITEMP1 <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12329	12425	
==>>

Returns the path to the Perl module's HTML file relative to the current
documentation page. Cu <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	13701	13847	
==>in         math.h
sinf        math.h
sinh        math.h
sinhf       math.h
sinhl       math.h
sinl        math.h
sprintf     stdio.h
sqrt        ma <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39370	39492	
==>$result,
    );
    push @opcodes1, new ConstDir( $parser,
        'result' => $fct,
        'arg1'   => $fct->{symbol} <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	991	1086	
==>MAND-LINE OPTIONS

=over 4

=item C<--debug>

Increase debug level

=item C<--verbose>

Increase <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5707	5832	
==>quire "$pmc.dump";
 
        # there can be many libs
        my %libs = %{ $class->{flags}{lib} || {} };
        $pmc_libs{$p <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5918	6043	
==>quire "$pmc.dump";
 
        # there can be many libs
        my %libs = %{ $class->{flags}{lib} || {} };
        $pmc_libs{$p <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	15216	15313	
==>o 100.0 sec and $t->ru_stime to 5.0 sec.
    $t->ru_utime->tv_secs(100);
    $t->ru_utime->tv_usec <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27653	27761	
==>'if':'unless')
		. ' ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and '
		. ($check->{itempos}? 'do {'.Parse::R <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29763	29871	
==>'if':'unless')
		. ' ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and '
		. ($check->{itempos}? 'do {'.Parse::R <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31860	31968	
==>'if':'unless')
		. ' ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and '
		. ($check->{itempos}? 'do {'.Parse::R <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387369	387541	
==>c",
                              "i"
                            ],
                  "BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interprete <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388501	388673	
==>c",
                              "i"
                            ],
                  "BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interprete <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	5911	6001	
==>[^\\$1]*(?:\\.[^\\$1]*)*(\Q$1\E)/gsc and next;
			_failmsg "Unmatched embedded quote ($1)", <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1979	2171	
==>$N1 / $N2;              # div    N1, N1, N2
$N2 = 1000000.0;              # set    N2, 1000000.0
$N1 = $N1 / $N2;              # div    N1, N1, N2
                              #
print "M op/s: <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	1979	2171	
==>$N1 / $N2;              # div    N1, N1, N2
$N2 = 1000000.0;              # set    N2, 1000000.0
$N1 = $N1 / $N2;              # div    N1, N1, N2
                              #
print "M op/s: <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1057	1154	
==>~

sub handle_text {  $_[0]{'Errata_seen'} and $_[0]{'Thispara'} .= $_[1] }

sub start_Para  {  $_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408300	408540	
==>} = (INTVAL)PIO_connect(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409199	409439	
==>} = (INTVAL)PIO_connect(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	3513	3622	
==>| goto | gosub | return  | sub | call | select | case |
		read | restore | input | open | close | on | randomi <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	17276	17387	
==>($n, $c, $cmt) = @_;
    inplace('+', $cmt);
}
sub INPLACE_SUBTRACT
{
    my ($n, $c, $cmt) = @_;
    inplace('- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78296	78624	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlvar",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79816	80144	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlvar",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	2404	2520	
==>ut

sub process_start_token
{
    my $self = shift;
    my $token = shift;
    my $tagname = $token->tagname;

    if <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2336	2446	
==>xists $main::common{$var}) {
					push(@saves, $var);
				}
			}
			if (@saves) {
				$edit.=qq{\tfind_global _ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2745	2855	
==>xists $main::common{$var}) {
					push(@saves, $var);
				}
			}
			if (@saves) {
				$edit.=qq{\tfind_global _ <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	149	244	
==>nd_skip.pl - Recreate MANIFEST and MANIFEST.SKIP

=head1 SYNOPSIS

    % perl tools/dev/mk_manif <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934201	934456	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":base_core",
                  "A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934976	935231	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":base_core",
                  "A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819408	819581	
==>",
                              "i"
                            ],
                  "BODY" => "#line 79 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n    stack_en <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1824	1907	
==>=~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuv <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1927	2010	
==>=~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuv <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5542	5643	
==>ub gather_groups_and_libs {
    my @pmcs = @_;

    my ( %group_files, %group_libs, %pmc_group, %pmc_l <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5753	5854	
==>ub gather_groups_and_libs {
    my @pmcs = @_;

    my ( %group_files, %group_libs, %pmc_group, %pmc_l <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	171	269	
==>c.pl - Parser for .ops files

=head1 SYNOPSIS

    % perl tools/build/ops2c.pl trans [--help] [--no <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	8605	8726	
==>{ $type };

    return $typemap{ $type };
}

sub parse_params
{
    my $params = shift;

    my @params;

    while ($para <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	4449	4543	
==>('', 'set',[$return,$value]);
    }
    elsif ($value =~ /^[-+]?((\d+\.\d*)|(\.d+))([eE][-+]?\d <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3468	3559	
==>('', 'set', [$return,$value]);
  }
  elsif ($value =~ /^[-+]?((\d+\.\d*)|(\.d+))([eE][-+]?\d <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670626	670716	
==>ps/pmc.ops\"\n    {{\@1}}->vtable->push_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671399	671489	
==>ps/pmc.ops\"\n    {{\@1}}->vtable->push_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436533	436674	
==>tch_p_psp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437548	437689	
==>tch_p_psp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	22619	22726	
==>ag($msg);

    return 0;
}

=begin _private

=item B<_print>

    $Test->_print(@msgs);

Prints to the outpu <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	3137	3269	
==>d $smoke{osname}       = $1;
  $html =~ /cc: ([\w\d]+)/         and $smoke{cc}           = $1;
  $html =~ /DEVEL: -?(\w+)/        and <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	610	711	
==>d $left;
  confess "Op is not defined!" unless defined $op;
  confess "Right is not defined!" unless d <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	622	723	
==>d $left;
  confess "Op is not defined!" unless defined $op;
  confess "Right is not defined!" unless d <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	2458	2664	
==>compile.

=head1 SEE ALSO

F<tools/dev/mk_manifests.pl>

=cut

################################################################################

use File::Basename qw(dirname basename);
use File::Copy;
use F <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	1733	1857	
==>el]doc
    examples/sdl/anim_image.pir                     [devel]
    examples/sdl/anim_image_dblbuf.pir              [devel <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	164	263	
==>o C Code Generation

=head1 SYNOPSIS

    use Parrot::Pmc2c;

=head1 DESCRIPTION

C<Parrot::Pmc2c> ( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471128	471228	
==>ne 394 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472115	472215	
==>ne 394 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473102	473202	
==>ne 394 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_exception(interpr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13109	13253	
==>e;
      }

      #
      # If we are not currently 'inside' a block, then we've got no business
      # seeing a close-brace.
      #

      $se <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35799	35896	
==>g (or extras)
will be considered failures.  If no tests were ever run Test::Builder
will throw a w <==
3	/Users/nnunley/parrot/lib/Test/More.pm	33870	33967	
==>g (or extras)
will be considered failures.  If no tests were ever run Test::Builder
will throw a w <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407473	407796	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "connect",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408371	408694	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "connect",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912758	913022	
==>" => [
                              "i",
                              "s",
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523763	524014	
==>> 604,
                  "ARGS" => [
                              "n",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 744 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1881	1992	
==>ry string register

    $compiler->emit("  $temp = \"\"");

    while (1) {
      last unless defined $string an <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2148	2241	
==>meE<gt>.c and pmc_E<lt>libnameE<gt>.h if his object
represents a named library.

=cut

sub wri <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349302	349525	
==>new(interpreter, enum_class_Undef);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350304	350527	
==>new(interpreter, enum_class_Undef);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/config/auto/alignptrs.pm	845	952	
==>self->set_result("configured: ");
    } elsif ($^O eq 'hpux' && $Config{ccflags} !~ /DD64/) {

        # HP- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819629	819724	
==>r_stack, {{\@2}});\n\n  if (!entry) {\n    internal_exception(99, \"Stack Depth wrong\");\n  }\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820589	820684	
==>r_stack, {{\@2}});\n\n  if (!entry) {\n    internal_exception(99, \"Stack Depth wrong\");\n  }\n <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	12433	12523	
==>::Tree::atend::render { '$' }

sub Regex::Ops::Tree::check::needparen { 0 }
sub Regex::Ops: <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23818	23925	
==>self->describe . ')},
					 Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	2427	2588	
==>d -e cp',
             'cpuarch' => 'ppc',
             'cxx' => '',
             'darwin' => 1,
             'debugging' => 1,
             'doc_dir' => '/opt/lo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349126	349215	
==>h = string_to_cstring(interpreter, {{\@2}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350128	350217	
==>h = string_to_cstring(interpreter, {{\@2}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, pa <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	2041	2162	
==>my $name (@{$contents{'headers'}})
        {
            push @contents,
                $dist->relative_path($dist->c_hea <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146360	146453	
==>ispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_EQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167586	167679	
==>ispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_EQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n" <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	10322	10450	
==>1 and print " Setting encoding to $e\n";
      $self->{'encoding'} = $e;
      1;
    }
    and $e eq 'HACKRAW'
  ) {
    DEBUG a <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	600	689	
==>RSAL::isa($block, 'Jako::Construct::Block');
  confess "Ident is not!" unless UNIVERSAL::i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	488	577	
==>RSAL::isa($block, 'Jako::Construct::Block');
  confess "Ident is not!" unless UNIVERSAL::i <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	11642	11771	
==>StringArray Slice Super Undef',
             'pod' => undef,
             'prefix' => '/opt/local',
             'ptr_alignment' = <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	15337	15460	
==>}/mg;

        my $file_escaped = $file;
        $file_escaped =~ s|(\\)|$1$1|g; # escape backslashes
        $op->body( $no <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	7300	7510	
==>\d+)		# 10 duration
               --(\d+)		# 11	total
                -(\d+)		# 12	ok
                -(\d+)		# 13	failed
                -(\d+)		# 14	todo
                -(\d+)		# 15	skipped
                - <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600108	600202	
==>e_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601184	601278	
==>e_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4738	4870	
==>hile (1) {
        $parser->YYData->{INPUT}
            or $parser->YYData->{INPUT} = readline $parser->YYData->{fh}
            o <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	5649	5781	
==>hile (1) {
        $parser->YYData->{INPUT}
            or $parser->YYData->{INPUT} = readline $parser->YYData->{fh}
            o <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	6107	6239	
==>hile (1) {
        $parser->YYData->{INPUT}
            or $parser->YYData->{INPUT} = readline $parser->YYData->{fh}
            o <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	630	734	
==>f->prefix;
  }
  else {
    $prefix = $self->peer ? $peer->prefix : $compiler->block_label($kind);
    $s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	610	714	
==>f->prefix;
  }
  else {
    $prefix = $self->peer ? $peer->prefix : $compiler->block_label($kind);
    $s <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	3515	3621	
==>ile with the specified name.

=cut

sub c_header_file_with_name
{
    my $self = shift;
    my $name = shif <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	67	161	
==>-02-01T20:44:27.448243Z bernhard  $

package Parrot::Test::Bc::Antlr2;

use strict;

use base ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	4831	4924	
==>ethods

=over 4

=item C<read_ops($file,$nolines)>

Reads in the specified .ops file, gatherin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	28583	28820	
==>};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS",
                  "NAME" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	37564	37801	
==>};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS",
                  "NAME" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	624069	624306	
==>};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS",
                  "NAME" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017415	1017700	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "gmtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "func <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018339	1018624	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "gmtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "func <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	39725	39839	
==>rywhere, and 8th wins.
              s/^([^\t]*)(\t+)/$1.(" " x ((length($2)<<3)-(length($1)&7)))/e
            ) { <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	22298	22413	
==>rm = shift;
	my $rule = shift;
	my $mv = shift;
	my @localmv = ();
	my $pir = "";
	
	# Make current instruction code <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544343	544462	
==>=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545679	545798	
==>=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547015	547134	
==>=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while(a>0) {\n   if      (!(a & 1)) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186015	186142	
==>ps\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186945	187072	
==>ps\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187875	188002	
==>ps\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	1565	1667	
==>=item * It would be nice to have a ParrotSourceFile class of course. ;)
(a jest - sort of.)

=item * Mi <==
3	/Users/nnunley/parrot/tools/dev/pbc_header.pl	1579	1681	
==>die "Can't open $f: $!";
	my $header;
	read F, $header, 16;
	my (@fields) = qw( wordsize byteorder majo <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	26945	27092	
==>o integer;
        $para->[1]{'indent'} = $1;
        if($1 == 0) {
          $self->whine(
            $para->[1]{'start_line'},
            "Can't <==
3	/Users/nnunley/parrot/config/init/hints/aix.pm	110	220	
==>10975Z coke  $

package init::hints::aix;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    $conf->d <==
3	/Users/nnunley/parrot/languages/converter.pl	1075	1178	
==>'[' production ']' production(?)
#		{[@item]}
		{ $return = '';
		  $return .= $item[1][0] if defined $i <==
3	/Users/nnunley/parrot/config/gen/revision.pm	185	281	
==>sion

=head1 DESCRIPTION

Determines parrot's SVN revision.  In a release, there are no .svn dire <==
3	/Users/nnunley/parrot/lib/Test/More.pm	2022	2134	
==>_name );
      is( foo(42), 23, $test_name );
  };

  can_ok($module, @methods);
  isa_ok($object, $class);

  pa <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3104	3212	
==>l.exe.
        # This makes 'link' and 'ld' the same.
        $conf->data->set(link => $conf->data->get('ld') <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4608	4716	
==>l.exe.
        # This makes 'link' and 'ld' the same.
        $conf->data->set(link => $conf->data->get('ld') <==
3	/Users/nnunley/parrot/tools/build/vtable_extend.pl	2291	2395	
==>he calls into the interpreter, as it declares a variable
   and has some code.

   PARROT_CALLIN_END(inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216926	217018	
==>({{\@1}}->vtable->get_number(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217866	217958	
==>({{\@1}}->vtable->get_number(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  { <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	2105	2227	
==>cs;

    # If it's got a semicolon, it's not a function header
    @funcs = grep !/;/, @funcs;

    chomp @funcs;

    retu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567508	567596	
==>bject.ops\"\n  {{\@1}} = {{\@2}}->vtable->does(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568403	568491	
==>bject.ops\"\n  {{\@1}} = {{\@2}}->vtable->does(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	512607	512896	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_neg",
                  "FLAGS" => ":base_core",
                  "AR <==
3	/Users/nnunley/parrot/lib/Test/More.pm	7899	8011	
==>it failed.  For example this
test:

    my $foo = 'waffle';  my $bar = 'yarblokos';
    is( $foo, $bar,   'Is foo <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	39609	39714	
==>shift;
	my $mv = shift;

	# Loop over keys to look for automagicals and build up declaration list.
	my $de <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3856	3968	
==>ROUP.c
    for my $group (keys %$group_files) {
        compile("$group", "lib-$group")
          or die "compile <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3960	4072	
==>ROUP.c
    for my $group (keys %$group_files) {
        compile("$group", "lib-$group")
          or die "compile <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	328	421	
==>ng Parrot's project info.

=head2 Class Methods

=over

=cut

package Parrot::Docs::Section::I <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	1594	1691	
==>cpcf_op = 'Parrot_jit_cpcf_op';
    $restart_op = 'Parrot_jit_restart_op';
    %argmaps = %Parrot: <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	13284	13373	
==>e2character_number{I<name>}

Maps from names (as in C<EE<lt>I<name>E<gt>>) like "eacute" o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94978	95242	
==>_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95871	96135	
==>_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96764	97028	
==>_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	1146	1283	
==>n            the argument passes a value into the op
    out           the argument passes a value out of the op
    inout         the arg <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5435	5532	
==>eqnum}_end: noop
CODE
	},
	'eqv' => sub {
		my($a1,$a2,$result,$op,$ot1,$ot2)=@_;
		$result=~s/S/N <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	1010	1107	
==>DE ".sub $seg\n";
	if (exists $code{$seg}->{declarations}) {
		print CODE <<'END_PIR';

	.local pm <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	3593	3714	
==>turn shift->is('var');           }
sub is_while         { return shift->is('while');         }

sub is_loop_control  { ret <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31482	31575	
==>the output file we are
generating.

Overrides the default implementation to direct all unknown <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40102	40195	
==>the output file we are
generating.

Overrides the default implementation to direct all unknown <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527139	527427	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527892	528180	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGD <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	1029	1125	
==>ted
are used) is:

    source_path <whitespace> [package]meta1,meta2,...

or you may optionally s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1213	1324	
==>espace}");
      $compiler->indent;
      $self->SUPER::compile($compiler);
      $compiler->outdent;
      $com <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	621	724	
==>espace}");
    $compiler->indent;
    $self->SUPER::compile($compiler);
    $compiler->outdent;
    $com <==
3	/Users/nnunley/parrot/config/auto/perldoc.pm	355	443	
==>ot::Configure::Step::Base);

use Parrot::Configure::Step ':auto', 'capture_output';

$des <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	948	1060	
==>o::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block,

    DEST  => $dest,
    LEFT  => $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	939	1051	
==>o::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block,

    DEST  => $dest,
    LEFT  => $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	828	940	
==>o::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block,

    DEST  => $dest,
    LEFT  => $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	19368	19473	
==>ering children of this $treelet->[0] node...\n";
    for($i = 2; $i < @$treelet; ++$i) { # iterate over ch <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	22011	22116	
==>ering children of this $treelet->[0] node...\n";
    for($i = 2; $i < @$treelet; ++$i) { # iterate over ch <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11182	11282	
==>t> sequences

=head1 SYNOPSIS

  use Pod::Escapes qw(e2char);
  ...la la la, parsing POD, la la la... <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	256	352	
==>08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block::Loop:: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	250	346	
==>08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block::Loop:: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	250	346	
==>08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block::Loop:: <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	29972	30071	
==>ODO in.  It
uses the exported_to() package to find it.  If that's not set, it's
pretty good at guess <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	1391	1484	
==>isting a ui
consistency violation?

=item * Fragment describe_file() - it shouldn't both `cat` <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	15923	16015	
==>tref) unless @match;
	return _succeed($wantarray, $textref,
			$match[2], $match[18]-$match[2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5475	5731	
==>s */\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "load_bytecode",
                  "FL <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	11065	11186	
==>f and nothing else
        my $test = !defined $got && !defined $expect;

        $self->ok($test, $name);
        $self-> <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	11483	11604	
==>f and nothing else
        my $test = !defined $got && !defined $expect;

        $self->ok($test, $name);
        $self-> <==
3	/Users/nnunley/parrot/languages/regex/test.pl	547	665	
==>g, $status) = @_;
    $status = 1 if ! defined $status;

    print $msg . "\n" if $msg;

    print <<"END";
Usage: $0 [ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	29330	29476	
==>odo
        actual_ok => 0,   # in absolute terms, it failed
        name      => 'hole count',
        type      => 'todo',
        reason    => ' <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	867	965	
==>ot against other interpreters.

=head1 CONFIGURATION

You must specify paths to executables in a co <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29310	29453	
==>,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86
		},
		DEFAULT => -112
	},
	{#State 91
		ACTIONS => {
			" <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5313	5440	
==>r = l_ops_addr;
    if (cur_opcode == 0) {
	union {
	    const void * __c_ptr;
	    void * __ptr;
	} __ptr_u;
        return (op <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	1685	1807	
==>h($dist->c_header_file_with_name($name));
        }
    }
    
    if ( exists $contents{'sources'} )
    {
        foreach <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4918	5108	
==>T} ) {

            s/^(\n)//
                and $parser->YYData->{lineno}++,
                $str .= $1,
                last;

            s/^\]$level\]//
                and retur <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	17926	18035	
==>ou tried to run tests without a plan!  Gotta have a plan.");
    }

    lock($self->{Curr_Test});
    $self->{ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	18791	18900	
==>ou tried to run tests without a plan!  Gotta have a plan.");
    }

    lock($self->{Curr_Test});
    $self->{ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	51843	51999	
==>[2], $_[4] ];
        }
	],
	[#Rule 47
		 'var', 2,
sub
#line 284 "Lua\lua51.yp"
{
            [ $_[1], $_[2] ];
        }
	],
	[#Rule 48
		 'var <==
3	/Users/nnunley/parrot/config/inter/encoding.pm	431	528	
==>cription = 'Determining what encoding files should be compiled in';

@args = qw(ask encoding);

su <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011415	1011648	
==>S_Command(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012180	1012413	
==>S_Command(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	6443	6644	
==>/    # Shebang
                    and $parser->YYData->{lineno}++,
                    last;
            }

            s/^[ \r\t\f\013]+//;    # Whitespace
            s/^\n//
                a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544209	544313	
==>2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = a, saved_var2 = b; \n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545545	545649	
==>2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = a, saved_var2 = b; \n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546881	546985	
==>2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = a, saved_var2 = b; \n <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1688	1801	
==>t('ask')) {
        $prog = prompt($prompt, $prog ? $prog : $conf->data->get($util));
    }

    my ($stdout, $std <==
3	/Users/nnunley/parrot/config/inter/make.pm	1562	1675	
==>t('ask')) {
        $prog = prompt($prompt, $prog ? $prog : $conf->data->get($util));
    }

    my ($stdout, $std <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1702	1815	
==>t('ask')) {
        $prog = prompt($prompt, $prog ? $prog : $conf->data->get($util));
    }

    my ($stdout, $std <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	24761	24883	
==>$!";
	_autoflush($fh);
    }

    return $fh;
}


sub _is_fh {
    my $maybe_fh = shift;

    return 1 if ref \$maybe_fh eq <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2462	2558	
==>g the test
if the output produced by the test code matches the C<$expected>
parameter.  Note that <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3896	3992	
==>g the test
if the output produced by the test code matches the C<$expected>
parameter.  Note that <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474734	475088	
==>"i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 544,
                  "ARGS" => [
                              "n",
                              "nc",
                              "n"
                            ],
                  "BODY" => "#line 403 \"s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2900	3005	
==>No args
    $self->file,
    $self->line
  );

  $block->set_symbol($self->name, $sym);

  $block->push_co <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2623	2728	
==>No args
    $self->file,
    $self->line
  );

  $block->set_symbol($self->name, $sym);

  $block->push_co <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	337	440	
==>y $options = $conf->options;
    my @steps = $conf->steps;
    $conf->add_steps(@steps);
    $conf->runs <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	5960	6065	
==>e a<5
	a=a+1
loop
print a
a=0
do until a>4
	a=a+1
loop
print a
a=0
do
	a=a+1
loop while a<5
print a
a=0
do <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16505	16610	
==>e a<5
	a=a+1
loop
print a
a=0
do until a>4
	a=a+1
loop
print a
a=0
do
	a=a+1
loop while a<5
print a
a=0
do <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1780	1874	
==>File::Spec->catfile(
    $path_to_parrot, 'parrot' . $PConfig{exe}
);

my $perl6 = File::Spec-> <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2328	2439	
==>self->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exists($$self{USER})
	or	$$self{USE <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	8724	8830	
==>'} eq 'calling')) {
		die "typeinfo must be supplied for rule $rule->{'name'}\n";
	}

    # pop and push fo <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2241	2343	
==>self->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exists($$self{USER})
	or	$$self{USE <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	1535	1640	
==>ated automatically from '$infile'
 * by $0.
 *
 * Any changes made here will be lost!
 *
 */

#define CONC <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	3824	3929	
==>ated automatically from '$infile'
 * by $0.
 *
 * Any changes made here will be lost!
 *
 */

#define CONC <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	391	493	
==>dump { Pod::Simple::pretty( [ @{ $_[0] } ] ) }

sub is_start { $_[0][0] eq 'start' }
sub is_end   { $_[ <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	11239	11358	
==>ogbl      math.h
imag        complex.h
isalnum     ctype.h
isalpha     ctype.h
isblank     ctype.h
iscntrl     ctype.h
i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441568	441655	
==>rc/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, NULL, { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442583	442670	
==>rc/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, NULL, { <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	29285	29411	
==>whine(
          $para->[1]{'start_line'},
          "You forgot a '=back' before '$para_type'"
        );
        unshift @$pa <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	819	918	
==>odes(1);
  $new->nbsp_for_S(1);
  $new->{'Thispara'} = '';
  $new->{'Indent'} = 0;
  $new->{'Indents <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	632	731	
==>odes(1);
  $new->nbsp_for_S(1);
  $new->{'Thispara'} = '';
  $new->{'Indent'} = 0;
  $new->{'Indents <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	1629	1732	
==>or you).

  # This produces "ok 1 - Hell not yet frozen over" (or not ok)
  ok( get_temperature($hell) > <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143069	143367	
==>" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 175,
                  "ARGS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443636	443810	
==>atch_p_psp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444651	444825	
==>atch_p_psp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0, <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28852	28959	
==>"pir must use one of \${DEST0} or \${LOADREG} in rule " .
				"$rule->{'name'}\n";
        } elsif ($rule->{ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29058	29159	
==>"pir must use one of \${DEST0} or \${LOADREG} in rule " .
				"$rule->{'name'}\n";
		} elsif ($rule->{ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	198	290	
==>ko/Construct/Type/Number.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "us <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20491	20618	
==>),
               aop('add', [ $matchcount, -1 ]),
               aop('goto', [ $R_back ]),
      $back => $self->op_restore_rxl <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	2646	2743	
==>r object representing the current state of the
test.

Since you only run one test per program C<ne <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279729	280021	
==>} = ({{\@2}} < {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	280584	280876	
==>} = ({{\@2}} < {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	281439	281731	
==>} = ({{\@2}} < {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	926	1056	
==>to use filter()!
  return $self;
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

sub parse_string_d <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	22774	22876	
==>eturn $_[1]; }
	],
	[#Rule 43
		 'classpiece', 3,
sub
#line 179 "lib/Regex/Grammar.y"
{ return [ $_[1], <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	2381	2483	
==>ates the 'languages/t/harness' wants a list of test files
        my $dir   = File::Spec->catfile( $opt <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	594	692	
==>aults to ''.

=item C<prefix>

The install prefix. Defaults to '/usr'.

=item C<exec_prefix>

The e <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	823	921	
==>aults to ''.

=item C<prefix>

The install prefix. Defaults to '/usr'.

=item C<exec_prefix>

The e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462747	462848	
==>ine 322 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463744	463845	
==>ine 322 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464741	464842	
==>ine 322 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856289	856679	
==>_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 972,
                  "ARGS" => [
                              "s",
                              "s",
                              "sc <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22914	23041	
==>leconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 73
		ACTIONS => {
			"-" => 24,
			'NAME' => 4 <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2793	2894	
==>expr_address
{
    my ($self, $addr) = @_;
    return "opcode_to_prederef(interpreter, $addr)";
}

=it <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3135	3233	
==>create any lib-GROUP.c files

    generate_dump($_) foreach (@pmcs);
    generate_c($_) foreach (@p <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3239	3337	
==>create any lib-GROUP.c files

    generate_dump($_) foreach (@pmcs);
    generate_c($_) foreach (@p <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	59992	60175	
==>ey' ), $_[3] ];
        }
	],
	[#Rule 112
		 'field', 1,
sub
#line 599 "Lua\lua51.yp"
{
            [ $_[1] ];
        }
	],
	[#Rule 113
		 'fieldsep', 1, undef
	],
	[#Ru <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	46305	46430	
==>de using
here document might look like this:

        <<'EOMSG' || die;
        This is the message.
        EOMSG
	exit;

Giv <==
3	/Users/nnunley/parrot/Configure.pl	4628	4747	
==>'help' unless defined $key;
  $value = 1      unless defined $value;

  for ($key) {
    m/version/ && do {
      my $sv <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	12898	13092	
==>tback ]);
}

# scan(R) ->   scan: R or advance
#                    goto next
#           advance: pos++ or lastback
#                    goto scan
#              next:
#
# back is R.back
#
sub r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56355	56531	
==>/core.ops\"\n  {{\@1}} = interpinfo_p(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57117	57293	
==>/core.ops\"\n  {{\@1}} = interpinfo_p(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035761	1035881	
==>\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    {{\@1}} = result;\n    {{+=3}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036925	1037045	
==>\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    {{\@1}} = result;\n    {{+=3}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	565	672	
==>a($block, 'Jako::Construct::Block');
  confess("Dest (" . ref($dest) . ") is not Identifier!") unless UNIVER <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	556	663	
==>a($block, 'Jako::Construct::Block');
  confess("Dest (" . ref($dest) . ") is not Identifier!") unless UNIVER <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	445	552	
==>a($block, 'Jako::Construct::Block');
  confess("Dest (" . ref($dest) . ") is not Identifier!") unless UNIVER <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2012	2128	
==>ef($class);

    bless($self,$class);
}

sub YYParse {
    my($self)=shift;
    my($retval);

	_CheckParams( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1942	2049	
==>ef($class);

    bless($self,$class);
}

sub YYParse {
    my($self)=shift;
    my($retval);

	_CheckParams( <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1986	2086	
==>'/Users/nnunley/parrot/include' . $PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parr <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2282	2382	
==>'/Users/nnunley/parrot/include' . $PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parr <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2077	2177	
==>'/Users/nnunley/parrot/include' . $PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parr <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	10326	10435	
==>rld!"

' Expect Correct
DIM A(1,1)
RO=1
IF A(RO,5)=0 THEN GOSUB 20: REM GOO
   end
20 print "Correct"
   retur <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819	905	
==>*/\n\nextern PMC* Parrot_NameSpace_name(Interp* interpreter, PMC* pmc);\n\n\n\n/*\n** i <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	2191	2349	
==>token);
        } 
        elsif ( $type eq 'text' ) 
        {
            $self->process_text_token($token);
        }
    }
    
    return 1;
}

=item C<pr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035394	1035493	
==>t_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@2}};\n    PM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036558	1036657	
==>t_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@2}};\n    PM <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	35525	35660	
==>e ill behavior..."

      DEBUG > 1 and print "Running a real parse on this non-trivial L\n";
      
      
      my $link_text; # set t <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	243	341	
==>08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block::Loop;

u <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	3288	3399	
==>arguments} ||= \@ARGV;

    exit unless my @files = get_files( %options );

    set_flags( %options );

    loca <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1644	1738	
==>IVERSAL::isa($type, "Jako::Construct::Type");

  my $type_name = $type->name;

  $self->INTERNA <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1492	1586	
==>IVERSAL::isa($type, "Jako::Construct::Type");

  my $type_name = $type->name;

  $self->INTERNA <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11797	11886	
==>PES}[${ITEMP1}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8860	8949	
==>PES}[${ITEMP1}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7432	7521	
==>PES}[${ITEMP1}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18532	18674	
==>=> 35,
			'primary' => 28
		}
	},
	{#State 49
		ACTIONS => {
			'NAME' => 101
		}
	},
	{#State 50
		ACTIONS => {
			"-" => 72,
			" <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33561	33679	
==>t/ push to @$para
            if($paras->[0][0] eq '~Para') {
              DEBUG and print "Assimilating following ~Pa <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35374	35492	
==>t/ push to @$para
            if($paras->[0][0] eq '~Para') {
              DEBUG and print "Assimilating following ~Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973495	973860	
==>lass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1094 <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	8272	8415	
==>{varnames} = $vars;
		    print "# $cur_f; vars=$vars\n";
		}
	    }
	    else {
		$in_info = 0;
	    }
	}
	else {
	    next if /^\s*$/;
	    de <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1898	1994	
==>'start_head1');
  $parser->handle_text( "Hi there" )   if $parser->can('handle_text');
  $parser- <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63691	63869	
==>AXREP,
										   $lookahead,$line,
										   $self,
										   $matchrule,
										   $argcode);
										   
						$prod and $prod->additem($item)
						      or  _no_ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62984	63148	
==>AXREP,
										   $lookahead,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65736	65900	
==>AXREP,
										   $lookahead,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31176	31288	
==>em C<implements($method)>

Always true for vtables.

=cut

sub implements
{
    my ($self, $meth) = @_;
    $self <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32639	32751	
==>em C<implements($method)>

Always true for vtables.

=cut

sub implements
{
    my ($self, $meth) = @_;
    $self <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39796	39908	
==>em C<implements($method)>

Always true for vtables.

=cut

sub implements
{
    my ($self, $meth) = @_;
    $self <==
3	/Users/nnunley/parrot/config/inter/progs.pm	1807	1918	
==>s->get('cc'));
    $cc = prompt("What C compiler do you want to use?", $cc)
        if $ask;
    $conf->data->se <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6367	6457	
==>:
i = elements P_arg_0
POST_BRANCH_switch_${CURIC}_LOOP:
if i == 0 goto POST_BRANCH_switch_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4305	4395	
==>:
i = elements P_arg_0
POST_BRANCH_switch_${CURIC}_LOOP:
if i == 0 goto POST_BRANCH_switch_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001932	1002397	
==>"o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1119,
                  "ARGS" => [
                              "i",
                              "i",
                              "sc",
                              "i",
                              "ic <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6866	6974	
==>r = "";

	# If we need a destination, we simply supply the register to load
	# into here. Note that we must c <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	2021	2127	
==>$_[1]+$_[5])=$extra} ;	#CHOP OUT PREFIX & MATCH, IF POSSIBLE
		pos($$textref) = $_[4];				# RESET \G
		retu <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4528	4632	
==>>{$_}, [ $_ ] ) foreach (@ungrouped_pmcs);
} 
elsif ($mode eq 'copy') {
    # Copy *.so -> destination, w <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4632	4736	
==>>{$_}, [ $_ ] ) foreach (@ungrouped_pmcs);
} 
elsif ($mode eq 'copy') {
    # Copy *.so -> destination, w <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	2469	2569	
==>m("$cmd > $devnull 2>$devnull");
    print "Running cxref (pass 2)\n";
    open(F, "$cmd 2>$devnull|" <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	24332	24476	
==>n 0;
  }
  return 1;
}

# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

sub _ponder_extend {

  # "Go to an extrem <==
3	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	1107	1218	
==>' -O4 -msym -std $linkflags";
        $conf->data->set(linkflags => $linkflags);
    }

    # Required because o <==
3	/Users/nnunley/parrot/config/inter/shlibs.pm	943	1045	
==>t('cc_shared'), $cc_shared);
    $cc_shared =
        prompt("\nWhat flags instruct your compiler to co <==
3	/Users/nnunley/parrot/config/auto/perldoc.pm	845	1051	
==>s, old version');
        } else {
            if (open FH, "< c99da7c4.tmp") {
                local $/;
                $a = <FH>;
                close FH;
                $version = 2;
                $s <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3780	3890	
==>Convert X.c -> X.o for all X.c
    compile($_) foreach (@pmcs);

    # lib-GROUP.c
    for my $group (keys %$gr <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3884	3994	
==>Convert X.c -> X.o for all X.c
    compile($_) foreach (@pmcs);

    # lib-GROUP.c
    for my $group (keys %$gr <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	6548	6655	
==>he Tree op being visited
#  guarantee - The number of atoms we are currently guaranteed to have for
#      t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621355	621461	
==>lse {\n\tsig = NULL;\n\tsrc_pred = NULL;\t/* just for gcc */\n    }\n    lru = &mic->lru;\n    if (lru->u.s <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	4373	4477	
==>nf( &POSIX::_SC_CLK_TCK );
my %Get_Time = (
    1 => sub { my @times = times();  return $times[2] + $time <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129830	130103	
==>{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130569	130842	
==>{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	7978	8068	
==><N.Winton@axion.bt.co.uk>).

C<Digest::MD5> was made by Gisle Aas <gisle@aas.no> (I took hi <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	2362	2456	
==>rce, $target, $silent)>

C<$source> is the directory in which the section's contents will be
lo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679111	679201	
==>BODY" => "#line 483 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_string(interpreter, { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679890	679980	
==>BODY" => "#line 483 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_string(interpreter, { <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	506	642	
==>utput_isnt       => 'isnt_eq'
                        );

foreach my $func ( keys %language_test_map ) {
    no strict 'refs';

    *{"Pa <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	845	981	
==>utput_isnt       => 'isnt_eq'
                        );

foreach my $func ( keys %language_test_map ) {
    no strict 'refs';

    *{"Pa <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	18489	18593	
==>ack) = @_;

    my ($loop, $back, $local_back, $check, $next) =
     map { $self->genlabel("gr_$_") } qw( <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	4016	4123	
==>_arg_names{$f}{$a} = $i;
		    # print STDERR "def $f($a = $i)\n";
		}
		push @code, [$line, $pc, "ARG_count <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	4515	4622	
==>_arg_names{$f}{$a} = $i;
		    # print STDERR "def $f($a = $i)\n";
		}
		push @code, [$line, $pc, "ARG_count <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	2445	2547	
==>=cut

sub file_checksum
{
    my ($filename, $ignorePattern) = @_;
    open(my $file, '<', $filename) o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256361	256456	
==>ne 740 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257269	257364	
==>ne 740 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258177	258272	
==>ne 740 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}} <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	17579	17695	
==>OLUTE()
{
    my ($n, $c, $cmt) = @_;
    my $targ = "pc_$n";
    print <<EOC;
	goto $targ $cmt
EOC
}

sub JUMP_IF_FA <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9261	9366	
==>{STEMP0}
${INS} = concat "\n"

# Decrement stack height.
dec stack_depth
PIR
	}

	return $pir;
}

# Pre an <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6779	6884	
==>{STEMP0}
${INS} = concat "\n"

# Decrement stack height.
dec stack_depth
PIR
	}

	return $pir;
}

# Pre an <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	491247	491439	
==>" => 563,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 539 \"src/ops/math.ops\"\n  {{\@1}}++;\n  {{+=2}};\n" <==
3	/Users/nnunley/parrot/config/auto/memalign.pm	1326	1456	
==>est_c.in');
    eval { cc_build(); };
    unless ($@ || cc_run_capture() !~ /ok/) {
        $test = 1;
    }
    cc_clean();

    m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40143	40287	
==>bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40990	41134	
==>bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "", <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	8594	8698	
==>lf->{scope};
  $self->{scope} = { '*UP*' => $oldscope };

  my $num = 5;
  my @args = @{_get_arg($node,1) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	821210	821400	
==>E" => 930,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 98 \"src/ops/stack.ops\"\n  {{\@1}} = stack_height <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	629	730	
==>"Op is not defined!" unless defined $op;
  confess "Right is not defined!" unless defined $right;

  c <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	641	742	
==>"Op is not defined!" unless defined $op;
  confess "Right is not defined!" unless defined $right;

  c <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2657	2801	
==>t;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = $op->{arg1}->{symbol}\ <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2461	2592	
==>t;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  $op->{result}->{symbol} = $op->{arg1}->{symbol}\ <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	4907	5038	
==>t;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  $op->{result}->{symbol} = $op->{arg1}->{symbol}\ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2761	2863	
==>R this line in main routine should be skipped"
Label1:
   PRINT "5 back in module-level code"
   END
Su <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16728	16830	
==>R this line in main routine should be skipped"
Label1:
   PRINT "5 back in module-level code"
   END
Su <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	3374	3457	
==>=item C<Parrot::Docs::Section::Tests>

=item C<Parrot::Docs::Section::EditorPlugins> <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4298	4420	
==>, pass);
EOC
    }
    $cout .= <<"EOC";
    }
    return pmc;
}

EOC
}

=back

=head2 Class Methods

=over

=item C<new($s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324671	324757	
==>=> "#line 144 \"src/ops/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325464	325550	
==>=> "#line 144 \"src/ops/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350598	350829	
==>AME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 408, <==
3	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	149	246	
==>head1 NAME

examples/benchmarks/stress1.pl - GC stress-testing

=head1 SYNOPSIS

    % time perl e <==
3	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1436	1517	
==>dation
AppPublisherURL=http://www.parrotcode.org/
AppSupportURL=http://www.parrotc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627358	627453	
==>ation register before its init method\n   * copies the registers. */\n  {{\@1}} = pmc_new_noinit <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628502	628597	
==>ation register before its init method\n   * copies the registers. */\n  {{\@1}} = pmc_new_noinit <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8689	8775	
==>$Name2character{'verbar'} = '|';
}

#-------------------------------------------------- <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	1741	1847	
==>= $self->convert_sv_literal($atom, $ctx);
    } else {
        $R = op('external' => [ 'string', [ $atom, $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	2791	2893	
==>t stringify it and you get just the text content:

  % perl -MData::Dumper -e
    "use base qw(Pod::Sim <==
3	/Users/nnunley/parrot/Configure.pl	2763	2859	
==>cgoto core. This is recommended when you are short of memory.

=item C<--jitcapable>

Use JIT sys <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2663	2763	
==>r);

  my $dest_name = $dest->value;
  $dest = $dest->compile($compiler);

  $compiler->emit("  conca <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955870	955955	
==>ps\"\n  {{\@1}} = string_copy(interpreter, Parrot_encoding_name(interpreter, {{\@2}})) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956682	956767	
==>ps\"\n  {{\@1}} = string_copy(interpreter, Parrot_encoding_name(interpreter, {{\@2}})) <==
3	/Users/nnunley/parrot/config/auto/signal.pm	1355	1488	
==>imer.in');
    eval { cc_build(); };
    unless ($@ || cc_run() !~ /ok/) {
        $conf->data->set(
            has_setitimer    => ' <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	44759	44860	
==>cursive function
  # Sanely assumes that the top node in the excursion won't be an S node.
  my($treel <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	12983	13079	
==>pends) returns Bool`

These functions both take blocks of code, run the code, and test whether th <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6307	6404	
==>] source line $sourceline";
	goto UNK;

BARE:	# Check for user-subroutine
	if (usersub($syms[CURR] <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35768	35862	
==>rule:$desc>" if $_[0]->{"matchrule"};
	return $desc;
}

sub callsyntax($$)
{
	if ($_[0]->{match <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4573	4665	
==>abel = $self->{state}->genlabel("pass_charclass");
    my @ops = ("<rx_tmp> = ord(substr(<rx_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600306	600547	
==>name);\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601382	601623	
==>name);\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	8302	8467	
==>and'      => 'AND',
        'break'    => 'BREAK',
        'do'       => 'DO',
        'else'     => 'ELSE',
        'elseif'   => 'ELSEIF',
        'end'      = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10331	10548	
==>n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE|PARROT_JUMP_E <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63920	64137	
==>n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE|PARROT_JUMP_E <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6811	7027	
==>n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE|PARROT_JUMP_ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	67354	67524	
==>cent::Subrule($name,
								       $lookahead,
								       $line,
								       $desc,
								       $matchrule,
								       $argcode);
	 
				$prod and $prod->ad <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3429	3587	
==>1][0]]{ACTIONS}}
}

sub YYLexer {
    my($self)=shift;

	$$self{LEX};
}


#################
# Private stuff #
#################


sub _CheckPara <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3257	3400	
==>1][0]]{ACTIONS}}
}

sub YYLexer {
    my($self)=shift;

	$$self{LEX};
}


#################
# Private stuff #
#################


sub _CheckPara <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848242	848352	
==>tring.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849022	849132	
==>tring.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5920	6031	
==>roup!;
}

sub output_setend {
    my ($self, $group, $value, $adj) = @_;
    $value = value($value);
    my @ops <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5558	5669	
==>roup!;
}

sub output_setend {
    my ($self, $group, $value, $adj) = @_;
    $value = value($value);
    my @ops <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20155	20255	
==>'re
writing a Pod-formatter class, you should define a C<run> just so
that users can call C<parse_fil <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	39433	39586	
==>turn $pir;
}


# Inserts auto-magically instantiated meta-variable locals.
# #########################################################
sub insert_automagi <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	3930	4025	
==>tly useful for tests run in persistent environments where the same
test might be run multiple ti <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	312	412	
==>5_23_01 }
sub B() { 0xef_cd_ab_89 }
sub C() { 0x98_ba_dc_fe }
sub D() { 0x10_32_54_76 }

# for intern <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	48352	48444	
==>ontext C<extract_quotelike> does so),
you can pass the input variable as an interpolated lite <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2649	2750	
==>er);
    $self->right->sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_e <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2526	2627	
==>er);
    $self->right->sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_e <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8922	9035	
==>print "*";
	next j
	print 
next i

' Trig
w=15
dim a$(w)
for i = 0 to (22/7)*2 step 0.40
	for j = 1 to w*2
		a$(j) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	36624	36813	
==>LAGS" => "",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 46,
                  "ARGS" => [],
                  "BODY" => "#line 704 \ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28817	28917	
==>ame} = '__STRING' . ++$_[1]->{strcount} . '__'; }

sub issubrule { undef }
sub isterminal { 1 }
sub d <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30897	30997	
==>ame} = '__STRING' . ++$_[1]->{strcount} . '__'; }

sub issubrule { undef }
sub isterminal { 1 }
sub d <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53797	53902	
==>xtract_bracketed($grammar,'<');
					  $code })
			{
				_parse("a resync with pattern marker", $aftererro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809648	809738	
==>BODY" => "#line 507 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_string_keyed(in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810553	810643	
==>BODY" => "#line 507 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_string_keyed(in <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	70	167	
==>rot/lib/Parrot/OpTrans/CPrederef.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Pa <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	50442	50538	
==>riable marker", $aftererror,$line);
				$item = new Parse::RecDescent::Directive(
					'Text::Bal <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4494	4581	
==>C<restart
ADDRESS($address)>.

=item C<restart_offset($offset)>

Implemented in subclass <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	1252	1344	
==>itch>ed and predereferenced run loop.

=item C<CPrederef>

Create the predereferenced run loo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571175	571432	
==>ot_object_isa(interpreter, {{\@2}}, class);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572130	572387	
==>ot_object_isa(interpreter, {{\@2}}, class);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	6325	6458	
==>'',
            $self->c_item(
                'Parrot\'s native executable subsystem.', 
                'pairs' => ['exec', 'exec_sa <==
3	/Users/nnunley/parrot/config/auto/jit.pm	1080	1190	
==>was added to convert 9000/800 to 9000_800 on HP-UX
    $cpuarch =~ s|/|_|g;

    # On OS X if you are using the <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	2397	2501	
==>ion of the
# source file and add a .pasm to it
if (!defined $to_file) {
  $to_file = $from_file;
  $to_fi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509096	509357	
==>S" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509727	509988	
==>S" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510382	510643	
==>S" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35572	35673	
==>t::Repetition;

sub issubrule ($) { return $_[0]->{"subrule"} }
sub isterminal { 0 }
sub sethashname { <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3451	3544	
==>t>1

' Mathmagic
dim m(1), ba(1)
fa=-1
m0=48100
m=48000
w=-19
t=3
m(t)=-100
ba(fa+1)=9
w=w+M(T <==
3	/Users/nnunley/parrot/lib/File/Which.pm	6886	6973	
==>ee Also

L<File::Spec>, L<which(1)>, Perl Power Tools:
http://www.perl.com/language/ppt/ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1410	1519	
==>compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $dest_ident = $self->dest;

  my $block = $self->bl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1290	1399	
==>compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $dest_ident = $self->dest;

  my $block = $self->bl <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	489	594	
==>($self, $conf) = @_;

    $self->generate_h($conf);
    $self->generate_c($conf);
    $self->generate_pm($ <==
3	/Users/nnunley/parrot/config/auto/pack.pm	783	888	
==>rsize');

    foreach ('intvalsize', 'opcode_t_size') {
        my $which = $_ eq 'intvalsize' ? 'packtype <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19146	19244	
==>umbers, symbols in two rows and then two rows of identical numbers
type foo
	first as integer
end t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242066	242178	
==>BLE_get_number(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243015	243127	
==>BLE_get_number(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12107	12208	
==>w($block, $self->forth);

      $self->require_semicolon;

      my $concat = Jako::Construct::Stateme <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1879	2020	
==>ng_fn );

        # STDERR is written into same output file
        my $exit_code = Parrot::Test::run_command( 
                            \@ <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2359	2487	
==>ng_fn );

        # STDERR is written into same output file
        my $exit_code = Parrot::Test::run_command(
            \@ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	21156	21259	
==>ine 141 "lib/Regex/Grammar.y"
{ return op('code' => [ $_[1] ]) }
	],
	[#Rule 27
		 'rulename', 2,
sub
#l <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2148	2239	
==>attribute with the value "Bar".

=item $token->attr(I<attrname>, I<newvalue>)

This sets the <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	382	487	
==>Constructor. Just base this class on a hash.
sub new() {
	my $invocant = shift;
	return bless {}, $invocan <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	288	393	
==>Constructor. Just base this class on a hash.
sub new() {
	my $invocant = shift;
	return bless {}, $invocan <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	196	301	
==>Constructor. Just base this class on a hash.
sub new() {
	my $invocant = shift;
	return bless {}, $invocan <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	7598	7702	
==>urn $op->{args}->[0] * $op->{args}->[3]->minlen();
}

sub maxlen {
    my $op = shift;
    my ($min, $max <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	877	975	
==>erals are subject to interpolation, and so they go through
# compilation in such a way that a strin <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	663	775	
==>ed in their substution values. q[] is used in
# some places as Win32 paths have \'s in, which qq[] treats as esca <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	621	733	
==>ed in their substution values. q[] is used in
# some places as Win32 paths have \'s in, which qq[] treats as esca <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	625	737	
==>ed in their substution values. q[] is used in
# some places as Win32 paths have \'s in, which qq[] treats as esca <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30691	30853	
==>8,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79,
			"/" => 82
		}, <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40041	40203	
==>8,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79,
			"/" => 82
		}, <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41668	41830	
==>8,
			"*" => 80,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79,
			"/" => 82
		}, <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2058	2181	
==>r_count - 2));
        }

        # flatten filenames (don't use directories)
        my $lang_fn     = Parrot::Test::per_te <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	3631	3730	
==>within a rule and not a herdoc?
        elsif (!$in_heredoc && $rule && /^\s*(\w+)\s*=\s*(.+?)\s*$/) <==
3	/Users/nnunley/parrot/config/auto/m4.pm	54	143	
==>rot/config/auto/m4.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	699	810	
==>::Identifier');

  my $self = bless {
    BLOCK => $block,
    IDENT => $ident
  }, $class;

  $block->push_cont <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	699	810	
==>::Identifier');

  my $self = bless {
    BLOCK => $block,
    IDENT => $ident
  }, $class;

  $block->push_cont <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	18603	18744	
==>t);
    $self->_treat_Ss($treelet);  # S has to come after E

    $self->_wrap_up($treelet); # Nix X's and merge texties
    
  } else {
    D <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	2800	2904	
==>lemented rule calling";
}

sub convert_sv_literal {
    use Data::Dumper;
    my ($self, $tree, $ctx) = @ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89068	89309	
==>,
                  "CODE" => 110,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 38 \"src/ops/bit.ops\"\n  {{\@1}} &= {{\@2 <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	17551	17665	
==>t ends up just being ['=item', { attrhash } ]
    return $para->[1]{'~type'} = 'number';
    
  } else {
    # It's <==
3	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	113	203	
==>-06-25T03:57:27.771662Z petdance  $

=head1 NAME

tools/build/fingerprint_c.pl - Create fin <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	4137	4257	
==>meta); # Laziness

    if ($meta{lib}) {
        # don't allow libraries to be installed into subdirs of libdir
        $ <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1122	1221	
==>3 Constructors

=over 4

=item * C<new()>

Basic constructor.

Accepts no arguments and returns a L< <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	659	758	
==>3 Constructors

=over 4

=item * C<new()>

Basic constructor.

Accepts no arguments and returns a L< <==
3	/Users/nnunley/parrot/Configure.pl	6132	6235	
==>inkflags=(flags)  Use the given linker flags
   --ld=(linker)        Use the given loader for shared lib <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552550	552648	
==>*dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n\n  object = {{\@1}};\n  method_pmc = {{\@2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556606	556704	
==>*dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n\n  object = {{\@1}};\n  method_pmc = {{\@2 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	19325	19449	
==>_ignore; # whether this target matches us
      
      foreach my $target_name (
        split(',', $content, -1),
        $n <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2640	2747	
==>f;
}

# block handled by superclass?

sub kind  { return shift->{KIND};     }
sub type  { return shift->{TYP <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2757	2858	
==>f;
}

# block handled by superclass?

sub kind { return shift->{KIND}; }
sub type { return shift->{TYP <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1910	2019	
==>$$self{VERSION}:\n".
			  "Please recompile parser module.";

        ref($class)
    and $class=ref($clas <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	21853	21961	
==>val=( INT => 'I0', FLO => 'N0', STRING => 'S0' );
			if ($_->[2] ne "USER") {
				print CODE<<NOTUSER;
	new P <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1844	1949	
==>$$self{VERSION}:\n".
			  "Please recompile parser module.";

        ref($class)
    and $class=ref($clas <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173704	174000	
==>e_str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211675	211971	
==>e_str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228792	229088	
==>e_str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	1745	1889	
==>VAL",
       b => "void *",
       B => "void **",
       L => "long *",
       T => "char **",
     );

my %other_decl =
     ( p => "PMC *final <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8333	8431	
==>print "I am the very model of a modern";tab$(15);"More"
print "Hello","Again",d
dim c$(1)
for i = 1 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21197	21295	
==>print "I am the very model of a modern";tab$(15);"More"
print "Hello","Again",d
dim c$(1)
for i = 1 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	529	628	
==>) = @_;

  confess "Block (" . ref($block) . ") is not!" unless UNIVERSAL::isa($block, qw(Jako::Cons <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	521	619	
==>) = @_;

  confess "Block (". ref($block) . ") is not!" unless UNIVERSAL::isa($block, qw(Jako::Cons <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	1481	1582	
==>ame, $c_name) = @_;
    my $opt = $generator->{opt};

    print Data::Dumper->Dump([$generator]) if $o <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26012	26122	
==>rn,$return,$temp]);
      $self->_restore($temp);
    }
  }
  return $return;
}

sub _op_times {
  my ($self,$n <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	36172	36283	
==>y other number    how many failed (including missing or extras)

If you fail more than 254 tests, it will be rep <==
3	/Users/nnunley/parrot/lib/Test/More.pm	34243	34354	
==>y other number    how many failed (including missing or extras)

If you fail more than 254 tests, it will be rep <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	3038	3149	
==>y other number    how many failed (including missing or extras)

If you fail more than 254 tests, it will be rep <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5880	6009	
==>t a single group
        my $group = $class->{flags}{group}
          or next;
        ($group) = keys %$group;
        $pmc_group <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6091	6220	
==>t a single group
        my $group = $class->{flags}{group}
          or next;
        ($group) = keys %$group;
        $pmc_group <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	40034	40152	
==>des'} and
            $self->{'accept_codes'}{'VerbatimFormatted'}
        ) {
          while(@$para > 3 and $para->[- <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	4035	4169	
==>VAL
    if (
        my $size = eval {
            open(TEST, ">test.c") or die "Can't open test.c: $!";
            print TEST <<'END' <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	3893	4019	
==>i++) {
		    my ($a, $def) = split(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a = qq!"$a"!;   # quote argument
		    $def_arg <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	4392	4518	
==>i++) {
		    my ($a, $def) = split(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a = qq!"$a"!;   # quote argument
		    $def_arg <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	2982	3096	
==>,
		prev	=> $_[3]?1:0,
	      }, $_[0];
}

sub FETCH    
{
	my $parser = $_[0]->{parser};
	my $from = $parser->{ful <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	626561	626887	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627704	628030	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628848	629174	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
3	/Users/nnunley/parrot/tools/docs/pod_errors.pl	197	291	
==>ors

=head1 SYNOPSIS

    % perl tools/docs/pod_errors.pl [dir] [files-to-ignore-regex]

=head1 <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	6238	6380	
==>> undef,
             'i_sysstatvfs' => 'define',
             'i_systime' => 'define',
             'i_systimek' => undef,
             'i_sys <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34892	35007	
==>thods.

=cut

sub body
{
    my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # exis <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36195	36310	
==>thods.

=cut

sub body
{
    my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # exis <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	526314	526567	
==>) / ((FLOATVAL){{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	6647	6764	
==>($prog, $sect) = ($program[$_], $section[$_]);
        if ( $bench{ $name }{ $prog } ) {
            my $start = $Get_ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13485	13576	
==>ecDescent::_warn(1,"Optimizing away production: [". $_[0]->describe ."]");
		my $what = $ite <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	714	821	
==>marker
    $t = $self->maptree($t, sub { delete shift->{nocheck} });
    return $t;
}

# Perform a few simpl <==
3	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	861	955	
==>Parrot subversion repository. (Needed for
# distributions or in general when svn is not availab <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3716	3810	
==>Parrot subversion repository. (Needed for
# distributions or in general when svn is not availab <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2360	2472	
==>tion on line %d of file '%s'.",
      $self->name, $sym->line, $sym->file);
  }

  #
  # Now that we've decided t <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2107	2219	
==>tion on line %d of file '%s'.",
      $self->name, $sym->line, $sym->file);
  }

  #
  # Now that we've decided t <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	8781	8885	
==>cted) = (0, "", "", "", "",
						   $thisrule);
	$Parse::RecDescent::lastunexpected = $_[1];
	'. ($parse <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	381	474	
==>escriptions from files

=head1 SYNOPSIS

    % perl tools/dev/extract_file_descriptions.pl [-- <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7148	7237	
==>0} = ${LOADTYPE}["reg_type_short"]
${DEST0} = concat ${STEMP0}
${STEMP0} = stack_depth
${D <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4970	5059	
==>0} = ${LOADTYPE}["reg_type_short"]
${DEST0} = concat ${STEMP0}
${STEMP0} = stack_depth
${D <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	69737	69986	
==>=> "needs_destroy",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 93,
                  "AR <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	1394	1502	
==>eader(
            $title, $self->{NAV_BAR}, $self->{RESOURCES_URL});

    $self->version_tag_comment;

    r <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	1770	1899	
==>->{builder}->skip( $skip_why );
        } else {
            # STDERR is written into same output file
            my $exit_code = <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5879	5977	
==>sic block-ish stuff. If the branch
	# did not pop anything it is unconditional, so next instruction <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3817	3915	
==>sic block-ish stuff. If the branch
	# did not pop anything it is unconditional, so next instruction <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259190	259447	
==>_is_same(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263544	263801	
==>_is_same(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30008	30101	
==>ndard::Const;
use base 'Parrot::Pmc2c::Standard';
import Parrot::Pmc2c qw( gen_ret );

=item C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19764	20003	
==>{{\@1}} == 0) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	38175	38293	
==>self};
        $parser->YYData->{self} = undef;
    }
    my $fct = new_fct($parser);
    push @opcodes2, new SubDi <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	6435	6536	
==>RCE "\n{\n";
    print SOURCE $trans->run_core_func_start;
}

#
# Iterate over the ops, appending HEAD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548218	548487	
==>\n    q = q*i;\n    i--;\n  }\n  {{\@1}} = q;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549125	549394	
==>\n    q = q*i;\n    i--;\n  }\n  {{\@1}} = q;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3345	3454	
==>, $dest) = @_;
    $reg = value($reg);
    return "goto " . $self->output_label_use($dest) . " if $reg;";
}

s <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	15799	15900	
==>_${incase}_STARTOR
ORS
	}
	if ($ors and $tos) {
		print CODE qq{\tunshift P9, "OP"\n};
		print CODE qq <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948836	948922	
==>ring.ops\"\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@1}}, {{\@2}}, NULL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949636	949722	
==>ring.ops\"\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@1}}, {{\@2}}, NULL <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27353	27475	
==>acefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;').'
		$lastsep = "";
		$Parse::RecDescent:: <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29463	29585	
==>acefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;').'
		$lastsep = "";
		$Parse::RecDescent:: <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31560	31682	
==>acefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;').'
		$lastsep = "";
		$Parse::RecDescent:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120684	120981	
==>FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 150,
                  "ARGS <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	6291	6412	
==>YYData->{INPUT} ) {

            if ( $parser->YYData->{shebang} ) {
                $parser->YYData->{shebang} = undef <==
3	/Users/nnunley/parrot/tools/build/revision_c.pl	98	188	
==>6-06-25T03:57:27.771662Z petdance  $

=head1 NAME

tools/build/revision_c.pl

=head1 DESCRI <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	963	1068	
==>re and Algorithms:
 *  History:
 *  Notes:
 *  References:
 */
HEADER

=over

=item B<classify>( $chr )

C <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4235	4330	
==>";
}

=item C<run_core_func_decl($core)>

Returns the C code for the run core function declarati <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2723	2818	
==>";
}

=item C<run_core_func_decl($core)>

Returns the C code for the run core function declarati <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129388	129652	
==>FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 159,
                  "ARGS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3251	3353	
==>y",
    'sc' => "CONST(%ld)->u.string",
    'kc' => "CONST(%ld)->u.key",
    'kic' => "cur_opcode[%ld]" <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2161	2259	
==>y",
  'sc'  => "CONST(%ld)->u.string",
  'kc'  => "CONST(%ld)->u.key",
  'kic' => "cur_opcode[%ld]" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037744	1037979	
==>erpreter, NULL, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038525	1038760	
==>erpreter, NULL, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	1310	1417	
==>ken_count()
#
# Returns the number of tokens.
#

sub count
{
  my $self = shift;

  return scalar(@{$self->{ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	215	328	
==>ree {
  my ($tokens,$count) = @_;
  my $temp   = {};

  die "EOF reached" if $count >= $#$tokens;

  if ($tokens-> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3382	3483	
==>e-quote with an unescaped '$'.
      $string = substr($string, 1, -1); # Without the surrounding doubl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1701	1801	
==>e-quote with an unescaped '$'.

    $string = substr($string, 1, -1); # Without the surrounding doubl <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10610	10720	
==>$section =~ tr/ /_/;
        $section =~ tr/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
        $section = $self-> <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3995	4097	
==>$section =~ tr/ /_/;
    $section =~ tr/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
    $section = $self-> <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15694	15796	
==>y {
  # Doesn't change "-" to hard-hyphen, nor apply computerese style-smarts.
  # We don't want to cha <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114900	115199	
==>AME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115754	116053	
==>AME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116609	116908	
==>AME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17375	17489	
==>d
      my $target;

      if(grep $_->[1]{'~ignore'}, @$curr_open) {
        DEBUG > 1 and print "Ignoring ignorab <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16168	16267	
==>te
the number of lines, C<$out_name> is the name of the output file we are
generating.

=cut

sub me <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	121	209	
==>01-2005, The Perl Foundation.
# $Id: /parrot/config/gen/makefiles/dynpmc_pl.in 19593 2006 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3276	3373	
==>();

=head1 SEE ALSO

L<Pod::Simple>

The article "Constants in Perl", in I<The Perl Journal> issu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714227	714533	
==>" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 801,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 75 \"src/ops/python.ops\"\ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	18204	18329	
==>^'\\]*)*) '
				     | \G " ([^"\\]* (?:\\.[^"\\]*)*) "
				     | \G ` ([^`\\]* (?:\\.[^`\\]*)*) `
				     }gcsx) {
			$labe <==
3	/Users/nnunley/parrot/config/init/optimize.pm	998	1131	
==>=1 -DNDEBUG");
        if ($optimize eq "1") {
            # use perl5's value
	    # gcc 4.1 doesn't like -mcpu=xx, i.e. it's depreca <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6605	6704	
==>s more thought. I'm trying to work out which files
	# it's sensible to link directly to. Suffixes ot <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	50391	50499	
==>(defined $4) {
      DEBUG > 3 and print "Found apparent simple end-text code \"$4\"\n";

      if(@stack and <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6440	6542	
==>e=FALSE
   ' Compare the array elements by pairs. When two are exchanged,
   ' force another pass by se <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16093	16195	
==>e=FALSE
   ' Compare the array elements by pairs. When two are exchanged,
   ' force another pass by se <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11735	11826	
==>${ITEMP1} = elements ${STYPES}
dec ${ITEMP1}
${PTEMP0} = ${STYPES}[${ITEMP1}]
${STEMP0} = "$ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8798	8889	
==>${ITEMP1} = elements ${STYPES}
dec ${ITEMP1}
${PTEMP0} = ${STYPES}[${ITEMP1}]
${STEMP0} = "$ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7370	7461	
==>${ITEMP1} = elements ${STYPES}
dec ${ITEMP1}
${PTEMP0} = ${STYPES}[${ITEMP1}]
${STEMP0} = "$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714790	715003	
==>), s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715713	715926	
==>), s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716658	716871	
==>), s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	44259	44366	
==>se {
    my $value = $node->{value};
    if ($value =~ /^[a-zA-Z]/) {
      $return = $self->_find_lex($valu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324692	324774	
==>ps/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}},{{\@2}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325485	325567	
==>ps/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}},{{\@2}} <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35793	35889	
==>missing (or extras)
will be considered failures.  If no tests were ever run Test::Builder
will th <==
3	/Users/nnunley/parrot/lib/Test/More.pm	33864	33960	
==>missing (or extras)
will be considered failures.  If no tests were ever run Test::Builder
will th <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9151	9346	
==>ng_free(label);\n    interpreter->resume_flag = 2;\n    {{=0}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10267	10462	
==>ng_free(label);\n    interpreter->resume_flag = 2;\n    {{=0}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	1223	1334	
==>d STDOUT here,
    # you get a 38M file of garbage. We'll temporarily assume everything
    # works and ignore s <==
3	/Users/nnunley/parrot/config/init/optimize.pm	1608	1728	
==>ta->set(optimize => $optimize);
        }
    } else {
        $self->set_result('no');
        print "(none requested) " <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	6080	6179	
==>o arg version
		feedme();
		print CODE<<PROMPTRND;
	print "Random-number seed (-32768 to 32767)?"
	b <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	907	1015	
==>tes => { kind => $self->kind } });
  $_->sax($handler) foreach $self->content;
  $handler->end_element({ Name <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1920	2028	
==>tes => { kind => $self->kind } });
  $_->sax($handler) foreach $self->content;
  $handler->end_element({ Name <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2714	2822	
==>tes => { kind => $self->kind } });
  $_->sax($handler) foreach $self->content;
  $handler->end_element({ Name <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560140	560497	
==>"ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 641,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#l <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	1415	1540	
==>d $dist;
    
    my $path = '.';
    
    while ( $self = $self->SUPER::new($path) ) {
        return $dist = $self if $self- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	2002	2105	
==>sub props  { return %{shift->{PROPS}}; }
sub args   { return @{shift->{ARGS}}; }

sub file   { return sh <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2838	2939	
==>sub props { return %{shift->{PROPS}}; }
sub args  { return @{shift->{ARGS}};  }

sub file  { return sh <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113907	114198	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114646	114937	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAG <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	1356	1452	
==>t consider limiting its scope by making it file
static or function static, but see L</"Data is no <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	209	313	
==>amed library (or libraries). Its
format is simple, and looks like:

  [package]
  ncurses 

  [lib]
  lib <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2231	2333	
==>_[0]->emit_par(-4) }
sub end_head2       { $_[0]->emit_par(-3) }
sub end_head3       { $_[0]->emit_par( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1799	1901	
==>_[0]->emit_par(-4) }
sub end_head2       { $_[0]->emit_par(-3) }
sub end_head3       { $_[0]->emit_par( <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	12697	12823	
==>$cmt
EOC
    }
    push @stack, [$c, $p, 'P'];
    # print_stack();
}


sub LOAD_NAME() {
    my ($n, $c, $cmt) = @_;
    my ($ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3518	3639	
==>--library $group --c " . join(" ",@pmcfiles))
              or die "pmc2c library creation failed ($?)\n";
        }
    } <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3622	3743	
==>--library $group --c " . join(" ",@pmcfiles))
              or die "pmc2c library creation failed ($?)\n";
        }
    } <==
3	/Users/nnunley/parrot/Configure.pl	6535	6644	
==>val=(type)      Use the given type for INTVAL
   --floatval=(type)    Use the given type for FLOATVAL
   --opc <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	844	945	
==>($block, $token)    if $token->kind eq 'literal';

  return undef;
}

sub block { return shift->{BLOCK <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	312572	312657	
==>t Parrot_Context_info info;\n  Parrot_Context_info(interpreter, CONTEXT(interpreter->c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	313304	313389	
==>t Parrot_Context_info info;\n  Parrot_Context_info(interpreter, CONTEXT(interpreter->c <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3919	4027	
==>("$group", "lib-$group")
          or die "compile $group.c failed ($?)\n";
    }
} 
elsif ($mode eq 'linklib <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4023	4131	
==>("$group", "lib-$group")
          or die "compile $group.c failed ($?)\n";
    }
} 
elsif ($mode eq 'linklib <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24179	24284	
==>urn $return;
}

sub _op_plus {
  my ($self,$node) = @_;
  my $return;
  my $num_children = defined $node-> <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6958	7056	
==>{
	push @ops, (qq(print "PUSHED ).(@_>1?$_[1]:"mark").qq(\\n"));
    }
    push @ops, $self->pushop <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	3218	3316	
==>i = Config::IniFiles->new( -file => $cfg{config_file} );

# Merge Configuration
if ( ! defined $cfg <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39681	39774	
==>rg op rightarg} };

	my $code = ''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying o <==
3	/Users/nnunley/parrot/tools/dev/cc_flags.pl	1761	1873	
==>ere, 1;
  $inject_point = $where;
} else {
  $inject_point = 1;
}

foreach my $option (@options) {
    if ($cfile <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53175	53277	
==>($1,$self)
				      or  _no_rule($code,$line);

				$item = new Parse::RecDescent::UncondReject($looka <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54884	54986	
==>($1,$self)
				      or  _no_rule($code,$line);

				$item = new Parse::RecDescent::UncondReject($looka <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	2705	2823	
==>is('infix-concat');  }
sub is_infix_rel     { return shift->is('infix-rel');     }
sub is_label         { return shift- <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39208	39310	
==>parser->YYData->{functs} }, \@opcodes2;
    my $result = new_tmp( $parser, 'pmc', 'function' );
    p <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37294	37386	
==>ad} };

''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying repeated subrule: [' . $ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	870	979	
==>local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS = qq[-bundle -undefined suppress];
our $PERL = q[perl];
our $ <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	859	968	
==>local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS = qq[-bundle -undefined suppress];
our $PERL = q[perl];
our $ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	863	972	
==>local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS = qq[-bundle -undefined suppress];
our $PERL = q[perl];
our $ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	42135	42244	
==>);
    }
    $count++;
  }

  $self->_add_inst('', 'set', ['P0', $func_obj]) unless $func_obj eq 'P0';
  $self <==
3	/Users/nnunley/parrot/config/auto/cgoto.pm	1437	1519	
==>ILD_TOOLS_DIR)/ops2c.pl lib/Parrot/OpsFile.pm lib/Parrot/Op.pm lib/Parrot/OpTrans/C <==
3	/Users/nnunley/parrot/config/auto/cgoto.pm	1710	1792	
==>ILD_TOOLS_DIR)/ops2c.pl lib/Parrot/OpsFile.pm lib/Parrot/Op.pm lib/Parrot/OpTrans/C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573117	573390	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574027	574300	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass" <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	23067	23189	
==>p
#      rback: popindex or lastback
#       next:
#
# (back is R.back)
#
#
sub rewrite_plus {
    my ($self, $op, $R, $las <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3391	3503	
==>t the last command". Which is harder.
        $body =~ s/^(\s*)([^\n]+)\s*\Z/$1puts [$2]/m;

        $tests{$name <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4798	4910	
==>t the last command". Which is harder.
        $body =~ s/^(\s*)([^\n]+)\s*\Z/$1puts [$2]/m;

        $tests{$name <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2495	2589	
==>elf->INTERNAL_ERROR("Can't determine type of actual argument (%s)!", ref $args[$i])
      unles <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2195	2289	
==>elf->INTERNAL_ERROR("Can't determine type of actual argument (%s)!", ref $args[$i])
      unles <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	3011	3104	
==>t .= <<"EOH";
Parrot_PMC Parrot_lib_${lc_libname}_load(Parrot_INTERP interpreter);
EOH

    re <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1716	1820	
==>k };

	_CheckParams( [], \%params, \@_, $self );

		exists($$self{VERSION})
	and	$$self{VERSION} < $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1657	1756	
==>k };

	_CheckParams( [], \%params, \@_, $self );

		exists($$self{VERSION})
	and	$$self{VERSION} < $ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	59501	59599	
==>miters.
If no escape char is specified for a given specified delimiter, '\' is used.

Note that 
C< <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	6362	6496	
==>, 8596,
 'crarr'    , 8629,
 'lArr'     , 8656,
 'uArr'     , 8657,
 'rArr'     , 8658,
 'dArr'     , 8659,
 'hArr'     , 8660,
 'foral <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811470	811558	
==>ne 512 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed(interpreter, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812372	812460	
==>ne 512 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed(interpreter, {{\ <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	3444	3588	
==>pes = ();
    for my $arg (@args) {
        next unless $arg->{type};
        
        $types{ $arg->{type} } = 1;
    }
    
    # helper conver <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600062	600152	
==>class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601138	601228	
==>class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	15796	15918	
==>rd slash.

=cut

sub href_path
{
    my $self = shift;
    my $path = shift;

    $path =~ s|\\+|/|go;

    return $path;
} <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	759	854	
==>uff
our $CC = qq[/usr/bin/gcc-4.0 -c];
our $LD = qq[c++];
our $LDFLAGS = qq[-L/opt/local/lib -L/ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	763	858	
==>uff
our $CC = qq[/usr/bin/gcc-4.0 -c];
our $LD = qq[c++];
our $LDFLAGS = qq[-L/opt/local/lib -L/ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1183	1314	
==>LUE  => $value
  }, $class;

  #
  # Check for a few bad conditions.
  #
  # NOTE: These are compiler internal consistency checks. T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665205	665291	
==>=> "#line 359 \"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delete_keyed_int(interpreter, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665982	666068	
==>=> "#line 359 \"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delete_keyed_int(interpreter, {{\ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19547	19651	
==>x/Grammar.y"
{ return op('classpieces' => [ $_[1] ]); }
	],
	[#Rule 13
		 'expr', 2,
sub
#line 117 "lib/R <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627175	627272	
==>preter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n\n  /* Why?? I <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628319	628416	
==>preter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n\n  /* Why?? I <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6886	6996	
==>ut_pushmark {
    my ($self) = @_;
    my @ops;
    if ($self->{DEBUG}) {
	push @ops, (qq(print "PUSHED ).(@_>1 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6536	6646	
==>ut_pushmark {
    my ($self) = @_;
    my @ops;
    if ($self->{DEBUG}) {
	push @ops, (qq(print "PUSHED ).(@_>1 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	11254	11365	
==>accumulating text until end of head1
      if( $token->is_text ) {
        DEBUG and print "   Adding \"", $toke <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063817	1064144	
==>"FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1188,
                  "ARGS" => [
                              "p",
                              "k <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	58947	59086	
==>rules).
                                       It can't be directly called because
				       Parse::RecDescent::$rulename is already define <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	6952	7063	
==>cks {
    my ($self, $t, $guarantee, $follow_min) = @_;

    if ($t->{name} eq 'rule') {
        $t->{args}->[1] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647119	647434	
==>pe",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 723,
                  "ARGS" => [
                              "i" <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	586	752	
==>e, and 

=item * the number of M op/s.

=back

=cut

sub time_hires { time() }

$I2 = 0;                      # set    I2, 0
$I3 = 1;                      # set    I3, <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	589	754	
==>e, and

=item * the number of M op/s.

=back

=cut

sub time_hires { time() }

$I2 = 0;                      # set    I2, 0
$I3 = 1;                      # set    I3, <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28214	28316	
==>self->{file});
    my $name = uc $self->{class};
    $hout .= <<"EOH";

#ifndef PARROT_PMC_${name}_H_GU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147255	147342	
==>line 98 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) == <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148196	148283	
==>line 98 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) == <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4231	4340	
==>ded ?
		and	return;
	}
	my($fname)=__FILE__;
	my(@drv);
	open(DRV,"<$fname") or die "Report this as a BUG <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4016	4120	
==>ded ?
		and	return;
	}
	my($fname)=__FILE__;
	my(@drv);
	open(DRV,"<$fname") or die "Report this as a BUG <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	2752	2846	
==>::DEBUG won't
be a constant sub anymore, and so Pod::Simple (et al) won't compile with
constant <==
3	/Users/nnunley/parrot/config/init/hints/netbsd.pm	230	335	
==>lags .= ' -pthread';
    }
    $conf->data->set(ccflags => $ccflags);

    my $libs = $conf->data->get('li <==
3	/Users/nnunley/parrot/config/init/hints/openbsd.pm	322	427	
==>lags .= ' -pthread';
    }
    $conf->data->set(ccflags => $ccflags);

    my $libs = $conf->data->get('li <==
3	/Users/nnunley/parrot/config/auto/m4.pm	190	287	
==>PTION

Determines whether GNU m4 exists on the system. It is OK when it doesn't exist.
Currently G <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20879	20979	
==>al { 0 }

sub code($$$$)
{
	my ($self, $namespace, $rule) = @_;
	
''.($::RD_NO_TRACE?'':'
		Parse::Re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024986	1025081	
==>" => "#line 275 \"src/ops/sys.ops\"\n   {{\@1}} = sysinfo_s(interpreter, {{\@2}});\n   {{+=3}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025743	1025838	
==>" => "#line 275 \"src/ops/sys.ops\"\n   {{\@1}} = sysinfo_s(interpreter, {{\@2}});\n   {{+=3}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510532	510817	
==>" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511270	511555	
==>" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	512008	512293	
==>" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	7380	7481	
==>..\n" if $DEBUG;
    open (OUT, ">$HTMLDIR/file_summary.html") or
      die "Can't open $HTMLDIR/file_ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	2037	2163	
==>n('/', $path, $self->{INDEX_PATH});
    }
    else
    {
        $path = $self->{INDEX_PATH};
    }
    
    return '<a href="' <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	12047	12147	
==>f($extern);
			goto NEST_ARRAY_ASSIGN if (@work); # Ugly, yeah sue me.
			push @code, qq{\t_ARRAY_ASS <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9206	9302	
==>urns the path for the file with the specified with the specified path
taken relative to the direc <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	9595	9719	
==>r $new_code =~ m/:[-\.0-9]/s;
            # The legal under-0x80 Name characters that 
            #  an XML Name still can't <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10859	10983	
==>r $new_code =~ m/:[-\.0-9]/s;
            # The legal under-0x80 Name characters that 
            #  an XML Name still can't <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5878	5979	
==>estack->{$elsetag}})) {
				push @{$code{$seg}->{code}}, "ELSEBRANCH_$_:\n";
			}
			feedme;
			$elset <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	18591	18706	
==>my $self = shift;

    my $cout = "";
    return "" if exists $self->{flags}{noinit};

    # TODO gen C line comment <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4131	4228	
==>t type (so we can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign register name.
$ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2547	2644	
==>t type (so we can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign register name.
$ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1857	1954	
==>t type (so we can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign register name.
$ <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	16317	16435	
==>ARY_DIVIDE
{
    my ($n, $c, $cmt) = @_;
    binary('/', $cmt);
}
sub BINARY_POWER
{
    my ($op, $cmt) = @_;
    my $r <==
3	/Users/nnunley/parrot/lib/Test/More.pm	9913	10015	
==>e(@_);
}


=item B<cmp_ok>

  cmp_ok( $this, $op, $that, $test_name );

Halfway between ok() and is() l <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	5341	5440	
==>'md5_hex';
    print 'Digest is ', md5_hex('foobarbaz'), "\n";

The above example would print out th <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10042	10133	
==>P2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC}:
if ${ITEMP0} == 0 goto PRE_CALL_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7556	7647	
==>P2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC}:
if ${ITEMP0} == 0 goto PRE_CALL_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6520	6611	
==>P2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC}:
if ${ITEMP0} == 0 goto PRE_CALL_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684642	684737	
==>ps/pmc.ops\"\n      {{\@1}}->vtable->setprop(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n      {{+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685537	685632	
==>ps/pmc.ops\"\n      {{\@1}}->vtable->setprop(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n      {{+ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	37679	37772	
==>ng tag pattern
is specified as C<'{{\w+}}'> and actually matched the opening tag 
C<"{{DATA}}" <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	13562	13668	
==>round line $line:"],
      map( ['~Para', {'start_line' => $m, '~cooked' => 1},
        #['~Top', {'start_l <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9668	9765	
==>(${ASSEMBLY}, ${ARG0})

# If it's a call to instantiate, need to knock off first arg.
if "${CURIC} <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7182	7279	
==>(${ASSEMBLY}, ${ARG0})

# If it's a call to instantiate, need to knock off first arg.
if "${CURIC} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465625	465865	
==>\@1}}--;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dec", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	466246	466486	
==>\@1}}--;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dec", <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	666	751	
==>uct::Block::Loop::Continue;
use Jako::Construct::Block::Loop::Until;
use Jako::Constru <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	1901	1987	
==>Winline -Wpointer-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wno <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1266	1352	
==>Winline -Wpointer-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wno <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1270	1356	
==>Winline -Wpointer-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wno <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	442	576	
==>= shift;
  my ($block, $dest, $left, $op, $right) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'J <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	433	567	
==>= shift;
  my ($block, $dest, $left, $op, $right) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'J <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	322	456	
==>= shift;
  my ($block, $dest, $left, $op, $right) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'J <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	3617	3781	
==>.Data.TdsClient
            Mono.Data
            Mono.GetOptions
            Mono.Http
            Mono.Posix
            Mono.Security.Win32
            Mono <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1433	1544	
==>bclasses to return the C C<#define> macros required.

=item C<opsarraytype()>

Returns the type for the array of <==
3	/Users/nnunley/parrot/lib/Test/More.pm	3367	3461	
==>an);

B<NOTE>: using no_plan requires a Test::Harness upgrade else it will
think everything has <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3260	3359	
==>sc' => "CONST(%ld)->u.string",
    'kc' => "CONST(%ld)->u.key",
    'kic' => "cur_opcode[%ld]"
);

= <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2168	2265	
==>sc'  => "CONST(%ld)->u.string",
  'kc'  => "CONST(%ld)->u.key",
  'kic' => "cur_opcode[%ld]"
);

= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186031	186306	
==>ng_compare(interpreter, {{\@1}}, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186961	187236	
==>ng_compare(interpreter, {{\@1}}, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187891	188166	
==>ng_compare(interpreter, {{\@1}}, {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	28819	28949	
==>{
        $self->whine( $start_line, "A non-empty Z<>" );
      }      # but kill it anyway
        
      splice(@$treelet, $i, 1) <==
3	/Users/nnunley/parrot/lib/Test/More.pm	15396	15517	
==>ight");

which would produce:

    not ok 42 - There's a foo user
    #     Failed test (foo.t at line 52)
    # Since the <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	14907	15009	
==>er...
    handler_offset = eh.get_handler_offset()
    eh_flags = eh.get_flags()
    if eh_flags != 0 g <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	3594	3688	
==>em('', 'tools/dev/gen_charset_tables.pl'),
            $self->new_item('', 'tools/dev/rebuild_m <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	456	547	
==>, and using the
Parrot house-style provided by C<Parrot::HTMLPage>.

=head2 Instance Methods <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	2319	2449	
==>cal $_" ]) }
                    @$rxlocals);
    }
}

sub op_restore_rxlocals {
    my ($self, $op) = @_;
    if ($op->{non_reentr <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	917	1044	
==>|R -> R??
#
sub pass1 {
    my ($self, $t, $ctx) = @_;
    my $type = $t->{name};
    if ($type eq 'seq') {
        # R.(S.T) => <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	3261	3360	
==>);

  $self->SYNTAX_ERROR("Can't do arithmetic on PMCs") if UNIVERSAL::isa($dest_type, 'Jako::Constr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	7112	7224	
==>aren   { return shift->skip('close-paren');   }
sub skip_ident         { return shift->skip('ident');         }
s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032492	1032782	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_lex",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033589	1033879	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_lex",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	8966	9067	
==>b-C\b/ and return "cgp";
  /\b-S\b/ and return "switch";
  /\b-f\b/ and return "fast";
  return "defau <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	3005	3114	
==>ar($self->blocks) - 1;
}


#
# current_block()
#
# Returns the block on the top of the block stack.
#

sub cur <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	626	726	
==>use of this module in a standalone parser make the included
# text under the same copyright as the P <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	607	706	
==>use of this module in a standalone parser make the included
# text under the same copyright as the P <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	33409	33506	
==>rint("1..$self->{Curr_Test}\n") unless $self->no_header;
            $self->{Expected_Tests} = $se <==
3	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	279	373	
==>pm - Testing routines specific to 'regex'.

=head1 DESCRIPTION

Does the same a 'languages/rege <==
3	/Users/nnunley/parrot/config/init/hints/darwin.pm	340	490	
==>ers;
    {
        local $^W;
        if ($OSVers >= 7) {
            $libs =~ s/-ldl//;
        }
    }

    $ccflags .= " -pipe -fno-common -Wno-long <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7179	7275	
==>t"]
${DEST0} = concat ${STEMP0}
${STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
PIR
	}

	retu <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5001	5097	
==>t"]
${DEST0} = concat ${STEMP0}
${STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
PIR
	}

	retu <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	5412	5531	
==>$Version) {
    show_version();
    exit(0);
}

if ($Help) {
    show_help();
    exit(0);
}

unless (@ARGV) {
    show_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	1005	1115	
==>ne '') {
    next if $text =~ s{^\s+}{};   # Skip all whitespace between tokens
    next if $text =~ s{^#.*?$}{ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	1343	1439	
==>m rules.
foreach (@rules) {
	$pir .= generate_rule_code($srm, $_, $metavars);
}

# Generate final <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33932	34052	
==>{type} ne 'void') {
        my $type = $method->{type};
        $ret_def = "$type ret_val;";
        $func_ret = $self->g <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38894	39014	
==>{type} ne 'void') {
        my $type = $method->{type};
        $ret_def = "$type ret_val;";
        $func_ret = $self->g <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	36954	37047	
==>agged> extracts and segments text between (balanced)
specified tags. 

The subroutine takes up <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	4350	4447	
==>k"]= \$P0  # Breakpoints
	\$P0=new .PerlArray
	\$P1["watch"]= \$P0  # Watch
	store_global "DEBUGGE <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	8792	8884	
==>=back

=head1 SEE ALSO

=over 4

=item C<Parrot::Docs::Directory>

=item C<Parrot::Docs::POD2 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	8829	8919	
==>->{args}->[1]->minlen(); }
sub maxlen { $_[0]->{args}->[1]->maxlen(); }

package Regex::Ops <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439537	439624	
==>"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, NULL, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440552	440639	
==>"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, NULL, <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	3568	3721	
==>summary}       = {
    total    => $1,
    ok       => $2,
    failed   => $3,
    todo     => $4,
    skipped  => $5,
    unexpect => $6,
  };

  if(grep <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27111	27202	
==>f=changename($f);
	$f=~s/\$/_string/g; $f=~tr/a-z/A-Z/;
	$seg=$f;
	CALL_BODY($englishname, " <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27384	27475	
==>f=changename($f);
	$f=~s/\$/_string/g; $f=~tr/a-z/A-Z/;
	$seg=$f;
	CALL_BODY($englishname, " <==
3	/Users/nnunley/parrot/config/auto/jit.pm	3547	3727	
==>')
            || ($jitcpuarch eq 'arm')) {
            $execcapable = 1;
            unless (($osname eq 'openbsd')
                || ($osname eq 'freebsd')
                || ($o <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39067	39161	
==>sterminal { 0 }

sub describe { $_[0]->{"expected"} }
sub sethashname { $_[0]->{hashname} = '__ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	4137	4227	
==>0]->{prev}+1;
	substr($parser->{fulltext},0,$missing) =~ m/^(.*)\Z/m;
	return length($1);
} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183239	183387	
==>"
                            ],
                  "BODY" => "#line 285 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184135	184283	
==>"
                            ],
                  "BODY" => "#line 285 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185031	185179	
==>"
                            ],
                  "BODY" => "#line 285 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  { <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4055	4145	
==>);

  return $new;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	291	380	
==>);
  return $new;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	547	636	
==>);
  return $new;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	17417	17522	
==>%2/$op2/g;
    $code .= "\n";
    return($code);
}

__END__ 

=head1 NAME

tools/gen_operator_defs.pl - Ge <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	555	650	
==>ame, $text, @items)>

Returns a new group.

Use this when creating groups within a C<Parrot::Doc <==
3	/Users/nnunley/parrot/config/init/miniparrot.pm	150	238	
==>onfig/init/miniparrot.pm - Miniparrot configuration

=head1 DESCRIPTION

Modifies setting <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	1691	1787	
==>s not initialized with any data.

See L</"Data is not an API">.

=item Initialized Modifiable Dat <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4948	5040	
==>token,$value,$stack,$check,$dotpos)
     = @$self{ 'ERRST', 'NBERR', 'TOKEN', 'VALUE', 'STAC <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4706	4797	
==>token,$value,$stack,$check,$dotpos)
     = @$self{ 'ERRST', 'NBERR', 'TOKEN', 'VALUE', 'STAC <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573089	573340	
==>enum_class_ParrotClass, name);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573999	574250	
==>enum_class_ParrotClass, name);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/config/gen/cpu/i386/auto.pm	459	564	
==>_build cc_run cc_clean);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9160	9262	
==>t move.
POST_STORE_${CURIC}_CONT:
${INS} = concat ${STOREREG}
${INS} = concat " = "
${INS} = concat ${S <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	8378	8478	
==>ource_file} ? "$file_branch_coverage{$source_file} %" : "n/a" ]}</a></td>
             <td><a href="$ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	518	602	
==>Wrap::wrap = 'overflow';
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	352	436	
==>Wrap::wrap = 'overflow';
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	1688	1791	
==>ating local vars.
    return $self->alloc_temp_int($name);
}

sub new_rxlocal {
    my ($self, $op, $nam <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1249	1349	
==>p_pmc();
    $compiler->emit("  $pmc_reg = new $pmc_type");
    $compiler->emit("  $pmc_reg = $ident" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1243	1343	
==>p_pmc();
    $compiler->emit("  $pmc_reg = new $pmc_type");
    $compiler->emit("  $pmc_reg = $ident" <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30858	30970	
==>d, $mv, "post_load for rule $rule->{'name'}");
		$pir .= "### end post_load\n";

        # Emit code to clone val <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2700	2798	
==>piler->temp_reg($formal_arg_type);
      my $value = $args[$i]->compile($compiler);
      $compiler <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2400	2498	
==>piler->temp_reg($formal_arg_type);
      my $value = $args[$i]->compile($compiler);
      $compiler <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7747	7862	
==>OLDOUT if $out;
    local *OLDERR if $err;

    # Save the old filehandles; we must not let them get closed.
    ope <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	7696	7811	
==>OLDOUT if $out;
    local *OLDERR if $err;

    # Save the old filehandles; we must not let them get closed.
    ope <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	34314	34454	
==>' => 171,
			"..." => 172,
			")" => 170
		},
		GOTOS => {
			'parlist' => 169,
			'parlist1' => 173
		}
	},
	{#State 124
		ACTIONS <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1918	2014	
==>{ ++$_[0]{'Indent'} }
sub start_over_block   { ++$_[0]{'Indent'} }

sub   end_over_bullet  { --$_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1486	1582	
==>{ ++$_[0]{'Indent'} }
sub start_over_block   { ++$_[0]{'Indent'} }

sub   end_over_bullet  { --$_ <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	990	1133	
==>in-2level',
             'as' => 'as',
             'asmfun_o' => 'src/asmfun.o',
             'bigendian' => 1,
             'bin_dir' => '/opt <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	24380	24491	
==>$arg_num";
		}

		# int32
		elsif (/^int32$/) {
			$out =  "    \${I_ARG_$arg_num} = bc.read_int32()\n    next_p <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	2979	3072	
==>=item C<extends PMCPARENT>

All methods not defined in PMCNAME are inherited from the PMCPAREN <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	250	374	
==>ile time value given to lib.import()");
        }
        if (-e $path && !-d $path) {
            $*ERR.say("Parameter to li <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	12374	12492	
==>s));
			$pir_args = ",$pir_args" if $pir_args;
			$extern=$sym;
			$optype=optype_of($extern);
			my ($calling_code,@re <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	62096	62203	
==>n't open $filename ($!).\n";

    my $generator = new pirVisitor($FH);
#    my $generator = new pirVisito <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38683	38786	
==>vetext;' : '' ) .'

'
}

package Parse::RecDescent::Result;

sub issubrule { 0 }
sub isterminal { 0 }
su <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	30931	31023	
==>ontext_t * const caller_ctx = PMC_cont(ccont)->to_ctx;\n\tif (! caller_ctx) {\n\t    real_exc <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	33497	33619	
==>o'} }, 0,2;
          #DEBUG > 1 and printf qq{Catching "%s as " as complex L<URL> link.\n},
          #  join '~', @{$tree <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1657	1747	
==>rate_subrule_pir($target, $pattern)
        : Parrot::Test::PGE::_generate_pir_for($target, <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2180	2270	
==>rate_subrule_pir($target, $pattern)
        : Parrot::Test::PGE::_generate_pir_for($target, <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4510	4618	
==>ated code.
	return $pir;
}

sub post_op($$) {
	# Nothing to do.
	return "";
}

# Pre and post branch operatio <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2926	3034	
==>ated code.
	return $pir;
}

sub post_op($$) {
	# Nothing to do.
	return "";
}

# Pre and post branch operatio <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	6809	6903	
==>sort keys %{ $this->{'accept_directives'} } if wantarray;
  return;
}

#----------------------- <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	7491	7584	
==>sort keys %{ $this->{'accept_directives'} } if wantarray;
  return
}

#@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	3352	3437	
==>cs::Section::Config>

=item C<Parrot::Docs::Section::Tests>

=item C<Parrot::Docs::Sec <==
3	/Users/nnunley/parrot/config/init/hints.pm	1122	1242	
==>f $hints->can('runstep');
        $hints_used++;
    }

    if ($hints_used == 0) {
        print "(no hints) " if $verbo <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9266	9363	
==>UG and print "Indenting over $indent_stack[-1] twips.\n";
        $self->{'rtfindent'} += $indent_ <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	96	184	
==>pyright (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/tools/dev/extract_file_descrip <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1535	1650	
==>nvalid distance" if $distance =~ /[^\d\-]/;
    return () if $distance == 0;

    if ($distance == 1) {
        retu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158922	159312	
==>ore",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 192,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943854	943962	
==>{{\@1}} = Parrot_charset_number_of_str(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944643	944751	
==>{{\@1}} = Parrot_charset_number_of_str(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18611	18715	
==>t(1)->is_close_paren) {
        while (1) {
          push @args, Jako::Construct::Expression::Value->new <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19637	19741	
==>t(1)->is_close_paren) {
        while (1) {
          push @args, Jako::Construct::Expression::Value->new <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13810	13921	
==>_name> is the name of the output file we are
generating.

=cut

sub body
{
    my ($self, $method, $line, $out_n <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29593	29704	
==>_name> is the name of the output file we are
generating.

=cut

sub body
{
    my ($self, $method, $line, $out_n <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30235	30346	
==>_name> is the name of the output file we are
generating.

=cut

sub body
{
    my ($self, $method, $line, $out_n <==
3	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	3055	3251	
==>' ', @obj_files) . "\n";
    close(F);
}


############################################################################
sub run_command {
    my ($command) = @_;

    print "- $command\n";
    syst <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2974	3083	
==>g Mark found; but Pod::Simple v$Pod::Simple::VERSION doesn't implement UTF16 yet."
        );
        splice @ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3372	3481	
==>g Mark found; but Pod::Simple v$Pod::Simple::VERSION doesn't implement UTF16 yet."
        );
        splice @ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447551	447790	
==>ine",
                  "CODE" => 512,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 170 \"src/ops/math.ops\"\n  if ({{\@ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	2118	2228	
==>ompile
{
  my $self = shift;

  my ($root, $fh) = @_;

  $fh = FileHandle->new(">-") unless defined $fh;

  $se <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	1214	1313	
==>ful for debugging.

=item C<--include=/path/to/pmc>

Specify include path where to find PMCs.

=item <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1769	1868	
==>e of the token.  This will be either the string
"start", the string "text", or the string "end".

On <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	687	781	
==>is not defined!" unless defined $right;

  confess "Block is not!" unless UNIVERSAL::isa($block <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	699	793	
==>is not defined!" unless defined $right;

  confess "Block is not!" unless UNIVERSAL::isa($block <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233777	233957	
==>,
                              "n"
                            ],
                  "BODY" => "#line 599 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234681	234861	
==>,
                              "n"
                            ],
                  "BODY" => "#line 599 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > <==
3	/Users/nnunley/parrot/lib/Test/More.pm	30382	30513	
==>e eq 'REF' ) {
                push @Data_Stack, { type => $type, vals => [$e1, $e2] };
                $ok = _deep_check($$e1, $$e2 <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	3050	3173	
==>c (split(/\s+/, $pmc_list)) {
        $pmc =~ s/\.pmc$//;
        next if ($pmc =~ /^const/);

        # make each pmc depen <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4965	5066	
==>ything below particular directories use a regex
in C<$ignore>.

=cut

sub files
{
    my $self = shift <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	1431	1529	
==>m * Fragment describe_file() - it shouldn't both `cat` and dispatch
on file suffix.

=item * Finish <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	821458	821714	
==>{{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24323	24512	
==>LAGS" => "",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 32,
                  "ARGS" => [],
                  "BODY" => "#line 429 \ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9809	9903	
==>ion::Value->new($block, $self->require_value);
      my $op    = $self->require_infix_rel->text <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25345	25439	
==>ion::Value->new($block, $self->require_value);
      my $op    = $self->require_infix_rel->text <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837834	838000	
==>[
                              "n"
                            ],
                  "BODY" => "#line 240 \"src/ops/stack.ops\"\n  (void)stack_pop(interpreter, &CONTEX <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	3684	3820	
==>ExplodingSheep => 1
                           });
    ok( defined($btaste) && ref $btaste eq 'Film,     'new() works' );

    ok( $btast <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033199	1033298	
==>ot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@1}};\n    P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034297	1034396	
==>ot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@1}};\n    P <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	472	568	
==>ython mydis.py';
$DEFVAR = 'PerlInt';

getopts('dnD', \%opt);
$file = $ARGV[0];
$lambda_count = 0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761502	761741	
==>ess\");\n    REG_PMC({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762355	762594	
==>ess\");\n    REG_PMC({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	28772	29001	
==>RROT_JUMP_ADDRESS",
                  "NAME" => "get_params",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "fu <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	2203	2396	
==>hod) {
                push @methods, $cur_method;
            }

            # Initiate new method info.
            $cur_method = {
                class           => $1,
                metho <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4401	4504	
==>_for {
    my($target, $pattern, $captures) = @_;
    $target = _parrot_stringify($target);
    $pattern <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6906	7009	
==>_for {
    my($target, $pattern, $captures) = @_;
    $target = _parrot_stringify($target);
    $pattern <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	506	612	
==>$attr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBUG and print "++ $_[1]\n";
  
  print <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	505	611	
==>$attr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBUG and print "++ $_[1]\n";
  
  print <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	700	803	
==>$attr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBUG and print "++ $_[1]\n";
  print <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514192	514515	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515072	515395	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4627	4721	
==>epts a key name, a trigger name, & a C<CODE> ref and returns a
L<Parrot::Configure::Data> objec <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	8534	8651	
==>->{'source_fh'} = $handle;
  DEBUG and print "  Its handle is $handle\n";
  return 1;
}

# ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24572	24688	
==>n);
      $self->_restore ($return);
      $return = $temp;
    }
  } else {
    $return = $self->_generate($node->{c <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26471	26587	
==>n);
      $self->_restore ($return);
      $return = $temp;
    }
  } else {
    $return = $self->_generate($node->{c <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18390	18499	
==>{
}

sub _op_eq {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	1481	1583	
==>on_tag_comment;

    return 1;
}

=item C<do_middle()>

Does the middle of the document. This splits up <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	5769	5905	
==>f = $startpos;
			        return;
			}
			last if $#nesting < 0;
		}
		elsif ($qdel && $$textref =~ m/\G([$qdel])/gc)
		{
			$$textref =~ <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	4266	4373	
==>solete_smokes {
  my $category = sub {
    return join "-",
      (map { $_[0]->{$_} } qw<branch cpuarch osn <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	911	1011	
==>classmatch {
    my ($self, $class, $failLabel) = @_;
    return "rx_oneof P0, $class, ".$self->outpu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048417	1048691	
==>);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049341	1049615	
==>);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060202	1060476	
==>);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  " <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	3120	3245	
==>('popint' => [ $_, "rxlocal $_" ]) }
                reverse @$rxlocals);
}

sub get_temp {
    my ($self, $name) = @_;
    re <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3622	3733	
==>, %props));

    $name =~ s/::/__/g;

    if (exists $props{fn} or exists $props{fnlib}) {
      $name .= "_THUN <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	3057	3168	
==>, %props));

    $name =~ s/::/__/g;

    if (exists $props{fn} or exists $props{fnlib}) {
      $name .= "_THUN <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	15120	15241	
==>ed $regex;

    my($re, $opts);

    # Check for qr/foo/
    if( ref $regex eq 'Regexp' ) {
        $usable_regex = $regex <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1079	1164	
==>ate_left(((X1&X2)|(~X1&X3))+X0+X4+X6$MSK,X5)+X1$MSK;",
#	GG => "X0=rotate_left(((X1&X3 <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5872	5971	
==>with basic block-ish stuff. If the branch
	# did not pop anything it is unconditional, so next instr <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3810	3909	
==>with basic block-ish stuff. If the branch
	# did not pop anything it is unconditional, so next instr <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	5405	5504	
==>y (@params, $k, $v, $params);
    while ( ($k, $v) = each(%{$def_arg_names{$arg}})) {
	$k =~ s/[\*"] <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	4269	4373	
==>_type = $arg_type->imcc;

      $compiler->emit("  .param $imcc_type $arg_name");
      $sig .= $arg_type <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957547	957642	
==>, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\"encoding '%Ss' not foun <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958452	958547	
==>, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\"encoding '%Ss' not foun <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	5952	6105	
==>pen(F, "nm -a $obj|") || die "Can't run nm on $obj\n";
        
        while(<F>) {
            chomp;
            
            my ($type, $symbol) = /^. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015056	1015167	
==>2}});\n  {{\@1}} = string_make(interpreter, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=3}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015880	1015991	
==>2}});\n  {{\@1}} = string_make(interpreter, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=3}};\n",
                  " <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8560	8665	
==>.
	# Otherwise, there's nothing to do here.
	if ($dest_reg) {
		$pir .= <<'PIR'
# Get type (so we can find <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6380	6485	
==>.
	# Otherwise, there's nothing to do here.
	if ($dest_reg) {
		$pir .= <<'PIR'
# Get type (so we can find <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	16870	16961	
==>\?|)
	{
		unless ($$textref =~ m/ \Q$initial\E [^\\$initial]* (\\.[^\\$initial]*)* \Q$initia <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	15807	15923	
==>};

            my $pass = $builder->$meth( $real_output, $expected, $desc );
            $builder->diag("'$cmd' fail <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	18358	18474	
==>};

            my $pass = $builder->$meth( $real_output, $expected, $desc );
            $builder->diag("'$cmd' fail <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	3659	3750	
==>_FLAGS ${table{$name}}[256];\n";
}
print "#endif /* PARROT_CHARSET_TABLES_H_GUARD */\n";
clo <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	2622	2749	
==>{ aop('popint' => [ $_, "op rxlocal $_" ]) }
                    reverse @$rxlocals);
    }
}

sub rule_save_rxlocals {
    my ( <==
3	/Users/nnunley/parrot/config/init/defaults.pm	4184	4304	
==>r      => 'blib/lib',

        # libparrot library names
        libparrot_static => 'libparrot'.$Config{_a},
        lib <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	885	984	
==>oken, and a C end-token.  And
if you want to get the "foo" out of the text-token, call C<< $token->t <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9792	9886	
==>onstruct::Expression::Value->new($block, $self->require_value);
      my $op    = $self->requir <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25328	25422	
==>onstruct::Expression::Value->new($block, $self->require_value);
      my $op    = $self->requir <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356703	356942	
==>VAL_FMT, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357363	357602	
==>VAL_FMT, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	14108	14210	
==>p name=summary>
                <span class="tests_total"><tmpl_var name=total> test cases</span>:<br / <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8001	8123	
==>L);
sub output_popindex {
    my $self = shift;

    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7654	7776	
==>L);
sub output_popindex {
    my $self = shift;

    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	4598	4706	
==>st) = @_;

    if (($min == 0) && defined($max) && ($max == 1)) {
        return $self->rewrite_optional($op, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256382	256485	
==>ops\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257290	257393	
==>ops\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258198	258301	
==>ops\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4}};\ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10663	10826	
==>) {
                    my $result = new_tmp( $parser, 'pmc' );
                    push @opcodes,
                        new LocalDir( $parser, 'result' => $re <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	4779	4909	
==>tive to cuts.
        
        # Note also that we haven't yet applied the transcoding to $line
        #  by time we call $code_ha <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	13015	13120	
==>tion->new;
    my $file = $dist->file_for_perl_module($module);
    
    return if not $file or not $file- <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	20200	20309	
==>alse

  ok
  ok
  ok

Most useful when you can't depend on the test output order, such as
when threads or fork <==
3	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	736	819	
==>ples/benchmarks/stress.pl>, 
F<examples/benchmarks/stress1.pasm>, 
F<examples/benchm <==
3	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	583	666	
==>ples/benchmarks/stress.pl>, 
F<examples/benchmarks/stress1.pasm>, 
F<examples/benchm <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	7180	7314	
==>c"))
          or die "compile $src_stem.c failed ($?)\n";
    }
    else {
        1;
    }
}

sub partial_link {
    my ($group, $lib <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7391	7525	
==>c"))
          or die "compile $src_stem.c failed ($?)\n";
    }
    else {
        1;
    }
}

sub partial_link {
    my ($group, $lib <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059484	1059657	
==>),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_name",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060388	1060561	
==>),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_name",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	18103	18209	
==>', {}, ...]
    # We use this feechure in gen_errata and stuff.

    DEBUG and print "Applying precooked tr <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	532	639	
==>_[0]{'output_fh'};
  my($key, $value);
  DEBUG and print "++ $_[1]\n";
  
  print $fh   '  ' x ($_[0]{'inden <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	531	638	
==>_[0]{'output_fh'};
  my($key, $value);
  DEBUG and print "++ $_[1]\n";
  
  print $fh   '  ' x ($_[0]{'inden <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	98834	98920	
==>96 \"src/ops/bit.ops\"\n  {{\@1}}->vtable->i_bitwise_not(interpreter, {{\@1}});\n  {{+= <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2217	2337	
==>my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various libraries in the link line.
        $liblist = jo <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2509	2629	
==>my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various libraries in the link line.
        $liblist = jo <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2304	2424	
==>my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various libraries in the link line.
        $liblist = jo <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	1958	2071	
==>ON    
    $ret |= 0x0800 if $chr =~ /^[[:alnum:]]$/;  # CCLASS_ALPHANUMERIC   
    $ret |= 0x1000 if $chr =~ /^[\ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	82	188	
==>b new_tmp {
    my ( $parser, $type, $subtype ) = @_;
    my $idf = 'tmp_' . $parser->YYData->{idx_tmp}++ <==
3	/Users/nnunley/parrot/tools/dev/symlink.pl	102	199	
==>ust one (read-only) copy of the sources but several different
# build trees.  The -v option displa <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7024	7184	
==>ndef;
                next;
            };

            #reduce
            my($lhs,$len,$code,@sempar,$semval);
            ($lhs,$len,$code)=@{$$rules[-$ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6698	6852	
==>ndef;
                next;
            };

            #reduce
            my($lhs,$len,$code,@sempar,$semval);
            ($lhs,$len,$code)=@{$$rules[-$ <==
3	/Users/nnunley/parrot/config/inter/libparrot.pm	308	407	
==>on
step determines whether it should be build static or shared.

=cut

package inter::libparrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390653	390920	
==>S" => [
                              "p",
                              "ic",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	19404	19520	
==>($self->implements($meth)) {
            $meth_name = "Parrot_${classname}_$meth";
        }
        elsif (exists $s <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	2548	2642	
==>t.

=head2 Op Body (Macro Substitutions)

In the following macro descriptions, C<PC> and C<PC'> <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11711	11852	
==>sh @opcodes, @{ $last_key->[1] };
                    my $assign = new KeyedSetOp( $parser,
                        'arg1'   => $last_key->[ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9915	10048	
==>sh @opcodes, @{ $last_key->[1] };
                my $assign = new KeyedSetOp( $parser,
                    'arg1'   => $last_key->[ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8778	8895	
==>sh @opcodes, @{ $last_key->[1] };
        my $assign = new KeyedSetOp( $parser,
            'arg1'   => $last_key->[ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627507	627779	
==>rpreter, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628651	628923	
==>rpreter, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39124	39353	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41684	41913	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PA <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15219	15315	
==>is_deeply (Array @got, Array @expected, Str $desc?) returns Bool;
  multi sub is_deeply (List  $g <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5036	5308	
==>> 0,
                  "NAME" => "reserved",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7,
                  "ARG <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/EditorPlugins.pm	127	232	
==>1564Z bernhard  $

=head1 NAME

Parrot::Docs::Section::EditorPlugins - Editor Plugins documentation sectio <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20060	20191	
==>ng => 'STRING');
			die "Unknown type $type (source line $sourceline)" unless ( exists $th{$type} or
							  exists $usertypes{$typ <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	1365	1475	
==>g/auto/sizes/test_c.in');
    cc_build();
    my %results = eval cc_run();
    cc_clean();

    for (keys %resu <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	47149	47256	
==>tererror,$line);
			$lookahead = $lookahead ? $lookahead : 1;
			$lookaheadspec .= $1;
			next;	# SKIP LOOKA <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4453	4570	
==>print "\n";';
    }
    return @ops;
}

sub output_classmatch {
    my ($self, $incexc, $failLabel) = @_;

    my $pas <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4790	4906	
==>print "\n"';
    }
    return @ops;
}

sub output_classmatch {
    my ($self, $incexc, $failLabel) = @_;

    my $pas <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	481	572	
==>ut I don't think we need that
$Text::Wrap::wrap = 'overflow';
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74649	74744	
==>:lastexpected;
			$Parse::RecDescent::unexpected
			    = $_savetext || $Parse::RecDescent::last <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	683	777	
==>ix>

The exec prefix. Defaults to '/usr'.

=item C<bindir>

The executables directory. Defaults <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	912	1006	
==>ix>

The exec prefix. Defaults to '/usr'.

=item C<bindir>

The executables directory. Defaults <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	2333	2527	
==>1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cpu_ret",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	1845	1944	
==>',
	'pbc' => 'Parrot bytecode',
	'pl' => 'Perl script',
	'pm' => 'Perl module',
	'pmc' => 'PMC code' <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	18473	18565	
==>xtref =~ m{.*?\n(?=$label\n)}gc) {
			_failmsg qq{Missing here doc terminator ('$label') afte <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8414	8516	
==>nd_of_ident
{
  my $self = shift; # Required: Jako::Construct::Block
  my $name = shift; # Required: st <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319967	320057	
==>> "#line 124 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (INTVAL)((Parrot_Int4)({{\@2}}));\n  {{+=3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320737	320827	
==>> "#line 124 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (INTVAL)((Parrot_Int4)({{\@2}}));\n  {{+=3 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2069	2160	
==>f (not $self->prefix and $self->peer and $self->peer->prefix) {
    $self->prefix($self->pee <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1946	2037	
==>f (not $self->prefix and $self->peer and $self->peer->prefix) {
    $self->prefix($self->pee <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2995	3109	
==>bal')) {
    $dest = $dest_ident->compile($compiler);
  }

  #
  # For built-in subs (ops):
  #

  if (exists $prop <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	275	372	
==>e Python stack-oriented bytecode to PIR.

use strict;
use Getopt::Std;

my ($DIS, @dis, @source, $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46958	47058	
==>1}} != 0) { Interp_debug_SET(interpreter,   {{\@1}}); }\n  else         { Interp_debug_CLEAR(interpre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47741	47841	
==>1}} != 0) { Interp_debug_SET(interpreter,   {{\@1}}); }\n  else         { Interp_debug_CLEAR(interpre <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	3731	3821	
==>_output_isnt($code, $unexpected, $description)>

Runs the Parrot Bytecode and passes the te <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	2215	2373	
==>d a data structure.
# ############################################
sub parse_rules($) {
    # Get filename and open the file.
    my $filename = shift;
    ope <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7344	7488	
==>next;
        unless( $next->type eq 'text' ) {
          $self->unget_token($next);
          next;
        }
        DEBUG and print "    raw t <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9589	9733	
==>next;
        unless( $next->type eq 'text' ) {
          $self->unget_token($next);
          next;
        }
        DEBUG and print "    raw t <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	6572	6679	
==>endpos,    length($$textref)-$endpos,	# REMAINDER
	       );
}

sub revbracket($)
{
	my $brack = reverse $_[ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114877	115195	
==>0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115731	116049	
==>0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116586	116904	
==>0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
3	/Users/nnunley/parrot/Configure.pl	7606	7717	
==>f you do not have a full ICU installation:

   --without-icu        Build parrot without ICU support
   --icuhea <==
3	/Users/nnunley/parrot/config/gen/icu.pm	3637	3745	
==>f you do not have a full ICU installation:

   --without-icu        Build parrot without ICU support
   --icu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	245807	245897	
==>s\"\n  {{\@1}} = mmd_dispatch_i_pp(interpreter, {{\@2}}, {{\@3}}, MMD_STRCMP);\n  {{+=4}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	589	687	
==>nfigure::Step::Base;

use strict;
use warnings;

=head2 Methods

=head3 Constructors

=over 4

=ite <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1657	1750	
==>>find_symbol($dest->value);
  $self->SYNTAX_ERROR("Assigning to unknown variable %s.", $dest-> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1615	1708	
==>>find_symbol($dest->value);
  $self->SYNTAX_ERROR("Assigning to unknown variable %s.", $dest-> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1537	1630	
==>>find_symbol($dest->value);
  $self->SYNTAX_ERROR("Assigning to unknown variable %s.", $dest-> <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	1391	1529	
==>y $dir ($self->directories())
        {
            next if defined $ignore and $dir->name =~ /$ignore/;
            
            push @fil <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1247	1356	
==>ure out how many levels we have to go back to get to parrot.
        # And, conversely, how many levels we hav <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	717	822	
==>ure out how many levels we have to go back to get to parrot.
    # And, conversely, how many levels we hav <==
3	/Users/nnunley/parrot/lib/Test/More.pm	16729	16831	
==>So this:

   BEGIN { use_ok('Some::Module', qw(foo bar)) }

is like doing this:

   use Some::Module qw <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661951	662035	
==>MC_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(interpreter, {{\@2}}, {{\@3}}) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662867	662951	
==>MC_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(interpreter, {{\@2}}, {{\@3}}) <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1499	1609	
==>g = check_progs(['bison -v -y', 'yacc', 'byacc'], $verbose);

    unless ($prog) {

        # fall back to defa <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	883	986	
==>xport {
    Test::proclaim($cond, $desc, $todo, :$depends);
}

## is

sub is (Str $got, Str $expected, S <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104028	1104115	
==>ass);\n\t}\n\tif (type <= 0)\n\t\treal_exception(interpreter, NULL, NO_CLASS,\n\t\t\t\t\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105243	1105330	
==>ass);\n\t}\n\tif (type <= 0)\n\t\treal_exception(interpreter, NULL, NO_CLASS,\n\t\t\t\t\ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	12304	12406	
==>//s;

  DEBUG > 2 and print "Ogling encoding directive: =encoding $content\n";
  
  if($content eq 'ALR <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	23323	23421	
==>rint "\t\t $cmt $name\n";
    if ($builtin_ops{$name} && $builtin_ops{$name} eq 's') {
	no strict " <==
3	/Users/nnunley/parrot/config/auto/pack.pm	1228	1354	
==>ack is annoying, and this won't work unless sizeof(UV) >= 8
            $format = 'q';
        }
        warn "Configure.pl:  U <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	139	251	
==>ew {
    my ($class, $language, %options) = @_;

    if ($language eq 'perl5') {
        $class = 'Regex::Driver: <==
3	/Users/nnunley/parrot/examples/benchmarks/fib.pl	97	188	
==>.pl 19601 2006-05-30T13:32:26.641316Z coke  $

=head1 NAME

examples/benchmarks/fib.pl - Fib <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	223	319	
==>15.110975Z coke  $

=head1 NAME

tools/build/dynpmc.pl - Build script for dynamic PMCs

=head1 DE <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	910	1001	
==>f->{parrot} $args languages/APL/APL.pbc $lang_f";

    $exit_code = Parrot::Test::run_comman <==
3	/Users/nnunley/parrot/Configure.pl	8881	8990	
==>anifest
    init::defaults
    init::miniparrot
    init::hints
    init::headers
    inter::progs
    inter:: <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	778	877	
==>b',
			    'lib/Parrot/OpTrans.pm', 'lib/Parrot/OpTrans'),
		),
		$self->new_group('PMCs', '',
			$s <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	18137	18234	
==>hure in gen_errata and stuff.

    DEBUG and print "Applying precooked treelet hack to $_[0][0]\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945998	946236	
==>" => "function",
                  "CODE" => 1064,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 521 \"src/ops/string.o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830574	830668	
==>Y" => "#line 186 \"src/ops/stack.ops\"\n  INTVAL i = {{\@1}};\n  stack_push(interpreter, &CONTE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831315	831409	
==>Y" => "#line 186 \"src/ops/stack.ops\"\n  INTVAL i = {{\@1}};\n  stack_push(interpreter, &CONTE <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4464	4589	
==>= @_;

    if (@{ $self->{args} } == 0) {
        delete $self->{name};
        delete $self->{args};
        return $self->op <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5601	5726	
==>= @_;

    if (@{ $self->{args} } == 0) {
        delete $self->{name};
        delete $self->{args};
        return $self->op <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	2374	2486	
==>b)(?!\w)(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, 'sub', undef, $1);
      $text = $2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5032	5284	
==>P" => 0,
                  "NAME" => "reserved",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7 <==
3	/Users/nnunley/parrot/Configure.pl	1571	1669	
==>>

Specify which compiler to use.

=item C<--ccflags=(flags)>

Use the given compiler flags.

=item <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	191	286	
==>up the native call routines

=head1 SYNOPSIS

    % perl tools/build/nativecall.pl src/call_list <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2087	2195	
==>want to complain
  # about the redefinition. Otherwise, we assume the programmer wanted to shadow the
  # pre <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1607	1715	
==>want to complain
  # about the redefinition. Otherwise, we assume the programmer wanted to shadow the
  # pre <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1834	1942	
==>want to complain
  # about the redefinition. Otherwise, we assume the programmer wanted to shadow the
  # pre <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	6108	6239	
==>= 0;
sub vtable_num($) {
    my $meth = shift;
    unless ($vtable) {
        $vtable = parse_vtable();
    }
    my $i = 0;
    $vj <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	1876	1978	
==>/ or croak("Bad class name: $class");

		my $modulefile = $class;
		$modulefile =~ s/.*:://;
		$modulef <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	43339	43435	
==>e too that, when using the /x modifier on a regex, any comment
containing the current pattern del <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	13821	13954	
==>p = next;
        }
        free(hop);
    }
    hop = 0;
}

END_C

}
else {
    print SOURCE <<END_C;
static void hop_deinit(void) {} <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9904	9999	
==>es[$$stack[-1][0]]{ACTIONS})
			        or  not exists($$states[$$stack[-1][0]]{ACTIONS}{error} <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9458	9552	
==>es[$$stack[-1][0]]{ACTIONS})
			        or  not exists($$states[$$stack[-1][0]]{ACTIONS}{error} <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7628	7728	
==>t, 2;
	
	return $desc;
}

=item C<short_description()>

Returns a short description of the file extra <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	321	417	
==>o::Construct::Statement::Return;

use Carp;

use base qw(Jako::Construct::Statement);


#
# new() <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	690716	691020	
==>( {
                  "JUMP" => 0,
                  "NAME" => "thaw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691472	691776	
==>( {
                  "JUMP" => 0,
                  "NAME" => "thaw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6396	6497	
==>-1][0] eq '~Verbatim') {
        DEBUG > 1 and print "Saving blank line at line ${$self}{'line_count'} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	19986	20119	
==>eg) {
        if( $dont_ignore ) {
          $dont_ignore = '';
          delete $para->[1]{'target_matching'};
          DEBUG > 2 an <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	2350	2481	
==>ONST(%ld)",
        kic => "cur_opcode[%ld]"
    );
}

sub readjit {
    my $file = shift;

    my %ops;
    my $template;

    open <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	2542	2659	
==>$;$%) {
            my( $code, $expected, $desc, %extra ) = @_;

            Parrot::Test::convert_line_endings( $code <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6678	6776	
==>$self, $failLabel) = @_;
    my $fail = $self->output_label_use($failLabel);
    return ($self->dbp <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6322	6420	
==>$self, $failLabel) = @_;
    my $fail = $self->output_label_use($failLabel);
    return ($self->dbp <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	31402	31527	
==>n, $c, $cmt) = @_;
    if (@loops) {
	my $pc = pop @loops;
	print <<EOC;
	# $pc  $cmt
	clear_eh
EOC
    }
    else {
	print << <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2973	3094	
==>ed')) {
            $conf->data->set(libparrot_ldflags => 'libparrot$(A)');
        }

        # 'link' needs to be link.e <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	20048	20152	
==>ti_match' => [ 1, -1, FALSE, $_[1] ]); }
	],
	[#Rule 17
		 'expr', 2,
sub
#line 125 "lib/Regex/Grammar.y" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578788	579116	
==>ject_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 661,
                  "ARGS" => [
                              " <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	3107	3234	
==>\_.;]/) { # Punct
		append;
		emit("PUN");
		fetch;
		goto MAIN;
	}

	if ($cur eq "\n") {   # ;?
		append;
		emit("STMT");
		fet <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	13572	13679	
==>d).  This is most useful when writing modules and you
find there is some language feature missing, or core b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256372	256480	
==>c/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3}} : 0;\n  {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257280	257388	
==>c/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3}} : 0;\n  {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258188	258296	
==>c/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3}} : 0;\n  {{+= <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9589	9711	
==>{
#DBG>				$debug & 0x10
#DBG>			and	print STDERR "**At eof: aborting.\n";
				return(undef);
			};

#DBG>			$debug & <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	7736	7856	
==>xists $op->{op} ) {
            print {$FH}
                "  unless $op->{arg1}->{symbol} $op->{op} $op->{arg2}->{sym <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9158	9274	
==>{
#DBG>				$debug & 0x10
#DBG>			and	print STDERR "**At eof: aborting.\n";
				return(undef);
			};

#DBG>			$debug & <==
3	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	683	839	
==>1 in $self\n";
            return $defn;
        }
        else {
            my $parser = $self->{parser};
            for my $symbtab ( @{ $parser->YY <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	4124	4242	
==>(\d+)(?: source)? lines executed in function (.*)/;
            if ($total_lines) {
                $function_line_cove <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	2817	2934	
==>s'  => \$cfg{bench_path},
    'list'         => \$cfg{list_only},
    'time'         => \$cfg{use_times},
    'help|?' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30806	30922	
==>ntent of the item if it's a number or bullet.
          DEBUG and print " Item is of type ", $para->[0], " under $ove <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	31771	31887	
==>ntent of the item if it's a number or bullet.
          DEBUG and print " Item is of type ", $para->[0], " under $ove <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34094	34210	
==>ntent of the item if it's a number or bullet.
          DEBUG and print " Item is of type ", $para->[0], " under $ove <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215071	215251	
==>ger(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216012	216192	
==>ger(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	1324	1471	
==>akefiles/root.in' => 'Makefile',
        commentType                    => '#',
        replace_slashes                => 1,
        conditioned_lin <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	444	603	
==>_is         => 'is_eq',
    output_like       => 'like',
    output_isnt       => 'isnt_eq'
                        );

foreach my $func ( keys %language_test_m <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	783	942	
==>_is         => 'is_eq',
    output_like       => 'like',
    output_isnt       => 'isnt_eq'
                        );

foreach my $func ( keys %language_test_m <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	358	517	
==>_is         => 'is_eq',
    output_like       => 'like',
    output_isnt       => 'isnt_eq'
                        );

foreach my $func ( keys %language_test_m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480392	480660	
==>=> "inline",
                  "CODE" => 550,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 446 \"src/ops/math.ops\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4422	4537	
==>NULL;
}
END_C

    $c .= " /* " . $self->core_prefix . "$base */\n\n";

    return $c;
}

=back

=head1 SEE ALSO

=o <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	29391	29505	
==>ust be undef. (E.g., in "L<Perl
# Functions|perlfunc>", the link-text is "Perl Functions". In
# "L<Time::HiRes>" an <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	22766	22873	
==>ub _print {
    my($self, @msgs) = @_;

    # Prevent printing headers when only compiling.  Mostly for when <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	2866	2971	
==>er;


sub TIESCALAR	# ($classname, \$text, $thisparser, $prevflag)
{
	bless {
		text    => $_[1],
		parser <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	3863	3967	
==>er;

sub TIESCALAR	# ($classname, \$text, $thisparser, $prevflag)
{
	bless {
		text    => $_[1],
		parser <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462896	463162	
==>"Divide by zero\");\n  {{\@1}} = fmod({{\@2}}, den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463893	464159	
==>"Divide by zero\");\n  {{\@1}} = fmod({{\@2}}, den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464890	465156	
==>"Divide by zero\");\n  {{\@1}} = fmod({{\@2}}, den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852864	853129	
==>JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853645	853910	
==>JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "in <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	1680	1803	
==>{
        next unless defined $_;

        if (/DO NOT EDIT/) {
            print "Skipping $file (automatically generated)\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	311645	311846	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "backtrace",
                  "FLAGS" => ":base_debug",
                  "ARGDIRS" => [],
                  "T <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7358	7524	
==>pt();

            $$dotpos=$len;

                unpack('A1',$lhs) eq '@'    #In line rule
            and do {
                    $lhs =~ /^\@[0-9]+\-([0-9]+ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7019	7179	
==>pt();

            $$dotpos=$len;

                unpack('A1',$lhs) eq '@'    #In line rule
            and do {
                    $lhs =~ /^\@[0-9]+\-([0-9]+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698485	698869	
==>"i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 784,
                  "ARGS" => [
                              "i",
                              "ic",
                              "ic",
                              "p"
                            ],
                  "BODY" => "#line 6 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6506	6628	
==>hanged,
   ' force another pass by setting Exchange to TRUE.
   FOR I = 2 TO Max
      IF A$(I-1) > A$(I) THEN
         Exc <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16159	16281	
==>hanged,
   ' force another pass by setting Exchange to TRUE.
   FOR I = 2 TO Max
      IF A$(I-1) > A$(I) THEN
         Exc <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	4942	5071	
==>turn $t;
    }
}

# Note: the following fails to rewrite
#   aR|[a]S
# to
#   a(R|S)
#
sub matchsame {
    my ($R, $S) = @_;
    r <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	5925	6027	
==>e chars that are special in regular expressions
       push @skip, qq{# generated from svn:ignore of '$ <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	6839	6935	
==>n the given directories).
Optionally, die with an error message if that file cannot be found.

=c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957608	957755	
==>LL, 1,\n\t\"encoding '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958513	958660	
==>LL, 1,\n\t\"encoding '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	1629	1771	
==>er = $self->{parser};
        for ( @{ $parser->YYData->{scopef} } ) {
            if ( ref $_ eq 'ARRAY' ) {
                for my $symbta <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6485	6597	
==>irs. When two are exchanged,
   ' force another pass by setting Exchange to TRUE.
   FOR I = 2 TO Max
      IF A$ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16138	16250	
==>irs. When two are exchanged,
   ' force another pass by setting Exchange to TRUE.
   FOR I = 2 TO Max
      IF A$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	594	700	
==>>

Returns an empty string.

=cut

sub core_prefix
{
    return "";
}

=item C<defines()>

Returns the C C< <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15472	15567	
==>ot, Pair  $expected, Str $desc?) returns Bool;

Because these functions will be mutually recursi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947090	947183	
==>terpreter, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\"charset '%Ss <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947992	948085	
==>terpreter, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\"charset '%Ss <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	36085	36222	
==>\n";
      for(my $j = 0; $j < @ell_content; ++$j) {
        next if ref $ell_content[$j];
        DEBUG > 3 and
         print "    Peeri <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	37294	37431	
==>\n";
      for(my $j = 0; $j < @ell_content; ++$j) {
        next if ref $ell_content[$j];
        DEBUG > 3 and
         print "    Peeri <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	29621	29734	
==>urn;
			print FUNC<<FUNCDISP;
				
	#
	# User function dispatch routine
	#
UF_DISPATCH:
	I1= -1
FUNCDISP
		if (%fu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	5600	5787	
==>tributes => {
          name  => $name,
          type  => $type,
          kind  => 'op',
          oplib => $oplib,
          op    => $op
        }
      });
    }
    else {
      $han <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	3828	3970	
==>,
		     "!=" => "==",
		     "<" => ">=",
		     ">" => "<=",
		     "<=" => ">",
		     ">=" => "<",
		 }->{$test};

    if ($dest->{name} eq <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	5677	5820	
==>ine',
             'i_sysin' => undef,
             'i_sysioctl' => 'define',
             'i_syslog' => 'define',
             'i_sysmman' => ' <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	3067	3182	
==>";
		while(1) {
			feedme();
			$_=$type[CURR];
			last unless $_;
			last if $_ =~ /STMT|COMM|COMP/;
			push @{$cod <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1091676	1091938	
==>[
                              "p",
                              "p",
                              "kc",
                              "ic"
                            ],
                  "BODY" => "#line 191 \"src/ops/experimental.ops\"\n    {{\@1}} = {{\@2} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213114	213203	
==>ODY" => "#line 423 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	806	935	
==>IN {
  if(defined &ASCII)    { }
  elsif(chr(65) eq 'A') { *ASCII = sub () {1}  }
  else                  { *ASCII = sub () {''} } <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4752	4855	
==>urns the C code prior to the run core function.

=cut

sub run_core_func_start
{
    return <<END_C;
#if <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3040	3143	
==>urns the C code prior to the run core function.

=cut

sub run_core_func_start
{
    return <<END_C;
#if <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	6687	6795	
==>$name = $self->linearize_tokens(@to_unget);
        
        if(defined $name) { # ludicrously long, so never <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	9243	9340	
==>UG;
	${seg}_debug($sourceline)
DEBUG
}

sub english_func {
	local $_=$_[0];
	s/\$$/dollar/;
	s/\%$ <==
3	/Users/nnunley/parrot/lib/File/Which.pm	4083	4175	
==>ial extensions such as C<.exe> and
C<.bat> to identify them, C<File::Which> takes extra steps <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763560	763934	
==>ef",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 862,
                  "ARGS" => [
                              "ic",
                              "n"
                            ],
                  "BODY" = <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	1239	1332	
==>diff move_if_diff)]
);

=item C<integrate($orig, $new)>

Integrates C<$new> into C<$orig>.  Re <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	2157	2267	
==>settings might have changed for the test
        $conf->data->set('libs',      $libs);
        $conf->data->set <==
3	/Users/nnunley/parrot/config/auto/readline.pm	1957	2067	
==>settings might have changed for the test
        $conf->data->set('libs',      $libs);
        $conf->data->set <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6209	6303	
==>um;

/* &end_gen */

#ifdef PARROT_IN_OBJECTS_C
static const char * const Parrot_mmd_func_names <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1947	2044	
==>g_name) = @{$formal_args[$i]};
    my $actual_arg_type;

    if (UNIVERSAL::isa($args[$i], 'Jako:: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1647	1744	
==>g_name) = @{$formal_args[$i]};
    my $actual_arg_type;

    if (UNIVERSAL::isa($args[$i], 'Jako:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804276	804383	
==>1}}->vtable->set_pmc_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805177	805284	
==>1}}->vtable->set_pmc_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	6521	6618	
==>utput4;
    foreach my $stmt (@output3) {
	if (ref $stmt->{code} && $stmt->{code}->{name} eq 'goto <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	12593	12717	
==>rd in the string to ignore any options
        ($util) = $util =~ /(\S+)/;
        my $path = which($util);

        if ($ver <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	42680	42789	
==>eneral-purpose
C<extract_tagged>.


=head2 C<extract_quotelike>

C<extract_quotelike> attempts to recognize, e <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	25967	26071	
==>$text,$delim);


 # Extract the initial substring of $text that is bounded by
 # an HTML/XML tag.

	($ext <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	245	424	
==>=cut

###############################################################################


use strict;
eval "use warnings 'all';";

package Jako::Construct::Block;

use base qw(Jako:: <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	44060	44166	
==>ent> (chr $charnum), so replacing with $replacer\n";
      } else {
        $replacer = Pod::Escapes::e2cha <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6471	6569	
==>l();
		label_defined($syms[CURR]);
		push @{$code{$seg}->{code}}, "$labels{$syms[CURR]}:   # For us <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16343	16450	
==>n map {; ($x = $_) =~
      s/([F\x00-\x1F\\\{\}\x7F-\xFF])/$Escape{$1}/g;  # ESCAPER
      $x =~ s/([^\x00- <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	23016	23111	
==>new .PerlHash
	P1["_type"]= '$type'
	P1["type"]= "USER"
	P1["storage"]= P0
	P2["$var"]= P1
DIMTY <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	5785	5879	
==>t
Test::More.  Test::Simple is 100% forward compatible with Test::More
(i.e. you can just use T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945458	945661	
==>nterpreter, Parrot_charset_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946268	946471	
==>nterpreter, Parrot_charset_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	500	611	
==>tempt another match, or just
# abort and return to $lastback.
#

sub new {
    my ($proto, %options) = @_;
    m <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6097	6197	
==>>require('open-paren');    }
sub require_infix_rel     { return shift->require('infix-rel');     }
su <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6839	6932	
==>6-0
t$="1234567890"
print mid$(t$, 2, 8)
print left$(t$, 5)
print right$(t$, 5)
' instr
s1$="T <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18568	18661	
==>6-0
t$="1234567890"
print mid$(t$, 2, 8)
print left$(t$, 5)
print right$(t$, 5)
' instr
s1$="T <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	3549	3693	
==>e
    $P0[unicode:"monadic:\u2308"] =  <<"END_PIR"            # ceiling
    $N100 = %1
    $I100 = ceil $N100
    %1 = $I100
END_PIR

    $P0[uni <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	814	949	
==>win32/i) {
        if ($cc =~ /^gcc/i) {
            $conf->data->add(' ', libs => '-lgmp');
        } else {
            $conf->data->a <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	5827	5920	
==>d compatible with Test::More
(i.e. you can just use Test::More instead of Test::Simple in your <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	1856	2054	
==>ntType                             => '#',
        replace_slashes                         => 0,
        conditioned_lines                       => 1
    );
    genfile(
        'config/gen/makefiles <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	1598	1793	
==>ntType                             => '#',
        replace_slashes                         => 0,
        conditioned_lines                       => 1
    );
	genfile(
        'config/gen/makefiles <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	59485	59580	
==>e remaining delimiters.
If no escape char is specified for a given specified delimiter, '\' is u <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	2089	2208	
==>";
    } elsif ($meta{lib}) {
        $entry = "$options{libdir}/$dest";
    } elsif ($meta{bin}) {
        $entry = "$o <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	12043	12161	
==>tra_preamble_ref},
            "t_$temp_num = (double)GET_NCI_N($reg_num);";
        return "t_$temp_num";
    };
    / <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	8353	8462	
==>ke Test::Simple's ok().

=cut

sub ok {
    my($self, $test, $name) = @_;

    # $test might contain an object <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682246	682338	
==>/pmc.ops\"\n    {{\@1}} = {{\@2}}->vtable->shift_float(interpreter, {{\@2}});\n    {{+=3}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015024	1015115	
==>char * const tmp = strerror({{\@2}});\n  {{\@1}} = string_make(interpreter, tmp, strlen(tmp) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015848	1015939	
==>char * const tmp = strerror({{\@2}});\n  {{\@1}} = string_make(interpreter, tmp, strlen(tmp) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	450	558	
==>b new
{
  my $class = shift;

  confess "Expected 3 args!" unless @_ == 3;
  my ($block, $ident, $props) = @_ <==
3	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	3774	3872	
==>tter;

=head1 DESCRIPTION

Primarily intended to be used by C<pirtidy.pl>. Given some ugly PIR,
for <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	2765	2862	
==>am int register
  .param pmc argv

  .local pmc compiler
  .get_from_HLL(compiler, '_tcl', 'compil <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1002	1096	
==>');
  confess "Left is not Value!" if defined $left and not UNIVERSAL::isa($left, 'Jako::Constr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1030	1124	
==>');
  confess "Left is not Value!" if defined $left and not UNIVERSAL::isa($left, 'Jako::Constr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	702	796	
==>');
  confess "Left is not Value!" if defined $left and not UNIVERSAL::isa($left, 'Jako::Constr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946494	946667	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_charset",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947395	947568	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_charset",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	49797	49901	
==>and print " And that's more than we needed to close complex.\n";
        pos($para) = pos($para) - length <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732163	732276	
==>DY" => "#line 129 \"src/ops/set.ops\"\n  {{\@1}} = (INTVAL)({{\@2}});\n  {{+=3}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732909	733022	
==>DY" => "#line 129 \"src/ops/set.ops\"\n  {{\@1}} = (INTVAL)({{\@2}});\n  {{+=3}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	2489	2590	
==>BARE if (! iskeyword($syms[CURR]));

	# The "unimplementeds"
	# Eat tokens until we get to the next st <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	13251	13376	
==>P($reg_num);";
        return "t_$temp_num == PMCNULL ? NULL : t_$temp_num";
    };
    /S/ && do {
        push @{$temps_ref} <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8862	8984	
==>syms[CURR])\n";
		debug() if $debug;
		goto PARSE
	}
	#
	# End of compile?
	#
	if ($syms[CURR] eq "") {
FORCE_FINISH:
		run <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16288	16398	
==>rn;
  } elsif(wantarray) {  # return an array
    return map {; ($x = $_) =~
      s/([F\x00-\x1F\\\{\}\x7F-\xF <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055003	1055390	
==>",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1178,
                  "ARGS" => [
                              "p",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	338260	338527	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getstdout",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32577	32667	
==>ckage Parrot::Pmc2c::SharedRef;
use base 'Parrot::Pmc2c';

=item C<implements($method)>

Al <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	21619	21726	
==>pename:  		# Source in P6 Dest in P1 (don't trash P0)
	#print "--Copying a $typename\\n"
	pushp			# Makes an <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4675	4781	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub do_middle {      # the main work
  my $self = $_[0];
  my $fh = $ <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	7283	7387	
==>mpile_file {
    my ($file_name) = @_;

    my $pf = Parrot::PackFile->new;
    $pf->unpack_file($file_na <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	2267	2369	
==>N commit access.', 'RESPONSIBLE_PARTIES'),
            $self->new_item('A list of some of people who ha <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	5070	5180	
==>y $stmt (reverse @output2) {
	$stmt->{'next'} = $next;
	$next = $stmt;
    }

    # Push first statement on the <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	2885	2990	
==>fined $_[0] ? \$_[0] : \$_;
	my $wantarray = wantarray;
	my $del  = defined $_[1] ? $_[1] : qq{\'\"\`};
	m <==
3	/Users/nnunley/parrot/lib/Test/More.pm	24943	25032	
==>tart differing.

Test::Differences and Test::Deep provide more in-depth functionality
alon <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	3586	3740	
==>lue, $defn );
        if ( $type eq 'key' ) {
            push @opcodes, new ConstDir( $parser,
                'prolog' => 1,
                'result' <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	9165	9269	
==>kslashes
    print SOURCE qq{#line $line "$source_escaped"\n};
}


#
# write op_func_func
#

my ($op_info <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	6638	6749	
==>se if it is not sure.)
sub disjoint {
    my $op = shift;

    # For now, return true iff all subexpressions' st <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	12343	12444	
==>lf->_restore($temp);
  }
  $self->_add_inst(''           ,'set',[$return,0]);
  $self->_add_inst("DONE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477139	477367	
==>e by zero\");\n  {{\@1}} = (INTVAL)floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478035	478263	
==>e by zero\");\n  {{\@1}} = (INTVAL)floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/languages/APL/t/APL.pm	1249	1395	
==>ng. Why?
      }
    }
    else {
      $output = "\n"; # this lets todo tests not bother specifying an out.
                      # XXX also gives <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084872	1085229	
==>" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085925	1086282	
==>" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086978	1087335	
==>" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	950	1088	
==>$lang_f";

    $exit_code = Parrot::Test::run_command($cmd, CD => $self->{relpath},
                                           STDOUT => $o <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	991	1129	
==>$lang_f";

    $exit_code = Parrot::Test::run_command($cmd, CD => $self->{relpath},
                                           STDOUT => $o <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	5109	5209	
==>configdir option.
        $dest = File::Spec->catdir($options{libdir}, 'pkgconfig', $dest);
    } els <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6152	6244	
==>${CURIC}
${ITEMP0} = ${NEXTPC} + I_arg_0 # XXX Can't use ${ARG0} :-(
prop_type_state[${ITEMP0 <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4090	4182	
==>${CURIC}
${ITEMP0} = ${NEXTPC} + I_arg_0 # XXX Can't use ${ARG0} :-(
prop_type_state[${ITEMP0 <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	776	894	
==>ta->get('ccflags');
    if ($^O =~ /mswin32/i) {
        if ($cc =~ /^gcc/i) {
            $conf->data->add(' ', libs = <==
3	/Users/nnunley/parrot/config/auto/readline.pm	788	906	
==>ta->get('ccflags');
    if ($^O =~ /mswin32/i) {
        if ($cc =~ /^gcc/i) {
            $conf->data->add(' ', libs = <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7125	7233	
==>index {
    my ($self, $reg) = @_;
    $reg = value(defined($reg) ? $reg : 'pos');
    return $self->output_p <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6767	6875	
==>index {
    my ($self, $reg) = @_;
    $reg = value(defined($reg) ? $reg : 'pos');
    return $self->output_p <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	2728	2824	
==>_help {
print <<__EOF__;
$ME: Usage: $ME [options] [ foo.o ... | bar.a | other_library_format ]
P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	935755	936038	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "titlecase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936531	936814	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "titlecase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	2574	2676	
==>cedence {
	my ($op, $next)=@_;
	#print STDERR "Precedence with '$op' and '$next'\n";

	return 5  if ($o <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25596	25694	
==>$return,$temp,$return]);
    $self->_restore($temp);
  } else {
    $return = $self->_generate($nod <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27494	27592	
==>$return,$temp,$return]);
    $self->_restore($temp);
  } else {
    $return = $self->_generate($nod <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2281	2375	
==>= ${STEMP0}

# Decrement stack height.
dec stack_depth
PIR
		$pir =~ s/\$register_num/$register <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3533	3627	
==>= ${STEMP0}

# Decrement stack height.
dec stack_depth
PIR
		$pir =~ s/\$register_num/$register <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8351	8466	
==>ue_at
    .local int not_there
    not_there = op1
    inc not_there
    .local pmc iter
    iter = new .Iterator, o <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	60412	60510	
==>re:

=over 4

=item  C<Did not find a suitable bracket: "%s">

The delimiter provided to C<extract_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540482	540581	
==>@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541734	541833	
==>@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542986	543085	
==>@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126510	126614	
==>" => "#line 271 \"src/ops/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127645	127749	
==>" => "#line 271 \"src/ops/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128780	128884	
==>" => "#line 271 \"src/ops/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849949	850273	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850836	851160	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851723	852047	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAG <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	39593	39705	
==>ntax.
        # (Maybe generate a warning eventually?)
        # Note that it deliberately won't work on L<...|Fo <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1244	1348	
==>ver override the user.  If a non-existent program is specified then
    # the user is responsible for the <==
3	/Users/nnunley/parrot/config/inter/make.pm	1065	1169	
==>ver override the user.  If a non-existent program is specified then
    # the user is responsible for the <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1241	1345	
==>ver override the user.  If a non-existent program is specified then
    # the user is responsible for the <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	22295	22404	
==>print does.
    # Convert undef to 'undef' so its readable.
    my $msg = join '', map { defined($_) ? $_ : 'u <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	9027	9128	
==>0, desperate => 1, @_)
}
sub get_version     { shift->_get_titled_section(
   'VERSION',
    max_token <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	4193	4287	
==>int CODE "\t\$P0[",$_+1,"]= \"$line\"\n";
	}
	print CODE<<FOO;
	\$P1["code"]= \$P0
	\$P1["step" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882307	882588	
==>ODE" => 999,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  ST <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	10883	11045	
==>flag

    (\w+\**)            #type
      \s+
        (\w+)           #method name
      \s*
        \( ([^\(]*) \)  #parameters
    }sx;

    my ($pre, $classname <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	17087	17182	
==>le()>

=item C<preamble($trans)>

Returns any lines found prior to first op definition.

If C<$t <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2244	2373	
==>not create stab entry on compile
        $@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $retval
}

sub YYD <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2161	2281	
==>not create stab entry on compile
        $@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $retval
}

sub YYD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	639453	639547	
==>typ <= 1 || typ >= interpreter->n_vtable_max) {\n\t      real_exception(interpreter, NULL, E_Va <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647937	648294	
==>RGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 724,
                  "ARGS" => [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#li <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55923	56238	
==>info",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 72,
                  "ARGS" => [
                              "p <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	3215	3334	
==>nifests;
foreach (@ARGV) {
    if (/^--([^=]+)=(.*)/) {
        $options{$1} = $2;
    } else {
        push @manifests, <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	12946	13086	
==>tern\n";
        }

        elsif ($op->jump =~ /JUMP_RESTART/ ) {
            $jit_func = $restart_op;
        }
        elsif ($op->jump) { <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	8336	8461	
==>1]->type eq 'start' and
              $to_unget[-1]->tagname eq 'Para';

            DEBUG > 1 and printf "    item-* before % <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	68152	68257	
==>x error in the action?");
		}
		elsif ($grammar =~ m/$OTHER/gco   )
		{
			_error("Untranslatable item enc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814163	814411	
==>"null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 919,
                  "ARGS <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3941	4056	
==>")
          or die "compile $group.c failed ($?)\n";
    }
} 
elsif ($mode eq 'linklibs') {
    my ($group_files, $ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4045	4160	
==>")
          or die "compile $group.c failed ($?)\n";
    }
} 
elsif ($mode eq 'linklibs') {
    my ($group_files, $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925261	925534	
==>});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409821	410092	
==>ion",
                  "CODE" => 473,
                  "ARGS" => [
                              "i",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 545 \"src/ops/io.ops\"\n    STRIN <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	41939	42055	
==>unt") {
	  $moved = $_;
	  $_ = $empty;
	}
      }
      if ($moved) {
	$self->_add_inst ('', 'set',[$empty,"P$count" <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2823	2932	
==>T "5 back in module-level code"
   END
Sub1:
   PRINT "2 in subroutine one"
   GOSUB Sub2
   PRINT "ERR this l <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16790	16899	
==>T "5 back in module-level code"
   END
Sub1:
   PRINT "2 in subroutine one"
   GOSUB Sub2
   PRINT "ERR this l <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	3908	4015	
==>s in the directory.

=cut

sub file_paths()
{
    my $self = shift;

    return sort grep {-f} $self->file_a <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	47906	48034	
==>tly
rearranges the string to an equivalent piece of Perl:

        <<'EOMSG'
        This is the message.
        EOMSG
        | <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	907	1020	
==>mpile
{
  my $self = shift;
  my ($compiler) = @_;
  
  my $ident_name = $self->ident->value;

  my $ident = $self <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	907	1018	
==>mpile
{
  my $self = shift;
  my ($compiler) = @_;

  my $ident_name = $self->ident->value;

  my $ident = $self <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	497	591	
==>OUT{IO};
  #$new->accept_codes('VerbatimFormatted');
  return $new;
}

#~~~~~~~~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	301	394	
==>OUT{IO};
  $new->accept_codes('VerbatimFormatted');
  return $new;
}

#@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	300	393	
==>OUT{IO};
  $new->accept_codes('VerbatimFormatted');
  return $new;
}

#@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/languages/converter.pl	577	677	
==>ammargrammar = <<'_EOF_';

rule		: /\w+/ '::=' production
#		{[@item[1,3]]} 
		{ "$item[1] : $item[3] <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10865	10960	
==>tents, removes the instance from
the cache, and undefines it.

Raises an exception if the delete <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3242	3336	
==>xt -e \
   "exit Pod::Simple::Text->filter(shift)->any_errata_seen" \
   thingy.pod

=head1 DES <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	5227	5340	
==>mg; # minimum indent
	&clip_excess_lines($desc);
    } if $desc;
    $info->{desc} = $desc;
    return $info;
}

s <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	633	722	
==>F<blib/lib/libparrot.a>), and then cross-references the dubious API
symbols according to t <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	20512	20624	
==>'~ignore'}   = (! $dont_ignore) || 0;
      $para->[1]{'~resolve'}  = $to_resolve || 0;

      DEBUG > 1 and prin <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	34276	34386	
==>(pop @stack)->[1];
    my $ag = (pop @stack)->[1];
    print <<EOC;
	\t $cmt
	set $dest\[ $vv .. $ww ], $ag
EOC <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3999	4102	
==>ail = $self->output_label_use($failLabel);
    if ($needed eq "1") {
        return "ge <rx_pos>, $lenva <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	148	270	
==>s ();
use base 'Regex::CodeGen';
use strict;

sub output_preamble {
    my $self = shift;

    return (
            'new P0 <==
3	/Users/nnunley/parrot/config/inter/charset.pm	365	456	
==>re::Step::Base);

use Parrot::Configure::Step ':inter';

$description = 'Determining what ch <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3638	3745	
==>k is not a module!")
        unless $self->block->kind eq 'module';

      my %module_props = $self->block-> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6302	6409	
==>k is not a module!")
        unless $self->block->kind eq 'module';

      my %module_props = $self->block-> <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	8302	8408	
==>t\" as target of type $type\n";
  }    
  return sort keys %{ $this->{'accept_targets'} } if wantarray;
  r <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	1272	1411	
==>el:" . ($reachable ? "" : " (unreachable)");
}

##################################

use vars qw(%OUTPUT);
sub gather {
    foreach (keys %Re <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Compilers.pm	918	1038	
==>ers/pge' ),
        $self->new_group( 'TGE', 'the Tree Grammar Engine',
            'compilers/tge' ),
        $self-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	311317	311408	
==>erpreter, &interpreter->int_reg, -1);\n        PDB_print_num(interpreter, &interpreter->num_ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4488	4605	
==>>{args} } == 0) {
        delete $self->{name};
        delete $self->{args};
        return $self->op('nop', [], %$se <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5625	5742	
==>>{args} } == 0) {
        delete $self->{name};
        delete $self->{args};
        return $self->op('nop', [], %$se <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	12545	12649	
==>{$extra_postamble_ref}, "string_cstring_free(t_$temp_num);";
        return "t_$temp_num";
    };
    /b/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	252177	252398	
==>table->logical_not(interpreter, {{\@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1086	1192	
==>ion::Config;
use Parrot::Docs::Section::Tests;
use Parrot::Docs::Section::EditorPlugins;

=item C<new()>

R <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944184	944543	
==>t",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1062,
                  "ARGS" => [
                              "i",
                              "s <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	72888	73012	
==>})
		{
			$code .= $rule->code($self->{"namespace"},$self);
			$rule->{"changed"} = 0;
		}
	}

	return $code;
}


# EXECUTING <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139523	139942	
==>"ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 171,
                  "ARGS" => [
                              "i",
                              "ic",
                              "ic"
                            ],
                  "B <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	4593	4696	
==>("  .local pmc __func");
    $compiler->emit("  dlfunc __func, __lib, $fn_name, \"$sig\"");

    if ($se <==
3	/Users/nnunley/parrot/languages/converter.pl	2036	2138	
==>?[a-zA-Z0-9_]+/ mod(?)
#		{[@item]}
		{ $item[1] . ::modifier($item[2]) }

mod		: '*' | '+' | '?'

_EOF <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	5629	5777	
==>{label}};
                    pop @Q if ! defined $Q[-1]; # External label
                }
                if ($stmt->{code}->{name} =~ /^(?:goto|f <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23341	23496	
==>, $right);
      next;
    }

    #
    # Loop Control Statements:
    #
    #   next;
    #   next if     (<value> <op> <value>);
    #   next unless (<val <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	242	336	
==>cl, which looks like it's
largely a copy of Parrot::Test::Python. Abstraction needed.

=cut

su <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	280	374	
==>cl, which looks like it's
largely a copy of Parrot::Test::Python. Abstraction needed.

=cut

su <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	10882	10985	
==>c slice.pmc super.pmc undef.pmc',
             'pmc_names' => 'Null Env Key Random UnManagedStruct Manag <==
3	/Users/nnunley/parrot/config/inter/libparrot.pm	405	503	
==>rot;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base) <==
3	/Users/nnunley/parrot/config/init/miniparrot.pm	569	662	
==>rot;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base) <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	2441	2556	
==>nu;
my $nm_ro; # can tell apart read-only (const) data sections

my ($Code, $Data, $Init, $Uninit, $Const, $Mutable, <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32918	33034	
==>r .= "### end typeinfo\n";
        }

		# Now call pre_store and append code that it generates.
		my $pre_store = $sr <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	14915	15047	
==>{
    my ($op, $cmt) = @_;
    my $r = pop @stack;
    my $l = pop @stack;
    my ($t, $n);
    {
	my $nl = promote($l);
	$n = temp($ <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	15232	15364	
==>{
    my ($op, $cmt) = @_;
    my $r = pop @stack;
    my $l = pop @stack;
    my ($t, $n);
    {
	my $nl = promote($l);
	$n = temp($ <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	5957	6060	
==>se);
    print HEADER "$run_core_func;\n";
}
my $bs = "${base}${suffix}_";

print SOURCE $preamble;
prin <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	903	1003	
==>quired by the ops.

=cut

sub defines
{
    return <<END;
#define REL_PC ((size_t)((opcode_t*)cur_opc <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1033	1133	
==>quired by the ops.

=cut

sub defines
{
    return <<END;
#define REL_PC ((size_t)((opcode_t*)cur_opc <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30806	30900	
==>return $code;
}

1;

package Parse::RecDescent::InterpLit;

sub sethashname { $_[0]->{hashname} <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38308	38410	
==>ent::_trace(q{>>Matched repeated subrule: ['
					. $self->{subrule} . ']<< (}
					. @$_tok . q{ times <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8572	8653	
==>ANDON","CHART","COMPUTER"
data "DAMAGES","DESTRUCT","DOCK","IDLE","IMPULSE","LRSCA <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21436	21517	
==>ANDON","CHART","COMPUTER"
data "DAMAGES","DESTRUCT","DOCK","IDLE","IMPULSE","LRSCA <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1337	1446	
==>rce code as input.
  #

  $self->INTERNAL_ERROR("Undefined block!")
    unless defined $block;

  #
  # Lookup <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32389	32490	
==>truction'}" =~ /\$\{STOREREG\}/) {
			$dest_reg = 1;
			$mv->{'STOREREG'} = 'storereg';
			push @local <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	2351	2447	
==>inally written by:

Sebastian Riedel, C<sri@oook.de>

=cut

# Create Default Configuration 
my %c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009329	1009625	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compose",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010093	1010389	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compose",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	2466	2585	
==>rray of hashes containing the data.
    my @rules = ();
    my $rule;

    # Read through rules file line by line.
    m <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2095	2204	
==>e;
  }
  else {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako::Const <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2053	2162	
==>e;
  }
  else {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako::Const <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1975	2084	
==>e;
  }
  else {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako::Const <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	8459	8550	
==>-----------------------------------
sub unaccept_target         { shift->unaccept_targets(@_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588926	589063	
==>"kc"
                            ],
                  "BODY" => "#line 314 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590113	590250	
==>"kc"
                            ],
                  "BODY" => "#line 314 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(inte <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	9518	9637	
==>e /= $max; }
        $t->{args}->[3] = $self->add_checks($R, int($guarantee), $follow_min);
        return $t;
    } els <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958751	958960	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959552	959761	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io" <==
3	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	1067	1169	
==>> $out_name.pir`;
	if ($output) {
		print "translate failed:\n$output";
		return 0;
	}
	$output = `$N2P <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	56850	56964	
==>extract_bracketed($_[0],'{}') } },
                   ]);

This call extracts the next single substring that is a v <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	33126	33219	
==>" => "#line 622 \"src/ops/core.ops\"\n  {{\@1}} = PTR2OPCODE_T(CUR_OPCODE + {{\@2}});\n  {{+=3 <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	14277	14369	
==>c($contents);
}

=head2 gen_super_meths($class, $vtable)

Generate a list of inherited method <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031499	1031606	
==>num_last_type)\n        {{\@1}} = -1;\n    else\n        {{\@1}} = data_types[{{\@2}} - enum_first_type].siz <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032368	1032475	
==>num_last_type)\n        {{\@1}} = -1;\n    else\n        {{\@1}} = data_types[{{\@2}} - enum_first_type].siz <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30039	30152	
==>ess over in stack, starting at line "
           . $over->[1]{'start_line'};

        } elsif($over_type eq 'block <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722190	722292	
==>python.ops\"\n  STRING * const s = {{\@2}};\n  PMC * const io = {{\@1}}; /* TODO Can this be localized? <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723219	723321	
==>python.ops\"\n  STRING * const s = {{\@2}};\n  PMC * const io = {{\@1}}; /* TODO Can this be localized? <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	9466	9580	
==>ax < 0) { $guarantee = 0; }
        else { $guarantee /= $max; }
        $t->{args}->[3] = $self->add_checks($R, in <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74168	74280	
==>xt;
	for ($reps=0; $reps<$max;)
	{
		$_savetext = $text;
		my $prevtextlen = length $text;
		my $_tok;
		if (! de <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_assignments.pm	221	320	
==>n S0
#
# No implicit conversions into/from STRING
sub ASSIGNMENT_FUNC {
	my($varname)=@_;	# P6 alrea <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	922952	923263	
==>, {{\@3}})\n    );\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6908	7000	
==>ht$(t$, 5)
' instr
s1$="The longer string"
found$="longer"
bogus$="not"
print "Found  (5): ", <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18637	18729	
==>ht$(t$, 5)
' instr
s1$="The longer string"
found$="longer"
bogus$="not"
print "Found  (5): ", <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4107	4295	
==>proc                            # a procedure definition
        test \s+ (\S+)                  # test ident
             \s+ \{ ([^}]+) \}          # test description
             \s+ (?: <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	13145	13256	
==>name }) {
        DEBUG and print "  Found start of Para.  Accumulating content...\n";
        $para_text_conten <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	373	477	
==>put if no file is named, and turn it into a C implementation file.

=cut

use strict;

use lib 'lib';
use <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	550	668	
==>=cut

sub new
{
    my $self = shift;
        
    return $self->SUPER::new(
        'Language Implementations', 'langu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	260	358	
==>8089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expression::Prefix;

us <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2488	2598	
==>value($var);
    return "sub $realvar, $amount";
}

sub output_set {
    my ($self, $reg, $value) = @_;
    $re <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	3457	3552	
==>"Processing $gcov_file ($source_file)\n";

        foreach (split "\n", $generated_files{$gcov_f <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	12691	12780	
==>ther.foo
v.start.pnext.bar="Hello"
print v.start.pnext.bar

' Member functions, give 0 and <==
3	/Users/nnunley/parrot/config/init/defaults.pm	5685	5833	
==>ed
        platform_asm => 0,
        as           => 'as',    # assembler

        cp    => '$(PERL) -MExtUtils::Command -e cp',
        lns   => $C <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3214	3341	
==>',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P17', 'P16 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15872	15965	
==>r->set_source( $some_filehandle_object );
 $parser->run;

Or:

 my $parser = SomePodProcessor- <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	29573	29681	
==>e_endfunc;
}

sub parse_function_dispatch {
	return;
			print FUNC<<FUNCDISP;
				
	#
	# User function dispat <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	5593	5689	
==>c?, :$todo, :$depends) returns Bool is export {
    Test::proclaim(0, $desc, $todo, :$depends);
} <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	2922	3007	
==>s::Section::PMCs>

=item C<Parrot::Docs::Section::DynaPMCs>

=item C<Parrot::Docs::Sec <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49885	49994	
==>f;
					', $lookahead,$line,"<perl_quotelike>");
				$prod and $prod->additem($item)
				      or  _no_rule("< <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	503	592	
==>lock) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Left <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	494	583	
==>lock) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Left <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847156	847445	
==>i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 961,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 56 \"src/ops/str <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	12215	12343	
==>UTHORS? | DESCRIPTION | SYNOPSIS
             | COPYRIGHT | LICENSE | NOTES? | FUNCTIONS? | METHODS?
             | CAVEATS? | BU <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	4473	4570	
==>s;
  my @smokes = map { unpack_smoke($_) } glob "parrot-smoke-*.html";
  push @{ $cats{$category-> <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	4744	4848	
==>ot/embed.h"

static char program_code[] = {
END_C

    $pf->byte_code($byte_code);

    # this is now pac <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2128	2231	
==>( \@params, \%params, \@_, $self );

	if($$self{DEBUG}) {
		_DBLoad();
		$retval = eval '$self->_DBP <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2049	2148	
==>( \@params, \%params, \@_, $self );

	if($$self{DEBUG}) {
		_DBLoad();
		$retval = eval '$self->_DBP <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16896	17023	
==>e it thru in X-generated comments
        #  with text in them.
        
        # Yes, stipulate the list without a range, so t <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	49287	49398	
==>print " And that's more than we needed to close simple.\n";
        push @{ $lineage[-1] }, ' '; # That was a fo <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10336	10447	
==>e it thru in X-generated comments
    #  with text in them.

    # Yes, stipulate the list without a range, so t <==
3	/Users/nnunley/parrot/examples/benchmarks/oo5.pl	244	365	
==>my $self = shift;
    if (@_) { $self->[0] = shift } else { $self->[0] }
}

sub j {
    my $self = shift;
    if (@_) { $s <==
3	/Users/nnunley/parrot/examples/benchmarks/oo6.pl	236	357	
==>my $self = shift;
    if (@_) { $self->[0] = shift } else { $self->[0] }
}

sub j {
    my $self = shift;
    if (@_) { $s <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2530	2632	
==>src_filename";
    print "Running $cmd\n" if $DEBUG;
    open (GCOVSUMMARY, "$cmd |") or die "Error inv <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	7461	7578	
==>local int not_found

    not_found = op1
    inc not_found

    .local pmc result
    result = new 'APLVector'

    it <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	587	678	
==>new group.

Use this when creating groups within a C<Parrot::Docs::Section>
subclass's C<new <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12751	12861	
==>relative to the 
    # distribution, then we append the HTML suffix and get the
    # docs file. Once we have t <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	1366	1474	
==>rint "# We are under a Unicode-safe Perl.\n";
}

# Design note:
# This is a parser for Pod.  It is not a pars <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539888	540185	
==>" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 625,
                  "ARGS" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5514	5667	
==>}}, $module;

      next;

    }

    #
    # Variable declarations:
    #
    #   var <type> <ident>;
    #   var <type> <ident> = <value>;
    #   var < <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	14796	14907	
==>e {
    my $op = shift;
    return [ annotated($op, "check($op->{args}->[0])"),
             $op->{args}->[1]->r <==
3	/Users/nnunley/parrot/config/auto/jit.pm	5026	5244	
==>exec_protect => 1);
                    print "yes) " if $verbose;
                } else {
                    print "no) " if $verbose;
                }
            }
            cc_clean();
        }

        # TODO <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3965	4066	
==>$value;
	}
	for (@$mandatory) {
			exists($$outhash{$_})
		or	croak("Missing mandatory parameter ' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3766	3863	
==>$value;
	}
	for (@$mandatory) {
			exists($$outhash{$_})
		or	croak("Missing mandatory parameter ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886434	886765	
==>" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1003,
                  "ARGS <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	11128	11246	
==>int_val(t_$temp_num)";
    };
    /s/ && do {
        push @{$temps_ref}, "short t_$temp_num;";
        push @{$extra_p <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	716	819	
==>le, $line) = @_;

  return $class->new($file, $line, 'eof', undef, '__EOF__');
}

my $BOF = Jako::Token- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189781	189961	
==>eger(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190722	190902	
==>eger(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	1012	1115	
==>arn "Disassembling without opcode table fingerprint!";
	return;
    }

=for COMMENT
    die "Cannot comp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	230371	230695	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLA <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	1280	1396	
==>le.

=cut

sub dont_edit {
    my ($pmcfile) = @_;

    return <<"EOC";
/*
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!! <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621388	621494	
==>= NULL;\t/* just for gcc */\n    }\n    lru = &mic->lru;\n    if (lru->u.signature == sig) {\n\tif (sig) {\ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34222	34335	
==>);
    return <<EOC;
$l
$decl {
    $ret_def
    LOCK_PMC(interpreter, pmc);
    $func_ret$body;
    UNLOCK_PMC(in <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3700	3805	
==>method is also used by section.
		
		$content->set_parent($self);
	}
	
	return @contents;
}

=back

=head1 <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	4375	4472	
==>tx = Digest::MD5->new;

 $ctx->add($data);
 $ctx->addfile(*FILE);

 $digest = $ctx->digest;
 $dige <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10560	10674	
==>ction and length($section .= '') ) 
    {
        $section =~ tr/ /_/;
        $section =~ tr/\x00-\x1F\x80-\x9F//d <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3955	4055	
==>ction and length($section .= '')) {
    $section =~ tr/ /_/;
    $section =~ tr/\x00-\x1F\x80-\x9F//d <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	13732	13814	
==>="expander" onclick="toggle_visibility('<tmpl_var name=id>')" id="expander_<tmpl_va <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1728	1837	
==>e argument at C<$index>.

=cut

sub arg
{
    my $self = shift;

    return $self->{ARGS}[shift];
}

=item C<g <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	2794	2900	
==>e-strings -Waggregate-return -Winline -W -Wno-unused",

            # others; ones we might like marked wit <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	62664	62758	
==>d opening bracket at %s>

C<extract_codeblock> failed to find any of the outermost opening brac <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	315	409	
==>is script creates the Native Call Interface file F<src/nci.c>. It
parses a file of function sig <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4576	4665	
==>elf->do_beginning && $self->do_middle && $self->do_end;
}


#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3207	3295	
==>elf->do_beginning && $self->do_middle && $self->do_end;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	15904	16026	
==>r->diag("'$cmd' failed with exit code $exit_code")
                  if $exit_code and not $pass;

            unless($ENV{ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	18455	18577	
==>r->diag("'$cmd' failed with exit code $exit_code")
                  if $exit_code and not $pass;

            unless($ENV{ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	25497	25601	
==>r->diag("'$cmd' failed with exit code $exit_code") if $exit_code and not $pass;

            unless($ENV{ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	39374	39492	
==>]{'xml:space'} = 'preserve';
        for($i = 2; $i < @$para; $i++) {
          foreach my $line ($para->[$i]) { # just <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	2125	2225	
==>op tries to identify instructions that may be the target
    # of control flow changing opcodes inclu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	626288	626383	
==>lru;\n    /* TODO verify {{\@1}} didn't change */\n    (void) ((interface_f)lru->f.real_function <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009161	1009450	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compose",
                  "FLAGS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009925	1010214	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compose",
                  "FLAGS <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	8041	8141	
==>$parser->{deferrable}
		? 'my $def_at = @{$thisparser->{deferred}};'
		: '') .
	'
	my $err_at = @{$th <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477107	477202	
==>oDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@1}} / den);\n  {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478003	478098	
==>oDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@1}} / den);\n  {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813614	813908	
==>S" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 918,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 557 \"src/ops/s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733674	733781	
==>src/ops/set.ops\"\n  {{\@1}} = string_to_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734438	734545	
==>src/ops/set.ops\"\n  {{\@1}} = string_to_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	11113	11244	
==>push @incexc, $first, ($last+1);
        }
    }

    return \@incexc;
}

sub _negate_incexc ($) {
    my ($incexc) = @_;
    return <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	9467	9582	
==>x7B-\x7F]/
            # Characters under 0x80 that aren't legal in an XML Name.
        or $new_code =~ m/^[-\.0-9] <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10731	10846	
==>x7B-\x7F]/
            # Characters under 0x80 that aren't legal in an XML Name.
        or $new_code =~ m/^[-\.0-9] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764441	764799	
==>IRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 863,
                  "ARGS" => [
                              "i",
                              "nc"
                            ],
                  "BODY" => "#line 320 <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	42225	42328	
==>ent to:

	sub extract_tagged
	{
		my $text = shift;
		$extractor = gen_extract_tagged(@_);
		return $ext <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	61764	61858	
==>he quote-like operation.

=item  C<Mismatched closing bracket: expected "%c" but found "%s">

C <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	13280	13373	
==>signment of the whole hash element.
The object reference is returned.

=item Class (C<'Class_N <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30041	30132	
==>mc2c::Standard';
import Parrot::Pmc2c qw( gen_ret );

=item C<body($method, $line, $out_name <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	4501	4641	
==>e") or die "open src/pmc/$pmc_file: $!";
        my $const;
        while (<PMC>) {
            if (/^pmclass (\w+)(.*)/) {
                $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	1741	1846	
==>E__,
    " and subclasses, not parse_lines";
}

sub parse_line {
  use Carp ();
  Carp::croak "Use set_sou <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	339	435	
==>n in F<docs>.

=head2 Class Methods

=over

=cut

package Parrot::Docs::Section::Docs;

use stric <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1734	1843	
==>ble %s.", $dest->value) unless $dest_sym;
  my $dest_type = $dest_sym->type;

  my $left_type;
  if (UNIVERSAL <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1692	1801	
==>ble %s.", $dest->value) unless $dest_sym;
  my $dest_type = $dest_sym->type;

  my $left_type;
  if (UNIVERSAL <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1614	1723	
==>ble %s.", $dest->value) unless $dest_sym;
  my $dest_type = $dest_sym->type;

  my $left_type;
  if (UNIVERSAL <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	417	513	
==>Base);

use Config;
use Parrot::Configure::Step ':auto';

$description = 'Determining if your pla <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	371	467	
==>Base);

use Config;
use Parrot::Configure::Step ':auto';

$description = 'Determining if your pla <==
3	/Users/nnunley/parrot/config/auto/readline.pm	378	474	
==>Base);

use Config;
use Parrot::Configure::Step ':auto';

$description = 'Determining if your pla <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407718	408016	
==>MP" => 0,
                  "NAME" => "connect",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408616	408914	
==>MP" => 0,
                  "NAME" => "connect",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	1671	1806	
==>s);
    $/="\n";  # i don't know why, but this is necessary.
    
    my $errors = 0;
    local $SIG{__WARN__} = sub { $errors++; $all_e <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	856	974	
==>u Update the tests from CVS.

=cut

main();

##
## main()
##
sub main {
    usage() and exit if $opt_h;
    checkout_te <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	4522	4626	
==>n", :$depends);
    }
}

## lives ok

sub lives_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bo <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	11663	11760	
==>he accessor's argument, if any, is assigned to the element.

If the element type is C<'$'>, the va <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	37035	37136	
==>>schwern@pobox.comE<gt>.

This program is free software; you can redistribute it and/or 
modify it und <==
3	/Users/nnunley/parrot/lib/Test/More.pm	37444	37545	
==>>schwern@pobox.comE<gt>.

This program is free software; you can redistribute it and/or 
modify it und <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	6404	6505	
==>>schwern@pobox.comE<gt>.

This program is free software; you can redistribute it and/or 
modify it und <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355418	355679	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "write",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" = <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6241	6327	
==>EMP0}] = ${STYPES}
prop_stack_depth[${ITEMP0}] = stack_depth
goto POST_BRANCH_NOT_switc <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4179	4265	
==>EMP0}] = ${STYPES}
prop_stack_depth[${ITEMP0}] = stack_depth
goto POST_BRANCH_NOT_switc <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29358	29464	
==>e::RecDescent::_trace(q{Trying terminal: [' . $self->describe
					  . ']},
					  Parse::RecDescent::_trac <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31455	31561	
==>e::RecDescent::_trace(q{Trying terminal: [' . $self->describe
					  . ']},
					  Parse::RecDescent::_trac <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27255	27354	
==>e::RecDescent::_trace(q{Trying terminal: [' . $self->describe
					  . ']}, Parse::RecDescent::_trac <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3143	3254	
==>'ld' the same.
        $conf->data->set(link => $conf->data->get('ld'));

        # We can't use -opt: and -debu <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4647	4758	
==>'ld' the same.
        $conf->data->set(link => $conf->data->get('ld'));

        # We can't use -opt: and -debu <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	5211	5317	
==>pect .PTFCDR
Dim c(10), a$(10), u(10)
510 FOR I = 0 TO 6
520 READ A$(I), U(I)
    print A$(I);
530 NEXT I
5 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	441	547	
==>lass = shift;

  confess "Expected 5 args!" unless @_ == 5;

  my ($block, $prefix, $left, $op, $right) = @ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	441	547	
==>lass = shift;

  confess "Expected 5 args!" unless @_ == 5;

  my ($block, $prefix, $left, $op, $right) = @ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86750	87027	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new_callback",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87751	88028	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new_callback",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	30738	30863	
==>SETUP_EXCEPT
{
    my ($n, $c, $cmt) = @_;
    my $targ = "pc_xxx";
    if ($c =~ /to (\d+)/) {
	$targ = "pc_$1";
    }
    my <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200	293	
==>arrot Op Info

=head1 DESCRIPTION

This is an autogenerated file, created by F<tools/build/ops <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26755	26858	
==>.
		$pir .= "### typeinfo\n";
		$pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule- <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28471	28574	
==>.
		$pir .= "### typeinfo\n";
		$pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule- <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36453	36556	
==>.
		$pir .= "### typeinfo\n";
		$pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule- <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2495	2600	
==>@_;

    die "Unrecognized type '$type' for num '$num' in opcode @{[$op->full_name]}"
        unless exist <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11081	11178	
==>VWXYZ0123456789])/sprintf('%%%02X',ord($1))/eg;
        # Yes, stipulate the list without a range, <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4430	4526	
==>VWXYZ0123456789])/sprintf('%%%02X',ord($1))/eg;
       # Yes, stipulate the list without a range, <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	3688	3818	
==>ss PMC */
    PMC *mro;                /* array PMC of [class, parents ... ] */
    /* Vtable Functions */

EOF
    for $entry (@{$ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26084	26205	
==>G$arg_num";
        $arg_num++;
	}

    # Generate code that we need to insert to handle enum fixups if this is
    # an i <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4260	4379	
==>tch */
END_C
    for (my $i = 0; $i < $self->{split_count}; $i++) {
	$c .= <<END_C;
    } /* switch $i */
END_C
    }
	$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	97330	97523	
==>=> 120,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 86 \"src/ops/bit.ops\"\n  {{\@1}} = ~ {{\@1}};\n  {{+=2} <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	5910	6027	
==>e skipped if
            # the "var" condition is true.
            if ($line =~ m/^#CONDITIONED_LINE\(([^)]+)\):(.*)/ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	5740	5855	
==>length($1) or length($2)
          or pos(     ${ $self->{'source_scalar_ref'} })
           != length( ${ $self->{' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	631	718	
==>t) . ") is not Identifier!") unless UNIVERSAL::isa($dest, 'Jako::Construct::Expression:: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	622	709	
==>t) . ") is not Identifier!") unless UNIVERSAL::isa($dest, 'Jako::Construct::Expression:: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	511	598	
==>t) . ") is not Identifier!") unless UNIVERSAL::isa($dest, 'Jako::Construct::Expression:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864032	864147	
==>ps\"\n  UINTVAL n;\n  STRING *s = {{\@2}};\n  if (!s)\n    n = 0;\n  else {\n    n = s->bufused;\n    assert(n == EN <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864924	865039	
==>ps\"\n  UINTVAL n;\n  STRING *s = {{\@2}};\n  if (!s)\n    n = 0;\n  else {\n    n = s->bufused;\n    assert(n == EN <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3393	3493	
==>ess
{
    my ($self, $addr) = @_;
    return "return opcode_to_prederef(interpreter,  (opcode_t *)$ad <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135450	135557	
==>BODY" => "#line 326 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_xor(interpreter, {{\@2}}, {{\@3}}, NULL) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136344	136451	
==>BODY" => "#line 326 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_xor(interpreter, {{\@2}}, {{\@3}}, NULL) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137238	137345	
==>BODY" => "#line 326 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_xor(interpreter, {{\@2}}, {{\@3}}, NULL) <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	59147	59291	
==>( $_[0], $_[1] ),
            ];
        }
	],
	[#Rule 104
		 'tableconstructor', 3,
sub
#line 562 "Lua\lua51.yp"
{
            BuildTab <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17567	17684	
==>"
for i = 0 to 1
for j = 0 to 1
print i; j;
if i and j then a$="True  " else a$="False "
if i or  j then b$="True  " e <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	476	569	
==>rmatting_codes = map(($_=>1), @Known_formatting_codes);
@Known_directives       = qw(head1 hea <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	675	768	
==>xec_prefix>

The exec prefix. Defaults to '/usr'.

=item C<bindir>

The executables directory. <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	904	997	
==>xec_prefix>

The exec prefix. Defaults to '/usr'.

=item C<bindir>

The executables directory. <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	3057	3162	
==>lent = shift || 0;
    my $index_html = '';
    my @rel_paths = $self->contents_relative_to_source($source <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	36056	36156	
==>> \&_op_exact_inexact,
  'inexact->exact'   => \&_op_inexact_exact,

###
### Numerical input and outp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25282	25376	
==>MC * const p = {{\@1}};\n  dest = {{^+2}};\n  interpreter->current_cont = CONTEXT(interpreter-> <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	4456	4599	
==>ugefloatvalsize => $size
        );
        } else {
        $conf->data->set(
            hugefloatval     => 'double',
            hugefloatva <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	3166	3303	
==>ithout a previous
            #   declaration -Wmissing-noreturn
            # ? -Wredundant-decls
            #    Warn if anything is de <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	986	1079	
==>ical_notes.pod'),
			$self->new_item('', 'docs/parrot.pod'),
		),
		$self->new_group('Specific <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114825	115157	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115679	116011	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116534	116866	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	6714	6817	
==>y $func_name  = $op->func_name($trans);
    my $arg_types  = "$opsarraytype *, Interp *";
    my $protot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826388	826478	
==>ine 146 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827458	827548	
==>ine 146 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	1196	1309	
==>ore_max
};

/* &end_gen */
END_H

    close OUT;

    move_if_diff("$file.tmp", $file);

    return;
}

sub genera <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	1024	1124	
==>it silly:
	# do we ever export anything else than 'struct'...?
      $self->export_to_level( 1, $self <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16611	16710	
==>ts{lhs},@stream);	# Generate PASM code stream
		#print STDERR "Left: @left \n";
		if ($opts{choose}) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314881	315083	
==>erflow exception for conv_i1_ovf\");\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8802	8909	
==>run    = 0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_tests_badpass = 0;
    $Test::num_of_tests <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	205	300	
==>run    = 0;
$Test::num_of_tests_failed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of_tests <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	6482	6672	
==>l);
                $val;
            } else {
                warn "value for '$1' in $source is undef";
                '';
            }
        }egx;

        if ($options{replace_slashes <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	29830	29968	
==>s, new BranchUnlessOp( $parser,
        'arg1'   => $_var,
        'op'     => '<=',
        'arg2'   => $_limit,
        'result' => $ <==
3	/Users/nnunley/parrot/config/gen/PodText.pm	237	344	
==>gen::PodText;

    gen::PodText->runstep($conf,
        "source1.pod" => "dest1.pod"
        "source2.pod" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	639526	639624	
==>nterpreter, NULL, E_ValueError,\n\t\t      \"Illegal PMC enum (%d) in instantiate\", typ);\n\t  }\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106339	1106434	
==>or,\n\t\t\"type number out of range\");\n    {{\@1}} = interpreter->vtables[typ]->class;\n    {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107315	1107410	
==>or,\n\t\t\"type number out of range\");\n    {{\@1}} = interpreter->vtables[typ]->class;\n    {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299548	299759	
==>ine 975 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300394	300605	
==>ine 975 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301240	301451	
==>ine 975 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650735	650982	
==>{{\@2}} < enum_last_type)\n        {{\@1}} = 1;\n    else\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651657	651904	
==>{{\@2}} < enum_last_type)\n        {{\@1}} = 1;\n    else\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958776	959063	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959577	959864	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "f <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	660	755	
==>$path)>

Returns the instance for C<$path> if it already exists, otherwise it is
created and cac <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	40995	41089	
==>a void context, the input text just has the matched substring (and
any specified prefix) remove <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	435	528	
==>ols/dev/extract_file_descriptions.pl [--plus-misses] [files ...]

=head1 DESCRIPTION

This scr <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	1014	1129	
==>]*)$/s ) {
    $in = oct $in;
  } elsif($in =~ m/^0x([0-9a-fA-F]+)$/s ) {
    $in = hex $1;
  } # else it's decimal, <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2373	2488	
==>]*)$/s ) {
    $in = oct $in;
  } elsif($in =~ m/^0x([0-9a-fA-F]+)$/s ) {
    $in = hex $1;
  } # else it's decimal, <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	10518	10630	
==>=~s/\$$/_string/) {	
					$$optype="S";
				} else {
					$$optype="N";
				}
				$main::code{$main::seg}->{decla <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27569	27664	
==>lf->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'unless <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29679	29774	
==>lf->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'unless <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31776	31871	
==>lf->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':'unless <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31290	31382	
==>>implements_vtable($meth);
}

=item C<body($method, $line, $out_name)>

Returns the C code fo <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35921	36013	
==>>implements_vtable($meth);
}

=item C<body($method, $line, $out_name)>

Returns the C code fo <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39910	40002	
==>>implements_vtable($meth);
}

=item C<body($method, $line, $out_name)>

Returns the C code fo <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	10450	10550	
==>$$textref unless $@;
	pos($$textref) = $startpos;
	return;
}

sub extract_variable (;$$)
{
	my $textr <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	10172	10270	
==>ss defined $max_content_length;

  Carp::croak( "Unknown " . ((1 == keys %options) ? "option: " : " <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31765	31893	
==>== 0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcodes1, n <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	32416	32544	
==>== 0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcodes1, n <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33066	33194	
==>== 0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcodes1, n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126772	127129	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rot",
                  "FLAGS" => "", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127907	128264	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rot",
                  "FLAGS" => "", <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6254	6365	
==>n"}->[1] = undef; # delete group $n!;
}

sub output_atend {
    my ($self, $failLabel) = @_;
    my $fail = $sel <==
3	/Users/nnunley/parrot/config/auto/headers.pm	2275	2388	
==>> $header);

            cc_gen('config/auto/headers/test_c.in');

            $conf->data->set(testheaders => und <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	1112	1221	
==>else it's decimal, or named

  if($NOT_ASCII) {
    # We're in bizarro world of not-ASCII!
    # Cope with US- <==
3	/Users/nnunley/parrot/examples/benchmarks/addit.pl	721	827	
==>1000000";
for (my $x = 500000; $x >= 0; --$x) {
    $result = varargs_adder(@args);
}
print "$result\n";

= <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	15712	15807	
==>is is the part that comes from the PMC file.
    $cout .= $self->line_directive($method->{line}, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750454	750679	
==>ring_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756763	756988	
==>ring_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757553	757778	
==>ring_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	12993	13122	
==>reg_num);";
        return "&PObj_bufstart(t_$temp_num)";
    };
    /J/ && do {
        return "interpreter";
    };
    /[OP]/ & <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	19414	19534	
==>";
    for($i = 2; $i < @$treelet; ++$i) { # iterate over children
      DEBUG > 3 and print " Considering child at $i ", <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	30071	30173	
==>erhaps I should
# warn if it's defined at all.
sub rewrite_rule {
    my ($self, $op, $name, $R, $num_g <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6402	6711	
==>=> ":load_file",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 9,
                  "ARGS" => [
                              "sc"
                            ],
                  "BODY" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563956	564210	
==>E_add_method(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564854	565108	
==>E_add_method(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	10793	10897	
==>e "Bad type for $sym? in expression '$currentexpr'";
		}
	} else {
		return $oldresult;
	}
}
sub pushargs <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	14104	14206	
==>by virtue of initializing itself based on its peer block's info
      # (available by passing $block in <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18766	18861	
==>t_integer> );

This method sets the size (in half-points, like 21 for 10.5-point)
that codeblock <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	5101	5258	
==>'.lib',
            share_ext  => '.dll',
            load_ext   => '.dll',
            cc         => ${cc},
            ccflags    => '-O2 -w-8066 -DWIN32 -D <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955881	955967	
==>@1}} = string_copy(interpreter, Parrot_encoding_name(interpreter, {{\@2}}));\n  {{+=3}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956693	956779	
==>@1}} = string_copy(interpreter, Parrot_encoding_name(interpreter, {{\@2}}));\n  {{+=3}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253183	253392	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254045	254254	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254908	255117	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8467	8566	
==>r i = 1 to 20 step 4
  print c$(i);tab$(12);c$(i+1);tab$(22);c$(i+2);tab$(32);c$(i+3)
next
print
dat <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21331	21430	
==>r i = 1 to 20 step 4
  print c$(i);tab$(12);c$(i+1);tab$(22);c$(i+2);tab$(32);c$(i+3)
next
print
dat <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11387	11485	
==>se factorial=1
end function
t=0
g=0
if t then
	print "Mistake"
elseif g then
	print "Also a mistake <==
3	/Users/nnunley/parrot/lib/File/Which.pm	3642	3738	
==>ON

C<File::Which> was created to be able to get the paths to executable programs
on systems unde <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	384	470	
==>d::Simple::PullParserTextToken -- text-tokens from Pod::Simple::PullParser

=head1 SYNO <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11404	11513	
==>ssion::Value::Identifier->new($block, $token);
      my $op    = substr($self->forth->text, 0, -1);
      my $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11951	12060	
==>ssion::Value::Identifier->new($block, $token);
      my $op    = substr($self->forth->text, 0, -1);
      my $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12494	12603	
==>ssion::Value::Identifier->new($block, $token);
      my $op    = substr($self->forth->text, 0, -1);
      my $ <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	4251	4373	
==>_->{'unimplemented'} ? 'UNIMPLEMENTED' : 
                        "BODY_$_->{'class'}___$_->{'method'}";
            $label <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548161	548277	
==>\n  INTVAL i = {{\@2}};\n  UINTVAL q = 1;\n  while(i>0) {\n    q = q*i;\n    i--;\n  }\n  {{\@1}} = q;\n  {{+=3}};\n" <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9219	9354	
==>k has been called
            or  next;       # so continue parsing

#DBG>			$debug & 0x10
#DBG>		and	do {
#DBG>			print STDERR "** <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8804	8934	
==>k has been called
            or  next;       # so continue parsing

#DBG>			$debug & 0x10
#DBG>		and	do {
#DBG>			print STDERR "** <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49412	49512	
==>m = new Parse::RecDescent::Directive('$commit=0;1',
								  $lookahead,$line,"<uncommit>");
				$pr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123852	124122	
==>it.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124726	124996	
==>it.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125600	125870	
==>it.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	54776	54870	
==>r any relationship to the corresponding substring
of the original text (see examples below).

I <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170376	170462	
==>rc/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) != {{\@2}}) { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171317	171403	
==>rc/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) != {{\@2}}) { <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	13565	13776	
==>,
                                STDERR => $out_f);
                    if ( -e $o_f ) {
                        run_command(qq{$PConfig{make} EXEC=$exec_f exec},
                                    CD     => $p <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11599	11691	
==>require_semicolon;

      my $arith = Jako::Construct::Statement::Arithmetic->new($block, $id <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16544	16636	
==>require_semicolon;

      my $arith = Jako::Construct::Statement::Arithmetic->new($block, $id <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790214	790633	
==>",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 892,
                  "ARGS" => [
                              "s",
                              "p",
                              "kic"
                            ], <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	424	541	
==>language, $count ) = @_;
 
    
    my $test_prog_args = $ENV{TEST_PROG_ARGS} || q{};
    my $lang_fn        = Parrot: <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	442	553	
==>language, $count ) = @_;

    my $test_prog_args = $ENV{TEST_PROG_ARGS} || q{};
    my $lang_fn        = Parrot: <==
3	/Users/nnunley/parrot/languages/converter.pl	1852	1952	
==>terminal	: "'" /[^']*/ "'" mod(?)
#		{[@item]}
		{ qq('$item[2]') . ::modifier($item[4]) }
		| '"' /[ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731788	732161	
==>ase_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 821,
                  "ARGS" => [
                              "i",
                              "n"
                            ],
                  "B <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	433	541	
==>ft;
  my ($kind) = @_;

  return sprintf("_%s_%d", uc $kind, ++$self->{BLOCK_COUNT});
}


#
# temp_reg()
#

s <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	1674	1776	
==>s qw( %functions );
use vars qw( %usertypes );
use vars qw( $funcname );
use vars qw( $branchseq @selec <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3120	3217	
==>ng state much easier, and makes it clearer
into which context the data belongs.

For APIs purely i <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	2113	2208	
==>est_num = 1 + $b->current_test();
    my $f_out  = Parrot::Test::per_test( '.out', $next_test_nu <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8109	8215	
==>hile( ($name, $number) = each %Name2character_number) {
    if($] < 5.007  and  $number > 255) {
      $Nam <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	14190	14292	
==>lute ||= $body =~ s/\bgoto\s+ADDRESS\((.*?)\)/{{=$1}}/mg;
        $pop      ||= $body =~ s/\bgoto\s+POP <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61023	61124	
==>, $aftererror,$line);
			$item = new Parse::RecDescent::Token($1,'/',$3?$3:'',$lookahead,$line);
			$p <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10072	10160	
==>PES}
pre_call_PLOOP_${CURIC}:
if ${ITEMP0} == 0 goto PRE_CALL_PLOOP_END_${CURIC}
dec ${IT <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7586	7674	
==>PES}
pre_call_PLOOP_${CURIC}:
if ${ITEMP0} == 0 goto PRE_CALL_PLOOP_END_${CURIC}
dec ${IT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948883	949105	
==>rset(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949683	949905	
==>rset(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	2225	2330	
==>n line $line before in $infile - can't continue";
	}

	# TODO maybe cope with escaped \"
	my $cnt = tr/"/" <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	20534	20655	
==>$right = 'enum_type_STRING'   if ($func =~ s/_STR$//);
            if (exists $self->{super}{$meth}) {
                pus <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	15931	16048	
==>lf->line_directive(2 + $line + count_newlines($cout),
				   $out_name);
    $cout .= $additional_bodies;
    $cout .= <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	1424	1566	
==>hes                => 1,
        conditioned_lines              => 1
    );
    genfile(
        'config/gen/makefiles/dynpmc_pl.in' => 'tools/ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1854	1951	
==>iption, @todo)>

Runs the target string against the Perl 6 pattern, passing the test if
they do no <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3386	3483	
==>iption, @todo)>

Runs the target string against the Perl 6 pattern, passing the test if
they do no <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277753	277983	
==>> [
                              "i",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 881 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(inte <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2817	2950	
==>ape sequence $_ .\n"),
                last;
        }
    }

    $parser->Error("Untermined string.\n");
    $parser->YYData->{ <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4332	4465	
==>ape sequence $_ .\n"),
                last;
        }
    }

    $parser->Error("Untermined string.\n");
    $parser->YYData->{ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	15852	15953	
==>real_output, $expected, $desc );
            $builder->diag("'$cmd' failed with exit code $exit_code") <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	18403	18504	
==>real_output, $expected, $desc );
            $builder->diag("'$cmd' failed with exit code $exit_code") <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	21	109	
==>2006, The Perl Foundation.
# $Id: /parrot/lib/Parrot/IO/Path.pm 19602 2006-05-30T13:40:58 <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	17027	17141	
==>ight be pre-empted
.end
END_POSTAMBLE
    }
}

# Substitute all macros
foreach my $macro (keys %macros) {
    $temp <==
3	/Users/nnunley/parrot/lib/Test/More.pm	12070	12174	
==>ag(map "    $class->can('$_') failed\n", @nok);

    return $ok;
}

=item B<isa_ok>

  isa_ok($object, $c <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	21	111	
==>t (C) 2001-2005, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Op.pm 20321 2006-06-20T20:0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034871	1035156	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "find_lex",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036034	1036319	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "find_lex",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functi <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5392	5482	
==>= <<'PIR'
inc stack_depth 
${STEMP0} = "$"
${STEMP1} = ${LOADTYPE}["reg_type_short"]
${STEM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	119466	119735	
==>t.ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120321	120590	
==>t.ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121176	121445	
==>t.ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	473	606	
==>ess defined $sym;
        unshift(@type, $type);
        unshift(@syms,  $sym);
        $#type=3;
        $#syms=3;
}
sub barf {
	unsh <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6808	6894	
==>C<jhoblitt@cpan.org>

=head1 SEE ALSO

F<docs/configuration.pod>, L<Parrot::Configure>, <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	2095	2181	
==>C<jhoblitt@cpan.org>

=head1 SEE ALSO

F<docs/configuration.pod>, L<Parrot::Configure>, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065644	1065967	
==>,
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1190,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 260 \"src/o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431234	431503	
==>,
                  "CODE" => 495,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 79 \"src/ops/math.ops\"\n  mmd_dis <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	1554	1701	
==>$seg}->{code}}, <<SHUTDOWN;
	#
	# ###################
	# Program Termination
	# ###################

SHUTDOWN
}

use vars qw( %functions );
use vars <==
3	/Users/nnunley/parrot/config/auto/socklen_t.pm	514	615	
==>$conf) = @_;

    my $verbose = $conf->options->get('verbose');

    my $d_socklen_t = $Config{d_sockl <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3309	3403	
==>le>

The article "Constants in Perl", in I<The Perl Journal> issue
21.  See L<http://www.sysadm <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	709799	709999	
==>"ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 732 \"src/ops/pmc.ops\"\n  {{\@1}} = {{\@2}}->vtable-> <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	15380	15498	
==>erpreter, lib);
    return lib;
}
END_C

}

close SOURCE;
my $final = $source;
$final =~ s/\.temp//;
rename $source, $f <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	18891	18995	
==>truction in something like O(log(n))
    # rather than O(n).
	my $pir = <<PIRCODE;
	# Translation code di <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	26490	26594	
==>= split ',', $elements_one, -1;

    foreach my $f (@fallbacks) {
      next if exists $Known_formatting_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215050	215142	
==>1}}->vtable->get_integer(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215991	216083	
==>1}}->vtable->get_integer(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031479	1031589	
==>type || {{\@2}} >= enum_last_type)\n        {{\@1}} = -1;\n    else\n        {{\@1}} = data_types[{{\@2}} - enu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032348	1032458	
==>type || {{\@2}} >= enum_last_type)\n        {{\@1}} = -1;\n    else\n        {{\@1}} = data_types[{{\@2}} - enu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2188	2282	
==>ght, 'Jako::Construct::Expression::Value::Identifier')) {
    my $right_sym = $block->find_symb <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2146	2240	
==>ght, 'Jako::Construct::Expression::Value::Identifier')) {
    my $right_sym = $block->find_symb <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2068	2162	
==>ght, 'Jako::Construct::Expression::Value::Identifier')) {
    my $right_sym = $block->find_symb <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19009	19107	
==>like 15 for 7.5-point)
that the header on each page will appear in.  The header
is usually just "I< <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740452	740541	
==>> "#line 159 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}}->vtable->get_string(interpreter, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	25075	25250	
==>_f': " . slurp_file($build_f));
                unlink $build_f;
                $builder->ok(0,$desc);

                return 0;
            }

            $cmd       = ".$PC <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	1558	1697	
==>to open $file: $!\n");
        next;
    }

    my @lines = <F>;
    close(F);
    chomp @lines;

    for (@lines[0..10]) {
        next unl <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	1994	2111	
==>V{PARROT_TCLSH};
    }
    $cmd = "$executable $lang_f";

    $exit_code = Parrot::Test::run_command($cmd, #CD => $sel <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	652766	653082	
==>,
                  "NAME" => "find_method",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653926	654242	
==>,
                  "NAME" => "find_method",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	4646	4789	
==>e{
            croak "'$type' is not a valid struct element type";
        }
        $idx += 2;
    }
    $out .= "    bless \$r, \$class;\n  }\ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	3506	3615	
==>ething other than a LineCounter\n"
                unless $self =~ /Parse::RecDescent::LineCounter/;
	
	my $pa <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	23350	23449	
==>le => 'FLO', double => 'FLO', long => 'INT', integer => 'INT', string => 'STRING');
			my %sigilmap= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29327	29422	
==>erpreter->current_params = this;\n    ctx = CONTEXT(interpreter->ctx);\n    ccont = ctx->current <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	2497	2617	
==>l $/=undef;
        my $contents = <F>;
    
	foreach (keys %$typedefs) {
            delete $typedefs->{$_} unless ($con <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6800	6910	
==>b pre_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If we need a destination, we simp <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4738	4848	
==>b pre_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If we need a destination, we simp <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	60667	60768	
==>y @st = stat( $parser->YYData->{srcname} );
    $parser->YYData->{srcname_size}  = $st[7];
    $pars <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	183	288	
==>HTML formatter

=head1 SYNOPSIS

    use Parrot::Docs::POD2HTML;

=head1 DESCRIPTION

C<Parrot::Docs::POD2 <==
3	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	916	1015	
==>equest{smoke} = $compress->($smoke) || $smoke;
  debug "ok.\n";
}

{
  debug "Sending data to smokes <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	4676	4771	
==>rn $self->rewrite_optional($op, $R, $greedy, @rest);
    } elsif (($min == 0) && (!defined($max) <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5239	5396	
==>self, _get_arg($_, 1), $return);
            next;
          }
        }
      }
      my $item = $self->_save_1 ('P');

      __quoted ($self, $_, $item, $sp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804244	804330	
==>72 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_pmc_keyed(interpreter, {{\@1}}, {{\@2} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805145	805231	
==>72 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_pmc_keyed(interpreter, {{\@1}}, {{\@2} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	725349	725607	
==>};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clone",
                  "FLAGS" => ":ba <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7189	7297	
==>};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print STDERR "Reduce using rule ".-$act." ($lhs,$len <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6857	6961	
==>};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print STDERR "Reduce using rule ".-$act." ($lhs,$len <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341945	342254	
==>,
                  "CODE" => 400,
                  "ARGS" => [
                              "i",
                              "p",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 128 \"src/ops/io.ops\"\n  {{\@1}} = PIO <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1067	1166	
==>Emit initial code.
	my $pir = <<'PIR';
# Get current stack types array size.
${ITEMP0} = elements ${ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2777	2876	
==>Emit initial code.
	my $pir = <<'PIR';
# Get current stack types array size.
${ITEMP0} = elements ${ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247643	247949	
==>@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "and" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	248507	248813	
==>@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "and" <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	8736	8838	
==>ort_title(@_)  } # alias

sub get_short_title {
  my $title = shift->get_title(@_);
  $title = $1 if $t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607559	607739	
==>n    {{\@1}} = VTABLE_get_attr(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608463	608643	
==>n    {{\@1}} = VTABLE_get_attr(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	13467	13580	
==>rn }, \t" .
            "/* op $i: $core_opfunc[$i] */\n";
}

print JITCPU @jit_funcs, "};\n";

if ($genfile =~ /j <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	13491	13597	
==>$tag;
   }

   return sprintf <<'END',
{\info{\doccomm
%s
 using %s v%s
 under Perl v%s at %s GMT}
{\author <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033548	1033803	
==>_pad, lex_name, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034646	1034901	
==>_pad, lex_name, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	67824	68042	
==>};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sweepoff",
                  "FLAGS" => "",
                  "ARG <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	36836	36951	
==>. $idf;
        $defn = new defn( $name, 'local', 'pmc', undef, $idf );
        push @opcodes1, new ParamDir( $par <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	89	183	
==>dynoplibs_pl.in

# Copyright (C) 2001-2006, The Perl Foundation.
# $Id: dynoplibs_pl.in 10975 2 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	711	804	
==>hift->temp_reg('I'); }
sub temp_num { return shift->temp_reg('N'); }
sub temp_pmc { return shi <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	14679	14810	
==>View full smoke report</a>
            </td>
          </tr>
        </tmpl_loop>
      </tmpl_loop>
    </tmpl_loop>
  </table>
</b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060031	1060128	
==>"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null name\");\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060936	1061033	
==>"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null name\");\n <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	340	451	
==>.
BEGIN {
    use Config;
    # Load threads::shared when threads are turned on
    if( $] >= 5.008 && $Config{u <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15056	15164	
==>)?ord($1):(ord($1)-65536)).'?'/eg;
    }
    return;
  } elsif(wantarray) {  # return an array
    return map <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16239	16347	
==>)?ord($1):(ord($1)-65536)).'?'/eg;
    }
    return;
  } elsif(wantarray) {  # return an array
    return map <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	2520	2631	
==>he path.

=cut

sub name
{
    my $self = shift;
    
    return $self->{NAME};
}

=item C<name_without_suffix() <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4146	4254	
==>rt lib-GROUP.so + A.so + B.so ... -> GROUP.so
    while (my ($group, $pmcs) = each %$group_files) {
        p <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4250	4358	
==>rt lib-GROUP.so + A.so + B.so ... -> GROUP.so
    while (my ($group, $pmcs) = each %$group_files) {
        p <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	4310	4413	
==>me($name);
    }
    
    return $dir->existing_file_with_name($module);
}

=item C<docs_directory()>

R <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2054	2142	
==>token->isa('Pod::Simple::PullParserEndToken'), but that's not so
pretty as using just $to <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	22259	22383	
==>textref) < length($$textref))
		{
			my $field;
			my @bits;
			foreach my $i ( 0..$#func )
			{
				my $pref;
				$func = $f <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	4311	4423	
==>tr $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto(1 <==
3	/Users/nnunley/parrot/lib/Test/More.pm	6657	6759	
==>out.  It makes it very easy to find a test in your script when it fails
and gives others an idea of you <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367341	367606	
==>MP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368132	368397	
==>MP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117906	118130	
==>"src/ops/bit.ops\"\n  {{\@1}} >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118645	118869	
==>"src/ops/bit.ops\"\n  {{\@1}} >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21787	21916	
==>esult,
        'arg1'   => ".Lua" . ucfirst( $type{$op} ),
    );
    push @opcodes, new BinaryOp( $parser,
        'op'     = <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	32181	32297	
==>' => [ $group, -2 ]);
    }

    foreach $group (sort keys %{ $self->{_setup_ends} || {} }) {
        push @ops, aop( <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	733	832	
==>ape sequences.
# Config stuff
our $CC = qq[/usr/bin/gcc-4.0 -c];
our $LD = qq[c++];
our $LDFLAGS = q <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	737	836	
==>ape sequences.
# Config stuff
our $CC = qq[/usr/bin/gcc-4.0 -c];
our $LD = qq[c++];
our $LDFLAGS = q <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9781	9902	
==>n" . $next->text . "\n";
        next;
      }

      defined($scratch = $self->{'Tagmap'}{$tagname}) or next;
      $scra <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3123	3233	
==>is makes 'link' and 'ld' the same.
        $conf->data->set(link => $conf->data->get('ld'));

        # We can' <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4627	4737	
==>is makes 'link' and 'ld' the same.
        $conf->data->set(link => $conf->data->get('ld'));

        # We can' <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	8660	8829	
==>L',
        'nil'      => 'NIL',
        'not'      => 'NOT',
        'or'       => 'OR',
        'repeat'   => 'REPEAT',
        'return'   => 'RETURN',
        't <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9951	10059	
==>r from 5 to 12
function myfunc(a)
	print a
	a=12
        myfunc=80
end function
z=5
T=myfunc(z)
print z

' Ba <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11564	11672	
==>r from 5 to 12
function myfunc(a)
	print a
	a=12
        myfunc=80
end function
z=5
T=myfunc(z)
print z

' Ba <==
3	/Users/nnunley/parrot/Configure.pl	9266	9380	
==>teorder
    auto::va_ptr
    auto::pack
    auto::format
    auto::isreg
    auto::jit
    gen::cpu
    auto::funcp <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11042	11151	
==>($block, $ident);
      }
      else {
        my $dec = Jako::Construct::Statement::Decrement->new($block, $i <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	178	274	
==>bels $branchseq @selects);
use vars qw( @data $sourceline %common );
use vars qw( %code $debug $r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936334	936607	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "titlecase <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937111	937384	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "titlecase <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	18899	19005	
==>$self->{flags}{need_ext}) {
        $vtbl_flag .= '|VTABLE_PMC_NEEDS_EXT';
    }
    if (exists $self->{fla <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	433	526	
==>e supply various default values and behaviour common
to all transforms.

The subclass hierarch <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	3434	3525	
==>Test::Builder based module, but otherwise you probably want C<new>.

B<NOTE>: the implementa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244394	244784	
==>ore",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 284,
                  "ARGS" => [
                              "i",
                              "p",
                              "sc" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031420	1031512	
==>line 323 \"src/ops/sys.ops\"\n    if ({{\@2}} < enum_first_type || {{\@2}} >= enum_last_type) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032289	1032381	
==>line 323 \"src/ops/sys.ops\"\n    if ({{\@2}} < enum_first_type || {{\@2}} >= enum_last_type) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57878	58020	
==>/core.ops\"\n  {{\@1}} = interpinfo_s(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58640	58782	
==>/core.ops\"\n  {{\@1}} = interpinfo_s(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	7100	7197	
==>turn $self->{Expected_Tests};
}


=item B<no_plan>

  $Test->no_plan;

Declares that this test wil <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2351	2461	
==>mmon{$var}) {
					push(@saves, $var);
				}
			}
			if (@saves) {
				$edit.=qq{\tfind_global _GLOBALS, "COMMO <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2760	2870	
==>mmon{$var}) {
					push(@saves, $var);
				}
			}
			if (@saves) {
				$edit.=qq{\tfind_global _GLOBALS, "COMMO <==
3	/Users/nnunley/parrot/config/inter/types.pm	94	186	
==>6-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/inter/types.pm - Sizes for Parrot Types <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	5540	5704	
==>lues
            $text =~ s{ \@ (\w+) \@ }{\$conf->data->get("$1")}gx;
            eval $text;
            die $@ if $@;
            last;
        }
        if ($opt <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	6323	6423	
==>od $result, $a2, $a1
CODE
	},
	'^' => "POW",	
);
%opsubs=(%opsubs, 
	'<=' => sub { &{$opsubs{"="}}(@_ <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	11677	11775	
==>argument, if any, is assigned to the element.

If the element type is C<'$'>, the value of the elem <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20409	20527	
==>$rule->{name} . '})
						if defined $::RD_TRACE;'
					      unless $::RD_NO_TRACE;
	$code .=
'
		$_matched = 1;
		las <==
3	/Users/nnunley/parrot/languages/urm/urm-old.pl	781	890	
==>e =~ s/\#.*//g;
	next unless $code;
	push @program, $code ;
	}
}
close PROGRAM;

#print Dumper @program;

my $ <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	5570	5678	
==>sum can also be calculated in OO style:

    use Digest::MD5;

    $md5 = Digest::MD5->new;
    $md5->add('fo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581621	581888	
==>function",
                  "CODE" => 663,
                  "ARGS" => [
                              "p",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 289 \"src/ops/object.op <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	289	386	
==>ts from C<Parrot::OpTrans> to provide a
C C<goto> run loop.

=head2 Instance Methods

=over 4

=cu <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	162	256	
==>ME

tools/dev/check_source_standards.pl - Check conformancs of C source code to PDD 7

=head1 S <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74940	75052	
==><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$errorprefix,          $errortext
~~                     ^ <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	12991	13113	
==>_HASH_SIZE * sizeof(HOP*));
        hop_init();
    }
    for (p = hop[hidx]; p; p = p->next) {
        if(!strcmp(name, fu <==
3	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1973	2079	
==>code);

package LabelOp;
use base qw(Lua::opcode);

package BranchOp;
use base qw(Lua::opcode);

pa <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	47153	47255	
==>erator)

=item [4]

"'EOMSG'" (i.e. the left delimiter of the here document, including any quotes),

=i <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	7319	7426	
==>_;

    my $pf = Parrot::PackFile->new;
    $pf->unpack_file($file_name)
      or die "Unable to unpack file <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	2432	2535	
==>b sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'module', Attribu <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4959	5052	
==>0.0
	branch NOT_${eqnum}
TRUE_${eqnum}: set $result, 1.0
NOT_${eqnum}: noop
CODE
		die "$a1,$a <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	53	155	
==>SION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

$VERSION   = '0.01';
@ISA       = qw(Exporter);
@EXPORT_OK <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	56	158	
==>SION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

$VERSION   = '0.01';
@ISA       = qw(Exporter);
@EXPORT_OK <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	8541	8664	
==>.
    $test = $test ? 1 : 0;

    unless( $self->{Have_Plan} ) {
        require Carp;
        Carp::croak("You tried to run <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065146	1065241	
==>amespace, *ns;\n    ns = VTABLE_get_pmc_keyed_str(interpreter, ns_root, {{\@2}});\n    {{\@1}} = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066020	1066115	
==>amespace, *ns;\n    ns = VTABLE_get_pmc_keyed_str(interpreter, ns_root, {{\@2}});\n    {{\@1}} = <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	8473	8604	
==>' => 'c++',
             'link_debug' => '',
             'link_dynamic' => ' ',
             'linkflags' => '-L/opt/local/lib -L/us <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7995	8140	
==>n);

                $$check eq 'ACCEPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Accept.\n";

				return($sem <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7637	7774	
==>n);

                $$check eq 'ACCEPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Accept.\n";

				return($sem <==
3	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	119	237	
==>Z coke  $

package init::hints::dec_osf;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    # Tru64
    my $c <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	839	962	
==>'User Dialogue Steps',
        'auto' => 'System Test Steps',
        'gen' => 'File Creation Steps',
    );
    
    foreac <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7200	7321	
==>{reject})	       ? $options{reject}
		    :					 ''
		    ;
	my $ignore  = ref($options{ignore}) eq 'ARRAY' ? join('|', @{ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24202	24323	
==>{reject})	       ? $options{reject}
		    :					 ''
		    ;
	my $ignore  = ref($options{ignore}) eq 'ARRAY' ? join('|', @{ <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1533	1664	
==>ft;
    my $str    = q{};
    my $type   = 'STRING';

    while ( $parser->YYData->{INPUT} ) {

        for ( $parser->YYData- <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3048	3179	
==>ft;
    my $str    = q{};
    my $type   = 'STRING';

    while ( $parser->YYData->{INPUT} ) {

        for ( $parser->YYData- <==
3	/Users/nnunley/parrot/languages/regex/test.pl	2338	2447	
==>le) {
    open(SPEC, $testfile) or die "open $testfile: $!";
    $pattern = <SPEC>;
    chomp($pattern);
}

ge <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	3504	3628	
==>[\d.]+)/) {
        $dd_version = $1;
    } else {
        $dd_version = $Data::Dumper::VERSION;
    }

    if ($dd_version > <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	13854	13954	
==>,$op2)=(pop @work, pop @work);
			my($a1, $a2, $ot1, $ot2);
			$ot1=$ot2=$optype;
			$a1=pushthing(\@ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21660	21755	
==>ine}>=0 && !$::RD_NO_HITEM) ? '$item{'. $self->{hashname} .'}=$_tok;' : '' ) .'
		' . ($self->{" <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	9689	9799	
==>pointer */
};


END_C
}

my (%names, $tot);
if ($suffix eq '') {
    $op_info = "${bs}op_info_table";
#
# Op In <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	3344	3449	
==>harness_args} = $1;
  $html =~ /build_dir: (.+)$/m     and $smoke{build_dir}    = $1;
  $html =~ /summary= <==
3	/Users/nnunley/parrot/config/auto/bc.pm	163	263	
==>er GNU bc works

=head1 DESCRIPTION

Determines whether GNU bc, the basic calculator, exists on the s <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1405	1526	
==>elsif ($dir_count == 2) {
          $path_to_language = '.';
        } elsif ($dir_count >2) {
          $path_to_language <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1890	2011	
==>elsif ($dir_count == 2) {
          $path_to_language = '.';
        } elsif ($dir_count >2) {
          $path_to_language <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5749	5857	
==>e = "<rx_tmp>";
    }
    push @ops, qq!<rx_match>{"$group"}->[1] = $value; # close group $group!;
    return <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146368	146480	
==>i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_EQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167594	167706	
==>i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_EQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	320	420	
==>truct::Block::Bare;

use Carp;

use Jako::Compiler;

use base qw(Jako::Construct::Block);


#
# compi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	739	852	
==>nt->file,
    LINE  => $ident->line
  }, $class;

  $block->push_content($self);

  return $self;
}


#
# ACCESSOR <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1421	1534	
==>nt->file,
    LINE  => $ident->line
  }, $class;

  $block->push_content($self);

  return $self;
}


#
# ACCESSOR <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	56050	56142	
==>applied. Characters which are thus removed are accumulated and
eventually become the next fie <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	8442	8600	
==>IF',
        'end'      => 'END',
        'false'    => 'FALSE',
        'for'      => 'FOR',
        'function' => 'FUNCTION',
        'if'       => 'IF' <==
3	/Users/nnunley/parrot/lib/File/Which.pm	1904	2062	
==>nyway
                last;
            }
        }
    }

    my @path = File::Spec->path();
    unshift @path, File::Spec->curdir if $Is_DOSish or $Is_VMS or <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	42983	43110	
==>\n";
  }

  for(my $i = $#$p; $i > 2; $i--) {
    # work backwards over the lines, except the first (#2)
    
    #next unless $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	306633	306786	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless_null",
                  "FLA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307426	307579	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless_null",
                  "FLA <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	2452	2566	
==>e tuned to a non-strict
        # environment -- especially since we are using perl5 compilation flags
        # de <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	22812	22984	
==>default},
        "dump"          => \$action{dump},
        "c|gen-c"       => \$action{gen_c},
        "tree"          => \$action{tree},

        "no-body"       => \$opt <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	14199	14307	
==>n related stuff.
    $pir .= <<'PIRCODE';
    # Look through exception handlers.
    if null ehs goto END_EH_ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	11719	11817	
==>Descent::Production;

sub describe ($;$)
{
	return join ' ', map { $_->describe($_[1]) or () } @{$_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279628	279973	
==>"
                            ],
                  "BODY" => "#line 903 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} < {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	280483	280828	
==>"
                            ],
                  "BODY" => "#line 903 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} < {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	281338	281683	
==>"
                            ],
                  "BODY" => "#line 903 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} < {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510505	510793	
==>( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511243	511531	
==>( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511981	512269	
==>( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	1017	1134	
==>$/s ) {
    $in = oct $in;
  } elsif($in =~ m/^0x([0-9a-fA-F]+)$/s ) {
    $in = hex $1;
  } # else it's decimal, or n <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2376	2493	
==>$/s ) {
    $in = oct $in;
  } elsif($in =~ m/^0x([0-9a-fA-F]+)$/s ) {
    $in = hex $1;
  } # else it's decimal, or n <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6768	6865	
==>ession, please.
	#if ($syms[NEXT] eq "=" and exists $functions{$syms[CURR]}) {
	#	# Assignment sta <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7992	8137	
==>$len);

                $$check eq 'ACCEPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Accept.\n";

				return($ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7634	7771	
==>$len);

                $$check eq 'ACCEPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Accept.\n";

				return($ <==
3	/Users/nnunley/parrot/config/init/hints/freebsd.pm	240	341	
==>ata->get('libs');

    # get rid of old pthread-stuff, if any
    $libs =~ s/(-lpthreads|-lc_r)\b\s*// <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	35598	35726	
==>) = @_;
    my @opcodes = ();
    push @opcodes, new BranchOp( $parser,
        'result' => 'break',
    );
    return \@opc <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13179	13291	
==>then we've got no business
      # seeing a close-brace.
      #

      $self->SYNTAX_ERROR("Closing brace withou <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	4002	4101	
==>($vtable)>

Returns the C C<#define> definitions for the elements in the referenced
vtable array.

= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060112	1060213	
==>t null name\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_name(interpreter, {{\@2}});\n    {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061017	1061118	
==>t null name\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_name(interpreter, {{\@2}});\n    {{+= <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	5386	5484	
==>oobarbaz'), "\n";

The above example would print out the message

    Digest is 6df23dc03f9b54cc38a <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	771	883	
==>s($out_f);
    Parrot::Test::write_code_to_file( $code, $lang_f );

    my $cmd;
    my $exit_code = 0;
    my $p <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	808	920	
==>s($out_f);
    Parrot::Test::write_code_to_file( $code, $lang_f );

    my $cmd;
    my $exit_code = 0;
    my $p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937951	938160	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "join",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938840	939049	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "join",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
3	/Users/nnunley/parrot/lib/Test/More.pm	26929	27138	
==>x];
        $vals[$idx] = !defined $val ? 'undef'          :
                      $val eq $DNE  ? "Does not exist" :
	              ref $val      ? "$val"           :
                                      "'$v <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43219	43481	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pushmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43862	44124	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pushmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "i <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	31860	31956	
==>ond is the complete
original text, and the prefix returned in the third element is an
empty strin <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	1353	1468	
==>inkflags => '-L/sw/lib');
            $conf->data->add(' ', ldflags   => '-L/sw/lib');
            $conf->data->add( <==
3	/Users/nnunley/parrot/config/auto/readline.pm	1442	1557	
==>inkflags => '-L/sw/lib');
            $conf->data->add(' ', ldflags   => '-L/sw/lib');
            $conf->data->add( <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	820	913	
==>entually be compiled
open NCI, ">", "src/nci.c" or die "Can't open nci.c!";

print_head(\@ARGV <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	25610	25817	
==>EM}) {
                unlink $out_f;
                unlink $build_f;
                unlink $exe_f;
                unlink $obj_f;
                unlink $pdb_f;
                unlink $ilk_f;
            } <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	23	123	
==>er;

use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

$VERSION   = '0.01';
@I <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20039	20147	
==>ish
  3081  Australia English
  4105  Canada English
  1034  Spain Spanish
  2058  Mexico Spanish
  1031  Ger <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35645	35737	
==>back

=head2 Parrot::Pmc2c::Null Instance Methods

=over 4

=cut

package Parrot::Pmc2c::Null <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737201	737440	
==>> "inline",
                  "CODE" => 828,
                  "ARGS" => [
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 144 \"src/ops/set.ops\"\n  {{ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4793	4903	
==>ination";
    my $dest = $1;

    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_group <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4897	5007	
==>ination";
    my $dest = $1;

    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_group <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	13238	13365	
==>entheses and add a space around the argument,
        # like so:
        #
        #    goto OFFSET(( (void*)interpreter->happy_ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	5433	5545	
==>R->{args} };
        my @Sargs = @{ $S->{args} };
	return 0 if (@Rargs != @Sargs);
	for (0..$#Rargs) { return 0 i <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3896	3995	
==>entheses and add a space around the argument, like so:

    goto OFFSET(( (void*)interpreter->happy_ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	7284	7395	
==>ial_link {
    my ($group, $libs, $stems) = @_;

    my @sources = map { "$_$O" } @$stems;
    if (needs_build(" <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7495	7606	
==>ial_link {
    my ($group, $libs, $stems) = @_;

    my @sources = map { "$_$O" } @$stems;
    if (needs_build(" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47302	47532	
==>ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "debug",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => " <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	45768	45905	
==>m', 1,
sub
#line 46 "Lua\lua51.yp"
{
            BuildMain( $_[0], $_[1] );
        }
	],
	[#Rule 2
		 'program', 1,
sub
#line 5 <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	5481	5601	
==>xtref;
				pos $$textref = $startpos;
			        return;
			}
			my $expected = pop(@nesting);
			$expected =~ tr/({[</)} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63195	63301	
==>4 \"src/ops/core.ops\"\n  PARROT_ERRORS_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63841	63947	
==>4 \"src/ops/core.ops\"\n  PARROT_ERRORS_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1779	1878	
==>ift;

    return $self->{data};
}

=item * C<options()>

Provides access to a L<Parrot::Configure::D <==
3	/Users/nnunley/parrot/lib/Test/More.pm	20950	21064	
==>ve code written.  For that you
use TODO.  Read on.

=cut

#'#
sub skip {
    my($why, $how_many) = @_;

    unless( <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2409	2491	
==>mops.pasm>,
F<examples/mops/mops.c>,
F<examples/mops/mops.cs>,
F<examples/mops/mops <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	2409	2491	
==>mops.pasm>,
F<examples/mops/mops.c>,
F<examples/mops/mops.cs>,
F<examples/mops/mops <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352627	352940	
==>ase_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 411,
                  "ARGS" => [
                              "nc"
                            ],
                  "BODY" => "#line <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928871	929043	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 385 \"src/ops/string.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930342	930514	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 385 \"src/ops/string.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	714	830	
==>y $libs      = $conf->data->get('libs');
    my $linkflags = $conf->data->get('linkflags');
    my $ccflags   = $conf <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	655	771	
==>y $libs      = $conf->data->get('libs');
    my $linkflags = $conf->data->get('linkflags');
    my $ccflags   = $conf <==
3	/Users/nnunley/parrot/config/auto/readline.pm	667	783	
==>y $libs      = $conf->data->get('libs');
    my $linkflags = $conf->data->get('linkflags');
    my $ccflags   = $conf <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168508	168599	
==>"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169450	169541	
==>"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}} <==
3	/Users/nnunley/parrot/examples/benchmarks/freeze.pl	336	439	
==>Uses C<Storable> to archive the array.

=cut

use strict;
use warnings;

use Storable qw( freeze thaw dc <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10021	10119	
==>t('slash');
    my $verbose = $conf->options->get('verbose');

    if (defined($_[0]) && length($_[ <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10602	10700	
==>t('slash');
    my $verbose = $conf->options->get('verbose');

    if (defined($_[0]) && length($_[ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	36831	36956	
==>"!$subrule\", 
					   instead?");
		}
	}
	bless 
	{
		"subrule"   => $subrule,
		"repspec"   => $repspec,
		"min"       => $m <==
3	/Users/nnunley/parrot/config/inter/charset.pm	1104	1207	
==>/\$(O)/g;

    my $TEMP_charset_build = <<"E_NOTE";

# the following part of the Makefile was built by ' <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	6186	6279	
==>for release"
        if index($Test::force_todo_test_junction, ' '~$Test::num_of_tests_run~' ' <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39410	39510	
==>x"       => $maxrep,
		"rightarg"  => $rightarg,
		"expected"  => "<${type}op: ".$leftarg->describe." <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1505	1619	
==>re comes some stuff for Win32.
our $PATHQUOTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as they may co <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1550	1664	
==>re comes some stuff for Win32.
our $PATHQUOTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as they may co <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1554	1668	
==>re comes some stuff for Win32.
our $PATHQUOTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as they may co <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	6037	6152	
==>e in this pad because of name clash
    #     namespace <=> classname
    # TODO mange class namespace
    print <<E <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	13609	13721	
==>cmt
EOC
}

sub RETURN_VALUE
{
    my ($n, $c, $cmt) = @_;
    my $tos = promote(pop @stack);
    unless ($cur_fun <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	5154	5253	
==>or an empty string
if C<$self->{opt}{nolines}> is true.

=cut

sub line_directive {
    my ($self, $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033508	1033615	
==>TABLE_set_pmc_keyed_str(interpreter, lex_pad, lex_name, {{\@2}});\n    {{+=3}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034606	1034713	
==>TABLE_set_pmc_keyed_str(interpreter, lex_pad, lex_name, {{\@2}});\n    {{+=3}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	5827	5922	
==>c = $trans->core_prefix . $base;


if ($trans->can("run_core_func_decl")) {
    my $run_core_fun <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	3682	3789	
==>concat $result, $a2, $a1", $result);
		} else {
			return("\t$result = $a1 + $a2", $result);
		}
	},
	'-' => <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2800	2900	
==>line -lpthread -lm -L/opt/local/lib  -licuuc -licudata -lpthread -lm';
        $extraLibs =~ s/blib/. <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2595	2695	
==>line -lpthread -lm -L/opt/local/lib  -licuuc -licudata -lpthread -lm';
        $extraLibs =~ s/blib/. <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	8637	8775	
==>ose STDOUT             or die "Can't close    stdout" if $out;
    close STDERR             or die "Can't close    stderr" if $err;

    op <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8181	8295	
==>ose STDOUT or die "Can't close    stdout" if $out;
    close STDERR or die "Can't close    stderr" if $err;

    op <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	13615	13714	
==>ks if $this matches the given $regex.

You'll want to avoid qr// if you want your tests to work befo <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	753	845	
==>ables directory. Defaults to '/usr/bin'.

=item C<libdir>

The library directory. Defaults to <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	982	1074	
==>ables directory. Defaults to '/usr/bin'.

=item C<libdir>

The library directory. Defaults to <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629984	630250	
==>"NAME" => "new",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630973	631239	
==>"NAME" => "new",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107696	1107962	
==>"NAME" => "new",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1389	1494	
==>($token->is_end) {
      ...access $token->tagname...
    
    }
  }

(Also see L<Pod::Simple::PullParser> <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10429	10537	
==>".
#DBG>						 $$states[$$stack[-1][0]]{ACTIONS}{error}.
#DBG>						 ".\n";

		push(@$stack, [ $$states[$ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9961	10065	
==>".
#DBG>						 $$states[$$stack[-1][0]]{ACTIONS}{error}.
#DBG>						 ".\n";

		push(@$stack, [ $$states[$ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59366	59462	
==>elsif ($grammar =~ m/$UNCOMMITPROD/gco)
		{
			pos($grammar)-=9;
			_parseunneg("a new (uncommitt <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7513	7671	
==>9]+\-([0-9]+)$/
                or  die "In line rule name '$lhs' ill formed: ".
                        "report it as a BUG.\n";
                $$dotpos = <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7168	7323	
==>9]+\-([0-9]+)$/
                or  die "In line rule name '$lhs' ill formed: ".
                        "report it as a BUG.\n";
                $$dotpos = <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	2439	2560	
==>flag );
GetOptions(
    "no-lines"      => \$nolines_flag,
    "help"          => \$help_flag,
    "dynamic|d"     => \$dy <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	687	785	
==>, you might
get an object of this class.

This is a subclass of L<Pod::Simple::PullParserToken> and <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	593	691	
==>, you might
get an object of this class.

This is a subclass of L<Pod::Simple::PullParserToken> and <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143604	143882	
==>}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144532	144810	
==>}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145460	145738	
==>}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15421	15528	
==>pts);	# Get expression tokens
		$whole.=join(' ', map { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair un <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15783	15890	
==>pts);	# Get expression tokens
		$whole.=join(' ', map { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair un <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16934	17041	
==>pts);	# Get expression tokens
		$whole.=join(' ', map { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair un <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16884	17030	
==>else {
                my $global = get_global($parser);
                push @opcodes, @{ $global->[1] };
                my $key = BuildLitera <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	8146	8245	
==>s the op's number of arguments. Note that this also includes
the op itself as one argument.

=cut

s <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	20759	20879	
==>eft, $right, $meth_name ];
            foreach my $variant (@{ $self->{mmd_variants}{$meth} }) {
                if ($sel <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29732	29828	
==>\t/* ordinarily, this will free the context immediately, but not if the\n\t   sub created a closu <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	32773	32889	
==>_eval;
};

sub _ending {
    my $self = shift;

    $self->_sanity_check();

    # Don't bother with an ending if thi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	1632	1731	
==>nd verbatim paragraphs.  We call _ponder_paragraph_buffer
   # to process this.
  
  $self->{'pod_pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125658	125983	
==>);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rot",
                  "F <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57855	57946	
==>=> "#line 874 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo_s(interpreter, {{\@2}});\n  {{+=3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58617	58708	
==>=> "#line 874 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo_s(interpreter, {{\@2}});\n  {{+=3 <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	8574	8689	
==>ags' => '-L/opt/local/lib -L/usr/local/lib',
             'lns' => '/bin/ln -s',
             'load_ext' => '.bundle <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	232	337	
==>lass) || $class;
}

# Purely accessors:

sub text { (@_ == 2) ? ($_[0][1] = $_[1]) : $_[0][1] }

sub text_ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49949	50053	
==>prod->additem($item)
				      or  _no_rule("<perl_quotelike>",$line);
			}
			elsif ($grammar =~ m/$CODE <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	53572	53704	
==>_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 62
		 'exp', 3,
sub
#line 357 "Lua\lua51.yp"
{
            BuildBinop( $_[ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172259	172349	
==>/ops/cmp.ops\"\n  if (0 != string_equal(interpreter,\n      {{\@1}}->vtable->get_string(int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173237	173327	
==>/ops/cmp.ops\"\n  if (0 != string_equal(interpreter,\n      {{\@1}}->vtable->get_string(int <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11320	11430	
==>_footer();

    close(OUT);
    close(IN);


    $outfile = "$outfile_base.branches.html";
    print "Writing $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	508085	508337	
==>DE" => 584,
                  "ARGS" => [
                              "n",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 636 \"src/ops/math.ops\"\n  {{\@1}} = {{ <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	5376	5526	
==>n op
may jump.

=cut

sub jump
{
    my $self = shift;

    if (@_)
    {
        $self->{JUMP} = shift;
    }

    return $self->{JUMP};
}

=item C<fu <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	4400	4546	
==>tions->set(verbose => 2);
            }

            # by description
            elsif ($description =~ /$verbose_step/) {
                $self-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035524	1035619	
==>d_pad(interpreter, lex_name, ctx);\n    PMC *result = NULL;\n\n    if (!PMC_IS_NULL(lex_pad))\n\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036688	1036783	
==>d_pad(interpreter, lex_name, ctx);\n    PMC *result = NULL;\n\n    if (!PMC_IS_NULL(lex_pad))\n\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	296	389	
==>rovide a mixture of predereferenced register addressing and a
C<switch>ed run loop.

=head2 In <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103717	1103884	
==>",
                              "p"
                            ],
                  "BODY" => "#line 332 \"src/ops/experimental.ops\"\n\tSTRING *class = {{\@2}};\n\tI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104932	1105099	
==>",
                              "p"
                            ],
                  "BODY" => "#line 332 \"src/ops/experimental.ops\"\n\tSTRING *class = {{\@2}};\n\tI <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1792	1892	
==>= $dest_sym->type;

  my $left_type;
  if (UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1750	1850	
==>= $dest_sym->type;

  my $left_type;
  if (UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1672	1772	
==>= $dest_sym->type;

  my $left_type;
  if (UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value: <==
3	/Users/nnunley/parrot/config/init/defaults.pm	3743	3869	
==>xe_out => '-o ',

        # prefix for ldflags (necessary for Win32)
        cc_ldflags => '',

        # ld output file.  Keep <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	18144	18256	
==>o back
#         next:
#
# to make $matchcount local, we will choose a different name for every
# instance of thi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79404	79517	
==>e symbol's address. We just need to build\n         a PMC with it so we can get and set the value */\n      {{\@1} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80925	81038	
==>e symbol's address. We just need to build\n         a PMC with it so we can get and set the value */\n      {{\@1} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	167	249	
==>: /parrot/languages/jako/lib/Jako/Construct/Type/String.pm 19606 2006-05-30T15:08:0 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	31815	31954	
==>.
          DEBUG and print " Item is of type ", $para->[0], " under $over_type\n";
          
          my $expected_value = ++ $curr_open- <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30190	30295	
==>BEND
}
sub parse_struct_copy_dispatch {
	goto RTJUMP;
	print CODE <<SCOPYDIS;
	
	#
	# Structure copy dispa <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	227	328	
==>unless defined &DEBUG;
}

__PACKAGE__->_accessorize(
  'root',   # root of the tree
);

#~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	7128	7299	
==>c' );
        my @args      = ( 'interp', 'pmc' );

        while (my ($type, $name) = splice( @params, 0, 2 ))
        {
           eval
           {
               push @ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	21293	21443	
==>ht, $meth_name];
            }
            $self->{mmds} = @mmds;
        }
    }
    my $methlist = join(",\n        ", @meths);
    my $mmd_list = jo <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	26516	26650	
==>lf, $num) = @_;

    lock($self->{Curr_Test});
    if( defined $num ) {
        unless( $self->{Have_Plan} ) {
            require Carp <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	414	513	
==>This is too restrictive. Need better tests
    if %1 >= 0 goto power_ok
%% DOMAIN_ERROR %%
power_ok: <==
3	/Users/nnunley/parrot/examples/benchmarks/fib.pl	361	475	
==>).

=cut

use strict;

sub fib {
	my $n = shift;
	return $n if ($n < 2);
	return fib($n-1) + fib($n-2);
}
my $N = s <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	17238	17347	
==>convert it to something usable in the generated file

sub interpolate {
    my $code = shift;
    my $op1  = s <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	20688	20789	
==>ocate .c file and add everything it exports to a list.
        $file = find_file($include, "$pmcname.c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110056	110414	
==>=> [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 137,
                  "ARGS" => [
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 182 \"s <==
3	/Users/nnunley/parrot/config/gen/platform.pm	2096	2202	
==>t$header_file\n") if defined $verbose && $verbose == 2;
            open IN_H, "< $header_file" or die "Can <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	15958	16059	
==>em C<esc(@strings)>

=item C<esc($string)>

Reimplemented here to silence a C<Pod::Simple::HTML> warni <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059551	1059835	
==>",
                  "NAME" => "find_name",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060455	1060739	
==>",
                  "NAME" => "find_name",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	898	993	
==>ory. Defaults to '/usr/include'.

=back

=head2 MANIFEST Format

The format of the MANIFEST (cur <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	3227	3324	
==>ont_edit('various files');

    $cout .= $self->includes;
    $cout .= dynext_load_code($self->{op <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	8415	8502	
==><tools/build/ops2c.pl>

=item F<tools/build/ops2pm.pl>

=item F<tools/build/pbc2c.pl>

= <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	19199	19286	
==><tools/build/ops2c.pl>

=item F<tools/build/ops2pm.pl>

=item F<tools/build/pbc2c.pl>

= <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops.pm	46	160	
==>b mark {
    my $name = shift || '';
    my $number = ++$MARKERS{$name};
    $number = '' if ($number == 1) && ($na <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2678	2792	
==>b mark {
    my $name = shift || '';
    my $number = ++$MARKERS{$name};
    $number = '' if ($number == 1) && ($na <==
3	/Users/nnunley/parrot/tools/dev/as2c.pl	1258	1366	
==>n */\n";
	    print "static const char ${func}_code[] = {\n";
	}
	elsif (/^\s*\d+\s+(\w+):/) {
	    print " " <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	1129	1226	
==>te the C<goto> run loop.

=item C<CGP>

Create the C<goto> and predereferenced run loop.

=item C< <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8711	8805	
==>ODY" => "#line 182 \"src/ops/core.ops\"\n    char * const label = string_to_cstring(interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9827	9921	
==>ODY" => "#line 182 \"src/ops/core.ops\"\n    char * const label = string_to_cstring(interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	12582	12728	
==>my $run_exec = 0;
            if ( $args =~ s/--run-exec// ) {
                $run_exec = 1;
                my $pbc_f  = per_test('.pbc', $test_n <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12730	12828	
==>qq{""};
	}
	feedme();
	push @{$code{$seg}->{code}}, "\t_RESTORE(" . join(",",@args) . ")\n";
}


su <==
3	/Users/nnunley/parrot/config/inter/progs.pm	393	487	
==>ge inter::progs;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure:: <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	5177	5307	
==>rwrites the warnings remove it from $warns
        if ($ccwarn) {
            my @warns = split ' ', $warns;
            foreach my <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367848	367953	
==>reads(interpreter, PIO_STDIN(interpreter), (size_t){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368640	368745	
==>reads(interpreter, PIO_STDIN(interpreter), (size_t){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6233	6336	
==><Parrot::Configure::Data>
object.

=cut

sub deltrigger
{
    my ($self, $key, $trigger) = @_;

    retu <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23390	23487	
==>b sethashname { $_[0]->{hashname} = '__DIRECTIVE' . ++$_[1]->{dircount} .  '__'; }

sub new ($$$;$ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	24339	24435	
==>b sethashname { $_[0]->{hashname} = '__DIRECTIVE' . ++$_[1]->{dircount} .  '__'; }

sub new ($$$$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465600	465819	
==>"src/ops/math.ops\"\n  {{\@1}}--;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	466221	466440	
==>"src/ops/math.ops\"\n  {{\@1}}--;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	11189	11298	
==>s_diag($got, 'eq', $expect) unless $test;
        return $test;
    }

    return $self->cmp_ok($got, 'eq', $e <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	6244	6381	
==>e($rel_path) )
    {
        push @rel_paths, $rel_path;
    }
    else
    {
        warn "Failed to process $rel_path.\n";
    }

    re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712290	712386	
==>ne 59 \"src/ops/python.ops\"\n  PMC * const io = PIO_STDOUT(interpreter);\n  STRING *s;\n  if (PI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713397	713493	
==>ne 59 \"src/ops/python.ops\"\n  PMC * const io = PIO_STDOUT(interpreter);\n  STRING *s;\n  if (PI <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2275	2372	
==>ry_with_name('c'),
        $self->directory_with_name('src'),
        $self->directory_with_name(' <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	12299	12395	
==>q>

  $Test->isnt_eq($got, $dont_expect, $name);

Like Test::More's isnt().  Checks if $got ne $d <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742732	742822	
==>ne 174 \"src/ops/set.ops\"\n  {{\@1}} = string_from_int(interpreter, {{\@2}});\n  {{+=3}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743498	743588	
==>ne 174 \"src/ops/set.ops\"\n  {{\@1}} = string_from_int(interpreter, {{\@2}});\n  {{+=3}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296980	297308	
==>line 970 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 0 : 1;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297836	298164	
==>line 970 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 0 : 1;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298692	299020	
==>line 970 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 0 : 1;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1674	1768	
==>t->value);
  $self->SYNTAX_ERROR("Assigning to unknown variable %s.", $dest->value) unless $des <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1632	1726	
==>t->value);
  $self->SYNTAX_ERROR("Assigning to unknown variable %s.", $dest->value) unless $des <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1554	1648	
==>t->value);
  $self->SYNTAX_ERROR("Assigning to unknown variable %s.", $dest->value) unless $des <==
3	/Users/nnunley/parrot/config/gen/config_h.pm	746	858	
==>g_h.in', 'include/parrot/config.h',
        commentType       => '/*',
        ignorePattern     => 'PARROT_CONFI <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2363	2456	
==>attern, $expected, $description, @todo)>

Runs the target string against the Perl 6 pattern, p <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3797	3890	
==>attern, $expected, $description, @todo)>

Runs the target string against the Perl 6 pattern, p <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	42844	42958	
==>bel;
    $self->{code} .= $label . ' ' x ($max_len[0]-length($label)+2);
    if(defined $row->[1]) {
      $label = <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28743	28849	
==>d C<$method>.

=cut

sub implements
{
    my ($self, $meth) = @_;

    return 0 unless exists $self->{has_m <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3998	4096	
==>as --destination=DIRECTORY
    shift(@oplibs) =~ /--destination=(.*)/
      or die "copy command re <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20370	20464	
==>gram that does something simple with a Pod::PullParser
object (and not an object of a subclass) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807886	807976	
==>\@1}} = {{\@2}}->vtable->get_number_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808791	808881	
==>\@1}} = {{\@2}}->vtable->get_number_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n", <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	2010	2117	
==>{
  my ($node, $expected, $name) = @_;

  my $args = scalar @{$node->{children}} - 1;

  confess "$name: Wro <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	5511	5613	
==>rd work out of testing and was really, really easy
to learn.  Paul Johnson simultaneously had this idea <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	29511	29610	
==>integer_char {
}

sub _op_char_upcase {
}

sub _op_char_downcase {
}

sub _op_string_p {
}

sub _op_ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4942	5053	
==>ss);
    bless $self, $class;
    $self->init($class);
    $self;
}

=back

=head2 Instance Methods

=over

=ite <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4347	4452	
==>ush the value in the
		# load register onto to the stack.
		$pir .= <<'PIR'
${INS} = concat "push s, "
${I <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	58	147	
==>rrot/lib/Parrot/Pmc2c.pm 20340 2006-06-22T21:49:11.552283Z bernhard  $

=head1 NAME

Parro <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15415	15528	
==>wards
for i = 0 to 10 step 2
	print i,
next i
print
for i = 10 to 3 step -1
	print i
next i
print

' For loops.  3 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	747	846	
==>ko::Construct::Block));
  confess "Type (" . ref($type) . ") is not!"   if defined $type and not UNI <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	630	726	
==>ko::Construct::Block));
  confess "Type (". ref($type) . ") is not!" if defined $type and not UNI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39366	39650	
==>START",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40213	40497	
==>START",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41060	41344	
==>START",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	315225	315519	
==>RGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 368,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 77 \"src/ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35611	35711	
==>urn $_[0]->{"subrule"} }
sub isterminal { 0 }
sub sethashname { }

sub describe ($)
{
	my $desc = $_[ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33090	33189	
==>urn $_[0]->{"subrule"} }
sub isterminal { 0 }
sub sethashname {}

sub describe ($)
{
	my $desc = $_[ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	7798	7973	
==>m('', 'cpu_dep'),
        ),
        $self->new_group(
            'Debugging', 
            '',
            $self->c_item(
                '', 
                'pairs' => ['de <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832084	832167	
==>ack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832812	832895	
==>ack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	390	507	
==>uct::Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected 5 args!" unless @_ == 5;

  my ( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	390	507	
==>uct::Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected 5 args!" unless @_ == 5;

  my ( <==
3	/Users/nnunley/parrot/lib/Parrot/Revision.pm	274	369	
==>ision::config;

=head1 DESCRIPTION

Get parrot's current and configure time revision.

=cut

pac <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5638	5778	
==>%pmc_libs );
    for my $pmc (@pmcs) {
        our $class;
        require "$pmc.dump";
 
        # there can be many libs
        my %libs = <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5849	5989	
==>%pmc_libs );
    for my $pmc (@pmcs) {
        our $class;
        require "$pmc.dump";
 
        # there can be many libs
        my %libs = <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	9153	9289	
==>h}$ops\n";
                print MAKEFILE "\t\$(CHMOD) 0644 ops${slash}$pod\n\n";
            } else {
                print MAKEFILE "\t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843355	843644	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844233	844522	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845111	845400	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	360	459	
==>k is the backtracking point that
# can be returned to within the processing of the current $op to fi <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4501	4600	
==>urn $c;
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

= <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	6069	6166	
==>nterp_flags_TEST(interpreter, PARROT_DEBUG_FLAG)) {
            fprintf(stderr, "\t" INTVAL_FMT ": <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4091	4216	
==>pos>, $lenvar, $fail # need $needed more chars";
    } elsif ($needed eq "0") {
        return ();
    } else {
        return <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349198	349294	
==>erpreter, NULL, path, \"+<\");\n  /* string_cstring_free(path); */\n  if(!{{\@1}}) {\n    {{\@1}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350200	350296	
==>erpreter, NULL, path, \"+<\");\n  /* string_cstring_free(path); */\n  if(!{{\@1}}) {\n    {{\@1}} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2780	2890	
==>est' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
    $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3454	3564	
==>est' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
    $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3544	3654	
==>est' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
    $ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	12721	12835	
==>ned $dont_expect ) {
        # undef only matches undef and nothing else
        my $test = defined $got || defined <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	13165	13279	
==>ned $dont_expect ) {
        # undef only matches undef and nothing else
        my $test = defined $got || defined <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	4194	4289	
==>urn "$class $v (" . __PACKAGE__ . " $VERSION)";
  }
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738190	738413	
==>} = string_to_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738954	739177	
==>} = string_to_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	2714	2850	
==>,$children[0]]);
            } else {
                @{ $t->{args} } = @children;
                return rop('multi_match', [0,1,1,$self <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	3280	3404	
==>ase_type;        /* 'type' value for MMD */
    STRING* whoami;          /* Name of class this vtable is for */
    UINTVAL f <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8764	8874	
==>!";
    }

    $reg = value($reg);

    my $L_fallback = $self->output_label_use($fallback);
    return ("<rx_t <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	45942	46039	
==>t "$op is not a pattern matching operation\n";
		}


=head2 C<extract_quotelike> and "here documen <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13779	13890	
==>ate
the number of lines, C<$out_name> is the name of the output file we are
generating.

=cut

sub body
{
    my <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29562	29673	
==>ate
the number of lines, C<$out_name> is the name of the output file we are
generating.

=cut

sub body
{
    my <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30204	30315	
==>ate
the number of lines, C<$out_name> is the name of the output file we are
generating.

=cut

sub body
{
    my <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	687	795	
==>ount, $expr) = _build_tree ($tokens, $count);
    push @{$temp->{children}}, $expr;
  }
  elsif ($tokens->[$c <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	904	1012	
==>ount, $expr) = _build_tree ($tokens, $count);
    push @{$temp->{children}}, $expr;
  }
  elsif ($tokens->[$c <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1118	1226	
==>ount, $expr) = _build_tree ($tokens, $count);
    push @{$temp->{children}}, $expr;
  }
  elsif ($tokens->[$c <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	7263	7406	
==>^[Ss]$/) {
			$small  = 1;
			$uninit = 1;
		    }
		    $zeroed = 1;
		}
		if ($^O eq 'irix' && $type =~ /^[Rr]$/) {
		    $const = 1;
		    $i <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	12719	12830	
==>dn't do %s: %s",
          $self->{'encoding_command_reqs'  }[-1],
          $self->{'encoding_command_statuses' <==
3	/Users/nnunley/parrot/config/gen/config_pm.pm	1404	1498	
==>pen '$template': $!";
    open(OUT, ">config_lib.pasm") or die "Can't open config_lib.pasm: $!" <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3197	3322	
==>}}=$_[0];
    ${$$self{TOKEN}};
}

sub YYCurval {
	my($self)=shift;

        @_
    and ${$$self{VALUE}}=$_[0];
    $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3040	3156	
==>}}=$_[0];
    ${$$self{TOKEN}};
}

sub YYCurval {
	my($self)=shift;

        @_
    and ${$$self{VALUE}}=$_[0];
    $ <==
3	/Users/nnunley/parrot/config/init/hints/vms.pm	110	220	
==>10975Z coke  $

package init::hints::vms;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    $conf->d <==
3	/Users/nnunley/parrot/lib/Test/More.pm	7622	7735	
==>ife" );
    ok( $foo ne '',     "Got some foo" );

(Mnemonic:  "This is that."  "This isn't that.")

So why use th <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2066	2177	
==>turn chr($in);
    }
  } else {
    return $Name2character{$in}; # returns undef if unknown
  }
}

#------------ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19466	19571	
==>ata 10,20,30,40,50

' basic I/O  1..5
open "_testfile" for output as #3
for i=1 to 5
	print #3, i
next i
c <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	878	988	
==>left,
    RIGHT => $right
  }, $class;

  $block->push_content($self);

  return $self;
}

sub left  { return s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	886	996	
==>left,
    RIGHT => $right
  }, $class;

  $block->push_content($self);

  return $self;
}

sub left  { return s <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	3543	3644	
==>es{$gcov_file}) {
            my ($percent, $total_lines, $real_filename) = /\s*([^%]+)% of (\d+)(?: s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24961	25266	
==>[
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 33,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 436 \"src/ops/core.ops\"\n  opcod <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51840	52039	
==>reter, PARROT_ALL_TRACE_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52623	52822	
==>reter, PARROT_ALL_TRACE_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1524	1638	
==>()
#

sub new
{
  my $class = shift;

  my $root = Jako::Construct::Block::File->new(
    undef,  # No parent
    ' <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	3156	3251	
==>npack 'V16', substr $message,$i*64,64;	
		($a,$b,$c,$d) = round($a,$b,$c,$d,@X);
	}
	pack 'V4',$ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	78113	78206	
==>) after an unconditional <error>",$_[2])
		and
		_hint("An unconditional <error> always causes <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31803	31936	
==>] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcodes1, new AssignOp( $parser,
            'result' <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	32454	32587	
==>] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcodes1, new AssignOp( $parser,
            'result' <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33104	33237	
==>] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcodes1, new AssignOp( $parser,
            'result' <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10020	10121	
==>$$stack[-1][0]]{ACTIONS}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Pop stat <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9572	9670	
==>$$stack[-1][0]]{ACTIONS}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Pop stat <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11088	11179	
==>EMENT_TYPE_PTR = 0x0F
	.const int ELEMENT_TYPE_BYREF = 0x10
	.const int ELEMENT_TYPE_VALUETY <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	33920	34055	
==>dx];
        }

        my $num_failed = grep !$_->{'ok'}, 
                              @{$test_results}[0..$self->{Expected_Tests}-1] <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3892	3999	
==>sub output_check {
    my ($self, $needed, $failLabel, $lenvar) = @_;
    $lenvar ||= "<rx_len>";
    my $fa <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3606	3713	
==>sub output_check {
    my ($self, $needed, $failLabel, $lenvar) = @_;
    $lenvar ||= "<rx_len>";
    my $fa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253185	253523	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254047	254385	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254910	255248	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028038	1028136	
==>_t *next = {{^+2}};\n  if ({{\@1}} < 0) {\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028889	1028987	
==>_t *next = {{^+2}};\n  if ({{\@1}} < 0) {\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\" <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	6397	6492	
==>or 0 .. $#program;
printf("%-$max[0]s  ", 'Benchmark');
printf("%-$max[$_ + 1]s  ", $program[$_] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207008	207395	
==>",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 244,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 3 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15532	15625	
==>{, }, -, control chars, and 7f-ff.
    $x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16711	16804	
==>{, }, -, control chars, and 7f-ff.
    $x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord( <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	867	960	
==>sr/local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS = qq[-bundle -undefined suppress];
our $PE <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	856	949	
==>sr/local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS = qq[-bundle -undefined suppress];
our $PE <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	860	953	
==>sr/local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS = qq[-bundle -undefined suppress];
our $PE <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1560	1657	
==>de for C<OFFSET($offset)>. Called by C<goto_offset()>.

=cut

sub expr_offset
{
    my ($self, $of <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85520	85611	
==>_int(interpreter,\n      interpreter->iglobals, IGLOBALS_COMPREG_HASH);\n  {{\@1}} = VTABLE_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86427	86518	
==>_int(interpreter,\n      interpreter->iglobals, IGLOBALS_COMPREG_HASH);\n  {{\@1}} = VTABLE_ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	2079	2185	
==>output_like($code, $expected, $description)>

Runs the Parrot Assembler code and passes the test if
the  ou <==
3	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	857	952	
==>the Parrot subversion repository. (Needed for
# distributions or in general when svn is not avai <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3712	3807	
==>the Parrot subversion repository. (Needed for
# distributions or in general when svn is not avai <==
3	/Users/nnunley/parrot/tools/dev/symlink.pl	243	351	
==>: Handle also:
# 	- being called with a relative path
#	- being called through a symlink
#
# jhi@iki.fi
#

us <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9169	9275	
==>BUG and print "Returning from do_beginning...\n";
  return 1;
}

sub version_tag_comment {
  my $self = shi <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	23623	23719	
==>t->output($file);

Where normal "ok/not ok" test output should go.

Defaults to STDOUT.

=item B< <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	1958	2072	
==>reach my $line (split(/\n/, $input)) {
        # Is this the start of a new method?
        if ($line =~ /^\[([\w\. <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	4224	4326	
==>d into subdirs of libdir
        $dest = File::Spec->catdir($options{libdir}, basename($dest));
    } e <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	447	541	
==>use strict;

use lib 'lib';
use Parrot::Types;
use Parrot::PackFile;
use Parrot::PackFile::Cons <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302120	302379	
==>1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302996	303255	
==>1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303872	304131	
==>1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	14021	14143	
==>op_size}}/mg;

        $branch   ||= $body =~ s/\bgoto\s+OFFSET\((.*?)\)/{{+=$1}}/mg;
                      $body =~ s/\bgo <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	6403	6505	
==>_->startset()} = ();
    }
    return Regex::Ops::Tree::order_startset(\%start);
}

# Returns true if a <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1713	1814	
==>urn 'opcode_t' 
};

=item C<core_type()>

Implemented in subclasses to return the type of core created <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	4140	4292	
==>urn_data = ",
       s => "return_data = ",
       f => "return_data = ",
       d => "return_data = ",
       b => "return_data = ",
       t => "return <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	10969	11092	
==>l = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # undef only matches undef and nothing else
        m <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	11387	11510	
==>l = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # undef only matches undef and nothing else
        m <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	778	889	
==>ash!" if defined $props and ref($props) ne "HASH";

  my $self = bless {
    BLOCK => $block,

    TYPE  => unde <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117169	117499	
==>\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	119500	119830	
==>\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120355	120685	
==>\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FL <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	23565	23680	
==>open->[-1][1]{'target'} because of =end $content\n";
      pop @$curr_open;

      next;
      
    } elsif($para_ty <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8522	8628	
==>aracter{'gt'  }   = '>';
  $Name2character{'quot'}   = '"';
  $Name2character{'amp' }   = '&';
  $Name2char <==
3	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	1186	1287	
==>rrot_version) > 4 ) {
        die "Too many components to VERSION file contents: '$parrot_version' (sh <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1227	1342	
==>util)};

    # never override the user.  If a non-existent program is specified then
    # the user is responsible f <==
3	/Users/nnunley/parrot/config/inter/make.pm	1048	1163	
==>util)};

    # never override the user.  If a non-existent program is specified then
    # the user is responsible f <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1224	1339	
==>util)};

    # never override the user.  If a non-existent program is specified then
    # the user is responsible f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095163	1095268	
==>/experimental.ops\"\n  Parrot_Exec_OS_Command(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "ex <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095858	1095963	
==>/experimental.ops\"\n  Parrot_Exec_OS_Command(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "ex <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	2771	2868	
==>bution after configuration and installing.', 'MANIFEST.generated'),
            $self->new_item('S <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1752	1854	
==>ub compile {
    my ($expr, $ctx, $pass_label, $fail_label, %options) = @_;

    $options{state} ||= gl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822291	822384	
==>ion(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_INT) {\n    internal_e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823359	823452	
==>ion(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_INT) {\n    internal_e <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	1781	1895	
==>er}
        if $options{compiler};

    # Per Leo on 18APR2005, run the test suite with --gc-debug
    if ( $ENV{TE <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4083	4165	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

__PACKAGE__- <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	1768	1849	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

__PACKAGE__ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574526	574766	
==>ne",
                  "CODE" => 656,
                  "ARGS" => [
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 249 \"src/ops/object.ops\"\n    {{\@1} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031459	1031570	
==>{\@2}} < enum_first_type || {{\@2}} >= enum_last_type)\n        {{\@1}} = -1;\n    else\n        {{\@1}} = data_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032328	1032439	
==>{\@2}} < enum_first_type || {{\@2}} >= enum_last_type)\n        {{\@1}} = -1;\n    else\n        {{\@1}} = data_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641311	641478	
==>i",
                              "p"
                            ],
                  "BODY" => "#line 189 \"src/ops/pmc.ops\"\n  {{\@1}} = {{\@2}}->vtable->type(inter <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12387	12482	
==>), this returns undef.

=item e2charnum($e_content)

Given a name or number that could appear in <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	25	112	
==>regex/lib/Regex/Driver.pm 18978 2006-04-30T14:02:48.452322Z bernhard  $

package Regex:: <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	4057	4215	
==>,
        ),
        $self->new_group(
            'Bytecode', 
            '',
            $self->c_item(
                'Parrot Packfile API and utilities.' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23442	23576	
==>f     (<value> <op> <value>);
    #   next unless (<value> <op> <value>);
    #
    #   next <label>;
    #   next <label> if     (<val <==
3	/Users/nnunley/parrot/languages/converter.pl	974	1073	
==>if defined $item[6][0];
		}
#		| terminal(?) '[' production ']' mod(?) production(?)
		| terminal(?) <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	5161	5288	
==>preter;
    struct PackFile *          pf;
    INTVAL i;
    PMC *userargv;

    interpreter = Parrot_new(NULL);
    if (!interp <==
3	/Users/nnunley/parrot/lib/Test/More.pm	31210	31326	
==>_hash {
    local @Data_Stack;
    return _deep_check(@_);
}

sub _eq_hash {
    my($a1, $a2) = @_;

    if( grep !_t <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	1145	1235	
==>destination path:

    source_path <whitespace> [package]meta1,meta2,... <whitespace> desti <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	7026	7128	
==>of $totals{branches} ($totals{branch_coverage} %)</td>
                 <td>$totals{covered_calls} of $ <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	744	836	
==>he executables directory. Defaults to '/usr/bin'.

=item C<libdir>

The library directory. De <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	973	1065	
==>he executables directory. Defaults to '/usr/bin'.

=item C<libdir>

The library directory. De <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9054	9158	
==>+w*sin(i)+1)="*"
	a$(w+w*cos(i)+1)="+"
	for j = 1 to w*2
		print a$(j);
	next j
	print
next i

' Expect C <==
3	/Users/nnunley/parrot/tools/dev/symlink.pl	870	970	
==>ie "$0: Do not run this under the original Parrot tree.\n"
	if (-d $trydir) && (-f $tryfile && ! -l $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/State.pm	335	459	
==>bel => $label,
                 }, 'Regex::Ops::Label';
}

sub genlabel {
    my ($self, $desc) = @_;
    my $number = ++$sel <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540465	540566	
==>{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541717	541818	
==>{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542969	543070	
==>{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	625977	626108	
==>+ cur_opcode[2 + i]);\n                break;\n            default:\n                internal_exception(1, \"unhandled sig_bits\");\ <==
3	/Users/nnunley/parrot/config/inter/lex.pm	908	1009	
==>ptions->get('maintainer')) {
        $conf->data->set($util => 'echo');
        $self->set_result('ski <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	905	1006	
==>ptions->get('maintainer')) {
        $conf->data->set($util => 'echo');
        $self->set_result('ski <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117463	117726	
==>NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118201	118464	
==>NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	267728	267839	
==>c/ops/cmp.ops\"\n    {{\@1}} = VTABLE_get_bool(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	470	571	
==>rog_args = $ENV{TEST_PROG_ARGS} || q{};
    my $lang_fn        = Parrot::Test::per_test( '.m4', $count <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	482	583	
==>rog_args = $ENV{TEST_PROG_ARGS} || q{};
    my $lang_fn        = Parrot::Test::per_test( '.m4', $count <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3857	3951	
==>$self->output_label_use($dest);
}

sub output_check {
    my ($self, $needed, $failLabel, $lenv <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154659	154911	
==>=> 187,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	8864	8980	
==>ted 
		# from a(b,d) 
		# to   a(,b,d)
		# and commas become a low-precedence unary operator that means
		# "Push the <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	47151	47246	
==>operator)

=item [4]

"'EOMSG'" (i.e. the left delimiter of the here document, including any quo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188828	188942	
==>_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_CMP) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299450	299623	
==>,
                              "n"
                            ],
                  "BODY" => "#line 975 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300296	300469	
==>,
                              "n"
                            ],
                  "BODY" => "#line 975 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n", <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	3473	3581	
==>kage_line {
  my $line = shift;

  # Trim leading and trailing spaces
  $line =~ s/^\s*//;
  $line =~ s/\s*$/ <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	9097	9232	
==>, '.',
   47, '/',
   48, '0',
   49, '1',
   50, '2',
   51, '3',
   52, '4',
   53, '5',
   54, '6',
   55, '7',
   56, '8',
   57, '9 <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	44071	44191	
==>args);
      }
    } else {
      my @args = map { $self->_generate($_); } _get_args($node, 0);
      $return = $self->_c <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	3103	3222	
==>d_files) {
        my $source_file = $gcov_file;
        $source_file =~ s/\.gcov$//g;

        # avoid collisions where <==
3	/Users/nnunley/parrot/config/init/hints/freebsd.pm	208	321	
==>) = @_;

    my $libs = $conf->data->get('libs');

    # get rid of old pthread-stuff, if any
    $libs =~ s/(-lpt <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1462	1565	
==>n whether it's supposed to be \strikedl or \striked1 (!!!)
 ),

 # Bit of a hack here:
 'L=pod' => '{\cs <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	2672	2769	
==>current state of the
test.

Since you only run one test per program C<new> always returns the same <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041	1125	
==>houldn't see this\")\n\n\n\n\n/*\n** object.ops\n*/\n\n\n\n\n/*\n** pic.ops\n*/\n\n#d <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83899	84191	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84805	85097	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85711	86003	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846684	846909	
==>ing_chr(interpreter, (UINTVAL){{\@2}});\n  {{\@1}} = s;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847480	847705	
==>ing_chr(interpreter, (UINTVAL){{\@2}});\n  {{\@1}} = s;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/config/auto/jit.pm	1753	1873	
==>rpc/) {
        $cpuarch = 'ppc';
    }

    $cpuarch =~ s/armv[34]l?/arm/i;
    $cpuarch =~ s/i[456]86/i386/i;

    $con <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	12118	12269	
==>oto', [ $next ]),
                $back => aop('increment', [ -1, $lastback ]),
                         aop('goto', [ $lastback ]),
                $ne <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	4958	5091	
==>e{$source_file}{$function} = $percent;
                next;
            }

            ($percent, my $total_calls, $function) = /\s*( <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	47534	47635	
==>dditem($item)
			      or  $self->_addstartcode($code);
		}
		elsif ($grammar =~ m/(?=$IMPLICITSUBRULE <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	8614	8782	
==>n'       => 'IN',
        'local'    => 'LOCAL',
        'nil'      => 'NIL',
        'not'      => 'NOT',
        'or'       => 'OR',
        'repeat'   => 'REPEAT <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	1480	1624	
==>ix\((\w+)\))?
		(\s+subst\((s/.*?/.*?/\w*)\))?
		!x
                ) {
                $inc = $2;
                print "$2 " if $conf->options- <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4672	4770	
==>ref and returns a
L<Parrot::Configure::Data> object.

=cut

sub settrigger
{
    my ($self, $key, $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192046	192343	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 228, <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	53586	53718	
==>_[2], $_[3] );
        }
	],
	[#Rule 62
		 'exp', 3,
sub
#line 357 "Lua\lua51.yp"
{
            BuildBinop( $_[0], $_[1], $_[ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	1310	1413	
==>~~~~~~~~~~~~~
1;
__END__

Chole

 * 1 large red onion
 * 2 tomatillos
 * 4 or 5 roma tomatoes (optionall <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6797	6959	
==>rt_element({
        Name       => 'sub',
        Attributes => {
          name  => $name,
          type  => $type,
          kind  => 'fn',
          fnlib => $ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17407	17505	
==>op until t>1

' Function test:  A, 3, 90
print chr$(65)
print int(3.1415)
print asc("Z")

' Logical <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	145	241	
==>is eliminates the need for a stack.
# Inherits from SRM::Base.

package SRM::Register;
use strict <==
3	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	1813	1925	
==>ke @src");
}

sub clean {
    print "** $0: removing files in miniparrot directory\n";
    find(sub {
	     retur <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	14389	14498	
==>strtol      stdlib.h
strtold     stdlib.h
strtoll     stdlib.h
strtoul     stdlib.h
strtoull    stdlib.h
strxf <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	4865	4973	
==>TABLE_${uc_meth}_METHNAME \"__$entry->[1]\"
EOM

    }
    $macros .= <<"EOM";
/* &end_gen */

EOM

    # fin <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	528	643	
==>}}, $expr;
    }
    $count++;
  }
  elsif ($tokens->[$count] eq "'") {
    $temp = { children => [{ value => 'quote <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9622	9714	
==>${PTEMP1}, ${PTEMP2}) = method_info_from_token(${ASSEMBLY}, ${ARG0})

# If it's a call to ins <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7136	7228	
==>${PTEMP1}, ${PTEMP2}) = method_info_from_token(${ASSEMBLY}, ${ARG0})

# If it's a call to ins <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52671	52928	
==>\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gc_debug",
                  "FLAGS" => "" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53426	53683	
==>\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gc_debug",
                  "FLAGS" => "" <==
3	/Users/nnunley/parrot/config/auto/msvc.pm	216	337	
==>s whether the C compiler is actually C<Visual C++>.

=cut

package auto::msvc;

use strict;
use vars qw($description @args <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548075	548178	
==>\"\n  /* Coercing a negative to a UINT can get pretty ugly\n   * in this situation. */\n  INTVAL i = {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548981	549084	
==>\"\n  /* Coercing a negative to a UINT can get pretty ugly\n   * in this situation. */\n  INTVAL i = {{\ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	214	315	
==>/Conditional/Else.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724888	725197	
==>":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 812,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" = <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3588	3688	
==>PIR
		$pir =~ s/\$register_num/$register_num/g;
		$register_num++;
	}

	# Return generated code.
	ret <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3398	3498	
==>PIR
		$pir =~ s/\$register_num/$register_num/g;
		$register_num++;
	}

	# Return generated code.
	ret <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474087	474188	
==>ine 403 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475078	475179	
==>ine 403 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476069	476170	
==>ine 403 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(int <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18154	18268	
==>y->[1] };
    my $result = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6898	7007	
==>{
    my ($self) = @_;
    my @ops;
    if ($self->{DEBUG}) {
	push @ops, (qq(print "PUSHED ).(@_>1?$_[1]:"mar <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6548	6657	
==>{
    my ($self) = @_;
    my @ops;
    if ($self->{DEBUG}) {
	push @ops, (qq(print "PUSHED ).(@_>1?$_[1]:"mar <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5794	5932	
==>_[0] } @$stack).
#DBG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defined($$token)
            or	do {
				($$to <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5519	5649	
==>_[0] } @$stack).
#DBG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defined($$token)
            or	do {
				($$to <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1317	1409	
==>ere_str";
}

=item C<expr_address($address)>

Returns the C code for C<ADDRESS($address)>. Ca <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35130	35229	
==>turn $self->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my $decl = $self->decl($s <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36433	36532	
==>turn $self->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my $decl = $self->decl($s <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38380	38479	
==>turn $self->SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my $decl = $self->decl($s <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	8595	8720	
==>URCE $trans->run_core_split($base);
    }
    print SOURCE $op_funcs[$i];
}

if ($trans->can("run_core_finish")) {
    print S <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109633	109720	
==>\"src/ops/bit.ops\"\n  string_bitwise_or(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110412	110499	
==>\"src/ops/bit.ops\"\n  string_bitwise_or(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2647	2756	
==>egister opcode_t *cur_opcode asm ("esi") = cur_op;
    register char *   _reg_base   asm ("edi");
#else
    op <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3216	3325	
==>egister opcode_t *cur_opcode asm ("esi") = cur_op;
    register char *   _reg_base   asm ("edi");
#else
    op <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	3609	3705	
==>e|-o	prepend the object name before the symbol name
--t		append the short BSD-style type (in pare <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3324	3439	
==>st print the last line of output
        # XXX This should be "print the last command". Which is harder.
        $bo <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4731	4846	
==>st print the last line of output
        # XXX This should be "print the last command". Which is harder.
        $bo <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	24815	24909	
==>'; 
		if ($check->{itempos}) {
			$action .= 'push @{$thisparser->{errors}}, [qq{'.$self->{msg} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009425	1009771	
==>,
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1126,
                  "ARGS" => [
                              "s",
                              " <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	1364	1477	
==>($mode !~ /^(source|object)$/ || ! @files) {
    die "Usage: $0 object <object files..>\n" .
        "       $0 so <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	4810	4922	
==>| >>= )(.*)$}x) {
      push @tokens, Jako::Token->new(
        $file, $line, 'bit-assign', undef, $1);
      $te <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326745	327068	
==>i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 383,
                  "ARGS" => [
                              "p",
                              "n"
                            ],
                  "BODY" => "#line 154 \"src/ops <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	703	792	
==>efined $type and not UNIVERSAL::isa($type, qw(Jako::Construct::Type));
  confess "Identifi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	12270	12355	
==>d-codelbock-bold-ital;}

{\s31\ql \keepn\sb90\sa180\f2\fs%s\ul\sbasedon0 \snext0 pod-h <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	13306	13418	
==>ve_path($path);
    
    # There's no point in linking to the file you are already in.
    return if $file == $se <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786133	786220	
==>/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed_int(interpreter, {{\@2}}, { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787044	787131	
==>/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed_int(interpreter, {{\@2}}, { <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	7363	7506	
==>tart_element({
      Name       => 'arg',
      Attributes => {
        type => $arg_type_name,
        name => $arg_name
      }
    });
    $h <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	1313	1423	
==>c
{
    my ($self, $conf) = @_;

    my $file = "src/core_pmcs.c";
    my @pmcs = split(/ /, $conf->data->get(' <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61539	61641	
==>em($item)
			      or  _no_rule("pattern terminal",$line,$code);
		}
		elsif ($grammar =~ m/(?=$MATCHRU <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	4645	4747	
==>_arrayref'}}), " items left in it.\n";

      DEBUG > 3 and print "  Fetching ", Pod::Simple::MANY_LINE <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	2355	2445	
==>__PACKAGE__->new->parse_string_document('=head1 L<Foo/bI<ar>baz>>')
    "
Output:
  $VAR1 = <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	2973	3063	
==>__PACKAGE__->new->parse_string_document('=head1 L<Foo/bI<ar>baz>>')
    "
Output:
  $VAR1 = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356683	356882	
==>ntf(interpreter, INTVAL_FMT, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357343	357542	
==>ntf(interpreter, INTVAL_FMT, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41604	41708	
==>pen {
  my $self = $_[0];
  my @closers;
  foreach my $still_open (@{  $self->{'curr_open'} || return  }) <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7369	7504	
==>xt->type eq 'text' ) {
          $self->unget_token($next);
          next;
        }
        DEBUG and print "    raw text ", $next->te <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9614	9749	
==>xt->type eq 'text' ) {
          $self->unget_token($next);
          next;
        }
        DEBUG and print "    raw text ", $next->te <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19477	19566	
==>o::Construct::Expression::Value::Identifier->new($block, $self->require_ident);

      $se <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088034	1088390	
==>=> 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090988	1091344	
==>=> 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20876	20979	
==>t,
print poit(4).first

' ADD bug, Return OK
function foo$
	foo$="Return OK"
	a$="Blah"
end function
pri <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	4125	4367	
==>$match/) {
                    select INC;
                    eval $block;
                    select STDOUT;
                    die $@ if $@;
                }
            }

        }
        if ($in_def ne '') {
            die "Missing ' <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28309	28411	
==>me}_H_GUARD
#define PARROT_PMC_${name}_H_GUARD

EOH

    if ($self->{flags}{dynpmc}) {
        $hout .= <==
3	/Users/nnunley/parrot/lib/Test/More.pm	23248	23344	
==>oken tests entirely.

The syntax and behavior is similar to a C<SKIP: BLOCK> except the
tests wil <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	681	788	
==>croak("Usage:\n use Pod::Simple::Debug (NUMVAL)\nor"
                    . "\n use Pod::Simple::Debug (\\\$v <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	502	605	
==>croak("Usage:\n use Pod::Simple::Debug (NUMVAL)\nor"
                . "\n use Pod::Simple::Debug (\\\$v <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19022	19112	
==>TOACTION} && defined($item) && !$item->isa("Parse::RecDescent::Action"))
	{
		$code .= $par <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4839	4935	
==>y($rules,$states,$lex,$error)
     = @$self{ 'RULES', 'STATES', 'LEX', 'ERROR' };
	my($errstatu <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4599	4693	
==>y($rules,$states,$lex,$error)
     = @$self{ 'RULES', 'STATES', 'LEX', 'ERROR' };
	my($errstatu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19488	19577	
==>t::Expression::Value::Identifier->new($block, $self->require_ident);

      $self->require <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22032	22132	
==>:Construct::Expression::Value->new($block, $self->require_value);
        $op    = $self->require_inf <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22965	23065	
==>:Construct::Expression::Value->new($block, $self->require_value);
        $op    = $self->require_inf <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24611	24711	
==>:Construct::Expression::Value->new($block, $self->require_value);
        $op    = $self->require_inf <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3120	3226	
==>G(%ld)",
    'ki' => "IREG(%ld)",

    'ic' => "cur_opcode[%ld]",
    'nc' => "CONST(%ld)->u.number",
    ' <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	7481	7584	
==>n> (indeterminate # of tests) or an integer (the number of expected tests).

=cut

sub has_plan {
    my <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2034	2135	
==>G(%ld)",
  'ki'  => "IREG(%ld)",

  'ic'  => "cur_opcode[%ld]",
  'nc'  => "CONST(%ld)->u.number",
  ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483642	483738	
==>ine 455 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exceptio <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484641	484737	
==>ine 455 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exceptio <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485640	485736	
==>ine 455 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exceptio <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22377	22500	
==>> 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 124,
			'functioncall' => 31,
			'function' => 26,
			'tablecon <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	713	825	
==>of this class.

This is a subclass of L<Pod::Simple::PullParserToken> and inherits all its methods,
and adds thes <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1139	1251	
==>of this class.

This is a subclass of L<Pod::Simple::PullParserToken> and inherits all its methods,
and adds thes <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	619	731	
==>of this class.

This is a subclass of L<Pod::Simple::PullParserToken> and inherits all its methods,
and adds thes <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	24067	24222	
==>build_f,
                                     'STDERR' => $build_f);
            $builder->diag("'$cmd' failed with exit code $exit_code")
                i <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	24828	24975	
==>build_f,
                                     'STDERR' => $build_f);
            $builder->diag("'$cmd' failed with exit code $exit_code")
        i <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	18125	18236	
==><EOC;
	if $tos->[1] goto $targ $cmt
EOC
}

sub UNARY_NOT
{
    my ($n, $c, $cmt) = @_;
    my ($opcode, $arg, $r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5663	5892	
==>0,
                  "NAME" => "load_bytecode",
                  "FLAGS" => ":load_file",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6328	6557	
==>0,
                  "NAME" => "load_bytecode",
                  "FLAGS" => ":load_file",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	12540	12637	
==>s>
      <tr><th colspan="11" class="indent0"><tmpl_var name=name></th></tr>
      <tmpl_loop name <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	1288	1404	
==>th($_))} @files);
    }
    
    return @groups;
}

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549988	550090	
==>opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+3}};\n  interp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551289	551391	
==>opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+3}};\n  interp <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	41544	41645	
==>f->_save_1 ('P');
  $self->_restore($return); # dont need to save this
  $self->_save_set;

  my $coun <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	11017	11112	
==>ed, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `like (Str $got, Rule $expected, St <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	3058	3153	
==>om the PMCPARENT class.
If no parent class is defined, methods from F<default.pmc> are used.

=i <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1452	1553	
==>->{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/gets the transform's arguments.

=cut

su <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1061	1162	
==>->{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/gets the transform's arguments.

=cut

su <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1069	1167	
==>ft $op $right goto ${prefix}_LAST");

    $compiler->emit("${prefix}_REDO:");

    if ($self->conte <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2630	2725	
==>$right = $right->compile($compiler);

  my $dest_name = $dest->value;
  $dest = $dest->compile($ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93300	93386	
==>line 58 \"src/ops/bit.ops\"\n  string_bitwise_and(interpreter, {{\@1}}, {{\@2}}, &{{\@1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94080	94166	
==>line 58 \"src/ops/bit.ops\"\n  string_bitwise_and(interpreter, {{\@1}}, {{\@2}}, &{{\@1 <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	17492	17607	
==>(\d+)/) {
	$targ = "pc_$1";
    }
    print <<EOC;
	goto $targ $cmt
EOC
}

sub JUMP_ABSOLUTE()
{
    my ($n, $c, $cm <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441067	441549	
==>[
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 505,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "n"
                            ],
                  "BODY" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194285	194515	
==>S" => [
                              "p",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 320 \"src/ops/cmp.ops\"\n  if (string_compare(inter <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27293	27383	
==>nglish_func($funcname);
	$functions{$funcname}=$englishname;

	$f="_USERFUNC_$funcname";
	$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182959	183313	
==>"i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 218,
                  "ARGS" => [
                              "n",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 285 \"s <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1567	1711	
==>my $self = shift;

    if (@_)
    {
        $self->{ARGS} = [ @_ ];
    }
    else
    {
        return $self->{ARGS};
    }
}

=item C<arg($ind <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1176	1320	
==>my $self = shift;

    if (@_)
    {
        $self->{ARGS} = [ @_ ];
    }
    else
    {
        return $self->{ARGS};
    }
}

=item C<arg($ind <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	1552	1661	
==>, string => 'STRING');
			if (exists $th{$stype}) {
				$stype=$th{$stype};
			} else {
				unless (exists $us <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	312582	312667	
==>ontext_info info;\n  Parrot_Context_info(interpreter, CONTEXT(interpreter->ctx), &info <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	313314	313399	
==>ontext_info info;\n  Parrot_Context_info(interpreter, CONTEXT(interpreter->ctx), &info <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426190	426445	
==>_v_pi(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427077	427332	
==>_v_pi(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	30039	30153	
==>s called the page -- is
# "perlfunc". In "L</CAVEATS>", the name is undef.)
# 

############# The "section" attribu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	652	743	
==>ss "Type (" . ref($type) . ") is not!"  unless UNIVERSAL::isa($type, qw(Jako::Construct::Typ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	643	732	
==>ss "Type (". ref($type) . ") is not!" unless UNIVERSAL::isa($type, qw(Jako::Construct::Typ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702468	702853	
==>,
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 788,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 670 \" <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	4709	4852	
==>e";
        }
        $idx += 2;
    }
    $out .= "    bless \$r, \$class;\n  }\n";

    # Create accessor methods.

    my( $pre, $pst, $sel ) <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1598	1703	
==>ift @_ => ( ref $pattern
        ? Parrot::Test::PGE::_generate_subrule_pir($target, $pattern)
        : P <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2121	2226	
==>ift @_ => ( ref $pattern
        ? Parrot::Test::PGE::_generate_subrule_pir($target, $pattern)
        : P <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	321	413	
==>mands
my @dynamic_cmds = pir_cmds_in_dir($dynamic_dir);

print <<"END_PIR";

.HLL 'tcl', 'tcl <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5345	5495	
==>->{result} } ) {
                print {$FH} ", " unless ($first);
                print {$FH} "$_->{symbol}";
                if ( exists $_->{prag <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6377	6527	
==>->{result} } ) {
                print {$FH} ", " unless ($first);
                print {$FH} "$_->{symbol}";
                if ( exists $_->{prag <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	9787	9925	
==>->{result} } ) {
            print {$FH} ", " unless ($first);
            print {$FH} "$_->{symbol}";
            if ( exists $_->{prag <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1430	1544	
==>}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'op', Att <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1424	1538	
==>}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'op', Att <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	5439	5537	
==>yleNum="dsDecVal" />
      <itemData name="Label" defStyleNum="dsKeyword" />
      <itemData name=" <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	452	547	
==>UPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  #$new->accept_codes('VerbatimFormatted') <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	256	350	
==>UPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->accept_codes('VerbatimFormatted') <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	255	349	
==>UPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->accept_codes('VerbatimFormatted') <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188531	188800	
==>YPE" => "function",
                  "CODE" => 224,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 299 \"src/ops/cm <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	8953	9071	
==>ROR
{
  my ($self, $format, @args) = @_;
  $self->ERROR('Parse', $format, @args);
}


#
# SYNTAX_ERROR()
#

sub SYNTAX_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	414	507	
==>arnings;

use base qw( Parrot::OpTrans );

=item C<core_type()>

Returns C<PARROT_FUNCTION_COR <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	1507	1621	
==>mbol
    D - initialised data symbol
    F - file name symbol
    R - read-only data symbol
    T - code/text symbo <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37540	37638	
==>t::lastexpected = ' . ($rule->hasleftmost($self) ? 'q{}'
				: 'q{'.$self->describe.'}' ) . ';
		$P <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39943	40041	
==>t::lastexpected = ' . ($rule->hasleftmost($self) ? 'q{}'
				: 'q{'.$self->describe.'}' ) . ';
		$P <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33800	33936	
==>codes2;
        my $decl   = pop @opcodes2;
        $callop->{result} = \@return1;
        push @opcodes2, $callop;
    }
    push @ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32427	32558	
==>text') {
            # Hm, it's not numeric.  Correct for this.
            $para->[1]{'number'} = $expected_value;
            $sel <==
3	/Users/nnunley/parrot/config/auto/jit.pm	728	841	
==>set_result('skipped');
        return $self;
    }

    my $verbose = $conf->options->get('verbose');

    my $jit <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5204	5344	
==>ts $op->{result} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $first = 1;
            foreach ( @{ $op <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6236	6376	
==>ts $op->{result} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $first = 1;
            foreach ( @{ $op <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20645	20765	
==>tion' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 61
		DEFAULT => -28, <==
3	/Users/nnunley/parrot/lib/Test/More.pm	17528	17647	
==>d+)?$/ ) {
        # probably a version check.  Perl needs to see the bare number
        # for it to work with non-Expo <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1251	1356	
==>k
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
de <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2961	3066	
==>k
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
de <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427963	428218	
==>_v_pn(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428850	429105	
==>_v_pn(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	19283	19381	
==>$$textref =~ m/\G\s*/gc;
	$ld1pos = pos($$textref);
	$str1pos = $ld1pos+1;

	unless ($$textref =~ m <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	39038	39132	
==>to match a closing
tag causes C<extract_tagged> to immediately fail.

However, if the string va <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11305	11395	
==>epth
${DEST0} = concat ${STEMP0}
pre_call_NO_RETURN_${CURIC}:

# Finished.
goto PRE_CALL_EN <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8491	8581	
==>epth
${DEST0} = concat ${STEMP0}
pre_call_NO_RETURN_${CURIC}:

# Finished.
goto PRE_CALL_EN <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799545	799776	
==>" => [
                              "p",
                              "kc",
                              "nc"
                            ],
                  "BODY" => "#line 462 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_num <==
3	/Users/nnunley/parrot/languages/urm/urm-old.pl	975	1093	
==>t;}
    print "($pos";
    foreach my $reg (sort keys %register) {
	print ", " . $register{$reg} ;
    }
    print ") \ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12370	12516	
==>bal variable
                my $global = get_global($parser);
                push @opcodes, @{ $global->[1] };
                my $key = Build <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314867	315059	
==>eption(1, \"Overflow exception for conv_i1_ovf\");\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1293	1406	
==>e "parrot/parrot.h"

/* proto is in embed.h, but we don't include anything here, which
 * could pull in some globa <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	850	959	
==>kind eq 'unless') {
    $left  = $self->left->compile($compiler);
    $op    = $self->op;
    $right = $self-> <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41810	41928	
==>f->describe
						  . ']>>},
						  Parse::RecDescent::_tracefirst($text),
						  q{' . $rule->{"name"} .'})
							i <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38119	38229	
==>f->describe . ']>>},
						  Parse::RecDescent::_tracefirst($text),
						  q{' . $rule->{"name"} .'})
							i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	1827	1928	
==>?:\\\'|(?!\').)*\'))(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, 'literal', ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61912	62019	
==>rc/ops/core.ops\"\n  PARROT_ERRORS_on(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62556	62663	
==>rc/ops/core.ops\"\n  PARROT_ERRORS_on(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	240	328	
==>D2HTML;

=head1 DESCRIPTION

C<Parrot::Docs::POD2HTML> subclasses C<Pod::Simple::HTML> to <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	174653	174949	
==>e_num",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	212624	212920	
==>e_num",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4640	4739	
==>stination is the first
    # argument, given as --destination=DIRECTORY
    shift(@pmcs) =~ /--desti <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4744	4843	
==>stination is the first
    # argument, given as --destination=DIRECTORY
    shift(@pmcs) =~ /--desti <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2999	3097	
==>$self, $val1, $val2, $dest) = @_;
    $self->output_test('<=', $val1, $val2, $dest);
}

sub output_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121477	121762	
==>" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122388	122673	
==>" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	18266	18373	
==>_tracefirst($_[1]),
					  q{' . $rule ->{name}. '})
						if defined $::RD_TRACE;').'
		my $thisprod = $thi <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	5938	6048	
==>body() to perform the actual substitutions.
sub _substitute
{
    my $self = shift;
    local $_ = shift;
    m <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	759	868	
==>token =~ /^[a-z]/) { # Question marks can follow an identifier
      $token .= $ch;
    } elsif($ch eq '!' and <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	594	688	
==>~ s/_/ /g;
	if (!$Parse::RecDescent::unexpected
	    || $Parse::RecDescent::unexpected =~ /\A\s <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	9618	9723	
==>RR];
		feedme();
		feedme();
	}
	if ($syms[CURR] eq "using") {
		print "WARNING: PRINT USING not yet suppo <==
3	/Users/nnunley/parrot/lib/Test/More.pm	37374	37464	
==>=head1 COPYRIGHT

Copyright 2001, 2002, 2004 by Michael G Schwern E<lt>schwern@pobox.comE<g <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	6334	6424	
==>=head1 COPYRIGHT

Copyright 2001, 2002, 2004 by Michael G Schwern E<lt>schwern@pobox.comE<g <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79033	79133	
==>: PMC_data({{\@2}}), name);\n  string_cstring_free(name);\n  if (p == NULL) {\n      const char * con <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80554	80654	
==>: PMC_data({{\@2}}), name);\n  string_cstring_free(name);\n  if (p == NULL) {\n      const char * con <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	14634	14775	
==>tinue block allowed.");
        }
      }

      #
      # 'if' blocks:
      #
      # Continuation of 'if' blocks happens by $continue being <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106246	1106333	
==>(typ < 1 || typ >= interpreter->n_vtable_max)\n\treal_exception(interpreter, NULL, E_Val <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107222	1107309	
==>(typ < 1 || typ >= interpreter->n_vtable_max)\n\treal_exception(interpreter, NULL, E_Val <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	6495	6588	
==>' => sub { &{$opsubs{"="}}(@_[0..2], "ne") },
	'<' => sub { &{$opsubs{"="}}(@_[0..2], "lt") }, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3598	3691	
==>ring and
          $string =~ m/(^|^.*?[^\\])\$((([A-Za-z][A-Za-z0-9_]*)\b)|({[A-Za-z][A-Za-z0 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1986	2077	
==>ring and
        $string =~ m/(^|^.*?[^\\])\$((([A-Za-z][A-Za-z0-9_]*)\b)|({[A-Za-z][A-Za-z0 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36967	37111	
==>85,
			'OR' => 84,
			"]" => 175,
			">" => 86
		}
	},
	{#State 143
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			" <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10617	10728	
==>n =~ tr/ /_/;
        $section =~ tr/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
        $section = $self->unicode_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4002	4105	
==>n =~ tr/ /_/;
    $section =~ tr/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
    $section = $self->unicode_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557226	557347	
==>RROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLAGS" => ":object_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558609	558730	
==>RROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLAGS" => ":object_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559993	560114	
==>RROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLAGS" => ":object_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	99970	100343	
==>ase_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 124,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "B <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	5554	5670	
==>t') && $gccversion) {

        # make the compiler act as ANSIish as possible, and avoid enabling
        # support f <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28898	28992	
==>meth};
    return $self->{methods}[$n]{'loc'} ne 'nci';
}


=item C<implements_vtable($method)> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442303	442605	
==>",
                  "CODE" => 506,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "nc"
                            ],
                  "BODY" => "#line 109 \"src/ops/math.ops\"\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	2790	2912	
==>output[1][0] && $output[-1][1] eq q{} ) {
        pop @output;
    }

    # Compose the return string - skip any
    # adja <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	29432	29529	
==>g arg\n";
		}
	}
	push @{$code{$t}->{code}}, "\t.return $seg\n";
	$seg="_basicmain";
	$funcname="" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443633	443774	
==>ispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444648	444789	
==>ispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19869	19984	
==>p @{$opcodes};
    my $decl = pop @{$opcodes};
    delete $call->{result};
    push @{$opcodes}, $call;
    retu <==
3	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	913	1059	
==>nput .= $_;
         }
         chomp($input);
         die "EOF during INPUT section" if ! defined($output);

         # Gather output
         wh <==
3	/Users/nnunley/parrot/languages/regex/test.pl	2799	2920	
==>nput .= $_;
    }
    chomp($input);
    die "EOF during INPUT section" if ! defined($output);

    # Gather output
    wh <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4753	4869	
==>C<$opt> is a hash reference.

=cut

sub new {
    my $this = shift;
    my $self = shift;

    my $class = ref($this) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494367	494634	
==>1}} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495235	495502	
==>1}} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496103	496370	
==>1}} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21873	22015	
==>\n";
        next;
      }
      
      unless($content =~ m/^\S+$/) {  # i.e., unless it's one word
        $self->whine(
          $para->[1] <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11732	11861	
==>s;
}

sub op {
    Regex::Ops::Tree->op(@_);
}

$::paren = 0;



sub new {
        my($class)=shift;
        ref($class)
    and $ <==
3	/Users/nnunley/parrot/examples/benchmarks/vpm.pl	13	113	
==>m by Thomas Klausner posted on Vienna-PM list
#
use strict;

my $big;
my $string="just another perl h <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14087	14184	
==>inst ('', 'set', [$return,1]);
    $self->_add_inst ('', 'branch', ["DONE_$label"]);
    $self->_a <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16357	16450	
==>inst ('', 'set', [$return,1]);
  $self->_add_inst ('', 'branch', ["DONE_$label"]);
  $self->_a <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	16589	16678	
==>1, CASE_${jump}_${incase}_NO_OP
	push P9, "or"
	push P9, "OP"
CASE_${jump}_${incase}_NO_OP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293348	293485	
==>"s"
                            ],
                  "BODY" => "#line 945 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294224	294361	
==>"s"
                            ],
                  "BODY" => "#line 945 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439464	439600	
==>"
                            ],
                  "BODY" => "#line 104 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440479	440615	
==>"
                            ],
                  "BODY" => "#line 104 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	2153	2249	
==>ce the superclass is determined, it is processed and its method names
are extracted and saved.

N <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	17689	17802	
==>nclude, $file);
        if ($existing && -e $existing && dump_is_newer($existing)) {
            if ($file =~ /def <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2233	2321	
==>MMAND";
cvs -z3 -d :pserver:anonymous:\@tcl.cvs.sourceforge.net:/cvsroot/tcl co -d $DIR t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895852	896144	
==>=> [
                              "s",
                              "s",
                              "ic",
                              "ic",
                              "sc"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = strin <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9960	10057	
==>dule, like Pugs, is a work in progress. As new features are
added to Pugs, new test functions will <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1479	1604	
==>$check,$dotpos);
    my($self)={ ERROR => \&_Error,
				ERRST => \$errst,
                NBERR => \$nberr,
				TOKEN => \ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1429	1550	
==>$check,$dotpos);
    my($self)={ ERROR => \&_Error,
				ERRST => \$errst,
                NBERR => \$nberr,
				TOKEN => \ <==
3	/Users/nnunley/parrot/languages/APL/t/APL.pm	1559	1691	
==>mp $output;  # XXX Keep hackin' it up!
    }

    my $todo   = $block->todo;
    if (defined($todo)) {
      if (! $todo) {
        $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	13126	13250	
==>-;) {  # read those many lines at a time
      local $/ = $NL;
      push @lines, scalar(<$source>);  # readline
      last u <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7795	7888	
==>NK:	if (($type[CURR] eq "STMT" or $type[CURR] eq "COMM" or $type[CURR] eq "STMT") and $singlei <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	5828	5965	
==>s{$function} = [ $asm , $extern ];
            $function = undef;
        }
        unless ($jit_cpu) {
            $line =~ s/emitm_pushl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048415	1048669	
==>xt);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049339	1049593	
==>xt);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	6094	6299	
==>lse {
                    $has_push = 1;
                }
            } else {
                die "Invalid value for push in rule $rule->{'name'}\n";
            }
        }

        # pop
        elsif ( <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2692	2793	
==>$offset)>

Returns the C code for C<restart OFFSET($offset)>.

=cut

sub restart_offset
{
    my ($sel <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4027	4128	
==>$offset)>

Returns the C code for C<restart OFFSET($offset)>.

=cut

sub restart_offset
{
    my ($sel <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3725	3826	
==>$offset)>

Returns the C code for C<restart OFFSET($offset)>.

=cut

sub restart_offset
{
    my ($sel <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28667	28769	
==>($self->{"lookahead"} ? '$text = $_savetext;' : '' ) .'
';

	return $code;
}

1;

package Parse::RecDes <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30745	30847	
==>($self->{"lookahead"} ? '$text = $_savetext;' : '' ) .'
';

	return $code;
}

1;

package Parse::RecDes <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32948	33050	
==>($self->{"lookahead"} ? '$text = $_savetext;' : '' ) .'
';

	return $code;
}

1;

package Parse::RecDes <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	21011	21186	
==>2_todo{$_}};
            @rules = sort { 
                $a->{'code'} =~ /^(\w{2})/;
                my $x = $1;
                $b->{'code'} =~ /^(\w{2})/;
                he <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8998	9108	
==><rx_tmp>; # nope, set pos := popped index");
}

sub output_popint {
    my ($self, $reg, $db_desc) = @_;
    $r <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9305	9414	
==><rx_tmp> # nope, set pos := popped index");
}

sub output_popint {
    my ($self, $reg, $db_desc) = @_;
    $r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	508470	508726	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511125	511381	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511863	512119	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1123	1217	
==>g-double  -I /opt/local/include   -g -Wall -Wstrict-prototypes -Wmissing-prototypes -Winline -W <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1181	1275	
==>g-double  -I /opt/local/include   -g -Wall -Wstrict-prototypes -Wmissing-prototypes -Winline -W <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1185	1279	
==>g-double  -I /opt/local/include   -g -Wall -Wstrict-prototypes -Wmissing-prototypes -Winline -W <==
3	/Users/nnunley/parrot/config/inter/lex.pm	791	893	
==>s we don't have flex... default to not having flex
    $conf->data->set(flex_version => undef);

    un <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658317	658571	
==>fined_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659236	659490	
==>fined_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27929	28031	
==>int, int);
EOC
    $self->{hdecls} .= $hout;
    $self->{hdecls};
}

=item C<gen_h($out_name)>

Generat <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	32456	32562	
==>le.  5.005_03 and 5.6.1 both do the wrong thing
    # with it.  Instead, we use caller.  This also means it <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015014	1015108	
==>\n  const char * const tmp = strerror({{\@2}});\n  {{\@1}} = string_make(interpreter, tmp, strl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015838	1015932	
==>\n  const char * const tmp = strerror({{\@2}});\n  {{\@1}} = string_make(interpreter, tmp, strl <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	5270	5412	
==>=> $pmc_list,
        pmc_names            => join(" ", @names),
        TEMP_pmc_o           => $TEMP_pmc_o,
        TEMP_pmc_build       => $ <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	126	219	
==>sting routines here...

This is currently alarmingly similar to the generated subs in Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	224	317	
==>sting routines here...

This is currently alarmingly similar to the generated subs in Parrot:: <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1797	1888	
==>gs very cautiously:
    $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abc <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1900	1991	
==>gs very cautiously:
    $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abc <==
3	/Users/nnunley/parrot/config/init/miniparrot.pm	1796	1927	
==>tomic_t    => undef,
        has_sigaction      => undef,
        has_setitimer      => undef,

        # we can't guarantee anythin <==
3	/Users/nnunley/parrot/examples/benchmarks/primes.pl	752	850	
==>1 <= $i2) {goto REDO;}
  print $i6, "\nlast is: $i7\n";

=head1 SEE ALSO

F<examples/benchmarks/pri <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	353	450	
==>] }
sub tag { shift->tagname(@_) }

sub is_tagname { $_[0][1] eq $_[1] }
sub is_tag { shift->is_ta <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15288	15389	
==>>{'text_token_class'}->new(@_);
  return;
}

sub _handle_element_end {
  my $self = shift;   # leaving <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	371446	371546	
==>annot read line from empty filehandle\");\n    io = PMC_data(pio);\n    if (!io)\n\treal_exception(in <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	3724	3820	
==>lf->{text}})
			 + 1;

	$parser->{offsetlinenum} += $parser->{lastlinenum} - $apparently;
	return <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16513	16607	
==>an redistribute it and/or modify it
under the same terms as Perl itself.

See http://www.perl.c <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1727	1821	
==>an redistribute it and/or modify it
under the same terms as Perl itself.

See http://www.perl.c <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	49309	49441	
==>shScope( $_[0] );
        }
	],
	[#Rule 29
		 'stat', 5,
sub
#line 176 "Lua\lua51.yp"
{
            my $var = BuildLocalVaria <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4117	4222	
==>and_libs(@pmcs);

    # Convert lib-GROUP.so + A.so + B.so ... -> GROUP.so
    while (my ($group, $pmcs) = <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4221	4326	
==>and_libs(@pmcs);

    # Convert lib-GROUP.so + A.so + B.so ... -> GROUP.so
    while (my ($group, $pmcs) = <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	53975	54107	
==>], $_[2], $_[3] );
        }
	],
	[#Rule 65
		 'exp', 3,
sub
#line 369 "Lua\lua51.yp"
{
            BuildRelop( $_[0], $_[1], <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	52254	52364	
==><');
					  $code })
			{
				_parse("a (conditional) reject marker", $aftererror,$line);
				$code =~ /\A\s*<r <==
3	/Users/nnunley/parrot/tools/util/pirtidy.pl	1091	1187	
==>s
no qualms about converting your script to use a maximal amount of
syntactic sugar.

Inspired by <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851157	851454	
==>FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 966,
                  "ARGS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679176	679400	
==>hift_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679955	680179	
==>hift_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	1043	1156	
==>h2>",  #  ''
  'head3' => "\n<h3>",  #  ''
  'head4' => "\n<h4>",  #  ''
  '/head1' => "</a></h1>\n",
  '/head2' = <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	24504	24613	
==>$_[1],
		"lookahead"  => $_[2],
		"commitonly" => $_[3],
		"line"       => $_[4],
	}, $class;
}

sub code($$$$ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	10222	10326	
==>nknown " . ((1 == keys %options) ? "option: " : "options: ")
    . join " ", map "[$_]", sort keys %optio <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	6982	7170	
==>.in' => 'languages/APL/Makefile',
        commentType                    => '#',
        replace_slashes                => 1,
        conditioned_lines              => 1
    );
    genfile( <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	6523	6638	
==>o)\):$/) {
		$o = $1;
	    } elsif (/ ([A-Za-z]) \.?(\w+)$/) {
		# Especially text symbols are sometimes prefixed by <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10639	10738	
==>',
'a', 'a', 'a', 'a', 'a', 'a', 'ae', 'c', 'e', 'e', 'e', 'e', 'i', 'i', 'i', 'i',
'd', 'n', 'o', ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924358	924447	
==>ODY" => "#line 342 \"src/ops/string.ops\"\n  {{\@1}} = string_make_empty(interpreter, enum <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925149	925238	
==>ODY" => "#line 342 \"src/ops/string.ops\"\n  {{\@1}} = string_make_empty(interpreter, enum <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	20738	20847	
==>textref)-1;
	}
	else
	{
		$ld2pos = $str2pos = $rd2pos = $rd1pos;
	}

	$modpos = pos $$textref;

	$$textref =~ <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	8973	9057	
==>rrect.\n(mismatch at \"$source->[$mismatch_at]\" (should be \"$end_boilerplate[$misma <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12995	13120	
==>nction' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 11
		ACTIONS => {
			" <==
3	/Users/nnunley/parrot/config/init/defaults.pm	769	887	
==>timize  => '',
        verbose   => $conf->options->get('verbose'),
        build_dir => $FindBin::Bin,

        # Comp <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	378	471	
==>l the file paths within the
directory and any subdirectories recursively (see the C<files()> m <==
3	/Users/nnunley/parrot/config/auto/msvc.pm	1677	1784	
==>t('yes');

    $conf->data->set(msvcversion => $msvcversion);

    # Add Visual C++ specifics here
    if ($ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64677	64764	
==>rp *)PMC_data({{\@1}});\n  Interp_flags_SET(new_interp, PARROT_EXTERN_CODE_FLAG);\n  new <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65628	65715	
==>rp *)PMC_data({{\@1}});\n  Interp_flags_SET(new_interp, PARROT_EXTERN_CODE_FLAG);\n  new <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26139	26273	
==>nd->[0],
            'result' => $l_next,
        );
        push @opcodes, @{ $elseif->[1] };
        push @opcodes, new BranchOp( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1503	1599	
==>AL_ERROR("Undefined type!")
    unless defined $type;

  $self->INTERNAL_ERROR("Type is not a Jak <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1351	1447	
==>AL_ERROR("Undefined type!")
    unless defined $type;

  $self->INTERNAL_ERROR("Type is not a Jak <==
3	/Users/nnunley/parrot/config/init/hints/solaris.pm	3205	3358	
==>{
        my ($key, $gccversion) = @_;

        if ($gccversion) {

            # Don't know how to do this for gcc.
        } else {
            my $link <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	4204	4298	
==>f no prompt, use " ?"
	if ($type[CURR] eq "STRING") {
		$promptcode.=qq{\tprint "$syms[CURR]"\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720229	720454	
==>io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721429	721654	
==>io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Test/More.pm	27217	27350	
==>s[1]\n";

    $out =~ s/^/    /msg;
    return $out;
}


sub _type {
    my $thing = shift;

    return '' if !ref $thing;

    for my <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046873	1047189	
==>lobal",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1170,
                  "ARG <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	662	775	
==>,

    CONTENT   => [ ]
  }, $class;

  $block->push_content($self);

  return $self;
}

sub peer { return shift-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363530	363630	
==>(double){{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here * <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364433	364533	
==>(double){{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here * <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	6011	6105	
==>"${base}${suffix}_";

print SOURCE $preamble;
print SOURCE <<END_C;
#include "$include"

${defi <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	34654	34828	
==>s1, new CallOp( $parser,
        'result' => \@return2,
        'arg1'   => $iter,
        'arg2'   => \@params2,
    );
    push @opcodes1, @opcodes2;
    push @opcodes <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727527	727630	
==>0 \"src/ops/set.ops\"\n   const INTVAL temp = {{\@1}};\n   {{\@1}} = {{\@2}};\n   {{\@2}} = temp;\n   {{ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	22091	22184	
==>ing
they are "todo".  Test::Harness will interpret failures as being ok.
Should anything succe <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59919	60018	
==>$prod = new Parse::RecDescent::Production($line,0,1);
			$rule and $rule->addprod($prod)
			      or <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	59850	59983	
==>[ $_[2], $_[5] ];
        }
	],
	[#Rule 111
		 'field', 3,
sub
#line 595 "Lua\lua51.yp"
{
            [ BuildLiteral( $_[0], $ <==
3	/Users/nnunley/parrot/tools/dev/gen_class.pl	1617	1743	
==>me ($args) {\n";
	if($retval ne 'void') {
		print "        return ($retval)0;\n";
	}
	print "    }\n\n";
}

## emit file <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	9306	9411	
==>, $max_push) = (0, 0);
	foreach (@$rules) {
		if ($_->{'pop'} > $max_pop) {
			$max_pop = $_->{'pop'};
		} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21507	21657	
==>next;
    }

    #
    # Subroutine Return Statements:
    #
    #   return;
    #   return <value>;
    #

    if ($token->is_return) {
      my $bloc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009852	1009959	
==>ps/string.ops\"\n  {{\@1}} = string_compose(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010617	1010724	
==>ps/string.ops\"\n  {{\@1}} = string_compose(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	27736	27866	
==>ter");
    return ( $db_back,
                       aop('goto', [ $db_start ]),
           $db_back => $self->dbprint("<- $desc BA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723136	723284	
==>c"
                            ],
                  "BODY" => "#line 149 \"src/ops/python.ops\"\n  STRING * const s = {{\@2}};\n  PMC * const io = {{ <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	10705	10801	
==>is issued if the warning flag (B<-w>) is set.

=head2 Class Creation at Compile Time

C<Class::St <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	367	461	
==>anded to all the file paths within the
directory and any subdirectories recursively (see the C< <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319996	320219	
==>.ops\"\n  {{\@1}} = (INTVAL)((Parrot_Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320766	320989	
==>.ops\"\n  {{\@1}} = (INTVAL)((Parrot_Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	4203	4341	
==>oken;
    
    unless ( $next->type eq 'text' )
    {
        $self->unget_token($next);
        return;
    }
    
    my $text = $next->t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314843	314959	
==>else {\n    internal_exception(1, \"Overflow exception for conv_i1_ovf\");\n  }\n  {{+=2}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	53049	53140	
==>erences and/or qr// objects and/or
literal strings and/or hash references, specifying the ex <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	7441	7525	
==>define Parrot_jit_vtable_1121_op Parrot_jit_normal_op
#define Parrot_jit_vtable_1123_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	803	898	
==>. ") is not!"   if defined $type and not UNIVERSAL::isa($type, qw(Jako::Construct::Type));
  con <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	685	778	
==>. ") is not!" if defined $type and not UNIVERSAL::isa($type, qw(Jako::Construct::Type));
  con <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	60227	60319	
==>ere it occurred!)
Printing C<$@> directly produces the error message, with the offset appende <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3197	3295	
==>pmcs);
    generate_c($_) foreach (@pmcs);

    my ($group_files, $group_libs, $pmc_group, $pmc_lib <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3301	3399	
==>pmcs);
    generate_c($_) foreach (@pmcs);

    my ($group_files, $group_libs, $pmc_group, $pmc_lib <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	1088	1211	
==>$cur =~ /[#!&%]/) {
			append;
			fetch;
			if ($cur =~ /[!#]/) {
				$numtype="FLO";
			}
		}
		emit($numtype);
		goto MAIN <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	13748	13861	
==>$put_pointer_ref,
        $proto_type_ref) = @_;

    $other_decl ||= "";

    $other_decl .= join("\n    ", @{$te <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38170	38261	
==>s\"\n  opcode_t * const dest = (opcode_t *)rethrow_exception(interpreter, {{\@1}});\n  {{=de <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	1152	1264	
==>2c.pl'),
            $self->new_item('', 'tools/dev/pbc_header.pl'),
        ),
        $self->new_group('QA', '' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4322	4431	
==>";
    }
}

sub output_match {
    my ($self, $code, $failLabel) = @_;
    my $comment = Regex::Ops::Tree::isp <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4009	4118	
==>";
    }
}

sub output_match {
    my ($self, $code, $failLabel) = @_;
    my $comment = Regex::Ops::Tree::isp <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13792	13900	
==>r of lines, C<$out_name> is the name of the output file we are
generating.

=cut

sub body
{
    my ($self, $ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29575	29683	
==>r of lines, C<$out_name> is the name of the output file we are
generating.

=cut

sub body
{
    my ($self, $ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30217	30325	
==>r of lines, C<$out_name> is the name of the output file we are
generating.

=cut

sub body
{
    my ($self, $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288211	288388	
==>",
                              "i"
                            ],
                  "BODY" => "#line 935 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289067	289244	
==>",
                              "i"
                            ],
                  "BODY" => "#line 935 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	801	927	
==>elf->output_print("\"$part\"");
        }
    }
    return @ops;
}

sub render {
    my ($self, $op) = @_;

    die if ! ref $o <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2778	2877	
==>'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $o <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3452	3551	
==>'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $o <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3542	3641	
==>'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285422	285691	
==>" => "inline",
                  "CODE" => 332,
                  "ARGS" => [
                              "i",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 913 \"src/ops/cmp.ops <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	1919	2025	
==>:ISA         = qw(Regex::Ops::Tree);
@Regex::Ops::Tree::code::ISA         = qw(Regex::Ops::Tree);

# Constr <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4178	4279	
==>DE
	},
	'and' => sub {
		my($a1,$a2,$result,$op,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=f <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	3044	3138	
==>lf->new_item('', 'tools/dev/bench_op.pir'),
            $self->new_item('', 'tools/dev/parrotbe <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632572	632668	
==>interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633614	633710	
==>interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1} <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5103	5198	
==>s %cores) {
		if (needs_build($oplib . "_ops$cores{$_}.c", "$oplib.ops")) {
			run("$OPS2C $_ -- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93404	93694	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":ba <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94184	94474	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":ba <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2200	2312	
==>logo -nodefaultlib',
            libparrot_static     => 'libparrot'.$conf->data->get('a'),
            libparrot <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	2168	2273	
==>i'  => 'PARROT_ARGDIR_IN',
    'o'  => 'PARROT_ARGDIR_OUT',
    'io' => 'PARROT_ARGDIR_INOUT'
);

#
# Look <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630622	630713	
==>'%Ss' not found\", readable_name(interpreter, class));\n    {{\@1}} = pmc_new(interpreter, t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631612	631703	
==>'%Ss' not found\", readable_name(interpreter, class));\n    {{\@1}} = pmc_new(interpreter, t <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1448	1557	
==>PPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT = qq[];

# Here comes some stuff for Win32.
our $PATHQUOTE = '';
i <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1493	1602	
==>PPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT = qq[];

# Here comes some stuff for Win32.
our $PATHQUOTE = '';
i <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1497	1606	
==>PPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT = qq[];

# Here comes some stuff for Win32.
our $PATHQUOTE = '';
i <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	1628	1728	
==>" mimetype="">

  <highlighting>

    <list name="special_directives">
END

my %ops;
for my $dir (@im <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	11713	11809	
==>lf, $name) = @_;
    return split(/\n/, <<'END');
$rx_match{'!POS'} = $rx_pos;
$rx_match{'!RESULT <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	11946	12040	
==>lf, $name) = @_;
  return split(/\n/, <<'END');
$rx_match{'!POS'} = $rx_pos;
$rx_match{'!RESULT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886471	886876	
==>"ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1003,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	60199	60291	
==>d (!$prod || $prod->check_pending($line))
			  and $prod = $rule->addprod(new Parse::RecDesce <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15358	15461	
==>=12
a=g(5)+0
y=arrfunc(g())

' For loops, by two and backwards
for i = 0 to 10 step 2
	print i,
next i
p <==
3	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	680	767	
==>d1 SEE ALSO

F<examples/benchmarks/stress.pasm>, 
F<examples/benchmarks/stress.pl>, 
F<e <==
3	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	527	614	
==>d1 SEE ALSO

F<examples/benchmarks/stress.pasm>, 
F<examples/benchmarks/stress.pl>, 
F<e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90857	91166	
==>} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91711	92020	
==>} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92565	92874	
==>} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	945	1057	
==>Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block,

    DEST  => $dest,
    LEFT  = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	936	1048	
==>Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block,

    DEST  => $dest,
    LEFT  = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	825	937	
==>Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block,

    DEST  => $dest,
    LEFT  = <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	15003	15159	
==>{mmds};
                if ($super_mmd && scalar @{ $super_mmd }) {
                    ##print "** @{ $super_mmd } **\n";
                    push @{ $self- <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	19816	19941	
==>atch one
    # byte at a time.
    foreach (@rules) {
        if ($_->{'code'} =~ /\w\s+\w/) {
            die "Currently unab <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	595	680	
==>::Docs::Section::Info;
use Parrot::Docs::Section::Docs;
use Parrot::Docs::Section::Exa <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48857	48974	
==>("Repeated directives cannot have
					       a maximum repetition of zero, nor can they have
					       negative com <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6843	6952	
==>d_dest = shift;
	my $pir = "";

	# If we need a destination, we simply supply the register to load
	# into her <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4781	4890	
==>d_dest = shift;
	my $pir = "";

	# If we need a destination, we simply supply the register to load
	# into her <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	525747	526041	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "asec",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4476	4593	
==>f (@{ $self->{args} } == 0) {
        delete $self->{name};
        delete $self->{args};
        return $self->op('no <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5613	5730	
==>f (@{ $self->{args} } == 0) {
        delete $self->{name};
        delete $self->{args};
        return $self->op('no <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058862	1059182	
==>i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1182,
                  "ARGS" => [
                              "p",
                              "kc",
                              "sc"
                            ],
                  "BODY" => "#line 194 \"sr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	935209	935521	
==>",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1051,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 440 <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1175	1299	
==>r->YYData->{nb_info}++;
    }
    else {
        $parser->YYData->{nb_info} = 1;
    }

    print STDOUT 'lua: ', $pars <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2924	3047	
==>ile  { return shift->{FILE};     }
sub line  { return shift->{LINE};     }


#
# compile()
#

sub compile
{
  my $self     = <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	24392	24501	
==>e};
	    print <<EOC;
	# func $name named arg $j name $arg_name val $val->[1]
EOC
	    $args[$pushed_args + $j <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14670	14816	
==>ops\"\n  opcode_t * const loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	15357	15503	
==>ops\"\n  opcode_t * const loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1 <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	12666	12785	
==>cals');
    my ($var, $val) = _get_args ($_, 0);
    push @variables, $var;
    push @values, $val;
  }

  my $let = { c <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7529	7634	
==>LOADREG}
PIR
	}

	return $pir;
}

# Pre and post store operation hooks.
sub pre_store($) {
	my $self = shi <==
3	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1210	1306	
==>OUT, "> parrot.iss" or die "Can't open parrot.iss";

print OUT qq{
; generated by tools/dev/mk_se <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1721	1820	
==>unknown variable %s.", $dest->value) unless $dest_sym;
  my $dest_type = $dest_sym->type;

  my $lef <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1679	1778	
==>unknown variable %s.", $dest->value) unless $dest_sym;
  my $dest_type = $dest_sym->type;

  my $lef <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1601	1700	
==>unknown variable %s.", $dest->value) unless $dest_sym;
  my $dest_type = $dest_sym->type;

  my $lef <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	497	606	
==>extract_tagged

				&delimited_pat
			       ) ] );

Exporter::export_ok_tags('ALL');

# PROTOTYPES

sub _matc <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3962	4062	
==>m}=$value;
	}
	for (@$mandatory) {
			exists($$outhash{$_})
		or	croak("Missing mandatory paramet <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3763	3859	
==>m}=$value;
	}
	for (@$mandatory) {
			exists($$outhash{$_})
		or	croak("Missing mandatory paramet <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	22813	22932	
==>t that simple
    # we have a tuple argumen
    my $tupl = $stack[-1];
    print <<EOC;
    # tuple $tupl->[1] n = $tupl <==
3	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	930	1029	
==>al when svn is not available).
# See docs/submissions.pod on how to recreate this file after SVN
# h <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3785	3884	
==>al when svn is not available).
# See docs/submissions.pod on how to recreate this file after SVN
# h <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113347	113622	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114085	114360	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1862	1960	
==>oclaim($test, $desc, $todo, $got, $expected, $depends);
}

## unlike

sub unlike (Str $got, Rule $e <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	11545	11663	
==>full_name .": $jit_func $extern\n";
        }
        # *) $R = $X->vtable->{vtable}(interp, $Y, $Z)
        elsif ($op <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	3123	3235	
==>= shift;
  my ($compiler) = @_;

  confess "No compiler!" unless $compiler;

  my $type  = $self->type->imcc;
  m <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41448	41536	
==>->_handle_element_end($scratch=$name);
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1016	1117	
==>"Left is not Value!" if defined $left and not UNIVERSAL::isa($left, 'Jako::Construct::Expression::Valu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1044	1145	
==>"Left is not Value!" if defined $left and not UNIVERSAL::isa($left, 'Jako::Construct::Expression::Valu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	716	817	
==>"Left is not Value!" if defined $left and not UNIVERSAL::isa($left, 'Jako::Construct::Expression::Valu <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	6617	6734	
==>NDER
	       );
}

sub revbracket($)
{
	my $brack = reverse $_[0];
	$brack =~ tr/[({</])}>/;
	return $brack;
}

my $XM <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	511	616	
==>->{'total'} . (' ' x (10 - length($_->{'total'})));
	print $_->{'percent'} . "%\n"
}

my $done = 0;
m <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19661	19757	
==>le($syms[CURR] ne "end") {
			my($name,$type);
			die "Syntax error in type $type[CURR]/$syms[CUR <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	73901	74008	
==>or(@$_); }
	}

	if (ref $_[1]) { ${$_[1]} = $text }

	$ERRORS = 0;
	return $retval;
}

sub _parserepeat($$$$ <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	9028	9135	
==>-f\b/ and return "fast";
  return "default";
}

# Rate limiting
sub limit_rate {
  # Open the DB and lock it <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253812	254099	
==>{{\@2}} ? {{\@2}} : {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254675	254962	
==>{{\@2}} ? {{\@2}} : {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255538	255825	
==>{{\@2}} ? {{\@2}} : {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	1360	1460	
==>t "};\n";

print << "EOF";

int
PackFile_check_fingerprint (void *cursor)
{
    return memcmp (cursor <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1741	1840	
==>ber'}. "  }
sub start_item_text   { $_[0]{'Thispara'} = ''   }

sub start_over_bullet  { ++$_[0]{'In <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1309	1408	
==>ber'}. "  }
sub start_item_text   { $_[0]{'Thispara'} = ''   }

sub start_over_bullet  { ++$_[0]{'In <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	18067	18228	
==>hift;
    }
    elsif (@_ == 3)
    {
        $self->{VERSION} = join('.', @_);
    }
    elsif (@_ == 0)
    {
        if (wantarray)
        {
            retur <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2653	2759	
==>_Verbatim  {
  my $self = shift;
  if(Pod::Simple::ASCII) {
    $self->{'Thispara'} =~ tr{\xA0}{ };
    $se <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	9065	9168	
==>SYNTAX_ERROR
{
  my ($self, $format, @args) = @_;
  $self->ERROR('Syntax', $format, @args);
}


#
# INTE <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	20342	20461	
==>des, @{ $expr->[1] };
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcode <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	2447	2557	
==>y @dir2 = split(/,/, $dir2);
    my (%dir1, %dir2);
    @dir1{@dir1} = (1) x scalar @dir1;
    @dir2{@dir2} = ( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	8050	8174	
==>";
            }
            $str .= $_->{code}{name} . " " . join(", ", map { ref($_) ? $_->{label} : $_ } @{ $_->{code}{arg <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	14978	15092	
==>t;
    my ($rule, $tree) = @{ $op->{args} };
    return [ annotated($op, "rule($rule)"),
             $tree->reftre <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	2220	2329	
==>g {
  my ($node, $num) = @_;
  $node->{children}->[$num];
}

sub _get_args {
  my ($node, $num) = @_;
  $num = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	923859	924134	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924649	924924	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41279	41398	
==>tem, '
			     . ($::RD_NO_HITEM ? ''
				: '$item{'.$self->{hashname}.'}=')
			     . '$1; } if defined $1;' : "" ) . ' <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7708	7883	
==>@sempar =       $$dotpos
                        ?   map { $$_[1] } @$stack[ -$$dotpos .. -1 ]
                        :   ();

            $semval = $code ? &$code( $self, <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7357	7528	
==>@sempar =       $$dotpos
                        ?   map { $$_[1] } @$stack[ -$$dotpos .. -1 ]
                        :   ();

            $semval = $code ? &$code( $self, <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	9279	9383	
==>AKEFILE "\tperldoc -u ..${slash}ops${slash}$ops > ops${slash}$pod\n";
                print MAKEFILE "\t\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	68019	68206	
==>,
                  "ARGDIRS" => [],
                  "TYPE" => "function",
                  "CODE" => 89,
                  "ARGS" => [],
                  "BODY" => "#line 1049 \"src/o <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3096	3206	
==>(%ld)",
    'k'  => "PREG(%ld)",
    'ki' => "IREG(%ld)",

    'ic' => "cur_opcode[%ld]",
    'nc' => "CONST(%l <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2011	2117	
==>(%ld)",
  'k'   => "PREG(%ld)",
  'ki'  => "IREG(%ld)",

  'ic'  => "cur_opcode[%ld]",
  'nc'  => "CONST(%l <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164772	164904	
==>ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165701	165833	
==>ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166630	166762	
==>ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567534	567787	
==>{\@2}}->vtable->does(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568429	568682	
==>{\@2}}->vtable->does(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/config/auto/gc.pm	739	834	
==>rrot::Configure::Step ':auto';

$description = 'Determining what allocator to use';

# valid lib <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	3198	3309	
==>src =~ /{{=(.*?)}}/g){
	    my $offset = $1;
	    $is_branch = 1;
	}
	# relative branch
	while($src =~ /{{(\-|\+ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	21645	21752	
==>b
#line 155 "lib/Regex/Grammar.y"
{ return { min => $_[2], max => $_[2] }; }
	],
	[#Rule 32
		 'range', 5,
s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961145	961477	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962107	962439	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963069	963401	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299448	299621	
==>n",
                              "n"
                            ],
                  "BODY" => "#line 975 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3625	3718	
==>ray,$outhash)=@_;
	my($prm,$value);
	my($prmlst)={};

	while(($prm,$value)=splice(@$inarra <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3437	3526	
==>ray,$outhash)=@_;
	my($prm,$value);
	my($prmlst)={};

	while(($prm,$value)=splice(@$inarra <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	9127	9234	
==>some codes
  my $this = shift;
  
  foreach my $new_code (@_) {
    next unless defined $new_code and length <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704	786	
==>n\n\n\n/*\n** cmp.ops\n*/\n\n\n\n/*\n** debug.ops\n*/\n\n\n\n/*\n** dotgnu.ops\n*/\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576412	576503	
==>src/ops/object.ops\"\n  PMC *name;\n  name = pmc_new(interpreter, enum_class_String);\n  VTA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577424	577515	
==>src/ops/object.ops\"\n  PMC *name;\n  name = pmc_new(interpreter, enum_class_String);\n  VTA <==
3	/Users/nnunley/parrot/tools/docs/write_docs.pl	119	212	
==>23:20.183054Z coke  $

=head1 NAME

tools/docs/write_docs.pl - Write HTML documentation

=head <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147275	147365	
==>p.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148216	148306	
==>p.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	47340	47472	
==>( $_[0] );
        }
	],
	[#Rule 16
		 'stat', 5,
sub
#line 116 "Lua\lua51.yp"
{
            BuildRepeat( $_[0], $_[3], $_[5] <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	3700	3803	
==>elf->name;
    my @arg_types = $self->arg_types;

    $name .=  "_" . join("_", @arg_types) if @arg_type <==
3	/Users/nnunley/parrot/config/gen/icu.pm	469	564	
==>);

$description = "Determining whether ICU is installed";

@args = qw(verbose icushared icuhead <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19700	19802	
==>e);
		}
		else
		{
			$code .= $parser->{_AUTOTREE}{NODE}->code($namespace,$rule);
		}
		Parse::RecDesc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820038	820324	
==>rytype",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 929,
                  "A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819079	819342	
==>rytype",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 92 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9516	9624	
==>, $len) = @_;
    return ("$dest = substr($src, $offset, $len);");
}

sub output_length {
    my ($self, $des <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	3338	3460	
==>e {
    my($path) = @_;
    my $info = {};
    $info->{path} = $path;
    my $text = `cat $info->{path}`;
    my($top) = $t <==
3	/Users/nnunley/parrot/config/auto/memalign.pm	1714	1833	
==>osix_memalign'
        : $test  ? 'memalign'
        : '';
    $conf->data->set(memalign => $f);
    print($test ? " (Ye <==
3	/Users/nnunley/parrot/lib/Test/More.pm	2108	2210	
==>_ok($object, $class);

  pass($test_name);
  fail($test_name);

  # UNIMPLEMENTED!!!
  my @status = Tes <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22597	22698	
==>emp_0,1,"DONE_$label"]);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("D <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787963	788057	
==>"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788873	788967	
==>"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	3281	3384	
==>ptions{arguments} ||= \@ARGV;

    exit unless my @files = get_files( %options );

    set_flags( %optio <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	19724	19817	
==>ailed.

Defaults to 1.

Setting $Test::Builder::Level overrides.  This is typically useful
loc <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1300	1391	
==>amath.pbc"
#  load_bytecode "languages/lua/lib/luaio.pbc"
#  load_bytecode "languages/lua/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296882	297058	
==>",
                              "i"
                            ],
                  "BODY" => "#line 970 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 0 : 1;\n  {{+= <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	5338	5438	
==>warn "$ME: the native nm cannot tell apart const data sections\n";
}

if ($Version) {
    show_versio <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	5950	6064	
==>ough reachable
	push @Q, $stmt if $stmt;
    }

    # Eliminate unreachable code
    my @output3; # Really should d <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653567	653676	
==>Method '%s' not found\", string_to_cstring(interpreter, {{\@3}}));\n    {{=resume}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654728	654837	
==>Method '%s' not found\", string_to_cstring(interpreter, {{\@3}}));\n    {{=resume}};\n",
                  "LA <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	5609	5715	
==>expect "Ok"
dim s(1)
goto 10
INPUT S(0, 1), S(0, 2), S(0, 3), S(0, 4)
10 print "Ok"
end

' Odd bug in stati <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	22503	22602	
==>f) = @bits = $func->($$textref) }
				elsif (ref($func) eq 'Text::Balanced::Extractor')
					{ @bits <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	212166	212255	
==>DY" => "#line 416 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488848	489132	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	489601	489885	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450414	450678	
==>E" => "n_abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429457	429726	
==>ine",
                  "CODE" => 493,
                  "ARGS" => [
                              "ic",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 74 \"src/ops/math.ops\"\n  mmd <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4896	5016	
==>/Dumper.pir"
            load_bytecode "PGE/Text.pir"
            load_bytecode "PGE/Util.pir"
            p6rule_compile <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	1247	1364	
==>s','tcl');
    } elsif ($dir_count == 1) {
      $path_to_tcl = 'tcl';
    } elsif ($dir_count == 2) {
      $path_to_ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	7129	7234	
==>>

  is  ( $this, $that, $test_name );
  isnt( $this, $that, $test_name );

Similar to ok(), is() and isnt <==
3	/Users/nnunley/parrot/lib/Test/More.pm	36257	36356	
==>pt tiny, special cases and
magic side-effects are kept to a minimum.  WYSIWYG.


=head1 SEE ALSO

L< <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3568	3667	
==>localtime() ), "\n";
print $SKIP <<'END_HEADER';
#
# This file should contain a transcript of the sv <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	709999	710272	
==>>mro;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_ <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	5025	5146	
==>>.

=cut

sub files
{
    my $self = shift;
    my $recursive = shift;
    my $ignore = shift;
    my @files = map {$self- <==
3	/Users/nnunley/parrot/config/init/defaults.pm	4965	5080	
==>',
        chmod     => '$(PERL) -MExtUtils::Command -e ExtUtils::Command::chmod',
        ar        => $Config{ar}, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	4130	4244	
==>compiler->emit("  global \"$dest_name\" = $temp_pmc");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shi <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	60498	60591	
==>to C<extract_bracketed> was not one of
C<'()[]E<lt>E<gt>{}'>.

=item  C<Did not find prefix: / <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	5199	5288	
==>lf->{POD_ERRORS});
		$checker->parse_file($self->path);
		$self->{POD_ERRORS_COUNT} = $che <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	162	295	
==>f', 'I0', 'P5'],
  ['',             'ne', 'I0', '.Undef', 'write_N_UNDEF'],
  ['',             'print', '"()"'],
  ['',             'b <==
3	/Users/nnunley/parrot/lib/Test/More.pm	4407	4568	
==>x <= $#plan ) {
        my $item = $plan[$idx];

        if( $item eq 'no_diag' ) {
            $Show_Diag = 0;
        }
        else {
            push @cleaned <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2482	2589	
==>$num, $op) = @_;

    die "Unrecognized type '$type' for num '$num' in opcode @{[$op->full_name]}"
        u <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43221	43483	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pushmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43864	44126	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pushmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inl <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21074	21179	
==>_p {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant( <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21516	21621	
==>_p {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant( <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21901	22006	
==>_p {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441493	441629	
==>"
                            ],
                  "BODY" => "#line 109 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442508	442644	
==>"
                            ],
                  "BODY" => "#line 109 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, <==
3	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	1431	1553	
==>',' substitution_len name substitution 
                  { [ @item[5,1,6] ] }       

# TODO: What does this means???
flag <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936929	937098	
==>s",
                              "sc"
                            ],
                  "BODY" => "#line 455 \"src/ops/string.ops\"\n  {{\@1}} = string_titlecase(interpre <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	55796	55893	
==>empty list or an undefined value (in the case of a subroutine extractor), it is
assumed to have fa <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	2506	2623	
==>t');
    } else {
        $conf->data->set(float4_t => 'double');
        print <<'END';

Can't find a float type with <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	163	274	
==>t::Lua;

use strict;

use Data::Dumper;
use File::Basename;

require Parrot::Test;

=head1 NAME

Test <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	619649	619740	
==>l_exception(interpreter, NULL, ERR_OVERFLOW,\n\t\t\t\"Integer overflow\");\n\t    }\n\t    / <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46963	47062	
==>= 0) { Interp_debug_SET(interpreter,   {{\@1}}); }\n  else         { Interp_debug_CLEAR(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47746	47845	
==>= 0) { Interp_debug_SET(interpreter,   {{\@1}}); }\n  else         { Interp_debug_CLEAR(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307174	307268	
==>line 1031 \"src/ops/cmp.ops\"\n  if (!PMC_IS_NULL({{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3 <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	10801	10924	
==>, table { margin:      15px; }
    dt    { font-weight: bold; }
    dd+dt { margin-top:  1em;  }
    .leftsep  { padding-lef <==
3	/Users/nnunley/parrot/config/auto/funcptr.pm	873	970	
==>ity to cast from void pointers to function
pointers for its JIT support.

Your compiler does not a <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	9085	9179	
==>lf->{regs} = pop @{$self->{frames}};
  $self->{scope} = $self->{scope}->{'*UP*'};

  return $re <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1475	1598	
==>lue,$check,$dotpos);
    my($self)={ ERROR => \&_Error,
				ERRST => \$errst,
                NBERR => \$nberr,
				TOKE <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1425	1544	
==>lue,$check,$dotpos);
    my($self)={ ERROR => \&_Error,
				ERRST => \$errst,
                NBERR => \$nberr,
				TOKE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574772	574914	
==>mc_new_init(interpreter, enum_class_ParrotClass, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575576	575718	
==>mc_new_init(interpreter, enum_class_ParrotClass, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/config/init/miniparrot.pm	463	560	
==>for an eventual move away
from using  Configure at all for miniparrot builds.

=cut

package init: <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12426	12516	
==>rrently only F<lib/Parrot> modules are linkable.
Returns C<undef> if the current documentat <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823855	824181	
==>> ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 933,
                  "ARGS" => [
                              "s",
                              " <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7964	8062	
==>if i then print "Should not happen (flo)"
i=55
if i then print "This is true" else print "Oops (flo <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14951	15049	
==>if i then print "Should not happen (flo)"
i=55
if i then print "This is true" else print "Oops (flo <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	29637	29732	
==>context, except (of course) that the
extracted substring is not returned.

=head2 A note about p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994254	994546	
==>=> [
                              "i",
                              "ic",
                              "sc",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1399	1506	
==>e_text {
  DEBUG and print "== \"$_[1]\"\n";
  if(length $_[1]) {
    my $text = $_[1];
    _xml_escape($tex <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	4123	4221	
==>/^| / src${slash}pmc${slash}/g;
    (my $TEMP_pmc_classes_pmc = $pmc_list)     =~ s/^| / src${slash <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397747	398196	
==>",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 461,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" = <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10489	10605	
==>DBG>						 ".\n";

		push(@$stack, [ $$states[$$stack[-1][0]]{ACTIONS}{error}, undef ]);

    }

    #never rea <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10019	10129	
==>DBG>						 ".\n";

		push(@$stack, [ $$states[$$stack[-1][0]]{ACTIONS}{error}, undef ]);

    }

    #never rea <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982921	983214	
==>GS" => [
                              "i",
                              "ic",
                              "s",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Par <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	896	995	
==>se::Yapp module for use and distribution rights)
#

package Parse::Yapp::Driver;

require 5.004 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	871	965	
==>se::Yapp module for use and distribution rights)
#

package Parse::Yapp::Driver;

require 5.004 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937307	937556	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "titlecase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TY <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	33293	33387	
==>bracketed> function takes
up to three optional scalar arguments: a string to extract from, a de <==
3	/Users/nnunley/parrot/config/inter/encoding.pm	400	491	
==>Configure::Step ':inter';

$description = 'Determining what encoding files should be compile <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9092	9207	
==>>{RESOURCES_URL}/up.gif'></a>";
    }
    elsif ( $tagname eq 'C' )
    {
        # See the note in process_code_sta <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	906	991	
==>if defined $ident and not UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value:: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	934	1019	
==>if defined $ident and not UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value:: <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	346	440	
==>[0][1] }

1;

__END__

=head1 NAME

Pod::Simple::PullParserTextToken -- text-tokens from Pod::S <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	435	526	
==>pp/Driver.pm file----------------------------------------
{
#
# Module Parse::Yapp::Drive <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	424	512	
==>pp/Driver.pm file----------------------------------------
{
#
# Module Parse::Yapp::Drive <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787511	787931	
==>DIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 889,
                  "ARGS" => [
                              "n",
                              "p",
                              "ki"
                            ],
                  "BODY" = <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	863	964	
==>ef.  This will also trigger any hints-file
    # callbacks that depend on knowing whether or not we're <==
3	/Users/nnunley/parrot/config/auto/msvc.pm	799	900	
==>ef.  This will also trigger any hints-file
    # callbacks that depend on knowing whether or not we're <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3183	3285	
==>",
    'nc' => "CONST(%ld)->u.number",
    'pc' => "CONST(%ld)->u.key",
    'sc' => "CONST(%ld)->u.stri <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2095	2194	
==>",
  'nc'  => "CONST(%ld)->u.number",
  'pc'  => "CONST(%ld)->u.key",
  'sc'  => "CONST(%ld)->u.stri <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117210	117514	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	119541	119845	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120396	120700	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	329399	329619	
==>->vtable->get_number(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	330877	331097	
==>->vtable->get_number(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Test/More.pm	30533	30672	
==>pop @Data_Stack if $ok;
            }
            elsif( $type eq 'SCALAR' ) {
                push @Data_Stack, { type => 'REF', vals => [$ <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	2688	2801	
==>int "#define _CONST_STRING_$line $n\n";
	    }
	    $this_file_seen{$str} = $line;
	    next;
	}
	my $len = length <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557885	557976	
==>h = {{\@2}};\n  interpreter->current_cont = CONTEXT(interpreter->ctx)->current_cont;\n  PObj <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559269	559360	
==>h = {{\@2}};\n  interpreter->current_cont = CONTEXT(interpreter->ctx)->current_cont;\n  PObj <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761481	761711	
==>of bound register access\");\n    REG_PMC({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762334	762564	
==>of bound register access\");\n    REG_PMC({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8498	8600	
==>ination is a register then it is up to the SRM to do the store.
	# Otherwise, there's nothing to do her <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6318	6420	
==>ination is a register then it is up to the SRM to do the store.
	# Otherwise, there's nothing to do her <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5233	5335	
==>ination is a register then it is up to the SRM to do the store.
	# Otherwise, there's nothing to do her <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557191	557332	
==>( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLAG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558574	558715	
==>( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLAG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559958	560099	
==>( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLAG <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	14397	14492	
==>ODE<<CASE_SETUP;
	goto CASE_${jump}_FIN
CASE_${jump}_${incase}:
	new P12, .PerlArray   # OR
	new <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828800	828890	
==>xception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_pmc(entr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829868	829958	
==>xception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_pmc(entr <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4791	4888	
==>unction.

=cut

sub run_core_func_start
{
    return <<END_C;
#if defined(__GNUC__) && defined(I38 <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3079	3176	
==>unction.

=cut

sub run_core_func_start
{
    return <<END_C;
#if defined(__GNUC__) && defined(I38 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	935742	936017	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "titlecase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936518	936793	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "titlecase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	306638	306791	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless_null",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307431	307584	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless_null",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30830	30920	
==>kage Parse::RecDescent::InterpLit;

sub sethashname { $_[0]->{hashname} = '__STRING' . ++$_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7292	7412	
==>xt = $self->get_token;
        next unless defined $next;
        unless( $next->type eq 'text' ) {
          $self->unge <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9537	9657	
==>xt = $self->get_token;
        next unless defined $next;
        unless( $next->type eq 'text' ) {
          $self->unge <==
3	/Users/nnunley/parrot/config/init/defaults.pm	2498	2600	
==>build shared libraries and dynamically loadable
        # modules. Often $cc on Unix-ish systems, but a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088933	1089211	
==>erpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089881	1090159	
==>erpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/config/gen/config_pm.pm	919	1041	
==>Parrot/Config.pm: $!";

    print OUT "# Generated by config/gen/config_pm.pm\n";

    my $data = $conf->data;

    while ( <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6267	6430	
==>}
                        :   undef;
        }
        else {
            $act=$$actions{DEFAULT};
#DBG>			$debug & 0x01
#DBG>		and	print STDERR "Don't need t <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5976	6133	
==>}
                        :   undef;
        }
        else {
            $act=$$actions{DEFAULT};
#DBG>			$debug & 0x01
#DBG>		and	print STDERR "Don't need t <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	33073	33178	
==>'.$UNIXCMD/s) { $cmd = $1; }"

not:

	"if ('./cmd' =~ ms) { $cmd = $1; }"
	

See L<"extract_quotelike"> fo <==
3	/Users/nnunley/parrot/config/auto/signal.pm	207	306	
==>me signal stuff.

=cut

package auto::signal;

use strict;
use vars qw($description @args);

use bas <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31470	31565	
==>the name of the output file we are
generating.

Overrides the default implementation to direct a <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40090	40185	
==>the name of the output file we are
generating.

Overrides the default implementation to direct a <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	20488	20615	
==>( "<", $file );
        while (<$fh>) {
            if (/^(?:extern\s+)?\w+\*?\s+\*?(\w+)\s*\([^)]+\)\s*;/) {
                pu <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	20821	20948	
==>( "<", $file );
        while (<$fh>) {
            if (/^(?:extern\s+)?\w+\*?\s+\*?(\w+)\s*\([^)]+\)\s*;/) {
                pu <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	16502	16611	
==>name eq 'quot' or $name eq 'apos' or $name eq 'gt';
    
      $value = hex $1 if $value =~ m/^x([a-fA-F0-9]+) <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	9768	9920	
==>g TODO r raw
	$t = 'U';
    }
    elsif (is_num($c)) {        # num
	$t = 'N';
    }
    elsif ($c =~ /^\(/) {
	$t = 'u'; # unimp
    }
    $t;
}


sub p <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1285	1393	
==>n";
  push @{ $_[0]{'_currpos'}[0] }, $_[1];
  return;
}


# A bit of evil from the black box...  please aver <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	2160	2259	
==>STRING\s*\(\w+\s*,//;

	if ($lines_seen{$line}++) {
	    die "Seen line $line before in $infile - ca <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1648	1764	
==>=> \$dotpos,
				STACK => [],
				DEBUG => 0,
				CHECK => \$check };

	_CheckParams( [], \%params, \@_, $self ) <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1592	1703	
==>=> \$dotpos,
				STACK => [],
				DEBUG => 0,
				CHECK => \$check };

	_CheckParams( [], \%params, \@_, $self ) <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	10962	11076	
==>l $Level = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # undef only matches undef and nothin <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	11380	11494	
==>l $Level = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # undef only matches undef and nothin <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	447	545	
==>ions]

=head1 DESCRIPTION

Use a detailed MANIFEST to install a set of files.

=head2 Options

=ove <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5418	5535	
==>y\n";
}

sub run {
    print join(" ", @_), "\n";

    return system(@_) == 0;
}

# XXX: ordering of libs might be cru <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5629	5746	
==>y\n";
}

sub run {
    print join(" ", @_), "\n";

    return system(@_) == 0;
}

# XXX: ordering of libs might be cru <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1486	1763	
==>O if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
print "Elaps <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	1486	1763	
==>O if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
print "Elaps <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	40446	40535	
==>ier=?'   => \&_op_bound_identifier_eq_p,
  'identifier->symbol'  => \&_op_identifier_symbo <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	7374	7478	
==>{arg1}->{symbol} $op->{op} $op->{arg2}->{symbol} goto $op->{result}->{symbol}\n";
        }
        els <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	7813	7917	
==>{arg1}->{symbol} $op->{op} $op->{arg2}->{symbol} goto $op->{result}->{symbol}\n";
        }
        els <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8224	8311	
==>.

=cut

__DATA__
FF,$a,$b,$c,$d,$_[4],7,0xd76aa478,/* 1 */
FF,$d,$a,$b,$c,$_[5],12,0xe8 <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	40242	40367	
==>_rules,
  'let-syntax'          => \&_op_let_syntax,
  'syntax'              => \&_op_syntax,
  'identifer?'          => \&_op <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	40441	40553	
==>> 3 and print "Considering this ($ell_content[0]) a man link.\n";
      } else {
        $ell->[1]{'type'}    = ' <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	1116	1212	
==>alar $_[0] =~ tr/\n//;
}

=item C<dont_edit($pmcfile)>

Returns the "DO NOT EDIT THIS FILE" warni <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528611	528703	
==>8 \"src/ops/math.ops\"\n  {{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529493	529585	
==>8 \"src/ops/math.ops\"\n  {{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	530375	530467	
==>8 \"src/ops/math.ops\"\n  {{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11790	11877	
==>= ${STYPES}[${ITEMP1}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8853	8940	
==>= ${STYPES}[${ITEMP1}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7425	7512	
==>= ${STYPES}[${ITEMP1}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557741	557839	
==>src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next = {{^+3}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559125	559223	
==>src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next = {{^+3}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560508	560606	
==>src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next = {{^+3}};\n <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2391	2596	
==>$str .= "\r",      # carriage return
                last;
            s/^\\t//
                and $str .= "\t",      # horizontal tab
                last;
            s/^\\v//
                and $ <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3905	4110	
==>$str .= "\r",      # carriage return
                last;
            s/^\\t//
                and $str .= "\t",      # horizontal tab
                last;
            s/^\\v//
                and $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	27593	27690	
==>'=back') { #////////////////////////////////////////

      # TODO: fire off </item-number> or </i <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16893	17020	
==>make it thru in X-generated comments
        #  with text in them.
        
        # Yes, stipulate the list without a range, s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10333	10444	
==>make it thru in X-generated comments
    #  with text in them.

    # Yes, stipulate the list without a range, s <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	347	442	
==>mic PMCs.

=head2 Class Methods

=over

=cut

package Parrot::Docs::Section::DynaPMCs;

use stri <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	316009	316216	
==>ine",
                  "CODE" => 369,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 82 \"src/ops/dotgnu.ops\"\n  if({{\@1}} <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	4516	4635	
==>e {\") found.");
        }
    }
}


# for now just try to catch glaring errors.  A real parser is probably
# overkill f <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	13627	13735	
==>unt++;
					}
				}
				if (@return_params) {
					push @code, sprintf ($calling_code, join(",",@return_param <==
3	/Users/nnunley/parrot/config/auto/memalign.pm	1217	1328	
==>> 'int');
    } else {
        $conf->data->set(ptrcast => 'long');
    }

    cc_gen('config/auto/memalign/test <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	10911	11011	
==>$got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `isnt (Str $got, Str $e <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	49710	49810	
==>nce:

=over 4

=item 1.

Try and match a closing delimiter bracket. If the bracket was the same
speci <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10915	11039	
==>der-0x80 Name characters that 
            #  an XML Name still can't start with.
    }
    
    Carp::croak "But you must ac <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	24220	24341	
==>sh @$paras, $para, $para;
         # We need two -- once for the next cycle where we
         #  generate errata, and then <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	62157	62264	
==>sitor($FH);
#    my $generator = new pirVisitor(\*STDOUT);
    print {$FH} $generator->{prologue};
    fo <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	17809	17903	
==>)

=back

For those to work, the Pod-processing subclass of
Pod::Simple::PullParser has to have <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	1098	1206	
==>mment giving them can be
generated later.

=cut

sub combineLabels {
    my $self = shift;
    my @names = ma <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033226	1033325	
==>CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@1}};\n    PMC * const lex_pad = Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034324	1034423	
==>CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@1}};\n    PMC * const lex_pad = Parrot <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	11398	11521	
==>artup, $self->{ctx});

    push @ops, "if (\$rx_mode) { goto " . $self->output_label_use($L_trymatch) . "} else { goto " . $ <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1238	1349	
==>Data->{nb_info} = 1;
    }

    print STDOUT 'lua: ', $parser->YYData->{srcname}, ':',
        $parser->YYDa <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	7817	7915	
==>m is free software. It is subject to the same license
as the Parrot interpreter.

=head1 LICENSE

T <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	7809	7945	
==>s of
        # things with and without maximum lengths
        my $havemax = 0;
        my @chunks = ([]);

        foreach my $kid (@{ $ <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	266	359	
==>t::Vtable> provides a collection of functions for manipulating
PMC vtables. It is used by F<to <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	629	717	
==>s UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');

  my $name = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208928	209282	
==>",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 246,
                  "ARGS" => [
                              "p",
                              "nc",
                              "ic"
                            ],
                  "BODY" => "#line 401 \" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51320	51569	
==>_RESTART",
                  "NAME" => "trace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52102	52351	
==>_RESTART",
                  "NAME" => "trace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253828	254138	
==>} : {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254691	255001	
==>} : {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255554	255863	
==>} : {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	9831	9950	
==>07, 'k',
  108, 'l',
  109, 'm',
  110, 'n',
  111, 'o',
  112, 'p',
  113, 'q',
  114, 'r',
  115, 's',
  116, 't',
  1 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	5749	5850	
==>, and therefore the previous pod para
      DEBUG > 1 and print "Noting =cut at line ${$self}{'line_co <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1914	2014	
==>eneration.
sub gen_label() {
	# This is a good place (as we call gen_label before translating
	# ever <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	2101	2331	
==>tines.
##############################################################################

# Parse rules file and build a data structure.
# ############################################
sub parse_rules($) {
    # Get filename and open t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54845	55069	
==>\"\n  {{\@1}} = interpinfo(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55605	55829	
==>\"\n  {{\@1}} = interpinfo(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	11392	11531	
==>2c.pl " .
            "to a prime number > ", $tot *1.2, "\n";
    }
    print SOURCE <<END_C;

/*
** Op lookup function:
*/

#define NUM_OP <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1800	1904	
==>(@formal_args), scalar(@args), $name)
    unless @formal_args == @args;

  for (my $i = 0; $i < @args; $i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1500	1604	
==>(@formal_args), scalar(@args), $name)
    unless @formal_args == @args;

  for (my $i = 0; $i < @args; $i <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	873	990	
==>lf->{parrot} languages/${pir_fn}" );
}
 
 

sub skip_why {
    my $self = shift;
    my ( $options ) = @_;

    return <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	2957	3070	
==>me;
    my $cout;

    $cout .= <<"EOC";
/*
 * This load function will be called to do global (once) setup
 * what <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25479	25591	
==>restore ($return);
      $return = $temp;
    }
    my $temp   = $self->_constant(0);
    $self->_add_inst('','su <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2970	3066	
==>fined $source->[0] and $source->[0] !~ /\S/);
    pop @$source while (defined $source->[-1] and $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349195	349290	
==>interpreter, NULL, path, \"+<\");\n  /* string_cstring_free(path); */\n  if(!{{\@1}}) {\n    {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350197	350292	
==>interpreter, NULL, path, \"+<\");\n  /* string_cstring_free(path); */\n  if(!{{\@1}}) {\n    {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648914	649116	
==>GS" => [
                              "i",
                              "k"
                            ],
                  "BODY" => "#line 234 \"src/ops/pmc.ops\"\n    {{\@1}} = pmc_type_p(interpret <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2295	2407	
==>eter))))";
}

sub run_core_func_start
{
    return <<END_C;
    /* at least gcc 2.95.2 miscompiles set_args - %ed <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20468	20558	
==>L<RTF::Document>,
L<RTF::Generator>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 S <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33446	33604	
==>e;  # correcting!!
          }
            
          if(@$para == 2) {
            # For the cases where we /didn't/ push to @$para
            if($paras->[0] <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	1938	2049	
==>ave  ansi-ish.  Here's an attempt at a list of nasty things we can
        # use for a given version of gcc. The <==
3	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	458	552	
==>okeserv-client v" . VERSION . " started.\n";

setup_compression() if $compression_wanted;

my % <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	13072	13175	
==>};
		feedme();
		#$_=english_func($funcname);
		#print CODE "\tgoto FUNC_EXIT_$_\n";
	} elsif ($syms[NEX <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	6523	6621	
==>ression can ever hold at a given
# point in the input string. (Return value is conservative: this w <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	108	196	
==>2001-2003, The Perl Foundation.
# $Id: /parrot/tools/dev/lib_deps.pl 19607 2006-05-30T15: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	1030	1133	
==>{FILE} : '<NO FILE>';
}

sub line
{
  my $self = shift;
  return defined $self->{LINE} ? $self->{LINE} : <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2369	2467	
==>emit_par(-1) }
sub end_Para        { $_[0]->emit_par( 0) }
sub end_item_bullet { $_[0]->emit_par( 0 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1937	2035	
==>emit_par(-1) }
sub end_Para        { $_[0]->emit_par( 0) }
sub end_item_bullet { $_[0]->emit_par( 0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1530	1676	
==>m's arguments.

=cut

sub args
{
    my $self = shift;

    if (@_)
    {
        $self->{ARGS} = [ @_ ];
    }
    else
    {
        return $self <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1139	1285	
==>m's arguments.

=cut

sub args
{
    my $self = shift;

    if (@_)
    {
        $self->{ARGS} = [ @_ ];
    }
    else
    {
        return $self <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36115	36224	
==>G0, we'll fake it out. This is needed as ret will
        # never have a method to call, thus no argument, but <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	20680	20799	
==>to (\d+)/) {
	    $targ = "pc_$1";
	}
	$cmt ="\t\t# $opcode\t $rest";
	$code_l++;
	$op = $op_map{$c};
    }
    else {
p <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	423	525	
==>$class = shift;
  my ($block, $left, $right) = @_;

  confess("Block (" . ref($block) . ") not!") unles <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	414	516	
==>$class = shift;
  my ($block, $left, $right) = @_;

  confess("Block (" . ref($block) . ") not!") unles <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8057	8156	
==>Extra arguments!" if @_;

  my $found = $self->find_symbol($name);

  return $found ? $found->type : <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1498	1586	
==>cat ${STEMP1}
${STEMP1} = "$register_num"
${STEMP0} = concat ${STEMP1}
${STACK$register_n <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3208	3296	
==>cat ${STEMP1}
${STEMP1} = "$register_num"
${STEMP0} = concat ${STEMP1}
${STACK$register_n <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	4749	4857	
==>verse, and perl does horrible mangling to them that gets in my way,
it works like this on VMS.

    0     SS$ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6211	6297	
==>ARG0} :-(
prop_type_state[${ITEMP0}] = ${STYPES}
prop_stack_depth[${ITEMP0}] = stack_de <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4149	4235	
==>ARG0} :-(
prop_type_state[${ITEMP0}] = ${STYPES}
prop_stack_depth[${ITEMP0}] = stack_de <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5893	6021	
==>oup
        my $group = $class->{flags}{group}
          or next;
        ($group) = keys %$group;
        $pmc_group{$pmc} = $gr <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6104	6232	
==>oup
        my $group = $class->{flags}{group}
          or next;
        ($group) = keys %$group;
        $pmc_group{$pmc} = $gr <==
3	/Users/nnunley/parrot/config/init/defaults.pm	2940	3043	
==>share_flags => $Config{lddlflags},

        # Flags to tell ld to build a dynamically loadable module, e <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21649	21764	
==>mp=1
LOOPY:
	if bump < -1 then goto LAST
	if bump < 1 then
		if bump = 0 then
			print "Second"
		else 
			print "Th <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	841	932	
==>e that patterns should be specified as strings
and without leading/trailing pattern delimite <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2939	3030	
==>e that patterns should be specified as strings
and without leading/trailing pattern delimite <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2544	2647	
==>int "Wrong"
if 4>=5 then print "Wrong" else print "OK"

' Exit for, count 1-3
for i=1 to 5
  if i=4 then <==
3	/Users/nnunley/parrot/config/auto/jit.pm	499	598	
==>ption = 'Determining architecture, OS and JIT capability';
our @args        = qw(jitcapable miniparr <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20789	20879	
==>t(4).first=111111
call foo()
print thing$,
print bar(5),
print lot$(2),
print narf.first,
p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126749	127091	
==>\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127884	128226	
==>\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129019	129361	
==>\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	7333	7469	
==>ame) = @$arg;

    $handler->start_element({
      Name       => 'arg',
      Attributes => {
        type => $arg_type_name,
        nam <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2351	2442	
==>($target, $pattern, $expected, $description, @todo)>

Runs the target string against the Per <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3785	3876	
==>($target, $pattern, $expected, $description, @todo)>

Runs the target string against the Per <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	8183	8322	
==>aop('setend', [ $group, '<tmp>' ] ),
                        aop('popint', [ '<tmp>', 'group start' ]),
                        aop('setstar <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	18796	18899	
==>tem C<patch_version()>

Returns the patch version number.

=cut

sub patch_version
{
    my $self = shif <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	10491	10587	
==>).'
		return undef;
	}
	if (!defined($return) && defined($score))
	{'.($::RD_NO_TRACE?'':'
		Pars <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	1134	1261	
==>p_int";
    if (exists $self->{_temps}{$name}) {
        $name .= ++$self->{_temp_int_count};
    }
    $self->{_temps}{$name} = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1358	1472	
==>compiler->emit("  global \"$ident_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1352	1466	
==>compiler->emit("  global \"$ident_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shi <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6488	6601	
==>time($target)
      or return 1;
    for my $source (@sources) {
        return 1 if modtime($source) > $target_mo <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4908	5021	
==>time($target)
      or return 1;
    for my $source (@sources) {
        return 1 if modtime($source) > $target_mo <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6699	6812	
==>time($target)
      or return 1;
    for my $source (@sources) {
        return 1 if modtime($source) > $target_mo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89351	89622	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90089	90360	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core <==
3	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1679	1780	
==>ua::opcode);

package NewOp;
use base qw(Lua::opcode);

package NewClosureOp;
use base qw(Lua::o <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	24841	24984	
==>S+)         # 2 : fallback(s)
      (?:\s+(\S+))? # 3 : element name(s)
      \s*
      $
    /xs
  ) {
    my $new_letter = $1;
    my $fallbac <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19990	20130	
==>pcodes;
}

sub BuildUnop {
    my ( $parser, $op, $expr ) = @_;
    my %type = (
        '-'   => 'number',
        '#'   => 'number', <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2890	2989	
==>preter);\ncur_opcode = pop_addr;goto *ops_addr[*(pop_addr)]";
}

my %arg_maps = (
    'op' => "cur_o <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	21955	22090	
==>t "# STACK $_->[0] $_->[1] $_->[2]\n";
    }
}


sub ret_val {
    my $a = shift;
    my %rets = (
	'id'       => 'I',
    );
    return <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	996	1083	
==>MC(cur_opcode[i])
#define SREG(i) REG_STR(cur_opcode[i])
#define CONST(i) CONTEXT(interp <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1112	1199	
==>MC(cur_opcode[i])
#define SREG(i) REG_STR(cur_opcode[i])
#define CONST(i) CONTEXT(interp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411040	411296	
==>NTVAL)PIO_send(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411933	412189	
==>NTVAL)PIO_send(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	16474	16585	
==>ef) || 0 );

	unless ($$textref =~ m/\G($pre)/gc)
	{
		_failmsg qq{Did not find prefix /$pre/ at "} .
			     su <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39381	39484	
==>elf->line_directive($line, "delegate.c");
    return <<EOC;
$l
${decl} {
    $ret_def
    STRING *meth = <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	50	153	
==>ION = '2.02';
use Pod::Simple ();
BEGIN {@ISA = ('Pod::Simple')}

use strict;

use Carp ();

BEGIN { *DE <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	49	152	
==>ION = '2.02';
use Pod::Simple ();
BEGIN {@ISA = ('Pod::Simple')}

use strict;

use Carp ();

BEGIN { *DE <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27690	27807	
==>");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end translation\n";

		# Emit code to fix up the stack typ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37239	37356	
==>");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end translation\n";

		# Emit code to fix up the stack typ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	36676	36767	
==>re,
Test::Exception and Test::Differences all use Test::Builder.

=head1 SEE ALSO

Test::Sim <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	12606	12834	
==>=> "jsr",
                  "FLAGS" => ":base_core,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13449	13677	
==>=> "jsr",
                  "FLAGS" => ":base_core,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
3	/Users/nnunley/parrot/languages/regex/test.pl	147	247	
==>onfig;
use strict;

# Running this with perl5.005 produces:
# Can't locate object method "new" via pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363527	363627	
==>", (double){{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error her <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364430	364530	
==>", (double){{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error her <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1803	1895	
==>->type;

  my $left_type;
  if (UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value::Id <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1761	1853	
==>->type;

  my $left_type;
  if (UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value::Id <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1683	1775	
==>->type;

  my $left_type;
  if (UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value::Id <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27956	28068	
==>odes, @{$block};
    my $cond = get_cond( $parser, $expr );
    push @opcodes, @{ $cond->[1] };
    push @opco <==
3	/Users/nnunley/parrot/config/auto/msvc.pm	1593	1697	
==>"$major.$minor";
    print " (yep: $msvcversion )" if $verbose;
    $self->set_result('yes');

    $conf- <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	11292	11449	
==>vascript">//<![CDATA[[
    function toggle_visibility (id) {
      var elem     = document.getElementById("details_"  + id),
          expander = document.get <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3565	3670	
==>{
        last unless defined $string and
          $string =~ m/(^|^.*?[^\\])\$((([A-Za-z][A-Za-z0-9_]*)\ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1955	2056	
==>{
      last unless defined $string and
        $string =~ m/(^|^.*?[^\\])\$((([A-Za-z][A-Za-z0-9_]*)\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934114	934387	
==>@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "downc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934889	935162	
==>@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "downc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157370	157628	
==>=> 190,
                  "ARGS" => [
                              "sc",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2} <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30361	30489	
==>e types for the need_dest set case.
        if ($need_dest) {
            my $label = "LD_VALTYPE_$name";
            $pir .= <<P <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2710	2809	
==>type for dest!")  unless defined $dest_type;
  $self->INTERNAL_ERROR("No type for left!")  unless de <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2476	2575	
==>type for dest!")  unless defined $dest_type;
  $self->INTERNAL_ERROR("No type for left!")  unless de <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2398	2497	
==>type for dest!")  unless defined $dest_type;
  $self->INTERNAL_ERROR("No type for left!")  unless de <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27682	27797	
==>{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end translation\n";

		# Emit code to fix up the <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37231	37346	
==>{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end translation\n";

		# Emit code to fix up the <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	1345	1454	
==>flags = join ' ', map { "-I$_" } @incdirs;

my %all_errors;
foreach my $file (@ARGV) {    
    next unless ($f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931858	932081	
==>.ops\"\n  {{\@1}} = string_upcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932629	932852	
==>.ops\"\n  {{\@1}} = string_upcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	18860	18952	
==>->{_check}{itempos};

		$code .= $item->code($namespace,$rule,$parser->{_check});

		$code .= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226140	226409	
==>PE" => "function",
                  "CODE" => 264,
                  "ARGS" => [
                              "p",
                              "nc",
                              "ic"
                            ],
                  "BODY" => "#line 523 \"src/ops/cm <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	689	804	
==>n an array of
their indices.

=cut

sub label_indices {
    my ($self, $op) = @_;
    my @indices;
    for my $i (0. <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	52339	52447	
==>$i = 2; $i < @$lol; ++$i) {
    if( ref($lol->[$i] || '') and UNIVERSAL::isa($lol->[$i], 'ARRAY') ) {
      _ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3628	3731	
==>pe, $num)\n";

    die "Unrecognized type '$type' for num '$num'" unless exists $arg_maps{$type};

    r <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6357	6447	
==>h_${CURIC}:
i = elements P_arg_0
POST_BRANCH_switch_${CURIC}_LOOP:
if i == 0 goto POST_BRAN <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4295	4385	
==>h_${CURIC}:
i = elements P_arg_0
POST_BRANCH_switch_${CURIC}_LOOP:
if i == 0 goto POST_BRAN <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247584	247856	
==>70 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	248448	248720	
==>70 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	249312	249584	
==>70 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	724	826	
==>$token,
    VALUE  => $token->text,
    SCOPE  => $block->scope_of_ident($token->text),
    ACCESS => $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434459	434546	
==>9 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435474	435561	
==>9 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009148	1009422	
==>@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compos <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009912	1010186	
==>@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compos <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	4207	4310	
==>}

    @{$ops->{OPS}} = sort { $a->{CODE} <=> $b->{CODE} } (@{$ops->{OPS}} );
}

# create opsfile with v <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11117	11203	
==>CURIC}
goto pre_call_NO_RETURN_${CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8303	8389	
==>CURIC}
goto pre_call_NO_RETURN_${CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5965	6051	
==>CURIC}
goto pre_call_NO_RETURN_${CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83848	84156	
==>@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84754	85062	
==>@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85660	85968	
==>@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883488	883722	
==>",
                              "s",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if ( <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	10278	10431	
==>ult}->{symbol}\n";
    }

    sub visitLexDir {
        my $self  = shift;
        my ($dir) = @_;
        my $FH    = $self->{fh};
        print { <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	2489	2585	
==>e juice, and optionally one or two teaspoons of tahini.
You can let it simmer longer, depending o <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22103	22241	
==>ump_curr_open() . ')'
        );
        DEBUG and print "Ignoring mistargetted =end $content\n";
        next;
      }
      
      unless <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22432	22570	
==>ump_curr_open() . ')'
        );
        DEBUG and print "Ignoring mistargetted =end $content\n";
        next;
      }
      
      unless <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931318	931527	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932088	932297	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	2732	2834	
==>temp = $compiler->temp_reg($return_type);
      $compiler->emit("  $temp = $ret_val");
      $ret_val = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669121	669345	
==>h_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669893	670117	
==>h_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/config/gen/platform.pm	782	891	
==>form =~ /^msys/;
    $platform = "win32" if $platform =~ /^mingw/;
    $platform =~ s/^ms//;

    if ((split(' <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	9240	9365	
==>each my $source_file (sort keys %file_line_coverage) {

        print OUT qq(
            <hr noshade>
            <a name="$s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64724	64812	
==>_interp, PARROT_EXTERN_CODE_FLAG);\n  new_interp->code = interpreter->code;\n  runops(new <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65675	65763	
==>_interp, PARROT_EXTERN_CODE_FLAG);\n  new_interp->code = interpreter->code;\n  runops(new <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	26587	26711	
==>s together.
sub rewrite_seq {
    my $self = shift;
    my $op = shift;
    my $fallback = pop;

    my @ops;
    foreach (@_ <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	14380	14481	
==>h a '#' character appended to it, this is
ignored by the TAP protocol.

= FUTURE PLANS

This module is <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9456	9554	
==>revline;
	tie $prevline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser, 1;
	':'') . ($pars <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2039	2142	
==>ft;
  my ($handler) = @_;

  if (not $self->prefix and $self->peer and $self->peer->prefix) {
    $self- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1916	2019	
==>ft;
  my ($handler) = @_;

  if (not $self->prefix and $self->peer and $self->peer->prefix) {
    $self- <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	2942	3040	
==>gs] {

where C<flags> are:

=over 4

=item C<extends PMCPARENT>

All methods not defined in PMCNAME <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	5922	6020	
==>^(SVN|icu)$');

will give you all the suffixes used in Parrot ignoring all SVN and ICU
files.

Note <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	698	794	
==>ve \'s in, which qq[] treats as escape sequences.
# Config stuff
our $CC = qq[/usr/bin/gcc-4.0 -c <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	702	798	
==>ve \'s in, which qq[] treats as escape sequences.
# Config stuff
our $CC = qq[/usr/bin/gcc-4.0 -c <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	13655	13791	
==>io.h
signal      signal.h
signbit     math.h
sin         math.h
sinf        math.h
sinh        math.h
sinhf       math.h
sinhl       math <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095158	1095244	
==>c/ops/experimental.ops\"\n  Parrot_Exec_OS_Command(interpreter, {{\@1}});\n  {{+=2}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095853	1095939	
==>c/ops/experimental.ops\"\n  Parrot_Exec_OS_Command(interpreter, {{\@1}});\n  {{+=2}};\n <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	51525	51651	
==>[0];
      my $ender_length =  pop @stack;
      if($ender_length) {
        --$ender_length;
        $x = $code . ("<" x $ende <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1185	1280	
==>my ($compiler, $block, $ident_name, $kind, $scope, $type) = @_;

  confess "No \$compiler!" unle <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	10941	11031	
==>=> 'Null Env Key Random UnManagedStruct ManagedStruct delegate CSub Compiler Exception Vers <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	337639	337890	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "getstdin",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "in <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9376	9517	
==>ry.\n";
#DBG>			++$dbgerror;
#DBG>		};

            ++$$nberror;

        };

			$$errstatus == 3	#The next token is not valid: discar <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8956	9089	
==>ry.\n";
#DBG>			++$dbgerror;
#DBG>		};

            ++$$nberror;

        };

			$$errstatus == 3	#The next token is not valid: discar <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	138	237	
==>ead1 NAME

tools/dev/nm.pl - Display symbol table information

=head1 SYNOPSIS

    % perl tools/dev <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832078	832161	
==>ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, & <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832806	832889	
==>ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, & <==
3	/Users/nnunley/parrot/languages/regex/regex.pl	247	386	
==>$_ = shift;
    if (/--no(-?)optimize/) {
        $tree_opt = 0;
        $list_opt = 0;
    } elsif (/--optimize=(.*)/) {
        my $opts = <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	47263	47368	
==>start_line) = @_;
  my $treelet = ['~Top', {'start_line' => $start_line},];
  
  $para =~ s/\s+/ /g; # col <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3638	3735	
==>ailed';
    unshift @_ => Parrot::Test::PGE::_generate_glob_for($target, $pattern);

    goto &Par <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	3557	3664	
==>olete', '',
            $self->new_item('', 'tools/dev/gen_charset_tables.pl'),
            $self->new_item( <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	29714	29818	
==>-1
FUNCDISP
		if (%functions) {
			foreach(keys %functions) {
				print FUNC qq{\teq S0, "$_", UF_}, engl <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	2415	2511	
==>$fh;
	open $fh, "< config/N2PConfig.pm.in" or die "Unable to open config/N2PConfig.pm.in\n";
	m <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2952	3066	
==>>{desc}\n";
	} else {
	    print "( $info->{path} )\n";
	    push(@no_descriptions,$info);
	}
    }
    print "\n\n <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	4457	4557	
==>n't go into infinite loop)
# This is sometimes a runtime property.
sub rewrite_multi_match {
    my ( <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	1423	1523	
==>l = File::Spec->join(File::Spec->updir() x ($dir_count - 2));
    }

    my $lang_f = Parrot::Test::p <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8101	8237	
==>lon) {
        my $prop = $self->require_ident->text;
      
        my $value;

        if ($self->skip_assign) {
          $value = Jak <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5107	5237	
==>lon) {
        my $prop = $self->require_ident->text;

        my $value;

        if ($self->skip_assign) {
          $value = Jak <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	9957	10043	
==>LIC "-//W3C//DTD XHTML 1.1//EN"
  "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6040	6164	
==>@{ $group_files{$group} }, $pmc;
        $group_libs{$group} ||= {};
        foreach my $lib ( keys %libs ) {
            $gr <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6251	6375	
==>@{ $group_files{$group} }, $pmc;
        $group_libs{$group} ||= {};
        foreach my $lib ( keys %libs ) {
            $gr <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	16710	16804	
==>mc = pmc_new(interpreter, enum_class_UnManagedStruct);
        PMC_data(temp_pmc) = (void*)$val <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31881	32005	
==>}[$n], $line, $out_name);
    }
    my $parameters = $method->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33458	33582	
==>}[$n], $line, $out_name);
    }
    my $parameters = $method->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40515	40639	
==>}[$n], $line, $out_name);
    }
    my $parameters = $method->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35883	35979	
==>will throw a warning and exit with 255.  If the test died, even after
having successfully complet <==
3	/Users/nnunley/parrot/lib/Test/More.pm	33954	34050	
==>will throw a warning and exit with 255.  If the test died, even after
having successfully complet <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877065	877263	
==>"s",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(int <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	14324	14442	
==>mespace of func
	    # but can't create namespace yet
	    my $gn = "def_arg_" . ($n-$i-1);
	    print <<EOC;
	# $gn $g <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	12900	13009	
==>oward  math.h
nexttowardf math.h
nexttowardl math.h
perror      stdio.h
pow         math.h
printf      stdio.h <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1604	1730	
==>\$token,
				VALUE => \$value,
				DOTPOS => \$dotpos,
				STACK => [],
				DEBUG => 0,
				CHECK => \$check };

	_Check <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1550	1669	
==>\$token,
				VALUE => \$value,
				DOTPOS => \$dotpos,
				STACK => [],
				DEBUG => 0,
				CHECK => \$check };

	_Check <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	13229	13324	
==>t to be tested, and those tests to knowingly
fail, we provide the `:todo(1)` named parameter for <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181990	182419	
==>[
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 217,
                  "ARGS" => [
                              "i",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 278 \"sr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948844	948933	
==>\"\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949644	949733	
==>\"\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3 <==
3	/Users/nnunley/parrot/tools/dev/gen_class.pl	453	556	
==>n on adding a new PMC to Parrot.

To see what a minimal PMC looks like, create a PMC template and comp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095151	1095237	
==>23 \"src/ops/experimental.ops\"\n  Parrot_Exec_OS_Command(interpreter, {{\@1}});\n  {{+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095846	1095932	
==>23 \"src/ops/experimental.ops\"\n  Parrot_Exec_OS_Command(interpreter, {{\@1}});\n  {{+ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9669	9818	
==>g>$desc\n"),
                );
    } else {
        return ($self-> popop . " $reg, <rx_stack> # popint");
    }
}

sub output_substr {
    my ($self <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	38877	39018	
==>nd $para->[2] eq '' )
          or $para->[1]{'~cooked'}
        ) {
          push @$para,
          @{$self->_make_treelet(
            join <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	16785	16888	
==>H
	dec I5
	gt I5, 0, CASE_${jump}_${incase}_STARTOPS
OPS
	}
	$incase++;
	print CODE<<ENDCASE;
	bsr EVALE <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8066	8198	
==>props;

      while ($self->skip_colon) {
        my $prop = $self->require_ident->text;
      
        my $value;

        if ($self <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5072	5198	
==>props;

      while ($self->skip_colon) {
        my $prop = $self->require_ident->text;

        my $value;

        if ($self <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54061	54175	
==>{ undef }',
					      $lookahead,$line,$code);
				$prod and $prod->additem($item)
				      or  _no_rule($code,$l <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7293	7472	
==>,$len): ";

                $act
            or  $self->YYAccept();

            $$dotpos=$len;

                unpack('A1',$lhs) eq '@'    #In line rule
            and d <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6957	7128	
==>,$len): ";

                $act
            or  $self->YYAccept();

            $$dotpos=$len;

                unpack('A1',$lhs) eq '@'    #In line rule
            and d <==
3	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	703	793	
==>IN

.include "stackops.pasm"
.include "alpha.pasm"
.include "dumpstack.pasm"
.include "toke <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	461	579	
==>s} && $INC{'threads.pm'}) {
        require threads::shared;

        # Hack around YET ANOTHER threads::shared bug.  I <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18168	18267	
==>op_symbol_p {
}

sub _op_symbol_string {
}

sub _op_string_symbol {
}

sub _op_number_p {
}

sub _op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18925	19013	
==>\"src/ops/core.ops\"\n  if ({{\@1}}->vtable->get_bool(interpreter, {{\@1}})) {\n    {{+={ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	31482	31732	
==>> "result_info",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 40,
                  "ARGS" => <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	2104	2217	
==>get('fdecls');
    foreach my $fdecl (@$fdecls) {
        next unless ($fdecl =~ /\n/);
        my ($firstline,$se <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	1855	1967	
==>line);
  }

  return defined $self->{POS} ? $self->{POS} : -1;
}


#
# at()
#
# Without an argument, gives the cu <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3023	3143	
==>ld)",
    'n'  => "NREG(%ld)",
    'p'  => "PREG(%ld)",
    's'  => "SREG(%ld)",
    'k'  => "PREG(%ld)",
    'ki' => "IR <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2843	2963	
==>ld)",
    'n'  => "NREG(%ld)",
    'p'  => "PREG(%ld)",
    's'  => "SREG(%ld)",
    'k'  => "PREG(%ld)",
    'ki' => "IR <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1941	2056	
==>ld)",
  'n'   => "NREG(%ld)",
  'p'   => "PREG(%ld)",
  's'   => "SREG(%ld)",
  'k'   => "PREG(%ld)",
  'ki'  => "IR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544130	544233	
==>s/math.ops\"\n INTVAL gcd = 0;\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545466	545569	
==>s/math.ops\"\n INTVAL gcd = 0;\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546802	546905	
==>s/math.ops\"\n INTVAL gcd = 0;\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2409	2512	
==>y' => 'Yacc file'
);

# These are the various types of files without suffix.

my %type_for_name = (
	'Ar <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	1292	1393	
==>a'),
        $self->new_section('Commun Lisp', 'lisp.html', '', 'languages/lisp'),
        $self->new_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4803	4901	
==>ut

sub run_core_func_start
{
    return <<END_C;
#if defined(__GNUC__) && defined(I386) /* && defi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485994	486257	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ceil",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	486632	486895	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ceil",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	487383	487646	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ceil",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17976	18090	
==>'exp' => 97,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'pr <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	26981	27091	
==>$c = new $DEFVAR
temp_$code_l:
EOC
	    }
	    print <<"EOC";
	# assign $c, $tos->[1] $cmt
	set $p, $tos->[1] $ <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	6831	6937	
==>\n", $opname, $n;
}

print OUT <<END_C;
} parrot_opcode_enums;

#endif

END_C
close OUT;


# if opcode nume <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	8522	8672	
==>k("H*", $17),
      id            => $18,
      filename      => $name,
      link          => BASEHTTPDIR . $name, 
    };
  return ();
}

sub runcore <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	982	1096	
==><new()> method.

=cut

sub new_item
{
    my $self = shift;
    
    return Parrot::Docs::Item->new(@_);
}

=item C <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37969	38079	
==>lf->{argcode} }"
				   : ', undef')
		. '))) 
		{'.($::RD_NO_TRACE?'':'
			Parse::RecDescent::_trace(q{<<Didn\ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36057	36196	
==>=> 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -71
	},
	{#State 139
		ACTIONS => {
			"-" => 72, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2694	2795	
==>= $compiler->temp_reg($formal_arg_type);
      my $value = $args[$i]->compile($compiler);
      $compi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2394	2495	
==>= $compiler->temp_reg($formal_arg_type);
      my $value = $args[$i]->compile($compiler);
      $compi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072958	1073354	
==>xperimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075143	1075539	
==>xperimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077328	1077724	
==>xperimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FL <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	546	669	
==>peer        = $self->peer;

  my $prefix;

  if ($self->prefix) {
    $prefix = $self->prefix;
  }
  else {
    $prefix = $s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	526	649	
==>peer        = $self->peer;

  my $prefix;

  if ($self->prefix) {
    $prefix = $self->prefix;
  }
  else {
    $prefix = $s <==
3	/Users/nnunley/parrot/lib/Test/More.pm	24058	24153	
==>inks), or maybe
you need an Internet connection and one isn't available.

B<If it's something th <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37964	38108	
==>ate 146
		DEFAULT => -114
	},
	{#State 147
		DEFAULT => -113
	},
	{#State 148
		ACTIONS => {
			":" => 134,
			"[" => 47,
			"(" => 48, <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	489	596	
==>, $element_name, $attr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBUG and print "++ $_[1 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	488	595	
==>, $element_name, $attr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBUG and print "++ $_[1 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	683	790	
==>, $element_name, $attr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBUG and print "++ $_[1 <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	5156	5286	
==>\$S0 \n";
        $code .= emit("a_$name = \$P%0", "r_$name");
        
        # convert the argument, if necessary
        my $co <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5811	5907	
==>$code{$seg}->{code}}, "IFBRANCH_$_:\n";
			}
			while($_=pop(@{$elsestack->{$elsetag}})) {
				pu <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8157	8250	
==>$code{$seg}->{code}}, "IFBRANCH_$_:\n";
		}
		while($_=pop(@{$elsestack->{$elsetag}})) {
			pu <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10753	10859	
==>.gcov$//g;

    my $outfile_base = $source_file; 
    $outfile_base =~ s/\//_/g;
    $outfile_base = "$HTML <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeDumb.pm	546	644	
==>urn sort keys %Supported;
}

sub encoding_is_available {
  return exists $Supported{lc $_[1]};
}

s <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	26261	26359	
==>shouldn't
have to set this.

If set forward, the details of the missing tests are filled in as 'unk <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	6235	6331	
==>55) or die "ops2pm.pl: Could not mkdir $inc_dir: $!\n";
}
open OUT, ">$inc_f" or die "Can't write <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	147	237	
==>se File::Basename;

=head1 Parrot::Test::Python

Provide language specific testing routines <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106346	1106442	
==>\t\"type number out of range\");\n    {{\@1}} = interpreter->vtables[typ]->class;\n    {{+=3}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107322	1107418	
==>\t\"type number out of range\");\n    {{\@1}} = interpreter->vtables[typ]->class;\n    {{+=3}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	639	732	
==>fine REL_PC (cur_opcode - start_code)
#define IREG(i) REG_INT(i)
#define NREG(i) REG_NUM(i)
#d <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	2088	2220	
==>/\.//g;
        next if ($ops{$op});
        print "      <item>$op</item>\n";
        $ops{$op} = 1;
    }
}

for my $op (@imcc_opli <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6262	6348	
==>op_stack_depth[${ITEMP0}] = stack_depth
goto POST_BRANCH_NOT_switch_${CURIC}

POST_BRAN <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4200	4286	
==>op_stack_depth[${ITEMP0}] = stack_depth
goto POST_BRANCH_NOT_switch_${CURIC}

POST_BRAN <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527096	527385	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527849	528138	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36105	36215	
==>have an ARG0, we'll fake it out. This is needed as ret will
        # never have a method to call, thus no argu <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	8109	8236	
==>y $show = 1;
		sub want_show {
		    my ($show, $Got, $got) = @_;
		    if (defined $Got) {
			if ($Got == $got) {
			    $$show <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	3094	3199	
==>preter, &st, *return_data);",
       3 => "set_nci_I(interpreter, &st, *return_data);",
       2 => "set_n <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	4886	4985	
==>by time we call $code_handler!

        if( $line =~ m/^#\s*line\s+(\d+)\s*(?:\s"([^"]+)")?\s*$/ ) { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115428	115722	
==>ps\"\n  {{\@1}} = {{\@2}} << {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116283	116577	
==>ps\"\n  {{\@1}} = {{\@2}} << {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117138	117432	
==>ps\"\n  {{\@1}} = {{\@2}} << {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38982	39122	
==>0
		}
	},
	{#State 157
		DEFAULT => -8
	},
	{#State 158
		ACTIONS => {
			"," => 151
		},
		DEFAULT => -36
	},
	{#State 159
		DE <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1206	1310	
==>e ${namespace}");
      $compiler->indent;
      $self->SUPER::compile($compiler);
      $compiler->outde <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	614	712	
==>e ${namespace}");
    $compiler->indent;
    $self->SUPER::compile($compiler);
    $compiler->outde <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2703	2813	
==>egister char *   _reg_base   asm ("edi");
#else
    opcode_t *cur_opcode = cur_op;
    char * _reg_base;
#endif <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3272	3382	
==>egister char *   _reg_base   asm ("edi");
#else
    opcode_t *cur_opcode = cur_op;
    char * _reg_base;
#endif <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	8213	8322	
==>low can treat everybody the
    # same.
    $command = [$command] unless (ref $command);

    if (defined $ENV <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	23126	23244	
==>cause in an ignored region\n";
        # And that may be because of this to-be-closed =for region, or some
        #  o <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10919	11027	
==>nes it.

Raises an exception if the delete fails.

=cut

sub delete
{
    # Use $_[0] so that we can undef th <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4753	4861	
==>nes it.

Raises an exception if the delete fails.

=cut

sub delete
{
    # Use $_[0] so that we can undef th <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14055	14151	
==>FAIL_$label"]);
    $self->_add_inst ('', 'set', [$return,1]);
    $self->_add_inst ('', 'branch' <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16327	16419	
==>FAIL_$label"]);
  $self->_add_inst ('', 'set', [$return,1]);
  $self->_add_inst ('', 'branch' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	2057	2160	
==>e to do stuff, but which
  you DO want debug output from...

 $debug_level = 0;

=head1 DESCRIPTION

Thi <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3147	3248	
==>%ld)",

    'ic' => "cur_opcode[%ld]",
    'nc' => "CONST(%ld)->u.number",
    'pc' => "CONST(%ld)->u. <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2060	2158	
==>%ld)",

  'ic'  => "cur_opcode[%ld]",
  'nc'  => "CONST(%ld)->u.number",
  'pc'  => "CONST(%ld)->u. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159309	159467	
==>"ic"
                            ],
                  "BODY" => "#line 176 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160206	160364	
==>"ic"
                            ],
                  "BODY" => "#line 176 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161103	161261	
==>"ic"
                            ],
                  "BODY" => "#line 176 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}} <==
3	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1105	1220	
==>l/;

print << "EOF";
/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automa <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10058	10145	
==>elements ${STYPES}
pre_call_PLOOP_${CURIC}:
if ${ITEMP0} == 0 goto PRE_CALL_PLOOP_END_${ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7572	7659	
==>elements ${STYPES}
pre_call_PLOOP_${CURIC}:
if ${ITEMP0} == 0 goto PRE_CALL_PLOOP_END_${ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	27388	27498	
==>nd print "=over found of type $list_type\n";
      
      $self->{'content_seen'} ||= 1;
      $self->_handle_e <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	3200	3305	
==>class->create;
    return $Test;
}


=item B<create>

  my $Test = Test::Builder->create;

Ok, so there ca <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	1501	1601	
==>M that the given file will be installed for, and is
only used by this script to skip files that are n <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	16836	16971	
==>emporary file
            my $test_no = $builder->current_test() + 1;

            # Name of the file with test code.
            my $co <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5934	6031	
==>ing it is unconditional, so next instruction needs to
	# have an empty stack type state propogated <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3872	3969	
==>ing it is unconditional, so next instruction needs to
	# have an empty stack type state propogated <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833533	833616	
==>ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834255	834338	
==>ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834981	835064	
==>ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, { <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	43321	43439	
==>tions=> [],
    scope    => {},
  };
  bless $self,$class;
}

sub prettyprint {
  my $node  = shift;
  my $depth = shif <==
3	/Users/nnunley/parrot/config/auto/jit.pm	678	791	
==>onf->options->get('miniparrot')) {
        $self->set_result('skipped');
        return $self;
    }

    my $verb <==
3	/Users/nnunley/parrot/config/gen/cpu.pm	590	703	
==>onf->options->get('miniparrot')) {
        $self->set_result('skipped');
        return $self;
    }

    my $verb <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088023	1088360	
==>erimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090977	1091314	
==>erimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2037	2145	
==>ble $lang_f";

    $exit_code = Parrot::Test::run_command($cmd, #CD => $self->{relpath},
					   STDOUT => $o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48641	48830	
==>EAR(interpreter, PARROT_BOUNDS_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49431	49620	
==>EAR(interpreter, PARROT_BOUNDS_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	8881	8996	
==>match');

    my @ops;
    push @ops, aop('check', [ 1, $lastback ])
      unless ($op->{nocheck});

    my @debuggi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540460	540561	
==>b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541712	541813	
==>b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542964	543065	
==>b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1198	1319	
==>b type      { return shift->{TYPE};      }
sub name      { return shift->{NAME};      }
sub props     { return %{shift->{P <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1533	1654	
==>b type      { return shift->{TYPE};      }
sub name      { return shift->{NAME};      }
sub props     { return %{shift->{P <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15310	15413	
==>t=0;
	my $type="";

	if ($opts{assign}) {
		#print STDERR "Assign\n";
		$opts{lhs}=1;
		@expr=get_expres <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415047	415247	
==>,
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416175	416375	
==>,
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpre <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	2124	2233	
==>num;
    my $scope = shift @{ $parser->YYData->{scopef} };
    $parser->YYData->{scope} = $scope;
    my $s <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	1144	1257	
==>t::Test::per_test(
            $lua_test eq 'lua' ? '.orig_out' : '.parrot_out', $count );
        my $test_prog <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	13144	13256	
==>nfo->name))
            return p->info - ${bs}op_lib.op_info_table;
    }
    return -1;
}
static void hop_init() <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	60357	60465	
==>ftererror = 0;
		}
		elsif ($grammar =~ m/$LITERAL/gco)
		{
			($code = $1) =~ s/\\\\/\\/g;
			_parse("a lite <==
3	/Users/nnunley/parrot/config/auto/jit.pm	2532	2633	
==>ame.s", "src/asmfun.s");
        $conf->data->set(asmfun_o => 'src/asmfun$(O)');
    } elsif (-e "$jit <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681959	682248	
==>"i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 765,
                  "ARGS" => [
                              "n",
                              "p"
                            ],
                  "BODY" => "#line 512 \"src/ops/pm <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036282	1036539	
==>],
                  "TYPE" => "function",
                  "CODE" => 1158,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 64 \"src/ops/va <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4495	4613	
==>b"
for i = 0 to 1
for j = 0 to 1
print i; j;
if i and j then a$="True  " else a$="False "
if i or  j then b$="True  " e <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	17146	17262	
==>ps,
         $try => $self->dbprint("matching dynalt[%<$counter>]\n"),
                 @R_ops,
		 aop('pushint', [ $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	668	768	
==>r confess "Unrecognized type '$type' (tree=$tree)";
    my $function = "convert_$stem";
    return $s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1291	1422	
==>s from a line
         [^\n\ ]{0,50}     #  and finish any current word
        )
        \x20{1,10}(?!\n)   # capture some spaces n <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1235	1366	
==>s from a line
         [^\n\ ]{0,50}     #  and finish any current word
        )
        \x20{1,10}(?!\n)   # capture some spaces n <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	16662	16766	
==>ref;
		return; 
	}
	$oppos = pos($$textref);

	my $initial = substr($$textref,$oppos,1);

	if ($initial & <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	12346	12472	
==>rint       math.h
lrintf      math.h
lrintl      math.h
lround      math.h
lroundf     math.h
lroundl     math.h
malloc      st <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2673	2774	
==>me) {
      my $temp = $compiler->temp_reg($formal_arg_type);
      my $value = $args[$i]->compile($co <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2373	2474	
==>me) {
      my $temp = $compiler->temp_reg($formal_arg_type);
      my $value = $args[$i]->compile($co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242545	242967	
==>S" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 282,
                  "ARGS" => [
                              "i",
                              "p",
                              "nc"
                            ],
                  "BODY" => "#l <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	19190	19326	
==>nc} = sub {
            my ( $language, @remaining ) = @_;

            my $meth = $language_test_map{$func};
            if ( my $prefix <==
3	/Users/nnunley/parrot/config/auto/jit.pm	3894	4028	
==>capable = 0;
            }
        }
        $execcapable = $conf->options->get('execcapable')
            if defined $conf->options->g <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	4637	4747	
==>ose setting, why?
        $self->data->set(verbose => $verbose) if $n > 2;

        print "\n", $description, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432445	432532	
==>h.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}}) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433460	433547	
==>h.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}}) <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30714	30860	
==>AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEF <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40064	40210	
==>AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEF <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41691	41837	
==>AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEF <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	3565	3675	
==>q{""};
	}
}
my $eqnum=0;
my %opsubs=(
	'+' => sub { 
		my ($a1, $a2, $result)=@_;
		if ($result=~/S/) {
			retu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755137	755221	
==>266 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_number_native(interpreter, {{\@1}}, { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755924	756008	
==>266 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_number_native(interpreter, {{\@1}}, { <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	1368	1478	
==>imiting its scope by making it file
static or function static, but see L</"Data is not an API">.

=item No Parr <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	23750	23877	
==>rp, "$does");
EOC
    }
    $cout .= <<"EOC";
        interp->vtables[entry] = vt_clone;
EOC
    $cout .= <<"EOC";
    } 
    el <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	278814	278901	
==>/ops/cmp.ops\"\n  {{\@1}} = (mmd_dispatch_i_pp(interpreter, {{\@2}}, {{\@3}}, MMD_CMP) < <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	287433	287520	
==>/ops/cmp.ops\"\n  {{\@1}} = (mmd_dispatch_i_pp(interpreter, {{\@2}}, {{\@3}}, MMD_CMP) < <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	43021	43136	
==>$i--) {
    # work backwards over the lines, except the first (#2)
    
    #next unless $p->[$i]   =~ m{^#:([ \^\/\ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10861	10959	
==>f->isa("Jako::Construct::Block");
  confess "No content!"      unless @_;
  confess "Illegal conten <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	581	740	
==>K     => $block,

    PREFIX    => $prefix,
    KIND      => 'until',
    LEFT      => $left,
    OP        => $op,
    RIGHT     => $right,

    CONTENT   => [ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	442	552	
==>'; }

sub new
{
  my $class = shift;

  confess "Expected 3 args!" unless @_ == 3;
  my ($block, $ident, $props <==
3	/Users/nnunley/parrot/lib/Test/More.pm	2903	3000	
==>g plan.  This basically declares
how many tests your script is going to run to protect against pre <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1249	1354	
==>s.
  #
  # NOTE: These are compiler internal consistency checks. They really should not be
  # triggered i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1194	1299	
==>s.
  #
  # NOTE: These are compiler internal consistency checks. They really should not be
  # triggered i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1097	1202	
==>s.
  #
  # NOTE: These are compiler internal consistency checks. They really should not be
  # triggered i <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	8718	8836	
==>gname eq 'Para' ) 
    {
        $tagname = 'Para_item' 
            if @{$self->{STACK}} and $self->{STACK}->[-1] eq ' <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	8101	8218	
==>gname eq 'Para') 
    {
        $tagname = 'Para_item' 
            if @{$self->{STACK}} and $self->{STACK}->[-1] eq ' <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	7935	8036	
==>GP' ||
	  ref($trans) eq 'Parrot::OpTrans::CSwitch')) {
        return qq{PANIC("How did you do that") <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	913	1052	
==>le to open '$lang_f'"; # JMG
        binmode LANG; # JMG
        print LANG $lang_code; # JMG
        close LANG; # JMG

        Parrot::Tes <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	825	964	
==>le to open '$lang_f'"; # JMG
        binmode LANG; # JMG
        print LANG $lang_code; # JMG
        close LANG; # JMG

        Parrot::Tes <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	6710	6810	
==>";
    $out = "$out <pos:$?CALLER::CALLER::POSITION>" if $Test::ALWAYS_CALLER;
    # message like "te <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42326	42499	
==>ops\"\n  do_exception(interpreter, EXCEPT_exit, {{\@1}});\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43016	43189	
==>ops\"\n  do_exception(interpreter, EXCEPT_exit, {{\@1}});\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	27305	27471	
==>undef 
                });
            }
        }
        # If backward, wipe history.  Its their funeral.
        elsif( $num < @$test_results ) {
            $#{$te <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563370	563648	
==>UMP" => 0,
                  "NAME" => "addmethod",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564267	564545	
==>UMP" => 0,
                  "NAME" => "addmethod",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2164	2265	
==>prefix);
  }

  if ($self->prefix) {
    $handler->start_element({ Name => 'cond', Attributes => { kin <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19816	19964	
==>paren;
          $self->require_comma;
        }
      }

      $self->require_close_paren;
      $self->require_semicolon;
     
      #
      # TOD <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44269	44401	
==>AULT => -99
	},
	{#State 200
		DEFAULT => -98
	},
	{#State 201
		ACTIONS => {
			'END' => 208
		}
	},
	{#State 202
		ACTIO <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22112	22228	
==>],
		"lookahead" => $_[2],
		"line"      => $_[3],
		"name"      => $_[4],
	}, $class;
}

sub code($$$$)
{
	my ($self <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	5404	5538	
==>_table", 0);/g;
                $asm =~ s/jit_emit_end/exec_emit_end/;
            }
            if (($cpuarch eq 'ppc') && ($genfile n <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	17954	18085	
==>es) {
        $_->{'code'} =~ /^(\w{2})/;
        $groups{$1} ||= [];
        push @{$groups{$1}}, $_;
    }

    # Go through group <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	10244	10358	
==>$op->jump || 0;
        my $arg_count  = $op->size;

    ## 0 inserted if arrays are empty to prevent msvc compiler <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	1987	2113	
==>$I100 = and $I100, $I101
    %1 = $I100
END_PIR

    $P0[unicode:"dyadic:\u2228"]  = <<"END_PIR"             # or
    $I100 = % <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	738	834	
==>ption, @todo)>

Runs the target string against the Perl 6 pattern, passing the test
if they match <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2836	2932	
==>ption, @todo)>

Runs the target string against the Perl 6 pattern, passing the test
if they match <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	3068	3234	
==>bles.h'
#
###########################################################################
my $h_file= File::Spec->catfile($charset_dir, 'tables.h');
open STDOUT, '>', $h_f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853343	853433	
==>c/ops/string.ops\"\n  {{\@1}} = string_append(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854125	854215	
==>c/ops/string.ops\"\n  {{\@1}} = string_append(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}} <==
3	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1118	1241	
==>";
        return undef;
    }

}

package UnaryOp;
use base qw(Lua::opcode);

package BinaryOp;
use base qw(Lua:: <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27351	27470	
==>mp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    my $temp = $self->_constant(1);
    $sel <==
3	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1788	1889	
==>r->output_header($PIR);

    for my $tree (@$trees) {
        $driver->output_rule($PIR, '_regex', $tr <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39996	40102	
==>t_off,

#--------------------
#
# Macros
#
#--------------------

  'let-syntax'          => \&_op_let_synt <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2444	2539	
==>let { $_[0]->emit_par( 0) }
sub end_item_number { $_[0]->emit_par( 0) }
sub end_item_text   { $_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2012	2107	
==>let { $_[0]->emit_par( 0) }
sub end_item_number { $_[0]->emit_par( 0) }
sub end_item_text   { $_ <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2096	2195	
==>c, $todo, $got, $expected, $depends, :negate);
}

## eval_ok

sub eval_ok (Str $code, Str $desc?, :$ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10949	11046	
==>\xFF])/join '', map sprintf('%%%02X',$_), unpack 'C*', $1/eg;
        $it =~ s/([^\._abcdefghijklm <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4300	4395	
==>\xFF])/join '', map sprintf('%%%02X',$_), unpack 'C*', $1/eg;
      $it =~ s/([^\._abcdefghijklm <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	604373	604648	
==>{{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367899	368172	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368691	368964	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "re <==
3	/Users/nnunley/parrot/config/auto/cgoto.pm	1906	2002	
==>S_DIR)/core_ops_cg$(O) $(OPS_DIR)/core_ops_cgp$(O)',
            TEMP_cg_r => '$(RM_F) $(INC_DIR) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033442	1033534	
==>_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    VTABLE_set_pmc_keyed_str(int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034540	1034632	
==>_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    VTABLE_set_pmc_keyed_str(int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162656	162984	
==>"i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 196,
                  "ARGS" => [
                              "nc",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 183 \"src/ops/cmp. <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	6017	6144	
==>o
#
#  check(3)
#  match(a)
#  match(b)
#  match(c)
#
# and something trickier like /ab|c[dxy]e/ compiles to
#
#          check( <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	5270	5390	
==>_;

    return '' if $self->{opt}{nolines};
    if (defined $file) {
        my $file_escaped = $file;
        $file_esca <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	8657	8774	
==>tware. It is subject to the same
license as Parrot itself.

=head1 COPYRIGHT

Copyright (C) 2001-2005, The Perl Founda <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8084	8193	
==>ined ?? $got !! "undef"));
    }
}


sub test_ends {
    return unless $Test::testing_started;
    if (!define <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	29119	29216	
==>erlpodspec:

# In parsing an L<...> code, Pod parsers must distinguish at least four
# attributes: <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35600	35701	
==>e ($) { return $_[0]->{"subrule"} }
sub isterminal { 0 }
sub sethashname { }

sub describe ($)
{
	my $ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33079	33179	
==>e ($) { return $_[0]->{"subrule"} }
sub isterminal { 0 }
sub sethashname {}

sub describe ($)
{
	my $ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	42619	42710	
==>ce
their performance is typically twice as good as the more general-purpose
C<extract_tagged <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	19849	19968	
==>est::Builder::Level = 2;
        $Test->ok($test);
    }

=cut

sub level {
    my($self, $level) = @_;

    if( defined <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	1625	1730	
==>en from an I register

=item i

Parameter is an int

Taken from an I register

=item l

Parameter is a lon <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	837	935	
==>{
	die "pre_op not implemented for current stack to register mapper\n";
}
sub post_op {
	die "post_ <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	4046	4154	
==>ions for the elements in the referenced
vtable array.

=cut

sub vtbl_macros {
    my $vtable = shift;

    m <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2386	2493	
==>$register_num++;
	}

	# Do code for each push.
	$pir .= "\${ITEMP0} = 0\n";
	for (1..$pushes) {
		$pir .= << <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1738	1845	
==>$register_num++;
	}

	# Do code for each push.
	$pir .= "\${ITEMP0} = 0\n";
	for (1..$pushes) {
		$pir .= << <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	32761	32901	
==>es3, new AssignOp( $parser,
            'result' => $state,
            'arg1'   => $expr->[0],
        );
        $expr = shift @{$exprs <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	10176	10296	
==>L"   => "I",
  "float"    => "f",
  "FLOATVAL" => "N",
  "double"   => "d",
  "STRING*"  => "S",
  "char*"    => "t",
  " <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	47332	47434	
==>--------

sub _out {
  # For use in testing: Class->_out($source)
  #  returns the transformation of $s <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2639	2751	
==>)=shift;

	${$$self{ERRST}} != 0;
}

sub YYAbort {
	my($self)=shift;

	${$$self{CHECK}}='ABORT';
    und <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2523	2626	
==>)=shift;

	${$$self{ERRST}} != 0;
}

sub YYAbort {
	my($self)=shift;

	${$$self{CHECK}}='ABORT';
    und <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	2506	2605	
==>~ s/\..*$//;
  $to_file .= ".pasm";
}

open INPUT, "<$from_file" or die "Can't open up $from_file, e <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34551	34705	
==>er') {
            $self->whine(
              $para->[1]{'start_line'},
              "Expected '=item *'"
            );
            push @$para, $para-> <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	7397	7500	
==>ert better tests here

    return 0;
}

# R*, R+, R?, nongreedy variants of those
package Regex::Ops::Tr <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11313	11403	
==>EST0} = concat ${STEMP0}
pre_call_NO_RETURN_${CURIC}:

# Finished.
goto PRE_CALL_END_${CURI <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8499	8589	
==>EST0} = concat ${STEMP0}
pre_call_NO_RETURN_${CURIC}:

# Finished.
goto PRE_CALL_END_${CURI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658055	658286	
==>GS" => [
                              "i",
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 329 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38330	38465	
==>FAULT => -49
	},
	{#State 151
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			". <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7992	8097	
==>happen (flo)"
i=55
if i then print "This is true" else print "Oops (flo)"

' Expect OK
if 2 > 1 then
	prin <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	8382	8504	
==>ug message: %s\n", $self->file, $self->line, $message;
}


#
# WARNING()
#

sub WARNING
{
  my ($self, $format, @args) = @_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	614	716	
==>~~~~

sub any_errata_seen {  # read-only accessor
  return $_[1]->{'Errata_seen'};
}

sub new {
  my $s <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	4380	4476	
==>);

	return _fail ($wantarray, $textref) unless @match;

	return _succeed ( $wantarray, $textref, <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	13000	13091	
==>);
	return _fail($wantarray, $textref) unless @match;
	return _succeed($wantarray, $textref, <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	15890	15981	
==>);
	return _fail($wantarray, $textref) unless @match;
	return _succeed($wantarray, $textref, <==
3	/Users/nnunley/parrot/lib/Parrot/Revision.pm	487	588	
==>ss (-e ".svn/entries");
    $svn_entries = ".svn/entries";

    # code taken from pugs/util/version_h. <==
3	/Users/nnunley/parrot/languages/lua/luac.pl	492	590	
==>Run(@ARGV);

if ( exists $parser->YYData->{nb_error} ) {
    my $nb = $parser->YYData->{nb_error <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	3024	3191	
==>nerate code to translate each library.
        my @libs = qw/
            mscorlib
            System
            Accessibility
            I18N.CJK
            I <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5822	5935	
==>pmc_libs{$pmc} = \%libs;

        # There should be at most a single group
        my $group = $class->{flags}{gro <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6033	6146	
==>pmc_libs{$pmc} = \%libs;

        # There should be at most a single group
        my $group = $class->{flags}{gro <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	31153	31247	
==>_output_port {
}

sub _op_with_input_to_file {
}

sub _op_with_output_from_file {
}

sub _op_op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	410544	410963	
==>",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 474,
                  "ARGS" => [
                              "i",
                              "p",
                              "s"
                            ], <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	3640	3758	
==>$I100 = ceil $N100
    %1 = $I100
END_PIR

    $P0[unicode:"monadic:\u230a"] =  <<"END_PIR"            # floor
    $N10 <==
3	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	245	359	
==>= $conf->data->get('ccflags');
    if ($ccflags !~ /-pthread/) {
        $ccflags .= ' -pthread';
    }
    if ($cc <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16817	16951	
==>" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 9 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17234	17368	
==>" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 9 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17851	17985	
==>" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 9 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667565	667788	
==>able->push_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668339	668562	
==>able->push_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	9576	9670	
==>R' , max_token => 10_000, @_) ||
  $this->_get_titled_section('AUTHORS', max_token => 10_000, @ <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1804	1907	
==>r, $ret) = capture_output($prog, '--version');

    # don't override the user even if the program they p <==
3	/Users/nnunley/parrot/config/inter/make.pm	1678	1781	
==>r, $ret) = capture_output($prog, '--version');

    # don't override the user even if the program they p <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1818	1921	
==>r, $ret) = capture_output($prog, '--version');

    # don't override the user even if the program they p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94921	95015	
==>ODY" => "#line 63 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95814	95908	
==>ODY" => "#line 63 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96707	96801	
==>ODY" => "#line 63 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7109	7199	
==>inc stack_depth 
${DEST0} = "$"
${STEMP0} = ${LOADTYPE}["reg_type_short"]
${DEST0} = concat <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4931	5021	
==>inc stack_depth 
${DEST0} = "$"
${STEMP0} = ${LOADTYPE}["reg_type_short"]
${DEST0} = concat <==
3	/Users/nnunley/parrot/config/gen/config_h.pm	1369	1483	
==>ader includes
 */

EOF

    for (sort($conf->data->keys())) {
        next unless /i_(\w+)/;
        if ($conf->dat <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835253	835514	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "savec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836005	836266	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "savec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  " <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	3163	3292	
==>to MAIN;
	}

	if ($cur eq "\n") {   # ;?
		append;
		emit("STMT");
		fetch;
		goto MAIN;
	}
	if ($cur eq ":") {
		append;
		emit(" <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3996	4110	
==>rn $pir;
}

sub post_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	if ($need_dest) {
		# Tr <==
3	/Users/nnunley/parrot/config/auto/snprintf.pm	562	662	
==>en('config/auto/snprintf/test.in');
    cc_build();
    my $res = cc_run() or die "Can't run the snpr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	205	298	
==>ct/Declaration/Sub.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warni <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	3252	3367	
==>self->{_temps}->{$name} || die "Requested unallocated temporary!";
}

######################## Default rewrite rules <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2427	2523	
==>tem $token->dump

This returns a handy stringified value of this object.  This
is useful for debu <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	408	497	
==>rectory and any subdirectories recursively (see the C<files()> method
in C<Parrot::IO::Dir <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111301	111556	
==>_bitwise_or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112193	112448	
==>_bitwise_or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113085	113340	
==>_bitwise_or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070221	1070488	
==>line",
                  "CODE" => 1194,
                  "ARGS" => [
                              "i",
                              "nc",
                              "nc"
                            ],
                  "BODY" => "#line 49 \"src/ops/experimental <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	3028	3140	
==>rxlocals} ||= []);
    return (aop(comment => [ "restore rxlocals" ]),
            map { aop('popint' => [ $_, "r <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	64286	64386	
==>AX" or "PARA").




=back


=head1 AUTHOR

Damian Conway (damian@conway.org)


=head1 BUGS AND IRRITA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615750	616003	
==>E" => 697,
                  "ARGS" => [
                              "i",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 508 \"src/ops/object.ops\"\n    opcode_t * <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	8510	8624	
==>$token->text);  # reuse $type, why not
      $type =~ s/([\?\!\"\'\.\,]) /$1\n/g unless $dont_wrap;
      print $fh <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18333	18428	
==>r method) on it:

=over

=item $parser->head1_halfpoint_size( I<halfpoint_integer> );

=item $pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38465	38606	
==>NEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39329	39470	
==>NEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7951	8050	
==>s (int)"
i=0
if i then print "Should not happen (flo)"
i=55
if i then print "This is true" else prin <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14938	15037	
==>s (int)"
i=0
if i then print "Should not happen (flo)"
i=55
if i then print "This is true" else prin <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	60763	60857	
==>ror,$line);
			$item = new Parse::RecDescent::InterpLit($1,$lookahead,$line);
			$prod and $pro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131383	131692	
==>} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132238	132547	
==>} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133093	133402	
==>} ^ {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719426	719784	
==>> [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 807,
                  "ARGS" => [
                              "p",
                              "n"
                            ],
                  "BODY" => "#line 133 \"src/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656462	656634	
==>table->defined_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657386	657558	
==>table->defined_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54794	54909	
==>};
    }
  } @stuff;
  # $out =~ s/\n */ /g if length($out) < 75;
  return $out;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018516	1018839	
==>"o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1138,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 182 \"sr <==
3	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	1846	1992	
==>a('SymbTabVar') ) {
                        if ( exists $symbtab->{table}{$symb} ) {
                            my $defn = $symbtab->{table}{$sy <==
3	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	894	1032	
==>a('SymbTabVar') ) {
                    if ( exists $symbtab->{table}{$symb} ) {
                        my $defn = $symbtab->{table}{$sy <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	14310	14428	
==>_} } split( '', $params );
        # This is an after-the-fact hack: real fix would be in make_arg
        # or somewhe <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1207	1315	
==>ko::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block,

    IDENT => $ident,
    COND <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	24593	24700	
==>ass;
}

sub code($$$$)
{
	my ($self, $namespace, $rule, $check) = @_;
	
	my $action = '';
	
	if ($self->{"ms <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	19270	19388	
==>de "
	str_ic = cur_ic
	err = concat str_ic
	err = concat ")"
    ex["_message"] = err 
    throw ex

PIRCODE

    # Res <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2743	2852	
==>bm/i;
        }
        my $extraLibs = '-lm -lgmp -lreadline -lpthread -lm -L/opt/local/lib  -licuuc -licudat <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2538	2647	
==>bm/i;
        }
        my $extraLibs = '-lm -lgmp -lreadline -lpthread -lm -L/opt/local/lib  -licuuc -licudat <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106948	1107184	
==>nction",
                  "CODE" => 1225,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 352 \"src/ops/experimental.o <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10108	10233	
==>RR "**Pop state $$stack[-1][0].\n";

			pop(@$stack);
		}

			@$stack
		or	do {

#DBG>			$debug & 0x10
#DBG>		and	pri <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9657	9773	
==>RR "**Pop state $$stack[-1][0].\n";

			pop(@$stack);
		}

			@$stack
		or	do {

#DBG>			$debug & 0x10
#DBG>		and	pri <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	38442	38546	
==>wline at the end.
	$ins .= "\n" unless $ins =~ /\n$/;

	# Escape some characters that will go into the ou <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722400	722495	
==>s(interpreter, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_softspace(interpreter, i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723429	723524	
==>s(interpreter, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_softspace(interpreter, i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724473	724568	
==>s(interpreter, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_softspace(interpreter, i <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	35091	35200	
==>\" as ho-hum L<Modulename> link.\n";
          $treelet->[$i][1]{'type'} = 'pod';
          $treelet->[$i][1]{ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	103	197	
==>subject to the same license
# as Perl itself.
#
# $Id: /parrot/languages/jako/lib/Jako/Parser.p <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	11773	11866	
==>'!POS'} = $rx_pos;
$rx_match{'!RESULT'} = 1;
$rx_match{'0'}->[1] = $rx_pos - 1;
$rx_match{'!ST <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22903	23025	
==>ent at line $para->[1]{'start_line'}\n";
        next;
      }

      # Else it's okay to close...
      if(grep $_->[1]{'~ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477115	477232	
==>nError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478011	478128	
==>nError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553260	553562	
==>> "callmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554656	554958	
==>> "callmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556053	556355	
==>> "callmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	624762	624872	
==>* TODO ARG_MAX */\n    parrot_context_t *ctx;\n    opcode_t *pc;\n    void **pred_pc;\n    INTVAL i, n_args, *s <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	13138	13237	
==>s a test is broken because something is not implemented yet. So
in order to still allow that to be t <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	183	279	
==>de Generation

=head1 SYNOPSIS

    use Parrot::Pmc2c::Library;

=head1 DESCRIPTION

Parrot::Pmc2 <==
3	/Users/nnunley/parrot/config/gen/cpu/i386/auto.pm	837	1013	
==>));
        if ($@) {
            print " $@ " if $verbose;
        } else {
            if (cc_run() =~ /ok/) {
                $conf->data->set(
                    "i386_has_ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6786	6905	
==>ailed ($?)\n";
    }
}

sub generate_c {
    my ($pmc) = @_;

    if (needs_build("$pmc.c", "$pmc.pmc")) {
        run(" <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6997	7116	
==>ailed ($?)\n";
    }
}

sub generate_c {
    my ($pmc) = @_;

    if (needs_build("$pmc.c", "$pmc.pmc")) {
        run(" <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2660	2802	
==>age_test_map{$func};

        # That's the reason for:   no strict 'refs';
        my $pass = $self->{builder}
            ->$builder_func( <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2190	2314	
==>age_test_map{$func};
        # That's the reason for:   no strict 'refs';
        my $pass = $self->{builder}->$builder_func( <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2729	2853	
==>age_test_map{$func};
        # That's the reason for:   no strict 'refs';
        my $pass = $self->{builder}->$builder_func( <==
3	/Users/nnunley/parrot/lib/Test/More.pm	31056	31154	
==>em B<eq_hash>

  my $is_eq = eq_hash(\%this, \%that);

Determines if the two hashes contain the sam <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	326	427	
==>use strict;
use SRM::Base;
our @ISA = qw/SRM::Base/;

# Constructor. Just base this class on a hash.
s <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	232	333	
==>use strict;
use SRM::Base;
our @ISA = qw/SRM::Base/;

# Constructor. Just base this class on a hash.
s <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	140	241	
==>use strict;
use SRM::Base;
our @ISA = qw/SRM::Base/;

# Constructor. Just base this class on a hash.
s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40523	40724	
==>S" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 720 \"src/ops/core.ops\"\n  if ({{\@1}} == EXCEPT_doomed)\ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	20050	20151	
==>bers>

    $Test->use_numbers($on_or_off);

Whether or not the test should output numbers.  That is, t <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	5262	5353	
==>next if $stmt->{label}->{reachable}; # Already reached here
	$stmt->{label}->{reachable} = 1 <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5175	5313	
==>$FH} "  ";
        if ( exists $op->{result} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $first = 1 <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6207	6345	
==>$FH} "  ";
        if ( exists $op->{result} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $first = 1 <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	5403	5513	
==>fix};

    $directories{dirname($dest)} = 1;
    push(@files, [ $src => $dest ]);
} continue {
    close ARGV i <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	437	533	
==>$new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  #$new->accept_codes('Verba <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	241	336	
==>$new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->accept_codes('Verba <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	240	335	
==>$new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->accept_codes('Verba <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554916	555185	
==>TYPE" => "function",
                  "CODE" => 637,
                  "ARGS" => [
                              "p",
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line 94 \"src/ops/ob <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	681	824	
==>';

    *{"Parrot::Test::Lua::$func"} = sub {
        my $self = shift;
        my ( $code, $output, $desc, %options ) = @_;

        my $ <==
3	/Users/nnunley/parrot/config/inter/progs.pm	1186	1311	
==>eturn $null;
    };

    my $ask = $conf->options->get('ask');
    if ($ask) {
        print <<'END';


    Okay, I'm going to <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	829	930	
==>t;
  my ($handler) = @_;

  $handler->start_element({ Name => 'block', Attributes => { kind => $self-> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1842	1943	
==>t;
  my ($handler) = @_;

  $handler->start_element({ Name => 'block', Attributes => { kind => $self-> <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	14033	14133	
==>>render(@_));
}

sub Regex::Ops::Tree::classpieces::reftree {
    my $op = shift;
    return annotate <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3264	3383	
==>2, $3, choose($4, unescape($5), $6));

        # make the test print the last line of output
        # XXX This should b <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4671	4790	
==>2, $3, choose($4, unescape($5), $6));

        # make the test print the last line of output
        # XXX This should b <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2603	2709	
==>-zA-Z]+)=([-_:0-9a-zA-Z]+)$/s
     ? ( $1, => "<$2>", "/$1", => "</$2>" ) : die "Funky $_"
  } @_;
}

#~~~~ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28182	28271	
==>stsep||"").$text;
			}'.($::RD_NO_TRACE?'':'
			Parse::RecDescent::_trace(q{<<Didn\'t matc <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32457	32546	
==>stsep||"").$text;
			}'.($::RD_NO_TRACE?'':'
			Parse::RecDescent::_trace(q{<<Didn\'t matc <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2320	2432	
==>$value;";
}

sub output_print {
    my ($self, $what) = @_;
    $what = value($what);
    return ("print $what;") <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2638	2748	
==>$value";
}

sub output_print {
    my ($self, $what) = @_;
    $what = value($what);
    return ("print $what") <==
3	/Users/nnunley/parrot/tools/dev/gen_class.pl	1495	1608	
==>| $methname eq 'name' || $methname =~ /prop/) {
		# default.pmc handles these
		next;
	}

	print "    $retval <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15412	15523	
==>ackwards
for i = 0 to 10 step 2
	print i,
next i
print
for i = 10 to 3 step -1
	print i
next i
print

' For loop <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	9742	9837	
==>-----------

sub _get_titled_section {
  # Based on a get_title originally contributed by Graham <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	2657	2761	
==>)
{
END_C

    print OUT "    register_pmc(interp, registry, enum_class_$_);\n" foreach (@pmcs);
    prin <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18351	18448	
==>B;	
	bsr $labels{$syms[CURR]}\t# GOSUB $syms[CURR]
	#RTJ ne JUMPLABEL, "", RUNTIME_JUMP
GOSUB
}
su <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	6500	6596	
==>he wrong method.

.sub unicode:"dyadic:\u2296" :multi(pmc, APLVector) # rotate
    .param int op1 <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	6775	6891	
==>nd_global $arg_name, "${arg}_$d"
EOC
	}
	print <<EOC;
arg_ok:
EOC
    }
    $cur_func = $arg;
    %params = ();
    % <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367806	367893	
==>e 336 \"src/ops/io.ops\"\n  {{\@1}} = PIO_reads(interpreter, PIO_STDIN(interpreter), (si <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368598	368685	
==>e 336 \"src/ops/io.ops\"\n  {{\@1}} = PIO_reads(interpreter, PIO_STDIN(interpreter), (si <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	402	500	
==>ion operations per second) using
integer arithmetic.

Prints out:

=over 4

=item * the number of l <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	398	496	
==>ion operations per second) using
integer arithmetic.

Prints out:

=over 4

=item * the number of l <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36702	36796	
==>rn <<EOC;
$l
${decl} {
	real_exception(interpreter, NULL, NULL_REG_ACCESS,
		"Null PMC access i <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	279	380	
==>opy of Parrot::Test::Python. Abstraction needed.

=cut

sub new {
    return bless {};
}

sub output_i <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	317	418	
==>opy of Parrot::Test::Python. Abstraction needed.

=cut

sub new {
    return bless {};
}

sub output_i <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1724	1823	
==>. . . . . . . . . . . . . . . . . . .
#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	9814	9935	
==>hereas an object of a class created by the
second form is based on a hash. The array-based forms will be
somewhat faster a <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	10654	10757	
==>border-bottom: 1px solid #313052; }
    .indent2 { padding-left: 40px; }
    .indent3 { padding-left: 80 <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	2774	2867	
==>_output_isnt($code, $unexpected, $description)>

Runs the PAST code and passes the test if a s <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	17137	17235	
==>,@stream)=generate_code(0, @stream);	# Generate PASM code stream
	}
	s/$/\n/ for @stream;
	@stream= <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	33031	33144	
==>!"$c"!;
    }
    print <<EOC;
	setattribute $obj->[1], $cc, $val $cmt
EOC
}

sub Slice
{
    my ($n, $c, $cmt, $s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79056	79157	
==>me);\n  string_cstring_free(name);\n  if (p == NULL) {\n      const char * const err = Parrot_dlerror( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80577	80678	
==>me);\n  string_cstring_free(name);\n  if (p == NULL) {\n      const char * const err = Parrot_dlerror( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19813	19967	
==>atchcount >= max goto rfail
#                 R or rfail
#                 $matchcount++
#          check: if $matchcount < min goto back
#           next: <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6849	6995	
==>ery.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push(@$stack,[ $act, $$value ]);

					$$token ne ''	#Don't eat the eo <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6532	6670	
==>ery.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push(@$stack,[ $act, $$value ]);

					$$token ne ''	#Don't eat the eo <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3267	3370	
==>up_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    while (my ($group, $pmcs) <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3371	3474	
==>up_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    while (my ($group, $pmcs) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490374	490624	
==>" => 0,
                  "NAME" => "inc",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "COD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490995	491245	
==>" => 0,
                  "NAME" => "inc",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "COD <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31097	31238	
==>, new LabelOp( $parser,
        'arg1' => $lbl_end,
    );
    return \@opcodes;
}

sub BuildForList {
    my ( $parser, $vars, $exprs, <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	20710	20824	
==>rn };
		}
		$rd2pos = pos($$textref)-1;
	}
	else
	{
		$ld2pos = $str2pos = $rd2pos = $rd1pos;
	}

	$modpos = pos $$ <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2379	2463	
==>E ALSO

F<examples/benchmarks/mops.pasm>,
F<examples/mops/mops.c>,
F<examples/mops/mo <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	2379	2463	
==>E ALSO

F<examples/benchmarks/mops.pasm>,
F<examples/mops/mops.c>,
F<examples/mops/mo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830714	830932	
==>NTRY_INT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831455	831673	
==>NTRY_INT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2820	3009	
==>([ 'label', "\@$name$number" ], 'asm_op');
}

############################################################################
# OPTIMIZATION INFORMATION
#
# All of this is only for computing in <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2516	2614	
==>nized type '$type' for num '$num' in opcode @{[$op->full_name]}"
        unless exists $arg_maps{$t <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4382	4480	
==>nized type '$type' for num '$num' in opcode @{[$op->full_name]}"
        unless exists $arg_maps{$t <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	48468	48557	
==>e = extract_quotelike("$var");


=head2 C<extract_codeblock>

C<extract_codeblock> attempt <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597150	597432	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS| <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613964	614246	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS| <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	8339	8431	
==>y ($balanced, $remaining) = extract_balanced($code);

Remove a balanced {} construct from the <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83811	84033	
==>terpreter, compreg_hash, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84717	84939	
==>terpreter, compreg_hash, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	2	98	
==>equire 5;
package Pod::Simple::LinkSection;
  # Based somewhat dimly on Array::Autojoin

use stri <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29254	29411	
==>"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86
		},
		DEFAULT => -1 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41360	41517	
==>"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86
		},
		DEFAULT => -1 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44506	44663	
==>"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86
		},
		DEFAULT => -1 <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5958	6067	
==>] =~ /MMD_/);
    next if ($entry->[4] =~ /_INT$/);
    next if ($entry->[4] =~ /_STR$/);
    next if ($entry- <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6376	6485	
==>] =~ /MMD_/);
    next if ($entry->[4] =~ /_INT$/);
    next if ($entry->[4] =~ /_STR$/);
    next if ($entry- <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/State.pm	173	291	
==>| $class;
    return $self;
}

sub literal_label {
    my ($self, $label, $desc) = @_;
    $desc ||= '';
    return ble <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23568	23659	
==>urn,$temp,"NEXT_$label"]);
    $self->_add_inst('','set',[$return,$temp]);
    $self->_add_i <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24030	24121	
==>urn,$temp,"NEXT_$label"]);
    $self->_add_inst('','set',[$return,$temp]);
    $self->_add_i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571192	571479	
==>erpreter, {{\@2}}, class);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572147	572434	
==>erpreter, {{\@2}}, class);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	57922	58031	
==>ist of angle
					brackets enclosing a sequence of
					uppercase characters will eventually
					be used to s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	7906	8016	
==>ef $_[0]\n";
    return;
  } elsif(ref $_[0]) {
    $self->{'source_filename'} = '' . ($handle = $_[0]);
    DE <==
3	/Users/nnunley/parrot/lib/Test/More.pm	2719	2812	
==>can do almost anything with a simple
C<ok()> function, it doesn't provide good diagnostic outp <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	152	239	
==>rpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm 19606 2 <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10636	10744	
==>($value);
    $value = $pmc;
  }

  $self->_new_lex ($symbol,$value);

  return $value;
}

sub _op_set_bang { <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1620	1727	
==>Import our symbols into our parent block:
  #

  my $name = $self->name;

#  printf STDERR "%s: About to cop <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	4393	4490	
==>fail ($wantarray, $textref) unless @match;

	return _succeed ( $wantarray, $textref,
			  $match[2 <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	15902	15993	
==>fail($wantarray, $textref) unless @match;
	return _succeed($wantarray, $textref,
			$match[2 <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	5873	5989	
==>INVERSE_CONDITIONED_LINE(var):..." are skipped if
            # the "var" condition is true.
            if ($line =~ <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	25326	25439	
==>$ret_string = "$t = ";
	}
	if (!nci_method($attr)) {	# a method function
	    print <<EOC;
	P2 = $1   # obj '$obj' <==
3	/Users/nnunley/parrot/config/gen/config_pm.pm	1270	1370	
==>an't close Config.pm: $!";

    my $template = "config/gen/config_pm/config_lib.in";
    open(IN,  $t <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	1270	1414	
==>::Find::prune = 1;	
            return;
        }
        return if /malloc/;

        /^.*\.[ch]\z/s &&
            push @files, $File::Find::na <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	18926	19059	
==>>{Test_Results}[$self->{Curr_Test}-1] = &share({
        'ok'      => 1,
        actual_ok => 0,
        name      => '',
        type <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	7056	7162	
==>sub gen_code {
    $cur_func = 'test::main';
    print <<EOC;
.sub $cur_func :main
    .param pmc sys::argv <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717932	718028	
==>.ops\"\n  PMC * const io = {{\@1}};\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(inter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718864	718960	
==>.ops\"\n  PMC * const io = {{\@1}};\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(inter <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	8208	8390	
==>minutes) . "&nbsp;min",
      summary       => [{
        total       => $11,
        ok          => $12,
        failed      => $13,
        todo        => $14,
        skipped     = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	856	947	
==>AL::isa($left, 'Jako::Construct::Expression::Value');
  confess "Op is not scalar!" if ref $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	868	959	
==>AL::isa($left, 'Jako::Construct::Expression::Value');
  confess "Op is not scalar!" if ref $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805796	806065	
==>" => "inline",
                  "CODE" => 909,
                  "ARGS" => [
                              "i",
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 497 \"src/ops/set.ops\ <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1819	1975	
==>=> '-Fo',
            cc_exe_out => '-out:',
            cc_ldflags => '/link',

            # ZI messes with __LINE__
            cc_debug             => '- <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3698	3854	
==>=> '-Fo',
            cc_exe_out => '-out:',
            cc_ldflags => '/link',

            # ZI messes with __LINE__
            cc_debug             => '- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320016	320246	
==>(INTVAL)((Parrot_Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320786	321016	
==>(INTVAL)((Parrot_Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1182	1299	
==>t, Any $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    # hack for now
    my $got_perl = $got.p <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	19966	20102	
==>le for instructions of " .
                "more than 2 bytes in rule $_->{'name'}\n";
        }
    }

    # If we have 3 or less rules, <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6006	6137	
==>ERR "Need token. Got ".&$ShowCurToken."\n";
			};

            $act=   exists($$actions{ACTIONS}{$$token})
                    ? <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5721	5848	
==>ERR "Need token. Got ".&$ShowCurToken."\n";
			};

            $act=   exists($$actions{ACTIONS}{$$token})
                    ? <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	13489	13627	
==>> -4,
		GOTOS => {
			'block' => 58,
			'chunk' => 57
		}
	},
	{#State 15
		DEFAULT => -11,
		GOTOS => {
			'@1-1' => 59
		}
	}, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	986	1107	
==>my $self = bless {
    BLOCK => $block,

    TYPE  => $type,
    NAME  => $ident->value,
    PROPS => $props,
    ARGS  => <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	42104	42198	
==>gle argument (the text to
be extracted from).

In other words, the implementation of C<extract_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18954	19064	
==>{\@1}}->vtable->get_bool(interpreter, {{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22122	22232	
==>{\@1}}->vtable->get_bool(interpreter, {{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65216	65322	
==>tem)
						      or  _no_rule("repetition",$line,"$code$argcode($1..$2)");

						!$matchrule and $rule and <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5189	5293	
==>);
		$ot2=false($ot2);
		return(<<CODE, $result);
	# XOR $a1, $a2
	set $result, 0.0
	eq $a1, $ot1, EQ_${e <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2736	2840	
==>dicate the current working directory.  In order to be
    # compatible with both pre/post version 3.13 we <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	7700	7830	
==>ad of pop!  Adds instead
           # of removes, and operates on the beginning instead of the end!
          
          if($to_ung <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	617581	617677	
==>== lr_types)\n\t    goto runit_v_pp;\n\tif (++lru->u.type == lr_types)\n\t    goto runit_v_pp;\n\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	617639	617735	
==>== lr_types)\n\t    goto runit_v_pp;\n\tif (++lru->u.type == lr_types)\n\t    goto runit_v_pp;\n\ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11648	11839	
==>sult = $result2;
                    }
                    push @opcodes, @{ $last_key->[1] };
                    my $assign = new KeyedSetOp( $parser,
                        'arg1'   => <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9860	10035	
==>sult = $result2;
                }
                push @opcodes, @{ $last_key->[1] };
                my $assign = new KeyedSetOp( $parser,
                    'arg1'   => <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8739	8882	
==>sult = $result2;
        }
        push @opcodes, @{ $last_key->[1] };
        my $assign = new KeyedSetOp( $parser,
            'arg1'   => <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21218	21377	
==>umber',
        '%'  => 'number',
        '..' => 'string',
    );
    my %opcode = (
        '+'  => 'add',
        '-'  => 'sub',
        '*'  => 'mul' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79040	79141	
==>ata({{\@2}}), name);\n  string_cstring_free(name);\n  if (p == NULL) {\n      const char * const err = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80561	80662	
==>ata({{\@2}}), name);\n  string_cstring_free(name);\n  if (p == NULL) {\n      const char * const err = <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10214	10314	
==>c ehs, eh, ss_propogate, ss
    .local string gen_pir, loadreg, storereg, err, str_ic, tmp
    .local <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4122	4220	
==>pth

# Get type (so we can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign register <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2538	2636	
==>pth

# Get type (so we can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign register <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	29018	29117	
==>er_string {
}

sub _op_string_number {
}

sub _op_char_p {
}

sub _op_char_eq_p {
}

sub _op_char_lt <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15023	15118	
==>\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
    }
    return;
  } elsif( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16206	16301	
==>\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
    }
    return;
  } elsif( <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	4897	5011	
==>}

open IN, $infile;

my $line = 0;
while (<IN>) {
  $line++;
  next if m/^\s*#/; # ignore preprocessor
  next unle <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3522	3629	
==>:Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) = @_;

    #print STDERR "pbcc: map_arg($type <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3321	3428	
==>:Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) = @_;

    #print STDERR "pbcc: map_arg($type <==
3	/Users/nnunley/parrot/config/gen/config_pm.pm	1361	1475	
==>en(IN,  $template)          or die "Can't open '$template': $!";
    open(OUT, ">config_lib.pasm") or die "Can't op <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	37799	37910	
==>->[1]{'~resolve'}, @fors) {
          #} elsif(not grep !$_->[1]{'~resolve'}, @fors) {
          } elsif( $fors[ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	12874	12967	
==>retcount = _BUILTIN_$extern($ac$pir_args)};
				push @work, [ "result of $extern()", "RESULT", <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1085	1187	
==>cal/include -pipe -fno-common -Wno-long-double  -I /opt/local/include   -g -Wall -Wstrict-prototypes -W <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1143	1245	
==>cal/include -pipe -fno-common -Wno-long-double  -I /opt/local/include   -g -Wall -Wstrict-prototypes -W <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1147	1249	
==>cal/include -pipe -fno-common -Wno-long-double  -I /opt/local/include   -g -Wall -Wstrict-prototypes -W <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	11416	11533	
==>'#f' };
  }

  for my $clause ( reverse @clauses ) {
    $transnode = { children => [ { value => 'if' },
				 _get_arg <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	2396	2504	
==>lf->kind eq 'arg'); }
sub is_sub      { my $self = shift; return $self->kind eq 'sub'; }
sub is_module   { my <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	3164	3272	
==>al_directives" />
          <keyword attribute="Type" context="#stay" String="types" />
          <RegExpr at <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	4217	4314	
==>program = map { /^benchmark\s+(.*)$/ } @section;
my %suffix;
$suffix{ $_ } = [ map quotemeta, $ini <==
3	/Users/nnunley/parrot/tools/build/revision_c.pl	249	341	
==>en from
F<.svn/entries> or F<.svk/entries> and config rev number of last
Parrot configure run <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765338	765661	
==>i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 864,
                  "ARGS" => [
                              "ic",
                              "nc"
                            ],
                  "BODY" => "#line 320 \"src/o <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	4745	4864	
==>BDo '$Obj' |")) {
    while (<NM>) {
	my ($o, $s, $v) = split;
	$API{$s} = $o;
	if ($v eq 'T') {
	    $Code{$s} = $o;
	} <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11516	11612	
==>${ITEMP0} == 0 goto PRE_CALL_END_${CURIC}

# Do we have anything on the lazy moves stack?
${ITEMP <==
3	/Users/nnunley/parrot/config/auto/readline.pm	1027	1151	
==>readline.lib');
        }
    } else {
        $conf->data->add(' ', libs => '-lreadline');
    }

    my $osname = $Config{o <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	2590	2696	
==>ll_files.pl'),
            $self->new_item('', 'tools/dev/mk_manifests.pl'),
            $self->new_item('' <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	1549	1640	
==>nstantiated local variables
# into the translator code.
$pir = insert_automagicals($pir, $me <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544318	544428	
==>f(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n w <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545654	545764	
==>f(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n w <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546990	547100	
==>f(a==0 || b==0) { {{\@1}}=0; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n w <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427938	428045	
==>ath.ops\"\n  mmd_dispatch_v_pn(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428825	428932	
==>ath.ops\"\n  mmd_dispatch_v_pn(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "L <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10948	11048	
==>ee::alternate::needparen { 1 }
sub Regex::Ops::Tree::alternate::render {
    my $op = shift;
    my $ <==
3	/Users/nnunley/parrot/Configure.pl	7986	8114	
==>parser and lexer files. Needs a working
                        parser and lexer.
   --miniparrot         Build parrot assuming o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109133	109416	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109911	110194	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6591	6691	
==>DO - This needs more thought. I'm trying to work out which files
	# it's sensible to link directly to <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7580	7689	
==>ore operation hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If the de <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5698	5807	
==>ore operation hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If the de <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4540	4649	
==>ore operation hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If the de <==
3	/Users/nnunley/parrot/config/inter/encoding.pm	1681	1808	
==>data->set(
        encoding            => $encoding_list,
        TEMP_encoding_o     => $TEMP_encoding_o,
        TEMP_encoding <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	35211	35334	
==>=> \&_op_denominator,
  'floor'            => \&_op_floor,
  'ceiling'          => \&_op_ceiling,
  'truncate'         => \& <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1610	1722	
==>eq 'MSWin32') {
    # Paths need quoting as they may contain spaces.
    $PATHQUOTE = '"';

    unless ($CC =~ /g <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1614	1726	
==>eq 'MSWin32') {
    # Paths need quoting as they may contain spaces.
    $PATHQUOTE = '"';

    unless ($CC =~ /g <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3133	3237	
==>dest) = @_;
    $self->output_test('>', $val1, $val2, $dest);
}

sub output_ge {
    my ($self, $val1, $v <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	2880	2978	
==>le ) {
    print STDERR "creating table: '$table{$name}' (charset: $name)\n";
    setlocale(LC_CTYP <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4465	4629	
==>nd     do {
                	s/^#DBG>//;
                	push(@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note t <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4242	4395	
==>nd     do {
                	s/^#DBG>//;
                	push(@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note t <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3062	3171	
==>INP1

	# Bug here...FIXME.. I'm using $vars before it's set.
	$vars=1;
	if ($noreloop) {
		push @{$code{$seg}- <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35346	35462	
==>at all return types can be cast from zero.
        $ret = "return ($method->{type})0;";
    }
    # I think that thes <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	1394	1497	
==>ants) {
        printf("%04x: %08x %08x %08x %08x %s\n",
	    $constant_num, $_->flags, $_->encoding, $_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	719	815	
==>state = new Hash
prop_stack_depth = new Hash
PIR
}

# Post translation hook.
sub post_translation <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83218	83596	
==>g",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 104,
                  "ARGS" => [
                              "s",
                              "p"
                            ], <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3569	3669	
==>XPRESSION({ stuff => "\$X99", choose => 1 });
		push @{$code{$seg}->{code}}, "@code";
		feedme();
		i <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	6149	6241	
==>get_vtable_section()>

Creates a hash of all the method names containing vtable section. Call <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14168	14301	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_GNEXT",
                  "NAME" => "jump" <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7147	7241	
==>Inval  (0): ", instr(4, bogus$, "t")
' instr() tests
s1$="Mixed case"
print ucase$(s1$);" Upper <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18876	18970	
==>Inval  (0): ", instr(4, bogus$, "t")
' instr() tests
s1$="Mixed case"
print ucase$(s1$);" Upper <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6659	6787	
==>rrstatus
				and	do {
					--$$errstatus;

#DBG>					$debug & 0x10
#DBG>				and	$dbgerror
#DBG>				and	$$errstatus == 0
#D <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6350	6471	
==>rrstatus
				and	do {
					--$$errstatus;

#DBG>					$debug & 0x10
#DBG>				and	$dbgerror
#DBG>				and	$$errstatus == 0
#D <==
3	/Users/nnunley/parrot/config/init/hints.pm	647	761	
==>nts_used = 0;

    my $hints = "init::hints::" . lc($^O);

    print "[ $hints " if $verbose;

    eval "use $hints <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4855	4956	
==>he symbol tables of parent blocks.

=cut

sub dump_symbols
{
  my $self = shift; # Required: Jako::Con <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7069	7168	
==>l} ? $options{fail} : '';
	my $bad     = ref($options{reject}) eq 'ARRAY' ? join('|', @{$options{rej <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24071	24170	
==>l} ? $options{fail} : '';
	my $bad     = ref($options{reject}) eq 'ARRAY' ? join('|', @{$options{rej <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9522	9625	
==>ken->is_until or $token->is_while) {
      my $block = $self->current_block();
      my $kind = $token-> <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	5601	5702	
==>had this idea (unfortunately,
he wasn't in Tony's kitchen).  This is it.


=head1 SEE ALSO

=over 4

= <==
3	/Users/nnunley/parrot/lib/Test/More.pm	2200	2299	
==>tatus = Test::More::status;

  # UNIMPLEMENTED!!!
  BAIL_OUT($why);


=head1 DESCRIPTION

B<STOP!> I <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9130	9282	
==>status = 1;
            &$error($self);
                $$errstatus # if 0, then YYErrok has been called
            or  next;       # so continue par <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8717	8866	
==>status = 1;
            &$error($self);
                $$errstatus # if 0, then YYErrok has been called
            or  next;       # so continue par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772305	772544	
==>2,
                  "ARGS" => [
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 350 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTE <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	2158	2263	
==>rt.

Taken from an I register.

=item 3

Pointer to int.

Taken from an I register

=item 4

Pointer to lo <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	5396	5499	
==>. by $0.
 *
 * Any changes made here will be lost!
 *
 */

END_C

my $mmp_v = "${major_version}_${minor_ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	1837	1939	
==>t libraries

=head1 SYNOPSIS

  package My::Test::Module;
  use Test::Builder;
  require Exporter;
  @I <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557797	557898	
==>mc, *object;\n  opcode_t *next = {{^+3}};\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559181	559282	
==>mc, *object;\n  opcode_t *next = {{^+3}};\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483785	484057	
==>t    \"Divide by zero\");\n  {{\@1}} = floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484784	485056	
==>t    \"Divide by zero\");\n  {{\@1}} = floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485783	486055	
==>t    \"Divide by zero\");\n  {{\@1}} = floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11856	11969	
==>URR] =~ /-/) {
			if ($type[NEXT] =~ /INT|FLO/) {
				feedme();
				$syms[CURR]="-$syms[CURR]";
			}
		}
		if ($ty <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819696	819808	
==>"Stack Depth wrong\");\n  }\n  {{\@1}} = get_entry_type(interpreter, entry);\n  {{+=3}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820656	820768	
==>"Stack Depth wrong\");\n  }\n  {{\@1}} = get_entry_type(interpreter, entry);\n  {{+=3}};\n",
                  "L <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	21566	21673	
==>mmar.y"
{ return { min => 0, max => $_[4] }; }
	],
	[#Rule 31
		 'range', 3,
sub
#line 155 "lib/Regex/Gramma <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	29185	29291	
==>ess $iter goto $targ # $tos->[0]
	$var = shift $iter $cmt
EOC
    push @stack, [-1, $var, 'P']
}


sub UNPA <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	556	653	
==>t_newlines gen_ret dont_edit dynext_load_code);

our %writes;
{
  my @writes = qw(STORE PUSH POP S <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	41797	41927	
==>$count++;
	next;
      }
      # Check if any later argument needs the old value of P$count
      my $moved;
      for (@_) {
	if ( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	1796	1900	
==>ISA          = qw(Regex::Ops::Tree);
@Regex::Ops::Tree::check::ISA        = qw(Regex::Ops::Tree);

@Regex <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	2385	2472	
==><VERSION>-1.<arch>.rpm file will contain the file
/usr/parroty/bin/snork-compile.

=head <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7353	7466	
==>::Construct::Declaration::Constant->new($block, $type, $ident, $value);
        }
        else {
          $self-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552515	552610	
==>\"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n\n  o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556571	556666	
==>\"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n\n  o <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6161	6359	
==>$token}
                    :   exists($$actions{DEFAULT})
                        ?   $$actions{DEFAULT}
                        :   undef;
        }
        else {
            $act=$$actions{ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5872	6064	
==>$token}
                    :   exists($$actions{DEFAULT})
                        ?   $$actions{DEFAULT}
                        :   undef;
        }
        else {
            $act=$$actions{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131099	131368	
==>nline",
                  "CODE" => 161,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 306 \"src/ops/bit.ops\"\n  {{ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	35033	35185	
==>->[0],
        'op'     => '==',
        'arg2'   => $var,
        'result' => $lbl_end,
    );
    foreach my $op ( @{$block} ) {
        if ( $op <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	6007	6123	
==>he EOS).
      } else { # that's the end.  Byebye
        $self->SUPER::parse_lines(undef);
        delete $self->{'s <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38668	38770	
==>? '$text = $_savetext;' : '' ) .'

'
}

package Parse::RecDescent::Result;

sub issubrule { 0 }
sub ist <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	195827	195970	
==>JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt_num",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15730	15830	
==>$


' Anti-crawling, gives 0
function foo
	print y
	foo=99
end function
y=66.66
u=foo()

' Bubble sor <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	450	558	
==>t { $_[0][0] eq 'start' }
sub is_end   { $_[0][0] eq 'end'   }
sub is_text  { $_[0][0] eq 'text'  }

1;
__END <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	920	1018	
==>:Ops::Tree::_onearg::ISA      = qw(Regex::Ops::Tree);

@Regex::Ops::Tree::match::ISA        = qw(Re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78985	79075	
==>st p = Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? NULL : PMC_data({{\@2}}), name);\n  string_cstri <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80506	80596	
==>st p = Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? NULL : PMC_data({{\@2}}), name);\n  string_cstri <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	46496	46606	
==>y $rule = undef;
	my $prod = undef;
	my $item = undef;
	my $lastgreedy = '';
	pos $grammar = 0;
	study $grammar <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	11657	11765	
==>args)=split(/,/,$variant);
        my $op = Parrot::Op->new($code++, $type, $short_name,
            [ @fixed <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717908	718000	
==>ine 124 \"src/ops/python.ops\"\n  PMC * const io = {{\@1}};\n  if (PIO_softspace(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718840	718932	
==>ine 124 \"src/ops/python.ops\"\n  PMC * const io = {{\@1}};\n  if (PIO_softspace(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665262	665483	
==>ete_keyed_int(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666039	666260	
==>ete_keyed_int(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776932	777101	
==>ki",
                              "n"
                            ],
                  "BODY" => "#line 382 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed_in <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2988	3137	
==>n]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # test result
              | " ((?:[^"\\]|\\.)+) "   #" (keep my editor <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4385	4534	
==>n]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # test result
              | " ((?:[^"\\]|\\.)+) "   #" (keep my editor <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61788	61904	
==>)
		{
			my $name = $code;
			my $matchrule = 0;
			if (substr($name,0,1) eq '<')
			{
				$name =~ s/$MATCHRULE\s*// <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	1565	1670	
==>y or string
depending on the context in which the method is called.

    $contents = $file->read;
    @lin <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	35556	35653	
==>anch = $srm->post_branch($rule->{'pop'});
		$pir .= "### post_branch\n";
		$pir .= sub_meta($post_ <==
3	/Users/nnunley/parrot/config/inter/charset.pm	612	710	
==>{ m{\./src/charset/(.*)} } glob "./src/charset/*.c"
    );

    my $charset_list = $conf->options-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6082	6275	
==>n    Parrot_load_bytecode(interpreter, {{\@1}});\n    {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6748	6941	
==>n    Parrot_load_bytecode(interpreter, {{\@1}});\n    {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3330	3432	
==>_t *cur_opcode = cur_op;
    char * _reg_base;
#endif

SWITCH_RELOAD:
    _reg_base = (char*)interprete <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	6153	6308	
==>$sel = "->{\$i}";
            }
            elsif( defined $classes{$name} ){
                if ( $CHECK_CLASS_MEMBERSHIP ) {
                    $out .= " <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	59304	59434	
==>_[2] );
        }
	],
	[#Rule 105
		 'tableconstructor', 2,
sub
#line 566 "Lua\lua51.yp"
{
            BuildTable( $_[0], [ <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1030	1139	
==>rams  => '@',
        object  => 'Parrot::Configure::Step',
    },
);

=head2 Methods

=head3 Constructors

=o <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33378	33482	
==>[0]->{subrule}}}";
	}
	else
	{
		return $_[1].$_[0]->{"subrule"};
	}
}

sub new ($$$$;$$$)
{
	my $class = <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	15088	15220	
==>name, $method, 1);
            $sub_meth_decl =~ /(\w+)\(/;
            my $sub_meth_name = $1;
            my $sub_meth =  $sub_meth <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	12836	12947	
==>const char * name, int full) {
    HOP * p;
    const size_t hidx = hash_str(name) % OP_HASH_SIZE;
    if (!hop) <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48031	48132	
==>ar =~ m/$ENDDIRECTIVEMK/gco)
		{

		# EXTRACT TRAILING REPETITION SPECIFIER (IF ANY)

			my ($minrep,$ <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	7899	8086	
==>,
            {
                parameters  => $entry->[2],
                meth        => $entry->[1],
                type        => $entry->[0],
                section     => $entry->[ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	242	337	
==>= qw(Exporter);
@EXPORT_OK = qw(generate);

use Data::Dumper;
use Scheme::Builtins;

sub _gensym <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	146	232	
==>rrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expression/Value/I <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	3867	3976	
==>ess_lines($top,15);
    $top =~ s/^ {0,1}(\S)/  $1/mg; # minimum indent
    $info->{desc} = $top;
    return $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4551	4650	
==>re_output;
  return
   $self->do_beginning && $self->do_middle && $self->do_end;
}


#~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3182	3280	
==>re_output;
  return
   $self->do_beginning && $self->do_middle && $self->do_end;
}

#~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	9103	9230	
==>args) = @_;
  $self->ERROR('Syntax', $format, @args);
}


#
# INTERNAL_ERROR()
#

sub INTERNAL_ERROR
{
  my ($self, $format, @ar <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1243	1339	
==>slurp_file($out_f), $output, $desc );
        $self->{builder}->diag("'$cmd' failed with exit cod <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1284	1380	
==>slurp_file($out_f), $output, $desc );
        $self->{builder}->diag("'$cmd' failed with exit cod <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1924	2015	
==>ym = $block->find_symbol($left->value);
    $self->SYNTAX_ERROR("Expression involves unknown <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1882	1973	
==>ym = $block->find_symbol($left->value);
    $self->SYNTAX_ERROR("Expression involves unknown <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1804	1895	
==>ym = $block->find_symbol($left->value);
    $self->SYNTAX_ERROR("Expression involves unknown <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	28755	28877	
==>y ($n, $c, $cmt) = @_;
    my $it = temp('P');
    my $tos = pop @stack;
    my $var = promote($tos);
    print <<EOC;
	$it <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009846	1009953	
==>"src/ops/string.ops\"\n  {{\@1}} = string_compose(interpreter, {{\@2}});\n  {{+=3}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010611	1010718	
==>"src/ops/string.ops\"\n  {{\@1}} = string_compose(interpreter, {{\@2}});\n  {{+=3}};\n",
                  " <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	3090	3215	
==>");
	return 30 if ($op eq "mod");
	return 40 if ($op eq '\\');
	return 50 if ($op eq "*");
	return 50 if ($op eq "/");
	return <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	19703	19802	
==>ting where the
test failed.

Defaults to 1.

Setting $Test::Builder::Level overrides.  This is typic <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	9790	10039	
==>def }

########################################################################
# Rendering - only used for debugging for now
########################################################################

package Regex::Ops::Tree; # Won't get used much

s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	53174	53281	
==>\t" => '\t', # tab
  "\cm" => '\cm',
  "\cj" => '\cj',
  "\n" => '\n', # probably overrides one of either \c <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testrun.pl	47	152	
==>/../';

unlink "_test.pbc";

# XXX - This file should be generated at config time, so as to get
# the appr <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	2420	2508	
==>ntain the file
/usr/parroty/bin/snork-compile.

=head1 SEE ALSO

F<tools/dev/mk_manifests <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133961	134232	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134742	135013	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core", <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	2532	2645	
==>le()>

This tells you whether the file is executable.

=cut

sub is_executable
{
    my $self = shift;
    
    re <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	7095	7209	
==>"$dest_stem$O", "$src_stem.c")) {
        run(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5389	5503	
==>"$dest_stem$O", "$src_stem.c")) {
        run(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7306	7420	
==>"$dest_stem$O", "$src_stem.c")) {
        run(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6491	6620	
==>e($target)
      or return 1;
    for my $source (@sources) {
        return 1 if modtime($source) > $target_mod;
    }

    retur <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4911	5040	
==>e($target)
      or return 1;
    for my $source (@sources) {
        return 1 if modtime($source) > $target_mod;
    }

    retur <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6702	6831	
==>e($target)
      or return 1;
    for my $source (@sources) {
        return 1 if modtime($source) > $target_mod;
    }

    retur <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8320	8434	
==>ark?";
    push @ops, "$reg = <rx_tmp>; # nope, set pos := popped index"
      unless $reg eq '$<rx_tmp>';
    retu <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2256	2363	
==>rver:anonymous:\@tcl.cvs.sourceforge.net:/cvsroot/tcl co -d $DIR tcl/tests
END_COMMAND

    return ($rc == 0 <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21953	22057	
==>undef }
sub isterminal { 0 }
sub describe { $_[1] ? '' : $_[0]->{name} } 

sub new ($$$$$)
{
	my $class = <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32061	32169	
==>= ", ". join(' ', @args) if @args;
    $parameters = ", $parameters" if $parameters;
    my $body = "VTABLE_$ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33638	33746	
==>= ", ". join(' ', @args) if @args;
    $parameters = ", $parameters" if $parameters;
    my $body = "VTABLE_$ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40695	40803	
==>= ", ". join(' ', @args) if @args;
    $parameters = ", $parameters" if $parameters;
    my $body = "VTABLE_$ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28657	28793	
==>ULT => -105
	},
	{#State 88
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	69032	69130	
==>s ($ERRORS or $isimplicit or !$::RD_CHECK)
	{
		$self->_check_grammar();
	}

	unless ($ERRORS or $i <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	613	701	
==>keted($$$$$$);
sub _match_variable($$);
sub _match_codeblock($$$$$$$);
sub _match_quoteli <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	7032	7166	
==>binomial coefficient
    .param pmc op1
    .param pmc op2
    $I1 = op1
    $I2 = op2
    $I3 = $I2 - $I1   

    $N1 = fact $I1
    $ <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	3804	3918	
==>print {$FH}
            "  store_lex \"$op->{arg1}->{symbol}\", $op->{arg2}->{symbol}\n";
    }

    sub visitC <==
3	/Users/nnunley/parrot/config/auto/jit.pm	72	164	
==>to/jit.pm 20320 2006-06-20T19:26:31.775154Z bernhard  $

=head1 NAME

config/auto/jit - JIT C <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1618	1715	
==>$self->right;

  my $dest_sym = $block->find_symbol($dest->value);
  $self->SYNTAX_ERROR("Assignin <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1576	1673	
==>$self->right;

  my $dest_sym = $block->find_symbol($dest->value);
  $self->SYNTAX_ERROR("Assignin <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1498	1595	
==>$self->right;

  my $dest_sym = $block->find_symbol($dest->value);
  $self->SYNTAX_ERROR("Assignin <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	652	763	
==>ask maintainer );

sub runstep
{
    my ($self, $conf) = @_;
    
    my $verbose = $conf->options->get('verbose <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	384	480	
==>::shared when threads are turned on
    if( $] >= 5.008 && $Config{useithreads} && $INC{'threads. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89299	89573	
==>}} &= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90037	90311	
==>}} &= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1049	1145	
==>imple module which simplifies the 
manipulation of `@*INC`.

It is typically used to add extra di <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059468	1059622	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_name",
                  "FLAGS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060372	1060526	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_name",
                  "FLAGS" => <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	8231	8342	
==>[0])	# This works, but damned if I know why. 
			#and $next->[0] ne ")"  
			){
#			print "Argthing $prev->[0]\n <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	42361	42506	
==>o tweak.\n";
          }
        }
        
        unshift @stack, $treelet->[$i]; # recurse
        next;
      } elsif($treelet->[$i][0] ne 'E' <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1775	1880	
==>-s";

sub compile_test {
    my $file = shift;

    my $ret = system ("$urmc $compile $FindBin::RealBin$PC <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840225	840465	
==>ser_stack, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840920	841160	
==>ser_stack, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	22327	22427	
==>re we were...
	P4= P6["storage"]
	P6= P4["$_->[0]"]
	bsr COPY_$_->[1]
	P2["storage"]= P1
	P6= P5		# G <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730703	730928	
==>ne 124 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731439	731664	
==>ne 124 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	1445	1560	
==>y $self = shift;

  die "Nothing to restore"
    unless defined @_;
  foreach my $reg (@_) {
    next if grep { $_ e <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	16450	16568	
==>elements. For example:
		         <$op->{type}op:leftarg /op/ rightarg>");
	    }
	    else
	    {
		push @{$self->{ite <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2383	2492	
==>ot/src/pmc' . $PATHQUOTE . " " .
        $source;
};

sub partial_link_cmd {
    my ($target, $libs, $sources) <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2178	2287	
==>ot/src/pmc' . $PATHQUOTE . " " .
        $source;
};

sub partial_link_cmd {
    my ($target, $libs, $sources) <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5352	5460	
==>ommand '$mode'\nmust be one of generate, compile, linklibs, or copy\n";
}

sub run {
    print join(" ", @_), <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4553	4661	
==>ommand '$mode'\nmust be one of generate, compile, linklibs, or copy\n";
}

sub run {
    print join(" ", @_), <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5563	5671	
==>ommand '$mode'\nmust be one of generate, compile, linklibs, or copy\n";
}

sub run {
    print join(" ", @_), <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1751	1852	
==>xpected %d, got %d) in call to '%s'.",
    scalar(@formal_args), scalar(@args), $name)
    unless @for <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1451	1552	
==>xpected %d, got %d) in call to '%s'.",
    scalar(@formal_args), scalar(@args), $name)
    unless @for <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16621	16790	
==>lDir( $parser,
                    'result' => $result,
                );
                push @opcodes, new FindLexOp( $parser,
                    'result' => $res <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10797	10936	
==>lDir( $parser, 'result' => $result, );
                    push @opcodes, new FindLexOp( $parser,
                        'result' => $res <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21092	21197	
==>node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);

  $self->_add <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16143	16253	
==>->get(4)->is_value
    ) {
      my $block = $self->current_block();
      my $ident = Jako::Construct::Express <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16914	17024	
==>->get(4)->is_value
    ) {
      my $block = $self->current_block();
      my $ident = Jako::Construct::Express <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17719	17829	
==>->get(4)->is_value
    ) {
      my $block = $self->current_block();
      my $ident = Jako::Construct::Express <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540122	540390	
==>line",
                  "CODE" => 625,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 1022 \"src/ops/math.ops\"\n I <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	26657	26786	
==>P'];
}

sub STORE_FAST
{
    my ($n, $c, $cmt) = @_;
    my $tos = pop @stack;
    $fast[$n] = $tos;
    my $p;
    if ($p = $lexi <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76804	76900	
==>0]) - $::RD_TRACE;
		return substr($_[0],0,$::RD_TRACE/2)
			. "...<$count>..."
			. substr($_[0] <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2776	2891	
==>eter);\ngoto switch_label";
}

my %arg_maps = (
    'i'  => "IREG(%ld)",
    'n'  => "NREG(%ld)",
    'p'  => "PREG( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1648	1741	
==>SAL::isa($type, "Jako::Construct::Type");

  my $type_name = $type->name;

  $self->INTERNAL_E <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1496	1589	
==>SAL::isa($type, "Jako::Construct::Type");

  my $type_name = $type->name;

  $self->INTERNAL_E <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9217	9321	
==>th for the file with the specified with the specified path
taken relative to the directory.

=cut

sub pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722254	722353	
==>{{\@1}}; /* TODO Can this be localized? */\n  if (s && string_length(interpreter, s)) {\n    if (PIO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723283	723382	
==>{{\@1}}; /* TODO Can this be localized? */\n  if (s && string_length(interpreter, s)) {\n    if (PIO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349296	349519	
==>= pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350298	350521	
==>= pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	5675	5767	
==>elsif ($branch eq "goto") {
			push @{$code{$seg}->{code}}, qq{\tgoto $labels{$jumps}\t# $bra <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7560	7766	
==>ne rule name '$lhs' ill formed: ".
                        "report it as a BUG.\n";
                $$dotpos = $1;
            };

            @sempar =       $$dotpos
                        ?   map { <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7214	7414	
==>ne rule name '$lhs' ill formed: ".
                        "report it as a BUG.\n";
                $$dotpos = $1;
            };

            @sempar =       $$dotpos
                        ?   map { <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10116	10196	
==>ef="$outfile_base.branches.html#$function">@{[$function_branch_coverage{$source_f <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9064	9232	
==>r
            $$errstatus
        or   do {

            $$errstatus = 1;
            &$error($self);
                $$errstatus # if 0, then YYErrok has been cal <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8655	8817	
==>r
            $$errstatus
        or   do {

            $$errstatus = 1;
            &$error($self);
                $$errstatus # if 0, then YYErrok has been cal <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	960	1057	
==>guments

Note that argument 0 is considered to be the op itself, with arguments
1..9 being the arg <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	2873	2991	
==>ince
{
    my $self = shift;
    my $time = shift;
    
    return $self->stat->mtime > $time;
}

=item C<svn_id()>

Re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627233	627327	
==>w\", (int){{\@2}});\n  }\n\n  /* Why?? If we're creating a continuation, the continuation PMC\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628377	628471	
==>w\", (int){{\@2}});\n  }\n\n  /* Why?? If we're creating a continuation, the continuation PMC\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791155	791576	
==>=> [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 893,
                  "ARGS" => [
                              "p",
                              "p",
                              "ki"
                            ],
                  "BODY" => "#lin <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	606	709	
==>es.

=cut

use strict;
use warnings;

require Parrot::Test;

=head2 Functions

=over 4

=item C<p6rule_i <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	1437	1535	
==>$jit_cpu = 1;
    push @jit_funcs, "Parrot_jit_fn_info_t _op_jit[$core_numops] = {\n";
    $func_en <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	3053	3180	
==>st_prog = join( ' && ', @test_prog );
            if ( $exit_code ) {
                $diag .= "'$test_prog' failed with exit co <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	4744	4854	
==>.pasm) */
EOM
    for my $entry (@{$vtable}) {
    my $uc_meth = uc $entry->[1];
    $macros .= <<"EOM";
#defin <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8956	9060	
==>d from current config settings:

  $cc, $ccflags, $ldout, $o, $link, $linkflags, $cc_exe_out, $exe, $libs <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	9413	9527	
==>"ok";
    $out .= " $self->{Curr_Test}" if $self->use_numbers;

    if( defined $name ) {
        $name =~ s|#|\\#| <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	13975	14072	
==>$op = shift;
    return annotated($op, "charclass " . $op->render(@_));
}

sub Regex::Ops::Tree::c <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	614	748	
==>ut_match {
    my ($self, $byte) = @_;
    my $comment = '';
    if ($byte =~ /^[\w ]$/) {
        $comment = " # '$byte'";
    }
    r <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1591	1689	
==>= ${STEMP0}

# Emit pop code.
${INS} = concat ${STACK$register_num}
${INS} = concat " = pop s\n"
PI <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3301	3399	
==>= ${STEMP0}

# Emit pop code.
${INS} = concat ${STACK$register_num}
${INS} = concat " = pop s\n"
PI <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	5738	5896	
==>warn     => "-ansi -pedantic",
            gccversion => undef
        );

        return $self;
    }

    $conf->data->set(
        ccwarn              => "$ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	1092	1187	
==>_]);
}

=item C<c_item($text, %contents)>

Returns a new C source and/or header files documentat <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34171	34314	
==>m is of type ", $para->[0], " under $over_type\n";
          
          if($item_type eq 'bullet') {
            # as expected!

            if( <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	331	423	
==>dynamic PMCs

=head1 DESCRIPTION

This file is generated by F<config/gen/makefiles.pl> from
F <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	297	389	
==>dynamic PMCs

=head1 DESCRIPTION

This file is generated by F<config/gen/makefiles.pl> from
F <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	324	442	
==>BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG)
          ? \&Pod::Simple::DEBUG
          : sub() {0}
      }

use Text: <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	206	324	
==>BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG)
          ? \&Pod::Simple::DEBUG
          : sub() {0}
      }

use Text: <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	14155	14269	
==>1}, ''],
  ;

  push @out, 
    ['=back',  {'start_line' => $m, 'errata' => 1}, ''],
  ;

  DEBUG and print "\n<<\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253875	254179	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254738	255042	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_c <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	346	434	
==>ko::Construct::Expression::Value::Identifier;

use Carp;

use base qw(Jako::Construct::Ex <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53735	53836	
==>f ($grammar =~ m/(?=$RESYNCPATMK)/gco
				and do { ($code) = extract_bracketed($grammar,'<');
					  $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561887	561986	
==>}}, {{\@3}});\n  if (!{{\@1}}) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"M <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562971	563070	
==>}}, {{\@3}});\n  if (!{{\@1}}) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"M <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	3253	3370	
==>(defined $cond) {
    $handler->end_element({ Name => 'block' });
    $handler->end_element({ Name => 'cond' });
  }
} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	4006	4123	
==>(defined $cond) {
    $handler->end_element({ Name => 'block' });
    $handler->end_element({ Name => 'cond' });
  }
} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	4030	4147	
==>(defined $cond) {
    $handler->end_element({ Name => 'block' });
    $handler->end_element({ Name => 'cond' });
  }
} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010674	1010979	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "spawnw",
                  "FLAGS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011438	1011743	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "spawnw",
                  "FLAGS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012203	1012508	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "spawnw",
                  "FLAGS" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9985	10103	
==>e_value);

      $self->require_close_paren;
      $self->require_open_brace;

      my $loop;

      my $namespace = s <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5738	5837	
==>mod, cmod, bitwise
   (and, or, xor, lshift, rshift), concat, logical (and, or, xor),
   repeat, eq, <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	1953	2056	
==>" ];
  while (my ($name, $match) = each %$m) {
    push @$res, minimatch($match, $name) if $name !~ /^\d <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2320	2414	
==>mplemented in subclasses to return the C code for the run
core function declaration. C<$base> i <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2771	2865	
==>mplemented in subclasses to return the C code for the run
core function declaration. C<$base> i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540526	540646	
==>{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541778	541898	
==>{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543030	543150	
==>{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b) & 1) ) {\n   a>>=1;\n   b>>=1;\n   p++;\n }\n\n while( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294895	295183	
==>],
                  "TYPE" => "inline",
                  "CODE" => 343,
                  "ARGS" => [
                              "i",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 945 \"src/ops/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549981	550088	
==>ct;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+3}};\n  inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551282	551389	
==>ct;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+3}};\n  inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353183	353434	
==>{
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353927	354178	
==>{
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354672	354923	
==>{
                  "JUMP" => 0,
                  "NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2708	2821	
==>tion will be "
	    ."included,\nwith the heads of these indescribable files.\n";
    }
    print "\n";
    my @no <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	502	590	
==>Parrot::OpTrans::CPrederef Parrot::OpTrans::CGoto );

=item C<core_type()>

Returns C<PAR <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	12323	12408	
==>ee::scan::render { $_[0]->{args}->[0]->render() }

sub Regex::Ops::Tree::atend::needpa <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10105	10214	
==>= 0;

    # Negated list
    if ($pieces->[0] eq 'neg') {
        return _negate_incexc(_translate_classpieces <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	321	425	
==>t::Test::per_test( '.pir_out', $count );
}

sub get_test_prog {
    my $self = shift;
    my ( $path_to_p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025059	1025339	
==>{{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025816	1026096	
==>{{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026572	1026852	
==>{{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysinfo" <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	1373	1473	
==>RECT FILLET
			my $extra = substr($res[0], $extrapos-$startlen, $extralen, "\n");
			$res[1] = "$extr <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	2131	2234	
==>$sourcefile'\n",
			     "to class $class in module file '$modulefile'\n"
					if $grammar && $sourcefil <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54813	54904	
==>=> "#line 864 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo(interpreter, {{\@2}});\n  {{+=3}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55573	55664	
==>=> "#line 864 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo(interpreter, {{\@2}});\n  {{+=3}} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32124	32276	
==>ed_value;
            $self->whine(
              $para->[1]{'start_line'},
              "Expected '=item $expected_value'"
            );
            p <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15084	15212	
==>?'/eg;
    }
    return;
  } elsif(wantarray) {  # return an array
    return map {; ($x = $_) =~
      s/([F\x00-\x1F\-\\\{\}\x7 <==
3	/Users/nnunley/parrot/config/auto/gc.pm	238	331	
==>ption was passed to F<Configure.pl>
and sets the memory allocator accordingly.

C<--gc> can ta <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950949	951246	
==>ans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 107 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951909	952206	
==>ans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 107 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952869	953166	
==>ans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 107 <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2965	3068	
==>C<restart ADDRESS($address)>.

=cut

sub restart_address
{
    my ($self, $addr) = @_;

    return "inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3834	3937	
==>C<restart ADDRESS($address)>.

=cut

sub restart_address
{
    my ($self, $addr) = @_;

    return "inte <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23538	23624	
==>self->_add_inst('','gt', [$return,$temp,"NEXT_$label"]);
    $self->_add_inst('','set', <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1604	1714	
==>bject intended to contain
initial and discovered configuration data.

Accepts no arguments and returns a L<Parr <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1775	1868	
==>sts($$self{VERSION})
	and	$$self{VERSION} < $COMPATIBLE
	and	croak "Yapp driver version $VER <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1712	1803	
==>sts($$self{VERSION})
	and	$$self{VERSION} < $COMPATIBLE
	and	croak "Yapp driver version $VER <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	8785	8899	
==>$num");
    $num++
  }

  $temp = 'none';
  for (_get_args($node,2)) {
    $self->_restore ($temp);
    $temp = $se <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	16629	16728	
==>imple::PullParser should define a C<run> method
that calls C<< $token = $parser->get_token >> to pul <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	4817	4907	
==>)\n";
  $this->{'output_fh'} = Pod::Simple::TiedOutFH->handle_on($_[0]);
  return $this->{' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123767	123905	
==>"i"
                            ],
                  "BODY" => "#line 257 \"src/ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124641	124779	
==>"i"
                            ],
                  "BODY" => "#line 257 \"src/ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	72237	72351	
==>{name}(s)\".");
			next;
		}
	}
}
	
# GENERATE ACTUAL PARSER CODE

sub _code($)
{
	my $self = shift;
	my $code = qq <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12452	12582	
==>ush @opcodes, @{ $global->[1] };
                my $key = BuildLiteral( $parser, $idf, 'key' );
                push @opcodes, @ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16960	17090	
==>ush @opcodes, @{ $global->[1] };
                my $key = BuildLiteral( $parser, $idf, 'key' );
                push @opcodes, @ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	36498	36614	
==>( $idf eq '...' ) {
        $defn = new defn( 'vararg', 'local', 'pmc' );
        push @opcodes1, new ParamDir( $pa <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	4970	5072	
==>n. If the text of the next token is a file
path and that file contains POD, then a link will be made to <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54392	54486	
==>etty_form{$1} || '\\x'.(unpack("H2",$1))>eg;
         <$pretty_form{$1} || '\\x{'.sprintf("%x", <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54660	54754	
==>etty_form{$1} || '\\x'.(unpack("H2",$1))>eg;
         <$pretty_form{$1} || '\\x{'.sprintf("%x", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	318112	318422	
==>" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 372,
                  "ARGS" => [
                              "i"
                            ],
                  " <==
3	/Users/nnunley/parrot/config/init/manifest.pm	646	769	
==>skipped');
        return $self;
    }

    my @missing = ExtUtils::Manifest::manicheck();

    if (@missing) {
        prin <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30157	30251	
==>TCH_END
SUB_DISPATCH_END:
	ret
SUBEND
}
sub parse_struct_copy_dispatch {
	goto RTJUMP;
	print C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129798	130032	
==>rc/ops/bit.ops\"\n  {{\@1}} ^= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130537	130771	
==>rc/ops/bit.ops\"\n  {{\@1}} ^= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	19191	19295	
==>s, @mmds, @init_mmds, %init_mmds);
    foreach my $method (@{ $self->{vtable}{methods}} ) {
        my $m <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	20897	21027	
==>tput_like',
        example_output_isnt => 'language_output_isnt',
                           );

    foreach my $func ( keys %exam <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	251	340	
==>ead1 DESCRIPTION

A Perl implementation of the F<examples/mops/mops.pasm> example program, <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	247	336	
==>ead1 DESCRIPTION

A Perl implementation of the F<examples/mops/mops.pasm> example program, <==
3	/Users/nnunley/parrot/tools/build/vtable_extend.pl	1728	1826	
==>pplication calls
   them to do stuff with PMCs, STRINGS, interpreter contents, and
   suchlike thin <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4949	5043	
==>compiler->emit("  $pmc_reg = $dest");
    $compiler->emit("  global \"$dest_name\" = $pmc_reg") <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3012	3106	
==>compiler->emit("  $pmc_reg = $dest");
    $compiler->emit("  global \"$dest_name\" = $pmc_reg") <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	486146	486427	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 556,
                  "ARGS" => [
                              " <==
3	/Users/nnunley/parrot/tools/dev/as2c.pl	1189	1307	
==>\@function/) {
	    $in_comment = 0;
	    $func = $1;
	    print " *\n */\n";
	    print "static const char ${func}_cod <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	33	132	
==>D after __END__

use 5.005_03;

use strict;
# use warnings::register;
use vars qw(@ISA @EXPORT $VERS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666807	667038	
==>TABLE_elements(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103932	1104017	
==>f (!type) {\n\t\tParrot_autoload_class(interpreter, class);\n\t\ttype = pmc_type(inter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105147	1105232	
==>f (!type) {\n\t\tParrot_autoload_class(interpreter, class);\n\t\ttype = pmc_type(inter <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	5730	5826	
==>ata,    'code',   'data' );
warn_if_both($Global, $Local,   'global', 'local');
warn_if_both($Ini <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	272	366	
==>um;

=head1 DESCRIPTION

A documentation section describing Parrot's big number subsystem.

=he <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10743	10871	
==>ction);
        # Turn char 1234 into "(1234)"
        $section = '_' unless length $section;
    }
    
    foreach my $it ($to, <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4120	4239	
==>ction);
     # Turn char 1234 into "(1234)"
    $section = '_' unless length $section;
  }
  
  

  foreach my $it ($to, <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2768	2858	
==>,
 'item-number'  => "\n{\\pard\\li#rtfindent##rtfitemkeepn#\\sb60\\sa150\\fi-120\n",
 '/it <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361621	361718	
==>> "#line 281 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362520	362617	
==>> "#line 281 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpr <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	15607	15702	
==>$paras;
  return unless @{$paras = $self->{'paras'}};
  my $curr_open = ($self->{'curr_open'} || <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	16596	16717	
==>tref, pos($$textref), 20) .
			     q{..."},
		         pos $$textref;
		return; 
	}
	$oppos = pos($$textref);

	my $initi <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	3268	3410	
==>{$name} || die "Requested unallocated temporary!";
}

######################## Default rewrite rules #######################

sub rewrite_termi <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	2678	2804	
==>where";
    } elsif ($cond eq '<') {
        return "lt $a, $b, $where";
    } elsif ($cond eq '<=') {
        return "le $a, $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1909	2027	
==>0);
    }

    close $PIR;
}

sub generate_pbc {
    my ($pir, $pbc) = @_;
    my $status = system($PARROT_EXE, '-o', $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687610	687885	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688381	688656	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ] <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3915	4012	
==>dest_ident->type->imcc_pmc();
    my $temp_pmc = $compiler->temp_pmc();

    $compiler->emit("  $t <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	1022	1127	
==>I/O  1..5
open "_testfile" for output as #3
for i=1 to 5
	print #3, i
next i
close #3
open "_testfile" for <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19494	19599	
==>I/O  1..5
open "_testfile" for output as #3
for i=1 to 5
	print #3, i
next i
close #3
open "_testfile" for <==
3	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	238	340	
==>org/smoke/"),
  "help"        => \&usage,
  "compress|c!" => \(my $compression_wanted = 1),
  "version" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1108264	1108386	
==>String:\n\t        type = pmc_type(interpreter, PMC_str_val({{\@2}}));\n            if (type <= 0)\n                real_ex <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480746	480882	
==>, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481749	481885	
==>, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482752	482888	
==>, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029424	1029718	
==>RS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1151,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 305 \"src/ops <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33600	33705	
==>->[0][0] eq '~Para') {
              DEBUG and print "Assimilating following ~Para content into $over_type <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35413	35518	
==>->[0][0] eq '~Para') {
              DEBUG and print "Assimilating following ~Para content into $over_type <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11141	11227	
==>RETURN_${CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1}["reg <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8327	8413	
==>RETURN_${CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1}["reg <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5989	6075	
==>RETURN_${CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1}["reg <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3663	3793	
==>($ENV{'RTFDEFLANG'} || '') =~ m/^([a-fA-F0-9]{4})$/s ? hex($1)
                                      # yes, tolerate even more hex! <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	33	138	
==>ct;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

$VERSION   = '0.01';
@ISA       = qw(Expo <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	36	141	
==>ct;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

$VERSION   = '0.01';
@ISA       = qw(Expo <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	8275	8368	
==>} = concat "push s, "
${INS} = concat ${DEST0}
${INS} = concat "\n"
post_call_NO_RETURN_${CURI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8771	8862	
==>bel = string_to_cstring(interpreter, {{\@1}});\n    struct PackFile_FixupEntry *fe = PackFil <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9887	9978	
==>bel = string_to_cstring(interpreter, {{\@1}});\n    struct PackFile_FixupEntry *fe = PackFil <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	2918	3121	
==>te)) {
            if ($line =~ m/TEMPLATE\s+(\w+)\s*{/) { #}
                $template = $1;
                $asm = q{};
                next;
            }
            else {
                $line =~ m/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11081	11269	
==>TRY_DESTINATION, STACK_CLEANUP_NULL);\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11870	12058	
==>TRY_DESTINATION, STACK_CLEANUP_NULL);\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	324	424	
==>ex::Grammar;
use vars qw ( @ISA );
use strict;

@ISA= qw ( Parse::Yapp::Driver );
#Included Parse/Yap <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	11555	11654	
==>HASH_SIZE $hash_size

/* we could calculate a prime somewhat bigger than
 * n of fullnames + n of na <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	3029	3153	
==>omma', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^([:])(.*)$}) {
      push @tokens, Jako::Token->n <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	6108	6220	
==>o this test
    # because we're preparing for a release.
    $context = "TODO for release"
        if index($Test <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	36753	36845	
==>ALSO

Test::Simple, Test::More, Test::Harness

=head1 AUTHORS

Original code by chromatic, ma <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2104	2208	
==>else {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako::Construct <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2062	2166	
==>else {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako::Construct <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1984	2088	
==>else {
    $left_type = $left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako::Construct <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	1628	1747	
==>led.

    $contents = $file->read;
    @lines = $file->read;

=cut

sub read
{
    my $self = shift;
    my $fh = FileHa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828818	828911	
==>_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_pmc(entry->entry);\n  {{+=3}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829886	829979	
==>_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_pmc(entry->entry);\n  {{+=3}} <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	3530	3622	
==>n of output
with the expected result is true.

=item C<pbc_output_like($code, $expected, $des <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94974	95230	
==>ring_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95867	96123	
==>ring_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96760	97016	
==>ring_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11111	11228	
==>02X',ord($1))/eg;
        # Yes, stipulate the list without a range, so that this can work right on
        #  all cha <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4460	4575	
==>02X',ord($1))/eg;
       # Yes, stipulate the list without a range, so that this can work right on
       #  all cha <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2742	2845	
==>Simple
will throw a warning and exit with 255.  If the test died, even after
having successfully complet <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	9193	9321	
==>}
			    $symbol .= "_data" if $TypeLong;
			} elsif ($undef) {
			    $symbol = $TypeLong ? "undef" : "U";
			} else {
			    $s <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10679	10792	
==>$infile) = @_;
    
    my $source_file = $infile;
    $source_file =~ s/\.gcov$//g;

    my $outfile_base = $sour <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	2944	3049	
==>lly equivalent to:

  BEGIN { sub Pod::Simple::DEBUG () {5} }  # or some integer
  use Pod::Simple ();

An <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	14413	14518	
==>$$optype$retcount" ];
			$retcount++;
		}
	}

	if (@work) {
		$_=pop @work;
		$result=pushthing(\@code, \$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642263	642349	
==>ps/pmc.ops\"\n  {{\@1}} = {{\@2}}->vtable->type_keyed(interpreter, {{\@2}}, {{\@3}});\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643151	643237	
==>ps/pmc.ops\"\n  {{\@1}} = {{\@2}}->vtable->type_keyed(interpreter, {{\@2}}, {{\@3}});\n <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	25517	25660	
==>] eq $classname) {
            $cout .= <<"EOC";
        _temp_mmd_init[$entry->[0]].right = entry;
EOC
        }
        else {
            $co <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11654	11774	
==>ith $sym $type $op\n";

		if (! $op) {
			push @work, $token;
			next;
		}
		next if ($sym eq ",");  # Commas get ignored <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	6337	6435	
==>s:
    #

    if ($text =~ m{^([a-zA-Z][a-zA-Z0-9_]*(::[a-zA-Z][a-zA-Z0-9_]*)*)(.*)$}) {
#printf ST <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22381	22487	
==>ing directive: ['
					. $self->describe . ']},
					Parse::RecDescent::_tracefirst($text),
					  q{' . $r <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	61620	61714	
==>item C<Did not find closing delimiter to match '%s'>

C<extract_quotelike> was unable to find a <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	27985	28140	
==>] = 
            { 'ok'       => is the test considered a pass?
              actual_ok  => did it literally say 'ok'?
              name       => name of t <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	37421	37549	
==>stack is empty.\n";
        } else {
          my @fors = grep $_->[0] eq '=for', @$curr_open;
          DEBUG > 1 and print "Con <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	10443	10543	
==>he next atom. This
# routine disables all of those checks. So you should call
# add_checks() to put t <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	17513	17630	
==>*******\n";
    ## print Dumper($self);
    ## exit 0;
    my (@mmds, $found);
    for my $super_mmd (@{ $self->{super <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1066	1175	
==>compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $left  = $self->left->value;
  my $right = $self->r <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	1074	1183	
==>compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $left  = $self->left->value;
  my $right = $self->r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862330	862529	
==>> [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 138 \"src/ops/string.ops\"\n  {{\@1}} = string_length(interpr <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3720	3820	
==>list the symbols.

=head1 TODO

=over 4

=item *

Write a pollution detector also for the C preproces <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314721	314815	
==>"src/ops/dotgnu.ops\"\n  if({{\@1}} >= -128 && {{\@1}} <= 127) {\n    {{\@1}} = (INTVAL)((signe <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	30424	30521	
==>string, the
following code is typically used:

	($remainder = $text) =~ s/\A('(\\.|[^'])*')//s;
	$ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Examples.pm	289	383	
==>CRIPTION

A documentation section describing all the Parrot examples.

=head2 Class Methods

=o <==
3	/Users/nnunley/parrot/config/init/headers.pm	13	102	
==>C) 2001-2006, The Perl Foundation.
# $Id: /parrot/config/init/headers.pm 20700 2006-06-26T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766400	766574	
==>",
                              "s"
                            ],
                  "BODY" => "#line 335 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767253	767427	
==>",
                              "s"
                            ],
                  "BODY" => "#line 335 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5266	5384	
==>lue::Literal->new($block, $self->require_literal);
        }

        $props{$prop} = $value;
      }

      $self->req <==
3	/Users/nnunley/parrot/config/auto/headers.pm	2187	2305	
==>', map { "#include <$_>\n" } @$use_headers));
            $conf->data->set(testheader  => $header);

            cc_gen <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39605	39709	
==>h_fromc_args$ret_type(interpreter, sub,
        pmc, meth, "$sig"$arg);
    $ret
}

EOC
}

package Parrot <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	28839	28965	
==>ne( $start_line, "A non-empty Z<>" );
      }      # but kill it anyway
        
      splice(@$treelet, $i, 1); # thereby just <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1157	1263	
==>lements ${STYPES}
PIR

	# Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we're ma <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2867	2973	
==>lements ${STYPES}
PIR

	# Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we're ma <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	12101	12211	
==>{
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(1);
  fo <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21519	21623	
==>{
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(1) <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21904	22008	
==>{
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(1) <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2358	2474	
==>ar}) {
					push(@saves, $var);
				}
			}
			if (@saves) {
				$edit.=qq{\tfind_global _GLOBALS, "COMMON"\n};
				fo <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2767	2883	
==>ar}) {
					push(@saves, $var);
				}
			}
			if (@saves) {
				$edit.=qq{\tfind_global _GLOBALS, "COMMON"\n};
				fo <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	3980	4076	
==>llowing C::Scan parse errors occurred.\nYou can generally ignore them:\n";
#    foreach (sort key <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	58854	58952	
==>nore => [$empty_tag]} );


C<gen_delimited_pat> may also be called with an optional second argument <==
3	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	943	1041	
==>s not available).
# See docs/submissions.pod on how to recreate this file after SVN
# has been told <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3798	3896	
==>s not available).
# See docs/submissions.pod on how to recreate this file after SVN
# has been told <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	2314	2408	
==>em('', 'tools/build/parrot_config_c.pl'),
            $self->new_item('', 'tools/build/pmc2c.pl <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21031	21147	
==>}, @$curr_open) {
        DEBUG > 1 and print "Ignoring ignorable =begin\n";
      } else {
        $self->{'content_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	19364	19476	
==>ow ex

PIRCODE

    # Restore original instruction codes, but remove spaces.
    foreach (@rules) {
        $_->{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483770	484046	
==>sionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484769	485045	
==>sionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485768	486044	
==>sionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48111	48340	
==>RROT_JUMP_RESTART",
                  "NAME" => "bounds",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48900	49129	
==>RROT_JUMP_RESTART",
                  "NAME" => "bounds",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline <==
3	/Users/nnunley/parrot/lib/Test/More.pm	13248	13362	
==>SAL::isa because we want to honor isa() overrides
        local($@, $!);  # eval sometimes resets $!
        my $rs <==
3	/Users/nnunley/parrot/config/gen/platform.pm	4193	4292	
==>C <<"END_HERE";
/*
** begin.c
*/
#line 1 "config/gen/platform/$platform/begin.c"
END_HERE
        pr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4012	4104	
==>defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "No symbol na <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6180	6272	
==>defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "No symbol na <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2928	3076	
==>l test harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # test resu <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4325	4473	
==>l test harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # test resu <==
3	/Users/nnunley/parrot/tools/dev/gen_class.pl	320	419	
==>ipt to generate a template PMC file with stubs for all the
methods you need to fill in. See F<docs/ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	859	978	
==>h!" if defined $props and ref($props) ne "HASH";
  confess "Args are not hash!" if defined $args and ref($args) ne "ARRA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841603	841709	
==>/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842367	842473	
==>/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6070	6245	
==>/core.ops\"\n    Parrot_load_bytecode(interpreter, {{\@1}});\n    {{+=2}};\n",
                  "LABELS" => [
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6736	6911	
==>/core.ops\"\n    Parrot_load_bytecode(interpreter, {{\@1}});\n    {{+=2}};\n",
                  "LABELS" => [
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Test/More.pm	9484	9584	
==>is, '/that/', 'this is like that' );

Regex options may be placed on the end (C<'/that/i'>).

Its adv <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6349	6474	
==>=$$actions{DEFAULT};
#DBG>			$debug & 0x01
#DBG>		and	print STDERR "Don't need token.\n";
        }

            defined( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6054	6174	
==>=$$actions{DEFAULT};
#DBG>			$debug & 0x01
#DBG>		and	print STDERR "Don't need token.\n";
        }

            defined( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19092	19193	
==>ocument will return
"Hoo::Boy::Wowza".

But if the document starts out:

  =head1 NAME
  
  Hooboy, st <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760863	761039	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setp_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761715	761891	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setp_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	1249	1352	
==>mps}{$name} = 'int';
    return "<$name>";
}

# This implementation should be overridden by the host lan <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10862	11056	
==>okens, $c;
                    push @types, 'NUM';
                } elsif ($c =~ /\w/) {
                    push @tokens, $c;
                    push @types, 'CHAR';
                } elsif ($ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	5071	5192	
==>return 0 if ! ref $R;
    return 0 if ! ref $S;
    return 0 if $R->{name} ne $S->{name};
    my $type = $R->{name};
    i <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2398	2491	
==>lfpoint_size#\\ul{\n",
 '/head3'  => "\n}\\par}\n",
 'head4'   => "\n{\\pard\\li#rtfindent#\\s <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	11537	11636	
==>m_ops

#define OP_HASH_SIZE $hash_size

/* we could calculate a prime somewhat bigger than
 * n of f <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	16261	16357	
==>l (typed eh)\n";
	$pir .= sub_meta($pop_all, $mv, "pop_all for typed exception handler");
	$pir . <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	52768	52861	
==>e string. Thus C<extract_multiple> is
a generalized form of Perl's C<split> subroutine.

The s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7325	7421	
==>{
          my $const = Jako::Construct::Declaration::Constant->new($block, $type, $ident, $value <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	5555	5677	
==>-$max[$_]s  ", $col->[$_]) } 0 .. $#$col; 
        print "\n";
    }
    exit;
}

# Run The Benchmarks With Pretty Output
i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143437	143604	
==>s",
                              "ic"
                            ],
                  "BODY" => "#line 84 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144365	144532	
==>s",
                              "ic"
                            ],
                  "BODY" => "#line 84 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}} <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	989	1087	
==>tem C<count_newlines($string)>

Returns the number of newlines (C<\n>) in C<$string>.

=cut

sub co <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1731	1844	
==>parse tree 

=head1 SYNOPSIS

  % cat ptest.pod
  
  =head1 PIE
  
  I like B<pie>!
  
  % perl -MPod::Simple::Sim <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	43025	43132	
==>),
		"startcode" => '',
		"localvars" => '',
		"_AUTOACTION" => undef,
		"_AUTOTREE"   => undef,
	};
	if ($: <==
3	/Users/nnunley/parrot/config/auto/byteorder.pm	141	233	
==>E

config/auto/byteorder.pm - Native Byteorder

=head1 DESCRIPTION

Computes the native byteo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563318	563491	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addmethod",
                  "FLAGS" => ":object_classes",
                  "ARG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564215	564388	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addmethod",
                  "FLAGS" => ":object_classes",
                  "ARG <==
3	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	2163	2287	
==>e file
my $frozen;
{
  $/ = undef;
  $frozen = <>;
}
#print Dump( $frozen );

# Parse the freeze-state
my $symtab = $frozen_p <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	569	672	
==>tem C<core_prefix()>

The core prefix is C<'cg_'>.

=cut

sub core_prefix
{
    return "cg_";
}

=item C <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	4792	4893	
==>\t# On X $branch...\n";
	feedme();
	$loop=0;
	@onlab=();
	while($type[CURR] !~ /COMP|COMM|STMT/) {
		d <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	704	801	
==>qw(
  appendComp basic cmdAH cmdIL cmdInfo cmdMZ compile config fileName fileSystem main misc 
  p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830653	830736	
==>erpreter, &CONTEXT(interpreter->ctx)->user_stack, &i, STACK_ENTRY_INT, STACK_CLEANUP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831394	831477	
==>erpreter, &CONTEXT(interpreter->ctx)->user_stack, &i, STACK_ENTRY_INT, STACK_CLEANUP <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1221	1355	
==>algorithm:
      s/(
         [^\n]{55}         # Snare some characters from a line
         [^\n\ ]{0,50}     #  and finish any curren <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1165	1299	
==>algorithm:
      s/(
         [^\n]{55}         # Snare some characters from a line
         [^\n\ ]{0,50}     #  and finish any curren <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	662	792	
==>nc',
    PMC_CONST    => 'pc',
    STRING_CONST => 'sc',
    STR_CONST    => 'sc',
    INT_REG      => 'i',
    NUM_REG      => 'n' <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39986	40092	
==>_transcript_off,

#--------------------
#
# Macros
#
#--------------------

  'let-syntax'          => \&_o <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	5178	5283	
==>reamble for the HEADER and SOURCE files:
#

my $preamble = <<END_C;
/* ex: set ro:
 * !!!!!!!   DO NOT EDI <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	12524	12651	
==>l_name eq 'if_p_ic') {
            $jit_func = "Parrot_jit_vtable_ifp_op";
            $opbody =~ /vtable->(\w+)/;
            $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19041	19162	
==>unless', [ $matchcount, $lastback ]),
               aop('add', [ $matchcount, -1 ]),
               aop('goto', [ $R_back <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20456	20577	
==>unless', [ $matchcount, $lastback ]),
               aop('add', [ $matchcount, -1 ]),
               aop('goto', [ $R_back <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22562	22682	
==>add_inst(''           ,'eq'    ,[$temp_0,1,"DONE_$label"]);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $se <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	8211	8310	
==>e_coverage{$source_file} ? "$file_line_coverage{$source_file} %" : "n/a" ]}</a></td>
             <t <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1367	1483	
==>tc...
    
    } elsif($token->is_end) {
      ...access $token->tagname...
    
    }
  }

(Also see L<Pod::Simple:: <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10652	10747	
==>r/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
        $section = $self->unicode_escape_url($section <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4033	4124	
==>r/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
    $section = $self->unicode_escape_url($section <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	53179	53287	
==>> '\t', # tab
  "\cm" => '\cm',
  "\cj" => '\cj',
  "\n" => '\n', # probably overrides one of either \cm or \ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1369	1470	
==>ed a stack depth and a string for label gen and some
	# storage for stack depths and stack type states <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	456	557	
==>ed a stack depth and a string for label gen and some
	# storage for stack depths and stack type states <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12169	12308	
==>ng 
        # the CSS and images somehow.
        
        return $href if defined $href;
    }
    
    return 'TODO';
}

=item C<href_for_ <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	19256	19356	
==>s prohibited.
    User definition of accessor allowed.
    Treatment of '*' in element types correcte <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	3854	3947	
==>reset;

Reinitializes the Test::Builder singleton to its original state.
Mostly useful for tes <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11004	11096	
==>($k), ' => ', $v, "\n";
  }
}

#------------------------------------------------------------- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129723	129884	
==>"
                            ],
                  "BODY" => "#line 301 \"src/ops/bit.ops\"\n  {{\@1}} ^= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130462	130623	
==>"
                            ],
                  "BODY" => "#line 301 \"src/ops/bit.ops\"\n  {{\@1}} ^= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	4909	5030	
==>EOM

    }
    $macros .= <<"EOM";
/* &end_gen */

EOM

    # finally the name mapping
    $macros .= <<"EOM";
/*
 * vtabl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822461	822712	
==>= UVal_int(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823529	823780	
==>= UVal_int(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	14336	14428	
==>peer_block->block;
        my $loop = Jako::Construct::Block::Loop::Continue->new($parent_blo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934076	934298	
==>1}} = string_downcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934851	935073	
==>1}} = string_downcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/config/init/hints/solaris.pm	387	581	
==>s !~ /-lrt\b/) {
        $libs .= ' -lrt';    # Needed for sched_yield.
    }
    $conf->data->set(libs => $libs);

    ################################################################
    # If w <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293459	293722	
==>ng_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294335	294598	
==>ng_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295211	295474	
==>ng_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1924	2042	
==>}:\n".
			  "Please recompile parser module.";

        ref($class)
    and $class=ref($class);

    bless($self, <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1858	1970	
==>}:\n".
			  "Please recompile parser module.";

        ref($class)
    and $class=ref($class);

    bless($self, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1413	1519	
==>g_token->file, $arg_token->line );
    $self->set_symbol($arg_name, $sym);
  }

  return $self;
}


#
# ACC <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	10775	10916	
==>semicolons
      [;\n\s]*
      (?:/\*.*?\*/)?    # C-like comments
    )*

    (METHOD\s+)?        #method flag

    (\w+\**)            #typ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	14309	14420	
==>)$/i
  ) {
    $self->output_fh( *STDOUT{IO} );
  } else {
    require Symbol;
    my $out_fh = Symbol::gensym() <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	5410	5538	
==>, undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^( \+\+ | -- )(.*)$}x) {
      push @tokens, Jako::Token->n <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	11045	11154	
==>\"$new_code\" codes -- it's a builtin!"
     if grep $new_code eq $_, @Known_formatting_codes;

    delete $th <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5396	5500	
==>d by C<goto_offset()>.

=item C<expr_address($address)>

Implemented in subclasses to return the C code f <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2976	3095	
==>op' });
    $handler->end_element({ Name => 'block' });
    $handler->start_element({ Name => 'block', Attributes => { k <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3650	3769	
==>op' });
    $handler->end_element({ Name => 'block' });
    $handler->start_element({ Name => 'block', Attributes => { k <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3740	3859	
==>op' });
    $handler->end_element({ Name => 'block' });
    $handler->start_element({ Name => 'block', Attributes => { k <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4049	4152	
==>r (1..$pushes) {
		$pir .= <<'PIR';
# Increment stack depth.
inc stack_depth

# Get type (so we can find <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2465	2568	
==>r (1..$pushes) {
		$pir .= <<'PIR';
# Increment stack depth.
inc stack_depth

# Get type (so we can find <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39596	39699	
==>t_run_meth_fromc_args$ret_type(interpreter, sub,
        pmc, meth, "$sig"$arg);
    $ret
}

EOC
}

pack <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	7522	7642	
==>:]+)>?/) {
	    $in_info = 1;
	    $cur_f = $1;
	}
	elsif ($in_info) {
	    if (/^#/) {
		if (/# getargs\s+\(\[(.*)\], (. <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	1883	1979	
==>iption)>

Runs the Parrot Assembler code and passes the test if a string comparison
of the output <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	2324	2420	
==>iption)>

Runs the Parrot Assembler code and passes the test
if a string comparison of the output <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7153	7279	
==>, @{$options{reject}})
		    : defined($options{reject})	       ? $options{reject}
		    :					 ''
		    ;
	my $ignore  = ref($ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24155	24281	
==>, @{$options{reject}})
		    : defined($options{reject})	       ? $options{reject}
		    :					 ''
		    ;
	my $ignore  = ref($ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1548	1672	
==>else {
    $compiler->emit("  $left = $right");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handle <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	4347	4480	
==>code_t *pc = CUR_OPCODE;\n    DO_OP(pc, interpreter);\n    {{=pc}};\n",
                  "LABELS" => []
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	3480	3605	
==>===\n";
        my @funcs = extract_functions( $source );

        for my $func ( @funcs ) {
            push( @{$files{$hfile <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170874	171293	
==>ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 205,
                  "ARGS" => [
                              "p",
                              "nc",
                              "ic"
                            ],
                  " <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1894	2006	
==>le with version $$self{VERSION}:\n".
			  "Please recompile parser module.";

        ref($class)
    and $cl <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1828	1936	
==>le with version $$self{VERSION}:\n".
			  "Please recompile parser module.";

        ref($class)
    and $cl <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10157	10264	
==>g') {
        return _negate_incexc(_translate_classpieces($pieces->[1]));
    }

    # Convert "a-b" to [97 <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4245	4346	
==>the return
value of an C<expr_I<X>> method (implemented in subclass).

=cut

sub gen_goto 
{
    my ($ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5266	5361	
==>name of the destination register emulating the stack position and
	# generate a move instruction <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51429	51722	
==>=> [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 66,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 815 \"src/ops/core <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	5291	5400	
==>ng, $1;
		}
		elsif ($$textref =~ m/\G($rdel)/gc)
		{
			my ($found, $brackettype) = ($1, $1);
			if ($#nestin <==
3	/Users/nnunley/parrot/Configure.pl	92	190	
==>7 2006-05-30T15:23:20.183054Z coke  $

=head1 NAME

Configure.pl - Parrot's Configuration Script

= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122017	122116	
==>t evil enough to kill.\n   * it's just casting a signed integral to the equivalent unsigned.\n   */\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122929	123028	
==>t evil enough to kill.\n   * it's just casting a signed integral to the equivalent unsigned.\n   */\ <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	3867	3964	
==>= join("", @params);
  print OUTPUT "dlfunc P2, P1, '$name', '$signature'\n";
  print OUTPUT "stor <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	2365	2559	
==>LS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cpu_ret",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	1668	1824	
==>file if we can find tests...
        my $output;
        eval {
            $output = format_tests(%tests);
        };
        if ($@) {
            warn "Wa <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2202	2304	
==>ster_num/g;
		$pir =~ s/\$push_num/$push_num/g;
		$register_num++;
		$push_num++;
	}

	# Return generat <==
3	/Users/nnunley/parrot/config/inter/charset.pm	1422	1524	
==>rset/ascii.h src/charset/$charset.c \$(NONGEN_HEADERS)


END
    }

    # build list of libraries for l <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7061	7163	
==>ns the title of the file.

=cut

sub title
{
	my $self = shift;

	return $self->name unless $self->cont <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	4384	4483	
==>~ m{^(next|last|redo|goto|return)(?!\w)(.*)$}) {
      push @tokens, Jako::Token->new(
        $file <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	29823	30000	
==>$next ]),
                 $back => aop('call' => [ $name, 0, $uid ]),
                          aop('goto' => [ $handle ]),
                 $next =>
              );
    return <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1552	1690	
==>t,
                NBERR => \$nberr,
				TOKEN => \$token,
				VALUE => \$value,
				DOTPOS => \$dotpos,
				STACK => [],
				DEBUG = <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1500	1632	
==>t,
                NBERR => \$nberr,
				TOKEN => \$token,
				VALUE => \$value,
				DOTPOS => \$dotpos,
				STACK => [],
				DEBUG = <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	7464	7578	
==>le->\s*(\w+)\(
        !VTABLE_$1(!sgx;

    while (1)
    {
        my $new_body = $self->_substitute($body, $tran <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5664	5770	
==>return $return;
}

sub _op_quote {
  my ($self, $node) = @_;
  my $return = $self->_save_1 ('P');

  _num_a <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	861	962	
==>ndef.  This will also trigger any hints-file
    # callbacks that depend on knowing whether or not we' <==
3	/Users/nnunley/parrot/config/auto/msvc.pm	797	898	
==>ndef.  This will also trigger any hints-file
    # callbacks that depend on knowing whether or not we' <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	22347	22476	
==>NULL,   /* class */
        NULL,   /* mro */
        $methlist
    };
EOC

    my $const = ($self->{flags}{dynpmc}) ? " " : " con <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	22565	22673	
==>lation code for $name\n";
	$name =~ s/\./_/g;
	$pir .= "INS_TRANS_$name:\n";

    # Emit trace code.
    $pir <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	5666	5759	
==>EXTENSION\n";
}
print HEADER <<END_C;
#include "parrot/parrot.h"
#include "parrot/oplib.h"

$s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727612	727896	
==>@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exchange" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	728409	728693	
==>@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exchange" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729203	729487	
==>@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exchange" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	1335	1438	
==>pe?
  my $prefix = shift; # Optional: string

  confess "Use Jako::Construct::Block::Bare, not Jako::Con <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033152	1033246	
==>ODY" => "#line 41 \"src/ops/var.ops\"\n    parrot_context_t * const ctx = CONTEXT(interpreter-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034250	1034344	
==>ODY" => "#line 41 \"src/ops/var.ops\"\n    parrot_context_t * const ctx = CONTEXT(interpreter-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052022	1052259	
==>[
                              "p",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 172 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7289	7390	
==>gnore}) eq 'ARRAY' ? join('|', @{$options{ignore}})
		    : defined($options{ignore})	       ? $option <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24291	24392	
==>gnore}) eq 'ARRAY' ? join('|', @{$options{ignore}})
		    : defined($options{ignore})	       ? $option <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	53703	53835	
==>_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 63
		 'exp', 3,
sub
#line 361 "Lua\lua51.yp"
{
            BuildBinop( $_[ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	35999	36121	
==>ngArray\n";
        $mv->{'PARAMS'} = 'c_params';
        push @localmv, 'PARAMS';

        # If we don't have an ARG0, we' <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	12078	12186	
==>lt)
.end

.sub unicode:"monadic:\u2191" # first
    .param pmc op1
    $P1 = shift op1
    .return ($P1)
.end <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	40579	40703	
==>nd print "Considering this a pod link (not man or url).\n";
      }

      if( defined $section_name ) {
        $ell->[1]{'s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4036	4157	
==>ven generates one for the given document).

This is a subclass of L<Pod::Simple> and inherits all its methods.

=head1 SEE <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	1731	1843	
==>ara_count'} ||= 0;

  my $line;
  foreach my $source_line (@_) {
    if( $self->{'source_dead'} ) {
      DEBUG > <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100674	100941	
==>"JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 125, <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	2250	2356	
==>e SharedRef deleg_pmc );

sub class_name {
    my ($self, $class) = @_;

    my $classname = $self->{class} <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4186	4290	
==>=> "(*(FLOATVAL *)cur_opcode[%ld])",
        'sc' => "((STRING *)cur_opcode[%ld])",
        'pc' => "((PM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503044	503266	
==>78,
                  "ARGS" => [
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 626 \"src/ops/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722771	723035	
==>rint_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 81 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723800	724064	
==>rint_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 81 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721743	722006	
==>rint_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 8 <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2315	2443	
==>.
        $liblist = join( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ /gcc/i) {
            $liblist =~ s/gdbm\.lib/ <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2607	2735	
==>.
        $liblist = join( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ /gcc/i) {
            $liblist =~ s/gdbm\.lib/ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2402	2530	
==>.
        $liblist = join( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ /gcc/i) {
            $liblist =~ s/gdbm\.lib/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462937	463243	
==>@2}}, den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463934	464240	
==>@2}}, den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464931	465237	
==>@2}}, den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30467	30570	
==>_$_
DISP
	}
	print CODE <<DISP2;
	print "Structure type of "
	print S0
	print " not found\\n"
	_platform <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30800	30903	
==>_$_
DISP
	}
	print CODE <<DISP2;
	print "Structure type of "
	print S0
	print " not found\\n"
	_platform <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838806	839046	
==>NTRY_PMC);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "res <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835722	835805	
==>\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, string_copy(inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836475	836558	
==>\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, string_copy(inte <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	2560	2703	
==>P => "PMC *",
       S => "STRING *",
       I => "INTVAL",
       N => "FLOATVAL",
     );

my %ret_assign =
     ( p => "PMC_data(final_destin <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16457	16594	
==>KLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
            return $x;
        }
    }

    foreach my $x (@_) 
    {
        # Pod::S <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1101	1205	
==>func_name()> to individuate op function names.

=cut

sub prefix 
{ 
    return 'Parrot_'; 
}

=item C<su <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1564	1689	
==>iler->emit("  $left = $right");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $hand <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5828	5934	
==>pir = '';

	# Branches mean we need to deal with basic block-ish stuff. If the branch
	# did not pop anythi <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3766	3872	
==>pir = '';

	# Branches mean we need to deal with basic block-ish stuff. If the branch
	# did not pop anythi <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11334	11450	
==>{
		return "S";
	}
	if ($func=~/\$$/) {
		return "S";
	} else {
		return "N";
	}
}
sub generate_code {   # Will retur <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35781	35876	
==>lanned, the missing (or extras)
will be considered failures.  If no tests were ever run Test::Bu <==
3	/Users/nnunley/parrot/lib/Test/More.pm	33852	33947	
==>lanned, the missing (or extras)
will be considered failures.  If no tests were ever run Test::Bu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	324	449	
==>e Carp;


#
# new()
#

sub new
{
  confess "Subclass responsibility";
}


#
# debug()
#

sub debug
{
  my $self = shift;

  if <==
3	/Users/nnunley/parrot/lib/Test/More.pm	3679	3775	
==>and
exit immediately with a zero (success).  See L<Test::Harness> for
details.

If you want to co <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12381	12471	
==>elative to the current
documentation page. Currently only F<lib/Parrot> modules are linkabl <==
3	/Users/nnunley/parrot/lib/Test/More.pm	5533	5628	
==>easier
to find the test in your script, simply search for "simple
exponential".

All test functi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853335	853423	
==>100 \"src/ops/string.ops\"\n  {{\@1}} = string_append(interpreter, {{\@1}}, {{\@2}}, 1);\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854117	854205	
==>100 \"src/ops/string.ops\"\n  {{\@1}} = string_append(interpreter, {{\@1}}, {{\@2}}, 1);\ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	27889	27990	
==>is, \@that) );

C<is_deeply()> can do that better and with diagnostics.  

    is_deeply( \@this, \@th <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11987	12085	
==>er(shift)->errors_seen" \
   thingy.pod


=head1 DESCRIPTION

This class is for TODO.
This is a sub <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	131	228	
==>routines specific to 'm4'.

=head1 DESCRIPTION

Call 'Parrot m4' and 'GNU m4'.

=cut

package Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56332	56423	
==>=> "#line 869 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo_p(interpreter, {{\@2}});\n  {{+=3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57094	57185	
==>=> "#line 869 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo_p(interpreter, {{\@2}});\n  {{+=3 <==
3	/Users/nnunley/parrot/languages/converter.pl	1371	1480	
==>efined $item[1][0];
		  $return .= "# $item[2]\n";
		  $return .= $item[3][0] if defined $item[3][0];
 		}
		| <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088844	1088934	
==>ODY" => "#line 186 \"src/ops/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(inter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089792	1089882	
==>ODY" => "#line 186 \"src/ops/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(inter <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	3479	3591	
==>}
sub false {
	my($type)=@_;
	if ($type eq "N") {
		return "0.0";
	} else {
		return qq{""};
	}
}
my $eqnum=0;
my <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	16105	16209	
==>se}_NO_TO:
	push P9, "and"
	push P9, "OP"
	push P9, ">="
	push P9, "OP"
	P0= P5
	bsr RUNTIME_PUSH
	pop P0 <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	6994	7085	
==>ok ", $Test::num_of_tests_run, $out, $context_out;

    Test::report_failure($context, $got, <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	629	743	
==>value => 'quote' }] };
    my $expr;
    $count++;
    ($count, $expr) = _build_tree ($tokens, $count);
    push @{ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16594	16708	
==>) ? $_[0] : join '', @_)
    ) =~ s/([F\x00-\x1F\\\{\}\x7F-\xFF])/$Escape{$1}/g;  # ESCAPER
             # Escape \ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35648	35805	
==>ate following ", $paras->[0][0], "\n";
              push @$para, '';  # Just so it's not contentless
            }
          }

        } else {
          di <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	11072	11190	
==>othing else
        my $test = !defined $got && !defined $expect;

        $self->ok($test, $name);
        $self->_is_ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	11490	11608	
==>othing else
        my $test = !defined $got && !defined $expect;

        $self->ok($test, $name);
        $self->_is_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302105	302256	
==>p.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302981	303132	
==>p.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303857	304008	
==>p.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	13267	13379	
==>e_t i;
    op_info_t * info = ${bs}op_lib.op_info_table;
    /* store full names */
    for (i = 0; i < ${bs}op_l <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13368	13468	
==>, 1, "user-type first"
type first
	foo as integer
	bar as string
end type
type second
	other as first <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	42875	42968	
==><perlop(3)>) Nested backslashed delimiters, embedded balanced bracket
delimiters (for the quot <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4618	4731	
==>on hooks.
sub pre_branch($) {
	my $self = shift;
	my $pops = shift;
	my $register_num = 0;
	my $pir = '';

	# Do c <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3034	3147	
==>on hooks.
sub pre_branch($) {
	my $self = shift;
	my $pops = shift;
	my $register_num = 0;
	my $pir = '';

	# Do c <==
3	/Users/nnunley/parrot/languages/javascript/bootstrap.pm	29	127	
==>ct;

use JavaScript;

my $runtime = new JavaScript::Runtime;
my $context = $runtime->create_context <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	3953	4071	
==>Returns whether the file is generated.

=cut

sub is_generated
{
    my $self = shift;
    
    # CFLAGS
    # libparro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614992	615100	
==>exception(interpreter, next, NO_CLASS,\n            \"Class not parent of object\");\n    }\n    {{\@1}} = of <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616143	616251	
==>exception(interpreter, next, NO_CLASS,\n            \"Class not parent of object\");\n    }\n    {{\@1}} = of <==
3	/Users/nnunley/parrot/config/auto/cgoto.pm	1189	1271	
==>e_ops_cg.c
$(OPS_DIR)/core_ops_cgp$(O): $(GENERAL_H_FILES) $(OPS_DIR)/core_ops_cgp. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447760	447862	
==>"src/ops/math.ops\"\n  if ({{\@2}} < 0) {\n    {{\@1}} = - (INTVAL){{\@2}};\n  }\n  else {\n    {{\@1}} <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	16917	17015	
==>es (which can be
found in the given directories). A '*.pmc' glob may also be passed
to emulate a pr <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1764	1869	
==>ug mode

=head1 SYNOPSIS

 use Pod::Simple::Debug (5);  # or some integer

Or:

 my $debuglevel;
 use Pod: <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	11180	11278	
==>\n" if $self->{DEBUG};

    push @ops, split(/\n/, <<'END');
my %rx_match;
$rx_match{'!INPUT'} = $r <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	3619	3710	
==>r->start_element({ Name => 'var', Attributes => { type => $self->type->name, name => $self-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90308	90610	
==>" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91161	91463	
==>" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92015	92317	
==>" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3288	3408	
==>pe($5), $6));

        # make the test print the last line of output
        # XXX This should be "print the last command <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4695	4815	
==>pe($5), $6));

        # make the test print the last line of output
        # XXX This should be "print the last command <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5211	5350	
==>>{result} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $first = 1;
            foreach ( @{ $op->{res <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6243	6382	
==>>{result} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $first = 1;
            foreach ( @{ $op->{res <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	38460	38555	
==>ence contains one or more strings specifying patterns
that are I<not> be be treated as nested ta <==
3	/Users/nnunley/parrot/lib/Test/More.pm	25540	25654	
==>k;
    if( !ref $this and !ref $that ) {  		# neither is a reference
        $ok = $Test->is_eq($this, $that, $name <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2850	2962	
==>YError {
	my($self)=shift;

	${$$self{CHECK}}='ERROR';
    undef;
}

sub YYSemval {
	my($self)=shift;
	m <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	17092	17199	
==>lude, @files) = @_;
    # help these dumb 'shells' that are no shells
    @files = glob $files[0] if $files[ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2715	2818	
==>YError {
	my($self)=shift;

	${$$self{CHECK}}='ERROR';
    undef;
}

sub YYSemval {
	my($self)=shift;
	m <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2195	2306	
==>ount );
        my $lang_out_fn = $self->get_out_fn( $count );
        my @test_prog   = $self->get_test_prog( $ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34800	34905	
==>ame"} .'})
							if defined $::RD_TRACE;').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::R <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41910	42015	
==>ame"} .'})
							if defined $::RD_TRACE;').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::R <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123253	123594	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124126	124467	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125000	125341	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	4952	5051	
==>self = shift;

    return $self->{ARGDIRS}[shift];
}

=item C<body($body)>

=item C<body()>

Sets/ge <==
3	/Users/nnunley/parrot/lib/Test/More.pm	8543	8641	
==>ooklyn{tree}> is true, it checks if
it returns 1.  Very different.  Similar caveats exist for false <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	7342	7426	
==>rrot_jit_vtable_112_op Parrot_jit_normal_op
#define Parrot_jit_vtable_221_op Parrot_j <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683051	683273	
==>}}->vtable->shift_string(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	3551	3661	
==>$line, $pc, $opcode, $arg, $rest) = ($1, $2, $3, $4, $5);
	$opcode =~ s/\+/_plus_/;
	## print STDERR "Op: '$opc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432254	432483	
==>ic",
                              "p",
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 84 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pip <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10628	10726	
==>, 'Th', 'ss',
'a', 'a', 'a', 'a', 'a', 'a', 'ae', 'c', 'e', 'e', 'e', 'e', 'i', 'i', 'i', 'i',
'd', <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10013	10105	
==>.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC}:
if $ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7527	7619	
==>.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC}:
if $ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6491	6583	
==>.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC}:
if $ <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	7979	8089	
==>th_name
{
    my $self = shift;
    my $path = $self->path_for_file_with_name(shift) || return;
    
    return <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8577	8687	
==>th_name
{
    my $self = shift;
    my $path = $self->path_for_file_with_name(shift) || return;
    
    return <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	3669	3764	
==>ffsetlinenum}
			 - Parse::RecDescent::_linecount(${$self->{text}})
			 + 1;

	$parser->{offsetl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	512576	512866	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_neg",
                  "FLAGS" => ":bas <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6990	7159	
==>the eof
				and	$$token=$$value=undef;
                next;
            };

            #reduce
            my($lhs,$len,$code,@sempar,$semval);
            ($lhs <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6665	6827	
==>the eof
				and	$$token=$$value=undef;
                next;
            };

            #reduce
            my($lhs,$len,$code,@sempar,$semval);
            ($lhs <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2821	2942	
==>"-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPAR <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3130	3251	
==>"-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPAR <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2925	3046	
==>"-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPAR <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	11511	11610	
==>t.

=over 4

=item Scalar (C<'$'> or C<'*$'>)

The element is a scalar, and by default is initialize <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	667	766	
==>ENV{TEST_PROG_ARGS} || '';

    $lang_f = File::Spec->rel2abs($lang_f);
    $out_f  = File::Spec->re <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	704	803	
==>ENV{TEST_PROG_ARGS} || '';

    $lang_f = File::Spec->rel2abs($lang_f);
    $out_f  = File::Spec->re <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	525	626	
==>e funcs without docs

* Generate docs from funcs

* Test the POD of the stuff we're parsing.

=head1 C <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17327	17422	
==>colon;

      my $arith = Jako::Construct::Statement::Concat->new($block, $ident, $left, $op, $r <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	1181	1277	
==>ar (sort keys %{$code{$seg}->{declarations}}) {
			if ($var=~/_string$/) {
				print CODE "\t.loc <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	24	111	
==>e Perl Foundation.
# $Id: /parrot/lib/Parrot/Docs/Section/Tools.pm 20333 2006-06-21T18:4 <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3520	3636	
==>y, $out];
    }

    return %tests;
}

##
## $preamble = extract_preamble($string)
##
## Extract the preamable for te <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4880	4974	
==>P0} = ${STYPES}[${ITEMP0}]

# We'll use register $[INSP]0.
${STACK0} = "$"
${STEMP1} = ${PTEMP0 <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11793	11892	
==>'$method'\n"
      unless defined $super_table->{$method};
    my $supermethod = "Parrot_" . $super_ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16786	16884	
==>xyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
        # Leave out "- so that "-- <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10230	10324	
==>xyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
    # Leave out "- so that "-- <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	8050	8153	
==>($pre)/gc)
	{
		_failmsg "Did not find prefix: /$pre/", pos $$textref;
		goto failed;
	}

	$opentagpos = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141272	141569	
==>FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 173,
                  "ARGS <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	3143	3240	
==>ent({ Name => 'goto', Attributes => { label => $name } });
  $handler->end_element({ Name => 'goto <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	286	375	
==>Docs::Section::Parrot->new->write_html;

=head1 DESCRIPTION

This is the top-level section <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544651	544981	
==>\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lcm",
                  "FLAGS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545987	546317	
==>\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lcm",
                  "FLAGS" => <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	5393	5510	
==>ections\n";
}

if ($Version) {
    show_version();
    exit(0);
}

if ($Help) {
    show_help();
    exit(0);
}

unles <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	2083	2187	
==>status of the Parrot test suite.', 't/TESTS.STATUS.pod'),
        ),
        $self->new_group('People', ' <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13368	13456	
==>>_generate(_get_arg($node,1));
  $self->_add_inst('','not',[$return,$return]);

  $return <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4351	4460	
==>link of $group failed ($?)\n";
    }

    # Link non-grouped PMCs individually
    my @ungrouped_pmcs = grep { <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4455	4564	
==>link of $group failed ($?)\n";
    }

    # Link non-grouped PMCs individually
    my @ungrouped_pmcs = grep { <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	1694	1785	
==>::Tree);
@Regex::Ops::Tree::advance::ISA      = qw(Regex::Ops::Tree::_atom);

@Regex::Ops::T <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	1018	1142	
==>ch;
			$numtype="FLO";
			goto NUMCONST;
		}
		# Falls through!
		if ($cur =~ /[#!&%]/) {
			append;
			fetch;
			if ($cur =~ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5286	5380	
==>_element({ Name => 'assign' });
  $dest->sax($handler);
  $handler->start_element({ Name => 'op <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3349	3443	
==>_element({ Name => 'assign' });
  $dest->sax($handler);
  $handler->start_element({ Name => 'op <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	12013	12137	
==>cale.h
localtime   time.h
log         math.h
log10       math.h
log10f      math.h
log10l      math.h
log1p       math.h
log1 <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	6143	6244	
==>paring for a release.
    $context = "TODO for release"
        if index($Test::force_todo_test_juncti <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8589	8670	
==>OMPUTER"
data "DAMAGES","DESTRUCT","DOCK","IDLE","IMPULSE","LRSCAN","NAVIGATE","PH <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21453	21534	
==>OMPUTER"
data "DAMAGES","DESTRUCT","DOCK","IDLE","IMPULSE","LRSCAN","NAVIGATE","PH <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353714	353906	
==>(interpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354459	354651	
==>(interpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355226	355418	
==>(interpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53339	53455	
==>\n  else         { Interp_flags_CLEAR(interpreter, PARROT_GC_DEBUG_FLAG); }\n  {{+=2}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54095	54211	
==>\n  else         { Interp_flags_CLEAR(interpreter, PARROT_GC_DEBUG_FLAG); }\n  {{+=2}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/config/auto/format.pm	196	294	
==>TION

Figures out what formats should be used for C<sprintf()>.

=cut

package auto::format;

use s <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7103	7201	
==>t "Start (11): ", instr(6, s1$, " ")
print "Inval  (0): ", instr(4, bogus$, "t")
' instr() tests
s1 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18832	18930	
==>t "Start (11): ", instr(6, s1$, " ")
print "Inval  (0): ", instr(4, bogus$, "t")
' instr() tests
s1 <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	17741	17829	
==>\G((?:m|s|qq|qx|qw|q|qr|tr|y)\b(?=\s*\S)|<<)}gc)
	{
		_failmsg q{No quotelike operator fo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	331535	331708	
==>ne 40 \"src/ops/io.ops\"\n  PIO_close(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ] <==
3	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	2145	2276	
==>GV) {
        my $src = $obj;
        $src =~ s/\.o/\.c/g;
        copy_file($src, "miniparrot/$src");
    }
}

sub copy_src {
    p <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	4546	4637	
==>Pod::Simple::Checker> on the contents of the file. Executable
files, and F<*.dump> files are <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259809	260063	
==>CODE" => 302,
                  "ARGS" => [
                              "i",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 793 \"src/ops/cmp.ops\"\n    {{\@1}} = {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895812	896122	
==>CODE" => 1011,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic",
                              "ic",
                              "sc"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.op <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	16246	16350	
==>="
	push P9, "OP"
	P0= P5
	bsr RUNTIME_PUSH
	pop P0, P13
	bsr RUNTIME_PUSH
	dec I5
	gt I5, 0, CASE_${jump <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864163	864401	
==>terpreter, {{\@2}}));\n  }\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	865055	865293	
==>terpreter, {{\@2}}));\n  }\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
3	/Users/nnunley/parrot/config/inter/shlibs.pm	199	292	
==>ESCRIPTION

Asks the user which flags are needed for compiling position-independent code
for u <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032513	1032804	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_lex",
                  "FLAGS" => "",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033610	1033901	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_lex",
                  "FLAGS" => "",
                  " <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	3295	3392	
==>ext="#stay" String="#.*\$" />
          <RegExpr attribute="Comment" context="pod" String="^\\=($p <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1302	1431	
==>rrot.
        # And, conversely, how many levels we have to go down to get to
        # the tcl binary.

        # There are basic <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	772	889	
==>rrot.
    # And, conversely, how many levels we have to go down to get to
    # the tcl binary.

    # There are basic <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	1930	2027	
==>Parrot::OpTrans::CPrederef>

=back

=cut

use strict;
use lib 'lib';

use Pod::Usage;
use Getopt:: <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5004	5134	
==>len();
        return undef if ! defined $kidmax;
        $maxlen += $kidmax;
    }
    return $maxlen;
}

sub startset {
    my $o <==
3	/Users/nnunley/parrot/config/gen/platform.pm	224	322	
==>tform-specific files into place.

=cut

package gen::platform;

use strict;
use warnings;

use base <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	21370	21462	
==>ub { extract_quotelike($_[0],'') },
	sub { extract_codeblock($_[0],'{}','') },
];

sub extrac <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	2370	2568	
==>> $1,
                method          => $2,
                unimplemented   => $3 ? 1 : 0,
                body            => ''
            };

        # Have we got a blank line that we should ski <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2509	2618	
==>= P0	# Hack in the alias

SHARING
		} else {
			print CODE<<SHARING;
	# Sharing $stype $var with main  (array= <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	10526	10617	
==>imple::Transcode::->encoding_is_available($e) ) {

    die($enc_error = "WHAT? _transcoder i <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3838	3958	
==>mcs);

    # lib-GROUP.c
    for my $group (keys %$group_files) {
        compile("$group", "lib-$group")
          or di <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3942	4062	
==>mcs);

    # lib-GROUP.c
    for my $group (keys %$group_files) {
        compile("$group", "lib-$group")
          or di <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	10827	10917	
==>ed $return;'.($::RD_NO_TRACE?'':'
	if (defined $::RD_TRACE)
	{
		Parse::RecDescent::_trace( <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	29203	29332	
==>=> [ $_var,         $_limit,       $_step ],
        'arg1'   => $fct,
        'arg2'   => [ $e_start->[0], $e_limit->[0], $e_st <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4053	4169	
==>ry parameter '".lc($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _DBLoad {
	{
		no strict 'r <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3850	3956	
==>ry parameter '".lc($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _DBLoad {
	{
		no strict 'r <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	26309	26449	
==>n?
        shift @$paras;
        next;
        
      } elsif($paras->[0][0] eq '~end') {
        $self->whine(
          $para->[1]{'start_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	19355	19459	
==>rint " Considering children of this $treelet->[0] node...\n";
    for($i = 2; $i < @$treelet; ++$i) { # i <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	21998	22102	
==>rint " Considering children of this $treelet->[0] node...\n";
    for($i = 2; $i < @$treelet; ++$i) { # i <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1069	1320	
==>4 * $I1;              # mul    I5, I4, I1
                              #
print "Estimated ops: $I5\n"; # print  "Estimated ops: "
                              # print  I5
                              # print  "\n"
                              #
$N1 <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	1069	1320	
==>4 * $I1;              # mul    I5, I4, I1
                              #
print "Estimated ops: $I5\n"; # print  "Estimated ops: "
                              # print  I5
                              # print  "\n"
                              #
$N1 <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	7025	7200	
==>pragma} eq 'multi' ) {
                print {$FH} " :flat";
            }
            $first = 0;
        }
        print {$FH} ")\n";
    }

    sub visitBranchIfOp { <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22162	22279	
==>gnoring mistargetted =end $content\n";
        next;
      }
      
      unless(@$curr_open and $curr_open->[-1][0] e <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1138	1250	
==>eturn $name;
}

sub dbgoto {
    my ($self, $label) = @_;
    return () unless $self->{DEBUG};
    return () unle <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	628	740	
==>eturn $name;
}

sub dbgoto {
    my ($self, $label) = @_;
    return () unless $self->{DEBUG};
    return () unle <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	11057	11189	
==>e Win line endings
            convert_line_endings( $expected );

            # set up default description
            unless ( $des <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	16542	16674	
==>e Win line endings
            convert_line_endings( $expected );

            # set up default description
            unless ( $des <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	47225	47322	
==>ent, including any quotes),

=item [5]

"This is the message.\n" (i.e. the text of the here docume <==
3	/Users/nnunley/parrot/lib/Test/More.pm	9269	9364	
==>xpression.  It may be given as a
regex reference (i.e. C<qr//>) or (for better compatibility wit <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	12539	12630	
==>UTHOR

Gregor N. Purdy E<lt>gregor@focusresearch.comE<gt>

=head1 COPYRIGHT

Copyright (C) 2 <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	7683	7774	
==>UTHOR

Gregor N. Purdy E<lt>gregor@focusresearch.comE<gt>

=head1 COPYRIGHT

Copyright (C) 2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032649	1032892	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_lex",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033746	1033989	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_lex",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15351	15449	
==>$node) = @_;

  _num_arg ($node, 2, 'set-car!');

  my $return = $self->_generate (_get_arg($node,1 <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	32245	32360	
==>, that's your job.

=cut

sub _my_exit {
    $? = $_[0];

    return 1;
}


=back

=end _private

=cut

$SIG{__DIE__ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5486	5581	
==>_C
}

=item C<run_core_finish($base)>

Returns the C code following the run core function.

=cut <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3822	3917	
==>_C
}

=item C<run_core_finish($base)>

Returns the C code following the run core function.

=cut <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3819	3927	
==>gnore this form for now.
	}
	if ($syms[CURR] eq "#") {
		feedme();
		$fd=$syms[CURR];
		feedme();
		die "Expe <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1441	1540	
==>eturn $self->{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/gets the transform's argumen <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1050	1149	
==>eturn $self->{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/gets the transform's argumen <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	40997	41093	
==>erl build/translator.pl src/translation.rules --srm Stack \
    --ouptput src/it.pir
USAGE
    ex <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2236	2361	
==>on for:   no strict 'refs';
        my $pass = $self->{builder}->$builder_func(
                       Parrot::Test::slurp_fil <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2775	2900	
==>on for:   no strict 'refs';
        my $pass = $self->{builder}->$builder_func(
                       Parrot::Test::slurp_fil <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2709	2826	
==>on for:   no strict 'refs';
        my $pass = $self->{builder}
            ->$builder_func( Parrot::Test::slurp_fil <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902110	902306	
==>"ic",
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196327	196463	
==>"
                            ],
                  "BODY" => "#line 335 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	56	145	
==>t/lib/Parrot/OpTrans.pm 20321 2006-06-20T20:02:00.179448Z bernhard  $

=head1 NAME

Parrot <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6709	6831	
==>with blank line at ${$self}{'line_count'}\n"; 
      }
      
      $self->{'last_was_blank'} = 1;
      
    } elsif($self <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6782	6901	
==>mp failed ($?)\n";
    }
}

sub generate_c {
    my ($pmc) = @_;

    if (needs_build("$pmc.c", "$pmc.pmc")) {
        r <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6993	7112	
==>mp failed ($?)\n";
    }
}

sub generate_c {
    my ($pmc) = @_;

    if (needs_build("$pmc.c", "$pmc.pmc")) {
        r <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2930	3068	
==>HQUOTE$LIBPARROT$PATHQUOTE";
}

our $NOW = time();

################### MAIN PROGRAM ################

my ($mode, @pmcs) = @ARGV;

if ($mod <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3034	3172	
==>HQUOTE$LIBPARROT$PATHQUOTE";
}

our $NOW = time();

################### MAIN PROGRAM ################

my ($mode, @pmcs) = @ARGV;

if ($mod <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2017	2117	
==>export {
    my $test := not($got ~~ $expected);
    Test::proclaim($test, $desc, $todo, $got, $expec <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135498	135641	
==>}} = string_bitwise_xor(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136392	136535	
==>}} = string_bitwise_xor(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137286	137429	
==>}} = string_bitwise_xor(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2764	2885	
==>compile($compiler);
      $compiler->emit("  $temp = $value");
      $args[$i] = $temp;
    }
    else {
      $args[$i] = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2464	2585	
==>compile($compiler);
      $compiler->emit("  $temp = $value");
      $args[$i] = $temp;
    }
    else {
      $args[$i] = <==
3	/Users/nnunley/parrot/config/init/hints/freebsd.pm	56	143	
==>t/config/init/hints/freebsd.pm 19593 2006-05-30T02:28:15.110975Z coke  $

package init:: <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1376	1520	
==>};
    }
    return [ $defn, $opcodes ];
}

sub PushScopeF {
    my ($parser) = @_;

    PushScope($parser);
    push @{ $parser->YYData <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3463	3553	
==>EMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}
goto PRE <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5225	5315	
==>EMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}
goto PRE <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6217	6406	
==>T})
                        ?   $$actions{DEFAULT}
                        :   undef;
        }
        else {
            $act=$$actions{DEFAULT};
#DBG>			$debug & 0x01
#DBG>		and	pr <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5927	6109	
==>T})
                        ?   $$actions{DEFAULT}
                        :   undef;
        }
        else {
            $act=$$actions{DEFAULT};
#DBG>			$debug & 0x01
#DBG>		and	pr <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	1766	1875	
==>}
		return @res;
	}
	else
	{
		my $match = substr($$textref,$_[0],$_[1]);
		substr($match,$extrapos-$_[0]-$sta <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1895	2069	
==>50 \"src/ops/core.ops\"\n  {{=0}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439574	439682	
==>dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440589	440697	
==>dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79023	79124	
==>}) ? NULL : PMC_data({{\@2}}), name);\n  string_cstring_free(name);\n  if (p == NULL) {\n      const c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80544	80645	
==>}) ? NULL : PMC_data({{\@2}}), name);\n  string_cstring_free(name);\n  if (p == NULL) {\n      const c <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	10735	10830	
==>unction currently uses `require()` since Pugs does not yet have
a proper `use()` builtin.

- `ok <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	933617	933899	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1049,
                  "ARGS <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	1007	1106	
==>*  References:
 */
HEADER

=over

=item B<classify>( $chr )

Character classification

=cut

sub cla <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15803	15884	
==>http://www.w3.org/TR/xhtml1/DTD/xhtml-lat1.ent
 http://www.w3.org/TR/xhtml1/DTD/xh <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8446	8568	
==>self->require_open_paren;

      my @formal_args;

      unless ($self->skip_close_paren) {
        while (1) {
          m <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	24230	24346	
==>my($self, $fh) = @_;

    if( defined $fh ) {
        $self->{Fail_FH} = _new_fh($fh);
    }
    return $self->{Fail_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41029	41138	
==>content_seen'} ||= 1;
      $self->_traverse_treelet_bit(@$para);
    }
  }
  
  return;
}

sub _traverse_tree <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	330935	331225	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "close",
                  "FLAGS" => ":bas <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	6638	6764	
==>^*][^{]*?)}}/  $trans->goto_address($1); /me;

    s/{{\^(-?\d+)}}/      $1                        /me;
    s/{{\^\+([^{]*?)}}/ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16675	16782	
==>eft: @left \n";
		if ($opts{choose}) {
			$opts{stuff}=~s/X/$type/g;
		}
		# The rhs was passed in
		@stream <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89326	89617	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90064	90355	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	31765	31873	
==>y store a value or just give back a
		# register name where the value would be stored in?
		my $dest_reg;
		i <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16248	16369	
==>ating.

=cut

sub methods {
    my ($self, $line, $out_name) = @_;

    my $cout = "";

    # vtable methods
    foreach m <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9982	10079	
==>'exe');
    my $slash = $conf->data->get('slash');
    my $verbose = $conf->options->get('verbose' <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10563	10660	
==>'exe');
    my $slash = $conf->data->get('slash');
    my $verbose = $conf->options->get('verbose' <==
3	/Users/nnunley/parrot/config/gen/cpu/x86_64/auto.pm	118	226	
==>=cut

package gen::cpu::x86_64::auto;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    my $ccflag <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	536	627	
==>ssary to 
make C<file_class()> and C<directory_class()> dynamic so that different
file metho <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	3617	3707	
==>/Pmc2c.pm \\
		src/pmc/$pmc.pmc
	\$(PMC2CD) src/pmc/$pmc.pmc 

src/pmc/pmc_$pmc.h: src/pmc/ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	442	543	
==>ash
  DEBUG > 2 and print "Handling $_[1] start-event\n";
  my $x = [$_[1], $_[2]];
  if($_[0]{'_currp <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24770	24865	
==>ial assignment.  Type of course will be a float.
	($result, $type, @code)=EXPRESSION({ lhs => 1, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1051	1137	
==>truct::Label;

use Jako::Construct::Statement::Arithmetic;
use Jako::Construct::Stateme <==
3	/Users/nnunley/parrot/config/init/defaults.pm	1164	1291	
==>s object file is to be compiled
        # with position-independent code suitable for dynamic loading.
        cc_shared => $Con <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	8709	8826	
==>) if $show;
		if ($show) {
		    $show = $ObjectName ? "$o\t$name" : $name;
		    if (defined $Type) {
			$show .= "\t <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	61013	61109	
==>er->YYData->{symbtab}     = new SymbTabVar($parser);
    $parser->YYData->{symbtab_cst} = new Sy <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	13454	13573	
==>tref),20) .
			    q{..."},
		         pos $$textref;
		return; 
	}
	my $codepos = pos($$textref);
	unless ($$textref =~ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676030	676121	
==>.ops\"\n    {{\@1}}->vtable->unshift_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676810	676901	
==>.ops\"\n    {{\@1}}->vtable->unshift_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322380	322632	
==>ot_UInt4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323152	323404	
==>ot_UInt4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649645	649868	
==>" => 726,
                  "ARGS" => [
                              "i",
                              "kc"
                            ],
                  "BODY" => "#line 234 \"src/ops/pmc.ops\"\n    {{\@1}} = pmc_type_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164658	164825	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 190 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165587	165754	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 190 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166516	166683	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 190 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49674	49794	
==>OT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "profile",
                  "FLAGS" => <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	33673	33786	
==>ICE_plus_0 {
    return Slice(@_, 0);
}
sub SLICE_plus_1 {
    return Slice(@_, 1);
}
sub SLICE_plus_2 {
    retur <==
3	/Users/nnunley/parrot/config/gen/PodText.pm	394	488	
==>Pod::Text> to convert Pod documents into their plain text equivalents.

=head1 USAGE

=head2 Me <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121216	121549	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123912	124245	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124786	125119	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434186	434486	
==>",
                  "CODE" => 498,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "n"
                            ],
                  "BODY" => "#line 89 \"src/ops/math.ops\"\n  {{ <==
3	/Users/nnunley/parrot/config/auto/headers.pm	442	546	
==>args = qw(miniparrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('m <==
3	/Users/nnunley/parrot/config/gen/cpu.pm	505	609	
==>args = qw(miniparrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('m <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2372	2617	
==>,
                       $output,
                       $desc
                                                  );
        unless ( $pass ) {
            my $diag = '';
            my $test_prog = join ' && ', @test_prog;
            $diag .= "' <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	2383	2618	
==>,
                          $output,
                          $desc
                      );
           unless ( $pass ) {
               my $diag = '';
               my $test_prog = join ' && ', @test_prog;
               $diag .= "' <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32154	32261	
==>,0,length($_tok)) = ""; 1; }
		)
		{
			'.($self->{"lookahead"} ? '$text = $_savetext;' : '').'
			if ($Pars <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	620	725	
==>.

=cut

sub core_prefix
{
    return "";
}

=item C<defines()>

Returns the C C<#define> macros for regis <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7039	7139	
==>my $label = shift; # Optional: string (TODO: domain)

  confess "No block!"  unless defined $self and <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	1483	1583	
==>in argument containing a branch offset or address
    labelconst    an invar argument containing a br <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	71556	71685	
==>enerating rule: $call")
					and
					_hint("A call was made to a subrule
					       named \"$call\", but no such
					       rul <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	793	896	
==>'cgp_'>.

=cut

sub core_prefix
{
    return "cgp_";
}

=item C<defines()>

Returns the C C<#define> mac <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76	175	
==>.pod FOR FULL DETAILS

use 5.005;
use strict;

package Parse::RecDescent;

use Text::Balanced qw ( e <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4555	4665	
==>f->{args};
        return $self->op('nop', [], %$self);
    } elsif (@{ $self->{args} } == 1 && 2 == keys %$sel <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5692	5802	
==>f->{args};
        return $self->op('nop', [], %$self);
    } elsif (@{ $self->{args} } == 1 && 2 == keys %$sel <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9231	9316	
==>0xd8a1e681,/* 23 */
GG,$b,$c,$d,$a,$_[8],20,0xe7d3fbc8,/* 24 */
GG,$a,$b,$c,$d,$_[13], <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18857	19000	
==>2,
			"<=" => 85,
			'OR' => 84,
			">" => 86
		}
	},
	{#State 51
		ACTIONS => {
			'NAME' => 103
		}
	},
	{#State 52
		DEFAULT => - <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	29661	29760	
==>g_length {
}

sub _op_string_ref {
}

sub _op_string_set_bang {
}

sub _op_string_eq_p {
}

sub _op_ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6341	6485	
==>o) {
        return $NOW - $ago;
    } else {
        return;
    }
}

sub needs_build {
    my ($target, @sources) = @_;

    my $target_mod = m <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4761	4905	
==>o) {
        return $NOW - $ago;
    } else {
        return;
    }
}

sub needs_build {
    my ($target, @sources) = @_;

    my $target_mod = m <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6552	6696	
==>o) {
        return $NOW - $ago;
    } else {
        return;
    }
}

sub needs_build {
    my ($target, @sources) = @_;

    my $target_mod = m <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	22783	22892	
==>y($self, @msgs) = @_;

    # Prevent printing headers when only compiling.  Mostly for when
    # tests are de <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	3717	3812	
==>Superclass for ops like scan(R) that contain a single subexpression.
# By default, all calls are <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	1384	1478	
==>sif ($dir_count >2) {
      $path_to_tcl = File::Spec->join(File::Spec->updir() x ($dir_count - <==
3	/Users/nnunley/parrot/tools/build/list_unjitted.pl	412	531	
==>next if /^\s*#/ or /^\s*$/;
    if (my ($op) = /(\S+)\s+\d+/){
        push @ops, $op;
    }
    else { die "Misformated <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830674	830779	
==>terpreter->ctx)->user_stack, &i, STACK_ENTRY_INT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831415	831520	
==>terpreter->ctx)->user_stack, &i, STACK_ENTRY_INT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  " <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9779	9878	
==>rint "Hello " + chr$(65);
print " World"

' Expect nothing
Dim A(10)
z=3
c=c+a(z)

' String function <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054380	1054472	
==>from null namespace.\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to get null glob <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055507	1055599	
==>from null namespace.\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to get null glob <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	1398	1519	
==>data->add(' ', ldflags   => '-L/sw/lib');
            $conf->data->add(' ', ccflags   => '-I/sw/include');
        }
    } <==
3	/Users/nnunley/parrot/config/auto/readline.pm	1487	1608	
==>data->add(' ', ldflags   => '-L/sw/lib');
            $conf->data->add(' ', ccflags   => '-I/sw/include');
        }
    } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255574	255934	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "xor",
                  "FLAGS" => ":base_core",
                  "ARG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256481	256841	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "xor",
                  "FLAGS" => ":base_core",
                  "ARG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257389	257749	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "xor",
                  "FLAGS" => ":base_core",
                  "ARG <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27359	27490	
==>continue,
    );
    push @opcodes, new LabelOp( $parser,
        'arg1' => $l_break,
    );
    return \@opcodes;
}

sub Bu <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28238	28369	
==>continue,
    );
    push @opcodes, new LabelOp( $parser,
        'arg1' => $l_break,
    );
    return \@opcodes;
}

sub Bu <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	4218	4321	
==>h @{$code{$seg}->{code}},<<EXPR;
@code	eq $result, $false, IFBRANCH_$ifline
EXPR
		feedme();
		push(@ifs <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33753	33888	
==>hift @$paras},2;
            } else {
              DEBUG and print "Can't assimilate following ", $paras->[0][0], "\n";
              p <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35566	35701	
==>hift @$paras},2;
            } else {
              DEBUG and print "Can't assimilate following ", $paras->[0][0], "\n";
              p <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20370	20462	
==>('','gt',[$temp_0,$temp_1,"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_in <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	8189	8304	
==>nstruction or pir) not provided in rule " .
            "$rule->{'name'}\n";
    }

	# typeinfo must be supplied wit <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584651	584744	
==>nterpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, NULL);\n  {{=nex <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585726	585819	
==>nterpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, NULL);\n  {{=nex <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	20151	20269	
==>\t$cmt\n";
	$code_l++;
	$cmt ="\t\t# $opcode\t $rest";
	if ($rest =~ /to (\d+)/) {
	    $targ = "pc_$1";
	}
    }
    e <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	17474	17567	
==>counter, $N, $lastback ]),
		 aop('goto', [ $try ]),
	$back => $self->op_restore_rxlocals($op) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	689	778	
==>a($type, 'Jako::Construct::Type');
  confess "Ident is not!" unless UNIVERSAL::isa($ident, <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5307	5422	
==>BG>					:	$_;
#DBG>		}
#DBG>		$tok.='<';
#DBG>	};

	$$errstatus=0;
	$$nberror=0;
	($$token,$$value)=(undef,un <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5054	5162	
==>BG>					:	$_;
#DBG>		}
#DBG>		$tok.='<';
#DBG>	};

	$$errstatus=0;
	$$nberror=0;
	($$token,$$value)=(undef,un <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	8466	8553	
==>ine GET_NCI_N(n) get_nci_N(interpreter, &st, n)
#define GET_NCI_P(n) get_nci_P(interpret <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3716	3829	
==>up, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert X.c -> X.o for all X.c
    compile($_) for <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3820	3933	
==>up, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert X.c -> X.o for all X.c
    compile($_) for <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	1427	1526	
==>gister mapper\n";
}

# Pre and post load operation hooks.
sub pre_load {
	die "pre_load not implemen <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	4623	4826	
==>> "I",
       f => "N",
       d => "N",
       b => "S",
       t => "S",
       P => "P",
       O => "P",
       S => "S",
       I => "I",
       N => "N",
       B => "S",
       v => "v",
       J = <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6658	6773	
==>pmc) = @_;

    if (needs_build("$pmc.dump", "$pmc.pmc")) {
        run("$PMC2C --dump $pmc.pmc")
          or die " <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6869	6984	
==>pmc) = @_;

    if (needs_build("$pmc.dump", "$pmc.pmc")) {
        run("$PMC2C --dump $pmc.pmc")
          or die " <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	1455	1580	
==>,
    tuple => 'Py_tuple',

    iter  => 'Py_iter',
    xrange => 'Py_xrange',

    object => 'Py_object',
    type => 'Py_typ <==
3	/Users/nnunley/parrot/languages/regex/test.pl	3431	3538	
==>attern<<

END

    $driver->output_header(*PIR);

    for my $tree (@$trees) {
        $driver->output_rule( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4595	4684	
==>& $self->do_middle && $self->do_end;
}


#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3226	3314	
==>& $self->do_middle && $self->do_end;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	12080	12221	
==>' => 2,
			'CHAR' => 4,
			"<" => 3,
			"&" => 5,
			'CODE' => 6,
			"^" => 9,
			"(" => 10,
			"[" => 14,
			"." => 15
		},
		GOTOS => {
			' <==
3	/Users/nnunley/parrot/tools/build/revision_c.pl	23	111	
==>03, The Perl Foundation.
# $Id: /parrot/tools/build/revision_c.pl 20350 2006-06-25T03:57: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663801	664092	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664573	664864	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665349	665640	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	5930	6093	
==>ch}{$cat} }
      ];
    }

    $branches{$branch} = [
      map {{
        catname => $_,
        smokes  => $branches{$branch}{$_},
      }} sort { lc $a cmp lc $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	26923	27062	
==>d+)\s*$/s) {
        no integer;
        $para->[1]{'indent'} = $1;
        if($1 == 0) {
          $self->whine(
            $para->[1]{'st <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	4450	4568	
==>iles, $nolines_flag );

    my $cur_code = 0;
    for(@{$ops->{OPS}}) {
        $_->{CODE}=$cur_code++;
    }
}


my $v <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	94	187	
==>6-05-30T13:40:58.862833Z coke  $

=head1 NAME

Parrot::Test::Harness - a test harness for lang <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035591	1035674	
==>if (!PMC_IS_NULL(lex_pad))\n\tresult = VTABLE_get_pmc_keyed_str(interpreter, lex_pad <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036755	1036838	
==>if (!PMC_IS_NULL(lex_pad))\n\tresult = VTABLE_get_pmc_keyed_str(interpreter, lex_pad <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	3852	3980	
==>nt{$f} = $n;
		for (my $i = 0; $i < $n; $i++) {
		    my ($a, $def) = split(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a = qq!" <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	4351	4479	
==>nt{$f} = $n;
		for (my $i = 0; $i < $n; $i++) {
		    my ($a, $def) = split(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a = qq!" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1657	1750	
==>$type, "Jako::Construct::Type");

  my $type_name = $type->name;

  $self->INTERNAL_ERROR("Con <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6642	6775	
==>.\n";

					$$errstatus
				and	do {
					--$$errstatus;

#DBG>					$debug & 0x10
#DBG>				and	$dbgerror
#DBG>				and	$$errsta <==
3	/Users/nnunley/parrot/languages/regex/regex.pl	830	963	
==>b-name=(.*)/) {
        $subname = $1;
    } elsif ($_ eq '-o') {
        $output = shift;
    } elsif (! defined $expr) {
        $ex <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6335	6460	
==>.\n";

					$$errstatus
				and	do {
					--$$errstatus;

#DBG>					$debug & 0x10
#DBG>				and	$dbgerror
#DBG>				and	$$errsta <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	4913	5077	
==>tep->runstep($self, @step_params);
            } else {
                $ret = $step->runstep($self);
            }
        };
        if ($@) {
            carp "\n <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5277	5368	
==>er->start_element({ Name => 'assign' });
  $dest->sax($handler);
  $handler->start_element({ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3340	3431	
==>er->start_element({ Name => 'assign' });
  $dest->sax($handler);
  $handler->start_element({ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5431	5552	
==>@$stack=( [ 0, undef ] );
	$$check='';

    while(1) {
        my($actions,$act,$stateno);

        $stateno=$$stack <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5170	5285	
==>@$stack=( [ 0, undef ] );
	$$check='';

    while(1) {
        my($actions,$act,$stateno);

        $stateno=$$stack <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	4827	4936	
==>est);
    } elsif ($meta{pkgconfig}) {
        # For the time being this is hardcoded as being installed under <==
3	/Users/nnunley/parrot/config/auto/pack.pm	481	603	
==>p
{
    my ($self, $conf) = @_;

    #
    # Alas perl5.7.2 doesn't have an INTVAL flag for pack().
    # The ! modifier on <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	6445	6544	
==>ngs;

use Cwd;
use Data::Dumper;
use File::Spec;
use Parrot::Config;

require Exporter;
require Test <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	26218	26308	
==>ow nested C<BEGIN> tags

	($extracted, $remainder) =
		extract_tagged($text,"BEGIN","END",u <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	12582	12684	
==>(@variables, @values);
  for (@{$locals->{children}}) {
    _num_arg ($_, 1, 'let locals');
    my ($va <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10573	10672	
==>, 'O', 'O', 'O', 'O', 'x', 'O', 'U', 'U', 'U', 'U', 'U', 'Th', 'ss',
'a', 'a', 'a', 'a', 'a', 'a', ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106348	1106444	
==>\"type number out of range\");\n    {{\@1}} = interpreter->vtables[typ]->class;\n    {{+=3}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107324	1107420	
==>\"type number out of range\");\n    {{\@1}} = interpreter->vtables[typ]->class;\n    {{+=3}};\n", <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6680	6773	
==>witch_${CURIC}_LOOP_EXIT:

POST_BRANCH_NOT_switch_${CURIC}:
PIR
	return $pir;
}

# Pre and pos <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4618	4711	
==>witch_${CURIC}_LOOP_EXIT:

POST_BRANCH_NOT_switch_${CURIC}:
PIR
	return $pir;
}

# Pre and pos <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9189	9278	
==>$thiscolumn;
	tie $thiscolumn, q{Parse::RecDescent::ColCounter}, \$text, $thisparser;
	':' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	325	412	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub _handle_element_s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	322	409	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub _handle_element_s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	578	665	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub _handle_element_s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236603	236874	
==>/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237485	237756	
==>/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238367	238638	
==>/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	24120	24254	
==>' => $build_f);
            $builder->diag("'$cmd' failed with exit code $exit_code")
                if $exit_code;

            if (! <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	24881	25007	
==>' => $build_f);
            $builder->diag("'$cmd' failed with exit code $exit_code")
        if $exit_code;

            if (! <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356664	356853	
==>o.ops\"\n  PIO_eprintf(interpreter, INTVAL_FMT, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357324	357513	
==>o.ops\"\n  PIO_eprintf(interpreter, INTVAL_FMT, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	22217	22334	
==>s, undef;
			}
		}

		FIELD: while (pos($$textref) < length($$textref))
		{
			my $field;
			my @bits;
			foreach my $ <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	11779	11901	
==>math.h
ldiv        stdlib.h
lgamma      math.h
lgammaf     math.h
lgammal     math.h
llabs       stdlib.h
llrint      math. <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	18621	18733	
==>t = "";
    return "" if exists $self->{flags}{noinit};

    # TODO gen C line comment
    my $classname = $self- <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	11146	11240	
==>qw( .c .cco .ldo .out), $conf->data->get(qw( o exe ));
}

=item C<capture_output($command)>

Ex <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5328	5443	
==>lse {
    die "invalid command '$mode'\nmust be one of generate, compile, linklibs, or copy\n";
}

sub run {
    pri <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4529	4644	
==>lse {
    die "invalid command '$mode'\nmust be one of generate, compile, linklibs, or copy\n";
}

sub run {
    pri <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5539	5654	
==>lse {
    die "invalid command '$mode'\nmust be one of generate, compile, linklibs, or copy\n";
}

sub run {
    pri <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4060	4183	
==>meter '".lc($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _DBLoad {
	{
		no strict 'refs';

			ex <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3857	3968	
==>meter '".lc($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _DBLoad {
	{
		no strict 'refs';

			ex <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	3110	3201	
==>);
    Test::proclaim($test, $desc, $todo, $got, "&compare_func.name() $expected", $depends) <==
3	/Users/nnunley/parrot/languages/perms.pl	363	485	
==>s ) {
      @prefix = ( (0) x (@prefix + 1) );
    }

	  my @tumbler = map { $things->[$_] } @prefix;
	  my $ret = join('', <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	10855	10976	
==>func;
        no strict 'refs';

        *{$package.'::'.$func} = sub {
            local $SIG{__WARN__} = \&report_odd_ha <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	460	560	
==>ut:

=over 4

=item * the number of look iterations, 

=item * the estimated number of ops performed, <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	464	563	
==>ut:

=over 4

=item * the number of look iterations,

=item * the estimated number of ops performed, <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	10601	10705	
==>AT? _transcoder is already set?!")
     if $self->{'_transcoder'};   # should never happen
    require Po <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	370	470	
==>base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $left, $right) = @ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	361	461	
==>base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $left, $right) = @ <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	5069	5190	
==>= $o;
	}
    }
    close(NM);
} else {
    die "$0: nm.pl -Bgo '$Obj': $!\n";
}
for my $api (keys %API) {
    delete $API{ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	387	493	
==>::Construct::Block::Conditional);

#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $left, $op, $r <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	399	505	
==>::Construct::Block::Conditional);

#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $left, $op, $r <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	14076	14201	
==>S0
  loop:
    if $I0 >= $I1 goto loop_end 
    $S1 = substr $S0, $I0, 1
    push result, $S1
    inc $I0
    goto loop
  loop <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	4382	4485	
==>} elsif ($syms[CURR] eq ";") {
			$promptcode.=qq{\tprint "?"\n};
		} else {
			die "Syntax error, expec <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1556	1645	
==>rserEndToken->new( I<tagname> )
>>

=head1 SEE ALSO

L<Pod::Simple::PullParserToken>, L<Po <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	12054	12152	
==>->\s*\w+(?![{([])/gc;
		last;
	}
	
	my $endpos = pos($$textref);
	return ($startpos, $varpos-$start <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710260	710492	
==>E" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 79 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711093	711325	
==>E" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 79 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711927	712159	
==>E" => "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 79 <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	8763	8917	
==>extern = "extern ";
	    $newl = " ";
	    $semi = ";";
        $interp = $pmc = "";
    }
    else {
	    $export = "";
	    $extern = "";
	    $newl = "\ <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	14949	15073	
==>$r = pop @stack;
    my $l = pop @stack;
    my ($t, $n);
    {
	my $nl = promote($l);
	$n = temp($t = 'P');
	my $nr = $r->[1 <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	15266	15390	
==>$r = pop @stack;
    my $l = pop @stack;
    my ($t, $n);
    {
	my $nl = promote($l);
	$n = temp($t = 'P');
	my $nr = $r->[1 <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	6381	6485	
==>iant of
# integer - but if you set it to Integer or int, the program dies with
# 'Method not found.' or d <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	1537	1633	
==>_ret($method, $body)>

Generate the C code for a C<return> statement, if the body is empty then
m <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	31128	31233	
==>wrong it will die with a fairly friendly
error message.

=cut

#'#
sub _sanity_check {
    my $self = shif <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	73333	73430	
==>= $_[2] if @_ > 2;
	$_[0]->{offsetlinenum} = $_[0]->{lastlinenum};
	$_[0]->{fulltext} = $text;
	$_ <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	412	497	
==>s/build/vtable_h.pl>, F<tools/dev/gen_class.pl>, and
F<src/pmc/null.pl>.

=head2 Funct <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	689	801	
==>age unless $desc;

    # Figure out how many levels we have to go back to get to parrot.
    # And, conversely, h <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	1803	1914	
==>set_result('yes');

    if ($gccversion) {

        # If using gcc, crank up its warnings as much as possible an <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	1303	1396	
==>0]/lib/Parrot/Config.pm";
		%Parrot::Config::PConfig
	} or die "Unable to locate Parrot::Con <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688058	688194	
==>"
                            ],
                  "BODY" => "#line 576 \"src/ops/pmc.ops\"\n   {{\@1}}->vtable->delprop(interpreter, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688830	688966	
==>"
                            ],
                  "BODY" => "#line 576 \"src/ops/pmc.ops\"\n   {{\@1}}->vtable->delprop(interpreter, {{\ <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	31901	32004	
==>{$n} = $mangle;
    print <<EOC;
	$cl = subclass $parent_tuple->[1], $mangle $cmt
	global $name = $cl
	B <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1098286	1098442	
==>__(\"int3\");       /* opcode 0xcc */\n#endif\n    {{+=1}};\n",
                  "experimental" => 1,
                  "LABELS" => []
                }, 'P <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	20560	20679	
==>ing;
          foreach my $attrname ('section', 'to') {        
            if(defined($thing = $treelet->[$i][1]{$attrn <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	42046	42161	
==>ing;
        foreach my $attrname ('section', 'to') {        
          if(defined($thing = $treelet->[$i][1]{$attrn <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5213	5352	
==>result} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $first = 1;
            foreach ( @{ $op->{resul <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6245	6384	
==>result} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $first = 1;
            foreach ( @{ $op->{resul <==
3	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	187	281	
==>tress-testing

=head1 SYNOPSIS

    % time perl examples/benchmarks/stress2.pl

=head1 DESCRIPT <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1698	1811	
==>';

    unless ($CC =~ /gcc/i) {
        $LIBPARROT = '/Users/nnunley/parrot/libparrot.a';
    }
}

# OPS2C Config <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	7030	7126	
==>DEBUG > 1 and print "Token buffer now has ",
   scalar(@{$self->{'token_buffer'}}), " items in it <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41198	41291	
==>$name) = splice @_,0,2;

  my $scratch;
  $self->_handle_element_start(($scratch=$name), shift <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	3816	3984	
==>f->{TEXT};
            
            my $short_desc = $file->short_description;
            
            next unless $short_desc;
            
            next if grep {$ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34794	34899	
==>e->{"name"} .'})
							if defined $::RD_TRACE;').'
			if ($Parse::RecDescent::lastexpected
			    && !$Pa <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41904	42009	
==>e->{"name"} .'})
							if defined $::RD_TRACE;').'
			if ($Parse::RecDescent::lastexpected
			    && !$Pa <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	96	192	
==>ars qw( $ATTR_PAD @ISA $VERSION $SORT_ATTRS);
$VERSION = '2.02';
BEGIN {
  @ISA = ('Pod::Simple') <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	97	193	
==>ars qw( $ATTR_PAD @ISA $VERSION $SORT_ATTRS);
$VERSION = '2.02';
BEGIN {
  @ISA = ('Pod::Simple') <==
3	/Users/nnunley/parrot/lib/File/Which.pm	6602	6691	
==>ch'> implementation by Abigail with
enhancements from Peter Prymmer. See
http://www.perl.c <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	923	1069	
==>'cr',
             'ar_out' => '',
             'archname' => 'darwin-2level',
             'as' => 'as',
             'asmfun_o' => 'src/asmfun.o' <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	5379	5520	
==>define',
             'i_stdlib' => 'define',
             'i_string' => 'define',
             'i_sunmath' => undef,
             'i_sysacces <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	13185	13297	
==>{
my $m = -321;   # magic line number

sub _gen_errata {
  my $self = $_[0];
  # Return 0 or more fake-o paragrap <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	561	648	
==>less UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');

  my $se <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	636	723	
==>less UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');

  my $se <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	636	723	
==>less UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');

  my $se <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	394195	394469	
==>preter, {{\@2}});\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727919	728184	
==>LAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "io"
                               ],
                  "TYPE" => "function",
                  "CODE" => 816,
                  "ARGS" = <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19383	19482	
==>value to true if you don't want the formatter to try
putting a hidden code on all Perl symbols (as b <==
3	/Users/nnunley/parrot/lib/Test/More.pm	19062	19158	
==>=~ /^[a-zA-Z]\w*$/;
}

=back

=head2 Conditional tests

Sometimes running a test under certain co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955458	955831	
==>e_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1075,
                  "ARGS" => [
                              "s",
                              "i"
                            ],
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172240	172334	
==>=> "#line 218 \"src/ops/cmp.ops\"\n  if (0 != string_equal(interpreter,\n      {{\@1}}->vtable- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173218	173312	
==>=> "#line 218 \"src/ops/cmp.ops\"\n  if (0 != string_equal(interpreter,\n      {{\@1}}->vtable- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357976	358082	
==>c/ops/io.ops\"\n  PIO_eprintf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358640	358746	
==>c/ops/io.ops\"\n  PIO_eprintf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	799	887	
==>eclaration::Constant;
use Jako::Construct::Declaration::Sub;
use Jako::Construct::Declara <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15349	15449	
==>=666
g(4)=12
a=g(5)+0
y=arrfunc(g())

' For loops, by two and backwards
for i = 0 to 10 step 2
	print <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2170	2261	
==>UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value::Identifier')) {
    my $right_sy <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2128	2219	
==>UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value::Identifier')) {
    my $right_sy <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2050	2141	
==>UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value::Identifier')) {
    my $right_sy <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1105	1204	
==>ression::Value');
  confess "Right is not Value!" if defined $right and not UNIVERSAL::isa($right, ' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1133	1232	
==>ression::Value');
  confess "Right is not Value!" if defined $right and not UNIVERSAL::isa($right, ' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	805	904	
==>ression::Value');
  confess "Right is not Value!" if defined $right and not UNIVERSAL::isa($right, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	27151	27461	
==>_args",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 36,
                  "ARGS" => [
                              "pc"
                            ] <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4841	4937	
==>$rules,$states,$lex,$error)
     = @$self{ 'RULES', 'STATES', 'LEX', 'ERROR' };
	my($errstatus, <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4601	4695	
==>$rules,$states,$lex,$error)
     = @$self{ 'RULES', 'STATES', 'LEX', 'ERROR' };
	my($errstatus, <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	1739	1888	
==>ing.\n") {
            $has_gdbm = 1;
            print " (yes) " if $verbose;
            $self->result('yes');
        }
    }
    unless ($has_gdbm <==
3	/Users/nnunley/parrot/config/auto/isreg.pm	611	735	
==>c_build(); };
    unless ($@ || cc_run() !~ /ok/) {
        $test = 1;
    }
    cc_clean();

    $conf->data->set(isreg => $ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	40427	40519	
==>ax,
  'bound-identfier=?'   => \&_op_bound_identifier_eq_p,
  'identifier->symbol'  => \&_op_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108779	108949	
==>"
                            ],
                  "BODY" => "#line 167 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	5458	5591	
==>4,
 'Chi'      , 935,
 'Psi'      , 936,
 'Omega'    , 937,
 'alpha'    , 945,
 'beta'     , 946,
 'gamma'    , 947,
 'delta'    , 948 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50129	50232	
==>n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_PROFILE_FLAG); }\n  else         { Interp_f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50922	51025	
==>n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_PROFILE_FLAG); }\n  else         { Interp_f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38448	38568	
==>=> "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39312	39432	
==>=> "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	8306	8392	
==>->cur_op[x])
#define ROFFS_STR(x) REG_OFFS_STR(jit_info->cur_op[x])
#define ROFFS_PMC(x <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428604	428852	
==>492,
                  "ARGS" => [
                              "ic",
                              "p",
                              "nc"
                            ],
                  "BODY" => "#line 69 \"src/ops/math.ops\"\n  mmd_dispatch_v_ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	8440	8571	
==>urn @sub;
        }
    } else {
        return @sub;
    }
}

package Regex::Ops::Tree::scan;
sub maxlen { undef };

# $ (not R$, j <==
3	/Users/nnunley/parrot/Configure.pl	1949	2044	
==>iven linker flags

=item C<--ld=(linker)>

Specify which loader to use for shared libraries.

=i <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	24461	24579	
==>des} ) and $opcodes->[-1]->isa('CallOp') ) {
        $defn->{pragma} = 'first';
    }
    return $expr;
}

sub Bu <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	11326	11427	
==>ut given that they are still a
somewhat experimental feature in Pugs, it is suggested you don't try an <==
3	/Users/nnunley/parrot/config/gen/platform.pm	279	377	
==>atform;

use strict;
use warnings;

use base qw(Parrot::Configure::Step::Base);

use Config;
use En <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2448	2666	
==>t;
            s/^\\t//
                and $str .= "\t",      # horizontal tab
                last;
            s/^\\v//
                and $str .= "\x0b",    # vertical tab
                last;
            s <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3962	4180	
==>t;
            s/^\\t//
                and $str .= "\t",      # horizontal tab
                last;
            s/^\\v//
                and $str .= "\x0b",    # vertical tab
                last;
            s <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	28927	29075	
==>plice(@$treelet, $i, 1); # thereby just nix this node.
      --$i;
        
    }
  }
  
  return;
}

# . . . . . . . . . . . . . . . . . . . . . . . <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	1130	1222	
==>fy a different destination path:

    source_path <whitespace> [package]meta1,meta2,... <whit <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	6113	6348	
==>State Perl or PXPerl
            $conf->data->set(
                a              => '.a',
                ar             => 'ar',
                cc             => 'gcc',
                ccflags        => '-DWIN32 ',
                ld <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	969	1079	
==>sub left  { return shift->{LEFT};  }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	977	1087	
==>sub left  { return shift->{LEFT};  }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	719	815	
==>rnal functions are being
called. Note that it assumes a gnu-ish C<nm>.

=item C<source>

In C<sou <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550031	550130	
==>t = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+3}};\n  interpreter->current_object = object;\n  inter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551332	551431	
==>t = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+3}};\n  interpreter->current_object = object;\n  inter <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	3248	3346	
==>$ref is rw, Str $expected_type, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $out <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	641	749	
==>{builder}->current_test + 1;

    $desc = $language unless $desc;

    # Figure out how many levels we have t <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	9898	10000	
==>bda, $value);

  if (exists _get_arg($node,1)->{children}) {
    my @formals;
    ($symbol, @formals) = <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	23322	23423	
==>type="FLO";
			my %th=( single => 'FLO', double => 'FLO', long => 'INT', integer => 'INT', string => ' <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	57833	57979	
==>, $_[1], 'string' ),
            ];
        }
	],
	[#Rule 95
		 '@11-1', 0,
sub
#line 503 "Lua\lua51.yp"
{
            PushScopeF( $_[0] ) <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	12998	13095	
==>the hash element.  If the element type is C<'%'>, the
accessor returns the hash element value.  If <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	4913	5004	
==>name="Normal Text" defStyleNum="dsNormal" />
      <itemData name="Op" defStyleNum="dsNormal <==
3	/Users/nnunley/parrot/lib/Test/More.pm	26781	26894	
==>[1] = $var) =~ s/\$FOO/\$expected/;

    my $out = "Structures begin differing at:\n";
    foreach my $idx (0..$#v <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	5752	5857	
==>oto print_newline

  print_space_2d:  # don't print a space if we're about to end a row
    if newline got <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547540	547814	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fact",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548446	548720	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fact",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44274	44406	
==>=> -99
	},
	{#State 200
		DEFAULT => -98
	},
	{#State 201
		ACTIONS => {
			'END' => 208
		}
	},
	{#State 202
		ACTIONS => <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	78198	78318	
==>ys causes the
		       production containing it to immediately fail.
		       \u$_[0] that follows an <error>
		       wi <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	9845	9951	
==>gs, $parent_nr);
    # look through the pmc declaration header for flags such as noinit
    while ($$c =~ s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	17640	17742	
==>onal) hyphen

  # CRAZY HACKS:
  "\n" => "\\line\n",
  "\r" => "\n",
  "\cb" => "{\n\\cs21\\lang1024\\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514183	514508	
==>);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "F <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515063	515388	
==>);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "F <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	4889	5004	
==>ame, $p, $ext) = fileparse($_, @{ $suffix{ $section[ $index ] } });
        next if ! $ext;
        $bench{ $name }{ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	11096	11204	
==>test = !defined $got && !defined $expect;

        $self->ok($test, $name);
        $self->_is_diag($got, 'eq <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349104	349195	
==>const char * const path = string_to_cstring(interpreter, {{\@2}});\n\n  {{\@1}} = PIO_open(i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350106	350197	
==>const char * const path = string_to_cstring(interpreter, {{\@2}});\n\n  {{\@1}} = PIO_open(i <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	5986	6122	
==>_postamble);
            $sig .= $sig_char{$_};
            $_ eq 'J' && $reg_num--;
        }
    }

    print_function($sig, $ret, $arg <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	23964	24072	
==>6
		elsif (/^uint16$/) {
			$out =  "    \${I_ARG_$arg_num} = bc.read_uint16()\n    next_pc += 2\n";
			$arg_ <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	19847	19940	
==>amic PMCs.
Currently unused, but retained for being a basis for supporting
platforms that need <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18995	19108	
==>s[-1]->isa('CallOp') ) {
        unless ( exists $params[-1]->{pragma} ) {
            $params[-1]->{pragma} = ' <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2611	2708	
==>n unless ($file =~ /^[^\/]*\.c$/);

    my $dev_file = $file; $dev_file =~ s/(.*)\.c$/docs\/dev\/$ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	5844	5937	
==>f ($qdel && $$textref =~ m/\G([$qdel])/gc)
		{
			$$textref =~ m/\G[^\\$1]*(?:\\.[^\\$1]*)*(\Q <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037257	1037522	
==>" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 11 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038037	1038302	
==>" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 11 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	16286	16389	
==>ile(my $token = $self->get_token) {
     ...process each token...
   }
 }

=head1 DESCRIPTION

This clas <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8352	8450	
==>y model of a modern";tab$(15);"More"
print "Hello","Again",d
dim c$(1)
for i = 1 to 20 : read c$(i) <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21216	21314	
==>y model of a modern";tab$(15);"More"
print "Hello","Again",d
dim c$(1)
for i = 1 to 20 : read c$(i) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357959	358049	
==>> "#line 245 \"src/ops/io.ops\"\n  PIO_eprintf(interpreter, \"%f\", (double){{\@1}});\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358623	358713	
==>> "#line 245 \"src/ops/io.ops\"\n  PIO_eprintf(interpreter, \"%f\", (double){{\@1}});\n  {{ <==
3	/Users/nnunley/parrot/config/init/hints.pm	1006	1122	
==>cal";
    print "$hints " if $verbose;
    eval "use $hints";
    unless ($@) {
        $hints->runstep($conf, @_) if <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30416	30562	
==>" => 85,
			'OR' => 84,
			"]" => 150,
			">" => 86
		}
	},
	{#State 98
		ACTIONS => {
			"," => 151,
			")" => 152
		}
	},
	{#State 99 <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	16086	16200	
==>and a void return
        $call_state = '' if 'v' eq $return;
        print NCI << "HEADER";
static void
pcf_${retu <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	2199	2310	
==>if ($results{longsize} == 4) {
        $conf->data->set(int4_t => 'long');
    } else {
        $conf->data->set <==
3	/Users/nnunley/parrot/config/auto/jit.pm	3300	3413	
==>-D\U$jitcpuarch",
            TEMP_jit_o  =>
                '$(SRC_DIR)/jit$(O) $(SRC_DIR)/jit_cpu$(O) $(SRC_DIR) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627210	627307	
==>gal PMC enum (%d) in new\", (int){{\@2}});\n  }\n\n  /* Why?? If we're creating a continuation, th <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628354	628451	
==>gal PMC enum (%d) in new\", (int){{\@2}});\n  }\n\n  /* Why?? If we're creating a continuation, th <==
3	/Users/nnunley/parrot/lib/Test/More.pm	16533	16633	
==>ommended that you run use_ok() inside a BEGIN
block so its functions are exported at compile-time and <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062122	1062480	
==>=> [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1186,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 246 \" <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	44072	44177	
==>e $_[0] $desc
	       to be part of.");
}

my $NEGLOOKAHEAD	= '\G(\s*\.\.\.\!)';
my $POSLOOKAHEAD	= '\G(\s <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	5701	5795	
==>6C" selColor="#FF6C6C" bold="0" italic="0" />
      <itemData name="String Interp" defStyleNum= <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1986	2084	
==>sub   end_over_bullet  { --$_[0]{'Indent'} }
sub   end_over_number  { --$_[0]{'Indent'} }
sub   end <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1554	1652	
==>sub   end_over_bullet  { --$_[0]{'Indent'} }
sub   end_over_number  { --$_[0]{'Indent'} }
sub   end <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	39232	39325	
==>oint of failure.
If the string is "PARA", C<extract_tagged> returns only the first paragraph
a <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2736	2836	
==>ode"
GOSUB Sub1
PRINT "ERR this line in main routine should be skipped"
Label1:
   PRINT "5 back in m <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16703	16803	
==>ode"
GOSUB Sub1
PRINT "ERR this line in main routine should be skipped"
Label1:
   PRINT "5 back in m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756642	756776	
==>"
                            ],
                  "BODY" => "#line 271 \"src/ops/set.ops\"\n  {{\@1}}->vtable->assign_string_native(in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757432	757566	
==>"
                            ],
                  "BODY" => "#line 271 \"src/ops/set.ops\"\n  {{\@1}}->vtable->assign_string_native(in <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	4525	4638	
==>ata->set(
            hugefloatval     => 'double',
            hugefloatvalsize => $conf->data->get('doublesize') <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2436	2536	
==>>type;
  }

  $self->INTERNAL_ERROR("No type for dest!")  unless defined $dest_type;
  $self->INTERNA <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2358	2458	
==>>type;
  }

  $self->INTERNAL_ERROR("No type for dest!")  unless defined $dest_type;
  $self->INTERNA <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	747	926	
==>codingstd.pod>.

=cut

################################################################################

use strict;
use warnings;

use Data::Dumper;
use Text::Wrap;
use File::Find <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	1649	1775	
==>ie "Can't open $file for reading: $!\n";
    my $section = 'MAIN';

    while(<$fh>) {

        chomp;

        next if /^\s*#/ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21256	21346	
==>$self->{"lookahead"}<0?'if':'unless') . ' (defined $_tok)
		{'.($::RD_NO_TRACE?'':'
			Pars <==
3	/Users/nnunley/parrot/lib/Test/More.pm	6550	6651	
==>d' );

(Mnemonic:  "This is ok.")

$test_name is a very short description of the test that will be pri <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947097	947192	
==>er, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\"charset '%Ss' not fou <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947999	948094	
==>er, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\"charset '%Ss' not fou <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9564	9684	
==>c}) {
	    my $name = lc $self->{class};
	    $cout .= <<"EOC";
#include "$name.str"
EOC
    }
    "$cout\n";
}


=item C <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	5632	5748	
==>d, $arg) = @_;

    return unless $cmd;

    if( $self->{Have_Plan} ) {
        die sprintf "You tried to plan twice! <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	1046	1148	
==>loop was labeled.

TODO: Do we really need KIND, since we have subclasses?

=cut

sub new
{
  my $class <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549432	549696	
==>P_ENEXT",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550732	550996	
==>P_ENEXT",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552033	552297	
==>P_ENEXT",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742719	742808	
==>BODY" => "#line 174 \"src/ops/set.ops\"\n  {{\@1}} = string_from_int(interpreter, {{\@2}}) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743485	743574	
==>BODY" => "#line 174 \"src/ops/set.ops\"\n  {{\@1}} = string_from_int(interpreter, {{\@2}}) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	539	632	
==>isa($block, 'Jako::Construct::Block');
  confess("Left (" . ref($left) . ") is not Value") unl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	530	623	
==>isa($block, 'Jako::Construct::Block');
  confess("Left (" . ref($left) . ") is not Value") unl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81363	81681	
==>{
                  "JUMP" => 0,
                  "NAME" => "compile",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82256	82574	
==>{
                  "JUMP" => 0,
                  "NAME" => "compile",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	13748	13853	
==>ter('', $self->{RESOURCES_URL});
        
    return 1;
}

=item C<html_for_file($file)>

Returns the HTML <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655127	655502	
==>FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 732,
                  "ARGS" => [
                              "i",
                              "p"
                            ],
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2026	2136	
==>e path if necessary.

=cut

sub create_path
{
    my $self = shift;
    
    return unless $self->SUPER::create <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	1003	1113	
==>e path if necessary.

=cut

sub create_path
{
    my $self = shift;
    
    return unless $self->SUPER::create <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284799	284894	
==>"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285676	285771	
==>"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286553	286648	
==>"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036323	1036563	
==>,
                  "CODE" => 1158,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 64 \"src/ops/var.ops\"\n    parrot_cont <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59176	59261	
==>w Parse::RecDescent::Rule($rulename,$self,$line,$replace);
			$prod->check_pending($li <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256386	256509	
==>"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257294	257417	
==>"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258202	258325	
==>"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	10846	10955	
==>/call_list.txt if the generated signature is available
    # TODO report errors for "?"
    # --leo

    retur <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1257	1354	
==>ss "No \$compiler!" unless $compiler;

  my $sym = $block->find_symbol($ident_name);

  confess "N <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	1553	1677	
==>instantiated.', 
	        @abstract_items
	    ),
		$self->new_group(
	        'Concrete PMCs', 
	        'These PMCs are ins <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26425	26531	
==>${STACK0}, ${STACK1})
${INS} = concat ${STEMP0}
PIR
    }
	
	# Now we split based upon the class.
	# Operat <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	52	138	
==>arrot/lib/Parrot/Docs/Directory.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head <==
3	/Users/nnunley/parrot/config/auto/env.pm	512	620	
==>se);

sub runstep
{
    my ($self, $conf) = (shift, shift);

    my $verbose = $conf->options->get('verbose') <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	553	661	
==>se);

sub runstep
{
    my ($self, $conf) = (shift, shift);

    my $verbose = $conf->options->get('verbose') <==
3	/Users/nnunley/parrot/config/auto/msvc.pm	514	622	
==>se);

sub runstep
{
    my ($self, $conf) = (shift, shift);

    my $verbose = $conf->options->get('verbose') <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16784	16888	
==>erse _get_args($node);

  for (@reverse) {
    my $item = $self->_generate($_);
    my $pair = $self->_sa <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12392	12488	
==>is returns undef.

=item e2charnum($e_content)

Given a name or number that could appear in a
C<E <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11906	11991	
==>\noproof\sbasedon10 pod-L-url;}
{\*\cs24 \additive \i\lang1024\noproof\sbasedon10 pod- <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7720	7822	
==>atch[5]+$match[7],	# MATCH
			@match[8..9,0..1,2..7];				# REM, PRE, BITS
}

sub _match_tagged	# ($$$$$ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2659	2760	
==>l_arg_type->name) {
      my $temp = $compiler->temp_reg($formal_arg_type);
      my $value = $args[$i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2359	2460	
==>l_arg_type->name) {
      my $temp = $compiler->temp_reg($formal_arg_type);
      my $value = $args[$i <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	1608	1735	
==>lf->new_group(
	        'Concrete PMCs', 
	        'These PMCs are instantiated.', 
	        @concrete_items
	    )
	);
}

=back <==
3	/Users/nnunley/parrot/config/auto/signal.pm	653	777	
==>,
        has_sigaction      => undef,
        has_setitimer      => undef
    );
    if (defined $conf->options->get('minipa <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	21738	21845	
==>defined $_[2] && $_[2]>0 ? $_[2] : 1_000_000_000;
		my $igunk = $_[3];

		pos $$textref ||= 0;

		unless (wa <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	14798	14938	
==>/mg)
        {
            $branch = 1;
            $restart = 1;
        }
        elsif($body =~ s/\brestart\s+NEXT\(\)/{{=0,+=$op_size}}/m <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	10231	10352	
==>t' . $PConfig{exe});

    my %parrot_test_map = (
        pbc_output_is      => 'is_eq',
        pbc_output_isnt    => 'is <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11327	11437	
==>();

    close(OUT);
    close(IN);


    $outfile = "$outfile_base.branches.html";
    print "Writing $outfile <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888713	889152	
==>DIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1005,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79135	79226	
==>t err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80656	80747	
==>t err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028440	1028616	
==>ARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sleep",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029291	1029467	
==>ARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sleep",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030132	1030308	
==>ARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sleep",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7932	8081	
==>r ? $sempar[0] : undef;

            splice(@$stack,-$len,$len);

                $$check eq 'ACCEPT'
            and do {

#DBG>			$debug & 0x <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7576	7718	
==>r ? $sempar[0] : undef;

            splice(@$stack,-$len,$len);

                $$check eq 'ACCEPT'
            and do {

#DBG>			$debug & 0x <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11669	11752	
==>i0\sa180\widctlpar\f1\fs%s\lang1024\noproof\sbasedon0 \snext0 pod-codeblock;}
{\*\cs <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	8235	8353	
==>y the
    # same.
    $command = [$command] unless (ref $command);

    if (defined $ENV{VALGRIND}) {
        $_ = "$EN <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	31277	31372	
==>ry delimiter is escaped with a backslash (C<\>).
If the prefix is not specified, the
pattern C<' <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6135	6227	
==>ST_BRANCH_switch_${CURIC}
${ITEMP0} = ${NEXTPC} + I_arg_0 # XXX Can't use ${ARG0} :-(
prop_ty <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4073	4165	
==>ST_BRANCH_switch_${CURIC}
${ITEMP0} = ${NEXTPC} + I_arg_0 # XXX Can't use ${ARG0} :-(
prop_ty <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19636	19741	
==>2,a$
	print a$,
next i
close #2
print

' ON..GOTO   200! and then Oats..
t=2
on t goto 100, 200, 300
print <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4939	5039	
==>e");
    $compiler->emit("  $pmc_reg = $dest");
    $compiler->emit("  global \"$dest_name\" = $pmc_r <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3002	3102	
==>e");
    $compiler->emit("  $pmc_reg = $dest");
    $compiler->emit("  global \"$dest_name\" = $pmc_r <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	13986	14293	
==>xe_f,
                                        CD     => $path_to_parrot,
                                        STDOUT => $out_f,
                                        STDERR => $out_f);
                        }
                    }
                }
            }

            if ( $func =~ /^pbc_outpu <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21947	22076	
==>'   => $expr1->[0],
        'arg2'   => $expr2->[0],
        'result' => $result,
    );
    return [ $result, \@opcodes ];
} <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	2066	2179	
==>ns the HTML navigation bar.

=cut

sub html_navigation
{
    my $self = shift;
    my $path = shift;
    my $paren <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	4498	4638	
==>);
        if ($copy =~ /^installable/) {
            push @installable_exe, [$src, $dest];
            next;
        }
    } elsif ($meta{in <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	32349	32458	
==>$SIG{__DIE__} = sub {
    # We don't want to muck with death in an eval, but $^S isn't
    # totally reliable. <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	15130	15236	
==>ata(@_);
}

sub scream {    # like whine, but not suppressable
  #my($self,$line,$complaint) = @_;
  my $se <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035347	1035440	
==>DY" => "#line 64 \"src/ops/var.ops\"\n    parrot_context_t * const ctx = CONTEXT(interpreter-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036511	1036604	
==>DY" => "#line 64 \"src/ops/var.ops\"\n    parrot_context_t * const ctx = CONTEXT(interpreter-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754146	754384	
==>ne",
                  "CODE" => 850,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 261 \"src/ops/set.ops\"\n  {{\@1}}- <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5051	5146	
==>lf->output_label_use($failLabel);
    my $pass = $self->output_label_use($passLabel);

    while <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4726	4821	
==>lf->output_label_use($failLabel);
    my $pass = $self->output_label_use($passLabel);

    while <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231098	231248	
==>"i"
                            ],
                  "BODY" => "#line 592 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232002	232152	
==>"i"
                            ],
                  "BODY" => "#line 592 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > { <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	4624	4732	
==>d_inst ('', 'set',[$return,$value]);
    }
    else { # assume its a symbol
      $self->_add_inst ('', 'new' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221475	221725	
==>=> 259,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 484 \"src/ops/cmp.ops\"\n  if (mmd_dispatc <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	42169	42303	
==>nd ref $thing) {
            unshift @stack, $thing;
            DEBUG > 2 and print "  Enqueuing ",
             pretty( $treelet->[$i <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	422	531	
==>r, $key1 => $value1, $key2 => $value2);
    my @keys = $data->keys;
    my $serialized = $data->dump;
    $dat <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	5928	6067	
==>sc($scratch);
      $scratch =~
         s/(
            [^\cm\cj\n]{65}        # Snare 65 characters from a line
            [^\cm\cj\n\x20 <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	14690	14802	
==>xists $self->{super}{$meth};
        foreach my $pname (@{ $self->{parents} } ) {
            if (exists ($self-> <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	16694	16789	
==>($$textref);

	my $initial = substr($$textref,$oppos,1);

	if ($initial && $initial =~ m|^[\"\'\ <==
3	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	163	269	
==>t;
use 5.005;

# standard perl modules

# Modules from CPAN
use Parse::RecDescent;
use YAML;

# local Modul <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	2164	2261	
==>er 4

=item C<write_docs($silent, $delete)>

Writes the HTML documentation.

If C<$silent> is true <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	1949	2045	
==>perator tests
if 4<5 then print "Ok" else print "Wrong"
if 5<5 then print "Wrong" else print "Ok" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002291	1002520	
==>",
                              "sc",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003430	1003659	
==>",
                              "sc",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_f <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	17239	17379	
==>h'],
                        markings => { socks=>1, blaze=>"white" },
                        breed    => Breed->new(name=>'short-hair', cro <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2415	2511	
==>arget string against the Perl 6 pattern, passing the test
if the output produced by the test code <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3849	3945	
==>arget string against the Perl 6 pattern, passing the test
if the output produced by the test code <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044549	1044747	
==>",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interprete <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045443	1045641	
==>",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interprete <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	2667	2766	
==>rary_name> is the name of the dynamic library to be created.

C<%classes> is a map from the PMC name <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	12231	12355	
==>PTION | SYNOPSIS
             | COPYRIGHT | LICENSE | NOTES? | FUNCTIONS? | METHODS?
             | CAVEATS? | BUGS? | SEE\ A <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	60365	60474	
==>r = 0;
		}
		elsif ($grammar =~ m/$LITERAL/gco)
		{
			($code = $1) =~ s/\\\\/\\/g;
			_parse("a literal termi <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	18634	18740	
==>or_version()>

Returns the minor version number.

=cut

sub minor_version
{
    my $self = shift;

    $sel <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	16905	17021	
==>urn the result vector
    .return (result)
END_PIR
        }

        $template .= <<"END_POSTAMBLE"
    .return (op1 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	3126	3226	
==>$right = $right->compile($compiler);

  $compiler->emit("  $dest = $left $op $right");

  return 1;
} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	456	567	
==>()
#

sub new
{
  my $class = shift;

  my ($block, $type, $ident, $value) = @_;

  confess "Block (" . ref($blo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121938	122037	
==>ne 248 \"src/ops/bit.ops\"\n  /*\n   * lvalue casts are evil, but this one isn't evil enough to kill <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122850	122949	
==>ne 248 \"src/ops/bit.ops\"\n  /*\n   * lvalue casts are evil, but this one isn't evil enough to kill <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	2756	2881	
==>$self->name;
    
    $name =~ s/\.[^\.]*$//o;
    
    return $name;    
}

=item C<suffix()>

Use this to get the name's .xy <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	7399	7499	
==>le with the specified name in the directory.

=cut

sub path_for_file_with_name
{
    my $self = shif <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	44437	44536	
==>f the first block of the operation
(that is, the contents of
a quote, the regex of a match or substi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	45093	45207	
==>($p->[$i-1], pos($formatting)-length($1), length($1));
      } else {
        #print "SNARING $+\n";
        push @ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1614	1719	
==>y %props = $sym->props;

  my @args  = $self->args;

  my @formal_args = $sym->args;

  $self->SYNTAX_ERRO <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1314	1419	
==>y %props = $sym->props;

  my @args  = $self->args;

  my @formal_args = $sym->args;

  $self->SYNTAX_ERRO <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	2324	2448	
==>oto, 2 );
    my $returntype = $parts[0];
    my $parms = $parts[1];

    $parms =~ s/\s+/ /g;
    $parms =~ s/([^(]+)\s*\((. <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	44405	44517	
==>self->_constant($node->{value});
    }
  }

  return $return;
}

sub generate {
  my $tree = shift;

  my $self = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	1777	1892	
==>ift->{BLOCK};    }

sub scope  { return shift->{SCOPE}     }
sub kind   { return shift->{KIND};     }
sub type   { r <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	450	540	
==>>SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  #$new->accept_codes('VerbatimForm <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	254	343	
==>>SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->accept_codes('VerbatimForm <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	253	342	
==>>SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->accept_codes('VerbatimForm <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19434	19548	
==>b/Regex/Grammar.y"
{ return op('match' => [ ord($_[1]) ]); }
	],
	[#Rule 12
		 'expr', 1,
sub
#line 115 "lib/Regex/ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	46660	46754	
==>wo separate pieces of the here document are successfully extracted and
concatenated.

In a list <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	403	513	
==>::Declaration);

use Jako::Construct::Type;


#
# new()
#

sub new
{
  my $class = shift;

  my ($block, $type, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	403	513	
==>::Declaration);

use Jako::Construct::Type;


#
# new()
#

sub new
{
  my $class = shift;

  my ($block, $type, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	15876	15964	
==>ODY" => "#line 260 \"src/ops/core.ops\"\n  {{=run_native(interpreter, CUR_OPCODE, interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660499	660816	
==>xists",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 738,
                  "ARGS" = <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35038	35167	
==>Test}.
FAIL

            _my_exit( 255 ) && return;
        }

        _my_exit( $num_failed <= 254 ? $num_failed : 254  ) && retu <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	854	956	
==>rything but the pmclass declaration
    s/^.*?pmclass//s;
    s/\{.*$//s;

    return $PMC_PARENTS{$pmc <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	1598	1697	
==>ade here will be lost!
 *
 */

#define CONCAT(a,b) a##b
#define _CONST_STRING(i, l) (i)->const_cstri <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	707	797	
==>:Construct::Expression::Value::Identifier');
  confess "Props are not hash!" if defined $pr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	786	876	
==>:Construct::Expression::Value::Identifier');
  confess "Props are not hash!" if defined $pr <==
3	/Users/nnunley/parrot/config/init/hints/linux.pm	14	103	
==>) 2005, The Perl Foundation.
# $Id: /parrot/config/init/hints/linux.pm 19593 2006-05-30T02 <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	15680	15805	
==>ll_pkg ) if ( keys %extra );
            local *{ $call_pkg . '::TODO' } = \$extra{todo}
                if defined $extra{tod <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	18231	18356	
==>ll_pkg ) if ( keys %extra );
            local *{ $call_pkg . '::TODO' } = \$extra{todo}
                if defined $extra{tod <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	29217	29309	
==>ut text. Thus, the following code also processes
each quote-like operation, but actually remo <==
3	/Users/nnunley/parrot/config/auto/pack.pm	1235	1362	
==>annoying, and this won't work unless sizeof(UV) >= 8
            $format = 'q';
        }
        warn "Configure.pl:  Unable to <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	524	626	
==>he estimated number of ops performed,

=item * the elapsed time, and 

=item * the number of M op/s.

= <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	527	628	
==>he estimated number of ops performed,

=item * the elapsed time, and

=item * the number of M op/s.

= <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1210	1319	
==>rog ||= $ENV{uc($util)};

    # never override the user.  If a non-existent program is specified then
    # th <==
3	/Users/nnunley/parrot/config/inter/make.pm	1031	1140	
==>rog ||= $ENV{uc($util)};

    # never override the user.  If a non-existent program is specified then
    # th <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1207	1316	
==>rog ||= $ENV{uc($util)};

    # never override the user.  If a non-existent program is specified then
    # th <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4375	4534	
==>V>) {
                	/^\s*sub\s+_Parse\s*{\s*$/ .. /^\s*}\s*#\s*_Parse\s*$/
        	and     do {
                	s/^#DBG>//;
                	push(@drv, <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4154	4309	
==>V>) {
                	/^\s*sub\s+_Parse\s*{\s*$/ .. /^\s*}\s*#\s*_Parse\s*$/
        	and     do {
                	s/^#DBG>//;
                	push(@drv, <==
3	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1332	1434	
==>e qw(Lua::opcode);

package KeyedGetOp;
use base qw(Lua::opcode);

package KeyedSetOp;
use base q <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11462	11561	
==>p    = substr($self->forth->text, 0, -1);
      my $value = Jako::Construct::Expression::Value->new( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12009	12108	
==>p    = substr($self->forth->text, 0, -1);
      my $value = Jako::Construct::Expression::Value->new( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12552	12651	
==>p    = substr($self->forth->text, 0, -1);
      my $value = Jako::Construct::Expression::Value->new( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011387	1011529	
==>\"\n  {{\@1}} = Parrot_Run_OS_Command(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012152	1012294	
==>\"\n  {{\@1}} = Parrot_Run_OS_Command(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	428	525	
==>=============================

use strict;
use vars qw(
  %Code2USASCII
  %Name2character
  %Name2 <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12428	12576	
==>ser);
                push @opcodes, @{ $global->[1] };
                my $key = BuildLiteral( $parser, $idf, 'key' );
                push @opco <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16936	17084	
==>ser);
                push @opcodes, @{ $global->[1] };
                my $key = BuildLiteral( $parser, $idf, 'key' );
                push @opco <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	1049	1153	
==>al obliteration. I will face my fear. I will permit
	#  it to pass over me and through me. And when it ha <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	15196	15321	
==>k, [-1, $n, $t];
}

sub binary_word
{
    my ($op, $cmt) = @_;
    my $r = pop @stack;
    my $l = pop @stack;
    my ($t, $n) <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2376	2491	
==>a {
	my($self)=shift;

		exists($$self{USER})
	or	$$self{USER}={};

	$$self{USER};
	
}

sub YYErrok {
	my <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2284	2388	
==>a {
	my($self)=shift;

		exists($$self{USER})
	or	$$self{USER}={};

	$$self{USER};
	
}

sub YYErrok {
	my <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509059	509322	
==>{{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":bas <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509690	509953	
==>{{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":bas <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510345	510608	
==>{{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":bas <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4624	4737	
==>ks.
sub pre_branch($) {
	my $self = shift;
	my $pops = shift;
	my $register_num = 0;
	my $pir = '';

	# Do code fo <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3040	3153	
==>ks.
sub pre_branch($) {
	my $self = shift;
	my $pops = shift;
	my $register_num = 0;
	my $pir = '';

	# Do code fo <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	13493	13600	
==>>maxlen();
    $max = "INF" if ! defined $max;
    return "$str [$min..$max]";
}

# Defaults
sub Regex::Ops: <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2527	2644	
==>=0;
    undef;
}

sub YYNberr {
	my($self)=shift;

	${$$self{NBERR}};
}

sub YYRecovering {
	my($self)=shif <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2422	2528	
==>=0;
    undef;
}

sub YYNberr {
	my($self)=shift;

	${$$self{NBERR}};
}

sub YYRecovering {
	my($self)=shif <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9882	9977	
==>test utility functions, and is
an implementation of the TAP protocol.

This module, like Pugs, i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38226	38444	
==>tion(interpreter, {{\@1}});\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/config/gen/icu.pm	4513	4620	
==>n't need anything more.
        print "Your compiler found the icu headers... good!\n" if $verbose;
    } el <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23259	23346	
==>my $goto = Jako::Construct::Statement::Goto->new($block, $ident, $cond, $left, $op, $rig <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355410	355675	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "write",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947159	947306	
==>ULL, 1,\n\t\"charset '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948061	948208	
==>ULL, 1,\n\t\"charset '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3739	3839	
==>=head1 TODO

=over 4

=item *

Write a pollution detector also for the C preprocessor: also in that
n <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1858	1955	
==>:Docs::Section::BigNum->new,
        Parrot::Docs::Section::Compilers->new,
        Parrot::Docs:: <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2058	2145	
==>'   => "\n{\\pard\\li#rtfindent#\\s31\\keepn\\sb90\\sa180\\f2\\fs#head1_halfpoint_size#\ <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1974	2188	
==>t::run_command( 
                            \@test_prog, 
                            STDOUT => $out_fn,
                            STDERR => $out_fn 
                        );
  
        my $builder_func = $lang <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	668	813	
==>+= $_->{'total'}; } @results;
my $percent = int(($done / $total) * 100);
print "SUMMARY                                           ";
print $don <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	7637	7737	
==>ns a directory with the specified name in the directory.

=cut

sub directory_with_name
{
    my $sel <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841660	841933	
==>@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842424	842697	
==>@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord <==
3	/Users/nnunley/parrot/lib/Test/More.pm	21847	21966	
==>n;
        URI::Geller->bend_spoon;
        is( $spoon, 'bent',    "Spoon bending, that's original" );
    }

With a tod <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	5876	5963	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
#
# And now <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	7563	7650	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
#
# And now <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	8924	9011	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
#
# And now <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	15998	16119	
==>if ($token->is_ident
      and $self->get(1)->is_assign
      and $self->get(2)->is_value
      and $self->get(3)->is_infi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16768	16889	
==>if ($token->is_ident
      and $self->get(1)->is_assign
      and $self->get(2)->is_value
      and $self->get(3)->is_infi <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6311	6425	
==>e=TRUE           ' Force first pass through the array.
WHILE Exchange          ' Sort until no elements are exchang <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15964	16078	
==>e=TRUE           ' Force first pass through the array.
WHILE Exchange          ' Sort until no elements are exchang <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	7307	7404	
==>-- it's a builtin!"
     if exists $Known_directives{$d};
    delete $this->{'accept_directives'}{ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5918	6046	
==>class->{flags}{group}
          or next;
        ($group) = keys %$group;
        $pmc_group{$pmc} = $group;
        push @{ $gro <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6129	6257	
==>class->{flags}{group}
          or next;
        ($group) = keys %$group;
        $pmc_group{$pmc} = $group;
        push @{ $gro <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65283	65395	
==>.$2)");

						!$matchrule and $rule and $rule->addcall($name);
					}
				}
				elsif ($grammar =~ m/$ATLEAST/gc <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12076	12163	
==>ample, C<e2char('sol')>, C<e2char('47')>,
C<e2char('0x2F')>, and C<e2char('057')> all re <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12600	12687	
==>ample,
C<e2char('sol')>, C<e2char('47')>,
C<e2char('0x2F')>, and C<e2char('057')> all re <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4450	4551	
==>s/\$push_num/$push_num/g;
		$push_num++;
	}

	# Return generated code.
	return $pir;
}

sub post_op($$ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2866	2967	
==>s/\$push_num/$push_num/g;
		$push_num++;
	}

	# Return generated code.
	return $pir;
}

sub post_op($$ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1425	1531	
==>no-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT = qq[];

# Here comes some stuff for Win <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1470	1576	
==>no-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT = qq[];

# Here comes some stuff for Win <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1474	1580	
==>no-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT = qq[];

# Here comes some stuff for Win <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	4055	4176	
==>'Igrave'   , 204,
 'Iacute'   , 205,
 'Icirc'    , 206,
 'Iuml'     , 207,
 'ETH'      , 208,
 'Ntilde'   , 209,
 'Ograve' <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	4348	4453	
==>$total_branches) = /\s*([^%]+)% of (\d+) branches taken at least once in file/;
            if ($total_bra <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	5888	6032	
==>slash    => '\\',
            blib_dir => 'blib\\lib',
            make_and => "\n\t",
        );
    } elsif ($is_mingw) {
        my $make = $c <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	21492	21613	
==>0
	P1["_type"], '$_->[1]'
	P2["$_->[0]"]= P1
USERTYPE
			}
		}
	
		print CODE<<FINDIM;
	save P2
	popp
	restore P0
	ret
COP <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	293	398	
==>turn Parrot::Test::per_test( '.gnu_out', $count );
}

sub get_test_prog {
    my $self = shift;
    my ( $ <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	8623	8740	
==>TPDIR . $name, 
    };
  return ();
}

sub runcore2human {
  my %runcore = (
	  goto => "computed goto",
	  jit => "JI <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	15445	15561	
==>s,  length($$textref)-$endpos,
	       );
}


my %mods   = (
		'none'	=> '[cgimsox]*',
		'm'	=> '[cgimsox]*',
		's'	= <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	14522	14618	
==>rns a Perl value which may be used instead of the corresponding
regular expression, or undef if i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340344	340712	
==>ELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "AR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341343	341711	
==>ELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "AR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342342	342710	
==>ELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advanced_io",
                  "AR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5215	5441	
==>],
                  "TYPE" => "inline",
                  "CODE" => 7,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 140 \"src/ops/core.ops\" <==
3	/Users/nnunley/parrot/config/auto/snprintf.pm	573	674	
==>auto/snprintf/test.in');
    cc_build();
    my $res = cc_run() or die "Can't run the snprintf testing <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7019	7116	
==>)
print "Bogus  (0): ", instr(s1$, bogus$)
print "Null   (1): ", instr(s1$, "")
print "Start (11): <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18748	18845	
==>)
print "Bogus  (0): ", instr(s1$, bogus$)
print "Null   (1): ", instr(s1$, "")
print "Start (11): <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	3655	3776	
==>html_suffix($rel_path),
                $source->relative_path($file->path));
        
            $index_html .= "<br>\n" <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	10063	10173	
==>_;
    $value = value($value);
    $DB::single = 1 unless length($value);
    return ".arg $value";
}

sub outp <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1122	1217	
==>based on Pod::Simple.

This class (which is very small -- read the source) overrides
Pod::Simple <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30740	30864	
==>pe = $self->_get_item_type($para);
            # That kills the content of the item if it's a number or bullet.
          DEB <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	31705	31829	
==>pe = $self->_get_item_type($para);
            # That kills the content of the item if it's a number or bullet.
          DEB <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34028	34152	
==>pe = $self->_get_item_type($para);
            # That kills the content of the item if it's a number or bullet.
          DEB <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1089	1219	
==>eq 'ARRAY') {
      $x = $class->new($x); # recurse
    } elsif(ref($x || '') eq 'HASH') {
      $x = { %$x };
    }
     # otherwi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3700	3804	
==>ule';

      my %module_props = $self->block->props;

      $self->SYNTAX_ERROR("Sub declaration has no f <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6364	6468	
==>ule';

      my %module_props = $self->block->props;

      $self->SYNTAX_ERROR("Sub declaration has no f <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	4083	4218	
==>efined(\$init{'$name'})) {\n";
           $out .= "       if (ref \$init{'$name'} eq 'HASH')\n";
            $out .= "            { \$r- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	537	630	
==>::isa($block, 'Jako::Construct::Block');
  confess("Left (" . ref($left) . ") is not Value") u <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	528	621	
==>::isa($block, 'Jako::Construct::Block');
  confess("Left (" . ref($left) . ") is not Value") u <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21167	21297	
==>30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 119,
			'functionc <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	13080	13238	
==>jump) {
            $jit_func = $cpcf_op;
        } else {
            $jit_func = $normal_op;
        }
    }
    else
    {
        $jit_func = "$core_opfunc <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	8169	8267	
==>as_method'} = \%meth_hash;

    my $Dumper = Data::Dumper->new([\%vtable], ['class']);
    $Dumper- <==
3	/Users/nnunley/parrot/lib/Test/More.pm	27513	27608	
==>nctions

The use of the following functions is discouraged as they are not
actually testing func <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1178	1270	
==>e($out_f);
        $pass =$self->{builder}->is_eq( Parrot::Test::slurp_file($out_f), $output, <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1219	1311	
==>e($out_f);
        $pass =$self->{builder}->is_eq( Parrot::Test::slurp_file($out_f), $output, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804283	804392	
==>able->set_pmc_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805184	805293	
==>able->set_pmc_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	5635	5739	
==>ort {
    Test::proclaim(0, $desc, $todo, :$depends);
}

sub diag (Str $diag) is export {
    for (split( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661925	662011	
==>s/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(interp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662841	662927	
==>s/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(interp <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	41715	41837	
==>g ne "P$count") {
      if ($arg =~ /^[INS]/) {
	$self->_morph("P$count", $arg);
	$count++;
	next;
      }
      # Check if <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	520	636	
==>tep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    my $cc        = $conf->data <==
3	/Users/nnunley/parrot/config/auto/readline.pm	532	648	
==>tep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    my $cc        = $conf->data <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8782	8873	
==>with_relative_path($path)>

Returns the path for the subdirectory with the specified path ta <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5599	5702	
==>put_initgroup {
    my ($self, $group) = @_;
    return ("new <rx_ptmp>, \"MatchRange\" # new group \"$g <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009838	1009927	
==>ne 659 \"src/ops/string.ops\"\n  {{\@1}} = string_compose(interpreter, {{\@2}});\n  {{+=3} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010603	1010692	
==>ne 659 \"src/ops/string.ops\"\n  {{\@1}} = string_compose(interpreter, {{\@2}});\n  {{+=3} <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	7089	7187	
==>noop			# Broke!
	_screen_locate($resulty)
YNOTX
	} elsif (@codex and not @codey) {
	push @{$code{$s <==
3	/Users/nnunley/parrot/config/auto/signal.pm	321	411	
==>onfigure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining s <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	337	427	
==>onfigure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining s <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	14598	14790	
==>ser,
                    'result' => $result,
                    'arg1'   => $nil->[0],
                );
                push @{$exprs}, [ $result, [] ];
                push @{ $callop <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4403	4508	
==>or {
    my($target, $pattern, $captures) = @_;
    $target = _parrot_stringify($target);
    $pattern = _ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6908	7013	
==>or {
    my($target, $pattern, $captures) = @_;
    $target = _parrot_stringify($target);
    $pattern = _ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	7104	7256	
==>, 'exceptions'),
            $self->c_pair_item('', 'events'),
        ),
        $self->new_group(
            'Memory', 
            '',
            $s <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	368	463	
==>se strict;

@ISA= qw ( Parse::Yapp::Driver );
#Included Parse/Yapp/Driver.pm file------------ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	360	452	
==>se strict;

@ISA= qw ( Parse::Yapp::Driver );
#Included Parse/Yapp/Driver.pm file------------ <==
3	/Users/nnunley/parrot/config/auto/cgoto.pm	356	449	
==>onfigure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining whet <==
3	/Users/nnunley/parrot/config/auto/python.pm	420	513	
==>onfigure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining whet <==
3	/Users/nnunley/parrot/config/auto/gc.pm	709	800	
==>onfigure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining wh <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	2088	2188	
==>nt STDERR "precompiling grammar from file '$sourcefile'\n",
			     "to class $class in module file ' <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	1770	1868	
==>ll put it into a directory of its choosing)

=item C<include>

Write this file to the location give <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1363	1493	
==>tream => { name => $s, data => $streams->{$s}, },
            test   => { name => $t, data => $tests->{$t},   },
        };
    }
} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54401	54496	
==>{$1} || '\\x'.(unpack("H2",$1))>eg;
         <$pretty_form{$1} || '\\x{'.sprintf("%x", ord($1)). <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54669	54764	
==>{$1} || '\\x'.(unpack("H2",$1))>eg;
         <$pretty_form{$1} || '\\x{'.sprintf("%x", ord($1)). <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3242	3342	
==>ld)->u.key",
    'sc' => "CONST(%ld)->u.string",
    'kc' => "CONST(%ld)->u.key",
    'kic' => "cur_o <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8642	8740	
==>EXT] eq "BARE" or $type[NEXT] eq "COMM")) {  # Line number!
		create_label();
		$currline="$labels{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2152	2248	
==>ld)->u.key",
  'sc'  => "CONST(%ld)->u.string",
  'kc'  => "CONST(%ld)->u.key",
  'kic' => "cur_o <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	51621	51793	
==>0], $_[1] ),
            ];
        }
	],
	[#Rule 45
		 'var', 1,
sub
#line 276 "Lua\lua51.yp"
{
            [ $_[1] ];
        }
	],
	[#Rule 46
		 'var', 4,
s <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11198	11310	
==>my ($class, $method) = @_;

    local $_ = $_[2];
    # Rewrite SELF -> pmc, INTERP -> interpreter
    s/SELF/pmc <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	46128	46236	
==>the tokens except for the last
    if( !ref($p->[$i]) and !ref($p->[$i + 1]) ) {
      DEBUG > 5 and print "_ <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	2704	2841	
==>builder}->diag( $diag ) if $diag;
           }
        }

        # The generated files are left in the t/* directories.
        # Let 'ma <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712439	712531	
==>preter, io, \" \");\n  s = Parrot_sprintf_c(interpreter, \"%.12g\", (double){{\@1}});\n  PIO_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713546	713638	
==>preter, io, \" \");\n  s = Parrot_sprintf_c(interpreter, \"%.12g\", (double){{\@1}});\n  PIO_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565140	565457	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "can",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566032	566349	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "can",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	2757	2874	
==>ype = uc substr($1, 0, 1);
      push @tokens, Jako::Token->new(
        $file, $line, 'type', $type, $1);
      $text <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231857	232109	
==>CODE" => 270,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 592 \"src/ops/cmp.ops\"\n  {{\@1}} = { <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	17377	17543	
==>ter, PMC *pmc_nci,
                STRING *signature)
{
    char       *c;
    STRING     *ns, *message;
    PMC        *b;
    PMC        *iglobals;
    PMC        *t <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2655	2750	
==>,
	'CREDITS' => 'Project info',
	'DEVELOPING' => 'Project info',
	'harness' => 'Perl test harnes <==
3	/Users/nnunley/parrot/config/gen/icu.pm	572	676	
==>-config without-icu);

sub runstep
{
    my ($self, $conf) = @_;

    my ($verbose, $icushared, $icuheade <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3780	3879	
==>ame}(" . join(", ", @args) . ")");
  }

  if (($dest_ident->kind eq 'var') and ($dest_ident->scope e <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39420	39556	
==>( $parser,
        'result' => $fct,
        'arg1'   => $fct->{symbol},
        'type'   => 'Sub',
    );
    push @opcodes1, new N <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	660	752	
==>tch_codeblock($$$$$$$);
sub _match_quotelike($$$$);

# HANDLE RETURN VALUES IN VARIOUS CONTEX <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3095	3186	
==>ut is much more human-readable, being
(more-or-less) one token per line, with line-wrapping. <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	6016	6129	
==>- -
    if( ($type = $token->type) eq 'start' ) {
      if(($tagname = $token->tagname) eq 'L') {
        esc($typ <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	7679	7782	
==>the directory.

=cut

sub directory_with_name
{
    my $self = shift;
    my $path = $self->path_for_dir <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	4955	5052	
==>rce($source)>

Returns the contents of the item interpreted relative to the source
directory.

=cu <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2980	3116	
==>ve looks like \ (as in virtu\)
 #           acute looks like / (as in re/sume/)
 #           circumflex looks like ^ (as in papier ma^che <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6705	6819	
==>x_stack>, -1; # pushmark";
    return @ops;
}

sub output_pushindex {
    my ($self, $reg) = @_;
    $reg = value(d <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7064	7177	
==>x_stack>, -1 # pushmark";
    return @ops;
}

sub output_pushindex {
    my ($self, $reg) = @_;
    $reg = value(d <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928905	929047	
==>ic"
                            ],
                  "BODY" => "#line 385 \"src/ops/string.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO_HEA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930376	930518	
==>ic"
                            ],
                  "BODY" => "#line 385 \"src/ops/string.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO_HEA <==
3	/Users/nnunley/parrot/config/gen/config_pm.pm	148	238	
==>g/gen/config_pm.pm - Record configuration data

=head1 DESCRIPTION

Writes the C<Parrot::Co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824114	824316	
==>[
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 133 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tst <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170359	170447	
==>=> "#line 211 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171300	171388	
==>=> "#line 211 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}} <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3293	3404	
==>${$$self{VALUE}}=$_[0];
    ${$$self{VALUE}};
}

sub YYExpect {
    my($self)=shift;

    keys %{$self->{ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3128	3232	
==>${$$self{VALUE}}=$_[0];
    ${$$self{VALUE}};
}

sub YYExpect {
    my($self)=shift;

    keys %{$self->{ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	953	1044	
==>lf->new_section('BASIC', 'basic.html', '', 'languages/BASIC'),
        $self->new_section('b <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	20824	20930	
==>pr', 5,
sub
#line 135 "lib/Regex/Grammar.y"
{ return $_[4]; }
	],
	[#Rule 24
		 'expr', 3,
sub
#line 137 "l <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	1312	1402	
==>em C<--library=libname>

Specifiy the library name. This will create E<lt>libnameE<gt>.c an <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517757	518111	
==>base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 597,
                  "ARGS" => [
                              "n",
                              "n"
                            ], <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819580	819666	
==>entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n\n  if (!entry) {\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820540	820626	
==>entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n\n  if (!entry) {\ <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	579	689	
==>rcent'} . "%\n"
}

my $done = 0;
my $total = 0;
map { $done += $_->{'done'}; $total += $_->{'total'}; } @r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936289	936511	
==>\@1}} = string_titlecase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937066	937288	
==>\@1}} = string_titlecase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	7702	7838	
==>H   = $self->{fh};
        if ( exists $op->{op} ) {
            print {$FH}
                "  unless $op->{arg1}->{symbol} $op->{op} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	923	1033	
==>$text = $3; # The "(?!:)" is non-capturing!
  }

  while (defined $text and $text ne '') {
    next if $text =~ <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9570	9670	
==>file($path, $name);
    
    return $path;
}

=item C<relative_path_is_directory($path)>

Returns whe <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	275	406	
==>loat | char' ],
        [ ident   => '\w+' ],
        [ _MASTER => ':w<type> <ident>' ],
    ],
    "simple subrules test");
  p6rul <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5412	5537	
==>)=(undef,undef);
	@$stack=( [ 0, undef ] );
	$$check='';

    while(1) {
        my($actions,$act,$stateno);

        $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5152	5270	
==>)=(undef,undef);
	@$stack=( [ 0, undef ] );
	$$check='';

    while(1) {
        my($actions,$act,$stateno);

        $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	15810	15903	
==>ve something in our buffer.  So apparently the document has started.
  unless($self->{'doc_has <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	821899	822137	
==>PE" => "function",
                  "CODE" => 931,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 120 \"src/ops/stack.op <==
3	/Users/nnunley/parrot/config/auto/snprintf.pm	732	848	
==>/) {
        $conf->data->set(HAS_SNPRINTF => 1);
    }
    if ($res =~ /^C99 snprintf/) {
        $conf->data->set(H <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24081	24181	
==>de{$seg}->{code}}, <<DIMARR;
	# Set aside storage for Array $var
	\$P0 = new .PerlHash
	\$P2 = new .P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454659	454920	
==>235 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455514	455775	
==>235 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456369	456630	
==>235 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1033	1126	
==>e!" if defined $left and not UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  co <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1061	1154	
==>e!" if defined $left and not UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  co <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	733	826	
==>e!" if defined $left and not UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  co <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8933	9085	
==>DBG>			$debug & 0x04
#DBG>		and	print STDERR "Forced Error recovery.\n";

            $$check='';

        };

        #Error
            $$errst <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8531	8675	
==>DBG>			$debug & 0x04
#DBG>		and	print STDERR "Forced Error recovery.\n";

            $$check='';

        };

        #Error
            $$errst <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9463	9565	
==>o" then print "Whoa"

' Count by .5's and True! after 3
for t=1 to 10 step 0.5
print t,
print sqr(t),
i <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	7601	7715	
==>\n";
    # and fall thru   
  } elsif(ref( $_[0] ) eq 'SCALAR') {
    $self->{'source_scalar_ref'} = $_[0];
    DEB <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1983	2207	
==>\a//
                and $str .= "\a",      # bell
                last;
            s/^\\b//
                and $str .= "\b",      # backspace
                last;
            s/^\\f//
                and $str .= "\ <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3497	3721	
==>\a//
                and $str .= "\a",      # bell
                last;
            s/^\\b//
                and $str .= "\b",      # backspace
                last;
            s/^\\f//
                and $str .= "\ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	40690	40804	
==>=') . '$1; $backtrack=1;}'
				: "" ) . '
			' . $rightarg->code(@_[1..2]) . '
			$savetext = $text;
			$repcount++ <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	1407	1533	
==>(' ', ldflags   => '-L/sw/lib');
            $conf->data->add(' ', ccflags   => '-I/sw/include');
        }
    }

    cc_gen(' <==
3	/Users/nnunley/parrot/config/auto/readline.pm	1496	1622	
==>(' ', ldflags   => '-L/sw/lib');
            $conf->data->add(' ', ccflags   => '-I/sw/include');
        }
    }

    cc_gen(' <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	38270	38362	
==>_op_vector_ref,
  'vector-set!'   => \&_op_vector_set_bang,
  'vector->list'  => \&_op_vector <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10290	10391	
==>-----------


#line 1 "lib/Regex/Grammar.y"


use constant TRUE => "TRUE";
use constant FALSE => 0;

s <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	15101	15284	
==>* @{ $super_mmd } **\n";
                    push @{ $self->{super_mmd} },
                        { $pname => $super_mmd,
                          'meth' => $meth};
                } <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	1505	1616	
==>\t\$P1[\"$var\"]= \$S0\n";
			}

		}
	}
	#print CODE<<INIT;
	#.sub ${seg}_run			# Always jump here.
		#${seg}_ma <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	9256	9355	
==>> of the
same name in the package.  (See Example 2.)

Each element's type can be scalar, array, hash <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614302	614597	
==>ffset",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615452	615747	
==>ffset",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	11918	12042	
==>$lexicals{$c} = $p;
}

sub STORE_GLOBAL {
    my ($n, $c, $cmt) = @_;
    my $tos = pop @stack;
    my $p = $tos->[1];
    my <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9477	9578	
==>something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get details of me <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6991	7092	
==>something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get details of me <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5547	5648	
==>something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get details of me <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113848	114076	
==>" => "#line 204 \"src/ops/bit.ops\"\n  {{\@1}} <<= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114587	114815	
==>" => "#line 204 \"src/ops/bit.ops\"\n  {{\@1}} <<= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	22015	22177	
==>f, @options );
            }
            else {
                fail( defined $extension, "no extension recognized for $example_f" );
            }
        }
    } <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	6407	6630	
==>n] <- pos
#                  R or rfail
#                  end[n] <- pos
#                  goto next
#
#           rfail: pop -> end[n]
#                  pop -> start[n]
#                  goto lastback
#
#            back <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031495	1031602	
==>>= enum_last_type)\n        {{\@1}} = -1;\n    else\n        {{\@1}} = data_types[{{\@2}} - enum_first_type] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032364	1032471	
==>>= enum_last_type)\n        {{\@1}} = -1;\n    else\n        {{\@1}} = data_types[{{\@2}} - enum_first_type] <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2741	2879	
==>eys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$ <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3050	3188	
==>eys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2845	2983	
==>eys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	622870	622987	
==>rrot_PIC_lru *lru;\n    PMC *sig, *ccont;\n    opcode_t *dest_pc;\n    void **dest_pred;\n    parrot_context_t *caller <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11658	11754	
==>)
print z

' Basic Hello
a$="Hello"
print a$

' Concatenation greeting
a$="Hello,"
b$=" world!"
c <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2165	2276	
==>f->{'source_dead'} = 1;
      $self->_ponder_paragraph_buffer;
      next;
    }


    if( $self->{'line_count'} <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4639	4749	
==>irectory_exists_with_name
{
    my $self = shift;
    my $name = shift;
    
    return -d File::Spec->catdir($ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	16246	16347	
==>textref, $pre, $rawmatch, $qmark) = @_;

	my ($textlen,$startpos,
	    $oppos,
	    $preld1pos,$ld1pos <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1099	1192	
==>ipe -fno-common -Wno-long-double  -I /opt/local/include   -g -Wall -Wstrict-prototypes -Wmissi <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1157	1250	
==>ipe -fno-common -Wno-long-double  -I /opt/local/include   -g -Wall -Wstrict-prototypes -Wmissi <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1161	1254	
==>ipe -fno-common -Wno-long-double  -I /opt/local/include   -g -Wall -Wstrict-prototypes -Wmissi <==
3	/Users/nnunley/parrot/tools/dev/manicheck.pl	324	421	
==>/manicheck.pl - Check the MANIFEST file

=head1 SYNOPSIS

    % perl tools/dev/manicheck.pl

=head <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	895	989	
==>hout leading/trailing pattern delimiters.

(Hint: if you try using qr// for the $pattern then y <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2993	3087	
==>hout leading/trailing pattern delimiters.

(Hint: if you try using qr// for the $pattern then y <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939826	940123	
==>t",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 105 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940717	941014	
==>t",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 105 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941609	941906	
==>t",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 105 <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	6618	6779	
==>{'name'}\n";
            }
        }

        # arguments
        elsif (/^arguments$/) {
            if ($has_args) {
                die "Duplicate value for ar <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	620981	621092	
==>n;\n\n    /* avoid load dependencies - intermix derefs\n     * - yes, confusing but faster\n     */\n    ctx = C <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1418	1519	
==>_pmc = new $pmc_type");
    $compiler->emit("  $temp_pmc = $right");
    $compiler->emit("  global \"$ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33868	33987	
==>lt} = \@return1;
        push @opcodes2, $callop;
    }
    push @opcodes1, @opcodes2, @opcodes3;
    my $lbl_loop = <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	1876	1981	
==>bug
    if ( $ENV{TEST_PROG_ARGS} && $ENV{TEST_PROG_ARGS} !~ /\b--gc-debug\b/ )
    {
        $ENV{TEST_PR <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	12073	12170	
==>he current C<PATH> for.  The first matching
program name is returned or C<undef> on failure.  Note <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365267	365369	
==>}} && {{\@1}}) {\n    PIO_putps(interpreter, {{\@1}}, {{\@2}});\n  }\n  else {\n    /* Handle error her <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366107	366209	
==>}} && {{\@1}}) {\n    PIO_putps(interpreter, {{\@1}}, {{\@2}});\n  }\n  else {\n    /* Handle error her <==
3	/Users/nnunley/parrot/languages/dotnet/tools/benchmark.pl	108	205	
==>ith SRM $srm\n";
	`nmake clean`;
	`perl Configure.pl --monolib=..\\..\\dlls --srm=$srm`;
	`nmak <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786121	786207	
==>17 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed_int(interprete <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787032	787118	
==>17 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed_int(interprete <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	9607	9711	
==>ore_ops{$core_opfunc[$i]}[0];
    $extern = $core_ops{$core_opfunc[$i]}[1];

    my $jit_func;
    my $op <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1883	1985	
==>de of subroutine.")
    unless (defined $sub_block);

  my $sub_name = $sub_block->name;

  my $return_ <==
3	/Users/nnunley/parrot/examples/benchmarks/arriter.pl	114	204	
==>6-05-30T13:32:26.641316Z coke  $

=head1 NAME

examples/benchmarks/arriter.pl - Iterator Be <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841600	841706	
==>src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842364	842470	
==>src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	3308	3407	
==>be more than one Test::Builder object and this is how
you get it.  You might use this instead of C<n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671768	672143	
==>FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 752,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  " <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	4253	4409	
==>} ) {
            print {$FH}
                "  new $op->{result}->{symbol}, $op->{arg1}, $op->{arg2}\n";
        }
        else {
            print {$ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1991	2093	
==>rs/nnunley/parrot/include' . $PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/src/ <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2287	2389	
==>rs/nnunley/parrot/include' . $PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/src/ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2082	2184	
==>rs/nnunley/parrot/include' . $PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/src/ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	23613	23747	
==>hared : $libparrot_static;

            my $iculibs = "";
            if ($PConfig{'has_icu'}) {
                $iculibs = $PConfig{ic <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	50901	50993	
==>cket is useful
in some circumstances. For example, in the Parse::RecDescent module,
parser ac <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	637	736	
==>ot defined!" unless defined $op;
  confess "Right is not defined!" unless defined $right;

  confess <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	649	748	
==>ot defined!" unless defined $op;
  confess "Right is not defined!" unless defined $right;

  confess <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	698	793	
==>ization
# -----------------------------------
# nop : Do nothing (placeholder)
# check : Check t <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	12761	12875	
==>fo = info;
    p->next = hop[hidx];
    hop[hidx] = p;
}
static int get_op(const char * name, int full) {
    HOP * <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	53855	53953	
==>warning is issued if the argument 
has to be reset).

=item 4.

A value indicating whether unmatche <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	2113	2210	
==>eneral way to change
where a file will be written to. It will be applied before any
metadata tags. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321633	321931	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u4",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322404	322702	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u4",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323176	323474	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u4",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321373	321573	
==>" => [
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 129 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (INTVAL)(Parrot_Int <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	5246	5371	
==>get_token;
    
    if ( $next->type eq 'text' )
    {
        my $text = $next->text;
        my $dist = Parrot::Distribution <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tests.pm	186	286	
==>s documentation section

=head1 SYNOPSIS

	use Parrot::Docs::Section::Tests;

=head1 DESCRIPTION

A d <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	140	247	
==>ee::mark('FAIL');

sub init_context {
    my ($self, $ctx) = @_;
    $ctx->{rx_match} ||= '$rx_match';
    $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	312	416	
==>atch : Match a single codepoint
# charclass : Match a character class
# seq
# alternate : Match R or S at <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	3115	3208	
==>ents incompatible changes to Parrot that invalidate existing bytecode files. This is the new e <==
3	/Users/nnunley/parrot/config/gen/icu.pm	2045	2175	
==>er files
            $icuheaders = capture_output("$icuconfig --prefix");
            if (defined $icuheaders) {
                ch <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	471	587	
==>cted 5 args!" unless @_ == 5;

  my ($block, $prefix, $left, $op, $right) = @_;

  my $self = bless {
    BLOCK     = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	471	587	
==>cted 5 args!" unless @_ == 5;

  my ($block, $prefix, $left, $op, $right) = @_;

  my $self = bless {
    BLOCK     = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2109	2225	
==>bout the redefinition. Otherwise, we assume the programmer wanted to shadow the
  # previous definition.
  #

  if (d <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1629	1745	
==>bout the redefinition. Otherwise, we assume the programmer wanted to shadow the
  # previous definition.
  #

  if (d <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1856	1972	
==>bout the redefinition. Otherwise, we assume the programmer wanted to shadow the
  # previous definition.
  #

  if (d <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11742	11848	
==>1} = elements ${STYPES}
dec ${ITEMP1}
${PTEMP0} = ${STYPES}[${ITEMP1}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP0 <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8805	8911	
==>1} = elements ${STYPES}
dec ${ITEMP1}
${PTEMP0} = ${STYPES}[${ITEMP1}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP0 <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7377	7483	
==>1} = elements ${STYPES}
dec ${ITEMP1}
${PTEMP0} = ${STYPES}[${ITEMP1}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP0 <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22299	22400	
==>node) = @_;
  my $return;
  my $label = $self->_gensym();

  my $temp_0 = $self->_generate($node->{chi <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22800	22901	
==>node) = @_;
  my $return;
  my $label = $self->_gensym();

  my $temp_0 = $self->_generate($node->{chi <==
3	/Users/nnunley/parrot/lib/Test/More.pm	1693	1786	
==>name);

  cmp_ok($this, '==', $that, $test_name);

  is_deeply($complex_structure1, $complex_s <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	7683	7797	
==>ccept_target         { shift->accept_targets(@_)         } # alias
sub accept_target_as_text { shift->accept_target <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	5053	5153	
==>h_path};
die "No benchmarks found" if ! keys %bench;

# List Names Of Benchmarks With Pretty Output
i <==
3	/Users/nnunley/parrot/languages/scheme/Scheme.pm	830	947	
==>ENTRY
        store_lex 0, "$miss", P16
END

    push @function, $miss;

    if ($link->{functions}) {
      push @mis <==
3	/Users/nnunley/parrot/Configure.pl	2464	2560	
==>type)>

Use the given type for C<INTVAL>.

=item C<--floatval=(type)>

Use the given type for C<F <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5198	5337	
==>( exists $op->{result} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $first = 1;
            foreach ( <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6230	6369	
==>( exists $op->{result} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $first = 1;
            foreach ( <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	4959	5060	
==>ype>

The basic parrot PMC type that this PMC correspond to for C<.HLL> usage. For example:

    pmccl <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	4849	4966	
==>tring_${line}_data) - 1,
  1,
  $h
};

DATA
  }
}

open IN, $infile;

my $line = 0;
while (<IN>) {
  $line++;
  next i <==
3	/Users/nnunley/parrot/lib/File/Which.pm	431	533	
==>tensions used for
# executable files
# For others, the empty string is used
# because 'perl' . '' eq 'p <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	20047	20149	
==>ldel2, $rdel2);
		if ($ldel1 =~ /[[(<{]/)
		{
			unless ($$textref =~ /\G\s*(\S)/gc)	# SHOULD USE LOOKA <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3617	3721	
==>add_inst ('', 'set', [$return,$value]);
  }
  else {
    $return = $self->_save_1 ('I');
    $self->_add_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7453	7555	
==>ncipient paragraph
        DEBUG > 1 and print "Starting new ${$paras}[-1][0] para at line ${$self}{'li <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	2899	3000	
==>Methody);
     sub start_L { print Dumper( '' . $_[1]{'section'} ) }
     __PACKAGE__->new->parse_stri <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	15996	16144	
==>or to Scalar
           my ($vector, $scalar, @order);
           if ($type1 eq 'APLVector') {
               $vector = "op1";
               $scalar <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722256	722356	
==>\@1}}; /* TODO Can this be localized? */\n  if (s && string_length(interpreter, s)) {\n    if (PIO_so <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723285	723385	
==>\@1}}; /* TODO Can this be localized? */\n  if (s && string_length(interpreter, s)) {\n    if (PIO_so <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	34779	35051	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_addr", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286345	286595	
==>,
                  "ARGS" => [
                              "i",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 913 \"src/ops/cmp.ops\"\n  {{\@1}} = string_comp <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7352	7477	
==>lf if $self->prefix eq $label;
    }
    else {
      return $self;
    }
  }

  return undef unless $self->block;

  return $ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32072	32179	
==>n(' ', @args) if @args;
    $parameters = ", $parameters" if $parameters;
    my $body = "VTABLE_$meth(inter <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33649	33756	
==>n(' ', @args) if @args;
    $parameters = ", $parameters" if $parameters;
    my $body = "VTABLE_$meth(inter <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40706	40813	
==>n(' ', @args) if @args;
    $parameters = ", $parameters" if $parameters;
    my $body = "VTABLE_$meth(inter <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	7709	7825	
==>t;
    local *OLDERR if $err;

    # Save the old filehandles; we must not let them get closed.
    open  OLDOUT, ">& <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7760	7875	
==>t;
    local *OLDERR if $err;

    # Save the old filehandles; we must not let them get closed.
    open OLDOUT, ">& <==
3	/Users/nnunley/parrot/config/inter/lex.pm	278	379	
==>=cut

package inter::lex;

use strict;

use vars qw( $description @args $prompt $util );

use base qw( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143564	143662	
==>\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144492	144590	
==>\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145420	145518	
==>\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n" <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	5007	5135	
==>le_compile = compreg "PGE::P6Regex"

            .local string target
            .local string pattern
            .local pmc ru <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27942	28062	
==>>_restore($temp);
    }
  }
  return $return;
}

sub _op_abs {
  my ($self,$node) = @_;
  my $return;
  my $label     = $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1064	1184	
==>"', $value, '"';
      }
    }
  } else { # faster
    while(($key,$value) = each %{$_[2]}) {
      unless($key =~ m/^~/s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1805	1915	
==>lf->type;
  my $name  = $self->name;
  my %props = $self->props;
  my @args  = $self->args;

  my $subname = $n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819569	819659	
==>n    stack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n\n  if (!en <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820529	820619	
==>n    stack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n\n  if (!en <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31022	31143	
==>anchOp( $parser,
        'result' => $lbl_loop,
    );
    push @opcodes, new LabelOp( $parser,
        'arg1' => $lbl <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27717	27834	
==>E") {   # Variable name parameter
			$a=$syms[CURR];
			if ($syms[NEXT] eq "as") {
				feedme();  # Get the as
				fee <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45682	45776	
==>s*<rulevar:';
my $DEFERPATMK		= '\G\s*<defer:';
my $TOKENPATMK		= '\G\s*<token:';
my $AUTOERROR <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	37132	37227	
==>t under the same terms as Perl itself.

See F<http://www.perl.com/perl/misc/Artistic.html>

=cut <==
3	/Users/nnunley/parrot/lib/Test/More.pm	37541	37636	
==>t under the same terms as Perl itself.

See F<http://www.perl.com/perl/misc/Artistic.html>

=cut <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	6501	6596	
==>t under the same terms as Perl itself.

See F<http://www.perl.com/perl/misc/Artistic.html>

=cut <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8406	8522	
==>$reg eq '$<rx_tmp>';
    return @ops;
}

sub output_peekindex {
    my $self = shift;
    my ($reg, $fallback);
    i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	14067	14178	
==>ten its prefix, etc.
      # correct by virtue of initializing itself based on its peer block's info
      # (av <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	6279	6379	
==>D5> loads all data to encrypt into memory. This is a todo.

=back

=head1 SEE ALSO

L<Digest::MD5>

L <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2740	2869	
==>y_CALL'],
  ['',            'set', 'P12', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Unde <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	3330	3435	
==>1;

    die "$0: Could not find ops file '$file'!\n" unless -e $file;
    my $temp_ops = Parrot::OpsFile-> <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32019	32135	
==>, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $parameters = ", $parameters" if $pa <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33596	33712	
==>, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $parameters = ", $parameters" if $pa <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40653	40769	
==>, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $parameters = ", $parameters" if $pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574810	575084	
==>rrotClass, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575614	575888	
==>rrotClass, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564610	564859	
==>=> 645,
                  "ARGS" => [
                              "p",
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line 183 \"src/ops/object.ops\"\n  VTABLE_add_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	268604	268895	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isgt",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243883	243993	
==>,
                  "BODY" => "#line 632 \"src/ops/cmp.ops\"\n  STRING* l = VTABLE_get_string(interpreter, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244815	244925	
==>,
                  "BODY" => "#line 632 \"src/ops/cmp.ops\"\n  STRING* l = VTABLE_get_string(interpreter, {{\@ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9839	9953	
==>@_; # break aliasing
    } else {
      my $x = shift;
      $x =~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2707	2803	
==>ce
PRINT "1 in module-level code"
GOSUB Sub1
PRINT "ERR this line in main routine should be skipp <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16674	16770	
==>ce
PRINT "1 in module-level code"
GOSUB Sub1
PRINT "ERR this line in main routine should be skipp <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	29975	30072	
==>g., in "L<Perl
# Functions|perlfunc>", the name -- also sometimes called the page -- is
# "perlfun <==
3	/Users/nnunley/parrot/examples/benchmarks/stress.pl	761	844	
==>ks/stress2.pasm>, 
F<examples/benchmarks/stress2.pl>, 
F<examples/benchmarks/stress3 <==
3	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	822	905	
==>ks/stress2.pasm>, 
F<examples/benchmarks/stress2.pl>, 
F<examples/benchmarks/stress3 <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	8977	9070	
==>nter}, \$text, $thisparser;
	':'') . ($parser->{_check}{prevoffset}?'
	my $prevoffset;
	tie $p <==
3	/Users/nnunley/parrot/tools/dev/cc_flags.pl	949	1066	
==>*?)\}\s*//) {
	next unless $1;
	$regex = qr/$1/;
    }
    elsif (s/^(\S+)\s*//) {
	$regex = qr/^\Q$1\E$/;
    }
    e <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	51971	52064	
==>subroutines or regular expressions) to apply to that string.

In an array context C<extract_mu <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	2594	2702	
==>ub is_executable
{
    my $self = shift;
    
    return $self->stat->mode & 0111;
}

=item C<modified_since( <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	1151	1258	
==>),
            $self->new_item('', 'lib/Parrot/Docs/Group.pm'),
            $self->new_item('', 'lib/Parrot/ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Ops.pm	244	337	
==>cs::Section::Ops;

=head1 DESCRIPTION

A documentation section describing the Parrot ops.

=he <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676043	676149	
==>{\@1}}->vtable->unshift_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676823	676929	
==>{\@1}}->vtable->unshift_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9653	9750	
==>to locate a matching
symbol, and then returns that symbol's access (const or not).

=cut

sub acce <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2697	2806	
==>ond } });
    $handler->start_element({ Name => 'block', Attributes => { kind => 'test' } });
    $handler->st <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3461	3570	
==>ond } });
    $handler->start_element({ Name => 'block', Attributes => { kind => 'test' } });
    $handler->st <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	2575	2677	
==>the errata section
  'complain_stderr',   # whether to complain to stderr

  'doc_has_started',   # whe <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48796	48917	
==>tion of a repeated directive",
					       $line);
					_hint("Repeated directives cannot have
					       a maximum repet <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065189	1065307	
==>ed_str(interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066063	1066181	
==>ed_str(interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090158	1090367	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice",
                  "FLAGS" => ":python",
                  "ARGDIRS" => [
                                 "o" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1091217	1091426	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice",
                  "FLAGS" => ":python",
                  "ARGDIRS" => [
                                 "o" <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	4812	4923	
==>= map { $_->{filename} => 1 } @smokes;
  for(map { @$_ } values %cats) {
    next unless $_;

    delete $delete <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12386	12525	
==>,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 9
		ACTIONS => {
			":" => 42,
			'STRING' => 44,
			"[" => 47,
			"{" => 38 <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5902	6029	
==>->suffix . '_';

    return <<END_C;
 	if (!${bs}op_lib.op_func_table)
            ${bs}op_lib.op_func_table = (op_func_t *) $cg <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20270	20370	
==>RecDescent::_trace(q{>>Matched production: ['
					  . $self->describe . ']<<},
					  Parse::RecDesc <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4681	4780	
==>ven as --destination=DIRECTORY
    shift(@pmcs) =~ /--destination=(.*)/
      or die "copy command r <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4785	4884	
==>ven as --destination=DIRECTORY
    shift(@pmcs) =~ /--destination=(.*)/
      or die "copy command r <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	1809	1905	
==>f, $grammar, $class, $sourcefile) = @_;

		$class =~ /^(\w+::)*\w+$/ or croak("Bad class name: $c <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	21766	21873	
==>"lib/Regex/Grammar.y"
{ return { min => $_[2], max => -1 }; }
	],
	[#Rule 33
		 'number', 2,
sub
#line 160 " <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	48128	48233	
==>(@_);
  
  Carp::croak "But $class->_duo is useful only in list context!"
   unless wantarray;

  my $muto <==
3	/Users/nnunley/parrot/config/auto/jit.pm	144	236	
==>nfig/auto/jit - JIT Capability

=head1 DESCRIPTION

Determines the CPU architecture, the oper <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	3289	3425	
==>'} :";
        if( $type eq '@' ){
            $out .= "    croak 'Initializer for $name must be array reference'\n"; 
            $out . <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	11376	11471	
==>-
optionally preceded by a C<'*'>.

The accessor method provided by C<struct> for an element dep <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	14271	14362	
==>x('/$regex/');

Convenience method for building testing functions that take regular
expressi <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	14501	14612	
==>{$f}}, $gn;
	}
    }
    if ($cur_func =~ /Build::(\w+)/) {   ## XXX && $f ne '__new__'
	$namespace{$f} = $class <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656441	656530	
==>2}}) ? 0 : {{\@2}}->vtable->defined_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657365	657454	
==>2}}) ? 0 : {{\@2}}->vtable->defined_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	9273	9407	
==>{ 'ok', 'actual_ok' } = ( ( $todo ? 1 : 0 ), 0 );
    }
    else {
        @$result{ 'ok', 'actual_ok' } = ( 1, $test );
    }

    $ou <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	3439	3533	
==>xpected, $description)>

Runs the Parrot Bytecode and passes the test if a string comparison of <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	3755	3849	
==>xpected, $description)>

Runs the Parrot Bytecode and passes the test if a string comparison of <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348680	349039	
==>IRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 406,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 162 \ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	422	560	
==>$class = shift;
  my ($compiler) = @_;

  return bless {
    FILE     => undef,
    LINE     => undef,
    TOKENS   => [ ],
    POS      => <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	262	364	
==>oke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statement::Call;

use Carp;

use b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688177	688410	
==>p(interpreter, {{\@1}}, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688949	689182	
==>p(interpreter, {{\@1}}, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	53524	53656	
==>353 "Lua\lua51.yp"
{
            BuildBinop( $_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 62
		 'exp', 3,
sub
#line 35 <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	10611	10745	
==>? map { $arg_dir_mapping{$_} } $op->arg_dirs
            : 0
        ) . " }";
        my $labels     = "{ " . join(", ",  scalar $op-> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	494	595	
==>ight) = @_;

  confess "Block is not defined!" unless defined $block;
  confess "Left is not defined!" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	506	607	
==>ight) = @_;

  confess "Block is not defined!" unless defined $block;
  confess "Left is not defined!" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088391	1088720	
==>> ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1207,
                  "ARGS" => [
                              "p <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2277	2372	
==>um} = ${STEMP0}

# Decrement stack height.
dec stack_depth
PIR
		$pir =~ s/\$register_num/$regis <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3529	3624	
==>um} = ${STEMP0}

# Decrement stack height.
dec stack_depth
PIR
		$pir =~ s/\$register_num/$regis <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	33138	33275	
==>cmt, $sl_n) = @_;
    my ($v, $w, $vv, $ww);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ($w->[ <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	33887	34024	
==>cmt, $sl_n) = @_;
    my ($v, $w, $vv, $ww);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ($w->[ <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	34811	34948	
==>cmt, $sl_n) = @_;
    my ($v, $w, $vv, $ww);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ($w->[ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483647	483743	
==>55 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484646	484742	
==>55 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485645	485741	
==>55 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_exception(int <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	34928	35033	
==>ng idea of what constitutes a bare
          #  modulename link like L<Foo::Bar> or even L<Thing::1.0::Doc <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	9933	10030	
==>[CURR]) or isuserfunc($syms[CURR]))
			and $syms[NEXT] ne "(" and $type[CURR] ne "STRING") {
			pu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272722	272927	
==>"
                            ],
                  "BODY" => "#line 871 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	3991	4127	
==>mt\n";
        }
        elsif( $type =~ /^\w+(?:::\w+)*$/ ){
            $out .= "    if (defined(\$init{'$name'})) {\n";
           $ou <==
3	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	632	761	
==>($input, $output);

         last if ! defined $_;
         die "INPUT: expected" if ! /^INPUT:/;

         # Gather input, look f <==
3	/Users/nnunley/parrot/languages/regex/test.pl	2564	2678	
==>($input, $output);

    last if ! defined $_;
    die "INPUT: expected" if ! /^INPUT:/;

    # Gather input, look f <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	456	574	
==>q 'SCALAR') {
      require Carp;
      Carp::croak("Usage:\n use Pod::Simple::Debug (NUMVAL)\nor"
                . "\ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10378	10476	
==>rint STDERR "**Shift \$error token and go to state ".
#DBG>						 $$states[$$stack[-1][0]]{ACTIONS <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9910	10007	
==>rint STDERR "**Shift \$error token and go to state ".
#DBG>						 $$states[$$stack[-1][0]]{ACTIONS <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2273	2406	
==>invalid class $_[0]";
    }
    $class = "${class}::$name";
    my $self = bless { name => $name,
                       args => $args <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	772	883	
==>ne
  }, $class;

  $block->push_content($self);

  return $self;
}


#
# ACCESSOR:
#

sub ident { return shift-> <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	1840	1938	
==>erator->gen_h($h_name);
    print $hout if $opt->{debug};
    print "Writing $h_name\n" if $opt->{v <==
3	/Users/nnunley/parrot/lib/Test/More.pm	5132	5229	
==>est names

By convention, each test is assigned a number in order.  This is
largely done automatic <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3485	3575	
==>->{'Thispara'} = '';
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3015	3105	
==>->{'Thispara'} = '';
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853163	853383	
==>> 968,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 100 \"src/ops/string.ops\"\n  {{\@1}} = string_ap <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	36704	36825	
==>\" can never
					   succeed, since optional items always
					   match (zero times at worst). 
					   Did you mean a sin <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2216	2318	
==>ecification',
	't' => 'Test file',
	'tbl' => 'Vtable file',
	'tcl' => 'TCL code',
	'txt' => 'Text file' <==
3	/Users/nnunley/parrot/config/gen/config_pm.pm	619	727	
==>= ();

sub runstep
{
    my ($self, $conf) = @_;

    $conf->data->clean;

    genfile('config/gen/config_pm/ <==
3	/Users/nnunley/parrot/config/auto/bc.pm	497	585	
==>arrot::Configure::Step ':auto', 'capture_output';

$description = 'Determining whether GN <==
3	/Users/nnunley/parrot/config/auto/m4.pm	471	559	
==>arrot::Configure::Step ':auto', 'capture_output';

$description = 'Determining whether GN <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35974	36080	
==>ompleted all its tests, it will still be
considered a failure and will exit with 255.

So the exit codes ar <==
3	/Users/nnunley/parrot/lib/Test/More.pm	34045	34151	
==>ompleted all its tests, it will still be
considered a failure and will exit with 255.

So the exit codes ar <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2840	2946	
==>ompleted all its tests, it will still be
considered a failure and will exit with 255.

So the exit codes ar <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5025	5122	
==>, 'VALUE', 'STACK', 'CHECK', 'DOTPOS' };

#DBG>	my($debug)=$$self{DEBUG};
#DBG>	my($dbgerror)=0 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4782	4876	
==>, 'VALUE', 'STACK', 'CHECK', 'DOTPOS' };

#DBG>	my($debug)=$$self{DEBUG};
#DBG>	my($dbgerror)=0 <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	1703	1791	
==>ble[CONCAT(_CONST_STRING_, l)]
#define CONST_STRING(i, s) _CONST_STRING(i, __LINE__)

HEA <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	6208	6315	
==>ting>=0)
	{
		_failmsg "Unmatched opening bracket(s): "
				. join("..",@nesting)."..",
		         pos $$tex <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921000	921090	
==>/ops/string.ops\"\n    {{\@1}}=Parrot_psprintf(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921893	921983	
==>/ops/string.ops\"\n    {{\@1}}=Parrot_psprintf(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}} <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9769	9878	
==>ite. It has the
distinction of being the very first module written for Pugs.

It provides a simple set of comm <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	35181	35280	
==>ntext, C<$text> would be replaced by an empty string.)

Likewise the call in:

	@result = extract_br <==
3	/Users/nnunley/parrot/config/inter/make.pm	457	560	
==>put check_progs );

$util        = 'make';
$description = "Determining whether $util is installed";
$pro <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	269	362	
==>arrot::Pmc2c::Library is a wrapper around a collection of PMCs linked in the
same dynamic libr <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37367	37475	
==>ated subrule: [' . $self->describe . ']},
				  Parse::RecDescent::_tracefirst($text),
				  q{' . $rule->{"n <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6425	6529	
==>f i == 0 goto POST_BRANCH_switch_${CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0[i]
    ${ITEMP0} = ${NEXTPC <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4363	4467	
==>f i == 0 goto POST_BRANCH_switch_${CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0[i]
    ${ITEMP0} = ${NEXTPC <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2531	2635	
==>);
    }

    #print STDERR "pbcc: map_ret_rel($offset)\n";
}

=item C<goto_pop()>

Transforms the C<goto <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	622204	622453	
==>n    {{+=0}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27826	27922	
==>PARROT_DYNEXT_EXPORT ';
    }
    $hout .= <<"EOC";
void Parrot_${classname}_class_init(Parrot_In <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5230	5389	
==>r( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $first = 1;
            foreach ( @{ $op->{result} } ) {
                print {$FH} <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6262	6421	
==>r( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $first = 1;
            foreach ( @{ $op->{result} } ) {
                print {$FH} <==
3	/Users/nnunley/parrot/languages/scheme/Scheme.pm	248	358	
==>NES

=head2 new

A constructor

=cut

sub new {
  my ($class, $file) = @_;

  bless { file => $file },$class;
} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1205	1320	
==>lass;

  #
  # Check for a few bad conditions.
  #
  # NOTE: These are compiler internal consistency checks. They re <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1150	1265	
==>lass;

  #
  # Check for a few bad conditions.
  #
  # NOTE: These are compiler internal consistency checks. They re <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1053	1168	
==>lass;

  #
  # Check for a few bad conditions.
  #
  # NOTE: These are compiler internal consistency checks. They re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550062	550155	
==>\n  next = {{^+3}};\n  interpreter->current_object = object;\n  interpreter->current_cont = NE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551363	551456	
==>\n  next = {{^+3}};\n  interpreter->current_object = object;\n  interpreter->current_cont = NE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552705	552798	
==>\n  next = {{^+3}};\n  interpreter->current_object = object;\n  interpreter->current_cont = NE <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18420	18510	
==>lf->current_block();
      my $sub_name = Jako::Construct::Expression::Value::Identifier->n <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	6715	6794	
==>ot-smoke-<VERSION>-<DEVEL>-r<revision>-<branch>--<cpuarch>-<osname>-<cc>-<runcor <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	2	107	
==>dule lib-0.0.1;
use v6;

our @ORIG_INC = @*INC;  # take a copy of the original

sub import (Str $pkg: *@_p <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	631	734	
==>ings;

=head2 Methods

=head3 Constructors

=over 4

=item * C<new()>

Basic constructor.

Accepts no ar <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	13025	13169	
==>$jit_func = $restart_op;
        }
        elsif ($op->jump) {
            $jit_func = $cpcf_op;
        } else {
            $jit_func = $normal <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	9663	9797	
==>gging,
            $next =>
               );

    return ($back, @ops);
}

sub rewrite_check {
    my ($self, $op, $amount, $R, $lastb <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46944	47047	
==>\"\n  if ({{\@1}} != 0) { Interp_debug_SET(interpreter,   {{\@1}}); }\n  else         { Interp_debug_CLE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47727	47830	
==>\"\n  if ({{\@1}} != 0) { Interp_debug_SET(interpreter,   {{\@1}}); }\n  else         { Interp_debug_CLE <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	48580	48671	
==>ract a balanced
bracket delimited substring that may contain unbalanced brackets
inside Perl <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	7414	7539	
==>/tcl/config/examples.in' => 'languages/tcl/examples/Makefile',
        commentType                        => '#',
        repl <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	407	502	
==>river );
#Included Parse/Yapp/Driver.pm file----------------------------------------
{
#
# M <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	397	488	
==>river );
#Included Parse/Yapp/Driver.pm file----------------------------------------
{
#
# M <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59674	59777	
==>("<uncommit>",$line);
			$aftererror = 0;
		}
		elsif ($grammar =~ m/$ERRORPROD/gco)
		{
			pos($grammar <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	730	826	
==>isa($block, qw(Jako::Construct::Block));
  confess "Type (" . ref($type) . ") is not!"   if defin <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	613	706	
==>isa($block, qw(Jako::Construct::Block));
  confess "Type (". ref($type) . ") is not!" if defin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621460	621550	
==>.signature == sig) {\n\tif (sig) {\n\t    n = ((arg_pass_f)lru->f.real_function)(interprete <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623629	623719	
==>.signature == sig) {\n\tif (sig) {\n\t    n = ((arg_pass_f)lru->f.real_function)(interprete <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	1035	1149	
==>conf) = @_;

    # need vtable.h now
    system($^X, "tools/build/vtable_h.pl");
    my @generated = ();
    for my <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1126	1227	
==>types array size.
${ITEMP0} = elements ${STYPES}
PIR

	# Do code for each pop. Need to set up mv's and <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2836	2937	
==>types array size.
${ITEMP0} = elements ${STYPES}
PIR

	# Do code for each pop. Need to set up mv's and <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	6753	6855	
==>POSITION>" if $Test::ALWAYS_CALLER;
    # message like "test #1 # TODO" confuse the harness. Escape des <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7970	8061	
==>t.
${PARAMS}[${ITEMP0}] = ${STEMP0}

# Next parameter.
dec stack_depth
goto pre_call_PLOOP_$ <==
3	/Users/nnunley/parrot/config/init/defaults.pm	3190	3333	
==>lude",
        cc_debug   => '-g',
        link_debug => '',

        o         => $Config{_o},       # object files extension
        share_ext <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	3377	3493	
==>elf->block->block;
}


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $type  = $self <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1445	1545	
==>o::Construct::Statement::New;
use Jako::Construct::Statement::Return;


#
# new()
#

sub new
{
  my $ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	6500	6602	
==>endpos-$ldelpos-2,		# CONTENTS
		$endpos-1,  1,				# CLOSING BRACKET
		$endpos,    length($$textref)-$e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193557	193650	
==>}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194536	194629	
==>}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+= <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19031	19134	
==>ar.y"
{ return $_[1]; }
	],
	[#Rule 8
		 'regex1', 2,
sub
#line 105 "lib/Regex/Grammar.y"
{ return op('s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828776	828869	
==>Y_PMC) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829844	829937	
==>Y_PMC) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4998	5092	
==>{ 'ERRST', 'NBERR', 'TOKEN', 'VALUE', 'STACK', 'CHECK', 'DOTPOS' };

#DBG>	my($debug)=$$self{ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4755	4847	
==>{ 'ERRST', 'NBERR', 'TOKEN', 'VALUE', 'STACK', 'CHECK', 'DOTPOS' };

#DBG>	my($debug)=$$self{ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28492	28606	
==>ned $e_step ) {
        $e_step = BuildLiteral( $parser, 1, 'number' );
    }
    push @opcodes, @{ $e_start->[1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054294	1054387	
==>code_t * next;\n    if (PMC_IS_NULL({{\@2}}))\n\tinternal_exception(1, \"Tried to get from nul <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055421	1055514	
==>code_t * next;\n    if (PMC_IS_NULL({{\@2}}))\n\tinternal_exception(1, \"Tried to get from nul <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3346	3458	
==>gs = $conf->data->get('linkflags');
            $linkflags =~ s/-opt:\S+//;
            $conf->data->set(linkflag <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4850	4962	
==>gs = $conf->data->get('linkflags');
            $linkflags =~ s/-opt:\S+//;
            $conf->data->set(linkflag <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514122	514232	
==>.ops\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515002	515112	
==>.ops\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515882	515992	
==>.ops\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/examples/benchmarks/oo5.pl	103	217	
==>print $o->i, "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift;
    return bless [ 10, 20 <==
3	/Users/nnunley/parrot/examples/benchmarks/oo6.pl	95	209	
==>print $o->i, "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift;
    return bless [ 10, 20 <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	1229	1324	
==>ile)>

Returns a reference to an array containing

  [ return_type method_name parameters sectio <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	25908	26021	
==>ara > 3;
      # Content is always ignored.
      

    } elsif($para_type eq '=over') { #//////////////////////// <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	30793	30886	
==>nd extracts the initial substring of the text that
is appropriately delimited. If the delimite <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1820	1931	
==>ar(@args), $name)
    unless @formal_args == @args;

  for (my $i = 0; $i < @args; $i++) {
    my ($formal_arg_t <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1520	1631	
==>ar(@args), $name)
    unless @formal_args == @args;

  for (my $i = 0; $i < @args; $i++) {
    my ($formal_arg_t <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	11358	11453	
==>omewhat experimental feature in Pugs, it is suggested you don't try anything
too funky.

- `cmp_ <==
3	/Users/nnunley/parrot/editor/ops2vim.pl	379	505	
==>f (/\bop \s+ (\w+) \s* \(/x) {
        next if $seen{$1}++;
        if (length($1) + length($cline) > 72) {
            print " <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	5729	5829	
==>"0" italic="0" />
      <itemData name="String Interp" defStyleNum="dsString" />
      <itemData name <==
3	/Users/nnunley/parrot/tools/dev/pbc_header.pl	242	332	
==>maintain Parrot bytecode
compatability. During release preparation (and other changes to
PB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	532581	532751	
==>",
                              "n"
                            ],
                  "BODY" => "#line 877 \"src/ops/math.ops\"\n  {{\@1}} = exp((FLOATVAL){{\@2}});\n  {{+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1086	1174	
==>)cur_opcode + CONTEXT(interpreter->ctx)->pred_offset)

#  define opcode_to_prederef(i, op <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1216	1304	
==>)cur_opcode + CONTEXT(interpreter->ctx)->pred_offset)

#  define opcode_to_prederef(i, op <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35871	35967	
==>st::Builder
will throw a warning and exit with 255.  If the test died, even after
having successf <==
3	/Users/nnunley/parrot/lib/Test/More.pm	33942	34038	
==>st::Builder
will throw a warning and exit with 255.  If the test died, even after
having successf <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8804	8893	
==>er, {{\@1}});\n    struct PackFile_FixupEntry *fe = PackFile_find_fixup_entry(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9920	10009	
==>er, {{\@1}});\n    struct PackFile_FixupEntry *fe = PackFile_find_fixup_entry(interpreter, <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27275	27400	
==>' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 84
		AC <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2149	2252	
==>ume the programmer wanted to shadow the
  # previous definition.
  #

  if (defined $sym and $sym->block <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1896	1999	
==>ume the programmer wanted to shadow the
  # previous definition.
  #

  if (defined $sym and $sym->block <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105154	105417	
==>NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105891	106154	
==>NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	206	302	
==>PSIS

	use Parrot::Docs::Group;

=head1 DESCRIPTION

A documentation I<group> is a number of item <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627382	627475	
==>s init method\n   * copies the registers. */\n  {{\@1}} = pmc_new_noinit(interpreter, {{\@2}}) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628526	628619	
==>s init method\n   * copies the registers. */\n  {{\@1}} = pmc_new_noinit(interpreter, {{\@2}}) <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	6499	6591	
==>lf->{"prods"}}, $prod;
	$self->{"changed"} = 1;
	delete $self->{"expected"};
	$self->{"impcou <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	5110	5243	
==>=~ /^([0-9A-F]{2}\s+)*[0-9A-F]{2}$/) {
                if ($has_code) {
                    die "Duplicate value for code in rule $rul <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	148	235	
==>erpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Type.pm 19606 2006-05-30T15 <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	8942	9045	
==>/ and return "jit";
  /\b-C\b/ and return "cgp";
  /\b-S\b/ and return "switch";
  /\b-f\b/ and return " <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	3801	3917	
==>elf = shift;
    my $token = shift;
    my $tagname = $token->tagname;

    # We make the code tags in items bold bec <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686427	686514	
==>rc/ops/pmc.ops\"\n   {{\@1}} = {{\@3}}->vtable->getprop(interpreter, {{\@3}}, {{\@2}});\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687317	687404	
==>rc/ops/pmc.ops\"\n   {{\@1}} = {{\@3}}->vtable->getprop(interpreter, {{\@3}}, {{\@2}});\ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	4614	4759	
==>$}) {
      push @tokens, Jako::Token->new(
        $file, $line, 'new', 'pmc', $1);
      $text = $2;
      next;
    }

    
    #
    # (Infix) <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	2393	2513	
==>{};
    my $entry;

    for $entry (@{$vtable}) {
    next if ($entry->[4] =~ /MMD_/);
        my $args = join(", ", 'Int <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	3929	4041	
==>tion
about the path.

=cut

sub stat
{
    my $self = shift;
    
    return File::stat::stat($self->path);
}

=i <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28518	28642	
==>self = $self->{const};
        $hout .= "\n/* Const */\n";
        $hout .= $self->hdecls();
    }
    $hout .= <<"EOH";

#en <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	11026	11127	
==>the instance in SUPER::delete().
    
    $_[0]->delete_contents;
    rmdir($_[0]->path) or die 'Faile <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	36983	37101	
==>> and
                        Michael G Schwern E<lt>schwern@pobox.comE<gt>.

This program is free software; you can re <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7552	7662	
==>00!"
    goto FIN
200 print "200!"
    goto FIN
300 print "300!"
    goto FIN
oats:
	print "Oats",
	return
peas <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19835	19945	
==>00!"
    goto FIN
200 print "200!"
    goto FIN
300 print "300!"
    goto FIN
oats:
	print "Oats",
	return
peas <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	10650	10780	
==>amble_ref},
            "t_$temp_num = (long)GET_NCI_I($reg_num);";
        return "t_$temp_num";
    };
    /I/ && do {
        pu <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37447	37549	
==>text),
				  q{' . $rule->{"name"} . '})
					if defined $::RD_TRACE;').'
		$Parse::RecDescent::lastexp <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39850	39952	
==>text),
				  q{' . $rule->{"name"} . '})
					if defined $::RD_TRACE;').'
		$Parse::RecDescent::lastexp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655018	655313	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "in <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	4100	4216	
==>de .= emit("  .get_from_HLL($help, '_tcl', '$help')");
    }
    
    return $code;
}

sub inline {
    my $line = sh <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	4370	4476	
==>specified type.

=cut

sub is_of_type
{
	my $self = shift;
	my $type = shift;
	
	return 0 unless defined $t <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38484	38592	
==>ule->{"name"} .'})
						if defined $::RD_TRACE;
		') . ($::RD_NO_HITEM ? ''
		     : '$item{q{' . $self->des <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	55049	55146	
==>d value is either
$1 if that variable is defined after the match, or else the
complete match (i.e. <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34181	34277	
==>pir .= "### pre_branch\n";
		$pir .= sub_meta($pre_branch, $mv, "pre_branch for rule $rule->{'nam <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	29636	29786	
==>p( $parser,
        'arg1'   => $_step,
        'op'     => '>',
        'arg2'   => $zero->[0],
        'result' => $lbl_or,
    );
    my $lbl_ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	55205	55342	
==>,
sub
#line 405 "Lua\lua51.yp"
{
            BuildUnop( $_[0], $_[1], $_[2] );
        }
	],
	[#Rule 75
		 'exp', 2,
sub
#line 4 <==
3	/Users/nnunley/parrot/tools/dev/as2c.pl	813	920	
==>f (/^\s*\d+\s[\da-fA-F]{4}\s([\dA-F]{2,8})\s+(.*)/) {
	    if ($in_comment) {
		print " */\n";
	    }
	    m <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63161	63262	
==>tion",$line,"$code$argcode($1)");

						!$matchrule and $rule and $rule->addcall($name);

						_chec <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63882	63983	
==>tion",$line,"$code$argcode($1)");

						!$matchrule and $rule and $rule->addcall($name);

						_chec <==
3	/Users/nnunley/parrot/config/gen/icu.pm	2534	2639	
==>ned $icuconfig;
        print "icushared='$icushared'\n" if defined $icushared;
        print "headers='$i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065125	1065215	
==>= interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed_str(interpreter, ns_root <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065999	1066089	
==>= interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed_str(interpreter, ns_root <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5654	5748	
==>a1, $ot1, EQ_${eqnum}_a
	inc $result
EQ_${eqnum}_a:
	eq $a2, $ot2, EQ_$eqnum
	dec $result
EQ_$e <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	392	484	
==>, $cur_func, $lambda_count,
   %main_names, %namespace, %may_be_none);
$DIS = 'python mydis.p <==
3	/Users/nnunley/parrot/lib/Test/More.pm	32996	33088	
==>ing and Embedding Test::More

Sometimes the Test::More interface isn't quite enough.  Fortuna <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	19322	19425	
==>ends}};
    }
}

=head2 gen_c( [$dir1, $dir2], $file1, $file2, ... )

Generate the C source code file fo <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1974	2072	
==>call gen_label before translating
	# every instruction) to see if we need to instate a stack type s <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1373	1471	
==>call gen_label before translating
	# every instruction) to see if we need to instate a stack type s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43082	43338	
==>+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pushmark",
                  "FLAGS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43725	43981	
==>+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pushmark",
                  "FLAGS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571165	571422	
==>1}} = Parrot_object_isa(interpreter, {{\@2}}, class);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572120	572377	
==>1}} = Parrot_object_isa(interpreter, {{\@2}}, class);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	2027	2148	
==>my $entry;

    if ($meta{doc}) {
        $entry = "%doc $dest";
    } elsif ($meta{lib}) {
        $entry = "$options{lib <==
3	/Users/nnunley/parrot/lib/Test/More.pm	26230	26358	
==>0;
    foreach my $entry (@Stack) {
        my $type = $entry->{type} || '';
        my $idx  = $entry->{'idx'};
        if( $typ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83699	83788	
==>_pmc_keyed_int(interpreter,\n      interpreter->iglobals, IGLOBALS_COMPREG_HASH);\n  VTABL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84605	84694	
==>_pmc_keyed_int(interpreter,\n      interpreter->iglobals, IGLOBALS_COMPREG_HASH);\n  VTABL <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	151	275	
==>to);
    $self->init();
    return $self;
}

sub init {
    my $self = shift;
    $self->{state} ||= Regex->global_state();
} <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	318	442	
==>to);
    $self->init();
    return $self;
}

sub init {
    my $self = shift;
    $self->{state} ||= Regex->global_state();
} <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	164	288	
==>to);
    $self->init();
    return $self;
}

sub init {
    my $self = shift;
    $self->{state} ||= Regex->global_state();
} <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	7642	7748	
==>body;
    }

    return $body;
}

=item C<source($trans)>

Returns the L<C<full_body()>> of the op with sub <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	6618	6720	
==>ty string then this will return all
the files with no suffix.

=cut

sub files_with_suffix
{
    my $se <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	751728	752017	
==>"i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 847,
                  "ARGS" => [
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 214 \"src/ops/se <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	278	386	
==>XPORT );
@ISA = qw(Exporter Test::More);

sub import {
    my( $class, $plan, @args ) = @_;

    Test::More-> <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	195	303	
==>XPORT );
@ISA = qw(Exporter Test::More);

sub import {
    my( $class, $plan, @args ) = @_;

    Test::More-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	2579	2679	
==>itutions)

In the following macro descriptions, C<PC> and C<PC'> are the current
and next position wi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629770	630042	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":object_clas <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630759	631031	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":object_clas <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107482	1107754	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":object_clas <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	272	370	
==>]

=head1 DESCRIPTION

Displays the API (the visible symbols, code or data) of the Parrot lib.

Fir <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149162	149252	
==>\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150103	150193	
==>\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819564	819653	
==>ry =\n    stack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n\n  i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820524	820613	
==>ry =\n    stack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n\n  i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543329	543664	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lcm",
                  "FLAGS" => ":advanced_math", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544664	544999	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lcm",
                  "FLAGS" => ":advanced_math", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546000	546335	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lcm",
                  "FLAGS" => ":advanced_math", <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	13429	13532	
==>body notations into C code, based
        # on the mode of operation (function calls, switch statements, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934046	934134	
==>\"src/ops/string.ops\"\n  {{\@1}} = string_downcase(interpreter, {{\@2}});\n  {{+=3}};\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934821	934909	
==>\"src/ops/string.ops\"\n  {{\@1}} = string_downcase(interpreter, {{\@2}});\n  {{+=3}};\n" <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33007	33138	
==>'result' => $var,
    );
    if (    scalar( @{$exprs} ) == 0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]- <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	24689	24806	
==>>{symbtab}->LookupS($idf);
    unless ( defined $defn ) {
        my $name;
        $name = 'var_' . $parser->YYDat <==
3	/Users/nnunley/parrot/config/auto/readline.pm	913	1026	
==>eadline -lgw32c -lole32 -luuid -lwsock32 -lmsvcp60');
        } else {
            $conf->data->add(' ', libs => ' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	1378	1491	
==>'}, ".\n";

  DEBUG > 5 and
   print "#  About to parse lines: ",
     join(' ', map defined($_) ? "[$_]" : "EOF", <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	2576	2684	
==>step for this
    # user could deactivate vital PMCs like SArray
    # so there would be tests needed, that c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	617462	617557	
==>unction)(interpreter, left, right);\n\t{{+=4}};\n    }\n    if (mic->pic) {\n\tlru = mic->pic->l <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299604	299931	
==>3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300450	300777	
==>3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301296	301623	
==>3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne",
                  " <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32244	32375	
==>ue'"
            );
            push @$para, $para->[1]{'~orig_content'};
              # restore the bullet, blocking the assimilat <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4148	4267	
==>sif ($needed eq "0") {
        return ();
    } else {
        return "sub <rx_tmp>, $lenvar, <rx_pos> # need $needed mo <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	33306	33443	
==>');
	   print <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $ <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	34055	34192	
==>');
	   print <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $ <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	34979	35116	
==>');
	   print <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $ <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	3869	3998	
==>r (my $i = 0; $i < $n; $i++) {
		    my ($a, $def) = split(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a = qq!"$a"!;   # quote ar <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	4368	4497	
==>r (my $i = 0; $i < $n; $i++) {
		    my ($a, $def) = split(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a = qq!"$a"!;   # quote ar <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	4676	4799	
==>236,
 'iacute'   , 237,
 'icirc'    , 238,
 'iuml'     , 239,
 'eth'      , 240,
 'ntilde'   , 241,
 'ograve'   , 242,
 'oac <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	11309	11427	
==>eading dereferencer", pos $$textref;
		pos $$textref = $startpos;
		return;
	    }
	    my $deref = $1;

	    unless ($ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10645	10742	
==>on =~ tr/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
        $section = $self->unicode_escape_url($se <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4026	4119	
==>on =~ tr/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
    $section = $self->unicode_escape_url($se <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427456	427785	
==>> ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 491,
                  "ARGS" => [
                              "ic <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688158	688380	
==>1}}->vtable->delprop(interpreter, {{\@1}}, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688930	689152	
==>1}}->vtable->delprop(interpreter, {{\@1}}, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1838	1943	
==>unless defined $path and ! -f $path;
    
    return $self->SUPER::new($path);
}

=back

=head2 Instance M <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569295	569383	
==>object.ops\"\n  {{\@1}} = {{\@2}}->vtable->isa(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570188	570276	
==>object.ops\"\n  {{\@1}} = {{\@2}}->vtable->isa(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2237	2331	
==>< $token->type() eq "start" >>

=item $token->is_text

This is a shortcut for C<< $token->type( <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6771	6881	
==>post load operation hooks.
sub pre_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If w <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4709	4819	
==>post load operation hooks.
sub pre_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If w <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3581	3691	
==>post load operation hooks.
sub pre_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If w <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	15102	15224	
==>ntly open =over region

  # Events fired:  Begin and end for:
  #                   directivename (like head1 .. head4), it <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	11524	11635	
==>math.h
islower     ctype.h
isnan       math.h
isnormal    math.h
isprint     ctype.h
ispunct     ctype.h
isspace <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	7357	7457	
==>es{$d};
    delete $this->{'accept_directives'}{$d};
    DEBUG > 2 and print "OK, won't accept \"=$d\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580103	580551	
==>s",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 662,
                  "ARGS" => [
                              "p",
                              "sc",
                              "s"
                            ],
                  "BODY" = <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	11350	11464	
==>1;
    shift @$incexc;
    $incexc->[0]++;
    return $incexc;
}

sub rewrite_classpieces {
    my ($self, $op, $cl <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	6984	7097	
==>ecause the previous
    # basic block fell through to them.)
    my %AMDEST; # { label name => boolean }
    forea <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4820	4925	
==>@ops;
}

sub output_classmatch {
    my ($self, $incexc, $failLabel) = @_;

    my $passLabel = $self->{st <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4484	4589	
==>@ops;
}

sub output_classmatch {
    my ($self, $incexc, $failLabel) = @_;

    my $passLabel = $self->{st <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276174	276267	
==>1 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277052	277145	
==>1 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277930	278023	
==>1 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+= <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	511	636	
==>.

=cut

use strict;

use File::Copy qw(copy);

# qq[] isn't guaranteed to work, but it's safer than "" as some platforms
# (e <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	469	594	
==>.

=cut

use strict;

use File::Copy qw(copy);

# qq[] isn't guaranteed to work, but it's safer than "" as some platforms
# (e <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	473	598	
==>.

=cut

use strict;

use File::Copy qw(copy);

# qq[] isn't guaranteed to work, but it's safer than "" as some platforms
# (e <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	3775	3898	
==>{
            $fdecl =~ s/^[\n\s]*//gm; $fdecl =~ s/[\n\s]*$//gm;
            print Text::Wrap::wrap("    ", "    ", $fdecl) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3858	3975	
==>y either!")
        unless $module_props{fnlib};

      $fnlib = $module_props{fnlib}->value;
    }

    my $fn = $pro <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6522	6639	
==>y either!")
        unless $module_props{fnlib};

      $fnlib = $module_props{fnlib}->value;
    }

    my $fn = $pro <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	13722	13851	
==>20) .
			     q{..."},
		         pos $$textref;
		pos $$textref = $startpos;
		return;
	}
	my $closing = $1;
	   $closing =~ tr/( <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4562	4668	
==>hing to do.
	return "";
}

# Pre and post branch operation hooks.
sub pre_branch($) {
	my $self = shift;
	m <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2978	3084	
==>hing to do.
	return "";
}

# Pre and post branch operation hooks.
sub pre_branch($) {
	my $self = shift;
	m <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	1307	1413	
==>($failLabel));
}

sub output_pushmark {
    my ($self) = @_;
    return "rx_pushmark P0";
}

sub output_pus <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	338	438	
==>ew() {
	my $invocant = shift;
	return bless {}, $invocant;
}

# Pre-translation hook.
sub pre_transla <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	246	346	
==>ew() {
	my $invocant = shift;
	return bless {}, $invocant;
}

# Pre-translation hook.
sub pre_transla <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	3926	4056	
==>g)
{
	bless {
		text    => $_[1],
		parser  => $_[2],
		prev    => $_[3]?1:0,
	      }, $_[0];
}

sub FETCH    
{
	my $parser = $_[ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	2930	3057	
==>g)
{
	bless {
		text    => $_[1],
		parser  => $_[2],
		prev	=> $_[3]?1:0,
	      }, $_[0];
}

sub FETCH    
{
	my $parser = $_[ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273567	273736	
==>"
                            ],
                  "BODY" => "#line 876 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	274413	274582	
==>"
                            ],
                  "BODY" => "#line 876 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	275259	275428	
==>"
                            ],
                  "BODY" => "#line 876 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259570	260008	
==>,
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 302,
                  "ARGS" => [
                              "i",
                              "s",
                              "s"
                            ],
                  "BO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272550	272819	
==>ine",
                  "CODE" => 317,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 871 \"src/ops/cmp.ops\"\n  {{\ <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	1351	1458	
==>cpcf_op, $restart_op );
my %argmaps;
my $jit_cpu;

if ($genfile =~ /jit_cpu.c/) {
    $jit_cpu = 1;
    push <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20875	20969	
==>ructing = 1;
        $right = Jako::Construct::Expression::Value::Identifier->new($block, $self <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374512	374899	
==>,
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 438,
                  "ARGS" => [
                              "i",
                              "sc",
                              "i"
                            ],
                  "BODY" => "#line 427 <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	3154	3417	
==>};
                    } else {
                        $_        = "$prefix$1\t$2";
                        $last_val = $2;
                    }
                    $values{$1} = $2;
                    eval $subst if ($subst ne '');
                    print IN <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54559	54671	
==>tem)
				      or  _no_rule($code,$line);
			}
			elsif ($grammar =~ m/(?=$RULEVARPATMK)/gco
				and do { ($code) <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4310	4423	
==>") or die "Report this as a BUG: Cannot open $fname";
	while(<DRV>) {
                	/^\s*sub\s+_Parse\s*{\s*$ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4090	4201	
==>") or die "Report this as a BUG: Cannot open $fname";
	while(<DRV>) {
                	/^\s*sub\s+_Parse\s*{\s*$ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3175	3278	
==>f = shift;
  my ($handler) = @_;

  my $type = $self->type;

  if (UNIVERSAL::isa($type, 'Jako::Construc <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	637	749	
==>ame (args) :class,flags {
        ... body of function ...
    }

Note that currently the C<inline> op type is ig <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	14767	14872	
==>), and C<rusage> has two elements, each of which is of
type C<timeval>.

    use Class::Struct;

    struc <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	686	781	
==>eate a shim for the interpreted version that automatically calls 
# the inline'd version, compil <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	1532	1654	
==>d only contain paths.
    
    die "No contents ($text).\n" unless @contents;
    
    $self = bless {
        TEXT => $tex <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61101	61201	
==>$lookahead,$line);
			$prod and $prod->additem($item)
			      or  _no_rule("pattern terminal",$line, <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61495	61595	
==>$lookahead,$line);
			$prod and $prod->additem($item)
			      or  _no_rule("pattern terminal",$line, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10481	10657	
==>ss "Extra arguments!" if @_;

  return @{$self->{CONTENT}};
}


###############################################################################

=head2 BLOCK->push_content(LIST) <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	869	1001	
==>h = shift;
    
    return unless defined $path;
    
    $path = File::Spec->rel2abs($path);
    
    # Clean up any /foo/../ stuff. <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	75225	75314	
==>ame;

open (TRACE, ">&STDERR");
format TRACE =
|@|||||||||@^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< <==
3	/Users/nnunley/parrot/config/init/headers.pm	108	201	
==>:45.696181Z bernhard  $

=head1 NAME

config/init/headers.pm - Nongenerated Headers

=head1 DE <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7116	7206	
==>ck_depth 
${DEST0} = "$"
${STEMP0} = ${LOADTYPE}["reg_type_short"]
${DEST0} = concat ${STEM <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4938	5028	
==>ck_depth 
${DEST0} = "$"
${STEMP0} = ${LOADTYPE}["reg_type_short"]
${DEST0} = concat ${STEM <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17596	17760	
==>\s*(\S+)\s*//s) {
          $target = $1;
          last;
        }
      }
      unless(defined $target) {
        $self->whine(
          $para->[1]{'start_line'}, <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	35549	35645	
==>regularly :-(] {} parenthesized >:-)' string }"  );

because the embedded pairs of C<'(..)'>s and <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510537	510826	
==>0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511275	511564	
==>0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	512013	512302	
==>0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 5 <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	1791	1925	
==>int " (yes) " if $verbose;
            $self->result('yes');
        }
    }
    unless ($has_gdbm) {

        # The Config::Data setti <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	7517	7611	
==>pt_directives'} } if wantarray;
  return
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	6835	6926	
==>pt_directives'} } if wantarray;
  return;
}

#---------------------------------------------- <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7862	8019	
==>$code ? &$code( $self, @sempar )
                            : @sempar ? $sempar[0] : undef;

            splice(@$stack,-$len,$len);

                $$ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7507	7659	
==>$code ? &$code( $self, @sempar )
                            : @sempar ? $sempar[0] : undef;

            splice(@$stack,-$len,$len);

                $$ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17933	18039	
==>ong"
case 50
	select case g
	case 6
		print "Wrong again!"
	case 0
		print "Right (nest)!"
	end select
	pri <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	46705	46849	
==>. . . . . . . . . . . . . . . . . . . . . . . .
# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
#================== <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	46751	46872	
==>.
# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
#========================================= <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	46799	46895	
==>. . . . . . . . . . . . . . . .
#================================================================ <==
3	/Users/nnunley/parrot/languages/urm/urm-old.pl	1612	1731	
==>+)/) {
	$pos=$1 ;
    }
    else {
	print "Syntax error\n"; exit;
    }
}  

print "Output: $register{$outreg}\n";
#prin <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9471	9568	
==>rn or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get det <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6985	7082	
==>rn or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get det <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5541	5638	
==>rn or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get det <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651933	652218	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "get_repr",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fun <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23098	23199	
==>push @item, '.($::RD_NO_HITEM ? ''
			       : '$item{'.$self->{hashname}.'}=').'$_tok;
		' . ($self-> <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32855	32955	
==>push @item, ' . ($::RD_NO_HITEM ? ''
				 : '$item{'.$self->{hashname}.'}=') . '$_tok;
		' . ($self-> <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	10207	10315	
==>::Spec->curdir(), 'parrot' . $PConfig{exe});

    my %parrot_test_map = (
        pbc_output_is      => 'is_e <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6165	6266	
==>n, $special);
}

# helper functions for quasiquote

sub _qq_unquote {
  my ($self, $node, $return) = @ <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	16466	16559	
==>d a list
of I<element>=>I<value> pairs, with which to initialize the struct.
If no initializer <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	2056	2164	
==>h)>

Returns the HTML navigation bar.

=cut

sub html_navigation
{
    my $self = shift;
    my $path = shift <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11974	12081	
==>f, $uid, $name, $fail) = @_;
    my $fail_label = $self->output_label_use($fail);
    my @ops;
    if (defin <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	12640	12747	
==>f, $uid, $name, $fail) = @_;
    my $fail_label = $self->output_label_use($fail);
    my @ops;
    if (defin <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1393	1518	
==>ib/luaos.pbc"
#  load_bytecode "languages/lua/lib/luadebug.pbc"
  _main()
.end

};
        return $self;
    }

    s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443585	443672	
==>line 114 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444600	444687	
==>line 114 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79307	79408	
==>\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      /* At this point we have the sym <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80828	80929	
==>\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      /* At this point we have the sym <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	448562	448660	
==>ODY" => "#line 180 \"src/ops/math.ops\"\n  if ({{\@2}} < 0) {\n    {{\@1}} = - (FLOATVAL){{\@2}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	282310	282638	
==>@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283155	283483	
==>@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284000	284328	
==>@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649067	649213	
==>/ops/pmc.ops\"\n    {{\@1}} = pmc_type_p(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649830	649976	
==>/ops/pmc.ops\"\n    {{\@1}} = pmc_type_p(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64666	64779	
==>rule->addcall($name);
					}
				}
				elsif ($grammar =~ m/$BETWEEN/gco)
				{
					_parse("a $1-to-$2 subrule ma <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	644	753	
==>rot};

    my $args = $ENV{TEST_PROG_ARGS} || '';

    $lang_f = File::Spec->rel2abs($lang_f);
    $out_f  = F <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	681	790	
==>rot};

    my $args = $ENV{TEST_PROG_ARGS} || '';

    $lang_f = File::Spec->rel2abs($lang_f);
    $out_f  = F <==
3	/Users/nnunley/parrot/config/init/hints/irix.pm	198	306	
==>$conf) = @_;

    my $ccflags = $conf->data->get('ccflags') || "";

    # 1185 An enumerated type is mixed wi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009336	1009631	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compose",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010100	1010395	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compose",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "f <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20315	20400	
==>>_generate($node->{children}[$_]);
    $self->_add_inst('','gt',[$temp_0,$temp_1,"DONE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040971	1041169	
==>",
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line 120 \"src/ops/var.ops\"\n    Parrot_store_global(interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041864	1042062	
==>",
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line 120 \"src/ops/var.ops\"\n    Parrot_store_global(interpreter <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	12829	12926	
==>ified as C<'%'> or C<'*%'>).

With one or two arguments, the first argument is a key specifying
on <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256429	256734	
==>@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257337	257642	
==>@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258245	258550	
==>@2}} : ({{\@3}} && ! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
3	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	372	489	
==>my @arr;
    foreach (1..10) {
	$arr[$_] = buildarray();
    }

    my @arr1;
    foreach (1..20) {
	$arr1[$_] = build <==
3	/Users/nnunley/parrot/examples/benchmarks/stress.pl	335	442	
==>my @arr;
foreach (1..10) {
    $arr[$_] = buildarray();
}

my @arr1;
foreach (1..20) {
    $arr1[$_] = build <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64606	64698	
==>=> "#line 981 \"src/ops/core.ops\"\n  Interp * const new_interp = (Interp *)PMC_data({{\@1}}) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65557	65649	
==>=> "#line 981 \"src/ops/core.ops\"\n  Interp * const new_interp = (Interp *)PMC_data({{\@1}}) <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	32335	32422	
==>---------------------------------------------------

my %global_ops = (

#-------------- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	282192	282397	
==>"
                            ],
                  "BODY" => "#line 908 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283037	283242	
==>"
                            ],
                  "BODY" => "#line 908 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283882	284087	
==>"
                            ],
                  "BODY" => "#line 908 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540677	540810	
==>a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n {{\@1}} = b<<p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541929	542062	
==>a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n {{\@1}} = b<<p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543181	543314	
==>a>>=1;\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n {{\@1}} = b<<p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633040	633370	
==>FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 709,
                  "ARGS" => [
                              "p", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650150	650415	
==>ME" => "valid_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 72 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651071	651336	
==>ME" => "valid_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 72 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302101	302211	
==>s/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302977	303087	
==>s/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303853	303963	
==>s/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "L <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	5854	6032	
==>languages/parrot_compiler/Makefile',
        commentType                               => '#',
        replace_slashes                           => 1
    );
    genfile(
        ' <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	23189	23283	
==>shift @include, ".", "$FindBin::Bin/../..", "$FindBin::Bin/../../src/pmc/";

    if ( 0 == grep <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1823	1921	
==>MPATIBLE
	and	croak "Yapp driver version $VERSION ".
			  "incompatible with version $$self{VERSI <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1759	1855	
==>MPATIBLE
	and	croak "Yapp driver version $VERSION ".
			  "incompatible with version $$self{VERSI <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2290	2385	
==>s the same implementation as in C<Parrot::OpTrans>. It
should not be duplicated.

=cut

sub gen_ <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	8197	8365	
==>>new($10)->minutes) . "&nbsp;min",
      summary       => [{
        total       => $11,
        ok          => $12,
        failed      => $13,
        todo        => $ <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	12135	12259	
==>.*\.ops")\s+
        {{\@(\d)}}->vtable->
        (\w+)
        \(interpreter,
        \s*
        {{\@(\d)}},\s*{{\@(\d)}},\ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	15958	16056	
==>on: a set of alternatives that should be tried in
# turn, but the exact alternatives are unknown (e <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2335	2458	
==>n;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  my $block = $self->block;
  my $name  = $self->id <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2647	2748	
==>me ne $actual_arg_type->name) {
      my $temp = $compiler->temp_reg($formal_arg_type);
      my $valu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2347	2448	
==>me ne $actual_arg_type->name) {
      my $temp = $compiler->temp_reg($formal_arg_type);
      my $valu <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	4687	4823	
==>on
        );
        $warns = "";
        while (my ($vers, $opt) = splice @opt_and_vers, 0, 2) {
            last if $vers > $gccversio <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	814	926	
==>our @EXPORT = ();
our @EXPORT_OK = qw(prompt genfile copy_if_diff move_if_diff integrate
                    cc_g <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34810	34920	
==>ule $rule->{'name'}");
		}
		$pir .= "### end translation\n";

		# Now emit code to fix up the stack type array <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953739	953948	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954529	954738	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	3009	3197	
==>stem_include{$1}{$file}++;
            next;
        }
        
        if (! $file && /^FILE : '(.*)'$/) {
            $file = $1;
            next;
        }
        
        # skip anyth <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611116	611225	
==>],
                  "BODY" => "#line 491 \"src/ops/object.ops\"\n    VTABLE_set_attr(interpreter, {{\@1}}, {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612019	612128	
==>],
                  "BODY" => "#line 491 \"src/ops/object.ops\"\n    VTABLE_set_attr(interpreter, {{\@1}}, {{ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	57805	57898	
==>.">,
and the true value in the fourth argument means
I<"...discarding anything else that appea <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76757	76851	
==>E+10<length($_[0]))
	{
		my $count = length($_[0]) - $::RD_TRACE;
		return substr($_[0],0,$::RD <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77068	77162	
==>E+10<length($_[0]))
	{
		my $count = length($_[0]) - $::RD_TRACE;
		return substr($_[0],0,$::RD <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	1377	1464	
==>f->new_group('Tools', 'PMC-related tools.', 
			$self->new_item('', 'tools/dev/gen_class <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	17503	17621	
==>h_name **********\n";
    ## print Dumper($self);
    ## exit 0;
    my (@mmds, $found);
    for my $super_mmd (@{ $sel <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	11648	11753	
==>se its ",
      "\"=encoding $e\" line calls for an unsupported encoding.",
      $suggestion, "  [$encmod <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	34	122	
==>, The Perl Foundation.
# $Id: /parrot/examples/benchmarks/mops.pl 19601 2006-05-30T13:32: <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	9182	9293	
==>e (@_) {
    next unless defined $new_code and length $new_code;
    if(ASCII) {
      # A good-enough check tha <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10446	10557	
==>e (@_) {
    next unless defined $new_code and length $new_code;
    if(ASCII) {
      # A good-enough check tha <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	3916	4027	
==>ternative'){
	    $enternative = pack_op($cur_op->code);
	    last FINDENTERN;
	}
    }
    die "Could not locat <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	3013	3136	
==>$op->{arg1}->{symbol}\] = $op->{arg2}->{symbol}\n";
    }

    sub visitIncrOp {
        my $self = shift;
        my ( <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4352	4451	
==>$cb)>

Set a callback on C<$key> named C<$trigger>.  Multiple triggers can be set on a
given key.  W <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	311	404	
==>F<tools/build/pbc2c.pl> to transform Parrot bytecode to a C code
run loop.

=head2 Instance Me <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840554	840848	
==>" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 953,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 272 \"src/ops/s <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20407	20522	
==>") {
				print "WARNING: * in TYPE not supported yet for $name\n";
				feedme;
				feedme;
			}
			while($type[CURR] <==
3	/Users/nnunley/parrot/config/gen/revision.pm	737	878	
==>ies
    );

    if ($revision >= 1) {
        $self->set_result("r$revision");
    } else {
        $self->set_result("done");
    }

    retu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663684	663771	
==>/pmc.ops\"\n  {{\@1}}->vtable->delete_keyed(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664456	664543	
==>/pmc.ops\"\n  {{\@1}}->vtable->delete_keyed(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126605	126730	
==>t INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127740	127865	
==>t INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128875	129000	
==>t INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	828	942	
==>self = bless {
    BLOCK => $block,
    LEFT  => $left,
    RIGHT => $right
  }, $class;

  $block->push_content($s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	836	950	
==>self = bless {
    BLOCK => $block,
    LEFT  => $left,
    RIGHT => $right
  }, $class;

  $block->push_content($s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	678	781	
==>w_eof
{
  my $class = shift;
  my ($file, $line) = @_;

  return $class->new($file, $line, 'eof', undef, <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	31917	32025	
==>en of current tree node
      next unless ref $treelet->[$i];  # text nodes are uninteresting
      unless($t <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	2875	2974	
==>, $str];
	$n = scalar @all_strings;
	$known_strings{$str} = $n;
	$this_file_seen{$str} = $line;
	pri <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	2957	3050	
==>str} = $line;
	print "#define _CONST_STRING_$line $n\n";
	print ALL qq!$len\t$hashval\t"$str"\ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	299	404	
==>porter Test::More);

sub import {
    my( $class, $plan, @args ) = @_;

    Test::More->import( $plan, @ar <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	216	321	
==>porter Test::More);

sub import {
    my( $class, $plan, @args ) = @_;

    Test::More->import( $plan, @ar <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	696	801	
==>ion', 
			    'lib/Parrot/OpsFile.pm', 'lib/Parrot/Op.pm',
			    'lib/Parrot/OpLib',
			    'lib/Parrot/O <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	8467	8564	
==>e 'load' && $rule->{'class'} ne 'calling') {
		die "typeinfo only valid for rules of class op, cal <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720200	720294	
==>)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721400	721494	
==>)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n", <==
3	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	3035	3229	
==>-o parrot " . (join ' ', @obj_files) . "\n";
    close(F);
}


############################################################################
sub run_command {
    my ($command) = @_;

    print "- <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	12007	12182	
==>exc, $lastback ]),
                         aop('increment', [ 1, $lastback ]),
                         aop('goto', [ $next ]),
                $back => aop('increment', [ -1, <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	78594	78688	
==>((pos $_[0]||0)-1, 0);
	$count++ until ($pos=index($_[0],"\n",$pos+1))<0;
	return $count;
}

pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028044	1028141	
==>xt = {{^+2}};\n  if ({{\@1}} < 0) {\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\"Canno <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028895	1028992	
==>xt = {{^+2}};\n  if ({{\@1}} < 0) {\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\"Canno <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1549	1657	
==>ss = shift;

  my $root = Jako::Construct::Block::File->new(
    undef,  # No parent
    'file', # File scope <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4149	4244	
==>_glob_for($target, $pattern, 1);

    goto &Parrot::Test::pir_output_like;
}


package Parrot::T <==
3	/Users/nnunley/parrot/config/inter/make.pm	2247	2363	
==>->data->get('gmake_version')) {
        $conf->data->set(make_c => "$prog -C");
    } else {

        # get the defau <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5370	5479	
==>tatus=0;
	$$nberror=0;
	($$token,$$value)=(undef,undef);
	@$stack=( [ 0, undef ] );
	$$check='';

    wh <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5112	5215	
==>tatus=0;
	$$nberror=0;
	($$token,$$value)=(undef,undef);
	@$stack=( [ 0, undef ] );
	$$check='';

    wh <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83796	83936	
==>mc_keyed_str(interpreter, compreg_hash, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84702	84842	
==>mc_keyed_str(interpreter, compreg_hash, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	21419	21527	
==>sing a temporary (not implemented this way; only for
# comparison with <n,m>? above.)
#
# R*? ->        $matc <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65179	65283	
==>e);
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$line,"$code$argcode($1.. <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65839	65943	
==>e);
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$line,"$code$argcode($1.. <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5305	5424	
==>";
        }

    }
}
else {
    die "invalid command '$mode'\nmust be one of generate, compile, linklibs, or copy\n";
} <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5516	5635	
==>";
        }

    }
}
else {
    die "invalid command '$mode'\nmust be one of generate, compile, linklibs, or copy\n";
} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	6117	6216	
==>lf->{'source_scalar_ref'};
        DEBUG and print "That's it for that source scalarref!  Killing.\n <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10679	10778	
==>Parse
#DO NOT remove comment

1;

}
#End of include------------------------------------------- <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	4883	4980	
==>C<hll HLL>

The High level language this PMC corresponds to.

=item C<maps Type>

The basic parrot <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10200	10293	
==>Parse
#DO NOT remove comment

1;

}
#End of include------------------------------------------- <==
3	/Users/nnunley/parrot/config/init/hints/cygwin.pm	856	1007	
==>ting.
    # A. Dougherty 9/9/2002
    $conf->data->set(
        build_dir           => $build_dir,
        ld                  => 'gcc',
        ld_shar <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27060	27151	
==>cname}=$englishname;

	$f="_USERFUNC_$funcname";
	$f=changename($f);
	$f=~s/\$/_string/g; $f <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27333	27424	
==>cname}=$englishname;

	$f="_USERFUNC_$funcname";
	$f=changename($f);
	$f=~s/\$/_string/g; $f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115418	115695	
==>/ops/bit.ops\"\n  {{\@1}} = {{\@2}} << {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116273	116550	
==>/ops/bit.ops\"\n  {{\@1}} = {{\@2}} << {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117128	117405	
==>/ops/bit.ops\"\n  {{\@1}} = {{\@2}} << {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685619	685929	
==>});\n      {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getpro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686511	686818	
==>});\n   {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getpro <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	42100	42217	
==>s defined $copy[-1];
       # since =over's don't have targets
    }
    
    DEBUG and print "Queuing up fake-o event <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	27892	27997	
==>and print "Extensor has bad syntax.\n";
    $self->whine(
      $para->[1]{'start_line'},
      "Unknown = <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	28820	28919	
==>$_);
			#print STDERR "Marking ${_}${seg}\n";
			$arrays{"${_}${seg}"}=1;
			push @{$code{$seg}->{co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567257	567526	
==>",
                  "CODE" => 648,
                  "ARGS" => [
                              "i",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 213 \"src/ops/object.ops\"\n  {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365291	365391	
==>O_putps(interpreter, {{\@1}}, {{\@2}});\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366131	366231	
==>O_putps(interpreter, {{\@1}}, {{\@2}});\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	9789	9918	
==>";
		$mv->{"DEST$_"} = "dest$_";
	}

    # Emit the translator PIR.
    my $pir = <<TRANSPIR;
# THIS IS A GENERATED FILE! DO NOT E <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6500	6612	
==>re exchanged,
   ' force another pass by setting Exchange to TRUE.
   FOR I = 2 TO Max
      IF A$(I-1) > A$(I) T <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16153	16265	
==>re exchanged,
   ' force another pass by setting Exchange to TRUE.
   FOR I = 2 TO Max
      IF A$(I-1) > A$(I) T <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2669	2786	
==>!= 0;
}

sub YYAbort {
	my($self)=shift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($self <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2551	2657	
==>!= 0;
}

sub YYAbort {
	my($self)=shift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($self <==
3	/Users/nnunley/parrot/config/auto/signal.pm	1081	1186	
==>clean();

    cc_gen('config/auto/signal/test_2.in');
    eval { cc_build(); };
    unless ($@ || cc_run() <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2703	2853	
==>$liblist = join( ' ', map { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        j <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3012	3162	
==>$liblist = join( ' ', map { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        j <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2807	2957	
==>$liblist = join( ' ', map { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        j <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	3936	4098	
==>rt_desc;
            
            next if grep {$_ eq $short_desc} @short_desc;
            
            push @short_desc, $short_desc;
        }
        elsif ( $ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	2436	2535	
==>i<length $dels; $i++)
	{
		my $del = quotemeta substr($dels,$i,1);
		my $esc = quotemeta substr($esc <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	64121	64216	
==>not find closing tag>

C<extract_tagged> reached the end of the text without finding a closing t <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2353	2469	
==>n ($rc == 0) ; # just care if it failed, not howm
}

##
## my $var = choose(@vars)
##
## Select the first defined var <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	3935	4039	
==>and one leading dash ("-") can be used instead of two ("--").
__EOF__
}

if ($^O eq 'solaris'      && $nm <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	6058	6154	
==>rint SOURCE <<END_C;
#include "$include"

${defines}
static op_lib_t ${bs}op_lib;

END_C

my $tex <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	29580	29675	
==>xtraction subroutines is
exactly the same as in a scalar context, except (of course) that the
ex <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46917	47008	
==>line 770 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Interp_debug_SET(interpreter,   {{\@1}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47700	47791	
==>line 770 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Interp_debug_SET(interpreter,   {{\@1}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	106604	106904	
==>=> 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107457	107757	
==>=> 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108311	108611	
==>=> 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026201	1026524	
==>,
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1147,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 280 \"src/ops/ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1457	1569	
==>= @_;

  my $dest_ident = $self->dest;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $sel <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1337	1449	
==>= @_;

  my $dest_ident = $self->dest;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $sel <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2560	2662	
==>turn "{ opcode_t *dest = (opcode_t*)pop_dest(interpreter);
              cur_opcode = (opcode_t*)opcode <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	41514	41611	
==>ck) = @_;

  my($i, $treelet, $content, $replacer, $charnum);
  my $start_line = $stack[0][1]{'sta <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	741	832	
==>rc/bignum.h'),
		),
		$self->new_group('Testing', '',
			$self->new_item('', 't/pmc/bignum.t <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	16695	16820	
==>lasspiece' => 48
		}
	},
	{#State 52
		ACTIONS => {
			'NUM' => 49,
			'CHAR' => 47,
			"]" => 64
		},
		GOTOS => {
			'classp <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	319	425	
==>"","","");
	$seg="_basicmain";
}
sub feedme {
	my $type=shift @tokdsc;
	my $sym=shift @tokens;
        $typ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	20431	20533	
==>[[(<{]/)
		{
			pos($$textref)--;	# OVERCOME BROKEN LOOKAHEAD 
			_match_bracketed($textref,"",$ldel2," <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1019	1113	
==>oken(s) for its
content, and then an end-token with the tagname of "head1".

=item $token->tagn <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1447	1541	
==>oken(s) for its
content, and then an end-token with the tagname of "head1".

=item $token->tagn <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	3274	3368	
==>ols (Uu)
--def|-D	defined symbols (not Uu)
--file|-f	file(name) symbols (Ff)
If more than one o <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	18482	18632	
==>from all the groups.
            foreach (@{$groups{$_}}) {
                $_->{'code'} =~ s/^\w{2} //;
            }

            # Build a group ent <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	27552	27666	
==>->[1]);
      
    } elsif($para_type eq '=back') { #////////////////////////////////////////

      # TODO: fire o <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9828	9938	
==>PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over each parameter and put them into ${PARAMS}. Note that they com <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7342	7452	
==>PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over each parameter and put them into ${PARAMS}. Note that they com <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6306	6416	
==>PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over each parameter and put them into ${PARAMS}. Note that they com <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2372	2496	
==>ight->value) unless $right_sym;
    $right_type = $right_sym->type;
  }
  else {
    $right_type = $right->type;
  }

#  $sel <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2330	2453	
==>ight->value) unless $right_sym;
    $right_type = $right_sym->type;
  }
  else {
    $right_type = $right->type;
  }

  $sel <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2252	2375	
==>ight->value) unless $right_sym;
    $right_type = $right_sym->type;
  }
  else {
    $right_type = $right->type;
  }

  $sel <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393756	394113	
==>ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 457,
                  "ARGS" => [
                              "i",
                              "p"
                            ],
                  "BODY" => "#li <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	320	418	
==>escribing Parrot's configuration system.

=head2 Class Methods

=over

=cut

package Parrot::Docs:: <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1813	1904	
==>to, call
C<<
Pod::Simple::PullParserTextToken->new( I<text> )
>>

=head1 SEE ALSO

L<Pod::Si <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	5142	5291	
==>',
            $self->c_item(
                '', 
                'pairs' => ['string_primitives', 'string'],
                'headers' => ['string_f <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1225	1340	
==>()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $dest_ident = $self->dest;

  my $dest  = $self <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	1947	2154	
==>tifiers
    CONTENT => [ ]      # Constructs
  }, $class;
}


###############################################################################

#
# ACCESSORS:
#

sub peer      { return shift->{PEER};  }
sub ki <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5580	5752	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "load_bytecode",
                  "FLAGS" => ":load_file", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6245	6417	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "load_bytecode",
                  "FLAGS" => ":load_file", <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	375	497	
==>.pl all_source

=head1 DESCRIPTION

This script checks that the C source code conforms to the standards in
PDD 7.

To run i <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	8617	8717	
==>t $sourceline"
	}
	feedme();
	die "Expecting AS" unless $syms[CURR] eq "as";
	feedme();
	die "Expecti <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100500	100790	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101933	102223	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102704	102994	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596128	596236	
==>],
                  "BODY" => "#line 337 \"src/ops/object.ops\"\n  {{\@1}} = VTABLE_subclass(interpreter, {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597021	597129	
==>],
                  "BODY" => "#line 337 \"src/ops/object.ops\"\n  {{\@1}} = VTABLE_subclass(interpreter, {{ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3914	4012	
==>s suffix, failing that it
looks at the file's name. If it fails for both it returns 'Undefined'.

= <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27414	27511	
==>fined $::RD_TRACE;').'
		$lastsep = "";
		$Parse::RecDescent::lastexpected = q{' . ($rule->hasleft <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29524	29621	
==>fined $::RD_TRACE;').'
		$lastsep = "";
		$Parse::RecDescent::lastexpected = q{' . ($rule->hasleft <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31621	31718	
==>fined $::RD_TRACE;').'
		$lastsep = "";
		$Parse::RecDescent::lastexpected = q{' . ($rule->hasleft <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	14965	15094	
==>uper_mmd = $all->{$pname}{methods}[$n]{mmds};
                if ($super_mmd && scalar @{ $super_mmd }) {
                    ##pr <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8545	8649	
==>to do the store.
	# Otherwise, there's nothing to do here.
	if ($dest_reg) {
		$pir .= <<'PIR'
# Get type <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6365	6469	
==>to do the store.
	# Otherwise, there's nothing to do here.
	if ($dest_reg) {
		$pir .= <<'PIR'
# Get type <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786125	786211	
==>"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed_int(interpreter, { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787036	787122	
==>"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed_int(interpreter, { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488057	488345	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	489450	489738	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARG <==
3	/Users/nnunley/parrot/lib/Test/More.pm	3566	3665	
==>pt.

  use Test::More skip_all => $skip_reason;

Your script will declare a skip with the reason why <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38417	38539	
==>ss( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "d <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39281	39403	
==>ss( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "d <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46455	46577	
==>ss( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "d <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4048	4165	
==>ndatory parameter '".lc($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _DBLoad {
	{
		no stric <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3845	3952	
==>ndatory parameter '".lc($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _DBLoad {
	{
		no stric <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	53332	53464	
==>[3] );
        }
	],
	[#Rule 60
		 'exp', 3,
sub
#line 349 "Lua\lua51.yp"
{
            BuildBinop( $_[0], $_[1], $_[2], $_[3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605865	605955	
==>Y" => "#line 441 \"src/ops/object.ops\"\n    Parrot_add_attribute(interpreter, {{\@1}}, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606656	606746	
==>Y" => "#line 441 \"src/ops/object.ops\"\n    Parrot_add_attribute(interpreter, {{\@1}}, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032651	1032946	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_lex",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033748	1034043	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_lex",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  " <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	3565	3667	
==>on't pop off the file scope block.
#

sub pop_block
{
  my $self = shift;

  $self->INTERNAL_ERROR("Att <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11729	11936	
==>ast_key->[1] };
                    my $assign = new KeyedSetOp( $parser,
                        'arg1'   => $last_key->[0],
                        'arg2'   => undef,
                        'result' => <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9933	10124	
==>ast_key->[1] };
                my $assign = new KeyedSetOp( $parser,
                    'arg1'   => $last_key->[0],
                    'arg2'   => undef,
                    'result' => <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8796	8955	
==>ast_key->[1] };
        my $assign = new KeyedSetOp( $parser,
            'arg1'   => $last_key->[0],
            'arg2'   => undef,
            'result' => <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11714	11886	
==>@opcodes, @{ $last_key->[1] };
                    my $assign = new KeyedSetOp( $parser,
                        'arg1'   => $last_key->[0],
                        'arg2 <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9918	10078	
==>@opcodes, @{ $last_key->[1] };
                my $assign = new KeyedSetOp( $parser,
                    'arg1'   => $last_key->[0],
                    'arg2 <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8781	8917	
==>@opcodes, @{ $last_key->[1] };
        my $assign = new KeyedSetOp( $parser,
            'arg1'   => $last_key->[0],
            'arg2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85625	85848	
==>_str(interpreter, compreg_hash, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86532	86755	
==>_str(interpreter, compreg_hash, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	9012	9174	
==>substr($code,0,10), "...";

    while (/ (\{) | (\}) /gx) {
        if($1) {
            $balance++;
        } else { # $2
            $balance--;
            retu <==
3	/Users/nnunley/parrot/config/inter/progs.pm	1505	1619	
==>e
    default will usually work--they've been intuited from your Perl 5
    configuration.

END
    }

    # Set ea <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9898	9989	
==>->text;
      my $right = Jako::Construct::Expression::Value->new($block, $self->require_val <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25434	25525	
==>->text;
      my $right = Jako::Construct::Expression::Value->new($block, $self->require_val <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	33423	33520	
==>->{Curr_Test}\n") unless $self->no_header;
            $self->{Expected_Tests} = $self->{Curr_Test <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28388	28483	
==>_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
						. $& . <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30464	30559	
==>_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
						. $& . <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	6009	6141	
==>n = $len if (! defined $min) || ($min > $len);
    }
    return $min || 0;
}

sub maxlen {
    my $op = shift;
    my $max = 0;
    f <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2332	2442	
==>f (exists $main::common{$var}) {
					push(@saves, $var);
				}
			}
			if (@saves) {
				$edit.=qq{\tfind_glob <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2741	2851	
==>f (exists $main::common{$var}) {
					push(@saves, $var);
				}
			}
			if (@saves) {
				$edit.=qq{\tfind_glob <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963400	963823	
==>GDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1084,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic"
                            ],
                  "BODY" <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	4681	4811	
==>branch_coverage{$source_file} = $percent;
                next;
            }

            ($percent, $total_branches, $function) = <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5678	5783	
==>e found then a warning is printed.

=cut

sub file_paths_relative_to_source
{
    my $self = shift;
    my <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5788	5912	
==>s->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There should be at most a single group
        my $grou <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5999	6123	
==>s->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There should be at most a single group
        my $grou <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	260	358	
==>e Fatal qw{open};
use File::Spec;
use Getopt::Std;
use Text::Balanced; # XXX temporarily limit ours <==
3	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	236	339	
==>$ccflags = $conf->data->get('ccflags');
    if ($ccflags !~ /-pthread/) {
        $ccflags .= ' -pthread <==
3	/Users/nnunley/parrot/config/init/hints/netbsd.pm	144	247	
==>$ccflags = $conf->data->get('ccflags');
    if ($ccflags !~ /-pthread/) {
        $ccflags .= ' -pthread <==
3	/Users/nnunley/parrot/config/init/hints/openbsd.pm	236	339	
==>$ccflags = $conf->data->get('ccflags');
    if ($ccflags !~ /-pthread/) {
        $ccflags .= ' -pthread <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	26291	26434	
==>make this an option?
        shift @$paras;
        next;
        
      } elsif($paras->[0][0] eq '~end') {
        $self->whine(
          $pa <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	39859	39980	
==>oo/Foo>
      unless($link_text) {
        $ell->[1]{'content-implicit'} = 'yes';
        $link_text = [];
        push @$ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	1250	1359	
==>ave', ["$type$count"])
	if $regs{$type}->{$count};
    }
  }
}

sub _save_1 {
  my $self = shift;
  my $type = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614830	614929	
==>t.ops\"\n    opcode_t *next = {{^+4}};\n    INTVAL offset;\n    offset = Parrot_class_offset(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615981	616080	
==>t.ops\"\n    opcode_t *next = {{^+4}};\n    INTVAL offset;\n    offset = Parrot_class_offset(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470667	471026	
==>:base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 540,
                  "ARGS" => [
                              "i",
                              " <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1981	2204	
==>^\\a//
                and $str .= "\a",      # bell
                last;
            s/^\\b//
                and $str .= "\b",      # backspace
                last;
            s/^\\f//
                and $str .= <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3495	3718	
==>^\\a//
                and $str .= "\a",      # bell
                last;
            s/^\\b//
                and $str .= "\b",      # backspace
                last;
            s/^\\f//
                and $str .= <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	10966	11080	
==>evel = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # undef only matches undef and nothing el <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	11384	11498	
==>evel = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # undef only matches undef and nothing el <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	234	331	
==>IS

    use Parrot::Docs::Section::Info;

=head1 DESCRIPTION

A documentation section describing P <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34872	34981	
==>ption for unknown
methods.

=cut

sub body
{
    my ($self, $method, $line, $out_name) = @_;

    my $meth = $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031492	1031600	
==>}} >= enum_last_type)\n        {{\@1}} = -1;\n    else\n        {{\@1}} = data_types[{{\@2}} - enum_first_typ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032361	1032469	
==>}} >= enum_last_type)\n        {{\@1}} = -1;\n    else\n        {{\@1}} = data_types[{{\@2}} - enum_first_typ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	153310	153464	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_num",
                  "FLAGS" => ":base_co <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	590	690	
==>eturn $self->SUPER::new(
        'Tools', 'tools.html', '',
        $self->new_group('Configuration', <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8553	8638	
==>,$a,$_[11],22,0xfd469501,/* 8 */
FF,$a,$b,$c,$d,$_[12],7,0x698098d8,/* 9 */
FF,$d,$a,$ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21441	21628	
==>right);
        }
        
        $right = $left;
      }

      next;
    }

    #
    # Subroutine Return Statements:
    #
    #   return;
    #   return <value>;
    #

    if ($token <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	14324	14449	
==>ments ehs
EH_LOOP:
    dec i
    if i < 0 goto END_EH_LOOP
    eh = ehs[i]
    
    # If this is the start of a try block, emi <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	6226	6336	
==>sc = $_;
    }
    if(!$desc) {
	s/^ *[a-z0-9_]+\.[chly]\s*\n//mi; # own filename - kludgy.
	$desc = $_;
	$desc <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	5476	5569	
==>name="Label" defStyleNum="dsKeyword" />
      <itemData name="Register" defStyleNum="dsDecVal" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172267	172357	
==>.ops\"\n  if (0 != string_equal(interpreter,\n      {{\@1}}->vtable->get_string(interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173245	173335	
==>.ops\"\n  if (0 != string_equal(interpreter,\n      {{\@1}}->vtable->get_string(interpreter <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16241	16353	
==>ruct::Expression::Value::Identifier->new($block, $token);

      $self->require_assign;

      my $left  = Jako:: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17012	17124	
==>ruct::Expression::Value::Identifier->new($block, $token);

      $self->require_assign;

      my $left  = Jako:: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17817	17929	
==>ruct::Expression::Value::Identifier->new($block, $token);

      $self->require_assign;

      my $left  = Jako:: <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	2662	2790	
==>";
	    }
	    else {
		print "#define _CONST_STRING_$line $n\n";
	    }
	    $this_file_seen{$str} = $line;
	    next;
	}
	my $l <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	189	288	
==>d1 SYNOPSIS

    use Parrot::IO::Directory;

=head1 DESCRIPTION

Use this to query and manipulate di <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1573	1695	
==>\-]/;
    return () if $distance == 0;

    if ($distance == 1) {
        return "<rx_pos>++;";
    } elsif ($distance == - <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	1567	1684	
==>TP/1.0 200 OK\n";
  print $CGI->header;

  limit_rate();
  validate_params($CGI);
  add_smoke($CGI);
  clean_obsolete_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	22366	22506	
==>> 3 ) {
        if(!defined $is) {
          print "   Code $was<> is UNKNOWN!\n";
        } elsif($is eq $was) {
          DEBUG > 4 and pri <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	8076	8188	
==>nary=1;
			} elsif (iskeyword($syms[PREV]) and not isbuiltin($syms[PREV]) ) {
				$unary=1;
			}
		}
		if (
			$t <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	3961	4086	
==>res'),
            $self->c_header_item('', 'op'),
            $self->c_header_item('', 'oplib'),
        ),
        $self->ne <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1319	1418	
==>translation hook.
sub pre_translation() {
	# We need a stack depth and a string for label gen and so <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	406	505	
==>translation hook.
sub pre_translation() {
	# We need a stack depth and a string for label gen and so <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263885	264201	
==>sntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 307,
                  "ARGS <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2491	2589	
==>s, we don't discover backward branches until late to do
	# otherwise. Also, putting a label everywh <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1069	1167	
==>s, we don't discover backward branches until late to do
	# otherwise. Also, putting a label everywh <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1327	1439	
==>is responsible for the consequences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $ <==
3	/Users/nnunley/parrot/config/inter/make.pm	1148	1260	
==>is responsible for the consequences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $ <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1324	1436	
==>is responsible for the consequences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2143	2248	
==>arams, \@_, $self );

	if($$self{DEBUG}) {
		_DBLoad();
		$retval = eval '$self->_DBParse()';#Do not c <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2064	2165	
==>arams, \@_, $self );

	if($$self{DEBUG}) {
		_DBLoad();
		$retval = eval '$self->_DBParse()';#Do not c <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	26182	26289	
==>$mod = $_[3];

	my $desc;

	if ($ldel eq '/') { $desc = "$ldel$pattern$rdel$mod" }
	else		  { $desc = "m$lde <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	4194	4293	
==>turn $type unless $type eq $UNDEFINED;
	
	return 'Executable' if $self->is_executable;
		
	return $U <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	3697	3822	
==>st $type $name = $value");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler-> <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	554	670	
==>__END__

sub dump { '[' . _esc( @{ $_[0] } ) . ']' }

# JUNK:

sub _esc {
  return '' unless @_;
  my @out;
  foreach <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1818	1914	
==>de->{children}[0]{type};
  } else {
    $node->{type} = 'INTEGER' if $node->{value} =~ /^[-]?\d+$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	339115	339373	
==>"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 397,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 113 \"src/ops/io.ops\" <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	9711	9831	
==>p = $Parrot::OpLib::core::ops->[$i];

    $precompiled = 0;
    if (!defined $body) {
        $precompiled = 1;
        $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	1943	2071	
==>XME!!!
    } else {
        return $R;
    }
}

sub convert_rx_repeat {
    my ($self, $tree, $ctx) = @_;
    die "Huh?" if $tree <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	221	336	
==>ue, $variable)
       if     defined $value    and ref($value)    eq 'SCALAR'
      and not(defined $variable and re <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	319	412	
==>ko::Construct::Expression::Infix;

use base qw(Jako::Construct::Expression);

sub new
{
  my $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632588	632683	
==>NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_ini <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633630	633725	
==>NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_ini <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	19824	19918	
==>mbols to export for dynamic PMCs.
Currently unused, but retained for being a basis for supporti <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	3217	3346	
==>oin(", ", @args) . ")");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	2248	2348	
==>unie'),
        $self->new_section('Python', 'python.html', '', 'languages/python'),
        $self->n <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	17	114	
==>age Pod::Simple::SimpleTree;
use strict;
use Carp ();
use Pod::Simple ();
use vars qw( $ATTR_PAD @ <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	2014	2107	
==>the location given by the C<--bindir> option

=back

The optional C<destination> field provide <==
3	/Users/nnunley/parrot/tools/dev/symlink.pl	1043	1135	
==>r = File::Spec->splitdir($toolsrcdir);
die "$self: not in tools/dev\n"
  unless @toolsrcdir > <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1056	1147	
==>$parser->get_token on a L<Pod::Simple::PullParser> object, you might
get an object of this c <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	4137	4261	
==>bel:\n";

        # Now do dispatch for each method.
        foreach (@{$classes{$_}}) {
            my $label = $_->{'unimpl <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	1775	1896	
==>onfig/gen/makefiles/dynoplibs_pl.in' => 'tools/build/dynoplibs.pl',
        commentType                             => '#' <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	914	1015	
==>all ops to be
considered manual.

=head2 Op Arguments

Note that argument 0 is considered to be the op <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	3696	3836	
==>expr    => '__expr',
        int     => '__integer',
        list    => '__list',
        script  => '__script',
        var     => '__read', <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	4370	4510	
==>expr    => '__expr',
        int     => '__integer',
        list    => '__list',
        script  => '__script',
        var     => '__read', <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	10436	10521	
==>r.pmc sarray.pmc fixedstringarray.pmc multiarray.pmc hash.pmc orderedhash.pmc tqueue.p <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	1682	1790	
==>s a string constant index.
    kc  The argument is a key constant index.
    ki  The argument is a key intege <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7917	8036	
==>aragraph_buffer();
           # by now it's safe to consider the previous paragraph as done.
          DEBUG > 1 and pri <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	2780	2871	
==>ss $is_allowed{$class_name};
my $trans_class = "Parrot::OpTrans::" . $class_name;

eval "req <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8715	8845	
==>covery.\n";
#DBG>				$dbgerror=0;
#DBG>			};

			    push(@$stack,
                     [ $$states[$$stack[-1][0]]{GOTOS}{$lhs <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8323	8448	
==>covery.\n";
#DBG>				$dbgerror=0;
#DBG>			};

			    push(@$stack,
                     [ $$states[$$stack[-1][0]]{GOTOS}{$lhs <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34424	34551	
==>k.\n";
              push @$para, delete $para->[1]{'~_freaky_para_hack'};
            }

          } elsif($item_type eq 'numbe <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74299	74401	
==>rod($parser,$text,1,$_noactions,$argcode)))
		{
			$text = $_savetext;
			last;
		}
		push @tokens, $_t <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1517	1610	
==>::Construct::Type");

  my $type_name = $type->name;

  $self->INTERNAL_ERROR("Variable defini <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2996	3093	
==>sult}->{symbol}\[$op->{arg1}->{symbol}\] = $op->{arg2}->{symbol}\n";
    }

    sub visitIncrOp <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	574	668	
==>ck');
  confess("Identifier (" . ref($ident) . ") is not!") unless UNIVERSAL::isa($ident, 'Jako <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	574	668	
==>ck');
  confess("Identifier (" . ref($ident) . ") is not!") unless UNIVERSAL::isa($ident, 'Jako <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	4085	4193	
==>Copy original bytecode to edit it
    $byte_code = $pf->byte_code;

    # First block
    push @blocks, [shif <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7252	7353	
==>ase$(s1$);" Lower"
a$="   Flush   "
print ">";ltrim$(a$)
print rtrim$(a$);"<"
' A's and -'s
print stri <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18981	19082	
==>ase$(s1$);" Lower"
a$="   Flush   "
print ">";ltrim$(a$)
print rtrim$(a$);"<"
' A's and -'s
print stri <==
3	/Users/nnunley/parrot/config/auto/jit.pm	1404	1557	
==>') == 1234) {
            $cpuarch = 'i386';
        } else {
            $cpuarch = 'ppc';
        }
    } elsif ($cpuarch =~ /MSWin32/) {
        $cpuar <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	21834	21957	
==>mple_f);
                my $test_func = join( '::', $package, $example_test_map{$func} );
                $test_func->( $la <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	20203	20306	
==>]); }
	],
	[#Rule 18
		 'expr', 3,
sub
#line 127 "lib/Regex/Grammar.y"
{ return op('multi_match' => [ 0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584335	584472	
==>"
                            ],
                  "BODY" => "#line 303 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585410	585547	
==>"
                            ],
                  "BODY" => "#line 303 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	4221	4337	
==>rim()
#
# Trim leading and trailing spaces.

sub _trim
{
    my $value = shift;

    $value =~ s/^\s+//;
    $value = <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4218	4334	
==>"sub <rx_tmp>, $lenvar, <rx_pos> # need $needed more chars",
               "lt <rx_tmp>, $needed, $fail";
    }
}

s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10973	11056	
==>"src/ops/core.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->control_s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11762	11845	
==>"src/ops/core.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->control_s <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	9448	9561	
==>-\x40\x5B-\x5E\x60\x7B-\x7F]/
            # Characters under 0x80 that aren't legal in an XML Name.
        or $ne <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10712	10825	
==>-\x40\x5B-\x5E\x60\x7B-\x7F]/
            # Characters under 0x80 that aren't legal in an XML Name.
        or $ne <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24975	25075	
==>syms[CURR] ne "to");

	feedme();
	# The destination value
	($endexpr, $type, @code)=EXPRESSION();

	f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134183	134446	
==>bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 165, <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33507	33644	
==>ra == 2) {
            # For the cases where we /didn't/ push to @$para
            if($paras->[0][0] eq '~Para') {
              DEBUG an <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35320	35457	
==>ra == 2) {
            # For the cases where we /didn't/ push to @$para
            if($paras->[0][0] eq '~Para') {
              DEBUG an <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	14638	14757	
==>ar name=link>" title="Full smoke report">View full smoke report</a>
            </td>
          </tr>
        </tmpl_loo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45231	45564	
==>"popmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 58,
                  "ARGS" => [
                              "ic"
                            ],
                  "B <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	19483	19589	
==>!=' => 'eq',
	'>' => 'le',
	'>=' => 'lt',
	'<' => 'ge',
	'<=' => 'gt',
	'is' => 'ne_addr',
	'is not' => 'eq <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	8313	8400	
==>p[x])
#define ROFFS_STR(x) REG_OFFS_STR(jit_info->cur_op[x])
#define ROFFS_PMC(x) REG_OF <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	4066	4165	
==>h}/g;
    (my $TEMP_pmc_classes_str = $TEMP_pmc_str) =~ s/^| / src${slash}pmc${slash}/g;
    (my $TE <==
3	/Users/nnunley/parrot/config/gen/config_pm.pm	701	790	
==>file('config/gen/config_pm/myconfig.in', 'myconfig');

    open(IN,  "config/gen/config_pm <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7582	7691	
==>00!"
    goto FIN
300 print "300!"
    goto FIN
oats:
	print "Oats",
	return
peas:
	print "Peas",
	return
bean <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19865	19974	
==>00!"
    goto FIN
300 print "300!"
    goto FIN
oats:
	print "Oats",
	return
peas:
	print "Peas",
	return
bean <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	14021	14126	
==>e);

Returns the class structure from I<$file> for a .dump file.

=cut

sub dump_1_pmc {
    my $file = sh <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79938	80329	
==>=> "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 101,
                  "ARGS" => [
                              "p",
                              "p",
                              "s <==
3	/Users/nnunley/parrot/lib/Test/More.pm	20378	20471	
==>de I<won't be run at all>.  Test::More will output special ok's
which Test::Harness interprets <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35874	35977	
==>ments
{

    my ($self, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $line <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31244	31346	
==>ments
{
    my ($self, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $line <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39864	39966	
==>ments
{
    my ($self, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $line <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	13459	13584	
==>arse tree yet
        $MATCH{$key} = $val;
    }
}
END

    push @ops, $code;

    push @ops, <<'END';
}
# END EMBEDDED CODE
E <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	73	164	
==>/IO/File.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::IO::File - F <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	9930	10010	
==>"$outfile_base.lines.html#$function">@{[$function_line_coverage{$source_file}{$fu <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	19500	19606	
==>ref;
		pos $$textref = $startpos;
		return;
	}
	pos($$textref) = $ld1pos;	# HAVE TO DO THIS BECAUSE LOOKAHE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	97453	97649	
==>ODY" => "#line 86 \"src/ops/bit.ops\"\n  {{\@1}} = ~ {{\@1}};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	617806	617901	
==>t do a dynamic lookup\n\t */\n    }\n    parrot_pic_find_infix_v_pp(interpreter, left, right, mi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	472	565	
==>e_arrayref',   # the arrayref we're reading from
);

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	36480	36606	
==>ype eq '~Para') {
        $para->[0] = 'Para';
        $para_type = '?Plain';
      } elsif($para_type eq 'Data') {
        $pa <==
3	/Users/nnunley/parrot/lib/Test/More.pm	32731	32834	
==>o inline the sort routine due to a threading/sort bug.
    # See [rt.cpan.org 6782]
    return eq_array( <==
3	/Users/nnunley/parrot/lib/Test/More.pm	25201	25297	
==>$msg = <<WARNING;
is_deeply() takes two or three args, you gave %d.
This usually means you passed <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	446448	446691	
==>abs( {{\@1}} );\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447085	447328	
==>abs( {{\@1}} );\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "a <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	3120	3233	
==>e.

=cut

sub code
{
    my $self = shift;

    return $self->{CODE};
}

=item C<type()>

The type of the op, eith <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	1927	2017	
==>cast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wno-unused -Wsign-compare -Wforma <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1292	1382	
==>cast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wno-unused -Wsign-compare -Wforma <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1296	1386	
==>cast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wno-unused -Wsign-compare -Wforma <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3679	3777	
==>),
print int(0),
print int(-.8),
print int(-.3),
print int(3.14)

' Simple subs, Made it here
sub m <==
3	/Users/nnunley/parrot/config/inter/progs.pm	3142	3234	
==>te($ldflags, $conf->options->get('ldflags'));
    $ldflags = prompt("And your $ld for buildin <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3859	3946	
==>d2_halfpoint_size(28);
  $new->head3_halfpoint_size(25);
  $new->head4_halfpoint_size(22 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2716	2819	
==>dent||0) );
   # Yes, 'STRING' x NEGATIVE gives '', same as 'STRING' x 0

  $self->{'Thispara'} =~ tr{\x <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2250	2353	
==>dent||0) );
   # Yes, 'STRING' x NEGATIVE gives '', same as 'STRING' x 0

  $self->{'Thispara'} =~ tr{\x <==
3	/Users/nnunley/parrot/lib/Test/More.pm	24649	24747	
==><is_deeply>

  is_deeply( $this, $that, $test_name );

Similar to is(), except that if $this and $t <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4009	4101	
==>ss defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "No symbol <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6177	6269	
==>ss defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "No symbol <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	18598	18709	
==>. $rule->{"name"} . '});') . '
		my $repcount = 0;

';
	$code .= 
'		my @itempos = ({});
'			if $parser->{_check <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031423	1031523	
==>e 323 \"src/ops/sys.ops\"\n    if ({{\@2}} < enum_first_type || {{\@2}} >= enum_last_type)\n        { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032292	1032392	
==>e 323 \"src/ops/sys.ops\"\n    if ({{\@2}} < enum_first_type || {{\@2}} >= enum_last_type)\n        { <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	723	851	
==>sub {
        my $self = shift;
        my ( $code, $output, $desc, %options ) = @_;

        my $count = $self->{builder}->c <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	1008	1134	
==>sub {
        my $self = shift;
        my ( $code, $output, $desc, %options ) = @_;
  
        my $count = $self->{builder}->c <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	23414	23521	
==>string_make(interp,
            "$does", @{[length($does)]}, "ascii",
            PObj_constant_FLAG|PObj_ex <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27367	27489	
==>),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;').'
		$lastsep = "";
		$Parse::RecDescent::lastexpected = <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29477	29599	
==>),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;').'
		$lastsep = "";
		$Parse::RecDescent::lastexpected = <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31574	31696	
==>),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;').'
		$lastsep = "";
		$Parse::RecDescent::lastexpected = <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3934	4048	
==>-$group")
          or die "compile $group.c failed ($?)\n";
    }
} 
elsif ($mode eq 'linklibs') {
    my ($group_ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4038	4152	
==>-$group")
          or die "compile $group.c failed ($?)\n";
    }
} 
elsif ($mode eq 'linklibs') {
    my ($group_ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	5311	5409	
==>)
	end
ONOK_${ons}:
ON
	$i=1;
	for my $jumps (@onlab) {
		push @{$code{$seg}->{code}}, "\tne $resul <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	117	210	
==>11564Z bernhard  $

=head1 NAME

Parrot::Docs::Section::Docs - Docs documentation section

=he <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	1371	1458	
==>ll create E<lt>libnameE<gt>.c and
pmc_E<lt>libnameE<gt>.h. The initialization function w <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256448	256761	
==>! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257356	257669	
==>! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258264	258577	
==>! {{\@2}}) ? {{\@3}} : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	546	651	
==>ronment variables.

=cut

sub new {
    return $ENV{PARROT_M4_TEST_PROG} ?
        ( bless {}, 'Parrot::Te <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	11558	11659	
==>xpander.innerHTML = "&laquo;";
      } else {
	elem.className = "details";
	expander.innerHTML = "&raq <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2162	2246	
==>}

#--------------------------------------------------------------------------
sub e2 <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	36782	36888	
==>var_' . scalar( @{ $parser->YYData->{scope} } ) . '_' . $idf;
        $defn = new defn( $name, 'local', 'p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451620	451849	
==>Y" => "#line 225 \"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452359	452588	
==>Y" => "#line 225 \"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	17172	17282	
==>il
  # without the slightest worry that paragraphs beginning with "From"
  # will get munged.

  # And some ref <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	46412	46567	
==>,
	[#Rule 8
		 'block', 3,
sub
#line 80 "Lua\lua51.yp"
{
            PopScope( $_[0] );
            [ @{ $_[1] }, @{ $_[2] } ];
        }
	],
	[#R <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1048	1142	
==>1 DESCRIPTION

This class is of
interest to people writing Pod formatters based on Pod::Simple. <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	15229	15358	
==>,
			"(" => 48,
			"." => 49,
			'STRING' => 44,
			"{" => 38
		},
		DEFAULT => -57,
		GOTOS => {
			'tableconstructor' => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648855	649097	
==>on",
                  "CODE" => 725,
                  "ARGS" => [
                              "i",
                              "k"
                            ],
                  "BODY" => "#line 234 \"src/ops/pmc.ops\"\n    {{\@1}} = p <==
3	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1585	1686	
==>pcode);

package FindLexOp;
use base qw(Lua::opcode);

package StoreLexOp;
use base qw(Lua::opco <==
3	/Users/nnunley/parrot/lib/Test/More.pm	666	841	
==>il
             eq_array eq_hash eq_set
             $TODO
             plan
             can_ok  isa_ok
             diag
            );

my $Test = Test::Builder->new;
my $Sh <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	406	504	
==>This doesn't ever seem to be used...
use Test::Harness;

$|=1;

our ($opt_u, $opt_h, $opt_c);
getop <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	175	265	
==>oken;
use Pod::Simple::PullParserEndToken;
use Pod::Simple::PullParserTextToken;

BEGIN { * <==
3	/Users/nnunley/parrot/config/auto/headers.pm	2418	2577	
==>>set(testheader  => undef);

            eval { cc_build(); };
            if (!$@ && cc_run() =~ /^$header OK/) {
                $pass = 1;
                pu <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16507	16620	
==>unctioncall' => 31,
			'tableconstructor' => 32,
			'var' => 35,
			'_field_plus' => 93,
			'field' => 89
		} <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	2225	2338	
==>($source, $target, $silent)>

Calls C<write_html()> on the contents of the section.

An HTML link to the section's <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	817686	817839	
==>S" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818464	818617	
==>S" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	8	107	
==>ol.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subje <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29119	29238	
==>ss 
	{
		"pattern"     => $pattern,
		"lookahead"   => $_[2],
		"line"        => $_[3],
		"description" => "'$desc'",
	} <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31223	31336	
==>ss 
	{
		"pattern"   => $pattern,
		"lookahead" => $_[2],
		"line"      => $_[3],
		"description" => "'$desc'",
	} <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	29740	29833	
==>t, all tests
will be considered 'todo' (see Test::More and Test::Harness for
details).  Return <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16686	16961	
==>LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	17460	17735	
==>LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18255	18530	
==>LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAG <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2559	2669	
==>ning $cmd\n" if $DEBUG;
    open (GCOVSUMMARY, "$cmd |") or die "Error invoking '$cmd': $!";
    my $tmp;
    m <==
3	/Users/nnunley/parrot/config/auto/socklen_t.pm	295	388	
==>e warnings;

use base qw(Parrot::Configure::Step::Base);

use Config;

use Parrot::Configure:: <==
3	/Users/nnunley/parrot/config/auto/jit.pm	339	431	
==>e warnings;

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Configure:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037479	1037716	
==>> "function",
                  "CODE" => 1159,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 115 \"src/ops/var.ops\"\n <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	8388	8495	
==>r_header) = @_;

    my $ret = $method->{type};
    my $meth= $method->{meth};
    my $args= $method->{param <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	491	587	
==>=~ s/\/$//;

my @imcc_oplike = qw(.sym .arg prototyped non_prototyped .class
    .endclass .param <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	2161	2329	
==>[],
                  "TYPE" => "inline",
                  "CODE" => 1,
                  "ARGS" => [],
                  "BODY" => "#line 104 \"src/ops/core.ops\"\n  { <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	22062	22188	
==>\@opcodes ];
}

sub BuildRelop {
    my ( $parser, $expr1, $op, $expr2 ) = @_;
    my %opcode = (
        '<'  => 'islt', <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	318	412	
==>n describing Parrot's project info.

=head2 Class Methods

=over

=cut

package Parrot::Docs::S <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2599	2693	
==>sts $arg_maps{$type};

    return sprintf($arg_maps{$type}, $num);
}

=item C<restart_offset($o <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11793	11883	
==>{STYPES}[${ITEMP1}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = con <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8856	8946	
==>{STYPES}[${ITEMP1}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = con <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7428	7518	
==>{STYPES}[${ITEMP1}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = con <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117408	117694	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118146	118432	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	26254	26358	
==>elsif (<value> <op> <value>) {
    #

    if (m/^}\s*(elsif)\s*\(\s*(.*)\s*\)\s*{$/) {
      $self->begin <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49254	49361	
==>p:...>");
				$prod->adddirective($1, $line);
			}
			elsif ($grammar =~ m/$UNCOMMITMK/gco)
			{
				_parse( <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6870	6963	
==>t$, 2, 8)
print left$(t$, 5)
print right$(t$, 5)
' instr
s1$="The longer string"
found$="longe <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18599	18692	
==>t$, 2, 8)
print left$(t$, 5)
print right$(t$, 5)
' instr
s1$="The longer string"
found$="longe <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	2330	2459	
==>ptions{arguments} } )
    {
        # --files indicates the 'languages/t/harness' wants a list of test files
        my $dir   = F <==
3	/Users/nnunley/parrot/config/auto/gc.pm	1822	1919	
==>C_DIR)/res_lea\$(O):	\$(GENERAL_H_FILES) \$(SRC_DIR)/res_lea.c
EOF
            TEMP_gc_o => "\$(SR <==
3	/Users/nnunley/parrot/config/auto/gc.pm	2113	2210	
==>C_DIR)/res_lea\$(O):	\$(GENERAL_H_FILES) \$(SRC_DIR)/res_lea.c
EOF
            TEMP_gc_o => "\$(SR <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	12403	12529	
==>urn LOAD_NAME(@_);
    }
    my $p;
    if (($p = $globals{$c})) {
	print <<EOC;
	# $p = global "$c" $cmt
EOC
    }
    elsif ( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265914	266152	
==>[
                              "i",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 806 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65901	65993	
==>rule("repetition",$line,"$code$argcode($1..)");

						!$matchrule and $rule and $rule->addca <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	8940	9025	
==>tch_at), "Ending boilerplate incorrect.\n(mismatch at \"$source->[$mismatch_at]\" (sho <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65332	65445	
==>ddcall($name);
					}
				}
				elsif ($grammar =~ m/$ATLEAST/gco)
				{
					_parse("a $1-or-more subrule match", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106299	1106389	
==>_exception(interpreter, NULL, E_ValueError,\n\t\t\"type number out of range\");\n    {{\@1} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107275	1107365	
==>_exception(interpreter, NULL, E_ValueError,\n\t\t\"type number out of range\");\n    {{\@1} <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	8570	8790	
==>ss defined($use) and defined($type);

                if ($type =~ /^INTKEY$/i)
                {
                    $type = "ki";
                }
                else
                {
                    $type = lc s <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7127	7244	
==>mpar,$semval);
            ($lhs,$len,$code)=@{$$rules[-$act]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6796	6908	
==>mpar,$semval);
            ($lhs,$len,$code)=@{$$rules[-$act]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	6	105	
==>op.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subje <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1253	1349	
==>copy the potentially
large text value (well, as large as a paragraph or a verbatim block)
as call <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126760	127117	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rot",
                  "F <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127895	128252	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rot",
                  "F <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	1152	1269	
==>, linkflags => '-L/sw/lib');
            $conf->data->add(' ', dflags    => '-L/sw/lib');
            $conf->data->add <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	306	441	
==>n bless {};
}


my %language_test_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    output_isnt       => 'i <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	393	527	
==>n bless {};
}

my %language_test_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    output_isnt       => 'i <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	475	597	
==>n bless {};
}

my %language_test_map = (
    output_is   => 'is_eq',
    output_like => 'like',
    output_isnt => 'i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167160	167546	
==>"i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 201,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	13293	13444	
==>} = $c;
	print <<"EOC";
	.local $type $c $cmt
	$c = global "$c"
EOC
    }
    push @stack, [$c, $p, 'P'];
}

sub PRINT_ITEM
{
    my ($n, $c, $cmt) = @_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	31405	31494	
==>type["type"]
if \$I1000000 != ELEMENT_TYPE_VALUETYPE goto $label
dtypes = new ResizablePMC <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	12676	12789	
==>= $Level + 1;

    if( !defined $got || !defined $dont_expect ) {
        # undef only matches undef and nothing e <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	13120	13233	
==>= $Level + 1;

    if( !defined $got || !defined $dont_expect ) {
        # undef only matches undef and nothing e <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4526	4626	
==>d will be called.  Triggers are passed the key and value that was set
after it has been changed.

Acc <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	566	671	
==>e=3;
        $#syms=3;
}
sub barf {
	unshift(@tokdsc, shift(@type));
	unshift(@tokens, shift(@syms));
	pus <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	4985	5078	
==>efStyleNum="dsNormal" color="#000080" selColor="#ffffff" bold="0" italic="0" />
      <itemDat <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8843	8936	
==>pEntry *fe = PackFile_find_fixup_entry(interpreter,\n\t    enum_fixup_label, label);\n    if ( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9959	10052	
==>pEntry *fe = PackFile_find_fixup_entry(interpreter,\n\t    enum_fixup_label, label);\n    if ( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6674	6773	
==>my ($self, $failLabel) = @_;
    my $fail = $self->output_label_use($failLabel);
    return ($self-> <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2930	3029	
==>f->output_test('<', $val1, $val2, $dest);
}

sub output_le {
    my ($self, $val1, $val2, $dest) = @ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6318	6417	
==>my ($self, $failLabel) = @_;
    my $fail = $self->output_label_use($failLabel);
    return ($self-> <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	155	322	
==>tools/dev/extract_file_descriptions.pl 19607 2006-05-30T15:23:20.183054Z coke  $
################################################################################

=head <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3136	3259	
==>ok {
	my($self)=shift;

        @_
    and ${$$self{TOKEN}}=$_[0];
    ${$$self{TOKEN}};
}

sub YYCurval {
	my($sel <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2983	3097	
==>ok {
	my($self)=shift;

        @_
    and ${$$self{TOKEN}}=$_[0];
    ${$$self{TOKEN}};
}

sub YYCurval {
	my($sel <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4294	4407	
==>pen(DRV,"<$fname") or die "Report this as a BUG: Cannot open $fname";
	while(<DRV>) {
                	/^\s*sub\ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4074	4185	
==>pen(DRV,"<$fname") or die "Report this as a BUG: Cannot open $fname";
	while(<DRV>) {
                	/^\s*sub\ <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	283	382	
==>es a collection of functions for manipulating
PMC vtables. It is used by F<tools/build/jit2c.pl>, F< <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	7702	7807	
==>x, $greedy, $R) = @{ $op->{args} };
    my $sublen = $R->maxlen();
    if (defined($max) && $max !~ /^-?\d <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	98524	98837	
==>re",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 122,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 96 \ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24733	24830	
==>$ldel, $rdel, $omode, $bad, $ignore);

		return _fail(wantarray, $textref) unless @match;
		return <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7567	7662	
==>$ldel, $rdel, $omode, $bad, $ignore);

	return _fail(wantarray, $textref) unless @match;
	return <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	36152	36246	
==>quote will be correctly handled.
for example, if C<$text> is:

	$text = '<A HREF=">>>>">link</A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47047	47235	
==>EAR(interpreter, PARROT_ALL_DEBUG_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47830	48018	
==>EAR(interpreter, PARROT_ALL_DEBUG_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4504	4643	
==>/;
                	push(@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note that for loadin <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4280	4409	
==>/;
                	push(@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note that for loadin <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	10494	10590	
==>checks. So you should call
# add_checks() to put the (hopefully fewer) checks back in.
sub disabl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200497	200919	
==>" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 237,
                  "ARGS" => [
                              "nc",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#l <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349635	349931	
==>S" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 407,
                  "ARGS" => [
                              " <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	2206	2311	
==>}

sub _get_arg {
  my ($node, $num) = @_;
  $node->{children}->[$num];
}

sub _get_args {
  my ($node, $n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129065	129402	
==>LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":bas <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	15010	15110	
==>back = $self->genlabel('alt_back');
    my $next = $self->genlabel('alt_next');
    my @tries = map { <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	8587	8683	
==>ue
 */
static void
set_nci_I(Interp *interpreter, struct call_state *st, INTVAL val)
{
    Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2932	3031	
==>ddress)>

Returns the C code for C<restart ADDRESS($address)>.

=cut

sub restart_address
{
    my ( <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3801	3900	
==>ddress)>

Returns the C code for C<restart ADDRESS($address)>.

=cut

sub restart_address
{
    my ( <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3531	3630	
==>ddress)>

Returns the C code for C<restart ADDRESS($address)>.

=cut

sub restart_address
{
    my ( <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	429	552	
==>nt++ }
}

{
    package Class::Struct::Tie_ISA;

    sub TIEARRAY {
        my $class = shift;
        return bless [], $cla <==
3	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1357	1458	
==>kage KeyedGetOp;
use base qw(Lua::opcode);

package KeyedSetOp;
use base qw(Lua::opcode);

packa <==
3	/Users/nnunley/parrot/tools/dev/cc_flags.pl	1417	1530	
==>$4)" if $4;

	    push @options, [ $regex, 's', "$mod$2", $3 ];
	}
	elsif (/\S/) {
	    die "syntax error in $cfla <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6204	6301	
==>ontains_pod )
	{
		my $formatter = Parrot::Docs::POD2HTML->new;
		
		$self->{POD_HTML} = $formatte <==
3	/Users/nnunley/parrot/examples/benchmarks/oofib.pl	362	475	
==>= shift;
    my $n = shift;
    return $n if ($n < 2);
    return $self->fib($n-1) + $self->fibA($n-2);
}

package <==
3	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1936	2047	
==>}

sub generate_pbc {
    my ($pir, $pbc) = @_;
    my $status = system($PARROT_EXE, '-o', $pbc, $pir);
    if ( <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7637	7863	
==>UG.\n";
                $$dotpos = $1;
            };

            @sempar =       $$dotpos
                        ?   map { $$_[1] } @$stack[ -$$dotpos .. -1 ]
                        :   ();

            $semval = $c <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7290	7508	
==>UG.\n";
                $$dotpos = $1;
            };

            @sempar =       $$dotpos
                        ?   map { $$_[1] } @$stack[ -$$dotpos .. -1 ]
                        :   ();

            $semval = $c <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	52968	53081	
==>_codeblock($grammar,'{',undef,'<');
					 $code;
				       } )
			{
				_parse("an autoscore specifier", $afterer <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206207	206474	
==>"function",
                  "CODE" => 243,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 394 \"src/ops/cmp.ops\ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	23003	23128	
==>tern and print "Leading pattern: $pattern\n";
    }
  }
  
  # Put it all back:
  $self->unget_token(@to_unget);
  
  if(DEBUG <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	8332	8453	
==>vim: expandtab shiftwidth=4:
        */
    );
    shift @end_boilerplate;

    my $ok = 1;
    my $idx = -@end_boilerplat <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1416	1517	
==>ons=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT = qq[];

# Here comes some <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1461	1562	
==>ons=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT = qq[];

# Here comes some <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1465	1566	
==>ons=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT = qq[];

# Here comes some <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806103	806361	
==>_integer_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807009	807267	
==>_integer_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	20887	21037	
==>n\s+)?\w+\*?\s+\*?(\w+)\s*\([^)]+\)\s*;/) {
                push @exports, $1;
            }
        }
        close $fh;

        # If it's in a group <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653500	653597	
==>real_exception(interpreter, resume, METH_NOT_FOUND,\n            \"Method '%s' not found\", string <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654661	654758	
==>real_exception(interpreter, resume, METH_NOT_FOUND,\n            \"Method '%s' not found\", string <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	4516	4602	
==>$self->existing_directory_with_name('docs');
}

=item C<html_docs_directory()>

Returns <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31993	32120	
==>++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $parameters = ", $par <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33570	33697	
==>++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $parameters = ", $par <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40627	40754	
==>++ & 1 ? $_ : 0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    $parameters = ", $par <==
3	/Users/nnunley/parrot/lib/Test/More.pm	7021	7135	
==>.

=cut

sub ok ($;$) {
    my($test, $name) = @_;
    $Test->ok($test, $name);
}

=item B<is>

=item B<isnt>

  is <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24853	24954	
==>textref,
				$match[2], $match[3]+$match[5]+$match[7],	# MATCH
				@match[8..9,0..1,2..7];				# REM, P <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7685	7784	
==>textref,
			$match[2], $match[3]+$match[5]+$match[7],	# MATCH
			@match[8..9,0..1,2..7];				# REM, P <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	721	815	
==>rel2abs($lang_f);
    $out_f  = File::Spec->rel2abs($out_f);
    Parrot::Test::write_code_to_fi <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	758	852	
==>rel2abs($lang_f);
    $out_f  = File::Spec->rel2abs($out_f);
    Parrot::Test::write_code_to_fi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7854	7946	
==>type_token;

      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023296	1023395	
==>Y" => "#line 210 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024146	1024245	
==>Y" => "#line 210 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parro <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	7368	7461	
==>al
mentioning or referencing the derived work.

RSA Data Security, Inc. makes no representatio <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	8865	8975	
==>nt "No content seen in search for title.\n";
    return;
  }
  $self->{'Title'} = $title;

  esc($title);
  pri <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	3581	3682	
==>errata_seen {  # good for using as an exit() value...
  return shift->{'errors_seen'} || 0;
}

#@@@@@@ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	10667	10762	
==>'\s*';

	my @match = _match_variable($textref,$pre);

	return _fail wantarray, $textref unless @ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	21213	21346	
==>iant->[1] . '_' .$variant->[0];
                push @mmds, [ $func, $left, $right, $meth_name];
            }
            $self->{mmd <==
3	/Users/nnunley/parrot/config/auto/signal.pm	864	974	
==>n('config/auto/signal/test_1.in');
    eval { cc_build(); };
    unless ($@ || cc_run() !~ /ok/) {
        $con <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	12243	12327	
==>.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.
#

sub parse_fi <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	1924	2197	
==>nd( 
                                \@test_prog, 
                                CD     => $self->{relpath}, 
                                STDOUT => $out_fn,
                                STDERR => $out_fn 
                            );
  
           my $meth = $lan <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	68202	68326	
==>src/ops/core.ops\"\n  Parrot_block_DOD(interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Par <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1514	1606	
==>STEMP1} = "$register_num"
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# E <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3224	3316	
==>STEMP1} = "$register_num"
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# E <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	1174	1289	
==>ut check_progs)
             ],
    gen =>   [qw(genfile copy_if_diff move_if_diff)]
);

=item C<integrate($orig, $n <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8299	8395	
==>rld"
print "Foo";tab$(15);"Stuff"
print "I am the very model of a modern";tab$(15);"More"
print " <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21163	21259	
==>rld"
print "Foo";tab$(15);"Stuff"
print "I am the very model of a modern";tab$(15);"More"
print " <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26367	26498	
==>134,
			"(" => 48,
			"{" => 38,
			"[" => 47,
			"." => 49,
			'STRING' => 44
		},
		GOTOS => {
			'tableconstructor' => 46 <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19292	19386	
==>Parse::RecDescent::_hint("The \$::RD_AUTOACTION was defined,
					  so any production not endin <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	151	248	
==>NAME

tools/dev/parrot_api.pl - Verify Parrot API (symbols)

=head1 SYNOPSIS

    % perl tools/dev <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	667	762	
==>iles. It
runs C<nm> on each and determines what external functions are being
called. Note that i <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	36040	36199	
==>will exit with 255.

So the exit codes are...

    0                   all tests successful
    255                 test died
    any other number    how many f <==
3	/Users/nnunley/parrot/lib/Test/More.pm	34111	34270	
==>will exit with 255.

So the exit codes are...

    0                   all tests successful
    255                 test died
    any other number    how many f <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2906	3065	
==>will exit with 255.

So the exit codes are...

    0                   all tests successful
    255                 test died
    any other number    how many f <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29906	30049	
==>85,
			'OR' => 84,
			")" => 148,
			">" => 86
		}
	},
	{#State 95
		ACTIONS => {
			"^" => 79
		},
		DEFAULT => -74
	},
	{#State 96 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2700	2810	
==>$self)=shift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CH <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2578	2679	
==>$self)=shift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CH <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	6656	6764	
==>lk->[0];

	foreach $pc (@{$cur_blk}) {
	    $op = $opcodes{$pc}->{op};
	    $trans->pc($pc);
	    $trans->arg <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15904	15997	
==>ons, etc...
		@stream=convert_to_rpn(@expr);	# Get infix into RPN
		($result,$type,@stream)=ge <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	17055	17148	
==>ons, etc...
		@stream=convert_to_rpn(@expr);	# Get infix into RPN
		($result,$type,@stream)=ge <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	486521	486745	
==>\n  {{\@1}} = ceil( {{\@1}} );\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/examples/benchmarks/stress.pl	442	555	
==>darray();
}

my @arr2;
foreach (1..20) {
    $arr2[$_] = buildarray();
}

sub buildarray {
    my @foo;
    foreac <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759822	759910	
==>" => "#line 281 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_pmc(interpreter, {{\@1}}, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219321	219744	
==>DIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 257,
                  "ARGS" => [
                              "p",
                              "sc",
                              "ic"
                            ],
                  "BODY" = <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38573	38673	
==>tem{q{' . $self->describe . '}} = $_tok;'). '
		push @item, $_tok;
		' . ($self->{"lookahead"} ? '$te <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	22565	22662	
==>xt::Balanced::Extractor')
					{ @bits = $field = $func->extract($$textref) }
				elsif( $$textref <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	2067	2162	
==>ar @{$node->{children}} - 1;

  confess "$name: Wrong number of arguments (expected $expected, g <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	3122	3233	
==>oop:
    ge match_num, num_groups, done
    bsr printGroup
    inc match_num
    goto printLoop
done:
    .retur <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13600	13707	
==>levar/
				? "a <rulevar> (which acts like an unconditional <reject> during parsing)"
		         : $items[0] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956778	957067	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_encoding",
                  "F <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957682	957971	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_encoding",
                  "F <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	1893	2028	
==>he HTML link for the section.

=cut

sub html_link
{
    my $self = shift;
    my $path = shift;
    
    if ( $path )
    {
        $pa <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	602	710	
==>'Multiply', '%1 = %1 * %2' ],
    '\x{f7}' => [ 'Divide', '%1 = %1 / %2' ],
    '\u2212' => [ 'Subtract', '%1 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2775	2866	
==>SEE ALSO

L<Pod::Simple::DumpAsXML>

L<Pod::Simple>

=head1 COPYRIGHT AND DISCLAIMERS

Copyr <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	887	996	
==>amespace  ];
our $LD_LOAD_FLAGS = qq[-bundle -undefined suppress];
our $PERL = q[perl];
our $LOAD_EXT = qq[.bu <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	876	985	
==>amespace  ];
our $LD_LOAD_FLAGS = qq[-bundle -undefined suppress];
our $PERL = q[perl];
our $LOAD_EXT = qq[.bu <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	880	989	
==>amespace  ];
our $LD_LOAD_FLAGS = qq[-bundle -undefined suppress];
our $PERL = q[perl];
our $LOAD_EXT = qq[.bu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934162	934433	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":base_core <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934937	935208	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":base_core <==
3	/Users/nnunley/parrot/lib/File/Which.pm	2369	2514	
==>heck -e
                  ($Is_DOSish and grep { $file =~ /$_$/i } @path_ext[1..$#path_ext])
                                # DOSish systems don' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8270	8392	
==>} else {
        die "Too many arguments to popindex!";
    }

    $reg = value($reg);

    my @ops = ($self->popop . " <rx <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2199	2313	
==>fier '%s'.", $args[$i]->value) unless $arg_sym;
      $actual_arg_type = $arg_sym->type; 
    }
    else {
      $a <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1899	2013	
==>fier '%s'.", $args[$i]->value) unless $arg_sym;
      $actual_arg_type = $arg_sym->type; 
    }
    else {
      $a <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	445	538	
==>self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  #$new->accept_codes('VerbatimFo <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	249	341	
==>self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->accept_codes('VerbatimFo <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	248	340	
==>self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->accept_codes('VerbatimFo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867888	868155	
==>inline",
                  "CODE" => 985,
                  "ARGS" => [
                              "s",
                              "sc",
                              "i"
                            ],
                  "BODY" => "#line 232 \"src/ops/string.ops\ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3941	4047	
==>abel, $lenvar) = @_;
    $lenvar ||= "<rx_len>";
    my $fail = $self->output_label_use($failLabel);
    if <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3655	3761	
==>abel, $lenvar) = @_;
    $lenvar ||= "<rx_len>";
    my $fail = $self->output_label_use($failLabel);
    if <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	6069	6187	
==>ata->get($1);
                $line = $2;
            } elsif ($line =~ m/^#INVERSE_CONDITIONED_LINE\(([^)]+)\):(.*)/s) <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2306	2416	
==>ad3       { $_[0]->emit_par(-2) }
sub end_head4       { $_[0]->emit_par(-1) }
sub end_Para        { $_[0]->emit <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1874	1984	
==>ad3       { $_[0]->emit_par(-2) }
sub end_head4       { $_[0]->emit_par(-1) }
sub end_Para        { $_[0]->emit <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	58899	59080	
==>6 "Lua\lua51.yp"
{
            [
                @{ $_[1] },
                BuildParam( $_[0], $_[3] ),
            ];
        }
	],
	[#Rule 103
		 'parlist', 1,
sub
#lin <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	8023	8153	
==>er-(.+)$/s ) 
    {
        push @{$self->{STACK}}, $1;
    } 
    elsif ( $tagname eq 'Para') 
    {
        $tagname = 'Para_item <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	7709	7834	
==>e they're nicely
        # checkable.

        # Break the list of children up into contiguous chunks of
        # things with <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22667	22876	
==>E" => "inline",
                  "CODE" => 30,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 409 \"src/ops/core.ops\"\n  opco <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5824	5931	
==>my $pir = '';

	# Branches mean we need to deal with basic block-ish stuff. If the branch
	# did not pop any <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3762	3869	
==>my $pir = '';

	# Branches mean we need to deal with basic block-ish stuff. If the branch
	# did not pop any <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1444	1542	
==>rn $self->{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/gets the transform's arguments <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1053	1151	
==>rn $self->{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/gets the transform's arguments <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	23208	23304	
==>, "$FindBin::Bin/../..", "$FindBin::Bin/../../src/pmc/";

    if ( 0 == grep { $action{$_} } keys <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	418	558	
==>ext) {
    if($ch eq '(' or
       $ch eq ')') {
      push @$tokref,$token;
      $token = $ch;
    } elsif($ch eq '-' and
            ($tok <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7295	7396	
==>) eq 'ARRAY' ? join('|', @{$options{ignore}})
		    : defined($options{ignore})	       ? $options{igno <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24297	24398	
==>) eq 'ARRAY' ? join('|', @{$options{ignore}})
		    : defined($options{ignore})	       ? $options{igno <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5397	5525	
==>classes */
    "",     /* class */
    "",     /* mro */

    /* Vtable Functions */
EOM
    for my $entry (@{$vtable}) {
    nex <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	2004	2128	
==>parrot_logo.pir             [devel]
    examples/sdl/lcd/clock.pir                      [devel]
    examples/sdl/move_parrot_ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1542	1656	
==>eGen::IMCC') {
      eval "use $options{module}";
      die $@ if $@;
    }

    $cgen = $options{module}->new(%opt <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33671	33766	
==>ll post_store and append code it generates.
		my $post_store = $srm->post_store($dest_reg);
		$p <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1097	1213	
==>the condition is true
  }
  elsif ($kind eq 'unless') {
    $kind = 'if';
  }

  if ($kind eq 'if') {
    $compiler-> <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1025	1138	
==>ruction.
    ${INS} = concat "set $"
    ${INS} = concat ${STEMP0}
    ${INS} = concat ", "
    ${STEMP0} = pop la <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	952	1089	
==>nmode LANG; # JMG
        print LANG $lang_code; # JMG
        close LANG; # JMG

        Parrot::Test::run_command( 
            "$PConfi <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	864	1001	
==>nmode LANG; # JMG
        print LANG $lang_code; # JMG
        close LANG; # JMG

        Parrot::Test::run_command( 
            "$PConfi <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10531	10628	
==>oncat ${STEMP1}
goto PRE_CALL_${CURIC}_CONT

# Can do a lazy move.
PRE_CALL_${CURIC}_LAZY_MOVE:
${ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	1906	2078	
==>_WRAP} = 0;
    
    while ( $token = $self->get_token )
    {
        $type = $token->type;
        
        if ( $type eq 'start' ) 
        {
            $self->process_s <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	839	945	
==>new();

# Ensure rules file exists and parse it.
my @rules = ();
if (-e $rules_file) {
    @rules = parse_r <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	12377	12461	
==>n\sb90\sa180\f2\fs%s\ul\sbasedon0 \snext0 pod-head2;}
{\s33\ql \keepn\sb90\sa180\f2\f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423050	423348	
==>> 0,
                  "NAME" => "listen",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423946	424244	
==>> 0,
                  "NAME" => "listen",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	18	106	
==>01-2005, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Configure/Step/Base.pm 20321 2006 <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3513	3620	
==>C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) = @_;

    #print STDERR "pbcc: map_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3312	3419	
==>C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) = @_;

    #print STDERR "pbcc: map_ <==
3	/Users/nnunley/parrot/config/init/hints/cygwin.pm	618	721	
==>stallation.  So far, it appears
    # parrot can get by with simply using gcc -shared, so we override th <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	43615	43722	
==>$depth; print ")\n";
}

sub _generate {
  my ($self,$node) = @_;

  my $return;

  if (exists $node->{childr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	370803	371160	
==>ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 434,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189484	189753	
==>ction",
                  "CODE" => 225,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 306 \"src/ops/cmp.ops\"\n  i <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	8722	8818	
==>it_info->cur_op[i]]
END_C
}
else {
    print JITCPU <<'END_C';
#define CONST(i) (int *)(jit_info- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44939	45045	
==>37 \"src/ops/core.ops\"\n  Parrot_pop_mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45581	45687	
==>37 \"src/ops/core.ops\"\n  Parrot_pop_mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	9773	9885	
==>os }
	else		      { $parapos = pos($$textref) }

	return (
		$startpos,    $opentagpos-$startpos,		# PREFIX
		$op <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	6758	6860	
==>usage_error {
    confess "struct usage error";
}

sub _subclass_error {
    croak 'struct class cannot <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11046	11138	
==>e method body performing the various macro substitutions for
nci method bodies (see F<tools/b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022843	1023107	
==>> 0,
                  "NAME" => "decodelocaltime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023692	1023956	
==>> 0,
                  "NAME" => "decodelocaltime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function" <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	721	822	
==>{
    require Parrot::Docs::Section::Parrot;
    
    return Parrot::Docs::Section::Parrot->new;
}

=i <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	4025	4146	
==>', 'set',[$to,$from]);
    } elsif ($from =~ /N/) {
      $self->_add_inst ('', 'new',[$to,'.Float']);
      $self->_add_i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	1975	2074	
==>rn shift->is('colon');         }
sub is_concat_assign { return shift->is('concat-assign'); }
sub is_ <==
3	/Users/nnunley/parrot/config/inter/progs.pm	4197	4291	
==>isn't prompted for above.  I don't know why.
    $ccwarn = integrate($conf->data->get('ccwarn') <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105691	1105976	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "getclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106666	1106951	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "getclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functi <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	7847	7944	
==>->val);
}

static STRING*
get_nci_S(Interp *interpreter, struct call_state *st, int n)
{
    asser <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361735	361840	
==>, {{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362634	362739	
==>, {{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367016	367121	
==>, {{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  { <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	35304	35448	
==>1,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -69
	},
	{#State 131
		ACTIONS => {
			"-" => 72,
			"%" => 76,
			"*" = <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27984	28089	
==>ypes = push type_trans\n";
		}

		# Finally, call post_op and append code it generates.
		my $post_op = $s <==
3	/Users/nnunley/parrot/config/gen/cpu/i386/auto.pm	76	165	
==>u/i386/auto.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/gen/cpu/i386 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39648	39869	
==>> 50,
                  "ARGS" => [
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 720 \"src/ops/core.ops\"\n  if ({{\@1}} == EXCEPT_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822285	822378	
==>exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_INT) {\n    inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823353	823446	
==>exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_INT) {\n    inte <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2886	3046	
==>$path =~ s/\Q$SRCDIR\E//g;
            $generated_files{$path} = $tmp;
            $tmp = '';
        } else {
            $tmp .= $_;
        }
    }
    close( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78960	79051	
==>{\@3}}));\n\n  void * const p = Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? NULL : PMC_data({{\@2}}) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80481	80572	
==>{\@3}}));\n\n  void * const p = Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? NULL : PMC_data({{\@2}}) <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	1499	1604	
==>E   !!!!!!!
 *
 * This file is generated automatically from '$infile'
 * by $0.
 *
 * Any changes made her <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	3788	3893	
==>E   !!!!!!!
 *
 * This file is generated automatically from '$infile'
 * by $0.
 *
 * Any changes made her <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6478	6592	
==>_mod = modtime($target)
      or return 1;
    for my $source (@sources) {
        return 1 if modtime($source) > $ <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4898	5012	
==>_mod = modtime($target)
      or return 1;
    for my $source (@sources) {
        return 1 if modtime($source) > $ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6689	6803	
==>_mod = modtime($target)
      or return 1;
    for my $source (@sources) {
        return 1 if modtime($source) > $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	4899	5005	
==>n(__result)");
    }
    else {
      $compiler->emit("  __func(" . join(", ", map({ $_->[1]} $self->args)) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2581	2679	
==>kind => 'infix', name => $self->op } });
    $self->left->sax($handler);
    $self->right->sax($han <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2458	2556	
==>kind => 'infix', name => $self->op } });
    $self->left->sax($handler);
    $self->right->sax($han <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581481	581868	
==>,
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 663,
                  "ARGS" => [
                              "p",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 289 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4307	4420	
==>ame") or die "Report this as a BUG: Cannot open $fname";
	while(<DRV>) {
                	/^\s*sub\s+_Parse\s*{\ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4087	4198	
==>ame") or die "Report this as a BUG: Cannot open $fname";
	while(<DRV>) {
                	/^\s*sub\s+_Parse\s*{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62758	63019	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorsoff",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63403	63664	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorsoff",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	338102	338347	
==>TDIN(interpreter);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	6781	6886	
==>offset($1);  /me;
    s/{{\^-([^{]*?)}}/    $trans->expr_offset(-$1); /me;
    s/{{\^([^{]*?)}}/     $tran <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	28903	29006	
==>t {
}

sub _op_magnitude {
}

sub _op_angle {
}

sub _op_exact_inexact {
}

sub _op_inexact_exact {
}

s <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	6609	6709	
==>fiable Data: %d ---\n", scalar keys %DataD;
    for my $api (sort keys %DataD) {
	printf "%s\t%s\tIMD <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	15301	15420	
==>tack;
    my ($t, $n);
    {
	my $nl = promote($l);
	$n = temp($t = 'P');
	my $nr = $r->[1];
#	$nr = promote($r) if $r-> <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	14984	15102	
==>tack;
    my ($t, $n);
    {
	my $nl = promote($l);
	$n = temp($t = 'P');
	my $nr = $r->[1];
	$nr = promote($r) if $r-> <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36102	36199	
==>he name of the output file we are
generating.

The C<Null> PMC throws an execption for all methods <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	281876	282264	
==>o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 328,
                  "ARGS" => [
                              "i",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 908 \ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561834	561929	
==>};\n  {{\@1}} = VTABLE_find_method(interpreter, {{\@2}}, {{\@3}});\n  if (!{{\@1}}) {\n    real_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562918	563013	
==>};\n  {{\@1}} = VTABLE_find_method(interpreter, {{\@2}}, {{\@3}});\n  if (!{{\@1}}) {\n    real_ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7188	7282	
==>str() tests
s1$="Mixed case"
print ucase$(s1$);" Upper"
print lcase$(s1$);" Lower"
a$="   Flush <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18917	19011	
==>str() tests
s1$="Mixed case"
print ucase$(s1$);" Upper"
print lcase$(s1$);" Lower"
a$="   Flush <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490851	491106	
==>[
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inc",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	491472	491727	
==>[
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inc",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9540	9634	
==>';
}

=item C<process_text_token($token)>

Processes the specified text token. URLs which are n <==
3	/Users/nnunley/parrot/config/auto/pack.pm	939	1050	
==>a->get($_);
        my $format;
        if (($] >= 5.006) && ($size == $longsize) && ($size == $Config{longsize} <==
3	/Users/nnunley/parrot/config/gen/platform.pm	3836	3938	
==>rsion]
**
** DO NOT EDIT THIS FILE
**
** Generated by config/gen/platform.pm
*/
END_HERE

    # We need <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	777	866	
==>turn Parrot::Docs::Section::Parrot->new;
}

=item C<new_section($name, $text, @items)>

Re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217409	217829	
==>=> [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 255,
                  "ARGS" => [
                              "p",
                              "nc",
                              "ic"
                            ],
                  "BODY" => " <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	4262	4365	
==>te="Comment" context="#stay" String="[^\=]*" />
          <RegExpr attribute="Comment" context="#pop" St <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	47573	47671	
==>tartcode($code);
		}
		elsif ($grammar =~ m/(?=$IMPLICITSUBRULE)/gco
			and do { ($code) = extract_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611186	611361	
==>VTABLE_set_attr(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612089	612264	
==>VTABLE_set_attr(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	18066	18203	
==>~really' => '=for'},
          $target,
        ],
        $para,
        ['=end',
          {'start_line' => $para->[1]{'start_line'}, '~ <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	8323	8435	
==>ren't opcodes but calced at compile-time
    #
    
    for(@{$ops->{OPS}}) {
        if (defined $fixed{$_->full <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8760	8869	
==>pectedly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_te <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11693	11794	
==>[^\x00-\xFF])/'('.ord($1).')'/eg;
    #  Turn char 1234 into "(1234)"
  return $string;
}

#~~~~~~~~~~ <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	1342	1440	
==>loop.

=back

=head2 Options

=over 4

=item C<--help>

Print synopsis.

=item C<--dynamic>

Indica <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	310737	310912	
==>LS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "debug_print",
                  "FLAGS" => ":base_deb <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	2104	2231	
==>($self, $ops, $ctx) = @_;
    die "Wrong #args" if @_ != 3;

    my @equivs; # (labels)
    my @output; # (ops)

    # Merge adj <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	2831	2916	
==>Parrot::Docs::Section::Docs>

=item C<Parrot::Docs::Section::Examples>

=item C<Parrot <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	4987	5149	
==>Config{archname} !~ /86/) {
                    $opt =~ s/-mno-accumulate-outgoing-args//;
                }
            }
            $warns .= " $opt";
        } <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3416	3518	
==>j/issues/vol5_5/>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights rese <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	270	366	
==>ains utility functions for steps to
use.

Note that the actual configuration step itself is NOT a <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16611	16780	
==>, new LocalDir( $parser,
                    'result' => $result,
                );
                push @opcodes, new FindLexOp( $parser,
                    'resul <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10762	10926	
==>,
                        new LocalDir( $parser, 'result' => $result, );
                    push @opcodes, new FindLexOp( $parser,
                        'resul <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	12328	12419	
==>n/, <<"END");
\$$uid = _rule_$name($mode, \$rx_input, \$rx_pos, \$rx_stack);
\$rx_pos = \$$u <==
3	/Users/nnunley/parrot/lib/Test/More.pm	22204	22303	
==>it as an unexpected success.
You then know the thing you had todo is done and can remove the
TODO fl <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1488	1578	
==>class for
yourself, but if you want to, call
C<<
Pod::Simple::PullParserEndToken->new( I<ta <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	3617	3737	
==>$s->[2]"}!;
    }
    print OUT join(",\n", @all);
    print OUT <<HEADER;

};

HEADER
    close OUT;
}

=for never

prin <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	6628	6737	
==>> to to create the read-only set methods.

=cut

sub make_const() {
    my ($self, $class) = @_;

    my $cons <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9497	9610	
==>OC";
#include "pmc_$name.h"
EOC
    }
    if (!$self->{flags}{dynpmc}) {
	    my $name = lc $self->{class};
	    $ <==
3	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1877	1983	
==>code);

package CallOp;
use base qw(Lua::opcode);

package CallMethOp;
use base qw(Lua::opcode);

p <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	1107	1201	
==>ou may optionally specify a different destination path:

    source_path <whitespace> [package] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657747	658096	
==>",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 735,
                  "ARGS" => [
                              "i" <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1707	1800	
==>ot::Test::PGE::_generate_pir_for($target, $pattern)
    );

    goto &Parrot::Test::pir_output <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2230	2323	
==>ot::Test::PGE::_generate_pir_for($target, $pattern)
    );

    goto &Parrot::Test::pir_output <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236596	236709	
==>src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237478	237591	
==>src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238360	238473	
==>src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	6974	7080	
==>The args are a comma-separated list of items from this table of argument
        # types (even if no formal <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	454	556	
==>($expr, $ctx, %options) = @_;

    $options{state} ||= global_state();

    my $parser = Regex::Parse-> <==
3	/Users/nnunley/parrot/config/init/defaults.pm	330	424	
==>e vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Fi <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	5507	5613	
==>t::Op> instances representing the Parrot ops.

    =cut
END_POD

my $preamble = <<END_C;
#! perl -w
#
# !!! <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2216	2317	
==>to move to the appropriate place, alongside the sourcefile that produced it.
    # Hence, as soon as w <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	50	138	
==>ymbol ('gensym');
use Carp ();

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3362	3473	
==>->get('linkflags');
            $linkflags =~ s/-opt:\S+//;
            $conf->data->set(linkflags => $linkflags <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4866	4977	
==>->get('linkflags');
            $linkflags =~ s/-opt:\S+//;
            $conf->data->set(linkflags => $linkflags <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	30780	30874	
==>ctx = CONTEXT(interpreter->ctx);\n    ccont = ctx->current_cont;\n\n    if (PMC_cont(ccont)->ad <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	7301	7411	
==>lass::Struct;
            # declare struct, based on array, implicit class name:
    struct( ELEMENT_NAME => EL <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	1268	1369	
==>urn -f $self->path;
}

=item C<parent($path)>

Returns the file's parent directory.    

=cut

sub par <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1218	1314	
==>useful if you don't want to memory-copy the potentially
large text value (well, as large as a par <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	41	142	
==>ation.
# $Id: /parrot/config/inter/yacc.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

con <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106189	1106287	
==>c/ops/experimental.ops\"\n    int typ = {{\@2}};\n    if (typ < 1 || typ >= interpreter->n_vtable_m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107165	1107263	
==>c/ops/experimental.ops\"\n    int typ = {{\@2}};\n    if (typ < 1 || typ >= interpreter->n_vtable_m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1014679	1015002	
==>",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1133,
                  "ARGS" => [
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 77 \"src/op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035775	1036010	
==>'%Ss' not found\", lex_name);\n    }\n    {{\@1}} = result;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036939	1037174	
==>'%Ss' not found\", lex_name);\n    }\n    {{\@1}} = result;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	2556	2652	
==>is true then progress is not reported.

Any POD-formatted text in the item's files is converted t <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	168	249	
==>/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm 19606 2006-05-30T15: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	12667	12980	
==>t",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 17,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 231 \" <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6094	6246	
==>CallMethOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  ";
        if ( exists $op->{re <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	17203	17307	
==>$self);
	push @{$self->{"items"}}, $item;
	return $item;
}


sub preitempos
{
	return q
	{
		push @itempo <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1320	1415	
==>pe (so we can find register type).
dec ${ITEMP0}
${PTEMP0} = ${STYPES}[${ITEMP0}]

# Assign regi <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3030	3125	
==>pe (so we can find register type).
dec ${ITEMP0}
${PTEMP0} = ${STYPES}[${ITEMP0}]

# Assign regi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605341	605497	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addattribute",
                  "FLAGS" => ":object_classes" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606131	606287	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addattribute",
                  "FLAGS" => ":object_classes" <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	466	571	
==>rot::OpTrans );

=item C<suffix()>

The suffix is C<'_cg'>.

=cut

sub suffix
{
    return "_cg";
}

=item <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	12755	12867	
==>ef only matches undef and nothing else
        my $test = defined $got || defined $dont_expect;

        $self->o <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	13199	13311	
==>ef only matches undef and nothing else
        my $test = defined $got || defined $dont_expect;

        $self->o <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	226	322	
==>onstant.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2995	3121	
==>::Simple v$Pod::Simple::VERSION doesn't implement UTF16 yet."
        );
        splice @_;
        push @_, undef;
        nex <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3393	3519	
==>::Simple v$Pod::Simple::VERSION doesn't implement UTF16 yet."
        );
        splice @_;
        push @_, undef;
        nex <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	945	1039	
==>pts no arguments and returns the value of C<$result> from the inheriting
classes namespace.

=c <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1570	1687	
==>f->left;
  my $op    = $self->op;
  my $right = $self->right;

  my $dest_sym = $block->find_symbol($dest->value);
  $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1528	1645	
==>f->left;
  my $op    = $self->op;
  my $right = $self->right;

  my $dest_sym = $block->find_symbol($dest->value);
  $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1450	1567	
==>f->left;
  my $op    = $self->op;
  my $right = $self->right;

  my $dest_sym = $block->find_symbol($dest->value);
  $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9148	9343	
==>tring_free(label);\n    interpreter->resume_flag = 2;\n    {{=0}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10264	10459	
==>tring_free(label);\n    interpreter->resume_flag = 2;\n    {{=0}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Test/More.pm	31065	31164	
==>ash>

  my $is_eq = eq_hash(\%this, \%that);

Determines if the two hashes contain the same keys and <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	28100	28259	
==>k'?
              name       => name of the test (if any)
              type       => type of test (if any, see below).
              reason     => reason for t <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	37336	37437	
==>ng-ref'    => \&_op_string_ref,
  'string-set!'   => \&_op_string_set_bang,
  'string=?'      => \&_op <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	8024	8153	
==>xt ]),
              $rfail => $self->dbprint("R in group failed\n"),
                        aop('popint', [ '<tmp>', 'group end' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2221	2314	
==>if (defined $sym and $sym->block eq $block) {
    $self->SYNTAX_ERROR("Redeclaration of identi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1968	2061	
==>if (defined $sym and $sym->block eq $block) {
    $self->SYNTAX_ERROR("Redeclaration of identi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712760	712953	
==>, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713867	714060	
==>, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7947	8050	
==>DONE_$label");

  $self->_restore($list, $copy, $head, $type);
  return $return;
}

sub _op_lambda {
  m <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	516	605	
==>-tokens from Pod::Simple::PullParser

=head1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

= <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	935	1024	
==>-tokens from Pod::Simple::PullParser

=head1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

= <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	422	511	
==>-tokens from Pod::Simple::PullParser

=head1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

= <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9637	9730	
==>EMP2}) = method_info_from_token(${ASSEMBLY}, ${ARG0})

# If it's a call to instantiate, need t <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7151	7244	
==>EMP2}) = method_info_from_token(${ASSEMBLY}, ${ARG0})

# If it's a call to instantiate, need t <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1014	1105	
==>=item C<prefix()>

Returns the default 'C<Parrot_>' prefix.

Used by C<Parrot::Op>'s C<func_ <==
3	/Users/nnunley/parrot/Configure.pl	3305	3400	
==>Parrot will then be
build without ICU.

B<Note:> If you specify another ICU option than --icu-co <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	45751	45845	
==>olate the search pattern in a quotelike operation from $text

		($op,$pat) = (extract_quotelike <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	27720	27828	
==>= (@fallbacks == 1) ? $fallbacks[0] : \@fallbacks;
      DEBUG > 2 and print
       "Extensor maps $new_lette <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	4688	4793	
==>ift;
    
    return $self->docs_directory->directory_with_name('html');
}

=item C<delete_html_docs()>

D <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10512	10617	
==>@stack;
      } elsif( $tagname eq 'Verbatim' or $tagname eq 'VerbatimFormatted') {
        --$self->{'rtf <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	4516	4637	
==>ported_To}    = undef;
    $self->{Expected_Tests} = 0;

    $self->{Skip_All}   = 0;

    $self->{Use_Nums}   = 1;

    $ <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	14995	15110	
==>code, 'op1', 'op2');
        } elsif ($type1 eq "APLVector" && $type2 eq "APLVector") {
          # vector to vector <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	10427	10541	
==>int {$FH}
            "  .lex \"$dir->{arg1}->{symbol}\", $dir->{arg1}->{symbol}\n";
    }

    sub visitConstD <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	12360	12480	
==>h.h
lrintf      math.h
lrintl      math.h
lround      math.h
lroundf     math.h
lroundl     math.h
malloc      stdlib.h
m <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23316	23413	
==>return;
  my $label = $self->_gensym();

  $return = $self->_generate($node->{children}[1]);
  for <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23778	23875	
==>return;
  my $label = $self->_gensym();

  $return = $self->_generate($node->{children}[1]);
  for <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	4154	4295	
==>e C++ comment detected.");
        }

        if (/XXX/) {
            info($file, $line, "To-Do (XXX) noticed.");
        }
    }
}


sub che <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	906	1008	
==>each my $func ( keys %language_test_map ) {
    no strict 'refs';

    *{"Parrot::Test::Bc::$func"} = s <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6389	6485	
==>turns whether the file is suitable for inclusion in a documentation link.

If a file contains pla <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	803	924	
==>c out) ); # JMG

        # STDERR is written into same output file
        open LANG, "> $lang_f" or die "Unable to open ' <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	715	836	
==>c out) ); # JMG

        # STDERR is written into same output file
        open LANG, "> $lang_f" or die "Unable to open ' <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12007	12105	
==>rupted somewhere down the line, with
        # Parrot/PackFile/ConstTable.pm.html being turned into <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31292	31387	
==>mplements_vtable($meth);
}

=item C<body($method, $line, $out_name)>

Returns the C code for the <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35923	36018	
==>mplements_vtable($meth);
}

=item C<body($method, $line, $out_name)>

Returns the C code for the <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39912	40007	
==>mplements_vtable($meth);
}

=item C<body($method, $line, $out_name)>

Returns the C code for the <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25411	25541	
==>6,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 79
		ACTIONS => {
			"-" => 24,
			'NA <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	9993	10108	
==>',
  121, 'y',
  122, 'z',
  123, '{',
  124, '|',
  125, '}',
  126, '~',
);

#------------------------------------ <==
3	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	111	205	
==>ler.pm 19606 2006-05-30T15:08:05.048089Z coke  $

use strict;

use Data::Dumper;
use File::Base <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528650	528904	
==>n2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529532	529786	
==>n2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	530414	530668	
==>n2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	1401	1527	
==>a->add(' ', ldflags   => '-L/sw/lib');
            $conf->data->add(' ', ccflags   => '-I/sw/include');
        }
    }

    cc <==
3	/Users/nnunley/parrot/config/auto/readline.pm	1490	1616	
==>a->add(' ', ldflags   => '-L/sw/lib');
            $conf->data->add(' ', ccflags   => '-I/sw/include');
        }
    }

    cc <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	5495	5585	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_element_start {     # OV <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	13265	13388	
==>$got || defined $dont_expect;

        $self->ok($test, $name);
        $self->_cmp_diag($got, '!=', $dont_expect) unless $t <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2696	2806	
==>oncat "LAB"
${INS} = concat strPC
${INS} = concat ": "
PIR

	# Return.
	return $pir;
}

# Pre and post stack op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947140	947233	
==>tion(interpreter, NULL, 1,\n\t\"charset '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948042	948135	
==>tion(interpreter, NULL, 1,\n\t\"charset '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334419	334747	
==>ilesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 392,
                  "ARGS" => [
                              "p", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	195244	195493	
==>,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 328 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_p <==
3	/Users/nnunley/parrot/config/auto/m4.pm	779	894	
==>arch) = ($cpuarch, "");
    }

    my $has_gnu_m4;

    # Calling 'm4 --version' hangs under FreeBSD
    my %m4_hang <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335697	336025	
==>ilesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 393,
                  "ARGS" => [
                              "p", <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2997	3102	
==>k in subroutine one"
   RETURN Label1
Sub2:
   PRINT "3 in subroutine two"
   RETURN Label2   'Cannot retu <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16964	17069	
==>k in subroutine one"
   RETURN Label1
Sub2:
   PRINT "3 in subroutine two"
   RETURN Label2   'Cannot retu <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2220	2339	
==>$liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various libraries in the link line.
        $liblist = join <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2512	2631	
==>$liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various libraries in the link line.
        $liblist = join <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2307	2426	
==>$liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various libraries in the link line.
        $liblist = join <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	36019	36163	
==>idered a failure and will exit with 255.

So the exit codes are...

    0                   all tests successful
    255                 test die <==
3	/Users/nnunley/parrot/lib/Test/More.pm	34090	34234	
==>idered a failure and will exit with 255.

So the exit codes are...

    0                   all tests successful
    255                 test die <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2885	3029	
==>idered a failure and will exit with 255.

So the exit codes are...

    0                   all tests successful
    255                 test die <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	2054	2180	
==>ing
    PMC       the argument is an PMC
    KEY       the argument is an aggregate PMC key
    INTKEY    the argument is an ag <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39011	39134	
==>f->gen_ret($method->{type});
        $ret = "return ret_val;";
        if ($type !~ /\*/) {
            $ret_type = "_ret" . <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15884	15981	
==>nd run it without there being
  #  dire screaming about the mysterious hard-hyphen character (whic <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	8838	8941	
==>G($rdelspec)/gc )
		{
			$closetagpos = pos($$textref)-length($1);
			goto matched;
		}
		elsif ($ignore <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	2813	2912	
==>nfo (PMC metadata).

This function is exported.

=cut

sub dynext_load_code {
    my ($libname, %cla <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4498	4589	
==>e C<eval>-ed from a F<*.dump> file generated
by F<tools/build/pmc2c.pl> from a F<*.pmc> file <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368202	368607	
==>" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 431,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 336 \"sr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601768	602068	
==>RGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 681,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 383 \"src/ops/ob <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	385	478	
==>er means. It is the Perl equivalent of the C<op_info_t> C
C<struct> defined in F<include/parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1753	1922	
==>> [],
                  "TYPE" => "inline",
                  "CODE" => 0,
                  "ARGS" => [],
                  "BODY" => "#line 50 \"src/ops/core.ops\"\n  { <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	6702	6803	
==>The 'back' part is used only so that $n within R does not return a
# now-abandoned match. I suppose it <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1012	1098	
==>code "languages/lua/lib/luabasic.pbc"
#  load_bytecode "languages/lua/lib/luacoroutine <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2972	3073	
==>=> 'op' });
    $handler->end_element({ Name => 'block' });
    $handler->start_element({ Name => 'blo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3646	3747	
==>=> 'op' });
    $handler->end_element({ Name => 'block' });
    $handler->start_element({ Name => 'blo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3736	3837	
==>=> 'op' });
    $handler->end_element({ Name => 'block' });
    $handler->start_element({ Name => 'blo <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1328	1445	
==>rned by C<file_class>.

=cut

sub file_with_path
{
    my $self = shift;
    
    return $self->file_class->new(@_);
} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3674	3768	
==>document

=head1 SYNOPSIS

  perl -MPod::Simple::Checker -e \
   "exit Pod::Simple::Checker->fi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841379	841617	
==>YPE" => "inline",
                  "CODE" => 954,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 40 \"src/ops/string.ops <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8500	8606	
==>ation is a register then it is up to the SRM to do the store.
	# Otherwise, there's nothing to do here.
	if <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6320	6426	
==>ation is a register then it is up to the SRM to do the store.
	# Otherwise, there's nothing to do here.
	if <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5235	5341	
==>ation is a register then it is up to the SRM to do the store.
	# Otherwise, there's nothing to do here.
	if <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	4068	4166	
==>ack()
#
# Moves the current token position $offset tokens backward. Returns the new
# absolute posi <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2303	2396	
==>nt stack height.
dec stack_depth
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$register_n <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3555	3648	
==>nt stack height.
dec stack_depth
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$register_n <==
3	/Users/nnunley/parrot/lib/Test/More.pm	23852	23950	
==>SKIP vs. TODO?

B<If it's something the user might not be able to do>, use SKIP.
This includes opti <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	594	685	
==>gs;

use Parrot::Pmc2c qw(dynext_load_code dont_edit);

=item C<new($opt, $vtable_dump, %pmc <==
3	/Users/nnunley/parrot/languages/converter.pl	1541	1644	
==>= '';
		  $return .= $item[1][0] if defined $item[1][0];
		  $return .= " | $item[3]" . ::modifier($item <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	64	147	
==>: /parrot/tools/dev/check_source_standards.pl 19607 2006-05-30T15:23:20.183054Z coke <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032560	1032817	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_lex",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033657	1033914	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_lex",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19283	19374	
==>agraphic text will appear in.

=item $parser->no_proofing_exemptions( I<true_or_false> );

S <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50094	50188	
==>=> "#line 800 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50887	50981	
==>=> "#line 800 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19501	19591	
==>HOR\n\nParagraph...\n" section, assuming that that section
isn't terribly long.

(This meth <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11174	11266	
==>RN_${CURIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1}["reg_type_short"]
${DEST0} = concat ${STEMP <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8360	8452	
==>RN_${CURIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1}["reg_type_short"]
${DEST0} = concat ${STEMP <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6022	6114	
==>RN_${CURIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1}["reg_type_short"]
${DEST0} = concat ${STEMP <==
3	/Users/nnunley/parrot/config/inter/libparrot.pm	593	700	
==>be linked against a shared library';

@args = qw(ask parrot_is_shared);

sub runstep {
    my ($self, $ <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	4283	4380	
==>"#stay" String="[^\=]*" />
          <RegExpr attribute="Comment" context="#pop" String="^\\=cut\\ <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2471	2651	
==>=> '\\',
            blib_dir             => 'blib\\lib',
            ccflags              => $ccflags,
            ccwarn               => '',
            has_dynamic_linking  => 1 <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4367	4547	
==>=> '\\',
            blib_dir             => 'blib\\lib',
            ccflags              => $ccflags,
            ccwarn               => '',
            has_dynamic_linking  => 1 <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	414	516	
==>s script checks that the C source code conforms to the standards in
PDD 7.

To run it on all the C sour <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7142	7243	
==>self, $reg) = @_;
    $reg = value(defined($reg) ? $reg : 'pos');
    return $self->output_pushint($re <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6784	6885	
==>self, $reg) = @_;
    $reg = value(defined($reg) ? $reg : 'pos');
    return $self->output_pushint($re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574813	575087	
==>tClass, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575617	575891	
==>tClass, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
3	/Users/nnunley/parrot/lib/Test/More.pm	3977	4074	
==>vely, you can use the plan() function.  Useful for when you
have to calculate the number of tests. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154730	154934	
==>,
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155634	155838	
==>,
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3 <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	3310	3419	
==>de and passes the test if a string comparison of the output
with the unexpected result is false.

=item C<pbc_ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	2362	2468	
==>de and passes the test
if a string comparison of the output with the unexpected result is false.

=item C<p <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	2839	2945	
==>de and passes the test if a string comparison of the output
with the unexpected result is false.

=item C<p <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	16512	16619	
==>type);
  while(@$paras) {
    last if @$paras == 1 and
      ( $paras->[0][0] eq '=over' or $paras->[0][0] e <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	12760	12862	
==>];
			} elsif (isbuiltin($sym)) {
				$extern=~s/\$/_string/g; $extern=~tr/a-z/A-Z/;
				push @code, qq <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	4711	4809	
==>, $rdel) = @_;
	my ($startpos, $ldelpos, $endpos) = (pos $$textref = pos $$textref||0);
	unless ($$ <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	629	841	
==>ck

=cut

sub time_hires { time() }

$I2 = 0;                      # set    I2, 0
$I3 = 1;                      # set    I3, 1
$I4 = 100000000;              # set    I4, 100000000
                              #
p <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3985	4078	
==>$mandatory) {
			exists($$outhash{$_})
		or	croak("Missing mandatory parameter '".lc($_)."'" <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3784	3875	
==>$mandatory) {
			exists($$outhash{$_})
		or	croak("Missing mandatory parameter '".lc($_)."'" <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31208	31312	
==>s true for vtables.

=cut

sub implements
{
    my ($self, $meth) = @_;
    $self->implements_vtable($met <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32671	32775	
==>s true for vtables.

=cut

sub implements
{
    my ($self, $meth) = @_;
    $self->implements_vtable($met <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39828	39932	
==>s true for vtables.

=cut

sub implements
{
    my ($self, $meth) = @_;
    $self->implements_vtable($met <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	652	753	
==>elf->add_checks($t, 0, 0);
    # Delete the no-implicit-check marker
    $t = $self->maptree($t, sub { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026496	1026594	
==>ODY" => "#line 280 \"src/ops/sys.ops\"\n   {{\@1}} = sysinfo_i(interpreter, {{\@2}});\n   {{+=3}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1027253	1027351	
==>ODY" => "#line 280 \"src/ops/sys.ops\"\n   {{\@1}} = sysinfo_i(interpreter, {{\@2}});\n   {{+=3}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70907	71140	
==>load_lib(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71676	71909	
==>load_lib(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2003	2097	
==>base + ((opcode_t*)cur_opcode)[o])

END
}

=item C<suffix()>

The suffix is C<'_prederef'>.

=c <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	18756	18851	
==>_flag =  $self->{flags}{const_too} ?
        'VTABLE_HAS_CONST_TOO' : $self->{flags}{is_const} ? <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2756	2854	
==>~~~~~~~~~~~~~~~~~~~~~~~~

sub new {
  my $new = shift->SUPER::new(@_);
  #$new->nix_X_codes(1);
  $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3112	3208	
==>~~~~~~~~~~~~~~~~~~~~~~~~
sub new {
  my $new = shift->SUPER::new(@_);
  $new->nix_X_codes(1);
  $ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34348	34435	
==>callsyntax($namespace.'::')
		. '($thisparser,$text,$repeating,'
		. ($self->{"lookahead <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789522	789811	
==>e",
                  "CODE" => 891,
                  "ARGS" => [
                              "s",
                              "p",
                              "ki"
                            ],
                  "BODY" => "#line 427 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtab <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	38235	38368	
==>\"/s
            and $section_name[-1] =~ m/\"$/s
            and !( # catch weird degenerate case of L<"> !
              @section_na <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	506	608	
==>ew section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new(
		'Perl Modules', 'perl.ht <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2619	2721	
==>nd) {
    $handler->start_element({ Name => 'cond', Attributes => { kind => $cond } });
    $handler->s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3383	3485	
==>nd) {
    $handler->start_element({ Name => 'cond', Attributes => { kind => $cond } });
    $handler->s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	2465	2560	
==>or/formatter.

This class takes Pod and parses it, returning a parse tree made just
of arrayrefs <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1016178	1016430	
==>JUMP" => 0,
                  "NAME" => "time",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1016809	1017061	
==>JUMP" => 0,
                  "NAME" => "time",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11 <==
3	/Users/nnunley/parrot/lib/Test/More.pm	27356	27467	
==>e (qw(ARRAY HASH REF SCALAR GLOB Regexp)) {
        return $type if UNIVERSAL::isa($thing, $type);
    }

    re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898952	899232	
==>> 1014,
                  "ARGS" => [
                              "s",
                              "i",
                              "ic",
                              "s"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)s <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7063	7220	
==>ting should be 
            # back even with the opening brace.
            my $indent = "  " x (@stack-1);
            if ($1 ne $indent) {
                e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449262	449396	
==>"
                            ],
                  "BODY" => "#line 190 \"src/ops/math.ops\"\n  {{\@1}}->vtable->i_absolute(interpreter <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1040	1131	
==>nt, and then an end-token with the tagname of "head1".

=item $token->tagname(I<somestring>) <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1468	1559	
==>nt, and then an end-token with the tagname of "head1".

=item $token->tagname(I<somestring>) <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	7316	7402	
==>t_jit_normal_op
#define Parrot_jit_vtable_112_op Parrot_jit_normal_op
#define Parrot_ji <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	3032	3161	
==>",");
	return 20 if ($op eq "+");
	return 20 if ($op eq "-");
	return 30 if ($op eq "mod");
	return 40 if ($op eq '\\');
	return 5 <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3255	3348	
==>E::_generate_glob_for($target, $pattern);

    goto &Parrot::Test::pir_output_is;
}

=item C<p <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3680	3773	
==>E::_generate_glob_for($target, $pattern);

    goto &Parrot::Test::pir_output_is;
}

=item C<p <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	1493	1599	
==>iling slash.
    $parent_path = File::Spec->canonpath($parent_path);
    
    # If we are root then the abo <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	694	792	
==>the current directory.

=head2 Options

=over 4

=item C<--plus-misses>

This creates a second sect <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27395	27520	
==>, new LabelOp( $parser,
        'arg1' => $l_break,
    );
    return \@opcodes;
}

sub BuildRepeat {
    my ( $parser, <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	21775	21885	
==>q join '~', sort keys %$map)
     ? "  (all normal)\n" : "\n"
  ;

  # A recursive algorithm implemented iterat <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	11042	11144	
==>ranscode::->all_encodings;

    # Note unsupported, and complain
    DEBUG and print " Encoding [$e] is <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1674	1768	
==>b/Parrot/Config.pm$::;
$path_to_parrot = File::Spec->curdir()
    if $path_to_parrot eq '';

my <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407748	408026	
==>AME" => "connect",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408646	408924	
==>AME" => "connect",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
3	/Users/nnunley/parrot/lib/Test/More.pm	3116	3214	
==>sts => $Num_Tests;

There are rare cases when you will not know beforehand how many tests
your scri <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	4158	4268	
==>$dir = $self->existing_directory_with_name('lib');
    
    foreach my $name (@path)
    {
        return unles <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	9188	9288	
==>pts)=@_;
	my $parens;
	my @expr;

	goto PROCEXP_NOFEED if $opts{lhs};
	goto PROCEXP_NOFEED if $opts{n <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	466	560	
==>se File::Path;
use File::Spec;
use Parrot::IO::File;

=item C<directory_class()>

Returns the c <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6823	6931	
==>lf = shift;
	my $need_dest = shift;
	my $pir = "";

	# If we need a destination, we simply supply the registe <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4761	4869	
==>lf = shift;
	my $need_dest = shift;
	my $pir = "";

	# If we need a destination, we simply supply the registe <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	14581	14676	
==>ding
regular expression, or undef if it's argument is not recognised.

For example, a version of <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841680	841970	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":bas <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842444	842734	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":bas <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1587	1685	
==>opcode_t>, but the prederef runops core uses an array of C<void*> to
do its clever tricks.

=cut

s <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	1829	1945	
==>= 0x0200 if $chr =~ /^[[:cntrl:]]$/;  # CCLASS_CONTROL        
    $ret |= 0x0400 if $chr =~ /^[[:punct:]]$/;  # CCLA <==
3	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	844	953	
==>N file!";
    $parrot_version = <$VERSION>;
    close $VERSION;

    chomp $parrot_version;
    $parrot_versio <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	687	779	
==>ver 4

=item C<p6rule_is($target, $pattern, $description, @todo)>

Runs the target string aga <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19027	19148	
==>_back => aop('unless', [ $matchcount, $lastback ]),
               aop('add', [ $matchcount, -1 ]),
               aop('go <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572903	572992	
==>"#line 242 \"src/ops/object.ops\"\n  PMC *name = pmc_new(interpreter, enum_class_String);\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573813	573902	
==>"#line 242 \"src/ops/object.ops\"\n  PMC *name = pmc_new(interpreter, enum_class_String);\ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	199	290	
==>o/Construct/Statement/Return.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eva <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	334	438	
==>$count );
}

sub get_test_prog {
    my $self = shift;
    my ( $path_to_parrot, $path_to_language, $coun <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	352	456	
==>$count );
}

sub get_test_prog {
    my $self = shift;
    my ( $path_to_parrot, $path_to_language, $coun <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	6660	6756	
==>opyright 1991-1992 RSA Data Security, Inc.

The MD5 algorithm is defined in RFC 1321. The basic C <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	54711	54843	
==>\lua51.yp"
{
            BuildRelop( $_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 71
		 'exp', 3,
sub
#line 393 "Lua\l <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3015	3128	
==>y $self = shift;
  my ($handler) = @_;

  my $block = $self->block;
  my $kind  = $self->kind;
  my $name  = $self <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	1590	1701	
==>al in that case.  Don't
    # bother warning.  --AD, 12 Sep 2005
    # warn "String to be integrated in to '$ori <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4023	4123	
==>.= "\${ITEMP0} = 0\n";
	for (1..$pushes) {
		$pir .= <<'PIR';
# Increment stack depth.
inc stack_dept <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2439	2539	
==>.= "\${ITEMP0} = 0\n";
	for (1..$pushes) {
		$pir .= <<'PIR';
# Increment stack depth.
inc stack_dept <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	4232	4332	
==>$self, $node, $return, $special) = @_;

  if (exists $node->{value}) {
    my $value = $node->{value} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23134	23274	
==>ew($block, $self->require_value);

        $self->require_close_paren;
      }

      $self->require_semicolon;
      
      my $goto = Jako: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22201	22323	
==>ew($block, $self->require_value);

        $self->require_close_paren;
      }

      $self->require_semicolon;

      my $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24780	24901	
==>ew($block, $self->require_value);
        $self->require_close_paren;
      }

      $self->require_semicolon;

      my $ <==
3	/Users/nnunley/parrot/tools/dev/pbc_header.pl	1436	1557	
==>, $minor;
	seek F, 6, 0;	# pos 6: pad = finger_print
	print F $fp;
	close F;
    }
}

sub pbc_info {
    for my $f (@ARGV) <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	18062	18174	
==>$name, \%all);
        gen_super_meths($class, $vt, \%all);

        my $Dumper = Data::Dumper->new([$class], ['c <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3640	3744	
==>_;
	my($prm,$value);
	my($prmlst)={};

	while(($prm,$value)=splice(@$inarray,0,2)) {
        $prm=uc <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3452	3551	
==>_;
	my($prm,$value);
	my($prmlst)={};

	while(($prm,$value)=splice(@$inarray,0,2)) {
        $prm=uc <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	35603	35753	
==>r .= "### post_branch\n";
		$pir .= sub_meta($post_branch, $mv, "post_branch for rule $rule->{'name'}");
		$pir .= "### end post_branch\n";
	}

    # C <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	18441	18537	
==>it_func()>

Returns the C code for the PMC's initialization method, or an empty
string if the PMC <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	24719	24811	
==>AGE SUPPLIED
	{
		#WAS: $action .= "Parse::RecDescent::_error(qq{$self->{msg}}" .  ',$thislin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63203	63374	
==>ops/core.ops\"\n  PARROT_ERRORS_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63849	64020	
==>ops/core.ops\"\n  PARROT_ERRORS_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ] <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	18143	18257	
==>foreach (sort keys %groups) {
        # If there is only a single element with a single code...
        if (@{$grou <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031533	1031653	
==>-1;\n    else\n        {{\@1}} = data_types[{{\@2}} - enum_first_type].size;\n  {{+=3}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032402	1032522	
==>-1;\n    else\n        {{\@1}} = data_types[{{\@2}} - enum_first_type].size;\n  {{+=3}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	60307	60401	
==>ffset appended.
On success, the C<$@> variable is guaranteed to be C<undef>.

The available dia <==
3	/Users/nnunley/parrot/lib/Test/More.pm	24846	24942	
==>they are equivalent.  If the two structures are different, it
will display the place where they s <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	7806	7901	
==>n)>

Processes a start token not processable by the above methods.

=cut

sub process_other_star <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11711	11798	
==>f\sbasedon0 \snext0 pod-codeblock;}
{\*\cs21 \additive \lang1024\noproof \sbasedon10 pod <==
3	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	428	518	
==>rrot_config_c.pl --mini > src/null_config.c
    % perl tools/build/parrot_config_c.pl --ins <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25494	25615	
==>n);
      $return = $temp;
    }
    my $temp   = $self->_constant(0);
    $self->_add_inst('','sub',[$return,$temp,$retur <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4198	4423	
==>lib',
            ar                   => 'xilib',
            ar_flags             => '',
            ar_out               => '-out:',
            slash                => '\\',
            blib_dir             => 'blib\\lib', <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4800	4917	
==>';
    }
    return @ops;
}

sub output_classmatch {
    my ($self, $incexc, $failLabel) = @_;

    my $passLabel = $s <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4464	4581	
==>';
    }
    return @ops;
}

sub output_classmatch {
    my ($self, $incexc, $failLabel) = @_;

    my $passLabel = $s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29948	30175	
==>rgs = NULL;\n    }\n    {{=pc}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1729	1824	
==>number of arguments (expected %d, got %d) in call to '%s'.",
    scalar(@formal_args), scalar(@a <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1429	1524	
==>number of arguments (expected %d, got %d) in call to '%s'.",
    scalar(@formal_args), scalar(@a <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	1534	1695	
==>",
       d => "double",
       t => "char *",
       v => "void",
       J => "Interp *",
       P => "PMC *",
       O => "PMC *",      # object
       S => "ST <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3352	3462	
==>conf->data->get('linkflags');
            $linkflags =~ s/-opt:\S+//;
            $conf->data->set(linkflags => <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4856	4966	
==>conf->data->get('linkflags');
            $linkflags =~ s/-opt:\S+//;
            $conf->data->set(linkflags => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480536	480715	
==>,
                              "i"
                            ],
                  "BODY" => "#line 446 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481539	481718	
==>,
                              "i"
                            ],
                  "BODY" => "#line 446 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    re <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	103	205	
==>6-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Section::DynaPMCs - Dynamic PMCs docum <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	2997	3204	
==>me = $1;
            if ($rule) {
                # Validate it.
                validate_rule($rule);

                # Save it.
                push @rules, $rule;
            }

            # Create new r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832140	832226	
==>r->ctx)->user_stack, &({{\@1}}), STACK_ENTRY_FLOAT, STACK_CLEANUP_NULL);\n  {{+=2}};\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832868	832954	
==>r->ctx)->user_stack, &({{\@1}}), STACK_ENTRY_FLOAT, STACK_CLEANUP_NULL);\n  {{+=2}};\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94428	94732	
==>" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95320	95624	
==>" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96213	96517	
==>" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	119459	119723	
==>/ops/bit.ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120314	120578	
==>/ops/bit.ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121169	121433	
==>/ops/bit.ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1742	1861	
==>rog : $conf->data->get($util));
    }

    my ($stdout, $stderr, $ret) = capture_output($prog, '--version');

    # don' <==
3	/Users/nnunley/parrot/config/inter/make.pm	1616	1735	
==>rog : $conf->data->get($util));
    }

    my ($stdout, $stderr, $ret) = capture_output($prog, '--version');

    # don' <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1756	1875	
==>rog : $conf->data->get($util));
    }

    my ($stdout, $stderr, $ret) = capture_output($prog, '--version');

    # don' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407499	407803	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "connect",
                  "FLAGS" => ":base_n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408397	408701	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "connect",
                  "FLAGS" => ":base_n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462944	463250	
==>en);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463941	464247	
==>en);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod" <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	134	227	
==>1564Z bernhard  $

=head1 NAME

Parrot::OpTrans::CPrederef - C Predereferenced Transform

=hea <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	19228	19351	
==>,
   $nixx  ? (" Nix-X mode on\n") : (),
  ;    
  

  my($i, $treelet);
  while($treelet = shift @stack) {
    DEBUG > 3 an <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1289	1389	
==>E ? '' : "$_[1]{'number'}. "  }
sub start_item_text   { $_[0]{'Thispara'} = ''   }

sub start_over_bu <==
3	/Users/nnunley/parrot/lib/Test/More.pm	3027	3127	
==>rred way to do this is to declare a plan when you C<use Test::More>.

  use Test::More tests => $Num_ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8364	8509	
==>o state $$stack[-1][0], then ";

                $$check eq 'ERROR'
            or  do {
#DBG>				$debug & 0x04
#DBG>			and	print STDERR 
#D <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7984	8123	
==>o state $$stack[-1][0], then ";

                $$check eq 'ERROR'
            or  do {
#DBG>				$debug & 0x04
#DBG>			and	print STDERR 
#D <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	29003	29103	
==>telike($text))[0] )
	{
		# process next quote-like (in $next)
	}


=head2 General behaviour in scalar <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581401	581760	
==>_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 663,
                  "ARGS" => [
                              "p",
                              " <==
3	/Users/nnunley/parrot/config/inter/ops.pm	1057	1185	
==>) {
        print <<"END";


The following opcode files are available:
  @ops
END
        {
            $ops = prompt('Which opco <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3934	4036	
==>at it
looks at the file's name. If it fails for both it returns 'Undefined'.

=cut

sub type
{
	my $sel <==
3	/Users/nnunley/parrot/examples/benchmarks/primes.pl	130	225	
==>641316Z coke  $

=head1 NAME

examples/benchmarks/primes.pl - Calculate prime numbers < 10000

= <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6936	7027	
==>longer string"
found$="longer"
bogus$="not"
print "Found  (5): ", instr(s1$, found$)
print " <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18665	18756	
==>longer string"
found$="longer"
bogus$="not"
print "Found  (5): ", instr(s1$, found$)
print " <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4561	4662	
==>sed the key and value that was set
after it has been changed.

Accepts a key name, a trigger name, & a <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	3851	3952	
==>ody =~ /DEPRECATED/);

    return $name;
}

=item C<func_name()>

The same as C<full_name()>, but with <==
3	/Users/nnunley/parrot/config/auto/cgoto.pm	1375	1461	
==>)/core_ops_cg.c 

$(OPS_DIR)/core_ops_cg.c : $(OPS_FILES) $(BUILD_TOOLS_DIR)/ops2c.pl l <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	329613	329786	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_r8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	330278	330451	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_r8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	10781	10873	
==>}
sub parse_read {
	while($type[CURR] !~ /COMP|COMM|STMT/) {
		push @{$code{$seg}->{code}}, < <==
3	/Users/nnunley/parrot/lib/Test/More.pm	17945	18060	
==>n aborted at .*$}
                {BEGIN failed--compilation aborted at $filename line $line.}m;
        $Test->diag <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	9690	9789	
==>e current package
name as the class name.

An object of a class created by the first and third forms <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761492	761721	
==>gister access\");\n    REG_PMC({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762345	762574	
==>gister access\");\n    REG_PMC({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	5449	5560	
==>age from the extension of C<$example_f> and runs
language_output_isnt().  This I<does> set a description for you <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	567	663	
==>onfess "Left is not defined!" unless defined $left;
  confess "Op is not defined!" unless defined <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	579	675	
==>onfess "Left is not defined!" unless defined $left;
  confess "Op is not defined!" unless defined <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10939	11024	
==>,$a,$b,$c,$_[15],10,0xbd3af235,/* 62 */
II,$c,$d,$a,$b,$_[6],15,0x2ad7d2bb,/* 63 */
II <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361613	361714	
==>"BODY" => "#line 281 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362512	362613	
==>"BODY" => "#line 281 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(int <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	2041	2141	
==>%options = @_;

=pod

Conformant to a recent post on p6i, if called with a single argument of
C<--fil <==
3	/Users/nnunley/parrot/languages/scheme/Scheme.pm	646	752	
==>new_pad 0
END_HEADER

  while (@missing) {
    my $miss = shift @missing;

    my $link = Scheme::Builtins- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822342	822432	
==>_type != STACK_ENTRY_INT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823410	823500	
==>_type != STACK_ENTRY_INT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16306	16405	
==>$self->require_assign;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->for <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17077	17176	
==>$self->require_assign;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->for <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17882	17981	
==>$self->require_assign;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->for <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2835	2948	
==>ns) hooks.
sub pre_op($$) {
	my $self = shift;
	my ($pops, $pushes) = @_;
	my $register_num = 0;
	my $push_num = 0 <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1757	1870	
==>ns) hooks.
sub pre_op($$) {
	my $self = shift;
	my ($pops, $pushes) = @_;
	my $register_num = 0;
	my $push_num = 0 <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	946	1059	
==>ns) hooks.
sub pre_op($$) {
	my $self = shift;
	my ($pops, $pushes) = @_;
	my $register_num = 0;
	my $push_num = 0 <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	2849	2970	
==>'Interpreter', 
            '',
            $self->c_pair_item('', 'embed'),
            $self->c_pair_item('', 'global_se <==
3	/Users/nnunley/parrot/config/auto/inline.pm	471	586	
==>rts inline';

@args = qw(inline verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $test;
    my ($inline, <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	1386	1488	
==>e->constants) {
        printf("%04x: %08x %08x %08x %08x %s\n",
	    $constant_num, $_->flags, $_->enc <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7987	8132	
==>$len,$len);

                $$check eq 'ACCEPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Accept.\n";

				ret <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7629	7766	
==>$len,$len);

                $$check eq 'ACCEPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Accept.\n";

				ret <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10694	10792	
==>e', 'e', 'i', 'i', 'i', 'i',
'd', 'n', 'o', 'o', 'o', 'o', 'o', qq{/}, 'o', 'u', 'u', 'u', 'u', 'y' <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	5247	5366	
==>v'    => \$Version,
		  )) {
    show_help();
    exit(1);
}

if ($Const && !$nm_ro) {
    warn "$ME: the native nm cann <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722164	722266	
==>" => "#line 149 \"src/ops/python.ops\"\n  STRING * const s = {{\@2}};\n  PMC * const io = {{\@1}}; /* T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723193	723295	
==>" => "#line 149 \"src/ops/python.ops\"\n  STRING * const s = {{\@2}};\n  PMC * const io = {{\@1}}; /* T <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	10526	10650	
==>} = 1;
  }

  my $token_count = 0;
  my $title;
  my @to_unget;
  my $state = 0;
  my $depth = 0;

  Carp::croak "What kind o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43658	43764	
==>src/ops/core.ops\"\n  Parrot_push_mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44302	44408	
==>src/ops/core.ops\"\n  Parrot_push_mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	9590	9687	
==>code   and   perldoc Encode::Supported

  require Pod::Simple::Transcode;

  if( $self->{'encoding <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3058	3179	
==>nd	return $$self{STACK}[$index][1];

	undef;	#Invalid index
}

sub YYCurtok {
	my($self)=shift;

        @_
    a <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2910	3022	
==>nd	return $$self{STACK}[$index][1];

	undef;	#Invalid index
}

sub YYCurtok {
	my($self)=shift;

        @_
    a <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	1339	1447	
==>= @_;

    my $file = "src/core_pmcs.c";
    my @pmcs = split(/ /, $conf->data->get('pmc_names'));

    open( <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9994	10087	
==>o last in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PL <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7508	7601	
==>o last in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PL <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6472	6565	
==>o last in ${PARAMS}.
${ITEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037175	1037450	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037955	1038230	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ] <==
3	/Users/nnunley/parrot/lib/Test/More.pm	3714	3808	
==>uccess).  See L<Test::Harness> for
details.

If you want to control what functions Test::More w <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	2491	2618	
==>out .= "    \$class = __PACKAGE__ unless \@_;\n";

    my $cnt = 0;
    my $idx = 0;
    my( $cmt, $name, $type, $elem );

    i <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2285	2379	
==>type, $value, $op)>

Returns the C code for the specified op argument type (see
C<Parrot::OpTra <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3176	3270	
==>type, $value, $op)>

Returns the C code for the specified op argument type (see
C<Parrot::OpTra <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582706	583065	
==>_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 664,
                  "ARGS" => [
                              "p",
                              " <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	9172	9267	
==>dfa_safe { my ($op) = @_; $op->{args}->[1]->dfa_safe() }

# Rule calls are totally unpredictable <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	31115	31210	
==>ted.
The final argument specifies the escape character to be used for each
delimiter.

All argum <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710824	711015	
==>){{\@1}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711658	711849	
==>){{\@1}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/config/inter/progs.pm	2955	3053	
==>kflags) if $ask;
    $conf->data->set(linkflags => $linkflags);

    $ldflags = $conf->data->get('l <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31131	31237	
==>/#g;

	my $desc = $pattern;
	$desc=~s/\\/\\\\/g;
	$desc=~s/}/\\}/g;
	$desc=~s/{/\\{/g;

	bless 
	{
		"patte <==
3	/Users/nnunley/parrot/Configure.pl	7431	7575	
==>sed to disable the autodetection feature.
                        It will also be disabled if you specify any other
                        of th <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	67463	67584	
==>atchrule,
								       $argcode);
	 
				$prod and $prod->additem($item)
				      or  _no_rule("(sub)rule",$line,$name) <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41149	41254	
==>vetext = $text;
			' . ($op->isterminal() ? 'pop @item;' : "" ) . '
			' . (ref($op) eq 'Parse::RecDescent <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193532	193626	
==>interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) < 0) {\n    {{+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194511	194605	
==>interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) < 0) {\n    {{+ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	12304	12395	
==>narf=3.1415
print t.foo
print t.bar
print t.narf

' Variable-depth structure references
type <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436502	436589	
==>th.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437517	437604	
==>th.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}} <==
3	/Users/nnunley/parrot/lib/Test/More.pm	9991	10087	
==>y between ok() and is() lies cmp_ok().  This allows you to
compare two arguments using any binary <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367821	367906	
==>/io.ops\"\n  {{\@1}} = PIO_reads(interpreter, PIO_STDIN(interpreter), (size_t){{\@2}}) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368613	368698	
==>/io.ops\"\n  {{\@1}} = PIO_reads(interpreter, PIO_STDIN(interpreter), (size_t){{\@2}}) <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	1130	1265	
==>h{$path}) ne $self )
        {
            bless $instance_for_path{$path}, $self;
        }
        
        return $instance_for_path{ <==
3	/Users/nnunley/parrot/config/inter/charset.pm	1462	1573	
==>ONGEN_HEADERS)


END
    }

    # build list of libraries for link line in Makefile
    my $slash = $conf->data- <==
3	/Users/nnunley/parrot/config/inter/encoding.pm	1479	1590	
==>ONGEN_HEADERS)


END
    }

    # build list of libraries for link line in Makefile
    my $slash = $conf->data- <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1492	1607	
==>= qq[];

# Here comes some stuff for Win32.
our $PATHQUOTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1537	1652	
==>= qq[];

# Here comes some stuff for Win32.
our $PATHQUOTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1541	1656	
==>= qq[];

# Here comes some stuff for Win32.
our $PATHQUOTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as <==
3	/Users/nnunley/parrot/languages/lua/luac.pl	105	226	
==>opts );
if ( $opts{v} ) {
    print "$0\n";
    print "Perl $] on $^O\n";
    exit;
}
if ( $opts{h} or scalar(@ARGV) <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	42017	42134	
==>ess( @copy > 2 ) {
      push @copy, $copy[1]{'target'};
      $copy[-1] = '' unless defined $copy[-1];
       # since <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	10294	10398	
==>" ", map "[$_]", sort keys %options
  )
   if keys %options;

  my %content_containers;
  $content_contai <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31276	31379	
==>@_;
    $self->implements_vtable($meth);
}

=item C<body($method, $line, $out_name)>

Returns the C code <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35907	36010	
==>@_;
    $self->implements_vtable($meth);
}

=item C<body($method, $line, $out_name)>

Returns the C code <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39896	39999	
==>@_;
    $self->implements_vtable($meth);
}

=item C<body($method, $line, $out_name)>

Returns the C code <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2924	3061	
==>t $PATHQUOTE$LIBPARROT$PATHQUOTE";
}

our $NOW = time();

################### MAIN PROGRAM ################

my ($mode, @pmcs) = @ARGV;

i <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3028	3165	
==>t $PATHQUOTE$LIBPARROT$PATHQUOTE";
}

our $NOW = time();

################### MAIN PROGRAM ################

my ($mode, @pmcs) = @ARGV;

i <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5876	5976	
==>x_match>["$group";0], $value # open group $group!;
}

sub output_setend {
    my ($self, $group, $val <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26651	26775	
==>) = @_;
    my @opcodes    = ();
    my $l_continue = new_label($parser);
    my $l_break    = new_label($parser);
    pu <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27536	27660	
==>) = @_;
    my @opcodes    = ();
    my $l_continue = new_label($parser);
    my $l_break    = new_label($parser);
    pu <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	12119	12216	
==>ogram name is returned or C<undef> on failure.  Note: this function only
returns the name of the p <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16927	17067	
==>ts
        #  with text in them.
        
        # Yes, stipulate the list without a range, so that this can work right on
        #  all ch <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10367	10487	
==>ts
    #  with text in them.

    # Yes, stipulate the list without a range, so that this can work right on
    #  all ch <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7179	7299	
==>PGE/Glob.pir"
            load_bytecode "PGE/Dumper.pir"
            load_bytecode "PGE/Text.pir"
            glob_compil <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1230	1334	
==>$_[0]{'hide_line_numbers'};
        _xml_escape($value);
        print $fh $ATTR_PAD, $key, '="', $value, <==
3	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	625	723	
==>amic fingerprint.c.

=cut


use strict;
use lib 'lib';
use Digest::Perl::MD5 qw(md5_hex);

my $comp <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	873	981	
==>element({ Name => 'block', Attributes => { kind => $self->kind } });
  $_->sax($handler) foreach $self->conte <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1886	1994	
==>element({ Name => 'block', Attributes => { kind => $self->kind } });
  $_->sax($handler) foreach $self->conte <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2680	2788	
==>element({ Name => 'block', Attributes => { kind => $self->kind } });
  $_->sax($handler) foreach $self->conte <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	43194	43301	
==>\n?$}s;
     # look at a formatty line preceding a nonformatty one
    DEBUG > 5 and print "Scrutinizing lin <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2507	2589	
==>s/mops/mops.p6>,
F<examples/mops/mops.ps>,
F<examples/mops/mops.py>,
F<examples/mop <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	2507	2589	
==>s/mops/mops.p6>,
F<examples/mops/mops.ps>,
F<examples/mops/mops.py>,
F<examples/mop <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565764	566029	
==>can(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566657	566922	
==>can(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/languages/converter.pl	2469	2611	
==>e {
      $rules[-1] .= "\n$_";
    }
  }
  else {
    if(/::=/) {
      push @rules,$_;
      $in_rule = 1;
    }
  }
}

for(@rules) {
  print <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	147	315	
==>/parrot/tools/dev/mk_manifests.pl 19607 2006-05-30T15:23:20.183054Z coke  $
################################################################################

=head1 TITL <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	24832	24950	
==>num";
		}

        # tfield
		elsif (/^tfield$/) {
			$out =  "    \${I_ARG_$arg_num} = bc.read_tfield()\n    next_pc + <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	4610	4715	
==>>full_name;
    my $n = $ParrotOps::optable{$opname} ;
    if ($n != $_->{CODE}) {
	die "op number mismatc <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	2532	2661	
==>('op');
	push @pc_list, $pc;
	$opcodes{$pc}->{op} = $op;
        $new_pc   = $pc + $op->size;

        @args = ();

        foreac <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5288	5416	
==>ck, $self->require_literal);
        }

        $props{$prop} = $value;
      }

      $self->require_open_brace;

      my $modu <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	15741	15862	
==>);

    for my $i (0..$#args-1) {
        push @ops, aop('eq', [ '<tmp>', $i, $ibacks[$i] ]);
    }

    push @ops, aop('g <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264033	264387	
==>i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 307,
                  "ARGS" => [
                              "i",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 806 \"src <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	17941	18057	
==>goto $targ $cmt
EOC
}

sub JUMP_IF_TRUE
{
    my ($n, $c, $cmt) = @_;
    my $tos = pop @stack;
    my $targ = "pc_xx <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1576	1687	
==>o unknown sub '%s'.", $name);
  }

  my %props = $sym->props;

  my @args  = $self->args;

  my @formal_args = $ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32731	32841	
==>return value: [}
						. $_tok . q{])},
						  Parse::RecDescent::_tracefirst($text))
							if defined $::RD_ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22686	22794	
==>return value: [}
						. $_tok . q{])},
						Parse::RecDescent::_tracefirst($text))
							if defined $::RD_ <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	5416	5516	
==>e hate
to write tests B<at all>.  What was needed was a dead simple module
that took all the hard wor <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5441	5548	
==>print join(" ", @_), "\n";

    return system(@_) == 0;
}

# XXX: ordering of libs might be crucial
sub gath <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5652	5759	
==>print join(" ", @_), "\n";

    return system(@_) == 0;
}

# XXX: ordering of libs might be crucial
sub gath <==
3	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1226	1327	
==>se base qw(Lua::opcode);

package RelationalOp;
use base qw(Lua::opcode);

package AssignOp;
use <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480799	481097	
==>n  {{\@1}} = (INTVAL)floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481802	482100	
==>n  {{\@1}} = (INTVAL)floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482805	483103	
==>n  {{\@1}} = (INTVAL)floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	29887	30031	
==>r,
        'op'     => '<=',
        'arg2'   => $_limit,
        'result' => $lbl_end,
    );
    my $lbl_blk = new_label($parser);
    pu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653292	653388	
==>line 292 \"src/ops/pmc.ops\"\n    opcode_t * resume = {{^+4}};\n    {{\@1}} = {{\@2}}->vtable->fi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654453	654549	
==>line 292 \"src/ops/pmc.ops\"\n    opcode_t * resume = {{^+4}};\n    {{\@1}} = {{\@2}}->vtable->fi <==
3	/Users/nnunley/parrot/config/auto/jit.pm	2174	2301	
==>")
        if $verbose;

    # XXX disable all but i386, ppc
    my %jit_is_working = (
	i386 => 1,
	ppc  => 1,	
	# all others a <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2828	2933	
==>trailing whitespace on the file 
sub trim_whitespace {
    my ($file, $source) = @_;

    return unless @$ <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	14134	14224	
==>item $Latin1Char_to_fallback{I<character>}

Just as above, but maps from characters (like " <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33972	34087	
==>method->{type};
        $ret_def = "$type ret_val;";
        $func_ret = $self->gen_ret($method->{type});
        $r <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38934	39049	
==>method->{type};
        $ret_def = "$type ret_val;";
        $func_ret = $self->gen_ret($method->{type});
        $r <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20887	20990	
==>>[0]'
	P1["type"]= '$_->[1]'
	push P0, P1
ADDT
		}
		print CODE<<TYPEE;
	P1= P10[0]
	P2= P1["types"]
	P2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023939	1024177	
==>YPE" => "function",
                  "CODE" => 1144,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 210 \"src/ops/sys.o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605349	605522	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addattribute",
                  "FLAGS" => ":object_classes",
                  "ARGD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606139	606312	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addattribute",
                  "FLAGS" => ":object_classes",
                  "ARGD <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	3923	4049	
==>plit(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a = qq!"$a"!;   # quote argument
		    $def_arg_names{$f}{$a} = $i;
		    # p <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	4422	4548	
==>plit(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a = qq!"$a"!;   # quote argument
		    $def_arg_names{$f}{$a} = $i;
		    # p <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22354	22450	
==>e::RecDescent::_trace(q{Trying directive: ['
					. $self->describe . ']},
					Parse::RecDescent <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Transcode.pm	467	586	
==>d $class: $@\n";
  } else {
    DEBUG and print "OK, loaded $class.\n";
    @ISA = ($class);
    last;
  }
}

sub _blorp <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	18460	18564	
==>p @stack;
	my $n = temp($tos->[2]);
	print <<EOC;
	$n = not $tos->[1] $cmt
EOC
	push @stack, [-1, $n, $to <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3112	3209	
==>BLE_PARTIES' => 'Project info',
	'TODO' => 'TODO file',
	'VERSION' => 'Project info',
);

=item C< <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14702	14800	
==>(5)

' Truth
s$="Hello"
if s$ then print "This is true" else print "Oops (string)"
s$=""
if s$ then <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	15376	15467	
==>tartpos, $codepos-$startpos,
		 $codepos, $endpos-$codepos,
		 $endpos,  length($$textref)-$ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2166	2267	
==>"$var"]	# Pull the original
	P2= P10[I25]
	P3= P2["USER"]
	P3["$var"]= P0	# Hack in the alias

SHARING <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	624648	624749	
==>BODY" => "#line 247 \"src/ops/pic.ops\"\n    Parrot_MIC *mic;\n    Parrot_PIC_lru *lru;\n    void *arg <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	62025	62120	
==>r, but may indicate incorrect quoting or escaping.

=item  C<No block delimiter found after quot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111271	111360	
==>/bit.ops\"\n  {{\@1}} = string_bitwise_or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112163	112252	
==>/bit.ops\"\n  {{\@1}} = string_bitwise_or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113055	113144	
==>/bit.ops\"\n  {{\@1}} = string_bitwise_or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561994	562262	
==>%Ss' not found\", {{\@3}});\n  }\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563078	563346	
==>%Ss' not found\", {{\@3}});\n  }\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6710	6812	
==>te_splicing {
  my ($self, $node, $return) = @_;

  my $list = $self->_generate($node);

  die "unquote <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462738	462841	
==>Y" => "#line 322 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_except <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463735	463838	
==>Y" => "#line 322 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_except <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464732	464835	
==>Y" => "#line 322 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n    real_except <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544168	544291	
==>L p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545504	545627	
==>L p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546840	546963	
==>L p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2617	2728	
==>($self);

  return $self;
}

# block handled by superclass?

sub kind  { return shift->{KIND};     }
sub type  { <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2734	2839	
==>($self);

  return $self;
}

# block handled by superclass?

sub kind { return shift->{KIND}; }
sub type { <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	623	748	
==>=> $token->text,

    DEBUG  => 1,
    FILE   => $token->file,
    LINE   => $token->line
  }, $class;
}


#
# compile()
#
# B <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	5057	5157	
==>o parameters
  my $class = ref($_[0]) || $_[0];
  #Carp::croak(__PACKAGE__ . " is a virtual base clas <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4975	5065	
==>${eqnum}
TRUE_${eqnum}: set $result, 1.0
NOT_${eqnum}: noop
CODE
		die "$a1,$a2,$result,$op <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5164	5290	
==>s especially important on
        # some platforms
        if ($^O eq 'hpux' or $^O eq 'cygwin') {
            chmod 0755, "$de <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5375	5501	
==>s especially important on
        # some platforms
        if ($^O eq 'hpux' or $^O eq 'cygwin') {
            chmod 0755, "$de <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4380	4500	
==>s especially important on
			# some platforms
	        if ($^O eq 'hpux' or $^O eq 'cygwin') {
		        chmod 0755, "$de <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	38799	38942	
==>me;
          last;
        }
      }

      # Turn L<"Foo Bar"> into L</Foo Bar>
      if(!$section_name and @ell_content
         and !ref($el <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	31465	31597	
==>save_rxlocals,
                     aop('getstart', [ '<tmp>', "0" ]),
                     aop('pushint', [ '<tmp>', "save rule $nam <==
3	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	1250	1342	
==>n", $header, @{$skip}, '' );

=head1 AUTHOR

Bernhard Schmalhofer - <Bernhard.Schmalhofer@gmx <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	3966	4091	
==>,
            $self->c_header_item('', 'op'),
            $self->c_header_item('', 'oplib'),
        ),
        $self->new_gro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478908	479026	
==>ionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479800	479918	
==>ionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	9445	9553	
==>rint {
	my $eol=0;
	my $expr=0;
	my $c=0;
	my $fd="";
	my ($result, $type, @CODE);
	feedme();
	if ($syms[CURR <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	2128	2232	
==>aggregate PMC key
    INTKEY    the argument is an aggregate PMC integer key

The size of the return offs <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48637	48825	
==>s_CLEAR(interpreter, PARROT_BOUNDS_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49427	49615	
==>s_CLEAR(interpreter, PARROT_BOUNDS_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	5594	5724	
==>+;
    }

    return $string;
}

##
## run_tests(@globs)
##
## Run the tests.
##
sub run_tests {
    my (@files) = @_ ? @_ : glob F <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	1249	1356	
==>= shift; # Required: string (TODO: domain?)
  my $type   = shift; # Optional: TODO: type?
  my $prefix = shi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	925	1020	
==>xample, parsing a "=head1 ..." line will give you
a start-token with the tagname of "head1", tok <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1353	1448	
==>xample, parsing a "=head1 ..." line will give you
a start-token with the tagname of "head1", tok <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	7130	7293	
==>tandalonesig|valuetype|method|field|type)$/;
                }
                $has_args = 1;
            }
        }

        # instruction or pir
        elsif (/ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33087	33181	
==>name of the output file we are
generating.

Overrides the default implementation to perform loc <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	11487	11574	
==>edFloatArray FixedPMCArray LexInfo MultiSub NameSpace None Pair ResizableBooleanArray Re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193416	193558	
==>ic"
                            ],
                  "BODY" => "#line 320 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194395	194537	
==>ic"
                            ],
                  "BODY" => "#line 320 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}} <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	5902	6031	
==>}
        unless ($jit_cpu) {
            $line =~ s/emitm_pushl_i/emitm_pushl_m/ if ($line =~ /string/);
        }
        $asm . <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111286	111551	
==>{\@1}} = string_bitwise_or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112178	112443	
==>{\@1}} = string_bitwise_or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113070	113335	
==>{\@1}} = string_bitwise_or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21370	21476	
==>>_restore($temp);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$label") <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21755	21861	
==>>_restore($temp);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$label") <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22140	22246	
==>>_restore($temp);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$label") <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1111	1217	
==>sub directory_with_path
{
    my $self = shift;
    
    return $self->directory_class->new(@_);
}

=item C <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28187	28277	
==>||"").$text;
			}'.($::RD_NO_TRACE?'':'
			Parse::RecDescent::_trace(q{<<Didn\'t match term <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32462	32552	
==>||"").$text;
			}'.($::RD_NO_TRACE?'':'
			Parse::RecDescent::_trace(q{<<Didn\'t match term <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185608	185994	
==>"i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 221,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6635	6769	
==>te $act.\n";

					$$errstatus
				and	do {
					--$$errstatus;

#DBG>					$debug & 0x10
#DBG>				and	$dbgerror
#DBG>				and	$$ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6328	6454	
==>te $act.\n";

					$$errstatus
				and	do {
					--$$errstatus;

#DBG>					$debug & 0x10
#DBG>				and	$dbgerror
#DBG>				and	$$ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	3173	3268	
==>array, $textref, "Not a delimited pattern", 0)
		unless $$textref =~ m/\G($pre)($pat)/gc;
	my $p <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6662	6747	
==>LOOP
POST_BRANCH_switch_${CURIC}_LOOP_EXIT:

POST_BRANCH_NOT_switch_${CURIC}:
PIR
	ret <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4600	4685	
==>LOOP
POST_BRANCH_switch_${CURIC}_LOOP_EXIT:

POST_BRANCH_NOT_switch_${CURIC}:
PIR
	ret <==
3	/Users/nnunley/parrot/config/init/miniparrot.pm	949	1102	
==>set(
        miniparrot         => 1,
        DEVEL              => $conf->data->get('DEVEL') . '-miniparrot',
        TEMP_cg_h          => '',
        T <==
3	/Users/nnunley/parrot/config/auto/alignptrs.pm	1327	1490	
==>try_align);
            if ($results =~ /OK/ && $results !~ /align/i) {
                $align = $try_align;
            }
        }
        cc_clean();

        di <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1425	1536	
==>e, $arg_token->line );
    $self->set_symbol($arg_name, $sym);
  }

  return $self;
}


#
# ACCESSORS:
#

sub ty <==
3	/Users/nnunley/parrot/lib/Test/More.pm	15895	15988	
==>each individual
statement.

B<NOTE> The exact formatting of the diagnostic output is still
cha <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194038	194461	
==>=> [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 230,
                  "ARGS" => [
                              "p",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#li <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	7946	8068	
==>n = shift;
    my $tagname = $token->tagname;
    
    if ( $tagname =~ m/^over-(.+)$/s ) 
    {
        push @{$self->{STA <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6574	6683	
==>f, $n) = @_;
    return qq!set <rx_match>["$n";1], -2 # delete group $n!;
}

sub output_atend {
    my ($self, <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21290	21396	
==>]);
  $self->_add_inst(''           ,'eq'    ,[$temp,0,"DONE_$label"]);
  $self->_restore($temp);
  $self-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79030	79131	
==>LL : PMC_data({{\@2}}), name);\n  string_cstring_free(name);\n  if (p == NULL) {\n      const char * c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80551	80652	
==>LL : PMC_data({{\@2}}), name);\n  string_cstring_free(name);\n  if (p == NULL) {\n      const char * c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600297	600528	
==>exist\", name);\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601373	601604	
==>exist\", name);\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	11245	11346	
==>the { }

    my (@methods, %meth_hash, $class_init);

    while ($classblock =~ s/($signature_re)//) { <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	29977	30074	
==>ucceed if the <H1> tag is on the current line, since
. normally doesn't match newlines.

To overco <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106312	1106404	
==>terpreter, NULL, E_ValueError,\n\t\t\"type number out of range\");\n    {{\@1}} = interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107288	1107380	
==>terpreter, NULL, E_ValueError,\n\t\t\"type number out of range\");\n    {{\@1}} = interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093662	1093886	
==>morph(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094465	1094689	
==>morph(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	5335	5429	
==>$i=1;
	for my $jumps (@onlab) {
		push @{$code{$seg}->{code}}, "\tne $result, $i.0, ON_${ons}_$ <==
3	/Users/nnunley/parrot/config/auto/jit.pm	3452	3603	
==>off$(O)'
        );

        if (   ($jitcpuarch eq 'i386')
            || ($jitcpuarch eq 'ppc')
            || ($jitcpuarch eq 'arm')) {
            $ <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3020	3144	
==>ldflags => 'libparrot$(A)');
        }

        # 'link' needs to be link.exe, not cl.exe.
        # This makes 'link' and 'l <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	5088	5183	
==>edme();
	}
	push @{$code{$seg}->{code}},<<ON;
@code	lt $result, 0.0, ONERR_${ons}
	gt $result, 2 <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	56523	56616	
==>ted,
curly bracketed, and anything else. The delimited and bracketed
parts are also blessed to <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38467	38644	
==>XT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39331	39508	
==>XT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	2459	2560	
==>static, and prefix it with C<S_>, but still do have a prototype
for it).

=head2 Data is not an API

C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243940	244030	
==>s\"\n  STRING* l = VTABLE_get_string(interpreter, {{\@2}});\n  {{\@1}} = string_compare(int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244872	244962	
==>s\"\n  STRING* l = VTABLE_get_string(interpreter, {{\@2}});\n  {{\@1}} = string_compare(int <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	11031	11174	
==>@_;

    if ($$flag eq '0')
    {
        $$flag = $value;
    }
    else
    {
        $$flag .= "|$value";
    }
}

=item C<make_op($code,
$ty <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	5594	5701	
==>CONTAINS_POD};
}

=item C<num_pod_errors()>

Tells you the number of POD errors in the file.

=cut

sub num_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11641	11725	
==>on10 pod-C;}
{\s20\ql \li0\ri0\sa180\widctlpar\f1\fs%s\lang1024\noproof\sbasedon0 \sn <==
3	/Users/nnunley/parrot/tools/dev/cc_flags.pl	646	827	
==><config/gen/cflags/root.in>.

=cut

################################################################################

use strict;

my $cflags = shift;

open F, $cflags or die "open $ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6555	6691	
==>sub\n\n);
    }

    # End of the pir code
    $pirCode .= qq(
            match = rulesub(target)

            unless match goto match_f <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	9198	9304	
==>f {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  my $cond = $self->_generate(_ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18910	19003	
==>e', [$temp_0,$temp_1,"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('', <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19399	19491	
==>e',[$temp_0,$temp_1,"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('', <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19887	19979	
==>e',[$temp_0,$temp_1,"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('', <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	15453	15556	
==>href, $text)>

Returns an HTML anchor with the specified "href".

=cut

sub html_link
{
    my $self = s <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	10938	11058	
==>t, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # undef only matche <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	11356	11476	
==>t, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # undef only matche <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565023	565278	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "can",
                  "FLAGS" => ":object_base",
                  "ARGD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565915	566170	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "can",
                  "FLAGS" => ":object_base",
                  "ARGD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	316325	316517	
==>exception(1, \"Overflow exception for conv_u1_ovf\");\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51851	52086	
==>OT_ALL_TRACE_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_EN <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52634	52853	
==>OT_ALL_TRACE_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1794	2062	
==>apsed time:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 = $N1 / $N2;              # div    N1, N1, N2
$N2 = 1000000.0;              # set    N <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	1794	2062	
==>apsed time:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 = $N1 / $N2;              # div    N1, N1, N2
$N2 = 1000000.0;              # set    N <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365024	365263	
==>unction",
                  "CODE" => 427,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 303 \"src/ops/io.ops\"\n  if ({{ <==
3	/Users/nnunley/parrot/config/auto/signal.pm	1241	1352	
==>'define');
        print " (sigaction)" if $verbose;
    }
    cc_clean();

    cc_gen('config/auto/signal/test_ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22536	22640	
==>') .'
		$_tok = do { ' . $self->{"code"} . ' };'.($::RD_NO_TRACE?'':'
		if (defined($_tok))
		{
			Parse: <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27736	27861	
==>od, 1);
    }
    # class init decl
    if ($self->{flags}->{dynpmc}) {
        $hout .= 'PARROT_DYNEXT_EXPORT ';
    }
    $h <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	4217	4343	
==>-f $Obj;

my %ParrotAPI;

$| = 1;

my @H = qw(include/parrot/embed.h include/parrot/extend.h);

for my $h (@H) {
    if (open(H <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826595	826686	
==>");\n  if (entry->entry_type != STACK_ENTRY_FLOAT) {\n    internal_exception(ERROR_BAD_STACK <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827665	827756	
==>");\n  if (entry->entry_type != STACK_ENTRY_FLOAT) {\n    internal_exception(ERROR_BAD_STACK <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	2253	2356	
==>conf->data->set('ccflags',   $ccflags);
        $conf->data->set('linkflags', $linkflags);
        print <==
3	/Users/nnunley/parrot/config/auto/readline.pm	2053	2156	
==>conf->data->set('ccflags',   $ccflags);
        $conf->data->set('linkflags', $linkflags);
        print <==
3	/Users/nnunley/parrot/config/inter/libparrot.pm	734	835	
==>ared = $conf->options->get('parrot_is_shared');

    $parrot_is_shared =
        integrate($conf->d <==
3	/Users/nnunley/parrot/lib/Test/More.pm	18331	18450	
==>ft;

    my $pack = caller;

    # Try to deterine if we've been given a module name or file.
    # Module names must be <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	1870	1980	
==>>{rxlocals} }, $var;
    return $var;
}

sub op_save_rxlocals {
    my ($self, $op) = @_;
    if ($op->{non_ree <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	23768	23875	
==>="";
	       pos $$textref = $firstpos };
	return $fields[0];
}


sub gen_extract_tagged # ($opentag, $close <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27785	27895	
==>to fix up the stack type array.
		for (1..$rule->{'pop'}) {
			$pir .= "    type_trans = pop stypes\n";
		}
		f <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2506	2601	
==>t code matches the C<$expected>
parameter.  Note that C<$expected> is a I<Perl 5> pattern.

=cut <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3940	4035	
==>t code matches the C<$expected>
parameter.  Note that C<$expected> is a I<Perl 5> pattern.

=cut <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	537	657	
==>suffix
{
    return "_cg";
}

=item C<core_prefix()>

The core prefix is C<'cg_'>.

=cut

sub core_prefix
{
    return "c <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	12207	12311	
==>e stack types array.
	stypes = new ResizablePMCArray

    # Instantiate a bytecode escaper.
    escaper = <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	2407	2504	
==><x> is the direction of argument C<< $args->[I<x>]
>>.

C<$labels> is a reference to an array of b <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	14352	14464	
==>}
			push @work, [ "($op1->[0] $sym $op2->[0])", "RESULT", "\$$optype$retcount" ];
			$retcount++;
		}
	}

	if (@ <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9800	9897	
==>being the very first module written for Pugs.

It provides a simple set of common test utility fun <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5658	5751	
==>If C<$path> cannot be found then a warning is printed.

=cut

sub file_paths_relative_to_sourc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064941	1065144	
==>" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 260 \"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149038	149204	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 105 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(inter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149979	150145	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 105 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(inter <==
3	/Users/nnunley/parrot/config/auto/pack.pm	1536	1663	
==>nfigure.pl:  Unable to find a functional packtype for $_.
               '$format' failed: $@
AARGH
        }
        if ($test) <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	8626	8725	
==>as_typeinfo && ($rule->{'class'} eq 'op' ||
	         $rule->{'class'} eq 'load' || $rule->{'class'} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	260	358	
==>8089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expression::Suffix;

us <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113899	114172	
==>{{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114638	114911	
==>{{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447825	448058	
==>L){{\@2}};\n  }\n  else {\n    {{\@1}} = (INTVAL){{\@2}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8216	8324	
==>e2character{$name} = $FAR_CHAR;
      # substitute for Unicode characters, for perls
      #  that can't reli <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	3538	3634	
==>2CC) src/pmc/$pmc.pmc

src/pmc/$pmc.dump : vtable.dump $parent_dumps lib/Parrot/Pmc2c.pm \\
		src <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031513	1031623	
==>\n        {{\@1}} = -1;\n    else\n        {{\@1}} = data_types[{{\@2}} - enum_first_type].size;\n  {{+=3}};\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032382	1032492	
==>\n        {{\@1}} = -1;\n    else\n        {{\@1}} = data_types[{{\@2}} - enum_first_type].size;\n  {{+=3}};\n" <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	6329	6436	
==>>suffix} = 1;
    }
    
    return sort keys %suffixes;
}

=item C<files_with_suffix($suffix, $recursive, $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797703	797963	
==>E" => 900,
                  "ARGS" => [
                              "p",
                              "kc",
                              "n"
                            ],
                  "BODY" => "#line 462 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	26389	26486	
==>)>

Generates the C implementation file code for the PMC. C<$out_name> is the name
of the output f <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2772	2863	
==>ir_output_like;
}

=item C<pgeglob_is($target, $pattern, $description, @todo)>

Runs the tar <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33685	33821	
==>ntent into $over_type item\n";
              push @$para, splice @{shift @$paras},2;
            } else {
              DEBUG and print " <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35498	35634	
==>ntent into $over_type item\n";
              push @$para, splice @{shift @$paras},2;
            } else {
              DEBUG and print " <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	6344	6444	
==>CODE
	},
	'^' => "POW",	
);
%opsubs=(%opsubs, 
	'<=' => sub { &{$opsubs{"="}}(@_[0..2], "le") },
	'>= <==
3	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1296	1408	
==>code);

package AssignOp;
use base qw(Lua::opcode);

package KeyedGetOp;
use base qw(Lua::opcode);

packa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822079	822190	
==>,
                  "BODY" => "#line 120 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823147	823258	
==>,
                  "BODY" => "#line 120 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	11648	11852	
==>nit = {
                meth        => $methodname,
                body        => $methodblock,
                line        => $lineno,
                type        => $type,
                parameters  => <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	22275	22373	
==>$_->[0]'
	P2["type"]= "USER"
	P5= P6		# Remember where we were...
	P4= P6["storage"]
	P6= P4["$_->[ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12855	12959	
==>t::_hint("A production consisting of a single
					  conditional <error?> directive would 
					  normall <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5025	5122	
==>pos]");
    my $fail = $self->output_label_use($failLabel);
    my $pass = $self->output_label_use <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4700	4797	
==>pos]");
    my $fail = $self->output_label_use($failLabel);
    my $pass = $self->output_label_use <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1660	1770	
==>p->{result}->{symbol} = $op->{op} $op->{arg1}->{symbol}\n";
    }

    sub visitBinaryOp {
        my $self <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	4249	4357	
==>test (t/film.t at line 14)
    ok 5 - NumExplodingSheep() get
    # Looks like you failed 1 tests of 5

Indic <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	22876	23001	
==>ck[-1];
    print <<EOC;
    # tuple $tupl->[1] n = $tupl->[0]
EOC
    $n = $tupl->[0];
    UNPACK_SEQUENCE($n, '', "\t\t #unp <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3010	3111	
==>art_address
{
    my ($self, $addr) = @_;

    return "interpreter->resume_offset = $addr; interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3879	3980	
==>art_address
{
    my ($self, $addr) = @_;

    return "interpreter->resume_offset = $addr; interpreter <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	18192	18335	
==>t_line'}, '~really' => '=for'},
          $target,
        ],
      ;
      
      next;
      
    } elsif($para_type eq '=begin') { #///////// <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822417	822530	
==>"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_int(entry->entry);\n  {{+=3}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823485	823598	
==>"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_int(entry->entry);\n  {{+=3}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	61994	62107	
==>a->{srcname};
    $filename =~ s/\.lua$/\.pir/i;
    open my $FH, '>', $filename
        or die "can't open $fi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642235	642323	
==>"BODY" => "#line 194 \"src/ops/pmc.ops\"\n  {{\@1}} = {{\@2}}->vtable->type_keyed(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643123	643211	
==>"BODY" => "#line 194 \"src/ops/pmc.ops\"\n  {{\@1}} = {{\@2}}->vtable->type_keyed(interpr <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27218	27321	
==>any.
        $pir .= sub_meta($pre_translate_code, $mv, "pre-translate for $rule->{'name'}");

		# If we <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34357	34460	
==>any.
        $pir .= sub_meta($pre_translate_code, $mv, "pre-translate for $rule->{'name'}");

		# If we <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210149	210291	
==>"
                            ],
                  "BODY" => "#line 408 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211129	211271	
==>"
                            ],
                  "BODY" => "#line 408 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}-> <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10961	11068	
==>h'};
  return print $fh join '',
    $self->doc_init,
    $self->font_table,
    $self->stylesheet,
    $sel <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527100	527392	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ": <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527853	528145	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ": <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	12469	12580	
==>? $_[3] : $ldel_inner;
	my $rd         = $_[4];
	my $rdel_inner = $ldel_inner;
	my $rdel_outer = $ldel_outer;
	m <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	36926	37078	
==>etty(@ell_content);
          last;
        }
      }
      
      
      # Now look for the "/" -- only in CHILDREN (not all underlings!)
      # And af <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2554	2664	
==>);
    return "goto " . $self->output_label_use($dest) . " if $val1 $test $val2;";
}

sub output_eq {
    my ($ <==
3	/Users/nnunley/parrot/config/auto/gc.pm	500	592	
==>malloc in F<src/res_lea.c>.

=item C<malloc-trace>

Use the malloc in F<src/res_lea.c> with t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	3335	3493	
==>* force this being a branch op */\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	3886	4044	
==>* force this being a branch op */\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	36472	36589	
==>e_p,
  'char>=?'          => \&_op_char_ge_p,
  'char-ci=?'        => \&_op_char_eq_p,
  'char-ci<?'        => \&_op_c <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3233	3341	
==>{\t\tfind_global _GLOBALS, "COMMON"\n};
		foreach(@saves) {
			print CODE qq{\t_GLOBALS["$_"]=$_\n};
		}
		pr <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	94	193	
==>6-05-30T13:40:58.862833Z coke  $

=head1 NAME

Parrot::IO::Path - Path

=head1 DESCRIPTION

C<Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	652035	652410	
==>S" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 729,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	533254	533475	
==>"CODE" => 616,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 890 \"src/ops/math.ops\"\n  {{\@1}} = log( <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	25044	25166	
==>ut =  "    \${I_ARG_$arg_num} = bc.read_tmethod()\n    next_pc += 4\n";
			$arg_name = "I_ARG_$arg_num";
		}

        # tty <==
3	/Users/nnunley/parrot/tools/dev/cc_flags.pl	1588	1692	
==>($cfile) = grep /\.c$/, @ARGV;

my ($inject_point, $where);

foreach (@ARGV) {
  last if $_ eq '';
  ++$w <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	871	960	
==>ine CUR_OPCODE cur_opcode
#define IREG(i) REG_INT(cur_opcode[i])
#define NREG(i) REG_NUM(c <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	987	1076	
==>ine CUR_OPCODE cur_opcode
#define IREG(i) REG_INT(cur_opcode[i])
#define NREG(i) REG_NUM(c <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	823	917	
==>f they match.  Note that patterns should be specified as strings
and without leading/trailing p <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2921	3015	
==>f they match.  Note that patterns should be specified as strings
and without leading/trailing p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668720	669085	
==>" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 748,
                  "ARGS" => [
                              "p",
                              "n"
                            ],
                  "BODY" => "#line 410 \"src/ops/ <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3441	3551	
==>y =~ s/^(\s*)([^\n]+)\s*\Z/$1puts [$2]/m;

        $tests{$name} = [$expl, $body, $out];
    }

    return %tes <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4848	4958	
==>y =~ s/^(\s*)([^\n]+)\s*\Z/$1puts [$2]/m;

        $tests{$name} = [$expl, $body, $out];
    }

    return %tes <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	97521	97779	
==>=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnot",
                  "FLAGS" => ": <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	98920	99178	
==>=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnot",
                  "FLAGS" => ": <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16476	16620	
==>LookupU($idf);
            if ( defined $defn ) {
                $result = new_tmp( $parser, 'pmc' );
                push @opcodes, new Loca <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	9115	9239	
==>ath.h
copysignf   math.h
copysignl   math.h
cos         math.h
cosf        math.h
cosh        math.h
coshf       math.h
coshl <==
3	/Users/nnunley/parrot/config/auto/gc.pm	536	631	
==><malloc-trace>

Use the malloc in F<src/res_lea.c> with tracing enabled.

=back

=cut

package a <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	132	224	
==>NAME

Parrot::Test - testing routines for Parrot and language implementations

=head1 SYNOPSI <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	317	419	
==>:Test.
Perhaps someone can do a better job of delegation here.

Note: this current verion is based on P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206485	206577	
==>{\@1}}->vtable->get_integer(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207427	207519	
==>{\@1}}->vtable->get_integer(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641068	641425	
==>[
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 716,
                  "ARGS" => [
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 189 \"src/o <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2395	2503	
==>e;
  }
  else {
    $right_type = $right->type;
  }

  $self->INTERNAL_ERROR("No type for dest!")  unless def <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2317	2425	
==>e;
  }
  else {
    $right_type = $right->type;
  }

  $self->INTERNAL_ERROR("No type for dest!")  unless def <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677612	677836	
==>able->unshift_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678390	678614	
==>able->unshift_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	19622	19729	
==>(
	'==' => 'eq',
	'!=' => 'ne',
	'>' => 'gt',
	'>=' => 'ge',
	'<' => 'lt',
	'<=' => 'le',
	'is' => 'eq_addr' <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	440	538	
==>n = 'Generating runtime/parrot/include';

my @files = qw(
    include/parrot/cclass.h
    include/p <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	178	273	
==>mper;
use File::Basename;

use Parrot::Test;

=head1 NAME

Parrot::Test::HQ9plus - Testing routi <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	1412	1502	
==>t>libnameE<gt>.h. The initialization function will be named
after libname and will initiali <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936373	936644	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "titlecase",
                  "FLAGS" => ":bas <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937150	937421	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "titlecase",
                  "FLAGS" => ":bas <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	34994	35119	
==>like your test died just after $self->{Curr_Test}.
FAIL

            _my_exit( 255 ) && return;
        }

        _my_exit( $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1076	1194	
==>ef($x || '') eq 'ARRAY') {
      $x = $class->new($x); # recurse
    } elsif(ref($x || '') eq 'HASH') {
      $x = { %$ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	1507	1595	
==>s/Directory.pm'),
		    $self->new_item('Documentation Sections', 'lib/Parrot/Docs/Sectio <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	1263	1388	
==>ta->add(' ', cflags    => '-I/sw/include');
        }
    }

    cc_gen('config/auto/gdbm/gdbm.in');
    if ($^O =~ /mswin32/i <==
3	/Users/nnunley/parrot/config/inter/progs.pm	234	325	
==>er, linker, shared library builder, C libraries,
lexical analyzer generator and parser gener <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15479	15585	
==>sh @opcodes, @{ $nil->[1] };
    $result = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $p <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19232	19338	
==>sh @opcodes, @{ $nil->[1] };
    $result = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $p <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	4480	4584	
==>pt(T|...)
        my $leftovers = $self->pass1(rop('alternate', \@children), $ctx);
        @{ $t->{args} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	251085	251397	
==>re",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 292,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 703 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	894	994	
==>ssion::Value');
  confess "Op is not scalar!" if ref $op;
  confess "Right is not Value!" unless UNIV <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	906	1006	
==>ssion::Value');
  confess "Op is not scalar!" if ref $op;
  confess "Right is not Value!" unless UNIV <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8613	8773	
==>$out, $_);
                print <$out>;
                close $out;
            }
        }
    }

    return $exit_code;
}

=item C<cc_gen($source)>

Generates <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	26841	26972	
==>rn,
		"ldelim"      => $ldel,
		"rdelim"      => $rdel,
		"mod"         => $mod,
		"lookahead"   => $_[4],
		"line"        => $_[5], <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	11561	11674	
==>APLVector, APLVector) # without
    .param pmc op1
    .param pmc op2

    .local pmc result
    result = new 'APL <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	8950	9054	
==>erator that means
		# "Push the top of the stack onto the function's call stack"
		# No-arg funcs are sim <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	18579	18679	
==>VERSION} =~ m/^(\d+)\./;

    return $1;
}

=item C<minor_version()>

Returns the minor version numbe <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609397	609664	
==>str(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610305	610572	
==>str(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/config/gen/platform.pm	2821	2931	
==>finally append generated
    @headers = grep { /\.h$/ } split(',', $generated);
    for (@headers) {
        if <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	37499	37688	
==>pcode_t *)throw_exception(interpreter, {{\@1}}, ret);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/config/gen/config_pm.pm	1096	1215	
==>a->dump()/e;
	    s/(\$\(([A-Za-z_]+)\))/$data->get(lc $2) || $1/eg;
	}
        print OUT;
    }

    close IN  or die " <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8509	8609	
==>ype[CURR] eq 'COMM') {
		push @{$code{$seg}->{code}}, "\t# $syms[CURR]\n";
		goto PARSE;
	}
	if ($typ <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	1293	1415	
==>sw/include');
        }
    }

    cc_gen('config/auto/gdbm/gdbm.in');
    if ($^O =~ /mswin32/i) {
        if ($cc =~ /^gc <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	30539	30648	
==>0;
}

=item B<caller>

    my $package = $Test->caller;
    my($pack, $file, $line) = $Test->caller;
    my($p <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3503	3595	
==>KIP '# generated by tools/dev/mk_manifest_and_skip.pl ', scalar( localtime() ), "\n";
print $ <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	21971	22105	
==>0] $_->[1] $_->[2]\n";
    }
}


sub ret_val {
    my $a = shift;
    my %rets = (
	'id'       => 'I',
    );
    return $rets{$a} if d <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9818	9922	
==>e->new($block, $self->require_value);
      my $op    = $self->require_infix_rel->text;
      my $right = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25354	25458	
==>e->new($block, $self->require_value);
      my $op    = $self->require_infix_rel->text;
      my $right = <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2646	2768	
==>_func = $language_test_map{$func};

        # That's the reason for:   no strict 'refs';
        my $pass = $self->{buil <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2176	2294	
==>_func = $language_test_map{$func};
        # That's the reason for:   no strict 'refs';
        my $pass = $self->{buil <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2715	2833	
==>_func = $language_test_map{$func};
        # That's the reason for:   no strict 'refs';
        my $pass = $self->{buil <==
3	/Users/nnunley/parrot/config/init/hints.pm	574	685	
==>onf) = @_;

    my $verbose = $conf->options->get('verbose');

    my $hints_used = 0;

    my $hints = "init::h <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4183	4284	
==>GROUP.so
    while (my ($group, $pmcs) = each %$group_files) {
        partial_link($group, $group_lib <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4287	4388	
==>GROUP.so
    while (my ($group, $pmcs) = each %$group_files) {
        partial_link($group, $group_lib <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	8311	8455	
==>_f; vars=$vars\n";
		}
	    }
	    else {
		$in_info = 0;
	    }
	}
	else {
	    next if /^\s*$/;
	    decode_line($_);
	}
    }
    while ($code <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	12891	13033	
==>t).\n",
            "\n  Dropping back to seeking-head1-content mode...\n";
        }
      }
    }
    
    elsif($state == 2) {
      # seeki <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14026	14165	
==>te 21
		ACTIONS => {
			"," => 66,
			'IN' => 67
		}
	},
	{#State 22
		DEFAULT => -5
	},
	{#State 23
		DEFAULT => -3
	},
	{#Stat <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24625	24740	
==>$temp;
    }
  } else {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $t <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26524	26639	
==>$temp;
    }
  } else {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $t <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2229	2334	
==>ath($self->path);
    }
    
    return -d $self->path;
}

=item C<relative_path($directory)>

=item C<rel <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	11547	11672	
==>};
    /2/ && do {
        push @{$temps_ref}, "PMC* t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	32948	33060	
==>nding.
    # Exit if plan() was never called.  This is so "require Test::Simple" 
    # doesn't puke.
    if( ($s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822348	822438	
==>!= STACK_ENTRY_INT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823416	823506	
==>!= STACK_ENTRY_INT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\ <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	4233	4340	
==>/>
          <RegExpr attribute="Comment" context="#stay" String="[^\=]*" />
          <RegExpr attribute="C <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	6362	6467	
==>variables at the end of the file
	    if(!$comment_is_at_beginning && /c-indentation-style/);
    }

    $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1865	1960	
==>er -e \
     "print Dumper(Pod::Simple::SimpleTree->new->parse_file(shift)->root)" \
     ptest. <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4771	4871	
==>egister.
	if (!$dest_reg) {
		$pir .= <<'PIR'
# Get type.
${ITEMP0} = elements ${STYPES}
dec ${ITEMP0 <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3565	3665	
==>nst> -- for the latter, remember that you need two consts:

  const char* const foo[] = { "foo", "bar <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16411	16521	
==>END
 ' CLS
FOR I = 1 TO 4
   PRINT A$(I)
NEXT I
END

' Do/While/Loop stuff.  All 5
a=0
do while a<5
	a=a+1
loop <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	60828	60928	
==>head,$line);
			$prod and $prod->additem($item)
			      or  _no_rule("interpolated literal terminal" <==
3	/Users/nnunley/parrot/tools/dev/gen_class.pl	1536	1667	
==>op/) {
		# default.pmc handles these
		next;
	}

	print "    $retval $methname ($args) {\n";
	if($retval ne 'void') {
		print <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2786	2890	
==>ne should be skipped"
Label1:
   PRINT "5 back in module-level code"
   END
Sub1:
   PRINT "2 in subrouti <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16753	16857	
==>ne should be skipped"
Label1:
   PRINT "5 back in module-level code"
   END
Sub1:
   PRINT "2 in subrouti <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	282269	282551	
==>/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283114	283396	
==>/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283959	284241	
==>/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	26353	26460	
==>\$/g;
	$desc =~ s/}/\\}/g;
	$desc =~ s/{/\\{/g;

	if (!eval "no strict;
		   local \$SIG{__WARN__} = sub {0} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	598	699	
==>undef}{ $_[1] };
  } elsif(@_ > 2) {  # Writing: $token->attr('attrname', 'newval')
    ${$_[0][2] ||= <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	37833	37929	
==>string'     => \&_op_substring,
  'string-append' => \&_op_string_append,
  'string->list'  => \& <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25598	25696	
==>eturn,$temp,$return]);
    $self->_restore($temp);
  } else {
    $return = $self->_generate($node- <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27496	27594	
==>eturn,$temp,$return]);
    $self->_restore($temp);
  } else {
    $return = $self->_generate($node- <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	1082	1174	
==>dex_path, @contents)>

Returns a new section.

C<$name> and C<$index_path> are required, thou <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	898	995	
==>, Attributes => { kind => $self->kind } });
  $_->sax($handler) foreach $self->content;
  $handler <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1911	2008	
==>, Attributes => { kind => $self->kind } });
  $_->sax($handler) foreach $self->content;
  $handler <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2705	2802	
==>, Attributes => { kind => $self->kind } });
  $_->sax($handler) foreach $self->content;
  $handler <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5460	5566	
==>d_inst ('', 'set', [$pair.'[0]',$item]);
      $self->_add_inst ('', 'set', [$pair.'[1]',$return]);
      $ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17011	17111	
==>d_inst ('', 'set',[$pair.'[0]',$item]);
    $self->_add_inst ('', 'set',[$pair.'[1]',$return]);
    $ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6500	6596	
==>d_inst('', 'set', [$pair.'[0]',$item]);
  $self->_add_inst('', 'set', [$pair.'[1]',$return]);
  $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650588	650690	
==>\"src/ops/pmc.ops\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtable_max)\n        {{\@1}} = 1;\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651510	651612	
==>\"src/ops/pmc.ops\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtable_max)\n        {{\@1}} = 1;\ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27485	27583	
==>','div',[$return,$temp,$return]);
    $self->_restore($temp);
  } else {
    $return = $self->_gene <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	2406	2535	
==>) or 
        die 'Failed to open ' . $self->path . ": $!";
    
    print $fh @_;
    
    $fh->close;
}

=item C<is_executable() <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	585	684	
==>est('.out',$count);
    my $parrotdir = dirname $self->{parrot};

    my $args = $ENV{TEST_PROG_ARGS <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	622	721	
==>est('.out',$count);
    my $parrotdir = dirname $self->{parrot};

    my $args = $ENV{TEST_PROG_ARGS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677504	677640	
==>"
                            ],
                  "BODY" => "#line 478 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_float(interpret <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678282	678418	
==>"
                            ],
                  "BODY" => "#line 478 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_float(interpret <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1294	1396	
==>e is an instance of the class returned by C<file_class>.

=cut

sub file_with_path
{
    my $self = shi <==
3	/Users/nnunley/parrot/Configure.pl	213	305	
==>perl Configure.pl [options]

=head1 DESCRIPTION

This is Parrot's configuration script. It sh <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	10932	11022	
==>c_names' => 'Null Env Key Random UnManagedStruct ManagedStruct delegate CSub Compiler Excep <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	1843	1941	
==>tor->gen_h($h_name);
    print $hout if $opt->{debug};
    print "Writing $h_name\n" if $opt->{verb <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6825	6912	
==>rg>

=head1 SEE ALSO

F<docs/configuration.pod>, L<Parrot::Configure>, L<Parrot::Configu <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	2112	2199	
==>rg>

=head1 SEE ALSO

F<docs/configuration.pod>, L<Parrot::Configure>, L<Parrot::Configu <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22350	22443	
==>sym();

  my $temp_0 = $self->_generate($node->{children}[1]);
  $return = $self->_constant(1) <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22851	22944	
==>sym();

  my $temp_0 = $self->_generate($node->{children}[1]);
  $return = $self->_constant(1) <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	2232	2325	
==>le above, foo.pir would be selected over foo.pasm

=head1 AUTHOR

Joshua Gatcomb, C<Limbic_Reg <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7138	7250	
==>RAY' ? join('|', @{$options{reject}})
		    : defined($options{reject})	       ? $options{reject}
		    :					 '' <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24140	24252	
==>RAY' ? join('|', @{$options{reject}})
		    : defined($options{reject})	       ? $options{reject}
		    :					 '' <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1747	1849	
==>, $pattern)
    );

    goto &Parrot::Test::pir_output_is;
}

=item C<p6rule_isnt($target, $pattern, $d <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	690478	690711	
==>= Parrot_freeze(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	43516	43632	
==>ildren}) {
    for(@{$node->{children}}) {
      prettyprint($_,$depth+1);
    }
  }
  print ' ' x $depth; print ")\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242036	242129	
==>/cmp.ops\"\n  FLOATVAL l = VTABLE_get_number(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242985	243078	
==>/cmp.ops\"\n  FLOATVAL l = VTABLE_get_number(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeDumb.pm	510	609	
==>smart {0}

sub all_encodings {
  return sort keys %Supported;
}

sub encoding_is_available {
  retur <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196401	196487	
==>src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_NUMCMP) < <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213135	213221	
==>src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_NUMCMP) < <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883523	883726	
==>",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!des <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884629	884832	
==>",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!des <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1046	1179	
==>,
    ARGS   => $args,

    DEBUG  => 1,
    FILE   => $ident->file,
    LINE   => $ident->line,
  }, $class;

  #
  # Check for a few <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	37809	38139	
==>",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 48,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" = <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	409	498	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_element_start {
  # ($self, $element <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	408	497	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_element_start {
  # ($self, $element <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494325	494441	
==>=> "#line 590 \"src/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495193	495309	
==>=> "#line 590 \"src/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496061	496177	
==>=> "#line 590 \"src/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53372	53562	
==>LEAR(interpreter, PARROT_GC_DEBUG_FLAG); }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54128	54318	
==>LEAR(interpreter, PARROT_GC_DEBUG_FLAG); }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276223	276523	
==>(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277101	277401	
==>(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277979	278279	
==>(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	6586	6708	
==>_GUARD

typedef enum {
END_C

for(@{$real_ops->{OPS}}) {
    my $opname = $_->full_name;
    my $n = $_->{CODE};
    my $co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688133	688221	
==>rc/ops/pmc.ops\"\n   {{\@1}}->vtable->delprop(interpreter, {{\@1}}, {{\@2}});\n   {{+=3}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688905	688993	
==>rc/ops/pmc.ops\"\n   {{\@1}}->vtable->delprop(interpreter, {{\@1}}, {{\@2}});\n   {{+=3}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353730	353952	
==>O_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354475	354697	
==>O_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355242	355464	
==>O_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215742	215993	
==>DE" => 253,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 455 \"src/ops/cmp.ops\"\n  if ({{\@1}} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	2372	2492	
==>pile($compiler, $options );

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	2362	2458	
==>ues.

Finally, the .c and .h files are generated. The appropriate base class
header files are inc <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	554	646	
==>IVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Dest (" . ref($dest) . ") is not I <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	545	637	
==>IVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Dest (" . ref($dest) . ") is not I <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	434	526	
==>IVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Dest (" . ref($dest) . ") is not I <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	7725	7859	
==>, "< $file" or die "Can't open $file, error $!";
    while (<OP>) {
        push @lines, $_ if $fix;
        chomp;
        $fix = 0 if <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	15905	16010	
==>tely here
    $cout .= $self->line_directive(2 + $line + count_newlines($cout),
				   $out_name);
    $co <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3581	3670	
==>thods.

=head1 SEE ALSO

L<Pod::Simple>, L<Pod::Simple::TextContent>, L<Pod::Text>

=head1 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8006	8126	
==>ub output_popindex {
    my $self = shift;

    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('po <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7659	7779	
==>ub output_popindex {
    my $self = shift;

    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('po <==
3	/Users/nnunley/parrot/config/init/defaults.pm	6046	6158	
==>PATCH   => $main::parrot_version[2],
        DEVEL   => (-e 'DEVELOPING' ? '-devel' : ''),

        configdate => <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	13144	13241	
==>st is broken because something is not implemented yet. So
in order to still allow that to be teste <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2693	2781	
==>ent##rtfitemkeepn#\\sb60\\sa150\\fi-120\n",
 '/item-bullet' => "\n\\par}\n",
 'item-numbe <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1428	1526	
==>You're unlikely to ever need to construct an object of this class for
yourself, but if you want to, <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2580	2678	
==>You're unlikely to ever need to construct an object of this class for
yourself, but if you want to, <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1717	1815	
==>You're unlikely to ever need to construct an object of this class for
yourself, but if you want to, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705256	705606	
==>tfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 791,
                  "AR <==
3	/Users/nnunley/parrot/config/auto/aio.pm	574	675	
==>tions->get('verbose');
    my $libs    = $conf->data->get('libs');
    $conf->data->add(' ', libs => ' <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	49424	49521	
==>ts) indicates that the
value of the second argument is to be used for the outermost delimiters.

O <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292336	292613	
==>",
                  "CODE" => 340,
                  "ARGS" => [
                              "i",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 940 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621736	621825	
==>LAGS(ccont) & SUB_FLAG_TAILCALL) {\n\t    PObj_get_FLAGS(ccont) &= ~SUB_FLAG_TAILCALL;\n\t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29576	29661	
==>LAGS(ccont) & SUB_FLAG_TAILCALL) {\n\tPObj_get_FLAGS(ccont) &= ~SUB_FLAG_TAILCALL;\n\t <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	406	526	
==>head2 new

Yet another constructor.

=cut

sub new {
    return bless {};
}

my %language_test_map = (
    out <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	17624	17735	
==>t counter' ]),
                 $self->dbprint("backtracking into dynalt's index %<$counter> match\n"),
		 aop(' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392	486	
==>arrot::Op> instances representing the Parrot ops.

=cut


use strict;

package Parrot::OpLib::c <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	16402	16507	
==>$ors)) {
		print CODE qq{\tunshift P9, "OP"\n};
		print CODE qq{\tunshift P9, "or"\n};
	}
	if ($ops) {
		p <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	1195	1298	
==>.
	
	$self = $self->SUPER::new($text, @contents);
	$self->{NAME} = $name;
	
	return $self;
}

=back

=he <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	1249	1347	
==>rom Parrot tree.
	my %config = eval {
		require "$_[0]/lib/Parrot/Config.pm";
		%Parrot::Config: <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	32862	32976	
==>'      => \&_op_begin,
  'do'         => \&_op_do,
  'delay'      => \&_op_delay,
  'quasiquote' => \&_op_quasiquot <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	9999	10106	
==>G" and not $fd and
			( $type[NEXT] eq "STMT" or $type[NEXT] eq "COMP" or $type[NEXT] eq "COMM" ) ) {
			$eo <==
3	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1429	1518	
==>_config_hash(void);  

void
Parrot_set_config_hash_internal (const unsigned char* parrot_c <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1325	1428	
==>ation hook.
sub pre_translation() {
	# We need a stack depth and a string for label gen and some
	# stor <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	412	515	
==>ation hook.
sub pre_translation() {
	# We need a stack depth and a string for label gen and some
	# stor <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	310	413	
==>ok;

    $Test->exported_to($caller);
    $Test->plan(@_);
}


=head1 NAME

Test::Simple - Basic utiliti <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702560	702860	
==>TYPE" => "inline",
                  "CODE" => 788,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 670 \"src/ops <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	315748	315997	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "conv_u1_ovf",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TY <==
3	/Users/nnunley/parrot/config/auto/readline.pm	1175	1276	
==>check the presence of the readline header in the standard
    # Fink location. TODO: Need a more gener <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290931	291238	
==>\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291777	292084	
==>\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292623	292930	
==>\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq <==
3	/Users/nnunley/parrot/lib/Test/More.pm	30583	30715	
==>elsif( $type eq 'SCALAR' ) {
                push @Data_Stack, { type => 'REF', vals => [$e1, $e2] };
                $ok = _deep_che <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1015	1135	
==>ngth $_[1]) {
    my $indent = '  ' x $_[0]{'indent'};
    my $text = $_[1];
    _xml_escape($text);
    $text =~  # A no <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24879	24982	
==>atch[3]+$match[5]+$match[7],	# MATCH
				@match[8..9,0..1,2..7];				# REM, PRE, BITS
	};

	bless $closur <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	66521	66760	
==>S_INTERPRETER);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	4313	4436	
==>, 217,
 'Uacute'   , 218,
 'Ucirc'    , 219,
 'Uuml'     , 220,
 'Yacute'   , 221,
 'THORN'    , 222,
 'szlig'    , 223,
 'a <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	1928	2053	
==>source_file_with_name($name));
        }
    }
    
    if ( exists $contents{'headers'} )
    {
        foreach my $name (@{$ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	59049	59154	
==>a Pascal-style string (where ' is the delimiter
and '' is a literal ' within the string):

        gen_del <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	308045	308337	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "debug_init",
                  "FLAG <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	44823	44918	
==>that is, the replacement of a substitution or the translation list
of a translation),

=item [9] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483762	483883	
==>ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484761	484882	
==>ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485760	485881	
==>ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	6975	7074	
==>only for *experimental* ops
# other opcodes are just skipped
sub find_op_number {
    my ($opname, $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3359	3453	
==>=item C<access_arg($type, $num, $op)>

Returns the C code for the specified op argument type (s <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3503	3597	
==>=item C<access_arg($type, $num, $op)>

Returns the C code for the specified op argument type (s <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	889	1000	
==>->{parrot};

    $TEST_PROG_ARGS = $ENV{TEST_PROG_ARGS} || '-j -Oc';
    my $args = $TEST_PROG_ARGS;

    Parrot <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	2720	2828	
==>lf = shift;

  return $self->{BLOCKS}[shift];
}


#
# block_depth()
#
# Block depth zero is when the only blo <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	14989	15094	
==>ore) || \$thisscore>\$score)
					{ \$score=\$thisscore; \$score_return=\$item[-1]; }
			       undef;", $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263007	263429	
==>S" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 306,
                  "ARGS" => [
                              "i",
                              "p",
                              "p"
                            ],
                  "BODY" => "#li <==
3	/Users/nnunley/parrot/config/auto/jit.pm	1771	1881	
==>puarch = 'ppc';
    }

    $cpuarch =~ s/armv[34]l?/arm/i;
    $cpuarch =~ s/i[456]86/i386/i;

    $conf->data- <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	4460	4728	
==>02x', ord $_ );
                        }
                        elsif ( ord $_ >= 128 ) {
                            $str .= sprintf( '\u%04x', ord $_ );
                        }
                        elsif ( $_ eq '"' ) {
                            $str . <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3773	3888	
==>";
	if ($syms[CURR] eq ";") {
		feedme();		# Ignore this form for now.
	}
	if ($syms[CURR] eq "#") {
		feedme();
		$ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	794	883	
==>cs/gettingstarted.pod'),
			$self->new_item('', 'docs/submissions.pod'),
			$self->new_ite <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260075	260387	
==>\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260927	261239	
==>\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261779	262091	
==>\@3}};\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issame" <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	2262	2396	
==>$firstline !~ /\(/) {
	    $bad_fdecls{$fdecl} = $secondline;
        }
    }
    
    # now a little trick.  Weed out the ones we know <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4876	4979	
==>ibs) = 
        gather_groups_and_libs(@pmcs);
    my @ungrouped_pmcs = grep { ! exists $pmc_group->{$_} <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4980	5083	
==>ibs) = 
        gather_groups_and_libs(@pmcs);
    my @ungrouped_pmcs = grep { ! exists $pmc_group->{$_} <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	332	443	
==>1;
    }

    print STDOUT 'lua: ', $parser->YYData->{srcname}, ':',
        $parser->YYData->{lineno}, ': ' <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	798	909	
==>1;
    }

    print STDOUT 'lua: ', $parser->YYData->{srcname}, ':',
        $parser->YYData->{lineno}, ': ' <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1256	1367	
==>1;
    }

    print STDOUT 'lua: ', $parser->YYData->{srcname}, ':',
        $parser->YYData->{lineno}, ': ' <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	7091	7227	
==>defined $name ) 
    {
        $name =~ tr/ /_/;
        
        print {$self->{'output_fh'}} 
            qq(<a name="), esc($name), qq <==
3	/Users/nnunley/parrot/lib/Test/More.pm	37408	37501	
==>2002, 2004 by Michael G Schwern E<lt>schwern@pobox.comE<gt>.

This program is free software; y <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	6368	6461	
==>2002, 2004 by Michael G Schwern E<lt>schwern@pobox.comE<gt>.

This program is free software; y <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	20428	20552	
==>($include, "pmc_$pmcname.h", 1);

        my $fh = open_file( "<", $file );
        while (<$fh>) {
            if (/^(?:exte <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	1195	1307	
==>my $remainderpos = $_[2];
	if ($wantarray)
	{
		my @res;
		while (my ($from, $len) = splice @_, 0, 2)
		{
			push <==
3	/Users/nnunley/parrot/config/init/hints/vms.pm	50	137	
==>/parrot/config/init/hints/vms.pm 19593 2006-05-30T02:28:15.110975Z coke  $

package init <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	4090	4201	
==>t-pessimal to abort processing the file.  But now we can
          ## just barrel on thru (but still not start a <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2428	2510	
==>les/mops/mops.c>,
F<examples/mops/mops.cs>,
F<examples/mops/mops.il>,
F<examples/mo <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	2428	2510	
==>les/mops/mops.c>,
F<examples/mops/mops.cs>,
F<examples/mops/mops.il>,
F<examples/mo <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	8018	8150	
==>n";
			}
		    }
		}
		my $data = ($uninit || $init) && !$code;
		my $global = !$local;
		my $show = 1;
		sub want_show {
		    my ($ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009854	1009962	
==>/string.ops\"\n  {{\@1}} = string_compose(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010619	1010727	
==>/string.ops\"\n  {{\@1}} = string_compose(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800319	800639	
==>i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 903,
                  "ARGS" => [
                              "p",
                              "k",
                              "s"
                            ],
                  "BODY" => "#line 467 \"src/ops <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	6337	6441	
==>ed $d and length $d;
    Carp::croak "\"$d\" isn't a valid directive name"
     unless $d =~ m/^[a-zA-Z][ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	7131	7235	
==>ed $d and length $d;
    Carp::croak "\"$d\" isn't a valid directive name"
     unless $d =~ m/^[a-zA-Z][ <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2503	2627	
==>de $exit_code")
      if $exit_code and not $pass;
    }

    unless($ENV{POSTMORTEM}) {
      unlink $out_f;
    }

    retu <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2691	2787	
==>all OK in sequence
PRINT "1 in module-level code"
GOSUB Sub1
PRINT "ERR this line in main routine <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16658	16754	
==>all OK in sequence
PRINT "1 in module-level code"
GOSUB Sub1
PRINT "ERR this line in main routine <==
3	/Users/nnunley/parrot/Configure.pl	7972	8100	
==>Create imcc's parser and lexer files. Needs a working
                        parser and lexer.
   --miniparrot         Build par <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	2332	2420	
==>1]{'section'} ) }
     __PACKAGE__->new->parse_string_document('=head1 L<Foo/bI<ar>baz>>' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	2950	3038	
==>1]{'section'} ) }
     __PACKAGE__->new->parse_string_document('=head1 L<Foo/bI<ar>baz>>' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952170	952437	
==>ion",
                  "CODE" => 1071,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 540 \"src/ops/string.ops\"\ <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1786	1932	
==>> '.obj',
            cc_o_out   => '-Fo',
            cc_exe_out => '-out:',
            cc_ldflags => '/link',

            # ZI messes with __LI <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3665	3811	
==>> '.obj',
            cc_o_out   => '-Fo',
            cc_exe_out => '-out:',
            cc_ldflags => '/link',

            # ZI messes with __LI <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13052	13154	
==>ures, 34 (NOT 99)
type first
	foo as integer
	bar as string
end type
type second
	link as first
end typ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	1516	1663	
==>[ ],
    COMMENTS       => [ ],
    LAST_OP        => 'noop',
    INDENT         => 0,
    REG_COUNT      => {  'I' => 0, 'N' => 0, 'P' => 0, 'S' => <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	1362	1481	
==>eq 'var' or $kind eq 'arg' or $kind eq 'const';

  my $self = bless {
    BLOCK  => $block,

    SCOPE  => $scope,
    K <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	4278	4386	
==>gument at C<$index>.

=cut

sub arg_type
{
    my $self = shift;

    return $self->{ARGS}[shift];
}

=item C <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	5107	5201	
==>cannot load its object files.

For a detailed Documentation see the C<Digest::MD5> module.

=he <==
3	/Users/nnunley/parrot/config/gen/platform.pm	5343	5484	
==>"END_HERE";
/*
** $_:
*/
#line 1 "$_"
END_HERE
            print PLATFORM_C <IN_C>, "\n\n";
            close IN_C;
        }
    }

    close <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936258	936346	
==>55 \"src/ops/string.ops\"\n  {{\@1}} = string_titlecase(interpreter, {{\@2}});\n  {{+=3}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937035	937123	
==>55 \"src/ops/string.ops\"\n  {{\@1}} = string_titlecase(interpreter, {{\@2}});\n  {{+=3}} <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	626	735	
==>msg .= pack 'VV', $l & MAX , ($l >> 16 >> 16);
}


sub rotate_left($$) {
	#$_[0] << $_[1] | $_[0] >> (32 - $_[ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2481	2587	
==>P3= P2["$stype"]
	P3["$var"]= P0	# Hack in the alias

SHARING
		} else {
			print CODE<<SHARING;
	# Sharing <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	5491	5587	
==>3df6e21

provided that the implementation is working correctly.  The same
checksum can also be ca <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53373	53473	
==>}
			elsif ($grammar =~ m/$RESYNCMK/gco)
			{
				_parse("a resync to newline marker", $aftererror,$l <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	17651	17767	
==>ors when attempting to rewrite $n
        # argument accesses and other things that make no sense in the
        # pr <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	28304	28417	
==>Whee!

  while($treelet = shift @stack) {
    for($i = 2; $i < @$treelet; ++$i) { # iterate over children
      ne <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	4840	4943	
==>_hex'
	  }		
	}

If the C<Digest::MD5> module is available it is used and if not you take
C<Digest::Perl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4767	4864	
==>($dest_ident->scope eq 'global')) {
    my $pmc_type = $dest_ident->type->imcc_pmc;
    my $pmc_re <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2830	2927	
==>($dest_ident->scope eq 'global')) {
    my $pmc_type = $dest_ident->type->imcc_pmc;
    my $pmc_re <==
3	/Users/nnunley/parrot/languages/perms.pl	239	381	
==>i] > $#$things ) {
      $prefix[$i] = 0;
      $i++;
      last if $i > @prefix;
    }
    
    if ( $prefix[-1] >= @$things ) {
      @prefix <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	123	219	
==>use vars qw(@EXPORT @ISA);

use Parrot::Config;

require Exporter;
require Parrot::Test;

@EXPORT <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	40	136	
==>use vars qw(@EXPORT @ISA);

use Parrot::Config;

require Exporter;
require Parrot::Test;

@EXPORT <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	24237	24352	
==>num";
		}

		# uint32
		elsif (/^uint32$/) {
			$out =  "    \${I_ARG_$arg_num} = bc.read_uint32()\n    next_pc += 4 <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9474	9570	
==>or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get detai <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6988	7084	
==>or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get detai <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5544	5640	
==>or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's a call. Get detai <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	2155	2266	
==>ine_number()."\n";
        }
    }

    return $vtable;
}

=item C<vtbl_defs($vtable)>

Returns the C C<typedef> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852817	853062	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "io",
                                 "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853598	853843	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "io",
                                 "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569107	569337	
==>> [
                              "i",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 218 \"src/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable-> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	414	521	
==>w
{
  my $class = shift;
  my ($block, $left, $right) = @_;

  confess("Block (" . ref($block) . ") not!") u <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	405	512	
==>w
{
  my $class = shift;
  my ($block, $left, $right) = @_;

  confess("Block (" . ref($block) . ") not!") u <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	1149	1253	
==>($_, $ctx) } @{ $tree->things } ]);
}

use vars qw($PAREN); # FIXME!!!
sub convert_rx_atom {
    my ($sel <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19907	20082	
==>Descent::_hint("The directive <autotree> was specified,
                                          so any production not ending
                                          in an e <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	591	680	
==>Identifier (" . ref($ident) . ") is not!") unless UNIVERSAL::isa($ident, 'Jako::Construct: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	591	680	
==>Identifier (" . ref($ident) . ") is not!") unless UNIVERSAL::isa($ident, 'Jako::Construct: <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	631	734	
==>e $self->{parrot};

    my $args = $ENV{TEST_PROG_ARGS} || '';

    $lang_f = File::Spec->rel2abs($lang_ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	668	771	
==>e $self->{parrot};

    my $args = $ENV{TEST_PROG_ARGS} || '';

    $lang_f = File::Spec->rel2abs($lang_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126623	126750	
==>}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127758	127885	
==>}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128893	129020	
==>}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528043	528369	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528924	529250	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529806	530132	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	11782	11986	
==>o,
                type        => $type,
                parameters  => $parameters,
                loc         => "vtable"
            };
        }
        else {
            # name => method idx mapping <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	1339	1454	
==>sub extract_functions {
    my $text = shift;

    return if $text =~ /DO NOT EDIT THIS FILE/;

    # Strip blocks o <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	38628	38731	
==>te in meta-variables. Yes, this really is the least evil way I
	# can think of to do it.
	$ins =~ s/(\$\ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53256	53356	
==>t::UncondReject($lookahead,$line,$code);
				$prod and $prod->additem($item)
				      or  _no_rule($ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54965	55065	
==>t::UncondReject($lookahead,$line,$code);
				$prod and $prod->additem($item)
				      or  _no_rule($ <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	25509	25608	
==>int <<EOC;
	.local NCI meth\:\:$attr
	meth\:\:$attr = $func # avoid savetop
	P2 = $1
	${ret_string}m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126418	126603	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 271 \"src/ops/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  con <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127553	127738	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 271 \"src/ops/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  con <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128688	128873	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 271 \"src/ops/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  con <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21382	21491	
==>emp);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$label");
  return $ret <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21767	21876	
==>emp);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$label");
  return $ret <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22152	22261	
==>emp);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$label");
  return $ret <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	5383	5492	
==>|| "-";
    }
}

printf "=== $Obj: %d interfaces ===\n", scalar keys %API;

my @API = sort keys %API;

my @NoP <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	3821	3922	
==>at!";
    exit;
  }

  $smoke{runcore}   = runcore_from_args($smoke{harness_args});
  $smoke{revision} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101362	1101507	
==>ic"
                            ],
                  "BODY" => "#line 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102561	1102706	
==>ic"
                            ],
                  "BODY" => "#line 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL r <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	8055	8162	
==>self,$node) = @_;
  my $return;
  my $label = $self->_gensym();
  my $temp;

  $return = $self->_save_1 ('P' <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2105	2213	
==>tval);

	_CheckParams( \@params, \%params, \@_, $self );

	if($$self{DEBUG}) {
		_DBLoad();
		$retval = <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2028	2130	
==>tval);

	_CheckParams( \@params, \%params, \@_, $self );

	if($$self{DEBUG}) {
		_DBLoad();
		$retval = <==
3	/Users/nnunley/parrot/config/gen/cpu/i386/auto.pm	337	436	
==>6_has_mmx   => 1

=cut

package gen::cpu::i386::auto;

use strict;
use warnings;

use Parrot::Config <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295619	296041	
==>S" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 344,
                  "ARGS" => [
                              "i",
                              "p",
                              "p"
                            ],
                  "BODY" => "#li <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183202	183382	
==>n",
                              "ic"
                            ],
                  "BODY" => "#line 285 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184098	184278	
==>n",
                              "ic"
                            ],
                  "BODY" => "#line 285 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566706	567029	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "does",
                  "FLAGS" => ":ob <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567600	567923	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "does",
                  "FLAGS" => ":ob <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	8047	8172	
==>.= "  .return(register, pir) \n";
    
    return $code;
}

sub badargs {
    my ($cmd, @args) = @_;
    
    my $usage = crea <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8043	8191	
==>es:
      #

      my %props;

      while ($self->skip_colon) {
        my $prop = $self->require_ident->text;
      
        my $value;

        if <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5049	5191	
==>es:
      #

      my %props;

      while ($self->skip_colon) {
        my $prop = $self->require_ident->text;

        my $value;

        if <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4739	4859	
==>hing should be done about that.
    }
  }
  
  my $out = $to if defined $to and length $to;
  $out .= "#" . $section if d <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	6750	6855	
==>s);
    my $arg_types  = "$opsarraytype *, Interp *";
    my $prototype  = "$sym_export $opsarraytype * $f <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1129	1219	
==>lude -I/opt/local/include -pipe -fno-common -Wno-long-double  -I /opt/local/include   -g -W <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1133	1223	
==>lude -I/opt/local/include -pipe -fno-common -Wno-long-double  -I /opt/local/include   -g -W <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	3479	3604	
==>arated list of interfaces */
    STRING* isa_str;         /* space-separated list of classes */
    PMC *class;              / <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1406	1528	
==>ift;
    }
    else
    {
        return $self->{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/gets the transfo <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1015	1137	
==>ift;
    }
    else
    {
        return $self->{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/gets the transfo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616378	616612	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "pic_infix__",
                  " <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	9229	9342	
==>length $new_code;
    if(ASCII) {
      # A good-enough check that it's good as an XML Name symbol:
      Carp::cr <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10493	10606	
==>length $new_code;
    if(ASCII) {
      # A good-enough check that it's good as an XML Name symbol:
      Carp::cr <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	11592	11700	
==>put_rule_end {
    my ($self, $name) = @_;
    return ("# End of rule $name", "}");
}

sub output_rule_pass { <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6001	6101	
==>pty stack type state propogated to it if nothing has been
	# propogated there already.
	$pir .= <<'PI <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3939	4039	
==>pty stack type state propogated to it if nothing has been
	# propogated there already.
	$pir .= <<'PI <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	725	840	
==>elsif($ch eq '?' and
            $token =~ /^[a-z]/) { # Question marks can follow an identifier
      $token .= $ch <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035470	1035569	
==>_name = {{\@2}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n    PMC *r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036634	1036733	
==>_name = {{\@2}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n    PMC *r <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	12798	12896	
==>= '('.join('|',map { quotemeta $_ } split('',$_)).')'
	}
	pos = $posbug;

	my @match = _match_codeb <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	332	414	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub _handle_element_sta <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	329	411	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub _handle_element_sta <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	585	667	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub _handle_element_sta <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	13979	14084	
==>al $Level = $Level + 1;
    $self->_regex_ok($this, $regex, '=~', $name);
}

sub unlike {
    my($self, $t <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2723	2824	
==>'op' });
    $handler->end_element({ Name => 'block' });
  }

  $handler->start_element({ Name => 'blo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2600	2701	
==>'op' });
    $handler->end_element({ Name => 'block' });
  }

  $handler->start_element({ Name => 'blo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	242	340	
==>T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Type::Strin <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	18317	18413	
==>tting some tokens,
and scanning them for the title, and then ungetting them so that you can
proce <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	4637	4730	
==>ut_like($code, $expected, $description)>

Compiles and runs the C code, passing the test if ou <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7892	7989	
==>{
		while($_=pop(@ifstack)) {
			push @{$code{$seg}->{code}}, "IFBRANCH_$_:\n";
		}
=cut
UNK:	if ( <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	20903	21042	
==>expr->[0],
            'result' => $result,
        );
    }
    return [ $result, \@opcodes ];
}

sub BuildBinop {
    my ( $parser <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28419	28521	
==>ent::_trace(q{>>Matched terminal<< (return value: [}
						. $& . q{])},
						  Parse::RecDescent::_tr <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30495	30597	
==>ent::_trace(q{>>Matched terminal<< (return value: [}
						. $& . q{])},
						  Parse::RecDescent::_tr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543325	543650	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lcm",
                  "FLAGS" => ":a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544660	544985	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lcm",
                  "FLAGS" => ":a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545996	546321	
==>};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lcm",
                  "FLAGS" => ":a <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	382	484	
==>y2 => $value2);
    $data->add($delimiter, $key1 => $value1, $key2 => $value2);
    my @keys = $data->k <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21797	21918	
==>1' => 121,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 68 <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	4442	4542	
==>ref { $_[0]{'curr_open'} ||= [] }


sub output_string {
  # Works by faking out output_fh.  Simplifie <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	1461	1561	
==>PACKAGE__->new->run(host => "192.168.2.249");

exit;

sub process_upload {
  my $CGI = shift;
  #prin <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1809	1912	
==>et) = capture_output($prog, '--version');

    # don't override the user even if the program they provid <==
3	/Users/nnunley/parrot/config/inter/make.pm	1683	1786	
==>et) = capture_output($prog, '--version');

    # don't override the user even if the program they provid <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1823	1926	
==>et) = capture_output($prog, '--version');

    # don't override the user even if the program they provid <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	1932	2034	
==>es = [ "$name=$m->{0}" ];
  while (my ($name, $match) = each %$m) {
    push @$res, minimatch($match, $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1098	1196	
==>ct::Expression::Value');
  confess "Right is not Value!" if defined $right and not UNIVERSAL::isa($ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1126	1224	
==>ct::Expression::Value');
  confess "Right is not Value!" if defined $right and not UNIVERSAL::isa($ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	798	896	
==>ct::Expression::Value');
  confess "Right is not Value!" if defined $right and not UNIVERSAL::isa($ <==
3	/Users/nnunley/parrot/config/auto/jit.pm	4443	4617	
==>nf->data->set(
                TEMP_exec_h => '',
                TEMP_exec_o => '',
                execcapable => 0
            );
        }

        # test for executable m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574831	575126	
==>n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573120	573413	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574030	574323	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FL <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	5378	5527	
==>ring Parrot::Op objects:
    #

    my $count = 0;
    my ($name, $footer);
    my $type;
    my $body;
    my $short_name;
    my $args;
    my @args <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	13744	13859	
==>mp($include, lc("$parent.pmc"))
                if not $all->{$parent};

            $class->{has_parent}{$parent} = <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2941	3036	
==>rbatimFormatted');
  $new->accept_codes(@_to_accept);
  DEBUG > 2 and print "To accept: ", join( <==
3	/Users/nnunley/parrot/config/gen/icu.pm	3084	3190	
==>}

    unless (defined $icuheaders and -d $icuheaders) {
        warn "error: icuheaders not defined or inv <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954273	954360	
==>ops/string.ops\"\n  {{\@1}} = Parrot_encoding_number_of_str(interpreter, {{\@2}});\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955064	955151	
==>ops/string.ops\"\n  {{\@1}} = Parrot_encoding_number_of_str(interpreter, {{\@2}});\n  {{ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10030	10129	
==>ments ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC}:
if ${ITEMP0} == 0 goto PRE_C <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7544	7643	
==>ments ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC}:
if ${ITEMP0} == 0 goto PRE_C <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6508	6607	
==>ments ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC}:
if ${ITEMP0} == 0 goto PRE_C <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11360	11459	
==>URIC}:

# Finished.
goto PRE_CALL_END_${CURIC}

# It's a return. See if we have a return value.
PRE_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8546	8645	
==>URIC}:

# Finished.
goto PRE_CALL_END_${CURIC}

# It's a return. See if we have a return value.
PRE_ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	22715	22813	
==>arness upgrade else it will
treat it as a normal failure.  See L<BUGS and CAVEATS>)


=item B<todo_ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6375	6484	
==>hange          ' Sort until no elements are exchanged.
   Exchange=FALSE
   ' Compare the array elements by pa <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16028	16137	
==>hange          ' Sort until no elements are exchanged.
   Exchange=FALSE
   ' Compare the array elements by pa <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	6967	7064	
==>icense to copy and use this software is granted provided that it
is identified as the "RSA Data Se <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85630	85863	
==>interpreter, compreg_hash, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86537	86770	
==>interpreter, compreg_hash, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	40447	40548	
==>=item [2]

the prefix substring (if any),

=item [3]

the opening tag

=item [4]

the text between the <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798572	798863	
==>=> "inline",
                  "CODE" => 901,
                  "ARGS" => [
                              "p",
                              "k",
                              "nc"
                            ],
                  "BODY" => "#line 462 \"src/ops/set.ops\"\n    {{\@1}}->vtable- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710659	710752	
==>* const io = PIO_STDOUT(interpreter);\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711493	711586	
==>* const io = PIO_STDOUT(interpreter);\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts( <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	4550	4675	
==>$nm_try =~ /GNU nm/) {
    $nm_opt = '';
    $nm_gnu = 1;
    $nm_ro  = 1;
} else {
    # Hope for BSD-style nm output.
}

Get <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15234	15346	
==>pcodes3, $assign;
    }
    push @opcodes1, @opcodes2, @opcodes3;
    return \@opcodes1;
}

sub BuildCallVa <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26437	26544	
==>{STACK1})
${INS} = concat ${STEMP0}
PIR
    }
	
	# Now we split based upon the class.
	# Operations (op clas <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6093	6230	
==>$group} ||= {};
        foreach my $lib ( keys %libs ) {
            $group_libs{$group}->{lib} = 1;
        }
    }

    return (\%group_ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6304	6441	
==>$group} ||= {};
        foreach my $lib ( keys %libs ) {
            $group_libs{$group}->{lib} = 1;
        }
    }

    return (\%group_ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3739	3850	
==>$dest);
}

sub output_unless {
    my ($self, $reg, $dest) = @_;
    $reg = value($reg);
    return "unless $reg <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557213	557345	
==>"JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLAGS" => ":objec <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558596	558728	
==>"JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLAGS" => ":objec <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559980	560112	
==>"JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLAGS" => ":objec <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	7635	7766	
==>$out eq $err ) {
        $err = "&STDOUT";
    }

    local *OLDOUT if $out;
    local *OLDERR if $err;

    # Save the old filehand <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7687	7817	
==>$out eq $err) {
        $err = "&STDOUT";
    }

    local *OLDOUT if $out;
    local *OLDERR if $err;

    # Save the old filehand <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	6334	6440	
==>$totals{covered_calls} / $totals{calls} * 100)       : 0));
    
    print OUT page_header("Parrot Test Cov <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4816	4913	
==>ype = $dest_ident->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();

    $compiler->emit(" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2879	2976	
==>ype = $dest_ident->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();

    $compiler->emit(" <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1161	1251	
==>1&X3)|(X2&(~X3)))+X0+X4+X6$MSK,X5)+X1$MSK;",
  my %f = (
	FF => "X0=rotate_left((X3^(X1&(X2 <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37156	37256	
==>{
	my ($self, $namespace, $rule) = @_;
	
	my ($subrule, $repspec, $min, $max, $lookahead) =
		@{$self <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1592	1679	
==>=head1 SEE ALSO

L<Pod::Simple::PullParserToken>, L<Pod::Simple>, L<Pod::Simple::Subclas <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2759	2846	
==>=head1 SEE ALSO

L<Pod::Simple::PullParserToken>, L<Pod::Simple>, L<Pod::Simple::Subclas <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1879	1966	
==>=head1 SEE ALSO

L<Pod::Simple::PullParserToken>, L<Pod::Simple>, L<Pod::Simple::Subclas <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	4845	4952	
==>_html = '<p>' . $index_html . "</p>\n";
    }
    
    return $index_html;
}

=item C<contents_relative_to_s <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63183	63284	
==>code($1)");

						!$matchrule and $rule and $rule->addcall($name);

						_check_insatiable($name,$1, <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63904	64005	
==>code($1)");

						!$matchrule and $rule and $rule->addcall($name);

						_check_insatiable($name,$1, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126531	126633	
==>/ops/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  INTV <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127666	127768	
==>/ops/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  INTV <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128801	128903	
==>/ops/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@3}};\n  const INTVAL w = {{\@4}};\n  INTV <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028062	1028157	
==>f ({{\@1}} < 0) {\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back in tim <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028913	1029008	
==>f ({{\@1}} < 0) {\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back in tim <==
3	/Users/nnunley/parrot/config/auto/va_ptr.pm	388	482	
==>use Parrot::Configure::Step ':auto';

$description = 'Test the type of va_ptr (this test is lik <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	26777	26905	
==>);
        push @ops, @rewritten;
        $fallback = $back;
    }

    return ($fallback, @ops);
}

sub rewrite_external {
    m <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	3839	3940	
==>EAMBLE} .= "\n" . $temp_ops->{PREAMBLE};
}


# Renumber ops/num based on old ops.num and *.ops
if ($re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492748	492890	
==>src/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493509	493651	
==>src/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90275	90603	
==>MP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91128	91456	
==>MP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91982	92310	
==>MP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	5317	5433	
==>alar(@non_ansi_external_calls));
    
    foreach (@non_ansi_external_calls) {
        print "    $_:\n";
        for <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	13191	13304	
==>start, $end) = @$val;
        $end = $rx_pos if $key eq '0';
        if (defined($start) && defined($end) && $star <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	2071	2172	
==>->{scopef} };
    $parser->YYData->{lex_num} = $lex_num;
    my $scope = shift @{ $parser->YYData->{ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2308	2425	
==>{declarations}}) {
				if (exists $main::common{$var}) {
					push(@saves, $var);
				}
			}
			if (@saves) {
				$edi <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2717	2834	
==>{declarations}}) {
				if (exists $main::common{$var}) {
					push(@saves, $var);
				}
			}
			if (@saves) {
				$edi <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	7394	7553	
==>mt' => '%ld',
             'intvalsize' => 4,
             'isreg' => 1,
             'iv' => 'long',
             'jitarchname' => 'ppc-darwin',
             ' <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11317	11410	
==>} = concat ${STEMP0}
pre_call_NO_RETURN_${CURIC}:

# Finished.
goto PRE_CALL_END_${CURIC}

# I <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8503	8596	
==>} = concat ${STEMP0}
pre_call_NO_RETURN_${CURIC}:

# Finished.
goto PRE_CALL_END_${CURIC}

# I <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	8180	8291	
==>t), make it so now so the code below can treat everybody the
    # same.
    $command = [$command] unless (ref $ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4508	4611	
==>_link($_, $pmc_libs->{$_}, [ $_ ] ) foreach (@ungrouped_pmcs);
} 
elsif ($mode eq 'copy') {
    # Copy * <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4612	4715	
==>_link($_, $pmc_libs->{$_}, [ $_ ] ) foreach (@ungrouped_pmcs);
} 
elsif ($mode eq 'copy') {
    # Copy * <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1747	1851	
==>st->value) unless $dest_sym;
  my $dest_type = $dest_sym->type;

  my $left_type;
  if (UNIVERSAL::isa($l <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1705	1809	
==>st->value) unless $dest_sym;
  my $dest_type = $dest_sym->type;

  my $left_type;
  if (UNIVERSAL::isa($l <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1627	1731	
==>st->value) unless $dest_sym;
  my $dest_type = $dest_sym->type;

  my $left_type;
  if (UNIVERSAL::isa($l <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	10099	10199	
==>package = 'Parrot::Test';

    my $path_to_parrot = path_to_parrot();
    my $parrot = File::Spec->jo <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11007	11098	
==>od, $super, $super_table)>

Rewrites the method body performing the various macro substituti <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11409	11500	
==>od, $super, $super_table)>

Rewrites the method body performing the various macro substituti <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958806	959070	
==>=> 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959607	959871	
==>=> 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37203	37295	
==>subrule, $repspec, $min, $max, $lookahead) =
		@{$self}{ qw{subrule repspec min max lookahead <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27109	27268	
==>and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $l_break;
            }
        }
    }
    pus <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27790	27949	
==>and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $l_break;
            }
        }
    }
    pus <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	54405	54500	
==>ments: a string
representing the text left after extraction (like $' for a pattern
match), and a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	69208	69402	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "collecton",
                  "FLAGS" => "",
                  "ARGDIRS" => [],
                  "TYPE" <==
3	/Users/nnunley/parrot/languages/regex/regex.pl	207	339	
==>= "pir";
my $main;

while (@ARGV) {
    $_ = shift;
    if (/--no(-?)optimize/) {
        $tree_opt = 0;
        $list_opt = 0;
    } <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	2185	2300	
==>="0" WIDTH="730" CELLSPACING="0" CELLPADDING="0">
            <TR ALIGN="RIGHT">
                <TD WIDTH="590" VAL <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	2553	2719	
==>e( $dir, '*.t' ) ),
                      glob( File::Spec->catfile( $dir, '*/*.t' ) )
                    );
        print join( "\n", @files );
        print "\n" if <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	14438	14545	
==>ASE_${jump}_${incase}:
	new P12, .PerlArray   # OR
	new P13, .PerlArray   # TO
	new P14, .PerlArray   # Oper <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	14449	14555	
==>e_global "${f}_$gn", $g
EOC
	    unshift @{$def_args{$f}}, $gn;
	}
    }
    if ($cur_func =~ /Build::(\w+) <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	507	606	
==>RE>.

=cut

sub core_type
{
    return 'PARROT_FUNCTION_CORE';
}

=item C<core_prefix()>

Returns an <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	1526	1638	
==>w_item('', 'tools/dev/run_indent.pl'),
        ),
        $self->new_group('Documentation', '',
            $self <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	622985	623091	
==>ler_ctx, *ctx;\n    parrot_cont_t cc;\n    int n;\n\n    ctx = CONTEXT(interpreter->ctx);\n    mic = (Parro <==
3	/Users/nnunley/parrot/lib/Test/More.pm	20383	20477	
==>won't be run at all>.  Test::More will output special ok's
which Test::Harness interprets as sk <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92659	92947	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95110	95398	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96003	96291	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARG <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39019	39119	
==>nal", "n optional" );

sub issubrule { 0 }
sub isterminal { 0 }

sub describe { $_[0]->{"expected"} } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576420	576511	
==>object.ops\"\n  PMC *name;\n  name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577432	577523	
==>object.ops\"\n  PMC *name;\n  name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356672	356862	
==>n  PIO_eprintf(interpreter, INTVAL_FMT, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357332	357522	
==>n  PIO_eprintf(interpreter, INTVAL_FMT, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	704	792	
==>::Section::PMCs;
use Parrot::Docs::Section::DynaPMCs;
use Parrot::Docs::Section::C;
use P <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	794	891	
==>rm_module.pm";
my $srm = "SRM::$srm_module"->new();

# Ensure rules file exists and parse it.
my @ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	23801	23898	
==>stpos };
	return $fields[0];
}


sub gen_extract_tagged # ($opentag, $closetag, $pre, \%options)
{ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	492	593	
==>$right) = @_;

  confess "Block is not defined!" unless defined $block;
  confess "Left is not defined <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	504	605	
==>$right) = @_;

  confess "Block is not defined!" unless defined $block;
  confess "Left is not defined <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	16478	16577	
==>my($self, $para) = @_;
  return $para->[1]{'~type'} if $para->[1]{'~type'};


  # Otherwise we haven <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	1861	1994	
==>hash');       

    foreach (@type_macros) {
        $typedefs->{$_}="#defined";
    }
    
    
    # post-process the file to find f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567520	567628	
==>n  {{\@1}} = {{\@2}}->vtable->does(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568415	568523	
==>n  {{\@1}} = {{\@2}}->vtable->does(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	956	1053	
==>$pf->const_table->const_count;

    if ($count < 1) {
	warn "Disassembling without opcode table fi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054373	1054466	
==>to get from null namespace.\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to get nul <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055500	1055593	
==>to get from null namespace.\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to get nul <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	287860	288298	
==>",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 335,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "B <==
3	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	639	790	
==>f->{table}{$symb};
##        warn "\tfound 1 in $self\n";
            return $defn;
        }
        else {
            my $parser = $self->{parse <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	1837	1949	
==>->new_item('', 'tools/docs/write_docs.pl'),
        ),
        $self->new_group('Building', '',
            $self <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480742	480837	
==>NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@2}} / de <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481745	481840	
==>NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@2}} / de <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482748	482843	
==>NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@2}} / de <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	25093	25221	
==>\n    next_pc += 4\n";
			$arg_name = "I_ARG_$arg_num";
		}

        # ttype
		elsif (/^ttype$/) {
			$out =  "    \${I_ARG_$arg_ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	29784	29878	
==>Test::More and Test::Harness for
details).  Returns the reason (ie. the value of $TODO) if runn <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	2217	2326	
==>->set('libs',      $libs);
        $conf->data->set('ccflags',   $ccflags);
        $conf->data->set('linkflag <==
3	/Users/nnunley/parrot/config/auto/readline.pm	2017	2126	
==>->set('libs',      $libs);
        $conf->data->set('ccflags',   $ccflags);
        $conf->data->set('linkflag <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	45603	45712	
==>eplace myself and the next line
    DEBUG > 10 and print "Nixed count: ", scalar(@nixed), "\n";
    
    DEBUG <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15296	15402	
==>="";
	$retcount=0;
	my $type="";

	if ($opts{assign}) {
		#print STDERR "Assign\n";
		$opts{lhs}=1;
		@expr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714587	714681	
==>O_STDOUT(interpreter);\n  if (s && string_length(interpreter, s)) {\n    if (PIO_softspace(inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715510	715604	
==>O_STDOUT(interpreter);\n  if (s && string_length(interpreter, s)) {\n    if (PIO_softspace(inte <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	39194	39305	
==>);
    $pir .= sub_meta($srm_pt, $mv, 'post_translation');
    $pir .= "### end post_translation\n";

    # Emit <==
3	/Users/nnunley/parrot/config/auto/jit.pm	3385	3490	
==>C_DIR)/jit_cpu$(O) $(SRC_DIR)/jit_debug$(O) $(SRC_DIR)/jit_debug_xcoff$(O)'
        );

        if (   ($j <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	14	103	
==>) 2004, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Docs/Group.pm 20333 2006-06-21T18:4 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5493	5633	
==>push @{$self->{BLOCKS}}, $module;

      next;

    }

    #
    # Variable declarations:
    #
    #   var <type> <ident>;
    #   var <type <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	4120	4235	
==>th;
    $module .= '.pm';
    
    my $dir = $self->existing_directory_with_name('lib');
    
    foreach my $name ( <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	51	165	
==>dation.
# $Id: /parrot/tools/build/pmc2c.pl 19607 2006-05-30T15:23:20.183054Z coke  $

=head1 NAME

tools/build/pmc <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19037	19183	
==>ll->new($block, $sub_name, @args);
      next;
    }

    #
    # Function Calls:
    #
    # a = foo(...);
    #

    if ($token->is_ident
      a <==
3	/Users/nnunley/parrot/config/auto/jit.pm	3726	3867	
==>$osname eq 'netbsd')
                || ($osname eq 'linux')
                || ($osname eq 'darwin')
                || ($osname eq 'MSWin32' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3793	3896	
==>errors and warnings instead of using
die() and warn().

=cut

sub get_symbol
{
  my $self = shift; # Req <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2182	2281	
==>class}::$name", 'Regex::Ops::Tree');
        $class =~ s/::\w+$// or confess "Called op on invalid c <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	5383	5475	
==>_output_isnt( $example_f, $expected, @todo )>

Determine the language from the extension of C <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	3122	3233	
==>tem C<gen_c>

Writes the C file for the library.

=cut

sub gen_c {
    my ($self) = @_;
    my $cout = dont_edi <==
3	/Users/nnunley/parrot/languages/regex/test.pl	158	263	
==>strict;

# Running this with perl5.005 produces:
# Can't locate object method "new" via package "Regex::Co <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	5582	5683	
==>pected =~ tr/({[</)}]>/;
			if ($expected ne $brackettype)
			{
				_failmsg qq{Mismatched closing bra <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407464	407786	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "connect",
                  "F <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408362	408684	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "connect",
                  "F <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	14773	14872	
==>}}) };
}

sub addscore
{
	my ( $self, $code, $lookahead, $line ) = @_;
	$self->additem(Parse::RecDes <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099409	1099732	
==>",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100607	1100930	
==>",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101805	1102128	
==>",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "p <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	47678	47790	
==>rs(1);

  my $out = '';
  $parser->output_string( \$out );
  DEBUG and print " _out to ", \$out, "\n";
  
  $muto <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2611	2711	
==>->op } });
    $self->left->sax($handler);
    $self->right->sax($handler);
    $handler->end_element <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2488	2588	
==>->op } });
    $self->left->sax($handler);
    $self->right->sax($handler);
    $handler->end_element <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	48773	48892	
==>ect
      push @{ $lineage[-2] }, $lineage[-1];
      
    } elsif(defined $3) {
      DEBUG > 3 and print "Found appare <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477104	477200	
==>ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@1}} / den);\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478000	478096	
==>ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@1}} / den);\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088980	1089305	
==>",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sli <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089928	1090253	
==>",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sli <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083821	1084144	
==>",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	11030	11153	
==>{
        # undef only matches undef and nothing else
        my $test = !defined $got && !defined $expect;

        $self-> <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	11448	11571	
==>{
        # undef only matches undef and nothing else
        my $test = !defined $got && !defined $expect;

        $self-> <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	25021	25130	
==>cent::linenum($thisline)];'; 
		}
	}
	else	  # GENERATE ERROR MESSAGE DURING PARSE
	{
		$action .= '
		my $rul <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1013154	1013416	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "err",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "i <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5741	5861	
==>print STDERR "Stack:[".
#DBG>					 join(',',map { $$_[0] } @$stack).
#DBG>					 "]\n";


        if  (exists($$actio <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5467	5582	
==>print STDERR "Stack:[".
#DBG>					 join(',',map { $$_[0] } @$stack).
#DBG>					 "]\n";


        if  (exists($$actio <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	11222	11326	
==>R)" : $R;
    }

    return $str;
}

sub Regex::Ops::Tree::multi_match::needparen { 1 }
sub Regex::Ops::T <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5078	5177	
==>$debug)=$$self{DEBUG};
#DBG>	my($dbgerror)=0;

#DBG>	my($ShowCurToken) = sub {
#DBG>		my($tok)=' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4833	4928	
==>$debug)=$$self{DEBUG};
#DBG>	my($dbgerror)=0;

#DBG>	my($ShowCurToken) = sub {
#DBG>		my($tok)=' <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Examples.pm	628	746	
==>t;
    
    return $self->SUPER::new(
        'Examples', 'examples.html', '',
            $self->new_group('PASM and P <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	22194	22326	
==>um_name,	/* base_type */
        NULL,	/* whoami */
        $vtbl_flag, /* flags */
        NULL,   /* does_str */
        NULL,   /* <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758304	758413	
==>et.ops\"\n  {{\@1}} = string_set(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759077	759186	
==>et.ops\"\n  {{\@1}} = string_set(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	52416	52563	
==>[1] },
                BuildLocalVariable( $_[0], $_[3] ),
            ];
        }
	],
	[#Rule 52
		 'namelist', 1,
sub
#line 313 "Lua\lua5 <==
3	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	1801	1897	
==>RUNLINE
	restore I0
	branch ENDMAINLOOP
	end

ENDMAINLOOP:
	branch MAINLOOPR 
ENDMAINLOOPNR:
	bra <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20769	20871	
==>n for $typename
	new P0, .PerlArray
TYPE
		foreach(@types) {
			print CODE<<ADDT;
	new P1, .PerlHash
	P <==
3	/Users/nnunley/parrot/tools/dev/manicheck.pl	998	1089	
==>ifest::maniread();
my $file_list = ExtUtils::Manifest::manifind();
my @missing   = ExtUtils: <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	3255	3342	
==><Parrot::Docs::Section::Compilers>

=item C<Parrot::Docs::Section::Languages>

=item C<P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510480	510724	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511218	511462	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511956	512200	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14903	15006	
==>ent_start {
  my $self = shift;   # leaving ($element_name, $attr_hash_r)
  DEBUG > 2 and print "++ $_[0 <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	338	431	
==>by F<config/gen/makefiles.pm> from
F<config/gen/makefiles/dynopslibs_pl.in>.  This script is u <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	4849	4939	
==>item C<read_ops($file,$nolines)>

Reads in the specified .ops file, gathering information a <==
3	/Users/nnunley/parrot/config/inter/lex.pm	872	973	
==>ion => undef);

    unless ($conf->options->get('maintainer')) {
        $conf->data->set($util => 'ec <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	869	970	
==>ion => undef);

    unless ($conf->options->get('maintainer')) {
        $conf->data->set($util => 'ec <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9280	9377	
==>"";
    $cout .= <<"EOC";
#include "parrot/parrot.h"
#include "parrot/extend.h"
#include "parrot/d <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718025	718116	
==>nterpreter, io, \" \");\n  PIO_fprintf(interpreter, io, INTVAL_FMT, (INTVAL){{\@2}});\n  PIO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718957	719048	
==>nterpreter, io, \" \");\n  PIO_fprintf(interpreter, io, INTVAL_FMT, (INTVAL){{\@2}});\n  PIO <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	1163	1265	
==>const_table->constant(0)->data ne $opcode_fingerprint;

=cut

    print "# Constants: $count entries\n" <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76667	76770	
==>(defined $::RD_TRACE
	    && $::RD_TRACE =~ /\d+/
	    && $::RD_TRACE>1
	    && $::RD_TRACE+10<length($_ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76978	77081	
==>(defined $::RD_TRACE
	    && $::RD_TRACE =~ /\d+/
	    && $::RD_TRACE>1
	    && $::RD_TRACE+10<length($_ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	28178	28279	
==>rn,0,"DONE_$label"]);
  my $temp = $self->_constant(-1);
  $self->_add_inst('',           'mul',[$retu <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7453	7554	
==>.
	if (!$need_dest) {
		$pir .= <<'PIR'
inc stack_depth
lazy_moves = push ${LOADREG}
PIR
	}

	return $ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14457	14551	
==>('P');

  $self->_add_inst ('', 'new', [$return,'.Array']);
  $self->_add_inst ('', 'set', [$re <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	2966	3058	
==>('P');

  $self->_add_inst('', 'new', [$return,'.Array']);
  $self->_add_inst('', 'set', [$re <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18677	18826	
==>@params  = ();
    my @returns = ();
    for my $arg ( @{$args} ) {
        if ( scalar @{ $arg->[1] } ) {
            push @opcodes, @{ $arg->[1] <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	793	900	
==>atch
# O (end, n) : mark end of n-th paren match
# O (goto, label)
# O (label, name)
# O (increment, name [, <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1286	1389	
==>e_to_prederef(i, op)   (op ? \\
     (void**) (op   - CONTEXT(i->ctx)->pred_offset) : NULL)


#define OP <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	18030	18180	
==>0 goto lastback
#               $matchcount--
#               goto R.back
#        check: if $matchcount < min goto back
#         next:
#
# to make $m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760921	761185	
==>> 0,
                  "NAME" => "setp_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761773	762037	
==>> 0,
                  "NAME" => "setp_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3594	3695	
==>t NEXT()>

Transforms to C<PC' = 0> and restarts at C<PC + S>.

=item C<$n>

Transforms to the op func <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2886	3009	
==>QUOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUOTE";
}

our $NOW = time();

################### MAIN PRO <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3195	3318	
==>QUOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUOTE";
}

our $NOW = time();

################### MAIN PRO <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2990	3113	
==>QUOTE"} @$sources) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUOTE";
}

our $NOW = time();

################### MAIN PRO <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	3816	3953	
==>ign-compare",
            2.95 => "",

            # 2.95 does align functions per default -malign-functions=4
            #      where th <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1601	1709	
==>"Test::More::$meth"}( @_ );
        # if( $ok ) { foreach my $meth ( $lang_f, $pasm_f, $by_f, $out_f ) { unli <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1517	1625	
==>"Test::More::$meth"}( @_ );
        # if( $ok ) { foreach my $meth ( $lang_f, $pasm_f, $by_f, $out_f ) { unli <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368894	369211	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369778	370095	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	704	802	
==>equire Parrot::Test;
require Test::Builder;
require Test::More;

our @EXPORT = qw( plan skip );

my <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	27514	27618	
==>ore.ops\"\n    opcode_t * const this = CUR_OPCODE;\n    PMC * const signature = {{\@1}};\n    INTVAL argc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	28366	28470	
==>ore.ops\"\n    opcode_t * const this = CUR_OPCODE;\n    PMC * const signature = {{\@1}};\n    INTVAL argc <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	18222	18314	
==>pcode, $arg, $rest) = ($code[$code_l]->[2],
	$code[$code_l]->[3],$code[$code_l]->[4]);

    i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924393	924481	
==>.ops\"\n  {{\@1}} = string_make_empty(interpreter, enum_stringrep_one, {{\@2}});\n  {{+=3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925184	925272	
==>.ops\"\n  {{\@1}} = string_make_empty(interpreter, enum_stringrep_one, {{\@2}});\n  {{+=3 <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	974	1079	
==>Clean up any /foo/../ stuff.
    while ( $path =~ s|/[^/]+/\.\.|| ) {}

    if ( exists $instance_for_path <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469296	469395	
==>DY" => "#line 385 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470171	470270	
==>DY" => "#line 385 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_e <==
3	/Users/nnunley/parrot/config/gen/config_h.pm	1378	1491	
==>udes
 */

EOF

    for (sort($conf->data->keys())) {
        next unless /i_(\w+)/;
        if ($conf->data->get($ <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10104	10189	
==>$b,$_[7],16,0xd4ef3085,/* 43 */
HH,$b,$c,$d,$a,$_[10],23,0x4881d05,/* 44 */
HH,$a,$b,$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762662	762947	
==>tn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 861,
                  "ARG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572919	573007	
==>/ops/object.ops\"\n  PMC *name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573829	573917	
==>/ops/object.ops\"\n  PMC *name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_s <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7457	7564	
==>nt "No match\n"
FIN:
for i = 1 to 3
	on i gosub oats, peas, beans
next i
print
end
100 print "100!"
    goto <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19740	19847	
==>nt "No match\n"
FIN:
for i = 1 to 3
	on i gosub oats, peas, beans
next i
print
end
100 print "100!"
    goto <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2200	2422	
==>op/s:        "
                              # print  N1
                              # print  "\n"
                              #
exit(0);                      # end

=head1 SEE ALSO

F<examples/benchmarks/mops.pasm>,
F< <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	2200	2422	
==>op/s:        "
                              # print  N1
                              # print  "\n"
                              #
exit(0);                      # end

=head1 SEE ALSO

F<examples/benchmarks/mops.pasm>,
F< <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	18	114	
==>ed pod2plaintext that need only know how to format whatever
# text comes out of Pod::BlackBox's _ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301635	302073	
==>",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 351,
                  "ARGS" => [
                              "i",
                              "s",
                              "s"
                            ],
                  "B <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42312	42399	
==>"src/ops/core.ops\"\n  do_exception(interpreter, EXCEPT_exit, {{\@1}});\n  {{=0,+=2}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43002	43089	
==>"src/ops/core.ops\"\n  do_exception(interpreter, EXCEPT_exit, {{\@1}});\n  {{=0,+=2}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288312	288531	
==>e 935 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289168	289387	
==>e 935 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290024	290243	
==>e 935 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2103	2208	
==>$_[0]{'Indent'} }
sub   end_over_block   { --$_[0]{'Indent'} }


# . . . . . Now the actual formatters:

s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1671	1776	
==>$_[0]{'Indent'} }
sub   end_over_block   { --$_[0]{'Indent'} }


# . . . . . Now the actual formatters:

s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7726	7837	
==>ock;

      my $type_token = $self->skip_type;

      my $type;
      $type = Jako::Construct::Type->new($type_t <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3011	3112	
==>index < 0
	and	-$index <= @{$$self{STACK}}
	and	return $$self{STACK}[$index][1];

	undef;	#Invalid <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2865	2962	
==>index < 0
	and	-$index <= @{$$self{STACK}}
	and	return $$self{STACK}[$index][1];

	undef;	#Invalid <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	27726	27949	
==>S(signature);\n    {{+=argc + 2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	28551	28774	
==>S(signature);\n    {{+=argc + 2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	12846	12961	
==>ect;

        $self->ok($test, $name);
        $self->_cmp_diag($got, 'ne', $dont_expect) unless $test;
        retu <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8594	8700	
==>$self = shift;
    my $path = $self->path_for_file_with_name(shift) || return;
    
    return unless -f $p <==
3	/Users/nnunley/parrot/config/inter/charset.pm	1505	1605	
==>t of libraries for link line in Makefile
    my $slash = $conf->data->get('slash');
    $TEMP_charset <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	38755	38854	
==>gnore => ['<[^>]*/>']} );

(also see L<"gen_delimited_pat"> below).


=item C<fail =E<gt> $str>

The <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	47987	48089	
==>source2)
  #  returns the parse trees of $source1 and $source2.
  # Good in things like: &ok( Class->du <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	762	852	
==>NIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Left is not Value!" unless UNIV <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	774	864	
==>NIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Left is not Value!" unless UNIV <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	17856	17968	
==>s( $self->{Have_Plan} ) {
        require Carp;
        Carp::croak("You tried to run tests without a plan!  Gott <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	18721	18833	
==>s( $self->{Have_Plan} ) {
        require Carp;
        Carp::croak("You tried to run tests without a plan!  Gott <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37413	37500	
==>goto INS_TRANS_CP_LOOP_CHK_$name
INS_TRANS_CP_LOOP_$name:
type_trans = pop stypes
dec po <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692523	692874	
==>i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 778,
                  "ARGS" => [
                              "i",
                              "i",
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614164	614297	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "cl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615314	615447	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "cl <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	3973	4089	
==>/[({</])}>/)
        {
		return _fail $wantarray, $textref,
			     "Did not find a suitable bracket in delimiter: \" <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25978	26065	
==>ush @{$code{$seg}->{code}}, <<NEXT;
	add $ps->{var}, $ps->{var}, FORLOOP_STEP_$ps->{num} <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26163	26250	
==>ush @{$code{$seg}->{code}}, <<NEXT;
	add $ps->{var}, $ps->{var}, FORLOOP_STEP_$ps->{num} <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5382	5498	
==>$nberror=0;
	($$token,$$value)=(undef,undef);
	@$stack=( [ 0, undef ] );
	$$check='';

    while(1) {
        m <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5123	5233	
==>$nberror=0;
	($$token,$$value)=(undef,undef);
	@$stack=( [ 0, undef ] );
	$$check='';

    while(1) {
        m <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	6907	7008	
==>y
# have a valid previous value anyway; I think that'll only come in for
# situations like (R)*, which <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11830	12021	
==>arg1'   => $last_key->[0],
                        'arg2'   => undef,
                        'result' => $result,
                    );
                    return [ $defn, \@opcodes, $as <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10026	10201	
==>arg1'   => $last_key->[0],
                    'arg2'   => undef,
                    'result' => $result,
                );
                return [ $defn, \@opcodes, $as <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8873	9016	
==>arg1'   => $last_key->[0],
            'arg2'   => undef,
            'result' => $result,
        );
        return [ $defn, \@opcodes, $as <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824970	825328	
==>> [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 934,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 133 \"s <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	10813	10925	
==>$rx_input, $rx_pos, $rx_stack) = @_;');
#    }

    if ($self->{DEBUG}) {
        push @ops, qq(print "Calling $n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46481	46583	
==>UMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "debug", <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	43275	43370	
==>full Perl quotelike operations are all extracted correctly.

Note too that, when using the /x mo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314344	314573	
==>ME" => "conv_i1_ovf",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "C <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33305	33462	
==>number'} .
              "' instead of the expected '=item $expected_value'"
            );
            $para->[1]{'number'} = $expected_value;  # correcting! <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	26155	26299	
==>$label, 'bare', undef);

      next;
    }

    #
    # Conditional Continuations:
    #
    #   } elsif (<value> <op> <value>) {
    #

    if ( <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43850	43978	
==>> 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 205,
			'functioncall' => 31, <==
3	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	238	347	
==>cflags = $conf->data->get('ccflags');
    if ($ccflags !~ /-pthread/) {
        $ccflags .= ' -pthread';
    } <==
3	/Users/nnunley/parrot/config/init/hints/netbsd.pm	146	255	
==>cflags = $conf->data->get('ccflags');
    if ($ccflags !~ /-pthread/) {
        $ccflags .= ' -pthread';
    } <==
3	/Users/nnunley/parrot/config/init/hints/openbsd.pm	238	347	
==>cflags = $conf->data->get('ccflags');
    if ($ccflags !~ /-pthread/) {
        $ccflags .= ' -pthread';
    } <==
3	/Users/nnunley/parrot/lib/Test/More.pm	13340	13469	
==>esets $!
        my $rslt = eval { $object->isa($class) };
        if( $@ ) {
            if( $@ =~ /^Can't call method "isa" on u <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8488	8586	
==>_tests_failed) {
        $*ERR.say("# Looks like you failed $Test::num_of_tests_failed tests of $Te <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600122	600215	
==>^+3}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601198	601291	
==>^+3}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	988	1140	
==>nt *",
       l => "long",
       4 => "long *",
       c => "char",
       s => "short",
       2 => "short *",
       f => "float",
       d => "double <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	1403	1555	
==>nt *",
       l => "long",
       4 => "long *",
       c => "char",
       s => "short",
       2 => "short *",
       f => "float",
       d => "double <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	2308	2460	
==>nt *",
       l => "long",
       4 => "long *",
       c => "char",
       s => "short",
       2 => "short *",
       f => "float",
       d => "double <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	869	974	
==>ted by $svnid
 *  Overview:
 *     This file contains various charset tables.
 *  Data Structure and Algor <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2441	2528	
==>perl -MPod::Simple::DumpAsXML -e \
   "exit Pod::Simple::DumpAsXML->filter(shift)->any_e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864179	864457	
==>}}));\n  }\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	865071	865349	
==>}}));\n  }\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
3	/Users/nnunley/parrot/config/auto/cgoto.pm	1936	2035	
==>IR)/core_ops_cgp$(O)',
            TEMP_cg_r => '$(RM_F) $(INC_DIR)/oplib/core_ops_cg.h $(OPS_DIR)/c <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	5480	5597	
==>w_help();
    exit(0);
}

unless (@ARGV) {
    show_help();
    exit(1);
}

sub warn_if_both {
    my ($a, $b, $sa, $s <==
3	/Users/nnunley/parrot/config/inter/types.pm	874	1014	
==>like your integers to be?", $intval);
        $floatval = prompt("And your floats?",                                $floatval);
        $opco <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24743	24839	
==>el, $omode, $bad, $ignore);

		return _fail(wantarray, $textref) unless @match;
		return _succeed <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7577	7671	
==>el, $omode, $bad, $ignore);

	return _fail(wantarray, $textref) unless @match;
	return _succeed <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028442	1028671	
==>ROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sleep",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029293	1029522	
==>ROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sleep",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030134	1030363	
==>ROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sleep",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819151	819508	
==>RGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 928,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#lin <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	829	945	
==>fo.pasm"'],
  ['',             'interpinfo', 'P0', '.INTERPINFO_CURRENT_SUB'],
  ['',             'invokecc'],
  ['', <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	5071	5166	
==>e($self,$line,$file)>

Generates the C pre processor string for a #line directive, or an empty s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540369	540472	
==>src/ops/math.ops\"\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541621	541724	
==>src/ops/math.ops\"\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542873	542976	
==>src/ops/math.ops\"\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547585	547849	
==>=> 0,
                  "NAME" => "fact",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548491	548755	
==>=> 0,
                  "NAME" => "fact",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	21933	22032	
==>ed in conjunction with
a failing test (C<ok() || diag()>) it "passes through" the failure.

    retu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731092	731450	
==>> [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 820,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 124 \"src <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	841	930	
==>preter->code->base.data))
#define CUR_OPCODE cur_opcode
#define IREG(i) REG_INT(cur_opcode <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	957	1046	
==>preter->code->base.data))
#define CUR_OPCODE cur_opcode
#define IREG(i) REG_INT(cur_opcode <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	4121	4265	
==>t, $op2, $dest ]);
    } else {
        my $testop = rop('test', [ $op1, $rev_test, $op2,
                                   rop('goto', [ $conti <==
3	/Users/nnunley/parrot/Configure.pl	6817	6933	
==>t build cgoto core - recommended when short of mem
   --jitcapable         Use JIT
   --execcapable        Use JIT to <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	16656	16769	
==>= temp('N');
	$n = temp($t = 'N');
	print <<"EOC";
	$nl = $l->[1]
	$nr = $r->[1]
	$n = pow $nl, $nr $cmt
EOC
    } <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2680	2793	
==>("esi") = cur_op;
    register char *   _reg_base   asm ("edi");
#else
    opcode_t *cur_opcode = cur_op;
    char <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3249	3362	
==>("esi") = cur_op;
    register char *   _reg_base   asm ("edi");
#else
    opcode_t *cur_opcode = cur_op;
    char <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	5540	5635	
==>c = "Parrot_DynOp_${base}${suffix}_$mmp_v";

print HEADER $preamble;
if ($dynamic_flag) {
    pr <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	18385	18512	
==>P_IF_TRUE($arg, $rest, "\t# JUMP_IF_FALSE");
    }
    else {
	my $tos = pop @stack;
	my $n = temp($tos->[2]);
	print <<EOC;
	$n <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3351	3459	
==>s{fn} or exists $props{fnlib}) {
    my $fnlib;

    if (exists $props{fnlib} and $props{fnlib}) {
      $fnl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6015	6123	
==>s{fn} or exists $props{fnlib}) {
    my $fnlib;

    if (exists $props{fnlib} and $props{fnlib}) {
      $fnl <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	247	339	
==>ev/parrot_api.pl [libfile]

=head1 DESCRIPTION

Displays the API (the visible symbols, code o <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	36052	36202	
==>th 255.

So the exit codes are...

    0                   all tests successful
    255                 test died
    any other number    how many fail <==
3	/Users/nnunley/parrot/lib/Test/More.pm	34123	34273	
==>th 255.

So the exit codes are...

    0                   all tests successful
    255                 test died
    any other number    how many fail <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2918	3068	
==>th 255.

So the exit codes are...

    0                   all tests successful
    255                 test died
    any other number    how many fail <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9455	9552	
==>we've got a return or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6969	7066	
==>we've got a return or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5525	5622	
==>we've got a return or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_${CURIC}

# It's <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161966	162140	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 183 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162863	163037	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 183 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163760	163934	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 183 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}} <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6718	6824	
==>are a
	# problem (for me at least) because the browser thinks it should
	# download the file.
	
	if ( $self <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565720	565808	
==>/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->can(interpreter, {{\@2}}, {{\@3}});\n  {{+=4} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566613	566701	
==>/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->can(interpreter, {{\@2}}, {{\@3}});\n  {{+=4} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	273	370	
==>val "use warnings";

package Jako::Compiler;

use Carp;
use FileHandle;

use base qw(Jako::Process <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	14024	14146	
==>ld
EOC
}

sub MAKE_FUNCTION
{
    my ($n, $c, $cmt) = @_;
    my $tos = pop @stack;
    my $f;
    $tos->[1] =~ /<code> (\S <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37318	37407	
==>CE?'':'
		Parse::RecDescent::_trace(q{Trying repeated subrule: [' . $self->describe . ']}, <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	2730	2844	
==>_rxlocals {
    my ($self) = @_;

    my $rxlocals = ($self->{rxlocals} ||= []);
    return (aop(comment => [ "save <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	2967	3076	
==>_rxlocals {
    my ($self) = @_;
    my $rxlocals = ($self->{rxlocals} ||= []);
    return (aop(comment => [ " <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	2506	2606	
==>ether by C<$delim>.

Accepts a delimiter value followed by a list of C<key => value> pairs and
return <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2751	2867	
==>def;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHECK}}='ACCEPT';
    undef;
}

sub YYError {
	my($sel <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	5858	5966	
==>g
    # newlines, so *this* line is (number of newlines plus one).
    # But that's the number for *this* lin <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2626	2731	
==>def;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHECK}}='ACCEPT';
    undef;
}

sub YYError {
	my($sel <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	1372	1500	
==>while (<F>) {
            if (
                m!
	        &gen_from_(enum|def|template)\((.*?)\)
		(\s+prefix\((\w+)\))?
		(\s+s <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15798	15895	
==>ion
y=66.66
u=foo()

' Bubble sort cities
TRUE=1
FALSE=0
DIM A$(4)
A$(1) = "New York"
A$(2) = "Bos <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15178	15274	
==>y look something
like this:

  multi sub is_deeply (Array @got, Array @expected, Str $desc?) retu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565761	566016	
==>e->can(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566654	566909	
==>e->can(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	6865	6956	
==>upplied object files.\n", scalar(@internal_symbols), scalar(@files));
    printf("Found %d e <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2426	2518	
==>d1 SYNOPSIS

  perl -MPod::Simple::DumpAsXML -e \
   "exit Pod::Simple::DumpAsXML->filter(shi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147273	147363	
==>cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) == {{\@2}}) {\n    {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148214	148304	
==>cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) == {{\@2}}) {\n    {{+= <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	373	463	
==>ure::Step::Base);

use Parrot::Configure::Step ':gen';

$description = 'Generating runtime/ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	39639	39739	
==>op over keys to look for automagicals and build up declaration list.
	my $decls = "";
	for (keys %$mv <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676024	676114	
==>ps/pmc.ops\"\n    {{\@1}}->vtable->unshift_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676804	676894	
==>ps/pmc.ops\"\n    {{\@1}}->vtable->unshift_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3807	3904	
==>meter '$prm'");
			ref($value) eq $$checklist{$prm}
		or	croak("Invalid value for parameter '$pr <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3612	3707	
==>meter '$prm'");
			ref($value) eq $$checklist{$prm}
		or	croak("Invalid value for parameter '$pr <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2992	3085	
==>turns the directory's parent directory. The root directory returns
C<undef>.

=cut

sub parent <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6612	6757	
==>e} || return;
    
    if ( $tagname eq 'item-text' )
    {
        $self->{IN_ITEM_TEXT} = 1;
    }
    
    my @to_unget;
    
    # Get all the <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2031	2140	
==>bless($self,$class);
}

sub YYParse {
    my($self)=shift;
    my($retval);

	_CheckParams( \@params, \ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1959	2061	
==>bless($self,$class);
}

sub YYParse {
    my($self)=shift;
    my($retval);

	_CheckParams( \@params, \ <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	836	934	
==>familiar types, but from which descriptions were not obtained.

=back

=head1 TO DO

=over

=item * <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28843	28955	
==>{
			die "pir must use one of \${DEST0} or \${LOADREG} in rule " .
				"$rule->{'name'}\n";
        } elsif ($rul <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29049	29155	
==>{
			die "pir must use one of \${DEST0} or \${LOADREG} in rule " .
				"$rule->{'name'}\n";
		} elsif ($rul <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	651	745	
==>>.

It does NOT generate the F<MANIFEST> file that F<Configure.pl> checks
and the manifest chec <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1123	1239	
==>.\n", __PACKAGE__, $ident->value;

  return $self;
}


#
# ACCESSORS:
#

sub type      { return shift->{TYPE};      } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85588	85678	
==>H);\n  {{\@1}} = VTABLE_get_pmc_keyed_str(interpreter, compreg_hash, {{\@2}});\n  {{+=3}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86495	86585	
==>H);\n  {{\@1}} = VTABLE_get_pmc_keyed_str(interpreter, compreg_hash, {{\@2}});\n  {{+=3}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293403	293496	
==>ODY" => "#line 945 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294279	294372	
==>ODY" => "#line 945 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295155	295248	
==>ODY" => "#line 945 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}} <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	10590	10692	
==>urn ("","","") unless defined $$textref;
	my $pre  = defined $_[1] ? $_[1] : '\s*';

	my @match = _matc <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31876	31991	
==>thods}[$n], $line, $out_name);
    }
    my $parameters = $method->{parameters};
    my $n=0;
    my @args = grep {$ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33453	33568	
==>thods}[$n], $line, $out_name);
    }
    my $parameters = $method->{parameters};
    my $n=0;
    my @args = grep {$ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40510	40625	
==>thods}[$n], $line, $out_name);
    }
    my $parameters = $method->{parameters};
    my $n=0;
    my @args = grep {$ <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	2220	2325	
==>rsion' doesn't work
    if ($stdout =~ /Bison .*? (\d+) \. (\d+) (\w)? /x) {
        $conf->data->set(biso <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16121	16215	
==>he vtable methods. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name <==
3	/Users/nnunley/parrot/config/auto/jit.pm	10	100	
==>t (C) 2001-2006, The Perl Foundation.
# $Id: /parrot/config/auto/jit.pm 20320 2006-06-20T19 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104420	104802	
==>_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 130,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#li <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2779	2884	
==>n routine should be skipped"
Label1:
   PRINT "5 back in module-level code"
   END
Sub1:
   PRINT "2 in su <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16746	16851	
==>n routine should be skipped"
Label1:
   PRINT "5 back in module-level code"
   END
Sub1:
   PRINT "2 in su <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549350	549484	
==>' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethodcc", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550650	550784	
==>' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethodcc", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551951	552085	
==>' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethodcc", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946364	946635	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_charset",
                  "FLAGS" => ":base <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947265	947536	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_charset",
                  "FLAGS" => ":base <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11511	11613	
==>urn (<rx_match>)");
}

sub output_rule_fail {
    my ($self, $name) = @_;
    return ($self->output_mat <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6574	6726	
==>I = 2 TO Max
      IF A$(I-1) > A$(I) THEN
         Exchange = TRUE
         B$=A$(I-1)
         A$(I-1)=A$(I)
         A$(I)=B$
         ' SWAP A$(I - 1 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16227	16379	
==>I = 2 TO Max
      IF A$(I-1) > A$(I) THEN
         Exchange = TRUE
         B$=A$(I-1)
         A$(I-1)=A$(I)
         A$(I)=B$
         ' SWAP A$(I - 1 <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10924	11044	
==>tin1Code_to_fallback) {
    $Latin1Char_to_fallback{chr $k} = $v;
    #print chr($k), ' => ', $v, "\n";
  }
}

#--------- <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	2425	2547	
==>b new {\n";
    $out .= "    my (\$class, \%init) = \@_;\n";
    $out .= "    \$class = __PACKAGE__ unless \@_;\n";

    my <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6192	6290	
==>1
FALSE=0
DIM A$(4)
A$(1) = "New York"
A$(2) = "Boston"
A$(3) = "Chicago"
A$(4) = "Seattle"
Max = 4 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15845	15943	
==>1
FALSE=0
DIM A$(4)
A$(1) = "New York"
A$(2) = "Boston"
A$(3) = "Chicago"
A$(4) = "Seattle"
Max = 4 <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	15146	15292	
==>pts);

    # Check for qr/foo/
    if( ref $regex eq 'Regexp' ) {
        $usable_regex = $regex;
    }
    # Check for '/foo/' or 'm,foo,'
    els <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632398	632539	
==>"
                            ],
                  "BODY" => "#line 91 \"src/ops/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vt <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633440	633581	
==>"
                            ],
                  "BODY" => "#line 91 \"src/ops/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vt <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	15540	15650	
==>O -- wha?), etc. for all directives
  # 

  my $self = $_[0];
  my $paras;
  return unless @{$paras = $self->{' <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16288	16405	
==>HTML didn't check this.
            return $x unless $x;
            $x =~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864007	864118	
==>ne 143 \"src/ops/string.ops\"\n  UINTVAL n;\n  STRING *s = {{\@2}};\n  if (!s)\n    n = 0;\n  else {\n    n = s- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864899	865010	
==>ne 143 \"src/ops/string.ops\"\n  UINTVAL n;\n  STRING *s = {{\@2}};\n  if (!s)\n    n = 0;\n  else {\n    n = s- <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	388	484	
==>t
should be inherited by all configuration steps.

=head1 USAGE

=head2 Import Parameters

This m <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	783	878	
==>ype (" . ref($type) . ") is not!"   if defined $type and not UNIVERSAL::isa($type, qw(Jako::Cons <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	666	758	
==>ype (". ref($type) . ") is not!" if defined $type and not UNIVERSAL::isa($type, qw(Jako::Cons <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	3322	3485	
==>ture the exit code
            my $exit_code = Parrot::Test::run_command(
                $cmd,
                %{$run_options},
            );

            ## read <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	26137	26248	
==>$rdel = $ldel;
	$rdel =~ tr/{[(</}])>/;

	my $mod = $_[3];

	my $desc;

	if ($ldel eq '/') { $desc = "$ldel$patt <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19258	19346	
==>er->{_AUTOACTION}{code}")
		and
		Parse::RecDescent::_hint("The \$::RD_AUTOACTION was def <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952155	952424	
==>TYPE" => "function",
                  "CODE" => 1071,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 540 \"src/ops/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8877	8968	
==>ntry(interpreter,\n\t    enum_fixup_label, label);\n    if (!fe)\n\tinternal_exception(1, \" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9993	10084	
==>ntry(interpreter,\n\t    enum_fixup_label, label);\n    if (!fe)\n\tinternal_exception(1, \" <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	9207	9342	
==>'7',
   56, '8',
   57, '9',
   58, ':',
   59, ';',
   60, '<',
   61, '=',
   62, '>',
   63, '?',
   64, '@',
   65, 'A',
   66, 'B', <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714594	714686	
==>T(interpreter);\n  if (s && string_length(interpreter, s)) {\n    if (PIO_softspace(interpret <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715517	715609	
==>T(interpreter);\n  if (s && string_length(interpreter, s)) {\n    if (PIO_softspace(interpret <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	84	198	
==>options) = @_;
    my $self = bless \%options, (ref($proto) || $proto);
    $self->init();
    return $self;
}

sub <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	251	365	
==>options) = @_;
    my $self = bless \%options, (ref($proto) || $proto);
    $self->init();
    return $self;
}

sub <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	592	706	
==>options) = @_;
    my $self = bless \%options, (ref($proto) || $proto);
    $self->init();
    return $self;
}

sub <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	34510	34625	
==>[1]{'type'} = 'man';
          # This's the only place where man links can get made.
          $treelet->[$i][1]{'co <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5416	5520	
==>up all triggers on configuration key $key\n"
        if $verbose;

    return CORE::keys %{$self->{trigge <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	1908	2012	
==>ommon qw/comment/;
use Getopt::Long;
use strict;

if(1) {
    my $show_full = 0;
    GetOptions('plus-mis <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	56253	56378	
==>[#Rule 83
		 'primary', 1, undef
	],
	[#Rule 84
		 'primary', 3,
sub
#line 444 "Lua\lua51.yp"
{
            BuildParen <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	1537	1660	
==>my @r;
    my $curlabel = "\t";
    for my $op (@_) {
	if (! ref($op)) {
	    push @r, $curlabel . $op;
	    $curlabel = "\t <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	856	948	
==>e; }
}

my $ident_re = make_re('[A-Za-z_][A-Za-z0-9_]*');
my $type_re = make_re('(?:(?:struct <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	8919	9108	
==>->{outer})";
        }
        print {$FH} "\n";
    }

    sub visitEndDir {
        my $self  = shift;
        my ($dir) = @_;
        my $FH    = $self->{fh};
        print {$FH} <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	43	146	
==>rs qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

$VERSION   = '0.01';
@ISA       = qw(Exporter);
@ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	46	149	
==>rs qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

$VERSION   = '0.01';
@ISA       = qw(Exporter);
@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563295	563467	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addmethod",
                  "FLAGS" => ":object_classes" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564192	564364	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addmethod",
                  "FLAGS" => ":object_classes" <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	4970	5070	
==>, 0755) or die "$0: Could not mkdir $moddir: $!!\n";
}
open MODULE, ">$module"
  or die "$0: Could no <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	67395	67562	
==>ahead,
								       $line,
								       $desc,
								       $matchrule,
								       $argcode);
	 
				$prod and $prod->additem($item)
				      or  _no_rule("( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	7797	7930	
==>iguous chunks of
        # things with and without maximum lengths
        my $havemax = 0;
        my @chunks = ([]);

        foreac <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	9991	10090	
==>q "STRING" and not $fd and
			( $type[NEXT] eq "STMT" or $type[NEXT] eq "COMP" or $type[NEXT] eq "CO <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	68201	68311	
==>~ m/$OTHER/gco   )
		{
			_error("Untranslatable item encountered: \"$1\"",
			       $line);
			_hint("Did you <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78975	79067	
==>void * const p = Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? NULL : PMC_data({{\@2}}), name);\n  stri <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80496	80588	
==>void * const p = Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? NULL : PMC_data({{\@2}}), name);\n  stri <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499515	499766	
==>oatval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500278	500529	
==>oatval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10621	10713	
==>LEMENT_TYPE_BOOLEAN = 0x02
	.const int ELEMENT_TYPE_CHAR = 0x03
	.const int ELEMENT_TYPE_I1 = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550066	550159	
==>next = {{^+3}};\n  interpreter->current_object = object;\n  interpreter->current_cont = NEED_C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551367	551460	
==>next = {{^+3}};\n  interpreter->current_object = object;\n  interpreter->current_cont = NEED_C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552709	552802	
==>next = {{^+3}};\n  interpreter->current_object = object;\n  interpreter->current_cont = NEED_C <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	2675	2791	
==>_bench    => [],
    skip_bench   => [],
);

# Read Command Line Options
GetOptions(
    'conf=s'       => \$cfg{conf <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27297	27408	
==>push @opcodes, new BranchOp( $parser,
        'result' => $l_continue,
    );
    push @opcodes, new LabelOp( <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28176	28287	
==>push @opcodes, new BranchOp( $parser,
        'result' => $l_continue,
    );
    push @opcodes, new LabelOp( <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	5086	5194	
==>nt for getting TODO tests right.

=cut

sub exported_to {
    my($self, $pack) = @_;

    if( defined $pack ) <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	6315	6423	
==>Each level of the hierarchy should be
    # indented two spaces.

    # there are two exceptions.  The outerm <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	55883	55987	
==>e);
				$code =~ s/\A\s*<token:(.*)>\Z/$1/s;

				my $types = eval 'no strict; local $SIG{__WARN__} = sub <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	6	114	
==>/bin/perl

use strict;
use warnings;

use Fatal qw{open};

# get a list of all the builtins we have.

my @com <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	1507	1610	
==>!!!
 *
 * This file is generated automatically from '$infile'
 * by $0.
 *
 * Any changes made here will <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	3796	3899	
==>!!!
 *
 * This file is generated automatically from '$infile'
 * by $0.
 *
 * Any changes made here will <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2304	2414	
==>head3       { $_[0]->emit_par(-2) }
sub end_head4       { $_[0]->emit_par(-1) }
sub end_Para        { $_[0]->em <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1872	1982	
==>head3       { $_[0]->emit_par(-2) }
sub end_head4       { $_[0]->emit_par(-1) }
sub end_Para        { $_[0]->em <==
3	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	2374	2480	
==>e);

package ParamDir;
use base qw(Lua::opcode);

package LocalDir;
use base qw(Lua::opcode);

pack <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3709	3821	
==>pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert X.c -> X.o for all X.c
    compile <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3813	3925	
==>pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert X.c -> X.o for all X.c
    compile <==
3	/Users/nnunley/parrot/config/auto/signal.pm	1173	1281	
==>$@ || cc_run() !~ /ok/) {
        $conf->data->set(has_sigaction => 'define');
        print " (sigaction)" i <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	34608	34718	
==>eelet->[$i][1]{'content-implicit'} = 'yes';
          $treelet->[$i][1]{'to'  } =
            Pod::Simple::Link <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	35186	35296	
==>eelet->[$i][1]{'content-implicit'} = 'yes';
          $treelet->[$i][1]{'to'  } =
            Pod::Simple::Link <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	19233	19340	
==>print_tree($include, $depth + 1, lc("$_.pmc"))
            for keys %{$class->{flags}{extends}};
    }
}

=h <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2869	2978	
==>)=shift;

	${$$self{CHECK}}='ERROR';
    undef;
}

sub YYSemval {
	my($self)=shift;
	my($index)= $_[0] <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2733	2834	
==>)=shift;

	${$$self{CHECK}}='ERROR';
    undef;
}

sub YYSemval {
	my($self)=shift;
	my($index)= $_[0] <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	2546	2645	
==>one is generated which sets up the vtable and enters it into
the C<vtables> array.

The .c file is g <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288342	288616	
==>{\@1}} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289198	289472	
==>{\@1}} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290054	290328	
==>{\@1}} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	10449	10670	
==>seen_op = 0;

            next;
        }

        #
        # Accumulate the code into the op's body:
        #

        if ($seen_op)
        {
            $body .= $_;
        }
        else
        {
            die "P <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4	103	
==>Parser.pm
#
# Copyright (C) 2001-2005, The Perl Foundation.
# This program is free software. It is s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	195	284	
==>Jako/Construct/Expression/Value.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23072	23293	
==>eter, p, dest);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25511	25732	
==>eter, p, dest);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	2862	3028	
==>efile',
        commentType                         => '#',
        replace_slashes                     => 1
    );
    genfile(
        'config/gen/makefiles/editor.i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	933351	933574	
==>inplace(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	935565	935788	
==>inplace(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937785	938008	
==>inplace(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20245	20355	
==>marker=$th{$type};
			} else {
				$marker='USER';
			}
			push(@types, [ $name, $type, $marker ]);
			feedme() <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	10594	10695	
==>Descent::_trace(q{>>Accepted scored production<<}, "",
					  q{' . $self->{"name"} .'})
						if defi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714707	714802	
==>IO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n    P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715630	715725	
==>IO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n    P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716575	716670	
==>IO_puts(interpreter, io, \" \");\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n    P <==
3	/Users/nnunley/parrot/config/inter/make.pm	2069	2176	
==>d+) \. (\d+)/x) {
        $conf->data->set(gmake_version => "$1.$2");
    }

    $conf->data->set($util => $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117913	118147	
==>s/bit.ops\"\n  {{\@1}} >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118652	118886	
==>s/bit.ops\"\n  {{\@1}} >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	41383	41482	
==>obj($func_obj, @_);
  $self->_restore($func_obj);

  return $return;
}

sub _call_function_obj {
  m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853366	853589	
==>{\@1}} = string_append(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854148	854371	
==>{\@1}} = string_append(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/config/auto/byteorder.pm	8	98	
==>ght (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/config/auto/byteorder.pm 19593 2006- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846698	846934	
==>reter, (UINTVAL){{\@2}});\n  {{\@1}} = s;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847494	847730	
==>reter, (UINTVAL){{\@2}});\n  {{\@1}} = s;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	483	628	
==>configure {
        my $self = shift;
        my %attr = @_;
        while ( my ( $key, $value ) = each(%attr) ) {
            if ( defined $v <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17860	17986	
==>nt "Faking out a =for $target as a =begin $target / =end $target\n";
      
      $para->[0] = 'Data';
      
      unshift @$p <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	217	319	
==>le::DEBUG unless defined &DEBUG;
}

__PACKAGE__->_accessorize(
  'root',   # root of the tree
);

#~~~~ <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	14353	14469	
==>F_TEMPLATE

# Generate all variants for scalar dyadic ops.
my @type_pairs = (
  [ 'Float', 'Float' ],
  [ 'Float', 'A <==
3	/Users/nnunley/parrot/tools/dev/symlink.pl	1468	1578	
==>EST>) {
	next if /^\#/;
	if (/^(.+?)\s+\[/) {
	    my $manifile = $1;
	    my @manifile = split('/', $manifile) <==
3	/Users/nnunley/parrot/config/auto/inline.pm	533	635	
==>y ($self, $conf) = @_;

    my $test;
    my ($inline, $verbose) = $conf->options->get(qw(inline verbos <==
3	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	211	306	
==>IFEST.SKIP

=head1 SYNOPSIS

    % perl tools/dev/gen_manifest_skip.pl > MANIFEST.SKIP

=head1 D <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14983	15074	
==>scape{$1}/g;  # ESCAPER
      s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)- <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16166	16257	
==>scape{$1}/g;  # ESCAPER
      s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)- <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	47061	47207	
==>104 "Lua\lua51.yp"
{
            PushScope( $_[0] );
        }
	],
	[#Rule 14
		 'stat', 6,
sub
#line 108 "Lua\lua51.yp"
{
            Bu <==
3	/Users/nnunley/parrot/languages/pugs/t/pmc.pm	697	814	
==>_group"
.sub _main
    .local pmc pmc1
    .local string typ
    pmc1 = new .$type
    typ = typeof pmc1
    print typ <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	1242	1338	
==>ot" or die "Supply Parrot directory as argument!";
my @ops_files = map { "$parrot/$_"} grep /\.op <==
3	/Users/nnunley/parrot/config/auto/msvc.pm	1418	1534	
==>nor) {
        print " (no) " if $verbose;
        $self->set_result('no');
        $conf->data->set(msvcversion => u <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4247	4350	
==>urn;
	}
	my($fname)=__FILE__;
	my(@drv);
	open(DRV,"<$fname") or die "Report this as a BUG: Cannot o <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4031	4130	
==>urn;
	}
	my($fname)=__FILE__;
	my(@drv);
	open(DRV,"<$fname") or die "Report this as a BUG: Cannot o <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1676	1855	
==>e_ext  => '.dll',
            load_ext   => '.dll',
            a          => '.lib',
            o          => '.obj',
            cc_o_out   => '-Fo',
            cc_exe_out => ' <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3555	3734	
==>e_ext  => '.dll',
            load_ext   => '.dll',
            a          => '.lib',
            o          => '.obj',
            cc_o_out   => '-Fo',
            cc_exe_out => ' <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	5168	5270	
==>rint the preamble for the HEADER and SOURCE files:
#

my $preamble = <<END_C;
/* ex: set ro:
 * !!!!!!! <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	603345	603568	
==>DE" => 683,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 404 \"src/ops/object.ops\"\n    {{\@1}} = VTABL <==
3	/Users/nnunley/parrot/config/gen/platform.pm	1480	1582	
==>RM_H, "> include/parrot/platform.h"
        or die "Can't open include/parrot/platform.h: $!";

    pri <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10305	10413	
==>f, $verbose);
    }

    my $output = _slurp('./test.out');

    return $output;
}

=item C<cc_run_capture()> <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	13265	13358	
==>tmpl_loop name=summary>
	      <td class="leftsep num tests_total"><tmpl_var name=total>:</td> <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	2468	2608	
==>ed to be optional.\n"
            if $arg->{option} and not $arg->{optional};
            
        push @results, $arg;
    }
    
    return <==
3	/Users/nnunley/parrot/Configure.pl	6556	6662	
==>he given type for INTVAL
   --floatval=(type)    Use the given type for FLOATVAL
   --opcode=(type)      Us <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819657	819751	
==>!entry) {\n    internal_exception(99, \"Stack Depth wrong\");\n  }\n  {{\@1}} = get_entry_type( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820617	820711	
==>!entry) {\n    internal_exception(99, \"Stack Depth wrong\");\n  }\n  {{\@1}} = get_entry_type( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	831	936	
==>($kind eq 'if' or $kind eq 'unless') {
    $left  = $self->left->compile($compiler);
    $op    = $self->o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846248	846621	
==>_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 960,
                  "ARGS" => [
                              "s",
                              "i"
                            ],
                  "BODY <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719925	720013	
==>\n  s = Parrot_sprintf_c(interpreter, \"%.12g\", (double){{\@2}});\n  PIO_putps(interpret <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721125	721213	
==>\n  s = Parrot_sprintf_c(interpreter, \"%.12g\", (double){{\@2}});\n  PIO_putps(interpret <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959928	960128	
==>ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 590 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_ <==
3	/Users/nnunley/parrot/config/auto/gc.pm	2105	2202	
==>",
\$(SRC_DIR)/res_lea\$(O):	\$(GENERAL_H_FILES) \$(SRC_DIR)/res_lea.c
EOF
            TEMP_gc_o = <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	22701	22823	
==>ld = defined($1) ? $1 : $& }
				$pref ||= "";
				if (defined($field) && length($field))
				{
					if (!$igunk) {
						$ <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	276	372	
==>e gen::core_pmcs;

use strict;
use warnings;

use base qw(Parrot::Configure::Step::Base);

use Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	2769	2927	
==>et\");\n# endif\n#endif\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARR <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	3025	3153	
==>eturn $var;
}

sub InsertList {
    my ( $parser, $vars ) = @_;

    for my $var ( @{$vars} ) {
        Insert( $parser, $ <==
3	/Users/nnunley/parrot/tools/build/vtable_extend.pl	1037	1132	
==>rot
bytecode) may access.

There is a deliberate distancing from the internals here. Don't go
pe <==
3	/Users/nnunley/parrot/config/auto/inline.pm	1195	1335	
==>t) " if $verbose;
            $self->set_result('yes');
        } else {
            print " no " if $verbose;
            $self->set_result( <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	30145	30256	
==>" attribute (which might be next, or a treelet)
# Fourth:
# The section (AKA "item" in older perlpods), or undef <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	13490	13584	
==>lasses. The element is not initialized
by default.

The accessor's argument, if any, is assigne <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	3379	3485	
==>s = '';
        $parent_headers .= "src/pmc/pmc_$_.h " foreach (pmc_parents($pmc));
        $TEMP_pmc_build <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	30514	30604	
==>atch = $self->genlabel('rule_try_match');
    my $backup = $self->genlabel('rule_backtrack' <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3208	3319	
==>'ld'));

        # We can't use -opt: and -debug together.
        if ($conf->data->get('ld_debug') =~ /-debug/) <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4712	4823	
==>'ld'));

        # We can't use -opt: and -debug together.
        if ($conf->data->get('ld_debug') =~ /-debug/) <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	4673	4784	
==>URR]}\t# Goto $syms[CURR]\n";
		}
		$elsetag++;
		goto PARSE;
	}
	if ($syms[CURR] eq "elseif") {
		my $c;
		$c=p <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1501	1634	
==>cc: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
        return "return (0);"
    }
    else
    {
        return "if ((opcode_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2026	2158	
==>cc: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
        return "return (0);"
    }
    else
    {
  	    return "if ((opcode_ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	14967	15082	
==>t;
		}
		@a=EXPRESSION();   # CURR = "to", "," or EOL.
		feedme();
		if ($syms[CURR] eq "," or 
			$type[CURR] eq "S <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54756	54892	
==>ord($1)).'}'>eg;
      }
      qq{"$_"};
    }
  } @stuff;
  # $out =~ s/\n */ /g if length($out) < 75;
  return $out;
}

#@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	34117	34231	
==>_results);

        if( $self->{Curr_Test} < $self->{Expected_Tests} ) {
            my $s = $self->{Expected_Tests <==
3	/Users/nnunley/parrot/lib/Test/More.pm	7308	7412	
==>the result of that to
determine if the test succeeded or failed.  So these:

    # Is the ultimate answer <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	3366	3538	
==>*/\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS",
                  "NAME" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	3917	4089	
==>*/\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS",
                  "NAME" => " <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	39506	39671	
==>.
# #########################################################
sub insert_automagicals($$) {
	my $pir = shift;
	my $mv = shift;

	# Loop over keys to look for automagi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70886	71110	
==>\n  {{\@1}} = Parrot_load_lib(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71655	71879	
==>\n  {{\@1}} = Parrot_load_lib(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10013	10130	
==>e; # Won't get used much

sub needparen { 0 }

# Nonportable
sub isplain {
    my $ord = shift;
    return 1 if $ord > <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242019	242109	
==>ine 624 \"src/ops/cmp.ops\"\n  FLOATVAL l = VTABLE_get_number(interpreter, {{\@2}});\n  {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242968	243058	
==>ine 624 \"src/ops/cmp.ops\"\n  FLOATVAL l = VTABLE_get_number(interpreter, {{\@2}});\n  {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11843	11967	
==>to = shift;
    my $section = shift;
    
    if ( $to =~ /^Parrot::/o )
    {
        my $href = $self->href_for_perl_module <==
3	/Users/nnunley/parrot/config/auto/memalign.pm	1628	1751	
==>n();

    $conf->data->set(malloc_header => undef);

    my $f =
          $test2 ? 'posix_memalign'
        : $test  ? 'mem <==
3	/Users/nnunley/parrot/config/init/defaults.pm	5526	5643	
==>)
        make_c => '$(PERL) -e \'chdir shift @ARGV; system q{$(MAKE)}, @ARGV; exit $$? >> 8;\'',

        # if platfo <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	328	416	
==>N

This file is generated by F<config/gen/makefiles.pl> from
F<config/gen/makefiles/dynpm <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957622	957851	
==>coding '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958527	958756	
==>coding '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	40998	41131	
==>ntent]
        );
        DEBUG > 3 and print "L-to content: ", pretty($ell->[1]{'to'}), "\n";
      }
      
      # And update child <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	31372	31505	
==>a PROPER item-number element is allowed
             #  to have a number attribute.
          } else {
            die "Unhandled item <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	3306	3416	
==>s{$curlabel->{label}} = $output2[-1] if $curlabel;
	    undef $curlabel;
	}
    }

    # Second, scan for label <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3667	3775	
==>', 'I16', 0],
  ['apply_ITER',  'set', 'P3[I16]', 'P16[0]'],
  ['',            'set', 'P16', 'P16[1]'],
  ['' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678920	679164	
==>inline",
                  "CODE" => 761,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 483 \"src/ops/pmc.ops\"\n    {{\@1}}-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658287	658395	
==>2}}) ? 0 : {{\@2}}->vtable->defined_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659206	659314	
==>2}}) ? 0 : {{\@2}}->vtable->defined_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	10449	10569	
==>m_output_isnt   => 'isnt_eq',
        pasm_output_like   => 'like',
        past_output_is     => 'is_eq',
        past_o <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	691	807	
==>>, -1',
            'set <rx_match>["0";1], <rx_tmp>');
}

sub output_match_failed {
    return ('set <rx_match>["!PO <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26870	26974	
==>_cond( $parser, $expr );
    push @opcodes, @{ $cond->[1] };
    push @opcodes, new BranchUnlessOp( $pa <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2777	2881	
==>ain routine should be skipped"
Label1:
   PRINT "5 back in module-level code"
   END
Sub1:
   PRINT "2 in <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16744	16848	
==>ain routine should be skipped"
Label1:
   PRINT "5 back in module-level code"
   END
Sub1:
   PRINT "2 in <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5343	5491	
==>op->{result} } ) {
                print {$FH} ", " unless ($first);
                print {$FH} "$_->{symbol}";
                if ( exists $_->{ <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6375	6523	
==>op->{result} } ) {
                print {$FH} ", " unless ($first);
                print {$FH} "$_->{symbol}";
                if ( exists $_->{ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	262	361	
==>ss ($_[0] eq "STRING" or $_[0] eq "COMM" or $_[0] eq "DIRECTIVE") {
		$curtok=~tr/A-Z/a-z/;
	}
	push <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	2887	3031	
==>[ @$argdirs ],
        LABELS  => [ @$labels ],
        FLAGS   => $flags,
        BODY => '',
        JUMP => 0,
    };

    return bless $self, <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	1318	1413	
==>arrot/$_"} grep /\.ops$/, readdir PARROT;
closedir PARROT;


print <<END;
<?xml version="1.0" en <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3231	3355	
==>}

sub YYCurval {
	my($self)=shift;

        @_
    and ${$$self{VALUE}}=$_[0];
    ${$$self{VALUE}};
}

sub YYExpe <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3072	3186	
==>}

sub YYCurval {
	my($self)=shift;

        @_
    and ${$$self{VALUE}}=$_[0];
    ${$$self{VALUE}};
}

sub YYExpe <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1834	1934	
==>ng "text", or the string "end".

Once you know what the type of an object is, you then know what
subc <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7354	7481	
==>G}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        return ("set <rx_tmp>, <rx_stack>",
                $self->pusho <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8309	8417	
==>= $self->path_for_directory_with_name(shift) || return;
    
    return unless -d $path;
    
    return $sel <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	604	699	
==>confess("Dest (" . ref($dest) . ") is not Identifier!") unless UNIVERSAL::isa($dest, 'Jako::Cons <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	595	690	
==>confess("Dest (" . ref($dest) . ") is not Identifier!") unless UNIVERSAL::isa($dest, 'Jako::Cons <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	484	579	
==>confess("Dest (" . ref($dest) . ") is not Identifier!") unless UNIVERSAL::isa($dest, 'Jako::Cons <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	31955	32068	
==>um_groups) {
        push @ops, aop('initgroup' => [ $group ]);
    }

    push @ops, aop('setstart' => [ "0", '<r <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7284	7385	
==>ons{ignore}) eq 'ARRAY' ? join('|', @{$options{ignore}})
		    : defined($options{ignore})	       ? $o <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24286	24387	
==>ons{ignore}) eq 'ARRAY' ? join('|', @{$options{ignore}})
		    : defined($options{ignore})	       ? $o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115437	115725	
==>{\@1}} = {{\@2}} << {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116292	116580	
==>{\@1}} = {{\@2}} << {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117147	117435	
==>{\@1}} = {{\@2}} << {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932463	932663	
==>RGS" => [
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 415 \"src/ops/string.ops\"\n  {{\@1}} = string_upcase(i <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5876	5966	
==>ritten by Brent
Royal-Gordon C<brent@brentdax.com>.

=head1 AUTHOR

Joshua Hoblitt C<jhobli <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6725	6815	
==>ritten by Brent Royal-Gordon C<brent@brentdax.com>.

=head1 AUTHOR

Joshua Hoblitt C<jhobli <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	866709	867128	
==>re",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 984,
                  "ARGS" => [
                              "s",
                              "s",
                              "i"
                            ], <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4848	4953	
==>section if defined $section and length $section;
  return undef unless length $out;
  return $out;  
}


s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	58	157	
==>od::Simple::PullParserToken ();
@ISA = ('Pod::Simple::PullParserToken');
use strict;

sub new {  # C <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	60	159	
==>od::Simple::PullParserToken ();
@ISA = ('Pod::Simple::PullParserToken');
use strict;

sub new {  # C <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	59	158	
==>od::Simple::PullParserToken ();
@ISA = ('Pod::Simple::PullParserToken');
use strict;

sub new {  # C <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	697	855	
==>f      |
       | |         |
       | |_________|
       |           |
    CSwitch       CGP

=head2 Class Methods

=over 4

=cut

package Parrot::OpTrans;

u <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	7415	7514	
==>ty-string as a source for set_source");
  } elsif(ref(\( $_[0] )) eq 'GLOB') {
    $self->{'source_f <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	26870	26976	
==>ps);
}

sub rewrite_external {
    my ($self, $op, $extname, $extargs, $lastback) = @_;
    my $handler = " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349172	349264	
==>\n  {{\@1}} = PIO_open(interpreter, NULL, path, \"+<\");\n  /* string_cstring_free(path); */\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350174	350266	
==>\n  {{\@1}} = PIO_open(interpreter, NULL, path, \"+<\");\n  /* string_cstring_free(path); */\ <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	466	568	
==>ies.

=cut

use strict;

use File::Copy qw(copy);

# qq[] isn't guaranteed to work, but it's safer than <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1540	1676	
==>ose);

    unless ($prog) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    if ($conf-> <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1554	1690	
==>ose);

    unless ($prog) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    if ($conf-> <==
3	/Users/nnunley/parrot/config/init/hints/cygwin.pm	1346	1454	
==>defined on Cygwin.
    my $define = $conf->options->get('define');
    unless ($define) {
        $define = ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225477	225572	
==>n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226418	226513	
==>n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\ <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	6145	6287	
==>INVERSE_CONDITIONED_LINE\(([^)]+)\):(.*)/s) {
                next if $conf->data->get($1);
                $line = $2;
            }
        } <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	3368	3482	
==>efined $self->block->block;
}


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $ty <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	16704	16804	
==>kinds of paragraphs that require lookahead.
    #   Actually, an "=item Foo" inside an <over type=tex <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553952	554046	
==>rpreter->current_object = object;\n  interpreter->current_cont = {{\@3}};\n  interpreter->curre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555349	555443	
==>rpreter->current_object = object;\n  interpreter->current_cont = {{\@3}};\n  interpreter->curre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556737	556831	
==>rpreter->current_object = object;\n  interpreter->current_cont = {{\@3}};\n  interpreter->curre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45806	46057	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "pushaction",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inlin <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	266	372	
==>class;
}

# Purely accessors:

sub tagname   { (@_ == 2) ? ($_[0][1] = $_[1]) : $_[0][1] }
sub tag { shift- <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	243	347	
==>class;
}

# Purely accessors:

sub tagname { (@_ == 2) ? ($_[0][1] = $_[1]) : $_[0][1] }
sub tag { shift- <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	4676	5017	
==>f ( $_ eq '"' ) {
                            $str .= '\"';
                        }
                        else {
                            $str .= $_;
                        }
                    }
                    $value = "\"$str\"";
                }
                elsif ( $type eq 'boolean' ) {
                    $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	2062	2193	
==>source dead

  'output_fh',         # The filehandle we're writing to, if applicable.
                       # Used only in some der <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	43462	43583	
==>1, ": $$p[$i-1]: \n";
      
      if( $p->[$i-1] =~ m{^#:[ \^\/\%]*\n?$}s ) {
        DEBUG > 5 and print "  Previous lin <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	476	599	
==>$
		    mid$ mkd$ mkdmbf$ mki$ mkl$ mks$ mksmbf$
		    peek pen play pmap point pos
		    right$ rnd rtrim$
		    sadd scree <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	4549	4658	
==>rint STDERR "def $f($a = $i)\n";
		}
		push @code, [$line, $pc, "ARG_count", $n, $f, $source];
	    }
	}
	$arg <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993224	993422	
==>c",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994362	994560	
==>c",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_n <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	7963	8085	
==>e = $1 - 1; # Will be incremented next iteration
      $file = $3 if defined $3;
    }
    else {
      $self->scan_line($_ <==
3	/Users/nnunley/parrot/tools/build/revision_c.pl	273	368	
==>or F<.svk/entries> and config rev number of last
Parrot configure run.

=head1 SEE ALSO

F<confi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	818	904	
==>ss "Left is not Value!" unless UNIVERSAL::isa($left, 'Jako::Construct::Expression::Valu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	830	916	
==>ss "Left is not Value!" unless UNIVERSAL::isa($left, 'Jako::Construct::Expression::Valu <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	1410	1518	
==>e>")
			unless @ARGV == 2;

		my ($sourcefile, $class) = @ARGV;

		open IN, $sourcefile
			or _die("Can't ope <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeSmart.pm	42	138	
==>5.8.0 is GIMPY!
## This module is to be use()'d only by Pod::Simple::Transcode

package Pod::Simp <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	92	187	
==>nhard  $

package Regex::CodeGen::Re;
use Regex::RegexOps ();
use base 'Regex::CodeGen';
use str <==
3	/Users/nnunley/parrot/config/init/hints/netbsd.pm	179	293	
==>s');
    if ($ccflags !~ /-pthread/) {
        $ccflags .= ' -pthread';
    }
    $conf->data->set(ccflags => $ccfl <==
3	/Users/nnunley/parrot/config/init/hints/openbsd.pm	271	385	
==>s');
    if ($ccflags !~ /-pthread/) {
        $ccflags .= ' -pthread';
    }
    $conf->data->set(ccflags => $ccfl <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	44801	44890	
==>y $ATLEAST		= '\G\((\d+)\.\.'.$SIMPLEPAT.'\)';
my $ATMOST		= '\G\(\.\.([1-9]\d*)'.$SIMPLEP <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	1617	1761	
==>',            'typeof', 'I16', 'P16'],
  ['',            'set', 'I1', 0],
  ['',            'set', 'I2', 0],
  ['',            'eq', 'I16', '.Und <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1362	1480	
==>iler->emit("  global \"$ident_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1356	1474	
==>iler->emit("  global \"$ident_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	953	1091	
==>ng_f";

    $exit_code = Parrot::Test::run_command($cmd, CD => $self->{relpath},
                                           STDOUT => $out_ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	994	1132	
==>ng_f";

    $exit_code = Parrot::Test::run_command($cmd, CD => $self->{relpath},
                                           STDOUT => $out_ <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2044	2148	
==>ng_f";

    $exit_code = Parrot::Test::run_command($cmd, #CD => $self->{relpath},
					   STDOUT => $out_ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11484	11601	
==>ut;
    
    $out = $to if defined $to and length $to;
    $out .= "#" . $section if defined $section and length $sect <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7717	7819	
==>DEBUG > 1 and print "Resuming verbatim para at line ${$self}{'line_count'}\n";
          push @{$paras- <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10058	10167	
==>ere to avoid a bug in C<Pod::Simple::HTML>.

=cut

sub do_pod_link 
{
    my $self = shift;
    my $link = shi <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5922	6020	
==>ot pop anything it is unconditional, so next instruction needs to
	# have an empty stack type state <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3860	3958	
==>ot pop anything it is unconditional, so next instruction needs to
	# have an empty stack type state <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1250	1358	
==>ion.
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  confess "No Compiler!" unless defined $co <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	11793	11886	
==>rx_match{'!RESULT'} = 1;
$rx_match{'0'}->[1] = $rx_pos - 1;
$rx_match{'!STACK'} = $rx_stack;
r <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7602	7711	
==>ub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If the destination isn't a regi <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5720	5829	
==>ub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If the destination isn't a regi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	815771	815974	
==>2 \"src/ops/set.ops\"\n  {{\@1}} = 0;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	11820	11934	
==>oup);
       # I.e., unless it's a zero-length "empty line" at the very
       #  end of "foo\nbar\n" (i.e., betwee <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294672	294990	
==>" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 343,
                  "ARG <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3720	3821	
==>0> is the opcode itself.

=back

Note that, for ease of parsing, if the argument to one of the above
n <==
3	/Users/nnunley/parrot/languages/APL/t/APL.pm	1983	2097	
==>anguage_output_is('APL', $apl, $output, $block->name);
        }
      }
    } else {
      Parrot::Test::language_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	10224	10363	
==>xt
        # one.
        #

        if (/^}\s*$/)
        {
            $count += $self->make_op($count, $type, $short_name, $body, \@args, <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2301	2401	
==>rot/include' . $PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/src/pmc' . $PATH <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2096	2196	
==>rot/include' . $PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/src/pmc' . $PATH <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365326	365561	
==>}});\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366166	366401	
==>}});\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615025	615191	
==>LASS,\n            \"Class not parent of object\");\n    }\n    {{\@1}} = offset;\n    {{=next}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616176	616342	
==>LASS,\n            \"Class not parent of object\");\n    }\n    {{\@1}} = offset;\n    {{=next}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/config/gen/config_pm.pm	1508	1603	
==>int OUT <<"END";
# Generated by config/gen/config_pm.pm from the template
# '$template' and \%PC <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494158	494389	
==>" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 590 \"src/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@2} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284620	284850	
==>> [
                              "i",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 913 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(inter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860430	860605	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 118 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_excepti <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861435	861610	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 118 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_excepti <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	11355	11458	
==>>, and a class name --
optionally preceded by a C<'*'>.

The accessor method provided by C<struct> for a <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16323	16430	
==>sign;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->forth);
      my $op    = $s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17094	17201	
==>sign;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->forth);
      my $op    = $s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17899	18006	
==>sign;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->forth);
      my $op    = $s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2576	2677	
==>=> { kind => 'infix', name => $self->op } });
    $self->left->sax($handler);
    $self->right->sax($h <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2453	2554	
==>=> { kind => 'infix', name => $self->op } });
    $self->left->sax($handler);
    $self->right->sax($h <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665264	665485	
==>e_keyed_int(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666041	666262	
==>e_keyed_int(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	153	350	
==>2006
# #############################################################################
# Configure Script
# ################
# This file detects various configuration settings and generates variou <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10992	11085	
==>"type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pre_call_HAS_RETURN_${CURIC}
if "${CURIC}" == " <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8178	8271	
==>"type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pre_call_HAS_RETURN_${CURIC}
if "${CURIC}" == " <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5840	5933	
==>"type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pre_call_HAS_RETURN_${CURIC}
if "${CURIC}" == " <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30735	30847	
==>em_type = $self->_get_item_type($para);
            # That kills the content of the item if it's a number or bull <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	31700	31812	
==>em_type = $self->_get_item_type($para);
            # That kills the content of the item if it's a number or bull <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34023	34135	
==>em_type = $self->_get_item_type($para);
            # That kills the content of the item if it's a number or bull <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39302	39420	
==>);
    push @opcodes1, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes1, new ConstDir( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	5915	6033	
==>-length "empty line" at the very
         #  end of "foo\nbar\n" (i.e., between the \n and the EOS).
      } else { # t <==
3	/Users/nnunley/parrot/config/init/hints/cygwin.pm	744	852	
==>e defaults and use 'gcc -shared' instead of 'ld2'.
    # If this later causes problems, it might be worth rev <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11449	11762	
==>",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 15,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 206 \" <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2898	3042	
==>:\S+ \s+)? \{ \n     # optional test harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (?: \ <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4295	4439	
==>:\S+ \s+)? \{ \n     # optional test harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (?: \ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61081	61179	
==>ken($1,'/',$3?$3:'',$lookahead,$line);
			$prod and $prod->additem($item)
			      or  _no_rule("pa <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	6274	6364	
==>push @{$code{$seg}->{code}},<<EOR;
@code	find_global \$P0, "RANDSEED"
	\$I0= $result
	\$P0[ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383912	384163	
==>ODE" => 448,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 455 \"src/ops/io.ops\"\n  if ({{\@1}} <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	13767	13906	
==>61
		},
		GOTOS => {
			'namelist' => 63
		}
	},
	{#State 18
		DEFAULT => 0
	},
	{#State 19
		DEFAULT => -4,
		GOTOS => {
			'bl <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16961	17071	
==>rns the C code for loading a library.

=cut

sub lib_load_code() {
    my $self = shift;

    my $classname = $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	8168	8296	
==>en;              # [m..sublen] repeated up to N times
    }
}

sub startset {
    my $op = shift;
    my @sub = $op->{args}->[3]- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093640	1093746	
==>ental.ops\"\n  VTABLE_morph(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "experimental <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094443	1094549	
==>ental.ops\"\n  VTABLE_morph(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "experimental <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	5626	5720	
==>>.

=item C<SELF.method(a,b,c)>

Calls the vtable method 'method' using the static type of C<SE <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	1694	1801	
==>),
            $self->new_item('', 'tools/dev/lib_deps.pl'),
            $self->new_item('', 'tools/dev/parr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3768	3860	
==>YNTAX_ERROR("Sub declaration has no fnlib property, and parent module has no fnlib property e <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6432	6524	
==>YNTAX_ERROR("Sub declaration has no fnlib property, and parent module has no fnlib property e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293467	293767	
==>(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294343	294643	
==>(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295219	295519	
==>(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	18056	18197	
==>ERSION} = shift;
    }
    elsif (@_ == 3)
    {
        $self->{VERSION} = join('.', @_);
    }
    elsif (@_ == 0)
    {
        if (wantarr <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	915	1049	
==>esult' => $parser->YYData->{_G},
            'arg1'   => '_G',
        );
    }
    return [ $parser->YYData->{_G}, \@opcodes ];
} <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19000	19131	
==>-87
	},
	{#State 53
		DEFAULT => -48
	},
	{#State 54
		ACTIONS => {
			'NAME' => 104
		},
		GOTOS => {
			'funcname' => 10 <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	2810	2934	
==>egate-return -Winline -W -Wno-unused",

            # others; ones we might like marked with ?
            # ? -Wundef for un <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	6485	6572	
==>-lkernel32 -luser32 -lgdi32 -lwinspool -lcomdlg32 -ladvapi32 -lshell32 -lole32 -loleaut3 <==
3	/Users/nnunley/parrot/config/init/hints/msys.pm	376	463	
==>-lkernel32 -luser32 -lgdi32 -lwinspool -lcomdlg32 -ladvapi32 -lshell32 -lole32 -loleaut3 <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	761	874	
==>A relative path is made absolute.

=cut

sub new
{
    my $self = ref $_[0] ? ref shift : shift;
    my $path = sh <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035442	1035541	
==>tx);\n    STRING * const lex_name = {{\@2}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036606	1036705	
==>tx);\n    STRING * const lex_name = {{\@2}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	935676	935944	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "titlecase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936452	936720	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "titlecase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937229	937497	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "titlecase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	4612	4724	
==>X cc_build uses this verbose setting, why?
        $self->data->set(verbose => $verbose) if $n > 2;

        prin <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	1377	1478	
==>.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new(
		'Configuration', 'config.html', ' <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	11513	11613	
==>S
		return 1 if $next eq $root;
		my $child;
		foreach $child ( $rules->{$next}->leftmostsubrules() ) <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64425	64585	
==>1,
										   $lookahead,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	66459	66619	
==>1,
										   $lookahead,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no_ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62357	62511	
==>1,
									   $lookahead,$line,
									   $self,
									   $matchrule,
									   $argcode);
					$prod and $prod->additem($item)
					      or  _no_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13262	13376	
==>AX_ERROR("Closing brace without open block.")
        unless $self->block_depth();

      #
      # Remember the bl <==
3	/Users/nnunley/parrot/languages/urm/urm-old.pl	483	593	
==>reach my $reg (@register) {
	    $register{$reg} = shift @input;
	}
    }
    if ($line =~ /(r\d+)/) { $registe <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	19468	19562	
==>concat(interpreter, signature, ns, 0);

#if defined(CAN_BUILD_CALL_FRAMES)
    ns = string_make <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	744	839	
==>ass of L<Pod::Simple::PullParserToken> and inherits all its methods,
and adds these methods:

=o <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1170	1265	
==>ass of L<Pod::Simple::PullParserToken> and inherits all its methods,
and adds these methods:

=o <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	650	745	
==>ass of L<Pod::Simple::PullParserToken> and inherits all its methods,
and adds these methods:

=o <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	1144	1320	
==>: ".$type;
            }

            $_[0] = &threads::shared::share($_[0]);

            if( $type eq 'HASH' ) {
                %{$_[0]} = %$data;
            }
            e <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	481	577	
==>ount = $self->{builder}->current_test + 1;

    my $lang_f    = Parrot::Test::per_test('.p1',$cou <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2625	2734	
==>g {
	my($self)=shift;

	${$$self{ERRST}} != 0;
}

sub YYAbort {
	my($self)=shift;

	${$$self{CHECK}}= <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2510	2610	
==>g {
	my($self)=shift;

	${$$self{ERRST}} != 0;
}

sub YYAbort {
	my($self)=shift;

	${$$self{CHECK}}= <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2195	2290	
==>to *ops_addr[*(cur_opcode = (opcode_t *)$addr)]";
    }
}

=item C<expr_offset($offset)>

Transf <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	12113	12247	
==>op('goto', [ $next ]),
                $back => aop('increment', [ -1, $lastback ]),
                         aop('goto', [ $lastback ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811504	811612	
==>\@1}} = {{\@2}}->vtable->get_pmc_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812406	812514	
==>\@1}} = {{\@2}}->vtable->get_pmc_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "L <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	128	228	
==>ered by depth. This eliminates the need for a stack.
# In addition, it does "lazy" moves as far as ar <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548072	548174	
==>ops\"\n  /* Coercing a negative to a UINT can get pretty ugly\n   * in this situation. */\n  INTVAL i = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548978	549080	
==>ops\"\n  /* Coercing a negative to a UINT can get pretty ugly\n   * in this situation. */\n  INTVAL i = <==
3	/Users/nnunley/parrot/config/auto/inline.pm	224	320	
==>ther the compiler supports C<inline>.

=cut

package auto::inline;

use strict;
use vars qw($desc <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6299	6445	
==>my $ago = (-M shift);

    if (defined $ago) {
        return $NOW - $ago;
    } else {
        return;
    }
}

sub needs_build {
    my ($target, <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4719	4865	
==>my $ago = (-M shift);

    if (defined $ago) {
        return $NOW - $ago;
    } else {
        return;
    }
}

sub needs_build {
    my ($target, <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6510	6656	
==>my $ago = (-M shift);

    if (defined $ago) {
        return $NOW - $ago;
    } else {
        return;
    }
}

sub needs_build {
    my ($target, <==
3	/Users/nnunley/parrot/languages/regex/regex.pl	1062	1172	
==>oo many args!";
    }
}

if (! defined $expr && ! defined $expr_file) {
    die "need expression!";
}

if (defi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	1781	1887	
==>es";
}

sub parse_line {
  use Carp ();
  Carp::croak "Use set_source with ", __PACKAGE__,
    " and subcla <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	4624	4714	
==>item C<c_output_like($code, $expected, $description)>

Compiles and runs the C code, passin <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11467	11568	
==>TURN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_END_${CURIC}

# Do we ha <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8653	8742	
==>TURN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_END_${CURIC} <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7225	7314	
==>TURN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_END_${CURIC} <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	6378	6489	
==>s $$textref;
	
	return (
		$startpos,  $ldelpos-$startpos,		# PREFIX
		$ldelpos,   1,				# OPENING BRACKET
		$ld <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2333	2439	
==>(-2) }
sub end_head4       { $_[0]->emit_par(-1) }
sub end_Para        { $_[0]->emit_par( 0) }
sub end_item <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1901	2007	
==>(-2) }
sub end_head4       { $_[0]->emit_par(-1) }
sub end_Para        { $_[0]->emit_par( 0) }
sub end_item <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41443	41561	
==>if $backtrack;

		  # MATCH RIGHTARG
		  ' . $rightarg->code(@_[1..2]) . '
		  $repcount++;
		  ';
	}

	$code .= 'unles <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478769	478870	
==>DY" => "#line 437 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479661	479762	
==>DY" => "#line 437 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exc <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	20435	20556	
==>{
    my($self, $use_nums) = @_;

    if( defined $use_nums ) {
        $self->{Use_Nums} = $use_nums;
    }
    return $s <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27283	27401	
==>sub hdecls() {
    my $self = shift;

    my $hout;
    my $classname = $self->{class};
    # generat decls for all met <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	2124	2226	
==>ber of arguments (expected $expected, got $args).\n"
    if ($args != $expected);
}

sub _get_arg {
  m <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	807	929	
==>orm a few simple optimizations:
#
# 1. R(ST)    -> RST
# 2. aR|aS    -> a(R|S)
#    R|<null> -> R?
#    <null>|R -> R??
#
s <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	26688	26783	
==>>').

	($extracted, $remainder) = extract_codeblock($text,$delim);


 # Extract the initial subs <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25242	25324	
==>OP_END_$forloop"}=1;
	$main::code{$main::seg}->{declarations}->{"FORLOOP_STEP_$forl <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	126	235	
==>Bc::Antlr2;

use strict;

use base 'Parrot::Test::Bc';

sub get_out_fn {
    my $self = shift;
    my ( $count <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	13893	14002	
==>( $para_text_content =~ m/\S/
          and ($max_content_length
           ? (length($para_text_content) <= $ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	2110	2203	
==>okens.

=head1 AUTHOR

Jeffrey Goff, drforr@hargray.com

=head1 SEE ALSO

L<Scheme>, L<Scheme: <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	25018	25113	
==>label('greedy_optional_back');
    my $next = $self->genlabel('after_greedy_optional');
    my $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550154	550243	
==>NEED_CONTINUATION;\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_meth <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551455	551544	
==>NEED_CONTINUATION;\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_meth <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	25242	25350	
==>if $dynpmc eq $classname;
        $cout .= <<"EOC";
        int my_enum_class_$dynpmc = pmc_type(interp, stri <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1148	1241	
==>file = Parrot::Test::slurp_file($out_f);
        $pass =$self->{builder}->is_eq( Parrot::Test: <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1189	1282	
==>file = Parrot::Test::slurp_file($out_f);
        $pass =$self->{builder}->is_eq( Parrot::Test: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135473	135600	
==>rc/ops/bit.ops\"\n  {{\@1}} = string_bitwise_xor(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136367	136494	
==>rc/ops/bit.ops\"\n  {{\@1}} = string_bitwise_xor(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137261	137388	
==>rc/ops/bit.ops\"\n  {{\@1}} = string_bitwise_xor(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/languages/converter.pl	2450	2599	
==>s,$_;
    }
    else {
      $rules[-1] .= "\n$_";
    }
  }
  else {
    if(/::=/) {
      push @rules,$_;
      $in_rule = 1;
    }
  }
}

for(@rule <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	17223	17329	
==>nplace_word('mod', $cmt);
}
sub INPLACE_ADD
{
    my ($n, $c, $cmt) = @_;
    inplace('+', $cmt);
}
sub INP <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	11301	11395	
==>-- are
represented by strings -- C<'$'>, C<'@'>, C<'%'>, and a class name --
optionally precede <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2318	2431	
==>retval = $self->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exists($$self{USER})
	or	$$ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2231	2335	
==>retval = $self->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exists($$self{USER})
	or	$$ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	375	473	
==>Methods

=over

=cut

package Parrot::Docs::Section::Config;

use strict;
use warnings;

use base q <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	2294	2424	
==>b append
{
    my $self = shift;
    
    return unless @_;
    
    my $fh = FileHandle->new('>>' . $self->path) or 
        die ' <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	1664	1787	
==>thod is imported by subclasses.

=cut

sub gen_ret {
    my ($method, $body) = @_;

    my $ret;
    if ($body) {
        $r <==
3	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	2812	2957	
==>t[-1][1] eq q{} ) {
        pop @output;
    }

    # Compose the return string - skip any
    # adjancent blank lines.

    my $result;
    my $s <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	2646	2737	
==>lf->new_section('URM', 'urm.html', '', 'languages/urm'),
        $self->new_section('Zcode', <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24595	24683	
==>reter->ctx)->current_sub;\n  dest = (opcode_t *)p->vtable->invoke(interpreter, p, dest);\ <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7441	7563	
==>verbose) = @_;

    if ($verbose) {
        print "$command\n";
    }

    # Mostly copied from Parrot::Test.pm
    foreach <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	918	1023	
==>"Args are not hash!" if defined $args and ref($args) ne "ARRAY";

  my $self = bless {
    BLOCK => $block <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	11123	11220	
==>ag .= "|$value";
    }
}

=item C<make_op($code,
$type, $short_name, $body, $args, $argdirs, $line <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465175	465426	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "dec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inli <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465796	466047	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "dec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inli <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	41125	41221	
==>e children to be the link-text:
      @$ell = (@$ell[0,1], defined($link_text) ? splice(@$link_te <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	1987	2162	
==>->data->set(
                gmp     => 'define',
                HAS_GMP => $has_gmp,
            );
        }
    }
    unless ($has_gmp) {

        # The Config::Data settin <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	3432	3531	
==>le->new( [ $file ], $nolines_flag );
    die "$0: Could not read ops file '$file'!\n" unless defined <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	2995	3090	
==>le->new( [ $file ], $nolines_flag );
die "$0: Could not read ops file '$file'!\n" unless defined <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32733	32843	
==>turn value: [}
						. $_tok . q{])},
						  Parse::RecDescent::_tracefirst($text))
							if defined $::RD_TR <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22688	22796	
==>turn value: [}
						. $_tok . q{])},
						Parse::RecDescent::_tracefirst($text))
							if defined $::RD_TR <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	525	622	
==>ke sure you have them in the
correct order.

=head2 package

Declares the package that all subsequ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2370	2479	
==>push(@saves, $var);
				}
			}
			if (@saves) {
				$edit.=qq{\tfind_global _GLOBALS, "COMMON"\n};
				foreach <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2779	2888	
==>push(@saves, $var);
				}
			}
			if (@saves) {
				$edit.=qq{\tfind_global _GLOBALS, "COMMON"\n};
				foreach <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	370	467	
==>t::Docs::Section::IMCC;

use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3811	3909	
==>'PIR'
# Just got it in the 0th register of the appropriate type.
${DEST0} = "$"
${STEMP0} = ${LOADT <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3671	3768	
==>Transforms to the op function's nth argument. C<$0> is the opcode itself.

=back

Note that, for e <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2892	2982	
==>m-text'    => "\n{\\pard\\li#rtfindent##rtfitemkeepn#\\sb60\\sa150\\fi-120\n",
 '/item-text <==
3	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	2389	2553	
==>ne ];
            if ( $line =~ $block_end ) {
                push @output, [ 1, q{} ];
            }
        }
    }
    # Badly formatted pir might end in the mid <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	18608	18736	
==>"name"} . '});') . '
		my $repcount = 0;

';
	$code .= 
'		my @itempos = ({});
'			if $parser->{_check}{itempos};

	my $item;
	my <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79360	79476	
==>n  else {\n      /* At this point we have the symbol's address. We just need to build\n         a PMC with it so we c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80881	80997	
==>n  else {\n      /* At this point we have the symbol's address. We just need to build\n         a PMC with it so we c <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	8061	8162	
==>eck_mandatory_boilerplate {
    my ($file, $source) = @_;

    my @end_boilerplate = split /\n\s*/, qq <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	4418	4529	
==>ns the documentation directory.

=cut

sub docs_directory
{
    my $self = shift;
    
    return $self->existin <==
3	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	33	121	
==>003, The Perl Foundation.
# $Id: /parrot/examples/benchmarks/stress1.pl 19601 2006-05-30T <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	33193	33315	
==>vp,
  'eq?'     => \&_op_eqp,
  'equal?'  => \&_op_equalp,

###
### Pairs and Lists
###

  'pair?'    => \&_op_pair_p,
  'c <==
3	/Users/nnunley/parrot/tools/util/pirtidy.pl	1179	1275	
==>spired by perltidy.

=head1 EXAMPLES

 perl pirtidy.pl somefile.pir

This will produce a file som <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12992	13111	
==>'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 11
		ACTIONS = <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	2120	2227	
==>$I101 = %2
    $I100 = or $I100, $I101
    %1 = $I100
END_PIR

    $P0[unicode:"dyadic:\u2260"]  = <<"END_PI <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	3914	4018	
==>ocal pmc rx_match
    .local pmc rx_stack
    rx_stack = new IntList
    rx_match = _default(1, rx_input, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201606	201857	
==>ODE" => 238,
                  "ARGS" => [
                              "n",
                              "nc",
                              "ic"
                            ],
                  "BODY" => "#line 373 \"src/ops/cmp.ops\"\n  if ({{\@1} <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	376	470	
==>Docs::Section> is a subclass of C<Parrot::Docs::Group>.

=head2 Class Methods

=over

=cut

pac <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	167	260	
==>::Section::Languages - Languages documentation section

=head1 SYNOPSIS

    use Parrot::Docs: <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	44104	44221	
==>acer\n";
      } else {
        $replacer = Pod::Escapes::e2char($content);
        DEBUG > 1 and print " Replacing E< <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3616	3706	
==>${CURIC}_LAZY_MOVE_$register_num:
${STACK$register_num} = pop lazy_moves

# Decrement stack <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5386	5476	
==>${CURIC}_LAZY_MOVE_$register_num:
${STACK$register_num} = pop lazy_moves

# Decrement stack <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	360	459	
==>use base qw(Jako::Construct::Statement);

my %block_types = (
  'while'    => { PREFIX => "_W", NEXT <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	381	480	
==>use base qw(Jako::Construct::Statement);

my %block_types = (
  'while'    => { PREFIX => "_W", NEXT <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	6115	6208	
==>STDOUT";
open (STDOUT, '>', File::Spec->devnull) or die "Unable to redirect STDOUT";
select CO <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	21295	21400	
==>uences: formatless treelet.\n";
    return 0;
  }
  
  my $map = ($self->{'accept_codes'} || die "NO accep <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862471	862560	
==>8 \"src/ops/string.ops\"\n  {{\@1}} = string_length(interpreter, {{\@2}});\n  {{+=3}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863240	863329	
==>8 \"src/ops/string.ops\"\n  {{\@1}} = string_length(interpreter, {{\@2}});\n  {{+=3}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528105	528404	
==>> "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 6 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528986	529285	
==>> "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 6 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529868	530167	
==>> "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 6 <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6064	6186	
==>}, $pmc;
        $group_libs{$group} ||= {};
        foreach my $lib ( keys %libs ) {
            $group_libs{$group}->{lib <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6275	6397	
==>}, $pmc;
        $group_libs{$group} ||= {};
        foreach my $lib ( keys %libs ) {
            $group_libs{$group}->{lib <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	15609	15717	
==>aint) = @_;
  if( $self->{'no_errata_section'} ) {
    DEBUG > 9 and print "Discarding erratum (at line $line <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2590	2733	
==>/..\\blib/g;
        $extraLibs =~ s/\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else {
        $liblist = join( ' ', map { "-l <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2899	3042	
==>/..\\blib/g;
        $extraLibs =~ s/\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else {
        $liblist = join( ' ', map { "-l <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2694	2837	
==>/..\\blib/g;
        $extraLibs =~ s/\Q$(A)\E/.lib/g;
        $liblist .= ' ' . $extraLibs;
    } else {
        $liblist = join( ' ', map { "-l <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5167	5292	
==>specially important on
        # some platforms
        if ($^O eq 'hpux' or $^O eq 'cygwin') {
            chmod 0755, "$dest <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5378	5503	
==>specially important on
        # some platforms
        if ($^O eq 'hpux' or $^O eq 'cygwin') {
            chmod 0755, "$dest <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4383	4502	
==>specially important on
			# some platforms
	        if ($^O eq 'hpux' or $^O eq 'cygwin') {
		        chmod 0755, "$dest <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61464	61724	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorson",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62107	62367	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorson",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "T <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62717	62843	
==>line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr($grammar,$pos,0,
						       "<lefto <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63428	63554	
==>line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr($grammar,$pos,0,
						       "<lefto <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64158	64284	
==>line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr($grammar,$pos,0,
						       "<lefto <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854515	854960	
==>m",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 970,
                  "ARGS" => [
                              "s",
                              "s",
                              "s"
                            ],
                  "BODY" = <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	9297	9395	
==>tic
# analysis might not be too hard.
package Regex::Ops::Tree::call;
sub minlen { 0 }
sub maxlen { <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	6	98	
==>l
# Copyright (C) 2001-2005, The Perl Foundation.
# $Id: /parrot/tools/build/nativecall.pl 20 <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	4354	4483	
==>is export {
    try { code() };
    if ($!) {
        &Test::ok.goto(1, $desc, :$todo);
    }
    else {
        Test::proclaim(un <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349182	349274	
==>} = PIO_open(interpreter, NULL, path, \"+<\");\n  /* string_cstring_free(path); */\n  if(!{{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350184	350276	
==>} = PIO_open(interpreter, NULL, path, \"+<\");\n  /* string_cstring_free(path); */\n  if(!{{\ <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	3584	3706	
==>>{'class'}}) {
            push @{$classes{$_->{'class'}}}, $_;
        } else {
            $classes{$_->{'class'}} = [$_] <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6392	6491	
==>Sort until no elements are exchanged.
   Exchange=FALSE
   ' Compare the array elements by pairs. Wh <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16045	16144	
==>Sort until no elements are exchanged.
   Exchange=FALSE
   ' Compare the array elements by pairs. Wh <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	2601	2737	
==>$file, $line, $1, undef, $1);
      $text = $2;
      next;
    }

    #
    # Type:
    #

    if ($text =~ m{^(int|num|pmc|str)(?!\w)(. <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3184	3294	
==>ink => $conf->data->get('ld'));

        # We can't use -opt: and -debug together.
        if ($conf->data->get <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4688	4798	
==>ink => $conf->data->get('ld'));

        # We can't use -opt: and -debug together.
        if ($conf->data->get <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1160	1253	
==>ers, all starting with YY (leading YY will be discarded)
my(%params)=(YYLEX => 'CODE', 'YYERR <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	736	828	
==>rrot::Test::per_test( '_antlr2_no_past.pir', $count );

    return ( "python languages/bc/bc. <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1118	1210	
==>ers, all starting with YY (leading YY will be discarded)
my(%params)=(YYLEX => 'CODE', 'YYERR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367126	367417	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ": <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367917	368208	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ": <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368709	369000	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ": <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	5586	5736	
==>f ($has_class) {
                    die "Duplicate value for class in rule $rule->{'name'}\n";
                } else {
                    $has_class <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	4760	4878	
==>tilde'   , 241,
 'ograve'   , 242,
 'oacute'   , 243,
 'ocirc'    , 244,
 'otilde'   , 245,
 'ouml'     , 246,
 'divide <==
3	/Users/nnunley/parrot/config/init/manifest.pm	60	149	
==>ot/config/init/manifest.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/ <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	3444	3538	
==>t/Test/Tcl.pm>, F<languages/m4/lib/Parrot/Test/M4.pm>

=head1 AUTHOR

Francois Perrad

=c <==
3	/Users/nnunley/parrot/Configure.pl	9473	9587	
==>o::socklen_t
    auto::env
    auto::aio
    auto::gmp
    auto::readline
    auto::gdbm
    auto::snprintf
    aut <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	1798	1940	
==>/^\[(\w+)\]/) {
        $section = $1;
    }
        elsif (m/^\s*
            ($type_re)\s+
            ($ident_re)\s*
        \(($arglist_re) <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	1616	1736	
==>->file_with_name('README')->read =~ /^This is Parrot/os;
        
        $path = $self->parent_path();
    }
    
    di <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	42001	42103	
==>xcept for the string to be processed). It returns
a reference to a subroutine which in turn takes a sin <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	19510	19610	
==>kips once and terminates the
test.

=end _unimplemented

=back


=head2 Test style

=over 4

=item B< <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	1242	1337	
==>el) = @_;
    return ("rx_zwa_atend P0, ".$self->output_label_use($failLabel));
}

sub output_pu <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	28019	28124	
==>ode) = @_;
  my $return;
  my $label     = $self->_gensym();

  $return = $self->_generate($node->{childre <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23299	23400	
==>ode) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_generate($node->{childre <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23761	23862	
==>ode) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_generate($node->{childre <==
3	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1652	1773	
==>new('pir', emit_main => 1);

    print $PIR <<"END";
# Regular expression test
# Generated by $0
# Pattern >>$pattern<<

E <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	18901	19005	
==>n something like O(log(n))
    # rather than O(n).
	my $pir = <<PIRCODE;
	# Translation code dispatch tab <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	9132	9224	
==>= @_; $op->{args}->[1]->hasback() }
sub dfa_safe { my ($op) = @_; $op->{args}->[1]->dfa_safe( <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	248	345	
==>t

package inter::pmc;

use strict;
use warnings;

use base qw(Parrot::Configure::Step::Base);

us <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	5452	5542	
==>/

END_C

my $mmp_v = "${major_version}_${minor_version}_${patch_version}";
my $init_func = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2386	2499	
==>nless $right_sym;
    $right_type = $right_sym->type;
  }
  else {
    $right_type = $right->type;
  }

#  $self-> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2344	2456	
==>nless $right_sym;
    $right_type = $right_sym->type;
  }
  else {
    $right_type = $right->type;
  }

  $self-> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2266	2378	
==>nless $right_sym;
    $right_type = $right_sym->type;
  }
  else {
    $right_type = $right->type;
  }

  $self-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	246829	247154	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "and",
                  "FLAGS" => ":base_core",
                  "ARGD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247692	248017	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "and",
                  "FLAGS" => ":base_core",
                  "ARGD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	248556	248881	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "and",
                  "FLAGS" => ":base_core",
                  "ARGD <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8319	8452	
==>debug & 0x04
#DBG>		and	print STDERR "Back to state $$stack[-1][0], then ";

                $$check eq 'ERROR'
            or  do <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7940	8069	
==>debug & 0x04
#DBG>		and	print STDERR "Back to state $$stack[-1][0], then ";

                $$check eq 'ERROR'
            or  do <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030857	1031115	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sizeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031725	1031983	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sizeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	4746	4859	
==>n";
    }
}


sub wanted {

    return if $File::Find::name =~ m[/\.svn|blib|debian];

    # This is currently the <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22142	22247	
==>ext;
        $right = Jako::Construct::Expression::Value->new($block, $self->require_value);

        $sel <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23075	23180	
==>ext;
        $right = Jako::Construct::Expression::Value->new($block, $self->require_value);

        $sel <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24721	24825	
==>ext;
        $right = Jako::Construct::Expression::Value->new($block, $self->require_value);
        $sel <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	425384	425677	
==>n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLA <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	11055	11194	
==>? "u:" : "";
	    my $s = $2;
	    $c =~ s/.*/$u"$s"/;
	}
	print <<EOC;
	\t$cmt
EOC
    }
    else {
	print <<EOC;
	\t$cmt
EOC
    }
    pus <==
3	/Users/nnunley/parrot/examples/benchmarks/arriter.pl	957	1049	
==>eys(%ha), "\n";
print $ha{'AAAAA'};
print $ha{'ABCDE'};
print $ha{'BBBBB'};
print $ha{'CCCCC' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1820	1949	
==>\-]/;
    return () if $distance == 0;

    my $comment;
    if ($distance == 1) {
        $comment = "pos++";
    } elsif ($dista <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	4405	4503	
==>then");
		$singleif=1 if ($type[NEXT] ne "STMT" and $type[NEXT] ne "COMM");
		#print "Single if!\n" <==
3	/Users/nnunley/parrot/lib/File/Which.pm	6302	6393	
==>d in I<modperl-2.0/lib/Apache/Build.pm>. Changed for use in DocSet
(for the mod_perl site) a <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	6832	6955	
==>>val($sect, 'exe') . " " . File::Spec->catdir( $cfg{bench_path}, $name . $bench{$name}{$prog})
            );
            my <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650704	650815	
==>({{\@2}} >= enum_first_type && {{\@2}} < enum_last_type)\n        {{\@1}} = 1;\n    else\n        {{\@1}} = 0;\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651626	651737	
==>({{\@2}} >= enum_first_type && {{\@2}} < enum_last_type)\n        {{\@1}} = 1;\n    else\n        {{\@1}} = 0;\n <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	14185	14278	
==>sion,	/* major_version */
  $minor_version,	/* minor_version */
  $patch_version,	/* patch_ver <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236631	236904	
==>ng_compare(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237513	237786	
==>ng_compare(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238395	238668	
==>ng_compare(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12751	12893	
==>ment::Bitwise->new($block, $ident, $ident, $op, $value);
      next;
    }

    #
    # Block Termination:
    #
    #   }
    #   } continue { <==
3	/Users/nnunley/parrot/config/inter/lex.pm	702	816	
==>($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    # undef means we don't have flex... de <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	8256	8368	
==>est->ok($test, $name);

Your basic test.  Pass if $test is true, fail if $test is false.  Just
like Test::Simple' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133861	134001	
==>tring_bitwise_xor(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134642	134782	
==>tring_bitwise_xor(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	18285	18399	
==>p;
        close $fh;
    }
}

=head2 read_dump( [$dir1, $dir2], $file );

Read in the class definition found in $f <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/State.pm	346	468	
==>el,
                 }, 'Regex::Ops::Label';
}

sub genlabel {
    my ($self, $desc) = @_;
    my $number = ++$self->{_mark <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37450	37552	
==>t),
				  q{' . $rule->{"name"} . '})
					if defined $::RD_TRACE;').'
		$Parse::RecDescent::lastexpect <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39853	39955	
==>t),
				  q{' . $rule->{"name"} . '})
					if defined $::RD_TRACE;').'
		$Parse::RecDescent::lastexpect <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11410	11515	
==>:Value::Identifier->new($block, $token);
      my $op    = substr($self->forth->text, 0, -1);
      my $va <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11957	12062	
==>:Value::Identifier->new($block, $token);
      my $op    = substr($self->forth->text, 0, -1);
      my $va <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12500	12605	
==>:Value::Identifier->new($block, $token);
      my $op    = substr($self->forth->text, 0, -1);
      my $va <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826667	826757	
==>tion(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_num(entry->e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827737	827827	
==>tion(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_num(entry->e <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11518	11608	
==>ng1024\noproof \sbasedon10 pod-F;}
{\*\cs18 \additive \b \sbasedon10 pod-B;}
{\*\cs19 \addi <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	4091	4194	
==>lename\" for writing: $!\n";
  print $fh $html or
    die "Couldn't write to \"$filename\": $!\n";
  clo <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	2309	2400	
==>m.  Currently acceptable prefixes are
C</^(Parrot|PDB|PF|PIO|PackFile)_/>.

If the API is no <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	8579	8691	
==>ss( $self->{Have_Plan} ) {
        require Carp;
        Carp::croak("You tried to run a test without a plan!  Go <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6561	6669	
==>nk
{
	my $self = shift;

	# TODO - This needs more thought. I'm trying to work out which files
	# it's sensib <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32730	32828	
==>$meth) = @_;
    $self->implements_vtable($meth);
}

=item C<gen_ret($type)>

Generate the C code f <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	1804	1942	
==>e 
{
    my $self = shift;
    my $token;
    my $type;
    
    $self->{STACK} = [];
    $self->{DONT_WRAP} = 0;
    
    while ( $token = <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10395	10501	
==>ift \$error token and go to state ".
#DBG>						 $$states[$$stack[-1][0]]{ACTIONS}{error}.
#DBG>						 ". <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9927	10031	
==>ift \$error token and go to state ".
#DBG>						 $$states[$$stack[-1][0]]{ACTIONS}{error}.
#DBG>						 ". <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11926	12121	
==>'result' => $result,
                    );
                    return [ $defn, \@opcodes, $assign ];
                }
                else {
                    my $assign = new StoreLexOp( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549977	550079	
==>object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+3}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551278	551380	
==>object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+3}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492726	492818	
==>BODY" => "#line 585 \"src/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@1}}, {{\@2}});\n  {{+=3} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493487	493579	
==>BODY" => "#line 585 \"src/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@1}}, {{\@2}});\n  {{+=3} <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	4733	4874	
==>comment[0]  =~ s{^}{/*\n};     # '/*'
            $comment[-1] =~ s{$}{\n */};    # ' */'
        } else {
            die "Unknown comment ty <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22353	22465	
==>xt . $title if $t->type eq 'text';
      }
      undef $title if $title =~ m<^\s*$>; # make sure it's contentful! <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22837	22949	
==>xt . $title if $t->type eq 'text';
      }
      undef $title if $title =~ m<^\s*$>; # make sure it's contentful! <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	12898	13016	
==>m pmc op2

    if op1 < 0 goto neg_loop

pos_loop:
    if op1 == 0 goto done
    $P1 = shift op2 # ignore p1, we're dis <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13412	13511	
==>ot_${class}_$1(".full_arguments($2).")"/xeg;

    # Rewrite SELF -> pmc, INTERP -> interpreter
    s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	190	278	
==>o/lib/Jako/Construct/Statement/Return.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	317204	317434	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "conv_i2_ovf",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ], <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	6214	6322	
==>Plain',    @_) }

sub _accept_directives {
  my($this, $type) = splice @_,0,2;
  foreach my $d (@_) {
    nex <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1718	1815	
==>to unknown variable %s.", $dest->value) unless $dest_sym;
  my $dest_type = $dest_sym->type;

  my <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1676	1773	
==>to unknown variable %s.", $dest->value) unless $dest_sym;
  my $dest_type = $dest_sym->type;

  my <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1598	1695	
==>to unknown variable %s.", $dest->value) unless $dest_sym;
  my $dest_type = $dest_sym->type;

  my <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19415	19519	
==>\n";
	} else {
		push @{$code{$seg}->{code}}, "\tgoto DO_$do->{jump}\n";
	}
	push @{$code{$seg}->{code}}, <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76698	76801	
==>:RD_TRACE =~ /\d+/
	    && $::RD_TRACE>1
	    && $::RD_TRACE+10<length($_[0]))
	{
		my $count = length($ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77009	77112	
==>:RD_TRACE =~ /\d+/
	    && $::RD_TRACE>1
	    && $::RD_TRACE+10<length($_[0]))
	{
		my $count = length($ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11442	11542	
==>return value.
PRE_CALL_RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CAL <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8628	8728	
==>return value.
PRE_CALL_RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CAL <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7200	7300	
==>return value.
PRE_CALL_RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CAL <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4099	4210	
==>ror {
	print "Parse error.\n";
}

sub _DBLoad {
	{
		no strict 'refs';

			exists(${__PACKAGE__.'::'}{_D <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1322	1430	
==>x)>

Returns the argument at index C<$index>.

=cut

sub arg
{
    my $self = shift;

    return $self->{ARGS <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3892	3995	
==>ror {
	print "Parse error.\n";
}

sub _DBLoad {
	{
		no strict 'refs';

			exists(${__PACKAGE__.'::'}{_D <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406373	406513	
==>sc"
                            ],
                  "BODY" => "#line 535 \"src/ops/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (uns <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407286	407426	
==>sc"
                            ],
                  "BODY" => "#line 535 \"src/ops/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (uns <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	5147	5282	
==>ectly yet
        if $*OS eq "browser" {
            Test::proclaim(1, "", "skip $reason", :$depends);
        } else {
            Test <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	611	708	
==>("Dest (" . ref($dest) . ") is not Identifier!") unless UNIVERSAL::isa($dest, 'Jako::Construct::Ex <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	602	699	
==>("Dest (" . ref($dest) . ") is not Identifier!") unless UNIVERSAL::isa($dest, 'Jako::Construct::Ex <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	491	588	
==>("Dest (" . ref($dest) . ") is not Identifier!") unless UNIVERSAL::isa($dest, 'Jako::Construct::Ex <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1164	1264	
==>rywhere doesn't hurt the final
	# Parrot bytecode that is produced.
	my $pir = <<'PIR';
strPC = ${PC} <==
3	/Users/nnunley/parrot/config/auto/memalign.pm	933	1034	
==>est = 0;

    if ($conf->data->get('i_malloc')) {
        $conf->data->set(malloc_header => 'malloc.h' <==
3	/Users/nnunley/parrot/config/gen/config_h.pm	1325	1425	
==>ically by Configure.pl
*/

/*
 * i_(\\w+) header includes
 */

EOF

    for (sort($conf->data->keys() <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	285	381	
==>t;
eval "use warnings";

package Jako::Construct::Statement::Return;

use Carp;

use base qw(Jako <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3408	3516	
==>d". Which is harder.
        $body =~ s/^(\s*)([^\n]+)\s*\Z/$1puts [$2]/m;

        $tests{$name} = [$expl, $ <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4815	4923	
==>d". Which is harder.
        $body =~ s/^(\s*)([^\n]+)\s*\Z/$1puts [$2]/m;

        $tests{$name} = [$expl, $ <==
3	/Users/nnunley/parrot/config/inter/progs.pm	2342	2445	
==>'ccflags');

    # Remove some perl5-isms.
    $ccflags =~ s/-D((PERL|HAVE)_\w+\s*|USE_PERLIO)//g;
    $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271029	271235	
==>i"
                            ],
                  "BODY" => "#line 871 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271875	272081	
==>i"
                            ],
                  "BODY" => "#line 871 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77889	78005	
==>);
		_hint("You can't negate $_[0]. Remove the \"...!\" before
		       \"$&\".");
		return 0;
	}
	return 1;
}

sub _ <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3100	3196	
==>nerated by config/gen/core_pmcs.pm

package Parrot::PMC;

use strict;
use warnings;

use vars qw( <==
3	/Users/nnunley/parrot/lib/Parrot/PMC.pm	44	140	
==>nerated by config/gen/core_pmcs.pm

package Parrot::PMC;

use strict;
use warnings;

use vars qw( <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	6319	6410	
==>l($bs);
}
if ($trans->can("run_core_func_decl")) {
    print SOURCE $trans->run_core_func_de <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	1184	1296	
==>rogs)
             ],
    gen =>   [qw(genfile copy_if_diff move_if_diff)]
);

=item C<integrate($orig, $new)>

I <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3169	3267	
==>generate_dump($_) foreach (@pmcs);
    generate_c($_) foreach (@pmcs);

    my ($group_files, $grou <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3273	3371	
==>generate_dump($_) foreach (@pmcs);
    generate_c($_) foreach (@pmcs);

    my ($group_files, $grou <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319503	319797	
==>UMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320272	320566	
==>UMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321042	321336	
==>UMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	693	814	
==>entifier');

  my $name = $ident->value;

  my $self = bless {
    BLOCK => $block,

    NAME  => $name,
    ARGS  => [ @a <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	907	1019	
==>onst_table {
    my ($pf) = @_;

    my $count = $pf->const_table->const_count;

    if ($count < 1) {
	warn "Dis <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	3308	3414	
==>ories in the
directory.

=cut

sub file_and_directory_names()
{
    my $self = shift;
    my $dh = DirHandl <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32909	33041	
==>{'number'}) {
            DEBUG > 1 and print " Numeric item has the expected value of $expected_value\n";
            
          } e <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	5666	5789	
==>t;
            }
        }

        filter_gcov($gcov_file);
    }
}

write_file_coverage_summary();
write_function_coverage <==
3	/Users/nnunley/parrot/languages/pugs/t/pmc.pm	187	301	
==>est 'no_plan';
use Test::More;

sub import {
    my $class = shift;

    my (undef, $file, undef) = caller();
    $ <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	11	113	
==>perl

use strict;
use warnings;

print <<"END_OF_HEADER";

# DO NOT EDIT.
# This file generated automat <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	577	682	
==>kage available on your
# nearest CPAN
#
# Any use of this module in a standalone parser make the includ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39243	39347	
==>es2;
    my $result = new_tmp( $parser, 'pmc', 'function' );
    push @opcodes1, new LocalDir( $parser, <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	561	663	
==>kage available on your
# nearest CPAN
#
# Any use of this module in a standalone parser make the includ <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	1108	1223	
==>");
    system("make");

    # Now run the tests
    system("make fulltest");
}

# And generate the reports.

my @da <==
3	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	64	153	
==>ib/Parrot/BuildUtil.pm 20321 2006-06-20T20:02:00.179448Z bernhard  $

=head1 NAME

lib/Par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14508	14700	
==>CODE" => 19,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 247 \"src/ops/core.ops\"\n  opcode_t * const loc = <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	21664	21767	
==>e is used.

Output will be indented and marked with a # so as not to interfere
with test output.  A newl <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	13907	14005	
==>($$textref) < length($$textref))
	{
		$matched = '';
		if ($rd && $$textref =~ m#\G(\Q(?)\E|\Q(s?)\ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2629	2736	
==>|| die "No target\n";
    my $silent = shift || 0;
	my $index_html = '';
	
	print "\n\n", $self->name unless <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436491	436577	
==>"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437506	437592	
==>"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, {{\@ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2199	2299	
==>:Construct::Expression::Value::Identifier')) {
    my $right_sym = $block->find_symbol($right->value) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2157	2257	
==>:Construct::Expression::Value::Identifier')) {
    my $right_sym = $block->find_symbol($right->value) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2079	2179	
==>:Construct::Expression::Value::Identifier')) {
    my $right_sym = $block->find_symbol($right->value) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	239058	239289	
==>" => [
                              "i",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 611 \"src/ops/cmp.ops\"\n  {{\@1}} = mmd_dispatch_i_pp( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846664	846778	
==>TRING *s;\n  s = string_chr(interpreter, (UINTVAL){{\@2}});\n  {{\@1}} = s;\n  {{+=3}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847460	847574	
==>TRING *s;\n  s = string_chr(interpreter, (UINTVAL){{\@2}});\n  {{\@1}} = s;\n  {{+=3}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/config/inter/ops.pm	1080	1199	
==>D";


The following opcode files are available:
  @ops
END
        {
            $ops = prompt('Which opcode files would <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	16127	16244	
==>->jump($jumps);
        $self->push_op($op);
        $counter++;
    }

    return $counter;
}

=item C<expand_args(@a <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	12969	13080	
==>sys_allocate_zeroed(OP_HASH_SIZE * sizeof(HOP*));
        hop_init();
    }
    for (p = hop[hidx]; p; p = p->ne <==
3	/Users/nnunley/parrot/lib/Test/More.pm	24030	24124	
==>feature (like fork() or symlinks), or maybe
you need an Internet connection and one isn't avail <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	34674	34760	
==>> "#line 632 \"src/ops/core.ops\"\n  {{\@1}}->vtable->set_pointer(interpreter, {{\@1}}, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408924	409195	
==>tion",
                  "CODE" => 472,
                  "ARGS" => [
                              "i",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 540 \"src/ops/io.ops\"\n    {{\ <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	7465	7581	
==>arser->_LongStringLexer($1);

            s/^([A-Z_a-z][0-9A-Z_a-z]*)//
                and return $parser->_Ident <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516658	516885	
==>Y" => "#line 729 \"src/ops/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517397	517624	
==>Y" => "#line 729 \"src/ops/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	2216	2324	
==>_}_class_init(interp, enum_class_${_}, pass);\n"
        foreach (@pmcs[0 .. $#pmcs - 1]);
    print OUT <<"E <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	3871	3995	
==>'    , 194,
 'Atilde'   , 195,
 'Auml'     , 196,
 'Aring'    , 197,
 'AElig'    , 198,
 'Ccedil'   , 199,
 'Egrave'   , 200, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561925	562018	
==>real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", {{\@3}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563009	563102	
==>real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", {{\@3}} <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	20348	20448	
==>'expr', 2,
sub
#line 129 "lib/Regex/Grammar.y"
{ return op('multi_match' => [ $_[2]->{min}, $_[2]->{m <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22019	22133	
==>ame} } 

sub new ($$$$$)
{
	my $class = ref($_[0]) || $_[0];
	bless 
	{
		"code"      => $_[1],
		"lookahead" => $_ <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3122	3218	
==>core_pmcs.pm

package Parrot::PMC;

use strict;
use warnings;

use vars qw(@ISA %pmc_types @EXPOR <==
3	/Users/nnunley/parrot/lib/Parrot/PMC.pm	66	162	
==>core_pmcs.pm

package Parrot::PMC;

use strict;
use warnings;

use vars qw(@ISA %pmc_types @EXPOR <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	9399	9519	
==>eturn ($N1)
two:
    $N1 = cos op2
    .return ($N1)
three:
    $N1 = tan op2
    .return ($N1)
four:
    $N1 = op2 * op2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2122	2235	
==>lse
    {
  	    return "if ((opcode_t *) $addr == 0)
	  return 0;
    goto *ops_addr[*(cur_opcode = (opcode_t *)$ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	132	235	
==>ck to register mapping algorithm.

use strict;
use Getopt::Long;
use lib 'build';

# This is a list of i <==
3	/Users/nnunley/parrot/lib/Test/More.pm	36177	36274	
==>han the existing Test.pm.  As such, the
names of the most common routines are kept tiny, special c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29472	29565	
==>pc = parrot_pass_args(interpreter, caller_ctx, ctx,\n\t    PARROT_OP_get_params_pc);\n    if ( <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1635	1890	
==>N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
print "Elapsed time:  $N2\n"; # print  "Elapsed time:  "
                              # print  N2
                              # print  " <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	1635	1890	
==>N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
print "Elapsed time:  $N2\n"; # print  "Elapsed time:  "
                              # print  N2
                              # print  " <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	27068	27172	
==>xtargs, $lastback);
    } else {
        return ($lastback, aop('external' => [ $extname, $extargs, $last <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5110	5223	
==>put_label_use($passLabel);

    while (@$incexc) {
        my $first = shift(@$incexc);
        my $last = shift(@ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4785	4898	
==>put_label_use($passLabel);

    while (@$incexc) {
        my $first = shift(@$incexc);
        my $last = shift(@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761504	761743	
==>s\");\n    REG_PMC({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762357	762596	
==>s\");\n    REG_PMC({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814971	815182	
==>line",
                  "CODE" => 920,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 567 \"src/ops/set.ops\"\n  {{\@1}} = PMCNU <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1446	1576	
==>ss
{
    my ($self, $addr) = @_;

    #print STDERR "pbcc: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
        return "retu <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1971	2101	
==>ss
{
    my ($self, $addr) = @_;

    #print STDERR "pbcc: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
        return "retu <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1862	1991	
==>ss
{
    my ($self, $addr) = @_;

    #print STDERR "pbcc: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
  	    return "retu <==
3	/Users/nnunley/parrot/lib/Test/More.pm	27507	27602	
==>son functions

The use of the following functions is discouraged as they are not
actually testin <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5910	6002	
==>nt@brentdax.com>.

=head1 AUTHOR

Joshua Hoblitt C<jhoblitt@cpan.org>

=head1 SEE ALSO

F<doc <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6759	6851	
==>nt@brentdax.com>.

=head1 AUTHOR

Joshua Hoblitt C<jhoblitt@cpan.org>

=head1 SEE ALSO

F<doc <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	236	409	
==>OST !
#
####################################################################
package Regex::Grammar;
use vars qw ( @ISA );
use strict;

@ISA= qw ( Parse::Yapp::Driver );
#Inc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1108951	1109086	
==>er, NULL, NO_CLASS,\n                \"Can only use a Key or String PMC with new\");\n    }\n    {{+=3}};\n",
                  "experim <==
3	/Users/nnunley/parrot/lib/Test/More.pm	27973	28074	
==>eply( \@this, \@that );

They may be deprecated in future versions.

=over

=item B<eq_array>

  my $i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501556	501777	
==>"CODE" => 576,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 621 \"src/ops/math.ops\"\n  {{\@1}} *= {{ <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	857	1146	
==>s:    $I4\n"; # print  "Iterations:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, I1
                              #
prin <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	857	1146	
==>s:    $I4\n"; # print  "Iterations:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, I1
                              #
prin <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	43104	43233	
==>bel if $label;
    }
    $self->{code} .= "\n";
  }
}

sub new {
  my $class = shift;
  my $tree  = shift;
  my $self = {
    tree <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	7592	7700	
==>lob $_[0]\n";
    # and fall thru   
  } elsif(ref( $_[0] ) eq 'SCALAR') {
    $self->{'source_scalar_ref'} = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1012	1117	
==>construct->isa("Jako::Construct::Declaration::Sub")
    ) {
      if ($last_seen ne 'sub') {
        $comp <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	4938	5033	
==>lf->suffix eq 'dump';
	
	if ( ! exists $self->{POD_ERRORS_TIME} or 
		$self->modified_since($sel <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94962	95145	
==>{{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95855	96038	
==>{{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96748	96931	
==>{{\@1}} = string_bitwise_and(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	6084	6190	
==>"singleLine" start="#" />
    </comments>

    <keywords casesensitive="1" />

  </general>

</language>

E <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	1475	1574	
==>both `cat` and dispatch
on file suffix.

=item * Finish making this usable as a library.

=item * It <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223624	223771	
==>teger(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224566	224713	
==>teger(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	25141	25261	
==>$maybe_fh) || ''), 'TIEHANDLE');
}


sub _autoflush {
    my($fh) = shift;
    my $old_fh = select $fh;
    $| = 1;
    s <==
3	/Users/nnunley/parrot/config/init/hints/freebsd.pm	875	998	
==>ing     => 1,
        parrot_is_shared        => 1,
        libparrot_shared        => 'libparrot$(SHARE_EXT).$(SOVERSION)', <==
3	/Users/nnunley/parrot/config/init/hints/linux.pm	1713	1836	
==>ing     => 1,
        parrot_is_shared        => 1,
        libparrot_shared        => 'libparrot$(SHARE_EXT).$(SOVERSION)', <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2570	2661	
==>OutStream -e \
   "exit Pod::Simple::XMLOutStream->filter(shift)->any_errata_seen" \
   thin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459537	459806	
==>YPE" => "inline",
                  "CODE" => 527,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 282 \"src/ops/math. <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	4134	4239	
==>a quoted string or
	#   no prompting is done.  However, QB says that if no prompt, use " ?"
	if ($type[CUR <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	39157	39252	
==>ect> is "MAX", then
C<extract_tagged> returns the complete text up to the point of failure.
If t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273533	273706	
==>,
                              "n"
                            ],
                  "BODY" => "#line 876 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	274379	274552	
==>,
                              "n"
                            ],
                  "BODY" => "#line 876 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	524035	524358	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sqrt",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	4163	4326	
==>t barrel on thru (but still not start a pod block).
          #splice @_;
          #push @_, undef;
          
          next;
        } else {
          $self->{' <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	2254	2388	
==>!$2;
        $arg->{name}        = $3;
        $arg->{type}        = $4 || ( $arg->{option} ? undef: "string" );
        $arg->{default <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544470	544605	
==>\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n gcd = b<<p;\n saved_va <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545806	545941	
==>\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n gcd = b<<p;\n saved_va <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547142	547277	
==>\n   else if (!(b & 1)) b>>=1;\n   else if (a<b)      b = (b-a)>>1;\n   else               a = (a-b)>>1;\n }\n \n gcd = b<<p;\n saved_va <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	19981	20117	
==>ions of " .
                "more than 2 bytes in rule $_->{'name'}\n";
        }
    }

    # If we have 3 or less rules, dispatch direc <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1473	1571	
==>VENTS elsewhere this macro should (again)
 * be in includes/parrot/event.h
 *
 * This gives +50 % p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	99220	99587	
==>> [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 123,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 101 \"src/ops/bit.o <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	31791	31912	
==>P');
    my $name = $tos->[1];
    $n = $name;
    $n =~ s/["]//g;
    my $mangle = qq!"py::$n"!;
    $classes{$n} = $mang <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	3305	3411	
==>/$_.dump " foreach reverse((pmc_parents($pmc)));
        my $parent_headers = '';
        $parent_headers . <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	1499	1636	
==>de');
        }
    }

    cc_gen('config/auto/gmp/gmp.in');
    eval { cc_build(); };
    my $has_gmp = 0;
    if (!$@) {
        my $tes <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	1914	2027	
==>{ 
			$stype="ARRAY"; 
		} else {
			$var=~s/\W$//g;
		}
		#print "Type: $stype  User: $user Var: $var  Array: $ar <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	2394	2504	
==>rsion ops might fail!

END
    }

    if ($results{floatsize} == 4) {
        $conf->data->set(float4_t => 'flo <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1941	2043	
==>Run_core_t> C<enum> in
F<include/parrot/interpreter.h> for a list of the core types.

=cut

sub core_ty <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	4736	4858	
==>,
 'eth'      , 240,
 'ntilde'   , 241,
 'ograve'   , 242,
 'oacute'   , 243,
 'ocirc'    , 244,
 'otilde'   , 245,
 'ouml' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830600	830688	
==>/stack.ops\"\n  INTVAL i = {{\@1}};\n  stack_push(interpreter, &CONTEXT(interpreter->ctx) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831341	831429	
==>/stack.ops\"\n  INTVAL i = {{\@1}};\n  stack_push(interpreter, &CONTEXT(interpreter->ctx) <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10563	10679	
==>on and length($section .= '') ) 
    {
        $section =~ tr/ /_/;
        $section =~ tr/\x00-\x1F\x80-\x9F//d if ' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3958	4060	
==>on and length($section .= '')) {
    $section =~ tr/ /_/;
    $section =~ tr/\x00-\x1F\x80-\x9F//d if ' <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4978	5074	
==>reg_type_short"]
${STACK0} = concat ${STEMP1}
${STACK0} = concat "0"

# Emit pop code.
${INS} = c <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	11066	11214	
==>e endings
            convert_line_endings( $expected );

            # set up default description
            unless ( $desc ) {
               (und <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	16551	16699	
==>e endings
            convert_line_endings( $expected );

            # set up default description
            unless ( $desc ) {
               (und <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	860	976	
==>', $key, '="', $value, '"';
    }
  }


  print $fh ">\n";
  $_[0]{'indent'}++;
  return;
}

sub _handle_text {
  DEB <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28008	28124	
==>$expr );
    push @opcodes, @{ $cond->[1] };
    push @opcodes, new BranchIfOp( $parser,
        'arg1'   => $cond <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	296	399	
==>and is
used by F<tools/build/pbc2c.pl> to transform Parrot bytecode to a C code
run loop.

=head2 Instan <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	6522	6623	
==>sulty, $typey, @codey);
	my($resultx, $typex, @codex);
	if ($type[NEXT] =~ /PUN/) {  # Y only
		feedme <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	4111	4258	
==>tecode', 
            '',
            $self->c_item(
                'Parrot Packfile API and utilities.', 
                'contents' => ['src/pack <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2786	2904	
==>D}{}d;
  }

  my $i = ' ' x ( 2 * $self->{'Indent'} + 4);
  #my $i = ' ' x (4 + $self->{'Indent'});
  
  $self->{'Thisp <==
3	/Users/nnunley/parrot/config/auto/headers.pm	2357	2472	
==>nf->data->set(testheaders => undef);
            $conf->data->set(testheader  => undef);

            eval { cc_buil <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5063	5182	
==>tents_relative_to_source
{
    my $self = shift;
    my $source = shift;
    my @contents = ();
    
    foreach my $con <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3055	3159	
==>tents_relative_to_source
{
	my $self = shift;
	my $source = shift;
	my @contents = ();
	
	foreach my $con <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25293	25384	
==>p = {{\@1}};\n  dest = {{^+2}};\n  interpreter->current_cont = CONTEXT(interpreter->ctx)->cu <==
3	/Users/nnunley/parrot/lib/Test/More.pm	9616	9718	
==>o that of is() and isnt().  Better
diagnostics on failure.

=cut

sub like ($$;$) {
    $Test->like(@_) <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	52622	52720	
==>@@@@@@@@

sub _dump_curr_open { # return a string representation of the stack
  my $curr_open = $_[ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	2514	2608	
==>uppress whining
  'no_errata_section', # whether to suppress the errata section
  'complain_std <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	717	835	
==>tput_match {
    my ($byte) = @_;
    return "match '$byte'";
}

sub output_classmatch {
    my ($class) = @_;
    retu <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	31288	31387	
==>ile {
}

sub _op_close_input_port {
}

sub _op_close_output_port {
}

sub _op_read {
}

sub _op_read <==
3	/Users/nnunley/parrot/lib/Test/More.pm	7821	7920	
==>ing for (beyond the name), but is() and
isnt() know what the test was and why it failed.  For exampl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38809	39010	
==>ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 720 \"src/ops/core.ops\"\n  if ({{\@1}} == EXCEPT_doomed <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1844	1984	
==>ompile_cmd {
    my ($target, $source) = @_;

    return
        "$CC $CFLAGS " .
        "-o " . $target . " " .
        "-I" . $PATHQUOTE . <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2140	2280	
==>ompile_cmd {
    my ($target, $source) = @_;

    return
        "$CC $CFLAGS " .
        "-o " . $target . " " .
        "-I" . $PATHQUOTE . <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1935	2075	
==>ompile_cmd {
    my ($target, $source) = @_;

    return
        "$CC $CFLAGS " .
        "-o " . $target . " " .
        "-I" . $PATHQUOTE . <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21713	21820	
==>gt'    ,[$temp,0,"DONE_$label"]);
  $self->_restore($temp);
  $self->_add_inst(''           ,'set'   ,[$retu <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	13037	13142	
==>$pir .= "### end pre_translation\n\n";

    # Emit first bit of PIR to loop over instructions. Each transl <==
3	/Users/nnunley/parrot/config/auto/isreg.pm	254	348	
==>age auto::isreg;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure:: <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29175	29286	
==>_[2],
		"line"        => $_[3],
		"description" => "'$desc'",
	}, $class;
}


sub code($$$$)
{
	my ($self, $name <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31275	31383	
==>_[2],
		"line"      => $_[3],
		"description" => "'$desc'",
	}, $class;
}

sub code($$$$)
{
	my ($self, $name <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41447	41565	
==>backtrack;

		  # MATCH RIGHTARG
		  ' . $rightarg->code(@_[1..2]) . '
		  $repcount++;
		  ';
	}

	$code .= 'unless (@ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	22545	22638	
==>f (ref($func) eq 'Text::Balanced::Extractor')
					{ @bits = $field = $func->extract($$textref <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	12221	12312	
==>nterp->op_lib->op_code("set", 0)
 * interp->op_lib->op_code("set_i_i", 1)
 *
 * returns >= 0 <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28386	28480	
==>RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
						. $ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30462	30556	
==>RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
						. $ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32662	32756	
==>RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
						. $ <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	5760	5858	
==>ary();
write_function_coverage_summary();
write_index();

exit(0);


sub write_index {
    print "W <==
3	/Users/nnunley/parrot/lib/Parrot/PMC.pm	992	1095	
==>rray => 44,
	Hash => 45,
	OrderedHash => 46,
	TQueue => 47,
	ParrotClass => 48,
	ParrotObject => 49,
	OS <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	9344	9451	
==>ak "\"$new_code\" isn't a valid element name"
        if $new_code =~
          m/[\x00-\x2C\x2F\x39\x3B-\x4 <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10608	10715	
==>ak "\"$new_code\" isn't a valid element name"
        if $new_code =~
          m/[\x00-\x2C\x2F\x39\x3B-\x4 <==
3	/Users/nnunley/parrot/Configure.pl	2408	2504	
==>t_aton

=back

Parrot Options

=over

=item C<--intval=(type)>

Use the given type for C<INTVAL>. <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	3740	3848	
==>k( defined($btaste) && ref $btaste eq 'Film,     'new() works' );

    ok( $btaste->Title      eq 'Bad Taste' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656436	656524	
==>({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657360	657448	
==>({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+ <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	10531	10649	
==>}";
        my $arg_dirs   = "{ " . join(", ", scalar $op->arg_dirs
            ? map { $arg_dir_mapping{$_} } $op->arg <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029896	1030095	
==>n_event(interpreter, {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030738	1030937	
==>n_event(interpreter, {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	9223	9373	
==>dir) = @_;
        my $FH    = $self->{fh};
        if ( exists $dir->{pragma} ) {
            print {$FH}
                "  .param $dir->{result} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910862	911129	
==>ine",
                  "CODE" => 1026,
                  "ARGS" => [
                              "i",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 284 \"src/ops/string.ops\"\ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	1023	1131	
==>}
sub value { return shift->{VALUE}; }


#
# compile()
#
# Essentially a no-op for values (except string lite <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9520	9616	
==>xt, $thisparser, 1;
	':'') . ($parser->{_check}{itempos} ? '
	my $thisline;
	tie $thisline, q{Par <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27228	27329	
==>($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying terminal: [' . $self->describe
					  . ']}, <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29331	29432	
==>($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying terminal: [' . $self->describe
					  . ']}, <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31428	31529	
==>($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying terminal: [' . $self->describe
					  . ']}, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048285	1048383	
==>xception(1, \"Tried to get null global.\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_global <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049209	1049307	
==>xception(1, \"Tried to get null global.\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_global <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5143	5255	
==>> macro in an ops file into the
relevant C code.

=cut

sub goto_pop 
{
    my ($self) = @_;

    return $self->g <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	486	590	
==>------
{
#
# Module Parse::Yapp::Driver
#
# This module is part of the Parse::Yapp package available <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	475	574	
==>------
{
#
# Module Parse::Yapp::Driver
#
# This module is part of the Parse::Yapp package available <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35613	35715	
==>n $_[0]->{"subrule"} }
sub isterminal { 0 }
sub sethashname { }

sub describe ($)
{
	my $desc = $_[0]-> <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33092	33193	
==>n $_[0]->{"subrule"} }
sub isterminal { 0 }
sub sethashname {}

sub describe ($)
{
	my $desc = $_[0]-> <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	31175	31272	
==>L, "$labels{$_}", $labels{$_}\n|;
		}
	}

	push @{$code{$seg}->{code}}, <<RTBE;
	print "Runtime br <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257675	258002	
==>=> "xor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 300,
                  "ARGS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255860	256157	
==>=> "xor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256767	257064	
==>=> "xor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
3	/Users/nnunley/parrot/config/init/hints/hpux.pm	194	309	
==>f, $conf) = @_;

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthre <==
3	/Users/nnunley/parrot/config/init/hints/solaris.pm	248	363	
==>f, $conf) = @_;

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthre <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3409	3515	
==>f->output_label_use($dest) . " if $reg;";
}

sub output_unless {
    my ($self, $reg, $dest) = @_;
    $reg <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9182	9406	
==>r->resume_flag = 2;\n    {{=0}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10298	10522	
==>r->resume_flag = 2;\n    {{=0}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	10265	10365	
==>sed, the key of each element is
prefixed with the class name (see I<Perl Cookbook>, Recipe 13.12).

A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950662	950985	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951622	951945	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952582	952905	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505274	505664	
==>_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 581,
                  "ARGS" => [
                              "i",
                              "i",
                              "i <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	5884	6009	
==>TOR flag
	for (my $i = 0; $i < @params; ++$i) {
	    my $p = $params[$i];
	    print <<EOC;
	$p = find_lex -1, $i
EOC
	}
    } <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	2554	2673	
==>h;
	
	# Sub in config data.
	for (keys %config) {
		$config_pm =~ s/\${$_}/$config{$_}/g;
	}
	
	# Write.
	open $ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	13971	14135	
==>object;
            $diag = "$obj_name isn't a '$class' it's a '$ref'";
        }
    }
            
      

    my $ok;
    if( $diag ) {
        $ok = $Test->ok( 0 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1811	1911	
==>RSION} < $COMPATIBLE
	and	croak "Yapp driver version $VERSION ".
			  "incompatible with version $$ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1747	1845	
==>RSION} < $COMPATIBLE
	and	croak "Yapp driver version $VERSION ".
			  "incompatible with version $$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627750	628060	
==>P" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 704,
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	626607	626895	
==>P" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 70 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628894	629182	
==>P" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 70 <==
3	/Users/nnunley/parrot/tools/dev/pbc_header.pl	805	920	
==>PBC_COMPAT';
    open IN, $compat_file or die "Can't read $compat_file";
    my @lines = <IN>;
    close IN;

    my <==
3	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	735	834	
==>PBC_COMPAT';
open IN, $compat_file or die "Can't read $compat_file";
my @lines = <IN>;
close IN;

my <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1819	1909	
==>rule_isnt($target, $pattern, $description, @todo)>

Runs the target string against the Perl <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35163	35267	
==>ethods}[$n], $line, $out_name);
    }
    my $decl = $self->decl($self->{class}, $method, 0);
    my $ret <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36466	36570	
==>ethods}[$n], $line, $out_name);
    }
    my $decl = $self->decl($self->{class}, $method, 0);
    my $ret <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	3573	3667	
==>E

Digest::MD5::Perl - Perl implementation of Ron Rivests MD5 Algorithm

=head1 DISCLAIMER

Thi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610904	611173	
==>PE" => "inline",
                  "CODE" => 692,
                  "ARGS" => [
                              "p",
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 491 \"src/ops/object <==
3	/Users/nnunley/parrot/config/init/miniparrot.pm	1763	1902	
==>dler_t => undef,
        has_sigatomic_t    => undef,
        has_sigaction      => undef,
        has_setitimer      => undef,

        # w <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259193	259461	
==>_same(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263547	263815	
==>_same(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	3426	3519	
==>_is($code, $expected, $description)>

Runs the Parrot Bytecode and passes the test if a string <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	15986	16111	
==>S => {
			"." => 60
		}
	},
	{#State 42
		DEFAULT => -18
	},
	{#State 43
		DEFAULT => -16
	},
	{#State 44
		DEFAULT => -20
	}, <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2851	2959	
==>eval_is()";
        &Test::is.goto($result, $expected, $desc, :$todo, :$depends);
    }
}

## cmp_ok

sub cmp <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	1208	1303	
==>meta2,... <whitespace> destination

Additionally, there may be a * in front of the whole line to <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	403	492	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_element_start {
  # ($self, $e <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	402	491	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_element_start {
  # ($self, $e <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	2033	2156	
==>ss . "::args"};
    }
}

=back

=head1 AUTHOR

Joshua Hoblitt C<jhoblitt@cpan.org>

=head1 SEE ALSO

F<docs/configuration.po <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1958	2053	
==>{$formal_args[$i]};
    my $actual_arg_type;

    if (UNIVERSAL::isa($args[$i], 'Jako::Construct <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1658	1753	
==>{$formal_args[$i]};
    my $actual_arg_type;

    if (UNIVERSAL::isa($args[$i], 'Jako::Construct <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847710	847919	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848489	848698	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io", <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	7152	7247	
==>is software
or this function.

License is also granted to make and use derivative works provided <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681108	681466	
==>> [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 764,
                  "ARGS" => [
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 507 \"src/ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14583	14716	
==>e 25
		DEFAULT => -78
	},
	{#State 26
		DEFAULT => -82
	},
	{#State 27
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	6900	7027	
==>/^[Ff]$/  ) ? 1 : 0;
		my $small    = ($type =~ /^[Gg]$/  ) ? 1 : 0;
		my $code     = ($type =~ /^[Tt]$/  ) ? 1 : 0;
		my $undef <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785917	786170	
==>,
                  "ARGS" => [
                              "i",
                              "p",
                              "ki"
                            ],
                  "BODY" => "#line 417 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vta <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29534	29676	
==>44
		}
	},
	{#State 93
		ACTIONS => {
			";" => 146,
			"," => 147
		},
		DEFAULT => -107,
		GOTOS => {
			'fieldsep' => 145
		}
	} <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3063	3184	
==>turn $$self{STACK}[$index][1];

	undef;	#Invalid index
}

sub YYCurtok {
	my($self)=shift;

        @_
    and ${ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2915	3027	
==>turn $$self{STACK}[$index][1];

	undef;	#Invalid index
}

sub YYCurtok {
	my($self)=shift;

        @_
    and ${ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	46689	46780	
==>e document are successfully extracted and
concatenated.

In a list context, C<extract_quotel <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	27294	27520	
==>,
                  "TYPE" => "function",
                  "CODE" => 36,
                  "ARGS" => [
                              "pc"
                            ],
                  "BODY" => "#line 491 \"src/ops/core.ops <==
3	/Users/nnunley/parrot/languages/regex/test.pl	3560	3680	
==>, $ctx, DEBUG => $DEBUG);
    }

    close PIR;
}

sub generate_pbc {
    my ($pir, $pbc) = @_;
    my $status = system(" <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	3578	3672	
==>y class using
C<PMC_data> will have C<need_ext>.

=item C<does interface>

The class 'does' the <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	3179	3305	
==>onfig/gen/makefiles/languages.in' => 'languages/Makefile',
        commentType                         => '#',
        replace_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215029	215119	
==>cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215970	216060	
==>cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11161	11261	
==>call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1}["reg_type_short"]
${DEST0} = concat ${ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8347	8447	
==>call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1}["reg_type_short"]
${DEST0} = concat ${ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6009	6109	
==>call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1}["reg_type_short"]
${DEST0} = concat ${ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22686	22784	
==>ako::Construct::Expression::Value::Identifier->new($block, $self->require_ident);

      my ($cond, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4892	4981	
==>ako::Construct::Expression::Value::Identifier->new($block, $self->require_ident);
      my <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7886	7975	
==>ako::Construct::Expression::Value::Identifier->new($block, $self->require_ident);
      my <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	13718	13822	
==>n
@a	bsr DEREF		       # De-reference variables and whatnot.
	P0= P10[I25]
	P1= P0["SELECTS"]
	P1["$selec <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28141	28241	
==>rse::RecDescent::unexpected
				   = ($lastsep||"").$text;
			}'.($::RD_NO_TRACE?'':'
			Parse::RecDe <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30215	30315	
==>rse::RecDescent::unexpected
				   = ($lastsep||"").$text;
			}'.($::RD_NO_TRACE?'':'
			Parse::RecDe <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32416	32516	
==>rse::RecDescent::unexpected
				   = ($lastsep||"").$text;
			}'.($::RD_NO_TRACE?'':'
			Parse::RecDe <==
3	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	612	753	
==>e (1) {
         my ($input, $output);

         last if ! defined $_;
         die "INPUT: expected" if ! /^INPUT:/;

         # Gather input <==
3	/Users/nnunley/parrot/languages/regex/test.pl	2549	2670	
==>e (1) {
    my ($input, $output);

    last if ! defined $_;
    die "INPUT: expected" if ! /^INPUT:/;

    # Gather input <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19868	19966	
==>ropriately is useful if you want to use the RTF
to spellcheck, and/or if you want it to hyphenate r <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7586	7694	
==>eration hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If the destina <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5704	5812	
==>eration hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If the destina <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4546	4654	
==>eration hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If the destina <==
3	/Users/nnunley/parrot/languages/APL/t/APL.pm	1695	1830	
==>o = "not implemented";
      }
      if ($ENV{APLDEV}) {
        TODO: {
          local $TODO = $todo;
          Parrot::Test::language <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189733	189819	
==>rc/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) < {{\@2}}) { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190674	190760	
==>rc/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) < {{\@2}}) { <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12507	12641	
==>> 47,
			"{" => 38,
			"(" => 48,
			"." => 49
		},
		DEFAULT => -10,
		GOTOS => {
			'tableconstructor' => 46,
			'args' => 43 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	56401	56534	
==>], $_[2] );
        }
	],
	[#Rule 85
		 'functioncall', 4,
sub
#line 451 "Lua\lua51.yp"
{
            BuildCallFunction( $_[0] <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	3311	3409	
==>pos+$prelen;
	my $endpos = pos $$textref;
	return _succeed $wantarray, $textref,
			$matchpos, $end <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	15701	15839	
==>xtra );
            local *{ $call_pkg . '::TODO' } = \$extra{todo}
                if defined $extra{todo};

            my $pass = $build <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	18252	18390	
==>xtra );
            local *{ $call_pkg . '::TODO' } = \$extra{todo}
                if defined $extra{todo};

            my $pass = $build <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	6293	6392	
==>LF>.

=back

=head1 AUTHOR

Leopold Toetsch.

Cleaned up by Matt Diephouse.

Many thanks to the auth <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957597	957710	
==>rpreter, NULL, 1,\n\t\"encoding '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958502	958615	
==>rpreter, NULL, 1,\n\t\"encoding '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	6730	6836	
==>oken -- it's undef!"
     unless defined $t;
    Carp::croak "Can't unget $t, because it's not a token -- i <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	8403	8535	
==>- - - - - - - - - - - - - - - - - - - - - - - - - - - -
    } elsif( $type eq 'text' ) {
      esc($type = $token->text);  # reuse $t <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5969	6078	
==>);
    next if ($entry->[4] =~ /_INT$/);
    next if ($entry->[4] =~ /_STR$/);
    next if ($entry->[4] =~ /_F <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6387	6496	
==>);
    next if ($entry->[4] =~ /_INT$/);
    next if ($entry->[4] =~ /_STR$/);
    next if ($entry->[4] =~ /_F <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	49230	49339	
==>but needed only ">".  Back pos up.
        DEBUG > 4 and print " And that's more than we needed to close simpl <==
3	/Users/nnunley/parrot/config/auto/memalign.pm	1159	1267	
==>data->get('intsize')) {
        $conf->data->set(ptrcast => 'int');
    } else {
        $conf->data->set(ptr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3569	3667	
==>ol table only. If there is no
locally defined symbol with that name, then we return undef.

See als <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26875	27000	
==>tion' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 83
		ACTIONS => {
			"-" <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	1358	1481	
==>>
        <TABLE CELLSPACING="0" WIDTH="730">
            <TR>
                <TD WIDTH="100%" COLSPAN="2" CLASS="BANNER">p <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	9185	9300	
==>eq 'multi_match') {
        # R<min,max>: R is guaranteed to have 1/max as many available
        # as the whole thi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404149	404445	
==>":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 467,
                  "ARGS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79086	79191	
==>me);\n  if (p == NULL) {\n      const char * const err = Parrot_dlerror();\n      Parrot_warn(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80607	80712	
==>me);\n  if (p == NULL) {\n      const char * const err = Parrot_dlerror();\n      Parrot_warn(interpreter, <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	16927	17020	
==>ken object (which will be of a subclass of
L<Pod::Simple::PullParserToken>), or undef if the p <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	1503	1634	
==>g' => 'README file',
	'il' => 'MSIL assembler code',
	'imc' => 'IMC code',
	'in' => 'Configuration file',
	'jako' => 'Jako code',
	' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	930	1040	
==>y $name = shift;
    return '<rx_pos>' if $name eq 'pos' || $name eq '<pos>';
    return '<rx_tmp>' if $name eq <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeDumb.pm	826	936	
==>$x (@_) {
    #  if(Pod::Simple::ASCII and !Pod::Simple::UNICODE and $] > 5.005) {
    #    # We're in horrible <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54584	54685	
==>le($code,$line);
			}
			elsif ($grammar =~ m/(?=$RULEVARPATMK)/gco
				and do { ($code) = extract_cod <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14606	14703	
==>oint_size,
    $title,
    $self->normal_halfpoint_size,
  ;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	4048	4144	
==>ptcode="INPUT_$inputcounts:\n";
	# BASIC is unambiguous here.  The next thing must be a quoted st <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276215	276474	
==>_compare(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277093	277352	
==>_compare(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277971	278230	
==>_compare(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	5325	5454	
==>rgs}[0];
    } elsif ($type eq 'start' || $type eq 'end') {
	return 0;
    } else {
        my @Rargs = @{ $R->{args} };
        m <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3636	3743	
==>ock is not a module!")
        unless $self->block->kind eq 'module';

      my %module_props = $self->block <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6300	6407	
==>ock is not a module!")
        unless $self->block->kind eq 'module';

      my %module_props = $self->block <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	136	307	
==>on.
# $Id: /parrot/tools/dev/run_indent.pl 19607 2006-05-30T15:23:20.183054Z coke  $
################################################################################

=head <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	526	643	
==>a new section.

=cut

sub new
{
    my $self = shift;
    
    return $self->SUPER::new(
        'Tools', 'tools.html' <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	2549	2648	
==>ad2 Construction

=over 4

=item B<new>

  my $Test = Test::Builder->new;

Returns a Test::Builder o <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5893	5994	
==>stuff. If the branch
	# did not pop anything it is unconditional, so next instruction needs to
	# have <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3831	3932	
==>stuff. If the branch
	# did not pop anything it is unconditional, so next instruction needs to
	# have <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	124	220	
==>e  $

=head1 NAME

config/gen/makefiles.pm - Build files

=head1 DESCRIPTION

Generates the vario <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11597	11699	
==>2 goto NO_IN_TRACE
printerr "    PTYPES: "
i = elements ptypes
j = 0
PTYPES_LOOP:
if j == i goto PTYPES <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14311	14412	
==>($title);
  DEBUG and print "Title1: <$title>\n";
  $title = '\lang1024\noproof ' . $title
   if $is_o <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45387	45481	
==>my $CONDREJECTMK	= '\G\s*<reject:';
my $SCOREMK		= '\G\s*<score:';
my $AUTOSCOREMK		= '\G\s*<au <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	1667	1784	
==>es{$stype}) {
					die "User type $stype not found at source line $sourceline";
				}
				$user=1
			}
		}
		unless ($ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	5946	6056	
==>c and next;
			_failmsg "Unmatched embedded quote ($1)",
				 pos $$textref;
			pos $$textref = $startpos;
			r <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5973	6068	
==>num++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		($a1,$a2,$ot1,$ot2)=($a2,$a1,$ot2,$ot1);
		retu <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22471	22572	
==>nstant(2);
  $self->_add_inst(''           ,'mod'   ,[$temp_0,$temp_0,$temp_1]);
  $self->_add_inst('' <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22972	23073	
==>nstant(2);
  $self->_add_inst(''           ,'mod'   ,[$temp_0,$temp_0,$temp_1]);
  $self->_add_inst('' <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	271	360	
==>pm.pl [--help] [--no-lines] input.ops [input2.ops ...]
 $ perl tools/build/ops2pm.pl [--re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011394	1011617	
==>{\@1}} = Parrot_Run_OS_Command(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012159	1012382	
==>{\@1}} = Parrot_Run_OS_Command(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	57	154	
==>arrot/lib/Parrot/Configure/Step.pm 20340 2006-06-22T21:49:11.552283Z bernhard  $

=head1 NAME

Par <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1576	1674	
==>:compile($compiler);
      $compiler->outdent;
      $compiler->emit(".endnamespace ${namespace}_CO <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1471	1567	
==>:compile($compiler);
      $compiler->outdent;
      $compiler->emit(".endnamespace ${namespace}_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1827	1923	
==>:compile($compiler);
      $compiler->outdent;
      $compiler->emit(".endnamespace ${namespace}_ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10796	10914	
==>sub new {
        my($class)=shift;
        ref($class)
    and $class=ref($class);

    my($self)=$class->SUPER:: <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11797	11910	
==>sub new {
        my($class)=shift;
        ref($class)
    and $class=ref($class);

    my($self)=$class->SUPER:: <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	11422	11512	
==>ess ($$textref =~ m/\G\s*(?:::|')?(?:[_a-z]\w*(?:::|'))*[_a-z]\w*/gci
	    	or _match_codeb <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96336	96723	
==>"o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 119,
                  "ARGS" => [
                              "s",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 63 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	13386	13503	
==>nce.
				foreach my $arg (@args) {
					next if $arg->[0] =~ /^\$P\d+$/;
					if ($arg->[2] eq "BARE") {
						push @r <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	22420	22551	
==>ict 'refs';

        *{$package.'::'.$func} = sub {
            my ($source, $expected, $desc) = @_;

            # $test_no will be <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1161	1284	
==>pe($text);
    $text =~  # A not-totally-brilliant wrapping algorithm:
      s/(
         [^\n]{55}         # Snare some cha <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1105	1228	
==>pe($text);
    $text =~  # A not-totally-brilliant wrapping algorithm:
      s/(
         [^\n]{55}         # Snare some cha <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	46962	47056	
==>@@@@@@@@@@@@@@@@@@@@@


sub _treelet_from_formatting_codes {
  # Given a paragraph, returns a t <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	20697	20791	
==>ing>

    $Test->no_ending($no_ending);

Normally, Test::Builder does some extra diagnostics wh <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16349	16442	
==>chmidt <iblech@web.de>

Gaal Yahas <gaal@forum2.org>

= COPYRIGHT

Copyright (c) 2005, 2006. A <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24094	24209	
==>l> unless (<value> <op> <value>);
    #

    if ($token->is_loop_control) {
      my $block = $self->current_block() <==
3	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	474	580	
==>.7  2002/05/24 03:59:46  clintp
# Screwed up ID strings
#

# Loads and runs the BASIC interpreter.
#
# Subs <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086434	1086818	
==>i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1205,
                  "ARGS" => [
                              "p",
                              "p",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 16 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	801	897	
==>ts methods,
and adds these methods:

=over

=item $token->tagname

This returns the tagname for t <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1227	1323	
==>ts methods,
and adds these methods:

=over

=item $token->tagname

This returns the tagname for t <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1359	1465	
==>rmal operation, even with bad source code as input.
  #

  $self->INTERNAL_ERROR("Undefined block!")
    un <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1304	1410	
==>rmal operation, even with bad source code as input.
  #

  $self->INTERNAL_ERROR("Undefined block!")
    un <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1207	1313	
==>rmal operation, even with bad source code as input.
  #

  $self->INTERNAL_ERROR("Undefined block!")
    un <==
3	/Users/nnunley/parrot/examples/benchmarks/oo1.pl	82	197	
==>w Foo();
print $o->[0], "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift;
    return bles <==
3	/Users/nnunley/parrot/examples/benchmarks/oo2.pl	82	197	
==>w Foo();
print $o->[0], "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift;
    return bles <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	7242	7336	
==>ovided
that such works are identified as "derived from the RSA Data
Security, Inc. MD5 Message- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18608	18712	
==>>get(1)->is_close_paren) {
        while (1) {
          push @args, Jako::Construct::Expression::Value-> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19634	19738	
==>>get(1)->is_close_paren) {
        while (1) {
          push @args, Jako::Construct::Expression::Value-> <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	44655	44747	
==>Y 		= '\G\((s|\.\.)'.$SIMPLEPAT.'\)';
my $EXACTLY		= '\G\(([1-9]\d*)'.$SIMPLEPAT.'\)';
my $BE <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	2496	2618	
==>cut

sub write_docs
{
    my $self = shift;
    my $silent = shift || 0;
    my $delete = shift || 0;
    my $dist = Parrot <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	932	1042	
==>tion rights)
#

package Parse::Yapp::Driver;

require 5.004;

use strict;

use vars qw ( $VERSION $COM <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	907	1008	
==>tion rights)
#

package Parse::Yapp::Driver;

require 5.004;

use strict;

use vars qw ( $VERSION $COM <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	5993	6097	
==>}:\n";
	}
	$ons++;
}
sub parse_randomize {
	if ($type[NEXT] =~ /STMT|COMM|COMP/) {  # No arg version
		fe <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	1133	1245	
==>', 'tools/build/pbc2c.pl'),
            $self->new_item('', 'tools/dev/pbc_header.pl'),
        ),
        $self- <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	3369	3466	
==>e '$file'!\n" unless -e $file;
    my $temp_ops = Parrot::OpsFile->new( [ $file ], $nolines_flag ) <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	17062	17158	
==>ssname = $self->{class};
    return dynext_load_code($classname, $classname => {});
}

=item C<pm <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	31094	31251	
==>lare' => [ $var, $type ]);
    }

    my @ops =
      ( $backup =>   aop('popint', [ '<tmp>', "restore rule $name start" ]),
                     aop('setstar <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	4079	4213	
==>{
      push @tokens, Jako::Token->new(
        $file, $line, $1, undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	4254	4388	
==>{
      push @tokens, Jako::Token->new(
        $file, $line, $1, undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^ <==
3	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	895	1045	
==>/;
             $input .= $_;
         }
         chomp($input);
         die "EOF during INPUT section" if ! defined($output);

         # Gather outp <==
3	/Users/nnunley/parrot/languages/regex/test.pl	2786	2911	
==>/;
        $input .= $_;
    }
    chomp($input);
    die "EOF during INPUT section" if ! defined($output);

    # Gather outp <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	12445	12548	
==>} else {
#         return split(/\n/, <<"END");
# \$$uid = _rule_$name($mode, \$$uid || <rx_match>{'$uid <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	1828	1969	
==>on = $1;
    }
        elsif (m/^\s*
            ($type_re)\s+
            ($ident_re)\s*
        \(($arglist_re)\)
        (?:\s+(MMD_\w+))?\ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7723	7824	
==>mine register name now.
	if (!$dest_reg) {
		$pir .= <<'PIR'
# Get type (so we can find register type) <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5841	5942	
==>mine register name now.
	if (!$dest_reg) {
		$pir .= <<'PIR'
# Get type (so we can find register type) <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	8161	8305	
==>, $got) = @_;
		    if (defined $Got) {
			if ($Got == $got) {
			    $$show++;
			} else {
			    $$show = 0;
			}
		    }
		}
		want_show(\$sho <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	3896	3990	
==>dule($module)>

Returns the Perl module file for the specified module.

=cut

sub file_for_perl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1214	1329	
==>lf);

  return $self;
}

sub dest  { return shift->{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { retur <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1205	1320	
==>lf);

  return $self;
}

sub dest  { return shift->{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { retur <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1094	1209	
==>lf);

  return $self;
}

sub dest  { return shift->{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { retur <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5456	5551	
==>>_add_inst ('', 'set', [$pair.'[0]',$item]);
      $self->_add_inst ('', 'set', [$pair.'[1]',$re <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17007	17098	
==>>_add_inst ('', 'set',[$pair.'[0]',$item]);
    $self->_add_inst ('', 'set',[$pair.'[1]',$re <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6496	6585	
==>>_add_inst('', 'set', [$pair.'[0]',$item]);
  $self->_add_inst('', 'set', [$pair.'[1]',$re <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3232	3335	
==>> "CONST(%ld)->u.key",
    'sc' => "CONST(%ld)->u.string",
    'kc' => "CONST(%ld)->u.key",
    'kic' => <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3040	3143	
==>> "CONST(%ld)->u.key",
    'sc' => "CONST(%ld)->u.string",
    'kc' => "CONST(%ld)->u.key",
    'kic' => <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2142	2241	
==>> "CONST(%ld)->u.key",
  'sc'  => "CONST(%ld)->u.string",
  'kc'  => "CONST(%ld)->u.key",
  'kic' => <==
3	/Users/nnunley/parrot/languages/regex/test.pl	3011	3112	
==>ocess($input, $output, $testCount++);
}

exit ($status ? 0 : 1);

sub generate_regular_pir {
    my ($ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	10244	10342	
==>}
sub pushthing {
	my($code, $optype, $sym, $type, $oldresult)=@_;
	my $ts="INVALID";

	if ($type n <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	45329	45425	
==>peration (or C<undef> on failure). In a scalar or
void context, the input text has the same subst <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921094	921417	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sprintf",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921987	922310	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sprintf",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	50468	50562	
==>r,$line);
				$item = new Parse::RecDescent::Directive(
					'Text::Balanced::extract_variable( <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9749	9850	
==>arg.
if "${CURIC}" != "73" goto pre_call_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEMP2}
pre_call_NOT_CT <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7263	7364	
==>arg.
if "${CURIC}" != "73" goto pre_call_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEMP2}
pre_call_NOT_CT <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6227	6328	
==>arg.
if "${CURIC}" != "73" goto pre_call_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEMP2}
pre_call_NOT_CT <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5345	5450	
==>valid command '$mode'\nmust be one of generate, compile, linklibs, or copy\n";
}

sub run {
    print join <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4546	4651	
==>valid command '$mode'\nmust be one of generate, compile, linklibs, or copy\n";
}

sub run {
    print join <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5556	5661	
==>valid command '$mode'\nmust be one of generate, compile, linklibs, or copy\n";
}

sub run {
    print join <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1980	2090	
==>= $self->right;

  if (!defined $cond) {
    $compiler->emit("  goto _LABEL_$name");
  } else {
    $left  = $l <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35821	35916	
==>considered failures.  If no tests were ever run Test::Builder
will throw a warning and exit with <==
3	/Users/nnunley/parrot/lib/Test/More.pm	33892	33987	
==>considered failures.  If no tests were ever run Test::Builder
will throw a warning and exit with <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183304	183421	
==>ne 285 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184200	184317	
==>ne 285 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185096	185213	
==>ne 285 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131400	131722	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132255	132577	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAG <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3784	3977	
==>tract_preamble {
    my ($source) = @_;
    my $preamble;

    my $regex = qr{
        ^                               # preambles begin the line
        (                               # then c <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	1543	1639	
==>ile'");

		my $grammar = join '', <IN>;

		Parse::RecDescent->Precompile($grammar, $class, $sourc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459960	460278	
==>= {{\@2}} % den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460948	461266	
==>= {{\@2}} % den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461936	462254	
==>= {{\@2}} % den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod" <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	2035	2178	
==>[a-zA-Z]\w*)/);
        my $op = $2;
        $op =~ s/\.//g;
        next if ($ops{$op});
        print "      <item>$op</item>\n";
        $ops <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	3674	3788	
==>);",
#      b => "PObj_bufstart(final_destination) = return_data;\n    set_nci_S(interpreter, &st, final_destinatio <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17338	17443	
==>0
do
	print "This is right"
	exit do
	print "This is wrong"
	t=t+1
loop until t>1

' Function test:  A, 3, <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	26131	26233	
==>t common case
        $list_type = $self->_get_initial_item_type($paras->[0]);

      } elsif($paras->[ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168514	168605	
==>f ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169456	169547	
==>f ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  } <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	12226	12317	
==>turn;
}

#:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.
#

su <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	28037	28127	
==>turn;
}


#:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.

su <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	21016	21105	
==>turn;
}

#:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.

su <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948134	948426	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948933	949225	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949733	950025	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809706	809812	
==>@2}}->vtable->get_string_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810611	810717	
==>@2}}->vtable->get_string_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2696	2795	
==>ed failures.  If no tests were ever run Test::Simple
will throw a warning and exit with 255.  If the <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	426	516	
==>@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_element_start {
  # ($self, $element_name, $attr_hash_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	425	515	
==>@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_element_start {
  # ($self, $element_name, $attr_hash_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	620	710	
==>~~~~~~~~~~~~~~~~~~~~~~~

sub _handle_element_start {
  # ($self, $element_name, $attr_hash_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	389	488	
==>(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $dest, $left, $op, $righ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	380	479	
==>(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $dest, $left, $op, $righ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	269	368	
==>(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $dest, $left, $op, $righ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12118	12257	
==>class;
}

sub expected ($)
{
	my $itemcount = scalar @{$_[0]->{"items"}};
	return ($itemcount) ? $_[0]->{"items"}[0]->describe(1) : '';
}

s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	18225	18319	
==>$title_string = $parser->get_title

This tries to get the title string out of $parser, by getti <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	415	523	
==>$path_to_language, $count ) = @_;
 
    
    my $test_prog_args = $ENV{TEST_PROG_ARGS} || q{};
    my $lang_f <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	5809	5913	
==>ndex();

exit(0);


sub write_index {
    print "Writing $HTMLDIR/index.html..\n" if $DEBUG;
    open (OU <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	433	535	
==>$path_to_language, $count ) = @_;

    my $test_prog_args = $ENV{TEST_PROG_ARGS} || q{};
    my $lang_f <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	29921	30051	
==>over_type = $over->[1]{'~type'};
        
        if(!$over_type) {
          # Shouldn't happen1
          die "Typeless over in s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	14954	15045	
==>ock::Conditional::Else->new($parent_block, $peer_block);
        $self->push_block($cond) if <==
3	/Users/nnunley/parrot/config/gen/cpu.pm	786	896	
==>>get('cpuarch') . "::auto";

    print "\t(cpu hints = '$hints') " if $verbose;

    eval "use $hints";
    unl <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	4320	4432	
==>pt = '-B';
    $nm_ro = 1;
} elsif ($^O eq 'dec_osf' && $nm_try =~ /Alpha/) { # aka Tru64 aka DEC OSF/1
    $nm_o <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6407	6510	
==>h_${CURIC}_LOOP:
if i == 0 goto POST_BRANCH_switch_${CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0[i]
    $ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4345	4448	
==>h_${CURIC}_LOOP:
if i == 0 goto POST_BRANCH_switch_${CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0[i]
    $ <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1184	1292	
==>ptions->get($util);
    $prog ||= $ENV{uc($util)};

    # never override the user.  If a non-existent program <==
3	/Users/nnunley/parrot/config/inter/make.pm	1005	1113	
==>ptions->get($util);
    $prog ||= $ENV{uc($util)};

    # never override the user.  If a non-existent program <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1181	1289	
==>ptions->get($util);
    $prog ||= $ENV{uc($util)};

    # never override the user.  If a non-existent program <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	19085	19212	
==>) = @_;

    for my $file (@files) {
        my $class = read_dump($include, $file);

        print "    " x $depth, $class->{cl <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	55995	56088	
==>the start of the text and the extraction
subroutines reapplied. Characters which are thus remo <==
3	/Users/nnunley/parrot/tools/docs/pod_errors.pl	114	207	
==>0T15:23:20.183054Z coke  $

=head1 NAME

tools/docs/pod_errors.pl - Reports POD errors

=head1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231155	231261	
==>Y" => "#line 592 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 : <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232059	232165	
==>Y" => "#line 592 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 : <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232963	233069	
==>Y" => "#line 592 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3}} ? +1 : <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827242	827480	
==>TYPE" => "function",
                  "CODE" => 936,
                  "ARGS" => [
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 146 \"src/ops/stack <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19981	20090	
==>?: a aa ab b ba bb

sub rewrite_nongreedy_range {
    my ($self, $op, $R, $min, $max, $lastback) = @_;

    my <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	7446	7548	
==>struct at compile time
    use Class::Struct CLASS_NAME => [ ELEMENT_NAME => ELEMENT_TYPE, ... ];
    u <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27840	27955	
==>}) {
			$pir .= "    type_trans = pop stypes\n";
		}
		for (1..$rule->{'push'}) {
			$pir .= "    type_trans = pop d <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	11219	11317	
==>nts()>

Deletes the contents of the directory.

Raises an exception if the delete fails.

=cut

sub <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1188	1286	
==>_'; 
}

=item C<suffix()>

Implemented in subclasses to return a suffix with which to individuate
v <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276196	276461	
==>n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277074	277339	
==>n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277952	278217	
==>n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) <= 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847535	847830	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848314	848609	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849094	849389	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35220	35344	
==>e: [}
					. $_tok . q{]},
					  
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{"name"} .'})
						if d <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	13558	13652	
==>($sig, $return, $params, $args, $ret_type, $ret_type_decl,
        $return_assign, $other_decl, <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	69	158	
==>Docs/Section/DynaPMCs.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parro <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	396	503	
==>tatement);

sub new
{
  my $class = shift;
  my ($block, $left, $right) = @_;

  confess("Block (" . ref($bl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	387	494	
==>tatement);

sub new
{
  my $class = shift;
  my ($block, $left, $right) = @_;

  confess("Block (" . ref($bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48496	48590	
==>=> "#line 785 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49286	49380	
==>=> "#line 785 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	11025	11156	
==>ite      stdio.h
getc        stdio.h
getchar     stdio.h
getenv      stdlib.h
gets        stdio.h
gmtime      time.h
hypot       mat <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	12652	12762	
==>$_, 1, 'let locals');
    my ($var, $val) = _get_args ($_, 0);
    push @variables, $var;
    push @values, $va <==
3	/Users/nnunley/parrot/config/init/optimize.pm	668	776	
==>5's $Config{optimize}.  If an argument
    # is given, however, use that instead. 
    my $optimize = $conf-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498500	498731	
==>" => [
                              "n",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 595 \"src/ops/math.ops\"\n  {{\@1}} = floatval_mod({{\ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1509	1605	
==>OR("Undefined type!")
    unless defined $type;

  $self->INTERNAL_ERROR("Type is not a Jako::Con <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1357	1453	
==>OR("Undefined type!")
    unless defined $type;

  $self->INTERNAL_ERROR("Type is not a Jako::Con <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733712	733963	
==>to_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734476	734727	
==>to_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	3016	3107	
==><<"EOH";
Parrot_PMC Parrot_lib_${lc_libname}_load(Parrot_INTERP interpreter);
EOH

    retur <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1629	1731	
==>->props;

  my @args  = $self->args;

  my @formal_args = $sym->args;

  $self->SYNTAX_ERROR("Wrong num <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1329	1431	
==>->props;

  my @args  = $self->args;

  my @formal_args = $sym->args;

  $self->SYNTAX_ERROR("Wrong num <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465147	465356	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465768	465977	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	466389	466598	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	725957	726069	
==>],
                  "BODY" => "#line 29 \"src/ops/set.ops\"\n  {{\@1}} = string_copy(interpreter, {{\@2}});\n  { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726719	726831	
==>],
                  "BODY" => "#line 29 \"src/ops/set.ops\"\n  {{\@1}} = string_copy(interpreter, {{\@2}});\n  { <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	23355	23460	
==>ant_FLAG|PObj_external_FLAG);
        vt_clone->does_str = string_make(interp,
            "$does", @{[len <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	8726	8844	
==>,
	  jit => "JIT",
	  cgp =>  "CGP",
	  switch => "switch",
	  fast => "fast",
	  default => "default",
  );

  $runcor <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	2953	3051	
==>(shift->{data})
}

sub b64digest {
	md5_base64(shift->{data})
}

sub md5(@) {
	my $message = paddin <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	2279	2370	
==>> or C<output_isnt($code, $unexpected, $description)>

Runs the Parrot Assembler code and pa <==
3	/Users/nnunley/parrot/languages/converter.pl	1039	1143	
==>od(?) production(?)
		| terminal(?) '[' production ']' production(?)
#		{[@item]}
		{ $return = '';
		  $ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	2844	2944	
==>me HTML-formatted text describing the files linked to is returned.

=cut

sub write_html
{
    my $se <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	1727	1824	
==>me HTML-formatted text describing the files linked to is returned.

=cut

sub write_html
{
	my $se <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	6370	6485	
==>eth);
        $i++;
    }
    die("vtable not found for $meth\n");
}

my $jit_emit_n = ($genfile =~ /jit_cpu.c/) ? 2 <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	21925	22027	
==>/g;
    my $enum_name = $self->{flags}{dynpmc} ? -1 : "enum_class_$classname";
    $cout .= <<"EOC";
vo <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	31728	31824	
==>->{type}, $_->{value});
			push @{$code{_data}->{code}},<<ADDDATA;
	push \$P2, $v
ADDDATA
			$cou <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131440	131765	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132295	132620	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGD <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2247	2360	
==>/em>",
  'C'      =>  "<code$Computerese>",   '/C'     =>  "</code>",
  'L'  =>  "<a href='YOU_SHOULD_NEVER_SEE_TH <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2049	2216	
==>lags       => '-dll',
            ld_load_flags        => '-dll',
            ld_out               => '-out:',
            ldflags              => '-nologo -nodefaultli <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4032	4199	
==>lags       => '-dll',
            ld_load_flags        => '-dll',
            ld_out               => '-out:',
            ldflags              => '-nologo -nodefaultli <==
3	/Users/nnunley/parrot/lib/Test/More.pm	20536	20637	
==>accurately reflects the number of tests
in the SKIP block so the # of tests run will match up with you <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	16392	16518	
==>func;
        no strict 'refs';

        *{$package.'::'.$func} = sub {
            my ( $code, $expected, $desc, %extra ) = @_ <==
3	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	151	245	
==>xamples/benchmarks/stress2.pl - GC stress-testing

=head1 SYNOPSIS

    % time perl examples/be <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	969	1061	
==>uages/punie/punie.pbc $lang_f";

    $exit_code = Parrot::Test::run_command($cmd, CD => $self <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	533036	533332	
==>S" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 616,
                  "ARGS" => [
                              "n", <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct.pm	201	290	
==>the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct.pm 19606 2006-0 <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	3748	3975	
==>fn,
                'arg1'   => $value,
                'type'   => 'LuaString',
            );
        }
        else {
            push @opcodes, new LocalDir( $parser,
                'prolog' => 1,
                'r <==
3	/Users/nnunley/parrot/examples/benchmarks/primes.pl	657	786	
==>K:
  $i3++;
  if ($i3 <= $i4) {goto LOOP;}
     $i6++;
     $i7 = $i1;
 NEXT:
  $i1++;
  if ($i1 <= $i2) {goto REDO;}
  print $i6, <==
3	/Users/nnunley/parrot/tools/build/vtable_extend.pl	2762	2861	
==>n, so it's not
   like it's an onerous requirement.

*/

#include "parrot/parrot.h"
#include "parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323926	324032	
==>Int4) ({{\@2}}->vtable->get_integer(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321571	321676	
==>Int4)({{\@2}}->vtable->get_integer(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	12408	12504	
==>self->genlabel('undo_charclass');
    my $next = $self->genlabel('after_charclass');

    my @ops <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	2993	3089	
==>e test output is going.

If you want a completely new Test::Builder object different from the
sin <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24783	24879	
==>ail(wantarray, $textref) unless @match;
		return _succeed wantarray, $textref,
				$match[2], $ma <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7616	7710	
==>ail(wantarray, $textref) unless @match;
	return _succeed wantarray, $textref,
			$match[2], $ma <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	30963	31057	
==>nt_continuation {
}

sub _op_call_with_input_file {
}

sub _op_call_with_output_file {
}

sub _ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	40822	40916	
==>t (including the start and end
tags). C<undef> is returned on failure. In addition, the origina <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511002	511227	
==>src/ops/math.ops\"\n  {{\@1}} = - {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511740	511965	
==>src/ops/math.ops\"\n  {{\@1}} = - {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/tools/dev/cc_flags.pl	1358	1471	
==>.*?)\1([imsx]*)\s*}{}) {
	    my $mod = "";
	    $mod = "(?$4)" if $4;

	    push @options, [ $regex, 's', "$mod$2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554318	554607	
==>t);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRES <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555715	556004	
==>t);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRES <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556952	557241	
==>t);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRES <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	338062	338252	
==>03 \"src/ops/io.ops\"\n  {{\@1}} = PIO_STDIN(interpreter);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7617	7742	
==>e =~ m/^over-(.+)$/s ) {
          push @stack, $1;
        } elsif( $tagname eq 'Para') {
          $tagname = 'Para_item' if <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	15695	15807	
==>lf->maybe_regex($regex);
    unless (defined $usable_regex) {
        $ok = $self->ok( 0, $name );
        $self- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363463	363559	
==>}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, \"%f\", (double){{\@2}});\n    PIO_put <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364366	364462	
==>}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, \"%f\", (double){{\@2}});\n    PIO_put <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566902	567111	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "does",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567796	568005	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "does",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o", <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	11909	12018	
==>tf     math.h
llrintl     math.h
llround     math.h
llroundf    math.h
llroundl    math.h
localeconv  locale.h <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	1833	1972	
==>STDERR is written into same output file
            my $exit_code = Parrot::Test::run_command( 
                                \@test_prog, <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1899	2030	
==>STDERR is written into same output file
        my $exit_code = Parrot::Test::run_command( 
                            \@test_prog, <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2381	2497	
==>STDERR is written into same output file
        my $exit_code = Parrot::Test::run_command(
            \@test_prog, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557962	558050	
==>t_cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAILCALL;\n  interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559346	559434	
==>t_cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAILCALL;\n  interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560718	560806	
==>t_cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAILCALL;\n  interpreter <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3308	3419	
==>}=$_[0];
    ${$$self{VALUE}};
}

sub YYExpect {
    my($self)=shift;

    keys %{$self->{STATES}[$self-> <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	13813	13918	
==>a stack type state propogated here, put it in place.
    ss = ss_propogate[pc]
    if ss == "" goto NO_SS_ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3143	3247	
==>}=$_[0];
    ${$$self{VALUE}};
}

sub YYExpect {
    my($self)=shift;

    keys %{$self->{STATES}[$self-> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13148	13263	
==>ot currently 'inside' a block, then we've got no business
      # seeing a close-brace.
      #

      $self->SYNTAX <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	659	743	
==>nt is not!" unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	738	822	
==>nt is not!" unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	547	631	
==>nt is not!" unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956783	957071	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_encoding",
                  "FLAGS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957687	957975	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_encoding",
                  "FLAGS <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6571	6687	
==>>{'output_fh'}} $self->{'Tagmap'}{$tagname} || return;
    
    if ( $tagname eq 'item-text' )
    {
        $self->{ <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	6860	6976	
==>f the end and unshift onto the beginning
    $P1 = pop op2
    unshift op2, $P1
    inc op1
    goto neg

done:
nothi <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7641	7740	
==>t "Oats",
	return
peas:
	print "Peas",
	return
beans:
	print "Beans",
	return

' Truth
s$="Hello"
if <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	604383	604657	
==>n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "removeparen <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	2001	2102	
==>ution is a development version.', 'DEVELOPING'),
            $self->new_item('The status of the Parrot <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	2123	2221	
==>orld.

=head2 Public or Private

If the API is really meant to be public, prefix it with <Parrot_>, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830692	830881	
==>ser_stack, &i, STACK_ENTRY_INT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831433	831622	
==>ser_stack, &i, STACK_ENTRY_INT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Par <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	12494	12609	
==>'assembly';
    $mv->{'BC'} = 'bc';
    $mv->{'INS'} = 'gen_pir';
    $mv->{'PC'} = 'pc';
	$mv->{'NEXTPC'} = 'next_p <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4446	4579	
==>" # match '".chr($code)."'" : "";
    my @ops =
      (
       "ord <rx_tmp>, <rx_input>, <rx_pos> # tmp = INPUT[pos]",
       "ne <rx <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	616	729	
==>child-list
    unshift @{ $_[0]{'_currpos'} },    $x; # prefix to stack
  } else {
    DEBUG and print " And oo, i <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	2513	2618	
==>ms[CURR]));

	# The "unimplementeds"
	# Eat tokens until we get to the next statement of some kind.
	# The <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1421	1546	
==>de.

=cut

sub goto_address
{
    my ($self, $addr) = @_;

    #print STDERR "pbcc: map_ret_abs($addr)\n";

    if ($addr eq ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1946	2071	
==>de.

=cut

sub goto_address
{
    my ($self, $addr) = @_;

    #print STDERR "pbcc: map_ret_abs($addr)\n";

    if ($addr eq ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1837	1962	
==>de.

=cut

sub goto_address
{
    my ($self, $addr) = @_;

    #print STDERR "pbcc: map_ret_abs($addr)\n";

    if ($addr eq ' <==
3	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	941	1066	
==>* !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically from '$compat_file'
 * by $0.
 *
 * Any <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670605	670696	
==>=> "#line 415 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->push_string(interpreter, {{\@1}}, {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671378	671469	
==>=> "#line 415 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->push_string(interpreter, {{\@1}}, {{ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2150	2275	
==>artial_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2442	2567	
==>artial_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2237	2362	
==>artial_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to <==
3	/Users/nnunley/parrot/config/init/miniparrot.pm	1813	1941	
==>ef,
        has_sigaction      => undef,
        has_setitimer      => undef,

        # we can't guarantee anything about pointe <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1518	1614	
==>ined type!")
    unless defined $type;

  $self->INTERNAL_ERROR("Type is not a Jako::Construct::T <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1366	1462	
==>ined type!")
    unless defined $type;

  $self->INTERNAL_ERROR("Type is not a Jako::Construct::T <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38917	39053	
==>' => 179
		}
	},
	{#State 156
		ACTIONS => {
			'NAME' => 180
		}
	},
	{#State 157
		DEFAULT => -8
	},
	{#State 158
		ACTIONS <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21073	21179	
==>ession::Value->new($block, $self->require_value);
      }

      $self->require_semicolon;

      foreach m <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	151	240	
==>fig/gen/parrot_include.pm - Runtime Includes

=head1 DESCRIPTION

Generates the F<runtime/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623072	623193	
==>);\n    mic = (Parrot_MIC *) cur_opcode[1];\n    ccont = ctx->current_cont;\n    cc = PMC_cont(ccont);\n    if (!cc->addre <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2765	2864	
==>', same as 'STRING' x 0

  $self->{'Thispara'} =~ tr{\xAD}{}d if Pod::Simple::ASCII;
  my $out = Tex <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2299	2398	
==>', same as 'STRING' x 0

  $self->{'Thispara'} =~ tr{\xAD}{}d if Pod::Simple::ASCII;
  my $out = Tex <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	2201	2343	
==>{optional}    = !!$1;
        $arg->{option}      = !!$2;
        $arg->{name}        = $3;
        $arg->{type}        = $4 || ( $arg->{option <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	456	552	
==>ft, $right) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'J <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	447	543	
==>ft, $right) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'J <==
3	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	621	718	
==>SCRIPTION

Create F<src/parrot_config.c> with relevant runtime for the config
process.

The data i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	245025	245329	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp_str",
                  "FLAGS" => ":base_c <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	23756	23887	
==>h @opcodes, new AssignOp( $parser,
        'result' => $result,
        'arg1'   => $expr1->[0],
    );
    my $lbl2 = new_label <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	904	1019	
==>$compiler);
    $op    = $self->op;
    $right = $self->right->compile($compiler);
  }

  if ($kind eq 'if') {
    $ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2646	2741	
==>ect info',
	'CREDITS' => 'Project info',
	'DEVELOPING' => 'Project info',
	'harness' => 'Perl te <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	25840	25939	
==>d by $delim (where the string
 # in $delim contains one or more of '(){}[]<>').

	($extracted, $rema <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	41440	41530	
==>s
subroutines generated by
C<gen_extract_tagged>, is that those generated subroutines:

=ov <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1021	1173	
==>->{relpath},
                                           STDOUT => $out_f, STDERR => $out_f );
    unless ($pass) {
        my $file = Parrot::Test::slurp <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1062	1214	
==>->{relpath},
                                           STDOUT => $out_f, STDERR => $out_f );
    unless ($pass) {
        my $file = Parrot::Test::slurp <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2113	2230	
==>->{relpath},
					   STDOUT => $out_f, STDERR => $out_f);
  
    unless ($pass) {
      my $file = Parrot::Test::slurp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062521	1062611	
==>terpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpreter, ns_root, {{\@2} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063390	1063480	
==>terpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpreter, ns_root, {{\@2} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064260	1064350	
==>terpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(interpreter, ns_root, {{\@2} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544624	544914	
==>}} = saved_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545960	546250	
==>}} = saved_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547296	547586	
==>}} = saved_var1*saved_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	55186	55282	
==>ence, it must contain exactly one element.
The value of that element is one of the
above extracto <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9876	9966	
==>elf->require_infix_rel->text;
      my $right = Jako::Construct::Expression::Value->new($bl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25412	25502	
==>elf->require_infix_rel->text;
      my $right = Jako::Construct::Expression::Value->new($bl <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	944	1041	
==>ur $PERL = q[perl];
our $LOAD_EXT = qq[.bundle];
our $O = qq[.o];
our $CFLAGS = qq[-I/opt/local/in <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	948	1045	
==>ur $PERL = q[perl];
our $LOAD_EXT = qq[.bundle];
our $O = qq[.o];
our $CFLAGS = qq[-I/opt/local/in <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	6317	6411	
==>out to return ",
   Pod::Simple::pretty( @{$self->{'token_buffer'}}
     ? $self->{'token_buffe <==
3	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1171	1272	
==>yOp;
use base qw(Lua::opcode);

package BinaryOp;
use base qw(Lua::opcode);

package RelationalO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210330	210593	
==>}), {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211310	211573	
==>}), {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30808	30904	
==>turn $code;
}

1;

package Parse::RecDescent::InterpLit;

sub sethashname { $_[0]->{hashname} = ' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1962	2069	
==>ock;
  my $kind  = $self->kind;
  my $name  = $self->ident ? $self->ident->value : undef;
  my $cond  = $sel <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3078	3185	
==>ock;
  my $kind  = $self->kind;
  my $name  = $self->ident ? $self->ident->value : undef;
  my $cond  = $sel <==
3	/Users/nnunley/parrot/lib/Test/More.pm	11865	12000	
==>ush @nok, $method;
    }

    my $name;
    $name = @methods == 1 ? "$class->can('$methods[0]')" 
                          : "$class->c <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29952	30047	
==>temeta($self->{"pattern"}) . '//)
		{
			'.($self->{"lookahead"} ? '$text = $_savetext;' : '').' <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/EditorPlugins.pm	63	149	
==>arrot/Docs/Section/EditorPlugins.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=hea <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	31760	31883	
==>pop @stack;
    my $cl = temp('P');
    my $name = $tos->[1];
    $n = $name;
    $n =~ s/["]//g;
    my $mangle = qq!"py::$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627436	627522	
==>} = pmc_new_noinit(interpreter, {{\@2}});\n  {{\@1}}->vtable->init(interpreter, {{\@1}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628580	628666	
==>} = pmc_new_noinit(interpreter, {{\@2}});\n  {{\@1}}->vtable->init(interpreter, {{\@1}} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2671	2770	
==>Attributes => { kind => $cond } });
    $handler->start_element({ Name => 'block', Attributes => { k <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3435	3534	
==>Attributes => { kind => $cond } });
    $handler->start_element({ Name => 'block', Attributes => { k <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	13220	13318	
==>, qq{\tgoto END_$seg\n};
		feedme();
		#print CODE "\tgoto SUB_EXIT_$subname\n";
	} elsif ($syms[NE <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	4657	4746	
==>piled(Interp *interpreter, opcode_t *cur_opcode, opcode_t *start_code);

#include "parrot/ <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3386	3495	
==>"print the last command". Which is harder.
        $body =~ s/^(\s*)([^\n]+)\s*\Z/$1puts [$2]/m;

        $tes <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4793	4902	
==>"print the last command". Which is harder.
        $body =~ s/^(\s*)([^\n]+)\s*\Z/$1puts [$2]/m;

        $tes <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	439	536	
==>', compiler => 'perl6.pbc';

That's it.  Seriously.

=head1 DESCRIPTION

This module provides a ba <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10130	10236	
==>al pmc bc, ex, stypes, dtypes, loadtype, type_trans, c_params, escaper
    .local pmc ehs, eh, ss_propogate <==
3	/Users/nnunley/parrot/lib/Test/More.pm	5227	5326	
==>tically for you.  However, it's often very useful to
assign a name to each test.  Which would you ra <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27018	27116	
==>op($rule->{'pop'}, $rule->{'push'});
		$pir .= "### pre_op\n";
		$pir .= sub_meta($pre_op, $mv, "pr <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	30640	30799	
==>and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $lbl_end;
            }
        }
    }
    pus <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	35187	35346	
==>and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $lbl_end;
            }
        }
    }
    pus <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	29600	29704	
==>todo>

    my $todo_reason = $Test->todo;
    my $todo_reason = $Test->todo($pack);

todo() looks for a $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660102	660188	
==>1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->exists_keyed_int(interpreter, {{\@2}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661024	661110	
==>1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->exists_keyed_int(interpreter, {{\@2}} <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	40	143	
==>lts = ();
while (<>) {
	if (/^Translated (\d+) types out of (\d+) from .+?([\.\w]+)\n$/) {
		push @re <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	40	143	
==>lts = ();
while (<>) {
	if (/^Translated (\d+) types out of (\d+) from .+?([\.\w]+)\n$/) {
		push @re <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12018	12119	
==>, { type => "STRING", value => qq{"$syms[CURR]"} };
		} elsif ($type[CURR] eq "PUN") {
			my $s=$syms[ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11098	11290	
==>hitespace, unless backslashed
                } else {
                    push @tokens, $c;
                    push @types, $c;
                }
            }
        } elsif ($state == 1) { <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	2471	2643	
==>e/parrot/include/README                   [devel]doc
    src/call_list.txt                               [devel]doc
    src/ops/ops.num                                 [deve <==
3	/Users/nnunley/parrot/config/init/defaults.pm	392	491	
==>:Step::Base);

use Config;
use FindBin;    # see build_dir
use Parrot::Configure::Step;

$descriptio <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23635	23739	
==>temp]);
    $self->_add_inst("NEXT_$label");
    $self->_restore($temp);
  }
  return $return;
}

sub _op <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24097	24201	
==>temp]);
    $self->_add_inst("NEXT_$label");
    $self->_restore($temp);
  }
  return $return;
}

sub _op <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	35221	35319	
==>empty string.)

Likewise the call in:

	@result = extract_bracketed( $text, '{[' );

would return t <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3234	3342	
==>, $expl, $body, $out) = ($1, $2, $3, choose($4, unescape($5), $6));

        # make the test print the last l <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4641	4749	
==>, $expl, $body, $out) = ($1, $2, $3, choose($4, unescape($5), $6));

        # make the test print the last l <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	6513	6615	
==>tive name"
     if exists $Known_directives{$d};
    $this->{'accept_directives'}{$d} = $type;
    DEBU <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	313	409	
==>back
  e2char
  e2charnum
);
%EXPORT_TAGS = ('ALL' => \@EXPORT_OK);

#=========================== <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931951	932222	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932722	932993	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_c <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	3553	3660	
==>\n"
skipPrint:
    set valid_flag, 1
    ret
.end
END
}

sub output_rule_body {
    my ($self, $fh, $subname <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	211	303	
==>rgely a copy of Parrot::Test::Tcl, which looks like it's
largely a copy of Parrot::Test::Pyth <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	249	341	
==>rgely a copy of Parrot::Test::Tcl, which looks like it's
largely a copy of Parrot::Test::Pyth <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	9935	10058	
==>ts children at the same
        # starting point in the string -- think of alternation, for
        # example.)
        fore <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029762	1029856	
==>if ({{\@1}} < 0.0) {\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030604	1030698	
==>if ({{\@1}} < 0.0) {\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back in <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	55770	55865	
==>extractor), or returns an empty list or an undefined value (in the case of a subroutine extracto <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	1871	1956	
==>totypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwrite-strings -Wag <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1236	1321	
==>totypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwrite-strings -Wag <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1240	1325	
==>totypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wwrite-strings -Wag <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307074	307245	
==>p",
                              "ic"
                            ],
                  "BODY" => "#line 1031 \"src/ops/cmp.ops\"\n  if (!PMC_IS_NULL({{\@1}})) {\n    {{+={ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	6115	6204	
==>accept_directives('Data',     @_) }
sub accept_directive_as_processed { shift->_accept_dir <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3796	3909	
==>";") {
		feedme();		# Ignore this form for now.
	}
	if ($syms[CURR] eq "#") {
		feedme();
		$fd=$syms[CURR];
		fee <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2055	2162	
==>y $self = shift;
    
    die ref($self) . " doesn't have core_type()";
}

=item C<core_prefix()>

Implement <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	58893	58986	
==>ted_pat> may also be called with an optional second argument,
which specifies the "escape" cha <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509821	510065	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	508559	508768	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509190	509399	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244380	244712	
==>S" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 284,
                  "ARGS" => [
                              "i <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19965	20064	
==>syms[CURR];
			my %th=( single => 'FLO', double => 'FLO', long => 'INT', integer => 'INT', string => <==
3	/Users/nnunley/parrot/lib/Test/More.pm	24875	24968	
==>two structures are different, it
will display the place where they start differing.

Test::Dif <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27939	28039	
==>d"} ? '$text = $_savetext;' : '').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDes <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30013	30113	
==>d"} ? '$text = $_savetext;' : '').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDes <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32214	32314	
==>d"} ? '$text = $_savetext;' : '').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDes <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35141	35244	
==>>SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my $decl = $self->decl($self->{class}, $ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36444	36547	
==>>SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my $decl = $self->decl($self->{class}, $ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38391	38494	
==>>SUPER::body($self->{methods}[$n], $line, $out_name);
    }
    my $decl = $self->decl($self->{class}, $ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4599	4699	
==>post branch operation hooks.
sub pre_branch($) {
	my $self = shift;
	my $pops = shift;
	my $register_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3015	3115	
==>post branch operation hooks.
sub pre_branch($) {
	my $self = shift;
	my $pops = shift;
	my $register_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2662	2762	
==>post branch operation hooks.
sub pre_branch($) {
	my $self = shift;
	my $pops = shift;
	my $register_ <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3372	3471	
==>his should be "print the last command". Which is harder.
        $body =~ s/^(\s*)([^\n]+)\s*\Z/$1pu <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4779	4878	
==>his should be "print the last command". Which is harder.
        $body =~ s/^(\s*)([^\n]+)\s*\Z/$1pu <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	14525	14619	
==>n-ASCII platform (where chr(32) doesn't
get you a space -- but $Code2USASCII{32} will).  It's
d <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	2189	2307	
==>the test
        $conf->data->set('libs',      $libs);
        $conf->data->set('ccflags',   $ccflags);
        $conf-> <==
3	/Users/nnunley/parrot/config/auto/readline.pm	1989	2107	
==>the test
        $conf->data->set('libs',      $libs);
        $conf->data->set('ccflags',   $ccflags);
        $conf-> <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	23831	23929	
==>test failures and diag() should go.

Defaults to STDERR.

=item B<todo_output>

    $Test->todo_out <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872996	873194	
==>s",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(inter <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	3675	3802	
==>);         }

sub is_loop_control  { return shift->is('next', 'last', 'redo'); }
sub is_value         { return shift->is('ident' <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	129	225	
==>ad1 NAME

config/auto/gdbm.pm - Test for GNU dbm (gdbm) library

=head1 DESCRIPTION

Determines w <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510476	510686	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511214	511424	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511952	512162	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	472	576	
==>tart {
  # ($self, $element_name, $attr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBU <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	471	575	
==>tart {
  # ($self, $element_name, $attr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBU <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	666	770	
==>tart {
  # ($self, $element_name, $attr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBU <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	19527	19653	
==>rich.

    # Template.pm   --- struct/member template builder
    #   12mar95
    #   Dean Roehrich
    #
    # changes/bugs fi <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	31211	31322	
==>clone");
            my $post_op = $srm->post_op(1, 1);
		    $post_op = sub_meta($post_op, $mv, "post_op for ru <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65864	65968	
==>->additem($item)
						      or  _no_rule("repetition",$line,"$code$argcode($1..)");

						!$matchrule a <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2537	2652	
==>ndef;
}

sub YYNberr {
	my($self)=shift;

	${$$self{NBERR}};
}

sub YYRecovering {
	my($self)=shift;

	$ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	14224	14336	
==>if $1 eq '>';	# MIGHT BE A "LESS THAN"
				_failmsg q{Mismatched closing bracket at "} .
					     substr($$textr <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2431	2534	
==>ndef;
}

sub YYNberr {
	my($self)=shift;

	${$$self{NBERR}};
}

sub YYRecovering {
	my($self)=shift;

	$ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	15767	15901	
==>}
                if defined $extra{todo};

            my $pass = $builder->$meth( $real_output, $expected, $desc );
            $buil <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	18318	18452	
==>}
                if defined $extra{todo};

            my $pass = $builder->$meth( $real_output, $expected, $desc );
            $buil <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646212	646496	
==>> "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 722,
                  "ARGS" => <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	6059	6173	
==>rn $string;
}

##
## update_tests()
##
## Run CVS update.
##
sub update_tests {
    print "Updating tests from CVS\ <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	46	145	
==>int <<"END_OF_HEADER";

# DO NOT EDIT.
# This file generated automatically by '$0'

END_OF_HEADER

m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	212876	213145	
==>PE" => "function",
                  "CODE" => 250,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 423 \"src/ops/cmp <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1264	1365	
==>intaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
dec ${ITEMP <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2974	3075	
==>intaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
dec ${ITEMP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062565	1062692	
==>ABLE_get_pmc_keyed(interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063434	1063561	
==>ABLE_get_pmc_keyed(interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064304	1064431	
==>ABLE_get_pmc_keyed(interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649095	649329	
==>= pmc_type_p(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649858	650092	
==>= pmc_type_p(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	23339	23438	
==>$name\n";
    if ($builtin_ops{$name} && $builtin_ops{$name} eq 's') {
	no strict "refs";
	my $opcod <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430111	430410	
==>S" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 494,
                  "ARGS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	5052	5186	
==>ts the op's code body.

=cut

sub body
{
    my $self = shift;

    if (@_)
    {
        $self->{BODY} = shift;
    }

    return $sel <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	5436	5551	
==>$asm =~ s/jit_emit_end/exec_emit_end/;
            }
            if (($cpuarch eq 'ppc') && ($genfile ne "src/jit_cp <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10341	10498	
==>accept_codes(@_) }

sub unaccept_codes { # remove some codes
  my $this = shift;
  
  foreach my $new_code (@_) {
    next unless defined $new_code and length <==
3	/Users/nnunley/parrot/config/inter/progs.pm	806	913	
==>inkflags, $ldflags, $libs, $lex, $yacc);

    # Find a working version of a program:
    # Try each alternat <==
3	/Users/nnunley/parrot/languages/lua/luac.pl	573	674	
==>>YYData->{nb_error};
    print "$nb error(s).\n";
}
if ( $parser->YYData->{verbose_warning}
    an <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650075	650375	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "valid_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650996	651296	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "valid_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "f <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12229	12336	
==>eturn $href if defined $href;
    }
    
    return 'TODO';
}

=item C<href_for_perl_module($module)>

Retur <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10585	10691	
==>matted') {
        --$self->{'rtfverbatim'};
      }
      defined($scratch = $self->{'Tagmap'}{"/$tagname" <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1924	2051	
==>to be
    # broken
    if ($ret == -1 and !$conf->options->get('ask')) {

        # fall back to default
        $self->set_resu <==
3	/Users/nnunley/parrot/config/inter/make.pm	1798	1925	
==>to be
    # broken
    if ($ret == -1 and !$conf->options->get('ask')) {

        # fall back to default
        $self->set_resu <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1938	2065	
==>to be
    # broken
    if ($ret == -1 and !$conf->options->get('ask')) {

        # fall back to default
        $self->set_resu <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2471	2674	
==>/
                and $str .= "\t",      # horizontal tab
                last;
            s/^\\v//
                and $str .= "\x0b",    # vertical tab
                last;
            s/^\\([0- <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3985	4188	
==>/
                and $str .= "\t",      # horizontal tab
                last;
            s/^\\v//
                and $str .= "\x0b",    # vertical tab
                last;
            s/^\\([0- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483799	484109	
==>by zero\");\n  {{\@1}} = floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484798	485108	
==>by zero\");\n  {{\@1}} = floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485797	486107	
==>by zero\");\n  {{\@1}} = floor({{\@2}} / den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/config/auto/headers.pm	1754	1872	
==>eader (@extra_headers) {
        my $pass = 0;

        # First try with just the header. If that fails, try with all t <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	269	363	
==>st::MD5 qw<md5_hex>;
use HTML::Template;
use Algorithm::TokenBucket;
use Time::Piece;
use Time: <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1154	1423	
==>mated ops: $I5\n"; # print  "Estimated ops: "
                              # print  I5
                              # print  "\n"
                              #
$N1 = time_hires();           # time N1
                              #
REDO:                         # RE <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	1154	1423	
==>mated ops: $I5\n"; # print  "Estimated ops: "
                              # print  I5
                              # print  "\n"
                              #
$N1 = time_hires();           # time N1
                              #
REDO:                         # RE <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3676	3784	
==>props{fn} or exists $props{fnlib}) {
      $name .= "_THUNK";
    }

    $compiler->emit("  $dest = _${name}( <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27460	27564	
==>);
    $self->_add_inst('','div',[$return,$temp,$return]);
    $self->_restore($temp);
  } else {
    $re <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	1545	1645	
==>tely in a F<*_ops.c> file).

You can see evidence of this by the way this code reaches in to the
inte <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4929	5037	
==>e($self, $class);
    bless $self, $class;
    $self->init($class);
    $self;
}

=back

=head2 Instance Meth <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4165	4268	
==>%ld])",
        'nc' => "(*(FLOATVAL *)cur_opcode[%ld])",
        'sc' => "((STRING *)cur_opcode[%ld])", <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17116	17216	
==>->_add_inst ('', 'set',[$return,$pair]);

    $self->_restore($item, $pair);
  }

  return $return;
} <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	373	478	
==>ase/;

# Constructor. Just base this class on a hash.
sub new() {
	my $invocant = shift;
	return bless {}, <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	279	384	
==>ase/;

# Constructor. Just base this class on a hash.
sub new() {
	my $invocant = shift;
	return bless {}, <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	187	292	
==>ase/;

# Constructor. Just base this class on a hash.
sub new() {
	my $invocant = shift;
	return bless {}, <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	6109	6221	
==>print "$src -> $dest\n";
	next;
    }
    else {
	next unless -e $src;
	copy($src, $dest) or die "copy $src to $d <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	2603	2704	
==>in_stderr',   # whether to complain to stderr

  'doc_has_started',   # whether we've fired the open-D <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	30148	30248	
==>sub _op_vector_p {
}

sub _op_make_vector {
}

sub _op_vector {
}

sub _op_vector_length {
}

sub _op <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	7476	7606	
==>but it really does make things pretty.
        #
        while(1) {
          push @to_unget, $self->get_token;
          pop(@to_u <==
3	/Users/nnunley/parrot/lib/Test/More.pm	21426	21546	
==>DO: {
        local $TODO = $why if $condition;

        ...normal testing code goes here...
    }

Declares a block of t <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	1266	1364	
==>CODE "\t.local string $var\n";
				push @init, qq{\t\t$var=""\n};
				push @debdecl, "\t\t\$P1[\"$v <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38374	38492	
==>e} . ']<< (}
					. @$_tok . q{ times)},
					  
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{"na <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2009	2120	
==>ame);

  #
  # If the identifier is already defined at this lexical scope, we want to complain
  # about the red <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1756	1867	
==>ame);

  #
  # If the identifier is already defined at this lexical scope, we want to complain
  # about the red <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	3850	3963	
==>elf = shift;

    return $self->parent eq '.SVN' or $self->name =~ /^\./o;
}

=item C<is_generated()>

Returns whe <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29232	29327	
==>f->{vtable}{methods}[$n]{mmd} =~ /MMD/ ? 0 : 1;
}

=back

=head1 SUBCLASSES

=head2 Parrot::Pmc2 <==
3	/Users/nnunley/parrot/config/init/defaults.pm	1378	1497	
==>e parts of ICU.  ICU's configure
        # will try to find a suitable compiler, but it prefers GNU c++ over
        # a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	624778	624894	
==>/\n    parrot_context_t *ctx;\n    opcode_t *pc;\n    void **pred_pc;\n    INTVAL i, n_args, *sig_bits;\n    PMC *sig <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16005	16105	
==>mplemented here to silence a C<Pod::Simple::HTML> warning.

=cut

sub esc 
{
    if ( defined wantarr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1269	1396	
==>se are compiler internal consistency checks. They really should not be
  # triggered in normal operation, even with bad source c <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1214	1341	
==>se are compiler internal consistency checks. They really should not be
  # triggered in normal operation, even with bad source c <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1117	1244	
==>se are compiler internal consistency checks. They really should not be
  # triggered in normal operation, even with bad source c <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	5940	6048	
==>.  All 5
a=0
do while a<5
	a=a+1
loop
print a
a=0
do until a>4
	a=a+1
loop
print a
a=0
do
	a=a+1
loop while a <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16485	16593	
==>.  All 5
a=0
do while a<5
	a=a+1
loop
print a
a=0
do until a>4
	a=a+1
loop
print a
a=0
do
	a=a+1
loop while a <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9021	9120	
==>_fh'}} 
            " <a href='#_top'><img alt='^' border=0 src='$self->{RESOURCES_URL}/up.gif'></a> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553202	553389	
==>UMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554598	554785	
==>UMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555995	556182	
==>UMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i" <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	15877	16017	
==>desc );
            $builder->diag("'$cmd' failed with exit code $exit_code")
                  if $exit_code and not $pass;

            unl <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	18428	18568	
==>desc );
            $builder->diag("'$cmd' failed with exit code $exit_code")
                  if $exit_code and not $pass;

            unl <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	25471	25592	
==>desc);
            $builder->diag("'$cmd' failed with exit code $exit_code") if $exit_code and not $pass;

            unl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3953	4073	
==>temp_pmc = $compiler->temp_pmc();

    $compiler->emit("  $temp_pmc = new $pmc_type");
    $compiler->emit("  $temp_pmc = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1592	1712	
==>temp_pmc = $compiler->temp_pmc();

    $compiler->emit("  $temp_pmc = new $pmc_type");
    $compiler->emit("  $temp_pmc = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1355	1475	
==>temp_pmc = $compiler->temp_pmc();

    $compiler->emit("  $temp_pmc = new $pmc_type");
    $compiler->emit("  $temp_pmc = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544241	544341	
==>3}} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = a, saved_var2 = b; \n\n if(a==0 || b==0) { {{\@1} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545577	545677	
==>3}} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = a, saved_var2 = b; \n\n if(a==0 || b==0) { {{\@1} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546913	547013	
==>3}} < 0 ? -{{\@3}} : {{\@3}};\n INTVAL saved_var1 = a, saved_var2 = b; \n\n if(a==0 || b==0) { {{\@1} <==
3	/Users/nnunley/parrot/config/inter/lex.pm	354	472	
==>mpt $util );

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step qw( :inter capture_output check_ <==
3	/Users/nnunley/parrot/config/inter/make.pm	348	466	
==>mpt $util );

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step qw( :inter capture_output check_ <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	349	467	
==>mpt $util );

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step qw( :inter capture_output check_ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	1960	2071	
==>builtins );
	return 0;
}
sub isuserfunc {
#	print "Isuserfunc $_[0] and $funcname..";
	return 0 unless defined $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1483	1579	
==>$handler) = @_;

  $handler->start_element({ Name => 'op', Attributes => { kind => 'postfix', nam <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1477	1573	
==>$handler) = @_;

  $handler->start_element({ Name => 'op', Attributes => { kind => 'postfix', nam <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	1845	1962	
==>d   { return shift->{KIND};     }
sub type   { return shift->{TYPE};     }
sub name   { return shift->{NAME};     }
su <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	26286	26395	
==>{flags}{dynpmc}) {
        $cout .= $self->lib_load_code();
    }
    $cout;
}

=item C<gen_c($out_name)>

Gen <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2802	2902	
==>d { return shift->{KIND}; }
sub type { return shift->{TYPE}; }
sub name { return shift->{NAME}; }

su <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	537313	537564	
==>= sin((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1339	1462	
==>_count == 1) {
          $path_to_language = $language;
        } elsif ($dir_count == 2) {
          $path_to_language = '. <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1824	1947	
==>_count == 1) {
          $path_to_language = $language;
        } elsif ($dir_count == 2) {
          $path_to_language = '. <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1364	1472	
==>_terminate {
    return "";
}

sub output_advance {
    my ($self, $distance, $failLabel) = @_;
    $failLabe <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1113	1221	
==>_terminate {
    return "";
}

sub output_advance {
    my ($self, $distance, $failLabel) = @_;
    $failLabe <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853355	853465	
==>.ops\"\n  {{\@1}} = string_append(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854137	854247	
==>.ops\"\n  {{\@1}} = string_append(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	165	264	
==>- Display symbol table information

=head1 SYNOPSIS

    % perl tools/dev/nm.pl [options] file

To l <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3168	3268	
==>' Exit tests
sub mysub(b,c)
	print "Print me"
	exit sub
	print "Don't print me"
end sub
function foo$ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17135	17235	
==>' Exit tests
sub mysub(b,c)
	print "Print me"
	exit sub
	print "Don't print me"
end sub
function foo$ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	12179	12275	
==>ce, ':raw');
  #binmode($source, ":raw");

  return;
}

#:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142397	142665	
==>=> "inline",
                  "CODE" => 174,
                  "ARGS" => [
                              "n",
                              "nc",
                              "ic"
                            ],
                  "BODY" => "#line 77 \"src/ops/cmp.ops\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	602216	602389	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "class",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	1070	1167	
==>you must pre-declare how many tests you
plan to run.  This is in case something goes horribly wron <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27675	27791	
==>loc} eq 'nci';
        $hout .= $self->decl($classname, $method, 1);
    }
    # class init decl
    if ($self->{flag <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1783	1880	
==>/tools/build/pmc2c.pl] . $PATHQUOTE;

# Actual commands
sub compile_cmd {
    my ($target, $source <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1874	1971	
==>/tools/build/pmc2c.pl] . $PATHQUOTE;

# Actual commands
sub compile_cmd {
    my ($target, $source <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	15011	15241	
==>t "$pbc_f"},
                    ];
                } else {
                    $cmd = qq{$parrot $args "$code_f"};
                }
                $exit_code = run_command($cmd,
                                         CD     = <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	6205	6318	
==>EOC
    %globals = ();
    $names{None} = 'None';
    $globals{None} = 'None';
    if ($def_args{$arg}) {
	my ($i, <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2129	2268	
==>{parrot} --no-gc languages/${pir_fn}",
            );
        }

        # This does not create byte code, but lua code
        my $par <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	797	904	
==>have more internal complexity the
format is:

    op opname (args) :class,flags {
        ... body of functi <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	39510	39604	
==>le, suppose the start tag "/para" introduces a paragraph, which then
continues until the next " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	512739	512982	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	5906	6063	
==>$hashes{$name} ){
                $out .= "    my \$i;\n";
                $out .= "    \@_ ? (\$i = shift) : return \$r->$elem;\n";
                $out .= " <==
3	/Users/nnunley/parrot/lib/Test/More.pm	32510	32625	
==>s easiest.
    local $^W = 0;

    # We must make sure that references are treated neutrally.  It really
    # doesn <==
3	/Users/nnunley/parrot/lib/Parrot/PMC.pm	763	870	
==>gInt => 31,
	Complex => 32,
	String => 33,
	Boolean => 34,
	Ref => 35,
	SharedRef => 36,
	Array => 37,
	Fixe <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103885	1103972	
==>NTVAL type = pmc_type(interpreter, class);\n\tif (!type) {\n\t\tParrot_autoload_class(in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105100	1105187	
==>NTVAL type = pmc_type(interpreter, class);\n\tif (!type) {\n\t\tParrot_autoload_class(in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554307	554596	
==>od_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555704	555993	
==>od_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556941	557230	
==>od_pmc, next);\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	45334	45470	
==>OTOS => {
			'@5-9' => 212
		}
	},
	{#State 211
		ACTIONS => {
			'END' => 213
		}
	},
	{#State 212
		DEFAULT => -4,
		GOTOS = <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	6111	6218	
==>_setup_starts}{$group} = 1;
    $self->{_setup_ends}{$group} = 1;
}

sub rewrite_try {
    my ($self, $op, $ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2196	2332	
==>rces) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various libraries in the link line.
        $liblist <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2488	2624	
==>rces) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various libraries in the link line.
        $liblist <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2283	2419	
==>rces) = @_;
    
    my $liblist;
    if ($^O =~ /mswin32/i) {
        # Need to put various libraries in the link line.
        $liblist <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	6917	7094	
==>e)) eq "1") {
                $conf->data->set(optimize => '-O2');
            }
        } elsif ($make =~ /dmake/i) {

            # mingw Perl
        } else {
            warn <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714532	714632	
==>"\n  STRING * const s = {{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (s && string_leng <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715455	715555	
==>"\n  STRING * const s = {{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (s && string_leng <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8353	8494	
==>ERR "Back to state $$stack[-1][0], then ";

                $$check eq 'ERROR'
            or  do {
#DBG>				$debug & 0x04
#DBG>			and	pr <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7973	8109	
==>ERR "Back to state $$stack[-1][0], then ";

                $$check eq 'ERROR'
            or  do {
#DBG>				$debug & 0x04
#DBG>			and	pr <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	27733	27850	
==>content = join ' ', splice @$para, 2;
      if($content =~ m/\S/) {
        $self->whine(
          $para->[1]{'start_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1348	1441	
==>type).
dec ${ITEMP0}
${PTEMP0} = ${STYPES}[${ITEMP0}]

# Assign register name.
${STEMP0} = "$" <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3058	3151	
==>type).
dec ${ITEMP0}
${PTEMP0} = ${STYPES}[${ITEMP0}]

# Assign register name.
${STEMP0} = "$" <==
3	/Users/nnunley/parrot/lib/Test/More.pm	25815	25950	
==>his, $that ] }) );
    }
    else {			       		# both references
        local @Data_Stack = ();
        if( _deep_check($this, $that) ) <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	5214	5320	
==>extref =~ m/\G\\./gcs;

		if ($$textref =~ m/\G($ldel)/gc)
		{
			push @nesting, $1;
		}
		elsif ($$textref <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9418	9523	
==>ed escaping, I dare say!
    ref($self), $self->VERSION(), $ISA[0], $ISA[0]->VERSION(),
    $], scalar(gmt <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1648	1826	
==>>data->set(
            share_ext  => '.dll',
            load_ext   => '.dll',
            a          => '.lib',
            o          => '.obj',
            cc_o_out   => '-Fo' <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3527	3705	
==>>data->set(
            share_ext  => '.dll',
            load_ext   => '.dll',
            a          => '.lib',
            o          => '.obj',
            cc_o_out   => '-Fo' <==
3	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	1455	1568	
==>ersion == 4) {
        #    $parrot_version[2] = $parrot_version[2] . "_" . $parrot_version[3];
        $#parrot_v <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	52148	52237	
==>specified extractors.
In a scalar context, C<extract_multiple> returns the first
substring <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	3844	3962	
==>$arg_count{$f} = $n;
		for (my $i = 0; $i < $n; $i++) {
		    my ($a, $def) = split(/=/, $args[$i]);
		    $a =~ s/\s// <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	4343	4461	
==>$arg_count{$f} = $n;
		for (my $i = 0; $i < $n; $i++) {
		    my ($a, $def) = split(/=/, $args[$i]);
		    $a =~ s/\s// <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	14211	14302	
==>acters (like "\xE9", 
lowercase e-acute) to characters (like "e").

=item $Code2USASCII{I<in <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	690	784	
==>e exec prefix. Defaults to '/usr'.

=item C<bindir>

The executables directory. Defaults to '/u <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	919	1013	
==>e exec prefix. Defaults to '/usr'.

=item C<bindir>

The executables directory. Defaults to '/u <==
3	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	23	110	
==>rrot/languages/BASIC/interpreter/basic.pl 11512 2005-10-12T02:11:40.290517Z coke  $
# $L <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1646	1748	
==>>YYData->{symbtab_cst};
    $parser->YYData->{symbtab_cst} = new SymbTabConst($parser);
    unshift @ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	28233	28331	
==>1]{'start_line'};

  # A recursive algorithm implemented iteratively!  Whee!

  while($treelet = sh <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	31734	31832	
==>1]{'start_line'};

  # A recursive algorithm implemented iteratively!  Whee!

  while($treelet = sh <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912722	913005	
==>DE" => 1028,
                  "ARGS" => [
                              "i",
                              "s",
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@ <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	3252	3359	
==>a,$b,$c,$d;
}


sub md5_hex(@) {  
  unpack 'H*', &md5;
}

sub md5_base64(@) {
  encode_base64(&md5);
}


su <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	603315	603555	
==>inline",
                  "CODE" => 683,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 404 \"src/ops/object.ops\"\n    {{ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2782	2886	
==>outine should be skipped"
Label1:
   PRINT "5 back in module-level code"
   END
Sub1:
   PRINT "2 in subr <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16749	16853	
==>outine should be skipped"
Label1:
   PRINT "5 back in module-level code"
   END
Sub1:
   PRINT "2 in subr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1527	1644	
==>my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  my $dest_s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1485	1602	
==>my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  my $dest_s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1407	1524	
==>my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  my $dest_s <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	1228	1316	
==>gister_num
  (register_num,pir_code) = inlined(0,argv)
  .get_from_HLL(pir_compiler, '_tc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943812	943900	
==>" => "#line 516 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_charset_number_of_str(interpre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944601	944689	
==>" => "#line 516 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_charset_number_of_str(interpre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465603	465822	
==>c/ops/math.ops\"\n  {{\@1}}--;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	466224	466443	
==>c/ops/math.ops\"\n  {{\@1}}--;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121981	122080	
==>ue casts are evil, but this one isn't evil enough to kill.\n   * it's just casting a signed integral <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122893	122992	
==>ue casts are evil, but this one isn't evil enough to kill.\n   * it's just casting a signed integral <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	10862	10952	
==>if (defined $::RD_TRACE)
	{
		Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59378	59618	
==>}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "warningso <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60026	60266	
==>}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "warningso <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60675	60915	
==>}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "warningso <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7237	7336	
==>Upper"
print lcase$(s1$);" Lower"
a$="   Flush   "
print ">";ltrim$(a$)
print rtrim$(a$);"<"
' A's a <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18966	19065	
==>Upper"
print lcase$(s1$);" Lower"
a$="   Flush   "
print ">";ltrim$(a$)
print rtrim$(a$);"<"
' A's a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561743	561856	
==>],
                  "BODY" => "#line 167 \"src/ops/object.ops\"\n  opcode_t *next = {{^+4}};\n  {{\@1}} = VTABLE_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562827	562940	
==>],
                  "BODY" => "#line 167 \"src/ops/object.ops\"\n  opcode_t *next = {{^+4}};\n  {{\@1}} = VTABLE_ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	22985	23080	
==>hat way
you'll know when they start passing.  Sometimes this isn't possible.
Often a failing tes <==
3	/Users/nnunley/parrot/lib/Test/More.pm	17878	18003	
==>$ok ) {
        chomp $@;
        $@ =~ s{^BEGIN failed--compilation aborted at .*$}
                {BEGIN failed--compilatio <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5172	5309	
==>t {$FH} "  ";
        if ( exists $op->{result} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $first <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6204	6341	
==>t {$FH} "  ";
        if ( exists $op->{result} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $first <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	423	520	
==>ion::Config;

use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<config_gro <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53229	53319	
==>item = new Parse::RecDescent::UncondReject($lookahead,$line,$code);
				$prod and $prod->ad <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54938	55028	
==>item = new Parse::RecDescent::UncondReject($lookahead,$line,$code);
				$prod and $prod->ad <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27266	27365	
==>e, $mv, "pre-translate for $rule->{'name'}");

		# If we have PIR for the instruction, just take tha <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34405	34504	
==>e, $mv, "pre-translate for $rule->{'name'}");

		# If we have PIR for the instruction, just take tha <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4296	4394	
==>t2=false($ot2);
		return(<<CODE, $result);
	set $result, 0.0
	eq $a1, $ot1, EQ_$eqnum
	eq $a2, $ot2 <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2329	2449	
==>list = join( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ /gcc/i) {
            $liblist =~ s/gdbm\.lib/-llibg <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2621	2741	
==>list = join( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ /gcc/i) {
            $liblist =~ s/gdbm\.lib/-llibg <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2416	2536	
==>list = join( ' ', map { "$_.lib" } keys %$libs );
        if ($CC =~ /gcc/i) {
            $liblist =~ s/gdbm\.lib/-llibg <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929969	930266	
==>LAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1045,
                  "ARGS <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	235	342	
==>t_delimited );

use vars qw ( $skip );

sub linenum
{
	my ($thisline) = @_;
	my $tlc;
	tie $tlc, q{Parse::Re <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	2322	2417	
==>etting replaced by their appropriate values.

Finally, the .c and .h files are generated. The ap <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	6691	6834	
==>fine',
             'i_time' => undef,
             'i_unistd' => 'define',
             'i_ustat' => undef,
             'i_utime' => 'define', <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26823	26942	
==>g1' => $l_continue,
    );
    my $cond = get_cond( $parser, $expr );
    push @opcodes, @{ $cond->[1] };
    push @ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	36776	36868	
==>etic_p,
  'char-numeric?'    => \&_op_char_numeric_p,
  'char-whitespace?' => \&_op_char_whit <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1091337	1091670	
==>FLAGS" => ":python",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1210,
                  "ARGS <==
3	/Users/nnunley/parrot/config/inter/charset.pm	1201	1294	
==>lt by 'config/inter/charset.pm'

E_NOTE

    foreach my $charset (split(/\s+/, $charset_list)) <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	14263	14355	
==>eturn parse_pmc($contents);
}

=head2 gen_super_meths($class, $vtable)

Generate a list of in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	866472	866710	
==>BELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	6651	6753	
==>$)
{
	my $brack = reverse $_[0];
	$brack =~ tr/[({</])}>/;
	return $brack;
}

my $XMLNAME = q{[a-zA-Z_: <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	7289	7388	
==>ts $ENV{PARROT_OPS_DEBUG};
	return -1;
    } else {
	my $n = $ParrotOps::optable{$opname} = ++$Parro <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	12773	12876	
==>er, $rdel_outer)
	{
		$_ = '('.join('|',map { quotemeta $_ } split('',$_)).')'
	}
	pos = $posbug;

	my @ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15684	15786	
==>_esc_codely {
  # Doesn't change "-" to hard-hyphen, nor apply computerese style-smarts.
  # We don't w <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	3082	3211	
==>de;
            $self->{builder}->diag($diag) if $diag;
        }

        # The generated files are left in the t/* directori <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2676	2803	
==>de;
            $self->{builder}->diag( $diag ) if $diag;
        }

        # The generated files are left in the t/* directori <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21688	21806	
==>T
	if bump < 1 then
		if bump = 0 then
			print "Second"
		else 
			print "Third"
		end if
	end if
	print "First, and e <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	38843	38980	
==>ss( @$para == 2 or ( @$para == 3 and $para->[2] eq '' )
          or $para->[1]{'~cooked'}
        ) {
          push @$para,
          @{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79352	79468	
==>);\n  }\n  else {\n      /* At this point we have the symbol's address. We just need to build\n         a PMC with it <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80873	80989	
==>);\n  }\n  else {\n      /* At this point we have the symbol's address. We just need to build\n         a PMC with it <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	668	780	
==>o::Construct::Expression::Value::Identifier');

  my $self = bless {
    BLOCK => $block,
    IDENT => $ident
  } <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	668	780	
==>o::Construct::Expression::Value::Identifier');

  my $self = bless {
    BLOCK => $block,
    IDENT => $ident
  } <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	593	702	
==>o::Construct::Expression::Value::Identifier');

  my $self = bless {
    BLOCK => $block,

    IDENT => $ident <==
3	/Users/nnunley/parrot/config/inter/make.pm	2435	2555	
==>XME this is an ugly hack
        # replace the value for $(MAKE) with the actual path or we'll end up
        # with a va <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3661	3762	
==>compile') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_lib <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3765	3866	
==>compile') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_lib <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79385	79494	
==>is point we have the symbol's address. We just need to build\n         a PMC with it so we can get and set the <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80906	81015	
==>is point we have the symbol's address. We just need to build\n         a PMC with it so we can get and set the <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	12423	12525	
==>$self->_add_inst("DONE_$label");
  return $return;
}

sub _op_let {
  my ($self, $node) = @_;
  my $ret <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11520	11740	
==>arg1'   => $result,
                            'arg2'   => $key->[0],
                        );
                        $result = $result2;
                    }
                    push @opcodes, @{ $last_key->[1] <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9744	9944	
==>arg1'   => $result,
                        'arg2'   => $key->[0],
                    );
                    $result = $result2;
                }
                push @opcodes, @{ $last_key->[1] <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8647	8807	
==>arg1'   => $result,
                'arg2'   => $key->[0],
            );
            $result = $result2;
        }
        push @opcodes, @{ $last_key->[1] <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	6823	6949	
==>hift;
    my $ignore = shift;
    my @files = ();
    
    foreach my $file ($self->files($recursive, $ignore))
    {
        n <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1264	1374	
==>levels we have to go back to get to parrot.
        # And, conversely, how many levels we have to go down to ge <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	734	840	
==>levels we have to go back to get to parrot.
    # And, conversely, how many levels we have to go down to ge <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	36400	36522	
==>ar>?'           => \&_op_char_gt_p,
  'char<=?'          => \&_op_char_le_p,
  'char>=?'          => \&_op_char_ge_p,
  'ch <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	261	356	
==>pTrans> to provide a
function-based (slow or fast core) run loop.

=head2 Instance Methods

=ove <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	203	300	
==>etermines the sizes of various types.

=cut

package auto::sizes;

use strict;
use vars qw($descri <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658280	658368	
==>LL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659199	659287	
==>LL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4 <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3696	3794	
==>tion's nth argument. C<$0> is the opcode itself.

=back

Note that, for ease of parsing, if the arg <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2497	2593	
==>e stack are pointers into the bytecode array, and so
must be converted to pointers into the prede <==
3	/Users/nnunley/parrot/lib/Test/More.pm	34564	34657	
==>cts

String overloaded objects are compared B<as strings>.  This prevents
Test::More from pier <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	37440	37538	
==>content text bit \"$ell_content[$j]\" for a '/'.\n";

        if($ell_content[$j] =~ m/^([^\/]*)\/( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023359	1023451	
==>time_t t = (time_t) {{\@2}};\n  Parrot_localtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024209	1024301	
==>time_t t = (time_t) {{\@2}};\n  Parrot_localtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	8734	8845	
==>e "Can't close    stderr" if $err;

    open  STDOUT, ">&OLDOUT" or die "Can't restore  stdout" if $out;
    ope <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8254	8364	
==>e "Can't close    stderr" if $err;

    open STDOUT, ">&OLDOUT" or die "Can't restore  stdout" if $out;
    ope <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	7361	7454	
==>:diag("  Failed test ($?CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_tests_faile <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8278	8401	
==>" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLAGS" => ":base <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9393	9516	
==>" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLAGS" => ":base <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	27	119	
==>copyright. See ADDITIONAL section at end of file.
# $Id: /parrot/tools/build/pbc2c.pl 19607 2 <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	3653	3767	
==>do     => $4,
    skipped  => $5,
    unexpect => $6,
  };

  if(grep { not $smoke{$_} } qw<harness_args revision>) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499500	499724	
==>n  {{\@1}} = floatval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500263	500487	
==>n  {{\@1}} = floatval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	626167	626306	
==>ts (1), x; invokecc_p */\n    pc = CUR_OPCODE + 2 + n_args + 3 + 3 + 2;    \n    args[1 + n_args] = pc;\n    lru = &mic->lru;\n    /* TODO v <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297020	297314	
==>= ({{\@2}} == {{\@3}}) ? 0 : 1;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297876	298170	
==>= ({{\@2}} == {{\@3}}) ? 0 : 1;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298732	299026	
==>= ({{\@2}} == {{\@3}}) ? 0 : 1;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9789	9892	
==>_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over each parameter a <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7303	7406	
==>_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over each parameter a <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6267	6370	
==>_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over each parameter a <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	2180	2280	
==>ined, it is processed and its method names
are extracted and saved.

Next, each method body is proces <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	922787	922879	
==>ps/string.ops\"\n    {{\@1}}->vtable->set_string_native(interpreter, {{\@1}},\n        Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305076	305249	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if_null",
                  "FLAGS" => "",
                  "A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305864	306037	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if_null",
                  "FLAGS" => "",
                  "A <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	1608	1693	
==>self->new_group('Configuration', '',
			$self->new_item('', 'lib/Parrot/BuildUtil.pm') <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659640	660059	
==>GDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 737,
                  "ARGS" => [
                              "i",
                              "p",
                              "ki"
                            ],
                  "BODY" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669083	669174	
==>ps/pmc.ops\"\n    {{\@1}}->vtable->push_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669855	669946	
==>ps/pmc.ops\"\n    {{\@1}}->vtable->push_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	27935	28145	
==>JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "get_results",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ] <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9787	9919	
==>s = shift;

    if ($args =~ m/\S/) {
        return "INTERP, SELF, $args";
    } else {
        return "INTERP, SELF";
    }
}

=ite <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11254	11376	
==>en }
        elsif($t->is_end   and $t->tag eq 'X') { --$x_open }
      }
    }
  }
  
  $out =~ tr/\x00-\x1F\x80-\x9F//d i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122200	122471	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123112	123383	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core" <==
3	/Users/nnunley/parrot/tools/dev/as2c.pl	24	127	
==>ct;

# convert gas assember listing to i386 code array
# creates also a test file

my ($src, $func, $out <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757774	758050	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758546	758822	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	3566	3674	
==>:
    set valid_flag, 1
    ret
.end
END
}

sub output_rule_body {
    my ($self, $fh, $subname, $rule, $ctx, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470677	471115	
==>",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 540,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "B <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	3258	3382	
==>cfile ? $pmcfile : $cfile;
        my $hfile = $cfile;
        $hfile =~ s/\.c$/.h/;

        my $fh = open_file( "<", $cfile <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	5638	5749	
==>b && $a == $b) {
	warn "$ME: both --$sa and --$sb used\n";
    }
}

warn_if_both($Code,   $Data,    'code',   'd <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429592	429758	
==>"p",
                              "s"
                            ],
                  "BODY" => "#line 74 \"src/ops/math.ops\"\n  mmd_dispatch_v_ps(interpreter, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2039	2150	
==>re_type 
{
    my $self = shift;
    
    die ref($self) . " doesn't have core_type()";
}

=item C<core_prefix() <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2391	2499	
==>>type;
  }
  else {
    $right_type = $right->type;
  }

  $self->INTERNAL_ERROR("No type for dest!")  unless <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2313	2421	
==>>type;
  }
  else {
    $right_type = $right->type;
  }

  $self->INTERNAL_ERROR("No type for dest!")  unless <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	909	1025	
==>in()
##
sub main {
    usage() and exit if $opt_h;
    checkout_tests() and convert_tests() if not -d $DIR;
    updat <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623402	623493	
==>>current_results;\n    if (dest_pc) {\n\tdest_pred = (void**) dest_pc - caller_ctx->pred_off <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4430	4535	
==>EMP0}
PIR
		$pir =~ s/\$push_num/$push_num/g;
		$push_num++;
	}

	# Return generated code.
	return $pir;
} <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2846	2951	
==>EMP0}
PIR
		$pir =~ s/\$push_num/$push_num/g;
		$push_num++;
	}

	# Return generated code.
	return $pir;
} <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	717	816	
==>unctionality will not need it. Althoug this may be a 
# niave understanding of what this stuff is fo <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5054	5156	
==>y("$_$LOAD_EXT", $dest) or die "Copy $_$LOAD_EXT failed ($?)\n";

        # Execute permissions on libr <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5265	5367	
==>y("$_$LOAD_EXT", $dest) or die "Copy $_$LOAD_EXT failed ($?)\n";

        # Execute permissions on libr <==
3	/Users/nnunley/parrot/config/auto/signal.pm	1607	1707	
==>lean();

    # now generate signal constants
    open O, ">runtime/parrot/include/signal.pasm" or die <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79543	79757	
==>enum_class_UnManagedStruct);\n      PMC_data({{\@1}}) = p;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81064	81278	
==>enum_class_UnManagedStruct);\n      PMC_data({{\@1}}) = p;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	23258	23368	
==>=  2*($n >> 8);
    my $name = $stack[-1 - $nfix-$nk]->[0];
    print "\t\t $cmt $name\n";
    if ($builtin_ops <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19702	19864	
==>hcount == 0 goto lastback
#                 $matchcount--
#                 goto R.back
#           back: if $matchcount >= max goto rfail
#                 R or r <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19404	19558	
==>hcount == 0 goto lastback
#               $matchcount--
#               goto R.back
#         back: if $matchcount >= max goto rfail
#               R or r <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	2297	2400	
==>@$tokens) {
    #print Dumper $tokens;
    ($count,$tree) = _build_tree($tokens,$count);
    #_dataflow( <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27269	27367	
==>$mv, "pre-translate for $rule->{'name'}");

		# If we have PIR for the instruction, just take that. <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34408	34506	
==>$mv, "pre-translate for $rule->{'name'}");

		# If we have PIR for the instruction, just take that. <==
3	/Users/nnunley/parrot/lib/Test/More.pm	24499	24593	
==>or these
instances Test::More provides a handful of useful functions.

B<NOTE> I'm not quite su <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10107	10216	
==>em-bullet') {
        print $fh "\\'95 \n";
        #for funky testing: print $fh '', rtf_esc("\x{4E4B}\x{9053 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15549	15637	
==>chars, and 7f-ff.
    $x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1) <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16728	16816	
==>chars, and 7f-ff.
    $x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1) <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	1083	1206	
==>$^X, "tools/build/vtable_h.pl");
    my @generated = ();
    for my $f (@files) {
        my $in_def = ''; # in #define='def <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758301	758409	
==>s/set.ops\"\n  {{\@1}} = string_set(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759074	759182	
==>s/set.ops\"\n  {{\@1}} = string_set(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093967	1094275	
==>> 0,
                  "NAME" => "morph",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1213,
                  "A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093165	1093452	
==>> 0,
                  "NAME" => "morph",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1212, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1355	1452	
==>o such symbol '$ident_name'!" unless defined $sym;

  if (($kind eq 'var') and ($scope eq 'global' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	2781	2884	
==>mbol
{
  my $self = shift; # Required: Jako::Construct::Block
  my $name = shift; # Required: string (TO <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3865	3968	
==>mbol
{
  my $self = shift; # Required: Jako::Construct::Block
  my $name = shift; # Required: string (TO <==
3	/Users/nnunley/parrot/config/gen/config_pm.pm	188	279	
==>n data

=head1 DESCRIPTION

Writes the C<Parrot::Config> Perl module, the
F<runtime/parrot/l <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109753	110024	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":base_core <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110532	110803	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":base_core <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	24668	24775	
==>reach my $method (@{ $self->{methods} }) {
      next unless $method->{loc} eq 'nci';
      my $proto = prot <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19692	19836	
==>: if $matchcount == 0 goto lastback
#                 $matchcount--
#                 goto R.back
#           back: if $matchcount >= max goto rf <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19394	19532	
==>: if $matchcount == 0 goto lastback
#               $matchcount--
#               goto R.back
#         back: if $matchcount >= max goto rf <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	7931	8045	
==>pt/local/lib -L/usr/local/lib -flat_namespace ',
             'lex' => 'echo',
             'lib_dir' => '/opt/loca <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	816410	816595	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "clearn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [],
                  "TYPE" => "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1493	1627	
==>DERR "pbcc: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
        return "return (0);"
    }
    else
    {
        return "if (( <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2018	2151	
==>DERR "pbcc: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
        return "return (0);"
    }
    else
    {
  	    return "if (( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850027	850315	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850914	851202	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851801	852089	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARG <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	11442	11562	
==>preamble_ref},
            "t_$temp_num = (char)GET_NCI_I($reg_num);";
        return "t_$temp_num";
    };
    /2/ && do <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3948	4053	
==>lenvar) = @_;
    $lenvar ||= "<rx_len>";
    my $fail = $self->output_label_use($failLabel);
    if ($nee <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3662	3767	
==>lenvar) = @_;
    $lenvar ||= "<rx_len>";
    my $fail = $self->output_label_use($failLabel);
    if ($nee <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296734	297003	
==>YPE" => "inline",
                  "CODE" => 345,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 970 \"src/ops/cmp.o <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	211	308	
==>IS

    % perl examples/mops/mops.pl

=head1 DESCRIPTION

A Perl implementation of the F<examples/ <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	207	304	
==>IS

    % perl examples/mops/mops.pl

=head1 DESCRIPTION

A Perl implementation of the F<examples/ <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1773	1874	
==>todo, :$depends) returns Bool is export {
    my $test := $got ~~ $expected;
    Test::proclaim($test, <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	672	767	
==>urns the instance for C<$path> if it already exists, otherwise it is
created and cached. A relat <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107129	107276	
==>=> "#line 167 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107983	108130	
==>=> "#line 167 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108837	108984	
==>=> "#line 167 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6567	6692	
==>DBG>				$debug & 0x04
#DBG>			and	print STDERR "Shift and go to state $act.\n";

					$$errstatus
				and	do {
					--$$e <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6261	6381	
==>DBG>				$debug & 0x04
#DBG>			and	print STDERR "Shift and go to state $act.\n";

					$$errstatus
				and	do {
					--$$e <==
3	/Users/nnunley/parrot/lib/Test/More.pm	27496	27591	
==>ged comparison functions

The use of the following functions is discouraged as they are not
actu <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	3507	3596	
==>c.c : src/pmc/$pmc.dump
	\$(PMC2CC) src/pmc/$pmc.pmc

src/pmc/$pmc.dump : vtable.dump $par <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	780	873	
==>, $right) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Blo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	808	901	
==>, $right) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Blo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	492	585	
==>, $right) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Blo <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	70539	70639	
==>d
		_hint("Unless subrule \"$subrule\" performs some cunning
		       lookahead, the repetition \"$su <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35590	35688	
==>1 EXIT CODES

If all your tests passed, Test::Builder will exit with zero (which is
normal).  If an <==
3	/Users/nnunley/parrot/lib/Test/More.pm	33661	33759	
==>1 EXIT CODES

If all your tests passed, Test::Builder will exit with zero (which is
normal).  If an <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676405	676780	
==>" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 758,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015096	1015330	
==>er, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015920	1016154	
==>er, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2877	3020	
==>n
             \s+ (?:\S+ \s+)? \{ \n     # optional test harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \} <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4274	4417	
==>n
             \s+ (?:\S+ \s+)? \{ \n     # optional test harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \} <==
3	/Users/nnunley/parrot/languages/converter.pl	1199	1304	
==>rn .= " ( $item[3] )(?) ";
		  $return .= $item[5][0] if defined $item[5][0];
		}
		| terminal(?) /<[^>]+> <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	6406	6569	
==>n";
                }
            }
            $out .= "    croak 'Too many args to $name' if \@_ > 1;\n";
            $out .= "    \@_ ? ($pre\$r->$elem$sel = shi <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	790	901	
==>umper::Indent = 0;

my $ops = new Parrot::OpsFile (split(' ', $PConfig{ops}));


#
# dump_const_table()
#

sub d <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7800	7895	
==>e = Jako::Construct::Type->new($type_token->type) if $type_token;

      my $ident = Jako::Const <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4090	4287	
==>'-dll',
            ld_out               => '-out:',
            ldflags              => '-nologo -nodefaultlib',
            ar                   => 'xilib',
            ar_flags             => '', <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	1534	1652	
==>n my $ffh, '<', $file;
        %tests = extract_tests( do{undef local $/;<$ffh>} );
        close $ffh;

	# Only genera <==
3	/Users/nnunley/parrot/languages/urm/urm-old.pl	596	701	
==>$1} = 0 unless defined $register{$1}}
    if ($line =~ /out\((r\d+)/) { $outreg = $1 }
    if ($line =~ /^ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2741	2847	
==>$address)>

Same logic as C<expr_pop()>.

=cut

sub expr_address
{
    my ($self, $addr) = @_;
    return " <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2671	2772	
==>name) {
      my $temp = $compiler->temp_reg($formal_arg_type);
      my $value = $args[$i]->compile($ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2371	2472	
==>name) {
      my $temp = $compiler->temp_reg($formal_arg_type);
      my $value = $args[$i]->compile($ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10955	11049	
==>ly a ${DEST0}.
${ITEMP0} = ${PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pre_call_HA <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8141	8235	
==>ly a ${DEST0}.
${ITEMP0} = ${PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pre_call_HA <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5803	5897	
==>ly a ${DEST0}.
${ITEMP0} = ${PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto pre_call_HA <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6139	6255	
==>et = "$target"\n\n);

    # Loop to create the subrules pir code 
    for my $ruleRow (@$pattern) {
        my ($name <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2783	2883	
==>'-lm -lgmp -lreadline -lpthread -lm -L/opt/local/lib  -licuuc -licudata -lpthread -lm';
        $extr <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2578	2678	
==>'-lm -lgmp -lreadline -lpthread -lm -L/opt/local/lib  -licuuc -licudata -lpthread -lm';
        $extr <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	5294	5396	
==>:OpLib::$package - Parrot Op Info

    =head1 DESCRIPTION

    This is an autogenerated file, created b <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1061	1160	
==>ath_to_parrot = Parrot::Test::path_to_parrot();
        my $dir_count      = scalar(File::Spec->spli <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1551	1645	
==>ath_to_parrot = Parrot::Test::path_to_parrot();
        my $dir_count = scalar(File::Spec->spli <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5677	5767	
==>0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method_info_from_token(${ASSEMBLY}, ${ARG0})

# If t <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7897	7987	
==>0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method_info_from_token(${ASSEMBLY}, ${ARG0})

# If t <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10078	10163	
==>27fa,/* 42 */
HH,$c,$d,$a,$b,$_[7],16,0xd4ef3085,/* 43 */
HH,$b,$c,$d,$a,$_[10],23,0x4 <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30585	30706	
==>cDescent::_tracefirst($text))
							if defined $::RD_TRACE;').'
		push @item, '.($::RD_NO_HITEM ? ''
			       : '$item{' <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28509	28628	
==>cDescent::_tracefirst($text))
					if defined $::RD_TRACE;').'
		push @item, '.($::RD_NO_HITEM ? ''
			       : '$item{' <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32788	32906	
==>cDescent::_tracefirst($text))
							if defined $::RD_TRACE;').'
		push @item, ' . ($::RD_NO_HITEM ? ''
				 : '$item{' <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3204	3304	
==>Print me"
	exit sub
	print "Don't print me"
end sub
function foo$
	foo$="Right one"
	exit function
	f <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17171	17271	
==>Print me"
	exit sub
	print "Don't print me"
end sub
function foo$
	foo$="Right one"
	exit function
	f <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	4605	4705	
==>t;

    return @{$self->{LABELS}};
}

=item C<flags(@flags)>

=item C<flags()>

Sets/gets the op's fl <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	5444	5553	
==>vars"}  = "";
}

sub DESTROY {}

sub hasleftmost($$)
{
	my ($self, $ref) = @_;

	my $prod;
	foreach $prod ( @{ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	1625	1723	
==>->gen_c($c_name);
    print $cout if $opt->{debug};
    print "Writing $c_name\n" if $opt->{verbose <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	2105	2252	
==>mmentType                   => '#',
        replace_slashes               => 1
    );
    genfile(
        'config/gen/makefiles/pge.in' => 'compile <==
3	/Users/nnunley/parrot/Configure.pl	5833	5954	
==>piler)      Use the given compiler
   --ccflags=(flags)    Use the given compiler flags
   --ccwarn=(flags)     Use the gi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	6410	6509	
==>_]*)*)(.*)$}) {
#printf STDERR "IDENT [%s:%d]: '%s'\n", $file, $line, $1;
      push @tokens, Jako:: <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2382	2465	
==>LSO

F<examples/benchmarks/mops.pasm>,
F<examples/mops/mops.c>,
F<examples/mops/mops <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	2382	2465	
==>LSO

F<examples/benchmarks/mops.pasm>,
F<examples/mops/mops.c>,
F<examples/mops/mops <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2543	2657	
==>eft;
  my $op    = $self->op;
  my $right = $self->right;

  if (defined $cond) {
    $handler->start_element({ Nam <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3217	3331	
==>eft;
  my $op    = $self->op;
  my $right = $self->right;

  if (defined $cond) {
    $handler->start_element({ Nam <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3307	3421	
==>eft;
  my $op    = $self->op;
  my $right = $self->right;

  if (defined $cond) {
    $handler->start_element({ Nam <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35951	36051	
==>r
having successfully completed all its tests, it will still be
considered a failure and will exit wi <==
3	/Users/nnunley/parrot/lib/Test/More.pm	34022	34122	
==>r
having successfully completed all its tests, it will still be
considered a failure and will exit wi <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2817	2917	
==>r
having successfully completed all its tests, it will still be
considered a failure and will exit wi <==
3	/Users/nnunley/parrot/config/auto/cgoto.pm	517	620	
==>miniparrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot <==
3	/Users/nnunley/parrot/config/auto/headers.pm	452	555	
==>miniparrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot <==
3	/Users/nnunley/parrot/config/gen/cpu.pm	515	618	
==>miniparrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114871	115172	
==>P" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115725	116026	
==>P" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116580	116881	
==>P" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	1319	1418	
==>ile,0,1) eq '-' && $line == 0)
	{
		_die("Usage: perl -MLocalTest - <grammarfile> <classname>")
			u <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2996	3089	
==>',
	'PLATFORMS' => 'Project info',
	'README' => 'README file',
	'RELEASE_INSTRUCTIONS' => 'Pro <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	37128	37219	
==>fy it under the same terms as Perl itself.

See F<http://www.perl.com/perl/misc/Artistic.htm <==
3	/Users/nnunley/parrot/lib/Test/More.pm	37537	37628	
==>fy it under the same terms as Perl itself.

See F<http://www.perl.com/perl/misc/Artistic.htm <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	6497	6588	
==>fy it under the same terms as Perl itself.

See F<http://www.perl.com/perl/misc/Artistic.htm <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1696	1795	
==>ves = new ResizablePMCArray
PIR
}

# Post translation hook.
sub post_translation() {
	# Nothing to d <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15323	15422	
==>t  $expected, Str $desc?) returns Bool;
  multi sub is_deeply (Hash  %got, Hash  %expected, Str $des <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	338342	338573	
==>" => "getstdout",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 396 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	430	565	
==>urn bless {
    TOKEN    => $token,
    CODE     => 'P',
    NAME     => 'pmc',
    IMCC     => 'pmc',
    IMCC_PMC => 'PMC'
  }, $class <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10979	11062	
==>II,$c,$d,$a,$b,$_[6],15,0x2ad7d2bb,/* 63 */
II,$b,$c,$d,$a,$_[13],21,0xeb86d391,/* 6 <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2714	2811	
==>_AGAIN; }";
}

=item C<run_core_func_decl($core)>

Returns the C code for the run core function de <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	4847	4969	
==>en at least once in function (.*)/;
            if ($total_branches) {
                $function_branch_coverage{$source_fi <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3600	3693	
==>andatory,$checklist,$inarray,$outhash)=@_;
	my($prm,$value);
	my($prmlst)={};

	while(($pr <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3412	3501	
==>andatory,$checklist,$inarray,$outhash)=@_;
	my($prm,$value);
	my($prmlst)={};

	while(($pr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408319	408587	
==>nect(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409218	409486	
==>nect(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Test/More.pm	1891	2028	
==>),       $test_name );
      is( foo(42), 23, $test_name );
  };

  TODO: {
      local $TODO = $why;

      ok( foo(),       $test_name ) <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	5406	5532	
==>ously seen on line %d) of $ARGV",
              "$ret$args", $., $seen{"$ret$args"}
        if $opt_warndups;
      next;
    } <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	2140	2259	
==>();
    } else {
        my $rxlocals = ($op->{rxlocals} ||= []);
        return (aop(comment => [ "save rxlocals for op <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	1184	1281	
==>$PConfig{'ccflags'} . " -DPARROT_IN_CORE";
while ($cc_inc  =~ s/-I(\S+)//g) { push @incdirs, $1; } <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	12689	12813	
==>TRING *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_S($reg_num);";
        return " <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	12896	13020	
==>TRING *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_S($reg_num);";
        return " <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	13381	13505	
==>TRING *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_S($reg_num);";
        return " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009377	1009661	
==>UMP" => 0,
                  "NAME" => "compose",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010141	1010425	
==>UMP" => 0,
                  "NAME" => "compose",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4592	4715	
==>shift;
	my $dest_reg = shift;
	my $pir = "";

	# If the destination is not going to be a register, the translation code
	# n <==
3	/Users/nnunley/parrot/config/auto/m4.pm	1117	1224	
==>output =~ m/^GNU [mM]4 /) ? 1 : 0;
    }

    $conf->data->set(has_gnu_m4 => $has_gnu_m4);
    $self->set_re <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3625	3732	
==>of files which have this name.

=cut

sub type_for_name
{
	my $self = shift;
	my $name = shift;
	
	return $t <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	646	738	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub TIEHANDLE {  # Ties to just a scalar re <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	1760	1907	
==>_tests(%tests);
        };
        if ($@) {
            warn "Warning! Unable to extract tests for $file\n";
        } else {
            warn "Ext <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	1326	1426	
==>xtref,$from,$len);
		}
		if ($extralen) {	# CORRECT FILLET
			my $extra = substr($res[0], $extrapos-$ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	31144	31282	
==>,
	{#State 105
		ACTIONS => {
			"(" => 123
		},
		GOTOS => {
			'funcbody' => 154
		}
	},
	{#State 106
		ACTIONS => {
			":" => <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	12664	12761	
==>head1 LICENSE

THIS PROGRAM IS FREE SOFTWARE. ITS USE IS SUBJECT TO THE SAME LICENSE AS
THE PARROT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20117	20492	
==>LAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 27,
                  "ARGS" => [
                              "n",
                              "ic"
                            ],
                  "B <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	17677	17810	
==>C
}

sub JUMP_IF_FALSE
{
    my ($n, $c, $cmt) = @_;
    if (!@stack) {
	print "#XXX\t\t$cmt - stack empty\n";
	return;
    }
    my $ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	7056	7154	
==>erator($)
{
	my $self = shift;
	my $prodcount = scalar @{$self->{"prods"}};
	my $opcount = ++$self- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59578	59828	
==>0,
                  "NAME" => "warningson",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 77, <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	908	1014	
==>/build/jit2c.pl'),
            $self->new_item('', 'tools/build/vtable_h.pl'),
            $self->new_item( <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8740	8843	
==>ests_run passed unexpectedly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_of_tests_failed <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	11019	11156	
==>{
    my $op = shift;
    my $str = '';
    foreach my $case (@{ $op->{args} }) {
        $str .= "|" unless length($str) == 0;
        my <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	15847	15965	
==>ft;
    my $path = shift;

    $path =~ s|\\+|/|go;

    return $path;
}

=back

=head2 Functions

=over 4

=item C<esc <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7632	7732	
==>ssion with $syms[CURR]\n";
	#	EXPRESSION;		# Evaluate the expression all queued up.
	#	ASSIGNMENT($va <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653471	653574	
==>erpreter, {{\@1}}))\n        real_exception(interpreter, resume, METH_NOT_FOUND,\n            \"Method ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654632	654735	
==>erpreter, {{\@1}}))\n        real_exception(interpreter, resume, METH_NOT_FOUND,\n            \"Method ' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	321	409	
==>::Construct::Expression::Value;

use base qw(Jako::Construct::Expression);

use Jako::Tok <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	2522	2617	
==>e::Debug will
throw a fatal error to the effect that
"it's s too late to call Pod::Simple::Debug <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957566	957658	
==>n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\"encoding '%Ss' not found\", {{\@2}});\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958471	958563	
==>n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\"encoding '%Ss' not found\", {{\@2}});\n <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3651	3755	
==>$mode eq 'compile') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3755	3859	
==>$mode eq 'compile') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21271	21374	
==>$node->{children}[1]);
  $self->_add_inst(''           ,'eq'    ,[$temp,0,"DONE_$label"]);
  $self->_res <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4135	4231	
==>pe (so we can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign register name.
${ST <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2551	2647	
==>pe (so we can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign register name.
${ST <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1861	1957	
==>pe (so we can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign register name.
${ST <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6689	6827	
==>t {$FH} ") = ";
        }
        my @args = @{ $op->{arg2} };
        my $obj  = shift @args;
        print {$FH} "$obj->{symbol}.$op- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	980	1070	
==>e!" unless UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bles <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	992	1082	
==>e!" unless UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bles <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	725477	725723	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clone",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726238	726484	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clone",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812686	812932	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clone",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	1005	1106	
==>->output_label_use($failLabel);
}

sub output_start {
    my ($self, $n) = @_;
    return "rx_startgro <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	723	817	
==>l2abs($lang_f);
    $out_f  = File::Spec->rel2abs($out_f);
    Parrot::Test::write_code_to_file <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	760	854	
==>l2abs($lang_f);
    $out_f  = File::Spec->rel2abs($out_f);
    Parrot::Test::write_code_to_file <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934459	934817	
==>DIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1050,
                  "ARGS" => [
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 4 <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	7777	7888	
==>st not let them get closed.
    open  OLDOUT, ">&STDOUT" or die "Can't save     stdout" if $out;
    open  OLDER <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7828	7937	
==>st not let them get closed.
    open OLDOUT, ">&STDOUT" or die "Can't save     stdout" if $out;
    open OLDER <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527039	527262	
==>/ops/math.ops\"\n  {{\@1}} = asin((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5701	5808	
==>o:\n";
#DBG>		$debug & 0x08
#DBG>	and	print STDERR "Stack:[".
#DBG>					 join(',',map { $$_[0] } @$stack) <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5429	5533	
==>o:\n";
#DBG>		$debug & 0x08
#DBG>	and	print STDERR "Stack:[".
#DBG>					 join(',',map { $$_[0] } @$stack) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621440	621536	
==>lru;\n    if (lru->u.signature == sig) {\n\tif (sig) {\n\t    n = ((arg_pass_f)lru->f.real_functi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623609	623705	
==>lru;\n    if (lru->u.signature == sig) {\n\tif (sig) {\n\t    n = ((arg_pass_f)lru->f.real_functi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	626884	627107	
==>"CODE" => 703,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 53 \"src/ops/pmc.ops\"\n  if ({{\@2}} <= 0 | <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35020	35121	
==>Descent::unexpected
				   = $Parse::RecDescent::lastunexpected;
			}
			last;
		}'.($::RD_NO_TRACE?'' <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42130	42231	
==>Descent::unexpected
				   = $Parse::RecDescent::lastunexpected;
			}
			last;
		}'.($::RD_NO_TRACE?'' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6895	7004	
==>rk {
    my ($self) = @_;
    my @ops;
    if ($self->{DEBUG}) {
	push @ops, (qq(print "PUSHED ).(@_>1?$_[1]:" <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6545	6654	
==>rk {
    my ($self) = @_;
    my @ops;
    if ($self->{DEBUG}) {
	push @ops, (qq(print "PUSHED ).(@_>1?$_[1]:" <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	926	1022	
==>y;
use base qw(Parrot::Docs::Directory);

=item C<new()>

Searches up the file system tree from t <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	1908	2002	
==>an sometimes use C preprocessor defines to shorten the API names
but please do carefully contai <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247546	247687	
==>,
                  "BODY" => "#line 670 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	248410	248551	
==>,
                  "BODY" => "#line 670 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	249274	249415	
==>,
                  "BODY" => "#line 670 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1965	2080	
==>can('handle_text');
  $parser->end_head1()                 if $parser->can('end_head1');

If Pod::Simple sends an ev <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	5617	5722	
==>fined $a && defined $b && $a == $b) {
	warn "$ME: both --$sa and --$sb used\n";
    }
}

warn_if_both($Cod <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2416	2514	
==>it a label for every single instruction. While we kinda find
	# basic blocks, we don't discover bac <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	994	1092	
==>it a label for every single instruction. While we kinda find
	# basic blocks, we don't discover bac <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	53467	53587	
==>tine, but passable.
  # Don't give it a cyclic data structure!
  my @stuff = @_; # copy
  my $x;
  my $out =
    # join " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284782	284877	
==>" => "#line 913 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285659	285754	
==>" => "#line 913 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286536	286631	
==>" => "#line 913 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2688	2803	
==>bort {
	my($self)=shift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2567	2672	
==>bort {
	my($self)=shift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4607	4705	
==>R $a1, $a2
	set $result, 0.0
	ne $a1, $ot1, EQ_$eqnum
	ne $a2, $ot2, EQ_$eqnum
	branch EQ_${eqnum}_ <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1858	1978	
==>result} == $op->{arg1} ) {
            print {$FH}
                "  $op->{op} $op->{result}->{symbol}, $op->{arg2}->{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688123	688210	
==>ne 576 \"src/ops/pmc.ops\"\n   {{\@1}}->vtable->delprop(interpreter, {{\@1}}, {{\@2}});\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688895	688982	
==>ne 576 \"src/ops/pmc.ops\"\n   {{\@1}}->vtable->delprop(interpreter, {{\@1}}, {{\@2}});\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	487267	487564	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ceil",
                  "FLAGS" => <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	675	768	
==>) . ") is not!"  unless UNIVERSAL::isa($type, qw(Jako::Construct::Type));
  confess "Identifie <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	665	757	
==>) . ") is not!" unless UNIVERSAL::isa($type, qw(Jako::Construct::Type));
  confess "Identifie <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2953	3070	
==>>get('parrot_is_shared')) {
            $conf->data->set(libparrot_ldflags => 'libparrot$(A)');
        }

        # ' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3036	3132	
==>$sym;
  confess "Bad symbol value!" unless ref $sym and $sym->isa("Jako::Symbol");
  confess "Ext <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33997	34091	
==>Parse::RecDescent::lastexpected = ' . ($rule->hasleftmost($self) ? 'q{}'
				# WAS : 'qq{'.$sel <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162032	162156	
==>],
                  "BODY" => "#line 183 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162929	163053	
==>],
                  "BODY" => "#line 183 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163826	163950	
==>],
                  "BODY" => "#line 183 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433909	434240	
==>FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 498,
                  " <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	54301	54436	
==>b
#line 377 "Lua\lua51.yp"
{
            BuildRelop( $_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 68
		 'exp', 3,
sub
#l <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	28011	28127	
==>{
        DEBUG > 1 and print "=back happily closes matching =over\n";
        # Expected case: we're closing the mos <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	3908	4030	
==>isparser, $prevflag)
{
	bless {
		text    => $_[1],
		parser  => $_[2],
		prev    => $_[3]?1:0,
	      }, $_[0];
}

sub FET <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	2912	3031	
==>isparser, $prevflag)
{
	bless {
		text    => $_[1],
		parser  => $_[2],
		prev	=> $_[3]?1:0,
	      }, $_[0];
}

sub FET <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	31000	31119	
==>ing special needs doing for 'text'
          } elsif($item_type eq 'number' or $item_type eq 'bullet') {
            die <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789801	789907	
==>\@2}}->vtable->get_string_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790711	790817	
==>\@2}}->vtable->get_string_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LA <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	18995	19129	
==>) = @_;
    my $cmp = temp('I');
    if ($l && $l->[1]) {
	$l = $l->[1];
    }
    else {
	$l = 'P5';
    }
    push @stack, [-1, 'P5', <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832106	832188	
==>h(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}), STACK_ENTRY_FLOA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832834	832916	
==>h(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}), STACK_ENTRY_FLOA <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	43109	43225	
==>trange content" );
        $replacer = $treelet->[$i]; # scratch
        splice(@$treelet, $i, 1,   # fake out a lite <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10554	10666	
==>CTIONS}{error}, undef ]);

    }

    #never reached
	croak("Error in driver logic. Please, report it as a B <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10082	10189	
==>CTIONS}{error}, undef ]);

    }

    #never reached
	croak("Error in driver logic. Please, report it as a B <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	125	278	
==>to;
        my $self  = {};
        bless $self, $class;
        my ($fh) = @_;
        $self->{fh}       = $fh;
        $self->{prologue} = q{.names <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37475	37608	
==>104
	},
	{#State 145
		ACTIONS => {
			"-" => 24,
			'TRUE' => 25,
			'NOT' => 27,
			'STRING' => 29,
			'NIL' => 30,
			'FAL <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	376	475	
==>sub is_tagname { $_[0][1] eq $_[1] }
sub is_tag { shift->is_tagname(@_) }

1;


__END__

=head1 NAME <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	4164	4285	
==>osition.
#

sub back
{
  my $self = shift;
  my ($offset) = @_;

  $offset = 1 unless defined $offset;

  return $self->fo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441571	441658	
==>ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442586	442673	
==>ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@ <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	4484	4601	
==>e, $line, "Cuddled else (\"} else {\") found.");
        }
    }
}


# for now just try to catch glaring errors.  A re <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	2914	3029	
==>ut

sub write_html
{
    my $self = shift;
    my $source = shift || die "No source\n";
    my $target = shift || di <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	2362	2477	
==>ut

sub write_html
{
    my $self = shift;
    my $source = shift || die "No source\n";
    my $target = shift || di <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	1902	2037	
==>ink for the section.

=cut

sub html_link
{
    my $self = shift;
    my $path = shift;
    
    if ( $path )
    {
        $path = join <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20231	20327	
==>wegian (Bokmal)
  2068  Norwegian (Nynorsk)

=back

If you are particularly interested in customi <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	844	1095	
==>nt "Iterations:    $I4\n"; # print  "Iterations:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	844	1095	
==>nt "Iterations:    $I4\n"; # print  "Iterations:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221742	221924	
==>er, {{\@1}}, {{\@2}}, MMD_NUMCMP) > 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841088	841381	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841851	842144	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	499	621	
==>OR %%
power_ok:
    $N1 = %1
    $N2 = %2
    $N1 = pow $N1, $N2
	%1 = $N1

END_PIR

    '\x{d7}' => [ 'Multiply', '%1 = %1 <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	2582	2674	
==>lambda', 'unlambda.html', '', 'languages/unlambda'),
        $self->new_section('URM', 'urm.h <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5689	5918	
==>" => "load_bytecode",
                  "FLAGS" => ":load_file",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6354	6583	
==>" => "load_bytecode",
                  "FLAGS" => ":load_file",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	1503	1602	
==>tablespoons canola oil (or vegetable oil)
 
 * 1 tablespoon garam masala
 * 1/2 teaspoon red chili p <==
3	/Users/nnunley/parrot/lib/Test/More.pm	4562	4694	
==>cleaned_plan, $item;
        }

        $idx++;
    }

    $Test->plan(@cleaned_plan);
}

sub import {
    my($class) = shift;

    m <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	22686	22791	
==>1], $_[3] ] }
	],
	[#Rule 42
		 'classpiece', 1,
sub
#line 177 "lib/Regex/Grammar.y"
{ return $_[1]; }
	], <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10027	10123	
==>'{',
  124, '|',
  125, '}',
  126, '~',
);

#--------------------------------------------------- <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	13122	13247	
==><<"EOC";
	# $c = global "$c" $cmt
EOC
    }
    else {
	my $type = 'pmc';
	$p = $c;
	if ($type_map{$c}) {
	    $c = $p = $type <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627051	627144	
==>Y" => "#line 53 \"src/ops/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_ma <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628195	628288	
==>Y" => "#line 53 \"src/ops/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_ma <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	5925	6030	
==>@expected = ();

	my $prod;
	foreach $prod ( @{$self->{"prods"}} )
	{
		my $next = $prod->expected();
		un <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3487	3577	
==>{'Thispara'} = '';
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3017	3107	
==>{'Thispara'} = '';
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18242	18339	
==>}\t# Goto $syms[CURR]\n";
}
sub parse_gosub {
	feedme;
	create_label();

	push @{$code{$seg}->{cod <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488873	489139	
==>UMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	489626	489892	
==>UMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
3	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1575	1669	
==>::expr_to_tree($pattern, $ctx, DEBUG => 0);

    my $driver = Regex::Driver->new('pir', emit_ma <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	573	680	
==>"Do you have a parser generator, like bison or yacc?";
@args        = qw( yacc ask maintainer );

sub runste <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1585	1686	
==>ed';
    unshift @_ => ( ref $pattern
        ? Parrot::Test::PGE::_generate_subrule_pir($target, $pat <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2108	2209	
==>ed';
    unshift @_ => ( ref $pattern
        ? Parrot::Test::PGE::_generate_subrule_pir($target, $pat <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	40770	40870	
==>----------------

sub __max_lengths {
  my $colref = shift;
  my @max_len=(0)x3;
  for my $row(@$colr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455311	455563	
==>,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 235 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	7836	7943	
==>ce_arrayref'} = $_[0];
    DEBUG and print "$self 's source is array ref $_[0]\n";
    return;
  } elsif(ref <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	43720	43817	
==>ate(@_);
	# Apart from modifying @_, they are equivalent to the rather ungainly:
	return _generate <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943819	943904	
==>line 516 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_charset_number_of_str(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944608	944693	
==>line 516 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_charset_number_of_str(interpreter, <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	9499	9611	
==>ers under 0x80 that aren't legal in an XML Name.
        or $new_code =~ m/^[-\.0-9]/s
        or $new_code =~ m/ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10763	10875	
==>ers under 0x80 that aren't legal in an XML Name.
        or $new_code =~ m/^[-\.0-9]/s
        or $new_code =~ m/ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1350	1450	
==>so happens that link-sections are about the only treelets
# that are exposed to the user.

1;

__END_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	1461	1638	
==>ef,
    LINE           => undef,
    LABELS         => [ ],
    COMMENTS       => [ ],
    LAST_OP        => 'noop',
    INDENT         => 0,
    REG_COUNT      => {  'I' => 0, ' <==
3	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	84	185	
==>se constant VERSION => 0.4;
sub debug($);

our $compress = sub { return };

GetOptions(
  "smokeserv=s <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	53693	53790	
==>r until the string has been completely 
processed.

Note that in scalar and void contexts the valu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795965	796163	
==>"p",
                              "kc",
                              "ic"
                            ],
                  "BODY" => "#line 457 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	1263	1358	
==>de, $expected, $description)> 

Runs a langugage test and passes the test if a string comparison <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	1616	1711	
==>de, $expected, $description)> 

Runs a langugage test and passes the test if a string comparison <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	9266	9386	
==>math.h
cpow        complex.h
cpowf       complex.h
cpowl       complex.h
cproj       complex.h
cprojf      complex.h
cpro <==
3	/Users/nnunley/parrot/config/init/optimize.pm	101	193	
==>30T02:28:15.110975Z coke  $

=head1 NAME

config/init/optimize.pm - Optimization

=head1 DESC <==
3	/Users/nnunley/parrot/config/inter/ops.pm	60	149	
==>ot/config/inter/ops.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/inte <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1300	1408	
==>tency checks. They really should not be
  # triggered in normal operation, even with bad source code as input <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1245	1353	
==>tency checks. They really should not be
  # triggered in normal operation, even with bad source code as input <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1148	1256	
==>tency checks. They really should not be
  # triggered in normal operation, even with bad source code as input <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	272	375	
==>ack';
    $ctx->{rx_ptmp} ||= 'rx_ptmp';
    $ctx->{rx_tmp} ||= 'rx_itmp';
    $ctx->{rx_pos} ||= 'rx_po <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	4912	5019	
==>lete $delete{$_->{filename}};
  }

  unlink keys %delete;
}

sub process_list {
  my $CGI = shift;
  my $tmp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819590	819681	
==>rpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n\n  if (!entry) {\n    internal_e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820550	820641	
==>rpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n\n  if (!entry) {\n    internal_e <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22080	22198	
==>"
          . $self->_dump_curr_open() . ')'
        );
        DEBUG and print "Ignoring mistargetted =end $content\n" <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22409	22527	
==>"
          . $self->_dump_curr_open() . ')'
        );
        DEBUG and print "Ignoring mistargetted =end $content\n" <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	75743	75859	
==>ACECONTEXT;
$| = 1;

select STDOUT;

sub _verbosity($)
{
	   defined $::RD_TRACE
	or defined $::RD_HINT    and  $_[0] <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1133	1232	
==>labels}{$pass_label} = 1;
    $ctx->{external_labels}{$fail_label} = 1;

    my $opt2 = Regex::Optim <==
3	/Users/nnunley/parrot/lib/Test/More.pm	23921	24015	
==>, use SKIP.
This includes optional modules that aren't installed, running under
an OS that does <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19905	20028	
==>n;
      $self->require_semicolon;
     
      #
      # TODO: Call is really an expression, but here its treated as a statm <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432449	432539	
==>s\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433464	433554	
==>s\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{ <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	5166	5305	
==>=> '.dll',
            cc         => ${cc},
            ccflags    => '-O2 -w-8066 -DWIN32 -DNO_STRICT -DNDEBUG -D_CONSOLE',
            cc_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	3428	3553	
==>'sub');           }
sub is_unless        { return shift->is('unless');        }
sub is_until         { return shift->is('until <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	16399	16516	
==>tart_line'},
        $starting_contentless ? ( 'contentless' => 1 ) : (),
      },
    );
  }

  my($para, $para_type) <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	2875	2977	
==>int | const | declare | lprint | static	# Maybe these...
		)$/x) {
		print "WARNING: $syms[CURR] is uni <==
3	/Users/nnunley/parrot/tools/dev/symlink.pl	44	142	
==>ee shadowing the Parrot source tree.  Nifty for
# having just one (read-only) copy of the sources b <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	927	1024	
==>ng items within a C<Parrot::Docs::Section>
subclass's C<new()> method.

=cut

sub new_item
{
    m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90822	91080	
==>c/ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91676	91934	
==>c/ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92530	92788	
==>c/ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1304	1421	
==>turn %{shift->{PROPS}};  }


#
# compile()
#

sub compile
{
  my $self     = shift;
  my $compiler = shift; # Required <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	63277	63373	
==>et.

=item C<Did not find opening tag: /%s/>

C<extract_tagged> did not find a suitable opening t <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	52280	52373	
==>string. In both
scalar and void contexts the original string has the first successfully
extrac <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	4401	4499	
==>canonical list, but merely a snapshot of what's in use.

=item C<dynpmc>

The class is a dynamic cl <==
3	/Users/nnunley/parrot/config/auto/msvc.pm	960	1067	
==>ss the program couldn't be run,
    # which should have been caught by the 'die' above.
    # Therefore, tes <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6918	7018	
==>_;
    my @ops;
    if ($self->{DEBUG}) {
	push @ops, (qq(print "PUSHED ).(@_>1?$_[1]:"mark").qq(\\n" <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6568	6668	
==>_;
    my @ops;
    if ($self->{DEBUG}) {
	push @ops, (qq(print "PUSHED ).(@_>1?$_[1]:"mark").qq(\\n" <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	8890	9011	
==>"code" : "T";
			} elsif ($data) {
			    if ($const) {
				$symbol = $TypeLong ? "const_init" : "R";
			    } elsif ($ini <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954267	954351	
==>\"src/ops/string.ops\"\n  {{\@1}} = Parrot_encoding_number_of_str(interpreter, {{\@2} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955058	955142	
==>\"src/ops/string.ops\"\n  {{\@1}} = Parrot_encoding_number_of_str(interpreter, {{\@2} <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	359	474	
==>_prog {
    my $self = shift;
    my ( $path_to_parrot, $path_to_language, $count ) = @_;
 
    
    my $test_prog_a <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	377	486	
==>_prog {
    my $self = shift;
    my ( $path_to_parrot, $path_to_language, $count ) = @_;

    my $test_prog_a <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	3176	3271	
==>zed string of the objects key/value pairs
suitable for being C<eval>ed.  The variable name of th <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958614	958888	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959415	959689	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960217	960491	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "" <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	10299	10448	
==>!);

    eval { require overload } || return;

    foreach my $thing (@_) {
        eval { 
            if( defined $$thing ) {
                if( my <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	493	592	
==>FEST to install a set of files.

=head2 Options

=over 4

=item C<buildprefix>

The build prefix. De <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	157	243	
==>ights Reserved.
# $Id: /parrot/config/gen/makefiles/dynclasses_pl.in 15833 2006-01-13T1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685314	685568	
==>E" => 769,
                  "ARGS" => [
                              "p",
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line 550 \"src/ops/pmc.ops\"\n      {{\@1}}->vta <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	4321	4482	
==>ntargeted label $dest->{label}";
                    }
                }
                last if $dest_stmt->{code}->{name} ne 'goto';
                $dest = $de <==
3	/Users/nnunley/parrot/Configure.pl	1490	1583	
==>e>

Tell Configure that the compiler supports C<inline>.

=item C<--cc=(compiler)>

Specify wh <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1615	1730	
==>set_result('no');
        return $self;
    }

    if ($conf->options->get('ask')) {
        $prog = prompt($prompt, <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1629	1744	
==>set_result('no');
        return $self;
    }

    if ($conf->options->get('ask')) {
        $prog = prompt($prompt, <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6683	6777	
==>o hold value we pop off the stack.
${PTEMP1} = ${STYPES}[${ITEMP2}]
${STEMP0} = "$"
${STEMP1} = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86838	87168	
==>w_callback",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87839	88169	
==>w_callback",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	759	864	
==>kers} = {};
    $self->{_temp_int_count} = 3;
    $self->{state} ||= Regex->global_state();
    my $FAIL = <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7374	7493	
==>sc = $db_desc ? " ($db_desc)" : "";
        return ("set <rx_tmp>, <rx_stack>",
                $self->pushop . " <rx_st <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1574	1690	
==>meth"};
        my $ok = &{"Test::More::$meth"}( @_ );
        # if( $ok ) { foreach my $meth ( $lang_f, $pasm_f, $by <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1490	1606	
==>meth"};
        my $ok = &{"Test::More::$meth"}( @_ );
        # if( $ok ) { foreach my $meth ( $lang_f, $pasm_f, $by <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093673	1093915	
==>preter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094476	1094718	
==>preter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	66335	66498	
==>"p"
                            ],
                  "BODY" => "#line 989 \"src/ops/core.ops\"\n  {{\@1}} = VTABLE_get_pmc_keyed_int(interpreter, interpreter->iglob <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11031	11122	
==>ID goto pre_call_HAS_RETURN_${CURIC}
if "${CURIC}" == "73" goto pre_call_HAS_RETURN_${CURIC} <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8217	8308	
==>ID goto pre_call_HAS_RETURN_${CURIC}
if "${CURIC}" == "73" goto pre_call_HAS_RETURN_${CURIC} <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5879	5970	
==>ID goto pre_call_HAS_RETURN_${CURIC}
if "${CURIC}" == "73" goto pre_call_HAS_RETURN_${CURIC} <==
3	/Users/nnunley/parrot/config/gen/config_h.pm	523	613	
==>w(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':gen';

$description = 'Gen <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	365	455	
==>w(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':gen';

$description = 'Gen <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	357	447	
==>w(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':gen';

$description = 'Gen <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9842	9955	
==>type, $reg) = @_;
    $reg = value($reg);
    return "$reg, ";
}


sub output_return {
    my ($self, $rettype, $r <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	824	921	
==>1 Francois Desarmenien, all rights reserved.
# (see the pod text in Parse::Yapp module for use an <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	800	896	
==>1 Francois Desarmenien, all rights reserved.
# (see the pod text in Parse::Yapp module for use an <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	995	1105	
==>e paths.

=cut

sub new
{
	my $self = ref $_[0] ? ref shift : shift;
	my $name = shift || die "No name.\n";
	my <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	1139	1245	
==>ocs/Item.pm'),
            $self->new_item('', 'lib/Parrot/Docs/Group.pm'),
            $self->new_item('', <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	2548	2642	
==>e => $self->name } });
  $_->sax($handler) foreach $self->content;
  $handler->end_element({ Na <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	8	98	
==>ght (C) 2004, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Docs/File.pm 20333 2006-06-21T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	410996	411086	
==>ine 552 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_send(interpreter, {{\@2}}, {{\@3}});\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411889	411979	
==>ine 552 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_send(interpreter, {{\@2}}, {{\@3}});\ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	15505	15616	
==>ve that started near line
			 $next->{line}. Did you forget the closing '>'?");
	    }
	}
	return 1;
}

sub endd <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2274	2375	
==>$_[0]->emit_par(-3) }
sub end_head3       { $_[0]->emit_par(-2) }
sub end_head4       { $_[0]->emit_pa <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1842	1943	
==>$_[0]->emit_par(-3) }
sub end_head3       { $_[0]->emit_par(-2) }
sub end_head4       { $_[0]->emit_pa <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	16890	17018	
==>FAULT => -3
	},
	{#State 55
		ACTIONS => {
			"?" => 23,
			'CHAR' => 4,
			"<" => 22,
			"+" => 24,
			'CODE' => 6,
			"(" => 10 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6653	6777	
==>lank'}) {
        DEBUG > 1 and print "Noting para ends with blank line at ${$self}{'line_count'}\n"; 
      }
      
      $ <==
3	/Users/nnunley/parrot/config/auto/aio.pm	84	178	
==>593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/aio.pm - Test for AIO

=head1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558018	558105	
==>SUB_FLAG_TAILCALL;\n  interpreter->current_object = object;\n  interpreter->current_meth <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559402	559489	
==>SUB_FLAG_TAILCALL;\n  interpreter->current_object = object;\n  interpreter->current_meth <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560774	560861	
==>SUB_FLAG_TAILCALL;\n  interpreter->current_object = object;\n  interpreter->current_meth <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2802	2922	
==>D_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $libli <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3111	3231	
==>D_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $libli <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2906	3026	
==>D_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$PATHQUOTE"} @$sources) .
        " $libli <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9348	9485	
==>ERR "**Entering Error recovery.\n";
#DBG>			++$dbgerror;
#DBG>		};

            ++$$nberror;

        };

			$$errstatus == 3	#The <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8928	9057	
==>ERR "**Entering Error recovery.\n";
#DBG>			++$dbgerror;
#DBG>		};

            ++$$nberror;

        };

			$$errstatus == 3	#The <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	1088	1214	
==>r}=1;
		}

	}
}

sub parse_shared {		# Keyword only
	feedme();
	$loop=0;
	while($type[CURR] !~ /COMP|COMM|STMT/) {
		die if $lo <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	446	549	
==>$msg
        if ( exists $parser->YYData->{verbose_error}
        and $parser->YYData->{verbose_error} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645863	645951	
==>@2}}]->whoami;\n    else\n\t\t{{\@1}} = Parrot_get_datatype_name(interpreter, {{\@2}});\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646760	646848	
==>@2}}]->whoami;\n    else\n\t\t{{\@1}} = Parrot_get_datatype_name(interpreter, {{\@2}});\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2668	2776	
==>_opcode asm ("esi") = cur_op;
    register char *   _reg_base   asm ("edi");
#else
    opcode_t *cur_opcode = <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3237	3345	
==>_opcode asm ("esi") = cur_op;
    register char *   _reg_base   asm ("edi");
#else
    opcode_t *cur_opcode = <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	5685	5787	
==>nt "Ok"
end

' Odd bug in static strings.  Expect "Ok"
dim O(1)
IF E$ <> "O" THEN 5030
print "Wrong!"
e <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1558	1678	
==>",
            "gt <rx_pos>, <rx_len>, $failLabel # past end of input?",
            'set <rx_match>["0";0], <rx_pos> # g <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	763	857	
==>new_item('', 'languages/t/harness'),
        $self->new_section('amber', 'amber.html', '', 'lan <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15943	16035	
==>n the Test::Harness
distribution.

= AUTHORS

Audrey Tang <autrijus@autrijus.org>

Benjamin S <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	58668	58797	
==>The rule named \"$rulename\" cannot be directly
                                       called through the Parse::RecDescent object <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	38078	38182	
==>lly, emit code to go to translate next instruction.
	$pir .= "    goto TRANS_LOOP\n\n";

	# Clean up meta <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	1268	1368	
==>be a * in front of the whole line to designate
a generated file:

    source_path <whitespace> *[pack <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9233	9355	
==>1);

  ok(2 + 2 == 4, '2 and 2 make 4');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List');

  ok(2 + 2 == 5, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957573	957665	
==>n    real_exception(interpreter, NULL, 1,\n\t\"encoding '%Ss' not found\", {{\@2}});\n  {{\@1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958478	958570	
==>n    real_exception(interpreter, NULL, 1,\n\t\"encoding '%Ss' not found\", {{\@2}});\n  {{\@1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469303	469401	
==>"#line 385 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_excepti <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470178	470276	
==>"#line 385 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_excepti <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	1890	2083	
==>_manifest();

exit 0;

###############################################################################

sub check_source {
    my ($file, $source) = @_;

    print "Checking $file..\n";
    trim <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957404	957542	
==>"
                            ],
                  "BODY" => "#line 581 \"src/ops/string.ops\"\n  INTVAL n = Parrot_encoding_number(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958309	958447	
==>"
                            ],
                  "BODY" => "#line 581 \"src/ops/string.ops\"\n  INTVAL n = Parrot_encoding_number(interpr <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38217	38319	
==>.'})
							if defined $::RD_TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace( <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14986	15084	
==>(flo)"
i=55
if i then print "This is true" else print "Oops (flo)"

' Passing arrays (expect 12)
fu <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	15123	15242	
==><"EOC";
	$n = new $DEFVAR $cmt
	$n = $nl $op $nr
EOC
    }
    push @stack, [-1, $n, $t];
}

sub binary_word
{
    my ($ <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	11703	11804	
==>n op_code: at first call to op_code() a hash
 * of short and full opcode names is created
 * hash func <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	306	400	
==>e function declarations in
the F<*.pmc> or F<*.c> files that correspond to the F<*.o> files pas <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5877	5988	
==>my $verbose = defined $self->get('verbose') && $self->get('verbose') == 2;

    print "Looking up trigger $trigg <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5321	5417	
==>my $verbose = defined $self->get('verbose') && $self->get('verbose') == 2;

    print "Looking up <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	20750	20846	
==>st::Builder does some extra diagnostics when the test
ends.  It also changes the exit code as des <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	21092	21262	
==>})/;
                my $x = $1;
                $b->{'code'} =~ /^(\w{2})/;
                hex($x) <=> hex($1)
            } @rules;
            $pir .= "B2_BRANCH_$_:\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240135	240227	
==>rc/ops/cmp.ops\"\n  INTVAL l = VTABLE_get_integer(interpreter, {{\@2}});\n  {{\@1}} = l < {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241083	241175	
==>rc/ops/cmp.ops\"\n  INTVAL l = VTABLE_get_integer(interpreter, {{\@2}});\n  {{\@1}} = l < {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	6940	7066	
==>name (args) {
        #
        # The args are a comma-separated list of items from this table of argument
        # types (eve <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5977	6095	
==>+;
		$ot1=false($ot1);
		$ot2=false($ot2);
		($a1,$a2,$ot1,$ot2)=($a2,$a1,$ot2,$ot1);
		return(<<CODE, $result);
	# IMP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666282	666567	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "elements",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	669	761	
==>($type) . ") is not!"  unless UNIVERSAL::isa($type, qw(Jako::Construct::Type));
  confess "Id <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	659	750	
==>($type) . ") is not!" unless UNIVERSAL::isa($type, qw(Jako::Construct::Type));
  confess "Id <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623818	623940	
==>t_pred);\n\t}\n        else\n            n = 2;\n\t{{+=n}};\n    }\n    /* no match redo plain opcode */\n    ((void**)cur_ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7140	7233	
==>print "Inval  (0): ", instr(4, bogus$, "t")
' instr() tests
s1$="Mixed case"
print ucase$(s1$) <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18869	18962	
==>print "Inval  (0): ", instr(4, bogus$, "t")
' instr() tests
s1$="Mixed case"
print ucase$(s1$) <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	3274	3440	
==>'inter_run'
                ], 
                'headers' => ['interp_guts']
            ),
            $self->c_pair_item('', 'exit'),
        ),
        $self->new_g <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7015	7117	
==>string (TODO: domain)
  my $label = shift; # Optional: string (TODO: domain)

  confess "No block!"  un <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20631	20727	
==>.first=101010
end sub
dim narf as struct
dim bar(1)
dim lot$(1)
dim poit(1) as struct
dim h$(1)
t <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1251	1344	
==>_text, and
_handle_element_end methods so that parser events are turned into method
calls. (Ot <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39439	39530	
==>arg"  => $rightarg,
		"expected"  => "<${type}op: ".$leftarg->describe." ".$op->describe." " <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1980	2093	
==>/interpreter.h> for a list of the core types.

=cut

sub core_type 
{
    my $self = shift;
    
    die ref($self <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321892	322155	
==>conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322663	322926	
==>conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323435	323698	
==>conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	35752	35881	
==>State 135
		DEFAULT => -85
	},
	{#State 136
		DEFAULT => -46
	},
	{#State 137
		ACTIONS => {
			"^" => 79
		},
		DEFAULT <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	4067	4155	
==>r};
	my $missing = $parser->{fulltextlen}-length(${$_[0]->{text}})-$_[0]->{prev}+1;
	subs <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15069	15156	
==>, and ditto for
C<$Name2character{$name}> and
C<chr($Name2character_number{$name})>.

=h <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1412	1511	
==>e {
    my ($self, $distance, $failLabel) = @_;
    $failLabel = $self->output_label_use($failLabel) <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1161	1260	
==>e {
    my ($self, $distance, $failLabel) = @_;
    $failLabel = $self->output_label_use($failLabel) <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	402	501	
==>e {
    my ($self, $distance, $failLabel) = @_;
    $failLabel = $self->output_label_use($failLabel) <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	12489	12611	
==>me specials
        elsif ($op->full_name eq 'if_p_ic') {
            $jit_func = "Parrot_jit_vtable_ifp_op";
            $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8788	8877	
==>string(interpreter, {{\@1}});\n    struct PackFile_FixupEntry *fe = PackFile_find_fixup_en <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9904	9993	
==>string(interpreter, {{\@1}});\n    struct PackFile_FixupEntry *fe = PackFile_find_fixup_en <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907107	907388	
==>,
                  "ARGS" => [
                              "s",
                              "p",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 262 \"src/ops/string.ops\"\n  {{\@1}} = {{\@ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7580	7693	
==>];
	#	feedme;  # Get the =
	#	#print "Going to expression with $syms[CURR]\n";
	#	EXPRESSION;		# Evaluate the expr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033516	1033691	
==>t_pmc_keyed_str(interpreter, lex_pad, lex_name, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034614	1034789	
==>t_pmc_keyed_str(interpreter, lex_pad, lex_name, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/tools/build/revision_c.pl	282	376	
==>/entries> and config rev number of last
Parrot configure run.

=head1 SEE ALSO

F<config/gen/re <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6762	6900	
==>oto match_end
          match_fail:
            print "failed"
          match_end:
        .end\n);

    return $pirCode;
}

sub _generate <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	9917	10024	
==>q tries to match its children at the same
        # starting point in the string -- think of alternation, fo <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	7561	7661	
==>t

sub has_plan {
    my $self = shift;

    return($self->{Expected_Tests}) if $self->{Expected_Test <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1491	1610	
==>est;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $r <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1371	1490	
==>est;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $r <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	2461	2556	
==>lding block upon which to write your own test libraries I<which can
work together>.

=head2 Cons <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256348	256450	
==>BODY" => "#line 740 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257256	257358	
==>BODY" => "#line 740 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258164	258266	
==>BODY" => "#line 740 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{\@3}} && ! { <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	12454	12582	
==>th.h
malloc      stdlib.h
mblen       stdlib.h
mbstowcs    stdlib.h
mbtowc      stdlib.h
memchr      string.h
memcmp      string. <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11944	12046	
==>->[0]} (reverse @args));
			$pir_args = ",$pir_args" if $pir_args;
			$extern=$sym;
			$optype=optype_o <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	12354	12456	
==>->[0]} (reverse @args));
			$pir_args = ",$pir_args" if $pir_args;
			$extern=$sym;
			$optype=optype_o <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	5288	5406	
==>preter) {
        return 1;
    }

    run_native = run_compiled;
    /* TODO make also a shared variant of PackFile_ne <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27711	27834	
==>f->decl($classname, $method, 1);
    }
    # class init decl
    if ($self->{flags}->{dynpmc}) {
        $hout .= 'PARROT_DY <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	1464	1573	
==>s
    $text =~ s[^/\*.*?\*/][]mxsg;

    # Strip # compiler directives (Thanks, Audrey!)
    $text =~ s[^#(\\\ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5012	5109	
==>1.0
NOT_${eqnum}: noop
CODE
		die "$a1,$a2,$result,$op,$ot1,$ot2\n";
	},
	'xor' => sub {
		my($a1, <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	13562	13654	
==>alue, regardless of the version of Perl you're using --
which differs from C<%Name2character> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621804	621895	
==>SUB_FLAG_TAILCALL;\n\t    --ctx->recursion_depth;\n\t    ctx->caller_ctx = caller_ctx->calle <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29640	29723	
==>SUB_FLAG_TAILCALL;\n\t--ctx->recursion_depth;\n\tctx->caller_ctx = caller_ctx->calle <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	1145	1264	
==>++;
    }
    print OUT <<"END_H";
    enum_class_core_max
};

/* &end_gen */
END_H

    close OUT;

    move_if_diff("$ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	49254	49370	
==>ck pos up.
        DEBUG > 4 and print " And that's more than we needed to close simple.\n";
        push @{ $lineage <==
3	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	357	451	
==>IPTION

Calls 'parrot_compiler.pbc'.

=head1 METHODS

=head2 new

Yet another constructor.

=cu <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	20538	20689	
==>p; jump straight to instruction.
                my $name = $_->{'name'};
                $name =~ s/\./_/g;
                $pir .= "    if cur_ic == 0 <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	9848	9957	
==>t->{reason} = '';
        $result->{type}   = '';
    }

    $self->{Test_Results}[$self->{Curr_Test}-1] = $re <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	34438	34537	
==>ICE_plus_0 {
    return Store_Slice(@_, 0);
}
sub STORE_SLICE_plus_1 {
    return Store_Slice(@_, 1) <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2580	2693	
==>alue) = @_;
    $reg = value($reg);
    return "set $reg, $value";
}

sub output_print {
    my ($self, $what) = @ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	2428	2540	
==>test files
        my $dir   = File::Spec->catfile( $options{language}, 't' );
        my @files = ( glob( File:: <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	205	301	
==>bols)

=head1 SYNOPSIS

    % perl tools/dev/parrot_api.pl [libfile]

=head1 DESCRIPTION

Display <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	7823	7918	
==>f Perl
containing this extension under the terms of the GNU or Artistic
licenses.

=head1 AUTHOR <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39905	39999	
==>&_op_load,
  'transcript-on'  => \&_op_transcript_on,
  'transcript-off' => \&_op_transcript_of <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	35438	35547	
==>TE_SLICE_plus_3 {
    return Del_Slice(@_, 3);
}
sub DELETE_FAST {
    my ($n, $c, $cmt) = @_;
    print <<EOC <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3429	3527	
==>SAX>


=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

T <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3081	3179	
==>SAX>


=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

T <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	676	785	
==>++;
    ($count, $expr) = _build_tree ($tokens, $count);
    push @{$temp->{children}}, $expr;
  }
  elsif ($t <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	893	1002	
==>++;
    ($count, $expr) = _build_tree ($tokens, $count);
    push @{$temp->{children}}, $expr;
  }
  elsif ($t <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1107	1216	
==>++;
    ($count, $expr) = _build_tree ($tokens, $count);
    push @{$temp->{children}}, $expr;
  }
  elsif ($t <==
3	/Users/nnunley/parrot/config/init/hints/cygwin.pm	1362	1475	
==>n.
    my $define = $conf->options->get('define');
    unless ($define) {
        $define = 'inet_aton';
    } els <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3382	3477	
==>e, $num, $op)>

Returns the C code for the specified op argument type (see
C<Parrot::OpTrans>) a <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3526	3621	
==>e, $num, $op)>

Returns the C code for the specified op argument type (see
C<Parrot::OpTrans>) a <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16480	16624	
==>upU($idf);
            if ( defined $defn ) {
                $result = new_tmp( $parser, 'pmc' );
                push @opcodes, new LocalDir <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	16952	17068	
==>tack, [-1, $l->[1], $l->[2]];
}
sub inplace_word
{
    my ($op, $cmt) = @_;
    my $r = pop @stack;
    my $l = pop @ <==
3	/Users/nnunley/parrot/config/auto/m4.pm	753	873	
==>) {
        ($osname, $cpuarch) = ($cpuarch, "");
    }

    my $has_gnu_m4;

    # Calling 'm4 --version' hangs under Fr <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8758	8849	
==>label_defined($syms[CURR]);
		push @{$code{$seg}->{code}}, "$labels{$syms[CURR]}:   # For us <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	220727	220816	
==>> "#line 477 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, M <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367834	367922	
==>{{\@1}} = PIO_reads(interpreter, PIO_STDIN(interpreter), (size_t){{\@2}});\n  {{+=3}};\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368626	368714	
==>{{\@1}} = PIO_reads(interpreter, PIO_STDIN(interpreter), (size_t){{\@2}});\n  {{+=3}};\n" <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	9205	9350	
==>atch $char at %<rx_pos>\n"),
                      aop('goto', [ $old_lastback ]));
    }
    push @ops, (
                     aop('match', [ $ch <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	32035	32163	
==>ACTIONS => {
			"-" => 24,
			'TRUE' => 25,
			'NOT' => 27,
			'STRING' => 29,
			'NIL' => 30,
			'FALSE' => 33,
			'FUNCT <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	1614	1721	
==>=$th{$stype};
			} else {
				unless (exists $usertypes{$stype}) {
					die "User type $stype not found at s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1286	1387	
==>reg = new $pmc_type");
    $compiler->emit("  $pmc_reg = $ident");
    $compiler->emit("  global \"$id <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1280	1381	
==>reg = new $pmc_type");
    $compiler->emit("  $pmc_reg = $ident");
    $compiler->emit("  global \"$id <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492853	493144	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493614	493905	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499588	499879	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	3005	3104	
==>ment({ Name => 'block' });
    $handler->start_element({ Name => 'block', Attributes => { kind => 't <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3679	3778	
==>ment({ Name => 'block' });
    $handler->start_element({ Name => 'block', Attributes => { kind => 't <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3769	3868	
==>ment({ Name => 'block' });
    $handler->start_element({ Name => 'block', Attributes => { kind => 't <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3863	3971	
==>/) {
      $self->_add_inst ('', 'clone',[$to,$from]);
    } elsif ($from =~ /I/) {
      $self->_add_inst (' <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6824	6919	
==>ght  2-9, 1-5, 6-0
t$="1234567890"
print mid$(t$, 2, 8)
print left$(t$, 5)
print right$(t$, 5)
' <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18553	18648	
==>ght  2-9, 1-5, 6-0
t$="1234567890"
print mid$(t$, 2, 8)
print left$(t$, 5)
print right$(t$, 5)
' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995465	995694	
==>,
                              "s",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_fin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996603	996832	
==>,
                              "s",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_fin <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	452	554	
==>amic op libraries.

=cut

use strict;

use File::Copy qw(copy);

# qq[] isn't guaranteed to work, but i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540490	540590	
==>{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541742	541842	
==>{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542994	543094	
==>{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a; {{+=4}}; }\n \n while( !((a | b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877682	878013	
==>=> ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 995,
                  "ARGS" = <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6527	6654	
==>other pass by setting Exchange to TRUE.
   FOR I = 2 TO Max
      IF A$(I-1) > A$(I) THEN
         Exchange = TRUE
         B$=A <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16180	16307	
==>other pass by setting Exchange to TRUE.
   FOR I = 2 TO Max
      IF A$(I-1) > A$(I) THEN
         Exchange = TRUE
         B$=A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961142	961445	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962104	962407	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963066	963369	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	5900	6065	
==>s', 
            '',
            $self->c_pair_item('', 'extend'),
        ),
        $self->new_group(
            'JIT', 
            '',
            $self->c_item( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87413	87500	
==>5 \"src/ops/core.ops\"\n  {{\@1}} = Parrot_make_cb(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88415	88502	
==>5 \"src/ops/core.ops\"\n  {{\@1}} = Parrot_make_cb(interpreter, {{\@2}}, {{\@3}}, {{\@4} <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	627	766	
==>{ # JMG
            my $t = $0; $t =~ s/\.t$/_$count\.$_/; $t
        } ( qw(urm pasm pbc out) ); # JMG

        # STDERR is written into sa <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1294	1393	
==>w $pmc_type");
    $compiler->emit("  $pmc_reg = $ident");
    $compiler->emit("  global \"$ident_na <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1288	1387	
==>w $pmc_type");
    $compiler->emit("  $pmc_reg = $ident");
    $compiler->emit("  global \"$ident_na <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	20419	20530	
==>sub use_numbers {
    my($self, $use_nums) = @_;

    if( defined $use_nums ) {
        $self->{Use_Nums} = $use <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Transcode.pm	18	124	
==>e Pod::Simple::Transcode;

BEGIN {
  if(defined &DEBUG) {;} # Okay
  elsif( defined &Pod::Simple::DEBUG ) { <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	156	251	
==>ot::Docs::Section::C - C source code documentation section

=head1 SYNOPSIS

    use Parrot::Doc <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	359	461	
==>Carp;

use base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $left, $r <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	350	452	
==>Carp;

use base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $left, $r <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	10170	10282	
==>rser->{deferrable}
			? '		splice @{$thisparser->{deferred}}, $def_at;
			  '
			: '') . '

		$_[1] = $text;	# NO <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2103	2209	
==>retval);

	_CheckParams( \@params, \%params, \@_, $self );

	if($$self{DEBUG}) {
		_DBLoad();
		$retv <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2026	2126	
==>retval);

	_CheckParams( \@params, \%params, \@_, $self );

	if($$self{DEBUG}) {
		_DBLoad();
		$retv <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7251	7340	
==>e_1('P');
  $self->_add_inst("ITER_$label", 'set', [$temp,$list.'[0]']);
  $self->_add_ins <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	69004	69131	
==>=> 91,
                  "ARGS" => [],
                  "BODY" => "#line 1071 \"src/ops/core.ops\"\n  Parrot_block_GC(interpret <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614860	614955	
==>{{^+4}};\n    INTVAL offset;\n    offset = Parrot_class_offset(interpreter, {{\@2}}, {{\@3}});\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616011	616106	
==>{{^+4}};\n    INTVAL offset;\n    offset = Parrot_class_offset(interpreter, {{\@2}}, {{\@3}});\n <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33616	33723	
==>def,
		"matchrule" => $_[5],
		"argcode"   => $_[6] || undef,
	}, $class;
}


sub code($$$$)
{
	my ($self, $ <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	143	240	
==>=head1 NAME

examples/mops/mops.c - Calculate M ops/s

=head1 SYNOPSIS

    % perl examples/mops/m <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	139	236	
==>=head1 NAME

examples/mops/mops.c - Calculate M ops/s

=head1 SYNOPSIS

    % perl examples/mops/m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413747	414081	
==>tion",
                  "CODE" => 477,
                  "ARGS" => [
                              "i",
                              "p",
                              "ic",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	3392	3515	
==>n error
        if ($@ || !exists $hugeintval{hugeintval}) {
            $conf->data->set(int8_t => undef);
            next <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5456	5552	
==>cast(${bs}ops_addr);
    }
END_C
}

=item C<run_core_finish($base)>

Returns the C code following <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9599	9712	
==>ecified text token. URLs which are not in link tags
are linked here for convenience.

=cut

sub process_text_token <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	20716	20828	
==>";
      DEBUG > 1 and $dont_ignore and print " Making note to treat contents as ",
        ($to_resolve ? 'verba <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	373	471	
==>enerate case is having an unnamed library with just
one PMC, which is the case used by the Parrot c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198955	199191	
==>> [
                              "i",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 366 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363502	363597	
==>intf_c(interpreter, \"%f\", (double){{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364405	364500	
==>intf_c(interpreter, \"%f\", (double){{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  e <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11119	11205	
==>RIC}
goto pre_call_NO_RETURN_${CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${ST <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8305	8391	
==>RIC}
goto pre_call_NO_RETURN_${CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${ST <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5967	6053	
==>RIC}
goto pre_call_NO_RETURN_${CURIC}
pre_call_HAS_RETURN_${CURIC}:
${DEST0} = "$"
${ST <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	2008	2112	
==>y ($parser) = @_;

    my $lex_num = shift @{ $parser->YYData->{scopef} };
    $parser->YYData->{lex_n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79513	79610	
==>{\@1}} = pmc_new(interpreter, enum_class_UnManagedStruct);\n      PMC_data({{\@1}}) = p;\n  }\n  { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81034	81131	
==>{\@1}} = pmc_new(interpreter, enum_class_UnManagedStruct);\n      PMC_data({{\@1}}) = p;\n  }\n  { <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	14026	14128	
==>Returns the class structure from I<$file> for a .dump file.

=cut

sub dump_1_pmc {
    my $file = shif <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	870	970	
==>is will also trigger any hints-file
    # callbacks that depend on knowing whether or not we're using <==
3	/Users/nnunley/parrot/config/auto/msvc.pm	806	906	
==>is will also trigger any hints-file
    # callbacks that depend on knowing whether or not we're using <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037757	1038032	
==>L, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038538	1038813	
==>L, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
3	/Users/nnunley/parrot/languages/m4/tools/scrutinize.pl	67	163	
==>tic

=head1 DESCRIPTION

This is not below 't', in order to not interfere with regression testing <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15646	15774	
==>des, new AssignOp( $parser,
        'result' => $result,
        'arg1'   => $nil->[0],
    );
    my $argv = new defn( 'vara <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	17266	17389	
==>le in the generated file

sub interpolate {
    my $code = shift;
    my $op1  = shift;
    my $op2  = shift;
    $code =~ s <==
3	/Users/nnunley/parrot/config/init/hints/vms.pm	450	559	
==>finition

        *Parrot::Configure::Step::cc_build = sub {
            my ($cc, $ccflags) = $conf->data->get <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3212	3306	
==>rely internal to Parrot, try using C<const> in function
prototypes as often as possible to catc <==
3	/Users/nnunley/parrot/Configure.pl	3779	3872	
==>icuheaders='/home/lt/icu/'

=back

Other Options

=over

=item C<--maintainer>

Use this optio <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	539	632	
==>($block, 'Jako::Construct::Block');
  confess("Ident (" . ref($ident) . ") is not!") unless UN <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121925	122024	
==>BODY" => "#line 248 \"src/ops/bit.ops\"\n  /*\n   * lvalue casts are evil, but this one isn't evil e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122837	122936	
==>BODY" => "#line 248 \"src/ops/bit.ops\"\n  /*\n   * lvalue casts are evil, but this one isn't evil e <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	769	865	
==><&DATA") || die;
}
shift(@ARGV);

tokenize();
#push(@ARGV);
parse(@ARGV);

open(CODE, ">TARG_test <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2563	2671	
==>self->op;
  my $right = $self->right;

  if (defined $cond) {
    $handler->start_element({ Name => 'cond', A <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3237	3345	
==>self->op;
  my $right = $self->right;

  if (defined $cond) {
    $handler->start_element({ Name => 'cond', A <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3327	3435	
==>self->op;
  my $right = $self->right;

  if (defined $cond) {
    $handler->start_element({ Name => 'cond', A <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1596	1699	
==>lf->op;
  my $right = $self->right;

  my $dest_sym = $block->find_symbol($dest->value);
  $self->SYNTAX <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1554	1657	
==>lf->op;
  my $right = $self->right;

  my $dest_sym = $block->find_symbol($dest->value);
  $self->SYNTAX <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1476	1579	
==>lf->op;
  my $right = $self->right;

  my $dest_sym = $block->find_symbol($dest->value);
  $self->SYNTAX <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	2836	2959	
==>path},
    'list'         => \$cfg{list_only},
    'time'         => \$cfg{use_times},
    'help|?'       => \$cfg{display_h <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	1232	1335	
==>opt{verbose};
    open my $fh, $direction, $filename or die "$action $filename: $!\n";
    return $fh;
} <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	22336	22439	
==>opt{verbose};
    open my $fh, $direction, $filename or die "$action $filename: $!\n";
    return $fh;
} <==
3	/Users/nnunley/parrot/config/inter/ops.pm	748	873	
==>le\.ops/
            } glob "src/ops/*.ops"
    );

    my $ops = join ' ', grep { !/obscure\.ops/ } @ops;

    $ops = $conf-> <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8569	8673	
==>ailed tests of $Test::num_of_tests_run");
    }
    if ($Test::num_of_tests_badpass) {
        $*ERR.say( <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	14531	14671	
==>ib.h
tan         math.h
tanf        math.h
tanh        math.h
tanhf       math.h
tanhl       math.h
tanl        math.h
tgamma      math.h
tga <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2544	2627	
==>.ps>,
F<examples/mops/mops.py>,
F<examples/mops/mops.rb>,
F<examples/mops/mops.schem <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	2544	2627	
==>.ps>,
F<examples/mops/mops.py>,
F<examples/mops/mops.rb>,
F<examples/mops/mops.schem <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	2070	2200	
==>$node->{value} =~
                                 /^[-]?\.(\d+([-+]?[eE]\d+)?)/;
    $node->{type} ||= 'EXPRESSION';
  }
}

sub pa <==
3	/Users/nnunley/parrot/config/inter/lex.pm	471	581	
==>k_progs );

$util        = 'lex';
$description = "Determining whether $util is installed";
$prompt      = "Do y <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	3240	3339	
==>em B<create>

  my $Test = Test::Builder->create;

Ok, so there can be more than one Test::Builder o <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	37023	37116	
==>Schwern E<lt>schwern@pobox.comE<gt>.

This program is free software; you can redistribute it a <==
3	/Users/nnunley/parrot/lib/Test/More.pm	37432	37525	
==>Schwern E<lt>schwern@pobox.comE<gt>.

This program is free software; you can redistribute it a <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	6392	6485	
==>Schwern E<lt>schwern@pobox.comE<gt>.

This program is free software; you can redistribute it a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044450	1044721	
==>",
                  "CODE" => 1167,
                  "ARGS" => [
                              "k",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 130 \"src/ops/var.ops\"\n    Parrot <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	23178	23308	
==>op @stack;
	return;
    }
    my $func;
    my $nfix =  ($n & 0xff);
    my $nk =  2*($n >> 8);
    my $name = $stack[-1 - $nfix-$n <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	27692	27810	
==>em-bullet> or </item-text> ??

      my $content = join ' ', splice @$para, 2;
      if($content =~ m/\S/) {
        $s <==
3	/Users/nnunley/parrot/lib/Test/More.pm	28211	28325	
==>ectly.

=cut

#'#
sub eq_array {
    local @Data_Stack;
    _deep_check(@_);
}

sub _eq_array  {
    my($a1, $a2) = <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	6538	6647	
==>\n/sg; # excess blank lines
    s/^\s*//s; s/\s*$/\n/s; # trim (and ends with a newline)
    s/^ {0,1}(\S)/  $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123872	124170	
==>= (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124746	125044	
==>= (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125620	125918	
==>= (INTVAL)((UINTVAL){{\@2}} >> {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	661	875	
==>) }

$I2 = 0;                      # set    I2, 0
$I3 = 1;                      # set    I3, 1
$I4 = 100000000;              # set    I4, 100000000
                              #
print "Iterations:    $I4\n"; # pri <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172283	172371	
==>!= string_equal(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173261	173349	
==>!= string_equal(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{ <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	5181	5301	
==>es/pugs/config/makefiles/root.in' => 'languages/pugs/Makefile',
        commentType                   => '#',
        rep <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4792	4912	
==>y $self = shift;

    return $self->gen_goto($self->expr_address(@_));
}

=item C<goto_offset($offset)>

Transforms the C <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2226	2322	
==>key",
  'kic' => "cur_opcode[%ld]"
);

=item C<access_arg($type, $value, $op)>

Returns the C cod <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2467	2670	
==>\\t//
                and $str .= "\t",      # horizontal tab
                last;
            s/^\\v//
                and $str .= "\x0b",    # vertical tab
                last;
            s/^\\ <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3981	4184	
==>\\t//
                and $str .= "\t",      # horizontal tab
                last;
            s/^\\v//
                and $str .= "\x0b",    # vertical tab
                last;
            s/^\\ <==
3	/Users/nnunley/parrot/config/gen/PodText.pm	95	186	
==>06-01-06T01:43:24.870411Z particle  $

=head1 NAME

config/gen/PodText.pm - generate plain t <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	9063	9197	
==>e
    if $I1 == -2 goto neg_two
    if $I1 == -3 goto neg_three
    if $I1 == -4 goto neg_four
    if $I1 == -5 goto neg_five
    if $I <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2081	2199	
==>e < 0) {
        $comment = "pos -= ".(-$distance);
    }

    return ("add <rx_pos>, $distance # $comment");
}

sub ou <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	5672	5765	
==>ow many tests to skip,
just like in Test::More.

=item C<run_command($command, %options)>

Run <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	577	670	
==>ages.  Right
now it parameterizes the two parameters that at least three language
implementati <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	25506	25670	
==>~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
    # ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~

    if($para_type eq '=pod') { <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	5570	5668	
==>_pod;
	
	return $self->{CONTAINS_POD};
}

=item C<num_pod_errors()>

Tells you the number of POD er <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	38676	38764	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      if($para_type eq ' <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	7611	7767	
==>/\.dump/;

    my $vtd = open_file( ">", $dump );

    my %vtable = (
        flags   => {},
        pre     => '',
        post    => '',
    );
    my %met <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	6112	6219	
==>ate.
##
sub update_tests {
    print "Updating tests from CVS\n";
    system "(cd $DIR && cvs -Q up *.test)" <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	10172	10277	
==>pe" content="text/html; charset=utf-8" />

  <style type="text/css">
    body {
      background-color: wh <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9663	9760	
==>token(${ASSEMBLY}, ${ARG0})

# If it's a call to instantiate, need to knock off first arg.
if "${C <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7177	7274	
==>token(${ASSEMBLY}, ${ARG0})

# If it's a call to instantiate, need to knock off first arg.
if "${C <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37539	37632	
==>f pop_count != 0 goto INS_TRANS_CP_LOOP_$name
pop_count = elements dtypes
if pop_count == 0 go <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656518	656844	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657442	657768	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658360	658686	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549741	549963	
==>633,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 56 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC * <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14583	14723	
==>"
                            ],
                  "BODY" => "#line 247 \"src/ops/core.ops\"\n  opcode_t * const loc = INTVAL2PTR(opcode_t *, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	15270	15410	
==>"
                            ],
                  "BODY" => "#line 247 \"src/ops/core.ops\"\n  opcode_t * const loc = INTVAL2PTR(opcode_t *, <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	12808	12938	
==>> 12,
			'regex1' => 19
		}
	},
	{#State 10
		ACTIONS => {
			"?" => 20
		},
		DEFAULT => -21,
		GOTOS => {
			'@1-1' => 21
		}
	}, <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	11417	11511	
==>on't try anything
too funky.

- `cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1884	2002	
==>def;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  if ( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2489	2607	
==>def;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  if ( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3163	3281	
==>def;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  if ( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	357	465	
==>ako::Compiler;

use base qw(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my $self = shift;
  m <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	377	485	
==>ako::Compiler;

use base qw(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my $self = shift;
  m <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	357	465	
==>ako::Compiler;

use base qw(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my $self = shift;
  m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837028	837236	
==>=> "inline",
                  "CODE" => 948,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 234 \"src/ops/stack.ops\"\n  (voi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2558	2659	
==>s)!", ref $args[$i])
      unless defined $actual_arg_type;

    if ($formal_arg_type->name ne $actual <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2258	2359	
==>s)!", ref $args[$i])
      unless defined $actual_arg_type;

    if ($formal_arg_type->name ne $actual <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	11658	11770	
==>r]*)((?:\r?\n)?)/g
    ) {
      #print(">> $1\n"),
      $self->parse_lines($1)
       if length($1) or length($ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	293	388	
==>t;
eval "use warnings";

package Jako::Construct::Block::Conditional::Unless;

use Carp;

use ba <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	3458	3552	
==>le, but otherwise you probably want C<new>.

B<NOTE>: the implementation is not complete.  C<le <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	652712	652910	
==>s( {
                  "JUMP" => "PARROT_JUMP_RESTART",
                  "NAME" => "find_method",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653872	654070	
==>s( {
                  "JUMP" => "PARROT_JUMP_RESTART",
                  "NAME" => "find_method",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	16788	16879	
==>ss (@{$self->{items}})
	{
		Parse::RecDescent::_error(
			"Incorrect <return:...> specificat <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9903	10016	
==>m into ${PARAMS}. Note that they come
# off the stack last to first, but need to be first to last in ${PARAMS}.
${ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7417	7530	
==>m into ${PARAMS}. Note that they come
# off the stack last to first, but need to be first to last in ${PARAMS}.
${ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6381	6494	
==>m into ${PARAMS}. Note that they come
# off the stack last to first, but need to be first to last in ${PARAMS}.
${ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	13546	13642	
==>%s
 using %s v%s
 under Perl v%s at %s GMT}
{\author [see doc]}{\company [see doc]}{\operator [se <==
3	/Users/nnunley/parrot/config/init/hints.pm	149	243	
==>it/hints.pm - Platform Hints

=head1 DESCRIPTION

Loads the platform and local hints files, mod <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	14526	14644	
==>alid,$patvalid) )
		{
			$patvalid = 0;
			next;
		}


		# NEED TO COVER MANY MORE CASES HERE!!!
		if ($$textref =~ m#\ <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	325	421	
==>/run_indent.pl - Check indentation in C files

=head1 SYNOPSIS

    % perl tools/dev/run_indent.p <==
3	/Users/nnunley/parrot/lib/Test/More.pm	31322	31448	
==>p !_type($_) eq 'HASH', $a1, $a2 ) {
        warn "eq_hash passed a non-hash ref";
        return 0;
    }

    return 1 if $a1 <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	4483	4603	
==>r .= "goto FAIL\n";
    }

    # Add failure.
    $pir .= <<'PIR'
FAIL:
    $P0 = new .Exception
    $P0["_message"] = "N <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	22182	22339	
==>lation code relating to a rule.
# #############################################
sub generate_rule_code($$$) {
	my $srm = shift;
	my $rule = shift;
	my $mv = s <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24806	24900	
==>) unless @match;
		return _succeed wantarray, $textref,
				$match[2], $match[3]+$match[5]+$mat <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7639	7731	
==>) unless @match;
	return _succeed wantarray, $textref,
			$match[2], $match[3]+$match[5]+$mat <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6652	6811	
==>)

            unless match goto match_fail
          match_success:
            print "matched"
            goto match_end
          match_fail:
            pr <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7670	7828	
==>)
            unless match goto match_fail
          match_success:
            print "matched"
            goto match_end
          match_fail:
            pr <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41165	41308	
==>190
		}
	},
	{#State 175
		ACTIONS => {
			"=" => 191
		}
	},
	{#State 176
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74, <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	2762	2874	
==>rt_token($token);
    }
    elsif ($tagname eq 'item-text' or $tagname =~ m/^head\d$/s) 
    {
        $self->pro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824471	824558	
==>>entry_type != STACK_ENTRY_STRING) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825542	825629	
==>>entry_type != STACK_ENTRY_STRING) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wro <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1221	1349	
==>heck for a few bad conditions.
  #
  # NOTE: These are compiler internal consistency checks. They really should not be
  # trigge <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1166	1294	
==>heck for a few bad conditions.
  #
  # NOTE: These are compiler internal consistency checks. They really should not be
  # trigge <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1069	1197	
==>heck for a few bad conditions.
  #
  # NOTE: These are compiler internal consistency checks. They really should not be
  # trigge <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33335	33461	
==>n' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 118
		ACTIONS => {
			"-" => <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	2700	2815	
==>ude;
    my ($file, $function, $variable);
    while (<F>) {
        
        if (/--------------------------------- <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	9474	9567	
==>suffix} = $num_ops;

/*
** Op Function Table:
*/

static op_func${suffix}_t ${op_func}\[$num_e <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/EditorPlugins.pm	425	534	
==>e Parrot::Docs::Section::EditorPlugins;

use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=it <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	631	728	
==>ND-LINE OPTIONS

=over 4

=item C<--verbose>

Verbose status along the way.

=back

=head1 COMMAND <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1135	1227	
==>self->left->value;
  my $right = $self->right->compile($compiler);

  if ($self->block->scope <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	174004	174253	
==>08,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 226 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	8002	8131	
==>es{$cur_f} = 1;
		    # }
		}
		elsif (/# flags\s+(\S*)/) {
		    my $f = eval($1);
		    $func_info{$cur_f}{flags} = $f;
		    pr <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	33479	33584	
==>g caar/cadr/cdar/whatever
  'null?'    => \&_op_null_p,
  'list?'    => \&_op_list_p,
  'list'     => \&_o <==
3	/Users/nnunley/parrot/config/gen/config_pm.pm	827	931	
==>onfig_pm.in: $!";
    open(OUT, ">lib/Parrot/Config.pm")             or die "Can't open lib/Parrot/Config <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623368	623465	
==>= NULL;\n    dest_pc = caller_ctx->current_results;\n    if (dest_pc) {\n\tdest_pred = (void**) de <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	10212	10307	
==>->[0] } @expr);
	return(@expr);
}
sub pushthing {
	my($code, $optype, $sym, $type, $oldresult)=@ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31291	31433	
==>odes2 = ();
    my @opcodes3 = ();
    my @params1  = ();
    my @return1  = ();
    my $var1     = ${$vars}[0];
    my $nil      = BuildL <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	41542	41640	
==>, $content, $replacer, $charnum);
  my $start_line = $stack[0][1]{'start_line'};

  # A recursive a <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	3983	4076	
==>=item C<vtbl_macros($vtable)>

Returns the C C<#define> definitions for the elements in the re <==
3	/Users/nnunley/parrot/config/inter/charset.pm	1683	1801	
==>rset            => $charset_list,
        TEMP_charset_o     => $TEMP_charset_o,
        TEMP_charset_build => $TEMP_ch <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	2167	2276	
==>ight have changed for the test
        $conf->data->set('libs',      $libs);
        $conf->data->set('ccflags <==
3	/Users/nnunley/parrot/config/auto/readline.pm	1967	2076	
==>ight have changed for the test
        $conf->data->set('libs',      $libs);
        $conf->data->set('ccflags <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722451	722683	
==>er, io, s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723480	723712	
==>er, io, s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724524	724756	
==>er, io, s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353707	353900	
==>O_putps(interpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354452	354645	
==>O_putps(interpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355219	355412	
==>O_putps(interpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583066	583236	
==>sc",
                              "sc"
                            ],
                  "BODY" => "#line 289 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(in <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4523	4635	
==>elf->{name};
        delete $self->{args};
        return $self->op('nop', [], %$self);
    } elsif (@{ $self->{a <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5660	5772	
==>elf->{name};
        delete $self->{args};
        return $self->op('nop', [], %$self);
    } elsif (@{ $self->{a <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	20317	20423	
==>ret_reg  = return_data;
    REG_INT(0) = $stack_returns;
    REG_INT(1) = $int_returns;
    REG_INT(2) = $s <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34146	34243	
==>cribe.'}' ) . ';
		$Parse::RecDescent::lastunexpected = $text;
		' . ($self->{"lookahead"} ? '$_sa <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37618	37715	
==>cribe.'}' ) . ';
		$Parse::RecDescent::lastunexpected = $text;
		' . ($self->{"lookahead"} ? '$_sa <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1573	1697	
==>}; }
sub cond  { return shift->{COND};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1709	1833	
==>}; }
sub cond  { return shift->{COND};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1352	1476	
==>}; }
sub cond  { return shift->{COND};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	34158	34287	
==>} < $self->{Expected_Tests} ) {
            my $s = $self->{Expected_Tests} == 1 ? '' : 's';
            $self->diag(<<"FAIL");
Lo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2707	2809	
==>ement({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
  }

  $handler->start_element <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2584	2686	
==>ement({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
  }

  $handler->start_element <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205547	205641	
==>ispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_CMP) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4} <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	850	943	
==>sr/lib'.

=item C<includedir>

The header directory. Defaults to '/usr/include'.

=back

=head <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	1079	1172	
==>sr/lib'.

=item C<includedir>

The header directory. Defaults to '/usr/include'.

=back

=head <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7902	7997	
==>${STEMP0} = concat ${STEMP1}

# Put it in the parameter register list.
${PARAMS}[${ITEMP0}] = ${ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6884	6979	
==>${STEMP0} = concat ${STEMP1}

# Put it in the parameter register list.
${PARAMS}[${ITEMP0}] = ${ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	40247	40388	
==>>_verbatim_format($para);
        } else {
          push @$para, join "\n", splice(@$para, 2) if @$para > 3;
          $para->[-1] =~ s/\n+$/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421854	422122	
==>_bind(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422747	423015	
==>_bind(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5747	5896	
==>st = 1;
        foreach ( @{ $op->{arg2} } ) {
            print {$FH} ", " unless ($first);
            print {$FH} "$_->{symbol}";
            i <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	11442	11558	
==>use ( reverse @clauses ) {
    $transnode = { children => [ { value => 'if' },
				 _get_arg($clause,0),
				 { child <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826380	826472	
==>" => "#line 146 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(inter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827450	827542	
==>" => "#line 146 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(inter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	487256	487529	
==>l({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	487999	488272	
==>l({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29737	29832	
==>od->{meth};
    my $n = $self->{has_method}{$meth};
    return $self->SUPER::body($self->{method <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2400	2503	
==>->kind } });
  }

  if ($self->op) {
    $handler->start_element({ Name => 'block', Attributes => { kind <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2277	2380	
==>->kind } });
  }

  if ($self->op) {
    $handler->start_element({ Name => 'block', Attributes => { kind <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6095	6191	
==>T0} = concat ${STEMP0}
${DEST0} = concat "0"
pre_call_NO_RETURN_${CURIC}:

# If it's a call to in <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9302	9406	
==>!-- generated by %s v%s, using %s v%s, under Perl v%s at %s GMT -->\n",
    # None of the following thing <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64473	64676	
==>S" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 981 \"src/ops/core.ops\"\n  Interp * const new_interp = (Inte <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20633	20715	
==>mple::PullParserStartToken>,
L<Pod::Simple::PullParserTextToken>, and
L<Pod::Simple <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2694	2776	
==>mple::PullParserStartToken>,
L<Pod::Simple::PullParserTextToken>, and
L<Pod::Simple <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2921	3015	
==>_address($address)>

Returns the C code for C<restart ADDRESS($address)>.

=cut

sub restart_ad <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3790	3884	
==>_address($address)>

Returns the C code for C<restart ADDRESS($address)>.

=cut

sub restart_ad <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3520	3614	
==>_address($address)>

Returns the C code for C<restart ADDRESS($address)>.

=cut

sub restart_ad <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29385	29495	
==>ing terminal: [' . $self->describe
					  . ']},
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $ru <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31482	31592	
==>ing terminal: [' . $self->describe
					  . ']},
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $ru <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27282	27385	
==>ing terminal: [' . $self->describe
					  . ']}, Parse::RecDescent::_tracefirst($text),
					  q{' . $ru <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4511	4623	
==>1
for j = 0 to 1
print i; j;
if i and j then a$="True  " else a$="False "
if i or  j then b$="True  " else b$="Fa <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17582	17694	
==>1
for j = 0 to 1
print i; j;
if i and j then a$="True  " else a$="False "
if i or  j then b$="True  " else b$="Fa <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	4696	4801	
==>chability analysis to find
    # unreachable basic blocks. We'll store a 'reachable' flag in the
    # 3rd <==
3	/Users/nnunley/parrot/tools/util/pirtidy.pl	247	351	
==>.';

# loop over all the files specified on the command line
foreach my $file (@ARGV) {
    warn "Process <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	17162	17255	
==>"} if ($type eq "S");

	push @{$code{$seg}->{code}}, "WHILE_$whilecounter:\n";
	push @{$code{$ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	309	401	
==>s";

package Jako::Construct::Block::Conditional::Else;

use Carp;

use base qw(Jako::Constru <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21921	22060	
==>)->is_unless) {
        $cond = $self->forth->text;

        $self->require_open_paren;

        $left  = Jako::Construct::Expression::Value <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22854	22993	
==>)->is_unless) {
        $cond = $self->forth->text;

        $self->require_open_paren;

        $left  = Jako::Construct::Expression::Value <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24501	24639	
==>)->is_unless) {
        $cond = $self->forth->text;

        $self->require_open_paren;
        $left  = Jako::Construct::Expression::Value <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	6171	6288	
==>rser->YYData->{INPUT} = readline $parser->YYData->{fh}
            or return ( q{}, undef );

        for ( $parser <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28848	28947	
==>trcount} . '__'; }

sub issubrule { undef }
sub isterminal { 1 }
sub describe ($) { shift->{'descrip <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30928	31027	
==>trcount} . '__'; }

sub issubrule { undef }
sub isterminal { 1 }
sub describe ($) { shift->{'descrip <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	21554	21685	
==>reach @exports;
        close $fh;
    }

    # Generate .def file for groups.
    for my $group (keys %groups) {
        # Get file <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	8972	9072	
==>}->[1]->minlen() }
sub maxlen { my ($op) = @_; $op->{args}->[1]->maxlen() }
sub startset { my ($op) = <==
3	/Users/nnunley/parrot/config/auto/m4.pm	147	243	
==>- Check whether GNU m4 works

=head1 DESCRIPTION

Determines whether GNU m4 exists on the system. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104037	1104121	
==>}\n\tif (type <= 0)\n\t\treal_exception(interpreter, NULL, NO_CLASS,\n\t\t\t\t\"Class <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105252	1105336	
==>}\n\tif (type <= 0)\n\t\treal_exception(interpreter, NULL, NO_CLASS,\n\t\t\t\t\"Class <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1262	1363	
==>CODE', YYVERSION => '',
			 YYRULES => 'ARRAY', YYSTATES => 'ARRAY', YYDEBUG => '');
#Mandatory para <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1219	1318	
==>CODE', YYVERSION => '',
			 YYRULES => 'ARRAY', YYSTATES => 'ARRAY', YYDEBUG => '');
#Mandatory para <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	11157	11252	
==>s Bool is export`
- `unlike (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) r <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3933	4033	
==>imcc_pmc();
    my $temp_pmc = $compiler->temp_pmc();

    $compiler->emit("  $temp_pmc = new $pmc_ty <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1572	1672	
==>imcc_pmc();
    my $temp_pmc = $compiler->temp_pmc();

    $compiler->emit("  $temp_pmc = new $pmc_ty <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9946	10051	
==>'d var from 5 to 12
function myfunc(a)
	print a
	a=12
        myfunc=80
end function
z=5
T=myfunc(z)
print <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11559	11664	
==>'d var from 5 to 12
function myfunc(a)
	print a
	a=12
        myfunc=80
end function
z=5
T=myfunc(z)
print <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2798	2888	
==><pgeglob_is($target, $pattern, $description, @todo)>

Runs the target string against the Pe <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	6201	6332	
==>@tokens, Jako::Token->new(
        $file, $line, 'infix-concat', undef, $1);
      $text = $2;
      next;
    }

    #
    # Identi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170352	170439	
==>"BODY" => "#line 211 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171293	171380	
==>"BODY" => "#line 211 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	17401	17507	
==>)/{{+=$1}}/mg;
        #s/goto\s+NEXT\(\)/{{+=$op_size}}/mg;	#not supported--dependent on op size
        s <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	7644	7819	
==>urn {
	  VERSION       => $1,
	  DEVEL         => $2,
      revision      => $3,
	  branch		=> $4,
	  cpuarch       => $5,
      osname        => $6,
      cc            => $7, <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1102	1199	
==>head2 Methods

=head3 Constructors

=over 4

=item * C<new()>

Basic constructor.

Accepts no argu <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	639	736	
==>head2 Methods

=head3 Constructors

=over 4

=item * C<new()>

Basic constructor.

Accepts no argu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264165	264419	
==>CODE" => 307,
                  "ARGS" => [
                              "i",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 806 \"src/ops/cmp.ops\"\n    {{\@1}} = {{ <==
3	/Users/nnunley/parrot/config/init/hints/os2.pm	346	490	
==>ctually be
    # using OS/2
    $conf->data->set(
        libs     => "-lm -lsocket -lcExt -lbsd",
        iv       => "long",
        nv       = <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2124	2221	
==>"Wrong"
if 5<=5 then print "Ok" else print "Wrong"
if 6<=5 then print "Wrong" else print "OK"
if 4 <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	4087	4203	
==>ed the same, generated unique number.
    $P100 = new 'APLVector'
    $I100 = 1
    $I101 = 0
    $I102 = %1
  loop_b <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	557	661	
==>e P0, $failLabel";
    } elsif ($distance =~ /\D/) {
        die "Unimplemented: variable-length advances <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	44864	44962	
==>n or the translation list
of a translation),

=item [9]

the right delimiter of the second block of <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2068	2166	
==>Value::Identifier')) {
      my $arg_sym = $self->block->find_symbol($args[$i]->value);
      $self <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1768	1866	
==>Value::Identifier')) {
      my $arg_sym = $self->block->find_symbol($args[$i]->value);
      $self <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	1246	1342	
==>s( $language, $code, $expected, $description)> 

Runs a langugage test and passes the test if a s <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1565	1718	
==>my $type   = 'STRING';

    while ( $parser->YYData->{INPUT} ) {

        for ( $parser->YYData->{INPUT} ) {

            s/^\"//
                a <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25241	25373	
==>NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 131,
			'fun <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3080	3210	
==>my $type   = 'STRING';

    while ( $parser->YYData->{INPUT} ) {

        for ( $parser->YYData->{INPUT} ) {

            s/^ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400951	401433	
==>[
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 464,
                  "ARGS" => [
                              "p",
                              "ic",
                              "i",
                              "ic"
                            ],
                  "BO <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1761	1859	
==>, got %d) in call to '%s'.",
    scalar(@formal_args), scalar(@args), $name)
    unless @formal_arg <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1461	1559	
==>, got %d) in call to '%s'.",
    scalar(@formal_args), scalar(@args), $name)
    unless @formal_arg <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	12807	13062	
==>expr }";
    }
}

########################################################################
# Dumping trees, for debugging only
########################################################################

package Regex::Ops::Tree;

sub dump_tree {
    my ($op) <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	31278	31406	
==>ra, $para->[1]{'~orig_content'};
            delete $para->[1]{'number'};
             # Only a PROPER item-number element is all <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37642	37730	
==>ANS_PUSH_LOOP_$name
type_trans = dtypes[0]
push stypes, type_trans
INS_TRANS_PUSH_LOOP_$n <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32472	32596	
==>eg';
			push @localmv, 'STOREREG';
		} else {
			die "pir or instruction must use one of \${STACK0} or \${STOREREG} in rule " <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1719	1818	
==>us definition.
  #

  if (defined $sym) {
    $self->SYNTAX_ERROR("Redeclaration of identifier '%s'. <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	52167	52266	
==>~ m/(?=$CONDREJECTMK)/gco
				and do { ($code) = extract_codeblock($grammar,'{',undef,'<');
					  $ <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	2286	2394	
==>\w)? /x) {
        $conf->data->set(bison_version => $3 ? "$1.$2$3" : "$1.$2");
    }

    $conf->data->set($ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	995	1080	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub handle_text {  $_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	779	864	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub handle_text {  $_ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	37371	37539	
==>r,
            'prolog' => 1,
            'arg1'   => $defn,
            'result' => $lbl,
        );
        push @opcodes2, new AssignOp( $parser,
            'p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614854	614950	
==>ext = {{^+4}};\n    INTVAL offset;\n    offset = Parrot_class_offset(interpreter, {{\@2}}, {{\@3} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616005	616101	
==>ext = {{^+4}};\n    INTVAL offset;\n    offset = Parrot_class_offset(interpreter, {{\@2}}, {{\@3} <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5516	5623	
==>";

    push @ops, $self->output_label_def($passLabel);
    return @ops;
}

sub output_initgroup {
    my ($ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5209	5316	
==>";

    push @ops, $self->output_label_def($passLabel);
    return @ops;
}

sub output_initgroup {
    my ($ <==
3	/Users/nnunley/parrot/config/inter/charset.pm	1436	1540	
==>rc/charset/$charset.c \$(NONGEN_HEADERS)


END
    }

    # build list of libraries for link line in Make <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	246185	246482	
==>p_num",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 2 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	631	731	
==>f this module in a standalone parser make the included
# text under the same copyright as the Parse: <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	612	711	
==>f this module in a standalone parser make the included
# text under the same copyright as the Parse: <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11992	12109	
==>ail) = @_;
    my $fail_label = $self->output_label_use($fail);
    my @ops;
    if (defined $name) {
        push @op <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	12658	12775	
==>ail) = @_;
    my $fail_label = $self->output_label_use($fail);
    my @ops;
    if (defined $name) {
        push @op <==
3	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	636	734	
==>run on a Unix box. It's not particularly
necessary to be portable, since it only has to be run when <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2012	2117	
==>nown variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->type;
  }
  else {
    $le <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1970	2075	
==>nown variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->type;
  }
  else {
    $le <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1892	1997	
==>nown variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->type;
  }
  else {
    $le <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	2313	2441	
==>nt4_t => 'int');
        print <<'END';

Can't find a int type with size 4, conversion ops might fail!

END
    }

    if ($resul <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540260	540436	
==>,
                              "i"
                            ],
                  "BODY" => "#line 1022 \"src/ops/math.ops\"\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541512	541688	
==>,
                              "i"
                            ],
                  "BODY" => "#line 1022 \"src/ops/math.ops\"\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598860	599028	
==>"p",
                              "sc"
                            ],
                  "BODY" => "#line 351 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup( <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	2525	2646	
==>ormation about MANIFEST files.',
            $self->new_item('Lists all the files in the distribution, with their metadata <==
3	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	1561	1664	
==>self = shift;
  my ( $code, $expected, $desc ) = @_;
  
  my $test_no = $self->{builder}->current_test + <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483742	483838	
==>nterpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({{\@2}} / <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484741	484837	
==>nterpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({{\@2}} / <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485740	485836	
==>nterpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({{\@2}} / <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1123	1239	
==>'<ptmp>';
    return $name;
}

sub dbgoto {
    my ($self, $label) = @_;
    return () unless $self->{DEBUG};
    ret <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	613	729	
==>'<ptmp>';
    return $name;
}

sub dbgoto {
    my ($self, $label) = @_;
    return () unless $self->{DEBUG};
    ret <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936817	937055	
==>PE" => "inline",
                  "CODE" => 1053,
                  "ARGS" => [
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 455 \"src/ops/string.o <==
3	/Users/nnunley/parrot/examples/benchmarks/stress.pl	537	649	
==>my @foo;
    foreach (1..10000) {
	$foo[$_] = $_;
    }
    return \@foo;
}

=head1 SEE ALSO

F<examples/benchmar <==
3	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	446	558	
==>my @foo;
    foreach (1..10000) {
	$foo[$_] = $_;
    }
    return \@foo;
}

=head1 SEE ALSO

F<examples/benchmar <==
3	/Users/nnunley/parrot/config/inter/lex.pm	656	769	
==>( lex ask maintainer );

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2027	2133	
==>e' => $self->{'line_count'}}];
      push @$paras, $paras->[-1], $paras->[-1];
       # So that it definite <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	5267	5365	
==>"one of (" . join(", ", @_) . ")" : $_[0], $self->get(1)->text)
    unless grep { $self->get(1)->ki <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	21285	21388	
==>_remap_sequences: formatless treelet.\n";
    return 0;
  }
  
  my $map = ($self->{'accept_codes'} || d <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	110	207	
==>::Simple::BlackBox;

use overload( # So it'll stringify nice
  '""'   => \&Pod::Simple::BlackBox:: <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	965	1061	
==>_path($path)>

Returns the directory with the specified path. 

The directory is an instance of t <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1172	1289	
==>e
  }, $class;

  $block->push_content($self);

  return $self;
}

sub dest  { return shift->{DEST};  }
sub left  { re <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1163	1280	
==>e
  }, $class;

  $block->push_content($self);

  return $self;
}

sub dest  { return shift->{DEST};  }
sub left  { re <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1052	1169	
==>e
  }, $class;

  $block->push_content($self);

  return $self;
}

sub dest  { return shift->{DEST};  }
sub left  { re <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	5979	6079	
==>get_symbol(), which searches only locally.

=cut

sub find_symbol
{
  my $self = shift; # Required: J <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7702	7822	
==>a') {
          $tagname = 'Para_item' if @stack and $stack[-1] eq 'text';
        }
        print $fh $self->{'Tagmap'}{ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	8179	8294	
==>a' ) {
        $tagname = 'Para_item' if @stack and $stack[-1] eq 'text';
      }
      print $fh $self->{'Tagmap'}{ <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	13895	13999	
==>struct call_state st;';
    my $extra_preamble  = join("\n    ", @{$extra_preamble_ref});
    my $extra_p <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	7146	7254	
==>le_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c failed ($?)\n";
    }
    else { <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5440	5548	
==>le_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c failed ($?)\n";
    }
    else { <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7357	7465	
==>le_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c failed ($?)\n";
    }
    else { <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	367	483	
==>ler;

use base qw(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	387	503	
==>ler;

use base qw(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	367	483	
==>ler;

use base qw(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	15191	15329	
==>IONS => {
			":" => 42,
			"[" => 47,
			"(" => 48,
			"." => 49,
			'STRING' => 44,
			"{" => 38
		},
		DEFAULT => -57,
		GOTOS = <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	48816	48938	
==>-1];
      
    } elsif(defined $3) {
      DEBUG > 3 and print "Found apparent complex end-text code \"$3\"\n";
      # Th <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	15	103	
==>kage Pod::Simple::PullParserTextToken;
use Pod::Simple::PullParserToken ();
@ISA = ('Pod: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740480	740588	
==>ps\"\n  {{\@1}} = {{\@2}}->vtable->get_string(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	64431	64526	
==>rking somewhere in this code, if
only because parts of it give the impression of understanding a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	99432	99630	
==>[
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 101 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}}->vtable->bitwise_ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	6736	6848	
==>nst = bless {}, $class . '::Const';
    $self->{const} = $const;
    my @methods = @{ $self->{methods} };
    # c <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2141	2234	
==>ize#\\ul{\n",
 '/head1'  => "\n}\\par}\n",
 'head2'   => "\n{\\pard\\li#rtfindent#\\s32\\keepn <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965486	965870	
==>"i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1086,
                  "ARGS" => [
                              "i",
                              "ic",
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 6 <==
3	/Users/nnunley/parrot/lib/Test/More.pm	9636	9739	
==>snt().  Better
diagnostics on failure.

=cut

sub like ($$;$) {
    $Test->like(@_);
}


=item B<unlike> <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	6232	6331	
==>-- No Parrot API: %d ---\n", scalar @UnParrotAPI;
    for my $api (@UnParrotAPI) {
	printf "%s\t%s\t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367881	368132	
==>rpreter), (size_t){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368673	368924	
==>rpreter), (size_t){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17666	17799	
==>tate 46
		DEFAULT => -93
	},
	{#State 47
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	667	751	
==>UNIVERSAL::isa($dest, 'Jako::Construct::Expression::Value::Identifier');
  confess("L <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	658	742	
==>UNIVERSAL::isa($dest, 'Jako::Construct::Expression::Value::Identifier');
  confess("L <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	547	631	
==>UNIVERSAL::isa($dest, 'Jako::Construct::Expression::Value::Identifier');
  confess("L <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	308964	309174	
==>"NAME" => "debug_load",
                  "FLAGS" => ":base_debug",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function", <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	725	825	
==>------------------
# nop : Do nothing (placeholder)
# check : Check to be sure we are n chars away fr <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	759	855	
==><import> method and exports no
I<symbols>.

=cut

package Parrot::Configure;

use strict;
use war <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029887	1030075	
==>t_sleep_on_event(interpreter, {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030729	1030917	
==>t_sleep_on_event(interpreter, {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	4746	4849	
==>universe, and perl does horrible mangling to them that gets in my way,
it works like this on VMS.

    0 <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11621	11723	
==>err "    PTYPES: "
i = elements ptypes
j = 0
PTYPES_LOOP:
if j == i goto PTYPES_LOOP_END
type_trans = p <==
3	/Users/nnunley/parrot/config/auto/signal.pm	1801	1901	
==>E.
#
# This file is generated automatically by config/auto/signal.pm
#
# Any changes made here will b <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	8479	8567	
==>';
#define IREG(i) REG_INT(jit_info->cur_op[i])
#define NREG(i) REG_NUM(jit_info->cur_op[ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2956	3060	
==>code for C<restart ADDRESS($address)>.

=cut

sub restart_address
{
    my ($self, $addr) = @_;

    retu <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3825	3929	
==>code for C<restart ADDRESS($address)>.

=cut

sub restart_address
{
    my ($self, $addr) = @_;

    retu <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	18321	18418	
==>2 read_dump( [$dir1, $dir2], $file );

Read in the class definition found in $file (which is found <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	3846	3973	
==>rg_count{$f} = $n;
		for (my $i = 0; $i < $n; $i++) {
		    my ($a, $def) = split(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	4345	4472	
==>rg_count{$f} = $n;
		for (my $i = 0; $i < $n; $i++) {
		    my ($a, $def) = split(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	17735	17841	
==>y of the original instruction code before we trash it.
    foreach (@rules) {
        $_->{'orig_code'} = $ <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	2436	2547	
==>", classify($char);
        print "/* @{[$char-$len+1]}-$char */\n" if $char % $len == $len-1;
    }
    print " <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1097	1201	
==><<'PIR';
# Get current stack types array size.
${ITEMP0} = elements ${STYPES}
PIR

	# Do code for each po <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2807	2911	
==><<'PIR';
# Get current stack types array size.
${ITEMP0} = elements ${STYPES}
PIR

	# Do code for each po <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1045	1154	
==>p' || $name eq '<tmp>';
    return '<rx_ptmp>' if $name eq 'ptmp' || $name eq '<ptmp>';
    return $name;
}

s <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	10319	10425	
==>turn $t;
}

# By default, all atom match ops check to be sure there are enough
# atoms left in the input be <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	46995	47093	
==>*STDOUT{IO});
  
  if(ref($source || '') eq 'SCALAR') {
    $new->parse_string_document( $$source ) <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3109	3206	
==>ore it's set.
	$vars=1;
	if ($noreloop) {
		push @{$code{$seg}->{code}}, "\t#ne \$I0, $vars, ERR_I <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	251	348	
==>re ops generated by parser
# ----------------------------
# match : Match a single codepoint
# cha <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29187	29295	
==>e"        => $_[3],
		"description" => "'$desc'",
	}, $class;
}


sub code($$$$)
{
	my ($self, $namespace, $r <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31287	31392	
==>e"      => $_[3],
		"description" => "'$desc'",
	}, $class;
}

sub code($$$$)
{
	my ($self, $namespace, $r <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19807	19899	
==>my $temp_1 = $self->_generate($node->{children}[$_]);
    $self->_add_inst('','le',[$temp_0,$ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	20476	20637	
==>->{'group'};
            } else {
                # Not a group; jump straight to instruction.
                my $name = $_->{'name'};
                $name =~ s <==
3	/Users/nnunley/parrot/config/auto/funcptr.pm	986	1084	
==>t this behavior with the
flags you have specified.  You must adjust your settings in order
to use t <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7925	8018	
==>push @{$code{$seg}->{code}}, "IFBRANCH_$_:\n";
		}
=cut
UNK:	if (($type[CURR] eq "STMT" or $ty <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1179	1469	
==>t  "Estimated ops: "
                              # print  I5
                              # print  "\n"
                              #
$N1 = time_hires();           # time N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	1179	1469	
==>t  "Estimated ops: "
                              # print  I5
                              # print  "\n"
                              #
$N1 = time_hires();           # time N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	6297	6405	
==>printf("%.2f", ($totals{calls}    ? ($totals{covered_calls} / $totals{calls} * 100)       : 0));
    
    pri <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1788	2035	
==>t  "Elapsed time:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 = $N1 / $N2;              # div    N1, N1, N2
$N2 = 1000000 <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	1788	2035	
==>t  "Elapsed time:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 = $N1 / $N2;              # div    N1, N1, N2
$N2 = 1000000 <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	9661	9779	
==>se SLURP;

    return $file;
}

sub convert_line_endings {
    my ( $text ) = @_;

    $text =~ s/\cM\cJ/\n/g;
}

sub p <==
3	/Users/nnunley/parrot/lib/Test/More.pm	23496	23610	
==>ed $how_many ) {
        # $how_many can only be avoided when no_plan is in use.
        _carp "todo_skip() needs t <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	6231	6337	
==>do_test_junction, ' '~$Test::num_of_tests_run~' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	6899	6986	
==>--------------------------------------------------------
# TODO: document these:

sub un <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25415	25537	
==>ve_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    my $tem <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27315	27437	
==>ve_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    my $tem <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	330	423	
==>ld our FORCE_TODO tests
$Test::force_todo_test_junction;

# for running the test suite multipl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103935	1104019	
==>!type) {\n\t\tParrot_autoload_class(interpreter, class);\n\t\ttype = pmc_type(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105150	1105234	
==>!type) {\n\t\tParrot_autoload_class(interpreter, class);\n\t\ttype = pmc_type(interpr <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8943	9105	
==>bug & 0x04
#DBG>		and	print STDERR "Forced Error recovery.\n";

            $$check='';

        };

        #Error
            $$errstatus
        or   d <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8541	8694	
==>bug & 0x04
#DBG>		and	print STDERR "Forced Error recovery.\n";

            $$check='';

        };

        #Error
            $$errstatus
        or   d <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	2709	2814	
==>re directly.
      my $temp = $compiler->temp_reg($return_type);
      $compiler->emit("  $temp = $ret_val <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111053	111303	
==>138,
                  "ARGS" => [
                              "s",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 187 \"src/ops/bit.ops\"\n  {{\@1}} = string_bi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819065	819309	
==>"NAME" => "entrytype",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820024	820268	
==>"NAME" => "entrytype",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	63960	64053	
==>tract_tagged> found a nested opening tag that was not matched by a
corresponding nested closin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931434	931698	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1046,
                  "ARGS" = <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	3562	3674	
==>es() {
    my $self = shift;
    my $cout = "";
    $cout .= <<"EOC";
#define PARROT_IN_EXTENSION
#include "parro <==
3	/Users/nnunley/parrot/lib/Test/More.pm	131	231	
==>succeed
# even though the module being used forgot to use Carp.  Yes, this
# actually happened.
sub _ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	73943	74065	
==>= $text }

	$ERRORS = 0;
	return $retval;
}

sub _parserepeat($$$$$$$$$)	# RETURNS A REF TO AN ARRAY OF MATCHES
{
	my ($par <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1409	1517	
==>alled by C<goto_address()>.

=cut

sub expr_address
{
    my ($self, $addr) = @_;

    return $addr;
}

=item <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	60505	60609	
==>r->YYData->{fh}, $srcname
        or die "can't open $srcname ($!).\n";

    $parser->YYData->{shebang <==
3	/Users/nnunley/parrot/config/auto/memalign.pm	667	793	
==>$conf->data->set(memalign => '');
        $self->set_result('skipped');
        return $self;
    }

    if (defined $conf->dat <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319985	320091	
==>/ops/dotgnu.ops\"\n  {{\@1}} = (INTVAL)((Parrot_Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320755	320861	
==>/ops/dotgnu.ops\"\n  {{\@1}} = (INTVAL)((Parrot_Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/examples/benchmarks/freeze.pl	800	903	
==>ne \@a;
#$e = time();
#printf " clone time %.6f\n", $e-$s;

print "Image len ", length($image), "\n";
pr <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19395	19495	
==>e if you don't want the formatter to try
putting a hidden code on all Perl symbols (as best as it can <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	8914	9009	
==>x::Ops::Tree::rule;
sub minlen { my ($op) = @_; $op->{args}->[1]->minlen() }
sub maxlen { my ($o <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63226	63334	
==>d $rule->addcall($name);

						_check_insatiable($name,$1,$grammar,$line) if $::RD_CHECK;
					}
				}
				e <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63947	64055	
==>d $rule->addcall($name);

						_check_insatiable($name,$1,$grammar,$line) if $::RD_CHECK;
					}
				}
				e <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	1525	1617	
==>t
if the  output matches the expected result.

=item C<language_output_isnt( $language, $code <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	185	357	
==>06-05-30T15:23:20.183054Z coke  $
################################################################################

=head1 NAME

tools/dev/lib_deps.pl - List libc dependenci <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834308	834393	
==>nterpreter->ctx)->user_stack, {{\@1}}, STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835034	835119	
==>nterpreter->ctx)->user_stack, {{\@1}}, STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+ <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	12446	12557	
==>(($p = $globals{$c})) {
	print <<EOC;
	# $p = global "$c" $cmt
EOC
    }
    elsif ($main_names{$c}) {
	$p = tem <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493834	494131	
==>od",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 56 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494701	494998	
==>od",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 56 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495569	495866	
==>od",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 56 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498176	498496	
==>od",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 572,
                  "A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496437	496734	
==>od",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 57 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497306	497603	
==>od",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 57 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2170	2279	
==>'t work right
    #  under non-ASCII charsets.  Something should be done about that.
  }
  return;
}

#@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2273	2382	
==>'t work right
    #  under non-ASCII charsets.  Something should be done about that.
  }
  return;
}

#@@@@@@@ <==
3	/Users/nnunley/parrot/config/auto/gc.pm	457	549	
==>brary C<malloc>.

=item C<malloc>

Use the malloc in F<src/res_lea.c>.

=item C<malloc-trace> <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	19382	19490	
==>/\G(\S)/gc)	# SHOULD USE LOOKAHEAD
	{
		_failmsg "No block delimiter found after quotelike $op",
		         p <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8397	8493	
==>num_of_tests_planned tests, but ran $Test::num_of_tests_run");
    }

    if ($Test::num_of_tests <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	361	457	
==>sing
and C C<goto> run loop.

=head2 Instance Methods

=over 4

=cut

package Parrot::OpTrans::CG <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4659	4812	
==>\n"
            match."dump"("mob"," ","")\n); 
    }
    else {
        $captures = "";
    }
    return qq(
        .sub _PGE_Test
            .local pm <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23706	23845	
==>ue>);
    #   last unless (<value> <op> <value>);
    #
    #   last <label>;
    #   last <label> if     (<value> <op> <value>);
    #   la <==
3	/Users/nnunley/parrot/config/init/optimize.pm	725	824	
==>wever, use that instead. 
    my $optimize = $conf->options->get('optimize');
    if (defined $optim <==
3	/Users/nnunley/parrot/config/auto/signal.pm	1454	1590	
==>(
            has_setitimer    => 'define',
            has_sig_atomic_t => 'define'
        );
        print " (setitimer) " if $verbose <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	3312	3441	
==>y ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = find_global \"$op->{ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	5083	5194	
==>Extra arguments!" if @_;

  my $block = $self; # Start collecting symbols here

  my %table = ();

  my $level = <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	5884	6062	
==>file',
        commentType                               => '#',
        replace_slashes                           => 1
    );
    genfile(
        'config/gen/makefiles/perl6.in' <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	8584	8730	
==>orig_dir;
    }

    my $exit_code = $? >> 8;

    close STDOUT             or die "Can't close    stdout" if $out;
    close STDERR             or <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	12379	12487	
==>bel numbers set to zero.
    label_num = 0
TRANSPIR

    # Set up some more metavariables.
    $mv->{'ASSEMBL <==
3	/Users/nnunley/parrot/config/auto/format.pm	319	415	
==>ription @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step;

$desc <==
3	/Users/nnunley/parrot/config/init/hints.pm	359	455	
==>ription @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step;

$desc <==
3	/Users/nnunley/parrot/config/init/miniparrot.pm	604	700	
==>ription @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step;

$desc <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	1142	1260	
==>a->add(' ', linkflags => '-L/sw/lib');
            $conf->data->add(' ', dflags    => '-L/sw/lib');
            $conf-> <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4886	4973	
==>RULES', 'STATES', 'LEX', 'ERROR' };
	my($errstatus,$nberror,$token,$value,$stack,$check <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4645	4731	
==>RULES', 'STATES', 'LEX', 'ERROR' };
	my($errstatus,$nberror,$token,$value,$stack,$check <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2176	2283	
==>. . Now the actual formatters:

sub end_head1       { $_[0]->emit_par(-4) }
sub end_head2       { $_[0]->emi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1744	1851	
==>. . Now the actual formatters:

sub end_head1       { $_[0]->emit_par(-4) }
sub end_head2       { $_[0]->emi <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2071	2178	
==>ers/nnunley/parrot/src/classes' . $PATHQUOTE . " " .
        $source;
};

sub partial_link_cmd {
    my ($ta <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094274	1094472	
==>"ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 209 \"src/ops/experimental.ops\"\n  VTABLE_morph(in <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	2069	2176	
==>ompile($compiler);
    $right = $right->compile($compiler);

    if ($cond eq 'if') {
      $op = $compiler- <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	9387	9485	
==>re from the code ref and return (a) the
code found before the signature, (b) the name of the class, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062552	1062658	
==>\n    ns = VTABLE_get_pmc_keyed(interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063421	1063527	
==>\n    ns = VTABLE_get_pmc_keyed(interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064291	1064397	
==>\n    ns = VTABLE_get_pmc_keyed(interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+= <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3412	3512	
==>ts $props{fnlib} and $props{fnlib}) {
      $fnlib = $props{fnlib}->value; # TODO: We should make sur <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6076	6176	
==>ts $props{fnlib} and $props{fnlib}) {
      $fnlib = $props{fnlib}->value; # TODO: We should make sur <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34788	34882	
==>utput file we are
generating.

Overrides the default implementation to throw an execption for u <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10945	11055	
==>save_1 ('P');
    $self->_morph ($pmc, $temp);
    $self->_restore ($temp);
    $temp = $pmc;
  }
  $self->_sto <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2359	2458	
==>ng $stype $var with main  (array=$array)
	P0= P10[0]
	P1= P0["$stype"]
	P0= P1["$var"]	# Pull the or <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2586	2685	
==>ng $stype $var with main  (array=$array)
	P0= P10[0]
	P1= P0["$stype"]
	P0= P1["$var"]	# Pull the or <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	33337	33472	
==>>[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   print <<E <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	34086	34221	
==>>[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   print <<E <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	35010	35145	
==>>[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   print <<E <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	66118	66412	
==>ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "function",
                  "CODE" => 86,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 989 \"sr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677569	677658	
==>ne 478 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_float(interpreter, {{\@1}}, {{\@2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678347	678436	
==>ne 478 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_float(interpreter, {{\@1}}, {{\@2 <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9774	9867	
==>" goto pre_call_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# L <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7288	7381	
==>" goto pre_call_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# L <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6252	6345	
==>" goto pre_call_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# L <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	5747	5900	
==>=> "-ansi -pedantic",
            gccversion => undef
        );

        return $self;
    }

    $conf->data->set(
        ccwarn              => "$warn <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	31936	32064	
==>ue = ++ $curr_open->[-1][1]{'~counter'};
          
          if($item_type eq 'bullet') {
            # Hm, it's not numeric.  C <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	20112	20229	
==>f =~ /\G\s*(\S)/gc)	# SHOULD USE LOOKAHEAD
			{
				_failmsg "Missing second block for quotelike $op",
					 pos $$tex <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549439	549703	
==>",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550739	551003	
==>",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552040	552304	
==>",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	55774	55870	
==>actor), or returns an empty list or an undefined value (in the case of a subroutine extractor), i <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	842	936	
==>------------------------------------------
sub e2char {
  my $in = $_[0];
  return undef unless <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1245	1345	
==>>temp_pmc();
    $compiler->emit("  $pmc_reg = new $pmc_type");
    $compiler->emit("  $pmc_reg = $id <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1239	1339	
==>>temp_pmc();
    $compiler->emit("  $pmc_reg = new $pmc_type");
    $compiler->emit("  $pmc_reg = $id <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1760	1862	
==>oreach my $x (@_) {
    # Escape things very cautiously:
    $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1863	1965	
==>oreach my $x (@_) {
    # Escape things very cautiously:
    $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\ <==
3	/Users/nnunley/parrot/Configure.pl	9882	9980	
==>rty hack
    no warnings qw(once);
    $Parrot::Configure::Step::conf = $conf;
}
$conf->add_steps(@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45864	46114	
==>NAME" => "pushaction",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 59,
                  "AR <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	902	1006	
==>class//s;
    s/\{.*$//s;

    return $PMC_PARENTS{$pmc} = lc($1) if m/extends\s+(\w+)/;
    return $PMC_ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15440	15545	
==>teral( $parser, 'nil', 'nil' );
    push @opcodes, @{ $nil->[1] };
    $result = new_tmp( $parser, 'pmc' <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19193	19298	
==>teral( $parser, 'nil', 'nil' );
    push @opcodes, @{ $nil->[1] };
    $result = new_tmp( $parser, 'pmc' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11836	11926	
==>n/, <<"END");
$uid = _$name($mode, <rx_input>, <rx_pos>, <rx_stack>)
<rx_pos> = $uid\['!POS <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1635	1731	
==>~~~~~~~~~~~~~~~~~~~
1;
__END__

=head1 NAME

Pod::Simple::SimpleTree -- parse Pod into a simple p <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19653	19773	
==>@params,
    );
    return [ $result, \@opcodes ];
}

sub BuildVoidFunctionCall {
    my ( $parser, $expr )    = @_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355133	355230	
==>{\@1}};\n  STRING * const s = (VTABLE_get_string(interpreter, p));\n  if (s) {\n    PIO_putps(inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360833	360930	
==>{\@1}};\n  STRING * const s = (VTABLE_get_string(interpreter, p));\n  if (s) {\n    PIO_putps(inte <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22071	22173	
==>->_add_inst(''           ,'lt'    ,[$temp,0,"DONE_$label"]);
  $self->_restore($temp);
  $self->_add_in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43636	43727	
==>BODY" => "#line 732 \"src/ops/core.ops\"\n  Parrot_push_mark(interpreter, {{\@1}});\n  {{+=2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44280	44371	
==>BODY" => "#line 732 \"src/ops/core.ops\"\n  Parrot_push_mark(interpreter, {{\@1}});\n  {{+=2 <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	6306	6453	
==>xec', 
            '',
            $self->c_item(
                'Parrot\'s native executable subsystem.', 
                'pairs' => ['exec', 'ex <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2801	2899	
==>ag "'$desc' was non-fatal and maybe shouldn't use eval_is()";
        &Test::is.goto($result, $expe <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	2770	2866	
==>t register
  .param pmc argv

  .local pmc compiler
  .get_from_HLL(compiler, '_tcl', 'compile_di <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453424	453706	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 520,
                  "ARGS" <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33927	34047	
==>hod->{type} ne 'void') {
        my $type = $method->{type};
        $ret_def = "$type ret_val;";
        $func_ret = $se <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38889	39009	
==>hod->{type} ne 'void') {
        my $type = $method->{type};
        $ret_def = "$type ret_val;";
        $func_ret = $se <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032519	1032809	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_lex",
                  "FLAGS" => "",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033616	1033906	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_lex",
                  "FLAGS" => "",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2246	2345	
==>l start by printing number of tests run in the form
"1..M" (so "1..5" means you're going to run 5 te <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	407	519	
==>lock_types = (
  'while'    => { PREFIX => "_W", NEXT => 'CONT', REDO => 'REDO', LAST => 'LAST' },
  'if'       = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	428	540	
==>lock_types = (
  'while'    => { PREFIX => "_W", NEXT => 'CONT', REDO => 'REDO', LAST => 'LAST' },
  'if'       = <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	301	398	
==>=head1 NAME

tools/dev/lib_deps.pl - List libc dependencies

=head1 SYNOPSIS

    % perl tools/dev <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423043	423340	
==>JUMP" => 0,
                  "NAME" => "listen",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423939	424236	
==>JUMP" => 0,
                  "NAME" => "listen",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100932	101120	
==>E" => 125,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 125 \"src/ops/bit.ops\"\n  string_bitwise_not(in <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2177	2269	
==>AL::isa($right, 'Jako::Construct::Expression::Value::Identifier')) {
    my $right_sym = $blo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2135	2227	
==>AL::isa($right, 'Jako::Construct::Expression::Value::Identifier')) {
    my $right_sym = $blo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2057	2149	
==>AL::isa($right, 'Jako::Construct::Expression::Value::Identifier')) {
    my $right_sym = $blo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	897	997	
==>on::Value');
  confess "Op is not scalar!" if ref $op;
  confess "Right is not Value!" unless UNIVERS <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	909	1009	
==>on::Value');
  confess "Op is not scalar!" if ref $op;
  confess "Right is not Value!" unless UNIVERS <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	188	279	
==>ako/lib/Jako/Construct/Expression/Suffix.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1819	1963	
==>ure_output($prog, '--version');

    # don't override the user even if the program they provided appears to be
    # broken
    if ($ret == -1 an <==
3	/Users/nnunley/parrot/config/inter/make.pm	1693	1837	
==>ure_output($prog, '--version');

    # don't override the user even if the program they provided appears to be
    # broken
    if ($ret == -1 an <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1833	1977	
==>ure_output($prog, '--version');

    # don't override the user even if the program they provided appears to be
    # broken
    if ($ret == -1 an <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11522	11783	
==>g1'   => $result,
                            'arg2'   => $key->[0],
                        );
                        $result = $result2;
                    }
                    push @opcodes, @{ $last_key->[1] };
                    my $assign = new K <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9746	9983	
==>g1'   => $result,
                        'arg2'   => $key->[0],
                    );
                    $result = $result2;
                }
                push @opcodes, @{ $last_key->[1] };
                my $assign = new K <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8649	8838	
==>g1'   => $result,
                'arg2'   => $key->[0],
            );
            $result = $result2;
        }
        push @opcodes, @{ $last_key->[1] };
        my $assign = new K <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	18507	18630	
==>C;
	$n = not $tos->[1] $cmt
EOC
	push @stack, [-1, $n, $tos->[2]];

    }
}

sub UNARY_POSITIVE
{
    my (undef, $c, $cmt) = <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	41210	41326	
==>ce(@$link_text) : '');
      
      DEBUG > 2 and print "End of L-parsing for this node $treelet->[$i]\n";

      uns <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	6266	6370	
==>s{None} = 'None';
    if ($def_args{$arg}) {
	my ($i, $n, $defs);
	$n = $arg_count{$arg};
	$defs = @{$def <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15406	15503	
==>xpected, Str $desc?) returns Bool;
  multi sub is_deeply (Pair  $got, Pair  $expected, Str $desc?) <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	665	759	
==>d::Simple::PullParser>, you might
get an object of this class.

This is a subclass of L<Pod::Si <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	571	665	
==>d::Simple::PullParser>, you might
get an object of this class.

This is a subclass of L<Pod::Si <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52017	52169	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "trace",
                  "F <==
3	/Users/nnunley/parrot/config/auto/env.pm	220	316	
==>library has C<setenv()> and C<unsetenv()>.

=cut

package auto::env;

use strict;
use vars qw($de <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	48878	48971	
==>1;
__END__

TODO:
A start_formatting_code and end_formatting_code methods, which in the
base c <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8009	8118	
==>MT" or $type[CURR] eq "COMM") and $singleif) {

		$_=pop @ifstack;
		if ($_ < 0 ) {
			# print "Else was done, <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34193	34295	
==>irective($line, "sharedref.c");
    return <<EOC;
$l
$decl {
    $ret_def
    LOCK_PMC(interpreter, pmc <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	863	956	
==>'),
			$self->new_item('', 'docs/glossary.pod'),
			$self->new_item('', 'docs/faq.pod'),
			$s <==
3	/Users/nnunley/parrot/config/gen/cpu.pm	93	187	
==>5-30T02:28:15.110975Z coke  $

=head1 NAME

config/gen/cpu.pm - CPU specific Files

=head1 DESC <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87870	88202	
==>"FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 109,
                  "ARGS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103902	1103986	
==>type(interpreter, class);\n\tif (!type) {\n\t\tParrot_autoload_class(interpreter, cla <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105117	1105201	
==>type(interpreter, class);\n\tif (!type) {\n\t\tParrot_autoload_class(interpreter, cla <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462844	462946	
==>n(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = fmod({{\@2}}, den) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463841	463943	
==>n(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = fmod({{\@2}}, den) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464838	464940	
==>n(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = fmod({{\@2}}, den) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50227	50414	
==>terp_flags_CLEAR(interpreter, PARROT_PROFILE_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51020	51207	
==>terp_flags_CLEAR(interpreter, PARROT_PROFILE_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/config/inter/progs.pm	1589	1704	
==>ation.

END
    }

    # Set each variable individually so that hints files can use them as
    # triggers to help p <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1905	2007	
==>)) {
    my $left_sym = $block->find_symbol($left->value);
    $self->SYNTAX_ERROR("Expression involves <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1863	1965	
==>)) {
    my $left_sym = $block->find_symbol($left->value);
    $self->SYNTAX_ERROR("Expression involves <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1785	1887	
==>)) {
    my $left_sym = $block->find_symbol($left->value);
    $self->SYNTAX_ERROR("Expression involves <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10928	11035	
==>Raises an exception if the delete fails.

=cut

sub delete
{
    # Use $_[0] so that we can undef the instan <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4762	4869	
==>Raises an exception if the delete fails.

=cut

sub delete
{
    # Use $_[0] so that we can undef the instan <==
3	/Users/nnunley/parrot/config/auto/snprintf.pm	325	417	
==>ription @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step qw( <==
3	/Users/nnunley/parrot/config/gen/config_pm.pm	406	498	
==>ription @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step qw( <==
3	/Users/nnunley/parrot/config/gen/cpu.pm	339	431	
==>ription @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step qw( <==
3	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	863	998	
==>ldflags);
        if ($f =~ s/ -s / /) {
            $conf->data->set($ldflags => $f);
        }
    }

    my $linkflags = $conf->data- <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2344	2461	
==>print {
    my ($self, $what) = @_;
    $what = value($what);
    return ("print $what;");
}

sub output_test {
    my <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2661	2777	
==>print {
    my ($self, $what) = @_;
    $what = value($what);
    return ("print $what");
}

sub output_test {
    my <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65454	65566	
==>rror,$line,"$code$argcode($1..)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr($grammar,$pos,0 <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	72852	72952	
==>ules"}} )
	{
		if ($rule->{"changed"})
		{
			$code .= $rule->code($self->{"namespace"},$self);
			$r <==
3	/Users/nnunley/parrot/tools/dev/cc_flags.pl	370	466	
==>YNOPSIS

    % perl tools/dev/cc_flags.pl transform compiler flags

=head1 DESCRIPTION

This scri <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	549	661	
==>'$rx_tmp' if $name eq '<tmp>';
    return '$rx_tmp' if $name eq '<ptmp>';
    return $name;
}

sub dbgoto {
    m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584664	584776	
==>{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, NULL);\n  {{=next}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585739	585851	
==>{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, NULL);\n  {{=next}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957033	957294	
==>ind_encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957937	958198	
==>ind_encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	5613	5730	
==>\n";
    }
    exit;
}

# Run The Benchmarks With Pretty Output
if ( ! $cfg{use_times} && @program < 2 ) {
    print " <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	3565	3664	
==>ime' );
}
if ( ! defined $cfg{display_help} ) {
    $cfg{display_help} = $ini->val( global => 'help' <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	375	469	
==>ct;

@ISA= qw ( Parse::Yapp::Driver );
#Included Parse/Yapp/Driver.pm file------------------ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	367	458	
==>ct;

@ISA= qw ( Parse::Yapp::Driver );
#Included Parse/Yapp/Driver.pm file------------------ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	69114	69289	
==>block_GC(interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	69556	69731	
==>block_GC(interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27777	27916	
==>rimary' => 28
		}
	},
	{#State 85
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			" <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	49664	49787	
==>omplex.\n";
      } elsif($stack[-1] < length($3)) {
        # We saw " >>>>" but needed only " >>".  Back pos up.
        D <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2189	2289	
==>:$name", 'Regex::Ops::Tree');
        $class =~ s/::\w+$// or confess "Called op on invalid class $_[ <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	773	873	
==>ame fileSystem main misc 
  parse parseExpr parseOld regexpComp utf util
);

my %numtests;

foreach m <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	6160	6263	
==>d $Type && $Type ne '' && !exists $Type{$Type};

my $TypeLong = defined $Type && $Type eq 'long';

for m <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	2939	3041	
==>rg_type } });
    $handler->end_element({ Name => 'arg' });
  }

  foreach my $content ($self->content) <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	1069	1165	
==>ead2 defs

This section holds the definitions of functions. Each function is
assumed to be in the <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74960	75075	
==><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$errorprefix,          $errortext
~~                     ^<<<<<<<<<<<<<<<<<<<<<<< <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74983	75098	
==><<<<<<<<<<<
$errorprefix,          $errortext
~~                     ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	3604	3708	
==>al_filename) = /\s*([^%]+)% of (\d+)(?: source)? lines executed in file (.*)/;
            if ($total_lin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553217	553522	
==>ROT_JUMP_ENEXT",
                  "NAME" => "callmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554613	554918	
==>ROT_JUMP_ENEXT",
                  "NAME" => "callmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556010	556315	
==>ROT_JUMP_ENEXT",
                  "NAME" => "callmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2176	2286	
==>f{DEBUG}) {
		_DBLoad();
		$retval = eval '$self->_DBParse()';#Do not create stab entry on compile
        $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2095	2202	
==>f{DEBUG}) {
		_DBLoad();
		$retval = eval '$self->_DBParse()';#Do not create stab entry on compile
        $ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	30010	30127	
==>abel($parser);
    push @opcodes, new BranchOp( $parser,
        'result' => $lbl_blk,
    );
    push @opcodes, n <==
3	/Users/nnunley/parrot/Configure.pl	8972	9086	
==>::progs
    inter::make
    inter::lex
    inter::yacc
    auto::gcc
    auto::msvc
    init::optimize
    inter::s <==
3	/Users/nnunley/parrot/examples/benchmarks/primes.pl	859	940	
==>F<examples/benchmarks/primes.pasm>,
F<examples/benchmarks/primes2_p.pasm>,
F<examp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	251114	251408	
==>RS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 292,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 703 \"src/ops/ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48204	48354	
==>mmar)--;

				if ($grammar =~ m/$OPTIONAL/gco)
					{ ($minrep, $maxrep) = (0,1) }
				elsif ($grammar =~ m/$ANY/gco)
					{ $minrep = 0 }
				elsif ($ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	58604	58695	
==>urpose tags
for C<extract_tagged>. For example, to properly ignore "empty" XML elements
(whi <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	1796	1982	
==>g;

=back

=cut

################################################################################

use Regexp::Common qw/comment/;
use Getopt::Long;
use strict;

if(1) {
    my $show_full <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	2029	2135	
==>seline="a";
	my (@ifstack);
	my(@lhs, @rhs);
	my($result, $type, @code);

	if ($debug) {
		push @{$code{$se <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2018	2107	
==>y do the same thing with code like
$token->isa('Pod::Simple::PullParserEndToken'), but tha <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314405	314717	
==>ore",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 367,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 6 <==
3	/Users/nnunley/parrot/Configure.pl	6478	6579	
==>inet_aton instead of inet_pton

Parrot Options:

   --intval=(type)      Use the given type for INTVAL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611142	611234	
==>" => "#line 491 \"src/ops/object.ops\"\n    VTABLE_set_attr(interpreter, {{\@1}}, {{\@2}}, {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612045	612137	
==>" => "#line 491 \"src/ops/object.ops\"\n    VTABLE_set_attr(interpreter, {{\@1}}, {{\@2}}, {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22101	22189	
==>/core.ops\"\n  if (!{{\@1}}->vtable->get_bool(interpreter, {{\@1}})) {\n    {{+={{\@2}}}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772041	772306	
==>"seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 872, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770335	770598	
==>"seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 87 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771188	771451	
==>"seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 87 <==
3	/Users/nnunley/parrot/config/auto/jit.pm	5471	5633	
==>unless ($@ || cc_run() !~ /ok/) {
                $conf->data->set(jit_i386 => 'fcomip');
            }
            cc_clean();
        }
    } else {
        $con <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4189	4349	
==>9]{1,3})//
                and $str .= chr $1, 
                last;

            s/^\\//
                and $parser->Error("Invalid escape sequence $_ .\ <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2675	2834	
==>9]{1,3})//
                and $str .= chr $1,
                last;

            s/^\\//
                and $parser->Error("Invalid escape sequence $_ .\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820732	821023	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "depth",
                  "FL <==
3	/Users/nnunley/parrot/config/auto/signal.pm	474	589	
==>ep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    $conf->data->set(
        h <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	12834	12952	
==>p_num)";
    };
    /B/ && do {
        push @{$temps_ref}, "STRING *t_$temp_num;";
        push @{$extra_preamble_ref} <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	5676	5780	
==>method 'method' using the static type of C<SELF> (in
other words, calls another method defined in the sam <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11762	11858	
==>nterr type
printerr " "
inc j
goto PTYPES_LOOP
PTYPES_LOOP_END:
printerr "\\n"
printerr "    LTYP <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	38901	39004	
==>en if a matching end
tag is not encountered (i.e. before the end of the string or some
C<reject> pattern <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9195	9295	
==>{INS} = concat ${STOREREG}
${INS} = concat " = "
${INS} = concat ${STEMP0}
${INS} = concat "\n"

# De <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6713	6813	
==>{INS} = concat ${STOREREG}
${INS} = concat " = "
${INS} = concat ${STEMP0}
${INS} = concat "\n"

# De <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	14503	14651	
==>loat' ], 
  [ 'APLVector', 'APLVector' ], 
);

foreach my $operator (keys %scalar) {
    my ($name,$code) = @ {$scalar{$operator}};
    foreach my $t <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6903	7033	
==>et[-1]->is_end
            and $to_unget[-1]->tagname eq $tagname;
    }
    
    # Convert them into an anchor name;
    
    my $ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	6708	6797	
==>g of installed libraries.
# (see Parrot_get_runtime_prefix in src/library.c).
$ENV{PARROT_ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6571	6720	
==>OR I = 2 TO Max
      IF A$(I-1) > A$(I) THEN
         Exchange = TRUE
         B$=A$(I-1)
         A$(I-1)=A$(I)
         A$(I)=B$
         ' SWAP A$ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16224	16373	
==>OR I = 2 TO Max
      IF A$(I-1) > A$(I) THEN
         Exchange = TRUE
         B$=A$(I-1)
         A$(I-1)=A$(I)
         A$(I)=B$
         ' SWAP A$ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5899	6019	
==>ry($rel_path) )
    {
        my $dir = $source->directory_with_relative_path($rel_path);
        
        # There may be <==
3	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1205	1328	
==>is_success) {
    if($resp->content =~ /^ok/) {
      debug "success!\n";
      exit 0;
    } else {
      debug "error: " . <==
3	/Users/nnunley/parrot/config/init/miniparrot.pm	698	798	
==>escription = 'Tweaking settings for miniparrot';

@args = qw(miniparrot);

sub runstep
{
    my ($sel <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462683	462826	
==>"
                            ],
                  "BODY" => "#line 322 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463680	463823	
==>"
                            ],
                  "BODY" => "#line 322 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464677	464820	
==>"
                            ],
                  "BODY" => "#line 322 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\n <==
3	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	2468	2616	
==>1, q{} ];
            }
        }
    }
    # Badly formatted pir might end in the middle of a verbatim chunk.
    if ($verbatim) {
      die "POD un <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819704	819816	
==>epth wrong\");\n  }\n  {{\@1}} = get_entry_type(interpreter, entry);\n  {{+=3}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820664	820776	
==>epth wrong\");\n  }\n  {{\@1}} = get_entry_type(interpreter, entry);\n  {{+=3}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11204	11312	
==>branch or call coverage lines.
    do_filter(sub { /^(call|branch)/ } );

    print OUT "</pre>";
    print O <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	3278	3381	
==>b sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'call', Attribute <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19367	19470	
==>[ $_[1], $_[2] ]); }
	],
	[#Rule 11
		 'expr', 1,
sub
#line 113 "lib/Regex/Grammar.y"
{ return op('match <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	666	765	
==>interpreter.h
    include/parrot/io.h
    include/parrot/longopt.h
    include/parrot/mmd.h
    incl <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19616	19714	
==>3
		 'expr', 2,
sub
#line 117 "lib/Regex/Grammar.y"
{ return op('multi_match' => [ 0, -1, TRUE, $_[ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	3717	3858	
==>= shift(@children);
            @{ $S->{args} } = @Srest;
            push @shrunken, $S;
        }

        # None, so use opt(R|...) -> (opt <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	10725	10842	
==>he description from the old APL/360 manual
.sub 'dyadic:|'               # logarithm
    .param num op1
    .param num <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6352	6464	
==>Jako::Construct::Type::PMC"));

      my @identifiers = ();

      my $block = $self->current_block();

      whi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761806	762069	
==>"setp_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 86 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56343	56451	
==>69 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo_p(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57105	57213	
==>69 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo_p(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "L <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10532	10702	
==>mbtab}->LookupU($idf);
            if ( defined $defn ) {

                # upvariable
                if ( scalar( @{$var} ) ) {
                    my $result = ne <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653577	653720	
==>' not found\", string_to_cstring(interpreter, {{\@3}}));\n    {{=resume}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654738	654881	
==>' not found\", string_to_cstring(interpreter, {{\@3}}));\n    {{=resume}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/config/gen/icu.pm	2422	2562	
==>t("failed");
            }
        }
    }

    if ($verbose) {
        print "icuconfig: $icuconfig\n"  if defined $icuconfig;
        print <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78949	79041	
==>rpreter, ({{\@3}}));\n\n  void * const p = Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? NULL : PMC_dat <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80470	80562	
==>rpreter, ({{\@3}}));\n\n  void * const p = Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? NULL : PMC_dat <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2806	2918	
==>peration (op class instructions) hooks.
sub pre_op($$) {
	my $self = shift;
	my ($pops, $pushes) = @_;
	my $regis <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1728	1840	
==>peration (op class instructions) hooks.
sub pre_op($$) {
	my $self = shift;
	my ($pops, $pushes) = @_;
	my $regis <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	917	1029	
==>peration (op class instructions) hooks.
sub pre_op($$) {
	my $self = shift;
	my ($pops, $pushes) = @_;
	my $regis <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	6587	6731	
==>mary.html">Function Summary</a>
              <li>Overall Summary:<br>

            <table border="1">
              <tbody>
                 <tr <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	15844	15980	
==>) {
            die 'count must be nonnegative' if $_[0] < 0;
            $self->{'count'} = shift;
            warn "Too many args to co <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	2898	3005	
==>failed\n"
    goto done
printResults:
    print "Match found\n"
    .local int num_groups
    .local int mat <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2419	2530	
==>ne, $sym->file);
  }

  #
  # Now that we've decided to actually declare the constant, we will place its
  # def <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2166	2277	
==>ne, $sym->file);
  }

  #
  # Now that we've decided to actually declare the constant, we will place its
  # def <==
3	/Users/nnunley/parrot/Configure.pl	3673	3765	
==>)

=item C<--icuheaders=(header_dir)>

Location of ICU header files without the /unicode suff <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8358	8447	
==>R.say("# Looks like you planned $Test::num_of_tests_planned tests, but ran $Test::num_of_t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48511	48600	
==>"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_BOUNDS_FL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49301	49390	
==>"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_BOUNDS_FL <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2233	2345	
==>rt {
    my $result := eval $code;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was fa <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2628	2740	
==>rt {
    my $result := eval $code;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was fa <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1144	1259	
==>(File::Spec->splitdir($path_to_parrot));
        my $path_to_language;
        if ($dir_count == 0) {
          $pat <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1629	1744	
==>(File::Spec->splitdir($path_to_parrot));
        my $path_to_language;
        if ($dir_count == 0) {
          $pat <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	9821	9923	
==>[CURR] eq "COMP" or $type[CURR] eq "COMM") {
			last;
		}
		last if (iskeyword($syms[CURR]) and not isb <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17689	17780	
==>lf->_add_inst ('', 'inc',[$return]);
  $self->_add_inst ('', 'set',[$list,$list.'[1]']);
  $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754111	754368	
==>,
                  "TYPE" => "inline",
                  "CODE" => 850,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 261 \"src/ops/set.o <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4037	4144	
==>"Missing mandatory parameter '".lc($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _DBL <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3834	3933	
==>"Missing mandatory parameter '".lc($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _DBL <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12002	12108	
==>/) {
			push @ld, { type => "STRING", value => qq{"$syms[CURR]"} };
		} elsif ($type[CURR] eq "PUN") {
			m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121951	122052	
==>ops/bit.ops\"\n  /*\n   * lvalue casts are evil, but this one isn't evil enough to kill.\n   * it's ju <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122863	122964	
==>ops/bit.ops\"\n  /*\n   * lvalue casts are evil, but this one isn't evil enough to kill.\n   * it's ju <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880072	880370	
==>line",
                  "CODE" => 997,
                  "ARGS" => [
                              "s",
                              "sc",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.op <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	4390	4548	
==>tive_path($file->path));
                    
            $index_html .= "<br>\n";
        }
    }
    
    return '' unless $index_html;
    
    if ( ! $self <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9834	9927	
==>0) if $self->{autoscore};
		next unless $prod->checkleftmost();
		$code .= $prod->code($namesp <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	3165	3309	
==>{
            $refs{$name}++;
            $type = $1;
        }
        my $init = "defined(\$init{'$name'}) ? \$init{'$name'} :";
        if( $t <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37497	37585	
==>efined $::RD_TRACE;').'
		$Parse::RecDescent::lastexpected = ' . ($rule->hasleftmost($sel <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39900	39988	
==>efined $::RD_TRACE;').'
		$Parse::RecDescent::lastexpected = ' . ($rule->hasleftmost($sel <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	535	634	
==>ned!" unless defined $block;
  confess "Left is not defined!" unless defined $left;
  confess "Op is <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	547	646	
==>ned!" unless defined $block;
  confess "Left is not defined!" unless defined $left;
  confess "Op is <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921040	921297	
==>printf(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921933	922190	
==>printf(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	5502	5611	
==>type
    value = shift iter
    bsr print_value
    unless iter goto loop_end_2d
    value_type = typeof value <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	3949	4089	
==>hift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = clone $op->{arg <==
3	/Users/nnunley/parrot/lib/Test/More.pm	31011	31115	
==>ct the author immediately!
WHOA
    }
}


=item B<eq_hash>

  my $is_eq = eq_hash(\%this, \%that);

Deter <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	483	580	
==>y @files = qw(
    include/parrot/cclass.h
    include/parrot/core_pmcs.h
    include/parrot/datat <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1885	1982	
==>::Value::Identifier')) {
    my $left_sym = $block->find_symbol($left->value);
    $self->SYNTAX_E <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1843	1940	
==>::Value::Identifier')) {
    my $left_sym = $block->find_symbol($left->value);
    $self->SYNTAX_E <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1765	1862	
==>::Value::Identifier')) {
    my $left_sym = $block->find_symbol($left->value);
    $self->SYNTAX_E <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959720	960077	
==>=> [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1080,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 590 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253844	254166	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "or",
                  "FLAGS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254707	255029	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "or",
                  "FLAGS <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1744	1850	
==>$index>.

=cut

sub arg
{
    my $self = shift;

    return $self->{ARGS}[shift];
}

=item C<goto_address($ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1359	1465	
==>$index>.

=cut

sub arg
{
    my $self = shift;

    return $self->{ARGS}[shift];
}

=item C<goto_address($ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33679	33815	
==>ara content into $over_type item\n";
              push @$para, splice @{shift @$paras},2;
            } else {
              DEBUG and p <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35492	35628	
==>ara content into $over_type item\n";
              push @$para, splice @{shift @$paras},2;
            } else {
              DEBUG and p <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	434	530	
==>c');
  p6rule_like('abcdef', 'bcd', qr/0: <bcd @ 1>/, '$0 capture');

=head1 DESCRIPTION

Parrot: <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	44738	44840	
==>e_S_to_nbsp { #  a recursive function
  # Sanely assumes that the top node in the excursion won't be an <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835728	835809	
==>ack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, string_copy(interpre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836481	836562	
==>ack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, string_copy(interpre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349238	349329	
==>ing_cstring_free(path); */\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350240	350331	
==>ing_cstring_free(path); */\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	353	454	
==>qw ( @ISA );
use strict;

@ISA= qw ( Parse::Yapp::Driver );
#Included Parse/Yapp/Driver.pm file--- <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	31048	31147	
==>end of test sanity checks to make sure reality came
through ok.  If anything is wrong it will die wi <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	346	443	
==>qw ( @ISA );
use strict;

@ISA= qw ( Parse::Yapp::Driver );
#Included Parse/Yapp/Driver.pm file--- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265660	266082	
==>S" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 309,
                  "ARGS" => [
                              "i",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#l <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9775	9901	
==>CurToken.".\n";

			$$token=$$value=undef;
		};

        $$errstatus=3;

		while(	  @$stack
			  and (		not exists($$st <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9337	9455	
==>CurToken.".\n";

			$$token=$$value=undef;
		};

        $$errstatus=3;

		while(	  @$stack
			  and (		not exists($$st <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1091	1203	
==>indent = '  ' x $_[0]{'indent'};
    my $text = $_[1];
    _perly_escape($text);
    $text =~  # A not-totally-br <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	19577	19679	
==>ead2 Test style

=over 4

=item B<level>

    $Test->level($how_high);

How far up the call stack shoul <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1017	1117	
==>y $MSK = ((1 << 16) << 16) ? ' & ' . MAX : '';
#	FF => "X0=rotate_left(((X1&X2)|(~X1&X3))+X0+X4+X6$MS <==
3	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	278	386	
==>head2 Functions

=over 4

=cut

package Parrot::BuildUtil;

use strict;
use warnings;

=item C<parrot_version <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	6298	6403	
==>each my $d (@_) {
    next unless defined $d and length $d;
    Carp::croak "\"$d\" isn't a valid directiv <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	7092	7197	
==>each my $d (@_) {
    next unless defined $d and length $d;
    Carp::croak "\"$d\" isn't a valid directiv <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975779	976144	
==>FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1096,
                  "ARGS" <==
3	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	722	817	
==>d by tools/dev/gen_manifest_skip.pl NOW
#
# This file should contain a transcript of the svn:ign <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11098	11191	
==>------------
1;
__END__

=head1 NAME

Pod::Escapes -- for resolving Pod EE<lt>...E<gt> sequenc <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8258	8351	
==>lumn alignment
print "Hello";tab$(15);"World"
print "Foo";tab$(15);"Stuff"
print "I am the ver <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21122	21215	
==>lumn alignment
print "Hello";tab$(15);"World"
print "Foo";tab$(15);"Stuff"
print "I am the ver <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	11139	11292	
==>.": $jit_func $extern\n";
        }
        # *) $X->vtable->{vtable}(interp, $Y, $Z)
        elsif ($opbody =~ /
        ^(?:.*\.ops")\s+
        {{\@(\d <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	2642	2743	
==>r die "Can't open up $to_file, error $!";

# To start, save all the registers, just in case
print OUTP <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1937	2033	
==>ingify to just the text content of the section,
such as "foo" for
C<< LZ<><Stuff/foo> >>, and "ba <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2630	2738	
==>);

    # some (all?) versions of File::Spec->abs2rel() prior to 3.13 return ''
    # instead of '.' to indic <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	39984	40088	
==>Formatted hoodoo...
        if( $self->{'accept_codes'} and
            $self->{'accept_codes'}{'Verbatim <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	107	201	
==>base 'Exporter';
use strict;

use vars qw(@AsmOps @EXPORT);

@Regex::Ops::Label::ISA = qw(Regex <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	53560	53691	
==>$x;
  my $out =
    # join ",\n" .
    join ", ",
    map {;
    if(!defined($_)) {
      "undef";
    } elsif(ref($_) eq 'ARRAY' or <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25561	25683	
==>ren;
      $self->require_open_brace;
 
      my $cond;

      if ($kind eq 'if') {
        $cond = Jako::Construct::Block: <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	21092	21196	
==>:.:.:.:.:.

sub _remap_sequences {
  my($self,@stack) = @_;
  
  if(@stack == 1 and @{ $stack[0] } == 3 a <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2072	2182	
==>} }
sub   end_over_text    { --$_[0]{'Indent'} }
sub   end_over_block   { --$_[0]{'Indent'} }


# . . . . . Now <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1640	1750	
==>} }
sub   end_over_text    { --$_[0]{'Indent'} }
sub   end_over_block   { --$_[0]{'Indent'} }


# . . . . . Now <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	407	507	
==>= 0.01;

=head1 METHODS

=head2 new

A kind of factory, that finds the proper subclass of Parrot::Tes <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	23067	23190	
==>opt{debug},
        "verbose+"      => \$opt{verbose},
        "library=s"     => \$opt{library},
    ) or exit(1);
    unsh <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	3516	3627	
==>o {
    my ($self, $op, $R, $lastback) = @_;
    return aop('goto', [ $R ]) if $R->{name} eq 'LABEL';
    return <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	412	522	
==>ng what pmc files should be compiled in';
our @args        = qw(ask pmc);

my %PMC_PARENTS;

# Return the (lowe <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227125	227375	
==>=> 265,
                  "ARGS" => [
                              "p",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 530 \"src/ops/cmp.ops\"\n  if (string_comp <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9840	9944	
==>ed($scratch = $self->{'Tagmap'}{$tagname}) or next;
      $scratch =~ s/\#([^\#]+)\#/${$self}{$1}/g; # in <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	12520	12621	
==>y $return;

  my ($locals, @body) = _get_args ($node,1);
  my (@variables, @values);
  for (@{$locals- <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10328	10436	
==>error token

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Shift \$error token and go to state ".
#DBG <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9863	9967	
==>error token

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Shift \$error token and go to state ".
#DBG <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	9850	9946	
==>BUCKET ]}\": $!\n";

  exit if $exit;
}

__DATA__
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYP <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	38444	38548	
==>ine at the end.
	$ins .= "\n" unless $ins =~ /\n$/;

	# Escape some characters that will go into the outp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550105	550204	
==>_object = object;\n  interpreter->current_cont = NEED_CONTINUATION;\n  interpreter->current_method = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551406	551505	
==>_object = object;\n  interpreter->current_cont = NEED_CONTINUATION;\n  interpreter->current_method = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552748	552847	
==>_object = object;\n  interpreter->current_cont = NEED_CONTINUATION;\n  interpreter->current_method = <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	33282	33422	
==>'P') {
	   $ww = temp('I');
	   print <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	34031	34171	
==>'P') {
	   $ww = temp('I');
	   print <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	34955	35095	
==>'P') {
	   $ww = temp('I');
	   print <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	6826	6966	
==>n/2) . ($len%2 ? $slash : '');
            }eg;
            # replace \* with \\*, so make will not eat the \
            $line =~ s{(\\\*)}{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104069	1104155	
==>ception(interpreter, NULL, NO_CLASS,\n\t\t\t\t\"Class '%Ss' not found\", class);\n\t{{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105284	1105370	
==>ception(interpreter, NULL, NO_CLASS,\n\t\t\t\t\"Class '%Ss' not found\", class);\n\t{{\ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	3711	3826	
==>ay;
	my $qdel = "";
	my $quotelike;
	$ldel =~ s/'//g and $qdel .= q{'};
	$ldel =~ s/"//g and $qdel .= q{"};
	$ldel = <==
3	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1914	2015	
==>w(Lua::opcode);

package CallMethOp;
use base qw(Lua::opcode);

package LabelOp;
use base qw(Lua <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20427	20513	
==>mple>, L<RTF::Writer>, L<RTF::Cookbook>, L<RTF::Document>,
L<RTF::Generator>

=head1 CO <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4318	4431	
==>e "Report this as a BUG: Cannot open $fname";
	while(<DRV>) {
                	/^\s*sub\s+_Parse\s*{\s*$/ .. /^\ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4098	4209	
==>e "Report this as a BUG: Cannot open $fname";
	while(<DRV>) {
                	/^\s*sub\s+_Parse\s*{\s*$/ .. /^\ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	322	405	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub _handle_el <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	319	402	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub _handle_el <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	575	658	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub _handle_el <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	16979	17098	
==>"# Skipping $_";
    }
  
  }
  close(IN);
}

print @norms;
print "\n ( \$] .= 5.006001 ? (\n";
print @good;
print " ) : <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3550	3649	
==>else {
      $self->SYNTAX_ERROR("Sub declaration has no fnlib property, and parent block is not a m <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6214	6313	
==>else {
      $self->SYNTAX_ERROR("Sub declaration has no fnlib property, and parent block is not a m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977269	977562	
==>"ARGS" => [
                              "i",
                              "i",
                              "s",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = P <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	13938	14039	
==>ble  = join("\n    ", @{$extra_preamble_ref});
    my $extra_postamble = join("\n    ", @{$extra_posta <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	17786	17886	
==>-----------------------

sub _make_treelet {
  my $self = shift;  # and ($para, $start_line)
  my $tr <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	23880	23996	
==>ew_label($parser);
    push @opcodes, new BranchOp( $parser,
        'result' => $lbl2,
    );
    push @opcodes, <==
3	/Users/nnunley/parrot/lib/Test/More.pm	14949	15047	
==>r you to write your own diagnostic
messages which are safer than just C<print STDERR>.

=over 4

=i <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19250	19344	
==>document will return "Hooboy,
stuff wow yeah!".

If the title can't be found, then get_short_ti <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	3087	3180	
==>t is true.

=item C<pir_output_like($code, $expected, $description)>

Runs the PIR code and pa <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1903	1993	
==>rstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
    # Yes, stipulate <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2006	2096	
==>rstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
    # Yes, stipulate <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85406	85516	
==>],
                  "BODY" => "#line 1208 \"src/ops/core.ops\"\n  PMC * const compreg_hash = VTABLE_get_pmc_ke <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86313	86423	
==>],
                  "BODY" => "#line 1208 \"src/ops/core.ops\"\n  PMC * const compreg_hash = VTABLE_get_pmc_ke <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	3519	3614	
==>e_start_token($token)>

Processes the code start token. If the code text is the name of a Parrot <==
3	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	1205	1305	
==>each macro we need: name, substitution and flag
# The length is uninteresting later on.
# 
# Example: <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11115	11208	
==>_END__

=head1 NAME

Pod::Escapes -- for resolving Pod EE<lt>...E<gt> sequences

=head1 SYNOPS <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	9944	10065	
==>Test}-1] = $result;
    $out .= "\n";

    $self->_print($out);

    unless( $test ) {
        my $msg = $todo ? "Failed ( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10557	10665	
==>s_to_incexc(\@ranges);
}

sub _ranges_to_incexc {
    my @ranges = @{ shift() };

    # Sort those pairs by t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761450	761553	
==>EGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_PMC({{\@1}}) = {{\@2}};\n    {{+=3} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762303	762406	
==>EGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_PMC({{\@1}}) = {{\@2}};\n    {{+=3} <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	11001	11135	
==>0
		ACTIONS => {
			'' => -4,
			'NAME' => -4,
			'REPEAT' => -4,
			'FOR' => -4,
			"(" => -4,
			'IF' => -4,
			'error' => 1, <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	865	967	
==>.  This will also trigger any hints-file
    # callbacks that depend on knowing whether or not we're us <==
3	/Users/nnunley/parrot/config/auto/msvc.pm	801	903	
==>.  This will also trigger any hints-file
    # callbacks that depend on knowing whether or not we're us <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53309	53406	
==>er,   PARROT_GC_DEBUG_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_GC_DEBUG_F <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54065	54162	
==>er,   PARROT_GC_DEBUG_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_GC_DEBUG_F <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	49957	50048	
==>e or quotelike operator. If found, call
C<extract_quotelike> to eat it. If C<extract_quoteli <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	7173	7303	
==>output_fh'}} 
            qq(<a name="), esc($name), qq("\n>);
    
    } 
    else 
    {
        print {$self->{'output_fh'}} "<a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712334	712429	
==>io = PIO_STDOUT(interpreter);\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713441	713536	
==>io = PIO_STDOUT(interpreter);\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496868	497016	
==>"n"
                            ],
                  "BODY" => "#line 595 \"src/ops/math.ops\"\n  {{\@1}} = floatval_mod({{\@2}}, {{\@3}});\n  {{+=4} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497738	497886	
==>"n"
                            ],
                  "BODY" => "#line 595 \"src/ops/math.ops\"\n  {{\@1}} = floatval_mod({{\@2}}, {{\@3}});\n  {{+=4} <==
3	/Users/nnunley/parrot/config/gen/icu.pm	42	133	
==>tion.
# $Id: /parrot/config/gen/icu.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669102	669244	
==>{\@1}}->vtable->push_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669874	670016	
==>{\@1}}->vtable->push_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	14696	14799	
==>pe2) = @$types;

        $template .= <<"END_PREAMBLE";


# $name
.sub unicode:"dyadic:$operator" :multi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430237	430593	
==>",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 494,
                  "ARGS" => [
                              "ic",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 74 \"src/o <==
3	/Users/nnunley/parrot/lib/Test/More.pm	15781	15876	
==>if you have diagnostics for personal testing but then wish to make
them silent for release witho <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	838	923	
==>gen/core_pmcs.pm
 */

/* &gen_from_enum(pmctypes.pasm) subst(s/enum_class_(\\w+)/\$1/e <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	228	346	
==>ed(&Pod::Simple::DEBUG)
          ? \&Pod::Simple::DEBUG
          : sub() {0}
      }

use Text::Wrap 98.112902 ();
$T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223554	223641	
==>BODY" => "#line 516 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224496	224583	
==>BODY" => "#line 516 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	249095	249346	
==>"CODE" => 289,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 670 \"src/ops/cmp.ops\"\n  {{\@1}} = <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5774	5876	
==>ipping...\n";
			} else {
				push @{$code{$seg}->{code}}, "IFBRANCH_$_:\n";
			}
			while($_=pop(@{$el <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8122	8220	
==>ipping...\n";
		} else {
			push @{$code{$seg}->{code}}, "IFBRANCH_$_:\n";
		}
		while($_=pop(@{$el <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2799	2899	
==>goto_pop
{
    my ($self) = @_;

    return "opcode_t* pop_addr = (opcode_t*)pop_dest(interpreter);\n <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	3861	3957	
==>v	show version
All the options can be shortened to their unique prefixes,
and one leading dash (" <==
3	/Users/nnunley/parrot/config/auto/cgoto.pm	1563	1647	
==>(BUILD_TOOLS_DIR)/ops2c.pl CGoto --core

$(INC_DIR)/oplib/core_ops_cgp.h: $(OPS_DIR)/ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31871	31985	
==>->{methods}[$n], $line, $out_name);
    }
    my $parameters = $method->{parameters};
    my $n=0;
    my @args = g <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33448	33562	
==>->{methods}[$n], $line, $out_name);
    }
    my $parameters = $method->{parameters};
    my $n=0;
    my @args = g <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40505	40619	
==>->{methods}[$n], $line, $out_name);
    }
    my $parameters = $method->{parameters};
    my $n=0;
    my @args = g <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	669	754	
==>IVERSAL::isa($dest, 'Jako::Construct::Expression::Value::Identifier');
  confess("Left <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	660	745	
==>IVERSAL::isa($dest, 'Jako::Construct::Expression::Value::Identifier');
  confess("Left <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	549	634	
==>IVERSAL::isa($dest, 'Jako::Construct::Expression::Value::Identifier');
  confess("Left <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16136	16247	
==>d $self->get(4)->is_value
    ) {
      my $block = $self->current_block();
      my $ident = Jako::Construct::E <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16907	17018	
==>d $self->get(4)->is_value
    ) {
      my $block = $self->current_block();
      my $ident = Jako::Construct::E <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17712	17823	
==>d $self->get(4)->is_value
    ) {
      my $block = $self->current_block();
      my $ident = Jako::Construct::E <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	21601	21709	
==>s;
	my ($lastpos, $firstpos);
	my @fields = ();

	#for ($$textref)
	{
		my @func = defined $_[1] ? @{$_[1]} : <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8319	8413	
==>$(15);"Stuff"
print "I am the very model of a modern";tab$(15);"More"
print "Hello","Again",d
d <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21183	21277	
==>$(15);"Stuff"
print "I am the very model of a modern";tab$(15);"More"
print "Hello","Again",d
d <==
3	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	1201	1339	
==>$line =~ $verbatim_begin ) {
            $verbatim = 1;
        }
        if ( $line =~ $verbatim_end ) {
            $verbatim_chunk .= $l <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9321	9434	
==>ath_for_file_with_relative_path
{
    my $self = shift;
    my $path = shift || return;
    my ($volume, $director <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3496	3599	
==>'typeof', 'I16', 'P17'],
  ['',            'branch', 'apply_COUNT'],
  ['apply_ARRAY', 'new', 'P3', '.Ar <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954304	954525	
==>arrot_encoding_number_of_str(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955095	955316	
==>arrot_encoding_number_of_str(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	3873	3976	
==>/pmc/pmc_$pmc.h

    # build list of libraries for link line in Makefile
    my $slash = $conf->data->ge <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	1466	1580	
==>0.
 *
 * Any changes made here will be lost!
 *
 */

EOC
}

=item C<gen_ret($method, $body)>

Generate the C code f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830630	830715	
==>@1}};\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &i, STACK_ENT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831371	831456	
==>@1}};\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &i, STACK_ENT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307556	307904	
==>,
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 358,
                  "ARGS" => [
                              "s",
                              "ic" <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	4479	4584	
==>ndContext="#pop">
          <RegExpr attribute="String" context="#stay" String="'" />
      </context>

EN <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	596	696	
==>::Step::Base;

use strict;
use warnings;

=head2 Methods

=head3 Constructors

=over 4

=item * C<new <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	17562	17682	
==>me (keys %all) {
        my $file = $all{$name}->{file};
        $file =~ s/\.\w+$/.dump/;

        my $existing = find_f <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	496	596	
==>look iterations, 

=item * the estimated number of ops performed,

=item * the elapsed time, and 

=i <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	500	598	
==>look iterations,

=item * the estimated number of ops performed,

=item * the elapsed time, and

=i <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2306	2422	
==>->{declarations}}) {
				if (exists $main::common{$var}) {
					push(@saves, $var);
				}
			}
			if (@saves) {
				$ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2715	2831	
==>->{declarations}}) {
				if (exists $main::common{$var}) {
					push(@saves, $var);
				}
			}
			if (@saves) {
				$ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	47753	47853	
==>t " _out to ", \$out, "\n";
  
  $mutor->($parser) if $mutor;

  $parser->parse_string_document( $_[0 <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	3769	3905	
==>__list',
        script  => '__script',
        var     => '__read',
    );
    
    # add code to get subs for needed conversions
    my <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	4272	4370	
==>t" context="#stay" String="[^\=]*" />
          <RegExpr attribute="Comment" context="#pop" String= <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	2560	2654	
==>name } });
  $_->sax($handler) foreach $self->content;
  $handler->end_element({ Name => 'modul <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1048	1161	
==>ach my $x (@$new) {
    if(ref($x || '') eq 'ARRAY') {
      $x = $class->new($x); # recurse
    } elsif(ref($x || <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63241	63350	
==>l($name);

						_check_insatiable($name,$1,$grammar,$line) if $::RD_CHECK;
					}
				}
				elsif ($grammar = <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63962	64071	
==>l($name);

						_check_insatiable($name,$1,$grammar,$line) if $::RD_CHECK;
					}
				}
				elsif ($grammar = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16377	16485	
==>Value->new($block, $self->forth);
      my $op    = $self->forth->text;
      my $right = Jako::Construct::Ex <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17148	17256	
==>Value->new($block, $self->forth);
      my $op    = $self->forth->text;
      my $right = Jako::Construct::Ex <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17953	18061	
==>Value->new($block, $self->forth);
      my $op    = $self->forth->text;
      my $right = Jako::Construct::Ex <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Posix.pm	322	439	
==>t_test_prog {
    my $self = shift;
    my ( $count, $options ) = @_;

    my $lang_fn        = Parrot::Test::per_test <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	452	562	
==>t_test_prog {
    my $self = shift;
    my ( $count, $options ) = @_;

    my $lang_fn = Parrot::Test::per_test <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr3.pm	344	454	
==>t_test_prog {
    my $self = shift;
    my ( $count, $options ) = @_;

    my $lang_fn = Parrot::Test::per_test <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	2121	2287	
==>/) {
            # If there is an existing one, stash it.
            if ($cur_method) {
                push @methods, $cur_method;
            }

            # Initi <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	9389	9512	
==>op2
    .return ($N1)
two:
    $N1 = cos op2
    .return ($N1)
three:
    $N1 = tan op2
    .return ($N1)
four:
    $N1 = op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802219	802471	
==>"CODE" => 905,
                  "ARGS" => [
                              "p",
                              "k",
                              "sc"
                            ],
                  "BODY" => "#line 467 \"src/ops/set.ops\"\n    {{\@1}}- <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	17209	17323	
==>>]\n"),
                 @R_ops,
		 aop('pushint', [ $counter, "dynamic alt counter" ]),
		 aop('goto', [ $next ]), <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	11131	11236	
==>o rmdir ' . $_[0]->path . ": $!";
    
    $_[0]->SUPER::delete;
}

=item C<delete_contents()>

Deletes th <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	721	824	
==>qw(Jako::Construct::Type));
  confess "Identifier (" . ref($ident) . ") is not!" unless UNIVERSAL::isa($ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	746	849	
==>qw(Jako::Construct::Type));
  confess "Identifier (". ref($ident) . ") is not!"  unless UNIVERSAL::isa($ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	710	813	
==>qw(Jako::Construct::Type));
  confess "Identifier (". ref($ident) . ") is not!"  unless UNIVERSAL::isa($ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1963	2086	
==>odule.";

        ref($class)
    and $class=ref($class);

    bless($self,$class);
}

sub YYParse {
    my($self)= <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1896	2010	
==>odule.";

        ref($class)
    and $class=ref($class);

    bless($self,$class);
}

sub YYParse {
    my($self)= <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	15472	15573	
==>pe(assembly, class_type, class_id)
    $S0 = namespace_to_key($S0)
    gen_pir = concat $S0
    gen_pi <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	4238	4352	
==>ath)
    {
        return unless $dir = $dir->existing_directory_with_name($name);
    }
    
    return $dir->exis <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7268	7366	
==>r"
a$="   Flush   "
print ">";ltrim$(a$)
print rtrim$(a$);"<"
' A's and -'s
print string$(10,75-10) <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18997	19095	
==>r"
a$="   Flush   "
print ">";ltrim$(a$)
print rtrim$(a$);"<"
' A's and -'s
print string$(10,75-10) <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2323	2428	
==>->emit_par(-2) }
sub end_head4       { $_[0]->emit_par(-1) }
sub end_Para        { $_[0]->emit_par( 0) }
s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1891	1996	
==>->emit_par(-2) }
sub end_head4       { $_[0]->emit_par(-1) }
sub end_Para        { $_[0]->emit_par( 0) }
s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	17921	18025	
==>filter(shift)->any_errata_seen" \
   thingy.pod > thingy.rtf

=head1 DESCRIPTION

This class is a formatt <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2140	2236	
==>lf->prefix($self->peer->prefix);
  }

  if ($self->prefix) {
    $handler->start_element({ Name = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2017	2113	
==>lf->prefix($self->peer->prefix);
  }

  if ($self->prefix) {
    $handler->start_element({ Name = <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	28957	29051	
==>op_exact_inexact {
}

sub _op_inexact_exact {
}

sub _op_number_string {
}

sub _op_string_numb <==
3	/Users/nnunley/parrot/config/auto/env.pm	1333	1455	
==>se;
        $self->set_result('unsetenv');
    } else {
        print " (no) " if $verbose;
        $self->set_result('no') <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35030	35134	
==>nexpected
				   = $Parse::RecDescent::lastunexpected;
			}
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::R <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42140	42244	
==>nexpected
				   = $Parse::RecDescent::lastunexpected;
			}
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::R <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16060	16184	
==>and $self->get(2)->is_value
      and $self->get(3)->is_infix_arith
      and $self->get(4)->is_value
    ) {
      my $block <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426168	426275	
==>.ops\"\n  mmd_dispatch_v_pi(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427055	427162	
==>.ops\"\n  mmd_dispatch_v_pi(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	5828	5946	
==>$cmd eq 'no_plan' ) {
        $self->no_plan;
    }
    elsif( $cmd eq 'skip_all' ) {
        return $self->skip_all($a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151028	151119	
==>src/ops/cmp.ops\"\n  if (0 == string_equal(interpreter,\n      {{\@1}}->vtable->get_string(i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152006	152097	
==>src/ops/cmp.ops\"\n  if (0 == string_equal(interpreter,\n      {{\@1}}->vtable->get_string(i <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	16036	16155	
==>] eq 'i'));
        or_flag(\$jumps, "PARROT_JUMP_RESTART")     if ($restart);

        $op->jump($jumps);
        $self <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	6086	6202	
==>if value >= 0.0 goto print_value_1
    result .= unicode:"\u207b"
    value = abs value
  print_value_1:
    $S0 = va <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	4097	4195	
==>one million bytes). I use it to
hash passwords.

=item *

educational purposes

=back

=head1 SYNOP <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6397	6495	
==>ANCH_switch_${CURIC}_LOOP:
if i == 0 goto POST_BRANCH_switch_${CURIC}_LOOP_EXIT
    dec i
    j = P <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4335	4433	
==>ANCH_switch_${CURIC}_LOOP:
if i == 0 goto POST_BRANCH_switch_${CURIC}_LOOP_EXIT
    dec i
    j = P <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	6266	6374	
==>e indenting.  This is
    # comparitively easy.  Each level of the hierarchy should be
    # indented two spa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597906	597996	
==>Y" => "#line 351 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598953	599043	
==>Y" => "#line 351 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{ <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	4681	4829	
==>2;
                $decl .= <PMC> until ($decl =~ s/\{.*//);
                $const = 1 if $decl =~ /\bconst_too\b/;
                next PMC if $dec <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4588	4693	
==>_DBP/;
	eval join('',@drv);
}

#Note that for loading debugging version of the driver,
#this file wil <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4358	4458	
==>_DBP/;
	eval join('',@drv);
}

#Note that for loading debugging version of the driver,
#this file wil <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	82	186	
==>%EXPORT_TAGS);

$VERSION   = '0.01';
@ISA       = qw(Exporter);
@EXPORT_OK = qw(parse);

use Data::Dumper <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712432	712521	
==>s(interpreter, io, \" \");\n  s = Parrot_sprintf_c(interpreter, \"%.12g\", (double){{\@1}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713539	713628	
==>s(interpreter, io, \" \");\n  s = Parrot_sprintf_c(interpreter, \"%.12g\", (double){{\@1}} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	459	569	
==>return sprintf("_%s_%d", uc $kind, ++$self->{BLOCK_COUNT});
}


#
# temp_reg()
#

sub temp_reg
{
  my $self = s <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4122	4229	
==>ror.\n";
}

sub _DBLoad {
	{
		no strict 'refs';

			exists(${__PACKAGE__.'::'}{_DBParse})#Already lo <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3914	4014	
==>ror.\n";
}

sub _DBLoad {
	{
		no strict 'refs';

			exists(${__PACKAGE__.'::'}{_DBParse})#Already lo <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	625	760	
==>, $desc ) = @_;

        ++$count;
        my( $lang_f, $pasm_f, $by_f, $out_f ) = map { # JMG
            my $t = $0; $t =~ s/\.t$/_$co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627418	627506	
==>ters. */\n  {{\@1}} = pmc_new_noinit(interpreter, {{\@2}});\n  {{\@1}}->vtable->init(inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628562	628650	
==>ters. */\n  {{\@1}} = pmc_new_noinit(interpreter, {{\@2}});\n  {{\@1}}->vtable->init(inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686503	686810	
==>, {{\@2}});\n   {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687393	687700	
==>, {{\@2}});\n   {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
3	/Users/nnunley/parrot/config/gen/config_pm.pm	628	732	
==>b runstep
{
    my ($self, $conf) = @_;

    $conf->data->clean;

    genfile('config/gen/config_pm/mycon <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39488	39620	
==>mbol},
        'type'   => 'Sub',
    );
    push @opcodes1, new NewClosureOp( $parser,
        'result' => $result,
        'ar <==
3	/Users/nnunley/parrot/tools/dev/pbc_header.pl	457	552	
==>mation in the bytecode,
but can of course not assure that it will run correctly, when incompatib <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	28942	29030	
==>m PerlHash array_$englishname
	find_global \$P1, "BASICARR"
	\$P1["${_}$seg"]= array_$eng <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11343	11448	
==>UT);
    close(IN);


    $outfile = "$outfile_base.branches.html";
    print "Writing $outfile..\n" if $D <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	1344	1442	
==>takes precedence.

Here is an example parrotbench.conf:
    [global]
    directory = ../../examples <==
3	/Users/nnunley/parrot/config/auto/bc.pm	79	173	
==>93 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/bc.pm - Check whether GNU bc w <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1223	1358	
==>gorithm:
      s/(
         [^\n]{55}         # Snare some characters from a line
         [^\n\ ]{0,50}     #  and finish any current w <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1167	1302	
==>gorithm:
      s/(
         [^\n]{55}         # Snare some characters from a line
         [^\n\ ]{0,50}     #  and finish any current w <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	26526	26648	
==>rams;
	$params{$c} = $c;
	$lexicals{$c} = $c;
	$names{$c} = $c;
	print <<EOC;
        \t $cmt
EOC
    }
    push @stack, [$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478943	479180	
==>\");\n  {{\@1}} = floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479835	480072	
==>\");\n  {{\@1}} = floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	4652	4748	
==>rsion = $ops->minor_version;
my $patch_version = $ops->patch_version;
my $num_ops     = scalar $o <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33455	33562	
==>ew ($$$$;$$$)
{
	my $class = ref($_[0]) || $_[0];
	bless 
	{
		"subrule"   => $_[1],
		"lookahead" => $_[2], <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8142	8245	
==>me2character_number) {
    if($] < 5.007  and  $number > 255) {
      $Name2character{$name} = $FAR_CHAR <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	27631	27734	
==>lback(s), which might be '0', or '1'.
      $self->{'accept_codes'}{$new_letter}
        = (@fallbacks = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84120	84470	
==>preg",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 105,
                  "ARGS" => [
                              "sc",
                              "p <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6950	7062	
==>c code generation failed ($?)\n";
    }
}

sub compile {
    my ($src_stem, $dest_stem) = @_;

    $dest_stem ||= <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7161	7273	
==>c code generation failed ($?)\n";
    }
}

sub compile {
    my ($src_stem, $dest_stem) = @_;

    $dest_stem ||= <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3294	3408	
==>t('ld_debug') =~ /-debug/) {
            my $linkflags = $conf->data->get('linkflags');
            $linkflags =~ s <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4798	4912	
==>t('ld_debug') =~ /-debug/) {
            my $linkflags = $conf->data->get('linkflags');
            $linkflags =~ s <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	1334	1440	
==>hould be at least one
path otherwise an exception is raised.

=cut

sub new
{
    my $self = ref $_[0] ? re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634119	634540	
==>IRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 710,
                  "ARGS" => [
                              "p",
                              "i",
                              "s"
                            ],
                  "BODY" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627411	627501	
==>e registers. */\n  {{\@1}} = pmc_new_noinit(interpreter, {{\@2}});\n  {{\@1}}->vtable->init <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628555	628645	
==>e registers. */\n  {{\@1}} = pmc_new_noinit(interpreter, {{\@2}});\n  {{\@1}}->vtable->init <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	12042	12147	
==>ion if possible, so we can
    # render things as (R) instead of ((?:R))
    if ($str =~ /^\(\?\:(.*)\)$/) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	2641	2737	
==>ft->is('infix-bit');     }
sub is_infix_concat  { return shift->is('infix-concat');  }
sub is_inf <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1100	1193	
==>CONTEXT(interpreter->ctx)->pred_offset)

#  define opcode_to_prederef(i, op) \\
     ((void**) <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	4027	4155	
==>e =~ /^\w+(?:::\w+)*$/ ){
            $out .= "    if (defined(\$init{'$name'})) {\n";
           $out .= "       if (ref \$init{ <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	9416	9543	
==>lobal_$symbol" : "local_$symbol";
			} else {
			    $show .= $global ?
				$symbol : lc $symbol;
			}
		    }
		    print $show <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	11777	11883	
==>t_err = _slurp('./test.err');

    # cleanup
    unlink "test.err";

    return ($output, $out_err, $retval <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	24002	24176	
==>_command($cmd,
                                     'STDOUT' => $build_f,
                                     'STDERR' => $build_f);
            $builder->diag("'$cmd' failed <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	24763	24937	
==>_command($cmd,
                                     'STDOUT' => $build_f,
                                     'STDERR' => $build_f);
            $builder->diag("'$cmd' failed <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	5399	5521	
==>e);
        }
    }
    
    return @files;
}

=item C<directories()>

This gives you an array of instances of the same cla <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37714	37845	
==>"..." => 39,
			"(" => 40,
			"#" => 41
		},
		DEFAULT => -106,
		GOTOS => {
			'exp' => 90,
			'functioncall' => 31,
			'fu <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4940	5066	
==>each my $kid (@{ $op->{args} }) {
        my $kidmax = $kid->maxlen();
        return undef if ! defined $kidmax;
        $maxl <==
3	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	228	329	
==>SCUSSION

This script works by appending the line

  /* CHECKSUM: <checksum> */

to the end of all gen <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650065	650308	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "valid_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650986	651229	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "valid_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	26062	26165	
==>izeof(_temp_mmd_init[0]))
        Parrot_mmd_register_table(interp, entry,
            _temp_mmd_init, N <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557953	558042	
==>)->current_cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAILCALL;\n  int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559337	559426	
==>)->current_cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAILCALL;\n  int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560709	560798	
==>)->current_cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAILCALL;\n  int <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3495	3637	
==>elf{LEX};
}


#################
# Private stuff #
#################


sub _CheckParams {
	my($mandatory,$checklist,$inarray,$outhash) <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3317	3449	
==>elf{LEX};
}


#################
# Private stuff #
#################


sub _CheckParams {
	my($mandatory,$checklist,$inarray,$outhash) <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	1874	1967	
==>ding it, they should
be changed to make the above operations explicitly supported.

Otherwise, <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	15939	16105	
==>de $exit_code")
                  if $exit_code and not $pass;

            unless($ENV{POSTMORTEM}) {
                unlink $out_f;
            }

            return <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	18490	18656	
==>de $exit_code")
                  if $exit_code and not $pass;

            unless($ENV{POSTMORTEM}) {
                unlink $out_f;
            }

            return <==
3	/Users/nnunley/parrot/tools/dev/cc_flags.pl	981	1097	
==>$regex = qr/$1/;
    }
    elsif (s/^(\S+)\s*//) {
	$regex = qr/^\Q$1\E$/;
    }
    else {
	die "syntax error in $cf <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1027338	1027596	
==>\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549170	549427	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578443	578700	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	288	394	
==>rrot::Test::Python. Abstraction needed.

=cut

sub new {
    return bless {};
}

sub output_is() {
    my ( <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	326	432	
==>rrot::Test::Python. Abstraction needed.

=cut

sub new {
    return bless {};
}

sub output_is() {
    my ( <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	6773	6870	
==>ng the algorithm is derived from that in the RFC and is
covered by the following copyright:

=over <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	19575	19691	
==>'is not' => 'eq_addr',
    );
    my %op_map = (
	'==' => 'eq',
	'!=' => 'ne',
	'>' => 'gt',
	'>=' => 'ge',
	'<' => ' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3141	3232	
==>-less) one token per line, with line-wrapping.

L<Pod::Simple::DumpAsText> is rather like th <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	2907	2998	
==>e", "session", "state") structure that is either
explicitly passed between functions or impl <==
3	/Users/nnunley/parrot/languages/urm/urm-old.pl	339	443	
==>) {
	print "Werte für $1: ";
	my $input = readline(STDIN);
	my @register = split (",", $1);
	chomp $inpu <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	8797	8900	
==>" or die "Can't restore  stdout" if $out;
    open  STDERR, ">&OLDERR" or die "Can't restore  stderr" if <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8316	8418	
==>" or die "Can't restore  stdout" if $out;
    open STDERR, ">&OLDERR" or die "Can't restore  stderr" if <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	6617	6751	
==>$1); /me;
    s/{{=([^*][^{]*?)}}/  $trans->goto_address($1); /me;

    s/{{\^(-?\d+)}}/      $1                        /me;
    s/{{\^ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146362	146475	
==>patch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_EQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167588	167701	
==>patch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_EQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "L <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26922	27058	
==>d typeinfo\n";

		# Now call pre_op and append code that it generates.
		my $pre_op = $srm->pre_op($rule->{'pop'}, $rule->{'push'});
		$p <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	13556	13682	
==>} <=> $parent_hash{$b} }
            keys %parent_hash;
        for my $parent (@parents) {
            next if exists $class-> <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	3107	3206	
==>or $i (0 .. (length $message)/64-1) {
		my @X = unpack 'V16', substr $message,$i*64,64;	
		($a,$b,$c <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	46499	46650	
==>[0] );
            [ @{ $_[1] }, @{ $_[2] } ];
        }
	],
	[#Rule 9
		 'stat', 3,
sub
#line 88 "Lua\lua51.yp"
{
            BuildAssigns( $_ <==
3	/Users/nnunley/parrot/config/gen/platform.pm	2893	3027	
==>rated);
    for (@headers) {
        if (-e $_) {
            local $/ = undef;
            print("\t$_\n") if defined $verbose && $ver <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	46654	46775	
==>e terminal newline on #$i: {$p->[$i]}, after {$p->[$i-1]}\n";
      } else {
        DEBUG > 5 and print
         "No term <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806055	806142	
==>ps/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed(interpreter, {{\@2}}, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806961	807048	
==>ps/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed(interpreter, {{\@2}}, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	4199	4350	
==>YPE" => "inline",
                  "CODE" => 5,
                  "ARGS" => [],
                  "BODY" => "#line 129 \"src/ops/core.ops\"\n    opcode <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2079	2194	
==>t', 'P7', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'], <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	20369	20482	
==>push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new NewOp( $parser <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21648	21761	
==>push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new NewOp( $parser <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088920	1089049	
==>le->slice(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089868	1089997	
==>le->slice(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35703	35793	
==>esc = $_[0]->{"expected"} || $_[0]->{"subrule"};
	$desc = "<matchrule:$desc>" if $_[0]->{"m <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	4707	4830	
==>reach my $arg (@{ $t->{args} }) {
            if (UNIVERSAL::isa($arg, 'Regex::Ops::Tree')) {
                # $arg is a re <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	10057	10180	
==>reach my $arg (@{ $t->{args} }) {
            if (UNIVERSAL::isa($arg, 'Regex::Ops::Tree')) {
                # $arg is a re <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	11315	11416	
==>egex::Ops::Tree::multi_match::render {
    my $op = shift;
    my ($min, $max, $greedy, $R) = @{ $op-> <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30717	30869	
==>' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => - <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40067	40219	
==>' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => - <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41694	41846	
==>' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => - <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	6045	6144	
==>";
    }
    if($info->{path} =~ /\Wicu\Wsource/) {
	s/Copyright \(C\) [^\n]+\n *Corporation [^\n]+\ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	3913	4001	
==>m_is($code, $expected, $description)>

Compile the Parrot Intermediate Representation and <==
3	/Users/nnunley/parrot/config/auto/cgoto.pm	1742	1828	
==>ot/OpsFile.pm lib/Parrot/Op.pm lib/Parrot/OpTrans/CGP.pm lib/Parrot/OpLib/core.pm
	$(PE <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1947	2068	
==>et . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/include' . $PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/ <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2243	2364	
==>et . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/include' . $PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2038	2159	
==>et . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/include' . $PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9149	9251	
==>' Expect Correct
DIM A(1,1)
RO=1
IF A(RO,5)=0 THEN GOSUB 20: REM GOO
   end
20 print "Correct"
   retur <==
3	/Users/nnunley/parrot/examples/benchmarks/addit.pl	226	322	
==>1 SYNOPSIS

    % time perl examples/benchmarks/addit.pl

=head1 DESCRIPTION

Joe Wilson's origin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	626605	626889	
==>UMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627748	628032	
==>UMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628892	629176	
==>UMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846197	846461	
==>NAME" => "chr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846992	847256	
==>NAME" => "chr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	4119	4231	
==>cription = $step->description();
        $description = "" unless defined $description;

        # set per step v <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	2871	2970	
==>from the current one. If a count is given, then that
# many tokens (at most, given the possibility o <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4829	4922	
==>${ITEMP0} = elements ${STYPES}
dec ${ITEMP0}
${PTEMP0} = ${STYPES}[${ITEMP0}]

# We'll use reg <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9199	9387	
==>var} ) ) {
                my $result   = $defn;
                my $last_key = pop @{$var};
                foreach my $key ( @{$var} ) {
                    push @opcodes, @{ $key->[1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25774	25959	
==>_RESTART",
                  "NAME" => "returncc",
                  "FLAGS" => "",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	2482	2632	
==>lines_flag,
            "help"          => \$help_flag,
            "renum"          => \$renum_flag,
          );

sub Usage {
    print STDERR <<_EOF <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19272	19554	
==>RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20048	20330	
==>RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	471	577	
==>en_delimited_pat
				&gen_extract_tagged

				&delimited_pat
			       ) ] );

Exporter::export_ok_tags('AL <==
3	/Users/nnunley/parrot/config/gen/icu.pm	4459	4574	
==>@ && cc_run() =~ /^$header OK/) {

        # Ok, we don't need anything more.
        print "Your compiler found the <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	18609	18705	
==>return $1;
}

=item C<minor_version()>

Returns the minor version number.

=cut

sub minor_versio <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	587	686	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub _handle_element_start {
  # ($self, $e <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	334	428	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub _handle_element_start { # self, t <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	331	415	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub _handle_element_start { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022619	1022889	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodelocalti <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023468	1023738	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodelocalti <==
3	/Users/nnunley/parrot/config/init/optimize.pm	876	982	
==>disable debug flags
        $conf->data->set(cc_debug => '');
        $conf->data->add(' ', ccflags => "-DD <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21862	21985	
==>p, $right);

      if ($self->get(1)->is_if or $self->get(1)->is_unless) {
        $cond = $self->forth->text;

        $sel <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22795	22918	
==>p, $right);

      if ($self->get(1)->is_if or $self->get(1)->is_unless) {
        $cond = $self->forth->text;

        $sel <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24442	24565	
==>p, $right);

      if ($self->get(1)->is_if or $self->get(1)->is_unless) {
        $cond = $self->forth->text;

        $sel <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	2341	2448	
==>config_c.pl'),
            $self->new_item('', 'tools/build/pmc2c.pl'),
            $self->new_item('', 'too <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	5911	6003	
==>+:/;
	($desc) = /(?:^|\n) *Overview: *\n(((?!$label) *[^\n]+\n)+)/s;
	$info->{warning} .= "Th <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1251	1357	
==>rride the user.  If a non-existent program is specified then
    # the user is responsible for the conseque <==
3	/Users/nnunley/parrot/config/inter/make.pm	1072	1178	
==>rride the user.  If a non-existent program is specified then
    # the user is responsible for the conseque <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1248	1354	
==>rride the user.  If a non-existent program is specified then
    # the user is responsible for the conseque <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2220	2333	
==>]->value) unless $arg_sym;
      $actual_arg_type = $arg_sym->type; 
    }
    else {
      $actual_arg_type = $ar <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1920	2033	
==>]->value) unless $arg_sym;
      $actual_arg_type = $arg_sym->type; 
    }
    else {
      $actual_arg_type = $ar <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	6033	6136	
==>turn @ops;
}

sub need_group_setup {
    my ($self, $group) = @_;
    $self->{_setup_starts}{$group} = 1 <==
3	/Users/nnunley/parrot/lib/Test/More.pm	2248	2345	
==>!
  BAIL_OUT($why);


=head1 DESCRIPTION

B<STOP!> If you're just getting started writing tests, h <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	3257	3352	
==>mes in the class tree.

=item C<noinit>

Used with C<abstract>: No C<class_init> code is generat <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	25743	25833	
==>ge Parse::RecDescent::Token;

sub sethashname { $_[0]->{hashname} = '__PATTERN' . ++$_[1]-> <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	3165	3302	
==>c:*']      =  "    %1 = exp %1"      # exp
    $P0[unicode:"monadic:\x{d7}"] =  <<"END_PIR"            # signum
    $N100 = %1
    $I100 = <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	19677	19794	
==>node at $i\n";
        splice(@$treelet, $i, 1); # just nix this node (and its descendants)
        # no need to back- <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7661	7753	
==><short_description()>

Returns a short description of the file extracted from the C<NAME> sec <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	11589	11715	
==>}
        # *) $R = $X->vtable->{vtable}(interp, $Y, $Z)
        elsif ($opbody =~ /
        ^(?:.*\.ops")\s+
        {{\@(\d)} <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4763	4865	
==>T remove comment at end of sub !!!
sub _Parse {
    my($self)=shift;

	my($rules,$states,$lex,$erro <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4527	4625	
==>T remove comment at end of sub !!!
sub _Parse {
    my($self)=shift;

	my($rules,$states,$lex,$erro <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	5240	5365	
==>}

      DEBUG > 1 and print "  $type " , $token->text, "\n";
      
      $scratch = $token->text;
      $scratch =~ tr/\t\cb <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	813	912	
==>ix_X_codes(1);
  $new->nbsp_for_S(1);
  $new->{'Thispara'} = '';
  $new->{'Indent'} = 0;
  $new->{'I <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	626	725	
==>ix_X_codes(1);
  $new->nbsp_for_S(1);
  $new->{'Thispara'} = '';
  $new->{'Indent'} = 0;
  $new->{'I <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322256	322392	
==>n"
                            ],
                  "BODY" => "#line 134 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (UINTVAL)((Parrot_UInt4)({{\ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1801	1911	
==>eturn "";
}

# Extra subroutines required for the mapper.
sub subs() {
	# No extra subs.
	return "";
}

# Label <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	841	951	
==>eturn "";
}

# Extra subroutines required for the mapper.
sub subs() {
	# No extra subs.
	return "";
}

# Label <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	598	708	
==>eturn "";
}

# Extra subroutines required for the mapper.
sub subs() {
	# No extra subs.
	return "";
}

# Label <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4865	4961	
==>or)
     = @$self{ 'RULES', 'STATES', 'LEX', 'ERROR' };
	my($errstatus,$nberror,$token,$value,$ <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	331	426	
==>>. It parses the JIT file for the
specified CPU architecture type (F<src/jit/cpu-architecture-na <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4625	4719	
==>or)
     = @$self{ 'RULES', 'STATES', 'LEX', 'ERROR' };
	my($errstatus,$nberror,$token,$value,$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1266	1390	
==>em C<pc()>

Sets/gets the current position in Parrot code.

=cut

sub pc
{
    my $self = shift;

    if (@_)
    {
        $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	875	999	
==>em C<pc()>

Sets/gets the current position in Parrot code.

=cut

sub pc
{
    my $self = shift;

    if (@_)
    {
        $ <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	5051	5153	
==>vn/text-base/$_.svn-base" and MANIFEST();
}

sub MANIFEST {
    my $loc = '[]';
    for ($File::Find::n <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19174	19309	
==>ate 55
		ACTIONS => {
			"(" => 8,
			'NAME' => 4
		},
		GOTOS => {
			'functioncall' => 107,
			'var' => 108
		}
	},
	{#State <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	3510	3630	
==>ace the original
    # reference.

    foreach my $stmt (@output2) {
        # $stmt : { label => ?label, code => op }
	m <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22885	22983	
==>arse::RecDescent::_tracefirst($text))
							if defined $::RD_TRACE;
		}
		') . ($self->{"lookahead <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	3160	3274	
==>ot obtained:\n\n";
	foreach (@no_descriptions) {
	    my $top = $_->{top};
	    $top =~ s/^/>  /mg;
	    print "- $ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36142	36245	
==>ting.

The C<Null> PMC throws an execption for all methods.

=cut

sub body
{
    my ($self, $method, $l <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	215	314	
==>c);
use vars qw(%code %options @basic %common);
use vars qw( @syms @type );
use vars qw( %labels $ru <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932995	933307	
==>re",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1048,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 4 <==
3	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	1061	1162	
==>d files.
# 
# Ignore the SVN directories
\B\.svn\b

# debian/ should not go into release tarballs
^deb <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3916	4016	
==>d files.
#
# Ignore the SVN directories
\B\.svn\b

# debian/ should not go into release tarballs
^deb <==
3	/Users/nnunley/parrot/config/gen/platform.pm	891	1001	
==>'-', $Config{archname}))[0] eq 'ia64') {
        $platform = 'ia64';
    }

    $platform = 'generic' unless -d <==
3	/Users/nnunley/parrot/lib/Test/More.pm	36790	36884	
==>ore.

L<Test::Class> is like XUnit but more perlish.

L<Test::Deep> gives you more powerful com <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500788	501027	
==>> "inline",
                  "CODE" => 575,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 621 \"src/ops/math.ops\"\n  {{ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5526	5629	
==>ght be crucial
sub gather_groups_and_libs {
    my @pmcs = @_;

    my ( %group_files, %group_libs, %pmc <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5737	5840	
==>ght be crucial
sub gather_groups_and_libs {
    my @pmcs = @_;

    my ( %group_files, %group_libs, %pmc <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	3723	4155	
==>scalar($self->blocks) == 1;

  return pop @{$self->{BLOCKS}};
}


###############################################################################
###############################################################################
##
## MAIN PROGRAM
##
###############################################################################
###############################################################################


#
# Tokenize the input, <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28167	28264	
==>d
				   = ($lastsep||"").$text;
			}'.($::RD_NO_TRACE?'':'
			Parse::RecDescent::_trace(q{<<Didn\ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32442	32539	
==>d
				   = ($lastsep||"").$text;
			}'.($::RD_NO_TRACE?'':'
			Parse::RecDescent::_trace(q{<<Didn\ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	1822	1930	
==>arrot::Docs::Section::Parrot');
}

=item C<html_link($path)>

Returns the HTML link for the section.

=cut

s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	310070	310171	
==>nterpreter->pdb->state & PDB_BREAK)) {\n        interpreter->pdb->state |= PDB_BREAK;\n        interpr <==
3	/Users/nnunley/parrot/lib/Test/More.pm	10561	10661	
==>l in those cases where you are comparing numbers and
is()'s use of C<eq> will interfere:

    cmp_ok( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5128	5252	
==>sLabel);

    while (@$incexc) {
        my $first = shift(@$incexc);
        my $last = shift(@$incexc);
        if (defined <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4803	4927	
==>sLabel);

    while (@$incexc) {
        my $first = shift(@$incexc);
        my $last = shift(@$incexc);
        if (defined <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	10790	10899	
==>$titlename);

  my $head1_text_content;
  my $para_text_content;

  while(
    ++$token_count <= ($max_token | <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3956	4098	
==>Skipping to next block."
          );
          
          ## Before there were errata sections in the world, it was
          ## least-pessima <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	32534	32640	
==>m the
	# beginning of $text, optionally after some whitespace
	# (note the list context to protect $text fr <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	11457	11561	
==>unless defined $rules->{$next}; # SKIP NON-EXISTENT RULES
		return 1 if $next eq $root;
		my $child;
		fo <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31257	31355	
==>y ($self, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $line, $out_na <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35888	35986	
==>y ($self, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $line, $out_na <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39877	39975	
==>y ($self, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $line, $out_na <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	13501	13652	
==>es, $assign ];
            }
        }
    }
}

sub BuildAssigns {
    my ( $parser, $vars, $exprs ) = @_;
    my @opcodes1 = ();
    my @opcod <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3159	3259	
==>to SUB1.
' Exit tests
sub mysub(b,c)
	print "Print me"
	exit sub
	print "Don't print me"
end sub
func <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17126	17226	
==>to SUB1.
' Exit tests
sub mysub(b,c)
	print "Print me"
	exit sub
	print "Don't print me"
end sub
func <==
3	/Users/nnunley/parrot/config/init/miniparrot.pm	1739	1868	
==>'',
        has___sighandler_t => undef,
        has_sigatomic_t    => undef,
        has_sigaction      => undef,
        has_set <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	2256	2364	
==>my ($self, $tree, $ctx) = @_;
    die "unimplemented meta $tree";
}

# FIXME!!!
sub convert_rx_beg {
    my ( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	3074	3176	
==>s, result["!GROUPS"]
    set match_num, 0
printLoop:
    ge match_num, num_groups, done
    bsr printGr <==
3	/Users/nnunley/parrot/config/auto/cgoto.pm	834	965	
==>lse {
        cc_gen('config/auto/cgoto/test_c.in');
        $test = eval { cc_build(); 1; } || 0;
        cc_clean();
    }

    if <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2011	2131	
==>prog = (
                "perl -Ilanguages/lua languages/lua/luac.pl languages/${lang_fn}",
                "$self->{pa <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tests.pm	73	162	
==>/Section/Tests.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6460	6588	
==>_;

    my $target_mod = modtime($target)
      or return 1;
    for my $source (@sources) {
        return 1 if modtime($source) <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4880	5008	
==>_;

    my $target_mod = modtime($target)
      or return 1;
    for my $source (@sources) {
        return 1 if modtime($source) <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6671	6799	
==>_;

    my $target_mod = modtime($target)
      or return 1;
    for my $source (@sources) {
        return 1 if modtime($source) <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10425	10539	
==>nt_stack[-1] twips.\n";
        $self->{'rtfindent'} -= pop @indent_stack;
        pop @stack;
      } elsif( $tagn <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	1882	1978	
==>ge [default] " and waits for the user's response. Returns the
response, or the default if the use <==
3	/Users/nnunley/parrot/lib/File/Which.pm	6851	6945	
==>ame terms as Perl itself.

=head1 See Also

L<File::Spec>, L<which(1)>, Perl Power Tools:
http: <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1728	1833	
==>pt, $prog ? $prog : $conf->data->get($util));
    }

    my ($stdout, $stderr, $ret) = capture_output($pro <==
3	/Users/nnunley/parrot/config/inter/make.pm	1602	1707	
==>pt, $prog ? $prog : $conf->data->get($util));
    }

    my ($stdout, $stderr, $ret) = capture_output($pro <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1742	1847	
==>pt, $prog ? $prog : $conf->data->get($util));
    }

    my ($stdout, $stderr, $ret) = capture_output($pro <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	29692	29810	
==>= @_;
    foreach (1..$n) {
	my $thing = $stack[-$n];
	push @stack, $thing;
    print <<EOC;
	$cmt
EOC
    }
}

sub ROT <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	30329	30431	
==>ist_vector {
}

sub _op_vector_fill_bang {
}

sub _op_procedure_p {
  my ($self, $node) = @_;
  my $ret <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1948	2029	
==>nstruct::Expression::Value::Identifier->compile2($compiler, $self->block, $self->v <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3379	3481	
==>oncat " = pop s\n"
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$register_num++;
	}

	# Return gen <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	36854	36941	
==>\&_op_char_whitespace_p,
  'char-upper-case?' => \&_op_char_upper_case_p,
  'char-lower- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81979	82238	
==>se compile - just invoke the compiler\");\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82873	83132	
==>se compile - just invoke the compiler\");\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	5506	5623	
==>n";
        }
    }

    print "\nThe following non-ansi system includes are used:\n";
    foreach my $include (sort k <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	682	772	
==>$dest, 'Jako::Construct::Expression::Value::Identifier');
  confess("Left (" . ref($left) . <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	673	763	
==>$dest, 'Jako::Construct::Expression::Value::Identifier');
  confess("Left (" . ref($left) . <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	562	652	
==>$dest, 'Jako::Construct::Expression::Value::Identifier');
  confess("Left (" . ref($left) . <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714550	714646	
==>t s = {{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (s && string_length(interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715473	715569	
==>t s = {{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (s && string_length(interpreter <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	410	499	
==>oken -- text-tokens from Pod::Simple::PullParser

=head1 SYNOPSIS

(See L<Pod::Simple::Pul <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	386	495	
==>->{srcname}, ':',
        $parser->YYData->{lineno}, ': ', $msg
        if ( exists $parser->YYData->{verbos <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	852	961	
==>->{srcname}, ':',
        $parser->YYData->{lineno}, ': ', $msg
        if ( exists $parser->YYData->{verbos <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1310	1419	
==>->{srcname}, ':',
        $parser->YYData->{lineno}, ': ', $msg
        if ( exists $parser->YYData->{verbos <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819007	819271	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "entrytype",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819966	820230	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "entrytype",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4166	4259	
==>print x(4)
	arrfunc=55
end function
dim g(10)
g(4)=12
y=arrfunc(g())

' Function Array scopes, <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	4832	4973	
==>rce) = @_;

    my $f = undef;
    my $line = 0;
    foreach (@$source) {
        $line++;
        next unless $_;

        if (/^(\s*).*\{\s* <==
3	/Users/nnunley/parrot/Configure.pl	5292	5407	
==>step matching description
   --nomanicheck        Don't check the MANIFEST
   --prefix             Set the installat <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11015	11120	
==>] = <rx_input>
  <rx_match>["!GROUPS"] = $num_groups
  length <rx_len>, <rx_input> # cache the length in < <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	55350	55450	
==>key of that element is the name of a class into which the successful
return value of the extractor wi <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6658	6741	
==>IC}_LOOP
POST_BRANCH_switch_${CURIC}_LOOP_EXIT:

POST_BRANCH_NOT_switch_${CURIC}:
PI <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4596	4679	
==>IC}_LOOP
POST_BRANCH_switch_${CURIC}_LOOP_EXIT:

POST_BRANCH_NOT_switch_${CURIC}:
PI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289776	290061	
==>E" => "inline",
                  "CODE" => 337,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 935 \"src/ops/cmp.ops\"\n  {{\@1}} = <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	376	486	
==>elf = shift;
    my ( $path_to_parrot, $path_to_language, $count ) = @_;
 
    
    my $test_prog_args = $ENV{T <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	394	498	
==>elf = shift;
    my ( $path_to_parrot, $path_to_language, $count ) = @_;

    my $test_prog_args = $ENV{T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813270	813543	
==>@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "null" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760859	761033	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setp_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761711	761885	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setp_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10041	10133	
==>',
  125, '}',
  126, '~',
);

#------------------------------------------------------------- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191660	191841	
==>umber(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192600	192781	
==>umber(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	3533	3645	
==>he line if it looks like it's basically all string.
        next if /^\s*\".*\"(\);|,)?$/;

        if (length($_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321881	322145	
==>"NAME" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322652	322916	
==>"NAME" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323424	323688	
==>"NAME" => "conv_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943929	944219	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "charset",
                  "FLAGS" => ":b <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	765	884	
==>refernce, the same passed to other constructors
          $vtable_dump, # vtable.dump
          pmc1        => $pmc1_dum <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	481	572	
==>$static_dir/$_.pir'\n"
    for @static_cmds;
print "  .include 'languages/tcl/$dynamic_dir/$ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	870	988	
==>{IDENT};  }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;
  
  my $ident_name = $self->id <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	870	986	
==>{IDENT};  }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $ident_name = $self->id <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7242	7341	
==>s+(?:NAME|TITLE|TITEL)\s*[\n\r]+([^\n\r]+)/smo;
	
	$text = $1;
	# Tidy it up a bit.
	$text =~ s/^\s+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896921	897200	
==>12,
                  "ARGS" => [
                              "s",
                              "i",
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)strin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	372005	372236	
==>AME" => "peek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "function",
                  "CODE" => 435 <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	2652	2761	
==>f->process_file_start_token($token);
    }
    elsif ( $tagname eq 'C' )
    {
        $self->process_code_sta <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5520	5623	
==>ibs might be crucial
sub gather_groups_and_libs {
    my @pmcs = @_;

    my ( %group_files, %group_libs <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5731	5834	
==>ibs might be crucial
sub gather_groups_and_libs {
    my @pmcs = @_;

    my ( %group_files, %group_libs <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tests.pm	684	775	
==>code Tests', '', 't/native_pbc'),
		$self->new_group('Ops Tests', '', 't/op'),
		$self->new_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1863	1957	
==>r_number  { ++$_[0]{'Indent'} }
sub start_over_text    { ++$_[0]{'Indent'} }
sub start_over_blo <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1431	1525	
==>r_number  { ++$_[0]{'Indent'} }
sub start_over_text    { ++$_[0]{'Indent'} }
sub start_over_blo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402314	402576	
==>S" => [
                              "p",
                              "i",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(i <==
3	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1198	1313	
==>=> $output };
    }
    
    Test::More::plan( tests => scalar(@spec) );

    generate_regular($pattern);

    forea <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	44760	44860	
==>),

=item [8]

the text of the second block of the operation 
(that is, the replacement of a substitu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660084	660171	
==>/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->exists_keyed_int(int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661006	661093	
==>/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->exists_keyed_int(int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	317020	317238	
==>(Parrot_Int2)({{\@1}}));\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	17460	17576	
==>ppos+1,	$rd1pos-$oppos-1,	# STR/PAT
			$rd1pos,	1,			# RIGHT DEL
			$modpos,	0,			# NO 2ND LDEL
			$modpos,	0,			# NO <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	18473	18585	
==>a structure.

=cut

sub read_dump {
    my ($include, $file) = @_;

    $file =~ s/\.\w+$/.dump/;
    $file = fin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841598	841704	
==>\"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842362	842468	
==>\"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	16484	16603	
==>de, $expected, $desc, %extra ) = @_;

            # Strange Win line endings
            convert_line_endings( $expected <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	11000	11118	
==>de, $expected, $desc, %extra) = @_;

            # Strange Win line endings
            convert_line_endings( $expected <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2891	2986	
==>{$seg}->{code}}, $prompt; 
	my $sf=1;
	$sf=0 if ($filedesc);

	push @{$code{$seg}->{code}},<<INP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733683	733889	
==>et.ops\"\n  {{\@1}} = string_to_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734447	734653	
==>et.ops\"\n  {{\@1}} = string_to_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18131	18239	
==>op_assv {
}

sub _op_assoc {
}

sub _op_symbol_p {
}

sub _op_symbol_string {
}

sub _op_string_symbol {
}

s <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	622	724	
==>tal = 0;
map { $done += $_->{'done'}; $total += $_->{'total'}; } @results;
my $percent = int(($done / <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	458	560	
==>tal = 0;
map { $done += $_->{'done'}; $total += $_->{'total'}; } @results;
my $percent = int(($done / <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549465	549738	
==>" => "callmethodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550765	551038	
==>" => "callmethodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552066	552339	
==>" => "callmethodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600283	600516	
==>'%Ss' doesn't exist\", name);\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601359	601592	
==>'%Ss' doesn't exist\", name);\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	27846	27949	
==>est_Results} };
}

=item B<details>

    my @tests = $Test->details;

Like summary(), but with a lot mor <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	75814	75915	
==>:RD_TRACE
	or defined $::RD_HINT    and  $_[0] =~ /ERRORS|WARN|HINT/
	or defined $::RD_WARN    and  $_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712490	712580	
==>eter, \"%.12g\", (double){{\@1}});\n  PIO_putps(interpreter, io, s);\n  if (string_str_inde <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713597	713687	
==>eter, \"%.12g\", (double){{\@1}});\n  PIO_putps(interpreter, io, s);\n  if (string_str_inde <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	8886	8982	
==>l_state *st, FLOATVAL val)
{
    Parrot_init_ret_nci(interpreter, st, "N");
    UVal_num(st->val) <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	25757	25869	
==>]{'start_line'},
        "=pod directives shouldn't be over one line long!  Ignoring all "
         . (@$para - 2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819515	819605	
==>"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n    stack_entry(interpreter, CONTEXT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820475	820565	
==>"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n    stack_entry(interpreter, CONTEXT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849957	850287	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850844	851174	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851731	852061	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_c <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	21087	21215	
==>rict 'refs';

        *{$package.'::'.$func} = sub {
            my ($example_f, $expected, @options) = @_;

            my %lang <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719957	720047	
==>eter, \"%.12g\", (double){{\@2}});\n  PIO_putps(interpreter, io, s);\n  if (string_str_inde <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721157	721247	
==>eter, \"%.12g\", (double){{\@2}});\n  PIO_putps(interpreter, io, s);\n  if (string_str_inde <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	50777	50881	
==>e checking marker", $aftererror,$line);
				if ($rule)
				{
					_error("<nocheck> directive not at star <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12588	12724	
==>F           # Macro: DYNSELF
      \.(\w+)           # other_method
      \(\s*(.*?)\)      # capture argument list
     /"pmc->vtable->$ <==
3	/Users/nnunley/parrot/config/auto/byteorder.pm	589	692	
==>c.in');
    cc_build();
    my $byteorder = cc_run() or die "Can't run the byteorder testing program: $! <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	263	357	
==>RSION );
$VERSION = '2.02';
@ISA = ('Pod::Simple::Methody');
BEGIN { *DEBUG = defined(&Pod::Sim <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	744	877	
==>[0] =~ /recompile/) {

    # clean up remnants of prior biulds
    File::Find::find({wanted => sub {
                          /\.(bb| <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	36613	36731	
==>] = 'Data';
        $para_type = '?Data';
      } elsif( $para_type =~ s/^=//s
        and defined( $para_type = $self- <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	2015	2127	
==>ad',       # Whether to consider this parser's source dead

  'output_fh',         # The filehandle we're writing <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944877	945050	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "charsetname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945686	945859	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "charsetname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
3	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1520	1601	
==>e.org/
AppUpdatesURL=http://www.parrotcode.org/
DefaultDirName={pf}\\parrot-$optio <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1219	1341	
==>shift->{TYPE};      }
sub name      { return shift->{NAME};      }
sub props     { return %{shift->{PROPS}};  }


#
# compi <==
3	/Users/nnunley/parrot/lib/Parrot/PMC.pm	163	271	
==>T_OK);

@ISA = qw( Exporter );
@EXPORT_OK = qw( %pmc_types);

%pmc_types = (
	Null => 1,
	Env => 2,
	Key => 3 <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	38883	39000	
==>->[2] };
    }
    push @opcodes2, @{$block};
    push @opcodes2, new EndDir( $parser );
    foreach my $op (@opco <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	6797	6914	
==>st;
    my @methods = @{ $self->{methods} };
    # copy super
    $const->{super} = { %{ $self->{super} } };
    my $i <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9992	10098	
==>70,/* 40 */
HH,$a,$b,$c,$d,$_[17],4,0x289b7ec6,/* 41 */
HH,$d,$a,$b,$c,$_[4],11,0xeaa127fa,/* 42 */
HH,$c,$ <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	19107	19206	
==>t> and modified by Jim Miner, 1997-04-02.

    members() function removed.
    Documentation correct <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	6959	7074	
==>_vfork' => undef,
             'icu_dir' => '/opt/local',
             'icu_shared' => '-lpthread -lm -L/opt/local/l <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	21882	21986	
==>x/Grammar.y"
{ return $_[1] * 10 + $_[2]; }
	],
	[#Rule 34
		 'number', 1,
sub
#line 161 "lib/Regex/Gramm <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	3391	3481	
==><$base> is the same as for C<run_core_func_decl()>.

=item C<init_func_init1($base)>

Optio <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561271	561568	
==>NAME" => "fetchmethod",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562354	562651	
==>NAME" => "fetchmethod",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	35098	35230	
==>[2] eq 'P') {
	   $vv = temp('I');
	   print <<EOC;
	$vv = $v->[1]
EOC
       }
    }
    my $dest =  (pop @stack)->[1];
    print << <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	8913	9071	
==>n'd.\n";
            last; # give up
          }
          # else keep while'ing along
        }
        # Now put it aaaaall back...
        $self->unget_toke <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	31644	31773	
==>,
			"[" => 47,
			"." => 49
		},
		DEFAULT => -43,
		GOTOS => {
			'tableconstructor' => 46,
			'args' => 52,
			'key' => <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	9670	9780	
==>error("MANIFEST", $line, "$_: more than one '.' in a filename");
        }
        $filebase  = substr($filebas <==
3	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	2361	2468	
==>(@ARGV) {
        copy_file($file, "miniparrot/$file");
    }
}

sub write_buildscripts {
    my @compiled_f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126752	127093	
==>}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127887	128228	
==>}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ro <==
3	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	1155	1288	
==>ommand( $cmd, 
						    CD     => $self->{relpath},
						    STDOUT => $out_f, 
						    STDERR => $out_f );
  $diag .= "'$cmd' fai <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19707	19801	
==>n. By
default, it is currently the value of the environment variable
C<RTFDEFLANG>, or if that' <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	41024	41117	
==>t just has the matched substring (and
any specified prefix) removed.


=head2 C<gen_extract_ta <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37084	37176	
==>s_vtable($meth);
}

=item C<trans($type)>

Used in C<signature()> to normalize argument types <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	22931	23056	
==>^C;

    my $msg = join '', @msgs;

    local($\, $", $,) = (undef, ' ', '');
    my $fh = $self->output;

    # Escape each l <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34685	34796	
==>rule: ['
			    . $self->{subrule} . ']>>},
						  Parse::RecDescent::_tracefirst($text),
						  q{' . $rule-> <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	13771	13863	
==>n1Code_to_fallback{I<integer>}

For numbers in the range 160 (0x00A0) to 255 (0x00FF), this m <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	1165	1292	
==>n_version' => undef,
             'blib_dir' => 'blib/lib',
             'build_dir' => '/Users/nnunley/parrot',
             'b <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	447	554	
==>_;
    $failLabel = $self->output_label_use($failLabel);
    if ($distance eq '1') {
        return "rx_adva <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862455	862546	
==>DY" => "#line 138 \"src/ops/string.ops\"\n  {{\@1}} = string_length(interpreter, {{\@2}});\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863224	863315	
==>DY" => "#line 138 \"src/ops/string.ops\"\n  {{\@1}} = string_length(interpreter, {{\@2}});\n <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	50	145	
==>);
use base 'Regex::CodeGen';
use strict;

my $fail_label = Regex::Ops::Tree::mark('FAIL');

sub <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	66	160	
==>)
use base 'Regex::CodeGen';
use strict;

my $fail_label = Regex::Ops::Tree::mark('FAIL');

sub <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	67	161	
==>)
use base 'Regex::CodeGen';
use strict;

my $fail_label = Regex::Ops::Tree::mark('FAIL');

sub <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744793	745050	
==>,
                  "TYPE" => "inline",
                  "CODE" => 838,
                  "ARGS" => [
                              "s",
                              "nc"
                            ],
                  "BODY" => "#line 179 \"src/ops/set.o <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3569	3669	
==>>SYNTAX_ERROR("Sub declaration has no fnlib property, and parent block is not a module!")
        unl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6233	6333	
==>>SYNTAX_ERROR("Sub declaration has no fnlib property, and parent block is not a module!")
        unl <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	37033	37126	
==>lt>schwern@pobox.comE<gt>.

This program is free software; you can redistribute it and/or 
mod <==
3	/Users/nnunley/parrot/lib/Test/More.pm	37442	37535	
==>lt>schwern@pobox.comE<gt>.

This program is free software; you can redistribute it and/or 
mod <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	6402	6495	
==>lt>schwern@pobox.comE<gt>.

This program is free software; you can redistribute it and/or 
mod <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2814	2952	
==>ident
             \s+ \{ ([^}]+) \}          # test description
             \s+ (?:\S+ \s+)? \{ \n     # optional test harness info (igno <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4211	4349	
==>ident
             \s+ \{ ([^}]+) \}          # test description
             \s+ (?:\S+ \s+)? \{ \n     # optional test harness info (igno <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8110	8240	
==>rr" if $err;

    system $command;
    my $exit_code = $? >> 8;

    close STDOUT or die "Can't close    stdout" if $out;
    close <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	10447	10574	
==>, $left, $op, $right);
      }
      else {
        $self->INTERNAL_ERROR("Unexpected loop kind %s!", $kind);
      }

      pus <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6121	6215	
==>= 0x45 goto POST_BRANCH_switch_${CURIC}
${ITEMP0} = ${NEXTPC} + I_arg_0 # XXX Can't use ${ARG0} <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4059	4153	
==>= 0x45 goto POST_BRANCH_switch_${CURIC}
${ITEMP0} = ${NEXTPC} + I_arg_0 # XXX Can't use ${ARG0} <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	2953	3085	
==>ft;
    my $source = shift || die "No source\n";
    my $target = shift || die "No target\n";
    my $silent = shift || 0;
    my $in <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	2401	2533	
==>ft;
    my $source = shift || die "No source\n";
    my $target = shift || die "No target\n";
    my $silent = shift || 0;
    my $in <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2557	2686	
==>ft;
    my $source = shift || die "No source\n";
    my $target = shift || die "No target\n";
    my $silent = shift || 0;
	my $in <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4544	4650	
==>st_op($$) {
	# Nothing to do.
	return "";
}

# Pre and post branch operation hooks.
sub pre_branch($) {
	my <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2960	3066	
==>st_op($$) {
	# Nothing to do.
	return "";
}

# Pre and post branch operation hooks.
sub pre_branch($) {
	my <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18248	18351	
==>umber_p {
}

sub _op_complex_p {
}

sub _op_real_p {
}

sub _op_rational_p {
}

sub _op_integer_p {
}

s <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	7417	7517	
==>($self->{_label_comments}, 'LABEL_COMMENTS'),
            map { ($_->{label} ? ($_->{label}) : ()), $ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39014	39144	
==>AULT => -8
	},
	{#State 158
		ACTIONS => {
			"," => 151
		},
		DEFAULT => -36
	},
	{#State 159
		DEFAULT => -17,
		GOTOS <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	806	903	
==>s.

=head1 USAGE

=head2 Import Parameters

This module accepts no arguments to it's C<import> met <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	435	532	
==>s.

=head1 USAGE

=head2 Import Parameters

This module accepts no arguments to it's C<import> met <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	90	181	
==>20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Libs - Parrot libr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735022	735245	
==>=> 825,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 139 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{ <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	3026	3170	
==>with exit code $exit_code."
                if $exit_code;
            $self->{builder}->diag($diag) if $diag;
        }

        # The gene <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2637	2762	
==>with exit code $exit_code." if $exit_code;
            $self->{builder}->diag( $diag ) if $diag;
        }

        # The gene <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516317	516683	
==>S" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 595,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 729 \"src/ops <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7202	7300	
==>{STEMP0}
${STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
PIR
	}

	return $pir;
}

sub post_load <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5024	5122	
==>{STEMP0}
${STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
PIR
	}

	return $pir;
}

sub post_load <==
3	/Users/nnunley/parrot/tools/dev/cc_flags.pl	142	311	
==>$Id: /parrot/tools/dev/cc_flags.pl 19607 2006-05-30T15:23:20.183054Z coke  $
################################################################################

=head1 NAME <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4473	4586	
==>g;
		$push_num++;
	}

	# Return generated code.
	return $pir;
}

sub post_op($$) {
	# Nothing to do.
	return "";
} <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2889	3002	
==>g;
		$push_num++;
	}

	# Return generated code.
	return $pir;
}

sub post_op($$) {
	# Nothing to do.
	return "";
} <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	48603	48750	
==>5', 0,
sub
#line 152 "Lua\lua51.yp"
{
            PushScope( $_[0] );
            InsertList( $_[0], $_[2] );
        }
	],
	[#Rule 25
		 ' <==
3	/Users/nnunley/parrot/config/gen/config_h.pm	2011	2124	
==>onfig entries
 */

EOF
    for (sort($conf->data->keys())) {
        next unless /HAS_(\w+)/;
        if ($conf->d <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6580	6689	
==>g
      
      if(!$self->{'start_of_pod_block'} and !$self->{'last_was_blank'}) {
        DEBUG > 1 and print <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59838	59943	
==>,
				    $lookahead,$line) or next;
			$prod->check_pending($line) if $prod;
			$prod = new Parse::RecDes <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59489	59588	
==>, $lookahead, $line) or next;

			$prod->check_pending($line) if $prod;
			$prod = new Parse::RecDes <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126591	126720	
==>\@3}};\n  const INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTV <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127726	127855	
==>\@3}};\n  const INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTV <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128861	128990	
==>\@3}};\n  const INTVAL w = {{\@4}};\n  INTVAL d, t;\n  if (s < 0)\n    s += w;\n  d = r << s;\n  t = w - s;\n  t = (INTVAL)((UINTV <==
3	/Users/nnunley/parrot/config/auto/msvc.pm	199	296	
==>IPTION

Determines whether the C compiler is actually C<Visual C++>.

=cut

package auto::msvc;

u <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1488	1583	
==>essor.

=head1 METHOD CALLING

When Pod::Simple sees a "=head1 Hi there", for example, it basica <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35855	35969	
==>s.

=cut

sub implements
{

    my ($self, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<body($metho <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31225	31338	
==>s.

=cut

sub implements
{
    my ($self, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<body($metho <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39845	39958	
==>s.

=cut

sub implements
{
    my ($self, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<body($metho <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	738	854	
==>e_re {
    my $re = shift;

    my $comp_re = eval "qr/$re/";

    if ($@) { return "(?:$re)"; } else { return $comp_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18376	18462	
==>d1_halfpoint_size( I<halfpoint_integer> );

=item $parser->head2_halfpoint_size( I<half <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117393	117686	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118131	118424	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYP <==
3	/Users/nnunley/parrot/languages/urm/urm-old.pl	872	987	
==>per @program;

my $pos = 1;
while (1) {
    my $line = $program[$pos -1];
    if ($pos > @program) {last;}
    print <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1522	1615	
==>= "$register_num"
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Emit pop c <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3232	3325	
==>= "$register_num"
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Emit pop c <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	24511	24641	
==>te($val);
	}
	$n = $nfix + $nk/2;
    }
    my $tos = pop @stack;
    my $args = join ', ', @args;
    my $t;
    $func = $tos->[1] <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	17349	17472	
==>ift;
    my $op2  = shift;
    $code =~ s/%1/$op1/g;
    $code =~ s/%2/$op2/g;
    $code .= "\n";
    return($code);
}

__EN <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	6884	6990	
==>oak "Can't unget $t, because it's not a token object!"
     unless UNIVERSAL::can($t, 'type');
  }
  
  uns <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	2239	2353	
==>cter table

=back

=cut

sub create_table {
    my ($name) = @_;
    my $len = 8;

    print "const PARROT_CCLASS_F <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2342	2451	
==>$main::common{$var}) {
					push(@saves, $var);
				}
			}
			if (@saves) {
				$edit.=qq{\tfind_global _GLOBA <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2751	2860	
==>$main::common{$var}) {
					push(@saves, $var);
				}
			}
			if (@saves) {
				$edit.=qq{\tfind_global _GLOBA <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3421	3551	
==>'inc', 'I2'],
  ['',            'set', 'P17', 'P17[1]'],
  ['',            'typeof', 'I16', 'P17'],
  ['',            'branch', 'ap <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	9450	9549	
==>tset { undef }

# Embedded code is truly unpredictable. Although there will probably
# be pragmata f <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	4516	4614	
==>0..$#args);
    $macros .= <<"EOM";
#define VTABLE_$entry->[1]($args) \\
    (pmc)->vtable->$entry- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650761	651038	
==>n        {{\@1}} = 1;\n    else\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651683	651960	
==>n        {{\@1}} = 1;\n    else\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	3676	3779	
==>$instructions) = @_;
    print $fh join("\n", @$instructions), "\n";
}

sub output_footer {
    my ($sel <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720834	721039	
==>=> [
                              "p",
                              "nc"
                            ],
                  "BODY" => "#line 133 \"src/ops/python.ops\"\n  PMC * const io = {{\@1}};\n  STRING <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	958	1044	
==>ess "Right is not Value!" unless UNIVERSAL::isa($right, 'Jako::Construct::Expression::V <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	970	1056	
==>ess "Right is not Value!" unless UNIVERSAL::isa($right, 'Jako::Construct::Expression::V <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1443	1567	
==>mit(".sub __INLINE_" . $inline++);
        $compiler->indent;

        $last_seen = 'inline';
      }
    }

    $construct-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846631	846721	
==>ne 56 \"src/ops/string.ops\"\n  STRING *s;\n  s = string_chr(interpreter, (UINTVAL){{\@2}}) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847427	847517	
==>ne 56 \"src/ops/string.ops\"\n  STRING *s;\n  s = string_chr(interpreter, (UINTVAL){{\@2}}) <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14021	14161	
==>)
           : 1)
        ) {
          # Some minimal sanity constraints, I think.
          DEBUG and print "  It looks contentworthy, I gu <==
3	/Users/nnunley/parrot/config/init/hints/darwin.pm	1162	1274	
==>ome_memalign',
        has_dynamic_linking     => 1,
        # XXX when built against a dynamic libparrot install <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74106	74216	
==>ns, $argcode) = @_;

	my @tokens = ();
	my $reps;
	my $_savetext;
	for ($reps=0; $reps<$max;)
	{
		$_savetext = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539604	539895	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066146	1066437	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	4437	4590	
==>"LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "prede <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	5455	5558	
==>for inclusion in C code,
    and an array of C<Parrot::Op> instances representing the Parrot ops.

    = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348	443	
==>for inclusion in C code,
and an array of C<Parrot::Op> instances representing the Parrot ops.

= <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41275	41381	
==>tch=$name), shift @_);
  
  foreach my $x (@_) {
    if(ref($x)) {
      &_traverse_treelet_bit($self, @$x) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661964	662052	
==>\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662880	662968	
==>\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n", <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30424	30549	
==>s) {
		print CODE<<DISP;
	eq S0, "$_", COPY_$_
DISP
	}
	print CODE <<DISP2;
	print "Structure type of "
	print S0
	print " not <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2668	2769	
==>my $self = shift;
  if(Pod::Simple::ASCII) {
    $self->{'Thispara'} =~ tr{\xA0}{ };
    $self->{'This <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38473	38579	
==>decl($self->{class}, $method, 0);
    my $parameters = $method->{parameters};
    my $n=0;
    my @args = g <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	626	718	
==>hen you do $parser->get_token on a L<Pod::Simple::PullParser>, you might
get an object of thi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	532	624	
==>hen you do $parser->get_token on a L<Pod::Simple::PullParser>, you might
get an object of thi <==
3	/Users/nnunley/parrot/config/auto/jit.pm	4551	4682	
==>able => 0
            );
        }

        # test for executable malloced memory
        if (-e "config/auto/jit/test_exec_$osname. <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1587	1686	
==>um} = ${STEMP0}

# Emit pop code.
${INS} = concat ${STACK$register_num}
${INS} = concat " = pop s\n" <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3297	3396	
==>um} = ${STEMP0}

# Emit pop code.
${INS} = concat ${STACK$register_num}
${INS} = concat " = pop s\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182834	183238	
==>GS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 218,
                  "ARGS" => [
                              "n",
                              "n",
                              "ic <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	4683	4812	
==>> '#',
        replace_slashes                => 1
    );
    genfile(
        'config/gen/makefiles/lisp.in' => 'languages/lisp/M <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459720	459873	
==>"
                            ],
                  "BODY" => "#line 282 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_excep <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460708	460861	
==>"
                            ],
                  "BODY" => "#line 282 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_excep <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461696	461849	
==>"
                            ],
                  "BODY" => "#line 282 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_excep <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	42525	42628	
==>set;

  $return =~ /(\w)(\d+)/;
  $self->{regs}->{$1}->{$2} = 1;

  return $return;
}

sub _format_colum <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	61	164	
==>A @EXPORT @EXPORT_OK %EXPORT_TAGS);

$VERSION   = '0.01';
@ISA       = qw(Exporter);
@EXPORT_OK = qw(par <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	16579	16677	
==>1 if $value =~ m/^x([a-fA-F0-9]+)$/s;
      print "ILLEGAL VALUE $value" unless $value =~ m/^\d+$/s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369116	369470	
==>i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 432,
                  "ARGS" => [
                              "s",
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 341 \"s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	667	761	
==>:Simple::PullParser>, you might
get an object of this class.

This is a subclass of L<Pod::Simp <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	573	667	
==>:Simple::PullParser>, you might
get an object of this class.

This is a subclass of L<Pod::Simp <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	23232	23356	
==>ms[CURR];
			while(1) {
				feedme;
				last if $syms[CURR] eq ")";
			}
			my $type;
			$type="FLO";
			my %th=( single => ' <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	3073	3182	
==>circumflex looks like ^ (as in papier ma^che/)
 #           umlaut/dieresis looks like " (as in nai"ve, Chloe" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56388	56639	
==>fo_p(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57150	57401	
==>fo_p(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13115	13228	
==>node);

  for (@args) {
    $self->_restore ($temp);
    $temp = $self->_generate ($_);
  }
  return $temp;
}

sub <==
3	/Users/nnunley/parrot/lib/Test/More.pm	20700	20799	
==>ill default to 1.

It's perfectly safe to nest SKIP blocks.  Each SKIP block must have
the label C<S <==
3	/Users/nnunley/parrot/config/inter/charset.pm	150	244	
==>inter/charset.pm - charset files

=head1 DESCRIPTION

Asks the user to select which charset fil <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3786	3896	
==>t X.c -> X.o for all X.c
    compile($_) foreach (@pmcs);

    # lib-GROUP.c
    for my $group (keys %$group_fi <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3890	4000	
==>t X.c -> X.o for all X.c
    compile($_) foreach (@pmcs);

    # lib-GROUP.c
    for my $group (keys %$group_fi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	51870	51970	
==>,
    );
  }
  
  return $treelet;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	23560	23659	
==>e') {
	my $fix_args = $func_info{$name}{'args'};
	my @fargs = split /,/, $fix_args;
	my $nf = scalar <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	3693	3821	
==>ic_linking' => 1,
             'hugefloatval' => 'long double',
             'hugefloatvalsize' => '16',
             'hugeintval <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	25967	26059	
==>attern, $left_delim, $modifiers, $lookahead, $linenum
sub new ($$$$$$)
{
	my $class = ref($_[ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813975	814234	
==>ELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "AR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814597	814856	
==>ELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "AR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	815225	815484	
==>ELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  "AR <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22348	22441	
==>ensym();

  my $temp_0 = $self->_generate($node->{children}[1]);
  $return = $self->_constant( <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22849	22942	
==>ensym();

  my $temp_0 = $self->_generate($node->{children}[1]);
  $return = $self->_constant( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2724	2816	
==>class of L<Pod::Simple> that parses
Pod and turns it into XML.

Pod::Simple::XMLOutStream inh <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	7348	7464	
==>ned_lines              => 1
    );
    genfile(
        'languages/tcl/config/examples.in' => 'languages/tcl/examples <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488845	489129	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	489598	489882	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	3745	3850	
==>cfg{method} = $ini->val( global => 'method', 1 );
}

if ( ! @{ $cfg{run_bench} } ) {
    my @regexes = gre <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	52109	52246	
==>key', 3,
sub
#line 295 "Lua\lua51.yp"
{
            $_[2];
        }
	],
	[#Rule 50
		 'key', 2,
sub
#line 299 "Lua\lua51.yp"
{ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7058	7157	
==>options{fail} ? $options{fail} : '';
	my $bad     = ref($options{reject}) eq 'ARRAY' ? join('|', @{$ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24060	24159	
==>options{fail} ? $options{fail} : '';
	my $bad     = ref($options{reject}) eq 'ARRAY' ? join('|', @{$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60647	60865	
==>NINGS_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61297	61515	
==>NINGS_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4637	4744	
==>c|pod)$/;
    
    return 0;
}

=item C<delete()>

Deletes the file, removes the instance from the cache, an <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569336	569591	
==>->isa(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570229	570484	
==>->isa(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	2863	2979	
==>modified_since
{
    my $self = shift;
    my $time = shift;
    
    return $self->stat->mtime > $time;
}

=item C<s <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	4361	4490	
==>rt {
    try { code() };
    if ($!) {
        &Test::ok.goto(1, $desc, :$todo);
    }
    else {
        Test::proclaim(undef, $d <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	36524	36646	
==>g into [$1] + [$2]\n";

          unshift @link_text, splice @ell_content, 0, $j;
            # leaving only things at J an <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	26563	26691	
==>c} = $c;
	$names{$c} = $c;
	print <<EOC;
        \t $cmt
EOC
    }
    push @stack, [$n, $c, 'P'];
}

sub STORE_FAST
{
    my ($n <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17680	17795	
==>less(defined $target) {
        $self->whine(
          $para->[1]{'start_line'},
          "=for without a target?" <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	11711	11813	
==>e: at first call to op_code() a hash
 * of short and full opcode names is created
 * hash functions are <==
3	/Users/nnunley/parrot/config/auto/headers.pm	2506	2691	
==>_run() =~ /^$header OK/) {
                $pass = 1;
                push @found_headers, $header;
            }
            cc_clean();
            last if $pass;
        }

        my <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	3325	3429	
==>};
	$parser->{offsetlinenum} -= $parser->{lastlinenum} - $_[1];
	return undef;
}

sub resync       # ($li <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	316602	316861	
==>AME" => "conv_i2",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 370,
                  "A <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	4458	4569	
==>0;
    $self->{Test_Results} = &share([]);

    $self->{Exported_To}    = undef;
    $self->{Expected_Tests} = 0 <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	47900	48021	
==>r), "\n";
  return $out;
}


sub _duo {
  # For use in testing: Class->_duo($source1, $source2)
  #  returns the parse tre <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	4102	4227	
==>ako::Token->new(
        $file, $line, $1, undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^(while|until|f <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11226	11315	
==>eg_type_short"]
${DEST0} = concat ${STEMP0}
inc stack_depth
${STEMP0} = stack_depth
${DEST <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8412	8501	
==>eg_type_short"]
${DEST0} = concat ${STEMP0}
inc stack_depth
${STEMP0} = stack_depth
${DEST <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	3586	3715	
==>version subroutines
    my %helpers = (
        # type     subroutine
        channel => '__channel',
        expr    => '__expr', <==
3	/Users/nnunley/parrot/config/init/hints/linux.pm	899	1018	
==>sprintf warnings that don't apply
        $cflags .= ' -wd269';
    } else {

        # --export-dynamic, s. info gcc, l <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	6695	6796	
==>($ops->ops) {
    my $func_name  = $op->func_name($trans);
    my $arg_types  = "$opsarraytype *, Inte <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	20607	20780	
==>e'};
                $name =~ s/\./_/g;
                $pir .= "    if cur_ic == 0x$_->{'code'} goto INS_TRANS_$name\n";
            }
        }
        
        # If we don <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9100	9277	
==>idf);
        if ( defined $defn ) {

            # local variable
            if ( scalar( @{$var} ) ) {
                my $result   = $defn;
                my $last_key <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6962	7112	
==>( {
                  "JUMP" => "PARROT_JUMP_RELATIVE|PARROT_JUMP_GNEXT",
                  "NAME" => "branch",
                  "FLAGS" => ":base_loo <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33354	33482	
==>push @opcodes2, @{ $expr->[1] };
        push @opcodes3, new AssignOp( $parser,
            'result' => $var,
            'arg <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	998	1099	
==>oad rules file $rules_file: $!\n";
}

# Create metavariables table.
my $metavars = {};

# Generate ini <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	11482	11584	
==>z]\w*/gci
	    	or _match_codeblock($textref, "", '\{', '\}', '\{', '\}', 0)
		or $deref eq '$#' or $de <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5028	5125	
==>]");
    my $fail = $self->output_label_use($failLabel);
    my $pass = $self->output_label_use($p <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4703	4800	
==>]");
    my $fail = $self->output_label_use($failLabel);
    my $pass = $self->output_label_use($p <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54714	54829	
==><$pretty_form{$1} || '\\x{'.sprintf("%x", ord($1)).'}'>eg;
      }
      qq{"$_"};
    }
  } @stuff;
  # $out =~ s/\ <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	9780	9925	
==>op' => 'l!',
             'parrot_is_shared' => 0,
             'perl' => 'perl',
             'platform_asm' => 0,
             'pmc' => 'default <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	6127	6254	
==>le_suffixes
{
    my $self = shift;
    my $recursive = shift;
    my $ignore = shift;
    my %suffixes = ();
    
    foreach m <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2798	2894	
==>)  unless defined $left_type;
  $self->INTERNAL_ERROR("No type for right!") unless defined $right <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2564	2660	
==>)  unless defined $left_type;
  $self->INTERNAL_ERROR("No type for right!") unless defined $right <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2486	2582	
==>)  unless defined $left_type;
  $self->INTERNAL_ERROR("No type for right!") unless defined $right <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	4881	5010	
==>st, $source];
}

sub XXX {
   my ($n, $c, $cmt) = @_;
   print "#Unknown '$cmt'\n";
}

sub Label {
   my ($n, $c) = @_;
   print < <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	11328	11453	
==>c (@supported) {
      $n = lc($enc);
      $n =~ tr[-_][]d;
      next unless $n eq $norm;
      $suggestion = "  (Maybe \"$e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104901	105200	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ": <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105638	105937	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ": <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	106376	106675	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ": <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	35449	35559	
==>sing stuff...
      # "With the ill behavior, with the ill behavior, with the ill behavior..."

      DEBUG > 1 <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22331	22426	
==>label = $self->_gensym();

  my $temp_0 = $self->_generate($node->{children}[1]);
  $return = $s <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22832	22927	
==>label = $self->_gensym();

  my $temp_0 = $self->_generate($node->{children}[1]);
  $return = $s <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	14639	14848	
==>sult,
                    'arg1'   => $nil->[0],
                );
                push @{$exprs}, [ $result, [] ];
                push @{ $callop->{result} }, $result;
            }
            push @{ <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	1093	1191	
==>se level

=item C<--no-lines>

Omit source line info

=item C<--no-body>

Emit an empty body in the <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	285	378	
==>::OpTrans> and is
used by F<tools/build/pbc2c.pl> to transform Parrot bytecode to a C code
run <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27125	27285	
==>anchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $l_break;
            }
        }
    }
    push @opcodes, @{$bl <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27806	27966	
==>anchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $l_break;
            }
        }
    }
    push @opcodes, @{$bl <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1124	1220	
==>n->text_r()

This returns a scalar reference to the string that this token holds.
This can be use <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	2015	2118	
==>erhaps this should be handled in the Tree -> List rewrite??

=cut

sub optimize {
    my ($self, $ops, $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2007	2101	
==>d*)*(cur_opcode += $offset))";
}

=item C<goto_pop()>

Transforms the C<goto POP()> macro in an <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4577	4688	
==>urn $self->op('nop', [], %$self);
    } elsif (@{ $self->{args} } == 1 && 2 == keys %$self) {
        return $se <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5714	5825	
==>urn $self->op('nop', [], %$self);
    } elsif (@{ $self->{args} } == 1 && 2 == keys %$self) {
        return $se <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	214	319	
==>ad1 SYNOPSIS

Set the number of tests to be run like this:

    use Parrot::Test tests => 8;

Write indivi <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1359	1484	
==>.
        # The logo gets printed to STDERR; hence the redirection.
        my $cc_output = `$cc /? 2>&1` || '';
        $ccfl <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7553	7671	
==>tmp>>] INT: \%<$reg>$desc\n"),
               );
    }
    return $self->pushop . " <rx_stack>, $reg";
}

sub output_sa <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	12161	12271	
==>}
dec stack_depth

PRE_CALL_END_${CURIC}:
PIR
    return $pir;
}

sub post_call {
    # Nothing to do.
    retu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	567	676	
==>EN', LAST => 'ELSE' },
  'sub'      => { PREFIX => "_S", NEXT => 'TEST', REDO => 'THEN', LAST => 'ELSE' }, # T <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	588	697	
==>EN', LAST => 'ELSE' },
  'sub'      => { PREFIX => "_S", NEXT => 'TEST', REDO => 'THEN', LAST => 'ELSE' }, # T <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	925	1085	
==>_type =
     ( p => "void *",
       i => "int",
       3 => "int *",
       l => "long",
       4 => "long *",
       c => "char",
       s => "short",
       2 <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	1340	1500	
==>_type =
     ( p => "void *",
       i => "int",
       3 => "int *",
       l => "long",
       4 => "long *",
       c => "char",
       s => "short",
       2 <==
3	/Users/nnunley/parrot/config/auto/readline.pm	409	502	
==>:Configure::Step ':auto';

$description = 'Determining if your platform supports readline';

@ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7729	7830	
==>egister name now.
	if (!$dest_reg) {
		$pir .= <<'PIR'
# Get type (so we can find register type).
${PT <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5847	5948	
==>egister name now.
	if (!$dest_reg) {
		$pir .= <<'PIR'
# Get type (so we can find register type).
${PT <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3907	4001	
==>ent({ Name => 'return' });
  $value->sax($handler) if defined $value;
  $handler->end_element({ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048358	1048502	
==>{\@1}} = Parrot_get_global(interpreter, NULL, {{\@2}}, next);\n    {{+=3}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049282	1049426	
==>{\@1}} = Parrot_get_global(interpreter, NULL, {{\@2}}, next);\n    {{+=3}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	47008	47105	
==>ut text, concatenated),

=item [2]

"" (i.e. the prefix substring -- trivial in this case),

=item <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5527	5628	
==>turns the C code following the run core function.

=cut

sub run_core_finish
{
    my ($self, $base) = <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3863	3964	
==>turns the C code following the run core function.

=cut

sub run_core_finish
{
    my ($self, $base) = <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	4515	4627	
==>::times() )[0] / $ticks },
);

# Find And Build Benchmarks
find sub {
    my $pass;
    for my $regex ( @{ $cfg{r <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	873	969	
==>ako::Construct::Expression::Value');
  confess "Op is not scalar!" if ref $op;
  confess "Right i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	885	981	
==>ako::Construct::Expression::Value');
  confess "Op is not scalar!" if ref $op;
  confess "Right i <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	34605	34750	
==>> {
			"%" => 76,
			"*" => 80,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -59
	},
	{#State 126
		ACTIONS => {
			"-" => 72,
			"%" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47085	47305	
==>S); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEX <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47868	48088	
==>S); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEX <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51868	52088	
==>S); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEX <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8621	8719	
==>ame2character{'apos'}   = "'";
  $Name2character{'sol' }   = '/';
  $Name2character{'verbar'} = '|' <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35612	35707	
==>our tests passed, Test::Builder will exit with zero (which is
normal).  If anything failed it wi <==
3	/Users/nnunley/parrot/lib/Test/More.pm	33683	33778	
==>our tests passed, Test::Builder will exit with zero (which is
normal).  If anything failed it wi <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6836	6930	
==>5, 6-0
t$="1234567890"
print mid$(t$, 2, 8)
print left$(t$, 5)
print right$(t$, 5)
' instr
s1$= <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18565	18659	
==>5, 6-0
t$="1234567890"
print mid$(t$, 2, 8)
print left$(t$, 5)
print right$(t$, 5)
' instr
s1$= <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8064	8183	
==>ex");
    if ($self->{DEBUG}) {
        push @ops, 'print "POPPED: <rx_tmp>\n";';
    }

    # FIXME: Still have extra c <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	75	174	
==>::APL;

use strict;
use warnings;

use File::Basename;

=head1 NAME

Parrot::Test::APL -- testing ro <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	888	985	
==>$ignore)>

Use this to get a list of the files of a particular type.

C<$recursive> and C<$ignore> <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	19715	19827	
==>gs fixed since 21nov94 version:
    #  - Fixed examples.
    # changes/bugs fixed since 02sep94 version:
    #  - <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	18482	18590	
==>p($tos->[2]);
	print <<EOC;
	$n = not $tos->[1] $cmt
EOC
	push @stack, [-1, $n, $tos->[2]];

    }
}

sub UNA <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	4036	4139	
==>" String="[a-zA-Z_][\\w_]*" />
      </context>

END

print <<END;
      <context name="pod" attribute=" <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	3613	3746	
==>sh @{$classes{$_->{'class'}}}, $_;
        } else {
            $classes{$_->{'class'}} = [$_];
        }
    }

    # Build classes d <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7114	7222	
==>output_pushindex {
    my ($self, $reg) = @_;
    $reg = value(defined($reg) ? $reg : 'pos');
    return $sel <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6756	6864	
==>output_pushindex {
    my ($self, $reg) = @_;
    $reg = value(defined($reg) ? $reg : 'pos');
    return $sel <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	3964	4240	
==>RAM
##
###############################################################################
###############################################################################


#
# Tokenize the input, and possibly dump the tokens.
#

sub parse
{
  my $self = shift;

  my $root = $self <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584693	584914	
==>VTABLE_subclass(interpreter, class, NULL);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585768	585989	
==>VTABLE_subclass(interpreter, class, NULL);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884348	884765	
==>,
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1001,
                  "ARGS" => [
                              "s",
                              "sc",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#lin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009832	1009923	
==>> "#line 659 \"src/ops/string.ops\"\n  {{\@1}} = string_compose(interpreter, {{\@2}});\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010597	1010688	
==>> "#line 659 \"src/ops/string.ops\"\n  {{\@1}} = string_compose(interpreter, {{\@2}});\n  {{ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27689	27788	
==>$skip)/$lastsep=$1 and ""/e and '
		. ($check->{itempos}? 'do {'.Parse::RecDescent::Production::inci <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29799	29898	
==>$skip)/$lastsep=$1 and ""/e and '
		. ($check->{itempos}? 'do {'.Parse::RecDescent::Production::inci <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31896	31995	
==>$skip)/$lastsep=$1 and ""/e and '
		. ($check->{itempos}? 'do {'.Parse::RecDescent::Production::inci <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	2857	2988	
==>rep { -f $_ } @{ $options{arguments} };
    }
    else
    {
        # I must be running out of languages/$language
        # You ma <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	2930	3031	
==>ntval;
    my $intval     = $conf->data->get('iv');
    my $intvalsize = $conf->data->get('intvalsize' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	4454	4548	
==>($handler) foreach $self->args;
  $handler->end_element({ Name => 'call' });

  $handler->end_e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655635	655924	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLA <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2895	2989	
==>$self->content;
  $handler->end_element({ Name => 'block' });

  $handler->end_element({ Name = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2777	2871	
==>$self->content;
  $handler->end_element({ Name => 'block' });

  $handler->end_element({ Name = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	317058	317315	
==>",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i2_ovf",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	7209	7341	
==>e $src_stem.c failed ($?)\n";
    }
    else {
        1;
    }
}

sub partial_link {
    my ($group, $libs, $stems) = @_;

    my @s <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7420	7552	
==>e $src_stem.c failed ($?)\n";
    }
    else {
        1;
    }
}

sub partial_link {
    my ($group, $libs, $stems) = @_;

    my @s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	409	516	
==>ub new
{
  my $class = shift;
  my ($block, $left, $right) = @_;

  confess("Block (" . ref($block) . ") not <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	400	507	
==>ub new
{
  my $class = shift;
  my ($block, $left, $right) = @_;

  confess("Block (" . ref($block) . ") not <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	2264	2353	
==>, $description)> or C<output_isnt($code, $unexpected, $description)>

Runs the Parrot Asse <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	1997	2120	
==>ighest enum
         * this reduces MMD table resize action
         */
END_C

    print OUT "        Parrot_${_}_class_init <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19173	19268	
==>$check => aop('lt', [ $matchcount, $min, $local_back ]),
      $next => $self->op_save_rxlocals( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20763	20858	
==>$check => aop('lt', [ $matchcount, $min, $local_back ]),
      $next => $self->op_save_rxlocals( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10463	10594	
==>' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE|PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT",
                  "NA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64052	64183	
==>' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE|PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT",
                  "NA <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	6284	6421	
==>aths, $rel_path;
    }
    else
    {
        warn "Failed to process $rel_path.\n";
    }

    return @rel_paths;
}

=back

=head1 SEE AL <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	8465	8581	
==>ixed{$_->full_name};
        }
        elsif ($seen{$_->full_name}) {
            printf OP "%-31s%4d\n", $_->full_na <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3179	3275	
==>}, "\t#ne \$I0, $vars, ERR_INPFIELDS\n";
	} else {
		push @{$code{$seg}->{code}}, "\tne \$I0, $va <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	587	691	
==>D2HTML;

use strict;
use warnings;

use base qw( Pod::Simple::HTML );

# This is just here to keep Pod::S <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2433	2528	
==>ery single instruction. While we kinda find
	# basic blocks, we don't discover backward branches <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1011	1106	
==>ery single instruction. While we kinda find
	# basic blocks, we don't discover backward branches <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	502	613	
==>erbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    my $ <==
3	/Users/nnunley/parrot/config/auto/readline.pm	514	625	
==>erbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    my $ <==
3	/Users/nnunley/parrot/config/gen/platform.pm	543	654	
==>erbose);

sub runstep {
    my ($self, $conf) = @_;

    my $verbose  = $conf->options->get('verbose');
    my $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	339647	339978	
==>,
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340645	340976	
==>,
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059523	1059767	
==>"JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_name",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060427	1060671	
==>"JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_name",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	17201	17299	
==>::OpTrans> subclass) is supplied then
substitutions are made.

=cut

sub preamble
{
    my($self, $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958593	958881	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959394	959682	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960196	960484	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	536123	536496	
==>_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 620,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22193	22300	
==>Value->new($block, $self->require_value);

        $self->require_close_paren;
      }

      $self->require <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23126	23233	
==>Value->new($block, $self->require_value);

        $self->require_close_paren;
      }

      $self->require <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24772	24878	
==>Value->new($block, $self->require_value);
        $self->require_close_paren;
      }

      $self->require <==
3	/Users/nnunley/parrot/tools/docs/write_docs.pl	244	335	
==>cs/write_docs.pl [--silent] [--delete]

=head1 DESCRIPTION

This script writes the HTML docu <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2457	2539	
==>mops/mops.cs>,
F<examples/mops/mops.il>,
F<examples/mops/mops.p6>,
F<examples/mops/ <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	2457	2539	
==>mops/mops.cs>,
F<examples/mops/mops.il>,
F<examples/mops/mops.p6>,
F<examples/mops/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133392	133655	
==>"NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134172	134435	
==>"NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	3940	4044	
==>es : '[\d\D]';
}
if ( ! @{ $cfg{skip_bench} } ) {
    my @regexes = grep defined, $ini->val( regexes => ' <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	9036	9140	
==>$pointfloat, $expfloat, $frac, $exp);
    $exp = qr/[eE][-+]?\d+/;
    $frac = qr/\.\d+/;
    $pointfloat <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047727	1047990	
==>> "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048650	1048913	
==>> "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	666	762	
==>y, convert them into a a TAP-style
protocol that can then use Test::Harness to run and report res <==
3	/Users/nnunley/parrot/lib/Test/More.pm	12735	12833	
==>mally just refer to 'the object'.  If
you'd like them to be more specific, you can supply an $objec <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17755	17848	
==>,[$list,$list.'[1]']);
  $self->_add_inst ('', 'branch',["NEXT_$label"]);
  # XXX Use exceptio <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	19694	19785	
==>=~ tr/[({</])}>/;
		_match_bracketed($textref,"",$ldel1,"","",$rdel1)
		|| do { pos $$textre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550022	550120	
==>\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+3}};\n  interpreter->current_object = object <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551323	551421	
==>\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+3}};\n  interpreter->current_object = object <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	791	876	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub handle_text {  $_[0]{'Thispar <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	1666	1763	
==>tes that the symbol is global; lowercase indicates that
it is local.

=item C<--type=bsd>

=item C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578146	578384	
==>" => "inline",
                  "CODE" => 660,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 284 \"src/ops/object.ops\" <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	21983	22111	
==>t_lib_${group}_load\n" unless $defexists;
        print $fh "\t$_\n" foreach @{$groups{$group}};
        close $fh;
    }
}

=cut <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27669	27782	
==>> 139,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	771	864	
==>efaults to '/usr/bin'.

=item C<libdir>

The library directory. Defaults to '/usr/lib'.

=item <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	1000	1093	
==>efaults to '/usr/bin'.

=item C<libdir>

The library directory. Defaults to '/usr/lib'.

=item <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32714	32838	
==>ched terminal<< (return value: [}
						. $_tok . q{])},
						  Parse::RecDescent::_tracefirst($text))
							if defined $:: <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	2562	2657	
==>om_file" or die "Can't open up $from_file, error $!";
open OUTPUT, ">$to_file" or die "Can't ope <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895	978	
==>n\n/*\n** io.ops\n*/\n\n#include \"../io/io_private.h\"\n\n\n\n/*\n** math.ops\n*/\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91209	91599	
==>_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 113,
                  "ARGS" => [
                              "i",
                              "ic",
                              " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488721	488959	
==>LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_cor <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4865	4963	
==>my @internal_calls = grep { ! /^_/ } sort keys %internal_calls;
    my @non_ansi_external_calls = g <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653392	653483	
==>method(interpreter, {{\@2}}, {{\@3}});\n    if (!{{\@1}} || !VTABLE_defined(interpreter, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654553	654644	
==>method(interpreter, {{\@2}}, {{\@3}});\n    if (!{{\@1}} || !VTABLE_defined(interpreter, {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499486	499692	
==>ps/math.ops\"\n  {{\@1}} = floatval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500249	500455	
==>ps/math.ops\"\n  {{\@1}} = floatval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	18859	18960	
==>ABLE_IS_CONST_FLAG' : 0;
    if (exists $self->{flags}{need_ext}) {
        $vtbl_flag .= '|VTABLE_PMC <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	48162	48259	
==>now the rest of the line
on which the here document starts is not skipped.

To prevent <extract_qu <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	2440	2553	
==>\n";
	goto UNK if ($type[CURR] ne 'BARE');
	goto BARE if (! iskeyword($syms[CURR]));

	# The "unimplementeds"
	# E <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679150	679260	
==>\n    {{\@1}}->vtable->unshift_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679929	680039	
==>\n    {{\@1}}->vtable->unshift_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28207	28309	
==>_edit($self->{file});
    my $name = uc $self->{class};
    $hout .= <<"EOH";

#ifndef PARROT_PMC_${nam <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	822	919	
==>nts the C<Pod::Simple::HTML> method to add a header to the start
of the document.

=cut

sub do_be <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16113	16376	
==>ROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16885	17148	
==>ROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4957	5077	
==>$op->{args} }) {
        my $kidmax = $kid->maxlen();
        return undef if ! defined $kidmax;
        $maxlen += $kidm <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480570	480720	
==>"
                            ],
                  "BODY" => "#line 446 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_ex <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481573	481723	
==>"
                            ],
                  "BODY" => "#line 446 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_ex <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482576	482726	
==>"
                            ],
                  "BODY" => "#line 446 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    real_ex <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10793	10886	
==>onst int ELEMENT_TYPE_U2 = 0x07
	.const int ELEMENT_TYPE_I4 = 0x08
	.const int ELEMENT_TYPE_U4 <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	6257	6348	
==>y Michael G Schwern
E<lt>schwern@pobox.comE<gt>, wardrobe by Calvin Klein.


=head1 COPYRIGH <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	15725	15827	
==>laint\n because no_errata_section is on.\n";
  } else {
    DEBUG > 9 and print "Queuing erratum (at li <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3496	3586	
==>a'} = '';
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3026	3116	
==>a'} = '';
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	237	340	
==>h';
    $ctx->{rx_stack} ||= 'rx_stack';
    $ctx->{rx_ptmp} ||= 'rx_ptmp';
    $ctx->{rx_tmp} ||= 'rx_i <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5036	5137	
==>'STACK', 'CHECK', 'DOTPOS' };

#DBG>	my($debug)=$$self{DEBUG};
#DBG>	my($dbgerror)=0;

#DBG>	my($ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4793	4889	
==>'STACK', 'CHECK', 'DOTPOS' };

#DBG>	my($debug)=$$self{DEBUG};
#DBG>	my($dbgerror)=0;

#DBG>	my($ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4563	4668	
==>(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note that for loading debugging version of th <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	6374	6478	
==>tput;
}

sub pack_smoke {
  my %smoke = @_;

  my $summary = join("-", map { $smoke{summary}{$_} } qw<tot <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4335	4434	
==>(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note that for loading debugging version of th <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305141	305404	
==>_JUMP_RELATIVE",
                  "NAME" => "if_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305929	306192	
==>_JUMP_RELATIVE",
                  "NAME" => "if_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12349	12483	
==>. ')'/xeg;

    # Rewrite SUPER(args...)
    s/SUPER             # Macro: SUPER
      \(\s*(.*?)\)      # capture argument list
     /" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351018	351258	
==>FMT, (INTVAL){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351680	351920	
==>FMT, (INTVAL){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	21798	21909	
==>k = $_[3];

		pos $$textref ||= 0;

		unless (wantarray)
		{
			use Carp;
			carp "extract_multiple reset maxima <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	2183	2283	
==>This list is one per line, and
is relative to the languages dir.

If called with no args, run the sui <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	275	383	
==>b text { (@_ == 2) ? ($_[0][1] = $_[1]) : $_[0][1] }

sub text_r { \ $_[0][1] }

1;

__END__

=head1 NAME

Po <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1339	1444	
==>($count, $expr) = _build_tree ($tokens, $count);
    push @{$temp->{children}}, $expr;
  }
  else {
    $t <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9254	9366	
==>ut_fh'}} '</b>' if $self->{IN_ITEM_TEXT};
    }
    elsif ( $tagname eq 'item-text' )
    {
        $self->{IN_IT <==
3	/Users/nnunley/parrot/lib/Test/More.pm	9551	9648	
==>n the end (C<'/that/i'>).

Its advantages over ok() are similar to that of is() and isnt().  Bette <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3	89	
==>usr/bin/perl

# $Id: /parrot/tools/dev/mk_manifest_and_skip.pl 19471 2006-05-15T19:40:3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038084	1038458	
==>=> "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1160,
                  "ARGS" => [
                              "sc",
                              "p"
                            ],
                  "BO <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	11723	11839	
==>+, $type, $short_name,
            [ @fixedargs ], [ @$argdirs ], [ @$labels ], $flags);
        my $op_size = $op->s <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	586	684	
==>::Label');
}

=item method label_indices(op)

Figure out which arguments of an op are labels, and r <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30382	30509	
==>dest set case.
        if ($need_dest) {
            my $label = "LD_VALTYPE_$name";
            $pir .= <<PIR
\$I1000000 = load <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2494	2590	
==>);

#  $self->DEBUG(0, "Remembering symbol '$name' as sub...");

  $block->set_symbol($name, $sym <==
3	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	2043	2139	
==>ess::Bzip2; debug "Bzip2 compression on\n" } and
    return $compress = sub { Compress::Bzip2::me <==
3	/Users/nnunley/parrot/lib/Test/More.pm	14850	14951	
==>at went wrong when it failed.  But sometimes it doesn't work out
that way.  So here we have ways for y <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	5799	5897	
==>This implementation of the MD5 algorithm has some limitations:

=over 4

=item *

It's slow, very s <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	479	574	
==>use warnings;

use base qw( Parrot::IO::Directory );

use Parrot::Docs::File;

=item C<file_clas <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18687	18781	
==>truct::Expression::Value->new($block, $self->require_value);
          last if $self->get(1)->i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19713	19807	
==>truct::Expression::Value->new($block, $self->require_value);
          last if $self->get(1)->i <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11578	11665	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub unicode_escape_url {
  my($self, $str <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8445	8559	
==>ft;
	my $dest_reg = shift;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the store <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6265	6379	
==>ft;
	my $dest_reg = shift;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the store <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5180	5294	
==>ft;
	my $dest_reg = shift;
	my $pir = "";

	# If destination is a register then it is up to the SRM to do the store <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	33016	33122	
==>1; }"
	
then after the deletion it would contain:

	"if ('.$UNIXCMD/s) { $cmd = $1; }"

not:

	"if ('./cmd' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4618	4736	
==>lsif (@{ $self->{args} } == 1 && 2 == keys %$self) {
        return $self->{args}->[0];
    } else {
        return $se <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5755	5873	
==>lsif (@{ $self->{args} } == 1 && 2 == keys %$self) {
        return $self->{args}->[0];
    } else {
        return $se <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	326	429	
==>s"    => \$output_file
) or usage();
$input_file = shift @ARGV;
usage() if !$input_file || @ARGV;

# Par <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	715	825	
==>dvance P0, $failLabel") x $distance;
    }
}

sub output_match {
    my ($self, $byte, $failLabel) = @_;
    re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553885	553983	
==>\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+4}};\n  interpreter->current_object = object <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555282	555380	
==>\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+4}};\n  interpreter->current_object = object <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	1322	1425	
==>g.pm";
		%Parrot::Config::PConfig
	} or die "Unable to locate Parrot::Config.\n";
	
	# Return config <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78879	78969	
==>176 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80400	80490	
==>176 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41344	41475	
==>name}.'}=')
			     . '$1; } if defined $1;' : "" ) . '
		  }
		  $text = $savetext;
		  pop @item if $backtrack;

		  # MATCH RIGHT <==
3	/Users/nnunley/parrot/lib/Test/More.pm	31441	31571	
==>1 if $a1 eq $a2;

    my $ok = 1;
    my $bigger = keys %$a1 > keys %$a2 ? $a1 : $a2;
    foreach my $k (keys %$bigger) {
        m <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	103	215	
==>opts) = @_;
    my $self = bless \%opts, (ref($proto) || $proto);
    $self->init();
    return $self;
}

sub ini <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	313	425	
==>opts) = @_;
    my $self = bless \%opts, (ref($proto) || $proto);
    $self->init();
    return $self;
}

sub ini <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	18076	18186	
==>or might not be called 'new'
       * the class might not have a hash-like-arguments constructor
       * the c <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2128	2222	
==>$left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako::Construct::Expression:: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2086	2180	
==>$left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako::Construct::Expression:: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2008	2102	
==>$left->type;
  }

  my $right_type;
  if (UNIVERSAL::isa($right, 'Jako::Construct::Expression:: <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6205	6323	
==>up!;
    return @ops;
}

sub output_getstart {
    my ($self, $reg, $group) = @_;
    $reg = value($reg);
    return qq <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5843	5961	
==>up!;
    return @ops;
}

sub output_getstart {
    my ($self, $reg, $group) = @_;
    $reg = value($reg);
    return qq <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13506	13817	
==>event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 18,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4058	4173	
==>rameter '".lc($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _DBLoad {
	{
		no strict 'refs' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3855	3960	
==>rameter '".lc($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _DBLoad {
	{
		no strict 'refs' <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	2695	2788	
==>uct($vtable)>

Returns the C C<struct> definitions for the elements in the referenced
vtable a <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	6848	6939	
==>'} } if wantarray;
  return;
}

#----------------------------------------------------------- <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	8387	8478	
==>'} } if wantarray;
  return;
}

#----------------------------------------------------------- <==
3	/Users/nnunley/parrot/tools/dev/pbc_header.pl	1803	1920	
==>ack 'c', $c;
	    printf "\t%-12s= %s\n", $fields[$i],$c;
	}
    }
}

sub main {
    my ($result, $upd_fp);
    $resul <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	10289	10389	
==>mber of tests which are
expected to run. This should be specified at the very top of your tests.

- ` <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2267	2362	
==>tem C<access_arg($type, $value, $op)>

Returns the C code for the specified op argument type (se <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3158	3253	
==>tem C<access_arg($type, $value, $op)>

Returns the C code for the specified op argument type (se <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27509	27627	
==>eftmost($self) ? ''
				: $self->describe ) . '};
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29619	29737	
==>eftmost($self) ? ''
				: $self->describe ) . '};
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31716	31834	
==>eftmost($self) ? ''
				: $self->describe ) . '};
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . <==
3	/Users/nnunley/parrot/tools/util/pirtidy.pl	647	758	
==>tted();
    print {$ofh} $output;

    close $ifh;
    close $ofh;
}

__END__

=head1 NAME

tools/util/pirtidy.p <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4339	4438	
==>utput_match {
    my ($self, $code, $failLabel) = @_;
    my $comment = Regex::Ops::Tree::isplain($c <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4026	4125	
==>utput_match {
    my ($self, $code, $failLabel) = @_;
    my $comment = Regex::Ops::Tree::isplain($c <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11436	11529	
==>ave a return value.
PRE_CALL_RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8622	8715	
==>ave a return value.
PRE_CALL_RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7194	7287	
==>ave a return value.
PRE_CALL_RETURN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 <==
3	/Users/nnunley/parrot/config/init/defaults.pm	3307	3419	
==>extension
        share_ext => ".$Config{so}",    # shared library extension

        # dynamically loadable modu <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	918	1005	
==>NT(cur_opcode[i])
#define NREG(i) REG_NUM(cur_opcode[i])
#define PREG(i) REG_PMC(cur_opc <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1034	1121	
==>NT(cur_opcode[i])
#define NREG(i) REG_NUM(cur_opcode[i])
#define PREG(i) REG_PMC(cur_opc <==
3	/Users/nnunley/parrot/config/inter/encoding.pm	1646	1768	
==>h}encodings${slash}/g;

    $conf->data->set(
        encoding            => $encoding_list,
        TEMP_encoding_o     => <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	1089	1188	
==>,000,000 TIMES


sub import	# IMPLEMENT PRECOMPILER BEHAVIOUR UNDER:
		#    perl -MParse::RecDescent <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121448	121733	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122359	122644	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => " <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	4	99	
==>age Scheme::Parser;

use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

$V <==
3	/Users/nnunley/parrot/config/inter/lex.pm	759	862	
==>et('verbose');

    # undef means we don't have flex... default to not having flex
    $conf->data->set( <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2829	2937	
==>ack in module-level code"
   END
Sub1:
   PRINT "2 in subroutine one"
   GOSUB Sub2
   PRINT "ERR this line i <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16796	16904	
==>ack in module-level code"
   END
Sub1:
   PRINT "2 in subroutine one"
   GOSUB Sub2
   PRINT "ERR this line i <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19472	19618	
==>' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 100,
			'functioncall' => 31, <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21637	21783	
==>' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 100,
			'functioncall' => 31, <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33152	33298	
==>' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 100,
			'functioncall' => 31, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348562	348827	
==>"JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349563	349828	
==>"JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => " <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	12753	12854	
==>oadtype';
    $mv->{'RETTYPE'} = 'rettype';
    $mv->{'LABELNUM'} = 'label_num';
    $mv->{'EHANDLERS' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921084	921406	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sprintf",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921977	922299	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sprintf",
                  " <==
3	/Users/nnunley/parrot/languages/pugs/t/pmc.pm	175	282	
==>se Parrot::Test 'no_plan';
use Test::More;

sub import {
    my $class = shift;

    my (undef, $file, undef <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3189	3286	
==>C<PC + S>, the position of the next op.

=item C<expr ADDRESS(X)>

Transforms to C<X>, an absolute <==
3	/Users/nnunley/parrot/tools/build/vtable_extend.pl	3047	3148	
==>by Dan Sugalski.

=cut

*/

/*
 * Local variables:
 * c-indentation-style: bsd
 * c-basic-offset: 4
 * <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	12987	13074	
==>s/core.ops\"\n  opcode_t * loc;\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13831	13918	
==>s/core.ops\"\n  opcode_t * loc;\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	709223	709330	
==>ine 709 \"src/ops/pmc.ops\"\n  dod_unregister_pmc(interpreter, {{\@1}});\n  {{+=2}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561882	561974	
==>{{\@2}}, {{\@3}});\n  if (!{{\@1}}) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562966	563058	
==>{{\@2}}, {{\@3}});\n  if (!{{\@1}}) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293497	293805	
==>) == 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294373	294681	
==>) == 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295249	295557	
==>) == 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iseq <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6525	6640	
==>for my $source (@sources) {
        return 1 if modtime($source) > $target_mod;
    }

    return 0;
}

sub generate <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4945	5060	
==>for my $source (@sources) {
        return 1 if modtime($source) > $target_mod;
    }

    return 0;
}

sub generate <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6736	6851	
==>for my $source (@sources) {
        return 1 if modtime($source) > $target_mod;
    }

    return 0;
}

sub generate <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	331359	331568	
==>E" => "inline",
                  "CODE" => 389,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 40 \"src/ops/io.ops\"\n  PIO_cl <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	5724	5837	
==>oreach my $part ($what =~ /((?:\%\<\w+\>)|[^\%]+)/g) {
        if ($part =~ /^%/) {
            push @ops, aop('pr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3216	3311	
==>ype = $self->type;

  if (UNIVERSAL::isa($type, 'Jako::Construct::Type::String')) {
    my $stri <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48623	48733	
==>lsif ($grammar =~ m/$MANY/gco)
					{ }
				elsif ($grammar =~ m/$BADREP/gco)
				{
					_parse("an invalid rep <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31143	31239	
==>Parrot::Pmc2c qw( gen_ret );

=item C<implements($method)>

Always true for vtables.

=cut

sub i <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39763	39859	
==>Parrot::Pmc2c qw( gen_ret );

=item C<implements($method)>

Always true for vtables.

=cut

sub i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	536596	536887	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sin",
                  "FLAGS" => ":b <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	7389	7529	
==>} $op->{op} $op->{arg2}->{symbol} goto $op->{result}->{symbol}\n";
        }
        else {
            print {$FH}
                "  if <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	5719	5817	
==>se this to get an array of the file type suffixes used for files in the
directory.

C<$recursive> a <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4925	5035	
==>_bytecode "PGE/Text.pir"
            load_bytecode "PGE/Util.pir"
            p6rule_compile = compreg "PGE::P6 <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	2727	2828	
==>eturntype =~ s/^((static)\s+)?//i;
    $static = $2 || "";

    return [$static, $returntype, $funcnam <==
3	/Users/nnunley/parrot/tools/util/pirtidy.pl	4	99	
==>erl
# $Id: /parrot/tools/util/pirtidy.pl 19235 2006-05-11T16:43:46.320675Z particle  $

use stri <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25468	25555	
==>gt FORLOOP_STEP_$forloop, 0.0, FOR_GT_$forloop
	lt $result, FORLOOP_END_$forloop, AFTER_ <==
3	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	600	702	
==>version
{
    if (defined $parrot_version) {
        return wantarray ? @parrot_version : $parrot_versi <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	7043	7144	
==>ed by ANSI C89:\n", scalar(@non_ansi_external_symbols));

    print "    $_ (in " . (join ',', @{$refe <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2051	2152	
==>r  { --$_[0]{'Indent'} }
sub   end_over_text    { --$_[0]{'Indent'} }
sub   end_over_block   { --$_[0] <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1619	1720	
==>r  { --$_[0]{'Indent'} }
sub   end_over_text    { --$_[0]{'Indent'} }
sub   end_over_block   { --$_[0] <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	328	431	
==>e strict;
use SRM::Base;
our @ISA = qw/SRM::Base/;

# Constructor. Just base this class on a hash.
sub n <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	234	337	
==>e strict;
use SRM::Base;
our @ISA = qw/SRM::Base/;

# Constructor. Just base this class on a hash.
sub n <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	142	245	
==>e strict;
use SRM::Base;
our @ISA = qw/SRM::Base/;

# Constructor. Just base this class on a hash.
sub n <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	4835	4947	
==>{ $_->[1]} $self->args)) . ")");
      $compiler->emit("  .return(__result)");
    }
    else {
      $compiler-> <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	4659	4770	
==>me} ;
    if ($n != $_->{CODE}) {
	die "op number mismatch ops.num: $n core.ops: $_->{CODE}";
    }
    if ($seq <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42185	42281	
==>expected;
			}
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched operato <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2195	2295	
==>evious definition.
  #

  if (defined $sym and $sym->block eq $block) {
    $self->SYNTAX_ERROR("Rede <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1942	2042	
==>evious definition.
  #

  if (defined $sym and $sym->block eq $block) {
    $self->SYNTAX_ERROR("Rede <==
3	/Users/nnunley/parrot/lib/Test/More.pm	36247	36345	
==>nes are kept tiny, special cases and
magic side-effects are kept to a minimum.  WYSIWYG.


=head1 S <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	2338	2456	
==>'configdate' => 'Wed Jun 28 10:53:19 2006',
             'cp' => 'perl -MExtUtils::Command -e cp',
             'cpuarc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791565	791655	
==>DY" => "#line 432 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed_int(int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792472	792562	
==>DY" => "#line 432 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed_int(int <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1244	1344	
==>lf->SYNTAX_ERROR("Call to unknown sub '%s'.", $name) unless $sym;

  my %props = $sym->props;

  my @ <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	3016	3148	
==>g' failed with exit code $exit_code."
                if $exit_code;
            $self->{builder}->diag($diag) if $diag;
        } <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	2628	2749	
==>g' failed with exit code $exit_code." if $exit_code;
               $self->{builder}->diag( $diag ) if $diag;
           } <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2627	2742	
==>g' failed with exit code $exit_code." if $exit_code;
            $self->{builder}->diag( $diag ) if $diag;
        } <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	4728	4849	
==>>{args} }) {
            if (UNIVERSAL::isa($arg, 'Regex::Ops::Tree')) {
                # $arg is a reference variable, r <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	10078	10199	
==>>{args} }) {
            if (UNIVERSAL::isa($arg, 'Regex::Ops::Tree')) {
                # $arg is a reference variable, r <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	20570	20679	
==>s};
}

=item B<no_header>

    $Test->no_header($no_header);

If set to true, no "1..N" header will be printed <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83125	83419	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84030	84324	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12307	12420	
==>arrot_${1}_$method(" . full_arguments($2) . ')'/xeg;

    # Rewrite SUPER(args...)
    s/SUPER             # Macro <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	1504	1646	
==>lse, it didn't.  That's about it.

ok() prints out either "ok" or "not ok" along with a test number (it
keeps track of that for you).

  # This <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2109	2213	
==>e);

    # The following MUST apply.
    check_tabs($file, $source);
    check_cpp_indents($file, $source <==
3	/Users/nnunley/parrot/config/auto/isreg.pm	217	313	
==>has a working C<S_ISREG>.

=cut

package auto::isreg;

use strict;
use vars qw($description @args <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	6622	6780	
==>e',
             'i_termio' => undef,
             'i_termios' => 'define',
             'i_time' => undef,
             'i_unistd' => 'define',
             ' <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2178	2289	
==>DEBUG}) {
		_DBLoad();
		$retval = eval '$self->_DBParse()';#Do not create stab entry on compile
        $@ a <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2097	2205	
==>DEBUG}) {
		_DBLoad();
		$retval = eval '$self->_DBParse()';#Do not create stab entry on compile
        $@ a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	337927	338115	
==>95,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 103 \"src/ops/io.ops\"\n  {{\@1}} = PIO_STDIN(interpret <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362386	362595	
==>" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 281 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Pa <==
3	/Users/nnunley/parrot/languages/urm/urm-old.pl	1525	1645	
==>register{$1} < 0) { $register{$1} = 0 }
	$pos++;
    }
    elsif ($line =~ / *goto *(\d+)/) {
	$pos=$1 ;
    }
    else { <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	7425	7521	
==>_BUILD_CALL_FRAMES*/
#endif

/*
 * helper funcs - get argument n
 */
static INTVAL
get_nci_I(Inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10354	10550	
==>LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE|PARROT_JUMP_ENE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63943	64139	
==>LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE|PARROT_JUMP_ENE <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	12307	12413	
==>$back, @ops);
}

sub rewrite_advance {
    my ($self, $op, $howfar, $lastback) = @_;
    my $back = $self-> <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2248	2350	
==>',
	'tbl' => 'Vtable file',
	'tcl' => 'TCL code',
	'txt' => 'Text file',
	'urm' => 'URM code',
	'vim' = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25767	25860	
==>nless') {
        $cond = Jako::Construct::Block::Conditional::Unless->new($block, $left, $op, <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	334	440	
==>ct;
use SRM::Base;
our @ISA = qw/SRM::Base/;

# Constructor. Just base this class on a hash.
sub new() {
	m <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	240	346	
==>ct;
use SRM::Base;
our @ISA = qw/SRM::Base/;

# Constructor. Just base this class on a hash.
sub new() {
	m <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	148	254	
==>ct;
use SRM::Base;
our @ISA = qw/SRM::Base/;

# Constructor. Just base this class on a hash.
sub new() {
	m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054376	1054469	
==>get from null namespace.\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to get null g <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055503	1055596	
==>get from null namespace.\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to get null g <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	280	388	
==>er;
    *{$caller.'::ok'} = \&ok;

    $Test->exported_to($caller);
    $Test->plan(@_);
}


=head1 NAME

Tes <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	1206	1302	
==>" warning text. C<$pmcfile> is the name
of the original source F<*.pmc> file.

=cut

sub dont_edi <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	22750	22850	
==>lib/Regex/Grammar.y"
{ return $_[1]; }
	],
	[#Rule 43
		 'classpiece', 3,
sub
#line 179 "lib/Regex/Gr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210274	210368	
==>,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) <= 0) {\n    {{+={{\@3}}}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211254	211348	
==>,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) <= 0) {\n    {{+={{\@3}}}} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2717	2813	
==>r dest!")  unless defined $dest_type;
  $self->INTERNAL_ERROR("No type for left!")  unless define <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2483	2579	
==>r dest!")  unless defined $dest_type;
  $self->INTERNAL_ERROR("No type for left!")  unless define <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2405	2501	
==>r dest!")  unless defined $dest_type;
  $self->INTERNAL_ERROR("No type for left!")  unless define <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	383	493	
==>:Construct::Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected 5 args!" unless @_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	383	493	
==>:Construct::Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected 5 args!" unless @_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231100	231253	
==>"
                            ],
                  "BODY" => "#line 592 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232004	232157	
==>"
                            ],
                  "BODY" => "#line 592 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232908	233061	
==>"
                            ],
                  "BODY" => "#line 592 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3} <==
3	/Users/nnunley/parrot/config/auto/env.pm	45	138	
==>n.
# $Id: /parrot/config/auto/env.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

c <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	2893	2982	
==>@hargray.com

=head1 SEE ALSO

L<Scheme>, L<Scheme::Tokenizer>, L<Scheme::Generator>

=cut <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1895	2013	
==>rogram they provided appears to be
    # broken
    if ($ret == -1 and !$conf->options->get('ask')) {

        # fall b <==
3	/Users/nnunley/parrot/config/inter/make.pm	1769	1887	
==>rogram they provided appears to be
    # broken
    if ($ret == -1 and !$conf->options->get('ask')) {

        # fall b <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1909	2027	
==>rogram they provided appears to be
    # broken
    if ($ret == -1 and !$conf->options->get('ask')) {

        # fall b <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5891	6011	
==>d($$token)
            or	do {
				($$token,$$value)=&$lex($self);
#DBG>				$debug & 0x01
#DBG>			and	print STDERR "N <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5610	5726	
==>d($$token)
            or	do {
				($$token,$$value)=&$lex($self);
#DBG>				$debug & 0x01
#DBG>			and	print STDERR "N <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20956	21050	
==>="Blah"
end function
print foo$()

' Some assembly required
print "Hello, world"
_STARTASM
	pri <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	725998	726105	
==>\"src/ops/set.ops\"\n  {{\@1}} = string_copy(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726760	726867	
==>\"src/ops/set.ops\"\n  {{\@1}} = string_copy(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741978	742085	
==>\"src/ops/set.ops\"\n  {{\@1}} = string_copy(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	6321	6450	
==>ues
        $line =~ s{ \@ (\w+) \@ }{
            if(defined(my $val=$conf->data->get($1))) {
                #use Data::Dumper;w <==
3	/Users/nnunley/parrot/config/inter/progs.pm	653	764	
==>nkflags ldflags libs debugging
    lex yacc maintainer);

sub runstep
{
    my ($self, $conf) = @_;

    my ($cc <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9408	9503	
==>->{'output_fh'}} $self->{'Tagmap'}{"/$tagname"} || return;
    
    --$self->{DONT_WRAP} if $tag <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710767	710856	
==>o, \" \");\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  PIO_softspace(inter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711601	711690	
==>o, \" \");\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  PIO_softspace(inter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030942	1031245	
==>{
                  "JUMP" => 0,
                  "NAME" => "sizeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031810	1032113	
==>{
                  "JUMP" => 0,
                  "NAME" => "sizeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	370651	370944	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "readline",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
3	/Users/nnunley/parrot/lib/Test/More.pm	20042	20167	
==>IP: {
        eval { require HTML::Lint };

        skip "HTML::Lint not installed", 2 if $@;

        my $lint = new HTML::Li <==
3	/Users/nnunley/parrot/lib/Test/More.pm	6911	7025	
==>8 - sufficient mucus
    #     Failed test 18 (foo.t at line 42)

This is actually Test::Simple's ok() routine.

=c <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1704	1808	
==>CK => \$check };

	_CheckParams( [], \%params, \@_, $self );

		exists($$self{VERSION})
	and	$$self{ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1645	1744	
==>CK => \$check };

	_CheckParams( [], \%params, \@_, $self );

		exists($$self{VERSION})
	and	$$self{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255784	256113	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "xor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256691	257020	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "xor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257599	257928	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "xor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15969	16076	
==>aracter (which
  #  looks just like a normal dash character).
  
  my $x; # scratch
  if(!defined wantarray) <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	10521	10667	
==>\(interpreter,
        \s*
        {{\@1}}
        \);
        \s+{{\+=\d}}/xm) {
            $jit_func = 'Parrot_jit_vtable1_op';
            $ext <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	2615	2700	
==>ine =~ s/PREV_OP\s(..?)\s(\w+)/(jit_info->prev_op) && (*jit_info->prev_op $1 $opcodes{ <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	708	808	
==>flags = $conf->data->get('linkflags');
    my $ccflags   = $conf->data->get('ccflags');
    if ($^O = <==
3	/Users/nnunley/parrot/config/auto/readline.pm	720	820	
==>flags = $conf->data->get('linkflags');
    my $ccflags   = $conf->data->get('ccflags');
    if ($^O = <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	93	182	
==>rce_standards.pl 19607 2006-05-30T15:23:20.183054Z coke  $

=head1 NAME

tools/dev/check_s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062491	1062585	
==>r.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063360	1063454	
==>r.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064230	1064324	
==>r.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed(in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	486699	486992	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ceil",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	487450	487743	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ceil",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
3	/Users/nnunley/parrot/languages/regex/test.pl	1657	1768	
==>age(0);
    } elsif (/^(-c|--compile)$/) {
        $compile = 1; # Compile only
    } elsif (/--no(-?)optimize/) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319259	319451	
==>ception(1, \"Overflow exception for conv_u2_ovf\");\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398101	398269	
==>ic",
                              "i"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399182	399350	
==>ic",
                              "i"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@ <==
3	/Users/nnunley/parrot/tools/dev/pbc_header.pl	835	953	
==>pat_file or die "Can't read $compat_file";
    my @lines = <IN>;
    close IN;

    my $len = 10;
    my $fingerprint = <==
3	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	761	863	
==>pat_file or die "Can't read $compat_file";
my @lines = <IN>;
close IN;

my $len = 10;
my $fingerprint = <==
3	/Users/nnunley/parrot/examples/benchmarks/stress.pl	31	117	
==>Perl Foundation.
# $Id: /parrot/examples/benchmarks/stress.pl 19601 2006-05-30T13:32:26 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511348	511735	
==>_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 589,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 68 <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	3597	3769	
==>);
        if ( $type eq 'key' ) {
            push @opcodes, new ConstDir( $parser,
                'prolog' => 1,
                'result' => $defn,
                ' <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	51146	51281	
==>ct verb object
                        <defer: {$::theVerb = $item{verb}} >

Parse::RecDescent uses C<extract_codeblock($text, '{}E<lt>E <==
3	/Users/nnunley/parrot/tools/dev/symlink.pl	603	701	
==>name($self);
my $toolsrcbase = basename($self);

use vars qw($v);

if ($toolsrcdir ne '' && -d $too <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	5470	5567	
==>s;
  push @{ $branches{$_->{branch}}{$category->($_)} }, $_ for @smokes;

  foreach my $branch (ke <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	10463	10554	
==>utting in HACKRAW (no-op) encoding mode.\n";

  } elsif( Pod::Simple::Transcode::->encoding_ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61917	62029	
==>=~ s/\s*>\Z//;
				$matchrule = 1;
			}

		# EXTRACT TRAILING ARG LIST (IF ANY)

			my ($argcode) = extract_codeb <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	364	469	
==>ct_quotelike
				&extract_codeblock
				&extract_variable
				&extract_tagged
				&extract_multiple

				& <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	724	828	
==>e::Copy ();
use File::Spec;
use File::Which;

# XXX $conf is a temporary hack
our $conf;

our @EXPORT = ( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7579	7713	
==>n"),
               );
    }
    return $self->pushop . " <rx_stack>, $reg";
}

sub output_save {
    my ($self, $reg) = @_;
    $reg = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1989	2107	
==>urn 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  if (not $self->prefix and $self->peer an <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1866	1984	
==>urn 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  if (not $self->prefix and $self->peer an <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	20278	20382	
==>$result = new_tmp( $parser, 'pmc', $type{$op} );
    push @opcodes, @{ $expr->[1] };
    push @opcodes, <==
3	/Users/nnunley/parrot/config/gen/config_pm.pm	2125	2313	
==>q(\tset P0["$k"], P1\n);
                }
            }
        } elsif (s/<<PWD>>/cwd/e) {
            print OUT;
        } else {
            print OUT;
        }
    }

    close IN  or <==
3	/Users/nnunley/parrot/lib/File/Which.pm	2523	2688	
==>x on non-exe/bat/com files.
                                # so we check -e. However, we don't want to pass -e on files
                                # that aren't <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	13247	13351	
==>$self = $_[0];
  # Return 0 or more fake-o paragraphs explaining the accumulated
  #  errors on this docu <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1711	1809	
==>Test::PGE::_generate_pir_for($target, $pattern)
    );

    goto &Parrot::Test::pir_output_is;
}

= <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2234	2332	
==>Test::PGE::_generate_pir_for($target, $pattern)
    );

    goto &Parrot::Test::pir_output_is;
}

= <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	4777	4868	
==>utput_isnt($code, $unexpected, $description)>

Compiles and runs the C code, passing the tes <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	615	736	
==>low a new smoke all 30s
  BURST       => 5,            # Set max burst to 5
  MAX_SMOKES_OF_SAME_CATEGORY => 5,
};
$CGI::P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756700	756785	
==>=> "#line 271 \"src/ops/set.ops\"\n  {{\@1}}->vtable->assign_string_native(interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757490	757575	
==>=> "#line 271 \"src/ops/set.ops\"\n  {{\@1}}->vtable->assign_string_native(interpreter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107887	108060	
==>"ic",
                              "i"
                            ],
                  "BODY" => "#line 167 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	42510	42608	
==>ion functions for specific tags 
is a good idea if those functions are going to be called more than <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101314	101598	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102084	102368	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103520	103804	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741548	741830	
==>t",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 834,
                  "ARGS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650737	650986	
==>\@2}} < enum_last_type)\n        {{\@1}} = 1;\n    else\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651659	651908	
==>\@2}} < enum_last_type)\n        {{\@1}} = 1;\n    else\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	884	979	
==>ngs
and without leading/trailing pattern delimiters.

(Hint: if you try using qr// for the $patt <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2982	3077	
==>ngs
and without leading/trailing pattern delimiters.

(Hint: if you try using qr// for the $patt <==
3	/Users/nnunley/parrot/config/init/hints/solaris.pm	2264	2386	
==>e {
            $conf->data->set(cc_shared => '-KPIC');
        }
        $conf->data->deltrigger("gccversion", "solaris_cc <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	19331	19433	
==>f);
	$str1pos = $ld1pos+1;

	unless ($$textref =~ m/\G(\S)/gc)	# SHOULD USE LOOKAHEAD
	{
		_failmsg "No <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	3259	3354	
==>e has a .xyz suffix.

=item C<has_suffix($suffix)>

Finds out whether the name suffix is C<$suff <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	1538	1665	
==>$label .= $self->output_label_def($op);
        } else {
            foreach my $line ($self->render($op)) {
                $li <==
3	/Users/nnunley/parrot/config/auto/alignptrs.pm	718	818	
==>my $align;
    if (defined($conf->data->get('ptr_alignment'))) {
        $align  = $conf->data->get(' <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	36812	36906	
==>:

	$text = '<leftop: conj /and/ conj>';

See also: C<"extract_quotelike"> and C<"extract_codeb <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	26824	26934	
==>back = $back;
    }

    return ($fallback, @ops);
}

sub rewrite_external {
    my ($self, $op, $extname, $ext <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	604	700	
==>'.

=item C<prefix>

The install prefix. Defaults to '/usr'.

=item C<exec_prefix>

The exec pref <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	833	929	
==>'.

=item C<prefix>

The install prefix. Defaults to '/usr'.

=item C<exec_prefix>

The exec pref <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4776	4875	
==>ent->scope eq 'global')) {
    my $pmc_type = $dest_ident->type->imcc_pmc;
    my $pmc_reg = $compil <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2839	2938	
==>ent->scope eq 'global')) {
    my $pmc_type = $dest_ident->type->imcc_pmc;
    my $pmc_reg = $compil <==
3	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	352	446	
==>e warnings;

=item C<parrot_version()>

Determine the current version number for Parrot from th <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103628	104001	
==>_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 129,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	9576	9698	
==>lebase ||= $filename;
        $extension ||= '';
        if ($filebase =~ /\./) {
            error("MANIFEST", $line, "$_: <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	10034	10140	
==>ngth($$textref)-$parapos,	# REMAINDER
	       );
	
matched:
	$endpos = pos($$textref);
	return (
		$startpo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2098	2194	
==>f->peer and $self->peer->prefix) {
    $self->prefix($self->peer->prefix);
  }

  if ($self->pref <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1975	2071	
==>f->peer and $self->peer->prefix) {
    $self->prefix($self->peer->prefix);
  }

  if ($self->pref <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2112	2242	
==>OTE . " " .
        $source;
};

sub partial_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O = <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2404	2534	
==>OTE . " " .
        $source;
};

sub partial_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O = <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2199	2329	
==>OTE . " " .
        $source;
};

sub partial_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164724	164851	
==>],
                  "BODY" => "#line 190 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) != 0) {\n    {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165653	165780	
==>],
                  "BODY" => "#line 190 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) != 0) {\n    {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166582	166709	
==>],
                  "BODY" => "#line 190 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) != 0) {\n    {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1031	1121	
==>r->code->prederef.code))
#define CUR_OPCODE ((opcode_t*)cur_opcode + CONTEXT(interpreter->c <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	965	1055	
==>r->code->prederef.code))
#define CUR_OPCODE ((opcode_t*)cur_opcode + CONTEXT(interpreter->c <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1161	1251	
==>r->code->prederef.code))
#define CUR_OPCODE ((opcode_t*)cur_opcode + CONTEXT(interpreter->c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041569	1041993	
==>DIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1164,
                  "ARGS" => [
                              "sc",
                              "sc",
                              "p"
                            ],
                  "BODY" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58924	59174	
==>MP" => 0,
                  "NAME" => "warningson",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59571	59821	
==>MP" => 0,
                  "NAME" => "warningson",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465206	465457	
==>> 0,
                  "NAME" => "dec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465827	466078	
==>> 0,
                  "NAME" => "dec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	10576	10673	
==>, <<PRINT;
@code	noop
	_BUILTIN_DISPLAY(1,$result)
PRINT
		}
		#print "After Expression have $type <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	30517	30614	
==>s;
	$extracted = $1;

but with C<extract_delimited> it can be simplified to:

	($extracted,$remain <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	17027	17121	
==>stream has hit
the end of the document.

=item $parser->unget_token( $token )

=item $parser->u <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488179	488452	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488819	489030	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	489572	489783	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	2435	2572	
==>q "+";

        die "Optionals need to be optional.\n"
            if $arg->{option} and not $arg->{optional};
            
        push @ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7300	7411	
==>d($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If the register name to load from was suppl <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5122	5233	
==>d($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If the register name to load from was suppl <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3144	3243	
==>oop) {
		push @{$code{$seg}->{code}}, "\t#ne \$I0, $vars, ERR_INPFIELDS\n";
	} else {
		push @{$code <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3202	3296	
==>=item C<type_for_suffix($suffix)>

This is a class method that converts a file suffix to a desc <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	5081	5172	
==>name="Special Directive" defStyleNum="dsKeyword" />
      <itemData name="Type" defStyleNum= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072967	1073357	
==>al" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075152	1075542	
==>al" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077337	1077727	
==>al" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	17604	17731	
==>lt        = NULL;
    Hash       *known_frames  = NULL;
    PMC        *HashPointer   = NULL;

#if defined(CAN_BUILD_CALL_FRAMES <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	1613	1726	
==>e method is called.

    $contents = $file->read;
    @lines = $file->read;

=cut

sub read
{
    my $self = shift <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	13290	13389	
==>ubname\n";
	} elsif ($syms[NEXT] eq "do") {
		feedme();
		$foo=$dos[-1];
		push @{$code{$seg}->{code <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	10318	10423	
==>ys %options
  )
   if keys %options;

  my %content_containers;
  $content_containers{'Para'} = 1;
  if($a <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1433	1526	
==>lass)=shift;
	my($errst,$nberr,$token,$value,$check,$dotpos);
    my($self)={ ERROR => \&_Er <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1384	1475	
==>lass)=shift;
	my($errst,$nberr,$token,$value,$check,$dotpos);
    my($self)={ ERROR => \&_Er <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1644	1759	
==>%{shift->{PROPS}};  }
sub args      { return @{shift->{ARGS}};   }


#
# compile()
#

sub compile
{
  my $self = shi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	15579	15693	
==>al compiler error.
      #

      else {
        $self->INTERNAL_ERROR("End of unknown kind of block '%s'!", $peer_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	561	675	
==>self->peer;

  my $prefix;

  if ($self->prefix) {
    $prefix = $self->prefix;
  }
  else {
    $prefix = $self->p <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	541	655	
==>self->peer;

  my $prefix;

  if ($self->prefix) {
    $prefix = $self->prefix;
  }
  else {
    $prefix = $self->p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048425	1048694	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049349	1049618	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060210	1060479	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320023	320273	
==>)((Parrot_Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320793	321043	
==>)((Parrot_Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/config/inter/charset.pm	756	863	
==>fined $_ } @charset);

    if ($conf->options->get('ask')) {
        print <<"END";


The following charsets <==
3	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	2079	2175	
==>ackage BranchIfOp;
use base qw(Lua::opcode);

package BranchUnlessOp;
use base qw(Lua::opcode <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1062	1151	
==>e CUR_OPCODE ((opcode_t*)cur_opcode + CONTEXT(interpreter->ctx)->pred_offset)

#  define o <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1192	1281	
==>e CUR_OPCODE ((opcode_t*)cur_opcode + CONTEXT(interpreter->ctx)->pred_offset)

#  define o <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	60446	60541	
==>g;
			_parse("a literal terminal", $aftererror,$line,$1);
			$item = new Parse::RecDescent::Lite <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	396	503	
==>struct::Statement);

sub new
{
  my $class = shift;
  my ($block, $ident) = @_;

  confess("Block (" . ref($ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	396	503	
==>struct::Statement);

sub new
{
  my $class = shift;
  my ($block, $ident) = @_;

  confess("Block (" . ref($ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	4522	4627	
==>uns the C code, passing the test if a string comparison of
output with the expected result it true.

=item <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	34193	34320	
==>vv = temp('I');
	   print <<EOC;
	$vv = $v->[1]
EOC
       }
    }
    my $dest =  (pop @stack)->[1];
    my $ag = (pop @stack)- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	915	1024	
==>ub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $block = $self->block;
  my $ident = $self->iden <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	41681	41781	
==>ebuild
its tag parser on every call);

=item *

make use of the new qr// construct to pre-compile the <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	626551	626847	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627694	627990	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628838	629134	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1097489	1097599	
==>g_keyed_int(interpreter, ns, i);\n            key = key_new_string(interpreter, tmp);\n            key_append(i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035558	1035652	
==>\n    PMC *result = NULL;\n\n    if (!PMC_IS_NULL(lex_pad))\n\tresult = VTABLE_get_pmc_keyed_st <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036722	1036816	
==>\n    PMC *result = NULL;\n\n    if (!PMC_IS_NULL(lex_pad))\n\tresult = VTABLE_get_pmc_keyed_st <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143560	143658	
==>ps\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144488	144586	
==>ps\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145416	145514	
==>ps\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540377	540491	
==>math.ops\"\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541629	541743	
==>math.ops\"\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542881	542995	
==>math.ops\"\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	860	1023	
==>$self = bless {
    BLOCK => $block, 

    DEST  => $dest, 
    NAME  => $ident, 
    ARGS  => [ @args ],

    DEBUG => 1,
    FILE  => $ident->file,
    LINE  => $ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	8076	8181	
==>y $return;
  my $label = $self->_gensym();
  my $temp;

  $return = $self->_save_1 ('P');

  $self->_add_i <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	16255	16371	
==>= 'text'
   if join("\n", @{$para}[2 .. $#$para]) =~ m/^\s*(\d+)\.?\s*$/s and $1 ne '1';
  # Else fall thru to the ge <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	3096	3198	
==>ind => 'then' } });
  }

  $handler->start_element({ Name => 'goto', Attributes => { label => $name } } <==
3	/Users/nnunley/parrot/config/inter/shlibs.pm	141	234	
==>ig/inter/shlibs.pm - Flags for shared libraries.

=head1 DESCRIPTION

Asks the user which flag <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	16540	16667	
==>p:    
    unless iter1 goto loop_done
    \$P1 = shift iter1
    \$S1 = typeof \$P1
    if \$S1 != 'String' goto got_args
    % <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20651	20733	
==>artToken>,
L<Pod::Simple::PullParserTextToken>, and
L<Pod::Simple::PullParserEndTok <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2712	2794	
==>artToken>,
L<Pod::Simple::PullParserTextToken>, and
L<Pod::Simple::PullParserEndTok <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36705	36844	
==>> 82
		},
		DEFAULT => -67
	},
	{#State 142
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75, <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	672	794	
==>$lang_f, $pasm_f, $by_f, $out_f ) = map { # JMG
            my $t = $0; $t =~ s/\.t$/_$count\.$_/; $t
        } ( qw(scheme <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1292	1401	
==>attern 3' ],
        [ _MASTER => '<name1> <name2> <name3>' ],
    ],

The last rule, labelled with _MASTER, i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920269	920607	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sprintf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921161	921499	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sprintf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	922054	922392	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sprintf",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	533669	533878	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "log10",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o", <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4460	4558	
==>{ ! exists $pmc_group->{$_} } @pmcs;
    partial_link($_, $pmc_libs->{$_}, [ $_ ] ) foreach (@ungro <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4564	4662	
==>{ ! exists $pmc_group->{$_} } @pmcs;
    partial_link($_, $pmc_libs->{$_}, [ $_ ] ) foreach (@ungro <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	11687	11784	
==>n $self->cmp_ok($got, '==', $expect, $name);
}

sub _is_diag {
    my($self, $got, $type, $expect) <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3633	3744	
==>}
    }
} 
elsif ($mode eq 'compile') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gat <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3737	3848	
==>}
    }
} 
elsif ($mode eq 'compile') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gat <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2116	2247	
==>. " " .
        $source;
};

sub partial_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /ms <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2408	2539	
==>. " " .
        $source;
};

sub partial_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /ms <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2203	2334	
==>. " " .
        $source;
};

sub partial_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $liblist;
    if ($^O =~ /ms <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4061	4166	
==>p_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert lib-GROUP.so + A.s <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4165	4270	
==>p_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert lib-GROUP.so + A.s <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	1968	2067	
==>stand
what your test is for.  It's highly recommended you use test names.

All tests are run in scal <==
3	/Users/nnunley/parrot/config/init/hints/freebsd.pm	942	1042	
==>ot_shared        => 'libparrot$(SHARE_EXT).$(SOVERSION)',
        libparrot_shared_alias  => 'libparr <==
3	/Users/nnunley/parrot/config/init/hints/linux.pm	1780	1880	
==>ot_shared        => 'libparrot$(SHARE_EXT).$(SOVERSION)',
        libparrot_shared_alias  => 'libparr <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7777	7868	
==>append the rest to the end of list
  $self->_add_inst("FINISH_$label", 'set', [$copy.'[1]',$ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	15694	15832	
==>keys %extra );
            local *{ $call_pkg . '::TODO' } = \$extra{todo}
                if defined $extra{todo};

            my $pass = <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	18245	18383	
==>keys %extra );
            local *{ $call_pkg . '::TODO' } = \$extra{todo}
                if defined $extra{todo};

            my $pass = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	526380	526675	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "asin",
                  "FLAGS" => ":base_math",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29064	29172	
==>/\\/\\\\/g;
	$desc=~s/}/\\}/g;
	$desc=~s/{/\\{/g;

	bless 
	{
		"pattern"     => $pattern,
		"lookahead"   => <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31168	31272	
==>/\\/\\\\/g;
	$desc=~s/}/\\}/g;
	$desc=~s/{/\\{/g;

	bless 
	{
		"pattern"   => $pattern,
		"lookahead" => <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	927	1109	
==>sif( $type eq 'ARRAY' ) {
                @$data = @{$_[0]};
            }
            elsif( $type eq 'SCALAR' ) {
                $$data = ${$_[0]};
            }
            else { <==
3	/Users/nnunley/parrot/config/init/hints/netbsd.pm	216	330	
==>{
        $ccflags .= ' -pthread';
    }
    $conf->data->set(ccflags => $ccflags);

    my $libs = $conf->data->ge <==
3	/Users/nnunley/parrot/config/init/hints/openbsd.pm	308	422	
==>{
        $ccflags .= ' -pthread';
    }
    $conf->data->set(ccflags => $ccflags);

    my $libs = $conf->data->ge <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2506	2707	
==>,      # horizontal tab
                last;
            s/^\\v//
                and $str .= "\x0b",    # vertical tab
                last;
            s/^\\([0-9]{1,3})//
                and $ <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4020	4221	
==>,      # horizontal tab
                last;
            s/^\\v//
                and $str .= "\x0b",    # vertical tab
                last;
            s/^\\([0-9]{1,3})//
                and $ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9575	9672	
==>oken)>

Processes the specified text token. URLs which are not in link tags
are linked here for co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488492	488683	
==>=> 559,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 507 \"src/ops/math.ops\"\n  {{\@1}} = floor( {{\@1}} ) <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	31162	31289	
==>cmt) = @_;
    my $targ = "pc_xxx";
    if ($c =~ /to (\d+)/) {
	$targ = "pc_$1";
    }
    push @loops, $targ;
    my $eh = tem <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9299	9389	
==>"EOC";
#include "parrot/parrot.h"
#include "parrot/extend.h"
#include "parrot/dynext.h"
EOC <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	3215	3408	
==>unction = $2;
                $asm = q{};
                next;
            }
        }
        if ($line =~ m/^}/) { #{
            # 1. check templates
            while (my($t, $body) = each( <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	978	1070	
==>= qq[.bundle];
our $O = qq[.o];
our $CFLAGS = qq[-I/opt/local/include -fno-common -no-cpp-pre <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	982	1074	
==>= qq[.bundle];
our $O = qq[.o];
our $CFLAGS = qq[-I/opt/local/include -fno-common -no-cpp-pre <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29805	29893	
==>->SUPER::body($self->{methods}[$n], $line, $out_name);
}

=back

=head2 Parrot::Pmc2c::St <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046337	1046535	
==>,
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interprete <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047232	1047430	
==>,
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interprete <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1294	1406	
==>lf;
}


#
# ACCESSORS:
#

sub value { return shift->{VALUE}; }
sub cond  { return shift->{COND};  }
sub left  { r <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	7223	7394	
==>s/tcl/Makefile',
        commentType                    => '#',
        replace_slashes                => 1,
        conditioned_lines              => 1
    );
    genfile( <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	38652	38756	
==>s, this really is the least evil way I
	# can think of to do it.
	$ins =~ s/(\$\{\w+\})/
		"\"\n\${INS} = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	188	280	
==>o/lib/Jako/Construct/Type.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "u <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	4470	4612	
==>";
        }
    }
    
    return '' unless $index_html;
    
    if ( ! $self->{TEXT} and @short_desc )
    {
        my $short_desc = join ' <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	1416	1500	
==>%function_line_coverage, %function_branch_coverage, %function_call_coverage);
my (%re <==
3	/Users/nnunley/parrot/config/gen/cpu/i386/auto.pm	700	830	
==>$suffix ) = $f =~ /memcpy_(\w+)/;
        $f = "config/gen/cpu/i386/$f";
        cc_gen($f);
        eval(cc_build("-DPARROT_CONFIG <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	20795	20909	
==>e {
plain:
	$code_l-- if ($label ne '');
	# plain compare, no branch
	my %is_map = (
	    '==' => 'iseq',
	    '!=' <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	3795	3903	
==>}

if ( ! @{ $cfg{run_bench} } ) {
    my @regexes = grep defined, $ini->val( regexes => 'include');
    @{ $ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	11559	11701	
==>,
			'var' => 11,
			'_if_then' => 14,
			'varlist1' => 13,
			'stat' => 7
		}
	},
	{#State 3
		ACTIONS => {
			'' => 18
		}
	},
	{ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	12780	12888	
==>E'} = 'rettype';
    $mv->{'LABELNUM'} = 'label_num';
    $mv->{'EHANDLERS'} = 'ehs';

    # SRM pre translat <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	24985	25107	
==>o");
EOC
    }

    # include any class specific init code from the .pmc file
    $cout .= <<"EOC";
        /* class_init * <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	5102	5213	
==>eginning of any DESCRIPTION. FIXME
	$doc = $_;
	$desc = $info->{pod_doc} = $doc;
    }
    do {
	$desc =~ s/^ {0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2778	2881	
==>t
{
    my ($self, $offset) = @_;

    return "interpreter->resume_offset = REL_PC + $offset; interprete <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4113	4216	
==>t
{
    my ($self, $offset) = @_;

    return "interpreter->resume_offset = REL_PC + $offset; interprete <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	10765	10860	
==>Creation at Compile Time

C<Class::Struct> can create your class at compile time.  The main reas <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	195209	195479	
==>n",
                  "CODE" => 231,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 328 \"src/ops/cmp.ops\"\n  if (mm <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	31224	31341	
==>{
	$targ = "pc_$1";
    }
    push @loops, $targ;
    my $eh = temp('P');
    print <<EOC;
	newsub $eh, .Exception_Han <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	525	617	
==>ble);

$VERSION = "0.4.5";

$preamble = "/*\n** core.ops\n*/\n\n#include \"parrot/dynext.h\"\ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	48890	49011	
==>arent complex end-text code \"$3\"\n";
      # This is where it gets messy...
      if(! @stack) {
        # We saw " >>>> <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76641	76751	
==>}

sub _tracemax($)
{
	if (defined $::RD_TRACE
	    && $::RD_TRACE =~ /\d+/
	    && $::RD_TRACE>1
	    && $::RD <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	190	287	
==>t wrapper for the named library (or libraries). Its
format is simple, and looks like:

  [package] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8227	8360	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9342	9475	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26598	26699	
==>{
		die "Subroutine $syms[CURR] not found at line $sourceline\n"
	}
	my $sub=$syms[CURR];
	barf();
#	p <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3489	3597	
==>code.
	return $pir;
}

sub post_branch($) {
	# Nothing to do here.
	return "";
}

# Pre and post load operati <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3132	3231	
==>so create any lib-GROUP.c files

    generate_dump($_) foreach (@pmcs);
    generate_c($_) foreach ( <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3236	3335	
==>so create any lib-GROUP.c files

    generate_dump($_) foreach (@pmcs);
    generate_c($_) foreach ( <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	660	759	
==>ng
will be found recursively from the current directory.

=head2 Options

=over 4

=item C<--plus-mi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	182	263	
==>languages/jako/lib/Jako/Construct/Block/Conditional.pm 19606 2006-05-30T15:08:05.0 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	545	645	
==>ss defined $block;
  confess "Left is not defined!" unless defined $left;
  confess "Op is not define <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	557	657	
==>ss defined $block;
  confess "Left is not defined!" unless defined $left;
  confess "Op is not define <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5534	5631	
==>EMP0} = concat ${STEMP1}

${INS} = concat ${STEMP0}
${INS} = concat " = "
${INS} = concat ${LOADRE <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	13981	14105	
==>AULT => -28,
		GOTOS => {
			'number' => 39,
			'rulename' => 17
		}
	},
	{#State 23
		ACTIONS => {
			"?" => undef
		},
		DE <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1640	1732	
==>TACK$register_num}
${INS} = concat " = pop s\n"
PIR
		$pir =~ s/\$register_num/$register_num/ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3350	3442	
==>TACK$register_num}
${INS} = concat " = pop s\n"
PIR
		$pir =~ s/\$register_num/$register_num/ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	9515	9623	
==>en( SLURP, "< $file_name" ) or die "open '$file_name': $!";
    local $/ = undef;
    my $file = <SLURP> . '' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327073	327156	
==>gnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, (INTVAL){{\@2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327875	327958	
==>gnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, (INTVAL){{\@2 <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1090	1208	
==>for the program:
    # default -> probe -> environment -> option -> ask
    $prog ||= $conf->options->get($util);
    $ <==
3	/Users/nnunley/parrot/config/inter/make.pm	911	1029	
==>for the program:
    # default -> probe -> environment -> option -> ask
    $prog ||= $conf->options->get($util);
    $ <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1087	1205	
==>for the program:
    # default -> probe -> environment -> option -> ask
    $prog ||= $conf->options->get($util);
    $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105379	105619	
==>" => "inline",
                  "CODE" => 131,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 162 \"src/ops/bit.ops\"\n  { <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2111	2216	
==>e => 'loop', Attributes => { kind => $self->kind, name => $self->prefix } });
  }
  else {
    $handler->s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920782	921033	
==>=> 1036,
                  "ARGS" => [
                              "s",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 316 \"src/ops/string.ops\"\n    {{\@1}}=Par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50119	50212	
==>ore.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_PROFILE_FLAG); }\n  els <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50912	51005	
==>ore.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_PROFILE_FLAG); }\n  els <==
3	/Users/nnunley/parrot/config/auto/va_ptr.pm	505	614	
==>rgs = qw();

sub runstep
{
    my ($self, $conf) = @_;

    my $va_type;
    cc_gen('config/auto/va_ptr/test_c <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	34219	34324	
==>xpected_Tests} == 1 ? '' : 's';
            $self->diag(<<"FAIL");
Looks like you planned $self->{Expected <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	34555	34660	
==>xpected_Tests} == 1 ? '' : 's';
            $self->diag(<<"FAIL");
Looks like you planned $self->{Expected <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552819	552928	
==>interpreter->current_method = VTABLE_get_string(interpreter, method_pmc);\n  dest = (opcode_t *)VTABLE_invoke( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556814	556923	
==>interpreter->current_method = VTABLE_get_string(interpreter, method_pmc);\n  dest = (opcode_t *)VTABLE_invoke( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560837	560946	
==>interpreter->current_method = VTABLE_get_string(interpreter, method_pmc);\n  dest = (opcode_t *)VTABLE_invoke( <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	3417	3530	
==>>new($self->path) or 
        die "can't opendir $self->{PATH}: $!";
    
    return sort grep {$_ ne '.' and $_ n <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8974	9075	
==>ft;
    my $path = shift || return;
    my ($volume, $directories, $name) = File::Spec->splitpath($pat <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9373	9474	
==>ft;
    my $path = shift || return;
    my ($volume, $directories, $name) = File::Spec->splitpath($pat <==
3	/Users/nnunley/parrot/languages/APL/t/APL.pm	938	1054	
==>k (blocks) {
    my $apl    = $block->APL;
    my $output;
    if (defined($block->out)) {
      $output = $block->ou <==
3	/Users/nnunley/parrot/languages/lua/luac.pl	387	493	
==>r->YYData->{verbose_warning} = 1;    # 0, 1
$parser->YYData->{verbose_info}    = 1;    # 0, 1
$parser->Ru <==
3	/Users/nnunley/parrot/config/gen/config_h.pm	1277	1376	
==>E   !!!!!!!
**
** This file is generated automatically by Configure.pl
*/

/*
 * i_(\\w+) header inc <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	13849	13961	
==>put it in place.
    ss = ss_propogate[pc]
    if ss == "" goto NO_SS_PROP
    stypes = ss
NO_SS_PROP:

	# Genera <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	113	225	
==>:58.862833Z coke  $

=head1 NAME

Parrot::Pmc2c::Library - PMC to C Code Generation

=head1 SYNOPSIS

    use Par <==
3	/Users/nnunley/parrot/lib/Parrot/Revision.pm	256	347	
==>print $Parrot::Revision::config;

=head1 DESCRIPTION

Get parrot's current and configure tim <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	14972	15103	
==>d = $all->{$pname}{methods}[$n]{mmds};
                if ($super_mmd && scalar @{ $super_mmd }) {
                    ##print "** @ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	15593	15697	
==>1000000 goto TYPED_EH_FOUND_"
    tmp = handler_offset
    gen_pir = concat tmp
    gen_pir = concat "\nt <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5504	5707	
==>$_->{pragma} eq 'multi' ) {
                    print {$FH} " :slurpy";
                }
                $first = 0;
            }
            print {$FH} ") = ";
        }
        print {$FH} "$o <==
3	/Users/nnunley/parrot/languages/converter.pl	190	289	
==>se Parse::RecDescent;

sub modifier {
  my $modifier = shift;
  return '' unless defined $modifier-> <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	9241	9345	
==>_;
  
  # The point of this routine is to set $self->{'_transcoder'} as indicated.

  return $line unless <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2473	2574	
==>o actually declare the constant, we will place its
  # definition into the block at the top of the blo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2220	2321	
==>o actually declare the constant, we will place its
  # definition into the block at the top of the blo <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	11384	11514	
==>);
        my ($flag, $type, $methodname, $parameters) = ($2,$3,$4,$5);
        my ($methodblock, $rema)                    = extra <==
3	/Users/nnunley/parrot/config/init/defaults.pm	2921	3032	
==>GNU ld.
        ld_share_flags => $Config{lddlflags},

        # Flags to tell ld to build a dynamically loadabl <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1121	1220	
==>od and dumps just the text content.  It is
mainly meant for use by the Pod::Simple test suite, but y <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2741	2846	
==>my $value = $args[$i]->compile($compiler);
      $compiler->emit("  $temp = $value");
      $args[$i] = $t <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2441	2546	
==>my $value = $args[$i]->compile($compiler);
      $compiler->emit("  $temp = $value");
      $args[$i] = $t <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	1985	2083	
==>omatillos,
and ginger root.  You can even do it with a Braun hand "mixer", if you
chop things finer <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722434	722655	
==>O_putps(interpreter, io, s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723463	723684	
==>O_putps(interpreter, io, s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724507	724728	
==>O_putps(interpreter, io, s);\n    PIO_softspace(interpreter, io, 1);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	691	781	
==>ako::Construct::Expression::Value::Identifier');
  confess("Left (" . ref($left) . ") is no <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	682	772	
==>ako::Construct::Expression::Value::Identifier');
  confess("Left (" . ref($left) . ") is no <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	571	661	
==>ako::Construct::Expression::Value::Identifier');
  confess("Left (" . ref($left) . ") is no <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	2384	2495	
==>t == 2;

	my $str = extract_delimited; # $_, '"';
	$str = substr $str, 1, -1;
	## print STDERR "** '$str' $line\ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2131	2231	
==>{
    $self->prefix($self->peer->prefix);
  }

  if ($self->prefix) {
    $handler->start_element({ N <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2008	2108	
==>{
    $self->prefix($self->peer->prefix);
  }

  if ($self->prefix) {
    $handler->start_element({ N <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266687	266977	
==>"TYPE" => "inline",
                  "CODE" => 310,
                  "ARGS" => [
                              "i",
                              "sc",
                              "sc"
                            ],
                  "BODY" => "#line 806 \"src/ops/cmp.ops\"\n    {{\@1}} <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	9060	9178	
==>njf       complex.h
conjl       complex.h
copysign    math.h
copysignf   math.h
copysignl   math.h
cos         math.h
c <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	4074	4172	
==>nore = `svn propget svn:ignore @dirs`;
my %ignore;
my @ignore = split( /\n\n/, $svnignore );
foreac <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	13953	14086	
==>ngth
           ? (length($para_text_content) <= $max_content_length)
           : 1)
        ) {
          # Some minimal sanity cons <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	6717	6830	
==>Everywhere.
		my $absolute = ($type =~ /^[Aa]$/  ) ? 1 : 0;
		my $uninit   = ($type =~ /^[BbCc]$/) ? 1 : 0;
		my $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	44571	44678	
==>S
  #  Normalizing nbsp's to S is harder: for each text node, make S content
  #  out of anything matching m <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	630	742	
==>= $conf->options->get('verbose');

    my $cc        = $conf->data->get('cc');
    my $libs      = $conf->data->g <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	571	683	
==>= $conf->options->get('verbose');

    my $cc        = $conf->data->get('cc');
    my $libs      = $conf->data->g <==
3	/Users/nnunley/parrot/config/auto/readline.pm	583	695	
==>= $conf->options->get('verbose');

    my $cc        = $conf->data->get('cc');
    my $libs      = $conf->data->g <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	7422	7516	
==>ip_open_bracket  { return shift->skip('open-bracket');  }
sub skip_open_paren    { return shift <==
3	/Users/nnunley/parrot/lib/Test/More.pm	28467	28609	
==>if $a1 eq $a2;

    my $ok = 1;
    my $max = $#$a1 > $#$a2 ? $#$a1 : $#$a2;
    for (0..$max) {
        my $e1 = $_ > $#$a1 ? $DNE : $a1->[$_] <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	1692	1809	
==>:OpTrans::C::arg_maps;
}
else {
    $jit_cpu = ($cpuarch eq 'i386') ? 0 : 1;
    push @jit_funcs, "Parrot_jit_fn_info_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	30226	30320	
==>m" in older perlpods), or undef if none. E.g., in
# Getopt::Std/DESCRIPTION, "DESCRIPTION" is t <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	8521	8663	
==>em( $_ ) for (@{$command});

    if( $chdir ) {
        chdir $orig_dir;
    }

    my $exit_code = $? >> 8;

    close STDOUT             or d <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3791	3922	
==>if($line =~ m/^=([a-zA-Z]+)/s) {
        if($1 eq 'cut') {
          $self->scream(
            $self->{'line_count'},
            " <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	16271	16371	
==>ist, returns a list of all the possible argument
combinations.

=cut

sub expand_args
{
    my (@args <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	10041	10146	
==>MT" or $type[NEXT] eq "COMP" or $type[NEXT] eq "COMM" ) ) {
			$eol=0;
			fdprint($fd, $syms[CURR]);
			fe <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	191	284	
==>e::Basename;

use Parrot::Test;

=head1 NAME

Parrot::Test::HQ9plus - Testing routines specifi <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	335	425	
==>C<footer()> class methods for now, to
prevent code being duplicated in C<Parrot::Docs::POD2 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	3071	3171	
==>led by superclass?
# access handled by superclass?
sub type  { return shift->{TYPE}; }
sub name  { re <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15853	15934	
==>tp://www.w3.org/TR/xhtml1/DTD/xhtml-special.ent
 http://www.w3.org/TR/xhtml1/DTD/x <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	13680	13795	
==>s->{has_parent}{$parent};

            $all->{$parent} = read_dump($include, lc("$parent.pmc"))
                if n <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35327	35428	
==>cheats, assuming that all return types can be cast from zero.
        $ret = "return ($method->{type}) <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	2563	2652	
==>PES, "<$parrot/$parrot_pmcsh_file" or
  die "Can't read $parrot/$parrot_pmcsh_file!";
whil <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541306	541626	
==>"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 626,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 1022 \"src/op <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23608	23699	
==>dd_inst('','set',[$return,$temp]);
    $self->_add_inst("NEXT_$label");
    $self->_restore( <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24070	24161	
==>dd_inst('','set',[$return,$temp]);
    $self->_add_inst("NEXT_$label");
    $self->_restore( <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	7270	7378	
==>tem('', 'memory'),
            $self->c_source_item('', 'malloc'),
            $self->c_source_item('', 'mall <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	23484	23581	
==>it(/,\s*/, $rule->{'arguments'});
    $mv->{'ARGCOUNT'} = scalar @args;
    push @localmv, 'ARGCOU <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	1930	2024	
==>rint CODE qq{\t\t# Grab "COMMON" variables from global stash\n};
		print CODE qq{\t\tfind_globa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733678	733786	
==>ops/set.ops\"\n  {{\@1}} = string_to_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734442	734550	
==>ops/set.ops\"\n  {{\@1}} = string_to_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	3982	4071	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub version_report {
  my $class = ref($_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813314	813585	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2586	2689	
==>ests($string)
##
## Extract the tests from the .test file. (test_name => [ $expl, $source, $out ])
##
su <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74161	74267	
==>_savetext;
	for ($reps=0; $reps<$max;)
	{
		$_savetext = $text;
		my $prevtextlen = length $text;
		my $_to <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	194	298	
==>d &DEBUG }

sub new {
  my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *S <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	193	297	
==>d &DEBUG }

sub new {
  my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *S <==
3	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	244	386	
==>PConfig.pm";

# This compiles C# code to an exe/dll.
# ####################################
sub compile_cs {
	my $file_name = shift;
	my $cs_co <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	328	422	
==>mple program,
for speed comparisons.

Calculates a value for M ops/s (million operations per se <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	324	418	
==>mple program,
for speed comparisons.

Calculates a value for M ops/s (million operations per se <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110756	111053	
==>"bors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111647	111944	
==>"bors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112539	112836	
==>"bors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	1054	1157	
==>onvert_rx_seq {
    my ($self, $tree, $ctx) = @_;
    return op('seq' => [ map { $self->convert($_, $ctx <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	75	175	
==>mple ();
BEGIN {@ISA = ('Pod::Simple')}

use strict;

use Carp ();

BEGIN { *DEBUG = \&Pod::Simple::D <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	74	174	
==>mple ();
BEGIN {@ISA = ('Pod::Simple')}

use strict;

use Carp ();

BEGIN { *DEBUG = \&Pod::Simple::D <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9051	9152	
==>exe, $libs

Calls the compiler and linker on F<test.c>.

=cut

sub cc_build
{
    my ($cc_args, $link_ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	17108	17255	
==>);

            my $opt = $code_f =~ m!opt(.)! ? "-O$1" : "-O1";
            my $args = $ENV{TEST_PROG_ARGS} || '';
            $args .= " $opt --ou <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3302	3398	
==>VE_$register_num

# No lazy move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5064	5160	
==>VE_$register_num

# No lazy move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353736	353978	
==>UT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354481	354723	
==>UT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355248	355490	
==>UT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	525046	525328	
==>0,
                  "NAME" => "acos",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	4656	4756	
==>ow we just check the first line of a function,
# and assume that more likely than not indenting is co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640744	641034	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641508	641798	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645964	646254	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	248235	248487	
==>E" => 288,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 670 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348834	349075	
==>",
                  "CODE" => 406,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 162 \"src/ops/io.ops\"\n  /* These char * <==
3	/Users/nnunley/parrot/tools/util/pirtidy.pl	1263	1373	
==>ce a file somefile.pir.tdy containing the pir file
reformatted using the default options. pirtidy never changes <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46854	46993	
==>"
                            ],
                  "BODY" => "#line 770 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Interp_debug_SET(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47637	47776	
==>"
                            ],
                  "BODY" => "#line 770 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Interp_debug_SET(interpr <==
3	/Users/nnunley/parrot/lib/Test/More.pm	8846	8960	
==>t

sub is ($$;$) {
    $Test->is_eq(@_);
}

sub isnt ($$;$) {
    $Test->isnt_eq(@_);
}

*isn't = \&isnt;


=item B <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540457	540557	
==>AL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541709	541809	
==>AL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542961	543061	
==>AL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { {{\@1}}=a <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54374	54481	
==>ip:(.*)>\Z/s;
				$item = new Parse::RecDescent::Directive(
					      'my $oldskip = $skip; $skip='.$1.'; $ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	60477	60565	
==>l", $aftererror,$line,$1);
			$item = new Parse::RecDescent::Literal($code,$lookahead,$li <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650750	650996	
==>last_type)\n        {{\@1}} = 1;\n    else\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651672	651918	
==>last_type)\n        {{\@1}} = 1;\n    else\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	31822	31917	
==>the array is the empty string, the second is the complete
original text, and the prefix returned <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	28574	28699	
==>al test.  Normal tests have a type
of ''.  Type can be one of the following:

    skip        see skip()
    todo        see t <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2057	2174	
==>1;";
}

sub output_sub {
    my ($self, $var, $amount) = @_;
    $amount = 1 if ! defined $amount;
    my $realvar = v <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2372	2488	
==>1";
}

sub output_sub {
    my ($self, $var, $amount) = @_;
    $amount = 1 if ! defined $amount;
    my $realvar = v <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	816511	816708	
==>S" => ":base_core",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 923,
                  "ARGS" => [],
                  "BODY" => "#line 600 \ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	5533	5661	
==>foreach my $pos (@labels) {
                    push @Q, $labels{$stmt->{code}->{args}->[$pos]->{label}};
                    pop <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4132	4217	
==>~~~~~~~~~~~~~~~~~~~~

__PACKAGE__->_accessorize(
 'doc_lang',
 'head1_halfpoint_size', <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	2767	2868	
==>er-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wno-unused",

            # other <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	6883	6982	
==>oreach my $file ($self->files($recursive, $ignore))
    {
        next unless $file->has_suffix($suf <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	1655	1750	
==>case indicates that the symbol is global; lowercase indicates that
it is local.

=item C<--type= <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3813	3921	
==>perty, and parent module has no fnlib property either!")
        unless $module_props{fnlib};

      $fnlib = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6477	6585	
==>perty, and parent module has no fnlib property either!")
        unless $module_props{fnlib};

      $fnlib = <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11977	12077	
==>] =~ /STRING|BARE|INT|FLO/) {
			push @ld, { type => "STRING", value => qq{"$syms[CURR]"} };
		} elsi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	1108	1257	
==>ck,

    KIND      => 'unless',
    LEFT      => $left,
    OP        => $op,
    RIGHT     => $right,

    CONTENT   => [ ]
  }, $class;

  $block->p <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	3464	3581	
==>h_num
    print ": "
    print match_start
    print ".."
    print match_end
    print "\n"
skipPrint:
    set valid_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	7476	7588	
==>arg_name
      }
    });
    $handler->end_element({ Name => 'arg' });
  }

  $handler->end_element({ Name => 'su <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	11935	12076	
==>convert the following notations:
        #
        #   .ops file          Op body  Meaning       Comment
        #   -----------------  ------ <==
3	/Users/nnunley/parrot/config/auto/jit.pm	2400	2514	
==>{
        $jitcapable = 1;
    }

    if (-e "$jitbase/$cpuarch/$jitarchname.s") {
        copy_if_diff("$jitbase/$ <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	242	343	
==>(@commands);

# Check each of these builtins to see if they are just a stub, and skippable.

my (@keep <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5528	5631	
==>t be crucial
sub gather_groups_and_libs {
    my @pmcs = @_;

    my ( %group_files, %group_libs, %pmc_g <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5739	5842	
==>t be crucial
sub gather_groups_and_libs {
    my @pmcs = @_;

    my ( %group_files, %group_libs, %pmc_g <==
3	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1830	1919	
==>gesAssociations=yes

[Files]
Source: "$options{prefix}\\*"; DestDir: "{app}"; Flags: ignor <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	10169	10268	
==>his document.

= FUNCTIONS

- `plan (Int $number_of_tests) returns Void`

All tests need a plan. A p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151049	151138	
==>if (0 == string_equal(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152027	152116	
==>if (0 == string_equal(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}} <==
3	/Users/nnunley/parrot/config/inter/lex.pm	352	443	
==>rompt $util );

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step qw( <==
3	/Users/nnunley/parrot/config/inter/make.pm	346	437	
==>rompt $util );

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step qw( <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	347	438	
==>rompt $util );

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step qw( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	2829	2989	
==>ABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24722	24882	
==>ABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	36901	37061	
==>ABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" = <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4568	4661	
==>rn
   $self->do_beginning && $self->do_middle && $self->do_end;
}


#~~~~~~~~~~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3199	3291	
==>rn
   $self->do_beginning && $self->do_middle && $self->do_end;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	41	126	
==>ation.
# $Id: /parrot/lib/Parrot/Docs/Section/PMCs.pm 20333 2006-06-21T18:44:31.111564 <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	10612	10714	
==>parameters =~ s/ //g;

    # type method(interpreter, self, parameters...)
    my $ret = $calltype{$typ <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	5863	5955	
==>on";

END_C

print MODULE $preamble;
print MODULE Data::Dumper->Dump([ $real_ops->preamble, [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826613	826700	
==>entry_type != STACK_ENTRY_FLOAT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827683	827770	
==>entry_type != STACK_ENTRY_FLOAT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233811	233964	
==>"
                            ],
                  "BODY" => "#line 599 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234715	234868	
==>"
                            ],
                  "BODY" => "#line 599 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235619	235772	
==>"
                            ],
                  "BODY" => "#line 599 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{\@3} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20824	21087	
==>P_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21624	21887	
==>P_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12216	12359	
==>cat->new($block, $ident, $ident, $op, $value);
      next;
    }

    #
    # Bitwise assigns:
    #
    #   <var> <op> <value>;
    #

    if ( <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	20666	20764	
==>ill be printed.

=item B<no_ending>

    $Test->no_ending($no_ending);

Normally, Test::Builder doe <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10716	10803	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub linearize_tokens {  # sel <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15490	15605	
==>, @{ $nil->[1] };
    $result = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'res <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19243	19358	
==>, @{ $nil->[1] };
    $result = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'res <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	16698	16803	
==>-1]->sethashname($self);
	    }
	}
}

sub prevwasreturn
{
	my ( $self, $line ) = @_;
	unless (@{$self->{it <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046983	1047391	
==>,
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1170,
                  "ARGS" => [
                              "kc",
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line 130 \"src/ops/var.ops\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	270995	271168	
==>",
                              "i"
                            ],
                  "BODY" => "#line 871 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271841	272014	
==>",
                              "i"
                            ],
                  "BODY" => "#line 871 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n" <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	9446	9559	
==>3B-\x40\x5B-\x5E\x60\x7B-\x7F]/
            # Characters under 0x80 that aren't legal in an XML Name.
        or $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10710	10823	
==>3B-\x40\x5B-\x5E\x60\x7B-\x7F]/
            # Characters under 0x80 that aren't legal in an XML Name.
        or $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1488	1582	
==>r a given subclass even wants little treelets?


__END__

=head1 NAME

Pod::Simple::LinkSection <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3185	3278	
==>g.

L<Pod::Simple::DumpAsText> is rather like this class,
except that it doesn't dump with XML <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4952	5097	
==>ush @ops, "goto $fail if <rx_tmp> < $first;"
              unless $first == 0;
            push @ops, "goto $pass if <rx_tmp> < $last;";
        } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024961	1025074	
==>,
                  "BODY" => "#line 275 \"src/ops/sys.ops\"\n   {{\@1}} = sysinfo_s(interpreter, {{\@2}});\n   {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025718	1025831	
==>,
                  "BODY" => "#line 275 \"src/ops/sys.ops\"\n   {{\@1}} = sysinfo_s(interpreter, {{\@2}});\n   {{ <==
3	/Users/nnunley/parrot/tools/build/list_unjitted.pl	918	1015	
==>sh @not_jitted, $op;
}

print foreach @not_jitted;

print 'Not jitted: ', scalar @not_jitted;
prin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126696	126998	
==>s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127831	128133	
==>s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128966	129268	
==>s;\n  t = (INTVAL)((UINTVAL)r >> t);\n  d |= t;\n  {{\@1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	2324	2425	
==>' unless $escs;
	$escs .= substr($escs,-1) x (length($dels)-length($escs));
	my @pat = ();
	my $i;
	fo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	487606	487965	
==>" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 558,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 488 \"sr <==
3	/Users/nnunley/parrot/lib/File/Which.pm	3217	3319	
==>orce wantarray
    return @res;
}

1;
__END__

=head1 NAME

File::Which - Portable implementation of th <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672508	672824	
==>> "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 753,
                  "ARGS" => [
                              "i <==
3	/Users/nnunley/parrot/languages/perms.pl	209	349	
==>$i = 0;
    while (++$prefix[$i] > $#$things ) {
      $prefix[$i] = 0;
      $i++;
      last if $i > @prefix;
    }
    
    if ( $prefix[- <==
3	/Users/nnunley/parrot/config/init/defaults.pm	80	172	
==>lts.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/init/defaults.pm - Conf <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	15937	16033	
==>match;
	return _succeed($wantarray, $textref,
			$match[2], $match[18]-$match[2],	# MATCH
			@mat <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1604	1716	
==>{COND};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{R <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1740	1852	
==>{COND};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{R <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1383	1495	
==>{COND};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub right { return shift->{R <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10584	10682	
==>pecified relative path below the directory.

=cut

sub file_with_relative_path
{
    my $self = shi <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7177	7271	
==>, "t")
' instr() tests
s1$="Mixed case"
print ucase$(s1$);" Upper"
print lcase$(s1$);" Lower"
a <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18906	19000	
==>, "t")
' instr() tests
s1$="Mixed case"
print ucase$(s1$);" Upper"
print lcase$(s1$);" Lower"
a <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1388	1477	
==>-optimization -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

o <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1433	1522	
==>-optimization -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

o <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1437	1526	
==>-optimization -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

o <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	11386	11501	
==>[0]++;
    return $incexc;
}

sub rewrite_classpieces {
    my ($self, $op, $classpieces, $lastback) = @_;
    my $i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722169	722271	
==>"#line 149 \"src/ops/python.ops\"\n  STRING * const s = {{\@2}};\n  PMC * const io = {{\@1}}; /* TODO C <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723198	723300	
==>"#line 149 \"src/ops/python.ops\"\n  STRING * const s = {{\@2}};\n  PMC * const io = {{\@1}}; /* TODO C <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35873	35969	
==>::Builder
will throw a warning and exit with 255.  If the test died, even after
having successful <==
3	/Users/nnunley/parrot/lib/Test/More.pm	33944	34040	
==>::Builder
will throw a warning and exit with 255.  If the test died, even after
having successful <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49848	49956	
==>,$skip);
					  $match ? \@res : undef;
					', $lookahead,$line,"<perl_quotelike>");
				$prod and $prod->ad <==
3	/Users/nnunley/parrot/config/init/defaults.pm	2943	3046	
==>re_flags => $Config{lddlflags},

        # Flags to tell ld to build a dynamically loadable module, e.g. <==
3	/Users/nnunley/parrot/Configure.pl	2154	2248	
==>ich lexer to use.

=item C<--yacc=(parser)>

Specify which parser to use.

=item C<--define=val <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	246	340	
==>which looks like it's
largely a copy of Parrot::Test::Python. Abstraction needed.

=cut

sub ne <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	284	378	
==>which looks like it's
largely a copy of Parrot::Test::Python. Abstraction needed.

=cut

sub ne <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	5596	5707	
==>compiler act as ANSIish as possible, and avoid enabling
        # support for GCC-specific features.

        $c <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1965	2063	
==>m C<create_path()>

This is called from C<new()> to create the path if necessary.

=cut

sub create <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	942	1040	
==>m C<create_path()>

This is called from C<new()> to create the path if necessary.

=cut

sub create <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	933163	933351	
==>ODE" => 1048,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 420 \"src/ops/string.ops\"\n  string_upcase_i <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	5797	5916	
==>line $. of $ARGV"
                unless exists $sig_char{$_};
            push @arg, make_arg($_, $reg_num++, \$temp_cn <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	46629	46727	
==>verbatim_format killed the terminal newline on #$i: {$p->[$i]}, after {$p->[$i-1]}\n";
      } else <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	4266	4356	
==>rings{$text}) {
    <<"DATA";
#define static_string_${line} static_string_$known_strings{$t <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2000	2093	
==>involves unknown variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->ty <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1958	2051	
==>involves unknown variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->ty <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1880	1973	
==>involves unknown variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->ty <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	14928	15046	
==>s = join(",", @$args);
        my @tempi = grep { defined $temp[$_] } 0..$#$args;
        my $temp_decl = join("\n    " <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1471	1571	
==>hift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'op', Attributes => { kind => 'postf <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1465	1565	
==>hift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'op', Attributes => { kind => 'postf <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5736	5847	
==>$key, $trigger) = @_;

    return
        unless defined $self->{triggers}{$key}
        and defined $self->{tri <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6306	6417	
==>$key, $trigger) = @_;

    return
        unless defined $self->{triggers}{$key}
        and defined $self->{tri <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	69363	69472	
==>my \$ERRORS;\n$code"
			and close TRACE_FILE;
		}

		unless ( eval "$code 1" )
		{
			_error("Internal error i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342870	343221	
==>"i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 401,
                  "ARGS" => [
                              "i",
                              "p",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 128 \" <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15389	15485	
==>et-car!');

  my $return = $self->_generate (_get_arg($node,1));
  die "set-car!: Element not pai <==
3	/Users/nnunley/parrot/config/init/hints/freebsd.pm	887	1011	
==>,
        parrot_is_shared        => 1,
        libparrot_shared        => 'libparrot$(SHARE_EXT).$(SOVERSION)',
        libp <==
3	/Users/nnunley/parrot/config/init/hints/linux.pm	1725	1849	
==>,
        parrot_is_shared        => 1,
        libparrot_shared        => 'libparrot$(SHARE_EXT).$(SOVERSION)',
        libp <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12629	12730	
==>Expression::Value->new($block, $self->forth);

      $self->require_semicolon;

      my $bitwise = Ja <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6155	6353	
==>ONS}{$$token}
                    :   exists($$actions{DEFAULT})
                        ?   $$actions{DEFAULT}
                        :   undef;
        }
        else {
            $act=$$ac <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5866	6058	
==>ONS}{$$token}
                    :   exists($$actions{DEFAULT})
                        ?   $$actions{DEFAULT}
                        :   undef;
        }
        else {
            $act=$$ac <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	17385	17480	
==>cates to the Test::Harness that things are going so badly all
testing should terminate.  This in <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3677	3779	
==>};

	while(($prm,$value)=splice(@$inarray,0,2)) {
        $prm=uc($prm);
			exists($$checklist{$prm <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3487	3585	
==>};

	while(($prm,$value)=splice(@$inarray,0,2)) {
        $prm=uc($prm);
			exists($$checklist{$prm <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	460	548	
==>han that won't get an <a name="...">

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	5071	5178	
==>lue_type goto print_space
    goto iter_loop
  print_space:
    result .= ' '
    goto iter_loop
  iter_end: <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	727	823	
==>t;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->nix_X_codes( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	193	289	
==>t;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->nix_X_codes( <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	2167	2264	
==>rot::Test::per_test( '.out', $next_test_num );
    my $f_code = Parrot::Test::per_test( '.p6',  $n <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1666	1757	
==>ule_pir($target, $pattern)
        : Parrot::Test::PGE::_generate_pir_for($target, $pattern) <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2189	2280	
==>ule_pir($target, $pattern)
        : Parrot::Test::PGE::_generate_pir_for($target, $pattern) <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	7517	7619	
==>(Interp *interpreter, struct call_state *st, int n)
{
    assert(n < st->src.n);
    Parrot_fetch_arg_n <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	7700	7802	
==>(Interp *interpreter, struct call_state *st, int n)
{
    assert(n < st->src.n);
    Parrot_fetch_arg_n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113860	114084	
==>204 \"src/ops/bit.ops\"\n  {{\@1}} <<= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114599	114823	
==>204 \"src/ops/bit.ops\"\n  {{\@1}} <<= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	44500	44612	
==>-1]) ) {
      $formatting = substr($formatting, 0, length($p->[$i-1]) - 1) . ' ';
    } else {
      $formatting <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3156	3257	
==>ly to SUB1.
' Exit tests
sub mysub(b,c)
	print "Print me"
	exit sub
	print "Don't print me"
end sub
fu <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17123	17224	
==>ly to SUB1.
' Exit tests
sub mysub(b,c)
	print "Print me"
	exit sub
	print "Don't print me"
end sub
fu <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	5719	5830	
==>ectory $dir
	    my @dirs;
	    while (! -d $dir) { # Scan up to nearest existing ancestor
		unshift @dirs, $dir <==
3	/Users/nnunley/parrot/Configure.pl	629	723	
==>o output extra information about the configuration data it
is setting.

=item C<--verbose=2>

T <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	7565	7655	
==>tfile($self->path, $name);
}

=item C<directory_with_name($name)>

Returns a directory with <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2759	2850	
==>elf->INTERNAL_ERROR("No type for left!")  unless defined $left_type;
  $self->INTERNAL_ERROR <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2525	2616	
==>elf->INTERNAL_ERROR("No type for left!")  unless defined $left_type;
  $self->INTERNAL_ERROR <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2447	2538	
==>elf->INTERNAL_ERROR("No type for left!")  unless defined $left_type;
  $self->INTERNAL_ERROR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84934	85228	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TY <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85840	86134	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TY <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	1231	1388	
==>uages|examples)$: ) {
            $File::Find::prune = 1;	
            return;
        }
        return if /malloc/;

        /^.*\.[ch]\z/s &&
            pu <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	7705	7837	
==>bel}: ";
            } else {
                $_->{name} . " " . join(", ", map { ref($_) ? $_->{label} : $_ } @{ $_->{args} || [] }) <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	285	384	
==>accessors:

sub tagname   { (@_ == 2) ? ($_[0][1] = $_[1]) : $_[0][1] }
sub tag { shift->tagname(@_) <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	262	359	
==>accessors:

sub tagname { (@_ == 2) ? ($_[0][1] = $_[1]) : $_[0][1] }
sub tag { shift->tagname(@_) <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	7172	7272	
==>each (@non_ansi_external_symbols);
}

    
__END__
# The following symbols are available in a C89 Hos <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553986	554077	
==>n  interpreter->current_cont = {{\@3}};\n  interpreter->current_method = meth;\n  method_pmc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555383	555474	
==>n  interpreter->current_cont = {{\@3}};\n  interpreter->current_method = meth;\n  method_pmc <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	14549	14663	
==>n.  Instead
        # of trying to: (int*)&something_not_int, one HAS to use temporary
        # variables.  We det <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	5449	5546	
==>amble for inclusion in C code,
    and an array of C<Parrot::Op> instances representing the Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342	435	
==>amble for inclusion in C code,
and an array of C<Parrot::Op> instances representing the Parrot <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5455	5655	
==>";
                if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                    print {$FH} " :slurpy";
                }
                $first = 0;
            }
            pri <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6487	6687	
==>";
                if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                    print {$FH} " :slurpy";
                }
                $first = 0;
            }
            pri <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	27458	27564	
==>$new_letter} = $canonical_form;
      DEBUG > 2 and print
       "Extensor maps $new_letter => known elemen <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804260	804351	
==>.ops\"\n    {{\@1}}->vtable->set_pmc_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805161	805252	
==>.ops\"\n    {{\@1}}->vtable->set_pmc_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	44796	44899	
==>lf;
}

1;
__END__

=head1 NAME

Scheme::Generator - The Scheme code generator

=head1 SYNOPSIS

  use Sc <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	2938	3039	
==>r(keys %$typedefs) . " typedefs.\n";
    my $cmd = "indent -kr -nce -sc -cp0 -l79 -lc79 -psl -nut -cdw <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	14463	14561	
==>ANS

This module is still a work in progress. As Pugs grows, so will it's
testing needs. This modul <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	2735	2860	
==>d, $f) = @_;
    @dis = qx($cmd $f);
    print @dis if $opt{d};
}

sub get_source {
    my ($f) = @_;
    open IN, $f or die " <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	14301	14409	
==>ODO should better be namespace of func
	    # but can't create namespace yet
	    my $gn = "def_arg_" . ($n-$ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19754	19841	
==>DE}->code($namespace,$rule);
		}
		Parse::RecDescent::_warn(1,"Autogenerating tree-build <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085199	1085549	
==>ice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1204,
                  "ARG <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	3388	3485	
==>ions are given, they are ANDed.
They can also be negated with a "no", for example --noconst.
[1] N <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726013	726242	
==>ps\"\n  {{\@1}} = string_copy(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726775	727004	
==>ps\"\n  {{\@1}} = string_copy(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741993	742222	
==>ps\"\n  {{\@1}} = string_copy(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759479	759838	
==>IRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 857,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 281 \ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436477	436568	
==>=> "#line 94 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437492	437583	
==>=> "#line 94 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@ <==
3	/Users/nnunley/parrot/examples/benchmarks/freeze.pl	708	819	
==>thaw $image };
$e = time();
printf "  thaw time %.6f\n", $e-$s;

#$s = time();
#my $c = dclone \@a;
#$e = time() <==
3	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	969	1066	
==>cs/submissions.pod on how to recreate this file after SVN
# has been told about new generated file <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3824	3921	
==>cs/submissions.pod on how to recreate this file after SVN
# has been told about new generated file <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510489	510782	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511227	511520	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511965	512258	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	562	667	
==>s  = [ ] unless defined $args;

  confess("Undefined identifier block.")
    unless defined $block;

  con <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	741	841	
==>-----------------------------------
# Set up some constants:

BEGIN {
  if(defined &ASCII)    { }
  e <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21522	21636	
==>s(length($content)) {
        $self->whine(
          $para->[1]{'start_line'},
          "'=end' without a target? <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	6745	6839	
==>ile( [$dir1, $dir2], $file, $die_unless_found_flag );

Return the full path to $file (search in <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	28633	28766	
==>of the following:

    skip        see skip()
    todo        see todo()
    todo_skip   see todo_skip()
    unknown     see below

So <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	9643	9754	
==>class being created.  The third form assumes the current package
name as the class name.

An object of a class c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	619359	619460	
==>ht);\n\tINTVAL c = a - b;\n\tif ((c^a) >= 0 || (c^~b) >= 0) {\n\t    if (lt == enum_class_Integer)\n\t <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3515	3612	
==>OFFSET(X)>

Transforms to C<PC' = 0> and restarts at C<PC + X>.

=item C<restart NEXT()>

Transfor <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1818	1909	
==>shift];
}

=item C<goto_address($address)>

Transforms the C<goto ADDRESS($address)> macro i <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1433	1524	
==>shift];
}

=item C<goto_address($address)>

Transforms the C<goto ADDRESS($address)> macro i <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	12718	12835	
==>ath.h
nan         math.h
nanf        math.h
nanl        math.h
nearbyint   math.h
nearbyintf  math.h
nearbyintl  math. <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr3.pm	212	321	
==>_fn {
    my $self = shift;
    my ( $count, $options ) = @_;

    return Parrot::Test::per_test( '_antlr3.out <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	9285	9386	
==>top);
$op_info = $op_func = 'NULL';
$getop = '( int (*)(const char *, int) )NULL';

if ($suffix eq '') <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	19204	19314	
==>> $r->[1]
	$cmp = iseq $l, $r->[1]
EOC
    push @stack, [-1, $cmp, 'P'];
}

sub COMPARE_OP
{
    my ($n, $c, $c <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	1394	1502	
==>return scalar(@{$self->{TOKENS}});
}


#
# pos()
#
# Returns (or sets) the abolute position.
#

sub pos
{
  m <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	13074	13172	
==>ng that each stands for.  Note that this does not
include numerics (like "64" or "x981c").  Under o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511021	511297	
==>n  {{\@1}} = - {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511759	512035	
==>n  {{\@1}} = - {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	13041	13136	
==><'%'>, the
accessor returns the hash element value.  If the element type is
C<'*%'>, a reference <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	619950	620075	
==>ACT);\n\t}\n    }\n    else {\n        ((void**)cur_opcode)[0] =\n            parrot_pic_opcode(interpreter, PARROT_OP_pic_inf <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	7484	7584	
==>negate ?? "Unwanted" !! "Expected";

    # As PIL2JS doesn't support junctions yet, skip the junction <==
3	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	155	243	
==>strict;

my ($svnid) = '$Id: /parrot/tools/build/parrot_config_c.pl 20350 2006-06-25T03:5 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23595	23815	
==>"CODE" => 31,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 419 \"src/ops/core.ops\"\n  opcode_t *dest <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9126	9246	
==>\n    }\n    string_cstring_free(label);\n    interpreter->resume_flag = 2;\n    {{=0}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10242	10362	
==>\n    }\n    string_cstring_free(label);\n    interpreter->resume_flag = 2;\n    {{=0}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978475	978704	
==>"ic",
                              "s",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2345	2454	
==>in::common{$var}) {
					push(@saves, $var);
				}
			}
			if (@saves) {
				$edit.=qq{\tfind_global _GLOBALS, <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2754	2863	
==>in::common{$var}) {
					push(@saves, $var);
				}
			}
			if (@saves) {
				$edit.=qq{\tfind_global _GLOBALS, <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	7316	7453	
==>_safe();
    }

    return 1 if $dfa_safe_subexprs && $op->disjoint();

    # Insert better tests here

    return 0;
}

# R*, R+, R?, non <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	4738	4864	
==>ive
        #  to pods, but in order relative to cuts.
        
        # Note also that we haven't yet applied the transcoding <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	6715	6827	
==>t "$this\'s accept_directives : ",
   pretty($this->{'accept_directives'}), "\n";
  
  return sort keys %{ $this- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462839	462934	
==>eption(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = fmod({ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463836	463931	
==>eption(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = fmod({ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464833	464928	
==>eption(interpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = fmod({ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11571	11830	
==>rg2'   => $key->[0],
                        );
                        $result = $result2;
                    }
                    push @opcodes, @{ $last_key->[1] };
                    my $assign = new KeyedSetOp( $parser,
                        'a <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9791	10026	
==>rg2'   => $key->[0],
                    );
                    $result = $result2;
                }
                push @opcodes, @{ $last_key->[1] };
                my $assign = new KeyedSetOp( $parser,
                    'a <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8686	8873	
==>rg2'   => $key->[0],
            );
            $result = $result2;
        }
        push @opcodes, @{ $last_key->[1] };
        my $assign = new KeyedSetOp( $parser,
            'a <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5861	5981	
==>ons{ACTIONS})) {

				defined($$token)
            or	do {
				($$token,$$value)=&$lex($self);
#DBG>				$debug & 0x0 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	6936	7053	
==>ym eq "(") {
			push @stack, $item;
			next;
		}
		if ($sym eq ")") {
			push @stream, pop @stack
				while(@stack and <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5582	5697	
==>ons{ACTIONS})) {

				defined($$token)
            or	do {
				($$token,$$value)=&$lex($self);
#DBG>				$debug & 0x0 <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5098	5211	
==>_EXT failed ($?)\n";

        # Execute permissions on libraries is especially important on
        # some platfor <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5309	5422	
==>_EXT failed ($?)\n";

        # Execute permissions on libraries is especially important on
        # some platfor <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	483	583	
==>vocant;
}


# Internal routine to emit code to really do any moves we've done lazily.
sub _do_lazy_mo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	5009	5111	
==>quirement is met, otherwise
# a Syntax Error is raised.
#
# If more than one type is specified, the sem <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	212665	213024	
==>se_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 250,
                  "ARGS" => [
                              "p",
                              "p <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6318	6404	
==>_NOT_switch_${CURIC}

POST_BRANCH_switch_${CURIC}:
i = elements P_arg_0
POST_BRANCH_swi <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4256	4342	
==>_NOT_switch_${CURIC}

POST_BRANCH_switch_${CURIC}:
i = elements P_arg_0
POST_BRANCH_swi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	47361	47473	
==>g; # collapse and trim all whitespace first.
  $para =~ s/ $//g;
  $para =~ s/^ //g;
  
  # Only apparent problem <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	23879	23985	
==>e { /* pass */
EOC

   # To make use of the .HLL directive, register any mapping...
    if ($self->{flags}{ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9852	9957	
==>e);
      my $op    = $self->require_infix_rel->text;
      my $right = Jako::Construct::Expression::Value <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25388	25493	
==>e);
      my $op    = $self->require_infix_rel->text;
      my $right = Jako::Construct::Expression::Value <==
3	/Users/nnunley/parrot/config/auto/inline.pm	106	200	
==>8:15.110975Z coke  $

=head1 NAME

config/auto/inline.pm - Inline Compiler Support

=head1 DESC <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3724	3823	
==>3),
print int(3.14)

' Simple subs, Made it here
sub mysub()
	print "Made it here"
end sub
call mysu <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	18041	18157	
==>roups{$1}}, $_;
    }

    # Go through groups, sorted by start code.
    my @rules_grouped = ();
    foreach (sort k <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6353	6443	
==>witch_${CURIC}:
i = elements P_arg_0
POST_BRANCH_switch_${CURIC}_LOOP:
if i == 0 goto POST_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4291	4381	
==>witch_${CURIC}:
i = elements P_arg_0
POST_BRANCH_switch_${CURIC}_LOOP:
if i == 0 goto POST_ <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	483	593	
==>SCRIPTION

=head1 TODO

* Tell if there are funcs without docs

* Generate docs from funcs

* Test the POD of t <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1968	2067	
==>as we call gen_label before translating
	# every instruction) to see if we need to instate a stack t <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1367	1466	
==>as we call gen_label before translating
	# every instruction) to see if we need to instate a stack t <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	21662	21772	
==>($map->{$_}) ? join(",", @{$map->{$_}}) : $map->{$_}
      ),
      sort keys %$map ),
    ("B~C~E~F~I~L~S~X~Z" <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	60997	61098	
==>= [];
    $parser->YYData->{symbtab}     = new SymbTabVar($parser);
    $parser->YYData->{symbtab_cs <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35109	35201	
==>D_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched subrule: ['
					. $self->{subrule} . <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	1314	1407	
==>Tree::multi_match::ISA  = qw(Regex::Ops::Tree);
@Regex::Ops::Tree::group::ISA        = qw(Rege <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31796	31930	
==>xpr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcodes1, new AssignOp( $parser,
            'r <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	32447	32581	
==>xpr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcodes1, new AssignOp( $parser,
            'r <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33097	33231	
==>xpr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcodes1, new AssignOp( $parser,
            'r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723804	724086	
==>_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 811,
                  " <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2211	2303	
==>MP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Decremen <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3463	3555	
==>MP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Decremen <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1092877	1093131	
==>rpreter, {{\@2}});\n    {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	430	535	
==>y $class = shift;
  my ($block, $ident) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVER <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	430	535	
==>y $class = shift;
  my ($block, $ident) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVER <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19115	19228	
==>unt, -1 ]),
               aop('goto', [ $R_back ]),
     $check => aop('lt', [ $matchcount, $min, $local_back ]), <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46990	47089	
==>erpreter,   {{\@1}}); }\n  else         { Interp_debug_CLEAR(interpreter, PARROT_ALL_DEBUG_FLAGS); } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47773	47872	
==>erpreter,   {{\@1}}); }\n  else         { Interp_debug_CLEAR(interpreter, PARROT_ALL_DEBUG_FLAGS); } <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	48228	48322	
==>skipped.

To prevent <extract_quotelike> from mucking about with the input in this way
(this is <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42290	42378	
==>"BODY" => "#line 727 \"src/ops/core.ops\"\n  do_exception(interpreter, EXCEPT_exit, {{\@1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42980	43068	
==>"BODY" => "#line 727 \"src/ops/core.ops\"\n  do_exception(interpreter, EXCEPT_exit, {{\@1 <==
3	/Users/nnunley/parrot/lib/File/Which.pm	2443	2604	
==>xt[1..$#path_ext])
                                # DOSish systems don't pass -x on non-exe/bat/com files.
                                # so we check -e. Howe <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	145	242	
==>head1 NAME

Parrot::Docs::Section::BigNum - Big Number documentation section

=head1 SYNOPSIS

	us <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4480	4583	
==>~~
sub run {
  my $self = $_[0];
  return $self->do_middle if $self->bare_output;
  return
   $self->do_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4181	4273	
==>ffset = REL_PC + $offset; interpreter->resume_flag = 1";
}

=item C<run_core_func_decl($core) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807840	807930	
==>ODY" => "#line 502 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed(int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808745	808835	
==>ODY" => "#line 502 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed(int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134964	135262	
==>bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 16 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135857	136155	
==>bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 16 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136751	137049	
==>bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 16 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296062	296161	
==>.ops\"\n  if (&{{\@2}} == &{{\@3}})\n    {{\@1}} = 1;\n  else\n    {{\@1}} = mmd_dispatch_i_pp(inter <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	11057	11185	
==>EPEAT' => -4,
			'FOR' => -4,
			"(" => -4,
			'IF' => -4,
			'error' => 1,
			'FUNCTION' => -4,
			'DO' => -4,
			'LOCAL' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2405	2511	
==>d } });
  }

  if ($self->op) {
    $handler->start_element({ Name => 'block', Attributes => { kind => 'tes <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2282	2388	
==>d } });
  }

  if ($self->op) {
    $handler->start_element({ Name => 'block', Attributes => { kind => 'tes <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	5419	5514	
==>en->attr('start_line'));
  } elsif( $type eq 'pod') { return $self->do_pod_link($token);
  } els <==
3	/Users/nnunley/parrot/config/gen/PodText.pm	1119	1232	
==>t('verbose');

    my $parser = Pod::Text->new(width => 79);

    my $count = 0; # number of processed files
    f <==
3	/Users/nnunley/parrot/config/init/hints/freebsd.pm	971	1071	
==>t$(SHARE_EXT).$(SOVERSION)',
        libparrot_shared_alias  => 'libparrot$(SHARE_EXT)',
        libp <==
3	/Users/nnunley/parrot/config/init/hints/linux.pm	1809	1909	
==>t$(SHARE_EXT).$(SOVERSION)',
        libparrot_shared_alias  => 'libparrot$(SHARE_EXT)',
        libp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514145	514398	
==>w((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515025	515278	
==>w((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515905	516158	
==>w((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	7489	7620	
==>t;
    my $token = shift;
    my $next = $self->get_token;
        
    return unless defined $next;
        
    unless( $next->typ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2502	2598	
==>TERNAL_ERROR("Can't determine type of actual argument (%s)!", ref $args[$i])
      unless defined <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2202	2298	
==>TERNAL_ERROR("Can't determine type of actual argument (%s)!", ref $args[$i])
      unless defined <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090319	1090755	
==>RGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1209,
                  "ARGS" => [
                              "p",
                              "p",
                              "k",
                              "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57861	57951	
==>ine 874 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo_s(interpreter, {{\@2}});\n  {{+=3}};\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58623	58713	
==>ine 874 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo_s(interpreter, {{\@2}});\n  {{+=3}};\n <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	12804	12915	
==>'encoding_command_statuses'}[-1],
      );
    } else {
      DEBUG > 2 and print " (Yup, it was successfully ha <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054254	1054349	
==>> "#line 182 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (PMC_IS_NULL({{\@2}}))\n\tinterna <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055381	1055476	
==>> "#line 182 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (PMC_IS_NULL({{\@2}}))\n\tinterna <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	2230	2366	
==>e eq 'text' ) 
        {
            $self->process_text_token($token);
        }
    }
    
    return 1;
}

=item C<process_start_token <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27004	27104	
==>$class;
}


sub code($$$$)
{
	my ($self, $namespace, $rule, $check) = @_;
	my $ldel = $self->{"ldelim <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	3700	3793	
==>n parentheses above)
--type=bsd|-B 	same as --t
--type=long|-L	append a long type (e.g. "globa <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	9200	9367	
==>= shift;
        my ($dir) = @_;
        my $FH    = $self->{fh};
        if ( exists $dir->{pragma} ) {
            print {$FH}
                "  .param $dir->{r <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	4190	4287	
==>QB says that if no prompt, use " ?"
	if ($type[CURR] eq "STRING") {
		$promptcode.=qq{\tprint "$sy <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	3424	3567	
==>nd_global \"$op->{arg1}\"\n";
    }

    sub visitFindLexOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	17777	17892	
==>save_rxlocals($op),
		 );

    return ($back, @ops);
}

# R<min,max> -> $matchcount = 0
#         loop: if $matchcou <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	3578	3683	
==>y $eqnum=0;
my %opsubs=(
	'+' => sub { 
		my ($a1, $a2, $result)=@_;
		if ($result=~/S/) {
			return("\tco <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7830	7928	
==>ot happen (string)"
i%=0
if i% then print "Should not happen (int)"
i%=54
if i% then print "This is <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14817	14915	
==>ot happen (string)"
i%=0
if i% then print "Should not happen (int)"
i%=54
if i% then print "This is <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	66	160	
==>14T10:37:55.635677Z bernhard  $

package Scheme::Generator;

use strict;
use vars qw($VERSION @ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627396	627490	
==>n   * copies the registers. */\n  {{\@1}} = pmc_new_noinit(interpreter, {{\@2}});\n  {{\@1}}->v <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628540	628634	
==>n   * copies the registers. */\n  {{\@1}} = pmc_new_noinit(interpreter, {{\@2}});\n  {{\@1}}->v <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6101	6195	
==>IR';
if 0x${CURIC} == 0x45 goto POST_BRANCH_switch_${CURIC}
${ITEMP0} = ${NEXTPC} + I_arg_0 # X <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4039	4133	
==>IR';
if 0x${CURIC} == 0x45 goto POST_BRANCH_switch_${CURIC}
${ITEMP0} = ${NEXTPC} + I_arg_0 # X <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	3547	3638	
==>'s
init function. C<$base> is the same as for C<run_core_func_decl()>.

=item C<init_set_dis <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32271	32378	
==>->decl($self->{class}, $method, 0);
    # I think that these will be out by one - NWC
    my $l = $self->lin <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40893	41000	
==>->decl($self->{class}, $method, 0);
    # I think that these will be out by one - NWC
    my $l = $self->lin <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	9566	9675	
==>r
			$type[CURR] eq "COMP"
				or
			$type[CURR] eq "COMM"
				or
			($type[CURR] eq "BARE" and (iskeyword($sy <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5573	5677	
==>ctions=$$states[$stateno];

#DBG>	print STDERR ('-' x 40),"\n";
#DBG>		$debug & 0x2
#DBG>	and	print S <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5305	5405	
==>ctions=$$states[$stateno];

#DBG>	print STDERR ('-' x 40),"\n";
#DBG>		$debug & 0x2
#DBG>	and	print S <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1162	1268	
==>$dest->line
  }, $class;

  $block->push_content($self);

  return $self;
}

sub dest  { return shift->{DES <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1153	1259	
==>$dest->line
  }, $class;

  $block->push_content($self);

  return $self;
}

sub dest  { return shift->{DES <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1042	1148	
==>$dest->line
  }, $class;

  $block->push_content($self);

  return $self;
}

sub dest  { return shift->{DES <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2210	2327	
==>al = eval '$self->_DBParse()';#Do not create stab entry on compile
        $@ and die $@;
	}
	else {
		$retval = $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2127	2240	
==>al = eval '$self->_DBParse()';#Do not create stab entry on compile
        $@ and die $@;
	}
	else {
		$retval = $ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	100	190	
==>-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Section::IMCC - IMCC docume <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	7239	7389	
==>y ($op) = @_;
        my $FH   = $self->{fh};
        if ( exists $op->{op} ) {
            print {$FH}
                "  if $op->{arg1}->{symbol} <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	1821	1936	
==>"$body;" : "return $body;" ;
    }
    else {
        $ret = $method->{type} eq 'void' ? "" : "return ($method->{typ <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	230	344	
==>N = 0.01;

sub get_out_fn {
    my $self = shift;
    my ( $count ) = @_;

    return Parrot::Test::per_test( '.pir <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615782	616016	
==>GS" => [
                              "i",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 508 \"src/ops/object.ops\"\n    opcode_t *next = {{^+4} <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	850	945	
==>b -L/usr/local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS = qq[-bundle -undefined suppress];
our <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	854	949	
==>b -L/usr/local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS = qq[-bundle -undefined suppress];
our <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37738	37848	
==>nt.

=cut

sub gen_ret
{
    my ($self, $type) = @_;

    #return "ret_val = *($1*) " if ($type =~ /((?:INT|FLO <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	18616	18725	
==>urn "Hoo::Boy::Wowza --
Stuff wow yeah!".

In cases where get_title can't find the title, it will return empty <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	12541	12635	
==>der { $_[0]->{args}->[1]->render() }

sub Regex::Ops::Tree::rule::render {
    my $self = shift <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033229	1033328	
==>TEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@1}};\n    PMC * const lex_pad = Parrot_fi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034327	1034426	
==>TEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@1}};\n    PMC * const lex_pad = Parrot_fi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1184	1292	
==>s;

  $block->push_content($self);

  return $self;
}

sub dest  { return shift->{DEST};  }
sub left  { retur <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1175	1283	
==>s;

  $block->push_content($self);

  return $self;
}

sub dest  { return shift->{DEST};  }
sub left  { retur <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1064	1172	
==>s;

  $block->push_content($self);

  return $self;
}

sub dest  { return shift->{DEST};  }
sub left  { retur <==
3	/Users/nnunley/parrot/config/init/defaults.pm	2250	2364	
==>ally
        # loadable libraries we're building.  On HP-UX, for example, we need to
        # allow dynamic librar <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	7802	7915	
==>int SOURCE @cg_jump_table;
    print SOURCE <<END_C;
        NULL
    };
END_C
    print SOURCE $trans->run_core_a <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	256	349	
==>N

C<Parrot::Vtable> provides a collection of functions for manipulating
PMC vtables. It is us <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615000	615113	
==>n(interpreter, next, NO_CLASS,\n            \"Class not parent of object\");\n    }\n    {{\@1}} = offset;\n    {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616151	616264	
==>n(interpreter, next, NO_CLASS,\n            \"Class not parent of object\");\n    }\n    {{\@1}} = offset;\n    {{ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7636	7744	
==>t;
	my $dest_reg = shift;
	my $pir = "";

	# If the destination isn't a register, determine register name now <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5754	5862	
==>t;
	my $dest_reg = shift;
	my $pir = "";

	# If the destination isn't a register, determine register name now <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	2699	2808	
==>(interp, registry, enum_class_$_);\n" foreach (@pmcs);
    print OUT <<'END_C';
}
END_C

    close OUT;

    m <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3125	3253	
==>eep my editor happy)
              | (\w+) )
    ]sx;

    while ($source =~ m[$regex]go) {
        my ($name, $expl, $body, $out <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35863	35963	
==>r run Test::Builder
will throw a warning and exit with 255.  If the test died, even after
having succ <==
3	/Users/nnunley/parrot/lib/Test/More.pm	33934	34034	
==>r run Test::Builder
will throw a warning and exit with 255.  If the test died, even after
having succ <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	470	578	
==>rted = 1;

### FUNCTIONS

## plan

sub plan (Int $number_of_tests) returns Void is export {
    $Test::testin <==
3	/Users/nnunley/parrot/Configure.pl	390	485	
==>head2 Command-line Options

General Options

=over

=item C<--help>

Prints out a description of <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3692	3797	
==>s, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert X.c -> X.o <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3796	3901	
==>s, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert X.c -> X.o <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	20514	20658	
==>parrot;
                $obj->{parrot}  = $parrot;
                $obj->$meth(@remaining);

                # restore prior level, just in case. <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	961	1048	
==>ur_opcode[i])
#define PREG(i) REG_PMC(cur_opcode[i])
#define SREG(i) REG_STR(cur_opcode[ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1077	1164	
==>ur_opcode[i])
#define PREG(i) REG_PMC(cur_opcode[i])
#define SREG(i) REG_STR(cur_opcode[ <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1798	1981	
==>str .= $1,
                last;

            s/^\\([\\"'])//
                and $str .= $1,        # backslash, quotation mark, apostrophe
                last;
            s/^ <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3312	3495	
==>str .= $1,
                last;

            s/^\\([\\"'])//
                and $str .= $1,        # backslash, quotation mark, apostrophe
                last;
            s/^ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64109	64214	
==>an exactly-$1-times subrule match", $aftererror,$line,"$code$argcode($1)");
					if ($2)
					{
						my $ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6966	7095	
==>me;
    }
    
    # Convert them into an anchor name;
    
    my $name = $self->linearize_tokens(@to_unget);
    
    if ( defin <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10215	10338	
==>($pieces->[1]));
    }

    # Convert "a-b" to [97,98] and "a" to [97,97]
    my @ranges;
    foreach (@$pieces) {
        m <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3472	3581	
==>fnlib}->value; # TODO: We should make sure its a string, somewhere.
    }
    else {
      $self->SYNTAX_ERROR <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6136	6245	
==>fnlib}->value; # TODO: We should make sure its a string, somewhere.
    }
    else {
      $self->SYNTAX_ERROR <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6511	6634	
==>return 1;
    for my $source (@sources) {
        return 1 if modtime($source) > $target_mod;
    }

    return 0;
}

sub ge <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4931	5054	
==>return 1;
    for my $source (@sources) {
        return 1 if modtime($source) > $target_mod;
    }

    return 0;
}

sub ge <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6722	6845	
==>return 1;
    for my $source (@sources) {
        return 1 if modtime($source) > $target_mod;
    }

    return 0;
}

sub ge <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	6151	6270	
==>replace_slashes                 => 1
    );
    genfile(
        'config/gen/makefiles/pheme.in' => 'languages/pheme/Mak <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5548	5652	
==>$pir =~ s/\$register_num/$register_num/g;
		$register_num++;
	}

    # Need to emit code to do any lazy m <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	60651	60750	
==>e,"'$1'");
		}
		elsif ($grammar =~ m/$INTERPLIT/gco)
		{
			_parse("an interpolated literal termina <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1663	1772	
==>contain spaces.
    $PATHQUOTE = '"';

    unless ($CC =~ /gcc/i) {
        $LIBPARROT = '/Users/nnunley/parro <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1667	1776	
==>contain spaces.
    $PATHQUOTE = '"';

    unless ($CC =~ /gcc/i) {
        $LIBPARROT = '/Users/nnunley/parro <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	5331	5428	
==>He observed that the
main problem is not dealing with these edge cases but that people hate
to wri <==
3	/Users/nnunley/parrot/config/auto/readline.pm	1561	1675	
==>, ccflags   => '-I/sw/include');
        }
    }

    cc_gen('config/auto/readline/readline.in');
    eval { cc_bui <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	1960	2053	
==>D documentation',
	'prd' => 'Parse::RecDescent grammar file',
	'ps' => 'Postscript code',
	'py <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	47965	48072	
==>ar,$pos,0,$implicit);
			pos $grammar = $pos;;
		}
		elsif ($grammar =~ m/$ENDDIRECTIVEMK/gco)
		{

		# EXTR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243907	243997	
==>Y" => "#line 632 \"src/ops/cmp.ops\"\n  STRING* l = VTABLE_get_string(interpreter, {{\@2}}) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244839	244929	
==>Y" => "#line 632 \"src/ops/cmp.ops\"\n  STRING* l = VTABLE_get_string(interpreter, {{\@2}}) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125924	126418	
==>> 0,
                  "NAME" => "rot",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 156,
                  "ARGS" => [
                              "i",
                              "i",
                              "i" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127058	127439	
==>> 0,
                  "NAME" => "rot",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 157,
                  "A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128193	128551	
==>> 0,
                  "NAME" => "rot",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 15 <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41704	41817	
==>n}.')
		{'.($::RD_NO_TRACE?'':'
			Parse::RecDescent::_trace(q{<<Didn\'t match operator: ['
						  . $self->descr <==
3	/Users/nnunley/parrot/lib/Test/More.pm	31999	32102	
==>nt.  This is a deep check, but the irrelevancy of order only
applies to the top level.

    ok( eq_set(\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999577	999942	
==>FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1117,
                  "ARGS" <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	43428	43530	
==>tern delimiter will cause the regex to be
immediately terminated. In other words:

	'm /
		(?i)		# CASE <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	564	665	
==>tions);
    return $parser->compile($expr, $ctx);
}

sub tree_to_list {
    my ($tree, $ctx, $pass_lab <==
3	/Users/nnunley/parrot/config/auto/gc.pm	2216	2364	
==>)/res_lea\$(O)",
            gc_flag   => '-DGC_IS_MALLOC',
        );
    } else {
        $gc = 'gc';
        $conf->data->set(
            TEMP_gc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79355	79471	
==>n  }\n  else {\n      /* At this point we have the symbol's address. We just need to build\n         a PMC with it so <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80876	80992	
==>n  }\n  else {\n      /* At this point we have the symbol's address. We just need to build\n         a PMC with it so <==
3	/Users/nnunley/parrot/config/inter/progs.pm	3521	3616	
==>ptions->get('libs'));
    $libs = prompt("What libraries should your C compiler use?", $libs) if <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4181	4270	
==>L<Pod::Simple::Text>, L<Pod::Checker>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 200 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288320	288598	
==>src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289176	289454	
==>src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290032	290310	
==>src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	24757	24943	
==>\n";

  if($content =~
    m/^
      (\S+)         # 1 : new item
      \s+
      (\S+)         # 2 : fallback(s)
      (?:\s+(\S+))? # 3 : element name(s)
      \s*
      $
    /xs
  ) { <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	26583	26690	
==>_formatting_codes{$f} or $f eq '0' or $f eq '1';
      DEBUG > 2 and print "  Can't fall back on unknown cod <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	41360	41449	
==>to C<extract_tagged>.

The difference between C<extract_tagged> and the anonymous
subrouti <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1531	1641	
==>n32.
our $PATHQUOTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as they may contain spaces.
    $PAT <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1576	1686	
==>n32.
our $PATHQUOTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as they may contain spaces.
    $PAT <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1580	1690	
==>n32.
our $PATHQUOTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as they may contain spaces.
    $PAT <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3549	3649	
==>>DEBUG(0, "Calling '%s' as regular sub (props = %s)...", $name, join(", ", %props));

    $name =~ s/ <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	6464	6551	
==>'-lmsvcrt -lmoldname -lkernel32 -luser32 -lgdi32 -lwinspool -lcomdlg32 -ladvapi32 -lshel <==
3	/Users/nnunley/parrot/config/init/hints/msys.pm	355	442	
==>'-lmsvcrt -lmoldname -lkernel32 -luser32 -lgdi32 -lwinspool -lcomdlg32 -ladvapi32 -lshel <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2242	2362	
==>levant C code.

=cut

sub goto_offset
{
    my ($self, $offset) = @_;

    if ($offset =~ /^-?\d+$/)
    {
        return <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6432	6540	
==>0 goto POST_BRANCH_switch_${CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0[i]
    ${ITEMP0} = ${NEXTPC} + j
    p <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4370	4478	
==>0 goto POST_BRANCH_switch_${CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0[i]
    ${ITEMP0} = ${NEXTPC} + j
    p <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	560	671	
==>y $class = shift;
	my $self  = $class->SUPER::new( @_ );
	$self->{split_count} ||= 0;
	return $self;
}

=item C< <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832064	832148	
==>ine 192 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832792	832876	
==>ine 192 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)-> <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1075	1173	
==>tial code.
	my $pir = <<'PIR';
# Get current stack types array size.
${ITEMP0} = elements ${STYPES} <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2785	2883	
==>tial code.
	my $pir = <<'PIR';
# Get current stack types array size.
${ITEMP0} = elements ${STYPES} <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	17295	17392	
==>lt of type $type\n", @stream);		
	return($result, $type, @stream);
}
sub changename {
	my($name)=@ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1279	1387	
==>ub '%s'.", $name) unless $sym;

  my %props = $sym->props;

  my @args  = $self->args;

  my @formal_args = $ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	70072	70175	
==>mmar =~ m/$OPTIONAL/gco || $grammar =~ m/$ANY/gco;
	my $min = 1;
	if ( $grammar =~ m/$MANY/gco
	  || $gr <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15636	15731	
==>res automatically (at least
that is what I hope).

= ENVIRONMENT

Setting the environment variab <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	29932	30070	
==>> [ $handle ]),
                 $next =>
              );
    return ($back, @ops);
}

# Handle a rule definition. $lastback is ignored; p <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	2615	2713	
==>rclass";
}

sub convert_rx_oneof {
    die "unimplemented enumerated charclass";
}

sub convert_rx_ <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	8359	8444	
==>_branch_coverage{$source_file} ? "$file_branch_coverage{$source_file} %" : "n/a" ]}</a <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	6375	6497	
==>rrot\'s native executable subsystem.', 
                'pairs' => ['exec', 'exec_save'],
                'sources' => ['ex <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	4370	4479	
==>}
  else {
    $known_strings{$text} = $line;
    my $h = hash_val($text);
    <<"DATA";
static /*const*/ char <==
3	/Users/nnunley/parrot/config/init/defaults.pm	1932	2044	
==>stems.
        # VMS and Win32 might use "Link".
        # Perl5's Configure doesn't distinguish linking from loa <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	21780	21889	
==>mmar.y"
{ return { min => $_[2], max => -1 }; }
	],
	[#Rule 33
		 'number', 2,
sub
#line 160 "lib/Regex/Gramma <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21135	21239	
==>$self->{"lookahead"} ? '$_savetext = $text;' : '' ) .'

		$_tok = ($_noactions) ? 0 : do ' . $self->{"cod <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	4976	5104	
==>anged"})
		{
			$self->reset;
		}
		return $self;
	}
	else
	{
		return $owner->{"rules"}{$name} =
			bless
			{
				"name"     => <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	836	948	
==>y $arg = $op->{args}->[$i];
        push(@indices, $i) if is_label($arg);
    }
    return @indices;
}

=item met <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	21212	21318	
==>[1] ]) }
	],
	[#Rule 27
		 'rulename', 2,
sub
#line 145 "lib/Regex/Grammar.y"
{ return $_[1] . $_[2]; }
	], <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928540	928959	
==>"ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1044,
                  "ARGS" => [
                              "i",
                              "s",
                              "ic"
                            ],
                  "B <==
3	/Users/nnunley/parrot/config/init/defaults.pm	5236	5374	
==>ig{ranlib},
        rpath         => '',
        make          => $Config{make},
        make_set_make => $Config{make_set_make},
        m <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	13213	13340	
==>25
		}
	},
	{#State 12
		DEFAULT => -12
	},
	{#State 13
		DEFAULT => -4
	},
	{#State 14
		ACTIONS => {
			"-" => 31,
			"^" => 3 <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	11762	11873	
==>derr
    my $out_err = _slurp('./test.err');

    # cleanup
    unlink "test.err";

    return ($output, $out_er <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574713	574804	
==>BODY" => "#line 249 \"src/ops/object.ops\"\n    {{\@1}} = pmc_new_init(interpreter, enum_cla <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575517	575608	
==>BODY" => "#line 249 \"src/ops/object.ops\"\n    {{\@1}} = pmc_new_init(interpreter, enum_cla <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478936	479164	
==>by zero\");\n  {{\@1}} = floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479828	480056	
==>by zero\");\n  {{\@1}} = floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114420	114641	
==>ODE" => 142,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 204 \"src/ops/bit.ops\"\n  {{\@1}} <<= {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028198	1028387	
==>nt(interpreter, (FLOATVAL) {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029049	1029238	
==>nt(interpreter, (FLOATVAL) {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4228	4332	
==>this method with the return
value of an C<expr_I<X>> method (implemented in subclass).

=cut

sub gen_got <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	32501	32600	
==>- or double- quoted substring from the
	# beginning of $text, optionally after some whitespace
	# (n <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11936	12031	
==>tent)

Given a name or number that could appear in a
C<EE<lt>name_or_numE<gt>> sequence, this re <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12433	12528	
==>tent)

Given a name or number that could appear in a
C<EE<lt>name_or_numE<gt>> sequence, this re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088924	1089087	
==>slice(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089872	1090035	
==>slice(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	20685	20788	
==>gnore contents of this region\n";
      DEBUG > 1 and $dont_ignore and print " Making note to treat cont <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8533	8620	
==>2);tab$(32);c$(i+3)
next
print
data "ABANDON","CHART","COMPUTER"
data "DAMAGES","DESTRUC <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21397	21484	
==>2);tab$(32);c$(i+3)
next
print
data "ABANDON","CHART","COMPUTER"
data "DAMAGES","DESTRUC <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803199	803397	
==>p",
                              "kc",
                              "sc"
                            ],
                  "BODY" => "#line 467 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_k <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	29764	29929	
==>f, $lastback ]),
                          aop('goto' => [ $next ]),
                 $back => aop('call' => [ $name, 0, $uid ]),
                          aop('goto' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19615	19708	
==>rosoft_decimal_language_code> )

This sets the language code to tag this document as being in. <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17197	17365	
==>ocalDir( $parser,
                    'result' => $result,
                );
                push @opcodes, new KeyedGetOp( $parser,
                    'result' => <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21577	21702	
==>eturn;
    #   return <value>;
    #

    if ($token->is_return) {
      my $block = $self->current_block();

      my $value_ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18234	18354	
==>ocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new KeyedGetOp( $parser,
        'result' => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	537131	537331	
==>ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 956 \"src/ops/math.ops\"\n  {{\@1}} = sin((FLOATVAL){{\ <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	710	808	
==>hich qq[] treats as escape sequences.
# Config stuff
our $CC = qq[/usr/bin/gcc-4.0 -c];
our $LD = q <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	714	812	
==>hich qq[] treats as escape sequences.
# Config stuff
our $CC = qq[/usr/bin/gcc-4.0 -c];
our $LD = q <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28352	28445	
==>:RD_TRACE;').'

			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched ter <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30429	30521	
==>:RD_TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched ter <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32629	32721	
==>:RD_TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched ter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89826	90047	
==>CODE" => 111,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 38 \"src/ops/bit.ops\"\n  {{\@1}} &= {{\@2 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	2124	2253	
==>= @_;
    die "Wrong #args" if @_ != 3;

    my @equivs; # (labels)
    my @output; # (ops)

    # Merge adjacent (equivalent) lab <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321242	321531	
==>i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 376,
                  "ARGS" => [
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 129 \"src/ops/dot <==
3	/Users/nnunley/parrot/lib/Test/More.pm	30993	31103	
==>pen!  Please contact the author immediately!
WHOA
    }
}


=item B<eq_hash>

  my $is_eq = eq_hash(\%this, \%t <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10861	10970	
==>nd(".${slash}test${exe}", './test.out', './test.out',
            $verbose);
    }

    my $output = _slurp('. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841663	841955	
==>},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842427	842719	
==>},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  " <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3797	3915	
==>"goto $fail if <rx_pos> >= $lenvar; # need $needed more chars";
    } elsif ($needed eq "0") {
        return ();
    } <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	12001	12152	
==>~ m/^past_/) {
                $code_f = per_test('.past', $test_no);
            }
            elsif ( $func =~ m/^pbc_output_/ ) {
                $co <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	400	505	
==>g the test suite multiple times in the same process
$Test::testing_started = 1;

### FUNCTIONS

## plan

s <==
3	/Users/nnunley/parrot/tools/util/pirtidy.pl	706	804	
==>e $ofh;
}

__END__

=head1 NAME

tools/util/pirtidy.pl - a PIR script indenter and reformatter

=he <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	533125	533448	
==>,
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 616,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 890 \"src/ops/m <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	776	883	
==>ir', $count );

    return ( "python languages/bc/bc.py languages/${lang_fn}", 
             "$self->{parrot <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	5426	5523	
==>rted to the current PMC object of type C<PMC *>.

=item C<INTERP>

Converted to the interpreter ob <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367883	368134	
==>reter), (size_t){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368675	368926	
==>reter), (size_t){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
3	/Users/nnunley/parrot/Configure.pl	3254	3347	
==>icu-config=none to disable the autodetect feature. Parrot will then be
build without ICU.

B<N <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204109	204407	
==>=> ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 241,
                  "ARGS" => [ <==
3	/Users/nnunley/parrot/config/init/defaults.pm	2092	2215	
==>efaults.
        link      => $Config{cc},
        linkflags => $Config{ldflags},

        # Linker Flags to have this binar <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807874	807966	
==>ps\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808779	808871	
==>ps\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{ <==
3	/Users/nnunley/parrot/config/auto/aio.pm	44	135	
==>on.
# $Id: /parrot/config/auto/aio.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	7675	7838	
==>arg->{type} eq 'expr') {
                $code .= emit("temp = a_$name()");
                
                # if that's all there is, remove it
                $li <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	14971	15104	
==>1
		}
	},
	{#State 32
		DEFAULT => -40,
		GOTOS => {
			'classpieces' => 52
		}
	},
	{#State 33
		ACTIONS => {
			'CHAR' => 34,
			">" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450870	450978	
==>ps\"\n  {{\@1}} = {{\@2}}->vtable->absolute(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "L <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6553	6731	
==>ame); # Recurse
}


###############################################################################

=head2 BLOCK->find_block(KIND [, LABEL])

Search this block and recursively th <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	18307	18410	
==>{name}. '})
						if defined $::RD_TRACE;').'
		my $thisprod = $thisrule->{"prods"}[' . $self->{"number" <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	10283	10381	
==>the number of tests which are
expected to run. This should be specified at the very top of your tes <==
3	/Users/nnunley/parrot/lib/Test/More.pm	18580	18686	
==>es with $!
    eval <<REQUIRE;
package $pack;
require $module;
REQUIRE

    my $ok = $Test->ok( !$@, "requi <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	791	893	
==>ged.
#
# (c) Copyright 1998-2001 Francois Desarmenien, all rights reserved.
# (see the pod text in P <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	769	868	
==>ged.
#
# (c) Copyright 1998-2001 Francois Desarmenien, all rights reserved.
# (see the pod text in P <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6960	7132	
==>fnlib,
          fn    => $fn
        }
      });
    }
    else {
      $handler->start_element({
        Name       => 'sub',
        Attributes => {
          name  => $n <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	9430	9555	
==>();
        if (!defined($max) || $max < 0) { $guarantee = 0; }
        else { $guarantee /= $max; }
        $t->{args}->[3] = <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11169	11260	
==>s 120
function factorial(a)
	if a then factorial=a*factorial(a-1) else factorial=1
end funct <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	7106	7231	
==>,
        conditioned_lines              => 1
    );
    genfile(
        'languages/tcl/config/root.in' => 'languages/tcl/Mak <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	158	259	
==>= \&Pod::Simple::DEBUG unless defined &DEBUG }

sub new {
  my $self = shift;
  my $new = $self->SUPER <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	157	258	
==>= \&Pod::Simple::DEBUG unless defined &DEBUG }

sub new {
  my $self = shift;
  my $new = $self->SUPER <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1713	1806	
==>dle_element_end( "head1" );

But if you subclass Pod::Simple::Methody, it will instead do this <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054321	1054411	
==>_IS_NULL({{\@2}}))\n\tinternal_exception(1, \"Tried to get from null namespace.\");\n    if <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055448	1055538	
==>_IS_NULL({{\@2}}))\n\tinternal_exception(1, \"Tried to get from null namespace.\");\n    if <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8251	8393	
==>( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9366	9508	
==>( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19299	19393	
==>>{children}}) {
    my $temp_1 = $self->_generate($node->{children}[$_]);
    $self->_add_inst( <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19787	19881	
==>>{children}}) {
    my $temp_1 = $self->_generate($node->{children}[$_]);
    $self->_add_inst( <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20276	20370	
==>>{children}}) {
    my $temp_1 = $self->_generate($node->{children}[$_]);
    $self->_add_inst( <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	26433	26569	
==>para->[1]{'start_line'},
          "=over is the last thing in the document?!"
        );
        next; # But feh, ignore it.
      } els <==
3	/Users/nnunley/parrot/config/gen/platform.pm	5076	5211	
==>= grep { /\.c$/ } split(',', $generated);
    for (@impls) {
        if (-e $_) {
            local $/ = undef;
            print("\t$_\ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22900	23031	
==>> 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 73
		ACTIONS => {
			"-" => 24,
			' <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2690	2825	
==>se {
        $liblist = join( ' ', map { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2999	3134	
==>se {
        $liblist = join( ' ', map { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2794	2929	
==>se {
        $liblist = join( ' ', map { "-l$_" } keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	4154	4254	
==>p { quotemeta $_ } split('', $ldel));
	$rdel = join('|', map { quotemeta $_ } split('', $rdel));
	pos <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	7776	8240	
==>skip('ident', 'literal'); }


###############################################################################
###############################################################################
##
## MESSAGES:
##
###############################################################################
###############################################################################


#
# DEBUG()
#

sub DEBUG
{
  my ($self, $level, $format, @args) = @_;

  return unless defined <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	12127	12304	
==>_/ ) {
                $code_f = per_test('.pbc', $test_no);
            }
            else {
                die "Unknown test function: $func";
            }
            $code_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	18402	18503	
==>: Illegal argument count" . scalar(@_) . "!";
    }
}

=item C<major_version()>

Returns the major ver <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24528	24635	
==>dim;
		} else  {
			die "Unknown dim type: $syms[CURR] at source line $sourceline";
		}
}
my $forloop=0;
sub <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	17235	17338	
==>signature for a C function we want to call and returns a pointer
   to a function that can call it. */
v <==
3	/Users/nnunley/parrot/lib/Test/More.pm	24089	24182	
==>ernet connection and one isn't available.

B<If it's something the programmer hasn't done yet> <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3774	3873	
==>t{$prm})
		or	croak("Unknow parameter '$prm'");
			ref($value) eq $$checklist{$prm}
		or	croak("I <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3580	3676	
==>t{$prm})
		or	croak("Unknow parameter '$prm'");
			ref($value) eq $$checklist{$prm}
		or	croak("I <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2368	2457	
==>SO

L<Pod::Simple>, L<Pod::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyrig <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	58379	58612	
==>PopScopeF( $_[0] );
            BuildFunctionBody( $_[0], [], $_[3] );
        }
	],
	[#Rule 99
		 'parlist1', 3,
sub
#line 528 "Lua\lua51.yp"
{
            [
                @{ $_[1] },
                BuildParam( $_[0], $ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	40518	40619	
==>=item [4]

the text between the opening and closing tags

=item [5]

the closing tag (or "" if no clos <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3489	3599	
==><$op> is an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) = @_;

    #pri <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3288	3398	
==><$op> is an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) = @_;

    #pri <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	8162	8247	
==>== "73" goto post_call_HAS_RETURN_${CURIC}
goto post_call_NO_RETURN_${CURIC}
post_call <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	70471	70572	
==>e($repspec) $&\" will
		       (almost certainly) fail.",$line)
		and
		_hint("Unless subrule \"$subru <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1757	1857	
==>t eq '';

my $parrot = File::Spec->catfile(
    $path_to_parrot, 'parrot' . $PConfig{exe}
);

my $per <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	226	322	
==>pythonic features
# in Parrot and how to translate Python stack-oriented bytecode to PIR.

use st <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	5651	5759	
==>:MD5->new;
    $md5->add('foo', 'bar');
    $md5->add('baz');
    $digest = $md5->hexdigest;

    print "Dige <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5544	5651	
==>tput_label_def($passLabel);
    return @ops;
}

sub output_initgroup {
    my ($self, $group) = @_;
    retu <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5237	5344	
==>tput_label_def($passLabel);
    return @ops;
}

sub output_initgroup {
    my ($self, $group) = @_;
    retu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70350	70644	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "loadlib",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TY <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71118	71412	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "loadlib",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TY <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37434	37571	
==>8
		}
	},
	{#State 144
		DEFAULT => -104
	},
	{#State 145
		ACTIONS => {
			"-" => 24,
			'TRUE' => 25,
			'NOT' => 27,
			'STR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430998	431297	
==>S" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 495,
                  "ARGS" => [ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27745	27884	
==>' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 85
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1605	1714	
==>eturn $self;
}


#
# ACCESSORS:
#

sub kind  { return shift->{KIND};  }
sub ident { return shift->{IDENT}; }
s <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	23353	23464	
==>if ($$textref =~ /\G(.)/gcs)
			{
				$unkpos = pos($$textref)-1
					unless $igunk || defined $unkpos;
			}
		} <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	8510	8597	
==>info->cur_op[i])
#define NREG(i) REG_NUM(jit_info->cur_op[i])
#define PREG(i) REG_PMC(ji <==
3	/Users/nnunley/parrot/config/auto/gc.pm	1757	1839	
==>\$(SRC_DIR)/$gc\$(O):	\$(GENERAL_H_FILES) \$(SRC_DIR)/$gc.c
\$(SRC_DIR)/res_lea\$(O <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	24512	24621	
==>ame = "I_ARG_$arg_num";
		}

		# float32
		elsif (/^float32$/) {
			$out =  "    \${N_ARG_$arg_num} = bc.read_ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42648	42756	
==>p;
use vars qw ( $AUTOLOAD $VERSION );

my $ERRORS = 0;

$VERSION = '1.80';

# BUILDING A PARSER

my $nextnam <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7250	7352	
==>E|TITLE|TITEL)\s*[\n\r]+([^\n\r]+)/smo;
	
	$text = $1;
	# Tidy it up a bit.
	$text =~ s/^\s+//o;
	$text <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	25522	25669	
==>th exit code $exit_code") if $exit_code and not $pass;

            unless($ENV{POSTMORTEM}) {
                unlink $out_f;
                unlink <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	15929	16070	
==>th exit code $exit_code")
                  if $exit_code and not $pass;

            unless($ENV{POSTMORTEM}) {
                unlink $out_f <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	18480	18621	
==>th exit code $exit_code")
                  if $exit_code and not $pass;

            unless($ENV{POSTMORTEM}) {
                unlink $out_f <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	25577	25678	
==>undef } else {0}',
	        			$self->{"lookahead"},0,$self->describe); 
	$dir->{hashname} = $self->{h <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1881	1975	
==>]{'Indent'} }
sub start_over_text    { ++$_[0]{'Indent'} }
sub start_over_block   { ++$_[0]{'In <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1449	1543	
==>]{'Indent'} }
sub start_over_text    { ++$_[0]{'Indent'} }
sub start_over_block   { ++$_[0]{'In <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	58253	58349	
==>ed regex that matches a string delimited
by any one of the characters in the single argument. For <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558055	558146	
==>rrent_object = object;\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_me <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559439	559530	
==>rrent_object = object;\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_me <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557255	557520	
==>_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558638	558903	
==>_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560022	560287	
==>_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	972066	972403	
==>ELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20288	20393	
==>r(0.5)
print 2,sqr(2)
for i = -1 to 1
	print "Sign of ";i;" is ",sgn(i)
next i


' "shared" Whoa, 66666, G <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	25651	25751	
==>ra_type eq '=pod') { #//////////////////////////////////////////////
      $self->whine(
        $par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321587	321807	
==>table->get_integer(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323943	324163	
==>table->get_integer(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1567	1665	
==>0 % performance
 */

#undef  CHECK_EVENTS
#define CHECK_EVENTS(i, n)   \\
	interpreter->task_queue- <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	1870	1997	
==>= $I100
END_PIR

    $P0[unicode:"dyadic:\u2227"]  =  <<"END_PIR"            # and
    $I100 = %1
    $I101 = %2
    $I100 = and <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	14017	14140	
==>i
  ) { 
    $source = *STDIN{IO};
  }

  if(!defined $to) {             $self->output_fh( *STDOUT{IO}   );
  } elsif(ref(\$ <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	4111	4220	
==>: $!\n";
  print $fh $html or
    die "Couldn't write to \"$filename\": $!\n";
  close $fh or
    die "Couldn' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2087	2180	
==>erEndToken'), but that's not so
pretty as using just $token->type, or even the following short <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	62	151	
==>.pl 19471 2006-05-15T19:40:33.020324Z bernhard  $

=head1 NAME

tools/dev/mk_manifest_and_ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	31766	31903	
==>'key' => 53
		}
	},
	{#State 109
		ACTIONS => {
			"," => 151
		},
		DEFAULT => -9
	},
	{#State 110
		DEFAULT => -38
	},
	{#St <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	1883	2010	
==>Token->new(
        $file, $line, 'literal', 'S', $1);
      $text = $2;
      next;
    }

=cut

    if ($text =~ m{^((?:\"(?:\ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32153	32254	
==>EG\}/) {
			die "instruction must use one of \${STACK0} or \${STOREREG} in rule " .
				"$rule->{'name <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2576	2678	
==>Exportable convenience function
sub rop {
    return __PACKAGE__->op(@_);
}

use vars qw(%MARKERS);
sub <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1250	1349	
==>ile($out_f), $output, $desc );
        $self->{builder}->diag("'$cmd' failed with exit code $exit_co <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1291	1390	
==>ile($out_f), $output, $desc );
        $self->{builder}->diag("'$cmd' failed with exit code $exit_co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101187	101425	
==>LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_cor <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103393	103631	
==>LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_cor <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27887	27983	
==>ot_${classname}_class_init(Parrot_Interp, int, int);
EOC
    $self->{hdecls} .= $hout;
    $self- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117212	117516	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	119543	119847	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120398	120702	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_co <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995064	995534	
==>S" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1113,
                  "ARGS" => [
                              "i",
                              "i",
                              "s",
                              "ic <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465639	465897	
==>+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dec",
                  "FLAGS" => ": <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	466260	466518	
==>+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dec",
                  "FLAGS" => ": <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088037	1088393	
==>1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090991	1091347	
==>1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	174	269	
==>E

Parrot::OpLib::core - Parrot Op Info

=head1 DESCRIPTION

This is an autogenerated file, crea <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	505	626	
==>ose);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    my $cc        = $ <==
3	/Users/nnunley/parrot/config/auto/readline.pm	517	638	
==>ose);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    my $cc        = $ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	1122	1229	
==>'', 'lib/Parrot/Docs/Item.pm'),
            $self->new_item('', 'lib/Parrot/Docs/Group.pm'),
            $se <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	6150	6258	
==>', or ', @expected;
}

sub _contains($@)
{
	my $target = shift;
	my $item;
	foreach $item ( @_ ) { return 1 i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	219	324	
==>on/Prefix.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako:: <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	39279	39374	
==>ract_tagged> returns only the first paragraph
after the tag (up to the first line that is either <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1134	1239	
==>I /opt/local/include   -g -Wall -Wstrict-prototypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-q <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1192	1297	
==>I /opt/local/include   -g -Wall -Wstrict-prototypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-q <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1196	1301	
==>I /opt/local/include   -g -Wall -Wstrict-prototypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-q <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	58760	58955	
==>{
            [
                BuildParam( $_[0], $_[1] ),
            ];
        }
	],
	[#Rule 102
		 'parlist', 3,
sub
#line 546 "Lua\lua51.yp"
{
            [
                @{ $_ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	51021	51171	
==>e 41
		 '_funcname', 3,
sub
#line 246 "Lua\lua51.yp"
{
            [
                @{ $_[1] },
                BuildLiteral( $_[0], $_[3], 'ke <==
3	/Users/nnunley/parrot/tools/dev/manicheck.pl	1594	1707	
==>nt "Extra files:\n";
    foreach (@extra) {
        print "  $_\n";
    }
}

exit scalar(@missing) or scalar(@extr <==
3	/Users/nnunley/parrot/config/auto/env.pm	896	1023	
==>less ($@ || cc_run() !~ /ok/) {
        $unsetenv = 1;
    }
    cc_clean();

    $conf->data->set(
        setenv   => $setenv, <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	23565	23669	
==>$cout .= <<"EOC";
        vt_clone->whoami = CONST_STRING(interp, "$classname");
        vt_clone->isa_st <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	46764	46868	
==>rammar =~ m/$COMMENT/gco)
		{
			_parse("a comment",0,$line);
			next;
		}
		elsif ($grammar =~ m/$NEGLOO <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	784	876	
==>usr/bin'.

=item C<libdir>

The library directory. Defaults to '/usr/lib'.

=item C<includedi <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	1013	1105	
==>usr/bin'.

=item C<libdir>

The library directory. Defaults to '/usr/lib'.

=item C<includedi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265871	266124	
==>"CODE" => 309,
                  "ARGS" => [
                              "i",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 806 \"src/ops/cmp.ops\"\n    {{\@1}} = <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	54064	54196	
==>p"
{
            BuildRelop( $_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 66
		 'exp', 3,
sub
#line 373 "Lua\lua51.yp" <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Posix.pm	11	93	
==>rot/languages/bc/lib/Parrot/Test/Bc/Posix.pm 16454 2006-02-01T20:44:27.448243Z bern <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276160	276256	
==>" => "#line 881 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) <= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277038	277134	
==>" => "#line 881 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) <= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277916	278012	
==>" => "#line 881 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) <= <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	19573	19679	
==>f($nixx and ref $treelet->[$i] and $treelet->[$i][0] eq 'X') {
        DEBUG > 3 and print "   Nixing X nod <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	33951	34047	
==>ymbol->string' => \&_op_symbol_string,
  'string->symbol' => \&_op_string_symbol,

###
### Numeri <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	8195	8280	
==>_${CURIC}
goto post_call_NO_RETURN_${CURIC}
post_call_HAS_RETURN_${CURIC}:
${INS} = co <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1353	1458	
==>ion() {
	# We need a stack depth and a string for label gen and some
	# storage for stack depths and stack <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	440	545	
==>ion() {
	# We need a stack depth and a string for label gen and some
	# storage for stack depths and stack <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	68638	68752	
==>e)
			and
			_hint("Multiple positive and/or negative lookaheads
			       are simply multiplied together to produc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25988	26099	
==>=> [],
                  "BODY" => "#line 446 \"src/ops/core.ops\"\n  PMC * const p = CONTEXT(interpreter->ctx)- <==
3	/Users/nnunley/parrot/examples/benchmarks/fib.pl	230	320	
==>time perl examples/benchmarks/fib.pl n

=head1 DESCRIPTION

Calculates the Fibonacci Number <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140839	140938	
==>DY" => "#line 77 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141735	141834	
==>DY" => "#line 77 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142631	142730	
==>DY" => "#line 77 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650546	650660	
==>],
                  "BODY" => "#line 247 \"src/ops/pmc.ops\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtab <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651468	651582	
==>],
                  "BODY" => "#line 247 \"src/ops/pmc.ops\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtab <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10074	10190	
==>ebug & 0x10
#DBG>		and	print STDERR "**Pop state $$stack[-1][0].\n";

			pop(@$stack);
		}

			@$stack
		or	do <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9624	9733	
==>ebug & 0x10
#DBG>		and	print STDERR "**Pop state $$stack[-1][0].\n";

			pop(@$stack);
		}

			@$stack
		or	do <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578368	578457	
==>/ops/object.ops\"\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n" <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	283	406	
==>t()");
        }
        if (-e $path && !-d $path) {
            $*ERR.say("Parameter to lib.import() must be directory, no <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113364	113647	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114102	114385	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18864	18965	
==>uire_close_paren;
      $self->require_semicolon;

#      $self->DEBUG(0, "Assembling call to '%s()'.. <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8955	9048	
==>ort"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
goto P <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10459	10552	
==>ort"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
goto P <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11863	11956	
==>ort"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
goto P <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3635	3736	
==>f, $addr) = @_;

    die "pbc2c.pl: Cannot handle RESUME ops!";
}

=item C<restart_offset($offset)>

R <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	1107	1206	
==>y ($extrapos, $extralen) = @_>18 ? splice(@_, -2, 2) : (0,0);
	my ($startlen) = $_[5];
	my $remainde <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2224	2320	
==>u.key",
  'kic' => "cur_opcode[%ld]"
);

=item C<access_arg($type, $value, $op)>

Returns the C c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60637	60824	
==>PARROT_WARNINGS_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61287	61474	
==>PARROT_WARNINGS_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	30129	30220	
==>thin
the prefix pattern, using the C<(?s)> directive: '(?s).*?(?=<H1>)'


=head2 C<extract_d <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1008	1144	
==>ose_warning} );
}

sub Info {
    my $parser = shift;
    my ($msg) = @_;

    $msg ||= ".\n";

    if ( exists $parser->YYData- <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2378	2474	
==>ed, $description, @todo)>

Runs the target string against the Perl 6 pattern, passing the test
if <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3812	3908	
==>ed, $description, @todo)>

Runs the target string against the Perl 6 pattern, passing the test
if <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	8256	8367	
==>", pos $$textref;
		goto failed;
	}

	$textpos = pos($$textref);

	if (!defined $rdel)
	{
		$rdelspec = $&;
		un <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	723	823	
==>data->get('linkflags');
    my $ccflags   = $conf->data->get('ccflags');
    if ($^O =~ /mswin32/i) { <==
3	/Users/nnunley/parrot/config/auto/readline.pm	735	835	
==>data->get('linkflags');
    my $ccflags   = $conf->data->get('ccflags');
    if ($^O =~ /mswin32/i) { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319328	319585	
==>n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" => ":do <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43685	43883	
==>t_push_mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44329	44527	
==>t_push_mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804262	804354	
==>ps\"\n    {{\@1}}->vtable->set_pmc_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805163	805255	
==>ps\"\n    {{\@1}}->vtable->set_pmc_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4} <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1232	1318	
==>-Wcast-qual -Wcast-align -Wwrite-strings -Waggregate-return -Winline -W -Wno-unused -Ws <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961105	961413	
==>);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_enc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962067	962375	
==>);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_enc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963029	963337	
==>);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_enc <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35713	35814	
==>it with how many failed.  If
you run less (or more) tests than you planned, the missing (or extras)
wi <==
3	/Users/nnunley/parrot/lib/Test/More.pm	33784	33885	
==>it with how many failed.  If
you run less (or more) tests than you planned, the missing (or extras)
wi <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2580	2681	
==>it with how many failed.  If
you run less (or more) tests than you planned, the missing (or extras)
wi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	141	229	
==>he Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Statement/Arith <==
3	/Users/nnunley/parrot/config/auto/cgoto.pm	279	372	
==>::cgoto;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::B <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11237	11329	
==>rt"]
${DEST0} = concat ${STEMP0}
inc stack_depth
${STEMP0} = stack_depth
${DEST0} = concat ${ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8423	8515	
==>rt"]
${DEST0} = concat ${STEMP0}
inc stack_depth
${STEMP0} = stack_depth
${DEST0} = concat ${ <==
3	/Users/nnunley/parrot/Configure.pl	7185	7325	
==>path/to/icu-config
                        Location of the script used for ICU autodetection.
                        You just need to specif <==
3	/Users/nnunley/parrot/lib/Test/More.pm	3876	3974	
==>mport everything
but 'fail', you'd do:

  use Test::More tests => 23, import => ['!fail'];

Alterna <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	8261	8367	
==>y $self = shift;

    return scalar($self->arg_types + 1);
}

=back

=head1 SEE ALSO

=over 4

=item C<Parr <==
3	/Users/nnunley/parrot/config/auto/signal.pm	323	413	
==>figure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining som <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	339	429	
==>figure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining som <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	996	1109	
==>LEFT};  }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compile <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	1004	1117	
==>LEFT};  }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compile <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	9539	9648	
==>ing $orig";

  my $enc_error;

  # Cf.   perldoc Encode   and   perldoc Encode::Supported

  require Pod::Simp <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3487	3601	
==>uotes.

      $handler->start_element({ Name => 'concat' });

      while (1) {
        last unless defined $string <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6057	6153	
==>n
	# propogated there already.
	$pir .= <<'PIR';
if 0x${CURIC} == 0x45 goto POST_BRANCH_switch_${ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3995	4091	
==>n
	# propogated there already.
	$pir .= <<'PIR';
if 0x${CURIC} == 0x45 goto POST_BRANCH_switch_${ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407610	407832	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "connect",
                  "FLAGS" => ":base_network",
                  "A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408508	408730	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "connect",
                  "FLAGS" => ":base_network",
                  "A <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18052	18184	
==>ructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 48
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	15185	15304	
==>ref $regex eq 'Regexp' ) {
        $usable_regex = $regex;
    }
    # Check for '/foo/' or 'm,foo,'
    elsif( ($re, $o <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	709	816	
==>already exists, otherwise it is
created and cached. A relative path is made absolute.

=cut

sub new
{
    m <==
3	/Users/nnunley/parrot/examples/benchmarks/arriter.pl	216	313	
==>ead1 SYNOPSIS

    % time perl examples/benchmarks/arriter.pl

=head1 DESCRIPTION

Sets up an arra <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4127	4235	
==>pmcs);

    # Convert lib-GROUP.so + A.so + B.so ... -> GROUP.so
    while (my ($group, $pmcs) = each %$group <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4231	4339	
==>pmcs);

    # Convert lib-GROUP.so + A.so + B.so ... -> GROUP.so
    while (my ($group, $pmcs) = each %$group <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	416	518	
==>Goto;

use strict;
use warnings;

use base qw( Parrot::OpTrans );

=item C<suffix()>

The suffix is C<' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054458	1054555	
==>o get null global.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055585	1055682	
==>o get null global.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	15999	16145	
==>AND' => 83,
			"^" => 79,
			"*" => 80,
			"<=" => 85,
			'OR' => 84,
			")" => 81,
			">" => 86
		}
	},
	{#State 38
		ACTIONS => {
			" <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	58185	58325	
==>ua51.yp"
{
            PopScopeF( $_[0] );
            BuildFunctionBody( $_[0], $_[2], $_[4] );
        }
	],
	[#Rule 98
		 'funcbody <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	15684	15796	
==>f->{'curr_open'} ||= []);

  my $scratch;

  DEBUG > 10 and print "# Paragraph buffer: <<", pretty($paras), ">>\n <==
3	/Users/nnunley/parrot/config/auto/jit.pm	4218	4338	
==>RC_DIR)/exec_save.h',
                TEMP_exec_o =>
                    '$(SRC_DIR)/exec$(O) $(SRC_DIR)/exec_cpu$(O) $(S <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1139	1246	
==>= each %{$_[2]}) {
      unless($key =~ m/^~/s) {
        next if $key eq 'start_line' and $_[0]{'hide_line_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	714	817	
==>= each %{$_[2]}) {
    unless($key =~ m/^~/s) {
      next if $key eq 'start_line' and $_[0]{'hide_line_ <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	206	304	
==>:File;

=head1 DESCRIPTION

Use this to query and manipulate files and their contents.

=head2 Clas <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576522	576610	
==>ive(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, name) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577534	577622	
==>ive(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, name) <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36643	36794	
==>=> 80,
			".." => 71,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -67
	},
	{#State 142
		ACTIONS => {
			"-" => 72,
			".." => <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	5157	5268	
==>e};
    my $type = $R->{name};
    if ($type eq 'match') {
	return $R->{args}[0] == $S->{args}[0];
    } elsif ( <==
3	/Users/nnunley/parrot/lib/Test/More.pm	9107	9212	
==>/that/, 'this is like that');

is similar to:

    ok( $this =~ /that/, 'this is like that');

(Mnemonic " <==
3	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	827	936	
==>(! open(OUTPUT, $output)) {
        print "$output does not exist; remaking\n" if $Verbose;
        $up_to_dat <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527133	527423	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527886	528176	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  " <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	1357	1459	
==>nce.

Here is an example parrotbench.conf:
    [global]
    directory = ../../examples/benchmarks
    l <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303386	303824	
==>",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 353,
                  "ARGS" => [
                              "i",
                              "s",
                              "sc"
                            ],
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818885	819038	
==>ot_pop_regs(interpreter);\n  {{=0,+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	336	439	
==>r at end of input string" ],
    [ "advance(n)" => "advance input <n> chars" ],
    [ "increment(var,[am <==
3	/Users/nnunley/parrot/languages/urm/urm-old.pl	1138	1247	
==>\d) *goto *(\d+)/) {
	$register{$1} = 0 unless defined $register{$1};
	if ($register{$1} == $2) {$pos = $3;} e <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7863	7952	
==>[1]',$return]);
  $self->_add_inst('', 'set', [$return,$head]);
  $self->_add_inst("DONE_$ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	3891	3980	
==>se.

=item C<pir_2_pasm_is($code, $expected, $description)>

Compile the Parrot Intermedia <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	14868	14989	
==>tn, $ti",
				"\t$left = $tn",
			);
		} else {
			# Simple a=expr case.
			@ass=(
				@$rightexpr,
				"\t$left = $right" <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	795	880	
==>rot::Docs::Section::Ops;
use Parrot::Docs::Section::IMCC;
use Parrot::Docs::Section::P <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	15653	15766	
==>=> '',
		'qr'	=> '[imsx]*',
		'q'	=> '',
	     );

sub extract_quotelike (;$$)
{
	my $textref = $_[0] ? \$_[0] : \ <==
3	/Users/nnunley/parrot/config/auto/sizes.pm	2592	2701	
==>';

Can't find a float type with size 4, conversion ops might fail!

END
    }
    if ($results{doublesize} == <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	10806	10889	
==>bleintegerarray.pmc resizablepmcarray.pmc resizablestringarray.pmc scalar.pmc slice. <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	22521	22638	
==>.= <<"EOC";

   $const MMD_init _temp_mmd_init[] = {
        $mmd_list
    };
    /*  Dynamic PMCs need the runtime ty <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943831	943916	
==>rc/ops/string.ops\"\n  {{\@1}} = Parrot_charset_number_of_str(interpreter, {{\@2}});\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944620	944705	
==>rc/ops/string.ops\"\n  {{\@1}} = Parrot_charset_number_of_str(interpreter, {{\@2}});\n <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3865	3980	
==>r!")
        unless $module_props{fnlib};

      $fnlib = $module_props{fnlib}->value;
    }

    my $fn = $props{fn <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6529	6644	
==>r!")
        unless $module_props{fnlib};

      $fnlib = $module_props{fnlib}->value;
    }

    my $fn = $props{fn <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11612	11696	
==>e \f1\lang1024\noproof\sbasedon10 pod-C;}
{\s20\ql \li0\ri0\sa180\widctlpar\f1\fs%s\l <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4326	4440	
==>aration.

=cut

sub run_core_func_decl
{
    my ($self, $core) = @_;

    return "opcode_t * " .
        $self->cor <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2814	2928	
==>aration.

=cut

sub run_core_func_decl
{
    my ($self, $core) = @_;

    return "opcode_t * " .
        $self->cor <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	153	243	
==>rot::Docs::Section::Docs - Docs documentation section

=head1 SYNOPSIS

	use Parrot::Docs:: <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1534	1662	
==>h"}( @_ );
        # if( $ok ) { foreach my $meth ( $lang_f, $pasm_f, $by_f, $out_f ) { unlink $meth } } # JMG
    }
}

1;

my $u <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	23822	23942	
==>this node with its children!
          => splice @{ $treelet->[$i] },2
              # (not catching its first two (non-c <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6277	6393	
==>_type          { return shift->require('type');          }

sub require_value         { return shift->require('ident' <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	26875	26977	
==>> 3 and printf "Extensor: Fallbacks <%s> Elements <%s>.\n",
     @fallbacks, @elements;

    my $canoni <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	9168	9270	
==>k.
  sysopen my $fh, BUCKET, O_RDWR|O_CREAT
    or die "Couldn't open \"@{[ BUCKET ]}\": $!\n";
  flock <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	15776	15875	
==>pretty($paras), ">>\n";

  # We have something in our buffer.  So apparently the document has starte <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	2927	3043	
==>_html
{
    my $self = shift;
    my $source = shift || die "No source\n";
    my $target = shift || die "No target\n <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	2375	2491	
==>_html
{
    my $self = shift;
    my $source = shift || die "No source\n";
    my $target = shift || die "No target\n <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2534	2647	
==>_html
{
	my $self = shift;
    my $source = shift || die "No source\n";
    my $target = shift || die "No target\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691573	691947	
==>",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 777,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" = <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8951	9128	
==>04
#DBG>		and	print STDERR "Forced Error recovery.\n";

            $$check='';

        };

        #Error
            $$errstatus
        or   do {

            $$er <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8549	8715	
==>04
#DBG>		and	print STDERR "Forced Error recovery.\n";

            $$check='';

        };

        #Error
            $$errstatus
        or   do {

            $$er <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	18809	18915	
==>ersion()>

Returns the patch version number.

=cut

sub patch_version
{
    my $self = shift;

    $self->{ <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	1213	1314	
==>o_tcl = File::Spec->join('languages','tcl');
    } elsif ($dir_count == 1) {
      $path_to_tcl = 'tcl <==
3	/Users/nnunley/parrot/config/init/defaults.pm	4866	4966	
==>'$(PERL) -MExtUtils::Command -e mkpath',
        touch     => '$(PERL) -MExtUtils::Command -e touch', <==
3	/Users/nnunley/parrot/config/auto/msvc.pm	693	801	
==>svc = eval cc_run() or die "Can't run the test program: $!";
    cc_clean();

    # Set msvcversion to undef. <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	34658	34797	
==>"/" => 82
		},
		DEFAULT => -59
	},
	{#State 126
		ACTIONS => {
			"-" => 72,
			"%" => 76,
			"*" => 80,
			".." => 71,
			"+" => <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	3555	3664	
==>lect | case |
		read | restore | input | open | close | on | randomize | stop | swap |
		common | cls | locate <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	5418	5519	
==>%d interfaces ===\n", scalar keys %API;

my @API = sort keys %API;

my @NoParrotAPI = grep { !exists $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	41180	41288	
==>1], defined($link_text) ? splice(@$link_text) : '');
      
      DEBUG > 2 and print "End of L-parsing for t <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6008	6109	
==>ck type state propogated to it if nothing has been
	# propogated there already.
	$pir .= <<'PIR';
if 0 <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3946	4047	
==>ck type state propogated to it if nothing has been
	# propogated there already.
	$pir .= <<'PIR';
if 0 <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1548	1659	
==>ft;

  if(exists $node->{children}) {
    for(@{$node->{children}}) {
      _dataflow($_);
    }
    my $cur_typ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5275	5366	
==>dler->start_element({ Name => 'assign' });
  $dest->sax($handler);
  $handler->start_element <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3338	3429	
==>dler->start_element({ Name => 'assign' });
  $dest->sax($handler);
  $handler->start_element <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11139	11239	
==>$code, qq{\t.arg $_->[0]\t\t# $_->[0]};
	#}
	pop @$work;  # REmove startarg tag...
	return(scalar @ar <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2181	2286	
==>ow the actual formatters:

sub end_head1       { $_[0]->emit_par(-4) }
sub end_head2       { $_[0]->emit_p <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1749	1854	
==>ow the actual formatters:

sub end_head1       { $_[0]->emit_par(-4) }
sub end_head2       { $_[0]->emit_p <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	10949	11046	
==>SSION({ stuff => '$X99', choose => 1 });
	feedme();
	push @{$code{$seg}->{code}}, <<EOASS;
@code
E <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	3071	3200	
==>if $exit_code;
            $self->{builder}->diag($diag) if $diag;
        }

        # The generated files are left in the t/ <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2665	2792	
==>if $exit_code;
            $self->{builder}->diag( $diag ) if $diag;
        }

        # The generated files are left in the t/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	624815	624922	
==>code_t *pc;\n    void **pred_pc;\n    INTVAL i, n_args, *sig_bits;\n    PMC *sig;\n\n    ctx = CONTEXT(inter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359282	359379	
==>Y" => "#line 250 \"src/ops/io.ops\"\n  STRING * const s = {{\@1}};\n  if (s && string_length(inter <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360030	360127	
==>Y" => "#line 250 \"src/ops/io.ops\"\n  STRING * const s = {{\@1}};\n  if (s && string_length(inter <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	645	747	
==>rent_test + 1;

    $desc = $language unless $desc;

    my $lang_f = Parrot::Test::per_test('.py',$cou <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16541	16631	
==>dify it
under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.ht <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1755	1845	
==>dify it
under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.ht <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	649	768	
==>sub config_groups
{
    my $self = shift;
    my $dist = Parrot::Distribution->new;
    
    my @groups = ();
    my %ti <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12637	12739	
==>eedme();
		create_label();
		push @args, qq{"$labels{$syms[CURR]}"};
	} else {
		push @args, qq{""};
	} <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	79	170	
==>on.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Section - Do <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364124	364363	
==>tion",
                  "CODE" => 426,
                  "ARGS" => [
                              "p",
                              "nc"
                            ],
                  "BODY" => "#line 292 \"src/ops/io.ops\"\n  if ({{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104140	1104246	
==>, class);\n\t{{\@1}} = pmc_new_init(interpreter, type, {{\@3}});\n\t{{+=4}};\n",
                  "experim <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105355	1105461	
==>, class);\n\t{{\@1}} = pmc_new_init(interpreter, type, {{\@3}});\n\t{{+=4}};\n",
                  "experim <==
3	/Users/nnunley/parrot/config/auto/format.pm	325	419	
==>n @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step;

$descript <==
3	/Users/nnunley/parrot/config/init/hints.pm	365	459	
==>n @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step;

$descript <==
3	/Users/nnunley/parrot/config/init/miniparrot.pm	610	704	
==>n @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step;

$descript <==
3	/Users/nnunley/parrot/config/auto/format.pm	869	988	
==>f (($iv eq "long long") || ($iv eq "long long int")) {
        $ivformat = "%lld";
    } else {
        die "Configure.p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822355	822446	
==>K_ENTRY_INT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823423	823514	
==>K_ENTRY_INT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  } <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19330	19483	
==>x>? ->  $matchcount = 0
#               goto next
#        rfail: if $matchcount == 0 goto lastback
#               $matchcount--
#               goto R.b <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	2120	2242	
==>e->min, $tree->max, $tree->greedy,
                                 $self->convert($tree->thing, $ctx) ]);
}

sub convert_r <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3256	3370	
==>xA0}{ };
    $self->{'Thispara'} =~ tr{\xAD}{}d;
  }

  my $i = ' ' x ( 2 * $self->{'Indent'} + 4);
  
  $self->{'T <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4660	4774	
==>shift;
	my $pops = shift;
	my $register_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and p <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3076	3190	
==>shift;
	my $pops = shift;
	my $register_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and p <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	39063	39155	
==>uses C<extract_tagged> to immediately fail.

However, if the string value associated with <re <==
3	/Users/nnunley/parrot/lib/Test/More.pm	4948	5102	
==>+;
        }
        else {
            push @plan, $item;
        }

        $idx++;
    }

    plan(@plan);

    __PACKAGE__->_export_to_level(1, __PACKA <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	5602	5712	
==>t   (keys %{ $branches{$branch} }) {
      $branches{$branch}{$cat} = [
        map  {{ %$_, timestamp => $_->{ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	1286	1371	
==>f->new_item('', 'docs/memory_internals.pod'),
			$self->new_item('', 'docs/parrotbyte. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846715	846991	
==>{\@2}});\n  {{\@1}} = s;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847511	847787	
==>{\@2}});\n  {{\@1}} = s;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3524	3630	
==>x above applies here.

=cut

sub pgeglob_isnt {
    my ($target, $pattern) = (shift, shift);

    unshift @ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21611	21712	
==>>_constant(1);
  my $temp = $self->_generate($node->{children}[1]);
  $self->_add_inst(''           ,' <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21996	22097	
==>>_constant(1);
  my $temp = $self->_generate($node->{children}[1]);
  $self->_add_inst(''           ,' <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5615	5720	
==>STDERR ('-' x 40),"\n";
#DBG>		$debug & 0x2
#DBG>	and	print STDERR "In state $stateno:\n";
#DBG>		$debu <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	18273	18377	
==>'rule', 4,
sub
#line 79 "lib/Regex/Grammar.y"
{ my ($name, $tree) = @_[2,4];
     # This is really not th <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5345	5447	
==>STDERR ('-' x 40),"\n";
#DBG>		$debug & 0x2
#DBG>	and	print STDERR "In state $stateno:\n";
#DBG>		$debu <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	36349	36446	
==>ilder is thread-safe.  The test
number is shared amongst all threads.  This means if one thread se <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934033	934124	
==>> "#line 435 \"src/ops/string.ops\"\n  {{\@1}} = string_downcase(interpreter, {{\@2}});\n  { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934808	934899	
==>> "#line 435 \"src/ops/string.ops\"\n  {{\@1}} = string_downcase(interpreter, {{\@2}});\n  { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214912	215078	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 455 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215853	216019	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 455 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(inte <==
3	/Users/nnunley/parrot/config/init/defaults.pm	482	574	
==>description = q{Setting up Configure's default values};

@args = qw(debugging optimize profil <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926712	927035	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringinfo",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928182	928505	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringinfo",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929652	929975	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringinfo",
                  "FLAGS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783054	783410	
==>,
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 884,
                  "ARGS" => [
                              "p",
                              "kic",
                              "sc"
                            ],
                  "BODY" => "#line 387 \"src/ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	1543	1646	
==>)
 
 * 1 tablespoon garam masala
 * 1/2 teaspoon red chili powder, or to taste
 * Salt, to taste (probab <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	1472	1563	
==>tion('HQ9plus', 'hq9plus.html', '', 'languages/HQ9plus'),
        $self->new_section('Jako', <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	14057	14343	
==>,
                                        STDOUT => $out_f,
                                        STDERR => $out_f);
                        }
                    }
                }
            }

            if ( $func =~ /^pbc_output_/ && $args =~ /-r / ) {
                # native <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	5769	5875	
==>$api} || $api =~ $ParrotPrefix) {
	push @UnParrotAPI, $api;
    }
}

if (@NoParrotAPI) {
    printf "--- Mi <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	28922	29016	
==>!" unless ref($tree) eq 'Regex::Ops::Tree::rule';

    my (undef, @ops) = $self->rewrite($tree, <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	7148	7277	
==>_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c failed ($?)\n";
    }
    else {
        1;
    }
}

su <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5442	5571	
==>_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c failed ($?)\n";
    }
    else {
        1;
    }
}

su <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7359	7488	
==>_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src_stem.c failed ($?)\n";
    }
    else {
        1;
    }
}

su <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	3407	3518	
==>::Copy::copy($from, $to);

    # Make sure the timestamp is updated
    my $now = time;
    utime $now, $now, $t <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2616	2719	
==>$cond) {
    $handler->start_element({ Name => 'cond', Attributes => { kind => $cond } });
    $handler- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3380	3483	
==>$cond) {
    $handler->start_element({ Name => 'cond', Attributes => { kind => $cond } });
    $handler- <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	937	1186	
==>I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, I1
                              #
print "Estimated ops: $I5\n"; # print  "Esti <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	937	1186	
==>I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, I1
                              #
print "Estimated ops: $I5\n"; # print  "Esti <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	7517	7601	
==>ble_1123_op Parrot_jit_normal_op
#define Parrot_jit_vtable_2231_op Parrot_jit_normal_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	1991	2099	
==>LUE};    }
sub props  { return %{shift->{PROPS}}; }
sub args   { return @{shift->{ARGS}}; }

sub file   { ret <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	37317	37423	
==>! @$curr_open) {  # usual case
          DEBUG and print "Treating $para_type paragraph as such because sta <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	999	1097	
==>t = $self->right->compile($compiler);
    $compiler->emit("  $test $left $op $right goto ${prefix}_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33672	33807	
==>wing ~Para content into $over_type item\n";
              push @$para, splice @{shift @$paras},2;
            } else {
              DEB <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35485	35620	
==>wing ~Para content into $over_type item\n";
              push @$para, splice @{shift @$paras},2;
            } else {
              DEB <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	2758	2857	
==>to the distribution after configuration and installing.', 'MANIFEST.generated'),
            $self-> <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	17368	17488	
==>= @_;
    inplace('-', $cmt);
}
sub JUMP_FORWARD()
{
    my ($n, $c, $cmt) = @_;
    my $targ = "pc_xxx";
    if ($c =~ / <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	2408	2514	
==>try;
}

while (my ($package, $files) = each %FILES) {
    my $manifest = "MANIFEST.$package";
    open(MANI <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	674	771	
==>>

Verbose status along the way.

=back

=head1 COMMAND-LINE ARGUMENTS

=over 4

=item C<OBJFILES> <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	35677	35788	
==>ch for rule $rule->{'name'}");
		$pir .= "### end post_branch\n";
	}

    # Calls/returns (calling class)
    el <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9921	10015	
==>(http://[^\s)]+)|<a href="$1">$1</a>|gs;

    print {$self->{'output_fh'}} $text;
}

=item C<do <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	70	164	
==>pTrans/CGoto.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::OpTrans::CG <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	1491	1595	
==>THIS FILE   !!!!!!!
 *
 * This file is generated automatically from '$infile'
 * by $0.
 *
 * Any changes <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	3780	3884	
==>THIS FILE   !!!!!!!
 *
 * This file is generated automatically from '$infile'
 * by $0.
 *
 * Any changes <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	14177	14268	
==>bs{$sym}}($a1, $a2, "\$$optype$retcount", "", $ot1, $ot2);
					($optype)=$return=~/([N|S])/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066702	1066951	
==>1,
                  "ARGS" => [
                              "i",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 49 \"src/ops/experimental.ops\"\n\n  FLOATVAL q <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469300	469398	
==>=> "#line 385 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exce <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470175	470273	
==>=> "#line 385 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exce <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5120	5228	
==>)=0;

#DBG>	my($ShowCurToken) = sub {
#DBG>		my($tok)='>';
#DBG>		for (split('',$$token)) {
#DBG>			$tok <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4874	4977	
==>)=0;

#DBG>	my($ShowCurToken) = sub {
#DBG>		my($tok)='>';
#DBG>		for (split('',$$token)) {
#DBG>			$tok <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	1209	1301	
==>keys
for C<%contents> are C<pairs>, C<sources>, C<headers> and C<contents>.

=cut

sub c_item <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1223	1355	
==>eturn $self;
}

sub dest  { return shift->{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub ri <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1214	1346	
==>eturn $self;
}

sub dest  { return shift->{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub ri <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1103	1235	
==>eturn $self;
}

sub dest  { return shift->{DEST};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{OP};    }
sub ri <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	68685	68861	
==>erpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "coll <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	69126	69302	
==>erpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "coll <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2012	2122	
==>~ /^<!DOCTYPE html/) {
    print "The submitted smoke does not look like a smoke!";
    exit;
  }
}

sub uncomp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	68239	68414	
==>D(interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	68680	68855	
==>D(interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	4730	4857	
==>er relative
        #  to pods, but in order relative to cuts.
        
        # Note also that we haven't yet applied the tran <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10082	10192	
==>path_for_file_with_relative_path(shift);
    
    return unless $path;
    
    return -f $path;
}

=item C<dir <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51743	51843	
==>} != 0) { Parrot_set_trace(interpreter,   {{\@1}}); }\n  else         { Parrot_clear_trace(interprete <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52526	52626	
==>} != 0) { Parrot_set_trace(interpreter,   {{\@1}}); }\n  else         { Parrot_clear_trace(interprete <==
3	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	175	276	
==>s2.pl - GC stress-testing

=head1 SYNOPSIS

    % time perl examples/benchmarks/stress2.pl

=head1 DES <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6712	6808	
==>BRANCH_NOT_switch_${CURIC}:
PIR
	return $pir;
}

# Pre and post load operation hooks.
sub pre_loa <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4650	4746	
==>BRANCH_NOT_switch_${CURIC}:
PIR
	return $pir;
}

# Pre and post load operation hooks.
sub pre_loa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	69092	69231	
==>/core.ops\"\n  Parrot_block_GC(interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6594	6720	
==>>			and	print STDERR "Shift and go to state $act.\n";

					$$errstatus
				and	do {
					--$$errstatus;

#DBG>					$debu <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6287	6407	
==>>			and	print STDERR "Shift and go to state $act.\n";

					$$errstatus
				and	do {
					--$$errstatus;

#DBG>					$debu <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	22522	22621	
==>>($$textref) }
				elsif (ref($func) eq 'Text::Balanced::Extractor')
					{ @bits = $field = $func-> <==
3	/Users/nnunley/parrot/tools/dev/manicheck.pl	459	554	
==>the F<MANIFEST> file against the files present in
this directory tree, accounting for .svn dirs. <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33303	33393	
==>ub callsyntax($$)
{
	if ($_[0]->{"matchrule"})
	{
		return "&{'$_[1]'.qq{$_[0]->{subrule}}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255295	255548	
==>297,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 726 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? { <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7080	7189	
==>ushmark";
    return @ops;
}

sub output_pushindex {
    my ($self, $reg) = @_;
    $reg = value(defined($reg) <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6722	6831	
==>ushmark";
    return @ops;
}

sub output_pushindex {
    my ($self, $reg) = @_;
    $reg = value(defined($reg) <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	38628	38777	
==>} else {
            DEBUG > 3 and
             print "     No need to remove quotes in ", pretty(@section_name), "\n";
          }

          $sectio <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	14644	14741	
==>append_html_suffix($rel_path);
        
    my $docs_file = $target->file_with_relative_path($rel_ <==
3	/Users/nnunley/parrot/config/auto/pack.pm	2094	2206	
==>ype_n => ($conf->data->get('numvalsize') == 12 ? 'D' : 'd')
    );

    #
    # Find out what integer constant ty <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	12449	12565	
==>OM_END

neg_loop:
    if op1 == 0 goto done
    unless iter goto done

    $P1 = pop op2  # have to pop when iteratin <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2387	2490	
==>kind => $self->kind } });
  }

  if ($self->op) {
    $handler->start_element({ Name => 'block', Attribu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2264	2367	
==>kind => $self->kind } });
  }

  if ($self->op) {
    $handler->start_element({ Name => 'block', Attribu <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	59	179	
==>b new {
    my ($proto, %options) = @_;
    my $self = bless \%options, (ref($proto) || $proto);
    $self->init();
    r <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	226	346	
==>b new {
    my ($proto, %options) = @_;
    my $self = bless \%options, (ref($proto) || $proto);
    $self->init();
    r <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	567	687	
==>b new {
    my ($proto, %options) = @_;
    my $self = bless \%options, (ref($proto) || $proto);
    $self->init();
    r <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	6349	6450	
==>ngth $d;
    Carp::croak "\"$d\" isn't a valid directive name"
     unless $d =~ m/^[a-zA-Z][a-zA-Z0-9 <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	7143	7244	
==>ngth $d;
    Carp::croak "\"$d\" isn't a valid directive name"
     unless $d =~ m/^[a-zA-Z][a-zA-Z0-9 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716336	716435	
==>"BODY" => "#line 87 \"src/ops/python.ops\"\n  PMC * const p = {{\@1}};\n  PMC * const io = PIO_STDOU <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9306	9433	
==>& 0x10
#DBG>		and	do {
#DBG>			print STDERR "**Entering Error recovery.\n";
#DBG>			++$dbgerror;
#DBG>		};

            ++ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8888	9009	
==>& 0x10
#DBG>		and	do {
#DBG>			print STDERR "**Entering Error recovery.\n";
#DBG>			++$dbgerror;
#DBG>		};

            ++ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	42674	42774	
==>self->{instruction};
  my @max_len = __max_lengths($colref);

  $self->{code} = '';

  for my $row(@$ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2512	2623	
==>/opt/local/lib  -licuuc -licudata -lpthread -lm';
        $extraLibs =~ s/blib/..\\blib/g;
        $extraLibs =~ <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2821	2932	
==>/opt/local/lib  -licuuc -licudata -lpthread -lm';
        $extraLibs =~ s/blib/..\\blib/g;
        $extraLibs =~ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2616	2727	
==>/opt/local/lib  -licuuc -licudata -lpthread -lm';
        $extraLibs =~ s/blib/..\\blib/g;
        $extraLibs =~ <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	2440	2564	
==>ile") || die "Can't read $file: $!\n";
    {
        local $/=undef;
        my $contents = <F>;
    
	foreach (keys %$typede <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	367	487	
==>y $x = (defined($_[0]) and ref($_[0]))
    ? $_[0]
    : ( \( $_[0] ) )[0]
  ;
  $$x = '' unless defined $$x;
  
  #Pod:: <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	48	151	
==>RSION = '2.02';
use Pod::Simple ();
BEGIN {@ISA = ('Pod::Simple')}

use strict;
use Carp ();

use Pod::S <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	8349	8452	
==>_C;
/*
** Op Function Definitions:
*/

END_C

#
# Finish the SOURCE file's array initializer:
#
my $CORE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717936	718032	
==>\"\n  PMC * const io = {{\@1}};\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpret <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718868	718964	
==>\"\n  PMC * const io = {{\@1}};\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpret <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	12051	12143	
==>r $expected_type, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function curren <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8375	8476	
==>b$(15);"More"
print "Hello","Again",d
dim c$(1)
for i = 1 to 20 : read c$(i) : next
print
for i = 1 to <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21239	21340	
==>b$(15);"More"
print "Hello","Again",d
dim c$(1)
for i = 1 to 20 : read c$(i) : next
print
for i = 1 to <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	493	589	
==>d2 Op Type

Ops are either I<auto> or I<manual>. Manual ops are responsible for
having explicit n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	278901	279208	
==><= 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "islt <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1134	1224	
==>-I/opt/local/include -pipe -fno-common -Wno-long-double  -I /opt/local/include   -g -Wall - <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1138	1228	
==>-I/opt/local/include -pipe -fno-common -Wno-long-double  -I /opt/local/include   -g -Wall - <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	18414	18559	
==>, $groups{$_}->[0];
        } else {
            # Strip first code from all the groups.
            foreach (@{$groups{$_}}) {
                $_ <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	3871	3963	
==>b::core::ops) {
	if($cur_op->full_name eq 'enternative'){
	    $enternative = pack_op($cur_op <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	1982	2094	
==>~ s/\.da$/.c/;
    
    # gcov must be run from the directory that the compiler was invoked from.
    # Currently <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2758	2857	
==>gives '', same as 'STRING' x 0

  $self->{'Thispara'} =~ tr{\xAD}{}d if Pod::Simple::ASCII;
  my $ou <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2292	2391	
==>gives '', same as 'STRING' x 0

  $self->{'Thispara'} =~ tr{\xAD}{}d if Pod::Simple::ASCII;
  my $ou <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355105	355220	
==>o.ops\"\n  PMC * const p = {{\@1}};\n  STRING * const s = (VTABLE_get_string(interpreter, p));\n  if (s) {\n    PIO_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355872	355987	
==>o.ops\"\n  PMC * const p = {{\@1}};\n  STRING * const s = (VTABLE_get_string(interpreter, p));\n  if (s) {\n    PIO_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360805	360920	
==>o.ops\"\n  PMC * const p = {{\@1}};\n  STRING * const s = (VTABLE_get_string(interpreter, p));\n  if (s) {\n    PIO_ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30405	30507	
==>t))
							if defined $::RD_TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32605	32707	
==>t))
							if defined $::RD_TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28330	28431	
==>t))
					if defined $::RD_TRACE;').'

			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1130	1220	
==>e  -I /opt/local/include   -g -Wall -Wstrict-prototypes -Wmissing-prototypes -Winline -Wpoi <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1188	1278	
==>e  -I /opt/local/include   -g -Wall -Wstrict-prototypes -Wmissing-prototypes -Winline -Wpoi <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1192	1282	
==>e  -I /opt/local/include   -g -Wall -Wstrict-prototypes -Wmissing-prototypes -Winline -Wpoi <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3380	3488	
==>$group_files) {
        my @pmcfiles = map { "$_.pmc" } @$pmcs;
        if (needs_build("$group.c", @pmcfiles <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3484	3592	
==>$group_files) {
        my @pmcfiles = map { "$_.pmc" } @$pmcs;
        if (needs_build("$group.c", @pmcfiles <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767854	768213	
==>RS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 867,
                  "ARGS" => [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 335 \ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1088	1191	
==>y $pir = <<'PIR';
# Get current stack types array size.
${ITEMP0} = elements ${STYPES}
PIR

	# Do code f <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2798	2901	
==>y $pir = <<'PIR';
# Get current stack types array size.
${ITEMP0} = elements ${STYPES}
PIR

	# Do code f <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	13259	13359	
==>= $self->genlabel('after_scan');

    my ($R_back, @R_body) = $self->rewrite($R, $advance);

    my @ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363495	363582	
==>rot_sprintf_c(interpreter, \"%f\", (double){{\@2}});\n    PIO_putps(interpreter, {{\@1}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364398	364485	
==>rot_sprintf_c(interpreter, \"%f\", (double){{\@2}});\n    PIO_putps(interpreter, {{\@1}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869925	870127	
==>,
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 232 \"src/ops/string.ops\"\n  INTVAL len;\n  len = string_length <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3650	3770	
==>break"]
		\$I0= \$P1
		eq \$I0, 0, DEBUGGER_DONE  # No breakpoints
		\$S0= debline
		exists \$I0, \$P1[\$S0]
		eq \$I0, 0 <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	31873	31970	
==>mplete
original text, and the prefix returned in the third element is an
empty string.

In a scala <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7273	7404	
==>') {
        my $next = $self->get_token;
        next unless defined $next;
        unless( $next->type eq 'text' ) {
          $se <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9518	9649	
==>') {
        my $next = $self->get_token;
        next unless defined $next;
        unless( $next->type eq 'text' ) {
          $se <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	320	417	
==>ible symbols, code or data) of the Parrot lib.

First lists the Parrot public embedding API as des <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2432	2530	
==>ght->type;
  }

  $self->INTERNAL_ERROR("No type for dest!")  unless defined $dest_type;
  $self->I <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2354	2452	
==>ght->type;
  }

  $self->INTERNAL_ERROR("No type for dest!")  unless defined $dest_type;
  $self->I <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	12348	12446	
==>element value.  If the
element type is C<'*@'>, a reference to the array element is
returned.

As a <==
3	/Users/nnunley/parrot/config/inter/progs.pm	948	1062	
==>e work, then set to null command.
    # XXX need config support for a null command.
    my $null = 'echo';
    my $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2789	2880	
==>nteger');
  $self->SYNTAX_ERROR("Can only do bitwise ops on integers") unless UNIVERSAL::isa <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2919	3010	
==>nteger');
  $self->SYNTAX_ERROR("Can only do bitwise ops on integers") unless UNIVERSAL::isa <==
3	/Users/nnunley/parrot/languages/lua/luac.pl	850	951	
==>ts $parser->YYData->{nb_info} )
{
    my $nb = $parser->YYData->{nb_info};
    print "$nb info(s).\ <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8977	9077	
==>$Test::testing_started = 0;
}

END { Test::test_ends() }

=kwid

= NAME

Test - Test support module f <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6304	6404	
==>$reg);
    return qq!set $reg, <rx_match>["$group";0] # get group $group start!;
}

sub output_getend <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8776	8943	
==>(@$stack,
                     [ $$states[$$stack[-1][0]]{GOTOS}{$lhs}, $semval ]);
                $$check='';
                next;
            };

#DBG>			$deb <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8380	8541	
==>(@$stack,
                     [ $$states[$$stack[-1][0]]{GOTOS}{$lhs}, $semval ]);
                $$check='';
                next;
            };

#DBG>			$deb <==
3	/Users/nnunley/parrot/lib/Test/More.pm	925	1076	
==>l
{
      my $pkg = shift;
      my $level = shift;
      (undef) = shift;                  # redundant arg
      my $callpkg = caller($level);
      $p <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10296	10405	
==>ut', undef, $verbose);
    }

    my $output = _slurp('./test.out');

    return $output;
}

=item C<cc_run_ca <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	7737	7846	
==>ot_PMC_%s( %s )
{
", ($ret_type, $name, $signature) x 2;

        $funcs .= "    $ret_type retval;\n" unless $ <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	53	142	
==>: /parrot/lib/Parrot/Configure.pm 20321 2006-06-20T20:02:00.179448Z bernhard  $

=pod

=he <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	13921	14063	
==>/
          and ($max_content_length
           ? (length($para_text_content) <= $max_content_length)
           : 1)
        ) {
          # S <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	1763	1875	
==>"Can't write '$c_name";
    print $C $cout;
    close $C;
    my $hout = $generator->gen_h($h_name);
    print $h <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6741	6846	
==>e at least) because the browser thinks it should
	# download the file.
	
	if ( $self->has_suffix )
	{
		re <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7256	7368	
==>ing for \"$_\"\n(should be \"#$indent$2\" because it is inside of " . (join ' > ', @stack) . ")\n")
            } <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7563	7675	
==>ing for \"$_\"\n(should be \"#$indent$2\" because it is inside of " . (join ' > ', @stack) . ")\n")
            } <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7921	8033	
==>ing for \"$_\"\n(should be \"#$indent$2\" because it is inside of " . (join ' > ', @stack) . ")\n")
            } <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	62621	62753	
==>olog\n";
        foreach my $op ( @{$fct} ) {
            $op->visit($generator) unless ( exists $op->{prolog} );
        }
    } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353647	353739	
==>{\@1}};\n  if (s && string_length(interpreter, s)) {\n    PIO_putps(interpreter, PIO_STDOUT(i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354392	354484	
==>{\@1}};\n  if (s && string_length(interpreter, s)) {\n    PIO_putps(interpreter, PIO_STDOUT(i <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	9671	9796	
==>an        complex.h
ctanf       complex.h
ctanh       complex.h
ctanhf      complex.h
ctanhl      complex.h
ctanl       comple <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	1974	2090	
==>he image and CSS file directory.

=cut

sub footer
{
    my $self = shift;
    my $navigation = shift || '';
    my $ <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	11069	11171	
==>hat match the glob F<test.*>.

=cut

sub cc_clean
{
    unlink map "test$_", qw( .c .cco .ldo .out), $c <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4337	4453	
==>${STEMP0} = concat ${STEMP1}
${DEST$push_num} = ${STEMP0}

# Increment dtypes index.
inc ${ITEMP0}
PIR
		$pir =~ s/\$ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2753	2869	
==>${STEMP0} = concat ${STEMP1}
${DEST$push_num} = ${STEMP0}

# Increment dtypes index.
inc ${ITEMP0}
PIR
		$pir =~ s/\$ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2067	2183	
==>${STEMP0} = concat ${STEMP1}
${DEST$push_num} = ${STEMP0}

# Increment dtypes index.
inc ${ITEMP0}
PIR
		$pir =~ s/\$ <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	937	1061	
==>ile::Find::name)
                        }}, $SRCDIR);

    # build parrot with coverage support
    system("perl Configure.p <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2144	2237	
==>i]->value);
      $self->SYNTAX_ERROR("Undefined identifier '%s'.", $args[$i]->value) unless $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1844	1937	
==>i]->value);
      $self->SYNTAX_ERROR("Undefined identifier '%s'.", $args[$i]->value) unless $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549405	549559	
==>ROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550705	550859	
==>ROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552006	552160	
==>ROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "callmethodcc",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" = <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	7624	7756	
==>d $err and $out eq $err ) {
        $err = "&STDOUT";
    }

    local *OLDOUT if $out;
    local *OLDERR if $err;

    # Save the ol <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49651	49783	
==>n perl quotelike marker", $aftererror,$line);
				$item = new Parse::RecDescent::Directive(
					'my ($match,@res);
					 ($match,$te <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7676	7807	
==>d $err and $out eq $err) {
        $err = "&STDOUT";
    }

    local *OLDOUT if $out;
    local *OLDERR if $err;

    # Save the ol <==
3	/Users/nnunley/parrot/config/init/hints/solaris.pm	1551	1655	
==>f->data->set(link => $link);
        $conf->data->deltrigger("cc", "solaris_link");
    };
    $conf->dat <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	2283	2387	
==>o arguments and returns a list in list context or an arrayref in
scalar context.

=cut

sub steps
{
    m <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	24112	24204	
==>lf->{"lookahead"}<0?'if':'unless') . ' defined $_tok;
'
}

1;

package Parse::RecDescent::Err <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	42341	42487	
==>an attribute value to tweak.\n";
          }
        }
        
        unshift @stack, $treelet->[$i]; # recurse
        next;
      } elsif($tree <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	31892	32013	
==>= @_;

    my $group;

    my @ops;
    foreach $group (0 .. $num_groups) {
        push @ops, aop('initgroup' => [ $group <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	899	1020	
==>ME  => $ident->value,
    PROPS => $props,
    ARGS  => undef,

    DEBUG => 1,
    FILE  => $ident->file,
    LINE  => $i <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	921	1016	
==>or example, parsing a "=head1 ..." line will give you
a start-token with the tagname of "head1", <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1349	1444	
==>or example, parsing a "=head1 ..." line will give you
a start-token with the tagname of "head1", <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12356	12447	
==>Perl module's HTML file relative to the current
documentation page. Currently only F<lib/Par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712456	712545	
==>);\n  s = Parrot_sprintf_c(interpreter, \"%.12g\", (double){{\@1}});\n  PIO_putps(interpre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713563	713652	
==>);\n  s = Parrot_sprintf_c(interpreter, \"%.12g\", (double){{\@1}});\n  PIO_putps(interpre <==
3	/Users/nnunley/parrot/Configure.pl	6123	6229	
==>er
   --linkflags=(flags)  Use the given linker flags
   --ld=(linker)        Use the given loader for shar <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824486	824574	
==>STACK_ENTRY_STRING) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825557	825645	
==>STACK_ENTRY_STRING) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33916	34024	
==>ow pop type off the stack types array.
		$pir .= "    type_trans = pop stypes\n";
	}

	# Branches (branch cla <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	24395	24539	
==>k $build_f;
                $builder->ok(0,$desc);
                return 0;
            }

        my $cfg = "src$PConfig{slash}parrot_config$PC <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	32455	32587	
==>rimary' => 28
		}
	},
	{#State 113
		ACTIONS => {
			'ELSE' => 159,
			'ELSEIF' => 161,
			'END' => 160
		}
	},
	{#State 11 <==
3	/Users/nnunley/parrot/config/auto/jit.pm	1821	1937	
==>?/arm/i;
    $cpuarch =~ s/i[456]86/i386/i;

    $conf->data->set(
        archname => $archname,
        cpuarch  => <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	253	350	
==>ctually C<bison>.

=cut

package inter::yacc;

use strict;

use vars qw( $description @args $promp <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20914	21004	
==>lf, $namespace, $rule) = @_;
	
''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33719	33809	
==>lf, $namespace, $rule) = @_;
	
''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350976	351082	
==>o.ops\"\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  {{+=2}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351638	351744	
==>o.ops\"\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  {{+=2}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/config/auto/perldoc.pm	66	155	
==>fig/auto/perldoc.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/pe <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764693	764867	
==>",
                              "nc"
                            ],
                  "BODY" => "#line 320 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTER <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765547	765721	
==>",
                              "nc"
                            ],
                  "BODY" => "#line 320 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTER <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	12407	12518	
==>rx_pos = \$$uid\->{'!POS'};
END
#     } else {
#         return split(/\n/, <<"END");
# \$$uid = _rule_$name($mo <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	958	1053	
==>e Parrot interpreter.

=head1 COMMAND-LINE OPTIONS

=over 4

=item C<--debug>

Increase debug le <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10195	10295	
==>", './test.out', undef, $verbose);
    } else {
        _run_command(".${slash}test${exe}", './test.o <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	302	398	
==>the PIR for Tcl commands
my @dynamic_cmds = pir_cmds_in_dir($dynamic_dir);

print <<"END_PIR";

. <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	16009	16104	
==>class_structure, $vtable);

Add methods to the class structure for each method found in the
vtab <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	12396	12548	
==>{{=*}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3228	3331	
==>ch (@pmcs);

    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3332	3435	
==>ch (@pmcs);

    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	712	816	
==>) = @_;
  $self = $self->new unless ref $self;

  $source = *STDIN{IO} unless defined $source;
  $self->s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6773	6998	
==>(interpreter, {{\@1}});\n    {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46270	46493	
==>(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102436	102634	
==>" => [
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 130 \"src/ops/bit.ops\"\n  string_bitwise_not(interprete <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019691	1019835	
==>"
                            ],
                  "BODY" => "#line 192 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020622	1020766	
==>"
                            ],
                  "BODY" => "#line 192 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019237	1019447	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "localtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020167	1020377	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "localtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15430	15530	
==>urns Bool;
  multi sub is_deeply (Pair  $got, Pair  $expected, Str $desc?) returns Bool;

Because the <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10038	10149	
==>.param pmc ptypes
    .param pmc ltypes
    .param pmc rettype
    .param int trace
    .local pmc bc, ex, stype <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	369	463	
==>culates a value for M ops/s (million operations per second) using
integer arithmetic.

Prints o <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	365	459	
==>culates a value for M ops/s (million operations per second) using
integer arithmetic.

Prints o <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	7399	7502	
==>he default vtable (from which all PMCs inherit).

=cut

sub dump_default {
    my $file    = "$FindBin:: <==
3	/Users/nnunley/parrot/lib/Test/More.pm	13721	13820	
==>die <<WHOA;
WHOA! I tried to call ->isa on your object and got some weird error.
This should never h <==
3	/Users/nnunley/parrot/lib/Test/More.pm	15543	15639	
==>etc/bar is set up right.

You might remember C<ok() or diag()> with the mnemonic C<open() or
die( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1072971	1073372	
==>=> 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075156	1075557	
==>=> 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077341	1077742	
==>=> 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	816	907	
==>library directory. Defaults to '/usr/lib'.

=item C<includedir>

The header directory. Defau <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	1045	1136	
==>library directory. Defaults to '/usr/lib'.

=item C<includedir>

The header directory. Defau <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	329894	330112	
==>"inline",
                  "CODE" => 387,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 169 \"src/ops/dotgnu.ops\"\n  {{\@1}} =  (FLOA <==
3	/Users/nnunley/parrot/config/init/defaults.pm	3725	3857	
==>in32)
        cc_exe_out => '-o ',

        # prefix for ldflags (necessary for Win32)
        cc_ldflags => '',

        # ld output <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	23926	24021	
==>_output($fh);
    $Test->todo_output($file);

Where diagnostics about todo test failures and dia <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	854	980	
==>ame output file
        open LANG, "> $lang_f" or die "Unable to open '$lang_f'"; # JMG
        binmode LANG; # JMG
        pri <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	766	892	
==>ame output file
        open LANG, "> $lang_f" or die "Unable to open '$lang_f'"; # JMG
        binmode LANG; # JMG
        pri <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	353	449	
==>e Parrot lib.

First lists the Parrot public embedding API as described in the public
headers F<i <==
3	/Users/nnunley/parrot/config/auto/inline.pm	135	230	
==>NAME

config/auto/inline.pm - Inline Compiler Support

=head1 DESCRIPTION

Determines whether th <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1561	1651	
==>self->INTERNAL_ERROR("Type is not a Jako::Construct::Type instance!")
    unless UNIVERSAL: <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1409	1499	
==>self->INTERNAL_ERROR("Type is not a Jako::Construct::Type instance!")
    unless UNIVERSAL: <==
3	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	2386	2610	
==>defn = $self->{table}{$symb};
            return $defn;
        }
        return undef;
    }

}

################################################################################

package SymbTabConst;
use base qw( <==
3	/Users/nnunley/parrot/config/init/hints/cygwin.pm	201	312	
==>$conf) = @_;

    # cygwin's perl is compiled with -lutil, which for some reason is not
    # in the standard in <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32437	32545	
==>= 1;
			$mv->{'STOREREG'} = 'storereg';
			push @localmv, 'STOREREG';
		} else {
			die "pir or instruction m <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	6913	7038	
==>tion of any jump (these
    # are the ones that were marked reachable because the previous
    # basic block fell through to t <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6241	6356	
==>roup_libs, \%pmc_group, \%pmc_libs);
}

sub modtime {
    my $ago = (-M shift);

    if (defined $ago) {
        ret <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6452	6567	
==>roup_libs, \%pmc_group, \%pmc_libs);
}

sub modtime {
    my $ago = (-M shift);

    if (defined $ago) {
        ret <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78352	78668	
==>0,
                  "NAME" => "dlvar",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79872	80188	
==>0,
                  "NAME" => "dlvar",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
3	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	1063	1179	
==>, .PerlArray    # Line numbers
	time I24  	       # Seed the random number generator

	save 0  # Initialize the runti <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645889	645999	
==>\t\t{{\@1}} = Parrot_get_datatype_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646786	646896	
==>\t\t{{\@1}} = Parrot_get_datatype_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5857	5975	
==>actions{ACTIONS})) {

				defined($$token)
            or	do {
				($$token,$$value)=&$lex($self);
#DBG>				$debug <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5578	5691	
==>actions{ACTIONS})) {

				defined($$token)
            or	do {
				($$token,$$value)=&$lex($self);
#DBG>				$debug <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561957	562109	
==>, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", {{\@3}});\n  }\n  {{=next}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563041	563193	
==>, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", {{\@3}});\n  }\n  {{=next}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	62328	62455	
==>each my $op ( @{$fct} ) {
            if ( ref($op) =~ /(Dir|Op)$/ ) {
                $op->visit($generator) if ( exists $op- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653465	653567	
==>ed(interpreter, {{\@1}}))\n        real_exception(interpreter, resume, METH_NOT_FOUND,\n            \"M <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654626	654728	
==>ed(interpreter, {{\@1}}))\n        real_exception(interpreter, resume, METH_NOT_FOUND,\n            \"M <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2123	2219	
==>iod, or colon, the corresponding method name will have a underscore
in its place.  For example, " <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	852	941	
==>ew_group('PMCs', '',
			$self->new_item('', 'lib/Parrot/Pmc2c.pm'),
			$self->new_item('', <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	8789	8891	
==>>&OLDOUT" or die "Can't restore  stdout" if $out;
    open  STDERR, ">&OLDERR" or die "Can't restore  s <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8308	8409	
==>>&OLDOUT" or die "Can't restore  stdout" if $out;
    open STDERR, ">&OLDERR" or die "Can't restore  s <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2635	2734	
==>TORECOMMON/) {
			@saves=();
			$edit="";
			foreach my $var (keys %{$code{$seg}->{declarations}}) { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924458	924730	
==>_one, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925249	925521	
==>_one, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
3	/Users/nnunley/parrot/languages/urm/urm-old.pl	1500	1611	
==>ister{$2} $3 1;");
	if ($register{$1} < 0) { $register{$1} = 0 }
	$pos++;
    }
    elsif ($line =~ / *goto *(\d <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16175	16305	
==>'NAME' => 91,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30 <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	909	1015	
==>$_[0];
  return undef unless defined $in and length $in;
  
  # Convert to decimal:
  if($in =~ m/^(0[0-7]* <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2268	2374	
==>$_[0];
  return undef unless defined $in and length $in;
  
  # Convert to decimal:
  if($in =~ m/^(0[0-7]* <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586144	586422	
==>LAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 667 <==
3	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	647	776	
==>bs .= ' -lpthread';
    }
    if ($libs !~ /-laio/) {
        $libs .= ' -laio';
    }
    $conf->data->set(libs => $libs);

    f <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2363	2460	
==>{ cur_opcode += $offset; goto SWITCH_AGAIN; }";
}

=item C<goto_pop()>

Transforms the C<goto POP( <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22456	22559	
==>_1 = $self->_constant(2);
  $self->_add_inst(''           ,'mod'   ,[$temp_0,$temp_0,$temp_1]);
  $self- <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22957	23060	
==>_1 = $self->_constant(2);
  $self->_add_inst(''           ,'mod'   ,[$temp_0,$temp_0,$temp_1]);
  $self- <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	1728	1816	
==>p>

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGoto <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16099	16214	
==>er in-place!
    for(@_) {
      s/([F\x00-\x1F\\\{\}\x7F-\xFF])/$Escape{$1}/g;  # ESCAPER
      s/([^\x00-\xFF])/'\ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	5225	5331	
==>} = $pack;
    }
    return $self->{Exported_To};
}

=item B<plan>

  $Test->plan('no_plan');
  $Test->plan <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253775	254072	
==>726 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@2}} : {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254638	254935	
==>726 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@2}} : {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255501	255798	
==>726 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@2}} : {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642292	642464	
==>@2}}->vtable->type_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643180	643352	
==>@2}}->vtable->type_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	2324	2439	
==>$dir1 =~ s/^\[//;
    $dir2 =~ s/^\[//;
    $dir1 =~ s/\[$//;
    $dir2 =~ s/\[$//;
    my @dir1 = split(/,/, $dir1) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861288	861557	
==>E" => "inline",
                  "CODE" => 977,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 118 \"src/ops/strin <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	18960	19074	
==>y depth, which is used for the recursive
definition of this function.

=cut

sub print_tree {
    my ($include,$dep <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6637	6747	
==>rate_dump {
    my ($pmc) = @_;

    if (needs_build("$pmc.dump", "$pmc.pmc")) {
        run("$PMC2C --dump $pm <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6848	6958	
==>rate_dump {
    my ($pmc) = @_;

    if (needs_build("$pmc.dump", "$pmc.pmc")) {
        run("$PMC2C --dump $pm <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840231	840472	
==>ack, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840926	841167	
==>ack, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	34102	34195	
==>in which
two or more delimiter brackets are specified is not significant.

A "balanced-bracket <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	928	1021	
==>o get the "foo" out of the text-token, call C<< $token->text >>

=item $token->text(I<somestri <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809659	809746	
==>line 507 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_string_keyed(interprete <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810564	810651	
==>line 507 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_string_keyed(interprete <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	10137	10270	
==>R]);
			feedme();
			$expr=1;
			next;
		}
		if ($syms[CURR] eq ";") {
			$eol=1;
			feedme();
			$expr=0;
			next;
		}
		if ($syms[CU <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6088	6217	
==>$actions{ACTIONS}{$$token})
                    ?   $$actions{ACTIONS}{$$token}
                    :   exists($$actions{DEFAULT <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5800	5927	
==>$actions{ACTIONS}{$$token})
                    ?   $$actions{ACTIONS}{$$token}
                    :   exists($$actions{DEFAULT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113181	113504	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115512	115835	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116367	116690	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088175	1088430	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089122	1089377	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	1914	2023	
==>-1;
}


#
# at()
#
# Without an argument, gives the current token. With an argument, gives the
# token at that <==
3	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	1253	1386	
==>tput was built from different version of $input; remaking\n"
          if $Verbose;
        $up_to_date = 0;
        last;
    }
    p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710752	710842	
==>(interpreter, io, \" \");\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  PIO_s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711586	711676	
==>(interpreter, io, \" \");\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  PIO_s <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	8815	8917	
==>er();

    close(OUT);
}



sub write_function_coverage_summary {

    print "Writing $HTMLDIR/function <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3147	3239	
==>eturn $self->do_middle if $self->bare_output;
  return
   $self->do_beginning && $self->do_mi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4516	4608	
==>eturn $self->do_middle if $self->bare_output;
  return
   $self->do_beginning && $self->do_mi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90847	91158	
==>} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91701	92012	
==>} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92555	92866	
==>} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	73775	73883	
==>gs);

	if (defined $retval)
	{
		foreach ( @{$_[0]->{deferred}} ) { &$_; }
	}
	else
	{
		foreach ( @{$_[0]->{ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2439	2534	
==>ngle instruction. While we kinda find
	# basic blocks, we don't discover backward branches until <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1017	1112	
==>ngle instruction. While we kinda find
	# basic blocks, we don't discover backward branches until <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	487	607	
==>less @_ == 5;

  my ($block, $prefix, $left, $op, $right) = @_;

  my $self = bless {
    BLOCK     => $block,

    PREFI <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	487	607	
==>less @_ == 5;

  my ($block, $prefix, $left, $op, $right) = @_;

  my $self = bless {
    BLOCK     => $block,

    PREFI <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6400	6507	
==>tem);
    $self->_restore($item);
    $item = $temp;
  }
  my $pair = $self->_new_pair;
  $self->_add_inst(' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627825	628199	
==>,
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 704,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447887	448178	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAG <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	448713	449004	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAG <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3201	3327	
==>_[0];
    ${$$self{TOKEN}};
}

sub YYCurval {
	my($self)=shift;

        @_
    and ${$$self{VALUE}}=$_[0];
    ${$$se <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3044	3161	
==>_[0];
    ${$$self{TOKEN}};
}

sub YYCurval {
	my($self)=shift;

        @_
    and ${$$self{VALUE}}=$_[0];
    ${$$se <==
3	/Users/nnunley/parrot/languages/scheme/Scheme.pm	35	130	
==>eme.pm 13993 2005-11-29T22:06:21.880912Z bernhard  $

package Scheme;

use strict;

use Data::Du <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	39038	39155	
==>$ell_content[-1] =~ m/\"$/s
         and !( # catch weird degenerate case of L<"> !
           @ell_content == 1 and $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978374	978684	
==>1098,
                  "ARGS" => [
                              "i",
                              "ic",
                              "s",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\ <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	4471	4625	
==>'__script',
        var     => '__read',
    );
    
    my $code = "";
    for my $i (0..$#args)
    {
        my $arg  = $args[$i];
        my $name = $a <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	45355	45451	
==>ailure). In a scalar or
void context, the input text has the same substring (and any specified
pr <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	5937	6027	
==>alls the current method.

=item C<OtherClass.SUPER(a,b,c)>

Calls the overridden implementa <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	3693	3875	
==>nt INC ".constant $_\n";
                }
            } elsif ($in_def eq 'template') {
                if (/match{(.*)}/) {
                    $match = $1;
                    next <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	3463	3601	
==>,
 'shy'      , 173,
 'reg'      , 174,
 'macr'     , 175,
 'deg'      , 176,
 'plusmn'   , 177,
 'sup2'     , 178,
 'sup3'     , 179,
 'ac <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	904	1011	
==>ft;
  foreach my $x (@_) { $$$it .= $x }

  #Pod::Simple::DEBUG > 10 and print " appended to $$it = \"$$$it\ <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2846	2976	
==>ename $1 to $dirname/$1.");
            $path =~ s/\Q$SRCDIR\E//g;
            $generated_files{$path} = $tmp;
            $tmp = ' <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	8808	8905	
==>params;
}

=back

=head1 SEE ALSO

=over 4

=item F<tools/build/jit2c.pl>

=item F<tools/build/pmc <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	177	258	
==>t/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm 19606 2006-05-30T15:08: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447869	448142	
==>TVAL){{\@2}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	448695	448968	
==>TVAL){{\@2}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1475	1590	
==>SK;",
  );
  #unless ( (1 << 16) << 16) { %f = %{$CODES{'32bit'}} }
  #else { %f = %{$CODES{'64bit'}} }

  my %s = ( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760699	760989	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setp_ind",
                  "FLAGS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761551	761841	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setp_ind",
                  "FLAGS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	619312	619409	
==>t) :\n\t    VTABLE_get_integer(interpreter, right);\n\tINTVAL c = a - b;\n\tif ((c^a) >= 0 || (c^~ <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Posix.pm	296	435	
==>.out', $count );
}

sub get_test_prog {
    my $self = shift;
    my ( $count, $options ) = @_;

    my $lang_fn        = Parrot::Test::per_ <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	426	558	
==>.out', $count );
}

sub get_test_prog {
    my $self = shift;
    my ( $count, $options ) = @_;

    my $lang_fn = Parrot::Test::per_ <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr3.pm	318	450	
==>.out', $count );
}

sub get_test_prog {
    my $self = shift;
    my ( $count, $options ) = @_;

    my $lang_fn = Parrot::Test::per_ <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	6423	6552	
==>es' => 'define',
             'i_sysuio' => 'define',
             'i_sysun' => 'define',
             'i_sysutsname' => 'define', <==
3	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	4988	5089	
==>[];
    -d and push @dirs, $File::Find::name;
    -f and -e ".svn/text-base/$_.svn-base" and MANIFEST( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243929	244019	
==>/ops/cmp.ops\"\n  STRING* l = VTABLE_get_string(interpreter, {{\@2}});\n  {{\@1}} = string_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244861	244951	
==>/ops/cmp.ops\"\n  STRING* l = VTABLE_get_string(interpreter, {{\@2}});\n  {{\@1}} = string_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811915	812305	
==>_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 916,
                  "ARGS" => [
                              "p",
                              "p",
                              "k <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069039	1069306	
==>",
                  "CODE" => 1193,
                  "ARGS" => [
                              "i",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 49 \"src/ops/experimental.ops\ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	140	226	
==>arrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expression/Infix. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	35359	35526	
==>i",
                              "p"
                            ],
                  "BODY" => "#line 637 \"src/ops/core.ops\"\n  {{\@1}} = (INTVAL){{\@2}}->vtable->g <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	23112	23222	
==>verbose},
        "library=s"     => \$opt{library},
    ) or exit(1);
    unshift @include, ".", "$FindBin::Bi <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	8195	8298	
==>/\G$ldel/gc)
	{
		_failmsg "Did not find opening tag: /$ldel/", pos $$textref;
		goto failed;
	}

	$text <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23373	23466	
==>f->_generate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp = $self->_g <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23835	23928	
==>f->_generate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp = $self->_g <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1542	1659	
==>lf->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  my $dest_sym = $block->fi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1500	1617	
==>lf->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  my $dest_sym = $block->fi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1422	1539	
==>lf->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  my $dest_sym = $block->fi <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	47875	47979	
==>mper; print Dumper($parser), "\n";
  return $out;
}


sub _duo {
  # For use in testing: Class->_duo($sou <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8522	8623	
==>go to state $$states[$$stack[-1][0]]{GOTOS}{$lhs}.\n";

#DBG>				$debug & 0x10
#DBG>			and	$dbgerro <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8136	8234	
==>go to state $$states[$$stack[-1][0]]{GOTOS}{$lhs}.\n";

#DBG>				$debug & 0x10
#DBG>			and	$dbgerro <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8791	8909	
==>output_peekindex {
    my $self = shift;
    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8451	8569	
==>output_peekindex {
    my $self = shift;
    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	13674	13778	
==>[0];

    extern int jit_op_count(void);
    int jit_op_count() { return $core_numops; }
EOC
}

print("ji <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	282253	282521	
==>"#line 908 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283098	283366	
==>"#line 908 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283943	284211	
==>"#line 908 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682054	682277	
==>CODE" => 765,
                  "ARGS" => [
                              "n",
                              "p"
                            ],
                  "BODY" => "#line 512 \"src/ops/pmc.ops\"\n    {{\@1}} = {{\@2} <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22441	22545	
==>(1);
  my $temp_1 = $self->_constant(2);
  $self->_add_inst(''           ,'mod'   ,[$temp_0,$temp_0,$temp <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22942	23046	
==>(1);
  my $temp_1 = $self->_constant(2);
  $self->_add_inst(''           ,'mod'   ,[$temp_0,$temp_0,$temp <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	5677	5793	
==>b run_tests {
    my (@files) = @_ ? @_ : glob File::Spec->catfile( $DIR, '*.t' ) ;

    if (@files) {
        return <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365278	365380	
==>}}) {\n    PIO_putps(interpreter, {{\@1}}, {{\@2}});\n  }\n  else {\n    /* Handle error here */\n  }\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366118	366220	
==>}}) {\n    PIO_putps(interpreter, {{\@1}}, {{\@2}});\n  }\n  else {\n    /* Handle error here */\n  }\n <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34229	34338	
==>re_branch, $mv, "pre_branch for rule $rule->{'name'}");
		$pir .= "### end pre_branch\n";

        # Add pre-t <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28194	28284	
==>text;
			}'.($::RD_NO_TRACE?'':'
			Parse::RecDescent::_trace(q{<<Didn\'t match terminal>>} <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32469	32559	
==>text;
			}'.($::RD_NO_TRACE?'':'
			Parse::RecDescent::_trace(q{<<Didn\'t match terminal>>} <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3835	4033	
==>ug             => '-Zi',
            libs                 => "$libs libircmt.lib",
            ld                   => 'xilink',
            ld_debug             => '-debug',
            ld_share_fla <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6643	6752	
==>ump {
    my ($pmc) = @_;

    if (needs_build("$pmc.dump", "$pmc.pmc")) {
        run("$PMC2C --dump $pmc.pmc <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6854	6963	
==>ump {
    my ($pmc) = @_;

    if (needs_build("$pmc.dump", "$pmc.pmc")) {
        run("$PMC2C --dump $pmc.pmc <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12122	12235	
==>RR];
			while(1) {
				feedme();
				if ($syms[CURR] eq ",") {
					push @ld, { type => "STRING", value=> qq{"$s"} <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	110	222	
==>f = bless \%options, (ref($proto) || $proto);
    $self->init();
    return $self;
}

sub init {
    my $self = s <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	277	389	
==>f = bless \%options, (ref($proto) || $proto);
    $self->init();
    return $self;
}

sub init {
    my $self = s <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5606	5710	
==>"
${INS} = concat ${LOADREG}
${INS} = concat "\n"
PIR
	}

	return $pir;
}

# Pre and post store operation <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4448	4552	
==>"
${INS} = concat ${LOADREG}
${INS} = concat "\n"
PIR
	}

	return $pir;
}

# Pre and post store operation <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528617	528733	
==>c/ops/math.ops\"\n  {{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529499	529615	
==>c/ops/math.ops\"\n  {{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	530381	530497	
==>c/ops/math.ops\"\n  {{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	15129	15251	
==>te .= << 'END_PIR';
    # Verify Shapes conform.
    $I1 = op1
    $I2 = op2
    if $I1 == $I2 goto good
    %% DOMAIN_ERRO <==
3	/Users/nnunley/parrot/config/auto/cgoto.pm	1428	1511	
==>LES) $(BUILD_TOOLS_DIR)/ops2c.pl lib/Parrot/OpsFile.pm lib/Parrot/Op.pm lib/Parrot/O <==
3	/Users/nnunley/parrot/config/auto/cgoto.pm	1701	1784	
==>LES) $(BUILD_TOOLS_DIR)/ops2c.pl lib/Parrot/OpsFile.pm lib/Parrot/Op.pm lib/Parrot/O <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1801	2067	
==>ime:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 = $N1 / $N2;              # div    N1, N1, N2
$N2 = 1000000.0;              # set    N2, 10 <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	1801	2067	
==>ime:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 = $N1 / $N2;              # div    N1, N1, N2
$N2 = 1000000.0;              # set    N2, 10 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3341	3442	
==>}

sub YYExpect {
    my($self)=shift;

    keys %{$self->{STATES}[$self->{STACK}[-1][0]]{ACTIONS <==
3	/Users/nnunley/parrot/lib/Test/More.pm	6201	6298	
==>etermine if the test succeeded or
failed.  A true expression passes, a false one fails.  Very simp <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3174	3270	
==>}

sub YYExpect {
    my($self)=shift;

    keys %{$self->{STATES}[$self->{STACK}[-1][0]]{ACTIONS <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7646	7750	
==>ms[CURR]\n";
	#	EXPRESSION;		# Evaluate the expression all queued up.
	#	ASSIGNMENT($var);
	#	goto PARSE_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2411	2510	
==>ll emit a label for every single instruction. While we kinda find
	# basic blocks, we don't discover <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	989	1088	
==>ll emit a label for every single instruction. While we kinda find
	# basic blocks, we don't discover <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36880	36975	
==>Methods

=over 4

=cut

package Parrot::Pmc2c::delegate;
use base 'Parrot::Pmc2c';

=item C<impl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	268890	269312	
==>RS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 313,
                  "ARGS" => [
                              "i",
                              "p",
                              "p"
                            ],
                  "BODY" => "#l <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009566	1009855	
==>"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1126,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 659 \"src/ops/s <==
3	/Users/nnunley/parrot/config/auto/pack.pm	42	133	
==>tion.
# $Id: /parrot/config/auto/pack.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 N <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847707	847916	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848486	848695	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	41163	41269	
==>@$ell = (@$ell[0,1], defined($link_text) ? splice(@$link_text) : '');
      
      DEBUG > 2 and print "End <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10682	10781	
==>se
#DO NOT remove comment

1;

}
#End of include---------------------------------------------- <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10203	10296	
==>se
#DO NOT remove comment

1;

}
#End of include---------------------------------------------- <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2444	2539	
==>instruction. While we kinda find
	# basic blocks, we don't discover backward branches until late <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1022	1117	
==>instruction. While we kinda find
	# basic blocks, we don't discover backward branches until late <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	41311	41403	
==>s,
it generates a function identical in function to C<extract_tagged>.

The difference betwee <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	511	628	
==>t::OpTrans::C );

=item C<core_type()>

The core type is C<PARROT_PREDEREF_CORE>.

=cut

sub core_type
{
    return 'P <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11577	11677	
==>forth);

      $self->require_semicolon;

      my $arith = Jako::Construct::Statement::Arithmetic->n <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16522	16622	
==>forth);

      $self->require_semicolon;

      my $arith = Jako::Construct::Statement::Arithmetic->n <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	7052	7188	
==>ge'       , 8805,
 'sub'      , 8834,
 'sup'      , 8835,
 'nsub'     , 8836,
 'sube'     , 8838,
 'supe'     , 8839,
 'oplus'    , 8853, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573045	573154	
==>}});\n  {{\@1}} = pmc_new_init(interpreter, enum_class_ParrotClass, name);\n  {{+=3}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573955	574064	
==>}});\n  {{\@1}} = pmc_new_init(interpreter, enum_class_ParrotClass, name);\n  {{+=3}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1079	1197	
==>DOUT => $out_f, STDERR => $out_f );
    unless ($pass) {
        my $file = Parrot::Test::slurp_file($out_f);
        $ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1120	1238	
==>DOUT => $out_f, STDERR => $out_f );
    unless ($pass) {
        my $file = Parrot::Test::slurp_file($out_f);
        $ <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2136	2243	
==>DOUT => $out_f, STDERR => $out_f);
  
    unless ($pass) {
      my $file = Parrot::Test::slurp_file($out_f) <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22597	22711	
==>-1][1]{'target'}) {
        $self->whine(
          $para->[1]{'start_line'},
          "=end $content doesn't matc <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	3301	3397	
==>ymbols (not Uu)
--file|-f	file(name) symbols (Ff)
If more than one of all the above options are g <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	12396	12486	
==>atend::needparen { 0 }
sub Regex::Ops::Tree::atend::render { '$' }

sub Regex::Ops::Tree::c <==
3	/Users/nnunley/parrot/languages/regex/test.pl	1974	2125	
==>$opts = $1;
        $tree_opt = ($opts =~ /t/i);
        $list_opt = ($opts =~ /l/i);
    } elsif (/^(-d|--debug)$/) {
        $DEBUG = 1;
    } elsif ( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3929	4029	
==>eded, $failLabel, $lenvar) = @_;
    $lenvar ||= "<rx_len>";
    my $fail = $self->output_label_use($ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3643	3743	
==>eded, $failLabel, $lenvar) = @_;
    $lenvar ||= "<rx_len>";
    my $fail = $self->output_label_use($ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1441	1553	
==>y $prog_output = Parrot::Test::slurp_file( "$out_f" );

        @_ = ( $prog_output, $output, $desc );
        #g <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1357	1469	
==>y $prog_output = Parrot::Test::slurp_file( "$out_f" );

        @_ = ( $prog_output, $output, $desc );
        #g <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5291	5384	
==>rceline\n";
		}
		push(@{$elsestack->{$elsetag}}, $elseline);
		push @{$code{$seg}->{code}}, < <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3253	3365	
==>method that converts a file suffix to a description of
the type of files which have this suffix.

=cut

sub type_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4925	5025	
==>= new $pmc_type");
    $compiler->emit("  $pmc_reg = $dest");
    $compiler->emit("  global \"$dest_n <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2988	3088	
==>= new $pmc_type");
    $compiler->emit("  $pmc_reg = $dest");
    $compiler->emit("  global \"$dest_n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85427	85518	
==>"BODY" => "#line 1208 \"src/ops/core.ops\"\n  PMC * const compreg_hash = VTABLE_get_pmc_keye <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86334	86425	
==>"BODY" => "#line 1208 \"src/ops/core.ops\"\n  PMC * const compreg_hash = VTABLE_get_pmc_keye <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106178	1106278	
==>ne 352 \"src/ops/experimental.ops\"\n    int typ = {{\@2}};\n    if (typ < 1 || typ >= interpreter->n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107154	1107254	
==>ne 352 \"src/ops/experimental.ops\"\n    int typ = {{\@2}};\n    if (typ < 1 || typ >= interpreter->n <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8120	8246	
==>prop = $self->require_ident->text;
      
        my $value;

        if ($self->skip_assign) {
          $value = Jako::Constr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5126	5246	
==>prop = $self->require_ident->text;

        my $value;

        if ($self->skip_assign) {
          $value = Jako::Constr <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	1768	1868	
==>($k, $v) =  each (%type_map)) {
    $rev_type_map{$v} = $k;
};

get_dis($DIS, $file);
get_source($fil <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375711	375847	
==>c"
                            ],
                  "BODY" => "#line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376595	376731	
==>c"
                            ],
                  "BODY" => "#line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpre <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4377	4519	
==>_token = $self->get(-1);

    last if $token->is_eof;

    #
    # Labels:
    #
    #   <label>:
    #

    if ($token->is_label) {
      my $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358930	359161	
==>" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 42 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359677	359908	
==>" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 42 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360425	360656	
==>" => "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 42 <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17192	17360	
==>new LocalDir( $parser,
                    'result' => $result,
                );
                push @opcodes, new KeyedGetOp( $parser,
                    'resul <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18229	18349	
==>new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new KeyedGetOp( $parser,
        'resul <==
3	/Users/nnunley/parrot/languages/converter.pl	2112	2211	
==>od		: '*' | '+' | '?'

_EOF_

my $parser = Parse::RecDescent->new($grammargrammar);

my $file = $ARG <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	3359	3471	
==>arser->{lastlinenum} - $_[1];
	return undef;
}

sub resync       # ($linecounter)
{
        my $self = tied($_[0] <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6435	6535	
==>change=FALSE
   ' Compare the array elements by pairs. When two are exchanged,
   ' force another pas <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16088	16188	
==>change=FALSE
   ' Compare the array elements by pairs. When two are exchanged,
   ' force another pas <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1369	1479	
==>inate {
    return "";
}

sub output_advance {
    my ($self, $distance, $failLabel) = @_;
    $failLabel = $se <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1118	1228	
==>inate {
    return "";
}

sub output_advance {
    my ($self, $distance, $failLabel) = @_;
    $failLabel = $se <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	35044	35184	
==>TIONS => {
			"%" => 76,
			"*" => 80,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -58
	},
	{#State 129
		ACTIONS => {
			"^" => 7 <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	24835	24963	
==>i = 0; $i < $n; $i++) {
	    print <<"EOC";
	$ar\[$i\] = $args[$i]
EOC
	}
	$args = $ar;
    }
    my $rett = 'P';
    if ($tos->[ <==
3	/Users/nnunley/parrot/config/init/defaults.pm	622	733	
==>, $conf) = @_;

    # We need a Glossary somewhere!
    $conf->data->set(
        debugging => $conf->options->g <==
3	/Users/nnunley/parrot/config/auto/jit.pm	4196	4316	
==>RC_DIR)/exec_dep.h $(SRC_DIR)/exec_save.h',
                TEMP_exec_o =>
                    '$(SRC_DIR)/exec$(O) $(SRC <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1993	2105	
==>called from C<new()> to create the path if necessary.

=cut

sub create_path
{
    my $self = shift;
    
    ret <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	970	1082	
==>called from C<new()> to create the path if necessary.

=cut

sub create_path
{
    my $self = shift;
    
    ret <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	6792	6915	
==>me, "${arg}_$d"
EOC
	}
	print <<EOC;
arg_ok:
EOC
    }
    $cur_func = $arg;
    %params = ();
    %lexicals = ();
    %name <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	1614	1731	
==>(!$@) {
        my $test = cc_run();
        if ($test eq
            "68647976601306097149819007990813932172694353001 <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38729	38845	
==>ers);
    $sig = $self->trans($method->{type}) . $sig;
    my $ret = '';
    my $ret_def = '';
    my $func_ret = '(v <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	445873	446128	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447968	448223	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	448794	449049	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	4009	4147	
==>($R, $subtree);
            return $t;
        }

        # Have at least one to combine with, but possibly not all
        @{ $R->{args} } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826577	826669	
==>Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_FLOAT) {\n    internal_exceptio <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827647	827739	
==>Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_FLOAT) {\n    internal_exceptio <==
3	/Users/nnunley/parrot/lib/File/Which.pm	2846	2974	
==>as they are -x)

# print STDERR "-x: ", -x $file, " -e: ", -e _, " -d: ", -d _, "\n";

                    return $file unless $a <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1739	1839	
==>[], \%params, \@_, $self );

		exists($$self{VERSION})
	and	$$self{VERSION} < $COMPATIBLE
	and	cr <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1678	1774	
==>[], \%params, \@_, $self );

		exists($$self{VERSION})
	and	$$self{VERSION} < $COMPATIBLE
	and	cr <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	3728	3837	
==>}();
		goto PARSE;
	}
	if ($syms[CURR] eq "select") {
		&parse_select;
		goto PARSE_NOFEED;
	}
	if ($syms[CURR <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5524	5627	
==>might be crucial
sub gather_groups_and_libs {
    my @pmcs = @_;

    my ( %group_files, %group_libs, %p <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5735	5838	
==>might be crucial
sub gather_groups_and_libs {
    my @pmcs = @_;

    my ( %group_files, %group_libs, %p <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	755	864	
==>LL_EXIT$suffix
    dec ${ITEMP0}

    # Get register that we'll want to place stuff in to.
    ${PTEMP0} = ${S <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	28284	28382	
==>s an empty string is returned.

=item [1]

The remainder of the input string (i.e. the characters a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875977	876238	
==>=> [
                              "s",
                              "sc",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_sub <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	12991	13128	
==>=> 4,
			"<" => 22,
			"+" => 24,
			'CODE' => 6,
			"(" => 10,
			"|" => 26,
			"*" => 27,
			"\$" => 29,
			"[" => 14,
			"." => 15
		}, <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	21167	21266	
==>AYBE)
		$rd2pos,	$second_arg,		# 2ND RDEL (MAYBE)
		$modpos,	$endpos-$modpos,	# MODIFIERS
		$endpos, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	1128	1247	
==>t;
  my ($handler) = @_;
  
  $handler->start_element({ Name => 'label', Attributes => { name => $self->ident->value } } <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	23149	23265	
==>class
						? bless (\$field, $class)
						: $field;
					$firstpos = $lastpos unless defined $firstpos;
					$lastp <==
3	/Users/nnunley/parrot/config/init/hints/vms.pm	287	417	
==>Obj=.obj/NoList/NOANSI_ALIAS/include="./include"},
        perl    => "MCR $^X",
        exe     => "exe"
    );

    {
        loc <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	2136	2248	
==>+]?[eE]\d+)?)/;
    $node->{type} ||= 'EXPRESSION';
  }
}

sub parse {
  my $tokens = shift;
  my @tree;
  my $tr <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26045	26141	
==>RLOOP_STEP_$ps->{num}
	goto FOR_$ps->{num}
AFTER_NEXT_$ps->{num}: noop
NEXT
	} else {    # next v <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	13943	14059	
==>shift;
    my $string = "";
    
    $self->output_string(\$string);
    $self->parse_file($file->path);
    
    ret <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4902	4999	
==>rbose') && $self->get('verbose') == 2;

    print "Setting trigger $trigger on configuration key $ <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10680	10765	
==>$a,$_[5],21,0x85845dd1,/* 56 */
II,$a,$b,$c,$d,$_[12],6,0x6fa87e4f,/* 57 */
II,$d,$a,$ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	14848	15070	
==>ild an
                    # array of commands.
                    $cmd = [
                        qq{$parrot $args "$code_f"},
                        qq{$parrot "$pbc_f"},
                    ];
                } else { <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8669	8782	
==>gots:
    push result, not_there
    .return (result)
.end

.sub unicode:"dyadic:\u25cb"          # circle
    .pa <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10646	10756	
==>ase, report it as a BUG");

}#_Parse
#DO NOT remove comment

1;

}
#End of include--------------------- <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10169	10271	
==>ase, report it as a BUG");

}#_Parse
#DO NOT remove comment

1;

}
#End of include--------------------- <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	23704	23813	
==>///////////////////////////////////
      # The virtual end-document signal
      
      if(@$curr_open) { # D <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605431	605675	
==>" => "addattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606221	606465	
==>" => "addattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
3	/Users/nnunley/parrot/lib/Test/More.pm	23548	23651	
==>ided when no_plan is in use.
        _carp "todo_skip() needs to know \$how_many tests are in the block" <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8740	8846	
==>ny arguments to popindex!";
    }

    $reg = value($reg);

    my $L_fallback = $self->output_label_use($f <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1618	1717	
==>ack_depth = prop_stack_depth[${PC}]
NOWT_TO_PROPOGATE:
PIR

	# Return.
	return $pir;
}

# Pre and po <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	18476	18574	
==>the PMC's initialization method, or an empty
string if the PMC has a C<no_init> flag.

=cut

sub in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8970	9063	
==>ranch_cs: fixup for '%s' not found\", label);\n    else {\n\tinterpreter->resume_offset = fe-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10086	10179	
==>ranch_cs: fixup for '%s' not found\", label);\n    else {\n\tinterpreter->resume_offset = fe-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	37562	37798	
==>t}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS",
                  "NAME" = <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	21133	21288	
==>(haveTries_flag) goto R.back
#               goto lastback
#         next:
#
# R*? ->        pushindex
#               goto next
#        rfail: popint -> t <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13127	13231	
==>econd
	link as first
end type
type third
	poit as integer
	fwd as second
end type
dim x as third
dim y as <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	1522	1646	
==>my ($pos) = @_;

  if (defined $pos) {
    my $count = scalar(@{$self->{TOKENS}});

    $pos = -1 if $pos < 0;          # Jus <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	42566	42674	
==>to $i: $p->[$i]\n";
    $p->[$i] .= "\n";
     # Unlike with simple Verbatim blocks, we don't end up just doi <==
3	/Users/nnunley/parrot/languages/converter.pl	2185	2285	
==>rgrammar);

my $file = $ARGV[0];
my @lines;
my @rules;

open FILE,$file or die "Couldn't open '$file' <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	4010	4101	
==>TATIC_STR(line) CONCAT(&static_string_, line)

#if ! DISABLE_GC_DEBUG
#  define GC_DEBUG_VER <==
3	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	1078	1324	
==>n $symbtab\n";
                        return $defn;
                    }
                }
            }
            return undef;
        }
    }

    sub Insert {
        my $self   = shift;
        my ($defn) = @_;
        my $sym <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807675	807908	
==>RGS" => [
                              "n",
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 502 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	1021	1150	
==>>.

=cut

sub files_of_type
{
    my $self = shift;
    my $type = shift;
    
    return () unless defined $type;
    
    my $re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18089	18201	
==>,
                  "BODY" => "#line 307 \"src/ops/core.ops\"\n  if (string_bool(interpreter, {{\@1}})) {\n    {{ <==
3	/Users/nnunley/parrot/config/auto/msvc.pm	633	733	
==>gen("config/auto/msvc/test_c.in");
    cc_build();
    my %msvc = eval cc_run() or die "Can't run the <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	19710	19807	
==>LD_CALL_FRAMES is disabled, add the signature to src/call_list.txt", 75, "ascii", 0);
#endif
    m <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	907	1016	
==>() {
	# No extra subs.
	return "";
}

# Label generation.
sub gen_label() {
	# We'll emit a label for every si <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	664	773	
==>() {
	# No extra subs.
	return "";
}

# Label generation.
sub gen_label() {
	# We'll emit a label for every si <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	7779	7882	
==>rint "# $cur_f: args='$args' ar='$ar' kw='$kw'\n";
		    $func_info{$cur_f}{'args'} = $args;
		    $func <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	980	1107	
==>TYPE   => $type,
    NAME   => $ident->value,
    PROPS  => $props,
    ARGS   => $args,

    DEBUG  => 1,
    FILE   => $ident- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1031	1152	
==>TYPE  => $type,
    NAME  => $ident->value,
    PROPS => $props,
    ARGS  => $args,

    DEBUG => 1,
    FILE  => $ident- <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	16674	16782	
==>];

  if($content =~ m/^\s*\*\s*$/s or $content =~ m/^\s*$/s) {
    # Like: "=item *", "=item   *   ", "=item <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5097	5209	
==>elf = shift;
  my ($handler) = @_;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $self->l <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3160	3272	
==>elf = shift;
  my ($handler) = @_;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $self->l <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	1376	1472	
==>file>. If C<$file> is unspecified it
defaults to F<vtable.tbl>.  If it is not an MMD method, C<MM <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	351	453	
==>e Carp;

use base qw(Jako::Construct::Statement);

my %block_types = (
  'while'    => { PREFIX => "_W" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	372	474	
==>e Carp;

use base qw(Jako::Construct::Statement);

my %block_types = (
  'while'    => { PREFIX => "_W" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849937	850269	
==>3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850824	851156	
==>3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851711	852043	
==>3}}, 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  " <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8706	8806	
==>tra arguments!" if @_;

  my $found = $self->find_symbol($name);

  return $found ? $found->kind : un <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10043	10143	
==>tra arguments!" if @_;

  my $found = $self->find_symbol($name);

  return $found ? $found->kind : un <==
3	/Users/nnunley/parrot/config/inter/progs.pm	1770	1863	
==>$conf->data->get('cc'), $conf->options->get('cc'));
    $cc = prompt("What C compiler do you w <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	4111	4215	
==>The next thing must be a quoted string or
	#   no prompting is done.  However, QB says that if no prompt, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019806	1019901	
==>st time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_localtime_r(&t, &tm);\n  Par <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020737	1020832	
==>st time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_localtime_r(&t, &tm);\n  Par <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43973	44097	
==>=> 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 196
		DE <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	495	613	
==>0', '.Array', 'write_ARRAY'],
  ['',             'print', 'P5'],
  ['',             'branch', 'write_RET'],
  ['write_A <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	4995	5092	
==>c:
@code	eq $result, $false, IFBRANCH_$ifline
CODE
		feedme();
		push(@ifstack, $ifline);
		$iflin <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6534	6653	
==>ource (@sources) {
        return 1 if modtime($source) > $target_mod;
    }

    return 0;
}

sub generate_dump {
    m <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6745	6864	
==>ource (@sources) {
        return 1 if modtime($source) > $target_mod;
    }

    return 0;
}

sub generate_dump {
    m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969332	969663	
==>is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 109 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970341	970672	
==>is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 109 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971350	971681	
==>is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 109 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61516	61766	
==>JUMP" => 0,
                  "NAME" => "errorson",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62159	62409	
==>JUMP" => 0,
                  "NAME" => "errorson",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6055	6160	
==>$self, $reg, $group) = @_;
    $reg = value($reg);
    return qq!$reg = <rx_match>{"$group"}->[1]; # get g <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855050	855361	
==>3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855939	856250	
==>3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856828	857139	
==>3}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53820	54028	
==>nline",
                  "CODE" => 69,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 829 \"src/ops/core.ops\"\n  if ({{\@1} <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4634	4748	
==>e_branch($) {
	my $self = shift;
	my $pops = shift;
	my $register_num = 0;
	my $pir = '';

	# Do code for each pop. <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3050	3164	
==>e_branch($) {
	my $self = shift;
	my $pops = shift;
	my $register_num = 0;
	my $pir = '';

	# Do code for each pop. <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8015	8143	
==>_popindex {
    my $self = shift;

    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } el <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7668	7796	
==>_popindex {
    my $self = shift;

    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } el <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14788	14905	
==>--------------------------------

use integer;
sub rtf_esc {
  my $x; # scratch
  if(!defined wantarray) { # void cont <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223626	223806	
==>ger(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224568	224748	
==>ger(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262118	262512	
==>" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 305,
                  "ARGS" => [
                              "i",
                              "sc",
                              "sc" <==
3	/Users/nnunley/parrot/lib/Test/More.pm	8871	8979	
==>est->is_eq(@_);
}

sub isnt ($$;$) {
    $Test->isnt_eq(@_);
}

*isn't = \&isnt;


=item B<like>

  like( $th <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42844	42941	
==>xtnamespace++;
}

sub new ($$)
{
	my $class = ref($_[0]) || $_[0];
	local $Parse::RecDescent::comp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705365	705814	
==>",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 791,
                  "ARGS" => [
                              "p",
                              "ic",
                              "i",
                              "ic"
                            ],
                  "BODY" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	3178	3293	
==>" => [],
                  "BODY" => "#line 117 \"src/ops/core.ops\"\n  opcode_t *next = {{^+1}};\n  next = CHECK_EV <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4680	4788	
==>= shift;
    my $name = shift;
    
    return -d File::Spec->catdir($self->path, $name);
}

=item C<files($r <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	4444	4589	
==>@tokens, Jako::Token->new(
        $file, $line, $1, undef, $1);
      $text = $2;
      next;
    }

    #
    # (Prefix) Ops:
    #

    if ($te <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7155	7259	
==>($lhs,$len,$code)=@{$$rules[-$act]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print STDERR " <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6823	6923	
==>($lhs,$len,$code)=@{$$rules[-$act]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print STDERR " <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	890	996	
==>GHT => $right
  }, $class;

  $block->push_content($self);

  return $self;
}

sub left  { return shift->{L <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	898	1004	
==>GHT => $right
  }, $class;

  $block->push_content($self);

  return $self;
}

sub left  { return shift->{L <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	29736	29834	
==>ctions) {
			foreach(keys %functions) {
				print FUNC qq{\teq S0, "$_", UF_}, english_func($_), qq <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985118	985447	
==>nline",
                  "CODE" => 1104,
                  "ARGS" => [
                              "i",
                              "ic",
                              "sc",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/s <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59004	59116	
==>e directly called because
				       Parse::RecDescent::$rulename is already defined (it
				       is the standa <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	29091	29201	
==>. . . . . . . .

# Quoting perlpodspec:

# In parsing an L<...> code, Pod parsers must distinguish at least fou <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	13592	13689	
==>clone needed here?
    op2.'set_shape'(op1)
    .return (op2)
.end

.sub unicode:"dyadic:\u2374" : <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	12499	12671	
==>c}($_));
            
            my $atag="";
            if (/^\s*([^\(\s]+)\(/) {
                $atag="<a name=\"$1\"></a>";
            } 

            my ($initial) = <==
3	/Users/nnunley/parrot/lib/Test/More.pm	32895	33018	
==>$a1],
           [sort { ref $a ? -1 : ref $b ? 1 : $a cmp $b } @$a2]
    );
}

=back


=head2 Extending and Embedding Test: <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	98	194	
==>package SRM::Base;
use strict;

# Constructor always throws an exception, so we never instantiate <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557246	557495	
==>RROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558629	558878	
==>RROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560013	560262	
==>RROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ], <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561150	561283	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "fet <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562233	562366	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "fet <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	4021	4138	
==>, $textref,
			     "Did not find a suitable bracket in delimiter: \"$_[1]\"",
			     0;
	}
	my $posbug = pos;
	$ldel <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	618219	618429	
==>OT_JUMP_RELATIVE",
                  "NAME" => "pic_inline_sub__",
                  "FLAGS" => ":pic",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4285	4409	
==>);
  my $token      = $self->at(-1);

  while(1) {
    $token      = $self->forth;
    $last_token = $self->get(-1);

    las <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3848	3952	
==>klist{$prm}
		or	croak("Invalid value for parameter '$prm'");
        $prm=unpack('@2A*',$prm);
		$$ou <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3652	3753	
==>klist{$prm}
		or	croak("Invalid value for parameter '$prm'");
        $prm=unpack('@2A*',$prm);
		$$ou <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	3156	3252	
==>$pos = $self->pos;

  $self->INTERNAL_ERROR("Position is not defined") unless defined $pos;
  $se <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	7148	7373	
==>-([\w\d]+)	#  6 osname
                -([\w\d]+)	#  7 cc
                -(\w+)		#  8 runcore
               --(\d+)		#  9 timestamp
                -(\d+)		# 10 duration
               --(\d+)		# 11	total
                -(\ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32061	32189	
==>.  Correct for this.
            $para->[1]{'number'} = $expected_value;
            $self->whine(
              $para->[1]{'star <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32470	32598	
==>.  Correct for this.
            $para->[1]{'number'} = $expected_value;
            $self->whine(
              $para->[1]{'star <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434180	434478	
==>inline",
                  "CODE" => 498,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "n"
                            ],
                  "BODY" => "#line 89 \"src/ops/math.ops <==
3	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	2290	2392	
==>age EndDir;
use base qw(Lua::opcode);

package ReturnDir;
use base qw(Lua::opcode);

package Para <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	11765	11866	
==>l = $self->_gensym();

  $return = $self->_constant(0);
  for(_get_args($node)) {
    my $temp = $self <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	2207	2312	
==>rstline,$secondline) = split /\n/, $fdecl;
        if ($firstline !~ /\(/) {
	    $bad_fdecls{$fdecl} = $s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11020	11119	
==>self->font_table,
    $self->stylesheet,
    $self->color_table,
    $self->doc_info,
    $self->doc <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14760	14845	
==>------------------------------------------------------------

use integer;
sub rtf_esc <==
3	/Users/nnunley/parrot/config/init/hints/solaris.pm	293	419	
==>get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }
    if ($libs !~ /-lrt\b/) {
        $libs .= <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3342	3444	
==>sts $props{fn} or exists $props{fnlib}) {
    my $fnlib;

    if (exists $props{fnlib} and $props{fnlib <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6006	6108	
==>sts $props{fn} or exists $props{fnlib}) {
    my $fnlib;

    if (exists $props{fnlib} and $props{fnlib <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459943	460239	
==>o\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460931	461227	
==>o\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461919	462215	
==>o\");\n  {{\@1}} = {{\@2}} % den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143530	143622	
==>" => "#line 84 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144458	144550	
==>" => "#line 84 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145386	145478	
==>" => "#line 84 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1}}, {{\@2}}) == 0) { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	816157	816352	
==>e",
                  "CODE" => 922,
                  "ARGS" => [],
                  "BODY" => "#line 595 \"src/ops/set.ops\"\n  Parrot_clear_i(interpreter);\n  {{+=1}};\n",
                  "L <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48917	49039	
==>tition of zero, nor can they have
					       negative components in their ranges.");
				}
			}
			
			$prod && $prod->end <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	926	1021	
==>ct::Block::Sub")
      or $construct->isa("Jako::Construct::Block::Module")
      or $construct- <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11422	11557	
==>at.
    }
    
    # Pod::Simple::HTML bug was here.
    my $out;
    
    $out = $to if defined $to and length $to;
    $out .= "#" . $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	6464	6596	
==>'}{$tagname} || next;

        my @to_unget;
        while(1) {
          push @to_unget, $self->get_token;
          last if $to_ung <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	1810	1926	
==>s{$dir} = 1;
}

print <<END;
    </list>
    
    <list name="ops">
END

for my $ops_file (@ops_files) {
    open OPS <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	14055	14187	
==>|= $body =~ s/\bgoto\s+OFFSET\((.*?)\)/{{+=$1}}/mg;
                      $body =~ s/\bgoto\s+NEXT\(\)/{{+=$op_size}}/mg;
        $ab <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7834	7989	
==>);

            $semval = $code ? &$code( $self, @sempar )
                            : @sempar ? $sempar[0] : undef;

            splice(@$stack,-$le <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7481	7631	
==>);

            $semval = $code ? &$code( $self, @sempar )
                            : @sempar ? $sempar[0] : undef;

            splice(@$stack,-$le <==
3	/Users/nnunley/parrot/config/auto/funcptr.pm	63	152	
==>config/auto/funcptr.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	28949	29062	
==>gex::Ops::Tree::rule';

    my (undef, @ops) = $self->rewrite($tree, undef);

#    return { lastback => $back, cod <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5945	6047	
==>f->_save_1 ('P');
  my $special = { 
		  unquote => \&_qq_unquote,
		  'unquote-splicing' => \&_qq_unqu <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3120	3215	
==>t.
	$vars=1;
	if ($noreloop) {
		push @{$code{$seg}->{code}}, "\t#ne \$I0, $vars, ERR_INPFIELDS\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	98666	98873	
==>ne",
                  "CODE" => 122,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 96 \"src/ops/bit.ops\"\n  {{\@1}}->vtabl <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	187	286	
==>- Root documentation section

=head1 SYNOPSIS

    use Parrot::Docs::Section::Parrot;

    Parrot::D <==
3	/Users/nnunley/parrot/lib/Test/More.pm	19863	19959	
==>This declares a block of tests that might be skipped, $how_many tests
there are, $why and under w <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	9072	9178	
==>h($1);	# CUT OFF WHATEVER CAUSED THE SHORTNESS
			goto short if ($omode eq 'PARA' || $omode eq 'MAX');
			_ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3365	3466	
==>lobal "COMMON", _GLOBALS\n\t};
	}
	delete $code{$seg};
	if (! $debug) {
		print CODE ".end\t# outer se <==
3	/Users/nnunley/parrot/examples/benchmarks/freeze.pl	833	929	
==>lone time %.6f\n", $e-$s;

print "Image len ", length($image), "\n";
print "array size ", scalar( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	10008	10119	
==>n ("return $retval;");
}

sub output_declare {
    my ($self, $var) = @_;
    return ("my \$$var;\n");
}

sub ou <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59791	59890	
==>seunneg("a new (error) production", $aftererror,
				    $lookahead,$line) or next;
			$prod->check_ <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	3971	4067	
==>ta->get('slash');
    (my $TEMP_pmc_classes_o   = $TEMP_pmc_o)   =~ s/^| / src${slash}pmc${slash} <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	436	563	
==>compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $kind        = $self->kind;
  my $peer        = $sel <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	416	543	
==>compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $kind        = $self->kind;
  my $peer        = $sel <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	1294	1405	
==>ections, groups and/or items.

=cut

sub new
{
    my $self = ref $_[0] ? ref shift : shift;
    my $name = shif <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	246901	247309	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "and",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247764	248172	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "and",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	248628	249036	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "and",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548888	549031	
==>"i"
                            ],
                  "BODY" => "#line 1107 \"src/ops/math.ops\"\n  /* Coercing a negative to a UINT can get pret <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	9157	9279	
==>TypeLong ? "unknown" : "D?";
			    }
			    $symbol .= "_data" if $TypeLong;
			} elsif ($undef) {
			    $symbol = $TypeL <==
3	/Users/nnunley/parrot/Configure.pl	8733	8829	
==>ript, you obviously have Perl 5--I'll be pulling
some defaults from its configuration.
END

# EDI <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2021	2136	
==>eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P7', 'P16[0]'],
  ['',            'bsr', 'apply_HELP' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5475	5570	
==>andler);
  $handler->end_element({ Name => 'op' });
  $handler->end_element({ Name => 'assign' } <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3538	3633	
==>andler);
  $handler->end_element({ Name => 'op' });
  $handler->end_element({ Name => 'assign' } <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	288	383	
==>txt

=head1 DESCRIPTION

This script creates the Native Call Interface file F<src/nci.c>. It
par <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3629	3719	
==>Simple::TextContent>, L<Pod::Text>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Se <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	33161	33301	
==>y ($v, $w, $vv, $ww);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ($w->[2] eq 'P') {
	   $ww = tem <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	33910	34050	
==>y ($v, $w, $vv, $ww);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ($w->[2] eq 'P') {
	   $ww = tem <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	34834	34974	
==>y ($v, $w, $vv, $ww);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ($w->[2] eq 'P') {
	   $ww = tem <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	174698	175148	
==>ore",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 209,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" = <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35170	35287	
==>le: ['
					. $self->{subrule} . ']<< (return value: [}
					. $_tok . q{]},
					  
					  Parse::RecDescent::_tracef <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	4579	4681	
==>otAPI;

printf "=== @H: %d interfaces ===\n", scalar @ParrotAPI;

my %Code;
my %DataB;
my %DataD;
my %D <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	533257	533478	
==>DE" => 616,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 890 \"src/ops/math.ops\"\n  {{\@1}} = log((FL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	373162	373259	
==>/io.ops\"\n  STRING ** const s = &{{\@1}};\n\n  *s = NULL;\n  PIO_peek(interpreter, {{\@2}}, s);\n <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	9577	9668	
==>->_restore($true);

  $self->_add_inst("FALSE_$label");
  my $false = $self->_generate(_get_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	245867	246254	
==>@3}}, MMD_STRCMP);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp_num",
                  "FLAGS" => ":base_core",
                  " <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3783	3893	
==>vert X.c -> X.o for all X.c
    compile($_) foreach (@pmcs);

    # lib-GROUP.c
    for my $group (keys %$group <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3887	3997	
==>vert X.c -> X.o for all X.c
    compile($_) foreach (@pmcs);

    # lib-GROUP.c
    for my $group (keys %$group <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837306	837541	
==>\@1}}),\n                  STACK_ENTRY_INT);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	537	672	
==>sc, @other ) = @_;

        ++$count;
        my( $lang_f, $pasm_f, $by_f, $out_f ) = map { # JMG
            my $t = $0; $t =~ s/\.t$/_ <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41876	42003	
==>ULT => -40
	},
	{#State 180
		DEFAULT => -41
	},
	{#State 181
		DEFAULT => -4,
		GOTOS => {
			'block' => 192,
			'chun <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	11226	11344	
==>est;
        return $test;
    }

    return $self->cmp_ok($got, 'eq', $expect, $name);
}

sub is_num {
    my($self, $ <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	11008	11106	
==>=item C<cc_clean()>

Cleans up all files in the root folder that match the glob F<test.*>.

=cut

s <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	3187	3283	
==>t be instantiated. Abstract classes are shown with lower
case class names in the class tree.

=it <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206495	206588	
==>able->get_integer(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207437	207530	
==>able->get_integer(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n", <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1804	1915	
==>rn "";
}

# Extra subroutines required for the mapper.
sub subs() {
	# No extra subs.
	return "";
}

# Label gen <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	844	955	
==>rn "";
}

# Extra subroutines required for the mapper.
sub subs() {
	# No extra subs.
	return "";
}

# Label gen <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	601	712	
==>rn "";
}

# Extra subroutines required for the mapper.
sub subs() {
	# No extra subs.
	return "";
}

# Label gen <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	3458	3572	
==>im | type | exit | function | for | next |
		do | loop | goto | gosub | return  | sub | call | select | case |
		re <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1025	1109	
==>G(i) REG_STR(cur_opcode[i])
#define CONST(i) CONTEXT(interpreter->ctx)->constants[cur <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1141	1225	
==>G(i) REG_STR(cur_opcode[i])
#define CONST(i) CONTEXT(interpreter->ctx)->constants[cur <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110024	110398	
==>e",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 137,
                  "ARGS" => [
                              "s",
                              "sc"
                            ],
                  "BODY" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824438	824530	
==>ack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_STRING) {\n    internal_exception <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825509	825601	
==>ack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_STRING) {\n    internal_exception <==
3	/Users/nnunley/parrot/config/gen/parrot_include.pm	3463	3613	
==>/^\s+(\w+)\s*(?!=)/) {
                    $last_val++;
                    $values{$1} = $last_val;
                    local $_ = "$prefix$1\t$last_v <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	1106	1208	
==>",  #  ''
  '/head1' => "</a></h1>\n",
  '/head2' => "</a></h2>\n",
  '/head3' => "</a></h3>\n",
  '/he <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	1532	1637	
==>nerated automatically from '$infile'
 * by $0.
 *
 * Any changes made here will be lost!
 *
 */

#define C <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	3821	3926	
==>nerated automatically from '$infile'
 * by $0.
 *
 * Any changes made here will be lost!
 *
 */

#define C <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	439	534	
==>mespace, %may_be_none);
$DIS = 'python mydis.py';
$DEFVAR = 'PerlInt';

getopts('dnD', \%opt);
$ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	12651	12771	
==>) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $dont_expect ) {
        # undef only matches u <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	13095	13215	
==>) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $dont_expect ) {
        # undef only matches u <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	399	500	
==>opslibs_pl.in>.  This script is used for building
dynamic op libraries.

=cut

use strict;

use File:: <==
3	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	773	870	
==>pment.

=head2 Options

=over 4

=item C<--action=sub>

Run the specified subroutine.

=back

=cut <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028157	1028249	
==>me\");\n  }\n  next = Parrot_sleep_on_event(interpreter, (FLOATVAL) {{\@1}}, next);\n  {{=nex <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029008	1029100	
==>me\");\n  }\n  next = Parrot_sleep_on_event(interpreter, (FLOATVAL) {{\@1}}, next);\n  {{=nex <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649931	650202	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "valid_type",
                  "FLAGS" => "", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650852	651123	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "valid_type",
                  "FLAGS" => "", <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	6381	6480	
==>ode);
    */
    exit(0);
}

static opcode_t* run_compiled(Interp *interpreter, opcode_t *cur_opcode <==
3	/Users/nnunley/parrot/tools/dev/as2c.pl	896	1025	
==>nt " */\n";
	    }
	    my ($bytes, $src) = ($1, $2);
	    $src =~ s/\t/ /g;
	    my $len = length($bytes);
	    my @pairs = ($byt <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	1743	1831	
==>1, $input, 0, []);
use Data::Dumper;
print Data::Dumper->Dump([$m],["*DEFAULT_RULE_MATCH" <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	37601	37764	
==>g1'   => $nil->[0],
        );
        push @opcodes2, new LabelOp( $parser,
            'prolog' => 1,
            'arg1'   => $lbl,
        );
        $pars <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7148	7269	
==>n('|', @{$options{reject}})
		    : defined($options{reject})	       ? $options{reject}
		    :					 ''
		    ;
	my $ignor <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24150	24271	
==>n('|', @{$options{reject}})
		    : defined($options{reject})	       ? $options{reject}
		    :					 ''
		    ;
	my $ignor <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	302	426	
==>eturn bless {};
}


my %language_test_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    output_i <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	389	512	
==>eturn bless {};
}

my %language_test_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    output_i <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	471	588	
==>eturn bless {};
}

my %language_test_map = (
    output_is   => 'is_eq',
    output_like => 'like',
    output_i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761484	761714	
==>bound register access\");\n    REG_PMC({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762337	762567	
==>bound register access\");\n    REG_PMC({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	9517	9656	
==><th>Function</th>
                  <th>Line Coverage</th>
                  <th>Branch Coverage</th>
                  <th>Call Coverage</t <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	36056	36208	
==>55.

So the exit codes are...

    0                   all tests successful
    255                 test died
    any other number    how many failed (in <==
3	/Users/nnunley/parrot/lib/Test/More.pm	34127	34279	
==>55.

So the exit codes are...

    0                   all tests successful
    255                 test died
    any other number    how many failed (in <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2922	3074	
==>55.

So the exit codes are...

    0                   all tests successful
    255                 test died
    any other number    how many failed (in <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	67443	67578	
==>c,
								       $matchrule,
								       $argcode);
	 
				$prod and $prod->additem($item)
				      or  _no_rule("(sub)rule",$line, <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1348	1450	
==>3>' ],
    ],

The last rule, labelled with _MASTER, is the rule that your target string
will be matche <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	4155	4250	
==>self->type_for_name($self->name);
	
	return $type unless $type eq $UNDEFINED;
	
	return 'Executa <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	4969	5078	
==>, ">$header"
    or die "ops2c.pl: Cannot open header file '$header' for writing: $!!\n";

open SOURCE, ">$sou <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10370	10472	
==>>		and	print STDERR "**Shift \$error token and go to state ".
#DBG>						 $$states[$$stack[-1][0]]{ACT <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9902	10003	
==>>		and	print STDERR "**Shift \$error token and go to state ".
#DBG>						 $$states[$$stack[-1][0]]{ACT <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	9512	9630	
==>ested tag: $tag",
					 pos $$textref;
				goto failed;
			}
		}
		else { $$textref =~ m/./gcs }
	}

short:
	$closetagp <==
3	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1422	1539	
==>{
    my ($filename, $pattern) = @_;
    my $PIR;
    open($PIR, '>', $filename) or die "create $filename: $!";

    m <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	13590	13696	
==>) {
    print JITCPU <<"EOC";
    PARROT_API Parrot_jit_fn_info_t *op_jit = &_op_jit[0];

    extern int ji <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065045	1065156	
==>],
                  "BODY" => "#line 260 \"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root_namespace, * <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065919	1066030	
==>],
                  "BODY" => "#line 260 \"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root_namespace, * <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	11096	11190	
==>ule $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export`
- `unlike (Str $ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	11936	12075	
==>rying classmatch\n"),
                         aop('classmatch', [ $incexc, $lastback ]),
                         aop('increment', [ 1, $la <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7478	7591	
==>for i = 1 to 3
	on i gosub oats, peas, beans
next i
print
end
100 print "100!"
    goto FIN
200 print "200!"
    g <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19761	19874	
==>for i = 1 to 3
	on i gosub oats, peas, beans
next i
print
end
100 print "100!"
    goto FIN
200 print "200!"
    g <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2428	2530	
==>is necessary to help gcov locate it's basic block (.bb) files.
    my $cmd = "gcov -f -b -o $dirname $s <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	37070	37171	
==>ments:

=over 4

=item 1.

A string to be processed (C<$_> if the string is omitted or C<undef>)

=ite <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	52902	53003	
==>ments:

=over 4

=item 1.

A string to be processed (C<$_> if the string is omitted or C<undef>)

=ite <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864147	864374	
==>NCODING_BYTES(interpreter, {{\@2}}));\n  }\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	865039	865266	
==>NCODING_BYTES(interpreter, {{\@2}}));\n  }\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30849	30940	
==>ent::InterpLit;

sub sethashname { $_[0]->{hashname} = '__STRING' . ++$_[1]->{strcount} . '_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1565	1664	
==>Thispara'} = '' }

sub start_Verbatim    { $_[0]{'Thispara'} = ''   }
sub start_item_bullet { $_[0]{ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1095	1194	
==>Thispara'} = '' }

sub start_Verbatim    { $_[0]{'Thispara'} = ''   }
sub start_item_bullet { $_[0]{ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	54169	54268	
==>h extractor in
sequence to the text string.

If the extractor is a subroutine it is called in a list <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	5383	5510	
==>$defn, \@opcodes ];
    }
}

sub BuildTable {
    my ( $parser, $fields ) = @_;
    my @opcodes1 = ();
    my @opcodes2 = <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	16810	16914	
==>, "post_load for typed exception handler");
	$pir .= "### end post_load (typed eh)\n";
    $pir .= <<'PIR <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	499	599	
==>ons

The following functions are exported:

=over 4

=cut

package Parrot::Vtable;

use strict;
use w <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271483	271875	
==>" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 316,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	9069	9177	
==>ft->accept_codes(@_) } # alias

sub accept_codes {  # Add some codes
  my $this = shift;
  
  foreach my $new <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	17028	17139	
==>orthy things
       0x00 .. 0x1F, 0x5c, 0x7b, 0x7d, 0x7f .. 0xFF, 0x46),

  # We get to escape out 'F' so that w <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	5621	5721	
==>PDB|PF|PIO|PackFile)_/;

for my $api (@API) {
    unless ($api =~ $ParrotPrefix) {
	push @NoParrotPre <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	452	546	
==>and C<gcov> to be installed.

The reports start at F<parrot_coverage/index.html>.

=cut

use st <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070078	1070465	
==>",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1194,
                  "ARGS" => [
                              "i",
                              "nc",
                              "nc"
                            ],
                  "BODY" => "#line 49 <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	982	1106	
==>t LANG $lang_code; # JMG
        close LANG; # JMG

        Parrot::Test::run_command( 
            "$PConfig{perl} languages <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	894	1018	
==>t LANG $lang_code; # JMG
        close LANG; # JMG

        Parrot::Test::run_command( 
            "$PConfig{perl} languages <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247576	247690	
==>"#line 670 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	248440	248554	
==>"#line 670 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	249304	249418	
==>"#line 670 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4}};\n",
                  "LABELS" <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	2867	2996	
==>s a new rule?
        if (!$in_heredoc && /^\s*\[([\w\.]+)\]\s*$/) {
            # If we have a current rule...
            my $na <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33551	33667	
==>for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end translation\n";

		# Finally, <==
3	/Users/nnunley/parrot/config/inter/make.pm	152	246	
==>make.pm - make utility

=head1 DESCRIPTION

Determines whether C<make> is installed and if it's <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024606	1024981	
==>LAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1145,
                  "ARGS" => [
                              "s",
                              "i"
                            ],
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033551	1033807	
==>d, lex_name, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034649	1034905	
==>d, lex_name, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	46173	46285	
==>ded method-maker
  no strict 'refs';
  foreach my $attrname (@_) {
    next if $attrname =~ m/::/; # a hack
    * <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10603	10707	
==>reached
	croak("Error in driver logic. Please, report it as a BUG");

}#_Parse
#DO NOT remove comment <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10127	10227	
==>reached
	croak("Error in driver logic. Please, report it as a BUG");

}#_Parse
#DO NOT remove comment <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478573	478812	
==>> "inline",
                  "CODE" => 548,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 437 \"src/ops/math.ops\"\n  FL <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	3185	3371	
==>look at
# where it's used, mostly in TreeOptimize.pm.
############################################################################

sub order_startset {
    my $start = shift;

    # Must <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33419	33524	
==>_[1].$_[0]->{"subrule"};
	}
}

sub new ($$$$;$$$)
{
	my $class = ref($_[0]) || $_[0];
	bless 
	{
		"subrul <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21173	21278	
==>text;' : '' ) .'

		$_tok = ($_noactions) ? 0 : do ' . $self->{"code"} . ';
		' . ($self->{"lookahead"}<0? <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2430	2523	
==>b end_item_bullet { $_[0]->emit_par( 0) }
sub end_item_number { $_[0]->emit_par( 0) }
sub end_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1998	2091	
==>b end_item_bullet { $_[0]->emit_par( 0) }
sub end_item_number { $_[0]->emit_par( 0) }
sub end_ <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	22655	22773	
==>p { $_ => 0 } qw(nobody nolines debug verbose);

    my %action;

    GetOptions(
        "include=s"     => \@include, <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	18350	18465	
==>////////////////

      my $content = join ' ', splice @$para, 2;
      $content =~ s/^\s+//s;
      $content =~ s/\ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21320	21435	
==>////////////////

      my $content = join ' ', splice @$para, 2;
      $content =~ s/^\s+//s;
      $content =~ s/\ <==
3	/Users/nnunley/parrot/lib/File/Which.pm	5202	5301	
==>e> is the name used in the shell to call the program (for
example, C<perl>).

If it finds an executa <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	12282	12380	
==>t.  If the element type
is C<'@'>, the accessor returns the array element value.  If the
element ty <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	1008	1106	
==>b/Parrot/Distribution.pm', 'lib/Parrot/IO'),
		$self->new_group('Documentation', '', 
            $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164828	165126	
==>{{\@2}}) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165757	166055	
==>{{\@2}}) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166686	166984	
==>{{\@2}}) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327507	327865	
==>=> [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 384,
                  "ARGS" => [
                              "p",
                              "nc"
                            ],
                  "BODY" => "#line 154 \"sr <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	479	588	
==>tes
        @*INC.unshift($path) unless $path eq any(@*INC);
    }
}

# I am purposfully leaving out the archn <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	582	681	
==>rns C<PARROT_CGP_CORE>.

=cut

sub core_type
{
    return 'PARROT_CGP_CORE';
}

=item C<suffix()>

T <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	1222	1325	
==>me\n" if $opt{verbose};
    open my $fh, $direction, $filename or die "$action $filename: $!\n";
    ret <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	22326	22429	
==>me\n" if $opt{verbose};
    open my $fh, $direction, $filename or die "$action $filename: $!\n";
    ret <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	46255	46345	
==>tempos\s*\[/)
		unless $self->{_check}{itempos};
	for (qw(thisoffset thiscolumn prevline pr <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	17646	17751	
==>xit 255;
}

=item B<skip>

    $Test->skip;
    $Test->skip($why);

Skips the current test, reporting $why <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9648	9765	
==>of: aborting.\n";
				return(undef);
			};

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Dicard invalid token <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9215	9327	
==>of: aborting.\n";
				return(undef);
			};

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Dicard invalid token <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2194	2300	
==>@@@@@@@@
1;


__END__

=head1 NAME

Pod::Simple::DumpAsText -- dump Pod-parsing events as text

=head1 SYNO <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	2414	2570	
==>in' => 'compilers/tge/Makefile',
        commentType                   => '#',
        replace_slashes               => 1
    );
    genfile(
        'config <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	10807	10940	
==>hm
    .param num op1
    .param num op2
    if op1 == 0 goto zero_LHS
    op1 = abs op1
    $N1 = op2 / op1
    $I1 = floor $N1
    $ <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	1287	1407	
==>ile::Spec->catfile( $DIR, "*.test" ) );
    for my $file (@files) {
        my $test = substr $file, 0, -3;
        # par <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	25946	26050	
==>n";
		}

		# Generate PIR.
		$pir .= sub_meta($out, $mv, "argument read");
		$mv->{"ARG$arg_num"} = $mv-> <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	27104	27199	
==>te a string representing an optimized pattern (a la Friedl)
# that matches a substring delimited <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	3460	3562	
==>(?:\$)Id:[^\$]+\$/so;
    
    return $has_id;
}

=item C<svn_version()>

Returns the svn version numbe <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63166	63268	
==>,$line,"$code$argcode($1)");

						!$matchrule and $rule and $rule->addcall($name);

						_check_insa <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63887	63989	
==>,$line,"$code$argcode($1)");

						!$matchrule and $rule and $rule->addcall($name);

						_check_insa <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5032	5141	
==>ource
directory.

=cut

sub contents_relative_to_source
{
    my $self = shift;
    my $source = shift;
    my <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3024	3124	
==>ource
directory.

=cut

sub contents_relative_to_source
{
	my $self = shift;
	my $source = shift;
	my <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	3257	3357	
==>g{config_file} );

# Merge Configuration
if ( ! defined $cfg{bench_path} ) {
    $cfg{bench_path} = $ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	14989	15099	
==>",
				
			);
		}
	} else {
		s/INSERT NEW VALUE HERE/$right/g for @$leftexpr;
		s/--TYPE--/$righttype/g for @$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811461	811551	
==>" => "#line 512 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed(interpret <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812363	812453	
==>" => "#line 512 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed(interpret <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5885	6004	
==>defined($$token)
            or	do {
				($$token,$$value)=&$lex($self);
#DBG>				$debug & 0x01
#DBG>			and	print ST <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2364	2481	
==>) ; # just care if it failed, not howm
}

##
## my $var = choose(@vars)
##
## Select the first defined variable.
##
su <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5604	5719	
==>defined($$token)
            or	do {
				($$token,$$value)=&$lex($self);
#DBG>				$debug & 0x01
#DBG>			and	print ST <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	401	492	
==>t is defined to be in the C<package> C<Configure::Step>. See
F<docs/configuration.pod> for m <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6020	6146	
==>ext; # 'const' or 'var'.

      my $type       = Jako::Construct::Type->new($self->require_type);

      $self->INTERNAL_ERROR( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349167	349258	
==>});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, \"+<\");\n  /* string_cstring_free(path <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350169	350260	
==>});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, \"+<\");\n  /* string_cstring_free(path <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24470	24586	
==>],
                  "BODY" => "#line 429 \"src/ops/core.ops\"\n  opcode_t *dest = {{^+1}};\n  PMC * const p = CONTEX <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	978	1072	
==>he MANIFEST (currently MANIFEST and MANIFEST.generated
are used) is:

    source_path <whitespa <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	9372	9476	
==>lid element name"
        if $new_code =~
          m/[\x00-\x2C\x2F\x39\x3B-\x40\x5B-\x5E\x60\x7B-\x7F]/ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10636	10740	
==>lid element name"
        if $new_code =~
          m/[\x00-\x2C\x2F\x39\x3B-\x40\x5B-\x5E\x60\x7B-\x7F]/ <==
3	/Users/nnunley/parrot/lib/File/Which.pm	3861	3952	
==>> (as returned by
C<File::Spec-E<gt>path()>), looking for executable files having the name s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93313	93400	
==>/ops/bit.ops\"\n  string_bitwise_and(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94093	94180	
==>/ops/bit.ops\"\n  string_bitwise_and(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864137	864250	
==>ert(n == ENCODING_BYTES(interpreter, {{\@2}}));\n  }\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	865029	865142	
==>ert(n == ENCODING_BYTES(interpreter, {{\@2}}));\n  }\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	809	915	
==>ads of any files which had
familiar types, but from which descriptions were not obtained.

=back

=head1 TO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557174	557306	
==>),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558557	558689	
==>),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559941	560073	
==>),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcallmethod <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1092935	1093225	
==>perimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "morph",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093737	1094027	
==>perimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "morph",
                  " <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	14364	14541	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

##############################################################################
##
##  stop reading now stop reading now stop reading now stop r <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	16961	17060	
==>do.

# TODO: winge about many kinds of directives in non-resolving =for regions?
# TODO: many?  like <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710725	710818	
==>eter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_printf(interpreter, INTVAL_FMT, (I <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711559	711652	
==>eter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_printf(interpreter, INTVAL_FMT, (I <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	78148	78252	
==>_[2])
		and
		_hint("An unconditional <error> always causes the
		       production containing it to imme <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011364	1011453	
==>ne 39 \"src/ops/sys.ops\"\n  {{\@1}} = Parrot_Run_OS_Command(interpreter, {{\@2}});\n  {{+ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012129	1012218	
==>ne 39 \"src/ops/sys.ops\"\n  {{\@1}} = Parrot_Run_OS_Command(interpreter, {{\@2}});\n  {{+ <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	1295	1411	
==>=> 23;

You must have a plan.


=over 4

=item B<ok>

  ok( $foo eq $bar, $name );
  ok( $foo eq $bar );

ok() is giv <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	57	159	
==>6 Grammar Engine

=head1 SYNOPSIS

In a .t file:

  use Parrot::Test tests => 2;
  use Parrot::Test::PG <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	486	583	
==>$self, $fh, $subname, $rule, $ctx, %options) = @_;

    my $code = Regex::tree_to_list($rule, $ctx <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	762	854	
==>ectory. Defaults to '/usr/bin'.

=item C<libdir>

The library directory. Defaults to '/usr/li <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	991	1083	
==>ectory. Defaults to '/usr/bin'.

=item C<libdir>

The library directory. Defaults to '/usr/li <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19055	19142	
==>item->isa("Parse::RecDescent::Action"))
	{
		$code .= $parser->{_AUTOACTION}->code($name <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	13553	13657	
==>s the C<Pod::Simple::HTML> method to add a footer to the end
of the document.

=cut

sub do_end 
{
    my <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1167	1261	
==>or symbol '$name'...");

  my $sym = $self->block->find_symbol($name);

  $self->SYNTAX_ERROR(" <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	73707	73799	
==>d &$AUTOLOAD;
	my $retval = &{$AUTOLOAD}($_[0],$text,undef,undef,$args);

	if (defined $retva <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15562	15685	
==>pcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new AssignOp( $parser,
        're <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19315	19438	
==>pcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new AssignOp( $parser,
        're <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	4293	4408	
==>_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        & <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163612	163881	
==>PE" => "inline",
                  "CODE" => 197,
                  "ARGS" => [
                              "n",
                              "nc",
                              "ic"
                            ],
                  "BODY" => "#line 183 \"src/ops/cmp. <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10950	11035	
==>_[15],10,0xbd3af235,/* 62 */
II,$c,$d,$a,$b,$_[6],15,0x2ad7d2bb,/* 63 */
II,$b,$c,$d,$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504015	504196	
==>> "#line 631 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504870	505051	
==>> "#line 631 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505725	505906	
==>> "#line 631 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	7450	7667	
==>{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11123	11340	
==>{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	2692	2802	
==>um += unpack("%32C*", $_);
    }
    close($file) or die "Can't close $filename: $!";
    return $sum;
}

=item <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70871	70979	
==>ps/core.ops\"\n\n  {{\@1}} = Parrot_load_lib(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71640	71748	
==>ps/core.ops\"\n\n  {{\@1}} = Parrot_load_lib(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  " <==
3	/Users/nnunley/parrot/config/gen/platform.pm	1152	1256	
==>ated = '' unless defined $generated;
    print " ($generated) " if $verbose;
    print("\n") if defined $ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	10609	10709	
==>ss defined $$textref;
	my $pre  = defined $_[1] ? $_[1] : '\s*';

	my @match = _match_variable($textr <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6997	7126	
==>}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        return ("\$dbg_tmp = \@<rx_stack>;",
                "push \@<rx_st <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621797	621890	
==>t) &= ~SUB_FLAG_TAILCALL;\n\t    --ctx->recursion_depth;\n\t    ctx->caller_ctx = caller_ctx-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29633	29718	
==>t) &= ~SUB_FLAG_TAILCALL;\n\t--ctx->recursion_depth;\n\tctx->caller_ctx = caller_ctx-> <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6447	6552	
==>$reg = value($reg);
    return qq!set $reg, <rx_match>["$group";1] # get group $group end!;
}

sub output_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61896	61987	
==>> "#line 951 \"src/ops/core.ops\"\n  PARROT_ERRORS_on(interpreter, {{\@1}});\n  {{+=2}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62540	62631	
==>> "#line 951 \"src/ops/core.ops\"\n  PARROT_ERRORS_on(interpreter, {{\@1}});\n  {{+=2}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2546	2669	
==>$self = shift;
    my $source = shift || die "No source\n";
    my $target = shift || die "No target\n";
    my $silent = sh <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	2942	3065	
==>$self = shift;
    my $source = shift || die "No source\n";
    my $target = shift || die "No target\n";
    my $silent = sh <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	2390	2513	
==>$self = shift;
    my $source = shift || die "No source\n";
    my $target = shift || die "No target\n";
    my $silent = sh <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722406	722508	
==>rpreter, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_softspace(interpreter, io, 1);\n  }\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723435	723537	
==>rpreter, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_softspace(interpreter, io, 1);\n  }\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724479	724581	
==>rpreter, io, \" \");\n    PIO_putps(interpreter, io, s);\n    PIO_softspace(interpreter, io, 1);\n  }\n <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	62532	62705	
==>"\n";
                die;
            }
        }
        print {$FH} "  # end of prolog\n";
        foreach my $op ( @{$fct} ) {
            $op->visit($generator) un <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	3454	3549	
==>d followed by any parameters that were registered for that
step.

Accepts no arguments and retur <==
3	/Users/nnunley/parrot/lib/File/Which.pm	2429	2589	
==>_$/i } @path_ext[1..$#path_ext])
                                # DOSish systems don't pass -x on non-exe/bat/com files.
                                # so we <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	24714	24890	
==>ibs $PConfig{libs}";
            $exit_code = run_command($cmd,
                                     'STDOUT' => $build_f,
                                     'STDERR' => $buil <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	750	848	
==>. Note that it assumes a gnu-ish C<nm>.

=item C<source>

In C<source> mode, it uses a the C<cxref> <==
3	/Users/nnunley/parrot/tools/dev/cc_flags.pl	1625	1735	
==>inject_point, $where);

foreach (@ARGV) {
  last if $_ eq '';
  ++$where;
}
if ($where) {
  # Found a "" - remo <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54611	54703	
==>sif ($grammar =~ m/(?=$RULEVARPATMK)/gco
				and do { ($code) = extract_codeblock($grammar,'{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	675283	675505	
==>@2}}->vtable->pop_pmc(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	3097	3244	
==>isc functions; Run Ops and Methods.', 
                'pairs' => ['interpreter'], 
                'sources' => [
                    'inter_cb', ' <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	12803	12912	
==>y $test = defined $got || defined $dont_expect;

        $self->ok($test, $name);
        $self->_cmp_diag($go <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	13247	13356	
==>y $test = defined $got || defined $dont_expect;

        $self->ok($test, $name);
        $self->_cmp_diag($go <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2382	2476	
==>ortcut for C<< $token->type() eq "end" >>

=item $token->dump

This returns a handy stringified <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	250056	250297	
==>{{\@1}} = ! {{\@1}};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	17214	17316	
==>@$para, 2; # so it ends up just being ['=item', { attrhash } ]
    return $para->[1]{'~type'} = 'bullet <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1371	1456	
==>Statement::Increment;
use Jako::Construct::Statement::LoopControl;
use Jako::Construct <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	389	500	
==>lf->init();

    return $self;
}

sub init {
}

sub output_header {
}

sub output_rule {
    my ($self, $fh, $su <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	775	866	
==>[/usr/bin/gcc-4.0 -c];
our $LD = qq[c++];
our $LDFLAGS = qq[-L/opt/local/lib -L/usr/local/li <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	779	870	
==>[/usr/bin/gcc-4.0 -c];
our $LD = qq[c++];
our $LDFLAGS = qq[-L/opt/local/lib -L/usr/local/li <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138167	138282	
==>0 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139063	139178	
==>0 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139959	140074	
==>0 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6844	6988	
==>recovery.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push(@$stack,[ $act, $$value ]);

					$$token ne ''	#Don't eat <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6527	6663	
==>recovery.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push(@$stack,[ $act, $$value ]);

					$$token ne ''	#Don't eat <==
3	/Users/nnunley/parrot/tools/util/pirtidy.pl	461	575	
==>$ofh, '>', $outfile;

    my $formatter = new Parrot::PIR::Formatter();

    foreach my $line (<$ifh>) {
      $for <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	17543	17685	
==>temp_pmc;
    UINTVAL    signature_len;

    void       *result        = NULL;
    Hash       *known_frames  = NULL;
    PMC        *HashPointe <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	5468	5593	
==>d $arg->{default}) {
            my $type    = $arg->{type} eq 'int' ? 'TclInt' : 'TclString';
            my $quote   = $arg- <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	42720	42831	
==>gths($colref);

  $self->{code} = '';

  for my $row(@$colref) {
    my $label;
    $label = $row->[0]; $label . <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	249493	249748	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "not",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	250860	251115	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "not",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
3	/Users/nnunley/parrot/config/auto/bc.pm	509	600	
==>gure::Step ':auto', 'capture_output';

$description = 'Determining whether GNU bc is install <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29045	29149	
==>$pattern;
	$desc=~s/\\/\\\\/g;
	$desc=~s/}/\\}/g;
	$desc=~s/{/\\{/g;

	bless 
	{
		"pattern"     => $patt <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31149	31251	
==>$pattern;
	$desc=~s/\\/\\\\/g;
	$desc=~s/}/\\}/g;
	$desc=~s/{/\\{/g;

	bless 
	{
		"pattern"   => $patt <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	671	766	
==>erated C code.

=item C<--renum>

Renumber opcodes according to existing ops in ops/num and natu <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1177	1281	
==>sh
       dot-dash-underline=uldashd    dot-dot-dash-underline=uldashdd     
       double-underline=uldb <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	938	1037	
==>ss];
our $PERL = q[perl];
our $LOAD_EXT = qq[.bundle];
our $O = qq[.o];
our $CFLAGS = qq[-I/opt/loca <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	942	1041	
==>ss];
our $PERL = q[perl];
our $LOAD_EXT = qq[.bundle];
our $O = qq[.o];
our $CFLAGS = qq[-I/opt/loca <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	15712	15841	
==>> 26,
			"*" => 27,
			"[" => 14,
			")" => 56,
			"." => 15
		},
		GOTOS => {
			'expr' => 28,
			'charclass' => 12,
			'range' = <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7794	7886	
==>o the end of list
  $self->_add_inst("FINISH_$label", 'set', [$copy.'[1]',$return]);
  $self- <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54335	54427	
==>\x20\x21\x23\x27-\x3F\x41-\x5B\x5D-\x7E])>
         #<$pretty_form{$1} || '\\x'.(unpack("H2", <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	33268	33402	
==>f ($w->[2] eq 'P') {
	   $ww = temp('I');
	   print <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$v <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	34017	34151	
==>f ($w->[2] eq 'P') {
	   $ww = temp('I');
	   print <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$v <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	34941	35075	
==>f ($w->[2] eq 'P') {
	   $ww = temp('I');
	   print <<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$v <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	729	828	
==>bose = $conf->options->get('verbose');

    # undef means we don't have bison... default to not havi <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4606	4703	
==>pass_charclass");
    my @ops = ("<rx_tmp> = ord(substr(<rx_input>, <rx_pos>)); # tmp = INPUT[pos] <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	10779	10864	
==>izablefloatarray.pmc resizableintegerarray.pmc resizablepmcarray.pmc resizablestringar <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	36117	36241	
==>sts successful
    255                 test died
    any other number    how many failed (including missing or extras)

If yo <==
3	/Users/nnunley/parrot/lib/Test/More.pm	34188	34312	
==>sts successful
    255                 test died
    any other number    how many failed (including missing or extras)

If yo <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2983	3107	
==>sts successful
    255                 test died
    any other number    how many failed (including missing or extras)

If yo <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	19046	19147	
==>ture);

    if (b && b->vtable->base_type == enum_class_UnManagedStruct)
        return F2DPTR(PMC_dat <==
3	/Users/nnunley/parrot/config/auto/gc.pm	213	305	
==>he C<--gc> command-line option was passed to F<Configure.pl>
and sets the memory allocator ac <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	1487	1585	
==>le;

    $exit_code |= Parrot::Test::run_command($cmd, STDOUT => $pirate_out_f);
    $pirate_file = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1014479	1014773	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "err",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TY <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015302	1015596	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "err",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TY <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	4644	4749	
==>gins with a
    # labelled statement. Next, do a reachability analysis to find
    # unreachable basic blo <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	4569	4684	
==>_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        T <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	663	792	
==>tmp( $parser, 'pmc' );
        push @opcodes, new LocalDir( $parser,
            'prolog' => 1,
            'result' => $parser <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	658	770	
==>y ($label) = @_;
    return "onfail $label->[1]";
}

sub output_match {
    my ($byte) = @_;
    return "match '$ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2040	2141	
==>>prefix);
  }

  if ($self->prefix) {
    $handler->start_element({ Name => 'loop', Attributes => { ki <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	39735	39859	
==>make up the link_text
      # L<Foo>     -> L<Foo|Foo>
      # L</Bar>    -> L<"Bar"|Bar>
      # L<Foo/Bar> -> L<"Bar" in Fo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367814	367899	
==>src/ops/io.ops\"\n  {{\@1}} = PIO_reads(interpreter, PIO_STDIN(interpreter), (size_t){ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368606	368691	
==>src/ops/io.ops\"\n  {{\@1}} = PIO_reads(interpreter, PIO_STDIN(interpreter), (size_t){ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	69619	69727	
==>T = 1;
		_hint('Set $::RD_HINT (or -RD_HINT if you\'re using "perl -s")
		       for hints on fixing these pr <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	364	463	
==>Class Methods

=over

=cut

package Parrot::Docs::Section::C;

use strict;
use warnings;

use base q <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	15279	15375	
==>ter, enum_class_ParrotLibrary);
    PMC_struct_val(lib) = (void *) $init_func;
    dynop_register <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	5159	5278	
==>shift;
    my $token = shift;
    my $tagname = $token->tagname;
    my $next = $self->get_token;
    
    if ( $next->t <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5639	5745	
==>S} = concat "\n"
PIR
	}

	return $pir;
}

# Pre and post store operation hooks.
sub pre_store($) {
	my $sel <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4481	4587	
==>S} = concat "\n"
PIR
	}

	return $pir;
}

# Pre and post store operation hooks.
sub pre_store($) {
	my $sel <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7165	7262	
==>reg = value(defined($reg) ? $reg : 'pos');
    return $self->output_pushint($reg);
}

sub output_p <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6807	6904	
==>reg = value(defined($reg) ? $reg : 'pos');
    return $self->output_pushint($reg);
}

sub output_p <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	14346	14440	
==>list of inherited methods for I<$class> by searching the
inheritence tree. The method list is f <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	437	568	
==>eturn bless {
    TOKEN    => $token,
    CODE     => 'S',
    NAME     => 'str',
    IMCC     => 'string',
    IMCC_PMC => 'String' <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	43371	43482	
==>,$class;
}

sub prettyprint {
  my $node  = shift;
  my $depth = shift;

  print ' ' x $depth; print "($node->{v <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	15754	15849	
==>e.
    $cout .= $self->line_directive($method->{line}, $self->{file});
    $cout .= "{$standard_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133595	133852	
==>,
                  "TYPE" => "inline",
                  "CODE" => 164,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 321 \"src/ops/bit.op <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	6796	6898	
==>e;
    s/{{\^-([^{]*?)}}/    $trans->expr_offset(-$1); /me;
    s/{{\^([^{]*?)}}/     $trans->expr_addr <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	2519	2617	
==>which can
work together>.

=head2 Construction

=over 4

=item B<new>

  my $Test = Test::Builder-> <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656844	657205	
==>"FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 734,
                  "ARGS" => [
                              "i",
                              " <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	2625	2727	
==>r to complain to stderr

  'doc_has_started',   # whether we've fired the open-Document event yet

  'b <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	4265	4364	
==>nless $dir = $dir->existing_directory_with_name($name);
    }
    
    return $dir->existing_file_wi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104167	1104360	
==>new_init(interpreter, type, {{\@3}});\n\t{{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105382	1105575	
==>new_init(interpreter, type, {{\@3}});\n\t{{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	4310	4409	
==>line 129 \"src/ops/core.ops\"\n    opcode_t *pc = CUR_OPCODE;\n    DO_OP(pc, interpreter);\n    {{=p <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	115	213	
==>strict;
use vars qw(@EXPORT @ISA);

use Parrot::Config;

require Exporter;
require Parrot::Test;

@ <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	32	130	
==>strict;
use vars qw(@EXPORT @ISA);

use Parrot::Config;

require Exporter;
require Parrot::Test;

@ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	1413	1510	
==>avars);
}

# Generate final translator code.
$pir .= generate_final_pir($srm, $metavars);

# Final <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641763	642112	
==>of",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 717,
                  "ARGS" => [
                              " <==
3	/Users/nnunley/parrot/languages/regex/test.pl	3918	4018	
==>n);
    generate_pbc("test_regex.pir", "test.pbc");
}

sub process {
    my ($input, $output, $testnu <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34067	34191	
==>->{type});
        $ret = "return ret_val;";
    }
    # I think that these will be out by one - NWC
    my $l = $self->line_ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	5405	5514	
==>0)
			{
				_failmsg "Unmatched closing bracket: \"$found\"",
					 pos $$textref;
				pos $$textref = $startp <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	585	674	
==>oken;

use Jako::Construct::Type::Integer;
use Jako::Construct::Type::Number;
use Jako::Co <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	89	188	
==>%usertypes );
use vars qw( %arrays );
use vars qw( $funcname $subname );
use vars qw( %labels $branc <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2513	2611	
==>cognized type '$type' for num '$num' in opcode @{[$op->full_name]}"
        unless exists $arg_maps <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4379	4477	
==>cognized type '$type' for num '$num' in opcode @{[$op->full_name]}"
        unless exists $arg_maps <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5233	5327	
==>_;

    return $self->gen_goto($self->expr_pop(@_));
}

=item C<expr_offset($offset)>

Implemen <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	40794	40906	
==>max_lengths {
  my $colref = shift;
  my @max_len=(0)x3;
  for my $row(@$colref) {
    for(0..$#{$row}) {
      $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826661	826751	
==>_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_num(en <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827731	827821	
==>_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_num(en <==
3	/Users/nnunley/parrot/lib/Test/More.pm	11609	11742	
==>led with no methods');
        return $ok;
    }

    my @nok = ();
    foreach my $method (@methods) {
        local($!, $@);  # don' <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	6105	6202	
==>in your code!

=item L<Test::Harness>

Interprets the output of your test program.

=back


=head1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999882	1000211	
==>",
                  "CODE" => 1117,
                  "ARGS" => [
                              "i",
                              "i",
                              "s",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.o <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18023	18148	
==>ction' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 48
		ACTIONS => {
			"- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733685	733910	
==>.ops\"\n  {{\@1}} = string_to_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734449	734674	
==>.ops\"\n  {{\@1}} = string_to_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	28270	28372	
==>gorithm implemented iteratively!  Whee!

  while($treelet = shift @stack) {
    for($i = 2; $i < @$tree <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548207	548458	
==>hile(i>0) {\n    q = q*i;\n    i--;\n  }\n  {{\@1}} = q;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549114	549365	
==>hile(i>0) {\n    q = q*i;\n    i--;\n  }\n  {{\@1}} = q;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16109	16246	
==>},
	{#State 38
		ACTIONS => {
			"}" => 87,
			"-" => 24,
			'NAME' => 91,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"... <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21605	21721	
==>>;
    #

    if ($token->is_return) {
      my $block = $self->current_block();

      my $value_token = $self->skip <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	2039	2138	
==>ion. If a count is given, then that many tokens
# (at most, given the possibilitiy of running off th <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	619078	619181	
==>\n    lr_types = (lt << 16) | rt;\n    if (lru->u.type == lr_types) {\n\tINTVAL a = lt == enum_class_Int <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	9250	9347	
==>ally unpredictable -- for now. I think some static
# analysis might not be too hard.
package Regex <==
3	/Users/nnunley/parrot/config/auto/signal.pm	332	424	
==>tep::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining some signal st <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10632	10742	
==>e {
        die;
    }
}

sub Regex::Ops::Tree::charclass::render {
    die;
}

sub Regex::Ops::Tree::classpiec <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	8387	8484	
==>de);

Remove a balanced {} construct from the beginning of $code.
Return it and the remaining code <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1744	1843	
==>o parent block.\n", __PACKAGE__;

  foreach my $symbol_name ($self->symbol_names) {
    # TODO: Warn <==
3	/Users/nnunley/parrot/tools/build/vtable_extend.pl	2892	2989	
==>ncs;

print OUT <<'EOF';
/*

=back

=head1 SEE ALSO

See F<include/parrot/extend.h> and F<docs/pdd <==
3	/Users/nnunley/parrot/lib/Test/More.pm	34600	34691	
==>ompared B<as strings>.  This prevents
Test::More from piercing an object's interface allowin <==
3	/Users/nnunley/parrot/config/auto/gdbm.pm	384	509	
==>base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Configure::Step ':auto';

$description = 'Determining if your <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	338	463	
==>base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Configure::Step ':auto';

$description = 'Determining if your <==
3	/Users/nnunley/parrot/config/auto/readline.pm	345	470	
==>base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Configure::Step ':auto';

$description = 'Determining if your <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732189	732412	
==>s/set.ops\"\n  {{\@1}} = (INTVAL)({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732935	733158	
==>s/set.ops\"\n  {{\@1}} = (INTVAL)({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	28265	28359	
==>ram int argc
	eq argc, $_, ${englishname}_ARGOK
	print "Function $englishname received "
	print <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218867	219048	
==>g(interpreter, {{\@1}}), {{\@2}}) > 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219846	220027	
==>g(interpreter, {{\@1}}), {{\@2}}) > 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	1237	1329	
==>Create the C<switch>ed and predereferenced run loop.

=item C<CPrederef>

Create the prederef <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911796	912048	
==>7,
                  "ARGS" => [
                              "i",
                              "sc",
                              "sc"
                            ],
                  "BODY" => "#line 284 \"src/ops/string.ops\"\n    {{\@1}} = string <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	14261	14381	
==>h
strrchr     string.h
strspn      string.h
strstr      string.h
strtod      stdlib.h
strtof      stdlib.h
strtok      st <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2964	3083	
==>t_is_shared')) {
            $conf->data->set(libparrot_ldflags => 'libparrot$(A)');
        }

        # 'link' needs t <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1199	1309	
==>, b, "ar ", b, "\n"
#
# to effect string interpolation.
#

sub compile
{
  my $self = shift;
  my ($compiler) = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490840	491078	
==>LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inc",
                  "FLAGS" => ":base_core" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	491461	491699	
==>LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inc",
                  "FLAGS" => ":base_core" <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31892	32025	
==>e, $out_name);
    }
    my $parameters = $method->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $para <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33469	33602	
==>e, $out_name);
    }
    my $parameters = $method->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $para <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40526	40659	
==>e, $out_name);
    }
    my $parameters = $method->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $para <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	29372	29490	
==>= $tos->[1];
    my ($p, $i);
    for ($i = $n-1; $i >= 0; $i--) {
	$p = temp('P');
	print <<EOC;
	$p = $seq\[$i\] $cmt <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39249	39352	
==>c $meth;
    my $delegate_meth = "PARROT_VTABLE_${umeth}_METHNAME";
    # I think that these will be out <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629444	629543	
==>, class);\n    if (!type) {\n\tParrot_autoload_class(interpreter, class);\n        type = pmc_type(i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060551	1060907	
==>ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1184,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => " <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13807	13909	
==>et', [$return,0]);
  }
  else {
    $self->_add_inst ('', 'typeof', [$return,$item]);
    $self->_add_i <==
3	/Users/nnunley/parrot/tools/dev/manicheck.pl	586	681	
==>sing>, I<expected> and I<extra> files, and
then any extra files are listed.

Files that match th <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636715	636860	
==>sc"
                            ],
                  "BODY" => "#line 107 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637834	637979	
==>sc"
                            ],
                  "BODY" => "#line 107 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= int <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20742	20844	
==>1]);
  for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_generate($node->{children}[$1]);
    $s <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	11390	11528	
==>iles)
    {
        $file->delete;
    }
    
    foreach my $dir ($self->directories)
    {
        $dir->delete;
    }
}

=back

=head1 S <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	1188	1319	
==>>set_source($filename);
  $this->run;
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
#  In case anyo <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	27438	27537	
==>or a specific pair of tags, and consequently
# much faster (i.e. 3 times faster). It uses qr// for b <==
3	/Users/nnunley/parrot/languages/urm/urm-old.pl	1333	1440	
==>os++;
    }
    elsif ($line =~ /(r\d) *<- *(r\d+) *([+-]) *1/) {
	if ($1 ne $2) {print "Syntax error: Regis <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824418	824507	
==>l_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_STRING) {\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825489	825578	
==>l_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_STRING) {\ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3713	3824	
==>group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert X.c -> X.o for all X.c
    compile($_ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3817	3928	
==>group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert X.c -> X.o for all X.c
    compile($_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506581	506760	
==>"#line 636 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507436	507615	
==>"#line 636 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	508291	508470	
==>"#line 636 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946359	946630	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_charset",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947260	947531	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_charset",
                  "FLAGS" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404411	404664	
==>=> 467,
                  "ARGS" => [
                              "s",
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 535 \"src/ops/io.ops\"\n    {{\@1}} = PIO_sock <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	11572	11668	
==>e_charclass($op, $incexc, $lastback);
}

sub rewrite_charclass {
    my ($self, $op, $incexc, $la <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	332	433	
==>rict;
use SRM::Base;
our @ISA = qw/SRM::Base/;

# Constructor. Just base this class on a hash.
sub new <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	238	339	
==>rict;
use SRM::Base;
our @ISA = qw/SRM::Base/;

# Constructor. Just base this class on a hash.
sub new <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	146	247	
==>rict;
use SRM::Base;
our @ISA = qw/SRM::Base/;

# Constructor. Just base this class on a hash.
sub new <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	29257	29374	
==>'arg1'   => $fct,
        'arg2'   => [ $e_start->[0], $e_limit->[0], $e_step->[0] ],
    );
    my $lbl_loop = new <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835659	835765	
==>],
                  "BODY" => "#line 215 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836412	836518	
==>],
                  "BODY" => "#line 215 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59209	59376	
==>> [
                              "i"
                            ],
                  "BODY" => "#line 901 \"src/ops/core.ops\"\n  PARROT_WARNINGS_on(interpreter, {{\@ <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	1876	1971	
==>=> "PMC *final_destination = pmc_new(interpreter, enum_class_UnManagedStruct);",
       t => "ST <==
3	/Users/nnunley/parrot/lib/Test/More.pm	4468	4633	
==>$item eq 'no_diag' ) {
            $Show_Diag = 0;
        }
        else {
            push @cleaned_plan, $item;
        }

        $idx++;
    }

    $Test->plan(@ <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	7464	7589	
==>LOAD_EXT", $libs, \@sources))
          or die "partial link $group$LOAD_EXT failed ($?)\n";
    }
    else {
        1;
    } <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7675	7800	
==>LOAD_EXT", $libs, \@sources))
          or die "partial link $group$LOAD_EXT failed ($?)\n";
    }
    else {
        1;
    } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519690	519936	
==>"#line 739 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520545	520791	
==>"#line 739 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	521400	521646	
==>"#line 739 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	983	1091	
==>require 5.004;

use strict;

use vars qw ( $VERSION $COMPATIBLE $FILENAME );

$VERSION = '1.05';
$COMP <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	953	1054	
==>require 5.004;

use strict;

use vars qw ( $VERSION $COMPATIBLE $FILENAME );

$VERSION = '1.05';
$COMP <==
3	/Users/nnunley/parrot/config/gen/icu.pm	683	777	
==>cuconfig, $without) = $conf->options->get(@args);

    my @icu_headers = qw(ucnv.h utypes.h uch <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	31685	31784	
==>ss).
	elsif ($rule->{'class'} eq 'store') {
		# Does the translator code actually store a value or j <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103992	1104078	
==>n\t\ttype = pmc_type(interpreter, class);\n\t}\n\tif (type <= 0)\n\t\treal_exception(in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105207	1105293	
==>n\t\ttype = pmc_type(interpreter, class);\n\t}\n\tif (type <= 0)\n\t\treal_exception(in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	709564	709939	
==>,
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 796,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221674	221768	
==>=> "#line 484 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_N <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15129	15216	
==>aracter_number{$name})>.

=head1 SEE ALSO

L<perlpod|perlpod>

L<perlpodspec|perlpodspec <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434510	434781	
==>pnp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435525	435796	
==>pnp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	606	694	
==>ch_bracketed($$$$$$);
sub _match_variable($$);
sub _match_codeblock($$$$$$$);
sub _match_ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	2379	2472	
==>l', '', 'languages/regex'),
        $self->new_section('Scheme', 'scheme.html', '', 'languages <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1226	1314	
==>em $token->tag(...)

A shortcut for $token->tagname(...)

=item $token->is_tag(I<somestri <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1656	1744	
==>em $token->tag(...)

A shortcut for $token->tagname(...)

=item $token->is_tag(I<somestri <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293491	293799	
==>{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294367	294675	
==>{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295243	295551	
==>{\@3}}) == 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1630	1751	
==>alue,
				DOTPOS => \$dotpos,
				STACK => [],
				DEBUG => 0,
				CHECK => \$check };

	_CheckParams( [], \%params, <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1575	1690	
==>alue,
				DOTPOS => \$dotpos,
				STACK => [],
				DEBUG => 0,
				CHECK => \$check };

	_CheckParams( [], \%params, <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	56662	56778	
==>thod( $_[0], $_[2], $_[5], $_[6] );
        }
	],
	[#Rule 87
		 'functioncall', 2,
sub
#line 459 "Lua\lua51.yp" <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	2255	2351	
==>enerated file

  languages/snorkfest/snork-compile        [main]bin

and the --bindir=/usr/parrot <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	53876	54008	
==>$_) eq 'HASH') {
      my $hr = $_;
      $x = "{" . join(", ",
        map(pretty($_) . '=>' . pretty($hr->{$_}),
            sort k <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6597	6712	
==>et_mod;
    }

    return 0;
}

sub generate_dump {
    my ($pmc) = @_;

    if (needs_build("$pmc.dump", "$pmc.pmc" <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6808	6923	
==>et_mod;
    }

    return 0;
}

sub generate_dump {
    my ($pmc) = @_;

    if (needs_build("$pmc.dump", "$pmc.pmc" <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	14563	14735	
==>@{ $expr->[1] }, new AssignOp( $parser,
                    'result' => $result,
                    'arg1'   => $nil->[0],
                );
                push @{$ex <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	548	659	
==>MAIN;
	}

	if ($cur =~ /[\d\.]/) {  # Numeric constants
		goto NOTNUM if ($cur eq "." and $next !~ /\d/);
		my $ <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6089	6183	
==>}

=item C<deltrigger($key, $trigger)>

Removes the trigger on C<$key> named by C<$trigger>

Ac <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	18818	18939	
==>ne'},
          "'=begin' only takes one parameter, not several as in '=begin $content'"
        );
        DEBUG and prin <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32206	32315	
==>rg)";
    my $ret = gen_ret($method, $body);
    my $decl = $self->decl($self->{class}, $method, 0);
    # I t <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40828	40937	
==>rg)";
    my $ret = gen_ret($method, $body);
    my $decl = $self->decl($self->{class}, $method, 0);
    # I t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492773	493006	
==>@1}} = intval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493534	493767	
==>@1}} = intval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/config/init/miniparrot.pm	196	293	
==>ation

=head1 DESCRIPTION

Modifies settings to match miniparrot (ANSI C Parrot)'s needs.  This st <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1638	1735	
==>"pbcc: map_ret_abs($addr)\n";

    return "cur_opcode = $addr;\ngoto switch_label";
}

=item C<exp <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	29161	29282	
==>ent donuts" would
result in this structure:

    $tests[22] =    # 23 - 1, since arrays start from 0.
      { ok        => <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	592	692	
==>ed!" unless defined $left;
  confess "Op is not defined!" unless defined $op;
  confess "Right is not <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	604	704	
==>ed!" unless defined $left;
  confess "Op is not defined!" unless defined $op;
  confess "Right is not <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121773	121997	
==>1,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 248 \"src/ops/bit.ops\"\n  /*\n   * lvalue casts are evil <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756750	756922	
==>le->assign_string_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757540	757712	
==>le->assign_string_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5096	5209	
==>AD_EXT failed ($?)\n";

        # Execute permissions on libraries is especially important on
        # some platf <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	5307	5420	
==>AD_EXT failed ($?)\n";

        # Execute permissions on libraries is especially important on
        # some platf <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27792	27900	
==>s}->{dynpmc}) {
        $hout .= 'PARROT_DYNEXT_EXPORT ';
    }
    $hout .= <<"EOC";
void Parrot_${classname <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	4723	4844	
==>{ $t->{args} }) {
            if (UNIVERSAL::isa($arg, 'Regex::Ops::Tree')) {
                # $arg is a reference variab <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	10073	10194	
==>{ $t->{args} }) {
            if (UNIVERSAL::isa($arg, 'Regex::Ops::Tree')) {
                # $arg is a reference variab <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	852	946	
==>ops have labels related to the loop control statements,
and these are kept distinct by applying <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048428	1048706	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049352	1049630	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060213	1060491	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	15113	15225	
==>= 1;  # dest may be NULL to leave run-loop
        }
        elsif ($body =~ s/\brestart\s+ADDRESS\((.*?)\)/{{=$1 <==
3	/Users/nnunley/parrot/languages/pugs/t/pmc.pm	275	386	
==>e, undef) = caller();
    $file =~ /(\w+)\.t$/ or die "malformed file: $file";
    my $type = "Pugs\u$1";

    m <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	153	240	
==>reter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Type/Number.pm 19606 2006-05-3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289559	289920	
==>"FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 337,
                  "ARGS" => [
                              "i",
                              " <==
3	/Users/nnunley/parrot/lib/Test/More.pm	35997	36095	
==>ew other problems).

The goal here is to have a testing utility that's simple to learn,
quick to us <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	21215	21353	
==>$groups{$_}}, @exports;
            }
        }

        # Generate .def file for it.
        # XXX JW Needn't generate these for PMCs in a <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63229	63336	
==>rule->addcall($name);

						_check_insatiable($name,$1,$grammar,$line) if $::RD_CHECK;
					}
				}
				els <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63950	64057	
==>rule->addcall($name);

						_check_insatiable($name,$1,$grammar,$line) if $::RD_CHECK;
					}
				}
				els <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1393	1486	
==>mization -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPA <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1438	1531	
==>mization -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPA <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1442	1535	
==>mization -falign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPA <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218562	218813	
==>DE" => 256,
                  "ARGS" => [
                              "p",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 469 \"src/ops/cmp.ops\"\n  if (string_c <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	12040	12151	
==>are also available.
  </p>

  <p>
    Submitting your own smoke is easy,
  </p>
    
  <pre class="indent2">$ ma <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159929	160283	
==>i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 193,
                  "ARGS" => [
                              "ic",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 176 \"s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947212	947487	
==>{{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "f <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957661	957936	
==>{{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "f <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	7880	7990	
==>en  OLDERR, ">&STDERR" or die "Can't save     stderr" if $err;

    open  STDOUT, ">$out"    or die "Can't redi <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7930	8035	
==>en OLDERR, ">&STDERR" or die "Can't save     stderr" if $err;

    open STDOUT, ">$out" or die "Can't redi <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	765	860	
==>ngs;

use Data::Dumper;
use ExtUtils::Manifest;
use File::Spec;
use Parrot::Revision;
use Parrot <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	8651	8837	
==>ags}->{dynpmc} ? 'PARROT_DYNEXT_EXPORT ' :
                                             'PARROT_API ';
        $extern = "extern ";
	    $newl = " ";
	    $semi = ";";
        $interp = $ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063329	1063422	
==>ODY" => "#line 253 \"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064199	1064292	
==>ODY" => "#line 253 \"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	13085	13194	
==>{
        if(!strcmp(name, full ? p->info->full_name : p->info->name))
            return p->info - ${bs}op_li <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819739	819970	
==>t_entry_type(interpreter, entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820699	820930	
==>t_entry_type(interpreter, entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3289	3403	
==>1, $val2, $dest);
}

sub output_if {
    my ($self, $reg, $dest) = @_;
    $reg = value($reg);
    return "goto " . <==
3	/Users/nnunley/parrot/config/gen/icu.pm	2268	2419	
==>ders .= "${slash}include";
                $without = 1 unless -d $icuheaders;
            }

            if ($without) {
                $self->set_res <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3357	3468	
==>>data->get('linkflags');
            $linkflags =~ s/-opt:\S+//;
            $conf->data->set(linkflags => $link <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4861	4972	
==>>data->get('linkflags');
            $linkflags =~ s/-opt:\S+//;
            $conf->data->set(linkflags => $link <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11686	11850	
==>}
                    push @opcodes, @{ $last_key->[1] };
                    my $assign = new KeyedSetOp( $parser,
                        'arg1'   => $last_key- <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9894	10046	
==>}
                push @opcodes, @{ $last_key->[1] };
                my $assign = new KeyedSetOp( $parser,
                    'arg1'   => $last_key- <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8765	8893	
==>}
        push @opcodes, @{ $last_key->[1] };
        my $assign = new KeyedSetOp( $parser,
            'arg1'   => $last_key- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94393	94723	
==>JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95285	95615	
==>JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96178	96508	
==>JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009446	1009773	
==>FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1126,
                  "ARGS" => [
                              "s",
                              "s" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427955	428192	
==>dispatch_v_pn(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428842	429079	
==>dispatch_v_pn(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/config/init/hints/netbsd.pm	175	289	
==>flags');
    if ($ccflags !~ /-pthread/) {
        $ccflags .= ' -pthread';
    }
    $conf->data->set(ccflags => $ <==
3	/Users/nnunley/parrot/config/init/hints/openbsd.pm	267	381	
==>flags');
    if ($ccflags !~ /-pthread/) {
        $ccflags .= ' -pthread';
    }
    $conf->data->set(ccflags => $ <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1731	1847	
==>sh}urmc";
my $compile = "-c -s";
my $run = "-s";

sub compile_test {
    my $file = shift;

    my $ret = system ("$u <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	1904	2008	
==>h"
END_C

    print $trans->defines;
    print $ops->preamble($trans);

    my $length = length($pf->byte <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8282	8386	
==>self = shift;
    my $path = $self->path_for_directory_with_name(shift) || return;
    
    return unless <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70209	70468	
==>s;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "loadlib",
                  "F <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	3131	3265	
==>n the same line.
        $cmd =~ s/-psl/-npsl/g;	
    }
    foreach (sort keys %$typedefs) {
        $cmd .= " -T $_";
    }
    $cmd . <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22226	22332	
==>d_inst("DONE_$label");
  return $return;
}

sub _op_odd_p {
  my ($self,$node) = @_;
  my $return;
  my $la <==
3	/Users/nnunley/parrot/config/auto/cgoto.pm	1619	1704	
==>b/core_ops_cgp.h: $(OPS_DIR)/core_ops_cgp.c 

$(OPS_DIR)/core_ops_cgp.c : $(OPS_FILES) <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	3508	3612	
==>rt this, a warning will be given if not.
    You can try GNU nm if you want this feature.
--objectname|-o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560548	560647	
==>n  PMC *method_pmc, *object;\n  opcode_t *next = {{^+3}};\n\n  object = {{\@1}};\n  method_pmc = {{\ <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	6	111	
==>/bin/perl
use strict;

my @results = ();
while (<>) {
	if (/^Translated (\d+) types out of (\d+) from <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	6	111	
==>/bin/perl
use strict;

my @results = ();
while (<>) {
	if (/^Translated (\d+) types out of (\d+) from <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	1705	1805	
==>ode->prederef.code + offset_in_ops;
}
#else
#  define prederef_to_opcode(i, pred) (pred ? \\
     ((o <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	14182	14297	
==>ncat     string.h
strncmp     string.h
strncpy     string.h
strpbrk     string.h
strrchr     string.h
strspn      st <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15484	15581	
==>air\n" unless $return =~ /^P/;
  my $value = $self->_generate (_get_arg($node,2));
  $self->_add_i <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15842	15939	
==>air\n" unless $return =~ /^P/;
  my $value = $self->_generate (_get_arg($node,2));
  $self->_add_i <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3518	3626	
==>rot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) = @_;

    #print STDERR "pbcc: map_arg($t <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3317	3425	
==>rot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) = @_;

    #print STDERR "pbcc: map_arg($t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688150	688293	
==>n   {{\@1}}->vtable->delprop(interpreter, {{\@1}}, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688922	689065	
==>n   {{\@1}}->vtable->delprop(interpreter, {{\@1}}, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0, <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23447	23555	
==>1]->{dircount} .  '__'; }

sub new ($$$;$)
{
	my $class = ref($_[0]) || $_[0];
	bless 
	{
		"lookahead" => $_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	908	1008	
==>d by the ops.

=cut

sub defines
{
    return <<END;
#define REL_PC ((size_t)((opcode_t*)cur_opcode - <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1038	1138	
==>d by the ops.

=cut

sub defines
{
    return <<END;
#define REL_PC ((size_t)((opcode_t*)cur_opcode - <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	962	1071	
==>ver 4

=item Missing Parrot API

The API is listed in the public headers but not defined in the Parrot lib.

E <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6537	6644	
==>o.

=cut

sub is_docs_link
{
	my $self = shift;

	# TODO - This needs more thought. I'm trying to work out w <==
3	/Users/nnunley/parrot/config/auto/m4.pm	78	172	
==>593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/m4 - Check whether GNU m4 wor <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715117	715428	
==>_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 802,
                  "ARGS" => [
                              "sc"
                            ],
                  "BODY" => "#lin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449015	449326	
==>se_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 514,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#li <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7500	7629	
==>\n";
    }

    # Mostly copied from Parrot::Test.pm
    foreach ($out, $err) {
        $_ = File::Spec->devnull
            if $_ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	2640	2733	
==>ols/dev/mk_manifests.pl'),
            $self->new_item('', 'tools/dev/mk_manifest_and_skip.pl' <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5713	5827	
==>op @ifstack;
			if ($_ < 0 ) {
				# print "Else was done, skipping...\n";
			} else {
				push @{$code{$seg}->{cod <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8063	8173	
==>op @ifstack;
		if ($_ < 0 ) {
			# print "Else was done, skipping...\n";
		} else {
			push @{$code{$seg}->{cod <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7634	7727	
==>goto PRE_CALL_PLOOP_END_${CURIC}
dec ${ITEMP0}
dec ${ITEMP2}

# Generate name of register to h <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	27821	27931	
==>(
          $para->[1]{'start_line'},
          "=back doesn't take any parameters, but you said =back $content <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	1640	1758	
==>ile eq 'case') {
      $deprecated = $num_tests;
    }
    last READLINE;
  }
  close $test_h
}

my @tests = map {"$tee <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2412	2503	
==>>emit_par( 0) }
sub end_item_bullet { $_[0]->emit_par( 0) }
sub end_item_number { $_[0]->emi <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1980	2071	
==>>emit_par( 0) }
sub end_item_bullet { $_[0]->emit_par( 0) }
sub end_item_number { $_[0]->emi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215703	215972	
==>E" => "function",
                  "CODE" => 253,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 455 \"src/ops/cmp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469207	469384	
==>",
                              "n"
                            ],
                  "BODY" => "#line 385 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\ <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	20225	20346	
==>thout extension.
        $pmcname = $pmcfilename;
        $pmcname =~ s/\.pmc$//;

        # Locate .h file and add everyt <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	1421	1564	
==>',
             'cc_hasjit' => ' -DHAS_JIT -DPPC',
             'cc_inc' => '-I./include',
             'cc_ldflags' => '',
             'cc_o_o <==
3	/Users/nnunley/parrot/config/auto/jit.pm	699	815	
==>niparrot')) {
        $self->set_result('skipped');
        return $self;
    }

    my $verbose = $conf->options->ge <==
3	/Users/nnunley/parrot/config/gen/cpu.pm	611	727	
==>niparrot')) {
        $self->set_result('skipped');
        return $self;
    }

    my $verbose = $conf->options->ge <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	12227	12355	
==>/pre>";
    print OUT page_footer();

    close(OUT);
    close(IN);


    return;

    sub do_filter {
        my ($skip_func) = <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	14570	14667	
==>e the code support for those needs. The
following is a list of future features planned for this mo <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	589	684	
==>int synopsis.

=item C<--no-lines>

Do not generate C<#line> directives in the generated C code. <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	5161	5268	
==>fo->{pod_doc} = $doc;
    }
    do {
	$desc =~ s/^ {0,1}(\S)/  $1/mg; # minimum indent
	&clip_excess_lines($ <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	156	249	
==>s currently alarmingly similar to the generated subs in Parrot::Test.
Perhaps someone can do a <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	254	347	
==>s currently alarmingly similar to the generated subs in Parrot::Test.
Perhaps someone can do a <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	2543	2655	
==>ess $sym;

      if (not UNIVERSAL::isa($sym->type, 'Jako::Construct::Type::String')) {
        my $temp2 = $comp <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	32314	32442	
==>pcodes1, new LocalDir( $parser,
        'result' => $state,
    );
    if (    scalar( @{$exprs} ) == 0
        and scalar( @ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	12016	12120	
==>eturn $self;
}

sub _init_fh_source {
  my($self, $source) = @_;

  #DEBUG > 1 and print "Declaring $sour <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	59197	59291	
==>haracters can be specified for different delimiters.
For example, to specify that '/' is the es <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83896	84186	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84802	85092	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85708	85998	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	7546	7650	
==>call_state *st, int n)
{
    assert(n < st->src.n);
    Parrot_fetch_arg_nci(interpreter, st);

    retur <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	7729	7833	
==>call_state *st, int n)
{
    assert(n < st->src.n);
    Parrot_fetch_arg_nci(interpreter, st);

    retur <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	7911	8015	
==>call_state *st, int n)
{
    assert(n < st->src.n);
    Parrot_fetch_arg_nci(interpreter, st);

    retur <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627504	627757	
==>nterpreter, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628648	628901	
==>nterpreter, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	21969	22111	
==>rite($R, $next);
        my $loop = $self->genlabel('loop');
        my @ops = (
                   aop('pushint', [ 0 ]),
          $loop => @ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2664	2782	
==>st branch operation hooks.
sub pre_branch($) {
	my $self = shift;
	my $pops = shift;
	my $register_num = 0;
	
	# Emit i <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4601	4706	
==>st branch operation hooks.
sub pre_branch($) {
	my $self = shift;
	my $pops = shift;
	my $register_num = 0 <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3017	3122	
==>st branch operation hooks.
sub pre_branch($) {
	my $self = shift;
	my $pops = shift;
	my $register_num = 0 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13637	13757	
==>ntinue'
      # block, so we check for that case.
      #
      # We *always* create a continue block, even when there is <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2903	3005	
==>OSUB Sub2
   PRINT "ERR this line in subroutine one should be skipped"
Label2:
   PRINT "4 back in subr <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16870	16972	
==>OSUB Sub2
   PRINT "ERR this line in subroutine one should be skipped"
Label2:
   PRINT "4 back in subr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650593	650698	
==>/ops/pmc.ops\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtable_max)\n        {{\@1}} = 1;\n    els <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651515	651620	
==>/ops/pmc.ops\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtable_max)\n        {{\@1}} = 1;\n    els <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2236	2330	
==>fier')) {
    my $right_sym = $block->find_symbol($right->value);
    $self->SYNTAX_ERROR("Expr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2194	2288	
==>fier')) {
    my $right_sym = $block->find_symbol($right->value);
    $self->SYNTAX_ERROR("Expr <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2116	2210	
==>fier')) {
    my $right_sym = $block->find_symbol($right->value);
    $self->SYNTAX_ERROR("Expr <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	10089	10199	
==>preter, {{\@$2}}/x;

        if ($op->full_name eq 'new_p_ic') {
            $jit_func = "Parrot_jit_vtable_new <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3214	3317	
==>te_c($_) foreach (@pmcs);

    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_g <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3318	3421	
==>te_c($_) foreach (@pmcs);

    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_g <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	973	1063	
==>)
#define PREG(i) REG_PMC(cur_opcode[i])
#define SREG(i) REG_STR(cur_opcode[i])
#define CON <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1089	1179	
==>)
#define PREG(i) REG_PMC(cur_opcode[i])
#define SREG(i) REG_STR(cur_opcode[i])
#define CON <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302124	302381	
==>= string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303000	303257	
==>= string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303876	304133	
==>= string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11190	11280	
==>ial(a)
	if a then factorial=a*factorial(a-1) else factorial=1
end function
T=factorial(5)
p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434478	434568	
==>s\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435493	435583	
==>s\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638773	638946	
==>RGS" => [
                              "p"
                            ],
                  "BODY" => "#line 128 \"src/ops/pmc.ops\"\n  opcode_t* arg_op;\n  PMC *sig, *class <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	38066	38163	
==>options that can be specified are:

=over 4

=item C<reject =E<gt> $listref>

The list reference c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302113	302358	
==>n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302989	303234	
==>n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303865	304110	
==>n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
3	/Users/nnunley/parrot/config/auto/memalign.pm	270	364	
==>age auto::memalign;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configur <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206475	206565	
==>"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207417	207507	
==>"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2492	2589	
==>{ $_[0]->emit_par( 0) }
sub end_item_text   { $_[0]->emit_par(-2) }

sub emit_par {
  return unles <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	3032	3144	
==>, 1 is inferred.
#

sub get
{
  my $self = shift;
  my ($offset, $count) = @_;

  $offset = 0 unless defined $off <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	7628	7744	
==>+\(\[(.*)\], (.*?), (.*?)\)/) {
		    my ($args, $ar, $kw) = ($1, $2, $3);
		    $args =~ s/[\s']//g;
		    $ar =~ s/ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19190	19286	
==>integer> );

This method sets the size (in half-points, like 26 for 13-point)
that normal paragra <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	13295	13391	
==>os($$textref) = pos($$textref) || 0;
	unless ($$textref =~ m/\G($pre)/gc)
	{
		_failmsg qq{Did no <==
3	/Users/nnunley/parrot/config/auto/memalign.pm	121	215	
==>coke  $

=head1 NAME

config/auto/memalign.pm - Memory Alignment

=head1 DESCRIPTION

Determine <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39463	39825	
==>GDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 50,
                  "ARGS" => [
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 720 \" <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	31533	31669	
==>';

  for(_get_args($node)) {
    $self->_restore ($temp);
    $temp = $self->_generate($_);
    if ($temp =~ /[INS]/) {
      $self->_ad <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7451	7558	
==>g = value($reg);
    return ("$reg = pop \@::STATESTACK;");
}

sub output_refresh {
    my ($self, $reg) = @ <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	7644	7775	
==>err ) {
        $err = "&STDOUT";
    }

    local *OLDOUT if $out;
    local *OLDERR if $err;

    # Save the old filehandles; we m <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7696	7826	
==>err) {
        $err = "&STDOUT";
    }

    local *OLDOUT if $out;
    local *OLDERR if $err;

    # Save the old filehandles; we m <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	5072	5167	
==>ls back to Digest::Perl::MD5 if it
cannot load its object files.

For a detailed Documentation s <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1770	1939	
==>]+)//
                and $str .= $1,
                last;

            s/^\\([\\"'])//
                and $str .= $1,        # backslash, quotation mark, apostrop <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3284	3453	
==>]+)//
                and $str .= $1,
                last;

            s/^\\([\\"'])//
                and $str .= $1,        # backslash, quotation mark, apostrop <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	414	513	
==>ction::Info;

use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Retu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4955	5060	
==>er->emit("  $pmc_reg = $dest");
    $compiler->emit("  global \"$dest_name\" = $pmc_reg");
  }

  return 1 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3018	3123	
==>er->emit("  $pmc_reg = $dest");
    $compiler->emit("  global \"$dest_name\" = $pmc_reg");
  }

  return 1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873697	874147	
==>,
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 991,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic",
                              "i"
                            ],
                  "BODY" => " <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	325	428	
==>a hash.
sub new() {
	my $invocant = shift;
	return bless {}, $invocant;
}

# Pre-translation hook.
sub p <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	233	336	
==>a hash.
sub new() {
	my $invocant = shift;
	return bless {}, $invocant;
}

# Pre-translation hook.
sub p <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2695	2796	
==>lue;
  $dest = $dest->compile($compiler);

  $compiler->emit("  concat $dest, $left, $right");

  if ( <==
3	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	197	283	
==>/build/parrot_config_c.pl 20350 2006-06-25T03:57:27.771662Z petdance  $' =~ /^\$[iI][dD <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22500	22625	
==>istargetted =end $content\n";
        next;
      }
      
      unless($content eq $curr_open->[-1][1]{'target'}) {
        $ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	2414	2523	
==>args;
}

# until there is a working find_lex/store_lex
sub _find_lex {
  my ($self, $symbol) = @_;
  my $retur <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	3525	3628	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub any_errata_seen {  # good for using as an exit() val <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811493	811586	
==>s\"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812395	812488	
==>s\"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}} <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	5565	5679	
==>unpack.\n" );
	return 1;
    }
    Parrot_loadbc(interpreter, pf);

    /* setup P0, stolen from embed.c */
    use <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10956	11043	
==>" => "#line 206 \"src/ops/core.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ct <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11745	11832	
==>" => "#line 206 \"src/ops/core.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ct <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7650	7755	
==>eg = shift;
	my $pir = "";

	# If the destination isn't a register, determine register name now.
	if (!$de <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5768	5873	
==>eg = shift;
	my $pir = "";

	# If the destination isn't a register, determine register name now.
	if (!$de <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	3747	3846	
==>$line = shift;
  my ($return_type, $name, @params) = split ' ', $line;
  unshift @params, $return_ty <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	661	788	
==>_test( '_antlr2.pir', $count )
                    :
                    Parrot::Test::per_test( '_antlr2_no_past.pir', $count ) <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35049	35144	
==>$Parse::RecDescent::lastunexpected;
			}
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent: <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42159	42254	
==>$Parse::RecDescent::lastunexpected;
			}
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033902	1034258	
==>ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1156,
                  "ARGS" => [
                              "sc",
                              "p"
                            ],
                  "BODY" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323763	323930	
==>"i",
                              "p"
                            ],
                  "BODY" => "#line 139 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (UINTVAL)(Parrot_UInt4) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	956	1067	
==>SAL::isa($type, 'Jako::Token')) {
    $token = $type;
    $type = $type->text;
  }
  else {
    $type = $types{$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	32040	32138	
==>) {\n\t/* caller context has results */\n        opcode_t * const results = PMC_cont(cc)->to_ctx->c <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3099	3197	
==>rt X.pmc -> X.dump and X.c and also create any lib-GROUP.c files

    generate_dump($_) foreach (@p <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3203	3301	
==>rt X.pmc -> X.dump and X.c and also create any lib-GROUP.c files

    generate_dump($_) foreach (@p <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	3136	3263	
==>ns, Jako::Token->new(
        $file, $line, 'colon', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^([;])( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710721	710813	
==>erpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_printf(interpreter, INTVAL_FM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711555	711647	
==>erpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_printf(interpreter, INTVAL_FM <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5770	5894	
==>>					 join(',',map { $$_[0] } @$stack).
#DBG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defined($$ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5495	5613	
==>>					 join(',',map { $$_[0] } @$stack).
#DBG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defined($$ <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	590	682	
==>me, version_dir, version_arch_dir
# and inc_version_list code from lib.pm because I am hoping <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5093	5236	
==>= shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  ";
        if ( exists $op->{result} and scalar( @{ $ <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6125	6268	
==>= shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  ";
        if ( exists $op->{result} and scalar( @{ $ <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	2736	2858	
==>onditioned_lines                    => 1
    );
    genfile(
        'config/gen/makefiles/dynoplibs.in' => 'src/dynoplibs/ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	1455	1638	
==>{$_[0]} = $$data;
            }
            else {
                die "Unknown type: ".$type;
            }

            return $_[0];
        };
    }
    # 5.8.0's threads::shared i <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2557	2665	
==>err {
	my($self)=shift;

	${$$self{NBERR}};
}

sub YYRecovering {
	my($self)=shift;

	${$$self{ERRST <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2448	2547	
==>err {
	my($self)=shift;

	${$$self{NBERR}};
}

sub YYRecovering {
	my($self)=shift;

	${$$self{ERRST <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4223	4328	
==>eady loaded ?
		and	return;
	}
	my($fname)=__FILE__;
	my(@drv);
	open(DRV,"<$fname") or die "Report t <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4008	4108	
==>eady loaded ?
		and	return;
	}
	my($fname)=__FILE__;
	my(@drv);
	open(DRV,"<$fname") or die "Report t <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11974	12066	
==>ld appear in a
C<EE<lt>name_or_numE<gt>> sequence, this returns the string that
it stands for <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	3030	3153	
==>$line_count\n";

        # Otherwise, just append it to current method.
        } else {
            $cur_method->{'body'} . <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6526	6621	
==>XTPC} + j
    prop_type_state[${ITEMP0}] = ${STYPES}
    prop_stack_depth[${ITEMP0}] = stack_dep <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4464	4559	
==>XTPC} + j
    prop_type_state[${ITEMP0}] = ${STYPES}
    prop_stack_depth[${ITEMP0}] = stack_dep <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	19451	19592	
==>$level + 2 );
                my $test_func = "${package}::${prefix}_${meth}";
                $test_func->( @remaining );
                $bu <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	31202	31301	
==>ould not use
# "L<B<Foo::Bar>>".
#
# Note, however, that formatting codes and Z<>'s can occur in any <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1705	1801	
==>TDERR "%s: About to copy symbol table to parent block.\n", __PACKAGE__;

  foreach my $symbol_nam <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	32436	32650	
==>edIntegerArray);\n    else\n        {{\@1}} = sig;\n    {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	4156	4268	
==>f->type->code : 'v';

    foreach my $arg ($self->args) {
      my ($arg_type, $arg_name) = @$arg;
      my $imcc <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5831	5927	
==>, "IFBRANCH_$_:\n";
			}
			while($_=pop(@{$elsestack->{$elsetag}})) {
				push @{$code{$seg}->{c <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8177	8270	
==>, "IFBRANCH_$_:\n";
		}
		while($_=pop(@{$elsestack->{$elsetag}})) {
			push @{$code{$seg}->{c <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	2213	2334	
==>"]  = <<"END_PIR"             # not equal
    $I100 = isne %1, %2
    %1 = $I100
END_PIR

    $P0[unicode:"dyadic:\u2264"] <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	9261	9370	
==>";
  flock $fh, LOCK_EX
    or die "Couldn't flock \"@{[ BUCKET ]}\": $!\n";

  my $data   = eval { fd_retriev <==
3	/Users/nnunley/parrot/config/init/hints/vms.pm	266	359	
==>axed_ANSI/Prefix=All/Obj=.obj/NoList/NOANSI_ALIAS/include="./include"},
        perl    => "MC <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	1721	1808	
==>ent -I/usr/local/include -I/opt/local/include -pipe -fno-common -Wno-long-double  -I /op <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1109	1196	
==>ent -I/usr/local/include -I/opt/local/include -pipe -fno-common -Wno-long-double  -I /op <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1113	1200	
==>ent -I/usr/local/include -I/opt/local/include -pipe -fno-common -Wno-long-double  -I /op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088325	1088622	
==>,
                  "NAME" => "slice",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089272	1089569	
==>,
                  "NAME" => "slice",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	5959	6057	
==>5 times faster.
You can only encrypt Data up to one million bytes in an acceptable time. But it's v <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	18456	18562	
==>terpreter, signature, 1, 1);
       signature_len = string_length(interpreter, signature);
    }

    iglob <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3699	3800	
==>lue)=splice(@$inarray,0,2)) {
        $prm=uc($prm);
			exists($$checklist{$prm})
		or	croak("Unkno <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3507	3605	
==>lue)=splice(@$inarray,0,2)) {
        $prm=uc($prm);
			exists($$checklist{$prm})
		or	croak("Unkno <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	40112	40295	
==>anchOp') ) {
                if ( $op->{result} eq 'break' ) {
                    $parser->Error("no loop to break\n");
                }
            }
        }
        unshift <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39043	39202	
==>anchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $parser->Error("no loop to break\n");
            }
        }
    }
    unshift <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20686	20828	
==>,
               @R_ops,
               aop('add', [ $matchcount, 1 ]),
     $check => aop('lt', [ $matchcount, $min, $local_back ]),
      $ne <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499483	499625	
==>c/ops/math.ops\"\n  {{\@1}} = floatval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500246	500388	
==>c/ops/math.ops\"\n  {{\@1}} = floatval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/config/inter/lex.pm	2125	2237	
==>ing assume that this is flex.
    # flex calls it self by $0 so it will claim to be lex if invoked as `lex`
    i <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9133	9286	
==>tus = 1;
            &$error($self);
                $$errstatus # if 0, then YYErrok has been called
            or  next;       # so continue parsing <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8720	8870	
==>tus = 1;
            &$error($self);
                $$errstatus # if 0, then YYErrok has been called
            or  next;       # so continue parsing <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16992	17118	
==>on' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 41
		ACTIONS => {
			"-" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733698	733921	
==>@1}} = string_to_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734462	734685	
==>@1}} = string_to_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	5093	5219	
==>$text = $2;
      next;
    }

    if ($text =~ m{^( == | >= | <= | != | < | > )(.*)$}x) {
      push @tokens, Jako::Token->new <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	4421	4555	
==>\n";
            $out .= "       else { croak 'Initializer for $name must be hash or $type reference' }\n";
            $out .= "    }\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065068	1065161	
==>ODY" => "#line 260 \"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065942	1066035	
==>ODY" => "#line 260 \"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	4	109	
==>sr/bin/perl
use strict;

my @results = ();
while (<>) {
	if (/^Translated (\d+) types out of (\d+) fr <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	4	109	
==>sr/bin/perl
use strict;

my @results = ();
while (<>) {
	if (/^Translated (\d+) types out of (\d+) fr <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	18939	19039	
==>r than O(n).
	my $pir = <<PIRCODE;
	# Translation code dispatch table.
	cur_ic = bc.read_uint8()
	nex <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	757	852	
==>stuff
our $CC = qq[/usr/bin/gcc-4.0 -c];
our $LD = qq[c++];
our $LDFLAGS = qq[-L/opt/local/lib - <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	761	856	
==>stuff
our $CC = qq[/usr/bin/gcc-4.0 -c];
our $LD = qq[c++];
our $LDFLAGS = qq[-L/opt/local/lib - <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	15556	15684	
==>55,
			'charclass' => 12
		}
	},
	{#State 38
		ACTIONS => {
			"?" => 23,
			'CHAR' => 4,
			"<" => 22,
			"+" => 24,
			'CODE' = <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	883	972	
==>DE cur_opcode
#define IREG(i) REG_INT(cur_opcode[i])
#define NREG(i) REG_NUM(cur_opcode[i] <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	999	1088	
==>DE cur_opcode
#define IREG(i) REG_INT(cur_opcode[i])
#define NREG(i) REG_NUM(cur_opcode[i] <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	262	371	
==>magical enum fixup.
our @need_enum_fix = (
    qw/2E 2F 30 31 32 33 34 35 36 37 3B 3C 3D 3E 3F 40 41 42 43 44/ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2942	3043	
==>A0}{ } if Pod::Simple::ASCII;
  print {$self->{'output_fh'}} $out,
    #"\n"
  ;
  $self->{'Thispara'} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2476	2569	
==>A0}{ } if Pod::Simple::ASCII;
  print {$self->{'output_fh'}} $out, "\n";
  $self->{'Thispara'} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94369	94688	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95261	95580	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96154	96473	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	1117	1224	
==>e represented by short one or two letter
descriptors.

Op Direction:

    i   The argument is incoming
    o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033239	1033338	
==>preter->ctx);\n    STRING * const lex_name = {{\@1}};\n    PMC * const lex_pad = Parrot_find_pad(int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034337	1034436	
==>preter->ctx);\n    STRING * const lex_name = {{\@1}};\n    PMC * const lex_pad = Parrot_find_pad(int <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	464	563	
==>OBJFILES

=head1 DESCRIPTION

=head1 TODO

* Tell if there are funcs without docs

* Generate docs f <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	1951	2044	
==>d' => 'POD documentation',
	'prd' => 'Parse::RecDescent grammar file',
	'ps' => 'Postscript co <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	1759	1883	
==>/ ) ) {	# Comments
		append;
		fetch;
		while($cur ne -1 and $cur ne "\n") {
			append;	
			fetch;
		}
		emit("COMM");
		fetc <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	1331	1435	
==>conf->data->add(' ', linkflags => '-L/sw/lib');
            $conf->data->add(' ', ldflags   => '-L/sw/lib <==
3	/Users/nnunley/parrot/config/auto/readline.pm	1420	1524	
==>conf->data->add(' ', linkflags => '-L/sw/lib');
            $conf->data->add(' ', ldflags   => '-L/sw/lib <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31867	31978	
==>self->{methods}[$n], $line, $out_name);
    }
    my $parameters = $method->{parameters};
    my $n=0;
    my @a <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33444	33555	
==>self->{methods}[$n], $line, $out_name);
    }
    my $parameters = $method->{parameters};
    my $n=0;
    my @a <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40501	40612	
==>self->{methods}[$n], $line, $out_name);
    }
    my $parameters = $method->{parameters};
    my $n=0;
    my @a <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	882	1050	
==>eturn $ctx->{$var};
    } else {
        return '$' . $var;
    }
}

############### SIMPLE OUTPUT ##############

sub output_goto {
    my ($self, $where) = @_;
    ret <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	8735	8834	
==>e::nop;
sub minlen { 0 }
sub maxlen { 0 }

package Regex::Ops::Tree::check;
sub minlen { $_[0]->{arg <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59524	59613	
==>prod->check_pending($line) if $prod;
			$prod = new Parse::RecDescent::Production($line,1, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782925	783223	
==>AGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 884,
                  "ARGS" = <==
3	/Users/nnunley/parrot/tools/dev/symlink.pl	1714	1830	
==>cfile) {
		warn "$self: cannot find $dstfile\n";
		next;
	    }
	    push @srcfiles, $srcfile;
	    if (@manifile > 1 <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	1224	1320	
==>File::Find;
use File::Spec;


my %defined_in;
my %referenced_in;
my %ansi_c89_symbol;
my %ansi_c8 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088028	1088384	
==>ntal" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice",
                  "FL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090982	1091338	
==>ntal" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice",
                  "FL <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	43287	43410	
==>=> [],
    gensym   => 0,
    functions=> [],
    scope    => {},
  };
  bless $self,$class;
}

sub prettyprint {
  my $node <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088956	1089264	
==>3}}, 0);\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089904	1090212	
==>3}}, 0);\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	250	342	
==>print join("\n", @c), "\n====================== $tn\n" if @c;
	$tn++;
	open(OF, ">_testsuite. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450642	450880	
==>"inline",
                  "CODE" => 516,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 200 \"src/ops/math.ops\"\n  {{\ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	1032	1134	
==>hod =~ /HASH/;
    $DB::single = 1 if $method eq "output_";
    return $self->$method(@{ $op->{args} }) <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	2056	2176	
==>->set_result('no');
        return $self;
    }

    # if '--version' returns a string assume that this is bison.
    # i <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5784	5916	
==>',map { $$_[0] } @$stack).
#DBG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defined($$token)
            or <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5509	5634	
==>',map { $$_[0] } @$stack).
#DBG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defined($$token)
            or <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946519	946783	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "find_charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947420	947684	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "find_charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3492	3600	
==>$tests{$name} = [$expl, $body, $out];
    }

    return %tests;
}

##
## $preamble = extract_preamble($string <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5533	5633	
==>, $self->output_label_def($passLabel);
    return @ops;
}

sub output_initgroup {
    my ($self, $gro <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5226	5326	
==>, $self->output_label_def($passLabel);
    return @ops;
}

sub output_initgroup {
    my ($self, $gro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462288	462735	
==>base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 530,
                  "ARGS" => [
                              "n",
                              "n",
                              "n"
                            ],
                  "B <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5212	5321	
==>t;
  my $op    = $self->op;
  my $right = $self->right;

  $handler->start_element({ Name => 'assign' });
  $d <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3275	3384	
==>t;
  my $op    = $self->op;
  my $right = $self->right;

  $handler->start_element({ Name => 'assign' });
  $d <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1981	2085	
==>$self->kind;
  my $name  = $self->ident ? $self->ident->value : undef;
  my $cond  = $self->cond;
  my $l <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3097	3201	
==>$self->kind;
  my $name  = $self->ident ? $self->ident->value : undef;
  my $cond  = $self->cond;
  my $l <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	56680	56780	
==>/$COMMITMK/gco)
			{
				_parse("an commit marker", $aftererror,$line);
				$item = new Parse::RecDes <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	639997	640238	
==>ent_args = NULL;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	4067	4173	
==>ll_name;
}

=item C<arg_types()>

Returns the types of the op's arguments.

=cut

sub arg_types
{
    my $s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663767	664086	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664539	664858	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGD <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665315	665634	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGD <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	1903	1989	
==>nline -Wpointer-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wno-u <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1268	1354	
==>nline -Wpointer-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wno-u <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1272	1358	
==>nline -Wpointer-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wno-u <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	537038	537295	
==>],
                  "TYPE" => "inline",
                  "CODE" => 621,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 956 \"src/ops/math. <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	5696	5806	
==>y (@files) = @_ ? @_ : glob File::Spec->catfile( $DIR, '*.t' ) ;

    if (@files) {
        return runtests(@fi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	398	511	
==>::Block::Conditional);

#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $left, $op, $right) = @_;

  con <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	410	523	
==>::Block::Conditional);

#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $left, $op, $right) = @_;

  con <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	2755	2859	
==>ot::Configure> object.

=cut

sub add_step
{
    my ($self, $step, @params) = @_;

    push @{$self->{ste <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	16034	16211	
==>TEM}) {
                unlink $out_f;
            }

            return $pass;
        };
    }

    my %pir_2_pasm_test_map = (
        pir_2_pasm_is      => 'is_eq',
        p <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5513	5614	
==>sh($base)>

Returns the C code following the run core function.

=cut

sub run_core_finish
{
    my ($ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3849	3950	
==>sh($base)>

Returns the C code following the run core function.

=cut

sub run_core_finish
{
    my ($ <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2814	2947	
==>escape sequence $_ .\n"),
                last;
        }
    }

    $parser->Error("Untermined string.\n");
    $parser->YYData <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4329	4462	
==>escape sequence $_ .\n"),
                last;
        }
    }

    $parser->Error("Untermined string.\n");
    $parser->YYData <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7509	7601	
==>lf->_add_inst('', 'eq', [$type,'.Undef',"FINISH_$label"]);

  $temp = $self->_new_pair;
  $se <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2920	3027	
==>"\n");
  $out =~ tr{\xA0}{ } if Pod::Simple::ASCII;
  print {$self->{'output_fh'}} $out,
    #"\n"
  ;
  $se <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2454	2553	
==>"\n");
  $out =~ tr{\xA0}{ } if Pod::Simple::ASCII;
  print {$self->{'output_fh'}} $out, "\n";
  $se <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	1145	1295	
==>elf )
        {
            bless $instance_for_path{$path}, $self;
        }
        
        return $instance_for_path{$path};
    }
    
    my ($vo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	799	891	
==>pe) . ") is not!"   if defined $type and not UNIVERSAL::isa($type, qw(Jako::Construct::Type)) <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	681	771	
==>pe) . ") is not!" if defined $type and not UNIVERSAL::isa($type, qw(Jako::Construct::Type)) <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21734	21841	
==>t "Second"
		else 
			print "Third"
		end if
	end if
	print "First, and every"
	bump=bump-1
	goto LOOPY
LAST <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	40967	41064	
==>refix) removed from it.

In a void context, the input text just has the matched substring (and
any <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1867	1999	
==>arget, $source) = @_;

    return
        "$CC $CFLAGS " .
        "-o " . $target . " " .
        "-I" . $PATHQUOTE . '/Users/nnunle <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2163	2295	
==>arget, $source) = @_;

    return
        "$CC $CFLAGS " .
        "-o " . $target . " " .
        "-I" . $PATHQUOTE . '/Users/nnunle <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1958	2090	
==>arget, $source) = @_;

    return
        "$CC $CFLAGS " .
        "-o " . $target . " " .
        "-I" . $PATHQUOTE . '/Users/nnunle <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	4243	4380	
==>> 5,
                  "ARGS" => [],
                  "BODY" => "#line 129 \"src/ops/core.ops\"\n    opcode_t *pc = CUR_OPCODE;\n    DO_O <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41786	41906	
==>rator: ['
						  . $self->describe
						  . ']>>},
						  Parse::RecDescent::_tracefirst($text),
						  q{' . $rule-> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	3836	3942	
==>*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, $1 eq '{' ? 'open-brace' : 'close-brace <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	20855	20967	
==>to INS_NOT_FOUND_ERROR\n";

        # We may need to bulid second byte dispatch tables.
        foreach (keys %by <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11786	11893	
==>op> <value>;
    #

    if ($token->is_ident and $self->get(1)->is_concat_assign) {
      my $block = $self- <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	2473	2579	
==>art of this module
sub new {
	my $class = shift;
	bless {}, ref($class) || $class;
}

sub reset {
	my $self <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	910	1023	
==>my $lang_fn        = Parrot::Test::per_test( '.HQ9plus', $count );
        my $out_fn         = Parrot::Test::per_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3763	3854	
==>lf->SYNTAX_ERROR("Sub declaration has no fnlib property, and parent module has no fnlib prop <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6427	6518	
==>lf->SYNTAX_ERROR("Sub declaration has no fnlib property, and parent module has no fnlib prop <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732209	732463	
==>}} = (INTVAL)({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732955	733209	
==>}} = (INTVAL)({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	18866	18976	
==>atch_version
{
    my $self = shift;

    $self->{VERSION} =~ m/^\d+\.\d+\.(\d+)/;

    return $1;
}

=item C<p <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	637	740	
==>g FreeBSD) have ""s embedded in their substution values. q[] is used in
# some places as Win32 paths hav <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	595	698	
==>g FreeBSD) have ""s embedded in their substution values. q[] is used in
# some places as Win32 paths hav <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	599	702	
==>g FreeBSD) have ""s embedded in their substution values. q[] is used in
# some places as Win32 paths hav <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1116	1217	
==>ent stack types array size.
${ITEMP0} = elements ${STYPES}
PIR

	# Do code for each pop. Need to set u <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2826	2927	
==>ent stack types array size.
${ITEMP0} = elements ${STYPES}
PIR

	# Do code for each pop. Need to set u <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	18445	18543	
==>he ability for compile time class creation.

Modified by Damian Conway, 1999-03-05, v0.58.

    Add <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223502	223637	
==>"
                            ],
                  "BODY" => "#line 516 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224444	224579	
==>"
                            ],
                  "BODY" => "#line 516 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpre <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5202	5330	
==>val { $ret->can('result'); };
        # if not, report the result and return
        if ($@) {
            my $result = $step->re <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25010	25126	
==>n,$temp]);
      $self->_restore($temp);
    }
  }
  return $return;
}

sub _op_minus {
  my ($self,$node) = @_;
  my <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1282	1391	
==>rg_name, $arg_token) = @$arg;
    my $sym = Jako::Symbol->new($self, 'local', 'arg', $arg_type, $arg_name, und <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	293	406	
==>gure->new;
    my $data = $conf->data;
    my $options = $conf->options;
    my @steps = $conf->steps;
    $conf-> <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	4372	4477	
==>elf->{Original_Pid} = $$;

    share($self->{Curr_Test});
    $self->{Curr_Test}    = 0;
    $self->{Test_ <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	1513	1619	
==>(<DATA>) {
    next if /^\s*#/; chomp;
    my ($symbol, $file) = /(\S+)\s+(\S+)/;
    $ansi_c89_symbol{$sym <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1962	2065	
==>a L<Parrot::Configure::Data> object.

=cut

sub options
{
    my $self = shift;

    return $self->{opti <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	250112	250350	
==>LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "not",
                  "FLAGS" => ":base_core" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	251511	251749	
==>LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "not",
                  "FLAGS" => ":base_core" <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	5756	5856	
==>s $ParrotAPI{$api} || $api =~ $ParrotPrefix) {
	push @UnParrotAPI, $api;
    }
}

if (@NoParrotAPI) { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887627	888140	
==>,
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1004,
                  "ARGS" => [
                              "s",
                              "s",
                              "i",
                              "i",
                              "s"
                            ],
                  " <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2078	2303	
==>/
                and $str .= "\b",      # backspace
                last;
            s/^\\f//
                and $str .= "\f",      # form feed
                last;
            s/^\\n//
                and $str .= " <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3592	3817	
==>/
                and $str .= "\b",      # backspace
                last;
            s/^\\f//
                and $str .= "\f",      # form feed
                last;
            s/^\\n//
                and $str .= " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13351	13494	
==>( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "jsr",
                  "FLAGS" => ":base_ <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	4364	4491	
==>out .= "            { \$r->$elem = \$init{'$name'} } $cmt\n";
            $out .= "       else { croak 'Initializer for $name mu <==
3	/Users/nnunley/parrot/config/init/hints/cygwin.pm	114	226	
==>0975Z coke  $

package init::hints::cygwin;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    # cygwin <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	8704	8806	
==>reter, st, "I");
    UVal_int(st->val) = val;
    Parrot_convert_arg(interpreter, st);
    Parrot_store <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5112	5244	
==>y ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  ";
        if ( exists $op->{result} and scalar( @{ $op->{res <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6144	6276	
==>y ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  ";
        if ( exists $op->{result} and scalar( @{ $op->{res <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	3649	3743	
==>r', Attributes => { type => $self->type->name, name => $self->name } });
  $handler->end_elemen <==
3	/Users/nnunley/parrot/config/init/hints/netbsd.pm	202	318	
==>~ /-pthread/) {
        $ccflags .= ' -pthread';
    }
    $conf->data->set(ccflags => $ccflags);

    my $libs = $co <==
3	/Users/nnunley/parrot/config/init/hints/openbsd.pm	294	410	
==>~ /-pthread/) {
        $ccflags .= ' -pthread';
    }
    $conf->data->set(ccflags => $ccflags);

    my $libs = $co <==
3	/Users/nnunley/parrot/lib/File/Which.pm	483	583	
==>he empty string is used
# because 'perl' . '' eq 'perl' => easier
my @path_ext = ('');
if ($Is_DOSish <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4548	4663	
==>ation hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If the destination is n <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7588	7702	
==>ation hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If the destination isn <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5706	5820	
==>ation hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If the destination isn <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6245	6350	
==>n"
A$(3) = "Chicago"
A$(4) = "Seattle"
Max = 4 'UBOUND(A$)
Exchange=TRUE           ' Force first pass thro <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15898	16003	
==>n"
A$(3) = "Chicago"
A$(4) = "Seattle"
Max = 4 'UBOUND(A$)
Exchange=TRUE           ' Force first pass thro <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	3915	4017	
==>ir unique prefixes,
and one leading dash ("-") can be used instead of two ("--").
__EOF__
}

if ($^O eq <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1377	1478	
==>ck depth and a string for label gen and some
	# storage for stack depths and stack type states that we <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	464	565	
==>ck depth and a string for label gen and some
	# storage for stack depths and stack type states that we <==
3	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	1776	1871	
==>oot\n";
}

=back

=head2 Instance Methods

=over 4

=item C<c_source_file_directories()>

Return <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	10238	10356	
==>extra_preamble_ref},
            "t_$temp_num = (int)GET_NCI_I($reg_num);";
        return "t_$temp_num";
    };
    /3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161686	162074	
==>",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 195,
                  "ARGS" => [
                              "n",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 183 \ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	13596	13731	
==>~Para', {'start_line' => $m, '~cooked' => 1},
        #['~Top', {'start_line' => $m},
        $_
        #]
        ],
        @{$self-> <==
3	/Users/nnunley/parrot/lib/Test/More.pm	5566	5664	
==>cript, simply search for "simple
exponential".

All test functions take a name argument.  It's opti <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	14939	15071	
==>_part
        }
        else {
            my $sub_meth_decl = $self->decl($classname, $method);
            my $sub_meth_decl_h = $s <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	2810	2919	
==>return 7  if ($op eq "not");
	return 10 if ($op eq "=");
	return 10 if ($op eq ">=");
	return 10 if ($op eq "< <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60620	60760	
==>ps/core.ops\"\n  PARROT_WARNINGS_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61270	61410	
==>ps/core.ops\"\n  PARROT_WARNINGS_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	5947	6047	
==>(lower is better)\n";
}
else {
    print "Numbers are relative to the first one. (lower is better)\n" <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2363	2462	
==>($file, $source);
    check_mandatory_boilerplate($file, $source);

    # The following SHOULD apply <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	43254	43345	
==>\{.*\}\s*\Z/;
		$self->{_AUTOACTION}
			= new Parse::RecDescent::Action($sourcecode,0,-1)
	} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	894822	895024	
==>"i",
                              "ic",
                              "sc"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interp <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	33806	33919	
==>ub SLICE_plus_3 {
    return Slice(@_, 3);
}

sub Store_Slice
{
    my ($n, $c, $cmt, $sl_n) = @_;
    my ($v, $w, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1195	1304	
==>k->push_content($self);

  return $self;
}

sub dest  { return shift->{DEST};  }
sub left  { return shift->{LE <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1186	1295	
==>k->push_content($self);

  return $self;
}

sub dest  { return shift->{DEST};  }
sub left  { return shift->{LE <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1075	1184	
==>k->push_content($self);

  return $self;
}

sub dest  { return shift->{DEST};  }
sub left  { return shift->{LE <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	909	1007	
==>{  $_[0]{'Thispara'} = '' }
sub start_head1 {  $_[0]{'Thispara'} = '' }
sub start_head2 {  $_[0]{'T <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22681	22774	
==>self->_add_inst("DONE_$label");
  $self->_restore($temp_0,$temp_1);
  return $return;
}

sub _ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23182	23275	
==>self->_add_inst("DONE_$label");
  $self->_restore($temp_0,$temp_1);
  return $return;
}

sub _ <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1932	2040	
==>"TEST FAILED: $file ($ret)\n";
	return;
	}
    print "OK: $file\n";
}

sub run_test {
    my ($file, $expect) <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	1803	1901	
==>e printed along with the "ok/not
ok" to make it easier to find your test when if fails (just search <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1822	1928	
==>->block;
  my $name  = $self->ident ? $self->ident->value : undef;
  my $cond  = $self->cond;
  my $left  = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2427	2533	
==>->block;
  my $name  = $self->ident ? $self->ident->value : undef;
  my $cond  = $self->cond;
  my $left  = <==
3	/Users/nnunley/parrot/languages/regex/test.pl	939	1039	
==>UT and OUTPUT
  sections, where an INPUT: section begins with the string 'INPUT:' on
  a line by itse <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9373	9482	
==>:todo(1));
  is(2 + 2, 5, desc => '2 and 2 make 5', todo => 1);
  isa_ok({'one' => 1}, 'Hash', :todo(1));

  u <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712280	712375	
==>Y" => "#line 59 \"src/ops/python.ops\"\n  PMC * const io = PIO_STDOUT(interpreter);\n  STRING *s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713387	713482	
==>Y" => "#line 59 \"src/ops/python.ops\"\n  PMC * const io = PIO_STDOUT(interpreter);\n  STRING *s <==
3	/Users/nnunley/parrot/config/init/hints/solaris.pm	1445	1598	
==>}) {
            $link = 'g++';
        } else {
            $link =~ s/\bcc\b/CC/;
        }
        $conf->data->set(link => $link);
        $conf->data <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	1068	1176	
==>y $lexer = sub {
#        print "TOK($vals->[0]) TYPE($types->[0])\n" if @$vals;
        return shift(@$types <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	2655	2750	
==>saved and passed to the registered class's C<runstep()> method.

Accepts a list and returns a L< <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	2686	2784	
==>r the various
directives have been replaced.

=head2 PMC File Syntax

The basic syntax of a PMC fil <==
3	/Users/nnunley/parrot/tools/build/revision_c.pl	812	906	
==>fig_revision(void);

int Parrot_revision(void)
{
    return ${Parrot::Revision::current};
}

in <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	533	622	
==>$Parse::RecDescent::expected;
	$Parse::RecDescent::expected =~ s/_/ /g;
	if (!$Parse::RecD <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2589	2691	
==>'infix', name => $self->op } });
    $self->left->sax($handler);
    $self->right->sax($handler);
    $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2466	2568	
==>'infix', name => $self->op } });
    $self->left->sax($handler);
    $self->right->sax($handler);
    $ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	14124	14219	
==>$item)>

Writes an HTML version of the file specified by C<$rel_path> in
C<$source> to the equiv <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	316	424	
==>E

tools/dev/mk_manifests.pl - Generate MANIFEST.* files for building RPMs

=head1 SYNOPSIS

    % perl tools <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20336	20439	
==>_ident and $self->get(1)->is_assign) {
      my $block = $self->current_block();
      my $left = Jako:: <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	5525	5623	
==>expect "Ok"
i$="N"
if i$="N" then goto 35
end
35 print "Ok"
end

' Compilation bug, expect "Ok"
dim <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649976	650232	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "valid_type",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650897	651153	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "valid_type",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	528	627	
==>$data->clean;
    $data->settrigger($key, $trigger, $cb);
    $data->gettriggers($key);
    $data->g <==
3	/Users/nnunley/parrot/tools/dev/run_indent.pl	493	602	
==>pecified C source files have correct
indentation.

You will need to have C<C::Scan> installed to run this. Use <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2790	2878	
==>ative_to_source($source))
	{
		$index_html .= $content->write_html($source, $target, $sil <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465150	465392	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ], <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465771	466013	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ], <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21383	21519	
==>'primary' => 28
		}
	},
	{#State 66
		ACTIONS => {
			'NAME' => 120
		}
	},
	{#State 67
		ACTIONS => {
			"-" => 24,
			'NAME' <==
3	/Users/nnunley/parrot/lib/Parrot/PMC.pm	485	586	
==>ary => 15,
	ParrotInterpreter => 16,
	ParrotThread => 17,
	LexPad => 18,
	Timer => 19,
	Pointer => 20, <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7628	7729	
==>self->{'start_of_pod_block'} and @$paras and $paras->[-1][0] eq '~Verbatim') {
          DEBUG > 1 and <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6342	6441	
==>self->{'start_of_pod_block'} and @$paras and $paras->[-1][0] eq '~Verbatim') {
        DEBUG > 1 and <==
3	/Users/nnunley/parrot/config/auto/gc.pm	614	712	
==>k

=cut

package auto::gc;

use strict;
use vars qw($description @args);

use base qw(Parrot::Confi <==
3	/Users/nnunley/parrot/config/auto/gcc.pm	369	461	
==>e Parrot::Configure::Step ':auto';

$description = 'Determining if your C compiler is actuall <==
3	/Users/nnunley/parrot/config/auto/msvc.pm	389	481	
==>e Parrot::Configure::Step ':auto';

$description = 'Determining if your C compiler is actuall <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	30170	30260	
==>> directive: '(?s).*?(?=<H1>)'


=head2 C<extract_delimited>

The C<extract_delimited> func <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	12439	12569	
==>'touch' => 'perl -MExtUtils::Command -e touch',
             'unsetenv' => 1,
             'va_ptr_type' => 'x86',
             've <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	3232	3355	
==>make clean' and 'svn:ignore' take care of them.

        return $pass;
        }
}

=head1 HISTORY

Mostly taken fro <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	1035	1149	
==>', $count );
        my $pir_fn  = Parrot::Test::per_test( '.pir', $count );
        my $lua_out_fn = Parrot::Tes <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	804	908	
==>IR';
strPC = ${PC}
${INS} = concat "LAB"
${INS} = concat strPC
${INS} = concat ": "
PIR
}

# Pre and post <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093621	1093708	
==>9 \"src/ops/experimental.ops\"\n  VTABLE_morph(interpreter, {{\@1}}, {{\@2}});\n  {{+=3} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094424	1094511	
==>9 \"src/ops/experimental.ops\"\n  VTABLE_morph(interpreter, {{\@1}}, {{\@2}});\n  {{+=3} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	16415	16514	
==>e to build a Pod processor -- but
one that uses an interface based on a stream of token objects,
ins <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576519	576607	
==>native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, na <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577531	577619	
==>native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, na <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	1931	2042	
==>$opt->{verbose};
    open my $H, '>', $h_name or die "Can't write '$h_name";
    print $H $hout;
    close $H;
} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943841	943929	
==>ing.ops\"\n  {{\@1}} = Parrot_charset_number_of_str(interpreter, {{\@2}});\n  {{+=3}};\n" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944630	944718	
==>ing.ops\"\n  {{\@1}} = Parrot_charset_number_of_str(interpreter, {{\@2}});\n  {{+=3}};\n" <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tests.pm	828	924	
==>'C Source Code Tests', '', 't/src'),
		$self->new_group('Stress Tests', '', 't/stress'),
	);
}

= <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9132	9225	
==>MP0} = pop lazy_moves

# Emit move.
POST_STORE_${CURIC}_CONT:
${INS} = concat ${STOREREG}
${IN <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	3765	3856	
==>ile::Spec->catfile($self->{PATH}, $_)
    } $self->file_and_directory_names;
}

=item C<file <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	281	375	
==>est::Bc::Posix;

=head1 NAME

Test/Bc.pm - Testing routines specific to 'bc'.

=head1 DESCRIPTI <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15017	15111	
==>^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
    }
    return;
  } <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16200	16294	
==>^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
    }
    return;
  } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146088	146366	
==>",
                  "CODE" => 178,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 91 \"src/ops/cmp.ops\"\n  if (mmd_dispatch <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	7003	7120	
==>en file '$file' for reading.\n"
    unless $fh;

  my @lines = <$fh>;

  return @lines;
}


#
# scan_file()
#

sub sca <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	4865	4969	
==>>{'unimplemented'};
        my $label = "BODY_$_->{'class'}___$_->{'method'}";
        $label =~ s/\./_/g <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2771	2863	
==>ns it into XML.

Pod::Simple::XMLOutStream inherits methods from
L<Pod::Simple>.


=head1 SEE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8447	8741	
==>S" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 12,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 182 \"src/ops/co <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	4796	4906	
==>,0, undef, 0, $l, ''];
	return;
    }
    push @code, [$line, $pc, $opcode, $arg, $rest, $source];
}

sub XXX { <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27282	27383	
==>nslate for $rule->{'name'}");

		# If we have PIR for the instruction, just take that. If not, we need <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34421	34522	
==>nslate for $rule->{'name'}");

		# If we have PIR for the instruction, just take that. If not, we need <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656512	656821	
==>@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "define <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657436	657745	
==>@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "define <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658354	658663	
==>@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "define <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5594	5701	
==>eno];

#DBG>	print STDERR ('-' x 40),"\n";
#DBG>		$debug & 0x2
#DBG>	and	print STDERR "In state $stateno <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5326	5429	
==>eno];

#DBG>	print STDERR ('-' x 40),"\n";
#DBG>		$debug & 0x2
#DBG>	and	print STDERR "In state $stateno <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	13341	13439	
==>e();
		$foo=$dos[-1];
		push @{$code{$seg}->{code}}, "\tgoto AFTERDO_$foo->{jump}\n";
	} else {
		d <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11439	11557	
==>k, $token);
      my $op    = substr($self->forth->text, 0, -1);
      my $value = Jako::Construct::Expression::Value-> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11986	12104	
==>k, $token);
      my $op    = substr($self->forth->text, 0, -1);
      my $value = Jako::Construct::Expression::Value-> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12529	12647	
==>k, $token);
      my $op    = substr($self->forth->text, 0, -1);
      my $value = Jako::Construct::Expression::Value-> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	7133	7265	
==>y $self = shift;
  my ($file) = @_;

#  $self->DEBUG(0, "Scanning file '$file'...");

  my $line = 0;

  my @lines = $self->slurp_fil <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2204	2315	
==>depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test::proclaim(und <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2599	2710	
==>depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test::proclaim(und <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576610	576917	
==>);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subclass <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577622	577929	
==>);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subclass <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	888	990	
==>fine> macros required by the ops.

=cut

sub defines
{
    return <<END;
#define REL_PC ((size_t)((opco <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1018	1120	
==>fine> macros required by the ops.

=cut

sub defines
{
    return <<END;
#define REL_PC ((size_t)((opco <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10282	10381	
==>1 if $ord =~ /^[~!@#%&_'":;>,<]$/;
#    return 1 if $ord =~ /^[`~!@#$%^&*()\-_+{}\[\]\\|'":;\/?.>,<] <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	51499	51628	
==>as:

                        <defer: {if ($count>

because the "less than" operator is interpreted as a closing delimiter.

But, b <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2600	2709	
==>MARY, "$cmd |") or die "Error invoking '$cmd': $!";
    my $tmp;
    my %generated_files;
    while (<GCOVSUMM <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1389	1487	
==>DDRESS($address)>. Called by C<goto_address()>.

=cut

sub expr_address
{
    my ($self, $addr) = @ <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	2836	3010	
==>ns = ( buildprefix => '',
                prefix      => '/usr',
                destdir     => '',
                exec_prefix => '/usr',
                bindir      => '/usr <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	11329	11459	
==>CTIONS => {
			'NAME' => 4,
			'REPEAT' => 5,
			'FOR' => 6,
			"(" => 8,
			'IF' => 10,
			'FUNCTION' => 12,
			'DO' => 15, <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	25856	25960	
==>l NCI the::internal
	the::internal = $func # avoid savetop
EOC
	    $func = 'the::internal';
	}
	print << <==
3	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	3039	3163	
==>nt\n";

        # Otherwise, just append it to current method.
        } else {
            $cur_method->{'body'} .= "$line\n <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1518	1639	
==>output, $output, $desc );
        #goto &{"Test::More::$meth"};
        my $ok = &{"Test::More::$meth"}( @_ );
        # i <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1434	1555	
==>output, $output, $desc );
        #goto &{"Test::More::$meth"};
        my $ok = &{"Test::More::$meth"}( @_ );
        # i <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	4272	4408	
==>ep) {

            # by step number
            if ($verbose_step =~ /^\d+$/ && $n == $verbose_step) {
                $self->options->se <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1669	1785	
==>CK => [],
				DEBUG => 0,
				CHECK => \$check };

	_CheckParams( [], \%params, \@_, $self );

		exists($$self{ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1612	1722	
==>CK => [],
				DEBUG => 0,
				CHECK => \$check };

	_CheckParams( [], \%params, \@_, $self );

		exists($$self{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111910	112179	
==>ine",
                  "CODE" => 139,
                  "ARGS" => [
                              "s",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 187 \"src/ops/bit.ops\"\n  {{\ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33223	33321	
==>ule"};
	$desc = "<matchrule:$desc>" if $_[0]->{"matchrule"};
	return $desc;
}

sub callsyntax($$)
{ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35745	35843	
==>ule"};
	$desc = "<matchrule:$desc>" if $_[0]->{"matchrule"};
	return $desc;
}

sub callsyntax($$)
{ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	44168	44277	
==>:\n<$p->[$i-1]>\n<$p->[$i]>\n";
    
    $formatting = '  ' . $1;
    $formatting =~ s/\s+$//s; # nix trailing <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79288	79392	
==>eason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      /* At this point <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80809	80913	
==>eason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      /* At this point <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11113	11230	
==>X',ord($1))/eg;
        # Yes, stipulate the list without a range, so that this can work right on
        #  all chars <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4462	4577	
==>X',ord($1))/eg;
       # Yes, stipulate the list without a range, so that this can work right on
       #  all chars <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	11318	11431	
==>ub is_num {
    my($self, $got, $expect, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !de <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	72092	72215	
==>sive.
			       That will probably mean you need to re-implement
			       repetitions using the '(s)' notation.
			       F <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62025	62125	
==>codeblock($grammar, "[]",'') || '';

		# EXTRACT TRAILING REPETITION SPECIFIER (IF ANY)

			if ($gram <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	1711	1809	
==>turn $self;
}


=back

=head2 Instance Methods

=over 4

=item C<set_parent($parent)>

=item C<pare <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	12531	12629	
==>UG > 2 and print " CRAZY ERROR: It wasn't really handled?!\n";
    } elsif( $self->{'encoding_comma <==
3	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	2845	3010	
==>se {
            return undef;
        }
    }

    sub Insert {
        my $self = shift;
        my ( $symb, $defn ) = @_;
        $self->{table}{$symb} = $ <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	10767	10898	
==>intf     stdio.h
fputc       stdio.h
fputs       stdio.h
fread       stdio.h
free        stdlib.h
freopen     stdio.h
frexp       ma <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20274	20394	
==>ue>;
    #   <ident> = new <ident>;
    #
 
    if ($token->is_ident and $self->get(1)->is_assign) {
      my $block = $s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2612	2715	
==>ned $cond) {
    $handler->start_element({ Name => 'cond', Attributes => { kind => $cond } });
    $hand <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3376	3479	
==>ned $cond) {
    $handler->start_element({ Name => 'cond', Attributes => { kind => $cond } });
    $hand <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	425767	426155	
==>",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 489,
                  "ARGS" => [
                              "ic",
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 64 \" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103911	1103996	
==>rpreter, class);\n\tif (!type) {\n\t\tParrot_autoload_class(interpreter, class);\n\t\t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105126	1105211	
==>rpreter, class);\n\tif (!type) {\n\t\tParrot_autoload_class(interpreter, class);\n\t\t <==
3	/Users/nnunley/parrot/lib/File/Which.pm	1434	1553	
==>which says MPW-Perl cannot resolve `Alias $alias`,
            # let's just hope it's fixed
            if (lc($alias) e <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	548	646	
==>4

=item C<buildprefix>

The build prefix. Defaults to ''.

=item C<prefix>

The install prefix. De <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	777	875	
==>4

=item C<buildprefix>

The build prefix. Defaults to ''.

=item C<prefix>

The install prefix. De <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235256	235675	
==>GDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 274,
                  "ARGS" => [
                              "i",
                              "n",
                              "nc"
                            ],
                  "BODY" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	708406	708613	
==>function",
                  "CODE" => 794,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 704 \"src/ops/pmc.ops\"\n  dod_reg <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	1509	1663	
==>rt *",
       f => "float",
       d => "double",
       t => "char *",
       v => "void",
       J => "Interp *",
       P => "PMC *",
       O => "PMC * <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	3001	3100	
==>_element({ Name => 'block' });
    $handler->start_element({ Name => 'block', Attributes => { kind = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3675	3774	
==>_element({ Name => 'block' });
    $handler->start_element({ Name => 'block', Attributes => { kind = <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3765	3864	
==>_element({ Name => 'block' });
    $handler->start_element({ Name => 'block', Attributes => { kind = <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2749	2881	
==>bs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$ <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3058	3190	
==>bs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2853	2985	
==>bs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PATHQUOTE$_$ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Examples.pm	764	898	
==>'examples/pasm'),
            $self->new_group('PIR',                  '', 'examples/pir'),
            $self->new_group('Subroutines', <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34137	34232	
==>self->describe.'}' ) . ';
		$Parse::RecDescent::lastunexpected = $text;
		' . ($self->{"lookahea <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37609	37704	
==>self->describe.'}' ) . ';
		$Parse::RecDescent::lastunexpected = $text;
		' . ($self->{"lookahea <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	499	599	
==>_name, $attr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBUG and print "++ $_[1]\n <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	498	598	
==>_name, $attr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBUG and print "++ $_[1]\n <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	693	793	
==>_name, $attr_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBUG and print "++ $_[1]\n <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1167	1285	
==>path_to_parrot));
        my $path_to_language;
        if ($dir_count == 0) {
          $path_to_language = File::Spec <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1652	1770	
==>path_to_parrot));
        my $path_to_language;
        if ($dir_count == 0) {
          $path_to_language = File::Spec <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	44537	44640	
==>>new({});
  my $temp;

  $self->{scope} = {};

  $temp = $self->_generate($tree);

  $self->_restore($te <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	9155	9273	
==>t;
  
  foreach my $new_code (@_) {
    next unless defined $new_code and length $new_code;
    if(ASCII) {
      # A g <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10419	10537	
==>t;
  
  foreach my $new_code (@_) {
    next unless defined $new_code and length $new_code;
    if(ASCII) {
      # A g <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	360	457	
==>nter}, $thisline->[0],
	    $thisline->[1];
	$tlc;
}

sub expectation_message
{
	$Parse::RecDescen <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903131	903327	
==>",
                              "ic",
                              "sc"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interp <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904151	904347	
==>",
                              "ic",
                              "sc"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interp <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	34415	34513	
==>ame level of nesting>. Any
type of bracket not in the delimiter list is treated as an ordinary
char <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9787	9877	
==>ll_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over e <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7301	7391	
==>ll_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over e <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6265	6355	
==>ll_NOT_CTOR_${CURIC}
${PTEMP4} = shift ${PTEMP2}
pre_call_NOT_CTOR_${CURIC}:

# Loop over e <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6665	6799	
==>us
				and	do {
					--$$errstatus;

#DBG>					$debug & 0x10
#DBG>				and	$dbgerror
#DBG>				and	$$errstatus == 0
#DBG>				and	d <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6356	6483	
==>us
				and	do {
					--$$errstatus;

#DBG>					$debug & 0x10
#DBG>				and	$dbgerror
#DBG>				and	$$errstatus == 0
#DBG>				and	d <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	12914	13030	
==>re,
				     $ldel_outer, $rdel_outer,
				     $ldel_inner, $rdel_inner,
				     $rd);
	return _fail($wantarray, $t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284818	284998	
==>n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285695	285875	
==>n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286572	286752	
==>n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}}) < 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25724	25826	
==>ush @{$fors[$scopes]}, { var => $result, num => $forloop, inc => $stepexpr };
}
sub parse_next {    # n <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7547	7668	
==>return $pir;
}

# Pre and post store operation hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pi <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5665	5786	
==>return $pir;
}

# Pre and post store operation hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pi <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4507	4628	
==>return $pir;
}

# Pre and post store operation hooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pi <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	3142	3251	
==>reach my $stmt (@output) {
	if ($stmt->{name} eq 'LABEL') {
	    $curlabel = $stmt;
	} else {
	    push @outpu <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954251	954339	
==>" => "#line 571 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_encoding_number_of_str(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955042	955130	
==>" => "#line 571 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_encoding_number_of_str(interpr <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13900	14002	
==>,z)
print foo
print z.foo

' Should print 100, 103
type first
	foo as integer
	bar as string
end type
t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550036	550133	
==>{\@1}};\n  meth = {{\@2}};\n  next = {{^+3}};\n  interpreter->current_object = object;\n  interpre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551337	551434	
==>{\@1}};\n  meth = {{\@2}};\n  next = {{^+3}};\n  interpreter->current_object = object;\n  interpre <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	5663	5776	
==>ing_line( $line );
    }

    if($line =~ m/^=cut/s) {
      # here ends the pod block, and therefore the previous <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1528	1633	
==>'output_fh'}} $text;
  }
  return;
}

sub _handle_element_end {
  DEBUG and print "-- $_[1]\n";
  print {$ <==
3	/Users/nnunley/parrot/config/auto/gc.pm	776	870	
==>ription = 'Determining what allocator to use';

# valid libc/malloc/malloc-trace/gc
@args = qw( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	15285	15442	
==>cks:
      #

      elsif ($peer_block->kind eq 'sub') {
        # DO NOTHING
      }

      #
      # Handle the ending of module blocks:
      #

      elsi <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10053	10141	
==>',
  126, '~',
);

#--------------------------------------------------------------------- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034894	1035159	
==>"JUMP" => 0,
                  "NAME" => "find_lex",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036057	1036322	
==>"JUMP" => 0,
                  "NAME" => "find_lex",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function" <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	39405	39498	
==>pace characters).
If the string is "", the the default behaviour (i.e. failure) is reinstated. <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	14912	15041	
==>$init_set_dispatch
    }
    /* deinit - free resources */
    else {
    hop_deinit();
    }
    return NULL;
}

END_C

if ($dyna <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	934	1036	
==>ontent($self);

  return $self;
}

sub left  { return shift->{LEFT};  }
sub right { return shift->{RIGH <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	942	1044	
==>ontent($self);

  return $self;
}

sub left  { return shift->{LEFT};  }
sub right { return shift->{RIGH <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1406	1511	
==>ign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT = qq[];

# Here come <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1451	1556	
==>ign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT = qq[];

# Here come <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1455	1560	
==>ign-functions=16 -Wno-shadow  -DHAS_JIT -DPPC -DHAVE_COMPUTED_GOTO ];

our $LIBPARROT = qq[];

# Here come <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7417	7569	
==>ck('A1',$lhs) eq '@'    #In line rule
            and do {
                    $lhs =~ /^\@[0-9]+\-([0-9]+)$/
                or  die "In line rule na <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7074	7223	
==>ck('A1',$lhs) eq '@'    #In line rule
            and do {
                    $lhs =~ /^\@[0-9]+\-([0-9]+)$/
                or  die "In line rule na <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	39121	39232	
==>pir .= "### post_translation\n";
    my $srm_pt = $srm->post_translation();
    $pir .= sub_meta($srm_pt, $mv, ' <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	8655	8760	
==>s'} eq 'op' ||
	         $rule->{'class'} eq 'load' || $rule->{'class'} eq 'calling')) {
		die "typeinfo m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107070	107241	
==>i"
                            ],
                  "BODY" => "#line 167 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107924	108095	
==>i"
                            ],
                  "BODY" => "#line 167 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	1789	1891	
==>sub parse_line {
  use Carp ();
  Carp::croak "Use set_source with ", __PACKAGE__,
    " and subclasses <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	986	1153	
==>my $self = bless {
    BLOCK => $block,

    DEST  => $dest,
    LEFT  => $left,
    OP    => $op,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => $dest->file,
    L <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	977	1144	
==>my $self = bless {
    BLOCK => $block,

    DEST  => $dest,
    LEFT  => $left,
    OP    => $op,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => $dest->file,
    L <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	866	1033	
==>my $self = bless {
    BLOCK => $block,

    DEST  => $dest,
    LEFT  => $left,
    OP    => $op,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => $dest->file,
    L <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	428	609	
==>struct);

use Carp;


###############################################################################

=head2 CLASS->new(BLOCK, KIND, TYPE, PREFIX)

If BLOCK is defined, it is the ne <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25601	25699	
==>rn,$temp,$return]);
    $self->_restore($temp);
  } else {
    $return = $self->_generate($node->{c <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27499	27597	
==>rn,$temp,$return]);
    $self->_restore($temp);
  } else {
    $return = $self->_generate($node->{c <==
3	/Users/nnunley/parrot/lib/File/Which.pm	1352	1474	
==>my $alias (@aliases) {
            # This has not been tested!!
            # PPT which says MPW-Perl cannot resolve `Alias <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10610	10714	
==>ow the directory.

=cut

sub file_with_relative_path
{
    my $self = shift;
    my $path = $self->path_f <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	48809	48921	
==>ineage[-1];
      
    } elsif(defined $3) {
      DEBUG > 3 and print "Found apparent complex end-text code \"$3 <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	34517	34614	
==>rn Store_Slice(@_, 1);
}
sub STORE_SLICE_plus_2 {
    return Store_Slice(@_, 2);
}
sub STORE_SLICE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848254	848480	
==>n  {{\@1}} = string_chopn(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849034	849260	
==>n  {{\@1}} = string_chopn(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	2176	2278	
==>e type of op (see the note on op types above).

C<$name> is the name of the op.

C<$args> is a referenc <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1097	1214	
==>s: Created new module '%s'.\n", __PACKAGE__, $ident->value;

  return $self;
}


#
# ACCESSORS:
#

sub type      { ret <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	52571	52672	
==>$line);
			}
			elsif ($grammar =~ m/(?=$SCOREMK)/gco
				and do { ($code) = extract_codeblock($gramma <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25041	25180	
==>,
			'primary' => 28
		}
	},
	{#State 78
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 2 <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2733	2852	
==>}='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHECK}}='ACCEPT';
    undef;
}

sub YYEr <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2609	2717	
==>}='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHECK}}='ACCEPT';
    undef;
}

sub YYEr <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1223	1358	
==>>{DEBUG};
    return () unless $self->{DEBUG_SUPPORT};
    return ("bsr $label");
}

############### SIMPLE OUTPUT ##############

sub o <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627402	627492	
==>copies the registers. */\n  {{\@1}} = pmc_new_noinit(interpreter, {{\@2}});\n  {{\@1}}->vta <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628546	628636	
==>copies the registers. */\n  {{\@1}} = pmc_new_noinit(interpreter, {{\@2}});\n  {{\@1}}->vta <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42335	42525	
==>do_exception(interpreter, EXCEPT_exit, {{\@1}});\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43025	43215	
==>do_exception(interpreter, EXCEPT_exit, {{\@1}});\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117909	118143	
==>c/ops/bit.ops\"\n  {{\@1}} >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118648	118882	
==>c/ops/bit.ops\"\n  {{\@1}} >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	529	665	
==>put, $desc, @other ) = @_;

        ++$count;
        my( $lang_f, $pasm_f, $by_f, $out_f ) = map { # JMG
            my $t = $0; $t =~ s <==
3	/Users/nnunley/parrot/lib/Parrot/Op.pm	1459	1591	
==>.
    s   The argument is a string register index.
    ic  The argument is an integer constant (in-line).
    nc  The argument is a n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64644	64733	
==>Interp * const new_interp = (Interp *)PMC_data({{\@1}});\n  Interp_flags_SET(new_interp, P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65595	65684	
==>Interp * const new_interp = (Interp *)PMC_data({{\@1}});\n  Interp_flags_SET(new_interp, P <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	10461	10618	
==>*\.ops")\s+
        {{\@1}}->vtable->
        (\w+)
        \(interpreter,
        \s*
        {{\@1}}
        \);
        \s+{{\+=\d}}/xm) {
            $jit <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	734	833	
==>h
prop_stack_depth = new Hash
PIR
}

# Post translation hook.
sub post_translation() {
	# Nothing to <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops.pm	113	218	
==>ame};
    $number = '' if ($number == 1) && ($name ne '');
    return bless([ 'label', "\@$name$number" ], <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2745	2850	
==>ame};
    $number = '' if ($number == 1) && ($name ne '');
    return bless([ 'label', "\@$name$number" ], <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4367	4477	
==>t(3)=5.6
a=mine(5)
print t(3)

1740 print "Branched"
	end
' Logical Operators 
print "      AND   OR    XOR   E <==
3	/Users/nnunley/parrot/tools/dev/pbc_header.pl	695	800	
==>igest::Perl::MD5 qw(md5);
my %opt;
&main;

sub get_fp {
    # s. also fingerprint_c.pl
    my $compat_file <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	10446	10544	
==>$content_containers{'Verbatim'} = 1;
    $content_containers{'VerbatimFormatted'} = 1;
  }

  my $t <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	2731	2872	
==>"-l$_" } keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PAT <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3040	3181	
==>"-l$_" } keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PAT <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	2835	2976	
==>"-l$_" } keys %$libs );
    }

    return
        "$LD $LDFLAGS $LD_LOAD_FLAGS ".
        "-o " . $target . " " .
        join(" ", map {"$PAT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761379	761482	
==>"#line 305 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762232	762335	
==>"#line 305 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	13924	14026	
==>y $extra_preamble  = join("\n    ", @{$extra_preamble_ref});
    my $extra_postamble = join("\n    ", @ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	15399	15524	
==>s) {
        push @ops, $tries[$i-1] unless $i == 0; # Label for the try
        push @ops, $self->dbprint("Trying alternative <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4538	4642	
==>_ ] ) foreach (@ungrouped_pmcs);
} 
elsif ($mode eq 'copy') {
    # Copy *.so -> destination, where desti <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4642	4746	
==>_ ] ) foreach (@ungrouped_pmcs);
} 
elsif ($mode eq 'copy') {
    # Copy *.so -> destination, where desti <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4863	4967	
==>group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);
    my @ungrouped_pmcs = grep { ! exists $pmc <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4967	5071	
==>group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);
    my @ungrouped_pmcs = grep { ! exists $pmc <==
3	/Users/nnunley/parrot/config/gen/config_h.pm	1126	1235	
==>/parrot/has_header.h";
    open(HH, ">$hh.tmp")
        or die "Can't open has_header.h: $!";

    print HH << <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	30205	30310	
==>DO variable.  If you want to be sure, tell it explicitly
what $pack to use.

=cut

sub todo {
    my($self <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8028	8132	
==>This is true" else print "Oops (flo)"

' Expect OK
if 2 > 1 then
	print "Ok"
else
	print "All is not righ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18615	18719	
==>->is_close_paren) {
        while (1) {
          push @args, Jako::Construct::Expression::Value->new($bl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19641	19745	
==>->is_close_paren) {
        while (1) {
          push @args, Jako::Construct::Expression::Value->new($bl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20368	20574	
==>> [
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 342 \"src/ops/core.ops\"\n  if ({{\@1}} == 0.0) {\n    {{+={{\@2}}} <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28380	28469	
==>'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30456	30545	
==>'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32656	32745	
==>'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [ <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3162	3261	
==>strict;
use warnings;

use vars qw(@ISA %pmc_types @EXPORT_OK);

@ISA = qw( Exporter );
@EXPORT_OK = <==
3	/Users/nnunley/parrot/lib/Parrot/PMC.pm	106	205	
==>strict;
use warnings;

use vars qw(@ISA %pmc_types @EXPORT_OK);

@ISA = qw( Exporter );
@EXPORT_OK = <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	776	875	
==>or die "Can't write '$outfile': $!";
process_cfile();
close ALL;

sub hash_val {
	my $h = Math::BigI <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	28499	28614	
==>->ctx)->current_results = this;\n    argc = SIG_ELEMS(signature);\n    {{+=argc + 2}};\n",
                  "LABELS <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4657	4760	
==>first
    # argument, given as --destination=DIRECTORY
    shift(@pmcs) =~ /--destination=(.*)/
      or <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4761	4864	
==>first
    # argument, given as --destination=DIRECTORY
    shift(@pmcs) =~ /--destination=(.*)/
      or <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	5523	5626	
==>xt =~ /(($RE{comment}{'C++'}\s*)+)/
	  if !$first_comment;

    return $info if !$first_comment;

    lo <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7260	7361	
==>);" Lower"
a$="   Flush   "
print ">";ltrim$(a$)
print rtrim$(a$);"<"
' A's and -'s
print string$(10,7 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18989	19090	
==>);" Lower"
a$="   Flush   "
print ">";ltrim$(a$)
print rtrim$(a$);"<"
' A's and -'s
print string$(10,7 <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2891	2992	
==>rser->Error("Untermined string.\n");
    $parser->YYData->{lineno}++;
    return ( $type, $str );
} <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4406	4507	
==>rser->Error("Untermined string.\n");
    $parser->YYData->{lineno}++;
    return ( $type, $str );
} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031568	1031791	
==>ta_types[{{\@2}} - enum_first_type].size;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032437	1032660	
==>ta_types[{{\@2}} - enum_first_type].size;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	3697	3822	
==>e:"monadic:\u230a"] =  <<"END_PIR"            # floor
    $N100 = %1
    $I100 = floor $N100
    %1 = $I100
END_PIR

    $P0[u <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	747	897	
==>t "SUMMARY                                           ";
print $done . (' ' x (10 - length($done)));
print $total . (' ' x (10 - length($total)));
pr <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9432	9540	
==>tories, $name) = File::Spec->splitpath($path);
    
    $path = File::Spec->catdir($self->path, $directories) <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	1505	1608	
==>ace goto X; ...; X: goto Y; with goto Y.
 3. Eliminate unreachable code.
 4. Eliminate jumps to the foll <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9474	9611	
==>);
        
      } elsif ($tagname eq 'Data') {
        my $next = $self->get_token;
        next unless defined $next;
        unless( $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7237	7366	
==>);

      } elsif ($tagname eq 'Data') {
        my $next = $self->get_token;
        next unless defined $next;
        unless( $ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	30081	30206	
==>ult' => $lbl_blk,
    );
    push @opcodes, new LabelOp( $parser,
        'arg1' => $lbl_or,
    );
    push @opcodes, ne <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22346	22470	
==>'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 124,
			'functioncall' => 31,
			' <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	22520	22636	
==>ds it.
    $msg .= "\n" unless $msg =~ /\n\Z/;

    local $Level = $Level + 1;
    $self->_print_diag($msg);

    ret <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	117	210	
==>rter';
use strict;

use vars qw(@AsmOps @EXPORT);

@Regex::Ops::Label::ISA = qw(Regex::Ops::Li <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030923	1031218	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sizeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031791	1032086	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sizeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "in <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3594	3692	
==>ND_C
}

=item C<run_core_split($base)>

If defined return code to split e.g. a switch.

=cut

sub r <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61342	61621	
==>n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorson",
                  "FLAGS" => "",
                  "AR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61985	62264	
==>n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorson",
                  "FLAGS" => "",
                  "AR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39098	39346	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_G <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41658	41906	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_G <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2144	2255	
==>ed $amount;
    my $realvar = value($var);
    return "$realvar -= $amount;";
}

sub output_set {
    my ($self, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721822	722181	
==>" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 809,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 149 \" <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	31832	31946	
==>display {
}

sub _op_newline {
}

sub _op_write_char {
}

sub _op_load {
}

sub _op_transcript_on {
}

sub _op_tran <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	8778	8889	
==>s, $1, $2;
    }

    return @params;
}

=back

=head1 SEE ALSO

=over 4

=item F<tools/build/jit2c.pl>

=item F <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	28021	28154	
==>the test considered a pass?
              actual_ok  => did it literally say 'ok'?
              name       => name of the test (if an <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2956	3060	
==>hould be skipped"
Label2:
   PRINT "4 back in subroutine one"
   RETURN Label1
Sub2:
   PRINT "3 in subro <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16923	17027	
==>hould be skipped"
Label2:
   PRINT "4 back in subroutine one"
   RETURN Label1
Sub2:
   PRINT "3 in subro <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct.pm	55	153	
==>structs (blocks, etc.).
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free so <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	387	484	
==>r M ops/s (million operations per second) using
integer arithmetic.

Prints out:

=over 4

=item * <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	383	480	
==>r M ops/s (million operations per second) using
integer arithmetic.

Prints out:

=over 4

=item * <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Posix.pm	160	272	
==>Parrot::Test::Bc';

sub get_out_fn {
    my $self = shift;
    my ( $count, $options ) = @_;

    return Parrot:: <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	1555	1664	
==>rom '$infile'
 * by $0.
 *
 * Any changes made here will be lost!
 *
 */

#define CONCAT(a,b) a##b
#define _CO <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	56151	56247	
==>ss the fourth argument is true, in which
case they are disgarded).

For example, the following ex <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	6934	7074	
==>m'      , 8764,
 'cong'     , 8773,
 'asymp'    , 8776,
 'ne'       , 8800,
 'equiv'    , 8801,
 'le'       , 8804,
 'ge'       , 8805,
 'sub <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	5503	5620	
==>[\<\(])
         )   # start on whitespace, sequence-start, or quote
         ( # something looking like a Perl token: <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2972	3074	
==>'/item-text'   => "\n\\par}\n",

 # we don't need any styles for over-* and /over-*
);


#~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1279	1388	
==>e::Spec->join('languages', $language);
        } elsif ($dir_count == 1) {
          $path_to_language = $lang <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1764	1873	
==>e::Spec->join('languages', $language);
        } elsif ($dir_count == 1) {
          $path_to_language = $lang <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	1481	1578	
==>ks.
sub pre_load {
	die "pre_load not implemented for current stack to register mapper\n";
}
sub p <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27545	27658	
==>cribe ) . '};
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':' <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29655	29768	
==>cribe ) . '};
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':' <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31752	31865	
==>cribe ) . '};
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($self->{"lookahead"}<0?'if':' <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2379	2490	
==>m/g;
		$register_num++;
	}

	# Do code for each push.
	$pir .= "\${ITEMP0} = 0\n";
	for (1..$pushes) {
		$pir .= <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1731	1842	
==>m/g;
		$register_num++;
	}

	# Do code for each push.
	$pir .= "\${ITEMP0} = 0\n";
	for (1..$pushes) {
		$pir .= <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11789	11889	
==>hod '$method'\n"
      unless defined $super_table->{$method};
    my $supermethod = "Parrot_" . $sup <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	3337	3480	
==>icolon', undef, $1);
      $text = $2;
      next;
    }

    #
    # Grouping:
    #

    if ($text =~ m{^([\(\)])(.*)$}) {
      push @tokens, <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	2507	2630	
==>"          => \$help_flag,
    "dynamic|d"     => \$dynamic_flag,
    "core"          => \$core_flag,
) || Usage();

Usage() <==
3	/Users/nnunley/parrot/config/auto/signal.pm	1715	1818	
==>write runtime/parrot/include/signal.pasm";
    print O <<"EOF";
# DO NOT EDIT THIS FILE.
#
# This file i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830685	830825	
==>ctx)->user_stack, &i, STACK_ENTRY_INT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831426	831566	
==>ctx)->user_stack, &i, STACK_ENTRY_INT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0 <==
3	/Users/nnunley/parrot/config/auto/pack.pm	560	674	
==>VAL flag for pack().
    # The ! modifier only works for perl 5.6.x or greater.
    #

    my $intsize  = $conf->da <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	28718	28839	
==>(  @{$treelet->[$i]} == 2
           or (@{$treelet->[$i]} == 3 and $treelet->[$i][2] eq '')
      ) {
        $self->whin <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	32299	32416	
==>(  @{$treelet->[$i]} == 2
       or (@{$treelet->[$i]} == 3 and $treelet->[$i][2] eq '')
      ) {
        $self->whin <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	42701	42818	
==>(  @{$treelet->[$i]} == 2
       or (@{$treelet->[$i]} == 3 and $treelet->[$i][2] eq '')
      ) {
        $self->whin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105193	105489	
==>S" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 131,
                  "ARGS" => [
                              "i" <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	26715	26840	
==>without a plan!");
        }

        $self->{Curr_Test} = $num;

        # If the test counter is being pushed forward fill i <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	7403	7528	
==>bs}op_lib/;
    $src    =~ s/\bops_addr\b/${bs}ops_addr/g;

    if ($suffix =~ /cg/) {
	push @cg_jump_table, "        &&PC_$in <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11052	11140	
==>RETURN_${CURIC}
if "${CURIC}" == "73" goto pre_call_HAS_RETURN_${CURIC}
goto pre_call_NO_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8238	8326	
==>RETURN_${CURIC}
if "${CURIC}" == "73" goto pre_call_HAS_RETURN_${CURIC}
goto pre_call_NO_ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5900	5988	
==>RETURN_${CURIC}
if "${CURIC}" == "73" goto pre_call_HAS_RETURN_${CURIC}
goto pre_call_NO_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	4125	4236	
==>rn "$class $VERSION";
  } else {
    my $v = $class->VERSION;
    return "$class $v (" . __PACKAGE__ . " $VERSIO <==
3	/Users/nnunley/parrot/config/init/hints/linux.pm	284	393	
==>gs    = $conf->data->get('ccflags');
    my $cc        = $conf->data->get('cc');
    my $linkflags = $conf->da <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	14271	14370	
==>e initializer
for a hash is a hash reference.

The initializer for a class element is an object of t <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	3445	3535	
==>$source  = "src/ops/${base}_ops${suffix}.c.temp";

if ($base =~ m!^src/dynoplibs/! || $dyna <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679523	679897	
==>"",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 762,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	1102	1210	
==>for values (except string literals... q.v.).
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  r <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	7028	7135	
==>ives(@_) };

sub unaccept_directives {
  my $this = shift;
  foreach my $d (@_) {
    next unless defined $d <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	13441	13573	
==>, [ $next ]),
               $advance => $self->dbprint("scan advancing\n"),
                           aop('advance', [ 1, $lastback <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2383	2498	
==>$var);
				}
			}
			if (@saves) {
				$edit.=qq{\tfind_global _GLOBALS, "COMMON"\n};
				foreach(@saves) {
					$ed <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2792	2907	
==>$var);
				}
			}
			if (@saves) {
				$edit.=qq{\tfind_global _GLOBALS, "COMMON"\n};
				foreach(@saves) {
					$ed <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	13531	13630	
==>todo>,</td>
	      <td class="num tests_skipped"><tmpl_var name=skipped>,</td>
	      <td class="num <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	683	777	
==>ectory_class()>

Returns C<Parrot::Docs::Directory>.

=cut

sub directory_class
{
    return 'P <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34016	34138	
==>t_val;";
        $func_ret = $self->gen_ret($method->{type});
        $ret = "return ret_val;";
    }
    # I think that th <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2204	2322	
==>onder_paragraph_buffer;
      next;
    }


    if( $self->{'line_count'}++ ) {
      ($line = $source_line) =~ tr/\n\r <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4235	4417	
==>, 
                last;

            s/^\\//
                and $parser->Error("Invalid escape sequence $_ .\n"),
                last;
        }
    }

    $parser->Error( <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2721	2902	
==>,
                last;

            s/^\\//
                and $parser->Error("Invalid escape sequence $_ .\n"),
                last;
        }
    }

    $parser->Error( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	328306	328600	
==>S" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 385,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 159 \"src/ops/ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	960	1070	
==>self;
}

sub left  { return shift->{LEFT};  }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	968	1078	
==>self;
}

sub left  { return shift->{LEFT};  }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compi <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	730	825	
==>lang_f);
    $out_f  = File::Spec->rel2abs($out_f);
    Parrot::Test::write_code_to_file( $code, <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	767	862	
==>lang_f);
    $out_f  = File::Spec->rel2abs($out_f);
    Parrot::Test::write_code_to_file( $code, <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	299	391	
==>ings";

package Jako::Construct::Expression::Call;

use Carp;

use base qw(Jako::Construct::E <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79275	79380	
==>: \"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      /* A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80796	80901	
==>: \"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      /* A <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	879	973	
==>ths)>

Returns a new item.

Use this when creating items within a C<Parrot::Docs::Section>
subc <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	586	688	
==>ynext_load_code);

our %writes;
{
  my @writes = qw(STORE PUSH POP SHIFT UNSHIFT DELETE);
  @writes{@wr <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9618	9710	
==>0}, ${PTEMP1}, ${PTEMP2}) = method_info_from_token(${ASSEMBLY}, ${ARG0})

# If it's a call to <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7132	7224	
==>0}, ${PTEMP1}, ${PTEMP2}) = method_info_from_token(${ASSEMBLY}, ${ARG0})

# If it's a call to <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218898	219190	
==>}) > 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219877	220169	
==>}) > 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	677	770	
==>prefix is C<'Parrot_pred_'>.

This is used in C<Parrot::Op>'s C<func_name()>.

=cut

sub prefi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841613	841835	
==>g.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842377	842599	
==>g.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/config/inter/progs.pm	2933	3033	
==>nd your linker?", $linkflags) if $ask;
    $conf->data->set(linkflags => $linkflags);

    $ldflags = <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	10018	10137	
==>eter,\s*
            {{\@(\d)}}/
            {{\@$2}}->vtable->$1(interpreter, {{\@$2}}/x;

        if ($op->full_name e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	311213	311310	
==>print is disabled\\n\");\n#else\n\t/*\n\t * XXX adjust register layout\n\t */\n        PDB_print_i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033478	1033570	
==>nd\", lex_name);\n    }\n    VTABLE_set_pmc_keyed_str(interpreter, lex_pad, lex_name, {{\@2}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034576	1034668	
==>nd\", lex_name);\n    }\n    VTABLE_set_pmc_keyed_str(interpreter, lex_pad, lex_name, {{\@2}} <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	12191	12316	
==>d) = @_;
    return "my \$$uid;";
}

sub output_call {
    my ($self, $name, $mode, $uid) = @_;
#    if ($mode) {
        retu <==
3	/Users/nnunley/parrot/config/gen/icu.pm	4634	4734	
==>print "Adding -I $icuheaders to ccflags for icu headers.\n" if $verbose;
        $conf->data->add(' ' <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62882	63006	
==>$grammar = $pos;
					}
					else
					{
						$item = new Parse::RecDescent::Repetition($name,$1,0,$MAXREP,
										   $lo <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	18487	18587	
==>.

Modified by Damian Conway, 1999-03-05, v0.58.

    Added handling of hash-like arg list to class c <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64394	64537	
==>scent::Repetition($name,$1,$1,$1,
										   $lookahead,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$pro <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	81	173	
==>ex::CodeGen';
use strict;

my $fail_label = Regex::Ops::Tree::mark('FAIL');

sub init_context <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	82	174	
==>ex::CodeGen';
use strict;

my $fail_label = Regex::Ops::Tree::mark('FAIL');

sub init_context <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4062	4166	
==>) {
		$pir .= <<'PIR';
# Increment stack depth.
inc stack_depth

# Get type (so we can find register type <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2478	2582	
==>) {
		$pir .= <<'PIR';
# Increment stack depth.
inc stack_depth

# Get type (so we can find register type <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19314	19422	
==>nt a$,t$,d$
for i=1 to 5
	read h
	print h,
next i
print
restore 20
for i=1 to 5
	read h
	print h,
next i
prin <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	797	889	
==>type) . ") is not!"   if defined $type and not UNIVERSAL::isa($type, qw(Jako::Construct::Type <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	679	769	
==>type) . ") is not!" if defined $type and not UNIVERSAL::isa($type, qw(Jako::Construct::Type <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1968	2103	
==>conf->options->get('ask')) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    # if '--v <==
3	/Users/nnunley/parrot/config/inter/make.pm	1842	1977	
==>conf->options->get('ask')) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    # if '--v <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1982	2117	
==>conf->options->get('ask')) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    # if '--v <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429234	429593	
==>ase_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 493,
                  "ARGS" => [
                              "ic",
                              "p <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	1748	1843	
==>tem * C<args()>

Accepts no arguments and returns the value of C<@args> from the inheriting
clas <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90229	90572	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91082	91425	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91936	92279	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	12679	12787	
==>s_ref}, "STRING *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_S($re <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	12886	12994	
==>s_ref}, "STRING *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_S($re <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	13371	13479	
==>s_ref}, "STRING *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_S($re <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5929	6057	
==>gs}{group}
          or next;
        ($group) = keys %$group;
        $pmc_group{$pmc} = $group;
        push @{ $group_files{$g <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6140	6268	
==>gs}{group}
          or next;
        ($group) = keys %$group;
        $pmc_group{$pmc} = $group;
        push @{ $group_files{$g <==
3	/Users/nnunley/parrot/config/gen/platform.pm	5684	5797	
==>sm.s");
        }
    }

    # interface is the same for all platforms
    copy_if_diff("config/gen/platform/platf <==
3	/Users/nnunley/parrot/config/init/hints/solaris.pm	487	668	
==>ibs => $libs);

    ################################################################
    # If we're going to be using ICU (or any other C++-compiled library) we
    # need to use the <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	20154	20281	
==>"    Now: ", $i-1, ":[$treelet->[$i-1]]\n";
        --$i;
        next; 
        # since we just pulled the possibly last node o <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	11200	11306	
==>lock = substr($classblock, 1,-1); # trim out the { }

    my (@methods, %meth_hash, $class_init);

    whil <==
3	/Users/nnunley/parrot/lib/Test/More.pm	21190	21313	
==>how_many tests are in the block"
          unless $Test->has_plan eq 'no_plan';
        $how_many = 1;
    }

    for( 1..$h <==
3	/Users/nnunley/parrot/lib/Test/More.pm	23620	23743	
==>how_many tests are in the block"
          unless $Test->has_plan eq 'no_plan';
        $how_many = 1;
    }

    for( 1..$h <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	5140	5259	
==>ated lazily
    while (my $line = <$in>) {
        # everything after the line starting with #perl is eval'ed
        if <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19679	19783	
==>('multi_match' => [ 0, -1, TRUE, $_[1] ]); }
	],
	[#Rule 14
		 'expr', 3,
sub
#line 119 "lib/Regex/Gramma <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	514	603	
==>not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Left (" . ref($ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	505	594	
==>not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Left (" . ref($ <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	7934	8048	
==>1
    );
    genfile(
        'config/gen/makefiles/parrot.pc.in' => 'parrot.pc'
    );

    if ($conf->data->get(' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168484	168571	
==>e 204 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) != { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169426	169513	
==>e 204 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) != { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	318706	318936	
==>=> 0,
                  "NAME" => "conv_u2_ovf",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inl <==
3	/Users/nnunley/parrot/languages/urm/urm-old.pl	1483	1593	
==>$1} = eval( "$register{$2} $3 1;");
	if ($register{$1} < 0) { $register{$1} = 0 }
	$pos++;
    }
    elsif ($li <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6879	6987	
==>$var=$syms[CURR];
	#	feedme;  # Get the =
	#	#print "Going to expression with $syms[CURR]\n";
	#	print CODE E <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	20718	20868	
==>_$name\n";
            }
        }
        
        # If we don't branch at any of them, we've got an unknown op.
        $pir .= "    goto INS_NOT_FOU <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7375	7506	
==>us paragraph as done.
                
        push @$paras, $new; # the new incipient paragraph
        DEBUG > 1 and print "Starti <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7112	7212	
==>py = $self->_new_pair;

  $self->_add_inst('', 'set', [$head, $copy]);

  # maybe ensure that $type i <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	20518	20650	
==>reelet->[$i][0] eq 'L') {
          my $thing;
          foreach my $attrname ('section', 'to') {        
            if(defined($thi <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	392	489	
==>ignments;
use COMP_expressions;

our @basic=();


$SIG{__DIE__}=sub {
	print "At BASIC source line <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2376	2480	
==>butes => { kind => $self->kind } });
  }

  if ($self->op) {
    $handler->start_element({ Name => 'block <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2253	2357	
==>butes => { kind => $self->kind } });
  }

  if ($self->op) {
    $handler->start_element({ Name => 'block <==
3	/Users/nnunley/parrot/languages/regex/regex.pl	2175	2273	
==>t") or die "create $output: $!";
}

my $driver = Regex::Driver->new($language, %options);

$driver- <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	1547	1656	
==>ically from '$infile'
 * by $0.
 *
 * Any changes made here will be lost!
 *
 */

#define CONCAT(a,b) a##b
#de <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	3836	3945	
==>ically from '$infile'
 * by $0.
 *
 * Any changes made here will be lost!
 *
 */

#define CONCAT(a,b) a##b
#de <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	8899	9007	
==>op || $has_push)) {
        die "pop and push not allowed for class calling in rule $rule->{'name'}\n";
    } <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522254	522433	
==>"#line 744 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523109	523288	
==>"#line 744 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523964	524143	
==>"#line 744 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93436	93725	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "AR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94216	94505	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "AR <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	255	357	
==>89Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statement::New;

use Carp;

u <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6876	7022	
==>or=0;
#DBG>				};
				};


                push(@$stack,[ $act, $$value ]);

					$$token ne ''	#Don't eat the eof
				and	$$token=$$value= <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6558	6696	
==>or=0;
#DBG>				};
				};


                push(@$stack,[ $act, $$value ]);

					$$token ne ''	#Don't eat the eof
				and	$$token=$$value= <==
3	/Users/nnunley/parrot/config/gen/platform.pm	5667	5781	
==>, "src/platform_asm.s");
        }
    }

    # interface is the same for all platforms
    copy_if_diff("config/ge <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11046	11135	
==>l_HAS_RETURN_${CURIC}
if "${CURIC}" == "73" goto pre_call_HAS_RETURN_${CURIC}
goto pre_cal <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8232	8321	
==>l_HAS_RETURN_${CURIC}
if "${CURIC}" == "73" goto pre_call_HAS_RETURN_${CURIC}
goto pre_cal <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5894	5983	
==>l_HAS_RETURN_${CURIC}
if "${CURIC}" == "73" goto pre_call_HAS_RETURN_${CURIC}
goto pre_cal <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10943	11039	
==>need to supply a ${DEST0}.
${ITEMP0} = ${PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto p <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8129	8225	
==>need to supply a ${DEST0}.
${ITEMP0} = ${PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto p <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5791	5887	
==>need to supply a ${DEST0}.
${ITEMP0} = ${PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717902	717996	
==>=> "#line 124 \"src/ops/python.ops\"\n  PMC * const io = {{\@1}};\n  if (PIO_softspace(interpre <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718834	718928	
==>=> "#line 124 \"src/ops/python.ops\"\n  PMC * const io = {{\@1}};\n  if (PIO_softspace(interpre <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	2625	2717	
==>e that the C<use Pod::Simple::Debug (\$x, I<somenum>)> mode will make
Pod::Simple (et al) run <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	539	644	
==>le::Copy qw(copy);

# qq[] isn't guaranteed to work, but it's safer than "" as some platforms
# (eg FreeBS <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	497	602	
==>le::Copy qw(copy);

# qq[] isn't guaranteed to work, but it's safer than "" as some platforms
# (eg FreeBS <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	501	606	
==>le::Copy qw(copy);

# qq[] isn't guaranteed to work, but it's safer than "" as some platforms
# (eg FreeBS <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1593	1692	
==>$self->op;
  my $right = $self->right;

  my $dest_sym = $block->find_symbol($dest->value);
  $self- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1551	1650	
==>$self->op;
  my $right = $self->right;

  my $dest_sym = $block->find_symbol($dest->value);
  $self- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1473	1572	
==>$self->op;
  my $right = $self->right;

  my $dest_sym = $block->find_symbol($dest->value);
  $self- <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	8674	8778	
==>: enforce some limitations on what a target name can be?
    delete $this->{'accept_targets'}{$t};
    DE <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3472	3635	
==>gs);
        }
    } elsif ($is_intel) {
        $conf->data->set(
            share_ext  => '.dll',
            load_ext   => '.dll',
            a          => '.l <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32429	32537	
==>est_reg = 1;
			$mv->{'STOREREG'} = 'storereg';
			push @localmv, 'STOREREG';
		} else {
			die "pir or instr <==
3	/Users/nnunley/parrot/config/gen/icu.pm	3854	3958	
==>-icushared=(flags)  Full linker command to create shared libraries
HELP

    #'

    my $icudir = dirname <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094738	1095008	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "exec",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095432	1095702	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "exec",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	40627	40738	
==>r url).\n";
      }

      if( defined $section_name ) {
        $ell->[1]{'section'} = Pod::Simple::LinkSection <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	12349	12479	
==>t',
             'testheader' => undef,
             'testheaders' => undef,
             'touch' => 'perl -MExtUtils::Command -e t <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3740	3831	
==>gister_num:
dec stack_depth
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$register_num+ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5514	5605	
==>gister_num:
dec stack_depth
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$register_num+ <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	2006	2115	
==>]]$/;  # CCLASS_ALPHANUMERIC   
    $ret |= 0x1000 if $chr =~ /^[\n\r\f\x85]$/; # CCLASS_NEWLINE
    $ret |= 0 <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	337	448	
==>ads.
BEGIN {
    use Config;
    # Load threads::shared when threads are turned on
    if( $] >= 5.008 && $Confi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572976	573065	
==>m_class_String);\n  VTABLE_set_string_native(interpreter, name, {{\@2}});\n  {{\@1}} = pmc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573886	573975	
==>m_class_String);\n  VTABLE_set_string_native(interpreter, name, {{\@2}});\n  {{\@1}} = pmc <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761416	761519	
==>f ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762269	762372	
==>f ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_P <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1292	1377	
==>atement::Decrement;
use Jako::Construct::Statement::Goto;
use Jako::Construct::Stateme <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2650	2749	
==>ko::Symbol->new( # TODO: Just point at the Declaration?
    $self->block,
    ($self->is_global ? 'g <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	36856	36945	
==>e also: C<"extract_quotelike"> and C<"extract_codeblock">.


=head2 C<extract_tagged>

C<e <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111245	111338	
==>Y" => "#line 187 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_or(interpreter, {{\@2}}, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112137	112230	
==>Y" => "#line 187 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_or(interpreter, {{\@2}}, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113029	113122	
==>Y" => "#line 187 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_or(interpreter, {{\@2}}, {{\@ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	878	997	
==>]}) {
      unless($key =~ m/^~/s) {
        next if $key eq 'start_line' and $_[0]{'hide_line_numbers'};
        _xml_e <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1152	1271	
==>]}) {
      unless($key =~ m/^~/s) {
        next if $key eq 'start_line' and $_[0]{'hide_line_numbers'};
        _xml_e <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	699	812	
==>]}) {
    unless($key =~ m/^~/s) {
      next if $key eq 'start_line' and $_[0]{'hide_line_numbers'};
      _xml_e <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8952	9044	
==>_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
go <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10456	10548	
==>_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
go <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11860	11952	
==>_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
go <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028376	1028567	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sleep",
                  "FLAGS" => "",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029227	1029418	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sleep",
                  "FLAGS" => "",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030068	1030259	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "sleep",
                  "FLAGS" => "",
                  " <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	4021	4140	
==>taste->NumExplodingSheep == 1,        'NumExplodingSheep() get' );

It will produce output like this:

    1..5
    ok 1 <==
3	/Users/nnunley/parrot/config/gen/icu.pm	484	577	
==>n = "Determining whether ICU is installed";

@args = qw(verbose icushared icuheaders icu-confi <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	1873	2001	
==>R)??
        # opt(|R|S) -> opt(R|S)??
        # opt(|||R|S) -> opt(R|S)??
        # opt(|||) -> ()
        if ($children[0]->{na <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9300	9409	
==>debug & 0x10
#DBG>		and	do {
#DBG>			print STDERR "**Entering Error recovery.\n";
#DBG>			++$dbgerror;
#DB <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8882	8987	
==>debug & 0x10
#DBG>		and	do {
#DBG>			print STDERR "**Entering Error recovery.\n";
#DBG>			++$dbgerror;
#DB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90222	90433	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91075	91286	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91929	92140	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o", <==
3	/Users/nnunley/parrot/config/auto/memalign.pm	476	585	
==>emalign';

@args = qw(miniparrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27297	27404	
==>e->{'name'}");

		# If we have PIR for the instruction, just take that. If not, we need
		# to generate it f <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34436	34543	
==>e->{'name'}");

		# If we have PIR for the instruction, just take that. If not, we need
		# to generate it f <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7682	7805	
==>if( $tagname eq 'Para') {
          $tagname = 'Para_item' if @stack and $stack[-1] eq 'text';
        }
        print $fh $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	8159	8277	
==>if( $tagname eq 'Para' ) {
        $tagname = 'Para_item' if @stack and $stack[-1] eq 'text';
      }
      print $fh $ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	719	814	
==>omment() happy.
our $VERSION = '1.0';

use Parrot::Docs::HTMLPage;

=item C<do_beginning()> 

Re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92624	92945	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95075	95396	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "A <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95968	96289	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "A <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	399	506	
==>ement);

sub new
{
  my $class = shift;
  my ($block, $left, $right) = @_;

  confess("Block (" . ref($block <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	390	497	
==>ement);

sub new
{
  my $class = shift;
  my ($block, $left, $right) = @_;

  confess("Block (" . ref($block <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8960	9066	
==>rig
w=15
dim a$(w)
for i = 0 to (22/7)*2 step 0.40
	for j = 1 to w*2
		a$(j)=" "
	next j
	a$(w+w*sin(i)+1)= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340940	341238	
==>nline",
                  "CODE" => 399,
                  "ARGS" => [
                              "i",
                              "p",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 128 \"src/ops/io.ops\" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177709	177960	
==>212,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 240 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeDumb.pm	737	855	
==>($e) = $_[1];
  die "WHAT ENCODING!?!?" unless $e;
  my $x;
  return sub {;
    #foreach $x (@_) {
    #  if(Pod::Simpl <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	8217	8374	
==>}
}

sub _InitLexico {
    my $parser = shift;

    my %keywords = (
        'and'      => 'AND',
        'break'    => 'BREAK',
        'do'       = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460303	460601	
==>GS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 528,
                  "ARGS" => <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4224	4319	
==>each %$group_files) {
        partial_link($group, $group_libs->{$group}, [ "lib-$group", @$pmcs <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4328	4423	
==>each %$group_files) {
        partial_link($group, $group_libs->{$group}, [ "lib-$group", @$pmcs <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10244	10362	
==>"**No state left on stack: aborting.\n";

			return(undef);
		};

		#shift the error token

#DBG>			$debug & 0x1 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9784	9895	
==>"**No state left on stack: aborting.\n";

			return(undef);
		};

		#shift the error token

#DBG>			$debug & 0x1 <==
3	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	1080	1181	
==>ir`;
	if ($output) {
		print "translate failed:\n$output";
		return 0;
	}
	$output = `$N2PConfig::parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695326	695690	
==>"FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 781,
                  "ARGS" => [
                              " <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7714	7890	
==>r =       $$dotpos
                        ?   map { $$_[1] } @$stack[ -$$dotpos .. -1 ]
                        :   ();

            $semval = $code ? &$code( $self, @sempa <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7363	7535	
==>r =       $$dotpos
                        ?   map { $$_[1] } @$stack[ -$$dotpos .. -1 ]
                        :   ();

            $semval = $code ? &$code( $self, @sempa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701317	701681	
==>"FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 787,
                  "ARGS" => [
                              " <==
3	/Users/nnunley/parrot/lib/Test/More.pm	37395	37487	
==>yright 2001, 2002, 2004 by Michael G Schwern E<lt>schwern@pobox.comE<gt>.

This program is fr <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	6355	6447	
==>yright 2001, 2002, 2004 by Michael G Schwern E<lt>schwern@pobox.comE<gt>.

This program is fr <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61547	61654	
==>)
			      or  _no_rule("pattern terminal",$line,$code);
		}
		elsif ($grammar =~ m/(?=$MATCHRULE)/gco
				a <==
3	/Users/nnunley/parrot/examples/benchmarks/stress.pl	723	806	
==>arks/stress1.pl>, 
F<examples/benchmarks/stress2.pasm>, 
F<examples/benchmarks/stres <==
3	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	667	750	
==>arks/stress1.pl>, 
F<examples/benchmarks/stress2.pasm>, 
F<examples/benchmarks/stres <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514124	514302	
==>ps\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515004	515182	
==>ps\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515884	516062	
==>ps\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVAL){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	7627	7759	
==>err and $out eq $err ) {
        $err = "&STDOUT";
    }

    local *OLDOUT if $out;
    local *OLDERR if $err;

    # Save the old f <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7679	7810	
==>err and $out eq $err) {
        $err = "&STDOUT";
    }

    local *OLDOUT if $out;
    local *OLDERR if $err;

    # Save the old f <==
3	/Users/nnunley/parrot/tools/dev/parrot_api.pl	6475	6581	
==>my $api (sort keys %DataB) {
	printf "%s\t%s\tUMD\n", $api, $DataB{$api};
    }
}

if (keys %DataD) {
    p <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670652	670875	
==>>vtable->push_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671425	671648	
==>>vtable->push_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	3	105	
==>opyright (C) 2004, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Docs/HTMLPage.pm 20321 2006-06-20T20: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020259	1020542	
==>=> "localtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1140,
                  " <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	12446	12551	
==>my $next = $self->genlabel('after_charclass');

    my @ops = (          aop('advance', [ $howfar, $lastba <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	8916	8999	
==>ONST(i) interpreter->code->const_table->constants[jit_info->cur_op[i]]
#define CALL( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	1741	1845	
==>ft->is('bof');           }
sub is_close_brace   { return shift->is('close-brace');   }
sub is_close_brack <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	6451	6556	
==>:%d]: '%s'\n", $file, $line, $1;
      push @tokens, Jako::Token->new(
        $file, $line, 'ident', unde <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430407	430635	
==>=> [
                              "ic",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 74 \"src/ops/math.ops\"\n  mmd_dispatch_v_ps(interpr <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	3957	4124	
==>nd of variable block
        if ($variable && /^\s*$/) {
            undef $variable;
            next;
        }
        
        if ($function) {
            if (/Cal <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	33320	33453	
==><<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp( <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	34069	34202	
==><<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp( <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	34993	35126	
==><<EOC;
	$ww = $w->[1]
EOC
       }
    }
    if ($sl_n & 1) {
	$v = pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp( <==
3	/Users/nnunley/parrot/config/auto/inline.pm	1230	1392	
==>->set_result('yes');
        } else {
            print " no " if $verbose;
            $self->set_result('no');
            $test   = '';
        }
    }

    $co <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1650	1740	
==>::_generate_subrule_pir($target, $pattern)
        : Parrot::Test::PGE::_generate_pir_for($ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2173	2263	
==>::_generate_subrule_pir($target, $pattern)
        : Parrot::Test::PGE::_generate_pir_for($ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7091	7198	
==>}

	if ($syms[CURR] eq "_startasm") {
		feedme;
		#$syms[CURR]=~s/^\n|\n$//gm;
		push @{$code{$seg}->{code}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663664	663750	
==>"#line 354 \"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delete_keyed(interpreter, {{\@1}}, { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664436	664522	
==>"#line 354 \"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delete_keyed(interpreter, {{\@1}}, { <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4530	4636	
==>lse {
      $string = substr($string, 1, -1); # Without the surrounding quotes.

      $handler->start_elem <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225455	225541	
==>3 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) >= {{\@2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226396	226482	
==>3 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) >= {{\@2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558899	559139	
==>TYPE" => "function",
                  "CODE" => 640,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 131 \"src/ops/object. <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	24711	24843	
==>df);
    unless ( defined $defn ) {
        my $name;
        $name = 'var_' . $parser->YYData->{lex_num} . '_' . $idf;
        $ <==
3	/Users/nnunley/parrot/editor/kate_syntax.pl	4015	4119	
==>ifier" context="#stay" String="[a-zA-Z_][\\w_]*" />
      </context>

END

print <<END;
      <context na <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	515	637	
==>nd        = $self->kind;
  my $peer        = $self->peer;

  my $prefix;

  if ($self->prefix) {
    $prefix = $self->prefi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	495	617	
==>nd        = $self->kind;
  my $peer        = $self->peer;

  my $prefix;

  if ($self->prefix) {
    $prefix = $self->prefi <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1666	1802	
==>ef,  # No return type
    undef   # No prefix
  );

  return bless {
    DEBUG            => 1,
    ANON_BLOCK_COUNT => 0,
    BLOCK_COUN <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133857	133965	
==>n  string_bitwise_xor(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134638	134746	
==>n  string_bitwise_xor(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	639737	639849	
==>2]);\n\t  break;\n      default:\n\t  internal_exception(UNIMPLEMENTED, \n\t\t  \"uninplement class argument in i <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6419	6520	
==>return $sym if defined $sym;

  return undef unless defined $self->block; # Terminate recursion

  ret <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1820	1910	
==>l
C<<
Pod::Simple::PullParserTextToken->new( I<text> )
>>

=head1 SEE ALSO

L<Pod::Simple:: <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4280	4385	
==>ex::Ops::Tree::_atom;

sub minlen { 1 }
sub maxlen { 1 }
sub dfa_safe { 1 }
sub hasback { 1 }

# Sequences <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9104	9202	
==>erpreter, fe->seg, 1);\n    }\n    string_cstring_free(label);\n    interpreter->resume_flag = 2;\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10220	10318	
==>erpreter, fe->seg, 1);\n    }\n    string_cstring_free(label);\n    interpreter->resume_flag = 2;\n <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	385	488	
==>y;

use strict;
use warnings;

use base qw( Parrot::IO::Path );

use DirHandle;
use File::Path;
use File <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81127	81432	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compile" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82020	82325	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compile" <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	7041	7132	
==>close_bracket { return shift->skip('close-bracket'); }
sub skip_close_paren   { return shift <==
3	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1187	1304	
==>est);
  if($resp->is_success) {
    if($resp->content =~ /^ok/) {
      debug "success!\n";
      exit 0;
    } else { <==
3	/Users/nnunley/parrot/config/init/hints/linux.pm	1956	2061	
==>(SHARE_EXT).$(SOVERSION)',
    );

    if ((split('-', $Config{archname}))[0] eq 'ia64') {
        $conf-> <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	2024	2123	
==>be
modified so that it doesn't need to concatenate separate ops files.

=head1 SEE ALSO

=over 4

=i <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	1666	1759	
==>ess_*> methods
below. This makes it easier to where the custom bits of Parrot-specific
formatt <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488824	489033	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	489577	489786	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o", <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	3223	3331	
==>| Carp::croak('You have to call set_source before you can call get_token');
       
      DEBUG and print "$s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	538	630	
==>not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Dest (" . ref($des <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	529	621	
==>not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Dest (" . ref($des <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	418	510	
==>not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Dest (" . ref($des <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573113	573386	
==>name);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newcl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574023	574296	
==>name);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newcl <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320608	320806	
==>[
                              "i",
                              "nc"
                            ],
                  "BODY" => "#line 124 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (INTVAL)((Parrot_Int4 <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3010	3133	
==>'  => "IREG(%ld)",
    'n'  => "NREG(%ld)",
    'p'  => "PREG(%ld)",
    's'  => "SREG(%ld)",
    'k'  => "PREG(%ld)",
    ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2830	2953	
==>'  => "IREG(%ld)",
    'n'  => "NREG(%ld)",
    'p'  => "PREG(%ld)",
    's'  => "SREG(%ld)",
    'k'  => "PREG(%ld)",
    ' <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1927	2045	
==>'   => "IREG(%ld)",
  'n'   => "NREG(%ld)",
  'p'   => "PREG(%ld)",
  's'   => "SREG(%ld)",
  'k'   => "PREG(%ld)",
  ' <==
3	/Users/nnunley/parrot/config/inter/pmc.pm	5445	5548	
==>_classes_o   => $TEMP_pmc_classes_o,
        TEMP_pmc_classes_str => $TEMP_pmc_classes_str,
        TEMP <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853328	853416	
==>"#line 100 \"src/ops/string.ops\"\n  {{\@1}} = string_append(interpreter, {{\@1}}, {{\@2} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854110	854198	
==>"#line 100 \"src/ops/string.ops\"\n  {{\@1}} = string_append(interpreter, {{\@1}}, {{\@2} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683609	683831	
==>=> 767,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 522 \"src/ops/pmc.ops\"\n    {{\@1}} = {{\@2}}->vt <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	2174	2270	
==>use vars qw($VERSION);

require 5.005;

$VERSION = sprintf "%d.%d", q$Revision: 19607 $ =~ /(\d+) <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	1452	1546	
==>cs/File.pm'),
		    $self->new_item('', 'lib/Parrot/Docs/Directory.pm'),
		    $self->new_item( <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5453	5542	
==>TYPE}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = c <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	5780	5902	
==>ure char '$_' on line $. of $ARGV"
                unless exists $sig_char{$_};
            push @arg, make_arg($_, $reg_nu <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	10948	11068	
==>= @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # undef only matches undef an <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	11366	11486	
==>= @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # undef only matches undef an <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	843	966	
==>sub ident  { return shift->{IDENT};  }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;
  
  my $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	843	964	
==>sub ident  { return shift->{IDENT};  }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	858	977	
==>sub ident { return shift->{IDENT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $ <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1522	1778	
==>EDO
                              #
DONE:                         # DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
print "Elapsed time:  $N2\n <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	1522	1778	
==>EDO
                              #
DONE:                         # DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
print "Elapsed time:  $N2\n <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	2182	2279	
==>ied before any
metadata tags.

Example: if this line is in the MANIFEST.generated file

  language <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	1267	1374	
==>sh
    store_global "APL", "%pirtable", $P0

    # these are the 'generic' forms of each op
    $P0['dyadic: <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	801	890	
==>ingstarted.pod'),
			$self->new_item('', 'docs/submissions.pod'),
			$self->new_item('', ' <==
3	/Users/nnunley/parrot/languages/javascript/bootstrap.pm	113	232	
==>>create_context();

$context->bind_function(
	name =>	"snarf",
	func => sub { 
              my $file = shift;
	      wa <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033157	1033249	
==>=> "#line 41 \"src/ops/var.ops\"\n    parrot_context_t * const ctx = CONTEXT(interpreter->ctx <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034255	1034347	
==>=> "#line 41 \"src/ops/var.ops\"\n    parrot_context_t * const ctx = CONTEXT(interpreter->ctx <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1322	1445	
==>iled with exit code $exit_code")
        if $exit_code and not $pass;
    }

    unless($ENV{POSTMORTEM}) {
        unlink $ <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1363	1486	
==>iled with exit code $exit_code")
        if $exit_code and not $pass;
    }

    unless($ENV{POSTMORTEM}) {
        unlink $ <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2486	2607	
==>iled with exit code $exit_code")
      if $exit_code and not $pass;
    }

    unless($ENV{POSTMORTEM}) {
      unlink $ou <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	250	361	
==>48089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block::Bare;

use Carp;

use Jako:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035351	1035443	
==>=> "#line 64 \"src/ops/var.ops\"\n    parrot_context_t * const ctx = CONTEXT(interpreter->ctx <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036515	1036607	
==>=> "#line 64 \"src/ops/var.ops\"\n    parrot_context_t * const ctx = CONTEXT(interpreter->ctx <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	973	1086	
==>EBUG  => 1,
    FILE   => $token->file,
    LINE   => $token->line
  }, $class;
}

sub kind  { return shift->{KIND <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	3998	4093	
==>rg($type, $value, $op)>

Implemented in subclasses to return the C code for the specified op
arg <==
3	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	764	849	
==>dumpstack.pasm"
.include "tokenize.pasm"
.include "basicvar.pasm"
.include "basic.pasm <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111273	111365	
==>it.ops\"\n  {{\@1}} = string_bitwise_or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112165	112257	
==>it.ops\"\n  {{\@1}} = string_bitwise_or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113057	113149	
==>it.ops\"\n  {{\@1}} = string_bitwise_or(interpreter, {{\@2}}, {{\@3}}, NULL);\n  {{+=4}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	602116	602354	
==>ABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "class",
                  "FLAGS" => ":object_cl <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	15170	15280	
==>ries, $lastback);

    my (@ibacks, @iops);
    foreach (@args) {
        my ($iback, @ops) = $self->rewrite($_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1879	1983	
==>(my $i = 0; $i < @args; $i++) {
    my ($formal_arg_type, $formal_arg_name) = @{$formal_args[$i]};
    my <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1579	1683	
==>(my $i = 0; $i < @args; $i++) {
    my ($formal_arg_type, $formal_arg_name) = @{$formal_args[$i]};
    my <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	62742	62837	
==>most opening brackets
that were specified.

=item C<Improperly nested codeblock at %s>

A nested <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3841	3940	
==>ind eq 'var') and ($dest_ident->scope eq 'global')) {
    my $pmc_type = $dest_ident->type->imcc_pmc <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4749	4848	
==>ind eq 'var') and ($dest_ident->scope eq 'global')) {
    my $pmc_type = $dest_ident->type->imcc_pmc <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2812	2911	
==>ind eq 'var') and ($dest_ident->scope eq 'global')) {
    my $pmc_type = $dest_ident->type->imcc_pmc <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31262	31362	
==>elf, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $line, $out_name)>

R <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35893	35993	
==>elf, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $line, $out_name)>

R <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39882	39982	
==>elf, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<body($method, $line, $out_name)>

R <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13699	13803	
==>es
' Expect:  100, 12 and 103
type first
	foo as integer
	bar as string
end type
function mine (a, b, c a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79310	79411	
==>}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      /* At this point we have the symbol <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80831	80932	
==>}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      /* At this point we have the symbol <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	926688	926998	
==>reak;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "str <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928158	928468	
==>reak;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "str <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929628	929938	
==>reak;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "str <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5016	5120	
==>elative to the source
directory.

=cut

sub contents_relative_to_source
{
    my $self = shift;
    my $s <==
3	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2149	2248	
==>eval_ok

sub eval_ok (Str $code, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $res <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3008	3106	
==>elative to the source
directory.

=cut

sub contents_relative_to_source
{
	my $self = shift;
	my $s <==
3	/Users/nnunley/parrot/config/inter/lex.pm	350	441	
==>$prompt $util );

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step q <==
3	/Users/nnunley/parrot/config/inter/make.pm	344	435	
==>$prompt $util );

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step q <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	345	436	
==>$prompt $util );

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step q <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3360	3471	
==>ta->get('linkflags');
            $linkflags =~ s/-opt:\S+//;
            $conf->data->set(linkflags => $linkfla <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4864	4975	
==>ta->get('linkflags');
            $linkflags =~ s/-opt:\S+//;
            $conf->data->set(linkflags => $linkfla <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	18493	18601	
==>);
	print <<EOC;
	$n = not $tos->[1] $cmt
EOC
	push @stack, [-1, $n, $tos->[2]];

    }
}

sub UNARY_POSITIVE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529388	529556	
==>",
                              "n"
                            ],
                  "BODY" => "#line 838 \"src/ops/math.ops\"\n  {{\@1}} = atan2((FLOATVAL){{\@2}}, (FL <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	19745	19867	
==>e (and its descendants)
        # no need to back-update the counter just yet
        redo;

      } elsif($merge and $i != <==
3	/Users/nnunley/parrot/tools/build/ops2pm.pl	5633	5734	
==>THIS FILE   !!!!!!!
#
# This file is generated automatically from '$file'.
# Any changes made here wil <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1655	1745	
==>nerate_subrule_pir($target, $pattern)
        : Parrot::Test::PGE::_generate_pir_for($targe <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2178	2268	
==>nerate_subrule_pir($target, $pattern)
        : Parrot::Test::PGE::_generate_pir_for($targe <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030917	1031211	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sizeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031785	1032079	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sizeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" <==
3	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	5985	6139	
==>tring target
            .local pmc rulesub
            .local pmc match
            .local string name
            .local string subpat

            targe <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223592	223683	
==>"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224534	224625	
==>"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}} <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	518	609	
==>okens from Pod::Simple::PullParser

=head1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	937	1028	
==>okens from Pod::Simple::PullParser

=head1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	424	515	
==>okens from Pod::Simple::PullParser

=head1 SYNOPSIS

(See L<Pod::Simple::PullParser>)

=head <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11592	11696	
==>e != 2 goto NO_IN_TRACE
printerr "    PTYPES: "
i = elements ptypes
j = 0
PTYPES_LOOP:
if j == i goto PTY <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	17	107	
==>right (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/examples/mops/mops.pl 19601 2006-0 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14291	14444	
==>look at all contentworthy!\n  Giving up.\n";
          undef $title;
          last;
        }
      }
    }
    
    else {
      die "IMPOSSIBLE STATE $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1073	1205	
==>,
    PROPS => $props,
    ARGS  => $args,

    DEBUG => 1,
    FILE  => $ident->file,
    LINE  => $ident->line
  }, $class;

  $blo <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16336	16438	
==>r);
		$whole.=join(' ', map { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair unary -, functions, etc <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18878	18999	
==>pcodes, new NoOp($parser);
        }
        push @params, $arg->[0];
    }
    if ( scalar(@opcodes) and $opcodes[-1] <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	5872	5991	
==>push @arg, make_arg($_, $reg_num++, \$temp_cnt, \@temps,
                                \@extra_preamble, \@extra_posta <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	4136	4240	
==>l or
    die "Couldn't write to \"$filename\": $!\n";
  close $fh or
    die "Couldn't close \"$filename\ <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2886	2980	
==>ile',
	'MANIFEST' => 'Manifest file',
	'NEWS' => 'Project info',
	'PBC_COMPAT' => 'Bytecode com <==
3	/Users/nnunley/parrot/lib/Pod/Escapes.pm	5105	5235	
==>ma'    , 915,
 'Delta'    , 916,
 'Epsilon'  , 917,
 'Zeta'     , 918,
 'Eta'      , 919,
 'Theta'    , 920,
 'Iota'     , 921,
 'K <==
3	/Users/nnunley/parrot/config/auto/readline.pm	205	319	
==>PTION

Determines whether the platform supports readline.

=cut

package auto::readline;

use strict;
use vars qw($ <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	5654	5755	
==>chen).  This is it.


=head1 SEE ALSO

=over 4

=item L<Test::More>

More testing functions!  Once you <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	733	835	
==>struct::Type));
  confess "Identifier (" . ref($ident) . ") is not!" unless UNIVERSAL::isa($ident, qw(J <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	758	860	
==>struct::Type));
  confess "Identifier (". ref($ident) . ") is not!"  unless UNIVERSAL::isa($ident, qw(J <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	722	824	
==>struct::Type));
  confess "Identifier (". ref($ident) . ") is not!"  unless UNIVERSAL::isa($ident, qw(J <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	268761	269110	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "isgt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	7852	7977	
==>') {
            if( ($text_count_here += length ${$to_unget[-1]->text_r}) > 150 ){
              DEBUG > 1 and print "    ite <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	7229	7479	
==>s, 0, 2 ))
        {
           eval
           {
               push @sig, find_type( $type ) . ' ' . $name;
               push @args, $name;
            };
        }

        next if $@;

        my $signature = join( ', ', @sig  );
        my $arg <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	632	749	
==>s) || $class;
  my $new;
  if(@_ == 1) {
    if (!ref($_[0] || '')) { # most common case: one bare string
      return <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	78470	78569	
==>]";
	$errorprefix = "Parse::RecDescent";
	$errortext =~ s/\s+/ /g;
	write ERROR;
}

sub _linecount($ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5262	5432	
==>{
            push @ops, "lt <rx_tmp>, $first, $fail"
              unless $first == 0;
            push @ops, "lt <rx_tmp>, $last, $pass";
        } else {
            pu <==
3	/Users/nnunley/parrot/tools/dev/cc_flags.pl	1506	1624	
==>ie "syntax error in $cflags: line $., $_\n";
	}
	else {
	    last;
	}
    }
}

my ($cfile) = grep /\.c$/, @ARGV;

my ($ <==
3	/Users/nnunley/parrot/config/gen/config_h.pm	153	254	
==>config_h.pm - Configuration Header

=head1 DESCRIPTION

Generates F<include/parrot/config.h> with plat <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614799	614903	
==>" => "#line 508 \"src/ops/object.ops\"\n    opcode_t *next = {{^+4}};\n    INTVAL offset;\n    offset = P <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615950	616054	
==>" => "#line 508 \"src/ops/object.ops\"\n    opcode_t *next = {{^+4}};\n    INTVAL offset;\n    offset = P <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5463	5551	
==>ecrement stack height.
PRE_BRANCH_${CURIC}_CONT_$register_num:
dec stack_depth
PIR
		$pir <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	4011	4148	
==>ok to see if $lines[-1] is =encoding, and if so,
        # do horribly magic things

      }
      
      if(DEBUG > 8) {
        print "* <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36779	36883	
==>"Null PMC access in $meth()");
        $ret
}

EOC
}

=back

=head2 Parrot::Pmc2c::delegate Instance Meth <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	1251	1354	
==>lf->new_item('Where to find or put things that need doing in Parrot.', 'TODO'),
            $self->new_i <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758272	758362	
==>"BODY" => "#line 276 \"src/ops/set.ops\"\n  {{\@1}} = string_set(interpreter, {{\@1}}, {{\@ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759045	759135	
==>"BODY" => "#line 276 \"src/ops/set.ops\"\n  {{\@1}} = string_set(interpreter, {{\@1}}, {{\@ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10021	10111	
==>P0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC}:
if ${ITEMP <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7535	7625	
==>P0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC}:
if ${ITEMP <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6499	6589	
==>P0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC}:
if ${ITEMP <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	5937	6067	
==>p}
          or next;
        ($group) = keys %$group;
        $pmc_group{$pmc} = $group;
        push @{ $group_files{$group} }, $ <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	6148	6278	
==>p}
          or next;
        ($group) = keys %$group;
        $pmc_group{$pmc} = $group;
        push @{ $group_files{$group} }, $ <==
3	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	638	735	
==>ll be put
into. The name is a simple concatenation of the package name, double
colon, and the rout <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	397	509	
==>tion);

use Jako::Symbol;
use Jako::Construct::Type;


#
# new()
#

sub new
{
  my $class = shift;

  my ($block, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349253	349349	
==>e(path); */\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350255	350351	
==>e(path); */\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+= <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1146	1258	
==>ame;
}

sub dbgoto {
    my ($self, $label) = @_;
    return () unless $self->{DEBUG};
    return () unless $self <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	636	748	
==>ame;
}

sub dbgoto {
    my ($self, $label) = @_;
    return () unless $self->{DEBUG};
    return () unless $self <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35747	35853	
==>un less (or more) tests than you planned, the missing (or extras)
will be considered failures.  If no tests <==
3	/Users/nnunley/parrot/lib/Test/More.pm	33818	33924	
==>un less (or more) tests than you planned, the missing (or extras)
will be considered failures.  If no tests <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2614	2720	
==>un less (or more) tests than you planned, the missing (or extras)
will be considered failures.  If no tests <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4949	5090	
==>, $self->require_ident);
      my $name = $ident->value;

      #
      # Allow there to be Properties:
      #

      my %props;

      while <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7943	8084	
==>, $self->require_ident);
      my $name = $ident->value;

      #
      # Allow there to be Properties:
      #

      my %props;

      while <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	557	656	
==>l/$dynamic_dir/$_.pir'\n"
    for @dynamic_cmds;



# For every builtin with an inline'd version and <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10901	11000	
==>outfile_base.lines.html";
    print "Writing $outfile..\n" if $DEBUG;
    open (IN, "<$infile") or d <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661937	662024	
==>n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(interpreter, {{\@2} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662853	662940	
==>n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(interpreter, {{\@2} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552882	552997	
==>thod_pmc);\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556877	556992	
==>thod_pmc);\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560900	561015	
==>thod_pmc);\n  dest = (opcode_t *)VTABLE_invoke(interpreter, method_pmc, next);\n  {{=dest}};\n",
                  " <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1883	2024	
==>n );

        # STDERR is written into same output file
        my $exit_code = Parrot::Test::run_command( 
                            \@test <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2363	2491	
==>n );

        # STDERR is written into same output file
        my $exit_code = Parrot::Test::run_command(
            \@test <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167072	167369	
==>AGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 201,
                  "ARGS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022796	1023089	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodelocaltime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023645	1023938	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodelocaltime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8388	8540	
==>then ";

                $$check eq 'ERROR'
            or  do {
#DBG>				$debug & 0x04
#DBG>			and	print STDERR 
#DBG>				    "go to state $$state <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8008	8154	
==>then ";

                $$check eq 'ERROR'
            or  do {
#DBG>				$debug & 0x04
#DBG>			and	print STDERR 
#DBG>				    "go to state $$state <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	13845	13962	
==>ke_subs {
    my ($ptr, $type, $index) = @_;

    return(($ptr eq '&' ? '&' : '') . sprintf($argmaps{$type_to_arg{$typ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514710	515014	
==>,
                  "TYPE" => "inline",
                  "CODE" => 593,
                  "ARGS" => [
                              "n",
                              "nc",
                              "n"
                            ],
                  "BODY" => "#line 708 \"src/ops/math.ops\"\n   {{ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	2709	2834	
==><') {
        return "lt $a, $b, $where";
    } elsif ($cond eq '<=') {
        return "le $a, $b, $where";
    } elsif ($cond <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20881	20976	
==>g = 1;
        $right = Jako::Construct::Expression::Value::Identifier->new($block, $self->requi <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8707	8838	
==>Error recovery.\n";
#DBG>				$dbgerror=0;
#DBG>			};

			    push(@$stack,
                     [ $$states[$$stack[-1][0]]{GOTO <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8315	8441	
==>Error recovery.\n";
#DBG>				$dbgerror=0;
#DBG>			};

			    push(@$stack,
                     [ $$states[$$stack[-1][0]]{GOTO <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	1952	2058	
==>}

  uncompress_smoke($CGI);
  unless($CGI->param("smoke") =~ /^<!DOCTYPE html/) {
    print "The submitted <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703663	703892	
==>"p",
                              "ic",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(inter <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8023	8174	
==>ck eq 'ACCEPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Accept.\n";

				return($semval);
			};

                $$ <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7663	7805	
==>ck eq 'ACCEPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Accept.\n";

				return($semval);
			};

                $$ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	52875	53096	
==>} || '=over')
               . ' ' . $_->[1]{'target'})
             : $_->[0]
        }
    @$curr_open
  ;
}

###########################################################################
my %pretty_form = (
  "\a" => '\a' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2157	2260	
==>programmer wanted to shadow the
  # previous definition.
  #

  if (defined $sym and $sym->block eq $blo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1904	2007	
==>programmer wanted to shadow the
  # previous definition.
  #

  if (defined $sym and $sym->block eq $blo <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	38988	39080	
==>C<reject> pattern matches). By default, a failure to match a closing
tag causes C<extract_tag <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	23164	23269	
==>assname)]}, "ascii",
            PObj_constant_FLAG|PObj_external_FLAG);
        vt_clone->isa_str = strin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718010	718102	
==>n    PIO_puts(interpreter, io, \" \");\n  PIO_fprintf(interpreter, io, INTVAL_FMT, (INTVAL){{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718942	719034	
==>n    PIO_puts(interpreter, io, \" \");\n  PIO_fprintf(interpreter, io, INTVAL_FMT, (INTVAL){{ <==
3	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	316	402	
==>s/dev/gen_charset_tables.pl 19607 2006-05-30T15:23:20.183054Z coke  $' =~ /^\$[iI][dD]: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594787	595038	
==>E" => 674,
                  "ARGS" => [
                              "p",
                              "kc",
                              "kc"
                            ],
                  "BODY" => "#line 325 \"src/ops/object.ops\"\n  PMC *clas <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3423	3527	
==>$val1, $val2, $dest) = @_;
    $self->output_test('gt', $val1, $val2, $dest);
}

sub output_ge {
    my ( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	2013	2104	
==>lf->block->set_symbol($new_name, $self->get_symbol($symbol_name));
  }

#  printf STDERR "%s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	319	402	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub _handle <==
3	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	316	399	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub _handle <==
3	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	572	655	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub _handle <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	380	507	
==>w {
    return bless {};
}

my %language_test_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    out <==
3	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	295	421	
==>w {
  return bless {};
}


my %language_test_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    out <==
3	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	461	583	
==>w {
    return bless {};
}

my %language_test_map = (
    output_is   => 'is_eq',
    output_like => 'like',
    out <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255648	255942	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "xor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256555	256849	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "xor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257463	257757	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "xor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9437	9537	
==><<'PIR';
# See if we've got a return or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_$ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5507	5607	
==><<'PIR';
# See if we've got a return or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_$ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6952	7051	
==><<'PIR'
# See if we've got a return or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETURN_$ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	894687	894997	
==>010,
                  "ARGS" => [
                              "s",
                              "s",
                              "i",
                              "ic",
                              "sc"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	7862	7981	
==>ly with 0.

=cut

sub skip_all {
    my($self, $reason) = @_;

    my $out = "1..0";
    $out .= " # Skip $reason" if $r <==
3	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	911	1022	
==>my $func ( keys %language_test_map ) {
    no strict 'refs';

    *{"Parrot::Test::Bc::$func"} = sub {
        m <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103326	1103642	
==>"new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1222,
                  "ARGS <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	28190	28287	
==>i, $treelet);
  my $start_line = $stack[0][1]{'start_line'};

  # A recursive algorithm implemente <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	31691	31788	
==>i, $treelet);
  my $start_line = $stack[0][1]{'start_line'};

  # A recursive algorithm implemente <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	18173	18286	
==>] }
	],
	[#Rule 2
		 'rules', 0,
sub
#line 75 "lib/Regex/Grammar.y"
{ return []; }
	],
	[#Rule 3
		 'rule', 4,
sub <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	30108	30208	
==>ed on $Level.

Sometimes there is some confusion about where todo() should be looking
for the $TODO v <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	54145	54242	
==>ss works by applying each extractor in
sequence to the text string.

If the extractor is a subrout <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	36358	36487	
==>rn \@opcodes;
}

sub BuildParam {
    my ( $parser, $idf ) = @_;
    my @opcodes1 = ();
    my @opcodes2 = ();
    my $defn <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	43647	43769	
==>";

      if(!defined( $charnum )) {
        DEBUG > 1 and print "I don't know how to deal with E<$content>.\n";
        $s <==
3	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	682	790	
==>.cs`;
	if ($output) {
		print "compile_cs failed:\n$output";
		return 0;
	}
	
	# Clean up file.
	unlink "$fil <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27518	27630	
==>self) ? ''
				: $self->describe ) . '};
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29628	29740	
==>self) ? ''
				: $self->describe ) . '};
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31725	31837	
==>self) ? ''
				: $self->describe ) . '};
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) . '

		' . ($ <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	19495	19606	
==>rch for the PMC dump files.

=cut

sub gen_c {
    my ($include, @files) = @_;
    my %pmcs = map { $_, read_dum <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	4054	4158	
==>, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert lib-GROUP. <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	4158	4262	
==>, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert lib-GROUP. <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	9775	9879	
==>nd 
			($syms[CURR] eq ',' and $type[CURR] ne "STRING"));
		last if ($syms[CURR] eq ';');
		push(@expr, [ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5829	5925	
==>}}, "IFBRANCH_$_:\n";
			}
			while($_=pop(@{$elsestack->{$elsetag}})) {
				push @{$code{$seg}-> <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8175	8268	
==>}}, "IFBRANCH_$_:\n";
		}
		while($_=pop(@{$elsestack->{$elsetag}})) {
			push @{$code{$seg}-> <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	981	1090	
==>EN}; }
sub type  { return shift->{TYPE};  }
sub value { return shift->{VALUE}; }


#
# compile()
#
# Essential <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1455	1556	
==>0]{'output_fh'}} $indent, $text, "\n";
  }
  return;
}

sub _handle_element_end {
  DEBUG and print "- <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	1796	1889	
==>$self->get('verbose') && $self->get('verbose') == 2;

    print "Setting Configuration Data:\n <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	25556	25678	
==>FixedPMCArray
    i = bc.read_uint32()
    next_pc += 4
    \${P_ARG_$arg_num} = i
    j = 0
JT_LOOP_$name:
    if j == i g <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	709937	710048	
==>> "#line 732 \"src/ops/pmc.ops\"\n  {{\@1}} = {{\@2}}->vtable->mro;\n  {{+=3}};\n",
                  "LABELS" = <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	78130	78232	
==>itional <error>",$_[2])
		and
		_hint("An unconditional <error> always causes the
		       production c <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	14174	14315	
==>] };
            my $nil = BuildLiteral( $parser, 'nil', 'nil' );
            push @{ $expr->[1] }, @{ $nil->[1] };
            my $n = sca <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6063	6172	
==>src/ops/core.ops\"\n    Parrot_load_bytecode(interpreter, {{\@1}});\n    {{+=2}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6729	6838	
==>src/ops/core.ops\"\n    Parrot_load_bytecode(interpreter, {{\@1}});\n    {{+=2}};\n",
                  "LABEL <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	212	307	
==>ot::Docs::Item;

=head1 DESCRIPTION

A documentation I<item> is one or more related paths with s <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	45593	45694	
==>lace one or more leading whitespace-separated quotelike
	# literals in $_ with "<QLL>"

		do { $_ = jo <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563936	564024	
==>bject.ops\"\n  VTABLE_add_method(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564834	564922	
==>bject.ops\"\n  VTABLE_add_method(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4}};\n", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842003	842362	
==>IRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 955,
                  "ARGS" => [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 40 \ <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	22522	22627	
==>me = $rule->{'name'};
	$pir .= "    # Translation code for $name\n";
	$name =~ s/\./_/g;
	$pir .= "INS_TRA <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	5643	5735	
==>)} $self->directory_paths;
}

=item C<file_suffixes($recursive, $ignore)>

Use this to get an <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	23261	23380	
==>lastpos = pos $$textref;
					last FIELD if @fields == $max;
					next FIELD;
				}
			}
			if ($$textref =~ /\G(.)/gcs) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722260	722359	
==>}; /* TODO Can this be localized? */\n  if (s && string_length(interpreter, s)) {\n    if (PIO_softs <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723289	723388	
==>}; /* TODO Can this be localized? */\n  if (s && string_length(interpreter, s)) {\n    if (PIO_softs <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37933	38046	
==>e'}");
		$pir .= "### end post_call\n";
	}

	# Unsupported class.
	else {
		die "Do not know how to handle class $ <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9311	9420	
==>eight.
dec stack_depth
PIR
	}

	return $pir;
}

# Pre and post call hooks.
sub pre_call {
    my $self = shift <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6829	6938	
==>eight.
dec stack_depth
PIR
	}

	return $pir;
}

# Pre and post call hooks.
sub pre_call {
    my $self = shift <==
3	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1444	1553	
==>th_to_language = '.';
        } elsif ($dir_count >2) {
          $path_to_language = File::Spec->join(File::S <==
3	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1929	2038	
==>th_to_language = '.';
        } elsif ($dir_count >2) {
          $path_to_language = File::Spec->join(File::S <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	60191	60282	
==>etected (although not necessarily where it occurred!)
Printing C<$@> directly produces the e <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10018	10108	
==>TEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC}:
if ${IT <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7532	7622	
==>TEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC}:
if ${IT <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6496	6586	
==>TEMP0} = elements ${PTEMP2}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC}:
if ${IT <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332792	333101	
==>-lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fd <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334070	334379	
==>-lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fd <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335348	335657	
==>-lt\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fd <==
3	/Users/nnunley/parrot/examples/benchmarks/stress.pl	583	695	
==>$_;
    }
    return \@foo;
}

=head1 SEE ALSO

F<examples/benchmarks/stress.pasm>, 
F<examples/benchmarks/stress <==
3	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	645	757	
==>$_;
    }
    return \@foo;
}

=head1 SEE ALSO

F<examples/benchmarks/stress.pasm>, 
F<examples/benchmarks/stress <==
3	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	492	604	
==>$_;
    }
    return \@foo;
}

=head1 SEE ALSO

F<examples/benchmarks/stress.pasm>, 
F<examples/benchmarks/stress <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	7018	7124	
==>c_stem, $dest_stem) = @_;

    $dest_stem ||= $src_stem;
    if (needs_build("$dest_stem$O", "$src_stem.c") <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5312	5418	
==>c_stem, $dest_stem) = @_;

    $dest_stem ||= $src_stem;
    if (needs_build("$dest_stem$O", "$src_stem.c") <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7229	7335	
==>c_stem, $dest_stem) = @_;

    $dest_stem ||= $src_stem;
    if (needs_build("$dest_stem$O", "$src_stem.c") <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1016636	1016912	
==>",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "time",
                  "FLAGS" => "",
                  "ARGD <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4360	4458	
==>($self, $code, $failLabel) = @_;
    my $comment = Regex::Ops::Tree::isplain($code) ? " # match '". <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4047	4145	
==>($self, $code, $failLabel) = @_;
    my $comment = Regex::Ops::Tree::isplain($code) ? " # match '". <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	9419	9562	
==>ck ]),
                     aop('goto', [ $next ]),
            $back => $self->dbprint("Unmatching $char\n"),
                     aop('increme <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	6636	6755	
==>mt->{next}->{label}
                && $stmt->{code}->{args}->[0] == $stmt->{next}->{label})
            {
		# If the la <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	597	682	
==>ako::Construct::Type::Integer;
use Jako::Construct::Type::Number;
use Jako::Construct: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93387	93660	
==>}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands", <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94167	94440	
==>}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands", <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	283	376	
==>ocumentation section describing all the POD documentation in F<docs>.

=head2 Class Methods

= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45652	45908	
==>+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pushaction",
                  "FLA <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	11650	11794	
==>ray Slice Super Undef',
             'pod' => undef,
             'prefix' => '/opt/local',
             'ptr_alignment' => 1,
             'ptrc <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	40179	40313	
==>}
           # Kill any number of terminal newlines
          $self->_verbatim_format($para);
        } else {
          push @$para, j <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	13897	14006	
==>=> 1}, 'POD ERRORS'],
    ['~Para', {'start_line' => $m, '~cooked' => 1, 'errata' => 1},
     "Hey! ",
     [' <==
3	/Users/nnunley/parrot/examples/benchmarks/stress.pl	749	832	
==>les/benchmarks/stress2.pasm>, 
F<examples/benchmarks/stress2.pl>, 
F<examples/benchm <==
3	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	810	893	
==>les/benchmarks/stress2.pasm>, 
F<examples/benchmarks/stress2.pl>, 
F<examples/benchm <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138786	139074	
==>],
                  "TYPE" => "inline",
                  "CODE" => 170,
                  "ARGS" => [
                              "ic",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 70 \"src/ops/ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	755	871	
==>}
	else
	{
		$Parse::RecDescent::unexpected =~ /\s*(.*)/;
		return "Was expecting $Parse::RecDescent::expected but fo <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	425	528	
==>lass = shift;
  my ($block, $left, $right) = @_;

  confess("Block (" . ref($block) . ") not!") unless U <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	416	519	
==>lass = shift;
  my ($block, $left, $right) = @_;

  confess("Block (" . ref($block) . ") not!") unless U <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1952	2050	
==>=over 4

=item C<create_path()>

This is called from C<new()> to create the path if necessary.

=cu <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	929	1027	
==>=over 4

=item C<create_path()>

This is called from C<new()> to create the path if necessary.

=cu <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	43843	43952	
==>eplacer = "E<$content>"; # better than nothing
      } elsif($charnum >= 255 and !UNICODE) {
        $replacer <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	489	589	
==>5;
  my ($block, $type, $ident, $props, $args) = @_;

  confess "Block is not!" unless UNIVERSAL::isa <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	2389	2486	
==>elf->{rules}} )
			{ $self->{rules}{$_}{changed} = 1 }

		print OUT "package $class;\nuse Parse::R <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11215	11326	
==>, <<"END");
  if <rx_mode> goto $trymatch
  goto $backup
END

    return @ops;
}

sub output_rule_end {
    my ( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936267	936374	
==>ops/string.ops\"\n  {{\@1}} = string_titlecase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937044	937151	
==>ops/string.ops\"\n  {{\@1}} = string_titlecase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LAB <==
3	/Users/nnunley/parrot/lib/Parrot/Config.pm	1639	1726	
==>-I/opt/local/include -fno-common -no-cpp-precomp  -pipe -Wdeclaration-after-statement -I <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1027	1114	
==>-I/opt/local/include -fno-common -no-cpp-precomp  -pipe -Wdeclaration-after-statement -I <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1031	1118	
==>-I/opt/local/include -fno-common -no-cpp-precomp  -pipe -Wdeclaration-after-statement -I <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	8883	8983	
==>follow_min -= $kid->minlen();

            $kid = $self->add_checks($kid, $kid_guarantee, $kid_follow <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	9333	9453	
==>my $is_repeating; 

    foreach my $arg (@args) {
        $min-- if $arg->{optional};

        # XXX this isn't quite rig <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	8132	8250	
==>ltin($syms[PREV]) ) {
				$unary=1;
			}
		}
		if (
			$this->[0] eq "("    and 
			hasargs($prev->[0])	# This works, b <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	13123	13229	
==>1, we're discarding it
    inc op1
    goto neg_loop

done:
    .return (op2)
.end

.sub unicode:"monadic:\ <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35641	35740	
==>er will exit with zero (which is
normal).  If anything failed it will exit with how many failed.  If <==
3	/Users/nnunley/parrot/lib/Test/More.pm	33712	33811	
==>er will exit with zero (which is
normal).  If anything failed it will exit with how many failed.  If <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8803	8898	
==>ath)>

Returns the path for the subdirectory with the specified path taken
relative to the direc <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5970	6071	
==>truction needs to
	# have an empty stack type state propogated to it if nothing has been
	# propogated <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3908	4009	
==>truction needs to
	# have an empty stack type state propogated to it if nothing has been
	# propogated <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36420	36520	
==>o code (sets up dtypes as needed).
		$pir .= "### typeinfo\n";
		$pir .= sub_meta($rule->{'typeinfo'} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	534555	534928	
==>_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 618,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BO <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	14481	14631	
==>( $exit_code, $cmd );
            unless ( $run_exec ) {
                if ( $args =~ s/--run-pbc// || $args =~ s/-r // ) {
                    my $pb <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	3973	4075	
==>kip_bench} } ) {
    my @regexes = grep defined, $ini->val( regexes => 'exclude');
    @{ $cfg{skip_ben <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	696	812	
==>elf;
}

sub init {
    my ($self, @args) = @_;
    $self->{_markers} = {};
    $self->{_temp_int_count} = 3;
    $sel <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	1846	1957	
==>$file);
get_source($file);
exit if $opt{D};
gen_code();

sub nci_method {
    my $m = shift;
    return 1 if $vt <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	8727	8823	
==>ess $syms[CURR] eq "#";
	feedme();
	$fd=$syms[CURR];
	push @{$code{$seg}->{code}},<<OPEN;
@code	n <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	38840	38960	
==>ams} ) {
        push @opcodes2, @{ $param->[2] };
    }
    push @opcodes2, @{$block};
    push @opcodes2, new EndDi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033512	1033620	
==>E_set_pmc_keyed_str(interpreter, lex_pad, lex_name, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034610	1034718	
==>E_set_pmc_keyed_str(interpreter, lex_pad, lex_name, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4720	4826	
==>se' up to '}#_Parse' inclusive.
#So, DO NOT remove comment at end of sub !!!
sub _Parse {
    my($self)= <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1583	1688	
==>)>. Called by C<goto_offset()>.

=cut

sub expr_offset
{
    my ($self, $offset) = @_;

    return "cur_op <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4485	4588	
==>se' up to '}#_Parse' inclusive.
#So, DO NOT remove comment at end of sub !!!
sub _Parse {
    my($self)= <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	200	313	
==>tokenize {
  my $file = shift;
  my $text;
  my $tokref;
  my $token = '';

  open SOURCE,"<$file";
  while(<SOURC <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784319	784405	
==>ops/set.ops\"\n    {{\@1}}->vtable->set_pmc_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785225	785311	
==>ops/set.ops\"\n    {{\@1}}->vtable->set_pmc_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{ <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1708	1816	
==>$prog = prompt($prompt, $prog ? $prog : $conf->data->get($util));
    }

    my ($stdout, $stderr, $ret) = ca <==
3	/Users/nnunley/parrot/config/inter/make.pm	1582	1690	
==>$prog = prompt($prompt, $prog ? $prog : $conf->data->get($util));
    }

    my ($stdout, $stderr, $ret) = ca <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1722	1830	
==>$prog = prompt($prompt, $prog ? $prog : $conf->data->get($util));
    }

    my ($stdout, $stderr, $ret) = ca <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26285	26425	
==>var' => 35,
			'primary' => 28
		}
	},
	{#State 81
		ACTIONS => {
			":" => 134,
			"(" => 48,
			"{" => 38,
			"[" => 47,
			"." = <==
3	/Users/nnunley/parrot/config/auto/gc.pm	1686	1792	
==>ace)?$/) {
        $conf->data->set(
            TEMP_gc_c => <<"EOF",
\$(SRC_DIR)/$gc\$(O):	\$(GENERAL_H_F <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	820	916	
==>nst>

=item C<-C>

List the constant (read-only) data symbols.

Not all platforms support this, a <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197986	198254	
==>=> "inline",
                  "CODE" => 234,
                  "ARGS" => [
                              "ic",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 366 \"src/ops/cmp.ops <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	6498	6673	
==>ec_start']
            ),
        ),
        $self->new_group(
            'IO', 
            '',
            $self->c_item(
                'Parrot\'s layer-based I/O subsyste <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6434	6540	
==>ss_item_text_or_head_start_token
{
    my $self = shift;
    my $token = shift;
    my $tagname = $token->t <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	713	812	
==>($type, qw(Jako::Construct::Type));
  confess "Identifier (" . ref($ident) . ") is not!" unless UNIV <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	738	837	
==>($type, qw(Jako::Construct::Type));
  confess "Identifier (". ref($ident) . ") is not!"  unless UNIV <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	702	801	
==>($type, qw(Jako::Construct::Type));
  confess "Identifier (". ref($ident) . ") is not!"  unless UNIV <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1105	1194	
==>no-common -Wno-long-double  -I /opt/local/include   -g -Wall -Wstrict-prototypes -Wmissing <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1163	1252	
==>no-common -Wno-long-double  -I /opt/local/include   -g -Wall -Wstrict-prototypes -Wmissing <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1167	1256	
==>no-common -Wno-long-double  -I /opt/local/include   -g -Wall -Wstrict-prototypes -Wmissing <==
3	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	184	268	
==>&Pod::Simple::BlackBox::stringify_lol,
  'bool' => \&Pod::Simple::BlackBox::stringify <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_assignments.pm	70	236	
==>1
#    % &   INT
#    ! #   FLO
#    $     STRING
#    
# Type must be one of INT FLO STRING
#    INT  is in   I0
#    FLO  is in   N0
#    STRING is in S0
#
# No impl <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	55245	55338	
==>t element is one of the
above extractor types (subroutine reference, regular expression, or st <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	116	209	
==>07 2006-05-30T15:23:20.183054Z coke  $

=head1 NAME

tools/build/pbc2c.pl - Parrot byte code c <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	527	662	
==>urn
  {
    I => { map { $_ => 0 } (0..31) },
    N => { map { $_ => 0 } (0..31) },
    S => { map { $_ => 0 } (0..31) },
    P => { map <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	1154	1259	
==>_\n" foreach (@$instructions);
}

sub output_footer {
    my ($self, $fh) = @_;
    return 1 unless $self- <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33173	33266	
==>{
	my $desc = $_[0]->{"implicit"} || $_[0]->{"subrule"};
	$desc = "<matchrule:$desc>" if $_[0] <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	3984	4098	
==>ev    => $_[3]?1:0,
	      }, $_[0];
}

sub FETCH    
{
	my $parser = $_[0]->{parser};
	my $missing = $parser->{ful <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37324	37432	
==>r eq 'F');
    return 'v' if ($type eq 'void');
    return '?';
}

=item C<signature($params)>

Returns the m <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	477	571	
==>us-misses] [files ...]

=head1 DESCRIPTION

This script extracts descriptions from the Parrot s <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293415	293509	
==>ne 945 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294291	294385	
==>ne 945 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295167	295261	
==>ne 945 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2}}, {{\@3}}) == 0;\n  {{ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	690692	690987	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "thaw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691448	691743	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "thaw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	40718	40800	
==>--------------------------------------------------------------------

sub __max_len <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	10203	10340	
==>h
fabsf       math.h
fabsl       math.h
fclose      stdio.h
fdim        math.h
fdimf       math.h
fdiml       math.h
feof        stdio.h
f <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	17683	17805	
==>n
        # argument accesses and other things that make no sense in the
        # preamble.
        $_ = Parrot::Op->rewri <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	603852	604096	
==>"NAME" => "addparent",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2346	2456	
==>evious declaration on line %d of file '%s'.",
      $self->name, $sym->line, $sym->file);
  }

  #
  # Now that <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2093	2203	
==>evious declaration on line %d of file '%s'.",
      $self->name, $sym->line, $sym->file);
  }

  #
  # Now that <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202719	202819	
==>380 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203650	203750	
==>380 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204581	204681	
==>380 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter, {{\@1}}, {{\@2}}) <= 0) {\n    {{+={{\@3}} <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	1679	1814	
==>:>']       =  <<"END_PIR"            # greater than
    $I100 = isgt %1, %2
    %1 = $I100
END_PIR

    $P0['dyadic:=']       =  <<"END_ <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	567	666	
==>fix>

The build prefix. Defaults to ''.

=item C<prefix>

The install prefix. Defaults to '/usr'.

= <==
3	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	796	895	
==>fix>

The build prefix. Defaults to ''.

=item C<prefix>

The install prefix. Defaults to '/usr'.

= <==
3	/Users/nnunley/parrot/config/inter/lex.pm	1294	1406	
==>is specified then
    # the user is responsible for the consequences.
    if (defined $prog) {
        $conf->dat <==
3	/Users/nnunley/parrot/config/inter/make.pm	1115	1227	
==>is specified then
    # the user is responsible for the consequences.
    if (defined $prog) {
        $conf->dat <==
3	/Users/nnunley/parrot/config/inter/yacc.pm	1291	1403	
==>is specified then
    # the user is responsible for the consequences.
    if (defined $prog) {
        $conf->dat <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4357	4500	
==>name";
	while(<DRV>) {
                	/^\s*sub\s+_Parse\s*{\s*$/ .. /^\s*}\s*#\s*_Parse\s*$/
        	and     do {
                	s/^#DB <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4137	4276	
==>name";
	while(<DRV>) {
                	/^\s*sub\s+_Parse\s*{\s*$/ .. /^\s*}\s*#\s*_Parse\s*$/
        	and     do {
                	s/^#DB <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13021	13152	
==>>get(1)->is_else) {
        $cont = $self->forth->text;
        $self->require_open_brace;
      }

      #
      # If we are not cu <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	31633	31724	
==>racted substring (I<including the surrounding
delimiters>), the remainder of the text, and t <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719897	719986	
==>uts(interpreter, io, \" \");\n  s = Parrot_sprintf_c(interpreter, \"%.12g\", (double){{\@2 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721097	721186	
==>uts(interpreter, io, \" \");\n  s = Parrot_sprintf_c(interpreter, \"%.12g\", (double){{\@2 <==
3	/Users/nnunley/parrot/tools/dev/parrotbench.pl	583	723	
==>times()
                      1 $cuser + $csystem from times() (default)
                      2 Real time using POSIX::times()
   -n -nobenc <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	1208	1308	
==>(-?[0-9]+\.[0-9]+)($|\W.*$)}x) {
      push @tokens, Jako::Token->new(
        $file, $line, 'literal <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	166	258	
==>- Ops to C Code Generation

=head1 DESCRIPTION

C<Parrot::OpTrans::C> inherits from C<Parrot: <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	25838	25940	
==>count} . '__'; }

sub issubrule { undef }
sub isterminal { 1 }
sub describe ($) { shift->{'description' <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28850	28952	
==>count} . '__'; }

sub issubrule { undef }
sub isterminal { 1 }
sub describe ($) { shift->{'description' <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30930	31032	
==>count} . '__'; }

sub issubrule { undef }
sub isterminal { 1 }
sub describe ($) { shift->{'description' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3771	3877	
==>nd => 'then' } });
  }

  if ($name) {
    $handler->start_element({ Name => $kind, Attributes => { loop => <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627385	627478	
==>nit method\n   * copies the registers. */\n  {{\@1}} = pmc_new_noinit(interpreter, {{\@2}});\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628529	628622	
==>nit method\n   * copies the registers. */\n  {{\@1}} = pmc_new_noinit(interpreter, {{\@2}});\n <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7212	7314	
==>return $self->output_pushint($reg);
}

sub output_pushint {
    my ($self, $reg, $db_desc) = @_;
    $r <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6854	6956	
==>return $self->output_pushint($reg);
}

sub output_pushint {
    my ($self, $reg, $db_desc) = @_;
    $r <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	1106	1197	
==>ined, pir_compiler, invokable
  .get_from_HLL(inlined, '_tcl';'builtins', '$cmd')
  .local s <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	23918	24032	
==>);
				if (exists $sigilmap{$_}) {
					$type=$th{$sigilmap{$_}};
				}
			}
			$arrays{"${var}${seg}"}=1;
			#prin <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	1278	1385	
==>he argument passes a value into and out of the op
    inconst       the argument passes a constant value int <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222523	222690	
==>p",
                              "ic"
                            ],
                  "BODY" => "#line 509 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, { <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7697	7864	
==>ack;

            next;
        }

        next unless @stack;

        if (/^\s*\#(\s*)(.*)/) {
            my $indent = "  " x (@stack);
            if ($1 ne $indent <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	15495	15601	
==>mods   = (
		'none'	=> '[cgimsox]*',
		'm'	=> '[cgimsox]*',
		's'	=> '[cegimsox]*',
		'tr'	=> '[cds]*',
		' <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104158	1104284	
==>}} = pmc_new_init(interpreter, type, {{\@3}});\n\t{{+=4}};\n",
                  "experimental" => 1,
                  "LABELS <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105373	1105499	
==>}} = pmc_new_init(interpreter, type, {{\@3}});\n\t{{+=4}};\n",
                  "experimental" => 1,
                  "LABELS <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	13183	13285	
==>RANS_LOOP after translating the instruction.
    $pir .= <<'PIRCODE';
    # If we have exception handle <==
3	/Users/nnunley/parrot/languages/regex/regex.pl	1269	1376	
==>xpr_file: $!";
    $expr = <IN>;
    close IN;
}

$operation ||= "compile";

my %options;
$options{'no-tree- <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1619	1713	
==>instance!")
    unless UNIVERSAL::isa($type, "Jako::Construct::Type");

  my $type_name = $type <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1467	1561	
==>instance!")
    unless UNIVERSAL::isa($type, "Jako::Construct::Type");

  my $type_name = $type <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134873	135083	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135766	135976	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136660	136870	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19343	19718	
==>GS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 26,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BOD <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	6517	6629	
==>s");
    }

    return 1;
}

=item B<expected_tests>

    my $max = $Test->expected_tests;
    $Test->expected_te <==
3	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	1883	1979	
==>eturn wantarray ? @lines : join '', @lines;
}

=item C<write(@lines)>

Writes the specified lines <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	3162	3277	
==>m

	# absolute address goto
	while($src =~ /{{=(.*?)}}/g){
	    my $offset = $1;
	    $is_branch = 1;
	}
	# relative <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	4411	4523	
==>eturn)(?!\w)(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, $1, undef, $1);
      $text = $ <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	37809	37937	
==>section_name, splice @ell_content, 1+$j;
            # leaving only things before and including J
          
          @ell_conte <==
3	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	5521	5627	
==>print " Fetching a line from source-string...\n";
      if( ${ $self->{'source_scalar_ref'} } =~
        m/ <==
3	/Users/nnunley/parrot/lib/Parrot/Configure.pm	556	646	
==>r more Configuration steps.  Please see
F<docs/configuration.pod> for further details about <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	35293	35404	
==>P_LOOP_switch
SS_PROP_LOOP_EXIT_switch:
PIRCODE
        } else {
            $pir .= <<'PIRCODE';
sp_dest = next <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7435	7538	
==>goto 100, 200, 300
print "No match\n"
FIN:
for i = 1 to 3
	on i gosub oats, peas, beans
next i
print
end <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19718	19821	
==>goto 100, 200, 300
print "No match\n"
FIN:
for i = 1 to 3
	on i gosub oats, peas, beans
next i
print
end <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92867	93132	
==>ME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93646	93911	
==>ME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5011	5169	
==>ol} = $op->{arg1}->{symbol}\n";
    }

    sub visitCallOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        pr <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	38799	38916	
==>" giving plain treatment...\n";
        unless( @$para == 2 or ( @$para == 3 and $para->[2] eq '' )
          or $para <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	3545	3636	
==>info,$text)
	if $path =~ /\.([chlyC]|cpp|cola|xs|pmc)$|[_\.][ch]\.in$/;
    return &describe <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	57439	57529	
==>ode =~ /\A\s*<error\??:(.*)>\Z/s;
				$item = new Parse::RecDescent::Error($1,$lookahead,$c <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54838	55061	
==>ore.ops\"\n  {{\@1}} = interpinfo(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55598	55821	
==>ore.ops\"\n  {{\@1}} = interpinfo(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
3	/Users/nnunley/parrot/tools/build/c2str.pl	4277	4375	
==>}) {
    <<"DATA";
#define static_string_${line} static_string_$known_strings{$text}

DATA
  }
  el <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	8423	8505	
==>-----------------------------------------------------------------------
sub unaccep <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	10240	10322	
==>-----------------------------------------------------------------------
sub unaccep <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2282	2387	
==>e not obtained.\n\n");

    my @files = @ARGV ? @ARGV : &files_worth_describing;

    print "This file was <==
3	/Users/nnunley/parrot/tools/util/pirtidy.pl	133	237	
==>pen close );

use lib 'lib';

use Parrot::PIR::Formatter;

my $extension = 'tdy';
my $verbose   = 'that i <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	3009	3110	
==>tem('Provide a timeline of changes made to the project.', 'ChangeLog'),
            $self->new_item('D <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	16019	16139	
==>BTRACT
{
    my ($n, $c, $cmt) = @_;
    binary('-', $cmt);
}

sub BINARY_MODULO
{
    my ($n, $c, $cmt) = @_;
    binary <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	17288	17386	
==>n $result of type $type\n", @stream);		
	return($result, $type, @stream);
}
sub changename {
	my($n <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	29430	29528	
==>t if the input text is a read-only string (i.e. a literal),
no attempt is made to remove the extrac <==
3	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	2285	2394	
==>he elements in the referenced
vtable array.

=cut

sub vtbl_defs {
    my $vtable = shift;

    my $defs = q{} <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3249	3349	
==>key",
    'sc' => "CONST(%ld)->u.string",
    'kc' => "CONST(%ld)->u.key",
    'kic' => "cur_opcode[% <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2159	2255	
==>key",
  'sc'  => "CONST(%ld)->u.string",
  'kc'  => "CONST(%ld)->u.key",
  'kic' => "cur_opcode[% <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	923938	924203	
==>ME" => "new",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924728	924993	
==>ME" => "new",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10 <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13629	13730	
==>ich acts like an unconditional <reject> during parsing)"
		         : $items[0]->describe =~ /<autosco <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	26328	26611	
==>> 0,
                  "NAME" => "newclosure",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	2177	2287	
==>changed for the test
        $conf->data->set('libs',      $libs);
        $conf->data->set('ccflags',   $ccfla <==
3	/Users/nnunley/parrot/config/auto/readline.pm	1977	2087	
==>changed for the test
        $conf->data->set('libs',      $libs);
        $conf->data->set('ccflags',   $ccfla <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	10933	11053	
==>expect, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # undef only m <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	11351	11471	
==>expect, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # undef only m <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	13057	13186	
==>rst arg
        #
        # For ease of parsing, if the argument to one of the above
        # notations in a .ops file contains p <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	990	1084	
==>::Identifier');
  confess "Left is not Value!" if defined $left and not UNIVERSAL::isa($left, ' <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1018	1112	
==>::Identifier');
  confess "Left is not Value!" if defined $left and not UNIVERSAL::isa($left, ' <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	7949	8072	
==>, go back to outer loop.
    goto loop_two
loop_one_end:
    # if we get this far, there was no match.
    push result, not_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2138	2246	
==>ock   { --$_[0]{'Indent'} }


# . . . . . Now the actual formatters:

sub end_head1       { $_[0]->emit_par(- <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1706	1814	
==>ock   { --$_[0]{'Indent'} }


# . . . . . Now the actual formatters:

sub end_head1       { $_[0]->emit_par(- <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35920	36021	
==>e}}} }"; }
	else
		{ return "\\&$_[1]$_[0]->{subrule}"; }
}

sub new ($$$$$$$$$$)
{
	my ($self, $subru <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1717	1815	
==>le::Spec->curdir()
    if $path_to_parrot eq '';

my $parrot = File::Spec->catfile(
    $path_to_pa <==
3	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1702	1783	
==>t\\LICENSES\\Artistic
OutputDir=.\\
OutputBaseFilename=setup-parrot-$options{versi <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20379	20496	
==>acefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;'
					      unless $::RD_NO_TRACE;
	$c <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	13560	13685	
==>> $parent_hash{$b} }
            keys %parent_hash;
        for my $parent (@parents) {
            next if exists $class->{ha <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2977	3063	
==>$dest_type, 'Jako::Construct::Type::String');
  $self->SYNTAX_ERROR("Can't do arithmeti <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819741	819973	
==>entry_type(interpreter, entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820701	820933	
==>entry_type(interpreter, entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758666	758992	
==>=> ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 856,
                  "ARGS" => [
                              "s",
                              "s <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2859	2980	
==>st;
        }
    }

    $parser->Error("Untermined string.\n");
    $parser->YYData->{lineno}++;
    return ( $type <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4374	4495	
==>st;
        }
    }

    $parser->Error("Untermined string.\n");
    $parser->YYData->{lineno}++;
    return ( $type <==
3	/Users/nnunley/parrot/languages/dotnet/Configure.pl	1014	1229	
==>e_config_pm(%config);


# #############################################################################


# Get Parrot Configuration
# ########################
sub get_parrot_config($$) {
	# Try to include c <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7620	7800	
==>"report it as a BUG.\n";
                $$dotpos = $1;
            };

            @sempar =       $$dotpos
                        ?   map { $$_[1] } @$stack[ -$$dotpos .. -1 <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7273	7448	
==>"report it as a BUG.\n";
                $$dotpos = $1;
            };

            @sempar =       $$dotpos
                        ?   map { $$_[1] } @$stack[ -$$dotpos .. -1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540395	540512	
==>L p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541647	541764	
==>L p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542899	543016	
==>L p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} : {{\@2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { <==
3	/Users/nnunley/parrot/config/init/optimize.pm	1499	1617	
==>ata->add(' ', ccflags => $optimize);
            # record what optimization was enabled
            $conf->data->set(op <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645875	645987	
==>i;\n    else\n\t\t{{\@1}} = Parrot_get_datatype_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646772	646884	
==>i;\n    else\n\t\t{{\@1}} = Parrot_get_datatype_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12442	12551	
==>*?)\)      # capture argument list
     /"$supermethod(" . full_arguments($1) . ')'/xeg;

    # Rewrite DYNSEL <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	338109	338349	
==>terpreter);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ge <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	338755	338995	
==>terpreter);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ge <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	218	311	
==>ration/Constant.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings <==
3	/Users/nnunley/parrot/languages/perms.pl	19	144	
==>nings;
my @things = qw(d i f p s t v);

sub deeper {
	my ($stop, $things) = @_;
	my @prefix = (0,0);
	
	return sub {
	  return <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	15367	15479	
==>d = $file;
        $file_escaped =~ s|(\\)|$1$1|g; # escape backslashes
        $op->body( $nolines ? $body : qq{ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	32451	32551	
==>limited($text, "'", '', "'");

	# Extract a single- or double- quoted substring from the
	# beginning <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33110	33215	
==>re_store, $mv, "pre_store for rule $rule->{'name'}");
		$pir .= "### end pre_store\n";

		# If we have PIR <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576515	576603	
==>ing_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577527	577615	
==>ing_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}} <==
3	/Users/nnunley/parrot/config/init/hints/netbsd.pm	126	238	
==>nf) = @_;

    my $ccflags = $conf->data->get('ccflags');
    if ($ccflags !~ /-pthread/) {
        $ccflags .= ' <==
3	/Users/nnunley/parrot/config/init/hints/openbsd.pm	218	330	
==>nf) = @_;

    my $ccflags = $conf->data->get('ccflags');
    if ($ccflags !~ /-pthread/) {
        $ccflags .= ' <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	3204	3372	
==>ages.in' => 'languages/Makefile',
        commentType                         => '#',
        replace_slashes                     => 1
    );
    genfile(
        'confi <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2922	3038	
==>goto *ops_addr[*(pop_addr)]";
}

my %arg_maps = (
    'op' => "cur_opcode[%ld]",

    'i'  => "IREG(%ld)",
    'n'  = <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	4635	4739	
==>ined($max) && ($max == 1)) {
        return $self->rewrite_optional($op, $R, $greedy, @rest);
    } elsif <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	16530	16645	
==>I') {
	$n = temp($t = 'N');
	print <<"EOC";
	$n = pow $l->[1], $r->[1] $cmt
EOC
    }
    else {
	my $nl = temp('N') <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2256	2365	
==>end_head2       { $_[0]->emit_par(-3) }
sub end_head3       { $_[0]->emit_par(-2) }
sub end_head4       { $_[0 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1824	1933	
==>end_head2       { $_[0]->emit_par(-3) }
sub end_head3       { $_[0]->emit_par(-2) }
sub end_head4       { $_[0 <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	60784	60900	
==>s expecting a
particular kind of bracket at the start of the text, and didn't find it.

=item  C<No quotelike operato <==
3	/Users/nnunley/parrot/lib/File/Which.pm	3756	3849	
==>h' program wasn't implemented in the shell.

C<File::Which> searches the directories of the us <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5762	5889	
==>".
#DBG>					 join(',',map { $$_[0] } @$stack).
#DBG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defin <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5488	5608	
==>".
#DBG>					 join(',',map { $$_[0] } @$stack).
#DBG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defin <==
3	/Users/nnunley/parrot/tools/dev/install_files.pl	1436	1532	
==>round C<package> are literal. C<package> gives
the name of the RPM that the given file will be in <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408705	409095	
==>ork",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 472,
                  "ARGS" => [
                              "i",
                              "p",
                              "s <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	33841	33954	
==>] = ''; # set the copy's tagname to nil
          die "SANITY FAILURE" if $treelet->[0] eq ''; # should never happ <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	6148	6246	
==>crypt up to 2^32 bits = 512 MB on 32bit archs. You should use C<Digest::MD5>
for those amounts of d <==
3	/Users/nnunley/parrot/tools/dev/pbc_header.pl	1687	1807	
==>or
	    intvalsize floattype );
	print "$f\n";
	for my $i (0..5) {
	    my $c = substr $header, $i, 1;
	    $c = unpack ' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4322	4441	
==>f->{DEBUG}) {
        push @ops, 'print "matched('.chr($code).') at ";';
        push @ops, 'print <rx_pos>;';
        p <==
3	/Users/nnunley/parrot/lib/Parrot/Test.pm	2482	2576	
==>($code, $expected, $description)>

Runs the PAST code and passes the test if a string compariso <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39487	39584	
==>ONST_STRING(interpreter, "__$meth");
    PMC *sub = find_or_die(interpreter, pmc, meth);
    ${fun <==
3	/Users/nnunley/parrot/config/auto/jit.pm	1932	2050	
==>ch  => $cpuarch,
        osname   => $osname
    );

    my $jitarchname = "$cpuarch-$osname";
    my ($jitcapable, $ex <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	9675	9773	
==>form assumes the current package
name as the class name.

An object of a class created by the first <==
3	/Users/nnunley/parrot/lib/Test/More.pm	33457	33553	
==>m B<builder>

    my $test_builder = Test::More->builder;

Returns the Test::Builder object under <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	606	694	
==>t) . ") is not!") unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Iden <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	616	704	
==>t) . ") is not!") unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Iden <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	616	704	
==>t) . ") is not!") unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Iden <==
3	/Users/nnunley/parrot/tools/dev/symlink.pl	938	1043	
==>trydir) && (-f $tryfile && ! -l $tryfile);
} else {
    die "$0: I am very confused.\n";
}

my @toolsrcdir <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	8218	8335	
==>e, after setting rtfitemkeepn yea or nay.
            $self->{'rtfitemkeepn'} = '\keepn' if 
              $to_unget[- <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021653	1021752	
==>t tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_gmtime_r(&t, &tm);\n  {{\@1}} = tm_to_array <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022495	1022594	
==>t tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_gmtime_r(&t, &tm);\n  {{\@1}} = tm_to_array <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	1998	2095	
==>Wrong"
if 5<5 then print "Wrong" else print "Ok"
if 6<5 then print "Wrong" else print "OK"
if 4<=5 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8326	8421	
==>Stuff"
print "I am the very model of a modern";tab$(15);"More"
print "Hello","Again",d
dim c$(1) <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21190	21285	
==>Stuff"
print "I am the very model of a modern";tab$(15);"More"
print "Hello","Again",d
dim c$(1) <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4035	4142	
==>k("Missing mandatory parameter '".lc($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _D <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3832	3931	
==>k("Missing mandatory parameter '".lc($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _D <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	111	210	
==>8Z bernhard  $

=head1 NAME

Parrot::OpTrans - Transform Ops to C Code 

=head1 DESCRIPTION

C<Parro <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745584	745822	
==>" => "inline",
                  "CODE" => 839,
                  "ARGS" => [
                              "p",
                              "pc"
                            ],
                  "BODY" => "#line 184 \"src/ops/set.ops\"\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669004	669140	
==>"
                            ],
                  "BODY" => "#line 410 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->push_float(interpreter, <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669776	669912	
==>"
                            ],
                  "BODY" => "#line 410 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->push_float(interpreter, <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	484	579	
==>, and do the same kind
of optimizations. By making the inlined versions more declarative, this
l <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947058	947151	
==>VAL n = Parrot_charset_number(interpreter, {{\@2}});\n  if (n < 0)\n    real_exception(interpr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947960	948053	
==>VAL n = Parrot_charset_number(interpreter, {{\@2}});\n  if (n < 0)\n    real_exception(interpr <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32983	33115	
==>ted value of $expected_value\n";
            
          } else {
            DEBUG > 1 and print " Numeric item has ", $para->[1]{'nu <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7437	7555	
==>p>, <rx_stack>",
                $self->pushop . " <rx_stack>, $reg",
                $self->dbprint("PUSHED[\%<<rx_tmp <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28090	28212	
==>$parser,
        'arg1'   => $cond->[0],
        'result' => $l_break,
    );
    push @opcodes, new BranchOp( $parser, <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	40253	40373	
==>->code(@_[1..2]) . '

		  $repcount++;

		  my $savetext = $text;
		  my $backtrack;

		  # MATCH (OP RIGHTARG)(s)
		  wh <==
3	/Users/nnunley/parrot/config/auto/bc.pm	1020	1131	
==>$bc_does_not_hang{$osname}) {

        # This seems to work for GNU bc 1.06
        my $answer = capture_output( <==
3	/Users/nnunley/parrot/lib/Test/More.pm	5359	5469	
==>k 6

or

  ok 4 - basic multi-variable
  not ok 5 - simple exponential
  ok 6 - force == mass * acceleration

T <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4266	4367	
==>e)=__FILE__;
	my(@drv);
	open(DRV,"<$fname") or die "Report this as a BUG: Cannot open $fname";
	wh <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4048	4146	
==>e)=__FILE__;
	my(@drv);
	open(DRV,"<$fname") or die "Report this as a BUG: Cannot open $fname";
	wh <==
3	/Users/nnunley/parrot/config/init/hints/irix.pm	121	233	
==>e  $

package init::hinits::irix;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    my $ccflags = $con <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	12062	12170	
==>{'0'}->[1] = undef;
$rx_match{'!STACK'} = \$rx_stack;
return \%rx_match;
END
}

sub output_call_setup {
    m <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8338	8436	
==>locate a matching
symbol, and then returns that symbol's kind.

=cut

sub kind_of_ident
{
  my $sel <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	44332	44433	
==>ator (if any),

=item [4]

the left delimiter of the first block of the operation,

=item [5]

the tex <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	3760	3853	
==>> "#line 123 \"src/ops/core.ops\"\n  opcode_t *this = CUR_OPCODE;\n  this = HANDLE_EVENTS(inte <==
3	/Users/nnunley/parrot/config/init/defaults.pm	3451	3586	
==>> ".$Config{so}",
        a        => $Config{_a},        # library or archive extension
        exe      => $Config{_exe},      # execu <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	3492	3592	
==>lf->type->imcc;
  my $name  = $self->name;
  my $value = $self->value->value;

  if ($self->is_global <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	37807	37900	
==>_op_string_ci_ge_p,
  'substring'     => \&_op_substring,
  'string-append' => \&_op_string_ap <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26370	26502	
==>, ${STACK0}, ${STACK1}) = fix_enum_operands(${STYPES}, ${STACK0}, ${STACK1})
${INS} = concat ${STEMP0}
PIR
    }
	
	# Now we split ba <==
3	/Users/nnunley/parrot/examples/benchmarks/vpm.pl	97	205	
==>st another perl hacker";

for (0 .. 99999) {
    $big++;
    my @str=split(//,$string);
    my $f=shift(@str) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	32172	32271	
==>lts) {\n\t    /* get results PMC index and get PMC. */\n\t    sig = PF_CONST(PMC_cont(cc)->seg, resu <==
3	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	4622	4735	
==>ouble blank lines
	s/^\s*(\# *\n)+//s;         # remove leading
	s/\n(\# *\n)+\s*$/\n/s;     # remove trailing
	s/ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	69637	69744	
==>t $::RD_HINT (or -RD_HINT if you\'re using "perl -s")
		       for hints on fixing these problems.');
	}
	if <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421551	421820	
==>TYPE" => "function",
                  "CODE" => 484,
                  "ARGS" => [
                              "i",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 562 \"src/ops/io <==
3	/Users/nnunley/parrot/lib/File/Which.pm	4863	4954	
==>th the extensions C<.exe>, C<.bat> and
(less likely) C<.com>. C<File::Which> uses this hardc <==
3	/Users/nnunley/parrot/Configure.pl	4996	5133	
==>eral Options:

   --help               Show this text
   --version            Show version information
   --verbose            Output extr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957563	957655	
==>f (n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\"encoding '%Ss' not found\", {{\@2}}) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958468	958560	
==>f (n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\"encoding '%Ss' not found\", {{\@2}}) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492042	492229	
==>->vtable->increment(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1180	1301	
==>t =~  # A not-totally-brilliant wrapping algorithm:
      s/(
         [^\n]{55}         # Snare some characters from a li <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1124	1245	
==>t =~  # A not-totally-brilliant wrapping algorithm:
      s/(
         [^\n]{55}         # Snare some characters from a li <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	880	997	
==>en LANG, "> $lang_f" or die "Unable to open '$lang_f'"; # JMG
        binmode LANG; # JMG
        print LANG $lang_cod <==
3	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	792	909	
==>en LANG, "> $lang_f" or die "Unable to open '$lang_f'"; # JMG
        binmode LANG; # JMG
        print LANG $lang_cod <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	29764	29876	
==>er in its place. (E.g., for
# "L<Getopt::Std>", the inferred link text is "Getopt::Std".)
#

############# The "t <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2014	2119	
==>wn variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->type;
  }
  else {
    $left <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1972	2077	
==>wn variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->type;
  }
  else {
    $left <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1894	1999	
==>wn variable %s.", $left->value) unless $left_sym;
    $left_type = $left_sym->type;
  }
  else {
    $left <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38531	38816	
==>ME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 49,
                  "ARGS" => <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4980	5082	
==>os)
     = @$self{ 'ERRST', 'NBERR', 'TOKEN', 'VALUE', 'STACK', 'CHECK', 'DOTPOS' };

#DBG>	my($debu <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4738	4837	
==>os)
     = @$self{ 'ERRST', 'NBERR', 'TOKEN', 'VALUE', 'STACK', 'CHECK', 'DOTPOS' };

#DBG>	my($debu <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4531	4649	
==>me};
        delete $self->{args};
        return $self->op('nop', [], %$self);
    } elsif (@{ $self->{args} } == 1 && <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5668	5786	
==>me};
        delete $self->{args};
        return $self->op('nop', [], %$self);
    } elsif (@{ $self->{args} } == 1 && <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	199	293	
==>ocumentation section

=head1 SYNOPSIS

    use Parrot::Docs::Section::Info;

=head1 DESCRIPTION <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	39416	39533	
==>xt and @ell_content
         and grep !ref($_) && m/ /s, @ell_content
      ) {
        $section_name = [splice @ell_c <==
3	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	680	788	
==>or die "open $input: $!";
    $checksum = unpack("%32C*", <INPUT>);
    close INPUT;
}

my $up_to_date = 1;
f <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	35434	35574	
==>> $lbl_loop,
    );
    push @opcodes1, new LabelOp( $parser,
        'arg1' => $lbl_end,
    );
    return \@opcodes1;
}

sub BuildB <==
3	/Users/nnunley/parrot/config/gen/platform.pm	5583	5689	
==>orm/$platform/asm.s";
        if (-e $asm_file) {
            copy_if_diff($asm_file, "src/platform_asm.s") <==
3	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	7988	8079	
==>axion.bt.co.uk>).

C<Digest::MD5> was made by Gisle Aas <gisle@aas.no> (I took his Interface <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29510	29652	
==>CTIONS => {
			"}" => 144
		}
	},
	{#State 93
		ACTIONS => {
			";" => 146,
			"," => 147
		},
		DEFAULT => -107,
		GOTOS => {
			'f <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1344	1462	
==>ident");
    $compiler->emit("  global \"$ident_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1338	1456	
==>ident");
    $compiler->emit("  global \"$ident_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $ <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	32543	32684	
==>) {
	$c = $vtables{$c};
    }
    my $cc;
    if ($c =~ /^\d+$/) {	# MMD
	$cc = "-$c";
    }
    else {
	$cc = qq!"$c"!;
    }
    print <<EOC <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	32918	33059	
==>) {
	$c = $vtables{$c};
    }
    my $cc;
    if ($c =~ /^\d+$/) {	# MMD
	$cc = "-$c";
    }
    else {
	$cc = qq!"$c"!;
    }
    print <<EOC <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	5563	5685	
==>/code> and utility functions.', 
                'pairs' => ['misc'],
                'sources' => ['spf_render', 'spf_vtab <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	3907	4025	
==>y ($a, $def) = split(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a = qq!"$a"!;   # quote argument
		    $def_arg_names <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	4406	4524	
==>y ($a, $def) = split(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a = qq!"$a"!;   # quote argument
		    $def_arg_names <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8086	8208	
==>($self->skip_colon) {
        my $prop = $self->require_ident->text;
      
        my $value;

        if ($self->skip_ass <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5092	5208	
==>($self->skip_colon) {
        my $prop = $self->require_ident->text;

        my $value;

        if ($self->skip_ass <==
3	/Users/nnunley/parrot/config/inter/shlibs.pm	1150	1246	
==>sk');
    $conf->data->set(cc_shared => $cc_shared);
    $self->set_result(($cc_shared =~ m/^ ?$/ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	251078	251388	
==>base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 292,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => " <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501521	501759	
==>PE" => "inline",
                  "CODE" => 576,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 621 \"src/ops/math.ops\ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	502	596	
==>qw( Parrot::OpTrans::C );

=item C<core_type()>

The core type is C<PARROT_PREDEREF_CORE>.

=cu <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2185	2308	
==>"</i>",
  'F'      =>  "<em$Computerese>",     '/F'     =>  "</em>",
  'C'      =>  "<code$Computerese>",   '/C'     =>  "</ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1429	1530	
==>ol '$name'...");

  my $sym = $self->block->find_symbol($name);

  unless ($sym) {
#    $self->block-> <==
3	/Users/nnunley/parrot/lib/Test/More.pm	23116	23213	
==>ie or hang, even
inside an C<eval BLOCK> with and using C<alarm>.  In these extreme
cases you have <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	9527	9645	
==>sion) = ($filename =~ /^(.*)\.(.*)/);
        $filebase ||= $filename;
        $extension ||= '';
        if ($filebase <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	12699	12795	
==>ult to C<()>.

With no argument, the accessor returns a reference to the
element's whole hash (wh <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	59906	60035	
==>d', 3,
sub
#line 595 "Lua\lua51.yp"
{
            [ BuildLiteral( $_[0], $_[1], 'key' ), $_[3] ];
        }
	],
	[#Rule 112 <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5412	5515	
==>} __ptr_u;
        return (opcode_t *)const_cast(${bs}ops_addr);
    }
END_C
}

=item C<run_core_finish( <==
3	/Users/nnunley/parrot/lib/Test/Builder.pm	35939	36043	
==>d, even after
having successfully completed all its tests, it will still be
considered a failure and will <==
3	/Users/nnunley/parrot/lib/Test/More.pm	34010	34114	
==>d, even after
having successfully completed all its tests, it will still be
considered a failure and will <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2805	2909	
==>d, even after
having successfully completed all its tests, it will still be
considered a failure and will <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1461	1584	
==>elf, $addr) = @_;

    #print STDERR "pbcc: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
        return "return (0);" <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1986	2109	
==>elf, $addr) = @_;

    #print STDERR "pbcc: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
        return "return (0);" <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1877	1999	
==>elf, $addr) = @_;

    #print STDERR "pbcc: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
  	    return "return (0);" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134933	135258	
==>,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135826	136151	
==>,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136720	137045	
==>,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
3	/Users/nnunley/parrot/config/init/hints/irix.pm	500	622	
==>lags);

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }
    $ <==
3	/Users/nnunley/parrot/config/init/hints/netbsd.pm	293	415	
==>lags);

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }
    $ <==
3	/Users/nnunley/parrot/config/init/hints/openbsd.pm	385	501	
==>lags);

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
	}
	$ <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	12688	12813	
==>to done
    
    $P1 = shift iter
    push result, $P1

    dec op1
    goto pos_loop

done:
    .return (result)
.end

.sub u <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	1686	1777	
==>turn interpreter->code->prederef.code + offset_in_ops;
}
#else
#  define prederef_to_opcode( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8363	8592	
==>s",
                  "FLAGS" => ":base_loop,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9478	9707	
==>s",
                  "FLAGS" => ":base_loop,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
3	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	376	481	
==>patability. During the build process it is parsed by
F<fingerprint_c.pl> to produce a fingerprint of the s <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1636	1728	
==>ead1", \%attributes );
  $parser->_handle_text( "Hi there" );
  $parser->_handle_element_end( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808510	808779	
==>E" => "inline",
                  "CODE" => 912,
                  "ARGS" => [
                              "n",
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 502 \"src/ops/set.op <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1019	1134	
==>t {
  DEBUG and print "== \"$_[1]\"\n";
  
  if(length $_[1]) {
    my $indent = '  ' x $_[0]{'indent'};
    my $tex <==
3	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	968	1080	
==>t {
  DEBUG and print "== \"$_[1]\"\n";
  if(length $_[1]) {
    my $indent = '  ' x $_[0]{'indent'};
    my $tex <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359193	359369	
==>[
                              "s"
                            ],
                  "BODY" => "#line 250 \"src/ops/io.ops\"\n  STRING * const s = {{\@1}};\n  if (s && string_le <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4479	4595	
==>@{ $self->{args} } == 0) {
        delete $self->{name};
        delete $self->{args};
        return $self->op('nop' <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5616	5732	
==>@{ $self->{args} } == 0) {
        delete $self->{name};
        delete $self->{args};
        return $self->op('nop' <==
3	/Users/nnunley/parrot/lib/Test/More.pm	35709	35814	
==>ad1 HISTORY

This is a case of convergent evolution with Joshua Pritikin's Test
module.  I was largely una <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540446	540549	
==>2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541698	541801	
==>2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { { <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542950	543053	
==>2}};\n INTVAL b = {{\@3}} < 0 ? -{{\@3}} : {{\@3}};\n \n if(a==0) { {{\@1}}=b; {{+=4}}; }\n if(b==0) { { <==
3	/Users/nnunley/parrot/tools/build/headerize.pl	2610	2718	
==>\s+\S+/ || ($_ eq "...") || ($_ eq "void") || /theINTERP/ or die "Bad parms in $proto";
    }

    my $static <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2697	2809	
==>et)>

Returns the C code for C<restart OFFSET($offset)>.

=cut

sub restart_offset
{
    my ($self, $offset) = @_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4032	4144	
==>et)>

Returns the C code for C<restart OFFSET($offset)>.

=cut

sub restart_offset
{
    my ($self, $offset) = @_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3730	3842	
==>et)>

Returns the C code for C<restart OFFSET($offset)>.

=cut

sub restart_offset
{
    my ($self, $offset) = @_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	330593	330830	
==>=> "inline",
                  "CODE" => 388,
                  "ARGS" => [
                              "n",
                              "p"
                            ],
                  "BODY" => "#line 174 \"src/ops/dotgnu.ops\"\ <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	40029	40212	
==>arser);
        foreach my $op (@opcodes) {
            if ( $op and $op->isa('BranchOp') ) {
                if ( $op->{result} eq 'break' ) {
                    $parser->Error(" <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2401	2501	
==>$self, $where_str) = @_;
    return "return $where_str";
}

=item C<expr_pop()>

Addresses on the sta <==
3	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2088	2379	
==>$N2;              # div    N1, N1, N2
                              #
print "M op/s:        $N1\n"; # print  "M op/s:        "
                              # print  N1
                              # print  "\n"
                              #
exit(0);                      # end

=head1 SEE <==
3	/Users/nnunley/parrot/examples/mops/mops.pl	2088	2379	
==>$N2;              # div    N1, N1, N2
                              #
print "M op/s:        $N1\n"; # print  "M op/s:        "
                              # print  N1
                              # print  "\n"
                              #
exit(0);                      # end

=head1 SEE <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	23399	23535	
==>$treelet->[0], $treelet->[$i][0], 
          ;
          
          #$nugget = ;
          splice @$treelet, $i, 1, [pop(@dynasty), {}, $ <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27464	27585	
==>RecDescent::lastexpected = q{' . ($rule->hasleftmost($self) ? ''
				: $self->describe ) . '};
		' . ($self->{"lookahead"} <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29574	29695	
==>RecDescent::lastexpected = q{' . ($rule->hasleftmost($self) ? ''
				: $self->describe ) . '};
		' . ($self->{"lookahead"} <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31671	31792	
==>RecDescent::lastexpected = q{' . ($rule->hasleftmost($self) ? ''
				: $self->describe ) . '};
		' . ($self->{"lookahead"} <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50233	50421	
==>lags_CLEAR(interpreter, PARROT_PROFILE_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51026	51214	
==>lags_CLEAR(interpreter, PARROT_PROFILE_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parr <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	18494	18597	
==>zation method, or an empty
string if the PMC has a C<no_init> flag.

=cut

sub init_func() {
    my $sel <==
3	/Users/nnunley/parrot/config/gen/core_pmcs.pm	1111	1236	
==>ass_$_,\t/*  $i */ \n";
        $i++;
    }
    print OUT <<"END_H";
    enum_class_core_max
};

/* &end_gen */
END_H

    clo <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2994	3094	
==>\par}\n",

 # we don't need any styles for over-* and /over-*
);


#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	13186	13299	
==>parentheses, then double the
        # enclosing parentheses and add a space around the argument,
        # like s <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3254	3363	
==>fined $op;
    $name =~ s/(^")|("$)//g; # Delete leading and trailing quotes;

    $name =~ s/^.*:://; # Delet <==
3	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3854	3947	
==>parentheses, then double the enclosing
parentheses and add a space around the argument, like s <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	34648	34792	
==>> 79,
			"/" => 82
		},
		DEFAULT => -59
	},
	{#State 126
		ACTIONS => {
			"-" => 72,
			"%" => 76,
			"*" => 80,
			".." => 71,
			" <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	2015	2098	
==>er *final_destination = new_buffer_header(interpreter);\nPObj_external_SET(final_des <==
3	/Users/nnunley/parrot/tools/build/nativecall.pl	2128	2211	
==>er *final_destination = new_buffer_header(interpreter);\nPObj_external_SET(final_des <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	490	595	
==>()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new(
		'Perl Modul <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	3048	3146	
==>art_element({ Name => 'block', Attributes => { kind => 'then' } });
  }

  $handler->start_element( <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3812	3910	
==>art_element({ Name => 'block', Attributes => { kind => 'then' } });
  }

  $handler->start_element( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	17669	17951	
==>ELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18464	18746	
==>ELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
3	/Users/nnunley/parrot/config/auto/memalign.pm	1572	1705	
==>pture() !~ /ok/) {
        $test2 = 1;
    }
    cc_clean();

    $conf->data->set(malloc_header => undef);

    my $f =
          $te <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	338503	338729	
==>,
                  "TYPE" => "inline",
                  "CODE" => 396,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 108 \"src/ops/io.ops\"\n <==
3	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	250	350	
==>h looks like it's
largely a copy of Parrot::Test::Python. Abstraction needed.

=cut

sub new {
    re <==
3	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	288	388	
==>h looks like it's
largely a copy of Parrot::Test::Python. Abstraction needed.

=cut

sub new {
    re <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600293	600525	
==>n't exist\", name);\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601369	601601	
==>n't exist\", name);\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	27086	27209	
==>>[1] $cmt
EOC
	    $lexicals{$c} = $p;
	}
    }
    else {
	$lexicals{$c} = promote($tos);
	print <<"EOC";
        \t $cmt
E <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	26264	26378	
==>*/
EOC
    if ($self->{flags}{dynpmc}) {
        $cout .= $self->lib_load_code();
    }
    $cout;
}

=item C<gen_c <==
3	/Users/nnunley/parrot/config/init/hints/freebsd.pm	867	988	
==>mic_linking     => 1,
        parrot_is_shared        => 1,
        libparrot_shared        => 'libparrot$(SHARE_EXT).$(SO <==
3	/Users/nnunley/parrot/config/init/hints/linux.pm	1705	1826	
==>mic_linking     => 1,
        parrot_is_shared        => 1,
        libparrot_shared        => 'libparrot$(SHARE_EXT).$(SO <==
3	/Users/nnunley/parrot/config/gen/platform.pm	2183	2288	
==>er_file" or die "Can't open $header_file: $!";
            print PLATFORM_H <<"END_HERE";
/*
** $header_fi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578408	578640	
==>bclass(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
3	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	6099	6228	
==>eys %{ $branches{$branch} }
    ];
  }

  $tmpl->param(branches => my $p = [
    map {{
      name       => $_,
      categories = <==
3	/Users/nnunley/parrot/config/auto/signal.pm	834	945	
==>return $self;
    }

    cc_gen('config/auto/signal/test_1.in');
    eval { cc_build(); };
    unless ($@ || cc_ <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28145	28254	
==>gen_h() {
    my ($self, $out_name) = @_;

    my $hout = dont_edit($self->{file});
    my $name = uc $self->{ <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8964	9069	
==>w=15
dim a$(w)
for i = 0 to (22/7)*2 step 0.40
	for j = 1 to w*2
		a$(j)=" "
	next j
	a$(w+w*sin(i)+1)="*" <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	44555	44659	
==>*/)?)';
my $OPTIONAL		= '\G\((\?)'.$SIMPLEPAT.'\)';
my $ANY			= '\G\((s\?)'.$SIMPLEPAT.'\)';
my $MANY 		= <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10062	10176	
==>ons->get('verbose');

    if (defined($_[0]) && length($_[0])) {
        local $" = ' ';
        _run_command(".${s <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10643	10757	
==>ons->get('verbose');

    if (defined($_[0]) && length($_[0])) {
        local $" = ' ';
        _run_command(".${s <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54837	54950	
==>rulevar:(.*)>\Z/s;

				$rule and $rule->addvar($1,$self)
				      or  _no_rule($code,$line);

				$item = new Pa <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	1024	1130	
==>O  1..5
open "_testfile" for output as #3
for i=1 to 5
	print #3, i
next i
close #3
open "_testfile" for in <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19496	19602	
==>O  1..5
open "_testfile" for output as #3
for i=1 to 5
	print #3, i
next i
close #3
open "_testfile" for in <==
3	/Users/nnunley/parrot/tools/dev/pbc_header.pl	261	357	
==>ecode
compatability. During release preparation (and other changes to
PBC_COMPAT) the fingerprint <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	37866	38000	
==>aving only things before and including J
          
          @ell_content  = grep ref($_)||length($_), @ell_content  ;
          @sect <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37469	37567	
==>le->{"name"} . '})
					if defined $::RD_TRACE;').'
		$Parse::RecDescent::lastexpected = ' . ($rule <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39872	39970	
==>le->{"name"} . '})
					if defined $::RD_TRACE;').'
		$Parse::RecDescent::lastexpected = ' . ($rule <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	7107	7214	
==>O", "$src_stem.c")) {
        run(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5401	5508	
==>O", "$src_stem.c")) {
        run(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7318	7425	
==>O", "$src_stem.c")) {
        run(compile_cmd("$dest_stem$O", "$src_stem.c"))
          or die "compile $src <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	1351	1443	
==>-Wformat-security -Wpacked -Wdisabled-optimization -falign-functions=16 -Wno-shadow  -DHAS_JI <==
3	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1396	1488	
==>-Wformat-security -Wpacked -Wdisabled-optimization -falign-functions=16 -Wno-shadow  -DHAS_JI <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	1400	1492	
==>-Wformat-security -Wpacked -Wdisabled-optimization -falign-functions=16 -Wno-shadow  -DHAS_JI <==
3	/Users/nnunley/parrot/tools/build/jit2c.pl	2514	2637	
==>en file $file: $!";
    while ( my $line = <IN>) {
        if ($line =~ m/^#define/) {
            $line =~ s/PREV_OP\s(..?) <==
3	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2869	2977	
==>_whitespace {
    my ($file, $source) = @_;

    return unless @$source;
    shift @$source while (defined $s <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	15264	15360	
==>r = concat "$P1000001 = cur_exception[\"obj\"]\n"
    class_type = eh.get_class_type()
    class_ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421265	421563	
==>> 0,
                  "NAME" => "bind",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422157	422455	
==>> 0,
                  "NAME" => "bind",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
3	/Users/nnunley/parrot/config/auto/python.pm	675	774	
==>'', $out || '', $err || '');
    my ($python, $major, $minor, $revision) = $output =~ m/(Python)\s+( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5063	5169	
==>abel_use($failLabel);
    my $pass = $self->output_label_use($passLabel);

    while (@$incexc) {
        m <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4738	4844	
==>abel_use($failLabel);
    my $pass = $self->output_label_use($passLabel);

    while (@$incexc) {
        m <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	15614	15713	
==>nddirective
{
	my ( $self, $line, $minrep, $maxrep ) = @_;
	unless ($self->{op})
	{
		Parse::RecDesc <==
3	/Users/nnunley/parrot/config/inter/make.pm	585	705	
==>a make utility like 'gmake' or 'make'?";
@args        = qw( make ask );

sub runstep
{
    my ($self, $conf) = @_;

    m <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	30018	30136	
==>rser);
    push @opcodes, new BranchOp( $parser,
        'result' => $lbl_blk,
    );
    push @opcodes, new LabelO <==
3	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48726	48820	
==>alid repetition specifier", 0,$line);
					_error("Incorrect specification of a repeated direct <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	6416	6514	
==>it to Integer or int, the program dies with
# 'Method not found.' or dispatches to the wrong method <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	19	114	
==>uages/regex/lib/Regex/Parse/P6C.pm 18978 2006-04-30T14:02:48.452322Z bernhard  $

package Regex: <==
3	/Users/nnunley/parrot/config/init/hints/hpux.pm	243	362	
==>'libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }

    $conf->data->set(libs => $libs);
}

1 <==
3	/Users/nnunley/parrot/config/init/hints/netbsd.pm	333	451	
==>'libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }
    $conf->data->set(libs => $libs);
}

1 <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	1138	1256	
==>ur =~ /[!#]/) {
				$numtype="FLO";
			}
		}
		emit($numtype);
		goto MAIN;
	}
NOTNUM:
	#if ($cur eq "-" and $next =~ / <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7042	7143	
==>de   = defined $options{fail} ? $options{fail} : '';
	my $bad     = ref($options{reject}) eq 'ARRAY' ? <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24044	24145	
==>de   = defined $options{fail} ? $options{fail} : '';
	my $bad     = ref($options{reject}) eq 'ARRAY' ? <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18862	18950	
==>s ("verbatim sections") will appear as.

=item $parser->header_halfpoint_size( I<halfpoin <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553230	553535	
==>T",
                  "NAME" => "callmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554626	554931	
==>T",
                  "NAME" => "callmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556023	556328	
==>T",
                  "NAME" => "callmethod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387226	387508	
==>E" => 451,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1} <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	6963	7079	
==>tion failed ($?)\n";
    }
}

sub compile {
    my ($src_stem, $dest_stem) = @_;

    $dest_stem ||= $src_stem;
    i <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	7174	7290	
==>tion failed ($?)\n";
    }
}

sub compile {
    my ($src_stem, $dest_stem) = @_;

    $dest_stem ||= $src_stem;
    i <==
3	/Users/nnunley/parrot/tools/build/ops2c.pl	4017	4195	
==>::preamble;
}
else {
    my %opsfiles;
    my @opsfiles;

    foreach my $opsfile ($file, @ARGV) {
        if ($opsfiles{$opsfile}) {
            print STDERR "$0: Ops file '$opsf <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	10508	10642	
==>} = <rx_input>;
#         \$rx_match{'!GROUPS'} ||= [];
#     } else {
#         \%rx_match = %{ shift() };
#         <rx_input> = <rx_ <==
3	/Users/nnunley/parrot/tools/dev/as2c.pl	1079	1193	
==>, "} @pairs;
	    print " " x (3*(8 - $len));
	    print "    /* $src */\n";
	}
	elsif (/\.type\s+(\w+)\s*,\s*\@fun <==
3	/Users/nnunley/parrot/lib/Pod/Simple.pm	23994	24121	
==>r new stuff
      } else {
        # otherwise it's unremarkable
        unshift @stack, $treelet->[$i];  # just recurse
      } <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1496	1622	
==>teStringLexer {
    my $parser = shift;
    my $str    = q{};
    my $type   = 'STRING';

    while ( $parser->YYData->{IN <==
3	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3011	3137	
==>teStringLexer {
    my $parser = shift;
    my $str    = q{};
    my $type   = 'STRING';

    while ( $parser->YYData->{IN <==
3	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2766	2864	
==>~~~~~~~~~~~~~~

sub new {
  my $new = shift->SUPER::new(@_);
  #$new->nix_X_codes(1);
  $new->nbsp_ <==
3	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3122	3218	
==>~~~~~~~~~~~~~~
sub new {
  my $new = shift->SUPER::new(@_);
  $new->nix_X_codes(1);
  $new->nbsp_ <==
3	/Users/nnunley/parrot/tools/dev/lib_deps.pl	11584	11690	
==>th.h
isprint     ctype.h
ispunct     ctype.h
isspace     ctype.h
isunordered math.h
isupper     ctype.h
isx <==
3	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32195	32294	
==>_val(pmc)$arg)";
    my $ret = gen_ret($method, $body);
    my $decl = $self->decl($self->{class}, $ <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	62	166	
==>{
	if (/^Translated (\d+) types out of (\d+) from .+?([\.\w]+)\n$/) {
		push @results, {
			name	=> $3 <==
3	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	62	166	
==>{
	if (/^Translated (\d+) types out of (\d+) from .+?([\.\w]+)\n$/) {
		push @results, {
			name	=> $3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197269	197415	
==>"
                            ],
                  "BODY" => "#line 366 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198166	198312	
==>"
                            ],
                  "BODY" => "#line 366 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199063	199209	
==>"
                            ],
                  "BODY" => "#line 366 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	9807	9914	
==>nds group lib hll maps);

    my (%flags, $parent_nr);
    # look through the pmc declaration header for fla <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1712	1807	
==>TAX_ERROR("Wrong number of arguments (expected %d, got %d) in call to '%s'.",
    scalar(@formal <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1412	1507	
==>TAX_ERROR("Wrong number of arguments (expected %d, got %d) in call to '%s'.",
    scalar(@formal <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673522	673745	
==>ODE" => 754,
                  "ARGS" => [
                              "n",
                              "p"
                            ],
                  "BODY" => "#line 444 \"src/ops/pmc.ops\"\n    {{\@1}} = {{\@2}} <==
3	/Users/nnunley/parrot/tools/build/pmc2c.pl	19267	19374	
==>c("$_.pmc"))
            for keys %{$class->{flags}{extends}};
    }
}

=head2 gen_c( [$dir1, $dir2], $file1 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	372399	372498	
==>NG ** const s = &{{\@1}};\n\n  *s = NULL;\n  PIO_peek(interpreter, PIO_STDIN(interpreter), s);\n  {{ <==
3	/Users/nnunley/parrot/config/auto/gmp.pm	1339	1456	
==>ta->add(' ', linkflags => '-L/sw/lib');
            $conf->data->add(' ', ldflags   => '-L/sw/lib');
            $conf <==
3	/Users/nnunley/parrot/config/auto/readline.pm	1428	1545	
==>ta->add(' ', linkflags => '-L/sw/lib');
            $conf->data->add(' ', ldflags   => '-L/sw/lib');
            $conf <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	44197	44298	
==>rs),

=item [1]

the remainder of the input text,

=item [2]

the prefix substring (if any),

=item [3 <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	8817	8950	
==>d, $message);

  if ($self->debug) { confess $message; }
  else              { die "$message\n"; }
}


#
# PARSE_ERROR()
#

sub PARSE_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1443	1542	
==>defined block!")
    unless defined $block;

  $self->INTERNAL_ERROR("Undefined type!")
    unless d <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1291	1390	
==>defined block!")
    unless defined $block;

  $self->INTERNAL_ERROR("Undefined type!")
    unless d <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	33145	33282	
==>l_n) = @_;
    my ($v, $w, $vv, $ww);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ($w->[2] eq ' <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	33894	34031	
==>l_n) = @_;
    my ($v, $w, $vv, $ww);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ($w->[2] eq ' <==
3	/Users/nnunley/parrot/languages/python/pie-thon.pl	34818	34955	
==>l_n) = @_;
    my ($v, $w, $vv, $ww);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @stack;
	$ww = $w->[1];
	if ($w->[2] eq ' <==
3	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	953	1098	
==>rics
	new P21, .PerlHash     # Alphabetics.
	new P22, .PerlHash     # ??
	new P23, .PerlHash     # ??
	new P24, .PerlArray    # Line numbers
	time <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6517	6635	
==>' force another pass by setting Exchange to TRUE.
   FOR I = 2 TO Max
      IF A$(I-1) > A$(I) THEN
         Exchange = <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16170	16288	
==>' force another pass by setting Exchange to TRUE.
   FOR I = 2 TO Max
      IF A$(I-1) > A$(I) THEN
         Exchange = <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59376	59616	
==>@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "warning <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60024	60264	
==>@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "warning <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60673	60913	
==>@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "warning <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686145	686434	
==>,
                  "TYPE" => "function",
                  "CODE" => 770,
                  "ARGS" => [
                              "p",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 563 \"src/ops/p <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2775	2895	
==>} =~ tr{\xAD}{}d;
  }

  my $i = ' ' x ( 2 * $self->{'Indent'} + 4);
  #my $i = ' ' x (4 + $self->{'Indent'});
  
  $self <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	11437	11529	
==>outine declarations and definitions, while
the second pass compiles any other content. This i <==
3	/Users/nnunley/parrot/config/auto/pack.pm	903	1025	
==>e_op';
        my $size = $conf->data->get($_);
        my $format;
        if (($] >= 5.006) && ($size == $longsize) && ($ <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322320	322408	
==>line 134 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (UINTVAL)((Parrot_UInt4)({{\@2}}));\n  {{+=3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323092	323180	
==>line 134 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (UINTVAL)((Parrot_UInt4)({{\@2}}));\n  {{+=3 <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302156	302465	
==>2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303032	303341	
==>2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303908	304217	
==>2}}, {{\@3}}) != 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	5802	5916	
==>t a space if we're about to end a row
    if newline goto print_newline
    result .= ' '
    goto continue_2d

  p <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	7385	7498	
==>options{ignore}
		    :					 ''
		    ;

	if (!defined $ldel) { $ldel = '<\w+(?:' . gen_delimited_pat(q{'"}) . '|[ <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	24387	24500	
==>options{ignore}
		    :					 ''
		    ;

	if (!defined $ldel) { $ldel = '<\w+(?:' . gen_delimited_pat(q{'"}) . '|[ <==
3	/Users/nnunley/parrot/config/inter/make.pm	1345	1484	
==>-make', 'nmake', 'make'],
            $verbose);

        unless ($prog) {

            # fall back to default
            $self->set_result <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	13036	13144	
==>up a %MATCH variable
    push @ops, <<'END';
{
my %MATCH;
while (my ($key, $val) = each %rx_match) {
    if ( <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	624	726	
==>trict;
use warnings;

use base qw( Exporter );

use Carp;
use File::Basename qw( basename );
use File:: <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545273	545508	
==>GS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 1056 \"src/ops/math.ops\"\n INTVAL gcd = 0;\n INTVAL p = <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5831	5924	
==>fined $self->{triggers}{$key}{$trigger};

    my $verbose = defined $self->get('verbose') && $ <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6401	6494	
==>fined $self->{triggers}{$key}{$trigger};

    my $verbose = defined $self->get('verbose') && $ <==
3	/Users/nnunley/parrot/tools/dev/nm.pl	6448	6562	
==><NM>) {
	    chomp;
	    if (m/^(.+\.o):$/ || m/\[(.+\.o)\]:$/ || m/\((.+\.o)\):$/) {
		$o = $1;
	    } elsif (/ ([ <==
3	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	6835	6958	
==>p1 goto done
    # pop off the end and unshift onto the beginning
    $P1 = pop op2
    unshift op2, $P1
    inc op1
    got <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	4432	4534	
==>type[NEXT] ne "STMT" and $type[NEXT] ne "COMM");
		#print "Single if!\n" if $singleif;
		$ifline++;
		i <==
3	/Users/nnunley/parrot/lib/Class/Struct.pm	12632	12729	
==>ash (C<'%'> or C<'*%'>)

The element is a hash, initialized by default to C<()>.

With no argument <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2266	2394	
==>on compile
        $@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shi <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2183	2301	
==>on compile
        $@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shi <==
3	/Users/nnunley/parrot/lib/Test/Simple.pm	2398	2495	
==>ow many tests you plan on running in
case something goes horribly wrong.

If all your tests passed <==
3	/Users/nnunley/parrot/tools/build/dynclasses.pl	3616	3726	
==>($?)\n";
        }
    }
} 
elsif ($mode eq 'compile') {
    my ($group_files, $group_libs, $pmc_group, $pmc_li <==
3	/Users/nnunley/parrot/tools/build/dynpmc.pl	3720	3830	
==>($?)\n";
        }
    }
} 
elsif ($mode eq 'compile') {
    my ($group_files, $group_libs, $pmc_group, $pmc_li <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1952	2077	
==>le parser module.";

        ref($class)
    and $class=ref($class);

    bless($self,$class);
}

sub YYParse {
    m <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1885	2001	
==>le parser module.";

        ref($class)
    and $class=ref($class);

    bless($self,$class);
}

sub YYParse {
    m <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16536	16626	
==>p { $_->[0] } @stream), "\n";
		($assignto, $type, @left)=generate_code($opts{lhs},@stream) <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841490	841657	
==>"i",
                              "s"
                            ],
                  "BODY" => "#line 40 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{ <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	1442	1560	
==>values.

Accepts a list and returns a list.

=cut

sub get
{
    my $self = shift;

    my $c = $self->{c};

    return <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	22098	22196	
==>]= $val{$_->[2]}
	#print "-> Copied value for "
	#print $val{$_->[2]}
	#print "\\n"
	P3["$_->[0]"]= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	249888	250082	
==>E" => 290,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 693 \"src/ops/cmp.ops\"\n  {{\@1}} = ! {{\@1}};\n  {{+ <==
3	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1011	1128	
==>$count] eq ",") {
    $temp = { children => [{ value => 'unquote' }] };
    my $expr;
    $count++;
    ($count, $expr <==
3	/Users/nnunley/parrot/lib/File/Which.pm	2055	2163	
==>s_VMS or $Is_MacOS;

    for my $base (map { File::Spec->catfile($_, $exec) } @path) {
       for my $ext (@p <==
3	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5003	5140	
==>}->{symbol} = $op->{arg1}->{symbol}\n";
    }

    sub visitCallOp {
        my $self = shift;
        my ($op) = @_;
        my $FH <==
3	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26581	26688	
==>'push'} ||= 0;
	if ($rule->{'class'} eq 'op') {
		# Init destination types array.
		$pir .= "    dtypes = ne <==
3	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	217	318	
==>e Class

=head1 SYNOPSIS
    
    use base qw(Parrot::Configure::Step::Base);

=head1 DESCRIPTION

The <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3365	3491	
==>et('linkflags');
            $linkflags =~ s/-opt:\S+//;
            $conf->data->set(linkflags => $linkflags);
        }
    } <==
3	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4869	4995	
==>et('linkflags');
            $linkflags =~ s/-opt:\S+//;
            $conf->data->set(linkflags => $linkflags);
        }
    } <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	227	320	
==>he abstract superclass for the Parrot op to C
transforms. Each transform contains various bits <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4665	4780	
==>{
    my $self = shift;
    my $name = shift;
    
    return -d File::Spec->catdir($self->path, $name);
}

=item C< <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	85	184	
==>CodeGen';
use strict;

my $fail_label = Regex::Ops::Tree::mark('FAIL');

sub init_context {
    my ( <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	86	185	
==>CodeGen';
use strict;

my $fail_label = Regex::Ops::Tree::mark('FAIL');

sub init_context {
    my ( <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	602297	602561	
==>NAME" => "class",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
3	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	6060	6150	
==>init_set_dispatch($base_suffix)>

Returns the C code to initialize the dispatch mechanism w <==
3	/Users/nnunley/parrot/config/auto/cgoto.pm	21	109	
==>2005, The Perl Foundation.
# $Id: /parrot/config/auto/cgoto.pm 19593 2006-05-30T02:28:15. <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110665	111019	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111556	111910	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112448	112802	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981724	982054	
==>=> "inline",
                  "CODE" => 1101,
                  "ARGS" => [
                              "i",
                              "i",
                              "s",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops <==
3	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	149	316	
==>arrot/tools/dev/rebuild_miniparrot.pl 19607 2006-05-30T15:23:20.183054Z coke  $
################################################################################

=head1 <==
3	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	14828	14933	
==>ypes as found in the buffer.
  #   ~Verbatim, ~Para, ~end, =head1..4, =for, =begin, =end,
  #   =over, =ba <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18189	18278	
==>h @{$code{$seg}->{code}}, "\tgoto $labels{$syms[CURR]}\t# Goto $syms[CURR]\n";
}
sub parse <==
3	/Users/nnunley/parrot/config/gen/makefiles.pm	7442	7606	
==>'languages/tcl/examples/Makefile',
        commentType                        => '#',
        replace_slashes                    => 1
    );
    genfile(
        'co <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	17633	17740	
==>' ]),
                 $self->dbprint("backtracking into dynalt's index %<$counter> match\n"),
		 aop('goto' <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	4379	4479	
==>list;
	# block leader found, start new block
	if(exists $leaders{$instr_pc}) {
	    #substr($byte_cod <==
3	/Users/nnunley/parrot/tools/build/pbc2c.pl	1898	2002	
==>tring.h"
END_C

    print $trans->defines;
    print $ops->preamble($trans);

    my $length = length($pf <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1421	1519	
==>y ($self, $distance, $failLabel) = @_;
    $failLabel = $self->output_label_use($failLabel);
    re <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1170	1268	
==>y ($self, $distance, $failLabel) = @_;
    $failLabel = $self->output_label_use($failLabel);
    re <==
3	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	6791	6944	
==><th>Calls</th>
                 </tr>
                 <tr>
                 <td>Totals:</td>
                 <td>$totals{covered_lines} of $totals{lines <==
3	/Users/nnunley/parrot/tools/dev/pbc_header.pl	1238	1354	
==>_fp {
    my $fp = get_fp;
    my ($major, $minor)  = get_version;
    for my $f (@ARGV) {
	open F, "+<$f" or die "Ca <==
3	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4196	4289	
==>ction
dim g(10)
g(4)=12
y=arrfunc(g())

' Function Array scopes, expect 4, 5.6
function mine(a <==
3	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	5581	5726	
==>ote   = $arg->{type} eq 'int' ? ''       : "'";
            my $default = $arg->{default};
            
            $code .= "  goto done_$name \n <==
3	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	8656	8769	
==>desc;
		}
	}
	
	# TODO - The abstract section above was added later. The two searches 
	# could be combined.
	
	re <==
3	/Users/nnunley/parrot/tools/dev/mk_inno.pl	991	1082	
==>$icu_section = '';
if ($options{icudir}) {
	$icu_section = qq{
Source: "$options{icudir}\\li <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	35951	36093	
==>74,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75, <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36209	36351	
==>74,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75, <==
3	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	5765	5858	
==>xes used for files in the
directory.

C<$recursive> and C<$ignore> function as specified above <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236588	236680	
==>e 606 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}});\n  {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237470	237562	
==>e 606 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}});\n  {{+= <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238352	238444	
==>e 606 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@2}}, {{\@3}});\n  {{+= <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4964	5104	
==>e_ident);
      my $name = $ident->value;

      #
      # Allow there to be Properties:
      #

      my %props;

      while ($self->skip_ <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7958	8098	
==>e_ident);
      my $name = $ident->value;

      #
      # Allow there to be Properties:
      #

      my %props;

      while ($self->skip_ <==
3	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	5495	5616	
==>s('tcl', <<'TCL', <<'OUT', <<'DESC');
$body
TCL
$out
OUT
$name - $expl
DESC

END

        $counter++;
    }

    return $s <==
3	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39762	39902	
==>) {
        my @opcodes = ();
        my $main = new defn( '_main', 'fct' );
        push @opcodes, new SubDir( $parser,
            'pro <==
3	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	54848	54980	
==>.yp"
{
            BuildLogop( $_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 72
		 'exp', 3,
sub
#line 397 "Lua\lua51.y <==
3	/Users/nnunley/parrot/lib/Text/Balanced.pm	51866	51961	
==>_multiple>

The C<extract_multiple> subroutine takes a string to be processed and a 
list of ext <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	2830	2932	
==>gument, gives the
# token at that offset from the current one. If a count is given, then that
# many to <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6719	6818	
==>NOT_switch_${CURIC}:
PIR
	return $pir;
}

# Pre and post load operation hooks.
sub pre_load($) {
	my <==
3	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4657	4756	
==>NOT_switch_${CURIC}:
PIR
	return $pir;
}

# Pre and post load operation hooks.
sub pre_load($) {
	my <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2549	2648	
==>{ Name => 'op', Attributes => { kind => 'infix', name => $self->op } });
    $self->left->sax($handl <==
3	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2426	2525	
==>{ Name => 'op', Attributes => { kind => 'infix', name => $self->op } });
    $self->left->sax($handl <==
3	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1735	1833	
==>ut Pod::Simple into trace/debug mode

=head1 SYNOPSIS

 use Pod::Simple::Debug (5);  # or some inte <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189772	189884	
==>->get_integer(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190713	190825	
==>->get_integer(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABE <==
3	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	18532	18636	
==>ck, $check, $next) =
     map { $self->genlabel("gr_$_") } qw(loop back local_back check next);

    my $ <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	2373	2466	
==>t direction
descriptors. Element I<x> is the direction of argument C<< $args->[I<x>]
>>.

C<$l <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	13215	13330	
==><$source>);  # readline
      last unless defined $lines[-1];
       # but pass thru the undef, which will set sourc <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	285	391	
==>brary is a wrapper around a collection of PMCs linked in the
same dynamic library. A degenerate case is hav <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	2496	2595	
==>$to_file =~ s/\..*$//;
  $to_file .= ".pasm";
}

open INPUT, "<$from_file" or die "Can't open up $fr <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	2064	2175	
==>{shift->{ARGS}}; }

sub file   { return shift->{FILE};     }
sub line   { return shift->{LINE};     }

sub is_gl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48560	48659	
==>_set_flag(interpreter,   PARROT_BOUNDS_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49350	49449	
==>_set_flag(interpreter,   PARROT_BOUNDS_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PA <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6278	6422	
==>ttle"
Max = 4 'UBOUND(A$)
Exchange=TRUE           ' Force first pass through the array.
WHILE Exchange          ' Sort until no elements are exch <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15931	16075	
==>ttle"
Max = 4 'UBOUND(A$)
Exchange=TRUE           ' Force first pass through the array.
WHILE Exchange          ' Sort until no elements are exch <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	22056	22187	
==>sult, \@opcodes ];
}

sub BuildRelop {
    my ( $parser, $expr1, $op, $expr2 ) = @_;
    my %opcode = (
        '<'  => 'islt' <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	18625	18760	
==>"";
    return "" if exists $self->{flags}{noinit};

    # TODO gen C line comment
    my $classname = $self->{class};
    my $vtbl_flag <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16991	17354	
==>ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 23,
                  "ARGS" => [
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 300 \ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21962	22065	
==>ub isterminal { 0 }
sub describe { $_[1] ? '' : $_[0]->{name} } 

sub new ($$$$$)
{
	my $class = ref($_[ <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	3442	3561	
==>$directory) {
        print "- mkpath $directory\n";
        mkpath($directory);
    }

    print "- copy $from => $to\n <==
2	/Users/nnunley/parrot/lib/Test/More.pm	29947	30084	
==>$e1);
            $type = 'DIFFERENT' unless _type($e2) eq $type;

            if( $type eq 'DIFFERENT' ) {
                push @Data_Sta <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	245836	246149	
==>_i_pp(interpreter, {{\@2}}, {{\@3}}, MMD_STRCMP);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	35405	35545	
==>&& return;
    }
    else {
        $self->diag("No tests run!\n");
        _my_exit( 255 ) && return;
    }
}

END {
    $Test->_ending if d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037748	1038004	
==>eter, NULL, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038529	1038785	
==>eter, NULL, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	97550	97816	
==>LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnot",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	98949	99215	
==>LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnot",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	519	680	
==>'dnD', \%opt);
$file = $ARGV[0];
$lambda_count = 0;

my %builtin_ops = (
    abs => 'o',
    isinstance => 's',
    ord => 's',
);

my %builtins = (
    Assertion <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3099	3231	
==>return from here to main
                   'program - only to SUB1.
' Exit tests
sub mysub(b,c)
	print "Print me"
	exit sub
	print " <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17066	17198	
==>return from here to main
                   'program - only to SUB1.
' Exit tests
sub mysub(b,c)
	print "Print me"
	exit sub
	print " <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5257	5379	
==>ssion::Value::Literal->new($block, $self->require_literal);
        }

        $props{$prop} = $value;
      }

      $self <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	331	436	
==>k::File;

use Carp;

use Jako::Compiler;

use base qw(Jako::Construct::Block);


#
# compile()
#

sub comp <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	14604	14792	
==>t_int, one HAS to use temporary
        # variables.  We detect and collect those to "temp".
        my @temp;
        for my $i (0..$#$args) {
            if ($args->[$i] =~ /^\((.+)\*\)&( <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	18452	18558	
==>tos = pop @stack;
	my $n = temp($tos->[2]);
	print <<EOC;
	$n = not $tos->[1] $cmt
EOC
	push @stack, [-1, $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	708	834	
==>truct::Block::Loop::Until;
use Jako::Construct::Block::Loop::While;

use Jako::Construct::Declaration::Constant;
use Jako::Cons <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	622919	623017	
==>code_t *dest_pc;\n    void **dest_pred;\n    parrot_context_t *caller_ctx, *ctx;\n    parrot_cont_t <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	2138	2401	
==>',
        replace_slashes               => 1
    );
    genfile(
        'config/gen/makefiles/pge.in' => 'compilers/pge/Makefile',
        commentType                   => '#',
        replace_slashes               => 1
    );
    genfile(
        'config/gen/ma <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343341	343678	
==>BELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":files <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	9494	9650	
==>are
  #  typically at the end of the document:
  $this->_get_titled_section('AUTHOR' , max_token => 10_000, @_) ||
  $this->_get_titled_section('AUTHORS', ma <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3932	4032	
==>d, $failLabel, $lenvar) = @_;
    $lenvar ||= "<rx_len>";
    my $fail = $self->output_label_use($fai <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3646	3746	
==>d, $failLabel, $lenvar) = @_;
    $lenvar ||= "<rx_len>";
    my $fail = $self->output_label_use($fai <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	1491	1685	
==>omatically by kate_syntax.pl  $date -->

<language name="IMCC" version="0.2" kateversion="2.0" section="Sources" extensions="*.imc;*.pasm" mimetype="">

  <highlighting>

    <list name="special_ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	29662	29848	
==>_length {
}

sub _op_string_ref {
}

sub _op_string_set_bang {
}

sub _op_string_eq_p {
}

sub _op_string_lt_p {
}

sub _op_string_gt_p {
}

sub _op_string_le_p {
}

sub _op_string_ge_p { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	98725	98902	
==>GS" => [
                              "p"
                            ],
                  "BODY" => "#line 96 \"src/ops/bit.ops\"\n  {{\@1}}->vtable->i_bitwise_not(interpreter, <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	821	909	
==>---------------------------------------------------------------
sub e2char {
  my $in = $ <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2158	2298	
==>sub eval_ok (Str $code, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        T <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	22820	22996	
==>e have to set a few items
         */
        struct _vtable *vt_clone =
            Parrot_clone_vtable(interp, &temp_base_vtable);

EOC
    # init vtable slot
    if ($self->{ <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	4296	4418	
==>larly to the base number type
    scalar   : (only used by the sample src/dynpmc/foo.pmc)

This is not a canonical list, bu <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6720	6840	
==>line at ${$self}{'line_count'}\n"; 
      }
      
      $self->{'last_was_blank'} = 1;
      
    } elsif($self->{'last_ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9806	9971	
==>ee test.ldo)";
}

=item C<cc_run()>

Calls the F<test> (or F<test.exe>) executable. Any output is directed to
F<test.out>.

=cut

sub cc_run
{
    my $exe   = $conf-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38459	38600	
==>JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39323	39464	
==>JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	97522	97786	
==>2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnot",
                  "FLAGS" => ":base_co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	98921	99185	
==>2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnot",
                  "FLAGS" => ":base_co <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	2094	2303	
==>ALLIN_START(interpreter) will figure out if the stack
   anchor needs setting and, if so, will set it. It must *always*
   come immediately after the last variable declared in the block
   making the calls into <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650681	650803	
==>@1}} = 1;\n    else if ({{\@2}} >= enum_first_type && {{\@2}} < enum_last_type)\n        {{\@1}} = 1;\n    else\n        {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651603	651725	
==>@1}} = 1;\n    else if ({{\@2}} >= enum_first_type && {{\@2}} < enum_last_type)\n        {{\@1}} = 1;\n    else\n        {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571553	571915	
==>":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 653,
                  "ARGS" => [
                              "i",
                              " <==
2	/Users/nnunley/parrot/config/init/hints/freebsd.pm	1039	1140	
==>parrot$(SHARE_EXT)',
        libparrot_soname        => '-Wl,-soname=libparrot$(SHARE_EXT).$(SOVERSION <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	1877	1978	
==>parrot$(SHARE_EXT)',
        libparrot_soname        => '-Wl,-soname=libparrot$(SHARE_EXT).$(SOVERSION <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2134	2223	
==>eturns undef if unknown
  }
}

#---------------------------------------------------------- <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2599	2688	
==>eturns undef if unknown
  }
}

#---------------------------------------------------------- <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	3825	4047	
==>ut .= "    \$r->$elem = $init {};$cmt\n";
            $hashes{$name}++;
        }
        elsif ( $type eq '$') {
            $out .= "    \$r->$elem = $init undef;$cmt\n";
        }
        elsif( $type =~ /^\w+(?:::\w+)*$ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	890	979	
==>"Ident is not!" if defined $ident and not UNIVERSAL::isa($ident, 'Jako::Construct::Express <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	918	1007	
==>"Ident is not!" if defined $ident and not UNIVERSAL::isa($ident, 'Jako::Construct::Express <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	26988	27158	
==>1;
        if($1 == 0) {
          $self->whine(
            $para->[1]{'start_line'},
            "Can't have a 0 in =over $content"
          );
          $para->[1]{'in <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	17566	17739	
==>keys %all) {
        my $file = $all{$name}->{file};
        $file =~ s/\.\w+$/.dump/;

        my $existing = find_file($include, $file);
        if ($existing && -e $existi <==
2	/Users/nnunley/parrot/config/auto/env.pm	20	116	
==>-2003, The Perl Foundation.
# $Id: /parrot/config/auto/env.pm 19593 2006-05-30T02:28:15.110975Z c <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	3826	4019	
==>funge.in' => 'languages/befunge/Makefile',
        commentType                       => '#',
        replace_slashes                   => 1
    );
    genfile(
        'config/gen/makefiles/bf.i <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16477	16621	
==>ookupU($idf);
            if ( defined $defn ) {
                $result = new_tmp( $parser, 'pmc' );
                push @opcodes, new Local <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	8904	8989	
==>)
#define RCONST(i) interpreter->code->const_table->constants[jit_info->cur_op[i]]
#de <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208329	208421	
==>"#line 401 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) <= {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209270	209362	
==>"#line 401 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) <= {{ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	1526	1657	
==>$pos) = @_;

  if (defined $pos) {
    my $count = scalar(@{$self->{TOKENS}});

    $pos = -1 if $pos < 0;          # Just before th <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561926	562021	
==>eal_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", {{\@3}});\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563010	563105	
==>eal_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", {{\@3}});\ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	1495	1600	
==>e will be lost!
 *
 */

EOC
}

=item C<gen_ret($method, $body)>

Generate the C code for a C<return> state <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104116	1104245	
==>"Class '%Ss' not found\", class);\n\t{{\@1}} = pmc_new_init(interpreter, type, {{\@3}});\n\t{{+=4}};\n",
                  "experi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105331	1105460	
==>"Class '%Ss' not found\", class);\n\t{{\@1}} = pmc_new_init(interpreter, type, {{\@3}});\n\t{{+=4}};\n",
                  "experi <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	5454	5575	
==>ct of type C<PMC *>.

=item C<INTERP>

Converted to the interpreter object.

=item C<OtherClass.SELF.method(a,b,c)>

Calls <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	321	417	
==>on of PMCs linked in the
same dynamic library. A degenerate case is having an unnamed library wit <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	3696	3834	
==>s to return the C code for
initializing the dispatch mechanism within the core's init function.
C<$base_suffix> is the same as for C<ops_ad <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408280	408439	
==>io.ops\"\n    {{\@1}} = (INTVAL)PIO_connect(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409179	409338	
==>io.ops\"\n    {{\@1}} = (INTVAL)PIO_connect(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23938	24233	
==>opcode_t *)p->vtable->invoke(interpreter, p, {{^+3}});\n  {{=dest}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
2	/Users/nnunley/parrot/lib/Test/More.pm	17948	18092	
==>borted at .*$}
                {BEGIN failed--compilation aborted at $filename line $line.}m;
        $Test->diag(<<DIAGNOSTIC);
    Tried to use <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12445	12585	
==>elf->{"items"}} >= 0 )
	{
		my $subrule = $self->{"items"}[0]->issubrule();
		return $subrule if defined $subrule;
	}

	return ();
}

sub che <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	24647	24879	
==>= do { local *FH };
        open $fh, ">$file_or_fh" or 
            die "Can't open test output log $file_or_fh: $!";
	_autoflush($fh);
    }

    return $fh;
}


sub _is_fh {
    my $maybe_fh = shift;

    return 1 if ref \$maybe_f <==
2	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1167	1269	
==>$smokeserv => \%request);
  if($resp->is_success) {
    if($resp->content =~ /^ok/) {
      debug "succ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4183	4329	
==>doc_lang',
 'head1_halfpoint_size',
 'head2_halfpoint_size',
 'head3_halfpoint_size',
 'head4_halfpoint_size',
 'codeblock_halfpoint_size',
 'heade <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	279	394	
==>xt { (@_ == 2) ? ($_[0][1] = $_[1]) : $_[0][1] }

sub text_r { \ $_[0][1] }

1;

__END__

=head1 NAME

Pod::Simple:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173593	173932	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ] <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	12922	13079	
==>P_HASH_SIZE;
    if (!hop) {
        hop = mem_sys_allocate_zeroed(OP_HASH_SIZE * sizeof(HOP*));
        hop_init();
    }
    for (p = hop[hidx]; p; p = p->n <==
2	/Users/nnunley/parrot/config/auto/memalign.pm	1160	1317	
==>ata->get('intsize')) {
        $conf->data->set(ptrcast => 'int');
    } else {
        $conf->data->set(ptrcast => 'long');
    }

    cc_gen('config/auto/me <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28896	28990	
==>{$meth};
    return $self->{methods}[$n]{'loc'} ne 'nci';
}


=item C<implements_vtable($method <==
2	/Users/nnunley/parrot/lib/Test/More.pm	14944	15040	
==>ys for you to write your own diagnostic
messages which are safer than just C<print STDERR>.

=ove <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	5588	5753	
==>capes.
sub dbprint {
    my ($self, $what) = @_;
    return () unless $self->{DEBUG};
    my @ops;
    $what = "%<rx_pos>: $what";
    foreach my $part ($what =~ /((? <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008288	1008676	
==>6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "escape",
                  "F <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	2181	2318	
==>e of op (see the note on op types above).

C<$name> is the name of the op.

C<$args> is a reference to an array of argument type descripto <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	54910	55026	
==>r expression or a string,
it is matched against the text in a scalar context with a leading
'\G' and the gc modifiers <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7014	7111	
==>'typeof', [$type, $list]);
  $self->_add_inst('', 'eq', [$type,'.Undef',"DONE_$label"]);

  my $co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645671	645846	
==>"
                            ],
                  "BODY" => "#line 211 \"src/ops/pmc.ops\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtable_max)\n\t\t{{\@1}} = interpre <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37460	37563	
==>q{' . $rule->{"name"} . '})
					if defined $::RD_TRACE;').'
		$Parse::RecDescent::lastexpected = ' . ($ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39863	39966	
==>q{' . $rule->{"name"} . '})
					if defined $::RD_TRACE;').'
		$Parse::RecDescent::lastexpected = ' . ($ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24021	24174	
==>LSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 128,
			'functioncall' => 31,
			'function' => 26,
			'tableconst <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3843	3951	
==>$checklist{$prm}
		or	croak("Invalid value for parameter '$prm'");
        $prm=unpack('@2A*',$prm);
		$$o <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3647	3752	
==>$checklist{$prm}
		or	croak("Invalid value for parameter '$prm'");
        $prm=unpack('@2A*',$prm);
		$$o <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5388	5518	
==>) == 2;

    print "Looking up all triggers on configuration key $key\n"
        if $verbose;

    return CORE::keys %{$self->{trig <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11481	11592	
==>RRAY = 0x1D
	.const int ELEMENT_TYPE_INTERNAL = 0x21
    
    # Trace info - param and local types.
    if trace <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	27488	27878	
==>$type = "FixedPMCArray" unless defined $type;
    my ($opcode, $rest) = ($code[$code_l]->[2],$code[$code_l]->[4]);
    if ($opcode eq 'UNPACK_SEQUENCE') {
	$code_l++;
	print "\t\t$cmt + UNPACK_SEQUENCE\n";
	# have to reverse n stack elems
	my ($i, @rev);
	for ($i = 0; $i < $n; $i++) {
	    push @rev, pop @stack;
	}
	push @stack, @rev;

	return;
    }
    my $ar = temp('P');
    print <<EO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627173	627270	
==>erpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n\n  /* Why?? <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628317	628414	
==>erpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n\n  /* Why?? <==
2	/Users/nnunley/parrot/config/auto/format.pm	1298	1454	
==>"long double not supported at this time, use double.";
        $nvsize   = $ldsize;
        $nvformat = "%Lf";
    } else {
        die "Configure.pl:  Can't <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	23034	23184	
==>mething about that seems icky.
      }
      if(ref $is) {
        my @dynasty = @$is;
        DEBUG > 4 and print "    Renaming $was node to $dynasty[ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	67736	67972	
==>, $line);
			_hint("Did you mean \"|\" (to start a new production)?
			           Or perhaps you forgot that the colon
				   in a rule definition must be
				   on the same line as the rule name?");
		}
		elsif ($grammar =~ m/$ACTION/gc <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	1355	1525	
==>$self) = @_;
    return "rx_pushmark P0";
}

sub output_pushindex {
    my ($self) = @_;
    return "rx_pushindex P0";
}

sub output_popindex {
    my ($self, $fallback) = <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18662	18761	
==>LABEL= "$labels{$syms[CURR]}"  # Return $syms[CURR]
	ret
RETURN2
		if (! $runtime_jump) {
			warn "N <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9863	10159	
==>rn ("substr $dest, $src, $offset, $len");
}

sub output_length {
    my ($self, $dest, $string) = @_;
    return ("length $dest, $string");
}

sub output_arg {
    my ($self, $name, $type, $value) = @_;
    $value = value($value);
    $DB::single = 1 unless length($value);
    return ".arg $value <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	10526	10740	
==>PMC_int_val(t_$temp_num)";
    };
    /l/ && do {
        push @{$temps_ref}, "long t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = (long)GET_NCI_I($reg_num);";
        return "t_$temp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948851	948962	
==>{\@1}} = Parrot_string_trans_charset(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949651	949762	
==>{\@1}} = Parrot_string_trans_charset(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	11840	12000	
==>ount'}, $enc_error );
  }
  push @{ $self->{'encoding_command_statuses'} }, $enc_error;

  return '=encoding ALREADYDONE';
}

# - - - - - - - - - - - - - - - - - <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	16287	16405	
==>a
    $other_decl
    $call_state
    $extra_preamble

    pointer =  ($ret_type (*)(void))D2FPTR(PMC_struct_val(self)) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517766	518141	
==>",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 597,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	990917	991148	
==>,
                              "s",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992054	992285	
==>,
                              "s",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_n <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5829	5922	
==>defined $self->{triggers}{$key}{$trigger};

    my $verbose = defined $self->get('verbose') && <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6399	6492	
==>defined $self->{triggers}{$key}{$trigger};

    my $verbose = defined $self->get('verbose') && <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22503	22671	
==>~ m{<head(\d)>(.+)</head\d>$}
      and !( $1 eq '1' and $2 eq 'NAME' )
    ) {
      # Well, it fits a fallback pattern
      DEBUG and print "Seems to match NAMEless p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095935	1096193	
==>}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	6901	7077	
==>elf = shift;
  my ($file) = @_;

  my $fh = FileHandle->new($file);

  die "$0: IO Error. Unable to open file '$file' for reading.\n"
    unless $fh;

  my @lines = <$fh>;

  re <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23376	23469	
==>_generate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp = $self->_gene <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23838	23931	
==>_generate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp = $self->_gene <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	5642	5745	
==>EXT()> line to the code to represent
the auto-computed return value. See the note on op types above.

=c <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7663	7798	
==>IC}
dec ${ITEMP0}
dec ${ITEMP2}

# Generate name of register to hold value we pop off the stack.
${PTEMP3} = ${STYPES}[${ITEMP2}]
${STEM <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6621	6737	
==>IC}
dec ${ITEMP0}
dec ${ITEMP2}

# Generate name of register to hold value we pop off the stack.
${PTEMP1} = ${STYPES <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	5388	5578	
==>ort {
    Test::skip($Test::num_of_tests_planned - $Test::num_of_tests_run, $reason // "", :$depends);
}

sub pass (Str $desc?) returns Bool is export {
    Test::proclaim(1, $desc);
}

sub f <==
2	/Users/nnunley/parrot/lib/Test/More.pm	2114	2216	
==>bject, $class);

  pass($test_name);
  fail($test_name);

  # UNIMPLEMENTED!!!
  my @status = Test::Mor <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	6124	6258	
==>ler's work for it.
    my $keeping = 1;
    foreach my $stmt (@output2) {
	if ($stmt->{label}) {
	    $keeping = $stmt->{label}->{reach <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1491	1598	
==>self->INTERNAL_ERROR("Undefined type!")
    unless defined $type;

  $self->INTERNAL_ERROR("Type is not a Ja <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1339	1446	
==>self->INTERNAL_ERROR("Undefined type!")
    unless defined $type;

  $self->INTERNAL_ERROR("Type is not a Ja <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19631	19738	
==>put #2,a$
	print a$,
next i
close #2
print

' ON..GOTO   200! and then Oats..
t=2
on t goto 100, 200, 300
pr <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21850	21993	
==>gnoring targetless =end\n";
        next;
      }
      
      unless($content =~ m/^\S+$/) {  # i.e., unless it's one word
        $self->whine <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	533295	533693	
==>> [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 890 \"src/ops/math.ops\"\n  {{\@1}} = log((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712312	712408	
==>.ops\"\n  PMC * const io = PIO_STDOUT(interpreter);\n  STRING *s;\n  if (PIO_softspace(interprete <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713419	713515	
==>.ops\"\n  PMC * const io = PIO_STDOUT(interpreter);\n  STRING *s;\n  if (PIO_softspace(interprete <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	24878	25079	
==>r->{errors}}, [qq{'.$self->{msg}.'},$thisline];'; 
		} else {
			$action .= 'push @{$thisparser->{errors}}, [qq{'.$self->{msg}.'},Parse::RecDescent::linenum($thisline)];'; 
		}
	}
	else	  # GENERATE ERR <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24636	24747	
==>}
  } else {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26535	26646	
==>}
  } else {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	2064	2198	
==>self->type);
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'ident', Attribu <==
2	/Users/nnunley/parrot/tools/dev/pbc_header.pl	1821	1954	
==>printf "\t%-12s= %s\n", $fields[$i],$c;
	}
    }
}

sub main {
    my ($result, $upd_fp);
    $result = GetOptions(
	"update-fingerpri <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	15938	16073	
==>y be allowing the shift constant to be negative?
    #

    if ($token->is_ident
      and $self->get(1)->is_assign
      and $self->get <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50101	50193	
==>ne 800 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_PROF <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50894	50986	
==>ne 800 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_PROF <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	2206	2365	
==>);
  $compiler->outdent;

  $compiler->emit("_${name}_LEAVE:");
  $compiler->emit("  .return()"); # Fallthrough return() in case the code in the sub doesn't ret <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36611	36764	
==>" => 72,
			"%" => 76,
			"*" => 80,
			".." => 71,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -67
	},
	{#State 142
		ACTIONS = <==
2	/Users/nnunley/parrot/config/auto/jit.pm	907	1035	
==>hname = $Config{archname};
    my ($cpuarch, $osname) = split(/-/, $archname);

    if (!defined $osname) {
        ($osname, $cp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953796	954059	
==>0,
                  "NAME" => "encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functio <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954586	954849	
==>0,
                  "NAME" => "encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functio <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2635	2750	
==>ing '$cmd': $!";
    my $tmp;
    my %generated_files;
    while (<GCOVSUMMARY>) {
        if (/^Creating (.*)\./) { <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	4716	4838	
==>0] : \( $_[0] );
  $$x = '' unless defined $$x;
  DEBUG > 4 and print "# Output string set to $x ($$x)\n";
  $this->{'outpu <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1133	1244	
==>use Carp;

#Known parameters, all starting with YY (leading YY will be discarded)
my(%params)=(YYLEX => 'CODE <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1093	1201	
==>use Carp;

#Known parameters, all starting with YY (leading YY will be discarded)
my(%params)=(YYLEX => 'CODE <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	950	1068	
==>and length $in;
  
  # Convert to decimal:
  if($in =~ m/^(0[0-7]*)$/s ) {
    $in = oct $in;
  } elsif($in =~ m/^0x([0 <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2309	2427	
==>and length $in;
  
  # Convert to decimal:
  if($in =~ m/^(0[0-7]*)$/s ) {
    $in = oct $in;
  } elsif($in =~ m/^0x([0 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8087	8230	
==>$self->skip_colon) {
        my $prop = $self->require_ident->text;
      
        my $value;

        if ($self->skip_assign) {
          $valu <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5093	5230	
==>$self->skip_colon) {
        my $prop = $self->require_ident->text;

        my $value;

        if ($self->skip_assign) {
          $valu <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7343	7498	
==>$reg);
    return ("push \@::STATESTACK, $reg;");
}

sub output_restore {
    my ($self, $reg) = @_;
    $reg = value($reg);
    return ("$reg = pop \@::STA <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	7938	8127	
==>'', 
                'pairs' => ['debug'], 
                'sources' => ['pdb']
            ),
            $self->c_source_item('', 'disassemble'),
            $self->c_pair_item('', 'trace <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20625	20707	
==><Pod::Simple::PullParserStartToken>,
L<Pod::Simple::PullParserTextToken>, and
L<Pod <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2686	2768	
==><Pod::Simple::PullParserStartToken>,
L<Pod::Simple::PullParserTextToken>, and
L<Pod <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647549	647779	
==>s/pmc.ops\"\n    {{\@1}} = pmc_type(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648310	648540	
==>s/pmc.ops\"\n    {{\@1}} = pmc_type(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1323	1464	
==>f",
            CD => '..', # $self->{relpath}, 
            STDOUT => $out_f, STDERR => $out_f, 
        );
        my $prog_output = Parrot: <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	38565	38708	
==>\/\\\\/g;
	$ins =~ s/\n/\\n/g;
	$ins =~ s/"/\\"/g;

	# Substitute in meta-variables. Yes, this really is the least evil way I
	# can think of to <==
2	/Users/nnunley/parrot/config/inter/make.pm	1473	1601	
==>->set_result('no');
            return $self;
        }
    }

    if ($conf->options->get('ask')) {
        $prog = prompt($prom <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70475	70907	
==>=> "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 94,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 1150 \"src/ops/core.ops\"\n\n  {{\@1}} = Parrot_l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	619979	620099	
==>\n        ((void**)cur_opcode)[0] =\n            parrot_pic_opcode(interpreter, PARROT_OP_pic_infix___ic_p_p);\n\t{{+=0}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407759	408054	
==>nnect",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408657	408952	
==>nnect",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
2	/Users/nnunley/parrot/config/auto/gc.pm	1758	1908	
==>$(SRC_DIR)/$gc\$(O):	\$(GENERAL_H_FILES) \$(SRC_DIR)/$gc.c
\$(SRC_DIR)/res_lea\$(O):	\$(GENERAL_H_FILES) \$(SRC_DIR)/res_lea.c
EOF
            TEMP_gc_ <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2831	2971	
==>iling whitespace on the file 
sub trim_whitespace {
    my ($file, $source) = @_;

    return unless @$source;
    shift @$source while (defi <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61341	61470	
==>}
		      )

		{
			_parse("an m/../ pattern terminal", $aftererror,$line,$code);
			$item = new Parse::RecDescent::Token(@compone <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	8077	8203	
==>ary=1;
			} elsif (iskeyword($syms[PREV]) and not isbuiltin($syms[PREV]) ) {
				$unary=1;
			}
		}
		if (
			$this->[0] eq "(" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2095	2271	
==>ras->[-1];
       # So that it definitely fills the buffer.
      $self->{'source_dead'} = 1;
      $self->_ponder_paragraph_buffer;
      next;
    }


    if( $self->{'line_co <==
2	/Users/nnunley/parrot/config/init/defaults.pm	219	407	
==>p the configuration system's default values and data structures.

=cut

package init::defaults;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

u <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	11991	12092	
==>(const char * str);
static void store_op(op_info_t *info, int full);

/* XXX on changing interpreters, <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	8030	8216	
==>$/s ) 
    {
        push @{$self->{STACK}}, $1;
    } 
    elsif ( $tagname eq 'Para') 
    {
        $tagname = 'Para_item' 
            if @{$self->{STACK}} and $self->{STACK}->[-1] eq <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94477	94956	
==>_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 117,
                  "ARGS" => [
                              "s",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 63 \"src/ops/bit.ops\ <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	1480	1744	
==>mand("make miniparrot-prebuild");
}

print "\n\n";
exit(0);

###########################################################################

sub prebuild_classes {
    my @src;

    foreach my $obj (@ARGV) {
        my $src = $obj;
        $src =~ s/src\/pmc\/(.*)\.o/ <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	2651	2781	
==>ted'})) {
            # Do nothing.

        # Have we got a non-blank line when we've got no method specified yet?
        } elsif <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	6710	6789	
==>"parrot-smoke-<VERSION>-<DEVEL>-r<revision>-<branch>--<cpuarch>-<osname>-<cc>-<r <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	4445	4624	
==>list',
        script  => '__script',
        var     => '__read',
    );
    
    my $code = "";
    for my $i (0..$#args)
    {
        my $arg  = $args[$i];
        my $name = $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488829	489127	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	489582	489880	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11479	11576	
==>}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_END_${CURIC}

# Do we have anyth <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	27879	28068	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "get_results",
                  "FLAGS" => "",
                  "ARGDIR <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11254	11352	
==>oncat ${STEMP0}
inc stack_depth
${STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
pre_call_NO_RET <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8440	8538	
==>oncat ${STEMP0}
inc stack_depth
${STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
pre_call_NO_RET <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10919	11025	
==>self = $_[0];
  my $fh = $self->{'output_fh'};
  return print $fh join '',
    $self->doc_init,
    $self-> <==
2	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1086	1228	
==>t("pugs-smokeserv-client/" . VERSION);
  $ua->env_proxy;

  my $resp = $ua->post($smokeserv => \%request);
  if($resp->is_success) {
    if($re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959281	959423	
==>c/ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960083	960225	
==>c/ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65178	65282	
==>de);
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$line,"$code$argcode($1. <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65838	65942	
==>de);
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$line,"$code$argcode($1. <==
2	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	483	647	
==>05/24 03:59:46  clintp
# Screwed up ID strings
#

# Loads and runs the BASIC interpreter.
#
# Subsequent runs can be done with:
#    parrot.exe out.pbc
#
open(T, ">m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819076	819341	
==>entrytype",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 9 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820035	820300	
==>entrytype",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 9 <==
2	/Users/nnunley/parrot/languages/perms.pl	242	398	
==>> $#$things ) {
      $prefix[$i] = 0;
      $i++;
      last if $i > @prefix;
    }
    
    if ( $prefix[-1] >= @$things ) {
      @prefix = ( (0) x (@pref <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	11513	11869	
==>", @_;

    # disable STDERR
    open OLDERR, ">&STDERR";
    open STDERR, ">test.err";

    my $output = `$command`;
    my $retval = ($? == -1) ? -1 : ($? >> 8);

    # reenable STDERR
    close STDERR;
    open STDERR, ">&OLDERR";

    # slurp stderr
    my $out_err = _slurp('./test.err');

    # cleanup
    unlink "test.err";

    return ($output, $ou <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266445	266763	
==>isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 310,
                  "ARGS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	66415	66516	
==>ops/core.ops\"\n  {{\@1}} = VTABLE_get_pmc_keyed_int(interpreter, interpreter->iglobals,\n         IGL <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2334	2478	
==>ary) {
        my $hout = $self->gen_h($library);
        my $h = "$library.h";
        my $c = "$library.c";
        _write_a_file($self, $h, $c <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	5437	5557	
==>asm =~ s/jit_emit_end/exec_emit_end/;
            }
            if (($cpuarch eq 'ppc') && ($genfile ne "src/jit_cpu.c")) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449858	450096	
==>line",
                  "CODE" => 515,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 195 \"src/ops/math.ops\"\n  {{\@1} <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	39776	39919	
==>t => '/para', fail => MAX );

	# EXTRACTED: "/para line 1\n\nline 3\n"

Suppose instead, that if no matching "/endpara" tag is found, the "/para <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4872	4985	
==>ernal_calls = grep { ! /^_/ } sort keys %internal_calls;
    my @non_ansi_external_calls = grep { ! exists($ansi_c <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	2113	2370	
==>vel--;
                }
                $line = ( $self->{indent} x $level ) . $line;
                if ( $line =~ $block_begin ) {
                    push @output, [ 1, q{} ];
                    $level++;
                }
            }
            push <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	1050	1243	
==>files are
filtered. So one can skip, say a binary file, but still have it listed
in the output. For instance, it is nice to see where the .pbc's land.

=item * Allow indescribable heads to be mi <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	4810	4918	
==>assume 1d otherwise.
    unless iter goto iter_end
  iter_loop:
    old_type = value_type
    value = shift i <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18387	18497	
==>_p {
}

sub _op_eq {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self- <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	12120	12274	
==>first
    .param pmc op1
    $P1 = shift op1
    .return ($P1)
.end

.sub unicode:"dyadic:\u2191" :multi (Float, APLVector) # take
    .param int op1
    . <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	1449	1557	
==>ster index.
    s   The argument is a string register index.
    ic  The argument is an integer constant (in- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731865	732273	
==>"o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 821,
                  "ARGS" => [
                              "i",
                              "n"
                            ],
                  "BODY" => "#line 129 \"src/ops/set.ops\"\n  {{\@1}} = (INTVAL)({{\@2}});\n  {{+=3}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	30252	30434	
==>undef if none. E.g., in
# Getopt::Std/DESCRIPTION, "DESCRIPTION" is the section. (Note that this
# is not the same as a manpage section like the "5" in "man 5 crontab".
# "Section Foo <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8914	9017	
==>nned = undef;
    $Test::force_todo_test_junction = undef;
    $Test::testing_started = 0;
}

END { Test <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	3338	3456	
==>symbols (Ff)
If more than one of all the above options are given, they are ANDed.
They can also be negated with a "no", <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	22692	22825	
==>DIM:
		if ($syms[NEXT] eq "as") {
			my $var=$syms[CURR];
			feedme;  # "as"
			feedme;  # type.
			die "Unknown type $syms[CURR]" unl <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	5835	5989	
==>$cond, Str $desc? is copy, $todo?, Str $got?, Str $expected?, $depends?, $negate?) returns Bool {
    $Test::testing_started = 1;
    $Test::num_of_tests_r <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	17738	17843	
==>f the original instruction code before we trash it.
    foreach (@rules) {
        $_->{'orig_code'} = $_- <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	33733	33909	
==>$treelet->[$i]  # yes, clone the whole content as a treelet
          );
          $treelet->[$i][1]{'to'}[0] = ''; # set the copy's tagname to nil
          die "SANITY FAILURE <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27347	27487	
==>sult' => $l_continue,
    );
    push @opcodes, new LabelOp( $parser,
        'arg1' => $l_break,
    );
    return \@opcodes;
}

sub <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28226	28366	
==>sult' => $l_continue,
    );
    push @opcodes, new LabelOp( $parser,
        'arg1' => $l_break,
    );
    return \@opcodes;
}

sub <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327091	327199	
==>}}->vtable->set_integer_native(interpreter, {{\@1}}, (INTVAL){{\@2}});\n  {{+=3}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327893	328001	
==>}}->vtable->set_integer_native(interpreter, {{\@1}}, (INTVAL){{\@2}});\n  {{+=3}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173693	173971	
==>NAME" => "ne_str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	56292	56501	
==>token:NOUN,VERB>");
				}
				else
				{
					$item = new Parse::RecDescent::Directive(
						      'no strict;
						       $return = { text => $item[-1] };
						       @{$return->{type}}{'.$code.'} = (1..'.$ <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	1599	1784	
==>lsif ( $base_type eq 'ARRAY' ) {
        $class = shift;
        @decls = @{shift()};
        _usage_error() if @_;
    }
    else {
        $base_type = 'ARRAY';
        $class = (calle <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11008	11099	
==>d, $super, $super_table)>

Rewrites the method body performing the various macro substitutio <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11410	11501	
==>d, $super, $super_table)>

Rewrites the method body performing the various macro substitutio <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	775	872	
==>nfess "Type (" . ref($type) . ") is not!"   if defined $type and not UNIVERSAL::isa($type, qw(Jako <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	658	752	
==>nfess "Type (". ref($type) . ") is not!" if defined $type and not UNIVERSAL::isa($type, qw(Jako <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	17021	17124	
==>1) # might be pre-empted
.end
END_POSTAMBLE
    }
}

# Substitute all macros
foreach my $macro (keys %ma <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135860	136221	
==>rs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 167,
                  "ARGS" => [
                              "s" <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	12416	12561	
==>expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These functions will eval a code snippet, and then pass the result to is or ok
on <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53391	53635	
==>ARROT_GC_DEBUG_FLAG); }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54147	54391	
==>ARROT_GC_DEBUG_FLAG); }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3300	3403	
==>on
	foo$="Wrong one"
end function
call mysub( 78, 80)
t$=foo$
print t$
t=0
do
	print "This is right"
	ex <==
2	/Users/nnunley/parrot/lib/File/Which.pm	37	138	
==>quire Exporter;

@File::Which::ISA       = qw(Exporter);

@File::Which::EXPORT    = qw(which);
@File:: <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	2670	2792	
==>$self = shift;
    my $delim = shift;
    
    while (my ($key, $val) = splice @_, 0, 2) {
        my ($old) = $self->{c}{$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773328	773464	
==>i"
                            ],
                  "BODY" => "#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774238	774374	
==>i"
                            ],
                  "BODY" => "#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int( <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	5693	5794	
==>end

' Odd bug in static strings.  Expect "Ok"
dim O(1)
IF E$ <> "O" THEN 5030
print "Wrong!"
end
5030 <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	11573	11698	
==>length $line_group;
    pos($line_group) = 0;
    while($line_group =~
      m/([^\n\r]*)((?:\r?\n)?)/g
    ) {
      #print(" <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48379	48554	
==>o)
					{ ($minrep, $maxrep) = ($1,$1) }
				elsif ($grammar =~ m/$BETWEEN/gco)
					{ ($minrep, $maxrep) = ($1,$2) }
				elsif ($grammar =~ m/$ATLEAST/gco)
					{ $minrep = $1 <==
2	/Users/nnunley/parrot/Configure.pl	6973	7141	
==>)          Determine the type of garbage collection
                        type=(gc|libc|malloc|malloc-trace) default is gc

ICU Options:

   For using a system ICU, th <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5520	5626	
==>e)>

Returns the C code following the run core function.

=cut

sub run_core_finish
{
    my ($self, $base) <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3856	3962	
==>e)>

Returns the C code following the run core function.

=cut

sub run_core_finish
{
    my ($self, $base) <==
2	/Users/nnunley/parrot/lib/Test/More.pm	2730	2923	
==>st anything with a simple
C<ok()> function, it doesn't provide good diagnostic output.


=head2 I love it when a plan comes together

Before anything else, you need a testing plan.  This basical <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1763	1860	
==>got %d) in call to '%s'.",
    scalar(@formal_args), scalar(@args), $name)
    unless @formal_args <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1463	1560	
==>got %d) in call to '%s'.",
    scalar(@formal_args), scalar(@args), $name)
    unless @formal_args <==
2	/Users/nnunley/parrot/examples/benchmarks/oo5.pl	172	293	
==>? ref shift : shift;
    return bless [ 10, 20 ], $self;
}

sub i {
    my $self = shift;
    if (@_) { $self->[0] = shift <==
2	/Users/nnunley/parrot/examples/benchmarks/oo6.pl	164	285	
==>? ref shift : shift;
    return bless [ 10, 20 ], $self;
}

sub i {
    my $self = shift;
    if (@_) { $self->[0] = shift <==
2	/Users/nnunley/parrot/config/inter/progs.pm	4249	4352	
==>warn = integrate($conf->data->get('ccwarn'), $conf->options->get('ccwarn'));
    $conf->data->set(ccwarn <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	47029	47151	
==>KAHEAD RESET AT END OF while LOOP
		}
		elsif ($grammar =~ m/$POSLOOKAHEAD/gco)
		{
			_parse("a positive lookahead",$after <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1125	1230	
==>lf->name;

#  $self->DEBUG(0, "Searching for symbol '$name'...");

  my $sym = $self->block->find_symbol($ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958162	958401	
==>=> "function",
                  "CODE" => 1078,
                  "ARGS" => [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 581 \"src/ops/string.ops\ <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4206	4314	
==>($group, $pmcs) = each %$group_files) {
        partial_link($group, $group_libs->{$group}, [ "lib-$group", @ <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4310	4418	
==>($group, $pmcs) = each %$group_files) {
        partial_link($group, $group_libs->{$group}, [ "lib-$group", @ <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1880	2021	
==>g_fn );

        # STDERR is written into same output file
        my $exit_code = Parrot::Test::run_command( 
                            \@t <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2360	2488	
==>g_fn );

        # STDERR is written into same output file
        my $exit_code = Parrot::Test::run_command(
            \@t <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	3	232	
==>perl -w

=head1 ncidef2asm.pl

Take an NCI library definition file and turn it into a 

=head1 Sections

An NCI library definition file provides the information needed to
generate a parrot wrapper for the named library (or librari <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803029	803353	
==>"i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 906,
                  "ARGS" => [
                              "p",
                              "kc",
                              "sc"
                            ],
                  "BODY" => "#line 467 \"src/ops/ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45459	45583	
==>UTOSCOREMK		= '\G\s*<autoscore:';
my $SKIPMK		= '\G\s*<skip:';
my $OPMK		= '\G\s*<(left|right)op:';
my $ENDDIRECTIVEMK	= '\G\ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	15273	15404	
==>p @stack;
    my $l = pop @stack;
    my ($t, $n);
    {
	my $nl = promote($l);
	$n = temp($t = 'P');
	my $nr = $r->[1];
#	$nr = pro <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	14956	15086	
==>p @stack;
    my $l = pop @stack;
    my ($t, $n);
    {
	my $nl = promote($l);
	$n = temp($t = 'P');
	my $nr = $r->[1];
	$nr = pro <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	809	916	
==>ert_rule {
    my ($self, $tree, $ctx) = @_;
    return $self->convert($tree->pat, $ctx);
}

sub convert_rx_ <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	10904	11026	
==>frexpf      math.h
frexpl      math.h
fscanf      stdio.h
fseek       stdio.h
fsetpos     stdio.h
ftell       stdio.h
fwrit <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	6209	6381	
==>ift;
    my %suffixes = ();
    
    foreach my $file ($self->files($recursive, $ignore))
    {
        $suffixes{$file->suffix} = 1;
    }
    
    return sort keys %suffix <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20642	20764	
==>unction' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 61
		DEFAULT => -28 <==
2	/Users/nnunley/parrot/config/init/defaults.pm	3778	3956	
==>for ldflags (necessary for Win32)
        cc_ldflags => '',

        # ld output file.  Keep the trailing space.
        ld_out => '-o ',

        # include debug info in executab <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15011	15183	
==>lse {
		s/INSERT NEW VALUE HERE/$right/g for @$leftexpr;
		s/--TYPE--/$righttype/g for @$leftexpr;

		@ass=(
			@$rightexpr,
			@$leftexpr,
		);
	}

	return @ass;
}
sub EXPR <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1159	1270	
==>bgoto {
    my ($self, $label) = @_;
    return () unless $self->{DEBUG};
    return () unless $self->{DEBUG_SUP <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	649	760	
==>bgoto {
    my ($self, $label) = @_;
    return () unless $self->{DEBUG};
    return () unless $self->{DEBUG_SUP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	315624	315996	
==>ELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u1_ovf",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "T <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	3549	3642	
==>> structure. For instance, any class using
C<PMC_data> will have C<need_ext>.

=item C<does in <==
2	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	1032	1151	
==>code, $code_f );

  # STDERR is written into same output file
  my $diag = '';
  my $parrot_exit_code = Parrot::Test::ru <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	231	365	
==>nic features
# in Parrot and how to translate Python stack-oriented bytecode to PIR.

use strict;
use Getopt::Std;

my ($DIS, @dis, @so <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29004	29148	
==>[0];

	my $pattern = $_[1];

	my $desc = $pattern;
	$desc=~s/\\/\\\\/g;
	$desc=~s/}/\\}/g;
	$desc=~s/{/\\{/g;

	bless 
	{
		"pattern"     => $pat <==
2	/Users/nnunley/parrot/config/auto/headers.pm	1576	1705	
==>s needed on mingw/msys; *BSD fails if they are present
    if ($^O eq "msys") {
        push @extra_headers, qw(sysmman.h netdb.h) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16071	16174	
==>array) { # void context: alter in-place!
    for(@_) {
      s/([F\x00-\x1F\\\{\}\x7F-\xFF])/$Escape{$1} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122170	122464	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":bas <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123082	123376	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":bas <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11208	11306	
==>P0} = ${PTEMP1}["reg_type_short"]
${DEST0} = concat ${STEMP0}
inc stack_depth
${STEMP0} = stack_dep <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8394	8492	
==>P0} = ${PTEMP1}["reg_type_short"]
${DEST0} = concat ${STEMP0}
inc stack_depth
${STEMP0} = stack_dep <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	28403	28605	
==>k)
              unless $self->{DEBUG};
            return $self->wrap($op, $self->$method($op, @{ $op->{args} }, $lastback));
        } else {
            return ($lastback, $self->rewrite_other($op, $l <==
2	/Users/nnunley/parrot/lib/Test/More.pm	26958	27334	
==>fined $val ? 'undef'          :
                      $val eq $DNE  ? "Does not exist" :
	              ref $val      ? "$val"           :
                                      "'$val'";
    }

    $out .= "$vars[0] = $vals[0]\n";
    $out .= "$vars[1] = $vals[1]\n";

    $out =~ s/^/    /msg;
    return $out;
}


sub _type {
    my $thing = shift;

    return '' if !ref $th <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	27324	27547	
==>"function",
                  "CODE" => 36,
                  "ARGS" => [
                              "pc"
                            ],
                  "BODY" => "#line 491 \"src/ops/core.ops\"\n    opcode_t * const th <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24493	24598	
==>ODY" => "#line 429 \"src/ops/core.ops\"\n  opcode_t *dest = {{^+1}};\n  PMC * const p = CONTEXT(interprete <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47048	47241	
==>AR(interpreter, PARROT_ALL_DEBUG_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47831	48024	
==>AR(interpreter, PARROT_ALL_DEBUG_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	430	544	
==>@@@@@@@@@@@@@@@@@@@

sub _handle_element_start {
  # ($self, $element_name, $attr_hash_r)
  my $fh = $_[0]{'output_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	429	543	
==>@@@@@@@@@@@@@@@@@@@

sub _handle_element_start {
  # ($self, $element_name, $attr_hash_r)
  my $fh = $_[0]{'output_ <==
2	/Users/nnunley/parrot/languages/converter.pl	1446	1559	
==>0] if defined $item[3][0];
 		}
		| terminal(?) '|' production mod(?)
#		{[@item]}
		{ $return = '';
		  $return . <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	17124	17260	
==>C
    push @stack, [-1, $l->[1], $l->[2]];
}
sub INPLACE_MODULO
{
    my ($n, $c, $cmt) = @_;
    inplace_word('mod', $cmt);
}
sub INPLAC <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	959	1103	
==>ANG; # JMG
        print LANG $lang_code; # JMG
        close LANG; # JMG

        Parrot::Test::run_command( 
            "$PConfig{perl} langua <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	871	1015	
==>ANG; # JMG
        print LANG $lang_code; # JMG
        close LANG; # JMG

        Parrot::Test::run_command( 
            "$PConfig{perl} langua <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253430	253790	
==>",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 295,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 726 \"src/ops/cm <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10452	10593	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE|PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT",
                  "N <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64041	64182	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE|PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT",
                  "N <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	11988	12101	
==>->_add_inst(''           ,'set',[$return,1]);
  $self->_add_inst("DONE_$label");
  return $return;
}

sub _op_or { <==
2	/Users/nnunley/parrot/config/gen/platform.pm	641	742	
==>se');
    my $platform = lc $OSNAME;

    $platform = "ansi"  if defined($conf->options->get('miniparr <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2095	2219	
==>>compile($compiler);
    $right = $right->compile($compiler);

    if ($cond eq 'unless') {
      $op = $compiler->invert_rel <==
2	/Users/nnunley/parrot/config/inter/make.pm	394	525	
==>tep::Base);

use Parrot::Configure::Step qw( :inter capture_output check_progs );

$util        = 'make';
$description = "Determinin <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	900	990	
==>not!" if defined $ident and not UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	928	1018	
==>not!" if defined $ident and not UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value: <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	25574	25731	
==>initial substring of $text that is delimited by
 # two (unescaped) instances of the first character in $delim.

	($extracted, $remainder) = extract_delimited( <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	2633	2741	
==>od_t)($args);\n";
    }

    return $defs;
}

=item C<vtbl_struct($vtable)>

Returns the C C<struct> definiti <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	532474	532713	
==>> "inline",
                  "CODE" => 615,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 877 \"src/ops/math.ops\"\n  {{ <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	53	189	
==>END_OF_HEADER";

# DO NOT EDIT.
# This file generated automatically by '$0'

END_OF_HEADER

my %macros;
$macros{DOMAIN_ERROR} = <<'END_OF <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937947	938159	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "join",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938836	939048	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "join",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	3259	3514	
==>c.in');
            cc_build();
            %hugeintval = eval cc_run();
            cc_clean();
        };

        # clear int8_t on error
        if ($@ || !exists $hugeintval{hugeintval}) {
            $conf->data->set(int8_t => undef);
            nex <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	12771	12927	
==>m = GET_NCI_S($reg_num);";
        return "PObj_bufstart(t_$temp_num)";
    };
    /B/ && do {
        push @{$temps_ref}, "STRING *t_$temp_num;";
        pu <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	2958	3076	
==>handler->end_element({ Name => 'arg' });
  }

  foreach my $content ($self->content) {
    $content->sax($handler);
  } <==
2	/Users/nnunley/parrot/languages/perms.pl	616	822	
==>>()) {
  print $i."\n"
    if length($i) >= 2;
}

__END__
    for my $i (@{ $things }) { 
      $prefix
      print join ('', @prefix, $i, "\n" )
        if @prefix > 0;
      deeper($stop, $things, @prefix, <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14626	14886	
==>restore ($car);

  my $cdr = $self->_generate(_get_arg($node,2));
  $self->_add_inst ('', 'set', [$return.'[1]', $cdr]);
  $self->_restore ($cdr);

  return $return;
}

sub _op_car {
  my ($self, $node) = @_;

  _num_arg ($node, 1, 'car');

  my $return = $self <==
2	/Users/nnunley/parrot/config/auto/jit.pm	688	809	
==>ns->get('miniparrot')) {
        $self->set_result('skipped');
        return $self;
    }

    my $verbose = $conf->optio <==
2	/Users/nnunley/parrot/config/gen/cpu.pm	600	721	
==>ns->get('miniparrot')) {
        $self->set_result('skipped');
        return $self;
    }

    my $verbose = $conf->optio <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	9084	9364	
==>1) {
            $balance++;
        } else { # $2
            $balance--;
            return substr($code, 0, pos, ""), $code
                if not $balance;
        }
    }
    die "Badly balanced" if $balance;
}


=head2 my ($pre, $class_name, $flags) = parse_flags(\$code);

E <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	22773	22917	
==>,

        "vtable"        => \$action{default},
        "dump"          => \$action{dump},
        "c|gen-c"       => \$action{gen_c},
        " <==
2	/Users/nnunley/parrot/config/inter/make.pm	1202	1328	
==>prog) {
        $conf->data->set($util => $prog);
        $self->set_result('yes');
    } else {
        $prog = check_progs([' <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	4409	4583	
==>lus/Makefile',
        commentType                  => '#',
        replace_slashes              => 1,
        conditioned_lines            => 1
    );
    genfile(
        'c <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28857	28964	
==>. '__'; }

sub issubrule { undef }
sub isterminal { 1 }
sub describe ($) { shift->{'description'} }

sub new <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30937	31044	
==>. '__'; }

sub issubrule { undef }
sub isterminal { 1 }
sub describe ($) { shift->{'description'} }

sub new <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	12144	12394	
==>\s+
        {{\@(\d)}}->vtable->
        (\w+)
        \(interpreter,
        \s*
        {{\@(\d)}},\s*{{\@(\d)}},\s*{{\@(\d)}}
        \);
        \s+{{\+=\d}}/xm) {
            $jit_func = "Parrot_jit_vtable_$1$3$4$5_op";
            $extern = vtab <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4590	4706	
==>te, compile, linklibs, or copy\n";
}

sub run {
    print join(" ", @_), "\n";

    return system(@_) == 0;
}

sub mo <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9859	9956	
==>a simple set of common test utility functions, and is
an implementation of the TAP protocol.

This <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	1142	1254	
==>e_ops_cg$(O): $(GENERAL_H_FILES) $(OPS_DIR)/core_ops_cg.c
$(OPS_DIR)/core_ops_cgp$(O): $(GENERAL_H_FILES) $(OPS_D <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686490	686809	
==>eter, {{\@3}}, {{\@2}});\n   {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687380	687699	
==>eter, {{\@3}}, {{\@2}});\n   {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059524	1059796	
==>JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_name",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060428	1060700	
==>JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_name",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	626	730	
==>~~~~~~~~~~~~~~~~~

sub _handle_element_start {
  # ($self, $element_name, $attr_hash_r)
  my $fh = $_[0]{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1948	2047	
==>ust the text content of the section,
such as "foo" for
C<< LZ<><Stuff/foo> >>, and "bar" for 
C<< LZ <==
2	/Users/nnunley/parrot/config/auto/pack.pm	705	873	
==>ngsize = $conf->data->get('longsize');
    my $ptrsize  = $conf->data->get('ptrsize');

    foreach ('intvalsize', 'opcode_t_size') {
        my $which = $_ eq 'intvalsi <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	6050	6204	
==>}
print "\n";

open (COPYOUT, ">&STDOUT") or die "Unable to copy STDOUT";
open (STDOUT, '>', File::Spec->devnull) or die "Unable to redirect STDOUT";
selec <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4646	4788	
==>debugging version of the driver,
#this file will be parsed from 'sub _Parse' up to '}#_Parse' inclusive.
#So, DO NOT remove comment at end of <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4412	4552	
==>debugging version of the driver,
#this file will be parsed from 'sub _Parse' up to '}#_Parse' inclusive.
#So, DO NOT remove comment at end of <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	52	160	
==>bol ('gensym');
use Carp ();

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

su <==
2	/Users/nnunley/parrot/lib/File/Which.pm	5219	5336	
==>ed in the shell to call the program (for
example, C<perl>).

If it finds an executable with the name you specified, C< <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	6216	6351	
==>y $item;
	foreach $item ( @_ ) { return 1 if $target eq $item; }
	return 0;
}

sub addcall($$)
{
	my ( $self, $subrule ) = @_;
	unless ( <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	1159	1257	
==>-body>

Emit an empty body in the dump. This may be useful for debugging.

=item C<--include=/path/ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	26000	26214	
==>$lookahead, $linenum
sub new ($$$$$$)
{
	my $class = ref($_[0]) || $_[0];
	my $pattern = $_[1];
	my $pat = $_[1];
	my $ldel = $_[2];
	my $rdel = $ldel;
	$rdel =~ tr/{[(</}])>/;

	my $mod = $_[3];

	my $desc;

	if ($ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	212186	212517	
==>src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_STRCMP) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	195453	195539	
==>src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_STRCMP) < <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	53781	53891	
==>s the value of this argument is 
automatically reset to 1 (under C<-w>, a warning is issued if the argument 
ha <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	2800	2919	
==>package = "core";
my $moddir  = "lib/Parrot/OpLib";
my $module  = "$moddir/core.pm";

my $file = shift @ARGV;
die "$0: C <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	220742	221090	
==>src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_STRCMP) > 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	229303	229635	
==>src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_STRCMP) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45045	45168	
==>my $COMMITMK		= '\G\s*<commit>';
my $UNCOMMITMK		= '\G\s*<uncommit>';
my $QUOTELIKEMK		= '\G\s*<perl_quotelike>';
my $CODEBL <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6417	6528	
==>_LOOP:
if i == 0 goto POST_BRANCH_switch_${CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0[i]
    ${ITEMP0} = ${NEXTP <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4355	4466	
==>_LOOP:
if i == 0 goto POST_BRANCH_switch_${CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0[i]
    ${ITEMP0} = ${NEXTP <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	8197	8331	
==>ex.h
calloc      stdlib.h
carg        complex.h
cargf       complex.h
cargl       complex.h
casin       complex.h
casinf      complex.h <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	25012	25124	
==>de any class specific init code from the .pmc file
    $cout .= <<"EOC";
        /* class_init */
    $class_init <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	40749	40952	
==>>code(@_[1..2]) . '
			$savetext = $text;
			$repcount++;
		  }
		  $text = $savetext;
		  pop @item if $backtrack;

		  ';
	}
	else
	{
		$code .= '
		  my $savetext = $text;
		  my $backtrack;
		  # MATC <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	2227	2333	
==>ing the possible targets of ret
    # opcodes
    while ($offset + sizeof('op') <= $length) {
	my ($src, $i <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	2420	2602	
==>die 'Failed to open ' . $self->path . ": $!";
    
    print $fh @_;
    
    $fh->close;
}

=item C<is_executable()>

This tells you whether the file is executable.

=cut

sub is_exe <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	177	360	
==>d: /parrot/config/gen/makefiles/dynclasses_pl.in 15833 2006-01-13T18:59:41.278052Z jonathan  $

=head1 NAME

tools/build/dynclasses.pl - Build script for dynamic PMCs

=head1 DESCRIPTI <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	60333	60452	
==>roduction",$line);
			$aftererror = 0;
		}
		elsif ($grammar =~ m/$LITERAL/gco)
		{
			($code = $1) =~ s/\\\\/\\/g;
			_ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	103	203	
==>06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Section::C - C source code documentati <==
2	/Users/nnunley/parrot/tools/dev/as2c.pl	903	1058	
==>\n";
	    }
	    my ($bytes, $src) = ($1, $2);
	    $src =~ s/\t/ /g;
	    my $len = length($bytes);
	    my @pairs = ($bytes =~ m/../g);
	    print "    ". <==
2	/Users/nnunley/parrot/config/init/optimize.pm	422	568	
==>s);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Configure::Step;

$description = 'Enabling optimization';

@args = qw(ver <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630583	630694	
==>, NULL, NO_CLASS,\n            \"Class '%Ss' not found\", readable_name(interpreter, class));\n    {{\@1}} = pmc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631573	631684	
==>, NULL, NO_CLASS,\n            \"Class '%Ss' not found\", readable_name(interpreter, class));\n    {{\@1}} = pmc <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	2371	2473	
==>iles indicates the 'languages/t/harness' wants a list of test files
        my $dir   = File::Spec->cat <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	475	654	
==>>data->set(libs => $libs);

    ################################################################
    # If we're going to be using ICU (or any other C++-compiled library) we
    # n <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	9325	9463	
==>/dollar/;
	s/\%$/int/;
	s/\&$/long/;
	s/\!$/single/;
	s/\#$/double/;
	return $_;
}
my %labdef;
sub label_defined {
	$labdef{$_[0]}++;
}

su <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	46770	46926	
==>o terminal newline on #$i: {$p->[$i]}, after {$p->[$i-1]} !?\n";
      }
      last; # we only want the next one
    }
  }

  return;
}


#@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	806	926	
==>=back

=cut

use Data::Dumper;
use Getopt::Long;
use lib qw( lib );
use Parrot::Config;

my %opt;

main();

=head1 FUNCTI <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	7621	7815	
==>cpuarch' => 'ppc',
             'jitosname' => 'DARWIN',
             'ld' => 'c++',
             'ld_debug' => '',
             'ld_load_flags' => '-bundle -undefined suppress',
             'ld <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	1247	1365	
==>.
    if ($osname =~ /darwin/) {
        if (-f "/sw/include/gmp.h") {
            $conf->data->add(' ', linkflags => ' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1286	1382	
==>tem $token->is_tag(I<somestring>) or $token->is_tagname(I<somestring>)

These are shortcuts for C <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1716	1812	
==>tem $token->is_tag(I<somestring>) or $token->is_tagname(I<somestring>)

These are shortcuts for C <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	58514	58694	
==>"Lua\lua51.yp"
{
            [
                @{ $_[1] },
                BuildParam( $_[0], $_[3] ),
            ];
        }
	],
	[#Rule 100
		 'parlist1', 1, undef
	], <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650647	650754	
==>preter->n_vtable_max)\n        {{\@1}} = 1;\n    else if ({{\@2}} >= enum_first_type && {{\@2}} < enum_last_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651569	651676	
==>preter->n_vtable_max)\n        {{\@1}} = 1;\n    else if ({{\@2}} >= enum_first_type && {{\@2}} < enum_last_ <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	7034	7196	
==>nomial coefficient
    .param pmc op1
    .param pmc op2
    $I1 = op1
    $I2 = op2
    $I3 = $I2 - $I1   

    $N1 = fact $I1
    $N2 = fact $I2
    $N3 = fact $ <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	14107	14349	
==>" =~ /return_data/ ?
                              qq{$ret_type_decl return_data;} :
                              q{};

    if (length $params) {
        my $proto = join ', ', map { $proto_type_ref->{$_} } split( '', $params );
        # Thi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	5948	6062	
==>e we return undef).

See also: get_symbol(), which searches only locally.

=cut

sub find_symbol
{
  my $self = shi <==
2	/Users/nnunley/parrot/config/auto/gc.pm	542	643	
==>c-trace>

Use the malloc in F<src/res_lea.c> with tracing enabled.

=back

=cut

package auto::gc;

us <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	1158	1289	
==>->pass1($_, $ctx) } @{ $t->{args} };
	my @pieces;
	foreach (@pre_pieces) {
	    if (ref $_ && $_->{name} eq 'seq') {
		push @pieces, <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7026	7139	
==>} : ();
	my $omode   = defined $options{fail} ? $options{fail} : '';
	my $bad     = ref($options{reject}) eq 'ARRA <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24028	24141	
==>} : ();
	my $omode   = defined $options{fail} ? $options{fail} : '';
	my $bad     = ref($options{reject}) eq 'ARRA <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11947	12047	
==>0]} (reverse @args));
			$pir_args = ",$pir_args" if $pir_args;
			$extern=$sym;
			$optype=optype_of <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	12357	12457	
==>0]} (reverse @args));
			$pir_args = ",$pir_args" if $pir_args;
			$extern=$sym;
			$optype=optype_of <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	12325	12478	
==>::scan::render { $_[0]->{args}->[0]->render() }

sub Regex::Ops::Tree::atend::needparen { 0 }
sub Regex::Ops::Tree::atend::render { '$' }

sub Regex::Ops: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146356	146452	
==>md_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_EQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167582	167678	
==>md_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_EQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83031	83418	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83936	84323	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYP <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	11333	11625	
==>upported) {
      $n = lc($enc);
      $n =~ tr[-_][]d;
      next unless $n eq $norm;
      $suggestion = "  (Maybe \"$e\" should be \"$enc\"?)";
      last;
    }
    my $encmodver = Pod::Simple::Transcode::->encmodver;
    $enc_error = join '' =>
      "This document probably does not appe <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	20449	20574	
==>lly
      $para->[1]{'~really'} ||= '=begin';
      $para->[1]{'~ignore'}   = (! $dont_ignore) || 0;
      $para->[1]{'~resolv <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4887	4976	
==>ULES', 'STATES', 'LEX', 'ERROR' };
	my($errstatus,$nberror,$token,$value,$stack,$check,$d <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4646	4734	
==>ULES', 'STATES', 'LEX', 'ERROR' };
	my($errstatus,$nberror,$token,$value,$stack,$check,$d <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1811	1904	
==>art_over_bullet  { ++$_[0]{'Indent'} }
sub start_over_number  { ++$_[0]{'Indent'} }
sub start_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1379	1472	
==>art_over_bullet  { ++$_[0]{'Indent'} }
sub start_over_number  { ++$_[0]{'Indent'} }
sub start_ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tests.pm	265	404	
==>head1 DESCRIPTION

A documentation section describing Parrot tests.

=head2 Class Methods

=over

=cut

package Parrot::Docs::Section::Tests <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	69	155	
==>rrot/lib/Parrot/OpTrans/CPrederef.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=he <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	745	840	
==>e executables directory. Defaults to '/usr/bin'.

=item C<libdir>

The library directory. Defaul <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	974	1069	
==>e executables directory. Defaults to '/usr/bin'.

=item C<libdir>

The library directory. Defaul <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24403	24553	
==>ine",
                  "CODE" => 32,
                  "ARGS" => [],
                  "BODY" => "#line 429 \"src/ops/core.ops\"\n  opcode_t *dest = { <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2092	2211	
==>_=_GLOBALS["$_"]\n};
		}
	}

	# Emit the code for the segment
	foreach(@{$code{$seg}->{code}}) {
		s/#RTJ// if $runtime_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106338	1106433	
==>ror,\n\t\t\"type number out of range\");\n    {{\@1}} = interpreter->vtables[typ]->class;\n    { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107314	1107409	
==>ror,\n\t\t\"type number out of range\");\n    {{\@1}} = interpreter->vtables[typ]->class;\n    { <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	78	195	
==>c/Library.pm 19602 2006-05-30T13:40:58.862833Z coke  $

=head1 NAME

Parrot::Pmc2c::Library - PMC to C Code Generation <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/EditorPlugins.pm	5	148	
==>yright (C) 2004, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Docs/Section/EditorPlugins.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=he <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	89	216	
==>ans/CPrederef.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::OpTrans::CPrederef - C Predereferenced Tran <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84842	85205	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85748	86111	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7561	7775	
==>e rule name '$lhs' ill formed: ".
                        "report it as a BUG.\n";
                $$dotpos = $1;
            };

            @sempar =       $$dotpos
                        ?   map { $$_[1] } <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7215	7423	
==>e rule name '$lhs' ill formed: ".
                        "report it as a BUG.\n";
                $$dotpos = $1;
            };

            @sempar =       $$dotpos
                        ?   map { $$_[1] } <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	52598	52718	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _dump_curr_open { # return a string representation of the stack
  my $curr_open = $ <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	6653	6793	
==>ev_func_name, $prev_def);

foreach my $op ($ops->ops) {
    my $func_name  = $op->func_name($trans);
    my $arg_types  = "$opsarraytype *, I <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	8753	8889	
==>e};
    $self->_new_lex($arg, "P$num");
    $num++
  }

  $temp = 'none';
  for (_get_args($node,2)) {
    $self->_restore ($temp);
    $ <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	375	468	
==>e::Step::Base);

use Parrot::Configure::Step ':gen';

$description = 'Generating runtime/parro <==
2	/Users/nnunley/parrot/config/auto/gdbm.pm	1556	1746	
==>e {
        eval { cc_build('', '-lgdbm'); };
    }
    my $has_gdbm = 0;
    if (!$@) {
        my $test = cc_run();
        unlink "gdbm_test_db";
        if ($test eq "gdbm is working.\n") <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157399	157649	
==>GS" => [
                              "sc",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}} <==
2	/Users/nnunley/parrot/Configure.pl	3683	3815	
==><--icuheaders=(header_dir)>

Location of ICU header files without the /unicode suffix.

E.g.

--icuheaders='/home/lt/icu/'

=back

Ot <==
2	/Users/nnunley/parrot/config/auto/aio.pm	359	571	
==>e Parrot::Configure::Step ':auto';

$description = 'Determining if your platform supports AIO';

@args = qw(verbose);

sub runstep
{
    my ($self, $conf) = (shift, shift);

    my $test;
    my $verbose = $conf-> <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2036	2140	
==>wxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/sprintf'\x%02X',ord($1)/eg;
  }
  return;
}

#@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647940	648351	
==>IRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 724,
                  "ARGS" => [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 229 \"src/ops/pmc.ops\"\n    {{\@1}} = pmc_type(interp <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2205	2299	
==>, $source);
    check_code_indents($file, $source);
    check_function_definitions($file, $sour <==
2	/Users/nnunley/parrot/config/gen/icu.pm	1539	1778	
==>& $icuconfig ne "none") {
            my $slash = $conf->data->get('slash');

            # icu-config script to use
            $icuconfig = "icu-config" if $icuconfig eq "1";

            # ldflags
            $icushared = capture_output( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1014095	1014298	
==>ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 71 \"src/ops/sys.ops\"\n  const char * const tmp = strerror(errno);\n  {{\@1}} = string_make( <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1272	1377	
==>ERSION => '',
			 YYRULES => 'ARRAY', YYSTATES => 'ARRAY', YYDEBUG => '');
#Mandatory parameters
my(@pa <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1229	1331	
==>ERSION => '',
			 YYRULES => 'ARRAY', YYSTATES => 'ARRAY', YYDEBUG => '');
#Mandatory parameters
my(@pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	27561	27688	
==>DE;\n    PMC * const signature = {{\@1}};\n    INTVAL argc;\n\n    /* for now just point to the opcode */\n    interpreter->curr <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18209	18349	
==>elect case h
case 99
	print "Wrong 3!"
case <5
	print "Ok!"
case <10   ' Fallthrough
	print "Ok (not!)"
end select
select case h
case 1
	prin <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	13703	13815	
==>tor,Float) # reshape
    .param pmc op1
    .param pmc op2

    # Convert the scalar into a vector and reshape it <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452059	452393	
==>io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 518,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 225 \"src/ops/math.ops <==
2	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1296	1385	
==>s/dev/mk_setup.pl for the Inno Setup Script Compiler.

[Setup]
AppName=parrot
AppVerName=p <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	13484	13586	
==>t be
made to pass before this test can pass (or before an implementation
could be started).  This is mo <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35015	35120	
==>::RecDescent::unexpected
				   = $Parse::RecDescent::lastunexpected;
			}
			last;
		}'.($::RD_NO_TRACE?' <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42125	42230	
==>::RecDescent::unexpected
				   = $Parse::RecDescent::lastunexpected;
			}
			last;
		}'.($::RD_NO_TRACE?' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	14537	14669	
==>top reading now stop
##
##                         HERE IT BECOMES REALLY SCARY
##
##  stop reading now stop reading now stop reading <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20411	20562	
==>ule->{name} . '})
						if defined $::RD_TRACE;'
					      unless $::RD_NO_TRACE;
	$code .=
'
		$_matched = 1;
		last;
	}

';
	return $code;
}

1;

pac <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407576	407831	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "connect",
                  "FLAGS" => ":base_network",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408474	408729	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "connect",
                  "FLAGS" => ":base_network",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	14705	14830	
==>ract_bracketed($total_body, '{');
        die "Empty MMD body near '$total_body'"
            if (!$body_part);
        $body_ <==
2	/Users/nnunley/parrot/tools/build/vtable_h.pl	383	517	
==>EE ALSO

=over 4

=item C<Parrot::Vtable>

=back

=cut

use lib 'lib';
use Parrot::Vtable;

my $vtable = parse_vtable();

open OUT, ">i <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5345	5531	
==>rn ("<rx_match>{\"$group\"} = [];");
}

sub output_setstart {
    my ($self, $group, $value) = @_;
    $DB::single = 1;
    $value = value($value);
    return qq!<rx_match>{"$group"}->[0] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8713	8806	
==>Y" => "#line 182 \"src/ops/core.ops\"\n    char * const label = string_to_cstring(interpreter, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9829	9922	
==>Y" => "#line 182 \"src/ops/core.ops\"\n    char * const label = string_to_cstring(interpreter, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550130	550237	
==>rpreter->current_cont = NEED_CONTINUATION;\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_fin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551431	551538	
==>rpreter->current_cont = NEED_CONTINUATION;\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_fin <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	15999	16162	
==>to Scalar
           my ($vector, $scalar, @order);
           if ($type1 eq 'APLVector') {
               $vector = "op1";
               $scalar = "op2";
			   @o <==
2	/Users/nnunley/parrot/config/gen/platform.pm	667	767	
==>c $OSNAME;

    $platform = "ansi"  if defined($conf->options->get('miniparrot'));
    $platform = "w <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	17202	17318	
==>:OpTrans> subclass) is supplied then
substitutions are made.

=cut

sub preamble
{
    my($self, $trans) = @_;

    l <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	2731	2865	
==>ectory, $silent);
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::Docs::Section::Info>

=item C<Parrot::Docs::Section::Docs>

=item <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	20676	20839	
==>super_mmds($meth, $right, $func);
            }
            push @mmds, [ $func, $left, $right, $meth_name ];
            foreach my $variant (@{ $self->{mmd_varian <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	4144	4548	
==>rg1'   => '.Lua' . ucfirst($type),
            );
            unless ( $type eq 'nil' ) {
                if ( $type eq 'string' ) {
                    my $str = q{};
                    for ( split //, $value ) {
                        if ( ord $_ < 32 ) {
                            $str .= sprintf( '\x%02x', ord $_ );
                        }
                        elsif ( ord $_ >= 128 <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7655	7901	
==>IC}:
PIR
}

sub post_call() {
    my $self = shift;
    my $pir = <<'PIR';
# See if we've got a return, in which case nothing to do.
if ${ARGCOUNT} == 0 goto POST_CALL_END_${CURIC}

# It's a call. Get details of method we're calling.
(${PTEMP0}, $ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48798	48921	
==>on of a repeated directive",
					       $line);
					_hint("Repeated directives cannot have
					       a maximum repetitio <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	9217	9340	
==>ail</i>
    );

    foreach my $source_file (sort keys %file_line_coverage) {

        print OUT qq(
            <hr noshade <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1016179	1016756	
==>UMP" => 0,
                  "NAME" => "time",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1135,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 93 \"src/ops/sys.ops\"\n  {{\@1}} = Parrot_intval_time();\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1016810	1017201	
==>UMP" => 0,
                  "NAME" => "time",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1136,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 108 \" <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5042	5145	
==>ail = $self->output_label_use($failLabel);
    my $pass = $self->output_label_use($passLabel);

    whil <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4717	4820	
==>ail = $self->output_label_use($failLabel);
    my $pass = $self->output_label_use($passLabel);

    whil <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	22649	22794	
==>is passed in entry to class_init.
    */
EOC
    }

    $cout .= <<"EOC";
    if (pass == 0) {
EOC
    $cout .= <<"EOC";
        /*
         * cre <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21543	21684	
==>BUG and print "Too much in the buffer.\n"),
     last if @to_unget > 25; # sanity
    
    my $pattern = '';
    if( #$to_unget[-1]->type eq ' <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	33548	33656	
==>=> \&_op_list_p,
  'list'     => \&_op_list,
  'length'   => \&_op_length,
  'append'   => \&_op_append,
  'r <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	22518	22677	
==>_ord
{
    my ($n, $c, $cmt) = @_;
    my $i = temp('I');
    my $p = pop @stack;
    pop @stack;	# functions
    my $s = temp('S');
    print <<EOC;
	$s = $p-> <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	13539	13640	
==>occomm
%s
 using %s v%s
 under Perl v%s at %s GMT}
{\author [see doc]}{\company [see doc]}{\operator [ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	405	500	
==>arg=$syms[CURR];
	feedme();
	feedme() while($syms[CURR] =~ /[(),]/);
	my $source=$syms[CURR];
	f <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	3858	4013	
==>nclude "pmc_$name.h"
EOC
    }
    "$cout\n";
}

=back

=head1 SEE ALSO

=over 4

=item F<tools/build/pmc2c.pl>

=back

=cut

# vim: expandtab shiftwidth=4: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	251079	251391	
==>ase_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 292,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#li <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8750	8920	
==>\u25cb"          # circle
    .param num op1
    .param num op2
    $I1 = op1
    if $I1 == 0 goto zero
    if $I1 == 1 goto one
    if $I1 == 2 goto two
    if $I1 == 3 g <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	620	737	
==>rict 'refs';

    *{"Parrot::Test::HQ9plus::$func"} = sub ($$;$) {
        my $self = shift;
        my ( $code, $outp <==
2	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	990	1107	
==>ug "Sending data to smokeserver \"$smokeserv\"... ";
  my $ua = LWP::UserAgent->new;
  $ua->agent("pugs-smokeserv-clie <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26178	26366	
==>xt,
        );
        push @opcodes, @{ $elseif->[1] };
        push @opcodes, new BranchOp( $parser,
            'result' => $l_end,
        );
        push @opcodes, new LabelOp( $ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	13973	14157	
==>ject;
            $diag = "$obj_name isn't a '$class' it's a '$ref'";
        }
    }
            
      

    my $ok;
    if( $diag ) {
        $ok = $Test->ok( 0, $name );
        $Te <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	1992	2139	
==>y blocks at the end
    s/\s*{.*//s for @funcs;

    # Toast anything non-whitespace
    @funcs = grep /\S/, @funcs;

    # If it's got a semicolon, <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	20090	20185	
==>the template thing

static void pcf_$funcname(Interp *interpreter, PMC *self) {
    $ret_type (* <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	9793	10050	
==>lastback) = @_;
    my ($R_back, @R_body) = $self->rewrite($R, $lastback);
    my @ops = (
               aop('check', [ $amount, $lastback ]),
               @R_body
              );
    return ($R_back, @ops);
}

sub _translate_classpieces {
    my ($piece <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8782	8873	
==>g_to_cstring(interpreter, {{\@1}});\n    struct PackFile_FixupEntry *fe = PackFile_find_fixu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9898	9989	
==>g_to_cstring(interpreter, {{\@1}});\n    struct PackFile_FixupEntry *fe = PackFile_find_fixu <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	10629	10966	
==>ike',
        pir_output_is      => 'is_eq',
        pir_output_isnt    => 'isnt_eq',
        pir_output_like    => 'like',
                          );

    foreach my $func ( keys %parrot_test_map ) {
        push @EXPORT, $func;
        no strict 'refs';

        *{$package.'::'.$func} = sub {
            local $SIG{__WARN__} = \&rep <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	14433	14594	
==>t that level.  The main point being that one cannot
        # just cast pointers and expect things to magically align.  Instead
        # of trying to: (int*)&som <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826727	826988	
==>\n  {{\@1}} = UVal_num(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827797	828058	
==>\n  {{\@1}} = UVal_num(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7762	7870	
==>ub type_of_ident
{
  my $self = shift; # Required: Jako::Construct::Block
  my $name = shift; # Required: str <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	2316	2541	
==>vel++;
                }
            }
            push @output, [ 1, $line ];
            if ( $line =~ $block_end ) {
                push @output, [ 1, q{} ];
            }
        }
    }
    # Badly formatted pir might en <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569299	569413	
==>ct.ops\"\n  {{\@1}} = {{\@2}}->vtable->isa(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570192	570306	
==>ct.ops\"\n  {{\@1}} = {{\@2}}->vtable->isa(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7638	7818	
==>rx_stack>, $reg";
}

sub output_save {
    my ($self, $reg) = @_;
    $reg = value($reg);
    return ("save $reg");
}

sub output_restore {
    my ($self, $reg) = @_;
    $reg = val <==
2	/Users/nnunley/parrot/config/auto/headers.pm	437	545	
==>';

@args = qw(miniparrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get(' <==
2	/Users/nnunley/parrot/lib/Test/More.pm	6557	6697	
==>(Mnemonic:  "This is ok.")

$test_name is a very short description of the test that will be printed
out.  It makes it very easy to find a tes <==
2	/Users/nnunley/parrot/config/auto/gdbm.pm	1143	1266	
==>->add(' ', linkflags => '-L/sw/lib');
            $conf->data->add(' ', dflags    => '-L/sw/lib');
            $conf->data-> <==
2	/Users/nnunley/parrot/tools/dev/cc_flags.pl	1728	1841	
==>" - remove it
  splice @ARGV, $where, 1;
  $inject_point = $where;
} else {
  $inject_point = 1;
}

foreach my $op <==
2	/Users/nnunley/parrot/config/gen/platform.pm	5355	5599	
==>/*
** $_:
*/
#line 1 "$_"
END_HERE
            print PLATFORM_C <IN_C>, "\n\n";
            close IN_C;
        }
    }

    close PLATFORM_C;

    if ($conf->data->get('platform_asm')) {
        my $asm_file = "config/gen/platform/$platform/asm <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	98690	98879	
==>CODE" => 122,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 96 \"src/ops/bit.ops\"\n  {{\@1}}->vtable->i_b <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	21721	21833	
==>]->{'code'}\n";
        $pir .= "    if cur_ic < 0x$r2[0]->{'code'} goto INS_BRANCH_$prefix$r1[$#r1]->{'code'}\n" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	37377	37548	
==>eating $para_type paragraph as such because stack is empty.\n";
        } else {
          my @fors = grep $_->[0] eq '=for', @$curr_open;
          DEBUG > 1 and print "Co <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	29712	29831	
==>=head2 A note about prefixes

Prefix patterns are matched without any trailing modifiers (C</gimsox> etc.)
This can bite <==
2	/Users/nnunley/parrot/tools/docs/pod_errors.pl	475	607	
==>gnore = shift || '^(icu)$';

foreach my $file ($dir->files(1, $ignore))
{
	next unless $file->contains_pod;
	next unless $file->num_p <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4451	4563	
==>/\$push_num/$push_num/g;
		$push_num++;
	}

	# Return generated code.
	return $pir;
}

sub post_op($$) {
	# Nothi <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2867	2979	
==>/\$push_num/$push_num/g;
		$push_num++;
	}

	# Return generated code.
	return $pir;
}

sub post_op($$) {
	# Nothi <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5095	5237	
==>shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  ";
        if ( exists $op->{result} and scalar( @{ $o <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6127	6269	
==>shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  ";
        if ( exists $op->{result} and scalar( @{ $o <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	309	412	
==>return Parrot::Test::per_test( '.pir_out', $count );
}

sub get_test_prog {
    my $self = shift;
    my <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	42746	42937	
==>code} = '';

  for my $row(@$colref) {
    my $label;
    $label = $row->[0]; $label .= ":" if $label;
    $self->{code} .= $label . ' ' x ($max_len[0]-length($label)+2);
    if(defined $row-> <==
2	/Users/nnunley/parrot/lib/Test/More.pm	4802	4971	
==>while( $idx <= $#_ ) {
        my $item = $_[$idx];

        if( $item eq 'import' ) {
            push @imports, @{$_[$idx+1]};
            $idx++;
        }
        els <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	9619	9787	
==>R];
		feedme();
		feedme();
	}
	if ($syms[CURR] eq "using") {
		print "WARNING: PRINT USING not yet supported\n";
		feedme();	# "####"
		feedme();	# ;
	}
	while(1) {
		i <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15265	15371	
==>\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # r <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16446	16552	
==>\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # r <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	8555	8671	
==>coverage{$source_file} %" : "n/a" ]}</a></td>
             <td>[<a href="function_summary.html#$source_file">function <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503011	503256	
==>e",
                  "CODE" => 578,
                  "ARGS" => [
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 626 \"src/ops/math.ops\"\n  {{\@1}} *= {{\@ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	37375	37478	
==>head1 COPYRIGHT

Copyright 2001, 2002, 2004 by Michael G Schwern E<lt>schwern@pobox.comE<gt>.

This prog <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	6335	6438	
==>head1 COPYRIGHT

Copyright 2001, 2002, 2004 by Michael G Schwern E<lt>schwern@pobox.comE<gt>.

This prog <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	47360	47622	
==>}
	],
	[#Rule 16
		 'stat', 5,
sub
#line 116 "Lua\lua51.yp"
{
            BuildRepeat( $_[0], $_[3], $_[5] );
        }
	],
	[#Rule 17
		 '@4-4', 0,
sub
#line 120 "Lua\lua51.yp"
{
            PushScope( $_[0] );
        }
	],
	[#Rule 18
		 'sta <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5742	5840	
==>SSEMBLY}, ${ARG0})

# If there is a return type, need to supply a ${DEST0}.
${ITEMP0} = ${PTEMP1}[" <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	8801	8976	
==>_store_arg(interpreter, st);
}

static void
set_nci_N(Interp *interpreter, struct call_state *st, FLOATVAL val)
{
    Parrot_init_ret_nci(interpreter, st, "N");
    UVal_num(st <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85534	85641	
==>er,\n      interpreter->iglobals, IGLOBALS_COMPREG_HASH);\n  {{\@1}} = VTABLE_get_pmc_keyed_str(interpreter, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86441	86548	
==>er,\n      interpreter->iglobals, IGLOBALS_COMPREG_HASH);\n  {{\@1}} = VTABLE_get_pmc_keyed_str(interpreter, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32360	32518	
==>ng the assimilation of next para

          } elsif($item_type eq 'text') {
            # Hm, it's not numeric.  Correct for this.
            $para->[1]{'numb <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561785	561875	
==>\"src/ops/object.ops\"\n  opcode_t *next = {{^+4}};\n  {{\@1}} = VTABLE_find_method(interpr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562869	562959	
==>\"src/ops/object.ops\"\n  opcode_t *next = {{^+4}};\n  {{\@1}} = VTABLE_find_method(interpr <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	21934	22089	
==>r $_ (@stack) {
	print "# STACK $_->[0] $_->[1] $_->[2]\n";
    }
}


sub ret_val {
    my $a = shift;
    my %rets = (
	'id'       => 'I',
    );
    retur <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2376	2487	
==>_num/g;
		$register_num++;
	}

	# Do code for each push.
	$pir .= "\${ITEMP0} = 0\n";
	for (1..$pushes) {
		$pir <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1728	1839	
==>_num/g;
		$register_num++;
	}

	# Do code for each push.
	$pir .= "\${ITEMP0} = 0\n";
	for (1..$pushes) {
		$pir <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934052	934160	
==>ops/string.ops\"\n  {{\@1}} = string_downcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934827	934935	
==>ops/string.ops\"\n  {{\@1}} = string_downcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	132	224	
==>routines here...

This is currently alarmingly similar to the generated subs in Parrot::Test. <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	230	322	
==>routines here...

This is currently alarmingly similar to the generated subs in Parrot::Test. <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	20550	20707	
==>multi_match' => [ $_[2]->{min}, $_[2]->{max}, FALSE, $_[1] ]); }
	],
	[#Rule 21
		 '@1-1', 0,
sub
#line 132 "lib/Regex/Grammar.y"
{ ++$::paren }
	],
	[#Rule 2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	536124	536581	
==>math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 620,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 943 \"src/ops/math.ops\"\n  {{\@1}} = ((FLOATVAL)1) / cosh((FLOATVAL){{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11712	11807	
==>n)>

Resolves the POD link. Perl modules are converted to paths.

=cut

sub resolve_pod_page_lin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907098	907379	
==>" => 1022,
                  "ARGS" => [
                              "s",
                              "p",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 262 \"src/ops/string.ops\"\n  {{\@1 <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	6237	6423	
==>me'}\n";
            }
        }

        # pop
        elsif (/^pop$/) {
            if ($rule->{$_} =~ /^\d+$/) {
                if ($has_pop) {
                    die "Duplicate valu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434183	434481	
==>ine",
                  "CODE" => 498,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "n"
                            ],
                  "BODY" => "#line 89 \"src/ops/math.ops\"\ <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	4832	4955	
==>GS};
}

=item C<arg_dir($index)>

Returns the direction of the op's argument at C<$index>.

=cut

sub arg_dir
{
    my $self <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10426	10522	
==>{STEMP1} = ${PTEMP3}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STE <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7810	7906	
==>{STEMP1} = ${PTEMP3}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STE <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38569	38725	
==>UNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 178,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'v <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	14929	15029	
==>o we will implement the Test::More function is_deeply.
The plan currently is to implement this as a m <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	13884	14012	
==>one" href="<tmpl_var name=link>" title="Full smoke report">&raquo;</a></td>
          </tr>
          <tr class="details" id="det <==
2	/Users/nnunley/parrot/languages/scheme/Scheme.pm	955	1070	
==>link->{functions};
    }

    # XXX: Move Generator::_format_columns to own class
    Scheme::Generator::_format_col <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	29989	30211	
==>e <H1> tag is on the current line, since
. normally doesn't match newlines.

To overcome this limitation, you need to turn on /s matching within
the prefix pattern, using the C<(?s)> directive: '(?s).*?(?=<H1>)'


=head2 C< <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6589	6744	
==>pir code
    $pirCode .= qq(
            match = rulesub(target)

            unless match goto match_fail
          match_success:
            print "match <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	7563	7718	
==>ct CLASS_NAME => { ELEMENT_NAME => ELEMENT_TYPE, ... };

    package Myobj;
    use Class::Struct;
            # declare struct with four types of elements: <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37457	37775	
==>arams>.

=cut

sub signature
{
    my ($self, $params) = @_;

    my $n=1;
    my @types = grep {$n++ & 1 ? $_ : 0} split / /, $params;
    @types = map { $self->trans($_) } @types;
    return join '', @types;
}

=item C<gen_ret($type)>

Generate the C code for a C<return> statement.

=cut

sub gen_ret
{
    my ($self <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566099	566596	
==>n",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 647,
                  "ARGS" => [
                              "i",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#li <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	186	280	
==>er;
require Parrot::Test;

@EXPORT = ( qw(output_is output_like output_isnt), @Test::More::EXPO <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	103	197	
==>er;
require Parrot::Test;

@EXPORT = ( qw(output_is output_like output_isnt), @Test::More::EXPO <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8173	8350	
==>dim y(10)
i=10
tloop:
	y(i)=i
	i=i-1
	print i
	if i then goto tloop
print y(5)


' Column alignment
print "Hello";tab$(15);"World"
print "Foo";tab$(15);"Stuff"
print "I am the ve <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	9128	9246	
==>hort if ($omode eq 'PARA' || $omode eq 'MAX');
			_failmsg "Found invalid nested tag: $1", pos $$textref;
			goto faile <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835810	836006	
==>ter, {{\@1}}), STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836563	836759	
==>ter, {{\@1}}), STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	318	420	
==>dev/gen_charset_tables.pl 19607 2006-05-30T15:23:20.183054Z coke  $' =~ /^\$[iI][dD]:\s(.*)\$$/;
my $fi <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	2688	2781	
==>d class's C<runstep()> method.

Accepts a list and returns a L<Parrot::Configure> object.

=cu <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	621	751	
==>Docs::POD2HTML;

my $UNDEFINED = 'Undefined';

# These are the Parrot file types excluding the ICU specifc ones.

my %type_for_suff <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621602	621713	
==>pred, \n\t\t    _reg_base, (void**)cur_opcode);\n\t}\n        else\n            n = 2;\n\tccont = ctx->current_c <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3367	3475	
==>y($self)=shift;

    keys %{$self->{STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
}

sub YYLexer {
    my($s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3197	3299	
==>y($self)=shift;

    keys %{$self->{STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
}

sub YYLexer {
    my($s <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	44055	44164	
==>ext, an array of 11 elements is returned. The elements are:

=over 4

=item [0]

the extracted quotelike subst <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	19455	19559	
==>age = string_concat(interpreter, signature, ns, 0);

#if defined(CAN_BUILD_CALL_FRAMES)
    ns = string_m <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	2673	2770	
==>$fh, "> config/N2PConfig.pm" or die "Unable to open config/N2PConfig.pm\n";
	print $fh $config_pm <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	816752	816972	
==>reter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clears",
                  "FLAGS" => ":base_core", <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	25058	25233	
==>t event.\n";

      $self->_handle_element_end( $scratch = 'Document' );
      next; # Hasta la byebye
    }


    # ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	672	843	
==>_->{'total'}; } @results;
my $percent = int(($done / $total) * 100);
print "SUMMARY                                           ";
print $done . (' ' x (10 - length($done) <==
2	/Users/nnunley/parrot/config/init/optimize.pm	1613	1776	
==>et(optimize => $optimize);
        }
    } else {
        $self->set_result('no');
        print "(none requested) " if $conf->options->get('verbose');
    }

    r <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	2697	2822	
==>name_without_suffix
{
    my $self = shift;
    my $name = $self->name;
    
    $name =~ s/\.[^\.]*$//o;
    
    return $nam <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221714	221846	
==>(mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_NUMCMP) > 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	17293	17565	
==>$mods{none}/gc
		}

		my $endpos = pos($$textref);
		return (
			$startpos,	$oppos-$startpos,	# PREFIX
			$oppos,		0,			# NO OPERATOR
			$oppos,		1,			# LEFT DEL
			$oppos+1,	$rd1pos-$oppos-1,	# STR/PAT
			$rd1pos,	1,			# RIGHT DEL
			$modpos,	0,			# NO 2ND LDEL
			$modpos <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779299	779832	
==>base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 880,
                  "ARGS" => [
                              "p",
                              "kic",
                              "nc"
                            ],
                  "BODY" => "#line 382 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1941	2043	
==>mal_arg_name) = @{$formal_args[$i]};
    my $actual_arg_type;

    if (UNIVERSAL::isa($args[$i], 'Jako: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1641	1743	
==>mal_arg_name) = @{$formal_args[$i]};
    my $actual_arg_type;

    if (UNIVERSAL::isa($args[$i], 'Jako: <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8796	8922	
==>s
if ${ITEMP0} > 0 goto POST_STORE_${CURIC}_LAZY_MOVE

# No lazy move available - need to refer to register.
${STEMP0} = "$"
${ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822405	822500	
==>TACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_int(entry->entry);\n  {{+=3}};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823473	823568	
==>TACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_int(entry->entry);\n  {{+=3}};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	1306	1488	
==>tance Methods

=over 4

=item C<name()>

Returns the name of the group.

=cut

sub name
{
	my $self = shift;
	
	return $self->{NAME};
}

=item C<html_link()>

Groups have no HTML link <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	2358	2473	
==>{defined} @contents);
}

=item C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shift;
    
    retu <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	1060	1164	
==>he function-based (slow or fast core) run loop.

=item C<CGoto>

Create the C<goto> run loop.

=item C<CG <==
2	/Users/nnunley/parrot/lib/Test/More.pm	29900	30079	
==>";
            }

            my $type = _type($e1);
            $type = 'DIFFERENT' unless _type($e2) eq $type;

            if( $type eq 'DIFFERENT' ) {
                push @Dat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400083	400417	
==>=> "function",
                  "CODE" => 463,
                  "ARGS" => [
                              "p",
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(inte <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	4566	4735	
==>t try to catch glaring errors.  A real parser is probably
# overkill for this task.  For now we just check the first line of a function,
# and assume that more likely tha <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1356	1471	
==>b output_terminate {
    return "";
}

sub output_advance {
    my ($self, $distance, $failLabel) = @_;
    $failLab <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1105	1220	
==>b output_terminate {
    return "";
}

sub output_advance {
    my ($self, $distance, $failLabel) = @_;
    $failLab <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	51678	51863	
==>x $ender_length);
      } else {
        $x = $code . "<$x>";
      }
    }
    DEBUG > 1 and print "Unterminated $x sequence\n";
    $self->whine($start_line,
      "Unterminated $x seq <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	18219	18345	
==>k to $_[0][0]\n";
    $treelet = $_[0][0];
    splice @$treelet, 0, 2;  # lop the top off
    return $treelet;
  } else {
    $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	33249	33541	
==>BELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set_addr",
                  "FLAGS" => "",
                  "ARGDI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	34037	34329	
==>BELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set_addr",
                  "FLAGS" => "",
                  "ARGDI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286367	286615	
==>RGS" => [
                              "i",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 913 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	32215	32327	
==>p_identifier_symbol {
}

sub _op_generate_identifier {
}

sub _op_construct_identifier {
}

#-------------------- <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	3148	3301	
==>w;
sub new {
    my($class) = shift;
    $Test ||= $class->create;
    return $Test;
}


=item B<create>

  my $Test = Test::Builder->create;

Ok, so ther <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846110	846362	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846905	847157	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14846	14996	
==>'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 69,
			'functioncall' => 31,
			'function' => 26,
			'table <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	9379	9622	
==>s/\#$/double/;
	return $_;
}
my %labdef;
sub label_defined {
	$labdef{$_[0]}++;
}

sub check_branches {
	foreach(keys %labels) {
		print "Label $_ not defined\n" unless exists $labdef{$_};
	}
}
sub create_label {
	unless (exists $labels{$syms[C <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	52582	52744	
==>}
			elsif ($grammar =~ m/(?=$SCOREMK)/gco
				and do { ($code) = extract_codeblock($grammar,'{',undef,'<');
					  $code })
			{
				_parse("a score marker", $aft <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	16309	16458	
==>/^\s*(\d+)\.?\s*$/s and $1 ne '1';
  # Else fall thru to the general case:
  return $self->_get_item_type($para);
}



sub _get_item_type {       # mu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710744	710841	
==>PIO_puts(interpreter, io, \" \");\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  PIO_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711578	711675	
==>PIO_puts(interpreter, io, \" \");\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  PIO_ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	1259	1449	
==>error key pen play strig timer gosub goto com
				option base out open
			paint palette pcopy pen play poke preset print using
				pset put
			random randomize read redim rem reset restore re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	486178	486742	
==>:base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 556,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 478 \"src/ops/math.ops\"\n  {{\@1}} = ceil( {{\@1}} );\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29328	29451	
==>rpreter->current_params = this;\n    ctx = CONTEXT(interpreter->ctx);\n    ccont = ctx->current_cont;\n\n    caller_ctx = ct <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30418	30567	
==>=> 85,
			'OR' => 84,
			"]" => 150,
			">" => 86
		}
	},
	{#State 98
		ACTIONS => {
			"," => 151,
			")" => 152
		}
	},
	{#State 99
		D <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	8252	8456	
==>int', [ '<tmp>', 'group start' ]),
                        aop('setstart', [ $group, '<tmp>' ] ),
                        aop('goto', [ $lastback ] ),
               $back => aop('setend', [ $group, -2 ]), <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2450	2689	
==>e stack.
	for (1..$pushes) {
		$pir .= <<'PIR';
${INS} = concat "push s, "
${INS} = concat ${DEST$push_num}
${INS} = concat "\n"
PIR
		$pir =~ s/\$push_num/$_ - 1/ge;
	}

	# Return it.
	return $pir;
}

# Pre and post branch operation hooks. <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	106	236	
==>1.111564Z bernhard  $

=head1 NAME

Parrot::Docs::File - Docs-Related File

=head1 SYNOPSIS

	use Parrot::Docs::File;
	my $file = P <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3305	3472	
==>of
the type of files which have this suffix.

=cut

sub type_for_suffix
{
	my $self = shift;
	my $suffix = shift;
	
	return $type_for_suffix{$suffix} if exists $type_fo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	27958	28208	
==>ELATIVE",
                  "NAME" => "get_results",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	1400	1613	
==>tart pointer's not set and a DOD run is
   triggered. The pointer *will* be set by the interpreter if the
   interpreter calls code which calls these functions, so most
   extension code is safe, no problem.

   Th <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	8071	8267	
==>("jmp *4(%ebp)");	/* jump to ret addr, used by JIT */
# endif
#endif
    _reg_base = (char*)interpreter->ctx.bp.regs_i;
    goto *((void *)*cur_opcode);

END_C
} elsif ($suffix =~ /cg/) {
    print <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	1263	1446	
==>r, $asm, $precompiled);

my %templates;

my @jit_funcs;
my $func_end;
my ( $normal_op, $cpcf_op, $restart_op );
my %argmaps;
my $jit_cpu;

if ($genfile =~ /jit_cpu.c/) {
    $jit_cpu = <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	18691	18891	
==>ub minor_version
{
    my $self = shift;

    $self->{VERSION} =~ m/^\d+\.(\d+)\./;

    return $1;
}

=item C<patch_version()>

Returns the patch version number.

=cut

sub patch_version
{
    my $sel <==
2	/Users/nnunley/parrot/languages/dotnet/tools/benchmark.pl	59	192	
==>('Stack', 'Register', 'OptRegister') {
	print "With SRM $srm\n";
	`nmake clean`;
	`perl Configure.pl --monolib=..\\..\\dlls --srm=$ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6129	6225	
==>red: (TODO: domain)

  confess "No block!"  unless defined $self and ref $self and $self->isa("Ja <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	4209	4367	
==>> 'define',
             'i_fp' => undef,
             'i_fp_class' => undef,
             'i_gdbm' => undef,
             'i_grp' => 'define',
             'i <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	13444	13588	
==>Unknown EXIT type source line $sourceline";
	}
}



$selectcounter=0;
sub parse_select {
	die "Expected 'case'" if ($syms[NEXT] ne "case");
	feed <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811903	812272	
==>S" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 916,
                  "ARGS" => [
                              "p",
                              "p", <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19260	19390	
==>f->get(3)->is_open_paren
    ) {
      my $block = $self->current_block();
      my $left = Jako::Construct::Expression::Value::Ide <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	6254	6522	
==>Test::num_of_tests_run~' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') {
            $context = $todo;
        }
        else {
            $context =  "TODO" ~ ($todo.isa('Str') ?? " $todo" !! '');
            if ( $cond ) {
                $Test <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	11025	11153	
==>g =head1
      if( $token->is_start and $token->tagname eq 'head1' ) {
        DEBUG and print "  Found head1.  Seeking content.. <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	15709	15814	
==>ine $line) $complaint\n because no_errata_section is on.\n";
  } else {
    DEBUG > 9 and print "Queuing e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447924	448222	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	448750	449048	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
2	/Users/nnunley/parrot/tools/docs/pod_errors.pl	539	639	
==>gnore))
{
	next unless $file->contains_pod;
	next unless $file->num_pod_errors;
	
	my $errors = $file <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32540	32682	
==>tion must use one of \${STACK0} or \${STOREREG} in rule " .
				"$rule->{'name'}\n";
		}

        # Insert typeinfo code if we have any. Note t <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	10214	10318	
==>roak( "Unknown " . ((1 == keys %options) ? "option: " : "options: ")
    . join " ", map "[$_]", sort key <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	513	711	
==>te_ARRAY'],
  ['',             'print', 'P5'],
  ['',             'branch', 'write_RET'],
  ['write_ARRAY',  'print', '"("'],
  ['write_NEXT',   'set', 'P6', 'P5'],
  ['',             'set', 'P5', 'P <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7064	7274	
==>ing should be 
            # back even with the opening brace.
            my $indent = "  " x (@stack-1);
            if ($1 ne $indent) {
                error($file, $line, "Improper indenting for \"$_\"\n(sh <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3724	3819	
==>return $type_for_name{$name} if exists $type_for_name{$name};
	
	return $UNDEFINED;
}

=back

=h <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2433	2549	
==>@@@@@@@@@@@@@@@@@@@@
1;

__END__

=head1 NAME

Pod::Simple::XMLOutStream -- turn Pod into XML

=head1 SYNOPSIS

  per <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	67789	67970	
==>_go_collect(interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	486	610	
==>';

@args = qw(verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    m <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	27396	27534	
==>_tagged
# but pre-compiled and optimized for a specific pair of tags, and consequently
# much faster (i.e. 3 times faster). It uses qr// fo <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14538	14646	
==>(@to_unget);
  
  if(DEBUG) {
    if(defined $title) { print "  Returing title <$title>\n" }
    else { print <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	23103	23211	
==>(@to_unget);
  
  if(DEBUG) {
    if(defined $title) { print "  Returing title <$title>\n" }
    else { print <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	3507	3618	
==>thing other than a LineCounter\n"
                unless $self =~ /Parse::RecDescent::LineCounter/;
	
	my $parse <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	63856	63960	
==>ct" list
(and the failure mode was not "MAX" or "PARA").

=item C<Found unbalanced nested tag: %s>

C<ext <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	3636	3862	
==>(.*) \[(.*)\]/) {
            $variable = $1;
            my $variable_scope = $2;
            if ($variable_scope eq "Local") {
                $variable_visible{$file}{$1}++;
            } else {
                $variable_vis <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	8888	9027	
==>w_min -= $kid->minlen();

            $kid = $self->add_checks($kid, $kid_guarantee, $kid_follow_min);

            if (defined($kid->maxlen <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	3995	4114	
==>ing() get'   );
    ok( $btaste->NumExplodingSheep == 1,        'NumExplodingSheep() get' );

It will produce output lik <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33947	34066	
==>') {
        my $type = $method->{type};
        $ret_def = "$type ret_val;";
        $func_ret = $self->gen_ret($method <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38909	39028	
==>') {
        my $type = $method->{type};
        $ret_def = "$type ret_val;";
        $func_ret = $self->gen_ret($method <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	9658	9760	
==>erate(_get_arg($node,3));
  $self->_morph($return,$false);
  $self->_restore($false);

  $self->_add_in <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	108	200	
==>c.pl 19607 2006-05-30T15:23:20.183054Z coke  $

=head1 NAME

tools/build/pbc2c.pl - Parrot by <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	3838	3965	
==>omparison of output
with the unexpected result is false.

=item C<pir_2_pasm_is($code, $expected, $description)>

Compile the Pa <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	18785	18901	
==>_too} ?
        'VTABLE_HAS_CONST_TOO' : $self->{flags}{is_const} ?
	  'VTABLE_IS_CONST_FLAG' : 0;
    if (exists $se <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31384	31513	
==>var1     = ${$vars}[0];
    my $nil      = BuildLiteral( $parser, 'nil', 'nil' );
    push @opcodes1, @{ $nil->[1] };

    for <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704690	704890	
==>"i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1656	1799	
==>symbtab_cst};
    $parser->YYData->{symbtab_cst} = new SymbTabConst($parser);
    unshift @{ $parser->YYData->{scopef} }, $parser->YYData->{sc <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	16828	17022	
==>p, $cmt) = @_;
    my $r = pop @stack;
    my $l = pop @stack;
    print <<"EOC";
	$l->[1] $op= $r->[1] $cmt
EOC
    push @stack, [-1, $l->[1], $l->[2]];
}
sub inplace_word
{
    my ($op, $cmt) = <==
2	/Users/nnunley/parrot/tools/dev/pbc_header.pl	1653	1801	
==>= qw( wordsize byteorder major minor
	    intvalsize floattype );
	print "$f\n";
	for my $i (0..5) {
	    my $c = substr $header, $i, 1;
	    $c = un <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10326	10435	
==>e error token

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Shift \$error token and go to state ".
#DB <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9861	9966	
==>e error token

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Shift \$error token and go to state ".
#DB <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1331	1491	
==>lue, '"';
      }
    }
  }
  print $fh ">";
  return;
}

sub _handle_text {
  DEBUG and print "== \"$_[1]\"\n";
  if(length $_[1]) {
    my $text = $_[1];
    _ <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	238	362	
==>(
	Null => 1,
	Env => 2,
	Key => 3,
	Random => 4,
	UnManagedStruct => 5,
	ManagedStruct => 6,
	delegate => 7,
	CSub => 8,
	Co <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7655	7809	
==>} and @$paras and $paras->[-1][0] eq '~Verbatim') {
          DEBUG > 1 and print "Resuming verbatim para at line ${$self}{'line_count'}\n";
          push <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5819	5943	
==>alue; # close group $group!;
    return @ops;
}

sub output_getstart {
    my ($self, $reg, $group) = @_;
    $reg = value($r <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6182	6305	
==>alue # close group $group!;
    return @ops;
}

sub output_getstart {
    my ($self, $reg, $group) = @_;
    $reg = value($r <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	14115	14255	
==>end 
    $S1 = substr $S0, $I0, 1
    push result, $S1
    inc $I0
    goto loop
  loop_end:
    .return(result)
.end

.sub unicode:"monadic: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	923631	923718	
==>rc/ops/string.ops\"\n  {{\@1}} = string_make_empty(interpreter, enum_stringrep_one, 0);\ <==
2	/Users/nnunley/parrot/config/init/miniparrot.pm	234	337	
==>ttings to match miniparrot (ANSI C Parrot)'s needs.  This step
primarily  overwrites a lot of settings i <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	703	806	
==>s in, which qq[] treats as escape sequences.
# Config stuff
our $CC = qq[/usr/bin/gcc-4.0 -c];
our $LD = <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	707	810	
==>s in, which qq[] treats as escape sequences.
# Config stuff
our $CC = qq[/usr/bin/gcc-4.0 -c];
our $LD = <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	4309	4449	
==>== 0) {
            # Nothing left, so the original alternation disappears
            return $opt;
        }

        # Something left: opt( <==
2	/Users/nnunley/parrot/config/auto/gdbm.pm	127	221	
==>head1 NAME

config/auto/gdbm.pm - Test for GNU dbm (gdbm) library

=head1 DESCRIPTION

Determin <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6598	6716	
==>t_mod;
    }

    return 0;
}

sub generate_dump {
    my ($pmc) = @_;

    if (needs_build("$pmc.dump", "$pmc.pmc")) { <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6809	6927	
==>t_mod;
    }

    return 0;
}

sub generate_dump {
    my ($pmc) = @_;

    if (needs_build("$pmc.dump", "$pmc.pmc")) { <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	18762	19011	
==>Perl Cookbook", Recipe 13.12 for rationale).

    Corrected behaviour of accessors for '*@' and '*%' struct
    elements.  Package now implements documented behaviour when
    returning a reference to an entire hash or array element.
    Previously t <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	799	931	
==>pected result.
The parameter C<$description> should describe the test.

Any optional parameters can follow.  For example, to mark a t <==
2	/Users/nnunley/parrot/lib/Test/More.pm	20871	20969	
==>re failing because there's a bug in your
program, or for which you don't yet have code written.  Fo <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	40007	40193	
==>name, '"' if $section_name;

        if(@ell_content) {
          $link_text->[-1] .= ' in ' if $section_name;
          push @$link_text, @ell_content;
        }
      }


      # And th <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	3425	3624	
==>le',
        commentType                     => '#',
        replace_slashes                 => 1,
        conditioned_lines               => 1
    );
    genfile(
        'languages/bc/config/makefil <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	17564	17816	
==>-35
	},
	{#State 65
		DEFAULT => -23
	},
	{#State 66
		ACTIONS => {
			'NUM' => 40,
			">" => 71
		},
		GOTOS => {
			'number' => 70
		}
	},
	{#State 67
		ACTIONS => {
			'NUM' => 57,
			">" => 72
		}
	},
	{#State 68
		DEFAULT => -41
	},
	{#State 69
		D <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	3083	3296	
==>s()>

Returns the directories which contain C header files.

Currently only F<include/parrot>.

=cut

sub c_header_file_directories
{
    my $self = shift;
    
    return
        $self->directory_with_relative_pat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031461	1031571	
==>@2}} < enum_first_type || {{\@2}} >= enum_last_type)\n        {{\@1}} = -1;\n    else\n        {{\@1}} = data_t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032330	1032440	
==>@2}} < enum_first_type || {{\@2}} >= enum_last_type)\n        {{\@1}} = -1;\n    else\n        {{\@1}} = data_t <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	350	467	
==>1] }

1;

__END__

=head1 NAME

Pod::Simple::PullParserTextToken -- text-tokens from Pod::Simple::PullParser

=head1 S <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409819	410090	
==>ction",
                  "CODE" => 473,
                  "ARGS" => [
                              "i",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 545 \"src/ops/io.ops\"\n    STR <==
2	/Users/nnunley/parrot/config/inter/make.pm	1181	1313	
==>es.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $self->set_result('yes');
    } else {
        $prog = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1430	1540	
==>l '$name'...");

  my $sym = $self->block->find_symbol($name);

  unless ($sym) {
#    $self->block->dump_symbo <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	5	105	
==>lse.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subje <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	7581	7747	
==>_two = new .Iterator, op2
loop_two:
    unless iter_two goto loop_two_end
    item_two = shift iter_two 
    iter_one = new .Iterator, op1
    pos_one = 0 # parrot's 0 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17440	17583	
==>n) {
        DEBUG > 1 and print "Ignoring ignorable =for\n";
        next;
      }

      for(my $i = 2; $i < @$para; ++$i) {
        if($para- <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	11573	11713	
==>ern\n";
        }
        # *) $R = $X->vtable->{vtable}(interp, $Y, $Z)
        elsif ($opbody =~ /
        ^(?:.*\.ops")\s+
        {{\@(\d <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6670	6817	
==>ess match goto match_fail
          match_success:
            print "matched"
            goto match_end
          match_fail:
            print "f <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7687	7834	
==>ess match goto match_fail
          match_success:
            print "matched"
            goto match_end
          match_fail:
            print "f <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6802	6916	
==>pre_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If we need a destination, we simply sup <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4740	4854	
==>pre_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If we need a destination, we simply sup <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64691	64797	
==>{{\@1}});\n  Interp_flags_SET(new_interp, PARROT_EXTERN_CODE_FLAG);\n  new_interp->code = interpreter->code <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65642	65748	
==>{{\@1}});\n  Interp_flags_SET(new_interp, PARROT_EXTERN_CODE_FLAG);\n  new_interp->code = interpreter->code <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5328	5492	
==>eq '');
    }

    return Regex::Ops::Tree::order_startset(\%start);
}

sub dfa_safe {
    my $op = shift;
    foreach (@{ $op->{args} }) {
        return 0 unless $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133854	133964	
==>\"\n  string_bitwise_xor(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134635	134745	
==>\"\n  string_bitwise_xor(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1742	1944	
==>et($offset)>

An offset expression is always an offset from C<start_code>, because
the C<ret> instruction may be in a different runops core. C<ret> will
always treat saved addresses as relative to C<star <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	4007	4144	
==>: look to see if $lines[-1] is =encoding, and if so,
        # do horribly magic things

      }
      
      if(DEBUG > 8) {
        prin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910628	911093	
==>AGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1026,
                  "ARGS" => [
                              "i",
                              "s",
                              "sc"
                            ],
                  "BODY" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403070	403612	
==>e_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 466,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 52 <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	1476	1612	
==>source <source files..>\n";
}

while (<DATA>) {
    next if /^\s*#/; chomp;
    my ($symbol, $file) = /(\S+)\s+(\S+)/;
    $ansi_c89_symb <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	28821	28927	
==>without it
printing any test output, for example, when current_test() is changed.
In these cases, Test::Bui <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2704	2814	
==>f)=shift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHECK} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2582	2683	
==>f)=shift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHECK} <==
2	/Users/nnunley/parrot/lib/Test/More.pm	5889	6002	
==>just gravy.

All of the following print "ok" or "not ok" depending on if the test
succeeded or failed.  They all a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682065	682300	
==>5,
                  "ARGS" => [
                              "n",
                              "p"
                            ],
                  "BODY" => "#line 512 \"src/ops/pmc.ops\"\n    {{\@1}} = {{\@2}}->vtable->shift_float( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980492	980904	
==>"i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1100,
                  "ARGS" => [
                              "i",
                              "ic",
                              "sc",
                              "ic",
                              "i"
                            ],
                  "BODY" => <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	12214	12379	
==>_get_args($node)) {
    my $temp = $self->_generate($_);
    $self->_add_inst(''         ,'eq' ,[$temp,1,"DONE_$label"]);
    $self->_restore($temp);
  }
  $self->_ad <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76495	76609	
==>int($)
{
	return 0 unless defined $::RD_HINT;
	$errortext = "$_[0])";
	$errorprefix = "(Hint";
	$errortext =~ s/\s+ <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	14731	14870	
==>nts a time (seconds and
microseconds), and C<rusage> has two elements, each of which is of
type C<timeval>.

    use Class::Struct;

    str <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	2216	2332	
==>if ( exists $contents{'contents'} )
    {
        push @contents, @{$contents{'contents'}};
    }
    
    return $se <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8372	8506	
==>R, ">&OLDERR" or die "Can't restore  stderr" if $err;

    if ($verbose) {
        foreach ($out, $err) {
            if (   (defined($ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168538	168651	
==>integer(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169480	169593	
==>integer(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	17389	17484	
==>FFSET\((.*)\)/{{+=$1}}/mg;
        #s/goto\s+NEXT\(\)/{{+=$op_size}}/mg;	#not supported--depende <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223622	223737	
==>integer(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224564	224679	
==>integer(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	19300	19397	
==>ailable (like a 
net connection) or a module isn't available.  In these cases it's
necessary to sk <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653293	653395	
==>ine 292 \"src/ops/pmc.ops\"\n    opcode_t * resume = {{^+4}};\n    {{\@1}} = {{\@2}}->vtable->find_meth <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654454	654556	
==>ine 292 \"src/ops/pmc.ops\"\n    opcode_t * resume = {{^+4}};\n    {{\@1}} = {{\@2}}->vtable->find_meth <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	13462	13597	
==>e tree yet
        $MATCH{$key} = $val;
    }
}
END

    push @ops, $code;

    push @ops, <<'END';
}
# END EMBEDDED CODE
END

    retur <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	16929	17060	
==>n object (which will be of a subclass of
L<Pod::Simple::PullParserToken>), or undef if the parser-stream has hit
the end of the docu <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	36131	36237	
==>$self;
	($max, $min) = ( $min, $max) if ($max<$min);

	my $desc;
	if ($subrule=~/\A_alternation_\d+_of_prod <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2546	2658	
==>e block at the top of the block stack. We fill in the
  # IDENT entry within the block.
  #

  $sym = Jako::Symbo <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2293	2405	
==>e block at the top of the block stack. We fill in the
  # IDENT entry within the block.
  #

  $sym = Jako::Symbo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	97336	97529	
==>,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 86 \"src/ops/bit.ops\"\n  {{\@1}} = ~ {{\@1}};\n  {{+=2}};\n", <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12998	13493	
==>ion' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 11
		ACTIONS => {
			":" => 51,
			"{" => 38,
			'STRING' => 44,
			"(" => 48,
			"[" => 47,
			"." => 49
		},
		DEFAULT => -44,
		GOTOS => {
			'tableconstructor' => 46,
			'args' => 52,
			'key' => 53
		}
	},
	{#State 12
		DEFAULT => -26,
		GOTOS => {
			'@8-1' => 54
		}
	},
	{#State 13
		ACTIONS => {
			"," => 55,
			"=" => 56
		}
	},
	{#State 14
		DEFAULT => -4, <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	31630	31770	
==>data}->{code}}, qq{\t\$P1["$line"]= $counter\n};
		}
		foreach (@{$ld->{data}}) {
			my($t,$v)=($_->{type}, $_->{value});
			push @{$code{_da <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104078	1104166	
==>nterpreter, NULL, NO_CLASS,\n\t\t\t\t\"Class '%Ss' not found\", class);\n\t{{\@1}} = pmc_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105293	1105381	
==>nterpreter, NULL, NO_CLASS,\n\t\t\t\t\"Class '%Ss' not found\", class);\n\t{{\@1}} = pmc_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8778	8869	
==>tring_to_cstring(interpreter, {{\@1}});\n    struct PackFile_FixupEntry *fe = PackFile_find_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9894	9985	
==>tring_to_cstring(interpreter, {{\@1}});\n    struct PackFile_FixupEntry *fe = PackFile_find_ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	29708	29834	
==>h (1..$n) {
	my $thing = $stack[-$n];
	push @stack, $thing;
    print <<EOC;
	$cmt
EOC
    }
}

sub ROT_THREE
{
    my ($n, $c, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	619624	619709	
==>VERFLOW_FLAG)) {\n\t\treal_exception(interpreter, NULL, ERR_OVERFLOW,\n\t\t\t\"Integer <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	1140	1231	
==>rent destination path:

    source_path <whitespace> [package]meta1,meta2,... <whitespace> d <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	580	724	
==>tin_ops = (
    abs => 'o',
    isinstance => 's',
    ord => 's',
);

my %builtins = (
    AssertionError => 1,
    bool => 1,
    complex => 1, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	123	319	
==>_[1];
  } elsif(@_ == 3) {
    ($variable, $value) = @_[1,2];
    
    ($variable, $value) = ($value, $variable)
       if     defined $value    and ref($value)    eq 'SCALAR'
      and not(defined <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	2629	2755	
==>r_method->{'unimplemented'})) {
            # Do nothing.

        # Have we got a non-blank line when we've got no method spec <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	12677	12822	
==>->[1]{'start_line'},
        sprintf "Couldn't do %s: %s",
          $self->{'encoding_command_reqs'  }[-1],
          $self->{'encoding_command_s <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	35493	35592	
==>y, call post_branch and append code it generates.
		my $post_branch = $srm->post_branch($rule->{'pop <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	12224	12481	
==>options);
  }
}


1;

__END__

###############################################################################
###############################################################################

=head1 VERSION

$Id: /parrot/languages/jako/lib/Jako/Construct/Blo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629450	629630	
==>s);\n    if (!type) {\n\tParrot_autoload_class(interpreter, class);\n        type = pmc_type(interpreter, class);\n    }\n    if (type <= 0)\n        real_exception(interpreter, NUL <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10288	10380	
==>-----------------------
sub unaccept_code { shift->unaccept_codes(@_) }

sub unaccept_codes { <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr3.pm	384	595	
==>my ( $count, $options ) = @_;

    my $lang_fn = Parrot::Test::per_test( '.bc', $count );
    my $pir_fn  = Parrot::Test::per_test( '_antlr3.pir', $count );

    return ( "java Bc languages/${lang_fn} languages/$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11585	11825	
==>inline",
                  "CODE" => 15,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 206 \"src/ops/core.ops\"\n  stack_push(interpreter, &CONTEXT(interpre <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	70216	70344	
==>~ m/$ATMOST/gco
	  || $grammar =~ m/$BETWEEN/gco && do { $min=$2; 1 }
	  || $grammar =~ m/$ATLEAST/gco && do { $min=$2; 1 }
	  || <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104086	1104182	
==>er, NULL, NO_CLASS,\n\t\t\t\t\"Class '%Ss' not found\", class);\n\t{{\@1}} = pmc_new_init(interpr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105301	1105397	
==>er, NULL, NO_CLASS,\n\t\t\t\t\"Class '%Ss' not found\", class);\n\t{{\@1}} = pmc_new_init(interpr <==
2	/Users/nnunley/parrot/lib/Test/More.pm	20012	20165	
==>est way to illustrate:

    SKIP: {
        eval { require HTML::Lint };

        skip "HTML::Lint not installed", 2 if $@;

        my $lint = new HTML:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573437	573811	
==>s",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 655,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	10909	11037	
==>$
	my ($textref, $pre) = @_;
	my $startpos = pos($$textref) = pos($$textref)||0;
	unless ($$textref =~ m/\G($pre)/gc)
	{
		_failm <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26101	26256	
==>1,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 133,
			'functioncall' => 31,
			'function' => 26,
			'ta <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	46658	46876	
==>rminal newline on #$i: {$p->[$i]}, after {$p->[$i-1]}\n";
      } else {
        DEBUG > 5 and print
         "No terminal newline on #$i: {$p->[$i]}, after {$p->[$i-1]} !?\n";
      }
      last; # we only want the nex <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6482	6690	
==>q '_MASTER';

        $pirCode .= qq(
            store_global name, rulesub\n\n);
    }

    # End of the pir code
    $pirCode .= qq(
            match = rulesub(target)

            unless match goto match_ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	15026	15197	
==>$method);
            my $sub_meth_decl_h = $self->decl($classname, $method, 1);
            $sub_meth_decl =~ /(\w+)\(/;
            my $sub_meth_name = $1;
            my <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	388	480	
==>means. It is the Perl equivalent of the C<op_info_t> C
C<struct> defined in F<include/parrot/ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	18576	18757	
==>iling and TODO.  Similar
to

    print "not ok $tnum # TODO $why\n";

=cut

sub todo_skip {
    my($self, $why) = @_;
    $why ||= '';

    unless( $self->{Have_Plan} ) {
        req <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	36	134	
==>ation.
# $Id: /parrot/config/init/hints/mswin32.pm 19593 2006-05-30T02:28:15.110975Z coke  $

packa <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	619	731	
==>dir = dirname $self->{parrot};

    my $args = $ENV{TEST_PROG_ARGS} || '';

    $lang_f = File::Spec->rel2abs($la <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	656	768	
==>dir = dirname $self->{parrot};

    my $args = $ENV{TEST_PROG_ARGS} || '';

    $lang_f = File::Spec->rel2abs($la <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	34203	34320	
==>y $s = $self->{Expected_Tests} == 1 ? '' : 's';
            $self->diag(<<"FAIL");
Looks like you planned $self->{Expe <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	34539	34656	
==>y $s = $self->{Expected_Tests} == 1 ? '' : 's';
            $self->diag(<<"FAIL");
Looks like you planned $self->{Expe <==
2	/Users/nnunley/parrot/languages/regex/regex.pl	1919	2022	
==>), "\n" foreach (@$trees);
    exit;
} elsif ($operation eq 'dump') {
    print $_->dump_tree(), "\n" fo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25673	25929	
==>' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "returncc",
                  "FLAGS" => "",
                  "ARGDIRS" => [],
                  "TYPE" => "inline", <==
2	/Users/nnunley/parrot/examples/benchmarks/arriter.pl	6	98	
==>l -w
# Copyright (C) 2001-2006, The Perl Foundation.
# $Id: /parrot/examples/benchmarks/arrit <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	769	876	
==>sion, $warns, $ccwarn);
    $ccwarn = $conf->data->get('ccwarn');

    # Set gccversion to undef.  This will <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666563	666856	
==>nline",
                  "CODE" => 745,
                  "ARGS" => [
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 372 \"src/ops/pmc.ops\"\n  {{\@1}} = VTABLE_elements(interpreter, {{\@2}});\n  {{+=3}};\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1814	1927	
==>r}\n",
 'VerbatimFormatted'  => "\n{\\pard\\li#rtfindent##rtfkeep#\\plain\\s20\\sa180\\f1\\fs18\\lang1024\\noproof <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	182	310	
==>guages/jako/lib/Jako/Construct/Declaration/Constant.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warning <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	7278	7412	
==>'memory'),
            $self->c_source_item('', 'malloc'),
            $self->c_source_item('', 'malloc-trace'),
            $self->c_i <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	32963	33116	
==>he string:

	"if ('./cmd' =~ m/$UNIXCMD/s) { $cmd = $1; }"
	
then after the deletion it would contain:

	"if ('.$UNIXCMD/s) { $cmd = $1; }"

not:

	"if (' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	20632	20782	
==>ing note to ", $dont_ignore ? 'not ' : '',
        "ignore contents of this region\n";
      DEBUG > 1 and $dont_ignore and print " Making note to trea <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	532170	532545	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exp",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 615,
                  "ARGS" => <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	4626	4721	
==>em C<c_output_like($code, $expected, $description)>

Compiles and runs the C code, passing the t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763512	763932	
==>setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 862,
                  "ARGS" => [
                              "ic",
                              "n"
                            ],
                  "BODY" <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	69036	69158	
==>ERRORS or $isimplicit or !$::RD_CHECK)
	{
		$self->_check_grammar();
	}

	unless ($ERRORS or $isimplicit or $Parse::RecDesc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519517	519788	
==>RGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 739 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765218	765659	
==>setn_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 864,
                  "ARGS" => [
                              "ic",
                              "nc"
                            ],
                  "BODY" => "#line 320 \"src <==
2	/Users/nnunley/parrot/lib/Test/More.pm	7487	7680	
==>foo isn't empty
    isnt( $foo, '',     "Got some foo" );

are similar to these:

    ok( ultimate_answer() eq 42,        "Meaning of Life" );
    ok( $foo ne '',     "Got some foo" );

(Mnemoni <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2146	2240	
==>->value);
      $self->SYNTAX_ERROR("Undefined identifier '%s'.", $args[$i]->value) unless $arg <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1846	1940	
==>->value);
      $self->SYNTAX_ERROR("Undefined identifier '%s'.", $args[$i]->value) unless $arg <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	1680	1815	
==>>']       =  <<"END_PIR"            # greater than
    $I100 = isgt %1, %2
    %1 = $I100
END_PIR

    $P0['dyadic:=']       =  <<"END_P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87458	87746	
==>ke_cb(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88460	88748	
==>ke_cb(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	17432	17622	
==>ART:

    # Goto next handler.
    goto EH_LOOP
END_EH_LOOP:
PIRCODE

    # Return generated code.
    return $pir;
}


# Generate the dispatch table.
# ############################
sub gener <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	42295	42447	
==>>" => 86
		}
	},
	{#State 183
		ACTIONS => {
			'END' => 194
		}
	},
	{#State 184
		DEFAULT => -29
	},
	{#State 185
		ACTIONS => {
			"-" => <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	11765	11872	
==>ngth($2)
        or pos($line_group) != length($line_group);
       # I.e., unless it's a zero-length "empty <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	9403	9544	
==>}
sub dfa_safe { 0 }
sub hasback { 1 }
sub startset { undef }

# Embedded code is truly unpredictable. Although there will probably
# be pragm <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	31559	31728	
==>ran!');
}

=item B<_whoa>

  _whoa($check, $description);

A sanity check, similar to assert().  If the $check is true, something
has gone horribly wrong.  It will die wi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614165	614332	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "classoffset",
                  "FLAG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615315	615482	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "classoffset",
                  "FLAG <==
2	/Users/nnunley/parrot/config/gen/icu.pm	99	260	
==>2:28:15.110975Z coke  $

=head1 NAME

config/gen/icu.pm - ICU

=head1 DESCRIPTION

Configures ICU and add appropriate targets to the Makefile.

=cut

package gen: <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	1020	1157	
==>public headers but not defined in the Parrot lib.

Either the API listing is wrong or the implementation is missing.

=item No Parrotish P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561224	561527	
==>ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "fetchmethod",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562307	562610	
==>ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "fetchmethod",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	14564	14789	
==>{ $expr->[1] }, new AssignOp( $parser,
                    'result' => $result,
                    'arg1'   => $nil->[0],
                );
                push @{$exprs}, [ $result, [] ];
                push @{ $callo <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11179	11279	
==>E<gt> sequences

=head1 SYNOPSIS

  use Pod::Escapes qw(e2char);
  ...la la la, parsing POD, la la la <==
2	/Users/nnunley/parrot/languages/perms.pl	597	726	
==>while (my $i = $it->()) {
  print $i."\n"
    if length($i) >= 2;
}

__END__
    for my $i (@{ $things }) { 
      $prefix
      p <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	40299	40402	
==>The elements are:

=over 4

=item [0]

the extracted tagged substring (including the outermost tags),

= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79278	79384	
==>"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      /* At th <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80799	80905	
==>"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      /* At th <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	343	470	
==>d;

my ($DIS, @dis, @source, $file, %opt, $DEFVAR, $cur_func, $lambda_count,
   %main_names, %namespace, %may_be_none);
$DIS = ' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2390	2494	
==>DumpAsXML -- turn Pod into XML

=head1 SYNOPSIS

  perl -MPod::Simple::DumpAsXML -e \
   "exit Pod::Simpl <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	12917	13105	
==>pe third
	number as integer
	start as second
end type
dim y as third
t=y.start.narf+3
print y.start.narf
print t

' Deep-copy of structures, 34 (NOT 99)
type first
	foo as integer
	bar as s <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3619	3711	
==>URIC}_LAZY_MOVE_$register_num:
${STACK$register_num} = pop lazy_moves

# Decrement stack heig <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5389	5481	
==>URIC}_LAZY_MOVE_$register_num:
${STACK$register_num} = pop lazy_moves

# Decrement stack heig <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	7385	7477	
==>eds_build("$group$LOAD_EXT", @sources)) {
        run(partial_link_cmd("$group$LOAD_EXT", $li <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7596	7688	
==>eds_build("$group$LOAD_EXT", @sources)) {
        run(partial_link_cmd("$group$LOAD_EXT", $li <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	26432	26607	
==>e for the PMC. C<$out_name> is the name
of the output file we are generating.

=cut

sub gen_c {
    my ($self, $out_name) = @_;

    my $cout = dont_edit($self->{file});
    i <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4874	4984	
==>ot1);
		return(<<CODE, $result);
	# FIXME
	eq $a1, $ot1, TRUE_${eqnum}
	set $result, 0.0
	branch NOT_${eqnum}
T <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6102	6199	
==>R';
if 0x${CURIC} == 0x45 goto POST_BRANCH_switch_${CURIC}
${ITEMP0} = ${NEXTPC} + I_arg_0 # XXX C <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4040	4137	
==>R';
if 0x${CURIC} == 0x45 goto POST_BRANCH_switch_${CURIC}
${ITEMP0} = ${NEXTPC} + I_arg_0 # XXX C <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15496	15595	
==>s $return =~ /^P/;
  my $value = $self->_generate (_get_arg($node,2));
  $self->_add_inst ('', 'set' <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15854	15953	
==>s $return =~ /^P/;
  my $value = $self->_generate (_get_arg($node,2));
  $self->_add_inst ('', 'set' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895680	896121	
==>i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1011,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic",
                              "ic",
                              "sc"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073361	1073706	
==>> ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1196 <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8659	8748	
==>4f7af,/* 10 */
FF,$c,$d,$a,$b,$_[14],17,0xffff5bb1,/* 11 */
FF,$b,$c,$d,$a,$_[15],22,0x895 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465176	465452	
==>( {
                  "JUMP" => 0,
                  "NAME" => "dec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465797	466073	
==>( {
                  "JUMP" => 0,
                  "NAME" => "dec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44187	44369	
==>S" => [
                              "ic"
                            ],
                  "BODY" => "#line 732 \"src/ops/core.ops\"\n  Parrot_push_mark(interpreter, {{\@1}});\n  {{+ <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	11329	11465	
==>\(interpreter,
        \s*
        {{\@(\d)}},\s*{{\@(\d)}}
        \);
        \s+{{\+=\d}}/xm) {
            $jit_func = "Parrot_jit_vt <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	11776	11912	
==>\(interpreter,
        \s*
        {{\@(\d)}},\s*{{\@(\d)}}
        \);
        \s+{{\+=\d}}/xm) {
            $jit_func = "Parrot_jit_vt <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075546	1075892	
==>> ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1197, <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	28988	29116	
==>nexact_exact {
}

sub _op_number_string {
}

sub _op_string_number {
}

sub _op_char_p {
}

sub _op_char_eq_p {
}

sub _op_char_l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905204	905371	
==>",
                              "i"
                            ],
                  "BODY" => "#line 262 \"src/ops/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84125	84618	
==>,
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 105,
                  "ARGS" => [
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line 1201 \"src/ops/core.ops\"\n  PMC * const compreg_hash = VTABLE_get_pmc_keyed_int <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	15719	15828	
==>p>', 'branch marker' ]);

    for my $i (0..$#args-1) {
        push @ops, aop('eq', [ '<tmp>', $i, $ibacks[$i <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	14076	14180	
==>d to test does not fit into one of the standard
testing functions. In that case, you can use the rather b <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	4750	4876	
==>, 240,
 'ntilde'   , 241,
 'ograve'   , 242,
 'oacute'   , 243,
 'ocirc'    , 244,
 'otilde'   , 245,
 'ouml'     , 246,
 'divi <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34178	34290	
==>= $self->line_directive($line, "sharedref.c");
    return <<EOC;
$l
$decl {
    $ret_def
    LOCK_PMC(interpreter <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	11278	11406	
==>emp_num = (short)GET_NCI_I($reg_num);";
        return "t_$temp_num";
    };
    /c/ && do {
        push @{$temps_ref}, "char t_ <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	175	331	
==>*.pir'));
my @a = map {my $a = $_; $a =~ s{.*/(.*)[.]pir}{$1}; $a} (@commands);

# Check each of these builtins to see if they are just a stub, and skippable <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	3247	3475	
==>f => "set_nci_N(interpreter, &st, return_data);",
       d => "set_nci_N(interpreter, &st, return_data);",
       N => "set_nci_N(interpreter, &st, return_data);",
       P => "set_nci_P(interpreter, &st, return_data);",
       S <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4758	4861	
==>he C code prior to the run core function.

=cut

sub run_core_func_start
{
    return <<END_C;
#if defin <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3046	3149	
==>he C code prior to the run core function.

=cut

sub run_core_func_start
{
    return <<END_C;
#if defin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019842	1019933	
==>har resultbuffer[26];\n  Parrot_localtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020773	1020864	
==>har resultbuffer[26];\n  Parrot_localtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035624	1035723	
==>ult = VTABLE_get_pmc_keyed_str(interpreter, lex_pad, lex_name);\n    if (!result) {\n\treal_exceptio <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036788	1036887	
==>ult = VTABLE_get_pmc_keyed_str(interpreter, lex_pad, lex_name);\n    if (!result) {\n\treal_exceptio <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	6157	6522	
==>e_slashes                 => 1
    );
    genfile(
        'config/gen/makefiles/pheme.in' => 'languages/pheme/Makefile',
        commentType                     => '#',
        replace_slashes                 => 1
    );
    genfile(
        'config/gen/makefiles/punie.in' => 'languages/punie/Makefile',
        commentType                     => '#',
        repl <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39236	39442	
==>, $minrep, $maxrep, $leftarg, $op, $rightarg) = @_;

	bless 
	{
		"type"      => "${type}op",
		"leftarg"   => $leftarg,
		"op"        => $op,
		"min"       => $minrep,
		"max"       => $maxrep,
		"rightarg" <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11267	11389	
==>ckup
END

    return @ops;
}

sub output_rule_end {
    my ($self, $name) = @_;
    return ("end", ".end # End of rule $nam <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111007	111286	
==>YPE" => "inline",
                  "CODE" => 138,
                  "ARGS" => [
                              "s",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 187 \"src/ops/bit.ops\"\n  {{ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10966	11093	
==>ap sprintf('%%%02X',$_), unpack 'C*', $1/eg;
        $it =~ s/([^\._abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ01234567 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4317	4442	
==>ap sprintf('%%%02X',$_), unpack 'C*', $1/eg;
      $it =~ s/([^\._abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ01234567 <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	6431	6537	
==>ict;
use warnings;

use Cwd;
use Data::Dumper;
use File::Spec;
use Parrot::Config;

require Exporter;
requi <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4684	4898	
==>ift;
    my $name = shift;
    
    return -d File::Spec->catdir($self->path, $name);
}

=item C<files($recursive, $ignore)>

This gives you an array of C<Parrot::IO::File> instances.

Set C<$recursive> to true if y <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	12752	12866	
==>undef only matches undef and nothing else
        my $test = defined $got || defined $dont_expect;

        $self-> <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	13196	13310	
==>undef only matches undef and nothing else
        my $test = defined $got || defined $dont_expect;

        $self-> <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	2018	2170	
==>) = @_;

    my $lex_num = shift @{ $parser->YYData->{scopef} };
    $parser->YYData->{lex_num} = $lex_num;
    my $scope = shift @{ $parser->YYData- <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1836	2023	
==>h my $x (@_) {
    $x =~ s/([^\x00-\xFF])/sprintf'\x{%X}',ord($1)/eg;
    # Escape things very cautiously:
    $x =~ s/([^-\n\t \&\<\>\'!\#\%\(\)\*\+,\.\/\:\;=\?\~\[\]\^_\`\{\|\}abcdefghij <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629615	629717	
==>interpreter, NULL, NO_CLASS,\n            \"Class '%Ss' not found\", class);\n  {{\@1}} = pmc_new(inter <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2981	3074	
==>t_type, 'Jako::Construct::Type::String');
  $self->SYNTAX_ERROR("Can't do arithmetic on string <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	3101	3194	
==>t_type, 'Jako::Construct::Type::String');
  $self->SYNTAX_ERROR("Can't do arithmetic on string <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	21650	21783	
==>ne 155 "lib/Regex/Grammar.y"
{ return { min => $_[2], max => $_[2] }; }
	],
	[#Rule 32
		 'range', 5,
sub
#line 157 "lib/Regex/Grammar <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	839	927	
==>erpreter->code->base.data))
#define CUR_OPCODE cur_opcode
#define IREG(i) REG_INT(cur_opc <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	955	1043	
==>erpreter->code->base.data))
#define CUR_OPCODE cur_opcode
#define IREG(i) REG_INT(cur_opc <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15270	15383	
==>\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # return a sing <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16451	16564	
==>\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # return a sing <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	29661	29792	
==>P_TOPX
{
    my ($n, $c, $cmt) = @_;
    foreach (1..$n) {
	my $thing = $stack[-$n];
	push @stack, $thing;
    print <<EOC;
	$cmt
EO <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	3024	3179	
==>iag = q{};
            my $test_prog = join( ' && ', @test_prog );
            if ( $exit_code ) {
                $diag .= "'$test_prog' failed with exit c <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	602	786	
==>ptions->{with_past} ?
                    Parrot::Test::per_test( '_antlr2.pir', $count )
                    :
                    Parrot::Test::per_test( '_antlr2_no_past.pir', $count <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	18690	18812	
==>p('rule' => [ 'default', $_[1], 1 + $::paren ]);
     $::paren = 0; # FIXME!
     return $op;
   }
	],
	[#Rule 5
		 'regex' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319960	320056	
==>BODY" => "#line 124 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (INTVAL)((Parrot_Int4)({{\@2}}));\n  {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320730	320826	
==>BODY" => "#line 124 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (INTVAL)((Parrot_Int4)({{\@2}}));\n  {{+= <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	13911	14101	
==>sh @todo, $parent;
            push @{ $class->{parents} }, $parent;
        }
    }
}

=head2 dump_1_pmc($file);

Returns the class structure from I<$file> for a .dump file.

=cut

sub dump_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	11384	11509	
==>ad1-content.\n";
        $head1_text_content .= $token->text;
      } elsif( $token->is_end and $token->tagname eq 'head1' ) { <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	10111	10266	
==>ERSAL::isa($arg, 'Regex::Ops::Tree')) {
                # $arg is a reference variable, remember.
                $arg = $self->add_checks($arg, $guarantee, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	4761	4904	
==>ERSAL::isa($arg, 'Regex::Ops::Tree')) {
                # $arg is a reference variable, remember.
                $arg = $self->pass1($arg, $ctx <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	26286	26396	
==>$ldel$pattern$rdel$mod" }
	$desc =~ s/\\/\\\\/g;
	$desc =~ s/\$$/\\\$/g;
	$desc =~ s/}/\\}/g;
	$desc =~ s/{/\\{ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	9621	9733	
==>E_$label");
  my $false = $self->_generate(_get_arg($node,3));
  $self->_morph($return,$false);
  $self->_restore <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	2402	2583	
==>EFIX} = shift if @_;
  return $self->{PREFIX};
}


###############################################################################

=head2 BLOCK->set_symbol(NAME, VALUE)

Set a symbo <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3218	3344	
==>CII) {
    $self->{'Thispara'} =~ tr{\xA0}{ };
    $self->{'Thispara'} =~ tr{\xAD}{}d;
  }

  my $i = ' ' x ( 2 * $self->{'Inde <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2706	2832	
==>CII) {
    $self->{'Thispara'} =~ tr{\xA0}{ };
    $self->{'Thispara'} =~ tr{\xAD}{}d;
  }

  my $i = ' ' x ( 2 * $self->{'Inde <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	4530	4659	
==>es
	#
.include "RT_initialize.pir"
.include "RT_aggregates.pir"
.include "RT_builtins.pir"
.include "RT_debugger.pir"
.include "RT <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	20646	20853	
==>b
#line 132 "lib/Regex/Grammar.y"
{ ++$::paren }
	],
	[#Rule 22
		 'expr', 4,
sub
#line 133 "lib/Regex/Grammar.y"
{ return op('group' => [ $_[3], $_[2] ]) }
	],
	[#Rule 23
		 'expr', 5,
sub
#line 135 "lib/Reg <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4240	4342	
==>with the return
value of an C<expr_I<X>> method (implemented in subclass).

=cut

sub gen_goto 
{
    m <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	6565	6674	
==>KET
		$endpos,    length($$textref)-$endpos,	# REMAINDER
	       );
}

sub revbracket($)
{
	my $brack = revers <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5355	5440	
==>Can do a lazy move.
PRE_BRANCH_${CURIC}_LAZY_MOVE_$register_num:
${STACK$register_num} <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	6666	6923	
==>slashes}) {
            $line =~ s{(/+)}{
                my $len = length $1;
                my $slash = $conf->data->get('slash');
                '/' x ($len/2) . ($len%2 ? $slash : '');
            }eg;
            # replace \* with \\*, so make will no <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	2979	3081	
==>en functions or implicitly retrieved from a
global API.  Encapsulating data like this is good: it allow <==
2	/Users/nnunley/parrot/config/inter/make.pm	2074	2227	
==>. (\d+)/x) {
        $conf->data->set(gmake_version => "$1.$2");
    }

    $conf->data->set($util => $prog);
    $self->set_result('yes');

    # setup m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607557	607705	
==>"\n    {{\@1}} = VTABLE_get_attr(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608461	608609	
==>"\n    {{\@1}} = VTABLE_get_attr(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	729	835	
==>em C<bindir>

The executables directory. Defaults to '/usr/bin'.

=item C<libdir>

The library directory. D <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	958	1064	
==>em C<bindir>

The executables directory. Defaults to '/usr/bin'.

=item C<libdir>

The library directory. D <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853332	853421	
==>ne 100 \"src/ops/string.ops\"\n  {{\@1}} = string_append(interpreter, {{\@1}}, {{\@2}}, 1) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854114	854203	
==>ne 100 \"src/ops/string.ops\"\n  {{\@1}} = string_append(interpreter, {{\@1}}, {{\@2}}, 1) <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	7114	7219	
==>++;
	    push @{ $const->{methods} }, {
		meth => "$meth",
		type => $entry->{type},
		parameters => $entr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734072	734440	
==>ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 824,
                  "ARGS" => [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 134 \"src <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3594	3699	
==>ation has no fnlib property, and parent block is not a module!")
        unless $self->block->kind eq 'mod <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6258	6363	
==>ation has no fnlib property, and parent block is not a module!")
        unless $self->block->kind eq 'mod <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	30129	30282	
==>ush @stack, $w;
    push @stack, $v;
}

sub STORE_SUBSCR
{
    my ($n, $c, $cmt) = @_;
    my $x = pop @stack;
    my $v = pop @stack;
    my $w = pop @st <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	3808	3999	
==>($class, $info) = each %classes) {
	my $lhs = $info->{flags}->{noinit} ? "" : "type$class = ";
        $cout .= <<"EOC";
    whoami = const_string(interpreter, "$class");
    ${lhs}pmc_registe <==
2	/Users/nnunley/parrot/languages/converter.pl	1712	1841	
==>$lhs = ::strip_quotes($item[1]);
		  my $rhs = ::strip_quotes($item[3]);
		  "/[$lhs-$rhs]/"
		}
		| terminal
#		{[@item]}
		{ $it <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	2774	2871	
==>ion after configuration and installing.', 'MANIFEST.generated'),
            $self->new_item('Spec <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	1687	2042	
==>okes();

  print "ok";
}

sub validate_params {
  my $CGI = shift;

  if(not $CGI->param("version") or $CGI->param("version") != VERSION) {
    print "Versions do not match!";
    exit;
  }

  if(not $CGI->param("smoke")) {
    print "No smoke given!";
    exit;
  }

  uncompress_smoke($CGI);
  unless($CGI->param("smoke") =~ /^<!DOCTYPE html/) {
    prin <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	3020	3129	
==>, %def_arg_names, %func_info);

sub decode_line {
    my $l = shift;
    my ($pc, $line ,$opcode, $arg, $rest) <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7511	7668	
==>0-9]+\-([0-9]+)$/
                or  die "In line rule name '$lhs' ill formed: ".
                        "report it as a BUG.\n";
                $$dotpo <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7166	7320	
==>0-9]+\-([0-9]+)$/
                or  die "In line rule name '$lhs' ill formed: ".
                        "report it as a BUG.\n";
                $$dotpo <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	37	195	
==>2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as Perl itself.
#
# $Id: /parrot/languages/jako/lib/Jako/Parser <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500790	501126	
==>"inline",
                  "CODE" => 575,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 621 \"src/ops/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5527	5630	
==>ht be crucial
sub gather_groups_and_libs {
    my @pmcs = @_;

    my ( %group_files, %group_libs, %pmc_ <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5738	5841	
==>ht be crucial
sub gather_groups_and_libs {
    my @pmcs = @_;

    my ( %group_files, %group_libs, %pmc_ <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	3055	3270	
==>_prog = join( ' && ', @test_prog );
            if ( $exit_code ) {
                $diag .= "'$test_prog' failed with exit code $exit_code."
            }
            if ( $diag ) {
                $self->{builder}- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6073	6274	
==>re.ops\"\n    Parrot_load_bytecode(interpreter, {{\@1}});\n    {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6739	6940	
==>re.ops\"\n    Parrot_load_bytecode(interpreter, {{\@1}});\n    {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	49311	49454	
==>Scope( $_[0] );
        }
	],
	[#Rule 29
		 'stat', 5,
sub
#line 176 "Lua\lua51.yp"
{
            my $var = BuildLocalVariable( $_[0], $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1720	1821	
==>s definition.
  #

  if (defined $sym) {
    $self->SYNTAX_ERROR("Redeclaration of identifier '%s'. Pr <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	1417	1511	
==>function_line_coverage, %function_branch_coverage, %function_call_coverage);
my (%real_filename <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1913	2007	
==>BCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
    # Yes, stipulate the list with <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2016	2110	
==>BCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
    # Yes, stipulate the list with <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	28031	28348	
==>LAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 37,
                  "ARGS" => [
                              "pc"
                            ],
                  "BODY" => "#lin <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	20777	20897	
==>_name ];
            foreach my $variant (@{ $self->{mmd_variants}{$meth} }) {
                if ($self->pmc_is_dynpmc($ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27053	27259	
==>elf->{const}->init_func;
    }
    $cout .= $self->{post};
    $cout;
}

=item C<hdecls()>

Returns the C code function declarations for all the methods for inclusion
in the PMC's C header file.

TODO includ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32207	32362	
==>g)";
    my $ret = gen_ret($method, $body);
    my $decl = $self->decl($self->{class}, $method, 0);
    # I think that these will be out by one - NWC
    my <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40829	40984	
==>g)";
    my $ret = gen_ret($method, $body);
    my $decl = $self->decl($self->{class}, $method, 0);
    # I think that these will be out by one - NWC
    my <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	7741	7915	
==>peinfo = 1;
            }
        }
		
        # Unknown key.
        else {
            die "Unknown key $_ in rule $rule->{'name'}\n";
        }
    }

    # Check we had ma <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5082	5202	
==>b sax
{
  my $self = shift;
  my ($handler) = @_;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3145	3265	
==>b sax
{
  my $self = shift;
  my ($handler) = @_;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	23935	24147	
==>fh);
    $Test->todo_output($file);

Where diagnostics about todo test failures and diag() should go.

Defaults to STDOUT.

=cut

sub output {
    my($self, $fh) = @_;

    if( defined $fh ) {
        $self->{Out_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955895	956002	
==>copy(interpreter, Parrot_encoding_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956707	956814	
==>copy(interpreter, Parrot_encoding_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/config/init/headers.pm	384	474	
==>::Configure::Step;
use ExtUtils::Manifest qw(maniread);

our $description = 'Determining no <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	2511	2609	
==>Name => 'module', Attributes => { name => $self->name } });
  $_->sax($handler) foreach $self->cont <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	410210	410536	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "send",
                  "FLAGS" => ":base_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411102	411428	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "send",
                  "FLAGS" => ":base_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	728360	728595	
==>st temp = {{\@1}};\n   {{\@1}} = {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729954	730189	
==>st temp = {{\@1}};\n   {{\@1}} = {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	30092	30239	
==>", the name is undef.)
# 

############# The "section" attribute (which might be next, or a treelet)
# Fourth:
# The section (AKA "item" in older pe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	525580	525907	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "asec",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	27952	28071	
==>ocation of the string's variable (or at index zero, if no C<pos>
position is defined).

=head2 General behaviour in list <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6133	6247	
==>EOM
    }
    $macros .=<<"EOM";
        MMD_USER_FIRST
} parrot_mmd_func_enum;

/* &end_gen */

#ifdef PARROT_IN_O <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	2510	2615	
==>r by C<$delim>.

Accepts a delimiter value followed by a list of C<key => value> pairs and
returns a L<Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360427	360811	
==>=> "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 422,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 258 \"src/ops/io.ops\" <==
2	/Users/nnunley/parrot/config/inter/encoding.pm	731	852	
==>coding')
        || join(' ', grep { defined $_ } @encoding);

    if ($conf->options->get('ask')) {
        print <<"END" <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	3001	3149	
==>ert( $var->[0] );
    return $var;
}

sub InsertList {
    my ( $parser, $vars ) = @_;

    for my $var ( @{$vars} ) {
        Insert( $parse <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206486	206587	
==>\@1}}->vtable->get_integer(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207428	207529	
==>\@1}}->vtable->get_integer(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n" <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	33502	33627	
==>, 0,2;
          #DEBUG > 1 and printf qq{Catching "%s as " as complex L<URL> link.\n},
          #  join '~', @{$treelet->[$i <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4597	4703	
==>eval join('',@drv);
}

#Note that for loading debugging version of the driver,
#this file will be parse <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4366	4468	
==>eval join('',@drv);
}

#Note that for loading debugging version of the driver,
#this file will be parse <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	1856	1981	
==>self->write_contents_html(@_);
	
	if ( $index_html )
	{
		# If none of the items are in a para then the whole group is.
	
		if <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682224	682332	
==>> "#line 512 \"src/ops/pmc.ops\"\n    {{\@1}} = {{\@2}}->vtable->shift_float(interpreter, {{\@2}});\n    {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1013612	1013884	
==>n  {{\@1}} = errno;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "err",
                  "F <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	14013	14115	
==>pmc($file);

Returns the class structure from I<$file> for a .dump file.

=cut

sub dump_1_pmc {
    my <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948297	948578	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949096	949377	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ] <==
2	/Users/nnunley/parrot/config/init/defaults.pm	1150	1253	
==>o indicate this object file is to be compiled
        # with position-independent code suitable for dyna <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	926	1065	
==>bs.
	return "";
}

# Label generation.
sub gen_label() {
	# We'll emit a label for every single instruction. While we kinda find
	# basic bl <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	683	812	
==>bs.
	return "";
}

# Label generation.
sub gen_label() {
	# We'll emit a label for every single instruction.
	return <<'PIR';
strP <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	8793	8896	
==>}

    return @params;
}

=back

=head1 SEE ALSO

=over 4

=item F<tools/build/jit2c.pl>

=item F<tools/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830675	830791	
==>erpreter->ctx)->user_stack, &i, STACK_ENTRY_INT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831416	831532	
==>erpreter->ctx)->user_stack, &i, STACK_ENTRY_INT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	1044	1214	
==>ops = (
  '==' => '!=',
  '!=' => '==',
  '<=' => '>',
  '<'  => '>=',
  '>=' => '<',
  '>'  => '<='
);

sub invert_relop
{
  my $self = shift;
  my $op = shift;
 
  confe <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	9166	9269	
==>ock.
  sysopen my $fh, BUCKET, O_RDWR|O_CREAT
    or die "Couldn't open \"@{[ BUCKET ]}\": $!\n";
  floc <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	11079	11173	
==>like (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export` <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	3681	3830	
==>nnel',
        expr    => '__expr',
        int     => '__integer',
        list    => '__list',
        script  => '__script',
        var     => '__ <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	4355	4504	
==>nnel',
        expr    => '__expr',
        int     => '__integer',
        list    => '__list',
        script  => '__script',
        var     => '__ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	37063	37165	
==>al arguments:

=over 4

=item 1.

A string to be processed (C<$_> if the string is omitted or C<undef>) <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	52895	52997	
==>al arguments:

=over 4

=item 1.

A string to be processed (C<$_> if the string is omitted or C<undef>) <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	1895	2032	
==>$conf->data->set(int2_t => 'int');
        print <<'END';

Can't find a int type with size 2, conversion ops might fail!

END
    }
    if <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	419	1001	
==>rmining some sizes';

@args = qw(miniparrot);

sub runstep
{
    my ($self, $conf) = @_;

    if (defined $conf->options->get('miniparrot')) {
        $conf->data->set(
            doublesize       => 8,
            numvalsize       => 8,
            nvsize           => 8,
            floatsize        => 4,
            opcode_t_size    => 4,
            ptrsize          => 4,
            intvalsize       => 4,
            intsize          => 4,
            longsize         => 4,
            shortsize        => 2,
            hugeintval       => 'long',
            hugeintvalsi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	660	780	
==>ined $op;
  confess "Right is not defined!" unless defined $right;

  confess "Block is not!" unless UNIVERSAL::isa($bloc <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	672	792	
==>ined $op;
  confess "Right is not defined!" unless defined $right;

  confess "Block is not!" unless UNIVERSAL::isa($bloc <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	1190	1287	
==>::Tree::seq::ISA          = qw(Regex::Ops::Tree);
@Regex::Ops::Tree::alternate::ISA    = qw(Regex: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845329	845646	
==>rd",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 959,
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9413	9510	
==>my ($volume, $directories, $name) = File::Spec->splitpath($path);
    
    $path = File::Spec->cat <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	768	863	
==>. Defaults to '/usr/bin'.

=item C<libdir>

The library directory. Defaults to '/usr/lib'.

=ite <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	997	1092	
==>. Defaults to '/usr/bin'.

=item C<libdir>

The library directory. Defaults to '/usr/lib'.

=ite <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79035	79139	
==>PMC_data({{\@2}}), name);\n  string_cstring_free(name);\n  if (p == NULL) {\n      const char * const err <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80556	80660	
==>PMC_data({{\@2}}), name);\n  string_cstring_free(name);\n  if (p == NULL) {\n      const char * const err <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	13082	13211	
==>return "interpreter";
    };
    /[OP]/ && do {
        push @{$temps_ref}, "PMC *t_$temp_num;";
        push @{$extra_preamble_re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	278817	279196	
==>s/cmp.ops\"\n  {{\@1}} = (mmd_dispatch_i_pp(interpreter, {{\@2}}, {{\@3}}, MMD_CMP) <= 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3760	3889	
==><restart OFFSET($offset)>.

=cut

sub restart_offset
{
    my ($self, $offset) = @_;

    die "pbc2c.pl: Cannot handle RESUME ops! <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28176	28270	
==>= ($lastsep||"").$text;
			}'.($::RD_NO_TRACE?'':'
			Parse::RecDescent::_trace(q{<<Didn\'t mat <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32451	32545	
==>= ($lastsep||"").$text;
			}'.($::RD_NO_TRACE?'':'
			Parse::RecDescent::_trace(q{<<Didn\'t mat <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	13713	13843	
==>fore 5.005.

=item B<unlike>

  $Test->unlike($this, qr/$regex/, $name);
  $Test->unlike($this, '/$regex/', $name);

Like Test::Mor <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	2522	2690	
==>=> \$help_flag,
            "renum"          => \$renum_flag,
          );

sub Usage {
    print STDERR <<_EOF_;
usage: $0 [--help] [--no-lines] input.ops [input2.ops . <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170362	170454	
==>"#line 211 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) != {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171303	171395	
==>"#line 211 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) != {{ <==
2	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1415	1557	
==>edSetOp;
use base qw(Lua::opcode);

package IncrOp;
use base qw(Lua::opcode);

package NoOp;
use base qw(Lua::opcode);

package FindGl <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	26646	26753	
==>=~ s/ at \(eval.*/./;
		Parse::RecDescent::_hint($@);
	}

	# QUIETLY PREVENT (WELL-INTENTIONED) CALAMITY
	$m <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	24938	25063	
==>ett = 'P';
    if ($tos->[2] eq 'o') {	# builtin opcode
	$t = temp('P');
	print <<EOC;
	$t = new $DEFVAR   # builtin opcode
	$ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	16054	16250	
==>e );
    }

    unless( $ok ) {
        $this = defined $this ? "'$this'" : 'undef';
        my $match = $cmp eq '=~' ? "doesn't match" : "matches";
        $self->diag(sprintf <<DIAGNOSTIC, $this, <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	19776	19874	
==>$rev_map{$c};
    my ($opcode, $rest) = ($code[$code_l]->[2],$code[$code_l]->[4]);
    my $targ = " <==
2	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	690	776	
==>O

F<examples/benchmarks/stress.pasm>, 
F<examples/benchmarks/stress.pl>, 
F<examples/b <==
2	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	537	623	
==>O

F<examples/benchmarks/stress.pasm>, 
F<examples/benchmarks/stress.pl>, 
F<examples/b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009337	1009660	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compose",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010101	1010424	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compose",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38962	39128	
==>_def = "$type ret_val;";
        $func_ret = $self->gen_ret($method->{type});
        $ret = "return ret_val;";
        if ($type !~ /\*/) {
            $ret_type = "_ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34000	34127	
==>_def = "$type ret_val;";
        $func_ret = $self->gen_ret($method->{type});
        $ret = "return ret_val;";
    }
    # I th <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	207	322	
==>defn( $idf, 'tmp', $type, $subtype );
}

sub new_label {
    my ($parser) = @_;
    my $idf = 'L' . $parser->YY <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59380	59796	
==>);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "warningson",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline", <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	7624	7716	
==>($parser, $text; $repeating, $_noactions, \@args)
sub ' . $namespace . '::' . $self->{"name"} <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	4394	4509	
==>ail ($wantarray, $textref) unless @match;

	return _succeed ( $wantarray, $textref,
			  $match[2], $match[5]+2,	# M <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	15903	16003	
==>ail($wantarray, $textref) unless @match;
	return _succeed($wantarray, $textref,
			$match[2], $match[ <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	654	827	
==>b};
##        warn "\tfound 1 in $self\n";
            return $defn;
        }
        else {
            my $parser = $self->{parser};
            for my $symbtab ( @{ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	57461	57614	
==>:(.*)>\Z/s;
				$item = new Parse::RecDescent::Error($1,$lookahead,$commitonly,$line);
				$prod and $prod->additem($item)
				      or  _no_rule("$code", <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	12201	12299	
==>nt of the array; the second argument, if
present, is assigned to the array element.  If the element <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16477	16657	
==>lass_init';
        if ($self->implements($meth)) {
            my $ret = $self->body($method, $line, $out_name);
            $line += count_newlines($ret);
            $cout .= $re <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	1044	1161	
==>bout new generated files.
# 
# Ignore the SVN directories
\B\.svn\b

# debian/ should not go into release tarballs
^de <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3899	4015	
==>bout new generated files.
#
# Ignore the SVN directories
\B\.svn\b

# debian/ should not go into release tarballs
^de <==
2	/Users/nnunley/parrot/config/init/defaults.pm	3685	3797	
==>c executable output file (different on Win32)
        cc_exe_out => '-o ',

        # prefix for ldflags (necessa <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1140	1256	
==>b name { return shift->{NAME};  }
sub args { return @{shift->{ARGS}}; }


#
# compile()
#

sub compile
{
  my $self = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	959	1075	
==>b name { return shift->{NAME};  }
sub args { return @{shift->{ARGS}}; }


#
# compile()
#

sub compile
{
  my $self = <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	13074	13353	
==>erate an ordered list of parent classes to put in the
I<< $classes->{class}->{parents} >> array, using the given directories
to find parents.

=cut

sub gen_parent_list {
    my ($include, $this, $all) = @_;

    my @todo  = ($this);
    my $class = $all->{$this};

    while (@to <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	69332	69466	
==>RACE"
			and print TRACE_FILE "my \$ERRORS;\n$code"
			and close TRACE_FILE;
		}

		unless ( eval "$code 1" )
		{
			_error("Internal e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060156	1060401	
==>{{\@1}} = Parrot_get_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061061	1061306	
==>{{\@1}} = Parrot_get_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	1387	1529	
==>. <whitespace> destination

The square brackets around C<package> are literal. C<package> gives
the name of the RPM that the given file will be <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	871	970	
==>m_enum(pmctypes.pasm) subst(s/enum_class_(\\w+)/\$1/e) */
enum {
END_H

    my @pmcs = split(/ /, $c <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	8683	8878	
==>e abstract section above was added later. The two searches 
	# could be combined.
	
	return $self->title;
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::Docs::Directory>

=item C<Parrot::Docs <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953734	953913	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954524	954703	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052091	1052268	
==>",
                              "sc"
                            ],
                  "BODY" => "#line 172 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tintern <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1208	1322	
==>c?, :$todo, :$depends) returns Bool is export {
    # hack for now
    my $got_perl = $got.perl;
    my $expected_p <==
2	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1195	1299	
==>gs:
};
}

open OUT, "> parrot.iss" or die "Can't open parrot.iss";

print OUT qq{
; generated by tools/de <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	3678	3812	
==>pl|pm|t|PL|pod|pasm)$|_pm\.in$/
	    or $text =~ /^\#/;
    return &describe_misc_file($info,$text);
}

sub describe_misc_file {
    my <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	5456	5549	
==>ND_C

my $mmp_v = "${major_version}_${minor_version}_${patch_version}";
my $init_func = "Parro <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	14728	14858	
==>e=>$line,
		  offset=> scalar(@{$self->{items}}) };
}

sub addscore
{
	my ( $self, $code, $lookahead, $line ) = @_;
	$self->additem <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	918	1067	
==>ences, prerequisites, and building instructions.', 'README'),
            $self->new_item('Instructions for Parrot in a Win32 environment.', 'README.w <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912470	912996	
==>S" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1028,
                  "ARGS" => [
                              "i",
                              "s",
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\ <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	1699	1803	
==>ake($mono_lib_path);
	
	# Read in makefile template.
	my $fh;
	open $fh, "< config/Makefile.in" or di <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	564	685	
==>2 Functions

The parameter C<$language> is the language of the code.
The parameter C<$code> is the code that should be exe <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	579	777	
==>stalled to run this. Use the CPAN
shell:

    perl -MCPAN -e shell 
    cpan> install C::Scan 
    ...

=cut

################################################################################

# the f <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	10143	10340	
==>y $func_name  = $op->func_name($trans);
        my $body       = $op->body;
        my $jump       = $op->jump || 0;
        my $arg_count  = $op->size;

    ## 0 inserted if arrays are empty to pre <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	61250	61339	
==>cted.

=item  C<Unmatched opening bracket(s): "%s">

C<extract_bracketed>, C<extract_quote <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18711	18837	
==>->new($block, $self->require_value);
          last if $self->get(1)->is_close_paren;
          $self->require_comma;
        } <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19737	19863	
==>->new($block, $self->require_value);
          last if $self->get(1)->is_close_paren;
          $self->require_comma;
        } <==
2	/Users/nnunley/parrot/config/inter/lex.pm	1013	1145	
==>d');
        return $self;
    }

    my $prog;

    # precedence of sources for the program:
    # default -> probe -> environment - <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	1010	1142	
==>d');
        return $self;
    }

    my $prog;

    # precedence of sources for the program:
    # default -> probe -> environment - <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	8297	8388	
==>(jit_info->cur_op[x])
#define ROFFS_STR(x) REG_OFFS_STR(jit_info->cur_op[x])
#define ROFFS_P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302753	303014	
==>E" => 352,
                  "ARGS" => [
                              "i",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 980 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal( <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6109	6211	
==>0x${CURIC} == 0x45 goto POST_BRANCH_switch_${CURIC}
${ITEMP0} = ${NEXTPC} + I_arg_0 # XXX Can't use ${A <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4047	4149	
==>0x${CURIC} == 0x45 goto POST_BRANCH_switch_${CURIC}
${ITEMP0} = ${NEXTPC} + I_arg_0 # XXX Can't use ${A <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	47028	47163	
==>iven a paragraph, returns a treelet.  Full of scary tokenizing code.
  #  Like [ '~Top', {'start_line' => $start_line},
  #            " <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	1744	1853	
==>tance Methods

=over 4

=item C<set_parent($parent)>

=item C<parent()>

Accessors for the containing section/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2957	3051	
==>em C<goto_address($address)>

CPrederef is funky in that expr OFFSET(n) uses a pointer to the
o <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	44975	45105	
==>\s*\{';
my $IMPLICITSUBRULE	= '\G\s*\(';
my $COMMENT		= '\G\s*(#.*)';
my $COMMITMK		= '\G\s*<commit>';
my $UNCOMMITMK		= '\G\s*<unc <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	1996	2151	
==>nd $I100, $I101
    %1 = $I100
END_PIR

    $P0[unicode:"dyadic:\u2228"]  = <<"END_PIR"             # or
    $I100 = %1
    $I101 = %2
    $I100 = or $I100, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	12254	12362	
==>$self, $name, $mode, $uid) = @_;
#    if ($mode) {
        return split(/\n/, <<"END");
\$$uid = _rule_$name( <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	14095	14214	
==>{+=$1}}/mg;
                      $body =~ s/\bgoto\s+NEXT\(\)/{{+=$op_size}}/mg;
        $absolute ||= $body =~ s/\bgot <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2217	2336	
==>b',
            libparrot_static     => 'libparrot'.$conf->data->get('a'),
            libparrot_shared     => 'libparro <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	3693	3816	
==>>get(qw(verbose verbose-step ask));

    my $n = 0; # step number
    foreach my $task ($self->steps) {
        my $step_nam <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	119	315	
==>er';
use strict;

use vars qw(@AsmOps @EXPORT);

@Regex::Ops::Label::ISA = qw(Regex::Ops::List);

@AsmOps =
  ( [ "scan(R)" => "scan for R at every position" ],
    [ "terminate()" ],
    [ "atend( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14309	14596	
==>tworthy!\n  Giving up.\n";
          undef $title;
          last;
        }
      }
    }
    
    else {
      die "IMPOSSIBLE STATE $state!\n";  # should never happen
    }
    
  }
  
  # Put it all back!
  $self->unget_token(@to_unget);
  
  if(DEBUG) {
    if(defined $title) { prin <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2	156	
==>dule Test-0.0.6;

### CONSTANTS

# some options available through the environment
$Test::ALWAYS_CALLER = %*ENV<TEST_ALWAYS_CALLER>;

### GLOBALS

# globals <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1010	1131	
==>rrot = 1    if @ARGV && $ARGV[0] =~ /mini/;
$install_parrot = 1 if @ARGV && $ARGV[0] =~ /install/;

print << "EOF";
/* ex: <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16596	16765	
==>? $_[0] : join '', @_)
    ) =~ s/([F\x00-\x1F\\\{\}\x7F-\xFF])/$Escape{$1}/g;  # ESCAPER
             # Escape \, {, }, -, control chars, and 7f-ff.
    $x =~ s/([^\x00- <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	1503	1605	
==>!!!!!!!
 *
 * This file is generated automatically from '$infile'
 * by $0.
 *
 * Any changes made here <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	3792	3894	
==>!!!!!!!
 *
 * This file is generated automatically from '$infile'
 * by $0.
 *
 * Any changes made here <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1041	1144	
==>t, and then an end-token with the tagname of "head1".

=item $token->tagname(I<somestring>)

This change <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1469	1572	
==>t, and then an end-token with the tagname of "head1".

=item $token->tagname(I<somestring>)

This change <==
2	/Users/nnunley/parrot/languages/perms.pl	314	479	
==>refix;
    }
    
    if ( $prefix[-1] >= @$things ) {
      @prefix = ( (0) x (@prefix + 1) );
    }

	  my @tumbler = map { $things->[$_] } @prefix;
	  my $ret = jo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023337	1023439	
==>truct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_localtime_r(&t, &tm);\n  {{\@1}} = tm_to_a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024187	1024289	
==>truct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_localtime_r(&t, &tm);\n  {{\@1}} = tm_to_a <==
2	/Users/nnunley/parrot/config/inter/encoding.pm	100	214	
==>5-30T02:28:15.110975Z coke  $

=head1 NAME

config/inter/encoding.pm - encoding files

=head1 DESCRIPTION

Asks the <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	4501	4610	
==>, "No exception thrown", :$depends);
    }
}

## lives ok

sub lives_ok (Code &code, Str $desc?, :$todo, :$dep <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	306976	307242	
==>n",
                  "CODE" => 357,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 1031 \"src/ops/cmp.ops\"\n  if (!PMC_IS_NULL({{\@1}})) {\n    {{ <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	13635	13733	
==>is is not an appropriate object
reference.

If the element type does not start with a C<'*'>, the a <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	69172	69342	
==>g)
	{
		my $code = $self->_code();
		if (defined $::RD_TRACE)
		{
			print STDERR "printing code (", length($code),") to RD_TRACE\n";
			open TRACE_FILE, ">RD_TRACE"
			an <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10875	10977	
==>oves the instance from
the cache, and undefines it.

Raises an exception if the delete fails.

=cut

su <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4709	4811	
==>oves the instance from the cache, and undefines it.

Raises an exception if the delete fails.

=cut

su <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	122	222	
==>value warnings in older perls.
$^C ||= 0;

use strict;
use vars qw($VERSION);
$VERSION = '0.30';
$VER <==
2	/Users/nnunley/parrot/config/init/hints/irix.pm	277	490	
==>An enumerated type is mixed with another type.
    if ($ccflags =~ /-woff /) {
        $ccflags =~ s/-woff (?:\d+,)*\d+/-woff 1185/;
    } else {
        $ccflags .= ' -woff 1185';
    }
    $conf->data->set(ccflag <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21882	22018	
==>ame} = '__DIRECTIVE' . ++$_[1]->{dircount} .  '__'; }

sub issubrule { undef }
sub isterminal { 0 }
sub describe { $_[1] ? '' : $_[0]->{n <==
2	/Users/nnunley/parrot/config/init/hints/darwin.pm	1324	1565	
==>b version of the library
        parrot_is_shared     => 0,
        libparrot_shared        => 'libparrot.$(SOVERSION)$(SHARE_EXT)',
        libparrot_shared_alias  => 'libparrot$(SHARE_EXT)',
        # This variable needs renaming to be more <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	7996	8121	
==>ude"jit_emit.h"

#undef CONST
#ifndef MAP
# define MAP(i) jit_info->optimizer->map_branch[jit_info->op_i + (i)]
#endif

extern <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	17362	17652	
==>s/core.ops\"\n  if ({{\@1}} != 0.0) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	21088	21189	
==>:.:.:.:.:.:.:.

sub _remap_sequences {
  my($self,@stack) = @_;
  
  if(@stack == 1 and @{ $stack[0] } <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10225	10351	
==>_branch_coverage{$source_file}{$function} %" : "n/a" ]}</a></td>
             <td><a href="$outfile_base.calls.html#$function"> <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	30539	30674	
==>Foo".)
# 
# Pod parsers may also note additional attributes including:
#

############# The "type" attribute.
# Fifth:
# A flag for whet <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	6643	6791	
==>utomatically from 'src/jit/$cpuarch/core.jit'
 * by $0.
 *
 * Any changes made here will be lost!
 *
 */

#include<parrot/parrot.h>
#if HAVE_COMPUTED <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	489887	490152	
==>"inline",
                  "CODE" => 561,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 517 \"src/ops/math.ops\"\n  {{\@1}} = floor({{\@2}});\n  { <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	3264	3409	
==>s = '';
        $parent_dumps .= "src/pmc/$_.dump " foreach reverse((pmc_parents($pmc)));
        my $parent_headers = '';
        $parent_headers <==
2	/Users/nnunley/parrot/config/auto/memalign.pm	511	622	
==>rbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    if ($ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	6060	6167	
==>p_setup {
    my ($self, $group) = @_;
    $self->{_setup_starts}{$group} = 1;
    $self->{_setup_ends}{$gro <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	6163	6312	
==>=~ m/\G(?:[a-zA-Z0-9]+|.)/gcs }
	}
	if ($#nesting>=0)
	{
		_failmsg "Unmatched opening bracket(s): "
				. join("..",@nesting)."..",
		         pos $$ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	8943	9144	
==>] eq "#";
	feedme();
	$fd=$syms[CURR];
	push @{$code{$seg}->{code}},<<CLOSE;
	_CLOSE($fd)
CLOSE
}
sub fdprint {	
	my($fd, $string)=@_;
	if ($fd) {
		push @{$code{$seg}->{code}}, <<PRINT;
	_WRITE($fd,1," <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	36204	36363	
==>d (including missing or extras)

If you fail more than 254 tests, it will be reported as 254.


=head1 THREADS

In perl 5.8.0 and later, Test::Builder is thread <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	5098	5242	
==>=> undef,
             'i_setjmp' => 'define',
             'i_sfio' => undef,
             'i_sgtty' => undef,
             'i_shadow' => undef, <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28296	28432	
==>,
        'arg1' => $l_break,
    );
    return \@opcodes;
}

sub BuildForNum {
    my ( $parser, $var, $e_start, $e_limit, $e_ste <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	10781	10891	
==>uotemeta($titlename);

  my $head1_text_content;
  my $para_text_content;

  while(
    ++$token_count <= ($max <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	5291	5392	
==>ot::OpLib::$package - Parrot Op Info

    =head1 DESCRIPTION

    This is an autogenerated file, creat <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	4143	4311	
==>'$help')");
    }
    
    return $code;
}

sub inline {
    my $line = shift;
    return "  pir .= \"$line\"\n";
}

sub arguments {
    my (@args) = @_;
    
    my %co <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9011	9108	
==>th
${STEMP0} = concat ${STEMP1}
goto POST_STORE_${CURIC}_CONT

# Can do a lazy move.
POST_STORE_${ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	10442	10562	
==>Expect Correct
t=0
g=0
if t then
	print "Wrong"
else 
	if g then
		print "Wrong again"
	else 
		print "Correct"
	end if
e <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	14822	14929	
==>oken types as found in the buffer.
  #   ~Verbatim, ~Para, ~end, =head1..4, =for, =begin, =end,
  #   =over, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947018	947117	
==>"#line 526 \"src/ops/string.ops\"\n  INTVAL n = Parrot_charset_number(interpreter, {{\@2}});\n  if ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947920	948019	
==>"#line 526 \"src/ops/string.ops\"\n  INTVAL n = Parrot_charset_number(interpreter, {{\@2}});\n  if ( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	10831	10974	
==>.param int <rx_pos>
  .param pmc <rx_stack>

  .local pmc <rx_match>
  .local pmc <rx_ptmp>
  .local int <rx_tmp>
  .local int <rx_len>
  <rx_ma <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	7884	8108	
==>age</th>
                </tr>
    );
    
    foreach my $source_file (sort keys %file_line_coverage) {
        my $outfile_base = $source_file;
        $outfile_base =~ s/\//_/g;
        
        print OUT qq(
           <t <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	14939	15114	
==>assign = $var->[2];
        if ( $assign->isa('AssignOp') ) {
            $assign->configure(
                'arg1' => $expr->[0], 
            );
        }
        else <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	1325	1465	
==>stack to register mapper\n";
}
sub post_call {
	die "post_call not implemented for current stack to register mapper\n";
}

# Pre and post loa <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	24257	24477	
==>We need two -- once for the next cycle where we
         #  generate errata, and then another to be at the end
         #  when that loop back around to process the errata.
        next;
        
      } else {
        DE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361420	361664	
==>"function",
                  "CODE" => 423,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 281 \"src/ops/io.ops\"\n  if ({{\@1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653484	653590	
==>@1}}))\n        real_exception(interpreter, resume, METH_NOT_FOUND,\n            \"Method '%s' not found\", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654645	654751	
==>@1}}))\n        real_exception(interpreter, resume, METH_NOT_FOUND,\n            \"Method '%s' not found\", <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14041	14150	
==>, [$return,2,"FAIL_$label"]);
    $self->_add_inst ('', 'set', [$return,1]);
    $self->_add_inst ('', 'branch <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2024	2131	
==>he same thing with code like
$token->isa('Pod::Simple::PullParserEndToken'), but that's not so
pretty as usi <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11975	12090	
==>d appear in a
C<EE<lt>name_or_numE<gt>> sequence, this returns the string that
it stands for.  For example, C<e2char <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	33750	33971	
==>v'     => \&_op_memv,
  'member'   => \&_op_member,
  'assq'     => \&_op_assq,
  'assv'     => \&_op_assv,
  'assoc'    => \&_op_assoc,

###
### Symbols
###

  'symbol?'        => \&_op_symbol_p,
  'symbol->string' => \&_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022867	1023136	
==>NAME" => "decodelocaltime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023716	1023985	
==>NAME" => "decodelocaltime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644037	644123	
==>/ops/pmc.ops\"\n  {{\@1}} = {{\@2}}->vtable->type_keyed_int(interpreter, {{\@2}}, {{\@3 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644930	645016	
==>/ops/pmc.ops\"\n  {{\@1}} = {{\@2}}->vtable->type_keyed_int(interpreter, {{\@2}}, {{\@3 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	35286	35524	
==>ODE" => 44,
                  "ARGS" => [
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 637 \"src/ops/core.ops\"\n  {{\@1}} = (INTVAL){{\@2}}->vtable- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033321	1033412	
==>arrot_find_pad(interpreter, lex_name, ctx);\n    if (PMC_IS_NULL(lex_pad)) {\n\treal_excepti <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034419	1034510	
==>arrot_find_pad(interpreter, lex_name, ctx);\n    if (PMC_IS_NULL(lex_pad)) {\n\treal_excepti <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	6670	6819	
==>g
pos:
    unless op1 goto done
    # shift off the beginning and push onto the end.
    $P1 = shift op2
    push op2, $P1
    dec op1
    goto pos
ne <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	339364	339629	
==>s/io.ops\"\n  {{\@1}} = PIO_STDERR(interpreter);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630663	630895	
==>ter, class));\n    {{\@1}} = pmc_new(interpreter, type);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631653	631885	
==>ter, class));\n    {{\@1}} = pmc_new(interpreter, type);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/config/auto/jit.pm	1242	1344	
==>split fails because archname is "darwin-thread-multi-2level".
    if ($cpuarch =~ /darwin/) {
        $ <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	7317	7407	
==>_jit_normal_op
#define Parrot_jit_vtable_112_op Parrot_jit_normal_op
#define Parrot_jit_vta <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	828	923	
==>pcode - interpreter->code->base.data))
#define CUR_OPCODE cur_opcode
#define IREG(i) REG_INT(cur <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	944	1039	
==>pcode - interpreter->code->base.data))
#define CUR_OPCODE cur_opcode
#define IREG(i) REG_INT(cur <==
2	/Users/nnunley/parrot/lib/File/Which.pm	829	941	
==>ATHEXT, so needs hardcoded.
    }
}
elsif ($Is_VMS) { 
    push @path_ext, qw(.exe .com);
}

sub which {
    my ( <==
2	/Users/nnunley/parrot/languages/dotnet/tools/benchmark.pl	9	121	
==>:HiRes qw(time);

close STDERR;

foreach $srm ('Stack', 'Register', 'OptRegister') {
	print "With SRM $srm\n <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	10017	10118	
==>ollision with $files_in_dir_8dot3{$dirname}{$filename_8dot3} ($filename_8dot3)");
        }
        $f <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	14133	14222	
==>=item $Latin1Char_to_fallback{I<character>}

Just as above, but maps from characters (like <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361670	361776	
==>\n    STRING * const s = Parrot_sprintf_c(interpreter, INTVAL_FMT, {{\@2}});\n    PIO_putps(interpreter, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362569	362675	
==>\n    STRING * const s = Parrot_sprintf_c(interpreter, INTVAL_FMT, {{\@2}});\n    PIO_putps(interpreter, {{ <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1935	2174	
==>strophe
                last;
            s/^\\a//
                and $str .= "\a",      # bell
                last;
            s/^\\b//
                and $str .= "\b",      # backspace
                last;
            s/^\\f/ <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3449	3688	
==>strophe
                last;
            s/^\\a//
                and $str .= "\a",      # bell
                last;
            s/^\\b//
                and $str .= "\b",      # backspace
                last;
            s/^\\f/ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	1210	1412	
==>are($_[0]);

            if( $type eq 'HASH' ) {
                %{$_[0]} = %$data;
            }
            elsif( $type eq 'ARRAY' ) {
                @{$_[0]} = @$data;
            }
            elsi <==
2	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	1861	2016	
==>ion_len:   m/[0-9]+/
                  { $::substitution_len = $item[1] }

# length is known from the line above
name:               m/[a-zA-Z0-9_-]{$::name <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	434	641	
==>ce = shift || 1;
    return "re_advance P0, $distance";
}

sub output_onfail {
    my ($self, $label) = @_;
    return "re_onfail P0, ".$self->output_label_use($label);
}

sub output_match {
    my ($self, $b <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1749	1900	
==>c->join($path_to_language, 'HQ9plus.pbc'),
                    $lang_fn ) );

        Parrot::Test::write_code_to_file( $code, $lang_fn );

        # ST <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	2608	2771	
==>b, $where";
    } elsif ($cond eq '!=') {
        return "ne $a, $b, $where";
    } elsif ($cond eq '<') {
        return "lt $a, $b, $where";
    } elsif ($cond eq <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12037	12199	
==>ESCRIPTION

This class is for TODO.
This is a subclass of L<Pod::Simple::PullParser> and inherits all its
methods.

TODO

=head1 SEE ALSO

L<Pod::Simple>

=head1 C <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265588	265908	
==>> "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 309,
                  "ARGS <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	1512	1634	
==>ed shell single sleep
				sound static stop sub swap system step
			then 
			time_NOTYET$ 
			timer troff tron type to
			u <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452168	452426	
==>ne",
                  "CODE" => 518,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 225 \"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n  {{+= <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8960	9172	
==>35, '#',
   36, '$',
   37, '%',
   38, '&',
   39, "'", #!
   40, '(',
   41, ')',
   42, '*',
   43, '+',
   44, ',',
   45, '-',
   46, '.',
   47, '/',
   48, '0',
   49, '1',
   50, '2',
   51, '3',
   52, '4 <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	32754	32934	
==>_or,
  'let'        => \&_op_let,
  'let*'       => \&_op_let_star,
  'letrec'     => \&_op_letrec,
  'begin'      => \&_op_begin,
  'do'         => \&_op_do,
  'delay'      => \&_o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	487215	487463	
==>c/ops/math.ops\"\n  {{\@1}} = (INTVAL)ceil({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11642	11792	
==>e_url {
  my($self, $string) = @_;
  $string =~ s/([^\x00-\xFF])/'('.ord($1).')'/eg;
    #  Turn char 1234 into "(1234)"
  return $string;
}

#~~~~~~~~ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65878	65991	
==>m)
						      or  _no_rule("repetition",$line,"$code$argcode($1..)");

						!$matchrule and $rule and $rule->add <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	5524	5629	
==>}

    print "\nThe following non-ansi system includes are used:\n";
    foreach my $include (sort keys %s <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4420	4574	
==>rt_address($address)>

Implemented in subclasses to return the C code for C<restart
ADDRESS($address)>.

=item C<restart_offset($offset)>

Implemented in s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035457	1035553	
==>G * const lex_name = {{\@2}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name, c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036621	1036717	
==>G * const lex_name = {{\@2}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name, c <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	28842	28942	
==>b _op_make_point {
}

sub _op_real_part {
}

sub _op_imag_part {
}

sub _op_magnitude {
}

sub _op_an <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	3906	4041	
==>al "use $step_name;";
        die $@ if $@;

        my $step = $step_name->new;

        # XXX This works. but is probably not a good d <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	35872	35968	
==>t::Builder
will throw a warning and exit with 255.  If the test died, even after
having successfu <==
2	/Users/nnunley/parrot/lib/Test/More.pm	33943	34039	
==>t::Builder
will throw a warning and exit with 255.  If the test died, even after
having successfu <==
2	/Users/nnunley/parrot/config/inter/shlibs.pm	643	770	
==>ure::Step::Base);

use Parrot::Configure::Step ':inter';

$description = 'Determining flags for building shared libraries';

@ar <==
2	/Users/nnunley/parrot/config/init/hints/irix.pm	684	805	
==>get('cc');
    my $cxx  = $conf->data->get('cxx');
    my $ld   = $conf->data->get('ld');
    my $link = $conf->data->get( <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	3229	3607	
==>x$1\t$2";
                        $last_val = $2;
                    }
                    $values{$1} = $2;
                    eval $subst if ($subst ne '');
                    print INC ".constant $_\n";
                } elsif (/^\s+(\w+)\s*(?!=)/) {
                    $last_val++;
                    $values{$1} = $last_val;
                    local $_ = "$prefix$1\t$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863033	863273	
==>ine",
                  "CODE" => 979,
                  "ARGS" => [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 138 \"src/ops/string.ops\"\n  {{\@1} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19758	19931	
==>line 119 "lib/Regex/Grammar.y"
{ return op('multi_match' => [ 0, -1, FALSE, $_[1] ]); }
	],
	[#Rule 15
		 'expr', 2,
sub
#line 121 "lib/Regex/Grammar.y"
{ return op('multi_ma <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22300	22404	
==>ode) = @_;
  my $return;
  my $label = $self->_gensym();

  my $temp_0 = $self->_generate($node->{childre <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22801	22905	
==>ode) = @_;
  my $return;
  my $label = $self->_gensym();

  my $temp_0 = $self->_generate($node->{childre <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6125	6237	
==>y->[4],
EOM
    }
    $macros .=<<"EOM";
        MMD_USER_FIRST
} parrot_mmd_func_enum;

/* &end_gen */

#ifdef P <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	414	507	
==>methods defined here supply various default values and behaviour common
to all transforms.

Th <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15495	15743	
==>nt i
next i
print

' For loops.  3..6 nested in 1..3
function foo
	for y=3 to 6
	print y,
	next y
	foo=99
end function
for t%=1 to 3
  h=foo()
  print "    ", t%
next t%

' Swap
a$="Hello"
b$="Goodbye"
print a$,b$
swap a$,b$
print a$,b$


' Anti-cra <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18423	18523	
==>>current_block();
      my $sub_name = Jako::Construct::Expression::Value::Identifier->new($block, $t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776935	777104	
==>,
                              "n"
                            ],
                  "BODY" => "#line 382 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777844	778013	
==>,
                              "n"
                            ],
                  "BODY" => "#line 382 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(i <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	4695	4868	
==>text</a>";
        }
    }
    else
    {
        # Tidy up the C reference *s.
        $text =~ s|\b\s*\*\s+\b| \*|gs;
        
        esc($text);
    }
    
    print {$se <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	12409	12543	
==>AD_NAME(@_);
    }
    my $p;
    if (($p = $globals{$c})) {
	print <<EOC;
	# $p = global "$c" $cmt
EOC
    }
    elsif ($main_names{$c <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10451	10564	
==>es[$$stack[-1][0]]{ACTIONS}{error}.
#DBG>						 ".\n";

		push(@$stack, [ $$states[$$stack[-1][0]]{ACTIONS}{err <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9982	10092	
==>es[$$stack[-1][0]]{ACTIONS}{error}.
#DBG>						 ".\n";

		push(@$stack, [ $$states[$$stack[-1][0]]{ACTIONS}{err <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627211	627310	
==>al PMC enum (%d) in new\", (int){{\@2}});\n  }\n\n  /* Why?? If we're creating a continuation, the c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628355	628454	
==>al PMC enum (%d) in new\", (int){{\@2}});\n  }\n\n  /* Why?? If we're creating a continuation, the c <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	17450	17546	
==>ERWHILE_$_:
LOOPUP
}
my $docounter=0;
sub parse_do {
	$docounter++;
	if ($syms[NEXT] eq "until" o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931369	931657	
==>P" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932139	932427	
==>P" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	3848	3957	
==>DEBUG(0, "   ...converting left...");
    my $temp = $compiler->temp_reg($calc_type);
    $left = $left->compi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054381	1054473	
==>rom null namespace.\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to get null globa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055508	1055600	
==>rom null namespace.\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to get null globa <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	50119	50295	
==>ge[-1] }, $3;
        next;
      }
      #print "\nHOOBOY ", scalar(@{$lineage[-1]}), "!!!\n";
      
      push @{ $lineage[-1] }, '' if 2 == @{ $lineage[-1] };
      # Keep t <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	42499	42636	
==>] ne 'E') {
        unshift @stack, $treelet->[$i]; # recurse
        next;
      }
      
      DEBUG > 1 and print "Ogling E node ", pre <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	2258	2557	
==>s is of interest only to Pod::Simple
developers.


=head1 CAVEATS

Note that you should load this module I<before> loading Pod::Simple (or
any Pod::Simple-based class).  If you try loading Pod::Simple::Debug
after &Pod::Simple::DEBUG is already defined, Pod::Simple::Debug will
throw a fatal error to <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2256	2381	
==>TODO: Should we support non-global subs?
    $self->kind,
    $self->type,
    $name,
    undef,            # No value
    $pr <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	451	551	
==>, $left, $right) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, ' <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	442	542	
==>, $left, $right) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, ' <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2501	2637	
==>ed $left_type;
  $self->INTERNAL_ERROR("No type for right!") unless defined $right_type;

  $left = $left->compile($compiler);
  $right = <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2645	2787	
==>g  => 1,
            parrot_is_shared     => 1,

            sym_export => '__declspec(dllexport)',
            sym_import => '__declspec(dllim <==
2	/Users/nnunley/parrot/config/init/hints/cygwin.pm	1175	1302	
==>g => 1,
        parrot_is_shared    => 1,
        sym_export => '__declspec(dllexport)',
        sym_import => '__declspec(dllim <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	3312	3493	
==>undef ];
	$l =~ s/>>//;
    }
    my $source = undef;
    if ($l =~ /^\s*	     # intial space
	(?:(\d+)\s+)?   # optional line
	(\d+)\s+        # PC
	([\w+]+)\s+      # opcode e.g. S <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	214	318	
==>ate missing pythonic features
# in Parrot and how to translate Python stack-oriented bytecode to PIR.

us <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30392	30553	
==>ne "
              . $para->[1]{'start_line'}
              . ") unless the first thing after the =over is an =item"
            );
          }
          # Just t <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	1115	1267	
==>_compiler, invokable
  .get_from_HLL(inlined, '_tcl';'builtins', '$cmd')
  .local string pir_code
  .local int register_num
  (register_num,pir_code) = i <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	10209	10347	
==>=-7
print t%

' Expect 9
print (2+3*5-(6+abs(0-3)))+1


' Expect a Hello, World!
print "Hello, ";	' COmment
print "World!"

' Expect Correc <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	4545	4739	
==>int "$self 's source is arrayref $self->{'source_arrayref'}, with ",
       scalar(@{$self->{'source_arrayref'}}), " items left in it.\n";

      DEBUG > 3 and print "  Fetching ", Pod::Simple::M <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	12	102	
==>(C) 2004, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Docs/Group.pm 20333 2006-06-21T18: <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	20626	20781	
==>estore prior level, just in case.
                $builder->level($level);
            }
        }
    }

    # XXX this is broken WRT todo tests
    my %ex <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	1661	1906	
==>em * Misc: rationalize indent; clarify desc emptiness contract;
review readability of intra-comment blank line elimination; pod
handling;

=back

=cut

################################################################################

use Regexp:: <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	57160	57451	
==>ct_quotelike($_[0]) },
                                      ], undef, 1);

Finally, here is yet another way to do comma-separated value parsing:

        @fields = extract_multiple($csv_text,
                                  [
                                        sub { extract_delimited <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6068	6299	
==>= concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK0} = ${STEMP0}

# Decrement stack height.
dec stack_depth
PIR
	}

	return $pir;
}

sub post_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8114	8288	
==>= concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK0} = ${STEMP0}
goto PRE_STORE_${CURIC}_CONT

# Can do a lazy move.
PRE_STORE_${CURIC}_LAZY_MOVE: <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	3	108	
==>usr/bin/perl

use strict;
use warnings;

use Fatal qw{open};

# get a list of all the builtins we have.

m <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7303	7501	
==>d by
C<$out>, warnings and errors are directed to the file specified by C<$err>.

=cut

sub _run_command
{
    my ($command, $out, $err, $verbose) = @_;

    if ($verbose) {
        print "$command\n <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1487	1680	
==>ame);

  unless ($sym) {
#    $self->block->dump_symbols;
    $self->SYNTAX_ERROR("Call to unknown sub '%s'.", $name);
  }

  my %props = $sym->props;

  my @args  = $self->args;

  my @formal_a <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct.pm	5	117	
==>onstruct.pm
#
# Abstract base class for parsed constructs (blocks, etc.).
#
# Copyright (C) 2002-2005, The Perl F <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830631	830717	
==>1}};\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &i, STACK_ENTRY <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831372	831458	
==>1}};\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &i, STACK_ENTRY <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	4470	4663	
==>e "COMM");
		#print "Single if!\n" if $singleif;
		$ifline++;
		if ($type[NEXT] eq "INT") {  # if x then linenumber
			feedme;
			create_label();
			push @{$code{$seg}->{code}}, "\tbranch $label <==
2	/Users/nnunley/parrot/config/inter/ops.pm	223	351	
==>ps files to include.

=cut

package inter::ops;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Ste <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39969	40089	
==>ipt-off' => \&_op_transcript_off,

#--------------------
#
# Macros
#
#--------------------

  'let-syntax'          => \ <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	2185	2305	
==>ert .= "\t$c\n";
  }
  
  my $dump = '
  sub round {
	my ($a,$b,$c,$d) = @_[0 .. 3];
	my $r;

	' . $insert . '
	$_[0]+$a' <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	637	763	
==>n =~ /^[-]\d+(\.\d+)?[eE]/)) { # Dashes could be a neg. expt
      $token .= $ch;
    } elsif($ch eq '?' and
            $token <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6813	6946	
==>->skip('assign');        }
sub skip_colon         { return shift->skip('colon');         }
sub skip_comma         { return shift->skip <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	61	185	
==>at end of file.
# $Id: /parrot/tools/build/pbc2c.pl 19607 2006-05-30T15:23:20.183054Z coke  $

=head1 NAME

tools/build/pbc2c <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	57726	57884	
==>a comma...">.
The undef third argument means:
I<"...as many times as possible...">,
and the true value in the fourth argument means
I<"...discarding anything e <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	1598	1699	
==>st_load not implemented for current stack to register mapper\n";
}

# Pre and post store operation hoo <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	1809	2043	
==>n' => 'tools/build/dynoplibs.pl',
        commentType                             => '#',
        replace_slashes                         => 0,
        conditioned_lines                       => 1
    );
    genfile(
        'config/ge <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	25	163	
==>, The Perl Foundation.
# $Id: /parrot/config/auto/cgoto.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/cgoto.pm - C <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4224	4336	
==>ady loaded ?
		and	return;
	}
	my($fname)=__FILE__;
	my(@drv);
	open(DRV,"<$fname") or die "Report this as a <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4009	4116	
==>ady loaded ?
		and	return;
	}
	my($fname)=__FILE__;
	my(@drv);
	open(DRV,"<$fname") or die "Report this as a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789809	789986	
==>table->get_string_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790719	790896	
==>table->get_string_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539294	539551	
==>],
                  "TYPE" => "inline",
                  "CODE" => 624,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 995 \"src/ops/math. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147297	147495	
==>->vtable->get_integer(interpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148238	148436	
==>->vtable->get_integer(interpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988250	988882	
==>" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1107,
                  "ARGS" => [
                              "i",
                              "i",
                              "sc",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896630	897092	
==>e",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1012,
                  "ARGS" => [
                              "s",
                              "i",
                              "i",
                              "s" <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	5833	5996	
==>Test
            .local pmc p6rule_compile
            load_bytecode "PGE.pbc"
            p6rule_compile = compreg "PGE::P6Regex"

            .local string target <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	17023	17223	
==>lue );|;
}


sub print_tail {
    my ($put_pointer_ref) = @_;

    my $put_pointer = join("\n", @{$put_pointer_ref});
    print NCI << "TAIL";


/* This function serves a single purpose. It takes the f <==
2	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	123	240	
==>ke  $

package init::hints::dec_osf;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    # Tru64
    my $ccfl <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	1608	1757	
==>ks
    $text =~ s[^{.+?^}][]msg;

    # Split on paragraphs
    my @funcs = split /\n{2,}/, $text;

    # If it doesn't start in the left column, it's <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25944	26254	
==>commented_out

    #
    # Bare Blocks:
    #
    #   <label>: {
    #   {
    #

    if ($token->is_open_brace) {
      my $label = $last_token->text
        if $last_token->is_label;

      $self->begin_block($label, 'bare', undef);

      next;
    }

    #
    # Conditional Continuations:
    #
    #   } e <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	8583	8719	
==>unless exists $typemap{ $type };

    return $typemap{ $type };
}

sub parse_params
{
    my $params = shift;

    my @params;

    while <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	1359	1512	
==>l cc_run() or die "Can't run the test program: $!";
        if (defined $gnuc{__GNUC__}) {
            $link = 'g++';
        } else {
            $link = <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	7671	7784	
==>eturn('no_plan') if $self->{No_Plan};
    return(undef);
};


=item B<skip_all>

  $Test->skip_all;
  $Test->skip_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	171	347	
==>cary things happen: parsing lines into
#  paragraphs; and then into directives, verbatims, and then also
#  turning formatting sequences into treelets.
#
# Are you really sure y <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653479	653586	
==>, {{\@1}}))\n        real_exception(interpreter, resume, METH_NOT_FOUND,\n            \"Method '%s' not foun <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654640	654747	
==>, {{\@1}}))\n        real_exception(interpreter, resume, METH_NOT_FOUND,\n            \"Method '%s' not foun <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	11136	11230	
==>Str :$depends) returns Bool is export`
- `unlike (Str $got, Rule $expected, Str $desc?, Bool :$ <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	8550	8834	
==>lf->{fh};
        print {$FH} "\n";
        print {$FH} "$op->{arg1}->{symbol}:\n";
    }

    sub visitSubDir {
        my $self  = shift;
        my ($dir) = @_;
        my $FH    = $self->{fh};
        print {$FH} "\n";
        print {$FH} ".sub $dir->{result}->{symbol} : <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	61	212	
==>ammar Engine

=head1 SYNOPSIS

In a .t file:

  use Parrot::Test tests => 2;
  use Parrot::Test::PGE;

  p6rule_is('abc', '^abc', 'BOS abc');
  p6rule_i <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	18327	18524	
==>_dump( [$dir1, $dir2], $file );

Read in the class definition found in $file (which is found in one
of the given directories) and recreate the data structure.

=cut

sub read_dump {
    my ($include <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	22384	22624	
==>(!defined $is) {
          print "   Code $was<> is UNKNOWN!\n";
        } elsif($is eq $was) {
          DEBUG > 4 and print "   Code $was<> stays the same.\n";
        } else  {
          print "   Code $was<> maps to ",
           ref($is <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	12830	12998	
==>op";
            $opbody =~ /vtable->(\w+)/;
            $extern = vtable_num($1);
            #print "$jit_func $extern\n";
        }

        elsif ($op->jump =~ /JUMP <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	12594	12751	
==>op";
            $opbody =~ /vtable->(\w+)/;
            $extern = vtable_num($1);
            #print "$jit_func $extern\n";
        }
        elsif ($op->ful <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8391	8615	
==>e "Can't restore  stderr" if $err;

    if ($verbose) {
        foreach ($out, $err) {
            if (   (defined($_))
                && ($_ ne File::Spec->devnull)
                && (!m/^&/)) {
                open(my $ou <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	25656	25804	
==>e first character in $delim.

	($extracted, $remainder) = extract_delimited($text,$delim);


 # Extract the initial substring of $text that is bracke <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1671	1801	
==>->{symbol} = $op->{op} $op->{arg1}->{symbol}\n";
    }

    sub visitBinaryOp {
        my $self = shift;
        my ($op) = @ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	21506	21723	
==>, '$_->[1]'
	P2["$_->[0]"]= P1
USERTYPE
			}
		}
	
		print CODE<<FINDIM;
	save P2
	popp
	restore P0
	ret
COPY_$typename:  		# Source in P6 Dest in P1 (don't trash P0)
	#print "--Copying a $typename\\n"
	pushp			# Makes <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	4196	4472	
==>@pc_list ];

    # change instructions at block leaders to enternative calls
    substr($byte_code, 0, sizeof('op')) = $enternative;

    while (@pc_list) {
	my $instr_pc = shift @pc_list;
	# block leader found, start new block
	if(exists $leaders{$instr_pc}) {
	    #substr($b <==
2	/Users/nnunley/parrot/lib/Test/More.pm	5378	5480	
==>asic multi-variable
  not ok 5 - simple exponential
  ok 6 - force == mass * acceleration

The later gi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747984	748120	
==>c"
                            ],
                  "BODY" => "#line 194 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_integer_native(inter <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2117	2320	
==>".(-$distance);
    }

    return ("add <rx_pos>, $distance # $comment");
}

sub output_add {
    my ($self, $var, $arg1, $arg2) = @_;
    my $realvar = value($var);
    return "add $realvar, $arg1, $arg2 <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27275	27378	
==>pre-translate for $rule->{'name'}");

		# If we have PIR for the instruction, just take that. If not, we <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34414	34517	
==>pre-translate for $rule->{'name'}");

		# If we have PIR for the instruction, just take that. If not, we <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039752	1040229	
==>GS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1162,
                  "ARGS" => [
                              "sc",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 120 \"src/op <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	4302	4477	
==>_source_item('', 'byteorder'),
        ),
        $self->new_group(
            'Data Types',
            '',
            $self->c_pair_item('', 'datatypes'),
            $self <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961412	961840	
==>ncoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1082,
                  "ARGS" => [
                              "s",
                              "sc",
                              " <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1390	1613	
==>REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hires() <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1390	1613	
==>REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hires() <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	298	408	
==>r. Just base this class on a hash.
sub new() {
	my $invocant = shift;
	return bless {}, $invocant;
}

# Pre-tra <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	206	316	
==>r. Just base this class on a hash.
sub new() {
	my $invocant = shift;
	return bless {}, $invocant;
}

# Pre-tra <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	1205	1350	
==>uration file name itself.  In the event
you have specified an option both in the configuration file and the
command line, the command line takes p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104890	105167	
==>2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100442	100716	
==>2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "b <==
2	/Users/nnunley/parrot/config/auto/gc.pm	1529	1748	
==>ere
    unless ($test >= 128 && $test < 155) {
      # if not, use own copy of malloc
      $gc = 'malloc';
    }

=cut

    }

    if ($gc =~ /^malloc(?:-trace)?$/) {
        $conf->data->set(
            TEMP_gc_c => < <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962374	962937	
==>ncoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1083,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 595 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(int <==
2	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1880	2013	
==>e);

package CallOp;
use base qw(Lua::opcode);

package CallMethOp;
use base qw(Lua::opcode);

package LabelOp;
use base qw(L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686459	686719	
==>{\@3}}->vtable->getprop(interpreter, {{\@3}}, {{\@2}});\n   {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687349	687609	
==>{\@3}}->vtable->getprop(interpreter, {{\@3}}, {{\@2}});\n   {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Compilers.pm	791	914	
==>lers/ast',
            'compilers/imcc' ),
        $self->new_group( 'PGE', 'the Parrot Grammar Engine',
            'com <==
2	/Users/nnunley/parrot/config/auto/signal.pm	1985	2117	
==>lit(' ', $Config{sig_name})) {
        print O ".constant SIG$name\t$i\n" if $i;
        $i++;
    }
    close O;
    
    return $se <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1631	1753	
==>ub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'assign' });
  $self->left->sax($ha <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	4220	4337	
==>ub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'assign' });
  $self->dest->sa <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	6302	6534	
==>PUT} ) {

            if ( $parser->YYData->{shebang} ) {
                $parser->YYData->{shebang} = undef;
                s/^#(.*)\n//    # Shebang
                    and $parser->YYData->{lineno}++,
                    la <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106247	1106336	
==>typ < 1 || typ >= interpreter->n_vtable_max)\n\treal_exception(interpreter, NULL, E_ValueE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107223	1107312	
==>typ < 1 || typ >= interpreter->n_vtable_max)\n\treal_exception(interpreter, NULL, E_ValueE <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	60653	60818	
==>"'$1'");
		}
		elsif ($grammar =~ m/$INTERPLIT/gco)
		{
			_parse("an interpolated literal terminal", $aftererror,$line);
			$item = new Parse::RecDescent::InterpLit( <==
2	/Users/nnunley/parrot/config/init/hints/os2.pm	352	565	
==>y be
    # using OS/2
    $conf->data->set(
        libs     => "-lm -lsocket -lcExt -lbsd",
        iv       => "long",
        nv       => "double",
        opcode_t => "long",
        ccflags  => "-I. -fno-stric <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	16770	16911	
==>order);

     $template .= 'push result, ' . $order[0] . "\n";

          $template .= << 'END_PIR';
    goto loop
loop_done:
    # return the <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9079	9250	
==>$$errstatus
        or   do {

            $$errstatus = 1;
            &$error($self);
                $$errstatus # if 0, then YYErrok has been called
            o <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8669	8834	
==>$$errstatus
        or   do {

            $$errstatus = 1;
            &$error($self);
                $$errstatus # if 0, then YYErrok has been called
            o <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	440	537	
==>pl [options]

=head1 DESCRIPTION

Use a detailed MANIFEST to install a set of files.

=head2 Optio <==
2	/Users/nnunley/parrot/config/auto/jit.pm	2275	2461	
==>ppc  => 1,	
	# all others are seriously b0rked
    );

    if (-e "$jitbase/$cpuarch/core.jit" && $jit_is_working{$cpuarch}) {
        $jitcapable = 1;
    }

    if (-e "$jitbase/$cpuarc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716495	716594	
==>terpreter, p));\n  if (s) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724387	724486	
==>terpreter, p));\n  if (s) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	600	730	
==>gs');
    if ($ld_share_flags !~ /-fPIC/) {
        $ld_share_flags .= ' -fPIC';
    }

    if ($cc =~ /icc/) {

        # Intel C+ <==
2	/Users/nnunley/parrot/Configure.pl	2465	2604	
==>ype)>

Use the given type for C<INTVAL>.

=item C<--floatval=(type)>

Use the given type for C<FLOATVAL>.

=item C<--opcode=(type)>

Use the <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2055	2188	
==>Checking $file..\n";
    trim_whitespace($file, $source);

    # The following MUST apply.
    check_tabs($file, $source);
    check_c <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37316	37428	
==>if ($char eq 'F');
    return 'v' if ($type eq 'void');
    return '?';
}

=item C<signature($params)>

Returns t <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1320	1427	
==>ranslation hook.
sub pre_translation() {
	# We need a stack depth and a string for label gen and some
	# sto <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	407	514	
==>ranslation hook.
sub pre_translation() {
	# We need a stack depth and a string for label gen and some
	# sto <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1565	1689	
==>::More::$meth"};
        my $ok = &{"Test::More::$meth"}( @_ );
        # if( $ok ) { foreach my $meth ( $lang_f, $pasm_f, $b <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1481	1605	
==>::More::$meth"};
        my $ok = &{"Test::More::$meth"}( @_ );
        # if( $ok ) { foreach my $meth ( $lang_f, $pasm_f, $b <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	34236	34401	
==>nded by
matched brackets, such that any other (left or right) delimiter
bracket I<within> the substring is also matched by an opposite
(right or left) delimiter brack <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11047	11141	
==>nopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/sprintf('%%%02X',ord($1))/eg;
        # Yes <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4396	4489	
==>nopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/sprintf('%%%02X',ord($1))/eg;
       # Yes <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	19428	19595	
==>ts you plan to run
and terminates the test.

If you're running under no_plan, it skips once and terminates the
test.

=end _unimplemented

=back


=head2 Test style

=o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	624491	624702	
==>inline",
                  "CODE" => 702,
                  "ARGS" => [
                              "pc"
                            ],
                  "BODY" => "#line 247 \"src/ops/pic.ops\"\n    Parrot_MIC <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	13826	13951	
==>tch::reftree {
    my $op = shift;
    return annotated($op, "match(" . $op->render(@_) . ")");
}

sub Regex::Ops::Tree::charc <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8550	8635	
==>3)
next
print
data "ABANDON","CHART","COMPUTER"
data "DAMAGES","DESTRUCT","DOCK","IDLE <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21414	21499	
==>3)
next
print
data "ABANDON","CHART","COMPUTER"
data "DAMAGES","DESTRUCT","DOCK","IDLE <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	22067	22409	
==>odes ];
}

sub BuildRelop {
    my ( $parser, $expr1, $op, $expr2 ) = @_;
    my %opcode = (
        '<'  => 'islt',
        '<=' => 'isle',
        '>'  => 'isgt',
        '>=' => 'isge',
        '==' => 'iseq',
        '~=' => 'isne',
    );
    my @opcodes = ();
    my $flag = new_tmp( $parser, 'int' );
    push @opcodes, @ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3102	3289	
==>@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__END__

=head1 NAME

Pod::Simple::Text -- format Pod as plaintext

=head1 SYNOPSIS

  perl -MPod::Simple::Text -e \
   "exit Pod::Simple::Text->filter(shift <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	5954	6102	
==>on is true.
            if ($line =~ m/^#CONDITIONED_LINE\(([^)]+)\):(.*)/s) {
                next unless $conf->data->get($1);
                $lin <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	45353	45546	
==>' => 212
		}
	},
	{#State 211
		ACTIONS => {
			'END' => 213
		}
	},
	{#State 212
		DEFAULT => -4,
		GOTOS => {
			'block' => 214,
			'chunk' => 57
		}
	},
	{#State 213
		DEFAULT <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38776	39008	
==>"CODE" => 49,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 720 \"src/ops/core.ops\"\n  if ({{\@1}} == EXCEPT_doom <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10750	10839	
==>0}

# Next parameter.
dec stack_depth
goto pre_call_PLOOP_${CURIC}
PRE_CALL_PLOOP_END_${CU <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8003	8092	
==>0}

# Next parameter.
dec stack_depth
goto pre_call_PLOOP_${CURIC}
PRE_CALL_PLOOP_END_${CU <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	7876	8120	
==>/;
        s/#.*$//;
        s/\s*$//;
        s/^\s*//;
        next unless $_;
        ($name, $number) = split(/\s+/, $_);
        $seen{$name} = $number;
        $fixed{$name} = $number if ($fix);
    }
    close OP;
    open OP, "> $file" o <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	3027	3326	
==>$values{$2})) {
                        $_        = "$prefix$1\t" . $values{$2};
                        $last_val = $values{$2};
                    } else {
                        $_        = "$prefix$1\t$2";
                        $last_val = $2;
                    }
                    $value <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	15311	15606	
==>(@_) if $self->{'complain_stderr'};
  return $self->_complain_errata(@_);
}

sub _complain_warn {
  my($self,$line,$complaint) = @_;
  return printf STDERR "%s around line %s: %s\n",
    $self->{'source_filename'} || 'Pod input', $line, $complaint;
}

sub _complain_errata {
  my($self,$line,$com <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	3962	4087	
==>es'),
            $self->c_header_item('', 'op'),
            $self->c_header_item('', 'oplib'),
        ),
        $self->new <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1579	1699	
==>};
        my $ok = &{"Test::More::$meth"}( @_ );
        # if( $ok ) { foreach my $meth ( $lang_f, $pasm_f, $by_f, $out_ <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1495	1615	
==>};
        my $ok = &{"Test::More::$meth"}( @_ );
        # if( $ok ) { foreach my $meth ( $lang_f, $pasm_f, $by_f, $out_ <==
2	/Users/nnunley/parrot/tools/dev/manicheck.pl	344	469	
==>k the MANIFEST file

=head1 SYNOPSIS

    % perl tools/dev/manicheck.pl

=head1 DESCRIPTION

Check the contents of the F<MANIF <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477141	477369	
==>by zero\");\n  {{\@1}} = (INTVAL)floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478037	478265	
==>by zero\");\n  {{\@1}} = (INTVAL)floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	6838	6945	
==>pname, $n;
}

print OUT <<END_C;
} parrot_opcode_enums;

#endif

END_C
close OUT;


# if opcode numer is not <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	6358	6453	
==>acs variables at the end of the file
	    if(!$comment_is_at_beginning && /c-indentation-style/) <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30821	30955	
==>load\n";
		$pir .= sub_meta($post_load, $mv, "post_load for rule $rule->{'name'}");
		$pir .= "### end post_load\n";

        # Emit co <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	201	315	
==>our $VERSION = 0.01;

sub get_out_fn {
    my $self = shift;
    my ( $count ) = @_;

    return Parrot::Test::per_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666232	666561	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "elements",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => " <==
2	/Users/nnunley/parrot/languages/APL/t/APL.pm	1250	1425	
==>g. Why?
      }
    }
    else {
      $output = "\n"; # this lets todo tests not bother specifying an out.
                      # XXX also gives us a way to specify a blank o <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	974	1058	
==>C ((size_t)((opcode_t*)cur_opcode - (opcode_t*)interpreter->code->prederef.code))
#de <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1104	1188	
==>C ((size_t)((opcode_t*)cur_opcode - (opcode_t*)interpreter->code->prederef.code))
#de <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615753	616011	
==>=> 697,
                  "ARGS" => [
                              "i",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 508 \"src/ops/object.ops\"\n    opcode_t *next = { <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	17412	17532	
==>>{code}}, <<LOOPUP;
	goto WHILE_$_
AFTERWHILE_$_:
LOOPUP
}
my $docounter=0;
sub parse_do {
	$docounter++;
	if ($syms[NEXT <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	12038	12179	
==>f = per_test('.past', $test_no);
            }
            elsif ( $func =~ m/^pbc_output_/ ) {
                $code_f = per_test('.pbc', $te <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744307	744540	
==>ng_from_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745073	745306	
==>ng_from_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	4273	4427	
==>e = $arg_type->imcc;

      $compiler->emit("  .param $imcc_type $arg_name");
      $sig .= $arg_type->code;
    }

    $sig =~ tr[INPS][ifpt]; # Defaults. <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5954	6066	
==>nal, so next instruction needs to
	# have an empty stack type state propogated to it if nothing has been
	# propo <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3892	4004	
==>nal, so next instruction needs to
	# have an empty stack type state propogated to it if nothing has been
	# propo <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1962	2098	
==>n "PushScopeF\n";
}

sub PopScopeF {
    my ($parser) = @_;

    my $lex_num = shift @{ $parser->YYData->{scopef} };
    $parser-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621386	621493	
==>d = NULL;\t/* just for gcc */\n    }\n    lru = &mic->lru;\n    if (lru->u.signature == sig) {\n\tif (sig) { <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	747	891	
==>ss call branch jump jsr ret invoke invokecc throw 
    rethrow die_hard .emit .eom .sub .end .pcc_begin
    .pcc_end .pcc_sub .pcc_begin_return . <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10870	10967	
==>, removes the instance from
the cache, and undefines it.

Raises an exception if the delete fails. <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	12774	12894	
==>r, $rdel_outer)
	{
		$_ = '('.join('|',map { quotemeta $_ } split('',$_)).')'
	}
	pos = $posbug;

	my @match = _match_cod <==
2	/Users/nnunley/parrot/tools/dev/symlink.pl	48	189	
==>hadowing the Parrot source tree.  Nifty for
# having just one (read-only) copy of the sources but several different
# build trees.  The -v opt <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1202	1379	
==>or my $t ( keys %{$tests} ) {
    for my $s ( keys %$streams ) {
        $test_map->{join( '_' => $lang, $s, $t )} = {
            lang   => $lang,
            stream => { name = <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12230	12375	
==>turn $href if defined $href;
    }
    
    return 'TODO';
}

=item C<href_for_perl_module($module)>

Returns the path to the Perl module's HTML f <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5914	6015	
==>bose') && $self->get('verbose') == 2;

    print "Looking up trigger $trigger on configuration key $ke <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	11766	11903	
==>rted encodings are: @supported]"
    ;

    $self->scream( $self->{'line_count'}, $enc_error );
  }
  push @{ $self->{'encoding_command_st <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	20051	20207	
==>2, $rdel2);
		if ($ldel1 =~ /[[(<{]/)
		{
			unless ($$textref =~ /\G\s*(\S)/gc)	# SHOULD USE LOOKAHEAD
			{
				_failmsg "Missing second block for quotelike <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104002	1104108	
==>= pmc_type(interpreter, class);\n\t}\n\tif (type <= 0)\n\t\treal_exception(interpreter, NULL, NO_CLASS,\n\t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105217	1105323	
==>= pmc_type(interpreter, class);\n\t}\n\tif (type <= 0)\n\t\treal_exception(interpreter, NULL, NO_CLASS,\n\t <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	46908	47065	
==>=

sub filter {
  my($class, $source) = @_;
  my $new = $class->new;
  $new->output_fh(*STDOUT{IO});
  
  if(ref($source || '') eq 'SCALAR') {
    $new->parse <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	20032	20252	
==>direction
                my $level = $builder->level();
                $builder->level(2);

                # Load module that knows how to test the language implementation
                require "Parrot/Test/$language <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11380	11477	
==>e_node->label, "\"!";
  }
  ...else print/interpolate $text...

=head1 DESCRIPTION

This module pr <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34894	35010	
==>ods.

=cut

sub body
{
    my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existin <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36197	36313	
==>ods.

=cut

sub body
{
    my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # existin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8716	8809	
==>=> "#line 182 \"src/ops/core.ops\"\n    char * const label = string_to_cstring(interpreter, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9832	9925	
==>=> "#line 182 \"src/ops/core.ops\"\n    char * const label = string_to_cstring(interpreter, {{ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2801	2930	
==>t_element({ Name => 'block', Attributes => { kind => 'then' } });
  $_->sax($handler) foreach $self->content;
  $handler->end_elem <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	12288	12403	
==>i", 1)
 *
 * returns >= 0 (found idx into info_table), -1 if not
 */

static int get_op(const char * name, int full) <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	3715	3945	
==>or $text =~ /^\#/;
    return &describe_misc_file($info,$text);
}

sub describe_misc_file {
    my($info,$text) = @_;
    my $top = $text;
    &clip_excess_lines($top,15);
    $top =~ s/^ {0,1}(\S)/  $1/mg; # minimum indent
    $in <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2772	2870	
==>} 
	}
}

my $inputcounts=0;
sub input_read_assign {
	my($prompt,$filedesc,$noreloop)=@_;
	my @value <==
2	/Users/nnunley/parrot/config/auto/readline.pm	1878	2014	
==>s_readline,
	);
    }
    unless ($has_readline) {

        # The Config::Data settings might have changed for the test
        $conf->da <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	8903	8992	
==>ffset}?'
	my $thisoffset;
	tie $thisoffset, q{Parse::RecDescent::OffsetCounter}, \$text, $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2600	2728	
==>$actual_arg_type;

    if ($formal_arg_type->name ne $actual_arg_type->name) {
      my $temp = $compiler->temp_reg($formal_arg_t <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2300	2428	
==>$actual_arg_type;

    if ($formal_arg_type->name ne $actual_arg_type->name) {
      my $temp = $compiler->temp_reg($formal_arg_t <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	3739	3847	
==>ok( defined($btaste) && ref $btaste eq 'Film,     'new() works' );

    ok( $btaste->Title      eq 'Bad Taste <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	14926	15040	
==>ams = join(",", @$args);
        my @tempi = grep { defined $temp[$_] } 0..$#$args;
        my $temp_decl = join("\ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	3491	3597	
==>ock stack and return it. Bounds checks the block
# stack to make sure we don't pop off the file scope block <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	5127	5358	
==>.
#

sub require
{
  my $self = shift;

#  DEBUG(0, "Requiring '$kind'");
  
  $self->SYNTAX_ERROR("Expected %s, but found '%s'.", @_ > 1 ? "one of (" . join(", ", @_) . ")" : $_[0], $self->get(1)->text)
    unless grep { $self->get <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2520	2691	
==>membering symbol '$name' as sub...");

  $block->set_symbol($name, $sym);

  $block->push_content($self);

  return $self;
}

# block handled by superclass?

sub kind  { re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1108361	1108514	
==>)\n                real_exception(interpreter, NULL, NO_CLASS,\n                    \"Class '%Ss' not found\", PMC_str_val({{\@2}}));\n            {{\@1}} <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4005	4293	
==>tch {                       # a catch statement

        |                               # or
        proc                            # a procedure definition
        test \s+ (\S+)                  # test ident
             \s+ \{ ([^}]+) \}          # test description
             \s+ ( <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2126	2342	
==>rong"
if 5<=5 then print "Ok" else print "Wrong"
if 6<=5 then print "Wrong" else print "OK"
if 4=5 then print "Wrong" else print "Ok"
if 5=4 then print "Wrong" else print "Ok"
if 5=5 then print "Ok" else print "Wrong" <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	12719	12967	
==>return $classname,
           {
               pre          => $pre,
               flags        => $flags,
               methods      => \@methods,
               post         => $post,
               class        => $classname,
               has <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2702	2794	
==>> 'Project info',
	'harness' => 'Perl test harness',
	'INSTALL' => 'Installation documentatio <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	11871	12061	
==>s');

    push @ops, (
                         $self->dbprint("trying classmatch\n"),
                         aop('classmatch', [ $incexc, $lastback ]),
                         aop('increm <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2431	2529	
==>ight->type;
  }

  $self->INTERNAL_ERROR("No type for dest!")  unless defined $dest_type;
  $self-> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2353	2451	
==>ight->type;
  }

  $self->INTERNAL_ERROR("No type for dest!")  unless defined $dest_type;
  $self-> <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	1321	1425	
==>my ($self, $conf) = @_;

    my $file = "src/core_pmcs.c";
    my @pmcs = split(/ /, $conf->data->get('pm <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	40234	40365	
==>p_syntax_rules,
  'let-syntax'          => \&_op_let_syntax,
  'syntax'              => \&_op_syntax,
  'identifer?'          => \&_ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	47323	47422	
==>nt),

=item [6]

"EOMSG" (i.e. the right delimiter of the here document),

=item [7..10]

"" (a here <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	15753	15848	
==>le.
    $cout .= $self->line_directive($method->{line}, $self->{file});
    $cout .= "{$standard <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931339	931624	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932109	932394	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" <==
2	/Users/nnunley/parrot/lib/Test/More.pm	10563	10706	
==>in those cases where you are comparing numbers and
is()'s use of C<eq> will interfere:

    cmp_ok( $big_hairy_number, '==', $another_big_hairy_ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	8644	8789	
==>OUT             or die "Can't close    stdout" if $out;
    close STDERR             or die "Can't close    stderr" if $err;

    open  STDOUT, "> <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8188	8308	
==>OUT or die "Can't close    stdout" if $out;
    close STDERR or die "Can't close    stderr" if $err;

    open STDOUT, "> <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5200	5340	
==>exists $op->{result} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $first = 1;
            foreach ( @{ <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6232	6372	
==>exists $op->{result} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $first = 1;
            foreach ( @{ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	10950	11138	
==>SION({ stuff => '$X99', choose => 1 });
	feedme();
	push @{$code{$seg}->{code}}, <<EOASS;
@code
EOASS
		if ($syms[CURR] eq ",") {
			#feedme();
			next;
		}
	}
}
sub parse_swap {
	my(@f, @s <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30785	30896	
==>ext;' : '' ) .'
';

	return $code;
}

1;

package Parse::RecDescent::InterpLit;

sub sethashname { $_[0]->{hashn <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	3848	3979	
==>_count{$f} = $n;
		for (my $i = 0; $i < $n; $i++) {
		    my ($a, $def) = split(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a = qq! <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	4347	4478	
==>_count{$f} = $n;
		for (my $i = 0; $i < $n; $i++) {
		    my ($a, $def) = split(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a = qq! <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	997	1181	
==>he file system tree from the current working directory
looking for the distribution directory, and returns it if it finds it.
The search is only performed once.

The criterion is that t <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	3083	3228	
==>e;
            $self->{builder}->diag($diag) if $diag;
        }

        # The generated files are left in the t/* directories.
        # Le <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2677	2819	
==>e;
            $self->{builder}->diag( $diag ) if $diag;
        }

        # The generated files are left in the t/* directories.
        # Le <==
2	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1695	1842	
==>package NewOp;
use base qw(Lua::opcode);

package NewClosureOp;
use base qw(Lua::opcode);

package CloneOp;
use base qw(Lua::opcode);

pack <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527102	527394	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":ba <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527855	528147	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":ba <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	12843	13005	
==>$_)).')'
	}
	pos = $posbug;

	my @match = _match_codeblock($textref, $pre,
				     $ldel_outer, $rdel_outer,
				     $ldel_inner, $rdel_inner,
				     $rd);
	re <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3475	3631	
==>self)=shift;

	$$self{LEX};
}


#################
# Private stuff #
#################


sub _CheckParams {
	my($mandatory,$checklist,$inarray,$ou <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3299	3443	
==>self)=shift;

	$$self{LEX};
}


#################
# Private stuff #
#################


sub _CheckParams {
	my($mandatory,$checklist,$inarray,$ou <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	37439	37596	
==>string_eq_p,
  'string<?'      => \&_op_string_lt_p,
  'string>?'      => \&_op_string_gt_p,
  'string<=?'     => \&_op_string_le_p,
  'string>=?'     => \&_o <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	193	326	
==>$ind = 0;
sub _build_tree {
  my ($tokens,$count) = @_;
  my $temp   = {};

  die "EOF reached" if $count >= $#$tokens;

  if ($tokens <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	359	474	
==>ss {};
}

sub output_is() {
    my ($self, $code, $output, $desc) = @_;
  
    my $count = $self->{builder}->current <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	397	512	
==>ss {};
}

sub output_is() {
    my ($self, $code, $output, $desc) = @_;
  
    my $count = $self->{builder}->current <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39005	39147	
==>) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $parser->Error("no loop to b <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	5860	5955	
==>. you can just use Test::More instead of Test::Simple in your
programs and things will still wor <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	35484	35765	
==>,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -68
	},
	{#State 132
		ACTIONS => {
			"^" => 79
		},
		DEFAULT => -62
	},
	{#State 133
		ACTIONS => {
			"^" => 79
		},
		DEFAULT => -60
	},
	{#State 134
		ACTIONS => {
			'NAME' => 174
		}
	},
	{#State 135
		D <==
2	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	1944	2033	
==>ubstitutions
close(T);

unlink "basic.pbc";
system("../../../parrot -o basic.pbc merged_ba <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	2580	2691	
==>print <<'END';

Can't find a float type with size 4, conversion ops might fail!

END
    }
    if ($results{doub <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	5663	5831	
==>->{DEBUG};
    my @ops;
    $what = "%<rx_pos>: $what";
    foreach my $part ($what =~ /((?:\%\<\w+\>)|[^\%]+)/g) {
        if ($part =~ /^%/) {
            push @ops, a <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	17766	17896	
==>$#itempos]{'line'}{'to'}   = $prevline;
		$itempos[$#itempos]{'column'}{'to'} = $prevcolumn;
	}
}

sub code($$$$)
{
	my ($self,$nam <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2331	2454	
==>f->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exists($$self{USER})
	or	$$self{USER}={};

	$$se <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2244	2356	
==>f->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exists($$self{USER})
	or	$$self{USER}={};

	$$se <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2269	2363	
==>m C<access_arg($type, $value, $op)>

Returns the C code for the specified op argument type (see <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3160	3254	
==>m C<access_arg($type, $value, $op)>

Returns the C code for the specified op argument type (see <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	4297	4427	
==>16,
 'Ugrave'   , 217,
 'Uacute'   , 218,
 'Ucirc'    , 219,
 'Uuml'     , 220,
 'Yacute'   , 221,
 'THORN'    , 222,
 'szlig'    , <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	285	381	
==>o;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

us <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	43849	44063	
==>r = "E<$content>"; # better than nothing
      } elsif($charnum >= 255 and !UNICODE) {
        $replacer = ASCII ? "\xA4" : "?";
        DEBUG > 1 and print "This Perl version can't handle ", 
          "E<$content> <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	11491	11644	
==>thing else
        my $test = !defined $got && !defined $expect;

        $self->ok($test, $name);
        $self->_is_diag($got, '==', $expect) unless $te <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	11073	11202	
==>thing else
        my $test = !defined $got && !defined $expect;

        $self->ok($test, $name);
        $self->_is_diag($got, ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	310826	310990	
==>> 0,
                  "NAME" => "debug_print",
                  "FLAGS" => ":base_debug",
                  "ARGDIRS" => [],
                  "TYPE" => "function" <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	2800	2903	
==>m C<goto NEXT()>

Transforms to C<PC' = PC + S>, where C<S> is the size of an op.

=item C<goto ADDRESS( <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9655	9759	
==>fo_from_token(${ASSEMBLY}, ${ARG0})

# If it's a call to instantiate, need to knock off first arg.
if "${ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7169	7273	
==>fo_from_token(${ASSEMBLY}, ${ARG0})

# If it's a call to instantiate, need to knock off first arg.
if "${ <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	10656	10762	
==>`use_ok (Str $module, Bool :$todo, Str :$depends) returns Bool`

*NOTE:* This function currently uses `requ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	10160	10353	
==>hat, 'this eq that' );

    # ok( $this == $that );
    cmp_ok( $this, '==', $that, 'this == that' );

    # ok( $this && $that );
    cmp_ok( $this, '&&', $that, 'this && that' );
    ...etc... <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	1236	1340	
==>a$
sub mysub
	print "In the sub\n"
	print i
	print j
	print a$
	print c$
end sub
j=2
i=5
a$="Hello"
c$="W <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738184	738409	
==>{{\@1}} = string_to_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738948	739173	
==>{{\@1}} = string_to_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2560	2667	
==>!", ref $args[$i])
      unless defined $actual_arg_type;

    if ($formal_arg_type->name ne $actual_arg_typ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2260	2367	
==>!", ref $args[$i])
      unless defined $actual_arg_type;

    if ($formal_arg_type->name ne $actual_arg_typ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7385	7523	
==>sc ? " ($db_desc)" : "";
        return ("set <rx_tmp>, <rx_stack>",
                $self->pushop . " <rx_stack>, $reg",
                $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095217	1095464	
==>ter, {{\@1}});\n  {{+=2}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095912	1096159	
==>ter, {{\@1}});\n  {{+=2}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	4791	4931	
==>st::Perl::MD5;
	    import Digest::Perl::MD5 'md5_hex'
	  }		
	}

If the C<Digest::MD5> module is available it is used and if not you take
C< <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	443	543	
==>r.pm file----------------------------------------
{
#
# Module Parse::Yapp::Driver
#
# This modu <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	432	527	
==>r.pm file----------------------------------------
{
#
# Module Parse::Yapp::Driver
#
# This modu <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	2286	2417	
==>estfile = ($inc =~ m[/]) ? "$inc" : "$destdir/$inc";

                #move_if_diff("$inc.tmp", "$destdir/$inc");
                #p <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	64014	64115	
==>matched by a
corresponding nested closing tag (and the failure mode was not "MAX" or "PARA").

=item C <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1877	2019	
==>lang_fn );

        # STDERR is written into same output file
        my $exit_code = Parrot::Test::run_command( 
                            \ <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2357	2486	
==>lang_fn );

        # STDERR is written into same output file
        my $exit_code = Parrot::Test::run_command(
            \ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627234	627331	
==>\", (int){{\@2}});\n  }\n\n  /* Why?? If we're creating a continuation, the continuation PMC\n   * <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628378	628475	
==>\", (int){{\@2}});\n  }\n\n  /* Why?? If we're creating a continuation, the continuation PMC\n   * <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45832	46082	
==>"JUMP" => 0,
                  "NAME" => "pushaction",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	8406	8597	
==>") {
		$mode="<";
	} elsif ($syms[CURR] eq "output") {
		$mode=">";
	} elsif ($syms[CURR] eq "random") {
		die "random file i/o not implemented yet at $sourceline"
	} else {
		die "Expected in <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3581	3724	
==>ts a file name to a description of the
type of files which have this name.

=cut

sub type_for_name
{
	my $self = shift;
	my $name = shift;
	
	r <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	7753	7875	
==>resultf
	_screen_color(\$N101,\$N100)
FANDB
	} elsif (@codeb and not @codef) {
		push @{$code{$seg}->{code}},<<BNOTF;
@code <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	2584	2732	
==>"TYPE" => "inline",
                  "CODE" => 2,
                  "ARGS" => [],
                  "BODY" => "#line 108 \"src/ops/core.ops\"\n#ifde <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	2538	2684	
==>b name
{
    my $self = shift;
    
    return $self->{NAME};
}

=item C<name_without_suffix()>

This will give you the name minus any .xyz suffix. <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6527	6622	
==>TPC} + j
    prop_type_state[${ITEMP0}] = ${STYPES}
    prop_stack_depth[${ITEMP0}] = stack_dept <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4465	4560	
==>TPC} + j
    prop_type_state[${ITEMP0}] = ${STYPES}
    prop_stack_depth[${ITEMP0}] = stack_dept <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	764	913	
==>s/\n/\\n/g;
            push @ops, $self->output_print("\"$part\"");
        }
    }
    return @ops;
}

sub render {
    my ($self, $op) = @_;

    d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79087	79212	
==>e);\n  if (p == NULL) {\n      const char * const err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80608	80733	
==>e);\n  if (p == NULL) {\n      const char * const err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDE <==
2	/Users/nnunley/parrot/config/init/defaults.pm	1934	2065	
==>ems.
        # VMS and Win32 might use "Link".
        # Perl5's Configure doesn't distinguish linking from loading, so
        # ma <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661911	662002	
==>e 339 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_key <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662827	662918	
==>e 339 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_key <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322382	322654	
==>_UInt4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323154	323426	
==>_UInt4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
2	/Users/nnunley/parrot/config/inter/lex.pm	1590	1721	
==>o default
        $self->set_result('no');
        return $self;
    }

    if ($conf->options->get('ask')) {
        $prog = prompt <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	1604	1735	
==>o default
        $self->set_result('no');
        return $self;
    }

    if ($conf->options->get('ask')) {
        $prog = prompt <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	18006	18151	
==>$class = $all{$name};
        gen_parent_list($include, $name, \%all);
        gen_super_meths($class, $vt, \%all);

        my $Dumper = Data::Du <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	2027	2135	
==>->value, $self->kind, $self->scope, $self->type);
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handl <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	17104	17240	
==>t_no);

            my $opt = $code_f =~ m!opt(.)! ? "-O$1" : "-O1";
            my $args = $ENV{TEST_PROG_ARGS} || '';
            $args <==
2	/Users/nnunley/parrot/lib/Test/More.pm	11131	11312	
==>l the typing and with a better interface.  Handy for
quickly testing an interface.

No matter how many @methods you check, a single can_ok() call counts
as one test.  If you desire o <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9081	9258	
==>olon;
      }
      else {
        my $sub = Jako::Construct::Block::Sub->new($block, $type, $ident, { %props }, [ @formal_args ]);
        push @{$self->{BLOCKS}}, $sub;
      } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606454	606713	
==>E" => "inline",
                  "CODE" => 687,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 441 \"src/ops/object.ops\"\n    Parrot_add_at <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	11527	11658	
==>className = "";  /* hack? */
	expander.innerHTML = "&laquo;";
      } else {
	elem.className = "details";
	expander.innerHTML = "&ra <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	6783	6883	
==>d match. I suppose it should restore $n to its previous
# value, but I'm not going to bother with tha <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4426	4525	
==>attern, $captures) = @_;
    $target = _parrot_stringify($target);
    $pattern = _parrot_stringify( <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6931	7030	
==>attern, $captures) = @_;
    $target = _parrot_stringify($target);
    $pattern = _parrot_stringify( <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26691	26799	
==>y $l_continue = new_label($parser);
    my $l_break    = new_label($parser);
    push @opcodes, new LabelOp <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27576	27684	
==>y $l_continue = new_label($parser);
    my $l_break    = new_label($parser);
    push @opcodes, new LabelOp <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	3630	3969	
==>nt
            Mono.Data
            Mono.GetOptions
            Mono.Http
            Mono.Posix
            Mono.Security.Win32
            Mono.Security
            System.Data
            System.Design
            System.DirectoryServices
            System.Drawing.Design
            System.Drawing
            System.Enter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029863	1030070	
==>");\n  }\n  next = Parrot_sleep_on_event(interpreter, {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030705	1030912	
==>");\n  }\n  next = Parrot_sleep_on_event(interpreter, {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	22556	22655	
==>c) eq 'Text::Balanced::Extractor')
					{ @bits = $field = $func->extract($$textref) }
				elsif( $$ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10703	10825	
==>$section = $self->unicode_escape_url($section);
        # Turn char 1234 into "(1234)"
        $section = '_' unless length <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4080	4195	
==>$section = $self->unicode_escape_url($section);
     # Turn char 1234 into "(1234)"
    $section = '_' unless length <==
2	/Users/nnunley/parrot/lib/Test/More.pm	20353	20450	
==>ed, the whole block of
code I<won't be run at all>.  Test::More will output special ok's
which Tes <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719786	719885	
==>ps/python.ops\"\n  PMC * const io = {{\@1}};\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0)) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720986	721085	
==>ps/python.ops\"\n  PMC * const io = {{\@1}};\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0)) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824475	824572	
==>ry_type != STACK_ENTRY_STRING) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on sta <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825546	825643	
==>ry_type != STACK_ENTRY_STRING) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on sta <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11952	12076	
==>_result {
    my ($self, $uid, $name, $fail) = @_;
    my $fail_label = $self->output_label_use($fail);
    my @ops;
    if ( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	12618	12742	
==>_result {
    my ($self, $uid, $name, $fail) = @_;
    my $fail_label = $self->output_label_use($fail);
    my @ops;
    if ( <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1694	1797	
==>R <<"END";
# Regular expression test
# Generated by $0
# Pattern >>$pattern<<

END

    $driver->output_ <==
2	/Users/nnunley/parrot/languages/regex/test.pl	3362	3465	
==>R <<"END";
# Regular expression test
# Generated by $0
# Pattern >>$pattern<<

END

    $driver->output_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	40703	40872	
==>$\{$key\}/$value/g;
	}

    # If we have any unsubstituted variables, error.
    if ($pir =~ /\$\{([^}]*)}/) {
        die "Unknown metavariable $1 used in $code_source\n <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	9390	9529	
==>from the code ref and return (a) the
code found before the signature, (b) the name of the class, and
(c) a hash ref containing the flags ass <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	20543	20778	
==>mp straight to instruction.
                my $name = $_->{'name'};
                $name =~ s/\./_/g;
                $pir .= "    if cur_ic == 0x$_->{'code'} goto INS_TRANS_$name\n";
            }
        }
        
        # If we d <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	48232	48328	
==>ped.

To prevent <extract_quotelike> from mucking about with the input in this way
(this is the o <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	18009	18121	
==>ss in fake-o pre-cooked paragraphs:
    #  just have the first line be a reference to a ['~Top', {}, ...]
    # W <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031066	1031477	
==>RGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1153,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 323 \"src/ops/sys.ops\"\n    if ({{\@2}} < enum_first <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	13565	13771	
==>rent_hash{$b} }
            keys %parent_hash;
        for my $parent (@parents) {
            next if exists $class->{has_parent}{$parent};

            $all->{$parent} = read_dump($include, lc("$parent.pmc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211400	211969	
==>> [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le_str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	137	306	
==>he Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings" <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	2892	2994	
==>symbols
in the object or archive files.  The options can be used to limit the symbols:
--code|-c	code/t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492774	493007	
==>1}} = intval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493535	493768	
==>1}} = intval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70324	70643	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "loadlib",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71092	71411	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "loadlib",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	6510	6724	
==>ethod.

.sub unicode:"dyadic:\u2296" :multi(pmc, APLVector) # rotate
    .param int op1
    .param pmc op2

    if op1 == 0 goto nothing
    if op1 <  0 goto neg
pos:
    unless op1 goto done
    # shift off the beg <==
2	/Users/nnunley/parrot/tools/build/list_unjitted.pl	814	999	
==>OP : foreach my $op ( @ops){
    foreach my $jit (@jitted){
        next OP if $jit eq $op;
    }
    push @not_jitted, $op;
}

print foreach @not_jitted;

print 'Not jitted: ', scalar @ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4299	4414	
==>("  $temp = $right");
    $right = $temp;
  }
  else {
    $right = $right->compile($compiler);
  }

  my $dest_name <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	8085	8195	
==>each my $t (@_) {
    next unless defined $t and length $t;
    # TODO: enforce some limitations on what a targ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	8604	8714	
==>each my $t (@_) {
    next unless defined $t and length $t;
    # TODO: enforce some limitations on what a targ <==
2	/Users/nnunley/parrot/config/inter/encoding.pm	1073	1274	
==>e
    (my $TEMP_encoding_o = $encoding_list) =~ s/\.c/\$(O)/g;

    my $TEMP_encoding_build = <<"E_NOTE";

# the following part of the Makefile was built by 'config/inter/encoding.pm'

E_NOTE

    forea <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094588	1094912	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exec",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	4452	4553	
==>\$P1
.end
FOO
}
print CODE<<RUNTIMESHUTDOWN;
	#
	# Pull in the runtime libraries
	#
.include "RT_initi <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	8903	9164	
==>TMLDIR/function_summary.html..\n" if $DEBUG;
    open (OUT, ">$HTMLDIR/function_summary.html") or
      die "Can't open $HTMLDIR/function_summary.html for writing: $!\n";

    print OUT page_header("Function Coverage Summary");
    print OUT qq(
            <i>Y <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	502	605	
==>Module Parse::Yapp::Driver
#
# This module is part of the Parse::Yapp package available on your
# nea <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	488	588	
==>Module Parse::Yapp::Driver
#
# This module is part of the Parse::Yapp package available on your
# nea <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	26002	26158	
==>Test/Builder>

=back

=cut

sub report_odd_hash {
    my $warning = shift;
    if ($warning =~ /Odd number of elements in hash assignment/) {
        require <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30331	30499	
==>d, $line, $out_name) = @_;

    my $meth = $method->{meth};

    my $decl = $self->decl($self->{class}, $method, 0);
    my $classname = $self->{class};
    my $parentna <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	602534	602774	
==>inline",
                  "CODE" => 682,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 393 \"src/ops/object.ops\"\n    {{ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	789	1064	
==>pe = ref $_[0];
            my $data;

            if( $type eq 'HASH' ) {
                %$data = %{$_[0]};
            }
            elsif( $type eq 'ARRAY' ) {
                @$data = @{$_[0]};
            }
            elsif( $type eq 'SCALAR' ) {
                $$data <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	2472	2610	
==>ree, $ctx) = @_;
    return op('seq' => [ $self->convert($tree, $ctx), op('atend') ]);
}

sub convert_rx_charclass {
    die "unimplemented <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	1626	1866	
==>. Eliminate unused labels.

TODO:

 1. I would like to optimize

     B1: sub x, 1
         goto S0
     B2: sub x, 1
         goto B1
     B3: sub x, 1
         goto B2

 to

     B1: sub x, 1
         goto S0
     B2: sub x, 2
         got <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	590	744	
==>n::Value::Identifier');
  confess("Ident (" . ref($block) . ") not Identifer!") unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifi <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	842	979	
==>e "pre_op not implemented for current stack to register mapper\n";
}
sub post_op {
	die "post_op not implemented for current stack to regi <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	49610	49711	
==>ocks are extracted by stepping through the input text and
trying the following alternatives in sequenc <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3801	3900	
==>no fnlib property, and parent module has no fnlib property either!")
        unless $module_props{fn <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6465	6564	
==>no fnlib property, and parent module has no fnlib property either!")
        unless $module_props{fn <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1814	1906	
==>y:
    $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstu <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1917	2009	
==>y:
    $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361726	361836	
==>NTVAL_FMT, {{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362625	362735	
==>NTVAL_FMT, {{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8303	8557	
==>|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLAGS" => ":base_loop,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9418	9672	
==>|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLAGS" => ":base_loop,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inl <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34150	34292	
==>DEBUG and print " Item is of type ", $para->[0], " under $over_type\n";
          
          if($item_type eq 'bullet') {
            # as expe <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	34073	34403	
==>bl_loop,
    );
    my @params2 = ( $state, $var );
    my @return2 = ();
    @opcodes2 = ();
    for ( @{$vars} ) {
        my $result = new_tmp( $parser, 'pmc' );
        push @opcodes1, new LocalDir( $parser,
            'result' => $result,
        );
        push @opcodes1, new AssignOp( $parser,
            'resu <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54757	54928	
==>arse("a rule variable specifier", $aftererror,$line,$code);
				$code =~ /\A\s*<rulevar:(.*)>\Z/s;

				$rule and $rule->addvar($1,$self)
				      or  _no_rule($code,$line <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548224	548603	
==>q = q*i;\n    i--;\n  }\n  {{\@1}} = q;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fact",
                  "FLAGS" => ":advanced_math",
                  "ARGDI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549131	549409	
==>q = q*i;\n    i--;\n  }\n  {{\@1}} = q;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	4227	4351	
==>e\"\n";
	}
	print CODE<<FOO;
	\$P1["code"]= \$P0
	\$P1["step"]= 1   # Turn on stepping mode
	\$P0=new .PerlHash
	\$P1["break" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	494	610	
==>") || die;
		print <O>;
		close(O);
		print "\n";
	}
	
}

__DATA__
input a$,
print a$

STOPPLEASE
' Expect 10
sub sec <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032661	1032993	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_lex",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033758	1034090	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_lex",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7324	7523	
==>act
            or  $self->YYAccept();

            $$dotpos=$len;

                unpack('A1',$lhs) eq '@'    #In line rule
            and do {
                    $lhs =~ /^\@[0-9]+\-([0-9] <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6986	7178	
==>act
            or  $self->YYAccept();

            $$dotpos=$len;

                unpack('A1',$lhs) eq '@'    #In line rule
            and do {
                    $lhs =~ /^\@[0-9]+\-([0-9] <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	4104	4277	
==>o::Token->new(
        $file, $line, $1, undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^(while|until|for|continue)(?!\w)(.*)$}) {
      push @tokens, Ja <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	2352	2523	
==>e of people who have contributed to Parrot.', 'CREDITS'),
        ),
        $self->new_group('Contents', 'See the <code>ExtUtils::Manifest</code> documentation for more in <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33113	33242	
==>'number'},
             " instead of the expected value of $expected_value\n";
            $self->whine(
              $para->[1]{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819711	819968	
==>ong\");\n  }\n  {{\@1}} = get_entry_type(interpreter, entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820671	820928	
==>ong\");\n  }\n  {{\@1}} = get_entry_type(interpreter, entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54124	54254	
==>prod->additem($item)
				      or  _no_rule($code,$line);
			}
			elsif ($grammar =~ m/(?=$SKIPMK)/gco
				and do { ($code) = extra <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	2024	2160	
==>\s+)?op\s+([a-zA-Z]\w*)/);
        my $op = $2;
        $op =~ s/\.//g;
        next if ($ops{$op});
        print "      <item>$op</item <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354949	355187	
==>E" => 414,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 208 \"src/ops/io.ops\"\n  PMC * const p = {{\@1}};\n  STRING * const s = (VTABLE_get_string(interp <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	4343	4469	
==>DO NOT EDIT THIS FILE",
            "Generated by " . __PACKAGE__ . " from $source"
        );

        if ($options{commentTyp <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16732	16845	
==>('', 'new',[$return,'.Undef']);

  my @reverse = reverse _get_args($node);

  for (@reverse) {
    my $item = $sel <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7666	7874	
==>tpos = $1;
            };

            @sempar =       $$dotpos
                        ?   map { $$_[1] } @$stack[ -$$dotpos .. -1 ]
                        :   ();

            $semval = $code ? &$cod <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7318	7519	
==>tpos = $1;
            };

            @sempar =       $$dotpos
                        ?   map { $$_[1] } @$stack[ -$$dotpos .. -1 ]
                        :   ();

            $semval = $code ? &$cod <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	331393	331608	
==>"CODE" => 389,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 40 \"src/ops/io.ops\"\n  PIO_close(interpreter, {{\@1}});\n  {{+=2}};\n <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	2996	3136	
==>e->new( [ $file ], $nolines_flag );
die "$0: Could not read ops file '$file'!\n" unless defined $ops;

#
# Copy the ops from the remaining .o <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	3433	3535	
==>e->new( [ $file ], $nolines_flag );
    die "$0: Could not read ops file '$file'!\n" unless defined $te <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8103	8213	
==>);
  while( ($name, $number) = each %Name2character_number) {
    if($] < 5.007  and  $number > 255) {
      $N <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	47002	47098	
==>he input text, concatenated),

=item [2]

"" (i.e. the prefix substring -- trivial in this case), <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	18141	18272	
==>hash-like-arguments constructor
       * the class might not have a no-argument constructor
       * "recursive" data structures did <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	3604	3759	
==>$ldel = defined $_[1] ? $_[1] : '{([<';
	my $pre  = defined $_[2] ? $_[2] : '\s*';
	my $wantarray = wantarray;
	my $qdel = "";
	my $quotelike;
	$ldel =~ s/' <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	452	558	
==>@_;

  return sprintf("_%s_%d", uc $kind, ++$self->{BLOCK_COUNT});
}


#
# temp_reg()
#

sub temp_reg
{
  m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104106	1104202	
==>n\t\t\t\t\"Class '%Ss' not found\", class);\n\t{{\@1}} = pmc_new_init(interpreter, type, {{\@3}}) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105321	1105417	
==>n\t\t\t\t\"Class '%Ss' not found\", class);\n\t{{\@1}} = pmc_new_init(interpreter, type, {{\@3}}) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863655	864071	
==>IRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 980,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 143 \"src/ops/string.ops\"\n  UINTVAL n;\n  STRING *s = {{\@2} <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9971	10090	
==>Pugs, is a work in progress. As new features are
added to Pugs, new test functions will be defined to facilitate the
tes <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735546	736057	
==>ore",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 826,
                  "ARGS" => [
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 139 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	5378	5547	
==>less match goto match_fail
          match_success:
            print "matched"
            $captures
            goto end
          match_fail:
            print "failed <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	40972	41087	
==>) removed from it.

In a void context, the input text just has the matched substring (and
any specified prefix) remo <==
2	/Users/nnunley/parrot/languages/regex/regex.pl	283	463	
==>e/) {
        $tree_opt = 0;
        $list_opt = 0;
    } elsif (/--optimize=(.*)/) {
        my $opts = $1;
        $tree_opt = ($opts =~ /t/i);
        $list_opt = ($opts =~ /l/i) <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23921	24100	
==>self->_generate($node->{children}[$_]);
    my $label = $self->_gensym();
    $self->_add_inst('','lt', [$return,$temp,"NEXT_$label"]);
    $self->_add_inst('','set',[$return,$temp <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23459	23611	
==>self->_generate($node->{children}[$_]);
    my $label = $self->_gensym();
    $self->_add_inst('','gt', [$return,$temp,"NEXT_$label"]);
    $self->_add_i <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	9305	9411	
==>alysis might not be too hard.
package Regex::Ops::Tree::call;
sub minlen { 0 }
sub maxlen { undef }
sub dfa <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	455	592	
==>@args) = @_;

  confess("Block (" . ref($block) . ") is not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Ident ( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2653	2762	
==>{ Name => 'cond', Attributes => { kind => $cond } });
    $handler->start_element({ Name => 'block', Attribute <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3417	3526	
==>{ Name => 'cond', Attributes => { kind => $cond } });
    $handler->start_element({ Name => 'block', Attribute <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	9253	9397	
==>= $self->{fh};
        if ( exists $dir->{pragma} ) {
            print {$FH}
                "  .param $dir->{result}->{type} $dir->{result}- <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	47	197	
==>ly know how to format whatever
# text comes out of Pod::BlackBox's _gen_errata

require 5;
package Pod::Simple::Checker;
use strict;
use Carp ();
use P <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2389	2497	
==>m->type;
  }
  else {
    $right_type = $right->type;
  }

  $self->INTERNAL_ERROR("No type for dest!")  unle <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2311	2419	
==>m->type;
  }
  else {
    $right_type = $right->type;
  }

  $self->INTERNAL_ERROR("No type for dest!")  unle <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650630	650739	
==>& {{\@2}} < interpreter->n_vtable_max)\n        {{\@1}} = 1;\n    else if ({{\@2}} >= enum_first_type && {{\@2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651552	651661	
==>& {{\@2}} < interpreter->n_vtable_max)\n        {{\@1}} = 1;\n    else if ({{\@2}} >= enum_first_type && {{\@2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430371	430621	
==>E" => 494,
                  "ARGS" => [
                              "ic",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 74 \"src/ops/math.ops\"\n  mmd_dispatc <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36062	36206	
==>,
			"~=" => 73,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -71
	},
	{#State 139
		ACTIONS => {
			"-" => 72,
			"<" = <==
2	/Users/nnunley/parrot/languages/converter.pl	9	123	
==>w

=head1 NAME

converter.pl - convert BNF grammar to a Parse::RecDescent grammar

=head1 DESCRIPTION

An early att <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	3722	4019	
==>ft(@children);
            @{ $S->{args} } = @Srest;
            push @shrunken, $S;
        }

        # None, so use opt(R|...) -> (opt(R)|opt(...))
        if (@shrunken == 0) {
            my $subtree = $self->pass1(rop('alternate', \@children), $ctx);
            @{ $t->{args} } = ($R, $subtr <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	490	595	
==>ON

=head1 TODO

* Tell if there are funcs without docs

* Generate docs from funcs

* Test the POD of the <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	9387	9674	
==>f ($syms[CURR] eq ")");
		#print "Read $syms[CURR]...";
		last if (not $parens  and
			$syms[CURR] eq "=" and $opts{lhs});
		#print "ok\n";
		last if ( $type[CURR] eq "STMT"
				or
			$type[CURR] eq "COMP"
				or
			$type[CURR] eq "COMM"
				or
			($type[CURR] eq "BARE" and (iskeyword($s <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	787	941	
==>tput_is         => 'is_eq',
    output_like       => 'like',
    output_isnt       => 'isnt_eq',
                        );

foreach my $func ( keys %langu <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	526	643	
==>tput_is   => 'is_eq',
    output_like => 'like',
    output_isnt => 'isnt_eq',
);

foreach my $func ( keys %langu <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4807	4926	
==>ss defined $key and defined $trigger and defined $cb;

    my $verbose = defined $self->get('verbose') && $self->get('ve <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710761	710855	
==>ter, io, \" \");\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  PIO_softspace(inte <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711595	711689	
==>ter, io, \" \");\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  PIO_softspace(inte <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	318741	319038	
==>conv_u2_ovf",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 373,
                  "ARGS" => [
                              "i" <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3415	3513	
==>($self, $val1, $val2, $dest) = @_;
    $self->output_test('gt', $val1, $val2, $dest);
}

sub output <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9336	9450	
==>arp::croak "\"$new_code\" isn't a valid element name"
        if $new_code =~
          m/[\x00-\x2C\x2F\x39\x3B-\x <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10600	10714	
==>arp::croak "\"$new_code\" isn't a valid element name"
        if $new_code =~
          m/[\x00-\x2C\x2F\x39\x3B-\x <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	10476	10637	
==>_;
#         \$rx_match{'!INPUT'} = <rx_input>;
#         \$rx_match{'!GROUPS'} ||= [];
#     } else {
#         \%rx_match = %{ shift() };
#         <rx_input> = <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	739	839	
==>tion, @todo)>

Runs the target string against the Perl 6 pattern, passing the test
if they match.  No <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2837	2937	
==>tion, @todo)>

Runs the target string against the Perl 6 pattern, passing the test
if they match.  No <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74611	74735	
==>:expected
			    = $Parse::RecDescent::lastexpected;
			$Parse::RecDescent::unexpected
			    = $_savetext || $Parse::RecDesc <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1988	2096	
==>>find_symbol($self->name);

  #
  # If the identifier is already defined at this lexical scope, we want to co <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1735	1843	
==>>find_symbol($self->name);

  #
  # If the identifier is already defined at this lexical scope, we want to co <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26167	26302	
==>},
		GOTOS => {
			'exp' => 133,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'p <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	9292	9407	
==>op_info = $op_func = 'NULL';
$getop = '( int (*)(const char *, int) )NULL';

if ($suffix eq '') {
    $op_func = "${ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596098	596235	
==>"
                            ],
                  "BODY" => "#line 337 \"src/ops/object.ops\"\n  {{\@1}} = VTABLE_subclass(interpreter, { <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1708	1848	
==>. . . . . . . . . . . . . . .

sub _xml_escape {
  foreach my $x (@_) {
    # Escape things very cautiously:
    $x =~ s/([^-\n\t !\#\$\%\(\) <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	829	930	
==>ies
# of the directories in the Parrot subversion repository. (Needed for
# distributions or in genera <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3684	3785	
==>ies
# of the directories in the Parrot subversion repository. (Needed for
# distributions or in genera <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592269	592626	
==>"
                               ],
                  "TYPE" => "function",
                  "CODE" => 672,
                  "ARGS" => [
                              "p",
                              "kc",
                              "k"
                            ],
                  "BODY" => "#line 325 \"src/ops/object.ops\"\n  PMC *class = Parro <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	16182	16472	
==>,
			"*" => 27,
			"[" => 14,
			"?" => 23,
			'CODE' => 6,
			"(" => 10,
			"." => 15
		},
		DEFAULT => -9,
		GOTOS => {
			'expr' => 28,
			'charclass' => 12,
			'range' => 25
		}
	},
	{#State 46
		DEFAULT => -14
	},
	{#State 47
		ACTIONS => {
			"-" => 61
		},
		DEFAULT => -42
	},
	{#Sta <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	20235	20431	
==>nsion.
        $pmcname = $pmcfilename;
        $pmcname =~ s/\.pmc$//;

        # Locate .h file and add everything it exports to a list.
        my @exports = ();
        my $file = find_file($in <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	113	523	
==>pr;

@builtins=qw( 	abs      	asc      	atn
	      	cdbl		chr$		cint
		clng		command$	cos
		csng		csrlin		cvd
		cvdmbf		cvi		cbl
		cvs		cvsmbf		date$
		environ$	eof		erdev
		erdev$		erl		err
		exp	    	fileattr	fix
		fre		freefile	hex$
		inkey$
		space_NOTYET$
		time_NOTYET$
		inp		input$
		instr		int		ioctl$
		    lbound lcase$ left$ len loc lof log lpos ltrim$
		    mid$ mkd$ mkdmbf$ mki$ mkl$ mks$ mksmbf$ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	8422	8567	
==>chdir ) {
        $orig_dir = cwd;
        chdir $chdir;
    }

    # Execute all commands
    system( $_ ) for (@{$command});

    if( $chdir ) { <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	214	374	
==>idf, 'tmp', $type, $subtype );
}

sub new_label {
    my ($parser) = @_;
    my $idf = 'L' . $parser->YYData->{idx_lbl}++;
    return new defn( $idf, 'labe <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6916	7008	
==>5)
' instr
s1$="The longer string"
found$="longer"
bogus$="not"
print "Found  (5): ", instr(s <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18645	18737	
==>5)
' instr
s1$="The longer string"
found$="longer"
bogus$="not"
print "Found  (5): ", instr(s <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	4580	4695	
==>tAPI;

printf "=== @H: %d interfaces ===\n", scalar @ParrotAPI;

my %Code;
my %DataB;
my %DataD;
my %DataR;
my %Unde <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27730	27825	
==>heck->{itempos}? 'do {'.Parse::RecDescent::Production::incitempos().' 1} and ' : '')
		. '  $tex <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29840	29935	
==>heck->{itempos}? 'do {'.Parse::RecDescent::Production::incitempos().' 1} and ' : '')
		. '  $tex <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	15331	15440	
==>ew 'APLVector'
    # Loop through each vector, doing the ops.
    .local pmc iter1, iter2
    iter1 = new .Ite <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5060	5422	
==>NAME" => "reserved",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 140 \ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79354	79470	
==>\n  }\n  else {\n      /* At this point we have the symbol's address. We just need to build\n         a PMC with it s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80875	80991	
==>\n  }\n  else {\n      /* At this point we have the symbol's address. We just need to build\n         a PMC with it s <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	7446	7610	
==>guages/tcl/examples/Makefile',
        commentType                        => '#',
        replace_slashes                    => 1
    );
    genfile(
        'config <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5565	5750	
==>ly, relative to C<$source>.

If C<$path> is a file in C<$source> then C<$path> is returned.

If C<$path> cannot be found then a warning is printed.

=cut

sub file_paths_relative_to_sour <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	94	205	
==>6-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::IO::File - File

=head1 SYNOPSIS

    use Parrot::IO: <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	23407	23609	
==>textref)-1
					unless $igunk || defined $unkpos;
			}
		}
		
		if (defined $unkpos)
		{
			push @fields, substr($$textref, $unkpos);
			$firstpos = $unkpos unless defined $firstpos;
			$lastpos = length <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019248	1019556	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "localtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020178	1020486	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "localtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	67822	68015	
==>1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sweepoff",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37564	37660	
==>rule->hasleftmost($self) ? 'q{}'
				: 'q{'.$self->describe.'}' ) . ';
		$Parse::RecDescent::last <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39967	40063	
==>rule->hasleftmost($self) ? 'q{}'
				: 'q{'.$self->describe.'}' ) . ';
		$Parse::RecDescent::last <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2167	2324	
==>value "Bar".

=item $token->attr(I<attrname>, I<newvalue>)

This sets the I<attrname> attribute for this start-token object to
I<newvalue>.  You probably won' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	13253	13512	
==>= $_[0];
  # Return 0 or more fake-o paragraphs explaining the accumulated
  #  errors on this document.

  return() unless $self->{'errata'} and keys %{$self->{'errata'}};

  my @out;
  
  foreach my $line (sort {$a <=> $b} keys %{$self->{'errata'}}) {
    pu <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	22684	22787	
==>_[1], $_[3] ] }
	],
	[#Rule 42
		 'classpiece', 1,
sub
#line 177 "lib/Regex/Grammar.y"
{ return $_[1]; } <==
2	/Users/nnunley/parrot/languages/lua/luac.pl	394	508	
==>ta->{verbose_warning} = 1;    # 0, 1
$parser->YYData->{verbose_info}    = 1;    # 0, 1
$parser->Run(@ARGV);

if <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19267	19553	
==>JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20043	20329	
==>JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	25031	25254	
==>num($thisline)];'; 
		}
	}
	else	  # GENERATE ERROR MESSAGE DURING PARSE
	{
		$action .= '
		my $rule = $item[0];
		   $rule =~ s/_/ /g;
		#WAS: Parse::RecDescent::_error("Invalid $rule: " . $expectation->message() ,$thislin <==
2	/Users/nnunley/parrot/config/inter/lex.pm	1552	1689	
==>nless ($prog) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    if ($conf->options->get( <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	1566	1703	
==>nless ($prog) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    if ($conf->options->get( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090889	1091195	
==>>slice(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1091949	1092255	
==>>slice(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ] <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5665	5810	
==>c (@pmcs) {
        our $class;
        require "$pmc.dump";
 
        # there can be many libs
        my %libs = %{ $class->{flags}{lib} || {} } <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5876	6021	
==>c (@pmcs) {
        our $class;
        require "$pmc.dump";
 
        # there can be many libs
        my %libs = %{ $class->{flags}{lib} || {} } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276742	277090	
==>"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 322,
                  "ARGS" => [
                              "i",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 881 \"src/ops/cmp.ops\"\n  {{\@1}} = stri <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9105	9281	
==>do {

            $$errstatus = 1;
            &$error($self);
                $$errstatus # if 0, then YYErrok has been called
            or  next;       # so continue pa <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8694	8865	
==>do {

            $$errstatus = 1;
            &$error($self);
                $$errstatus # if 0, then YYErrok has been called
            or  next;       # so continue pa <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	1419	1556	
==>)
        {
            next if defined $ignore and $dir->name =~ /$ignore/;
            
            push @files, $dir->files_of_type($ty <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	253	382	
==>epresents a Parrot operation (op, for short), as read
from an ops file via C<Parrot::OpsFile>, or perhaps even generated by
some o <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3662	3766	
==>ee also: find_symbol(), which will also search (recursively) parent blocks'
symbol tables.

TODO: We shou <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4657	4747	
==>Goto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::Compiled>

=back

=cut <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	562	743	
==>=~ /^[a-z]/ or               # Dashes can be in an ident
             $token =~ /^[-]\d+(\.\d+)?[eE]/)) { # Dashes could be a neg. expt
      $token .= $ch;
    } elsif($ch eq '?' an <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	851	1055	
==>devel]doc
    README.win32.pod                                [devel]doc
    RESPONSIBLE_PARTIES                             [main]doc
    TODO                                            [main]doc
    parr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437228	437573	
==>e",
                  "CODE" => 501,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 94 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9595	9731	
==>G>				$debug & 0x10
#DBG>			and	print STDERR "**At eof: aborting.\n";
				return(undef);
			};

#DBG>			$debug & 0x10
#DBG>		and	pr <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9163	9293	
==>G>				$debug & 0x10
#DBG>			and	print STDERR "**At eof: aborting.\n";
				return(undef);
			};

#DBG>			$debug & 0x10
#DBG>		and	pr <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	2796	3378	
==>opt/local',
             'execcapable' => 1,
             'flex_version' => undef,
             'float4_t' => 'float',
             'float8_t' => 'double',
             'floatsize' => 4,
             'floatvalfmt' => '%f',
             'gc_flag' => '',
             'gccversion' => '4.0',
             'gmake_version' => '3.81',
             'gmp' => 'define',
             'has___sighandler_t' => undef,
             'has_dynamic_linking' => 1,
             'has_gdbm' => 0,
             'has_gnu_bc' => 0,
             'has_gnu_m4' => 1,
             'has_icu' => 1,
             ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109645	109757	
==>t.ops\"\n  string_bitwise_or(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110424	110536	
==>t.ops\"\n  string_bitwise_or(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	1055	1191	
==>($pycmd, $cmd, $pass, $dir);
    my $exit_code = 0;

    $pycmd = "python  $lang_f";
    $cmd = "pirate $lang_f";

    # For some reason, <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	21015	21190	
==>do{$_}};
            @rules = sort { 
                $a->{'code'} =~ /^(\w{2})/;
                my $x = $1;
                $b->{'code'} =~ /^(\w{2})/;
                hex($x <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	14252	14355	
==>to characters (like "e").

=item $Code2USASCII{I<integer>}

This maps from US-ASCII codes (like 32) to t <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1583	1722	
==>F/ if $cc_output =~ m/Version (\d+)/ && $1 >= 13;

        $conf->data->set(
            share_ext  => '.dll',
            load_ext   => '.d <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12457	12663	
==>opcodes, @{ $global->[1] };
                my $key = BuildLiteral( $parser, $idf, 'key' );
                push @opcodes, @{ $key->[1] };
                my $result = $global->[0];
                forea <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16965	17103	
==>opcodes, @{ $global->[1] };
                my $key = BuildLiteral( $parser, $idf, 'key' );
                push @opcodes, @{ $key->[1] } <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	2260	2349	
==>arrot_config */

void
Parrot_set_config_hash(void)
{
    Parrot_set_config_hash_internal(p <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1570	1681	
==>return;
}

sub _handle_element_end {
  DEBUG and print "-- $_[1]\n";
  print {$_[0]{'output_fh'}}
   '  ' x --$_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1500	1611	
==>return;
}

sub _handle_element_end {
  DEBUG and print "-- $_[1]\n";
  print {$_[0]{'output_fh'}}
   '  ' x --$_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	14	106	
==>ackage Pod::Simple::TiedOutFH;
use Symbol ('gensym');
use Carp ();

#~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	4951	5226	
==>']);
    for (reverse @$children) {
      if (exists $_->{children}) {
        my $arg0 = _get_arg($_, 0);
        if (exists $arg0->{value}) {
          my $value = $arg0->{value};
          if (exists $special->{$value}) {
            _num_arg($_, 1);
            $special-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64682	64775	
==>PMC_data({{\@1}});\n  Interp_flags_SET(new_interp, PARROT_EXTERN_CODE_FLAG);\n  new_interp->co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65633	65726	
==>PMC_data({{\@1}});\n  Interp_flags_SET(new_interp, PARROT_EXTERN_CODE_FLAG);\n  new_interp->co <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62294	62491	
==>)");
					$item = new Parse::RecDescent::Repetition($name,$1,0,1,
									   $lookahead,$line,
									   $self,
									   $matchrule,
									   $argcode);
					$prod and $prod->additem($item) <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	4675	4865	
==>ve leading
	s/\n(\# *\n)+\s*$/\n/s;     # remove trailing
	s/^\#//mg; # get rid of #
	#s/^( *\n)+//s;
	s/^\s*$//s; # normalize emptiness
	$comment = $_;
	$desc = $info->{perl_comment} = $comm <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846713	846971	
==>){{\@2}});\n  {{\@1}} = s;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847509	847767	
==>){{\@2}});\n  {{\@1}} = s;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	29925	30080	
==>i_gt_p {
}

sub _op_string_ci_le_p {
}

sub _op_string_ci_ge_p {
}

sub _op_substring {
}

sub _op_string_append {
}

sub _op_string_list {
}

sub _op_list_ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	1349	1509	
==>opy pen play poke preset print using
				pset put
			random randomize read redim rem reset restore resume
				return rmdir rset run
			screen seek select case sh <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	64	200	
==>14:22:35.671857Z svm  $

package Digest::Perl::MD5;
use strict;
use integer;
use Exporter;
use vars qw($VERSION @ISA @EXPORTER @EXPORT_OK <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	13758	13899	
==>er_ref,
        $proto_type_ref) = @_;

    $other_decl ||= "";

    $other_decl .= join("\n    ", @{$temps_ref});
    my $call_state = 'struc <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	4338	4508	
==>= @_;

    my $line = 0;
    foreach (@$source) {
        $line++;
        next unless $_;

        if (/\}\s*else\s*\{/) {
            error($file, $line, "Cuddled else ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784206	784375	
==>",
                              "p"
                            ],
                  "BODY" => "#line 392 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_pmc_keyed_int(int <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	889	1183	
==>ns:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, I1
                              #
print "Estimated ops: $I5\n"; # print  "E <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	889	1183	
==>ns:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, I1
                              #
print "Estimated ops: $I5\n"; # print  "E <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1285	1375	
==>uct::Statement::Decrement;
use Jako::Construct::Statement::Goto;
use Jako::Construct::State <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	218	318	
==>/Call.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako: <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	25875	25987	
==>st::_generate_functions();

=head1 SEE ALSO

=over 4

=item F<t/harness>

=item F<docs/tests.pod>

=item L<Test/M <==
2	/Users/nnunley/parrot/config/auto/jit.pm	1769	1879	
==>$cpuarch = 'ppc';
    }

    $cpuarch =~ s/armv[34]l?/arm/i;
    $cpuarch =~ s/i[456]86/i386/i;

    $conf->dat <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	36217	36365	
==>ternation_\d+_of_production_\d+_of_rule/)
		{ $desc = $parser->{"rules"}{$subrule}->expected }

	if ($lookahead)
	{
		if ($min>0)
		{
		   return new <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	5073	5204	
==>e_type goto print_space
    goto iter_loop
  print_space:
    result .= ' '
    goto iter_loop
  iter_end:
    .return (result)

  p <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	232	415	
==>:Distribution;

    my $dist = Parrot::Distribution->new();

=head1 DESCRIPTION

C<Parrot::Distribution> knows all kinds of stuff about the contents of
the distribution.

This is a sub <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	3373	3484	
==>l'),
            $self->new_item('', 'tools/util/ncidef2pasm.pl'),
            $self->new_item('', 'tools/util/s <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	15283	15412	
==>racket', pos $$textref
			unless $@;
		return;
	}

	my $endpos = pos($$textref);
	return ( $startpos, $codepos-$startpos,
		 $code <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2347	2460	
==>::common{$var}) {
					push(@saves, $var);
				}
			}
			if (@saves) {
				$edit.=qq{\tfind_global _GLOBALS, "COMM <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2756	2869	
==>::common{$var}) {
					push(@saves, $var);
				}
			}
			if (@saves) {
				$edit.=qq{\tfind_global _GLOBALS, "COMM <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	44693	44839	
==>ng and the previous line be exactly the same length,
    # with $formatting having a " " as the last character.
 
    DEBUG > 4 and print "Formatti <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27102	27200	
==>name";
	$f=changename($f);
	$f=~s/\$/_string/g; $f=~tr/a-z/A-Z/;
	$seg=$f;
	CALL_BODY($englishname, <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27375	27473	
==>name";
	$f=changename($f);
	$f=~s/\$/_string/g; $f=~tr/a-z/A-Z/;
	$seg=$f;
	CALL_BODY($englishname, <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	2142	2263	
==>opt::Long;
use File::Basename;

use vars qw($VERSION);

require 5.005;

$VERSION = sprintf "%d.%d", q$Revision: 19607 $ =~ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	672	806	
==>0, 0);
    # Delete the no-implicit-check marker
    $t = $self->maptree($t, sub { delete shift->{nocheck} });
    return $t;
}

# Perf <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	6990	7180	
==>} else {
          print $fh "<a\n>";  # Yes, an 'a' element with no attributes!
          DEBUG and print "Linearized ", scalar(@to_unget),
           " tokens, but it was too long, so never <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	14175	14335	
==>d = ($closing && $1 eq $closing) )
			{
				next if $1 eq '>';	# MIGHT BE A "LESS THAN"
				_failmsg q{Mismatched closing bracket at "} .
					     substr($$text <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1279	1420	
==>me characters from a line
         [^\n\ ]{0,50}     #  and finish any current word
        )
        \x20{1,10}(?!\n)   # capture some spaces <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1223	1364	
==>me characters from a line
         [^\n\ ]{0,50}     #  and finish any current word
        )
        \x20{1,10}(?!\n)   # capture some spaces <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836967	837233	
==>"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 948,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 234 \"src/ops/stack.ops\"\n  ( <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	17007	17148	
==>t('.pir', $test_no) );

            # output file
            my $out_f  = per_test('.pasm', $test_no);

            my $opt = $code_f =~ m!op <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	2101	2213	
==>rrot_${_}_class_init(interp, enum_class_${_}, pass);\n" foreach (@pmcs[-1 .. -1]);
    print OUT "        Parrot_ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	1663	1848	
==>e test and passes the test if a string comparison
if a string comparison of the output with the unexpected result is false.

=item C<pasm_output_is($code, $expected, $description)> or C< <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579054	579324	
==>,
                  "ARGS" => [
                              "p",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 289 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interp <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	13507	13710	
==>ter=0;
sub parse_select {
	die "Expected 'case'" if ($syms[NEXT] ne "case");
	feedme();
	push(@selects, { jump => ++$selectcounter, incase => 0 });
	my @a=EXPRESSION();
	print CODE<<SELECTSTART;
	# Select <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561884	561985	
==>\@2}}, {{\@3}});\n  if (!{{\@1}}) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562968	563069	
==>\@2}}, {{\@3}});\n  if (!{{\@1}}) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \" <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16004	16235	
==>=> 83,
			"^" => 79,
			"*" => 80,
			"<=" => 85,
			'OR' => 84,
			")" => 81,
			">" => 86
		}
	},
	{#State 38
		ACTIONS => {
			"}" => 87,
			"-" => 24,
			'NAME' => 91,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 2 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1815	1908	
==>over_bullet  { ++$_[0]{'Indent'} }
sub start_over_number  { ++$_[0]{'Indent'} }
sub start_over <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1383	1476	
==>over_bullet  { ++$_[0]{'Indent'} }
sub start_over_number  { ++$_[0]{'Indent'} }
sub start_over <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	10873	11066	
==>t { margin-top:  1em;  }
    .leftsep  { padding-left: 10px;  }
    .num      { text-align:   right; }

    .details  { display: none; }
    .expander { color: blue; cursor: pointer; }  /* hack? <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5888	6020	
==>le group
        my $group = $class->{flags}{group}
          or next;
        ($group) = keys %$group;
        $pmc_group{$pmc} = $g <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6099	6231	
==>le group
        my $group = $class->{flags}{group}
          or next;
        ($group) = keys %$group;
        $pmc_group{$pmc} = $g <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	3839	3982	
==>}) {
      push @tokens, Jako::Token->new(
        $file, $line, $1 eq '{' ? 'open-brace' : 'close-brace', undef, $1);
      $text = $2;
      n <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	760	860	
==>se by the other
L<Parrot::Configure::*> modules.

=head1 USAGE

=head2 Import Parameters

This module <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	25191	25311	
==>oreach my $dynpmc (keys %init_mmds) {
        next if $dynpmc eq $classname;
        $cout .= <<"EOC";
        int my_enu <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	5999	6140	
==>uivalent to "cd some_dir && make test"
    run_command("make test", CD => "some_dir");

=item C<slurp_file($file_name)>

Read the whole file $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	7651	7835	
==>$self->dbprint("pushing end[$group]: "),
                        aop('pushint', [ '<tmp>' ]),
                        aop('setstart', [ $group, '<pos>' ]),
                        @R_op <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35011	35112	
==>arse::RecDescent::unexpected
				   = $Parse::RecDescent::lastunexpected;
			}
			last;
		}'.($::RD_NO <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42121	42222	
==>arse::RecDescent::unexpected
				   = $Parse::RecDescent::lastunexpected;
			}
			last;
		}'.($::RD_NO <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	17067	17193	
==>? (\n";
print @good;
print " ) : (\n";
print @bad;
print " )\n);\n";

__END__
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356708	356951	
==>MT, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pri <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357368	357611	
==>MT, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pri <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107208	107531	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":bas <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108062	108385	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":bas <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	13996	14124	
==>eneration code.
	$pir .= "### gen_label\n";
    my $srm_label = $srm->gen_label();
    $pir .= sub_meta($srm_label, $mv, 'gen_lab <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	1446	1616	
==>hift->{TOKEN};
}

sub code
{
  return shift->{CODE};
}

sub name
{
  return shift->{NAME};
}

sub imcc
{
  return shift->{IMCC};
}

sub imcc_pmc
{
  return shift->{IMCC_PM <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16185	16383	
==>mp = $self->_generate(_get_arg($node,1));
  $self->_add_inst ('', 'typeof',[$return,$temp]);
  $self->_add_inst ('', 'ne', [$return,'.Undef',"FAIL_$label"]);
  $self->_add_inst ('', 'set', [$return,1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	30812	30921	
==>\n    ccont = ctx->current_cont;\n\n    if (PMC_cont(ccont)->address) {\n\t/* else its from runops_fromc */\n\ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	86	178	
==>002-08-27 19:58:02 MDT"
package Pod::Escapes;
require Exporter;
@ISA = ('Exporter');
$VERSION <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	922501	922878	
==>],
                  "TYPE" => "inline",
                  "CODE" => 1038,
                  "ARGS" => [
                              "p",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 321 \"src/ops/string.ops\"\n    {{\@1}}->vtable->set_string_native(interpreter, {{\@1}},\n        Parro <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	2221	2386	
==>c  => "cur_opcode[%ld]",
        nc  => "CONST(%ld)",
        pc  => "CONST(%ld)",
        sc  => "CONST(%ld)",
        kc  => "CONST(%ld)",
        kic => "cur_opcod <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	24	157	
==>e Perl Foundation.
# $Id: /parrot/lib/Parrot/Docs/Section/Languages.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	317269	317499	
==>> "conv_i2_ovf",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	4006	4124	
==>orresponds to a dynamic library
    ref      : PMC that references another PMC
    string   : PMC that behaves similarl <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	3880	4097	
==>p,15);
    $top =~ s/^ {0,1}(\S)/  $1/mg; # minimum indent
    $info->{desc} = $top;
    return $info;
}

sub describe_perl_file {
    my($info,$text) = @_;
    my $desc;
    if($text =~ /^\#/) { # perl file (or sh)
	m <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11586	11679	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub unicode_escape_url {
  my($self, $string) = @_;
  $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6020	6160	
==>n. Got ".&$ShowCurToken."\n";
			};

            $act=   exists($$actions{ACTIONS}{$$token})
                    ?   $$actions{ACTIONS}{$ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5735	5871	
==>n. Got ".&$ShowCurToken."\n";
			};

            $act=   exists($$actions{ACTIONS}{$$token})
                    ?   $$actions{ACTIONS}{$ <==
2	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	9	204	
==>ht (C) 2005, The Perl Foundation.
# $Id: /parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm 19606 2006-05-30T15:08:05.048089Z coke  $

use strict;

use Data::Dumper;
use File::Bas <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361430	361709	
==>,
                  "CODE" => 423,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 281 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_ <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	13996	14097	
==>ra_postamble = join("\n    ", @{$extra_postamble_ref});
    my $return_data     = "$return_assign $fin <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3130	3264	
==>y editor happy)
              | (\w+) )
    ]sx;

    while ($source =~ m[$regex]go) {
        my ($name, $expl, $body, $out) = ($1, $2 <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	33718	33890	
==>y hand. :(
        my $empty_result = &share({});
        for my $idx ( 0..$self->{Expected_Tests}-1 ) {
            $test_results->[$idx] = $empty_result
              unle <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	3404	3532	
==>d1 SEE ALSO

F<languages/tcl/lib/Parrot/Test/Tcl.pm>, F<languages/m4/lib/Parrot/Test/M4.pm>

=head1 AUTHOR

Francois Perrad <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	205	344	
==>serEndToken;
use Pod::Simple::PullParserTextToken;

BEGIN { *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG }

__PACKAGE__->_accessorize <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	6213	6377	
==>_S
#          goto next
#   try_S: check(3)
#          match(c) or fail
#          match([dxy]) or fail
#          match(e) or fail
#
# Note that the placement of th <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6153	6274	
==>{CURIC}
${ITEMP0} = ${NEXTPC} + I_arg_0 # XXX Can't use ${ARG0} :-(
prop_type_state[${ITEMP0}] = ${STYPES}
prop_stack_dept <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4091	4212	
==>{CURIC}
${ITEMP0} = ${NEXTPC} + I_arg_0 # XXX Can't use ${ARG0} :-(
prop_type_state[${ITEMP0}] = ${STYPES}
prop_stack_dept <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488208	488486	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "C <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235258	235757	
==>IRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 274,
                  "ARGS" => [
                              "i",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 599 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       { <==
2	/Users/nnunley/parrot/lib/File/Which.pm	6855	6948	
==>terms as Perl itself.

=head1 See Also

L<File::Spec>, L<which(1)>, Perl Power Tools:
http://w <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	15006	15147	
==>-40,
		GOTOS => {
			'classpieces' => 52
		}
	},
	{#State 33
		ACTIONS => {
			'CHAR' => 34,
			">" => 53
		}
	},
	{#State 34
		DEFAULT => -27 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037180	1037513	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037960	1038293	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5672	5785	
==>rint STDERR "In state $stateno:\n";
#DBG>		$debug & 0x08
#DBG>	and	print STDERR "Stack:[".
#DBG>					 join(',', <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5400	5510	
==>rint STDERR "In state $stateno:\n";
#DBG>		$debug & 0x08
#DBG>	and	print STDERR "Stack:[".
#DBG>					 join(',', <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	4161	4306	
==>r %op_body;
our @EXPORT = qw( %op_body );

# private sub  _trim()
#
# Trim leading and trailing spaces.

sub _trim
{
    my $value = shift;

    $ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3167	3261	
==>seg}->{code}}, "\t#ne \$I0, $vars, ERR_INPFIELDS\n";
	} else {
		push @{$code{$seg}->{code}}, " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576551	576795	
==>});\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577563	577807	
==>});\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24245	24354	
==>]=\$P0
	find_global \$P1, "BASICARR"
	\$P1["$var$seg"]= \$P3
	store_global "BASICARR", \$P1
	#
DIMARR
			if ($ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3681	3805	
==>::_generate_glob_for($target, $pattern);

    goto &Parrot::Test::pir_output_is;
}

=item C<pgeglob_like($target, $pattern, $ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3256	3368	
==>::_generate_glob_for($target, $pattern);

    goto &Parrot::Test::pir_output_is;
}

=item C<pgeglob_isnt($target, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	29258	29403	
==>=over'!\n";
        $self->whine(
          $para->[1]{'start_line'},
          "You forgot a '=back' before '$para_type'"
        );
        unsh <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	55800	55903	
==>y list or an undefined value (in the case of a subroutine extractor), it is
assumed to have failed to ex <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	804	927	
==>s*(.*)/;
		return "Was expecting $Parse::RecDescent::expected but found \"$1\" instead";
	}
}

   *defskip  = \ '\s*';	# DEF <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5129	5255	
==>Label);

    while (@$incexc) {
        my $first = shift(@$incexc);
        my $last = shift(@$incexc);
        if (defined($l <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4804	4930	
==>Label);

    while (@$incexc) {
        my $first = shift(@$incexc);
        my $last = shift(@$incexc);
        if (defined($l <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	13041	13172	
==>Arial;}
}

END
}

sub doc_init {
   return <<'END';
{\rtf1\ansi\deff0

END
}

sub color_table {
   return <<'END';
{\colortbl;\red25 <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	639	742	
==>line'd version and no interpreted version,
# create a shim for the interpreted version that automaticall <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6041	6177	
==>{ $group_files{$group} }, $pmc;
        $group_libs{$group} ||= {};
        foreach my $lib ( keys %libs ) {
            $group_libs{$gro <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6252	6388	
==>{ $group_files{$group} }, $pmc;
        $group_libs{$group} ||= {};
        foreach my $lib ( keys %libs ) {
            $group_libs{$gro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632457	632561	
==>> "#line 91 \"src/ops/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633499	633603	
==>> "#line 91 \"src/ops/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	752	891	
==>O (start, n) : mark start of n-th paren match
# O (end, n) : mark end of n-th paren match
# O (goto, label)
# O (label, name)
# O (increment <==
2	/Users/nnunley/parrot/lib/Test/More.pm	10639	10876	
==>interfere:

    cmp_ok( $big_hairy_number, '==', $another_big_hairy_number );

=cut

sub cmp_ok($$$;$) {
    $Test->cmp_ok(@_);
}


=item B<can_ok>

  can_ok($module, @methods);
  can_ok($object, @methods);

Checks to make sure the $modul <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	34990	35182	
==>=> 82
		},
		DEFAULT => -65
	},
	{#State 128
		ACTIONS => {
			"%" => 76,
			"*" => 80,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -58
	},
	{#State 129
		ACTIONS => {
			"^" => <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	16743	16870	
==>vwasreturn
{
	my ( $self, $line ) = @_;
	unless (@{$self->{items}})
	{
		Parse::RecDescent::_error(
			"Incorrect <return:...> s <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	5872	6002	
==>, 963,
 'tau'      , 964,
 'upsilon'  , 965,
 'phi'      , 966,
 'chi'      , 967,
 'psi'      , 968,
 'omega'    , 969,
 'thetasym <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	29786	29976	
==>$cmt
EOC
    }
}

sub ROT_THREE
{
    my ($n, $c, $cmt) = @_;
    print "\t\t$cmt\n";
    my $v = pop @stack;
    my $w = pop @stack;
    my $x = pop @stack;
    push @stack, $v;
    push @st <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	386	472	
==>:Simple::PullParserTextToken -- text-tokens from Pod::Simple::PullParser

=head1 SYNOPS <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2101	2207	
==>peer and $self->peer->prefix) {
    $self->prefix($self->peer->prefix);
  }

  if ($self->prefix) {
    $ha <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1978	2084	
==>peer and $self->peer->prefix) {
    $self->prefix($self->peer->prefix);
  }

  if ($self->prefix) {
    $ha <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13009	13096	
==>_t * loc;\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}}, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13853	13940	
==>_t * loc;\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}}, <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	4264	4358	
==>head1 SEE ALSO

=over 4

=item C<Parrot::IO::Directory>

=item C<Parrot::IO::File>

=back

=cut <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	17978	18179	
==>"ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 307 \"src/ops/core.ops\"\n  if (string_bool(interprete <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27071	27162	
==>lishname;

	$f="_USERFUNC_$funcname";
	$f=changename($f);
	$f=~s/\$/_string/g; $f=~tr/a-z/A- <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27344	27435	
==>lishname;

	$f="_USERFUNC_$funcname";
	$f=changename($f);
	$f=~s/\$/_string/g; $f=~tr/a-z/A- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	10738	10847	
==>is_exfix_arith) {
      my $block = $self->current_block();
      my $ident = Jako::Construct::Expression::Val <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19844	20041	
==>eedme;
			die "Expected 'as' got $syms[CURR] (source line $sourceline)" unless $syms[CURR] eq 'as';
			feedme;
			$type=$syms[CURR];
			my %th=( single => 'FLO', double => 'FLO', long => 'INT', inte <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54677	54802	
==>tract_codeblock($grammar,'{',undef,'<');
					 $code;
				       } )
			{
				_parse("a rule variable specifier", $aftererror, <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	1014	1129	
==>5,
	OrderedHash => 46,
	TQueue => 47,
	ParrotClass => 48,
	ParrotObject => 49,
	OS => 50,
	File => 51,
	AddrRegistry <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	1692	1810	
==>n{2,}/, $text;

    # If it doesn't start in the left column, it's not a func
    @funcs = grep /^\S/, @funcs;

    # T <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6851	7012	
==>y.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push(@$stack,[ $act, $$value ]);

					$$token ne ''	#Don't eat the eof
				and	$$toke <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6534	6686	
==>y.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push(@$stack,[ $act, $$value ]);

					$$token ne ''	#Don't eat the eof
				and	$$toke <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2698	2793	
==>st(interpreter))";
}

=item C<expr_address($address)>

Same logic as C<expr_pop()>.

=cut

sub e <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5622	5776	
==>bs, %pmc_group, %pmc_libs );
    for my $pmc (@pmcs) {
        our $class;
        require "$pmc.dump";
 
        # there can be many libs
        my %libs <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5833	5987	
==>bs, %pmc_group, %pmc_libs );
    for my $pmc (@pmcs) {
        our $class;
        require "$pmc.dump";
 
        # there can be many libs
        my %libs <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830549	830666	
==>],
                  "BODY" => "#line 186 \"src/ops/stack.ops\"\n  INTVAL i = {{\@1}};\n  stack_push(interpreter, &CON <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831290	831407	
==>],
                  "BODY" => "#line 186 \"src/ops/stack.ops\"\n  INTVAL i = {{\@1}};\n  stack_push(interpreter, &CON <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	1494	1600	
==>RT queue or to the mailing
list.

=cut

package Parrot::Test::Harness;

use strict;
use warnings;

use Carp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095135	1095222	
==>ODY" => "#line 223 \"src/ops/experimental.ops\"\n  Parrot_Exec_OS_Command(interpreter, { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095830	1095917	
==>ODY" => "#line 223 \"src/ops/experimental.ops\"\n  Parrot_Exec_OS_Command(interpreter, { <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34382	34509	
==>ad2 Parrot::Pmc2c::default Instance Methods

=over 4

=cut

package Parrot::Pmc2c::default;
use base 'Parrot::Pmc2c';
import Par <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	16143	16326	
==>OP"
	push P9, ">="
	push P9, "OP"
	P0= P5
	bsr RUNTIME_PUSH
	pop P0, P13
	bsr RUNTIME_PUSH
	push P9, "<="
	push P9, "OP"
	P0= P5
	bsr RUNTIME_PUSH
	pop P0, P13
	bsr RUNTIME_PUSH
	dec I <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62930	63040	
==>item = new Parse::RecDescent::Repetition($name,$1,0,$MAXREP,
										   $lookahead,$line,
										   $self, <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	4321	4438	
==>t::OffsetCounter;

sub TIESCALAR	# ($classname, \$text, $thisparser, $prev)
{
	bless {
		text    => $_[1],
		parser  = <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18062	18171	
==>mq {
}

sub _op_memv {
}

sub _op_member {
}

sub _op_assq {
}

sub _op_assv {
}

sub _op_assoc {
}

sub _op_s <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	3072	3210	
==>f $exit_code;
            $self->{builder}->diag($diag) if $diag;
        }

        # The generated files are left in the t/* director <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2666	2802	
==>f $exit_code;
            $self->{builder}->diag( $diag ) if $diag;
        }

        # The generated files are left in the t/* director <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4203	4357	
==>e.h
    # include/parrot/platform.h
    
    # runtime/parrot/include/* (all?)

    # lib/Parrot/Config.pm
    
    return 1 if $self->suffix =~ /^(?:dump| <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	6675	6860	
==>992 RSA Data Security, Inc.

The MD5 algorithm is defined in RFC 1321. The basic C code
implementing the algorithm is derived from that in the RFC and is
covered by the following copyrig <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22689	22907	
==>urn value: [}
						. $_tok . q{])},
						Parse::RecDescent::_tracefirst($text))
							if defined $::RD_TRACE;
		}
		else
		{
			Parse::RecDescent::_trace(q{<<Didn\'t match directive>>},
						Parse::RecDescent::_trac <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32734	32863	
==>urn value: [}
						. $_tok . q{])},
						  Parse::RecDescent::_tracefirst($text))
							if defined $::RD_TRACE;').'
		push @ite <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1014485	1014811	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "err",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015308	1015634	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "err",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	2371	2640	
==>}

sub op_restore_rxlocals {
    my ($self, $op) = @_;
    if ($op->{non_reentrant}) {
        return ();
    } else {
        my $rxlocals = ($op->{rxlocals} ||= []);
        return (aop(comment => [ "restore rxlocals for op" ]),
                map { aop('popint' => [ <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	548	683	
==>) = @_;

        ++$count;
        my( $lang_f, $pasm_f, $by_f, $out_f ) = map { # JMG
            my $t = $0; $t =~ s/\.t$/_$count\.$_/ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1434	1554	
==>hift;
  my ($compiler) = @_;

  my $dest_ident = $self->dest;

  my $block = $self->block;
  my $dest  = $self->dest;
  m <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1314	1434	
==>hift;
  my ($compiler) = @_;

  my $dest_ident = $self->dest;

  my $block = $self->block;
  my $dest  = $self->dest;
  m <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	8279	8445	
==>o failed;
	}

	$textpos = pos($$textref);

	if (!defined $rdel)
	{
		$rdelspec = $&;
		unless ($rdelspec =~ s/\A([[(<{]+)($XMLNAME).*/ quotemeta "$1\/$2". revbracket($ <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	7450	7562	
==>rrot_jit_vtable_1121_op Parrot_jit_normal_op
#define Parrot_jit_vtable_1123_op Parrot_jit_normal_op
#define Parro <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	6150	6255	
==>{_setup_ends}{$group} = 1;
}

sub rewrite_try {
    my ($self, $op, $R, $lastback) = @_;
    return $self- <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	436	571	
==>eq '(' or
       $ch eq ')') {
      push @$tokref,$token;
      $token = $ch;
    } elsif($ch eq '-' and
            ($token =~ /^[a-z] <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	12046	12195	
==>so available.
  </p>

  <p>
    Submitting your own smoke is easy,
  </p>
    
  <pre class="indent2">$ make smoke
</pre>
    
  <p>
    should suffic <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	2146	2398	
==>te heat, warm the oil until hot.

Add the puree and the balsamic vinegar, and cook, stirring occasionally,
for 20 to 40 minutes. (Cooking it longer will make it sweeter.)

Add the Garam Masala, chili powder, and cook, stirring occasionally, for
5 minute <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	535351	535724	
==>base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 619,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  " <==
2	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	405	546	
==>ldarray();
    }
}

sub buildarray {
    my @foo;
    foreach (1..10000) {
	$foo[$_] = $_;
    }
    return \@foo;
}

=head1 SEE ALSO

F<examp <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	21049	21322	
==>ant->[0]} = 1;
                }
                else {
                    $right = "enum_class_$variant->[0]";
                }
                $meth_name = $variant->[1] . '_' .$variant->[0];
                push @mmds, [ $func, $left, $right, $meth_name];
            } <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6668	6772	
==>{
    my ($self, $failLabel) = @_;
    my $fail = $self->output_label_use($failLabel);
    return ($self- <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6312	6416	
==>{
    my ($self, $failLabel) = @_;
    my $fail = $self->output_label_use($failLabel);
    return ($self- <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	59907	60063	
==>', 3,
sub
#line 595 "Lua\lua51.yp"
{
            [ BuildLiteral( $_[0], $_[1], 'key' ), $_[3] ];
        }
	],
	[#Rule 112
		 'field', 1,
sub
#line <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	51557	51708	
==>the first rule 
					       is defined.");
				}
				else
				{
					undef $self->{_AUTOACTION};
					$self->{_AUTOTREE}{NODE}
						= new Parse::RecDes <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19039	19142	
==>return $_[1]; }
	],
	[#Rule 8
		 'regex1', 2,
sub
#line 105 "lib/Regex/Grammar.y"
{ return op('seq' => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465310	465604	
==>GDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 533,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 343 \"src/ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6384	6525	
==>he item text or head start token.

=cut

sub process_item_text_or_head_start_token
{
    my $self = shift;
    my $token = shift;
    my $tagn <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	13131	13252	
==>t color="red">$_</font>)
            } elsif ($_ =~ /^branch \d+ never executed/) {
                print OUT qq($atag<fon <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104055	1104143	
==>)\n\t\treal_exception(interpreter, NULL, NO_CLASS,\n\t\t\t\t\"Class '%Ss' not found\", cl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105270	1105358	
==>)\n\t\treal_exception(interpreter, NULL, NO_CLASS,\n\t\t\t\t\"Class '%Ss' not found\", cl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	317031	317271	
==>2)({{\@1}}));\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	318500	318740	
==>2)({{\@1}}));\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	36106	36236	
==>odes) and $opcodes[-1]->isa('CallOp') ) {
        unless ( exists $returns[-1]->{pragma} ) {
            $returns[-1]->{pragma} = <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	2627	2786	
==>el";
		}
		else
		{
			push @pat, "$del(?:[^$esc$del]*(?:$esc.[^$esc$del]*)*)$del";
		}
	}
	my $pat = join '|', @pat;
	return "(?:$pat)";
}

*delimited_pat = \& <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	66117	66411	
==>"ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "function",
                  "CODE" => 86,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 989 \"s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	37423	37562	
==>ack is empty.\n";
        } else {
          my @fors = grep $_->[0] eq '=for', @$curr_open;
          DEBUG > 1 and print "Containing fors: <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	13148	13291	
==>`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`

{
my $m = -321;   # magic line number

sub _gen_errata {
  my $self = $_[0];
  # Return 0 or more fake-o pa <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	11317	11490	
==>my $rx_len = length($rx_input);
my $rx_tmp;
END

    push @ops, $self->output($startup, $self->{ctx});

    push @ops, "if (\$rx_mode) { goto " . $self->output_label_use($L_t <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	4568	4845	
==>_desc )
    {
        my $short_desc = join '. ', @short_desc;
        
        $short_desc .= '.' unless $short_desc =~ /\.$/o;
        
        $self->{TEXT} = $short_desc;
    }
    
    if ( $self->{TEXT} )
    {
        $index_html .= "$self->{TEXT}<br>\n";
        $index_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571117	571216	
==>_class_lookup_p(interpreter, {{\@3}});\n    {{\@1}} = Parrot_object_isa(interpreter, {{\@2}}, class) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572072	572171	
==>_class_lookup_p(interpreter, {{\@3}});\n    {{\@1}} = Parrot_object_isa(interpreter, {{\@2}}, class) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	123	231	
==>icense
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Lexer.pm 19606 2006-05-30T15:08: <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8851	8999	
==>x+1
	a(b)=a(b)+1
next i
for i = 1 to max
	print ,
	for j = 0 to a(i)
		print "*";
	next j
	print 
next i

' Trig
w=15
dim a$(w)
for i = 0 to (22/7)*2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327140	327417	
==>}}, (INTVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327942	328219	
==>}}, (INTVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26391	26566	
==>"{" => 38,
			"[" => 47,
			"." => 49,
			'STRING' => 44
		},
		GOTOS => {
			'tableconstructor' => 46,
			'args' => 135,
			'key' => 136
		}
	},
	{#State 82
		ACTI <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	7006	7159	
==>ub 'dyadic:!'           # binomial coefficient
    .param pmc op1
    .param pmc op2
    $I1 = op1
    $I2 = op2
    $I3 = $I2 - $I1   

    $N1 = fact $I <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	536502	536766	
==>"#line 943 \"src/ops/math.ops\"\n  {{\@1}} = ((FLOATVAL)1) / cosh((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	427	586	
==>]->can( 'handle_text' )
    || return
  )->(
    @_
  );
}

sub _handle_element_end {
  $_[1] =~ tr/-:./__/;
  ( $_[0]->can( 'end_' . $_[1] )
    || return
  )- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566697	567020	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "does",
                  "FLAGS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567591	567914	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "does",
                  "FLAGS <==
2	/Users/nnunley/parrot/config/inter/progs.pm	3883	4088	
==>' if $conf->options->get('debugging');
    $debug = prompt("Do you want a debugging build of Parrot?", $debug)
        if $ask;

    if (!$debug || $debug =~ /n/i) {
        $conf->data->set(
            cc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841604	841749	
==>ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842368	842513	
==>ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	51031	51349	
==>4;
      }

    } elsif(defined $5) {
      DEBUG > 3 and print "Found stuff \"$5\"\n";
      push @{ $lineage[-1] }, $5;
      
    } else {
      # should never ever ever ever happen
      DEBUG and print "AYYAYAAAAA at line ", __LINE__, "\n";
      die "SPORK 512512!";
    }
  }

  if(@stack) { # Uhoh, some sequenc <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	44	146	
==>pm 4793 2005-05-31T14:22:35.671857Z svm  $

package Scheme::Test;

use strict;
use vars qw(@EXPORT @ISA <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32057	32225	
==>attern"} . '"; 1 } and
		     substr($text,0,length($_tok)) eq $_tok and
		     do { substr($text,0,length($_tok)) = ""; 1; }
		)
		{
			'.($self->{"lookahead"} ? '$text <==
2	/Users/nnunley/parrot/config/auto/readline.pm	789	1018	
==>a->get('ccflags');
    if ($^O =~ /mswin32/i) {
        if ($cc =~ /^gcc/i) {
            $conf->data->add(' ', libs => '-lreadline -lgw32c -lole32 -luuid -lwsock32 -lmsvcp60');
        } else {
            $conf->data->add(' ', l <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	777	947	
==>a->get('ccflags');
    if ($^O =~ /mswin32/i) {
        if ($cc =~ /^gcc/i) {
            $conf->data->add(' ', libs => '-lgmp');
        } else {
            $conf->data- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1306	1422	
==>$arg;
    my $sym = Jako::Symbol->new($self, 'local', 'arg', $arg_type, $arg_name, undef, undef, undef, $arg_token->f <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6718	6817	
==>_NOT_switch_${CURIC}:
PIR
	return $pir;
}

# Pre and post load operation hooks.
sub pre_load($) {
	m <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4656	4755	
==>_NOT_switch_${CURIC}:
PIR
	return $pir;
}

# Pre and post load operation hooks.
sub pre_load($) {
	m <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2854	2969	
==>ers") unless UNIVERSAL::isa($left_type, 'Jako::Construct::Type::Integer');
  $self->SYNTAX_ERROR("Can only do bitwis <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9854	9986	
==>ore};
		next unless $prod->checkleftmost();
		$code .= $prod->code($namespace,$self,$parser);

		$code .= $parser->{deferrable}
				? <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2525	2611	
==><examples/mops/mops.ps>,
F<examples/mops/mops.py>,
F<examples/mops/mops.rb>,
F<examples <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	2525	2611	
==><examples/mops/mops.ps>,
F<examples/mops/mops.py>,
F<examples/mops/mops.rb>,
F<examples <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	2971	3113	
==>%arg_count,
    @code, %globals, %classes, @loops, %def_arg_names, %func_info);

sub decode_line {
    my $l = shift;
    my ($pc, $line ,$opco <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2203	2302	
==>1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Decreme <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3455	3554	
==>1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Decreme <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	2376	2534	
==>(?!\w)(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, 'sub', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^(var|co <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	17834	17930	
==>Pod as RTF

=head1 SYNOPSIS

  perl -MPod::Simple::RTF -e \
   "exit Pod::Simple::RTF->filter(shi <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2934	3053	
==>y $push_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we're maint <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1856	1975	
==>y $push_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we're maint <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	5119	5395	
==>and warn "Removed deprecated 'v' argument signature on line $. of $ARGV";

    die "Invalid return signature char '$ret' on line $. of $ARGV"
      unless exists $ret_assign{$ret};

    if (($seen{"$ret$args"} ||= $.) != $.) {
      warn sprintf "Ignored signature '%s' on line <==
2	/Users/nnunley/parrot/config/auto/memalign.pm	1333	1479	
==>n');
    eval { cc_build(); };
    unless ($@ || cc_run_capture() !~ /ok/) {
        $test = 1;
    }
    cc_clean();

    my $test2 = 0;

    cc_g <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	1341	1457	
==>b extract_functions {
    my $text = shift;

    return if $text =~ /DO NOT EDIT THIS FILE/;

    # Strip blocks of c <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	17828	17961	
==>object ref instead of requiring a hash ref.
   Also default initializes nested object attributes to undef, rather
   than calling obje <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2255	2387	
==>stab entry on compile
        $@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $retval
}

sub YYData {
	my($se <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2172	2294	
==>stab entry on compile
        $@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $retval
}

sub YYData {
	my($se <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705684	705882	
==>",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	332	457	
==>ore, grouped or ungrouped items.

C<Parrot::Docs::Section> is a subclass of C<Parrot::Docs::Group>.

=head2 Class Methods

=ov <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	5342	5478	
==>md5_hex';
    print 'Digest is ', md5_hex('foobarbaz'), "\n";

The above example would print out the message

    Digest is 6df23dc03f9b5 <==
2	/Users/nnunley/parrot/lib/Test/More.pm	9914	10036	
==>(@_);
}


=item B<cmp_ok>

  cmp_ok( $this, $op, $that, $test_name );

Halfway between ok() and is() lies cmp_ok().  This a <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	705	829	
==>_group
{
    my $self = shift;
    
    return Parrot::Docs::Group->new(@_);
}

=item C<new($name, $text, @contents)>

Return <==
2	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	737	820	
==>les/benchmarks/stress.pl>, 
F<examples/benchmarks/stress1.pasm>, 
F<examples/benchma <==
2	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	584	667	
==>les/benchmarks/stress.pl>, 
F<examples/benchmarks/stress1.pasm>, 
F<examples/benchma <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627427	627514	
==>n  {{\@1}} = pmc_new_noinit(interpreter, {{\@2}});\n  {{\@1}}->vtable->init(interpreter, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628571	628658	
==>n  {{\@1}} = pmc_new_noinit(interpreter, {{\@2}});\n  {{\@1}}->vtable->init(interpreter, <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4525	4648	
==>push(@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note that for loading deb <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4300	4414	
==>push(@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note that for loading deb <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528684	528991	
==>\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ata <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529566	529873	
==>\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ata <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25502	25677	
==>lock, $self->require_value);

      $self->require_close_paren;
      $self->require_open_brace;
 
      my $cond;

      if ($kind eq 'if') {
        $cond = Jako::Construct:: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9966	10101	
==>lock, $self->require_value);

      $self->require_close_paren;
      $self->require_open_brace;

      my $loop;

      my $namespace = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133393	133656	
==>NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134173	134436	
==>NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6932	7052	
==>rameter register list.
${PARAMS}[${ITEMP0}] = ${STEMP0}

# Emit code to pop the register.
${INS} = concat ${STEMP0}
${INS <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	8251	8360	
==>$type, @code)=EXPRESSION();
	feedme();
	die "Expecting FOR at $sourceline" unless $syms[CURR] eq "for";
	feedm <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11922	12025	
==>gs = join(",", map {$_->[0]} (reverse @args));
			$pir_args = ",$pir_args" if $pir_args;
			$extern=$sym <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	12332	12435	
==>gs = join(",", map {$_->[0]} (reverse @args));
			$pir_args = ",$pir_args" if $pir_args;
			$extern=$sym <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3239	3346	
==>hispara'} =~ tr{\xA0}{ };
    $self->{'Thispara'} =~ tr{\xAD}{}d;
  }

  my $i = ' ' x ( 2 * $self->{'Indent <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2727	2834	
==>hispara'} =~ tr{\xA0}{ };
    $self->{'Thispara'} =~ tr{\xAD}{}d;
  }

  my $i = ' ' x ( 2 * $self->{'Indent <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2468	2671	
==>\t//
                and $str .= "\t",      # horizontal tab
                last;
            s/^\\v//
                and $str .= "\x0b",    # vertical tab
                last;
            s/^\\( <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3982	4185	
==>\t//
                and $str .= "\t",      # horizontal tab
                last;
            s/^\\v//
                and $str .= "\x0b",    # vertical tab
                last;
            s/^\\( <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	1422	1601	
==>rog);
        $self->set_result('yes');
        return $self;
    }

    $prog = check_progs(['bison -v -y', 'yacc', 'byacc'], $verbose);

    unless ($prog) {

        # fall back <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19201	19343	
==>);
		$false=qq{""} if $type eq "S";
		if ($which eq "while") {
			$_="@code ne $result, $false, DO_$do->{jump}";
		} else {
			$_="@code eq $re <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	9336	9473	
==>readjit("src/jit/$cpuarch/core.jit");

print JITCPU $header if ($header);

my $njit = scalar keys(%core_ops);

my $jit_fn_retn = 'void';
m <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	7002	7104	
==>, __PACKAGE__ );
}

# this kludge is an hopefully portable way of having
# redirections ( tested on Lin <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32272	32379	
==>>decl($self->{class}, $method, 0);
    # I think that these will be out by one - NWC
    my $l = $self->line <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40894	41001	
==>>decl($self->{class}, $method, 0);
    # I think that these will be out by one - NWC
    my $l = $self->line <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	606	697	
==>if (!$Parse::RecDescent::unexpected
	    || $Parse::RecDescent::unexpected =~ /\A\s*\Z/s)
	{ <==
2	/Users/nnunley/parrot/tools/dev/manicheck.pl	1567	1697	
==>) {
    print "\n";
    print "Extra files:\n";
    foreach (@extra) {
        print "  $_\n";
    }
}

exit scalar(@missing) or sc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149156	149251	
==>mp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150097	150192	
==>mp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}} <==
2	/Users/nnunley/parrot/tools/dev/as2c.pl	1214	1340	
==>omment = 0;
	    $func = $1;
	    print " *\n */\n";
	    print "static const char ${func}_code[] = {\n";
	}
	elsif (/^\s*\d+\s <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	2179	2507	
==>->export_to_level(1, $self, 'ok');
  }

  sub ok {
      my($test, $name) = @_;

      $Test->ok($test, $name);
  }


=head1 DESCRIPTION

Test::Simple and Test::More have proven to be popular testing modules,
but they're not always flexible enough.  Test::Builder provides the a
building block upon which to write your own test l <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2946	3039	
==>fset)>

=item C<goto_address($address)>

CPrederef is funky in that expr OFFSET(n) uses a poin <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	33	149	
==>warnings;

use lib 'lib';
use Parrot::Vtable;

my $vtable = parse_vtable( 'vtable.tbl' );

my ($funcs, $protos) = vtb <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22149	22283	
==>{#State 71
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRI <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	4850	5006	
==>ring_${line}_data) - 1,
  1,
  $h
};

DATA
  }
}

open IN, $infile;

my $line = 0;
while (<IN>) {
  $line++;
  next if m/^\s*#/; # ignore preprocessor
  next <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	1308	1442	
==>lf->new_section('Commun Lisp', 'lisp.html', '', 'languages/lisp'),
        $self->new_section('.Net', 'dotnet.html', '', 'languages/dot <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	2934	3120	
==>'       => \$cfg{display_help},
    'method=s'     => \$cfg{method},
    'benchmarks=s' => $cfg{run_bench},
    'nobench=s'    => $cfg{skip_bench},
);

# Read Configuration File
die
    ' <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	385	501	
==>qw(Jako::Construct::Declaration);

use Jako::Construct::Type;


#
# new()
#

sub new
{
  my $class = shift;

  my ($b <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	385	501	
==>qw(Jako::Construct::Declaration);

use Jako::Construct::Type;


#
# new()
#

sub new
{
  my $class = shift;

  my ($b <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2458	2542	
==>ops/mops.cs>,
F<examples/mops/mops.il>,
F<examples/mops/mops.p6>,
F<examples/mops/mop <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	2458	2542	
==>ops/mops.cs>,
F<examples/mops/mops.il>,
F<examples/mops/mops.p6>,
F<examples/mops/mop <==
2	/Users/nnunley/parrot/tools/docs/write_docs.pl	245	382	
==>s/write_docs.pl [--silent] [--delete]

=head1 DESCRIPTION

This script writes the HTML documentation for Parrot.

=cut

use lib 'lib';
use <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	3423	3561	
==>"set_nci_P(interpreter, &st, return_data);",
       S => "set_nci_S(interpreter, &st, return_data);",
       v => "",
       t => "final_de <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39453	39586	
==>> \&_op_close_input_port,
  'close-output-port'     => \&_op_close_output_port,

####
#### Input
####

  'read' => \&_op_read,
  'read <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3092	3212	
==>Cannot return from here to main
                   'program - only to SUB1.
' Exit tests
sub mysub(b,c)
	print "Print me" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17059	17179	
==>Cannot return from here to main
                   'program - only to SUB1.
' Exit tests
sub mysub(b,c)
	print "Print me" <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3639	3790	
==>addr) = @_;

    die "pbc2c.pl: Cannot handle RESUME ops!";
}

=item C<restart_offset($offset)>

Returns the C code for C<restart OFFSET($offset)>.

=cu <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8489	8605	
==>and	print STDERR 
#DBG>				    "go to state $$states[$$stack[-1][0]]{GOTOS}{$lhs}.\n";

#DBG>				$debug & 0x10
#D <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8104	8216	
==>and	print STDERR 
#DBG>				    "go to state $$states[$$stack[-1][0]]{GOTOS}{$lhs}.\n";

#DBG>				$debug & 0x10
#D <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	5977	6083	
==>op\nON_END_${ons}:\n";
	}
	$ons++;
}
sub parse_randomize {
	if ($type[NEXT] =~ /STMT|COMM|COMP/) {  # No ar <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488635	488827	
==>"src/ops/math.ops\"\n  {{\@1}} = floor( {{\@1}} );\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	2131	2253	
==>ass_library\}/$class_lib_make/g;
	
	# Write makefile.
	open $fh, "> Makefile" or die "Unable to open Makefile\n";
	prin <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2400	2504	
==>}
  else {
    $right_type = $right->type;
  }

  $self->INTERNAL_ERROR("No type for dest!")  unless defi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2322	2426	
==>}
  else {
    $right_type = $right->type;
  }

  $self->INTERNAL_ERROR("No type for dest!")  unless defi <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	785	878	
==>iven ops files. See also F<tools/dev/ops_renum.mak>.

=back

=head2 WARNING

Generating a C<Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89100	89322	
==>0,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 38 \"src/ops/bit.ops\"\n  {{\@1}} &= {{\@2}};\n  {{+=3} <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2268	2361	
==>unction_definitions($file, $source);
    check_cuddled_else($file, $source);
    check_comment <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3353	3459	
==>xpect {
    my($self)=shift;

    keys %{$self->{STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
}

sub YYLe <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3184	3284	
==>xpect {
    my($self)=shift;

    keys %{$self->{STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
}

sub YYLe <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3677	3799	
==>ument

=head1 SYNOPSIS

  perl -MPod::Simple::Checker -e \
   "exit Pod::Simple::Checker->filter(shift)->any_errata_seen" \ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9055	9210	
==>w*sin(i)+1)="*"
	a$(w+w*cos(i)+1)="+"
	for j = 1 to w*2
		print a$(j);
	next j
	print
next i

' Expect Correct
DIM A(1,1)
RO=1
IF A(RO,5)=0 THEN GOSUB 20: R <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	28049	28206	
==>appily closes matching =over\n";
        # Expected case: we're closing the most recently opened thing
        #my $over = pop @$curr_open;
        $self->{'c <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2455	2582	
==>relative_path
{
    my $self = shift;
    my $path = shift || return;
    
    $path = $path->path if ref $path;
    
    my $re <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	289	404	
==>al "use warnings";

package Jako::Construct::Expression::Value;

use base qw(Jako::Construct::Expression);

use Jako <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	1760	1849	
==>q[/Users/nnunley/parrot/tools/build/pmc2c.pl] . $PATHQUOTE;

# Actual commands
sub compile <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	1851	1940	
==>q[/Users/nnunley/parrot/tools/build/pmc2c.pl] . $PATHQUOTE;

# Actual commands
sub compile <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	897	1097	
==>: ",
    join(">", map $_->[0], @{$_[0]{'_currpos'}}), "\n";
  return;
}

sub _handle_element_end { # self, tagname
  DEBUG > 2 and print "Handling $_[1] end-event\n";
  shift @{$_[0]{'_currpos'}};
  D <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	9127	9270	
==>$pack);
    $self->_unoverload(\$todo);

    my $out;
    my $result = &share({});

    unless( $test ) {
        $out .= "not ";
        @$resu <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	28783	28918	
==>lse {
			s/\(\)//g;
			$_=changename($_);
			#print STDERR "Marking ${_}${seg}\n";
			$arrays{"${_}${seg}"}=1;
			push @{$code{$seg}->{c <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	6510	6669	
==>psubs{"="}}(@_[0..2], "ne") },
	'<' => sub { &{$opsubs{"="}}(@_[0..2], "lt") },
	'>' => sub { &{$opsubs{"="}}(@_[0..2], "gt") });

sub convert_to_rpn {
	my(@exp <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	25268	25444	
==>$old_fh;
}


sub _dup_stdhandles {
    my $self = shift;

    $self->_open_testhandles;

    # Set everything to unbuffered else plain prints to STDOUT will
    # come out in th <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2142	2253	
==>ined $amount;
    my $realvar = value($var);
    return "$realvar -= $amount;";
}

sub output_set {
    my ($sel <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	8330	8529	
==>_wrap if $tagname eq 'Verbatim' or $tagname eq 'X';

    # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    } elsif( $type eq 'text' ) {
      esc($type = $token->text);  # re <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	20776	20926	
==>e, "$pmcname.c", 1);

        $fh = open_file( "<", $file );
        while (<$fh>) {
            if (/^(?:extern\s+)?\w+\*?\s+\*?(\w+)\s*\([^)]+\)\s*;/ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11843	11953	
==>$sym) and $lhs) {
			($ac,@args)=pushargs(\@code, \$optype, \@work);
			$pir_args = join(",", map {$_->[0]} (re <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	13945	14129	
==>ift;
    my $string = "";
    
    $self->output_string(\$string);
    $self->parse_file($file->path);
    
    return $string;
}

=item C<write_html($source, $target, $rel_path, $item) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	52886	53111	
==>')
               . ' ' . $_->[1]{'target'})
             : $_->[0]
        }
    @$curr_open
  ;
}

###########################################################################
my %pretty_form = (
  "\a" => '\a', # ding!
  "\b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13133	13331	
==>ANUP_NULL);\n  loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13977	14175	
==>ANUP_NULL);\n  loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12185	12340	
==>Jako::Construct::Statement::Concat->new($block, $ident, $ident, $op, $value);
      next;
    }

    #
    # Bitwise assigns:
    #
    #   <var> <op> <valu <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	9125	9275	
==>oken => 400,
    accept_verbatim => 1,
    max_content_length => 3_000,
   @_,
  );
}
sub get_description { shift->_get_titled_section(
   'DESCRIPTION <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14799	14909	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
#
#  Methods that actually do work at parse-time:

sub _handle_element_sta <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796582	797002	
==>DIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 899,
                  "ARGS" => [
                              "p",
                              "k",
                              "n"
                            ],
                  "BODY" => <==
2	/Users/nnunley/parrot/tools/dev/cc_flags.pl	508	629	
==>e flags to pass to the
compiler for each C file.

See F<config/gen/cflags/root.in> for the transformation file format.

=h <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	381	485	
==>o::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $left, $right) = @_;

  confess(" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	372	476	
==>o::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $left, $right) = @_;

  confess(" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22719	22864	
==>::Identifier->new($block, $self->require_ident);

      my ($cond, $left, $op, $right);

      if ($self->get(1)->is_if or $self->get(1)->is_unles <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	18109	18281	
==>sub
#line 73 "lib/Regex/Grammar.y"
{ return [ @{ $_[1] }, $_[2] ] }
	],
	[#Rule 2
		 'rules', 0,
sub
#line 75 "lib/Regex/Grammar.y"
{ return []; }
	],
	[#Rule 3
		 'rule', 4 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514181	514507	
==>}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515061	515387	
==>}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  " <==
2	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1227	1359	
==>s" or die "Can't open parrot.iss";

print OUT qq{
; generated by tools/dev/mk_setup.pl for the Inno Setup Script Compiler.

[Setup]
A <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942748	943074	
==>YPE" => "function",
                  "CODE" => 1060,
                  "ARGS" => [
                              "p",
                              "sc",
                              "sc"
                            ],
                  "BODY" => "#line 486 \"src/ops/string.ops\"\n    {{\@1}} = string_split(interpreter, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642240	642348	
==>" => "#line 194 \"src/ops/pmc.ops\"\n  {{\@1}} = {{\@2}}->vtable->type_keyed(interpreter, {{\@2}}, {{\@3}});\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643128	643236	
==>" => "#line 194 \"src/ops/pmc.ops\"\n  {{\@1}} = {{\@2}}->vtable->type_keyed(interpreter, {{\@2}}, {{\@3}});\ <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6925	7052	
==>")
          or die "pmc2c code generation failed ($?)\n";
    }
}

sub compile {
    my ($src_stem, $dest_stem) = @_;

    $des <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7136	7263	
==>")
          or die "pmc2c code generation failed ($?)\n";
    }
}

sub compile {
    my ($src_stem, $dest_stem) = @_;

    $des <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	331	450	
==>ut

sub new {
    return bless {};
}

sub output_is() {
    my ($self, $code, $output, $desc) = @_;
  
    my $count = $ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	369	488	
==>ut

sub new {
    return bless {};
}

sub output_is() {
    my ($self, $code, $output, $desc) = @_;
  
    my $count = $ <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	548	666	
==>ps performed,

=item * the elapsed time, and 

=item * the number of M op/s.

=back

=cut

sub time_hires { time() }

$ <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	551	668	
==>ps performed,

=item * the elapsed time, and

=item * the number of M op/s.

=back

=cut

sub time_hires { time() }

$ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	6552	6736	
==>the PMC had its C<const_too> flag set then this method is called in
C<init()> to to create the read-only set methods.

=cut

sub make_const() {
    my ($self, $class) = @_;

    my $con <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27089	27225	
==>{
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $l_break <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27770	27906	
==>{
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $l_break <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	5663	5760	
==>de to represent
the auto-computed return value. See the note on op types above.

=cut

sub full_bo <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2	94	
==>equire 5;
package Pod::Simple::PullParserStartToken;
use Pod::Simple::PullParserToken ();
@IS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	98845	99053	
==>s/bit.ops\"\n  {{\@1}}->vtable->i_bitwise_not(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	5460	5606	
==>ine "$file_escaped"\n};
    }
    return qq{#line $line\n};
}

=item C<line_directive_here($self,$output,$file)>

Generates the C pre processor str <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	2549	2654	
==>),
        $self->new_section('unlambda', 'unlambda.html', '', 'languages/unlambda'),
        $self->new_s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	6229	6351	
==>eping = $stmt->{label}->{reachable}; # Keep if reachable
	}
	push @output3, $stmt if $keeping;
    }

    # Reset the 'next <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14135	14305	
==>t looks contentworthy, I guess.  Using it.\n";
          $title = $para_text_content;
          last;
        } else {
          DEBUG and print "  Doesn't look at all con <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	730	833	
==>will not need it. Althoug this may be a 
# niave understanding of what this stuff is for, so if it is, I <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	31222	31469	
==>dy' => 154
		}
	},
	{#State 106
		ACTIONS => {
			":" => 155,
			"." => 156
		},
		DEFAULT => -39
	},
	{#State 107
		ACTIONS => {
			":" => 42,
			"(" => 48,
			"{" => 38,
			"[" => 47,
			"." => 49,
			'STRING' => 44
		},
		GOTO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558686	559129	
==>thod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 640,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 131 \"src/o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560070	560486	
==>thod",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 641,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "B <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	2368	2585	
==>sub is_goto          { return shift->is('goto');          }
sub is_ident         { return shift->is('ident');         }
sub is_if            { return shift->is('if');            }
sub is_infix_arith   { return shift->i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	5463	5638	
==>= $props{op}    ? $props{op}->value    : $name;

    if ($type) {
      $handler->start_element({
        Name       => 'sub',
        Attributes => {
          name  => $name, <==
2	/Users/nnunley/parrot/lib/Test/More.pm	22727	22932	
==>de else it will
treat it as a normal failure.  See L<BUGS and CAVEATS>)


=item B<todo_skip>

    TODO: {
        todo_skip $why, $how_many if $condition;

        ...normal testing code...
    }

With todo <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25429	25553	
==>TEP_$forloop= $stepexpr
FOR_$forloop:
	gt FORLOOP_STEP_$forloop, 0.0, FOR_GT_$forloop
	lt $result, FORLOOP_END_$forloop, AFTE <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1495	1733	
==>t with $_ !!
  
    s/ The / the /g; # just for example
    
    if( 'A' eq chr(65) ) {  # (if in an ASCII world)
      tr/\xA0/ /;
      tr/\xAD//d;
    }
    
    ...or however you want to alter the value...
  }

=back

You're unlikely t <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3784	3895	
==>ert X.c -> X.o for all X.c
    compile($_) foreach (@pmcs);

    # lib-GROUP.c
    for my $group (keys %$group_f <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3888	3999	
==>ert X.c -> X.o for all X.c
    compile($_) foreach (@pmcs);

    # lib-GROUP.c
    for my $group (keys %$group_f <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	135	295	
==>he Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use wa <==
2	/Users/nnunley/parrot/config/auto/format.pm	802	922	
==>g") || ($iv eq "long int")) {
        $ivformat = "%ld";
    } elsif (($iv eq "long long") || ($iv eq "long long int")) { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011929	1012206	
==>",
                  "CODE" => 1129,
                  "ARGS" => [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 39 \"src/ops/sys.ops\"\n  {{\@1}} = Parrot_Run_OS_Command(interpreter, {{\@ <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	2072	2217	
==>rs/nnunley/parrot/src/classes' . $PATHQUOTE . " " .
        $source;
};

sub partial_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    m <==
2	/Users/nnunley/parrot/examples/benchmarks/stress.pl	525	643	
==>array {
    my @foo;
    foreach (1..10000) {
	$foo[$_] = $_;
    }
    return \@foo;
}

=head1 SEE ALSO

F<examples/be <==
2	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	434	552	
==>array {
    my @foo;
    foreach (1..10000) {
	$foo[$_] = $_;
    }
    return \@foo;
}

=head1 SEE ALSO

F<examples/be <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	281	388	
==>::core_pmcs;

use strict;
use warnings;

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure: <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3885	3990	
==>}
} 
elsif ($mode eq 'copy') {
	# Copy *.so -> destination, where destination is the first
    # argument, <==
2	/Users/nnunley/parrot/languages/regex/test.pl	1939	2082	
==>f (/--optimize=(.*)/) {
        my $opts = $1;
        $tree_opt = ($opts =~ /t/i);
        $list_opt = ($opts =~ /l/i);
    } elsif (/^(-d|--de <==
2	/Users/nnunley/parrot/languages/regex/regex.pl	345	479	
==>f (/--optimize=(.*)/) {
        my $opts = $1;
        $tree_opt = ($opts =~ /t/i);
        $list_opt = ($opts =~ /l/i);
    } elsif (/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104031	1104117	
==>);\n\t}\n\tif (type <= 0)\n\t\treal_exception(interpreter, NULL, NO_CLASS,\n\t\t\t\t\"C <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105246	1105332	
==>);\n\t}\n\tif (type <= 0)\n\t\treal_exception(interpreter, NULL, NO_CLASS,\n\t\t\t\t\"C <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	4900	5043	
==>v eq 'B') {
		$DataB{$s} = $o;
	    } elsif ($v eq 'D') {
		$DataD{$s} = $o;
	    } elsif ($v eq 'R') {
		$DataR{$s} = $o;
	    }
	} elsif ($v e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79530	79653	
==>interpreter, enum_class_UnManagedStruct);\n      PMC_data({{\@1}}) = p;\n  }\n  {{+=4}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81051	81174	
==>interpreter, enum_class_UnManagedStruct);\n      PMC_data({{\@1}}) = p;\n  }\n  {{+=4}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	9224	9338	
==>eg}->{code}}, <<DEBUG;
	${seg}_debug($sourceline)
DEBUG
}

sub english_func {
	local $_=$_[0];
	s/\$$/dollar/;
	s/\ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	1554	1863	
==>block and $block->isa("Jako::Construct::Block"));
  confess "Extra arguments!" if @_;

  return bless {
    BLOCK   => $block,  # Parent block

    PEER    => undef,   # Peer block (if any).
    KIND    => $kind,   # One of file, sub, if, else, while, etc.
    TYPE    => $type,   # Return type, if any.
    PR <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41444	41613	
==>> 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86
		},
		DEFAULT => -111
	},
	{#State 177
		DEFAULT => -108
	},
	{#State 178
		ACTIONS => {
			"-" => 72,
			" <==
2	/Users/nnunley/parrot/config/auto/headers.pm	2420	2664	
==>et(testheader  => undef);

            eval { cc_build(); };
            if (!$@ && cc_run() =~ /^$header OK/) {
                $pass = 1;
                push @found_headers, $header;
            }
            cc_clean();
            last if $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	328636	328853	
==>L)((Parrot_Float4)({{\@1}}));\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	379	491	
==>Section::IMCC;

use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new s <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10735	10843	
==>set_bang {
  my ($self, $node) = @_;

  _num_arg ($node, 2, 'set!');

  my $symbol = _get_arg ($node, 1)->{va <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31416	31552	
==>$nil      = BuildLiteral( $parser, 'nil', 'nil' );
    push @opcodes1, @{ $nil->[1] };

    for ( @{$vars} ) {
        push @opcodes1 <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	1178	1291	
==>ty body in the dump. This may be useful for debugging.

=item C<--include=/path/to/pmc>

Specify include path wher <==
2	/Users/nnunley/parrot/languages/regex/regex.pl	1679	1863	
==>ns{module} = "Regex::CodeGen::Perl5";
} else {
  die "unknown language '$language'\n";
}

my $ctx = { };
my $trees = Regex::expr_to_tree($expr, $ctx, %options);

if ($operation eq 'unpa <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	522	623	
==>k is not defined!" unless defined $block;
  confess "Left is not defined!" unless defined $left;
  con <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	534	635	
==>k is not defined!" unless defined $block;
  confess "Left is not defined!" unless defined $left;
  con <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879929	880348	
==>",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 997,
                  "ARGS" => [
                              "s",
                              "sc",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040972	1041174	
==>,
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line 120 \"src/ops/var.ops\"\n    Parrot_store_global(interpreter, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041865	1042067	
==>,
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line 120 \"src/ops/var.ops\"\n    Parrot_store_global(interpreter, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367300	367596	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368091	368387	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	5852	5959	
==>eceding
    # newlines, so *this* line is (number of newlines plus one).
    # But that's the number for *th <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688253	688583	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9726	9829	
==>le was built to facilitate the Pugs test suite. It has the
distinction of being the very first module wr <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2144	2264	
==>rams, \@_, $self );

	if($$self{DEBUG}) {
		_DBLoad();
		$retval = eval '$self->_DBParse()';#Do not create stab entry <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2065	2181	
==>rams, \@_, $self );

	if($$self{DEBUG}) {
		_DBLoad();
		$retval = eval '$self->_DBParse()';#Do not create stab entry <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2532	2633	
==>r->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $self->op } });
    $self->l <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2409	2510	
==>r->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $self->op } });
    $self->l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724580	724918	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_newline",
                  "FLAGS" => ":base_io",
                  " <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	772	874	
==>rserToken> and inherits all its methods,
and adds these methods:

=over

=item $token->tagname

This re <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1198	1300	
==>rserToken> and inherits all its methods,
and adds these methods:

=over

=item $token->tagname

This re <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	5874	6029	
==>sh @arg, make_arg($_, $reg_num++, \$temp_cnt, \@temps,
                                \@extra_preamble, \@extra_postamble);
            $sig .= $sig_char{$ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	3784	3907	
==>token
{
    my $self = shift;
    my $token = shift;
    my $tagname = $token->tagname;

    # We make the code tags in item <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	433	521	
==>d C<FE<lt>I<file>E<gt>>, and using the
Parrot house-style provided by C<Parrot::HTMLPage> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735048	735252	
==>"ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 139 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	4060	4166	
==>"  $temp_pmc = $dest");

    my $dest_name = $dest_ident->value;
    $compiler->emit("  global \"$dest_name <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	7242	7453	
==>lines = $self->slurp_file($file);
  unshift @lines, "#line 1 \"$file\"\n";

  while(@lines) {
    $_ = shift @lines;

    $line++;

    last if m/^__EOF__\s*$/;

    if (m/^\s*use\s+([a-zA-Z_][a-zA-Z0-9_]*(::[a-z <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244027	244314	
==>(interpreter, l, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244959	245246	
==>(interpreter, l, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45477	45655	
==>[
                              "ic"
                            ],
                  "BODY" => "#line 737 \"src/ops/core.ops\"\n  Parrot_pop_mark(interpreter, {{\@1}});\n  {{+=2} <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	2421	2529	
==>nough.  Test::Builder provides the a
building block upon which to write your own test libraries I<which can
w <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	1105	1285	
==>src/jit_cpu.c -{-Wcast-align}        # lots of noise!
src/nci.c     -{-Wstrict-prototypes} # lots of noise!
EOF
    }

    close CFLAGS;
}

sub makefiles
{
    my ($self, $conf) = @ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	15636	15758	
==>$expected, $desc, \%extra, $extra{todo}, $call_pkg ) if ( keys %extra );
            local *{ $call_pkg . '::TODO' } = \$ex <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	18187	18309	
==>$expected, $desc, \%extra, $extra{todo}, $call_pkg ) if ( keys %extra );
            local *{ $call_pkg . '::TODO' } = \$ex <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6840	6958	
==>h @to_unget, $self->get_token;
        
        last if $to_unget[-1]->is_end
            and $to_unget[-1]->tagname eq <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	6541	6654	
==>h @to_unget, $self->get_token;
          last if $to_unget[-1]->is_end
              and $to_unget[-1]->tagname eq <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800154	800452	
==>AGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 903,
                  "ARGS" = <==
2	/Users/nnunley/parrot/Configure.pl	8268	8426	
==>bugging});
$args{maintainer} = 1 if defined $args{lex} or defined $args{yacc};

print <<"END";
Parrot Version $parrot_version Configure 2.0
Copyright (C) 2001- <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4456	4574	
==>nt "\n";';
    }
    return @ops;
}

sub output_classmatch {
    my ($self, $incexc, $failLabel) = @_;

    my $passLab <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4793	4910	
==>nt "\n"';
    }
    return @ops;
}

sub output_classmatch {
    my ($self, $incexc, $failLabel) = @_;

    my $passLab <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4261	4383	
==>s}_class_init(interpreter, type$class, pass);
EOC
    }
    $cout .= <<"EOC";
    }
    return pmc;
}

EOC
}

=back

=head2 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	475	589	
==>-----------------
{
#
# Module Parse::Yapp::Driver
#
# This module is part of the Parse::Yapp package availabl <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	464	573	
==>-----------------
{
#
# Module Parse::Yapp::Driver
#
# This module is part of the Parse::Yapp package availabl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598154	598274	
==>to_cstring( interpreter, {{\@2}} ));\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599201	599321	
==>to_cstring( interpreter, {{\@2}} ));\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28170	28301	
==>$out_name) = @_;

    my $hout = dont_edit($self->{file});
    my $name = uc $self->{class};
    $hout .= <<"EOH";

#ifndef PARROT_P <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	3243	3412	
==>/DEVEL: -?(\w+)/        and $smoke{DEVEL}        = $1;
  $html =~ /harness_args: (.+)$/m  and $smoke{harness_args} = $1;
  $html =~ /build_dir: (.+)$/m     and $smoke{bui <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359283	359380	
==>" => "#line 250 \"src/ops/io.ops\"\n  STRING * const s = {{\@1}};\n  if (s && string_length(interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360031	360128	
==>" => "#line 250 \"src/ops/io.ops\"\n  STRING * const s = {{\@1}};\n  if (s && string_length(interp <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1062	1208	
==>b handle_text {  $_[0]{'Errata_seen'} and $_[0]{'Thispara'} .= $_[1] }

sub start_Para  {  $_[0]{'Thispara'} = '' }

sub start_head1 {
  if($_[0]{' <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	601	697	
==>TURN()> statements, while auto ops can count
on an automatically generated next-op to be appended <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	284	394	
==>my ($svnid) = '$Id: /parrot/tools/dev/gen_charset_tables.pl 19607 2006-05-30T15:23:20.183054Z coke  $' =~ /^\$[ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	48238	48441	
==>To prevent <extract_quotelike> from mucking about with the input in this way
(this is the only case where a list-context C<extract_quotelike> does so),
you can pass the input variable as an interpolated l <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10997	11138	
==>ee::alternate::render {
    my $op = shift;
    my $str = '';
    foreach my $case (@{ $op->{args} }) {
        $str .= "|" unless length($str <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	165	354	
==>:Section::Config - Configuration documentation section

=head1 SYNOPSIS

	use Parrot::Docs::Section::Config;

=head1 DESCRIPTION

A documentation section describing Parrot's configuration sy <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	1834	1948	
==>(BUILD_TOOLS_DIR)/ops2c.pl CGP --core
EOF
            TEMP_cg_o => '$(OPS_DIR)/core_ops_cg$(O) $(OPS_DIR)/core_ops_ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24644	24752	
==>efined $_[0] ? \$_[0] : \$_;
		my @match = Text::Balanced::_match_tagged($textref, $pre, $ldel, $rdel, $omode <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	4995	5172	
==>me$/) {
            # always fine
        }

        # code
        elsif (/^code$/) {
            if ($rule->{$_} =~ /^([0-9A-F]{2}\s+)*[0-9A-F]{2}$/) {
                if ($has <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	30	129	
==>/Punie.pm 18020 2006-03-26T19:46:16.084129Z bernhard  $

package Parrot::Test::Punie;

use strict;
u <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836839	837218	
==>E" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 948,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 234 \"src/ops/s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837571	837867	
==>E" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 949,
                  "ARGS" => [
                              "n <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	2480	2593	
==>mple::DEBUG is already defined, Pod::Simple::Debug will
throw a fatal error to the effect that
"it's s too late to <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033238	1033337	
==>rpreter->ctx);\n    STRING * const lex_name = {{\@1}};\n    PMC * const lex_pad = Parrot_find_pad(in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034336	1034435	
==>rpreter->ctx);\n    STRING * const lex_name = {{\@1}};\n    PMC * const lex_pad = Parrot_find_pad(in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838305	838565	
==>E" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 950,
                  "ARGS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	839037	839268	
==>E" => "restore",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 95 <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8773	8876	
==>nd build code to pop it.
${ITEMP1} = elements ${STYPES}
dec ${ITEMP1}
${PTEMP0} = ${STYPES}[${ITEMP1}]
$ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7345	7448	
==>nd build code to pop it.
${ITEMP1} = elements ${STYPES}
dec ${ITEMP1}
${PTEMP0} = ${STYPES}[${ITEMP1}]
$ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4902	5024	
==>r.pir"
            load_bytecode "PGE/Text.pir"
            load_bytecode "PGE/Util.pir"
            p6rule_compile = compr <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	13420	13566	
==>+ i, 1);
    /* plus one short name */
    for (i = 0; i < ${bs}op_lib.op_count; i++)
        if (get_op(info[i].name, 0) == -1)
            store_ <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	7356	7451	
==>tOps::optable{$opname} = ++$ParrotOps::max_op_num;
	warn "$opname\t$n\tnot mentioned in ops.num\ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	2702	2860	
==>text =~ m{^(int|num|pmc|str)(?!\w)(.*)$}) {
      my $type = uc substr($1, 0, 1);
      push @tokens, Jako::Token->new(
        $file, $line, 'type', $type, $1 <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	19854	20002	
==>Builder::Level = 2;
        $Test->ok($test);
    }

=cut

sub level {
    my($self, $level) = @_;

    if( defined $level ) {
        $Level = $leve <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301841	302121	
==>" => "inline",
                  "CODE" => 351,
                  "ARGS" => [
                              "i",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 980 \"src/ops/cmp.ops\"\n  {{\@1} <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3647	3763	
==>a module!")
        unless $self->block->kind eq 'module';

      my %module_props = $self->block->props;

      $sel <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6311	6427	
==>a module!")
        unless $self->block->kind eq 'module';

      my %module_props = $self->block->props;

      $sel <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	25460	25645	
==>\n";
      next;
    }
    #~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
    # ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~

    i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	383	487	
==>:Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $left, $right) = @_;

  confess("Bl <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	374	478	
==>:Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $left, $right) = @_;

  confess("Bl <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8145	8269	
==>nt->text;
      
        my $value;

        if ($self->skip_assign) {
          $value = Jako::Construct::Expression::Value: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5151	5269	
==>nt->text;

        my $value;

        if ($self->skip_assign) {
          $value = Jako::Construct::Expression::Value: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948858	948964	
==>= Parrot_string_trans_charset(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949658	949764	
==>= Parrot_string_trans_charset(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	36391	36515	
==>_p,
  'char>?'           => \&_op_char_gt_p,
  'char<=?'          => \&_op_char_le_p,
  'char>=?'          => \&_op_char_ge_p <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	136	226	
==>rl Foundation.  All Rights Reserved.
# $Id: /parrot/config/gen/makefiles/dynclasses_pl.in 1 <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	5928	6037	
==>t Digest::MD5 is still about 135 times faster.
You can only encrypt Data up to one million bytes in an accepta <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2303	2391	
==>\n}\\par}\n",
 'head3'   => "\n{\\pard\\li#rtfindent#\\s33\\keepn\\sb90\\sa180\\f2\\fs#he <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52793	53056	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gc_debug",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53548	53811	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gc_debug",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYP <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	426	612	
==>tion = 'Determining whether your compiler supports computed goto';
@args        = qw(cgoto miniparrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('mi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	533	668	
==>>kind;
  my $peer        = $self->peer;

  my $prefix;

  if ($self->prefix) {
    $prefix = $self->prefix;
  }
  else {
    $prefix = $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	513	648	
==>>kind;
  my $peer        = $self->peer;

  my $prefix;

  if ($self->prefix) {
    $prefix = $self->prefix;
  }
  else {
    $prefix = $ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76678	76786	
==>:RD_TRACE
	    && $::RD_TRACE =~ /\d+/
	    && $::RD_TRACE>1
	    && $::RD_TRACE+10<length($_[0]))
	{
		my $c <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76989	77097	
==>:RD_TRACE
	    && $::RD_TRACE =~ /\d+/
	    && $::RD_TRACE>1
	    && $::RD_TRACE+10<length($_[0]))
	{
		my $c <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	10643	10825	
==>, "",
					  q{' . $self->{"name"} .'})
						if defined $::RD_TRACE;').'
		$return = $score_return;
	}
	splice @{$thisparser->{errors}}, $err_at;
	$return = $item[$#item] unless defi <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	48884	48977	
==>ND__

TODO:
A start_formatting_code and end_formatting_code methods, which in the
base class c <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4632	4733	
==>a key name, a trigger name, & a C<CODE> ref and returns a
L<Parrot::Configure::Data> object.

=cut

su <==
2	/Users/nnunley/parrot/config/inter/charset.pm	918	1131	
==>charset_list = prompt('Which charsets would you like?', $charset_list);
        }
    }

    # names of class files for src/pmc/Makefile
    (my $TEMP_charset_o = $charset_list) =~ s/\.c/\$(O)/g;

    my $TEMP_char <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9519	9623	
==>est passed');
  flunk('This test failed');

  skip('skip this test for now');

  flunk('this fails, but m <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28104	28249	
==>utput file we are generating.

=cut

sub gen_h() {
    my ($self, $out_name) = @_;

    my $hout = dont_edit($self->{file});
    my $name = uc $se <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	2706	2903	
==>is not a good API unless it's constant).

Think multithreaded access, or just plain reentrancy (think recursion).

Often you can collect a group of data fields into a "context" (or
"descriptor", "ha <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2340	2455	
==>ck. Previous declaration on line %d of file '%s'.",
      $self->name, $sym->line, $sym->file);
  }

  #
  # Now tha <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2087	2202	
==>ck. Previous declaration on line %d of file '%s'.",
      $self->name, $sym->line, $sym->file);
  }

  #
  # Now tha <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	24762	24885	
==>!";
	_autoflush($fh);
    }

    return $fh;
}


sub _is_fh {
    my $maybe_fh = shift;

    return 1 if ref \$maybe_fh eq ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542403	542798	
==>ced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 627,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic" <==
2	/Users/nnunley/parrot/lib/Test/More.pm	32317	32504	
==>ts do.

Test::Deep contains much better set comparison functions.

=cut

sub eq_set  {
    my($a1, $a2) = @_;
    return 0 unless @$a1 == @$a2;

    # There's faster ways to do this, but t <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	839	937	
==>rmenien, all rights reserved.
# (see the pod text in Parse::Yapp module for use and distribution r <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	815	912	
==>rmenien, all rights reserved.
# (see the pod text in Parse::Yapp module for use and distribution r <==
2	/Users/nnunley/parrot/config/init/hints/irix.pm	219	319	
==>$ccflags = $conf->data->get('ccflags') || "";

    # 1185 An enumerated type is mixed with another ty <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2419	2522	
==>nt (%s)!", $formal_arg_name) 
      unless defined $formal_arg_type;

    $self->INTERNAL_ERROR("Can't d <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2119	2222	
==>nt (%s)!", $formal_arg_name) 
      unless defined $formal_arg_type;

    $self->INTERNAL_ERROR("Can't d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	37696	38136	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS",
                  "NAME" => "rethrow",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 48,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	6606	6703	
==>ump_table;
my $index = 0;
my ($prev_source, $prev_func_name, $prev_def);

foreach my $op ($ops->op <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	422	529	
==>anguage => 'perl6', compiler => 'perl6.pbc';

That's it.  Seriously.

=head1 DESCRIPTION

This module provid <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	1325	1605	
==>h @pieces, $_;
	    }
	}
	return rop('seq', \@pieces);
    } elsif ($type eq 'alternate') {
	# Pull out common prefixes, and convert alternation with null
	# expressions to optional matches:
        #
        # opt(aR|aS) => a(R|S)
        # opt(R|)    => opt(R)?
        # opt(|R) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	10088	10241	
==>t_length   = delete $options{'max_content_length'};
  $max_content_length = 120 unless defined $max_content_length;

  Carp::croak( "Unknown " . ((1 == ke <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019299	1019588	
==>> 0,
                  "NAME" => "localtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020229	1020518	
==>> 0,
                  "NAME" => "localtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	8247	8416	
==>esult}->{symbol}\n";
    }

    sub visitBranchOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  goto $o <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33974	34139	
==>167,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			"<=" => 85,
			'OR' => 84,
			">" => 86
		}
	},
	{#State 1 <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	907	1067	
==>un in one of:
    #  languages
    #  languages/tcl
    #  languages/tcl/t

    my $path_to_parrot = $INC{"Parrot/Config.pm"};
    $path_to_parrot =~ s:/lib/Parr <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	9584	9913	
==>$out   .= " - $name";
        $result->{name} = $name;
    }
    else {
        $result->{name} = '';
    }

    if( $todo ) {
        $out   .= " # TODO $todo";
        $result->{reason} = $todo;
        $result->{type}   = 'todo';
    }
    else {
        $result->{reason} = '';
        $result->{type}   = '';
    }

    $self <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2660	2769	
==>e_t *cur_opcode asm ("esi") = cur_op;
    register char *   _reg_base   asm ("edi");
#else
    opcode_t *cur_o <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3229	3338	
==>e_t *cur_opcode asm ("esi") = cur_op;
    register char *   _reg_base   asm ("edi");
#else
    opcode_t *cur_o <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	254	353	
==>::Bc::Antlr3;
use Parrot::Test::Bc::Posix;

=head1 NAME

Test/Bc.pm - Testing routines specific to ' <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	510	762	
==>unless @_ == 2;

  my ($block, $peer) = @_;

  my $self = bless {
    BLOCK     => $block,

    KIND      => 'continue',
    PEER      => $peer,

    CONTENT   => [ ]
  }, $class;

  $block->push_content($self);

  return $self;
}

sub peer { return shi <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	2227	2534	
==>ush @methods, $cur_method;
            }

            # Initiate new method info.
            $cur_method = {
                class           => $1,
                method          => $2,
                unimplemented   => $3 ? 1 : 0,
                body            => ''
            };

        # Have we g <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	98	287	
==>06-20T20:02:00.179448Z bernhard  $

=pod

=head1 NAME

Parrot::Configure - Conducts the execution of Configuration Steps

=head1 SYNOPSIS

    use Parrot::Configure;

    my $conf = Parrot:: <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	1273	1434	
==>CHAR.
    unless($in =~ m/^\d+$/s) {
      # It's a named character reference.  Get its numeric Unicode value.
      $in = $Name2character{$in};
      return unde <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	282	383	
==>5_hex>;
use HTML::Template;
use Algorithm::TokenBucket;
use Time::Piece;
use Time::Seconds;

require_c <==
2	/Users/nnunley/parrot/config/auto/format.pm	1200	1400	
==>g double") {

        # Stay way from long double for now (it may be 64 or 80 bits)
        # die "long double not supported at this time, use double.";
        $nvsize   = $ldsize;
        $nvformat = <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2746	2885	
==>the heads of these indescribable files.\n";
    }
    print "\n";
    my @no_descriptions;
    foreach (@files) {
	my $info = &describe_file <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	19742	19858	
==>o 1.

Setting $Test::Builder::Level overrides.  This is typically useful
localized:

    {
        local $Test::Build <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	14745	14996	
==>result, [] ];
                push @{ $callop->{result} }, $result;
            }
            push @{ $expr->[1] }, $callop;
        }
        push @opcodes2, @{ $expr->[1] };
        my $assign = $var->[2];
        if ( $assign->isa('AssignOp') <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	4094	4325	
==>ssimal to abort processing the file.  But now we can
          ## just barrel on thru (but still not start a pod block).
          #splice @_;
          #push @_, undef;
          
          next;
        } else {
          $self->{ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	1142	1264	
==>~ /[!#]/) {
				$numtype="FLO";
			}
		}
		emit($numtype);
		goto MAIN;
	}
NOTNUM:
	#if ($cur eq "-" and $next =~ /[\d\.]/) <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2464	2583	
==>the test
if the output produced by the test code matches the C<$expected>
parameter.  Note that C<$expected> is a I<Perl <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3898	4017	
==>the test
if the output produced by the test code matches the C<$expected>
parameter.  Note that C<$expected> is a I<Perl <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3786	3965	
==>rph {
  my ($self, $to, $from) = @_;

  if ($to =~ /P/) {
    if ($from =~ /P/) {
      $self->_add_inst ('', 'clone',[$to,$from]);
    } elsif ($from =~ /I/) {
      $self->_add_i <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1590	1793	
==>DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
print "Elapsed time:  $N2\n"; # print  "El <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1590	1793	
==>DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
print "Elapsed time:  $N2\n"; # print  "El <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48717	48811	
==>e("an invalid repetition specifier", 0,$line);
					_error("Incorrect specification of a repeat <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9440	9576	
==>' . ($token->attr('type') || 'pod');
        
      } elsif ($tagname eq 'Data') {
        my $next = $self->get_token;
        next unle <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4275	4518	
==>e:$function"}++ 
                  unless ($variable_visible{$file}{$1} || 
                          $variable_visible{ALL}{$1});
            } elsif (/Calls (.*)/) {
                # calling a function outside of parrot!
                $ext <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4540	4681	
==>e:$function"}++
                  unless ($variable_visible{$file}{$1} ||
                          $variable_visible{ALL}{$1});
            } <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	13009	13168	
==>) {
            $jit_func = $restart_op;
        }
        elsif ($op->jump) {
            $jit_func = $cpcf_op;
        } else {
            $jit_func = $norma <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	591	703	
==>ode, $output, $desc) = @_;
  
    $count = $self->{builder}->current_test + 1;

    $desc = $language unless $des <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	583	693	
==>ode, $output, $desc) = @_;

    $count = $self->{builder}->current_test + 1;

    $desc = $language unless $des <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	6414	6509	
==>s{"="}}(@_[0..2], "le") },
	'>=' => sub { &{$opsubs{"="}}(@_[0..2], "ge") },
	'<>' => sub { &{$o <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	5107	5295	
==>ore = shift;
    my @files = map {$self->file_with_path($_)} $self->file_paths;
    
    if ( $recursive )
    {
        foreach my $dir ($self->directories)
        {
            next if d <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	6208	6344	
==>ORS

Idea by Tony Bowden and Paul Johnson, code by Michael G Schwern
E<lt>schwern@pobox.comE<gt>, wardrobe by Calvin Klein.


=head1 COPY <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846645	846746	
==>s/string.ops\"\n  STRING *s;\n  s = string_chr(interpreter, (UINTVAL){{\@2}});\n  {{\@1}} = s;\n  {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847441	847542	
==>s/string.ops\"\n  STRING *s;\n  s = string_chr(interpreter, (UINTVAL){{\@2}});\n  {{\@1}} = s;\n  {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	8228	8393	
==>'libparrot_shared_alias' => 'libparrot.dylib',
             'libparrot_soname' => '-install_name /opt/local/lib/libparrot.dylib',
             'libparrot_static' => ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46908	47007	
==>DY" => "#line 770 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Interp_debug_SET(interpreter,   {{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47691	47790	
==>DY" => "#line 770 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Interp_debug_SET(interpreter,   {{\@1} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1467	1578	
==>t be an option whether a given subclass even wants little treelets?


__END__

=head1 NAME

Pod::Simple::LinkSec <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26689	26816	
==>barf();
#	print STDERR "Processing call $sub\n";
	($result, $type, @code)=EXPRESSION({ignorecomma => 1});
#	print STDERR "Got ba <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	2846	2968	
==>@all_strings, [$len, $hashval, $str];
	$n = scalar @all_strings;
	$known_strings{$str} = $n;
	$this_file_seen{$str} = $line <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8805	8912	
==>r, {{\@1}});\n    struct PackFile_FixupEntry *fe = PackFile_find_fixup_entry(interpreter,\n\t    enum_fixup_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9921	10028	
==>r, {{\@1}});\n    struct PackFile_FixupEntry *fe = PackFile_find_fixup_entry(interpreter,\n\t    enum_fixup_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3345	3443	
==>ng =~ m/(^"|^".*?[^\\])\$/) { # Double-quote with an unescaped '$'.
      $string = substr($string, <==
2	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	552	726	
==>terested in the macro definitions
frozen:             comment V1 macros comment
                  { $item[3] }

# Return a hash reference where the macro_name is the key
macro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931145	931478	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_core",
                  "A <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2052	2146	
==><write_all_files()>

Writes C and header files for all the PMCs in the library,
I<or> E<lt>libn <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607542	607637	
==>ops/object.ops\"\n    {{\@1}} = VTABLE_get_attr(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608446	608541	
==>ops/object.ops\"\n    {{\@1}} = VTABLE_get_attr(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19503	19618	
==>R\n\nParagraph...\n" section, assuming that that section
isn't terribly long.

(This method tolerates "AUTHORS" inst <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	41186	41294	
==>fined($link_text) ? splice(@$link_text) : '');
      
      DEBUG > 2 and print "End of L-parsing for this no <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	7486	7754	
==>{label} ? ($_->{label}) : ()), $_->{code} } @output4
           );
}

sub dbg_render {
    if (UNIVERSAL::isa($_[0], 'Regex::Ops::List')) {
        map {
            if ($_->{name} eq 'LABEL') {
                "$_->{label}: ";
            } else {
                $_-> <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	35652	35781	
==>t_branch, $mv, "post_branch for rule $rule->{'name'}");
		$pir .= "### end post_branch\n";
	}

    # Calls/returns (calling class) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791613	791727	
==>}} = {{\@2}}->vtable->get_pmc_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792520	792634	
==>}} = {{\@2}}->vtable->get_pmc_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6386	6493	
==>g_0
POST_BRANCH_switch_${CURIC}_LOOP:
if i == 0 goto POST_BRANCH_switch_${CURIC}_LOOP_EXIT
    dec i
    j = <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4324	4431	
==>g_0
POST_BRANCH_switch_${CURIC}_LOOP:
if i == 0 goto POST_BRANCH_switch_${CURIC}_LOOP_EXIT
    dec i
    j = <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7179	7278	
==>"t")
' instr() tests
s1$="Mixed case"
print ucase$(s1$);" Upper"
print lcase$(s1$);" Lower"
a$="   F <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18908	19007	
==>"t")
' instr() tests
s1$="Mixed case"
print ucase$(s1$);" Upper"
print lcase$(s1$);" Lower"
a$="   F <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	200	312	
==>n section

=head1 SYNOPSIS

	use Parrot::Docs::Libs;

=head1 DESCRIPTION

A documentation section describing libr <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	85	225	
==>tep.pm 20340 2006-06-22T21:49:11.552283Z bernhard  $

=head1 NAME

Parrot::Configure::Step - Configuration Step Utilities

=head1 DESCRIPTION <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576562	576818	
==>1}} = VTABLE_subclass(interpreter, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577574	577830	
==>1}} = VTABLE_subclass(interpreter, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	26353	26520	
==>eturn ($back, @ops);
}

###################### New stuff ###################

# Most rewrite rules will declare a fallback point, and also jump back
# to the previous f <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2144	2264	
==>d also
    # clear up any lazy moves.
	my $pir .= <<'PIR';
${PTEMP0} = prop_type_state[${PC}]
if ${PTEMP0} == "" goto NOW <==
2	/Users/nnunley/parrot/config/auto/jit.pm	3808	4014	
==>osname eq 'darwin')
                || ($osname eq 'MSWin32')) {
                $execcapable = 0;
            }
        }
        $execcapable = $conf->options->get('execcapable')
            if defined $co <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29892	29990	
==>Standard::Const Instance Methods

Returns the C code for the method body.

=over 4

=cut

package P <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	5220	5323	
==>$checker->parse_file($self->path);
		$self->{POD_ERRORS_COUNT} = $checker->errors_seen;
		$self->{CONTAI <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3158	3259	
==>use strict;
use warnings;

use vars qw(@ISA %pmc_types @EXPORT_OK);

@ISA = qw( Exporter );
@EXPORT_OK <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	102	203	
==>use strict;
use warnings;

use vars qw(@ISA %pmc_types @EXPORT_OK);

@ISA = qw( Exporter );
@EXPORT_OK <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1579	1684	
==>gister_num} = ${STEMP0}

# Emit pop code.
${INS} = concat ${STACK$register_num}
${INS} = concat " = pop s\ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3289	3394	
==>gister_num} = ${STEMP0}

# Emit pop code.
${INS} = concat ${STACK$register_num}
${INS} = concat " = pop s\ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	25860	25999	
==>I the::internal
	the::internal = $func # avoid savetop
EOC
	    $func = 'the::internal';
	}
	print <<EOC;
	$ret_string$func($args)  $cmt
EOC <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2990	3139	
==>__LINE__ . ' File not found:' . $name ."\n";

    return;
}

=item C<c_header_file_directories()>

Returns the directories which contain C header file <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	13594	13722	
==>c)	# OUTERMOST DELIMITER
	{
		_failmsg qq{Did not find expected opening bracket at "} .
			     substr($$textref,pos($$textref),2 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	1374	1518	
==>ift : shift;
    my $name = shift;
    my $index_path = shift || 'index.html';
    my $text = shift;
    my @contents = @_;
    
    $self = $sel <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062161	1062486	
==>o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1186,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 246 \"src/op <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7526	7724	
==>$/
                or  die "In line rule name '$lhs' ill formed: ".
                        "report it as a BUG.\n";
                $$dotpos = $1;
            };

            @sempar =       $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7181	7373	
==>$/
                or  die "In line rule name '$lhs' ill formed: ".
                        "report it as a BUG.\n";
                $$dotpos = $1;
            };

            @sempar =       $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	4	100	
==>uire 5;
package Pod::Simple::DumpAsText;
$VERSION = '2.02';
use Pod::Simple ();
BEGIN {@ISA = ('P <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	25725	25938	
==>um_class_$entry->[1];
EOC
        }
    }
    # just to be safe
    foreach my $dynpmc (keys %init_mmds) {
        next if $dynpmc eq $classname;
        $cout .= <<"EOC";
        assert(my_enum_class_$dynpmc != en <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1576	1786	
==>type_state, prop_stack_depth, lazy_moves
stack_depth = -1
prop_type_state = new Hash
prop_stack_depth = new Hash
lazy_moves = new ResizablePMCArray
PIR
}

# Post translation hook.
sub post_translation() {
	# Not <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28022	28196	
==>push @opcodes, @{ $cond->[1] };
    push @opcodes, new BranchIfOp( $parser,
        'arg1'   => $cond->[0],
        'result' => $l_break,
    );
    push @opcodes, new Br <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3424	3528	
==>::Parser/"Tree">

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserve <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	14376	14515	
==>OTOS => {
			'expr' => 45,
			'charclass' => 12
		}
	},
	{#State 27
		ACTIONS => {
			"?" => 46
		},
		DEFAULT => -13
	},
	{#State 28
		ACTI <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	3934	4079	
==>ioctl' => '',
             'i_crypt' => undef,
             'i_db' => 'define',
             'i_dbm' => undef,
             'i_dirent' => 'define' <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	6218	6328	
==>est::force_todo_test_junction, ' '~$Test::num_of_tests_run~' ') >= 0;

    if $todo {
        if (substr($todo, <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	47825	48043	
==>0], $_[1], $_[2], $_[3], undef );
        }
	],
	[#Rule 20
		 '@5-9', 0,
sub
#line 132 "Lua\lua51.yp"
{
            PushScope( $_[0] );
            my $var = BuildLocalVariable( $_[0], $_[2] );
            Ins <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	10174	10377	
==>ocument.

= FUNCTIONS

- `plan (Int $number_of_tests) returns Void`

All tests need a plan. A plan is simply the number of tests which are
expected to run. This should be specified at the very top of your <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266737	267038	
==>0,
                  "ARGS" => [
                              "i",
                              "sc",
                              "sc"
                            ],
                  "BODY" => "#line 806 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	1564	1665	
==>end if



' Passing string arrays, expect 99 and "Hello"
function foo(i, thing$())
	print i
	print thi <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2371	2484	
==>ush(@saves, $var);
				}
			}
			if (@saves) {
				$edit.=qq{\tfind_global _GLOBALS, "COMMON"\n};
				foreach(@sav <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2780	2893	
==>ush(@saves, $var);
				}
			}
			if (@saves) {
				$edit.=qq{\tfind_global _GLOBALS, "COMMON"\n};
				foreach(@sav <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206455	206562	
==>4 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207397	207504	
==>4 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563126	563448	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addmethod",
                  "FLAGS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564023	564345	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addmethod",
                  "FLAGS" = <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27831	27943	
==>e->{'pop'}) {
			$pir .= "    type_trans = pop stypes\n";
		}
		for (1..$rule->{'push'}) {
			$pir .= "    type_t <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4667	4844	
==>INPUT};
    s/^\n//
        and $parser->YYData->{lineno}++;

    while (1) {
        $parser->YYData->{INPUT}
            or $parser->YYData->{INPUT} = readline $parser->Y <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	5488	5586	
==>on}_${minor_version}_${patch_version}";
my $init_func = "Parrot_DynOp_${base}${suffix}_$mmp_v";

pr <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	9074	9198	
==>$1);	# CUT OFF WHATEVER CAUSED THE SHORTNESS
			goto short if ($omode eq 'PARA' || $omode eq 'MAX');
			_failmsg "Found inval <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	105	261	
==>:11.552283Z bernhard  $

=head1 NAME

Parrot::Pmc2c - PMC to C Code Generation

=head1 SYNOPSIS

    use Parrot::Pmc2c;

=head1 DESCRIPTION

C<Parrot::Pmc2c> <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	49821	49954	
==>t( $_[0], $_[2] );
            BuildAssigns( $_[0], $_[2], [] );
        }
	],
	[#Rule 32
		 '_if_then', 3,
sub
#line 195 "Lua\ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	35384	35492	
==>CODE';
sp_dest = next_pc + I_arg_0
ss = clone stypes
ss_propogate[sp_dest] = ss
PIRCODE
        }

		# Finall <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	812	1022	
==>expressions.

=cut

my $file = open_tmt(shift @ARGV);
my ($cmd, @args) = extract_info($file);

print    header($cmd, @args);
print arg_check(@args);
print   helpers(@args);
print arguments(@args);
print      bod <==
2	/Users/nnunley/parrot/lib/Test/More.pm	32043	32216	
==>cy of order only
applies to the top level.

    ok( eq_set(\@this, \@that) );

Is better written:

    is_deeply( [sort @this], [sort @that] );

B<NOTE> By historical acciden <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3670	3776	
==>e_for_name
{
	my $self = shift;
	my $name = shift;
	
	return $type_for_name{$name} if exists $type_for_name <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059349	1059621	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_name",
                  "FLAGS" = <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	1396	1580	
==>der(
            $title, $self->{NAV_BAR}, $self->{RESOURCES_URL});

    $self->version_tag_comment;

    return 1;
}

=item C<do_middle()>

Does the middle of the document. This splits <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18790	18899	
==>CC compilation\n";
			$runtime_jump=1;
		}
	}
}
sub parse_loop {
	my $do=pop @dos;
	if ($do->{needstmt} and no <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18884	19104	
==>, new NoOp($parser);
        }
        push @params, $arg->[0];
    }
    if ( scalar(@opcodes) and $opcodes[-1]->isa('CallOp') ) {
        unless ( exists $params[-1]->{pragma} ) {
            $params[-1]->{pragma} <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	468	590	
==>This module provides provides a means for registering, executing, and
coordinating one or more Configuration steps.  Please <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2137	2381	
==>compile($compiler);

    if ($cond eq 'unless') {
      $op = $compiler->invert_relop($op);
      $cond = 'if';
    }

    $compiler->emit("  $cond $left $op $right goto _LABEL_$name");
  }

  return;
}


#
# sax()
#

sub sax
{
  my $self = shif <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	3582	3730	
==>$name}++;
        }
        elsif( $type eq '%' ){
            $out .= "    croak 'Initializer for $name must be hash reference'\n";
            $out <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	35659	35869	
==>9
		},
		DEFAULT => -60
	},
	{#State 134
		ACTIONS => {
			'NAME' => 174
		}
	},
	{#State 135
		DEFAULT => -85
	},
	{#State 136
		DEFAULT => -46
	},
	{#State 137
		ACTIONS => {
			"^" => 79
		} <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	56034	56141	
==>n
subroutines reapplied. Characters which are thus removed are accumulated and
eventually become the next fi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86739	86953	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new_callback",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87740	87954	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new_callback",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	4089	4300	
==>ith exit code $exit_code")
                  if $exit_code and not $pass;

            unless($ENV{POSTMORTEM}) {
                unlink $f_out;
            }

            return $pass;
        };
    }
}


__PAC <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	1920	2043	
==>le',
	'pmc' => 'PMC code',
	'pod' => 'POD documentation',
	'prd' => 'Parse::RecDescent grammar file',
	'ps' => 'Postscript c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514483	514967	
==>pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 593,
                  "ARGS" => [
                              "n",
                              "nc",
                              "n"
                            ],
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757817	758083	
==>"JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758589	758855	
==>"JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642282	642430	
==>@1}} = {{\@2}}->vtable->type_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643170	643318	
==>@1}} = {{\@2}}->vtable->type_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/config/auto/funcptr.pm	3	95	
==>opyright (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/config/auto/funcptr.pm 19593 2006 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22912	23039	
==>ableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 73
		ACTIONS => {
			"-" => 24,
			'NAME' => <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	47346	47572	
==>" (i.e. the right delimiter of the here document),

=item [7..10]

"" (a here document has no second left delimiter, second text, second right
delimiter, or trailing modifiers).

=back

However, the matching position of the inp <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24166	24320	
==>ableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 76
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25979	26068	
==>sh @{$code{$seg}->{code}}, <<NEXT;
	add $ps->{var}, $ps->{var}, FORLOOP_STEP_$ps->{num}
	g <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26164	26253	
==>sh @{$code{$seg}->{code}}, <<NEXT;
	add $ps->{var}, $ps->{var}, FORLOOP_STEP_$ps->{num}
	g <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83698	83787	
==>t_pmc_keyed_int(interpreter,\n      interpreter->iglobals, IGLOBALS_COMPREG_HASH);\n  VTAB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84604	84693	
==>t_pmc_keyed_int(interpreter,\n      interpreter->iglobals, IGLOBALS_COMPREG_HASH);\n  VTAB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322329	322582	
==>\"src/ops/dotgnu.ops\"\n  {{\@1}} = (UINTVAL)((Parrot_UInt4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323101	323354	
==>\"src/ops/dotgnu.ops\"\n  {{\@1}} = (UINTVAL)((Parrot_UInt4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499406	499549	
==>n"
                            ],
                  "BODY" => "#line 600 \"src/ops/math.ops\"\n  {{\@1}} = floatval_mod({{\@1}}, {{\@2}});\n  {{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15220	15325	
==>int "== $_[0]\n";
  push @{ $self->{'token_buffer'} },
       $self->{'text_token_class'}->new(@_);
  retu <==
2	/Users/nnunley/parrot/tools/dev/manicheck.pl	1183	1273	
==>tUtils::Manifest::skipcheck();

printf "Found %d distinct files among MANIFEST and director <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5574	5692	
==>tions=$$states[$stateno];

#DBG>	print STDERR ('-' x 40),"\n";
#DBG>		$debug & 0x2
#DBG>	and	print STDERR "In state <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5306	5420	
==>tions=$$states[$stateno];

#DBG>	print STDERR ('-' x 40),"\n";
#DBG>		$debug & 0x2
#DBG>	and	print STDERR "In state <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	23307	23589	
==>open->[-1][1]{'start_line'} = $para->[1]{'start_line'};
          # what's that for?
        
        $self->{'content_seen'} ||= 1;
        $self->_handle_element_end( $scratch = 'for' );
      }
      DEBUG > 1 and print "Popping $curr_open->[-1][0] $curr_open->[-1][1]{'target'} b <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5263	5387	
==>iled ($?)\n";
		}
	}
}

sub compile {
    my ($src_stem, $dest_stem) = @_;

    $dest_stem ||= $src_stem;
    if (needs_build <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	13714	13945	
==>th.h
sinf        math.h
sinh        math.h
sinhf       math.h
sinhl       math.h
sinl        math.h
sprintf     stdio.h
sqrt        math.h
sqrtf       math.h
sqrtl       math.h
srand       stdlib.h
sscanf      stdio.h
stderr      st <==
2	/Users/nnunley/parrot/config/init/defaults.pm	4397	4518	
==>mic linking?
        has_static_linking => 1,
        has_dynamic_linking => 0,

        # default behaviour for linking p <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	2019	2210	
==>', 'tools/build/dynoplibs.pl'),
            $self->new_item('', 'tools/build/dynpmc.pl'),
            $self->new_item('', 'tools/build/fingerprint_c.pl'),
            $self->new_item('', 'tool <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	19630	19818	
==>s;

    Parrot::Pmc2c::Library
        ->new( \%opt, read_dump($include, "vtable.pmc"), %pmcs )
        ->write_all_files;
}

=head2 gen_def( [$dir1, $dir2], \%pmc )

Generate a .def file f <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	16257	16357	
==>->{type}op:...> specification:
			 expected 3 args, but found $span instead", $line);
		Parse::RecDes <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	17369	17476	
==>'   => {'from'=>$thisline,   'to'=>undef},
				'column' => {'from'=>$thiscolumn, 'to'=>undef} };
	}
}

sub i <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1567	1707	
==>sub () { $value } ";
    print "# Starting Pod::Simple::DEBUG = $value\n";
  }
  
  require Pod::Simple;
  return;
}

1;


__END__

=head1 NA <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	418	529	
==>ript checks that the C source code conforms to the standards in
PDD 7.

To run it on all the C source code files <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10585	10697	
==>ecified relative path below the directory.

=cut

sub file_with_relative_path
{
    my $self = shift;
    my $pat <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2853	3049	
==>al_is()";
        &Test::is.goto($result, $expected, $desc, :$todo, :$depends);
    }
}

## cmp_ok

sub cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, :$todo, :$depends) returns B <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	31075	31168	
==>present!) before the substring is extracted.
The final argument specifies the escape character <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	38047	38150	
==>=back

The various options that can be specified are:

=over 4

=item C<reject =E<gt> $listref>

The lis <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	17203	17409	
==>ARGS" => [
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 300 \"src/ops/core.ops\"\n  if ({{\@1}} != 0.0) {\n    {{+={ <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	1433	1585	
==>ath($volume, $directories, '');
    
    # To remove the trailing slash.
    $parent_path = File::Spec->canonpath($parent_path);
    
    # If we are roo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653364	653456	
==>1}} = {{\@2}}->vtable->find_method(interpreter, {{\@2}}, {{\@3}});\n    if (!{{\@1}} || !VTAB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654525	654617	
==>1}} = {{\@2}}->vtable->find_method(interpreter, {{\@2}}, {{\@3}});\n    if (!{{\@1}} || !VTAB <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39145	39243	
==>_port,
  'current-output-port'   => \&_op_current_output_port,
  'with-input-to-file'    => \&_op_w <==
2	/Users/nnunley/parrot/lib/File/Which.pm	4016	4118	
==>ch do not have a notion of
directly executable files, but uses special extensions such as C<.exe> and
C <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	17754	17979	
==>nstruction code before we trash it.
    foreach (@rules) {
        $_->{'orig_code'} = $_->{'code'};
    }

    # Put rules with the same startcode into a group.
    my %groups = ();
    foreach (@rules) {
        $_->{'code'} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566925	567243	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "does",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567819	568137	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "does",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7085	7189	
==>il} : '';
	my $bad     = ref($options{reject}) eq 'ARRAY' ? join('|', @{$options{reject}})
		    : define <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24087	24191	
==>il} : '';
	my $bad     = ref($options{reject}) eq 'ARRAY' ? join('|', @{$options{reject}})
		    : define <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938553	938671	
==>src/ops/string.ops\"\n    {{\@1}} = string_join(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939443	939561	
==>src/ops/string.ops\"\n    {{\@1}} = string_join(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710683	710792	
==>interpreter);\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_printf(i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711517	711626	
==>interpreter);\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_printf(i <==
2	/Users/nnunley/parrot/Configure.pl	2410	2549	
==>aton

=back

Parrot Options

=over

=item C<--intval=(type)>

Use the given type for C<INTVAL>.

=item C<--floatval=(type)>

Use the given t <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	39582	39716	
==>tinues until the next "/endpara" tag or until another "/para" tag is
encountered:

	$text = "/para line 1\n\nline 3\n/para line 4";

	e <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	9571	9695	
==>$type[CURR] eq "COMP"
				or
			$type[CURR] eq "COMM"
				or
			($type[CURR] eq "BARE" and (iskeyword($syms[CURR])
					and ! <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	6193	6316	
==>= new .None
EOC
    %globals = ();
    $names{None} = 'None';
    $globals{None} = 'None';
    if ($def_args{$arg}) {
	my ($ <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	1511	1683	
==>e);
my %totals = (
    lines            => 0,
    covered_lines    => 0,
    branches         => 0,
    covered_branches => 0,              
    calls            => 0,
    c <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	14455	14735	
==>> {
			"?" => 46
		},
		DEFAULT => -13
	},
	{#State 28
		ACTIONS => {
			'CHAR' => 4,
			"<" => 22,
			"+" => 24,
			"*" => 27,
			"[" => 14,
			"?" => 23,
			'CODE' => 6,
			"(" => 10,
			"." => 15
		},
		DEFAULT => -10,
		GOTOS => {
			'expr' => 28,
			'charclass' => 12,
			'ran <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9877	9989	
==>ever] thatelementname", we say that W maps
    #  to whatever $this->{accept_codes}{thatelementname} is,
    #  i <==
2	/Users/nnunley/parrot/examples/benchmarks/oo5.pl	210	336	
==>[ 10, 20 ], $self;
}

sub i {
    my $self = shift;
    if (@_) { $self->[0] = shift } else { $self->[0] }
}

sub j {
    my $s <==
2	/Users/nnunley/parrot/examples/benchmarks/oo6.pl	202	328	
==>[ 10, 20 ], $self;
}

sub i {
    my $self = shift;
    if (@_) { $self->[0] = shift } else { $self->[0] }
}

sub j {
    my $s <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	193	279	
==>ools/build/parrot_config_c.pl 20350 2006-06-25T03:57:27.771662Z petdance  $' =~ /^\$[iI <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3939	4071	
==>eral' });
        }

        my $ident = $2;
        $ident =~ s/^{(.*)}$/$1/; # Strip '{' and '}'.

        $handler->start_element( <==
2	/Users/nnunley/parrot/tools/dev/as2c.pl	1273	1377	
==>rint "static const char ${func}_code[] = {\n";
	}
	elsif (/^\s*\d+\s+(\w+):/) {
	    print " " x 26, " /* <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	26375	26539	
==>ackward, the details of the intervening tests are deleted.  You
can erase history if you really want to.

=cut

sub current_test {
    my($self, $num) = @_;

    loc <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	11317	11459	
==>w+)
        \(interpreter,
        \s*
        {{\@(\d)}},\s*{{\@(\d)}}
        \);
        \s+{{\+=\d}}/xm) {
            $jit_func = "Parrot_ <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	11764	11906	
==>w+)
        \(interpreter,
        \s*
        {{\@(\d)}},\s*{{\@(\d)}}
        \);
        \s+{{\+=\d}}/xm) {
            $jit_func = "Parrot_ <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	10782	10907	
==>le Time

C<Class::Struct> can create your class at compile time.  The main reason
for doing this is obvious, so your class act <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1944	2066	
==>kup the identifier:
  #

  my $sym = $block->find_symbol($self->name);

  #
  # If the identifier is already defined at thi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1691	1813	
==>kup the identifier:
  #

  my $sym = $block->find_symbol($self->name);

  #
  # If the identifier is already defined at thi <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7465	7707	
==>local pmc code
            .local pmc exp
            target = unicode:"$target"
            pattern = "$pattern"
            (rulesub, code, exp) = glob_compile(pattern)
            match = rulesub(target)
            unless match goto match_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595692	595989	
==>GS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 675,
                  "ARGS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819705	819854	
==>pth wrong\");\n  }\n  {{\@1}} = get_entry_type(interpreter, entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820665	820814	
==>pth wrong\");\n  }\n  {{\@1}} = get_entry_type(interpreter, entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2907	3017	
==>hispara'} .= "\n");
  $out =~ tr{\xA0}{ } if Pod::Simple::ASCII;
  print {$self->{'output_fh'}} $out,
    #"\n" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2441	2546	
==>hispara'} .= "\n");
  $out =~ tr{\xA0}{ } if Pod::Simple::ASCII;
  print {$self->{'output_fh'}} $out, "\n" <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12435	12572	
==>nly F<lib/Parrot> modules are linkable.
Returns C<undef> if the current documentation file is the file for the 
module.

=cut

sub href_fo <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	11424	11538	
==>oreach $next ( @left )
	{
		next unless defined $rules->{$next}; # SKIP NON-EXISTENT RULES
		return 1 if $next eq $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2601	2710	
==>($dest) . " if $val1 $test $val2;";
}

sub output_eq {
    my ($self, $val1, $val2, $dest) = @_;
    $self->ou <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650770	651041	
==>{{\@1}} = 1;\n    else\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651692	651963	
==>{{\@1}} = 1;\n    else\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1588	1727	
==>,
				TOKEN => \$token,
				VALUE => \$value,
				DOTPOS => \$dotpos,
				STACK => [],
				DEBUG => 0,
				CHECK => \$check };

	_Ch <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1535	1666	
==>,
				TOKEN => \$token,
				VALUE => \$value,
				DOTPOS => \$dotpos,
				STACK => [],
				DEBUG => 0,
				CHECK => \$check };

	_Ch <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	1796	1904	
==>n" or die "Unable to open config/Makefile.in\n";
	my $makefile = join('', <$fh>);
	close $fh;
	
	# Sub in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383664	384158	
==>se_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 448,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 455 \"src/ops/io.ops\"\n  if ({{ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3963	4064	
==>}=$value;
	}
	for (@$mandatory) {
			exists($$outhash{$_})
		or	croak("Missing mandatory parameter <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3764	3861	
==>}=$value;
	}
	for (@$mandatory) {
			exists($$outhash{$_})
		or	croak("Missing mandatory parameter <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	12451	12556	
==>ext = $self->genlabel('after_charclass');

    my @ops = (          aop('advance', [ $howfar, $lastback ]) <==
2	/Users/nnunley/parrot/examples/benchmarks/addit.pl	517	659	
==>sum = 0;
    for (my $a = $#_; $a >= 0; --$a) {
        $sum += $_[$a];
    }
    return $sum
}
my $result = 0;
my @args;
$args[0] = 1000;
$arg <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	4235	4365	
==>$arg_name) = @$arg;
      my $imcc_type = $arg_type->imcc;

      $compiler->emit("  .param $imcc_type $arg_name");
      $sig .= $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	2035	2144	
==>$arg_name) = @$arg;
    my $imcc_type = $arg_type->imcc;

    $compiler->emit("  .param $imcc_type $arg_name") <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32998	33215	
==>xpected_value\n";
            
          } else {
            DEBUG > 1 and print " Numeric item has ", $para->[1]{'number'},
             " instead of the expected value of $expected_value\n";
            $self->whine <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11580	11690	
==>th);

      $self->require_semicolon;

      my $arith = Jako::Construct::Statement::Arithmetic->new($block, $i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16525	16635	
==>th);

      $self->require_semicolon;

      my $arith = Jako::Construct::Statement::Arithmetic->new($block, $i <==
2	/Users/nnunley/parrot/config/auto/inline.pm	1000	1203	
==>); };
            if (!$@) {
                $test = cc_run();
                chomp $test if $test;
            }
            cc_clean();
        }
        if ($test) {
            print " ($test) " if $ <==
2	/Users/nnunley/parrot/tools/dev/cc_flags.pl	1420	1600	
==>" if $4;

	    push @options, [ $regex, 's', "$mod$2", $3 ];
	}
	elsif (/\S/) {
	    die "syntax error in $cflags: line $., $_\n";
	}
	else {
	    last;
	}
    }
}

my ($cfile) = gr <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	52438	52597	
==>e> starts at the current C<pos> of the string, and
sets that C<pos> appropriately after it matches.

Hence, the aim of of a call to C<extract_multiple> in a lis <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1597	1731	
==>self->block;
  my $value = $self->value;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3217	3351	
==>self->block;
  my $value = $self->value;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811458	811550	
==>ODY" => "#line 512 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed(interpre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812360	812452	
==>ODY" => "#line 512 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed(interpre <==
2	/Users/nnunley/parrot/config/auto/jit.pm	1153	1313	
==>g;

    # On OS X if you are using the Perl that shipped with the system
    # the above split fails because archname is "darwin-thread-multi-2level".
    if ($c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787518	787971	
==>> [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 889,
                  "ARGS" => [
                              "n",
                              "p",
                              "ki"
                            ],
                  "BODY" => "#line 422 \"src/ops/set.ops\"\n    {{ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	432	556	
==>:Expression::Value);

sub new
{
  my $class = shift;
  my ($block, $token) = @_;

  confess "Block is not!" unless UNIVERSAL: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936374	936646	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "titlecase",
                  "FLAGS" => ":base_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937151	937423	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "titlecase",
                  "FLAGS" => ":base_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6828	6940	
==>shift;
	my $need_dest = shift;
	my $pir = "";

	# If we need a destination, we simply supply the register to load <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4766	4878	
==>shift;
	my $need_dest = shift;
	my $pir = "";

	# If we need a destination, we simply supply the register to load <==
2	/Users/nnunley/parrot/config/auto/aio.pm	174	358	
==>head1 DESCRIPTION

Determines whether the platform supports AIO.

=cut

package auto::aio;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

us <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151030	151124	
==>c/ops/cmp.ops\"\n  if (0 == string_equal(interpreter,\n      {{\@1}}->vtable->get_string(interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152008	152102	
==>c/ops/cmp.ops\"\n  if (0 == string_equal(interpreter,\n      {{\@1}}->vtable->get_string(interp <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2959	3056	
==>y do bitwise ops on integers") unless UNIVERSAL::isa($right_type, 'Jako::Construct::Type::Integer' <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9108	9215	
==>aa,/* 20 */
GG,$a,$b,$c,$d,$_[9],5,0xd62f105d,/* 21 */
GG,$d,$a,$b,$c,$_[14],9,0x2441453,/* 22 */
GG,$c,$d,$ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	2089	2239	
==>$self> is the hash reference passed to
C<new()>, and C<$class> is C<Parrot::Pmc2c>.

=cut

my %special_class_name = map {($_,1)}
    qw( Ref default Nu <==
2	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	691	811	
==>n $input: $!";
    $checksum = unpack("%32C*", <INPUT>);
    close INPUT;
}

my $up_to_date = 1;
foreach my $output (@out <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3599	3694	
==>ing and
          $string =~ m/(^|^.*?[^\\])\$((([A-Za-z][A-Za-z0-9_]*)\b)|({[A-Za-z][A-Za-z0-9_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1987	2080	
==>ing and
        $string =~ m/(^|^.*?[^\\])\$((([A-Za-z][A-Za-z0-9_]*)\b)|({[A-Za-z][A-Za-z0-9_ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	46257	46347	
==>mpos\s*\[/)
		unless $self->{_check}{itempos};
	for (qw(thisoffset thiscolumn prevline prev <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	21122	21245	
==>],
	[#Rule 26
		 'expr', 1,
sub
#line 141 "lib/Regex/Grammar.y"
{ return op('code' => [ $_[1] ]) }
	],
	[#Rule 27
		 'rulena <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	7481	7645	
==>ub skip_open_paren    { return shift->skip('open-paren');    }
sub skip_infix_rel     { return shift->skip('infix-rel');     }
sub skip_semicolon     { return shift- <==
2	/Users/nnunley/parrot/config/gen/config_pm.pm	1271	1371	
==>n't close Config.pm: $!";

    my $template = "config/gen/config_pm/config_lib.in";
    open(IN,  $te <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083071	1083578	
==>E" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1202,
                  "ARGS" => [
                              "p",
                              "ic",
                              "kc"
                            ],
                  "BODY" => "#line 145 \" <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	34985	35139	
==>e link like L<Foo::Bar> or even L<Thing::1.0::Docs::Tralala>
          DEBUG > 1 and print "Catching \"$it\" as ho-hum L<Modulename> link.\n";
          $t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632673	632930	
==>pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633715	633972	
==>pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4967	5092	
==>$pmc_reg = $dest");
    $compiler->emit("  global \"$dest_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  m <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3030	3155	
==>$pmc_reg = $dest");
    $compiler->emit("  global \"$dest_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047730	1048001	
==>PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "funct <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048653	1048924	
==>PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "funct <==
2	/Users/nnunley/parrot/config/auto/pack.pm	2377	2527	
==>ata->set(ptrconst => "ul");
    } else {
        warn <<"AARGH";
Configure.pl:  Unable to find an integer type that fits a pointer.
AARGH
    }

    re <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	24190	24314	
==>r2->[0],
    );
    push @opcodes, new LabelOp( $parser,
        'arg1' => $lbl2,
    );
    return [ $result, \@opcodes <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	5121	5232	
==>rint $CGI->header;

  my $category = sub {
    return sprintf "%s / %s runcore on %s-%s-%s",
      $_[0]->{DEVEL <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1380	1512	
==>{
        $self->{PC} = shift;
    }
    else
    {
        return $self->{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	989	1121	
==>{
        $self->{PC} = shift;
    }
    else
    {
        return $self->{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4358	4503	
==>ame";
	while(<DRV>) {
                	/^\s*sub\s+_Parse\s*{\s*$/ .. /^\s*}\s*#\s*_Parse\s*$/
        	and     do {
                	s/^#DBG>/ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4138	4279	
==>ame";
	while(<DRV>) {
                	/^\s*sub\s+_Parse\s*{\s*$/ .. /^\s*}\s*#\s*_Parse\s*$/
        	and     do {
                	s/^#DBG>/ <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3311	3445	
==>/-debug/) {
            my $linkflags = $conf->data->get('linkflags');
            $linkflags =~ s/-opt:\S+//;
            $conf->data- <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4815	4949	
==>/-debug/) {
            my $linkflags = $conf->data->get('linkflags');
            $linkflags =~ s/-opt:\S+//;
            $conf->data- <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3240	3399	
==>[ 2, 'I' ],
  STRING   => [ 1, 'S' ],
};

#------------------------------------

sub _constant {
  my ($self, $value) = @_;
  my $return;

  if ($value =~ /^[-+ <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	1475	1581	
==>ults) {
        $conf->data->set($_ => $results{$_});
    }

    if ($results{ptrsize} != $results{intvalsi <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12574	12717	
==>)
    s/DYNSELF           # Macro: DYNSELF
      \.(\w+)           # other_method
      \(\s*(.*?)\)      # capture argument list
     /"pmc->vt <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	53921	54022	
==>value indicating whether unmatched substrings (see below) within the
text should be skipped or returne <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9826	9931	
==>block, $self->require_value);
      my $op    = $self->require_infix_rel->text;
      my $right = Jako::Co <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25362	25467	
==>block, $self->require_value);
      my $op    = $self->require_infix_rel->text;
      my $right = Jako::Co <==
2	/Users/nnunley/parrot/Configure.pl	9438	9568	
==>::memalign
    auto::signal
    auto::socklen_t
    auto::env
    auto::aio
    auto::gmp
    auto::readline
    auto::gdbm
    aut <==
2	/Users/nnunley/parrot/config/gen/platform.pm	1580	1767	
==>print PLATFORM_H <<"END_HERE";
#if !defined(PARROT_PLATFORM_H_GUARD)
#define PARROT_PLATFORM_H_GUARD

/*
** platform.h [$platform version]
**
** DO NOT EDIT THIS FILE
**
** Generated by co <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2802	2940	
==>) = @_;
    $self->output_test('!=', $val1, $val2, $dest);
}

sub output_lt {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528992	529474	
==>n",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 611,
                  "ARGS" => [
                              "n",
                              "nc",
                              "n"
                            ],
                  " <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	813	1047	
==>kage Regex::Driver::Perl5;
our @ISA = qw(Regex::Driver);

sub output_header {
    my ($self, $fh) = @_;
    print $fh "use strict;\n";
}

sub output_rule_body {
    my ($self, $fh, $subname, $rule, $ctx, $instructions) = @_;

    if ($ <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	5715	5856	
==>t "    $include, included by:\n";
            foreach my $file (sort keys %{$system_include{$include}}) {
                print "        $file <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369486	369596	
==>\n  {{\@1}} = PIO_reads(interpreter, {{\@2}}, (size_t){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	370371	370481	
==>\n  {{\@1}} = PIO_reads(interpreter, {{\@2}}, (size_t){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9301	9432	
==>ebug & 0x10
#DBG>		and	do {
#DBG>			print STDERR "**Entering Error recovery.\n";
#DBG>			++$dbgerror;
#DBG>		};

            + <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8883	9008	
==>ebug & 0x10
#DBG>		and	do {
#DBG>			print STDERR "**Entering Error recovery.\n";
#DBG>			++$dbgerror;
#DBG>		};

            + <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	10169	10339	
==>msg test ($file at line $line)\n");
    } 

    return $test ? 1 : 0;
}


sub _unoverload {
    my $self  = shift;

    local($@,$!);

    eval { require overload } || ret <==
2	/Users/nnunley/parrot/config/auto/signal.pm	483	593	
==>my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    $conf->data->set(
        has__ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24993	25193	
==>p, $right);
      next;
    }

    #
    # Conditional Blocks:
    #
    #   if     (<value> <op> <value>) {
    #   unless (<value> <op> <value>) {
    #

    if ($token->is_if or $token->is_unless) { <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	2525	2704	
==>args
    .local string input_string
    input_string = args[1]

    $P0 = loadlib "match_group"

    .local pmc regex_sub
    .local pmc result
    .local int matched
    .local pm <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1202	1327	
==>lock, $ident_name, $kind, $scope, $type) = @_;

  confess "No \$compiler!" unless $compiler;

  my $sym = $block->find_symbol( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50207	50324	
==>n  else         { Interp_flags_CLEAR(interpreter, PARROT_PROFILE_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51000	51117	
==>n  else         { Interp_flags_CLEAR(interpreter, PARROT_PROFILE_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997739	997972	
==>",
                              "sc",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	998878	999111	
==>",
                              "sc",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36745	36886	
==>ate 142
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4343	4499	
==>Cannot open $fname";
	while(<DRV>) {
                	/^\s*sub\s+_Parse\s*{\s*$/ .. /^\s*}\s*#\s*_Parse\s*$/
        	and     do {
                	s/^#D <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4123	4275	
==>Cannot open $fname";
	while(<DRV>) {
                	/^\s*sub\s+_Parse\s*{\s*$/ .. /^\s*}\s*#\s*_Parse\s*$/
        	and     do {
                	s/^#D <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7126	7234	
==>ndex {
    my ($self, $reg) = @_;
    $reg = value(defined($reg) ? $reg : 'pos');
    return $self->output_pu <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6768	6876	
==>ndex {
    my ($self, $reg) = @_;
    $reg = value(defined($reg) ? $reg : 'pos');
    return $self->output_pu <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16542	16639	
==>ify it
under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cut <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1756	1853	
==>ify it
under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cut <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	646	812	
==>ent_test + 1;

    $desc = $language unless $desc;

    my $lang_f = Parrot::Test::per_test('.py',$count);
    my $py_out_f = "$lang_f.out";
    my $pirate_out_f = Par <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4619	4736	
==>n hooks.
sub pre_branch($) {
	my $self = shift;
	my $pops = shift;
	my $register_num = 0;
	my $pir = '';

	# Do code f <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3035	3152	
==>n hooks.
sub pre_branch($) {
	my $self = shift;
	my $pops = shift;
	my $register_num = 0;
	my $pir = '';

	# Do code f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189743	189840	
==>.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190684	190781	
==>.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27812	27936	
==>{
      my $temp = $self->_generate($node->{children}[$_]);
      $self->_add_inst('','div',[$return,$return,$temp]);
      $ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7915	8045	
==>print "This is true" else print "Oops (int)"
i=0
if i then print "Should not happen (flo)"
i=55
if i then print "This is true" else <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14902	15032	
==>print "This is true" else print "Oops (int)"
i=0
if i then print "Should not happen (flo)"
i=55
if i then print "This is true" else <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	832	932	
==>IVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Ident is not!" if defined $ident and not U <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	860	960	
==>IVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Ident is not!" if defined $ident and not U <==
2	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	1212	1331	
==>cro we need: name, substitution and flag
# The length is uninteresting later on.
# 
# Example:
# F8,8
# translittranslit <==
2	/Users/nnunley/parrot/examples/benchmarks/addit.pl	715	822	
==>] = "21000000";
for (my $x = 500000; $x >= 0; --$x) {
    $result = varargs_adder(@args);
}
print "$result\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	990	1077	
==>ode_t*)cur_opcode - (opcode_t*)interpreter->code->prederef.code))
#define CUR_OPCODE ((o <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1120	1207	
==>ode_t*)cur_opcode - (opcode_t*)interpreter->code->prederef.code))
#define CUR_OPCODE ((o <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	527	619	
==>ss UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Identifier (" . ref($ident) . <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	527	619	
==>ss UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Identifier (" . ref($ident) . <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	38599	38698	
==>ld match the start tag pattern).

For example, to extract an arbitrary XML tag, but ignore "empty" e <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	5485	5627	
==>eftmost($$)
{
	my ($self, $ref) = @_;

	my $prod;
	foreach $prod ( @{$self->{"prods"}} )
	{
		return 1 if $prod->hasleftmost($ref);
	}

	return <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3597	3865	
==>C
}

=item C<run_core_split($base)>

If defined return code to split e.g. a switch.

=cut

sub run_core_split
{
    my ($self) = @_;
    $self->{split_count}++;

    return <<END_C;
    default:
    switch (*cur_opcode) {
END_C
}

=item C<run_core_finish($base)>

Retur <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	49465	49579	
==>2;
      } elsif($stack[-1] == length($3)) {
        # We found " >>>>", and it was exactly what we needed.  Common <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	9805	9926	
==>same guarantee
        # and follow_min to all children. (Which is reasonable, since
        # everything but seq tries to <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	1550	1740	
==>rnals

To see the internal data structures please run:

    % perl tools/build/pmc2c.pl --c --deb --deb sarray.pmc | less

=head2 Compiling PMCs

First, the program determines the names of th <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	4296	4470	
==>EFINED;
}

=item C<is_of_type($type)>

Returns whether the file is of the specified type.

=cut

sub is_of_type
{
	my $self = shift;
	my $type = shift;
	
	return 0 unless defi <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1788	1934	
==>'.obj',
            cc_o_out   => '-Fo',
            cc_exe_out => '-out:',
            cc_ldflags => '/link',

            # ZI messes with __LINE <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3667	3813	
==>'.obj',
            cc_o_out   => '-Fo',
            cc_exe_out => '-out:',
            cc_ldflags => '/link',

            # ZI messes with __LINE <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	9065	9177	
==>END_${CURIC}:
PIR
}

sub post_call {
    # Nothing to do.
    return "";
}

sub pop_all {
    return "stack_depth <==
2	/Users/nnunley/parrot/config/auto/bc.pm	1108	1379	
==>answer = capture_output('bc', '-v') || '';
        $has_gnu_bc =
            ($answer =~ m/^bc / && $answer =~ m/Free Software Foundation/) ? 1 : 0;

    } else {
        $has_gnu_bc = 0;
    }

    $conf->data->set(has_gnu_bc => $has_gnu_bc);
    $self->set_result($has_g <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	41315	41436	
==>t generates a function identical in function to C<extract_tagged>.

The difference between C<extract_tagged> and the anony <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	4416	4525	
==>singleif=1 if ($type[NEXT] ne "STMT" and $type[NEXT] ne "COMM");
		#print "Single if!\n" if $singleif;
		$ifli <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1788	1908	
==>t::pir_output_is;
}

=item C<p6rule_isnt($target, $pattern, $description, @todo)>

Runs the target string against the Per <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3877	4058	
==>t', 'I0', 0],
  ['',            'invoke'],
  ['apply_HELP',  'P16', 'P16[1]'],
  ['',            'inc', 'I1'],
  ['',            'typeof', 'I16', 'P16'],
  ['',            'ret'],
 ] <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	7666	7869	
==>\@args)
sub ' . $namespace . '::' . $self->{"name"} .  '
{
	my $thisparser = $_[0];
	$ERRORS = 0;
	my $thisrule = $thisparser->{"rules"}{"' . $self->{"name"} . '"};
	'.($::RD_NO_TRACE?'':'
	Parse::RecDesc <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	1129	1262	
==>ntents = @_;
	
	# TODO - Groups should only contain items or paths.
	
	$self = $self->SUPER::new($text, @contents);
	$self->{NAME} = $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596219	596484	
==>ss(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597112	597377	
==>ss(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938479	938621	
==>"
                            ],
                  "BODY" => "#line 481 \"src/ops/string.ops\"\n    {{\@1}} = string_join(interpreter, {{\@2}}, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939369	939511	
==>"
                            ],
                  "BODY" => "#line 481 \"src/ops/string.ops\"\n    {{\@1}} = string_join(interpreter, {{\@2}}, <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	69084	69236	
==>f->_check_grammar();
	}

	unless ($ERRORS or $isimplicit or $Parse::RecDescent::compiling)
	{
		my $code = $self->_code();
		if (defined $::RD_TRACE)
		{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	614	717	
==>SCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullParser>, you might
get an object of th <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	520	623	
==>SCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullParser>, you might
get an object of th <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2722	2817	
==>}";
}

=item C<run_core_func_decl($core)>

Returns the C code for the run core function declarat <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	8352	8461	
==>ike Test::Simple's ok().

=cut

sub ok {
    my($self, $test, $name) = @_;

    # $test might contain an objec <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408321	408588	
==>ct(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409220	409487	
==>ct(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724881	725193	
==>GS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 812,
                  "ARGS" => [
                              "p"
                            ],
                  "BOD <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	8856	9009	
==>* "     # remove " strings
        | /\* .*? \*/ )             # remove C comments
    ]
    [ "-" x length $1 ]sexg;

    /^\{/ or die "bad block open: " <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19382	19489	
==>]); }
	],
	[#Rule 11
		 'expr', 1,
sub
#line 113 "lib/Regex/Grammar.y"
{ return op('match' => [ ord($_[1]) ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830006	830304	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGD <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	43933	44054	
==>lse {
	my @args = map { $self->_generate($_); } _get_args($node);
	$return = $self->_call_function_sym($symbol, @args);
	$ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	15864	15974	
==>= shift;

    $path =~ s|\\+|/|go;

    return $path;
}

=back

=head2 Functions

=over 4

=item C<esc(@strings <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422987	423246	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "listen",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423883	424142	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "listen",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	639600	639710	
==>antiate\", typ);\n\t  }\n\t  class = interpreter->vtables[typ]->class;\n\t  break;\n      case PARROT_ARG_P:\n\ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13053	13155	
==>res, 34 (NOT 99)
type first
	foo as integer
	bar as string
end type
type second
	link as first
end type <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	12288	12443	
==>nst(''         ,'eq' ,[$temp,1,"DONE_$label"]);
    $self->_restore($temp);
  }
  $self->_add_inst(''           ,'set',[$return,0]);
  $self->_add_inst("DON <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	6942	7079	
==>me (args) {
        #
        # The args are a comma-separated list of items from this table of argument
        # types (even if no forma <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	1518	1744	
==>],
    COMMENTS       => [ ],
    LAST_OP        => 'noop',
    INDENT         => 0,
    REG_COUNT      => {  'I' => 0, 'N' => 0, 'P' => 0, 'S' => 0 },
    ANON_LBL_COUNT => 0,
    BLOCK_COUNT    => 0
  }, $class;
}


#
# inden <==
2	/Users/nnunley/parrot/config/gen/revision.pm	214	322	
==>ermines parrot's SVN revision.  In a release, there are no .svn directories,
so this field is empty.

=cut

p <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	19305	19426	
==>ile($treelet = shift @stack) {
    DEBUG > 3 and print " Considering children of this $treelet->[0] node...\n";
    for($i <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	21948	22069	
==>ile($treelet = shift @stack) {
    DEBUG > 3 and print " Considering children of this $treelet->[0] node...\n";
    for($i <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	5595	5970	
==>'epsilon'  , 949,
 'zeta'     , 950,
 'eta'      , 951,
 'theta'    , 952,
 'iota'     , 953,
 'kappa'    , 954,
 'lambda'   , 955,
 'mu'       , 956,
 'nu'       , 957,
 'xi'       , 958,
 'omicron'  , 959,
 'pi'       , 960,
 'rho'      , 961,
 'sigmaf'   , 962,
 'sigma'    , 963,
 'tau'      , 964,
 'upsilon'  , 965,
 'phi'      , 966,
 'chi'      , 967,
 'psi'      , 96 <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	8424	8578	
==>e($_);
	}
    }
    while ($code_l < @code) {
	my $l = $code[$code_l++];
	my ($opcode, $arg, $rest, $src) = ($l->[2], $l->[3], $l->[4], $l->[5]);
	next unl <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63177	63283	
==>de$argcode($1)");

						!$matchrule and $rule and $rule->addcall($name);

						_check_insatiable($name,$1 <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63898	64004	
==>de$argcode($1)");

						!$matchrule and $rule and $rule->addcall($name);

						_check_insatiable($name,$1 <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7228	7373	
==>_depth
${DEST0} = concat ${STEMP0}
PIR
	}

	return $pir;
}

sub post_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If th <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5050	5195	
==>_depth
${DEST0} = concat ${STEMP0}
PIR
	}

	return $pir;
}

sub post_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If th <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658721	659188	
==>RGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 736,
                  "ARGS" => [
                              "i",
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 329 \"src/ops/pmc.ops\"\n  {{\@1}} = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	265	371	
==>$class;
}

# Purely accessors:

sub tagname   { (@_ == 2) ? ($_[0][1] = $_[1]) : $_[0][1] }
sub tag { shift <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	242	346	
==>$class;
}

# Purely accessors:

sub tagname { (@_ == 2) ? ($_[0][1] = $_[1]) : $_[0][1] }
sub tag { shift <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46215	46433	
==>> "#line 742 \"src/ops/core.ops\"\n  Parrot_push_action(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10332	10431	
==>egister to hold value we pop off the stack.
${PTEMP3} = ${STYPES}[${ITEMP2}]
${STEMP0} = "$"
${STEMP <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7716	7815	
==>egister to hold value we pop off the stack.
${PTEMP3} = ${STYPES}[${ITEMP2}]
${STEMP0} = "$"
${STEMP <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9384	9578	
==>libs) = $conf->data->get(
        qw(cc ccflags ld_out o link linkflags
            cc_exe_out exe libs)
    );

    _run_command("$cc $ccflags $cc_args -I./include -c test.c", 'test.cco', 'test. <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15370	15495	
==>= shift;   # leaving ($element_name);
  DEBUG > 2 and print "-- $_[0]\n";
  push @{ $self->{'token_buffer'} }, 
       $self-> <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	7866	8015	
==>DYNAMIC###/;
        s/#.*$//;
        s/\s*$//;
        s/^\s*//;
        next unless $_;
        ($name, $number) = split(/\s+/, $_);
        $seen{ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	20683	20784	
==>=item B<no_ending>

    $Test->no_ending($no_ending);

Normally, Test::Builder does some extra diagnos <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1987	2090	
==>ub   end_over_bullet  { --$_[0]{'Indent'} }
sub   end_over_number  { --$_[0]{'Indent'} }
sub   end_over_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1555	1658	
==>ub   end_over_bullet  { --$_[0]{'Indent'} }
sub   end_over_number  { --$_[0]{'Indent'} }
sub   end_over_ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	5939	6045	
==>f.  All 5
a=0
do while a<5
	a=a+1
loop
print a
a=0
do until a>4
	a=a+1
loop
print a
a=0
do
	a=a+1
loop whil <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16484	16590	
==>f.  All 5
a=0
do while a<5
	a=a+1
loop
print a
a=0
do until a>4
	a=a+1
loop
print a
a=0
do
	a=a+1
loop whil <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62481	62629	
==>"
                            ],
                  "BODY" => "#line 951 \"src/ops/core.ops\"\n  PARROT_ERRORS_on(interpreter, {{\@1}});\n  {{+=2}};\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	13183	13297	
==>ns parentheses, then double the
        # enclosing parentheses and add a space around the argument,
        # like <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3851	3945	
==>ns parentheses, then double the enclosing
parentheses and add a space around the argument, like <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2478	2601	
==>'s decimal, or named

  if($in =~ m/^\d+$/s) {
    return 0 + $in;
  } else {
    return $Name2character_number{$in}; # retu <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1754	2006	
==>int "Elapsed time:  $N2\n"; # print  "Elapsed time:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 = $N1 / $N2;              # di <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1754	2006	
==>int "Elapsed time:  $N2\n"; # print  "Elapsed time:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 = $N1 / $N2;              # di <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	652866	653341	
==>DIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 730,
                  "ARGS" => [
                              "p",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 292 \"src/ops/pmc.ops\"\n    opcode_t * resum <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10037	10130	
==>, '|',
  125, '}',
  126, '~',
);

#---------------------------------------------------------- <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	14650	14826	
==>nt <<EOC;
	# $namespace{$f} => $vtables{$f}
EOC
	    #$namespace{$f} => $vtables{$f}
	}
	else {
	    print <<EOC;
	# $namespace{$f}
	# addattribute P5, "$f"
EOC
	}
    }
    els <==
2	/Users/nnunley/parrot/examples/benchmarks/oo5.pl	249	371	
==>elf = shift;
    if (@_) { $self->[0] = shift } else { $self->[0] }
}

sub j {
    my $self = shift;
    if (@_) { $self->[ <==
2	/Users/nnunley/parrot/examples/benchmarks/oo6.pl	241	363	
==>elf = shift;
    if (@_) { $self->[0] = shift } else { $self->[0] }
}

sub j {
    my $self = shift;
    if (@_) { $self->[ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	22711	22886	
==>c', $test_no);
            my $obj_f = per_test($PConfig{o}, $test_no);
            my $exe_f = per_test($PConfig{exe}, $test_no);  
            $exe_f =~ s@[\\/:]@$PConfig{sla <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	2042	2145	
==>ethods of the current PMC. PMCs default to
inheriting from 'default'. Only single inheritance is support <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5261	5430	
==>result and return
        if ($@) {
            my $result = $step->result || 'no result returned';
            carp "\nstep $step_name failed: " . $result;
            r <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	31584	31788	
==>save rule $name start" ]),
                     aop('rule_pass', [ $name ]),
            $back => aop('rule_fail', [ $name ]),
                     aop('rule_end', [ $name ]),
      );

    push @{ $def->{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822379	822476	
==>rnal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_int(entry <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823447	823544	
==>rnal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_int(entry <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095171	1095284	
==>ental.ops\"\n  Parrot_Exec_OS_Command(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "experimental" => 1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095866	1095979	
==>ental.ops\"\n  Parrot_Exec_OS_Command(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "experimental" => 1 <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	26751	26857	
==>elf->{pre};
    $cout .= $self->line_directive_here($cout, $out_name)
	. $self->includes;
    my $l = count <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11028	11161	
==>}, <<EOASS;
@code
EOASS
		if ($syms[CURR] eq ",") {
			#feedme();
			next;
		}
	}
}
sub parse_swap {
	my(@f, @s);
	feedme();
	my($left <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	25835	26038	
==>elOp( $parser,
        'arg1' => $l_next,
    );

    for my $elseif ( @{$elseifs} ) {
        $cond = get_cond( $parser, $elseif->[0] );
        $l_next = new_label($parser);
        push @opcodes <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	6880	7080	
==>gave it '$max'.\n"
          unless $max =~ /^\+?\d+$/ and $max > 0;

        $self->{Expected_Tests} = $max;
        $self->{Have_Plan}      = 1;

        $self->_print("1..$max\n") unless $self->no_h <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238101	238397	
==>TYPE" => "inline",
                  "CODE" => 277,
                  "ARGS" => [
                              "i",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 606 \"src/ops/cmp.ops\"\n  {{\@1}} = string_ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	3094	3197	
==>y ($pc, $line ,$opcode, $arg, $rest);
    if ($l =~ /Disassembly of <?([\w:]+)>?/) {
	push @code, [ 0, 0 <==
2	/Users/nnunley/parrot/config/inter/lex.pm	1608	1724	
==>$self->set_result('no');
        return $self;
    }

    if ($conf->options->get('ask')) {
        $prog = prompt($p <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	1622	1738	
==>$self->set_result('no');
        return $self;
    }

    if ($conf->options->get('ask')) {
        $prog = prompt($p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696726	696924	
==>"i",
                              "ic",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697727	697925	
==>"i",
                              "ic",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, { <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27110	27276	
==>nd $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $l_break;
            }
        }
    }
    push @opcod <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27791	27957	
==>nd $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $l_break;
            }
        }
    }
    push @opcod <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170265	170434	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 211 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpr <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	28738	28928	
==>sub _op_acos {
}

sub _op_atan {
}

sub _op_sqrt {
}

sub _op_expt {
}

sub _op_make_rectangular {
}

sub _op_make_point {
}

sub _op_real_part {
}

sub _op_imag_part {
}

sub _op_magnitude { <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	2933	3099	
==>',
                exec_prefix => '/usr',
                bindir      => '/usr/bin',
                libdir      => '/usr/lib',
                includedir  => '/usr/in <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	6406	6511	
==>ad1 COPYRIGHT

This library is free software; you can redistribute it and/or
modify it under the same term <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	72	174	
==>sh.  We do this to prevent
# use of uninitialized value warnings in older perls.
$^C ||= 0;

use strict <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	17322	17685	
==>ite_code_to_file($code, $code_f);

            my $cmd = qq{$parrot $args "$code_f"};
            my $exit_code = run_command($cmd,
                                        CD     => $path_to_parrot,
                                        STDOUT => $out_f,
                                        STDERR => $out_f);

            my $meth = $pir_2_pasm_test_map{$fu <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	12973	13104	
==>allocate_zeroed(OP_HASH_SIZE * sizeof(HOP*));
        hop_init();
    }
    for (p = hop[hidx]; p; p = p->next) {
        if(!strcmp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917746	918065	
==>"inline",
                  "CODE" => 1033,
                  "ARGS" => [
                              "i",
                              "sc",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	15043	15223	
==>mething we generate at this level, depending on
  # a currently open =over region

  # Events fired:  Begin and end for:
  #                   directivename (like head1 .. head4), i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137927	138224	
==>ne",
                  "CODE" => 169,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 70 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	31903	32150	
==>n} = $mangle;
    print <<EOC;
	$cl = subclass $parent_tuple->[1], $mangle $cmt
	global $name = $cl
	Build::$n($cl)
EOC
    push @stack, ["class $tos->[1]", $cl, 'P'];
}
sub LOAD_ATTR
{
    my ($n, $c, $cmt) = @_;
    my $tos = pop @stack;  # objec <==
2	/Users/nnunley/parrot/lib/File/Which.pm	6609	6725	
==>plementation by Abigail with
enhancements from Peter Prymmer. See
http://www.perl.com/language/ppt/src/which/index.ht <==
2	/Users/nnunley/parrot/config/auto/env.pm	46	205	
==>.
# $Id: /parrot/config/auto/env.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/env.pm - System Environment

=head1 DESCRIPTION

Determi <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1210	1340	
==>ated automatically by $0.
 *
 * Any changes made here will be lost!
 *
 */

#include "parrot/parrot.h"

/* proto is in embed.h, but <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599654	600016	
==>RGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 679,
                  "ARGS" => [
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 363 \ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	6838	7001	
==>ext_r;
          while( $$t =~ m/$/mg ) {
            last if  ++$line_count  > 15; # no point in counting further
          }
          DEBUG > 3 and print "    ve <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3834	3958	
==>uments.  Expect 2 and 4
sub twice(a)
	print a
	a=a*2
end sub
t=2
call twice t
print t

' Passing arrays, twice, expect 12
fun <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3618	3879	
==>dd_inst ('', 'set', [$return,$value]);
  }
  else {
    $return = $self->_save_1 ('I');
    $self->_add_inst ('', 'set', [$return,0]);
  }

  return $return;
}

sub _morph {
  my ($self, $to, $from) = @_;

  if ($to =~ /P/) {
    if ($from =~ /P/) {
      $self- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453093	453327	
==>"BODY" => "#line 230 \"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453832	454066	
==>"BODY" => "#line 230 \"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	757	1096	
==>_EXIT$suffix
    dec ${ITEMP0}

    # Get register that we'll want to place stuff in to.
    ${PTEMP0} = ${STYPES}[${ITEMP1}]
    ${STEMP0} = ${PTEMP0}["reg_type_short"]
    ${STEMP1} = ${ITEMP1}
    ${STEMP0} = concat ${STEMP1}
    dec ${ITEMP1}

    # Build set instruction.
    ${INS} = concat "set $"
    ${INS} = concat ${STEMP0}
    $ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11486	11632	
==>= 0x1D
	.const int ELEMENT_TYPE_INTERNAL = 0x21
    
    # Trace info - param and local types.
    if trace != 2 goto NO_IN_TRACE
printerr "    PTY <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9848	9983	
==>ak aliasing
    } else {
      my $x = shift;
      $x =~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrst <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6995	7119	
==>es we have not
    # done first.
	if ($need_dest) {
        $pir = _do_lazy_moves('_${CURIC}');
		$pir .= <<'PIR'
inc stack_d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456723	457155	
==>add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 524,
                  "ARGS" => [
                              "n",
                              "n",
                              "n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1315	1466	
==>rot code.

=cut

sub pc
{
    my $self = shift;

    if (@_)
    {
        $self->{PC} = shift;
    }
    else
    {
        return $self->{PC};
    }
} <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	924	1075	
==>rot code.

=cut

sub pc
{
    my $self = shift;

    if (@_)
    {
        $self->{PC} = shift;
    }
    else
    {
        return $self->{PC};
    }
} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649885	650168	
==>{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "valid_type" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	658	753	
==>$prefix = $self->peer ? $peer->prefix : $compiler->block_label($kind);
    $self->prefix($prefix <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	638	733	
==>$prefix = $self->peer ? $peer->prefix : $compiler->block_label($kind);
    $self->prefix($prefix <==
2	/Users/nnunley/parrot/config/gen/config_pm.pm	1455	1600	
==>sm") or die "Can't open config_lib.pasm: $!";

    print OUT <<"END";
# Generated by config/gen/config_pm.pm from the template
# '$template' and \ <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	4191	4296	
==>elete($instance_for_path{$_[0]->path});
    
    undef $_[0];
}

=back

=head1 SEE ALSO

=over 4

=item C< <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955855	955939	
==>rc/ops/string.ops\"\n  {{\@1}} = string_copy(interpreter, Parrot_encoding_name(interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956667	956751	
==>rc/ops/string.ops\"\n  {{\@1}} = string_copy(interpreter, Parrot_encoding_name(interp <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	29519	29661	
==>char {
}

sub _op_char_upcase {
}

sub _op_char_downcase {
}

sub _op_string_p {
}

sub _op_make_string {
}

sub _op_string {
}

sub _op_string <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13330	13433	
==>Do nothing
	}
	elsif (@items &&
		( ref($items[0]) =~ /\AParse::RecDescent::UncondReject/
		|| ($items[0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835371	835706	
==>GS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 946,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 215 \"src/ <==
2	/Users/nnunley/parrot/config/auto/format.pm	240	338	
==>d for C<sprintf()>.

=cut

package auto::format;

use strict;
use vars qw($description @args);

use <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9847	9953	
==>atch = $self->{'Tagmap'}{$tagname}) or next;
      $scratch =~ s/\#([^\#]+)\#/${$self}{$1}/g; # interpolate <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	23332	23433	
==>t $cmt $name\n";
    if ($builtin_ops{$name} && $builtin_ops{$name} eq 's') {
	no strict "refs";
	my $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	513831	514126	
==>,
                  "TYPE" => "inline",
                  "CODE" => 592,
                  "ARGS" => [
                              "n",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 708 \"src/ops/math.ops\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121474	121741	
==>UMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122385	122652	
==>UMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11729	11851	
==>ypes;
}

sub op {
    Regex::Ops::Tree->op(@_);
}

$::paren = 0;



sub new {
        my($class)=shift;
        ref($class) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	1192	1351	
==>_source($filename);
  $this->run;
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
#  In case anyone tries to use them:

sub run { <==
2	/Users/nnunley/parrot/lib/File/Which.pm	492	646	
==>string is used
# because 'perl' . '' eq 'perl' => easier
my @path_ext = ('');
if ($Is_DOSish) {
    if ($ENV{PATHEXT} and $Is_DOSish) {    # WinNT. PATHEXT <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	36	123	
==>me/Generator.pm 15849 2006-01-14T10:37:55.635677Z bernhard  $

package Scheme::Generator <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208232	208399	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 401 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(inter <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	589	754	
==>and 

=item * the number of M op/s.

=back

=cut

sub time_hires { time() }

$I2 = 0;                      # set    I2, 0
$I3 = 1;                      # set    I3, 1 <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	592	756	
==>and

=item * the number of M op/s.

=back

=cut

sub time_hires { time() }

$I2 = 0;                      # set    I2, 0
$I3 = 1;                      # set    I3, 1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	252646	252987	
==>i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 294,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 713 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}}->vtable->logical_not(int <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	4029	4151	
==>out.
    
    print {$self->{'output_fh'}} '<b>' if $self->{IN_ITEM_TEXT};
    
    print {$self->{'output_fh'}} $self->{'T <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	487967	488190	
==>/ops/math.ops\"\n  {{\@1}} = ceil({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	5171	5279	
==>t the preamble for the HEADER and SOURCE files:
#

my $preamble = <<END_C;
/* ex: set ro:
 * !!!!!!!   DO NOT <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	669	765	
==>es. It
runs C<nm> on each and determines what external functions are being
called. Note that it a <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	1215	1382	
==>ut_handler  = $self->{'cut_handler'};
  $self->{'line_count'} ||= 0;
 
  my $scratch;

  DEBUG > 4 and 
   print "# Parsing starting at line ", $self->{'line_count'}, " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571109	571203	
==>= Parrot_class_lookup_p(interpreter, {{\@3}});\n    {{\@1}} = Parrot_object_isa(interpreter, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572064	572158	
==>= Parrot_class_lookup_p(interpreter, {{\@3}});\n    {{\@1}} = Parrot_object_isa(interpreter, {{ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	90	218	
==>s generated using Parse::Yapp version 1.05.
#
#        Don't edit this file, use source file instead.
#
#             ANY CHA <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	88	212	
==>s generated using Parse::Yapp version 1.05.
#
#        Don't edit this file, use source file instead.
#
#             ANY CHA <==
2	/Users/nnunley/parrot/tools/dev/pbc_header.pl	81	246	
==>tion

=head1 SYNOPSIS

  perl pbc_header.pl files ...
  perl pbc_header.pl --update-fingerprint files ...

=head1 DESCRIPTION

The F<PBC_COMPAT> file is used to maint <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934156	934427	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":bas <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934931	935202	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":bas <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7157	7256	
==>^\n|\n$//gm;
		push @{$code{$seg}->{code}}, "\t#\n\t# User-included assembly\n$syms[CURR]\n\t# End a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720835	721041	
==>> [
                              "p",
                              "nc"
                            ],
                  "BODY" => "#line 133 \"src/ops/python.ops\"\n  PMC * const io = {{\@1}};\n  STRING * <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613440	613937	
==>" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 695,
                  "ARGS" => [
                              "p",
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line 496 \"src/ops/object.ops\"\n    VTABLE_set_attr_str(interpreter, {{\@1}} <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2090	2208	
==>ft;
    my($retval);

	_CheckParams( \@params, \%params, \@_, $self );

	if($$self{DEBUG}) {
		_DBLoad();
		$ret <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2014	2125	
==>ft;
    my($retval);

	_CheckParams( \@params, \%params, \@_, $self );

	if($$self{DEBUG}) {
		_DBLoad();
		$ret <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	5331	5427	
==>ON
	$i=1;
	for my $jumps (@onlab) {
		push @{$code{$seg}->{code}}, "\tne $result, $i.0, ON_${ons} <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	24866	25078	
==>d(interp, entry,
                F2DPTR(Parrot_${classname}_$method->{meth}),
                "$method->{meth}", "$proto");
EOC
    }

    # include any class specific init code from the .pmc file
    $cout .= <<" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33502	33643	
==>(@$para == 2) {
            # For the cases where we /didn't/ push to @$para
            if($paras->[0][0] eq '~Para') {
              DEBUG a <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35315	35456	
==>(@$para == 2) {
            # For the cases where we /didn't/ push to @$para
            if($paras->[0][0] eq '~Para') {
              DEBUG a <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	4163	4306	
==>i_fcntl' => 'define',
             'i_float' => 'define',
             'i_fp' => undef,
             'i_fp_class' => undef,
             'i_gdbm <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	25352	25477	
==>parser, $expr, $then, $elseifs, $else ) = @_;
    my @opcodes = ();
    my $cond = get_cond( $parser, $expr );
    push @op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557793	557893	
==>od_pmc, *object;\n  opcode_t *next = {{^+3}};\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559177	559277	
==>od_pmc, *object;\n  opcode_t *next = {{^+3}};\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2893	3028	
==>-text'    => "\n{\\pard\\li#rtfindent##rtfitemkeepn#\\sb60\\sa150\\fi-120\n",
 '/item-text'   => "\n\\par}\n",

 # we don't need any sty <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1126	1241	
==>=> $ident->line,
  }, $class;

  #
  # Check for a few bad conditions.
  #
  # NOTE: These are compiler internal con <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1029	1144	
==>=> $ident->line,
  }, $class;

  #
  # Check for a few bad conditions.
  #
  # NOTE: These are compiler internal con <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7190	7314	
==>->{code}}, "\t#\n\t# User-included assembly\n$syms[CURR]\n\t# End assembly\n\t#\n";
		feedme;
		
		goto PARSE;
	}
		
	# DO ME <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	35368	35538	
==>);
}
sub DELETE_SLICE_plus_2 {
    return Del_Slice(@_, 2);
}
sub DELETE_SLICE_plus_3 {
    return Del_Slice(@_, 3);
}
sub DELETE_FAST {
    my ($n, $c, $cmt) = @_;
    pr <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	237	373	
==>y("Empty compile time value given to lib.import()");
        }
        if (-e $path && !-d $path) {
            $*ERR.say("Parameter to l <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1376	1510	
==>guage = $language;
        } elsif ($dir_count == 2) {
          $path_to_language = '.';
        } elsif ($dir_count >2) {
          $ <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1861	1995	
==>guage = $language;
        } elsif ($dir_count == 2) {
          $path_to_language = '.';
        } elsif ($dir_count >2) {
          $ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	4953	5068	
==>e file start token. If the text of the next token is a file
path and that file contains POD, then a link will be mad <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109652	109882	
==>\n  string_bitwise_or(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110431	110661	
==>\n  string_bitwise_or(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	40810	41063	
==>and print "L-section content: ", pretty($ell->[1]{'section'}), "\n";
      }

      if( @ell_content ) {
        $ell->[1]{'to'} = Pod::Simple::LinkSection->new(
          ['', {}, @ell_content]
        );
        DEBUG > 3 and print "L-to content: ", pr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455303	455560	
==>" => 522,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 235 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5383	5501	
==>nberror=0;
	($$token,$$value)=(undef,undef);
	@$stack=( [ 0, undef ] );
	$$check='';

    while(1) {
        my($ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5124	5236	
==>nberror=0;
	($$token,$$value)=(undef,undef);
	@$stack=( [ 0, undef ] );
	$$check='';

    while(1) {
        my($ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8528	8640	
==>state $$states[$$stack[-1][0]]{GOTOS}{$lhs}.\n";

#DBG>				$debug & 0x10
#DBG>			and	$dbgerror
#DBG>			and	$$ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8142	8250	
==>state $$states[$$stack[-1][0]]{GOTOS}{$lhs}.\n";

#DBG>				$debug & 0x10
#DBG>			and	$dbgerror
#DBG>			and	$$ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5892	6013	
==>($$token)
            or	do {
				($$token,$$value)=&$lex($self);
#DBG>				$debug & 0x01
#DBG>			and	print STDERR "Nee <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5611	5728	
==>($$token)
            or	do {
				($$token,$$value)=&$lex($self);
#DBG>				$debug & 0x01
#DBG>			and	print STDERR "Nee <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717933	718031	
==>ops\"\n  PMC * const io = {{\@1}};\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718865	718963	
==>ops\"\n  PMC * const io = {{\@1}};\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031279	1031500	
==>ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 323 \"src/ops/sys.ops\"\n    if ({{\@2}} < enum_first_type || {{\@2}} >= enu <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1510	1665	
==>t {$_[0]{'output_fh'}} $indent, '* "', $text, "\"\n";
  }
  return;
}

sub _handle_element_end {
  DEBUG and print "-- $_[1]\n";
  print {$_[0]{'output_fh'} <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	1149	1369	
==>type;
            }

            $_[0] = &threads::shared::share($_[0]);

            if( $type eq 'HASH' ) {
                %{$_[0]} = %$data;
            }
            elsif( $type eq 'ARRAY' ) {
                @{$_[0 <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	6583	6699	
==>length($$textref)-$endpos,	# REMAINDER
	       );
}

sub revbracket($)
{
	my $brack = reverse $_[0];
	$brack =~ tr/[( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	3760	3860	
==>n a single subexpression.
# By default, all calls are propagated to the subexpression.
package Regex: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	4157	4273	
==>olute position.
#

sub back
{
  my $self = shift;
  my ($offset) = @_;

  $offset = 1 unless defined $offset;

  retu <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38038	38179	
==>ame> is the name of the output file we are
generating.

The C<delegate> PMC redirects all methods to bytecode.

=cut

sub body
{
    my ($self <==
2	/Users/nnunley/parrot/config/inter/shlibs.pm	555	650	
==>inter::shlibs;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Ste <==
2	/Users/nnunley/parrot/config/init/defaults.pm	1540	1696	
==>e.  This setting
        # allows you to override ICU's guess, but is otherwise currently
        # unset.  Ultimately, it should be set to whatever ICU figu <==
2	/Users/nnunley/parrot/config/gen/revision.pm	102	231	
==>8:15.110975Z coke  $

=head1 NAME

config/gen/revision.pm - Parrot's configure revision

=head1 DESCRIPTION

Determines parrot's S <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885600	885899	
==>",
                  "CODE" => 1002,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\" <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	3931	4115	
==>efull for

=over 4

=item *

computers where you cannot install C<Digest::MD5> (e.g. lack of a C-Compiler)

=item *

encrypting only small amounts of data (less than one million bytes). <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	709943	710271	
==>ne 732 \"src/ops/pmc.ops\"\n  {{\@1}} = {{\@2}}->vtable->mro;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	14113	14232	
==>e=summary>
                <span class="tests_total"><tmpl_var name=total> test cases</span>:<br />
		<span class="tests <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060523	1060901	
==>" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1184,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14663	14777	
==>s/core.ops\"\n  opcode_t * const loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	15350	15464	
==>s/core.ops\"\n  opcode_t * const loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	15674	15801	
==>decl($classname, $method, 0);
    # This is the part that comes from the PMC file.
    $cout .= $self->line_directive($method->{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14780	15055	
==>> [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS",
                  "NAME" => "jump",
                  "FLAGS" => ":base_loop",
                  "ARGD <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	3407	3514	
==>new()> if you're testing
a Test::Builder based module, but otherwise you probably want C<new>.

B<NOTE>: the <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	33	142	
==>y @results = ();
while (<>) {
	if (/^Translated (\d+) types out of (\d+) from .+?([\.\w]+)\n$/) {
		push @r <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	33	142	
==>y @results = ();
while (<>) {
	if (/^Translated (\d+) types out of (\d+) from .+?([\.\w]+)\n$/) {
		push @r <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	7132	7228	
==>const->{methods} }, {
		meth => "$meth",
		type => $entry->{type},
		parameters => $entry->{param <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	8568	8681	
==>-1]);
  my $oldscope = $self->{scope};
  $self->{scope} = { '*UP*' => $oldscope };

  my $num = 5;
  my @args = @{ <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	2998	3226	
==>emplate = $1;
                $asm = q{};
                next;
            }
            else {
                $line =~ m/(extern\s*)?(\w+)\s*{/; #}
                $extern = (defined($1))? 1 : 0;
                $function = $2 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1842	1983	
==>%s'", $kind);
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  if (not $self->prefix and $self->peer a <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	5433	5574	
==>my ($name, $footer);
    my $type;
    my $body;
    my $short_name;
    my $args;
    my @args;
    my @argdirs;
    my $seen_pod;
    my $se <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	22537	22668	
==>= "\n" unless $msg =~ /\n\Z/;

    local $Level = $Level + 1;
    $self->_print_diag($msg);

    return 0;
}

=begin _private

=item <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	14353	14498	
==>th --run-pbc don't make sense
                return $builder->skip( "no native tests with -r" );
            }

            my ( $exit_code, $cmd <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	32114	32288	
==>ew AssignOp( $parser,
            'result' => $iter,
            'arg1'   => $expr->[0],
        );
        $expr = shift @{$exprs};
    }
    my $state = new_tmp( $pars <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	127	254	
==>he List form
# is really suitable only for peephole optimization.

package Regex::TreeOptimize;
use Regex::Ops::Tree qw(rop);
us <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861754	862076	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "length",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355315	355617	
==>" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "write",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	9528	9647	
==>g(interpreter, st);
}

/* All our static functions that call in various ways. Yes, terribly
   hackish, but that is just <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	44002	44137	
==>. If no text is given,
C<$_> is used.

In a list context, an array of 11 elements is returned. The elements are:

=over 4

=item [0]

th <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33115	33300	
==>ore, $mv, "pre_store for rule $rule->{'name'}");
		$pir .= "### end pre_store\n";

		# If we have PIR for the instruction, just take that. If not, we need
		# to generate it from the "to <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	5209	5342	
==>ONOK_${ons}
ONERR_${ons}:
	print "On...goto/gosub out of range at $sourceline\\n"
	_platform_shutdown()
	end
ONOK_${ons}:
ON
	$i=1;
	f <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2349	2516	
==>()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  my $block = $self->block;
  my $name  = $self->ident ? $self->ident->value : undef;
  my $cond  = $self->co <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23295	23538	
==>=> 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 74
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRIN <==
2	/Users/nnunley/parrot/languages/APL/t/APL.pm	1845	1983	
==>L', $apl, $output, $block->name);
        }
      } else {
        SKIP: {
          skip("not implemented", 1);
          Parrot::Test::la <==
2	/Users/nnunley/parrot/config/auto/perldoc.pm	87	188	
==>9593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/perldoc - Check whether perldoc wor <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	1756	1876	
==>subclasses, not parse_lines";
}

sub parse_line {
  use Carp ();
  Carp::croak "Use set_source with ", __PACKAGE__,
    " <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	5053	5155	
==>b gen_manifest_skip {

   # manicheck.pl is probably only useful for checked out revisions
   # Checkou <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	1365	1500	
==>efined.

=cut

sub integrate
{
    my ($orig, $new) = @_;

    # Rather than sprinkling "if defined(...)", everywhere,
    # config/inte <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	72	180	
==>t/Docs/Section/PMCs.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Section::PMC <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3915	4026	
==>pile("$group", "lib-$group")
          or die "compile $group.c failed ($?)\n";
    }
} 
elsif ($mode eq 'linkli <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4019	4130	
==>pile("$group", "lib-$group")
          or die "compile $group.c failed ($?)\n";
    }
} 
elsif ($mode eq 'linkli <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	18587	18726	
==>_file($include, $file, 1);

    my $fh = open_file( "<", $file );

    my $class;
    eval do { local $/; <$fh> };
    die $@ if $@;

    cl <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	292	385	
==>eters specifying argument types and
subcommands can be specified, the build tool takes this an <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1441	1551	
==>$path_to_language = '.';
        } elsif ($dir_count >2) {
          $path_to_language = File::Spec->join(File: <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1926	2036	
==>$path_to_language = '.';
        } elsif ($dir_count >2) {
          $path_to_language = File::Spec->join(File: <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	847	999	
==>ex => 1,
    id => 1,
    iter => 1,
    filter => 1,
    list => 1,
    long => 1,
    int => 1,
    map => 1,
    max => 'v',
    min => 'v',
    range <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25385	25533	
==>=> 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 79
		ACTIONS => {
			"-" => 24, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365323	365559	
==>\@2}});\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366163	366399	
==>\@2}});\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/config/gen/icu.pm	1123	1231	
==>def, $ret) = capture_output("icu-config", "--exists");

            if (($ret == -1) || (($ret >> 8) != 0)) { <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2	278	
==>ckage Scheme::Builtins;

use strict;

# nice for debugging
use Data::Dumper;

my %built_ins = 
(
 write =>
 [['# Write function', ''],
  ['write_ENTRY',  'typeof', 'I0', 'P5'],
  ['',             'ne', 'I0', '.Undef', 'write_N_UNDEF'],
  ['',             'print', '"()"'],
  [' <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	5150	5272	
==>heckout is done either with svn or svk
   my $svn_cmd;
   if (defined $Parrot::Revision::svn_entries 
            && $Parro <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	2919	3029	
==><=");
	return 10 if ($op eq "<>");
	return 10 if ($op eq ">");
	return 10 if ($op eq "<");
	return 15 if ($op e <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	16023	16158	
==>e, $vtable);

Add methods to the class structure for each method found in the
vtable. This is used to determine all of the 'default' met <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3352	3458	
==>The Perl Journal> issue
21.  See L<http://www.sysadminmag.com/tpj/issues/vol5_5/>

=head1 COPYRIGHT AND DIS <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	64318	64522	
==>d1 AUTHOR

Damian Conway (damian@conway.org)


=head1 BUGS AND IRRITATIONS

There are undoubtedly serious bugs lurking somewhere in this code, if
only because parts of it give the impression of understandi <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	4235	4406	
==>or die "Can't open $target.tmp: $!";

    if ($options{commentType}) {
        my @comment = (
            "DO NOT EDIT THIS FILE",
            "Generated by " . __PACKAGE_ <==
2	/Users/nnunley/parrot/config/auto/format.pm	1146	1315	
==>ze;
        $nvformat = "%f";
    } elsif ($nv eq "long double") {

        # Stay way from long double for now (it may be 64 or 80 bits)
        # die "long double not s <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26958	27100	
==>}
	},
	{#State 83
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	602015	602352	
==>],
                  "BODY" => "#line 383 \"src/ops/object.ops\"\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "class",
                  "FLAGS" => ":object_ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	31034	31138	
==>ns a bunch of end of test sanity checks to make sure reality came
through ok.  If anything is wrong it wi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15244	15332	
==>PER
      $x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16425	16513	
==>PER
      $x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?' <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	3272	3469	
==>t
            I18N
            ICSharpCode.SharpZipLib
            Microsoft.JScript
            Microsoft.VisualBasic
            Microsoft.VisualC
            Microsoft.Vsa
            Mono <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3123	3222	
==>ore_pmcs.pm

package Parrot::PMC;

use strict;
use warnings;

use vars qw(@ISA %pmc_types @EXPORT_OK <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	67	166	
==>ore_pmcs.pm

package Parrot::PMC;

use strict;
use warnings;

use vars qw(@ISA %pmc_types @EXPORT_OK <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	5689	5808	
==>lude})) {
            print "    $include, included by:\n";
            foreach my $file (sort keys %{$system_include{$i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	959	1047	
==>ss "Right is not Value!" unless UNIVERSAL::isa($right, 'Jako::Construct::Expression::Valu <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	971	1059	
==>ss "Right is not Value!" unless UNIVERSAL::isa($right, 'Jako::Construct::Expression::Valu <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	5726	5866	
==>or character ranges) won't
# have to do their own checking.
#
# Without this, /abc/ would compile to
#  check(1)
#  match(a)
#  check(1)
#  m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84988	85274	
==>=> 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85894	86180	
==>=> 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	1721	1814	
==>nfig
our $PMC2C = "$PERL $PATHQUOTE" . q[/Users/nnunley/parrot/tools/build/pmc2c.pl] . $PATHQU <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	1812	1905	
==>nfig
our $PMC2C = "$PERL $PATHQUOTE" . q[/Users/nnunley/parrot/tools/build/pmc2c.pl] . $PATHQU <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	6069	6261	
==>s/^([^%]*)%(\d+)//)
    {
        $pir .= inline($1) if $1;
        $pir .= "  \$S0 = $args[$2] \n";
        $pir .= "  pir .= \$S0 \n";
    }
    
    # catch anything at the end
    $pir .= $ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	36460	36568	
==>\&_op_char_le_p,
  'char>=?'          => \&_op_char_ge_p,
  'char-ci=?'        => \&_op_char_eq_p,
  'char-ci <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22020	22168	
==>me} } 

sub new ($$$$$)
{
	my $class = ref($_[0]) || $_[0];
	bless 
	{
		"code"      => $_[1],
		"lookahead" => $_[2],
		"line"      => $_[3],
		"nam <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9667	9764	
==>n(${ASSEMBLY}, ${ARG0})

# If it's a call to instantiate, need to knock off first arg.
if "${CURIC <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7181	7278	
==>n(${ASSEMBLY}, ${ARG0})

# If it's a call to instantiate, need to knock off first arg.
if "${CURIC <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	605	928	
==>ltiply', '%1 = %1 * %2' ],
    '\x{f7}' => [ 'Divide', '%1 = %1 / %2' ],
    '\u2212' => [ 'Subtract', '%1 = %1 - %2' ],
    '\u2308' => [ 'Maximum',  <<'END_PIR' ],
    if %1 > %2 goto maximum_done
    %1 = %2
maximum_done:
END_PIR

    '\u230a' => [ 'Minimum', <<'END_PIR' ],
    if %1 < %2 goto minimum_done
    %1 = %2
m <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2406	2507	
==>10[0]
	P1= P0["$stype"]
	P0= P1["$var"]	# Pull the original
	P2= P10[I25]
	P3= P2["$stype"]
	P3["$var" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2633	2734	
==>10[0]
	P1= P0["$stype"]
	P0= P1["$var"]	# Pull the original
	P2= P10[I25]
	P3= P2["$stype"]
	P3["$var" <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4418	4501	
==>libparrot.def|CFLAGS|myconfig|(?:core_pmcs|exec_(?:cpu|dep)|fingerprint|jit_(?:cpu|e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8797	8892	
==>terpreter, {{\@1}});\n    struct PackFile_FixupEntry *fe = PackFile_find_fixup_entry(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9913	10008	
==>terpreter, {{\@1}});\n    struct PackFile_FixupEntry *fe = PackFile_find_fixup_entry(interpreter <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11274	11382	
==>al(5)
print T!

' Correct and factorial of 4 is 24
function factorial(a)
	if a then factorial=a*factorial(a-1 <==
2	/Users/nnunley/parrot/languages/converter.pl	2158	2270	
==>se::RecDescent->new($grammargrammar);

my $file = $ARGV[0];
my @lines;
my @rules;

open FILE,$file or die "Couldn <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621752	621851	
==>B_FLAG_TAILCALL) {\n\t    PObj_get_FLAGS(ccont) &= ~SUB_FLAG_TAILCALL;\n\t    --ctx->recursion_depth <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29592	29683	
==>B_FLAG_TAILCALL) {\n\tPObj_get_FLAGS(ccont) &= ~SUB_FLAG_TAILCALL;\n\t--ctx->recursion_depth <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9324	9442	
==>t pos := popped index");
}

sub output_popint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);
    if ($s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9018	9136	
==>t pos := popped index");
}

sub output_popint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);
    if ($s <==
2	/Users/nnunley/parrot/lib/Test/More.pm	8538	8637	
==>s $brooklyn{tree}> is true, it checks if
it returns 1.  Very different.  Similar caveats exist for f <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2382	2491	
==>rot/src/pmc' . $PATHQUOTE . " " .
        $source;
};

sub partial_link_cmd {
    my ($target, $libs, $sources <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	2177	2286	
==>rot/src/pmc' . $PATHQUOTE . " " .
        $source;
};

sub partial_link_cmd {
    my ($target, $libs, $sources <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	3698	3841	
==>t $type $name = $value");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Nam <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9529	9634	
==>');
  flunk('This test failed');

  skip('skip this test for now');

  flunk('this fails, but might work s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23709	23852	
==>);
    #   last unless (<value> <op> <value>);
    #
    #   last <label>;
    #   last <label> if     (<value> <op> <value>);
    #   last <lab <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	1334	1517	
==>atch_failed()" ],
  );

sub op {
    my ($class, $name, $args, %opts) = @_;

    $DB::single = 1 if ref $name;
    my $self = bless { name => $name,
                       args => $arg <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824526	824624	
==>ption(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_str(entry->entry);\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825597	825695	
==>ption(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_str(entry->entry);\ <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	11016	11198	
==>}sx;

    my ($pre, $classname, $flags)   = parse_flags(\$code);
    my ($classblock, $post)         = extract_balanced($code);

    my $lineno  = 1 + count_newlines($pre);
    $class <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196864	197323	
==>GS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 233,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BOD <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	1388	1490	
==>>constants) {
        printf("%04x: %08x %08x %08x %08x %s\n",
	    $constant_num, $_->flags, $_->encod <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798614	798864	
==>01,
                  "ARGS" => [
                              "p",
                              "k",
                              "nc"
                            ],
                  "BODY" => "#line 462 \"src/ops/set.ops\"\n    {{\@1}}->vtable-> <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	2909	3133	
==>$time = shift;
    
    return $self->stat->mtime > $time;
}

=item C<svn_id()>

Returns the svn C<$Id> string.

=cut

sub svn_id
{
    my $self = shift;
    my $content = $self->read;
    # Break up the $Id to prevent svn me <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	2728	2889	
==>e => 'sub', Attributes => { name => $name } });
  }

  foreach my $arg (@args) {
    my ($arg_type, $arg_name) = @$arg;

    $handler->start_element({ Name => 'ar <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	26770	26897	
==>allback);
        push @ops, @rewritten;
        $fallback = $back;
    }

    return ($fallback, @ops);
}

sub rewrite_external <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	20860	21165	
==>S_NOT_FOUND_ERROR\n";

        # We may need to bulid second byte dispatch tables.
        foreach (keys %byte2_todo) {
            my @rules = @{$byte2_todo{$_}};
            @rules = sort { 
                $a->{'code'} =~ /^(\w{2})/;
                my $x = $1;
                $b->{'code'} =~ /^(\w{2}) <==
2	/Users/nnunley/parrot/config/init/hints/vms.pm	269	385	
==>d_ANSI/Prefix=All/Obj=.obj/NoList/NOANSI_ALIAS/include="./include"},
        perl    => "MCR $^X",
        exe     => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854514	854933	
==>em",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 970,
                  "ARGS" => [
                              "s",
                              "s",
                              "s"
                            ], <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7639	7872	
==>.\n";
                $$dotpos = $1;
            };

            @sempar =       $$dotpos
                        ?   map { $$_[1] } @$stack[ -$$dotpos .. -1 ]
                        :   ();

            $semval = $code ? &$c <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7292	7517	
==>.\n";
                $$dotpos = $1;
            };

            @sempar =       $$dotpos
                        ?   map { $$_[1] } @$stack[ -$$dotpos .. -1 ]
                        :   ();

            $semval = $code ? &$c <==
2	/Users/nnunley/parrot/config/auto/gdbm.pm	151	274	
==>gdbm.pm - Test for GNU dbm (gdbm) library

=head1 DESCRIPTION

Determines whether the platform supports gdbm. This is needed <==
2	/Users/nnunley/parrot/config/init/hints/vms.pm	452	700	
==>nition

        *Parrot::Configure::Step::cc_build = sub {
            my ($cc, $ccflags) = $conf->data->get(qw(cc ccflags));
            system("$cc $ccflags test.c") and die "C compiler died!";
            system("link/exe=test test")        and d <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	965	1067	
==>1) if m/extends\s+(\w+)/;
    return $PMC_PARENTS{$pmc} = 'default';
}

# Return an array of all
sub pm <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	44441	44558	
==>BRULE		= '\G\s*(\w+)';
my $MATCHRULE		= '\G(\s*<matchrule:)';
my $SIMPLEPAT		= '((\\s+/[^/\\\\]*(?:\\\\.[^/\\\\]*)*/)? <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	15904	16017	
==>receding directive was encountered. Typically this
			 indicates either a extra '>' in the grammar, or a
			 probl <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	60501	60660	
==>C<extract_bracketed> was not one of
C<'()[]E<lt>E<gt>{}'>.

=item  C<Did not find prefix: /%s/>

A non-optional prefix was specified but wasn't found at the sta <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	586	779	
==>ser = shift;
    my ($msg) = @_;

    $msg ||= ".\n";

    if ( exists $parser->YYData->{nb_warning} ) {
        $parser->YYData->{nb_warning}++;
    }
    else {
        $parser->YYDat <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	779	884	
==>';
}

=item C<core_prefix()>

The prefix is C<'switch_'>.

=cut

sub core_prefix
{
    return "switch_";
} <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	3338	3456	
==>gExpr attribute="Comment" context="pod" String="^\\=($pod_start_rx).*" />
          <HlCOct attribute="Octal" context=" <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	2368	2490	
==>makes it much harder to compile using
        # the system headers, which may well be tuned to a non-strict
        # envir <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564900	565209	
==>\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "can", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565792	566101	
==>\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "can", <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	9225	9436	
==>eturn 1 if ($c =~ /$pointfloat|$expfloat/o);
    return 0;
}

sub is_imag {
    my $c = $_[0];
    return 1 if ($c =~ /^[+-]?\d+[jJ]$/);
    return 1 if ($c =~ s/[jJ]$// && is_num($c));
    return 0;
}

sub typ { <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	6479	6599	
==>^(.+\.o):$/ || m/\[(.+\.o)\]:$/ || m/\((.+\.o)\):$/) {
		$o = $1;
	    } elsif (/ ([A-Za-z]) \.?(\w+)$/) {
		# Especially <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1150	1246	
==>G(0, "Searching for symbol '$name'...");

  my $sym = $self->block->find_symbol($name);

  $self- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375710	375846	
==>ic"
                            ],
                  "BODY" => "#line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376594	376730	
==>ic"
                            ],
                  "BODY" => "#line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpr <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	2909	3038	
==>, "session", "state") structure that is either
explicitly passed between functions or implicitly retrieved from a
global API.  Enc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390482	390904	
==>"i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 454,
                  "ARGS" => [
                              "p",
                              "ic",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757769	758016	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758541	758788	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	12665	12782	
==>ead1 LICENSE

THIS PROGRAM IS FREE SOFTWARE. ITS USE IS SUBJECT TO THE SAME LICENSE AS
THE PARROT VIRTUAL MACHINE.

=c <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	1876	2072	
==>nes);
}

check_manifest();

exit 0;

###############################################################################

sub check_source {
    my ($file, $source) = @_;

    print "Checking $file..\n <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1231	1334	
==>tate_left((X3^(X1&(X2^X3)))+X0+X4+X6$MSK,X5)+X1$MSK;",
	GG => "X0=rotate_left((X2^(X3&(X1^X2)))+X0+X4+X6 <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5280	5436	
==>stination register emulating the stack position and
	# generate a move instruction.
	if (!$need_dest) {
		$pir .= <<'PIR'
inc stack_depth 
${STEMP0} = "$"
${ <==
2	/Users/nnunley/parrot/config/init/hints/freebsd.pm	908	1026	
==>hared        => 1,
        libparrot_shared        => 'libparrot$(SHARE_EXT).$(SOVERSION)',
        libparrot_shared_al <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	1746	1864	
==>hared        => 1,
        libparrot_shared        => 'libparrot$(SHARE_EXT).$(SOVERSION)',
        libparrot_shared_al <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7041	7141	
==>ode   = defined $options{fail} ? $options{fail} : '';
	my $bad     = ref($options{reject}) eq 'ARRAY' <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24043	24143	
==>ode   = defined $options{fail} ? $options{fail} : '';
	my $bad     = ref($options{reject}) eq 'ARRAY' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943083	943464	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "charset",
                  "FLAGS" => ":base_core",
                  "ARG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845902	846240	
==>\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chr",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	15030	15213	
==>,
        tv_usecs => '$',
    ]);

        # create an object:
    my $t = new rusage;

        # $t->ru_utime and $t->ru_stime are objects of type timeval.
        # set $t->ru_utime <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1843	1941	
==>nt'} }
sub start_over_number  { ++$_[0]{'Indent'} }
sub start_over_text    { ++$_[0]{'Indent'} }
su <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1411	1509	
==>nt'} }
sub start_over_number  { ++$_[0]{'Indent'} }
sub start_over_text    { ++$_[0]{'Indent'} }
su <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812469	812850	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clone",
                  "FLAGS" => ":base_mem",
                  "ARGDIR <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	26878	26980	
==>sub rewrite_external {
    my ($self, $op, $extname, $extargs, $lastback) = @_;
    my $handler = "exte <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	8596	8711	
==>t;
  foreach my $t (@_) {
    next unless defined $t and length $t;
    # TODO: enforce some limitations on what a t <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74150	74262	
==>reps;
	my $_savetext;
	for ($reps=0; $reps<$max;)
	{
		$_savetext = $text;
		my $prevtextlen = length $text;
		my <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	13976	14103	
==>th($para_text_content) <= $max_content_length)
           : 1)
        ) {
          # Some minimal sanity constraints, I think. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646418	646656	
==>TYPE" => "inline",
                  "CODE" => 722,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 211 \"src/ops/pmc.ops <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497378	497799	
==>RS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 571,
                  "ARGS" => [
                              "n",
                              "nc",
                              "n"
                            ],
                  "BODY" => <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	36586	36730	
==>'Data') {
        $para->[0] = 'Data';
        $para_type = '?Data';
      } elsif( $para_type =~ s/^=//s
        and defined( $para_type = $self <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	9400	9525	
==>turn ($N1)
two:
    $N1 = cos op2
    .return ($N1)
three:
    $N1 = tan op2
    .return ($N1)
four:
    $N1 = op2 * op2
    $ <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	5403	5515	
==>ut that people hate
to write tests B<at all>.  What was needed was a dead simple module
that took all the hard wo <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53259	53380	
==>UncondReject($lookahead,$line,$code);
				$prod and $prod->additem($item)
				      or  _no_rule($code,$line);
			}
			els <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54968	55089	
==>UncondReject($lookahead,$line,$code);
				$prod and $prod->additem($item)
				      or  _no_rule($code,$line);
			}
			els <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	3187	3327	
==>= exp %1"      # exp
    $P0[unicode:"monadic:\x{d7}"] =  <<"END_PIR"            # signum
    $N100 = %1
    $I100 = cmp_num $N100, 0.0
    % <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	27700	27821	
==>todos are passes.

Of course, test #1 is $tests[0], etc...

=cut

sub summary {
    my($self) = shift;

    return map { $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951021	951490	
==>S" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1070,
                  "ARGS" => [
                              "s",
                              "sc",
                              "i"
                            ],
                  "BODY" => "#line 540 \"src/ops/string.ops\"\n  STRING *de <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10774	10994	
==>utfile_base = $source_file; 
    $outfile_base =~ s/\//_/g;
    $outfile_base = "$HTMLDIR/$outfile_base";

    my $outfile = "$outfile_base.lines.html";
    print "Writing $outfile..\n" if $DEBUG;
    open (IN, "<$infile" <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	3644	3823	
==>=4:
1;

__END__

=head1 NAME

Parrot::PIR::Formatter - Given ugly PIR, format it nicely.

=head1 SYNOPSIS

 use Parrot::PIR::Formatter;

=head1 DESCRIPTION

Primarily intended to b <==
2	/Users/nnunley/parrot/config/gen/icu.pm	497	663	
==>ing whether ICU is installed";

@args = qw(verbose icushared icuheaders icu-config without-icu);

sub runstep
{
    my ($self, $conf) = @_;

    my ($verbose, $icushar <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	20154	20321	
==>nc = $method->{mmd};
            # dynamic PMCs need the runtime type
            # which is passed in entry to class_init
            $left = 0;  # set to 'entry' belo <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	3291	3398	
==>Everything else goes to the handler
  $dispatch{$cur_section}->($line);

}

# Put the registers back and end <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22682	22776	
==>elf->_add_inst("DONE_$label");
  $self->_restore($temp_0,$temp_1);
  return $return;
}

sub _op <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23183	23277	
==>elf->_add_inst("DONE_$label");
  $self->_restore($temp_0,$temp_1);
  return $return;
}

sub _op <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4539	4637	
==>if $self->bare_output;
  return
   $self->do_beginning && $self->do_middle && $self->do_end;
}


#~ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3170	3267	
==>if $self->bare_output;
  return
   $self->do_beginning && $self->do_middle && $self->do_end;
}

#~ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	941	1043	
==>R IS OPTIONAL WHITESPACE
   $skip  = '\s*';		# UNIVERSAL SEPARATOR IS OPTIONAL WHITESPACE
my $MAXREP  = <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	5757	5864	
==>rint_newline

  print_space_2d:  # don't print a space if we're about to end a row
    if newline goto print <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27547	27741	
==>elf->decl($classname, $meth, 1);
        }
    }
    foreach my $method (@{ $self->{methods}} ) {
        next unless $method->{loc} eq 'nci';
        $hout .= $self->decl($classname, $method, 1) <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	51814	51960	
==>the directive is parsed correctly.

=head2 C<extract_multiple>

The C<extract_multiple> subroutine takes a string to be processed and a 
list of ex <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11628	11719	
==>oproof\sbasedon10 pod-C;}
{\s20\ql \li0\ri0\sa180\widctlpar\f1\fs%s\lang1024\noproof\sbasedo <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	23246	23378	
==>irstpos;
					$lastpos = pos $$textref;
					last FIELD if @fields == $max;
					next FIELD;
				}
			}
			if ($$textref =~ /\G(.)/gc <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4262	4375	
==>link($group, $group_libs->{$group}, [ "lib-$group", @$pmcs ] )
          or die "partial link of $group failed ($? <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4366	4479	
==>link($group, $group_libs->{$group}, [ "lib-$group", @$pmcs ] )
          or die "partial link of $group failed ($? <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	726	866	
==>rding to existing ops in ops/num and natural
order in the given ops files. See also F<tools/dev/ops_renum.mak>.

=back

=head2 WARNING

Gener <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2386	2494	
==>_sym->type;
  }
  else {
    $right_type = $right->type;
  }

  $self->INTERNAL_ERROR("No type for dest!")  u <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2308	2416	
==>_sym->type;
  }
  else {
    $right_type = $right->type;
  }

  $self->INTERNAL_ERROR("No type for dest!")  u <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	1827	1964	
==>rk python]
    exe       = /usr/local/bin/python
    type      = .py

    [benchmark ruby]
    exe       = /usr/bin/ruby
    type      = . <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	7355	7474	
==>le_112_op Parrot_jit_normal_op
#define Parrot_jit_vtable_221_op Parrot_jit_normal_op
#define Parrot_jit_vtable_1121_op P <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	384	519	
==>(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $namespace = "BARE"; # TODO: <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	47664	47779	
==>nt),
which would cause the earlier " || die;\nexit;" to be skipped in any
sequence of code fragment extractions.

To <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7609	7727	
==>s) {

        if(!$self->{'start_of_pod_block'} and @$paras and $paras->[-1][0] eq '~Verbatim') {
          DEBUG > 1 a <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	29474	29636	
==>tions". In
# "L<Time::HiRes>" and even "L<|Time::HiRes>", there is no link text. Note
# that link text may contain formatting.)
# 

############# The element child <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	2696	2811	
==>include;
    my ($file, $function, $variable);
    while (<F>) {
        
        if (/----------------------------- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043301	1043801	
==>,
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1166,
                  "ARGS" => [
                              "p",
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line 125 \"src/o <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6052	6194	
==>dler->(map $_, $line, $self->{'line_count'}, $self)
       if $cut_handler;

      # TODO: add to docs: Note: this may cause cuts to be process <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	1300	1495	
==>om;

    my $R;
    if (UNIVERSAL::can($atom, 'rx_val')) {
        $R = $self->convert($atom);
    } elsif (ref($atom) eq 'ARRAY') {
        # Codeblock
        $R = op('external' => [ 'code', [ $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	5024	5137	
==>@@@@@@@@@@

sub new {
  # takes no parameters
  my $class = ref($_[0]) || $_[0];
  #Carp::croak(__PACKAGE__ . " is <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	5575	5689	
==>_end_2d
    value_type = typeof value
    if newline goto print_newline
    if value_type != 'String' goto print_sp <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	17625	17749	
==>il
		my $which=$syms[CURR];
		push @{$code{$seg}->{code}}, "DO_$docounter:\n";
		my($result, $type, @code)=EXPRESSION();
		$f <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4873	5253	
==>linkflags');
            $linkflags =~ s/-opt:\S+//;
            $conf->data->set(linkflags => $linkflags);
        }
    } elsif ($is_bcc) {
        $conf->data->set(
            o          => '.obj',
            a          => '.lib',
            share_ext  => '.dll',
            load_ext   => '.dll',
            cc         => ${cc},
            ccflags    => '-O2 -w-8066 -DWIN <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3369	3503	
==>linkflags');
            $linkflags =~ s/-opt:\S+//;
            $conf->data->set(linkflags => $linkflags);
        }
    } elsif ($is_ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	33441	33596	
==>unless $self->no_header;
            $self->{Expected_Tests} = $self->{Curr_Test};
        }

        # Auto-extended arrays and elements which aren't expli <==
2	/Users/nnunley/parrot/config/gen/platform.pm	2309	2538	
==>der_file"
END_HERE
            print PLATFORM_H <IN_H>, "\n\n";
            close IN_H;
        }

        # just fall through if file is missing; means neither this platform nor
        # generic has anything to contribute for th <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	310893	311194	
==>FLAGS" => ":base_debug",
                  "ARGDIRS" => [],
                  "TYPE" => "function",
                  "CODE" => 362,
                  "ARGS" => [],
                  "BODY" => "#line 121 \"src/ops/debug.ops\"\n    if (!(interpreter->pdb->state & PDB_BREAK)) {\n#if 1\n\tPIO_eprintf(int <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6358	6485	
==>Construct::Type::PMC"));

      my @identifiers = ();

      my $block = $self->current_block();

      while (1) {
        my $ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	6871	6998	
==>} .= "my $var;\n" }
	$self->{"changed"} = 1;
	return 1;
}

sub addautoscore
{
	my ( $self, $code ) = @_;
	$self->{"autoscore"} = <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2529	2781	
==>xpected>
parameter.  Note that C<$expected> is a I<Perl 5> pattern.

=cut

sub p6rule_like {
    my ($target, $pattern) = (shift, shift);

    unshift @_ => Parrot::Test::PGE::_generate_pir_for($target, $pattern, 1);

    goto &Parrot::Test::pir_output_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3811	4037	
==>es => { type => $type->name } });
          $handler->characters({ Data => $1 });
          $handler->end_element({ Name => 'literal' });
        }

        my $ident = $2;
        $ident =~ s/^{(.*)}$/$1/; # Strip '{' and '}'. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650598	650706	
==>pmc.ops\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtable_max)\n        {{\@1}} = 1;\n    else if ({{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651520	651628	
==>pmc.ops\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtable_max)\n        {{\@1}} = 1;\n    else if ({{ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	2258	2366	
==>s with SVN commit access.', 'RESPONSIBLE_PARTIES'),
            $self->new_item('A list of some of people who <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2276	2390	
==>t "Wrong" else print "Ok"
if 5=5 then print "Ok" else print "Wrong"
if 5>4 then print "Ok" else print "Wrong"
if 5> <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3663	3763	
==>mpile') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3767	3867	
==>mpile') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	3014	3110	
==>ation that may be useful in
# optimizing generated regular expressions. It is not needed for basi <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	1511	1635	
==>OpTrans/CGoto.pm lib/Parrot/OpLib/core.pm
	$(PERL) $(BUILD_TOOLS_DIR)/ops2c.pl CGoto --core

$(INC_DIR)/oplib/core_ops_cgp.h: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784351	784566	
==>le->set_pmc_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785257	785472	
==>le->set_pmc_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743333	743573	
==>,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 174 \"src/ops/set.ops\"\n  {{\@1}} = string_from_int(interpreter, {{\@2}} <==
2	/Users/nnunley/parrot/lib/File/Which.pm	1360	1524	
==>s (@aliases) {
            # This has not been tested!!
            # PPT which says MPW-Perl cannot resolve `Alias $alias`,
            # let's just hope it's fixed <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	1731	1872	
==>ESS_PERL}  ||= '../../parrot ./' . $options{compiler}
        if $options{compiler};

    # Per Leo on 18APR2005, run the test suite with --gc <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	5939	6044	
==>1\E)/gsc and next;
			_failmsg "Unmatched embedded quote ($1)",
				 pos $$textref;
			pos $$textref = $st <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	250347	250737	
==>ore",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 291,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 698 \"s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	36275	36496	
==>LE_set_pointer(interpreter, eh, CUR_OPCODE + {{\@1}});\n  push_exception(interpreter, eh);\n  {{+=2}};\n",
                  "LABELS" => [
                                1
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846632	846735	
==>e 56 \"src/ops/string.ops\"\n  STRING *s;\n  s = string_chr(interpreter, (UINTVAL){{\@2}});\n  {{\@1}} = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847428	847531	
==>e 56 \"src/ops/string.ops\"\n  STRING *s;\n  s = string_chr(interpreter, (UINTVAL){{\@2}});\n  {{\@1}} = <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9811	9945	
==>ery first module written for Pugs.

It provides a simple set of common test utility functions, and is
an implementation of the TAP prot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478580	478855	
==>ne",
                  "CODE" => 548,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 437 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0 <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	18492	18618	
==>dified by Damian Conway, 1999-03-05, v0.58.

    Added handling of hash-like arg list to class ctor.

    Changed to two-argume <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	17331	17430	
==>=>$thisoffset, 'to'=>undef},
				'line'   => {'from'=>$thisline,   'to'=>undef},
				'column' => {'f <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	25578	25700	
==>ndef } else {0}',
	        			$self->{"lookahead"},0,$self->describe); 
	$dir->{hashname} = $self->{hashname};
	return $dir <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3567	3692	
==>{
    $return = $self->_save_1 ('N');
    $self->_add_inst ('', 'set', [$return,$value]);
  }
  else {
    $return = $self->_s <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	519	623	
==>m * the estimated number of ops performed,

=item * the elapsed time, and 

=item * the number of M op/s. <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	522	625	
==>m * the estimated number of ops performed,

=item * the elapsed time, and

=item * the number of M op/s. <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	43454	43616	
==>' x $depth; print "($node->{value}\n";
  if(defined $node->{children}) {
    for(@{$node->{children}}) {
      prettyprint($_,$depth+1);
    }
  }
  print ' ' x $d <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1567	1707	
==>$root = Jako::Construct::Block::File->new(
    undef,  # No parent
    'file', # File scope
    undef,  # No return type
    undef   # No pre <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	251	403	
==>ake the alpha version come out as a number

# Make Test::Builder thread-safe for ithreads.
BEGIN {
    use Config;
    # Load threads::shared when thread <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	642	828	
==>eter C<$code> is the code that should be executed or transformed.
The parameter C<$expected> is the expected result.
The parameter C<$unexpected> is the unexpected result.
The parameter C <==
2	/Users/nnunley/parrot/config/init/hints/cygwin.pm	510	718	
==>bout building shared libraries:  Perl5 uses the 'ld2' tool, which
    # is installed as part of the perl5 installation.  So far, it appears
    # parrot can get by with simply using gcc -shared, so we override <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1882	1979	
==>{'Indent'} }
sub start_over_text    { ++$_[0]{'Indent'} }
sub start_over_block   { ++$_[0]{'Indent <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1450	1547	
==>{'Indent'} }
sub start_over_text    { ++$_[0]{'Indent'} }
sub start_over_block   { ++$_[0]{'Indent <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	25853	26009	
==>}

sub issubrule { undef }
sub isterminal { 1 }
sub describe ($) { shift->{'description'}}


# ARGS ARE: $self, $pattern, $left_delim, $modifiers, $lookahead <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	1470	1600	
==>escription)> 

Runs a langugage test and passes the test
if the  output matches the expected result.

=item C<language_output_isnt( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1976	2167	
==>ll place its
  # definition into the block at the top of the block stack (which is supposed
  # to always be the file block at the time subs are declared). We fill in the
  # IDENT entry withi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645816	645916	
==>le_max)\n\t\t{{\@1}} = interpreter->vtables[{{\@2}}]->whoami;\n    else\n\t\t{{\@1}} = Parrot_get_dat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646713	646813	
==>le_max)\n\t\t{{\@1}} = interpreter->vtables[{{\@2}}]->whoami;\n    else\n\t\t{{\@1}} = Parrot_get_dat <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	11251	11421	
==>/
        ^(?:.*\.ops")\s+
        {{\@(\d)}}->vtable->
        (\w+)
        \(interpreter,
        \s*
        {{\@(\d)}},\s*{{\@(\d)}}
        \);
        \s+{{\+=\d}}/ <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	12121	12257	
==>/
        ^(?:.*\.ops")\s+
        {{\@(\d)}}->vtable->
        (\w+)
        \(interpreter,
        \s*
        {{\@(\d)}},\s*{{\@(\d)}} <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2	113	
==>DO NOT EDIT THIS FILE
# Generated by Parrot::Configure::Step from config/gen/makefiles/dynoplibs_pl.in

# Copyri <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	2	208	
==>DO NOT EDIT THIS FILE
# Generated by Parrot::Configure::Step from config/gen/makefiles/dynpmc_pl.in

# Copyright (C) 2001-2005, The Perl Foundation.
# $Id: /parrot/config/gen/makefiles/dynpmc_pl.in 19593 200 <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7182	7313	
==>: defined($options{reject})	       ? $options{reject}
		    :					 ''
		    ;
	my $ignore  = ref($options{ignore}) eq 'ARRAY' ? join <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24184	24315	
==>: defined($options{reject})	       ? $options{reject}
		    :					 ''
		    ;
	my $ignore  = ref($options{ignore}) eq 'ARRAY' ? join <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	3997	4156	
==>ub startset { my ($op) = @_; $op->{args}->[0]->startset() }
sub hasback { my ($op) = @_; $op->{args}->[0]->hasback() }
sub dfa_safe { my ($op) = @_; $op->{args} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706709	706878	
==>ic",
                              "ic"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	707702	707871	
==>ic",
                              "ic"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	296	451	
==>orm contains various bits of information needed
to generate the C code, and creates a different type of run loop. The
methods defined here supply various de <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34890	35005	
==>methods.

=cut

sub body
{
    my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # ex <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152360	152733	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4277	4485	
==>for (my $i = 0; $i < $self->{split_count}; $i++) {
	$c .= <<END_C;
    } /* switch $i */
END_C
    }
	$c .= <<END_C;
    } while (1);
    return NULL;
}
END_C

    $c .= " /* " . $self->core_prefix . "$base */ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	10156	10268	
==>)
	{
		' .($parser->{deferrable}
			? '		splice @{$thisparser->{deferred}}, $def_at;
			  '
			: '') . '

		$_[1] <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	2019	2146	
==>em C<pasm_output_like($code, $expected, $description)> or C<output_like($code, $expected, $description)>

Runs the Parrot Assemb <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2517	2631	
==>+$/s) {
    return 0 + $in;
  } else {
    return $Name2character_number{$in}; # returns undef if unknown
  }
}

#- <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	8016	8144	
==>$name} = $number;
        $fixed{$name} = $number if ($fix);
    }
    close OP;
    open OP, "> $file" or die "Can't open $file, <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	2541	2654	
==>}
    else {
        $nclass .= "::Standard";
    }
    $nclass;
}

=item C<dynext_load_code($library_name, %class <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172260	172356	
==>ops/cmp.ops\"\n  if (0 != string_equal(interpreter,\n      {{\@1}}->vtable->get_string(interprete <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173238	173334	
==>ops/cmp.ops\"\n  if (0 != string_equal(interpreter,\n      {{\@1}}->vtable->get_string(interprete <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736697	736952	
==>1}} = (FLOATVAL){{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737443	737698	
==>1}} = (FLOATVAL){{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890942	891310	
==>=> ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1007,
                  "ARGS <==
2	/Users/nnunley/parrot/config/inter/charset.pm	1411	1517	
==>t.h src/charset/ascii.h src/charset/$charset.c \$(NONGEN_HEADERS)


END
    }

    # build list of librarie <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	23	115	
==>pyright (C) 2004, The Perl Foundation.
# $Id: /parrot/tools/dev/parrot_api.pl 19607 2006-05-3 <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	29524	29758	
==>= BuildLiteral( $_[0], 0, 'number' );
    push @opcodes, @{ $zero->[1] };
    push @opcodes, new BranchUnlessOp( $parser,
        'arg1'   => $_step,
        'op'     => '>',
        'arg2'   => $zero->[0],
        'result' => $l <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	243	345	
==>tput_fh'} ||= *STDOUT{IO};
  $new->nix_X_codes(1);
  return $new;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712464	712553	
==>= Parrot_sprintf_c(interpreter, \"%.12g\", (double){{\@1}});\n  PIO_putps(interpreter, io, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713571	713660	
==>= Parrot_sprintf_c(interpreter, \"%.12g\", (double){{\@1}});\n  PIO_putps(interpreter, io, <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	3223	3363	
==>:"monadic:\x{d7}"] =  <<"END_PIR"            # signum
    $N100 = %1
    $I100 = cmp_num $N100, 0.0
    %1 = $I100
END_PIR
    $P0[unicode:"m <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	78	190	
==>serToken ();
@ISA = ('Pod::Simple::PullParserToken');
use strict;

sub new {  # Class->new(text);
  my $class = s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15299	15415	
==>2768)?ord($1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # return a single scalar
    ($x = ((@_ == 1) ? <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16480	16596	
==>2768)?ord($1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # return a single scalar
    ($x = ((@_ == 1) ? <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24785	24882	
==>l(wantarray, $textref) unless @match;
		return _succeed wantarray, $textref,
				$match[2], $match <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7618	7713	
==>l(wantarray, $textref) unless @match;
	return _succeed wantarray, $textref,
			$match[2], $match <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630524	630636	
==>s);\n    if (type <= 0)\n        real_exception(interpreter, NULL, NO_CLASS,\n            \"Class '%Ss' not found <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631514	631626	
==>s);\n    if (type <= 0)\n        real_exception(interpreter, NULL, NO_CLASS,\n            \"Class '%Ss' not found <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	134	247	
==>utines here...

This is currently alarmingly similar to the generated subs in Parrot::Test.
Perhaps someone can do <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	232	345	
==>utines here...

This is currently alarmingly similar to the generated subs in Parrot::Test.
Perhaps someone can do <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	8093	8208	
==>$t (@_) {
    next unless defined $t and length $t;
    # TODO: enforce some limitations on what a target name can b <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	8612	8727	
==>$t (@_) {
    next unless defined $t and length $t;
    # TODO: enforce some limitations on what a target name can b <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	32716	32928	
==>" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			'DO' => 163,
			"<=" => 85,
			'OR' => 84,
			">" => 86
		}
	},
	{#Sta <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44886	45056	
==>" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			'DO' => 210,
			"<=" => 85,
			' <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12204	12370	
==>E<lt>47E<gt>>, C<EE<lt>0x2fE<gt>>,
and C<EE<lt>057E<gt>>, all mean "/".  If
the name has no known value (as with a name of "qacute") or is
syntactally invalid (as with <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	624794	624921	
==>ntext_t *ctx;\n    opcode_t *pc;\n    void **pred_pc;\n    INTVAL i, n_args, *sig_bits;\n    PMC *sig;\n\n    ctx = CONTEXT(inte <==
2	/Users/nnunley/parrot/config/gen/platform.pm	3699	3809	
==>PLATFORM_C, "> src/platform.c" or die "Can't open src/platform.c: $!";

    print PLATFORM_C <<"END_HERE";
/*
* <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	2732	2846	
==>ns' ]
        
.sub '$cmd'
  .param int register
  .param pmc argv

  .local pmc compiler
  .get_from_HLL(compiler, <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11265	11367	
==>T=factorial(5)
print T!

' Correct and factorial of 4 is 24
function factorial(a)
	if a then factorial= <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	18627	18745	
==>($treelet);  # S has to come after E

    $self->_wrap_up($treelet); # Nix X's and merge texties
    
  } else {
    DE <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	8441	8560	
==>tem F<tools/build/ops2pm.pl>

=item F<tools/build/pbc2c.pl>

=back

=head1 HISTORY

Author: Gregor N. Purdy E<lt>gregor@ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48810	48972	
==>ated directive",
					       $line);
					_hint("Repeated directives cannot have
					       a maximum repetition of zero, nor can they have
					       negative c <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	12454	12578	
==>l case, when the accessor is called with an array reference
as the sole argument, this causes an assignment of the whole arra <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	51094	51205	
==>l $::RD_CHECK = 1;
				}
			}
			elsif ($grammar =~ m/$AUTOSTUBMK/gco)
			{
				_parse("an autostub marker", $af <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557757	557855	
==>ps\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next = {{^+3}};\n  STRING *meth;\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559141	559239	
==>ps\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next = {{^+3}};\n  STRING *meth;\ <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1526	1663	
==>r = shift;
    my $str    = q{};
    my $type   = 'STRING';

    while ( $parser->YYData->{INPUT} ) {

        for ( $parser->YYData <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3041	3178	
==>r = shift;
    my $str    = q{};
    my $type   = 'STRING';

    while ( $parser->YYData->{INPUT} ) {

        for ( $parser->YYData <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	35037	35253	
==>],
        'op'     => '==',
        'arg2'   => $var,
        'result' => $lbl_end,
    );
    foreach my $op ( @{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'br <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	29312	29482	
==>the "content-implicit" flag.
# First:
# The link-text. If there is none, this must be undef. (E.g., in "L<Perl
# Functions|perlfunc>", the link-text is "Perl Functions". I <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16902	17028	
==>hru in X-generated comments
        #  with text in them.
        
        # Yes, stipulate the list without a range, so that t <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10342	10452	
==>hru in X-generated comments
    #  with text in them.

    # Yes, stipulate the list without a range, so that t <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32275	32382	
==>cl($self->{class}, $method, 0);
    # I think that these will be out by one - NWC
    my $l = $self->line_di <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40897	41004	
==>cl($self->{class}, $method, 0);
    # I think that these will be out by one - NWC
    my $l = $self->line_di <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65395	65639	
==>> 85,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 981 \"src/ops/core.ops\"\n  Interp * const new_interp = (Interp *)PMC_dat <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	7949	8185	
==>try->[2],
                meth        => $entry->[1],
                type        => $entry->[0],
                section     => $entry->[3],
                mmd         => $entry->[4]
            };
    }
    $vtable{'has_method'} = \%m <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	304	468	
==>rectory>.

Instances created with C<new()> are cached so that there is only one
unique instance for each path.

=head2 Class Methods

=over

=cut

package Parrot::IO <==
2	/Users/nnunley/parrot/config/auto/alignptrs.pm	171	270	
==>pointer alignment

=head1 DESCRIPTION

Determine the minimum pointer alignment.

=cut

package auto: <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	9782	9923	
==>_table";
#
# Op Info Table:
#
    print SOURCE <<END_C;

/*
** Op Info Table:
*/

static op_info_t $op_info\[$num_entries] = {
END_C

    $ind <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2198	2323	
==>();
		$retval = eval '$self->_DBParse()';#Do not create stab entry on compile
        $@ and die $@;
	}
	else {
		$retval <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2116	2236	
==>();
		$retval = eval '$self->_DBParse()';#Do not create stab entry on compile
        $@ and die $@;
	}
	else {
		$retval <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	13438	13599	
==>tions into C code, based
        # on the mode of operation (function calls, switch statements, gotos
        # with labels, etc.).
        #
        # TODO: Comp <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	40094	40232	
==>p and $op->isa('BranchOp') ) {
                if ( $op->{result} eq 'break' ) {
                    $parser->Error("no loop to break\n") <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39025	39155	
==>p and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $parser->Error("no loop to break\n") <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3711	3813	
==>m.pl> to list the symbols.

=head1 TODO

=over 4

=item *

Write a pollution detector also for the C pr <==
2	/Users/nnunley/parrot/config/init/hints/irix.pm	392	540	
==>*\d+/-woff 1185/;
    } else {
        $ccflags .= ' -woff 1185';
    }
    $conf->data->set(ccflags => $ccflags);

    my $libs = $conf->data->get(' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2985	3112	
==>f->{'output_fh'}} $out,
    #"\n"
  ;
  $self->{'Thispara'} = '';
  
  return;
}

# . . . . . . . . . . And then off by its lone <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2519	2638	
==>f->{'output_fh'}} $out, "\n";
  $self->{'Thispara'} = '';
  
  return;
}

# . . . . . . . . . . And then off by its lone <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1048	1157	
==>ass;
}

sub kind  { return shift->{KIND};  }
sub scope { return shift->{SCOPE}; }

#
# compile2
#

sub compile <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6120	6225	
==>DEST0} = concat "0"
pre_call_NO_RETURN_${CURIC}:

# If it's a call to instantiate, need to knock off first <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421847	422110	
==>VAL)PIO_bind(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422740	423003	
==>VAL)PIO_bind(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	5826	5965	
==>em('', 'mmd'),
        ),
        $self->new_group(
            'Extensions', 
            '',
            $self->c_pair_item('', 'extend'), <==
2	/Users/nnunley/parrot/languages/lua/luac.pl	123	324	
==>s{v} ) {
    print "$0\n";
    print "Perl $] on $^O\n";
    exit;
}
if ( $opts{h} or scalar(@ARGV) != 1 ) {
    use Pod::Usage;
    pod2usage( -verbose => 1 );
}

my $parser = new Lua::parser <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390692	390929	
==>p",
                              "ic",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(int <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5279	5397	
==>d 0755, "$dest/$_$LOAD_EXT";
        }

    }
}
else {
    die "invalid command '$mode'\nmust be one of generate, compi <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5490	5608	
==>d 0755, "$dest/$_$LOAD_EXT";
        }

    }
}
else {
    die "invalid command '$mode'\nmust be one of generate, compi <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	2403	2517	
==>eval $dump;
  #print "$dump\n";
  #exit 0;
}

gen_code();


# object part of this module
sub new {
	my $class = shi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1466	1561	
==>uct an object of this class for
yourself, but if you want to, call
C<<
Pod::Simple::PullParserEn <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	7688	7791	
==>AL
get_nci_N(Interp *interpreter, struct call_state *st, int n)
{
    assert(n < st->src.n);
    Parrot_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	2070	2177	
==>mpile($compiler);
    $right = $right->compile($compiler);

    if ($cond eq 'if') {
      $op = $compiler-> <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9466	9581	
==>\x7B-\x7F]/
            # Characters under 0x80 that aren't legal in an XML Name.
        or $new_code =~ m/^[-\.0-9 <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10730	10845	
==>\x7B-\x7F]/
            # Characters under 0x80 that aren't legal in an XML Name.
        or $new_code =~ m/^[-\.0-9 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614229	614354	
==>RROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "classoffset",
                  "FLAGS" => ":object_classes <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615379	615504	
==>RROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "classoffset",
                  "FLAGS" => ":object_classes <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	260	491	
==>lobal_state();
}

sub init_context {
}

# Convert "x%<foo>y" to
#   print "x"
#   print foo
#   print "y"
#
sub dbprint {
    my ($self, $what) = @_;
    return () unless $self->{DEBUG};
    my $ctx = $self->{ctx};
    $what = "\%<< <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	42704	42864	
==>_tagged>.


=head2 C<extract_quotelike>

C<extract_quotelike> attempts to recognize, extract, and segment any
one of the various Perl quotes and quotelike operat <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16354	16511	
==>x = $_) =~
      s/([F\x00-\x1F\\\{\}\x7F-\xFF])/$Escape{$1}/g;  # ESCAPER
      $x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).' <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6553	6659	
==>te[${ITEMP0}] = ${STYPES}
    prop_stack_depth[${ITEMP0}] = stack_depth
    goto POST_BRANCH_switch_${CURIC <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4491	4597	
==>te[${ITEMP0}] = ${STYPES}
    prop_stack_depth[${ITEMP0}] = stack_depth
    goto POST_BRANCH_switch_${CURIC <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3006	3148	
==>outine one"
   RETURN Label1
Sub2:
   PRINT "3 in subroutine two"
   RETURN Label2   'Cannot return from here to main
                   'progr <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16973	17115	
==>outine one"
   RETURN Label1
Sub2:
   PRINT "3 in subroutine two"
   RETURN Label2   'Cannot return from here to main
                   'progr <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	309	439	
==>ing regexes  (multiple)
   -c -conf           path to configuration file
   -d -directory      path to benchmarks directory
   -h - <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	3322	3498	
==>ther than return foo;");
        }
    }
}


sub check_line_length {
    my ($file, $source) = @_;

    my $line = 0;
    foreach (@$source) {
        $line++;
        next unle <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3422	3586	
==>TACK}[-1][0]]{ACTIONS}}
}

sub YYLexer {
    my($self)=shift;

	$$self{LEX};
}


#################
# Private stuff #
#################


sub _CheckPar <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3250	3399	
==>TACK}[-1][0]]{ACTIONS}}
}

sub YYLexer {
    my($self)=shift;

	$$self{LEX};
}


#################
# Private stuff #
#################


sub _CheckPar <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2319	2412	
==>implemented in subclasses to return the C code for the run
core function declaration. C<$base> <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2770	2863	
==>implemented in subclasses to return the C code for the run
core function declaration. C<$base> <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2042	2155	
==>type 
{
    my $self = shift;
    
    die ref($self) . " doesn't have core_type()";
}

=item C<core_prefix()>

Im <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41530	41717	
==>State 177
		DEFAULT => -108
	},
	{#State 178
		ACTIONS => {
			"-" => 72,
			"<" => 74,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			'AND' => 83,
			'OR' => 84, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	3489	3601	
==>urn} ]);
}

sub rewrite_goto {
    my ($self, $op, $R, $lastback) = @_;
    return aop('goto', [ $R ]) if $R->{na <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	3631	3764	
==>int <<END;
          <RegExpr attribute="Register" context="#stay" String="[INSP](\\d|[12]\\d|3[01])" />
          <RegExpr attribute= <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	986	1115	
==>on item.

=cut

sub c_pair_item
{
    my $self = shift;
    
    return $self->c_item(shift, 'pairs' => [@_]);
}

=item C<c_item($ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	227	321	
==>cs::Section;

=head1 DESCRIPTION

A documentation I<section> is an HTML page containing links t <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	12146	12335	
==>ontent !~
            m/\((?:
             NAME | TITLE | VERSION | AUTHORS? | DESCRIPTION | SYNOPSIS
             | COPYRIGHT | LICENSE | NOTES? | FUNCTIONS? | METHODS?
             | CAVEA <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19621	19715	
==>'expr', 2,
sub
#line 117 "lib/Regex/Grammar.y"
{ return op('multi_match' => [ 0, -1, TRUE, $_[1 <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	9332	9467	
==>}

# We can inherit from Test::More, so we do it.
*plan = \&Test::More::plan;
*skip = \&Test::More::skip;

# What about File::Slurp?
sub <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205528	205640	
==>.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_CMP) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4 <==
2	/Users/nnunley/parrot/config/inter/libparrot.pm	516	609	
==>rot::Configure::Step ':inter';

$description = 'Determine if parrot should be linked against <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	26690	26859	
==>).

	($extracted, $remainder) = extract_codeblock($text,$delim);


 # Extract the initial substrings of $text that would be extracted by
 # one or more sequential applica <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1755	1903	
==>uct an object of this class for
yourself, but if you want to, call
C<<
Pod::Simple::PullParserTextToken->new( I<text> )
>>

=head1 SEE ALSO

L<Pod::S <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	3970	4067	
==>STATIC_STR(__LINE__))
#define __PARROT_STATIC_STR(line) CONCAT(&static_string_, line)

#if ! DISAB <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9045	9172	
==>INITION
        $self->require_semicolon;
      }
      else {
        my $sub = Jako::Construct::Block::Sub->new($block, $type, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305730	306011	
==>ELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if_null",
                  "FLAGS" = <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	6496	6596	
==>er the same terms as Perl itself.

 Copyright 2000 Christian Lackas, Imperia Software Solutions
 Copy <==
2	/Users/nnunley/parrot/lib/Test/More.pm	12478	12646	
==>rwise have to write

    my $obj = Some::Module->new;
    ok( defined $obj && $obj->isa('Some::Module') );

to safeguard against your test script blowing up.

It works o <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	1964	2117	
==>5.007  and  $in > 255) { # can't be trusted with Unicode
      return $FAR_CHAR;
    } else {
      return chr($in);
    }
  } else {
    return $Name2cha <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799550	799791	
==>[
                              "p",
                              "kc",
                              "nc"
                            ],
                  "BODY" => "#line 462 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed(inter <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15245	15366	
==>@{ $self->{'token_buffer'} },
       $self->{'text_token_class'}->new(@_);
  return;
}

sub _handle_element_end {
  my $se <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719898	720012	
==>ts(interpreter, io, \" \");\n  s = Parrot_sprintf_c(interpreter, \"%.12g\", (double){{\@2}});\n  PIO_putps(interpre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721098	721212	
==>ts(interpreter, io, \" \");\n  s = Parrot_sprintf_c(interpreter, \"%.12g\", (double){{\@2}});\n  PIO_putps(interpre <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	1831	1948	
==>ush @r, $curlabel . $outfunc->(@args);
	    $curlabel = "\t";
	} else {
	    die "Unable to output $op->[0]";
	}
    } <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6716	6827	
==>nt...  WRONG-O!
	#     Don't go looking for lhs expression, please.
	#if ($syms[NEXT] eq "=" and exists $functio <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	593	697	
==>d!" unless defined $left;
  confess "Op is not defined!" unless defined $op;
  confess "Right is not defi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	605	709	
==>d!" unless defined $left;
  confess "Op is not defined!" unless defined $op;
  confess "Right is not defi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012977	1013273	
==>}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "err",
                  "FLAGS <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	45849	46090	
==>w_line ), "\n";
    $i--; # So the next line we scrutinize is the line before the one
          #  that we just went and formatted
  }

  $p->[0] = 'VerbatimFormatted';

  # Collapse adjacent text nodes, just for kicks.
  for( my $i = 2; $i > <==
2	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	917	1034	
==>quest{smoke} = $compress->($smoke) || $smoke;
  debug "ok.\n";
}

{
  debug "Sending data to smokeserver \"$smokeserv\ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1663	1771	
==>S} = concat " = pop s\n"
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$register_num++;
	}

	# Do code fo <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	17173	17310	
==>ara[2] as =item *\\n\\n$1\n";
    splice @$para, 2; # so it ends up just being ['=item', { attrhash } ]
    return $para->[1]{'~type'} = ' <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1486	1607	
==>lf->dest;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1366	1487	
==>lf->dest;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	641	811	
==>>join($path_to_parrot,$self->{parrot}), 
                 File::Spec->join($path_to_language, 'm4.pbc'),
                 $test_prog_args,
                 $lang_fn ) );
} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999734	1000205	
==>i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1117,
                  "ARGS" => [
                              "i",
                              "i",
                              "s",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops/st <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	448885	449126	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790239	790661	
==>DIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 892,
                  "ARGS" => [
                              "s",
                              "p",
                              "kic"
                            ],
                  "BODY" => <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	13253	13361	
==>t = defined $got || defined $dont_expect;

        $self->ok($test, $name);
        $self->_cmp_diag($got, '! <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	10254	10386	
==>("MANIFEST", $line, "$_: case-insensitive collision with " . $files_in_dir_nocase{$dirname}{lc($filename)});
        }
        $files <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	4339	4615	
==>y @names;
    PMC: foreach my $pmc_file (split(/\s+/, $pmc_list)) {
        next if ($pmc_file =~ /^const/);
        my $name;
        open(PMC, "src/pmc/$pmc_file") or die "open src/pmc/$pmc_file: $!";
        my $const;
        while (<PMC>) {
            if (/^pmclass (\w+) <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	653	761	
==>ndalone parser make the included
# text under the same copyright as the Parse::Yapp module itself.
#
# Thi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	634	739	
==>ndalone parser make the included
# text under the same copyright as the Parse::Yapp module itself.
#
# Thi <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5865	6000	
==>ACTIONS})) {

				defined($$token)
            or	do {
				($$token,$$value)=&$lex($self);
#DBG>				$debug & 0x01
#DBG>			and	prin <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5586	5715	
==>ACTIONS})) {

				defined($$token)
            or	do {
				($$token,$$value)=&$lex($self);
#DBG>				$debug & 0x01
#DBG>			and	prin <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	10708	10822	
==>turns Bool`

*NOTE:* This function currently uses `require()` since Pugs does not yet have
a proper `use()` builtin <==
2	/Users/nnunley/parrot/tools/dev/symlink.pl	1915	2413	
==>[0..$i]);
		    if (!-d $dstdir && !$dstdir{$dstdir}++) {
			unless (mkdir($dstdir, 0755)) {
			    warn "$self: mkdir $dstdir failed: $!\n";
			}
		    }
		}
	    }
	    my $readlink;
	    if (-e $dstfile) {
		if (-l $dstfile) {
		    unless(defined($readlink = readlink($dstfile))) {
			warn "$self: readlink $dstfile failed: $!\n";
		    }
		} else {
		    warn "$self: $dstfile exists but is not a symlink\n";
		}
	    }
	    if (!defined $readlink || $readlink ne $srcfile) {
		print "$dstfile\ <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	2797	2950	
==>_nci_I(interpreter, &st, return_data);",
       I => "set_nci_I(interpreter, &st, return_data);",
       l => "set_nci_I(interpreter, &st, return_data);", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684643	684745	
==>s/pmc.ops\"\n      {{\@1}}->vtable->setprop(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n      {{+=4}};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685538	685640	
==>s/pmc.ops\"\n      {{\@1}}->vtable->setprop(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n      {{+=4}};\n" <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4502	4624	
==>) {
        delete $self->{name};
        delete $self->{args};
        return $self->op('nop', [], %$self);
    } elsif (@ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5639	5761	
==>) {
        delete $self->{name};
        delete $self->{args};
        return $self->op('nop', [], %$self);
    } elsif (@ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	2242	2409	
==>) 
        {
            $self->process_text_token($token);
        }
    }
    
    return 1;
}

=item C<process_start_token($token)>

Process a start token.

=cut

su <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	1970	2119	
==>oke($CGI);
  unless($CGI->param("smoke") =~ /^<!DOCTYPE html/) {
    print "The submitted smoke does not look like a smoke!";
    exit;
  }
}

sub unc <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	53486	53617	
==>elds to return. If this
argument is omitted (or C<undef>), split continues as long as possible.

If the third argument is I<N>, then <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1613	1726	
==>on involves undefined type name!")
    unless defined $type_name;

  #
  # Lookup the identifier:
  #

  my $sym = <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16329	16478	
==>p($idf);
        if ( defined $defn ) {
            $result = $defn;
        }
        else {
            $defn = $parser->YYData->{symbtab}->Loo <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	363	461	
==>lass Methods

=over

=cut

package Parrot::Docs::Section::Info;

use strict;
use warnings;

use bas <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10937	11045	
==>~ s/([^\x00-\xFF])/join '', map sprintf('%%%02X',$_), unpack 'C*', $1/eg;
        $it =~ s/([^\._abcdefghijkl <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4288	4394	
==>~ s/([^\x00-\xFF])/join '', map sprintf('%%%02X',$_), unpack 'C*', $1/eg;
      $it =~ s/([^\._abcdefghijkl <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3367	3487	
==>mcs) = each %$group_files) {
        my @pmcfiles = map { "$_.pmc" } @$pmcs;
        if (needs_build("$group.c", @pmcfile <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3471	3591	
==>mcs) = each %$group_files) {
        my @pmcfiles = map { "$_.pmc" } @$pmcs;
        if (needs_build("$group.c", @pmcfile <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	17980	18093	
==>an.");
    }

    lock($self->{Curr_Test});
    $self->{Curr_Test}++;

    $self->{Test_Results}[$self->{Curr_Test <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	18845	18958	
==>an.");
    }

    lock($self->{Curr_Test});
    $self->{Curr_Test}++;

    $self->{Test_Results}[$self->{Curr_Test <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62160	62347	
==>rammar)--;

				if ($grammar =~ m/$OPTIONAL/gco)
				{
					_parse("an zero-or-one subrule match", $aftererror,$line,"$code$argcode($1)");
					$item = new Parse::RecDescent::Repetition($n <==
2	/Users/nnunley/parrot/config/gen/icu.pm	173	270	
==>RIPTION

Configures ICU and add appropriate targets to the Makefile.

=cut

package gen::icu;

use <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009828	1009918	
==>Y" => "#line 659 \"src/ops/string.ops\"\n  {{\@1}} = string_compose(interpreter, {{\@2}});\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010593	1010683	
==>Y" => "#line 659 \"src/ops/string.ops\"\n  {{\@1}} = string_compose(interpreter, {{\@2}});\ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1387	1534	
==>ons) = @_;
    my $cgen;

    $options{state} ||= global_state();
    $options{module} ||= "Regex::CodeGen::IMCC";

    if ($options{module} ne 'Reg <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	5708	5818	
==>lude "parrot/parrot.h"
#include "parrot/oplib.h"

$sym_export extern op_lib_t *$init_func(long init);

END_C
my <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	36296	36422	
==>.


=head1 THREADS

In perl 5.8.0 and later, Test::Builder is thread-safe.  The test
number is shared amongst all threads.  Thi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687951	688187	
==>" => 772,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 576 \"src/ops/pmc.ops\"\n   {{\@1}}->vtable->delprop(interpret <==
2	/Users/nnunley/parrot/tools/util/pirtidy.pl	404	513	
==>$file;
    my $outfile = "$file.$extension";
    open my $ofh, '>', $outfile;

    my $formatter = new Parrot: <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	28316	28482	
==>self->can($method)) {
            return $self->$method($op, @{ $op->{args} }, $lastback)
              unless $self->{DEBUG};
            return $self->wrap($op, $sel <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	4124	4228	
==>t to
hash passwords.

=item *

educational purposes

=back

=head1 SYNOPSIS

 # Functional style
 use Dig <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38332	38467	
==>ULT => -49
	},
	{#State 151
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"... <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4762	5079	
==>ser->YYData->{INPUT}
            or $parser->YYData->{INPUT} = readline $parser->YYData->{fh}
            or last;

        for ( $parser->YYData->{INPUT} ) {

            s/^(\n)//
                and $parser->YYData->{lineno}++,
                $str .= $1,
                last;

            s/^\]$level\] <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	495	592	
==>n::sourceline:\n";
	$_=$_[0];
	s/^(.{1,50})(\S+)\s+(.*)/\t$1$2\n\t$3/;
	print;
	exit 1;
};

getopt <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	541	695	
==>ht) = @_;

  my $self = bless {
    BLOCK     => $block,

    PREFIX    => $prefix,
    KIND      => 'until',
    LEFT      => $left,
    OP        => $op, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1166	1289	
==>ext);
    $text =~  # A not-totally-brilliant wrapping algorithm:
      s/(
         [^\n]{55}         # Snare some characte <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1110	1233	
==>ext);
    $text =~  # A not-totally-brilliant wrapping algorithm:
      s/(
         [^\n]{55}         # Snare some characte <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2394	2501	
==>lue($what);
    return ("print $what;");
}

sub output_test {
    my ($self, $test, $val1, $val2, $dest) = @ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2711	2817	
==>lue($what);
    return ("print $what");
}

sub output_test {
    my ($self, $test, $val1, $val2, $dest) = @ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5755	5975	
==>x_ptmp>");
}

sub output_setstart {
    my ($self, $group, $value) = @_;
    $value = value($value);
    return qq!set <rx_match>["$group";0], $value # open group $group!;
}

sub output_setend {
    my ($self, $group, $va <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1016603	1016908	
==>rrot_intval_time();\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "time",
                  "FLAGS" => "",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	1494	1600	
==>ling slash.
    $parent_path = File::Spec->canonpath($parent_path);
    
    # If we are root then the abov <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185520	185984	
==>AGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 221,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic"
                            ],
                  "BODY" <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	5349	5522	
==>_$name = $convert(a_$name)")
            if $convert;
        
        # default value, if necessary
        if (defined $arg->{default}) {
            my $type    = $arg->{t <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	3062	3157	
==>the rewriting rules for the various
	# forms of goto recognized by Parrot/OpsFile.pm and Parrot/ <==
2	/Users/nnunley/parrot/config/auto/headers.pm	949	1112	
==>=> $Config{$_});
    }

    # some headers may not be probed-for by perl 5, or might not be
    # properly reflected in %Config (i_fcntl seems to be wrong on my mac <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	251637	252132	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "not",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 293,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 708 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	250238	250715	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "not",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 291,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "B <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982535	982919	
==>s",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1102,
                  "A <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796000	796173	
==>"kc",
                              "ic"
                            ],
                  "BODY" => "#line 457 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(int <==
2	/Users/nnunley/parrot/config/inter/charset.pm	255	353	
==>ude.

=cut

package inter::charset;

use strict;
use vars qw($description @args);

use base qw(Parr <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2309	2439	
==>DO TODO TODO TODO
			print CODE<<SHARING;
	# Sharing $stype $var with main  (array=$array)
	P0= P10[0]
	P1= P0["$stype"]
	P0= P1["$ <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	11168	11429	
==>0,1?
    $I1 = op1
    if $I1 goto true
    .return(1)
true:
    .return(0)
.end

.sub unicode:"monadic:\u233d" :multi(APLVector) # reverse
    .param pmc op1

    .local pmc result,iter
    result = new 'APLVector'
    iter = new .Iterator, op1

loop:
    unles <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28002	28104	
==>rans\n";
		}

		# Finally, call post_op and append code it generates.
		my $post_op = $srm->post_op($ru <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	817631	817786	
==>(interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUM <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	551	662	
==>ST', REDO => 'THEN', LAST => 'ELSE' },
  'sub'      => { PREFIX => "_S", NEXT => 'TEST', REDO => 'THEN', LAST => <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	572	683	
==>ST', REDO => 'THEN', LAST => 'ELSE' },
  'sub'      => { PREFIX => "_S", NEXT => 'TEST', REDO => 'THEN', LAST => <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2504	2625	
==>t;

	${$$self{ERRST}}=0;
    undef;
}

sub YYNberr {
	my($self)=shift;

	${$$self{NBERR}};
}

sub YYRecovering <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2401	2510	
==>t;

	${$$self{ERRST}}=0;
    undef;
}

sub YYNberr {
	my($self)=shift;

	${$$self{NBERR}};
}

sub YYRecovering <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009483	1009847	
==>IRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1126,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 659 \"s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13508	13673	
==>->pop_block;

      #
      # 'while' blocks:
      #
      # When we are ending the 'while' block, we might be beginning the 'continue'
      # block, so we check fo <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	19131	19313	
==>unc;
        no strict 'refs';

        *{$package.'::'.$func} = sub {
            my ( $language, @remaining ) = @_;

            my $meth = $language_test_map{$func};
            if <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	697	786	
==>s UNIVERSAL::isa($type, qw(Jako::Construct::Type));
  confess "Identifier (" . ref($ident) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	686	774	
==>s UNIVERSAL::isa($type, qw(Jako::Construct::Type));
  confess "Identifier (". ref($ident) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686404	686498	
==>BODY" => "#line 563 \"src/ops/pmc.ops\"\n   {{\@1}} = {{\@3}}->vtable->getprop(interpreter, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687294	687388	
==>BODY" => "#line 563 \"src/ops/pmc.ops\"\n   {{\@1}} = {{\@3}}->vtable->getprop(interpreter, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187379	187911	
==>AGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 223,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 292 \"src/ops/cmp.ops\"\n  if (string_compare(interprete <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	7686	7788	
==>ectory.

=cut

sub directory_with_name
{
    my $self = shift;
    my $path = $self->path_for_directory <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	187	309	
==>1 DESCRIPTION

Generates the various F<Makefile>s and other files needed to build Parrot.

=cut

package gen::makefiles;

u <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029743	1029839	
==>next = {{^+2}};\n  if ({{\@1}} < 0.0) {\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030585	1030681	
==>next = {{^+2}};\n  if ({{\@1}} < 0.0) {\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733664	733780	
==>ine 134 \"src/ops/set.ops\"\n  {{\@1}} = string_to_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734428	734544	
==>ine 134 \"src/ops/set.ops\"\n  {{\@1}} = string_to_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	7293	7402	
==>e shortest match of this subtree?
    if (($t->minlen() || 0) > $guarantee) {
        my $newtree = $self->add <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572941	573029	
==>MC *name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573851	573939	
==>MC *name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpret <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26720	26857	
==>sert typeinfo code (sets up dtypes).
		$pir .= "### typeinfo\n";
		$pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	5797	5935	
==>turn;
			}
			last if $#nesting < 0;
		}
		elsif ($qdel && $$textref =~ m/\G([$qdel])/gc)
		{
			$$textref =~ m/\G[^\\$1]*(?:\\.[^\\$1]*)*( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420207	420571	
==>:base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 483,
                  "A <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	3280	3475	
==>sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'call', Attributes => { name => $self->name } });
  $_->sax($handler) foreach $self->args;
  $handler->end_elem <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	1987	2226	
==>rom C<new()> to create the parent path if necessary.
Subclasses should reimplement this method to complete the task.

=cut

sub create_path
{
    my $self = shift;
    
    return 1 unless $self->parent_path;
    
    unless ( -e $self->par <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3850	3981	
==>ist{$prm}
		or	croak("Invalid value for parameter '$prm'");
        $prm=unpack('@2A*',$prm);
		$$outhash{$prm}=$value;
	}
	for <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3654	3780	
==>ist{$prm}
		or	croak("Invalid value for parameter '$prm'");
        $prm=unpack('@2A*',$prm);
		$$outhash{$prm}=$value;
	}
	for <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6741	6866	
==>ump $pmc.pmc")
          or die "pmc2c dump failed ($?)\n";
    }
}

sub generate_c {
    my ($pmc) = @_;

    if (needs_build <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6952	7077	
==>ump $pmc.pmc")
          or die "pmc2c dump failed ($?)\n";
    }
}

sub generate_c {
    my ($pmc) = @_;

    if (needs_build <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189250	189710	
==>AGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 225,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic"
                            ],
                  "B <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093993	1094424	
==>ME" => "morph",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1213,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 209 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2763	2863	
==>ds.

=head1 SEE ALSO

L<Pod::Simple::DumpAsXML>

L<Pod::Simple>

=head1 COPYRIGHT AND DISCLAIMERS

Co <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	8874	9007	
==>TRUE',
        'until'    => 'UNTIL',
        'while'    => 'WHILE',
    );

    $parser->YYData->{keyword} = \%keywords;
}

1 <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1895	1993	
==>f->SUPER::new($path);
}

=back

=head2 Instance Methods

=over 4

=item C<create_path()>

This is c <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	872	970	
==>f->SUPER::new($path);
}

=back

=head2 Instance Methods

=over 4

=item C<create_path()>

This is c <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1703	1901	
==>$_[1], "\n";
  return;
}

# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

sub _perly_escape {
  foreach my $x (@_) {
    $x =~ s/([^\x00-\xFF])/sprintf'\x{%X}',ord($1)/ <==
2	/Users/nnunley/parrot/Configure.pl	1842	2000	
==>libraries.

=item C<--link=(linker)>

Specify which linker to use.

=item C<--linkflags=(flags)>

Use the given linker flags

=item C<--ld=(linker)>

Specify w <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	4214	4389	
==>C that behaves similarly to the base int type
    float    : PMC that behaves similarly to the base number type
    scalar   : (only used by the sample src/dynpmc/foo.pmc)

Thi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2534	2663	
==>ne]\n";

      if( ($line = $source_line) =~ s/^\xEF\xBB\xBF//s ) {
        DEBUG and print "UTF-8 BOM seen.  Faking a '=encode ut <==
2	/Users/nnunley/parrot/config/auto/memalign.pm	640	781	
==>t('miniparrot')) {
        $conf->data->set(memalign => '');
        $self->set_result('skipped');
        return $self;
    }

    if (define <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559015	559204	
==>",
                              "sc"
                            ],
                  "BODY" => "#line 131 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	22144	22292	
==>ushint', [ 1 ]),
                   aop('goto', [ $loop ]),
          $back => $self->dbprint("backtracking into *\n"),
                   aop('popin <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	708	891	
==>$FAR_CHAR) unless defined $FAR_CHAR_NUMBER;

$NOT_ASCII = 'A' ne chr(65) unless defined $NOT_ASCII;

#--------------------------------------------------------------------------
sub e2c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106309	1106403	
==>(interpreter, NULL, E_ValueError,\n\t\t\"type number out of range\");\n    {{\@1}} = interprete <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107285	1107379	
==>(interpreter, NULL, E_ValueError,\n\t\t\"type number out of range\");\n    {{\@1}} = interprete <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61939	62162	
==>_ERRORS_on(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62583	62806	
==>_ERRORS_on(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3589	3710	
==>2c library creation failed ($?)\n";
        }
    }
} 
elsif ($mode eq 'compile') {
    my ($group_files, $group_libs, $pm <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3693	3814	
==>2c library creation failed ($?)\n";
        }
    }
} 
elsif ($mode eq 'compile') {
    my ($group_files, $group_libs, $pm <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	11734	11850	
==>ment type is C<'$'>, the value of the element (after
assignment) is returned. If the element type is C<'*$'>, a refer <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	3613	3747	
==>->{result}->{symbol} = find_lex \"$op->{arg1}->{symbol}\"\n";
    }

    sub visitStoreLexOp {
        my $self = shift;
        m <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	11043	11192	
==>anscode::->all_encodings;

    # Note unsupported, and complain
    DEBUG and print " Encoding [$e] is unsupported.",
      "\nSupporteds: @supported\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	32087	32307	
==>$i]; # recurse
        next;
      }
      
      
      # By here, $treelet->[$i] is definitely an L node
      DEBUG > 1 and print "Ogling L node $treelet->[$i]\n";
        
      # bitch if it's empty
      if(  @{$tre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436496	436584	
==>ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437511	437599	
==>ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{ <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	1417	1573	
==>ing="UTF-8"?>
 <!DOCTYPE language SYSTEM "language.dtd">
 <!-- Created automatically by kate_syntax.pl  $date -->

<language name="IMCC" version="0.2" kateve <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	12019	12162	
==>rn $self;
}

sub _init_fh_source {
  my($self, $source) = @_;

  #DEBUG > 1 and print "Declaring $source as :raw for starters\n";
  #$self->_app <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170877	171300	
==>DIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 205,
                  "ARGS" => [
                              "p",
                              "nc",
                              "ic"
                            ],
                  "BODY" = <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	3034	3178	
==>t code $exit_code."
                if $exit_code;
            $self->{builder}->diag($diag) if $diag;
        }

        # The generated fi <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2645	2770	
==>t code $exit_code." if $exit_code;
            $self->{builder}->diag( $diag ) if $diag;
        }

        # The generated fi <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	27208	27448	
==>ing test number', 
                    type      => 'unknown', 
                    name      => undef 
                });
            }
        }
        # If backward, wipe history.  Its their funeral.
        elsif( $num < @$test_results <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	7336	7547	
==>'     , 9001,
 'rang'     , 9002,
 'loz'      , 9674,
 'spades'   , 9824,
 'clubs'    , 9827,
 'hearts'   , 9829,
 'diams'    , 9830,
 'OElig'    , 338,
 'oelig'    , 339,
 'Scaron'   , 352,
 'scaron'   , 353,
 ' <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2389	2489	
==>ption, @todo)>

Runs the target string against the Perl 6 pattern, passing the test
if the output pro <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3823	3923	
==>ption, @todo)>

Runs the target string against the Perl 6 pattern, passing the test
if the output pro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543906	544194	
==>E" => 628,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 1056 \"src/ops/math.ops\"\n INTVAL gcd = 0;\n INTVAL p = 0;\n INTVAL a = {{\@2 <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10941	11075	
==>ack) {
    $Latin1Char_to_fallback{chr $k} = $v;
    #print chr($k), ' => ', $v, "\n";
  }
}

#---------------------------------------- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	212700	213135	
==>S" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 250,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 423 \"s <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1054	1236	
==>},
};
my $tests = {
    is   => 'is_eq',
    like => 'like',
    isnt => 'isnt_eq',
};


## create a map of test names and info
my $test_map = {};
for my $t ( keys %{$tests} ) {
    f <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	5061	5194	
==>pen SOURCE, ">$source"
    or die "ops2c.pl: Cannot open source file '$source' for writing: $!!\n";


#
# Print the preamble for the H <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9656	9785	
==>ting.\n";
				return(undef);
			};

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Dicard invalid token ".&$ShowCurToken.". <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9223	9347	
==>ting.\n";
				return(undef);
			};

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Dicard invalid token ".&$ShowCurToken.". <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	5436	5537	
==>e current PMC object of type C<PMC *>.

=item C<INTERP>

Converted to the interpreter object.

=item C <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	19477	19587	
==>e',
	'!=' => 'eq',
	'>' => 'le',
	'>=' => 'lt',
	'<' => 'ge',
	'<=' => 'gt',
	'is' => 'ne_addr',
	'is not' => ' <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2453	2583	
==>first defined variable.
##
sub choose {
    for (@_) {
        return $_ if defined $_;
    }
    return;
}

##
## %tests = extract <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	248	455	
==>xporter);
@EXPORT_OK = qw(generate);

use Data::Dumper;
use Scheme::Builtins;

sub _gensym {
  return sprintf "G%04d",shift->{gensym}++;
}

sub _add_inst {
  my $self = shift;
  push @{$self->{instruction}},[ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095189	1095408	
==>rot_Exec_OS_Command(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095884	1096103	
==>rot_Exec_OS_Command(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	24399	24537	
==>my ( $defn,   $opcodes ) = @{$expr};
    if ( scalar( @{$opcodes} ) and $opcodes->[-1]->isa('CallOp') ) {
        $defn->{pragma} = 'firs <==
2	/Users/nnunley/parrot/config/auto/inline.pm	1196	1391	
==>) " if $verbose;
            $self->set_result('yes');
        } else {
            print " no " if $verbose;
            $self->set_result('no');
            $test   = '';
        }
    }

    $c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048242	1048343	
==>_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null global.\");\n\n    next = { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049166	1049267	
==>_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null global.\");\n\n    next = { <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	2521	2690	
==>les = ( glob( File::Spec->catfile( $dir, '*.t' ) ),
                      glob( File::Spec->catfile( $dir, '*/*.t' ) )
                    );
        print join( "\n", @f <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	9392	9518	
==>gs}->[3];
        my $max = $t->maxlen();
        if (!defined($max) || $max < 0) { $guarantee = 0; }
        else { $guarantee <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	23671	23938	
==>ust nix this node (and its descendants)
        --$i;  # back-update the counter
      } elsif($is eq '1') {
        splice(@$treelet, $i, 1 # replace this node with its children!
          => splice @{ $treelet->[$i] },2
              # (not catching its first two (n <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	2498	2650	
==>yword { 
	return 1 if (grep /^\Q$_[0]\E$/i, @keywords);
	return 0;
}
sub precedence {
	my ($op, $next)=@_;
	#print STDERR "Precedence with '$op' and '$ne <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3695	3832	
==>block' });
    $handler->start_element({ Name => 'block', Attributes => { kind => 'then' } });
  }

  if ($name) {
    $handler->start_ele <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	308802	309164	
==>n    }\n\n    {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "debug_load",
                  "FLAGS" => ":base_debug",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => " <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	1471	1730	
==>Py_tuple',

    iter  => 'Py_iter',
    xrange => 'Py_xrange',

    object => 'Py_object',
    type => 'Py_type',
);

my %nci_methods = (
    'append' => 'append',
    'fromkeys' => 'fromkeys',
    'locase' => 'locase',
    'next' => 'next',
    'sort' => 'sor <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	701	884	
==>d->new;

use Data::Dumper;
$Data::Dumper::Useqq  = 1;
$Data::Dumper::Terse  = 1;
$Data::Dumper::Indent = 0;

my $ops = new Parrot::OpsFile (split(' ', $PConfig{ops}));


#
# dump_const <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088679	1088933	
==>RGS" => [
                              "p",
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 186 \"src/ops/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(inte <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36525	36721	
==>v, 
			"typeinfo for rule $rule->{'name'}");
		$pir .= "\n" if $pir !~ /\n$/;
		$pir .= "### end typeinfo\n";

		# Now call pre_call and append code that it generates.
		my $pre_call = $srm->pre_ca <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26827	26970	
==>v, 
			"typeinfo for rule $rule->{'name'}");
		$pir .= "\n" if $pir !~ /\n$/;
		$pir .= "### end typeinfo\n";

		# Now call pre_op and append co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122146	122422	
==>}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123058	123334	
==>}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	222	398	
==>$
################################################################################

=head1 TITLE

tools/dev/install_files.pl - Copy files to their correct locations

=head1 SYNO <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	2057	2171	
==>interpreter);\nPObj_external_SET(final_destination)",
#      B => "Buffer *final_destination = new_buffer_header(in <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7085	7214	
==>lf->{'line_count'}}, $2];
         # Note that in "=head1 foo", the WS is lost.
         # Example: ['=head1', {'start_line' => 12 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	8725	8822	
==>::Ops::Tree::nop;
sub minlen { 0 }
sub maxlen { 0 }

package Regex::Ops::Tree::check;
sub minlen { <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	20032	20208	
==>1]] and $i\:[$treelet->[$i]]\n";
        $treelet->[$i-1] .= ( splice(@$treelet, $i, 1) )[0];
        DEBUG > 4 and print "    Now: ", $i-1, ":[$treelet->[$i-1]]\n";
        --$ <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1789	1909	
==>->output_header($PIR);

    for my $tree (@$trees) {
        $driver->output_rule($PIR, '_regex', $tree, $ctx, DEBUG => 0 <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	15575	15700	
==>edef $ret_type (*func_t)($proto);
    func_t pointer;
    $call_state
    $return_data
    $temp_decl
    $other_decl
    Parr <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	596	699	
==>im paragraph), and
# to call the proper callbacks on the treelets.
#
# Every node in a treelet is a ['na <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10645	10953	
==>core,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 14,
                  "ARGS" => [
                              "i"
                            ],
                  "BO <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	1950	2060	
==>0]\E$/i, @builtins );
	return 0;
}
sub isuserfunc {
#	print "Isuserfunc $_[0] and $funcname..";
	return 0 unles <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835338	835595	
==>> "savec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 946,
                  "ARGS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	815180	815440	
==>CNULL;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "F <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	10523	10624	
==>ub output_rule_def {
    my ($self, $name, $L_trymatch, $L_backup, $num_groups, $startup) = @_;

    m <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	10115	10215	
==>ub output_rule_def {
    my ($self, $name, $L_trymatch, $L_backup, $num_groups, $startup) = @_;
    m <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	517	667	
==>shift;
        return bless [], $class;
    }

    sub STORE {
        my ($self, $index, $value) = @_;
        Class::Struct::_subclass_error();
    } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188319	188795	
==>base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 224,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 299 \"src/o <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4	144	
==>erl -w

use subs qw(fetchvar);
use vars qw(@builtins @keywords);
use strict;

my $retcount=200;
my $currentexpr;

@builtins=qw( 	abs      	as <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	5679	5907	
==>/Makefile',
        commentType                   => '#',
        replace_slashes               => 1
    );
    genfile(
        'config/gen/makefiles/parrot_compiler.in' => 'languages/parrot_compiler/Makefile',
        commentTy <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822316	822413	
==>ng\");\n  if (entry->entry_type != STACK_ENTRY_INT) {\n    internal_exception(ERROR_BAD_STACK_TYPE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823384	823481	
==>ng\");\n  if (entry->entry_type != STACK_ENTRY_INT) {\n    internal_exception(ERROR_BAD_STACK_TYPE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5035	5305	
==>=> 0,
                  "NAME" => "reserved",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 7,
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031570	1031810	
==>_types[{{\@2}} - enum_first_type].size;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032439	1032679	
==>_types[{{\@2}} - enum_first_type].size;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
2	/Users/nnunley/parrot/config/auto/gc.pm	515	617	
==>/res_lea.c>.

=item C<malloc-trace>

Use the malloc in F<src/res_lea.c> with tracing enabled.

=back

= <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	447	616	
==>msg
        if ( exists $parser->YYData->{verbose_error}
        and $parser->YYData->{verbose_error} );
}

sub Warning {
    my $parser = shift;
    my ($msg) = @ <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	9219	9370	
==>y ($dir) = @_;
        my $FH    = $self->{fh};
        if ( exists $dir->{pragma} ) {
            print {$FH}
                "  .param $dir->{resu <==
2	/Users/nnunley/parrot/config/inter/progs.pm	841	1059	
==>acc);

    # Find a working version of a program:
    # Try each alternative, until one works.
    # If none work, then set to null command.
    # XXX need config support for a null command.
    my $null = 'echo';
    m <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	497	597	
==>ook iterations, 

=item * the estimated number of ops performed,

=item * the elapsed time, and 

=it <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	501	599	
==>ook iterations,

=item * the estimated number of ops performed,

=item * the elapsed time, and

=it <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	5788	6079	
==>ion => undef
        );

        return $self;
    }

    $conf->data->set(
        ccwarn              => "$warns $ccwarn",
        gccversion          => $gccversion,
        HAS_aligned_funcptr => 1
    );

    $conf->data->set(HAS_aligned_funcptr => 0)
        if $^O eq 'hpux';

    retu <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1589	1688	
==>} = ${STEMP0}

# Emit pop code.
${INS} = concat ${STACK$register_num}
${INS} = concat " = pop s\n"
P <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3299	3398	
==>} = ${STEMP0}

# Emit pop code.
${INS} = concat ${STACK$register_num}
${INS} = concat " = pop s\n"
P <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	830	931	
==>match.  Note that patterns should be specified as strings
and without leading/trailing pattern delimit <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2928	3029	
==>match.  Note that patterns should be specified as strings
and without leading/trailing pattern delimit <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	36091	36237	
==>exact'   => \&_op_inexact_exact,

###
### Numerical input and output
###

  'number->string' => \&_op_number_string,
  'string->number' => \&_op_st <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660498	660814	
==>exists",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 738,
                  "ARGS" <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	369	553	
==>ate {
    return $GLOBAL_STATE ||= Regex::State->new();
}

sub expr_to_tree {
    my ($expr, $ctx, %options) = @_;

    $options{state} ||= global_state();

    my $parser = Regex::Pars <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10377	10475	
==>print STDERR "**Shift \$error token and go to state ".
#DBG>						 $$states[$$stack[-1][0]]{ACTION <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9909	10006	
==>print STDERR "**Shift \$error token and go to state ".
#DBG>						 $$states[$$stack[-1][0]]{ACTION <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	7417	7556	
==>utes => {
        type => $arg_type_name,
        name => $arg_name
      }
    });
    $handler->end_element({ Name => 'arg' });
  }

  $ha <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32219	32349	
==>cted '=item $expected_value'"
            );
            push @$para, $para->[1]{'~orig_content'};
              # restore the bull <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	31697	32002	
==>" => 40,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 571 \"src/ops/core.ops\"\n    /* Get context of callee from return continuation. */\n    PMC * const cc = CONTEXT(interpreter->ctx)->current_cont;\n    PMC *sig = NULL <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	8277	8429	
==>);
    print $vtd $Dumper->Dump();
    close $vtd;
}

=head2 my ($balanced, $remaining) = extract_balanced($code);

Remove a balanced {} construct from t <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	911	1019	
==>=~s/\$$/_string/;
		push @{$code{$seg}->{code}}, "\t# $var was declared COMMON\n"; 
		if (! $array) {
			$mai <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	17922	18077	
==>_;
	my $code =
'
	while (!$_matched'
	. (defined $self->{"uncommit"} ? '' : ' && !$commit')
	. ')
	{
		' .
		($self->changesskip()
			? 'local $skip = defin <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1819	1968	
==>r my $tree (@$trees) {
        $driver->output_rule($PIR, '_regex', $tree, $ctx, DEBUG => 0);
    }

    close $PIR;
}

sub generate_pbc {
    my ($pi <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	1114	1222	
==>qw(int float string);
my $parrot_pmcsh_file = "include/parrot/core_pmcs.h";
my $date = localtime(time);


ope <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1746	1838	
==>t @{ $parser->YYData->{scopef} }, $parser->YYData->{scope};
    $parser->YYData->{scope} = [ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19561	19666	
==>sn't terribly long.

(This method tolerates "AUTHORS" instead of "AUTHOR" too.)

=item $description_name = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2445	2546	
==>et { $_[0]->emit_par( 0) }
sub end_item_number { $_[0]->emit_par( 0) }
sub end_item_text   { $_[0]->em <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2013	2114	
==>et { $_[0]->emit_par( 0) }
sub end_item_number { $_[0]->emit_par( 0) }
sub end_item_text   { $_[0]->em <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76657	76769	
==>($)
{
	if (defined $::RD_TRACE
	    && $::RD_TRACE =~ /\d+/
	    && $::RD_TRACE>1
	    && $::RD_TRACE+10<length($ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	19685	19859	
==>$i\n";
        splice(@$treelet, $i, 1); # just nix this node (and its descendants)
        # no need to back-update the counter just yet
        redo;

      } elsif($merge a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	306427	306696	
==>if (!{{\@1}}) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2233	2364	
==>0]->emit_par(-4) }
sub end_head2       { $_[0]->emit_par(-3) }
sub end_head3       { $_[0]->emit_par(-2) }
sub end_head4       { $_[ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1801	1932	
==>0]->emit_par(-4) }
sub end_head2       { $_[0]->emit_par(-3) }
sub end_head3       { $_[0]->emit_par(-2) }
sub end_head4       { $_[ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820954	821384	
==>JUMP" => 0,
                  "NAME" => "depth",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 930,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 98 \"src/ops/stack.ops\"\n  {{\@1} <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	3372	3513	
==>$file'!\n" unless -e $file;
    my $temp_ops = Parrot::OpsFile->new( [ $file ], $nolines_flag );
    die "$0: Could not read ops file '$file'! <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6881	7020	
==>@args) {
            print {$FH} ", " unless ($first);
            print {$FH} "$_->{symbol}";
            if ( exists $_->{pragma} and $ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15706	15816	
==>e();  # Eat the =
		$whole.=" = ";

		$opts{lhs}=0;
		@expr=get_expression(%opts);	# Get expression tokens
		$w <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	13027	13236	
==>it_func = $restart_op;
        }
        elsif ($op->jump) {
            $jit_func = $cpcf_op;
        } else {
            $jit_func = $normal_op;
        }
    }
    else
    {
        $jit_func = "$core_opfu <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	12482	12625	
==>_to_cstring(interpreter, GET_NCI_S($reg_num));";
        push @{$extra_postamble_ref}, "string_cstring_free(t_$temp_num);";
        return "t_$t <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	119	225	
==>25T03:57:27.771662Z petdance  $
use strict;

my ($svnid) = '$Id: /parrot/tools/build/parrot_config_c.pl 203 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495100	495274	
==>",
                              "i"
                            ],
                  "BODY" => "#line 590 \"src/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@2}}, {{\@3}});\n  { <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6842	6987	
==>r recovery.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push(@$stack,[ $act, $$value ]);

					$$token ne ''	#Don't ea <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6525	6662	
==>r recovery.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push(@$stack,[ $act, $$value ]);

					$$token ne ''	#Don't ea <==
2	/Users/nnunley/parrot/config/auto/gc.pm	1026	1166	
==>urces.c
        $gc = 'gc';
    } elsif ($gc eq 'libc') {

        # tests mallinfo after allocation of 128 bytes
        if ($conf->data->ge <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	5990	6280	
==>n($1);
                $_ = '';
            }
            elsif (m/^\s*VERSION\s*=\s*PARROT_VERSION\s*;\s*$/)
            {
                if (exists $self->{VERSION})
                {
                    #die "VERSION MULTIPLY DEFINED!";
                }

                $self->version( <==
2	/Users/nnunley/parrot/config/auto/msvc.pm	1363	1514	
==>C_VER} % 100;
    unless (defined $major && defined $minor) {
        print " (no) " if $verbose;
        $self->set_result('no');
        $conf->data-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	172	337	
==>to C Code Generation

=head1 DESCRIPTION

C<Parrot::OpTrans::C> inherits from C<Parrot::OpTrans> to provide a
function-based (slow or fast core) run loop.

=head2 Ins <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	6913	7061	
==>a Security, Inc. Created 1991. All
rights reserved.

License to copy and use this software is granted provided that it
is identified as the "RSA Data <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	12835	12943	
==>d $dont_expect;

        $self->ok($test, $name);
        $self->_cmp_diag($got, 'ne', $dont_expect) unless $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1399	1522	
==>b generate_regular_pir {
    my ($filename, $pattern) = @_;
    my $PIR;
    open($PIR, '>', $filename) or die "create $file <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	339148	339378	
==>],
                  "TYPE" => "inline",
                  "CODE" => 397,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 113 \"src/ops/io.ops\"\n  { <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	7338	7441	
==>token(@to_unget);
}

=item C<process_data_start_token($token)>

Processes a data start token.

=cut

sub <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4864	4978	
==>roup, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);
    my @ungrouped_pmcs = grep { ! exists $pmc_group->{$_ <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4968	5082	
==>roup, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);
    my @ungrouped_pmcs = grep { ! exists $pmc_group->{$_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107202	107529	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108056	108383	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":b <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	11157	11297	
==>$test, $name);
        $self->_is_diag($got, 'eq', $expect) unless $test;
        return $test;
    }

    return $self->cmp_ok($got, 'eq', $ <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	1543	1828	
==>onstant_num++;
    }
}


#
# compile_byte_code()
#

my @args = ();

sub compile_byte_code {
    my ($pf, $file_name) = @_;
    my ($byte_code);
    my $pc;
    my $new_pc = 0;
    my $offset=0;
    my $op_code;
    my $op;
    my %leaders;
    my @pc_list;
    my @blocks;
    my %opcod <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566685	567017	
==>\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "does",
                  "FL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567579	567911	
==>\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "does",
                  "FL <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2043	2138	
==>::Construct::Expression::Value::Identifier')) {
      my $arg_sym = $self->block->find_symbol($a <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1743	1838	
==>::Construct::Expression::Value::Identifier')) {
      my $arg_sym = $self->block->find_symbol($a <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	4152	4293	
==>ble C++ comment detected.");
        }

        if (/XXX/) {
            info($file, $line, "To-Do (XXX) noticed.");
        }
    }
}


sub c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650640	650747	
==>< interpreter->n_vtable_max)\n        {{\@1}} = 1;\n    else if ({{\@2}} >= enum_first_type && {{\@2}} < enu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651562	651669	
==>< interpreter->n_vtable_max)\n        {{\@1}} = 1;\n    else if ({{\@2}} >= enum_first_type && {{\@2}} < enu <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	5345	5497	
==>ME: the native nm cannot tell apart const data sections\n";
}

if ($Version) {
    show_version();
    exit(0);
}

if ($Help) {
    show_help();
    exit <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4460	4580	
==>\n";';
    }
    return @ops;
}

sub output_classmatch {
    my ($self, $incexc, $failLabel) = @_;

    my $passLabel = $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4797	4916	
==>\n"';
    }
    return @ops;
}

sub output_classmatch {
    my ($self, $incexc, $failLabel) = @_;

    my $passLabel = $ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2737	2837	
==>de"
GOSUB Sub1
PRINT "ERR this line in main routine should be skipped"
Label1:
   PRINT "5 back in mo <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16704	16804	
==>de"
GOSUB Sub1
PRINT "ERR this line in main routine should be skipped"
Label1:
   PRINT "5 back in mo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79363	79481	
==>else {\n      /* At this point we have the symbol's address. We just need to build\n         a PMC with it so we can ge <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80884	81002	
==>else {\n      /* At this point we have the symbol's address. We just need to build\n         a PMC with it so we can ge <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	44371	44496	
==>,$i,1; # remove this line
      $i--; # don't consider next line
      next;
    }

    if( length($formatting) >= length($p-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573056	573295	
==>@1}} = pmc_new_init(interpreter, enum_class_ParrotClass, name);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573966	574205	
==>@1}} = pmc_new_init(interpreter, enum_class_ParrotClass, name);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	673	849	
==>C_CONST    => 'pc',
    STRING_CONST => 'sc',
    STR_CONST    => 'sc',
    INT_REG      => 'i',
    NUM_REG      => 'n',
    PMC_REG      => 'p',
    STRING_REG   => 's',
    S <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Transcode.pm	108	210	
==>Simple::DEBUG ) { *DEBUG = \&Pod::Simple::DEBUG; }
  else { *DEBUG = sub () {0}; }
}

foreach my $class <==
2	/Users/nnunley/parrot/lib/Test/More.pm	36911	37208	
==>g.

L<Test::Unit> is XUnit style testing.

L<Test::Inline> shows the idea of embedded testing.

L<Bundle::Test> installs a whole bunch of useful test modules.


=head1 AUTHORS

Michael G Schwern E<lt>schwern@pobox.comE<gt> with much inspiration
from Joshua Pritikin's Test module and lots of help f <==
2	/Users/nnunley/parrot/config/init/hints/vms.pm	114	224	
==>5Z coke  $

package init::hints::vms;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    $conf->data- <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3868	3958	
==>e type.
${DEST0} = "$"
${STEMP0} = ${LOADTYPE}["reg_type_short"]
${DEST0} = concat ${STEMP0 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	7378	7540	
==>k and precedence($stack[-1]->[0]) >= precedence($item->[0])) {
			push @stream, pop @stack;
		}
		push @stack, $item;
		
	}
	push @stream, reverse @stack;	
	#print <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	19173	19324	
==>up traversal.\n",
   $merge ? (" Merge mode on\n") : (),
   $nixx  ? (" Nix-X mode on\n") : (),
  ;    
  

  my($i, $treelet);
  while($treelet = shift <==
2	/Users/nnunley/parrot/languages/converter.pl	1741	1873	
==>]);
		  my $rhs = ::strip_quotes($item[3]);
		  "/[$lhs-$rhs]/"
		}
		| terminal
#		{[@item]}
		{ $item[1] }


terminal	: "'" /[^']*/ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	514	601	
==>xt::Wrap::wrap = 'overflow';
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	348	435	
==>xt::Wrap::wrap = 'overflow';
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/config/auto/gc.pm	2310	2567	
==>c = 'gc';
        $conf->data->set(
            TEMP_gc_c => <<"EOF",
\$(SRC_DIR)/resources\$(O):	\$(GENERAL_H_FILES) \$(SRC_DIR)/resources.c
EOF
            TEMP_gc_o => "\$(SRC_DIR)/resources\$(O)",
            gc_flag   => '',
        );
    }
    print(" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808374	808776	
==>"o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 912,
                  "ARGS" => [
                              "n",
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 502 \"src/ops/set <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	28910	29026	
==>$seg}->{code}},<<PUSHARR;
	.param PerlHash array_$englishname
	find_global \$P1, "BASICARR"
	\$P1["${_}$seg"]= array_ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2726	2834	
==>ess' => 'Perl test harness',
	'INSTALL' => 'Installation documentation',
	'LICENSE' => 'Licence file',
	'MAIN <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	2006	2312	
==>!&\$%]/) { # SIGIL
			append;
			if ($cur =~ /[#!&\$%]/) {
				fetch;
				last;
			}
			fetch;
		}
		emit("BARE");
		goto MAIN;
	}
	if ($cur eq '&') {		# Hex or Octal constant
		append;
		fetch;
		die "Bad constant" unless ($cur =~ /[oOhH]/);
		if ($cur =~ /[oO]/) {
			append;
			fetch;
			while($cur =~ /[ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6394	6501	
==>rt until no elements are exchanged.
   Exchange=FALSE
   ' Compare the array elements by pairs. When two are <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16047	16154	
==>rt until no elements are exchanged.
   Exchange=FALSE
   ' Compare the array elements by pairs. When two are <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	42899	43089	
==>literal
        next;
      }
        
      # bitch if content is weird
      unless(@{$treelet->[$i]} == 3 and !ref($content = $treelet->[$i][2])) {
        $self->whine( $start_line, "An E <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2511	2635	
==>_code")
      if $exit_code and not $pass;
    }

    unless($ENV{POSTMORTEM}) {
      unlink $out_f;
    }

    return $pass <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1876	2025	
==>in$PConfig{slash}$file");
    if ($ret) {
	print STDERR "TEST FAILED: $file ($ret)\n";
	return;
	}
    print "OK: $file\n";
}

sub run_test {
    my ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	972369	973024	
==>ss",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1093,
                  "ARGS" => [
                              "i",
                              "i",
                              "s",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976885	977383	
==>ss",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1097,
                  "ARGS" => [
                              "i",
                              "i",
                              "s" <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	25988	26141	
==>l_next = new_label($parser);
        push @opcodes, @{ $cond->[1] };
        push @opcodes, new BranchUnlessOp( $parser,
            'arg1'   => $cond- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	5921	6110	
==>line, 'infix-arith', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^( ~= )(.*)$}x) {
      push @tokens, Jako::Token->new(
        $file, $line, 'concat-assign', undef, <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	1023	1180	
==>ndef;
}

sub _succeed
{
	$@ = undef;
	my ($wantarray,$textref) = splice @_, 0, 2;
	my ($extrapos, $extralen) = @_>18 ? splice(@_, -2, 2) : (0,0);
	my ($startl <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	4850	5060	
==>,
 'ouml'     , 246,
 'divide'   , 247,
 'oslash'   , 248,
 'ugrave'   , 249,
 'uacute'   , 250,
 'ucirc'    , 251,
 'uuml'     , 252,
 'yacute'   , 253,
 'thorn'    , 254,
 'yuml'     , 255,

 'fnof'     , 402, <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10058	10143	
==>b,$c,$_[4],11,0xeaa127fa,/* 42 */
HH,$c,$d,$a,$b,$_[7],16,0xd4ef3085,/* 43 */
HH,$b,$c <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	3468	3640	
==>(\w+)\s*(?!=)/) {
                    $last_val++;
                    $values{$1} = $last_val;
                    local $_ = "$prefix$1\t$last_val";
                    ev <==
2	/Users/nnunley/parrot/config/gen/platform.pm	787	928	
==>=~ /^msys/;
    $platform = "win32" if $platform =~ /^mingw/;
    $platform =~ s/^ms//;

    if ((split('-', $Config{archname}))[0] eq 'ia64') <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	772	932	
==>_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    output_isnt       => 'isnt_eq',
                        );

foreach my $func ( ke <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	510	634	
==>_map = (
    output_is   => 'is_eq',
    output_like => 'like',
    output_isnt => 'isnt_eq',
);

foreach my $func ( ke <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16967	17084	
==>e C code for loading a library.

=cut

sub lib_load_code() {
    my $self = shift;

    my $classname = $self->{class} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	28760	28990	
==>JUMP" => "PARROT_JUMP_ADDRESS",
                  "NAME" => "get_params",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "T <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10109	10242	
==>sub do_pod_link 
{
    my $self = shift;
    my $link = shift;
    my $to = $link->attr('to');
    my $section = $link->attr('section' <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	3720	3868	
==>> ['stacks'], 
                'sources' => ['stack_common']
            ),
            $self->c_header_item('', 'enums'),
        ),
        $self-> <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1691	1976	
==>p} $op->{arg1}->{symbol}\n";
    }

    sub visitBinaryOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        if ( $op->{result} == $op->{arg1} ) {
            print {$FH}
                "  $op->{op} $op->{result}->{symbol}, $op->{arg2}- <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	8251	8452	
==>sic-offset: 4
        * indent-tabs-mode: nil
        * End:
        *
        * vim: expandtab shiftwidth=4:
        */
    );
    shift @end_boilerplate;

    my $ok = 1;
    my $idx = -@end_boilerpla <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511003	511240	
==>rc/ops/math.ops\"\n  {{\@1}} = - {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511741	511978	
==>rc/ops/math.ops\"\n  {{\@1}} = - {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	6634	6793	
==>unget[-1]->tagname eq $tagname;
        }
        my $name = $self->linearize_tokens(@to_unget);
        
        if(defined $name) { # ludicrously long, so nev <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948862	948967	
==>rrot_string_trans_charset(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949662	949767	
==>rrot_string_trans_charset(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	78182	78306	
==>nal <error> always causes the
		       production containing it to immediately fail.
		       \u$_[0] that follows an <error> <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	6945	7131	
==>ods) {
	my $meth = $entry->{meth};
	if (does_write($meth, $self->{all}{$meth})) {
            # create methods if they write
            $const->{has_method}{$meth} = $i++;
	    push @{ $ <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	4403	4502	
==>nonical list, but merely a snapshot of what's in use.

=item C<dynpmc>

The class is a dynamic class <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9349	9489	
==>RR "**Entering Error recovery.\n";
#DBG>			++$dbgerror;
#DBG>		};

            ++$$nberror;

        };

			$$errstatus == 3	#The nex <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8929	9061	
==>RR "**Entering Error recovery.\n";
#DBG>			++$dbgerror;
#DBG>		};

            ++$$nberror;

        };

			$$errstatus == 3	#The nex <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	43333	43454	
==>i]   =~ m{^#:([ \^\/\%]*)\n?$}s) {
      DEBUG > 5 and print "  It's a formatty line.  ",
       "Peeking at previous line <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358273	358523	
==>rinterr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 419,
                  "ARGS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	424952	425309	
==>RGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 488,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#lin <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	2457	2656	
==>: 0,
                body            => ''
            };

        # Have we got a blank line that we should skip over?
        } elsif ($line eq "" && (!$cur_method || $cur_method->{'unimplemented'}) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210180	210297	
==>,
                  "BODY" => "#line 408 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211160	211277	
==>,
                  "BODY" => "#line 408 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23676	23806	
==>last if     (<value> <op> <value>);
    #   last unless (<value> <op> <value>);
    #
    #   last <label>;
    #   last <label> if <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	844	1049	
==>sub BOF { return $BOF }

my $EOF = Jako::Token->new_eof(undef, undef);
sub EOF { return $EOF }


#
# ACCESSORS:
#

sub file
{
  my $self = shift;
  return defined $self->{FILE} ? $self->{FILE} : '<NO FILE>' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035403	1035506	
==>_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@2}};\n    PMC * const lex <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036567	1036670	
==>_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@2}};\n    PMC * const lex <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	35874	35970	
==>:Builder
will throw a warning and exit with 255.  If the test died, even after
having successfull <==
2	/Users/nnunley/parrot/lib/Test/More.pm	33945	34041	
==>:Builder
will throw a warning and exit with 255.  If the test died, even after
having successfull <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	42149	42302	
==>$i][1]{$attrname}) and ref $thing) {
            unshift @stack, $thing;
            DEBUG > 2 and print "  Enqueuing ",
             pretty( $treelet->[$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598862	599042	
==>",
                              "sc"
                            ],
                  "BODY" => "#line 351 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, { <==
2	/Users/nnunley/parrot/languages/regex/test.pl	1483	1612	
==>list_opt = 1;
my $language;
my $testfile;
my $pattern;

# Hm. What versions of perl provide Getopt::Long as a builtin?
foreach (@A <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22608	22719	
==>NE_$label"]);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$label");
  $self <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23109	23220	
==>NE_$label"]);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$label");
  $self <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	7617	7734	
==>semicolon     { return shift->skip('semicolon');     }
sub skip_type          { return shift->skip('type');          } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103962	1104048	
==>ad_class(interpreter, class);\n\t\ttype = pmc_type(interpreter, class);\n\t}\n\tif (typ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105177	1105263	
==>ad_class(interpreter, class);\n\t\ttype = pmc_type(interpreter, class);\n\t}\n\tif (typ <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	5024	5134	
==>HTML::Template->new(scalarref => \$t, die_on_bad_params => 0);

  #print "HTTP/1.0 200 OK\n";
  print $CGI->hea <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106291	1106388	
==>\n\treal_exception(interpreter, NULL, E_ValueError,\n\t\t\"type number out of range\");\n    {{\@1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107267	1107364	
==>\n\treal_exception(interpreter, NULL, E_ValueError,\n\t\t\"type number out of range\");\n    {{\@1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645864	645967	
==>2}}]->whoami;\n    else\n\t\t{{\@1}} = Parrot_get_datatype_name(interpreter, {{\@2}});\n    {{+=3}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646761	646864	
==>2}}]->whoami;\n    else\n\t\t{{\@1}} = Parrot_get_datatype_name(interpreter, {{\@2}});\n    {{+=3}};\n", <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17670	17793	
==>}
      unless(defined $target) {
        $self->whine(
          $para->[1]{'start_line'},
          "=for without a target <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411973	412328	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "poll",
                  "FLAGS" => ":base_network <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029904	1030124	
==>interpreter, {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030746	1030966	
==>interpreter, {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407451	407785	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "connect",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408349	408683	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "connect",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957525	957627	
==>ing_number(interpreter, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\"encoding <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958430	958532	
==>ing_number(interpreter, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\"encoding <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	7830	7939	
==>{'source_arrayref'} = $_[0];
    DEBUG and print "$self 's source is array ref $_[0]\n";
    return;
  } elsif <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	1414	1559	
==>net.html', '', 'languages/dotnet'),
        $self->new_section('HQ9plus', 'hq9plus.html', '', 'languages/HQ9plus'),
        $self->new_section('Ja <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2908	3003	
==>set($offset)>

=item C<goto_offset($offset)>

=item C<goto_address($address)>

CPrederef is funk <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3621	3732	
==>, and parent block is not a module!")
        unless $self->block->kind eq 'module';

      my %module_props = $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6285	6396	
==>, and parent block is not a module!")
        unless $self->block->kind eq 'module';

      my %module_props = $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	2161	2351	
==>3;

    my @equivs; # (labels)
    my @output; # (ops)

    # Merge adjacent (equivalent) labels, renaming them
    for my $stmt (@$ops) {
	if (ref $stmt && $stmt->{name} eq 'LABEL') {
	    p <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	18859	19013	
==>rn $_[2]; }
	],
	[#Rule 6
		 'regex', 1,
sub
#line 99 "lib/Regex/Grammar.y"
{ return op('scan' => [ $_[1] ]); }
	],
	[#Rule 7
		 'regex1', 1,
sub
#line 103 <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	1432	1546	
==>ss to key values.

Accepts a list and returns a list.

=cut

sub get
{
    my $self = shift;

    my $c = $self->{c <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	11146	11269	
==>pile(COMPILER, FILTER)

Compile the block's content using COMPILER. If FILTER is provided, only
those Constructs in the cont <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2276	2433	
==>= dirname( $self->{parrot} );
        Parrot::Test::write_code_to_file( $code, $lang_fn );

        # STDERR is written into same output file
        my $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34163	34312	
==>nt " Item is of type ", $para->[0], " under $over_type\n";
          
          if($item_type eq 'bullet') {
            # as expected!

            i <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	16258	16381	
==>inter)(void);
    $return_data
    $other_decl
    $call_state
    $extra_preamble

    pointer =  ($ret_type (*)(void))D2FP <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2490	2703	
==>and $str .= "\t",      # horizontal tab
                last;
            s/^\\v//
                and $str .= "\x0b",    # vertical tab
                last;
            s/^\\([0-9]{1,3})//
                a <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4004	4217	
==>and $str .= "\t",      # horizontal tab
                last;
            s/^\\v//
                and $str .= "\x0b",    # vertical tab
                last;
            s/^\\([0-9]{1,3})//
                a <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	2938	3113	
==>ST_FLAG = 0x01,
    VTABLE_HAS_CONST_TOO = 0x02,
    VTABLE_PMC_NEEDS_EXT = 0x04,
    VTABLE_DATA_IS_PMC   = 0x08,
    VTABLE_PMC_IS_SINGLETON = 0x10,
    VTABLE_IS_SHARED_FLAG <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20346	20454	
==><},
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514179	514485	
==>@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515059	515365	
==>@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	306192	306432	
==>ction",
                  "CODE" => 356,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 1012 \"src/ops/cmp.ops\"\n  if (!{ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12025	12155	
==>own the line, with
        # Parrot/PackFile/ConstTable.pm.html being turned into
        # Parrot/PackFile%2FConstTable.pm.html an <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789814	790053	
==>->get_string_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790724	790963	
==>->get_string_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829964	830261	
==>try);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAG <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2673	2957	
==>is_shared     => 1,

            sym_export => '__declspec(dllexport)',
            sym_import => '__declspec(dllimport)'
        );

        # If we are building shared, need to include dynamic libparrot.lib, otherwise
        # the static libparrot.lib.
        if ($conf->data->get( <==
2	/Users/nnunley/parrot/config/init/hints/cygwin.pm	1198	1330	
==>is_shared    => 1,
        sym_export => '__declspec(dllexport)',
        sym_import => '__declspec(dllimport)'
    );

    # inet_at <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1765	1868	
==>lled by C<goto_offset()>.

=cut

sub expr_pop
{
    my ($self) = @_;

    return "pop_dest(interpreter)" <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7457	7581	
==>$self->_add_inst('', 'typeof', [$type,$list]);
  $self->_add_inst('', 'eq', [$type,'.Undef',"FINISH_$label"]);

  $temp = $se <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054369	1054465	
==>ied to get from null namespace.\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to get nu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055496	1055592	
==>ied to get from null namespace.\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to get nu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037707	1037821	
==>ar.ops\"\n    Parrot_store_global(interpreter, NULL, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038488	1038602	
==>ar.ops\"\n    Parrot_store_global(interpreter, NULL, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9930	10064	
==>=cut

sub cc_run
{
    my $exe   = $conf->data->get('exe');
    my $slash = $conf->data->get('slash');
    my $verbose = $conf->options <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25386	25484	
==>rent_cont;\n  PObj_get_FLAGS(interpreter->current_cont) |= SUB_FLAG_TAILCALL;\n  dest = (opcode_t * <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52347	52542	
==>E" => 67,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 815 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_ <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	13470	13585	
==>_NCI_S($reg_num);";
        return "t_$temp_num";
    };
}

sub print_function {
    my ($sig, $return, $params, $ar <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	5905	6067	
==>le to redirect STDERR to
    CD        directory to run the command in

For example:

    # equivalent to "cd some_dir && make test"
    run_command("make test", C <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16624	16756	
==>elf, $node) = @_;
  my $label = $self->_gensym ();
  my $return = $self->_save_1 ('P');

  $self->_add_inst ('', 'new',[$return,'.Und <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	29809	29967	
==>p('goto' => [ $next ]),
                 $back => aop('call' => [ $name, 0, $uid ]),
                          aop('goto' => [ $handle ]),
                 $ne <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	652	826	
==>lt)
                      2 Real time using POSIX::times()
   -n -nobench        skip benchmarks matching regexes (multiple)
   -time              show times instead of percen <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	15218	15337	
==>= $I2 goto good
    %% DOMAIN_ERROR %%
  good:
    # Create a result vector
    .local pmc result 
    result = new 'APL <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	3728	3848	
==>{text}})
			 + 1;

	$parser->{offsetlinenum} += $parser->{lastlinenum} - $apparently;
	return 1;
}

package Parse::RecDes <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12756	12882	
==>ive to the 
    # distribution, then we append the HTML suffix and get the
    # docs file. Once we have that all we need is th <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	2157	2268	
==>he superclass is determined, it is processed and its method names
are extracted and saved.

Next, each method bo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661991	662245	
==>->exists_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662907	663161	
==>->exists_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	1990	2112	
==>$/.c/;
    
    # gcov must be run from the directory that the compiler was invoked from.
    # Currently, this is the parr <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3184	3291	
==>roject info',
);

=item C<type_for_suffix($suffix)>

This is a class method that converts a file suffix to a <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	14785	14898	
==>--

sub whine {
  #my($self,$line,$complaint) = @_;
  my $self = shift(@_);
  ++$self->{'errors_seen'};
  if($self <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	1067	1180	
==>def>

=item C<-D>

List the defined symbols.

=item C<--file>

=item C<-f>

List the file(name) symbols.

=back

I <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	270959	271162	
==>i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 871 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	755	909	
==>\"\/\=\?\+\|\[\]\{\}\_a-zA-Z0-9_\`\~\!\#\%\^\&\*\(\)])/
      sprintf( (ord($1) < 256) ? "\\x%02X" : "\\x{%X}", ord($1))
    /eg;
  }
  return join ', ', @ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2118	2220	
==>eer->prefix) {
    $self->prefix($self->peer->prefix);
  }

  if ($self->prefix) {
    $handler->start_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1995	2097	
==>eer->prefix) {
    $self->prefix($self->peer->prefix);
  }

  if ($self->prefix) {
    $handler->start_ <==
2	/Users/nnunley/parrot/examples/benchmarks/oo5.pl	176	302	
==>f shift : shift;
    return bless [ 10, 20 ], $self;
}

sub i {
    my $self = shift;
    if (@_) { $self->[0] = shift } else { <==
2	/Users/nnunley/parrot/examples/benchmarks/oo6.pl	168	294	
==>f shift : shift;
    return bless [ 10, 20 ], $self;
}

sub i {
    my $self = shift;
    if (@_) { $self->[0] = shift } else { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553983	554076	
==>t;\n  interpreter->current_cont = {{\@3}};\n  interpreter->current_method = meth;\n  method_pm <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555380	555473	
==>t;\n  interpreter->current_cont = {{\@3}};\n  interpreter->current_method = meth;\n  method_pm <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121774	122022	
==>,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 248 \"src/ops/bit.ops\"\n  /*\n   * lvalue casts are evil, but this one isn't evil <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	5105	5271	
==>b',
            share_ext  => '.dll',
            load_ext   => '.dll',
            cc         => ${cc},
            ccflags    => '-O2 -w-8066 -DWIN32 -DNO_STRICT -DN <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	11079	11416	
==>' => -4,
			"(" => -4,
			'IF' => -4,
			'error' => 1,
			'FUNCTION' => -4,
			'DO' => -4,
			'LOCAL' => -4,
			'WHILE' => -4
		},
		GOTOS => {
			'chunk' => 2,
			'program' => 3
		}
	},
	{#State 1
		DEFAULT => -2
	},
	{#State 2
		ACTIONS => {
			'NAME' => 4,
			'REPEAT' => 5,
			'FOR' => 6,
			"(" => 8,
			'IF' = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	268794	269113	
==>0,
                  "NAME" => "isgt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 31 <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	325	531	
==>erhaps someone can do a better job of delegation here.

Note: this current verion is based on Pirate.  Previous versions were
based on ast2past and versions before that on pie-thon.

=cut

sub new {
    retu <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5047	5151	
==>f->gen_goto($self->expr_offset(@_));
}

=item C<goto_pop()>

Transforms the C<goto POP($address)> macro i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670602	670692	
==>Y" => "#line 415 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->push_string(interpreter, {{\@1}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671375	671465	
==>Y" => "#line 415 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->push_string(interpreter, {{\@1}} <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	46652	46749	
==>s,
the two separate pieces of the here document are successfully extracted and
concatenated.

In a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151571	152034	
==>" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 184,
                  "ARGS" => [
                              "p",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 112 \"src/ops/cmp.ops\"\n  if (0 == <==
2	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	1502	1625	
==>() is called in a test file.

=cut

sub output_is 
{
  my $self = shift;
  my ( $code, $expected, $desc ) = @_;
  
  my $tes <==
2	/Users/nnunley/parrot/config/gen/cpu.pm	292	411	
==>u;

use strict;
use warnings;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot: <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2973	3081	
==>ng Mark found; but Pod::Simple v$Pod::Simple::VERSION doesn't implement UTF16 yet."
        );
        splice <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3371	3479	
==>ng Mark found; but Pod::Simple v$Pod::Simple::VERSION doesn't implement UTF16 yet."
        );
        splice <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	330792	331087	
==>" => "#line 174 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (FLOATVAL)(Parrot_Float8)({{\@2}}->vtable->get_number(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20888	21006	
==>[0]'
	P1["type"]= '$_->[1]'
	push P0, P1
ADDT
		}
		print CODE<<TYPEE;
	P1= P10[0]
	P2= P1["types"]
	P2["$typename"]= P <==
2	/Users/nnunley/parrot/config/auto/headers.pm	1034	1257	
==>not be
    # properly reflected in %Config (i_fcntl seems to be wrong on my machine,
    # for instance).
    #
    # FreeBSD wants this order:
    #include <sys/types.h>
    #include <sys/socket.h>
    #include <netinet/in. <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	1784	2026	
==>}
	else
	{
		my $match = substr($$textref,$_[0],$_[1]);
		substr($match,$extrapos-$_[0]-$startlen,$extralen,"") if $extralen;
		my $extra = $extralen
			? substr($$textref, $extrapos, $extralen)."\n" : "";
		eval {substr($$textref,$_[4],$_[1]+ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17996	18100	
==>_append {
}

sub _op_reverse {
}

sub _op_list_ref {
}

sub _op_memq {
}

sub _op_memv {
}

sub _op_membe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	524828	525306	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "acos",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	43468	43692	
==>$$p[$i-1]: \n";
      
      if( $p->[$i-1] =~ m{^#:[ \^\/\%]*\n?$}s ) {
        DEBUG > 5 and print "  Previous line is formatty!  Skipping this one.\n";
        next;
      } else {
        DEBUG > 5 and print "  Previous l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117592	117915	
==>,
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 146,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 226 \"src/ops/b <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39323	39482	
==>1, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes1, new ConstDir( $parser,
        'result' => $fct,
        'arg1'   => $fct <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33973	34094	
==>ethod->{type};
        $ret_def = "$type ret_val;";
        $func_ret = $self->gen_ret($method->{type});
        $ret = "r <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38935	39056	
==>ethod->{type};
        $ret_def = "$type ret_val;";
        $func_ret = $self->gen_ret($method->{type});
        $ret = "r <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	6154	6360	
==>rce->relative_path($file->path);
        }
    }
    elsif ( $source->relative_path_is_file($rel_path) )
    {
        push @rel_paths, $rel_path;
    }
    else
    {
        warn "Failed to process $rel_pa <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	1778	1910	
==>s false.

=item C<pasm_output_is($code, $expected, $description)> or C<output_is($code, $expected, $description)>

Runs the Parrot As <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	478	601	
==>h;
use File::Spec;
use Parrot::IO::File;

=item C<directory_class()>

Returns the class used in the various directory creati <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44375	44653	
==>\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "popmark",
                  "FLAGS" => "",
                  "A <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45016	45294	
==>\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "popmark",
                  "FLAGS" => "",
                  "A <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756710	756793	
==>271 \"src/ops/set.ops\"\n  {{\@1}}->vtable->assign_string_native(interpreter, {{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757500	757583	
==>271 \"src/ops/set.ops\"\n  {{\@1}}->vtable->assign_string_native(interpreter, {{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	98160	98471	
==>=> "#line 91 \"src/ops/bit.ops\"\n  {{\@1}} = ~ {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17392	17499	
==>t;

      if(grep $_->[1]{'~ignore'}, @$curr_open) {
        DEBUG > 1 and print "Ignoring ignorable =for\n" <==
2	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	1512	1616	
==>= system($command);
exit 1 if (! defined $status);
exit($status >> 8) if $status != 0;

foreach my $outpu <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	2374	2493	
==>c.tmp", "$destdir/$inc");
                #push(@generated, "$destdir/$inc");
                move_if_diff("$inc.tmp", " <==
2	/Users/nnunley/parrot/config/inter/libparrot.pm	1556	1721	
==>ath_blib => ($parrot_is_shared && $conf->data->get('rpath'))
        ? $conf->data->get('rpath')
          .  $conf->data->get('build_dir')
          .  $conf->dat <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	33194	33342	
==>p,
  'eq?'     => \&_op_eqp,
  'equal?'  => \&_op_equalp,

###
### Pairs and Lists
###

  'pair?'    => \&_op_pair_p,
  'cons'     => \&_op_cons,
  ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572557	572920	
==>S" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 654,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 242 \"src/o <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	2651	2817	
==>oc_value, $heredoc_terminator);
    while (<$fh>) {
        chomp;
        $line++;

        # If it's a blank line or a comemnt line, skip it.
        next if !$in_he <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5171	5308	
==>nt {$FH} "  ";
        if ( exists $op->{result} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $firs <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6203	6340	
==>nt {$FH} "  ";
        if ( exists $op->{result} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $firs <==
2	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	591	744	
==>est file.

=cut

sub gen_output 
{
  my $self = shift;
  my ( $code, $test_no ) = @_;
  
  # flatten filenames (don't use directories)
  my $code_f   = Pa <==
2	/Users/nnunley/parrot/lib/Test/More.pm	18450	18669	
==>e barewords, files not.
    $module = qq['$module'] unless _is_module_name($module);

    local($!, $@); # eval sometimes interferes with $!
    eval <<REQUIRE;
package $pack;
require $module;
REQUIRE

    my $ok = $Test <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	3896	3998	
==>c/ops/$file" ], $nolines_flag );
    $ops->{OPS} = $Parrot::OpLib::core::ops;
    $ops->{PREAMBLE} = $P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	267773	268027	
==>l(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	268537	268791	
==>l(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	837	946	
==>b does_write($$) {
    my ($meth, $section) = @_;

    warn "no $meth\n" unless $section;
    return exists $w <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	17960	18077	
==>an!  Gotta have a plan.");
    }

    lock($self->{Curr_Test});
    $self->{Curr_Test}++;

    $self->{Test_Results}[$ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	18825	18942	
==>an!  Gotta have a plan.");
    }

    lock($self->{Curr_Test});
    $self->{Curr_Test}++;

    $self->{Test_Results}[$ <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	22	130	
==>005, The Perl Foundation.
# $Id: /parrot/config/inter/yacc.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=hea <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	4200	4318	
==>class $v (" . __PACKAGE__ . " $VERSION)";
  }
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18091	18230	
==>imary' => 28
		}
	},
	{#State 48
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			". <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749194	749517	
==>et",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 844,
                  "ARGS" => [
                              "p" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	2630	2771	
==>ly to *never* be implemented.
	if ($syms[CURR] =~ /^(  screen | pset | preset | line | circle | draw |
			view | window | pmap | palette | pai <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	639046	639164	
==>interpreter, NULL, NULL_REG_ACCESS,\n            \"No set_args with instantiate\");\n  }\n  sig = CONTEXT(interpreter-> <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19631	19794	
==>t1' => 109,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 57
		ACTIONS => {
			'NAME' => 4,
			'RE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005463	1005905	
==>",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1122,
                  "ARGS" => [
                              "i",
                              "ic",
                              "s",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	27862	28032	
==>}

=item B<details>

    my @tests = $Test->details;

Like summary(), but with a lot more detail.

    $tests[$test_num - 1] = 
            { 'ok'       => is the test con <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419591	419760	
==>c",
                              "ic"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interprete <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420720	420889	
==>c",
                              "ic"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interprete <==
2	/Users/nnunley/parrot/Configure.pl	6571	6690	
==>or INTVAL
   --floatval=(type)    Use the given type for FLOATVAL
   --opcode=(type)      Use the given type for opcodes <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	3720	3816	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
# Pull in some functions that, for some reason, I expect to se <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756751	756975	
==>e->assign_string_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757541	757765	
==>e->assign_string_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1823	1935	
==>>block;
  my $name  = $self->ident ? $self->ident->value : undef;
  my $cond  = $self->cond;
  my $left  = $self- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2428	2540	
==>>block;
  my $name  = $self->ident ? $self->ident->value : undef;
  my $cond  = $self->cond;
  my $left  = $self- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853692	854158	
==>",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 969,
                  "ARGS" => [
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 100 \"src/ops/string.ops\"\n  {{\@1}} = st <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	693	785	
==>R_NUMBER = ord($FAR_CHAR) unless defined $FAR_CHAR_NUMBER;

$NOT_ASCII = 'A' ne chr(65) unles <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	27234	27373	
==>s
# (in this case: any type of quote or a slash)

	$patstring = gen_delimited_pat(q{'"`/});


# Generate a reference to an anonymous sub tha <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	4745	4855	
==>pasm) */
EOM
    for my $entry (@{$vtable}) {
    my $uc_meth = uc $entry->[1];
    $macros .= <<"EOM";
#define <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	5808	5992	
==>sysmman' => 'define',
             'i_sysmode' => undef,
             'i_sysmount' => 'define',
             'i_sysndir' => undef,
             'i_sysparam' => 'define',
             'i <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5318	5450	
==>_ops_addr;
    if (cur_opcode == 0) {
	union {
	    const void * __c_ptr;
	    void * __ptr;
	} __ptr_u;
        return (opcode_t *)c <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	672	898	
==>ser, 'pmc' );
        push @opcodes, new LocalDir( $parser,
            'prolog' => 1,
            'result' => $parser->YYData->{_G},
        );
        push @opcodes, new FindGlobalOp( $parser,
            'prolog' => 1, <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	17129	17263	
==>nter_ref});
    print NCI << "TAIL";


/* This function serves a single purpose. It takes the function
   signature for a C function we <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	38274	38529	
==>vector_ref,
  'vector-set!'   => \&_op_vector_set_bang,
  'vector->list'  => \&_op_vector_list,
  'list->vector'  => \&_op_list_vector,
  'vector-fill!'  => \&_op_vector_fill_bang,

###
### Control features
###

  'procedure?'                      => \&_op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359343	359440	
==>@1}};\n  if (s && string_length(interpreter, s)) {\n    PIO_putps(interpreter, PIO_STDERR(interpre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360091	360188	
==>@1}};\n  if (s && string_length(interpreter, s)) {\n    PIO_putps(interpreter, PIO_STDERR(interpre <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	33084	33232	
==>s) { $cmd = $1; }"

not:

	"if ('./cmd' =~ ms) { $cmd = $1; }"
	

See L<"extract_quotelike"> for a (partial) solution to this problem.


=head2 C<ext <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558056	558150	
==>rent_object = object;\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_method <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559440	559534	
==>rent_object = object;\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_method <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647113	647433	
==>ind_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 723,
                  "ARGS" => [
                              "i <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41348	41498	
==>}.'}=')
			     . '$1; } if defined $1;' : "" ) . '
		  }
		  $text = $savetext;
		  pop @item if $backtrack;

		  # MATCH RIGHTARG
		  ' . $rightarg-> <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1516	1693	
==>lative to the default temporary
directory.

=cut

sub tmp_directory
{
    my $self = shift;
    
    return $self->directory_with_path(File::Spec->catdir(File::Spec->tmpdir, @_)) <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	21027	21121	
==>ame
DIM_$typename:
	#print "Dimensioning $typename\\n"
	pushp
	P2= .PerlHash
TYPEE
		foreach(@t <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	3760	4021	
==>_;
    copy_if_diff($from, $to, $ignorePattern);
    unlink $from;
}

=item C<genfile($source, $target, %options)>

Takes the specified source file, substitutes any sequences matching
C</\$\{\w+\}/> for the given key's value in the configuration system's data,
a <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21668	21799	
==>&& !$::RD_NO_HITEM) ? '$item{'. $self->{hashname} .'}=$_tok;' : '' ) .'
		' . ($self->{"lookahead"} ? '$text = $_savetext;' : '' ) . <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	48857	48969	
==>--------------------
1;
__END__

TODO:
A start_formatting_code and end_formatting_code methods, which in the
base <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	2737	2842	
==>ser) = @_;

    my $symbtab = shift @{ $parser->YYData->{scope} };
    $parser->YYData->{symbtab} = $sy <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	16521	16627	
==>reg' }, "pre_load for typed exception handler");
	$pir .= "### end pre_load (typed eh)\n";
    $pir .= <<'P <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	745	842	
==>is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Left is not Value!" u <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	757	854	
==>is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Left is not Value!" u <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	2816	2947	
==>TRACTION FUNCTIONS

sub extract_delimited (;$$$$)
{
	my $textref = defined $_[0] ? \$_[0] : \$_;
	my $wantarray = wantarray;
	my $de <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	16801	16934	
==>, 0, CASE_${jump}_${incase}_STARTOPS
OPS
	}
	$incase++;
	print CODE<<ENDCASE;
	bsr EVALEXPR
	bsr TRUTH
	ne I1, 1, CASE_${jump}_${incas <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	10454	10563	
==>lex \"$dir->{arg1}->{symbol}\", $dir->{arg1}->{symbol}\n";
    }

    sub visitConstDir {
        my $self <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	3122	3220	
==>ock
{
  my $self = shift;

  $self->INTERNAL_ERROR("Attempt to reference top block with empty block <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9136	9249	
==>rint
next i

' Expect Correct
DIM A(1,1)
RO=1
IF A(RO,5)=0 THEN GOSUB 20: REM GOO
   end
20 print "Correct"
   ret <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	4513	4641	
==>o print_vector
    value = arg
    bsr print_value
    .return (result)

  print_vector:
    .local pmc shape, iter
    .local st <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	6317	6462	
==>|
		($a cmp $b)
	} keys %branches
  ]);
  print $tmpl->output;
}

sub pack_smoke {
  my %smoke = @_;

  my $summary = join("-", map { $smoke{summa <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	550	647	
==>ion );

use Parrot::Distribution;

use Parrot::Docs::Section::Info;
use Parrot::Docs::Section::Doc <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	3012	3153	
==>r $desc?, :$todo, :$depends) returns Bool is export {
    my $test := compare_func($got, $expected);
    Test::proclaim($test, $desc, $todo, $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959263	959353	
==>=> "#line 590 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960065	960155	
==>=> "#line 590 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, <==
2	/Users/nnunley/parrot/config/auto/readline.pm	1921	2052	
==>line) {

        # The Config::Data settings might have changed for the test
        $conf->data->set('libs',      $libs);
        $ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	1967	2132	
==>,            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P7', 'P16[0]'],
  ['',            'bsr', 'apply_H <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7360	7503	
==>less( $next->type eq 'text' ) {
          $self->unget_token($next);
          next;
        }
        DEBUG and print "    raw text ", $next->t <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9605	9748	
==>less( $next->type eq 'text' ) {
          $self->unget_token($next);
          next;
        }
        DEBUG and print "    raw text ", $next->t <==
2	/Users/nnunley/parrot/config/gen/config_h.pm	1627	1742	
==>n";
        }
    }

    print HH "\n#define BUILD_OS_NAME \"$^O\"\n";

    my $define = $conf->options->get('define <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	10798	11000	
==>dio.h
fputs       stdio.h
fread       stdio.h
free        stdlib.h
freopen     stdio.h
frexp       math.h
frexpf      math.h
frexpl      math.h
fscanf      stdio.h
fseek       stdio.h
fsetpos     stdio.h <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1095	1211	
==>_to_parrot();
        my $dir_count      = scalar(File::Spec->splitdir($path_to_parrot));
        my $path_to_languag <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1585	1696	
==>_to_parrot();
        my $dir_count = scalar(File::Spec->splitdir($path_to_parrot));
        my $path_to_languag <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	22724	23080	
==>err "    $name STS: "
i = elements stypes
j = 0
STS_LOOP_$name:
if j == i goto STS_LOOP_END_$name
type_trans = stypes[j]
type = type_trans["type"]
printerr type
printerr " "
inc j
goto STS_LOOP_$name
STS_LOOP_END_$name:
printerr "\\n"
NO_TRACE_$name:
PIR
	
	# Emit code to read arguments for the op and set argument meta-variables.
	# There is something sli <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	17406	17514	
==>de, "default.pmc")
        if not $all{default};

    my $vt = read_dump($include, "vtable.pmc");
    add_def <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	1642	1746	
==>tom, $ctx ] ]);
    } elsif ($atom->isa('P6C::sv_literal') && is_string($atom->type)) {
        $R = $sel <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	14291	14493	
==>iled"><tmpl_var name=failed> failed</span>,
		<span class="tests_todo"><tmpl_var name=todo> todo</span>,<br />
                <span class="tests_skipped"><tmpl_var name=skipped> skipped</span> and
		<sp <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	215	324	
==>rot::Test::Bc::Antlr2;
use Parrot::Test::Bc::Antlr3;
use Parrot::Test::Bc::Posix;

=head1 NAME

Test/Bc.pm - T <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	249	358	
==>and_skip.pl

=head1 DESCRIPTION

Recreates MANIFEST and MANIFEST.SKIP from the svn directories.  So far tested <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6074	6185	
==>aren    { return shift->require('open-paren');    }
sub require_infix_rel     { return shift->require('infix-rel <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	55	171	
==>se qw/HTTP::Server::Simple::CGI/;
#HSS use HTTP::Server::Simple::Static;

use CGI;
use CGI::Carp   qw<fatalsToBrowser <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	8401	8517	
==>$self->file, $self->line, $message;
}


#
# WARNING()
#

sub WARNING
{
  my ($self, $format, @args) = @_;

  my $mess <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3005	3163	
==>ML processor (that is, it has
no ignoreable whitespace). But
Pod::Simple::DumpAsXML's output is much more human-readable, being
(more-or-less) one token per li <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2076	2192	
==>'set', 'P7', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL' <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	444	539	
==>ie "post_translation not implemented for current stack to register mapper\n";
}

# Extra subrout <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	9211	9303	
==>sh @{$code{$seg}->{code}}, <<DEBUG;
	${seg}_debug($sourceline)
DEBUG
}

sub english_func {
	l <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	5584	5713	
==>elf = shift;

    return map {$self->directory_with_path($_)} $self->directory_paths;
}

=item C<file_suffixes($recursive, $ignore <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	8681	8866	
==>ms = shift;

    my @params;

    while ($params =~ m/(\w+\*?) (\w+)/g)
    {
        push @params, $1, $2;
    }

    return @params;
}

=back

=head1 SEE ALSO

=over 4

=item F<tools/b <==
2	/Users/nnunley/parrot/config/init/hints/openbsd.pm	489	583	
==>hread';
	}
	$conf->data->set(libs => $libs);

	if ((split('-', $Config{archname}))[0] eq 'power <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	864	1020	
==>ent { return shift->{IDENT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $block = $self->block;
  my $ident = $self-> <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	4357	4485	
==>export {
    try { code() };
    if ($!) {
        &Test::ok.goto(1, $desc, :$todo);
    }
    else {
        Test::proclaim(unde <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	44188	44495	
==>DEBUG > 1 and print " Replacing E<$content> with $replacer\n";
      }

      splice(@$treelet, $i, 1, $replacer); # no need to back up $i, tho
    }
  }

  return;
}


# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

sub _treat_Ss {
  my($self,$treelet) = @_;
  
  _change_S_to <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	587	699	
==>Pod::Simple::Checker;
use Parrot::Docs::POD2HTML;

my $UNDEFINED = 'Undefined';

# These are the Parrot file type <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	91	192	
==>d  $

package Parrot::Test::Bc;

use strict;
use warnings;

use Data::Dumper;
use File::Basename;

use <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	18132	18299	
==>,
        actual_ok => 1,
        name      => '',
        type      => 'skip',
        reason    => $why,
    });

    my $out = "ok";
    $out   .= " $self->{Curr_Tes <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	29308	29448	
==>>[1]{'start_line'},
          "You forgot a '=back' before '$para_type'"
        );
        unshift @$paras, ['=back', {}, ''], $para;   # cl <==
2	/Users/nnunley/parrot/Configure.pl	14	172	
==>Copyright (C) 2001-2006, The Perl Foundation.
# $Id: /parrot/Configure.pl 19607 2006-05-30T15:23:20.183054Z coke  $

=head1 NAME

Configure.pl - Parrot's Confi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623644	623764	
==>ig) {\n\tif (sig) {\n\t    n = ((arg_pass_f)lru->f.real_function)(interpreter, mic->m.sig,\n\t\t    _reg_base, (void**)cu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060130	1060288	
==>n    next = {{^+3}};\n    {{\@1}} = Parrot_get_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061035	1061193	
==>n    next = {{^+3}};\n    {{\@1}} = Parrot_get_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	7577	7749	
==>r = $options{'STDERR'} || '';

    if ( $out and $err and $out eq $err ) {
        $err = "&STDOUT";
    }

    local *OLDOUT if $out;
    local *OLDERR if $err;

    # Save <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	765	921	
==>nt => 31,
	Complex => 32,
	String => 33,
	Boolean => 34,
	Ref => 35,
	SharedRef => 36,
	Array => 37,
	FixedIntegerArray => 38,
	IntList => 39,
	Iterator => 4 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8159	8271	
==>to 0, print 5
dim y(10)
i=10
tloop:
	y(i)=i
	i=i-1
	print i
	if i then goto tloop
print y(5)


' Column alignment <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	8427	8595	
==>- - - - - - - - - - - - - - - -
    } elsif( $type eq 'text' ) {
      esc($type = $token->text);  # reuse $type, why not
      $type =~ s/([\?\!\"\'\.\,]) /$1\n/g unles <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	4632	4796	
==>meta{include}) {
        $dest =~ s/^include//;
        $dest = File::Spec->catdir($options{includedir}, $dest);
    } elsif ($meta{doc}) {
        $dest = File::Spe <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2313	2544	
==>_shared     => 'libparrot$(SHARE_EXT)',
            ar_flags             => '',
            ar_out               => '-out:',
            slash                => '\\',
            blib_dir             => 'blib\\lib',
            ccfl <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	53756	53866	
==>n scalar and void contexts the value of this argument is 
automatically reset to 1 (under C<-w>, a warning is i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204375	204643	
==>41,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 380 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter, {{\@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1967	2065	
==>$_[0]{'Indent'} }

sub   end_over_bullet  { --$_[0]{'Indent'} }
sub   end_over_number  { --$_[0]{'I <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1535	1633	
==>$_[0]{'Indent'} }

sub   end_over_bullet  { --$_[0]{'Indent'} }
sub   end_over_number  { --$_[0]{'I <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10614	10707	
==>t int ELEMENT_TYPE_BOOLEAN = 0x02
	.const int ELEMENT_TYPE_CHAR = 0x03
	.const int ELEMENT_TYP <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	1502	1634	
==>->set($_ => $results{$_});
    }

    if ($results{ptrsize} != $results{intvalsize}) {
        print <<"END";

Hmm, I see your chosen <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3942	4035	
==>ce, expect 12
function aftwo(y())
	print y(4)
end function
function arrfunc(x())
	u=aftwo(x()) <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15215	15308	
==>ce, expect 12
function aftwo(y())
	print y(4)
end function
function arrfunc(x())
	u=aftwo(x()) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	12305	12454	
==>| METHODS?
             | CAVEATS? | BUGS? | SEE\ ALSO | SWITCHES | ENVIRONMENT
            )\)/sx
            # avoid accepting things like =head1 Th <==
2	/Users/nnunley/parrot/Configure.pl	2155	2317	
==>ch lexer to use.

=item C<--yacc=(parser)>

Specify which parser to use.

=item C<--define=val1[,val2]>

Generate "#define PARROT_DEF_VAL1 1" ... entries in has_he <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	690	800	
==>urn $self;
}

sub init {
    my ($self, @args) = @_;
    $self->{_markers} = {};
    $self->{_temp_int_count} = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222659	222753	
==>mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_CMP) >= 0) {\n    {{+={{\@3}}}};\n  }\n  { <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	16140	16264	
==>ut it on
    # the stack. Emit code to deal with that.
PIRCODE
    my $pop_all = $srm->pop_all();
    $pir .= "### pop_all (t <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	4718	4813	
==>cs_directory->directory_with_name('html');
}

=item C<delete_html_docs()>

Deletes the HTML docu <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	12932	13052	
==>cut

sub _slurp
{
    my $filename = shift;

    open(my $fh, '<', $filename) or die "Can't open $filename: $!";
    my $ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	60048	60144	
==>urns one of the error diagnostics listed
below.
Accessing C<$@-E<gt>{pos}> returns the offset int <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	860	965	
==>ter type"
    unless $type and $type=~/^[INPS]$/;
  my @temp;
  for(0..31) {
    next if $self->{regs}->{$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	1946	2084	
==>pred_offset) : NULL)
#endif

#define OP_AS_OFFS(o) (_reg_base + ((opcode_t*)cur_opcode)[o])

END
}

=item C<suffix()>

The suffix is C<'_pr <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1683	1796	
==>s\n"
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$register_num++;
	}

	# Do code for each push.
	$pir .= "\$ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	3513	3733	
==>$name  = $self->name;
  my $value = $self->value->value;

  if ($self->is_global) {
    $compiler->emit("  .globalconst $type $name = $value");
  }
  else {
    $compiler->emit("  .const $type $name = $value");
  }

  ret <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1241	1394	
==>_goto
{
    my ($self, $where_str) = @_;

    return "return (opcode_t *)$where_str";
}

=item C<expr_address($address)>

Returns the C code for C<ADDRESS <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22234	22353	
==>DONE_$label");
  return $return;
}

sub _op_odd_p {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600264	600497	
==>\n         \"Class '%Ss' doesn't exist\", name);\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601340	601573	
==>\n         \"Class '%Ss' doesn't exist\", name);\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	11539	11670	
==>m";
    };
    /2/ && do {
        push @{$temps_ref}, "PMC* t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$tem <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17783	17904	
==>False "
if i imp j then e$="True  " else e$="False "
print a$;b$;c$;d$;e$
next j,i

' Select-case (all positive)
t=50
sele <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	3429	3562	
==>path) or 
        die "can't opendir $self->{PATH}: $!";
    
    return sort grep {$_ ne '.' and $_ ne '..'} $dh->read();
}

=item C< <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	11008	11147	
==>|| !defined $expect ) {
        # undef only matches undef and nothing else
        my $test = !defined $got && !defined $expect;

        $ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	11426	11565	
==>|| !defined $expect ) {
        # undef only matches undef and nothing else
        my $test = !defined $got && !defined $expect;

        $ <==
2	/Users/nnunley/parrot/languages/regex/test.pl	940	1162	
==>T and OUTPUT
  sections, where an INPUT: section begins with the string 'INPUT:' on
  a line by itself, followed by some data and a newline. (The newline
  is not regarded as part of the data, so add an extra one if you wan <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	11734	11972	
==>code_f;
            if ( $func =~ m/^pir_output/ ) {
                $code_f = per_test('.pir', $test_no);
            }
            elsif ( $func =~ m/^pasm_output_/ ) {
                $code_f = per_test('.pasm', $test_no);
            } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429739	429995	
==>ps(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430626	430882	
==>ps(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752799	753064	
==>t.ops\"\n  {{\@1}}->vtable->assign_pmc(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	11495	11693	
==>n => [ { value => 'if' },
				 _get_arg($clause,0),
				 { children => [ { value => 'begin' },
						 _get_args($clause,1) ] },
				 $transnode ] };
  }

  $self->_generate($transnode);
}

sub _op_ca <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	50762	50947	
==>ame', 1, undef
	],
	[#Rule 40
		 'funcname', 3,
sub
#line 235 "Lua\lua51.yp"
{
            PrepareMethod( $_[0] );
            [
                @{ $_[1] },
                Bui <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2150	2259	
==>me the programmer wanted to shadow the
  # previous definition.
  #

  if (defined $sym and $sym->block eq $bl <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1897	2006	
==>me the programmer wanted to shadow the
  # previous definition.
  #

  if (defined $sym and $sym->block eq $bl <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	17921	18097	
==>r->run method --
so it is advised that all Pod::Simple::PullParser subclasses do so.
See the Synopsis above, or the source for Pod::Simple::RTF.

Authors of formatter subclasses <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	2626	2740	
==>turns a Test::Builder object representing the current state of the
test.

Since you only run one test per program C <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64355	64536	
==>e
					{
						$item = new Parse::RecDescent::Repetition($name,$1,$1,$1,
										   $lookahead,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$pr <==
2	/Users/nnunley/parrot/config/inter/types.pm	537	755	
==>code floatval);

sub runstep
{
    my ($self, $conf) = @_;

    my $intval   = $conf->options->get('intval')   || 'long';
    my $floatval = $conf->options->get('floatval') || 'double';
    my $opcode   = $conf->options <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6046	6147	
==>ing has been
	# propogated there already.
	$pir .= <<'PIR';
if 0x${CURIC} == 0x45 goto POST_BRANCH_swi <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3984	4085	
==>ing has been
	# propogated there already.
	$pir .= <<'PIR';
if 0x${CURIC} == 0x45 goto POST_BRANCH_swi <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	119	233	
==>ernhard  $

=head1 NAME

Parrot::Vtable - Functions for manipulating vtables

=head1 SYNOPSIS

    use Parrot::Vtab <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1452	1555	
==>ub start_head2 {  $_[0]{'Thispara'} = '' }
sub start_head3 {  $_[0]{'Thispara'} = '' }
sub start_head4 { <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	982	1085	
==>ub start_head2 {  $_[0]{'Thispara'} = '' }
sub start_head3 {  $_[0]{'Thispara'} = '' }
sub start_head4 { <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	13376	13527	
==>ct) unless $test;
        return $test;
    }

    return $self->cmp_ok($got, '!=', $dont_expect, $name);
}


=item B<like>

  $Test->like($this, qr/$re <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	14906	15032	
==>2, @{ $expr->[1] };
        my $assign = $var->[2];
        if ( $assign->isa('AssignOp') ) {
            $assign->configure <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	4279	4406	
==>dir->existing_directory_with_name($name);
    }
    
    return $dir->existing_file_with_name($module);
}

=item C<docs_director <==
2	/Users/nnunley/parrot/config/init/hints/darwin.pm	1163	1329	
==>me_memalign',
        has_dynamic_linking     => 1,
        # XXX when built against a dynamic libparrot installable_parrot records
        # the path to the blib vers <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19332	19529	
==>? ->  $matchcount = 0
#               goto next
#        rfail: if $matchcount == 0 goto lastback
#               $matchcount--
#               goto R.back
#         back: if $matchcount >= max goto <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	8729	8844	
==>or die "Can't close    stderr" if $err;

    open  STDOUT, ">&OLDOUT" or die "Can't restore  stdout" if $out;
    op <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8249	8363	
==>or die "Can't close    stderr" if $err;

    open STDOUT, ">&OLDOUT" or die "Can't restore  stdout" if $out;
    op <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	4631	4810	
==>/Makefile',
        commentType                    => '#',
        replace_slashes                => 1
    );
    genfile(
        'config/gen/makefiles/lisp.in' => 'languages/lisp <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	523	640	
==>s;

use base qw( Parrot::Docs::Group );

use Parrot::Docs::Item;
use Parrot::Docs::Directory;
use Parrot::Docs::HTMLPa <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7433	7536	
==>[$list,$list.'[1]']);
  $self->_add_inst('', 'typeof', [$type,$list]);
  $self->_add_inst('', 'eq', [$ty <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	56852	56967	
==>tract_bracketed($_[0],'{}') } },
                   ]);

This call extracts the next single substring that is a vali <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3957	4062	
==>die "compile $group.c failed ($?)\n";
    }
} 
elsif ($mode eq 'linklibs') {
    my ($group_files, $group_ <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4061	4166	
==>die "compile $group.c failed ($?)\n";
    }
} 
elsif ($mode eq 'linklibs') {
    my ($group_files, $group_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21306	21500	
==>(
        '+'  => 'add',
        '-'  => 'sub',
        '*'  => 'mul',
        '/'  => 'div',
        '^'  => 'pow',
        '%'  => 'mod',
        '..' => 'concat',
    );
    my @opcod <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	14642	14761	
==>->output_fh($out_fh);
  }

  return $self->parse_file($source);
}

#---------------------------------------------------- <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	6219	6352	
==>ls = ();
    $names{None} = 'None';
    $globals{None} = 'None';
    if ($def_args{$arg}) {
	my ($i, $n, $defs);
	$n = $arg_count{$arg <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	30340	30577	
==>als;
#    if ($ctx->{preserve_state}) {
        @save_rxlocals = $self->rule_save_rxlocals();
        @restore_rxlocals = $self->rule_restore_rxlocals();
#    }

    my $trymatch = $self->genlabel('rule_try_match');
    my $backup = $self <==
2	/Users/nnunley/parrot/config/init/hints/freebsd.pm	312	462	
==>=~ s/(-lpthreads|-lc_r)\b\s*//g;

    # The following test is from FreeBSD's /usr/ports/Mk/bsd.port.mk,
    # which must be assumed to do the right thi <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6594	6697	
==>- This needs more thought. I'm trying to work out which files
	# it's sensible to link directly to. Suff <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	3150	3355	
==>ooks like " (as in nai"ve, Chloe")

 # From the XHTML 1 .ent files:
 'nbsp'     , 160,
 'iexcl'    , 161,
 'cent'     , 162,
 'pound'    , 163,
 'curren'   , 164,
 'yen'      , 165,
 'brvbar'   , 166,
 'sec <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822048	822189	
==>"
                            ],
                  "BODY" => "#line 120 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121964	122068	
==>\n  /*\n   * lvalue casts are evil, but this one isn't evil enough to kill.\n   * it's just casting a sig <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122876	122980	
==>\n  /*\n   * lvalue casts are evil, but this one isn't evil enough to kill.\n   * it's just casting a sig <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1622	1746	
==>2 => 12, S13 => 17, S14 => 22, S21 => 5, S22 => 9, S23 => 14,
	S24 => 20, S31 => 4, S32 => 11, S33 => 16, S34 => 23, S41 => 6 <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	1460	1595	
==>t is not a parser for the set of Pod-like
#  languages which happens to contain Pod -- it is just for Pod, plus possibly
#  some extensi <==
2	/Users/nnunley/parrot/lib/Test/More.pm	28155	28318	
==>a deep check, so
multi-level structures are handled correctly.

=cut

#'#
sub eq_array {
    local @Data_Stack;
    _deep_check(@_);
}

sub _eq_array  {
    my($a1, <==
2	/Users/nnunley/parrot/config/gen/cpu.pm	28	125	
==>he Perl Foundation.
# $Id: /parrot/config/gen/cpu.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=h <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	34725	35037	
==>{
			"-" => 72,
			"%" => 76,
			"*" => 80,
			".." => 71,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -70
	},
	{#State 127
		ACTIONS => {
			"-" => 72,
			"%" => 76,
			"*" => 80,
			".." => 71,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -65
	},
	{#State 128 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20764	20874	
==>ch inspired this.

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

T <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6233	6326	
==>ate[${ITEMP0}] = ${STYPES}
prop_stack_depth[${ITEMP0}] = stack_depth
goto POST_BRANCH_NOT_swit <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4171	4264	
==>ate[${ITEMP0}] = ${STYPES}
prop_stack_depth[${ITEMP0}] = stack_depth
goto POST_BRANCH_NOT_swit <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4093	4209	
==>ub _Error {
	print "Parse error.\n";
}

sub _DBLoad {
	{
		no strict 'refs';

			exists(${__PACKAGE__.'::'}{_ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3886	3994	
==>ub _Error {
	print "Parse error.\n";
}

sub _DBLoad {
	{
		no strict 'refs';

			exists(${__PACKAGE__.'::'}{_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	702	828	
==>dentifier');

  my $self = bless {
    BLOCK => $block,
    IDENT => $ident
  }, $class;

  $block->push_content($self);

  ret <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	702	828	
==>dentifier');

  my $self = bless {
    BLOCK => $block,
    IDENT => $ident
  }, $class;

  $block->push_content($self);

  ret <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	31339	31472	
==>Handler, $targ $cmt
	set_eh $eh
EOC
}
sub POP_BLOCK
{
    my ($n, $c, $cmt) = @_;
    if (@loops) {
	my $pc = pop @loops;
	print <<EOC <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	4737	4866	
==>regex ( @{ $cfg{skip_bench} } ) {
        $fail++ and last if /$regex/;
    }
    return if $fail;
    for my $index ( 0 .. $#sect <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	13164	13297	
==>me
      local $/ = $NL;
      push @lines, scalar(<$source>);  # readline
      last unless defined $lines[-1];
       # but pass thr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204194	204594	
==>",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 241,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 380 \"src/ops/ <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2787	2931	
==>ion: (\d+)/       and $smoke{revision}     = $1;
  $html =~ /duration: (\d+)/       and $smoke{duration}     = $1;
  $html =~ /VERSION: ([\d\.]+) <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	5057	5190	
==>e op's code body.

=cut

sub body
{
    my $self = shift;

    if (@_)
    {
        $self->{BODY} = shift;
    }

    return $self->{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2192	2308	
==>al formatters:

sub end_head1       { $_[0]->emit_par(-4) }
sub end_head2       { $_[0]->emit_par(-3) }
sub end_head3 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1760	1876	
==>al formatters:

sub end_head1       { $_[0]->emit_par(-4) }
sub end_head2       { $_[0]->emit_par(-3) }
sub end_head3 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6261	6428	
==>EFAULT}
                        :   undef;
        }
        else {
            $act=$$actions{DEFAULT};
#DBG>			$debug & 0x01
#DBG>		and	print STDERR "Don't need <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5970	6131	
==>EFAULT}
                        :   undef;
        }
        else {
            $act=$$actions{DEFAULT};
#DBG>			$debug & 0x01
#DBG>		and	print STDERR "Don't need <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	25374	25553	
==>)) {	# a method function
	    print <<EOC;
	P2 = $1   # obj '$obj' attr '$attr'
	${ret_string}$func($args)  $cmt
EOC
	}
	else {
	    print <<EOC;
	.local NCI meth\:\:$attr
	meth\:\ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	456	599	
==>shift;
  my ($compiler) = @_;

  my $namespace = "BARE"; # TODO: Don't we need to do better than this?

  if ($self->content) {
    $compiler->e <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	471	595	
==>ts a
C<Parrot::OpLib::core> module containing information about the ops.

=head2 Options

=over 4

=item C<--help>

Print syn <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2370	2496	
==>at) = @_;
    $what = value($what);
    return ("print $what;");
}

sub output_test {
    my ($self, $test, $val1, $val2, $dest <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2687	2812	
==>at) = @_;
    $what = value($what);
    return ("print $what");
}

sub output_test {
    my ($self, $test, $val1, $val2, $dest <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	497	596	
==>tions

The following functions are exported:

=over 4

=cut

package Parrot::Vtable;

use strict;
us <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	321	433	
==>,"","");
	$seg="_basicmain";
}
sub feedme {
	my $type=shift @tokdsc;
	my $sym=shift @tokens;
        $type="" unl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436490	436576	
==>\"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437505	437591	
==>\"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, {{\ <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	5653	5868	
==>s{$branch}{$cat} = [
        map  {{ %$_, timestamp => $_->{timestamp}[1] }}
        sort {
          $b->{revision} <=> $a->{revision} ||
          lc $a->{osname}     cmp lc $b->{osname}     ||
          $b->{times <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	618964	619171	
==>n    lt = left->vtable->base_type;\n    right = {{\@3}};\n    lru = &mic->lru;\n    rt = right->vtable->base_type;\n    lr_types = (lt << 16) | rt;\n    if (lru->u.type == lr_types) {\n\tINTVAL a = lt == enum <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48537	48654	
==>({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_BOUNDS_FLAG); }\n  else         { Interp_flags_CLEAR(interprete <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49327	49444	
==>({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_BOUNDS_FLAG); }\n  else         { Interp_flags_CLEAR(interprete <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	13611	13833	
==>t
EOC
}

sub RETURN_VALUE
{
    my ($n, $c, $cmt) = @_;
    my $tos = promote(pop @stack);
    unless ($cur_func eq 'test::main') {
	print <<EOC;
    	.pcc_begin_return $cmt
	.return $tos
	.pcc_end_return
EOC
    }
    else <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18254	18469	
==>p {
}

sub _op_complex_p {
}

sub _op_real_p {
}

sub _op_rational_p {
}

sub _op_integer_p {
}

sub _op_exact_p {
}

sub _op_inexact_p {
}

sub _op_eq {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_g <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	35070	35183	
==>print "Catching \"$it\" as ho-hum L<Modulename> link.\n";
          $treelet->[$i][1]{'type'} = 'pod';
          $ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32201	32313	
==>mc)$arg)";
    my $ret = gen_ret($method, $body);
    my $decl = $self->decl($self->{class}, $method, 0);
    # I <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2781	2888	
==>er'  => "\n{\\pard\\li#rtfindent##rtfitemkeepn#\\sb60\\sa150\\fi-120\n",
 '/item-number' => "\n\\par}\n",
 ' <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6350	6494	
==>$$actions{DEFAULT};
#DBG>			$debug & 0x01
#DBG>		and	print STDERR "Don't need token.\n";
        }

            defined($act)
        and d <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6055	6193	
==>$$actions{DEFAULT};
#DBG>			$debug & 0x01
#DBG>		and	print STDERR "Don't need token.\n";
        }

            defined($act)
        and d <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	6120	6343	
==>$has_push = 1;
                }
            } else {
                die "Invalid value for push in rule $rule->{'name'}\n";
            }
        }

        # pop
        elsif (/^pop$/) {
            if ($rule->{$_} =~ /^ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	1026	1135	
==>$text =~ s{^\s+}{};   # Skip all whitespace between tokens
    next if $text =~ s{^#.*?$}{}; # Skip comments b <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4165	4273	
==>ct 'refs';

			exists(${__PACKAGE__.'::'}{_DBParse})#Already loaded ?
		and	return;
	}
	my($fname)=__FIL <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3952	4055	
==>ct 'refs';

			exists(${__PACKAGE__.'::'}{_DBParse})#Already loaded ?
		and	return;
	}
	my($fname)=__FIL <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3111	3219	
==>X.dump and X.c and also create any lib-GROUP.c files

    generate_dump($_) foreach (@pmcs);
    generate_c($ <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3215	3323	
==>X.dump and X.c and also create any lib-GROUP.c files

    generate_dump($_) foreach (@pmcs);
    generate_c($ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2328	2448	
==>ype() eq "text" >>

=item $token->is_end

This is a shortcut for C<< $token->type() eq "end" >>

=item $token->dump

This <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8669	8767	
==>{ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_END_${CURIC}

# Get type of return va <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7241	7339	
==>{ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_END_${CURIC}

# Get type of return va <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729811	729988	
==>s",
                              "s"
                            ],
                  "BODY" => "#line 71 \"src/ops/set.ops\"\n   STRING * const temp = {{\@1}};\n   {{\@1}} = {{ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2436	2535	
==>the Perl 6 pattern, passing the test
if the output produced by the test code matches the C<$expected <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3870	3969	
==>the Perl 6 pattern, passing the test
if the output produced by the test code matches the C<$expected <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	193	288	
==>uire Parrot::Test;

@EXPORT = ( qw(output_is output_like output_isnt), @Test::More::EXPORT );
@I <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	110	205	
==>uire Parrot::Test;

@EXPORT = ( qw(output_is output_like output_isnt), @Test::More::EXPORT );
@I <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	654	778	
==>and no interpreted version,
# create a shim for the interpreted version that automatically calls 
# the inline'd version, com <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	3570	3762	
==>mmary}       = {
    total    => $1,
    ok       => $2,
    failed   => $3,
    todo     => $4,
    skipped  => $5,
    unexpect => $6,
  };

  if(grep { not $smoke{$_} } qw<harness_args revis <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801104	801595	
==>S" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 904,
                  "ARGS" => [
                              "p",
                              "kc",
                              "s"
                            ],
                  "BODY" => "#line 467 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed(in <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49849	49960	
==>$skip);
					  $match ? \@res : undef;
					', $lookahead,$line,"<perl_quotelike>");
				$prod and $prod->addite <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660140	660401	
==>}}->vtable->exists_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661062	661323	
==>}}->vtable->exists_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	2935	3212	
==>_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "check_events",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 3,
                  "ARGS" => [],
                  "BODY" = <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2918	3079	
==>tput_label_use($dest);
}

sub output_eq {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_test('eq', $val1, $val2, $dest);
}

sub output_ne {
    my ( <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5097	5210	
==>D_EXT failed ($?)\n";

        # Execute permissions on libraries is especially important on
        # some platfo <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5308	5421	
==>D_EXT failed ($?)\n";

        # Execute permissions on libraries is especially important on
        # some platfo <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	1876	1986	
==>.h"
#include "parrot/string.h"
END_C

    print $trans->defines;
    print $ops->preamble($trans);

    my $len <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	11024	11152	
==>ect ) {
        # undef only matches undef and nothing else
        my $test = !defined $got && !defined $expect;

        $self- <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	11442	11570	
==>ect ) {
        # undef only matches undef and nothing else
        my $test = !defined $got && !defined $expect;

        $self- <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	12452	12613	
==>{
#         return split(/\n/, <<"END");
# \$$uid = _rule_$name($mode, \$$uid || <rx_match>{'$uid'});
# \$rx_pos = \$$uid\->{'!POS'};
# END
#     }
}

sub output_ <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	3460	3608	
==>ocessing $gcov_file ($source_file)\n";

        foreach (split "\n", $generated_files{$gcov_file}) {
            my ($percent, $total_lines, $real_fi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	3343	3498	
==>if $curlabel;
	    undef $curlabel;
	}
    }

    # Second, scan for label references and follow goto's until the
    # final destination of each is reached <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2729	2881	
==>spara'} =~ tr{\xA0}{ };
    $self->{'Thispara'} =~ tr{\xAD}{}d;
  }

  my $i = ' ' x ( 2 * $self->{'Indent'} + 4);
  #my $i = ' ' x (4 + $self->{'Indent' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3241	3368	
==>spara'} =~ tr{\xA0}{ };
    $self->{'Thispara'} =~ tr{\xAD}{}d;
  }

  my $i = ' ' x ( 2 * $self->{'Indent'} + 4);
  
  $self->{ <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	18915	19017	
==>ted behaviour when
    returning a reference to an entire hash or array element.
    Previously these w <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	524025	524350	
==>};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sqrt",
                  " <==
2	/Users/nnunley/parrot/config/inter/progs.pm	2197	2295	
==>pt("What program do you want to use to build shared libraries?", $ld) if $ask;
    $conf->data->set <==
2	/Users/nnunley/parrot/editor/ops2vim.pl	145	243	
==>s have been globbed on non-globbing OSes
## and make sure at least one command-line parameter has b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	4876	5033	
==>terpreter, op_lib.core_type);\n    {{+=0}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41870	41995	
==>if($copy[0] eq '=over') {
      $copy[0] = '=back';
    } else {
      die "I don't know how to auto-close an open $copy[0] re <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	36439	36604	
==>type = '?Verbatim';
      } elsif($para_type eq '~Para') {
        $para->[0] = 'Para';
        $para_type = '?Plain';
      } elsif($para_type eq 'Data') {
        $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	308751	308890	
==>de->base.data;\n        pdb->state |= PDB_RUNNING;\n    }\n\n    {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139501	139920	
==>e",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 171,
                  "ARGS" => [
                              "i",
                              "ic",
                              "ic"
                            ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359353	359444	
==>f (s && string_length(interpreter, s)) {\n    PIO_putps(interpreter, PIO_STDERR(interpreter) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360101	360192	
==>f (s && string_length(interpreter, s)) {\n    PIO_putps(interpreter, PIO_STDERR(interpreter) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955154	955443	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "encodingname",
                  "F <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955965	956254	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "encodingname",
                  "F <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011225	1011441	
==>" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 39 \"src/ops/sys.ops\"\n  {{\@1}} = Parrot_Run_OS_Command(interpreter, {{\@ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	32385	32489	
==>-

my %global_ops = (

#----------------------
#
# Section 4 Expressions
#
#----------------------

  'qu <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	7657	7756	
==>_op
#define Parrot_jit_vtable_1r332_op Parrot_jit_normal_op
#define Parrot_jit_vtable_1r221_op Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574322	574731	
==>FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 656,
                  "ARGS" => [
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 249 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397702	398190	
==>IRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 461,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic",
                              "i"
                            ],
                  "B <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15083	15251	
==>ighttype/g for @$leftexpr;

		@ass=(
			@$rightexpr,
			@$leftexpr,
		);
	}

	return @ass;
}
sub EXPRESSION {
	my(%opts);
	%opts=%{$_[0]} if @_;
	my(@expr, @stream, @lef <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	251423	251669	
==>{\@2}}->vtable->i_logical_not(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12721	12811	
==>>, C<EE<lt>47E<gt>>, C<EE<lt>0x2fE<gt>>,
and C<EE<lt>057E<gt>>, all mean "/", whose Unicode <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	780	890	
==>/bin/gcc-4.0 -c];
our $LD = qq[c++];
our $LDFLAGS = qq[-L/opt/local/lib -L/usr/local/lib -flat_namespace  ];
ou <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	784	894	
==>/bin/gcc-4.0 -c];
our $LD = qq[c++];
our $LDFLAGS = qq[-L/opt/local/lib -L/usr/local/lib -flat_namespace  ];
ou <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	837	979	
==>'],
  ['',             'interpinfo', 'P0', '.INTERPINFO_CURRENT_SUB'],
  ['',             'invokecc'],
  ['',             'restore', 'P1'],
  [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577952	578215	
==>FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 660,
                  "ARG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358304	358703	
==>AGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 419,
                  "ARGS" => [
                              "nc"
                            ],
                  "BODY" => "#line 245 \"src/ops/io.ops\"\n  PIO_eprintf(interpreter, \"%f\", (double){{\@1 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	5476	5691	
==>is on with the $RX_DEBUG environment
# variable)
#
# Otherwise, emits a print of the given string, but with %-escapes.
sub dbprint {
    my ($self, $what) = @_;
    return () unless $self->{DEBUG};
    my @ops;
    $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653588	653848	
==>\", string_to_cstring(interpreter, {{\@3}}));\n    {{=resume}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654749	655009	
==>\", string_to_cstring(interpreter, {{\@3}}));\n    {{=resume}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	5293	5393	
==>seN" />
      <itemData name="Hex" defStyleNum="dsBaseN" />
      <itemData name="Float" defStyleNum= <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	3374	3507	
==>ck_line_length {
    my ($file, $source) = @_;

    my $line = 0;
    foreach (@$source) {
        $line++;
        next unless define <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	11149	11327	
==>ult description
            unless ( $desc ) {
               (undef, my $file, my $line) = caller();
               $desc = "($file line $line)";
            }

            # $te <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	16634	16812	
==>ult description
            unless ( $desc ) {
               (undef, my $file, my $line) = caller();
               $desc = "($file line $line)";
            }

            # $te <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	2089	2243	
==>particularly interested in getting the full value of
the treelet, can just traverse the content of the treeleet
@$treelet_object.  To wit:


  % perl -MDat <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	1094	1252	
==>CK     => $block,

    KIND      => 'unless',
    LEFT      => $left,
    OP        => $op,
    RIGHT     => $right,

    CONTENT   => [ ]
  }, $class;

  $blo <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	7317	7417	
==>builtin!"
     if exists $Known_directives{$d};
    delete $this->{'accept_directives'}{$d};
    DEBU <==
2	/Users/nnunley/parrot/config/auto/signal.pm	334	442	
==>p::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining some signal stuff';

@args = qw( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79333	79444	
==>r, enum_class_Undef);\n  }\n  else {\n      /* At this point we have the symbol's address. We just need to build <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80854	80965	
==>r, enum_class_Undef);\n  }\n  else {\n      /* At this point we have the symbol's address. We just need to build <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	223	325	
==>s a list of instructions that need the magical enum fixup.
our @need_enum_fix = (
    qw/2E 2F 30 31 32 <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8363	8532	
==>ocal int not_there
    not_there = op1
    inc not_there
    .local pmc iter
    iter = new .Iterator, op1
loop_begin:
    unless iter goto no_gots
    value_at = shift i <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1583	1709	
==>s>, <rx_len>, $failLabel # past end of input?",
            'set <rx_match>["0";0], <rx_pos> # group 0 start := pos');
}

sub o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641402	641671	
==>Y" => "#line 189 \"src/ops/pmc.ops\"\n  {{\@1}} = {{\@2}}->vtable->type(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583964	584231	
==>subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585038	585305	
==>subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	23087	23204	
==>ing any event for this =end $content because in an ignored region\n";
        # And that may be because of this to-be- <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	3483	3589	
==>umentless ops, it's the same as C<name()>. For ops with
arguments, an underscore followed by underscore-sep <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11949	12051	
==>} (reverse @args));
			$pir_args = ",$pir_args" if $pir_args;
			$extern=$sym;
			$optype=optype_of($ex <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	12359	12461	
==>} (reverse @args));
			$pir_args = ",$pir_args" if $pir_args;
			$extern=$sym;
			$optype=optype_of($ex <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	9265	9380	
==>rceline)
DEBUG
}

sub english_func {
	local $_=$_[0];
	s/\$$/dollar/;
	s/\%$/int/;
	s/\&$/long/;
	s/\!$/single/;
	s/ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12500	12609	
==>s"}[0]->issubrule();
		return $subrule if defined $subrule;
	}

	return ();
}

sub checkleftmost($)
{
	my @ite <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8367	8525	
==>tate $$stack[-1][0], then ";

                $$check eq 'ERROR'
            or  do {
#DBG>				$debug & 0x04
#DBG>			and	print STDERR 
#DBG>				    "go t <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7987	8139	
==>tate $$stack[-1][0], then ";

                $$check eq 'ERROR'
            or  do {
#DBG>				$debug & 0x04
#DBG>			and	print STDERR 
#DBG>				    "go t <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10469	10574	
==>{ACTIONS}{error}.
#DBG>						 ".\n";

		push(@$stack, [ $$states[$$stack[-1][0]]{ACTIONS}{error}, undef <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10000	10102	
==>{ACTIONS}{error}.
#DBG>						 ".\n";

		push(@$stack, [ $$states[$$stack[-1][0]]{ACTIONS}{error}, undef <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	5852	5997	
==>ir);
	    }
	    foreach (@dirs) {
		mkdir($_, 0777) or die "mkdir $_: $!\n";
	    }
	}
    }
}
print("Installing ...\n");
foreach (@files, @insta <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	31514	31627	
==>oadtype
$pre_op
gen_pir = concat dest0
gen_pir = concat " = clone "
gen_pir = concat stack0
gen_pir = concat "\\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79386	79505	
==>s point we have the symbol's address. We just need to build\n         a PMC with it so we can get and set the value */\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80907	81026	
==>s point we have the symbol's address. We just need to build\n         a PMC with it so we can get and set the value */\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129322	129587	
==>UMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inli <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130060	130325	
==>UMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inli <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	448888	449155	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	1429	1533	
==>, but see L</"Data is not an API">.

=item No Parrot API

The API is defined in the lib but not defined i <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	257	347	
==>ESCRIPTION

A Perl implementation of the F<examples/mops/mops.pasm> example program,
for sp <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	253	343	
==>ESCRIPTION

A Perl implementation of the F<examples/mops/mops.pasm> example program,
for sp <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	3891	4001	
==>string rx_input

    .local pmc rx_match
    .local pmc rx_stack
    rx_stack = new IntList
    rx_match = _def <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	12272	12381	
==>guages directory and issue the same command.
  </p>

  <p>
    Note that old smoke reports are automatically d <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12866	13046	
==>or") {
		feedme();
	  	$foo=$fors[$scopes]->[-1];
		push @{$code{$seg}->{code}}, "\tgoto AFTER_NEXT_$foo->{num}\n";
	} elsif ($syms[NEXT] eq "function") {
		push @{$code{$seg}->{cod <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9669	9756	
==>,4,0xfffa3942,/* 33 */
HH,$d,$a,$b,$c,$_[12],11,0x8771f681,/* 34 */
HH,$c,$d,$a,$b,$_[15 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	11437	11536	
==>if (\$rx_mode) { goto " . $self->output_label_use($L_trymatch) . "} else { goto " . $self->output_la <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	12424	12614	
==>self->_add_inst("DONE_$label");
  return $return;
}

sub _op_let {
  my ($self, $node) = @_;
  my $return;

  my ($locals, @body) = _get_args ($node,1);
  my (@variables, @values);
  for (@{$ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12666	12772	
==>push @args, qq{"$labels{$syms[CURR]}"};
	} else {
		push @args, qq{""};
	}
	feedme();
	push @{$code{$seg}-> <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	399	568	
==>n.

This is a subclass of C<Parrot::Docs::Directory> so that it can be used
to build the HTML docs. There may come a time when it is necessary to 
make C<file_class()> an <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033527	1033755	
==>_str(interpreter, lex_pad, lex_name, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034625	1034853	
==>_str(interpreter, lex_pad, lex_name, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1372	1505	
==>code and not $pass;
    }

    unless($ENV{POSTMORTEM}) {
        unlink $lang_f;
        unlink $out_f;
    }

    return $pass;
}

1 <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1413	1546	
==>code and not $pass;
    }

    unless($ENV{POSTMORTEM}) {
        unlink $lang_f;
        unlink $out_f;
    }

    return $pass;
}

1 <==
2	/Users/nnunley/parrot/lib/Test/More.pm	24792	24937	
==>deep comparison walking each data structure to
see if they are equivalent.  If the two structures are different, it
will display the place where t <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	14673	14777	
==>n of like(), sans the useful diagnostic messages,
could be written as:

  sub laconic_like {
      my ($s <==
2	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	373	494	
==>y @arr;
    foreach (1..10) {
	$arr[$_] = buildarray();
    }

    my @arr1;
    foreach (1..20) {
	$arr1[$_] = buildarray <==
2	/Users/nnunley/parrot/examples/benchmarks/stress.pl	336	447	
==>y @arr;
foreach (1..10) {
    $arr[$_] = buildarray();
}

my @arr1;
foreach (1..20) {
    $arr1[$_] = buildarray <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	59217	59330	
==>cified for different delimiters.
For example, to specify that '/' is the escape for single quotes
and '%' is the e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627166	627259	
==>ion(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628310	628403	
==>ion(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n\ <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	887	1010	
==>en filenames (don't use directories)
        my $lua_test = $ENV{PARROT_LUA_TEST_PROG} || q{};
        my $lang_fn = Parro <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	1509	1617	
==>!
 *
 * This file is generated automatically from '$infile'
 * by $0.
 *
 * Any changes made here will be los <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	3798	3906	
==>!
 *
 * This file is generated automatically from '$infile'
 * by $0.
 *
 * Any changes made here will be los <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14560	14663	
==>EBUG) {
    if(defined $title) { print "  Returing title <$title>\n" }
    else { print "Returning title <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	23125	23228	
==>EBUG) {
    if(defined $title) { print "  Returing title <$title>\n" }
    else { print "Returning title <==
2	/Users/nnunley/parrot/config/auto/inline.pm	543	848	
==>$conf) = @_;

    my $test;
    my ($inline, $verbose) = $conf->options->get(qw(inline verbose));

    if (defined $inline) {
        $test = $inline;
    } else {
        cc_gen('config/auto/inline/test_1.in');
        eval { cc_build(); };
        if (!$@) {
            $test = cc_run();
            cho <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3184	3351	
==>}})
	{
		if ( ref($content) )
		{
			push @contents, $content;
		}
		else
		{
			# It would be good to check the short description for each
			# file and create an item <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030408	1030634	
==>=> 1152,
                  "ARGS" => [
                              "nc"
                            ],
                  "BODY" => "#line 305 \"src/ops/sys.ops\"\n  opcode_t *next = {{^+2}};\n  if ({{\@1}} < 0.0) {\n      rea <==
2	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	2384	2501	
==>kage ParamDir;
use base qw(Lua::opcode);

package LocalDir;
use base qw(Lua::opcode);

package LexDir;
use base <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2	140	
==>/usr/bin/perl

use warnings;
use strict;

#HSS use base qw/HTTP::Server::Simple::CGI/;
#HSS use HTTP::Server::Simple::Static;

use CGI;
use <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28685	28839	
==>d"} ? '$text = $_savetext;' : '' ) .'
';

	return $code;
}

1;

package Parse::RecDescent::Literal;

sub sethashname { $_[0]->{hashname} = '__STRING' . ++$ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10920	11040	
==>ge (1,10)=1..9 with [4,x]=4..x and [10,x]=10..x
            if ($incexc[-1] <= $last+1) {
                $incexc[-1] = $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	15886	16024	
==>e}}, $complaint
      # for a report to be generated later!
  }
  return 1;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955927	956178	
==>g_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956739	956990	
==>g_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15751	15868	
==>ER to force Test.pm to always
append the caller information to the test's `$desc`.

= SEE ALSO

The Perl 5 Test module <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	4424	4533	
==>of the op's arguments.

=cut

sub arg_dirs
{
    my $self = shift;

    return @{$self->{ARGDIRS}};
}

=item C <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019721	1019852	
==>],
                  "BODY" => "#line 192 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  char resultb <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020652	1020783	
==>],
                  "BODY" => "#line 192 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  char resultb <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12993	13112	
==>function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 11
		ACTIONS => <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12494	12593	
==>{"items"}[0]->issubrule();
		return $subrule if defined $subrule;
	}

	return ();
}

sub checkleftmo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724030	724270	
==>on",
                  "CODE" => 811,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 161 \"src/ops/python.ops\"\n  PMC * co <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	5962	6068	
==>a<5
	a=a+1
loop
print a
a=0
do until a>4
	a=a+1
loop
print a
a=0
do
	a=a+1
loop while a<5
print a
a=0
do
	a <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16507	16613	
==>a<5
	a=a+1
loop
print a
a=0
do until a>4
	a=a+1
loop
print a
a=0
do
	a=a+1
loop while a<5
print a
a=0
do
	a <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20621	20770	
==>sign) {
        my $left = Jako::Construct::Expression::Value::Identifier->new($block, $self->get());
        push @left, $left;
        $self->requir <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	2656	2779	
==>}, "\n";
	    }
	    else {
		print "#define _CONST_STRING_$line $n\n";
	    }
	    $this_file_seen{$str} = $line;
	    next <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	4287	4380	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

#sub curr_open { # read-only list accessor
#  return <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10075	10188	
==>bose');

    if (defined($_[0]) && length($_[0])) {
        local $" = ' ';
        _run_command(".${slash}test${e <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10656	10769	
==>bose');

    if (defined($_[0]) && length($_[0])) {
        local $" = ' ';
        _run_command(".${slash}test${e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	652505	652830	
==>\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RESTART",
                  "NAME" => "find_method",
                  "F <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	26857	27150	
==>\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "set <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6272	6378	
==>) # TODO: This can happen later.
        if ($access eq 'const' and $type->isa("Jako::Construct::Type::PMC" <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1030	1123	
==>REG_STR(cur_opcode[i])
#define CONST(i) CONTEXT(interpreter->ctx)->constants[cur_opcode[i]]
EN <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1146	1239	
==>REG_STR(cur_opcode[i])
#define CONST(i) CONTEXT(interpreter->ctx)->constants[cur_opcode[i]]
EN <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	1445	1568	
==>xt if defined $ignore and $dir->name =~ /$ignore/;
            
            push @files, $dir->files_of_type($type, 1, $igno <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2669	2792	
==>opcode asm ("esi") = cur_op;
    register char *   _reg_base   asm ("edi");
#else
    opcode_t *cur_opcode = cur_op;
    cha <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3238	3361	
==>opcode asm ("esi") = cur_op;
    register char *   _reg_base   asm ("edi");
#else
    opcode_t *cur_opcode = cur_op;
    cha <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	3268	3477	
==>}) {
      push @tokens, Jako::Token->new(
        $file, $line, 'semicolon', undef, $1);
      $text = $2;
      next;
    }

    #
    # Grouping:
    #

    if ($text =~ m{^([\(\)])(.*)$}) {
      push @toke <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	41132	41264	
==>ren to be the link-text:
      @$ell = (@$ell[0,1], defined($link_text) ? splice(@$link_text) : '');
      
      DEBUG > 2 and print <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	3969	4170	
==>f this file belongs to no package

    next unless $package =~ /main|library/;	# XXX -lt

    my %meta;
    @meta{split(/,/, $meta)} = ();
    $meta{$_} = 1 for (keys %meta); # Laziness

    if ($meta{l <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	2619	2745	
==>gname eq 'F' )
    {
        $self->process_file_start_token($token);
    }
    elsif ( $tagname eq 'C' )
    {
        $self-> <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	2121	2265	
==>I101 = %2
    $I100 = or $I100, $I101
    %1 = $I100
END_PIR

    $P0[unicode:"dyadic:\u2260"]  = <<"END_PIR"             # not equal
    $I100 = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62756	63018	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorsoff",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63401	63663	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorsoff",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" = <==
2	/Users/nnunley/parrot/lib/Test/More.pm	26098	26301	
==>ta_Stack));
        }
    }

    return $ok;
}

sub _format_stack {
    my(@Stack) = @_;

    my $var = '$FOO';
    my $did_arrow = 0;
    foreach my $entry (@Stack) {
        my $type = $entry->{type} || <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7633	7749	
==>sion with $syms[CURR]\n";
	#	EXPRESSION;		# Evaluate the expression all queued up.
	#	ASSIGNMENT($var);
	#	goto PARSE <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1484	1601	
==>here this macro should (again)
 * be in includes/parrot/event.h
 *
 * This gives +50 % performance
 */

#undef  CHECK_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710001	710274	
==>ro;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_it <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	540	644	
==>unt);
    my $out_f     = Parrot::Test::per_test('.out',$count);
    my $parrotdir = dirname $self->{parr <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	577	681	
==>unt);
    my $out_f     = Parrot::Test::per_test('.out',$count);
    my $parrotdir = dirname $self->{parr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862477	862711	
==>c/ops/string.ops\"\n  {{\@1}} = string_length(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863246	863480	
==>c/ops/string.ops\"\n  {{\@1}} = string_length(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3535	3643	
==>ere.
    }
    else {
      $self->SYNTAX_ERROR("Sub declaration has no fnlib property, and parent block is n <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6199	6307	
==>ere.
    }
    else {
      $self->SYNTAX_ERROR("Sub declaration has no fnlib property, and parent block is n <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	44923	45182	
==>tting =~ m{\G(( +)|(\^+)|(\/+)|(\%+))}g ) {
      #print "Format matches $1\n";

      if($2) {
        #print "SKIPPING <$2>\n";
        push @new_line,
          substr($p->[$i-1], pos($formatting)-length($1), length($1));
      } else {
        #print "SNAR <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	16252	16467	
==>sh P9, "OP"
	P0= P5
	bsr RUNTIME_PUSH
	pop P0, P13
	bsr RUNTIME_PUSH
	dec I5
	gt I5, 0, CASE_${jump}_${incase}_STARTTO	
TOS
	}
	if ($ops and ($tos or $ors)) {
		print CODE qq{\tunshift P9, "OP"\n};
		print CODE qq{\t <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35096	35199	
==>t;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched subrule: ['
					. $self->{subrule} <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	622	724	
==>Any use of this module in a standalone parser make the included
# text under the same copyright as the <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	603	704	
==>Any use of this module in a standalone parser make the included
# text under the same copyright as the <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650603	650729	
==>ps\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtable_max)\n        {{\@1}} = 1;\n    else if ({{\@2}} >= enum_first_typ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651525	651651	
==>ps\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtable_max)\n        {{\@1}} = 1;\n    else if ({{\@2}} >= enum_first_typ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314345	314576	
==>E" => "conv_i1_ovf",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8637	8720	
==>,"IMPULSE","LRSCAN","NAVIGATE","PHASERS","QUIT"
data "SHIELDS","SOS","SRSCAN","STATU <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21501	21584	
==>,"IMPULSE","LRSCAN","NAVIGATE","PHASERS","QUIT"
data "SHIELDS","SOS","SRSCAN","STATU <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	33143	33278	
==>{
	_my_exit($?);
	return;
    }

    # Figure out if we passed or failed and print helpful messages.
    my $test_results = $self->{Test <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	7013	7154	
==>quiv'    , 8801,
 'le'       , 8804,
 'ge'       , 8805,
 'sub'      , 8834,
 'sup'      , 8835,
 'nsub'     , 8836,
 'sube'     , 8838,
 'sup <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	8767	8878	
==>st}++;

    # In case $name is a string overloaded object, force it to stringify.
    $self->_unoverload(\$name) <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3140	3251	
==>nd 'ld' the same.
        $conf->data->set(link => $conf->data->get('ld'));

        # We can't use -opt: and -d <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4644	4755	
==>nd 'ld' the same.
        $conf->data->set(link => $conf->data->get('ld'));

        # We can't use -opt: and -d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946524	946807	
==>{
                  "JUMP" => 0,
                  "NAME" => "find_charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947425	947708	
==>{
                  "JUMP" => 0,
                  "NAME" => "find_charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
2	/Users/nnunley/parrot/tools/docs/pod_errors.pl	316	416	
==>t reports on any POD errors found in the files.

=cut

use lib 'lib';
use Parrot::Docs::Directory;

m <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	13523	13695	
==>lized
by default.

The accessor's argument, if any, is assigned to the element. The
accessor will C<croak> if this is not an appropriate object
reference.

If the element ty <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	18075	18170	
==>of formatter subclasses might find these methods useful to
call on a parser object that you have <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	19723	19816	
==>failed.

Defaults to 1.

Setting $Test::Builder::Level overrides.  This is typically useful
lo <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	5370	5511	
==>ings', 
                'contents' => ['src/encodings']
            ),
            $self->c_header_item('', 'unicode'),
            $self->c_i <==
2	/Users/nnunley/parrot/lib/Test/More.pm	28913	29023	
==>0;

    # Effectively turn %Refs_Seen into a stack.  This avoids picking up
    # the same referenced used twic <==
2	/Users/nnunley/parrot/lib/Test/More.pm	13448	13721	
==>call method "isa" on unblessed reference/ ) {
                if( !UNIVERSAL::isa($object, $class) ) {
                    my $ref = ref $object;
                    $diag = "$obj_name isn't a '$class' it's a '$ref'";
                }
            } else {
                d <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	3779	3887	
==>file($self->{PATH}, $_)
    } $self->file_and_directory_names;
}

=item C<file_paths()>

These are the full p <==
2	/Users/nnunley/parrot/config/init/defaults.pm	4104	4238	
==>'',
        sym_import => '',

        # Library build directory
        blib_dir      => 'blib/lib',

        # libparrot library name <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	41	156	
==>.
# $Id: /parrot/lib/Parrot/OpTrans/CGoto.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::OpT <==
2	/Users/nnunley/parrot/config/init/optimize.pm	246	340	
==>ate flags for the local platform to
the C<CCFLAGS>. Should this be part of config/inter/progs.p <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	14703	14789	
==>);
}

#-----------------------------------------------------------------------------

s <==
2	/Users/nnunley/parrot/tools/docs/pod_errors.pl	565	705	
==>le->contains_pod;
	next unless $file->num_pod_errors;
	
	my $errors = $file->pod_errors;
	
	print "\n",
		$file->path, 
		' has ', 
		$file-> <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	12403	12493	
==>needparen { 0 }
sub Regex::Ops::Tree::atend::render { '$' }

sub Regex::Ops::Tree::check::n <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1636	1736	
==>nless UNIVERSAL::isa($type, "Jako::Construct::Type");

  my $type_name = $type->name;

  $self->INTER <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1484	1584	
==>nless UNIVERSAL::isa($type, "Jako::Construct::Type");

  my $type_name = $type->name;

  $self->INTER <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	3052	3265	
==>$_[3] ? $_[3] : qq{\\};
	my $pat = gen_delimited_pat($del, $esc);
	my $startpos = pos $$textref || 0;
	return _fail($wantarray, $textref, "Not a delimited pattern", 0)
		unless $$textref =~ m/\G($pre)($pat)/gc;
	my <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25597	25695	
==>return,$temp,$return]);
    $self->_restore($temp);
  } else {
    $return = $self->_generate($node <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27495	27593	
==>return,$temp,$return]);
    $self->_restore($temp);
  } else {
    $return = $self->_generate($node <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3935	4038	
==>t.
    $pir .= _do_lazy_moves('_${CURIC}') if $pushes;

	# Do code for each push.
	$pir .= "\${ITEMP0} = <==
2	/Users/nnunley/parrot/config/init/hints/freebsd.pm	465	677	
==>.

    my $osversion;
    if (-e "/sbin/sysctl") {
        $osversion = `/sbin/sysctl -n kern.osreldate`;
    } else {
        $osversion = `/usr/sbin/sysctl -n kern.osreldate`;
    }
    chomp $osversion;

    $l <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	3792	3951	
==>if @arg_types;

    $name = "deprecated_$name" if ($self->body =~ /DEPRECATED/);

    return $name;
}

=item C<func_name()>

The same as C<full_name()>, but wit <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2307	2423	
==>>{declarations}}) {
				if (exists $main::common{$var}) {
					push(@saves, $var);
				}
			}
			if (@saves) {
				$e <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2716	2832	
==>>{declarations}}) {
				if (exists $main::common{$var}) {
					push(@saves, $var);
				}
			}
			if (@saves) {
				$e <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	616	748	
==>> "_S", NEXT => 'TEST', REDO => 'THEN', LAST => 'ELSE' }, # TODO: fix these
);


#
# new()
#

sub new
{
  my $class = shift;
  my ($b <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	637	769	
==>> "_S", NEXT => 'TEST', REDO => 'THEN', LAST => 'ELSE' }, # TODO: fix these
);


#
# new()
#

sub new
{
  my $class = shift;
  my ($b <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	35290	35490	
==>e::LinkSection->new( $it ); # treelet!
          next;
        }
        # else fall thru...
      }
      
      

      # ...Uhoh, here's the real L<...> parsing stuff...
      # "With the ill behavi <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31163	31270	
==>n_ret );

=item C<implements($method)>

Always true for vtables.

=cut

sub implements
{
    my ($self, $met <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39783	39890	
==>n_ret );

=item C<implements($method)>

Always true for vtables.

=cut

sub implements
{
    my ($self, $met <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	893	1011	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub parse_line { shift->parse_lines(@_) } # alias

# - - -  Turn b <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	34330	34747	
==>.." => 172,
			")" => 170
		},
		GOTOS => {
			'parlist' => 169,
			'parlist1' => 173
		}
	},
	{#State 124
		ACTIONS => {
			"-" => 72,
			"%" => 76,
			"*" => 80,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -64
	},
	{#State 125
		ACTIONS => {
			"%" => 76,
			"*" => 80,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -59
	},
	{#State 126
		ACTIONS => {
			"-" => 72,
			"% <==
2	/Users/nnunley/parrot/tools/dev/symlink.pl	2508	2716	
==>$dstfile failed: $!\n";
		    }
		}
		unless (symlink($srcfile, $dstfile)) {
		    warn "$self: symlink $srcfile $dstfile failed: $!\n";
		}
	    }
	}
    }
    warn "$self: could not find any files to symlink <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	2631	2814	
==>ad.
# 		print OUT "my ";

		require Data::Dumper;
		print OUT Data::Dumper->Dump([$self], [qw(self)]);

		print OUT "}";

		close OUT
			or croak("Can't write to new module file '$modu <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	6842	7128	
==>ommentType                      => '#',
        replace_slashes                  => 1
    );
    genfile(
        'languages/APL/config/root.in' => 'languages/APL/Makefile',
        commentType                    => '#',
        replace_slashes                => 1,
        conditioned_l <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	34	251	
==>TextContent;
use strict;
use Carp ();
use Pod::Simple ();
use vars qw( @ISA $VERSION );
$VERSION = '2.02';
@ISA = ('Pod::Simple');

sub new {
  my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1322	1452	
==>b value { return shift->{VALUE}; }
sub cond  { return shift->{COND};  }
sub left  { return shift->{LEFT};  }
sub op    { return shi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403264	403616	
==>"
                               ],
                  "TYPE" => "function",
                  "CODE" => 466,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 527 \" <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	46809	47041	
==>}
	],
	[#Rule 11
		 '@1-1', 0,
sub
#line 96 "Lua\lua51.yp"
{
            PushScope( $_[0] );
        }
	],
	[#Rule 12
		 'stat', 4,
sub
#line 100 "Lua\lua51.yp"
{
            $_[3];
        }
	],
	[#Rule 13
		 '@2- <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	26877	27150	
==>lts = $self->{Test_Results};
        if( $num > @$test_results ) {
            my $start = @$test_results ? @$test_results : 0;
            for ($start..$num-1) {
                $test_results->[$_] = &share({
                    'ok'      => 1, 
                    actual_ <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	1232	1371	
==>)>

Returns a reference to an array containing

  [ return_type method_name parameters section MMD_type ]

for each vtable method defined in <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	423	516	
==>%main_names, %namespace, %may_be_none);
$DIS = 'python mydis.py';
$DEFVAR = 'PerlInt';

getopt <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13511	13648	
==>zing away production: [". $_[0]->describe ."]");
		my $what = $items[0]->describe =~ /<rulevar/
				? "a <rulevar> (which acts like an unc <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	13515	13671	
==>s, $arg->[0]
					} else {
						push @return_params, "\$" .
						  optype_of($arg->[0], $arg) .
						  $retcount++;
					}
				}
				if (@return_params) { <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11024	11110	
==>~ s/([^\._abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/sprintf('%%% <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4373	4459	
==>~ s/([^\._abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/sprintf('%%% <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819673	819768	
==>nternal_exception(99, \"Stack Depth wrong\");\n  }\n  {{\@1}} = get_entry_type(interpreter, entr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820633	820728	
==>nternal_exception(99, \"Stack Depth wrong\");\n  }\n  {{\@1}} = get_entry_type(interpreter, entr <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	7181	7320	
==>"))
          or die "compile $src_stem.c failed ($?)\n";
    }
    else {
        1;
    }
}

sub partial_link {
    my ($group, $libs, $st <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7392	7531	
==>"))
          or die "compile $src_stem.c failed ($?)\n";
    }
    else {
        1;
    }
}

sub partial_link {
    my ($group, $libs, $st <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	1960	2119	
==>nt is an integer
    NUM       the argument is an numeric
    STR       the argument is an string
    PMC       the argument is an PMC
    KEY       the argumen <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7328	7497	
==>"
' A's and -'s
print string$(10,75-10)
print string$(20, "-")

' ON..GOTO   200! and then Oats..
t=2
on t goto 100, 200, 300
print "No match\n"
FIN:
for i = 1 to 3
	on i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	282007	282279	
==>"TYPE" => "inline",
                  "CODE" => 328,
                  "ARGS" => [
                              "i",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 908 \"src/ops/cmp.op <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	34289	34403	
==>($it =~ m/^[-a-zA-Z0-9]+\([-a-zA-Z0-9]+\)$/s) { # man sections
          # Hopefully neither too broad nor too rest <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4584	4688	
==>/_P/_DBP/;
	eval join('',@drv);
}

#Note that for loading debugging version of the driver,
#this fil <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4354	4453	
==>/_P/_DBP/;
	eval join('',@drv);
}

#Note that for loading debugging version of the driver,
#this fil <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1004	1161	
==>return @{shift->{ARGS}}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $name  = $self->name;

#  $self->DEBUG(0, "Search <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30684	30884	
==>e type
	# Dest returned in P0
STRUCT_DIM:
SCOPYDIS
	foreach(keys %usertypes) {
		print CODE<<DISP;
	eq S0, "$_", DIM_$_
DISP
	}
	print CODE <<DISP2;
	print "Structure type of "
	print S0
	print " not f <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	499	611	
==>k iterations, 

=item * the estimated number of ops performed,

=item * the elapsed time, and 

=item * the numbe <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	503	613	
==>k iterations,

=item * the estimated number of ops performed,

=item * the elapsed time, and

=item * the numbe <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	21023	21161	
==>line 139 "lib/Regex/Grammar.y"
{ return op('group', [ op('call' => [ $_[3], 1 ]), ++$::paren ]) }
	],
	[#Rule 26
		 'expr', 1,
sub
#line 14 <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	3809	4155	
==>pe'   => 'LuaString',
            );
        }
        else {
            push @opcodes, new LocalDir( $parser,
                'prolog' => 1,
                'result' => $defn,
            );
            push @opcodes, new NewOp( $parser,
                'prolog' => 1,
                'result' => $defn,
                'arg1'   => '. <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	980	1065	
==>ze_t)((opcode_t*)cur_opcode - (opcode_t*)interpreter->code->prederef.code))
#define CU <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1110	1195	
==>ze_t)((opcode_t*)cur_opcode - (opcode_t*)interpreter->code->prederef.code))
#define CU <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	46681	46906	
==>}
	],
	[#Rule 10
		 'stat', 1,
sub
#line 92 "Lua\lua51.yp"
{
            BuildVoidFunctionCall( $_[0], $_[1] );
        }
	],
	[#Rule 11
		 '@1-1', 0,
sub
#line 96 "Lua\lua51.yp"
{
            PushScope( $_[0] ) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	68968	69118	
==>function",
                  "CODE" => 91,
                  "ARGS" => [],
                  "BODY" => "#line 1071 \"src/ops/core.ops\"\n  Parrot_block <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	21049	21157	
==>PAT
		$rd1pos,	1,			# RIGHT DEL
		$ld2pos,	$second_arg,		# 2ND LDEL (MAYBE)
		$str2pos,	$rd2pos-$str2pos,	# 2 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	231	332	
==>ontrol.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako: <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	28756	28901	
==>r (@{$treelet->[$i]} == 3 and $treelet->[$i][2] eq '')
      ) {
        $self->whine( $start_line, "A non-empty Z<>" );
      }      # but kill i <==
2	/Users/nnunley/parrot/languages/regex/regex.pl	1461	1603	
==>ions{'DEBUG'} = 1 if $debug;
$options{subname} = $subname if $subname;
$options{emit_main} = 1 if $main;

if ($language eq 'pir') {
  $options{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	996	1109	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub handle_text {  $_[0]{'Errata_seen'} and $_[0]{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	780	869	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub handle_text {  $_[0]{' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	993	1079	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub handle_text {  $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	777	863	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub handle_text {  $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720220	720450	
==>rpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721420	721650	
==>rpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	17065	17174	
==>ame = $self->{class};
    return dynext_load_code($classname, $classname => {});
}

=item C<pmc_is_dynpmc>

De <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347613	347914	
==>TYPE" => "inline",
                  "CODE" => 405,
                  "ARGS" => [
                              "p",
                              "sc",
                              "sc"
                            ],
                  "BODY" => "#line 148 \"src/ops/io.ops\"\n  /* These char * need t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716245	716427	
==>S" => [
                              "p"
                            ],
                  "BODY" => "#line 87 \"src/ops/python.ops\"\n  PMC * const p = {{\@1}};\n  PMC * const io = P <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10700	10830	
==>xt;
      $scratch =~ s/\#([^\#]+)\#/${$self}{$1}/g; # interpolate
      print $fh $scratch;
    }
  }
  return 1;
}

#~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2414	2513	
==>emit a label for every single instruction. While we kinda find
	# basic blocks, we don't discover ba <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	992	1091	
==>emit a label for every single instruction. While we kinda find
	# basic blocks, we don't discover ba <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	356	463	
==>ALAR')
    ; # tolerate getting it backwards
    
    unless( defined $variable and ref($variable) eq 'SCALA <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	2806	2918	
==>ur =~ /\w/) {
			append;
			fetch;
		}
		emit("BARE");
		until($cur eq "\n" and $next eq "_" and $afternext =~ /\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601423	601695	
==>\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "singleto <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	2315	2727	
==>or the file scope.
##
## NOTE: Do NOT access the block stack directly. Access it via routines in
## this section of code.
##
###############################################################################
###############################################################################


#
# blocks()
#

sub blocks
{
  my $self = shift;

  return @{$self->{BLOCKS}};
}


#
# block()
#

sub block
{
  my $self = shi <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1605	1749	
==>$token,
				VALUE => \$value,
				DOTPOS => \$dotpos,
				STACK => [],
				DEBUG => 0,
				CHECK => \$check };

	_CheckParams( [], \%param <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1551	1688	
==>$token,
				VALUE => \$value,
				DOTPOS => \$dotpos,
				STACK => [],
				DEBUG => 0,
				CHECK => \$check };

	_CheckParams( [], \%param <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	18777	18914	
==>(undef, $c, $cmt) = @_;
    my $t = pop @stack;
    my $n = temp('P');
    my $p = $t->[1];
    print <<EOC;
	$n = new $DEFVAR
	neg $n, $p <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	1466	1592	
==>ew_item('', 'tools/dev/manicheck.pl'),
            $self->new_item('', 'tools/dev/run_indent.pl'),
        ),
        $self->ne <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13578	13679	
==>s[0]->describe =~ /<rulevar/
				? "a <rulevar> (which acts like an unconditional <reject> during pars <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4284	4401	
==>@drv);
	open(DRV,"<$fname") or die "Report this as a BUG: Cannot open $fname";
	while(<DRV>) {
                	/^\ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4065	4179	
==>@drv);
	open(DRV,"<$fname") or die "Report this as a BUG: Cannot open $fname";
	while(<DRV>) {
                	/^\ <==
2	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	417	548	
==>ildarray();
    }

    my @arr1;
    foreach (1..20) {
	$arr1[$_] = buildarray();
    }

    my @arr2;
    foreach (1..20) {
	$arr2[ <==
2	/Users/nnunley/parrot/examples/benchmarks/stress.pl	379	492	
==>ildarray();
}

my @arr1;
foreach (1..20) {
    $arr1[$_] = buildarray();
}

my @arr2;
foreach (1..20) {
    $arr2[ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11438	11555	
==>ame) = @_;
    return ($self->output_match_succeeded(),
            ".return (<rx_match>)");
}

sub output_rule_fail { <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3240	3334	
==>Text -e \
   "exit Pod::Simple::Text->filter(shift)->any_errata_seen" \
   thingy.pod

=head1 D <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9008	9138	
==>40
	for j = 1 to w*2
		a$(j)=" "
	next j
	a$(w+w*sin(i)+1)="*"
	a$(w+w*cos(i)+1)="+"
	for j = 1 to w*2
		print a$(j);
	next j
	prin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862490	862741	
==>ops\"\n  {{\@1}} = string_length(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863259	863510	
==>ops\"\n  {{\@1}} = string_length(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	849	951	
==>$ident, qw(Jako::Construct::Expression::Value::Identifier));

  my $self = bless {
    BLOCK  => $block <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	813	915	
==>$ident, qw(Jako::Construct::Expression::Value::Identifier));

  my $self = bless {
    BLOCK  => $block <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995002	995386	
==>s",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1113,
                  "A <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	41109	41207	
==>xtract_tagged>

(Note: This subroutine is only available under Perl5.005)

C<gen_extract_tagged> ge <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	12019	12124	
==>rn=$sym;
			$optype=optype_of($extern);
			goto NEST_ARRAY_ASSIGN if (@work); # Ugly, yeah sue me.
			push <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12858	12973	
==>_hint("A production consisting of a single
					  conditional <error?> directive would 
					  normally succeed (wit <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	5463	5551	
==>odes.

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

su <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	922	1029	
==>ain {
    usage() and exit if $opt_h;
    checkout_tests() and convert_tests() if not -d $DIR;
    update_te <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	18695	18828	
==>ed classname prefixes to keys in hash-based classes
    (refer to "Perl Cookbook", Recipe 13.12 for rationale).

    Corrected behavio <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1537	1639	
==>}
sub start_head4 {  $_[0]{'Thispara'} = '' }

sub start_Verbatim    { $_[0]{'Thispara'} = ''   }
sub s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1067	1169	
==>}
sub start_head4 {  $_[0]{'Thispara'} = '' }

sub start_Verbatim    { $_[0]{'Thispara'} = ''   }
sub s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	997277	997963	
==>s",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1115,
                  "ARGS" => [
                              "i",
                              "i",
                              "sc",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_str <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2762	2873	
==>ub restart_offset
{
    my ($self, $offset) = @_;

    return "interpreter->resume_offset = REL_PC + $offset; in <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4097	4208	
==>ub restart_offset
{
    my ($self, $offset) = @_;

    return "interpreter->resume_offset = REL_PC + $offset; in <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	6414	6525	
==>@_;

  my $summary = join("-", map { $smoke{summary}{$_} } qw<total ok failed todo skipped unexpect>);
  my $arg <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	878	1039	
==>rals are subject to interpolation, and so they go through
# compilation in such a way that a string register value results
# for use by further compilations. This <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	778	881	
==>D;
#undef CONST
#define REL_PC     ((size_t)(cur_opcode - interpreter->code->base.data))
#define CUR_OPC <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	894	997	
==>D;
#undef CONST
#define REL_PC     ((size_t)(cur_opcode - interpreter->code->base.data))
#define CUR_OPC <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	68069	68252	
==>);
			_hint("Did you forget the closing curly bracket
			       or is there a syntax error in the action?");
		}
		elsif ($grammar =~ m/$OTHER/gco   )
		{
			_error("Untranslatable ite <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	555	670	
==>of the Parse::Yapp package available on your
# nearest CPAN
#
# Any use of this module in a standalone parser mak <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	539	651	
==>of the Parse::Yapp package available on your
# nearest CPAN
#
# Any use of this module in a standalone parser mak <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	44661	44749	
==>'\G\((s|\.\.)'.$SIMPLEPAT.'\)';
my $EXACTLY		= '\G\(([1-9]\d*)'.$SIMPLEPAT.'\)';
my $BETW <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	16065	16236	
==>$jumps, "PARROT_JUMP_RESTART")     if ($restart);

        $op->jump($jumps);
        $self->push_op($op);
        $counter++;
    }

    return $counter;
}

=item C<expand <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	499	617	
==>ternal routine to emit code to really do any moves we've done lazily.
sub _do_lazy_moves {
    my $suffix = shift || "" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031544	1031788	
==>se\n        {{\@1}} = data_types[{{\@2}} - enum_first_type].size;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032413	1032657	
==>se\n        {{\@1}} = data_types[{{\@2}} - enum_first_type].size;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	2696	2835	
==>) {
            die "$0: Premature end of bytecode in argument.\n"
                if ($offset + sizeof('op')) > $length;
            my $ar <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	122	216	
==>fternext=getc(D);
	$afternext="" if (! defined $afternext);
	$stmts++ if $afternext=~/\n/;
}
su <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	188	272	
==>es/jako/lib/Jako/Construct/Expression/Value/Identifier.pm 19606 2006-05-30T15:08:05.0 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2504	2609	
==><$2>", "/$1", => "</$2>\n" ) : die "Funky $_"
  } @_;
}
sub changes2 {
  return map {; m/^([-_:0-9a-zA-Z]+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	675996	676084	
==>"BODY" => "#line 473 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_integer(interprete <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676776	676864	
==>"BODY" => "#line 473 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_integer(interprete <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	456	627	
==>etch;
MAIN:
	goto END if $cur eq -1;
	if ($cur =~ /[\t ]/) {   # Whitespace
		fetch;
		goto MAIN;
	}

	if ($cur =~ /[\d\.]/) {  # Numeric constants
		goto NOTNUM if ($cur e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814169	814450	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 919,
                  "ARGS" => [
                              "i <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	54	236	
==>();
BEGIN           { *DEBUG = sub () {0} unless defined &DEBUG }
use integer;
use Pod::Escapes 1.03 ();
use Pod::Simple::LinkSection ();
use Pod::Simple::BlackBox ();
#use utf8;

use <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15520	15659	
==>Repair unary -, functions, etc...
		@stream=convert_to_rpn(@expr);	# Get infix into RPN
		($assignto, $type, @left)=generate_code($opts{lhs} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	28554	28815	
==>ignature);\n    {{+=argc + 2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS",
                  "NAME" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	27729	27959	
==>ignature);\n    {{+=argc + 2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	931	1030	
==>l when svn is not available).
# See docs/submissions.pod on how to recreate this file after SVN
# ha <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3786	3885	
==>l when svn is not available).
# See docs/submissions.pod on how to recreate this file after SVN
# ha <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	2593	2699	
==>the following macro descriptions, C<PC> and C<PC'> are the current
and next position within the Parrot code <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	2000	2090	
==>Returns the appropriate C<Parrot::Pmc2c> subclass for the PMC
(C<< $self->{class} >>). C<$s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2664	2771	
==>_type->name) {
      my $temp = $compiler->temp_reg($formal_arg_type);
      my $value = $args[$i]->compile( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2364	2471	
==>_type->name) {
      my $temp = $compiler->temp_reg($formal_arg_type);
      my $value = $args[$i]->compile( <==
2	/Users/nnunley/parrot/Configure.pl	9560	9679	
==>m
    auto::snprintf
    auto::perldoc
    auto::python
    auto::bc
    auto::m4
    gen::icu
    gen::revision
    gen <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	13307	13502	
==>b.op_info_table;
    /* store full names */
    for (i = 0; i < ${bs}op_lib.op_count; i++)
        store_op(info + i, 1);
    /* plus one short name */
    for (i = 0; i < ${bs}op_lib.op_count; i+ <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2606	2788	
==>Extract the tests from the .test file. (test_name => [ $expl, $source, $out ])
##
sub extract_tests {
    my ($source) = @_;
    my %tests;

    my $regex = qr[
        test \s+ (\S+) <==
2	/Users/nnunley/parrot/Configure.pl	1577	1686	
==>cify which compiler to use.

=item C<--ccflags=(flags)>

Use the given compiler flags.

=item C<--ccwarn=(flag <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	17289	17412	
==>g.  The lowest-level
way is to call C<set_source>:

=over

=item $parser->set_source( $filename )

=item $parser->set_source <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	20989	21154	
==>ds + 1, $variant->[0]];
                    $init_mmds{$variant->[0]} = 1;
                }
                else {
                    $right = "enum_class_$variant- <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11338	11483	
==>orial(a)
	if a then factorial=a*factorial(a-1) else factorial=1
end function
t=0
g=0
if t then
	print "Mistake"
elseif g then
	print "Also a mista <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	970	1134	
==>{
  DEBUG and print "== \"$_[1]\"\n";
  if(length $_[1]) {
    my $indent = '  ' x $_[0]{'indent'};
    my $text = $_[1];
    _xml_escape($text);
    $text =~  # A n <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1021	1150	
==>{
  DEBUG and print "== \"$_[1]\"\n";
  
  if(length $_[1]) {
    my $indent = '  ' x $_[0]{'indent'};
    my $text = $_[1];
    _ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033097	1033244	
==>"p"
                            ],
                  "BODY" => "#line 41 \"src/ops/var.ops\"\n    parrot_context_t * const ctx = CONTEXT(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034195	1034342	
==>"p"
                            ],
                  "BODY" => "#line 41 \"src/ops/var.ops\"\n    parrot_context_t * const ctx = CONTEXT(interpreter <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27298	27417	
==>->{'name'}");

		# If we have PIR for the instruction, just take that. If not, we need
		# to generate it from the "to g <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34437	34556	
==>->{'name'}");

		# If we have PIR for the instruction, just take that. If not, we need
		# to generate it from the "to g <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011362	1011452	
==>line 39 \"src/ops/sys.ops\"\n  {{\@1}} = Parrot_Run_OS_Command(interpreter, {{\@2}});\n  {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012127	1012217	
==>line 39 \"src/ops/sys.ops\"\n  {{\@1}} = Parrot_Run_OS_Command(interpreter, {{\@2}});\n  {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826689	826804	
==>YPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_num(entry->entry);\n  {{+=3}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827759	827874	
==>YPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_num(entry->entry);\n  {{+=3}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	259	370	
==>ike it's
largely a copy of Parrot::Test::Python. Abstraction needed.

=cut

sub new {
    return bless {};
}

su <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	297	408	
==>ike it's
largely a copy of Parrot::Test::Python. Abstraction needed.

=cut

sub new {
    return bless {};
}

su <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	7376	7527	
==>name:
    struct( ELEMENT_NAME => ELEMENT_TYPE, ... );

    # Declare struct at compile time
    use Class::Struct CLASS_NAME => [ ELEMENT_NAME => ELEME <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786128	786218	
==>c/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed_int(interpreter, {{\@2}}, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787039	787129	
==>c/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed_int(interpreter, {{\@2}}, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314106	314345	
==>d char)({{\@1}}));\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	315567	315806	
==>d char)({{\@1}}));\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
2	/Users/nnunley/parrot/tools/dev/gen_class.pl	559	658	
==>e
it to C.

	% perl tools/dev/gen_class.pl Foo > src/pmc/foo.pmc
	% perl tools/build/pmc2c.pl -c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122168	122458	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123080	123370	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	10285	10388	
==>nsensitive collision with " . $files_in_dir_nocase{$dirname}{lc($filename)});
        }
        $files_i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407749	408051	
==>ME" => "connect",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408647	408949	
==>ME" => "connect",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	181	448	
==>ile instead.
#
#             ANY CHANGE MADE HERE WILL BE LOST !
#
####################################################################
package Lua::parser;
use vars qw ( @ISA );
use strict;

@ISA= qw ( Parse::Yapp::Driver );
#Included Parse/Yapp/Driver.pm f <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1212	1311	
==>builder}->is_eq( Parrot::Test::slurp_file($out_f), $output, $desc );
        $self->{builder}->diag( <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1253	1352	
==>builder}->is_eq( Parrot::Test::slurp_file($out_f), $output, $desc );
        $self->{builder}->diag( <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	44	150	
==>on.
# $Id: /parrot/lib/Parrot/Distribution.pm 19602 2006-05-30T13:40:58.862833Z coke  $

=head1 NAME

Parro <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	3222	3368	
==>step($step);
    }

    return $self;
}

=item * C<runsteps()>

Sequentially executes step in the order they were registered.  The invoking
L<Parro <==
2	/Users/nnunley/parrot/lib/Test/More.pm	8392	8519	
==>nd out if something is
true or false!

  # XXX BAD!
  is( exists $brooklyn{tree}, 1, 'A tree grows in Brooklyn' );

This does no <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	936	1151	
==>e = shift;
    return '<rx_pos>' if $name eq 'pos' || $name eq '<pos>';
    return '<rx_tmp>' if $name eq 'tmp' || $name eq '<tmp>';
    return '<rx_ptmp>' if $name eq 'ptmp' || $name eq '<ptmp>';
    return $name;
} <==
2	/Users/nnunley/parrot/lib/Test/More.pm	3117	3256	
==>ts => $Num_Tests;

There are rare cases when you will not know beforehand how many tests
your script is going to run.  In this case, you can <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	12723	12920	
==>tack, [$c, $p, 'P'];
    # print_stack();
}


sub LOAD_NAME() {
    my ($n, $c, $cmt) = @_;
    my ($o);
    my $p;
    if (($o = is_opcode($c))) {
	print <<EOC;
	# builtin $c $cmt $o
EOC
	push @sta <==
2	/Users/nnunley/parrot/lib/Test/More.pm	35769	35874	
==>hua Pritikin's Test
module.  I was largely unaware of its existence when I'd first
written my own ok() rou <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	47837	47975	
==>ng_document( $_[0] );
  # use Data::Dumper; print Dumper($parser), "\n";
  return $out;
}


sub _duo {
  # For use in testing: Class->_duo( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1127	1241	
==>[1] }

sub start_Para  {  $_[0]{'Thispara'} = '' }

sub start_head1 {
  if($_[0]{'Errata_seen'}) {
    $_[0]{'Thisp <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	53	198	
==>ir  = "runtime/builtin";
my $dynamic_dir = "src/builtin";

print <<EOH;
# This file automatically generated by $0.

EOH

# commands that are in Tc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605350	605523	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606140	606313	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDI <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	2624	2721	
==>PREV_OP\s(..?)\s(\w+)/(jit_info->prev_op) && (*jit_info->prev_op $1 $opcodes{$2})/g;
            $ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3751	4009	
==>} if exists $type_for_name{$name};
	
	return $UNDEFINED;
}

=back

=head2 Instance Methods

=over 4

=item C<type()>

This first tries to find a type for the file's suffix, failing that it
looks at the file's name. If it fails for both it returns 'Undefined'. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670610	670697	
==>line 415 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->push_string(interpreter, {{\@1}}, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671383	671470	
==>line 415 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->push_string(interpreter, {{\@1}}, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104142	1104250	
==>class);\n\t{{\@1}} = pmc_new_init(interpreter, type, {{\@3}});\n\t{{+=4}};\n",
                  "experimenta <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105357	1105465	
==>class);\n\t{{\@1}} = pmc_new_init(interpreter, type, {{\@3}});\n\t{{+=4}};\n",
                  "experimenta <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	16270	16421	
==>\n"
    ;
    
    $self->_handle_element_start(
      ($scratch = 'Document'),
      {
        'start_line' => $paras->[0][1]{'start_line'},
        $s <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	1289	1417	
==>e::Spec->catfile( $DIR, "*.test" ) );
    for my $file (@files) {
        my $test = substr $file, 0, -3;
        # parrot's geto <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163391	163871	
==>S" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 197,
                  "ARGS" => [
                              "n",
                              "nc",
                              "ic"
                            ],
                  "BODY" => "#line 183 \"sr <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	372	489	
==>se base qw(Jako::Construct::Block::Conditional);

#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $left, $op <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	384	501	
==>se base qw(Jako::Construct::Block::Conditional);

#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $left, $op <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	7704	7844	
==>m C<%s
%s(%s)>

=cut

*/

%s Parrot_PMC_%s( %s )
{
", ($ret_type, $name, $signature) x 2;

        $funcs .= "    $ret_type retval;\n" unless <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	5423	5530	
==>uild,
        TEMP_pmc_classes_o   => $TEMP_pmc_classes_o,
        TEMP_pmc_classes_str => $TEMP_pmc_classes <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	4725	4847	
==>$t->{args} }) {
            if (UNIVERSAL::isa($arg, 'Regex::Ops::Tree')) {
                # $arg is a reference variable, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	10075	10197	
==>$t->{args} }) {
            if (UNIVERSAL::isa($arg, 'Regex::Ops::Tree')) {
                # $arg is a reference variable, <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	19272	19429	
==>hods}} ) {
        my $meth = $method->{meth};
        my $meth_name;
        my $defaulted = 0;
        my $class = '';
        if ($self->implements($meth)) <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	2035	2337	
==>t' ) 
        {
            $self->process_start_token($token);
        }
        elsif ( $type eq 'end' ) 
        {
            $self->process_end_token($token);
        } 
        elsif ( $type eq 'text' ) 
        {
            $self->process_text_token($token);
        }
    }
    
    return 1;
} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044187	1044685	
==>ore_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1167,
                  "ARGS" => [
                              "k",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line <==
2	/Users/nnunley/parrot/lib/Test/More.pm	4762	4923	
==>= 0;
    my @plan;
    my @imports;
    while( $idx <= $#_ ) {
        my $item = $_[$idx];

        if( $item eq 'import' ) {
            push @imports, @{$_[$id <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	839537	839812	
==>ENTRY_STRING);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rotate_up",
                  "FLA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550023	550122	
==>n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+3}};\n  interpreter->current_object = object;\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551324	551423	
==>n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+3}};\n  interpreter->current_object = object;\ <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	8818	9021	
==>ta->get('new_perldoc');

        foreach my $ops (@ops) {
            my $pod = $ops;
            $pod =~ s/\.ops$/.pod/;
            print MAKEFILE "ops$slash$pod: ..${slash}src${slash}ops${slash}$ops\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13322	13490	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "jsr",
                  "FLAGS" => ":b <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10667	10795	
==>}

  $self->_new_lex ($symbol,$value);

  return $value;
}

sub _op_set_bang {
  my ($self, $node) = @_;

  _num_arg ($node, 2, ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240607	241115	
==>=> ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 280,
                  "ARGS" => [
                              "i",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 616 \"src/ops/cmp.ops\"\n  INTVAL l = VT <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	44098	44194	
==>e part of.");
}

my $NEGLOOKAHEAD	= '\G(\s*\.\.\.\!)';
my $POSLOOKAHEAD	= '\G(\s*\.\.\.)';
my $RU <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2030	2244	
==>the directory that the compiler was invoked from.
    # Currently, this is the parrot root directory.
    # However, it also leaves it output file in this directory, which we need
    # to move to the appropriate pl <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1852	1987	
==>iver version $VERSION ".
			  "incompatible with version $$self{VERSION}:\n".
			  "Please recompile parser module.";

        ref($ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1787	1918	
==>iver version $VERSION ".
			  "incompatible with version $$self{VERSION}:\n".
			  "Please recompile parser module.";

        ref($ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159808	160267	
==>> ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 193,
                  "ARGS" => [
                              "ic",
                              "i",
                              "ic"
                            ],
                  "BODY" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88957	89302	
==>o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 110,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 38 \"src/ops/bit.ops\"\n  {{\@1}} & <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	16374	16478	
==>ng $file...\n";
  while(<IN>) {
    if(m/<!ENTITY\s+(\S+)\s+"&#([^;]+);">/) {
      my($name, $value) = ( <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	4865	5030	
==>e_code = $pf->pack();

    $offset = 0;
    while($offset < length($byte_code)){
	print join(',', unpack("c*", substr($byte_code, $offset, 20)));
	print ",\n";
	$offs <==
2	/Users/nnunley/parrot/config/auto/signal.pm	1719	1850	
==>e runtime/parrot/include/signal.pasm";
    print O <<"EOF";
# DO NOT EDIT THIS FILE.
#
# This file is generated automatically by con <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	716	817	
==>ANDLE RETURN VALUES IN VARIOUS CONTEXTS

sub _failmsg {
	my ($message, $pos) = @_;
	$@ = bless { error <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7872	8032	
==>code( $self, @sempar )
                            : @sempar ? $sempar[0] : undef;

            splice(@$stack,-$len,$len);

                $$check eq 'ACC <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7517	7672	
==>code( $self, @sempar )
                            : @sempar ? $sempar[0] : undef;

            splice(@$stack,-$len,$len);

                $$check eq 'ACC <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	743	864	
==>X = MAX_SIZE;
chdir BASEDIR or die "Couldn't chdir into \"@{[ BASEDIR ]}\": $!\n";

$SIG{PIPE} = "IGNORE";

my $t = do { l <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	3669	3776	
==>, Jako::Token->new(
        $file, $line, $1 eq '[' ? 'open-bracket' : 'close-bracket', undef, $1);
      $t <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	22028	22171	
==>prefix$r2[0]->{'code'}:\n";
        $pir .= binary_dispatch_table($prefix, @r2);
    }

    # Return generated code.
    return $pir;
}


# Gene <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16760	16985	
==>^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
    return $x;
  }
}

%Escape = (
  map( (chr($_),chr($_)),       # things not apparently needing escaping
       0x20 .. 0x7E ),
  map( (chr($_),sprint <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15581	15696	
==>^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
    return $x;
  }
}

sub rtf_esc_codely { <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7771	7873	
==>else print "Oops (string)"
s$=""
if s$ then print "Should not happen (string)"
i%=0
if i% then print "S <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14758	14860	
==>else print "Oops (string)"
s$=""
if s$ then print "Should not happen (string)"
i%=0
if i% then print "S <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	1013	1123	
==>4|sparc64/) {

        # CFLAGS entries must be left-aligned.
        print CFLAGS <<"EOF";
src/jit_cpu.c -{-Wc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117961	118255	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_cor <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118700	118994	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_cor <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	935736	935947	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "titlecase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936512	936723	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "titlecase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47046	47234	
==>LEAR(interpreter, PARROT_ALL_DEBUG_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47829	48017	
==>LEAR(interpreter, PARROT_ALL_DEBUG_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	13320	13504	
==>l set source_dead to true
    }
    $self->parse_lines(@lines);
  }
  delete($self->{'source_fh'}); # so it can be GC'd
  return $self;
}

#:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1366	1536	
==>XX in io/io.c */\nint PIO_softspace(theINTERP, PMC *pmc, int new);\n\n\n\n/*\n** set.ops\n*/\n\n\n\n/*\n** stack.ops\n*/\n\n\n\n/*\n** string.ops\n*/\n\n\n\n/*\n** sys.ops <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347726	347944	
==>p",
                              "sc",
                              "sc"
                            ],
                  "BODY" => "#line 148 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const cha <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	15080	15252	
==>t_next');
    my @tries = map { $self->genlabel('alt_try') } 2..@args;
    my @fails = (@tries, $lastback);

    my (@ibacks, @iops);
    foreach (@args) {
        my ($ibac <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	149	239	
==>t interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifi <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	365	518	
==>, $thisline->[0],
	    $thisline->[1];
	$tlc;
}

sub expectation_message
{
	$Parse::RecDescent::expected
	    = $Parse::RecDescent::defexpected->expected( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255029	255544	
==>S" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 297,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 726 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	2067	2248	
==>H, IF POSSIBLE
		pos($$textref) = $_[4];				# RESET \G
		return $match;
	}
}

# BUILD A PATTERN MATCHING A SIMPLE DELIMITED STRING

sub gen_delimited_pat($;$)  # ($delimiters;$escape <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	975	1079	
==>missions.pod on how to recreate this file after SVN
# has been told about new generated files.
# 
# Ignor <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3830	3933	
==>missions.pod on how to recreate this file after SVN
# has been told about new generated files.
#
# Ignor <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	15	110	
==>itted pod2plaintext that need only know how to format whatever
# text comes out of Pod::BlackBox <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7787	7967	
==>nt'}\n";
          push @{$paras->[-1]}, $line;
        } else {
          ++$self->{'pod_para_count'};
          $self->_ponder_paragraph_buffer();
           # by now it's safe to <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	16852	17000	
==>e .= << 'END_PIR';
    goto loop
loop_done:
    # return the result vector
    .return (result)
END_PIR
        }

        $template .= <<"END_POSTAM <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	4373	4478	
==>iltins->new();

  for (@{$built_ins{$name}}) {
    my ($label, $op, @args) = @$_;
    $self->_add_inst($la <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	4066	4238	
==>ymbol} = clone $op->{arg1}->{symbol}\n";
    }

    sub visitNewOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        if ( exi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	42047	42211	
==>@copy, $copy[1]{'target'};
      $copy[-1] = '' unless defined $copy[-1];
       # since =over's don't have targets
    }
    
    DEBUG and print "Queuing up fake-o <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	334	429	
==>rbatimFormatted');
  return $new;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	333	428	
==>rbatimFormatted');
  return $new;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	9008	9171	
==>lex.h
clogl       complex.h
conj        complex.h
conjf       complex.h
conjl       complex.h
copysign    math.h
copysignf   math.h
copysignl   math.h
cos         m <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	5605	5820	
==>{$def_args{$arg}};
	$arg_count{$arg}--;
    }

    $params = join("\n\t", map {".param pmc $_"} @params);
    print <<EOC;
	$params
EOC
    if ($self && $self ne 'self') {
	print <<EOC;
	.local pmc $self
	$self = sel <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	36143	36277	
==>input and output
###

  'number->string' => \&_op_number_string,
  'string->number' => \&_op_string_number,

###
### Character
###

  ' <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	4471	4738	
==>ax error, expected ',' or ';'";
		}
		feedme();
	} else {
		$promptcode.=qq{\tprint "? "\n};
	}
	input_read_assign($promptcode, 0, 0);
	$inputcounts++;
}

my $ons=0;
sub parse_on {
	my($result, $type, @code)=EXPRESSION;  # The switch...
	feedme();
	my $branch=$syms[CU <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	7668	7895	
==>$next);
        return;
    }
    
    printf {$self->{'output_fh'}} "\n" . $next->text . "\n";
}

=item C<process_other_start_token($token)>

Processes a start token not processable by the above methods.

=cut

sub process_othe <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15852	15933	
==>ttp://www.w3.org/TR/xhtml1/DTD/xhtml-special.ent
 http://www.w3.org/TR/xhtml1/DTD/ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33754	33890	
==>ift @$paras},2;
            } else {
              DEBUG and print "Can't assimilate following ", $paras->[0][0], "\n";
              pus <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35567	35703	
==>ift @$paras},2;
            } else {
              DEBUG and print "Can't assimilate following ", $paras->[0][0], "\n";
              pus <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	8027	8171	
==>"$_->{label}->{label}: ";
            }
            $str .= $_->{code}{name} . " " . join(", ", map { ref($_) ? $_->{label} : $_ } @{ $_->{code}{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	254	422	
==>yway
  my $class = shift;
  return bless [@_], ref($class) || $class;
}

sub type { $_[0][0] }  # Can't change the type of an object
sub dump { Pod::Simple::pretty( [ @{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	17603	17729	
==>=> "\\-",        # Latin-1 soft (optional) hyphen

  # CRAZY HACKS:
  "\n" => "\\line\n",
  "\r" => "\n",
  "\cb" => "{\n\\cs21 <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14152	14252	
==>, ["DONE_$label"]);
    $self->_add_inst ("FAIL_$label", 'set', [$return,0]);
    $self->_add_inst (" <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16420	16516	
==>, ["DONE_$label"]);
  $self->_add_inst ("FAIL_$label", 'set', [$return,0]);
  $self->_add_inst (" <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	2686	2848	
==>ame of the dynamic library to be created.

C<%classes> is a map from the PMC names for which code is to be generated,
to dump info (PMC metadata).

This function i <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	392	536	
==>my $PARROT_EXE = File::Spec->catfile( File::Spec->updir(), $PConfig{test_prog} );

sub run_spec {
    my ( $spec_fh ) = @_;

    my $pattern = <$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028180	1028373	
==>arrot_sleep_on_event(interpreter, (FLOATVAL) {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029031	1029224	
==>arrot_sleep_on_event(interpreter, (FLOATVAL) {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	6183	6309	
==>ins($@)
{
	my $target = shift;
	my $item;
	foreach $item ( @_ ) { return 1 if $target eq $item; }
	return 0;
}

sub addcall($$) <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	3848	3953	
==>$cur_op (@$Parrot::OpLib::core::ops) {
	if($cur_op->full_name eq 'enternative'){
	    $enternative = pack_ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7169	7294	
==>pod;
	
	my $text = $self->read;
	
	return '' 
		unless $text =~ /^=head1\s+(?:NAME|TITLE|TITEL)\s*[\n\r]+([^\n\r]+)/smo;
	
	$t <==
2	/Users/nnunley/parrot/lib/Test/More.pm	20335	20444	
==>HTML::Lint installed, the whole block of
code I<won't be run at all>.  Test::More will output special ok's
whi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	2362	2630	
==>YNTAX_ERROR("No loop '%s' in loop control.", $name);
    } else {
      $self->SYNTAX_ERROR("No loop active in loop control.");
    }
  }

  #
  # Generate the code:
  #

  my $prefix = $loop_block->prefix;
  my $suffix = $block_types{'while'}{uc $kind};

  my $label = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028205	1028432	
==>rpreter, (FLOATVAL) {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029056	1029283	
==>rpreter, (FLOATVAL) {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	7407	7509	
==>able_221_op Parrot_jit_normal_op
#define Parrot_jit_vtable_1121_op Parrot_jit_normal_op
#define Parrot_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1068	1174	
==>VERSION = '1.05';
$COMPATIBLE = '0.07';
$FILENAME=__FILE__;

use Carp;

#Known parameters, all starti <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1032	1132	
==>VERSION = '1.05';
$COMPATIBLE = '0.07';
$FILENAME=__FILE__;

use Carp;

#Known parameters, all starti <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	12207	12376	
==>the array; the second argument, if
present, is assigned to the array element.  If the element type
is C<'@'>, the accessor returns the array element value.  If the
elemen <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983664	984308	
==>ss",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1103,
                  "ARGS" => [
                              "i",
                              "i",
                              "sc",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"s <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10624	10720	
==>E:
${STEMP0} = pop lazy_moves

# Put it in the parameter register list.
PRE_CALL_${CURIC}_CONT:
$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987055	987517	
==>ss",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1106,
                  "ARGS" => [
                              "i",
                              "i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989317	989953	
==>ss",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1108,
                  "ARGS" => [
                              "i",
                              "ic",
                              "sc",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#li <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350992	351183	
==>rintf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351654	351845	
==>rintf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	2332	2479	
==>s->get('ask')) {
        print <<"END";


The following PMC files are available:
  @pmc
END
        {
            $pmc_list = prompt('Which PMC file <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15458	15574	
==>il', 'nil' );
    push @opcodes, @{ $nil->[1] };
    $result = new_tmp( $parser, 'pmc' );
    push @opcodes, new L <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19211	19327	
==>il', 'nil' );
    push @opcodes, @{ $nil->[1] };
    $result = new_tmp( $parser, 'pmc' );
    push @opcodes, new L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	991589	992280	
==>ss",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1110,
                  "ARGS" => [
                              "i",
                              "ic",
                              "s",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_f <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	3953	4096	
==>ut .= "    \$r->$elem = $init undef;$cmt\n";
        }
        elsif( $type =~ /^\w+(?:::\w+)*$/ ){
            $out .= "    if (defined(\$init{ <==
2	/Users/nnunley/parrot/config/auto/python.pm	1059	1232	
==>$self->set_result("yes, $major.$minor.$revision");
    } else {
        $self->set_result('no');
    }
    $conf->data->set(has_python_2_4 => $has_python_2_4);

    return $s <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	4317	4461	
==>7,
 'Uacute'   , 218,
 'Ucirc'    , 219,
 'Uuml'     , 220,
 'Yacute'   , 221,
 'THORN'    , 222,
 'szlig'    , 223,
 'agrave'   , 224,
 'aacute' <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	2396	2587	
==>> $val, ...)>

Either creates a new key or appends to an existing key, with the previous/new
values joined together by C<$delim>.

Accepts a delimiter value followed by a list of C<key => valu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656416	656507	
==>{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed_int(interpreter, {{\@2}}, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657340	657431	
==>{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed_int(interpreter, {{\@2}}, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121630	121980	
==>o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 151,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 248 \"src/ops/bit.ops\"\n  /*\n   * lval <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3130	3233	
==>rbatim  {
  return unless $_[0]{'Errata_seen'};
  my $self = shift;
  if(Pod::Simple::ASCII) {
    $self <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237049	237482	
==>> [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 276,
                  "ARGS" => [
                              "i",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 606 \"src/o <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	8707	8825	
==>se STDERR             or die "Can't close    stderr" if $err;

    open  STDOUT, ">&OLDOUT" or die "Can't restore  stdo <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8239	8344	
==>se STDERR or die "Can't close    stderr" if $err;

    open STDOUT, ">&OLDOUT" or die "Can't restore  stdo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	315059	315377	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u1",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 36 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2399	2648	
==>fpoint_size#\\ul{\n",
 '/head3'  => "\n}\\par}\n",
 'head4'   => "\n{\\pard\\li#rtfindent#\\s34\\keepn\\sb90\\sa180\\f2\\fs#head4_halfpoint_size#\\ul{\n",
 '/head4'  => "\n}\\par}\n",
   # wordpad borks on \tc\tcl1, or I'd put that in =head1 and =hea <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7387	7560	
==>=$len;

                unpack('A1',$lhs) eq '@'    #In line rule
            and do {
                    $lhs =~ /^\@[0-9]+\-([0-9]+)$/
                or  die "In lin <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7046	7214	
==>=$len;

                unpack('A1',$lhs) eq '@'    #In line rule
            and do {
                    $lhs =~ /^\@[0-9]+\-([0-9]+)$/
                or  die "In lin <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3483	3600	
==>ue; # TODO: We should make sure its a string, somewhere.
    }
    else {
      $self->SYNTAX_ERROR("Sub declaration h <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6147	6264	
==>ue; # TODO: We should make sure its a string, somewhere.
    }
    else {
      $self->SYNTAX_ERROR("Sub declaration h <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5833	5931	
==>"IFBRANCH_$_:\n";
			}
			while($_=pop(@{$elsestack->{$elsetag}})) {
				push @{$code{$seg}->{code} <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8179	8274	
==>"IFBRANCH_$_:\n";
		}
		while($_=pop(@{$elsestack->{$elsetag}})) {
			push @{$code{$seg}->{code} <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10378	10491	
==>qq{+-}, '2', '3', qq{'}, 'u', 'P', qq{*}, qq{,}, '1', 'o', qq{>>}, qq{1/4}, qq{1/2}, qq{3/4}, qq{?},
'A', 'A', 'A' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	22533	22676	
==>classpieces', 0,
sub
#line 171 "lib/Regex/Grammar.y"
{ return []; }
	],
	[#Rule 41
		 'classpiece', 3,
sub
#line 175 "lib/Regex/Grammar.y"
{ ret <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	1883	2060	
==>$(SHARE_EXT)',
        libparrot_soname        => '-Wl,-soname=libparrot$(SHARE_EXT).$(SOVERSION)',
    );

    if ((split('-', $Config{archname}))[0] eq 'ia64') {
        $conf- <==
2	/Users/nnunley/parrot/config/init/hints/freebsd.pm	1045	1152	
==>$(SHARE_EXT)',
        libparrot_soname        => '-Wl,-soname=libparrot$(SHARE_EXT).$(SOVERSION)',
    );
} <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	6618	6723	
==>y $index = 0;
my ($prev_source, $prev_func_name, $prev_def);

foreach my $op ($ops->ops) {
    my $func_na <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	310187	310308	
==>e |= PDB_STOPPED;\n        interpreter->pdb->cur_opcode = (opcode_t *)cur_opcode + 1;\n        PDB_set_break(interpreter,N <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3413	3526	
==>s $props{fnlib} and $props{fnlib}) {
      $fnlib = $props{fnlib}->value; # TODO: We should make sure its a string <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6077	6190	
==>s $props{fnlib} and $props{fnlib}) {
      $fnlib = $props{fnlib}->value; # TODO: We should make sure its a string <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	7084	7427	
==>code .= emit(join(",", map {$_."_%0"} @vars), 'loop_num');

            next;
        }
        

        # comments
        $line =~ s/#.*$//m;

        # gotos and exceptions
        $line =~ s/(goto|push_eh) \s+ (\w+)/$1 $2_%0/gx;

        # locals
        if (%locals) {
            my $locals = join "|", keys %locals;
            $line =~ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	5857	5994	
==>$textref =~ m/\G([$qdel])/gc)
		{
			$$textref =~ m/\G[^\\$1]*(?:\\.[^\\$1]*)*(\Q$1\E)/gsc and next;
			_failmsg "Unmatched embedded quote <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	646	752	
==>d!" unless defined $op;
  confess "Right is not defined!" unless defined $right;

  confess "Block is not!" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	658	764	
==>d!" unless defined $op;
  confess "Right is not defined!" unless defined $right;

  confess "Block is not!" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38885	39027	
==>"i"
                            ],
                  "BODY" => "#line 720 \"src/ops/core.ops\"\n  if ({{\@1}} == EXCEPT_doomed)\n    _exit({{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39750	39892	
==>"i"
                            ],
                  "BODY" => "#line 720 \"src/ops/core.ops\"\n  if ({{\@1}} == EXCEPT_doomed)\n    _exit({{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60595	60691	
==>DY" => "#line 914 \"src/ops/core.ops\"\n  PARROT_WARNINGS_off(interpreter, {{\@1}});\n  {{+=2}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61245	61341	
==>DY" => "#line 914 \"src/ops/core.ops\"\n  PARROT_WARNINGS_off(interpreter, {{\@1}});\n  {{+=2}};\ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	421	671	
==>nal);

#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected parent block and peer block!" unless @_ == 2;

  my ($block, $peer) = @_;

  my $self = bless {
    BLOCK     => $block,
    PEER      => $peer,

    KIND      => 'else',

    CON <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	69184	69400	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "collecton",
                  "FLAGS" => "",
                  "ARGDIRS" => [],
                  "TYP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314132	314514	
==>2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i1_ovf",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ], <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30859	31072	
==>EFAULT => -54
	},
	{#State 101
		DEFAULT => -50
	},
	{#State 102
		DEFAULT => -32
	},
	{#State 103
		ACTIONS => {
			"(" => 48,
			"{" => 38,
			'STRING' => 44
		},
		GOTOS => {
			'tableconstructor' <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	104	316	
==>lator
# Copyright (C) Jonathan Worthington 2005-2006
# #############################################################################
# Configure Script
# ################
# This file detects various configura <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	642	743	
==>fined!" unless defined $op;
  confess "Right is not defined!" unless defined $right;

  confess "Block <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	654	755	
==>fined!" unless defined $op;
  confess "Right is not defined!" unless defined $right;

  confess "Block <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	32336	32476	
==>--------------------------------------------------

my %global_ops = (

#----------------------
#
# Section 4 Expressions
#
#---------------- <==
2	/Users/nnunley/parrot/config/auto/jit.pm	1142	1260	
==>h =~ s|/|_|g;

    # On OS X if you are using the Perl that shipped with the system
    # the above split fails because <==
2	/Users/nnunley/parrot/config/gen/PodText.pm	63	183	
==>trunk/config/gen/cpu.pm 10933 2006-01-06T01:43:24.870411Z particle  $

=head1 NAME

config/gen/PodText.pm - generate plai <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	7913	8137	
==>me"} . ']},
				  Parse::RecDescent::_tracefirst($_[1]),
				  q{' . $self->{"name"} . '})
					if defined $::RD_TRACE;

	') . ($parser->{deferrable}
		? 'my $def_at = @{$thisparser->{deferred}};'
		: '') .
	'
	my $err_at = @ <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	7026	7208	
==>4305)
#endif

/*
 *define default jit_funcs, if architecture doesn't have these optimizations
 */
#define Parrot_jit_vtable1_op Parrot_jit_normal_op
#define Parrot_jit_vtable1r_op Par <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	58480	58635	
==>name = $1;
			if ($rulename =~ /Replace|Extend|Precompile|Save/ )
			{	
				_warn(2,"Rule \"$rulename\" hidden by method
				       Parse::RecDescent::$rule <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	525105	525401	
==>LAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 606,
                  "ARGS" => [
                              " <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	48327	48455	
==>o parameters, not: @_"
   unless @_ == 2;

  my(@out);
  
  while( @_ ) {
    my $parser = $class->new;

    push @out, '';
    $ <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	4438	4720	
==>);

 $digest = $ctx->digest;
 $digest = $ctx->hexdigest;
 $digest = $ctx->b64digest;

=head1 DESCRIPTION

This modules has the same interface as the much faster C<Digest::MD5>. So you can
easily exchange them, e.g.

	BEGIN {
	  eval {
	    require Digest::MD5;
	    import Digest::MD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693	785	
==>it.ops\n*/\n\n\n\n/*\n** cmp.ops\n*/\n\n\n\n/*\n** debug.ops\n*/\n\n\n\n/*\n** dotgnu.ops\n*/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40189	40450	
==>UMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "T <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41036	41297	
==>UMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "T <==
2	/Users/nnunley/parrot/config/auto/headers.pm	444	553	
==>gs = qw(miniparrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparr <==
2	/Users/nnunley/parrot/config/gen/cpu.pm	507	616	
==>gs = qw(miniparrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparr <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	9183	9329	
==>'5',
   54, '6',
   55, '7',
   56, '8',
   57, '9',
   58, ':',
   59, ';',
   60, '<',
   61, '=',
   62, '>',
   63, '?',
   64, '@',
   65, 'A' <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	985	1089	
==>undle];
our $O = qq[.o];
our $CFLAGS = qq[-I/opt/local/include -fno-common -no-cpp-precomp  -pipe -Wdecla <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	989	1093	
==>undle];
our $O = qq[.o];
our $CFLAGS = qq[-I/opt/local/include -fno-common -no-cpp-precomp  -pipe -Wdecla <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	591	788	
==>data->gettriggers($key);
    $data->gettrigger($key, $trigger);
    $data->deltrigger($key, $trigger);

=head1 DESCRIPTION

This module contains configuration data for use by the other
L<Parrot::Con <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	248	368	
==>ibs;

=head1 DESCRIPTION

A documentation section describing libraries in Parrot.

=head2 Class Methods

=over

=cut

pac <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859427	859605	
==>",
                              "i"
                            ],
                  "BODY" => "#line 118 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(N <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29395	29517	
==>);\n    ccont = ctx->current_cont;\n\n    caller_ctx = ctx->caller_ctx;\n    pc = parrot_pass_args(interpreter, caller_ctx, <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	28046	28148	
==>$ar, 'P'];
}

sub BUILD_LIST
{
    BUILD_TUPLE(@_,"ResizablePMCArray")
}
sub BUILD_MAP
{
    my ($n, $c <==
2	/Users/nnunley/parrot/tools/dev/cc_flags.pl	1042	1378	
==>qr/^\Q$1\E$/;
    }
    else {
	die "syntax error in $cflags: line $., $_\n";
    }

    for (;;) {
	if (s/^([-+])\{(.*?)\}\s*//) {
	    next unless $2;
	    my ($sign, $options) = ($1, $2);
	    foreach my $option (split ' ', $options) {
		push @options, [ $regex, $sign, $option ];
	    }
	}
	elsif (s{s(.)(.*?)\1(.*?)\1([imsx]*)\s*}{} <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	267	380	
==>warnings";

package Jako::Parser;

use Carp;

use base qw(Jako::Processor);

use Jako::Construct::Block;
use Jako: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1096154	1096632	
==>MP" => 0,
                  "NAME" => "classname",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1216,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 23 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	603048	603485	
==>MP" => 0,
                  "NAME" => "classname",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 683,
                  "ARGS" => [
                              "s",
                              "p"
                            ], <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573042	573134	
==>\@2}});\n  {{\@1}} = pmc_new_init(interpreter, enum_class_ParrotClass, name);\n  {{+=3}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573952	574044	
==>\@2}});\n  {{\@1}} = pmc_new_init(interpreter, enum_class_ParrotClass, name);\n  {{+=3}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609349	609446	
==>ops/object.ops\"\n    {{\@1}} = VTABLE_get_attr_str(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610257	610354	
==>ops/object.ops\"\n    {{\@1}} = VTABLE_get_attr_str(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38478	38740	
==>UMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TY <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39342	39604	
==>UMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TY <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10097	10211	
==>ame eq 'item-bullet') {
        print $fh "\\'95 \n";
        #for funky testing: print $fh '', rtf_esc("\x{4E4B}\x <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	4890	5008	
==>ime we call $code_handler!

        if( $line =~ m/^#\s*line\s+(\d+)\s*(?:\s"([^"]+)")?\s*$/ ) {
          # That RE is <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63242	63351	
==>($name);

						_check_insatiable($name,$1,$grammar,$line) if $::RD_CHECK;
					}
				}
				elsif ($grammar =~ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63963	64072	
==>($name);

						_check_insatiable($name,$1,$grammar,$line) if $::RD_CHECK;
					}
				}
				elsif ($grammar =~ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	341	445	
==>0][0] }  # Can't change the type of an object
sub dump { Pod::Simple::pretty( [ @{ $_[0] } ] ) }

sub is_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3545	3661	
==>);

      while (1) {
        last unless defined $string and
          $string =~ m/(^|^.*?[^\\])\$((([A-Za-z][A-Za- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1937	2047	
==>);

    while (1) {
      last unless defined $string and
        $string =~ m/(^|^.*?[^\\])\$((([A-Za-z][A-Za- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550148	550239	
==>ont = NEED_CONTINUATION;\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551449	551540	
==>ont = NEED_CONTINUATION;\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54593	54694	
==>$line);
			}
			elsif ($grammar =~ m/(?=$RULEVARPATMK)/gco
				and do { ($code) = extract_codeblock($g <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4354	4583	
==>}
sub hasback { 1 }

# Sequences of regexes like RS
package Regex::Ops::Tree::seq;

sub init {
    my ($self) = @_;

    if (@{ $self->{args} } == 0) {
        delete $self->{name};
        delete $self->{args};
        return $se <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8910	9025	
==>0 to a(i)
		print "*";
	next j
	print 
next i

' Trig
w=15
dim a$(w)
for i = 0 to (22/7)*2 step 0.40
	for j = 1 to w <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	5580	5753	
==>so be calculated in OO style:

    use Digest::MD5;

    $md5 = Digest::MD5->new;
    $md5->add('foo', 'bar');
    $md5->add('baz');
    $digest = $md5->hexdigest;

    print <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2870	3003	
==>cription
             \s+ (?:\S+ \s+)? \{ \n     # optional test harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # tes <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4267	4400	
==>cription
             \s+ (?:\S+ \s+)? \{ \n     # optional test harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # tes <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	4842	4965	
==>applied the transcoding to $line
        #  by time we call $code_handler!

        if( $line =~ m/^#\s*line\s+(\d+)\s*(?:\s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	467	563	
==>t won't get an <a name="...">

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	7498	7590	
==>ys %{ $this->{'accept_directives'} } if wantarray;
  return
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	4903	5055	
==>ax == -1) && $self->can('rewrite_plus')) {
        if ($greedy) {
            return $self->rewrite_plus($op, $R, @rest);
        } else {
            re <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	2976	3112	
==>odule        { return shift->is('module');        }
sub is_next          { return shift->is('next');          }
sub is_open_brace    { re <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	2398	2537	
==>orePattern> are
not included in the checksum.

=cut

sub file_checksum
{
    my ($filename, $ignorePattern) = @_;
    open(my $file, '<', $f <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	774	1004	
==>A") || die;
}
shift(@ARGV);

tokenize();
#push(@ARGV);
parse(@ARGV);

open(CODE, ">TARG_test.pir") || die;

foreach my $seg ("_main", "_basicmain", keys %code) {
	next unless exists $code{$seg};
	my @debdecl=();
	my @init=();

	pri <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2969	3073	
==>ex)= $_[0] - ${$$self{DOTPOS}} - 1;

		$index < 0
	and	-$index <= @{$$self{STACK}}
	and	return $$self <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2825	2925	
==>ex)= $_[0] - ${$$self{DOTPOS}} - 1;

		$index < 0
	and	-$index <= @{$$self{STACK}}
	and	return $$self <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292395	292629	
==>" => [
                              "i",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 940 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} == {{\@3}};\ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	11145	11259	
==>($$textref =~ m{\G\$\s*(\d+|[][&`'+*./|,";%=~:?!\@<>()-]|\^[a-z]?)}gci)
	{
	    unless ($$textref =~ m/\G((\$#?|[*\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	405	540	
==>mple::pretty( [ @{ $_[0] } ] ) }

sub is_start { $_[0][0] eq 'start' }
sub is_end   { $_[0][0] eq 'end'   }
sub is_text  { $_[0][0] eq ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828840	829070	
==>ype on stack!\");\n  }\n\n  {{\@1}} = UVal_pmc(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829908	830138	
==>ype on stack!\");\n  }\n\n  {{\@1}} = UVal_pmc(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/config/inter/progs.pm	654	765	
==>kflags ldflags libs debugging
    lex yacc maintainer);

sub runstep
{
    my ($self, $conf) = @_;

    my ($cc, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411032	411295	
==>1}} = (INTVAL)PIO_send(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411925	412188	
==>1}} = (INTVAL)PIO_send(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	5944	6049	
==>ll 5
a=0
do while a<5
	a=a+1
loop
print a
a=0
do until a>4
	a=a+1
loop
print a
a=0
do
	a=a+1
loop while a< <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16489	16594	
==>ll 5
a=0
do while a<5
	a=a+1
loop
print a
a=0
do until a>4
	a=a+1
loop
print a
a=0
do
	a=a+1
loop while a< <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653409	653523	
==>r, {{\@2}}, {{\@3}});\n    if (!{{\@1}} || !VTABLE_defined(interpreter, {{\@1}}))\n        real_exception(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654570	654684	
==>r, {{\@2}}, {{\@3}});\n    if (!{{\@1}} || !VTABLE_defined(interpreter, {{\@1}}))\n        real_exception(interpret <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5779	5885	
==>g...\n";
			} else {
				push @{$code{$seg}->{code}}, "IFBRANCH_$_:\n";
			}
			while($_=pop(@{$elsestack-> <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8127	8229	
==>g...\n";
		} else {
			push @{$code{$seg}->{code}}, "IFBRANCH_$_:\n";
		}
		while($_=pop(@{$elsestack-> <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2080	2317	
==>ests()
##
## Checkout the tests from CVS into $DIR.
##
sub checkout_tests {
    print "Checking out tests from CVS\n";
    
    my $rc = system <<"END_COMMAND";
cvs -z3 -d :pserver:anonymous:\@tcl.cvs.sourceforge.net:/cvsroot/tcl co -d $D <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1697	1807	
==>d returns a L<Parrot::Configure::Data> object.

=cut

sub data
{
    my $self = shift;

    return $self->{data <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	7543	7656	
==>}

#
# MAIN PROGRAM:
#

@ARGV = qw(-) unless @ARGV;

foreach (@ARGV) {
    compile_file($_)
}

exit 0;

__END__

= <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5221	5334	
==>op    = $self->op;
  my $right = $self->right;

  $handler->start_element({ Name => 'assign' });
  $dest->sax($han <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3284	3397	
==>op    = $self->op;
  my $right = $self->right;

  $handler->start_element({ Name => 'assign' });
  $dest->sax($han <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	58564	58689	
==>"Rule \"$rulename\" hidden by method
				       Parse::RecDescent::$rulename",$line)
				and
				_hint("The rule named \"$rule <==
2	/Users/nnunley/parrot/config/init/hints.pm	320	421	
==>::hints;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

u <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	1173	1548	
==>file =~ m!/|\.\.!;
	    if (-e BASEDIR . "/" . $file) {
		open my $f, "<", BASEDIR . "/" . $file or die $!;
		print do { local $/; <$f> };
	    }

	} else {
		if($CGI->param("upload")) {
		  eval { process_upload($CGI) };
		} else {
		  eval { process_list($CGI) };
		}
	} 
#HSS }
#HSS __PACKAGE__->new->run(host => "192.168.2.249");

exit;

sub process_upload {
  my $CGI = s <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	2844	3050	
==>ed",

            # others; ones we might like marked with ?
            # ? -Wundef for undefined idenfiers in #if
            # ? -Wbad-function-cast
            #   Warn whenever a function call is cast t <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	5072	5266	
==>eturn 0 if ! ref $R;
    return 0 if ! ref $S;
    return 0 if $R->{name} ne $S->{name};
    my $type = $R->{name};
    if ($type eq 'match') {
	return $R->{args}[0] == $S->{args}[0];
    } elsif <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2499	2608	
==>descriptions.\n";
    if($show_full) {
	print "Their heads are included in a second section below, "
	    ."ma <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	6181	6329	
==>I{$api};
    }
}

if (@UnParrotAPI) {
    printf "--- No Parrot API: %d ---\n", scalar @UnParrotAPI;
    for my $api (@UnParrotAPI) {
	printf "%s\t%s <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30428	30569	
==>lass}, $method, 0);
    my $classname = $self->{class};
    my $parentname = $self->{parentname};
    my $ret = gen_ret($method);
    my $cout <==
2	/Users/nnunley/parrot/Configure.pl	2038	2146	
==>es.

=item C<--ldflags=(flags)>

Use the given loader flags for shared libraries

=item C<--lex=(lexer)>

Spe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561898	562000	
==>);\n  if (!{{\@1}}) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' no <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562982	563084	
==>);\n  if (!{{\@1}}) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' no <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	3063	3360	
==>and set the run options
            my $cmd = qq{$parrot $args $perl6 "$f_code"};
            my $run_options = {
                CD => '.',
                $test_map->{$func}->{stream}->{data}->($f_out),
            };

            ## run the command and capture the exit code
            my $exit <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	875	1161	
==>atform--generally the full filename is required,
though the directory generally isn't.

You may load multiple libraries here, but only the last one loaded
will be exposed to subsequent defs.

=head2 defs

This section holds the definitions of functions. Each function is
assumed to be in <==
2	/Users/nnunley/parrot/examples/benchmarks/arriter.pl	906	1039	
==>rint scalar(@k), "\n";
print "$j\n";
print scalar keys(%ha), "\n";
print $ha{'AAAAA'};
print $ha{'ABCDE'};
print $ha{'BBBBB'};
print $ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	1954	2170	
==>_token )
    {
        $type = $token->type;
        
        if ( $type eq 'start' ) 
        {
            $self->process_start_token($token);
        }
        elsif ( $type eq 'end' ) 
        {
            $self- <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	2698	2869	
==>unpack("%32C*", $_);
    }
    close($file) or die "Can't close $filename: $!";
    return $sum;
}

=item C<copy_if_diff($from, $to, $ignorePattern)>

Copies the file speci <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	12987	13122	
==>AR' => 4,
			"<" => 22,
			"+" => 24,
			'CODE' => 6,
			"(" => 10,
			"|" => 26,
			"*" => 27,
			"\$" => 29,
			"[" => 14,
			"." => 1 <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4080	4279	
==>s/^\\v//
                and $str .= "\x0b",    # vertical tab
                last;
            s/^\\([0-9]{1,3})//
                and $str .= chr $1, 
                last;

            s/^\ <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2566	2764	
==>s/^\\v//
                and $str .= "\x0b",    # vertical tab
                last;
            s/^\\([0-9]{1,3})//
                and $str .= chr $1,
                last;

            s/^\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804245	804331	
==>2 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_pmc_keyed(interpreter, {{\@1}}, {{\@2}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805146	805232	
==>2 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_pmc_keyed(interpreter, {{\@1}}, {{\@2}} <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8603	8715	
==>"DAMAGES","DESTRUCT","DOCK","IDLE","IMPULSE","LRSCAN","NAVIGATE","PHASERS","QUIT"
data "SHIELDS","SOS","SRSCAN"," <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21467	21579	
==>"DAMAGES","DESTRUCT","DOCK","IDLE","IMPULSE","LRSCAN","NAVIGATE","PHASERS","QUIT"
data "SHIELDS","SOS","SRSCAN"," <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	1019	1113	
==>rather than in Parrot
bytecode) may access.

There is a deliberate distancing from the internal <==
2	/Users/nnunley/parrot/lib/Test/More.pm	5829	5944	
==>on if a given test succeeded or failed.  Everything
else is just gravy.

All of the following print "ok" or "not ok" <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	10188	10356	
==>.pmc closure.pmc continuation.pmc retcontinuation.pmc exception_handler.pmc coroutine.pmc eval.pmc nci.pmc float.pmc integer.pmc bigint.pmc complex.pmc string.pmc boolea <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9669	9766	
==>${ASSEMBLY}, ${ARG0})

# If it's a call to instantiate, need to knock off first arg.
if "${CURIC}" <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7183	7280	
==>${ASSEMBLY}, ${ARG0})

# If it's a call to instantiate, need to knock off first arg.
if "${CURIC}" <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	19524	19648	
==>startpos;
		return;
	}
	pos($$textref) = $ld1pos;	# HAVE TO DO THIS BECAUSE LOOKAHEAD BROKEN
	my ($ldel1, $rdel1) = ("\Q$1"," <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	4320	4430	
==>gin_1
  loop_done_1:
    %1 = $P100
END_PIR

.end

.sub 'aplformat'
    .param pmc arg

    .local string resul <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19305	19715	
==>E" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 26,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  " <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28952	29063	
==>$rule->{'instruction'} =~ /\$\{DEST0\}/ &&
		         $rule->{'instruction'} =~ /\$\{LOADREG\}/) {
			die "pir m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	2793	2947	
==>n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	36865	37019	
==>n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARR <==
2	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	655	816	
==>ode, $test_no ) = @_;
  
  # flatten filenames (don't use directories)
  my $code_f   = Parrot::Test::per_test( '.code', $test_no );
  my $out_f    = Parrot::Test <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237264	237534	
==>> 276,
                  "ARGS" => [
                              "i",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 606 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7716	7841	
==>alue($reg);
    return ("save $reg");
}

sub output_restore {
    my ($self, $reg) = @_;
    $reg = value($reg);
    return (" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122029	122128	
==>h to kill.\n   * it's just casting a signed integral to the equivalent unsigned.\n   */\n  LVALUE_CA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122941	123040	
==>h to kill.\n   * it's just casting a signed integral to the equivalent unsigned.\n   */\n  LVALUE_CA <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10950	11059	
==>xFF])/join '', map sprintf('%%%02X',$_), unpack 'C*', $1/eg;
        $it =~ s/([^\._abcdefghijklmnopqrstuvwxyz <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4301	4408	
==>xFF])/join '', map sprintf('%%%02X',$_), unpack 'C*', $1/eg;
      $it =~ s/([^\._abcdefghijklmnopqrstuvwxyz <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	132	304	
==>dation.
# $Id: /parrot/tools/dev/run_indent.pl 19607 2006-05-30T15:23:20.183054Z coke  $
################################################################################

=h <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	36920	37044	
==>DEBUG > 1 and printf "Unhandled directive %s (Handled: %s)\n",
         $para->[0], join(' ', sort keys %{$self->{'accept_dir <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2917	3027	
==>et)>

=item C<goto_offset($offset)>

=item C<goto_address($address)>

CPrederef is funky in that expr OFFSET(n) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113683	113904	
==>DE" => 141,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 204 \"src/ops/bit.ops\"\n  {{\@1}} <<= {{\@2} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40185	40428	
==>OT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41032	41275	
==>OT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	531963	532223	
==>@1}} = cosh((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	12335	12462	
==>p_num";
    };
    /t/ && do {
        push @{$temps_ref}, "char *t_$temp_num;";
        push @{$extra_preamble_ref},
        "t <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	5491	5775	
==>pe                  => '#',
        replace_slashes              => 1,
        conditioned_lines            => 1
    );
    genfile(
        'config/gen/makefiles/ook.in' => 'languages/ook/Makefile',
        commentType                   => '#',
        replace_slashes               = <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	2740	2956	
==>ymb} ) {
            my $defn = $self->{table}{$symb};
            return $defn;
        }
        else {
            return undef;
        }
    }

    sub Insert {
        my $self = shift;
        my ( $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4851	4963	
==>tion if defined $section and length $section;
  return undef unless length $out;
  return $out;  
}


sub resolve <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032523	1032815	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_lex",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033620	1033912	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_lex",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	40091	40259	
==>rmatted'}
        ) {
          while(@$para > 3 and $para->[-1] !~ m/\S/) { pop @$para }
           # Kill any number of terminal newlines
          $self->_verbatim_fo <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	5198	5350	
==>ER and SOURCE files:
#

my $preamble = <<END_C;
/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically fr <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1771	2023	
==>:  $N2\n"; # print  "Elapsed time:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 = $N1 / $N2;              # div    N1, N1, N2
$ <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1771	2023	
==>:  $N2\n"; # print  "Elapsed time:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 = $N1 / $N2;              # div    N1, N1, N2
$ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3679	3874	
==>ps{fn} or exists $props{fnlib}) {
      $name .= "_THUNK";
    }

    $compiler->emit("  $dest = _${name}(" . join(", ", @args) . ")");
  }

  if (($dest_ident->kind eq 'var') and ($dest_ident->sc <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Examples.pm	655	770	
==>UPER::new(
        'Examples', 'examples.html', '',
            $self->new_group('PASM and PIR',         '', 'exampl <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	2825	3001	
==>]
    tools/build/revision_c.pl                       [devel]
    vtable.tbl                                      [devel]
);

open my $MANI, '>', 'MANIFEST';
print $MANI '# $' . <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629678	629910	
==>nd\", class);\n  {{\@1}} = pmc_new(interpreter, type);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	3924	4051	
==>lit(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a = qq!"$a"!;   # quote argument
		    $def_arg_names{$f}{$a} = $i;
		    # pri <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	4423	4550	
==>lit(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a = qq!"$a"!;   # quote argument
		    $def_arg_names{$f}{$a} = $i;
		    # pri <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	339	450	
==>s.
BEGIN {
    use Config;
    # Load threads::shared when threads are turned on
    if( $] >= 5.008 && $Config{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019239	1019540	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "localtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TY <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020169	1020470	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "localtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TY <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8755	8864	
==>ves stack?
${ITEMP0} = elements lazy_moves
if ${ITEMP0} > 0 goto POST_STORE_${CURIC}_LAZY_MOVE

# No lazy move <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	7843	8041	
==>sh{$entry->[1]} = $i++;
        push @{$vtable{methods}},
            {
                parameters  => $entry->[2],
                meth        => $entry->[1],
                type        => $entry-> <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	6583	6688	
==>ee - The number of atoms we are currently guaranteed to have for
#      the current node (NOT for this nod <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	5456	5700	
==>"
            $captures
            goto end
          match_fail:
            print "failed"
            goto end
          rule_fail:
            print "rule error"
          end:
        .end\n);
}

sub _generate_subrule_pir {
    my($target, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3957	4113	
==>kipping to next block."
          );
          
          ## Before there were errata sections in the world, it was
          ## least-pessimal to abort proc <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7150	7261	
==>eg) = @_;
    $reg = value(defined($reg) ? $reg : 'pos');
    return $self->output_pushint($reg);
}

sub output_ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6792	6903	
==>eg) = @_;
    $reg = value(defined($reg) ? $reg : 'pos');
    return $self->output_pushint($reg);
}

sub output_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	347	497	
==>_translation not implemented for current stack to register mapper\n";
}
sub post_translation {
	die "post_translation not implemented for current stack <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	1743	1860	
==>afternext=~/[Mm]/ ) ) {	# Comments
		append;
		fetch;
		while($cur ne -1 and $cur ne "\n") {
			append;	
			fetch;
		} <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	14681	14785	
==>e(), sans the useful diagnostic messages,
could be written as:

  sub laconic_like {
      my ($self, $th <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	11568	11833	
==>or, APLVector) # without
    .param pmc op1
    .param pmc op2

    .local pmc result
    result = new 'APLVector'

    .local pmc iter1,iter2
    iter1 = new .Iterator, op1

outer_loop:
    unless iter1 goto outer_done
    $P1 = shift iter1
 
    iter2 = new .Itera <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	17819	17969	
==>For those to work, the Pod-processing subclass of
Pod::Simple::PullParser has to have defined a $parser->run method --
so it is advised that all Pod::S <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948845	948937	
==>"\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949645	949737	
==>"\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	6908	7018	
==>/me;

    return $_;
}

=item C<rewrite_body($body, $trans)>

Performs the various macro substitutions using th <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4066	4209	
==>.  as file lists for Makefile
generation.

Accepts no arguments and returns a L<Parrot::Configure::Data> object.

=cut

sub clean
{
    my $self <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	1210	1346	
==>ta2,... <whitespace> destination

Additionally, there may be a * in front of the whole line to designate
a generated file:

    source_pa <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	109	221	
==>10975Z coke  $

=head1 NAME

config/auto/gmp.pm - Test for GNU MP (GMP) Math library

=head1 DESCRIPTION

Determi <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	49747	49928	
==>31
		 'stat', 2,
sub
#line 187 "Lua\lua51.yp"
{
            InsertList( $_[0], $_[2] );
            BuildAssigns( $_[0], $_[2], [] );
        }
	],
	[#Rule 32
		 '_if_then' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24546	24681	
==>dest = {{^+1}};\n  PMC * const p = CONTEXT(interpreter->ctx)->current_sub;\n  dest = (opcode_t *)p->vtable->invoke(interpreter, p, dest) <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	4	96	
==>pyright (C) 2001-2006, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Configure/Step.pm 20340 <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6459	6570	
==>{CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0[i]
    ${ITEMP0} = ${NEXTPC} + j
    prop_type_state[${ITEMP0}] = ${ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4397	4508	
==>{CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0[i]
    ${ITEMP0} = ${NEXTPC} + j
    prop_type_state[${ITEMP0}] = ${ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37321	37428	
==>'':'
		Parse::RecDescent::_trace(q{Trying repeated subrule: [' . $self->describe . ']},
				  Parse::RecDesc <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	932	1022	
==>_end_yield .namespace .endnamespace .macro .include);
my @pod_start = qw(head[1-6] over bac <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	13697	13797	
==>t this hash does not
include numerics (like "64" or "x981c").

=item $Latin1Code_to_fallback{I<intege <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	491562	491839	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inc",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inlin <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3951	4050	
==>me_offset = $addr; interpreter->resume_flag = 1";
}

=item C<restart_offset($offset)>

Returns the C <==
2	/Users/nnunley/parrot/config/init/hints/darwin.pm	72	235	
==>nts/darwin.pm 19593 2006-05-30T02:28:15.110975Z coke  $

package init::hints::darwin;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    my ($ccflags, $ld <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	5329	5485	
==>lude/parrot/op.h>). This indicates if and how an op
may jump.

=cut

sub jump
{
    my $self = shift;

    if (@_)
    {
        $self->{JUMP} = shift;
    } <==
2	/Users/nnunley/parrot/config/init/defaults.pm	733	852	
==>get('debugging') ? 1 : 0,
        optimize  => '',
        verbose   => $conf->options->get('verbose'),
        build_di <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627485	627720	
==>1}}->vtable->init(interpreter, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628629	628864	
==>1}}->vtable->init(interpreter, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046014	1046406	
==>> "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1169,
                  "ARGS" => [
                              "k",
                              "sc",
                              "p <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18501	18669	
==>3_halfpoint_size( I<halfpoint_integer> );

=item $parser->head4_halfpoint_size( I<halfpoint_integer> );

These methods set the size (in half-points, like 52 for 26-point <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	11435	11551	
==>ken->text;
      } elsif( $token->is_end and $token->tagname eq 'head1' ) {
        DEBUG and print "  Found end of h <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17695	17835	
==>,
	{#State 47
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	38773	38911	
==>>']} );

(also see L<"gen_delimited_pat"> below).


=item C<fail =E<gt> $str>

The C<fail> option indicates the action to be taken if a mat <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	5447	5646	
==>st  = map { my $dir = ( File::Spec->splitpath( $_ ) )[1];
                         $dir =~ s!\.svn/$!!;
                         $dir => 1 
                       } keys %{ ExtUtils::Manifest::manifin <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36751	36897	
==>2
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			"> <==
2	/Users/nnunley/parrot/config/auto/perldoc.pm	622	825	
==>ud c99da7c4.tmp perldoc') || undef;

    if (defined $a) {
        if ($a =~ m/^Unknown option:/) {
            $a       = capture_output('perldoc perldoc') || '';
            $version = 1;
            $s <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	187	313	
==>rs qw { $VERSION @ISA %EXPORT_TAGS };

$VERSION = '1.89';
@ISA		= qw ( Exporter );
		     
%EXPORT_TAGS	= ( ALL => [ qw(
				&e <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	6424	6578	
==>ffset(-$1) . "; {{=0}}"; /me;

    s/{{=\*}}/            $trans->goto_pop();       /me;

    s/{{\+=([^{]*?)}}/    $trans->goto_offset($1);  /me;
    s/{{- <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	13783	13899	
==>ethod
  
  if(!defined $source)             { $source = *STDIN{IO}
  } elsif(ref(\$source) eq 'GLOB') { # stet
  } el <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367900	368196	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368692	368988	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  " <==
2	/Users/nnunley/parrot/config/gen/cpu/i386/auto.pm	1014	1251	
==>$suffix" => '1',
                    "HAS_i386_$suffix" => '1',
                );
                print " (\U$suffix) " if ($verbose);
                $conf->data->add(' ', TEMP_generated => $f);
            }
        }
        cc_clean( <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	8109	8257	
==>head2 Running tests

These actually run the tests, analogous to the functions in
Test::More.

$name is always optional.

=over 4

=item B<ok>

  $Tes <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	18501	18617	
==>t <<EOC;
	$n = not $tos->[1] $cmt
EOC
	push @stack, [-1, $n, $tos->[2]];

    }
}

sub UNARY_POSITIVE
{
    my (undef <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	5064	5187	
==>est_skip {

   # manicheck.pl is probably only useful for checked out revisions
   # Checkout is done either with svn or svk <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	10445	10542	
==>EBUG and print " Putting in HACKRAW (no-op) encoding mode.\n";

  } elsif( Pod::Simple::Transcode: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433169	433523	
==>ne",
                  "CODE" => 497,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 84 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{ <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	908	1003	
==>NFIGURATION

You must specify paths to executables in a configuration file.
That file may be pla <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90431	90904	
==>o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 112,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 43 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  " <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3143	3277	
==>ess) one token per line, with line-wrapping.

L<Pod::Simple::DumpAsText> is rather like this class,
except that it doesn't dump with XM <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	7218	7411	
==>->full_name() ." */";
    }
    else {
        $definition = "$prototype;\n$opsarraytype *\n$func_name ($args)";
    }

    my $src = $op->source($trans);
    $src    =~ s/\bop_lib\b/${bs}op_lib <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17193	17364	
==>ew LocalDir( $parser,
                    'result' => $result,
                );
                push @opcodes, new KeyedGetOp( $parser,
                    'result' = <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18230	18353	
==>ew LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new KeyedGetOp( $parser,
        'result' = <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	11756	11875	
==>ort and full opcode names is created
 * hash functions are from imcc, thanks to Melvin.
 */


typedef struct hop {
    o <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	13531	13635	
==>int JITCPU @jit_funcs, "};\n";

if ($genfile =~ /jit_cpu.c/) {
    print JITCPU <<"EOC";
    PARROT_API P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650739	650988	
==>2}} < enum_last_type)\n        {{\@1}} = 1;\n    else\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651661	651910	
==>2}} < enum_last_type)\n        {{\@1}} = 1;\n    else\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	4526	4648	
==>ta->set(
            hugefloatval     => 'double',
            hugefloatvalsize => $conf->data->get('doublesize')
        ) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22666	22890	
==>_line'},
          "=end $content doesn't match =begin " 
          . $curr_open->[-1][1]{'target'}
          . ".  (Stack: "
          . $self->_dump_curr_open() . ')'
        );
        DEBUG and print "Ignoring mistargette <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	2002	2178	
==>t enum
         * this reduces MMD table resize action
         */
END_C

    print OUT "        Parrot_${_}_class_init(interp, enum_class_${_}, pass);\n" foreach (@pmcs[-1 .. - <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113348	113643	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "T <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114086	114381	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "T <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	604374	604651	
==>{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "remov <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15834	15960	
==>e want to
  #  be able to paste this into a file and run it without there being
  #  dire screaming about the mysterious hard-h <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713297	713481	
==>[
                              "nc"
                            ],
                  "BODY" => "#line 59 \"src/ops/python.ops\"\n  PMC * const io = PIO_STDOUT(interpreter);\n  STRING * <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832092	832178	
==>"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}), STACK_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832820	832906	
==>"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}), STACK_ <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9424	9520	
==>, $directories, $name) = File::Spec->splitpath($path);
    
    $path = File::Spec->catdir($self- <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	822	954	
==>b ( @{ $parser->YYData->{scope} } ) {
                if ( $symbtab->isa('SymbTabVar') ) {
                    if ( exists $symbtab <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	2743	2907	
==>e file has been modified since the
specified time. C<$time> is a number of non-leap seconds since the
epoch.

=cut

sub modified_since
{
    my $self = shift;
    my <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	84	184	
==>le ();
use vars qw( $ATTR_PAD @ISA $VERSION $SORT_ATTRS);
$VERSION = '2.02';
BEGIN {
  @ISA = ('Pod:: <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	85	185	
==>le ();
use vars qw( $ATTR_PAD @ISA $VERSION $SORT_ATTRS);
$VERSION = '2.02';
BEGIN {
  @ISA = ('Pod:: <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	5217	5325	
==>ref =~ m/\G\\./gcs;

		if ($$textref =~ m/\G($ldel)/gc)
		{
			push @nesting, $1;
		}
		elsif ($$textref =~ m <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2211	2328	
==>l = eval '$self->_DBParse()';#Do not create stab entry on compile
        $@ and die $@;
	}
	else {
		$retval = $s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2128	2241	
==>l = eval '$self->_DBParse()';#Do not create stab entry on compile
        $@ and die $@;
	}
	else {
		$retval = $s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759909	760182	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "der <==
2	/Users/nnunley/parrot/config/inter/progs.pm	659	778	
==>s ldflags libs debugging
    lex yacc maintainer);

sub runstep
{
    my ($self, $conf) = @_;

    my ($cc, $cxx, $link, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958207	958428	
==>78,
                  "ARGS" => [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 581 \"src/ops/string.ops\"\n  INTVAL n = Parrot_enco <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	5705	5846	
==>ug in static strings.  Expect "Ok"
dim O(1)
IF E$ <> "O" THEN 5030
print "Wrong!"
end
5030 print "Ok"
	end

' Equals bug, should print = greet <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20289	20397	
==>(0.5)
print 2,sqr(2)
for i = -1 to 1
	print "Sign of ";i;" is ",sgn(i)
next i


' "shared" Whoa, 66666, Goodb <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	5108	5266	
==>ng of any DESCRIPTION. FIXME
	$doc = $_;
	$desc = $info->{pod_doc} = $doc;
    }
    do {
	$desc =~ s/^ {0,1}(\S)/  $1/mg; # minimum indent
	&clip_excess_lines <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	46684	46841	
==>grammar) + 1;
		my $commitonly;
		my $code = "";
		my @components = ();
		if ($grammar =~ m/$COMMENT/gco)
		{
			_parse("a comment",0,$line);
			next;
		}
		e <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	4016	4440	
==>ubtree);
            return $t;
        }

        # Have at least one to combine with, but possibly not all
        @{ $R->{args} } = @Rrest;
        my $subtree = $self->pass1(rop('alternate', [ $R, @shrunken ]), $ctx);
        my $opt = rop('seq', [ $R0, $subtree ]);
        if (@children == 0) {
            # Nothing left, so the original alternation disappears
            return $opt;
        }

        # Something l <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	4894	5095	
==>$p, $ext) = fileparse($_, @{ $suffix{ $section[ $index ] } });
        next if ! $ext;
        $bench{ $name }{ $program[ $index ] } = $ext;
    }
}, $cfg{bench_path};
die "No benchmarks found" if ! key <==
2	/Users/nnunley/parrot/config/auto/funcptr.pm	800	917	
==>hough it is not required by the ANSI C standard,
Parrot requires the ability to cast from void pointers to function
po <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	25662	25760	
==>'=pod') { #//////////////////////////////////////////////
      $self->whine(
        $para->[1]{'s <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	71277	71440	
==>providing this rule
					       later, or did you perhaps
					       misspell \"$call\"? Otherwise
					       it will be treated as an 
					       immediate <rej <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7173	7261	
==>ush @{$code{$seg}->{code}}, "\t#\n\t# User-included assembly\n$syms[CURR]\n\t# End assemb <==
2	/Users/nnunley/parrot/config/inter/lex.pm	300	398	
==>ex;

use strict;

use vars qw( $description @args $prompt $util );

use base qw(Parrot::Configure:: <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	634	855	
==>cut

sub time_hires { time() }

$I2 = 0;                      # set    I2, 0
$I3 = 1;                      # set    I3, 1
$I4 = 100000000;              # set    I4, 100000000
                              #
print "Iteratio <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758273	758365	
==>BODY" => "#line 276 \"src/ops/set.ops\"\n  {{\@1}} = string_set(interpreter, {{\@1}}, {{\@2}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759046	759138	
==>BODY" => "#line 276 \"src/ops/set.ops\"\n  {{\@1}} = string_set(interpreter, {{\@1}}, {{\@2}} <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	14511	14610	
==>unning on a non-ASCII platform (where chr(32) doesn't
get you a space -- but $Code2USASCII{32} will) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571129	571230	
==>p_p(interpreter, {{\@3}});\n    {{\@1}} = Parrot_object_isa(interpreter, {{\@2}}, class);\n    {{+=4}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572084	572185	
==>p_p(interpreter, {{\@3}});\n    {{\@1}} = Parrot_object_isa(interpreter, {{\@2}}, class);\n    {{+=4}} <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	2460	2606	
==>phs seen so far

  'no_whining',        # whether to suppress whining
  'no_errata_section', # whether to suppress the errata section
  'complain_s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055112	1055465	
==>],
                  "TYPE" => "function",
                  "CODE" => 1178,
                  "ARGS" => [
                              "p",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 182 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (PMC_IS_NULL({{\@2}})) <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	48376	48515	
==>ke> does so),
you can pass the input variable as an interpolated literal:

        $quotelike = extract_quotelike("$var");


=head2 C<extrac <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	2167	2254	
==>Dumper->Dump([$m],["*MATCH_OBJECT"]);
my $mini = minimatch($m);
print Data::Dumper->Dump <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1856	1977	
==>ation raises an exception indicating
that the core type is missing. See the C<Parrot_Run_core_t> C<enum> in
F<include/parr <==
2	/Users/nnunley/parrot/tools/dev/as2c.pl	1283	1453	
==>ic const char ${func}_code[] = {\n";
	}
	elsif (/^\s*\d+\s+(\w+):/) {
	    print " " x 26, " /* $1: */\n";
	}
	elsif ($in_comment) {
	    print " * $_\n";
	}
    }
    pri <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636543	636836	
==>ction",
                  "CODE" => 712,
                  "ARGS" => [
                              "p",
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 107 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2} <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	4879	4986	
==>irection of the op's argument at C<$index>.

=cut

sub arg_dir
{
    my $self = shift;

    return $self->{A <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39672	39778	
==>rg);
    $ret
}

EOC
}

package Parrot::Pmc2c::deleg_pmc;
use base 'Parrot::Pmc2c';
import Parrot::Pmc2c qw <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	6742	6881	
==>f argcP >= $i goto arg_ok
	    find_global $arg_name, "${arg}_$d"
EOC
	}
	print <<EOC;
arg_ok:
EOC
    }
    $cur_func = $arg;
    %params = <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Compilers.pm	399	529	
==>s::Section::Compilers;

use strict;
use warnings;

use base qw( Parrot::Docs::Section );

use Parrot::Distribution;

=item <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3982	4091	
==>_len>";
    my $fail = $self->output_label_use($failLabel);
    if ($needed eq "1") {
        return "ge <rx_p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710768	710857	
==>, \" \");\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  PIO_softspace(interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711602	711691	
==>, \" \");\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  PIO_softspace(interp <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74434	74534	
==>+$reps >= $min and $prevtextlen == length $text;
	}

	if ($reps < $min) {
		if ($Parse::RecDescent::l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703345	703875	
==>[
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 789,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1}} = <==
2	/Users/nnunley/parrot/lib/Test/More.pm	15108	15283	
==>ic message which is guaranteed not to interfere with
test output.  Like C<print> @diagnostic_message is simply concatinated
together.

Handy for this sort of thing:

    ok( gr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62663	63014	
==>[
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorsoff",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63308	63659	
==>[
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorsoff",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYP <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	10808	10924	
==>plete op definition!\n";
    }

    close $OPS or die "Could not close ops file '$file' ($!)!";

    return;
}

# Ext <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	226	413	
==>Z coke  $
################################################################################

=head1 NAME

tools/dev/extract_file_descriptions.pl - Extract descriptions from files

=head1 SY <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6004	6114	
==>TDERR "Need token. Got ".&$ShowCurToken."\n";
			};

            $act=   exists($$actions{ACTIONS}{$$token}) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5719	5826	
==>TDERR "Need token. Got ".&$ShowCurToken."\n";
			};

            $act=   exists($$actions{ACTIONS}{$$token}) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	5515	5658	
==>if( $type eq 'url') { return $self->do_url_link($token);
  } elsif( $type eq 'man') { return $self->do_man_link($token);
  } else {
    $self->w <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41947	42104	
==>EFAULT => -4,
		GOTOS => {
			'block' => 192,
			'chunk' => 57
		}
	},
	{#State 182
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~ <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	147	289	
==>ts, {
			name	=> $3,
			total	=> $2,
			done	=> $1,
			percent	=> int(($1 / $2) * 100)
		};
	}
}

print <<HEADING;
Name & Done & Tota <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	2625	2780	
==>cks
{
  my $self = shift;

  return @{$self->{BLOCKS}};
}


#
# block()
#

sub block
{
  my $self = shift;

  return $self->{BLOCKS}[shift];
}


#
# block_d <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	3924	4038	
==>x_match
    .local pmc rx_stack
    rx_stack = new IntList
    rx_match = _default(1, rx_input, 0, rx_stack)
    .r <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28923	29103	
==>be ($) { shift->{'description'} }

sub new ($$$$)
{
	my $class = ref($_[0]) || $_[0];

	my $pattern = $_[1];

	my $desc = $pattern;
	$desc=~s/\\/\\\\/g;
	$desc=~s/}/\\}/g;
	$desc=~s <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31003	31163	
==>be ($) { shift->{'description'} }

sub new ($$$$)
{
	my $class = ref($_[0]) || $_[0];

	my $pattern = $_[1];
	$pattern =~ s#/#\\/#g;

	my $desc = $pattern;
	$des <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	37326	37433	
==>ard HTML/XML tag is used.

=item 3.

A string specifying a pattern to be matched at the closing tag. 
If the <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3691	3794	
==>d eq 'module';

      my %module_props = $self->block->props;

      $self->SYNTAX_ERROR("Sub declaratio <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6355	6458	
==>d eq 'module';

      my %module_props = $self->block->props;

      $self->SYNTAX_ERROR("Sub declaratio <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11083	11271	
==>Y_DESTINATION, STACK_CLEANUP_NULL);\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11872	12060	
==>Y_DESTINATION, STACK_CLEANUP_NULL);\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	14353	14459	
==>_func,		/* op_func_table */
  $getop		/* op_code() */
};

END_C

# generate initfunc
my $init1_code = "";
i <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	2180	2299	
==>l =~ /\n/);
        my ($firstline,$secondline) = split /\n/, $fdecl;
        if ($firstline !~ /\(/) {
	    $bad_fdecls <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	46775	46869	
==>quotelike> would return the list

=over 4

=item [0]

"<<'EOMSG'\nThis is the message.\nEOMSG\n <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3467	3574	
==>"\n\n"
  ;
  $self->{'Thispara'} = '';
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2997	3104	
==>"\n\n"
  ;
  $self->{'Thispara'} = '';
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/config/inter/lex.pm	1028	1150	
==>turn $self;
    }

    my $prog;

    # precedence of sources for the program:
    # default -> probe -> environment -> opt <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	1025	1147	
==>turn $self;
    }

    my $prog;

    # precedence of sources for the program:
    # default -> probe -> environment -> opt <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	28183	28323	
==>"DONE_$label"]);
  my $temp = $self->_constant(-1);
  $self->_add_inst('',           'mul',[$return,$return,$temp]);
  $self->_restore($temp) <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	44922	45048	
==>he right delimiter of the second block of the operation (if any),

=item [10]

the trailing modifiers on the operation (if any) <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	3032	3151	
==>d returns a list.

=cut

sub keys
{
    my $self = shift;

    return keys %{$self->{c}};
}

=item C<dump()>

Provides a <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	98	223	
==>ted using Parse::Yapp version 1.05.
#
#        Don't edit this file, use source file instead.
#
#             ANY CHANGE M <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	96	217	
==>ted using Parse::Yapp version 1.05.
#
#        Don't edit this file, use source file instead.
#
#             ANY CHANGE M <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976217	976452	
==>ic",
                              "sc",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_c <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	1712	1835	
==>lf->new_item('', 'tools/dev/lib_deps.pl'),
            $self->new_item('', 'tools/dev/parrot_coverage.pl'),
            $sel <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	11785	11922	
==>pos($line_group) != length($line_group);
       # I.e., unless it's a zero-length "empty line" at the very
       #  end of "foo\nbar\n" ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	329388	329609	
==>t4)({{\@2}}->vtable->get_number(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	1941	2056	
==>rans::CPrederef>

=back

=cut

use strict;
use lib 'lib';

use Pod::Usage;
use Getopt::Long;

use Parrot::OpsFile;
u <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22331	22456	
==>"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 124,
			'functioncall <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	72765	72868	
==>escent';";
	$self->{"startcode"} = '';

	my $rule;
	foreach $rule ( values %{$self->{"rules"}} )
	{
		if <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22749	22950	
==>"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 125,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24421	24561	
==>"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 129,
			'functioncall' => 31,
			'f <==
2	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	402	615	
==>->{Lineno} = $parser->YYData->{lineno};
        return $self;
    }

    sub configure {
        my $self = shift;
        my %attr = @_;
        while ( my ( $key, $value ) = each(%attr) ) {
            if <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	121	209	
==>e Perl Foundation.
# $Id: /parrot/tools/dev/run_indent.pl 19607 2006-05-30T15:23:20.18305 <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	12167	12372	
==>h        => $methodname,
                    body        => $methodblock,
                    line        => $lineno,
                    type        => $type,
                    parameters  => $parameters <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	11675	11864	
==>h        => $methodname,
                body        => $methodblock,
                line        => $lineno,
                type        => $type,
                parameters  => $parameters <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	26445	26625	
==>ase history if you really want to.

=cut

sub current_test {
    my($self, $num) = @_;

    lock($self->{Curr_Test});
    if( defined $num ) {
        unless( $self->{Have_Plan} ) { <==
2	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	866	1076	
==>lags);
        if ($f =~ s/ -s / /) {
            $conf->data->set($ldflags => $f);
        }
    }

    my $linkflags = $conf->data->get('linkflags');
    if ($linkflags !~ /-expect_unresolved/) {
        $link <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	7361	7569	
==>body =~ s!
        (?:
            {{\@\d+\}}
            |
            \b\w+(?:->\w+)*
        )->vtable->\s*(\w+)\(
        !VTABLE_$1(!sgx;

    while (1)
    {
        my $new_body = $self->_substitute($bo <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2059	2273	
==>_count - 2));
        }

        # flatten filenames (don't use directories)
        my $lang_fn     = Parrot::Test::per_test( '.m4', $count );
        my $lang_out_fn = $self->get_out_fn( $count );
        my @test <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27662	27778	
==>pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end translation\n";

		# Emit <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37211	37327	
==>pir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end translation\n";

		# Emit <==
2	/Users/nnunley/parrot/config/auto/alignptrs.pm	353	561	
==>rot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';
use Config;

$description = 'Determining your minimum pointer alignment';

@args = qw(miniparrot);

sub runstep
{
    my ($self, $conf) = (shi <==
2	/Users/nnunley/parrot/config/auto/headers.pm	320	424	
==>rot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';
use Config;

$description = 'Probing f <==
2	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1210	1321	
==>age BinaryOp;
use base qw(Lua::opcode);

package RelationalOp;
use base qw(Lua::opcode);

package AssignOp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	31240	31555	
==>nature);\n    {{+=argc + 2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "result_info",
                  "FLAGS" => "",
                  "ARGDI <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4865	5013	
==>tables of parent blocks.

=cut

sub dump_symbols
{
  my $self = shift; # Required: Jako::Construct::Block

  confess "No block!"  unless defined $sel <==
2	/Users/nnunley/parrot/examples/benchmarks/stress.pl	459	619	
==>arr2;
foreach (1..20) {
    $arr2[$_] = buildarray();
}

sub buildarray {
    my @foo;
    foreach (1..10000) {
	$foo[$_] = $_;
    }
    return \@foo;
}

=head1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427822	427993	
==>,
                              "n"
                            ],
                  "BODY" => "#line 69 \"src/ops/math.ops\"\n  mmd_dispatch_v_pn(interpreter, {{\@2}}, {{\ <==
2	/Users/nnunley/parrot/config/inter/lex.pm	909	1010	
==>tions->get('maintainer')) {
        $conf->data->set($util => 'echo');
        $self->set_result('skip <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	906	1007	
==>tions->get('maintainer')) {
        $conf->data->set($util => 'echo');
        $self->set_result('skip <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	1381	1487	
==>id a warning.
    my $parent_path = File::Spec->catpath($volume, $directories, '');
    
    # To remove th <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	912	1010	
==>utions or in general when svn is not available).
# See docs/submissions.pod on how to recreate this <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3767	3865	
==>utions or in general when svn is not available).
# See docs/submissions.pod on how to recreate this <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431368	431560	
==>,
                              "p"
                            ],
                  "BODY" => "#line 79 \"src/ops/math.ops\"\n  mmd_dispatch_v_pp(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293073	293469	
==>",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 341,
                  "ARGS" => [
                              "i",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 945 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(in <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1416	1676	
==>bytecode "languages/lua/lib/luadebug.pbc"
  _main()
.end

};
        return $self;
    }

    sub visitUnaryOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{sym <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	625979	626135	
==>cur_opcode[2 + i]);\n                break;\n            default:\n                internal_exception(1, \"unhandled sig_bits\");\n        }\n    }\n    /* s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061305	1061716	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1185,
                  "ARGS" => [
                              "p"
                            ],
                  "BO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841081	841356	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841844	842119	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	12151	12274	
==>p = promote($tos);
	print <<EOC;
	global "$c" = $p $cmt
EOC
    }
    $globals{$c} = $p;
}


sub is_opcode {
    my $f = shi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	8368	8476	
==>e = *PODSOURCE{IO};
    }
    $self->{'source_filename'} = $_[0];
    DEBUG and print "  Its name is $_[0].\n <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	678	865	
==>h
    include/parrot/io.h
    include/parrot/longopt.h
    include/parrot/mmd.h
    include/parrot/resources.h
    include/parrot/stat.h
    include/parrot/string.h
    include/parrot/vtab <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79291	79400	
==>on\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      /* At this point we have <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80812	80921	
==>on\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      /* At this point we have <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	8185	8299	
==>ake it so now so the code below can treat everybody the
    # same.
    $command = [$command] unless (ref $command) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	7917	8242	
==>ublen); # [m..INF]*
        return undef if $sublen > 0;        # [m..sublen]*
        return 0;                           # [0..0]*
    } else {
        return undef if ! defined($sublen); # [m..INF] repeated up to N times
        return $max * $sublen;              # [m..sublen] repeated up to N times
    }
}

sub startset <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	20269	20408	
==>= '!';
          DEBUG > 2 and print " But the leading ! means that this IS a match!\n";
        }
      }

      $para->[0] = '=for';  # Ju <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	40302	40511	
==>ax'              => \&_op_syntax,
  'identifer?'          => \&_op_identifier_p,
  'unwrap-syntax'       => \&_op_unwrap_syntax,
  'bound-identfier=?'   => \&_op_bound_identifier_eq_p,
  'identifier->symbol'  = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56344	56454	
==>9 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo_p(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57106	57216	
==>9 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo_p(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	40481	40604	
==>f any),

=item [3]

the opening tag

=item [4]

the text between the opening and closing tags

=item [5]

the closing tag (o <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2251	2357	
==>STEMP1}
${STACK$register_num} = ${STEMP0}

# Decrement stack height.
dec stack_depth
PIR
		$pir =~ s/\$regi <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3503	3609	
==>STEMP1}
${STACK$register_num} = ${STEMP0}

# Decrement stack height.
dec stack_depth
PIR
		$pir =~ s/\$regi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321588	321823	
==>able->get_integer(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323944	324179	
==>able->get_integer(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	2852	3051	
==>ix => '',
                prefix      => '/usr',
                destdir     => '',
                exec_prefix => '/usr',
                bindir      => '/usr/bin',
                libdir      => '/u <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825105	825348	
==>E" => "function",
                  "CODE" => 934,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 133 \"src/ops/stack.ops\"\n <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	8365	8473	
==>ndle = *PODSOURCE{IO};
    }
    $self->{'source_filename'} = $_[0];
    DEBUG and print "  Its name is $_[0] <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	1938	2192	
==>:Find::dir =~ /\.svn/);
	     unlink($_) if (-f $_);
         }, 'miniparrot');
}


sub copy_src_from_obj {
    print "** $0: copying object source files to miniparrot directory\n";

    foreach my $obj (@ARGV) {
        my $src = $obj;
        $src =~ s/ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	32978	33071	
==>ck


=head2 Extending and Embedding Test::More

Sometimes the Test::More interface isn't quite <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3382	3502	
==>ops

    $compiler->emit("  $name ", join(", ", $dest, @args));
  }

  #
  # For regular (user-defined) and NCI (Native C <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	280	378	
==>bols in Parrot:

    % perl tools/dev/nm.pl parrot

=head1 DESCRIPTION

Portable frontend for C<nm( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567493	567580	
==>213 \"src/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->does(interpreter, {{\@2}}, {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568388	568475	
==>213 \"src/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->does(interpreter, {{\@2}}, {{\@ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	31077	31250	
==>is_eq = eq_hash(\%this, \%that);

Determines if the two hashes contain the same keys and values.  This
is a deep check.

=cut

sub eq_hash {
    local @Data_Stack;
    return <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443588	443686	
==>e 114 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444603	444701	
==>e 114 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	5537	5666	
==>tory
itself.

=cut

sub directories
{
    my $self = shift;

    return map {$self->directory_with_path($_)} $self->directory_path <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3517	3666	
==>AME)

Attempt to get a symbol from this block's symbol table only. If there is no
locally defined symbol with that name, then we return undef.

See al <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6823	7075	
==>lf->has_suffix )
	{
		return 0 if $self->suffix !~ m/[Tt][Xx][Tt]/o;
	}
	else
	{
		return 1 if $self->name =~ m/^[[:upper:]]+$/o;
	}
	
	return $self->type =~ /Licence|info|docu|Text|TODO|status|MANIFEST|README/;
}

=item C<title()>

Returns the title of <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	29120	29276	
==>uid;
sub rewrite_call {
    my ($self, $op, $name, $capture, $lastback) = @_;

#    if ($capture) {
#        local $op->{args}->[1] = 0;
#        return $sel <==
2	/Users/nnunley/parrot/lib/Test/More.pm	31483	31602	
==>bigger = keys %$a1 > keys %$a2 ? $a1 : $a2;
    foreach my $k (keys %$bigger) {
        my $e1 = exists $a1->{$k} ? $a1- <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7731	7937	
==>s
                        ?   map { $$_[1] } @$stack[ -$$dotpos .. -1 ]
                        :   ();

            $semval = $code ? &$code( $self, @sempar )
                            : @sempar ? $s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7380	7581	
==>s
                        ?   map { $$_[1] } @$stack[ -$$dotpos .. -1 ]
                        :   ();

            $semval = $code ? &$code( $self, @sempar )
                            : @sempar ? $s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52806	53068	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gc_debug",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inlin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53561	53823	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gc_debug",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inlin <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25257	25476	
==>"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 131,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	13269	13407	
==>t i;
    op_info_t * info = ${bs}op_lib.op_info_table;
    /* store full names */
    for (i = 0; i < ${bs}op_lib.op_count; i++)
        st <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756672	756784	
==>],
                  "BODY" => "#line 271 \"src/ops/set.ops\"\n  {{\@1}}->vtable->assign_string_native(interprete <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757462	757574	
==>],
                  "BODY" => "#line 271 \"src/ops/set.ops\"\n  {{\@1}}->vtable->assign_string_native(interprete <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32802	33019	
==>pe)>

Generate the C code for a C<return> statement.

=cut

sub gen_ret
{
    my ($self, $type) = @_;

    return "ret_val = ";
}

=item C<body($method, $line, $out_name)>

Returns the C code for the method body. C<$li <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37689	37834	
==>pe)>

Generate the C code for a C<return> statement.

=cut

sub gen_ret
{
    my ($self, $type) = @_;

    #return "ret_val = *($1*) " if ($type = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680484	680737	
==>,
                  "CODE" => 763,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 488 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1350	1469	
==>> <rx_len>; # past end of input?",
            '<rx_match>{0}->[0] = <rx_pos>; # group 0 start := pos');
}

sub output_i <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	30527	30626	
==>cted = $1;

but with C<extract_delimited> it can be simplified to:

	($extracted,$remainder) = extra <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465626	465890	
==>@1}}--;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dec",
                  "FLAGS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	466247	466511	
==>@1}}--;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dec",
                  "FLAGS <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	43023	43146	
==>--) {
    # work backwards over the lines, except the first (#2)
    
    #next unless $p->[$i]   =~ m{^#:([ \^\/\%]*)\n?$}s <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5299	5418	
==>AD_EXT";
        }

    }
}
else {
    die "invalid command '$mode'\nmust be one of generate, compile, linklibs, or copy <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5510	5629	
==>AD_EXT";
        }

    }
}
else {
    die "invalid command '$mode'\nmust be one of generate, compile, linklibs, or copy <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	31858	32165	
==>ne {
}

sub _op_write_char {
}

sub _op_load {
}

sub _op_transcript_on {
}

sub _op_transcript_off {
}

sub _op_let_syntax {
}

sub _op_letrec_syntax {
}

sub _op_define_syntax {
}

sub _op_syntax_rules {
}

sub _op_syntax {
}

sub _op_identifier_p {
}

sub _op_unwrap_syntax {
}

sub _op_free_identifier_eq <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38809	38938	
==>$ret_def = '';
    my $func_ret = '(void) ';
    my $ret_type = '';
    if ($method->{type} ne 'void') {
        my $type = $metho <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456196	456430	
==>[
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 235 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	639803	639971	
==>NTED, \n\t\t  \"uninplement class argument in instantiate\");\n\t  class = NULL; /* just for cc */\n\t  break;\n  }\n  {{\@1}} = VTABLE_instantiate(interpreter, class, s <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28218	28320	
==>ACE?'':'
			Parse::RecDescent::_trace(q{<<Didn\'t match terminal>>},
						  Parse::RecDescent::_tracef <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32493	32595	
==>ACE?'':'
			Parse::RecDescent::_trace(q{<<Didn\'t match terminal>>},
						  Parse::RecDescent::_tracef <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	4557	4711	
==>(0..$#args)
    {
        my $arg  = $args[$i];
        my $name = $arg->{name};
        
        $code .= emit("  .local pmc a_$name");
        # do we ne <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	1111	1232	
==>ed by the various opcodes. XXX This should go away
# Once PMI ports his lovely new perl6 code back into APL.

.sub "__load <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	247	349	
==>hich looks like it's
largely a copy of Parrot::Test::Python. Abstraction needed.

=cut

sub new {
    r <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	285	387	
==>hich looks like it's
largely a copy of Parrot::Test::Python. Abstraction needed.

=cut

sub new {
    r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759139	759442	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setref",
                  "FLAGS" => " <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	40722	40868	
==>----------------------------------------------------------------

sub __max_lengths {
  my $colref = shift;
  my @max_len=(0)x3;
  for my $row(@$co <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	1858	1967	
==>ir;
close $fh;

# And display count of ops that can be translated.
print "Currently able to translate " . scal <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65071	65234	
==>.$2",$1,$2,
										   $lookahead,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34849	34987	
==>a PROPER item-number element is allowed
             #  to have a number attribute.
          } elsif($item_type eq 'text') {
            $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15480	15604	
==>h @opcodes, @{ $nil->[1] };
    $result = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        're <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19233	19357	
==>h @opcodes, @{ $nil->[1] };
    $result = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        're <==
2	/Users/nnunley/parrot/config/gen/config_h.pm	532	622	
==>:Configure::Step::Base);

use Parrot::Configure::Step ':gen';

$description = 'Generating C <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6245	6377	
==>figure::Data>
object.

=cut

sub deltrigger
{
    my ($self, $key, $trigger) = @_;

    return
        unless defined $self->{trigger <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14284	14383	
==>tle>\n";
  $title = rtf_esc($title);
  DEBUG and print "Title1: <$title>\n";
  $title = '\lang1024\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60038	60298	
==>2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "warningsoff",
                  "FLAGS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60687	60947	
==>2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "warningsoff",
                  "FLAGS" = <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	5201	5462	
==>$recursive )
    {
        foreach my $dir ($self->directories)
        {
            next if defined $ignore and $dir->name =~ /$ignore/;
            
            push @files, $dir->files(1, $ignore);
        }
    }
    
    return @files;
}

=item C<directori <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27516	27636	
==>rser, $block, $expr ) = @_;
    my @opcodes    = ();
    my $l_continue = new_label($parser);
    my $l_break    = new <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	14972	15122	
==>}
		@a=EXPRESSION();   # CURR = "to", "," or EOL.
		feedme();
		if ($syms[CURR] eq "," or 
			$type[CURR] eq "STMT" or $type[CURR] eq "COMP") {
			prin <==
2	/Users/nnunley/parrot/config/auto/gc.pm	2501	2629	
==>es\$(O)",
            gc_flag   => '',
        );
    }
    print(" ($gc) ") if $conf->options->get('verbose');

    return $self <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4	102	
==>Arithmetic.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	983	1162	
==>D_EXT = qq[.bundle];
our $O = qq[.o];
our $CFLAGS = qq[-g -pipe -fno-common -no-cpp-precomp  -I/usr/local/include -pipe -fno-common -Wno-long-double  -I /opt/local/include   -g -Wa <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	329	440	
==>ols, code or data) of the Parrot lib.

First lists the Parrot public embedding API as described in the public
he <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	422	601	
==>shift;
    my @code = @_;

    foreach my $chunk (@code) {
        if ($chunk eq "\n") {
            push @{ $self->{raw_pir} }, "\n";
        } else {
            push @{ $self->{ <==
2	/Users/nnunley/parrot/examples/benchmarks/primes.pl	768	936	
==>REDO;}
  print $i6, "\nlast is: $i7\n";

=head1 SEE ALSO

F<examples/benchmarks/primes.c>,
F<examples/benchmarks/primes.pasm>,
F<examples/benchmarks/primes2_p.pasm>,
F<e <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	210	303	
==>lock/Conditional/Else.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use wa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834334	834528	
==>ck, {{\@1}}, STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835060	835254	
==>ck, {{\@1}}, STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	18337	18456	
==>/////////////////////////////

      my $content = join ' ', splice @$para, 2;
      $content =~ s/^\s+//s;
      $conte <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21307	21426	
==>/////////////////////////////

      my $content = join ' ', splice @$para, 2;
      $content =~ s/^\s+//s;
      $conte <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8952	9063	
==>h
{
    my $self = shift;
    my $path = shift || return;
    my ($volume, $directories, $name) = File::Spec->sp <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9351	9462	
==>h
{
    my $self = shift;
    my $path = shift || return;
    my ($volume, $directories, $name) = File::Spec->sp <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2263	2381	
==>halfpoint_size#\\ul{\n",
 '/head2'  => "\n}\\par}\n",
 'head3'   => "\n{\\pard\\li#rtfindent#\\s33\\keepn\\sb90\\sa180\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	372234	372450	
==>435,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 387 \"src/ops/io.ops\"\n  STRING ** const s = &{{\@1}};\n\n  *s = NULL;\n  PIO_pee <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	249	355	
==>on::Docs;

=head1 DESCRIPTION

A documentation section describing all the POD documentation in F<docs>.

=h <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	6441	6797	
==>rfail
#                  end[n] <- pos
#                  goto next
#
#           rfail: pop -> end[n]
#                  pop -> start[n]
#                  goto lastback
#
#            back: end[n] <- -2
#                  goto R.back
#
#            next:
#
# The 'back' part is used only so that $n within R does not return a
# now-abandoned match. I supp <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4260	4359	
==>nc_decl($core)>

Returns the C code for the run core function declaration.

=cut

sub run_core_func_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2748	2847	
==>nc_decl($core)>

Returns the C code for the run core function declaration.

=cut

sub run_core_func_ <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	13404	13531	
==>r) # shape
    .param pmc op1
    .return op1.'get_shape'()
.end

.sub unicode:"dyadic:\u2374" :multi (APLVector,APLVector) # re <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	7018	7135	
==>S

    use Class::Struct;
            # declare struct, based on array:
    struct( CLASS_NAME => [ ELEMENT_NAME => EL <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	1956	2083	
==>gument is an integer
    NUM       the argument is an numeric
    STR       the argument is an string
    PMC       the argument <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627386	627486	
==>it method\n   * copies the registers. */\n  {{\@1}} = pmc_new_noinit(interpreter, {{\@2}});\n  {{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628530	628630	
==>it method\n   * copies the registers. */\n  {{\@1}} = pmc_new_noinit(interpreter, {{\@2}});\n  {{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632642	632756	
==>nt){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633684	633798	
==>nt){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2416	2602	
==>ype = $right_sym->type;
  }
  else {
    $right_type = $right->type;
  }

#  $self->DEBUG(0, "Arithmetic with dest type $dest_type...");
#  $self->DEBUG(0, "Arithmetic with left type $lef <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	47041	47184	
==>-1', 0,
sub
#line 104 "Lua\lua51.yp"
{
            PushScope( $_[0] );
        }
	],
	[#Rule 14
		 'stat', 6,
sub
#line 108 "Lua\lua51 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	689495	689717	
==>" => 774,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 590 \"src/ops/pmc.ops\"\n   {{\@1}} = {{\@2}}->v <==
2	/Users/nnunley/parrot/config/inter/shlibs.pm	948	1074	
==>_shared'), $cc_shared);
    $cc_shared =
        prompt("\nWhat flags instruct your compiler to compile code suitable for use i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct.pm	189	281	
==>icense
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct.pm 196 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653472	653576	
==>rpreter, {{\@1}}))\n        real_exception(interpreter, resume, METH_NOT_FOUND,\n            \"Method '%s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654633	654737	
==>rpreter, {{\@1}}))\n        real_exception(interpreter, resume, METH_NOT_FOUND,\n            \"Method '%s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694305	694852	
==>",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 780,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i",
                              "p"
                            ],
                  "BOD <==
2	/Users/nnunley/parrot/config/init/miniparrot.pm	482	584	
==>e away
from using  Configure at all for miniparrot builds.

=cut

package init::miniparrot;

use strict <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4291	4406	
==>ode;" . $comment);
    if ($self->{DEBUG}) {
        push @ops, 'print "matched('.chr($code).') at ";';
        push <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1247	1361	
==>hanges made here will be lost!
 *
 */

#include "parrot/parrot.h"

/* proto is in embed.h, but we don't include any <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741546	741828	
==>set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 834,
                  "AR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563449	563968	
==>> ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 644,
                  "ARGS" => [
                              "p",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 183 \"src/ops/object.ops\"\n  VTABLE_add_method( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3399	3509	
==>d::PXML>, L<Pod::XML>, L<Pod::SAX>


=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All r <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3051	3161	
==>d::PXML>, L<Pod::XML>, L<Pod::SAX>


=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All r <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	1730	1827	
==>$PMC2C = "$PERL $PATHQUOTE" . q[/Users/nnunley/parrot/tools/build/pmc2c.pl] . $PATHQUOTE;

# Actua <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	1821	1918	
==>$PMC2C = "$PERL $PATHQUOTE" . q[/Users/nnunley/parrot/tools/build/pmc2c.pl] . $PATHQUOTE;

# Actua <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	30518	30698	
==>y ($n, $c, $cmt) = @_;
    my $w = pop @stack;
    my $v = pop @stack;
    my $x = temp('P');
    my $agg = promote($v);
    print <<EOC;
	$x = $agg\[$w->[1]\] $cmt
EOC
    push @st <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017996	1018086	
==>sultbuffer[26];\n  Parrot_gmtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018921	1019011	
==>sultbuffer[26];\n  Parrot_gmtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59708	59854	
==>or = 0;
		}
		elsif ($grammar =~ m/$ERRORPROD/gco)
		{
			pos($grammar)-=6;
			_parseunneg("a new (error) production", $aftererror,
				    $lookah <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	18462	18568	
==>@stack;
	my $n = temp($tos->[2]);
	print <<EOC;
	$n = not $tos->[1] $cmt
EOC
	push @stack, [-1, $n, $tos->[ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	166	267	
==>d: /parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm 19606 2006-05-30T15:08:05.048 <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2504	2599	
==>iscover backward branches until late to do
	# otherwise. Also, putting a label everywhere doesn' <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1082	1177	
==>iscover backward branches until late to do
	# otherwise. Also, putting a label everywhere doesn' <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1260	1373	
==>"No \$compiler!" unless $compiler;

  my $sym = $block->find_symbol($ident_name);

  confess "No such symbol '$ide <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	3206	3383	
==>ilds)
    if (-r $to) {
        my $from_sum = file_checksum($from, $ignorePattern);
        my $to_sum   = file_checksum($to,   $ignorePattern);
        return if $from_sum == $ <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11382	11503	
==>outfile_base.branches.html";
    print "Writing $outfile..\n" if $DEBUG;
    open (IN, "<$infile") or die "Can't read $inf <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	7455	7566	
==>m, pop @stack;
		}
		push @stack, $item;
		
	}
	push @stream, reverse @stack;	
	#print STDERR "Outta RPN convert <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	3674	3813	
==>ntval);
            last;
        }
    }
    if (!defined($hugeintval{hugeintvalsize})
        || $hugeintval{hugeintvalsize} == $intvalsiz <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	206	531	
==>pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Lexer;

use Carp;
use FileHandle;

use Jako::Token;

use base qw(Jako::Processor);


#
# CONSTRUCTOR:
#

sub new
{
  my $class = shift;
  my ($compiler) = @_;

  return bless {
    FILE     => undef,
    LINE     => undef,
    TOK <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54867	55122	
==>info(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55627	55882	
==>info(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	2073	2192	
==>_path\}/$mono_lib_path/g;
    $makefile =~ s/\$\{trans_class_library\}/$class_lib_make/g;
	
	# Write makefile.
	open <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	53871	53989	
==>(ref($_) eq 'HASH') {
      my $hr = $_;
      $x = "{" . join(", ",
        map(pretty($_) . '=>' . pretty($hr->{$_}), <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	10041	10165	
==>ess $_matched;
				  '
				: '';
	}

	$code .=
'
        unless ( $_matched || defined($return) || defined($score) )
	{
		' . <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1502	1635	
==>c: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
        return "return (0);"
    }
    else
    {
        return "if ((opcode_t <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2027	2159	
==>c: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
        return "return (0);"
    }
    else
    {
  	    return "if ((opcode_t <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	42963	43180	
==>T => -4,
		GOTOS => {
			'block' => 201,
			'chunk' => 57
		}
	},
	{#State 190
		DEFAULT => -86
	},
	{#State 191
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27 <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28812	29039	
==>r,
    );
    my $_limit = new_tmp( $parser, 'pmc', 'number' );
    push @opcodes, new LocalDir( $parser,
        'result' => $_limit,
    );
    my $_step = new_tmp( $parser, 'pmc', 'number' );
    push @opcodes, new Loc <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	6139	6306	
==>f'};
        DEBUG and print "That's it for that source scalarref!  Killing.\n";
      }

      
    } else {
      die "What source??";
    }
  }
  DEBUG and print "ge <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	32235	32378	
==>{$obj}) { # postponed LOAD_ like dict
	$o = temp('P');
	my $args = "";
	if ($builtins{$obj} eq 'v') {
	    my $arg = temp('P');
	    print <<EOC <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	8264	8554	
==>th different types, create a new seq
        # that has a child seq for each chunk.
        if (@chunks > 1) {
            my @children = map { rop('seq', $_) } @chunks;
            $t = rop('seq', \@children);
        }

        $t->{add_check_visited} = 1;
        return $self->add_checks <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	29366	29466	
==>d = "_rule_${name}_" . ++$call_uid;

    my $handle = $self->genlabel('handle_call_result');
    my $ <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	3845	4067	
==>xt run
                    keys(%templates);
                    last;
                }
            }

            # end of template definition?
            if (defined($template)) {
                $templates{$template} = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015091	1015329	
==>rpreter, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015915	1016153	
==>rpreter, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/config/auto/jit.pm	686	801	
==>ions->get('miniparrot')) {
        $self->set_result('skipped');
        return $self;
    }

    my $verbose = $con <==
2	/Users/nnunley/parrot/config/gen/cpu.pm	598	713	
==>ions->get('miniparrot')) {
        $self->set_result('skipped');
        return $self;
    }

    my $verbose = $con <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	10872	10974	
==>token_count <= ($max_token || 1_000_000)
    and defined(my $token = $self->get_token)
  ) {
    push @ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16434	16580	
==>method->{meth};
        next if $meth eq 'class_init';
        if ($self->implements($meth)) {
            my $ret = $self->body($method, $line, $o <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	23698	23837	
==>ne 'None') {
	    $nfix -= $nf;
	    BUILD_TUPLE($nfix, '', "\t\t #call_args");
	    my $t = pop @stack;
	    unshift @args, $t->[1];
	}
	fo <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	9637	9756	
==>type[CURR] eq "BARE" and (iskeyword($syms[CURR])
					and !isbuiltin($syms[CURR] ))));
		last if (not $parens and not $o <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	8190	8313	
==>struction or pir) not provided in rule " .
            "$rule->{'name'}\n";
    }

	# typeinfo must be supplied with op, loa <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2582	2681	
==>ind => 'infix', name => $self->op } });
    $self->left->sax($handler);
    $self->right->sax($handl <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2459	2558	
==>ind => 'infix', name => $self->op } });
    $self->left->sax($handler);
    $self->right->sax($handl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324689	324773	
==>c/ops/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}},{{\@2} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325482	325566	
==>c/ops/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}},{{\@2} <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	806	899	
==>row die_hard .emit .eom .sub .end .pcc_begin
    .pcc_end .pcc_sub .pcc_begin_return .pcc_end_ <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	559	751	
==>attern);

    $_ = <$spec_fh>;
    my @spec;
    while (1) {
         my ($input, $output);

         last if ! defined $_;
         die "INPUT: expected" if ! /^INPUT:/;

         # Gather inp <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1446	1570	
==>p the identifier:
  #

  my $name = $self->name;

  my $sym = $block->find_symbol($name);

  #
  # If the identifier is alrea <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	37817	37957	
==>name, splice @ell_content, 1+$j;
            # leaving only things before and including J
          
          @ell_content  = grep ref($_)|| <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39351	39483	
==>targ,
		"op"        => $op,
		"min"       => $minrep,
		"max"       => $maxrep,
		"rightarg"  => $rightarg,
		"expected"  => "<${type <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48534	48635	
==>if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_BOUNDS_FLAG); }\n  else         { Interp_fla <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49324	49425	
==>if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_BOUNDS_FLAG); }\n  else         { Interp_fla <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566903	567149	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "does",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567797	568043	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "does",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	4201	4345	
==>p_begin_1:
    if $I100 > $I102 goto loop_done_1 
    $P100[$I101] = $I100
    inc $I101
    inc $I100
    goto loop_begin_1
  loop_done_1:
    % <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227443	227706	
==>\@1}}), {{\@2}}) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228423	228686	
==>\@1}}), {{\@2}}) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12288	12397	
==>ument list
     /"Parrot_${1}_$method(" . full_arguments($2) . ')'/xeg;

    # Rewrite SUPER(args...)
    s/SU <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	1604	1725	
==>gure</code>. The steps are listed below in the order in
which they are performed.',
		$self->new_item('', 'Configure.pl'), <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	157	245	
==>ot::OpTrans::CSwitch - C Switch Transform

=head1 DESCRIPTION

C<Parrot::OpTrans::CSwitch <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175170	175295	
==>s/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_NUMCMP) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n <==
2	/Users/nnunley/parrot/languages/converter.pl	1375	1489	
==>ed $item[1][0];
		  $return .= "# $item[2]\n";
		  $return .= $item[3][0] if defined $item[3][0];
 		}
		| terminal <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8663	8749	
==>ATE","PHASERS","QUIT"
data "SHIELDS","SOS","SRSCAN","STATUS","TORPEDO","TRANSFER","VISU <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21527	21613	
==>ATE","PHASERS","QUIT"
data "SHIELDS","SOS","SRSCAN","STATUS","TORPEDO","TRANSFER","VISU <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11325	11460	
==>TERP\b/interpreter/g;

    return $_;
}

=item C<rewrite_vtable_method($class, $method, $super, $super_table)>

Rewrites the method body <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12018	12126	
==>where down the line, with
        # Parrot/PackFile/ConstTable.pm.html being turned into
        # Parrot/Pac <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106203	1106325	
==>ntal.ops\"\n    int typ = {{\@2}};\n    if (typ < 1 || typ >= interpreter->n_vtable_max)\n\treal_exception(interpreter, NUL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107179	1107301	
==>ntal.ops\"\n    int typ = {{\@2}};\n    if (typ < 1 || typ >= interpreter->n_vtable_max)\n\treal_exception(interpreter, NUL <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	4935	5079	
==>e'   , 250,
 'ucirc'    , 251,
 'uuml'     , 252,
 'yacute'   , 253,
 'thorn'    , 254,
 'yuml'     , 255,

 'fnof'     , 402,
 'Alpha'    , 913, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584652	584775	
==>terpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, NULL);\n  {{=next}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585727	585850	
==>terpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, NULL);\n  {{=next}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1571	1716	
==>}]
if ${PTEMP0} == "" goto NOWT_TO_PROPOGATE
stack_depth = prop_stack_depth[${PC}]
NOWT_TO_PROPOGATE:
PIR

	# Return.
	return $pir;
}

# Pre and p <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	10205	10318	
==>, $type, $reg) = @_;
    $reg = value($reg);
    return ".param $type $reg";
}


sub output_return {
    my ($self <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34824	34923	
==>ined $::RD_TRACE;').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDescent::failed+ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41934	42033	
==>ined $::RD_TRACE;').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDescent::failed+ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27509	27626	
==>y ( $parser, $block, $expr ) = @_;
    my @opcodes    = ();
    my $l_continue = new_label($parser);
    my $l_brea <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054318	1054410	
==>PMC_IS_NULL({{\@2}}))\n\tinternal_exception(1, \"Tried to get from null namespace.\");\n    i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055445	1055537	
==>PMC_IS_NULL({{\@2}}))\n\tinternal_exception(1, \"Tried to get from null namespace.\");\n    i <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	17867	18086	
==>reter, pmc_nci, signature);

#endif
    if (result)
        return result;

    /* And in here is the platform-independent way. Which is to say
       "here there be hacks" */
    UNUSED(pmc_nci);
    signature_len = str <==
2	/Users/nnunley/parrot/config/gen/config_h.pm	1127	1320	
==>parrot/has_header.h";
    open(HH, ">$hh.tmp")
        or die "Can't open has_header.h: $!";

    print HH <<EOF;
/*
** !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
**
** This file is generated aut <==
2	/Users/nnunley/parrot/examples/benchmarks/primes2.pl	134	255	
==>i==$max){
	last;
    }
}
printf("N primes calculated to %d is %d\nlast is: %d\n",$max,$i6,$i7);

sub isprime1
{
    my($in <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27893	27989	
==>lassname}_class_init(Parrot_Interp, int, int);
EOC
    $self->{hdecls} .= $hout;
    $self->{hdec <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15396	15539	
==>');

  my $return = $self->_generate (_get_arg($node,1));
  die "set-car!: Element not pair\n" unless $return =~ /^P/;
  my $value = $self->_gen <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	410234	410545	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "send",
                  "FLAGS" => ":base_network", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411126	411437	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "send",
                  "FLAGS" => ":base_network", <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	2392	2546	
==>->{rules}} )
			{ $self->{rules}{$_}{changed} = 1 }

		print OUT "package $class;\nuse Parse::RecDescent;\n\n";

		print OUT "{ my \$ERRORS;\n\n";

		print <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	3515	3874	
==>++;
                    $values{$1} = $last_val;
                    local $_ = "$prefix$1\t$last_val";
                    eval $subst if ($subst ne '');
                    print INC ".constant $_\n";
                }
            } elsif ($in_def eq 'template') {
                if (/match{(.*)}/) {
                    $match = $1;
                    nex <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	32457	32559	
==>d($text, "'", '', "'");

	# Extract a single- or double- quoted substring from the
	# beginning of $tex <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32737	32888	
==>= @_;
    $self->implements_vtable($meth);
}

=item C<gen_ret($type)>

Generate the C code for a C<return> statement.

=cut

sub gen_ret
{
    my ($self <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	26552	26776	
==>re it.
      } else {
        $list_type = 'block';
      }
      $para->[1]{'~type'} = $list_type;
      push @$curr_open, $para;
       # yes, we reuse the paragraph as a stack item
      
      my $content = join ' ', spli <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11538	11633	
==>E_CALL_END_${CURIC}

# Do we have anything on the lazy moves stack?
${ITEMP0} = elements lazy_mo <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	11728	11857	
==>$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);
  for(_get_args($node)) {
    my $tem <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	5148	5269	
==>ing: $!!\n";


#
# Print the preamble for the HEADER and SOURCE files:
#

my $preamble = <<END_C;
/* ex: set ro:
 * !!!!!! <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1107	1225	
==>ame()> to individuate op function names.

=cut

sub prefix 
{ 
    return 'Parrot_'; 
}

=item C<suffix()>

Implemented <==
2	/Users/nnunley/parrot/Configure.pl	7643	7757	
==>tion:

   --without-icu        Build parrot without ICU support
   --icuheaders=(path)  Location of ICU headers wit <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	1869	1976	
==>pected, $description)>

Runs the Parrot Assembler code and passes the test if a string comparison
of the out <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	2310	2417	
==>pected, $description)>

Runs the Parrot Assembler code and passes the test
if a string comparison of the out <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	1453	1555	
==>t', '")"'],
  ['write_RET',    'returncc'],
 ],
 apply => 
 [['# Apply function'],
  ['apply_ENTRY', 's <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	932	1034	
==>ost_op not implemented for current stack to register mapper\n";
}

# Pre and post branch operation hook <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62896	63019	
==>s;
					}
					else
					{
						$item = new Parse::RecDescent::Repetition($name,$1,0,$MAXREP,
										   $lookahead,$line <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5806	5898	
==>sh @{$code{$seg}->{code}}, "IFBRANCH_$_:\n";
			}
			while($_=pop(@{$elsestack->{$elsetag}})) <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8152	8242	
==>sh @{$code{$seg}->{code}}, "IFBRANCH_$_:\n";
		}
		while($_=pop(@{$elsestack->{$elsetag}})) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	524815	525115	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "acos",
                  "FLAGS" => ": <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6474	6566	
==>f->_new_pair;
  $self->_add_inst('', 'set', [$pair.'[0]',$item]);
  $self->_add_inst('', 'set <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52802	53065	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gc_debug",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53557	53820	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gc_debug",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "in <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20150	20262	
==>ny German
  1036  France French
  3084  Canada French
  1035  Finnish
  1044  Norwegian (Bokmal)
  2068  Norwegia <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	1869	1976	
==>s what
   we've documented should be done -- but the problem is that the
   stack base pointer will be NULL. <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	2560	2676	
==>>) {
        if ($line =~ m/^#define/) {
            $line =~ s/PREV_OP\s(..?)\s(\w+)/(jit_info->prev_op) && (*jit_in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	26034	26129	
==>\"src/ops/core.ops\"\n  PMC * const p = CONTEXT(interpreter->ctx)->current_cont;\n  opcode_t * c <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Transcode.pm	135	271	
==>\&Pod::Simple::DEBUG; }
  else { *DEBUG = sub () {0}; }
}

foreach my $class (
  'Pod::Simple::TranscodeSmart',
  'Pod::Simple::Transcode <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453417	453705	
==>> "add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 520,
                  "ARGS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210207	210299	
==>=> "#line 408 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211187	211279	
==>=> "#line 408 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable-> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	163	269	
==>Id: /parrot/languages/jako/lib/Jako/Construct/Type.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use stri <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	2691	2836	
==>e (<$fh>) {
        chomp;
        $line++;

        # If it's a blank line or a comemnt line, skip it.
        next if !$in_heredoc && /^\s*#|^\s <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6436	6541	
==>hange=FALSE
   ' Compare the array elements by pairs. When two are exchanged,
   ' force another pass by s <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16089	16194	
==>hange=FALSE
   ' Compare the array elements by pairs. When two are exchanged,
   ' force another pass by s <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	25984	26102	
==>st/More>

=item L<Test/Builder>

=back

=cut

sub report_odd_hash {
    my $warning = shift;
    if ($warning =~ /Odd n <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	12433	12563	
==>ll_name .": $jit_func $extern\n";
        }
        # some specials
        elsif ($op->full_name eq 'if_p_ic') {
            $jit_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	559	660	
==>~~~~~~~~~~~~~~
my @_to_accept;

%Tagmap = (
  'Verbatim'  => "\n<pre$Computerese>",
  '/Verbatim' => " <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17149	17323	
==>, 'pmc' );
                push @opcodes, new LocalDir( $parser,
                    'result' => $result,
                );
                push @opcodes, new KeyedGetOp( <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18198	18324	
==>, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new KeyedGetOp( <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	2696	2870	
==>t = '';
    }
    elsif( $base_type eq 'ARRAY' ){
        $out .= "    my(\$r) = [];\n";
    }
    while( $idx < @decls ){
        $name = $decls[$idx];
        $type = $decls <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	3879	3983	
==><file_for_perl_module($module)>

Returns the Perl module file for the specified module.

=cut

sub file_f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363464	363572	
==>) {\n    STRING * const s = Parrot_sprintf_c(interpreter, \"%f\", (double){{\@2}});\n    PIO_putps(interprete <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364367	364475	
==>) {\n    STRING * const s = Parrot_sprintf_c(interpreter, \"%f\", (double){{\@2}});\n    PIO_putps(interprete <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79369	79493	
==>\n      /* At this point we have the symbol's address. We just need to build\n         a PMC with it so we can get and set th <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80890	81014	
==>\n      /* At this point we have the symbol's address. We just need to build\n         a PMC with it so we can get and set th <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	322	417	
==>:Construct::Expression::Value;

use base qw(Jako::Construct::Expression);

use Jako::Token;

use <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	3012	3237	
==>m_include{$1}{$file}++;
            next;
        }
        
        if (! $file && /^FILE : '(.*)'$/) {
            $file = $1;
            next;
        }
        
        # skip anything between files.
        next unless $ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	2869	2994	
==>e anything else, you need a testing plan.  This basically declares
how many tests your script is going to run to protect again <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1392	1674	
==>DO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1392	1674	
==>DO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114982	115405	
==>RS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 143,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#li <==
2	/Users/nnunley/parrot/lib/Test/More.pm	5690	5825	
==>d that you use it.


=head2 I'm ok, you're not ok.

The basic purpose of this module is to print out either "ok #" or "not
ok #" dependi <==
2	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1986	2121	
==>kage LabelOp;
use base qw(Lua::opcode);

package BranchOp;
use base qw(Lua::opcode);

package BranchIfOp;
use base qw(Lua::opcode <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	14410	14585	
==>lder->skip( "no native tests with -r" );
            }

            my ( $exit_code, $cmd );
            unless ( $run_exec ) {
                if ( $args =~ s/--run-pbc// || $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	4458	4568	
==>ndler) foreach $self->args;
  $handler->end_element({ Name => 'call' });

  $handler->end_element({ Name => 'as <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	10643	10779	
==>ath.h
fminl       math.h
fmod        math.h
fmodf       math.h
fmodl       math.h
fopen       stdio.h
fpclassify  math.h
fprintf     stdi <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	6531	6621	
==>g32 -ladvapi32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid -lws2_32 -lmpr -lwinmm -lvers <==
2	/Users/nnunley/parrot/config/init/hints/msys.pm	422	512	
==>g32 -ladvapi32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid -lws2_32 -lmpr -lwinmm -lvers <==
2	/Users/nnunley/parrot/config/init/defaults.pm	2125	2361	
==>nfig{cc},
        linkflags => $Config{ldflags},

        # Linker Flags to have this binary work with the shared and dynamically
        # loadable libraries we're building.  On HP-UX, for example, we need to
        # allow dynamic lib <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931920	932218	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":ba <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932691	932989	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":ba <==
2	/Users/nnunley/parrot/examples/benchmarks/oofib.pl	332	470	
==>[0] }
sub fibB {
    my $self = shift;
    my $n = shift;
    return $n if ($n < 2);
    return $self->fib($n-1) + $self->fibA($n-2);
}

pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85918	86338	
==>"NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 107,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	250082	250346	
==>+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "not",
                  "FLAGS" => ":base_c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	251481	251745	
==>+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "not",
                  "FLAGS" => ":base_c <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_assignments.pm	224	322	
==>0
#
# No implicit conversions into/from STRING
sub ASSIGNMENT_FUNC {
	my($varname)=@_;	# P6 already <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5506	5630	
==>{$vtable}) {
    next if ($entry->[4] =~ /MMD_/);
    $macros .= <<"EOM";
        \"__$entry->[1]\",
EOM
    }
    $macros .= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822356	822457	
==>_ENTRY_INT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823424	823525	
==>_ENTRY_INT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1 <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	7298	7552	
==>_share_flags       => '-shared ',
            libparrot_ldflags    => $conf->data->get('build_dir') . '/libparrot.dll',
            ncilib_link_extra    => 'src/libnci_test.def',
            sym_export           => '__declspec(dllexport)',
            sym <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	80	173	
==>ure/Data.pm 20321 2006-06-20T20:02:00.179448Z bernhard  $

=pod

=head1 NAME

Parrot::Configur <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	969	1065	
==>LOAD_EXT = qq[.bundle];
our $O = qq[.o];
our $CFLAGS = qq[-I/opt/local/include -fno-common -no-cp <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	973	1069	
==>LOAD_EXT = qq[.bundle];
our $O = qq[.o];
our $CFLAGS = qq[-I/opt/local/include -fno-common -no-cp <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4672	4841	
==>t2, EQ_$eqnum
	branch EQ_${eqnum}_false
EQ_$eqnum: set $result, 1.0
EQ_${eqnum}_false: noop
CODE
	},
	'not' => sub {
		my($a1,$a2,$result,$op,$ot1,$ot2)=@_;
		$result=~s/ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2409	2500	
==>0]->emit_par( 0) }
sub end_item_bullet { $_[0]->emit_par( 0) }
sub end_item_number { $_[0]-> <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1977	2068	
==>0]->emit_par( 0) }
sub end_item_bullet { $_[0]->emit_par( 0) }
sub end_item_number { $_[0]-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1279	1391	
==>)cur_opcode)[o])

END
}

=item C<goto_address($address)>

Transforms the C<goto ADDRESS($address)> macro in an op <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	22121	22317	
==>ct _vtable temp_base_vtable = {
        NULL,	/* namespace */
        $enum_name,	/* base_type */
        NULL,	/* whoami */
        $vtbl_flag, /* flags */
        NULL,   /* does_str */
        N <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	245360	245782	
==>RS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 285,
                  "ARGS" => [
                              "i",
                              "p",
                              "p"
                            ],
                  "BODY" => "#l <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	16923	17030	
==>nitial]* (\\.[^\\$initial]*)* \Q$initial\E /gcsx)
		{
			_failmsg qq{Did not find closing delimiter to match <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	4769	4916	
==>e *s.
        $text =~ s|\b\s*\*\s+\b| \*|gs;
        
        esc($text);
    }
    
    print {$self->{'output_fh'}} $text;
}

=item C<process_fil <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	10943	11146	
==>scanf      stdio.h
fseek       stdio.h
fsetpos     stdio.h
ftell       stdio.h
fwrite      stdio.h
getc        stdio.h
getchar     stdio.h
getenv      stdlib.h
gets        stdio.h
gmtime      time.h
hypot <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	370	584	
==>truct::Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  return bless {
    TOKEN    => $token,
    CODE     => 'I',
    NAME     => 'int',
    IMCC     => 'int',
    IMCC_PMC => 'Integer'
  }, $class;
} <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	4876	5103	
==>|| '',
      $tok->text;

    last if $tok->is_eof;
  }

=cut

}


#
# require()
#
# Require consumes and returns the token if the requirement is met, otherwise
# a Syntax Error is raised.
#
# If more than one type is specified, <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	22722	22866	
==>) {
			my $var=$syms[CURR];
			feedme;  # "as"
			feedme;  # type.
			die "Unknown type $syms[CURR]" unless exists $usertypes{$syms[CURR]};
			my <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	9780	9896	
==>hird forms is
based on an array, whereas an object of a class created by the
second form is based on a hash. The arra <==
2	/Users/nnunley/parrot/config/auto/gc.pm	1518	1644	
==>somewhere here
    unless ($test >= 128 && $test < 155) {
      # if not, use own copy of malloc
      $gc = 'malloc';
    }

= <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	2190	2341	
==>IN',
    'o'  => 'PARROT_ARGDIR_OUT',
    'io' => 'PARROT_ARGDIR_INOUT'
);

#
# Look at the command line options
#
sub Usage {
    pod2usage(-exitval => <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37471	37571	
==>->{"name"} . '})
					if defined $::RD_TRACE;').'
		$Parse::RecDescent::lastexpected = ' . ($rule->ha <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39874	39974	
==>->{"name"} . '})
					if defined $::RD_TRACE;').'
		$Parse::RecDescent::lastexpected = ' . ($rule->ha <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863940	864102	
==>"s"
                            ],
                  "BODY" => "#line 143 \"src/ops/string.ops\"\n  UINTVAL n;\n  STRING *s = {{\@2}};\n  if (!s)\n    n = 0;\n  el <==
2	/Users/nnunley/parrot/config/auto/signal.pm	570	711	
==>data->set(
        has___sighandler_t => undef,
        has_sigatomic_t    => undef,
        has_sigaction      => undef,
        has_setitime <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	903	1004	
==>foreach my $func ( keys %language_test_map ) {
    no strict 'refs';

    *{"Parrot::Test::Bc::$func"} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964295	964848	
==>cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1085,
                  "ARGS" => [
                              "i",
                              "i",
                              "s",
                              "i"
                            ],
                  "BOD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967318	967713	
==>cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1088,
                  "ARGS" => [
                              "i", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355491	355722	
==>NAME" => "write",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 4 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037342	1037699	
==>[
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1159,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 115 \"sr <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2706	2802	
==>nce
PRINT "1 in module-level code"
GOSUB Sub1
PRINT "ERR this line in main routine should be skip <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16673	16769	
==>nce
PRINT "1 in module-level code"
GOSUB Sub1
PRINT "ERR this line in main routine should be skip <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	262	374	
==>erl tools/dev/parrot_coverage.pl recompile
    % perl tools/dev/parrot_coverage.pl 

=head1 DESCRIPTION

This scr <==
2	/Users/nnunley/parrot/config/gen/platform.pm	689	783	
==>orm = "ansi"  if defined($conf->options->get('miniparrot'));
    $platform = "win32" if $platfo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133956	134231	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134737	135012	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243996	244255	
==>});\n  {{\@1}} = string_compare(interpreter, l, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244928	245187	
==>});\n  {{\@1}} = string_compare(interpreter, l, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4075	4172	
==>t).

This is a subclass of L<Pod::Simple> and inherits all its methods.

=head1 SEE ALSO

L<Pod::S <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828102	828536	
==>ack",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 937,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 159 \" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539605	539897	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":adv <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066147	1066439	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":adv <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	33861	34005	
==>py's tagname to nil
          die "SANITY FAILURE" if $treelet->[0] eq ''; # should never happen!
          DEBUG > 1 and print
           qq{Cat <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	11910	12097	
==>f     math.h
llrintl     math.h
llround     math.h
llroundf    math.h
llroundl    math.h
localeconv  locale.h
localtime   time.h
log         math.h
log10       math.h
log10f      math.h
lo <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2767	2895	
==>YAccept {
	my($self)=shift;

	${$$self{CHECK}}='ACCEPT';
    undef;
}

sub YYError {
	my($self)=shift;

	${$$self{CHECK <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2639	2757	
==>YAccept {
	my($self)=shift;

	${$$self{CHECK}}='ACCEPT';
    undef;
}

sub YYError {
	my($self)=shift;

	${$$self{CHECK <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	154	280	
==>er.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
e <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1290	1410	
==>l = $got.perl;
    my $expected_perl = $expected.perl;
    my $test := ($got_perl eq $expected_perl);
    Test::proclaim( <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20817	20957	
==>ode->{children}[$1]);
    $self->_add_inst('','lt',[$temp_0,$temp_1,"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('', <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3296	3412	
==>se   asm ("edi");
#else
    opcode_t *cur_opcode = cur_op;
    char * _reg_base;
#endif

SWITCH_RELOAD:
    _reg_base <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	212	337	
==>=head1 SYNOPSIS

    % perl tools/dev/parrot_api.pl [libfile]

=head1 DESCRIPTION

Displays the API (the visible symbols, code <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	12364	12604	
==>bose) = @_;

    $progs = [$progs] unless ref $progs eq 'ARRAY';

    print "checking for program: ", join(" or ", @$progs), "\n" if $verbose;
    foreach my $prog (@$progs) {
        my $util = $prog;

        # use the first word in the st <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15128	15261	
==>) {  # return an array
    return map {; ($x = $_) =~
      s/([F\x00-\x1F\-\\\{\}\x7F-\xFF])/$Escape{$1}/g;  # ESCAPER
      $x =~ s/ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	292	411	
==>,"");
        @syms[0..2]=("","","");
	$seg="_basicmain";
}
sub feedme {
	my $type=shift @tokdsc;
	my $sym=shift @tokens <==
2	/Users/nnunley/parrot/languages/perms.pl	207	348	
==>y $i = 0;
    while (++$prefix[$i] > $#$things ) {
      $prefix[$i] = 0;
      $i++;
      last if $i > @prefix;
    }
    
    if ( $prefix[ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	210	305	
==>CRIPTION

C<Parrot::OpTrans::CSwitch> inherits from C<Parrot::OpTrans::CPrederef>
to provide a m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156218	156659	
==>",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 189,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic"
                            ],
                  " <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	4784	4928	
==>{
            last if $vers > $gccversion;
            next unless $opt; # Ignore blank lines

            if ($opt =~ /-mno-accumulate-outgoing- <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	9189	9456	
==>ts)=@_;
	my $parens;
	my @expr;

	goto PROCEXP_NOFEED if $opts{lhs};
	goto PROCEXP_NOFEED if $opts{nofeed};
	feedme();

PROCEXP_NOFEED:
	while(1) {
		$parens++ if ($syms[CURR] eq "(");
		$parens-- if ($syms[CURR] eq ")");
		#print "Read $syms[CURR]...";
		last if (not <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	7	107	
==>er.pm
#
# Copyright (C) 2001-2005, The Perl Foundation.
# This program is free software. It is subjec <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1103	1222	
==>> $out_f );
    unless ($pass) {
        my $file = Parrot::Test::slurp_file($out_f);
        $pass =$self->{builder}->i <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1144	1263	
==>> $out_f );
    unless ($pass) {
        my $file = Parrot::Test::slurp_file($out_f);
        $pass =$self->{builder}->i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	3864	4006	
==>es => { type => $self->type->name, name => $self->name } });
  $self->value->sax($handler);
  $handler->end_element({ Name => 'const' });
}


1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	4438	4591	
==>LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "preder <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3863	3957	
==>the syntactic validity of Pod.
It works by basically acting like a simple-minded version of
L<P <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8472	8578	
==>land
  $Name2character{'lt'  }   = '<';
  $Name2character{'gt'  }   = '>';
  $Name2character{'quot'}   = '" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	230315	230583	
==>, {{\@2}}, MMD_NUMCMP) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	504	677	
==>ap {;
   m/^([-A-Za-z]+)=(\w[^\=]*)$/s or die "what's <$_>?";
   ( $1,  "{\\$2\n",   "/$1",  "}" );
 } @_;
}

my @_to_accept;

%Tagmap = (
 # 'foo=bar' means ('foo' => '{\bar <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6824	6932	
==>f = shift;
	my $need_dest = shift;
	my $pir = "";

	# If we need a destination, we simply supply the register <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4762	4870	
==>f = shift;
	my $need_dest = shift;
	my $pir = "";

	# If we need a destination, we simply supply the register <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	6617	6719	
==>}}(@_[0..2], "gt") });

sub convert_to_rpn {
	my(@expr)=@_;

	#print STDERR "In RPN Convert...\n";
	# C <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938563	938679	
==>ring.ops\"\n    {{\@1}} = string_join(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939453	939569	
==>ring.ops\"\n    {{\@1}} = string_join(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	700	811	
==>:Identifier');

  my $self = bless {
    BLOCK => $block,
    IDENT => $ident
  }, $class;

  $block->push_conte <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	700	811	
==>:Identifier');

  my $self = bless {
    BLOCK => $block,
    IDENT => $ident
  }, $class;

  $block->push_conte <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	2431	2622	
==>ile
/usr/parroty/bin/snork-compile.

=head1 SEE ALSO

F<tools/dev/mk_manifests.pl>

=cut

################################################################################

use File::Basename q <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	22359	22465	
==>Regex/Grammar.y"
{ return [ 'neg', [] ]; }
	],
	[#Rule 39
		 'classpieces', 2,
sub
#line 170 "lib/Regex/Gra <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369479	369593	
==>o.ops\"\n  {{\@1}} = PIO_reads(interpreter, {{\@2}}, (size_t){{\@3}});\n  {{+=4}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	370364	370478	
==>o.ops\"\n  {{\@1}} = PIO_reads(interpreter, {{\@2}}, (size_t){{\@3}});\n  {{+=4}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	3172	3330	
==>eter'], 
                'sources' => [
                    'inter_cb', 'inter_create', 'inter_misc', 'inter_run'
                ], 
                'headers' <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	15006	15220	
==>ds};
                if ($super_mmd && scalar @{ $super_mmd }) {
                    ##print "** @{ $super_mmd } **\n";
                    push @{ $self->{super_mmd} },
                        { $pname => $super_mm <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	428	569	
==>::Construct::Type;


#
# new()
#

sub new
{
  my $class = shift;

  my ($block, $type, $ident) = @_;

  confess "Block (". ref($block) . ") is <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20278	20382	
==>nt::_trace(q{>>Matched production: ['
					  . $self->describe . ']<<},
					  Parse::RecDescent::_tracef <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	3918	4040	
==>s the Perl module file for the specified module.

=cut

sub file_for_perl_module
{
    my $self = shift;
    my $module = s <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	4222	4379	
==>le',
        commentType                    => '#',
        replace_slashes                => 1
    );
    genfile(
        'languages/HQ9plus/config/makefile <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10195	10313	
==>caper
    .local pmc ehs, eh, ss_propogate, ss
    .local string gen_pir, loadreg, storereg, err, str_ic, tmp
    .loca <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	623	875	
==>tem
{
    my $self = shift;
    
    return $self->c_item(shift, 'headers' => [@_]);
}

=item C<c_source_item($text, @names)>

Returns a C source files documentation item.

=cut

sub c_source_item
{
    my $self = shift;

    return $self->c_item(shift, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	15698	15874	
==>'} ||= []);

  my $scratch;

  DEBUG > 10 and print "# Paragraph buffer: <<", pretty($paras), ">>\n";

  # We have something in our buffer.  So apparently the document has start <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5938	6089	
==>}
          or next;
        ($group) = keys %$group;
        $pmc_group{$pmc} = $group;
        push @{ $group_files{$group} }, $pmc;
        $group_li <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6149	6300	
==>}
          or next;
        ($group) = keys %$group;
        $pmc_group{$pmc} = $group;
        push @{ $group_files{$group} }, $pmc;
        $group_li <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76735	76840	
==>E>1
	    && $::RD_TRACE+10<length($_[0]))
	{
		my $count = length($_[0]) - $::RD_TRACE;
		return substr($_ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77046	77151	
==>E>1
	    && $::RD_TRACE+10<length($_[0]))
	{
		my $count = length($_[0]) - $::RD_TRACE;
		return substr($_ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	27162	27391	
==>, 
                    reason    => 'incrementing test number', 
                    type      => 'unknown', 
                    name      => undef 
                });
            }
        }
        # If backward, wipe history. <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	71	188	
==>v/parrot_coverage.pl 19607 2006-05-30T15:23:20.183054Z coke  $

=head1 NAME

tools/dev/parrot_coverage.pl - Run covera <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	2892	3140	
==>_[0] ? \$_[0] : \$_;
	my $wantarray = wantarray;
	my $del  = defined $_[1] ? $_[1] : qq{\'\"\`};
	my $pre  = defined $_[2] ? $_[2] : '\s*';
	my $esc  = defined $_[3] ? $_[3] : qq{\\};
	my $pat = gen_delimited_pat($del, $esc);
	my $startpos = pos $$t <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	699	846	
==>e the relative path from the page to
F<docs/resources>, the image and CSS file directory.

=cut

sub header
{
    my $self = shift;
    # Default va <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	1917	2016	
==>e the relative path from the page to
F<docs/resources>, the image and CSS file directory.

=cut

sub <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	5441	5563	
==>eNum="dsDecVal" />
      <itemData name="Label" defStyleNum="dsKeyword" />
      <itemData name="Register" defStyleNum="dsD <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	1507	1636	
==>}
gather();

sub output {
    my @r;
    my $curlabel = "\t";
    for my $op (@_) {
	if (! ref($op)) {
	    push @r, $curlabel . $ <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	6517	6679	
==>ep { ! /^_/ } sort keys %defined_in;
    
    my @external_symbols = sort grep { ! defined($defined_in{$_}) } @symbols;
    my @internal_symbols = sort grep { defi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	952	1145	
==>engroup P0, $n";
}

sub output_end {
    my ($self, $n) = @_;
    return "re_closegroup P0, $n";
}

sub output_fail {
    return "re_fail P0";
}

sub output_match_succeeded {
    return "re_succ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12568	12700	
==>ef_for_perl_module
{
    my $self = shift;
    my $module = shift;
    
    # This is not very obvious, so let me explain. We get the <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17649	17769	
==>alse "
if i or  j then b$="True  " else b$="False "
if i xor j then c$="True  " else c$="False "
if i eqv j then d$="True <==
2	/Users/nnunley/parrot/tools/docs/pod_errors.pl	679	789	
==>ath, 
		' has ', 
		$file->num_pod_errors, 
		' error',
		$file->num_pod_errors != 1 ? 's' : '', 
		":\n",
		$e <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	7716	7830	
==>local *OLDERR if $err;

    # Save the old filehandles; we must not let them get closed.
    open  OLDOUT, ">&STDOU <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7767	7880	
==>local *OLDERR if $err;

    # Save the old filehandles; we must not let them get closed.
    open OLDOUT, ">&STDOU <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	2644	2776	
==>);\n";
    }

    return $defs;
}

=item C<vtbl_struct($vtable)>

Returns the C C<struct> definitions for the elements in the referen <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	704	808	
==>ock,

    TOKEN  => $token,
    VALUE  => $token->text,
    SCOPE  => $block->scope_of_ident($token->text <==
2	/Users/nnunley/parrot/config/auto/msvc.pm	546	646	
==>f, $conf) = (shift, shift);

    my $verbose = $conf->options->get('verbose');

    cc_gen("config/au <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	438	547	
==>case$ left$ len loc lof log lpos ltrim$
		    mid$ mkd$ mkdmbf$ mki$ mkl$ mks$ mksmbf$
		    peek pen play pma <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632592	632697	
==>LASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633634	633739	
==>LASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	8159	8463	
==>($classname, $method, $for_header)>

Returns the C code for the PMC method declaration. C<$for_header>
indicates whether the code is for a header or implementation file.

=cut

sub decl() {
    my ($self, $classname, $method, $for_header) = @_;

    my $ret = $method->{type};
    my $meth= $method->{meth <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18045	18149	
==>de{$seg}->{code}}, "DO_$docounter:\n";
		push(@dos, { jump => $docounter, needstmt => 1 });
	}
}
sub pars <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4480	4599	
==>{ $self->{args} } == 0) {
        delete $self->{name};
        delete $self->{args};
        return $self->op('nop', [] <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5617	5736	
==>{ $self->{args} } == 0) {
        delete $self->{name};
        delete $self->{args};
        return $self->op('nop', [] <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	37846	37974	
==>$j;
            # leaving only things before and including J
          
          @ell_content  = grep ref($_)||length($_), @ell_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	17252	17410	
==>l get munged.

  # And some refinements:
  "\cm"  => "\n",
  "\cj"  => "\n",
  "\n"   => "\n\\line ",

  "\t"   => "\\tab ",     # Tabs (altho theoretically ra <==
2	/Users/nnunley/parrot/config/inter/progs.pm	3083	3179	
==>libpath:\S+//g;   # XXX No idea why.
    $ldflags = integrate($ldflags, $conf->options->get('ldfl <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	235	730	
==>SIS

    % perl tools/dev/gen_manifest_skip.pl > MANIFEST.SKIP

=head1 DESCRIPTION

Goes through the Parrot directories and ask about the svn:ignore property.
Print content for a MANIFEST.SKIP file to STDOUT.

=cut

use strict;
use FindBin;
use lib "$FindBin::Bin/../../lib";

use Data::Dumper;
use Parrot::Distribution;

my $dist = Parrot::Distribution->new();

my $skip = $dist->gen_manifest_skip();

my $header = '# $' . 'Id' . '$' . "\n" . << 'END_HEADER';   # confuse SVN
# generated by tool <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	622167	622395	
==>(void**)cur_opcode)[1] = mic->m.sig;\n    {{+=0}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	624021	624249	
==>(void**)cur_opcode)[1] = mic->m.sig;\n    {{+=0}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	2839	2981	
==>ools/dev/symlink.pl'),
        ),
        $self->new_group('Testing', '',
            $self->new_item('', 'tools/dev/mk_native_pbc'),
        ) <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	5214	5347	
==>were called.\n", scalar(@external_calls));
    printf("Of these, %d are not defined by ANSI C89:\n", scalar(@non_ansi_external_calls)) <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	13	103	
==>Copyright (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/examples/mops/mops.pl 19601 20 <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15224	15351	
==>rn =~ /^P/;
  $self->_add_inst ('', 'set', [$return,$return.'[1]']);

  return $return;
}

sub _op_set_car_bang {
  my ($self, $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423453	423687	
==>i",
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 567 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_listen(interpreter, {{\@2}}, {{\@3}});\n    {{ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	375	512	
==>with POD and file type.

It's used by the documentation tools in F<tools/docs>.

=head2 Class Methods

=over 4

=cut

package Parrot::Docs <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	250076	250337	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "not",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	15163	15278	
==>objects of type timeval.
        # set $t->ru_utime to 100.0 sec and $t->ru_stime to 5.0 sec.
    $t->ru_utime->tv_s <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	2214	2339	
==>]  = <<"END_PIR"             # not equal
    $I100 = isne %1, %2
    %1 = $I100
END_PIR

    $P0[unicode:"dyadic:\u2264"]  = < <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	9783	9966	
==>$syms[CURR] eq ',' and $type[CURR] ne "STRING"));
		last if ($syms[CURR] eq ';');
		push(@expr, [ $syms[CURR], $type[CURR] ]);
		if ( (isbuiltin($syms[CURR]) or isuserfunc($syms[CURR]) <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	15666	15798	
==>tra{todo}, $call_pkg ) if ( keys %extra );
            local *{ $call_pkg . '::TODO' } = \$extra{todo}
                if defined $ex <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	18217	18349	
==>tra{todo}, $call_pkg ) if ( keys %extra );
            local *{ $call_pkg . '::TODO' } = \$extra{todo}
                if defined $ex <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	1406	1599	
==>sts $self->{table}{$symb} ) {
            $self->{table}{$symb} = $defn;
        }
    }

    sub LookupU {
        my $self = shift;
        my ($symb) = @_;

        #    warn "Lookup <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46927	47033	
==>"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Interp_debug_SET(interpreter,   {{\@1}}); }\n  else         { In <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47710	47816	
==>"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Interp_debug_SET(interpreter,   {{\@1}}); }\n  else         { In <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322311	322407	
==>DY" => "#line 134 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (UINTVAL)((Parrot_UInt4)({{\@2}}));\n  {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323083	323179	
==>DY" => "#line 134 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (UINTVAL)((Parrot_UInt4)({{\@2}}));\n  {{+= <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1251	1388	
==>';
  } else {
    if($_[1]{'errata'}) { # start of errata!
      $_[0]{'Errata_seen'} = 1;
      $_[0]{'Thispara'} = $_[0]{'source_filenam <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76387	76569	
==>[2] ? " (line $_[2])" : "");
	print ERROR "\n";
	$errortext =~ s/\s+/ /g;
	write ERROR;
	return 1;
}

sub _hint($)
{
	return 0 unless defined $::RD_HINT;
	$errortext = "$_[0])";
	$err <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	71234	71375	
==>uction.")
					and
					_hint("Will you be providing this rule
					       later, or did you perhaps
					       misspell \"$call\"? Otherwise <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	2090	2217	
==>tructor.

    croak "function 'new' already defined in package $class"
        if do { no strict 'refs'; defined &{$class . "::n <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2810	2978	
==>ent##rtfitemkeepn#\\sb60\\sa150\\fi-120\n",
 '/item-number' => "\n\\par}\n",
 'item-text'    => "\n{\\pard\\li#rtfindent##rtfitemkeepn#\\sb60\\sa150\\fi-120\n",
 '/item- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409292	409600	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "recv",
                  "FLAGS" => ":base_netw <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033443	1033535	
==>FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    VTABLE_set_pmc_keyed_str(inte <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034541	1034633	
==>FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    VTABLE_set_pmc_keyed_str(inte <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	1561	1720	
==>ocument. This splits up the long C<do_middle()>
method in C<Pod:Simple::HTML>, calling the various C<process_*> methods
below. This makes it easier to where the <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	3622	3760	
==>/\+/_plus_/;
	## print STDERR "Op: '$opcode'\n";
	if ($line) {
	    $source = $source[$line-1];
	    if ($source =~ /def (\w+)\s*\((.*)\)/) <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	7292	7414	
==>lfloor'   , 8970,
 'rfloor'   , 8971,
 'lang'     , 9001,
 'rang'     , 9002,
 'loz'      , 9674,
 'spades'   , 9824,
 'clu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653630	653990	
==>));\n    {{=resume}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RESTART",
                  "NAME" => "find_method",
                  "F <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8882	9046	
==>bug() if $debug;
		goto PARSE
	}
	#
	# End of compile?
	#
	if ($syms[CURR] eq "") {
FORCE_FINISH:
		runtime_shutdown();
		parse_function_dispatch();
		parse_struct_c <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	4333	4491	
==>type $arg_name");
      $sig .= $arg_type->code;
    }

    $sig =~ tr[INPS][ifpt]; # Defaults.

    my $fn_name = $fn;

    $fn_name =~ s/^.*::/"/;

    $comp <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	6897	7095	
==>my ($class, $plan, @args) = @_;

    $builder->plan( $plan, @args );

    __PACKAGE__->export_to_level( 2, __PACKAGE__ );
}

# this kludge is an hopefully portable way of having
# redirections ( test <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	21996	22117	
==>eturn $_[1]; }
	],
	[#Rule 35
		 'charclass', 4,
sub
#line 164 "lib/Regex/Grammar.y"
{ return [ 'neg', $_[3] ]; }
	],
	[#R <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	45605	45716	
==>lace myself and the next line
    DEBUG > 10 and print "Nixed count: ", scalar(@nixed), "\n";
    
    DEBUG > 6 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6579	6726	
==>) = @_;
    return qq!set <rx_match>["$n";1], -2 # delete group $n!;
}

sub output_atend {
    my ($self, $failLabel) = @_;
    my $fail = $self->ou <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	28178	28377	
==>lf, $op, $lastback) = @_;

    if (UNIVERSAL::isa($op, 'Regex::Ops::Tree')) {
        my $method = "rewrite_" . $op->{name};
        if ($self->can($method)) {
            return $self->$method($op, @ <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	370	470	
==>ulates a value for M ops/s (million operations per second) using
integer arithmetic.

Prints out:

=o <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	366	466	
==>ulates a value for M ops/s (million operations per second) using
integer arithmetic.

Prints out:

=o <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	880	1007	
==>atic_cmds = map { $_ => 1 } @static_cmds;
for my $cmd (@dynamic_cmds) {
    # skip if there's a static version
    next if $stat <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2227	2323	
==>cut for C<< $token->type() eq "start" >>

=item $token->is_text

This is a shortcut for C<< $toke <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	7352	7612	
==>i"
                            ],
                  "BODY" => "#line 171 \"src/ops/core.ops\"\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846820	847077	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1055	1174	
==>e()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $left  = $self->left->value;
  my $right = $self-> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	1063	1182	
==>e()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $left  = $self->left->value;
  my $right = $self-> <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	36451	36553	
==>ted( $text, '<>' );

the result would be:

	( '<A HREF=">', '>>>">link</A>', "" )

In addition to the q <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630508	630618	
==>nterpreter, class);\n    if (type <= 0)\n        real_exception(interpreter, NULL, NO_CLASS,\n            \"Cla <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631498	631608	
==>nterpreter, class);\n    if (type <= 0)\n        real_exception(interpreter, NULL, NO_CLASS,\n            \"Cla <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	2365	2492	
==>e $line" unless $cnt == 2;

	my $str = extract_delimited; # $_, '"';
	$str = substr $str, 1, -1;
	## print STDERR "** '$str' $li <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	5400	5509	
==>prefix};

    $directories{dirname($dest)} = 1;
    push(@files, [ $src => $dest ]);
} continue {
    close AR <==
2	/Users/nnunley/parrot/config/init/hints/netbsd.pm	147	270	
==>flags = $conf->data->get('ccflags');
    if ($ccflags !~ /-pthread/) {
        $ccflags .= ' -pthread';
    }
    $conf->dat <==
2	/Users/nnunley/parrot/config/init/hints/openbsd.pm	239	362	
==>flags = $conf->data->get('ccflags');
    if ($ccflags !~ /-pthread/) {
        $ccflags .= ' -pthread';
    }
    $conf->dat <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2283	2376	
==>${STEMP0}

# Decrement stack height.
dec stack_depth
PIR
		$pir =~ s/\$register_num/$register_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3535	3628	
==>${STEMP0}

# Decrement stack height.
dec stack_depth
PIR
		$pir =~ s/\$register_num/$register_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1181	1325	
==>h YY (leading YY will be discarded)
my(%params)=(YYLEX => 'CODE', 'YYERROR' => 'CODE', YYVERSION => '',
			 YYRULES => 'ARRAY', YYSTATES => 'AR <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1139	1281	
==>h YY (leading YY will be discarded)
my(%params)=(YYLEX => 'CODE', 'YYERROR' => 'CODE', YYVERSION => '',
			 YYRULES => 'ARRAY', YYSTATES => 'AR <==
2	/Users/nnunley/parrot/lib/Test/More.pm	24047	24149	
==>k() or symlinks), or maybe
you need an Internet connection and one isn't available.

B<If it's somethin <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	5826	5968	
==>lc $b->{osname}     ||
          $b->{timestamp}[0]  <=> $a->{timestamp}[0]
        } @{ $branches{$branch}{$cat} }
      ];
    }

    $branch <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11484	11601	
==>se_stop {
	feedme();
	print CODE<<STOP;
	print "Stopped at source line "
	print I11
	print "\\n"
	_platform_shutdown() <==
2	/Users/nnunley/parrot/config/auto/signal.pm	1514	1656	
==>sig_atomic_t => 'define'
        );
        print " (setitimer) " if $verbose;
    }
    cc_clean();

    # now generate signal constants
    o <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	3933	4067	
==>s matching
C</\$\{\w+\}/> for the given key's value in the configuration system's data,
and writes the results to specified target file <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	1817	1979	
==>self = shift;
    my $token;
    my $type;
    
    $self->{STACK} = [];
    $self->{DONT_WRAP} = 0;
    
    while ( $token = $self->get_token )
    {
        $ty <==
2	/Users/nnunley/parrot/config/auto/perldoc.pm	1069	1333	
==>yes');
            } else {
                $a = undef;
            }
        }
        unless (defined $a && $a =~ m/perldoc/) {
            $version = 0;
            $self->set_result('failed');
        }
    } else {
        $self->set_result('no');
    }
    un <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	5036	5172	
==>ve around.
    my $next;
    for my $stmt (reverse @output2) {
	$stmt->{'next'} = $next;
	$next = $stmt;
    }

    # Push first statemen <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630636	630733	
==>d\", readable_name(interpreter, class));\n    {{\@1}} = pmc_new(interpreter, type);\n    {{+=3}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631626	631723	
==>d\", readable_name(interpreter, class));\n    {{\@1}} = pmc_new(interpreter, type);\n    {{+=3}};\ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	18345	18481	
==>ack = caller;

    # Try to deterine if we've been given a module name or file.
    # Module names must be barewords, files not.
    $mod <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	566	699	
==>ource> instead of a list of files.

=head1 TODO

Make better use of CPAN modules.

=head1 HISTORY

Started by josh in 2002.

=head1 AU <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	1226	1317	
==>Exception
$P0["_message"] = "System.NotImplementedException"
$P1 = new "System.NotImplemente <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35248	35419	
==>hod, 0);
    my $ret = "";
    if ($method->{type} ne 'void') {
        # This cheats, assuming that all return types can be cast from zero.
        $ret = "return ($method <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	1947	2071	
==>ings;


=item C<new($code, $type, $name, $args, $argdirs, $labels, $flags)>

Allocates a new bodyless op. A body must be prov <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	5784	5934	
==>.
#
# Without this, /abc/ would compile to
#  check(1)
#  match(a)
#  check(1)
#  match(b)
#  check(1)
#  match(c)
#
# where check(n) is "am I closer t <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19651	19756	
==>dme;
		while($syms[CURR] ne "end") {
			my($name,$type);
			die "Syntax error in type $type[CURR]/$syms[CU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609357	609635	
==>ct.ops\"\n    {{\@1}} = VTABLE_get_attr_str(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610265	610543	
==>ct.ops\"\n    {{\@1}} = VTABLE_get_attr_str(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	603	775	
==>s.

my $teetcl = 't_tcl';

my @b= map {s/.*\/(.*)\.t/$1/; $_} (glob ("$teetcl/*.t"));

my @keepers = qw(
  appendComp basic cmdAH cmdIL cmdInfo cmdMZ compile config fileName <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	3247	3569	
==>e = $self->pass1(rop('alternate', \@children), $ctx);
            @{ $t->{args} } = ($R, $subtree);
            return $t;
        }

        # Find as many things as possible that match a first
        my ($R0, @Rrest) = @{ $R->{args} };
        my @shrunken = ();
        while (@children) {
            last unless $chil <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	3925	4071	
==>e = $self->pass1(rop('alternate', \@children), $ctx);
            @{ $t->{args} } = ($R, $subtree);
            return $t;
        }

        # Hav <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565467	565734	
==>line",
                  "CODE" => 646,
                  "ARGS" => [
                              "i",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 194 \"src/ops/object.ops\"\n <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	7541	7774	
==>token;
        
    return unless defined $next;
        
    unless( $next->type eq 'text' )
    {
        $self->unget_token($next);
        return;
    }
    
    printf {$self->{'output_fh'}} "\n" . $next->text . "\n";
}

=item C< <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13316	13415	
==>core/)
	{
		# Do nothing
	}
	elsif (@items &&
		( ref($items[0]) =~ /\AParse::RecDescent::UncondReje <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2360	2461	
==>g $stype $var with main  (array=$array)
	P0= P10[0]
	P1= P0["$stype"]
	P0= P1["$var"]	# Pull the origi <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2587	2688	
==>g $stype $var with main  (array=$array)
	P0= P10[0]
	P1= P0["$stype"]
	P0= P1["$var"]	# Pull the origi <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13217	13330	
==>temp;
}

sub _op_do {
}

sub _op_delay {
}

#---- Section 6 ----

sub _op_not {
  my ($self,$node) = @_;

  my $re <==
2	/Users/nnunley/parrot/config/auto/msvc.pm	1195	1327	
==>lf->set_result('no');
        $conf->data->set(msvcversion => undef);
        return $self;
    }

    my $major = int($msvc{_MSC_VER <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957568	957664	
==>< 0)\n    real_exception(interpreter, NULL, 1,\n\t\"encoding '%Ss' not found\", {{\@2}});\n  {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958473	958569	
==>< 0)\n    real_exception(interpreter, NULL, 1,\n\t\"encoding '%Ss' not found\", {{\@2}});\n  {{\@ <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	6535	6630	
==>-ladvapi32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid -lws2_32 -lmpr -lwinmm -lversion -lodb <==
2	/Users/nnunley/parrot/config/init/hints/msys.pm	426	521	
==>-ladvapi32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid -lws2_32 -lmpr -lwinmm -lversion -lodb <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100179	100414	
==>"CODE" => 124,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 106 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}}->vtable->bi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	1585	1795	
==>ecause ",
      ref($_[0]) || $_[0], " didn't define a run() method";
  }
}

sub parse_lines {
  use Carp ();
  Carp::croak "Use set_source with ", __PACKAGE__,
    " and subclasses, not parse_lines";
}

sub par <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	6985	7190	
==>thms:
 *  History:
 *  Notes:
 *  References:
 */
#include "parrot/parrot.h"
#include "parrot/hash.h"
#include "parrot/oplib/ops.h"

/*
 * if the architecture can build some or all of these signatures
 * en <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1328	1482	
==>ut

sub pc
{
    my $self = shift;

    if (@_)
    {
        $self->{PC} = shift;
    }
    else
    {
        return $self->{PC};
    }
}

=item C<args(@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	937	1091	
==>ut

sub pc
{
    my $self = shift;

    if (@_)
    {
        $self->{PC} = shift;
    }
    else
    {
        return $self->{PC};
    }
}

=item C<args(@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066447	1066909	
==>ath",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1191,
                  "ARGS" => [
                              "i",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 49 \" <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	8677	8797	
==>!defined $file) {
    $file = "src/ops/ops.num";
  }

  my ($name, $number, $prev);

  if (!defined $ParrotOps::max_op_nu <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6438	6592	
==>tem_text_or_head_start_token
{
    my $self = shift;
    my $token = shift;
    my $tagname = $token->tagname;
    
    print {$self->{'output_fh'}} $self- <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	3171	3345	
==>d.
#

my %seen;

for $file (@ARGV) {
    if ($seen{$file}) {
	print STDERR "$0: Ops file '$file' mentioned more than once!\n";
	next;
    }
    $seen{$file} = 1;

    die "$0: <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	13081	13310	
==>ment value.  If the element type is
C<'*%'>, a reference to the hash element is returned.

As a special case, when the accessor is called with a hash reference
as the sole argument, this causes an assignment of the whole hash elem <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	3514	3645	
==>lass};
EOC
    }
    $cout .= <<"EOC";
    int pass;

    /*
     * create a library PMC
     */
    pmc = pmc_new(interpreter, enum <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	935503	935742	
==>BODY" => "#line 440 \"src/ops/string.ops\"\n  string_downcase_inplace(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	118	376	
==>1.111564Z bernhard  $

=head1 NAME

Parrot::OpTrans::Compiled - Transform Parrot Bytecode To C

=head1 DESCRIPTION

C<Parrot::OpTrans::Compiled> inherits from C<Parrot::OpTrans> and is
used by F<tools/build/pbc2c.pl> to transform Parrot bytecode to a C code
r <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	345	442	
==>escent::LineCounter}, $thisline->[0],
	    $thisline->[1];
	$tlc;
}

sub expectation_message
{
	$P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722192	722301	
==>thon.ops\"\n  STRING * const s = {{\@2}};\n  PMC * const io = {{\@1}}; /* TODO Can this be localized? */\n  if <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723221	723330	
==>thon.ops\"\n  STRING * const s = {{\@2}};\n  PMC * const io = {{\@1}}; /* TODO Can this be localized? */\n  if <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	1741	1939	
==>ith exit code $exit_code")
    if $exit_code and not $pass;

    unless ($ENV{POSTMORTEM}) {
        unlink $lang_f;
        unlink $py_out_f;
        unlink $pirate_out_f;
    }

    return $pass;
} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144227	144531	
==>ction",
                  "CODE" => 176,
                  "ARGS" => [
                              "sc",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 84 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128292	128862	
==>" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 158,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 271 \"src/ops/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	2762	2915	
==>f->{TEXT}</p>\n\n" . $index_html;
    }
    elsif ( $index_html !~ /<DIV CLASS="pod">[^<]*<[Hh]/o )
    {
        # If there is no heading or text then we <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	3007	3158	
==>:isa($right_type, 'Jako::Construct::Type::Integer');

  $dest  = $dest->value;
  $left  = $left->compile($compiler);
  $right = $right->compile($compile <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	1791	1913	
==>mand("cd src/pmc && make @src");
}

sub clean {
    print "** $0: removing files in miniparrot directory\n";
    find(sub { <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	182	381	
==>tep
{
    my ($self, $conf) = @_;

    my ($cc, $ccflags, $libs) = $conf->data->get(qw(cc ccflags libs));

    # Later in the Parrot::Configure::RunSteps->runsteps process,
    # inter/progs.pl will m <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	4694	4856	
==>ause code to be processed out of order relative
        #  to pods, but in order relative to cuts.
        
        # Note also that we haven't yet applied the tra <==
2	/Users/nnunley/parrot/config/auto/alignptrs.pm	210	308	
==>Determine the minimum pointer alignment.

=cut

package auto::alignptrs;

use strict;
use vars qw($ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4606	4729	
==>anch operation hooks.
sub pre_branch($) {
	my $self = shift;
	my $pops = shift;
	my $register_num = 0;
	my $pir = '';

	# Do <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3022	3145	
==>anch operation hooks.
sub pre_branch($) {
	my $self = shift;
	my $pops = shift;
	my $register_num = 0;
	my $pir = '';

	# Do <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2311	2409	
==>for C<< $token->type() eq "text" >>

=item $token->is_end

This is a shortcut for C<< $token->type( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105892	106416	
==>AME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 132,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 162 \"src/ops/bit.ops\"\n  {{\@1}} |= {{\@2}};\n  {{+=3}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105155	105488	
==>AME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 131,
                  "ARGS" => [
                              "i <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27281	27435	
==>1,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 84
		ACTIONS => {
			"-" => 24,
			'NAME <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1657	1771	
==>y may contain spaces.
    $PATHQUOTE = '"';

    unless ($CC =~ /gcc/i) {
        $LIBPARROT = '/Users/nnunley/parr <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	1661	1775	
==>y may contain spaces.
    $PATHQUOTE = '"';

    unless ($CC =~ /gcc/i) {
        $LIBPARROT = '/Users/nnunley/parr <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	220	333	
==>% perl tools/dev/mk_manifest_and_skip.pl

=head1 DESCRIPTION

Recreates MANIFEST and MANIFEST.SKIP from the svn di <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059972	1060095	
==>,
                  "BODY" => "#line 208 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060877	1061000	
==>,
                  "BODY" => "#line 208 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception( <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25556	25741	
==>NEXT_$forloop
	goto FOR_LOOP_BODY_$forloop
FOR_GT_$forloop:
	gt $result, FORLOOP_END_$forloop, AFTER_NEXT_$forloop
FOR_LOOP_BODY_$forloop:
COND
	debug() if $debug;
	
	push @{$fors[$scope <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	32407	32547	
==>ginning of $text:

		$substring = extract_delimited($text, "'", '', "'");

	# Extract a single- or double- quoted substring from the
	# begin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122391	122855	
==>> 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 152,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 248 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121480	121873	
==>> 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 151,
                  "ARGS" => [
                              "i",
                              "i" <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4308	4422	
==>me") or die "Report this as a BUG: Cannot open $fname";
	while(<DRV>) {
                	/^\s*sub\s+_Parse\s*{\s* <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4088	4200	
==>me") or die "Report this as a BUG: Cannot open $fname";
	while(<DRV>) {
                	/^\s*sub\s+_Parse\s*{\s* <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	39197	39321	
==>turns the complete text up to the point of failure.
If the string is "PARA", C<extract_tagged> returns only the first paragra <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1705	1788	
==>\n{\\pard\\li#rtfindent##rtfkeep#\\plain\\s20\\sa180\\f1\\fs18\\lang1024\\noproof\n" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1847	1930	
==>\n{\\pard\\li#rtfindent##rtfkeep#\\plain\\s20\\sa180\\f1\\fs18\\lang1024\\noproof\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502459	502700	
==>BODY" => "#line 626 \"src/ops/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503198	503439	
==>BODY" => "#line 626 \"src/ops/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842156	842432	
==>e",
                  "CODE" => 955,
                  "ARGS" => [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 40 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},0);\ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	827	928	
==>ub pre_op {
	die "pre_op not implemented for current stack to register mapper\n";
}
sub post_op {
	die <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2216	2402	
==>);
        $class =~ s/::\w+$// or confess "Called op on invalid class $_[0]";
    }
    $class = "${class}::$name";
    my $self = bless { name => $name,
                       args => $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349254	349357	
==>(path); */\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=3}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350256	350359	
==>(path); */\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=3}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070114	1070487	
==>"i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1194,
                  "ARGS" => [
                              "i",
                              "nc",
                              "nc"
                            ],
                  "BODY" => "#line 49 \"src/ops/experimenta <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	1355	1538	
==>hift; # Optional: string

  confess "Use Jako::Construct::Block::Bare, not Jako::Construct::Block"
    if $class eq 'Jako::Construct::Block';

  confess "Bad block!"  if defined $block <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1408	1563	
==>ne 'inline') {
        $compiler->emit(".sub __INLINE_" . $inline++);
        $compiler->indent;

        $last_seen = 'inline';
      }
    }

    $constru <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	12374	12504	
==>new .Iterator, op2

    if op1 >= 0 goto pos_loop
    iter = 4 # ITERATE_FROM_END

neg_loop:
    if op1 == 0 goto done
    unless i <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	3791	3913	
==>shed_ops;

#
# Read the input files:
#

my $ops;
if ($core_flag) {
    $ops = Parrot::OpsFile->new( [ "src/ops/$file" ], $n <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	4733	4842	
==>clude "parrot/embed.h"

static char program_code[] = {
END_C

    $pf->byte_code($byte_code);

    # this is n <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	26877	27007	
==>lim"      => $rdel,
		"mod"         => $mod,
		"lookahead"   => $_[4],
		"line"        => $_[5],
		"description" => $desc,
	}, $cla <==
2	/Users/nnunley/parrot/config/auto/aio.pm	659	789	
==>dd(' ', libs => '-lrt');

    cc_gen('config/auto/aio/aio.in');
    eval { cc_build(); };
    if (!$@) {
        $test = cc_run(35) <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	8323	8419	
==>=back

=head1 SEE ALSO

=over 4

=item C<Parrot::OpsFile>

=item C<Parrot::OpTrans>

=item F<tool <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	18655	18848	
==>elf->{flags}{noinit};

    # TODO gen C line comment
    my $classname = $self->{class};
    my $vtbl_flag =  $self->{flags}{const_too} ?
        'VTABLE_HAS_CONST_TOO' : $self->{flags}{is_const <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573413	573676	
==>LAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 655,
                  "ARGS <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	572	787	
==>rot::OpTrans::C->new;

my %type_to_arg = (
    INT_CONST    => 'ic',
    NUM_CONST    => 'nc',
    PMC_CONST    => 'pc',
    STRING_CONST => 'sc',
    STR_CONST    => 'sc',
    INT_REG      => 'i',
    NUM_REG      = <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	44287	44424	
==>),

=item [3]

the name of the quotelike operator (if any),

=item [4]

the left delimiter of the first block of the operation,

=item [5] <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2203	2314	
==>$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test::proclaim(un <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2598	2709	
==>$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test::proclaim(un <==
2	/Users/nnunley/parrot/config/auto/gdbm.pm	2157	2281	
==>->set_result('no');
    }
    $conf->data->set(has_gdbm => $has_gdbm); # for gdbmhash.t and dynpmc.in

    return $self;
}

1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944751	945043	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "charsetname",
                  "FLAGS" => ":base_core",
                  "A <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945560	945852	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "charsetname",
                  "FLAGS" => ":base_core",
                  "A <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	622904	623007	
==>*ccont;\n    opcode_t *dest_pc;\n    void **dest_pred;\n    parrot_context_t *caller_ctx, *ctx;\n    par <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	14365	14630	
==>oto', [ $next ]),
            $back => aop('popindex', [ $lastback ]),
                     aop('goto', [ $try_S ]),
            $next =>
                    );
}

# R|S|T ->       R or tryS
#                push 0
#                goto next
#          tryS: S or tr <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3211	3627	
==>s) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUOTE";
}

our $NOW = time();

################### MAIN PROGRAM ################

my ($mode, @oplibs) = @ARGV;

if ($mode eq 'generate') {
    # Convert X.ops -> ops_X.c, ops_X_cgp.c, ops_X_cg.c and ops_X_switch.c
	my $core;
    generate_c($_) foreach (@oplibs);
} 
elsif ($mode eq 'compile') {
    # Convert X.c -> X.o for all X.c
	my $core_suffix;
	foreach $core_suf <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095152	1095239	
==>3 \"src/ops/experimental.ops\"\n  Parrot_Exec_OS_Command(interpreter, {{\@1}});\n  {{+=2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095847	1095934	
==>3 \"src/ops/experimental.ops\"\n  Parrot_Exec_OS_Command(interpreter, {{\@1}});\n  {{+=2 <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	2902	3053	
==>s) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUOTE";
}

our $NOW = time();

################### MAIN PROGRAM ################

my ($mode, @pmcs) = @ <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3006	3157	
==>s) .
        " $liblist $PATHQUOTE$LIBPARROT$PATHQUOTE";
}

our $NOW = time();

################### MAIN PROGRAM ################

my ($mode, @pmcs) = @ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4036	4135	
==>elf and $self->isa("Jako::Construct::Block");
  confess "No symbol name!"  unless defined $name;
  c <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6204	6303	
==>elf and $self->isa("Jako::Construct::Block");
  confess "No symbol name!"  unless defined $name;
  c <==
2	/Users/nnunley/parrot/config/inter/libparrot.pm	589	697	
==>uld be linked against a shared library';

@args = qw(ask parrot_is_shared);

sub runstep {
    my ($self <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	28083	28266	
==>ILD_TUPLE(@_,"ResizablePMCArray")
}
sub BUILD_MAP
{
    my ($n, $c, $cmt) = @_;
    my $ar = temp('P');
    print <<EOC;
	$ar = new PerlHash $cmt
EOC
    push @stack, ["hash", $ar, 'P' <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	25577	25710	
==>hine(
        $para->[1]{'start_line'},
        "You can't extend an established code like \"$new_letter\""
      );
      
      #TOD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201611	201887	
==>=> 238,
                  "ARGS" => [
                              "n",
                              "nc",
                              "ic"
                            ],
                  "BODY" => "#line 373 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3 <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	5456	5605	
==>or inclusion in C code,
    and an array of C<Parrot::Op> instances representing the Parrot ops.

    =cut
END_POD

my $preamble = <<END_C;
#! perl -w <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349	484	
==>or inclusion in C code,
and an array of C<Parrot::Op> instances representing the Parrot ops.

=cut


use strict;

package Parrot::OpLib: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	2111	2211	
==>elf = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'ident', Attributes => { name <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	17384	17519	
==>e =~ s/%1/$op1/g;
    $code =~ s/%2/$op2/g;
    $code .= "\n";
    return($code);
}

__END__ 

=head1 NAME

tools/gen_operator_defs.pl - <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	15952	16063	
==>_succeed($wantarray, $textref,
			$match[2], $match[18]-$match[2],	# MATCH
			@match[18,19],				# REMAINDER
			@ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	10059	10210	
==>asic Hello
a$="Hello"
print a$

' Simplest function, return 10
function twice(number)
	twice=2*number
end function
a=twice(5)
print a


' Expect -7
t%=- <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4186	4313	
==>ess length $section;
  }
  
  

  foreach my $it ($to, $section) {
    if( defined $it ) {
      $it =~ s/([^\x00-\xFF])/join '' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035506	1035608	
==>x_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n    PMC *result = NULL;\n\n    if (!PMC_IS_NULL(l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036670	1036772	
==>x_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n    PMC *result = NULL;\n\n    if (!PMC_IS_NULL(l <==
2	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	239	358	
==>flags = $conf->data->get('ccflags');
    if ($ccflags !~ /-pthread/) {
        $ccflags .= ' -pthread';
    }
    if ($c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	533749	534042	
==>AME" => "log10",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 617,
                  "AR <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	1586	1684	
==>C<return> statement, if the body is empty then
make a cast if needed.

This method is imported by s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7213	7327	
==>eturn $self->output_pushint($reg);
}

sub output_pushint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($r <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6855	6969	
==>eturn $self->output_pushint($reg);
}

sub output_pushint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($r <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	5241	5447	
==>e',
        commentType                   => '#',
        replace_slashes               => 1,
        conditioned_lines             => 1
    );
    genfile(
        'languages/m4/config/makefiles/root.in' => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117464	117731	
==>AME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118202	118469	
==>AME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1249	1355	
==>YYERROR' => 'CODE', YYVERSION => '',
			 YYRULES => 'ARRAY', YYSTATES => 'ARRAY', YYDEBUG => '');
#Mandat <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1206	1310	
==>YYERROR' => 'CODE', YYVERSION => '',
			 YYRULES => 'ARRAY', YYSTATES => 'ARRAY', YYDEBUG => '');
#Mandat <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	957	1077	
==>gth $in;
  
  # Convert to decimal:
  if($in =~ m/^(0[0-7]*)$/s ) {
    $in = oct $in;
  } elsif($in =~ m/^0x([0-9a-fA-F] <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2316	2436	
==>gth $in;
  
  # Convert to decimal:
  if($in =~ m/^(0[0-7]*)$/s ) {
    $in = oct $in;
  } elsif($in =~ m/^0x([0-9a-fA-F] <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	11098	11199	
==>e $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export`
- `unlike (Str $got, Rule <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	820	992	
==>use Parrot::Docs::Section::IMCC;
use Parrot::Docs::Section::Perl;
use Parrot::Docs::Section::Libs;
use Parrot::Docs::Section::Tools;
use Parrot::Docs::Section::BigNum;
use P <==
2	/Users/nnunley/parrot/config/auto/env.pm	593	691	
==>onf->options->get('verbose');

    my ($setenv, $unsetenv) = (0, 0);

    cc_gen('config/auto/env/t <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2852	2967	
==>e"
   END
Sub1:
   PRINT "2 in subroutine one"
   GOSUB Sub2
   PRINT "ERR this line in subroutine one should be ski <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16819	16934	
==>e"
   END
Sub1:
   PRINT "2 in subroutine one"
   GOSUB Sub2
   PRINT "ERR this line in subroutine one should be ski <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712223	712374	
==>"n"
                            ],
                  "BODY" => "#line 59 \"src/ops/python.ops\"\n  PMC * const io = PIO_STDOUT(interpreter);\n  STRING * <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5951	6106	
==>ve_1 ('P');
  my $special = { 
		  unquote => \&_qq_unquote,
		  'unquote-splicing' => \&_qq_unquote_splicing
		};

  _num_arg ($node, 1, 'quote');

  my $i <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5931	6030	
==>ything it is unconditional, so next instruction needs to
	# have an empty stack type state propogate <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3869	3968	
==>ything it is unconditional, so next instruction needs to
	# have an empty stack type state propogate <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	14849	14997	
==>} = 1;
    }
    $make_f = 1 unless $f =~ /lambda/;
}

sub binary
{
    my ($op, $cmt) = @_;
    my $r = pop @stack;
    my $l = pop @stack;
    my ( <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	5695	5872	
==>.

        $conf->data->set(
            ccwarn     => "-ansi -pedantic",
            gccversion => undef
        );

        return $self;
    }

    $conf->data->set(
        c <==
2	/Users/nnunley/parrot/lib/Test/More.pm	10926	11097	
==>nctions, too).

    can_ok('Foo', qw(this that whatever));

is almost exactly like saying:

    ok( Foo->can('this') && 
        Foo->can('that') && 
        Foo->can('what <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608003	608443	
==>ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 689,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 473 \"sr <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	895	996	
==>sion::Value');
  confess "Op is not scalar!" if ref $op;
  confess "Right is not Value!" unless UNIVER <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	907	1008	
==>sion::Value');
  confess "Op is not scalar!" if ref $op;
  confess "Right is not Value!" unless UNIVER <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	3067	3324	
==>gular expressions. It is not needed for basic
# compilation.
#
# Probably the best way to understand this stuff is to look at
# where it's used, mostly in TreeOptimize.pm.
############################################################################

sub orde <==
2	/Users/nnunley/parrot/config/auto/jit.pm	3962	4071	
==>ptions->get('execcapable')
            if defined $conf->options->get('execcapable');
        if ($execcapable <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	1619	1728	
==>t

Taken from an I register

=item i

Parameter is an int

Taken from an I register

=item l

Parameter is a l <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	46920	47027	
==>ftererror,$line);
			$lookahead = $lookahead ? -$lookahead : -1;
			$lookaheadspec .= $1;
			next;	# SKIP LO <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	29630	29807	
==>rint FUNC<<FUNCDISP;
				
	#
	# User function dispatch routine
	#
UF_DISPATCH:
	I1= -1
FUNCDISP
		if (%functions) {
			foreach(keys %functions) {
				print FUNC qq{\teq S0, "$_", <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10668	10783	
==>\x9F//d if 'A' eq chr(65);
        $section = $self->unicode_escape_url($section);
        # Turn char 1234 into "(1 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4049	4157	
==>\x9F//d if 'A' eq chr(65);
    $section = $self->unicode_escape_url($section);
     # Turn char 1234 into "(1 <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	1935	2105	
==>fig) {
		$makefile =~ s/\${$_}/$config{$_}/g;
	}
	$makefile =~ s/\$\{build_dir\}/$parrot_path/g;
    $makefile =~ s/\$\{trans_mono_lib_path\}/$mono_lib_path/g;
    $m <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	9895	9993	
==>type[CURR] ]);
		if ( (isbuiltin($syms[CURR]) or isuserfunc($syms[CURR]))
			and $syms[NEXT] ne "(" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	975	1189	
==>ko::Token')) {
    $token = $type;
    $type = $type->text;
  }
  else {
    $type = $types{$type};
  }

  return Jako::Construct::Type::Integer->new($token) if $type eq 'int';
  return Jako::Construct::Type::Number <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	56672	56829	
==>], $_[2], $_[5], $_[6] );
        }
	],
	[#Rule 87
		 'functioncall', 2,
sub
#line 459 "Lua\lua51.yp"
{
            my $fct = BuildCallVariable( $_[0] <==
2	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	21	105	
==>parrot/languages/BASIC/interpreter/basic.pl 11512 2005-10-12T02:11:40.290517Z coke  $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56357	56563	
==>ore.ops\"\n  {{\@1}} = interpinfo_p(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57119	57325	
==>ore.ops\"\n  {{\@1}} = interpinfo_p(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62759	63022	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorsoff",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63404	63667	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorsoff",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "i <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	18083	18195	
==>kip) ? $skip : $Parse::RecDescent::skip;'
			: '') .($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying pro <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	857	948	
==>L::isa($left, 'Jako::Construct::Expression::Value');
  confess "Op is not scalar!" if ref $o <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	869	960	
==>L::isa($left, 'Jako::Construct::Expression::Value');
  confess "Op is not scalar!" if ref $o <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	50188	50362	
==>:Balanced::extract_codeblock($text,undef,$skip);
					', $lookahead,$line,"<perl_codeblock>");
				$prod and $prod->additem($item)
				      or  _no_rule("<perl_codeblock>",$l <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	29748	29873	
==>t that we'll infer in its place. (E.g., for
# "L<Getopt::Std>", the inferred link text is "Getopt::Std".)
#

############# The <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	919	1035	
==>rness will run the tests
with C<perl>.  If you I<do> pass the pair, the harness will run the tests with
C<parrot>, ca <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8765	8880	
==>F,$a,$b,$c,$d,$_[16],7,0x6b901122,/* 13 */
FF,$d,$a,$b,$c,$_[17],12,0xfd987193,/* 14 */
FF,$c,$d,$a,$b,$_[18],17,0xa <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	9	187	
==>t;

package Lua::symbtab;
{

    sub new {
        my $proto    = shift;
        my $class    = ref($proto) || $proto;
        my ($parser) = @_;
        my $self     = { <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5957	6123	
==>.op_func_table)
            ${bs}op_lib.op_func_table = (op_func_t *) $cg_func(0, 0);
END_C
}

=item C<init_set_dispatch($base_suffix)>

Returns the C code to initiali <==
2	/Users/nnunley/parrot/tools/dev/gen_class.pl	455	566	
==>on adding a new PMC to Parrot.

To see what a minimal PMC looks like, create a PMC template and compile
it to <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	232	372	
==>= 0.01;

sub get_out_fn {
    my $self = shift;
    my ( $count ) = @_;

    return Parrot::Test::per_test( '.pir_out', $count );
}

sub get_ <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	4791	4907	
==>S} = shift;
    }

    return $self->{FLAGS};
}

=item C<arg_dir($index)>

Returns the direction of the op's argument <==
2	/Users/nnunley/parrot/lib/Test/More.pm	28727	28886	
==>e1, $e2] };
        $ok = _deep_check($e1,$e2);
        pop @Data_Stack if $ok;

        last unless $ok;
    }

    return $ok;
}

sub _deep_check {
    my($e1 <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	5831	5949	
==>d eq 'no_plan' ) {
        $self->no_plan;
    }
    elsif( $cmd eq 'skip_all' ) {
        return $self->skip_all($arg) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6247	6398	
==>der relative to code.
      
    } elsif($line =~ m/^\s*$/s) {  # it's a blank line
      if(!$self->{'start_of_pod_block'} and @$paras and $paras->[-1] <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	57904	58083	
==>11-1', 0,
sub
#line 503 "Lua\lua51.yp"
{
            PushScopeF( $_[0] );
            PushScope( $_[0] );
        }
	],
	[#Rule 96
		 'function', 3,
sub
#line 508 "Lua\l <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18096	18198	
==>->forth);

      $self->require_semicolon;

      my $arith = Jako::Construct::Statement::Bitwise->new( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	172	260	
==>rtToken;
use Pod::Simple::PullParserEndToken;
use Pod::Simple::PullParserTextToken;

BEGI <==
2	/Users/nnunley/parrot/config/gen/config_h.pm	1009	1130	
==>pe   => '/*',
        ignorePattern => 'PARROT_CONFIG_DATE',
        feature_file  => 1
    );

    my $hh = "include/parr <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23631	23738	
==>rn,$temp]);
    $self->_add_inst("NEXT_$label");
    $self->_restore($temp);
  }
  return $return;
}

sub _o <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24093	24200	
==>rn,$temp]);
    $self->_add_inst("NEXT_$label");
    $self->_restore($temp);
  }
  return $return;
}

sub _o <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1969	2179	
==>of the section,
such as "foo" for
C<< LZ<><Stuff/foo> >>, and "bar" for 
C<< LZ<><Stuff/bIZ<><ar>> >>.

However, anyone particularly interested in getting the full value of
the treelet, can just traverse the con <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	1822	2041	
==>$body;" : "return $body;" ;
    }
    else {
        $ret = $method->{type} eq 'void' ? "" : "return ($method->{type})0;";
    }
    $ret;
}

=item C<class_name($self, $class)>

Returns the appropriate C<Parrot::Pmc2c> s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	5508	5660	
==>{code});
                foreach my $pos (@labels) {
                    push @Q, $labels{$stmt->{code}->{args}->[$pos]->{label}};
                    po <==
2	/Users/nnunley/parrot/lib/Test/More.pm	6117	6213	
==>uates any expression (C<$this eq $that> is just a
simple example) and uses that to determine if t <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	10942	11067	
==>name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # undef only matches undef a <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	11360	11485	
==>name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # undef only matches undef a <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7196	7298	
==>DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print STDERR "Reduce using rule ".-$act." ($lhs,$len) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6862	6962	
==>DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print STDERR "Reduce using rule ".-$act." ($lhs,$len) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977271	977580	
==>RGS" => [
                              "i",
                              "i",
                              "s",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3482	3591	
==>erated code.
	return $pir;
}

sub post_branch($) {
	# Nothing to do here.
	return "";
}

# Pre and post load o <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	2131	2233	
==>arguments (expected $expected, got $args).\n"
    if ($args != $expected);
}

sub _get_arg {
  my ($nod <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4283	4384	
==>s the C code for the run core function declaration.

=cut

sub run_core_func_decl
{
    my ($self, $co <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2771	2872	
==>s the C code for the run core function declaration.

=cut

sub run_core_func_decl
{
    my ($self, $co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568861	569306	
==>[
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 650,
                  "ARGS" => [
                              "i",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 218 \"src/ops/object.ops\" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5300	5405	
==>e => 'assign' });
  $dest->sax($handler);
  $handler->start_element({ Name => 'op', Attributes => { kind = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3363	3468	
==>e => 'assign' });
  $dest->sax($handler);
  $handler->start_element({ Name => 'op', Attributes => { kind = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033326	1033416	
==>_find_pad(interpreter, lex_name, ctx);\n    if (PMC_IS_NULL(lex_pad)) {\n\treal_exception(i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034424	1034514	
==>_find_pad(interpreter, lex_name, ctx);\n    if (PMC_IS_NULL(lex_pad)) {\n\treal_exception(i <==
2	/Users/nnunley/parrot/tools/dev/gen_class.pl	622	904	
==>.pmc
	% perl tools/build/pmc2c.pl -c src/pmc/foo.pmc

=head1 SEE ALSO

F<tools/build/pmc2c.pl>, F<docs/vtables.pod>.

=cut


use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin/../../lib";
use Parrot::Vtable;


my $vtbl = parse_vtable("$FindBin::Bin/../../ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3412	3505	
==>m/tpj/issues/vol5_5/>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  Al <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	4826	4934	
==>ass, $has_push, $has_pop, $has_args, $has_trans,
	    $has_typeinfo);

    # Iterate over keys and do validat <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	19613	19714	
==>lude, $_) } @files;

    Parrot::Pmc2c::Library
        ->new( \%opt, read_dump($include, "vtable.pmc" <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	41593	41711	
==>= $stack[0][1]{'start_line'};

  # A recursive algorithm implemented iteratively!  Whee!


  # Has frightening side eff <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15570	15673	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

1;


__END__

=head1 NAME

Pod::Simple::PullParser -- a <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	21915	22037	
==>2] ne "USER") {
				print CODE<<NOTUSER;
	new P2, .PerlHash
	P2["name"]= '$_->[0]'
	P2["type"]= '$_->[2]'
	P4= P6["storage" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	3579	3722	
==>ition.
#

sub forth
{
  my $self = shift;
  my ($offset) = @_;

  $offset = 1 unless defined $offset;

  my $pos = $self->pos;

  $self->INTERNA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712281	712385	
==>" => "#line 59 \"src/ops/python.ops\"\n  PMC * const io = PIO_STDOUT(interpreter);\n  STRING *s;\n  if (P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713388	713492	
==>" => "#line 59 \"src/ops/python.ops\"\n  PMC * const io = PIO_STDOUT(interpreter);\n  STRING *s;\n  if (P <==
2	/Users/nnunley/parrot/languages/converter.pl	806	917	
==>n(?)
#		{[@item]}
		{ $return = '';
		  $return .= $item[1][0] if defined $item[1][0];
		  $return .= " ( $item[ <==
2	/Users/nnunley/parrot/languages/converter.pl	1103	1214	
==>n(?)
#		{[@item]}
		{ $return = '';
		  $return .= $item[1][0] if defined $item[1][0];
		  $return .= " ( $item[ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	907	1122	
==>,b$(t$)
	i=i+1
loop while t$ <> ""

' 5 and PI
dim a$(), m()
a$(1)="5"
print a$(1)
m(99)=3.14
print m(99)

' basic I/O  1..5
open "_testfile" for output as #3
for i=1 to 5
	print #3, i
next i
close #3
open "_testfile <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	1671	1878	
==>DE "\t.sub ${seg}_main\n\t\tsaveall\n";

	# If any "common" declared variables are in scope, set them up.
	@saves=();
	foreach my $var (keys %{$code{$seg}->{declarations}}) {
		if (exists $main::common{$var}) <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	12972	13073	
==>r, $rdel_inner,
				     $rd);
	return _fail($wantarray, $textref) unless @match;
	return _succeed($wa <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3246	3373	
==>e \
   "exit Pod::Simple::Text->filter(shift)->any_errata_seen" \
   thingy.pod

=head1 DESCRIPTION

This class is a formatter t <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7683	7807	
==>f( $tagname eq 'Para') {
          $tagname = 'Para_item' if @stack and $stack[-1] eq 'text';
        }
        print $fh $se <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	8160	8279	
==>f( $tagname eq 'Para' ) {
        $tagname = 'Para_item' if @stack and $stack[-1] eq 'text';
      }
      print $fh $se <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4661	4775	
==>hift;
	my $pops = shift;
	my $register_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and po <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3077	3191	
==>hift;
	my $pops = shift;
	my $register_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and po <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1681	1784	
==>rgs = $sym->args;

  $self->SYNTAX_ERROR("Wrong number of arguments (expected %d, got %d) in call to '%s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1381	1484	
==>rgs = $sym->args;

  $self->SYNTAX_ERROR("Wrong number of arguments (expected %d, got %d) in call to '%s <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	9063	9201	
==>, $string)=@_;
	if ($fd) {
		push @{$code{$seg}->{code}}, <<PRINT;
	_WRITE($fd,1,"$string")
PRINT
	} else {
		if ($string ne "\\n") {
			pu <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7787	8030	
==>, BITS
}

sub _match_tagged	# ($$$$$$$)
{
	my ($textref, $pre, $ldel, $rdel, $omode, $bad, $ignore) = @_;
	my $rdelspec;

	my ($startpos, $opentagpos, $textpos, $parapos, $closetagpos, $endpos) = ( pos($$textref) = pos($$textref)||0 );

	unless <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	1671	1806	
==>s1($_, $ctx) } @{ $t->{args} };
        if (@children == 1) {
            return $children[0];
        }

        for (@children) { croa <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	441	633	
==>p6rule_like('abcdef', 'bcd', qr/0: <bcd @ 1>/, '$0 capture');

=head1 DESCRIPTION

Parrot::Test::PGE provides functions for testing the grammar engine
and Perl 6 rules.

=cut

use strict;
use w <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	1441	1541	
==>_cpu = 1;
    push @jit_funcs, "Parrot_jit_fn_info_t _op_jit[$core_numops] = {\n";
    $func_end = '_ <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	9682	9817	
==>omplex.h
ctanf       complex.h
ctanh       complex.h
ctanhf      complex.h
ctanhl      complex.h
ctanl       complex.h
ctime       time. <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	905	1204	
==>f warnings that don't apply
        $cflags .= ' -wd269';
    } else {

        # --export-dynamic, s. info gcc, ld
        $linkflags .= ' -Wl,-E';
    }

    if ($cflags !~ /-D_GNU_SOURCE/) {

        # Request visibility of all POSIX symbols
        # _XOPEN_SOURCE=600 doesn't work with glibc 2.1 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	11129	11243	
==>Encoding [$e] is unsupported.",
      "\nSupporteds: @supported\n";
    my $suggestion = '';

    # Look for a near <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41042	41175	
==>} ||= 1;
      $self->_traverse_treelet_bit(@$para);
    }
  }
  
  return;
}

sub _traverse_treelet_bit {  # for use only by the rout <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613406	613856	
==>asses",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 695,
                  "ARGS" => [
                              "p",
                              "sc",
                              "p"
                            ],
                  "BODY" = <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	3145	3279	
==>N");
		fetch;
		goto MAIN;
	}

	if ($cur eq "\n") {   # ;?
		append;
		emit("STMT");
		fetch;
		goto MAIN;
	}
	if ($cur eq ":") {
		app <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2384	2482	
==>escription, @todo)>

Runs the target string against the Perl 6 pattern, passing the test
if the out <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3818	3916	
==>escription, @todo)>

Runs the target string against the Perl 6 pattern, passing the test
if the out <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	33025	33140	
==>c = qq!"$c"!;
    }
    print <<EOC;
	setattribute $obj->[1], $cc, $val $cmt
EOC
}

sub Slice
{
    my ($n, $c, $cmt <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4440	4610	
==>s*_Parse\s*$/
        	and     do {
                	s/^#DBG>//;
                	push(@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4218	4379	
==>s*_Parse\s*$/
        	and     do {
                	s/^#DBG>//;
                	push(@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@ <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3048	3153	
==>s) = @ARGV;

if ($mode eq 'generate') {
    # Convert X.pmc -> X.dump and X.c and also create any lib-GROU <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3152	3257	
==>s) = @ARGV;

if ($mode eq 'generate') {
    # Convert X.pmc -> X.dump and X.c and also create any lib-GROU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253050	253345	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARG <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	193	334	
==>OS abc');
  p6rule_is("   int argc ",
    [
        [ type    => 'int | double | float | char' ],
        [ ident   => '\w+' ],
        [ _MAS <==
2	/Users/nnunley/parrot/lib/Test/More.pm	21176	21304	
==>eds to know \$how_many tests are in the block"
          unless $Test->has_plan eq 'no_plan';
        $how_many = 1;
    }

    f <==
2	/Users/nnunley/parrot/lib/Test/More.pm	23606	23734	
==>eds to know \$how_many tests are in the block"
          unless $Test->has_plan eq 'no_plan';
        $how_many = 1;
    }

    f <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	55893	55994	
==>ode =~ s/\A\s*<token:(.*)>\Z/$1/s;

				my $types = eval 'no strict; local $SIG{__WARN__} = sub {0}; m <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29219	29331	
==>on" => "'$desc'",
	}, $class;
}


sub code($$$$)
{
	my ($self, $namespace, $rule, $check) = @_;
	
my $code = ''.( <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31317	31428	
==>on" => "'$desc'",
	}, $class;
}

sub code($$$$)
{
	my ($self, $namespace, $rule, $check) = @_;
	
my $code = ''.( <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3167	3273	
==>t;
use warnings;

use vars qw(@ISA %pmc_types @EXPORT_OK);

@ISA = qw( Exporter );
@EXPORT_OK = qw( %pmc_ty <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	111	217	
==>t;
use warnings;

use vars qw(@ISA %pmc_types @EXPORT_OK);

@ISA = qw( Exporter );
@EXPORT_OK = qw( %pmc_ty <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8477	8609	
==>gin:
    unless iter goto no_gots
    value_at = shift iter
    if value_at == op2 goto got_it
    inc pos
    goto loop_begin
got_it <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	1368	1589	
==>yte.pod'),
			$self->new_item('', 'docs/parrotbyte.pod'),
			$self->new_item('', 'docs/jit.pod'),
			$self->new_item('', 'docs/native_exec.pod'),
			$self->new_item('', 'docs/running.pod'),
			$self->new_item('', 'docs/por <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644040	644129	
==>s/pmc.ops\"\n  {{\@1}} = {{\@2}}->vtable->type_keyed_int(interpreter, {{\@2}}, {{\@3}});\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644933	645022	
==>s/pmc.ops\"\n  {{\@1}} = {{\@2}}->vtable->type_keyed_int(interpreter, {{\@2}}, {{\@3}});\n <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1687	1781	
==>piler->emit("  $temp_pmc = global \"$ident_name\"");
    $compiler->emit("  $temp_reg = $temp_p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4071	4182	
==>::Block");
  confess "No symbol name!"  unless defined $name;
  confess "Extra arguments!" if @_;

  return $sel <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	4714	4843	
==>y $arg (@{ $t->{args} }) {
            if (UNIVERSAL::isa($arg, 'Regex::Ops::Tree')) {
                # $arg is a reference varia <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	10064	10193	
==>y $arg (@{ $t->{args} }) {
            if (UNIVERSAL::isa($arg, 'Regex::Ops::Tree')) {
                # $arg is a reference varia <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	26873	27065	
==>);
    $cout .= $self->methods($l, $out_name);
    $cout .= $self->init_func;
    if ($self->{const}) {
        $cout .= $self->{const}->methods($l, $out_name);
        $cout .= $self->{const}- <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2368	2461	
==>n, $expected, $description, @todo)>

Runs the target string against the Perl 6 pattern, passin <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3802	3895	
==>n, $expected, $description, @todo)>

Runs the target string against the Perl 6 pattern, passin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114194	114639	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 142,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 204 \"src/ops/bit.ops\"\n  {{\@1}} <<= {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	136	294	
==>ME

Parrot::OpTrans - Transform Ops to C Code 

=head1 DESCRIPTION

C<Parrot::OpTrans> is the abstract superclass for the Parrot op to C
transforms. Each trans <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	5144	5238	
==>Data name="Type" defStyleNum="dsDataType" />
      <itemData name="Comment" defStyleNum="dsComm <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4008	4115	
==>f ($mode eq 'linklibs') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4112	4219	
==>f ($mode eq 'linklibs') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	8083	8195	
==>);
		    $func_info{$cur_f}{flags} = $f;
		    print "# $cur_f; flags=$f\n";
		}
		elsif (/# varnames\s+\((.*)\)/ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	863	991	
==>t file
        open LANG, "> $lang_f" or die "Unable to open '$lang_f'"; # JMG
        binmode LANG; # JMG
        print LANG $la <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	775	903	
==>t file
        open LANG, "> $lang_f" or die "Unable to open '$lang_f'"; # JMG
        binmode LANG; # JMG
        print LANG $la <==
2	/Users/nnunley/parrot/config/gen/platform.pm	2089	2193	
==>rint("\t$header_file\n") if defined $verbose && $verbose == 2;
            open IN_H, "< $header_file" or <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146313	146434	
==>" => "#line 91 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_EQ)) {\n    {{+={{\@3}}}};\ <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	2543	2669	
==>0
END_PIR

    $P0[unicode:"dyadic:\u2371"]  = <<"END_PIR"             # nor
    $I100 = %1
    $I101 = %2
    $I100 = or $I100 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	1834	1995	
==>! ref $_; };

        # opt(|R) -> opt(R)??
        # opt(|R|S) -> opt(R|S)??
        # opt(|||R|S) -> opt(R|S)??
        # opt(|||) -> ()
        if ($children[0 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	5286	5405	
==>checker->errors_seen;
		$self->{CONTAINS_POD} = $checker->content_seen;
	}
}

=item C<contains_pod()>

Tells you whether <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2226	2341	
==>_code_indents($file, $source);
    check_function_definitions($file, $source);
    check_cuddled_else($file, $source <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687619	687919	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688390	688690	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29177	29287	
==>2],
		"line"        => $_[3],
		"description" => "'$desc'",
	}, $class;
}


sub code($$$$)
{
	my ($self, $names <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31277	31384	
==>2],
		"line"      => $_[3],
		"description" => "'$desc'",
	}, $class;
}

sub code($$$$)
{
	my ($self, $names <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632000	632456	
==>LAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 708,
                  "ARGS" => [
                              "p",
                              "i",
                              "p"
                            ],
                  "BODY" = <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6613	6749	
==>R "Shift and go to state $act.\n";

					$$errstatus
				and	do {
					--$$errstatus;

#DBG>					$debug & 0x10
#DBG>				and	$dbger <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6306	6435	
==>R "Shift and go to state $act.\n";

					$$errstatus
				and	do {
					--$$errstatus;

#DBG>					$debug & 0x10
#DBG>				and	$dbger <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854868	855038	
==>,
                              "s"
                            ],
                  "BODY" => "#line 105 \"src/ops/string.ops\"\n  {{\@1}} = string_concat(interpreter, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855757	855927	
==>,
                              "s"
                            ],
                  "BODY" => "#line 105 \"src/ops/string.ops\"\n  {{\@1}} = string_concat(interpreter, {{ <==
2	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	373	478	
==>line
before rerunning the build script.

=head1 EXAMPLE

See parrot/config/gen/makefiles/imcc.in for an ex <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	352	521	
==>DESCRIPTION

This file is generated by F<config/gen/makefiles.pl> from
F<config/gen/makefiles/dynclasses_pl.in>.  This script is used for building
dynamic PMCs.

=cut

us <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	318	414	
==>DESCRIPTION

This file is generated by F<config/gen/makefiles.pl> from
F<config/gen/makefiles/dyn <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11406	11523	
==>def if length $out > $Linearization_Limit;
  
  $out = $self->unicode_escape_url($out);
  $out = '_' unless length $ou <==
2	/Users/nnunley/parrot/lib/File/Which.pm	3597	3736	
==>rces search for all of them

=head1 DESCRIPTION

C<File::Which> was created to be able to get the paths to executable programs
on systems un <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1250	1355	
==>ck
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
d <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2960	3065	
==>ck
	# we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
d <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	46262	46403	
==>s*\[/)
		unless $self->{_check}{itempos};
	for (qw(thisoffset thiscolumn prevline prevoffset prevcolumn))
	{
		$self->{_check}{$_} =
			($gram <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201569	201845	
==>PE" => "inline",
                  "CODE" => 238,
                  "ARGS" => [
                              "n",
                              "nc",
                              "ic"
                            ],
                  "BODY" => "#line 373 \"src/ops/cmp.ops\"\n <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	4122	4241	
==>OPS}}) {
        $_->{CODE} = find_op_number($_->full_name, $_->{experimental});
    }

    @{$ops->{OPS}} = sort { $a-> <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	1433	1902	
==>espace.
            push @output, [ 1, q{} ];
            push @output, [ 0, $verbatim_chunk ];
            push @output, [ 1, q{} ];
            undef $verbatim_chunk;
            $verbatim = 0;
            next;
        }

        if ($verbatim) {
            $verbatim_chunk .= $line;
            $verbatim_chunk .= "\n";
            next;
        }
        else {

            # strip whitespace
            $line =~ s{ ^ \s+ }{}xms;
            $line =~ s{ \s+ $ }{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841681	842001	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842445	842765	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARG <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	6603	6758	
==>_command skip slurp_file );

use base qw( Exporter );

# tell parrot it's being tested--disables searching of installed libraries.
# (see Parrot_get_runtime <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045442	1045640	
==>c",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interpret <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6992	7093	
==>NE PLACE WHERE WE CONSTRUCT NEW DIRECTIVE OBJECTS
        my $new = [$1, {'start_line' => $self->{'lin <==
2	/Users/nnunley/parrot/lib/Test/More.pm	5629	5728	
==>ons take a name argument.  It's optional, but highly
suggested that you use it.


=head2 I'm ok, you <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	7048	7171	
==>($file) && -e $file) {
        return $file;
    }

    foreach my $dir ( @$include ) {
        my $path = File::Spec->catfi <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	30684	30835	
==>to four scalars (the input text, the
delimiters, a prefix pattern to be skipped, and any escape characters)
and extracts the initial substring of the te <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	27965	28240	
==>",
                  "NAME" => "get_results",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 37,
                  "AR <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1147	1264	
==>me;
}

sub dbgoto {
    my ($self, $label) = @_;
    return () unless $self->{DEBUG};
    return () unless $self->{DEB <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	637	754	
==>me;
}

sub dbgoto {
    my ($self, $label) = @_;
    return () unless $self->{DEBUG};
    return () unless $self->{DEB <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	10173	10314	
==>my $parrot = File::Spec->join(File::Spec->curdir(), 'parrot' . $PConfig{exe});

    my %parrot_test_map = (
        pbc_output_is      => 'is_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	12970	13114	
==>l
{\f0\froman Times New Roman;}
{\f1\fmodern Courier New;}
{\f2\fswiss Arial;}
}

END
}

sub doc_init {
   return <<'END';
{\rtf1\ansi\deff0

END <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023377	1023471	
==>) {{\@2}};\n  Parrot_localtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024227	1024321	
==>) {{\@2}};\n  Parrot_localtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3 <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	10898	11058	
==>**)            #type
      \s+
        (\w+)           #method name
      \s*
        \( ([^\(]*) \)  #parameters
    }sx;

    my ($pre, $classname, $flags)   = <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	913	1013	
==>egin_yield
    .pcc_end_yield .namespace .endnamespace .macro .include);
my @pod_start = qw(head[1-6] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595352	595658	
==>\@3}});\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
2	/Users/nnunley/parrot/config/auto/readline.pm	1690	1969	
==>y $has_readline = 0;
    if (!$@) {
	$has_readline = 1;
	print " (yes) " if $verbose;
	$self->set_result('yes');

	$conf->data->set(
	    readline     => 'define',
	    HAS_READLINE => $has_readline,
	);
    }
    unless ($has_readline) {

        # The Config::Data settings migh <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	8168	8326	
==>rintf("%.02f", Time::Seconds->new($10)->minutes) . "&nbsp;min",
      summary       => [{
        total       => $11,
        ok          => $12,
        faile <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6207	6341	
==>ains_pod )
	{
		my $formatter = Parrot::Docs::POD2HTML->new;
		
		$self->{POD_HTML} = $formatter->html_for_file($self);
	}
	
	return $s <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	12200	12355	
==>e:"dyadic:\u2191" :multi (Float, APLVector) # take
    .param int op1
    .param pmc op2

    .local pmc result 
    result = new 'APLVector'

    .local pm <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2627	2727	
==>=~ /^[^\/]*\.c$/);

    my $dev_file = $file; $dev_file =~ s/(.*)\.c$/docs\/dev\/$1.dev/g;
    return <==
2	/Users/nnunley/parrot/config/gen/config_pm.pm	1101	1329	
==>mp()/e;
	    s/(\$\(([A-Za-z_]+)\))/$data->get(lc $2) || $1/eg;
	}
        print OUT;
    }

    close IN  or die "Can't close Config_pm.in: $!";
    close OUT or die "Can't close Config.pm: $!";

    my $template = "config/gen/c <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	4303	4458	
==>led_else {
    my ($file, $source) = @_;

    my $line = 0;
    foreach (@$source) {
        $line++;
        next unless $_;

        if (/\}\s*else\s*\{/) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065104	1065200	
==>\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed_str(inter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065978	1066074	
==>\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed_str(inter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009887	1010143	
==>_compose(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010652	1010908	
==>_compose(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	4379	4525	
==>es/root.in' => 'languages/HQ9plus/Makefile',
        commentType                  => '#',
        replace_slashes              => 1,
        condit <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	2262	2504	
==>n"
        foreach (@pmcs[0 .. $#pmcs - 1]);
    print OUT <<"END_C";
        if (!pass) {
	    parrot_global_setup_2(interp);
        }
    }
}

static void register_pmc(Interp *interp, PMC* registry, int pmc_id)
{
    STRING* key = interp->v <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	858	1002	
==>ing but the pmclass declaration
    s/^.*?pmclass//s;
    s/\{.*$//s;

    return $PMC_PARENTS{$pmc} = lc($1) if m/extends\s+(\w+)/;
    return $ <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	3062	3378	
==>g{slash}ops\E/;

        my $cfile = $ofile;
        $cfile =~ s/\Q$PConfig{o}\E$/.c/;

        my $pmcfile = $ofile;
        $pmcfile =~ s/\Q$PConfig{o}\E$/.pmc/;

        my $sourcefile = -f $pmcfile ? $pmcfile : $cfile;
        my $hfile = $cfile;
        $hfile =~ s/\.c$/.h/;

        my $fh = open_file( "<", $c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710719	710812	
==>nterpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_printf(interpreter, INTVAL_F <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711553	711646	
==>nterpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_printf(interpreter, INTVAL_F <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74222	74400	
==>t;
		my $prevtextlen = length $text;
		my $_tok;
		if (! defined ($_tok = &$prod($parser,$text,1,$_noactions,$argcode)))
		{
			$text = $_savetext;
			last;
		}
		push @tokens, $_ <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	395	508	
==>result = GetOptions(
    "all" => \$do_all,
    "init" => \$do_init,
);

$do_all and do {
    &read_all;
    &crea <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	817409	817596	
==>_core",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 925,
                  "ARGS" => [],
                  "BODY" => "#line 610 \"s <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6347	6473	
==>ct=$$actions{DEFAULT};
#DBG>			$debug & 0x01
#DBG>		and	print STDERR "Don't need token.\n";
        }

            defined <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6052	6173	
==>ct=$$actions{DEFAULT};
#DBG>			$debug & 0x01
#DBG>		and	print STDERR "Don't need token.\n";
        }

            defined <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104147	1104252	
==>);\n\t{{\@1}} = pmc_new_init(interpreter, type, {{\@3}});\n\t{{+=4}};\n",
                  "experimental" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105362	1105467	
==>);\n\t{{\@1}} = pmc_new_init(interpreter, type, {{\@3}});\n\t{{+=4}};\n",
                  "experimental" <==
2	/Users/nnunley/parrot/lib/File/Which.pm	236	352	
==>($^O eq 'VMS');
my $Is_MacOS  = ($^O eq 'MacOS');
my $Is_DOSish = (($^O eq 'MSWin32') or
                ($^O eq 'dos <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	11870	11971	
==>generate($_);
    $self->_add_inst(''         ,'eq' ,[$temp,0,"DONE_$label"]);
    $self->_restore($te <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	1034	1154	
==>o consider this TODO'

at the end of the argument list.  Valid reasons include C<bug>,
C<unimplemented>, and so on.

B<No <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1593	1696	
==>${STEMP0}

# Emit pop code.
${INS} = concat ${STACK$register_num}
${INS} = concat " = pop s\n"
PIR
		$pi <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3303	3406	
==>${STEMP0}

# Emit pop code.
${INS} = concat ${STACK$register_num}
${INS} = concat " = pop s\n"
PIR
		$pi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1189	1316	
==>RS:
#

sub type      { return shift->{TYPE};      }
sub name      { return shift->{NAME};      }
sub props     { return %{shift- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1524	1651	
==>RS:
#

sub type      { return shift->{TYPE};      }
sub name      { return shift->{NAME};      }
sub props     { return %{shift- <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2431	2660	
==>esc
                                                  );
        unless ( $pass ) {
            my $diag = '';
            my $test_prog = join ' && ', @test_prog;
            $diag .= "'$test_prog' failed with exit code $exit_cod <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	2448	2661	
==>esc
                      );
           unless ( $pass ) {
               my $diag = '';
               my $test_prog = join ' && ', @test_prog;
               $diag .= "'$test_prog' failed with exit code $exit_cod <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	10512	10731	
==><rx_input>;
#         \$rx_match{'!GROUPS'} ||= [];
#     } else {
#         \%rx_match = %{ shift() };
#         <rx_input> = <rx_match>{'!INPUT'};
#         <rx_pos> = <rx_match>{'!POS'};
#         <rx_stack> = <rx_mat <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	36726	36886	
==>ucceed, since optional items always
					   match (zero times at worst). 
					   Did you mean a single \"!$subrule\", 
					   instead?");
		}
	}
	bless 
	{
		" <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	24954	25105	
==>ew_letter = $1;
    my $fallbacks_one = $2;
    my $elements_one;
    $elements_one = defined($3) ? $3 : $1;

    DEBUG > 2 and print "Extensor has good <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	11867	12072	
==>ter2 goto inner_done
    $P2 = shift iter2
    if $P1 == $P2 goto outer_loop # result must be without this.
    goto inner_loop

inner_done:
    push result, $P1
    goto outer_loop

outer_done:
    .return <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632589	632685	
==>O_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633631	633727	
==>O_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_init( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054367	1054460	
==>Tried to get from null namespace.\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to g <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055494	1055587	
==>Tried to get from null namespace.\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to g <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	1878	2000	
==>ix, # Prefix, if given in source code.
    SYMBOLS => { },     # Identifiers
    CONTENT => [ ]      # Constructs
  }, $cla <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11986	12107	
==>me, $fail) = @_;
    my $fail_label = $self->output_label_use($fail);
    my @ops;
    if (defined $name) {
        push @ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	12652	12773	
==>me, $fail) = @_;
    my $fail_label = $self->output_label_use($fail);
    my @ops;
    if (defined $name) {
        push @ <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	418	528	
==>econd) using
integer arithmetic.

Prints out:

=over 4

=item * the number of look iterations, 

=item * the es <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	422	531	
==>econd) using
integer arithmetic.

Prints out:

=over 4

=item * the number of look iterations,

=item * the es <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64634	64726	
==>.ops\"\n  Interp * const new_interp = (Interp *)PMC_data({{\@1}});\n  Interp_flags_SET(new_in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65585	65677	
==>.ops\"\n  Interp * const new_interp = (Interp *)PMC_data({{\@1}});\n  Interp_flags_SET(new_in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651072	651468	
==>E" => "valid_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 728,
                  "ARGS" => [
                              "i",
                              "ic"
                            ] <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	1696	1943	
==>gs} };
        if (@children == 1) {
            return $children[0];
        }

        for (@children) { croak "nonref alternative?" if ! ref $_; };

        # opt(|R) -> opt(R)??
        # opt(|R|S) -> opt(R|S)??
        # opt(|||R|S) -> opt(R|S <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576543	576653	
==>, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577555	577665	
==>, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	961	1110	
==>const_table->const_count;

    if ($count < 1) {
	warn "Disassembling without opcode table fingerprint!";
	return;
    }

=for COMMENT
    die "Cannot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326988	327126	
==>"
                            ],
                  "BODY" => "#line 154 \"src/ops/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_native(inter <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	4566	4707	
==>$_->{CODE} < 0);	# skip
    my $opname = $_->full_name;
    my $n = $ParrotOps::optable{$opname} ;
    if ($n != $_->{CODE}) {
	die "op number <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7236	7444	
==>$kind;
  confess "Extra arguments!" if @_;

  if ($self->kind eq $kind) {
    if (defined $label) {
      return $self if $self->prefix eq $label;
    }
    else {
      return $self;
    }
  }

  return undef <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8699	8842	
==>of_tests_badpass tests of $Test::num_of_tests_run passed unexpectedly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_of_tests_faile <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	1535	1631	
==>die "Must always have fallback defined!" if ! $fallback;
    return "rx_popindex P0, ".$self->out <==
2	/Users/nnunley/parrot/config/auto/jit.pm	2542	2709	
==>rc/asmfun.s");
        $conf->data->set(asmfun_o => 'src/asmfun$(O)');
    } elsif (-e "$jitbase/$cpuarch/asm.s") {
        copy_if_diff("$jitbase/$cpuarch/asm.s", "src <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	24076	24210	
==>unshift @args, promote($arg);
	}
	my ($i, $j, $arg_name);
	my $pushed_args = scalar @args;
	#
	# that's wrong, works only for all or no <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	7014	7132	
==>_ );
}

# this kludge is an hopefully portable way of having
# redirections ( tested on Linux and Win2k )
# An alternat <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	4540	4655	
==>i_match {
    my ($self, $op, $min, $max, $greedy, $R, @rest) = @_;

    if (($min == 0) && defined($max) && ($max = <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3699	4007	
==>> '-Fo',
            cc_exe_out => '-out:',
            cc_ldflags => '/link',

            # ZI messes with __LINE__
            cc_debug             => '-Zi',
            libs                 => "$libs libircmt.lib",
            ld                   => 'xilink',
            ld_debug             => '-debug' <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1820	2087	
==>> '-Fo',
            cc_exe_out => '-out:',
            cc_ldflags => '/link',

            # ZI messes with __LINE__
            cc_debug             => '-Zi',
            ld_debug             => '-debug',
            ld_share_flags       => '-dll',
            ld_lo <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	2088	2215	
==>s of the Parrot test suite.', 't/TESTS.STATUS.pod'),
        ),
        $self->new_group('People', '',
            $self->new_it <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	6020	6160	
==>he raw TODO, so we have to check it
    my $context;

    # Check if we have to forcetodo this test
    # because we're preparing for a relea <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33590	33719	
==>"implicit"  => $_[4] || undef,
		"matchrule" => $_[5],
		"argcode"   => $_[6] || undef,
	}, $class;
}


sub code($$$$)
{
	my ($sel <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14692	14895	
==>nst loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	15379	15582	
==>nst loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	2264	2359	
==>ably specific to Parrot,
not some generic term.  Currently acceptable prefixes are
C</^(Parrot|P <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1483	1762	
==>REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
print "Elap <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1483	1762	
==>REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
print "Elap <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	1752	1903	
==>nvert_sv_literal($atom, $ctx);
    } else {
        $R = op('external' => [ 'string', [ $atom, $ctx ] ]);
    }

    if ($tree->capture) {
        retur <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	29800	29900	
==>0, "$_", UF_}, english_func($_), qq{\n};
			}
		}
		print FUNC<<FUNCEND;
	goto UF_DISPATCH_END
UF_DIS <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	57659	57777	
==>xtract a ' or " delimited string, otherwise extract anything up to a comma...">.
The undef third argument means:
I<"... <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	28453	28775	
==>', ', map $_->[0], @$curr_open), ").\n";
        $self->whine(
          $para->[1]{'start_line'},
          '=back without =over'
        );
        next; # and ignore it
      }
      
    } else { #////////////////////////////////////////////////////////////////
      # All non-magical codes!!!
      
      # Here we s <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	31745	31875	
==>ine'};

  # A recursive algorithm implemented iteratively!  Whee!

  while($treelet = shift @stack) {
    for(my $i = 2; $i < @$tre <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	28244	28353	
==>ine'};

  # A recursive algorithm implemented iteratively!  Whee!

  while($treelet = shift @stack) {
    for( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6578	6687	
==>ing
      
      if(!$self->{'start_of_pod_block'} and !$self->{'last_was_blank'}) {
        DEBUG > 1 and pri <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080307	1080449	
==>"k"
                            ],
                  "BODY" => "#line 145 \"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081372	1081514	
==>"k"
                            ],
                  "BODY" => "#line 145 \"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interp <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37220	37315	
==>, $min, $max, $lookahead) =
		@{$self}{ qw{subrule repspec min max lookahead} };

''.($::RD_NO_T <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3564	3713	
==>tents)
	{
		# We wait until now to do this because only now are all
		# the contents guaranteed to be instances.
		# Remember that this method is also <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	8331	8506	
==>D}) {
        $_ = "$ENV{VALGRIND} $_" for (@$command);
    }

    my $orig_dir;
    if ( $chdir ) {
        $orig_dir = cwd;
        chdir $chdir;
    }

    # Execute all com <==
2	/Users/nnunley/parrot/lib/Test/More.pm	25111	25244	
==>ess [], 'Does::Not::Exist';
sub is_deeply {
    unless( @_ == 2 or @_ == 3 ) {
        my $msg = <<WARNING;
is_deeply() takes two or t <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	319	444	
==>n describing Parrot's big number subsystem.

=head2 Class Methods

=over

=cut

package Parrot::Docs::Section::BigNum;

use st <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	2018	2160	
==>$node, $expected, $name) = @_;

  my $args = scalar @{$node->{children}} - 1;

  confess "$name: Wrong number of arguments (expected $expected, <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	4851	5062	
==>em C<read_ops($file,$nolines)>

Reads in the specified .ops file, gathering information about the ops.

=cut

sub read_ops
{
    my ($self, $file, $nolines) = @_;

    my $ops_file = "src/" . $file;


    die "Pa <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	48770	48906	
==>_bracketed"> and
C<"extract_quotelike">.

C<extract_codeblock> takes the same initial three parameters as C<extract_bracketed>:
a text to <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2171	2294	
==>ted to shadow the
  # previous definition.
  #

  if (defined $sym and $sym->block eq $block) {
    $self->SYNTAX_ERROR("Red <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1918	2041	
==>ted to shadow the
  # previous definition.
  #

  if (defined $sym and $sym->block eq $block) {
    $self->SYNTAX_ERROR("Red <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3291	3446	
==>k the short description for each
			# file and create an item for sequences of files with the
			# same description.
			
			push @contents, 
				map {$self- <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	1667	1921	
==>d is imported by subclasses.

=cut

sub gen_ret {
    my ($method, $body) = @_;

    my $ret;
    if ($body) {
        $ret = $method->{type} eq 'void' ? "$body;" : "return $body;" ;
    }
    else {
        $ret = $method->{type} eq 'void' ? "" : "return <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	6912	7011	
==>ave a valid previous value anyway; I think that'll only come in for
# situations like (R)*, which ar <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	11398	11661	
==>eturn $incexc;
}

sub rewrite_classpieces {
    my ($self, $op, $classpieces, $lastback) = @_;
    my $incexc = _translate_classpieces($classpieces);
    return $self->rewrite_charclass($op, $incexc, $lastback);
}

sub rewrite_charclass {
    my ($self, $op, $ince <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	53982	54175	
==>], $_[3] );
        }
	],
	[#Rule 65
		 'exp', 3,
sub
#line 369 "Lua\lua51.yp"
{
            BuildRelop( $_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 66
		 'exp', 3,
sub
#li <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210292	210415	
==>vtable->get_string(interpreter, {{\@1}}), {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211272	211395	
==>vtable->get_string(interpreter, {{\@1}}), {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	7371	7489	
==>parser->_SingleQuoteStringLexer();

            s/^\[(=*)\[//
                and return $parser->_LongStringLexer($ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2078	2171	
==>i#rtfindent#\\s31\\keepn\\sb90\\sa180\\f2\\fs#head1_halfpoint_size#\\ul{\n",
 '/head1'  => "\n <==
2	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	7	104	
==>ight (C) 2001-2006, The Perl Foundation.
# $Id: /parrot/lib/Parrot/BuildUtil.pm 20321 2006-06-20T2 <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	29120	29319	
==>rlpodspec:

# In parsing an L<...> code, Pod parsers must distinguish at least four
# attributes:

############# Not used.  Expressed via the element children plus
#############  the value of the "con <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	61924	62105	
==>nerate {
    my $parser = shift;

    my $filename = $parser->YYData->{srcname};
    $filename =~ s/\.lua$/\.pir/i;
    open my $FH, '>', $filename
        or die "can't open $ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	20124	20264	
==>left, $right);
            $func = $method->{mmd};
            # dynamic PMCs need the runtime type
            # which is passed in entry to <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3386	3488	
==>ote with an unescaped '$'.
      $string = substr($string, 1, -1); # Without the surrounding double quo <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1705	1806	
==>ote with an unescaped '$'.

    $string = substr($string, 1, -1); # Without the surrounding double quo <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3781	3974	
==>n' } });
  }

  if ($name) {
    $handler->start_element({ Name => $kind, Attributes => { loop => $name } });
  }
  else {
    $handler->start_element({ Name => $kind });
  }
  $handler->end_ele <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	7691	7886	
==>}\n";
            } else {
                $has_typeinfo = 1;
            }
        }
		
        # Unknown key.
        else {
            die "Unknown key $_ in rule $rule->{'name'}\n";
        } <==
2	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	644	766	
==>$libs .= ' -lpthread';
    }
    if ($libs !~ /-laio/) {
        $libs .= ' -laio';
    }
    $conf->data->set(libs => $lib <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19662	19759	
==>e($syms[CURR] ne "end") {
			my($name,$type);
			die "Syntax error in type $type[CURR]/$syms[CURR] <==
2	/Users/nnunley/parrot/config/gen/icu.pm	1985	2174	
==>cushared == 0;
            }

            # location of header files
            $icuheaders = capture_output("$icuconfig --prefix");
            if (defined $icuheaders) {
                c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349638	350038	
==>=> ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 407,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 16 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937958	938293	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "join",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938847	939182	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "join",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8228	8362	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9343	9477	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_c <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	6882	6974	
==>-------------------------------------------------------------------------
# TODO: document th <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33735	33855	
==>@$para, splice @{shift @$paras},2;
            } else {
              DEBUG and print "Can't assimilate following ", $par <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35548	35668	
==>@$para, splice @{shift @$paras},2;
            } else {
              DEBUG and print "Can't assimilate following ", $par <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	14767	14935	
==>olower     ctype.h
toupper     ctype.h
trunc       math.h
truncf      math.h
truncl      math.h
ungetc      stdio.h
vfprintf    stdio.h
vfscanf     stdio.h
vprintf     s <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	23	148	
==>05, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Configure/Data.pm 20321 2006-06-20T20:02:00.179448Z bernhard  $

=pod

=hea <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70887	71115	
==>n  {{\@1}} = Parrot_load_lib(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71656	71884	
==>n  {{\@1}} = Parrot_load_lib(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33618	33741	
==>') {
              DEBUG and print "Assimilating following ~Para content into $over_type item\n";
              push @$para, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35431	35554	
==>') {
              DEBUG and print "Assimilating following ~Para content into $over_type item\n";
              push @$para, <==
2	/Users/nnunley/parrot/config/init/hints/darwin.pm	342	555	
==>s;
    {
        local $^W;
        if ($OSVers >= 7) {
            $libs =~ s/-ldl//;
        }
    }

    $ccflags .= " -pipe -fno-common -Wno-long-double ";
    $ccflags =~ s/-flat_namespace\s*//;
    $ldflags = <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	21557	21705	
==>ined($_[0]) ? \$_[0] : \$_;
	my $posbug = pos;
	my ($lastpos, $firstpos);
	my @fields = ();

	#for ($$textref)
	{
		my @func = defined $_[1] ? @{$_[1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	16797	16930	
==>=item C<ops()>

Returns the C<Parrot::Op> instances found in the file(s).

=cut

sub ops
{
    my ($self) = @_;

    return @{$self->{ <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	985	1101	
==>rrot API

The API is listed in the public headers but not defined in the Parrot lib.

Either the API listing is wrong <==
2	/Users/nnunley/parrot/config/auto/memalign.pm	715	869	
==>>set_result('skipped');
        return $self;
    }

    if (defined $conf->data->get('memalign')) {
        # already set; leave it alone
        $self->s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	6639	6884	
==>>{next}->{label}
                && $stmt->{code}->{args}->[0] == $stmt->{next}->{label})
            {
		# If the label of the goto is the label of the following
		# block of code:
		next;
	    }
	}
	push @output4, $stmt;
    }

    # Delete lab <==
2	/Users/nnunley/parrot/tools/dev/symlink.pl	2441	2604	
==>adlink) {
		    unless (unlink($dstfile)) {
			warn "$self: unlink $dstfile failed: $!\n";
		    }
		}
		unless (symlink($srcfile, $dstfile)) {
		    warn "$self: s <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	5621	5776	
==>$source_file} = $percent;
                next;
            }
        }

        filter_gcov($gcov_file);
    }
}

write_file_coverage_summary();
write_func <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	136	255	
==>the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/Module.pm 19606 2006-05-30T15:08:05.048 <==
2	/Users/nnunley/parrot/config/init/hints/cygwin.pm	270	376	
==>some reason is not
    # in the standard installation, so we get rid of it
    my $libs = $conf->data->get( <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6242	6331	
==>MP0}] = ${STYPES}
prop_stack_depth[${ITEMP0}] = stack_depth
goto POST_BRANCH_NOT_switch_${ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4180	4269	
==>MP0}] = ${STYPES}
prop_stack_depth[${ITEMP0}] = stack_depth
goto POST_BRANCH_NOT_switch_${ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	373	483	
==>e qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $left, $right) = @_;

  confess <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	364	474	
==>e qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $left, $right) = @_;

  confess <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264740	265058	
==>tsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 308,
                  "ARGS" => <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2826	2977	
==>y($prompt,$filedesc,$noreloop)=@_;
	my @values=();

	push @{$code{$seg}->{code}}, $prompt; 
	my $sf=1;
	$sf=0 if ($filedesc);

	push @{$code{$seg}->{cod <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	38878	39019	
==>d $para->[2] eq '' )
          or $para->[1]{'~cooked'}
        ) {
          push @$para,
          @{$self->_make_treelet(
            join( <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	33462	33583	
==>ng,
  # Not adding caar/cadr/cdar/whatever
  'null?'    => \&_op_null_p,
  'list?'    => \&_op_list_p,
  'list'     => \&_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	922428	922782	
==>"i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1038,
                  "ARGS" => [
                              "p",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 321 \"s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184	292	
==>:OpLib::core - Parrot Op Info

=head1 DESCRIPTION

This is an autogenerated file, created by F<tools/build/op <==
2	/Users/nnunley/parrot/config/auto/jit.pm	2675	2790	
==>iff("$jitbase/$cpuarch/asm.s", "src/asmfun.s");
        $conf->data->set(asmfun_o => 'src/asmfun$(O)');
    } else { <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	6717	6830	
==>) = @_;

    my $const = bless {}, $class . '::Const';
    $self->{const} = $const;
    my @methods = @{ $self->{m <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	9513	9702	
==>uct( CLASS_NAME => { ELEMENT_LIST });
    struct( ELEMENT_LIST );

The first and second forms explicitly identify the name of the
class being created.  The third form assumes the current pac <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	31232	31474	
==>LEMS(signature);\n    {{+=argc + 2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320021	320272	
==>AL)((Parrot_Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320791	321042	
==>AL)((Parrot_Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	1273	1423	
==>ind::prune = 1;	
            return;
        }
        return if /malloc/;

        /^.*\.[ch]\z/s &&
            push @files, $File::Find::name;
    } <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	5332	5444	
==>ative = run_compiled;
    /* TODO make also a shared variant of PackFile_new */
    pf          = PackFile_new(0) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936259	936348	
==>5 \"src/ops/string.ops\"\n  {{\@1}} = string_titlecase(interpreter, {{\@2}});\n  {{+=3}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937036	937125	
==>5 \"src/ops/string.ops\"\n  {{\@1}} = string_titlecase(interpreter, {{\@2}});\n  {{+=3}};\ <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	9314	9484	
==>NULL';
$getop = '( int (*)(const char *, int) )NULL';

if ($suffix eq '') {
    $op_func = "${bs}op_func_table";
    print SOURCE <<END_C;

INTVAL ${bs}numops${suffix} = $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852982	853380	
==>" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 968,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 100 \"src/ops/string.ops\"\n  {{\@1}} = string <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	4982	5237	
==>"No pmclass declaration found in $pmc_file"
            if !defined $name;

        # please note that normal and Const PMCs must be in this
        # order
        push @names, $name;
        push @names, "Const$name" if $const;
    }

    $conf->data->se <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594790	595048	
==>=> 674,
                  "ARGS" => [
                              "p",
                              "kc",
                              "kc"
                            ],
                  "BODY" => "#line 325 \"src/ops/object.ops\"\n  PMC *class = Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048410	1048668	
==>}, next);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEX <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049334	1049592	
==>}, next);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEX <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27175	27272	
==>clarations for all the methods for inclusion
in the PMC's C header file.

TODO include MMD variant <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002994	1003392	
==>S" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1120,
                  "ARGS" => [
                              " <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	679	795	
==>>{'Errata_seen'};
}

sub new {
  my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDO <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5154	5272	
==>block;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  $h <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3217	3335	
==>block;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  $h <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	3492	3607	
==>v-README.pod'),
        ),
        $self->new_group('Possibly obsolete', '',
            $self->new_item('', 'tools/ <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1898	2001	
==>SUPER::new($path);
}

=back

=head2 Instance Methods

=over 4

=item C<create_path()>

This is called fr <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	875	978	
==>SUPER::new($path);
}

=back

=head2 Instance Methods

=over 4

=item C<create_path()>

This is called fr <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30045	30138	
==>::Standard';
import Parrot::Pmc2c qw( gen_ret );

=item C<body($method, $line, $out_name)>

Re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902848	903319	
==>"i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1018,
                  "ARGS" => [
                              "s",
                              "i",
                              "ic",
                              "sc"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replac <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	315	425	
==>();
my @dos=();
@selects=();
my $scopes=0;
my @data=();
sub parse_keys {
	feedme();
	my $targ=$syms[CURR];
	fee <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2317	2430	
==>$retval = $self->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exists($$self{USER})
	or	$ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2230	2334	
==>$retval = $self->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exists($$self{USER})
	or	$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273532	273705	
==>",
                              "n"
                            ],
                  "BODY" => "#line 876 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n" <==
2	/Users/nnunley/parrot/languages/converter.pl	2213	2525	
==>[0];
my @lines;
my @rules;

open FILE,$file or die "Couldn't open '$file': $!";
@lines = <FILE>;
close FILE;

my $in_rule = 0;
for(@lines) {
  chomp;
  next if /^\s*$/;
  next if /^\s*#/;
  if($in_rule) {
    if(/::=/) {
      push @rules,$_;
    }
    else {
      $rules[-1] .= "\n$_";
    }
  }
  else {
    if <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7379	7523	
==>aragraph as done.
                
        push @$paras, $new; # the new incipient paragraph
        DEBUG > 1 and print "Starting new ${$paras}[ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242020	242121	
==>ne 624 \"src/ops/cmp.ops\"\n  FLOATVAL l = VTABLE_get_number(interpreter, {{\@2}});\n  {{\@1}} = l < { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242969	243070	
==>ne 624 \"src/ops/cmp.ops\"\n  FLOATVAL l = VTABLE_get_number(interpreter, {{\@2}});\n  {{\@1}} = l < { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	12986	13073	
==>ps/core.ops\"\n  opcode_t * loc;\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13830	13917	
==>ps/core.ops\"\n  opcode_t * loc;\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953827	954089	
==>"encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954617	954879	
==>"encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
2	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1541	1648	
==>..

Available options:
  --smokeserv=http://path/to/smokeserv.pl
    Sets the path to the smoke server.
  -- <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	3253	3355	
==>is rw, Str $expected_type, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $out := defin <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	11855	12065	
==>ef $self and $self->isa("Jako::Construct::Block");
  confess "No compiler!" unless defined $compiler and ref $compiler and $compiler->isa("Jako::Compiler");
  confess "Bad options!" if defined $options and not ( <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	11569	11700	
==>f eq '$#' or $deref eq '$$' )
	    {
		_failmsg "Bad identifier after dereferencer", pos $$textref;
		pos $$textref = $startpos;
		r <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	9544	9676	
==>ess exists $labdef{$_};
	}
}
sub create_label {
	unless (exists $labels{$syms[CURR]}) {
		$labels{$syms[CURR]}="USERLABEL_$branchseq" <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	4300	4412	
==>sif (UNIVERSAL::isa(\$init{'$name'}, '$type'))\n";
            $out .= "            { \$r->$elem = \$init{'$name' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1815	1906	
==>, call
C<<
Pod::Simple::PullParserTextToken->new( I<text> )
>>

=head1 SEE ALSO

L<Pod::Simp <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	31941	32062	
==>group (0 .. $num_groups) {
        push @ops, aop('initgroup' => [ $group ]);
    }

    push @ops, aop('setstart' => [ "0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359680	359938	
==>> "printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 421,
                  "ARGS" => <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	28019	28153	
==>s the test considered a pass?
              actual_ok  => did it literally say 'ok'?
              name       => name of the test (if a <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	137	420	
==>n.
# $Id: /parrot/tools/dev/run_indent.pl 19607 2006-05-30T15:23:20.183054Z coke  $
################################################################################

=head1 NAME

tools/dev/run_indent.pl - Check indentation in C files

=head1 SYNOPSIS

    % perl tools/dev/run_indent. <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	42882	42983	
==>(3)>) Nested backslashed delimiters, embedded balanced bracket
delimiters (for the quotelike operators <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2517	2616	
==>});
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $self->op } <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2394	2493	
==>});
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $self->op } <==
2	/Users/nnunley/parrot/lib/Test/More.pm	10327	10475	
==>s && that' );
    ...etc...

Its advantage over ok() is when the test fails you'll know what $this
and $that were:

    not ok 1
    #     Failed tes <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10618	10801	
==>ges = @{ shift() };

    # Sort those pairs by their first element
    @ranges = sort { $a->[0] <=> $b->[0] } @ranges;

    # Build up an inclusion/exclusion list
    my @incexc;
    f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314101	314341	
==>signed char)({{\@1}}));\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	471	652	
==>og_args = $ENV{TEST_PROG_ARGS} || q{};
    my $lang_fn        = Parrot::Test::per_test( '.m4', $count );

    return ( "$ENV{PARROT_M4_TEST_PROG} $test_prog_args languages/${lang_fn} <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	483	608	
==>og_args = $ENV{TEST_PROG_ARGS} || q{};
    my $lang_fn        = Parrot::Test::per_test( '.m4', $count );

    return ( join( ' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	315	416	
==>ckage Regex::Grammar;
use vars qw ( @ISA );
use strict;

@ISA= qw ( Parse::Yapp::Driver );
#Included P <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	4742	4846	
==>rrot/embed.h"

static char program_code[] = {
END_C

    $pf->byte_code($byte_code);

    # this is now p <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5021	5117	
==>TEMP0} > 0 goto PRE_BRANCH_${CURIC}_LAZY_MOVE_$register_num

# No lazy move available - need to r <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	453	557	
==>ass = shift;
  my ($block, $left, $op, $right) = @_;

  confess "Block is not defined!" unless defined $b <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	465	569	
==>ass = shift;
  my ($block, $left, $op, $right) = @_;

  confess "Block is not defined!" unless defined $b <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1131	1310	
==>_r()

This returns a scalar reference to the string that this token holds.
This can be useful if you don't want to memory-copy the potentially
large text value (well, as large as a <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35929	36066	
==>ara->[0] .= '-' . $over_type;
        # Whew.  Now fall thru and process it.


      } elsif($para_type eq '=extend') {
        # Well, mi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7475	7641	
==>_ERROR("Unexpected access '$access'.");
        }
      }

      next;
    }

    #
    # Subroutines:
    #
    #   sub [<type>] <ident> [:<prop>[=<value] ...] (<arg> <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	628	814	
==>lemented: variable-length advances with rx backend";
    } else {
        return ("rx_advance P0, $failLabel") x $distance;
    }
}

sub output_match {
    my ($self, $byte, $failLabel) = <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	4491	4624	
==>sif ($value =~ /^[-+]?((\d+\.\d*)|(\.d+))([eE][-+]?\d+)?$/) {
      $self->_add_inst ('', 'new',[$return,'.Float']);
      $self->_add <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18068	18172	
==>$docounter:\n";
		push(@dos, { jump => $docounter, needstmt => 1 });
	}
}
sub parse_goto {
	feedme;
	crea <==
2	/Users/nnunley/parrot/config/gen/platform.pm	4750	4872	
==>ed $verbose && $verbose == 2;
            open IN_C, "< $impl_file" or die "Can't open $impl_file: $!";
            print P <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	6059	6176	
==>sult)
 
  print_value:
    if value >= 0.0 goto print_value_1
    result .= unicode:"\u207b"
    value = abs value
  p <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3339	3436	
==>IPTION

This class is a formatter that takes Pod and renders it as
wrapped plaintext.

Its wrappin <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	1570	1772	
==>lts{intvalsize}) {
        print <<"END";

Hmm, I see your chosen INTVAL isn't the same size as your pointers.  Parrot
should still compile and run, but you may see a ton of warnings.
END
    }

    # se <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	4098	4201	
==>ignore @dirs`;
my %ignore;
my @ignore = split( /\n\n/, $svnignore );
foreach (@ignore) {
    my @cnt = m <==
2	/Users/nnunley/parrot/languages/regex/test.pl	3229	3361	
==>es = Regex::expr_to_tree($pattern, $ctx, DEBUG => $DEBUG);

    my $driver = Regex::Driver->new('pir', emit_main => 1);

    print PI <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	48335	48504	
==>ters, not: @_"
   unless @_ == 2;

  my(@out);
  
  while( @_ ) {
    my $parser = $class->new;

    push @out, '';
    $parser->output_string( \( $out[-1] ) );

    DEBU <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	3769	3876	
==>k_function_definitions {
    # In function definitions, the name starts in column 0, with the
    # return t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474979	475156	
==>",
                              "n"
                            ],
                  "BODY" => "#line 403 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	52728	52949	
==>51.yp"
{
            [ @{ $_[1] }, $_[3] ];
        }
	],
	[#Rule 54
		 'explist1', 1,
sub
#line 326 "Lua\lua51.yp"
{
            [ $_[1] ];
        }
	],
	[#Rule 55
		 'exp', 1, undef
	],
	[#Rule 56
		 'e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552529	552644	
==>ct.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n\n  object = {{\@1}};\n  method_pmc = { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556585	556700	
==>ct.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n\n  object = {{\@1}};\n  method_pmc = { <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	13647	13800	
==>FAULT => -13,
		GOTOS => {
			'@2-1' => 60
		}
	},
	{#State 17
		ACTIONS => {
			'NAME' => 62,
			'FUNCTION' => 61
		},
		GOTOS => {
			'nameli <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	31496	31694	
==>al \$P2, "READDATA"
DATAPREP
	my $counter=0;
	foreach my $ld (@data) {
		my $line=$ld->{line};
		if (length $line) {
			push @{$code{_data}->{code}}, qq{\t\$P1["$line"]= $counter\n};
		}
		foreach (@ <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	6508	6600	
==>di32 -lwinspool -lcomdlg32 -ladvapi32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid -lws2_32 <==
2	/Users/nnunley/parrot/config/init/hints/msys.pm	399	491	
==>di32 -lwinspool -lcomdlg32 -ladvapi32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid -lws2_32 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477160	477416	
==>1}} = (INTVAL)floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478056	478312	
==>1}} = (INTVAL)floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2897	3014	
==>}='ERROR';
    undef;
}

sub YYSemval {
	my($self)=shift;
	my($index)= $_[0] - ${$$self{DOTPOS}} - 1;

		$inde <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2759	2868	
==>}='ERROR';
    undef;
}

sub YYSemval {
	my($self)=shift;
	my($index)= $_[0] - ${$$self{DOTPOS}} - 1;

		$inde <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37477	37610	
==>4
	},
	{#State 145
		ACTIONS => {
			"-" => 24,
			'TRUE' => 25,
			'NOT' => 27,
			'STRING' => 29,
			'NIL' => 30,
			'FALSE <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7768	7939	
==>$$_[1] } @$stack[ -$$dotpos .. -1 ]
                        :   ();

            $semval = $code ? &$code( $self, @sempar )
                            : @sempar ? $sem <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7416	7583	
==>$$_[1] } @$stack[ -$$dotpos .. -1 ]
                        :   ();

            $semval = $code ? &$code( $self, @sempar )
                            : @sempar ? $sem <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	51848	52069	
==>$_[4] ];
        }
	],
	[#Rule 47
		 'var', 2,
sub
#line 284 "Lua\lua51.yp"
{
            [ $_[1], $_[2] ];
        }
	],
	[#Rule 48
		 'var', 2,
sub
#line 288 "Lua\lua51.yp"
{
            [ @{ $_[1] }, $_[ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	3275	3471	
==>do_link($token);
    
    esc($text);
    
    if ( defined $text and length $text ) 
    {
        print {$self->{'output_fh'}} "<a href='$text'>";
    } 
    else 
    {
        print {$self->{'o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753966	754351	
==>re",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 850,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 26 <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	9926	10024	
==>ir_8dot3{$dirname}{$filename_8dot3}) {
            error("MANIFEST", $line, "$_: 8.3 name collision <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	1220	1352	
==>l} =~ /(\w+)/; $1 } @_;
    my %names;
    @names{@names} = ();
    my $label = $self->mklabel();
    $self->{_label_comments}{$label <==
2	/Users/nnunley/parrot/config/init/defaults.pm	93	239	
==>2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/init/defaults.pm - Configuration Defaults

=head1 DESCRIPTION

Sets up the configuration s <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3160	3266	
==>o SUB1.
' Exit tests
sub mysub(b,c)
	print "Print me"
	exit sub
	print "Don't print me"
end sub
function fo <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17127	17233	
==>o SUB1.
' Exit tests
sub mysub(b,c)
	print "Print me"
	exit sub
	print "Don't print me"
end sub
function fo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13685	13890	
==>8,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 231 \"src/ops/core.ops\"\n  opcode_t * loc;\n  stack_push(interpreter, & <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	14524	14635	
==>e::RecDescent::(Action|Directive)/)
		{
			return 1 if $item->{code} =~ /\$skip/;
		}
	}
	return 0;
}

sub adddi <==
2	/Users/nnunley/parrot/languages/converter.pl	2043	2167	
==>Z0-9_]+/ mod(?)
#		{[@item]}
		{ $item[1] . ::modifier($item[2]) }

mod		: '*' | '+' | '?'

_EOF_

my $parser = Parse::RecDes <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507840	508316	
==>ore",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 584,
                  "ARGS" => [
                              "n",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 636 \"src/ops/math. <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25017	25147	
==>]);
      $self->_restore($temp);
    }
  }
  return $return;
}

sub _op_minus {
  my ($self,$node) = @_;
  my $return;
  my $num_c <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	2300	2426	
==>c =~ m[/]) ? "$inc" : "$destdir/$inc";

                #move_if_diff("$inc.tmp", "$destdir/$inc");
                #push(@gene <==
2	/Users/nnunley/parrot/lib/Test/More.pm	28770	28926	
==>e2);
        pop @Data_Stack if $ok;

        last unless $ok;
    }

    return $ok;
}

sub _deep_check {
    my($e1, $e2) = @_;
    my $ok = 0;

    # Effe <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19079	19271	
==>NAME' => 104
		},
		GOTOS => {
			'funcname' => 105,
			'_funcname' => 106
		}
	},
	{#State 55
		ACTIONS => {
			"(" => 8,
			'NAME' => 4
		},
		GOTOS => {
			'functioncall' => 107 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216889	216981	
==>"#line 462 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) > {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217829	217921	
==>"#line 462 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) > {{\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1744	1854	
==>xml_escape {
  foreach my $x (@_) {
    # Escape things very cautiously:
    $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1847	1957	
==>xml_escape {
  foreach my $x (@_) {
    # Escape things very cautiously:
    $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917816	918086	
==>> [
                              "i",
                              "sc",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(i <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	56528	56643	
==>curly bracketed, and anything else. The delimited and bracketed
parts are also blessed to identify them (the "anythi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	260	471	
==>089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block::Conditional::If;

use Carp;

use base qw(Jako::Construct::Block::Conditional);

#
# new()
#

sub new
{
  my $class = shift;
  my ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948813	948905	
==>"#line 535 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949613	949705	
==>"#line 535 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@1 <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12957	13176	
==>)'/xeg;

    # Rewrite OtherClass.SELF.other_method(args...)
    s/(\w+)             # OtherClass
      \.SELF            # Macro SELF
      \.(\w+)           # other_method
      \(\s*(.*?)\)      # capture argument lis <==
2	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	673	765	
==>}

=head1 SEE ALSO

F<examples/benchmarks/stress.pasm>, 
F<examples/benchmarks/stress.pl>, 
F <==
2	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	520	612	
==>}

=head1 SEE ALSO

F<examples/benchmarks/stress.pasm>, 
F<examples/benchmarks/stress.pl>, 
F <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	2808	2907	
==>mbol::qualify($fh, scalar caller);
	}
	$self->{data} .= do{local$/;<$fh>};
	$self
}

sub digest {
	m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954083	954304	
==>CODE" => 1073,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 571 \"src/ops/string.ops\"\n  {{\@1}} = Pa <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	1284	1493	
==>title = $self->{'Title'};
    esc($title);

    print {$self->{'output_fh'}}
        Parrot::Docs::HTMLPage->header(
            $title, $self->{NAV_BAR}, $self->{RESOURCES_URL});

    $self->version_tag_commen <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	68047	68237	
==>" => [],
                  "TYPE" => "function",
                  "CODE" => 89,
                  "ARGS" => [],
                  "BODY" => "#line 1049 \"src/ops/core.ops\"\n  Parrot_block_D <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	13988	14205	
==>} ) != 0
            and scalar( @{ $expr->[1] } ) != 0
            and $expr->[1]->[-1]->isa('CallOp') )
        {
            my $result;
            my $callop = pop @{ $expr->[1] };
            my $nil = Buil <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	17797	18053	
==>~ /default\.dump$/) {
                next; # don't overwite default.dump
            }
            else {
                $file = $existing; # XXX: overwrite anything else
            }
        }

        my $class = $all{$name};
        gen_parent_list($i <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	34982	35113	
==>IL");
Looks like your test died just after $self->{Curr_Test}.
FAIL

            _my_exit( 255 ) && return;
        }

        _my_e <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	361	462	
==>se base qw(Jako::Construct::Statement);

my %block_types = (
  'while'    => { PREFIX => "_W", NEXT => <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	382	483	
==>se base qw(Jako::Construct::Statement);

my %block_types = (
  'while'    => { PREFIX => "_W", NEXT => <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6791	6934	
==>eg_type_short"]
${STEMP0} = concat ${STEMP1}
${ITEMP1} = ${ITEMP0} + 1
${STEMP1} = ${ITEMP1}
${STEMP0} = concat ${STEMP1}

# Put it in the param <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10369	10462	
==>stack.
${PTEMP3} = ${STYPES}[${ITEMP2}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP3}["reg_type_short" <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7753	7846	
==>stack.
${PTEMP3} = ${STYPES}[${ITEMP2}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP3}["reg_type_short" <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	2118	2228	
==>l way to change
where a file will be written to. It will be applied before any
metadata tags.

Example: if this <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	5236	5400	
==>ntime/lib/;
        $dest = File::Spec->catdir($options{prefix}, $dest);
    }

    $dest = File::Spec->catdir($options{buildprefix}, $dest)
      if $options{buildp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	445628	445715	
==>/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_ppp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	58874	58984	
==>} );


C<gen_delimited_pat> may also be called with an optional second argument,
which specifies the "escape" c <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11164	11268	
==>t\t# $_->[0]};
	#}
	pop @$work;  # REmove startarg tag...
	return(scalar @args, @args);
}
sub optype_of { <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	2362	2508	
==>" );
        $arg->{default}     = $5;
        $arg->{repeating}   = $6 eq "+";

        die "Optionals need to be optional.\n"
            if $arg <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	3887	3995	
==>}], ['*PConfig'])->Dump();
        };
    }
}

=item C<clean()>

Deletes keys matching C</^TEMP_/>.  Keys usi <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	5126	5292	
==>)
    {
        $self->{BODY} = shift;
    }

    return $self->{BODY};
}

=item C<jump($jump)>

=item C<jump()>

Sets/gets a string containing one or more C<op_jump_t <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	24371	24533	
==>lastback ]),
                        aop('goto', [ $R_back ]),
               $next =>
              );

    return ($back, @ops);
}

sub rewrite_optional {
    my <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12685	12799	
==>lf->require_semicolon;

      my $bitwise = Jako::Construct::Statement::Bitwise->new($block, $ident, $ident, $op, $ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11985	12097	
==>RING|BARE|INT|FLO/) {
			push @ld, { type => "STRING", value => qq{"$syms[CURR]"} };
		} elsif ($type[CURR] eq "P <==
2	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	610	720	
==>clude a non-dynamic fingerprint.c.

=cut


use strict;
use lib 'lib';
use Digest::Perl::MD5 qw(md5_hex);

my $c <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	15728	15937	
==>nt\n because no_errata_section is on.\n";
  } else {
    DEBUG > 9 and print "Queuing erratum (at line $line) $complaint\n";
    push @{$self->{'errata'}{$line}}, $complaint
      # for a report to be generated <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	50742	50867	
==>[#Rule 39
		 'funcname', 1, undef
	],
	[#Rule 40
		 'funcname', 3,
sub
#line 235 "Lua\lua51.yp"
{
            PrepareM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833509	833603	
==>DY" => "#line 197 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)-> <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	14038	14269	
==>= $self->rewrite($S, $back);

    return $S_back, (
                     aop('pushmark'),
                     aop('pushindex'),
                     @R_ops,
                     aop('goto', [ $next ]),
         $nextalt => aop('pop <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	5597	5721	
==>ompiler act as ANSIish as possible, and avoid enabling
        # support for GCC-specific features.

        $conf->data->set <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	405	524	
==>tatement);

sub new
{
  my $class = shift;
  my ($block, $ident) = @_;

  confess("Block (" . ref($block) . ") not!") un <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	405	524	
==>tatement);

sub new
{
  my $class = shift;
  my ($block, $ident) = @_;

  confess("Block (" . ref($block) . ") not!") un <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	17791	17895	
==>{
		_failmsg q{No quotelike operator found after prefix at "} .
			     substr($$textref, pos($$textref), <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	6116	6213	
==>TDOUT";
open (STDOUT, '>', File::Spec->devnull) or die "Unable to redirect STDOUT";
select COPYOUT <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	237	407	
==>::Tree qw(rop);
use Carp qw(croak);
use strict;

sub new {
    my ($proto, %opts) = @_;
    my $self = bless \%opts, (ref($proto) || $proto);
    $self->init();
    return <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	36573	36686	
==>se.",$line);
			Parse::RecDescent::_hint("Lookahead for negated optional
					   repetitions (such as
					   \"!$ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5894	6012	
==>tuff. If the branch
	# did not pop anything it is unconditional, so next instruction needs to
	# have an empty stack ty <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3832	3950	
==>tuff. If the branch
	# did not pop anything it is unconditional, so next instruction needs to
	# have an empty stack ty <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1153	1283	
==>ec->splitdir($path_to_parrot));
        my $path_to_language;
        if ($dir_count == 0) {
          $path_to_language = File::Sp <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1638	1768	
==>ec->splitdir($path_to_parrot));
        my $path_to_language;
        if ($dir_count == 0) {
          $path_to_language = File::Sp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	32102	32224	
==>nst results = PMC_cont(cc)->to_ctx->current_results;\n        if (results) {\n\t    /* get results PMC index and get PMC. * <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	2746	2889	
==>./\&046;/g;
    print "      <item>$type</item>\n";
    $types{$type} = 1;
}

print <<END;
    </list>

    <contexts>

      <context name="def <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42518	42830	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "exit",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8925	9055	
==>three
    if $I1 == 4 goto four
    if $I1 == 5 goto five
    if $I1 == 6 goto six
    if $I1 == 7 goto seven
    if $I1 == -1 goto <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035465	1035568	
==>t lex_name = {{\@2}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n    PMC * <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036629	1036732	
==>t lex_name = {{\@2}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n    PMC * <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9286	9373	
==>parser->{_check}{prevcolumn}?'
	my $prevcolumn;
	tie $prevcolumn, q{Parse::RecDescent::C <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	22911	23059	
==>_clone_vtable(interp, &temp_base_vtable);

EOC
    # init vtable slot
    if ($self->{flags}{dynpmc}) {
        $cout .= <<"EOC";
        vt_clone->b <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	4950	5067	
==>d this argument
        $code .= "  .local int    r_$name \n";
        $code .= "  (r_$name, \$S0) = compiler(register <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22587	22692	
==>q'    ,[$temp_0,1,"DONE_$label"]);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8916	9011	
==>el, label);\n    if (!fe)\n\tinternal_exception(1, \"branch_cs: fixup for '%s' not found\", labe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10032	10127	
==>el, label);\n    if (!fe)\n\tinternal_exception(1, \"branch_cs: fixup for '%s' not found\", labe <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	12683	12910	
==>{^S}}   S             op size
        #
        #   HALT()             {{=0}}   PC' = 0       Halts run_ops loop, no resume
        #
        #   restart OFFSET(X)  {{=0,+=X}}   PC' = 0       Restarts at PC + X
        #   resta <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732491	732937	
==>=> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 822,
                  "ARGS" => [
                              "i",
                              "nc"
                            ],
                  "BODY" => "#line 129 \"src/ops/s <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5067	5177	
==>T", $dest) or die "Copy $_$LOAD_EXT failed ($?)\n";

        # Execute permissions on libraries is especially i <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5278	5388	
==>T", $dest) or die "Copy $_$LOAD_EXT failed ($?)\n";

        # Execute permissions on libraries is especially i <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	1337	1494	
==>lement-list )
    # Latter form assumes current package name as struct name.

    my ($class, @decls);
    my $base_type = ref $_[1];
    if ( $base_type eq ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50415	50732	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "profile",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline", <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	26480	26667	
==>e last thing in the document?!"
        );
        next; # But feh, ignore it.
      } else {
        $list_type = 'block';
      }
      $para->[1]{'~type'} = $list_type;
      push @$cur <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28293	28554	
==>elsif ($rule->{'class'} eq 'load') {
		# Undef the loadtype so we can detect case where typeinfo fails to set
		# it.
		$pir .= "    loadtype = null\n";

		# Insert typeinfo code.
		$pir .= "### typeinfo\n";
		$pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			"type <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38771	39052	
==>State 152
		DEFAULT => -91
	},
	{#State 153
		DEFAULT => -88
	},
	{#State 154
		DEFAULT => -27
	},
	{#State 155
		ACTIONS => {
			'NAME' => 179
		}
	},
	{#State 156
		ACTIONS => {
			'NAME' => 180
		}
	},
	{#State 157
		DEFAULT => -8
	},
	{#State 158
		ACTION <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	994	1163	
==>level',
             'as' => 'as',
             'asmfun_o' => 'src/asmfun.o',
             'bigendian' => 1,
             'bin_dir' => '/opt/local/bin',
             'bis <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2908	3028	
==>l =~ /VERSION: ([\d\.]+)/    and $smoke{VERSION}      = $1;
  $html =~ /branch: ([\w\-]+)/     and $smoke{branch}       = <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3721	3840	
==>pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert X.c -> X.o for all X.c
    compile($_) foreach (@pmcs <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3825	3944	
==>pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert X.c -> X.o for all X.c
    compile($_) foreach (@pmcs <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13996	14132	
==>eturn,$item]);
    $self->_add_inst ('', 'ne', [$return,2,"FAIL_$label"]);
    $self->_add_inst ('', 'set', [$return,1]);
    $self->_add <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	1025	1263	
==>|/[^/]+/\.\.|| ) {}

    if ( exists $instance_for_path{$path} )
    {
        if ( ref($instance_for_path{$path}) ne $self )
        {
            bless $instance_for_path{$path}, $self;
        }
        
        return $instance_for_pat <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	2228	2448	
==>ame> is the name of the op.

C<$args> is a reference to an array of argument type descriptors.

C<$argdirs> is a reference to an array of argument direction
descriptors. Element I<x> is the direction of argument C<< $args <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208375	208495	
==>>vtable->get_number(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209316	209436	
==>>vtable->get_number(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27468	27626	
==>} } ) {
        if ($self->implements($meth->{meth})) {
            $hout .= $self->decl($classname, $meth, 1);
        }
    }
    foreach my $method (@{ $sel <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	1486	1644	
==>ressions to optional matches:
        #
        # opt(aR|aS) => a(R|S)
        # opt(R|)    => opt(R)?
        # opt(|R)    => opt(R)??
        #
        my @c <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	3459	3592	
==>thods, and one with read-only set methods.

=item C<need_ext>

The class needs a C<PMC_EXT> structure. For instance, any class using
C <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1500	1645	
==>ompiler->outdent;
      $compiler->emit(".endnamespace ${namespace}_THEN");
    }

    $compiler->emit("  goto ${prefix}_LAST");
  }
  elsif ($kin <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	7400	7573	
==>e default vtable (from which all PMCs inherit).

=cut

sub dump_default {
    my $file    = "$FindBin::Bin/../../vtable.tbl";
    my $default = parse_vtable($file);
    my $d <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	303	470	
==>1 NAME

Test/Bc.pm - Testing routines specific to 'bc'.

=head1 DESCRIPTION

Call 'Parrot bc' and 'POSIX bc'.

=head1 METHODS

=head2 new

A kind of factory, that finds <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61315	61436	
==>ike($grammar);
				 $code }
		      )

		{
			_parse("an m/../ pattern terminal", $aftererror,$line,$code);
			$item = new <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	34090	34226	
==>er_p,
  'complex?'         => \&_op_complex_p,
  'real?'            => \&_op_real_p,
  'rational?'        => \&_op_rational_p,
  'integer <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3133	3232	
==>o create any lib-GROUP.c files

    generate_dump($_) foreach (@pmcs);
    generate_c($_) foreach (@ <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3237	3336	
==>o create any lib-GROUP.c files

    generate_dump($_) foreach (@pmcs);
    generate_c($_) foreach (@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24219	24460	
==>P" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "yield",
                  "FLAGS" => "",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 32,
                  "A <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	792	940	
==>symbols>.

=cut

package Parrot::Configure;

use strict;
use warnings;

use lib qw(config);
use Carp qw(carp);
use Parrot::Configure::Data;

use Clas <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6119	6253	
==>reach my $lib ( keys %libs ) {
            $group_libs{$group}->{lib} = 1;
        }
    }

    return (\%group_files, \%group_libs, \% <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6330	6464	
==>reach my $lib ( keys %libs ) {
            $group_libs{$group}->{lib} = 1;
        }
    }

    return (\%group_files, \%group_libs, \% <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	2233	2360	
==>r =~ /[oOhH]/);
		if ($cur =~ /[oO]/) {
			append;
			fetch;
			while($cur =~ /[0-7]/) {
				append;
				fetch;
			}
		} elsif ( <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3966	4092	
==>ile $group.c failed ($?)\n";
    }
} 
elsif ($mode eq 'linklibs') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4070	4196	
==>ile $group.c failed ($?)\n";
    }
} 
elsif ($mode eq 'linklibs') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	4638	4791	
==>self->{No_Header}  = 0;
    $self->{No_Ending}  = 0;

    $self->_dup_stdhandles unless $^C;

    return undef;
}

=back

=head2 Setting up tests

These m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8274	8400	
==>JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLAGS" => ":bas <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9389	9515	
==>JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLAGS" => ":bas <==
2	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	790	876	
==>tokenize.pasm"
.include "basicvar.pasm"
.include "basic.pasm"
.include "instructions.pa <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2313	2441	
==>arations}}) {
				if (exists $main::common{$var}) {
					push(@saves, $var);
				}
			}
			if (@saves) {
				$edit.=qq{\tfind_glo <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2722	2850	
==>arations}}) {
				if (exists $main::common{$var}) {
					push(@saves, $var);
				}
			}
			if (@saves) {
				$edit.=qq{\tfind_glo <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33357	33488	
==>h @opcodes2, @{ $expr->[1] };
        push @opcodes3, new AssignOp( $parser,
            'result' => $var,
            'arg1'   = <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7137	7249	
==>RRAY' ? join('|', @{$options{reject}})
		    : defined($options{reject})	       ? $options{reject}
		    :					 ' <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24139	24251	
==>RRAY' ? join('|', @{$options{reject}})
		    : defined($options{reject})	       ? $options{reject}
		    :					 ' <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	2746	2902	
==>If it's a blank line or a comemnt line, skip it.
        next if !$in_heredoc && /^\s*#|^\s*$/;
        
        # Is this a new rule?
        if (!$in_hered <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16576	16705	
==>ith = Jako::Construct::Statement::Arithmetic->new($block, $ident, $left, $op, $right);

      next;
    }

    #
    # Concat Oper <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3571	3672	
==>RESSION({ stuff => "\$X99", choose => 1 });
		push @{$code{$seg}->{code}}, "@code";
		feedme();
		if ( <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15509	15606	
==>rns Bool;

Because these functions will be mutually recursive, they will easily be
able handle arb <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	1777	2047	
==>t "Current : $type[1] $syms[1]\n";
	print "Previous: $type[2] $syms[2]\n";
}
sub isbuiltin {		# Built in functions
	return 0 unless defined $_[0];
	return 1 if (grep /^\Q$_[0]\E$/i, @builtins );
	return 0;
}
sub isuserfunc {
#	print "Isuserfunc $_[0] and $funcname..";
	r <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	32802	32964	
==>my $self = shift;

    $self->_sanity_check();

    # Don't bother with an ending if this is a forked copy.  Only the parent
    # should do the ending.
    # Exit <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	15357	15465	
==>ile_escaped = $file;
        $file_escaped =~ s|(\\)|$1$1|g; # escape backslashes
        $op->body( $nolines <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1306	1456	
==>on in Parrot code.

=cut

sub pc
{
    my $self = shift;

    if (@_)
    {
        $self->{PC} = shift;
    }
    else
    {
        return $self->{PC <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	915	1065	
==>on in Parrot code.

=cut

sub pc
{
    my $self = shift;

    if (@_)
    {
        $self->{PC} = shift;
    }
    else
    {
        return $self->{PC <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64424	64584	
==>$1,
										   $lookahead,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	66458	66618	
==>$1,
										   $lookahead,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _no <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661965	662118	
==>@2}}) ? 0: {{\@2}}->vtable->exists_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662881	663034	
==>@2}}) ? 0: {{\@2}}->vtable->exists_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	4700	4862	
==>place_slashes                => 1
    );
    genfile(
        'config/gen/makefiles/lisp.in' => 'languages/lisp/Makefile',
        commentType                    = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8909	9103	
==>o::Construct::Declaration::Sub->new($block, $type, $ident, { %props }, [ @formal_args ]);

      unless ($self->skip_open_brace) { # DEFINITION
        $self->require_semicolon;
      }
      els <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122199	122470	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123111	123382	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299130	299595	
==>> [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 348,
                  "ARGS" => [
                              "i",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 975 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	88	196	
==>PORT_TAGS);

$VERSION   = '0.01';
@ISA       = qw(Exporter);
@EXPORT_OK = qw(tokenize);

use Data::Dumper;

s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	1871	1994	
==>> $prefix, # Prefix, if given in source code.
    SYMBOLS => { },     # Identifiers
    CONTENT => [ ]      # Constructs
  } <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8165	8306	
==>e)>

Returns a directory with the specified name in the directory.

=cut

sub existing_directory_with_name
{
    my $self = shift;
    my $pat <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1900	1999	
==>0);
 ...some stuff that uses Pod::Simple to do stuff, but which
  you don't want debug output from.. <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	7765	7875	
==>one:
    unless iter_one goto loop_one_end
    item_one = shift iter_one 
    inc pos_one
    if item_one != it <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303413	303834	
==>RS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 353,
                  "ARGS" => [
                              "i",
                              "s",
                              "sc"
                            ],
                  "BODY" => " <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8961	9067	
==>ig
w=15
dim a$(w)
for i = 0 to (22/7)*2 step 0.40
	for j = 1 to w*2
		a$(j)=" "
	next j
	a$(w+w*sin(i)+1)=" <==
2	/Users/nnunley/parrot/config/gen/platform.pm	3823	3923	
==>[$platform version]
**
** DO NOT EDIT THIS FILE
**
** Generated by config/gen/platform.pm
*/
END_HERE <==
2	/Users/nnunley/parrot/languages/urm/urm-old.pl	529	651	
==>g} = shift @input;
	}
    }
    if ($line =~ /(r\d+)/) { $register{$1} = 0 unless defined $register{$1}}
    if ($line =~ / <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862473	862582	
==>\"src/ops/string.ops\"\n  {{\@1}} = string_length(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863242	863351	
==>\"src/ops/string.ops\"\n  {{\@1}} = string_length(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LA <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	4213	4325	
==>()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'assign' });
  $se <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1624	1736	
==>()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'assign' });
  $se <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7787	7979	
==>$$dotpos .. -1 ]
                        :   ();

            $semval = $code ? &$code( $self, @sempar )
                            : @sempar ? $sempar[0] : undef;

            splice(@$ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7435	7621	
==>$$dotpos .. -1 ]
                        :   ();

            $semval = $code ? &$code( $self, @sempar )
                            : @sempar ? $sempar[0] : undef;

            splice(@$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	251032	251357	
==>AME" => "not",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 292,
                  "ARGS" => [
                              "p"
                            ] <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	24348	24545	
==>name { $_[0]->{hashname} = '__DIRECTIVE' . ++$_[1]->{dircount} .  '__'; }

sub new ($$$$$)
{
	my $class = ref($_[0]) || $_[0];
	bless 
	{
		"msg"        => $_[1],
		"lookahead"  => $_[2],
		"commito <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	5030	5192	
==>$pre\"",
		         pos $$textref;
		pos $$textref = $startpos;
		return;
	}

	my @nesting = ( $1 );
	my $textlen = length $$textref;
	while (pos $$textref < $text <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	400	507	
==>ment);

sub new
{
  my $class = shift;
  my ($block, $left, $right) = @_;

  confess("Block (" . ref($block) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	391	498	
==>ment);

sub new
{
  my $class = shift;
  my ($block, $left, $right) = @_;

  confess("Block (" . ref($block) <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	511	669	
==>' );
}

sub get_global {
    my ($parser) = @_;
    my @opcodes = ();
    unless ( $parser->YYData->{_G} ) {
        $parser->YYData->{_G} = new_tmp( $p <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	9774	9877	
==>and 
			($syms[CURR] eq ',' and $type[CURR] ne "STRING"));
		last if ($syms[CURR] eq ';');
		push(@expr, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4615	4735	
==>} elsif (@{ $self->{args} } == 1 && 2 == keys %$self) {
        return $self->{args}->[0];
    } else {
        return $s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5752	5872	
==>} elsif (@{ $self->{args} } == 1 && 2 == keys %$self) {
        return $self->{args}->[0];
    } else {
        return $s <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	906	1081	
==>, "_basicmain", keys %code) {
	next unless exists $code{$seg};
	my @debdecl=();
	my @init=();

	print CODE ".sub $seg\n";
	if (exists $code{$seg}->{declarations}) {
		print COD <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	24611	24770	
==>te_greedy_optional($op, $R, $lastback)
                   : $self->rewrite_nongreedy_optional($op, $R, $lastback);
}

# R? ->       R or rfail
#             pus <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	65	169	
==>warnings;

use vars qw( %usertypes );
use vars qw( %arrays );
use vars qw( $funcname $subname );
use vars <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9554	9649	
==>process_text_token($token)>

Processes the specified text token. URLs which are not in link tags <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	46041	46194	
==>s"

C<extract_quotelike> can successfully extract "here documents" from an input
string, but with an important caveat in list contexts.

Unlike other type <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	1609	1709	
==>',
             'ccflags' => '-I/opt/local/include -fno-common -no-cpp-precomp  -pipe -Wdeclaration-a <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	3999	4128	
==>eturn _fail $wantarray, $textref,
			     "Did not find a suitable bracket in delimiter: \"$_[1]\"",
			     0;
	}
	my $posbug = p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222670	222954	
==>h_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_CMP) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	53269	53393	
==>tract_variable($_[0], '') },
                sub { extract_quotelike($_[0],'') },
                sub { extract_codeblock($_[ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	21339	21433	
==>tract_variable($_[0], '') },
	sub { extract_quotelike($_[0],'') },
	sub { extract_codeblock($_[ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	24923	25029	
==>e place where they start differing.

Test::Differences and Test::Deep provide more in-depth functionality
a <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5387	5510	
==>ror=0;
	($$token,$$value)=(undef,undef);
	@$stack=( [ 0, undef ] );
	$$check='';

    while(1) {
        my($actions,$ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5128	5245	
==>ror=0;
	($$token,$$value)=(undef,undef);
	@$stack=( [ 0, undef ] );
	$$check='';

    while(1) {
        my($actions,$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90875	91201	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91729	92055	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/config/auto/byteorder.pm	264	359	
==>cut

package auto::byteorder;

use strict;
use vars qw($description @args);

use Parrot::Configu <==
2	/Users/nnunley/parrot/lib/File/Which.pm	6458	6587	
==>an, then extracted to create C<File::Which>.

Version 0.04 had some significant platform-related changes, taken from
the Perl Powe <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	1226	1337	
==>OURCE=500 gives 2 undefined warns (setenv, unsetenv) on 2.1.3
        $cflags .= ' -D_GNU_SOURCE';
    }

    $c <==
2	/Users/nnunley/parrot/config/auto/alignptrs.pm	1555	1685	
==>$conf->data->set(ptr_alignment => $align);
    }

    $self->set_result($self->result . " $align byte");
    $self->set_result($sel <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644083	644339	
==>ype_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644976	645232	
==>ype_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665539	666040	
==>,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 744,
                  "ARGS" => [
                              "p",
                              "kic"
                            ],
                  "BODY" => "#line 359 \"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delet <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1726	1819	
==>void*)*(cur_opcode = (opcode_t *)
	opcode_to_prederef(interpreter, $addr)))";
  }
}

=item C<g <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1097692	1098021	
==>\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "debug_brk",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/Configure.pl	9000	9112	
==>inter::lex
    inter::yacc
    auto::gcc
    auto::msvc
    init::optimize
    inter::shlibs
    inter::libparrot <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	2016	2152	
==>($file_name)->tokenize();

=head1 DESCRIPTION

The tokenizer takes a file and splits it into tokens.

=head1 AUTHOR

Jeffrey Goff, drforr <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	42967	43149	
==>1];
      $self->{code} .= $label . ' ' x ($max_len[1]-length($label)+2);
      $label = $row->[2];
      $self->{code} .= join ", ",@$label if $label;
    }
    $self->{code} .= "\n" <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	1117	1224	
==>em('', 'docs/configuration.pod'),
			$self->new_item('', 'docs/vtables.pod'),
			$self->new_item('', 'docs/m <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	2256	2579	
==>cur =~ /[oO]/) {
			append;
			fetch;
			while($cur =~ /[0-7]/) {
				append;
				fetch;
			}
		} elsif ($cur =~ /[hH]/) {
			append;
			fetch;
			while($cur =~ /[0-7a-fA-F]/) {
				append;
				fetch;
			}
		}
		if ($cur eq '&' or $cur eq '%') {
			append;
			fetch;
		}
		emit("BASE");
		goto MAIN;
	}
	if ($cur eq ">" or $ <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	929	1091	
==>e =
     ( p => "void *",
       i => "int",
       3 => "int *",
       l => "long",
       4 => "long *",
       c => "char",
       s => "short",
       2 => "s <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	1344	1506	
==>e =
     ( p => "void *",
       i => "int",
       3 => "int *",
       l => "long",
       4 => "long *",
       c => "char",
       s => "short",
       2 => "s <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	1397	1528	
==>my $self = shift;
	
	return $self->SUPER::new(
		'Configuration', 'config.html', 'Parrot is configured by running
the <i>Configure.p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837920	838014	
==>BODY" => "#line 240 \"src/ops/stack.ops\"\n  (void)stack_pop(interpreter, &CONTEXT(interpreter- <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14524	14625	
==>f->unget_token(@to_unget);
  
  if(DEBUG) {
    if(defined $title) { print "  Returing title <$title>\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	23089	23190	
==>f->unget_token(@to_unget);
  
  if(DEBUG) {
    if(defined $title) { print "  Returing title <$title>\ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	53967	54229	
==>(see below) within the
text should be skipped or returned as fields. If the value is true,
such substrings are skipped. Otherwise, they are returned.

=back

The extraction process works by applying each extractor in
sequence to the text string.

If the extractor <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18579	18675	
==>{$node->{children}}) {
    my $temp_1 = $self->_generate($node->{children}[$_]);
    if (substr ( <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8268	8369	
==>ment
print "Hello";tab$(15);"World"
print "Foo";tab$(15);"Stuff"
print "I am the very model of a moder <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21132	21233	
==>ment
print "Hello";tab$(15);"World"
print "Foo";tab$(15);"Stuff"
print "I am the very model of a moder <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3975	4117	
==>ock."
          );
          
          ## Before there were errata sections in the world, it was
          ## least-pessimal to abort processi <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	12489	12609	
==>B') {
    $self->{'source_filename'} = '' . ($source);
  } elsif(ref $source) {
    $self->{'source_filename'} = '' . ($s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	416	576	
==>lf;
}

sub init {
}

sub output_header {
}

sub output_rule {
    my ($self, $fh, $subname, $rule, $ctx, %options) = @_;

    my $code = Regex::tree_to_list($rul <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	624878	625060	
==>ts;\n    PMC *sig;\n\n    ctx = CONTEXT(interpreter->ctx);\n    mic = (Parrot_MIC *) cur_opcode[1];\n    /* get_results */\n    pc = ctx->current_results;\n    if (pc) {\n        pred <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1493	1604	
==>ss ( (1 << 16) << 16) { %f = %{$CODES{'32bit'}} }
  #else { %f = %{$CODES{'64bit'}} }

  my %s = (  # shift leng <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3577	3684	
==>the latter, remember that you need two consts:

  const char* const foo[] = { "foo", "bar" };

=head1 DEPEND <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1092909	1093205	
==>\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "morph", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093711	1094007	
==>\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "morph", <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	5260	5428	
==>nd print "  $type " , $token->text, "\n";
      
      $scratch = $token->text;
      $scratch =~ tr/\t\cb\cc/ /d;
      
      $self->{'no_proofing_exemptions'} or $scr <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4621	4756	
==>f (@{ $self->{args} } == 1 && 2 == keys %$self) {
        return $self->{args}->[0];
    } else {
        return $self;
    }
}

sub min <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5758	5893	
==>f (@{ $self->{args} } == 1 && 2 == keys %$self) {
        return $self->{args}->[0];
    } else {
        return $self;
    }
}

sub min <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107417	1107747	
==>\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":obje <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	2733	2877	
==>.c',
             'exe' => '',
             'exec_prefix' => '/opt/local',
             'execcapable' => 1,
             'flex_version' => undef, <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28619	28733	
==>: '$item{'.$self->{hashname}.'}=') . '$&;
		' . ($self->{"lookahead"} ? '$text = $_savetext;' : '' ) .'
';

	return <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30697	30811	
==>: '$item{'.$self->{hashname}.'}=') . '$&;
		' . ($self->{"lookahead"} ? '$text = $_savetext;' : '' ) .'
';

	return <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	534	644	
==>fetch;
		goto MAIN;
	}

	if ($cur =~ /[\d\.]/) {  # Numeric constants
		goto NOTNUM if ($cur eq "." and $next ! <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	8016	8154	
==>']
            ),
            $self->c_source_item('', 'disassemble'),
            $self->c_pair_item('', 'trace'),
            $self->c_so <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	11398	11655	
==>);
        \s+{{\+=\d}}/xm) {
            $jit_func = "Parrot_jit_vtable_$1$3$4_op";
            $extern = vtable_num($2);
            #print $op->full_name .": $jit_func $extern\n";
        }
        # *) $R = $X->vtable->{vtable}(interp, $Y, $Z)
        el <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818379	818551	
==>pointers\n   * TODO OPTIMIZE later\n   */\n  {{=0,+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1996	2086	
==>?\~\[\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/sprintf' <==
2	/Users/nnunley/parrot/languages/regex/regex.pl	233	364	
==>(@ARGV) {
    $_ = shift;
    if (/--no(-?)optimize/) {
        $tree_opt = 0;
        $list_opt = 0;
    } elsif (/--optimize=(.*)/ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12397	12523	
==>turns undef.

=item e2charnum($e_content)

Given a name or number that could appear in a
C<EE<lt>name_or_numE<gt>> sequence, th <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193586	193849	
==>reter, {{\@1}}), {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194565	194828	
==>reter, {{\@1}}), {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14605	14711	
==>uring title <$title>\n" }
    else { print "Returning title <>\n" }
  }
  
  return '' unless defined $titl <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	23170	23276	
==>uring title <$title>\n" }
    else { print "Returning title <>\n" }
  }
  
  return '' unless defined $titl <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	7144	7281	
==>pecified name in the
directory.

=cut

sub path_for_directory_with_name
{
    my $self = shift;
    my $name = shift || return;
    
    r <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	27374	27494	
==>rn ($back, @ops) unless $self->{DEBUG};

    my $method = "describe_" . $op->{name};
    my $desc = $op->{name};
    if ( <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	11536	11667	
==>_num";
    };
    /2/ && do {
        push @{$temps_ref}, "PMC* t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10761	10881	
==>Turn char 1234 into "(1234)"
        $section = '_' unless length $section;
    }
    
    foreach my $it ($to, $section) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4135	4249	
==>Turn char 1234 into "(1234)"
    $section = '_' unless length $section;
  }
  
  

  foreach my $it ($to, $section) <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34043	34142	
==>->{'class'} eq 'branch') {
		# Call pre_branch and append code that it generates.
		my $pre_branch = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	18	115	
==>ge Pod::Simple::SimpleTree;
use strict;
use Carp ();
use Pod::Simple ();
use vars qw( $ATTR_PAD @I <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4110	4330	
==>c                            # a procedure definition
        test \s+ (\S+)                  # test ident
             \s+ \{ ([^}]+) \}          # test description
             \s+ (?:\S+ \s+)? \{ \n     # optional test <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	1074	1248	
==>defs

This section holds the definitions of functions. Each function is
assumed to be in the immediate preceeding library. The definition of
the function is:

  return_type na <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	618	725	
==>oject Information', 
        'info.html', 
        'The conventional, generally all-caps, project informatio <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858027	858348	
==>eat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 974,
                  "ARGS <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1636	1891	
==>5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
print "Elapsed time:  $N2\n"; # print  "Elapsed time:  "
                              # print  N2
                              # print  "\ <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1636	1891	
==>5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
print "Elapsed time:  $N2\n"; # print  "Elapsed time:  "
                              # print  N2
                              # print  "\ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	946	1069	
==>);

  return $self;
}

sub left  { return shift->{LEFT};  }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub comp <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	954	1077	
==>);

  return $self;
}

sub left  { return shift->{LEFT};  }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub comp <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	15740	15900	
==>. '::TODO' } = \$extra{todo}
                if defined $extra{todo};

            my $pass = $builder->$meth( $real_output, $expected, $desc );
            $bui <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	18291	18451	
==>. '::TODO' } = \$extra{todo}
                if defined $extra{todo};

            my $pass = $builder->$meth( $real_output, $expected, $desc );
            $bui <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	32452	33192	
==>\n    else\n        {{\@1}} = sig;\n    {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set_addr",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 41,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/core.ops\"\n  {{\@1}} = PTR2OPCODE_T(CUR_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658294	658400	
==>0 : {{\@2}}->vtable->defined_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659213	659319	
==>0 : {{\@2}}->vtable->defined_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/config/init/defaults.pm	625	750	
==>conf) = @_;

    # We need a Glossary somewhere!
    $conf->data->set(
        debugging => $conf->options->get('debugging') ? <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	279	458	
==>I][dD]:\s(.*)\$$/;

=head1 NAME

tools/build/parrot_config_c.pl - Create src/parrot_config.c and variants

=head1 SYNOPSIS

    % perl tools/build/parrot_config_c.pl --mini > src/n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492742	492856	
==>585 \"src/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493503	493617	
==>585 \"src/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15463	15586	
==>\\\{\}\x7F-\xFF])/$Escape{$1}/g;  # ESCAPER
             # Escape \, {, }, -, control chars, and 7f-ff.
    $x =~ s/([^\x00- <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33266	33420	
==>'   => $nil->[0],
        );
        push @return1, $var;
    }
    else {
        push @opcodes2, @{ $expr->[1] };
        push @opcodes3, new Assig <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1106	1210	
==>2 Methods

=head3 Constructors

=over 4

=item * C<new()>

Basic constructor.

Accepts no arguments and r <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	643	747	
==>2 Methods

=head3 Constructors

=over 4

=item * C<new()>

Basic constructor.

Accepts no arguments and r <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	4930	5143	
==>write_plus')) {
        if ($greedy) {
            return $self->rewrite_plus($op, $R, @rest);
        } else {
            return $self->rewrite_nongreedy_plus($op, $R, @rest);
        }
    } else {
        if ($ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553901	554017	
==>@1}};\n  meth = {{\@2}};\n  next = {{^+4}};\n  interpreter->current_object = object;\n  interpreter->current_cont = { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555298	555414	
==>@1}};\n  meth = {{\@2}};\n  next = {{^+4}};\n  interpreter->current_object = object;\n  interpreter->current_cont = { <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	25566	25845	
==>nc # avoid savetop
	P2 = $1
	${ret_string}meth\:\:$attr($args)  $cmt
EOC
	}
    }
    else {
	my $ret_type = ret_val($func);
	my $ret_string = "";
	if ($ret_type ne 'None') {
	    $t = temp($rett = $ret_type);
	    $ret_string = "$t = ";
	}
	if ($builtins{$name}) {
	    print <<E <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	7609	7830	
==>ig/gen/makefiles/urm.in' => 'languages/urm/Makefile',
        commentType                   => '#',
        replace_slashes               => 1
    );
    genfile(
        'config/gen/makefiles/Zcode.in' => 'languages/Zcode <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	11004	11121	
==>got || !defined $expect ) {
        # undef only matches undef and nothing else
        my $test = !defined $got && !d <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	11422	11539	
==>got || !defined $expect ) {
        # undef only matches undef and nothing else
        my $test = !defined $got && !d <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	3565	3668	
==>len { confess "unimplemented" }
sub maxlen { confess "unimplemented" }
sub startset { confess "unimpleme <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	2231	2382	
==>m($filename, $ignorePattern)>

Creates a checksum for the specified file. This is used to compare files.

Any lines matching the regular expression spec <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3856	3949	
==>ecking the syntactic validity of Pod.
It works by basically acting like a simple-minded versio <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052126	1052270	
==>c"
                            ],
                  "BODY" => "#line 172 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053161	1053305	
==>c"
                            ],
                  "BODY" => "#line 172 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2344	2568	
==>t::Test::slurp_file($out_fn),
                       $output,
                       $desc
                                                  );
        unless ( $pass ) {
            my $diag = '';
            my $test_prog = <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	2355	2566	
==>t::Test::slurp_file($out_fn),
                          $output,
                          $desc
                      );
           unless ( $pass ) {
               my $diag = '';
               my $test_prog = <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26279	26508	
==>ser,
            'result' => $l_end,
        );
        push @opcodes, new LabelOp( $parser,
            'arg1' => $l_next,
        );
    }
    if ( defined $else ) {
        push @opcodes, @{$else};
    }
    push @opc <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20098	20194	
==>l, $local_back, $back, $check, $next) =
      map { $self->genlabel("ngr_$_") } qw(rfail local_ba <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	1075	1173	
==>Ignore the SVN directories
\B\.svn\b

# debian/ should not go into release tarballs
^debian$
^debia <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3929	4027	
==>Ignore the SVN directories
\B\.svn\b

# debian/ should not go into release tarballs
^debian$
^debia <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	5304	5403	
==>an('no_plan');
  $Test->plan( skip_all => $reason );
  $Test->plan( tests => $num_tests );

A conven <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20016	20234	
==>uction not ending
                                          in an explicit action has
                                          some parse-tree building code
                                          automatically appen <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033521	1033747	
==>_keyed_str(interpreter, lex_pad, lex_name, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034619	1034845	
==>_keyed_str(interpreter, lex_pad, lex_name, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	40965	41084	
==>->new(
          ['', {}, @ell_content]
        );
        DEBUG > 3 and print "L-to content: ", pretty($ell->[1]{'to'}) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140419	140851	
==>"ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 172,
                  "ARGS" => [
                              "n",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	221	328	
==>/Conditional.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako: <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	1136	1235	
==>line info

=item C<--no-body>

Emit an empty body in the dump. This may be useful for debugging.

=i <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3381	3484	
==>y $self = shift;
	my $suffix = shift;
	
	return $type_for_suffix{$suffix} if exists $type_for_suffix{$su <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	14408	14538	
==>-$i-1);
	    print <<EOC;
	# $gn $g
	store_global "${f}_$gn", $g
EOC
	    unshift @{$def_args{$f}}, $gn;
	}
    }
    if ($cur_func <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	526511	527055	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "asin",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 608,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 814 \"src/ops/math.ops\"\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853322	853415	
==>Y" => "#line 100 \"src/ops/string.ops\"\n  {{\@1}} = string_append(interpreter, {{\@1}}, {{\@2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854104	854197	
==>Y" => "#line 100 \"src/ops/string.ops\"\n  {{\@1}} = string_append(interpreter, {{\@1}}, {{\@2 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10082	10208	
==>x10
#DBG>		and	print STDERR "**Pop state $$stack[-1][0].\n";

			pop(@$stack);
		}

			@$stack
		or	do {

#DBG>			$deb <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9632	9749	
==>x10
#DBG>		and	print STDERR "**Pop state $$stack[-1][0].\n";

			pop(@$stack);
		}

			@$stack
		or	do {

#DBG>			$deb <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	13141	13346	
==>esult2;
                    $key    = $key2;
                    push @opcodes, @{ $key->[1] };
                }
                my $assign = new KeyedSetOp( $parser,
                    'arg1'   => $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940871	941230	
==>,
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1058,
                  "ARGS" => [
                              "p",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 486 \"src/op <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8643	8782	
==>my $arg_token = $self->require_ident;
          my $arg_name  = $arg_token->text;

          push @formal_args, [ $arg_type, $arg_name, $arg <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	27419	27560	
==>my $method = "describe_" . $op->{name};
    my $desc = $op->{name};
    if ($self->can($method)) {
        $desc = $self->$method($op, @{ $op- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181985	182409	
==>" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 217,
                  "ARGS" => [
                              "i",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#lin <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7009	7115	
==>1$, found$)
print "Bogus  (0): ", instr(s1$, bogus$)
print "Null   (1): ", instr(s1$, "")
print "Start (11) <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18738	18844	
==>1$, found$)
print "Bogus  (0): ", instr(s1$, bogus$)
print "Null   (1): ", instr(s1$, "")
print "Start (11) <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	2402	2562	
==>y $entry;

    for $entry (@{$vtable}) {
    next if ($entry->[4] =~ /MMD_/);
        my $args = join(", ", 'Interp* interpreter', 'PMC* pmc', split(/\s*,\s*/, $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5136	5251	
==>($ShowCurToken) = sub {
#DBG>		my($tok)='>';
#DBG>		for (split('',$$token)) {
#DBG>			$tok.=		(ord($_) < 32 or or <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4888	5000	
==>($ShowCurToken) = sub {
#DBG>		my($tok)='>';
#DBG>		for (split('',$$token)) {
#DBG>			$tok.=		(ord($_) < 32 or or <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	764	918	
==>ift->{nocheck} });
    return $t;
}

# Perform a few simple optimizations:
#
# 1. R(ST)    -> RST
# 2. aR|aS    -> a(R|S)
#    R|<null> -> R?
#    <null>|R <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	432	571	
==>n bless {
    TOKEN    => $token,
    CODE     => 'P',
    NAME     => 'pmc',
    IMCC     => 'pmc',
    IMCC_PMC => 'PMC'
  }, $class;
}

1 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	571	733	
==>$ rnd rtrim$
		    sadd screen seek setmem sgn sin spc sqr
			stick str$ strig string$
		    tab$ tan timer
		    ubound ucase$ val varptr varptr$ varseg
		   );
@ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	97	214	
==>oto, %opts) = @_;
    my $self = bless \%opts, (ref($proto) || $proto);
    $self->init();
    return $self;
}

sub in <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	307	424	
==>oto, %opts) = @_;
    my $self = bless \%opts, (ref($proto) || $proto);
    $self->init();
    return $self;
}

sub in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451466	451828	
==>,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 225 \"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	1919	2192	
==>command( 
                                \@test_prog, 
                                CD     => $self->{relpath}, 
                                STDOUT => $out_fn,
                                STDERR => $out_fn 
                            );
  
           my $meth = <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	1140	1276	
==>ion.pod'),
			$self->new_item('', 'docs/vtables.pod'),
			$self->new_item('', 'docs/mmd.pod'),
			$self->new_item('', 'docs/strings.pod') <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	21377	21516	
==>tract_quotelike($_[0],'') },
	sub { extract_codeblock($_[0],'{}','') },
];

sub extract_multiple (;$$$$)	# ($text, $functions_ref, $max_fiel <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	39586	39703	
==>ated syntax.
        # (Maybe generate a warning eventually?)
        # Note that it deliberately won't work on L<...| <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733308	733669	
==>"ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 823,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 13 <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	9073	9210	
==>, ',',
   45, '-',
   46, '.',
   47, '/',
   48, '0',
   49, '1',
   50, '2',
   51, '3',
   52, '4',
   53, '5',
   54, '6',
   55, '7', <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561801	561892	
==>.ops\"\n  opcode_t *next = {{^+4}};\n  {{\@1}} = VTABLE_find_method(interpreter, {{\@2}}, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562885	562976	
==>.ops\"\n  opcode_t *next = {{^+4}};\n  {{\@1}} = VTABLE_find_method(interpreter, {{\@2}}, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51533	51778	
==>"inline",
                  "CODE" => 66,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 815 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_trace(interpret <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	21296	21442	
==>ences: formatless treelet.\n";
    return 0;
  }
  
  my $map = ($self->{'accept_codes'} || die "NO accept_codes in $self?!?");

  my $start_line = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	2089	2260	
==>$class" unless $self;

  $self->{'token_buffer'} ||= [];
  $self->{'start_token_class'} ||= 'Pod::Simple::PullParserStartToken';
  $self->{'text_token_class'}  ||= 'Pod::Si <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	1550	1657	
==>Eliminate unreachable code.
 4. Eliminate jumps to the following address.
 5. Eliminate unused labels.

TODO <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41276	41528	
==>ch=$name), shift @_);
  
  foreach my $x (@_) {
    if(ref($x)) {
      &_traverse_treelet_bit($self, @$x);
    } else {
      $self->_handle_text($x);
    }
  }
  
  $self->_handle_element_end($scratch=$name);
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/languages/converter.pl	1668	1770	
==>...' production# mod(?)
#		{[@item]}
		{ my $lhs = ::strip_quotes($item[1]);
		  my $rhs = ::strip_quot <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	1979	2168	
==>ile .= ".pm";

		open OUT, ">$modulefile"
			or croak("Can't write to new module file '$modulefile'");

		print STDERR "precompiling grammar from file '$sourcefile'\n",
			     "to class $cl <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	33177	33346	
==>let->[$i][1]{'to'} = Pod::Simple::LinkSection->new(
            $treelet->[$i][2]
          );                   # its own treelet
        } else {
          # It's a URL <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	2058	2178	
==>>

Returns the HTML navigation bar.

=cut

sub html_navigation
{
    my $self = shift;
    my $path = shift;
    my $pare <==
2	/Users/nnunley/parrot/config/auto/snprintf.pm	63	158	
==>config/auto/snprintf.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/snpr <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	2627	2754	
==>s like SArray
    # so there would be tests needed, that check for vital classes

    # names of class files for src/pmc/Makefil <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3568	3712	
==>abel_use($dest) . " unless $reg;";
}

sub output_check {
    my ($self, $needed, $failLabel, $lenvar) = @_;
    $lenvar ||= "<rx_len>";
    my $f <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	8138	8264	
==>urn = $self->_save_1 ('P');

  $self->_add_inst ('', 'newsub',[$return,'.Closure',"LAMBDA_$label"]);

  $self->_add_inst ('', ' <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24535	24657	
==>} else  {
			die "Unknown dim type: $syms[CURR] at source line $sourceline";
		}
}
my $forloop=0;
sub parse_for {   # for v <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	3395	3509	
==>'$expected_type'";
    my $test := $ref.isa($expected_type);
    Test::proclaim($test, $out, $todo, $ref.ref, $expe <==
2	/Users/nnunley/parrot/tools/dev/symlink.pl	1086	1211	
==>"$self: not in tools/dev\n"
  unless @toolsrcdir >= 2 &&
         lc($toolsrcdir[-1]) eq 'dev' &&
         lc($toolsrcdir[-2]) <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31023	31144	
==>nchOp( $parser,
        'result' => $lbl_loop,
    );
    push @opcodes, new LabelOp( $parser,
        'arg1' => $lbl_ <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	13244	13370	
==>the sole argument, this causes an assignment of the whole hash element.
The object reference is returned.

=item Class (C<'Clas <==
2	/Users/nnunley/parrot/Configure.pl	2769	2916	
==>core. This is recommended when you are short of memory.

=item C<--jitcapable>

Use JIT system.

=item C<--execcapable>

Use JIT to emit a native ex <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	6591	6827	
==>unt"} = 0;
	$self->{"opcount"} = 0;
	$prod->{"number"} = $#{$self->{"prods"}};
	return $prod;
}

sub addvar
{
	my ( $self, $var, $parser ) = @_;
	if ($var =~ /\A\s*local\s+([%@\$]\w+)/)
	{
		$parser->{localvars} .= " $1";
		$self->{"vars <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	38174	38371	
==>er\n";
              $para->[0] = 'Para';
              $para_type = 'Plain';
            } else {
              DEBUG and print "Treating $para_type paragraph as such because the containing =for ($ <==
2	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	431	661	
==>arse::RecDescent->new( << 'END_GRAMMAR' );

{
  $::name_len         = 0; 
  $::substitution_len = 0; 
}

# We are only interested in the macro definitions
frozen:             comment V1 macros comment
                  { $item[3] } <==
2	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	160	255	
==>E

tools/build/fingerprint_c.pl - Create fingerprint.c

=head1 SYNOPSIS

    % perl tools/build/ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1495	1606	
==>ples->new,
        Parrot::Docs::Section::PMCs->new,
        Parrot::Docs::Section::DynaPMCs->new,
        Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253840	254165	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "or",
                  "FLAG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254703	255028	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "or",
                  "FLAG <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	12740	12881	
==>e_ref},
            "t_$temp_num = GET_NCI_S($reg_num);";
        return "PObj_bufstart(t_$temp_num)";
    };
    /B/ && do {
        push @{$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033227	1033327	
==>ONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@1}};\n    PMC * const lex_pad = Parrot_f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034325	1034425	
==>ONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@1}};\n    PMC * const lex_pad = Parrot_f <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6788	6911	
==>led ($?)\n";
    }
}

sub generate_c {
    my ($pmc) = @_;

    if (needs_build("$pmc.c", "$pmc.pmc")) {
        run("$PMC2C <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6999	7122	
==>led ($?)\n";
    }
}

sub generate_c {
    my ($pmc) = @_;

    if (needs_build("$pmc.c", "$pmc.pmc")) {
        run("$PMC2C <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	2009	2160	
==>$//;

	#my $rotate = "(($2 << $3) || (($2 >> (32 - $3)) & (1 << $2) - 1)))"; 
	$c = "\$r = $2;
        $1 = ((\$r << $3) | ((\$r >> (32 - $3))  & ((1 << <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	52602	52733	
==>ntext
is to split the processed string into as many non-overlapping fields as
possible, by repeatedly applying each of the specified <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	42687	42909	
==>join("\n", ...) on the contents, so we have to append a
     # newline to ever line, and then nix the last one later.
  }

  if( DEBUG > 4 ) {
    print "<<\n";
    for(my $i = $#$p; $i >= 2; $i--) { # work backwards over t <==
2	/Users/nnunley/parrot/config/init/hints/msys.pm	3	97	
==>opyright (C) 2005, The Perl Foundation.
# $Id: /parrot/config/init/hints/msys.pm 19593 2006-05- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	3645	3763	
==>c_type = $right_type if UNIVERSAL::isa($right_type, 'Jako::Construct::Type::Number');

#  $self->DEBUG(0, "   ...calc t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470823	471153	
==>i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 540,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 394 \"src/ops/math.ops\ <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	6439	6610	
==>ikely to be internal
    # variables used by libc macros.
    my @symbols = grep { ! /^_/ } sort keys %defined_in;
    
    my @external_symbols = sort grep { ! defined($de <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349125	349214	
==>th = string_to_cstring(interpreter, {{\@2}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350127	350216	
==>th = string_to_cstring(interpreter, {{\@2}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878826	879244	
==>",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 996,
                  "ARGS" => [
                              "s",
                              "s",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744299	744523	
==>} = string_from_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745065	745289	
==>} = string_from_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	1443	1631	
==>sjit' => ' -DHAS_JIT -DPPC',
             'cc_inc' => '-I./include',
             'cc_ldflags' => '',
             'cc_o_out' => '-o ',
             'cc_shared' => ' ',
             'ccflag <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	47152	47247	
==>perator)

=item [4]

"'EOMSG'" (i.e. the left delimiter of the here document, including any quot <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	16792	16909	
==>REG => 'loadreg' }, "post_load for typed exception handler");
	$pir .= "### end post_load (typed eh)\n";
    $pir .= < <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29526	29667	
==>"}" => 144
		}
	},
	{#State 93
		ACTIONS => {
			";" => 146,
			"," => 147
		},
		DEFAULT => -107,
		GOTOS => {
			'fieldsep' => 145 <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	15395	15539	
==>startpos,
		 $codepos, $endpos-$codepos,
		 $endpos,  length($$textref)-$endpos,
	       );
}


my %mods   = (
		'none'	=> '[cgimsox]*',
		'm'	=> <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	961	1077	
==>d header file documentation item.

=cut

sub c_pair_item
{
    my $self = shift;
    
    return $self->c_item(shift, <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	278	379	
==>copy of Parrot::Test::Python. Abstraction needed.

=cut

sub new {
    return bless {};
}

sub output_ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	316	417	
==>copy of Parrot::Test::Python. Abstraction needed.

=cut

sub new {
    return bless {};
}

sub output_ <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1362	1605	
==>$got_perl eq $expected_perl);
    Test::proclaim($test, $desc, $todo, $got_perl, $expected_perl, $depends);
}


## isnt

sub isnt (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not($got eq $exp <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	2383	2551	
==>$destdir/$inc");
                #push(@generated, "$destdir/$inc");
                move_if_diff("$inc.tmp", "$destfile");
                push(@generated, "$destfile") <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	12774	12966	
==>(isbuiltin($sym)) {
				$extern=~s/\$/_string/g; $extern=~tr/a-z/A-Z/;
				push @code, qq{\$$optype$retcount = _BUILTIN_$extern($ac$pir_args)};
				push @work, [ "result of $extern()", "RESULT" <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	1238	1398	
==>xamples)$: ) {
            $File::Find::prune = 1;	
            return;
        }
        return if /malloc/;

        /^.*\.[ch]\z/s &&
            push @files, <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29446	29563	
==>or instruction must use one of \${DEST0} or \${LOADREG} in rule " .
				"$rule->{'name'}\n";
		}

		# Now call pre_loa <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	23748	23868	
==>,$lastpos-$firstpos)="";
	       pos $$textref = $firstpos };
	return $fields[0];
}


sub gen_extract_tagged # ($opentag, <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	19577	19724	
==>s not' => 'eq_addr',
    );
    my %op_map = (
	'==' => 'eq',
	'!=' => 'ne',
	'>' => 'gt',
	'>=' => 'ge',
	'<' => 'lt',
	'<=' => 'le',
	'is' => 'eq_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1096695	1096851	
==>_name(interpreter, \n                                    VTABLE_namespace(interpreter, {{\@2}}));\n    if (PMC_IS_NULL(ns) || VTABLE_elements(interpreter, ns <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	8137	8270	
==>gth $t;
    # TODO: enforce some limitations on what a target name can be?
    $this->{'accept_targets'}{$t} = $type;
    DEBUG > 2 an <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	1472	1563	
==>w(Regex::Ops::Tree::_onearg);
@Regex::Ops::Tree::rule::ISA         = qw(Regex::Ops::Tree::_o <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33920	34039	
==>f ($method->{type} ne 'void') {
        my $type = $method->{type};
        $ret_def = "$type ret_val;";
        $func_r <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38882	39001	
==>f ($method->{type} ne 'void') {
        my $type = $method->{type};
        $ret_def = "$type ret_val;";
        $func_r <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	10334	10485	
==>y default, all atom match ops check to be sure there are enough
# atoms left in the input before looking at the next atom. This
# routine disables all o <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9236	9444	
==>BLOCKS}}, $sub;
      }

      next;
    }

    #
    # Loops:
    #
    #   <label>: until (<value> <op> <value>) {
    #            until (<value> <op> <value>) {
    #
    #   <label>: while (<value> <op> < <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1068	1214	
==>.pod

=head1 DESCRIPTION

This class is that parses Pod and dumps just the text content.  It is
mainly meant for use by the Pod::Simple test suite, <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	7019	7129	
==>pt_directives(@_) };

sub unaccept_directives {
  my $this = shift;
  foreach my $d (@_) {
    next unless defi <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	978	1120	
==>n up any /foo/../ stuff.
    while ( $path =~ s|/[^/]+/\.\.|| ) {}

    if ( exists $instance_for_path{$path} )
    {
        if ( ref($instanc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653430	653538	
==>\n    if (!{{\@1}} || !VTABLE_defined(interpreter, {{\@1}}))\n        real_exception(interpreter, resume, MET <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654591	654699	
==>\n    if (!{{\@1}} || !VTABLE_defined(interpreter, {{\@1}}))\n        real_exception(interpreter, resume, MET <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	70031	70128	
==>pos($grammar)=pos($_[2]);
	return if $grammar =~ m/$OPTIONAL/gco || $grammar =~ m/$ANY/gco;
	my $m <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4070	4203	
==>c($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _DBLoad {
	{
		no strict 'refs';

			exists(${__PACKAGE__.' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3867	3988	
==>c($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _DBLoad {
	{
		no strict 'refs';

			exists(${__PACKAGE__.' <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	10935	11025	
==>ames' => 'Null Env Key Random UnManagedStruct ManagedStruct delegate CSub Compiler Exceptio <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	4183	4298	
==>$source: $!";

    open my $out, '>', "$target.tmp" or die "Can't open $target.tmp: $!";

    if ($options{commentTy <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	14650	14844	
==>.get_handler_offset()
    tmp = handler_offset
    gen_pir = concat tmp
    gen_pir = concat "\npushmark "
    $I0 = i + 1
    tmp = $I0
    gen_pir = concat tmp
    gen_pir = concat "\n"
NOT_TRY <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921044	921312	
==>tf(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921937	922205	
==>tf(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/config/gen/platform.pm	5051	5179	
==>rated c files
    @impls = grep { /\.c$/ } split(',', $generated);
    for (@impls) {
        if (-e $_) {
            local $/ = <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	960	1177	
==>we're using gcc.

    # This key should always exist unless the program couldn't be run,
    # which should have been caught by the 'die' above.
    unless (exists $gnuc{__GNUC__}) {
        $conf->data->set(gccversion <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035543	1035640	
==>lex_name, ctx);\n    PMC *result = NULL;\n\n    if (!PMC_IS_NULL(lex_pad))\n\tresult = VTABLE_get_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036707	1036804	
==>lex_name, ctx);\n    PMC *result = NULL;\n\n    if (!PMC_IS_NULL(lex_pad))\n\tresult = VTABLE_get_ <==
2	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	154	269	
==>_osf;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    # Tru64
    my $ccflags = $conf->data->get('ccfla <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426181	426438	
==>_dispatch_v_pi(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427068	427325	
==>_dispatch_v_pi(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35602	35710	
==>($) { return $_[0]->{"subrule"} }
sub isterminal { 0 }
sub sethashname { }

sub describe ($)
{
	my $desc = $_ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33081	33188	
==>($) { return $_[0]->{"subrule"} }
sub isterminal { 0 }
sub sethashname {}

sub describe ($)
{
	my $desc = $_ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	16928	17064	
==>[1] $cmt
EOC
    push @stack, [-1, $l->[1], $l->[2]];
}
sub inplace_word
{
    my ($op, $cmt) = @_;
    my $r = pop @stack;
    my $l = p <==
2	/Users/nnunley/parrot/config/inter/lex.pm	999	1139	
==>result('skipped');
        return $self;
    }

    my $prog;

    # precedence of sources for the program:
    # default -> probe -> environ <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	996	1136	
==>result('skipped');
        return $self;
    }

    my $prog;

    # precedence of sources for the program:
    # default -> probe -> environ <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	8942	9054	
==>h_at), "Ending boilerplate incorrect.\n(mismatch at \"$source->[$mismatch_at]\" (should be \"$end_boilerplate[$mi <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21542	21659	
==>@_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(1);
  my $temp = $self->_generate($nod <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21927	22044	
==>@_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(1);
  my $temp = $self->_generate($nod <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	21092	21190	
==>$second_arg,		# 2ND LDEL (MAYBE)
		$str2pos,	$rd2pos-$str2pos,	# 2ND STR (MAYBE)
		$rd2pos,	$second <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	12938	13053	
==>f the hash; the second argument, if present, is
assigned to the hash element.  If the element type is C<'%'>, the
ac <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	12474	12609	
==>3] : $ldel_inner;
	my $rd         = $_[4];
	my $rdel_inner = $ldel_inner;
	my $rdel_outer = $ldel_outer;
	my $posbug = pos;
	for ($ldel_ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	25519	25805	
==>sh(\*STDOUT);
    _autoflush(\*TESTERR);
    _autoflush(\*STDERR);

    $self->output(\*TESTOUT);
    $self->failure_output(\*TESTERR);
    $self->todo_output(\*TESTOUT);
}


my $Opened_Testhandles = 0;
sub _open_testhandles {
    return if $Opened_Testhandles;
    # We dup STDOUT and S <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10715	10813	
==>ONT:
${PARAMS}[${ITEMP0}] = ${STEMP0}

# Next parameter.
dec stack_depth
goto pre_call_PLOOP_${CURI <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	19195	19355	
==>mmds, @init_mmds, %init_mmds);
    foreach my $method (@{ $self->{vtable}{methods}} ) {
        my $meth = $method->{meth};
        my $meth_name;
        my $de <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8797	8906	
==>ests_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_tests_badpass = 0;
    $Test::num_of_te <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	200	297	
==>ests_run    = 0;
$Test::num_of_tests_failed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of_te <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	689765	690088	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "freeze",
                  "FLAGS" => "",
                  "ARGDIRS" <==
2	/Users/nnunley/parrot/languages/APL/t/APL.pm	0	117	
==>package t::APL;

# Fail a little more gracefully for those without Test::Base installed.

BEGIN {
  eval {
    require <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	64252	64383	
==>g (and the failure mode was not
"MAX" or "PARA").




=back


=head1 AUTHOR

Damian Conway (damian@conway.org)


=head1 BUGS AND IRR <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	732	834	
==>nfess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Left is not V <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	744	846	
==>nfess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Left is not V <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	13348	13498	
==>$foo=$dos[-1];
		push @{$code{$seg}->{code}}, "\tgoto AFTERDO_$foo->{jump}\n";
	} else {
		die "Unknown EXIT type source line $sourceline";
	}
}



$se <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	1463	1603	
==>equivalent labels
 2. Jump threading: Replace goto X; ...; X: goto Y; with goto Y.
 3. Eliminate unreachable code.
 4. Eliminate jumps to the <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862157	862489	
==>"o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 978,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 138 \"src/ops/string. <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	4668	4774	
==>d therefore
not checked.

Note that the results are cached and the POD will only be rechecked
if the file h <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653579	653841	
==>not found\", string_to_cstring(interpreter, {{\@3}}));\n    {{=resume}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654740	655002	
==>not found\", string_to_cstring(interpreter, {{\@3}}));\n    {{=resume}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365308	365554	
==>er, {{\@1}}, {{\@2}});\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366148	366394	
==>er, {{\@1}}, {{\@2}});\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	503	606	
==>a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new(
		'Perl Modules', 'perl. <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	29411	29656	
==>handle = $self->genlabel('handle_call_result');
    my $back = $self->genlabel('backtrack_into_call');
    my $next = $self->genlabel('after_call');

    my @ops = (           aop('call_setup' => [ $name, $uid ]),
                          aop('c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846655	846777	
==>ps\"\n  STRING *s;\n  s = string_chr(interpreter, (UINTVAL){{\@2}});\n  {{\@1}} = s;\n  {{+=3}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847451	847573	
==>ps\"\n  STRING *s;\n  s = string_chr(interpreter, (UINTVAL){{\@2}});\n  {{\@1}} = s;\n  {{+=3}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	2379	2476	
==>onally, for
5 minutes.

Add the salt and chick peas and cook, stirring, until heated through.

Sti <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	6829	6975	
==>ken -- it's a string!"
     unless ref $t;
    Carp::croak "Can't unget $t, because it's not a token object!"
     unless UNIVERSAL::can($t, 'type' <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	547	655	
==>nfess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Type is not!" if de <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	518	609	
==>nfess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "To <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3181	3282	
==>y $self = shift;
  if(Pod::Simple::ASCII) {
    $self->{'Thispara'} =~ tr{\xA0}{ };
    $self->{'Thisp <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2669	2770	
==>y $self = shift;
  if(Pod::Simple::ASCII) {
    $self->{'Thispara'} =~ tr{\xA0}{ };
    $self->{'Thisp <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4860	4955	
==>rent_block;

      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $self <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22655	22749	
==>rent_block;
      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $self <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37551	37649	
==>cted = ' . ($rule->hasleftmost($self) ? 'q{}'
				: 'q{'.$self->describe.'}' ) . ';
		$Parse::RecDe <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39954	40052	
==>cted = ' . ($rule->hasleftmost($self) ? 'q{}'
				: 'q{'.$self->describe.'}' ) . ';
		$Parse::RecDe <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	74	173	
==>7:12:06.535041Z fperrad  $

require Parrot::Test;

package Parrot::Test::Regex;

use strict;

use Da <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	6363	6456	
==>n sort keys %suffixes;
}

=item C<files_with_suffix($suffix, $recursive, $ignore)>

Use this t <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	24138	24243	
==>elf->{Out_FH} = _new_fh($fh);
    }
    return $self->{Out_FH};
}

sub failure_output {
    my($self, $fh) <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	61	194	
==>words);
use strict;

my $retcount=200;
my $currentexpr;

@builtins=qw( 	abs      	asc      	atn
	      	cdbl		chr$		cint
		clng		comma <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	371	524	
==>ethods

=over

=cut

package Parrot::Docs::Section::C;

use strict;
use warnings;

use base qw( Parrot::Docs::Section );

use Parrot::Distribution;

=item <==
2	/Users/nnunley/parrot/lib/File/Which.pm	2451	2684	
==>path_ext])
                                # DOSish systems don't pass -x on non-exe/bat/com files.
                                # so we check -e. However, we don't want to pass -e on files
                                # that ar <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936866	937094	
==>,
                  "ARGS" => [
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 455 \"src/ops/string.ops\"\n  {{\@1}} = string_titlecase(inte <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264886	265329	
==>i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 308,
                  "ARGS" => [
                              "i",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 806 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	15373	15547	
==>ile;
        $file_escaped =~ s|(\\)|$1$1|g; # escape backslashes
        $op->body( $nolines ? $body : qq{#line $line "$file_escaped"\n$body} );

        # Constants here are <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	30782	30890	
==>x = CONTEXT(interpreter->ctx);\n    ccont = ctx->current_cont;\n\n    if (PMC_cont(ccont)->address) {\n\t/* e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852060	852511	
==>_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 967,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic"
                            ],
                  "BODY" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	330701	330873	
==>",
                              "p"
                            ],
                  "BODY" => "#line 174 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (FLOATVAL)(Parrot_Float8)({{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	3392	3546	
==>elf->new_item('', 'tools/util/ncidef2pasm.pl'),
            $self->new_item('', 'tools/util/smokeserv-README.pod'),
        ),
        $self->new_group('Po <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	1418	1797	
==>w+)\s+(\d+)/) {
            $order{$1} = $2;
        }
    }
    close IN;

    return \%order;
}

sub sort_pmcs
{
    my @pmcs      = @_;
    my $pmc_order = get_pmc_order();
    my $n         = scalar keys(%{$pmc_order});
    my @sorted_pmcs;
    for (@pmcs) {
        if (exists $pmc_order->{$_}) {
            $sorted_pmcs[$pmc_order->{$_}] = $_;

            #if (exists $pmc <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	4171	4306	
==>SSION();
		$false=qq{""} if $type eq "S";
		push @{$code{$seg}->{code}},<<EXPR;
@code	eq $result, $false, IFBRANCH_$ifline
EXPR
		feedme <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	2156	2312	
==>ub parse_dis
{
    my @d = @_;
    my ($dir1, $dir2);
    for (@d) {
	if (/^\[/) {
	    if ($dir1) {
		$dir2 = $_;
	    }
	    else {
		$dir1 = $_;
	    }
	} <==
2	/Users/nnunley/parrot/config/gen/platform.pm	2822	2934	
==>inally append generated
    @headers = grep { /\.h$/ } split(',', $generated);
    for (@headers) {
        if (- <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	2061	2180	
==>s{'headers'}})
        {
            push @contents,
                $dist->relative_path($dist->c_header_file_with_name <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24525	24637	
==>129,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	7707	7844	
==>op!  Adds instead
           # of removes, and operates on the beginning instead of the end!
          
          if($to_unget[-1]->type e <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Posix.pm	525	804	
==>x_bc = ($^O =~ /MSWin32/) ? 
                     'bc'
                     :
                     'bc --standard --quiet';

    return ( "$posix_bc ${test_prog_args} languages/${lang_fn}" );
}
 
 

sub skip_why {
    my $self = shift;
    my ( $options ) = @_;

    return;
}
 
1 <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	2000	2192	
==>}

sub run_test {
    my ($file, $expect) = @_;
    my $ret = `$urmc $run $FindBin::RealBin$PConfig{slash}$file`;
    if (!$ret) {
	print STDERR "TEST FAILED: $file didn't return a value, Parro <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18616	18721	
==>>is_close_paren) {
        while (1) {
          push @args, Jako::Construct::Expression::Value->new($bloc <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19642	19747	
==>>is_close_paren) {
        while (1) {
          push @args, Jako::Construct::Expression::Value->new($bloc <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7664	7764	
==>ort_description()>

Returns a short description of the file extracted from the C<NAME> section
of the <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623779	623898	
==>\t    (char*)caller_ctx->bp.regs_i, dest_pred);\n\t}\n        else\n            n = 2;\n\t{{+=n}};\n    }\n    /* no mat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847790	848056	
==>ME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848569	848835	
==>ME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093605	1093693	
==>DY" => "#line 209 \"src/ops/experimental.ops\"\n  VTABLE_morph(interpreter, {{\@1}}, {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094408	1094496	
==>DY" => "#line 209 \"src/ops/experimental.ops\"\n  VTABLE_morph(interpreter, {{\@1}}, {{\@ <==
2	/Users/nnunley/parrot/config/init/hints.pm	651	803	
==>used = 0;

    my $hints = "init::hints::" . lc($^O);

    print "[ $hints " if $verbose;

    eval "use $hints";
    die $@ if $@;

    # call the runst <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1196	1345	
==>+;
    }
    else {
        $parser->YYData->{nb_info} = 1;
    }

    print STDOUT 'lua: ', $parser->YYData->{srcname}, ':',
        $parser-> <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	30551	30673	
==>B<caller>

    my $package = $Test->caller;
    my($pack, $file, $line) = $Test->caller;
    my($pack, $file, $line) = $Tes <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33567	33686	
==>line"      => $_[3],
		"implicit"  => $_[4] || undef,
		"matchrule" => $_[5],
		"argcode"   => $_[6] || undef,
	}, $clas <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	20909	21015	
==>', 3,
sub
#line 137 "lib/Regex/Grammar.y"
{ return op('call' => [ $_[2], 0 ]) }
	],
	[#Rule 25
		 'expr', 4 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1287	1418	
==>ub props     { return %{shift->{PROPS}};  }


#
# compile()
#

sub compile
{
  my $self     = shift;
  my $compiler = shift; # Requi <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16665	16761	
==>e things very cautiously:
        $x =~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10113	10205	
==>e things very cautiously:
    $x =~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	14450	14567	
==>_global "${f}_$gn", $g
EOC
	    unshift @{$def_args{$f}}, $gn;
	}
    }
    if ($cur_func =~ /Build::(\w+)/) {   ## XX <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	1177	1283	
==>artlen) = $_[5];
	my $remainderpos = $_[2];
	if ($wantarray)
	{
		my @res;
		while (my ($from, $len) = spli <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6003	6107	
==>y stack type state propogated to it if nothing has been
	# propogated there already.
	$pir .= <<'PIR';
if <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3941	4045	
==>y stack type state propogated to it if nothing has been
	# propogated there already.
	$pir .= <<'PIR';
if <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81491	81951	
==>IRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 102,
                  "ARGS" => [
                              "p",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 1196 \"src/ops/core.ops\"\n  inte <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	30683	30921	
==>= $self->_generate(_get_arg ($node, 1));
  my @args = _get_args ($node, 2);
  die "apply: wrong number of args\n" unless @args;

  $return = $self->_call_function_sym('apply');

  return $return;
}

sub _op_map {
}

sub _op_for_each {
}

s <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3891	3999	
==>to do any lazy moves
    # beneath this point.
    $pir .= _do_lazy_moves('_${CURIC}') if $pushes;

	# Do cod <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6256	6373	
==>"Chicago"
A$(4) = "Seattle"
Max = 4 'UBOUND(A$)
Exchange=TRUE           ' Force first pass through the array.
WHILE Ex <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15909	16026	
==>"Chicago"
A$(4) = "Seattle"
Max = 4 'UBOUND(A$)
Exchange=TRUE           ' Force first pass through the array.
WHILE Ex <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	928	1032	
==>::Block::Sub")
      or $construct->isa("Jako::Construct::Block::Module")
      or $construct->isa("Jako: <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	11902	12061	
==>statuses'} }, $enc_error;

  return '=encoding ALREADYDONE';
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

sub _handle_encodin <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1542	1652	
==>qw( Parrot::Test Exporter );


my $b = Test::Builder->new();

my $path_to_parrot = $INC{"Parrot/Config.pm"};
$p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407720	408019	
==>" => 0,
                  "NAME" => "connect",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408618	408917	
==>" => 0,
                  "NAME" => "connect",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86751	87028	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new_callback",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87752	88029	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new_callback",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	30739	30913	
==>ETUP_EXCEPT
{
    my ($n, $c, $cmt) = @_;
    my $targ = "pc_xxx";
    if ($c =~ /to (\d+)/) {
	$targ = "pc_$1";
    }
    my $eh = temp('P');
    print <<EOC;
	newsub $eh, .E <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	428	533	
==>,
	ParrotIO => 13,
	ParrotLibrary => 14,
	ConstParrotLibrary => 15,
	ParrotInterpreter => 16,
	ParrotThrea <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	338596	338984	
==>RGS" => [
                              "p"
                            ],
                  "BODY" => "#line 108 \"src/ops/io.ops\"\n  {{\@1}} = PIO_STDOUT(interpreter);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	13698	13796	
==>_op_count(void);
    int jit_op_count() { return $core_numops; }
EOC
}

print("jit2c: JITed $njit ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78895	78995	
==>re.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  void * const p = Parr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80416	80516	
==>re.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  void * const p = Parr <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	37763	37899	
==>"{{DATA}}">, then the constructed closing tag would be C<"{{/DATA}}">.

=item 4.

A string specifying a pattern to be matched as a prefix <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	984	1088	
==>p(@methods);

# Generate method code suppliers.
$output .= generate_bodies(@methods);

# End of output.
$ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	60374	60532	
==>}
		elsif ($grammar =~ m/$LITERAL/gco)
		{
			($code = $1) =~ s/\\\\/\\/g;
			_parse("a literal terminal", $aftererror,$line,$1);
			$item = new Parse::RecDesc <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	7154	7251	
==>or any possible match of this subtree?
    return $t if (defined($t->maxlen()) && $guarantee >= $t <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	5	141	
==>yright (C) 2004-2006, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Docs/Section/Parrot.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87271	87469	
==>p",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 1215 \"src/ops/core.ops\"\n  {{\@1}} = Parrot_make_cb(interp <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34572	34847	
==>elf->whine(
              $para->[1]{'start_line'},
              "Expected '=item *'"
            );
            push @$para, $para->[1]{'~orig_content'};
             # and block assimilation of the next paragraph
            delete $para->[1]{'number'};
             # Only <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	22670	22903	
==>w(nobody nolines debug verbose);

    my %action;

    GetOptions(
        "include=s"     => \@include,

        "vtable"        => \$action{default},
        "dump"          => \$action{dump},
        "c|gen-c"       => \$action{gen <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	837	951	
==>he $0 script instead.
 *
 * Created by $svnid
 *  Overview:
 *     This file contains various charset tables.
 *  D <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3223	3388	
==>self, $val1, $val2, $dest) = @_;
    $self->output_test('>=', $val1, $val2, $dest);
}

sub output_if {
    my ($self, $reg, $dest) = @_;
    $reg = value($reg);
    r <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	4308	4430	
==>$op->{result}->{symbol}, $op->{arg1}, $op->{arg2}\n";
        }
        else {
            print {$FH} "  new $op->{resu <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	488	590	
==>ead2 Functions

The following functions are exported:

=over 4

=cut

package Parrot::Vtable;

use stri <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	29440	29617	
==>nput text is a read-only string (i.e. a literal),
no attempt is made to remove the extracted text.

In a void context the behaviour of the extraction subroutines is
exactly the s <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77270	77379	
==>ub _trace($;$$)
{
	$tracemsg      = $_[0];
	$tracecontext  = $_[1]||$lastcontext;
	$tracerulename = $_[2]||$la <==
2	/Users/nnunley/parrot/config/inter/lex.pm	1625	1743	
==>('no');
        return $self;
    }

    if ($conf->options->get('ask')) {
        $prog = prompt($prompt, $prog ? $pro <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	1639	1757	
==>('no');
        return $self;
    }

    if ($conf->options->get('ask')) {
        $prog = prompt($prompt, $prog ? $pro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	309017	309352	
==>":base_debug",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 360,
                  "ARGS" => [
                              "sc"
                            ],
                  "BODY" => "#line 64 \"src/ops/ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1523	1638	
==>_CONT");
      $compiler->indent;
      $self->SUPER::compile($compiler);
      $compiler->outdent;
      $compiler- <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	10228	10354	
==>t ? 1 : 0;
}


sub _unoverload {
    my $self  = shift;

    local($@,$!);

    eval { require overload } || return;

    forea <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	5886	5986	
==>ore instead of Test::Simple in your
programs and things will still work).

=item L<Test>

The origina <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10778	10922	
==>ack_depth
goto pre_call_PLOOP_${CURIC}
PRE_CALL_PLOOP_END_${CURIC}:
PIR

    $pir .= _do_lazy_moves('_${CURIC}');

    $pir .= <<'PIR';
# If ther <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	772	866	
==>faults to '/usr/bin'.

=item C<libdir>

The library directory. Defaults to '/usr/lib'.

=item C <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	1001	1095	
==>faults to '/usr/bin'.

=item C<libdir>

The library directory. Defaults to '/usr/lib'.

=item C <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	5225	5510	
==>rogram ];
    for my $name ( sort keys %bench ) {
        push @rows, [ $name, map { $bench{$name}{$_} || '-' } @program ];
    }
    my @max;
    for ( 0 .. @program ) {
        for my $row ( @rows ) {
            Longest( $max[$_] , length $row->[$_] );
        }
    }
    for my $co <==
2	/Users/nnunley/parrot/examples/benchmarks/stress.pl	717	805	
==>benchmarks/stress1.pl>, 
F<examples/benchmarks/stress2.pasm>, 
F<examples/benchmarks/stre <==
2	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	661	749	
==>benchmarks/stress1.pl>, 
F<examples/benchmarks/stress2.pasm>, 
F<examples/benchmarks/stre <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	2329	2436	
==>_2000@Yahoo.com>

Originally written by:

Sebastian Riedel, C<sri@oook.de>

=cut

# Create Default Configura <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	28036	28348	
==>$a);  # Always here?
			}
		}
	}
	my $argcnt=@params;
	# The outer compiler will provide the framework for the
	# function call.  We just have to unwind its arguments.
	$_=scalar @params;
	push @{$code{$seg}->{code}}, <<EOH;
	.param int argc
	eq argc, $_, ${englishname}_ARGOK
	print "Function $englishname receiv <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	4	101	
==>Statement.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826703	826930	
==>ype on stack!\");\n  }\n\n  {{\@1}} = UVal_num(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827773	828000	
==>ype on stack!\");\n  }\n\n  {{\@1}} = UVal_num(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	5215	5387	
==>ent" defStyleNum="dsComment" />
      <itemData name="Octal" defStyleNum="dsBaseN" />
      <itemData name="Hex" defStyleNum="dsBaseN" />
      <itemData name="Float" defSty <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	23510	23905	
==>ker' ]),
                        aop('goto', [ $loop ]),
              $rfail => aop('popindex', [ '<tmp>', $lastback ]),
              );

    return ($R_back, @ops);
}

#
# R+? ->        pushmark
#         back: R or rfail
#               push 0
#               goto next
#        rfail: popindex -> junk or lastback
#               goto R.back
#
sub rewrite_nongreedy_plus {
    my ($self, $op <==
2	/Users/nnunley/parrot/languages/regex/test.pl	1202	1347	
==>he OUTPUT: section is similar.

  Example:

__END__
(a*a|(aaa))a
INPUT:
xxxxxxxxaaabb
OUTPUT:
Match found
0: 8..10
1: 8..9
INPUT:
aaaaaaaaaaaa
OUT <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	627	721	
==>en you do $parser->get_token on a L<Pod::Simple::PullParser>, you might
get an object of this c <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	533	627	
==>en you do $parser->get_token on a L<Pod::Simple::PullParser>, you might
get an object of this c <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35161	35266	
==>{methods}[$n], $line, $out_name);
    }
    my $decl = $self->decl($self->{class}, $method, 0);
    my $re <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36464	36569	
==>{methods}[$n], $line, $out_name);
    }
    my $decl = $self->decl($self->{class}, $method, 0);
    my $re <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40190	40353	
==>nknown methods to
the PMC in the first attribute slot.

=cut

sub body
{
    my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # exis <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	16485	16595	
==>nt>=>I<value> pairs, with which to initialize the struct.
If no initializer is specified for a particular eleme <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	10007	10151	
==>->require_close_paren;
      $self->require_open_brace;

      my $loop;

      my $namespace = sprintf("_%s_%d", uc $kind, $self->{BLOCK_COUNT}+ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4119	4255	
==>sing arrays (expect 12)
function arrfunc(x())
	print x(4)
	arrfunc=55
end function
dim g(10)
g(4)=12
y=arrfunc(g())

' Function Array sco <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15059	15163	
==>sing arrays (expect 12)
function arrfunc(x())
	print x(4)
	arrfunc=55
end function
dim g(10)
g(5)=666
g(4 <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15726	15829	
==>variable TEST_ALWAYS_CALLER to force Test.pm to always
append the caller information to the test's `$des <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	47886	48024	
==>act_quotelike> silently
rearranges the string to an equivalent piece of Perl:

        <<'EOMSG'
        This is the message.
        EOMSG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669421	669706	
==>=> "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 749,
                  "ARGS" => [ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2603	2782	
==>INTERNAL_ERROR("No type for right!") unless defined $right_type;

  $self->SYNTAX_ERROR("Can only do bitwise ops on integers") unless UNIVERSAL::isa($dest_type, 'Jako::Construct::T <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2837	2951	
==>INTERNAL_ERROR("No type for right!") unless defined $right_type;

  $self->SYNTAX_ERROR("Can't do arithmetic on str <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3551	3690	
==>EBUG(0, "Calling '%s' as regular sub (props = %s)...", $name, join(", ", %props));

    $name =~ s/::/__/g;

    if (exists $props{fn} or ex <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193472	193571	
==>DY" => "#line 320 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194451	194550	
==>DY" => "#line 320 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449020	449358	
==>re",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 514,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 190 \"src/ops/math.ops\"\n  { <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6674	6819	
==>match goto match_fail
          match_success:
            print "matched"
            goto match_end
          match_fail:
            print "fai <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7691	7836	
==>match goto match_fail
          match_success:
            print "matched"
            goto match_end
          match_fail:
            print "fai <==
2	/Users/nnunley/parrot/languages/lua/luac.pl	280	460	
==>se => 1 );
}

my $parser = new Lua::parser();
$parser->YYData->{verbose_error}   = 1;    # 0, 1
$parser->YYData->{verbose_warning} = 1;    # 0, 1
$parser->YYData->{verbose_inf <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	15675	15814	
==>="
	push P9, "OP"
	P0= P5		# The "constant"
	bsr RUNTIME_PUSH
	pop P0, P12
	bsr RUNTIME_PUSH
	dec I5
	gt I5, 0, CASE_${jump}_${incase}_START <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	6553	6789	
==>./lib";
use Parrot::Vtable;
use Parrot::Pmc2c qw(count_newlines);
use Parrot::Pmc2c::Library;
use Data::Dumper;
use Getopt::Long;

my %opt;

main();

=head1 FUNCTIONS

=head2 my $path = find_file( [$dir1, $dir2], $file, $die_unless_found <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4616	4764	
==>$type    = 'STRING';

    $_ = $parser->YYData->{INPUT};
    s/^\n//
        and $parser->YYData->{lineno}++;

    while (1) {
        $parser <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8908	9006	
==>ixup_label, label);\n    if (!fe)\n\tinternal_exception(1, \"branch_cs: fixup for '%s' not found\", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10024	10122	
==>ixup_label, label);\n    if (!fe)\n\tinternal_exception(1, \"branch_cs: fixup for '%s' not found\", <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1057	1165	
==>\
   thingy.pod

=head1 DESCRIPTION

This class is that parses Pod and dumps just the text content.  It is
ma <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2358	2471	
==>ster_num/$register_num/g;
		$register_num++;
	}

	# Do code for each push.
	$pir .= "\${ITEMP0} = 0\n";
	for (1..$ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1710	1823	
==>ster_num/$register_num/g;
		$register_num++;
	}

	# Do code for each push.
	$pir .= "\${ITEMP0} = 0\n";
	for (1..$ <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	106	206	
==>g internal methods and spit out a chunk of
# PIR that can look up the built-in that's needed and retu <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	11166	11316	
==>f      math.h
hypotl      math.h
ilogb       math.h
ilogbf      math.h
ilogbl      math.h
imag        complex.h
isalnum     ctype.h
isalpha     ctype.h <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38533	38980	
==>" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 49,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 720 \"src/ops/core.ops\"\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735528	735863	
==>FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 826,
                  "ARGS" => [
                              "n",
                              "nc" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758659	758959	
==>FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 856,
                  "ARGS" => [
                              "s", <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	12149	12288	
==>"^" => 9,
			"(" => 10,
			"[" => 14,
			"." => 15
		},
		GOTOS => {
			'charclass' => 12,
			'expr' => 11,
			'regex' => 13,
			'rule' => 8 <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	969	1121	
==>e implementation does not yet work), pass:

    todo => 'reason to consider this TODO'

at the end of the argument list.  Valid reasons include C<bug>,
C <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	12936	13247	
==>source($source);
  }
  # By here, $source is a FH.

  $self->{'source_fh'} = $source;
  
  my($i, @lines);
  until( $self->{'source_dead'} ) {
    splice @lines;
    for($i = MANY_LINES; $i--;) {  # read those many lines at a time
      local $/ = $NL;
      push @lines, scalar(<$source>);  # readline
      las <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	4166	4297	
==>e\" = $temp_pmc");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element( <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	14665	14799	
==>smoke report">View full smoke report</a>
            </td>
          </tr>
        </tmpl_loop>
      </tmpl_loop>
    </tmpl_loop>
  < <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	43812	44008	
==>bol = $func->{value};
      if (exists $global_ops{$symbol}) {
	$return = $global_ops{$symbol}->($self, $node);
      } else {
	my @args = map { $self->_generate($_); } _get_args($node);
	$return = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650780	651072	
==>1;\n    else\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651702	651994	
==>1;\n    else\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	524108	524401	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sqrt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
2	/Users/nnunley/parrot/config/auto/jit.pm	4552	4686	
==>ble => 0
            );
        }

        # test for executable malloced memory
        if (-e "config/auto/jit/test_exec_$osname.in") <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848219	848308	
==>> "#line 78 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@1}}, {{\@2}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848999	849088	
==>> "#line 78 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@1}}, {{\@2}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037755	1038012	
==>ULL, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038536	1038793	
==>ULL, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820043	820494	
==>e",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 929,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 79 \"src/ops/stack.ops\" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2996	3085	
==>Construct::Type::String');
  $self->SYNTAX_ERROR("Can't do arithmetic on strings") if UNIV <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	3116	3205	
==>Construct::Type::String');
  $self->SYNTAX_ERROR("Can't do arithmetic on strings") if UNIV <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	72592	72687	
==>OAD	= sub
{
	no strict 'refs';
	\$AUTOLOAD =~ s/^$self->{namespace}/Parse::RecDescent/;
	goto &{ <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	9312	9473	
==>p2
    $N1 = 1 - $N1
    $N1 = sqrt $N1
    .return ($N1)
one:
    $N1 = sin op2
    .return ($N1)
two:
    $N1 = cos op2
    .return ($N1)
three:
    $N1 = tan o <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	14369	14603	
==>nc_table */
  $getop		/* op_code() */
};

END_C

# generate initfunc
my $init1_code = "";
if ($trans->can("init_func_init1")) {
    $init1_code = $trans->init_func_init1($base);
}

my $init_set_dispatch = "";
if ($trans->can("init_set_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	10520	10648	
==>atted'} = 1;
  }

  my $token_count = 0;
  my $title;
  my @to_unget;
  my $state = 0;
  my $depth = 0;

  Carp::croak "What kind <==
2	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	1679	1800	
==>put = $self->gen_output( $code, $test_no ); 
  
  my $pass = $self->{builder}->is_eq( $output, $expected, $desc );

  retu <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10018	10158	
==>od_link($link)>

This is reimplemented here to avoid a bug in C<Pod::Simple::HTML>.

=cut

sub do_pod_link 
{
    my $self = shift;
    my $l <==
2	/Users/nnunley/parrot/languages/javascript/bootstrap.pm	483	592	
==>ontext->eval(q!
	Object.prototype.__defineProperty__ = function (a,b,c,d,e) {
	};
	debug(eval(snarf('jsdefs.js <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	179	323	
==>.
# Inherits from SRM::Base.

package SRM::Register;
use strict;
use SRM::Base;
our @ISA = qw/SRM::Base/;

# Constructor. Just base this class on <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786139	786226	
==>ps\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed_int(interpreter, {{\@2}}, {{\@3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787050	787137	
==>ps\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed_int(interpreter, {{\@2}}, {{\@3}} <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	55900	56000	
==>s/\A\s*<token:(.*)>\Z/$1/s;

				my $types = eval 'no strict; local $SIG{__WARN__} = sub {0}; my @arr <==
2	/Users/nnunley/parrot/config/auto/gdbm.pm	2044	2232	
==>> $ccflags);
        $conf->data->set(linkflags => $linkflags);
        print " (no) " if $verbose;
        $self->set_result('no');
    }
    $conf->data->set(has_gdbm => $has_gdbm); # for <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	6767	6893	
==>me{ $cfg{method} }->();
            system(
                $ini->val($sect, 'exe') . " " . File::Spec->catdir( $cfg{bench_path <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	10814	10943	
==>gin:      15px; }
    dt    { font-weight: bold; }
    dd+dt { margin-top:  1em;  }
    .leftsep  { padding-left: 10px;  }
    .nu <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	402	610	
==>} ||= '$rx_input';
    $self->SUPER::init_context($ctx);
}

sub value {
    my $name = shift;
    return '$rx_pos' if $name eq '<pos>';
    return '$rx_tmp' if $name eq '<tmp>';
    return '$rx_tmp' if $name e <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	6256	6392	
==>ie "What source??";
    }
  }
  DEBUG and print "get_token about to return ",
   Pod::Simple::pretty( @{$self->{'token_buffer'}}
     ? $ <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	4122	4241	
==>f (\d+)(?: source)? lines executed in function (.*)/;
            if ($total_lines) {
                $function_line_cov <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	13162	13315	
==>sub _match_codeblock($$$$$$$)
{
	my ($textref, $pre, $ldel_outer, $rdel_outer, $ldel_inner, $rdel_inner, $rd) = @_;
	my $startpos = pos($$textref) = pos($ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	935754	936018	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "titlecase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936530	936794	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "titlecase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	423	566	
==>termining if your C compiler is actually gcc';

@args = qw(miniparrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $c <==
2	/Users/nnunley/parrot/config/gen/platform.pm	4149	4281	
==>t open begin.c: $!";
        print PLATFORM_C <<"END_HERE";
/*
** begin.c
*/
#line 1 "config/gen/platform/$platform/begin.c"
END_HERE <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	114	211	
==>ot::Test;

package Parrot::Test::Regex;

use strict;

use Data::Dumper;
use File::Basename;
use Fi <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3183	3332	
==>\t#ne \$I0, $vars, ERR_INPFIELDS\n";
	} else {
		push @{$code{$seg}->{code}}, "\tne \$I0, $vars, INPUT_$inputcounts  # Re-prompt\n";
	}

	$loop=0;
	ba <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22325	22426	
==>.($::RD_NO_TRACE?'':'

		Parse::RecDescent::_trace(q{Trying directive: ['
					. $self->describe . ']} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21608	21845	
==>t > 25; # sanity
    
    my $pattern = '';
    if( #$to_unget[-1]->type eq 'end'
        #and $to_unget[-1]->tagname eq 'Para'
        #and
        ($pattern = join('',
         map {;
            ($_->type eq 'start') ? ("<" . $_->tagna <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770413	770833	
==>RS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 870,
                  "ARGS" => [
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 350 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REG <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	9029	9144	
==>f\b/ and return "fast";
  return "default";
}

# Rate limiting
sub limit_rate {
  # Open the DB and lock it exclusiv <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	7185	7313	
==>0 = getinterp
    \$P0."recursion_limit"(998)
    .local pmc __name__
    __name__ = new $DEFVAR
    __name__ = '__main__'
    gl <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	14695	15124	
==>useful diagnostic messages,
could be written as:

  sub laconic_like {
      my ($self, $this, $regex, $name) = @_;
      my $usable_regex = $self->maybe_regex($regex);
      die "expecting regex, found '$regex'\n"
          unless $usable_regex;
      $self->ok($this =~ m/$usable_regex/, $name);
  }

=cut


sub maybe_regex {
    my ($self, $regex) = @_;
    my $usable_regex = undef;

    return $usable_regex unless defined $r <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6726	6952	
==>utput_label_use($failLabel);
    return ($self->dbprint("At end: %<rx_pos> >= %<rx_len>?\n"),
            "lt <rx_pos>, <rx_len>, $fail # at end?");
}

sub output_pushmark {
    my ($self) = @_;
    my @ops;
    if ($self->{DEB <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6370	6492	
==>utput_label_use($failLabel);
    return ($self->dbprint("At end: %<rx_pos> >= %<rx_len>?\n"),
            "goto $fail if <r <==
2	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	1663	1792	
==>e next line
name_len:           m/[0-9]+/
                  { $::name_len = $item[1] }

# We need the len of the macro substitutio <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906086	906370	
==>21,
                  "ARGS" => [
                              "s",
                              "p",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 262 \"src/ops/string.ops\"\n  {{\@1}} = {{\@2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78950	79042	
==>preter, ({{\@3}}));\n\n  void * const p = Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? NULL : PMC_data <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80471	80563	
==>preter, ({{\@3}}));\n\n  void * const p = Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? NULL : PMC_data <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4829	4934	
==>ift;

	my($rules,$states,$lex,$error)
     = @$self{ 'RULES', 'STATES', 'LEX', 'ERROR' };
	my($errstat <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4591	4692	
==>ift;

	my($rules,$states,$lex,$error)
     = @$self{ 'RULES', 'STATES', 'LEX', 'ERROR' };
	my($errstat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552517	552620	
==>src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n\n  object = {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556573	556676	
==>src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n\n  object = {{ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1381	1534	
==>:Increment;
use Jako::Construct::Statement::LoopControl;
use Jako::Construct::Statement::New;
use Jako::Construct::Statement::Return;


#
# new()
#

sub n <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	12781	13041	
==>s run_ops loop, no resume
        #
        #   restart OFFSET(X)  {{=0,+=X}}   PC' = 0       Restarts at PC + X
        #   restart NEXT()     {{=0,+=S}}   PC' = 0       Restarts at PC + S
        #
        #   $X                 {{@X}}   Argument X    $0 is o <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	1438	1567	
==>iable value into the op
    label         an in argument containing a branch offset or address
    labelconst    an invar argument <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	17149	17424	
==>t(.)! ? "-O$1" : "-O1";
            my $args = $ENV{TEST_PROG_ARGS} || '';
            $args .= " $opt --output=$out_f";
            $args =~ s/--run-exec//;

            write_code_to_file($code, $code_f);

            my $cmd = qq{$parrot $args "$code_f"};
            my $e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716364	716554	
==>s/python.ops\"\n  PMC * const p = {{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  STRING * const s = (VTABLE_get_string(interpreter, p));\n  if (s) {\n    if (PIO_softspace(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948358	948643	
==>,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949157	949442	
==>,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	797	906	
==>rot/OpTrans.pm', 'lib/Parrot/OpTrans'),
		),
		$self->new_group('PMCs', '',
			$self->new_item('', 'lib/Parrot <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24755	24856	
==>$bad, $ignore);

		return _fail(wantarray, $textref) unless @match;
		return _succeed wantarray, $text <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7589	7688	
==>$bad, $ignore);

	return _fail(wantarray, $textref) unless @match;
	return _succeed wantarray, $text <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	1483	1638	
==>r($srm, $metavars);

# Finally, we need to insert auto-magically instantiated local variables
# into the translator code.
$pir = insert_automagicals($pir, $ <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	6483	6649	
==>rans->goto_pop();       /me;

    s/{{\+=([^{]*?)}}/    $trans->goto_offset($1);  /me;
    s/{{-=([^{]*?)}}/     $trans->goto_offset(-$1); /me;
    s/{{=([^*][^{]*?)}} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	17210	17447	
==>]\n"),
                 @R_ops,
		 aop('pushint', [ $counter, "dynamic alt counter" ]),
		 aop('goto', [ $next ]),
	$fail => $self->dbprint("failed dynalt, advancing from dynalt[%<$counter>]/%<$N>\n"),
                 aop('add', [ $count <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	20040	20215	
==>thod
        if ($method->{mmd} =~ /MMD_/ && !$defaulted) {
            my ($func, $left, $right);
            $func = $method->{mmd};
            # dynamic PMCs need the runti <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3279	3423	
==>ock->find_symbol($name);

  my %props = $sym->props;

  if (exists $props{fn} or exists $props{fnlib}) {
    my $fnlib;

    if (exists $props{fn <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	6452	6627	
==>print SOURCE $trans->run_core_func_start;
}

#
# Iterate over the ops, appending HEADER and SOURCE fragments:
#

my @op_funcs;
my @op_func_table;
my @cg_jump_table;
my $index = <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	2897	3045	
==>rc/pmc/Makefile
    my $TEMP_pmc_build = <<"E_NOTE";

# the following part of the Makefile was built by 'config/inter/pmc.pm'

E_NOTE

    foreach my <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	2142	2310	
==>expected $expected, got $args).\n"
    if ($args != $expected);
}

sub _get_arg {
  my ($node, $num) = @_;
  $node->{children}->[$num];
}

sub _get_args {
  my ($node, $ <==
2	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	384	640	
==>_code = shift;
    my $opt = shift;
    $opt ||= '';
	
	# Write file.
	my $fh;
	open $fh, "> $file_name.cs" or die "$!\n";
	print $fh $cs_code;
	close $fh;
	
	# Attempt to compile.
	my $kind = $file_name =~ /\.dll$/ ? '-target:library' : '';
	my $output = ` <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1995	2204	
==>bove applies here.

=cut

sub p6rule_isnt {
    my ($target, $pattern) = (shift, shift);

    unshift @_ => 'failed';
    unshift @_ => ( ref $pattern
        ? Parrot::Test::PGE::_generate_subrule_pir($target, <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	5066	5330	
==>d");
        }
        else {
            $pre = $pst = $cmt = $sel = '';
            if( defined $refs{$name} ){
                $pre = "\\(";
                $pst = ")";
                $cmt = " # returns ref";
            }
            $out .= "  sub $name {$cmt <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	1041	1159	
==>rint   badargs($cmd, @args);
print    footer();

sub open_tmt {
    my ($filename) = @_;

    local $/ = undef;
    ope <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1784	1903	
==>ends) returns Bool is export {
    my $test := $got ~~ $expected;
    Test::proclaim($test, $desc, $todo, $got, $expecte <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	718	936	
==>,
  ['',             'save', 'P6'],
  ['',             'save', 'P1'],
  ['',             '.include', '"interpinfo.pasm"'],
  ['',             'interpinfo', 'P0', '.INTERPINFO_CURRENT_SUB'],
  ['',             'invokecc' <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	9112	9280	
==>overage Summary");
    print OUT qq(
            <i>You may click on a percentage to see line-by-line detail</i>
    );

    foreach my $source_file (sort keys %file_lin <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	7549	7677	
==>overage Summary");
    print OUT qq(
            <i>You may click on a percentage to see line-by-line detail</i>
            <tab <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	2502	2637	
==>p_code\n";
	$offset  += sizeof('op');
	push @pc_list, $pc;
	$opcodes{$pc}->{op} = $op;
        $new_pc   = $pc + $op->size;

        @ar <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	99628	99863	
==>se_not(interpreter, {{\@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33678	33813	
==>Para content into $over_type item\n";
              push @$para, splice @{shift @$paras},2;
            } else {
              DEBUG and <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35491	35626	
==>Para content into $over_type item\n";
              push @$para, splice @{shift @$paras},2;
            } else {
              DEBUG and <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21767	21914	
==>ctioncall' => 31,
			'explist1' => 121,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#Stat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242077	242209	
==>ber(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243026	243158	
==>ber(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	345	452	
==>o;

use Carp;

use base qw(Jako::Construct::Statement);

my %block_types = (
  'while'    => { PREFIX => "_W <==
2	/Users/nnunley/parrot/config/gen/config_h.pm	230	314	
==>arrot/config.h> with platform-specific configuration
values, F<include/parrot/has_hea <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	424	566	
==>en to the standard\n",
        "output.\n\n";
    exit;
}

$parrot =~ s/\/$//;

my @imcc_oplike = qw(.sym .arg prototyped non_prototyped .class <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	78433	78567	
==>rortext = "Treating \"$what\" as $_[0]";
	$errorprefix = "Parse::RecDescent";
	$errortext =~ s/\s+/ /g;
	write ERROR;
}

sub _linecount <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Examples.pm	794	990	
==>$self->new_group('PIR',                  '', 'examples/pir'),
            $self->new_group('Subroutines',          '', 'examples/subs'),
            $self->new_group('IO',                   '', 'ex <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	46633	46749	
==>atim_format killed the terminal newline on #$i: {$p->[$i]}, after {$p->[$i-1]}\n";
      } else {
        DEBUG > 5 a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627384	627477	
==>init method\n   * copies the registers. */\n  {{\@1}} = pmc_new_noinit(interpreter, {{\@2}});\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628528	628621	
==>init method\n   * copies the registers. */\n  {{\@1}} = pmc_new_noinit(interpreter, {{\@2}});\ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	959	1129	
==>y $level = shift;
      (undef) = shift;                  # redundant arg
      my $callpkg = caller($level);
      $pkg->export($callpkg, @_);
}


=head1 NAME

Test::More <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	4162	4327	
==>t="#stay">
          <LineContinue attribute="Comment" context="#stay" />
          <RegExpr attribute="Comment" context="#stay" String="[^\=]*" />
          <RegExpr <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16713	16822	
==>ethod (@{ $self->{methods}} ) {
        next unless $method->{loc} eq 'nci';
        my $ret = $self->body($me <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5898	6030	
==>$value # open group $group!;
}

sub output_setend {
    my ($self, $group, $value, $adj) = @_;
    $value = value($value);
    my @op <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	2719	2857	
==>st if output matches the expected
result.

=item C<past_output_isnt($code, $unexpected, $description)>

Runs the PAST code and passes the t <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	1547	1682	
==>f_type($type, 1, $ignore);
        }
    }
    
    return @files;
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::Docs::File>

=bac <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100130	1100310	
==>c",
                              "i"
                            ],
                  "BODY" => "#line 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL re <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3988	4107	
==>ndatory) {
			exists($$outhash{$_})
		or	croak("Missing mandatory parameter '".lc($_)."'");
	}
}

sub _Error {
	p <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3787	3899	
==>ndatory) {
			exists($$outhash{$_})
		or	croak("Missing mandatory parameter '".lc($_)."'");
	}
}

sub _Error {
	p <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	13060	13284	
==>anslation\n\n";

    # Emit first bit of PIR to loop over instructions. Each translation 
    # routine will jump back to TRANS_LOOP after translating the instruction.
    $pir .= <<'PIRCODE';
    # If we have exception handl <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	51793	51952	
==>x sequence\n";
    $self->whine($start_line,
      "Unterminated $x sequence",
    );
  }
  
  return $treelet;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	950	1055	
==>ead2 Op Arguments

Note that argument 0 is considered to be the op itself, with arguments
1..9 being the a <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	1411	1506	
==>s_cg.c : $(OPS_FILES) $(BUILD_TOOLS_DIR)/ops2c.pl lib/Parrot/OpsFile.pm lib/Parrot/Op.pm lib/Par <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	10261	10367	
==>".param $type $reg";
}


sub output_return {
    my ($self, $rettype, $retval) = @_;
    $retval = value($r <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	9416	9540	
==>";
    $out .= " $self->{Curr_Test}" if $self->use_numbers;

    if( defined $name ) {
        $name =~ s|#|\\#|g;     # # in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209981	210289	
==>,
                  "CODE" => 247,
                  "ARGS" => [
                              "p",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 408 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}} <==
2	/Users/nnunley/parrot/config/gen/config_pm.pm	1963	2196	
==>)/\\$1/g;
                    $v =~ s/\n/\\n/g;
                    print OUT qq(\tset P0["$k"], "$v"\n);
                } else {
                    print OUT qq(\tset P0["$k"], P1\n);
                }
            }
        } elsif <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572905	573006	
==>line 242 \"src/ops/object.ops\"\n  PMC *name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573815	573916	
==>line 242 \"src/ops/object.ops\"\n  PMC *name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	710	833	
==>ION

This module contains configuration data for use by the other
L<Parrot::Configure::*> modules.

=head1 USAGE

=head2 Imp <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	5601	5744	
==>calar_ref'} } =~
        m/([^\n\r]*)((?:\r?\n)?)/g
      ) {
        #print(">> $1\n"),
        $self->SUPER::parse_lines($1)
         if lengt <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	25248	25452	
==>npmc eq $classname;
        $cout .= <<"EOC";
        int my_enum_class_$dynpmc = pmc_type(interp, string_from_const_cstring(interp, "$dynpmc", 0));
EOC
    }
    # init MMD "right" slots with the dynpmc t <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16879	17011	
==>3)->is_infix_concat
      and $self->get(4)->is_value
    ) {
      my $block = $self->current_block();
      my $ident = Jako::Const <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	14985	15228	
==>ack;
    my ($t, $n);
    {
	my $nl = promote($l);
	$n = temp($t = 'P');
	my $nr = $r->[1];
	$nr = promote($r) if $r->[2] eq 'S';
	print <<"EOC";
	$n = new $DEFVAR $cmt
	$n = $nl $op $nr
EOC
    }
    push @stack, [-1, $n, $t];
}

sub binary_wo <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	15302	15455	
==>ack;
    my ($t, $n);
    {
	my $nl = promote($l);
	$n = temp($t = 'P');
	my $nr = $r->[1];
#	$nr = promote($r) if $r->[2] eq 'S';
	$nr = promote($r);
	pr <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	2508	2611	
==>ean values indicating
whether each argument direction was prefixed by 'C<label>'.

C<$flags> is one or m <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	16975	17122	
==>,
			"+" => 24,
			'CODE' => 6,
			"(" => 10,
			"|" => 26,
			"*" => 27,
			"[" => 14,
			")" => 65,
			"." => 15
		},
		GOTOS => {
			'expr' => 28 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	11367	11478	
==>shift;
    my ($min, $max, $greedy, $R) = @{ $op->{args} };
    my $base = $R->render();
    $base = "(?:$base)" <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	11456	11601	
==>to " . $self->output_label_use($L_trymatch) . "} else { goto " . $self->output_label_use($L_backup) . "};";

    return @ops;
}

sub output_rule_e <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	78418	78513	
==>("TRACE");
	$errortext = "Treating \"$what\" as $_[0]";
	$errorprefix = "Parse::RecDescent";
	$e <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	2303	2425	
==>onf->data->set('linkflags', $linkflags);
        print " (no) " if $verbose;
        $self->set_result('no');
    }

    re <==
2	/Users/nnunley/parrot/config/auto/readline.pm	2103	2225	
==>onf->data->set('linkflags', $linkflags);
        print " (no) " if $verbose;
        $self->set_result('no');
    }

    re <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	2008	2157	
==>b/core_ops_cg.h $(OPS_DIR)/core_ops_cg.c \
                    $(INC_DIR)/oplib/core_ops_cgp.h $(OPS_DIR)/core_ops_cgp.c',
            cg_flag => '-DH <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	11043	11214	
==>q(print "INPUT:\$rx_input\\n";);
        push @ops, qq(print "      " . (" " x \$rx_pos) . "^\\n";);
    }

    push @ops, "my \$dbg_tmp;\n" if $self->{DEBUG};

    push @o <==
2	/Users/nnunley/parrot/examples/benchmarks/oo5.pl	287	401	
==>= shift } else { $self->[0] }
}

sub j {
    my $self = shift;
    if (@_) { $self->[1] = shift } else { $self->[1] <==
2	/Users/nnunley/parrot/examples/benchmarks/oo6.pl	279	393	
==>= shift } else { $self->[0] }
}

sub j {
    my $self = shift;
    if (@_) { $self->[1] = shift } else { $self->[1] <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3694	3787	
==>ll also search (recursively) parent blocks'
symbol tables.

TODO: We should generate real comp <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2533	2620	
==>s/mops/mops.ps>,
F<examples/mops/mops.py>,
F<examples/mops/mops.rb>,
F<examples/mops/mop <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	2533	2620	
==>s/mops/mops.ps>,
F<examples/mops/mops.py>,
F<examples/mops/mops.rb>,
F<examples/mops/mop <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28682	28787	
==>head"} ? '$text = $_savetext;' : '' ) .'
';

	return $code;
}

1;

package Parse::RecDescent::Literal;

su <==
2	/Users/nnunley/parrot/languages/urm/urm-old.pl	1016	1162	
==>g (sort keys %register) {
	print ", " . $register{$reg} ;
    }
    print ") \t$line\n";
    if ($line =~ /if *(r\d) *= *(\d) *goto *(\d+)/) {
	$re <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	1013	1124	
==>>get('link');
        cc_gen("config/auto/gcc/test_c.in");

        # Can't call cc_build since we haven't set a <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36161	36316	
==>e 139
		ACTIONS => {
			"-" => 72,
			"<" => 74,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			"<=" => 85,
			">" => 86,
			".." => <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	16684	16783	
==>load = $srm->post_load(0);
	$pir .= "### post_load (typed eh)\n";
	$pir .= sub_meta($post_load, { %$ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1687	1835	
==>mple::SimpleTree -- parse Pod into a simple parse tree 

=head1 SYNOPSIS

  % cat ptest.pod
  
  =head1 PIE
  
  I like B<pie>!
  
  % perl -MPod::Si <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	1100	1328	
==>MES


sub import	# IMPLEMENT PRECOMPILER BEHAVIOUR UNDER:
		#    perl -MParse::RecDescent - <grammarfile> <classname>
{
	local *_die = sub { print @_, "\n"; exit };

	my ($package, $file, $line) = caller;
	if (substr($file,0,1) e <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2679	2791	
==>ndler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
  }

  $hand <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2556	2668	
==>ndler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
  }

  $hand <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20256	20386	
==>dent> = ... = <value>;
    #   <ident> = new <ident>;
    #
 
    if ($token->is_ident and $self->get(1)->is_assign) {
      my $bl <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	11156	11320	
==>o .ldo .out), $conf->data->get(qw( o exe ));
}

=item C<capture_output($command)>

Executes the given command. The command's output (both stdout and stderr), and
its <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5712	5847	
==>G>		$debug & 0x08
#DBG>	and	print STDERR "Stack:[".
#DBG>					 join(',',map { $$_[0] } @$stack).
#DBG>					 "]\n";


        if  ( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5439	5568	
==>G>		$debug & 0x08
#DBG>	and	print STDERR "Stack:[".
#DBG>					 join(',',map { $$_[0] } @$stack).
#DBG>					 "]\n";


        if  ( <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	11094	11215	
==>color: #050; }
    .tests_failed   { color: #500; }
    .tests_todo     { color: #030; }
    .tests_skipped  { color: #555 <==
2	/Users/nnunley/parrot/lib/Test/More.pm	20702	20801	
==>l default to 1.

It's perfectly safe to nest SKIP blocks.  Each SKIP block must have
the label C<SKI <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1071	1176	
==>rot = Parrot::Test::path_to_parrot();
        my $dir_count      = scalar(File::Spec->splitdir($path_to_pa <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1561	1661	
==>rot = Parrot::Test::path_to_parrot();
        my $dir_count = scalar(File::Spec->splitdir($path_to_pa <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	5091	5239	
==>guments!" if @_;

  my $block = $self; # Start collecting symbols here

  my %table = ();

  my $level = 0;

  while ($block) {
    foreach my $symbo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	310232	310360	
==>cur_opcode = (opcode_t *)cur_opcode + 1;\n        PDB_set_break(interpreter,NULL);\n        while (!(interpreter->pdb->state & PD <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	308	510	
==>' . $parser->YYData->{idx_lbl}++;
    return new defn( $idf, 'label' );
}

sub new_fct {
    my ($parser) = @_;
    my $idf = 'fct_' . $parser->YYData->{idx_fct}++;
    return new defn( $idf, 'fct <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	22255	22451	
==>_isnt => 'isnt_eq',
         c_output_like => 'like'
                     );

    foreach my $func ( keys %c_test_map ) {
        push @EXPORT, $func;
        no strict 'refs';

        *{$package. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134187	134654	
==>s",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 165,
                  "ARGS" => [
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 321 \"src/ops/bit.ops\"\n  string_bitwise <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17191	17315	
==>graph, given the stack: (",
      $self->_dump_curr_open(), ")\n";
    
    if($para_type eq '=for') { #///////////////////// <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	4058	4194	
==>rave'   , 204,
 'Iacute'   , 205,
 'Icirc'    , 206,
 'Iuml'     , 207,
 'ETH'      , 208,
 'Ntilde'   , 209,
 'Ograve'   , 210,
 'Oacute <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	1042	1145	
==>ngs total obliteration. I will face my fear. I will permit
	#  it to pass over me and through me. And wh <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	5314	5520	
==>Body Substitutions

The vtable method bodies can use the following substitutions:

=over 4

=item C<SELF>

Converted to the current PMC object of type C<PMC *>.

=item C<INTERP>

Converted to the interpreter <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3155	3264	
==>e.
        $conf->data->set(link => $conf->data->get('ld'));

        # We can't use -opt: and -debug together <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4659	4768	
==>e.
        $conf->data->set(link => $conf->data->get('ld'));

        # We can't use -opt: and -debug together <==
2	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1344	1456	
==>code);

package KeyedGetOp;
use base qw(Lua::opcode);

package KeyedSetOp;
use base qw(Lua::opcode);

pac <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349200	349307	
==>preter, NULL, path, \"+<\");\n  /* string_cstring_free(path); */\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350202	350309	
==>preter, NULL, path, \"+<\");\n  /* string_cstring_free(path); */\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(in <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65386	65484	
==>ATLEAST/gco)
				{
					_parse("a $1-or-more subrule match", $aftererror,$line,"$code$argcode($1..) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16588	16703	
==>_ == 1) ? $_[0] : join '', @_)
    ) =~ s/([F\x00-\x1F\\\{\}\x7F-\xFF])/$Escape{$1}/g;  # ESCAPER
             # Esc <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	1055	1159	
==>rn $self->c_item(shift, 'pairs' => [@_]);
}

=item C<c_item($text, %contents)>

Returns a new C source an <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349136	349224	
==>_to_cstring(interpreter, {{\@2}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, \"+<\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350138	350226	
==>_to_cstring(interpreter, {{\@2}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, \"+<\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	17745	17857	
==>roof ",  # \\cf1
  "\cc" => "}",
);
1;

__END__

=head1 NAME

Pod::Simple::RTF -- format Pod as RTF

=head1 SYNOP <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	2843	2966	
==>}
		emit("BARE");
		until($cur eq "\n" and $next eq "_" and $afternext =~ /\w/) {
			append;
			fetch;
		}
		append;
		fetch <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1196	1305	
==>X1$MSK;",
  my %f = (
	FF => "X0=rotate_left((X3^(X1&(X2^X3)))+X0+X4+X6$MSK,X5)+X1$MSK;",
	GG => "X0=rotate_le <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1068	1172	
==>mit initial code.
	my $pir = <<'PIR';
# Get current stack types array size.
${ITEMP0} = elements ${STYPES <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2778	2882	
==>mit initial code.
	my $pir = <<'PIR';
# Get current stack types array size.
${ITEMP0} = elements ${STYPES <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1586	1726	
==>handle_element_end {
  DEBUG and print "-- $_[1]\n";
  print {$_[0]{'output_fh'}}
   '  ' x --$_[0]{'indent'}, "--", $_[1], "\n";
  return;
} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1516	1627	
==>handle_element_end {
  DEBUG and print "-- $_[1]\n";
  print {$_[0]{'output_fh'}}
   '  ' x --$_[0]{'indent'}, " <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	50410	50531	
==>gco)
			{
				_parse("an perl variable marker", $aftererror,$line);
				$item = new Parse::RecDescent::Directive(
					'Te <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	6854	6968	
==>egers are different.
    my %start;
    foreach my $subop (@{ $op->{args} }) {
        my @subop_startset = $subop- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62763	63052	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorsoff",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63408	63697	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorsoff",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3304	3435	
==>g') =~ /-debug/) {
            my $linkflags = $conf->data->get('linkflags');
            $linkflags =~ s/-opt:\S+//;
            $c <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4808	4939	
==>g') =~ /-debug/) {
            my $linkflags = $conf->data->get('linkflags');
            $linkflags =~ s/-opt:\S+//;
            $c <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6992	7162	
==>e eof
				and	$$token=$$value=undef;
                next;
            };

            #reduce
            my($lhs,$len,$code,@sempar,$semval);
            ($lhs,$l <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6667	6830	
==>e eof
				and	$$token=$$value=undef;
                next;
            };

            #reduce
            my($lhs,$len,$code,@sempar,$semval);
            ($lhs,$l <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	378	512	
==>t_is() {
    my ($self, $code, $output, $desc) = @_;
  
    my $count = $self->{builder}->current_test + 1;

    my $lang_f    = Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	416	550	
==>t_is() {
    my ($self, $code, $output, $desc) = @_;
  
    my $count = $self->{builder}->current_test + 1;

    my $lang_f    = Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	4289	4452	
==>{commentType}) {
        my @comment = (
            "DO NOT EDIT THIS FILE",
            "Generated by " . __PACKAGE__ . " from $source"
        );

        if ($o <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	12312	12416	
==>DEBUG > 2 and print "Ogling encoding directive: =encoding $content\n";
  
  if($content eq 'ALREADYDONE') <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	32480	32789	
==>';  # just make it a text node
        next;  # and move on
      }
     
      # Catch URLs:
      # URLs can, alas, contain E<...> sequences, so we can't /assume/
      #  that this is one text node.  But it has to START with one text
      #  node...
      if(! ref $treelet->[$i][2] and
        $treelet->[ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	5414	5623	
==>r feature_h.in 
            local *OUT = $out;
            my $text = do {local $/; <$in>};
            # interoplate @foo@ values
            $text =~ s{ \@ (\w+) \@ }{\$conf->data->get("$1")}gx;
            e <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	6907	7097	
==>hat file cannot be found.

=cut

sub find_file {
    my ($include, $file, $die_unless_found) = @_;

    if (File::Spec->file_name_is_absolute($file) && -e $file) {
        return $file;
    } <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	6737	6894	
==>ectives : ",
   pretty($this->{'accept_directives'}), "\n";
  
  return sort keys %{ $this->{'accept_directives'} } if wantarray;
  return;
}

#-------------- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9526	9645	
==>>is_until or $token->is_while) {
      my $block = $self->current_block();
      my $kind = $token->text;

      my $pre <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	32707	32855	
==>,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			'DO <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44877	45025	
==>,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			'DO <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	11760	11914	
==>nless iter1 goto outer_done
    $P1 = shift iter1
 
    iter2 = new .Iterator, op2
inner_loop:
    unless iter2 goto inner_done
    $P2 = shift iter2
    i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615067	615377	
==>bject\");\n    }\n    {{\@1}} = offset;\n    {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616218	616528	
==>bject\");\n    }\n    {{\@1}} = offset;\n    {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "P <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	16973	17110	
==>interpreter, known_frames, const_cast("$key"), $value );|;
}


sub print_tail {
    my ($put_pointer_ref) = @_;

    my $put_pointer = joi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	905	1015	
==>m/^~/s) {
        next if $key eq 'start_line' and $_[0]{'hide_line_numbers'};
        _xml_escape($value = $_[ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	724	830	
==>m/^~/s) {
      next if $key eq 'start_line' and $_[0]{'hide_line_numbers'};
      _xml_escape($value = $_[ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	14955	15073	
==>to write your own diagnostic
messages which are safer than just C<print STDERR>.

=over 4

=item B<diag>

  diag(@diagn <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19674	19779	
==>rn op('multi_match' => [ 0, -1, TRUE, $_[1] ]); }
	],
	[#Rule 14
		 'expr', 3,
sub
#line 119 "lib/Regex/Gr <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2524	2640	
==>pe '$type' for num '$num' in opcode @{[$op->full_name]}"
        unless exists $arg_maps{$type};

    return sprintf( <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4390	4506	
==>pe '$type' for num '$num' in opcode @{[$op->full_name]}"
        unless exists $arg_maps{$type};

    return sprintf( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	624990	625129	
==>results */\n    pc = ctx->current_results;\n    if (pc) {\n        pred_pc = (void**) pc - ctx->pred_offset;\n        sig = (PMC*)(pred_pc[1 <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38470	38575	
==>f->decl($self->{class}, $method, 0);
    my $parameters = $method->{parameters};
    my $n=0;
    my @args <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	18059	18328	
==>pos = pos($$textref);
		my $label;
		if ($$textref =~ m{\G([A-Za-z_]\w*)}gc) {
			$label = $1;
		}
		elsif ($$textref =~ m{ \G ' ([^'\\]* (?:\\.[^'\\]*)*) '
				     | \G " ([^"\\]* (?:\\.[^"\\]*)*) "
				     | \G ` ([^`\\]* (?:\\.[^`\\]*)*) `
				     }gcsx) {
			$lab <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	3070	3190	
==>_SINGLETON = 0x10,
    VTABLE_IS_SHARED_FLAG   = 0x20,
    VTABLE_IS_CONST_PMC_FLAG = 0x40
} vtable_flags_t;

struct _vta <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	7737	7909	
==>op_funcs, $one_op;
    $index++;
}

if ($suffix =~ /cg/) {
    print SOURCE @cg_jump_table;
    print SOURCE <<END_C;
        NULL
    };
END_C
    print SOURCE $trans->run_ <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	1880	1985	
==>r C</pmclass \w*/> which attempts to find the
class being declared.

Once the class is found, all of its s <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	4510	4669	
==>less $index_html;
    
    if ( ! $self->{TEXT} and @short_desc )
    {
        my $short_desc = join '. ', @short_desc;
        
        $short_desc .= '.' unl <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	12853	13014	
==>, int full) {
    HOP * p;
    const size_t hidx = hash_str(name) % OP_HASH_SIZE;
    if (!hop) {
        hop = mem_sys_allocate_zeroed(OP_HASH_SIZE * sizeof(HOP* <==
2	/Users/nnunley/parrot/tools/docs/pod_errors.pl	333	500	
==>POD errors found in the files.

=cut

use lib 'lib';
use Parrot::Docs::Directory;

my $dir = Parrot::Docs::Directory->new(shift || '.');
my $ignore = shift || '^(icu)$' <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4746	4894	
==>ls()

FOR DEBUGGING ONLY.

Dumps the complete list of symbols visible from this block, including those
from the symbol tables of parent blocks.

=cut <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10891	11016	
==>ode,2));
  if ($temp !~ /^P/) {
    my $pmc = $self->_save_1 ('P');
    $self->_morph ($pmc, $temp);
    $self->_restore ($tem <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934061	934268	
==>g.ops\"\n  {{\@1}} = string_downcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934836	935043	
==>g.ops\"\n  {{\@1}} = string_downcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	679	774	
==>") is not!"  unless UNIVERSAL::isa($type, qw(Jako::Construct::Type));
  confess "Identifier (" . <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	669	762	
==>") is not!" unless UNIVERSAL::isa($type, qw(Jako::Construct::Type));
  confess "Identifier (". <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55949	56305	
==>FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 72,
                  "ARGS" => [
                              "p",
                              "i"
                            ], <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676063	676286	
==>ift_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676843	677066	
==>ift_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	6233	6513	
==>renced_in{$symbol}}, $obj;
            } else {
                $defined_in{$symbol} .= "$obj ";
            }
        }
        
        close(F);
    }

    # omit symbols which begin with _.  These are likely to be internal
    # variables used by libc macros.
    my @symbols = <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16792	16924	
==>DEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
        # Leave out "- so that "--" won't make it thru in X-generated comm <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10236	10364	
==>DEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
    # Leave out "- so that "--" won't make it thru in X-generated comm <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18699	18848	
==>,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			'THE <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	42097	42246	
==>,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			'THE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38481	38743	
==>_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39345	39607	
==>_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11724	11851	
==>(sub { /^call/ } );

    print OUT "</pre>";
    print OUT page_footer();

    close(OUT);
    close(IN);


    $outfile = "$out <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	2710	2835	
==>'
.namespace [ 'builtins' ]
        
.sub '$cmd'
  .param int register
  .param pmc argv

  .local pmc compiler
  .get_from_HL <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	1841	1941	
==>n::Parrot');
}

=item C<html_link($path)>

Returns the HTML link for the section.

=cut

sub html_lin <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9285	9408	
==>ng

#DBG>			$debug & 0x10
#DBG>		and	do {
#DBG>			print STDERR "**Entering Error recovery.\n";
#DBG>			++$dbgerror;
#D <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8869	8986	
==>ng

#DBG>			$debug & 0x10
#DBG>		and	do {
#DBG>			print STDERR "**Entering Error recovery.\n";
#DBG>			++$dbgerror;
#D <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5880	6075	
==>tack->{$elsetag}})) {
				push @{$code{$seg}->{code}}, "ELSEBRANCH_$_:\n";
			}
			feedme;
			$elsetag--;
			goto PARSE;
		}
		if ($syms[NEXT] eq "select") {
			my $s=pop @selects;
			feedme;
			p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060243	1060525	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_name",
                  "FLAGS" = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	5954	6111	
==>ft->require('open-brace');    }
sub require_open_bracket  { return shift->require('open-bracket');  }
sub require_open_paren    { return shift->require('open- <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	1008	1124	
==>t of setting
    # content_seen.
    $self->get_short_title();
    
    return unless $self->content_seen;

    # Sup <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4119	4254	
==>n the directory.

=cut

sub directory_paths
{
    my $self = shift;

    return sort grep {-d} $self->file_and_directory_paths;
}

=item <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79125	79225	
==>har * const err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80646	80746	
==>har * const err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_FLAG,\n\t \ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7973	8066	
==>${PARAMS}[${ITEMP0}] = ${STEMP0}

# Next parameter.
dec stack_depth
goto pre_call_PLOOP_${CURI <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9244	9348	
==>n_tag_comment {
  my $self = shift;
  return sprintf
   "<!-- generated by %s v%s, using %s v%s, under Pe <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5058	5193	
==>n 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3121	3256	
==>n 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1097305	1097429	
==>{\@1}} = key_tail = key_new_string(interpreter, tmp);\n        max = VTABLE_elements(interpreter, ns);\n        for (i = 2; i <==
2	/Users/nnunley/parrot/config/auto/msvc.pm	563	727	
==>t, shift);

    my $verbose = $conf->options->get('verbose');

    cc_gen("config/auto/msvc/test_c.in");
    cc_build();
    my %msvc = eval cc_run() or die "Can't r <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	14346	14450	
==>/
  $op_func,		/* op_func_table */
  $getop		/* op_code() */
};

END_C

# generate initfunc
my $init1_cod <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403788	404151	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sockaddr",
                  "FLAGS" => ":b <==
2	/Users/nnunley/parrot/languages/APL/t/APL.pm	1140	1324	
==>lse {
        $output = "0\n"; # XXX MAJOR hack - Test::Base is borkedly converting the 0 into the empty string. Why?
      }
    }
    else {
      $output = "\n"; # this lets todo tes <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	38526	38698	
==>&_op_procedure_p,
  'apply'                           => \&_op_apply,
  'map'                             => \&_op_map,
  'for-each'                        => \&_op_for_each <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	14614	14732	
==>push_eh LAB"
    handler_offset = eh.get_handler_offset()
    tmp = handler_offset
    gen_pir = concat tmp
    gen_pir <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	5991	6090	
==>mbers are relative to the first one. (lower is better)\n";
}
print "\n";

open (COPYOUT, ">&STDOUT") <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2841	3001	
==>[^}]+) \}          # test description
             \s+ (?:\S+ \s+)? \{ \n     # optional test harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # t <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4238	4398	
==>[^}]+) \}          # test description
             \s+ (?:\S+ \s+)? \{ \n     # optional test harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # t <==
2	/Users/nnunley/parrot/config/init/defaults.pm	3741	3867	
==>_exe_out => '-o ',

        # prefix for ldflags (necessary for Win32)
        cc_ldflags => '',

        # ld output file.  Ke <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019824	1019915	
==>e_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_localtime_r(&t, &tm);\n  Parrot_asctime_r( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020755	1020846	
==>e_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_localtime_r(&t, &tm);\n  Parrot_asctime_r( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	1517	1670	
==>ee::rule::ISA         = qw(Regex::Ops::Tree::_onearg);
@Regex::Ops::Tree::scan::ISA         = qw(Regex::Ops::Tree::_onearg);
@Regex::Ops::Tree::atend::ISA <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34173	34368	
==>is of type ", $para->[0], " under $over_type\n";
          
          if($item_type eq 'bullet') {
            # as expected!

            if( $para->[1]{'~_freaky_para_hack'} ) {
              DE <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33830	33935	
==>->{"subrule"} . ']},
				  Parse::RecDescent::_tracefirst($text),
				  q{' . $rule->{"name"} . '})
					i <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	22852	22992	
==>ction{dump},
        "c|gen-c"       => \$action{gen_c},
        "tree"          => \$action{tree},

        "no-body"       => \$opt{nobody} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	4650	4814	
==>if $code_handler;
        # Note: this may cause code to be processed out of order relative
        #  to pods, but in order relative to cuts.
        
        # Not <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1813	1917	
==>e of "L" start-element events.  Most applications
can just use the normal stringification of objects of t <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6044	6214	
==>$s=pop @selects;
			feedme;
			print CODE "CASE_$s->{jump}_$s->{incase}:\n";
			print CODE "CASE_$s->{jump}_FIN:\n";
			goto PARSE;
		}
		push @{$code{$seg}->{code}}, "\t_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021656	1021773	
==>m tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_gmtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022498	1022615	
==>m tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_gmtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	12571	12828	
==>PC'} = 'pc';
	$mv->{'NEXTPC'} = 'next_pc';
	$mv->{'PTYPES'} = 'ptypes';
	$mv->{'LTYPES'} = 'ltypes';
	$mv->{'STYPES'} = 'stypes';
	$mv->{'DTYPES'} = 'dtypes';
	$mv->{'LOADTYPE'} = 'loadtype';
    $mv->{'RETTYPE'} = 'rettype';
    $mv->{'LABELNUM'} = 'label_n <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	426	530	
==>t_translation {
	die "post_translation not implemented for current stack to register mapper\n";
}

# Extr <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	11780	11924	
==>rr = _slurp('./test.err');

    # cleanup
    unlink "test.err";

    return ($output, $out_err, $retval) if wantarray;
    return $output;
}

=i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426189	426444	
==>h_v_pi(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427076	427331	
==>h_v_pi(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	1856	1981	
==>t2_t => 'short');
    } else {
        $conf->data->set(int2_t => 'int');
        print <<'END';

Can't find a int type with s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684593	684703	
==>],
                  "BODY" => "#line 550 \"src/ops/pmc.ops\"\n      {{\@1}}->vtable->setprop(interpreter, {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685488	685598	
==>],
                  "BODY" => "#line 550 \"src/ops/pmc.ops\"\n      {{\@1}}->vtable->setprop(interpreter, {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9913	10020	
==>to
F<test.out>.

=cut

sub cc_run
{
    my $exe   = $conf->data->get('exe');
    my $slash = $conf->data->ge <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	25	211	
==>his is BAD PERL later to be translated to PASM
# First tokenize the input stream into:
#          @tokens and @tokdsc
# Then compile.
use strict;
use Getopt::Std;
use vars qw( @tokens @to <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	19346	19460	
==>gen_c( [$dir1, $dir2], $file1, $file2, ... )

Generate the C source code file for each of the files passed in,
usin <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	405	535	
==>@tokens;
        $type="" unless defined $type;
         $sym="" unless defined $sym;
        unshift(@type, $type);
        unshif <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	1124	1244	
==>, 'lib/Parrot/Docs/Item.pm'),
            $self->new_item('', 'lib/Parrot/Docs/Group.pm'),
            $self->new_item('' <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	5868	6057	
==>wlines, so *this* line is (number of newlines plus one).
    # But that's the number for *this* line (the #line directive) and we're
    # about to set the number for the next line. So + 1 a <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	4437	4545	
==>e } });
  $_->sax($handler) foreach $self->args;
  $handler->end_element({ Name => 'call' });

  $handler->en <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4535	4660	
==>$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note that for loading debugging versi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4310	4426	
==>$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note that for loading debugging versi <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	3138	3375	
==>val = $values{$2};
                    } else {
                        $_        = "$prefix$1\t$2";
                        $last_val = $2;
                    }
                    $values{$1} = $2;
                    eval $subst if ($ <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1239	1358	
==>ata->{nb_info} = 1;
    }

    print STDOUT 'lua: ', $parser->YYData->{srcname}, ':',
        $parser->YYData->{line <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426580	427056	
==>re",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 490,
                  "ARGS" => [
                              "ic",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 64 \"src/ops/math.o <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2618	2720	
==>ond) {
    $handler->start_element({ Name => 'cond', Attributes => { kind => $cond } });
    $handler-> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3382	3484	
==>ond) {
    $handler->start_element({ Name => 'cond', Attributes => { kind => $cond } });
    $handler-> <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	2411	2538	
==>ail!

END
    }

    if ($results{floatsize} == 4) {
        $conf->data->set(float4_t => 'float');
    } else {
        $conf-> <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3309	3428	
==>=$_[0];
    ${$$self{VALUE}};
}

sub YYExpect {
    my($self)=shift;

    keys %{$self->{STATES}[$self->{STACK}[- <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3144	3256	
==>=$_[0];
    ${$$self{VALUE}};
}

sub YYExpect {
    my($self)=shift;

    keys %{$self->{STATES}[$self->{STACK}[- <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39362	39490	
==>ult' => $result,
    );
    push @opcodes1, new ConstDir( $parser,
        'result' => $fct,
        'arg1'   => $fct->{symbo <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	78101	78202	
==>$_[0] ($what) after an unconditional <error>",$_[2])
		and
		_hint("An unconditional <error> always ca <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210213	210307	
==>ine 408 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get_stri <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211193	211287	
==>ine 408 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get_stri <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	1692	1839	
==>pos > $count; # Just past the end (in case we get more tokens)

    $self->{POS} = $pos;

    $self->file($self->at($pos)->file);
    $self->line($s <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	10199	10298	
==>' ', map { $_->[0] } @expr);
	return(@expr);
}
sub pushthing {
	my($code, $optype, $sym, $type, $old <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4005	4100	
==>unless defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "No symbo <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6173	6268	
==>unless defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "No symbo <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11063	11166	
==>ype, @$item);
		push @args, [ $a1, @$item ];
	}
	#foreach(@args) {
		#push @$code, qq{\t.arg $_->[0]\t\t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060147	1060377	
==>}};\n    {{\@1}} = Parrot_get_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061052	1061282	
==>}};\n    {{\@1}} = Parrot_get_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3607	3720	
==>name, join(", ", %props));

    $name =~ s/::/__/g;

    if (exists $props{fn} or exists $props{fnlib}) {
      $n <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	3042	3155	
==>name, join(", ", %props));

    $name =~ s/::/__/g;

    if (exists $props{fn} or exists $props{fnlib}) {
      $n <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2823	2932	
==>e_directories)
    {
        return $dir->file_with_name($name)
            if $dir->file_exists_with_name($na <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	3731	3840	
==>e_directories)
    {
        return $dir->file_with_name($name)
            if $dir->file_exists_with_name($na <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	315198	315517	
==>core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 368,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 77 \"sr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440041	440535	
==>RGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 504,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	17799	18161	
==>},
	{#State 69
		DEFAULT => -43
	},
	{#State 70
		ACTIONS => {
			'NUM' => 57,
			">" => 73
		}
	},
	{#State 71
		DEFAULT => -32
	},
	{#State 72
		DEFAULT => -30
	},
	{#State 73
		DEFAULT => -29
	}
],
                                  yyrules  =>
[
	[#Rule 0
		 '$start', 2, undef
	],
	[#Rule 1
		 'rules', 2,
sub
#line 73 "lib/Regex/Grammar.y"
{ return [ @{ $_[1 <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	332	438	
==>ynamic PMCs

=head1 DESCRIPTION

This file is generated by F<config/gen/makefiles.pl> from
F<config/gen/mak <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	298	404	
==>ynamic PMCs

=head1 DESCRIPTION

This file is generated by F<config/gen/makefiles.pl> from
F<config/gen/mak <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8506	8600	
==>(12);c$(i+1);tab$(22);c$(i+2);tab$(32);c$(i+3)
next
print
data "ABANDON","CHART","COMPUTER"
dat <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21370	21464	
==>(12);c$(i+1);tab$(22);c$(i+2);tab$(32);c$(i+3)
next
print
data "ABANDON","CHART","COMPUTER"
dat <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	1904	2127	
==>rot::Test::run_command( 
                                \@test_prog, 
                                CD     => $self->{relpath}, 
                                STDOUT => $out_fn,
                                STDERR => <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	13282	13375	
==>gnment of the whole hash element.
The object reference is returned.

=item Class (C<'Class_Nam <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647877	648282	
==>type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 724,
                  "ARGS" => [
                              "i",
                              "sc"
                            ],
                  "B <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584695	584919	
==>ABLE_subclass(interpreter, class, NULL);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585770	585994	
==>ABLE_subclass(interpreter, class, NULL);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	5426	5552	
==>}  = 0;
	$_[0]->{"vars"}  = "";
}

sub DESTROY {}

sub hasleftmost($$)
{
	my ($self, $ref) = @_;

	my $prod;
	foreach $prod ( @ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	846	984	
==>e') ? 'unless' : 'if';

    $compiler->emit("${prefix}_NEXT:");

    my $op    = $self->op;
    my $left  = $self->left->compile($compiler) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	12395	12485	
==>:atend::needparen { 0 }
sub Regex::Ops::Tree::atend::render { '$' }

sub Regex::Ops::Tree:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458718	458995	
==>CODE" => 526,
                  "ARGS" => [
                              "n",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 240 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Compilers.pm	710	852	
==>w_group( 'IMCC', 'the Intermediate Code Compiler for Parrot',
            'compilers/ast',
            'compilers/imcc' ),
        $self->ne <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	12426	12564	
==>df     math.h
lroundl     math.h
malloc      stdlib.h
mblen       stdlib.h
mbstowcs    stdlib.h
mbtowc      stdlib.h
memchr      string.h
m <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53801	53918	
==>ct_bracketed($grammar,'<');
					  $code })
			{
				_parse("a resync with pattern marker", $aftererror,$line);
				$c <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	1849	1957	
==>tml = $self->write_contents_html(@_);
	
	if ( $index_html )
	{
		# If none of the items are in a para then th <==
2	/Users/nnunley/parrot/Configure.pl	6133	6301	
==>nkflags=(flags)  Use the given linker flags
   --ld=(linker)        Use the given loader for shared libraries
   --ldflags=(flags)    Use the given loader flags for shar <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeDumb.pm	738	935	
==>$e) = $_[1];
  die "WHAT ENCODING!?!?" unless $e;
  my $x;
  return sub {;
    #foreach $x (@_) {
    #  if(Pod::Simple::ASCII and !Pod::Simple::UNICODE and $] > 5.005) {
    #    # We're in horribl <==
2	/Users/nnunley/parrot/lib/Test/More.pm	16856	16964	
==>ers can be checked like so:

   # Just like "use Some::Module 1.02"
   BEGIN { use_ok('Some::Module', 1.02) } <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8645	8742	
==>badpass) {
        $*ERR.say("# Looks like $Test::num_of_tests_badpass tests of $Test::num_of_test <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	301	484	
==>w or fast core) run loop.

=head2 Instance Methods

=over 4

=cut

package Parrot::OpTrans::C;

use strict;
use warnings;

use base qw( Parrot::OpTrans );

=item C<core_type()>

Return <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	626323	626429	
==>dn't change */\n    (void) ((interface_f)lru->f.real_function)(interpreter, sig_bits, args);\n    {{=pc}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37739	37849	
==>t.

=cut

sub gen_ret
{
    my ($self, $type) = @_;

    #return "ret_val = *($1*) " if ($type =~ /((?:INT|FLOA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663710	663938	
==>ble->delete_keyed(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664482	664710	
==>ble->delete_keyed(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3655	3783	
==>!")
        unless $self->block->kind eq 'module';

      my %module_props = $self->block->props;

      $self->SYNTAX_ERROR("Sub <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6319	6447	
==>!")
        unless $self->block->kind eq 'module';

      my %module_props = $self->block->props;

      $self->SYNTAX_ERROR("Sub <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	50523	50723	
==>hile\s*\{/{/)
                {
                        $loop = "while " . extract_codeblock($text);
                }

        # Remove the first round-bracketed list (which may include
        # roun <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503922	504115	
==>,
                              "i"
                            ],
                  "BODY" => "#line 631 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504777	504970	
==>,
                              "i"
                            ],
                  "BODY" => "#line 631 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  " <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	4533	4660	
==>e-*.html";
  push @{ $cats{$category->($_)} }, $_ for @smokes;

  $cats{$_} = [
    (sort {
      $b->{revision} <=> $a->{revisi <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	12596	12763	
==>in the string to ignore any options
        ($util) = $util =~ /(\S+)/;
        my $path = which($util);

        if ($verbose) {
            print "$path is executable <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685029	685420	
==>setprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 769,
                  "ARGS" => [
                              "p",
                              " <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	58672	59049	
==>rule named \"$rulename\" cannot be directly
                                       called through the Parse::RecDescent object
                                       for this grammar (although it may still
                                       be used as a subrule of other rules).
                                       It can't be directly called because
				       Parse::Re <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	1779	1931	
==>rted.

=cut

sub do_middle 
{
    my $self = shift;
    my $token;
    my $type;
    
    $self->{STACK} = [];
    $self->{DONT_WRAP} = 0;
    
    while <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552551	552649	
==>dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n\n  object = {{\@1}};\n  method_pmc = {{\@2} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556607	556705	
==>dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n\n  object = {{\@1}};\n  method_pmc = {{\@2} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819749	820003	
==>pe(interpreter, entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820709	820963	
==>pe(interpreter, entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	8228	8444	
==>!/^\./ && /\.ops$/ } readdir OPS;
        closedir OPS;

        my $pod = join " ", map { my $t = $_; $t =~ s/\.ops$/.pod/; "ops/$t" } @ops;

        $conf->data->set(pod => $pod);

        genfile(
            'conf <==
2	/Users/nnunley/parrot/languages/converter.pl	854	1068	
==>.= $item[1][0] if defined $item[1][0];
		  $return .= " ( $item[3] ) ".::modifier($item[5]);
		  $return .= $item[6][0] if defined $item[6][0];
		}
#		| terminal(?) '[' production ']' mod(?) production(?)
		| termin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439539	439633	
==>rc/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}}) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440554	440648	
==>rc/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}}) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	10613	10872	
==>der is already set?!")
     if $self->{'_transcoder'};   # should never happen
    require Pod::Simple::Transcode;
    $self->{'_transcoder'} = Pod::Simple::Transcode::->make_transcoder($e);
    eval {
      my @x = ('', "abc", "123");
      $self->{'_transcod <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023302	1023408	
==>"#line 210 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_localtime_r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024152	1024258	
==>"#line 210 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_localtime_r <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2686	2904	
==>= shift;
    my $name = shift || return;
    
    $name .= '.c' unless $name =~ /\.[Cc]$/o;
    
    foreach my $dir ($self->c_source_file_directories)
    {
        return $dir->file_with_name($name)
            if $di <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	446763	447104	
==>IRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 511,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 165 \"src/ops/math.ops\"\n  {{\@1}} = fabs( {{\@1}} );\n  { <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22451	22639	
==>::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE; ') .'
		$_tok = do { ' . $self->{"code"} . ' };'.($::RD_NO_TRACE?'':'
		if (defined($_tok))
		{
			Parse <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	786	885	
==>tain a transcript of the svn:ignore properties
# of the directories in the Parrot subversion reposit <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3641	3740	
==>tain a transcript of the svn:ignore properties
# of the directories in the Parrot subversion reposit <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	5208	5360	
==>do )>

Determine the language from the extension of C<$example_f> and runs
language_output_like().  This I<does> set a description for you, so don't pass <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	34821	34931	
==>:\#\&\*\{\}\[\]\(\)]+(\:\:[^\/\|,\$\%\@\ \"\<\>\:\#\&\*\{\}\[\]\(\)]+)*$/s) {
          # Extremely forgiving i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2044	2153	
==>fix);
  }

  if ($self->prefix) {
    $handler->start_element({ Name => 'loop', Attributes => { kind => $self- <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10383	10613	
==>rce_file}{$function} ? "$function_call_coverage{$source_file}{$function} %" : "n/a" ]}</a></td>
           </tr>
            );
        }
        print OUT qq(
            </tbody>
            </table>
        );
    }

    print O <==
2	/Users/nnunley/parrot/config/auto/headers.pm	41	145	
==>ation.
# $Id: /parrot/config/auto/headers.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

conf <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	29105	29257	
==>args}}, $_;
		}
	}
	return;
}

sub parse_endfunc {
	feedme;
	my $t=$seg;
	$seg=~s/^_//;       # Remove the _
	$seg=~tr/A-Z/a-z/;  # lowercase
	$seg=~s/us <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	5899	6269	
==>commentType                               => '#',
        replace_slashes                           => 1
    );
    genfile(
        'config/gen/makefiles/perl6.in' => 'languages/perl6/Makefile',
        commentType                     => '#',
        replace_slashes                 => 1
    );
    genfile(
        'config/gen/makefiles/pheme.in' => 'languages/pheme/Ma <==
2	/Users/nnunley/parrot/lib/File/Which.pm	4893	5038	
==>bat> and
(less likely) C<.com>. C<File::Which> uses this hardcoded list if it's running
under Win32 but does not find a C<PATHEXT> variable.

=hea <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	25485	25660	
==>extract_multiple

			gen_delimited_pat
			gen_extract_tagged
		       );

 # Extract the initial substring of $text that is delimited by
 # two (unescaped) instances of the fir <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932208	932571	
==>GS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1047,
                  "ARGS" => [
                              "s",
                              "sc"
                            ] <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	13652	13814	
==>ected opening bracket at "} .
			     substr($$textref,pos($$textref),20) .
			     q{..."},
		         pos $$textref;
		pos $$textref = $startpos;
		return;
	}
	m <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18171	18421	
==>ple> and inherits all its methods.

=head1 FORMAT CONTROL ATTRIBUTES

You can set these attributes on the parser object before you
call C<parse_file> (or a similar method) on it:

=over

=item $parser->head1_halfpoint_size( I<halfpoint_integer> );

=i <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	9159	9311	
==>peLong ? "unknown" : "D?";
			    }
			    $symbol .= "_data" if $TypeLong;
			} elsif ($undef) {
			    $symbol = $TypeLong ? "undef" : "U";
			} else { <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	24099	24329	
==>ure there is exactly one ~end in the parastack, at the end:
        @$paras = grep $_->[0] ne '~end', @$paras;
        push @$paras, $para, $para;
         # We need two -- once for the next cycle where we
         #  generate erra <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059485	1059659	
==>,
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_name",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060389	1060563	
==>,
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_name",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79318	79419	
==>_new(interpreter, enum_class_Undef);\n  }\n  else {\n      /* At this point we have the symbol's addre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80839	80940	
==>_new(interpreter, enum_class_Undef);\n  }\n  else {\n      /* At this point we have the symbol's addre <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	24075	24246	
==>@stack, $treelet->[$i];  # just recurse
      }
    }
  }
  
  DEBUG > 2 and print "End of _remap_sequences traversal.\n\n";

  if(@_ == 2 and @{ $_[1] } == 3 and !ref $_[1 <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	591	876	
==>n $ENV{PARROT_M4_TEST_PROG} ?
        ( bless {}, 'Parrot::Test::M4::Gnu' )              
        :
        ( bless {}, 'Parrot::Test::M4::PIR' );              
}

my %language_test_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    output_isnt       => 'isn <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634048	634369	
==>AME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 710,
                  "AR <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	8151	8316	
==>nd' ]),
                        aop('setend', [ $group, '<tmp>' ] ),
                        aop('popint', [ '<tmp>', 'group start' ]),
                        aop('s <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	57078	57208	
==>j, $_[3], $_[4] );
        }
	],
	[#Rule 89
		 'functioncall', 2,
sub
#line 469 "Lua\lua51.yp"
{
            BuildCallFunct <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	1860	2047	
==>n't write $inc.tmp";
                print INC "/*\n" if $inc =~ /\.h/;
                print INC <<"EOF";
# DO NOT EDIT THIS FILE.
#
# This file is generated automatically from
# $f by co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215005	215118	
==>=> "#line 455 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215946	216059	
==>=> "#line 455 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	8855	9000	
==>> '#',
             'memalign' => 'some_memalign',
             'mkdir' => 'perl -MExtUtils::Command -e mkpath',
             'msvcversion' => und <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113424	113890	
==>ME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 141,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 204 \"src/ops/bit.ops\"\n  {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114162	114429	
==>ME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 14 <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	2791	2929	
==>utput[1][0] && $output[-1][1] eq q{} ) {
        pop @output;
    }

    # Compose the return string - skip any
    # adjancent blank lines <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	1251	1458	
==>rot" in the directory.

Raises an exception if the distribution root is not found.

=cut

my $dist;

sub new
{
    my $self = shift;
    
    return $dist if defined $dist;
    
    my $path = '.';
    
    w <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	4705	4862	
==>de, passing the test if output matches the
expected result.

=item C<c_output_isnt($code, $unexpected, $description)>

Compiles and runs the C code, passing t <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	60497	60749	
==>e,$1);
			$item = new Parse::RecDescent::Literal($code,$lookahead,$line);
			$prod and $prod->additem($item)
			      or  _no_rule("literal terminal",$line,"'$1'");
		}
		elsif ($grammar =~ m/$INTERPLIT/gco)
		{
			_parse("an interpolated literal termin <==
2	/Users/nnunley/parrot/lib/Test/More.pm	21923	22061	
==>nding, that's original" );
    }

With a todo block, the tests inside are expected to fail.  Test::More
will run the tests normally, but pr <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2643	2749	
==>}

# block handled by superclass?

sub kind  { return shift->{KIND};     }
sub type  { return shift->{TYPE} <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2760	2860	
==>}

# block handled by superclass?

sub kind { return shift->{KIND}; }
sub type { return shift->{TYPE} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65072	65389	
==>PARROT_JUMP_RELATIVE|PARROT_JUMP_ENEXT",
                  "NAME" => "runinterp",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	9651	9810	
==>',
             'packtype_b' => 'C',
             'packtype_i' => 'l!',
             'packtype_n' => 'd',
             'packtype_op' => 'l!',
             'parr <==
2	/Users/nnunley/parrot/config/auto/gc.pm	1819	1918	
==>(SRC_DIR)/res_lea\$(O):	\$(GENERAL_H_FILES) \$(SRC_DIR)/res_lea.c
EOF
            TEMP_gc_o => "\$(S <==
2	/Users/nnunley/parrot/config/auto/gc.pm	2110	2209	
==>(SRC_DIR)/res_lea\$(O):	\$(GENERAL_H_FILES) \$(SRC_DIR)/res_lea.c
EOF
            TEMP_gc_o => "\$(S <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	1462	1645	
==>R = op('external' => [ 'code', [ $atom, $ctx ] ]);
    } elsif (UNIVERSAL::can($atom, 'type') && $atom->type eq 'ResizablePMCArray') {
        $R = op('external' => [ 'array', [ $atom, <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3491	3615	
==>de.
	return $pir;
}

sub post_branch($) {
	# Nothing to do here.
	return "";
}

# Pre and post load operation hooks.
sub pre_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693366	693890	
==>S" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 779,
                  "ARGS" => [
                              "ic",
                              "i",
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	1513	1649	
==>e $test;

        open my $ffh, '<', $file;
        %tests = extract_tests( do{undef local $/;<$ffh>} );
        close $ffh;

	# Only gen <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6067	6164	
==>gated there already.
	$pir .= <<'PIR';
if 0x${CURIC} == 0x45 goto POST_BRANCH_switch_${CURIC}
${IT <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4005	4102	
==>gated there already.
	$pir .= <<'PIR';
if 0x${CURIC} == 0x45 goto POST_BRANCH_switch_${CURIC}
${IT <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	34780	34925	
==>ly :-(] {} parenthesized >:-)' string }";

then a call to C<extract_bracketed> in a list context:

	@result = extract_bracketed( $text, '{}' );

w <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1804	2070	
==>:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 = $N1 / $N2;              # div    N1, N1, N2
$N2 = 1000000.0;              # set    N2, 10000 <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1804	2070	
==>:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 = $N1 / $N2;              # div    N1, N1, N2
$N2 = 1000000.0;              # set    N2, 10000 <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	142	275	
==>NAME

tools/dev/parrot_coverage.pl - Run coverage tests and report

=head1 SYNOPSIS

    % mkdir parrot_coverage
    % perl tools/dev/ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	50507	50670	
==>($text =~ s/.*?while\s*\{/{/)
                {
                        $loop = "while " . extract_codeblock($text);
                }

        # Remove the first r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021105	1021407	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodetime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021946	1022248	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodetime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8272	8425	
==>iteral->new($block, $self->require_literal);
        }

        $props{$prop} = $value;
      }

      #
      # Require there to be a formal arguments li <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	879	1028	
==>ig);
use Carp qw(carp);
use Parrot::Configure::Data;

use Class::Struct;

struct(
    'Parrot::Configure::Task' => {
        step    => '$',
        p <==
2	/Users/nnunley/parrot/config/gen/config_h.pm	959	1082	
==>in', 'include/parrot/feature.h',
        commentType   => '/*',
        ignorePattern => 'PARROT_CONFIG_DATE',
        featu <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6007	6143	
==>RR "Need token. Got ".&$ShowCurToken."\n";
			};

            $act=   exists($$actions{ACTIONS}{$$token})
                    ?   $$a <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5722	5854	
==>RR "Need token. Got ".&$ShowCurToken."\n";
			};

            $act=   exists($$actions{ACTIONS}{$$token})
                    ?   $$a <==
2	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	1750	1850	
==>STORE
	branch ENDMAINLOOPNR

DOLINE:
	save S0
	bsr RUNLINE
	restore I0
	branch ENDMAINLOOP
	end

ENDM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561836	561930	
==>\n  {{\@1}} = VTABLE_find_method(interpreter, {{\@2}}, {{\@3}});\n  if (!{{\@1}}) {\n    real_e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562920	563014	
==>\n  {{\@1}} = VTABLE_find_method(interpreter, {{\@2}}, {{\@3}});\n  if (!{{\@1}}) {\n    real_e <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	1943	2112	
==>$self->set_result('yes');

            $conf->data->set(
                gmp     => 'define',
                HAS_GMP => $has_gmp,
            );
        }
    }
    unle <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719814	719911	
==>st io = {{\@1}};\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721014	721111	
==>st io = {{\@1}};\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter <==
2	/Users/nnunley/parrot/Configure.pl	219	335	
==>onfigure.pl [options]

=head1 DESCRIPTION

This is Parrot's configuration script. It should be run to create the nece <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	7466	7746	
==>->\s*(\w+)\(
        !VTABLE_$1(!sgx;

    while (1)
    {
        my $new_body = $self->_substitute($body, $trans);

        last if $body eq $new_body;

        $body = $new_body;
    }

    return $body;
}

=item C<source($trans)>

Returns the L<C<full_body()>> of the op with s <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4006	4109	
==>sif ($mode eq 'linklibs') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_ <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4110	4213	
==>sif ($mode eq 'linklibs') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	19555	19906	
==>urn generated PIR.
    return $pir;
}


# Binary dispatch table builder.
# ##############################
sub binary_dispatch_table(@) {
    my $prefix = shift;
    my @rules = @_;
    my $pir = "";

    # Ensure groups have been built properly and we only dispatch one
    # byte at a time.
    foreach (@rules) {
        if ($_->{'code'} =~ /\w\s+\w/ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36259	36409	
==>is mechanism. Ugly, huh?
        unless ($mv->{'ARG0'}) {
            $mv->{'ARG0'} = 'I_arg_0';
            push @localmv, 'ARG0';
        }

		# Inse <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299940	300441	
==>> "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 349,
                  "ARGS" => [
                              "i",
                              "nc",
                              "n"
                            ],
                  "BODY" => "#line 975 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	4205	4350	
==>t' => 'define',
             'i_fp' => undef,
             'i_fp_class' => undef,
             'i_gdbm' => undef,
             'i_grp' => 'define' <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4963	5134	
==>oad_bytecode "PGE/Util.pir"
            p6rule_compile = compreg "PGE::P6Regex"

            .local string target
            .local string pattern
            .local pmc r <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	398	625	
==>ethods

=over 4

=cut

package Parrot::OpTrans::CSwitch;

use strict;
use warnings;

use Parrot::OpTrans;
use base qw( Parrot::OpTrans::CPrederef );

sub new
{
	my $class = shift;
	my $self  = $class->SUPER::new( @_ );
	$self->{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179620	179839	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 247 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	5651	5760	
==>unless $self->{DEBUG};
    my @ops;
    $what = "%<rx_pos>: $what";
    foreach my $part ($what =~ /((?:\%\<\w <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506975	507373	
==>> ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 583,
                  "ARGS" => [
                              "n",
                              "nc",
                              " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033230	1033332	
==>EXT(interpreter->ctx);\n    STRING * const lex_name = {{\@1}};\n    PMC * const lex_pad = Parrot_find_p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034328	1034430	
==>EXT(interpreter->ctx);\n    STRING * const lex_name = {{\@1}};\n    PMC * const lex_pad = Parrot_find_p <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	665	783	
==>r );

sub runstep
{
    my ($self, $conf) = @_;
    
    my $verbose = $conf->options->get('verbose');

    # undef mea <==
2	/Users/nnunley/parrot/config/inter/lex.pm	675	789	
==>r );

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    # undef mea <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247644	247971	
==>2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "and",
                  "F <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	248508	248835	
==>2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "and",
                  "F <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1155	1424	
==>ated ops: $I5\n"; # print  "Estimated ops: "
                              # print  I5
                              # print  "\n"
                              #
$N1 = time_hires();           # time N1
                              #
REDO:                         # RED <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1155	1424	
==>ated ops: $I5\n"; # print  "Estimated ops: "
                              # print  I5
                              # print  "\n"
                              #
$N1 = time_hires();           # time N1
                              #
REDO:                         # RED <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405184	405601	
==>,
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 468,
                  "ARGS" => [
                              "s",
                              "ic",
                              "s"
                            ],
                  "BODY" => "#line 535 \"src/ops/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (uns <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2031	2195	
==>> $self->{'line_count'}}];
      push @$paras, $paras->[-1], $paras->[-1];
       # So that it definitely fills the buffer.
      $self->{'source_dead'} = 1;
      $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355262	355541	
==>), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "write",
                  "FLAGS" => ":ba <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	11646	11848	
==>_init = {
                meth        => $methodname,
                body        => $methodblock,
                line        => $lineno,
                type        => $type,
                parameters <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10389	10490	
==>EBUG and print "Indenting back $indent_stack[-1] twips.\n";
        $self->{'rtfindent'} -= pop @inden <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21526	21635	
==>($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(1);
  my $temp <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21911	22020	
==>($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(1);
  my $temp <==
2	/Users/nnunley/parrot/lib/Test/More.pm	27593	27712	
==>lly testing functions and produce no diagnostics to help figure
out what went wrong.  They were written before is_deeply <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	420	537	
==>ile()
#

sub compile
{
  my $self     = shift; # Required:
  my $compiler = shift; # Required

#  my $namespace = "FIL <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9787	9885	
==>ko::Construct::Expression::Value->new($block, $self->require_value);
      my $op    = $self->requi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25323	25421	
==>ko::Construct::Expression::Value->new($block, $self->require_value);
      my $op    = $self->requi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	2676	2818	
==>S}};
}


#
# block()
#

sub block
{
  my $self = shift;

  return $self->{BLOCKS}[shift];
}


#
# block_depth()
#
# Block depth zero is when th <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4181	4348	
==>/^\\([0-9]{1,3})//
                and $str .= chr $1, 
                last;

            s/^\\//
                and $parser->Error("Invalid escape sequence $_ . <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2667	2833	
==>/^\\([0-9]{1,3})//
                and $str .= chr $1,
                last;

            s/^\\//
                and $parser->Error("Invalid escape sequence $_ . <==
2	/Users/nnunley/parrot/tools/dev/as2c.pl	3	124	
==>usr/bin/perl
use strict;

# convert gas assember listing to i386 code array
# creates also a test file

my ($src, $func, $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17467	17721	
==>print "Ignoring ignorable =for\n";
        next;
      }

      for(my $i = 2; $i < @$para; ++$i) {
        if($para->[$i] =~ s/^\s*(\S+)\s*//s) {
          $target = $1;
          last;
        }
      }
      unless(defined $target) {
        $self->whi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607564	607835	
==>{{\@1}} = VTABLE_get_attr(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608468	608739	
==>{{\@1}} = VTABLE_get_attr(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	18043	18233	
==>ups{$1}}, $_;
    }

    # Go through groups, sorted by start code.
    my @rules_grouped = ();
    foreach (sort keys %groups) {
        # If there is only a single element with a single cod <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	9550	9673	
==>${op_func}\[$num_entries] = {
END_C

    print SOURCE @op_func_table;

    print SOURCE <<END_C;
  (op_func${suffix}_t)0  /* <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	12916	13030	
==>pre_translation\n";
    my $srm_pt = $srm->pre_translation();
    $pir .= sub_meta($srm_pt, $mv, 'pre_translation') <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	1007	1221	
==>generate_config_pm(%config);


# #############################################################################


# Get Parrot Configuration
# ########################
sub get_parrot_config($$) {
	# Try to i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52103	52418	
==>RESTART",
                  "NAME" => "trace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 67,
                  "ARGS" => [
                              "i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51321	51571	
==>RESTART",
                  "NAME" => "trace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 6 <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	23394	23569	
==>so keep track of the fact that ARG0 should
	# only exist inside this rule.
	my @args = split(/,\s*/, $rule->{'arguments'});
    $mv->{'ARGCOUNT'} = scalar @args;
    push @loca <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8510	8624	
==>pe[CURR] eq 'COMM') {
		push @{$code{$seg}->{code}}, "\t# $syms[CURR]\n";
		goto PARSE;
	}
	if ($type[CURR] eq "INT <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	27698	27845	
==>let> or </item-text> ??

      my $content = join ' ', splice @$para, 2;
      if($content =~ m/\S/) {
        $self->whine(
          $para->[1]{'s <==
2	/Users/nnunley/parrot/tools/build/vtable_h.pl	27	246	
==>2001-2003, The Perl Foundation.
# $Id: /parrot/tools/build/vtable_h.pl 20350 2006-06-25T03:57:27.771662Z petdance  $

=head1 NAME

tools/build/vtable_h.pl - Create the vtable header

=head1 SYNOPSIS

	% perl tools/build/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	395735	396054	
==>],
                  "TYPE" => "function",
                  "CODE" => 459,
                  "ARGS" => [
                              "p",
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 527 \"src <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	10592	10717	
==>n be useful in other contexts as well.

== Testing Functions

- `use_ok (Str $module, Bool :$todo, Str :$depends) returns Bool <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	67712	67821	
==>=> [],
                  "BODY" => "#line 1038 \"src/ops/core.ops\"\n  Parrot_go_collect(interpreter);\n  {{+= <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	3874	3966	
==>core::ops) {
	if($cur_op->full_name eq 'enternative'){
	    $enternative = pack_op($cur_op->c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	278380	278840	
==>" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 324,
                  "ARGS" => [
                              "i",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 886 \"src/ops/cmp.ops\"\n  {{\@1}} = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168506	168597	
==>s\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169448	169539	
==>s\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223590	223681	
==>s\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224532	224623	
==>s\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}} <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	5061	5172	
==>rameters
  my $class = ref($_[0]) || $_[0];
  #Carp::croak(__PACKAGE__ . " is a virtual base class -- see perldo <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	690	873	
==>rot_coverage";
my $DEBUG   = 1;

if ($ARGV[0] && $ARGV[0] =~ /recompile/) {

    # clean up remnants of prior biulds
    File::Find::find({wanted => sub {
                          /\. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094515	1094834	
==>n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exec",
                  "FLAGS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561181	561394	
==>{
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "fetchmethod",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562264	562477	
==>{
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "fetchmethod",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	3176	3393	
==>defined($1))? 1 : 0;
                $function = $2;
                $asm = q{};
                next;
            }
        }
        if ($line =~ m/^}/) { #{
            # 1. check templates
            while (my($t, <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	2169	2317	
==>e strict;
use lib 'lib';

use Data::Dumper;
$Data::Dumper::Useqq  = 1;
#$Data::Dumper::Terse  = 1;
#$Data::Dumper::Indent = 0;
use Getopt::Long;

use <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4762	4885	
==>s a hash reference.

=cut

sub new {
    my $this = shift;
    my $self = shift;

    my $class = ref($this) || $this;
    $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2067	2172	
==>ift;
    
    die ref($self) . " doesn't have core_type()";
}

=item C<core_prefix()>

Implemented in subc <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	25205	25398	
==>$R, $rfail);

    my @ops = (
                        @R_ops,
                        aop('pushint', [ 1 ]),
                        aop('goto', [ $next ]),
               $back => aop('popint', <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1505	1679	
==>s even wants little treelets?


__END__

=head1 NAME

Pod::Simple::LinkSection -- represent "section" attributes of L codes

=head1 SYNOPSIS

 # a long story

=head1 DESCRIPTI <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	25619	25750	
==>okahead"},0,$self->describe); 
	$dir->{hashname} = $self->{hashname};
	return $dir->code($namespace, $rule, 0);
}

1;

package Parse <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826553	826643	
==>nternal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_FLOAT <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827623	827713	
==>nternal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_FLOAT <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5111	5224	
==>ut_label_use($passLabel);

    while (@$incexc) {
        my $first = shift(@$incexc);
        my $last = shift(@$ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4786	4899	
==>ut_label_use($passLabel);

    while (@$incexc) {
        my $first = shift(@$incexc);
        my $last = shift(@$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406339	406511	
==>",
                              "sc"
                            ],
                  "BODY" => "#line 535 \"src/ops/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (u <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7185	7293	
==>act]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print STDERR "Reduce using rule ".-$act." ($lhs, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6853	6957	
==>act]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print STDERR "Reduce using rule ".-$act." ($lhs, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	7869	8005	
==>and print "$self 's source is array ref $_[0]\n";
    return;
  } elsif(ref $_[0]) {
    $self->{'source_filename'} = '' . ($handle = $_[ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	23642	23749	
==>splice(@$treelet, $i, 1); # just nix this node (and its descendants)
        --$i;  # back-update the counte <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3316	3436	
==>_groups_and_libs(@pmcs);

    while (my ($group, $pmcs) = each %$group_files) {
        my @pmcfiles = map { "$_.pmc" } @ <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3420	3540	
==>_groups_and_libs(@pmcs);

    while (my ($group, $pmcs) = each %$group_files) {
        my @pmcfiles = map { "$_.pmc" } @ <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	6078	6228	
==>i) eq 'HASH' && !\@_) { \$r->$elem = \$i; return \$r }\n";
                $sel = "->{\$i}";
            }
            elsif( defined $classes{$name} ) <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1265	1430	
==>evels we have to go back to get to parrot.
        # And, conversely, how many levels we have to go down to get to
        # the tcl binary.

        # There are basi <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	735	888	
==>evels we have to go back to get to parrot.
    # And, conversely, how many levels we have to go down to get to
    # the tcl binary.

    # There are basi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	5864	6000	
==>calar_ref'} });
         # I.e., unless it's a zero-length "empty line" at the very
         #  end of "foo\nbar\n" (i.e., between the \n <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	3636	3774	
==>find_lex \"$op->{arg1}->{symbol}\"\n";
    }

    sub visitStoreLexOp {
        my $self = shift;
        my ($op) = @_;
        my $ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2842	2953	
==>-level code"
   END
Sub1:
   PRINT "2 in subroutine one"
   GOSUB Sub2
   PRINT "ERR this line in subroutine one <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16809	16920	
==>-level code"
   END
Sub1:
   PRINT "2 in subroutine one"
   GOSUB Sub2
   PRINT "ERR this line in subroutine one <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	148	240	
==>rpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm 19606 2006-05- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355123	355224	
==>onst p = {{\@1}};\n  STRING * const s = (VTABLE_get_string(interpreter, p));\n  if (s) {\n    PIO_putp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360823	360924	
==>onst p = {{\@1}};\n  STRING * const s = (VTABLE_get_string(interpreter, p));\n  if (s) {\n    PIO_putp <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	12902	13081	
==>n>
                r<tmpl_var name=revision>
              </tmpl_if>
            </td>
            <td class="leftsep"><tmpl_var name=timestamp></td>
			<td class="leftsep"><tmpl_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	280411	280628	
==>i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 903 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} < {{\@3}}) ? 1 : 0;\n  {{+=4}};\ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	1215	1348	
==>}
NOTNUM:
	#if ($cur eq "-" and $next =~ /[\d\.]/) {
	#	append;
	#	fetch;
	#	goto NUMCONST;
	#}
	if ($cur eq '"') {   # String constan <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4349	4458	
==>l link of $group failed ($?)\n";
    }

    # Link non-grouped PMCs individually
    my @ungrouped_pmcs = grep <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4453	4562	
==>l link of $group failed ($?)\n";
    }

    # Link non-grouped PMCs individually
    my @ungrouped_pmcs = grep <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320017	320250	
==>INTVAL)((Parrot_Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320787	321020	
==>INTVAL)((Parrot_Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2831	2938	
==>nt "Big-endian UTF-16 BOM seen.  Aborting parsing.\n";
        $self->scream(
          $self->{'line_count' <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	1120	1231	
==>s("Unrecognized identifier scope attribute '" . $scope . "'.")
    unless $scope eq 'global' or $scope eq 'local <==
2	/Users/nnunley/parrot/Configure.pl	7995	8230	
==>d lexer files. Needs a working
                        parser and lexer.
   --miniparrot         Build parrot assuming only pure ANSI C is available

EOT
      exit;
    };
    $args{$key} = $value;
  }
}

$args{debugging} = 1 unless (( <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10903	11014	
==>tfile_base.lines.html";
    print "Writing $outfile..\n" if $DEBUG;
    open (IN, "<$infile") or die "Can't read <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	2210	2326	
==>ub _get_arg {
  my ($node, $num) = @_;
  $node->{children}->[$num];
}

sub _get_args {
  my ($node, $num) = @_;
  $nu <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	19967	20113	
==>e for instructions of " .
                "more than 2 bytes in rule $_->{'name'}\n";
        }
    }

    # If we have 3 or less rules, dispatch d <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	2933	3030	
==>ntents have changed.

The regular expression specified by C<$ignorePattern> is passed to
C<file_ch <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	2960	3167	
==>pr attribute="Label" context="#stay" String="[_\\w]+\\:" />
          <keyword attribute="Op" context="#stay" String="ops" />
          <keyword attribute="Special Directive" context="#stay" String="special_d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015129	1015424	
==>0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "err",
                  "FLAGS <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30311	30413	
==>Call with S0 set to the type
	# Source in P6
	# Dest returned in P1
STRUCT_COPY:
SCOPYDIS
	foreach(keys <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4597	4761	
==>pile, linklibs, or copy\n";
}

sub run {
    print join(" ", @_), "\n";

    return system(@_) == 0;
}

sub modtime {
    my $ago = (-M shift);

    if (defined $ago <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	642	834	
==>';
${ITEMP0} = elements lazy_moves
${ITEMP1} = stack_depth
SRM_LMKILL$suffix:
    if ${ITEMP0} == 0 goto SRM_LMKILL_EXIT$suffix
    dec ${ITEMP0}

    # Get register that we'll want to place st <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	5673	5777	
==>w many tests to skip,
just like in Test::More.

=item C<run_command($command, %options)>

Run the given $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29611	29790	
==>,
		DEFAULT => -107,
		GOTOS => {
			'fieldsep' => 145
		}
	},
	{#State 94
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	3093	3248	
==>y %labels; # { label string => tagged_op }
    foreach my $stmt (@output) {
	if ($stmt->{name} eq 'LABEL') {
	    $curlabel = $stmt;
	} else {
	    push @ou <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1027336	1027589	
==>);\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	2395	2664	
==>elf->{table}{$symb};
            return $defn;
        }
        return undef;
    }

}

################################################################################

package SymbTabConst;
use base qw(Lua::symbtab);
{

    sub Lookup {
        my $sel <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324251	324714	
==>v_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 380,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 144 \"src/ops/dotgnu.ops\"\n  {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	8875	9039	
==>rt = "";
	    $extern = "";
	    $newl = "\n";
	    $semi = "";
        $interp = ' interpreter';
        $pmc = ' pmc';
    }
    return <<"EOC";
$export$extern$ret <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	7594	7703	
==>b $_[0]\n";
    # and fall thru   
  } elsif(ref( $_[0] ) eq 'SCALAR') {
    $self->{'source_scalar_ref'} = $_ <==
2	/Users/nnunley/parrot/languages/regex/regex.pl	671	802	
==>{
        $expr_file = $1;
    } elsif (/--language=(.*)/) {
        $language = lc($1);
        $language = 'perl5' if $language eq <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1911	2041	
==>$self{VERSION}:\n".
			  "Please recompile parser module.";

        ref($class)
    and $class=ref($class);

    bless($self <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1845	1969	
==>$self{VERSION}:\n".
			  "Please recompile parser module.";

        ref($class)
    and $class=ref($class);

    bless($self <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822413	822528	
==>E, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_int(entry->entry);\n  {{+=3}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823481	823596	
==>E, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_int(entry->entry);\n  {{+=3}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1830	1973	
==>ode);

package ToBoolOp;
use base qw(Lua::opcode);

package CallOp;
use base qw(Lua::opcode);

package CallMethOp;
use base qw(Lua::opc <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7842	7962	
==>hort"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}

# Put it in the parameter regis <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739697	739994	
==>/set.ops\"\n  {{\@1}} = {{\@2}}->vtable->get_number(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	1097	1199	
==>eturns it if it finds it.
The search is only performed once.

The criterion is that there should be a F <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367813	367898	
==>"src/ops/io.ops\"\n  {{\@1}} = PIO_reads(interpreter, PIO_STDIN(interpreter), (size_t) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368605	368690	
==>"src/ops/io.ops\"\n  {{\@1}} = PIO_reads(interpreter, PIO_STDIN(interpreter), (size_t) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	8127	8245	
==>-string as a source for set_source");
  } else {  # It's a filename!
    DEBUG and print "$self 's source is filename $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1668	1807	
==>ead ?  \\
		Parrot_do_check_events(i, n) : n
END
}

=item C<goto_address($address)>

Transforms the C<goto ADDRESS($address)> macro in an op <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6569	6665	
==>${STYPES}
    prop_stack_depth[${ITEMP0}] = stack_depth
    goto POST_BRANCH_switch_${CURIC}_LOOP <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4507	4603	
==>${STYPES}
    prop_stack_depth[${ITEMP0}] = stack_depth
    goto POST_BRANCH_switch_${CURIC}_LOOP <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	17496	17625	
==>)/) {
	$targ = "pc_$1";
    }
    print <<EOC;
	goto $targ $cmt
EOC
}

sub JUMP_ABSOLUTE()
{
    my ($n, $c, $cmt) = @_;
    my $t <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	72789	72904	
==>rtcode"} = '';

	my $rule;
	foreach $rule ( values %{$self->{"rules"}} )
	{
		if ($rule->{"changed"})
		{
			$code . <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757821	758087	
==>P" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758593	758859	
==>P" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	2823	2997	
==>ten you can collect a group of data fields into a "context" (or
"descriptor", "handle", "session", "state") structure that is either
explicitly passed between functions or imp <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	1350	1459	
==>argument passes a constant value into the op
    invar         the argument passes a variable value into the o <==
2	/Users/nnunley/parrot/languages/perms.pl	41	222	
==>(d i f p s t v);

sub deeper {
	my ($stop, $things) = @_;
	my @prefix = (0,0);
	
	return sub {
	  return if @prefix >= $stop && $prefix[-1] >= @{ $things } - 1;
    my $i = 0;
    wh <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938444	938616	
==>",
                              "p"
                            ],
                  "BODY" => "#line 481 \"src/ops/string.ops\"\n    {{\@1}} = string_join(interpreter, {{\ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2779	2879	
==>t::Type::Integer');
  $self->SYNTAX_ERROR("Can only do bitwise ops on integers") unless UNIVERSAL::is <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2909	3009	
==>t::Type::Integer');
  $self->SYNTAX_ERROR("Can only do bitwise ops on integers") unless UNIVERSAL::is <==
2	/Users/nnunley/parrot/config/auto/jit.pm	4483	4675	
==>_h => '',
                TEMP_exec_o => '',
                execcapable => 0
            );
        }

        # test for executable malloced memory
        if (-e "config/auto/jit/test_exec_$ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	363	519	
==>Literal;

use Carp;

use base qw(Jako::Construct::Expression::Value);

sub new
{
  my $class = shift;
  my ($block, $token) = @_;

  return bless {
    BLOCK <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	3470	3616	
==>estination of each is reached, then replace the original
    # reference.

    foreach my $stmt (@output2) {
        # $stmt : { label => ?label, c <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	325	449	
==>EGIN { *DEBUG = defined(&Pod::Simple::DEBUG)
          ? \&Pod::Simple::DEBUG
          : sub() {0}
      }

use Text::Wrap 9 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	207	331	
==>EGIN { *DEBUG = defined(&Pod::Simple::DEBUG)
          ? \&Pod::Simple::DEBUG
          : sub() {0}
      }

use Text::Wrap 9 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	22051	22194	
==>ine 164 "lib/Regex/Grammar.y"
{ return [ 'neg', $_[3] ]; }
	],
	[#Rule 36
		 'charclass', 4,
sub
#line 165 "lib/Regex/Grammar.y"
{ push @{$_[3]} <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	20310	20432	
==>t "\t\t$cmt\n";
	$code_l++;
	$cmt ="\t\t# $opcode\t $rest";
	if ($rest =~ /to (\d+)/) {
	    $targ = "pc_$1";
	}
	$op = $op <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	20146	20257	
==>t "\t\t$cmt\n";
	$code_l++;
	$cmt ="\t\t# $opcode\t $rest";
	if ($rest =~ /to (\d+)/) {
	    $targ = "pc_$1";
	} <==
2	/Users/nnunley/parrot/tools/dev/as2c.pl	615	763	
==>en IN, "<$s" or die "Can't read '$s': $1";
    my ($in_comment);
    $in_comment = 1;
    print "/*\n";
    while (<IN>) {
	next if (/^\f/);		# FF
	n <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	16888	17021	
==>rrent_test() + 1;

            # Name of the file with test code.
            my $code_f = File::Spec->rel2abs( per_test('.pir', $test <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	16251	16383	
==>ef, $pre, $rawmatch, $qmark) = @_;

	my ($textlen,$startpos,
	    $oppos,
	    $preld1pos,$ld1pos,$str1pos,$rd1pos,
	    $preld2pos,$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826656	826750	
==>ernal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_num(e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827726	827820	
==>ernal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_num(e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886476	886912	
==>IRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1003,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic",
                              "ic <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	3937	4048	
==>local pmc rx_stack
    rx_stack = new IntList
    rx_match = _default(1, rx_input, 0, rx_stack)
    .return (rx_ <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	5671	5812	
==>s/dev/]    ? '[devel]' :
        '[]';
    }
    printf $MANI "%- 49s %s\n", $File::Find::name, $loc;

    return;
}

close $MANI;
close $SKIP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867631	868147	
==>tr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 985,
                  "ARGS" => [
                              "s",
                              "sc",
                              "i"
                            ],
                  "BODY" => "#line 232 \"src/ops/str <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1450	1692	
==>ub __INLINE_" . $inline++);
        $compiler->indent;

        $last_seen = 'inline';
      }
    }

    $construct->compile($compiler);
  }

  if ($last_seen ne 'inline') {
    $compiler->emit(".sub __INLINE_" . $inline++);
    $compiler->in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828793	828886	
==>ernal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_pmc( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829861	829954	
==>ernal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_pmc( <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	32458	32775	
==>ary' => 28
		}
	},
	{#State 113
		ACTIONS => {
			'ELSE' => 159,
			'ELSEIF' => 161,
			'END' => 160
		}
	},
	{#State 114
		ACTIONS => {
			'END' => 162
		}
	},
	{#State 115
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"= <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12183	12300	
==>{
					push @ld, { type => "STRING", value=> qq{"$s"}};
					redo OUTDATA;
				}
				if ($type[CURR] =~ /COMP|COMM|STM <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	41099	41210	
==>x($symbol);

  my $scope = $self->{scope};

  while ($scope && !exists $scope->{$symbol}) {
    $scope = $scope- <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1387	1485	
==>le> and inherits all
its methods.)

You can use this class as the base class for a Pod formatter/pr <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	19906	20042	
==>ame =~ /_default/;
        $defaulted = 1 if $meth_name =~ /_delegate/;
        $defaulted = 1 if $class =~ /^[A-Z]/;
        # MMD metho <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	2763	2894	
==>efault(1, input_string, 0, stack)
    matched = result["!RESULT"]
    if matched goto printResults

printMatchFailed:
    print "Mat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824516	824614	
==>ernal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_str(entry <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825587	825685	
==>ernal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_str(entry <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15327	15460	
==>)).'?'/eg;
      $x;
    } @_;
  } else { # return a single scalar
    ($x = ((@_ == 1) ? $_[0] : join '', @_)
    ) =~ s/([F\x00-\x1F <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16508	16641	
==>)).'?'/eg;
      $x;
    } @_;
  } else { # return a single scalar
    ($x = ((@_ == 1) ? $_[0] : join '', @_)
    ) =~ s/([F\x00-\x1F <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33825	33978	
==>lf->decl($self->{class}, $method, 0);
    my $ret_def = '';
    my $func_ret = '(void) ';
    if ($method->{type} ne 'void') {
        my $type = $method- <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	5684	5949	
==>sical line in the output.

=cut

sub line_directive_here {
    my ($self, $output, $file) = @_;

    # Compilers count lines from 1, and on the 1st line there are no preceding
    # newlines, so *this* line is (number of newlines plus one).
    # But that's the numb <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1739	1881	
==>register_num++;
	}

	# Do code for each push.
	$pir .= "\${ITEMP0} = 0\n";
	for (1..$pushes) {
		$pir .= <<'PIR';
# Get type (so we can find re <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2387	2504	
==>register_num++;
	}

	# Do code for each push.
	$pir .= "\${ITEMP0} = 0\n";
	for (1..$pushes) {
		$pir .= <<'PIR';
# In <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	27838	27975	
==>->[1]{'start_line'},
          "=back doesn't take any parameters, but you said =back $content"
        );
      }

      if(@$curr_open a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	328136	328310	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_r4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	328803	328977	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_r4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	7243	7383	
==>tee >= $t->maxlen());

    # Need more for even the shortest match of this subtree?
    if (($t->minlen() || 0) > $guarantee) {
        my $n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465619	465864	
==>\n  {{\@1}}--;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dec" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	466240	466485	
==>\n  {{\@1}}--;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dec" <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	3571	3724	
==>y all string.
        next if /^\s*\".*\"(\);|,)?$/;

        if (length($_) > 79) {
            warning($file, $line, "line more than 79 columns. (" . le <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1824	1922	
==>PATIBLE
	and	croak "Yapp driver version $VERSION ".
			  "incompatible with version $$self{VERSIO <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1760	1856	
==>PATIBLE
	and	croak "Yapp driver version $VERSION ".
			  "incompatible with version $$self{VERSIO <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	5375	5475	
==>ts => $num_tests );

A convenient way to set up your tests.  Call this and Test::Builder
will print t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	30935	31060	
==>xt_t * const caller_ctx = PMC_cont(ccont)->to_ctx;\n\tif (! caller_ctx) {\n\t    real_exception(interpreter, NULL, INVALID_OPE <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77379	77476	
==>astrulename;
	if ($tracerulename) { $lastrulename = $tracerulename }

	$tracecontext =~ s/\n/\\n/g <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973813	974149	
==>E" => "inline",
                  "CODE" => 1094,
                  "ARGS" => [
                              "i",
                              "ic",
                              "s",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/st <==
2	/Users/nnunley/parrot/config/auto/memalign.pm	1581	1721	
==>~ /ok/) {
        $test2 = 1;
    }
    cc_clean();

    $conf->data->set(malloc_header => undef);

    my $f =
          $test2 ? 'posix_mem <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7400	7525	
==>command
{
    my ($command, $out, $err, $verbose) = @_;

    if ($verbose) {
        print "$command\n";
    }

    # Mostly c <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2342	2461	
==>_file( $code, $lang_fn );

        # STDERR is written into same output file
        my $exit_code = Parrot::Test::ru <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1862	1978	
==>_file( $code, $lang_fn );

        # STDERR is written into same output file
        my $exit_code = Parrot::Test::ru <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18285	18419	
==>' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36,
			")" => 99
		},
		GOTOS => {
			'exp' => 100 <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	22530	22649	
==>";

   $const MMD_init _temp_mmd_init[] = {
        $mmd_list
    };
    /*  Dynamic PMCs need the runtime type
	which i <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	8690	8994	
==>{optional}) {
                $usage = "?$usage $usage ...?";
            } else {
                $usage = "$usage ?$usage ...?";
            }
        } else {
            $usage = "?$usage?" if $arg->{optional};
        }
        
        push @results, $usage;
    }

    my $result = join " ", @resul <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058143	1058343	
==>",
                              "k",
                              "sc"
                            ],
                  "BODY" => "#line 194 \"src/ops/var.ops\"\n    {{\@1}} = Parrot_get_global_p(int <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15075	15188	
==>ditto for
C<$Name2character{$name}> and
C<chr($Name2character_number{$name})>.

=head1 SEE ALSO

L<perlpod|perlpod <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	14112	14241	
==>=> -17
	},
	{#State 24
		ACTIONS => {
			"?" => 43
		},
		DEFAULT => -15
	},
	{#State 25
		ACTIONS => {
			"?" => 44
		},
		DEFAUL <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	457	572	
==>rectory;

use strict;
use warnings;

use base qw( Parrot::IO::Directory );

use Parrot::Docs::File;

=item C<file_cl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	3360	3536	
==>ch op */\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS",
                  "NAME" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	3911	4087	
==>ch op */\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS",
                  "NAME" => <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7389	7568	
==>ons{ignore}
		    :					 ''
		    ;

	if (!defined $ldel) { $ldel = '<\w+(?:' . gen_delimited_pat(q{'"}) . '|[^>])*>'; }
	$@ = undef;

	my @match = _match_tagged($textref, $pre, $l <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24391	24541	
==>ons{ignore}
		    :					 ''
		    ;

	if (!defined $ldel) { $ldel = '<\w+(?:' . gen_delimited_pat(q{'"}) . '|[^>])*>'; }

	my $posbug = pos;
	for ($lde <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	32285	32413	
==>empty
      if(  @{$treelet->[$i]} == 2
       or (@{$treelet->[$i]} == 3 and $treelet->[$i][2] eq '')
      ) {
        $self->w <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	42687	42815	
==>empty
      if(  @{$treelet->[$i]} == 2
       or (@{$treelet->[$i]} == 3 and $treelet->[$i][2] eq '')
      ) {
        $self->w <==
2	/Users/nnunley/parrot/tools/dev/symlink.pl	978	1109	
==>);
} else {
    die "$0: I am very confused.\n";
}

my @toolsrcdir = File::Spec->splitdir($toolsrcdir);
die "$self: not in tools/dev <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61477	61765	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorson",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62120	62408	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorson",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39470	39860	
==>=> [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 50,
                  "ARGS" => [
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 720 \"src/ops/core.ops\"\n  if ({{\@1}} = <==
2	/Users/nnunley/parrot/config/gen/PodText.pm	780	900	
==>ed by a flattened hash.

=back

=cut

package gen::PodText;

use strict;
use vars qw($description $result @args);

use ba <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35192	35309	
==>subrule} . ']<< (return value: [}
					. $_tok . q{]},
					  
					  Parse::RecDescent::_tracefirst($text),
					  q{ <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	3177	3330	
==>-run'   => 0,
              );

my @manifests;
foreach (@ARGV) {
    if (/^--([^=]+)=(.*)/) {
        $options{$1} = $2;
    } else {
        push @manife <==
2	/Users/nnunley/parrot/lib/File/Which.pm	6523	6689	
==>me significant platform-related changes, taken from
the Perl Power Tools C<`which'> implementation by Abigail with
enhancements from Peter Prymmer. See
http://www.perl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129813	130090	
==>"\n  {{\@1}} ^= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130552	130829	
==>"\n  {{\@1}} ^= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	31780	31907	
==>mplemented iteratively!  Whee!

  while($treelet = shift @stack) {
    for(my $i = 2; $i < @$treelet; ++$i) {
      # iterate ov <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3913	4016	
==>Name => 'return' });
  $value->sax($handler) if defined $value;
  $handler->end_element({ Name => 'retur <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10678	10810	
==>'}{"/$tagname"}) or next;
      $scratch =~ s/\#([^\#]+)\#/${$self}{$1}/g; # interpolate
      print $fh $scratch;
    }
  }
  return <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	2822	2994	
==>c && /^\s*#|^\s*$/;
        
        # Is this a new rule?
        if (!$in_heredoc && /^\s*\[([\w\.]+)\]\s*$/) {
            # If we have a current rule...
            my $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037255	1037521	
==>ME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038035	1038301	
==>ME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	1596	1756	
==>s, expect 99 and "Hello"
function foo(i, thing$())
	print i
	print thing$(10)
	foo=1
end function
dim fool$()
fool$(10)="Hello"
a=foo(99, fool$())

' String Arra <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	12877	12994	
==>$name);
        $self->_cmp_diag($got, 'ne', $dont_expect) unless $test;
        return $test;
    }

    return $self <==
2	/Users/nnunley/parrot/tools/dev/symlink.pl	1045	1176	
==>= File::Spec->splitdir($toolsrcdir);
die "$self: not in tools/dev\n"
  unless @toolsrcdir >= 2 &&
         lc($toolsrcdir[-1]) eq 'd <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10260	10504	
==>n unless
        ( defined $to and length $to ) or
        ( defined $section and length $section );
    
    if ( defined $to and length $to ) 
    {
        $to = $self->resolve_pod_page_link($to, $section);
        
        return unless defi <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5544	5651	
==>o=$$stack[-1][0];
        $actions=$$states[$stateno];

#DBG>	print STDERR ('-' x 40),"\n";
#DBG>		$debu <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5277	5380	
==>o=$$stack[-1][0];
        $actions=$$states[$stateno];

#DBG>	print STDERR ('-' x 40),"\n";
#DBG>		$debu <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	197	340	
==>od::Simple::BlackBox ();
#use utf8;

use vars qw(
  $VERSION @ISA
  @Known_formatting_codes  @Known_directives
  %Known_formatting_codes  %Known <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	176	300	
==>C - IMCC documentation section

=head1 SYNOPSIS

	use Parrot::Docs::Section::IMCC;

=head1 DESCRIPTION

A documentation secti <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	32195	32323	
==>rom inside an END block.  It
doesn't actually exit, that's your job.

=cut

sub _my_exit {
    $? = $_[0];

    return 1;
}


=ba <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	4	105	
==>Call.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subje <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	4	105	
==>Call.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subje <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	70165	70271	
==>o
	  || $grammar =~ m/$EXACTLY/gco
	  || $grammar =~ m/$ATMOST/gco
	  || $grammar =~ m/$BETWEEN/gco && do { <==
2	/Users/nnunley/parrot/config/auto/gc.pm	1148	1272	
==>if ($conf->data->get('i_malloc')) {
            $conf->data->set(malloc_header => 'malloc.h');
        } else {
            $ <==
2	/Users/nnunley/parrot/config/auto/memalign.pm	947	1059	
==>if ($conf->data->get('i_malloc')) {
        $conf->data->set(malloc_header => 'malloc.h');
    } else {
        $ <==
2	/Users/nnunley/parrot/config/inter/shlibs.pm	221	313	
==>ser which flags are needed for compiling position-independent code
for use in shared librarie <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208800	209272	
==>AGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 246,
                  "ARGS" => [
                              "p",
                              "nc",
                              "ic"
                            ],
                  "BODY" => "#l <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	12349	12475	
==>t       math.h
lrintf      math.h
lrintl      math.h
lround      math.h
lroundf     math.h
lroundl     math.h
malloc      stdli <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	15618	15853	
==>rective
{
	my ( $self, $line, $minrep, $maxrep ) = @_;
	unless ($self->{op})
	{
		Parse::RecDescent::_error("Unmatched > found.", $line);
		Parse::RecDescent::_hint(
			"A '>' angle bracket was encountered, which typically
			 indicates <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	928	1049	
==>head1 SYNOPSIS

 TODO

  perl -MPod::Simple::TextContent -e \
   "exit Pod::Simple::TextContent->filter(shift)->any_errata <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9141	9339	
==>ring_cstring_free(label);\n    interpreter->resume_flag = 2;\n    {{=0}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10257	10455	
==>ring_cstring_free(label);\n    interpreter->resume_flag = 2;\n    {{=0}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	4479	4572	
==>y @smokes = map { unpack_smoke($_) } glob "parrot-smoke-*.html";
  push @{ $cats{$category->($ <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	7449	7609	
==>uct at compile time
    use Class::Struct CLASS_NAME => [ ELEMENT_NAME => ELEMENT_TYPE, ... ];
    use Class::Struct CLASS_NAME => { ELEMENT_NAME => ELEMENT_TYPE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980590	980959	
==>E" => "inline",
                  "CODE" => 1100,
                  "ARGS" => [
                              "i",
                              "ic",
                              "sc",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_ <==
2	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	391	533	
==>h (1..10) {
	$arr[$_] = buildarray();
    }

    my @arr1;
    foreach (1..20) {
	$arr1[$_] = buildarray();
    }

    my @arr2;
    foreach (1 <==
2	/Users/nnunley/parrot/examples/benchmarks/stress.pl	350	474	
==>h (1..10) {
    $arr[$_] = buildarray();
}

my @arr1;
foreach (1..20) {
    $arr1[$_] = buildarray();
}

my @arr2;
foreach (1 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6028	6118	
==>require('open-bracket');  }
sub require_open_paren    { return shift->require('open-paren') <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6571	6696	
==>{CURIC}:
if ${ITEMP0} == 0 goto PRE_CALL_END_${CURIC}
dec ${ITEMP0}
dec ${ITEMP2}

# Generate name of register to hold value w <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614993	615107	
==>xception(interpreter, next, NO_CLASS,\n            \"Class not parent of object\");\n    }\n    {{\@1}} = offset;\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616144	616258	
==>xception(interpreter, next, NO_CLASS,\n            \"Class not parent of object\");\n    }\n    {{\@1}} = offset;\n <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4138	4247	
==>ub _DBLoad {
	{
		no strict 'refs';

			exists(${__PACKAGE__.'::'}{_DBParse})#Already loaded ?
		and	retu <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3927	4031	
==>ub _DBLoad {
	{
		no strict 'refs';

			exists(${__PACKAGE__.'::'}{_DBParse})#Already loaded ?
		and	retu <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	60733	60838	
==>ed literal terminal", $aftererror,$line);
			$item = new Parse::RecDescent::InterpLit($1,$lookahead,$line) <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13201	13398	
==>ecDescent::UncondReject->new(0,0,'<reject>');
	}
	elsif (@items==1 && ($items[0]->describe||"") =~ /<rulevar|<autoscore/)
	{
		# Do nothing
	}
	elsif (@items &&
		( ref($items[0]) =~ /\AParse::RecDe <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	2759	2891	
==>f->{'token_buffer'} }
   ),
   @{ $self->{'token_buffer'} } ? '' : '       (no tokens)',
   "\n"
  ;

  until( @{ $self->{'token_buff <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	43759	43904	
==>e, 0);
    if (exists $func->{value}) {
      my $symbol = $func->{value};
      if (exists $global_ops{$symbol}) {
	$return = $global_ops{$symbol <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8431	8565	
==>pmc iter
    iter = new .Iterator, op1
loop_begin:
    unless iter goto no_gots
    value_at = shift iter
    if value_at == op2 goto g <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	12682	12817	
==>0,
			'CHAR' => 4,
			"<" => 3,
			"[" => 14,
			'CODE' => 6,
			"." => 15
		},
		GOTOS => {
			'expr' => 11,
			'charclass' => 12,
			' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	15237	15372	
==>0,
			'CHAR' => 4,
			"<" => 3,
			"[" => 14,
			'CODE' => 6,
			"." => 15
		},
		GOTOS => {
			'expr' => 11,
			'charclass' => 12,
			' <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4691	4789	
==>estination=DIRECTORY
    shift(@pmcs) =~ /--destination=(.*)/
      or die "copy command requires d <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4795	4893	
==>estination=DIRECTORY
    shift(@pmcs) =~ /--destination=(.*)/
      or die "copy command requires d <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15558	15651	
==>d 7f-ff.
    $x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/e <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16737	16830	
==>d 7f-ff.
    $x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/e <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	1388	1516	
==>$user=0;
		if ($syms[CURR] eq "as") {
			feedme;
			$stype=$syms[CURR];
			feedme; # N
			my %th=( single => 'FLO', double => 'FL <==
2	/Users/nnunley/parrot/config/auto/aio.pm	109	216	
==>10975Z coke  $

=head1 NAME

config/auto/aio.pm - Test for AIO

=head1 DESCRIPTION

Determines whether the p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359334	359433	
==>t s = {{\@1}};\n  if (s && string_length(interpreter, s)) {\n    PIO_putps(interpreter, PIO_STDERR(i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360082	360181	
==>t s = {{\@1}};\n  if (s && string_length(interpreter, s)) {\n    PIO_putps(interpreter, PIO_STDERR(i <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	3764	3874	
==>$new_pc} = 1 if $is_branch;
    }

    my $enternative;

FINDENTERN:
    foreach my $cur_op (@$Parrot::OpLib::c <==
2	/Users/nnunley/parrot/config/auto/jit.pm	938	1090	
==>my ($cpuarch, $osname) = split(/-/, $archname);

    if (!defined $osname) {
        ($osname, $cpuarch) = ($cpuarch, q{});
    }

    # This was added t <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7176	7285	
==>$rules[-$act]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print STDERR "Reduce using rule ".-$act. <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6844	6949	
==>$rules[-$act]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print STDERR "Reduce using rule ".-$act. <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	546	652	
==>s defined $block;
  confess "Left is not defined!" unless defined $left;
  confess "Op is not defined!" unl <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	558	664	
==>s defined $block;
  confess "Left is not defined!" unless defined $left;
  confess "Op is not defined!" unl <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	139	227	
==>s the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Statement/Lo <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	970	1083	
==>::Driver;

require 5.004;

use strict;

use vars qw ( $VERSION $COMPATIBLE $FILENAME );

$VERSION = '1.05' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	942	1047	
==>::Driver;

require 5.004;

use strict;

use vars qw ( $VERSION $COMPATIBLE $FILENAME );

$VERSION = '1.05' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1742	1842	
==>er'}. "  }
sub start_item_text   { $_[0]{'Thispara'} = ''   }

sub start_over_bullet  { ++$_[0]{'Inde <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1310	1410	
==>er'}. "  }
sub start_item_text   { $_[0]{'Thispara'} = ''   }

sub start_over_bullet  { ++$_[0]{'Inde <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	937	1237	
==>conf->data->add(' ', libs => 'gmp.lib');
        }
    } else {
        $conf->data->add(' ', libs => '-lgmp');
    }

    my $osname = $Config{osname};

    # On OS X check the presence of the gmp header in the standard
    # Fink location. TODO: Need a more generalized way for finding
    # where F <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5772	5889	
==>%libs = %{ $class->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There should be at most a single <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5983	6100	
==>%libs = %{ $class->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There should be at most a single <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2249	2548	
==>C code.

=cut

sub goto_offset
{
    my ($self, $offset) = @_;

    if ($offset =~ /^-?\d+$/)
    {
        return sprintf("goto PC_%d", $self->pc + $offset);
    }
    else
    {
        return sprintf("cur_opcode = &&PC_%d; cur_opcode += %s; goto switch_label", $self->pc, $offset);
    }

    #pri <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1678	1785	
==>get, $pattern)
        : Parrot::Test::PGE::_generate_pir_for($target, $pattern)
    );

    goto &Parrot::T <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2201	2308	
==>get, $pattern)
        : Parrot::Test::PGE::_generate_pir_for($target, $pattern)
    );

    goto &Parrot::T <==
2	/Users/nnunley/parrot/config/gen/platform.pm	56	165	
==>parrot/config/gen/platform.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/gen/platform.pm - <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	50434	50666	
==>ound apparent simple end-text code \"$4\"\n";

      if(@stack and ! $stack[-1]) {
        # We're indeed expecting a simple end-code
        DEBUG > 4 and print " It's indeed an end-code.\n";

        if(length($4) == 2) { # There w <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21512	21620	
==>tive_p {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11464	11569	
==>lf->output_match_succeeded(),
            ".return (<rx_match>)");
}

sub output_rule_fail {
    my ($self <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	43589	43765	
==>a-z0-9]*	# FOLLOWED BY ANY NUMBER OF ALPHANUMERICS
	   /x'

will be extracted as if it were:

	'm /
		(?i)		# CASE INSENSITIVE
		[a-z_]		# LEADING ALPHABETIC/'

This behaviour i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23449	23628	
==><value> <op> <value>);
    #   next unless (<value> <op> <value>);
    #
    #   next <label>;
    #   next <label> if     (<value> <op> <value>);
    #   next <label> unless (<val <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32097	32244	
==>STACK0\}/ &&
		    $rule->{'instruction'} =~ /\$\{STOREREG\}/) {
			die "instruction must use one of \${STACK0} or \${STOREREG} in rule " .
				"$ru <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	15924	16042	
==>hould we really be allowing the shift constant to be negative?
    #

    if ($token->is_ident
      and $self->get(1)- <==
2	/Users/nnunley/parrot/lib/Test/More.pm	4833	5053	
==>my $item = $_[$idx];

        if( $item eq 'import' ) {
            push @imports, @{$_[$idx+1]};
            $idx++;
        }
        else {
            push @plan, $item;
        }

        $idx++;
    }

    plan(@pla <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	2523	2623	
==>_executable()>

This tells you whether the file is executable.

=cut

sub is_executable
{
    my $sel <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57896	58134	
==>@1}} = interpinfo_s(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58658	58896	
==>@1}} = interpinfo_s(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	4535	4712	
==>ectory_with_name('docs');
}

=item C<html_docs_directory()>

Returns the HTML documentation directory.

=cut

sub html_docs_directory
{
    my $self = shift;
    
    return $sel <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303383	303803	
==>> "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 353,
                  "ARGS" => [
                              "i",
                              "s",
                              "sc"
                            ] <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	15473	15633	
==>e(assembly, class_type, class_id)
    $S0 = namespace_to_key($S0)
    gen_pir = concat $S0
    gen_pir = concat "\nif $I1000000 goto TYPED_EH_FOUND_"
    tmp = h <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	3697	3811	
==>b dfa_safe { 0 }

# Superclass for ops like scan(R) that contain a single subexpression.
# By default, all calls ar <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1964	2101	
==>dule.";

        ref($class)
    and $class=ref($class);

    bless($self,$class);
}

sub YYParse {
    my($self)=shift;
    my( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1897	2024	
==>dule.";

        ref($class)
    and $class=ref($class);

    bless($self,$class);
}

sub YYParse {
    my($self)=shift;
    my( <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	37372	37674	
==>,
            'prolog' => 1,
            'arg1'   => $defn,
            'result' => $lbl,
        );
        push @opcodes2, new AssignOp( $parser,
            'prolog' => 1,
            'result' => $defn,
            'arg1'   => $nil->[0],
        );
        push @opcodes2, new LabelOp( $par <==
2	/Users/nnunley/parrot/config/auto/funcptr.pm	1116	1227	
==>ntinue without JIT support, please re-run this script
With the '--jitcapable=0' argument.
END
            exit(- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761928	762251	
==>",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 860,
                  "ARGS" => [
                              "ic",
                              "p"
                            ],
                  "BODY" => "#line 305 \"src/ops <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	1487	1619	
==>:new($path) ) {
        return $dist = $self if $self->file_exists_with_name('README') and 
                                $self->fi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	43702	43868	
==>n-formatty!  Yay!\n";
      }
    } else {
      DEBUG > 5 and print "  It's not a formatty line.  Ignoring\n";
      next;
    }

    # A formatty line has to have #: <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2822	2928	
==>ng or trailing whitespace on the file 
sub trim_whitespace {
    my ($file, $source) = @_;

    return unle <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600179	600281	
==>eadable_name(interpreter, {{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n         \"Class <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601255	601357	
==>eadable_name(interpreter, {{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n         \"Class <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4557	4666	
==>>{args};
        return $self->op('nop', [], %$self);
    } elsif (@{ $self->{args} } == 1 && 2 == keys %$self <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5694	5803	
==>>{args};
        return $self->op('nop', [], %$self);
    } elsif (@{ $self->{args} } == 1 && 2 == keys %$self <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	7427	7593	
==>ect '$key' yet!";
        $value = File::Spec->devnull
            if $value eq '/dev/null';
    }

    my $out = $options{'STDOUT'} || '';
    my $err = $options{'STD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029838	1029930	
==>\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_event(interpreter, {{\@1}}, next) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030680	1030772	
==>\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_event(interpreter, {{\@1}}, next) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	2968	3077	
==>ken buffer...\n";
    if($self->{'source_dead'}) {
      DEBUG and print "$self 's source is dead.\n";
      p <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28194	28304	
==>v, "post_op for rule $rule->{'name'}");
		$pir .= "### end post_op\n";
	}

	# Loads (load class).
	elsif ($rule <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34428	34529	
==>over 4

=cut

package Parrot::Pmc2c::default;
use base 'Parrot::Pmc2c';
import Parrot::Pmc2c qw( gen_r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611085	611224	
==>p"
                            ],
                  "BODY" => "#line 491 \"src/ops/object.ops\"\n    VTABLE_set_attr(interpreter, {{\@1}}, { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611988	612127	
==>p"
                            ],
                  "BODY" => "#line 491 \"src/ops/object.ops\"\n    VTABLE_set_attr(interpreter, {{\@1}}, { <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	2937	3268	
==>$tagname eq 'Data') 
    {
        $self->process_data_start_token($token);
    } 
    else 
    {
        $self->process_other_start_token($token);
    }
}

=item C<process_link_start_token($token)>

Processes the link start token.

=cut

sub process_link_start_token
{
    my $self = shift;
    my $token = shift;
    my $text = $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	37176	37332	
==>s>
      my $section_name;  # set to arrayref if found
      DEBUG > 3 and print "  Peering at L-content for a '/' ...\n";
      for(my $j = 0; $j < @ell_con <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19531	19651	
==>"DONE_$label");
  $self->_restore($temp_0);
  return $return;
}

sub _op_gt {
  my ($self,$node) = @_;
  my $return;
  my <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	1018	1194	
==>rc64/) {

        # CFLAGS entries must be left-aligned.
        print CFLAGS <<"EOF";
src/jit_cpu.c -{-Wcast-align}        # lots of noise!
src/nci.c     -{-Wstrict-prototypes} <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	2851	2997	
==>nterpreter', 
            '',
            $self->c_pair_item('', 'embed'),
            $self->c_pair_item('', 'global_setup'),
            $self->c <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3258	3387	
==>0}{ };
    $self->{'Thispara'} =~ tr{\xAD}{}d;
  }

  my $i = ' ' x ( 2 * $self->{'Indent'} + 4);
  
  $self->{'Thispara'} =~ s/^/ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	61610	61704	
==>tch it.

=item C<Did not find closing delimiter to match '%s'>

C<extract_quotelike> was unable <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	29926	30034	
==>about finding the right package to look for $TODO in.  It
uses the exported_to() package to find it.  If that <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614855	614954	
==>xt = {{^+4}};\n    INTVAL offset;\n    offset = Parrot_class_offset(interpreter, {{\@2}}, {{\@3}});\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616006	616105	
==>xt = {{^+4}};\n    INTVAL offset;\n    offset = Parrot_class_offset(interpreter, {{\@2}}, {{\@3}});\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3022	3127	
==>. Pops the address off control stack.

=item C<expr OFFSET(X)>

Transforms to C<PC + X>. This is used to g <==
2	/Users/nnunley/parrot/config/init/hints.pm	196	290	
==>N

Loads the platform and local hints files, modifying the defaults set up in
F<config/init/def <==
2	/Users/nnunley/parrot/tools/dev/symlink.pl	1646	1788	
==>le = File::Spec->catfile($topsrcdir, @manifile);
	    unless (-f $srcfile) {
		warn "$self: cannot find $dstfile\n";
		next;
	    }
	    push @ <==
2	/Users/nnunley/parrot/config/auto/pack.pm	1007	1137	
==>== $longsize) && ($size == $Config{longsize})) {
            $format = 'l!';
        } elsif ($size == 4) {
            $format = ' <==
2	/Users/nnunley/parrot/config/auto/readline.pm	1010	1136	
==>dd(' ', libs => 'readline.lib');
        }
    } else {
        $conf->data->add(' ', libs => '-lreadline');
    }

    my $osn <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	2015	2195	
==>he location given by the C<--bindir> option

=back

The optional C<destination> field provides a general way to change
where a file will be written to. It will be applied before any <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	4125	4268	
==>op2, $dest ]);
    } else {
        my $testop = rop('test', [ $op1, $rev_test, $op2,
                                   rop('goto', [ $continue <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554783	555179	
==>"i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 637,
                  "ARGS" => [
                              "p",
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line 94 \"src/ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	5989	6198	
==>(), which searches only locally.

=cut

sub find_symbol
{
  my $self = shift; # Required: Jako::Construct::Block
  my $name = shift; # Required: (TODO: domain)

  confess "No block!"  unless defined $self and r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660124	660236	
==>2}}) ? 0 : {{\@2}}->vtable->exists_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661046	661158	
==>2}}) ? 0 : {{\@2}}->vtable->exists_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	43446	43573	
==>ious line ", $i-1, ": $$p[$i-1]: \n";
      
      if( $p->[$i-1] =~ m{^#:[ \^\/\%]*\n?$}s ) {
        DEBUG > 5 and print "  Pr <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	14001	14237	
==>stamble = join("\n    ", @{$extra_postamble_ref});
    my $return_data     = "$return_assign $final_assign" =~ /return_data/ ?
                              qq{$ret_type_decl return_data;} :
                              q{};

    if (le <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505388	505748	
==>",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 581,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 631 \"src/ops/m <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	2676	2861	
==>= shift;
    my $delim = shift;
    
    while (my ($key, $val) = splice @_, 0, 2) {
        my ($old) = $self->{c}{$key};
        if (defined $old) {
            $self->set($key, "$old$ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1825	1962	
==>head1 Hi there":

  $parser->start_head1( \%attributes ) if $parser->can('start_head1');
  $parser->handle_text( "Hi there" )   if $parser <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	181	306	
==>s/jako/lib/Jako/Construct/Block/Conditional/If.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14111	14233	
==>00
end function
dim z as second
z.number=13
z.pointer.foo=12
print mine(foo,20,z.pointer)
print z.pointer.foo

' Array acce <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	1633	1791	
==>{
        TEXT => $text,
        CONTENTS => \@contents,
    }, $self;

    return $self;
}


=back

=head2 Instance Methods

=over 4

=item C<set_parent($pare <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7957	8102	
==>BRANCH_$_:\n";
		}
=cut
UNK:	if (($type[CURR] eq "STMT" or $type[CURR] eq "COMM") and $singleif) {

		$_=pop @ifstack;
		if ($_ < 0 ) {
			# print <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	36319	36538	
==>);

        next;  # and skip
      } elsif($para_type eq '~Verbatim') {
        $para->[0] = 'Verbatim';
        $para_type = '?Verbatim';
      } elsif($para_type eq '~Para') {
        $para->[0] = 'Para';
        $par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811524	811785	
==>ble->get_pmc_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812426	812687	
==>ble->get_pmc_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	4461	4623	
==>_dirs
{
    my $self = shift;

    return @{$self->{ARGDIRS}};
}

=item C<labels()>

Returns the labels.

=cut

sub labels
{
    my $self = shift;

    return @{$s <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	2548	2673	
==>OUT $self->_code();

		print OUT "}\npackage $class; sub new { ";
# SEAN: this is bad.
# 		print OUT "my ";

		require Data::D <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	263	368	
==>atal qw{open};
use File::Spec;
use Getopt::Std;
use Text::Balanced; # XXX temporarily limit ourselves to p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	200	299	
==>/Construct/Statement/Return.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use wa <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Compilers.pm	742	876	
==>te Code Compiler for Parrot',
            'compilers/ast',
            'compilers/imcc' ),
        $self->new_group( 'PGE', 'the Par <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	5658	5782	
==>ories) {
	unless (-d $dir) {
	    # Make full path to the directory $dir
	    my @dirs;
	    while (! -d $dir) { # Scan up to <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	1776	1913	
==>nfig/gen/makefiles/dynoplibs_pl.in' => 'tools/build/dynoplibs.pl',
        commentType                             => '#',
        replace <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	16673	16794	
==>stent
elements are silently ignored.

Note that the initializer for a nested class may be specified as
an object of that c <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	820	1038	
==>ple optimizations:
#
# 1. R(ST)    -> RST
# 2. aR|aS    -> a(R|S)
#    R|<null> -> R?
#    <null>|R -> R??
#
sub pass1 {
    my ($self, $t, $ctx) = @_;
    my $type = $t->{name};
    if ($type eq 'seq') {
        # R.(S <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	1055	1470	
==>,
       s => "short",
       2 => "short *",
       f => "float",
       d => "double",
       t => "char *",
       v => "void",
#      b => "void *",
#      B => "void **",
       P => "PMC *",
       S => "STRING *",
       I => "INTVAL",
       N => "FLOATVAL",
     );

my %proto_type =
     ( p => "void *",
       i => "int",
       3 => "int *",
       l => "long",
       4 => "long *",
       c => "char", <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	262	385	
==>, @Test::More::EXPORT );
@ISA = qw(Exporter Test::More);

sub import {
    my( $class, $plan, @args ) = @_;

    Test::More- <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	179	302	
==>, @Test::More::EXPORT );
@ISA = qw(Exporter Test::More);

sub import {
    my( $class, $plan, @args ) = @_;

    Test::More- <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	44499	44670	
==>sp($treelet,0) if $self->{'nbsp_for_S'};

  # TODO: or a change_nbsp_to_S
  #  Normalizing nbsp's to S is harder: for each text node, make S content
  #  out of anything ma <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	7803	7916	
==>nt SOURCE @cg_jump_table;
    print SOURCE <<END_C;
        NULL
    };
END_C
    print SOURCE $trans->run_core_af <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9033	9132	
==>prevoffset}?'
	my $prevoffset;
	tie $prevoffset, q{Parse::RecDescent::OffsetCounter}, \$text, $thisp <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	3423	3580	
==>y ($self, $op, $R) = @_;
    return $R, aop('goto', [ $self->{_return} ]);
}

sub rewrite_goto {
    my ($self, $op, $R, $lastback) = @_;
    return aop('goto <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	55733	55865	
==>nd do { ($code) = extract_codeblock($grammar,'{',undef,'<');
					 $code;
				       } )
			{
				_parse("a token constructor", $afte <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	8149	8389	
==>dy       = '';
            $seen_op    = 1;
            $line	      = $.+1;

            my @temp = ();

            foreach my $arg (@args)
            {
                my ($use, $type) = $arg =~
                    m/^(in|out|inout|incons <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	32637	32815	
==>$sub = (CORE::caller($stack))[3];  $stack++ ) {
        $in_eval = 1 if $sub =~ /^\(eval\)/;
    }
    $Test->{Test_Died} = 1 unless $in_eval;
};

sub _ending {
    my $self = shi <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	3697	3904	
==>xpr    => '__expr',
        int     => '__integer',
        list    => '__list',
        script  => '__script',
        var     => '__read',
    );
    
    # add code to get subs for needed conversions
    m <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	4371	4564	
==>xpr    => '__expr',
        int     => '__integer',
        list    => '__list',
        script  => '__script',
        var     => '__read',
    );
    
    my $code = "";
    for my $i (0..$#ar <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714568	714668	
==>PMC * const io = PIO_STDOUT(interpreter);\n  if (s && string_length(interpreter, s)) {\n    if (PIO_s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715491	715591	
==>PMC * const io = PIO_STDOUT(interpreter);\n  if (s && string_length(interpreter, s)) {\n    if (PIO_s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2745	2847	
==>' x NEGATIVE gives '', same as 'STRING' x 0

  $self->{'Thispara'} =~ tr{\xAD}{}d if Pod::Simple::ASCII <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2279	2381	
==>' x NEGATIVE gives '', same as 'STRING' x 0

  $self->{'Thispara'} =~ tr{\xAD}{}d if Pod::Simple::ASCII <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784293	784391	
==>BODY" => "#line 392 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_pmc_keyed_int(interpreter, {{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785199	785297	
==>BODY" => "#line 392 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_pmc_keyed_int(interpreter, {{\@1} <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	17453	17558	
==>turn($code);
}

__END__ 

=head1 NAME

tools/gen_operator_defs.pl - Generate the definitions for all the v <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	1120	1383	
==>sts $gnuc{__GNUC__}) {
        $conf->data->set(gccversion => undef);
        return $self;
    }

    my $major = $gnuc{__GNUC__};
    my $minor = $gnuc{__GNUC_MINOR__};
    unless (defined $major) {
        print " (no) " if $verbose;
        $self->set_result(' <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19642	19763	
==>print a$,
next i
close #2
print

' ON..GOTO   200! and then Oats..
t=2
on t goto 100, 200, 300
print "No match\n"
FIN:
for <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	2211	2341	
==>{longsize} == 4) {
        $conf->data->set(int4_t => 'long');
    } else {
        $conf->data->set(int4_t => 'int');
        prin <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2809	2917	
==>urce))
	{
		$index_html .= $content->write_html($source, $target, $silent);
	}
	
	return $index_html;
}

=ite <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	5845	5949	
==>it',   'uninit');
warn_if_both($Def,    $Undef,   'def',    'undef');

$Undef ||= !$Def if defined $Def & <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	330065	330179	
==>e 169 \"src/ops/dotgnu.ops\"\n  {{\@1}} =  (FLOATVAL)(Parrot_Float8)({{\@1}});\n  {{+=2}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14820	15004	
==>@@@@@@@@@@@@@@@
#
#  Methods that actually do work at parse-time:

sub _handle_element_start {
  my $self = shift;   # leaving ($element_name, $attr_hash_r)
  DEBUG > 2 and print "++ $_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	382	490	
==>::Construct::Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected 5 args!" unless <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	382	490	
==>::Construct::Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected 5 args!" unless <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2823	2979	
==>ile',
	'MAINTAINER' => 'Maintainer info',
	'Makefile' => 'Makefile',
	'MANIFEST' => 'Manifest file',
	'NEWS' => 'Project info',
	'PBC_COMPAT' => 'Bytecode co <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	28833	28958	
==>f->whine( $start_line, "A non-empty Z<>" );
      }      # but kill it anyway
        
      splice(@$treelet, $i, 1); # there <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16774	16880	
==>erse = reverse _get_args($node);

  for (@reverse) {
    my $item = $self->_generate($_);
    my $pair = $s <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	12294	12493	
==>ssue the same command.
  </p>

  <p>
    Note that old smoke reports are automatically deleted, so you may not want
    to link directly to a smoke.
  </p>
    
  <p> 
    Note: Timezone is UTC.<br /> <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	4483	4602	
==>T|...)
        my $leftovers = $self->pass1(rop('alternate', \@children), $ctx);
        @{ $t->{args} } = ($opt, $lefto <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129873	130170	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "AR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130612	130909	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "AR <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	3633	3796	
==>pe
                                for objects: the class PMC */
    PMC *mro;                /* array PMC of [class, parents ... ] */
    /* Vtable Functions */

E <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705364	705813	
==>o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 791,
                  "ARGS" => [
                              "p",
                              "ic",
                              "i",
                              "ic"
                            ],
                  "BODY" = <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	903	1194	
==>fig($parrot_path, $srm);

# Generate makefile.
generate_makefile(%config);

# Generate Config.pm.
generate_config_pm(%config);


# #############################################################################


# Get Parrot Configuration
# ########################
sub get_parro <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	31877	31975	
==>te
original text, and the prefix returned in the third element is an
empty string.

In a scalar con <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	293	400	
==>"use warnings";

package Jako::Construct::Statement::Return;

use Carp;

use base qw(Jako::Construct::Statem <==
2	/Users/nnunley/parrot/config/init/hints/cygwin.pm	1140	1276	
==>g  => 0,
        has_dynamic_linking => 1,
        parrot_is_shared    => 1,
        sym_export => '__declspec(dllexport)',
        sym_i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470954	471201	
==>" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 394 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\ <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	856	960	
==>m
(L<http://www.gedanken.demon.co.uk/cxref/>) to extract information from
the program source about what f <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2708	2842	
==>er char *   _reg_base   asm ("edi");
#else
    opcode_t *cur_opcode = cur_op;
    char * _reg_base;
#endif

    static void *const l_op <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	5393	5533	
==>="dsFloat" />
      <itemData name="Int" defStyleNum="dsDecVal" />
      <itemData name="Label" defStyleNum="dsKeyword" />
      <itemData na <==
2	/Users/nnunley/parrot/Configure.pl	2912	3015	
==>ve executable.

=item C<--gc=(type)>

Determine the type of garbage collection. The value for C<type> sh <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	314	441	
==>ethody');
BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG)
          ? \&Pod::Simple::DEBUG
          : sub() {0}
      }

use Text <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	196	323	
==>ethody');
BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG)
          ? \&Pod::Simple::DEBUG
          : sub() {0}
      }

use Text <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	7624	8207	
==>on     { return shift->skip('semicolon');     }
sub skip_type          { return shift->skip('type');          }

sub skip_value         { return shift->skip('ident', 'literal'); }


###############################################################################
###############################################################################
##
## MESSAGES:
##
###############################################################################
###############################################################################


#
# DEBUG()
#

sub DEBUG
{
  my ($self, $level, $format, @arg <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3337	3464	
==>s);

    while (my ($group, $pmcs) = each %$group_files) {
        my @pmcfiles = map { "$_.pmc" } @$pmcs;
        if (needs_bui <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3441	3568	
==>s);

    while (my ($group, $pmcs) = each %$group_files) {
        my @pmcfiles = map { "$_.pmc" } @$pmcs;
        if (needs_bui <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	737	836	
==>conf->options->get('verbose');

    # undef means we don't have bison... default to not having bison <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422777	423089	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "listen <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423673	423985	
==>\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "listen <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	5565	5741	
==>any of the other methods below.

=cut

sub plan {
    my($self, $cmd, $arg) = @_;

    return unless $cmd;

    if( $self->{Have_Plan} ) {
        die sprintf "You tried to plan <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4579	4689	
==>n $self->op('nop', [], %$self);
    } elsif (@{ $self->{args} } == 1 && 2 == keys %$self) {
        return $sel <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5716	5826	
==>n $self->op('nop', [], %$self);
    } elsif (@{ $self->{args} } == 1 && 2 == keys %$self) {
        return $sel <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2645	2755	
==>aking a '=encode utf8'.\n";
        $self->_handle_encoding_line( "=encode utf8" );
        $line =~ tr/\n\r//d <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	6350	6452	
==>},
	'^' => "POW",	
);
%opsubs=(%opsubs, 
	'<=' => sub { &{$opsubs{"="}}(@_[0..2], "le") },
	'>=' => sub <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	4854	4992	
==>er_end
  iter_loop:
    old_type = value_type
    value = shift iter
    bsr print_value
    unless iter goto iter_end
    value_type = typ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11130	11238	
==>NAME

Pod::Escapes -- for resolving Pod EE<lt>...E<gt> sequences

=head1 SYNOPSIS

  use Pod::Escapes qw(e2ch <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947062	947158	
==>n = Parrot_charset_number(interpreter, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, N <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947964	948060	
==>n = Parrot_charset_number(interpreter, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, N <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52701	53032	
==>" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gc_debug",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53456	53787	
==>" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gc_debug",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ] <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4531	4646	
==>ir;
}

sub post_op($$) {
	# Nothing to do.
	return "";
}

# Pre and post branch operation hooks.
sub pre_branch($) { <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2947	3062	
==>ir;
}

sub post_op($$) {
	# Nothing to do.
	return "";
}

# Pre and post branch operation hooks.
sub pre_branch($) { <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	21239	21495	
==>'rulename', 2,
sub
#line 145 "lib/Regex/Grammar.y"
{ return $_[1] . $_[2]; }
	],
	[#Rule 28
		 'rulename', 0,
sub
#line 147 "lib/Regex/Grammar.y"
{ return '' }
	],
	[#Rule 29
		 'range', 6,
sub
#line 151 "lib/Regex/Grammar.y"
{ return { min => $_[2], max => <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	3487	3675	
==>eg'      , 174,
 'macr'     , 175,
 'deg'      , 176,
 'plusmn'   , 177,
 'sup2'     , 178,
 'sup3'     , 179,
 'acute'    , 180,
 'micro'    , 181,
 'para'     , 182,
 'middot'   , 183,
 ' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	10	129	
==>gex::CodeGen::Rx;
use Regex::Ops::Tree ();
use base 'Regex::CodeGen';
use strict;

my $fail_label = Regex::Ops::Tree::ma <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	1713	1873	
==>lua.html', '', 'languages/lua'),
        $self->new_section('M4', 'm4.html', '', 'languages/m4'),
        $self->new_section('Ook!', 'ook.html', '', 'languages/o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123905	124235	
==>\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "F <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124779	125109	
==>\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "F <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28216	28383	
==>rule->{'name'}");
		$pir .= "### end post_op\n";
	}

	# Loads (load class).
	elsif ($rule->{'class'} eq 'load') {
		# Undef the loadtype so we can detect case where typ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4615	4718	
==>hanged.

Accepts a key name, a trigger name, & a C<CODE> ref and returns a
L<Parrot::Configure::Data> ob <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	4867	4968	
==>x: /$pre/", $startpos;
		return;
	}

	$ldelpos = pos $$textref;

	unless ($$textref =~ m/\G($ldel)/gc) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3815	3924	
==>rty, and parent module has no fnlib property either!")
        unless $module_props{fnlib};

      $fnlib = $m <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6479	6588	
==>rty, and parent module has no fnlib property either!")
        unless $module_props{fnlib};

      $fnlib = $m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253876	254210	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254739	255073	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	335	439	
==>count );
}

sub get_test_prog {
    my $self = shift;
    my ( $path_to_parrot, $path_to_language, $count <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	353	457	
==>count );
}

sub get_test_prog {
    my $self = shift;
    my ( $path_to_parrot, $path_to_language, $count <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158097	158518	
==>i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 191,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 141 \"src/ops/cmp.ops\"\n  if ({{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4604	4780	
==>ptures) { 
        $captures = qq(
            print "\\n"
            match."dump"("mob"," ","")\n); 
    }
    else {
        $captures = "";
    }
    return qq(
        .sub <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	36504	36718	
==>op_char_ge_p,
  'char-ci=?'        => \&_op_char_eq_p,
  'char-ci<?'        => \&_op_char_ci_lt_p,
  'char-ci>?'        => \&_op_char_ci_gt_p,
  'char-ci<=?'       => \&_op_char_ci_le_p,
  'char-ci>=?'       => \&_o <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	1792	1891	
==>item C<--type=long>

=item C<-L>

Append a long type (e.g. "global_const_init_data" versus "R") to t <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	2591	2705	
==>e _CONST_STRING_$line _CONST_STRING_",
		    $this_file_seen{$str}, "\n";
	    }
	    else {
		print "#define _CONS <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2973	3075	
==>ferences.

L<Pod::Simple>, L<Pod::Simple::DumpAsXML>

The older libraries L<Pod::PXML>, L<Pod::XML>, L< <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	1119	1225	
==>t;
	my @contents = @_;
	
	# TODO - Groups should only contain items or paths.
	
	$self = $self->SUPER::new( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2541	2643	
==>element({ Name => 'op', Attributes => { kind => 'infix', name => $self->op } });
    $self->left->sax($ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2418	2520	
==>element({ Name => 'op', Attributes => { kind => 'infix', name => $self->op } });
    $self->left->sax($ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43404	43544	
==>' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 192
		ACTIONS => {
			'END' => 203
		}
	} <==
2	/Users/nnunley/parrot/lib/Test/More.pm	3322	3417	
==>eakens your test.)

  use Test::More qw(no_plan);

B<NOTE>: using no_plan requires a Test::Harne <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571083	571191	
==>ect.ops\"\n    PMC *class = Parrot_class_lookup_p(interpreter, {{\@3}});\n    {{\@1}} = Parrot_object_isa(int <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572038	572146	
==>ect.ops\"\n    PMC *class = Parrot_class_lookup_p(interpreter, {{\@3}});\n    {{\@1}} = Parrot_object_isa(int <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	64548	64678	
==>t Perl than they really do. 

Bug reports and other feedback are most welcome.


=head1 COPYRIGHT

 Copyright (c) 1997-2001, Damian <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	52686	52781	
==>le, by repeatedly applying each of the specified extractors
to the remainder of the string. Thus <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4696	4805	
==>be parsed from 'sub _Parse' up to '}#_Parse' inclusive.
#So, DO NOT remove comment at end of sub !!!
sub _Pa <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4461	4568	
==>be parsed from 'sub _Parse' up to '}#_Parse' inclusive.
#So, DO NOT remove comment at end of sub !!!
sub _Pa <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	641	769	
==>ut_onfail {
    my ($label) = @_;
    return "onfail $label->[1]";
}

sub output_match {
    my ($byte) = @_;
    return "match ' <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	54410	54552	
==>: a string
representing the text left after extraction (like $' for a pattern
match), and a string representing any prefix skipped before the
e <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	16890	17033	
==>tf " %-10s , chr(%s),\n", "'$name'", $value;
      }
    } elsif(m/<!ENT/) {
      print "# Skipping $_";
    }
  
  }
  close(IN);
}

print @no <==
2	/Users/nnunley/parrot/lib/Test/More.pm	4361	4504	
==>$idx = 0;
    my @cleaned_plan;
    while( $idx <= $#plan ) {
        my $item = $plan[$idx];

        if( $item eq 'no_diag' ) {
            $S <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	18438	18658	
==>s+//s;
      $content =~ s/\s+$//s;
      unless(length($content)) {
        $self->whine(
          $para->[1]{'start_line'},
          "=begin without a target?"
        );
        DEBUG and print "Ignoring targetless = <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	6096	6438	
==>$/)
            {
                if (exists $self->{VERSION})
                {
                    #die "VERSION MULTIPLY DEFINED!";
                }

                $self->version($PConfig{VERSION});
                $_ = '';
            }

            $self->{PREAMBLE} .= $_
                unless $seen_pod or $count; # Lines up to firs <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189716	189803	
==>=> "#line 306 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190657	190744	
==>=> "#line 306 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29317	29518	
==>/" => 82,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86
		},
		DEFAULT => -112
	},
	{#State 91
		ACTIONS => {
			"=" => 143
		},
		DEFAULT => -45
	},
	{#State 92
		ACTIONS => <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12915	13033	
==>urrent directory to the file and return that
    # as the link.
    
    my $dist = Parrot::Distribution->new;
    my $ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4990	5097	
==>0} = elements lazy_moves
if ${ITEMP0} > 0 goto PRE_BRANCH_${CURIC}_LAZY_MOVE_$register_num

# No lazy move a <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5524	5624	
==>push @ops, $self->output_label_def($passLabel);
    return @ops;
}

sub output_initgroup {
    my ($s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5217	5317	
==>push @ops, $self->output_label_def($passLabel);
    return @ops;
}

sub output_initgroup {
    my ($s <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	32817	32972	
==>tar,
  'letrec'     => \&_op_letrec,
  'begin'      => \&_op_begin,
  'do'         => \&_op_do,
  'delay'      => \&_op_delay,
  'quasiquote' => \&_op_quasi <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2646	2808	
==>(opcode_t*)opcode_to_prederef(interpreter, dest);
	      goto SWITCH_AGAIN; }";
}

=item C<run_core_func_decl($core)>

Returns the C code for the run core function <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30384	30540	
==>st set case.
        if ($need_dest) {
            my $label = "LD_VALTYPE_$name";
            $pir .= <<PIR
\$I1000000 = loadtype["type"]
if \$I1000000 != E <==
2	/Users/nnunley/parrot/config/init/hints/freebsd.pm	146	319	
==>nts::freebsd;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    my $libs = $conf->data->get('libs');

    # get rid of old pthread-stuff, if any
    $libs =~ s/(-l <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3106	3232	
==>exe.
        # This makes 'link' and 'ld' the same.
        $conf->data->set(link => $conf->data->get('ld'));

        # We can <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4610	4736	
==>exe.
        # This makes 'link' and 'ld' the same.
        $conf->data->set(link => $conf->data->get('ld'));

        # We can <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	571	910	
==>class;
}


#
# scan_line()
#

sub scan_line
{
  my $self = shift;
  my ($text, $file, $line) = @_;

  my $temp = $text; chomp $temp;
#  $self->DEBUG(0, "Scanning line %5d: %s", $line, $temp);

  my @tokens;

  if ($text =~ m{^(\s*([a-zA-Z][a-zA-Z0-9_]*)\s*:(?!:))(.*)$}) {
    push @tokens, Jako::Token->new(
      $file, $line, 'label', 'N <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1376	1484	
==>}
  elsif ($kind eq 'continue') {
    $compiler->emit("${prefix}_CONT:");

    if ($self->content) {
      $c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896	1055	
==>\n/*\n** io.ops\n*/\n\n#include \"../io/io_private.h\"\n\n\n\n/*\n** math.ops\n*/\n\n#define DEPRECATED internal_exception(UNIMPLEMENTED, \"you shouldn't see th <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	7886	8133	
==>nit) {
			    warn "$.:$_: both init and uninit?\n";
			} elsif (!$init && !$uninit) {
			    warn "$.:$_: neither init and uninit?\n";
			}
		    }
		}
		my $data = ($uninit || $init) && !$code;
		my $global = !$local;
		my $show = 1;
		sub want_s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6962	7098	
==>ush @ops, (qq(print "PUSHED ).(@_>1?$_[1]:"mark").qq(\\n"));
    }
    push @ops, $self->pushop . " <rx_stack>, -1 # pushmark";
    retur <==
2	/Users/nnunley/parrot/config/auto/perldoc.pm	348	441	
==>qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto', 'capture_output';

$d <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	14063	14188	
==>=~ s/^\t/        /mg;
    $body =~ s/^[ ]{4}//mg;
    my $super = $self->{super}{$meth};

    my $total_body;
    if ($method- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	3285	3376	
==>R("Can't do arithmetic on PMCs") if UNIVERSAL::isa($dest_type, 'Jako::Construct::Type::PMC') <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11032	11211	
==>y $last_key = pop @{$var};
                    foreach my $key ( @{$var} ) {
                        push @opcodes, @{ $key->[1] };
                        my $result2 = new_tmp <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9267	9434	
==>y $last_key = pop @{$var};
                foreach my $key ( @{$var} ) {
                    push @opcodes, @{ $key->[1] };
                    my $result2 = new_tmp <==
2	/Users/nnunley/parrot/config/init/defaults.pm	4756	4877	
==>ExtUtils::Command -e rm_f',
        rm_rf     => '$(PERL) -MExtUtils::Command -e rm_rf',
        mkdir     => '$(PERL) -ME <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1959	2081	
==>tion::Languages->new,
        Parrot::Docs::Section::Config->new,
        Parrot::Docs::Section::Tests->new,
        Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692486	692871	
==>",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 778,
                  "ARGS" => [
                              "i",
                              "i",
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 659 \" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13391	13500	
==>type first
	foo as integer
	bar as string
end type
type second
	other as first
	narf as integer
	pnext as firs <==
2	/Users/nnunley/parrot/Configure.pl	9978	10074	
==>s(@steps);
$conf->options->set(%args);
# Run the actual steps
$conf->runsteps or exit(1);

# tell <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	25924	26069	
==>{
        $cond = get_cond( $parser, $elseif->[0] );
        $l_next = new_label($parser);
        push @opcodes, @{ $cond->[1] };
        pus <==
2	/Users/nnunley/parrot/lib/Test/More.pm	36147	36243	
==>l
providing more flexibility than the existing Test.pm.  As such, the
names of the most common ro <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	9045	9251	
==>_copy_dispatch();
		parse_data_setup();
		check_branches();
		return;
	}

PARSEERR:
	print "Parse error at source line $sourceline: ";
	dumpq;
	die;
}
sub debug {
	push @{$code{$seg}->{code}}, <<DEBUG;
	${se <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	1318	1440	
==>push @incdirs, $1; }
my $i_flags = join ' ', map { "-I$_" } @incdirs;

my %all_errors;
foreach my $file (@ARGV) {    
    n <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	3679	3843	
==>lse positives
            #    e.g. when accessing registers - this is all aligned
     
            2.7  => "",
            2.8  => "-Wsign-compare",
            2. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614816	614928	
==>"src/ops/object.ops\"\n    opcode_t *next = {{^+4}};\n    INTVAL offset;\n    offset = Parrot_class_offset(interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615967	616079	
==>"src/ops/object.ops\"\n    opcode_t *next = {{^+4}};\n    INTVAL offset;\n    offset = Parrot_class_offset(interp <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4943	5036	
==>}
	set $result, 0.0
	branch NOT_${eqnum}
TRUE_${eqnum}: set $result, 1.0
NOT_${eqnum}: noop
CO <==
2	/Users/nnunley/parrot/Configure.pl	2384	2501	
==>et_pton:

  --define=inet_aton

=back

Parrot Options

=over

=item C<--intval=(type)>

Use the given type for C<INTVA <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33358	33603	
==>=item $expected_value'"
            );
            $para->[1]{'number'} = $expected_value;  # correcting!!
          }
            
          if(@$para == 2) {
            # For the cases where we /didn't/ push to @$para
            if($paras->[0 <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	19315	19489	
==>Treatment of '*' in element types corrected.
    Treatment of classes as element types corrected.
    Class name to struct() made optional.
    Diagnostic checks added.

Origi <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	10586	10730	
==>ill be defined as an accessor method unless a
method by that name is explicitly defined; in the latter case, a
warning is issued if the warning f <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1480	1574	
==>"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = "$register_num"
${STEMP0} = concat ${STEMP1}
${STAC <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3190	3284	
==>"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = "$register_num"
${STEMP0} = concat ${STEMP1}
${STAC <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1370	1483	
==>nate {
    return "";
}

sub output_advance {
    my ($self, $distance, $failLabel) = @_;
    $failLabel = $self-> <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1119	1232	
==>nate {
    return "";
}

sub output_advance {
    my ($self, $distance, $failLabel) = @_;
    $failLabel = $self-> <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	1417	1629	
==>= @_;

    # Rather than sprinkling "if defined(...)", everywhere,
    # config/inter/progs.pl just passes in potentially undefined
    # strings.  Just pass back the original in that case.  Don't
    # bother war <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14006	14138	
==>title =~ s/ $/, /s;
   # make sure it ends in a comma and a space, unless it's 0-length

  my $is_obviously_module_name;
  $is_obviou <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	15928	16091	
==>ncountered. Typically this
			 indicates either a extra '>' in the grammar, or a
			 problem inside the previous directive.");
		return;
	}
	my $op = pop @{$self->{ <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	1716	1919	
==>elf = shift;
    my $fh = FileHandle->new($self->path) or 
        die 'Failed to open ' . $self->path . ": $!";
    my @lines = <$fh>;
    
    $fh->close;
    
    return wantarray ? @lines : join '', @ <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	2563	2721	
==>m_file" or die "Can't open up $from_file, error $!";
open OUTPUT, ">$to_file" or die "Can't open up $to_file, error $!";

# To start, save all the registers, j <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	18	118	
==>eGen::IMCC;
use Regex::Ops::Tree (); # For mark()
use base 'Regex::CodeGen';
use strict;

my $fail_la <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1641	1744	
==>ACK$register_num}
${INS} = concat " = pop s\n"
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$regist <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3351	3454	
==>ACK$register_num}
${INS} = concat " = pop s\n"
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$regist <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	48892	49049	
==>ent complex end-text code \"$3\"\n";
      # This is where it gets messy...
      if(! @stack) {
        # We saw " >>>>" but needed nothing.  This is ALL jus <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	20098	20243	
==>late thing

static void pcf_$funcname(Interp *interpreter, PMC *self) {
    $ret_type (*pointer)();
    $ret_type return_data;

    pointer = PMC_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	3401	3574	
==>t;

  push @{$self->{BLOCKS}}, shift;
}


#
# pop_block()
#
# Pop the top block off the block stack and return it. Bounds checks the block
# stack to make sure we don't pop o <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1026	1110	
==>(i) REG_STR(cur_opcode[i])
#define CONST(i) CONTEXT(interpreter->ctx)->constants[cur_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1142	1226	
==>(i) REG_STR(cur_opcode[i])
#define CONST(i) CONTEXT(interpreter->ctx)->constants[cur_ <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	2705	2901	
==>e {
  	my ($self,$fh) = @_;
	if (!ref($fh) && ref(\$fh) ne "GLOB") {
	    require Symbol;
	    $fh = Symbol::qualify($fh, scalar caller);
	}
	$self->{data} .= do{local$/;<$fh>};
	$self
}

sub diges <==
2	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	347	444	
==>es, and checking for that line
before rerunning the build script.

=head1 EXAMPLE

See parrot/conf <==
2	/Users/nnunley/parrot/config/inter/lex.pm	1535	1672	
==>$verbose);

    unless ($prog) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    if ($co <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	1549	1686	
==>$verbose);

    unless ($prog) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    if ($co <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	13173	13295	
==>b.h
remainder   math.h
remainderf  math.h
remainderl  math.h
remove      stdio.h
remquo      math.h
remquof     math.h
remq <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4302	4415	
==>tmp>, $needed, $fail";
    }
}

sub output_match {
    my ($self, $code, $failLabel) = @_;
    my $comment = Regex <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	26038	26159	
==>ded by
 # an HTML/XML tag.

	($extracted, $remainder) = extract_tagged($text);


 # Extract the initial substring of $text <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	21776	21895	
==>w P3, .PerlHash       # Uses S0, I0, N0
FINDIM
		
		foreach(@types) {
			my %val=( INT => 'I0', FLO => 'N0', STRING => ' <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	4634	4811	
==>if ( $href )
        {
            $text = "<a href='$href'>$text</a>";
        }
    }
    else
    {
        # Tidy up the C reference *s.
        $text =~ s|\b\s*\*\s+\b| \*|g <==
2	/Users/nnunley/parrot/config/auto/readline.pm	1105	1269	
==>-lreadline');
    }

    my $osname = $Config{osname};

    # On OS X check the presence of the readline header in the standard
    # Fink location. TODO: Need a mor <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2167	2334	
==>$var"]	# Pull the original
	P2= P10[I25]
	P3= P2["USER"]
	P3["$var"]= P0	# Hack in the alias

SHARINGU
		} elsif ( $user and $array) {
			# TODO TODO TODO TODO
			print <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	29474	29592	
==>= $seq\[$i\] $cmt
EOC
	push @stack, [-1, $p, 'P'];
    }
}

sub DUP_TOP
{
    my ($n, $c, $cmt) = @_;
    my $tos = $st <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1473	1580	
==>c = $right");
    $compiler->emit("  global \"$left\" = $temp_pmc");
  }
  else {
    $compiler->emit("  $le <==
2	/Users/nnunley/parrot/languages/regex/test.pl	936	1038	
==>INPUT and OUTPUT
  sections, where an INPUT: section begins with the string 'INPUT:' on
  a line by its <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	2367	2502	
==>int type with size 4, conversion ops might fail!

END
    }

    if ($results{floatsize} == 4) {
        $conf->data->set(float4_t => 'f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678854	679156	
==>i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 761,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 483 \"src/ops/pmc.ops\"\n    { <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	2544	2648	
==>teds"
	# Eat tokens until we get to the next statement of some kind.
	# These are likely to *never* be im <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26831	26924	
==>push @{$code{$seg}->{code}},<<CALLSUB;
@code
CALLSUB
}
sub parse_sub {
	# Deja-vu from functio <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	7215	7447	
==>>>->vtable->I<<
method >> >>> to C<VTABLE_I<method>>.

=cut

sub rewrite_body
{
    my ($self, $body, $trans) = @_;

    # use vtable macros
    $body =~ s!
        (?:
            {{\@\d+\}}
            |
            \b\w+(?:->\w+)* <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	22328	22497	
==>my @opcodes = ();
    my $flag = new_tmp( $parser, 'int' );
    push @opcodes, @{ $expr1->[1] };
    push @opcodes, @{ $expr2->[1] };
    push @opcodes, new LocalDir( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824439	824533	
==>ck depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_STRING) {\n    internal_exception(ER <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825510	825604	
==>ck depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_STRING) {\n    internal_exception(ER <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8111	8266	
==>Accept.\n";

				return($semval);
			};

                $$check eq 'ABORT'
            and	do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Ab <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7747	7893	
==>Accept.\n";

				return($semval);
			};

                $$check eq 'ABORT'
            and	do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Ab <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807678	807911	
==>" => [
                              "n",
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 502 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->g <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	2419	2693	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "cpu_ret",
                  "FLAGS" => "",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 2,
                  "ARGS" => [],
                  "BODY" => <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	4214	4310	
==>e installed into subdirs of libdir
        $dest = File::Spec->catdir($options{libdir}, basename( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734764	735237	
==>=> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 825,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 139 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101188	101453	
==>ABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103394	103659	
==>ABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	1114	1259	
==>pha)
        #
	my @pre_pieces = map { $self->pass1($_, $ctx) } @{ $t->{args} };
	my @pieces;
	foreach (@pre_pieces) {
	    if (ref $_ && $_->{nam <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	4349	4491	
==>ed by the sample src/dynpmc/foo.pmc)

This is not a canonical list, but merely a snapshot of what's in use.

=item C<dynpmc>

The class is a dy <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2379	2559	
==>ath)>

Returns the specified path relative to the directory.    

=cut

sub relative_path
{
    my $self = shift;
    my $path = shift || return;
    
    $path = $path->path if ref <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1168	1384	
==>$self->right->compile($compiler);

  if ($self->block->scope_of_ident($left) eq 'global') {
    my $type = $self->block->type_of_ident($left);
    my $pmc_type = $type->imcc_pmc;
    my $temp_pmc = $compiler->temp_pmc <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1145	1244	
==>s_label} = 1;
    $ctx->{external_labels}{$fail_label} = 1;

    my $opt2 = Regex::Optimize->new(%op <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	8428	8571	
==>ount'}}, $line];
        DEBUG > 1 and print "Starting plain para at line ${$self}{'line_count'}\n";
      }
      $self->{'last_was_blank'} = $ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33980	34099	
==>{type};
        $ret_def = "$type ret_val;";
        $func_ret = $self->gen_ret($method->{type});
        $ret = "return <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38942	39061	
==>{type};
        $ret_def = "$type ret_val;";
        $func_ret = $self->gen_ret($method->{type});
        $ret = "return <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	12117	12320	
==>p>
    
  <pre class="indent2">$ make smoke
</pre>
    
  <p>
    should suffice. To test the languages that are shipped with parrot, change
    to the languages directory and issue the same command.
  </ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	1422	1547	
==>=item method optimize(ops...)

 1. Merge equivalent labels
 2. Jump threading: Replace goto X; ...; X: goto Y; with goto Y.
 3 <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	9	190	
==>ht (C) 2004-2006, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Test.pm 19602 2006-05-30T13:40:58.862833Z coke  $

=head1 NAME

Parrot::Test - testing routines for Parrot and langua <==
2	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	2141	2278	
==>Bzip(shift) };
  eval { require Compress::Zlib; debug "Gzip compression on\n" } and
    $compress = sub { Compress::Zlib::memGzip(shift) } <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2508	2620	
==>urn "sub $realvar, $amount";
}

sub output_set {
    my ($self, $reg, $value) = @_;
    $reg = value($reg);
    r <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2141	2248	
==>ind => $self->kind, name => $self->prefix } });
  }
  else {
    $handler->start_element({ Name => 'loop', A <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650752	651011	
==>st_type)\n        {{\@1}} = 1;\n    else\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651674	651933	
==>st_type)\n        {{\@1}} = 1;\n    else\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	17667	17832	
==>KS:
  "\n" => "\\line\n",
  "\r" => "\n",
  "\cb" => "{\n\\cs21\\lang1024\\noproof ",  # \\cf1
  "\cc" => "}",
);
1;

__END__

=head1 NAME

Pod::Simple::RTF -- format <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2569	2681	
==>f, $reg, $value) = @_;
    $reg = value($reg);
    return "set $reg, $value";
}

sub output_print {
    my ($self <==
2	/Users/nnunley/parrot/lib/Test/More.pm	29382	29572	
==>e1 and !ref $e2);

        if( defined $e1 xor defined $e2 ) {
            $ok = 0;
        }
        elsif ( $e1 == $DNE xor $e2 == $DNE ) {
            $ok = 0;
        }
        elsif ( $s <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	8504	8748	
==>"PUN"] );
			next;
		}

		if ($unary) {
			push(@expr, [ "-1.0", "INT" ],
				    [ "*", "PUN"] );
			next;
		}
		# Sadly, IMCC wants INTs to be INTs.
		if ($this->[1] eq "INT") {
			$this->[0].=".0";
		}

		if ($this->[1] eq "BARE") {
			$this- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	2286	2465	
==>t { return shift->kind eq 'const'; }
sub is_variable { my $self = shift; return ($self->kind eq 'var') or ($self->kind eq 'arg'); }
sub is_sub      { my $self = shift; return $self <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	466869	467106	
==>}}->vtable->decrement(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	923854	924133	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924644	924923	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2192	2336	
==>/#RTJ// if $runtime_jump;
		if (/#SAVECOMMON/) {
			@saves=();
			$edit="";
			foreach my $var (keys %{$code{$seg}->{declarations}}) {
				if (ex <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	16336	16571	
==>1pos,$ld1pos,$str1pos,$rd1pos,
	    $preld2pos,$ld2pos,$str2pos,$rd2pos,
	    $modpos) = ( length($$textref), pos($$textref) = pos($$textref) || 0 );

	unless ($$textref =~ m/\G($pre)/gc)
	{
		_failmsg qq{Did not find prefix /$pre/ at " <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	375	513	
==>_OK);

#==========================================================================

use strict;
use vars qw(
  %Code2USASCII
  %Name2charac <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	11044	11159	
==>def only matches undef and nothing else
        my $test = !defined $got && !defined $expect;

        $self->ok($te <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	11462	11577	
==>def only matches undef and nothing else
        my $test = !defined $got && !defined $expect;

        $self->ok($te <==
2	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1767	1874	
==>ot-$options{version}
Compression=lzma
SolidCompression=yes
ChangesAssociations=yes

[Files]
Source: "$option <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	981	1073	
==>!" unless UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless { <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	993	1085	
==>!" unless UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless { <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2166	2307	
==>utput file in this directory, which we need
    # to move to the appropriate place, alongside the sourcefile that produced it.
    # Hence, as <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	2409	2568	
==>e salt and chick peas and cook, stirring, until heated through.

Stir in the lime juice, and optionally one or two teaspoons of tahini.
You can let it simmer lo <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	167	290	
==>=head1 Parrot::Test::Python

Provide language specific testing routines here...

This is currently alarmingly similar to the <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	1757	1864	
==>lf = shift;

    my $verbose = defined $self->get('verbose') && $self->get('verbose') == 2;

    print "Sett <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	7405	7523	
==>er tests here

    return 0;
}

# R*, R+, R?, nongreedy variants of those
package Regex::Ops::Tree::multi_match;

sub m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653566	653675	
==>"Method '%s' not found\", string_to_cstring(interpreter, {{\@3}}));\n    {{=resume}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654727	654836	
==>"Method '%s' not found\", string_to_cstring(interpreter, {{\@3}}));\n    {{=resume}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9162	9402	
==>el);\n    interpreter->resume_flag = 2;\n    {{=0}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10278	10518	
==>el);\n    interpreter->resume_flag = 2;\n    {{=0}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARR <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	8959	9070	
==>ngth $1 ]sexg;

    /^\{/ or die "bad block open: ", substr($code,0,10), "...";

    while (/ (\{) | (\}) /gx) { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18955	19070	
==>\@1}}->vtable->get_bool(interpreter, {{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22123	22238	
==>\@1}}->vtable->get_bool(interpreter, {{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34213	34329	
==>redref.c");
    return <<EOC;
$l
$decl {
    $ret_def
    LOCK_PMC(interpreter, pmc);
    $func_ret$body;
    UNLOCK_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4053	4158	
==>..$pushes) {
		$pir .= <<'PIR';
# Increment stack depth.
inc stack_depth

# Get type (so we can find regis <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2469	2574	
==>..$pushes) {
		$pir .= <<'PIR';
# Increment stack depth.
inc stack_depth

# Get type (so we can find regis <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3309	3423	
==>ch one you like best!

L<Pod::Simple>, L<Pod::Simple::DumpAsXML>

The older libraries L<Pod::PXML>, L<Pod::XML>, L< <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	15846	16104	
==>{
            die 'count must be nonnegative' if $_[0] < 0;
            $self->{'count'} = shift;
            warn "Too many args to count" if @_;
        }
        return $self->{'count'};
    }

    package main;
    $x = new MyObj;
    print "\$x->count(5) <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	24471	24608	
==>d_int32()\n    next_pc += 4\n";
			$arg_name = "I_ARG_$arg_num";
		}

		# float32
		elsif (/^float32$/) {
			$out =  "    \${N_ARG_$arg_nu <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	538	636	
==>coordinating one or more Configuration steps.  Please see
F<docs/configuration.pod> for further det <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	2419	2514	
==>is of interest to people writing a Pod processor/formatter.

This class takes Pod and parses it, <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	7886	7987	
==>rint SOURCE $trans->run_core_after_addr_table($bs);
}

if ($suffix =~ /cgp/) {
    print SOURCE <<END_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717484	717992	
==>t_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 805,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 124 \"src/ops/python.ops\"\n  PMC * const io = {{\@1}};\n  if (PIO_softspace(inte <==
2	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	480	599	
==>flags .= ' -D_XOPEN_SOURCE=500';
    }
    $conf->data->set(ccflags => $ccflags);

    my $libs = $conf->data->get('libs <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33808	33923	
==>UG and print "Can't assimilate following ", $paras->[0][0], "\n";
              push @$para, '';  # Just so it's not <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35621	35736	
==>UG and print "Can't assimilate following ", $paras->[0][0], "\n";
              push @$para, '';  # Just so it's not <==
2	/Users/nnunley/parrot/Configure.pl	10112	10214	
==>nf->data->get('make');

print <<"END";

Okay, we're done!

You can now use `$make' to build your Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	463	620	
==>tem C<tmp_file($path)>

Returns the file for C<$path> relative to the default temporary
directory.

=cut

sub tmp_file
{
    my $self = shift;
    
    return <==
2	/Users/nnunley/parrot/languages/urm/urm-old.pl	521	626	
==>ster{$reg} = shift @input;
	}
    }
    if ($line =~ /(r\d+)/) { $register{$1} = 0 unless defined $registe <==
2	/Users/nnunley/parrot/config/init/defaults.pm	6158	6348	
==>> scalar localtime,
        PQ         => "'",
        dquote     => "\\\"",

        # yacc = Automatic parser generator
        # lex  = Automatic lexer  generator
        # Some systems ma <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	2363	2508	
==>-1) x (length($dels)-length($escs));
	my @pat = ();
	my $i;
	for ($i=0; $i<length $dels; $i++)
	{
		my $del = quotemeta substr($dels,$i,1);
		my $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719347	719629	
==>t_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 807,
                  "A <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853977	854191	
==>> [
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 100 \"src/ops/string.ops\"\n  {{\@1}} = string_append(interpreter, {{\@1}}, <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	28305	28432	
==>hee!

  while($treelet = shift @stack) {
    for($i = 2; $i < @$treelet; ++$i) { # iterate over children
      next unless ref $ <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	6942	7059	
==>lass::Struct - declare struct-like datatypes as Perl classes

=head1 SYNOPSIS

    use Class::Struct;
            # de <==
2	/Users/nnunley/parrot/config/inter/make.pm	1469	1597	
==>self->set_result('no');
            return $self;
        }
    }

    if ($conf->options->get('ask')) {
        $prog = prompt($ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	30796	30972	
==>{
		_whoa(1, "No type in _deep_check");
	    }
        }
    }

    return $ok;
}


sub _whoa {
    my($check, $desc) = @_;
    if( $check ) {
        die <<WHOA;
WHOA!  $desc
T <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3220	3357	
==>= @_;
    $self->output_test('lt', $val1, $val2, $dest);
}

sub output_le {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_te <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20225	20323	
==>4  Norwegian (Bokmal)
  2068  Norwegian (Nynorsk)

=back

If you are particularly interested in cus <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	36271	36410	
==>$parser->{"rules"}{$subrule}->expected }

	if ($lookahead)
	{
		if ($min>0)
		{
		   return new Parse::RecDescent::Subrule($subrule,$lookahe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25417	25535	
==>terpreter->current_cont) |= SUB_FLAG_TAILCALL;\n  dest = (opcode_t *)p->vtable->invoke(interpreter, p, dest);\n  {{=des <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	3266	3434	
==>_misc', 'inter_run'
                ], 
                'headers' => ['interp_guts']
            ),
            $self->c_pair_item('', 'exit'),
        ),
        $self- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53374	53608	
==>AR(interpreter, PARROT_GC_DEBUG_FLAG); }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54130	54364	
==>AR(interpreter, PARROT_GC_DEBUG_FLAG); }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	12280	12409	
==>wards compatibility as well.

- `eval_ok (Str $code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `eval_is (Str $code, <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3701	3819	
==>_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert X.c -> X.o for all X.c
    compi <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3805	3923	
==>_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert X.c -> X.o for all X.c
    compi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754969	755204	
==>1,
                  "ARGS" => [
                              "p",
                              "n"
                            ],
                  "BODY" => "#line 266 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_number_native(interp <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	533	652	
==>s>';
    return '$rx_tmp' if $name eq '<tmp>';
    return '$rx_tmp' if $name eq '<ptmp>';
    return $name;
}

sub dbgot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24195	24356	
==>{
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "yield",
                  "FLAGS" => "",
                  "AR <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4221	4343	
==>b <rx_tmp>, $lenvar, <rx_pos> # need $needed more chars",
               "lt <rx_tmp>, $needed, $fail";
    }
}

sub output <==
2	/Users/nnunley/parrot/examples/benchmarks/arriter.pl	78	203	
==>ples/benchmarks/arriter.pl 19601 2006-05-30T13:32:26.641316Z coke  $

=head1 NAME

examples/benchmarks/arriter.pl - Iterator B <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2789	2882	
==>tcounts=0;
sub input_read_assign {
	my($prompt,$filedesc,$noreloop)=@_;
	my @values=();

	push <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	4537	4719	
==>[-+]?\d+)?$/) {
      $self->_add_inst ('', 'new',[$return,'.Float']);
      $self->_add_inst ('', 'set',[$return,$value]);
    }
    else { # assume its a symbol
      $self->_add_in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	625995	626140	
==>]);\n                break;\n            default:\n                internal_exception(1, \"unhandled sig_bits\");\n        }\n    }\n    /* set_ar <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2534	2675	
==>ile',
	'BUGS' => 'Project info',
	'CFLAGS' => 'CFLAGS file',
	'ChangeLog' => 'Project info',
	'Changes' => 'Project info',
	'CREDITS' => 'Proj <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6951	7086	
==>elf->_gensym;

  # check for empty list
  $self->_add_inst('', 'typeof', [$type, $list]);
  $self->_add_inst('', 'eq', [$type,'.Undef'," <==
2	/Users/nnunley/parrot/config/gen/icu.pm	1907	2048	
==>/-licui18n\w*//; # "-licui18n32" too
                $without = 1 if length $icushared == 0;
            }

            # location of header f <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2215	2328	
==>.  Something should be done about that.
  }
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2318	2431	
==>.  Something should be done about that.
  }
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612974	613067	
==>bject.ops\"\n    VTABLE_set_attr_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613881	613974	
==>bject.ops\"\n    VTABLE_set_attr_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	3786	3917	
==>->steps) {
        my $step_name   = $task->step;
        my @step_params = @{$task->params};

        $n++;

        eval "use $ste <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	2949	3167	
==>pedefs) . " typedefs.\n";
    my $cmd = "indent -kr -nce -sc -cp0 -l79 -lc79 -psl -nut -cdw -ncs -lps";
    if ($file =~ /\.h$/) {
	# for function declarations, put the return type on the same line.
        $cmd =~ s/-p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170331	170438	
==>],
                  "BODY" => "#line 211 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171272	171379	
==>],
                  "BODY" => "#line 211 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	864	1010	
==>use warnings;

use Data::Dumper;
use Text::Wrap;
use File::Find;
use File::Basename;

my @files = @ARGV;

if (! @files) {
    die "Usage: $0 <sourc <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	58608	58701	
==>se tags
for C<extract_tagged>. For example, to properly ignore "empty" XML elements
(which mig <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678703	679118	
==>> "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 761,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50266	50490	
==>OFILE_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51059	51283	
==>OFILE_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	5842	5995	
==>func_info{$arg}{flags} & 0x20) {  # GENERATOR flag
	for (my $i = 0; $i < @params; ++$i) {
	    my $p = $params[$i];
	    print <<EOC;
	$p = find_lex -1, $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3354	3447	
==>:Simple::DumpAsXML>

The older libraries L<Pod::PXML>, L<Pod::XML>, L<Pod::SAX>


=head1 COPYR <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3006	3099	
==>:Simple::DumpAsXML>

The older libraries L<Pod::PXML>, L<Pod::XML>, L<Pod::SAX>


=head1 COPYR <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	1834	2041	
==>reverse keys %regs) {
    for (my $count=31; $count>=0; $count--) {
      $self->_add_inst ('','restore',["$type$count"])
	if $regs{$type}->{$count};
    }
  }
}

sub _num_arg {
  my ($node, $expected, $name) <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	37813	37919	
==>ring_ci_ge_p,
  'substring'     => \&_op_substring,
  'string-append' => \&_op_string_append,
  'string->li <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	533	777	
==>[0]{'output_fh'};
  my($key, $value);
  DEBUG and print "++ $_[1]\n";
  
  print $fh   '  ' x ($_[0]{'indent'} || 0),  "++", $_[1], "\n";
  $_[0]{'indent'}++;
  while(($key,$value) = each %{$_[2]}) {
    unless($key =~ m/^~/s) {
      next if $k <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	532	674	
==>[0]{'output_fh'};
  my($key, $value);
  DEBUG and print "++ $_[1]\n";
  
  print $fh   '  ' x ($_[0]{'indent'} || 0),  "<", $_[1];

  foreach m <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	3932	4545	
==>}
            }

            # end of template definition?
            if (defined($template)) {
                $templates{$template} = $asm;
                $template = undef;
                next;
            }
            # no, end of function

            # then do other substitutions
            $asm =~ s/([\&\*])([a-zA-Z_]+)\[(\d+)\]/make_subs($1,$2,$3)/ge;
            $asm =~ s/NEW_FIXUP/Parrot_jit_newfixup(jit_info)/g;
            $asm =~ s/CUR_FIXUP/jit_info->arena.fixups/g;
            $asm =~ s/NATIVECODE/jit_info->native_ptr/g;
            $asm =~ s/CUR_OPCODE/jit_info->cur_op/g;
            $a <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	8746	8882	
==>@_)  } # alias

sub get_short_title {
  my $title = shift->get_title(@_);
  $title = $1 if $title =~ m/^(\S{1,60})\s+--?\s+./s;
    # tur <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385792	386129	
==>"FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 450,
                  "ARGS" <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	46	174	
==>:Configure::Step from config/gen/makefiles/dynoplibs_pl.in

# Copyright (C) 2001-2006, The Perl Foundation.
# $Id: dynoplibs_pl.i <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	14698	14857	
==>' => 28,
			'charclass' => 12,
			'range' => 25
		}
	},
	{#State 29
		DEFAULT => -8
	},
	{#State 30
		ACTIONS => {
			'NUM' => 49,
			'CHAR' => 47,
			"]" => 50 <==
2	/Users/nnunley/parrot/config/auto/aio.pm	680	821	
==>');

    cc_gen('config/auto/aio/aio.in');
    eval { cc_build(); };
    if (!$@) {
        $test = cc_run(35);

        # if the test is fail <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3039	3165	
==>:
   PRINT "3 in subroutine two"
   RETURN Label2   'Cannot return from here to main
                   'program - only to SUB1 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17006	17132	
==>:
   PRINT "3 in subroutine two"
   RETURN Label2   'Cannot return from here to main
                   'program - only to SUB1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645799	645887	
==>terpreter->n_vtable_max)\n\t\t{{\@1}} = interpreter->vtables[{{\@2}}]->whoami;\n    else\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646696	646784	
==>terpreter->n_vtable_max)\n\t\t{{\@1}} = interpreter->vtables[{{\@2}}]->whoami;\n    else\ <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	11900	12059	
==>T_NCI_N($reg_num);";
        return "t_$temp_num";
    };
    /d/ && do {
        push @{$temps_ref}, "double t_$temp_num;";
        push @{$extra_preamble_ref} <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	3097	3272	
==>ass is defined, methods from F<default.pmc> are used.

=item C<abstract>

This class cannot be instantiated. Abstract classes are shown with lower
case class names in the class <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	6710	6849	
==>CORE|_GUARD/);

            my $indent = "  " x (@stack);
            if ($1 ne $indent) {
                error($file, $line, "Improper ind <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	4962	5147	
==>s typically donw with automake installed packages.  If there
        # is a use case to make this configurable we'll add a seperate
        # --pkgconfigdir option.
        $dest = File: <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	12831	12933	
==>ied as C<'%'> or C<'*%'>).

With one or two arguments, the first argument is a key specifying
one eleme <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1361	1465	
==>content) {
      $compiler->emit(".namespace ${namespace}_THEN");
      $compiler->indent;
      $self->S <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	1681	1921	
==>ris_link", $solaris_link_cb);

    ################################################################
    # cc_shared:  Flags to instruct the compiler to use position-independent
    # code for use in shared libraries.  -KPIC for Sun's compile <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	652	804	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub TIEHANDLE {  # Ties to just a scalar ref
  my($class, $scalar_ref) = @_;
  $$scalar_ref = '' unless defin <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5549	5747	
==>wing the run core function.

=cut

sub run_core_finish
{
    my ($self, $base) = @_;

    return "\n} /* " . $self->core_prefix . "$base */\n\n";
}

=item C<init_func_init1($base)>

Returns the C cod <==
2	/Users/nnunley/parrot/lib/Test/More.pm	31593	31711	
==>$k} ? $a1->{$k} : $DNE;
        my $e2 = exists $a2->{$k} ? $a2->{$k} : $DNE;

        push @Data_Stack, { type => 'HAS <==
2	/Users/nnunley/parrot/lib/Test/More.pm	20384	20487	
==>on't be run at all>.  Test::More will output special ok's
which Test::Harness interprets as skipped, but <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8691	8895	
==>ame2character{'verbar'} = '|';
}

#--------------------------------------------------------------------------

%Code2USASCII = (
# mostly generated by
#  perl -e "printf qq{  \x25 3s, '\x25s',\n}, $_, chr( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11546	11712	
==>te = 0;
                }
            }
            $tokens[-1] .= $c;
        }
    }

#    for (0..$#tokens) { print STDERR "  $tokens[$_] $types[$_]\n"; }

    retu <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1020	1105	
==>)interpreter->code->prederef.code))
#define CUR_OPCODE ((opcode_t*)cur_opcode + CONTEX <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1150	1235	
==>)interpreter->code->prederef.code))
#define CUR_OPCODE ((opcode_t*)cur_opcode + CONTEX <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	6586	6695	
==>te that if C<$suffix> is the empty string then this will return all
the files with no suffix.

=cut

sub files <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1068	1167	
==>parrot = Parrot::Test::path_to_parrot();
        my $dir_count      = scalar(File::Spec->splitdir($p <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1558	1652	
==>parrot = Parrot::Test::path_to_parrot();
        my $dir_count = scalar(File::Spec->splitdir($p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650091	650379	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "valid_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "funct <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651012	651300	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "valid_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "funct <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	3632	3806	
==>..
  return shift->{'errors_seen'} || 0;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
# Pull in some functions that, for some reason, I ex <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10526	10674	
==>/* 52 */
II,$a,$b,$c,$d,$_[16],6,0x655b59c3,/* 53 */
II,$d,$a,$b,$c,$_[7],10,0x8f0ccc92,/* 54 */
II,$c,$d,$a,$b,$_[14],15,0xffeff47d,/* 55 */
II,$b,$ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	40704	40894	
==>t) are C<undef>.

In a scalar context, C<extract_tagged> returns just the complete
substring that matched a tagged text (including the start and end
tags). C<undef> is returned on failure. In <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664855	665224	
==>ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 743,
                  "ARGS" => [
                              "p",
                              "ki"
                            ],
                  "BODY" => "#line 359 \"src/ <==
2	/Users/nnunley/parrot/config/auto/pack.pm	1998	2139	
==>a->set($which => $format);
    }

    $conf->data->set(
        packtype_b => 'C',
        packtype_n => ($conf->data->get('numvalsize') == 12 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	197	321	
==>ko/Construct/Expression/Value.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako: <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	36301	36479	
==>_op_char_p,
  'char=?'           => \&_op_char_eq_p,
  'char<?'           => \&_op_char_lt_p,
  'char>?'           => \&_op_char_gt_p,
  'char<=?'          => \&_op_char_le_p,
  ' <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	4610	4731	
==>ersion = $ops->major_version;
my $minor_version = $ops->minor_version;
my $patch_version = $ops->patch_version;
my $num_op <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	1172	1369	
==>on' => undef,
             'blib_dir' => 'blib/lib',
             'build_dir' => '/Users/nnunley/parrot',
             'byteorder' => '4321',
             'cc' => '/usr/bin/gcc-4.0',
             'c <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	40406	40705	
==>} . ')
		  {
			$backtrack = 0;
			' . $op->code(@_[1..2]) . '
			' . ($op->isterminal() ? 'pop @item;' : '$backtrack=1;' ) . '
			' . (ref($op) eq 'Parse::RecDescent::Token'
				? 'if (defined $1) {push @item, ' .
			     ($::RD_NO_HITEM ? ''
			      : '$item{'.$self->{hashname}.'}=') . '$1; $back <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	622986	623099	
==>er_ctx, *ctx;\n    parrot_cont_t cc;\n    int n;\n\n    ctx = CONTEXT(interpreter->ctx);\n    mic = (Parrot_MIC *) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647547	647757	
==>ops/pmc.ops\"\n    {{\@1}} = pmc_type(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648308	648518	
==>ops/pmc.ops\"\n    {{\@1}} = pmc_type(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4513	4626	
==>d code.
	return $pir;
}

sub post_op($$) {
	# Nothing to do.
	return "";
}

# Pre and post branch operation hooks. <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2929	3042	
==>d code.
	return $pir;
}

sub post_op($$) {
	# Nothing to do.
	return "";
}

# Pre and post branch operation hooks. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413454	414049	
==>k",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 477,
                  "ARGS" => [
                              "i",
                              "p",
                              "ic",
                              "i",
                              "i"
                            ],
                  "BODY" => <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	9050	9156	
==>}
sub get_version     { shift->_get_titled_section(
   'VERSION',
    max_token => 400,
    accept_verbatim <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7269	7376	
==>"
a$="   Flush   "
print ">";ltrim$(a$)
print rtrim$(a$);"<"
' A's and -'s
print string$(10,75-10)
print str <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18998	19105	
==>"
a$="   Flush   "
print ">";ltrim$(a$)
print rtrim$(a$);"<"
' A's and -'s
print string$(10,75-10)
print str <==
2	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1362	1526	
==>t 1;
    }
  } else {
    debug "error: " . $resp->status_line . "\n";
    exit 1;
  }
}

sub usage { print STDERR <<USAGE; exit }
Usage: $0 [options] -- smoke1.html <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	3375	3563	
==>print {$self->{'output_fh'}} "<a href='$text'>";
    } 
    else 
    {
        print {$self->{'output_fh'}} "<a>";
    }
}

=item C<process_code_start_token($token)>

Processes the code st <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33092	33223	
==>of the output file we are
generating.

Overrides the default implementation to perform locking.

=cut

sub body
{
    my ($self, $me <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296139	296409	
==>mmd_dispatch_i_pp(interpreter, {{\@2}}, {{\@3}}, MMD_EQ);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	3495	3590	
==>}
}

=item C<process_code_start_token($token)>

Processes the code start token. If the code text <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	48880	49002	
==>"Found apparent complex end-text code \"$3\"\n";
      # This is where it gets messy...
      if(! @stack) {
        # We s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623416	623561	
==>ts;\n    if (dest_pc) {\n\tdest_pred = (void**) dest_pc - caller_ctx->pred_offset;\n\tsig = (PMC*)(dest_pred[1]);\n    }\n    else {\n\tsig = NULL <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	3683	3964	
==>ame must be hash reference'\n";
            $out .= "        if defined(\$init{'$name'}) && ref(\$init{'$name'}) ne 'HASH';\n";
            $out .= "    \$r->$elem = $init {};$cmt\n";
            $hashes{$name}++;
        }
        elsif ( $type eq '$') {
            $out .= "    \ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	30886	31045	
==>_op_map {
}

sub _op_for_each {
}

sub _op_force {
}

sub _op_call_with_current_continuation {
}

sub _op_call_with_input_file {
}

sub _op_call_with_output_fil <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3985	4097	
==>n>";
    my $fail = $self->output_label_use($failLabel);
    if ($needed eq "1") {
        return "ge <rx_pos>, $ <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3335	3456	
==>my $linkflags = $conf->data->get('linkflags');
            $linkflags =~ s/-opt:\S+//;
            $conf->data->set(linkfl <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4839	4960	
==>my $linkflags = $conf->data->get('linkflags');
            $linkflags =~ s/-opt:\S+//;
            $conf->data->set(linkfl <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1728	1863	
==>( "head1" );

But if you subclass Pod::Simple::Methody, it will instead do this
when it sees a "=head1 Hi there":

  $parser->start_head <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716975	717218	
==>GS" => ":base_io",
                  "ARGDIRS" => [],
                  "TYPE" => "function",
                  "CODE" => 804,
                  "ARGS" => [],
                  "BODY" => "#line 100 \"src/ops/python.ops\"\n  PMC * const io = PIO <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24462	24657	
==>w+(?:' . gen_delimited_pat(q{'"}) . '|[^>])*>'; }

	my $posbug = pos;
	for ($ldel, $pre, $bad, $ignore) { $_ = qr/$_/ if $_ }
	pos = $posbug;

	my $closure = sub
	{
		my $textref = defined $_[0] ? <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76319	76478	
==>D_WARN||1));
	$errortext   = $_[1];
	$errorprefix = "Warning" .  ($_[2] ? " (line $_[2])" : "");
	print ERROR "\n";
	$errortext =~ s/\s+/ /g;
	write ERROR;
	ret <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	694	876	
==>parrot/core_pmcs.h";
    open(OUT, ">$file.tmp");

    print OUT <<"END_H";
/*
 * DO NOT EDIT THIS FILE
 *
 * Automatically generated by config/gen/core_pmcs.pm
 */

/* &gen_from_enum <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	59057	59287	
==>-style string (where ' is the delimiter
and '' is a literal ' within the string):

        gen_delimited_pat(q{'},q{'});

Different escape characters can be specified for different delimiters.
For example, to specify that '/' is th <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	4638	4765	
==>d($max) && ($max == 1)) {
        return $self->rewrite_optional($op, $R, $greedy, @rest);
    } elsif (($min == 0) && (!defined <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	727	910	
==>return () unless $self->{DEBUG_SUPPORT};
    return ("goto $label");
}

sub lookup_var {
    my ($self, $var, $ctx) = @_;
    if ($ctx->{$var}) {
        return $ctx->{$var};
    } els <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1797	2066	
==>ed time:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 = $N1 / $N2;              # div    N1, N1, N2
$N2 = 1000000.0;              # set    N2, 1 <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1797	2066	
==>ed time:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 = $N1 / $N2;              # div    N1, N1, N2
$N2 = 1000000.0;              # set    N2, 1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19723	19982	
==>> "#line 335 \"src/ops/core.ops\"\n  if ({{\@1}} == 0) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	54715	54867	
==>at the value returned by an extractor
subroutine need not bear any relationship to the corresponding substring
of the original text (see examples below). <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1928	2164	
==>N1 = $I5;                    # iton   N1, I5
$N1 = $N1 / $N2;              # div    N1, N1, N2
$N2 = 1000000.0;              # set    N2, 1000000.0
$N1 = $N1 / $N2;              # div    N1, N1, N2
                              #
print " <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1928	2164	
==>N1 = $I5;                    # iton   N1, I5
$N1 = $N1 / $N2;              # div    N1, N1, N2
$N2 = 1000000.0;              # set    N2, 1000000.0
$N1 = $N1 / $N2;              # div    N1, N1, N2
                              #
print " <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4691	4794	
==>will be parsed from 'sub _Parse' up to '}#_Parse' inclusive.
#So, DO NOT remove comment at end of sub ! <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4456	4558	
==>will be parsed from 'sub _Parse' up to '}#_Parse' inclusive.
#So, DO NOT remove comment at end of sub ! <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	7388	7484	
==>_build("$group$LOAD_EXT", @sources)) {
        run(partial_link_cmd("$group$LOAD_EXT", $libs, \@s <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7599	7695	
==>_build("$group$LOAD_EXT", @sources)) {
        run(partial_link_cmd("$group$LOAD_EXT", $libs, \@s <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	10865	10994	
==>uld not close ops file '$file' ($!)!";

    return;
}

# Extends a string containing an or expression "0" .. "A" .. "A|B" etc.
sub <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	72	216	
==>value,$variable);
  
  if(@_ == 2) {
    $value = $_[1];
  } elsif(@_ == 3) {
    ($variable, $value) = @_[1,2];
    
    ($variable, $value) = ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499487	499718	
==>s/math.ops\"\n  {{\@1}} = floatval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500250	500481	
==>s/math.ops\"\n  {{\@1}} = floatval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	22776	22980	
==>urn $_[1]; }
	],
	[#Rule 43
		 'classpiece', 3,
sub
#line 179 "lib/Regex/Grammar.y"
{ return [ $_[1], $_[3] ] }
	],
	[#Rule 44
		 'classpiece', 1,
sub
#line 181 "lib/Regex/Grammar.y"
{ return $_[1]; }
	]
] <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	789	905	
==>HIS FILE
 *
 * Automatically generated by config/gen/core_pmcs.pm
 */

/* &gen_from_enum(pmctypes.pasm) subst(s/enum_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4202	4306	
==>.'::'}{_DBParse})#Already loaded ?
		and	return;
	}
	my($fname)=__FILE__;
	my(@drv);
	open(DRV,"<$fn <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3987	4086	
==>.'::'}{_DBParse})#Already loaded ?
		and	return;
	}
	my($fname)=__FILE__;
	my(@drv);
	open(DRV,"<$fn <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088345	1088643	
==>"NAME" => "slice",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089292	1089590	
==>"NAME" => "slice",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284336	284832	
==>=> "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 331,
                  "ARGS" => [
                              "i",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 913 \"src/ops/cmp.ops\"\n  {{\@1}} = st <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	6	158	
==>l -w

use strict;

my ($cur,$next,$afternext,$curtok);
my $stmts=0;

sub fetch {
	$cur=$next;
	$next=$afternext;
	$afternext=getc(D);
	$afternext="" if ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885659	885941	
==>S" => [
                              "s",
                              "s",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\ <==
2	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	451	555	
==>RSION file
and returns it.

=cut

# cache for repeated calls
# XXX this could be in BEGIN block
my ( $par <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	753	856	
==>>{_markers} = {};
    $self->{_temp_int_count} = 3;
    $self->{state} ||= Regex->global_state();
    my <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	1817	1964	
==>s and structs are no good
    @funcs = grep !/^(typedef|struct|enum|extern)/, @funcs;

    # Variables are of no use to us
    @funcs = grep !/=/, @ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26103	26249	
==>>{num}: noop
NEXT
	} else {    # next var
		while (1) {
			push @{$code{$seg}->{code}}, <<NEXT;
	add $ps->{var}, $ps->{var}, FORLOOP_STEP_$ps->{num <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	853	973	
==>WARNING

Generating a C<Parrot::OpLib::core> module for a set of ops files that
you do not later turn into C code (see F< <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	1305	1430	
==>de/gmp.h") {
            $conf->data->add(' ', linkflags => '-L/sw/lib');
            $conf->data->add(' ', ldflags   => '-L/s <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	44	146	
==>= ();
while (<>) {
	if (/^Translated (\d+) types out of (\d+) from .+?([\.\w]+)\n$/) {
		push @resul <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	44	146	
==>= ();
while (<>) {
	if (/^Translated (\d+) types out of (\d+) from .+?([\.\w]+)\n$/) {
		push @resul <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	2967	3261	
==>ta->get('iv');
    my $intvalsize = $conf->data->get('intvalsize');

    # Get HUGEINTVAL, note that we prefer standard types
    foreach my $type ('long', 'int', 'long long', '__int64') {

        $conf->data->set(int8_t => $type);
        eval {
            cc_gen('config/auto/sizes/test2_c.i <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10192	10328	
==>{

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**No state left on stack: aborting.\n";

			return(undef);
		};

		#shift the e <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9735	9863	
==>{

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**No state left on stack: aborting.\n";

			return(undef);
		};

		#shift the e <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	34252	34385	
==>}
    }
    my $dest =  (pop @stack)->[1];
    my $ag = (pop @stack)->[1];
    print <<EOC;
	\t $cmt
	set $dest\[ $vv .. $ww ], $ag
EO <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	168	273	
==>rs qw( %labels $branchseq @selects);
use vars qw( @data $sourceline %common );
use vars qw( %code $debug $ <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	2877	2995	
==>nly},
    'time'         => \$cfg{use_times},
    'help|?'       => \$cfg{display_help},
    'method=s'     => \$cfg{me <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	20829	20999	
==>5,
sub
#line 135 "lib/Regex/Grammar.y"
{ return $_[4]; }
	],
	[#Rule 24
		 'expr', 3,
sub
#line 137 "lib/Regex/Grammar.y"
{ return op('call' => [ $_[2], 0 ]) }
	],
	[#Rule <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	1855	1965	
==>cessorize(
  'nbsp_for_S',        # Whether to map S<...>'s to \xA0 characters
  'source_filename',   # Filenam <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5371	5569	
==>, "lt <rx_tmp>, $last, $pass";
        } else {
            push @ops, "ge <rx_tmp>, $first, $pass";
        }
    }
    push @ops, "branch $fail";

    push @ops, $self->output_label_def($passLabel) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	9124	9218	
==>y ($op) = @_; $op->{args}->[1]->hasback() }
sub dfa_safe { my ($op) = @_; $op->{args}->[1]->dfa <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	1165	1261	
==>he file with
the exception of the configuration file name itself.  In the event
you have specifie <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	15115	15320	
==>1;  # dest may be NULL to leave run-loop
        }
        elsif ($body =~ s/\brestart\s+ADDRESS\((.*?)\)/{{=$1}}/mg)
        {
            $next = 0;
            $restart = 1;
        }

        $body =~ s <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17975	18116	
==>t "Wrong again!"
	case 0
		print "Right (nest)!"
	end select
	print "Ongoing (right also)"
end select
select case t*1+0
case 1 to 10, t*2, >10 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	617577	617675	
==>ype == lr_types)\n\t    goto runit_v_pp;\n\tif (++lru->u.type == lr_types)\n\t    goto runit_v_pp;\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	617635	617733	
==>ype == lr_types)\n\t    goto runit_v_pp;\n\tif (++lru->u.type == lr_types)\n\t    goto runit_v_pp;\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	19693	19815	
==>atch the acceptable target $target_name!\n";
        $to_resolve = 1
          if $self->{'accept_targets'}{$target_name} e <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	6205	6388	
==>ens, Jako::Token->new(
        $file, $line, 'infix-concat', undef, $1);
      $text = $2;
      next;
    }

    #
    # Identifiers:
    #

    if ($text =~ m{^([a-zA-Z][a-zA-Z0-9_]* <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10665	10776	
==>80-\x9F//d if 'A' eq chr(65);
        $section = $self->unicode_escape_url($section);
        # Turn char 1234 i <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4046	4150	
==>80-\x9F//d if 'A' eq chr(65);
    $section = $self->unicode_escape_url($section);
     # Turn char 1234 i <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7021	7166	
==>print "Bogus  (0): ", instr(s1$, bogus$)
print "Null   (1): ", instr(s1$, "")
print "Start (11): ", instr(6, s1$, " ")
print "Inval  (0): ", instr <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18750	18895	
==>print "Bogus  (0): ", instr(s1$, bogus$)
print "Null   (1): ", instr(s1$, "")
print "Start (11): ", instr(6, s1$, " ")
print "Inval  (0): ", instr <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11204	11328	
==>lass, $method) = @_;

    local $_ = $_[2];
    # Rewrite SELF -> pmc, INTERP -> interpreter
    s/SELF/pmc/g;
    s/\bINTERP <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	1697	1801	
==>$self;

    return $self;
}


=back

=head2 Instance Methods

=over 4

=item C<set_parent($parent)>

=ite <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7141	7317	
==>1 foo", the WS is lost.
         # Example: ['=head1', {'start_line' => 123}, ' foo']
        
        ++$self->{'pod_para_count'};
        
        $self->_ponder_paragraph_buf <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2365	2496	
==>file, $source);
    check_mandatory_boilerplate($file, $source);

    # The following SHOULD apply.
    check_line_length($file, $so <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	8458	8719	
==>nd'      => 'END',
        'false'    => 'FALSE',
        'for'      => 'FOR',
        'function' => 'FUNCTION',
        'if'       => 'IF',
        'in'       => 'IN',
        'local'    => 'LOCAL',
        'nil'      => 'NIL',
        'not'      => 'NO <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	2635	2767	
==>, $Help, $Version);

sub show_version {
    print "$ME: $VERSION ( $RCS_DATE)\n";
}

sub show_help {
print <<__EOF__;
$ME: Usage: $ME <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738174	738404	
==>.ops\"\n  {{\@1}} = string_to_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738938	739168	
==>.ops\"\n  {{\@1}} = string_to_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2746	2865	
==>tr/\n\r//d;
        
      } elsif( $line =~ s/^\xFE\xFF//s ) {
        DEBUG and print "Big-endian UTF-16 BOM seen.  Ab <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	6330	6507	
==>ment is wrong class' if \@_ && ! UNIVERSAL::isa(\$_[0], '$classes{$name}');\n";
                }
            }
            $out .= "    croak 'Too many args to $name' if \@_ > 1 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	6988	7125	
==>unshift @{$self->{'token_buffer'}}, @_;
  DEBUG > 1 and print "Token buffer now has ",
   scalar(@{$self->{'token_buffer'}}), " items in i <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	6782	6975	
==>>_LongCommentLexer($1),
                last;
            s/^\-\-(.*)\n//         # ShortComment
                and $parser->YYData->{lineno}++,
                last;

            s/^(0[X <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	1945	2048	
==>xit;
  }

  uncompress_smoke($CGI);
  unless($CGI->param("smoke") =~ /^<!DOCTYPE html/) {
    print "The <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1081303	1081504	
==>",
                              "ic",
                              "k"
                            ],
                  "BODY" => "#line 145 \"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	7193	7387	
==>ective name"
     unless $d =~ m/^[a-zA-Z][a-zA-Z0-9]*$/s;
    Carp::croak "But you must accept \"$d\" directives -- it's a builtin!"
     if exists $Known_directives{$d};
    delete $this->{'acc <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	10928	11049	
==>ot, $expect, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # undef on <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	11346	11467	
==>ot, $expect, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # undef on <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	350	450	
==>Construct::Expression::Value::Identifier;

use Carp;

use base qw(Jako::Construct::Expression::Value) <==
2	/Users/nnunley/parrot/config/auto/headers.pm	7	114	
==>ight (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/config/auto/headers.pm 19593 2006-05-30T02:28:15.110 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8067	8207	
==>rops;

      while ($self->skip_colon) {
        my $prop = $self->require_ident->text;
      
        my $value;

        if ($self->skip_as <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5073	5207	
==>rops;

      while ($self->skip_colon) {
        my $prop = $self->require_ident->text;

        my $value;

        if ($self->skip_as <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	1882	1978	
==>ription)>

Runs the Parrot Assembler code and passes the test if a string comparison
of the outpu <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	2323	2419	
==>ription)>

Runs the Parrot Assembler code and passes the test
if a string comparison of the outpu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031830	1032369	
==>"JUMP" => 0,
                  "NAME" => "sizeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1154,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 323 \"src/ops/sys.ops\"\n    if ({{\@2}} < enum_first_type || {{\@2}} >= enu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030962	1031256	
==>"JUMP" => 0,
                  "NAME" => "sizeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 115 <==
2	/Users/nnunley/parrot/lib/Test/More.pm	5134	5233	
==>t names

By convention, each test is assigned a number in order.  This is
largely done automatically <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9819	9927	
==>->new($block, $self->require_value);
      my $op    = $self->require_infix_rel->text;
      my $right = Jako <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25355	25463	
==>->new($block, $self->require_value);
      my $op    = $self->require_infix_rel->text;
      my $right = Jako <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	871	973	
==>Block');
  confess "Ident is not!" if defined $ident and not UNIVERSAL::isa($ident, 'Jako::Construct::E <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	899	1001	
==>Block');
  confess "Ident is not!" if defined $ident and not UNIVERSAL::isa($ident, 'Jako::Construct::E <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	816804	817000	
==>> []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clears",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
2	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	1608	1757	
==>= @_;
  
  my $test_no = $self->{builder}->current_test + 1;

  my $output = $self->gen_output( $code, $test_no ); 
  
  my $pass = $self->{builder}-> <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3686	3864	
==>pply_ITER',  'set', 'P3[I16]', 'P16[0]'],
  ['',            'set', 'P16', 'P16[1]'],
  ['',            'inc', 'I16'],
  ['',            'ne', 'I16', 'I2', 'apply_ITER'],
  ['apply <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676034	676148	
==>\"\n    {{\@1}}->vtable->unshift_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676814	676928	
==>\"\n    {{\@1}}->vtable->unshift_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9524	9659	
==>ags $cc_args -I./include -c test.c", 'test.cco', 'test.cco', $verbose)
        and confess "C compiler failed (see test.cco)";

    _run <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4310	4448	
==>, Attributes => { type => $type->name } });
        $handler->characters({ Data => $string });
        $handler->end_element({ Name => 'lit <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4660	4794	
==>, Attributes => { type => $type->name } });
      $handler->characters({ Data => $string });
      $handler->end_element({ Name => 'lit <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4347	4471	
==>un_core_func_decl
{
    my ($self, $core) = @_;

    return "opcode_t * " .
        $self->core_prefix .
        "$core(opcod <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2835	2959	
==>un_core_func_decl
{
    my ($self, $core) = @_;

    return "opcode_t * " .
        $self->core_prefix .
        "$core(opcod <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	578	699	
==>and print "++ $_[1]\n";
  
  print $fh   '  ' x ($_[0]{'indent'} || 0),  "<", $_[1];

  foreach my $key (sort keys %{$_[2] <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13149	13264	
==>t currently 'inside' a block, then we've got no business
      # seeing a close-brace.
      #

      $self->SYNTAX_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	370652	371155	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "readline",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 434,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => " <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	9862	10004	
==>,
  110, 'n',
  111, 'o',
  112, 'p',
  113, 'q',
  114, 'r',
  115, 's',
  116, 't',
  117, 'u',
  118, 'v',
  119, 'w',
  120, 'x',
  121, 'y <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	12641	12764	
==>ect, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $dont_expect ) {
        # undef only ma <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	13085	13208	
==>ect, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $dont_expect ) {
        # undef only ma <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943811	943899	
==>Y" => "#line 516 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_charset_number_of_str(interpr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944600	944688	
==>Y" => "#line 516 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_charset_number_of_str(interpr <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	855	1145	
==>ons:    $I4\n"; # print  "Iterations:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, I1
                              #
pri <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	855	1145	
==>ons:    $I4\n"; # print  "Iterations:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, I1
                              #
pri <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	7878	8170	
==>s/a_$name/temp/;
            }
        }
        
        # $R
        $line =~ s/\$R\b/\$P%1/g;

        $code .= emit($line, 'loop_num', 'register');
    }

    $code .= "  .return(register, pir) \n";
    
    return $code;
}

sub badargs {
    my ($cmd, @args) = @_;
    
    my $usage = cr <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15307	15415	
==>(List  $got, List  $expected, Str $desc?) returns Bool;
  multi sub is_deeply (Hash  %got, Hash  %expected, S <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6866	6982	
==>eturn shift->skip('colon');         }
sub skip_comma         { return shift->skip('comma');         }
sub skip_close_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	801	890	
==>:Construct::Expression::Value::Literal->new($block, $token)    if $token->kind eq 'literal <==
2	/Users/nnunley/parrot/config/auto/socklen_t.pm	323	459	
==>rot::Configure::Step::Base);

use Config;

use Parrot::Configure::Step ':auto';

our $description = 'Asking Perl5 whether there is sockle <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	3693	3817	
==>ches the expected
result.

=item C<pbc_output_isnt($code, $unexpected, $description)>

Runs the Parrot Bytecode and passes th <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	209	408	
==>:20.183054Z coke  $
################################################################################

=head1 NAME

tools/dev/rebuild_miniparrot.pl - Rebuild a new miniparrot distribution

=head1 SYNOP <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	13865	13963	
==>tr, $type, $index) = @_;

    return(($ptr eq '&' ? '&' : '') . sprintf($argmaps{$type_to_arg{$type <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931848	932080	
==>ops/string.ops\"\n  {{\@1}} = string_upcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932619	932851	
==>ops/string.ops\"\n  {{\@1}} = string_upcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1076027	1076241	
==>,
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4 <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	1846	2061	
==>=~ /^[[:cntrl:]]$/;  # CCLASS_CONTROL        
    $ret |= 0x0400 if $chr =~ /^[[:punct:]]$/;  # CCLASS_PUNCTUATION    
    $ret |= 0x0800 if $chr =~ /^[[:alnum:]]$/;  # CCLASS_ALPHANUMERIC   
    $ret |= 0x1000 if $c <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	3755	4090	
==>($percent/100) * $total_lines);
                $totals{lines} += $total_lines;
                $totals{covered_lines} += $covered_lines;
                $file_line_coverage{$source_file} = $percent;
                $real_filename{$source_file} = $real_filename;
                next;
            }

            ($percent, $total_lines, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325045	325330	
==>i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 381,
                  "ARGS <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16495	16609	
==>> 92,
			'functioncall' => 31,
			'tableconstructor' => 32,
			'var' => 35,
			'_field_plus' => 93,
			'field' <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	5445	5606	
==>footer);
    my $type;
    my $body;
    my $short_name;
    my $args;
    my @args;
    my @argdirs;
    my $seen_pod;
    my $seen_op;
    my $line;
    my $fla <==
2	/Users/nnunley/parrot/lib/Test/More.pm	32930	33040	
==>1 : ref $b ? 1 : $a cmp $b } @$a2]
    );
}

=back


=head2 Extending and Embedding Test::More

Sometimes the T <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2216	2353	
==>tart_element({ Name => 'cond', Attributes => { kind => $self->kind, name => $self->prefix } });
  }
  else {
    $handler->start_element({ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	6148	6287	
==>q $that> is just a
simple example) and uses that to determine if the test succeeded or
failed.  A true expression passes, a false one fails. <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2660	2793	
==>ingy.pod

=head1 DESCRIPTION

Pod::Simple::XMLOutStream is a subclass of L<Pod::Simple> that parses
Pod and turns it into XML.

Pod::S <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34746	34858	
==>cDescent::_tracefirst($text),
						  q{' . $rule->{"name"} .'})
							if defined $::RD_TRACE;').'
			if ($Parse <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41856	41968	
==>cDescent::_tracefirst($text),
						  q{' . $rule->{"name"} .'})
							if defined $::RD_TRACE;').'
			if ($Parse <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4120	4233	
==>_libs(@pmcs);

    # Convert lib-GROUP.so + A.so + B.so ... -> GROUP.so
    while (my ($group, $pmcs) = each %$gro <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4224	4337	
==>_libs(@pmcs);

    # Convert lib-GROUP.so + A.so + B.so ... -> GROUP.so
    while (my ($group, $pmcs) = each %$gro <==
2	/Users/nnunley/parrot/lib/Test/More.pm	17836	18002	
==>->ok( !$@, "use $module;" );

    unless( $ok ) {
        chomp $@;
        $@ =~ s{^BEGIN failed--compilation aborted at .*$}
                {BEGIN failed--compilati <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808516	808807	
==>"inline",
                  "CODE" => 912,
                  "ARGS" => [
                              "n",
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 502 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}-> <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	54780	54936	
==>y relationship to the corresponding substring
of the original text (see examples below).

If the extractor is a precompiled regular expression or a string,
i <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	17195	17436	
==>> -22
	},
	{#State 57
		DEFAULT => -33
	},
	{#State 58
		ACTIONS => {
			"." => 66
		}
	},
	{#State 59
		DEFAULT => -31
	},
	{#State 60
		ACTIONS => {
			'NUM' => 40
		},
		GOTOS => {
			'number' => 67
		}
	},
	{#State 61
		ACTIONS => {
			'C <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3472	3592	
==>oup.c", @pmcfiles)) {
            run("$PMC2C --library $group --c " . join(" ",@pmcfiles))
              or die "pmc2c l <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3576	3696	
==>oup.c", @pmcfiles)) {
            run("$PMC2C --library $group --c " . join(" ",@pmcfiles))
              or die "pmc2c l <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6653	6735	
==>${CURIC}_LOOP
POST_BRANCH_switch_${CURIC}_LOOP_EXIT:

POST_BRANCH_NOT_switch_${CURI <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4591	4673	
==>${CURIC}_LOOP
POST_BRANCH_switch_${CURIC}_LOOP_EXIT:

POST_BRANCH_NOT_switch_${CURI <==
2	/Users/nnunley/parrot/editor/ops2vim.pl	111	218	
==>Op';

my %seen;

## make sure files have been globbed on non-globbing OSes
## and make sure at least one com <==
2	/Users/nnunley/parrot/lib/Test/More.pm	3368	3539	
==>n);

B<NOTE>: using no_plan requires a Test::Harness upgrade else it will
think everything has failed.  See L<BUGS and CAVEATS>)

In some cases, you'll want to completely s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	18319	18543	
==>ing some tokens,
and scanning them for the title, and then ungetting them so that you can
process the token-stream from the beginning.

For example, suppose you have a document that starts out:

  =head1 NAME
  
  Hoo::Boy::W <==
2	/Users/nnunley/parrot/config/gen/config_h.pm	38	222	
==>undation.
# $Id: /parrot/config/gen/config_h.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/gen/config_h.pm - Configuration Header

=head1 DESCRIPTION

Generates F<in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	30859	30967	
==>_cont(ccont)->address) {\n\t/* else its from runops_fromc */\n\tparrot_context_t * const caller_ctx = PMC_con <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	708414	708650	
==>",
                  "CODE" => 794,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 704 \"src/ops/pmc.ops\"\n  dod_register_pmc(interpreter, {{\@1}});\n  { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361646	361740	
==>.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, INTVAL_FMT, {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362545	362639	
==>.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, INTVAL_FMT, {{\@ <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	13831	13993	
==>er_decl .= join("\n    ", @{$temps_ref});
    my $call_state = 'struct call_state st;';
    my $extra_preamble  = join("\n    ", @{$extra_preamble_ref});
    my $e <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2311	2510	
==>b run_core_func_start
{
    return <<END_C;
    /* at least gcc 2.95.2 miscompiles set_args - %edi
     * is used for the vtable call and _reg_base is clobbered
     * # if 1191 := PARROT_OP_set_args_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	4441	4675	
==>tr .= sprintf( '\x%02x', ord $_ );
                        }
                        elsif ( ord $_ >= 128 ) {
                            $str .= sprintf( '\u%04x', ord $_ );
                        }
                        elsi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	2195	2478	
==>($text =~ m{^(module)(?!\w)(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, 'module', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^(sub)(?!\w)(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, 'sub', undef, $1);
      $t <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7916	8013	
==>k)) {
			push @{$code{$seg}->{code}}, "IFBRANCH_$_:\n";
		}
=cut
UNK:	if (($type[CURR] eq "STMT" o <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	15176	15282	
==>lled once
 */

$sym_export PMC*
$load_func(Parrot_Interp interpreter)
{
    PMC *lib = pmc_new(interpreter, <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	5271	5428	
==>t ' ', $warns;
            foreach my $w (split ' ', $ccwarn) {
                $w =~ s/^-W(?:no-)?(.*)$/$1/;
                @warns = grep !/^-W(?:no-)?$w$/, <==
2	/Users/nnunley/parrot/lib/Test/More.pm	16672	16828	
==>@imports are given, they are passed through to the use.  So this:

   BEGIN { use_ok('Some::Module', qw(foo bar)) }

is like doing this:

   use Some::Module <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	983	1090	
==>,
	MultiArray => 44,
	Hash => 45,
	OrderedHash => 46,
	TQueue => 47,
	ParrotClass => 48,
	ParrotObject => 49 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2846	2954	
==>II;
  my $out = Text::Wrap::wrap($indent, $indent, $self->{'Thispara'} .= "\n");
  $out =~ tr{\xA0}{ } if Pod <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2380	2488	
==>II;
  my $out = Text::Wrap::wrap($indent, $indent, $self->{'Thispara'} .= "\n");
  $out =~ tr{\xA0}{ } if Pod <==
2	/Users/nnunley/parrot/config/gen/config_h.pm	589	759	
==>en';

$description = 'Generating C headers';

@args = ('define');

sub runstep
{
    my ($self, $conf) = @_;

    genfile(
        'config/gen/config_h/config_h.in', 'incl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404417	404669	
==>,
                  "ARGS" => [
                              "s",
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 535 \"src/ops/io.ops\"\n    {{\@1}} = PIO_sockaddr_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761505	761745	
==>\");\n    REG_PMC({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762358	762598	
==>\");\n    REG_PMC({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	36394	36499	
==>of C<"> as an embedded quoter:

	@result = extract_bracketed( $text, '<>' );

the result would be:

	( '<A <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4012	4117	
==>ush.
	$pir .= "\${ITEMP0} = 0\n";
	for (1..$pushes) {
		$pir .= <<'PIR';
# Increment stack depth.
inc stac <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2428	2533	
==>ush.
	$pir .= "\${ITEMP0} = 0\n";
	for (1..$pushes) {
		$pir .= <<'PIR';
# Increment stack depth.
inc stac <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	48687	48776	
==>elike operations. That is, C<extract_codeblock>
is like a combination of C<"extract_bracke <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	4	120	
==>pyright (C) 2001-2006, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Vtable.pm 20333 2006-06-21T18:44:31.111564Z ber <==
2	/Users/nnunley/parrot/lib/File/Which.pm	708	869	
==>, split ';', $ENV{PATHEXT};
    }
    else {
        push @path_ext, qw(.com .exe .bat); # Win9X or other: doesn't have PATHEXT, so needs hardcoded.
    }
}
elsif <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	39602	39706	
==>$pir = shift;
	my $mv = shift;

	# Loop over keys to look for automagicals and build up declaration list. <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	294	439	
==>Test::Python. Abstraction needed.

=cut

sub new {
    return bless {};
}

sub output_is() {
    my ($self, $code, $output, $desc) = @_;
  
    my <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	332	477	
==>Test::Python. Abstraction needed.

=cut

sub new {
    return bless {};
}

sub output_is() {
    my ($self, $code, $output, $desc) = @_;
  
    my <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2710	2829	
==>utput_test('==', $val1, $val2, $dest);
}

sub output_ne {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_te <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1096411	1096671	
==>TYPE" => "function",
                  "CODE" => 1216,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 236 \"src/ops/experimental.ops\"\n    PMC <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	3425	3550	
==>is('sub');           }
sub is_unless        { return shift->is('unless');        }
sub is_until         { return shift->is('un <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19063	19213	
==>ule 8
		 'regex1', 2,
sub
#line 105 "lib/Regex/Grammar.y"
{ return op('seq' => [ $_[1], op('atend') ]); }
	],
	[#Rule 9
		 'expr', 3,
sub
#line 109 "li <==
2	/Users/nnunley/parrot/lib/Test/More.pm	295	412	
==>at $file line $line\n";
}



require Exporter;
use vars qw($VERSION @ISA @EXPORT %EXPORT_TAGS $TODO);
$VERSION = '0.60 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162723	162995	
==>inline",
                  "CODE" => 196,
                  "ARGS" => [
                              "nc",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 183 \"src/ops/cmp.ops\"\n  if <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11551	11633	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub unico <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10863	11029	
==>ew_code =~ m/:[-\.0-9]/s;
            # The legal under-0x80 Name characters that 
            #  an XML Name still can't start with.
    }
    
    Carp::croak "But y <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9599	9748	
==>ew_code =~ m/:[-\.0-9]/s;
            # The legal under-0x80 Name characters that 
            #  an XML Name still can't start with.
    }
    
    $ <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	5237	5357	
==>e problems I was having writing some really
complicated feature into the new Testing module.  He observed that the
main p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4768	4874	
==>$dest_ident->scope eq 'global')) {
    my $pmc_type = $dest_ident->type->imcc_pmc;
    my $pmc_reg = $compi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2831	2937	
==>$dest_ident->scope eq 'global')) {
    my $pmc_type = $dest_ident->type->imcc_pmc;
    my $pmc_reg = $compi <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	1687	1792	
==>width window write
			keys
		);

sub dumpq {
	print "Upcoming: $type[0] $syms[0]\n";
	print "Current : $ty <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	4205	4327	
==>nk to the actual file rather than the HTML version.
            $index_html .= $formatter->html_link(
                $targ <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	3456	3594	
==>pmc));
        $TEMP_pmc_build .= <<END
src/pmc/$pmc.c : src/pmc/$pmc.dump
	\$(PMC2CC) src/pmc/$pmc.pmc

src/pmc/$pmc.dump : vtable.dump $p <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	1269	1432	
==>e a * in front of the whole line to designate
a generated file:

    source_path <whitespace> *[package]meta1,meta2,... <whitespace> destination

The square bracket <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	1749	1950	
==>kens)

    $self->{POS} = $pos;

    $self->file($self->at($pos)->file);
    $self->line($self->at($pos)->line);
  }

  return defined $self->{POS} ? $self->{POS} : -1;
}


#
# at()
#
# Without an argum <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	839820	840206	
==>":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 952,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 272 \"src/ops/stack.ops\"\n  rotate_entries(interpreter, &CONTEXT(in <==
2	/Users/nnunley/parrot/config/inter/charset.pm	624	747	
==>harset/(.*)} } glob "./src/charset/*.c"
    );

    my $charset_list = $conf->options->get('charset')
        || join(' ', g <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379059	379368	
==>TYPE" => "function",
                  "CODE" => 443,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 432 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_i <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	10264	10420	
==>ound-color: white;
      margin:           0;

      font-family: sans-serif;
      line-height: 1.3em;
      font-size:   95%;
    }

    h1, h2 {
      bac <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447922	448193	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	448748	449019	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	306709	306975	
==>P_RELATIVE",
                  "NAME" => "unless_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functio <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307502	307768	
==>P_RELATIVE",
                  "NAME" => "unless_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functio <==
2	/Users/nnunley/parrot/config/auto/jit.pm	4197	4337	
==>C_DIR)/exec_dep.h $(SRC_DIR)/exec_save.h',
                TEMP_exec_o =>
                    '$(SRC_DIR)/exec$(O) $(SRC_DIR)/exec_cpu$(O) $( <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	5808	5993	
==>ace if we're about to end a row
    if newline goto print_newline
    result .= ' '
    goto continue_2d

  print_newline:
    if newline==0 goto continue_2d
    result .= "\n"

  contin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863513	863810	
==>( {
                  "JUMP" => 0,
                  "NAME" => "bytelength",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864404	864701	
==>( {
                  "JUMP" => 0,
                  "NAME" => "bytelength",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3071	3183	
==>eq 'generate') {
    # Convert X.pmc -> X.dump and X.c and also create any lib-GROUP.c files

    generate_dump($ <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3175	3287	
==>eq 'generate') {
    # Convert X.pmc -> X.dump and X.c and also create any lib-GROUP.c files

    generate_dump($ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10728	10834	
==>Tree::classpieces::render {
    die;
}

sub Regex::Ops::Tree::seq::needparen { 0 }
sub Regex::Ops::Tree::se <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957435	957554	
==>,
                  "BODY" => "#line 581 \"src/ops/string.ops\"\n  INTVAL n = Parrot_encoding_number(interpreter, {{\@2} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958340	958459	
==>,
                  "BODY" => "#line 581 \"src/ops/string.ops\"\n  INTVAL n = Parrot_encoding_number(interpreter, {{\@2} <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	75259	75346	
==>rmat TRACE =
|@|||||||||@^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<|
$tracerulename, '|', $t <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1049	1169	
==>R_PAD, $key, '="', $value, '"';
      }
    }
  } else { # faster
    while(($key,$value) = each %{$_[2]}) {
      unless <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600123	600221	
==>+3}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601199	601297	
==>+3}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\n    re <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2521	2743	
==>nd_item_text   { $_[0]->emit_par(-2) }

sub emit_par {
  return unless $_[0]{'Errata_seen'};
  my($self, $tweak_indent) = splice(@_,0,2);
  my $indent = ' ' x ( 2 * $self->{'Indent'} + ($tweak_indent||0) );
   # Yes, 'STRIN <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1887	1981	
==>ent'} }
sub start_over_text    { ++$_[0]{'Indent'} }
sub start_over_block   { ++$_[0]{'Indent'} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1455	1549	
==>ent'} }
sub start_over_text    { ++$_[0]{'Indent'} }
sub start_over_block   { ++$_[0]{'Indent'} <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	22813	22998	
==>st($PConfig{exe}, $test_no);  
            $exe_f =~ s@[\\/:]@$PConfig{slash}@g;
            my $out_f = per_test('.out', $test_no);
            my $build_f = per_test('.build', $test_no <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	3639	3775	
==>line;

}

sub lib_line {
  my $line = shift;
  print OUTPUT "loadlib P1, '$line'\n";
}

sub def_line {
  my $line = shift;
  my ($return_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	230928	231213	
==>line",
                  "CODE" => 269,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 592 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	1702	1878	
==>$curlabel = "$op->[1]:" . $curlabel;
	} elsif (my $outfunc = $OUTPUT{$op->[0]}) {
	    my @args = @$op;
	    shift(@args);
	    push @r, $curlabel . $outfunc->(@args);
	    $cur <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11546	11649	
==>ld/pmc2c.pl>).

=cut

sub rewrite_vtable_method ($$$$$) {
    my ($class, $method, $super, $super_table) <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7656	7807	
==>";
	#	EXPRESSION;		# Evaluate the expression all queued up.
	#	ASSIGNMENT($var);
	#	goto PARSE_NOFEED;
	#}
	goto PARSE;

=begin wrongway

UNK:	if (($typ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3011	3131	
==>.subnodes...> ]>.
See the example tree dump in the Synopsis, above.

Every text node in the tree is represented by a simp <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2311	2470	
==>}\n",
 'head3'   => "\n{\\pard\\li#rtfindent#\\s33\\keepn\\sb90\\sa180\\f2\\fs#head3_halfpoint_size#\\ul{\n",
 '/head3'  => "\n}\\par}\n",
 'head4'   => "\n{\\p <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	10411	10633	
==>{lc($filename)}=$_;
    }

    close(F);
}



sub info {
    my ($file, $line, $message) = @_;

    print "$file:$line (INFO) " . Text::Wrap::wrap("", "        ", $message) . "\n";
}


sub warning {
    my ($file, $line, $m <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76711	76814	
==>/\d+/
	    && $::RD_TRACE>1
	    && $::RD_TRACE+10<length($_[0]))
	{
		my $count = length($_[0]) - $::RD <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77022	77125	
==>/\d+/
	    && $::RD_TRACE>1
	    && $::RD_TRACE+10<length($_[0]))
	{
		my $count = length($_[0]) - $::RD <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	4	148	
==>pyright (C) 2005, The Perl Foundation.
# $Id: /parrot/config/init/hints/solaris.pm 19593 2006-05-30T02:28:15.110975Z coke  $

package init::hints <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	8882	8973	
==>arser->{_check}{thisoffset}?'
	my $thisoffset;
	tie $thisoffset, q{Parse::RecDescent::Offset <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	37482	37652	
==>p $_->[0] eq '=for', @$curr_open;
          DEBUG > 1 and print "Containing fors: ",
            join(',', map $_->[1]{'target'}, @fors), "\n";
          
          if(! @ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	732	903	
==>bel() {
	# We'll emit a label for every single instruction.
	return <<'PIR';
strPC = ${PC}
${INS} = concat "LAB"
${INS} = concat strPC
${INS} = concat ": "
PIR
}

# Pre and <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	6799	7032	
==>rror";
}

sub _subclass_error {
    croak 'struct class cannot be a subclass (@ISA not allowed)';
}

1; # for require


__END__

=head1 NAME

Class::Struct - declare struct-like datatypes as Perl classes

=head1 SYNOPSIS

    use Clas <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605218	605495	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addattribute",
                  "FLAGS" => ":object_classe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606008	606285	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addattribute",
                  "FLAGS" => ":object_classe <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	44727	44856	
==>, if it is a C<s>, C<tr>, or C<y>),

=item [8]

the text of the second block of the operation 
(that is, the replacement of a subs <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	15701	16117	
==>rgs
  bad_args:
    %% DOMAIN_ERROR %%
  got_args:
END_PIR
   
     $template .= interpolate($code, '$P1', '$P2');

          $template .= << 'END_PIR';

    push result, $P1
    goto loop
loop_done:
    # return the result vector
    .return (result)
END_PIR

        } else {
           # Vector to Scalar
           my ($vector, $scalar, @order);
           if ($type1 eq 'APLVector') {
               $vector = "o <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	3174	3302	
==>ves" />
          <keyword attribute="Type" context="#stay" String="types" />
          <RegExpr attribute="Comment" context="#st <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9828	9934	
==>\?\!\"\'\.\,]) /$1\n/g unless $self->{DONT_WRAP};
    
    # URLs not in L<>.
    $text =~ s|(http://[^\s)] <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	2310	2404	
==>w_item('', 'tools/build/parrot_config_c.pl'),
            $self->new_item('', 'tools/build/pmc2 <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1994	2107	
==>alled from C<new()> to create the path if necessary.

=cut

sub create_path
{
    my $self = shift;
    
    retur <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	971	1084	
==>alled from C<new()> to create the path if necessary.

=cut

sub create_path
{
    my $self = shift;
    
    retur <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	18083	18232	
==>+)/) {
	$targ = "pc_$1";
    }
    print <<EOC;
	if $tos->[1] goto $targ $cmt
EOC
}

sub UNARY_NOT
{
    my ($n, $c, $cmt) = @_;
    my ($opcode, $arg <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299482	299644	
==>"n"
                            ],
                  "BODY" => "#line 975 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300328	300490	
==>"n"
                            ],
                  "BODY" => "#line 975 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	22907	23031	
==>y $out_f = per_test('.out', $test_no);
            my $build_f = per_test('.build', $test_no);
            my $pdb_f = per_te <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2388	2472	
==><examples/benchmarks/mops.pasm>,
F<examples/mops/mops.c>,
F<examples/mops/mops.cs>,
F <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	2388	2472	
==><examples/benchmarks/mops.pasm>,
F<examples/mops/mops.c>,
F<examples/mops/mops.cs>,
F <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25526	25611	
==>, FORLOOP_END_$forloop, AFTER_NEXT_$forloop
	goto FOR_LOOP_BODY_$forloop
FOR_GT_$forlo <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	18577	18819	
==>begin without a target?"
        );
        DEBUG and print "Ignoring targetless =begin\n";
        next;
      }
      
      unless($content =~ m/^\S+$/s) {  # i.e., unless it's one word
        $self->whine(
          $para->[1]{'start_line <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9015	9147	
==>o, $link, $linkflags, $cc_exe_out, $exe, $libs

Calls the compiler and linker on F<test.c>.

=cut

sub cc_build
{
    my ($cc_args, $ <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	4262	4386	
==>64);

 $hash = md5 $data;
 $hash = md5_hex $data;
 $hash = md5_base64 $data;


 # OO style
 use Digest::MD5;

 $ctx = Digest: <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7503	7629	
==>g",
                $self->dbprint("PUSHED[\%<<rx_tmp>>] INT: \%<$reg>$desc\n"),
               );
    }
    return $self->push <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2141	2237	
==>f->prefix($self->peer->prefix);
  }

  if ($self->prefix) {
    $handler->start_element({ Name => <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2018	2114	
==>f->prefix($self->peer->prefix);
  }

  if ($self->prefix) {
    $handler->start_element({ Name => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022786	1023088	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodelocaltime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023635	1023937	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodelocaltime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600038	600143	
==>\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_N <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601114	601219	
==>\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_N <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	58395	58491	
==>returns the regex:

        (?:\"(?:\\\"|(?!\").)*\"|\'(?:\\\'|(?!\').)*\')

Note that the specif <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	139	252	
==>ME

Parrot::Docs::Group - Group of documentation items

=head1 SYNOPSIS

	use Parrot::Docs::Group;

=head1 DESCRIP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938044	938341	
==>oin",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938933	939230	
==>oin",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243904	243996	
==>BODY" => "#line 632 \"src/ops/cmp.ops\"\n  STRING* l = VTABLE_get_string(interpreter, {{\@2}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244836	244928	
==>BODY" => "#line 632 \"src/ops/cmp.ops\"\n  STRING* l = VTABLE_get_string(interpreter, {{\@2}} <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	1169	1346	
==>type[CURR] !~ /COMP|COMM|STMT/) {
		die if $loop++>20;
		$var=$syms[CURR];
		feedme;
		my $array=0;
		if ($syms[CURR] eq "(") {
			$array=1;
			while($syms[CURR] ne ")") {
				fe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89231	89429	
==>,
                  "BODY" => "#line 38 \"src/ops/bit.ops\"\n  {{\@1}} &= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89969	90167	
==>,
                  "BODY" => "#line 38 \"src/ops/bit.ops\"\n  {{\@1}} &= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Test/More.pm	26087	26220	
==>t_stack(@Data_Stack));
        }
    }

    return $ok;
}

sub _format_stack {
    my(@Stack) = @_;

    my $var = '$FOO';
    my $did <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	6696	6952	
==>verything following it)
#  follow_min - The minimum number of atoms in nodes following the current
#
# FIXME: Once I add in the various 'cut' operations, it will no longer
# be correct to fail early (since failure can then be more dramatic!).
#
sub add_chec <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	757	906	
==>f, $op) = @_;
    my @indices;
    for my $i (0..$#{ $op->{args} }) {
        my $arg = $op->{args}->[$i];
        push(@indices, $i) if is_label($arg <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	12834	12942	
==>urn;
}

=item C<_slurp($filename)>

Slurps C<$filename> into memory and returns it as a string.

=cut

sub _s <==
2	/Users/nnunley/parrot/lib/Test/More.pm	24510	24604	
==>stances Test::More provides a handful of useful functions.

B<NOTE> I'm not quite sure what wil <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33488	33612	
==>$_[0]) || $_[0];
	bless 
	{
		"subrule"   => $_[1],
		"lookahead" => $_[2],
		"line"      => $_[3],
		"implicit"  => $_[4] || <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2420	2561	
==>e, $sym->file);
  }

  #
  # Now that we've decided to actually declare the constant, we will place its
  # definition into the block at the t <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2167	2308	
==>e, $sym->file);
  }

  #
  # Now that we've decided to actually declare the constant, we will place its
  # definition into the block at the t <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	21897	22018	
==>init_code =~ s/INTERP/interp/g;
    my $enum_name = $self->{flags}{dynpmc} ? -1 : "enum_class_$classname";
    $cout .= << <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39452	39540	
==>htarg,
		"expected"  => "<${type}op: ".$leftarg->describe." ".$op->describe." ".$rightarg <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1840	1929	
==>::SimpleTree -MData::Dumper -e \
     "print Dumper(Pod::Simple::SimpleTree->new->parse_fi <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21853	21990	
==>=> 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 68
		ACTIONS => {
			"^" => 79
		},
		DEFAULT => -73
	},
	{#State 69 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4153	4264	
==>{
		no strict 'refs';

			exists(${__PACKAGE__.'::'}{_DBParse})#Already loaded ?
		and	return;
	}
	my($fna <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3941	4046	
==>{
		no strict 'refs';

			exists(${__PACKAGE__.'::'}{_DBParse})#Already loaded ?
		and	return;
	}
	my($fna <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1744	1852	
==>->{type} if $_->{type} eq 'REAL';
    }
    $node->{type} = $cur_type;#$node->{children}[0]{type};
  } else { <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65395	65561	
==>co)
				{
					_parse("a $1-or-more subrule match", $aftererror,$line,"$code$argcode($1..)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr($grammar,$ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5651	5763	
==>"\n"
PIR
	}

	return $pir;
}

# Pre and post store operation hooks.
sub pre_store($) {
	my $self = shift;
	my $de <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4493	4605	
==>"\n"
PIR
	}

	return $pir;
}

# Pre and post store operation hooks.
sub pre_store($) {
	my $self = shift;
	my $de <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Examples.pm	192	287	
==>ples documentation section

=head1 SYNOPSIS

    use Parrot::Docs::Section::Examples;

=head1 DE <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9515	9652	
==>hat aren't legal in an XML Name.
        or $new_code =~ m/^[-\.0-9]/s
        or $new_code =~ m/:[-\.0-9]/s;
            # The legal unde <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10779	10916	
==>hat aren't legal in an XML Name.
        or $new_code =~ m/^[-\.0-9]/s
        or $new_code =~ m/:[-\.0-9]/s;
            # The legal unde <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600199	600306	
==>eter, {{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n         \"Class '%Ss' doesn't exist\", n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601275	601382	
==>eter, {{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n         \"Class '%Ss' doesn't exist\", n <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	1412	1508	
==>0], $extrapos-$startlen, $extralen, "\n");
			$res[1] = "$extra$res[1]";
			eval { substr($$textr <==
2	/Users/nnunley/parrot/lib/Test/More.pm	16759	16867	
==>ome::Module', qw(foo bar)) }

is like doing this:

   use Some::Module qw(foo bar);

Version numbers can be c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189378	189742	
==>",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 225,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 306 \"src/ops/cmp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	922303	922637	
==>GS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1038,
                  "ARGS" => [
                              "p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8895	8985	
==>my $decl = Jako::Construct::Declaration::Sub->new($block, $type, $ident, { %props }, [ @for <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2439	2530	
==>m_bullet { $_[0]->emit_par( 0) }
sub end_item_number { $_[0]->emit_par( 0) }
sub end_item_te <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2007	2098	
==>m_bullet { $_[0]->emit_par( 0) }
sub end_item_number { $_[0]->emit_par( 0) }
sub end_item_te <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688116	688204	
==>=> "#line 576 \"src/ops/pmc.ops\"\n   {{\@1}}->vtable->delprop(interpreter, {{\@1}}, {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688888	688976	
==>=> "#line 576 \"src/ops/pmc.ops\"\n   {{\@1}}->vtable->delprop(interpreter, {{\@1}}, {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	868	972	
==>($text, @paths)>

Returns a new item.

Use this when creating items within a C<Parrot::Docs::Section>
sub <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93384	93657	
==>\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94164	94437	
==>\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1369	1494	
==>_to_language = $language;
        } elsif ($dir_count == 2) {
          $path_to_language = '.';
        } elsif ($dir_count > <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1854	1979	
==>_to_language = $language;
        } elsif ($dir_count == 2) {
          $path_to_language = '.';
        } elsif ($dir_count > <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	1767	1904	
==>Op.pm lib/Parrot/OpTrans/CGP.pm lib/Parrot/OpLib/core.pm
	$(PERL) $(BUILD_TOOLS_DIR)/ops2c.pl CGP --core
EOF
            TEMP_cg_o => '$(O <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	34541	34803	
==>ero_p,
  'positive?'        => \&_op_positive_p,
  'negative?'        => \&_op_negative_p,
  'odd?'             => \&_op_odd_p,
  'even?'            => \&_op_even_p,
  'max'              => \&_op_max,
  'min'              => \&_op_min,
  '+'                => \&_ <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5188	5332	
==>n
        # some platforms
        if ($^O eq 'hpux' or $^O eq 'cygwin') {
            chmod 0755, "$dest/$_$LOAD_EXT";
        }

    }
}
else { <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5399	5543	
==>n
        # some platforms
        if ($^O eq 'hpux' or $^O eq 'cygwin') {
            chmod 0755, "$dest/$_$LOAD_EXT";
        }

    }
}
else { <==
2	/Users/nnunley/parrot/examples/benchmarks/oo5.pl	19	190	
==>ct;

my $o = new Foo();
for my $i (1 .. 500000) {
	my $x = $o->i;
	my $y = $o->j;
}
print $o->i, "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift <==
2	/Users/nnunley/parrot/languages/perms.pl	375	588	
==>@prefix = ( (0) x (@prefix + 1) );
    }

	  my @tumbler = map { $things->[$_] } @prefix;
	  my $ret = join('', @tumbler);
    return $ret;
	};
}

=cut
00
10
20
30
40
50
60
01
11
21
31
=cut

my $it = deeper(5, \@th <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18283	18429	
==>ub {
	feedme;
	create_label();

	push @{$code{$seg}->{code}}, <<GOSUB;	
	bsr $labels{$syms[CURR]}\t# GOSUB $syms[CURR]
	#RTJ ne JUMPLABEL, "", RUNT <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2324	2429	
==>>emit_par(-2) }
sub end_head4       { $_[0]->emit_par(-1) }
sub end_Para        { $_[0]->emit_par( 0) }
su <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1892	1997	
==>>emit_par(-2) }
sub end_head4       { $_[0]->emit_par(-1) }
sub end_Para        { $_[0]->emit_par( 0) }
su <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	62395	62495	
==>r '%' at the start of
a variable, but didn't find any of them.

=item C<Bad identifier after derefere <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19427	19565	
==>r to try
putting a hidden code on all Perl symbols (as best as it can
notice them) that labels them as being not in English, and
so not wor <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9805	9902	
==>ression::Value->new($block, $self->require_value);
      my $op    = $self->require_infix_rel->tex <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25341	25438	
==>ression::Value->new($block, $self->require_value);
      my $op    = $self->require_infix_rel->tex <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3447	3677	
==>_;
    $self->output_test('gt', $val1, $val2, $dest);
}

sub output_ge {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_test('ge', $val1, $val2, $dest);
}

sub output_if {
    my ($self, $reg, $dest) = @_;
    $reg = v <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	1245	1488	
==>return $file;
}

sub extract_info {
    my ($file) = @_;
    
    my $spec = <$file>;
    die "Invalid args: '$spec'\n"
        unless $spec =~ /\[ (\w+) (?: \s+ (.+?) )? \]/x;

    my $cmd  = $1;
    my $args = $2;

    return $cmd, parse_usag <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419554	419758	
==>"i",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009871	1010097	
==>{{\@1}} = string_compose(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010636	1010862	
==>{{\@1}} = string_compose(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	1515	1644	
==>var\"]= \$S0\n";
			}

		}
	}
	#print CODE<<INIT;
	#.sub ${seg}_run			# Always jump here.
		#${seg}_main()
		#ret
	#.end
#INIT
	my <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	6674	6903	
==>{
    my $op = shift;

    # For now, return true iff all subexpressions' startsets contain
    # only integers (no character classes or weirder things), and all
    # of those integers are different.
    my %start;
    foreach my <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	27113	27308	
==>content"
          );
          $para->[1]{'indent'} = 4;
        }
      } else {
        $self->whine(
          $para->[1]{'start_line'},
          "=over should be: '=over' or '=over positive_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	33830	33945	
==>[1]{'to'}[0] = ''; # set the copy's tagname to nil
          die "SANITY FAILURE" if $treelet->[0] eq ''; # should n <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1150	1242	
==>ue;
  my $right = $self->right->compile($compiler);

  if ($self->block->scope_of_ident($left <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	1645	1751	
==>ng the various C<process_*> methods
below. This makes it easier to where the custom bits of Parrot-specific <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	11551	11675	
==>er;
    $enc_error = join '' =>
      "This document probably does not appear as it should, because its ",
      "\"=encoding <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	8384	8477	
==>ets'} } if wantarray;
  return;
}

#---------------------------------------------------------- <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	3395	3554	
==>rror
        if ($@ || !exists $hugeintval{hugeintval}) {
            $conf->data->set(int8_t => undef);
            next;
        }

        if ($hugeintval{hu <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	22414	22715	
==>xpr1->[1] };
    push @opcodes, @{ $expr2->[1] };
    push @opcodes, new LocalDir( $parser,
        'result' => $flag,
    );
    push @opcodes, new RelationalOp( $parser,
        'op'     => $opcode{$op},
        'arg1'   => $expr1->[0],
        'arg2'   => $expr2->[0],
        'result' => $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21592	21759	
==>xpr1->[1] };
    push @opcodes, @{ $expr2->[1] };
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new NewOp( $pars <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5668	5767	
==>> cannot be found then a warning is printed.

=cut

sub file_paths_relative_to_source
{
    my $self <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5880	5984	
==>tch>["$group";0], $value # open group $group!;
}

sub output_setend {
    my ($self, $group, $value, $adj <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64649	64743	
==>p * const new_interp = (Interp *)PMC_data({{\@1}});\n  Interp_flags_SET(new_interp, PARROT_EXTE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65600	65694	
==>p * const new_interp = (Interp *)PMC_data({{\@1}});\n  Interp_flags_SET(new_interp, PARROT_EXTE <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	10872	11008	
==>strict 'refs';

        *{$package.'::'.$func} = sub {
            local $SIG{__WARN__} = \&report_odd_hash;
            my( $code, $expe <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20640	20856	
==>1010
end sub
dim narf as struct
dim bar(1)
dim lot$(1)
dim poit(1) as struct
dim h$(1)
thing$="Hello"
bar(5)=55555
lot$(2)="Aloha"
narf.first=999
poit(4).first=111111
call foo()
print thing$,
print bar(5),
print lot$( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054477	1054578	
==>");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055604	1055705	
==>");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576394	576491	
==>" => "#line 276 \"src/ops/object.ops\"\n  PMC *name;\n  name = pmc_new(interpreter, enum_class_Str <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577406	577503	
==>" => "#line 276 \"src/ops/object.ops\"\n  PMC *name;\n  name = pmc_new(interpreter, enum_class_Str <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	29423	29580	
==>i >= 0; $i--) {
	$p = temp('P');
	print <<EOC;
	$p = $seq\[$i\] $cmt
EOC
	push @stack, [-1, $p, 'P'];
    }
}

sub DUP_TOP
{
    my ($n, $c, $cmt) = @_;
    m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095137	1095227	
==>Y" => "#line 223 \"src/ops/experimental.ops\"\n  Parrot_Exec_OS_Command(interpreter, {{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095832	1095922	
==>Y" => "#line 223 \"src/ops/experimental.ops\"\n  Parrot_Exec_OS_Command(interpreter, {{\@1} <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11350	11452	
==>RETURN_${CURIC}:

# Finished.
goto PRE_CALL_END_${CURIC}

# It's a return. See if we have a return valu <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8536	8638	
==>RETURN_${CURIC}:

# Finished.
goto PRE_CALL_END_${CURIC}

# It's a return. See if we have a return valu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43266	43725	
==>P" => 0,
                  "NAME" => "pushmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 55,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 732 \"src/ops/core.ops\"\n  Parrot_push_mark(interpreter, {{\@1}});\n  {{+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43909	44228	
==>P" => 0,
                  "NAME" => "pushmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 56,
                  "ARGS" => [
                              "ic" <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4232	4384	
==>.
                $internal_calls{$1}{"$file:$function"}++ 
                  unless ($variable_visible{$file}{$1} || 
                          $variabl <==
2	/Users/nnunley/parrot/examples/benchmarks/arriter.pl	854	974	
==>$j = 0;
for $s (@k) {
    ++$j;
    $ha{$s} = 1;
}
print scalar(@k), "\n";
print "$j\n";
print scalar keys(%ha), "\n";
pr <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	2913	3028	
==>cut

sub write_html
{
    my $self = shift;
    my $source = shift || die "No source\n";
    my $target = shift || d <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	2361	2476	
==>cut

sub write_html
{
    my $self = shift;
    my $source = shift || die "No source\n";
    my $target = shift || d <==
2	/Users/nnunley/parrot/tools/dev/as2c.pl	1052	1182	
==>"    ". join '', map {"0x$_, "} @pairs;
	    print " " x (3*(8 - $len));
	    print "    /* $src */\n";
	}
	elsif (/\.type\s+(\w+)\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421381	421810	
==>> [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 484,
                  "ARGS" => [
                              "i",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 562 \" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11499	11601	
==>eam)=@_;
	my(@code,@work);

	my $oneop=0;
	my $optype="N";
	my $result="";
	foreach my $token (@stream) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	28293	28420	
==>->{name};
        if ($self->can($method)) {
            return $self->$method($op, @{ $op->{args} }, $lastback)
              u <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3005	3130	
==>N PROGRAM ################

my ($mode, @pmcs) = @ARGV;

if ($mode eq 'generate') {
    # Convert X.pmc -> X.dump and X.c and a <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3109	3234	
==>N PROGRAM ################

my ($mode, @pmcs) = @ARGV;

if ($mode eq 'generate') {
    # Convert X.pmc -> X.dump and X.c and a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47636	47775	
==>c"
                            ],
                  "BODY" => "#line 770 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Interp_debug_SET(interp <==
2	/Users/nnunley/parrot/config/gen/icu.pm	401	562	
==>ename;
use Parrot::Configure::Step qw(capture_output cc_gen cc_clean);

$description = "Determining whether ICU is installed";

@args = qw(verbose icushared icuhe <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	599	703	
==>ot_config.c

=head1 DESCRIPTION

Create F<src/parrot_config.c> with relevant runtime for the config
proce <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	11404	11665	
==>ator, op1

loop:
    unless iter goto done
    $P1 = shift iter
    unshift result, $P1
    goto loop
done:
    .return(result)
.end

.sub 'dyadic:~' :multi(APLVector, APLVector) # without
    .param pmc op1
    .param pmc op2

    .local pmc result
    result = <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	41911	42005	
==>k

The subroutine takes up to four optional arguments (the same set as
C<extract_tagged> except <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	6960	7096	
==>lare struct-like datatypes as Perl classes

=head1 SYNOPSIS

    use Class::Struct;
            # declare struct, based on array:
    str <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	3133	3304	
==>>

Writes the C file for the library.

=cut

sub gen_c {
    my ($self) = @_;
    my $cout = dont_edit('various files');

    $cout .= $self->includes;
    $cout .= dynext_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	8303	8514	
==>y now it's safe to consider the previous paragraph as done.
        push @$paras, ['~Para',  {'start_line' => $self->{'line_count'}}, $line];
        DEBUG > 1 and print "Starting plain para at line ${$self}{'lin <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1737	1843	
==>f arguments (expected %d, got %d) in call to '%s'.",
    scalar(@formal_args), scalar(@args), $name)
    un <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1437	1543	
==>f arguments (expected %d, got %d) in call to '%s'.",
    scalar(@formal_args), scalar(@args), $name)
    un <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	427	562	
==>);


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $kind        = $self->kind;
  my $peer        = $se <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	407	542	
==>);


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $kind        = $self->kind;
  my $peer        = $se <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	832	1012	
==>ting $Parse::RecDescent::expected but found \"$1\" instead";
	}
}

   *defskip  = \ '\s*';	# DEFAULT SEPARATOR IS OPTIONAL WHITESPACE
   $skip  = '\s*';		# UNIVERSAL SEPARATOR IS OP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548206	548445	
==>while(i>0) {\n    q = q*i;\n    i--;\n  }\n  {{\@1}} = q;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549113	549352	
==>while(i>0) {\n    q = q*i;\n    i--;\n  }\n  {{\@1}} = q;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	10489	10586	
==>hose checks. So you should call
# add_checks() to put the (hopefully fewer) checks back in.
sub di <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	20588	20718	
==>ttrname ('section', 'to') {        
            if(defined($thing = $treelet->[$i][1]{$attrname}) and ref $thing) {
              u <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	42072	42198	
==>ttrname ('section', 'to') {        
          if(defined($thing = $treelet->[$i][1]{$attrname}) and ref $thing) {
            u <==
2	/Users/nnunley/parrot/lib/Test/More.pm	12887	12999	
==>ok ($$;$) {
    my($object, $class, $obj_name) = @_;

    my $diag;
    $obj_name = 'The object' unless defined $ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	124	227	
==>se vars qw(@EXPORT @ISA);

use Parrot::Config;

require Exporter;
require Parrot::Test;

@EXPORT = ( qw( <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	41	144	
==>se vars qw(@EXPORT @ISA);

use Parrot::Config;

require Exporter;
require Parrot::Test;

@EXPORT = ( qw( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	816525	816712	
==>ore",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 923,
                  "ARGS" => [],
                  "BODY" => "#line 600 \"src <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	358	520	
==>>{children} = [];
    $count++;
    while($tokens->[$count] ne ')') {
      my $expr;
      ($count, $expr) = _build_tree ($tokens, $count);
      push @{$temp->{c <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	47333	47447	
==>-------

sub _out {
  # For use in testing: Class->_out($source)
  #  returns the transformation of $source
  
  my <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	3372	3542	
==>{ $_->{class} => $_ }
                              values %{$self->{pmcs}} );

    return $cout;
}

=item C<includes()>

Returns the set of C C<#include>s for the library <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	1172	1328	
==>{raw_pir} } ) {
        if ( $line =~ $verbatim_begin ) {
            $verbatim = 1;
        }
        if ( $line =~ $verbatim_end ) {
            $verbatim_ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	9675	9946	
==>94, '^',
   95, '_',
   96, '`',
   97, 'a',
   98, 'b',
   99, 'c',
  100, 'd',
  101, 'e',
  102, 'f',
  103, 'g',
  104, 'h',
  105, 'i',
  106, 'j',
  107, 'k',
  108, 'l',
  109, 'm',
  110, 'n',
  111, 'o',
  112, 'p',
  113, 'q',
  114, 'r',
  115, 's',
  116, 't', <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	1945	2059	
==>r the next guy to understand
what your test is for.  It's highly recommended you use test names.

All tests are run <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947098	947205	
==>r, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\"charset '%Ss' not found\", {{\@2}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948000	948107	
==>r, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\"charset '%Ss' not found\", {{\@2}} <==
2	/Users/nnunley/parrot/config/gen/config_h.pm	877	987	
==>onditioned_lines => 1
    );

    genfile(
        'config/gen/config_h/feature_h.in', 'include/parrot/feature. <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	1702	1833	
==>:croak "Use set_source with ", __PACKAGE__,
    " and subclasses, not parse_lines";
}

sub parse_line {
  use Carp ();
  Carp::croak <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149139	149226	
==>e 105 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) == {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150080	150167	
==>e 105 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) == {{ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4657	4949	
==>eys %$self) {
        return $self->{args}->[0];
    } else {
        return $self;
    }
}

sub minlen {
    my $op = shift;
    my $minlen = 0;
    $minlen += $_->minlen() foreach @{ $op->{args} };
    return $minlen;
}

sub maxlen {
    my $op = shift;
    my $maxlen = 0;
    foreach my $k <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5794	5930	
==>eys %$self) {
        return $self->{args}->[0];
    } else {
        return $self;
    }
}

sub minlen {
    my $op = shift;
    my $min <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666076	666419	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "elements",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	13047	13166	
==>e}}, qq{\tgoto END_$seg\n};
		feedme();
		#$_=english_func($funcname);
		#print CODE "\tgoto FUNC_EXIT_$_\n";
	} elsif ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13109	13228	
==>Y_DESTINATION, STACK_CLEANUP_NULL);\n  loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13953	14072	
==>Y_DESTINATION, STACK_CLEANUP_NULL);\n  loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	9099	9240	
==>'.',
   47, '/',
   48, '0',
   49, '1',
   50, '2',
   51, '3',
   52, '4',
   53, '5',
   54, '6',
   55, '7',
   56, '8',
   57, '9',
   58 <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65588	65792	
==>op: $name $2 $name>($1..) ");

						pos $grammar = $pos;
					}
					else
					{
						$item = new Parse::RecDescent::Repetition($name,"$1..",$1,$MAXREP,
										   $lookahead,$line,
										   $self, <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	5818	5924	
==>tions include...

    STDOUT    filehandle to redirect STDOUT to
    STDERR    filehandle to redirect STDER <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	132	229	
==>qw(@EXPORT @ISA);

use Parrot::Config;

require Exporter;
require Parrot::Test;

@EXPORT = ( qw(ou <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	49	146	
==>qw(@EXPORT @ISA);

use Parrot::Config;

require Exporter;
require Parrot::Test;

@EXPORT = ( qw(ou <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1785	1950	
==>pbc'),
                    $lang_fn ) );

        Parrot::Test::write_code_to_file( $code, $lang_fn );

        # STDERR is written into same output file
        my $ <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	8255	8363	
==>) {
    print SOURCE <<END_C;
goto *${bs}ops_addr[*cur_opcode];

END_C
}



print SOURCE <<END_C;
/*
** Op Fu <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	5920	6128	
==>ms; ++$i) {
	    my $p = $params[$i];
	    print <<EOC;
	$p = find_lex -1, $i
EOC
	}
    }
    # XXX classes are store in this pad because of name clash
    #     namespace <=> classname
    # TODO mange class <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	5776	5882	
==>| $api =~ $ParrotPrefix) {
	push @UnParrotAPI, $api;
    }
}

if (@NoParrotAPI) {
    printf "--- Missing P <==
2	/Users/nnunley/parrot/config/init/hints.pm	453	644	
==>escription = 'Loading platform and local hints files';

@args = qw( cc verbose define );

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    my $ <==
2	/Users/nnunley/parrot/config/init/defaults.pm	3771	3885	
==>prefix for ldflags (necessary for Win32)
        cc_ldflags => '',

        # ld output file.  Keep the trailing sp <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	10123	10256	
==>NV{HARNESS_ACTIVE};
        $self->diag("    $msg test ($file at line $line)\n");
    } 

    return $test ? 1 : 0;
}


sub _unoverloa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	620031	620392	
==>rot_pic_opcode(interpreter, PARROT_OP_pic_infix___ic_p_p);\n\t{{+=0}};\n    }\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELA <==
2	/Users/nnunley/parrot/lib/Test/More.pm	8627	8729	
==>exist for false and 0.
In these cases, use ok().

  ok( exists $brooklyn{tree},    'A tree grows in Bro <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	1431	1650	
==>, %2)"
    $P0['monadic:'] =  "    $P0 = find_global 'APL', %0\n    %1 = $P0(%1)"

    # special-purpose parrot ops here
    $P0['dyadic:<']       =  <<"END_PIR"            # less than
    $I100 = islt %1, %2
    %1 = $I <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320344	320767	
==>GS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 375,
                  "ARGS" => [
                              "i",
                              "nc"
                            ],
                  "BODY" => "#line 124 \"src/ops/dotgnu.o <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	10758	10887	
==>ath.h
fprintf     stdio.h
fputc       stdio.h
fputs       stdio.h
fread       stdio.h
free        stdlib.h
freopen     stdio.h
fre <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1359	1467	
==>{
	# We need a stack depth and a string for label gen and some
	# storage for stack depths and stack type sta <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	446	554	
==>{
	# We need a stack depth and a string for label gen and some
	# storage for stack depths and stack type sta <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612967	613059	
==>c/ops/object.ops\"\n    VTABLE_set_attr_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613874	613966	
==>c/ops/object.ops\"\n    VTABLE_set_attr_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+ <==
2	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	451	569	
==>le files
#
# Revision 1.7  2002/05/24 03:59:46  clintp
# Screwed up ID strings
#

# Loads and runs the BASIC interprete <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33325	33458	
==>f ($_[0]->{"matchrule"})
	{
		return "&{'$_[1]'.qq{$_[0]->{subrule}}}";
	}
	else
	{
		return $_[1].$_[0]->{"subrule"};
	}
}

sub new ( <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	7646	7751	
==>ating, $_noactions, \@args)
sub ' . $namespace . '::' . $self->{"name"} .  '
{
	my $thisparser = $_[0];
	$ <==
2	/Users/nnunley/parrot/config/gen/config_pm.pm	980	1132	
==>gen/config_pm.pm\n";

    my $data = $conf->data;

    while (<IN>) {
	if (/<<HERE>>/) {
       	    s/<<HERE>>/$data->dump()/e;
	    s/(\$\(([A-Za-z_]+) <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	718	830	
==>RY => 5,
};
$CGI::POST_MAX = MAX_SIZE;
chdir BASEDIR or die "Couldn't chdir into \"@{[ BASEDIR ]}\": $!\n";

$SIG <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	73469	73582	
==>[0]->{deferred} = [];
	$_[0]->{errors} = [];
	my @args = @_[3..$#_];
	my $args = sub { [ @args ] };
				 
	$AUTOLO <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	4394	4531	
==>rings{$text} = $line;
    my $h = hash_val($text);
    <<"DATA";
static /*const*/ char static_string_${line}_data\[\] = $text;
static /*co <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4794	4939	
==>$a1,$a2,$result,$op,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		return(<<CODE, $result);
	# FIXME
	eq $a1, $ot1, TRUE_${eq <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46932	47043	
==>ops/core.ops\"\n  if ({{\@1}} != 0) { Interp_debug_SET(interpreter,   {{\@1}}); }\n  else         { Interp_debug <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47715	47826	
==>ops/core.ops\"\n  if ({{\@1}} != 0) { Interp_debug_SET(interpreter,   {{\@1}}); }\n  else         { Interp_debug <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327456	327789	
==>GS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 384,
                  "ARGS" => [
                              "p",
                              "nc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	4411	4585	
==>}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => " <==
2	/Users/nnunley/parrot/config/inter/progs.pm	761	909	
==>($cc, $cxx, $link, $ld, $ccflags, $ccwarn, $linkflags, $ldflags, $libs, $lex, $yacc);

    # Find a working version of a program:
    # Try each alte <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	29247	29450	
==>ode also processes
each quote-like operation, but actually removes them from $text:

	while ( $next = extract_quotelike($text) )
	{
		# process next quote-like (in $next)
	}

Note that if the input text i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	595	778	
==>k,

    PREFIX    => $prefix,
    KIND      => 'until',
    LEFT      => $left,
    OP        => $op,
    RIGHT     => $right,

    CONTENT   => [ ]
  }, $class;

  $block->push_conten <==
2	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	1892	1999	
==>:
	branch MAINLOOPNR

EOF

# Includes and constant substitutions
close(T);

unlink "basic.pbc";
system("../. <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	4443	4555	
==>[2],
		prev	=> $_[3]?-1:0,
	      }, $_[0];
}

sub FETCH    
{
	my $parser = $_[0]->{parser};
	return $parser->{f <==
2	/Users/nnunley/parrot/tools/util/pirtidy.pl	688	791	
==>ose $ifh;
    close $ofh;
}

__END__

=head1 NAME

tools/util/pirtidy.pl - a PIR script indenter and ref <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	310	402	
==>eates F<src/jit_cpu.c>. It parses the JIT file for the
specified CPU architecture type (F<src <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15726	15852	
==>rd-hyphen, nor apply computerese style-smarts.
  # We don't want to change the "-" to hard-hyphen, because we want to
  #  be a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375525	375816	
==>TYPE" => "function",
                  "CODE" => 439,
                  "ARGS" => [
                              "i",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 427 \"src/ops/io.ops\"\n  {{\@1}} = P <==
2	/Users/nnunley/parrot/config/auto/signal.pm	1246	1357	
==>ne');
        print " (sigaction)" if $verbose;
    }
    cc_clean();

    cc_gen('config/auto/signal/test_itime <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51689	51780	
==>BODY" => "#line 815 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_trace(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52472	52563	
==>BODY" => "#line 815 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_trace(interpreter <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	339	444	
==>eline);
use COMP_toker;
use COMP_parser;
use COMP_assignments;
use COMP_expressions;

our @basic=();


$SI <==
2	/Users/nnunley/parrot/config/init/defaults.pm	2809	2917	
==>odules that can be dynamically loaded.  Flags to tell
        # ld to build a shared library, e.g.  -shared f <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	4683	4828	
==>iacute'   , 237,
 'icirc'    , 238,
 'iuml'     , 239,
 'eth'      , 240,
 'ntilde'   , 241,
 'ograve'   , 242,
 'oacute'   , 243,
 'ocirc'    , 2 <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	21552	21669	
==>s, 'P'];
	return;

    }
    # XXX the label may be wrong, if the JUMP_IF_x got rewritten
    if ($r->[2] eq 'I' && $l <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15926	16032	
==>convert_to_rpn(@expr);	# Get infix into RPN
		($result,$type,@stream)=generate_code(0, @stream);	# Generate <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	17077	17183	
==>convert_to_rpn(@expr);	# Get infix into RPN
		($result,$type,@stream)=generate_code(0, @stream);	# Generate <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Ops.pm	28	116	
==>rl Foundation.
# $Id: /parrot/lib/Parrot/Docs/Section/Ops.pm 20333 2006-06-21T18:44:31.11 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5723	5860	
==>& 0x08
#DBG>	and	print STDERR "Stack:[".
#DBG>					 join(',',map { $$_[0] } @$stack).
#DBG>					 "]\n";


        if  (exists($$acti <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5450	5581	
==>& 0x08
#DBG>	and	print STDERR "Stack:[".
#DBG>					 join(',',map { $$_[0] } @$stack).
#DBG>					 "]\n";


        if  (exists($$acti <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	579	731	
==>OCK     => $block,

    PREFIX    => $prefix,
    KIND      => 'until',
    LEFT      => $left,
    OP        => $op,
    RIGHT     => $right,

    CONTE <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1324	1464	
==>>

Returns the argument at index C<$index>.

=cut

sub arg
{
    my $self = shift;

    return $self->{ARGS}[shift];
}

=item C<goto_address( <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	817	936	
==>ibrary directory. Defaults to '/usr/lib'.

=item C<includedir>

The header directory. Defaults to '/usr/include'.

=back <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	1046	1165	
==>ibrary directory. Defaults to '/usr/lib'.

=item C<includedir>

The header directory. Defaults to '/usr/include'.

=back <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549525	549934	
==>ase",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 633,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 56 \"src/ops/object.ops\ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12010	12123	
==>ted somewhere down the line, with
        # Parrot/PackFile/ConstTable.pm.html being turned into
        # Parrot/ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4608	4758	
==>d either into
C<Parrot::Pmc2c::::Standard>, or into one of the other I<special> PMCs:
F<default>, C<delegate>, C<Null>, C<Ref> or C<SharedRef>.

C<$opt <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	61868	61955	
==>bracketed>, C<extract_quotelike> or C<extract_codeblock> found
a valid bracket delimiter <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15716	15940	
==>g1'   => $nil->[0],
    );
    my $argv = new defn( 'vararg', 'local', 'pmc' );
    my $fct = new defn( 'mkarg', 'util' );
    push @opcodes, new CallOp( $parser,
        'result' => [$result],
        'arg1'   => $fct, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	32236	32647	
==>g = PF_CONST(PMC_cont(cc)->seg, results[1])->u.key;\n\t}\n    }\n\n    /* If no elements, hand back empty array; otherwise PMC. */\n    if (!sig)\n        {{\@1}} = pmc_new(interpreter, enum_class_FixedIntegerArray);\n    else\n        {{\@1}} = sig;\n    {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121427	121726	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122338	122637	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2575	2697	
==>shift;

	${$$self{NBERR}};
}

sub YYRecovering {
	my($self)=shift;

	${$$self{ERRST}} != 0;
}

sub YYAbort {
	m <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2465	2575	
==>shift;

	${$$self{NBERR}};
}

sub YYRecovering {
	my($self)=shift;

	${$$self{ERRST}} != 0;
}

sub YYAbort {
	m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	489173	489392	
==>60,
                  "ARGS" => [
                              "i",
                              "n"
                            ],
                  "BODY" => "#line 512 \"src/ops/math.ops\"\n  {{\@1}} = (INTVAL)floor <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79041	79152	
==>ta({{\@2}}), name);\n  string_cstring_free(name);\n  if (p == NULL) {\n      const char * const err = Parrot_dle <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80562	80673	
==>ta({{\@2}}), name);\n  string_cstring_free(name);\n  if (p == NULL) {\n      const char * const err = Parrot_dle <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	4168	4284	
==>ef the instance.

    delete($instance_for_path{$_[0]->path});
    
    undef $_[0];
}

=back

=head1 SEE ALSO

=over <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	147	253	
==>t interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm 19606 2006-05-30T <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3383	3565	
==>YMBOLS}{$name} = $sym;
}


###############################################################################

=head2 BLOCK->get_symbol(NAME)

Attempt to get a symbol from this block's s <==
2	/Users/nnunley/parrot/tools/dev/cc_flags.pl	1511	1641	
==>yntax error in $cflags: line $., $_\n";
	}
	else {
	    last;
	}
    }
}

my ($cfile) = grep /\.c$/, @ARGV;

my ($inject_point, $wh <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	25159	25343	
==>');
    my ($R_back, @R_ops) = $self->rewrite($R, $rfail);

    my @ops = (
                        @R_ops,
                        aop('pushint', [ 1 ]),
                        aop('g <==
2	/Users/nnunley/parrot/config/init/defaults.pm	4651	4857	
==>_soname => '',

        perl      => $^X,
        test_prog => 'parrot',
        rm_f      => '$(PERL) -MExtUtils::Command -e rm_f',
        rm_rf     => '$(PERL) -MExtUtils::Command -e rm_rf',
        mkdir <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2571	2675	
==>utes => { kind => 'infix', name => $self->op } });
    $self->left->sax($handler);
    $self->right->sax( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2448	2552	
==>utes => { kind => 'infix', name => $self->op } });
    $self->left->sax($handler);
    $self->right->sax( <==
2	/Users/nnunley/parrot/config/auto/env.pm	32	127	
==>erl Foundation.
# $Id: /parrot/config/auto/env.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=he <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3030	3160	
==>bel1
Sub2:
   PRINT "3 in subroutine two"
   RETURN Label2   'Cannot return from here to main
                   'program - only to <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16997	17127	
==>bel1
Sub2:
   PRINT "3 in subroutine two"
   RETURN Label2   'Cannot return from here to main
                   'program - only to <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7362	7602	
==>ct::Declaration::Constant->new($block, $type, $ident, $value);
        }
        else {
          $self->INTERNAL_ERROR("Unexpected access '$access'.");
        }
      }

      next;
    }

    #
    # Subroutines:
    #
    #   sub [<type> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150777	151044	
==>function",
                  "CODE" => 183,
                  "ARGS" => [
                              "p",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 112 \"src/ops/cmp.ops\" <==
2	/Users/nnunley/parrot/lib/Test/More.pm	19866	20024	
==>s declares a block of tests that might be skipped, $how_many tests
there are, $why and under what $condition to skip them.  An example is
the easiest way to il <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7463	7684	
==>aragraph
        DEBUG > 1 and print "Starting new ${$paras}[-1][0] para at line ${$self}{'line_count'}\n";
        
      } elsif($line =~ m/^\s/s) {

        if(!$self->{'start_of_pod_block'} and @$paras and $paras->[-1] <==
2	/Users/nnunley/parrot/config/inter/types.pm	870	1012	
==>you like your integers to be?", $intval);
        $floatval = prompt("And your floats?",                                $floatval);
        $op <==
2	/Users/nnunley/parrot/config/auto/isreg.pm	616	740	
==>ld(); };
    unless ($@ || cc_run() !~ /ok/) {
        $test = 1;
    }
    cc_clean();

    $conf->data->set(isreg => $test) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	25345	25510	
==>{'~ignore'}, @$curr_open) {
      DEBUG > 1 and
       print "Skipping $para_type paragraph because in ignore mode.\n";
      next;
    }
    #~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19223	19325	
==>r->get_short_title on that document will return "Hooboy,
stuff wow yeah!".

If the title can't be found <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13073	13230	
==>e first
	foo as integer
	bar as string
end type
type second
	link as first
end type
type third
	poit as integer
	fwd as second
end type
dim x as third
dim y a <==
2	/Users/nnunley/parrot/languages/lua/luac.pl	399	515	
==>verbose_warning} = 1;    # 0, 1
$parser->YYData->{verbose_info}    = 1;    # 0, 1
$parser->Run(@ARGV);

if ( exis <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	1423	1536	
==>py_file = Parrot::Test::slurp_file($py_out_f);
    my $pirate_file;

    $exit_code |= Parrot::Test::run_command($ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	19343	19507	
==>e isn't available.  In these cases it's
necessary to skip tests, or declare that they are supposed to fail
but will work in the future (a todo test).

For more detai <==
2	/Users/nnunley/parrot/lib/Test/More.pm	1262	1431	
==>(no_plan);
  # or
  use Test::More skip_all => $reason;

  BEGIN { use_ok( 'Some::Module' ); }
  require_ok( 'Some::Module' );

  # Various ways to say "ok"
  ok($this eq <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	105	243	
==>ng Parse::Yapp version 1.05.
#
#        Don't edit this file, use source file instead.
#
#             ANY CHANGE MADE HERE WILL BE LOS <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	103	237	
==>ng Parse::Yapp version 1.05.
#
#        Don't edit this file, use source file instead.
#
#             ANY CHANGE MADE HERE WILL BE LOS <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	17923	18034	
==>("You tried to run tests without a plan!  Gotta have a plan.");
    }

    lock($self->{Curr_Test});
    $self-> <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	18788	18899	
==>("You tried to run tests without a plan!  Gotta have a plan.");
    }

    lock($self->{Curr_Test});
    $self-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1534	1658	
==>arrot/event.h
 *
 * This gives +50 % performance
 */

#undef  CHECK_EVENTS
#define CHECK_EVENTS(i, n)   \\
	interpreter->task <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5739	5850	
==>y, $trigger) = @_;

    return
        unless defined $self->{triggers}{$key}
        and defined $self->{trigge <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6309	6420	
==>y, $trigger) = @_;

    return
        unless defined $self->{triggers}{$key}
        and defined $self->{trigge <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2196	2311	
==>todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test::proclaim <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2591	2706	
==>todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test::proclaim <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21967	22125	
==>terminal { 0 }
sub describe { $_[1] ? '' : $_[0]->{name} } 

sub new ($$$$$)
{
	my $class = ref($_[0]) || $_[0];
	bless 
	{
		"code"      => $_[1],
		"lookahea <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349762	350059	
==>"i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 407,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 162 \"src/ops/io.ops\"\ <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2401	2490	
==>chmarks/mops.pasm>,
F<examples/mops/mops.c>,
F<examples/mops/mops.cs>,
F<examples/mops/mop <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	2401	2490	
==>chmarks/mops.pasm>,
F<examples/mops/mops.c>,
F<examples/mops/mops.cs>,
F<examples/mops/mop <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6600	6773	
==>-1) > A$(I) THEN
         Exchange = TRUE
         B$=A$(I-1)
         A$(I-1)=A$(I)
         A$(I)=B$
         ' SWAP A$(I - 1), A$(I)
      END IF
   NEXT
WEND
 ' CLS
FOR I <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16253	16426	
==>-1) > A$(I) THEN
         Exchange = TRUE
         B$=A$(I-1)
         A$(I-1)=A$(I)
         A$(I)=B$
         ' SWAP A$(I - 1), A$(I)
      END IF
   NEXT
WEND
 ' CLS
FOR I <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41246	41378	
==>>_handle_element_start(($scratch=$name), shift @_);
  
  foreach my $x (@_) {
    if(ref($x)) {
      &_traverse_treelet_bit($self, @ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1014263	1014357	
==>or(errno);\n  {{\@1}} = string_make(interpreter, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=2}};\n <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	21512	21699	
==>art _remap_sequences on treelet from line %s.\n",
   $start_line || '[?]'
  ;
  DEBUG > 3 and print " Map: ",
    join('; ', map "$_=" . (
        ref($map->{$_}) ? join(",", @{$map->{$_}} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	6451	6579	
==>$stmt;
    }

    # Eliminate gotos to the following address
    my @output4;
    foreach my $stmt (@output3) {
	if (ref $stmt->{ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5072	5176	
==>G>	my($debug)=$$self{DEBUG};
#DBG>	my($dbgerror)=0;

#DBG>	my($ShowCurToken) = sub {
#DBG>		my($tok)= <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4827	4927	
==>G>	my($debug)=$$self{DEBUG};
#DBG>	my($dbgerror)=0;

#DBG>	my($ShowCurToken) = sub {
#DBG>		my($tok)= <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	453	564	
==>ading from
  'source_arrayref',   # the arrayref we're reading from
);

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	272	377	
==>,
	Random => 4,
	UnManagedStruct => 5,
	ManagedStruct => 6,
	delegate => 7,
	CSub => 8,
	Compiler => 9,
	E <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	2401	2569	
==>akefiles/tge.in' => 'compilers/tge/Makefile',
        commentType                   => '#',
        replace_slashes               => 1
    );
    genfile(
        'confi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272290	272608	
==>ME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 317,
                  "A <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	1165	1412	
==>[-1]) until $parents[-1] eq 'default';
    shift(@parents);
  
    return @parents;
}

sub get_pmc_order
{
    open IN, 'src/pmc/pmc.num' or die "Can't read src/pmc/pmc.num";
    my %order;
    while (<IN>) {
        next if (/^#/);
        if (/(\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	39058	39219	
==>$para->[1]{'start_line'}
          )};
        }
        # Empty paragraphs don't need a treelet for any reason I can see.
        # And precooked paragraphs alre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557804	557907	
==>ject;\n  opcode_t *next = {{^+3}};\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  interpr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559188	559291	
==>ject;\n  opcode_t *next = {{^+3}};\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  interpr <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3129	3230	
==>cs.pm

package Parrot::PMC;

use strict;
use warnings;

use vars qw(@ISA %pmc_types @EXPORT_OK);

@ISA <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	73	174	
==>cs.pm

package Parrot::PMC;

use strict;
use warnings;

use vars qw(@ISA %pmc_types @EXPORT_OK);

@ISA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662325	662822	
==>NAME" => "exists",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 740,
                  "ARGS" => [
                              "i",
                              "p",
                              "kc"
                            ],
                  "BODY" => " <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6881	7064	
==>re constant without assigning a value.") # TODO: This can happen later.
        if ($access eq 'const' and not defined $value);

      foreach my $ident (@identifiers) {
        if ($a <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	36191	36398	
==>p_number_string,
  'string->number' => \&_op_string_number,

###
### Character
###

  'char?'            => \&_op_char_p,
  'char=?'           => \&_op_char_eq_p,
  'char<?'           => \&_op_char_lt_p,
  'c <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	3863	3961	
==>turn;
}

=item C<file_for_perl_module($module)>

Returns the Perl module file for the specified mod <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2605	2726	
==>\tc\tcl1, or I'd put that in =head1 and =head2

 'item-bullet'  => "\n{\\pard\\li#rtfindent##rtfitemkeepn#\\sb60\\sa150\\f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924422	924648	
==>ke_empty(interpreter, enum_stringrep_one, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925213	925439	
==>ke_empty(interpreter, enum_stringrep_one, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030911	1031206	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sizeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031779	1032074	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sizeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1013768	1014255	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "err",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1132,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 71 \"src/ops/sys.ops\"\n  const char * const tmp = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1013153	1013415	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "err",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => " <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	848	951	
==>ut everything but the pmclass declaration
    s/^.*?pmclass//s;
    s/\{.*$//s;

    return $PMC_PARENTS <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1510	1618	
==>ain)
 * be in includes/parrot/event.h
 *
 * This gives +50 % performance
 */

#undef  CHECK_EVENTS
#define CH <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	5848	6025	
==>{
        $self->no_plan;
    }
    elsif( $cmd eq 'skip_all' ) {
        return $self->skip_all($arg);
    }
    elsif( $cmd eq 'tests' ) {
        if( $arg ) {
            retu <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33953	34077	
==>RACE;').'
		if (1) { no strict qw{refs};
		$Parse::RecDescent::lastexpected = ' . ($rule->hasleftmost($self) ? 'q{}'
				# WA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691213	691446	
==>/pmc.ops\"\n   {{\@1}} = Parrot_thaw(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691970	692203	
==>/pmc.ops\"\n   {{\@1}} = Parrot_thaw(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/lib/Test/More.pm	10116	10244	
==>this eq $that );
    cmp_ok( $this, 'eq', $that, 'this eq that' );

    # ok( $this == $that );
    cmp_ok( $this, '==', $that, ' <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	38878	38977	
==>es the action to be taken if a matching end
tag is not encountered (i.e. before the end of the strin <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	22140	22391	
==>}
sub OPC_isinstance
{
    my ($n, $c, $cmt) = @_;
    my $i = temp('I');
    my $cl = pop @stack;
    my $ob = promote(pop @stack);
    pop @stack;	# functions
    my $s = temp('S');
    my $b = temp('P');
    # TODO make op or function
    print <<EO <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5020	5148	
==>dest_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  my $block = $s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3083	3211	
==>dest_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  my $block = $s <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	5916	6050	
==>ped if
            # the "var" condition is true.
            if ($line =~ m/^#CONDITIONED_LINE\(([^)]+)\):(.*)/s) {
                ne <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3101	3204	
==>$dest) = @_;
    $self->output_test('ne', $val1, $val2, $dest);
}

sub output_lt {
    my ($self, $val1, <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	4337	4567	
==>z0-9]+\.(p[ml]|pasm)\s*\n//mi; # own file name - kludgy
	s/\#\s*Copyright[^\n]+\n(\# *\S[^\n]*\n)*/\#\n/s;
	s/^\#\s*(\$I[d]: .+)\n//m; $info->{Id} = $1;
	s/^\#\s*Author:.+//m;
	
	s/^\s*\n//mg; # truly blank lines, between the # com <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96509	96786	
==>DE" => 119,
                  "ARGS" => [
                              "s",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 63 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_and(interprete <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	7338	7470	
==>rrot::PackFile->new;
    $pf->unpack_file($file_name)
      or die "Unable to unpack file $file_name: $!";

#    dump_const_table($pf <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	14181	14282	
==>sym}}($a1, $a2, "\$$optype$retcount", "", $ot1, $ot2);
					($optype)=$return=~/([N|S])/;
					push @c <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2886	2977	
==>s rather like this class.
Pod::Simple::XMLOutStream's output is space-padded in a way
that's <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124505	124761	
==>154,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 257 \"src/ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINT <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76820	77244	
==>",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 99,
                  "ARGS" => [
                              "p",
                              "p",
                              "s <==
2	/Users/nnunley/parrot/config/gen/cpu.pm	499	608	
==>f';

@args = qw(miniparrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get(' <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	4119	4282	
==>cely formatted code for the raw PIR that's been provided.

=for XXX

Many things to muck with line could be done here:

 o remove extraneous spaces.
 o add in "prop <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	12172	12340	
==>ture  6, Hello and PI
type newtype
	foo as integer
	bar as string
	narf as double
end type
dim t as newtype
t.foo=6
t.bar="Hello"
t.narf=3.1415
print t.foo
print t.bar
p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677580	677675	
==>c/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678358	678453	
==>c/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}} <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	4942	5084	
==>::proclaim(1, "", "skip $reason", :$depends);
}

multi sub skip (Int $count, Str $reason, :$depends) returns Bool is export {
    for (1 .. $co <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2346	2464	
==>int {
    my ($self, $what) = @_;
    $what = value($what);
    return ("print $what;");
}

sub output_test {
    my ($ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2663	2780	
==>int {
    my ($self, $what) = @_;
    $what = value($what);
    return ("print $what");
}

sub output_test {
    my ($ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860393	860599	
==>"s",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 118 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_e <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9743	9858	
==>"**Dicard invalid token ".&$ShowCurToken.".\n";

			$$token=$$value=undef;
		};

        $$errstatus=3;

		wh <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9305	9413	
==>"**Dicard invalid token ".&$ShowCurToken.".\n";

			$$token=$$value=undef;
		};

        $$errstatus=3;

		wh <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035525	1035624	
==>_pad(interpreter, lex_name, ctx);\n    PMC *result = NULL;\n\n    if (!PMC_IS_NULL(lex_pad))\n\tresu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036689	1036788	
==>_pad(interpreter, lex_name, ctx);\n    PMC *result = NULL;\n\n    if (!PMC_IS_NULL(lex_pad))\n\tresu <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	186	338	
==>TION

Asks the user to select which PMC files to include.

=cut

package inter::pmc;

use strict;
use warnings;

use base qw(Parrot::Configure::Step::Bas <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	554	659	
==>em C<buildprefix>

The build prefix. Defaults to ''.

=item C<prefix>

The install prefix. Defaults to '/u <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	783	888	
==>em C<buildprefix>

The build prefix. Defaults to ''.

=item C<prefix>

The install prefix. Defaults to '/u <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56363	56612	
==>s\"\n  {{\@1}} = interpinfo_p(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57125	57374	
==>s\"\n  {{\@1}} = interpinfo_p(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79006	79097	
==>MC_IS_NULL({{\@2}}) ? NULL : PMC_data({{\@2}}), name);\n  string_cstring_free(name);\n  if ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80527	80618	
==>MC_IS_NULL({{\@2}}) ? NULL : PMC_data({{\@2}}), name);\n  string_cstring_free(name);\n  if ( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2940	3074	
==>ift->{FILE};     }
sub line  { return shift->{LINE};     }


#
# compile()
#

sub compile
{
  my $self     = shift; # Required
  my $co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649388	649845	
==>E" => "find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 726,
                  "ARGS" => [
                              "i",
                              "kc"
                            ],
                  "BODY" => "#line 234 \"src/ops/pmc.ops\"\n <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38730	38908	
==>rs);
    $sig = $self->trans($method->{type}) . $sig;
    my $ret = '';
    my $ret_def = '';
    my $func_ret = '(void) ';
    my $ret_type = '';
    if ($method->{type} ne 'void <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	56718	56996	
==>Rule 87
		 'functioncall', 2,
sub
#line 459 "Lua\lua51.yp"
{
            my $fct = BuildCallVariable( $_[0], $_[1] );
            BuildCallFunction( $_[0], $fct, $_[2] );
        }
	],
	[#Rule 88
		 'functioncall', 4,
sub
#line 464 "Lua\lua51.yp"
{
            my $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563907	563998	
==>DY" => "#line 183 \"src/ops/object.ops\"\n  VTABLE_add_method(interpreter, {{\@1}}, {{\@2}}, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564805	564896	
==>DY" => "#line 183 \"src/ops/object.ops\"\n  VTABLE_add_method(interpreter, {{\@1}}, {{\@2}}, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028041	1028139	
==>*next = {{^+2}};\n  if ({{\@1}} < 0) {\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\"Can <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028892	1028990	
==>*next = {{^+2}};\n  if ({{\@1}} < 0) {\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\"Can <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	2491	2592	
==>RE if (! iskeyword($syms[CURR]));

	# The "unimplementeds"
	# Eat tokens until we get to the next stat <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3354	3475	
==>y ($group, $pmcs) = each %$group_files) {
        my @pmcfiles = map { "$_.pmc" } @$pmcs;
        if (needs_build("$group. <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3458	3579	
==>y ($group, $pmcs) = each %$group_files) {
        my @pmcfiles = map { "$_.pmc" } @$pmcs;
        if (needs_build("$group. <==
2	/Users/nnunley/parrot/examples/benchmarks/freeze.pl	836	943	
==>e time %.6f\n", $e-$s;

print "Image len ", length($image), "\n";
print "array size ", scalar(@b), "\n";

=h <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7189	7296	
==>tr() tests
s1$="Mixed case"
print ucase$(s1$);" Upper"
print lcase$(s1$);" Lower"
a$="   Flush   "
print ">" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18918	19025	
==>tr() tests
s1$="Mixed case"
print ucase$(s1$);" Upper"
print lcase$(s1$);" Lower"
a$="   Flush   "
print ">" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	8314	8422	
==>") || Carp::croak "Can't open $_[0]: $!";
      $handle = *PODSOURCE{IO};
    }
    $self->{'source_filename' <==
2	/Users/nnunley/parrot/config/gen/icu.pm	3167	3294	
==>aders not defined or invalid\n";
        $ok = 0;
    } else {
        $icuheaders =~ s![\\/]$!!;
        foreach my $header (@i <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2160	2421	
==>int "M op/s:        $N1\n"; # print  "M op/s:        "
                              # print  N1
                              # print  "\n"
                              #
exit(0);                      # end

=head1 SEE ALSO

F<examples/benchmarks/mops.pasm>,
F <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	2160	2421	
==>int "M op/s:        $N1\n"; # print  "M op/s:        "
                              # print  N1
                              # print  "\n"
                              #
exit(0);                      # end

=head1 SEE ALSO

F<examples/benchmarks/mops.pasm>,
F <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28637	28766	
==>{hashname}.'}=') . '$&;
		' . ($self->{"lookahead"} ? '$text = $_savetext;' : '' ) .'
';

	return $code;
}

1;

package Parse::Rec <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30715	30844	
==>{hashname}.'}=') . '$&;
		' . ($self->{"lookahead"} ? '$text = $_savetext;' : '' ) .'
';

	return $code;
}

1;

package Parse::Rec <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6055	6152	
==>een
	# propogated there already.
	$pir .= <<'PIR';
if 0x${CURIC} == 0x45 goto POST_BRANCH_switch_$ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3993	4090	
==>een
	# propogated there already.
	$pir .= <<'PIR';
if 0x${CURIC} == 0x45 goto POST_BRANCH_switch_$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	12363	12544	
==>line 217 \"src/ops/core.ops\"\n  {{=*}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PA <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10917	11019	
==>es.html";
    print "Writing $outfile..\n" if $DEBUG;
    open (IN, "<$infile") or die "Can't read $inf <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	473	598	
==>emented for current stack to register mapper\n";
}

# Extra subroutines required for the mapper.
sub subs {
	die "subs not imp <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4784	4906	
==>nd of sub !!!
sub _Parse {
    my($self)=shift;

	my($rules,$states,$lex,$error)
     = @$self{ 'RULES', 'STATES', 'LE <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4548	4665	
==>nd of sub !!!
sub _Parse {
    my($self)=shift;

	my($rules,$states,$lex,$error)
     = @$self{ 'RULES', 'STATES', 'LE <==
2	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	244	543	
==>oke/"),
  "help"        => \&usage,
  "compress|c!" => \(my $compression_wanted = 1),
  "version"     => sub { print "smokeserv-client.pl v" . VERSION . "\n"; exit },
) or usage();
@ARGV == 1 or usage();

debug "smokeserv-client v" . VERSION . " started.\n";

setup_compression() if $compression_want <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	14239	14343	
==>unicode:"monadic:\u2395\u2190" # quad output
    .param pmc op1

    'aplprint'(op1)
    .return(op1)
.en <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	2069	2177	
==>the problem.

   PARROT_CALLIN_START(interpreter) will figure out if the stack
   anchor needs setting and, i <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	26541	26716	
==>($self->{Curr_Test});
    if( defined $num ) {
        unless( $self->{Have_Plan} ) {
            require Carp;
            Carp::croak("Can't change the current test number wi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658281	658375	
==>L({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659200	659294	
==>L({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n", <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9508	9635	
==>id: discard it
		and	do {
				$$token eq ''	# End of input: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	print ST <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9080	9202	
==>id: discard it
		and	do {
				$$token eq ''	# End of input: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	print ST <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	182	289	
==>culate M ops/s

=head1 SYNOPSIS

    % perl examples/mops/mops.pl

=head1 DESCRIPTION

A Perl implementation <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	178	285	
==>culate M ops/s

=head1 SYNOPSIS

    % perl examples/mops/mops.pl

=head1 DESCRIPTION

A Perl implementation <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	1507	1651	
==>rns an empty string which will
be discarded when building the navigation bar.

=cut

sub html_link
{
	return '';
}

=item C<write_html($source, $ <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	1823	2057	
==>mage_dblbuf.pir              [devel]
    examples/sdl/blue_font.pir                      [devel]
    examples/sdl/blue_rect.pir                      [devel]
    examples/sdl/bounce_parrot_logo.pir             [devel]
    examples/sdl/l <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1281	1370	
==>)

=item $token->is_tag(I<somestring>) or $token->is_tagname(I<somestring>)

These are sho <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1711	1800	
==>)

=item $token->is_tag(I<somestring>) or $token->is_tagname(I<somestring>)

These are sho <==
2	/Users/nnunley/parrot/config/gen/PodText.pm	303	467	
==>od" => "dest1.pod"
        "source2.pod" => "dest2.pod"
    );

=head1 DESCRIPTION

Uses L<Pod::Text> to convert Pod documents into their plain text equivalents.

=h <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	3802	3967	
==>lf = shift;
    my $token = shift;
    my $tagname = $token->tagname;

    # We make the code tags in items bold because they are almost
    # always part of function <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	24623	24739	
==>$self, $namespace, $rule, $check) = @_;
	
	my $action = '';
	
	if ($self->{"msg"})  # ERROR MESSAGE SUPPLIED
	{
		#WA <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	9391	9515	
==>2
    .return ($N1)
two:
    $N1 = cos op2
    .return ($N1)
three:
    $N1 = tan op2
    .return ($N1)
four:
    $N1 = op2 * <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637401	637921	
==>AME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 713,
                  "ARGS" => [
                              "p",
                              "ic",
                              "sc"
                            ],
                  "BODY" => "#line 107 \"src/ops/pmc. <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2357	2479	
==>val
}

sub YYData {
	my($self)=shift;

		exists($$self{USER})
	or	$$self{USER}={};

	$$self{USER};
	
}

sub YY <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2268	2377	
==>val
}

sub YYData {
	my($self)=shift;

		exists($$self{USER})
	or	$$self{USER}={};

	$$self{USER};
	
}

sub YY <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25733	25914	
==>rs[$scopes]}, { var => $result, num => $forloop, inc => $stepexpr };
}
sub parse_next {    # next [a[,b[,c]...]
	feedme();
	my($var,$vartype,$ovar);
	my $ps;
	$ps=pop @{$fors[$scopes <==
2	/Users/nnunley/parrot/lib/Test/More.pm	16582	16693	
==>ck so its functions are exported at compile-time and prototypes are
properly honored.

If @imports are given, th <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	4286	4401	
==><<"DATA";
#define static_string_${line} static_string_$known_strings{$text}

DATA
  }
  else {
    $known_strings{$t <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	1413	1635	
==>ldflags   => '-L/sw/lib');
            $conf->data->add(' ', ccflags   => '-I/sw/include');
        }
    }

    cc_gen('config/auto/gmp/gmp.in');
    eval { cc_build(); };
    my $has_gmp = 0;
    if (!$@) {
        my $te <==
2	/Users/nnunley/parrot/config/auto/readline.pm	1502	1668	
==>ldflags   => '-L/sw/lib');
            $conf->data->add(' ', ccflags   => '-I/sw/include');
        }
    }

    cc_gen('config/auto/readline/readline.in');
    eval { <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	8635	8739	
==>fo && ($rule->{'class'} eq 'op' ||
	         $rule->{'class'} eq 'load' || $rule->{'class'} eq 'calling') <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27090	27202	
==>$self->{"ldelim"};
	my $rdel = $self->{"rdelim"};
	my $sdel = $ldel;
	my $mod  = $self->{"mod"};

	$sdel =~ s/[[{ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8772	8885	
==>}

    $reg = value($reg);

    my $L_fallback = $self->output_label_use($fallback);
    return ("<rx_tmp> = <rx_s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029826	1029928	
==>G_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_event(interpreter, {{\@1}}, nex <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030668	1030770	
==>G_SLEEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_event(interpreter, {{\@1}}, nex <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	968	1065	
==>uct::Expression::Value::Identifier');
  confess "Left is not Value!" if defined $left and not UNIV <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	996	1093	
==>uct::Expression::Value::Identifier');
  confess "Left is not Value!" if defined $left and not UNIV <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	2007	2238	
==>'" : 'undef', ",\n"
            if $verbose;
        $self->{c}{$key} = $val;

        foreach my $trigger ($self->gettriggers($key)) {
            print "\tcalling trigger $trigger for $key\n" if $verbose;
            my $cb = $sel <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	14369	14562	
==>'t make sense
                return $builder->skip( "no native tests with -r" );
            }

            my ( $exit_code, $cmd );
            unless ( $run_exec ) {
                if ( $arg <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3700	3803	
==>ue)=splice(@$inarray,0,2)) {
        $prm=uc($prm);
			exists($$checklist{$prm})
		or	croak("Unknow p <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3508	3608	
==>ue)=splice(@$inarray,0,2)) {
        $prm=uc($prm);
			exists($$checklist{$prm})
		or	croak("Unknow p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	652690	652875	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RESTART",
                  "NAME" => "find_method",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653850	654035	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RESTART",
                  "NAME" => "find_method",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	4547	4678	
==>es, between the # comment lines
	s/\n(\# *\n){2,}/\n\#\n/sg; # crush down double blank lines
	s/^\s*(\# *\n)+//s;         # remove l <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6989	7101	
==>nvert them into an anchor name;
    
    my $name = $self->linearize_tokens(@to_unget);
    
    if ( defined $na <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	752	978	
==>.sub __start :main
#  print "start Lua\n"
  init_basic()
  init_coroutine()
  init_package()
  init_string()
  init_table()
  init_math()
  init_io()
  init_os()
  init_debug()
  
#
#  PBC loader does not support L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686428	686523	
==>c/ops/pmc.ops\"\n   {{\@1}} = {{\@3}}->vtable->getprop(interpreter, {{\@3}}, {{\@2}});\n   {{+=4 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687318	687413	
==>c/ops/pmc.ops\"\n   {{\@1}} = {{\@3}}->vtable->getprop(interpreter, {{\@3}}, {{\@2}});\n   {{+=4 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242475	242834	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 282,
                  "ARGS" => [
                              "i", <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	7040	7296	
==>nches} ($totals{branch_coverage} %)</td>
                 <td>$totals{covered_calls} of $totals{calls} ($totals{call_coverage} %)</td>
                 </tr>
              </tbody>
            </table>
            </ul>
    );
    print OUT page_footer();
} <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6356	6471	
==>he array.
WHILE Exchange          ' Sort until no elements are exchanged.
   Exchange=FALSE
   ' Compare the array e <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16009	16124	
==>he array.
WHILE Exchange          ' Sort until no elements are exchanged.
   Exchange=FALSE
   ' Compare the array e <==
2	/Users/nnunley/parrot/config/inter/libparrot.pm	403	502	
==>arrot;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base <==
2	/Users/nnunley/parrot/config/init/miniparrot.pm	567	661	
==>arrot;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7266	7384	
==>gnore  = ref($options{ignore}) eq 'ARRAY' ? join('|', @{$options{ignore}})
		    : defined($options{ignore})	       ? $ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24268	24386	
==>gnore  = ref($options{ignore}) eq 'ARRAY' ? join('|', @{$options{ignore}})
		    : defined($options{ignore})	       ? $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	36252	36353	
==>ption_Handler);\n  VTABLE_set_pointer(interpreter, eh, CUR_OPCODE + {{\@1}});\n  push_exception(interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726071	726402	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clone",
                  "FLAGS" => ":base_mem",
                  "ARGDIR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428313	428629	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 492,
                  "AR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5653	5884	
==>"JUMP" => 0,
                  "NAME" => "load_bytecode",
                  "FLAGS" => ":load_file",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6318	6549	
==>"JUMP" => 0,
                  "NAME" => "load_bytecode",
                  "FLAGS" => ":load_file",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5090	5193	
==>y $pass = $self->output_label_use($passLabel);

    while (@$incexc) {
        my $first = shift(@$incex <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4765	4868	
==>y $pass = $self->output_label_use($passLabel);

    while (@$incexc) {
        my $first = shift(@$incex <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2486	2587	
==>blocks, we don't discover backward branches until late to do
	# otherwise. Also, putting a label every <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1064	1165	
==>blocks, we don't discover backward branches until late to do
	# otherwise. Also, putting a label every <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3132	3353	
==>tra arguments!" if @_;

  die "Redefinition of symbol '$name', which was defined earlier in this block!" if $self->get_symbol($name);
#  warn "Definition of symbol '$name' shadows definition in parent block!" if $self->fin <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76674	76783	
==>d $::RD_TRACE
	    && $::RD_TRACE =~ /\d+/
	    && $::RD_TRACE>1
	    && $::RD_TRACE+10<length($_[0]))
	{
		my <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76985	77094	
==>d $::RD_TRACE
	    && $::RD_TRACE =~ /\d+/
	    && $::RD_TRACE>1
	    && $::RD_TRACE+10<length($_[0]))
	{
		my <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	4307	4431	
==>, $line, $1, undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^(next|last|redo|goto|return)(?!\w)(.*)$}) { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561995	562284	
==>Ss' not found\", {{\@3}});\n  }\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563079	563368	
==>Ss' not found\", {{\@3}});\n  }\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129293	129576	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130031	130314	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYP <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7201	7311	
==>1$="Mixed case"
print ucase$(s1$);" Upper"
print lcase$(s1$);" Lower"
a$="   Flush   "
print ">";ltrim$(a$)
pri <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18930	19040	
==>1$="Mixed case"
print ucase$(s1$);" Upper"
print lcase$(s1$);" Lower"
a$="   Flush   "
print ">";ltrim$(a$)
pri <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	563	671	
==>zily.
sub _do_lazy_moves {
    my $suffix = shift || "";  
    my $pir = <<'PIR';
${ITEMP0} = elements lazy_m <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	14930	15057	
==>= join(",", @$args);
        my @tempi = grep { defined $temp[$_] } 0..$#$args;
        my $temp_decl = join("\n    ", map { "$t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464248	464564	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 532,
                  "AR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472608	473134	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 542,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 394 \"src/ops/math.ops\"\n  IN <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	5756	5854	
==>se strict;

package Parrot::OpLib::$package;

use vars qw(\$VERSION \$ops \$preamble);

\$VERSION = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78940	79031	
==>ring(interpreter, ({{\@3}}));\n\n  void * const p = Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? NULL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80461	80552	
==>ring(interpreter, ({{\@3}}));\n\n  void * const p = Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? NULL <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	627	930	
==>ormation', 
        'info.html', 
        'The conventional, generally all-caps, project information files which contain assorted bits and pieces of information about the distribution.',
        $self->new_group('Documentation', '',
            $self->new_item('General information about licences, prereq <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	99	272	
==>r:	Andy Bussey <andybussey@yahoo.co.uk>
# Last change:	2003 Aug 19

my $parrot = $ARGV[0];

if ($parrot eq '-h') {
    print "kate_syntax.pl\n\n",
        "Create Kate syntax <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	15539	15668	
==>> {
			'expr' => 55,
			'charclass' => 12
		}
	},
	{#State 38
		ACTIONS => {
			"?" => 23,
			'CHAR' => 4,
			"<" => 22,
			"+" => <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	16918	17106	
==>s (which can be
found in the given directories). A '*.pmc' glob may also be passed
to emulate a proper shell in the presence of a dumb one.

=cut

sub dump_pmc {
    my ($include, @files) = <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	10079	10191	
==>functions {
    my $package = 'Parrot::Test';

    my $path_to_parrot = path_to_parrot();
    my $parrot = File:: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct.pm	63	173	
==>(blocks, etc.).
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subjec <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	13671	13782	
==>_file.

  my($self, $source, $to) = @_;
  $self = $self->new unless ref($self); # so we tolerate being a class m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	816270	816472	
==>/ops/set.ops\"\n  Parrot_clear_i(interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	2472	2629	
==>"      => \$nolines_flag,
    "help"          => \$help_flag,
    "dynamic|d"     => \$dynamic_flag,
    "core"          => \$core_flag,
) || Usage();

Usage( <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8471	8589	
==>g & 0x04
#DBG>			and	print STDERR 
#DBG>				    "go to state $$states[$$stack[-1][0]]{GOTOS}{$lhs}.\n";

#DBG>				$ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8087	8201	
==>g & 0x04
#DBG>			and	print STDERR 
#DBG>				    "go to state $$states[$$stack[-1][0]]{GOTOS}{$lhs}.\n";

#DBG>				$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790172	790563	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 892,
                  "ARGS" => [
                              "s",
                              " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978339	978677	
==>line",
                  "CODE" => 1098,
                  "ARGS" => [
                              "i",
                              "ic",
                              "s",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	6508	6604	
==>(@e2);
	my($resulty, $typey, @codey);
	my($resultx, $typex, @codex);
	if ($type[NEXT] =~ /PUN/) { <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6594	6743	
==>F A$(I-1) > A$(I) THEN
         Exchange = TRUE
         B$=A$(I-1)
         A$(I-1)=A$(I)
         A$(I)=B$
         ' SWAP A$(I - 1), A$(I)
      EN <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16247	16396	
==>F A$(I-1) > A$(I) THEN
         Exchange = TRUE
         B$=A$(I-1)
         A$(I-1)=A$(I)
         A$(I)=B$
         ' SWAP A$(I - 1), A$(I)
      EN <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2488	2662	
==>::Simple::DumpAsXML->filter(shift)->any_errata_seen" \
   thingy.pod

=head1 DESCRIPTION

Pod::Simple::DumpAsXML is a subclass of L<Pod::Simple> that parses Pod
and turns it i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421260	421562	
==>MP" => 0,
                  "NAME" => "bind",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422152	422454	
==>MP" => 0,
                  "NAME" => "bind",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
2	/Users/nnunley/parrot/tools/dev/as2c.pl	943	1084	
==>, $2);
	    $src =~ s/\t/ /g;
	    my $len = length($bytes);
	    my @pairs = ($bytes =~ m/../g);
	    print "    ". join '', map {"0x$_, "} @ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	46106	46276	
==>e 4
		 'chunk', 0,
sub
#line 61 "Lua\lua51.yp"
{
            [];
        }
	],
	[#Rule 5
		 '_semicolon_opt', 1, undef
	],
	[#Rule 6
		 '_semicolon_opt', 0, un <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	8292	8383	
==>s, "
${INS} = concat ${DEST0}
${INS} = concat "\n"
post_call_NO_RETURN_${CURIC}:

POST_CALL_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	939	1049	
==>ghts)
#

package Parse::Yapp::Driver;

require 5.004;

use strict;

use vars qw ( $VERSION $COMPATIBLE <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	914	1015	
==>ghts)
#

package Parse::Yapp::Driver;

require 5.004;

use strict;

use vars qw ( $VERSION $COMPATIBLE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685965	686431	
==>,
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 770,
                  "ARGS" => [
                              "p",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 563 \"src/op <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7731	7835	
==>"Hello"
if s$ then print "This is true" else print "Oops (string)"
s$=""
if s$ then print "Should not hap <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14718	14822	
==>"Hello"
if s$ then print "This is true" else print "Oops (string)"
s$=""
if s$ then print "Should not hap <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	10930	11172	
==>a string containing an or expression "0" .. "A" .. "A|B" etc.
sub or_flag
{
    my ($flag, $value) = @_;

    if ($$flag eq '0')
    {
        $$flag = $value;
    }
    else
    {
        $$flag .= "|$value";
    }
}

=item C<make_op($code,
$ <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1284	1590	
==>"
                              #
$N1 = time_hires();           # time N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # D <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1284	1590	
==>"
                              #
$N1 = time_hires();           # time N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # D <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2276	2396	
==>"  $cond $left $op $right goto _LABEL_$name");
  }

  return;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handl <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	1943	2205	
==>ansi-ish.  Here's an attempt at a list of nasty things we can
        # use for a given version of gcc. The earliest documentation I
        # currently have access to is for 2.95, so I don't know what version
        # everything came in at. If it turns out that <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	21800	21911	
==>Uses S0, I0, N0
FINDIM
		
		foreach(@types) {
			my %val=( INT => 'I0', FLO => 'N0', STRING => 'S0' );
			if ($_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263440	263796	
==>rc/ops/cmp.ops\"\n    if ({{\@2}} == {{\@3}})\n        {{\@1}} = 0;\n    else\n        {{\@1}} = !VTABLE_is_same(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	2399	2597	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cpu_ret",
                  "FLAGS" => "",
                  "ARGDIRS" => [],
                  "TYPE" => "inl <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	17229	17333	
==>=back

The source has to be set before you can parse anything.  The lowest-level
way is to call C<set_sou <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698524	698898	
==>i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 784,
                  "ARGS" => [
                              "i",
                              "ic",
                              "ic",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	1740	1832	
==>$PERL $PATHQUOTE" . q[/Users/nnunley/parrot/tools/build/pmc2c.pl] . $PATHQUOTE;

# Actual com <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	1831	1923	
==>$PERL $PATHQUOTE" . q[/Users/nnunley/parrot/tools/build/pmc2c.pl] . $PATHQUOTE;

# Actual com <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	15591	15698	
==>$self,$line,$complaint) = @_;
  if( $self->{'no_errata_section'} ) {
    DEBUG > 9 and print "Discarding err <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	818	980	
==>2 Instance Methods

=over 4

=item C<files_of_type($type, $recursive, $ignore)>

Use this to get a list of the files of a particular type.

C<$recursive> and C<$ig <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	8378	8540	
==>ine ROFFS_PMC(x) REG_OFFS_PMC(jit_info->cur_op[x])
#
END_C

if ($jit_cpu) {
    print JITCPU <<'END_C';
#define IREG(i) REG_INT(jit_info->cur_op[i])
#define NREG(i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2493	2598	
==>he constant, we will place its
  # definition into the block at the top of the block stack. We fill in the <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2240	2345	
==>he constant, we will place its
  # definition into the block at the top of the block stack. We fill in the <==
2	/Users/nnunley/parrot/lib/Test/More.pm	13583	13818	
==>f $object;
                    $diag = "$obj_name isn't a '$class' it's a '$ref'";
                }
            } else {
                die <<WHOA;
WHOA! I tried to call ->isa on your object and got some weird error.
This should never <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	1794	1946	
==>f,$token;
      $token = $ch;
    }
  }
  return [grep { /\S/ } @$tokref];
}

1;
__END__

=head1 NAME

Scheme::Tokenizer - The Scheme tokenizer

=head1 S <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	7755	7872	
==>nst->{class} = "Const" . $self->{class};
    # and alias vtable
    $const->{vtable} = $self->{vtable};
    # set pare <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	2531	2634	
==>self->name;
  my @args  = $self->args;

  if ($type) {
    $handler->start_element({ Name => 'sub', Attr <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	3304	3416	
==>o_sum   = file_checksum($to,   $ignorePattern);
        return if $from_sum == $to_sum;
    }

    File::Copy::co <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	102	226	
==>using Parse::Yapp version 1.05.
#
#        Don't edit this file, use source file instead.
#
#             ANY CHANGE MADE <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	100	220	
==>using Parse::Yapp version 1.05.
#
#        Don't edit this file, use source file instead.
#
#             ANY CHANGE MADE <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	838	927	
==>opt/local/lib -L/usr/local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS = qq[-bundle -undefi <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	842	931	
==>opt/local/lib -L/usr/local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS = qq[-bundle -undefi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846696	846933	
==>rpreter, (UINTVAL){{\@2}});\n  {{\@1}} = s;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847492	847729	
==>rpreter, (UINTVAL){{\@2}});\n  {{\@1}} = s;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835330	835560	
==>"NAME" => "savec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836082	836312	
==>"NAME" => "savec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11063	11259	
==>{{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11852	12048	
==>{{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10045	10189	
==>error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Pop state $$stack[-1][0].\n";

			pop(@$stack);
		}

			@$stack
		or	d <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9597	9732	
==>error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Pop state $$stack[-1][0].\n";

			pop(@$stack);
		}

			@$stack
		or	d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607546	607665	
==>object.ops\"\n    {{\@1}} = VTABLE_get_attr(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608450	608569	
==>object.ops\"\n    {{\@1}} = VTABLE_get_attr(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650654	650783	
==>>n_vtable_max)\n        {{\@1}} = 1;\n    else if ({{\@2}} >= enum_first_type && {{\@2}} < enum_last_type)\n        {{\@1}} = 1;\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651576	651705	
==>>n_vtable_max)\n        {{\@1}} = 1;\n    else if ({{\@2}} >= enum_first_type && {{\@2}} < enum_last_type)\n        {{\@1}} = 1;\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	817680	817815	
==>"LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818458	818593	
==>"LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART", <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1897	2061	
==>ed to contain CLI
option data.

Accepts no arguments and returns a L<Parrot::Configure::Data> object.

=cut

sub options
{
    my $self = shift;

    return $self->{ <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4508	4714	
==>',
            has_dynamic_linking  => 1
        );

        # 'link' needs to be xilink.exe, not icl.exe.
        # This makes 'link' and 'ld' the same.
        $conf->data->set(link => $conf->data->get('ld <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	33523	33736	
==>UG > 1 and printf qq{Catching "%s as " as complex L<URL> link.\n},
          #  join '~', @{$treelet->[$i][1]{'to'  }};
          
          $treelet->[$i][1]{'to'} = Pod::Simple::LinkSection->new(
            $tre <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	470	590	
==>, $ctx) = @_;
    $t = $self->pass1($t, $ctx);
    # Disable implicit checks
    $t = $self->maptree($t, sub { shift->{no <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5106	5222	
==>ft;
  my ($handler) = @_;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3169	3285	
==>ft;
  my ($handler) = @_;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033549	1033806	
==>pad, lex_name, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034647	1034904	
==>pad, lex_name, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	52665	52776	
==>ping fields as
possible, by repeatedly applying each of the specified extractors
to the remainder of the string. <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	395	535	
==>It is the Perl equivalent of the C<op_info_t> C
C<struct> defined in F<include/parrot/op.h>.

=head2 Op Type

Ops are either I<auto> or I<man <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	1784	1963	
==>sub, if, else, while, etc.
    TYPE    => $type,   # Return type, if any.
    PREFIX  => $prefix, # Prefix, if given in source code.
    SYMBOLS => { },     # Identifiers
    CONTE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105714	1106000	
==>"JUMP" => 0,
                  "NAME" => "getclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106689	1106975	
==>"JUMP" => 0,
                  "NAME" => "getclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3697	3805	
==>ion's nth argument. C<$0> is the opcode itself.

=back

Note that, for ease of parsing, if the argument to on <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	2587	2695	
==>is
    # user could deactivate vital PMCs like SArray
    # so there would be tests needed, that check for vi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	533474	533726	
==>g((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
2	/Users/nnunley/parrot/config/auto/snprintf.pm	94	205	
==>006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/snprintf.pm - Test for snprintf

=head1 DESCRIPTION <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	62987	63175	
==>ck for quotelike "%s">

C<extract_codeblock> or C<extract_quotelike> found one of the
quotelike operators C<s>, C<tr> or C<y> followed by only one block.

=item C<No match found for opening <==
2	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	198	327	
==>y $smokeserv = "http://smoke.parrotcode.org/smoke/"),
  "help"        => \&usage,
  "compress|c!" => \(my $compression_wanted = 1) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	2879	3076	
==>ree Contents

Every element node in the parse tree is represented by an arrayref of
the form: C<[ I<elementname>, \%attributes, I<...subnodes...> ]>.
See the example tree dump in the Synopsis, above <==
2	/Users/nnunley/parrot/examples/benchmarks/oofib.pl	364	553	
==>shift;
    my $n = shift;
    return $n if ($n < 2);
    return $self->fib($n-1) + $self->fibA($n-2);
}

package main;

my $N = shift || 28;

my $b = B->new();

print "fib($N) = ", $b->fib($ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43849	43973	
==>=> 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 205,
			'functioncall' = <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	4955	5061	
==>ly, I can't differentiate any further.


=head1 NOTES

Test::Simple is B<explicitly> tested all the way bac <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4878	4991	
==>->temp_pmc();

    $compiler->emit("  $pmc_reg = new $pmc_type");
    $compiler->emit("  $pmc_reg = $dest");
    $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2941	3054	
==>->temp_pmc();

    $compiler->emit("  $pmc_reg = new $pmc_type");
    $compiler->emit("  $pmc_reg = $dest");
    $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635484	635743	
==>"ARGS" => [
                              "p",
                              "ic",
                              "s"
                            ],
                  "BODY" => "#line 107 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= inte <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	43524	43732	
==>O AUTOLOADER IGNORES IT

# BUILDING A GRAMMAR....

sub Replace ($$)
{
	# This splice hits an assertion failure in 5.005_03 when compiled
	# with debugging:
	# splice(@_, 2, 0, 1);
	# return _generate(@_);
	# A <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	35348	35448	
==>turn Del_Slice(@_, 1);
}
sub DELETE_SLICE_plus_2 {
    return Del_Slice(@_, 2);
}
sub DELETE_SLICE_pl <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1472	1578	
==>ift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'op', Attributes => { kind => 'postfix', na <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1466	1572	
==>ift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'op', Attributes => { kind => 'postfix', na <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1244	1344	
==>->temp_pmc();
    $compiler->emit("  $pmc_reg = new $pmc_type");
    $compiler->emit("  $pmc_reg = $i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1238	1338	
==>->temp_pmc();
    $compiler->emit("  $pmc_reg = new $pmc_type");
    $compiler->emit("  $pmc_reg = $i <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	1216	1459	
==>,
	FixedFloatArray => 57,
	FixedPMCArray => 58,
	LexInfo => 59,
	MultiSub => 60,
	NameSpace => 61,
	None => 62,
	Pair => 63,
	ResizableBooleanArray => 64,
	ResizableFloatArray => 65,
	ResizableIntegerArray => 66,
	ResizablePMCArray => 67,
	Resi <==
2	/Users/nnunley/parrot/config/auto/signal.pm	1215	1335	
==>ata->set(has_sigaction => 'define');
        print " (sigaction)" if $verbose;
    }
    cc_clean();

    cc_gen('config/ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	830	965	
==>( $code =~ /^pmclass\s+[A-Z]/smo )
	    {
	        push(@concrete_items, 
	            $self->new_item('', $dist->relative_path($file))) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247274	247657	
==>"i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 287,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 670 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4} <==
2	/Users/nnunley/parrot/config/init/hints/darwin.pm	853	1058	
==>re_ext           => '.dylib',
        load_ext            => '.bundle',
        link                => 'c++',
        ld                  => 'c++',
        ld_share_flags      => '-dynamiclib -undefined sup <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	5840	5973	
==>ndex {
    print "Writing $HTMLDIR/index.html..\n" if $DEBUG;
    open (OUT, ">$HTMLDIR/index.html") or
      die "Can't open $HTMLDIR <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11507	11607	
==>YPES}
if ${ITEMP0} == 0 goto PRE_CALL_END_${CURIC}

# Do we have anything on the lazy moves stack?
${ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	17058	17161	
==>5.006001 ? (\n";
print @good;
print " ) : (\n";
print @bad;
print " )\n);\n";

__END__
#~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/config/inter/libparrot.pm	377	480	
==>cut

package inter::libparrot;

use strict;
use vars qw($description @args);

use base qw(Parrot: <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	2216	2448	
==>turn (aop(comment => [ "save rxlocals for op" ]),
                map { aop('pushint' => [ $_, "op rxlocal $_" ]) }
                    @$rxlocals);
    }
}

sub op_restore_rxlocals {
    my ($self, $op) = @_;
    if ($op->{non_reent <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1959	2085	
==>er module.";

        ref($class)
    and $class=ref($class);

    bless($self,$class);
}

sub YYParse {
    my($self) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1892	2009	
==>er module.";

        ref($class)
    and $class=ref($class);

    bless($self,$class);
}

sub YYParse {
    my($self) <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	2019	2103	
==>final_destination = new_buffer_header(interpreter);\nPObj_external_SET(final_destinat <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	2132	2216	
==>final_destination = new_buffer_header(interpreter);\nPObj_external_SET(final_destinat <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	17386	17517	
==>name)=@_;
	my %lookup = ( '#' => "_hash",
				  	'!' => "",
					'&' => "_amp",
					'%' => "_percent",
					);
	$name=~s/(%|!|\#|&) <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	17456	17553	
==>E_$_:
LOOPUP
}
my $docounter=0;
sub parse_do {
	$docounter++;
	if ($syms[NEXT] eq "until" or $syms <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	4526	4808	
==>ut_fh.  Simplifies our code.
  #
  my $this = shift;
  return $this->{'output_string'} unless @_;  # GET.
  
  require Pod::Simple::TiedOutFH;
  my $x = (defined($_[0]) and ref($_[0])) ? $_[0] : \( $_[0] );
  $$x = '' unless defined $$x;
  DEBUG > 4 and print "# Output string set to <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13094	13187	
==>}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  loc = INTVAL2PTR(opcode_t *, {{\@1}});\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13938	14031	
==>}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  loc = INTVAL2PTR(opcode_t *, {{\@1}});\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4311	4436	
==>",
        'kc' => "((PMC *)cur_opcode[%ld])",
    );

    die "Unrecognized type '$type' for num '$num' in opcode @{[$op->ful <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	6501	6662	
==>->{"prods"}}, $prod;
	$self->{"changed"} = 1;
	delete $self->{"expected"};
	$self->{"impcount"} = 0;
	$self->{"opcount"} = 0;
	$prod->{"number"} = $#{$self->{"pro <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	6787	7014	
==>expr) {
		die "Expression too complex at line $sourceline" if $i++ > 100;  # Arbitrary.
		my($sym,$type)=@$item;
		#print "Got a $sym...\n";
		if ($sym eq "(") {
			push @stack, $item;
			next;
		}
		if ($sym eq ")") {
			push @ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1275	1404	
==>>

Sets/gets the current position in Parrot code.

=cut

sub pc
{
    my $self = shift;

    if (@_)
    {
        $self->{PC} = s <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	884	1013	
==>>

Sets/gets the current position in Parrot code.

=cut

sub pc
{
    my $self = shift;

    if (@_)
    {
        $self->{PC} = s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719818	719918	
==>o = {{\@1}};\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721018	721118	
==>o = {{\@1}};\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822297	822392	
==>, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_INT) {\n    internal_exception <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823365	823460	
==>, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_INT) {\n    internal_exception <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528735	529061	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529617	529943	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGD <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9618	9741	
==>BG>			and	print STDERR "**At eof: aborting.\n";
				return(undef);
			};

#DBG>			$debug & 0x10
#DBG>		and	print STDERR <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9185	9303	
==>BG>			and	print STDERR "**At eof: aborting.\n";
				return(undef);
			};

#DBG>			$debug & 0x10
#DBG>		and	print STDERR <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3018	3130	
==>self = shift;
  my ($handler) = @_;

  my $block = $self->block;
  my $kind  = $self->kind;
  my $name  = $self-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6054	6171	
==>ne 144 \"src/ops/core.ops\"\n    Parrot_load_bytecode(interpreter, {{\@1}});\n    {{+=2}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6720	6837	
==>ne 144 \"src/ops/core.ops\"\n    Parrot_load_bytecode(interpreter, {{\@1}});\n    {{+=2}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	1425	1710	
==>less {
    BLOCK  => $block,

    SCOPE  => $scope,
    KIND   => $kind,
    TYPE   => $type,
    NAME   => $name,
    VALUE  => $value,  # For constants (undef for variables)
    PROPS  => $props,
    ARGS   => $args,

    DEBUG  => 1,
    FILE   => $file,
    LINE   => $line
  }, $cl <==
2	/Users/nnunley/parrot/config/inter/encoding.pm	381	490	
==>ase);

use Parrot::Configure::Step ':inter';

$description = 'Determining what encoding files should be compil <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	3540	3696	
==>oreach (@methods) {
        if ($classes{$_->{'class'}}) {
            push @{$classes{$_->{'class'}}}, $_;
        } else {
            $classes{$_->{'class <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	13838	13980	
==>losing =~ tr/([<{/)]>}/;
	my $matched;
	my $patvalid = 1;
	while (pos($$textref) < length($$textref))
	{
		$matched = '';
		if ($rd && $$textre <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	2375	2509	
==>e($compiler, $options );

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	2589	2784	
==>sh_file" or
  die "Can't read $parrot/$parrot_pmcsh_file!";
while (<TYPES>) {
    next unless (/^\s+enum_class_(\w+)\,/);
    my $type = $1;
    $type =~ s/\./\&046;/g;
    print "      <item>$typ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1325	1430	
==>RRAY', YYDEBUG => '');
#Mandatory parameters
my(@params)=('LEX','RULES','STATES');

sub new {
    my( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1281	1381	
==>RRAY', YYDEBUG => '');
#Mandatory parameters
my(@params)=('LEX','RULES','STATES');

sub new {
    my( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	2652	2813	
==>ldren == 1) {
                return rop('multi_match', [0,1,1,$children[0]]);
            } else {
                @{ $t->{args} } = @children;
                r <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1530	1667	
==>,
				ERRST => \$errst,
                NBERR => \$nberr,
				TOKEN => \$token,
				VALUE => \$value,
				DOTPOS => \$dotpos,
				ST <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1479	1610	
==>,
				ERRST => \$errst,
                NBERR => \$nberr,
				TOKEN => \$token,
				VALUE => \$value,
				DOTPOS => \$dotpos,
				ST <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846529	846709	
==>"s",
                              "i"
                            ],
                  "BODY" => "#line 56 \"src/ops/string.ops\"\n  STRING *s;\n  s = string_chr(interpreter, (UINT <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	3993	4144	
==>register(interpreter, whoami);
EOC
    }
    $cout .= <<"EOC";

    /* do class_init code */
    for (pass = 0; pass <= 1; ++pass) {
EOC
    while (my ( <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	714	849	
==>the test program: $!";
    cc_clean();

    my ($gccversion, $warns, $ccwarn);
    $ccwarn = $conf->data->get('ccwarn');

    # Set gccv <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	56186	56325	
==>or more strings representing possible
					       types of the specified token. For example:
					       <token:NOUN,VERB>");
				}
				else <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	2852	3118	
==>=~ m/^\s*$/));
        if (!defined($function) && !defined($template)) {
            if ($line =~ m/TEMPLATE\s+(\w+)\s*{/) { #}
                $template = $1;
                $asm = q{};
                next;
            }
            else {
                $line =~ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956448	956684	
==>"function",
                  "CODE" => 1076,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 576 \"src/ops/string.ops\ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13813	13982	
==>$return,0]);
  }
  else {
    $self->_add_inst ('', 'typeof', [$return,$item]);
    $self->_add_inst ('', 'ne', [$return,'.Array',"FAIL_$label"]);
    $self->_add_inst (' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	533720	534009	
==>P" => 0,
                  "NAME" => "log10",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	25076	25182	
==>can() doesn't like getting undef
           UNIVERSAL::can((tied($maybe_fh) || ''), 'TIEHANDLE');
}


sub _ <==
2	/Users/nnunley/parrot/config/init/hints/netbsd.pm	119	236	
==>lf, $conf) = @_;

    my $ccflags = $conf->data->get('ccflags');
    if ($ccflags !~ /-pthread/) {
        $ccflags .= <==
2	/Users/nnunley/parrot/config/init/hints/openbsd.pm	211	328	
==>lf, $conf) = @_;

    my $ccflags = $conf->data->get('ccflags');
    if ($ccflags !~ /-pthread/) {
        $ccflags .= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062917	1063414	
==>_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1187,
                  "ARGS" => [
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 253 \"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root_namespace <==
2	/Users/nnunley/parrot/config/gen/revision.pm	163	270	
==>arrot's configure revision

=head1 DESCRIPTION

Determines parrot's SVN revision.  In a release, there are n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043534	1043867	
==>"TYPE" => "function",
                  "CODE" => 1166,
                  "ARGS" => [
                              "p",
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line 125 \"src/ops/var.ops\"\n    VTABLE_set_pmc_keyed_str(interpreter, {{\@1}}, { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658288	658398	
==>}}) ? 0 : {{\@2}}->vtable->defined_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659207	659317	
==>}}) ? 0 : {{\@2}}->vtable->defined_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	30994	31106	
==>ll_with_input_file {
}

sub _op_call_with_output_file {
}

sub _op_input_port_p {
}

sub _op_output_port_p {
}

s <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11465	11625	
==>print "Also a mistake"
else 
	print "Correct now 24"
	print factorial(4)
end if

' Changed ref'd var from 5 to 12
function myfunc(a)
	print a
	a=12
        myfun <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	1296	1422	
==>nless (defined $major) {
        print " (no) " if $verbose;
        $self->set_result('no');
        $conf->data->set(gccversi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	24493	24632	
==>Okay, stack is empty now.\n";
      }
      
      # Try generating errata section, if applicable
      unless($self->{'~tried_gen_errata'}) <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	13138	13473	
==>="red">$_</font>)
            } elsif ($_ =~ /^branch \d+ never executed/) {
                print OUT qq($atag<font color="red">$_</font>)
            } elsif ($initial =~ /\#\#\#/) {
                print OUT qq($atag<font color="red">$_</font>)
            } else {
                print OUT $_;
            }
        }
    }
}


sub <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	465	558	
==>ib 'lib';
use Parrot::Types;
use Parrot::PackFile;
use Parrot::PackFile::ConstTable;
use Parro <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	1115	1221	
==>shift;
	my @contents = @_;
	
	# TODO - Groups should only contain items or paths.
	
	$self = $self->SUPER:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386924	387495	
==>FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 451,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 464 \"src/ops/io.ops\"\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389187	389729	
==>FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 453,
                  "ARGS" => [
                              "p",
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390318	390853	
==>FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 454,
                  "ARGS" => [
                              "p",
                              "ic",
                              "i",
                              "ic"
                            ],
                  "BO <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	840	932	
==>t/local/lib -L/usr/local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS = qq[-bundle -undefined s <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	844	936	
==>t/local/lib -L/usr/local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS = qq[-bundle -undefined s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488903	489330	
==>NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 560,
                  "ARGS" => [
                              "i",
                              "n"
                            ],
                  "BODY" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	489656	489953	
==>NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 561,
                  "ARGS" <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	58129	58265	
==>_delimited_pat>

The C<gen_delimited_pat> subroutine takes a single (string) argument and
   > builds a Friedl-style optimized regex that <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3851	4043	
==>> '-Zi',
            libs                 => "$libs libircmt.lib",
            ld                   => 'xilink',
            ld_debug             => '-debug',
            ld_share_flags       = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103718	1103894	
==>,
                              "p"
                            ],
                  "BODY" => "#line 332 \"src/ops/experimental.ops\"\n\tSTRING *class = {{\@2}};\n\tINTVAL type <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104933	1105109	
==>,
                              "p"
                            ],
                  "BODY" => "#line 332 \"src/ops/experimental.ops\"\n\tSTRING *class = {{\@2}};\n\tINTVAL type <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	1801	1962	
==>[(\w+)\]/) {
        $section = $1;
    }
        elsif (m/^\s*
            ($type_re)\s+
            ($ident_re)\s*
        \(($arglist_re)\)
        (?:\s+(MMD_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943387	943651	
==>> "charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944175	944439	
==>> "charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2753	2893	
==>'',            'set', 'P12', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['' <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41040	41289	
==>CTIONS => {
			"(" => 48,
			"{" => 38,
			'STRING' => 44
		},
		GOTOS => {
			'tableconstructor' => 46,
			'args' => 190
		}
	},
	{#State 175
		ACTIONS => {
			"=" => 191
		}
	},
	{#State 176
		ACTIONS => {
			"-" => 72,
			".." => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	618536	618883	
==>ne",
                  "CODE" => 699,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 84 \"src/ops/pic.ops\"\n    Parrot_MIC *mic;\n    Parrot_PIC_lru *lru;\n    PMC *left, *right;\n    INTVAL lr <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	3872	4024	
==>arams};

        $n++;

        eval "use $step_name;";
        die $@ if $@;

        my $step = $step_name->new;

        # XXX This works. but is prob <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	5963	6088	
==>ntf "%s\t%s\tMISSING_API\n", $api, "-";
    }
}

if (@NoParrotPrefix) {
    printf "--- No Parrot prefix: %d ---\n", scalar @N <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	3269	3527	
==>!
 *
 * This file is generated automatically from '$outfile'
 * by $0.
 *
 * Any changes made here will be lost!
 *
 */

static const struct _cstrings {
    UINTVAL len;
    Parrot_UInt4 hash_val;
    const char *string;
} parrot_cstrings[] = {
	{ 0, 0, "" }, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	796	893	
==>all its methods,
and adds these methods:

=over

=item $token->tagname

This returns the tagname f <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1222	1319	
==>all its methods,
and adds these methods:

=over

=item $token->tagname

This returns the tagname f <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	12356	12509	
==>LSO | SWITCHES | ENVIRONMENT
            )\)/sx
            # avoid accepting things like =head1 Thingy Thongy (DESCRIPTION)
          and ($max_content_l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49680	49940	
==>P_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "profile",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline", <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	18613	18920	
==>nk $out_f;
            }

            return $pass;
        };
    }

    my %builtin_language_prefix = (
        IMC   => 'pir',
        PASM  => 'pasm',
        PAST  => 'past',
        PIR   => 'pir',
                                  );

    my %language_test_map = (
        language_output_is   => 'out <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	661	769	
==>parser make the included
# text under the same copyright as the Parse::Yapp module itself.
#
# This notice <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	642	747	
==>parser make the included
# text under the same copyright as the Parse::Yapp module itself.
#
# This notice <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	2460	2639	
==>if ($special_class_name{$classname}) {
        $nclass .= "::" . $classname;
    }
    else {
        $nclass .= "::Standard";
    }
    $nclass;
}

=item C<dynext_load_code($libra <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	4672	4828	
==>$decl = $2;
                $decl .= <PMC> until ($decl =~ s/\{.*//);
                $const = 1 if $decl =~ /\bconst_too\b/;
                next PMC if $de <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511331	511595	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 589,
                  "ARGS" => <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	26495	26629	
==>it ',', $elements_one, -1;

    foreach my $f (@fallbacks) {
      next if exists $Known_formatting_codes{$f} or $f eq '0' or $f eq '1' <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	1899	2000	
==>heme::Tokenizer - The Scheme tokenizer

=head1 SYNOPSIS

  use Scheme:Tokenizer;

  my @code = Scheme: <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12946	13064	
==>nts($1) . ')'/xeg;

    # Rewrite OtherClass.SELF.other_method(args...)
    s/(\w+)             # OtherClass
      \.SE <==
2	/Users/nnunley/parrot/Configure.pl	8444	8545	
==>undation.

Hello, I'm Configure. My job is to poke and prod your system to figure out
how to build Par <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	34152	34306	
==>v = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   print <<EOC;
	$vv = $v->[1]
EOC
       }
    }
    my $dest =  (pop @stack)->[1];
    my $ag = <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	35076	35226	
==>v = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   print <<EOC;
	$vv = $v->[1]
EOC
       }
    }
    my $dest =  (pop @stack)->[1];
    prin <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1823	1921	
==>let  { ++$_[0]{'Indent'} }
sub start_over_number  { ++$_[0]{'Indent'} }
sub start_over_text    { ++ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1391	1489	
==>let  { ++$_[0]{'Indent'} }
sub start_over_number  { ++$_[0]{'Indent'} }
sub start_over_text    { ++ <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3713	3818	
==>nt. C<$0> is the opcode itself.

=back

Note that, for ease of parsing, if the argument to one of the abov <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7337	7486	
==>fined $next;
        unless( $next->type eq 'text' ) {
          $self->unget_token($next);
          next;
        }
        DEBUG and print "    raw <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9582	9731	
==>fined $next;
        unless( $next->type eq 'text' ) {
          $self->unget_token($next);
          next;
        }
        DEBUG and print "    raw <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010170	1010676	
==>"NAME" => "compose",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1127,
                  "ARGS" => [
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 659 \"src/ops/string.ops\"\n  {{\@1}} = string_compose(interpreter, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009406	1009697	
==>"NAME" => "compose",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1126,
                  "ARG <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	938	1034	
==>" if ref $op;
  confess "Right is not Value!" unless UNIVERSAL::isa($right, 'Jako::Construct::Exp <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	950	1046	
==>" if ref $op;
  confess "Right is not Value!" unless UNIVERSAL::isa($right, 'Jako::Construct::Exp <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	881	992	
==>y $verbatim_begin = qr{ ^= }smx;
my $verbatim_end   = qr{ ^=cut }smx;

sub get_formatted {
    my ($self) = shif <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108383	108937	
==>base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 135,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 167 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  " <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	2	108	
==>/usr/bin/perl
use strict;

my @results = ();
while (<>) {
	if (/^Translated (\d+) types out of (\d+) f <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	2	108	
==>/usr/bin/perl
use strict;

my @results = ();
while (<>) {
	if (/^Translated (\d+) types out of (\d+) f <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28614	28791	
==>imary' => 28
		}
	},
	{#State 87
		DEFAULT => -105
	},
	{#State 88
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			".. <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30879	31024	
==>r rule $rule->{'name'}");
		$pir .= "### end post_load\n";

        # Emit code to clone value types for the need_dest not set case.
        if (! <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	394	508	
==>Construct::Declaration);

use Jako::Construct::Type;


#
# new()
#

sub new
{
  my $class = shift;

  my ($block, $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	394	508	
==>Construct::Declaration);

use Jako::Construct::Type;


#
# new()
#

sub new
{
  my $class = shift;

  my ($block, $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	1107	1253	
==>,  #  ''
  '/head1' => "</a></h1>\n",
  '/head2' => "</a></h2>\n",
  '/head3' => "</a></h3>\n",
  '/head4' => "</a></h4>\n",

  'X'  => "<!--\n\tIN <==
2	/Users/nnunley/parrot/config/auto/format.pm	270	364	
==>kage auto::format;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	27109	27206	
==>return ($lastback, aop('external' => [ $extname, $extargs, $lastback ]));
    }
}

sub describe_se <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10079	10193	
==>');

    if (defined($_[0]) && length($_[0])) {
        local $" = ' ';
        _run_command(".${slash}test${exe} @ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10660	10774	
==>');

    if (defined($_[0]) && length($_[0])) {
        local $" = ' ';
        _run_command(".${slash}test${exe} @ <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	350	512	
==>luaaux.pir"
.include "languages/lua/lib/luabasic.pir"
.include "languages/lua/lib/luacoroutine.pir"
.include "languages/lua/lib/luapackage.pir"
.include "langu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	67853	68203	
==>ELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sweepoff",
                  "FLAGS" => "",
                  "ARGDIRS" => [],
                  "TYPE" => "function",
                  "CODE" => 89,
                  "ARGS" => [],
                  "BODY" => "#line 1049 \"sr <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10416	10637	
==>f and ref $self and $self->isa("Jako::Construct::Block");
  confess "Extra arguments!" if @_;

  return @{$self->{CONTENT}};
}


###############################################################################

=head2 BLOCK <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4507	4619	
==>f and ref $self and $self->isa("Jako::Construct::Block");
  confess "Extra arguments!" if @_;

  return keys %{$s <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24857	24961	
==>ref,
				$match[2], $match[3]+$match[5]+$match[7],	# MATCH
				@match[8..9,0..1,2..7];				# REM, PRE, BIT <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7689	7791	
==>ref,
			$match[2], $match[3]+$match[5]+$match[7],	# MATCH
			@match[8..9,0..1,2..7];				# REM, PRE, BIT <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548081	548271	
==>/* Coercing a negative to a UINT can get pretty ugly\n   * in this situation. */\n  INTVAL i = {{\@2}};\n  UINTVAL q = 1;\n  while(i>0) {\n    q = q*i;\n    i--;\n  }\n  {{\@1}} = q;\n  {{+=3 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548987	549091	
==>/* Coercing a negative to a UINT can get pretty ugly\n   * in this situation. */\n  INTVAL i = {{\@2}};\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669113	669336	
==>ble->push_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669885	670108	
==>ble->push_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	851	947	
==>yte\", ".$self->output_label_use($failLabel);
}

sub output_classmatch {
    my ($self, $class, $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78917	79015	
==>st name = string_to_cstring(interpreter, ({{\@3}}));\n\n  void * const p = Parrot_dlsym(PMC_IS_NULL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80438	80536	
==>st name = string_to_cstring(interpreter, ({{\@3}}));\n\n  void * const p = Parrot_dlsym(PMC_IS_NULL <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	8660	8777	
==>ncs[$i];
}

if ($trans->can("run_core_finish")) {
    print SOURCE $trans->run_core_finish($base);
}


#
# reset #line <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679140	679230	
==>/pmc.ops\"\n    {{\@1}}->vtable->unshift_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679919	680009	
==>/pmc.ops\"\n    {{\@1}}->vtable->unshift_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3} <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	13713	13850	
==>textref),20) .
			     q{..."},
		         pos $$textref;
		pos $$textref = $startpos;
		return;
	}
	my $closing = $1;
	   $closing =~ tr/ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5103	5218	
==>shift;
  my ($handler) = @_;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3166	3281	
==>shift;
  my ($handler) = @_;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	7833	7950	
==>n not processable by the above methods.

=cut

sub process_other_start_token
{
    my $self = shift;
    my $token = s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846716	846994	
==>\@2}});\n  {{\@1}} = s;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847512	847790	
==>\@2}});\n  {{\@1}} = s;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	2584	2842	
==>oc
    src/ops/ops.num                                 [devel]
    tools/build/ops2c.pl                            [devel]
    tools/build/ops2pm.pl                           [devel]
    tools/build/pbc2c.pl                            [devel]
    tools/build/ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5294	5438	
==>_tmp>, $first, $fail"
              unless $first == 0;
            push @ops, "lt <rx_tmp>, $last, $pass";
        } else {
            push @op <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9760	9864	
==>s test suite. It has the
distinction of being the very first module written for Pugs.

It provides a simp <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	10648	10746	
==>xpected, $name);

Like Test::More's is().  Checks if $got eq $expected.  This is the
string version <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9655	9794	
==>diag('some misc comments and documentation');

= DESCRIPTION

This module was built to facilitate the Pugs test suite. It has the
distinctio <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	11889	12053	
==>self->_add_inst(''         ,'eq' ,[$temp,0,"DONE_$label"]);
    $self->_restore($temp);
  }
  $self->_add_inst(''           ,'set',[$return,1]);
  $self->_add_inst(" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	4373	4547	
==>s
	\$P0=new .PerlArray
	\$P1["watch"]= \$P0  # Watch
	store_global "DEBUGGER", \$P1
.end
FOO
}
print CODE<<RUNTIMESHUTDOWN;
	#
	# Pull in the runtime libraries
	#
.include "RT <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623551	623675	
==>tsig = NULL;\n\tdest_pred = NULL;\n    }\n    lru = &mic->lru;\n    if (lru->u.signature == sig) {\n\tif (sig) {\n\t    n = ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679151	679303	
==>n    {{\@1}}->vtable->unshift_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679930	680082	
==>n    {{\@1}}->vtable->unshift_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3106	3204	
==>d by config/gen/core_pmcs.pm

package Parrot::PMC;

use strict;
use warnings;

use vars qw(@ISA %pm <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	50	148	
==>d by config/gen/core_pmcs.pm

package Parrot::PMC;

use strict;
use warnings;

use vars qw(@ISA %pm <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	604646	604888	
==>"removeparent",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	8470	8552	
==>a href="$outfile_base.calls.html">@{[$file_call_coverage{$source_file} ? "$file_cal <==
2	/Users/nnunley/parrot/config/init/defaults.pm	4271	4462	
==>ibparrot'.$Config{_a},
        libparrot_shared => 'libparrot.'.$Config{so},

        # does the system know about static/dynamic linking?
        has_static_linking => 1,
        has_dynamic_ <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2441	2531	
==>.c>,
F<examples/mops/mops.cs>,
F<examples/mops/mops.il>,
F<examples/mops/mops.p6>,
F<exampl <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	2441	2531	
==>.c>,
F<examples/mops/mops.cs>,
F<examples/mops/mops.il>,
F<examples/mops/mops.p6>,
F<exampl <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	5807	6041	
==>les);
    } else {  
        return;
    }
}

##
## my $string = unescape( $original )
##
## Unescape backslashes from a Tcl string.
##
sub unescape {
    my ($string) = @_;
    return if not $string;

    $string =~ s/\\([^abfnrtvoxu] <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9845	10021	
==>e, $reg) = @_;
    $reg = value($reg);
    return "$reg, ";
}


sub output_return {
    my ($self, $rettype, $retval) = @_;
    $retval = value($retval);
    return ("return $re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	37505	37694	
==>t *)throw_exception(interpreter, {{\@1}}, ret);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	38553	38762	
==>]{'target'}) is a non-resolver\n";
            $para->[0] = $para_type = 'Data';
          }
        }
      }

      #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      if($para_type eq <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	15159	15546	
==>for:
  #                   directivename (like head1 .. head4), item, extend,
  #                   for (from =begin...=end, =for),
  #                   over-bullet, over-number, over-text, over-block,
  #                   item-bullet, item-number, item-text,
  #                   Document,
  #                   Data, Para, Verbatim
  #                   B, C, longdirname (TODO -- wh <==
2	/Users/nnunley/parrot/config/auto/aio.pm	100	202	
==>2:28:15.110975Z coke  $

=head1 NAME

config/auto/aio.pm - Test for AIO

=head1 DESCRIPTION

Determines <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8391	8546	
==>n ";

                $$check eq 'ERROR'
            or  do {
#DBG>				$debug & 0x04
#DBG>			and	print STDERR 
#DBG>				    "go to state $$states[$$st <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8011	8160	
==>n ";

                $$check eq 'ERROR'
            or  do {
#DBG>				$debug & 0x04
#DBG>			and	print STDERR 
#DBG>				    "go to state $$states[$$st <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	7402	7727	
==>num;
	warn "$opname\t$n\tnot mentioned in ops.num\n" if -e "DEVELOPING";
	return $n;
    }
}

sub renum_op_map_file {
    my $ops = shift;
    my $file = shift;

    if (!defined $file) {
        $file = "src/ops/ops.num";
    }
    my ($name, $number, @lines, %seen, %fixed, $fix);
    local *OP;
    $fix = 1;
    open OP, " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610917	611191	
==>e",
                  "CODE" => 692,
                  "ARGS" => [
                              "p",
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 491 \"src/ops/object.ops\"\n    VTABLE <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	6169	6295	
==>your test program.

=back


=head1 AUTHORS

Idea by Tony Bowden and Paul Johnson, code by Michael G Schwern
E<lt>schwern@pobox. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247988	248486	
==>core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 288,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 670 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	27985	28168	
==>(or at index zero, if no C<pos>
position is defined).

=head2 General behaviour in list contexts

In a list context, all the subroutines return a list, the first three
elements of whic <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2329	2440	
==>elf->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exists($$self{USER})
	or	$$self{USER <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2242	2344	
==>elf->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exists($$self{USER})
	or	$$self{USER <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	263	361	
==>ion::BigNum;

=head1 DESCRIPTION

A documentation section describing Parrot's big number subsystem. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408063	408337	
==>1,
                  "ARGS" => [
                              "i",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 540 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_connect(interpreter, { <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	7097	7217	
==>oken_buffer'}}), " items in it.\n";
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	7840	8113	
==>without maximum lengths
        my $havemax = 0;
        my @chunks = ([]);

        foreach my $kid (@{ $t->{args} }) {
            if (defined($kid->maxlen()) xor $havemax) {
                # Change
                push @chunks, [];
                $havemax = 1 - $havema <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	815950	816216	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cleari",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 922,
                  "ARGS <==
2	/Users/nnunley/parrot/config/inter/progs.pm	22	111	
==>005, The Perl Foundation.
# $Id: /parrot/config/inter/progs.pm 19593 2006-05-30T02:28:15.1 <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	1227	1345	
==>ne of:
    #   struct( class => [ element-list ])
    #   struct( class => { element-list })
    #   struct( element-li <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	3112	3274	
==>$/;
    
    $self->{SUFFIX} = defined $suffix ? $suffix : '';
    
    return $self->{SUFFIX};
}

=item C<has_suffix()>

Finds out whether the name has a .xyz suf <==
2	/Users/nnunley/parrot/lib/Test/More.pm	1703	1791	
==>cmp_ok($this, '==', $that, $test_name);

  is_deeply($complex_structure1, $complex_struct <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	251	380	
==>$conf) = @_;

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }
    if <==
2	/Users/nnunley/parrot/config/init/hints/hpux.pm	197	319	
==>$conf) = @_;

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439536	439622	
==>\"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, NUL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440551	440637	
==>\"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, NUL <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	208	414	
==>ion

=head1 SYNOPSIS

	use Parrot::Docs::Section::PMCs;

=head1 DESCRIPTION

A documentation section describing all the PMCs.

=head2 Class Methods

=over

=cut

package Parrot::Docs::Section::PMCs;

use str <==
2	/Users/nnunley/parrot/config/inter/make.pm	697	834	
==>_;

    my $verbose = $conf->options->get('verbose');

    # undef means we don't have GNU make... default to not having it
    $conf->dat <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2524	2628	
==>nches until late to do
	# otherwise. Also, putting a label everywhere doesn't hurt the final
	# Parrot by <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1102	1206	
==>nches until late to do
	# otherwise. Also, putting a label everywhere doesn't hurt the final
	# Parrot by <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34951	35111	
==>rule->{'pop'}) {
			$pir .= "    type_trans = pop stypes\n";
		}
        if ($rule->{'code'} eq '45') {
            $pir .= <<'PIRCODE';
i = elements P_arg_0
SS_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	243	430	
==>0T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Type::Integer;

use base qw(Jako::Construct::Type);

sub new
{
  my $class = shift;
  my ($token) = <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7876	7980	
==>uld not happen (int)"
i%=54
if i% then print "This is true" else print "Oops (int)"
i=0
if i then print " <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14863	14967	
==>uld not happen (int)"
i%=54
if i% then print "This is true" else print "Oops (int)"
i=0
if i then print " <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4154	4265	
==>_for($target, $pattern, 1);

    goto &Parrot::Test::pir_output_like;
}


package Parrot::Test::PGE;

sub _parro <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	21308	21438	
==>OC;
	$res = exists $r->[1]\[$lk\]
EOC
	}
	else {
	    my $lp = promote($l);
	    my $rp = promote($r);
	    print <<EOC;
	$res = $o <==
2	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	1914	2029	
==>ion_len = $item[1] }

# length is known from the line above
name:               m/[a-zA-Z0-9_-]{$::name_len}/ 

# le <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8421	8552	
==>k eq 'ERROR'
            or  do {
#DBG>				$debug & 0x04
#DBG>			and	print STDERR 
#DBG>				    "go to state $$states[$$stack[-1 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8039	8166	
==>k eq 'ERROR'
            or  do {
#DBG>				$debug & 0x04
#DBG>			and	print STDERR 
#DBG>				    "go to state $$states[$$stack[-1 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	434	593	
==>ompile
{
  my $self     = shift; # Required:
  my $compiler = shift; # Required

#  my $namespace = "FILE"; # TODO: Don't we need to do better than this?

  ret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16114	16400	
==>OT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16886	17172	
==>OT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15777	15936	
==>lf->_generate (_get_arg($node,1));
  die "set-cdr!: Element not pair\n" unless $return =~ /^P/;
  my $value = $self->_generate (_get_arg($node,2));
  $self->_ad <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1990	2107	
==>efore translating
	# every instruction) to see if we need to instate a stack type state
	# that was propogated to this <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1389	1506	
==>efore translating
	# every instruction) to see if we need to instate a stack type state
	# that was propogated to this <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7668	7882	
==>os = $1;
            };

            @sempar =       $$dotpos
                        ?   map { $$_[1] } @$stack[ -$$dotpos .. -1 ]
                        :   ();

            $semval = $code ? &$code( $self <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7320	7527	
==>os = $1;
            };

            @sempar =       $$dotpos
                        ?   map { $$_[1] } @$stack[ -$$dotpos .. -1 ]
                        :   ();

            $semval = $code ? &$code( $self <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	241	360	
==>0T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Type::Number;

use base qw(Jako <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15027	15138	
==>])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
    }
    return;
  } elsif(wantarray) {  # retu <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16210	16321	
==>])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
    }
    return;
  } elsif(wantarray) {  # retu <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3269	3397	
==>, choose($4, unescape($5), $6));

        # make the test print the last line of output
        # XXX This should be "print the l <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4676	4804	
==>, choose($4, unescape($5), $6));

        # make the test print the last line of output
        # XXX This should be "print the l <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	10698	10863	
==>ned $titlename and $titlename =~ m/^[A-Z ]{1,60}$/s; #sanity
  my $titlename_re = quotemeta($titlename);

  my $head1_text_content;
  my $para_text_content;

  while( <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	2374	2541	
==>ns,$count);
    #_dataflow($tree);
    #print Data::Dumper->Dump ([$count, $tree]);
    push @tree, $tree;
  }

  # Implicit begin at toplevel
  if (@tree > 1) {
    $t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527128	527403	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527881	528156	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032515	1032805	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_lex",
                  "FLAGS" => "",
                  "A <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033612	1033902	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_lex",
                  "FLAGS" => "",
                  "A <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1933	2045	
==>R;
}

sub generate_pbc {
    my ($pir, $pbc) = @_;
    my $status = system($PARROT_EXE, '-o', $pbc, $pir);
    if <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22438	22544	
==>ant(1);
  my $temp_1 = $self->_constant(2);
  $self->_add_inst(''           ,'mod'   ,[$temp_0,$temp_0,$tem <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22939	23045	
==>ant(1);
  my $temp_1 = $self->_constant(2);
  $self->_add_inst(''           ,'mod'   ,[$temp_0,$temp_0,$tem <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3375	3466	
==>The older libraries L<Pod::PXML>, L<Pod::XML>, L<Pod::SAX>


=head1 COPYRIGHT AND DISCLAIMER <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3027	3118	
==>The older libraries L<Pod::PXML>, L<Pod::XML>, L<Pod::SAX>


=head1 COPYRIGHT AND DISCLAIMER <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	92	187	
==>mops.pl 19601 2006-05-30T13:32:26.641316Z coke  $

=head1 NAME

examples/mops/mops.c - Calculate <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	88	183	
==>mops.pl 19601 2006-05-30T13:32:26.641316Z coke  $

=head1 NAME

examples/mops/mops.c - Calculate <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	22236	22385	
==>.e. -c)
    return if $^C;

    # Smash args together like print does.
    # Convert undef to 'undef' so its readable.
    my $msg = join '', map { de <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	27958	28185	
==>t("-> $desc ENTER\n"),
                       @ops,
                       $self->dbprint(".. $desc NEXT\n"),
           );
}

################################ Main loop #######################

sub rewrite {
    my ($self, $op, <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3384	3493	
==>e "print the last command". Which is harder.
        $body =~ s/^(\s*)([^\n]+)\s*\Z/$1puts [$2]/m;

        $t <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4791	4900	
==>e "print the last command". Which is harder.
        $body =~ s/^(\s*)([^\n]+)\s*\Z/$1puts [$2]/m;

        $t <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31155	31262	
==>c qw( gen_ret );

=item C<implements($method)>

Always true for vtables.

=cut

sub implements
{
    my ($se <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39775	39882	
==>c qw( gen_ret );

=item C<implements($method)>

Always true for vtables.

=cut

sub implements
{
    my ($se <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	5331	5511	
==>in]doc' :
        m[^editor/]       ? '[devel]' :
        m[^examples/]     ? '[main]doc' :
        m[^include/]      ? '[main]include' :
        (m[^languages/(\w+)/] and $1 ne 'co <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4930	5052	
==>($self, $class);
    bless $self, $class;
    $self->init($class);
    $self;
}

=back

=head2 Instance Methods

=over

=it <==
2	/Users/nnunley/parrot/tools/build/addopstags.pl	505	612	
==>, '<', 'tags';
push @tags, <T>;
close T;

# Spit 'em out sorted
open T, '>', 'tags';
print T sort @tags;
clo <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	2625	2792	
==>b add(@) {
	my $self = shift;
	$self->{data} .= join'', @_;
	$self
}

sub addfile {
  	my ($self,$fh) = @_;
	if (!ref($fh) && ref(\$fh) ne "GLOB") {
	    require Symbol <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16991	17133	
==>ibrary.

=cut

sub lib_load_code() {
    my $self = shift;

    my $classname = $self->{class};
    return dynext_load_code($classname, $classn <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	1018	1138	
==>{
    my $self = shift;
    
    return $self->c_item(shift, 'pairs' => [@_]);
}

=item C<c_item($text, %contents)>

Retu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326048	326291	
==>"TYPE" => "inline",
                  "CODE" => 382,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 149 \"src/ops/dotgnu.ops\" <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	9671	9856	
==>ake_arg {
    #
    # we have to fetch all to temps, so that the call code
    # can operate in sequence
    #
    my ($argtype, $reg_num, $temp_cnt_ref, $temps_ref,
        $extra_pream <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	8341	8456	
==>pmc(st->val);
}

#define GET_NCI_I(n) get_nci_I(interpreter, &st, n)
#define GET_NCI_S(n) get_nci_S(interpreter, &st <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	468	573	
==>is script is used for building
dynamic PMCs.

=cut

use strict;

use File::Copy qw(copy);

# qq[] isn't gu <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	430	535	
==>is script is used for building
dynamic PMCs.

=cut

use strict;

use File::Copy qw(copy);

# qq[] isn't gu <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3026	3176	
==>/bI<ar>baz>>')
    "
Output:
  $VAR1 = 'barbaz';


=head1 SEE ALSO

L<Pod::Simple>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke. <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5097	5242	
==>ift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  ";
        if ( exists $op->{result} and scalar( @{ $op->{r <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6129	6274	
==>ift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  ";
        if ( exists $op->{result} and scalar( @{ $op->{r <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	10	105	
==>rrot/languages/bc/lib/Parrot/Test/Bc.pm 18020 2006-03-26T19:46:16.084129Z bernhard  $

package P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	68702	69104	
==>=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "collectoff",
                  "FLAGS" => "",
                  "ARGDIRS" => [],
                  "TYPE" => "function",
                  "CODE" => 91,
                  "ARGS" => [],
                  "BODY" => "#line 1071 \"src/ops/core.ops\"\n <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17117	17370	
==>>_add_inst ('', 'set',[$return,$pair]);

    $self->_restore($item, $pair);
  }

  return $return;
}

sub _op_length {
  my ($self, $node) = @_;
  my $label = $self->_gensym ();
  my $return = $self->_save_1 ('I');

  _num_arg ($node, 1, 'length');

  my <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	475	580	
==>head1 DESCRIPTION

=head1 TODO

* Tell if there are funcs without docs

* Generate docs from funcs

* Test <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	15933	16103	
==>xit code $exit_code")
                  if $exit_code and not $pass;

            unless($ENV{POSTMORTEM}) {
                unlink $out_f;
            }

            retu <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	18484	18654	
==>xit code $exit_code")
                  if $exit_code and not $pass;

            unless($ENV{POSTMORTEM}) {
                unlink $out_f;
            }

            retu <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10426	10540	
==>t_stack[-1] twips.\n";
        $self->{'rtfindent'} -= pop @indent_stack;
        pop @stack;
      } elsif( $tagna <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467356	467605	
==>" => "inline",
                  "CODE" => 536,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 376 \"src/ops/math.ops\"\n  INTVAL de <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4069	4174	
==>pir .= <<'PIR';
# Increment stack depth.
inc stack_depth

# Get type (so we can find register type).
${PTE <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2485	2590	
==>pir .= <<'PIR';
# Increment stack depth.
inc stack_depth

# Get type (so we can find register type).
${PTE <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	988	1206	
==>=shad
       superscript=super    subscript=sub    strikethrough=strike
       outline=outl         emboss=embo      engrave=impr   
       dotted-underline=uld          dash-underline=uldash
       dot-dash-underline=u <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819443	819591	
==>"
                            ],
                  "BODY" => "#line 79 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n    stack_entry(interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665272	665504	
==>int(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666049	666281	
==>int(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516504	516834	
==>,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 729 \"src/ops/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	7935	8130	
==>);
}

if ($suffix =~ /cgp/) {
    print SOURCE <<END_C;
#ifdef __GNUC__
# ifdef I386
    else if (cur_opcode == (opcode_t *) 1)
    asm ("jmp *4(%ebp)");	/* jump to ret addr, used by JIT */
# endi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	9129	9263	
==>@debugging = ($lastback =>
                      $self->dbprint("failed to match $char at %<rx_pos>\n"),
                      aop('got <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeDumb.pm	705	821	
==>);
}

sub make_transcoder {
  my($e) = $_[1];
  die "WHAT ENCODING!?!?" unless $e;
  my $x;
  return sub {;
    #fore <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeSmart.pm	435	549	
==>);
}

sub make_transcoder {
  my($e) = $_[1];
  die "WHAT ENCODING!?!?" unless $e;
  my $x;
  return sub {
    fore <==
2	/Users/nnunley/parrot/examples/benchmarks/primes2.pl	48	180	
==>i7;

while (1) {
    if (&isprime1($i)) {
	$i7 = $i;
	$i6++;
    }
    $i++;
    if ($i==$max){
	last;
    }
}
printf("N primes calcu <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3234	3370	
==>BUG () { $debug_level }
  use Pod::Simple ();

=head1 SEE ALSO

L<Pod::Simple>

The article "Constants in Perl", in I<The Perl Journal> i <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	777	1052	
==>r die "Can't write '$outfile': $!";
process_cfile();
close ALL;

sub hash_val {
	my $h = Math::BigInt->new('+0');
	my $s = shift;
	for (my $i = 0; $i < length($s); ++$i) {
		$h += $h << 5;
		$h &= 0xffffffff;
		$h += ord substr($s, $i, 1);
		$h &= 0xffffffff;
	}
	return sprin <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	1536	1643	
==>ted automatically from '$infile'
 * by $0.
 *
 * Any changes made here will be lost!
 *
 */

#define CONCAT( <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	3825	3932	
==>ted automatically from '$infile'
 * by $0.
 *
 * Any changes made here will be lost!
 *
 */

#define CONCAT( <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	700	806	
==>lang_f = File::Spec->rel2abs($lang_f);
    $out_f  = File::Spec->rel2abs($out_f);
    Parrot::Test::write_c <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	737	843	
==>lang_f = File::Spec->rel2abs($lang_f);
    $out_f  = File::Spec->rel2abs($out_f);
    Parrot::Test::write_c <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1309	1480	
==>ard edition compiler' warning each time we compile.
        # The logo gets printed to STDERR; hence the redirection.
        my $cc_output = `$cc /? 2>&1` || '';
        $ <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	11929	12079	
==>ion' => 0,
             'rm_f' => 'perl -MExtUtils::Command -e rm_f',
             'rm_rf' => 'perl -MExtUtils::Command -e rm_rf',
             'rpath' <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3163	3265	
==>trict;
use warnings;

use vars qw(@ISA %pmc_types @EXPORT_OK);

@ISA = qw( Exporter );
@EXPORT_OK = qw( <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	107	209	
==>trict;
use warnings;

use vars qw(@ISA %pmc_types @EXPORT_OK);

@ISA = qw( Exporter );
@EXPORT_OK = qw( <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9330	9442	
==>ile_with_relative_path
{
    my $self = shift;
    my $path = shift || return;
    my ($volume, $directories, $na <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719951	720041	
==>nterpreter, \"%.12g\", (double){{\@2}});\n  PIO_putps(interpreter, io, s);\n  if (string_st <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721151	721241	
==>nterpreter, \"%.12g\", (double){{\@2}});\n  PIO_putps(interpreter, io, s);\n  if (string_st <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736984	737307	
==>set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 828,
                  "ARGS" => [
                              "n <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28208	28311	
==>edit($self->{file});
    my $name = uc $self->{class};
    $hout .= <<"EOH";

#ifndef PARROT_PMC_${name} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146797	147156	
==>e_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 179,
                  "ARGS" => [
                              "p",
                              "i" <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	3787	3916	
==>ubmitted smoke has an invalid format!";
    exit;
  }

  $smoke{runcore}   = runcore_from_args($smoke{harness_args});
  $smoke{rev <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5786	5918	
==>efined $self->{triggers}{$key}
        and defined $self->{triggers}{$key}{$trigger};

    my $verbose = defined $self->get('verbose' <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6356	6488	
==>efined $self->{triggers}{$key}
        and defined $self->{triggers}{$key}{$trigger};

    my $verbose = defined $self->get('verbose' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	6792	6971	
==>I suppose it should restore $n to its previous
# value, but I'm not going to bother with that for now. (It'll rarely
# have a valid previous value anyway; I think that'll only come <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133831	133956	
==>e 321 \"src/ops/bit.ops\"\n  string_bitwise_xor(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134612	134737	
==>e 321 \"src/ops/bit.ops\"\n  string_bitwise_xor(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	11321	11440	
==>is_num {
    my($self, $got, $expect, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $ex <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	1883	1982	
==>e [default] " and waits for the user's response. Returns the
response, or the default if the user ju <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	22664	22795	
==>cJ/\n/g;
            my $source_f = per_test('.c', $test_no);
            my $obj_f = per_test($PConfig{o}, $test_no);
            m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23051	23292	
==>table->invoke(interpreter, p, dest);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25490	25731	
==>table->invoke(interpreter, p, dest);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122110	122342	
==>n   */\n  LVALUE_CAST(UINTVAL, {{\@1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123022	123254	
==>n   */\n  LVALUE_CAST(UINTVAL, {{\@1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41506	41636	
==>EFAULT => -111
	},
	{#State 177
		DEFAULT => -108
	},
	{#State 178
		ACTIONS => {
			"-" => 72,
			"<" => 74,
			"%" => 76 <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	14238	14330	
==>case e-acute) to characters (like "e").

=item $Code2USASCII{I<integer>}

This maps from US-A <==
2	/Users/nnunley/parrot/config/init/defaults.pm	2822	3009	
==>an be dynamically loaded.  Flags to tell
        # ld to build a shared library, e.g.  -shared for GNU ld.
        ld_share_flags => $Config{lddlflags},

        # Flags to tell ld to buil <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451208	451626	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 517,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795647	796117	
==>core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 898,
                  "ARGS" => [
                              "p",
                              "kc",
                              "ic"
                            ],
                  "BODY" => "#line 457 \"src/o <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	1835	1929	
==>8APR2005, run the test suite with --gc-debug
    if ( $ENV{TEST_PROG_ARGS} && $ENV{TEST_PROG_AR <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3475	3598	
==>.c", @pmcfiles)) {
            run("$PMC2C --library $group --c " . join(" ",@pmcfiles))
              or die "pmc2c library <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3579	3702	
==>.c", @pmcfiles)) {
            run("$PMC2C --library $group --c " . join(" ",@pmcfiles))
              or die "pmc2c library <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	36365	36625	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clear_eh",
                  "FLA <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	1004	1197	
==>(head[1-6] over back item for begin end pod);
my $pod_start_rx = join '|', @pod_start;
my @imcc_basic_types = qw(int float string);
my $parrot_pmcsh_file = "include/parrot/core_pmcs.h";
my $date <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	1545	1730	
==>rot::Test::Harness;

use strict;
use warnings;

use Carp;
use File::Spec;
use Test::Harness;

sub set_flags
{
    my %options           = @_;
    $ENV{HARNESS_VERBOSE} = 1;
    $ENV{HARN <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35031	35143	
==>expected
				   = $Parse::RecDescent::lastunexpected;
			}
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42141	42253	
==>expected
				   = $Parse::RecDescent::lastunexpected;
			}
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	7518	7652	
==>shift || return;
    
    return File::Spec->catfile($self->path, $name);
}

=item C<directory_with_name($name)>

Returns a directory w <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	4985	5279	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "reserved",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	1335	1539	
==>=cut

my $dist;

sub new
{
    my $self = shift;
    
    return $dist if defined $dist;
    
    my $path = '.';
    
    while ( $self = $self->SUPER::new($path) ) {
        return $dist = $self if $self <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5583	5707	
==>= @_;

    my ( %group_files, %group_libs, %pmc_group, %pmc_libs );
    for my $pmc (@pmcs) {
        our $class;
        req <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5794	5918	
==>= @_;

    my ( %group_files, %group_libs, %pmc_group, %pmc_libs );
    for my $pmc (@pmcs) {
        our $class;
        req <==
2	/Users/nnunley/parrot/config/inter/progs.pm	1463	1593	
==>m.  If you don't understand a question, the
    default will usually work--they've been intuited from your Perl 5
    configuration <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4658	4767	
==>irst
    # argument, given as --destination=DIRECTORY
    shift(@pmcs) =~ /--destination=(.*)/
      or die "c <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4762	4871	
==>irst
    # argument, given as --destination=DIRECTORY
    shift(@pmcs) =~ /--destination=(.*)/
      or die "c <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	991	1223	
==>define CUR_OPCODE ((opcode_t*)cur_opcode + CONTEXT(interpreter->ctx)->pred_offset)

#if 0
static opcode_t* prederef_to_opcode(Interp* interpreter,
                                           void** prederef_addr)
{
    INTVAL offset_i <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2668	2802	
==>R';
strPC = ${PC}
${INS} = concat "LAB"
${INS} = concat strPC
${INS} = concat ": "
PIR

	# Return.
	return $pir;
}

# Pre and post stac <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	32872	32999	
==>\&_op_begin,
  'do'         => \&_op_do,
  'delay'      => \&_op_delay,
  'quasiquote' => \&_op_quasiquote,

#------------------ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	28242	28341	
==>_line'};

  # A recursive algorithm implemented iteratively!  Whee!

  while($treelet = shift @stack <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	31743	31842	
==>_line'};

  # A recursive algorithm implemented iteratively!  Whee!

  while($treelet = shift @stack <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	18911	19161	
==>.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.

sub _wrap_up {
  my($self, @stack) = @_;
  my $nixx  = $self->{'nix_X_codes'};
  my $merge = $self->{'merge_text' };
  return unless $nixx or $merge;

  DEBUG > 2 and print "\nStar <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	1290	1408	
==>NS}};
  }
}


#
# token_count()
#
# Returns the number of tokens.
#

sub count
{
  my $self = shift;

  return scalar(@ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	13737	13856	
==>{..."},
		         pos $$textref;
		pos $$textref = $startpos;
		return;
	}
	my $closing = $1;
	   $closing =~ tr/([<{/) <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	1362	1459	
==>ider limiting its scope by making it file
static or function static, but see L</"Data is not an AP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135224	135530	
==>inline",
                  "CODE" => 166,
                  "ARGS" => [
                              "s",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 326 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_xor(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	331559	331759	
==>\n  PIO_close(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2379	2496	
==>file '%s'.",
      $self->name, $sym->line, $sym->file);
  }

  #
  # Now that we've decided to actually declare the c <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2126	2243	
==>file '%s'.",
      $self->name, $sym->line, $sym->file);
  }

  #
  # Now that we've decided to actually declare the c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349115	349208	
==>* const path = string_to_cstring(interpreter, {{\@2}});\n\n  {{\@1}} = PIO_open(interpreter, N <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350117	350210	
==>* const path = string_to_cstring(interpreter, {{\@2}});\n\n  {{\@1}} = PIO_open(interpreter, N <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	250523	251114	
==>"inline",
                  "CODE" => 291,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 698 \"src/ops/cmp.ops\"\n  {{\@1}} = ! {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "not",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46998	47105	
==>,   {{\@1}}); }\n  else         { Interp_debug_CLEAR(interpreter, PARROT_ALL_DEBUG_FLAGS); }\n  {{=0,+=2}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47781	47888	
==>,   {{\@1}}); }\n  else         { Interp_debug_CLEAR(interpreter, PARROT_ALL_DEBUG_FLAGS); }\n  {{=0,+=2}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	13763	13933	
==>{RESOURCES_URL});
        
    return 1;
}

=item C<html_for_file($file)>

Returns the HTML for the specified file.

=cut

sub html_for_file
{
    my $self = shift;
    my <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	14112	14216	
==>e of initializing itself based on its peer block's info
      # (available by passing $block in as an arg <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787950	788044	
==>/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed_int(interpreter, {{\@2}}, {{\@3 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788860	788954	
==>/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed_int(interpreter, {{\@2}}, {{\@3 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	619	772	
==>ld-list
    unshift @{ $_[0]{'_currpos'} },    $x; # prefix to stack
  } else {
    DEBUG and print " And oo, it gets to be root!\n";
    $_[0]{'_currpos' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	67801	67980	
==>interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "swee <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	68241	68420	
==>interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "swee <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705261	705754	
==>",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 791,
                  "ARGS" => [
                              "p",
                              "ic",
                              "i",
                              "ic <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	11438	11595	
==>er the command's run.

=cut

sub capture_output
{
    my $command = join " ", @_;

    # disable STDERR
    open OLDERR, ">&STDERR";
    open STDERR, ">test.e <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	600	704	
==>Documentation', 'docs.html', '',
		$self->new_group('General Documentation', '',
			$self->new_item('', ' <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8053	8207	
==>d do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Accept.\n";

				return($semval);
			};

                $$check eq 'ABORT'
            and <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7692	7837	
==>d do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Accept.\n";

				return($semval);
			};

                $$check eq 'ABORT'
            and <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	466485	466824	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 535,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20388	20478	
==>rite to me.

=head1 SEE ALSO

L<Pod::Simple>, L<RTF::Writer>, L<RTF::Cookbook>, L<RTF::Docu <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	799	898	
==>ur $LD = qq[c++];
our $LDFLAGS = qq[-L/opt/local/lib -L/usr/local/lib -flat_namespace  ];
our $LD_LO <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	803	902	
==>ur $LD = qq[c++];
our $LDFLAGS = qq[-L/opt/local/lib -L/usr/local/lib -flat_namespace  ];
our $LD_LO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353596	353696	
==>line 200 \"src/ops/io.ops\"\n  STRING * const s = {{\@1}};\n  if (s && string_length(interpreter, s)) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354341	354441	
==>line 200 \"src/ops/io.ops\"\n  STRING * const s = {{\@1}};\n  if (s && string_length(interpreter, s)) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359290	359390	
==>line 250 \"src/ops/io.ops\"\n  STRING * const s = {{\@1}};\n  if (s && string_length(interpreter, s)) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360038	360138	
==>line 250 \"src/ops/io.ops\"\n  STRING * const s = {{\@1}};\n  if (s && string_length(interpreter, s)) <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	11607	11837	
==>em.className = "details";
	expander.innerHTML = "&raquo;";
      }
    }
  //]]></script>
</head>

<body>
  <h1>Parrot Smoke Reports</h1>

  <p>
    Here's a list of recently submitted <a
    href="http://www.parrotcode.org/">Parro <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	1691	2002	
==>ext unless defined $_;

        if (/DO NOT EDIT/) {
            print "Skipping $file (automatically generated)\n";
            next FILE;
        }
    }

    check_source($file, \@lines);
}

check_manifest();

exit 0;

###############################################################################

sub check <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17812	17951	
==>"NEXT_$label"]);
  # XXX Use exceptions here
  $self->_add_inst ("ERR_$label", 'print',['"Object is not a list\n"']);

  $self->_add_inst (" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414613	415083	
==>=> [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 478,
                  "ARGS" => [
                              "i",
                              "p",
                              "i",
                              "ic", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	817592	817771	
==>0 \"src/ops/set.ops\"\n  Parrot_clear_p(interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	64435	64534	
==>g somewhere in this code, if
only because parts of it give the impression of understanding a great d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670438	670668	
==>DE" => 750,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 415 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->push_str <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846362	846688	
==>"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 960,
                  "ARGS" => [
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 56 \"src/ops/string.ops\"\n  STRING *s;\n  s = string_c <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1378	1644	
==>labelled with _MASTER, is the rule that your target string
will be matched against. The 'outer rule' if you will.

=cut

sub p6rule_is {
    my ($target, $pattern) = (shift, shift);

    unshift @_ => 'matched';
    unshift @_ => ( ref $pattern
        ? Parrot::Test <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1231	1351	
==>m

        # Figure out how many levels we have to go back to get to parrot.
        # And, conversely, how many levels w <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	5956	6199	
==>thod.

=item C<OtherClass.SUPER(a,b,c)>

Calls the overridden implementation of the current method in
C<OtherClass>.

=item C<SUPER(a,b,c)>

Calls the overridden implementation of the current method in the nearest
superclass, using the static t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305650	305888	
==>NULL({{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307219	307457	
==>NULL({{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88877	89269	
==>base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 110,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 38 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327074	327174	
==>nu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, (INTVAL){{\@2}});\n  {{+=3}};\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327876	327976	
==>nu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, (INTVAL){{\@2}});\n  {{+=3}};\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717996	718101	
==>eter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_fprintf(interpreter, io, INTVAL_FMT, (INTVAL){ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718928	719033	
==>eter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_fprintf(interpreter, io, INTVAL_FMT, (INTVAL){ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669115	669338	
==>e->push_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669887	670110	
==>e->push_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	10919	11154	
==>$work)=@_;

	return unless @$work;
	my @args=();

	while($$work[-1]->[0] ne "STARTARG") {
		my $item= pop @$work;
		my $a1=pushthing($code, $optype, @$item);
		push @args, [ $a1, @$item ];
	}
	#foreach(@args) {
		#push @$code, qq{\t.arg <==
2	/Users/nnunley/parrot/languages/converter.pl	2192	2300	
==>r);

my $file = $ARGV[0];
my @lines;
my @rules;

open FILE,$file or die "Couldn't open '$file': $!";
@lines = <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	12633	12727	
==>r/[]()<>{}\0-\377/[[((<<{{/ds }
	for ($rdel_inner, $rdel_outer) { tr/[]()<>{}\0-\377/]]))>>}}/d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614235	614379	
==>UMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "classoffset",
                  "FLAGS" => ":object_classes",
                  "ARG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615385	615529	
==>UMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "classoffset",
                  "FLAGS" => ":object_classes",
                  "ARG <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19531	19833	
==>rfail
#               R or rfail
#               $matchcount++
#         next:
#

# R<min,max>? ->  $matchcount = 0
#                 goto check
#          rfail: if $matchcount == 0 goto lastback
#                 $matchcount--
#                 goto R.back
#           back: if $matchcount >= max goto <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	4816	4958	
==>ccversion;
            next unless $opt; # Ignore blank lines

            if ($opt =~ /-mno-accumulate-outgoing-args/) {
                use C <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	2474	2585	
==>'BARE');
	goto BARE if (! iskeyword($syms[CURR]));

	# The "unimplementeds"
	# Eat tokens until we get to the ne <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18962	19199	
==>vtable->get_bool(interpreter, {{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22130	22367	
==>vtable->get_bool(interpreter, {{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	601	722	
==>my $done = 0;
my $total = 0;
map { $done += $_->{'done'}; $total += $_->{'total'}; } @results;
my $percent = int(($done <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	437	558	
==>my $done = 0;
my $total = 0;
map { $done += $_->{'done'}; $total += $_->{'total'}; } @results;
my $percent = int(($done <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1282	1380	
==>n this class is likely to be link-section specific --
# but it just so happens that link-sections a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978378	978699	
==>,
                  "ARGS" => [
                              "i",
                              "ic",
                              "s",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_s <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	7012	7225	
==>e',
        commentType                    => '#',
        replace_slashes                => 1,
        conditioned_lines              => 1
    );
    genfile(
        'languages/tcl/config/root.in' => 'languages/t <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	7236	7429	
==>e',
        commentType                    => '#',
        replace_slashes                => 1,
        conditioned_lines              => 1
    );
    genfile(
        'languages/tcl/config/exam <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	36765	36878	
==>Simple, Test::More, Test::Harness

=head1 AUTHORS

Original code by chromatic, maintained by Michael G Schwern
E<l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48512	48630	
==>src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_BOUNDS_FLAG); }\n  else         { Inter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49302	49420	
==>src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_BOUNDS_FLAG); }\n  else         { Inter <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	12142	12367	
==>{
                    meth        => $methodname,
                    body        => $methodblock,
                    line        => $lineno,
                    type        => $type,
                    parameters  => $param <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	11654	11859	
==>{
                meth        => $methodname,
                body        => $methodblock,
                line        => $lineno,
                type        => $type,
                parameters  => $param <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2900	3036	
==>this class.
Pod::Simple::XMLOutStream's output is space-padded in a way
that's better for sending to an XML processor (that is, it has
no <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2648	2759	
==>e ne $actual_arg_type->name) {
      my $temp = $compiler->temp_reg($formal_arg_type);
      my $value = $args[$ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2348	2459	
==>e ne $actual_arg_type->name) {
      my $temp = $compiler->temp_reg($formal_arg_type);
      my $value = $args[$ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	8684	8811	
==>some limitations on what a target name can be?
    delete $this->{'accept_targets'}{$t};
    DEBUG > 2 and print "OK, won't acce <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	688	796	
==>d check for proper nesting

my $block_begin = qr{ ( ^ \.sub | ^push_eh) }smx;

my $block_end = qr{
  (
    ^\ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	5897	6000	
==>s($self->{"expected"});
	my @expected = ();

	my $prod;
	foreach $prod ( @{$self->{"prods"}} )
	{
		my $ <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	4747	4892	
==>ift;

    if (@_)
    {
        $self->{FLAGS} = shift;
    }

    return $self->{FLAGS};
}

=item C<arg_dir($index)>

Returns the direction of th <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	3287	3433	
==>ck(-1);
}


#
# push_block()
#
# Push a block on the top of the block stack.
#

sub push_block
{
  my $self = shift;

  push @{$self->{BLOCKS}}, sh <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	1238	1332	
==>0["_message"] = "System.NotImplementedException"
$P1 = new "System.NotImplementedException"
$P0 <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	9941	10135	
==>e ($$c =~ s/^\s*(\w+)//s) {
        my $flag = $1;
        if ($has_value{$flag}) {
            $$c =~ s/^\s+(\w+)//s
                or die "Parser error: no value for '$flag'";

            $fl <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	1931	2153	
==>rce_file_with_name($name));
        }
    }
    
    if ( exists $contents{'headers'} )
    {
        foreach my $name (@{$contents{'headers'}})
        {
            push @contents,
                $dist->relative_path($di <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10245	10363	
==>**No state left on stack: aborting.\n";

			return(undef);
		};

		#shift the error token

#DBG>			$debug & 0x10 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9785	9896	
==>**No state left on stack: aborting.\n";

			return(undef);
		};

		#shift the error token

#DBG>			$debug & 0x10 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	390	496	
==>onstruct::Block::Conditional);

#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $left, $op, $righ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	402	508	
==>onstruct::Block::Conditional);

#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $left, $op, $righ <==
2	/Users/nnunley/parrot/config/auto/readline.pm	1030	1170	
==>dline.lib');
        }
    } else {
        $conf->data->add(' ', libs => '-lreadline');
    }

    my $osname = $Config{osname};

    # On O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796550	796994	
==>se_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 899,
                  "ARGS" => [
                              "p",
                              "k",
                              "n"
                            ],
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1459	1553	
==><#define> macros required.

=item C<opsarraytype()>

Returns the type for the array of opcodes. <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	43336	43509	
==>on't need to do --$i, as the 'E<' we just added isn't interesting.
        next;
      }

      DEBUG > 1 and print "Ogling E<$content>\n";

      $charnum  = Pod::Escapes::e <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	462	604	
==>ine,
    KIND => $kind, # op, 
    TYPE => $type,
    TEXT => $text
  }, $class;
}

sub new_bof
{
  my $class = shift;
  my ($file, $line) = @_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15063	15193	
==>1):(ord($1)-65536)).'?'/eg;
    }
    return;
  } elsif(wantarray) {  # return an array
    return map {; ($x = $_) =~
      s/([F\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16246	16376	
==>1):(ord($1)-65536)).'?'/eg;
    }
    return;
  } elsif(wantarray) {  # return an array
    return map {; ($x = $_) =~
      s/([F\ <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	8227	8432	
==>in",
      summary       => [{
        total       => $11,
        ok          => $12,
        failed      => $13,
        todo        => $14,
        skipped     => $15,
        unexpect    => $16,
      } <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22472	22586	
==>stant(2);
  $self->_add_inst(''           ,'mod'   ,[$temp_0,$temp_0,$temp_1]);
  $self->_add_inst(''           ,'e <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22973	23087	
==>stant(2);
  $self->_add_inst(''           ,'mod'   ,[$temp_0,$temp_0,$temp_1]);
  $self->_add_inst(''           ,'e <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	7993	8176	
==>OTB;
@codef	noop
	_screen_color($resultf)	# Broke!
FNOTB
	}
}
sub parse_cls {
	if (! $type[NEXT] =~ /STMT|COMM|COMP/) {  # No arg version
		@e=EXPRESSION();
	}
	push @{$code{$seg}->{co <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2312	2412	
==>n print "Ok" else print "Wrong"
if 5>4 then print "Ok" else print "Wrong"
if 5>5 then print "Wrong" e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455942	456364	
==>S" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 523,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#l <==
2	/Users/nnunley/parrot/lib/File/Which.pm	549	659	
==>my @path_ext = ('');
if ($Is_DOSish) {
    if ($ENV{PATHEXT} and $Is_DOSish) {    # WinNT. PATHEXT might be set <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598575	599027	
==>t_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 678,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 351 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19855	19953	
==>ting this appropriately is useful if you want to use the RTF
to spellcheck, and/or if you want it t <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	20483	20574	
==>&& $code[$code_l+1]->[2] eq 'JUMP_IF_FALSE') {
	$code_l++;
	print "\t\t\t# UNARY_NOT\n\t\t\t <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18606	18808	
==>r, $fct, $args ) = @_;
    my $result;
    my @opcodes = ();
    my @params  = ();
    my @returns = ();
    for my $arg ( @{$args} ) {
        if ( scalar @{ $arg->[1] } ) {
            push @opc <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15307	15427	
==>d($1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # return a single scalar
    ($x = ((@_ == 1) ? $_[0] : joi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16488	16608	
==>d($1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # return a single scalar
    ($x = ((@_ == 1) ? $_[0] : joi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	1195	1333	
==>hift; # Optional: Jako::Construct::Block
  my $kind   = shift; # Required: string (TODO: domain?)
  my $type   = shift; # Optional: TODO: t <==
2	/Users/nnunley/parrot/config/auto/jit.pm	2441	2531	
==>(-e "$jitbase/$cpuarch/$jitarchname.s") {
        copy_if_diff("$jitbase/$cpuarch/$jitarchn <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2623	2746	
==>);

  return $self;
}

# block handled by superclass?

sub kind  { return shift->{KIND};     }
sub type  { return shift->{TY <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2740	2857	
==>);

  return $self;
}

# block handled by superclass?

sub kind { return shift->{KIND}; }
sub type { return shift->{TY <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1300	1405	
==>nt($left);
    my $pmc_type = $type->imcc_pmc;
    my $temp_pmc = $compiler->temp_pmc();

    $compiler->e <==
2	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	486	676	
==>figure {
        my $self = shift;
        my %attr = @_;
        while ( my ( $key, $value ) = each(%attr) ) {
            if ( defined $value ) {
                $self->{$key} = $value <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3533	3734	
==>pplies here.

=cut

sub pgeglob_isnt {
    my ($target, $pattern) = (shift, shift);

    unshift @_ => 'failed';
    unshift @_ => Parrot::Test::PGE::_generate_glob_for($target, $pattern);

    goto &Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349220	349324	
==>\"+<\");\n  /* string_cstring_free(path); */\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350222	350326	
==>\"+<\");\n  /* string_cstring_free(path); */\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_c <==
2	/Users/nnunley/parrot/languages/m4/tools/scrutinize.pl	167	338	
==>=head1 TODO

Find a better name. 'perlcritic' is already taken.

Look at the test scripts as well.

=head1 Author

Bernhard Schmalhofer - <Bernhard.Schmalhofer@gmx.de>

=cu <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	1497	1603	
==>ILE   !!!!!!!
 *
 * This file is generated automatically from '$infile'
 * by $0.
 *
 * Any changes made he <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	3786	3892	
==>ILE   !!!!!!!
 *
 * This file is generated automatically from '$infile'
 * by $0.
 *
 * Any changes made he <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	15585	15721	
==>orted_to() || '';
            # die Dumper( $code, $expected, $desc, \%extra, $extra{todo}, $call_pkg ) if ( keys %extra );
            l <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	18136	18272	
==>orted_to() || '';
            # die Dumper( $code, $expected, $desc, \%extra, $extra{todo}, $call_pkg ) if ( keys %extra );
            l <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3906	4016	
==>'");
        $prm=unpack('@2A*',$prm);
		$$outhash{$prm}=$value;
	}
	for (@$mandatory) {
			exists($$outha <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3709	3814	
==>'");
        $prm=unpack('@2A*',$prm);
		$$outhash{$prm}=$value;
	}
	for (@$mandatory) {
			exists($$outha <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	586	715	
==>ting.

=cut

sub new {
    my $test_module = $ENV{'PARROT_BC_TEST_MODULE'} || 'Parrot::Test::Bc::Antlr2';
                
    ret <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	3586	3753	
==>ass;              /* for PMCs: a PMC of that type
                                for objects: the class PMC */
    PMC *mro;                /* array PMC of [class, par <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4389	4559	
==>@_;
    my $comment = Regex::Ops::Tree::isplain($code) ? " # match '".chr($code)."'" : "";
    my @ops =
      (
       "ord <rx_tmp>, <rx_input>, <rx_pos> # tmp = INPUT[p <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8359	8490	
==>.say("# Looks like you planned $Test::num_of_tests_planned tests, but ran $Test::num_of_tests_run");
    }

    if ($Test::num_of_te <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54883	54985	
==>r($1,$self)
				      or  _no_rule($code,$line);

				$item = new Parse::RecDescent::UncondReject($look <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	26223	26409	
==>f($paras->[0][0] eq '=back') {
        # Ignore empty lists.  TODO: make this an option?
        shift @$paras;
        next;
        
      } elsif($paras->[0][0] eq '~end') {
        $s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	40196	40316	
==>ll any number of terminal newlines
          $self->_verbatim_format($para);
        } else {
          push @$para, join <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	4389	4491	
==>$syms[CURR] ne "then");
		$singleif=1 if ($type[NEXT] ne "STMT" and $type[NEXT] ne "COMM");
		#print "S <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	95	232	
==>nslator from a rules file and a
# stack to register mapping algorithm.

use strict;
use Getopt::Long;
use lib 'build';

# This is a list o <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	828	944	
==>he
format is:

    op opname (args) :class,flags {
        ... body of function ...
    }

There may be more than one <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	2765	2986	
==>so it's not
   like it's an onerous requirement.

*/

#include "parrot/parrot.h"
#include "parrot/extend.h"

EOF

print OUT $funcs;

print OUT <<'EOF';
/*

=back

=head1 SEE ALSO

See F<include/parrot/extend.h> and F<docs/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48640	48828	
==>LEAR(interpreter, PARROT_BOUNDS_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49430	49618	
==>LEAR(interpreter, PARROT_BOUNDS_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	38740	38840	
==>ndef, undef, {ignore => ['<[^>]*/>']} );

(also see L<"gen_delimited_pat"> below).


=item C<fail =E< <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	1735	1991	
==>ourceline";
				}
				$user=1
			}
		}
		unless ($stype) {
			$stype=typeof($var);
		}
		$arrays{$var}=1 if ($array);
		#print "Flagging (assumed) $var as array\n";
		if ($array) { 
			$stype="ARRAY"; 
		} else {
			$var=~s/\W$//g;
		}
		#print "Type: $styp <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	13196	13346	
==>321;   # magic line number

sub _gen_errata {
  my $self = $_[0];
  # Return 0 or more fake-o paragraphs explaining the accumulated
  #  errors on this <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31481	31691	
==>odes1, @{ $nil->[1] };

    for ( @{$vars} ) {
        push @opcodes1, @{ $_->[1] };
    }
    my $expr = shift @{$exprs};
    my $iter = new_tmp( $parser, 'pmc' );
    push @opcodes1, new LocalDir( $pars <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563853	563992	
==>"
                            ],
                  "BODY" => "#line 183 \"src/ops/object.ops\"\n  VTABLE_add_method(interpreter, {{\@1}}, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564751	564890	
==>"
                            ],
                  "BODY" => "#line 183 \"src/ops/object.ops\"\n  VTABLE_add_method(interpreter, {{\@1}}, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	7902	8025	
==>ef($trans) eq 'Parrot::OpTrans::CGP' ||
	  ref($trans) eq 'Parrot::OpTrans::CSwitch')) {
        return qq{PANIC("How did yo <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	19296	19431	
==>m/\G\s*/gc;
	$ld1pos = pos($$textref);
	$str1pos = $ld1pos+1;

	unless ($$textref =~ m/\G(\S)/gc)	# SHOULD USE LOOKAHEAD
	{
		_failmsg " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1092862	1093130	
==>->get_iter(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	31358	31507	
==>the
pattern C<'\s*'> - optional whitespace - is used. If the delimiter set
is also not specified, the set C</["'`]/> is used. If the text to be proces <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	427	562	
==>return bless {
    TOKEN    => $token,
    CODE     => 'P',
    NAME     => 'pmc',
    IMCC     => 'pmc',
    IMCC_PMC => 'PMC'
  }, $cl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8876	8967	
==>entry(interpreter,\n\t    enum_fixup_label, label);\n    if (!fe)\n\tinternal_exception(1, \ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9992	10083	
==>entry(interpreter,\n\t    enum_fixup_label, label);\n    if (!fe)\n\tinternal_exception(1, \ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	574	743	
==>ess defined $args;

  confess("Undefined identifier block.")
    unless defined $block;

  confess "Block (" . ref($block) . ") is not!"  unless UNIVERSAL::isa($block, qw <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	6824	6967	
==>8743,
 'or'       , 8744,
 'cap'      , 8745,
 'cup'      , 8746,
 'int'      , 8747,
 'there4'   , 8756,
 'sim'      , 8764,
 'cong'     , 8773 <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	12742	12849	
==>TYPE'} = 'loadtype';
    $mv->{'RETTYPE'} = 'rettype';
    $mv->{'LABELNUM'} = 'label_num';
    $mv->{'EHAND <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	17307	17478	
==>e('+', $cmt);
}
sub INPLACE_SUBTRACT
{
    my ($n, $c, $cmt) = @_;
    inplace('-', $cmt);
}
sub JUMP_FORWARD()
{
    my ($n, $c, $cmt) = @_;
    my $targ = "pc_xxx";
    i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627823	628196	
==>"",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 704,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	652662	652842	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RESTART",
                  "NAME" => "find_method",
                  "FLAGS" => "", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653822	654002	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RESTART",
                  "NAME" => "find_method",
                  "FLAGS" => "", <==
2	/Users/nnunley/parrot/lib/Test/More.pm	20792	20955	
==>abel C<SKIP>, or Test::More can't work its magic.

You don't skip tests which are failing because there's a bug in your
program, or for which you don't yet have cod <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2908	3024	
==>de = pop_addr;goto *ops_addr[*(pop_addr)]";
}

my %arg_maps = (
    'op' => "cur_opcode[%ld]",

    'i'  => "IREG(%ld <==
2	/Users/nnunley/parrot/config/init/hints/freebsd.pm	975	1104	
==>HARE_EXT).$(SOVERSION)',
        libparrot_shared_alias  => 'libparrot$(SHARE_EXT)',
        libparrot_soname        => '-Wl,-sona <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	1813	1942	
==>HARE_EXT).$(SOVERSION)',
        libparrot_shared_alias  => 'libparrot$(SHARE_EXT)',
        libparrot_soname        => '-Wl,-sona <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	11980	12098	
==>n/, <<'END');
$rx_match{'!POS'} = $rx_pos;
$rx_match{'!RESULT'} = undef;
$rx_match{'0'}->[1] = undef;
$rx_match{'!STACK <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15371	15509	
==>y=arrfunc(g())

' For loops, by two and backwards
for i = 0 to 10 step 2
	print i,
next i
print
for i = 10 to 3 step -1
	print i
next i
pri <==
2	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1203	1324	
==>->is_success) {
    if($resp->content =~ /^ok/) {
      debug "success!\n";
      exit 0;
    } else {
      debug "error: <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30284	30421	
==>self->whine(
              $curr_open->[-1][1]{'start_line'},
              "You can't have =items (as at line "
              . $para->[1 <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	3979	4096	
==>ast FINDENTERN;
	}
    }
    die "Could not locate enternative op!\n" unless defined $enternative;

    # Copy origina <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13047	13150	
==>tried. Since you almost certainly wanted
					  '<error?> <reject>' Parse::RecDescent
					  supplied it <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	4645	4871	
==>,
       d => "N",
       b => "S",
       t => "S",
       P => "P",
       O => "P",
       S => "S",
       I => "I",
       N => "N",
       B => "S",
       v => "v",
       J => "",
     );

my $temp_cnt = 0;
my @put_poin <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7308	7465	
==>token;
        next unless defined $next;
        unless( $next->type eq 'text' ) {
          $self->unget_token($next);
          next;
        }
        DEB <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9553	9710	
==>token;
        next unless defined $next;
        unless( $next->type eq 'text' ) {
          $self->unget_token($next);
          next;
        }
        DEB <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tests.pm	3	161	
==>opyright (C) 2004, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Docs/Section/Tests.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Doc <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	1807	2000	
==>inted along with the "ok/not
ok" to make it easier to find your test when if fails (just search for
the name).  It also makes it easier for the next guy to understand
what your test is for.  It' <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	8138	8850	
==>gs) = @_;
    
    my $usage = create_usage(@args);
    my $code  = "bad_args: \n"
              . ".throw('wrong # args: should be \"$cmd$usage\"') \n";
    
    return $code;
}

sub create_usage {
    my @args = @_;

    my @results;

    foreach my $arg (@args) {
        my $usage = $arg->{name};
        
        if ( $arg->{option} ) {
            $usage = "-$usage";
            if ( defined $arg->{type} ) {
                $usage = "$usage $arg->{type}";
            }
        }
        
        if ($arg->{repeating}) {
            if ($arg->{optional}) {
                $usage = "?$usage $usage ...?";
            } else {
                $usage = "$usage ?$usage ...?";
            }
        } else { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841384	841621	
==>=> "inline",
                  "CODE" => 954,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 40 \"src/ops/string.ops\"\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034687	1035004	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_lex",
                  "FLAGS" => "",
                  "ARGDIR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035850	1036167	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_lex",
                  "FLAGS" => "",
                  "ARGDIR <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	652	764	
==>n => 24,
	Exception_Handler => 25,
	Coroutine => 26,
	Eval => 27,
	NCI => 28,
	Float => 29,
	Integer => 30,
	BigI <==
2	/Users/nnunley/parrot/config/auto/signal.pm	205	304	
==>some signal stuff.

=cut

package auto::signal;

use strict;
use vars qw($description @args);

use b <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2749	2864	
==>e = $args[$i]->compile($compiler);
      $compiler->emit("  $temp = $value");
      $args[$i] = $temp;
    }
    els <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2449	2564	
==>e = $args[$i]->compile($compiler);
      $compiler->emit("  $temp = $value");
      $args[$i] = $temp;
    }
    els <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	5431	5585	
==>ource_scalar_ref'} }) || 0),
        " characters left to parse.\n";

      DEBUG > 3 and print " Fetching a line from source-string...\n";
      if( ${ $s <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	12429	12720	
==>$code_f !~ /\.pbc$/) {
                write_code_to_file($code, $code_f);
            }

            my $args = $ENV{TEST_PROG_ARGS} || '';
            my $run_exec = 0;
            if ( $args =~ s/--run-exec// ) {
                $run_exec = 1;
                my $pbc_f  = per_test('.pbc', <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	12000	12129	
==>ocaleconv  locale.h
localtime   time.h
log         math.h
log10       math.h
log10f      math.h
log10l      math.h
log1p       mat <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7716	7842	
==>= "&STDOUT";
    }

    local *OLDOUT if $out;
    local *OLDERR if $err;

    # Save the old filehandles; we must not let them <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	7665	7791	
==>= "&STDOUT";
    }

    local *OLDOUT if $out;
    local *OLDERR if $err;

    # Save the old filehandles; we must not let them <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465640	465901	
==>=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dec",
                  "FLAGS" => ":base <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	466261	466522	
==>=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dec",
                  "FLAGS" => ":base <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	2344	2460	
==>i powder, and cook, stirring occasionally, for
5 minutes.

Add the salt and chick peas and cook, stirring, until heat <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2234	2395	
==>t {
    my $result := eval $code;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was fatal: $!", :$depends);
    }
    else {
        #di <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2629	2749	
==>t {
    my $result := eval $code;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was fatal: $!", <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	33178	33286	
==>or a (partial) solution to this problem.


=head2 C<extract_bracketed>

Like C<"extract_delimited">, the C<ex <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118569	118728	
==>"ic"
                            ],
                  "BODY" => "#line 226 \"src/ops/bit.ops\"\n  {{\@1}} >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	12023	12155	
==>\lang1024\noproof\sbasedon0 pod-codelbock-plain;}
{\*\cs26 \additive \f1\lang1024\noproof\sbasedon25 pod-codelbock-ital;}
{\*\cs27 \a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441569	441657	
==>c/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442584	442672	
==>c/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\ <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	1921	2061	
==>tcl.pbc');
    if (defined($ENV{PARROT_TCLSH})) {
      $executable = $ENV{PARROT_TCLSH};
    }
    $cmd = "$executable $lang_f";

    $exit_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15963	16071	
==>hen character (which
  #  looks just like a normal dash character).
  
  my $x; # scratch
  if(!defined wanta <==
2	/Users/nnunley/parrot/config/gen/icu.pm	3733	3829	
==>port
   --icu-config=(file)  Location of icu-config
   --icuheaders=(path)  Location of ICU heade <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3328	3487	
==>es;

    $name =~ s/^.*:://; # Delete namespaces from ops

    $compiler->emit("  $name ", join(", ", $dest, @args));
  }

  #
  # For regular (user-defined) an <==
2	/Users/nnunley/parrot/config/init/defaults.pm	5413	5516	
==>c: Command to emulate GNU make's C<-C directory> option:  chdir
        # to C<directory> before executi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10076	10294	
==>nd = $self->find_symbol($name);

  return $found ? $found->kind : undef;
}


###############################################################################

=head2 BLOCK->content()

Return the content list for the Bloc <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	3112	3256	
==>Run Ops and Methods.', 
                'pairs' => ['interpreter'], 
                'sources' => [
                    'inter_cb', 'inter_create <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	30959	31112	
==>he raw original L<...> content, before text is split on "|", "/", etc,
# and before E<...> codes are expanded.


# For L<...> codes without a "name|" part <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	11669	11766	
==>essor's argument, if any, is assigned to the element.

If the element type is C<'$'>, the value of <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	5754	5926	
==>si -pedantic",
            gccversion => undef
        );

        return $self;
    }

    $conf->data->set(
        ccwarn              => "$warns $ccwarn",
        gccver <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	7772	7883	
==>>src.n);
    Parrot_fetch_arg_nci(interpreter, st);

    return UVal_num(st->val);
}

static STRING*
get_nci_S(I <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561888	561987	
==>}, {{\@3}});\n  if (!{{\@1}}) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Me <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562972	563071	
==>}, {{\@3}});\n  if (!{{\@1}}) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Me <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	14453	14577	
==>trtoul     stdlib.h
strtoull    stdlib.h
strxfrm     string.h
system      stdlib.h
tan         math.h
tanf        math.h
tanh <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85016	85376	
==>E" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 106,
                  "ARGS" => [
                              "p",
                              "s" <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13063	13271	
==>SELF            # Macro SELF
      \.(\w+)           # other_method
      \(\s*(.*?)\)      # capture argument list
     /"Parrot_${1}_$2(" . full_arguments($3) . ')'/xeg;

    # Rewrite SELF.other_method(args <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	6322	6417	
==>([^{]*?)}}/ $trans->restart_offset($1)  . "; {{=0}}"; /me;
    s/{{=0,-=([^{]*?)}}/  $trans->res <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	37101	37200	
==>ring to be processed (C<$_> if the string is omitted or C<undef>)

=item 2.

A string specifying a p <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	11602	11815	
==>) $R = $X->vtable->{vtable}(interp, $Y, $Z)
        elsif ($opbody =~ /
        ^(?:.*\.ops")\s+
        {{\@(\d)}}\s*=\s*
        {{\@(\d)}}->vtable->
        (\w+)
        \(interpreter,
        \s*
        {{\@( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34747	34916	
==>block assimilation of the next paragraph
            delete $para->[1]{'number'};
             # Only a PROPER item-number element is allowed
             #  to have a nu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712316	712414	
==>\"\n  PMC * const io = PIO_STDOUT(interpreter);\n  STRING *s;\n  if (PIO_softspace(interpreter, io, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713423	713521	
==>\"\n  PMC * const io = PIO_STDOUT(interpreter);\n  STRING *s;\n  if (PIO_softspace(interpreter, io, <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5262	5417	
==>$return);
            next;
          }
        }
      }
      my $item = $self->_save_1 ('P');

      __quoted ($self, $_, $item, $special);

      my $pa <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	610	720	
==>{
    $prefix = $self->prefix;
  }
  else {
    $prefix = $self->peer ? $peer->prefix : $compiler->block_label( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	590	700	
==>{
    $prefix = $self->prefix;
  }
  else {
    $prefix = $self->peer ? $peer->prefix : $compiler->block_label( <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	4554	4702	
==>ing="'" />
      </context>

END

print <<END;
      <context name="string_interp" attribute="String Interp" lineEndContext="#pop">
          <HlCStr <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2310	2427	
==>eclarations}}) {
				if (exists $main::common{$var}) {
					push(@saves, $var);
				}
			}
			if (@saves) {
				$edit. <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2719	2836	
==>eclarations}}) {
				if (exists $main::common{$var}) {
					push(@saves, $var);
				}
			}
			if (@saves) {
				$edit. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57476	57858	
==>S" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 74,
                  "ARGS" => [
                              "s",
                              "i"
                            ],
                  "BODY" => " <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	730	826	
==>_;

  return $class->new($file, $line, 'eof', undef, '__EOF__');
}

my $BOF = Jako::Token->new_bo <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	6768	6933	
==>ed $t;
    Carp::croak "Can't unget $t, because it's not a token -- it's a string!"
     unless ref $t;
    Carp::croak "Can't unget $t, because it's not a token obje <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	2460	2608	
==>ntType                   => '#',
        replace_slashes               => 1
    );
    genfile(
        'config/gen/makefiles/dynpmc.in' => 'src/dynp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214539	215001	
==>AGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 252,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic"
                            ],
                  "BOD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606278	606675	
==>t_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 687,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 441 \"s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	20061	20185	
==>[ 1, -1, FALSE, $_[1] ]); }
	],
	[#Rule 17
		 'expr', 2,
sub
#line 125 "lib/Regex/Grammar.y"
{ return op('multi_match' => [ 0 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	2316	2445	
==>('', 'tools/build/parrot_config_c.pl'),
            $self->new_item('', 'tools/build/pmc2c.pl'),
            $self->new_item('', ' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	551	716	
==>rx_tmp' if $name eq '<tmp>';
    return '$rx_tmp' if $name eq '<ptmp>';
    return $name;
}

sub dbgoto {
    my ($self, $label) = @_;
    return () unless $self->{DE <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2	112	
==>ckage Regex::CodeGen::IMCC;
use Regex::Ops::Tree (); # For mark()
use base 'Regex::CodeGen';
use strict;

my $f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215479	215970	
==>AGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 253,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 455 \"src/ops/c <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33942	34098	
==>> 75,
			"/" => 82,
			"," => 167,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			"<=" => 85,
			'OR' = <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10089	10197	
==>pmc rettype
    .param int trace
    .local pmc bc, ex, stypes, dtypes, loadtype, type_trans, c_params, escap <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5101	5222	
==>self->output_label_use($passLabel);

    while (@$incexc) {
        my $first = shift(@$incexc);
        my $last = shift( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4776	4897	
==>self->output_label_use($passLabel);

    while (@$incexc) {
        my $first = shift(@$incexc);
        my $last = shift( <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	8408	8499	
==>=item F<tools/build/ops2c.pl>

=item F<tools/build/ops2pm.pl>

=item F<tools/build/pbc2c.pl> <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	19192	19283	
==>=item F<tools/build/ops2c.pl>

=item F<tools/build/ops2pm.pl>

=item F<tools/build/pbc2c.pl> <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1705	1812	
==>K => \$check };

	_CheckParams( [], \%params, \@_, $self );

		exists($$self{VERSION})
	and	$$self{VERS <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1646	1748	
==>K => \$check };

	_CheckParams( [], \%params, \@_, $self );

		exists($$self{VERSION})
	and	$$self{VERS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	250219	250516	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "not",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	251618	251915	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "not",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	1131	1302	
==>Undef', 'write_KET'],
  ['',             'ne', 'I0', '.Array', 'write_DOT'],
  ['',             'print', '" "'],
  ['',             'branch', 'write_NEXT'],
  ['write_DOT', <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	27685	27825	
==>ccept_codes'}{$new_letter}
        = (@fallbacks == 1) ? $fallbacks[0] : \@fallbacks;
      DEBUG > 2 and print
       "Extensor maps $new_le <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	14991	15127	
==>2
		DEFAULT => -40,
		GOTOS => {
			'classpieces' => 52
		}
	},
	{#State 33
		ACTIONS => {
			'CHAR' => 34,
			">" => 53
		}
	},
	{#State <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	1010	1107	
==>ethod code suppliers.
$output .= generate_bodies(@methods);

# End of output.
$output .= <<'PIR_OU <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	59150	59360	
==>_[0], $_[1] ),
            ];
        }
	],
	[#Rule 104
		 'tableconstructor', 3,
sub
#line 562 "Lua\lua51.yp"
{
            BuildTable( $_[0], $_[2] );
        }
	],
	[#Rule 105
		 'tableconstructo <==
2	/Users/nnunley/parrot/config/inter/progs.pm	3550	3723	
==>bs = prompt("What libraries should your C compiler use?", $libs) if $ask;
    $conf->data->set(libs => $libs);

    $cxx = integrate($conf->data->get('cxx'), $conf->options-> <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	1840	1994	
==>ge) = $meta =~ /^\[(.*?)\]/;
    $meta =~ s/^\[(.*?)\]//;
    next if $package eq "";
    my %meta;
    @meta{split(/,/, $meta)} = ();
    $meta{$_} = 1 fo <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10315	10434	
==>"$outfile_base.calls.html#$function">@{[$function_call_coverage{$source_file}{$function} ? "$function_call_coverage{$sou <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1536	1648	
==>w
{
  my $class = shift;

  my $root = Jako::Construct::Block::File->new(
    undef,  # No parent
    'file', # F <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2839	3008	
==>endian UTF-16 BOM seen.  Aborting parsing.\n";
        $self->scream(
          $self->{'line_count'},
          "UTF16-BE Byte Encoding Mark found; but Pod::Simple v$Pod <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3237	3368	
==>endian UTF-16 BOM seen.  Aborting parsing.\n";
        $self->scream(
          $self->{'line_count'},
          "UTF16-LE Byte Enco <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7122	7242	
==>e,@sempar,$semval);
            ($lhs,$len,$code)=@{$$rules[-$act]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		a <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6791	6906	
==>e,@sempar,$semval);
            ($lhs,$len,$code)=@{$$rules[-$act]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		a <==
2	/Users/nnunley/parrot/lib/File/Which.pm	946	1247	
==>c) = @_;

    return undef unless $exec;

    my $all = wantarray;
    my @results = ();
    
    # check for aliases first
    if ($Is_VMS) {
        my $symbol = `SHOW SYMBOL $exec`;
        chomp($symbol);
        if (!$?) {
            return $symbol unless $all;
            push @results, $symbol <==
2	/Users/nnunley/parrot/config/gen/cpu/i386/auto.pm	849	1051	
==>if ($@) {
            print " $@ " if $verbose;
        } else {
            if (cc_run() =~ /ok/) {
                $conf->data->set(
                    "i386_has_$suffix" => '1',
                    " <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	132	235	
==>e Regex::RegexOps ();
use base 'Regex::CodeGen';
use strict;

sub output_preamble {
    my $self = shift <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	67187	67500	
==>r, 0);\n  else\n    if (interpreter->arena_base->num_early_DOD_PMCs)\n      Parrot_do_dod_run(interpreter, DOD_lazy_FLAG);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	294	457	
==>warnings";

package Jako::Construct::Declaration::Sub;

use Carp;

use base qw(Jako::Construct::Declaration);

use Jako::Symbol;
use Jako::Construct::Type;


#
# ne <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12230	12387	
==>k, $ident, $ident, $op, $value);
      next;
    }

    #
    # Bitwise assigns:
    #
    #   <var> <op> <value>;
    #

    if ($token->is_ident and $self-> <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	12523	12650	
==>80\f2\fs%s\ul\sbasedon0 \snext0 pod-head4;}
}

END

   $_[0]->codeblock_halfpoint_size(),
   $_[0]->head1_halfpoint_size(),
   $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10010	10162	
==>UVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
      return $x;
    }
  }
  foreach my $x (@_) {
    # Escape things very cautiously:
    $x =~ s/([^\n\t !\#\ <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15291	15389	
==>i sub is_deeply (List  $got, List  $expected, Str $desc?) returns Bool;
  multi sub is_deeply (Hash <==
2	/Users/nnunley/parrot/Configure.pl	8743	8840	
==>obviously have Perl 5--I'll be pulling
some defaults from its configuration.
END

# EDIT HERE TO A <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	20553	20742	
==>do { pos $$textref = $startpos; return };
		}
		else
		{
			$$textref =~ /[^\\$ldel2]*(\\.[^\\$ldel2]*)*$ldel2/gcs
			|| do { pos $$textref = $startpos; return };
		}
		$rd2pos = pos($$textr <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	55802	55970	
==>ode;
				       } )
			{
				_parse("a token constructor", $aftererror,$line,$code);
				$code =~ s/\A\s*<token:(.*)>\Z/$1/s;

				my $types = eval 'no strict; local $SI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616582	616903	
==>c_infix__",
                  "FLAGS" => ":pic",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 698,
                  "ARG <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	4271	4443	
==>add in "proper" spacing (after commas, etc.)
 o heredocs could be treated as blocks to set them off visually.
 o could remove/add explicit declarations of string type
 o cou <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563152	563463	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addmethod",
                  "FLAGS" => ":object_clas <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564049	564360	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addmethod",
                  "FLAGS" => ":object_clas <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	8568	8678	
==>$code =~ s/^\s+//;

    # create a copy and remove strings and comments so that
    # unbalanced {} can be used <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090992	1091382	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice",
                  "FLAGS" => ":python",
                  "ARGDIR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088038	1088426	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice",
                  "FLAGS" => ":base_core",
                  "A <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	29080	29175	
==>eral behaviour in scalar and void contexts

In a scalar context, the extracted string is returne <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	220260	220723	
==>AGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 258,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	18245	18339	
==>gnature_len && 'v' == string_index(interpreter, signature, 1)) {
       Parrot_warn(interpreter <==
2	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	823	956	
==>.pasm"
.include "basic.pasm"
.include "instructions.pasm"
.include "expr.pasm"


MAIN:
	new P20, .PerlHash     # PerlHash   # Numerics <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	52416	52567	
==>:Directive(
					      "($1) ? undef : 1", $lookahead,$line,"<reject:$code>");
				$prod and $prod->additem($item)
				      or  _no_rule("<reject:$code <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7606	7719	
==>}
    return $self->pushop . " <rx_stack>, $reg";
}

sub output_save {
    my ($self, $reg) = @_;
    $reg = value <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	915	1051	
==>ild(); 1; } || 0;
        cc_clean();
    }

    if ($test) {
        $conf->data->set(
            TEMP_cg_h => '$(INC_DIR)/oplib/core_o <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	3160	3277	
==>$string_private_h': $!";
    print OUT <<"HEADER";
/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * T <==
2	/Users/nnunley/parrot/lib/Test/More.pm	4991	5149	
==>h @plan, $item;
        }

        $idx++;
    }

    plan(@plan);

    __PACKAGE__->_export_to_level(1, __PACKAGE__, @imports);
}


=head2 Test names

By conv <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	2933	3044	
==>t="#stay">
          <RegExpr attribute="Label" context="#stay" String="[_\\w]+\\:" />
          <keyword attrib <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615747	615999	
==>CODE" => 697,
                  "ARGS" => [
                              "i",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 508 \"src/ops/object.ops\"\n    opcode <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2640	2767	
==>=shift;

	${$$self{ERRST}} != 0;
}

sub YYAbort {
	my($self)=shift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YY <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2524	2639	
==>=shift;

	${$$self{ERRST}} != 0;
}

sub YYAbort {
	my($self)=shift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YY <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	13048	13161	
==>cute" or "sol"
to the string that each stands for.  Note that this does not
include numerics (like "64" or "x981c" <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20020	20360	
==>on not ending
                                          in an explicit action has
                                          some parse-tree building code
                                          automatically appended.");
	}

	$code .= 
'

		Parse::RecDescent::_trace(q{>>Matched production: ['
					  . $self->describe . ']<<},
					  Pars <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9210	9331	
==>${STOREREG}
${INS} = concat " = "
${INS} = concat ${STEMP0}
${INS} = concat "\n"

# Decrement stack height.
dec stack_dept <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6728	6849	
==>${STOREREG}
${INS} = concat " = "
${INS} = concat ${STEMP0}
${INS} = concat "\n"

# Decrement stack height.
dec stack_dept <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	2907	3008	
==>laration:

    pmclass PMCNAME [flags] {

where C<flags> are:

=over 4

=item C<extends PMCPARENT>

Al <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	652220	652470	
==>tion",
                  "CODE" => 729,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 264 \"src/ops/pmc.ops\"\n    {{\@1}} = {{\@2}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576421	576532	
==>bject.ops\"\n  PMC *name;\n  name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577433	577544	
==>bject.ops\"\n  PMC *name;\n  name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpr <==
2	/Users/nnunley/parrot/config/init/miniparrot.pm	1721	1862	
==>un_o           => '',
        has___sighandler_t => undef,
        has_sigatomic_t    => undef,
        has_sigaction      => undef,
        h <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39020	39150	
==>al", "n optional" );

sub issubrule { 0 }
sub isterminal { 0 }

sub describe { $_[0]->{"expected"} }
sub sethashname { $_[0]->{hash <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4963	5059	
==>tack,$check,$dotpos)
     = @$self{ 'ERRST', 'NBERR', 'TOKEN', 'VALUE', 'STACK', 'CHECK', 'DOTPO <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4721	4816	
==>tack,$check,$dotpos)
     = @$self{ 'ERRST', 'NBERR', 'TOKEN', 'VALUE', 'STACK', 'CHECK', 'DOTPO <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9182	9294	
==>URIC}_CONT:
${INS} = concat ${STOREREG}
${INS} = concat " = "
${INS} = concat ${STEMP0}
${INS} = concat "\n"

# D <==
2	/Users/nnunley/parrot/config/gen/config_h.pm	1868	2019	
==>OF
        for (@vals) {
            print HH "#define PARROT_DEF_" . uc($_), " 1\n";
        }

    }

    print HH <<EOF;

/*
 * HAS_(\\w+) config ent <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	2781	2970	
==>s $is_allowed{$class_name};
my $trans_class = "Parrot::OpTrans::" . $class_name;

eval "require $trans_class";

my $trans = $trans_class->new();

# Not used
my $prefix  = $trans->prefix();
m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549911	550007	
==>56 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  S <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551212	551308	
==>56 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n  S <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687636	687947	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "delprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688407	688718	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "delprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35648	35792	
==>al { 0 }
sub sethashname { }

sub describe ($)
{
	my $desc = $_[0]->{"expected"} || $_[0]->{"subrule"};
	$desc = "<matchrule:$desc>" if $_[0]->{" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561234	561541	
==>RROT_JUMP_ENEXT",
                  "NAME" => "fetchmethod",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562317	562624	
==>RROT_JUMP_ENEXT",
                  "NAME" => "fetchmethod",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "funct <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10398	10545	
==>t, $last) = @$_;
        } else {
            ($first, $last) = ($_, $_);
        }
        push @ranges, [ ord($first), ord($last) ];
    }

    re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952342	952479	
==>c"
                            ],
                  "BODY" => "#line 540 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953303	953440	
==>c"
                            ],
                  "BODY" => "#line 540 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interp <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	34678	34810	
==>us_0 {
    my ($n, $c, $cmt) = @_;
    my $agg = pop @stack;
    print <<EOC;
	$agg->[1] = 0
EOC
}

sub Del_Slice
{
    my ($n, $c, $ <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	4037	4174	
==>L
    if (
        my $size = eval {
            open(TEST, ">test.c") or die "Can't open test.c: $!";
            print TEST <<'END';
#in <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	35075	35322	
==><<'PIRCODE';
i = elements P_arg_0
SS_PROP_LOOP_switch:
if i == 0 goto SS_PROP_LOOP_EXIT_switch
    dec i
    j = P_arg_0[i]
    sp_dest = next_pc + j
    ss = clone stypes
    ss_propogate[sp_dest] = ss
    goto SS_PROP_LOOP_switch
SS_PROP_LOOP_EXI <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4024	4130	
==>= "\${ITEMP0} = 0\n";
	for (1..$pushes) {
		$pir .= <<'PIR';
# Increment stack depth.
inc stack_depth

# Ge <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2440	2546	
==>= "\${ITEMP0} = 0\n";
	for (1..$pushes) {
		$pir .= <<'PIR';
# Increment stack depth.
inc stack_depth

# Ge <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9412	9517	
==>:'') . ($parser->{_check}{prevline}?'
	my $prevline;
	tie $prevline, q{Parse::RecDescent::LineCounter}, \$ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	3110	3242	
==>Page->header(
            $self->name, $self->html_navigation, '../resources'));
    $index->append($index_html);
    $index->append( <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	4285	4436	
==>count;
		my @args = split(/,/, $args);
		my $n = @args;
		$arg_count{$f} = $n;
		for (my $i = 0; $i < $n; $i++) {
		    my ($a, $def) = split(/=/, $args <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	12094	12253	
==>1\lang1024\noproof\sbasedon25 pod-codelbock-ital;}
{\*\cs27 \additive \f1\lang1024\noproof\sbasedon25 pod-codelbock-bold;}
{\*\cs28 \additive \f1\lang1024\nopro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468337	468523	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 376 \"src/ops/math.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exc <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	346	451	
==>use Carp;

use base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $left, $ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	25894	26043	
==>ions();

=head1 SEE ALSO

=over 4

=item F<t/harness>

=item F<docs/tests.pod>

=item L<Test/More>

=item L<Test/Builder>

=back

=cut

sub report_odd <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	13515	13797	
==>),
                           aop('advance', [ 1, $lastback ]),
                           aop('goto', [ $scan ]),
                  $next =>
              );

    return ($R_back, @ops);
}

sub rewrite_simple_or_simple {
    my ($self, $op, $R, $S, $lastback) = @_;

    my $nextalt <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	13645	13760	
==>.= $token->text;
        # and keep looking
        
      } elsif( $token->is_end and $content_containers{ $token-> <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5737	5848	
==>key, $trigger) = @_;

    return
        unless defined $self->{triggers}{$key}
        and defined $self->{trig <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6307	6418	
==>key, $trigger) = @_;

    return
        unless defined $self->{triggers}{$key}
        and defined $self->{trig <==
2	/Users/nnunley/parrot/tools/dev/cc_flags.pl	1548	1665	
==>";
	}
	else {
	    last;
	}
    }
}

my ($cfile) = grep /\.c$/, @ARGV;

my ($inject_point, $where);

foreach (@ARGV) { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5602	5876	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "load_bytecode",
                  "FLAGS" => ":load_file",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6267	6541	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "load_bytecode",
                  "FLAGS" => ":load_file",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  " <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	8633	8741	
==>mments so that
    # unbalanced {} can be used in them in PMCs, being careful to
    # preserve string length <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1306	1408	
==><somestring>) or $token->is_tagname(I<somestring>)

These are shortcuts for C<< $token->tag() eq I<some <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1736	1838	
==><somestring>) or $token->is_tagname(I<somestring>)

These are shortcuts for C<< $token->tag() eq I<some <==
2	/Users/nnunley/parrot/config/init/headers.pm	336	427	
==>e qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step;
use ExtUtils::Manifest qw <==
2	/Users/nnunley/parrot/config/init/manifest.pm	361	452	
==>e qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step;
use ExtUtils::Manifest qw <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	633	827	
==>des(1);
  $new->nbsp_for_S(1);
  $new->{'Thispara'} = '';
  $new->{'Indent'} = 0;
  $new->{'Indentstring'} = '   ';
  return $new;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	820	962	
==>des(1);
  $new->nbsp_for_S(1);
  $new->{'Thispara'} = '';
  $new->{'Indent'} = 0;
  $new->{'Indentstring'} = '   ';
  $new->{'Errata_seen'} = 0 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	21319	21509	
==>oto lastback
#         back: R or rfail
#               pushmark
#         next:
#
# conversion to using a temporary (not implemented this way; only for
# comparison with <n,m>? above.)
#
# R <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	9064	9228	
==>info->native_ptr, f); \
    emitm_calll(jit_info->native_ptr, EXEC_CALLDISP);

END_C
}
if ( $cpuarch eq 'ppc' && $genfile ne 'src/jit_cpu.c' ) {
    print JITCPU "#d <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	1541	1646	
==>utomatically from '$infile'
 * by $0.
 *
 * Any changes made here will be lost!
 *
 */

#define CONCAT(a,b <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	3830	3935	
==>utomatically from '$infile'
 * by $0.
 *
 * Any changes made here will be lost!
 *
 */

#define CONCAT(a,b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759223	759634	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setref",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	14600	14806	
==>r,
                    'result' => $result,
                    'arg1'   => $nil->[0],
                );
                push @{$exprs}, [ $result, [] ];
                push @{ $callop->{result} }, $r <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	10111	10246	
==>xpl        math.h
expm1       math.h
expm1f      math.h
expm1l      math.h
fabs        math.h
fabsf       math.h
fabsl       math.h
fclo <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	15716	15921	
==>PED_EH_FOUND_"
    gen_pir = concat tmp
    gen_pir = concat ":\n"

    # Need to fix up stack type state. Create new empty array.
    stypes = new ResizablePMCArray
    type_trans = new Hash
    type_trans <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26066	26207	
==>> 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 133,
			'f <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	12806	12914	
==>test = defined $got || defined $dont_expect;

        $self->ok($test, $name);
        $self->_cmp_diag($got, <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	13250	13358	
==>test = defined $got || defined $dont_expect;

        $self->ok($test, $name);
        $self->_cmp_diag($got, <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39033	39183	
==>ype});
        $ret = "return ret_val;";
        if ($type !~ /\*/) {
            $ret_type = "_ret" . lc substr $type, 0, 1;
            $ret_type = " <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	22659	22816	
==>ate

=item B<_print>

    $Test->_print(@msgs);

Prints to the output() filehandle.

=end _private

=cut

sub _print {
    my($self, @msgs) = @_;

    # Preve <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	11322	11418	
==>s, but given that they are still a
somewhat experimental feature in Pugs, it is suggested you don <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2766	2885	
==>ends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use eval_is()";
        &Test::is.goto( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	2073	2172	
==>hings finer to start with, and work at it.

In a saucepan set over moderate heat, warm the oil until <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34705	34819	
==>elf->{subrule} . ']>>},
						  Parse::RecDescent::_tracefirst($text),
						  q{' . $rule->{"name"} .'})
							if <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	15176	15328	
==>.
    $I1 = op1
    $I2 = op2
    if $I1 == $I2 goto good
    %% DOMAIN_ERROR %%
  good:
    # Create a result vector
    .local pmc result 
    result = <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26704	26949	
==>> 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 137,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	69107	69265	
==>Parrot_block_GC(interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	14603	14712	
==>nd $self->write_with_binmode;
    $self->output_fh($out_fh);
  }

  return $self->parse_file($source);
}

#--- <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1478	1758	
==>goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
print " <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1478	1758	
==>goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
print " <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27540	27687	
==>> 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 139,
			'functio <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608230	608495	
==>689,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 473 \"src/ops/object.ops\"\n    {{\@1}} = VTABLE_get_attr(in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24431	24585	
==>E" => 32,
                  "ARGS" => [],
                  "BODY" => "#line 429 \"src/ops/core.ops\"\n  opcode_t *dest = {{^+1}};\n  PMC * const p = CONTE <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	2940	3074	
==>ocals);
}

sub rule_restore_rxlocals {
    my ($self) = @_;
    my $rxlocals = ($self->{rxlocals} ||= []);
    return (aop(comment => [ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	3601	3771	
==>ame} eq 'LABEL';
    return $self->rewrite($R, $lastback);
}

sub rewrite_test {
    my ($self, $op, $op1, $test, $op2, $dest, $lastback) = @_;
    my $continue = $self->g <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2720	2821	
==>n module-level code"
GOSUB Sub1
PRINT "ERR this line in main routine should be skipped"
Label1:
   PRI <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16687	16788	
==>n module-level code"
GOSUB Sub1
PRINT "ERR this line in main routine should be skipped"
Label1:
   PRI <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	2157	2317	
==>is is bison.
    # if this is bison pretending to be yacc '--version' doesn't work
    if ($stdout =~ /Bison .*? (\d+) \. (\d+) (\w)? /x) {
        $conf->data-> <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	617	738	
==>ldren => [{ value => 'quote' }] };
    my $expr;
    $count++;
    ($count, $expr) = _build_tree ($tokens, $count);
    pu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	317827	318078	
==>or conv_i2_ovf\");\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	16991	17176	
==>iag($got, $type, $expect);
        }
    }
    return $ok;
}

sub _cmp_diag {
    my($self, $got, $type, $expect) = @_;
    
    $got    = defined $got    ? "'$got'"    : 'undef';
    $e <==
2	/Users/nnunley/parrot/lib/File/Which.pm	782	926	
==>om .exe .bat); # Win9X or other: doesn't have PATHEXT, so needs hardcoded.
    }
}
elsif ($Is_VMS) { 
    push @path_ext, qw(.exe .com);
}

sub w <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630072	630456	
==>IRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 706,
                  "ARGS" => [
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 81 \"src/ops/pmc.ops\"\n    PM <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	17554	17755	
==>nds up just being ['=item', { attrhash } ]
    return $para->[1]{'~type'} = 'number';
    
  } else {
    # It's anything else.
    return $para->[1]{'~type'} = 'text';

  }
}

#------------------------ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20320	20425	
==>ormatter class, but are instead just
writing a program that does something simple with a Pod::PullParser
o <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	202	298	
==>struct/Type.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

pac <==
2	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	2417	2562	
==>opcode);

package LocalDir;
use base qw(Lua::opcode);

package LexDir;
use base qw(Lua::opcode);

package ConstDir;
use base qw(Lua::opco <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50136	50267	
==>{{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_PROFILE_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_PROF <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50929	51060	
==>{{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_PROFILE_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_PROF <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1977	2207	
==>n, @args) = @_;
    $b->plan( $plan, @args );
    __PACKAGE__->export_to_level( 2, __PACKAGE__ );
}


sub set_test_info {
    my $next_test_num = 1 + $b->current_test();
    my $f_out  = Parrot::Test::per_test( '.out', $next_test_n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822443	822681	
==>n  }\n\n  {{\@1}} = UVal_int(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823511	823749	
==>n  }\n\n  {{\@1}} = UVal_int(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	3334	3577	
==>atch{$cur_section}->($line);

}

# Put the registers back and end
print OUTPUT "restoreall\n";
print OUTPUT "end\n";
close OUTPUT;

sub package_line {
  my $line = shift;

  # Trim leading and trailing spaces
  $line =~ s/^\s*//;
  $line =~ s/\ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	42928	43077	
==>0
		}
	},
	{#State 189
		DEFAULT => -4,
		GOTOS => {
			'block' => 201,
			'chunk' => 57
		}
	},
	{#State 190
		DEFAULT => -86
	},
	{#Sta <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	1255	1415	
==>new_item('Where to find or put things that need doing in Parrot.', 'TODO'),
            $self->new_item('This is a description of the steps someone should follow <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9831	9940	
==>, $self->require_value);
      my $op    = $self->require_infix_rel->text;
      my $right = Jako::Construct:: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25367	25476	
==>, $self->require_value);
      my $op    = $self->require_infix_rel->text;
      my $right = Jako::Construct:: <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	23008	23186	
==>oop: R or rback
#             push 0
#             goto loop
#      rback: popindex or lastback
#       next:
#
# (back is R.back)
#
#
sub rewrite_plus {
    my ($self, $op, $R, $ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2778	2883	
==>in routine should be skipped"
Label1:
   PRINT "5 back in module-level code"
   END
Sub1:
   PRINT "2 in s <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16745	16850	
==>in routine should be skipped"
Label1:
   PRINT "5 back in module-level code"
   END
Sub1:
   PRINT "2 in s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573034	573129	
==>name, {{\@2}});\n  {{\@1}} = pmc_new_init(interpreter, enum_class_ParrotClass, name);\n  {{+=3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573944	574039	
==>name, {{\@2}});\n  {{\@1}} = pmc_new_init(interpreter, enum_class_ParrotClass, name);\n  {{+=3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	12066	12215	
==>---  -------  ------------  ----------------------------------
        #   goto OFFSET(X)     {{+=X}}  PC' = PC + X  Used for branches
        #   got <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	6104	6304	
==>{ $branches{$branch} }
    ];
  }

  $tmpl->param(branches => my $p = [
    map {{
      name       => $_,
      categories => $branches{$_},
    }} sort {
		($a eq "trunk" ? -1 : 0) ||
		($b eq "trunk <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11655	11830	
==>) { print STDERR "  $tokens[$_] $types[$_]\n"; }

    return \@tokens, \@types;
}

sub op {
    Regex::Ops::Tree->op(@_);
}

$::paren = 0;



sub new {
        my($class)=shift <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520943	521498	
==>base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 601,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 739 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563959	564215	
==>dd_method(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564857	565113	
==>dd_method(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	777	935	
==>e same passed to other constructors
          $vtable_dump, # vtable.dump
          pmc1        => $pmc1_dump,
          pmc2        => $pmc2_dump,
          . <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	643	746	
==>ntinuation => 24,
	Exception_Handler => 25,
	Coroutine => 26,
	Eval => 27,
	NCI => 28,
	Float => 29,
	In <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9211	9356	
==>scolumn, q{Parse::RecDescent::ColCounter}, \$text, $thisparser;
	':'') . ($parser->{_check}{prevcolumn}?'
	my $prevcolumn;
	tie $prevcolumn, q{Par <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	36409	36575	
==>head,$line,$desc,$matchrule,$argcode);
		}
		else
		{
			Parse::RecDescent::_error("Not symbol (\"!\") before
				            \"$subrule\" doesn't make
					    sense. <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	5974	6167	
==>ranch} = [
      map {{
        catname => $_,
        smokes  => $branches{$branch}{$_},
      }} sort { lc $a cmp lc $b } keys %{ $branches{$branch} }
    ];
  }

  $tmpl->param(branches => my <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4885	4972	
==>'RULES', 'STATES', 'LEX', 'ERROR' };
	my($errstatus,$nberror,$token,$value,$stack,$chec <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4644	4730	
==>'RULES', 'STATES', 'LEX', 'ERROR' };
	my($errstatus,$nberror,$token,$value,$stack,$chec <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	1533	1639	
==>erated automatically from '$infile'
 * by $0.
 *
 * Any changes made here will be lost!
 *
 */

#define CON <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	3822	3928	
==>erated automatically from '$infile'
 * by $0.
 *
 * Any changes made here will be lost!
 *
 */

#define CON <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	3949	4045	
==>>

Compile the Parrot Intermediate Representation and generate Parrot Assembler Code.
Pass if the <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	4132	4228	
==>>

Compile the Parrot Intermediate Representation and generate Parrot Assembler Code.
Pass if the <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	2634	2840	
==>lain to stderr

  'doc_has_started',   # whether we've fired the open-Document event yet

  'bare_output',       # For some subclasses: whether to prepend
                       #  header-code and postpend f <==
2	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	1111	1260	
==>4 -msym -std $linkflags";
        $conf->data->set(linkflags => $linkflags);
    }

    # Required because of ICU using c++.
    $conf->data->set(link <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183129	183374	
==>" => [
                              "n",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 285 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}} <==
2	/Users/nnunley/parrot/lib/Test/More.pm	8584	8713	
==>turns 1.  Very different.  Similar caveats exist for false and 0.
In these cases, use ok().

  ok( exists $brooklyn{tree},    'A t <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	155	254	
==>/sizes.pm - Various Sizes

=head1 DESCRIPTION

Determines the sizes of various types.

=cut

package <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4899	5007	
==>ES', 'LEX', 'ERROR' };
	my($errstatus,$nberror,$token,$value,$stack,$check,$dotpos)
     = @$self{ 'ERRST', <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4658	4764	
==>ES', 'LEX', 'ERROR' };
	my($errstatus,$nberror,$token,$value,$stack,$check,$dotpos)
     = @$self{ 'ERRST', <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	8352	8466	
==>.h
casinhf     complex.h
casinhl     complex.h
casinl      complex.h
catan       complex.h
catanf      complex.h
ca <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	14763	14923	
==>($args->[$i] =~ /^\((.+)\*\)&(.+)$/) {
                $temp[$i] = [ $1, $2 ];
                $args->[$i] = "&arg$i";
            }
        }
        my $call_p <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	2799	2954	
==>ify it and you get just the text content:

  % perl -MData::Dumper -e
    "use base qw(Pod::Simple::Methody);
     sub start_L { print Dumper( '' . $_[1]{'s <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	3443	3583	
==>)/){
		$forward_off = $args[$1 - 1]
		    if $op->arg_type($1) eq 'ic';
	    }

	    if($forward_off =~ /^-?\d+$/){
		$forward_off = -$forwar <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	23977	24084	
==>[2] : '\s*';
	my %options = defined $_[3] ? %{$_[3]} : ();
	my $omode   = defined $options{fail} ? $options{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150711	151035	
==>i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 183,
                  "ARGS" => [
                              "p",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 112 \"src/ops/ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	6922	7129	
==>ent mucus
    #     Failed test 18 (foo.t at line 42)

This is actually Test::Simple's ok() routine.

=cut

sub ok ($;$) {
    my($test, $name) = @_;
    $Test->ok($test, $name);
}

=item B<is>

=item B<isnt> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002148	1002517	
==>> "inline",
                  "CODE" => 1119,
                  "ARGS" => [
                              "i",
                              "i",
                              "sc",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_strin <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1358	1488	
==>->{relpath}, 
            STDOUT => $out_f, STDERR => $out_f, 
        );
        my $prog_output = Parrot::Test::slurp_file( "$out <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1274	1404	
==>->{relpath}, 
            STDOUT => $out_f, STDERR => $out_f, 
        );
        my $prog_output = Parrot::Test::slurp_file( "$out <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615001	615146	
==>(interpreter, next, NO_CLASS,\n            \"Class not parent of object\");\n    }\n    {{\@1}} = offset;\n    {{=next}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616152	616297	
==>(interpreter, next, NO_CLASS,\n            \"Class not parent of object\");\n    }\n    {{\@1}} = offset;\n    {{=next}};\n",
                  "L <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	193	285	
==>IPTION

Determines whether the compiler supports computed C<goto>.

=cut

package auto::cgoto <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	10103	10203	
==>age = 'Parrot::Test';

    my $path_to_parrot = path_to_parrot();
    my $parrot = File::Spec->join(F <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	798	898	
==>ine REL_PC     ((size_t)(cur_opcode - interpreter->code->base.data))
#define CUR_OPCODE cur_opcode
#d <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	914	1014	
==>ine REL_PC     ((size_t)(cur_opcode - interpreter->code->base.data))
#define CUR_OPCODE cur_opcode
#d <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	5351	5540	
==>less iter goto loop_end_2d
  loop_2d:
    newline = 0
    if pos != row_size goto cont_2d
    newline = 1
    pos = 0

  cont_2d:
    old_type = value_type
    value = shift iter
    bsr pri <==
2	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	150	287	
==>eturn };

GetOptions(
  "smokeserv=s" =>
    \(my $smokeserv = "http://smoke.parrotcode.org/smoke/"),
  "help"        => \&usage,
  "compr <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	4688	4846	
==>n
        );
        $warns = "";
        while (my ($vers, $opt) = splice @opt_and_vers, 0, 2) {
            last if $vers > $gccversion;
            next unl <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	2902	3164	
==>0['monadic:+']      =  "    noop"             # conjugate
    $P0['monadic:|']      =  "    %1 = abs %1"      # magnitude
    $P0['monadic:!']      =  <<"END_PIR"            # factorial
    $I100 = %1
    $I100 = fact $I100
    %1 = $I100
END_PIR

    $P0['monadi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109131	109415	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109909	110193	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7996	8111	
==>[CURR] eq "STMT" or $type[CURR] eq "COMM") and $singleif) {

		$_=pop @ifstack;
		if ($_ < 0 ) {
			# print "Else wa <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	4116	4222	
==>nt {$self->{'output_fh'}} $self->{'Tagmap'}{$tagname};
    
    my $next = $self->get_token;
    
    unles <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	4076	4199	
==>y $Obj;

$Obj = shift(@ARGV) unless defined $Obj;
$Obj = 'blib/lib/libparrot.a' unless defined $Obj;
die "$0: '$Obj': No suc <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9047	9246	
==>ad>\n<body>\n", 
   $self->version_tag_comment,
   "<!-- start doc -->\n",
  ;
   # TODO: more configurability there

  DEBUG and print "Returning from do_beginning...\n";
  return 1;
}

sub version_t <==
2	/Users/nnunley/parrot/config/init/headers.pm	142	232	
==>ME

config/init/headers.pm - Nongenerated Headers

=head1 DESCRIPTION

Uses C<ExtUtils::Man <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	1080	1178	
==>e the SVN directories
\B\.svn\b

# debian/ should not go into release tarballs
^debian$
^debian/
EN <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3934	4032	
==>e the SVN directories
\B\.svn\b

# debian/ should not go into release tarballs
^debian$
^debian/
EN <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835821	836010	
==>}), STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836574	836763	
==>}), STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404447	404689	
==>[
                              "s",
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 535 \"src/ops/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (uns <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	6465	6583	
==>startset(\%start);
}

# Returns true if at most one subexpression can ever hold at a given
# point in the input string. <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	697	861	
==>ibrary = Parrot::Pmc2c::Library->new
        ( $options,     # hash refernce, the same passed to other constructors
          $vtable_dump, # vtable.dump
          p <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	26253	26369	
==>rdel$mod" }
	else		  { $desc = "m$ldel$pattern$rdel$mod" }
	$desc =~ s/\\/\\\\/g;
	$desc =~ s/\$$/\\\$/g;
	$desc =~ s <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	31851	31950	
==>p_newline {
}

sub _op_write_char {
}

sub _op_load {
}

sub _op_transcript_on {
}

sub _op_transcri <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3129	3282	
==>Data->{INPUT} ) {

        for ( $parser->YYData->{INPUT} ) {

            s/^'//
                and return ( $type, $str );

            s/^([^'\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877067	877269	
==>",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpret <==
2	/Users/nnunley/parrot/config/auto/aio.pm	1023	1253	
==>int " (yes) " if $verbose;
            $self->set_result('yes');

            $conf->data->set(
                aio        => 'define',
                HAS_AIO    => 1,
                D_SIGRTMIN => $1,
                D_SIGRTMAX = <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3413	3520	
==>hich is harder.
        $body =~ s/^(\s*)([^\n]+)\s*\Z/$1puts [$2]/m;

        $tests{$name} = [$expl, $body <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4820	4927	
==>hich is harder.
        $body =~ s/^(\s*)([^\n]+)\s*\Z/$1puts [$2]/m;

        $tests{$name} = [$expl, $body <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957578	957666	
==>real_exception(interpreter, NULL, 1,\n\t\"encoding '%Ss' not found\", {{\@2}});\n  {{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958483	958571	
==>real_exception(interpreter, NULL, 1,\n\t\"encoding '%Ss' not found\", {{\@2}});\n  {{\@1} <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8961	9101	
==>") {
FORCE_FINISH:
		runtime_shutdown();
		parse_function_dispatch();
		parse_struct_copy_dispatch();
		parse_data_setup();
		check_branches( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	715	818	
==>OKEN  => $token,
    VALUE  => $token->text,
    SCOPE  => $block->scope_of_ident($token->text),
    ACC <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	12	115	
==>(C) 2005, The Perl Foundation.
# $Id: /parrot/config/init/hints/mswin32.pm 19593 2006-05-30T02:28:15.110 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Transcode.pm	2	113	
==>equire 5;
package Pod::Simple::Transcode;

BEGIN {
  if(defined &DEBUG) {;} # Okay
  elsif( defined &Pod::Simple <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8514	8651	
==>*ERR.say("# Looks like you failed $Test::num_of_tests_failed tests of $Test::num_of_tests_run");
    }
    if ($Test::num_of_tests_badpass <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	600	780	
==>truct::Expression::Value::Identifier');

  my $self = bless {
    BLOCK => $block,

    IDENT => $ident,

    DEBUG => 1,
    FILE  => $ident->file,
    LINE  => $ident->line
  }, $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	2185	2372	
==>return shift->scope eq 'global'; }
sub is_local    { return shift->scope eq 'local'; }
sub is_constant { return shift->kind eq 'const'; }
sub is_variable { my $self = shift; return ($self- <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	11562	11694	
==>der.innerHTML = "&laquo;";
      } else {
	elem.className = "details";
	expander.innerHTML = "&raquo;";
      }
    }
  //]]></script <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	1451	1629	
==>nterp* interpreter,
                                        opcode_t* opcode_addr)
{
    INTVAL offset_in_ops;
    if (opcode_addr == NULL) return NULL;
    offset_in_ops = opcode <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	1044	1149	
==>/;
    $DB::single = 1 if $method eq "output_";
    return $self->$method(@{ $op->{args} });
}

sub lookup <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2498	2595	
==>on't discover backward branches until late to do
	# otherwise. Also, putting a label everywhere do <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1076	1173	
==>on't discover backward branches until late to do
	# otherwise. Also, putting a label everywhere do <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	1384	1517	
==>e by making it file
static or function static, but see L</"Data is not an API">.

=item No Parrot API

The API is defined in the lib b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650774	651047	
==>1}} = 1;\n    else\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651696	651969	
==>1}} = 1;\n    else\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	1574	1692	
==>sion. Actual
    # instances should probably be subclasses that use something like
    # IMCC's facilities for creating <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	49522	49858	
==>ns( $_[0], [$var], [ $_[5] ] );
        }
	],
	[#Rule 30
		 'stat', 4,
sub
#line 182 "Lua\lua51.yp"
{
            InsertList( $_[0], $_[2] );
            BuildAssigns( $_[0], $_[2], $_[4] );
        }
	],
	[#Rule 31
		 'stat', 2,
sub
#line 187 "Lua\lua51.yp"
{
            InsertList( $_[0], $_[2] );
            BuildA <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	49512	49605	
==>miters.

Once the prefix an dthe outermost opening delimiter bracket have been
recognized, cod <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	9153	9262	
==>]->hasback() }
sub dfa_safe { my ($op) = @_; $op->{args}->[1]->dfa_safe() }

# Rule calls are totally unpredic <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833567	833658	
==>rpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}}, STACK_ENTRY_PMC, STACK_CLEANUP_NUL <==
2	/Users/nnunley/parrot/lib/Test/More.pm	27643	27773	
==>o help figure
out what went wrong.  They were written before is_deeply() existed
because I couldn't figure out how to display a use <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	2532	2807	
==>y $self = shift;
  DEBUG > 1 and print "\nget_token starting up on $self.\n";
  DEBUG > 2 and print " Items in token-buffer (",
   scalar( @{ $self->{'token_buffer'} } ) ,
   ") :\n", map(
     "    " . $_->dump . "\n", @{ $self->{'token_buffer'} }
   ),
   @{ $self->{'token_ <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1925	2065	
==>]/g;
	$c =~ s/(S\d{2})/$s{$1}/;
        $c =~ s/^(.*)=rotate_left\((.*),(.*)\)\+(.*)$//;

	#my $rotate = "(($2 << $3) || (($2 >> (32 - $3)) & <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	29230	29439	
==>har_ci_lt_p {
}

sub _op_char_ci_gt_p {
}

sub _op_char_ci_le_p {
}

sub _op_char_ci_ge_p {
}

sub _op_char_alphabetic_p {
}

sub _op_char_numeric_p {
}

sub _op_char_whitespace_p {
}

sub _op_char_upper_case_p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499496	499721	
==>s\"\n  {{\@1}} = floatval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500259	500484	
==>s\"\n  {{\@1}} = floatval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	3481	3617	
==>= <<"EOC";
    Parrot_Int type${class};
EOC
    }
    $cout .= <<"EOC";
    int pass;

    /*
     * create a library PMC
     */
    pmc <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	1276	1424	
==>]]]

The param and return_type parameters use the NCI standard, which for
reference is:

=over 4

=item p

Parameter is a void pointer, taken from th <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	667	782	
==>er->YYData->{nb_warning} ) {
        $parser->YYData->{nb_warning}++;
    }
    else {
        $parser->YYData-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	106643	107001	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 133,
                  "ARGS" => [
                              "i" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114913	115397	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 143,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	31458	31557	
==>e set C</["'`]/> is used. If the text to be processed
is not specified either, C<$_> is used.

In li <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	7097	7281	
==>d $name ) 
    {
        $name =~ tr/ /_/;
        
        print {$self->{'output_fh'}} 
            qq(<a name="), esc($name), qq("\n>);
    
    } 
    else 
    {
        print {$se <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	9275	9597	
==>le_line_coverage) {

        print OUT qq(
            <hr noshade>
            <a name="$source_file"></a>
            <b>File: $source_file</b><br>
            <table border="1">
              <tbody>
                <tr>
                  <th>Function</th>
                  <th>Line Coverage</th>
                  <th> <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	2633	2840	
==>iled with exit code $exit_code." if $exit_code;
               $self->{builder}->diag( $diag ) if $diag;
           }
        }

        # The generated files are left in the t/* directories.
        # Let 'm <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9190	9413	
==>ndex",
            "eq <rx_tmp>, -1, ".$self->output_label_use($fallback)." # was a mark?",
            "set $reg, <rx_tmp> # nope, set pos := popped index");
}

sub output_popint {
    my ($self, $reg, $db_desc) = @_;
    $ <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	679	820	
==>r', $count )
                    :
                    Parrot::Test::per_test( '_antlr2_no_past.pir', $count );

    return ( "python language <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21997	22099	
==>_constant(1);
  my $temp = $self->_generate($node->{children}[1]);
  $self->_add_inst(''           ,'lt <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	760	911	
==>::croak(
      'usage: $object->attr("val") or $object->attr("key", "newval")');
    return undef;
  }
}

1;


__END__

=head1 NAME

Pod::Simple::PullPa <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	446	572	
==>2c.pl --tree src/pmc/*.pmc

Create F<src/pmc/foo.c> and C<pmc_foo.h> from F<src/pmc/foo.dump>:

    % perl tools/build/pmc2c.pl <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3154	3262	
==>s $_[0]{'Errata_seen'};
  my $self = shift;
  if(Pod::Simple::ASCII) {
    $self->{'Thispara'} =~ tr{\xA0}{ } <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3380	3486	
==>ncat " = pop s\n"
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$register_num++;
	}

	# Return generate <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	16129	16257	
==>[20,21],				# ANY FILLET?
		       );
};

sub _match_quotelike($$$$)	# ($textref, $prepat, $allow_raw_match)
{
	my ($textref, $pr <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	11822	11920	
==>y not implemented, so you will have to wait
a little while. Until then, you can just write your own <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	5296	5389	
==>shl_m[^\n]*CONST[^\n]*)/$1\\\n\tParrot_exec_add_text_rellocation(jit_info->objfile, NULL, RTYP <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1100	1203	
==>PIR';
# Get current stack types array size.
${ITEMP0} = elements ${STYPES}
PIR

	# Do code for each pop. <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2810	2913	
==>PIR';
# Get current stack types array size.
${ITEMP0} = elements ${STYPES}
PIR

	# Do code for each pop. <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	6128	6240	
==>cause we're preparing for a release.
    $context = "TODO for release"
        if index($Test::force_todo_test_ju <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3684	3822	
==>int int(0),
print int(-.8),
print int(-.3),
print int(3.14)

' Simple subs, Made it here
sub mysub()
	print "Made it here"
end sub
call mys <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	7251	7377	
==>end

.sub unicode:"dyadic:\u2373" :multi(APLVector, APLVector) # index of
    .param pmc op1
    .param pmc op2
 
    .local pm <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	635	775	
==>|| $class;
  my $new;
  if(@_ == 1) {
    if (!ref($_[0] || '')) { # most common case: one bare string
      return bless ['', {}, $_[0] ], $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826557	826646	
==>nal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_FLOAT) { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827627	827716	
==>nal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_FLOAT) { <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77322	77418	
==>ntext  = $_[1]||$lastcontext;
	$tracerulename = $_[2]||$lastrulename;
	if ($tracerulename) { $las <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2902	3019	
==>ROR';
    undef;
}

sub YYSemval {
	my($self)=shift;
	my($index)= $_[0] - ${$$self{DOTPOS}} - 1;

		$index < 0 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2764	2873	
==>ROR';
    undef;
}

sub YYSemval {
	my($self)=shift;
	my($index)= $_[0] - ${$$self{DOTPOS}} - 1;

		$index < 0 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21389	21532	
==>ry' => 28
		}
	},
	{#State 66
		ACTIONS => {
			'NAME' => 120
		}
	},
	{#State 67
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'T <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	12653	12772	
==>= @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $dont_expect ) {
        # undef only matches un <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	13097	13216	
==>= @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $dont_expect ) {
        # undef only matches un <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	422	524	
==>ection::BigNum;

use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Retu <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61510	61617	
==>e);
			$prod and $prod->additem($item)
			      or  _no_rule("pattern terminal",$line,$code);
		}
		elsif ($ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	15801	15916	
==>a{todo};

            my $pass = $builder->$meth( $real_output, $expected, $desc );
            $builder->diag("'$cm <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	18352	18467	
==>a{todo};

            my $pass = $builder->$meth( $real_output, $expected, $desc );
            $builder->diag("'$cm <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	1796	1919	
==>$options{compiler};

    # Per Leo on 18APR2005, run the test suite with --gc-debug
    if ( $ENV{TEST_PROG_ARGS} && $ENV{TE <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4123	4223	
==>th

# Get type (so we can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign register na <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2539	2639	
==>th

# Get type (so we can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign register na <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571142	571262	
==>er, {{\@3}});\n    {{\@1}} = Parrot_object_isa(interpreter, {{\@2}}, class);\n    {{+=4}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572097	572217	
==>er, {{\@3}});\n    {{\@1}} = Parrot_object_isa(interpreter, {{\@2}}, class);\n    {{+=4}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	40619	40735	
==>ot man or url).\n";
      }

      if( defined $section_name ) {
        $ell->[1]{'section'} = Pod::Simple::LinkSect <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327104	327332	
==>et_integer_native(interpreter, {{\@1}}, (INTVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327906	328134	
==>et_integer_native(interpreter, {{\@1}}, (INTVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	140	320	
==>e Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

packa <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	2635	2842	
==>ile\n";
    }

    # Remove leading and final blank lines.
    while ( $output[0][0] && $output[0][1] eq q{} ) {
        shift @output;
    }
    while ( $output[1][0] && $output[-1][1] eq q{} ) {
        pop <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	8708	8877	
==>ongsize' => 4,
             'make' => 'gmake',
             'make_and' => '&&',
             'make_c' => 'gmake -C',
             'make_set_make' => '#',
             'me <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	42546	42704	
==>a good idea if those functions are going to be called more than once, since
their performance is typically twice as good as the more general-purpose
C<extract_ <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1365	1449	
==>rotate_left((X1^X2^X3)+X0+X4+X6$MSK,X5)+X1$MSK;",
	II => "X0=rotate_left((X2^(X1|(~X3 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	19	131	
==>e Pod::Simple::TiedOutFH;
use Symbol ('gensym');
use Carp ();

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	830	920	
==>UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Ident is not!" if defined $ide <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	858	948	
==>UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Ident is not!" if defined $ide <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3635	3741	
==>m)\n";

    die "Unrecognized type '$type' for num '$num'" unless exists $arg_maps{$type};

    return spri <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	15090	15299	
==>..."},
				 pos $$textref;
			last;
		}

		$patvalid = 0;
		$$textref =~ m/\G\s*(\w+|[-=>]>|.|\Z)/gc;
	}
	continue { $@ = undef }

	unless ($matched)
	{
		_failmsg 'No match found for opening bracket', pos $$te <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133829	133915	
==>ine 321 \"src/ops/bit.ops\"\n  string_bitwise_xor(interpreter, {{\@1}}, {{\@2}}, &{{\@1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134610	134696	
==>ine 321 \"src/ops/bit.ops\"\n  string_bitwise_xor(interpreter, {{\@1}}, {{\@2}}, &{{\@1 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6452	6600	
==>ving blank line at line ${$self}{'line_count'}\n";
        push @{$paras->[-1]}, $line;
      }  # otherwise it's not interesting
      
      if(!$s <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	8933	9109	
==>.pod/;
            print MAKEFILE "ops$slash$pod: ..${slash}src${slash}ops${slash}$ops\n";
            if ($new_perldoc == 1) {
                print MAKEFILE "\tperldoc -ud ops <==
2	/Users/nnunley/parrot/config/auto/bc.pm	704	843	
==>onfig{osname};

    # There were some problems with a hanging bc reported.
    # So check for bc only on selected platforms.
    # Linux sho <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3110	3216	
==>ce = shift;
	my @contents = ();
	
	foreach my $content (@{$self->{CONTENTS}})
	{
		if ( ref($content) )
		{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	28322	28472	
==>type'} )
        );
      } else {
        DEBUG > 1 and print "=back found without a matching =over.  Stack: (",
            join(', ', map $_->[0], @ <==
2	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1821	1959	
==>resh;
  sub debug($) {
    my $msg = shift;

    print STDERR "* " and $fresh++ unless $fresh;
    print STDERR $msg;
    $fresh = 0 if sub <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846685	846919	
==>ng_chr(interpreter, (UINTVAL){{\@2}});\n  {{\@1}} = s;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847481	847715	
==>ng_chr(interpreter, (UINTVAL){{\@2}});\n  {{\@1}} = s;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029884	1030072	
==>rrot_sleep_on_event(interpreter, {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030726	1030914	
==>rrot_sleep_on_event(interpreter, {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	12737	12852	
==>rt.pnext.bar

' Member functions, give 0 and 3 (modified)
type first
	foo as integer
	bar as string
end type
type se <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2144	2366	
==>$out_f, STDERR => $out_f);
  
    unless ($pass) {
      my $file = Parrot::Test::slurp_file($out_f);
      my $builder_func = $language_test_map{$func};
    
      {
        no strict 'refs';

        $pass = $self->{build <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	3957	4082	
==>labels{$dest->{label}}; # tagged_op
                if (! $dest_stmt) {
                    if ($ctx->{external_labels}{$dest- <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	1452	1598	
==>me
				return rmdir rset run
			screen seek select case shared shell single sleep
				sound static stop sub swap system step
			then 
			time_NOTYE <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49422	49535	
==>rse::RecDescent::Directive('$commit=0;1',
								  $lookahead,$line,"<uncommit>");
				$prod and $prod->additem($ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34038	34185	
==>_ret = $self->gen_ret($method->{type});
        $ret = "return ret_val;";
    }
    # I think that these will be out by one - NWC
    my $l = $self- <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	487	727	
==>y => 15,
	ParrotInterpreter => 16,
	ParrotThread => 17,
	LexPad => 18,
	Timer => 19,
	Pointer => 20,
	Sub => 21,
	Closure => 22,
	Continuation => 23,
	RetContinuation => 24,
	Exception_Handler => 25,
	Coroutine => 26,
	Eval => 27,
	NCI => 28 <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	2364	2690	
==>c => "char",
       s => "short",
       2 => "short *",
       f => "float",
       d => "double",
       t => "char *",
       v => "void *",
#      b => "void *",
#      B => "void **",
       P => "PMC *",
       S => "STRING *",
       I => "INTVAL",
       N => "FLOATVAL",
     );

my %ret_assign =
     ( p => "PMC_data <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099991	1100273	
==>nline",
                  "CODE" => 1219,
                  "ARGS" => [
                              "n",
                              "nc",
                              "i"
                            ],
                  "BODY" => "#line 296 \"src/ops/experimental.ops\"\n    FL <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	5322	5524	
==>wn_directives },
    'accept_targets'    => {},
  }, $class;
}



# TODO: an option for whether to interpolate E<...>'s, or just resolve to codes.

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3155	3260	
==>.c files

    generate_dump($_) foreach (@pmcs);
    generate_c($_) foreach (@pmcs);

    my ($group_files <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3259	3364	
==>.c files

    generate_dump($_) foreach (@pmcs);
    generate_c($_) foreach (@pmcs);

    my ($group_files <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	4000	4127	
==>erl_file {
    my($info,$text) = @_;
    my $desc;
    if($text =~ /^\#/) { # perl file (or sh)
	my($comment) = $text =~ /^(\#[^ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32550	32663	
==>locking.

=over 4

=cut

package Parrot::Pmc2c::SharedRef;
use base 'Parrot::Pmc2c';

=item C<implements($method)> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023316	1023410	
==>rc/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_localtime_r(& <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024166	1024260	
==>rc/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_localtime_r(& <==
2	/Users/nnunley/parrot/config/init/hints/vms.pm	292	423	
==>obj/NoList/NOANSI_ALIAS/include="./include"},
        perl    => "MCR $^X",
        exe     => "exe"
    );

    {
        local $^W <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	622149	622365	
==>params_pc);\n    ((void**)cur_opcode)[1] = mic->m.sig;\n    {{+=0}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	3440	3549	
==>{pmcs}} );

    return $cout;
}

=item C<includes()>

Returns the set of C C<#include>s for the library.

=cut <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	2640	2830	
==>pe                          => '#',
        replace_slashes                      => 1,
        conditioned_lines                    => 1
    );
    genfile(
        'config/gen/makefiles/dyno <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	1374	1550	
==>pe                    => '#',
        replace_slashes                => 1,
        conditioned_lines              => 1
    );
    genfile(
        'config/gen/makefiles/dynpmc_p <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	17529	17668	
==>modpos,	0,			# NO 2ND LDEL
			$modpos,	0,			# NO 2ND STR
			$modpos,	0,			# NO 2ND RDEL
			$modpos,	$endpos-$modpos,	# MODIFIERS
			$endpos, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7541	7734	
==>$next->text . "\n";
        next;
       
      } else {
        if( $tagname =~ m/^over-(.+)$/s ) {
          push @stack, $1;
        } elsif( $tagname eq 'Para') {
          $tagname = 'Para_ <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	5595	5769	
==>ed $arrays{$name} ){
                $out .= "    my \$i;\n";
                $out .= "    \@_ ? (\$i = shift) : return \$r->$elem;\n"; 
                $out .= "    if (ref(\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787934	788034	
==>"#line 422 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed_int(interpreter, {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788844	788944	
==>"#line 422 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed_int(interpreter, {{\@ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	3882	4127	
==>");
    my $temp = $compiler->temp_reg($calc_type);
    $left = $left->compile($compiler);
    $compiler->emit("  $temp = $left");
    $left = $temp;
  }
  else {
    $left = $left->compile($compiler);
  }

  unless ($right_type->name eq $calc_ty <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151045	151137	
==>\n  if (0 == string_equal(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152023	152115	
==>\n  if (0 == string_equal(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1} <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	184	273	
==>nguages/jako/lib/Jako/Construct/Block/Conditional.pm 19606 2006-05-30T15:08:05.048089Z cok <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5344	5492	
==>p->{result} } ) {
                print {$FH} ", " unless ($first);
                print {$FH} "$_->{symbol}";
                if ( exists $_->{p <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6376	6524	
==>p->{result} } ) {
                print {$FH} ", " unless ($first);
                print {$FH} "$_->{symbol}";
                if ( exists $_->{p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	686	778	
==>ot!"  unless UNIVERSAL::isa($type, qw(Jako::Construct::Type));
  confess "Identifier (" . ref <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	676	766	
==>ot!" unless UNIVERSAL::isa($type, qw(Jako::Construct::Type));
  confess "Identifier (". ref <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1206	1314	
==>ako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block,

    IDENT => $ident,
    CON <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13104	13197	
==>_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13948	14041	
==>_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	2904	3030	
==>local $_" ]) }
                @$rxlocals);
}

sub rule_restore_rxlocals {
    my ($self) = @_;
    my $rxlocals = ($self->{rxl <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	3559	3855	
==>nless $children[0]->{name} eq 'seq';
            my ($S0, @Srest) = @{ $children[0]->{args} };
            last unless matchsame($R0, $S0);
            my $S = shift(@children);
            @{ $S->{args} } = @Srest;
            push @shrunken, $S;
        }

        # None, so use opt(R|...) -> ( <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	2677	2798	
==>en($token);
    }
    elsif ( $tagname eq 'C' )
    {
        $self->process_code_start_token($token);
    }
    elsif ($t <==
2	/Users/nnunley/parrot/config/init/defaults.pm	1960	2085	
==>32 might use "Link".
        # Perl5's Configure doesn't distinguish linking from loading, so
        # make a reasonable gues <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25800	25925	
==>l' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 80
		A <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	12769	12881	
==>s undef and nothing else
        my $test = defined $got || defined $dont_expect;

        $self->ok($test, $name <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	13213	13325	
==>s undef and nothing else
        my $test = defined $got || defined $dont_expect;

        $self->ok($test, $name <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	370986	371434	
==>E" => 434,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 353 \"src/ops/io.ops\"\n    PMC * const pio = {{\@2}};\n    ParrotIO *io;\n    /* this ugly error handling will go away, when all the\n     * io stuff are methods\n     */\n    if (pio->vtable->base_type != enum_class_ParrotIO)\n\treal_exception(interpreter, NULL, PIO_ERRO <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	7427	7548	
==>UILD_CALL_FRAMES*/
#endif

/*
 * helper funcs - get argument n
 */
static INTVAL
get_nci_I(Interp *interpreter, struct cal <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	40608	40793	
==>{
		my $key = "${1}TEMP$2";
		my $value = "${1}_temp_$2";
		$mv->{$key} = $value;
		$pir =~ s/\$\{$key\}/$value/g;
	}

    # If we have any unsubstituted variables, error.
    if ($pir = <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	9570	9693	
==>arg->{repeating};
    }

    $max = undef if $is_repeating;
    
    return $min, $max;
}

=head1 TODO

Doesn't support subc <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	4883	5008	
==>le is available it is used and if not you take
C<Digest::Perl::MD5>.

You can also install the Perl part of Digest::MD5 togeth <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	364	470	
==>y1 => $value1, $key2 => $value2);
    $data->add($delimiter, $key1 => $value1, $key2 => $value2);
    my @k <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	113	221	
==>552283Z bernhard  $

=head1 NAME

Parrot::OpTrans::C - Ops to C Code Generation

=head1 DESCRIPTION

C<Parrot <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	4373	4509	
==>akefiles/root.in' => 'languages/HQ9plus/Makefile',
        commentType                  => '#',
        replace_slashes              => 1 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4368	4529	
==>ile(<DRV>) {
                	/^\s*sub\s+_Parse\s*{\s*$/ .. /^\s*}\s*#\s*_Parse\s*$/
        	and     do {
                	s/^#DBG>//;
                	push( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4147	4304	
==>ile(<DRV>) {
                	/^\s*sub\s+_Parse\s*{\s*$/ .. /^\s*}\s*#\s*_Parse\s*$/
        	and     do {
                	s/^#DBG>//;
                	push( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561147	561282	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "fe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562230	562365	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "fe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103887	1103980	
==>VAL type = pmc_type(interpreter, class);\n\tif (!type) {\n\t\tParrot_autoload_class(interprete <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105102	1105195	
==>VAL type = pmc_type(interpreter, class);\n\tif (!type) {\n\t\tParrot_autoload_class(interprete <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647553	647803	
==>c.ops\"\n    {{\@1}} = pmc_type(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648314	648564	
==>c.ops\"\n    {{\@1}} = pmc_type(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	310	427	
==>o::Construct::Type::PMC;

use base qw(Jako::Construct::Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556696	556797	
==>c = {{\@2}};\n\n  next = {{^+4}};\n  interpreter->current_object = object;\n  interpreter->current_con <==
2	/Users/nnunley/parrot/languages/regex/test.pl	387	524	
==>nly, because the parrot binary
# will have different names
my $PARROT_EXE = catfile(catdir($FindBin::Bin, updir(), updir()), "parrot");

s <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6634	6718	
==>POST_BRANCH_switch_${CURIC}_LOOP
POST_BRANCH_switch_${CURIC}_LOOP_EXIT:

POST_BRANCH_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4572	4656	
==>POST_BRANCH_switch_${CURIC}_LOOP
POST_BRANCH_switch_${CURIC}_LOOP_EXIT:

POST_BRANCH_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22363	22499	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "inv <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23221	23357	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "inv <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15797	15923	
==>r.pod" );
 $parser->run;

Or:

 my $parser = SomePodProcessor->new;
 $parser->set_source( $some_filehandle_object );
 $parser-> <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	6586	6692	
==>RT = qw( plan run_command skip slurp_file );

use base qw( Exporter );

# tell parrot it's being tested--di <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	14204	14405	
==>{
	for (my $i=0; $i < $n; ++$i) {
	    my $arg = pop @stack;
	    my $g = promote($arg);
	    # TODO should better be namespace of func
	    # but can't create namespace yet
	    my $gn = "def_arg_" . ( <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	355	459	
==>Parrot lib.

First lists the Parrot public embedding API as described in the public
headers F<include/par <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	855	987	
==>me output file
        open LANG, "> $lang_f" or die "Unable to open '$lang_f'"; # JMG
        binmode LANG; # JMG
        print LANG <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	767	899	
==>me output file
        open LANG, "> $lang_f" or die "Unable to open '$lang_f'"; # JMG
        binmode LANG; # JMG
        print LANG <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5183	5335	
==>";
        if ( exists $op->{result} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $first = 1;
            foreach <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6215	6367	
==>";
        if ( exists $op->{result} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $first = 1;
            foreach <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1541	1661	
==>->line : undef
  }, $class;

  $block->push_content($self);

  return $self;
}


#
# ACCESSORS:
#

sub kind  { return shi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2472	2608	
==>1 NAME

Pod::Simple::XMLOutStream -- turn Pod into XML

=head1 SYNOPSIS

  perl -MPod::Simple::XMLOutStream -e \
   "exit Pod::Simple::XM <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	3789	3933	
==>'new() works' );

    ok( $btaste->Title      eq 'Bad Taste',     'Title() get'    );
    ok( $btaste->Director   eq 'Peter Jackson', 'Director() <==
2	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	929	1106	
==>rsion;
    $parrot_version =~ s/\s+//g;
    @parrot_version = split(/\./, $parrot_version);

    if ( scalar(@parrot_version) < 3 ) {
        die "Too few components to VERSION f <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6934	7100	
==>ern, $captures) = @_;
    $target = _parrot_stringify($target);
    $pattern = _parrot_stringify($pattern);
    return qq(
        .sub _PGE_Test
            .local pm <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4429	4560	
==>ern, $captures) = @_;
    $target = _parrot_stringify($target);
    $pattern = _parrot_stringify($pattern);
    my $unicode = ($targ <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	932	1043	
==>e compiled for use with the Parrot interpreter.

=head1 COMMAND-LINE OPTIONS

=over 4

=item C<--debug>

Increas <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	15628	15787	
==>,
			'CHAR' => 4,
			"<" => 22,
			"+" => 24,
			'CODE' => 6,
			"(" => 10,
			"|" => 26,
			"*" => 27,
			"[" => 14,
			")" => 56,
			"." => 15
		},
		GOTOS => <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	67	215	
==>Parrot/Docs/Section/BigNum.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Section::BigNum - Big Number documentation se <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	837	929	
==>ue!" unless UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess "Op is not <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	849	941	
==>ue!" unless UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess "Op is not <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	2797	2949	
==>{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	36869	37021	
==>{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	775	886	
==>ld remain unchanged.
#
# (c) Copyright 1998-2001 Francois Desarmenien, all rights reserved.
# (see the pod te <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	753	861	
==>ld remain unchanged.
#
# (c) Copyright 1998-2001 Francois Desarmenien, all rights reserved.
# (see the pod te <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18706	18879	
==>s[CURR]
	ret
RETURN2
		if (! $runtime_jump) {
			warn "Note: RETURN x causes slow IMCC compilation\n";
			$runtime_jump=1;
		}
	}
}
sub parse_loop {
	my $do=pop @dos;
	if ($d <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2089	2396	
==>N2;              # div    N1, N1, N2
                              #
print "M op/s:        $N1\n"; # print  "M op/s:        "
                              # print  N1
                              # print  "\n"
                              #
exit(0);                      # end

=head1 SEE ALSO

F<examples <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	2089	2396	
==>N2;              # div    N1, N1, N2
                              #
print "M op/s:        $N1\n"; # print  "M op/s:        "
                              # print  N1
                              # print  "\n"
                              #
exit(0);                      # end

=head1 SEE ALSO

F<examples <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	2288	2466	
==>ess ($type[PREV] eq "STMT") {
			#print CODE "set .LINE, $sourceline\n";
			debug() if $debug;
		}
	}
	feedme;
	#print "Type $type[CURR] Sym $syms[CURR]\n";
	goto UNK if ($type[CU <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	24410	24571	
==>. . . . . . . . . . . .

sub _ponder_extend {

  # "Go to an extreme, move back to a more comfortable place"
  #  -- /Oblique Strategies/,  Brian Eno and Peter Sc <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	137	227	
==>as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Statement/Ari <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	133	221	
==>as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Statement/A <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	58327	58465	
==>, 4,
sub
#line 520 "Lua\lua51.yp"
{
            PopScopeF( $_[0] );
            BuildFunctionBody( $_[0], [], $_[3] );
        }
	], <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	1324	1426	
==>t originally intended that it was a mechanism for building a bigger
virtual ops file from multiple phys <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	6064	6302	
==>{
      if(($tagname = $token->tagname) eq 'L') {
        esc($type = $self->do_link($token)); # reuse it, why not
        if(defined $type and length $type) {
          print $fh "<a href='$type'>";
        } else {
          print $fh "< <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	527	652	
==>$self->kind;
  my $peer        = $self->peer;

  my $prefix;

  if ($self->prefix) {
    $prefix = $self->prefix;
  }
  else { <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	507	632	
==>$self->kind;
  my $peer        = $self->peer;

  my $prefix;

  if ($self->prefix) {
    $prefix = $self->prefix;
  }
  else { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48585	48698	
==>PARROT_BOUNDS_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_BOUNDS_FLAG); }\n  {{=0,+=2}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49375	49488	
==>PARROT_BOUNDS_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_BOUNDS_FLAG); }\n  {{=0,+=2}};\n", <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	557	647	
==>rot::OpsFile;
use Parrot::OpTrans::Compiled;
use Parrot::OpLib::core;
use Parrot::Config;
u <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	412	524	
==>tion);

use Jako::Construct::Type;


#
# new()
#

sub new
{
  my $class = shift;

  my ($block, $type, $ident, $v <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712437	712530	
==>erpreter, io, \" \");\n  s = Parrot_sprintf_c(interpreter, \"%.12g\", (double){{\@1}});\n  PIO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713544	713637	
==>erpreter, io, \" \");\n  s = Parrot_sprintf_c(interpreter, \"%.12g\", (double){{\@1}});\n  PIO <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	40818	40963	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      $para->[0] =~ s/^[~=]//s;

      DEBUG and print "\n", pretty($para), "\n";

      # traverse the tre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571138	571235	
==>preter, {{\@3}});\n    {{\@1}} = Parrot_object_isa(interpreter, {{\@2}}, class);\n    {{+=4}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572093	572190	
==>preter, {{\@3}});\n    {{\@1}} = Parrot_object_isa(interpreter, {{\@2}}, class);\n    {{+=4}};\n", <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9245	9329	
==>23 */
GG,$b,$c,$d,$a,$_[8],20,0xe7d3fbc8,/* 24 */
GG,$a,$b,$c,$d,$_[13],5,0x21e1cde6, <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	253	356	
==>048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statement::Call;

use Carp <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3261	3363	
==>c' => "CONST(%ld)->u.string",
    'kc' => "CONST(%ld)->u.key",
    'kic' => "cur_opcode[%ld]"
);

=item <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2169	2269	
==>c'  => "CONST(%ld)->u.string",
  'kc'  => "CONST(%ld)->u.key",
  'kic' => "cur_opcode[%ld]"
);

=item <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	3741	3889	
==>g ? 'PARROT_DYNEXT_EXPORT' : 'PARROT_API';

my %hashed_ops;

#
# Read the input files:
#

my $ops;
if ($core_flag) {
    $ops = Parrot::OpsFile->new( <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	54937	55084	
==>t is matched against the text in a scalar context with a leading
'\G' and the gc modifiers enabled. The extracted value is either
$1 if that variabl <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20342	20449	
==>e instead just
writing a program that does something simple with a Pod::PullParser
object (and not an object <==
2	/Users/nnunley/parrot/config/gen/platform.pm	589	716	
==>= @_;

    my $verbose  = $conf->options->get('verbose');
    my $platform = lc $OSNAME;

    $platform = "ansi"  if defined($co <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	4514	4641	
==>r attribute="String" context="#stay" String="'" />
      </context>

END

print <<END;
      <context name="string_interp" attri <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	349	466	
==>return bless {};
}

sub output_is() {
    my ($self, $code, $output, $desc) = @_;
  
    my $count = $self->{builder}- <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	387	504	
==>return bless {};
}

sub output_is() {
    my ($self, $code, $output, $desc) = @_;
  
    my $count = $self->{builder}- <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	18499	18776	
==>code")
                  if $exit_code and not $pass;

            unless($ENV{POSTMORTEM}) {
                unlink $out_f;
            }

            return $pass;
        };
    }

    my %builtin_language_prefix = (
        IMC   => 'pir',
        PASM  => 'pasm',
        P <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	15948	16199	
==>code")
                  if $exit_code and not $pass;

            unless($ENV{POSTMORTEM}) {
                unlink $out_f;
            }

            return $pass;
        };
    }

    my %pir_2_pasm_test_map = (
        pir_2_pasm_is      => 'is_eq <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	10624	10829	
==>t go here.
	print "Mistake"
elseif g then
	print "Also a mistake"
else 
	print "Correct"
end if

' Simple variable assignment, expect 7
a=0
b=7
a=b
print a

' Expect rough PI
print 22/7

' Expect 6.00000
t= <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34818	34958	
==>'number'};
             # Only a PROPER item-number element is allowed
             #  to have a number attribute.
          } elsif($item_ty <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	531236	531620	
==>2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cosh",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 " <==
2	/Users/nnunley/parrot/config/init/defaults.pm	4160	4287	
==>irectory
        blib_dir      => 'blib/lib',

        # libparrot library names
        libparrot_static => 'libparrot'.$Config <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	49	169	
==>IX qw(locale_h);
use locale;
use File::Spec;


=head1 NAME

tools/dev/gen_charset_tables.pl -- generate charset tables

= <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	23016	23211	
==>the op and set argument meta-variables.
	# There is something slightly curious going on here. sub_meta will create
	# the .local declarations for arguments, but it needs to know the argument
	# ty <==
2	/Users/nnunley/parrot/lib/Test/More.pm	36786	36879	
==>t::More.

L<Test::Class> is like XUnit but more perlish.

L<Test::Deep> gives you more powerfu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649683	649884	
==>[
                              "i",
                              "kc"
                            ],
                  "BODY" => "#line 234 \"src/ops/pmc.ops\"\n    {{\@1}} = pmc_type_p(interpreter, { <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	278	366	
==>Parrot::Docs::Section::Parrot->new->write_html;

=head1 DESCRIPTION

This is the top-leve <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	665	826	
==>defined $token;

  return Jako::Construct::Expression::Value::Identifier->new($block, $token) if $token->kind eq 'ident';
  return Jako::Construct::Expression::Va <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578217	578441	
==>" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 284 \"src/ops/object.ops\"\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, NULL) <==
2	/Users/nnunley/parrot/config/auto/jit.pm	4190	4310	
==>.h $(SRC_DIR)/exec_dep.h $(SRC_DIR)/exec_save.h',
                TEMP_exec_o =>
                    '$(SRC_DIR)/exec$(O) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	538676	539008	
==>"n",
                              "n"
                            ],
                  "BODY" => "#line 982 \"src/ops/math.ops\"\n  {{\@1}} = tan((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	533288	533488	
==>ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 890 \"src/ops/math.ops\"\n  {{\@1}} = log((FLOATVAL){{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1256	1346	
==>e_t* (*interface_f)(Interp*, INTVAL*, void **);\n\n\n\n/*\n** pmc.ops\n*/\n\n\n\n/*\n** pyt <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196838	197154	
==>e",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 233,
                  " <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	2860	2961	
==>DERR "$errors parse errors.  " if ($errors);
    print STDERR "Found " . scalar(keys %$typedefs) . " t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197734	198238	
==>e",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 234,
                  "ARGS" => [
                              "ic",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 366 \ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	624668	624866	
==>\"src/ops/pic.ops\"\n    Parrot_MIC *mic;\n    Parrot_PIC_lru *lru;\n    void *args[6];      /* TODO ARG_MAX */\n    parrot_context_t *ctx;\n    opcode_t *pc;\n    void **pred_pc;\n    INTVAL i, n_ar <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4396	4551	
==>e stack.
		$pir .= <<'PIR'
${INS} = concat "push s, "
${INS} = concat ${LOADREG}
${INS} = concat "\n"
PIR
	}

	return $pir;
}

# Pre and post store operatio <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4840	4962	
==>les, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);
    my @ungrouped_pmcs = grep { ! exists <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4944	5066	
==>les, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);
    my @ungrouped_pmcs = grep { ! exists <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11431	11578	
==>ult Paragraph Font;}
{\*\cs16 \additive \i \sbasedon10 pod-I;}
{\*\cs17 \additive \i\lang1024\noproof \sbasedon10 pod-F;}
{\*\cs18 \additive \b \sba <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	1122	1248	
==>) = @_;

    local $/ = undef;
    open my $file, "<", $filename
        or die "can't open '$filename' for reading";

    retu <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2515	2642	
==>self{ERRST}}=0;
    undef;
}

sub YYNberr {
	my($self)=shift;

	${$$self{NBERR}};
}

sub YYRecovering {
	my($self)=sh <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2410	2526	
==>self{ERRST}}=0;
    undef;
}

sub YYNberr {
	my($self)=shift;

	${$$self{NBERR}};
}

sub YYRecovering {
	my($self)=sh <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13597	13756	
==>le' block, we might be beginning the 'continue'
      # block, so we check for that case.
      #
      # We *always* create a continue block, even when there i <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	46177	46362	
==>method-maker
  no strict 'refs';
  foreach my $attrname (@_) {
    next if $attrname =~ m/::/; # a hack
    *{caller() . '::' . $attrname} = sub {
      use strict;
      $Carp::CarpLeve <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3003	3126	
==>AIN PROGRAM ################

my ($mode, @pmcs) = @ARGV;

if ($mode eq 'generate') {
    # Convert X.pmc -> X.dump and X.c a <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3107	3230	
==>AIN PROGRAM ################

my ($mode, @pmcs) = @ARGV;

if ($mode eq 'generate') {
    # Convert X.pmc -> X.dump and X.c a <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	11197	11307	
==>got, 'eq', $expect) unless $test;
        return $test;
    }

    return $self->cmp_ok($got, 'eq', $expect, $n <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33128	33277	
==>$expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcodes1, new AssignOp( $parser,
            'result' => $var,
            'arg1'   => $nil- <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	23256	23392	
==>pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, @{ $expr1->[1] };
    my $l <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	6326	6471	
==>94,
 'darr'     , 8595,
 'harr'     , 8596,
 'crarr'    , 8629,
 'lArr'     , 8656,
 'uArr'     , 8657,
 'rArr'     , 8658,
 'dArr'     , 8659,
 ' <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	32323	32431	
==>ack

=end _private

=cut

$SIG{__DIE__} = sub {
    # We don't want to muck with death in an eval, but $^S is <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Posix.pm	49	143	
==>six.pm 16454 2006-02-01T20:44:27.448243Z bernhard  $

package Parrot::Test::Bc::Posix;

use str <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	19116	19242	
==>es) {
        my $class = read_dump($include, $file);

        print "    " x $depth, $class->{class}, "\n";
        print_tree <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	491	596	
==>s

=head1 DESCRIPTION

This script uses a supplied transform to create a pair of C header and
implementati <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	2906	3025	
==>);
     sub start_L { print Dumper( '' . $_[1]{'section'} ) }
     __PACKAGE__->new->parse_string_document('=head1 L<Foo <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2322	2436	
==>al = $self->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exists($$self{USER})
	or	$$self{ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2235	2340	
==>al = $self->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exists($$self{USER})
	or	$$self{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826712	826946	
==>ack!\");\n  }\n\n  {{\@1}} = UVal_num(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827782	828016	
==>ack!\");\n  }\n\n  {{\@1}} = UVal_num(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	854	959	
==>ns should be specified as strings
and without leading/trailing pattern delimiters.

(Hint: if you try usin <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2952	3057	
==>ns should be specified as strings
and without leading/trailing pattern delimiters.

(Hint: if you try usin <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	527	663	
==>$ch eq '-' and
            ($token =~ /^[a-z]/ or               # Dashes can be in an ident
             $token =~ /^[-]\d+(\.\d+)?[eE]/) <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	8058	8216	
==>//_/g;
        
        print OUT qq(
           <tr>
             <td>$source_file</td>
             <td><a href="$outfile_base.lines.html">@{[$file_line_cove <==
2	/Users/nnunley/parrot/config/auto/headers.pm	193	298	
==>ION

Probes for various C headers.

=cut

package auto::headers;

use strict;
use vars qw($description @ar <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	997	1151	
==>bless {
    BLOCK => $block,

    TYPE  => $type,
    NAME  => $ident->value,
    PROPS => $props,
    ARGS  => $args,

    DEBUG => 1,
    FILE  => $ident <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851389	851701	
==>"inline",
                  "CODE" => 966,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 83 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	26683	26795	
==>cent::_hint($@);
	}

	# QUIETLY PREVENT (WELL-INTENTIONED) CALAMITY
	$mod =~ s/[gc]//g;
	$pattern =~ s/(\A|[^\\]) <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	839	989	
==>ants[i]
END
}

=item C<pc($pc)>

=item C<pc()>

Sets/gets the current position in Parrot code.

=cut

sub pc
{
    my $self = shift;

    if (@_)
    { <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4120	4219	
==>p $a2, $a1, EQ_$eqnum
	set $result, 0.0
EQ_$eqnum: noop
CODE
	},
	'and' => sub {
		my($a1,$a2,$resul <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	477	582	
==>al pmc s
    s = new ResizablePMCArray
CODE
PIR
}

# Post translation hook.
sub post_translation() {
	# No <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	26322	26480	
==>ift @$paras;
        next;
        
      } elsif($paras->[0][0] eq '~end') {
        $self->whine(
          $para->[1]{'start_line'},
          "=over is the <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6328	6445	
==>' Force first pass through the array.
WHILE Exchange          ' Sort until no elements are exchanged.
   Exchange=FALS <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15981	16098	
==>' Force first pass through the array.
WHILE Exchange          ' Sort until no elements are exchanged.
   Exchange=FALS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561793	561887	
==>s/object.ops\"\n  opcode_t *next = {{^+4}};\n  {{\@1}} = VTABLE_find_method(interpreter, {{\@2} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562877	562971	
==>s/object.ops\"\n  opcode_t *next = {{^+4}};\n  {{\@1}} = VTABLE_find_method(interpreter, {{\@2} <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	5232	5349	
==>]!;
	if ($vtables{$arg}) {
	    $real_name = $vtables{$arg};
	}
    }
    print <<EOC;
.end		# $cur_func
.namespace [" <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1594	1745	
==>->new();

my $path_to_parrot = $INC{"Parrot/Config.pm"};
$path_to_parrot =~ s:lib/Parrot/Config.pm$::;
$path_to_parrot = File::Spec->curdir()
    if $pa <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	2468	2670	
==>part read-only (const) data sections

my ($Code, $Data, $Init, $Uninit, $Const, $Mutable,
    $Global, $Local, $Undef, $Def, $File,
    $ObjectName, $Type, $BSD, $Long, $Help, $Version);

sub show_versio <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	9689	9864	
==>turn ($N1)
neg_one:
    $N1 = asin op2
    .return ($N1)
neg_two:
    $N1 = acos op2
    .return ($N1)
neg_three:
    $N1 = atan op2
    .return ($N1)
neg_four:
    $N1 = op2 * <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2618	2733	
==>$self);

  return $self;
}

# block handled by superclass?

sub kind  { return shift->{KIND};     }
sub type  { retu <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2735	2844	
==>$self);

  return $self;
}

# block handled by superclass?

sub kind { return shift->{KIND}; }
sub type { retu <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	6621	6831	
==>ame'}\n";
            }
        }

        # arguments
        elsif (/^arguments$/) {
            if ($has_args) {
                die "Duplicate value for arguments in rule $rule->{'name'}\n";
            } el <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824415	824506	
==>rnal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_STRING) { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825486	825577	
==>rnal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_STRING) { <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2108	2216	
==>d $self->peer->prefix) {
    $self->prefix($self->peer->prefix);
  }

  if ($self->prefix) {
    $handler->st <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1985	2093	
==>d $self->peer->prefix) {
    $self->prefix($self->peer->prefix);
  }

  if ($self->prefix) {
    $handler->st <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349121	349211	
==>t path = string_to_cstring(interpreter, {{\@2}});\n\n  {{\@1}} = PIO_open(interpreter, NULL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350123	350213	
==>t path = string_to_cstring(interpreter, {{\@2}});\n\n  {{\@1}} = PIO_open(interpreter, NULL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189586	189791	
==>p",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 306 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627190	627288	
==>LASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n\n  /* Why?? If we're creating <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628334	628432	
==>LASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n\n  /* Why?? If we're creating <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	5169	5281	
==>f is always sent to signal end-of-stream

    } elsif(exists $self->{'source_scalar_ref'}) {

      DEBUG and pri <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	8687	8935	
==>rgs) = @_;

  my $message = sprintf($format, @args);

  $message = sprintf("%s [%s]: %s error: %s", $self->file, $self->line, $kind, $message);

  if ($self->debug) { confess $message; }
  else              { die "$message\n"; }
}


#
# PARSE_ERROR( <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	33964	34211	
==>p !$_->{'ok'}, 
                              @{$test_results}[0..$self->{Expected_Tests}-1];
        $num_failed += abs($self->{Expected_Tests} - @$test_results);

        if( $self->{Curr_Test} < $self->{Expected_Tests} ) {
            my $s = $s <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	4836	5092	
==>REG/$1REG/g;
                $asm =~ s/&CONST/CONST/g;
                # Use the macro
                $asm =~ s/CALL_FUNCTION\(\s*jit_info\s*,\s*\(void\*\)\s*(.*)\)/CALL("$1")/g;
                # The ->u.(string|float) is unnecessary.
                $asm <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	1872	2103	
==>cs.pl'),
        ),
        $self->new_group('Building', '',
            $self->new_item('', 'tools/build/c2str.pl'),
            $self->new_item('', 'tools/build/dynoplibs.pl'),
            $self->new_item('', 'tools/build/dynpmc.p <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	610	720	
==>y $parrotdir = dirname $self->{parrot};

    my $args = $ENV{TEST_PROG_ARGS} || '';

    $lang_f = File::Spec-> <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	647	757	
==>y $parrotdir = dirname $self->{parrot};

    my $args = $ENV{TEST_PROG_ARGS} || '';

    $lang_f = File::Spec-> <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	12048	12188	
==>reamble_ref},
            "t_$temp_num = (double)GET_NCI_N($reg_num);";
        return "t_$temp_num";
    };
    /N/ && do {
        push @{$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605356	605566	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606146	606356	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 " <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9916	10078	
==>aps
    #  to whatever $this->{accept_codes}{thatelementname} is,
    #  i.e., "thatelementname".  Then when we go re-mapping,
    #  a "W" in the treelet turns in <==
2	/Users/nnunley/parrot/examples/benchmarks/freeze.pl	358	514	
==>chive the array.

=cut

use strict;
use warnings;

use Storable qw( freeze thaw dclone );
use Time::HiRes qw( time );

my @a;
my $s = time();
for my $i (0..9 <==
2	/Users/nnunley/parrot/lib/Test/More.pm	19720	19873	
==>how you...

=over 4

=item B<SKIP: BLOCK>

  SKIP: {
      skip $why, $how_many if $condition;

      ...normal testing code goes here...
  }

This declar <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6309	6420	
==>{
EOM

    for my $entry (@{$vtable}) {
    next unless ($entry->[4] =~ /MMD_/);
    next if ($entry->[4] =~ /_I <==
2	/Users/nnunley/parrot/config/auto/format.pm	549	687	
==>vformat, $nvformat, $nvsize);
    my ($iv,       $nv,       $floatsize, $doublesize, $ldsize) = $conf->data->get(
        qw(iv nv floatsiz <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36493	36673	
==>me);
    }
    my $decl = $self->decl($self->{class}, $method, 0);
    my $ret = gen_ret($method);
    # I think that these will be out by one - NWC
    my $l = $self->line_directiv <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	2303	2645	
==>N="MIDDLE">
                    <BR>
                    <DIV CLASS="FOOTER">
                        <DIV ALIGN="LEFT">
                        </DIV>
                    </DIV>
                </TD>
                <TD VALIGN="middle" ALIGN="center">
                    <IMG BORDER=0
                        SRC="$resources/parrot.small.png <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	3069	3313	
==>ed (including missing or extras)

If you fail more than 254 tests, it will be reported as 254.

This module is by no means trying to be a complete testing system.
It's just to get you started.  Once you're off the ground its
recommended you look <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10215	10345	
==>x10
#DBG>		and	print STDERR "**No state left on stack: aborting.\n";

			return(undef);
		};

		#shift the error token

#DB <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9756	9878	
==>x10
#DBG>		and	print STDERR "**No state left on stack: aborting.\n";

			return(undef);
		};

		#shift the error token

#DB <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	18620	18720	
==>}

=item C<minor_version()>

Returns the minor version number.

=cut

sub minor_version
{
    my $sel <==
2	/Users/nnunley/parrot/lib/Test/More.pm	35038	35133	
==>xible testing functions for
complex data structures.


=item Threads

Test::More will only be aw <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1096654	1096778	
==>tal.ops\"\n    PMC *ns = Parrot_NameSpace_name(interpreter, \n                                    VTABLE_namespace(interprete <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6700	6932	
==>call the vtable methods on a PMC for the
elements in the referenced vtable array.

=cut

sub vtbl_embed
{
    my $vtable = shift;

    my $funcs  = q{};
    my $protos = q{};

    for my $entry (@$vtable)
    {
        my ($return_ty <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	23575	23741	
==>de with a new parent
        }
      } elsif($is eq '0') {
        splice(@$treelet, $i, 1); # just nix this node (and its descendants)
        --$i;  # back-update th <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	3195	3369	
==>eate new rule structure.
            $rule = {
                name    => $name
            };
        }

        # Is it a value within a rule with a heredoc?
        elsif ( <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	17215	17383	
==>$para, 2; # so it ends up just being ['=item', { attrhash } ]
    return $para->[1]{'~type'} = 'bullet';

  } elsif($content =~ m/^\s*(\d+)\.?\s*$/s) {
    # Like: "=ite <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1407	1529	
==>0, "Searching for symbol '$name'...");

  my $sym = $self->block->find_symbol($name);

  unless ($sym) {
#    $self->block- <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7716	7929	
==>=       $$dotpos
                        ?   map { $$_[1] } @$stack[ -$$dotpos .. -1 ]
                        :   ();

            $semval = $code ? &$code( $self, @sempar )
                            : @sem <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7365	7573	
==>=       $$dotpos
                        ?   map { $$_[1] } @$stack[ -$$dotpos .. -1 ]
                        :   ();

            $semval = $code ? &$code( $self, @sempar )
                            : @sem <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	264	365	
==>r
  %Latin1Code_to_fallback
  %Latin1Char_to_fallback
  e2char
  e2charnum
);
%EXPORT_TAGS = ('ALL' => <==
2	/Users/nnunley/parrot/lib/Test/More.pm	19635	19810	
==>ally, a
block of tests which can be skipped over or made todo.  It's best if I
just show you...

=over 4

=item B<SKIP: BLOCK>

  SKIP: {
      skip $why, $how_many if $conditi <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	5834	5929	
==>eamble);

\$VERSION = "$version";

END_C

print MODULE $preamble;
print MODULE Data::Dumper->Dum <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	55002	55112	
==>'\G' and the gc modifiers enabled. The extracted value is either
$1 if that variable is defined after the match <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	57843	57965	
==>pported: \"$code\"",
					       $line);
					_hint("Items like $code that consist of angle
					brackets enclosing a seque <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354139	354428	
==>],
                  "TYPE" => "function",
                  "CODE" => 413,
                  "ARGS" => [
                              "sc"
                            ],
                  "BODY" => "#line 200 \"src/ops/io.ops\"\n  STRING * const s = {{\@1}};\n  if (s && string_length(int <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426169	426318	
==>ops\"\n  mmd_dispatch_v_pi(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427056	427205	
==>ops\"\n  mmd_dispatch_v_pi(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	30146	30327	
==>self, $op, $name, $R, $num_groups, $lastback) = @_;

    # Generate code for saving/restoring the "rxlocals" gathered while
    # rewriting the regex
    my @save_rxlocals;
    my @r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037712	1037928	
==>s\"\n    Parrot_store_global(interpreter, NULL, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038493	1038709	
==>s\"\n    Parrot_store_global(interpreter, NULL, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	23197	23302	
==>nclude, ".", "$FindBin::Bin/../..", "$FindBin::Bin/../../src/pmc/";

    if ( 0 == grep { $action{$_} } ke <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3865	3985	
==>_CALL',  'set', 'I0', 0],
  ['',            'invoke'],
  ['apply_HELP',  'P16', 'P16[1]'],
  ['',            'inc', 'I1'] <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	3019	3163	
==>failed with exit code $exit_code."
                if $exit_code;
            $self->{builder}->diag($diag) if $diag;
        }

        # T <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2630	2755	
==>failed with exit code $exit_code." if $exit_code;
            $self->{builder}->diag( $diag ) if $diag;
        }

        # T <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191539	191681	
==>"
                            ],
                  "BODY" => "#line 313 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192479	192621	
==>"
                            ],
                  "BODY" => "#line 313 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	557	693	
==>:isa($block, 'Jako::Construct::Block');
  confess "Token is not!" unless UNIVERSAL::isa($token, 'Jako::Token');

  return bless {
    BLO <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	14489	14604	
==>nting a regular expression.

Returns a Perl value which may be used instead of the corresponding
regular expression, <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9688	9789	
==>})

# If it's a call to instantiate, need to knock off first arg.
if "${CURIC}" != "73" goto pre_call_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7202	7303	
==>})

# If it's a call to instantiate, need to knock off first arg.
if "${CURIC}" != "73" goto pre_call_ <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	9610	9792	
==>N1)
six:
    $N1 = cosh op2
    .return ($N1)
seven:
    $N1 = tanh op2
    .return ($N1)
neg_one:
    $N1 = asin op2
    .return ($N1)
neg_two:
    $N1 = acos op2
    .return ($N1)
n <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	42352	42544	
==>3', $count-5]); # Tell about number of registers
  $self->_add_inst('', 'invokecc');
  $self->_add_inst('', 'set', [$return,'P5']) unless $return eq 'P5';
  $self->_restore_set;

  $return =~ / <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	2079	2225	
==>9_]*}))(.*)$/;

      $compiler->emit("  concat $temp, \"$1\"")
        if defined $1 and $1 ne '';

      my $ident = $2;
      $ident =~ s/^{(.*) <==
2	/Users/nnunley/parrot/languages/regex/test.pl	3300	3404	
==>ver = Regex::Driver->new('pir', emit_main => 1);

    print PIR <<"END";
# Regular expression test
# Gene <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498208	498661	
==>> ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 572,
                  "ARGS" => [
                              "n",
                              "n",
                              "nc"
                            ],
                  " <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6242	6346	
==>lock");
  confess "No symbol name!"  unless defined $name;
  confess "Extra arguments!" if @_;

  my $sym <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	16955	17143	
==>k, [-1, $l->[1], $l->[2]];
}
sub inplace_word
{
    my ($op, $cmt) = @_;
    my $r = pop @stack;
    my $l = pop @stack;
    print <<"EOC";
	$op $l->[1], $r->[1] $cmt
EOC
    push @stack, [ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	12077	12170	
==>cs26 \additive \f1\lang1024\noproof\sbasedon25 pod-codelbock-ital;}
{\*\cs27 \additive \f1\lan <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	5	115	
==>ge Scheme::Tokenizer;

use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

$VERSION   = '0 <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21538	21645	
==>) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(1);
  my $temp = $self-> <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21923	22030	
==>) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(1);
  my $temp = $self-> <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19080	19170	
==>ent::Action"))
	{
		$code .= $parser->{_AUTOACTION}->code($namespace,$rule);
		Parse::RecDe <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	515	619	
==>=item * the estimated number of ops performed,

=item * the elapsed time, and 

=item * the number of M o <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	518	621	
==>=item * the estimated number of ops performed,

=item * the elapsed time, and

=item * the number of M o <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1620	1718	
==>nstance!")
    unless UNIVERSAL::isa($type, "Jako::Construct::Type");

  my $type_name = $type->nam <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1468	1566	
==>nstance!")
    unless UNIVERSAL::isa($type, "Jako::Construct::Type");

  my $type_name = $type->nam <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7594	7722	
==>ile::Spec->devnull
            if $_ and $_ eq '/dev/null';
    }

    if ($out and $err and $out eq $err) {
        $err = "&STD <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28831	28978	
==>> 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 142,
			'functio <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432359	432508	
==>"i"
                            ],
                  "BODY" => "#line 84 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4369	4484	
==>1, EQ_$eqnum
	eq $a2, $ot2, EQ_$eqnum
	set $result, 1.0
EQ_$eqnum: noop
CODE
	},
	'or' => sub {
		my($a1,$a2,$result <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	4658	4781	
==>lib, $fn_name, \"$sig\"");

    if ($self->type) {
      $compiler->emit("  .local " . $self->type . " __result");
      $co <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	1078	1213	
==>new_group('Bytecode', '',
            $self->new_item('', 'tools/build/pbc2c.pl'),
            $self->new_item('', 'tools/dev/pbc_header <==
2	/Users/nnunley/parrot/config/init/defaults.pm	353	481	
==>@args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use FindBin;    # see build_dir
use Parrot::Configure::Step;

$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175633	176156	
==>GS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 210,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 240 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}} <==
2	/Users/nnunley/parrot/config/auto/signal.pm	649	774	
==>ndef,
        has_sigaction      => undef,
        has_setitimer      => undef
    );
    if (defined $conf->options->get('min <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236488	236658	
==>,
                              "s"
                            ],
                  "BODY" => "#line 606 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237370	237540	
==>,
                              "s"
                            ],
                  "BODY" => "#line 606 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	335	448	
==>::Statement::Bitwise;

use Carp;

use base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7553	7688	
==>0!"
    goto FIN
200 print "200!"
    goto FIN
300 print "300!"
    goto FIN
oats:
	print "Oats",
	return
peas:
	print "Peas",
	return
b <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19836	19971	
==>0!"
    goto FIN
200 print "200!"
    goto FIN
300 print "300!"
    goto FIN
oats:
	print "Oats",
	return
peas:
	print "Peas",
	return
b <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	6144	6276	
==>m-number seed (-32768 to 32767)?"
	bsr READLINE
	bsr CHOMP
	I12= S0
PROMPTRND
	} else {
		($result, $type, @code)=EXPRESSION();
		pus <==
2	/Users/nnunley/parrot/lib/Test/More.pm	20764	20861	
==>h SKIP block must have
the label C<SKIP>, or Test::More can't work its magic.

You don't skip test <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33978	34093	
==>if($over_type eq 'bullet') {
          my $item_type = $self->_get_item_type($para);
            # That kills the co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	153715	153965	
==>=> 186,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 127 \"src/ops/cmp.ops\"\n  if (mmd_dispatc <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12147	12270	
==>equire_semicolon;

      my $concat = Jako::Construct::Statement::Concat->new($block, $ident, $ident, $op, $value);
      ne <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4121	4219	
==>epth

# Get type (so we can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign registe <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2537	2635	
==>epth

# Get type (so we can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign registe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87875	88239	
==>S" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 109,
                  "ARGS" => [
                              "p", <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	13184	13487	
==>2;
                    push @opcodes, @{ $key->[1] };
                }
                my $assign = new KeyedSetOp( $parser,
                    'arg1'   => $key->[0],
                    'arg2'   => undef,
                    'result' => $result,
                );
                return [ $re <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	6271	6417	
==>, $1);
      $text = $2;
      next;
    }

    #
    # Identifiers:
    #

    if ($text =~ m{^([a-zA-Z][a-zA-Z0-9_]*(::[a-zA-Z][a-zA-Z0-9_]*)*)(. <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16275	16376	
==>(%opts);	# Get expression tokens
		#print STDERR Dumper(\@expr);
		$whole.=join(' ', map { $_->[0] } @ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	15762	15912	
==>cout .= $self->line_directive($method->{line}, $self->{file});
    $cout .= "{$standard_body\n}\n";
    # We are back to generated code immediately her <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566979	567258	
==>"NAME" => "does",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567873	568152	
==>"NAME" => "does",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	4100	4328	
==>l}\n";
    }

    sub visitNewOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        if ( exists $op->{arg2} ) {
            print {$FH}
                "  new $op->{result}->{symbo <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28211	28310	
==>D_NO_TRACE?'':'
			Parse::RecDescent::_trace(q{<<Didn\'t match terminal>>},
						  Parse::RecDescen <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32486	32585	
==>D_NO_TRACE?'':'
			Parse::RecDescent::_trace(q{<<Didn\'t match terminal>>},
						  Parse::RecDescen <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6065	6222	
==>, $pmc;
        $group_libs{$group} ||= {};
        foreach my $lib ( keys %libs ) {
            $group_libs{$group}->{lib} = 1;
        }
    }

    return ( <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6276	6433	
==>, $pmc;
        $group_libs{$group} ||= {};
        foreach my $lib ( keys %libs ) {
            $group_libs{$group}->{lib} = 1;
        }
    }

    return ( <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1208	1305	
==>re` statements 
will find modules which are not located on Pugs's default
search path.

= LIMITATI <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1092	1273	
==>r )    = @_;
    my ( $defn,   $opcodes ) = @{$expr};
    if ( scalar( @{$opcodes} ) and $opcodes->[-1]->isa('ToBoolOp') ) {
        my $tobool = pop @{$opcodes};
        my $new <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	701	824	
==>'"' . $in . '"';
    $out[-1] =~ s/([^- \:\:\.\,\'\>\<\"\/\=\?\+\|\[\]\{\}\_a-zA-Z0-9_\`\~\!\#\%\^\&\*\(\)])/
      sprintf( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11100	11234	
==>ako::Construct::Statement::Decrement->new($block, $ident);
      }

      next;
    }

    #
    # Arithmetic assigns:
    #
    #   <v <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	11519	11630	
==>textref, "", '\{', '\}', '\{', '\}', 0)
		or $deref eq '$#' or $deref eq '$$' )
	    {
		_failmsg "Bad identifie <==
2	/Users/nnunley/parrot/lib/Test/More.pm	25148	25294	
==>eply {
    unless( @_ == 2 or @_ == 3 ) {
        my $msg = <<WARNING;
is_deeply() takes two or three args, you gave %d.
This usually means you pas <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23542	23677	
==>okahead" => $_[1],
		"line"      => $_[2],
		"name"      => $_[3],
	}, $class;
}

# MARK, YOU MAY WANT TO OPTIMIZE THIS.


sub code($$$$ <==
2	/Users/nnunley/parrot/config/init/defaults.pm	4195	4312	
==>blib/lib',

        # libparrot library names
        libparrot_static => 'libparrot'.$Config{_a},
        libparrot_s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218594	218827	
==>RGS" => [
                              "p",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 469 \"src/ops/cmp.ops\"\n  if (string_compare(interpr <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33996	34090	
==>$Parse::RecDescent::lastexpected = ' . ($rule->hasleftmost($self) ? 'q{}'
				# WAS : 'qq{'.$se <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25414	25535	
==>ave_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    my $t <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27314	27435	
==>ave_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    my $t <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	40157	40324	
==>lt} eq 'break' ) {
                    $parser->Error("no loop to break\n");
                }
            }
        }
        unshift @{ $parser->YYData->{functs} <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39084	39231	
==>lt} eq 'break' ) {
                $parser->Error("no loop to break\n");
            }
        }
    }
    unshift @{ $parser->YYData->{functs} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22044	22150	
==>~ m{<head1>NAME</head1><Para>(X|</?[BCIFLS]>)+</Para>$}s
    ) {
      # Whee, it fits the pattern
      DE <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	54552	54648	
==>extraction (like $` in a pattern match). Note that this is designed
to facilitate the use of othe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81980	82284	
==>e compile - just invoke the compiler\");\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82874	83178	
==>e compile - just invoke the compiler\");\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	771	881	
==>rns the class used in the various file creation methods. This default
implementation returns C<Parrot::IO::File <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3034	3132	
==>ddress off control stack.

=item C<expr OFFSET(X)>

Transforms to C<PC + X>. This is used to give a <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	5830	5989	
==>$function} = [ $asm , $extern ];
            $function = undef;
        }
        unless ($jit_cpu) {
            $line =~ s/emitm_pushl_i/emitm_pushl_m/ if ($l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019757	1019856	
==>e 192 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  char resultbuffe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020688	1020787	
==>e 192 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  char resultbuffe <==
2	/Users/nnunley/parrot/config/auto/inline.pm	131	223	
==>ad1 NAME

config/auto/inline.pm - Inline Compiler Support

=head1 DESCRIPTION

Determines whe <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	6774	6952	
==>des{$pc}->{args}});
	    my $source = $op->source($trans);

	    $new_pc = $pc + $op->size;
	    $source =~ s/^\s*goto PC_$new_pc;\s*$//mg if defined($new_pc);
	    $source =~ s/\ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	1775	1911	
==>, $complex_structure2, $test_name);

  SKIP: {
      skip $why, $how_many unless $have_some_feature;

      ok( foo(),       $test_name ) <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	314	593	
==>uration settings and generates various files
# that will be used in the build process.
# #############################################################################

use strict;
use Getopt::Long;

# Parse command line.
our ($parrot_path, $mono_lib_path, $srm);
GetOptio <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18190	18369	
==>ise->new($block, $ident, $left, $op, $right);

      next;
    }

    #
    # Subroutine Calls:
    #
    #     <ident>(<arg>, <arg>, ...);
    #
 
    if ($token->is_ident and $se <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	12051	12255	
==>t
                $$val = $$val+0;
            }
        }
        else {
            $$val = 'undef';
        }
    }

    return $self->diag(sprintf <<DIAGNOSTIC, $got, $expect);
         got: %s
    exp <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	2214	2327	
==>ncs;

    return @funcs;
}

sub function_components {
    my $proto = shift;

    my @parts = split( /\n/, $proto, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028215	1028444	
==>FLOATVAL) {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029066	1029295	
==>FLOATVAL) {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	7199	7340	
==>ie "compile $src_stem.c failed ($?)\n";
    }
    else {
        1;
    }
}

sub partial_link {
    my ($group, $libs, $stems) = @_;

    my @ <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7410	7551	
==>ie "compile $src_stem.c failed ($?)\n";
    }
    else {
        1;
    }
}

sub partial_link {
    my ($group, $libs, $stems) = @_;

    my @ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90866	91195	
==>}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91720	92049	
==>}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLA <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34974	35069	
==>rse::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = $Parse::RecDescent::l <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42084	42179	
==>rse::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = $Parse::RecDescent::l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946807	947049	
==>PE" => "function",
                  "CODE" => 1065,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 526 \"src/ops/string.ops\ <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	1160	1273	
==>'bison_version' => undef,
             'blib_dir' => 'blib/lib',
             'build_dir' => '/Users/nnunley/parro <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4974	5081	
==>,$dotpos)
     = @$self{ 'ERRST', 'NBERR', 'TOKEN', 'VALUE', 'STACK', 'CHECK', 'DOTPOS' };

#DBG>	my($deb <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4732	4836	
==>,$dotpos)
     = @$self{ 'ERRST', 'NBERR', 'TOKEN', 'VALUE', 'STACK', 'CHECK', 'DOTPOS' };

#DBG>	my($deb <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	15196	15343	
==>=> {
			":" => 42,
			"[" => 47,
			"(" => 48,
			"." => 49,
			'STRING' => 44,
			"{" => 38
		},
		DEFAULT => -57,
		GOTOS => {
			'table <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17649	17816	
==>get(2)->is_value
      and $self->get(3)->is_infix_bit
      and $self->get(4)->is_value
    ) {
      my $block = $self->current_block();
      my $ident = Jako::Const <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	15565	15685	
==>b _complain_errata {
  my($self,$line,$complaint) = @_;
  if( $self->{'no_errata_section'} ) {
    DEBUG > 9 and print "D <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832439	832690	
==>"save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 942,
                  "ARGS" = <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	14873	15080	
==>t( rusage => {
        ru_utime => timeval,  # seconds
        ru_stime => timeval,  # microseconds
    });

    struct( timeval => [
        tv_secs  => '$',
        tv_usecs => '$',
    ]);

        # creat <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	4701	4822	
==>and print "  Fetching ", Pod::Simple::MANY_LINES, " lines.\n";
      $self->SUPER::parse_lines(
        splice @{ $self->{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	527	611	
==>p = 'overflow';
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	361	445	
==>p = 'overflow';
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	37	143	
==>use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

$VERSION   = '0.01';
@ISA       = qw(Exporter) <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	40	146	
==>use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

$VERSION   = '0.01';
@ISA       = qw(Exporter) <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	7287	7402	
==>_link {
    my ($group, $libs, $stems) = @_;

    my @sources = map { "$_$O" } @$stems;
    if (needs_build("$group$ <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7498	7613	
==>_link {
    my ($group, $libs, $stems) = @_;

    my @sources = map { "$_$O" } @$stems;
    if (needs_build("$group$ <==
2	/Users/nnunley/parrot/languages/converter.pl	1858	1965	
==>al	: "'" /[^']*/ "'" mod(?)
#		{[@item]}
		{ qq('$item[2]') . ::modifier($item[4]) }
		| '"' /[^"]*/ '"' mod <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	708622	708842	
==>c(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	709271	709491	
==>c(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	2289	2397	
==>? /x) {
        $conf->data->set(bison_version => $3 ? "$1.$2$3" : "$1.$2");
    }

    $conf->data->set($uti <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1638	1793	
==>ry_with_path(File::Spec->catdir(File::Spec->tmpdir, @_));
}

=item C<new($path)>

Returns the instance for specified path.

=cut

sub new
{
    my $self = s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22323	22580	
==>$return = Jako::Construct::Statement::Return->new($block, $value, $cond, $left, $op, $right);
      next;
    }

    #
    # Goto Statements:
    #
    #   goto <label>;
    #   goto <label> if (<value> <op> <value>);
    #   goto <label> unless (<value> <op <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	36985	37102	
==>and
                        Michael G Schwern E<lt>schwern@pobox.comE<gt>.

This program is free software; you can red <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	43019	43142	
==>ontent = $treelet->[$i][2])) {
        $self->whine( $start_line, "An E<...> surrounding strange content" );
        $replac <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658056	658324	
==>S" => [
                              "i",
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 329 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_ke <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8313	8411	
==>o";tab$(15);"Stuff"
print "I am the very model of a modern";tab$(15);"More"
print "Hello","Again",d <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21177	21275	
==>o";tab$(15);"Stuff"
print "I am the very model of a modern";tab$(15);"More"
print "Hello","Again",d <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	225	318	
==>f Parrot::Test::Tcl, which looks like it's
largely a copy of Parrot::Test::Python. Abstraction <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	263	356	
==>f Parrot::Test::Tcl, which looks like it's
largely a copy of Parrot::Test::Python. Abstraction <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2000	2126	
==>+ $arg2;" if defined($arg2);
    return "$realvar += $arg1;";
}

sub output_sub {
    my ($self, $var, $amount) = @_;
    $amou <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	358	492	
==>ined $Lame;

$Linearization_Limit = 90 unless defined $Linearization_Limit;
 # headings/items longer than that won't get an <a name=".. <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7377	7496	
==>= $db_desc ? " ($db_desc)" : "";
        return ("set <rx_tmp>, <rx_stack>",
                $self->pushop . " <rx_stack <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520906	521228	
==>sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 601,
                  "ARGS <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5308	5438	
==>G>					:	$_;
#DBG>		}
#DBG>		$tok.='<';
#DBG>	};

	$$errstatus=0;
	$$nberror=0;
	($$token,$$value)=(undef,undef);
	@$stack= <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5055	5177	
==>G>					:	$_;
#DBG>		}
#DBG>		$tok.='<';
#DBG>	};

	$$errstatus=0;
	$$nberror=0;
	($$token,$$value)=(undef,undef);
	@$stack= <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	13913	14128	
==>tref) < length($$textref))
	{
		$matched = '';
		if ($rd && $$textref =~ m#\G(\Q(?)\E|\Q(s?)\E|\Q(s)\E)#gc)
		{
			$patvalid = 0;
			next;
		}

		if ($$textref =~ m/\G\s*#.*/gc)
		{
			next;
		}

		if ($$textref =~ m <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeDumb.pm	623	819	
==>ported{lc $_[1]};
}

sub encmodver {
  return __PACKAGE__ . " v" .($VERSION || '?');
}

sub make_transcoder {
  my($e) = $_[1];
  die "WHAT ENCODING!?!?" unless $e;
  my $x;
  return sub {;
    #fo <==
2	/Users/nnunley/parrot/config/auto/alignptrs.pm	976	1223	
==>is test.
        $align = 4;
        $conf->data->set(ptr_alignment => $align);
        $self->set_result = "for hpux: ";
    } else {

        # Now really test by compiling some code
        cc_gen('config/auto/alignptrs/test_c.in');
        cc_b <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	40191	40331	
==>ine_syntax,
  'syntax-rules'        => \&_op_syntax_rules,
  'let-syntax'          => \&_op_let_syntax,
  'syntax'              => \&_op_synt <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	724	824	
==>2abs($lang_f);
    $out_f  = File::Spec->rel2abs($out_f);
    Parrot::Test::write_code_to_file( $code <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	761	861	
==>2abs($lang_f);
    $out_f  = File::Spec->rel2abs($out_f);
    Parrot::Test::write_code_to_file( $code <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38505	38677	
==>=> 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 178,
			'functioncall' => 31,
			'funct <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37184	37335	
==>=> 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 176,
			'functionca <==
2	/Users/nnunley/parrot/languages/regex/regex.pl	1270	1382	
==>pr_file: $!";
    $expr = <IN>;
    close IN;
}

$operation ||= "compile";

my %options;
$options{'no-tree-optimi <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40385	40591	
==>=> 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 185,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39373	39562	
==>=> 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 182,
			'functioncall' => 31,
			'function' => 26,
			' <==
2	/Users/nnunley/parrot/config/inter/lex.pm	2324	2433	
==>rsion => "$1.$2.$3");
    }

    $conf->data->set($util => $prog);
    $self->set_result('yes');

    return $ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	43406	43521	
==>aining the current pattern delimiter will cause the regex to be
immediately terminated. In other words:

	'm /
		(?i <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2100	2232	
==>pn\\sb90\\sa180\\f2\\fs#head1_halfpoint_size#\\ul{\n",
 '/head1'  => "\n}\\par}\n",
 'head2'   => "\n{\\pard\\li#rtfindent#\\s32\\kee <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	8605	8755	
==>my $exit_code = $? >> 8;

    close STDOUT             or die "Can't close    stdout" if $out;
    close STDERR             or die "Can't close    stde <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13820	13962	
==>appropriate labels can be generated for
      # the loop control statements to function properly.
      #
      # Put on an empty continue bloc <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	230	329	
==>tput_is output_like output_isnt), @Test::More::EXPORT );
@ISA = qw(Exporter Test::More);

sub import <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	147	246	
==>tput_is output_like output_isnt), @Test::More::EXPORT );
@ISA = qw(Exporter Test::More);

sub import <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	12520	12656	
==>y($sym)) {
NEST_ARRAY_ASSIGN:
				if ($ac == 0) {
					$optype="P";
				}
				push @code, qq{\t\$$optype$retcount = _ARRAY_LOOKUP_$optype <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359370	359464	
==>ngth(interpreter, s)) {\n    PIO_putps(interpreter, PIO_STDERR(interpreter), s);\n  }\n  {{+=2} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360118	360212	
==>ngth(interpreter, s)) {\n    PIO_putps(interpreter, PIO_STDERR(interpreter), s);\n  }\n  {{+=2} <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	6309	6416	
==>S0
.end

# XXX - the first argument to this multi sub should be some variant of
# integer - but if you set i <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3523	3667	
==>Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) = @_;

    #print STDERR "pbcc: map_arg($type, $num)\n";

    die "Unrecognized typ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3322	3447	
==>Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) = @_;

    #print STDERR "pbcc: map_arg($type, $num)\n";

    re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959327	959558	
==>trans_encoding(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960129	960360	
==>trans_encoding(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	259	349	
==>CRIPTION

A Perl implementation of the F<examples/mops/mops.pasm> example program,
for spee <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	255	345	
==>CRIPTION

A Perl implementation of the F<examples/mops/mops.pasm> example program,
for spee <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	3750	3904	
==>{
        return $dir->file_with_name($name)
            if $dir->file_exists_with_name($name);
    }
    
    return;
}

=item C<file_for_perl_module($mod <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1806	1900	
==>ub start_over_bullet  { ++$_[0]{'Indent'} }
sub start_over_number  { ++$_[0]{'Indent'} }
sub st <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1374	1468	
==>ub start_over_bullet  { ++$_[0]{'Indent'} }
sub start_over_number  { ++$_[0]{'Indent'} }
sub st <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	840	970	
==>lank_before = qr { : $}smx;    #labels

my $verbatim_begin = qr{ ^= }smx;
my $verbatim_end   = qr{ ^=cut }smx;

sub get_formatted { <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	1627	1766	
==>le_with_name($name)), 
                $dist->relative_path($dist->c_header_file_with_name($name));
        }
    }
    
    if ( exists $co <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3995	4101	
==>ement({ Name => 'return' });

  if (defined $cond) {
    $handler->end_element({ Name => 'block' });
    $h <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2711	2860	
==>"=encode utf8" );
        $line =~ tr/\n\r//d;
        
      } elsif( $line =~ s/^\xFE\xFF//s ) {
        DEBUG and print "Big-endian UTF-16 BOM seen <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	11559	11660	
==>_SIZE $hash_size

/* we could calculate a prime somewhat bigger than
 * n of fullnames + n of names
 * <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	294	406	
==>ion describing libraries in Parrot.

=head2 Class Methods

=over

=cut

package Parrot::Docs::Section::Libs;

use <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	1644	1743	
==>his produces "ok 1 - Hell not yet frozen over" (or not ok)
  ok( get_temperature($hell) > 0, 'Hell n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539541	539824	
==>c/ops/math.ops\"\n  {{\@1}} = tanh((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	584	1000	
==>read Test::Tutorial> first! **

This is an extremely simple, extremely basic module for writing tests
suitable for CPAN modules and other pursuits.  If you wish to do more
complicated testing, use the Test::More module (a drop-in replacement
for this one).

The basic unit of Perl testing is the ok.  For each thing you want to
test your program will print out an "ok" or "not ok" to indicate pass
or fail.  You do th <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	20888	21335	
==>\s+)?\w+\*?\s+\*?(\w+)\s*\([^)]+\)\s*;/) {
                push @exports, $1;
            }
        }
        close $fh;

        # If it's in a group, put it in group's PMC array.
        if ($pmcs->{$pmcfilename}->{flags}->{group}) {
            for (keys %{$pmcs->{$pmcfilename}->{flags}->{group}}) {
                push @{$groups{$_}}, @exports;
            }
        }

        # Generate .def file for it.
        # XXX JW Needn't generate t <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	14212	14445	
==>ff.
    $pir .= <<'PIRCODE';
    # Look through exception handlers.
    if null ehs goto END_EH_LOOP
    i = elements ehs
EH_LOOP:
    dec i
    if i < 0 goto END_EH_LOOP
    eh = ehs[i]
    
    # If this is the start of a try block, <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	4298	4413	
==>t;

    $value =~ s/^\s+//;
    $value =~ s/\s+$//;

    return $value;
}

=item C<new(@files)>

Returns a new insta <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	43986	44095	
==>args($node);
	$return = $self->_call_function_sym($symbol, @args);
	$self->_restore(@args);
      }
    } else <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	394208	394483	
==>}});\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "tell <==
2	/Users/nnunley/parrot/examples/benchmarks/oofib.pl	107	227	
==>eturn $self->fibA($n-1) + $self->fibB($n-2);
}
sub fibA {
    my $self = shift;
    my $n = shift;
    return $n if ($n < <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	14378	14545	
==>LOOP
    eh = ehs[i]
    
    # If this is the start of a try block, emit a push_eh instruction.
    try_offset = eh.get_try_offset()
    try_length = eh.get_try_length <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17999	18105	
==>pend {
}

sub _op_reverse {
}

sub _op_list_ref {
}

sub _op_memq {
}

sub _op_memv {
}

sub _op_member {
} <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	637	737	
==>N modules.

=head1 HISTORY

Started by josh in 2002.

=head1 AUTHOR

josh

=head1 SEE ALSO

F<docs/pd <==
2	/Users/nnunley/parrot/lib/Test/More.pm	34833	35126	
==>ce.  This is good.

However, it does mean that functions like is_deeply() cannot be used to
test the internals of string overloaded objects.  In this case I would
suggest Test::Deep which contains more flexible testing functions for
complex data structures.


=item Threads

Test::More will onl <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	356	456	
==>arisons.

Calculates a value for M ops/s (million operations per second) using
integer arithmetic.

P <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	352	452	
==>arisons.

Calculates a value for M ops/s (million operations per second) using
integer arithmetic.

P <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	27464	27639	
==>etter} = $canonical_form;
      DEBUG > 2 and print
       "Extensor maps $new_letter => known element $canonical_form.\n";
    } else {
      # We have to use the fallback(s), <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552553	552733	
==>st;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n\n  object = {{\@1}};\n  method_pmc = {{\@2}};\n  /* XXX should we check if object.can(method) */\n\n  next = {{^+3}};\n  interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556609	556710	
==>st;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n\n  object = {{\@1}};\n  method_pmc = {{\@2}};\n\ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2953	3097	
==>r', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P14', 'P16[0]'],
  ['',            'bsr', 'a <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	41393	41518	
==>obj, @_);
  $self->_restore($func_obj);

  return $return;
}

sub _call_function_obj {
  my $self = shift;
  my $func_obj = sh <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	5715	5820	
==>characters or character ranges) won't
# have to do their own checking.
#
# Without this, /abc/ would compi <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	4051	4308	
==>for the elements in the referenced
vtable array.

=cut

sub vtbl_macros {
    my $vtable = shift;

    my $macros = <<"EOM";

/*
 * vtable accessor macros
 * as vtable methods might get moved around internally
 * these macros hide the details
 */

EOM
    fo <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	5030	5155	
==>g' goto print_space
    if old_type != value_type goto print_space
    goto iter_loop
  print_space:
    result .= ' '
    got <==
2	/Users/nnunley/parrot/config/auto/signal.pm	1568	1706	
==>etitimer) " if $verbose;
    }
    cc_clean();

    # now generate signal constants
    open O, ">runtime/parrot/include/signal.pasm" or di <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	964	1061	
==>nts

Note that argument 0 is considered to be the op itself, with arguments
1..9 being the argumen <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	13345	13550	
==>$i] . $func_end .
        $jit_fn_params . "\n{\n" .
        $body . "}\n";
    }
    push @jit_funcs, "{ $jit_func, $extern }, \t" .
            "/* op $i: $core_opfunc[$i] */\n";
}

print JITCPU @jit_func <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	1466	1649	
==>CLASS="BANNER">parrotcode: <SPAN CLASS="title">$title</SPAN></TD>
            </TR>
            <TR>
                <TD WIDTH="100%" COLSPAN="2"  ID="NAV" STYLE="border-bottom: 1px so <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285243	285690	
==>RS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 332,
                  "ARGS" => [
                              "i",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 913 \"src/ops/cmp.op <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	20	271	
==>, The Perl Foundation.
# $Id: /parrot/lib/Parrot/OpTrans/CGP.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::OpTrans::CGP - C Goto Predereferenced Transform

=head1 DESCRIPTION

C<Parrot::OpTrans::CGP> inherits from C<Parrot::OpT <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	1253	1357	
==>erpreted as being relative to the
C<$target> argument in C<write_html()>. There should be at least one
pa <==
2	/Users/nnunley/parrot/config/inter/encoding.pm	1472	1588	
==>.c \$(NONGEN_HEADERS)


END
    }

    # build list of libraries for link line in Makefile
    my $slash = $conf->dat <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	6280	6408	
==>{
    print SOURCE $trans->ops_addr_decl($bs);
}
if ($trans->can("run_core_func_decl")) {
    print SOURCE $trans->run_core_func_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	297	531	
==>:OpTrans::C>
to provide predereferenced register addressing run loop.

=head2 Instance Methods

=over 4

=cut

package Parrot::OpTrans::CPrederef;

use strict;
use warnings;

use Parrot::OpTrans;
use base qw( Parrot::OpTrans::C );

=it <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	44767	44919	
==>g having a " " as the last character.
 
    DEBUG > 4 and print "Formatting <$formatting>    on <", $p->[$i-1], ">\n";


    my @new_line;
    while( $fo <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6686	6824	
==>rint {$FH} ") = ";
        }
        my @args = @{ $op->{arg2} };
        my $obj  = shift @args;
        print {$FH} "$obj->{symbol}.$ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11755	11868	
==>"$class defines unknown vtable method '$method'\n"
      unless defined $super_table->{$method};
    my $supermeth <==
2	/Users/nnunley/parrot/config/init/defaults.pm	4511	4772	
==>inking parrot to a static or shared libparrot
        parrot_is_shared => 0,

        #avoid a warning during Configure.pl
        libparrot_soname => '',

        perl      => $^X,
        test_prog => 'parrot',
        rm_f      => '$(PERL) -MExtUtils::Command <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	345	484	
==>-Z/a-z/;
	}
	push(@tokens, $curtok);
	push(@tokdsc, $_[0]);
	$curtok="";
}

sub tokenize {

	fetch;	
	fetch;
	fetch;
MAIN:
	goto END if $cur <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2872	3006	
==>iption
             \s+ (?:\S+ \s+)? \{ \n     # optional test harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test b <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4269	4403	
==>iption
             \s+ (?:\S+ \s+)? \{ \n     # optional test harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test b <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5479	5595	
==>hile(1) {
        my($actions,$act,$stateno);

        $stateno=$$stack[-1][0];
        $actions=$$states[$staten <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5215	5327	
==>hile(1) {
        my($actions,$act,$stateno);

        $stateno=$$stack[-1][0];
        $actions=$$states[$staten <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	42269	42369	
==>copy;
  }
  return @closers;
}

#-------------------------------------------------------------------- <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	1417	1636	
==>_PIR

}

sub pir_cmds_in_dir {
    my ($dir) = @_;
    
    opendir(DIR,$dir);
    # only return pir files (and strip the extension)
    my @files = grep {s/\.pir$//} readdir(DIR);
    closedir(DIR);
    
    return @fil <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79399	79516	
==>ve the symbol's address. We just need to build\n         a PMC with it so we can get and set the value */\n      {{\@1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80920	81037	
==>ve the symbol's address. We just need to build\n         a PMC with it so we can get and set the value */\n      {{\@1 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10253	10377	
==>te left on stack: aborting.\n";

			return(undef);
		};

		#shift the error token

#DBG>			$debug & 0x10
#DBG>		and	p <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9793	9909	
==>te left on stack: aborting.\n";

			return(undef);
		};

		#shift the error token

#DBG>			$debug & 0x10
#DBG>		and	p <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	576	748	
==>des = ();
    unless ( $parser->YYData->{_G} ) {
        $parser->YYData->{_G} = new_tmp( $parser, 'pmc' );
        push @opcodes, new LocalDir( $parser,
            'pr <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	524	628	
==>er_of_tests) returns Void is export {
    $Test::testing_started = 1;
    $Test::num_of_tests_planned = $ <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	978	1263	
==>ds\s+(\w+)/;
    return $PMC_PARENTS{$pmc} = 'default';
}

# Return an array of all
sub pmc_parents
{
    my ($pmc) = @_;

    my @parents = ($pmc);
    push @parents, pmc_parent($parents[-1]) until $parents[-1] eq 'default';
    shift(@parents);
  
    return @parents;
}

sub get_pmc_ <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	14408	14598	
==>ps.
my @type_pairs = (
  [ 'Float', 'Float' ],
  [ 'Float', 'APLVector' ], 
  [ 'APLVector', 'Float' ], 
  [ 'APLVector', 'APLVector' ], 
);

foreach my $operator (keys %scalar) {
    my ($na <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3283	3394	
==>ead1 SEE ALSO

L<Pod::Simple>

The article "Constants in Perl", in I<The Perl Journal> issue
21.  See L<http://w <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	32839	32992	
==>treelet->[$i][1]{'type'} = 'url';
        $treelet->[$i][1]{'content-implicit'} = 'yes';
        
        if( 3 == @{ $treelet->[$i] } ) {
          # But <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	11256	11373	
==>imag        complex.h
isalnum     ctype.h
isalpha     ctype.h
isblank     ctype.h
iscntrl     ctype.h
isdigit     ctyp <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1222	1332	
==>ul if you don't want to memory-copy the potentially
large text value (well, as large as a paragraph or a verbat <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	19882	20011	
==>defaulted = 1 if $meth_name =~ /_default/;
        $defaulted = 1 if $meth_name =~ /_delegate/;
        $defaulted = 1 if $class = <==
2	/Users/nnunley/parrot/lib/Test/More.pm	37396	37498	
==>right 2001, 2002, 2004 by Michael G Schwern E<lt>schwern@pobox.comE<gt>.

This program is free software <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	6356	6458	
==>right 2001, 2002, 2004 by Michael G Schwern E<lt>schwern@pobox.comE<gt>.

This program is free software <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	68683	68860	
==>nterpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "col <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	69124	69301	
==>nterpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "col <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	6711	6812	
==>' part is used only so that $n within R does not return a
# now-abandoned match. I suppose it should r <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2892	3097	
==>ser->Error("Untermined string.\n");
    $parser->YYData->{lineno}++;
    return ( $type, $str );
}

sub _SingleQuoteStringLexer {
    my $parser = shift;
    my $str    = q{};
    my $type   = 'STRI <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4407	4533	
==>ser->Error("Untermined string.\n");
    $parser->YYData->{lineno}++;
    return ( $type, $str );
}

sub _LongStringLexer { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664203	664461	
==>],
                  "TYPE" => "inline",
                  "CODE" => 742,
                  "ARGS" => [
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 354 \"src/ops/pmc.o <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9571	9668	
==>n($token)>

Processes the specified text token. URLs which are not in link tags
are linked here fo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352296	352404	
==>s/io.ops\"\n  PIO_printf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352954	353062	
==>s/io.ops\"\n  PIO_printf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	10510	10675	
==>rint "Wrong again"
	else 
		print "Correct"
	end if
end if

' Expect Correct
t=0
g=0
if t then
	' t is false, don't go here.
	print "Mistake"
elseif g then
	print "Al <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	2195	2291	
==>hes the expected result.

=item C<pasm_output_isnt($code, $unexpected, $description)> or C<output <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	7778	7889	
==>t not let them get closed.
    open  OLDOUT, ">&STDOUT" or die "Can't save     stdout" if $out;
    open  OLDERR <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7829	7938	
==>t not let them get closed.
    open OLDOUT, ">&STDOUT" or die "Can't save     stdout" if $out;
    open OLDERR <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17367	17621	
==>t::Statement::Concat->new($block, $ident, $left, $op, $right);

      next;
    }

    #
    # Bitwise Operators:
    #
    #   a = b << 4;
    #   a = b >> 4;
    #   a = b & c;
    #   a = b | c;
    #

    if ($token->is_ident
      and $self->get(1)-> <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	42526	42700	
==>et;

  $return =~ /(\w)(\d+)/;
  $self->{regs}->{$1}->{$2} = 1;

  return $return;
}

sub _format_columns {
  my $self    = shift;
  my $colref  = $self->{instruction};
  my @ <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	8306	8419	
==>ex.h
casinf      complex.h
casinh      complex.h
casinhf     complex.h
casinhl     complex.h
casinl      complex.h <==
2	/Users/nnunley/parrot/lib/File/Which.pm	3933	4049	
==>es having the name specified
as a parameter to C<which()>. Under Win32 systems, which do not have a notion of
directl <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	4566	4708	
==>ble_exe, [$src, $dest];
            next;
        }
    } elsif ($meta{include}) {
        $dest =~ s/^include//;
        $dest = File::Spec->c <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	8454	8623	
==>before %s(%s) %s keepn'd.\n",
              $to_unget[-1]->type,
              $to_unget[-1]->can('tagname') ? $to_unget[-1]->tagname : '',
              $self->{'rtfitem <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5248	5459	
==>nline",
                  "CODE" => 7,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 140 \"src/ops/core.ops\"\n  {{+=2}};  /* r <==
2	/Users/nnunley/parrot/lib/Test/More.pm	9959	10075	
==>op, $that, $test_name );

Halfway between ok() and is() lies cmp_ok().  This allows you to
compare two arguments usin <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20132	20247	
==>nless ( exists $th{$type} or
							  exists $usertypes{$type});
			my $marker;
			if (exists $th{$type}) {
				$mar <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761432	761535	
==>| {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_PMC({{\@1}}) = {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762285	762388	
==>| {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_PMC({{\@1}}) = {{ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7294	7498	
==>$len): ";

                $act
            or  $self->YYAccept();

            $$dotpos=$len;

                unpack('A1',$lhs) eq '@'    #In line rule
            and do {
                    $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6958	7153	
==>$len): ";

                $act
            or  $self->YYAccept();

            $$dotpos=$len;

                unpack('A1',$lhs) eq '@'    #In line rule
            and do {
                    $ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	593	767	
==>lf->SUPER::new(
		'Big Number Arithmetic', 'bignum.html', '',
		$self->new_group('Decimal Arithmetic', '',
			$self->new_item('', 'src/bignum.c', 'src/bignum.h'),
		),
		$self <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	569	681	
==>Yapp package available on your
# nearest CPAN
#
# Any use of this module in a standalone parser make the inclu <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	553	662	
==>Yapp package available on your
# nearest CPAN
#
# Any use of this module in a standalone parser make the inclu <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5942	6051	
==>s unconditional, so next instruction needs to
	# have an empty stack type state propogated to it if nothing ha <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3880	3989	
==>s unconditional, so next instruction needs to
	# have an empty stack type state propogated to it if nothing ha <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	40113	40308	
==>nchOp') ) {
                if ( $op->{result} eq 'break' ) {
                    $parser->Error("no loop to break\n");
                }
            }
        }
        unshift @{ $parser-> <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39044	39215	
==>nchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $parser->Error("no loop to break\n");
            }
        }
    }
    unshift @{ $parser-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794741	795217	
==>_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 897,
                  "ARGS" => [
                              "p",
                              "k",
                              "ic"
                            ],
                  "BODY" => "#line 457 \"src/ops/set <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	392	498	
==>struct::Block::Conditional);

#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $left, $op, $right) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	404	510	
==>struct::Block::Conditional);

#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $left, $op, $right) <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3178	3280	
==>dump($_) foreach (@pmcs);
    generate_c($_) foreach (@pmcs);

    my ($group_files, $group_libs, $pmc_ <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3282	3384	
==>dump($_) foreach (@pmcs);
    generate_c($_) foreach (@pmcs);

    my ($group_files, $group_libs, $pmc_ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	27929	28059	
==>at better and with diagnostics.  

    is_deeply( \@this, \@that );

They may be deprecated in future versions.

=over

=item B<eq_ <==
2	/Users/nnunley/parrot/config/auto/headers.pm	525	670	
==>$conf->options->get('miniparrot')) {
        $self->set_result('skipped');
        return $self;
    }

    # perl5's Configure system doesn't cal <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	18906	19010	
==>{flags}{need_ext}) {
        $vtbl_flag .= '|VTABLE_PMC_NEEDS_EXT';
    }
    if (exists $self->{flags}{s <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	961	1348	
==>< 5;
		$h &= 0xffffffff;
		$h += ord substr($s, $i, 1);
		$h &= 0xffffffff;
	}
	return sprintf("0x%x", $h);
}

sub read_all {
    if (-e $outfile) {
	open IN, "<$outfile";
	while (<IN>) {
	    # len hashval "string"
	    if (/(\d+)\s+(0x[\da-hA-H]+)\s+"(.*)"/) {
		push @all_strings, [$1, $2, $3];
		$known_strings{$3} = scalar @all_strings;
	    }
	}
	close(IN);
    }
}

sub process_cfi <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4202	4442	
==>,
            ar                   => 'xilib',
            ar_flags             => '',
            ar_out               => '-out:',
            slash                => '\\',
            blib_dir             => 'blib\\lib',
            ccflag <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	17614	17730	
==>EL
			$modpos,	$endpos-$modpos,	# MODIFIERS
			$endpos, 	$textlen-$endpos,	# REMAINDER
		       );
	}

	unless ($$tex <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493076	493359	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 566,
                  "ARGS <==
2	/Users/nnunley/parrot/config/gen/icu.pm	577	748	
==>ig without-icu);

sub runstep
{
    my ($self, $conf) = @_;

    my ($verbose, $icushared, $icuheaders, $icuconfig, $without) = $conf->options->get(@args);

    my @icu_hea <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017404	1017699	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gmtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fun <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018328	1018623	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gmtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fun <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	6490	6600	
==>get too close to the end of the string.
#
# Args:
#  t - The Tree op being visited
#  guarantee - The number of <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	10182	10409	
==>erence variable, remember.
                $arg = $self->add_checks($arg, $guarantee, $follow_min);
            }
        }
    }

    return $t;
}

# By default, all atom match ops check to be sure there are enough
# atoms left <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	7215	7368	
==>_stem.c failed ($?)\n";
    }
    else {
        1;
    }
}

sub partial_link {
    my ($group, $libs, $stems) = @_;

    my @sources = map { "$_$O" } @$s <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7426	7579	
==>_stem.c failed ($?)\n";
    }
    else {
        1;
    }
}

sub partial_link {
    my ($group, $libs, $stems) = @_;

    my @sources = map { "$_$O" } @$s <==
2	/Users/nnunley/parrot/lib/File/Which.pm	1995	2154	
==>);
    unshift @path, File::Spec->curdir if $Is_DOSish or $Is_VMS or $Is_MacOS;

    for my $base (map { File::Spec->catfile($_, $exec) } @path) {
       for my <==
2	/Users/nnunley/parrot/examples/benchmarks/stress.pl	658	761	
==>s.pasm>, 
F<examples/benchmarks/stress1.pasm>, 
F<examples/benchmarks/stress1.pl>, 
F<examples/benchmark <==
2	/Users/nnunley/parrot/config/gen/icu.pm	848	972	
==>$icuheaders);

    $self->set_result(undef);
    unless ($without) {
        if (!$autodetect) {
            print "specified <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15860	15967	
==>w.w3.org/TR/xhtml1/DTD/xhtml-special.ent
 http://www.w3.org/TR/xhtml1/DTD/xhtml-symbol.ent

=head1 AUTHOR

S <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	1671	1773	
==>acilities for creating local vars.
    return $self->alloc_temp_int($name);
}

sub new_rxlocal {
    my <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	15733	15857	
==>ll_pkg . '::TODO' } = \$extra{todo}
                if defined $extra{todo};

            my $pass = $builder->$meth( $real_o <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	18284	18408	
==>ll_pkg . '::TODO' } = \$extra{todo}
                if defined $extra{todo};

            my $pass = $builder->$meth( $real_o <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	6166	6271	
==>X\n", $api, $API{$api};
    }
}

if (@UnParrotAPI) {
    printf "--- No Parrot API: %d ---\n", scalar @UnP <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	16547	16663	
==>s given that should rewrite the
# alternative that corresponds to the (dynamic) $counter passed in.
#
sub rewrite_dyn <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	61182	61274	
==>extract_codeblock> encountered
a closing bracket where none was expected.

=item  C<Unmatched <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33532	33654	
==>For the cases where we /didn't/ push to @$para
            if($paras->[0][0] eq '~Para') {
              DEBUG and print "A <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35345	35467	
==>For the cases where we /didn't/ push to @$para
            if($paras->[0][0] eq '~Para') {
              DEBUG and print "A <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	58258	58451	
==>);
					_hint("Did you misspell \"$code\"
						   or forget to comment it out?");
				}
			}
		}
		elsif ($grammar =~ m/$RULE/gco)
		{
			_parseunneg("a rule declaration", 0,
				    $lookahead <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	35141	35330	
==>op_lcm,
  'numerator'        => \&_op_numerator,
  'denominator'      => \&_op_denominator,
  'floor'            => \&_op_floor,
  'ceiling'          => \&_op_ceiling,
  'truncate'         = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549702	549951	
==>function",
                  "CODE" => 633,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 56 \"src/ops/object.ops\"\n  opcode_t *de <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	4804	4964	
==>e =~ m[/\.svn|blib|debian];

    # This is currently the only ignored directory    
    return if $File::Find::name =~ m{runtime.parrot.library.PAST};

    $File <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	23706	23805	
==>OUT.

=item B<failure_output>

    $Test->failure_output($fh);
    $Test->failure_output($file);

Wh <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	7401	7656	
==>'%ld',
             'intvalsize' => 4,
             'isreg' => 1,
             'iv' => 'long',
             'jitarchname' => 'ppc-darwin',
             'jitcapable' => 1,
             'jitcpu' => 'PPC',
             'jitcpuarch' => 'ppc',
             'jit <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	10524	10684	
==>hing = $$thing->$string_meth();
                }
            }
        };
    }
}


=item B<is_eq>

  $Test->is_eq($got, $expected, $name);

Like Test::More's i <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16771	16906	
==>d->{loc} eq 'nci';
        my $ret = $self->body($method, $line, $out_name);
        $line += count_newlines($ret);
        $cout .= $re <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	312	701	
==>flags');
    my $cc        = $conf->data->get('cc');
    my $linkflags = $conf->data->get('linkflags');

    # should find g++ in most cases
    my $link = 'c++';

    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }
    my $ld_share_flags = $conf->data->get('ld_share_flags');
    if ($ld_share_flags !~ /-fPIC/) {
        $ld_share_flags .= ' -fPIC';
    }

    if ($cc =~ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9955	10097	
==>rmines the prototype (argument signature) for a method body
(see F<src/call_list>).

=cut

my %calltype = (
  "char"     => "c",
  "short"    = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	52647	52783	
==>open { # return a string representation of the stack
  my $curr_open = $_[0]{'curr_open'};

  return '[empty]' unless @$curr_open;
  retu <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39171	39273	
==>' . ++$_[1]->{dircount} .  '__'; }


sub new
{
	my ($class, $type, $minrep, $maxrep, $leftarg, $op, $ri <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	4209	4598	
==>g;
    if ($#cnt) {
        my @a = split /\n(?=(?:.*?) - )/, $_;
        foreach (@a) {
            m/^\s*(.*?) - (.+)/sm;
            $ignore{$1} = $2 if $2;
        }
    }
    else {
        m/^(.*) - (.+)/sm;
        $ignore{$1} = $2 if $2;
    }
}

foreach my $dir (sort keys %ignore) {
    print $SKIP "# generated from svn:ignore of '$dir/'\n";
    foreach (split /\n/, $ignore{$dir <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	32911	33079	
==>,
  'delay'      => \&_op_delay,
  'quasiquote' => \&_op_quasiquote,

#----------------------
#
# Section 6 Expressions
#
#----------------------

###
### Logical expres <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	4499	4641	
==>ne}_data\[\] = $text;
static /*const*/ struct parrot_string_t static_string_${line} = {
  { /* pobj_t */
    {{
      static_string_${line}_dat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653475	653580	
==>eter, {{\@1}}))\n        real_exception(interpreter, resume, METH_NOT_FOUND,\n            \"Method '%s' no <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654636	654741	
==>eter, {{\@1}}))\n        real_exception(interpreter, resume, METH_NOT_FOUND,\n            \"Method '%s' no <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10397	10492	
==>[${ITEMP2}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP3}["reg_type_short"]
${STEMP0} = concat ${STEMP1} <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7781	7876	
==>[${ITEMP2}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP3}["reg_type_short"]
${STEMP0} = concat ${STEMP1} <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	45089	45189	
==>"(if any)" the default value on success is
an empty string.
On failure, all of these values (except t <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30098	30208	
==>1]{'start_line'};

        } elsif($over_type eq 'block') {
          unless($curr_open->[-1][1]{'~bitched_abou <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4537	4682	
==>rated
by F<tools/build/pmc2c.pl> from a F<*.pmc> file. It is C<bless>-ed either into
C<Parrot::Pmc2c::::Standard>, or into one of the other I<spec <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	5587	5830	
==>$1);
      $text = $2;
      next;
    }

    if ($text =~ m{^( \+= | \*= | -= | /= | %= )(.*)$}x) {
      push @tokens, Jako::Token->new(
        $file, $line, 'arith-assign', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	3329	3441	
==>/m  and $smoke{harness_args} = $1;
  $html =~ /build_dir: (.+)$/m     and $smoke{build_dir}    = $1;
  $html =~ / <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540292	540438	
==>"i"
                            ],
                  "BODY" => "#line 1022 \"src/ops/math.ops\"\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541544	541690	
==>"i"
                            ],
                  "BODY" => "#line 1022 \"src/ops/math.ops\"\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	19986	20112	
==>d_arg = $op =~ /s|tr|y/ ? 1 : 0;
	if ($second_arg)
	{
		my ($ldel2, $rdel2);
		if ($ldel1 =~ /[[(<{]/)
		{
			unless ($$textref <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	10304	10421	
==>}
    }

    return $t;
}

# By default, all atom match ops check to be sure there are enough
# atoms left in the inpu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719956	720046	
==>reter, \"%.12g\", (double){{\@2}});\n  PIO_putps(interpreter, io, s);\n  if (string_str_ind <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721156	721246	
==>reter, \"%.12g\", (double){{\@2}});\n  PIO_putps(interpreter, io, s);\n  if (string_str_ind <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	3742	3892	
==>= @_;
    return "restore $reg";
}

sub output_comment {
    my ($self, $string) = @_;
    return map { "# $_" } split(/\n/, $string);
}

sub output_li <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3232	3339	
==>ame = $op->value if defined $op;
    $name =~ s/(^")|("$)//g; # Delete leading and trailing quotes;

    $na <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	616	820	
==>AY',  'print', '"("'],
  ['write_NEXT',   'set', 'P6', 'P5'],
  ['',             'set', 'P5', 'P6[0]'],
  ['',             'save', 'P6'],
  ['',             'save', 'P1'],
  ['',             '.include', '" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60044	60328	
==>",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "warningsoff",
                  "FLAGS" => "",
                  "ARGDI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60693	60977	
==>",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "warningsoff",
                  "FLAGS" => "",
                  "ARGDI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703300	703698	
==>FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 789,
                  "ARGS" => [
                              "p",
                              " <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27194	27298	
==>shname, "SUB");
}

sub parse_function {
	feedme;
	my $f;
	$funcname=$syms[CURR];
	my $englishname=english <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	15827	15990	
==>te new empty array.
    stypes = new ResizablePMCArray
    type_trans = new Hash
    type_trans["type"] = ELEMENT_TYPE_CLASS
    type_trans["byref"] = 0
    annotat <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74108	74236	
==>, $argcode) = @_;

	my @tokens = ();
	my $reps;
	my $_savetext;
	for ($reps=0; $reps<$max;)
	{
		$_savetext = $text;
		my $prevte <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9630	9736	
==>t::LineCounter}, \$text, $thisparser;

	' : '
	my $thisline = [\$text, $thisparser];
	') . $self->{vars} .' <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18735	18866	
==>uire_value);
          last if $self->get(1)->is_close_paren;
          $self->require_comma;
        }
      }

      $self->requir <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19761	19892	
==>uire_value);
          last if $self->get(1)->is_close_paren;
          $self->require_comma;
        }
      }

      $self->requir <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5911	6003	
==>t@brentdax.com>.

=head1 AUTHOR

Joshua Hoblitt C<jhoblitt@cpan.org>

=head1 SEE ALSO

F<docs <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6760	6852	
==>t@brentdax.com>.

=head1 AUTHOR

Joshua Hoblitt C<jhoblitt@cpan.org>

=head1 SEE ALSO

F<docs <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	666	783	
==>self, $label) = @_;
    return () unless $self->{DEBUG};
    return () unless $self->{DEBUG_SUPPORT};
    return ("got <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1176	1292	
==>self, $label) = @_;
    return () unless $self->{DEBUG};
    return () unless $self->{DEBUG_SUPPORT};
    return ("bs <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7025	7189	
==>def;
                next;
            };

            #reduce
            my($lhs,$len,$code,@sempar,$semval);
            ($lhs,$len,$code)=@{$$rules[-$act]} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6699	6857	
==>def;
                next;
            };

            #reduce
            my($lhs,$len,$code,@sempar,$semval);
            ($lhs,$len,$code)=@{$$rules[-$act]} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479468	479745	
==>nline",
                  "CODE" => 549,
                  "ARGS" => [
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 437 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0 <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	4331	4451	
==>heredoc, we got an error.
    if ($in_heredoc) {
        die "Unterminated heredoc runs to end of file\n";
    }

    # I <==
2	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	2179	2289	
==>n;
{
  $/ = undef;
  $frozen = <>;
}
#print Dump( $frozen );

# Parse the freeze-state
my $symtab = $frozen_par <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11963	12105	
==>g1024\noproof\sbasedon10 pod-L-man;}

{\*\cs25 \additive \f1\lang1024\noproof\sbasedon0 pod-codelbock-plain;}
{\*\cs26 \additive \f1\lang1024\n <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9760	9914	
==>h $prod ( @{$self->{"prods"}} )
	{
		$prod->addscore($self->{autoscore},0,0) if $self->{autoscore};
		next unless $prod->checkleftmost();
		$code .= $prod- <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	5812	5958	
==>elf->c_pair_item('', 'mmd'),
        ),
        $self->new_group(
            'Extensions', 
            '',
            $self->c_pair_item('', 'ex <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627374	627470	
==>efore its init method\n   * copies the registers. */\n  {{\@1}} = pmc_new_noinit(interpreter, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628518	628614	
==>efore its init method\n   * copies the registers. */\n  {{\@1}} = pmc_new_noinit(interpreter, {{\ <==
2	/Users/nnunley/parrot/tools/util/pirtidy.pl	221	347	
==>rbose   = 'that is SO true.';

# loop over all the files specified on the command line
foreach my $file (@ARGV) {
    warn "Pro <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	4550	4688	
==>efloatval     => 'double',
            hugefloatvalsize => $conf->data->get('doublesize')
        );
    }

    cc_clean();

    return $se <==
2	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	1587	1783	
==>eed the len of the macro name, 
# because we extract is as a substring in the next line
name_len:           m/[0-9]+/
                  { $::name_len = $item[1] }

# We need the len of the macro su <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	3773	3884	
==>y ($self, $fh) = @_;

    my $subname = $self->{subname} || '_regex';
    print $fh <<"END";
.sub $subname
    . <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7116	7230	
==>n,$code,@sempar,$semval);
            ($lhs,$len,$code)=@{$$rules[-$act]};

#DBG>			$debug & 0x04
#DBG>		and	$a <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6785	6895	
==>n,$code,@sempar,$semval);
            ($lhs,$len,$code)=@{$$rules[-$act]};

#DBG>			$debug & 0x04
#DBG>		and	$a <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2523	2676	
==>ar, $amount";
}

sub output_set {
    my ($self, $reg, $value) = @_;
    $reg = value($reg);
    return "set $reg, $value";
}

sub output_print {
    my ( <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	6788	6931	
==>t   = ($type =~ /^[BbCc]$/) ? 1 : 0;
		my $init     = ($type =~ /^[DdGg]$/) ? 1 : 0;
		my $file     = ($type =~ /^[Ff]$/  ) ? 1 : 0;
		my $small <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	3310	3423	
==>as_svn_id
{
    my $self = shift;
    my $content = $self->read;
    # Break up the $Id to prevent svn messing wit <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	12379	12539	
==>h.h
lrintl      math.h
lround      math.h
lroundf     math.h
lroundl     math.h
malloc      stdlib.h
mblen       stdlib.h
mbstowcs    stdlib.h
mbtowc      stdlib <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	16265	16365	
==>.ent
  xhtml-special.ent
)) {
  open(IN, "<$dir$file") or die "can't read-open $dir$file: $!";
  prin <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	19790	19969	
==>unless ($method->{mmd} =~ /MMD_/) {
            push @meths, $meth_name;
        }
        $defaulted = 1 if $meth_name =~ /_default/;
        $defaulted = 1 if $meth_name =~ /_del <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	888	980	
==>o.uk/cxref/>) to extract information from
the program source about what functions are being c <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	4114	4248	
==>ue number.
    $P100 = new 'APLVector'
    $I100 = 1
    $I101 = 0
    $I102 = %1
  loop_begin_1:
    if $I100 > $I102 goto loop_done_1 <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	10826	10995	
==>px; }
    dt    { font-weight: bold; }
    dd+dt { margin-top:  1em;  }
    .leftsep  { padding-left: 10px;  }
    .num      { text-align:   right; }

    .details  { dis <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058179	1058351	
==>,
                              "sc"
                            ],
                  "BODY" => "#line 194 \"src/ops/var.ops\"\n    {{\@1}} = Parrot_get_global_p(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059072	1059244	
==>,
                              "sc"
                            ],
                  "BODY" => "#line 194 \"src/ops/var.ops\"\n    {{\@1}} = Parrot_get_global_p(interpreter <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	33813	33994	
==>E_plus_3 {
    return Slice(@_, 3);
}

sub Store_Slice
{
    my ($n, $c, $cmt, $sl_n) = @_;
    my ($v, $w, $vv, $ww);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @sta <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10116	10251	
==>') {
        print $fh "\\'95 \n";
        #for funky testing: print $fh '', rtf_esc("\x{4E4B}\x{9053}");
      }

    } elsif( $type eq <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477574	477905	
==>"io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 547,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 428 \"src/ops/math <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1617	1730	
==>props = $sym->props;

  my @args  = $self->args;

  my @formal_args = $sym->args;

  $self->SYNTAX_ERROR("Wrong nu <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1317	1430	
==>props = $sym->props;

  my @args  = $self->args;

  my @formal_args = $sym->args;

  $self->SYNTAX_ERROR("Wrong nu <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1433	1626	
==>token->line );
    $self->set_symbol($arg_name, $sym);
  }

  return $self;
}


#
# ACCESSORS:
#

sub type      { return shift->{TYPE};      }
sub name      { return shift->{NAME};      }
sub pr <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	23865	24132	
==>fig{cc_debug} " .
                " -I./include -c " .
                "$PConfig{cc_o_out}$obj_f $source_f";
            $exit_code = run_command($cmd,
                                     'STDOUT' => $build_f,
                                     'STDERR' => $build_f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	391449	392067	
==>"FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 455,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806449	806767	
==>set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 910,
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953740	953949	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954530	954739	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2252	2383	
==>te stab entry on compile
        $@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $retval
}

sub YYData {
	my <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2169	2290	
==>te stab entry on compile
        $@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $retval
}

sub YYData {
	my <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367871	368103	
==>STDIN(interpreter), (size_t){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368663	368895	
==>STDIN(interpreter), (size_t){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665201	665290	
==>DY" => "#line 359 \"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delete_keyed_int(interpreter, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665978	666067	
==>DY" => "#line 359 \"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delete_keyed_int(interpreter, {{ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	20349	20528	
==>cept either, but avoid mixing the two styles.

Defaults to on.

=cut

sub use_numbers {
    my($self, $use_nums) = @_;

    if( defined $use_nums ) {
        $self->{Use_Nums} = $u <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550027	550129	
==>bject = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+3}};\n  interpreter->current_object = object;\n  inte <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551328	551430	
==>bject = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+3}};\n  interpreter->current_object = object;\n  inte <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2674	2822	
==>sr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P12', 'P16[0]'],
  ['',            'bsr', 'appl <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2586	2719	
==>rywhere doesn't hurt the final
	# Parrot bytecode that is produced.
	$pir .= <<'PIR';
strPC = ${PC}
${INS} = concat "LAB"
${INS} = con <==
2	/Users/nnunley/parrot/config/auto/inline.pm	991	1193	
==>cc_build(); };
            if (!$@) {
                $test = cc_run();
                chomp $test if $test;
            }
            cc_clean();
        }
        if ($test) {
            print " ($te <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	7678	7866	
==>ar, $kw) = ($1, $2, $3);
		    $args =~ s/[\s']//g;
		    $ar =~ s/'//g;
		    $kw =~ s/'//g;
		    print "# $cur_f: args='$args' ar='$ar' kw='$kw'\n";
		    $func_info{$cur_f}{'args'} = $a <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21086	21284	
==>->new($block, $self->require_value);
      }

      $self->require_semicolon;

      foreach my $left (@left) {
        if ($constructing) {
          my $new = Jako::Construct::Statement::New->new($ <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Posix.pm	205	379	
==>self = shift;
    my ( $count, $options ) = @_;

    return Parrot::Test::per_test( '_posix.out', $count );
}

sub get_test_prog {
    my $self = shift;
    my ( $count, $opti <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	1224	1328	
==>\n" if $opt{verbose};
    open my $fh, $direction, $filename or die "$action $filename: $!\n";
    return <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	22328	22432	
==>\n" if $opt{verbose};
    open my $fh, $direction, $filename or die "$action $filename: $!\n";
    return <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5241	5413	
==>rt{@next} = ();
        # Stop unless NULLABLE.
        last unless (@next && $next[0] eq '');
    }

    return Regex::Ops::Tree::order_startset(\%start);
}

sub dfa_safe { <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	10662	10819	
==>ath.h
fmod        math.h
fmodf       math.h
fmodl       math.h
fopen       stdio.h
fpclassify  math.h
fprintf     stdio.h
fputc       stdio.h
fputs       stdi <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	3163	3346	
==>1;
  $html =~ /cc: ([\w\d]+)/         and $smoke{cc}           = $1;
  $html =~ /DEVEL: -?(\w+)/        and $smoke{DEVEL}        = $1;
  $html =~ /harness_args: (.+)$/m  and $smoke{har <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	18983	19160	
==>ation code dispatch table.
	cur_ic = bc.read_uint8()
	next_pc += 1
PIRCODE
    $pir .= binary_dispatch_table('', @rules_grouped);

    # Emit unknown instruction code.
    $pir . <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4846	4953	
==>s,$states,$lex,$error)
     = @$self{ 'RULES', 'STATES', 'LEX', 'ERROR' };
	my($errstatus,$nberror,$token, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4606	4711	
==>s,$states,$lex,$error)
     = @$self{ 'RULES', 'STATES', 'LEX', 'ERROR' };
	my($errstatus,$nberror,$token, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	66575	67042	
==>ELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sweep",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 87,
                  "ARGS" => [
                              "i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2281	2453	
==>on-global subs?
    $self->kind,
    $self->type,
    $name,
    undef,            # No value
    $props,           # Parsed Properties
    $args,            # Parsed Proper <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	52281	52439	
==>cursor
  my($lol, $to) = @_;
  use UNIVERSAL ();
  for(my $i = 2; $i < @$lol; ++$i) {
    if( ref($lol->[$i] || '') and UNIVERSAL::isa($lol->[$i], 'ARRAY') ) { <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	16345	16514	
==>t'),
      {
        'start_line' => $paras->[0][1]{'start_line'},
        $starting_contentless ? ( 'contentless' => 1 ) : (),
      },
    );
  }

  my($para, $para_typ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	14363	14480	
==>dy = rewrite_nci_method($classname, $meth, $body);
    }

    # now split into MMD if necessary:
    my $additional_bo <==
2	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	395	517	
==>[$_] = buildarray();
    }
}

sub buildarray {
    my @foo;
    foreach (1..10000) {
	$foo[$_] = $_;
    }
    return \@foo <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/EditorPlugins.pm	393	487	
==>ass Methods

=over

=cut

package Parrot::Docs::Section::EditorPlugins;

use strict;
use warnin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113890	114164	
==>@1}} <<= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114629	114903	
==>@1}} <<= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	220	361	
==>::Item;

=head1 DESCRIPTION

A documentation I<item> is one or more related paths with some optional
descriptive text.

Directory paths will b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347407	347829	
==>open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 405,
                  "ARGS" => [
                              "p",
                              "sc",
                              "sc"
                            ] <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1793	1941	
==>ame!")
    unless defined $type_name;

  $self->INTERNAL_ERROR("Constant definition involves undefined value!")
    unless defined $value;

  #
  # L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499484	499660	
==>/ops/math.ops\"\n  {{\@1}} = floatval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500247	500423	
==>/ops/math.ops\"\n  {{\@1}} = floatval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632582	632682	
==>r, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633624	633724	
==>r, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_new_in <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	33306	33444	
==>nction takes
up to three optional scalar arguments: a string to extract from, a delimiter
specifier, and a prefix pattern. As before, a mis <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8716	8846	
==>overy.\n";
#DBG>				$dbgerror=0;
#DBG>			};

			    push(@$stack,
                     [ $$states[$$stack[-1][0]]{GOTOS}{$lhs} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8324	8449	
==>overy.\n";
#DBG>				$dbgerror=0;
#DBG>			};

			    push(@$stack,
                     [ $$states[$$stack[-1][0]]{GOTOS}{$lhs} <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2934	3071	
==>mval {
	my($self)=shift;
	my($index)= $_[0] - ${$$self{DOTPOS}} - 1;

		$index < 0
	and	-$index <= @{$$self{STACK}}
	and	return $$se <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2792	2923	
==>mval {
	my($self)=shift;
	my($index)= $_[0] - ${$$self{DOTPOS}} - 1;

		$index < 0
	and	-$index <= @{$$self{STACK}}
	and	return $$se <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6145	6346	
==>tions{ACTIONS}{$$token}
                    :   exists($$actions{DEFAULT})
                        ?   $$actions{DEFAULT}
                        :   undef;
        }
        else {
            $a <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5856	6051	
==>tions{ACTIONS}{$$token}
                    :   exists($$actions{DEFAULT})
                        ?   $$actions{DEFAULT}
                        :   undef;
        }
        else {
            $a <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	13315	13409	
==>ps from names (as in C<EE<lt>I<name>E<gt>>) like "eacute" or "sol"
to the Unicode value that ea <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50234	50428	
==>ags_CLEAR(interpreter, PARROT_PROFILE_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51027	51221	
==>ags_CLEAR(interpreter, PARROT_PROFILE_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791636	791897	
==>et_pmc_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792543	792804	
==>et_pmc_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	4577	4718	
==>->{args} } = ($opt, $leftovers);
        return $t;
    } else {
        # Find all subtrees, and recurse through them.
        foreach my $ar <==
2	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	163	287	
==>SAGE

  rebuild.pl [-v] <command> <input> <outputs>...

=head1 DISCUSSION

This script works by appending the line

  /* CHEC <==
2	/Users/nnunley/parrot/config/gen/platform.pm	5689	5802	
==>);
        }
    }

    # interface is the same for all platforms
    copy_if_diff("config/gen/platform/platform_i <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6168	6275	
==>$group";1], $value # close group $group!;
    return @ops;
}

sub output_getstart {
    my ($self, $reg, $gr <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8718	8969	
==>s!" if @_;

  my $found = $self->find_symbol($name);

  return $found ? $found->kind : undef;
}


###############################################################################

=head2 BLOCK->scope_of_ident(NAME)

This is a shortcut method that uses f <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10055	10251	
==>s!" if @_;

  my $found = $self->find_symbol($name);

  return $found ? $found->kind : undef;
}


###############################################################################

=head2 BLOCK->cont <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	192	307	
==>lib/Jako/Construct/Expression/Suffix.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7358	7506	
==>$self->prefix eq $label;
    }
    else {
      return $self;
    }
  }

  return undef unless $self->block;

  return $self->block->find_block($kind <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	6046	6173	
==>pe && $Type eq '1'); # So they used --t.
$Type = 'long' if $Long; 
die "$ME: --type=$Type unknown\n"
    if defined $Type && $Ty <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	3	117	
==>Id: /parrot/lib/Parrot/Test/Punie.pm 18020 2006-03-26T19:46:16.084129Z bernhard  $

package Parrot::Test::Punie;

u <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	12567	12739	
==>c = "Parrot_jit_vtable_ifp_op";
            $opbody =~ /vtable->(\w+)/;
            $extern = vtable_num($1);
            #print "$jit_func $extern\n";
        }
        els <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	7657	7896	
==>ield->[1];
        }
        push @opcodes1, @{ $val->[1] };
        push @opcodes2, @{ $key->[1] };
        push @opcodes2, new KeyedSetOp( $parser,
            'arg1'   => $key->[0],
            'arg2'   => $val->[0],
            ' <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	1486	1593	
==>EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically from '$infile'
 * by $0.
 *
 * Any chang <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	3775	3882	
==>EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically from '$infile'
 * by $0.
 *
 * Any chang <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	2932	3075	
==>UOTE$LIBPARROT$PATHQUOTE";
}

our $NOW = time();

################### MAIN PROGRAM ################

my ($mode, @pmcs) = @ARGV;

if ($mode eq 'g <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3036	3179	
==>UOTE$LIBPARROT$PATHQUOTE";
}

our $NOW = time();

################### MAIN PROGRAM ################

my ($mode, @pmcs) = @ARGV;

if ($mode eq 'g <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8537	8648	
==>the SRM to do the store.
	# Otherwise, there's nothing to do here.
	if ($dest_reg) {
		$pir .= <<'PIR'
# Get typ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6357	6468	
==>the SRM to do the store.
	# Otherwise, there's nothing to do here.
	if ($dest_reg) {
		$pir .= <<'PIR'
# Get typ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809236	809737	
==>IRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 913,
                  "ARGS" => [
                              "s",
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 507 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_string_keyed(i <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6475	6574	
==>ontains plain text rather than POD it may be directly linked to.

=cut

sub is_docs_link
{
	my $self <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22637	22751	
==>nst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0,$temp_1);
  r <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23138	23252	
==>nst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0,$temp_1);
  r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106334	1106427	
==>ueError,\n\t\t\"type number out of range\");\n    {{\@1}} = interpreter->vtables[typ]->class;\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107310	1107403	
==>ueError,\n\t\t\"type number out of range\");\n    {{\@1}} = interpreter->vtables[typ]->class;\ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4011	4122	
==>$outhash{$_})
		or	croak("Missing mandatory parameter '".lc($_)."'");
	}
}

sub _Error {
	print "Parse err <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3809	3914	
==>$outhash{$_})
		or	croak("Missing mandatory parameter '".lc($_)."'");
	}
}

sub _Error {
	print "Parse err <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	481	732	
==>use we need the result now.
    $cc = $conf->options->get('cc') if defined $conf->options->get('cc');

    my $is_msvc  = grep { $cc eq $_ } (qw(cl cl.exe));
    my $is_intel = grep { $cc eq $_ } (qw(icl icl.exe));
    my $is_mingw = grep { $cc eq $_ } <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	7654	7892	
==>ump );

    my %vtable = (
        flags   => {},
        pre     => '',
        post    => '',
    );
    my %meth_hash;
    my $i = 0;
    foreach my $entry (@$default) {
        $meth_hash{$entry->[1]} = $i++;
        push @{$vtable{met <==
2	/Users/nnunley/parrot/config/gen/config_h.pm	763	913	
==>/parrot/config.h',
        commentType       => '/*',
        ignorePattern     => 'PARROT_CONFIG_DATE',
        conditioned_lines => 1
    );

    gen <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4547	4663	
==>ete $self->{args};
        return $self->op('nop', [], %$self);
    } elsif (@{ $self->{args} } == 1 && 2 == keys %$s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5684	5800	
==>ete $self->{args};
        return $self->op('nop', [], %$self);
    } elsif (@{ $self->{args} } == 1 && 2 == keys %$s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	349	483	
==>:Conditional::Unless;

use Carp;

use base qw(Jako::Construct::Block::Conditional);

#
# new()
#

sub new
{
  my $class = shift;
  my ( <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	4501	4869	
==>h my $line (@comment) {
                $line = "# $line\n";
            }
        } elsif ($options{commentType} eq '/*') {
            foreach my $line (@comment) {
                $line = " * $line\n";
            }
            $comment[0]  =~ s{^}{/*\n};     # '/*'
            $comment[-1] =~ s{$}{\n */};    # ' */'
        } else {
            die "Unknown comme <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	10538	10752	
==>: left; }
    .indent0 { padding-top:  30px; border-bottom: 2px solid #313052; }
    .indent1 { padding-top:  10px; border-bottom: 1px solid #313052; }
    .indent2 { padding-left: 40px; }
    .indent3 { padding-lef <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11316	11426	
==>int ELEMENT_TYPE_I = 0x18
	.const int ELEMENT_TYPE_U = 0x19
	.const int ELEMENT_TYPE_FNPTR = 0x1B
	.const int E <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	43101	43271	
==>t unless $p->[$i]   =~ m{^#:([ \^\/\%]*)\n?$}s
    #        and $p->[$i-1] !~ m{^#:[ \^\/\%]*\n?$}s;
     # look at a formatty line preceding a nonformatty one
    DEBUG > <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8075	8180	
==>er = ();
  my($name, $number);
  while( ($name, $number) = each %Name2character_number) {
    if($] < 5.00 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2709	2815	
==>ent({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
  }

  $handler->start_element({ Nam <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2586	2692	
==>ent({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
  }

  $handler->start_element({ Nam <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1840	2017	
==>t_name;
  }
}


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  return Jako::Construct::Expression::Value::Identifier->compile2($compiler, $self->blo <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	6151	6261	
==>, or ', @expected;
}

sub _contains($@)
{
	my $target = shift;
	my $item;
	foreach $item ( @_ ) { return 1 if $ <==
2	/Users/nnunley/parrot/config/inter/encoding.pm	473	652	
==>s should be compiled in';

@args = qw(ask encoding);

sub runstep
{
    my ($self, $conf) = @_;

    my @encoding = (
        sort
            map { m{\./src/encodings/(.*)} } glob <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750052	750471	
==>" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 845,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 204 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_string_native(interp <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	1780	2224	
==>h @r, $label;
                    $label = '';
                }
                if (ref($line)) {
                    push @r, "$label";
                    push @r, $line;
                } else {
                    push @r, "$label\t$line";
                }
                $label = '';
            }
        }
    }
    return @r;
}

############### Backend-neutral translations ##############

sub output_nop {
    return "noop";
}

sub o <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	185	310	
==>d;
use vars qw( @tokens @tokdsc);
use vars qw(%code %options @basic %common);
use vars qw( @syms @type );
use vars qw( %labels <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	33036	33170	
==>he deletion it would contain:

	"if ('.$UNIXCMD/s) { $cmd = $1; }"

not:

	"if ('./cmd' =~ ms) { $cmd = $1; }"
	

See L<"extract_quotel <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63244	63413	
==>name);

						_check_insatiable($name,$1,$grammar,$line) if $::RD_CHECK;
					}
				}
				elsif ($grammar =~ m/$MANY/gco)
				{
					_parse("a one-or-more subrule match", <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63965	64076	
==>name);

						_check_insatiable($name,$1,$grammar,$line) if $::RD_CHECK;
					}
				}
				elsif ($grammar =~ m/$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1786	1884	
==>hift;

    return $self->{ARGS}[shift];
}

=item C<goto_address($address)>

Transforms the C<goto A <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1401	1499	
==>hift;

    return $self->{ARGS}[shift];
}

=item C<goto_address($address)>

Transforms the C<goto A <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3081	3221	
==>[$index][1];

	undef;	#Invalid index
}

sub YYCurtok {
	my($self)=shift;

        @_
    and ${$$self{TOKEN}}=$_[0];
    ${$$self{T <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2933	3063	
==>[$index][1];

	undef;	#Invalid index
}

sub YYCurtok {
	my($self)=shift;

        @_
    and ${$$self{TOKEN}}=$_[0];
    ${$$self{T <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	309154	309433	
==>"TYPE" => "function",
                  "CODE" => 360,
                  "ARGS" => [
                              "sc"
                            ],
                  "BODY" => "#line 64 \"src/ops/debug.ops\"\n    const char *f;\n\n    if (!(interpreter->pdb->state & PDB_BREAK) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	783	938	
==>Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block,
    LEFT  => $left,
    RIGHT => $right
  }, $class;

  $block->push_conten <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17938	18068	
==>case 50
	select case g
	case 6
		print "Wrong again!"
	case 0
		print "Right (nest)!"
	end select
	print "Ongoing (right also)"
end <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	14422	14573	
==>2
		}
	},
	{#State 27
		ACTIONS => {
			"?" => 46
		},
		DEFAULT => -13
	},
	{#State 28
		ACTIONS => {
			'CHAR' => 4,
			"<" => 22,
			"+" => 24,
			"* <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	15538	15705	
==>=> 70
		}
	},
	{#State 35
		ACTIONS => {
			":" => 51,
			"[" => 47,
			"(" => 48,
			"." => 49,
			'STRING' => 44,
			"{" => 38
		},
		DEFAULT => -56,
		G <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10413	10512	
==>EMP0} = "$"
${STEMP1} = ${PTEMP3}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_d <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7797	7896	
==>EMP0} = "$"
${STEMP1} = ${PTEMP3}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657172	657372	
==>",
                              "p",
                              "kic"
                            ],
                  "BODY" => "#line 324 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	1015	1139	
==>tting
    # content_seen.
    $self->get_short_title();
    
    return unless $self->content_seen;

    # Suppress the warni <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2501	2597	
==>t discover backward branches until late to do
	# otherwise. Also, putting a label everywhere does <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1079	1175	
==>t discover backward branches until late to do
	# otherwise. Also, putting a label everywhere does <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023344	1023441	
==>m tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_localtime_r(&t, &tm);\n  {{\@1}} = tm_to_arr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024194	1024291	
==>m tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_localtime_r(&t, &tm);\n  {{\@1}} = tm_to_arr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826578	826684	
==>tack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_FLOAT) {\n    internal_exception(ERROR_BAD_STA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827648	827754	
==>tack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_FLOAT) {\n    internal_exception(ERROR_BAD_STA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676434	676843	
==>RGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 758,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 473 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshi <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	1319	1426	
==>rrot/$_"} grep /\.ops$/, readdir PARROT;
closedir PARROT;


print <<END;
<?xml version="1.0" encoding="UTF-8 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676048	676284	
==>}->vtable->unshift_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676828	677064	
==>}->vtable->unshift_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	2691	2910	
==>)\s+(-?\w+|".*?")/) {
                    local $_ = "$prefix$1\t$2";
                    eval $subst if ($subst ne '');
                    print INC ".constant $_\n";
                }
            } elsif ($in_def eq ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864180	864460	
==>}));\n  }\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	865072	865352	
==>}));\n  }\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
2	/Users/nnunley/parrot/lib/Test/More.pm	8851	8978	
==>b is ($$;$) {
    $Test->is_eq(@_);
}

sub isnt ($$;$) {
    $Test->isnt_eq(@_);
}

*isn't = \&isnt;


=item B<like>

  like( $t <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	35280	35444	
==>"*" => 80,
			".." => 71,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -69
	},
	{#State 131
		ACTIONS => {
			"-" => 72,
			"%" => 76,
			" <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	52287	52454	
==>, 'key' );
        }
	],
	[#Rule 51
		 'namelist', 3,
sub
#line 306 "Lua\lua51.yp"
{
            [
                @{ $_[1] },
                BuildLocalVaria <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1562	1659	
==>elf->INTERNAL_ERROR("Type is not a Jako::Construct::Type instance!")
    unless UNIVERSAL::isa($ty <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1410	1507	
==>elf->INTERNAL_ERROR("Type is not a Jako::Construct::Type instance!")
    unless UNIVERSAL::isa($ty <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	2290	2421	
==>ements in the referenced
vtable array.

=cut

sub vtbl_defs {
    my $vtable = shift;

    my $defs = q{};
    my $entry;

    for $ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	7540	7773	
==>t STDERR "Outta RPN convert\n";
	return(@stream);
}

sub fixup {
	my(@expr)=@_;

	# Do the fixup.  Unary minus, functions, etc.
	my @foo=@expr;
	@expr=();
	for my $t (0..@foo-1) {
		my($unary,$argthing)=(0,0);
		my($prev, $this, $next <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558030	558136	
==>LCALL;\n  interpreter->current_object = object;\n  interpreter->current_method = meth;\n  method_pmc = VTAB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559414	559520	
==>LCALL;\n  interpreter->current_object = object;\n  interpreter->current_method = meth;\n  method_pmc = VTAB <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	5984	6178	
==>ine =~ m/^#CONDITIONED_LINE\(([^)]+)\):(.*)/s) {
                next unless $conf->data->get($1);
                $line = $2;
            } elsif ($line =~ m/^#INVERSE_CONDITIONED_LINE\(([^)]+)\ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	520	666	
==>[0];
	s/^(.{1,50})(\S+)\s+(.*)/\t$1$2\n\t$3/;
	print;
	exit 1;
};

getopts('d', \%options);
$debug=1 if $options{d};

if (@ARGV) {
	open(D, $ARGV[0 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	886	995	
==>_item('', 'lib/Parrot/Pmc2c.pm'),
			$self->new_item('', 'lib/Parrot/Vtable.pm'),
		),
		$self->new_group('IO' <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	2273	2494	
==>e_table {
    my ($name) = @_;
    my $len = 8;

    print "const PARROT_CCLASS_FLAGS ${name}[256] = {\n";
    foreach my $char (0..255) {
        printf "0x%.4x, ", classify($char);
        print "/* @{[$char-$len+1]}-$ch <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2617	2728	
==>ecovering {
	my($self)=shift;

	${$$self{ERRST}} != 0;
}

sub YYAbort {
	my($self)=shift;

	${$$self{CH <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2502	2604	
==>ecovering {
	my($self)=shift;

	${$$self{ERRST}} != 0;
}

sub YYAbort {
	my($self)=shift;

	${$$self{CH <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1005	1095	
==>de - (opcode_t*)interpreter->code->prederef.code))
#define CUR_OPCODE ((opcode_t*)cur_opcod <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1135	1225	
==>de - (opcode_t*)interpreter->code->prederef.code))
#define CUR_OPCODE ((opcode_t*)cur_opcod <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15031	15148	
==>se print "Oops (flo)"

' Passing arrays (expect 12)
function arrfunc(x())
	print x(4)
	arrfunc=55
end function
dim g(1 <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6594	6686	
==>depth[${ITEMP0}] = stack_depth
    goto POST_BRANCH_switch_${CURIC}_LOOP
POST_BRANCH_switch_$ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4532	4624	
==>depth[${ITEMP0}] = stack_depth
    goto POST_BRANCH_switch_${CURIC}_LOOP
POST_BRANCH_switch_$ <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	1632	1778	
==>fine CONCAT(a,b) a##b
#define _CONST_STRING(i, l) (i)->const_cstring_table[CONCAT(_CONST_STRING_, l)]
#define CONST_STRING(i, s) _CONST_STRING(i, _ <==
2	/Users/nnunley/parrot/languages/regex/test.pl	2596	2745	
==>! defined $_;
    die "INPUT: expected" if ! /^INPUT:/;

    # Gather input, look for OUTPUT:
    $input = '';
    undef $output;
    while (<SPEC>) { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109641	109750	
==>s/bit.ops\"\n  string_bitwise_or(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110420	110529	
==>s/bit.ops\"\n  string_bitwise_or(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  " <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	6856	7061	
==>t OUT <<END_C;
} parrot_opcode_enums;

#endif

END_C
close OUT;


# if opcode numer is not in ops.num create one but
# only for *experimental* ops
# other opcodes are just skipped
sub find_op_number {
    m <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	388	494	
==>::Step ':gen';

our $description = 'Generating core pmc list';
our @args = ();

sub runstep
{
    my ($self <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6018	6150	
==>ken. Got ".&$ShowCurToken."\n";
			};

            $act=   exists($$actions{ACTIONS}{$$token})
                    ?   $$actions{ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5733	5861	
==>ken. Got ".&$ShowCurToken."\n";
			};

            $act=   exists($$actions{ACTIONS}{$$token})
                    ?   $$actions{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30091	30196	
==>over->[1]{'start_line'};

        } elsif($over_type eq 'block') {
          unless($curr_open->[-1][1]{'~ <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	2361	2464	
==>en the generated
parrot-<VERSION>-1.<arch>.rpm file will contain the file
/usr/parroty/bin/snork-compile <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	2502	2629	
==>' );
        my @files = ( glob( File::Spec->catfile( $dir, '*.t' ) ),
                      glob( File::Spec->catfile( $dir, '* <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048465	1048735	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "F <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049389	1049659	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "F <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	313685	314128	
==>" => "conv_i1",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 366,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 62 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (INTVAL)((signed char)({{\@1}}));\n  { <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	2316	2446	
==>h) {
	my ($src, $is_branch);

        $pc       = $new_pc;
	$op_code  = unpack "x$offset l", $pf->byte_code;
        $op       = $o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13064	13155	
==>er->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  loc = IN <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13908	13999	
==>er->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  loc = IN <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348521	348825	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349522	349826	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20288	20398	
==>ident> = new <ident>;
    #
 
    if ($token->is_ident and $self->get(1)->is_assign) {
      my $block = $self- <==
2	/Users/nnunley/parrot/languages/regex/test.pl	2158	2285	
==>testfile = $_;
    } else {
        usage "too many args!";
    }
}

usage "not enough args: testfile required"
  if ! defined $ <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1862	2020	
==>le': $!";
    my $image;
    local $/;
    binmode F;
    $_ = <F>;
    close F;

    my @c = split '';
    die "'$image_file' is truncated. Remove it and reru <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	17181	17371	
==>es if a given PMC type is dynamically loaded or not.

=cut

sub pmc_is_dynpmc {
    # surely core PMCs aren't dynamic
    return exists($pmc_types{$_[1]}) ? 0 : 1;
}

# XXX quick hack - to ge <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	13083	13291	
==>ach stands for.  Note that this does not
include numerics (like "64" or "x981c").  Under old Perl versions
(before 5.7) you get a "?" in place of characters whose Unicode
value is over 255.

=item $Name2charac <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	4065	4255	
==>e;

use strict;
use warnings;

use base qw( Exporter );

use Parrot::Op;
use Parrot::Config;

our %op_body;
our @EXPORT = qw( %op_body );

# private sub  _trim()
#
# Trim leading and trailing <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	1506	1611	
==>ce goto X; ...; X: goto Y; with goto Y.
 3. Eliminate unreachable code.
 4. Eliminate jumps to the followi <==
2	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	522	624	
==>done for development versions of Parrot, i.e. the
file F<DEVELOPING> exists. Releases include a non-dyn <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	6391	6551	
==>'lArr'     , 8656,
 'uArr'     , 8657,
 'rArr'     , 8658,
 'dArr'     , 8659,
 'hArr'     , 8660,
 'forall'   , 8704,
 'part'     , 8706,
 'exist'    , 8707,
 ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009865	1010091	
==>\"\n  {{\@1}} = string_compose(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010630	1010856	
==>\"\n  {{\@1}} = string_compose(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1602	1729	
==>> \$token,
				VALUE => \$value,
				DOTPOS => \$dotpos,
				STACK => [],
				DEBUG => 0,
				CHECK => \$check };

	_Chec <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1548	1668	
==>> \$token,
				VALUE => \$value,
				DOTPOS => \$dotpos,
				STACK => [],
				DEBUG => 0,
				CHECK => \$check };

	_Chec <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/EditorPlugins.pm	225	325	
==>n section

=head1 SYNOPSIS

	use Parrot::Docs::Section::EditorPlugins;

=head1 DESCRIPTION

A documen <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	43650	43840	
==>te {
  my ($self,$node) = @_;

  my $return;

  if (exists $node->{children}) {
    my $func = _get_arg ($node, 0);
    if (exists $func->{value}) {
      my $symbol = $func->{value};
      i <==
2	/Users/nnunley/parrot/lib/Test/More.pm	35998	36109	
==>w other problems).

The goal here is to have a testing utility that's simple to learn,
quick to use and difficul <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3401	3511	
==>?\d+$/) {
    $return = $self->_save_1 ('I');
    $self->_add_inst ('', 'set', [$return,$value]);
  }
  elsif ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	395764	396072	
==>> "function",
                  "CODE" => 459,
                  "ARGS" => [
                              "p",
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  { <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2795	2922	
==>er->Error("Invalid escape sequence $_ .\n"),
                last;
        }
    }

    $parser->Error("Untermined string.\ <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4310	4437	
==>er->Error("Invalid escape sequence $_ .\n"),
                last;
        }
    }

    $parser->Error("Untermined string.\ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	14383	14515	
==>$sym $op2->[0])", "RESULT", "\$$optype$retcount" ];
			$retcount++;
		}
	}

	if (@work) {
		$_=pop @work;
		$result=pushthing(\@code, <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	5753	5871	
==>ile (! -d $dir) { # Scan up to nearest existing ancestor
		unshift @dirs, $dir;
		$dir = dirname($dir);
	    }
	    for <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	516	611	
==>not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Identifier (" . ref($ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	516	611	
==>not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Identifier (" . ref($ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	827	940	
==>$self = bless {
    BLOCK => $block,
    LEFT  => $left,
    RIGHT => $right
  }, $class;

  $block->push_content( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	835	948	
==>$self = bless {
    BLOCK => $block,
    LEFT  => $left,
    RIGHT => $right
  }, $class;

  $block->push_content( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272324	272686	
==>FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 317,
                  "ARGS" => [
                              "i",
                              "i" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289560	290044	
==>FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 337,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 935 \"src/ops/cmp.o <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	39159	39278	
==>t> is "MAX", then
C<extract_tagged> returns the complete text up to the point of failure.
If the string is "PARA", C<ext <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	602572	603019	
==>82,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 393 \"src/ops/object.ops\"\n    {{\@1}} = VTABLE_get_class(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	6174	6350	
==>o try_S
#          match(b) or goto try_S
#          goto next
#   try_S: check(3)
#          match(c) or fail
#          match([dxy]) or fail
#          match(e) or fail
#
# No <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	35687	35820	
==>t' => 'break',
    );
    return \@opcodes;
}

sub BuildReturn {
    my ( $parser, $exprs ) = @_;
    my @opcodes = ();
    my <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	647	775	
==>h arguments of an op are labels, and return an array of
their indices.

=cut

sub label_indices {
    my ($self, $op) = @_;
    m <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1581	1674	
==>("Type is not a Jako::Construct::Type instance!")
    unless UNIVERSAL::isa($type, "Jako::Cons <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1429	1522	
==>("Type is not a Jako::Construct::Type instance!")
    unless UNIVERSAL::isa($type, "Jako::Cons <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	200	343	
==>e', 'I0', '.Undef', 'write_N_UNDEF'],
  ['',             'print', '"()"'],
  ['',             'branch', 'write_RET'],
  ['write_N_UNDEF','ne', ' <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	20343	20480	
==>es, @{ $expr->[1] };
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new NewOp( $pars <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	4507	4717	
==>problem, you probably have a huge test script.
Split it into multiple files.  (Otherwise blame the Unix folks for
using an unsigned short integer as the exit status).

Because VMS's exit codes are much, much dif <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	73239	73380	
==>= $_[2]||_linecount($_[1]);
	$_[0]->{lastlinenum} = _linecount($_[1]);
	$_[0]->{lastlinenum} += $_[2] if @_ > 2;
	$_[0]->{offsetlinenum} = $_[ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	106	224	
==>arser, $type, $subtype ) = @_;
    my $idf = 'tmp_' . $parser->YYData->{idx_tmp}++;
    return new defn( $idf, 'tmp', <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	10976	11105	
==>vel + 1;

    if( !defined $got || !defined $expect ) {
        # undef only matches undef and nothing else
        my $test = !de <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	11394	11523	
==>vel + 1;

    if( !defined $got || !defined $expect ) {
        # undef only matches undef and nothing else
        my $test = !de <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	723	835	
==>elf = bless {
    BLOCK => $block,
    IDENT => $ident
  }, $class;

  $block->push_content($self);

  return $se <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	723	835	
==>elf = bless {
    BLOCK => $block,
    IDENT => $ident
  }, $class;

  $block->push_content($self);

  return $se <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	3014	3141	
==>full_body();

	# The regexes here correspond to the rewriting rules for the various
	# forms of goto recognized by Parrot/OpsFil <==
2	/Users/nnunley/parrot/config/gen/config_pm.pm	50	138	
==>$Id: /parrot/config/gen/config_pm.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263914	264381	
==>FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 307,
                  "ARGS" => [
                              "i",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 806 <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3860	3976	
==>.pl: Cannot handle RESUME ops!";
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTran <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	1031	1143	
==>s been told about new generated files.
# 
# Ignore the SVN directories
\B\.svn\b

# debian/ should not go into re <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3886	3997	
==>s been told about new generated files.
#
# Ignore the SVN directories
\B\.svn\b

# debian/ should not go into re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739511	739768	
==>=> 831,
                  "ARGS" => [
                              "n",
                              "p"
                            ],
                  "BODY" => "#line 154 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}}->vtable->get_number(interpreter, {{\@2}} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3732	3849	
==>el_use($dest);
}

sub output_unless {
    my ($self, $reg, $dest) = @_;
    $reg = value($reg);
    return "unless $re <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6350	6442	
==>H_switch_${CURIC}:
i = elements P_arg_0
POST_BRANCH_switch_${CURIC}_LOOP:
if i == 0 goto POST <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4288	4380	
==>H_switch_${CURIC}:
i = elements P_arg_0
POST_BRANCH_switch_${CURIC}_LOOP:
if i == 0 goto POST <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	231	360	
==>NAME

Parrot::Test::HQ9plus - Testing routines specific to 'HQ9plus'.

=head1 DESCRIPTION

Call HQ9plus.pbc

=head1 METHODS

=head <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	9576	9667	
==>f->_restore($true);

  $self->_add_inst("FALSE_$label");
  my $false = $self->_generate(_get <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39017	39341	
==>T => -8
	},
	{#State 158
		ACTIONS => {
			"," => 151
		},
		DEFAULT => -36
	},
	{#State 159
		DEFAULT => -17,
		GOTOS => {
			'@4-4' => 181
		}
	},
	{#State 160
		DEFAULT => -19
	},
	{#State 161
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 3 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3065	3169	
==>ub
	@saves=();
	foreach my $var (keys %{$code{$seg}->{declarations}}) {
		if (exists $main::common{$var}) <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5419	5535	
==>${STEMP0} = "$"
${STEMP1} = ${LOADTYPE}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473783	474123	
==>i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 543,
                  "ARGS" => [
                              "n",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 403 \"src/ops/math.ops\"\n  FLOAT <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	1482	1671	
==>s -1.

=cut

sub parse_vtable {

    my $file = defined $_[0] ? shift() : 'vtable.tbl';
    my $vtable = [];
    my $fh = FileHandle->new($file, O_RDONLY) or
        die "Can't open $file fo <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	292	400	
==>ree to a native tree.

=cut

sub convert_p6tree {
    my ($self, $tree, $ctx) = @_;
    if (ref($tree) eq 'P6 <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	44607	44743	
==>my $ANY			= '\G\((s\?)'.$SIMPLEPAT.'\)';
my $MANY 		= '\G\((s|\.\.)'.$SIMPLEPAT.'\)';
my $EXACTLY		= '\G\(([1-9]\d*)'.$SIMPLEPAT.'\)';
my <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441583	441676	
==>\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442598	442691	
==>\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047741	1048033	
==>_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048664	1048956	
==>_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696307	696727	
==>,
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 782,
                  "ARGS" => [
                              "i",
                              "i <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	10932	11051	
==>$expect, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # undef only <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	11350	11469	
==>$expect, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # undef only <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	41388	41489	
==>func_obj, @_);
  $self->_restore($func_obj);

  return $return;
}

sub _call_function_obj {
  my $self <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	869	964	
==>ecified as strings
and without leading/trailing pattern delimiters.

(Hint: if you try using qr/ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2967	3062	
==>ecified as strings
and without leading/trailing pattern delimiters.

(Hint: if you try using qr/ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9304	9405	
==>e');

    my ($cc, $ccflags, $ldout, $o, $link, $linkflags, $cc_exe_out, $exe, $libs) = $conf->data->g <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	2280	2370	
==>lock->find_symbol($ident);

      $ident = Jako::Construct::Expression::Value::Identifier-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2984	3090	
==>address)>.

=cut

sub restart_address
{
    my ($self, $addr) = @_;

    return "interpreter->resume_offset <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3853	3959	
==>address)>.

=cut

sub restart_address
{
    my ($self, $addr) = @_;

    return "interpreter->resume_offset <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34453	34568	
==>ns')
		. ($self->{argcode} ? ",sub { return $self->{argcode} }"
				   : ',undef')
		. ')))
		{
			'.($self->{"looka <==
2	/Users/nnunley/parrot/Configure.pl	6700	6903	
==>=(files)        Use the given ops files
   --pmc=(files)        Use the given PMC files

   --cgoto=0            Don't build cgoto core - recommended when short of mem
   --jitcapable         Use JIT
   - <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934059	934201	
==>ing.ops\"\n  {{\@1}} = string_downcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934834	934976	
==>ing.ops\"\n  {{\@1}} = string_downcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13129	13259	
==>ond
	link as first
end type
type third
	poit as integer
	fwd as second
end type
dim x as third
dim y as third
dim k as second
x.fwd <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	5367	5543	
==>-)?(.*)$/$1/;
                @warns = grep !/^-W(?:no-)?$w$/, @warns;
            }
            $warns = join ' ', @warns;
        }
    }

    if (defined $conf->options->get( <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3432	3554	
==>" } @$pmcs;
        if (needs_build("$group.c", @pmcfiles)) {
            run("$PMC2C --library $group --c " . join(" ",@pm <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3536	3658	
==>" } @$pmcs;
        if (needs_build("$group.c", @pmcfiles)) {
            run("$PMC2C --library $group --c " . join(" ",@pm <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21111	21369	
==>eturn;
  my $label = $self->_gensym();

  $return = $self->_constant(0);

  $self->_add_inst(''           ,'set'   ,[$return,1]);
  my $temp = $self->_generate($node->{children}[1]);
  $self->_add_inst(''           ,'eq'    ,[$temp,0,"DONE_$label"]);
  $self- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060032	1060136	
==>\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null name\");\n\n    ne <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060937	1061041	
==>\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null name\");\n\n    ne <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	3134	3265	
==>> "set_nci_I(interpreter, &st, *return_data);",
       2 => "set_nci_I(interpreter, &st, *return_data);",
       f => "set_nci_N(int <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3548	3658	
==>le') {
    # Convert X.c -> X.o for all X.c
	my $core_suffix;
	foreach $core_suffix (values %cores) {
		compile <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2413	2509	
==>P1= P0["$stype"]
	P0= P1["$var"]	# Pull the original
	P2= P10[I25]
	P3= P2["$stype"]
	P3["$var"]= <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2640	2736	
==>P1= P0["$stype"]
	P0= P1["$var"]	# Pull the original
	P2= P10[I25]
	P3= P2["$stype"]
	P3["$var"]= <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	2287	2394	
==>ind_symbol($ident);

      $ident = Jako::Construct::Expression::Value::Identifier->compile2($compiler, $sel <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453108	453333	
==>e 230 \"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453847	454072	
==>e 230 \"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023360	1023459	
==>ime_t t = (time_t) {{\@2}};\n  Parrot_localtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024210	1024309	
==>ime_t t = (time_t) {{\@2}};\n  Parrot_localtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &t <==
2	/Users/nnunley/parrot/config/init/manifest.pm	349	442	
==>s);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step;
use ExtUtils::M <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	1874	1973	
==>(Regex::Ops::Tree);

@Regex::Ops::Tree::call::ISA         = qw(Regex::Ops::Tree);
@Regex::Ops::Tree: <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	1446	1626	
==>) {
            $link = 'g++';
        } else {
            $link =~ s/\bcc\b/CC/;
        }
        $conf->data->set(link => $link);
        $conf->data->deltrigger("cc", "solaris_ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	63257	63351	
==>ermost
opening bracket.

=item C<Did not find opening tag: /%s/>

C<extract_tagged> did not fin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23082	23302	
==>est);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25521	25741	
==>est);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRE <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	38439	38544	
==>else {
            DEBUG and print "Treating $para_type paragraph as Data because the containing =for ($fo <==
2	/Users/nnunley/parrot/config/auto/perldoc.pm	202	298	
==>SCRIPTION

Determines whether perldoc exists on the system.

=cut

package auto::perldoc;

use st <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	1486	1637	
==>ev/manicheck.pl'),
            $self->new_item('', 'tools/dev/run_indent.pl'),
        ),
        $self->new_group('Documentation', '',
            $sel <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	963	1054	
==>efine REL_PC ((size_t)((opcode_t*)cur_opcode - (opcode_t*)interpreter->code->prederef.code)) <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1093	1184	
==>efine REL_PC ((size_t)((opcode_t*)cur_opcode - (opcode_t*)interpreter->code->prederef.code)) <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	34781	35070	
==>== 1 ? '' : 's';
            $self->diag(<<"FAIL");
Looks like you failed $num_failed test$s of $self->{Expected_Tests}.
FAIL
        }

        if( $self->{Test_Died} ) {
            $self->diag(<<"FAIL");
Looks like your test died just after $self->{Curr_Test}.
FAIL

            _my_exit <==
2	/Users/nnunley/parrot/lib/Test/More.pm	28791	28930	
==>a_Stack if $ok;

        last unless $ok;
    }

    return $ok;
}

sub _deep_check {
    my($e1, $e2) = @_;
    my $ok = 0;

    # Effectiv <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	5757	5949	
==>erefore the previous pod para
      DEBUG > 1 and print "Noting =cut at line ${$self}{'line_count'}\n";
      $self->{'in_pod'} = 0;
      # ++$self->{'pod_para_count'};
      $self->_ponder_pa <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	3994	4130	
==>s.
    foreach (keys %classes) {
        # Stick label at top.
        my $label = "CLASS_$_";
        $label =~ s/\./_/g;
        $pir . <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39789	40114	
==>();
        my $main = new defn( '_main', 'fct' );
        push @opcodes, new SubDir( $parser,
            'prolog' => 1,
            'result' => $main,
        );
        push @opcodes, @{$stat};
        push @opcodes, new EndDir($parser);
        foreach my $op (@opcodes) {
            if ( $op and $op->isa('Branc <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	4099	4205	
==>XT};
    
    print {$self->{'output_fh'}} $self->{'Tagmap'}{$tagname};
    
    my $next = $self->get_toke <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	145	243	
==>NAME

tools/build/pmc2c.pl - PMC definition to C compiler

=head1 SYNOPSIS

Create F<src/pmc/foo.du <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44764	44930	
==>k' => 209,
			'chunk' => 57
		}
	},
	{#State 205
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"% <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	2484	2634	
==>~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~

sub get_token {
  my $self = shift;
  DEBUG > 1 and print "\nget_token starting up on $self.\n";
  DEBUG > 2 and print " I <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811495	811588	
==>"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812397	812490	
==>"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	117	227	
==>A $VERSION $SORT_ATTRS);
$VERSION = '2.02';
BEGIN {
  @ISA = ('Pod::Simple');
  *DEBUG = \&Pod::Simple::DEBUG u <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	118	228	
==>A $VERSION $SORT_ATTRS);
$VERSION = '2.02';
BEGIN {
  @ISA = ('Pod::Simple');
  *DEBUG = \&Pod::Simple::DEBUG u <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	312929	313373	
==>",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 365,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 170 \"src/ops/debug.ops\"\n  struct Parrot_Context_info info;\n  Parrot_Context_info(interpreter, CONTEX <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5005	5190	
==>q $result, $false, IFBRANCH_$ifline
CODE
		feedme();
		push(@ifstack, $ifline);
		$ifline++;
		$elseline++;
		goto PARSE;
	}
	if ($syms[CURR] eq "else") {   #  and $singleif) {
		my $c=p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	446450	446693	
==>s( {{\@1}} );\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447087	447330	
==>s( {{\@1}} );\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	2195	2329	
==>erred.
#

sub at
{
  my $self = shift;
  my ($index, $count) = @_;

  $index = $self->pos unless defined $index;

  $count = 1 unless d <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	30944	31068	
==>2'   => $_step,
        'result' => $_var,
    );
    push @opcodes, new BranchOp( $parser,
        'result' => $lbl_loop <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	1046	1141	
==>ode) may access.

There is a deliberate distancing from the internals here. Don't go
peeking ins <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24657	24845	
==>oke(interpreter, p, dest);\n  {{=dest}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351027	351269	
==>VAL){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351689	351931	
==>VAL){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pr <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	3139	3364	
==>sub new {
        my $proto = shift;
        my $class = ref($proto) || $proto;
        my $self  = {};
        bless $self, $class;
        my ( $symb, $klass, $type, $subtype, $name ) = @_;
        $self->{symbol}  = $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	47	267	
==>sub new {
        my $proto = shift;
        my $class = ref($proto) || $proto;
        my $self  = {};
        bless $self, $class;
        my ($fh) = @_;
        $self->{fh}       = $fh;
        $self->{prologue} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572959	573064	
==>(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, name, {{\@2}});\n  {{\@1}} = pm <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573869	573974	
==>(interpreter, enum_class_String);\n  VTABLE_set_string_native(interpreter, name, {{\@2}});\n  {{\@1}} = pm <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554694	555134	
==>GS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 637,
                  "ARGS" => [
                              "p",
                              "sc",
                              "p"
                            ], <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	17177	17450	
==>ob $files[0] if $files[0] eq '*.pmc';

    my %all;
    for my $file (@files) {
        my ($class, $res) = dump_1_pmc($file);
        $res->{file} = $file;
        $all{$class} = $res;
    }

    $all{default} = read_dump($include, "default.pmc")
        if not $all{defaul <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	19374	19477	
==>children of this $treelet->[0] node...\n";
    for($i = 2; $i < @$treelet; ++$i) { # iterate over childr <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	22017	22120	
==>children of this $treelet->[0] node...\n";
    for($i = 2; $i < @$treelet; ++$i) { # iterate over childr <==
2	/Users/nnunley/parrot/tools/util/pirtidy.pl	40	234	
==>y.pl 19235 2006-05-11T16:43:46.320675Z particle  $

use strict;
use warnings;
use Fatal qw( open close );

use lib 'lib';

use Parrot::PIR::Formatter;

my $extension = 'tdy';
my $verbose   = 'tha <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	373	499	
==>Jako::Construct::Declaration);

use Jako::Symbol;
use Jako::Construct::Type;


#
# new()
#

sub new
{
  my $class = shift;

  m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314780	314936	
==>27) {\n    {{\@1}} = (INTVAL)((signed char)({{\@1}}));\n  }\n  else {\n    internal_exception(1, \"Overflow exception for conv_i1_ovf\");\n  }\n  {{+=2}};\n" <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1935	2057	
==>ST FAILED: $file ($ret)\n";
	return;
	}
    print "OK: $file\n";
}

sub run_test {
    my ($file, $expect) = @_;
    my $re <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9214	9348	
==>YErrok has been called
            or  next;       # so continue parsing

#DBG>			$debug & 0x10
#DBG>		and	do {
#DBG>			print STDE <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8799	8928	
==>YErrok has been called
            or  next;       # so continue parsing

#DBG>			$debug & 0x10
#DBG>		and	do {
#DBG>			print STDE <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	415	623	
==>CURR];
	feedme();
	feedme() while($syms[CURR] =~ /[(),]/);
	my $source=$syms[CURR];
	feedme();	
	feedme() while($syms[CURR] =~ /[(),]/);
	$targ.=$seg;
	$source.=$seg;
	push @{$code{$seg}->{code}}, <<KEYS;
	_AR <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	306	393	
==>w;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub _ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	562	649	
==>w;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub _ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5622	5852	
==>($self, $group) = @_;
    return ("new <rx_ptmp>, \"MatchRange\" # new group \"$group\"",
            "set <rx_match>[\"$group\"], <rx_ptmp>");
}

sub output_setstart {
    my ($self, $group, $value) = @_;
    $value = value($value <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343717	344196	
==>=> [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 402,
                  "ARGS" => [
                              "p",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 148 \"src/ops/io.ops\"\n  /* These char * need to go away <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1673	1825	
==>return "cur_opcode = $addr;\ngoto switch_label";
}

=item C<expr_offset($offset)>

An offset expression is always an offset from C<start_code>, because
t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830621	830711	
==>L i = {{\@1}};\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &i, STACK <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831362	831452	
==>L i = {{\@1}};\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &i, STACK <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	3439	3663	
==>list_only} = $ini->val( global => 'list' );
}
if ( ! defined $cfg{use_times} ) {
    $cfg{use_times} = $ini->val( global => 'time' );
}
if ( ! defined $cfg{display_help} ) {
    $cfg{display_help} = $ini->val( global => 'help <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837623	837934	
==>_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 949,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2977	3092	
==>el2:
   PRINT "4 back in subroutine one"
   RETURN Label1
Sub2:
   PRINT "3 in subroutine two"
   RETURN Label2   'C <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16944	17059	
==>el2:
   PRINT "4 back in subroutine one"
   RETURN Label1
Sub2:
   PRINT "3 in subroutine two"
   RETURN Label2   'C <==
2	/Users/nnunley/parrot/config/auto/msvc.pm	248	381	
==>ally C<Visual C++>.

=cut

package auto::msvc;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Bas <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	2656	2768	
==>aved and passed to the registered class's C<runstep()> method.

Accepts a list and returns a L<Parrot::Configure> <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1145	1262	
==>File::Spec->splitdir($path_to_parrot));
        my $path_to_language;
        if ($dir_count == 0) {
          $path_t <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1630	1747	
==>File::Spec->splitdir($path_to_parrot));
        my $path_to_language;
        if ($dir_count == 0) {
          $path_t <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	367	509	
==>ass Methods

=over

=cut

package Parrot::Docs::Section::DynaPMCs;

use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<n <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3793	3925	
==>', 'I16'],
  ['',            'ne', 'I16', 'I2', 'apply_ITER'],
  ['apply_CALL',  'set', 'I0', 0],
  ['',            'invoke'],
  ['ap <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	357	517	
==>Instance Methods

=over 4

=cut

package Parrot::OpTrans::CGoto;

use strict;
use warnings;

use base qw( Parrot::OpTrans );

=item C<suffix()>

The suffix is C< <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	26261	26523	
==>ainder) =
		extract_tagged($text,"BEGIN","END",undef,{bad=>["BEGIN"]});


 # Extract the initial substring of $text that represents a
 # Perl "quote or quote-like operation"

	($extracted, $remainder) = extract_quotelike($text);


 # Extract the initial substring <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523474	523958	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 604,
                  "ARGS" => [
                              "n",
                              "n",
                              "nc"
                            ],
                  "BODY <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	39733	39835	
==>ext, '/para', '/endpara', undef,
				{reject => '/para', fail => MAX );

	# EXTRACTED: "/para line 1\n\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103974	1104068	
==>erpreter, class);\n\t\ttype = pmc_type(interpreter, class);\n\t}\n\tif (type <= 0)\n\t\treal_ex <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105189	1105283	
==>erpreter, class);\n\t\ttype = pmc_type(interpreter, class);\n\t}\n\tif (type <= 0)\n\t\treal_ex <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32277	32384	
==>($self->{class}, $method, 0);
    # I think that these will be out by one - NWC
    my $l = $self->line_dire <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40899	41006	
==>($self->{class}, $method, 0);
    # I think that these will be out by one - NWC
    my $l = $self->line_dire <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	2955	3088	
==>formation as the test counter and
where test output is going.

If you want a completely new Test::Builder object different from the
si <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18169	18297	
==>p_symbol_p {
}

sub _op_symbol_string {
}

sub _op_string_symbol {
}

sub _op_number_p {
}

sub _op_complex_p {
}

sub _op_real_p <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	977	1061	
==>(size_t)((opcode_t*)cur_opcode - (opcode_t*)interpreter->code->prederef.code))
#defin <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1107	1191	
==>(size_t)((opcode_t*)cur_opcode - (opcode_t*)interpreter->code->prederef.code))
#defin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106272	1106358	
==>eter->n_vtable_max)\n\treal_exception(interpreter, NULL, E_ValueError,\n\t\t\"type numb <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107248	1107334	
==>eter->n_vtable_max)\n\treal_exception(interpreter, NULL, E_ValueError,\n\t\t\"type numb <==
2	/Users/nnunley/parrot/lib/Test/More.pm	28092	28189	
==>@this, \@that);

Checks if two arrays are equivalent.  This is a deep check, so
multi-level struct <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15970	16133	
==>racter (which
  #  looks just like a normal dash character).
  
  my $x; # scratch
  if(!defined wantarray) { # void context: alter in-place!
    for(@_) {
      s/ <==
2	/Users/nnunley/parrot/lib/File/Which.pm	248	427	
==>');
my $Is_MacOS  = ($^O eq 'MacOS');
my $Is_DOSish = (($^O eq 'MSWin32') or
                ($^O eq 'dos')     or
                ($^O eq 'os2'));

# For Win32 systems, stores the <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773809	774295	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 874,
                  "ARGS" => [
                              "p",
                              "kic",
                              "i"
                            ],
                  "BODY" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782902	783218	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 884,
                  "AR <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	7009	7122	
==>push @stream, pop @stack
				while(@stack and $stack[-1]->[0] ne "(");
			pop @stack;
			next;
		}

		if (	$type e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009824	1009915	
==>"BODY" => "#line 659 \"src/ops/string.ops\"\n  {{\@1}} = string_compose(interpreter, {{\@2}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010589	1010680	
==>"BODY" => "#line 659 \"src/ops/string.ops\"\n  {{\@1}} = string_compose(interpreter, {{\@2}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791988	792498	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 894,
                  "ARGS" => [
                              "p",
                              "p",
                              "kic"
                            ],
                  "BODY" => "#line 432 \"src/ops <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	14309	14423	
==>ld better be namespace of func
	    # but can't create namespace yet
	    my $gn = "def_arg_" . ($n-$i-1);
	    pri <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	14769	14998	
==>EFAULT => -8
	},
	{#State 30
		ACTIONS => {
			'NUM' => 49,
			'CHAR' => 47,
			"]" => 50
		},
		GOTOS => {
			'classpiece' => 48
		}
	},
	{#State 31
		DEFAULT => -40,
		GOTOS => {
			'classpieces' => 51
		}
	},
	{#State 32
		DEFA <==
2	/Users/nnunley/parrot/config/inter/shlibs.pm	225	321	
==>which flags are needed for compiling position-independent code
for use in shared libraries.  Even <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15089	15269	
==>tructures of arbitrary depth and of
an arbitrary type. The function signatures will likely look something
like this:

  multi sub is_deeply (Array @got, Array @expected, Str $desc?) <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54418	54590	
==>ent::Directive(
					      'my $oldskip = $skip; $skip='.$1.'; $oldskip',
					      $lookahead,$line,$code);
				$prod and $prod->additem($item)
				      or  _no_rule($cod <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11484	11611	
==>ceeded(),
            ".return (<rx_match>)");
}

sub output_rule_fail {
    my ($self, $name) = @_;
    return ($self->output_m <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	19257	19385	
==>f->{vtable}{methods}} ) {
        my $meth = $method->{meth};
        my $meth_name;
        my $defaulted = 0;
        my $class <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48136	48264	
==>rep) = (1,$MAXREP);
			if ($grammar =~ m/\G[(]/gc)
			{
				pos($grammar)--;

				if ($grammar =~ m/$OPTIONAL/gco)
					{ ($minre <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	922	1137	
==>files that
you do not later turn into C code (see F<tools/build/ops2c.pl>) with the
same op content and order is a recipe for disaster. But as long as you
just run these tools in the standard build process via C<make <==
2	/Users/nnunley/parrot/lib/Test/More.pm	34569	34663	
==>String overloaded objects are compared B<as strings>.  This prevents
Test::More from piercing a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369449	369540	
==>ODY" => "#line 341 \"src/ops/io.ops\"\n  {{\@1}} = PIO_reads(interpreter, {{\@2}}, (size_t){ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	370334	370425	
==>ODY" => "#line 341 \"src/ops/io.ops\"\n  {{\@1}} = PIO_reads(interpreter, {{\@2}}, (size_t){ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13907	14076	
==>d_inst ('', 'ne', [$return,'.Array',"FAIL_$label"]);
    $self->_add_inst ('', 'set', [$return,$item]);
    $self->_add_inst ('', 'ne', [$return,2,"FAIL_$label"]);
    $s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	1987	2095	
==>atches (eg /a[bB]c/).

But perhaps this should be handled in the Tree -> List rewrite??

=cut

sub optimize { <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	668	765	
==>Simple::PullParser>, you might
get an object of this class.

This is a subclass of L<Pod::Simple:: <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	574	671	
==>Simple::PullParser>, you might
get an object of this class.

This is a subclass of L<Pod::Simple:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	309360	309740	
==>ps\"\n    const char *f;\n\n    if (!(interpreter->pdb->state & PDB_BREAK)) {\n        f = string_to_cstring(interpreter,({{\@1}}));\n        PDB_load_source(interpreter,f);\n    }\n\n    {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
2	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	989	1215	
==>onf->data->get('linkflags');
    if ($linkflags !~ /-expect_unresolved/) {
        $linkflags = "-expect_unresolved '*' -O4 -msym -std $linkflags";
        $conf->data->set(linkflags => $linkflags);
    }

    # Required becaus <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	3576	3670	
==>mp : vtable.dump $parent_dumps lib/Parrot/Pmc2c.pm \\
		src/pmc/$pmc.pmc
	\$(PMC2CD) src/pmc/$p <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	19931	20057	
==>e proper module.
    #  - Added "use strict".
    #  - Bug in build_methods, was using @var when @$var needed.
    #  - Now usi <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7445	7550	
==>200, 300
print "No match\n"
FIN:
for i = 1 to 3
	on i gosub oats, peas, beans
next i
print
end
100 print " <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19728	19833	
==>200, 300
print "No match\n"
FIN:
for i = 1 to 3
	on i gosub oats, peas, beans
next i
print
end
100 print " <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	17	107	
==>002, The Perl Foundation.
# $Id: /parrot/lib/Parrot/OpTrans/CGoto.pm 20333 2006-06-21T18:44 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89278	89535	
==>ps/bit.ops\"\n  {{\@1}} &= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90016	90273	
==>ps/bit.ops\"\n  {{\@1}} &= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	2051	2341	
==>ncat-assign'); }
sub is_const         { return shift->is('const');         }
sub is_continue      { return shift->is('continue');      }
sub is_else          { return shift->is('else');          }
sub is_eof           { return shift->is('eof');           }
sub is_exfix_arith   { return shif <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	28844	29053	
==>start_line, "A non-empty Z<>" );
      }      # but kill it anyway
        
      splice(@$treelet, $i, 1); # thereby just nix this node.
      --$i;
        
    }
  }
  
  return;
}

# . . . . . . . . . . . . <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	36988	37124	
==>between (balanced)
specified tags. 

The subroutine takes up to five optional arguments:

=over 4

=item 1.

A string to be processed (C< <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	51658	51792	
==>th) . " $x " . (">" x $ender_length);
      } else {
        $x = $code . "<$x>";
      }
    }
    DEBUG > 1 and print "Unterminated $ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	38461	38584	
==>nce contains one or more strings specifying patterns
that are I<not> be be treated as nested tags within the tagged text
(ev <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37448	37551	
==>ext),
				  q{' . $rule->{"name"} . '})
					if defined $::RD_TRACE;').'
		$Parse::RecDescent::lastexpec <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39851	39954	
==>ext),
				  q{' . $rule->{"name"} . '})
					if defined $::RD_TRACE;').'
		$Parse::RecDescent::lastexpec <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	7570	7678	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
#
# And now targets (not directives)

s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	5522	5676	
==>rint " Fetching a line from source-string...\n";
      if( ${ $self->{'source_scalar_ref'} } =~
        m/([^\n\r]*)((?:\r?\n)?)/g
      ) {
        #print <==
2	/Users/nnunley/parrot/lib/Test/More.pm	32945	33059	
==>: $a cmp $b } @$a2]
    );
}

=back


=head2 Extending and Embedding Test::More

Sometimes the Test::More interface <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	2060	2275	
==>must be provided eventually for the
op to be usable.

C<$code> is the integer identifier for the op.

C<$type> is the type of op (see the note on op types above).

C<$name> is the name of the op.

C<$args> is a refer <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	191	318	
==>use strict;
require 'Regex.pm';

sub new {
    my ($proto, %options) = @_;
    my $self = bless \%options, (ref($proto) || $prot <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	56561	56659	
==>e. The delimited and bracketed
parts are also blessed to identify them (the "anything else" is unbl <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	12380	12523	
==>b90\sa180\f2\fs%s\ul\sbasedon0 \snext0 pod-head2;}
{\s33\ql \keepn\sb90\sa180\f2\fs%s\ul\sbasedon0 \snext0 pod-head3;}
{\s34\ql \keepn\sb90\sa18 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15057	15173	
==>?ord($1):(ord($1)-65536)).'?'/eg;
    }
    return;
  } elsif(wantarray) {  # return an array
    return map {; ($x = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16240	16356	
==>?ord($1):(ord($1)-65536)).'?'/eg;
    }
    return;
  } elsif(wantarray) {  # return an array
    return map {; ($x = <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44807	44961	
==>State 205
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			"> <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7729	7825	
==>$="Hello"
if s$ then print "This is true" else print "Oops (string)"
s$=""
if s$ then print "Shou <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14716	14812	
==>$="Hello"
if s$ then print "This is true" else print "Oops (string)"
s$=""
if s$ then print "Shou <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	6007	6110	
==>U
files.

Note that if there are files with no suffix then the empty string will
be included in this lis <==
2	/Users/nnunley/parrot/tools/util/pirtidy.pl	490	594	
==>$formatter = new Parrot::PIR::Formatter();

    foreach my $line (<$ifh>) {
      $formatter->add_pir( $l <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	2955	3040	
==>::Docs::Section::DynaPMCs>

=item C<Parrot::Docs::Section::C>

=item C<Parrot::Docs::S <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3997	4131	
==>iler->emit("  $temp_pmc = new $pmc_type");
    $compiler->emit("  $temp_pmc = $dest");

    my $dest_name = $dest_ident->value;
    $co <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	8249	8356	
==>ss']);
    $Dumper->Indent(3);
    print $vtd $Dumper->Dump();
    close $vtd;
}

=head2 my ($balanced, $rem <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	211	339	
==>::Op;

=head1 DESCRIPTION

C<Parrot::Op> represents a Parrot operation (op, for short), as read
from an ops file via C<Parrot::Op <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4346	4460	
==>nction
dim t(7)
z=55
t(3)=5.6
a=mine(5)
print t(3)

1740 print "Branched"
	end
' Logical Operators 
print "      AN <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	4914	5008	
==>nexpected result is false.

=item C<example_output_is( $example_f, $expected, @todo )>

Determi <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	4579	4812	
==>&code, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        Test::proclaim(undef, $desc, $todo, "An exception was thrown : $!", :$depends);
    }
    else {
        &Test::ok.goto(1, $desc, <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11082	11190	
==>WXYZ0123456789])/sprintf('%%%02X',ord($1))/eg;
        # Yes, stipulate the list without a range, so that thi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4431	4538	
==>WXYZ0123456789])/sprintf('%%%02X',ord($1))/eg;
       # Yes, stipulate the list without a range, so that thi <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5656	5777	
==>0x2
#DBG>	and	print STDERR "In state $stateno:\n";
#DBG>		$debug & 0x08
#DBG>	and	print STDERR "Stack:[".
#DBG>					 j <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5385	5502	
==>0x2
#DBG>	and	print STDERR "In state $stateno:\n";
#DBG>		$debug & 0x08
#DBG>	and	print STDERR "Stack:[".
#DBG>					 j <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23231	23332	
==>ire_semicolon;
      
      my $goto = Jako::Construct::Statement::Goto->new($block, $ident, $cond, $l <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5212	5351	
==>{result} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $first = 1;
            foreach ( @{ $op->{resu <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6244	6383	
==>{result} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $first = 1;
            foreach ( @{ $op->{resu <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	2618	2809	
==>::Simple> and inherits all its methods.

This class is inspired by XML::Parser's "Tree" parsing-style, although
it doesn't use exactly the same LoL format.

=head1 METHODS

At the end of the p <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	1253	1380	
==>nt "In the sub\n"
	print i
	print j
	print a$
	print c$
end sub
j=2
i=5
a$="Hello"
c$="WRONG"
call mysub()


' Expect 10
sub sec <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776579	777067	
==>ore",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 877,
                  "ARGS" => [
                              "p",
                              "ki",
                              "n"
                            ],
                  "BODY" => "#line 382 \"src/ops/set.ops\"\n    {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878014	878288	
==>> [
                              "s",
                              "sc",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpret <==
2	/Users/nnunley/parrot/config/auto/pack.pm	1233	1358	
==>s annoying, and this won't work unless sizeof(UV) >= 8
            $format = 'q';
        }
        warn "Configure.pl:  Unabl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090070	1090366	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice",
                  "FLAGS" => ":python",
                  "ARGDIRS" => [
                                 "o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1091129	1091425	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice",
                  "FLAGS" => ":python",
                  "ARGDIRS" => [
                                 "o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	153313	153682	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_num",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	6653	6774	
==>name = $_->full_name;
    my $n = $_->{CODE};
    my $comma = $n < @{$real_ops->{OPS}} -1 ? "," : "";
    $opname = "PARRO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947166	947396	
==>\n\t\"charset '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948068	948298	
==>\n\t\"charset '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2210	2309	
==>rsets.  Something should be done about that.
  }
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2313	2412	
==>rsets.  Something should be done about that.
  }
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818910	819124	
==>\n  {{=0,+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "entrytype",
                  "FLAGS" => ":base_c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84940	85265	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85846	86171	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	25188	25389	
==>= $self->rewrite($R, $rfail);

    my @ops = (
                        @R_ops,
                        aop('pushint', [ 1 ]),
                        aop('goto', [ $next ]),
               $back => aop( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2221	2351	
==>lf->block,
    'global',         # TODO: Should we support non-global subs?
    $self->kind,
    $self->type,
    $name,
    undef, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757320	757564	
==>CODE" => 854,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 271 \"src/ops/set.ops\"\n  {{\@1}}->vtable->assign_string_native( <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2387	2488	
==>rray=$array)
	P0= P10[0]
	P1= P0["$stype"]
	P0= P1["$var"]	# Pull the original
	P2= P10[I25]
	P3= P2[" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2614	2715	
==>rray=$array)
	P0= P10[0]
	P1= P0["$stype"]
	P0= P1["$var"]	# Pull the original
	P2= P10[I25]
	P3= P2[" <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5572	5707	
==>b partial_link {
    my ($libs, $stem) = @_;

    if (needs_build("$stem$LOAD_EXT", "$stem$O")) {
        run(partial_link_cmd("$stem$LO <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29200	29313	
==>_method}{$meth};
    return $self->{vtable}{methods}[$n]{mmd} =~ /MMD/ ? 0 : 1;
}

=back

=head1 SUBCLASSES

=head <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4440	4579	
==>tors 
print "      AND   OR    XOR   EQV   IMP   a & ! b"
for i = 0 to 1
for j = 0 to 1
print i; j;
if i and j then a$="True  " else a$="Fal <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	44240	44365	
==>args);
    }
  } else {
    my $value = $node->{value};
    if ($value =~ /^[a-zA-Z]/) {
      $return = $self->_find_lex($val <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035743	1035848	
==>, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    {{\@1}} = result;\n    {{+=3}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036907	1037012	
==>, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    {{\@1}} = result;\n    {{+=3}};\ <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1846	1950	
==>ed;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## unlike

sub unlike (Str $go <==
2	/Users/nnunley/parrot/lib/Test/More.pm	1648	1764	
==>$test_name);
  unlike($this, qr/that/, $test_name);

  cmp_ok($this, '==', $that, $test_name);

  is_deeply($complex_ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	819	944	
==>AGE

=head2 Import Parameters

This module accepts no arguments to it's C<import> method and exports no
I<symbols>.

=cut

pac <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	448	573	
==>AGE

=head2 Import Parameters

This module accepts no arguments to it's C<import> method and exports no
I<symbols>.

=cut

pac <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656471	656729	
==>fined_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657395	657653	
==>fined_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	7852	8026	
==>y the above methods.

=cut

sub process_other_start_token
{
    my $self = shift;
    my $token = shift;
    my $tagname = $token->tagname;
    
    if ( $tagname =~ m/^over-( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54846	55088	
==>"\n  {{\@1}} = interpinfo(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55606	55848	
==>"\n  {{\@1}} = interpinfo(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	204	301	
==>ntation section

=head1 SYNOPSIS

    use Parrot::Docs::Section::Info;

=head1 DESCRIPTION

A docu <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2638	2745	
==>ECOMMON/) {
			@saves=();
			$edit="";
			foreach my $var (keys %{$code{$seg}->{declarations}}) {
				if (ex <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065600	1065963	
==>S" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1190,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 260 \"s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	212881	213191	
==>> "function",
                  "CODE" => 250,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 423 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, { <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	24785	24954	
==>/^
      (\S+)         # 1 : new item
      \s+
      (\S+)         # 2 : fallback(s)
      (?:\s+(\S+))? # 3 : element name(s)
      \s*
      $
    /xs
  ) {
    my $ne <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	96	198	
==>se strict;

my $fail_label = Regex::Ops::Tree::mark('FAIL');

sub init_context {
    my ($self, $ctx) = <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	97	199	
==>se strict;

my $fail_label = Regex::Ops::Tree::mark('FAIL');

sub init_context {
    my ($self, $ctx) = <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	7412	7564	
==>a data start token.

=cut

sub process_data_start_token
{
    my $self = shift;
    my $token = shift;
    my $next = $self->get_token;
        
    retu <==
2	/Users/nnunley/parrot/lib/File/Which.pm	3534	3667	
==>re('perl');
  - Or -
  my @paths = which('perl'); # an array forces search for all of them

=head1 DESCRIPTION

C<File::Which> was cre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888686	889151	
==>re",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1005,
                  "ARGS" => [
                              "s",
                              "s",
                              "i <==
2	/Users/nnunley/parrot/lib/Test/More.pm	33651	33758	
==>ck


=head1 EXIT CODES

If all your tests passed, Test::Builder will exit with zero (which is
normal).  If a <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	216	329	
==>=head1 SYNOPSIS

    use Parrot::Docs::Section::C;

=head1 DESCRIPTION

A documentation section describing all the <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	4178	4373	
==>less($ENV{POSTMORTEM}) {
                unlink $f_out;
            }

            return $pass;
        };
    }
}


__PACKAGE__->_generate_functions( );


$_ ^=~ { AUTHOR => 'particle' };

# vim <==
2	/Users/nnunley/parrot/config/auto/gc.pm	1685	1791	
==>race)?$/) {
        $conf->data->set(
            TEMP_gc_c => <<"EOF",
\$(SRC_DIR)/$gc\$(O):	\$(GENERAL_H_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	16	132	
==>age Pod::Simple::PullParser;
$VERSION = '2.02';
use Pod::Simple ();
BEGIN {@ISA = ('Pod::Simple')}

use strict;
use C <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	6739	6868	
==>t's undef!"
     unless defined $t;
    Carp::croak "Can't unget $t, because it's not a token -- it's a string!"
     unless ref $ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7752	7850	
==>!$dest_reg) {
		$pir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[st <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5870	5968	
==>!$dest_reg) {
		$pir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[st <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	14382	14601	
==>@@@@@@@@@@@@@@@

##############################################################################
##
##  stop reading now stop reading now stop reading now stop reading now stop
##
##                         HERE IT BECOME <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1617	1713	
==>ispara'} = ''   }
sub start_item_bullet { $_[0]{'Thispara'} = '* ' }
sub start_item_number { $_[0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054397	1054495	
==>ce.\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to get null global.\");\n\n    next = { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055524	1055622	
==>ce.\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to get null global.\");\n\n    next = { <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	2949	3200	
==>]\n";
    }
    my @obj_files = map { $_->[1] } @compiled_files;
    print F "gcc -lm -o parrot " . (join ' ', @obj_files) . "\n";
    close(F);
}


############################################################################
sub run_command {
    my ( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	237	379	
==>8089Z coke  $
#
#

use strict;
eval "use warnings";

package Jako::Token;


#
# CONSTRUCTOR:
#

sub new
{
  my $class = shift;
  my ($file, $li <==
2	/Users/nnunley/parrot/tools/util/pirtidy.pl	594	752	
==>line );
    }

    my $output = $formatter->get_formatted();
    print {$ofh} $output;

    close $ifh;
    close $ofh;
}

__END__

=head1 NAME

tools/util/pir <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Compilers.pm	141	334	
==>::Compilers - Compilers documentation section

=head1 SYNOPSIS

    use Parrot::Docs::Section::Compilers;

=head1 DESCRIPTION

A documentation section describing all compilers in Parrot. <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14088	14187	
==>nst ('', 'set', [$return,1]);
    $self->_add_inst ('', 'branch', ["DONE_$label"]);
    $self->_add_ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16358	16453	
==>nst ('', 'set', [$return,1]);
  $self->_add_inst ('', 'branch', ["DONE_$label"]);
  $self->_add_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	23358	23474	
==>er
	# I_ARG_0 turns out to me. We also keep track of the fact that ARG0 should
	# only exist inside this rule.
	my @a <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1344	1509	
==>$self, 'local', 'arg', $arg_type, $arg_name, undef, undef, undef, $arg_token->file, $arg_token->line );
    $self->set_symbol($arg_name, $sym);
  }

  return $self;
} <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	599	744	
==>use Parrot::Pmc2c qw(dynext_load_code dont_edit);

=item C<new($opt, $vtable_dump, %pmcs)>

    $library = Parrot::Pmc2c::Library->new
        ( $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	1986	2153	
==>s('colon');         }
sub is_concat_assign { return shift->is('concat-assign'); }
sub is_const         { return shift->is('const');         }
sub is_continue      { ret <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39681	39801	
==>ct_p,
  'char-ready?' => \&_op_char_ready_p,
  'write' => \&_op_write,
  'display' => \&_op_display,
  'newline' => \&_op <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2389	2560	
==>>{symbol}\n";
    }

    sub visitAssignOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  $op->{result}->{ <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	1382	1475	
==>elsif ($dir_count >2) {
      $path_to_tcl = File::Spec->join(File::Spec->updir() x ($dir_coun <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	20753	20929	
==>mar.y"
{ return op('group' => [ $_[3], $_[2] ]) }
	],
	[#Rule 23
		 'expr', 5,
sub
#line 135 "lib/Regex/Grammar.y"
{ return $_[4]; }
	],
	[#Rule 24
		 'expr', 3,
sub
#line 137 " <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1405	1508	
==>S');

sub new {
    my($class)=shift;
	my($errst,$nberr,$token,$value,$check,$dotpos);
    my($self <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1359	1457	
==>S');

sub new {
    my($class)=shift;
	my($errst,$nberr,$token,$value,$check,$dotpos);
    my($self <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	18587	18822	
==>als;

    if (PMC_IS_NULL(iglobals))
        PANIC("iglobals isnt created yet");
    HashPointer = VTABLE_get_pmc_keyed_int(interpreter, iglobals,
            IGLOBALS_NCI_FUNCS);

    if (!HashPointer) {
        HashPointer = pmc_new( <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10738	10831	
==>}] = ${STEMP0}

# Next parameter.
dec stack_depth
goto pre_call_PLOOP_${CURIC}
PRE_CALL_PLOOP_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7991	8084	
==>}] = ${STEMP0}

# Next parameter.
dec stack_depth
goto pre_call_PLOOP_${CURIC}
PRE_CALL_PLOOP_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841083	841377	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841846	842140	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	46904	47097	
==>] );
        }
	],
	[#Rule 12
		 'stat', 4,
sub
#line 100 "Lua\lua51.yp"
{
            $_[3];
        }
	],
	[#Rule 13
		 '@2-1', 0,
sub
#line 104 "Lua\lua51.yp"
{
            Pu <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	2122	2300	
==>_cb = sub {
        my ($key, $gccversion) = @_;

        if ($gccversion) {
            $conf->data->set(cc_shared => '-fPIC');
        } else {
            $conf->data->set(cc_s <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	15392	15641	
==>}

            my $meth = $parrot_test_map{$func};
            my $real_output = slurp_file($out_f);

            # set a TODO for Test::Builder to find
            my $call_pkg = $builder->exported_to() || '';
            # die Dumper( $code, $expec <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	1057	1155	
==>e the function-based (slow or fast core) run loop.

=item C<CGoto>

Create the C<goto> run loop.

= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447831	448109	
==>2}};\n  }\n  else {\n    {{\@1}} = (INTVAL){{\@2}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	52172	52286	
==>?=$CONDREJECTMK)/gco
				and do { ($code) = extract_codeblock($grammar,'{',undef,'<');
					  $code })
			{
				_pa <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	37652	37771	
==>. For example, if the opening tag pattern
is specified as C<'{{\w+}}'> and actually matched the opening tag 
C<"{{DATA}} <==
2	/Users/nnunley/parrot/config/auto/jit.pm	903	1004	
==>$archname = $Config{archname};
    my ($cpuarch, $osname) = split(/-/, $archname);

    if (!defined $ <==
2	/Users/nnunley/parrot/Configure.pl	5105	5348	
==>erbose            Output extra information
   --verbose=2          Output every setting change
   --verbose-step=N     Set verbose for step N only
   --verbose-step=regex Set verbose for step matching description
   --nomanicheck        Don't c <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	14508	14625	
==>extref,'\s*',$patvalid,$patvalid) )
		{
			$patvalid = 0;
			next;
		}


		# NEED TO COVER MANY MORE CASES HERE!!!
		i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773806	774103	
==>et",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 874, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	13992	14126	
==>return annotated($op, "charclass " . $op->render(@_));
}

sub Regex::Ops::Tree::classpieces::reftree {
    my $op = shift;
    return a <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	41117	41259	
==>$scope = $self->{scope};

  while ($scope && !exists $scope->{$symbol}) {
    $scope = $scope->{'*UP*'};
  }
  if (!$scope) {
    push @{$self- <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4505	4615	
==>generated code.
	return $pir;
}

sub post_op($$) {
	# Nothing to do.
	return "";
}

# Pre and post branch opera <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2921	3031	
==>generated code.
	return $pir;
}

sub post_op($$) {
	# Nothing to do.
	return "";
}

# Pre and post branch opera <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769813	769989	
==>,
                              "i"
                            ],
                  "BODY" => "#line 350 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770666	770842	
==>,
                              "i"
                            ],
                  "BODY" => "#line 350 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81332	81612	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compile",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82225	82505	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compile",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	311	442	
==>rot::Configure::RunSteps->runsteps process,
    # inter/progs.pl will merge the command-line overrides with the defaults.
    # We d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807870	807959	
==>et.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed(interpreter, {{\@2}}, {{\@3}});\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808775	808864	
==>et.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed(interpreter, {{\@2}}, {{\@3}});\ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5702	5814	
==>:\n";
#DBG>		$debug & 0x08
#DBG>	and	print STDERR "Stack:[".
#DBG>					 join(',',map { $$_[0] } @$stack).
#DB <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5430	5538	
==>:\n";
#DBG>		$debug & 0x08
#DBG>	and	print STDERR "Stack:[".
#DBG>					 join(',',map { $$_[0] } @$stack).
#DB <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8081	8180	
==>OOP_END_${CURIC}:

# If there is a return type, need to supply a ${DEST0}.
${ITEMP0} = ${PTEMP1}["ty <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	917	1089	
==>pt, $1; $_ }
   qw[
       underline=ul         smallcaps=scaps  shadow=shad
       superscript=super    subscript=sub    strikethrough=strike
       outline=outl         em <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630447	630565	
==>\"\n    PMC *class = {{\@2}};\n    INTVAL type = pmc_type_p(interpreter, class);\n    if (type <= 0)\n        real_exce <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631437	631555	
==>\"\n    PMC *class = {{\@2}};\n    INTVAL type = pmc_type_p(interpreter, class);\n    if (type <= 0)\n        real_exce <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	9064	9199	
==>]\")");
        }
    }

}


sub check_manifest {
    open(F, "<MANIFEST") || die "Unable to read MANIFEST: $!\n";

    my %files_in_dir <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596193	596369	
==>n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597086	597262	
==>n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522	615	
==>eamble);

$VERSION = "0.4.5";

$preamble = "/*\n** core.ops\n*/\n\n#include \"parrot/dynext.h\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4309	4437	
==>ore function declaration.

=cut

sub run_core_func_decl
{
    my ($self, $core) = @_;

    return "opcode_t * " .
        $self-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2797	2925	
==>ore function declaration.

=cut

sub run_core_func_decl
{
    my ($self, $core) = @_;

    return "opcode_t * " .
        $self-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661940	662026	
==>{{\@1}} = PMC_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(interpreter, {{\@2}}, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662856	662942	
==>{{\@1}} = PMC_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(interpreter, {{\@2}}, <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	1552	1668	
==>{ptrsize} != $results{intvalsize}) {
        print <<"END";

Hmm, I see your chosen INTVAL isn't the same size as you <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	727	859	
==>tools/dev/gen_manifest_skip.pl NOW
#
# This file should contain a transcript of the svn:ignore properties
# of the directories in the <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	24289	24436	
==>he treelet is now formatless.\n";
    return 0;
  }
  return 1;
}

# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

su <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	773	884	
==>"This is"
b$("Key 2")="an"
B$("Hi Mom!")="interesting"
B$(0)="development.
keys a$(), b$()
i=0
do
	t$=a$(i)
	pri <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	60484	60579	
==>iter provided to C<extract_bracketed> was not one of
C<'()[]E<lt>E<gt>{}'>.

=item  C<Did not fi <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	7488	7600	
==>t_found = op1
    inc not_found

    .local pmc result
    result = new 'APLVector'

    iter_two = new .Iterator <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9943	10050	
==>ref'd var from 5 to 12
function myfunc(a)
	print a
	a=12
        myfunc=80
end function
z=5
T=myfunc(z)
prin <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11556	11663	
==>ref'd var from 5 to 12
function myfunc(a)
	print a
	a=12
        myfunc=80
end function
z=5
T=myfunc(z)
prin <==
2	/Users/nnunley/parrot/examples/benchmarks/shared_ref.pl	243	411	
==>NOPSIS

    % time perl examples/benchmarks/shared_ref.pl

=head1 DESCRIPTION

Shares references between threads.

=cut

use strict;
use threads;
use threads::shared;

f <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2520	2638	
==>e: [$source_line]\n";

      if( ($line = $source_line) =~ s/^\xEF\xBB\xBF//s ) {
        DEBUG and print "UTF-8 BOM se <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	81	186	
==>vm  $

package Scheme::Test;

use strict;
use vars qw(@EXPORT @ISA);

use Parrot::Config;

require Exporte <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2932	3219	
==>ted_files{$path} = $tmp;
            $tmp = '';
        } else {
            $tmp .= $_;
        }
    }
    close(GCOVSUMMARY);

    foreach my $gcov_file (keys %generated_files) {
        my $source_file = $gcov_file;
        $source_file =~ s/\.gcov$//g;

        # avoid collisions wh <==
2	/Users/nnunley/parrot/languages/scheme/Scheme.pm	999	1168	
==>nerator::_format_columns to own class
    Scheme::Generator::_format_columns($link);
    $code .= $link->{code};
  }

  return $header . $code;
}


=head2 compile

This i <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	61894	62030	
==>$parser->{STACK};
}

sub Generate {
    my $parser = shift;

    my $filename = $parser->YYData->{srcname};
    $filename =~ s/\.l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273290	273657	
==>",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 318,
                  "ARGS" => [
                              "i",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 876 \"src/ops/cmp.ops\" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	3007	3096	
==>Type::String');
  $self->SYNTAX_ERROR("Can't do arithmetic on strings") if UNIVERSAL::isa( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	3127	3216	
==>Type::String');
  $self->SYNTAX_ERROR("Can't do arithmetic on strings") if UNIVERSAL::isa( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028158	1028252	
==>e\");\n  }\n  next = Parrot_sleep_on_event(interpreter, (FLOATVAL) {{\@1}}, next);\n  {{=next}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029009	1029103	
==>e\");\n  }\n  next = Parrot_sleep_on_event(interpreter, (FLOATVAL) {{\@1}}, next);\n  {{=next}} <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4147	4258	
==>t lib-GROUP.so + A.so + B.so ... -> GROUP.so
    while (my ($group, $pmcs) = each %$group_files) {
        parti <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4251	4362	
==>t lib-GROUP.so + A.so + B.so ... -> GROUP.so
    while (my ($group, $pmcs) = each %$group_files) {
        parti <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	10461	10648	
==>PARROT_ARG_%s", uc $_) } $op->arg_types
            : 0
        ) . " }";
        my $arg_dirs   = "{ " . join(", ", scalar $op->arg_dirs
            ? map { $arg_dir_mapping{$_} } $op->ar <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	90	254	
==>c.pl 20350 2006-06-25T03:57:27.771662Z petdance  $

=head1 NAME

tools/build/ops2c.pl - Parser for .ops files

=head1 SYNOPSIS

    % perl tools/build/ops2c.pl trans <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	58309	58483	
==>he characters in the single argument. For example:

        gen_delimited_pat(q{'"})

returns the regex:

        (?:\"(?:\\\"|(?!\").)*\"|\'(?:\\\'|(?!\').)*\')

Note that th <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	11610	11818	
==>t's compiled code.

=cut


sub compile
{
  my $self     = shift; # Required: Jako::Construct::Block
  my $compiler = shift; # Required: Jako::Compiler
  my $options  = shift; # Optional: Hashref

  confess "No <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	4878	5081	
==>ctory    
    return if $File::Find::name =~ m{runtime.parrot.library.PAST};

    $File::Find::name =~ s[^\./][];
    -d and push @dirs, $File::Find::name;
    -f and -e ".svn/text-base/$_.svn-base" and M <==
2	/Users/nnunley/parrot/config/init/hints/vms.pm	359	496	
==>CR $^X",
        exe     => "exe"
    );

    {
        local $^W;    # no warnings on redefinition

        *Parrot::Configure::Step::cc_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3266	3361	
==>P0} > 0 goto PRE_OP_${CURIC}_LAZY_MOVE_$register_num

# No lazy move available - need to refer t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623574	623684	
==>ed = NULL;\n    }\n    lru = &mic->lru;\n    if (lru->u.signature == sig) {\n\tif (sig) {\n\t    n = ((arg_pass <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4598	4735	
==>aration.

=cut

sub ops_addr_decl
{
    my ($self, $bs) = @_;

    return "static void *const* ${bs}ops_addr;\n\n";
}

=item C<run_core_fu <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	9015	9149	
==>$result" if @results;
    return $result;
}

sub footer {
    return ".end\n";
}

=head1 Utility Methods

=head2 (min,max) = num_args($ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558051	558145	
==>->current_object = object;\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559435	559529	
==>->current_object = object;\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_m <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1747	1852	
==>rams, \@_, $self );

		exists($$self{VERSION})
	and	$$self{VERSION} < $COMPATIBLE
	and	croak "Yapp dri <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1686	1787	
==>rams, \@_, $self );

		exists($$self{VERSION})
	and	$$self{VERSION} < $COMPATIBLE
	and	croak "Yapp dri <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367370	367704	
==>NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 430,
                  "ARGS" => [
                              "s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368161	368459	
==>NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 431,
                  "ARGS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396589	397166	
==>network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 460,
                  "ARGS" => [
                              "p",
                              "ic",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1620	1713	
==>lement_start( "head1", \%attributes );
  $parser->_handle_text( "Hi there" );
  $parser->_hand <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	146	241	
==>t::Test::Harness - a test harness for languages built on Parrot

=head1 SYNOPSIS

Tell the harne <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649932	650226	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "valid_type",
                  "FLAGS" => "",
                  "ARGD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650853	651147	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "valid_type",
                  "FLAGS" => "",
                  "ARGD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651304	651547	
==>",
                  "CODE" => 728,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 247 \"src/ops/pmc.ops\"\n    if ({{\@2}} > <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766072	766359	
==>sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 865,
                  "ARG <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	2347	2494	
==>('exfix-arith');   }
sub is_goto          { return shift->is('goto');          }
sub is_ident         { return shift->is('ident');         }
sub is_ <==
2	/Users/nnunley/parrot/config/auto/inline.pm	462	578	
==>ler supports inline';

@args = qw(inline verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $test;
    my ( <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	771	880	
==>tring against the Perl 6 pattern, passing the test
if they match.  Note that patterns should be specified as s <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2869	2978	
==>tring against the Perl 6 pattern, passing the test
if they match.  Note that patterns should be specified as s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767777	768210	
==>sets_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 867,
                  "ARGS" => [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 33 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	32184	32343	
==>> [ $group, -2 ]);
    }

    foreach $group (sort keys %{ $self->{_setup_ends} || {} }) {
        push @ops, aop('setend' => [ $group, -2 ]);
    }

    return <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	7871	8065	
==>( ($text_count_here += length ${$to_unget[-1]->text_r}) > 150 ){
              DEBUG > 1 and print "    item-* is too long to be keepn'd.\n";
              last;
            }
          } elsif ( <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1774	1898	
==>4 => 21
  );

  my $insert = "";
  while(<DATA>) {
	chomp;
	next unless /^[FGHI]/;
	my ($func,@x) = split /,/;
	my $c = $f{$f <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3336	3495	
==>en told about new or deleted files.
END_HEADER

open my $SKIP, '>', 'MANIFEST.SKIP';
print $SKIP '# $' . 'Id' . '$' . "\n";  # confuse SVN
print $SKIP "#\n"; 
p <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	25099	25210	
==>ing undef
           UNIVERSAL::can((tied($maybe_fh) || ''), 'TIEHANDLE');
}


sub _autoflush {
    my($fh) = sh <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14029	14290	
==>21
		ACTIONS => {
			"," => 66,
			'IN' => 67
		}
	},
	{#State 22
		DEFAULT => -5
	},
	{#State 23
		DEFAULT => -3
	},
	{#State 24
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			' <==
2	/Users/nnunley/parrot/config/auto/va_ptr.pm	852	991	
==>ppc';
    } else {
        $va_type = 'x86';
    }
    cc_clean();
    $self->set_result($va_type);
    $conf->data->set(va_ptr_type => $va_ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	42	161	
==>020 2006-03-26T19:46:16.084129Z bernhard  $

package Parrot::Test::Punie;

use strict;
use warnings;

use File::Basename <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	534	623	
==>Parse::RecDescent::expected;
	$Parse::RecDescent::expected =~ s/_/ /g;
	if (!$Parse::RecDe <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	27112	27216	
==>ing representing an optimized pattern (a la Friedl)
# that matches a substring delimited by any of the sp <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	18034	18150	
==>>{Curr_Test}++;

    $self->{Test_Results}[$self->{Curr_Test}-1] = &share({
        'ok'      => 1,
        actual_ok <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	18899	19015	
==>>{Curr_Test}++;

    $self->{Test_Results}[$self->{Curr_Test}-1] = &share({
        'ok'      => 1,
        actual_ok <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	1929	2088	
==>ve path from the page to
F<docs/resources>, the image and CSS file directory.

=cut

sub footer
{
    my $self = shift;
    my $navigation = shift || '';
    my <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	1506	1614	
==>lespoons canola oil (or vegetable oil)
 
 * 1 tablespoon garam masala
 * 1/2 teaspoon red chili powder, or to <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7534	7645	
==>EG}
PIR
	}

	return $pir;
}

# Pre and post store operation hooks.
sub pre_store($) {
	my $self = shift;
	my $de <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840208	840408	
==>erpreter->ctx)->user_stack, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840903	841103	
==>erpreter->ctx)->user_stack, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	2909	3195	
==>f (/^INCLUDES : '(.*)' \[System file\]/) {
            next if ($1 =~ /^include\//);
            $system_include{$1}{$file}++;
            next;
        }
        
        if (! $file && /^FILE : '(.*)'$/) {
            $file = $1;
            next;
        }
        
        # skip any <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	3173	3307	
==>te_h': $!";
    print OUT <<"HEADER";
/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automati <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	52548	52667	
==>_rule("<reject:$code>",$line);
			}
			elsif ($grammar =~ m/(?=$SCOREMK)/gco
				and do { ($code) = extract_codeblock($g <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4864	5021	
==>iteral', Attributes => { type => $type->name } });
    $handler->characters({ Data => $self->value });
    $handler->end_element({ Name => 'literal' });
  }
} <==
2	/Users/nnunley/parrot/tools/build/revision_c.pl	813	907	
==>ig_revision(void);

int Parrot_revision(void)
{
    return ${Parrot::Revision::current};
}

int <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	18146	18435	
==>back
#         next:
#
# to make $matchcount local, we will choose a different name for every
# instance of this rewrite rule. Recursive calls to a given instance
# will be handled in the same way any other local variable would
# (somehow, they'll get saved on the stack.)

sub rewrite_gree <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	334	466	
==>ur FORCE_TODO tests
$Test::force_todo_test_junction;

# for running the test suite multiple times in the same process
$Test::testing_ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20513	20660	
==>'add', [ $matchcount, -1 ]),
               aop('goto', [ $R_back ]),
      $back => $self->op_restore_rxlocals($op),
$local_back => aop('ge', [ $ma <==
2	/Users/nnunley/parrot/config/auto/jit.pm	3646	3815	
==>ame eq 'openbsd')
                || ($osname eq 'freebsd')
                || ($osname eq 'netbsd')
                || ($osname eq 'linux')
                || ($osname e <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1335	1436	
==>name);

  confess "No such symbol '$ident_name'!" unless defined $sym;

  if (($kind eq 'var') and ($s <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	60251	60393	
==>@_);
    bless($self,$class);
}

#line 611 "Lua\lua51.yp"


package Lua::parser;

use strict;

use Lua::lexer;
use Lua::build;
use <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	3879	4014	
==>he full paths of all the files in the directory.

=cut

sub file_paths()
{
    my $self = shift;

    return sort grep {-f} $self->file_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11550	11647	
==>{CURIC}

# Do we have anything on the lazy moves stack?
${ITEMP0} = elements lazy_moves
if ${ITEMP <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	8088	8199	
==>h my $t (@_) {
    next unless defined $t and length $t;
    # TODO: enforce some limitations on what a target n <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	8607	8718	
==>h my $t (@_) {
    next unless defined $t and length $t;
    # TODO: enforce some limitations on what a target n <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	22125	22250	
==>ub diag {
    my($self, @msgs) = @_;
    return unless @msgs;

    # Prevent printing headers when compiling (i.e. -c)
    ret <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	2546	2711	
==>.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, $1, undef, $1);
      $text = $2;
      next;
    }

    #
    # Type:
    #

    if ($text =~ m{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723802	724066	
==>nt_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 811, <==
2	/Users/nnunley/parrot/lib/Test/More.pm	0	141	
==>package Test::More;

use 5.004;

use strict;
use Test::Builder;


# Can't use Carp because it might cause use_ok() to accidentally succeed
# e <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16509	16606	
==>ou can redistribute it and/or modify it
under the same terms as Perl itself.

See http://www.perl. <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1723	1820	
==>ou can redistribute it and/or modify it
under the same terms as Perl itself.

See http://www.perl. <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5392	5625	
==>en_brace;

      my $module = Jako::Construct::Block::Module->new($block, $ident, { %props });
      push @{$self->{BLOCKS}}, $module;

      next;

    }

    #
    # Variable declarations:
    #
    #   var <type> <ident>;
    #   v <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	465	650	
==>R::init_context($ctx);
}

sub pushop { "push" };
sub popop { "pop" };

sub output_match_succeeded {
    return ('set <rx_match>["!POS"], <rx_pos>',
            'set <rx_match>["!RESULT"] <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	28252	28464	
==>t('',           'mul',[$return,$return,$temp]);
  $self->_restore($temp);
  $self->_add_inst("DONE_$label");
  return $return;
}

sub _op_quotient {
}

sub _op_remainder {
}

sub _op_modulo {
}

sub _op_gcd {
}

s <==
2	/Users/nnunley/parrot/examples/benchmarks/primes.pl	294	533	
==>1 DESCRIPTION

Calculates all the prime numbers up to 50000 and prints out the number
of primes and the last one found.

=cut

my $i1 = 1;
my $i2 = 10000;
my $i3;
my $i4;
my $i5;
my $i6 = 0;
my $i7;
printf("N primes up to ");
printf("%d", $ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34355	34509	
==>tax($namespace.'::')
		. '($thisparser,$text,$repeating,'
		. ($self->{"lookahead"}?'1':'$_noactions')
		. ($self->{argcode} ? ",sub { return $self->{argco <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	47758	47950	
==>at', 4,
sub
#line 128 "Lua\lua51.yp"
{
            BuildIf( $_[0], $_[1], $_[2], $_[3], undef );
        }
	],
	[#Rule 20
		 '@5-9', 0,
sub
#line 132 "Lua\lua51.yp"
{
            Pu <==
2	/Users/nnunley/parrot/config/auto/alignptrs.pm	1129	1269	
==>lly test by compiling some code
        cc_gen('config/auto/alignptrs/test_c.in');
        cc_build();
        for my $try_align (64, 32, 16, <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4184	4296	
==>ROUP.so
    while (my ($group, $pmcs) = each %$group_files) {
        partial_link($group, $group_libs->{$group}, <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4288	4400	
==>ROUP.so
    while (my ($group, $pmcs) = each %$group_files) {
        partial_link($group, $group_libs->{$group}, <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2861	2969	
==>} });
  $_->sax($handler) foreach $self->content;
  $handler->end_element({ Name => 'block' });

  $handler-> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2743	2851	
==>} });
  $_->sax($handler) foreach $self->content;
  $handler->end_element({ Name => 'block' });

  $handler-> <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	3201	3356	
==>sub {
        my ($key, $gccversion) = @_;

        if ($gccversion) {

            # Don't know how to do this for gcc.
        } else {
            my $li <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	1340	1530	
==>turn $self;
}

=back

=head3 Object Methods

=over 4

=item C<get($key, ...)>

Provides access to key values.

Accepts a list and returns a list.

=cut

sub get
{
    my $self = shift;

    m <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1801	1905	
==>@formal_args), scalar(@args), $name)
    unless @formal_args == @args;

  for (my $i = 0; $i < @args; $i+ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1501	1605	
==>@formal_args), scalar(@args), $name)
    unless @formal_args == @args;

  for (my $i = 0; $i < @args; $i+ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3497	3591	
==>'} = '';
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3027	3121	
==>'} = '';
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	18346	18464	
==>////////////////////

      my $content = join ' ', splice @$para, 2;
      $content =~ s/^\s+//s;
      $content =~ s/ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21316	21434	
==>////////////////////

      my $content = join ' ', splice @$para, 2;
      $content =~ s/^\s+//s;
      $content =~ s/ <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	7362	7546	
==>diag("  Failed test ($?CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_tests_failed++;
    }
    my $wanted = $negate ?? "Unwanted" !! "Expected";

    # As PIL2JS doesn't su <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	52948	53179	
==>->[0]
        }
    @$curr_open
  ;
}

###########################################################################
my %pretty_form = (
  "\a" => '\a', # ding!
  "\b" => '\b', # BS
  "\e" => '\e', # ESC
  "\f" => '\f', # FF
  "\t" => <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	69163	69266	
==>:compiling)
	{
		my $code = $self->_code();
		if (defined $::RD_TRACE)
		{
			print STDERR "printing cod <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8515	8649	
==>value_at = shift iter
    if value_at == op2 goto got_it
    inc pos
    goto loop_begin
got_it:
    inc pos
    push result, pos
    . <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499503	499741	
==>{{\@1}} = floatval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500266	500504	
==>{{\@1}} = floatval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	3321	3443	
==>ol is export {
    my $out := defined($desc) ?? $desc !! "The object is-a '$expected_type'";
    my $test := $ref.isa($expe <==
2	/Users/nnunley/parrot/lib/File/Which.pm	3201	3313	
==>hich($_[0]); # force wantarray
    return @res;
}

1;
__END__

=head1 NAME

File::Which - Portable implementation <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	648	817	
==>erbatim' => "</pre>\n",
  'VerbatimFormatted'  => "\n<pre$Computerese>",
  '/VerbatimFormatted' => "</pre>\n",
  'VerbatimB'  => "<b>",
  '/VerbatimB' => "</b>",
  'Verba <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1102	1215	
==>ting Pod formatters based on Pod::Simple.

This class (which is very small -- read the source) overrides
Pod::Simp <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	866	962	
==>uct::Block');
  confess "Ident is not!" if defined $ident and not UNIVERSAL::isa($ident, 'Jako::C <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	894	990	
==>uct::Block');
  confess "Ident is not!" if defined $ident and not UNIVERSAL::isa($ident, 'Jako::C <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	1201	1419	
==>ax
};

/* &end_gen */
END_H

    close OUT;

    move_if_diff("$file.tmp", $file);

    return;
}

sub generate_c
{
    my ($self, $conf) = @_;

    my $file = "src/core_pmcs.c";
    my @pmcs = split(/ /, $conf->data->g <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	1573	1728	
==>error() if @_;
    }
    elsif ( $base_type eq 'ARRAY' ) {
        $class = shift;
        @decls = @{shift()};
        _usage_error() if @_;
    }
    else <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835529	835736	
==>ne",
                  "CODE" => 946,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 215 \"src/ops/stack.ops\"\n  stack_push( <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	18088	18273	
==>r_Test}-1] = &share({
        'ok'      => 1,
        actual_ok => 1,
        name      => '',
        type      => 'skip',
        reason    => $why,
    });

    my $out = "ok";
    $o <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7198	7299	
==>at ${STEMP0}
${STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
PIR
	}

	return $pir;
}

sub post_loa <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5020	5121	
==>at ${STEMP0}
${STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
PIR
	}

	return $pir;
}

sub post_loa <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11791	11891	
==>d '$method'\n"
      unless defined $super_table->{$method};
    my $supermethod = "Parrot_" . $super <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	5891	6107	
==>or="#C00000" bold="0" italic="0" />
      <itemData name="SpChar" defStyleNum="dsChar" />
    </itemDatas>

  </highlighting>

END

print <<END;
  <general>

    <comments>
      <comment name="singleLine" start="#" / <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089597	1089848	
==>=> 1208,
                  "ARGS" => [
                              "p",
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 186 \"src/ops/experimental.ops\"\n    {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	411	496	
==>ls/build/vtable_h.pl>, F<tools/dev/gen_class.pl>, and
F<src/pmc/null.pl>.

=head2 Func <==
2	/Users/nnunley/parrot/config/auto/signal.pm	1627	1814	
==>enerate signal constants
    open O, ">runtime/parrot/include/signal.pasm" or die "Cant write runtime/parrot/include/signal.pasm";
    print O <<"EOF";
# DO NOT EDIT THIS FILE.
#
# This fi <==
2	/Users/nnunley/parrot/lib/File/Which.pm	2101	2226	
==>ile::Spec->catfile($_, $exec) } @path) {
       for my $ext (@path_ext) {
            my $file = $base.$ext;
# print STDERR "$ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	8736	8857	
==>"Can't close    stderr" if $err;

    open  STDOUT, ">&OLDOUT" or die "Can't restore  stdout" if $out;
    open  STDERR, " <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8256	8375	
==>"Can't close    stderr" if $err;

    open STDOUT, ">&OLDOUT" or die "Can't restore  stdout" if $out;
    open STDERR, " <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3091	3229	
==>re misreading
what this does.)

=cut

sub pgeglob_is {
    my ($target, $pattern) = (shift, shift);

    unshift @_ => 'matched';
    unshi <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	64	162	
==>4:22:35.671857Z svm  $

package Scheme::Test;

use strict;
use vars qw(@EXPORT @ISA);

use Parrot:: <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	1	177	
==>! perl -w
################################################################################
# Copyright (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/tools/dev/extract_file_ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	5874	6027	
==>e
            load_bytecode "PGE.pbc"
            p6rule_compile = compreg "PGE::P6Regex"

            .local string target
            .local pmc rulesub <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13181	13305	
==>en we've got no business
      # seeing a close-brace.
      #

      $self->SYNTAX_ERROR("Closing brace without open block." <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1001	1093	
==>r_opcode[i])
#define SREG(i) REG_STR(cur_opcode[i])
#define CONST(i) CONTEXT(interpreter->ctx <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1117	1209	
==>r_opcode[i])
#define SREG(i) REG_STR(cur_opcode[i])
#define CONST(i) CONTEXT(interpreter->ctx <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	26050	26273	
==>);

    my @ops = (
                        aop('pushindex'),
                        aop('goto', [ $next ]),
               $back => aop('popindex', [ $R_back ]),
                        @R_ops,
                        aop( <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	8580	8803	
==>ift;
    my $tagname = $token->tagname;
    
    if ( $tagname =~ m/^over-/s ) 
    {
        pop @{$self->{STACK}};
    }
    elsif ( $tagname eq 'Para' ) 
    {
        $tagname = 'Para_item' 
            if @{$self->{STAC <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	48172	48441	
==>], $_[10], $_[4], $_[6], $_[8], $_[11] );
        }
	],
	[#Rule 22
		 '@6-7', 0,
sub
#line 142 "Lua\lua51.yp"
{
            PushScope( $_[0] );
            my $var = BuildLocalVariable( $_[0], $_[2] );
            Insert( $_[0], $var );
        }
	],
	[#Rul <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	22007	22176	
==>nless $defexists;
        print $fh "\t$_\n" foreach @{$groups{$group}};
        close $fh;
    }
}

=cut

sub open_file {
    my $direction = shift;
    my $filename = s <==
2	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	679	764	
==>.pl>, 
F<examples/benchmarks/stress2.pasm>, 
F<examples/benchmarks/stress3.pasm>.

=cu <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33874	34015	
==>_def = '';
    my $func_ret = '(void) ';
    if ($method->{type} ne 'void') {
        my $type = $method->{type};
        $ret_def = "$type re <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	8927	9058	
==>st, $cmt);
}

sub temp {
    my $t = $_[0];
    "\$$t" . ++$temp;
}

sub is_num {
    my $c = $_[0];
    my ($pointfloat, $expfloat, <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4611	4733	
==>" else b$="False "
if i eqv j then d$="True  " else d$="False "
if i imp j then e$="True  " else e$="False "
if i and not j <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	17240	17370	
==>nvert it to something usable in the generated file

sub interpolate {
    my $code = shift;
    my $op1  = shift;
    my $op2  = sh <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	4743	4936	
==>into a single shared library of the given name. Only
valid for dynamic PMCs.

=item C<lib LIB>

The class needs an external library.

=item C<hll HLL>

The High level language this PMC correspon <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	7060	7276	
==>l
        } else {
            warn "unknown configuration";
        }

        $conf->data->set(
            parrot_is_shared     => 1,
            has_dynamic_linking  => 1,
            ld_load_flags        => '-sha <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	4606	4720	
==>f->read_ops($_, $nolines) for @{$files};

    # FILE holds a space separated list of opsfile name
    if ($self->{F <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	3865	4034	
==>">=",
		     ">" => "<=",
		     "<=" => ">",
		     ">=" => "<",
		 }->{$test};

    if ($dest->{name} eq 'goto') {
        return aop('if', [ $op1, $test, $op2, $dest-> <==
2	/Users/nnunley/parrot/examples/benchmarks/oo6.pl	28	197	
==>o = new Foo();
for my $i (1 .. 500000) {
	$o->i($i);
	$o->j($i);
}
print $o->i, "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift;
    return bl <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	12830	12946	
==>et_op(const char * name, int full) {
    HOP * p;
    const size_t hidx = hash_str(name) % OP_HASH_SIZE;
    if (!hop <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10554	10673	
==>ed $section and length($section .= '') ) 
    {
        $section =~ tr/ /_/;
        $section =~ tr/\x00-\x1F\x80-\x9F// <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3949	4054	
==>ed $section and length($section .= '')) {
    $section =~ tr/ /_/;
    $section =~ tr/\x00-\x1F\x80-\x9F// <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24936	25115	
==>te($node->{children}[$_]);
      $self->_add_inst('','add',[$return,$return,$temp]);
      $self->_restore($temp);
    }
  }
  return $return;
}

sub _op_minus {
  my ($self,$node) <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	2222	2336	
==>{
  my ($node, $num) = @_;
  $node->{children}->[$num];
}

sub _get_args {
  my ($node, $num) = @_;
  $num = 1 unle <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1869	2034	
==>inition involves undefined value!")
    unless defined $value;

  #
  # Lookup the identifier:
  #

  my $sym = $block->find_symbol($self->name);

  #
  # If the iden <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	22767	22937	
==>eld) && length($field))
				{
					if (!$igunk) {
						$unkpos = pos $$textref
							if length($pref) && !defined($unkpos);
						if (defined $unkpos)
						{
							pus <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	390	523	
==>t::Block::Bare;
use Jako::Construct::Block::Conditional::Else;
use Jako::Construct::Block::Conditional::If;
use Jako::Construct::Block <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13465	13562	
==>/
		))
	{
		Parse::RecDescent::_warn(1,"Optimizing away production: [". $_[0]->describe ."]");
		m <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3546	3743	
==>ined $section and length $section)
  );

  if(defined $to and length $to) {
    $to = $self->resolve_pod_page_link($to, $section);
    return undef unless defined $to and length $to;
     # resolve_ <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15505	15600	
==>returns Bool;

Because these functions will be mutually recursive, they will easily be
able hand <==
2	/Users/nnunley/parrot/languages/regex/test.pl	2082	2255	
==>ebug)$/) {
        $DEBUG = 1;
    } elsif (! defined $testfile) {
        $testfile = $_;
    } else {
        usage "too many args!";
    }
}

usage "not enough args: testf <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944974	945436	
==>name",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1063,
                  "ARGS" => [
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 521 \"src/ops/string.ops\"\n  {{ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	8959	9065	
==>m/\G(?:$ignore)/gc)
		{
			next;
		}
		elsif ($bad && $$textref =~ m/\G($bad)/gcs)
		{
			pos($$textref) -= <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	309	474	
==>om an ops file via C<Parrot::OpsFile>, or perhaps even generated by
some other means. It is the Perl equivalent of the C<op_info_t> C
C<struct> defined in F<include/p <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17235	17331	
==>mp_curr_open(), ")\n";
    
    if($para_type eq '=for') { #///////////////////////////////////// <==
2	/Users/nnunley/parrot/config/inter/libparrot.pm	274	398	
==>ng the parrot VM. This configuration
step determines whether it should be build static or shared.

=cut

package inter:: <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53212	53318	
==>de,$line);

				$item = new Parse::RecDescent::UncondReject($lookahead,$line,$code);
				$prod and $prod->a <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54921	55027	
==>de,$line);

				$item = new Parse::RecDescent::UncondReject($lookahead,$line,$code);
				$prod and $prod->a <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	1716	1842	
==>r]/ and $next=~/[Ee]/ and $afternext=~/[Mm]/ ) ) {	# Comments
		append;
		fetch;
		while($cur ne -1 and $cur ne "\n") {
			appe <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	25339	25454	
==>{
    my ( $parser, $expr, $then, $elseifs, $else ) = @_;
    my @opcodes = ();
    my $cond = get_cond( $parser, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8280	8402	
==>=> "PARROT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLAGS" => ":base_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9395	9517	
==>=> "PARROT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLAGS" => ":base_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	20006	20139	
==>ont_ignore ) {
          $dont_ignore = '';
          delete $para->[1]{'target_matching'};
          DEBUG > 2 and print " But the le <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	19522	19725	
==>lf->{super}{$meth}) {
            $class = $self->{super}{$meth};
            $meth_name = "Parrot_${class}_$meth";
        }
        else {
            $defaulted = 1;
            $meth_name = "Parrot_de <==
2	/Users/nnunley/parrot/config/init/hints/darwin.pm	260	422	
==>ata->get(qw(ccflags ldflags libs));

    my $OSVers = `uname -r`;
    chomp $OSVers;
    {
        local $^W;
        if ($OSVers >= 7) {
            $libs =~ s/-l <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	72068	72197	
==>r so it's not left-recursive.
			       That will probably mean you need to re-implement
			       repetitions using the '(s)' not <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	34707	34821	
==>\n  {{\@1}}->vtable->set_pointer(interpreter, {{\@1}}, (void* ){{\@2}});\n  {{+=3}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	839488	839740	
==>user_stack, &({{\@1}}),\n                  STACK_ENTRY_STRING);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515938	516244	
==>\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "su <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596246	596552	
==>\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "su <==
2	/Users/nnunley/parrot/config/init/hints/vms.pm	84	213	
==>9593 2006-05-30T02:28:15.110975Z coke  $

package init::hints::vms;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    $ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3228	3323	
==>DE qq{\t\tfind_global _GLOBALS, "COMMON"\n};
		foreach(@saves) {
			print CODE qq{\t_GLOBALS["$_ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	8312	8525	
==>f; vars=$vars\n";
		}
	    }
	    else {
		$in_info = 0;
	    }
	}
	else {
	    next if /^\s*$/;
	    decode_line($_);
	}
    }
    while ($code_l < @code) {
	my $l = $code[$code_l++];
	my ($opcode, $arg, $rest, $s <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32439	32577	
==>1;
			$mv->{'STOREREG'} = 'storereg';
			push @localmv, 'STOREREG';
		} else {
			die "pir or instruction must use one of \${STACK0} or \${ <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	305	545	
==>de ];
    }
    $self->{raw_pir} = $pir;

    bless $self, $class;
    return $self;
}

sub add_pir {
    my $self = shift;
    my @code = @_;

    foreach my $chunk (@code) {
        if ($chunk eq "\n") {
            push @{ $self->{raw_pir <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81966	82232	
==>(1, \"don't use compile - just invoke the compiler\");\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82860	83126	
==>(1, \"don't use compile - just invoke the compiler\");\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23618	23716	
==>,'set',[$return,$temp]);
    $self->_add_inst("NEXT_$label");
    $self->_restore($temp);
  }
  ret <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24080	24178	
==>,'set',[$return,$temp]);
    $self->_add_inst("NEXT_$label");
    $self->_restore($temp);
  }
  ret <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	635	750	
==>n '' unless @_;
  my @out;
  foreach my $in (@_) {
    push @out, '"' . $in . '"';
    $out[-1] =~ s/([^- \:\:\.\,\' <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	3073	3199	
==>hile(1) {
			feedme();
			$_=$type[CURR];
			last unless $_;
			last if $_ =~ /STMT|COMM|COMP/;
			push @{$code{$seg}->{code}}, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103101	103328	
==>> "inline",
                  "CODE" => 128,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 135 \"src/ops/bit.ops\"\n  {{\@1}}->vtable->i_bitwise <==
2	/Users/nnunley/parrot/config/inter/libparrot.pm	601	725	
==>d against a shared library';

@args = qw(ask parrot_is_shared);

sub runstep {
    my ($self, $conf) = @_;
    my $parr <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	5749	5883	
==>st ) {
       next if $dir =~ m/\.svn/;
       next if ( $dir && ! -d $dir ); 

       my $patterns = capture_output( "$svn_cmd propget <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	2576	2791	
==>package SymbTabConst;
use base qw(Lua::symbtab);
{

    sub Lookup {
        my $self = shift;
        my ($symb) = @_;
        if ( exists $self->{table}{$symb} ) {
            my $defn = $self->{table}{$sym <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15838	15930	
==>r = SomePodProcessor->new;
 $parser->set_source( $some_filehandle_object );
 $parser->run;

O <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	1933	2107	
==>pt->{verbose};
    open my $H, '>', $h_name or die "Can't write '$h_name";
    print $H $hout;
    close $H;
}

=item C<write_all_files()>

Writes C and header files for all t <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	5983	6096	
==>n_core_func;\n";
}
my $bs = "${base}${suffix}_";

print SOURCE $preamble;
print SOURCE <<END_C;
#include "$include <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	552	647	
==>item C<buildprefix>

The build prefix. Defaults to ''.

=item C<prefix>

The install prefix. Def <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	781	876	
==>item C<buildprefix>

The build prefix. Defaults to ''.

=item C<prefix>

The install prefix. Def <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	3845	3967	
==>./_/g;
        $pir .= "if class_name == \"$_\" goto $label\n";
    }
    $pir .= "goto FAIL\n";

    # Now build method di <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	1770	1941	
==>sh of balsamic vinegar (to taste)
 * cooked rice, preferably long-grain white rice (whether plain,
    basmati rice, jasmine rice, or even a mild pilaf)

In a blender or fo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733700	733939	
==>}} = string_to_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734464	734703	
==>}} = string_to_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2866	2959	
==>::Wrap::wrap($indent, $indent, $self->{'Thispara'} .= "\n");
  $out =~ tr{\xA0}{ } if Pod::Sim <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2400	2493	
==>::Wrap::wrap($indent, $indent, $self->{'Thispara'} .= "\n");
  $out =~ tr{\xA0}{ } if Pod::Sim <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2590	2696	
==>infix', name => $self->op } });
    $self->left->sax($handler);
    $self->right->sax($handler);
    $handl <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2467	2573	
==>infix', name => $self->op } });
    $self->left->sax($handler);
    $self->right->sax($handler);
    $handl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133851	133959	
==>ops\"\n  string_bitwise_xor(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134632	134740	
==>ops\"\n  string_bitwise_xor(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1909	2184	
==>written into same output file
        my $exit_code = Parrot::Test::run_command( 
                            \@test_prog, 
                            STDOUT => $out_fn,
                            STDERR => $out_fn 
                        );
  
        my $builder_func = $ <==
2	/Users/nnunley/parrot/config/gen/icu.pm	2066	2289	
==>$icuheaders = capture_output("$icuconfig --prefix");
            if (defined $icuheaders) {
                chomp $icuheaders;
                $without = 1 unless -d $icuheaders;
                $icuheaders .= "${slash}inclu <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4610	4749	
==>right");
    $compiler->emit("  $dest = $temp");
  }
  else {
    $compiler->emit("  $dest = $left $op $right");
  }

  if (($dest_ident->ki <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564915	565248	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "can",
                  "FLAGS" => ":object_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565807	566140	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "can",
                  "FLAGS" => ":object_ <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	529	628	
==>ure you have them in the
correct order.

=head2 package

Declares the package that all subsequent su <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8226	8328	
==>{
        say("1..$Test::num_of_tests_run");
    }
    elsif ($Test::num_of_tests_planned != $Test::num <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	745	855	
==>sources>, the image and CSS file directory.

=cut

sub header
{
    my $self = shift;
    # Default values to k <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6242	6366	
==>oup_libs, \%pmc_group, \%pmc_libs);
}

sub modtime {
    my $ago = (-M shift);

    if (defined $ago) {
        return $NOW - <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6453	6577	
==>oup_libs, \%pmc_group, \%pmc_libs);
}

sub modtime {
    my $ago = (-M shift);

    if (defined $ago) {
        return $NOW - <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2712	2806	
==>eam is a subclass of L<Pod::Simple> that parses
Pod and turns it into XML.

Pod::Simple::XMLOut <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	23280	23404	
==>('plus_rfail');
    my ($R_back, @R_ops) = $self->rewrite($R, $rfail);
    my @ops = (
                        aop('pushmark' <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21078	21185	
==>n::Value->new($block, $self->require_value);
      }

      $self->require_semicolon;

      foreach my $lef <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093612	1093707	
==>"#line 209 \"src/ops/experimental.ops\"\n  VTABLE_morph(interpreter, {{\@1}}, {{\@2}});\n  {{+=3 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094415	1094510	
==>"#line 209 \"src/ops/experimental.ops\"\n  VTABLE_morph(interpreter, {{\@1}}, {{\@2}});\n  {{+=3 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980276	980663	
==>",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1100,
                  "ARGS" <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	401	510	
==>age Parrot::Docs::Section::Config;

use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C< <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	44494	44608	
==>p->[$i-1]) ) {
      $formatting = substr($formatting, 0, length($p->[$i-1]) - 1) . ' ';
    } else {
      $format <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	5148	5337	
==>g;
    my $meth = '';
    if ($ns) {
	$meth = ', method';
	$nst = qq!.namespace [$ns]!;
	if ($vtables{$arg}) {
	    $real_name = $vtables{$arg};
	}
    }
    print <<EOC;
.end		# $cur_func
. <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	16496	16616	
==>my($para, $para_type);
  while(@$paras) {
    last if @$paras == 1 and
      ( $paras->[0][0] eq '=over' or $paras->[0][0 <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	14352	14461	
==>to the corresponding
character (like space, for 32).  Only characters 32 to 126 are
defined.  This is meant fo <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2588	2700	
==>$$self{NBERR}};
}

sub YYRecovering {
	my($self)=shift;

	${$$self{ERRST}} != 0;
}

sub YYAbort {
	my($ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2476	2578	
==>$$self{NBERR}};
}

sub YYRecovering {
	my($self)=shift;

	${$$self{ERRST}} != 0;
}

sub YYAbort {
	my($ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64579	64691	
==>,
                  "BODY" => "#line 981 \"src/ops/core.ops\"\n  Interp * const new_interp = (Interp *)PMC_data({ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65530	65642	
==>,
                  "BODY" => "#line 981 \"src/ops/core.ops\"\n  Interp * const new_interp = (Interp *)PMC_data({ <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	480	573	
==>misses] [files ...]

=head1 DESCRIPTION

This script extracts descriptions from the Parrot sou <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408982	409236	
==>"ARGS" => [
                              "i",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 540 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_connect(interpreter, { <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	2742	3020	
==>oned_lines                    => 1
    );
    genfile(
        'config/gen/makefiles/dynoplibs.in' => 'src/dynoplibs/Makefile',
        commentType                         => '#',
        replace_slashes                     => 1
    );
    genfile(
        'config/gen/makefiles/ <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5564	5692	
==>ibs {
    my @pmcs = @_;

    my ( %group_files, %group_libs, %pmc_group, %pmc_libs );
    for my $pmc (@pmcs) {
        our $cla <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5775	5903	
==>ibs {
    my @pmcs = @_;

    my ( %group_files, %group_libs, %pmc_group, %pmc_libs );
    for my $pmc (@pmcs) {
        our $cla <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	563	668	
==>=item * the elapsed time, and 

=item * the number of M op/s.

=back

=cut

sub time_hires { time() }

$I2 <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	566	670	
==>=item * the elapsed time, and

=item * the number of M op/s.

=back

=cut

sub time_hires { time() }

$I2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934048	934157	
==>src/ops/string.ops\"\n  {{\@1}} = string_downcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934823	934932	
==>src/ops/string.ops\"\n  {{\@1}} = string_downcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	24013	24122	
==>n), "\n";
        unshift @$paras, $self->_closers_for_all_curr_open;
        # Make sure there is exactly one <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	936	1032	
==>} });
  $_->sax($handler) foreach $self->content;
  $handler->end_element({ Name => 'block' });
} <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1949	2045	
==>} });
  $_->sax($handler) foreach $self->content;
  $handler->end_element({ Name => 'block' });
} <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	2156	2300	
==>ne_number()."\n";
        }
    }

    return $vtable;
}

=item C<vtbl_defs($vtable)>

Returns the C C<typedef> definitions for the elements in t <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	5802	5957	
==>s implementation of the MD5 algorithm has some limitations:

=over 4

=item *

It's slow, very slow. I've done my very best but Digest::MD5 is still about 1 <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	25027	25242	
==>ements_one = defined($3) ? $3 : $1;

    DEBUG > 2 and print "Extensor has good syntax.\n";

    unless($new_letter =~ m/^[A-Z]$/s or $new_letter) {
      DEBUG > 2 and print " $new_letter isn't a valid thing to ente <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	402	498	
==>serTextToken -- text-tokens from Pod::Simple::PullParser

=head1 SYNOPSIS

(See L<Pod::Simple::Pu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661921	662007	
==>c/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662837	662923	
==>c/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(in <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34917	35162	
==>mber attribute.
          } elsif($item_type eq 'text') {
            $self->whine(
              $para->[1]{'start_line'},
              "Expected '=item *'"
            );
             # But doesn't need processing.  But it'll block assimilatio <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	397	640	
==>\b/) {
        $libs .= ' -lrt';    # Needed for sched_yield.
    }
    $conf->data->set(libs => $libs);

    ################################################################
    # If we're going to be using ICU (or any other C++-compiled libra <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	410	501	
==>'tcl_group'
.namespace ['']

END_PIR

print "  .include 'languages/tcl/$static_dir/$_.pir'\n <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11358	11451	
==>ENT_TYPE_U = 0x19
	.const int ELEMENT_TYPE_FNPTR = 0x1B
	.const int ELEMENT_TYPE_OBJECT = 0x1C <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3372	3509	
==>COMMON", _GLOBALS\n\t};
	}
	delete $code{$seg};
	if (! $debug) {
		print CODE ".end\t# outer segment\n";
		next;
	}
	print CODE<<EOD;
	.su <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786105	786198	
==>ODY" => "#line 417 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed_int(i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787016	787109	
==>ODY" => "#line 417 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed_int(i <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	45322	45525	
==>BI' : die("Should never get called")
          ), {},
          substr($p->[$i-1], pos($formatting)-length($1), length($1))
        ];
        #print "Formatting <$new_line[-1][-1]> as $new_line[-1][0]\n" <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	54806	54969	
==>1
		 'exp', 3,
sub
#line 393 "Lua\lua51.yp"
{
            BuildLogop( $_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 72
		 'exp', 3,
sub
#line 397 " <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64623	64778	
==>e($1)");

						!$matchrule and $rule and $rule->addcall($name);
					}
				}
				elsif ($grammar =~ m/$BETWEEN/gco)
				{
					_parse("a $1-to-$2 subrule m <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	2619	2756	
==>>size;

        @args = ();

        foreach (1 .. scalar($op->arg_types) - 1) {
            die "$0: Premature end of bytecode in argumen <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	2006	2178	
==>rrot_logo.pir             [devel]
    examples/sdl/lcd/clock.pir                      [devel]
    examples/sdl/move_parrot_logo.pir               [devel]
    examples/sdl/pa <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7752	7853	
==>int "This is true" else print "Oops (string)"
s$=""
if s$ then print "Should not happen (string)"
i%=0 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14739	14840	
==>int "This is true" else print "Oops (string)"
s$=""
if s$ then print "Should not happen (string)"
i%=0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020935	1021233	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodetime",
                  "FLAGS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021776	1022074	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodetime",
                  "FLAGS" = <==
2	/Users/nnunley/parrot/lib/Test/More.pm	34809	34922	
==>on't notice the difference.  This is good.

However, it does mean that functions like is_deeply() cannot be used t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79462	79560	
==>with it so we can get and set the value */\n      {{\@1}} = pmc_new(interpreter, enum_class_UnManag <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80983	81081	
==>with it so we can get and set the value */\n      {{\@1}} = pmc_new(interpreter, enum_class_UnManag <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	923860	924168	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924650	924958	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	768	914	
==>tem('', 'languages/t/harness'),
        $self->new_section('amber', 'amber.html', '', 'languages/amber'),
        $self->new_section('APL', 'apl.ht <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31264	31401	
==>opcodes1 = ();
    my @opcodes2 = ();
    my @opcodes3 = ();
    my @params1  = ();
    my @return1  = ();
    my $var1     = ${$vars <==
2	/Users/nnunley/parrot/config/init/hints/netbsd.pm	160	283	
==>->data->get('ccflags');
    if ($ccflags !~ /-pthread/) {
        $ccflags .= ' -pthread';
    }
    $conf->data->set(ccflag <==
2	/Users/nnunley/parrot/config/init/hints/openbsd.pm	252	375	
==>->data->get('ccflags');
    if ($ccflags !~ /-pthread/) {
        $ccflags .= ' -pthread';
    }
    $conf->data->set(ccflag <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5677	5785	
==>. "$base */\n\n";
}

=item C<init_func_init1($base)>

Returns the C code for the init function.

=cut

sub in <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	11000	11261	
==>S:
    if op2 < 0 goto neg_RHS
    .return(op2) 
neg_RHS:
    %% DOMAIN_ERROR %%
.end

.sub 'monadic:~'               # not
    .param num op1
    # XXX is domain only 0,1?
    $I1 = op1
    if $I1 goto true
    .return(1)
true:
    .return(0)
.end

.sub unicode <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3065	3329	
==>);
        splice @_;
        push @_, undef;
        next;

        # TODO: implement somehow?

      } elsif( $line =~ s/^\xFF\xFE//s ) {
        DEBUG and print "Little-endian UTF-16 BOM seen.  Aborting parsing.\n";
        $self->scream(
          $self->{'line <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	14019	14136	
==>s for the various elements of the new
struct. 

Each initializer is a pair of values: I<element name>C< =E<gt> >I<valu <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Ops.pm	180	331	
==>rrot ops documentation section

=head1 SYNOPSIS

	use Parrot::Docs::Section::Ops;

=head1 DESCRIPTION

A documentation section describing the Parrot ops <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	9097	9200	
==>ed =~ s|\.temp||;
    $source_escaped =~ s|(\\)|$1$1|g; # escape backslashes
    print SOURCE qq{#line $ <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	764	1069	
==>10000000;              # set    I4, 10000000
                              #
print "Iterations:    $I4\n"; # print  "Iterations:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	5557	5680	
==>c', 'table' );
    push @opcodes1, new LocalDir( $parser, 
        'result' => $result,
    );
    push @opcodes1, new N <==
2	/Users/nnunley/parrot/lib/Test/More.pm	3089	3192	
==>More>.

  use Test::More tests => $Num_Tests;

There are rare cases when you will not know beforehand ho <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	471	611	
==>pen $fh, "< $input_file" or die "Could not open $input_file: $!\n";
my $input = join('', <$fh>);
close $fh;
my @methods = parse($input);

# S <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	4917	5065	
==>te-outgoing-args/) {
                use Config;
                if ($Config{archname} !~ /86/) {
                    $opt =~ s/-mno-accumulate-outgo <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	2622	2727	
==>)*)$del";
		}
		else
		{
			push @pat, "$del(?:[^$esc$del]*(?:$esc.[^$esc$del]*)*)$del";
		}
	}
	my $pat = <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	41223	41444	
==>t) : '');
      
      DEBUG > 2 and print "End of L-parsing for this node $treelet->[$i]\n";

      unshift @stack, $treelet->[$i]; # might as well recurse
    }
  }

  return;
}

# . . . . . . . . . . . . . . . . . . . . <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110059	110424	
==>[
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 137,
                  "ARGS" => [
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 182 \"src/ops/bit <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	2854	3040	
==>pl                       [devel]
    vtable.tbl                                      [devel]
);

open my $MANI, '>', 'MANIFEST';
print $MANI '# $' . 'Id' . '$' . "\n";  # confuse SVN
prin <==
2	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	182	382	
==>EXPORT = qw(compile_cs translate run_pir);

require "config/N2PConfig.pm";

# This compiles C# code to an exe/dll.
# ####################################
sub compile_cs {
	my $file_name = shift;
	my $c <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	7380	7515	
==>ger constant (in-line)
        #   nc   Number constant index
        #   pc   PMC constant index
        #   sc   String constant index <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1013019	1013309	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "err",
                  "FLAGS" => "",
                  "ARGDIRS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015170	1015460	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "err",
                  "FLAGS" => "",
                  "ARGDIRS" <==
2	/Users/nnunley/parrot/config/inter/libparrot.pm	77	194	
==>rrot.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/inter/libparrot.pm - Determines build infor <==
2	/Users/nnunley/parrot/tools/dev/symlink.pl	883	1001	
==>t run this under the original Parrot tree.\n"
	if (-d $trydir) && (-f $tryfile && ! -l $tryfile);
} else {
    die "$0: <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	15831	15961	
==>typically
			 indicates the end of a directive. However no suitable
			 preceding directive was encountered. Typically this
			 ind <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028192	1028386	
==>on_event(interpreter, (FLOATVAL) {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029043	1029237	
==>on_event(interpreter, (FLOATVAL) {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667546	667656	
==>\"\n    {{\@1}}->vtable->push_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668320	668430	
==>\"\n    {{\@1}}->vtable->push_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	47574	47672	
==>artcode($code);
		}
		elsif ($grammar =~ m/(?=$IMPLICITSUBRULE)/gco
			and do { ($code) = extract_c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64609	64714	
==>"#line 981 \"src/ops/core.ops\"\n  Interp * const new_interp = (Interp *)PMC_data({{\@1}});\n  Interp_flag <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65560	65665	
==>"#line 981 \"src/ops/core.ops\"\n  Interp * const new_interp = (Interp *)PMC_data({{\@1}});\n  Interp_flag <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9986	10099	
==>CTIONS}{error})
					or	$$states[$$stack[-1][0]]{ACTIONS}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	pr <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9539	9648	
==>CTIONS}{error})
					or	$$states[$$stack[-1][0]]{ACTIONS}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	pr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606746	607053	
==>\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getattribute",
                  "FL <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	5395	5516	
==>c_build       => $TEMP_pmc_build,
        TEMP_pmc_classes_o   => $TEMP_pmc_classes_o,
        TEMP_pmc_classes_str => $TE <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7954	8056	
==>abel");

  $self->_restore($list, $copy, $head, $type);
  return $return;
}

sub _op_lambda {
  my ($se <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1092660	1092863	
==>> [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 196 \"src/ops/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable-> <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	43119	43324	
==>f,
	};
	if ($::RD_AUTOACTION)
	{
		my $sourcecode = $::RD_AUTOACTION;
		$sourcecode = "{ $sourcecode }"
			unless $sourcecode =~ /\A\s*\{.*\}\s*\Z/;
		$self->{_AUTOACTION}
			= new Parse::RecDescent::Action <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	907	1031	
==><c_pair_item($text, $name)>

Returns a new C source and header file documentation item.

=cut

sub c_pair_item
{
    my $self <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5037	5168	
==>STACK', 'CHECK', 'DOTPOS' };

#DBG>	my($debug)=$$self{DEBUG};
#DBG>	my($dbgerror)=0;

#DBG>	my($ShowCurToken) = sub {
#DBG>		m <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4794	4919	
==>STACK', 'CHECK', 'DOTPOS' };

#DBG>	my($debug)=$$self{DEBUG};
#DBG>	my($dbgerror)=0;

#DBG>	my($ShowCurToken) = sub {
#DBG>		m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702467	702852	
==>",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 788,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 670 \ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4534	4658	
==>e called.  Triggers are passed the key and value that was set
after it has been changed.

Accepts a key name, a trigger name, <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49250	49357	
==><$1op:...>");
				$prod->adddirective($1, $line);
			}
			elsif ($grammar =~ m/$UNCOMMITMK/gco)
			{
				_pa <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2038	2141	
==>ift;
  my ($handler) = @_;

  if (not $self->prefix and $self->peer and $self->peer->prefix) {
    $self <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1915	2018	
==>ift;
  my ($handler) = @_;

  if (not $self->prefix and $self->peer and $self->peer->prefix) {
    $self <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	5161	5374	
==>ed $refs{$name} ){
                $pre = "\\(";
                $pst = ")";
                $cmt = " # returns ref";
            }
            $out .= "  sub $name {$cmt\n    my \$r = shift;\n";
            if( $b <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1351	1461	
==>e).
dec ${ITEMP0}
${PTEMP0} = ${STYPES}[${ITEMP0}]

# Assign register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3061	3171	
==>e).
dec ${ITEMP0}
${PTEMP0} = ${STYPES}[${ITEMP0}]

# Assign register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	9277	9396	
==>meta-variables.
	my ($max_pop, $max_push) = (0, 0);
	foreach (@$rules) {
		if ($_->{'pop'} > $max_pop) {
			$max_pop = $ <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	15043	15233	
==>ic_flag) {
    my $load_func = "Parrot_lib_${base}_ops${suffix}_load";
    print SOURCE <<END_C;
/*
 * dynamic lib load function - called once
 */

$sym_export PMC*
$load_func(Parrot_Interp i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	118	260	
==>same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Symbol.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use s <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	24627	24757	
==>unc = $tos->[1];
    # create argument tuple
    if ($builtins{$name} && $builtins{$name} eq 'v') {
	my $ar = temp('P');
	print <<" <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10797	10916	
==>ub new {
        my($class)=shift;
        ref($class)
    and $class=ref($class);

    my($self)=$class->SUPER::ne <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11798	11912	
==>ub new {
        my($class)=shift;
        ref($class)
    and $class=ref($class);

    my($self)=$class->SUPER::ne <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	63366	63474	
==>pening tag (after any specified
prefix was removed).

=item C<Unable to construct closing tag to match: /%s/> <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	3377	3542	
==>a->get('linkflags');
            $conf->data->add(' ', linkflags => '-xlibmieee')
                unless $linkflags =~ /-xlibmieee/;
        }
        $conf->data->de <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	18419	18526	
==>);
       signature = string_chopn(interpreter, signature, 1, 1);
       signature_len = string_length(inter <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	3137	3302	
==>{fnlib}) {
      $name .= "_THUNK";
    }

    $compiler->emit("  _${name}(" . join(", ", @args) . ")");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shif <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349078	349182	
==>eed to go away soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2}});\n\n  {{\@1}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350080	350184	
==>eed to go away soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2}});\n\n  {{\@1}} <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	9258	9367	
==>!\n";
  flock $fh, LOCK_EX
    or die "Couldn't flock \"@{[ BUCKET ]}\": $!\n";

  my $data   = eval { fd_retr <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	12848	12970	
==>$o = is_opcode($c))) {
	print <<EOC;
	# builtin $c $cmt $o
EOC
	push @stack, [$c, $c, $o];
	return;
    }
    # params TODO <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	3595	3694	
==>m('', 'tools/dev/gen_charset_tables.pl'),
            $self->new_item('', 'tools/dev/rebuild_minipar <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	24343	24672	
==>c_id > 0)
                Parrot_register_HLL_type(
                    interp, pmc_id, enum_class_$maps, entry
                );
        } /* Register */
EOC
    }

    $cout .= <<"EOC";
        /* setup MRO and _namespace */
        Parrot_create_mro(interp, entry);
EOC
    # declare each nci method for this class
    foreach <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	55506	55638	
==>, that value is immediately
treated as the next extracted field and pushed onto the list of fields.
If the extractor was specified in <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1885	2025	
==>);

        # STDERR is written into same output file
        my $exit_code = Parrot::Test::run_command( 
                            \@test_ <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2365	2492	
==>);

        # STDERR is written into same output file
        my $exit_code = Parrot::Test::run_command(
            \@test_ <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	6862	7005	
==>the end and unshift onto the beginning
    $P1 = pop op2
    unshift op2, $P1
    inc op1
    goto neg

done:
nothing:
    .return(op2)
.end

.s <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	203	324	
==>r $VERSION = 0.01;

sub get_out_fn {
    my $self = shift;
    my ( $count ) = @_;

    return Parrot::Test::per_test( '.g <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	221	341	
==>r $VERSION = 0.01;

sub get_out_fn {
    my $self = shift;
    my ( $count ) = @_;

    return Parrot::Test::per_test( '. <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	1519	1669	
==>}

    cc_gen('config/auto/gmp/gmp.in');
    eval { cc_build(); };
    my $has_gmp = 0;
    if (!$@) {
        my $test = cc_run();
        if ($test e <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	3985	4090	
==>tem C<vtbl_macros($vtable)>

Returns the C C<#define> definitions for the elements in the referenced
vtabl <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2204	2305	
==>II charsets.  Something should be done about that.
  }
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2307	2408	
==>II charsets.  Something should be done about that.
  }
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500304	500596	
==>});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mul",
                  "FL <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	401	538	
==>ach my $meth ( qw(is isnt like) ) {
    no strict 'refs';

    *{"URM::Test::output_$meth"} = sub {
        my( $lang_code, $output, $desc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1457	1545	
==>/\n\n\n\n/*\n** stack.ops\n*/\n\n\n\n/*\n** string.ops\n*/\n\n\n\n/*\n** sys.ops\n*/\n\n\ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	190	336	
==>Page

=head1 DESCRIPTION

C<Parrot::Docs::HTMLPage> gives Parrot documentation pages the Parrot
house-style.

This just provides C<header()> and C< <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	629	768	
==>esc ) = @_;

        ++$count;
        my( $lang_f, $pasm_f, $by_f, $out_f ) = map { # JMG
            my $t = $0; $t =~ s/\.t$/_$count\.$_/ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35325	35496	
==>me"} .'})
						if defined $::RD_TRACE;').'
		' . ($::RD_NO_HITEM ? ''
		     : '$item{q{' . $self->{subrule} . '}} = $_tok;') . '
		push @item, $_tok;
		' . ($self->{"look <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	4907	5018	
==>ss( @{ $self->{'source_arrayref'} } ) {
        DEBUG and print "That's it for that source arrayref!  Killing.\n <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	10382	10522	
==>ding'} = $e;
      1;
    }
    and $e eq 'HACKRAW'
  ) {
    DEBUG and print " Putting in HACKRAW (no-op) encoding mode.\n";

  } elsif( Pod <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3849	3981	
==>var') and ($dest_ident->scope eq 'global')) {
    my $pmc_type = $dest_ident->type->imcc_pmc();
    my $temp_pmc = $compiler->temp_pm <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864136	864249	
==>sert(n == ENCODING_BYTES(interpreter, {{\@2}}));\n  }\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	865028	865141	
==>sert(n == ENCODING_BYTES(interpreter, {{\@2}}));\n  }\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	9183	9304	
==>@@@@@@

sub _handle_encoding_line {
  my($self, $line) = @_;
  
  # The point of this routine is to set $self->{'_transcod <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	3944	4080	
==>([code])>

Returns C<$obj> as a new instance.

=item C<$obj->add_pir($code, $code, ...)>

Add more pir to be processed. 

=item C<$code = <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	23703	23822	
==>CURR]};
				} elsif (exists $usertypes{$syms[CURR]}) {
					$type="USER";
					$ut=qq{\tP2["usertype"]= "$syms[CURR]"\n} <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2736	2864	
==>ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHECK}}='ACCEPT';
    undef;
}

sub YYError {
	my($ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2612	2728	
==>ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHECK}}='ACCEPT';
    undef;
}

sub YYError {
	my($ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1284	1466	
==>,

    IDENT => $ident,
    COND  => $cond,
    LEFT  => $left,
    OP    => $op,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => $ident->file,
    LINE  => $ident->line
  }, $clas <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660057	660155	
==>DY" => "#line 334 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->exis <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660979	661077	
==>DY" => "#line 334 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->exis <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659686	660108	
==>o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 737,
                  "ARGS" => [
                              "i",
                              "p",
                              "ki"
                            ],
                  "BODY" => "#line 334 \"src/ops/pmc.ops\"\n  {{\@1}} = P <==
2	/Users/nnunley/parrot/config/inter/types.pm	875	1015	
==>ike your integers to be?", $intval);
        $floatval = prompt("And your floats?",                                $floatval);
        $opcod <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	701	797	
==>!" unless defined $right;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Constru <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	713	809	
==>!" unless defined $right;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Constru <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	10148	10276	
==>f, $name, $L_trymatch, $L_backup, $num_groups, $startup) = @_;
    my @ops;
#    if ($name ne 'default') {
#     @ops = split(/\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105073	105319	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105810	106056	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i <==
2	/Users/nnunley/parrot/config/gen/PodText.pm	259	374	
==>::PodText->runstep($conf,
        "source1.pod" => "dest1.pod"
        "source2.pod" => "dest2.pod"
    );

=head1 D <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3645	3767	
==>my($prm,$value);
	my($prmlst)={};

	while(($prm,$value)=splice(@$inarray,0,2)) {
        $prm=uc($prm);
			exists($$ch <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3456	3573	
==>my($prm,$value);
	my($prmlst)={};

	while(($prm,$value)=splice(@$inarray,0,2)) {
        $prm=uc($prm);
			exists($$ch <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683863	684244	
==>\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760685	760987	
==>\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setp_ind",
                  "FLA <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	16374	16604	
==>te 46
		DEFAULT => -14
	},
	{#State 47
		ACTIONS => {
			"-" => 61
		},
		DEFAULT => -42
	},
	{#State 48
		DEFAULT => -39
	},
	{#State 49
		ACTIONS => {
			"-" => 62
		},
		DEFAULT => -44
	},
	{#State 50
		DEFAULT => -37
	},
	{#Sta <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	3092	3208	
==>true.

=item C<pir_output_like($code, $expected, $description)>

Runs the PIR code and passes the test if output matc <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	3498	3657	
==>urn sort grep {$_ ne '.' and $_ ne '..'} $dh->read();
}

=item C<file_and_directory_paths()>

These are the full paths of all the files and subdirectories in th <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863358	863628	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bytelength",
                  "FLAGS" => ":base_mem <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864249	864519	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bytelength",
                  "FLAGS" => ":base_mem <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	3399	3500	
==>er versions will work but obviously not sorted
{
    my $dd_version;
    if ($Data::Dumper::VERSION =~ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2933	3052	
==>output_test('<', $val1, $val2, $dest);
}

sub output_le {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_te <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	4847	5011	
==>$Code{$s} = $o;
	} elsif ($v =~ /[BDR]/) {
	    if ($v eq 'B') {
		$DataB{$s} = $o;
	    } elsif ($v eq 'D') {
		$DataD{$s} = $o;
	    } elsif ($v eq 'R') {
		$DataR <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	16699	16950	
==>xtref);

	my $initial = substr($$textref,$oppos,1);

	if ($initial && $initial =~ m|^[\"\'\`]|
		     || $rawmatch && $initial =~ m|^/|
		     || $qmark && $initial =~ m|^\?|)
	{
		unless ($$textref =~ m/ \Q$initial\E [^\\$initial]* (\\.[^\\$initial]*) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15341	15454	
==>dle_element_end {
  my $self = shift;   # leaving ($element_name);
  DEBUG > 2 and print "-- $_[0]\n";
  push @{ $ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	2267	2355	
==>description)> or C<output_isnt($code, $unexpected, $description)>

Runs the Parrot Assemb <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	847	1035	
==>_to_file( $code, $lang_f );

    my $cmd;
    my $exit_code = 0;
    my $pass = 0;

    $cmd = "$self->{parrot} $args languages/punie/punie.pbc $lang_f";

    $exit_code = Parrot::Test::run <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	810	952	
==>_to_file( $code, $lang_f );

    my $cmd;
    my $exit_code = 0;
    my $pass = 0;

    $cmd = "$self->{parrot} $args languages/APL/APL.pbc $la <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18658	18764	
==>for 26-point)
that these heading levels will appear as.

=item $parser->codeblock_halfpoint_size( I<halfpoi <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	6420	6519	
==>o Integer or int, the program dies with
# 'Method not found.' or dispatches to the wrong method.

.s <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7709	7889	
==>sempar =       $$dotpos
                        ?   map { $$_[1] } @$stack[ -$$dotpos .. -1 ]
                        :   ();

            $semval = $code ? &$code( $self, @semp <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7358	7534	
==>sempar =       $$dotpos
                        ?   map { $$_[1] } @$stack[ -$$dotpos .. -1 ]
                        :   ();

            $semval = $code ? &$code( $self, @semp <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6254	6398	
==>nfess "No symbol name!"  unless defined $name;
  confess "Extra arguments!" if @_;

  my $sym = $self->get_symbol($name); # Return the identifier <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7451	7624	
==>ule
            and do {
                    $lhs =~ /^\@[0-9]+\-([0-9]+)$/
                or  die "In line rule name '$lhs' ill formed: ".
                        "repo <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7108	7277	
==>ule
            and do {
                    $lhs =~ /^\@[0-9]+\-([0-9]+)$/
                or  die "In line rule name '$lhs' ill formed: ".
                        "repo <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24744	24847	
==>l, $omode, $bad, $ignore);

		return _fail(wantarray, $textref) unless @match;
		return _succeed wantarr <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7578	7679	
==>l, $omode, $bad, $ignore);

	return _fail(wantarray, $textref) unless @match;
	return _succeed wantarr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222152	222613	
==>AGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 260,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BO <==
2	/Users/nnunley/parrot/config/inter/charset.pm	1092	1201	
==>st) =~ s/\.c/\$(O)/g;

    my $TEMP_charset_build = <<"E_NOTE";

# the following part of the Makefile was buil <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947138	947232	
==>eption(interpreter, NULL, 1,\n\t\"charset '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948040	948134	
==>eption(interpreter, NULL, 1,\n\t\"charset '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3 <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	317	447	
==>E

tools/dev/install_files.pl - Copy files to their correct locations

=head1 SYNOPSIS

    % perl tools/dev/install_files.pl [opti <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7659	7778	
==>t;
	my $pir = "";

	# If the destination isn't a register, determine register name now.
	if (!$dest_reg) {
		$pir .= <<' <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5777	5896	
==>t;
	my $pir = "";

	# If the destination isn't a register, determine register name now.
	if (!$dest_reg) {
		$pir .= <<' <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7436	7540	
==>oto 100, 200, 300
print "No match\n"
FIN:
for i = 1 to 3
	on i gosub oats, peas, beans
next i
print
end
1 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19719	19823	
==>oto 100, 200, 300
print "No match\n"
FIN:
for i = 1 to 3
	on i gosub oats, peas, beans
next i
print
end
1 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	720	837	
==>M|STMT/) {
		$var=$syms[CURR];
		feedme();
		next if $var eq ",";
		my $array=0;
		if ($syms[CURR] eq "(") {
			$array <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	1668	1856	
==>nderpos-$extralen+1; # RESET \G
		}
		else {
			pos($$textref) = $remainderpos;		    # RESET \G
		}
		return @res;
	}
	else
	{
		my $match = substr($$textref,$_[0],$_[1]);
		substr($match,$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	69540	69710	
==>s\"\n  Parrot_unblock_GC(interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801935	802441	
==>et",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 905,
                  "ARGS" => [
                              "p",
                              "k",
                              "sc"
                            ],
                  "BODY" => "#line 467 \"s <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	26847	26983	
==>"ldelim"      => $ldel,
		"rdelim"      => $rdel,
		"mod"         => $mod,
		"lookahead"   => $_[4],
		"line"        => $_[5],
		"descrip <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	46912	47011	
==>including fore and aft delimiters),

=item [1]

" || die;\nexit;" (i.e. the remainder of the input t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741970	742081	
==>ine 169 \"src/ops/set.ops\"\n  {{\@1}} = string_copy(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41280	41473	
==>em, '
			     . ($::RD_NO_HITEM ? ''
				: '$item{'.$self->{hashname}.'}=')
			     . '$1; } if defined $1;' : "" ) . '
		  }
		  $text = $savetext;
		  pop @item if $backtrack;

		  # MATCH RIG <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5072	5184	
==>$failLabel);
    my $pass = $self->output_label_use($passLabel);

    while (@$incexc) {
        my $first = shif <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4747	4859	
==>$failLabel);
    my $pass = $self->output_label_use($passLabel);

    while (@$incexc) {
        my $first = shif <==
2	/Users/nnunley/parrot/tools/build/list_unjitted.pl	142	286	
==>endir DIR, 'jit' or die $!;
    while (my $dir = readdir DIR){
        next if $dir =~ /^\./ or $dir eq '\.svn';
        print $dir;
    }
    ex <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	42357	42488	
==>-------------------

sub _verbatim_format {
  my($it, $p) = @_;
  
  my $formatting;

  for(my $i = 2; $i < @$p; $i++) { # work back <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	2393	2604	
==>elf->block, $ident, $sym->kind, $sym->scope, $sym->type);

      $self->SYNTAX_ERROR("Cannot interpolate '%s': symbol not found!", $ident)
        unless $sym;

      if (not UNIVERSAL::isa($sym->type, 'Jako::Con <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691193	691287	
==>"#line 626 \"src/ops/pmc.ops\"\n   {{\@1}} = Parrot_thaw(interpreter, {{\@2}});\n   {{+=3}};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691950	692044	
==>"#line 626 \"src/ops/pmc.ops\"\n   {{\@1}} = Parrot_thaw(interpreter, {{\@2}});\n   {{+=3}};\n" <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	38899	38996	
==>aken if a matching end
tag is not encountered (i.e. before the end of the string or some
C<reject> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73726	74145	
==>,
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 97,
                  "ARGS" => [
                              "p",
                              "p",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 1 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	307	430	
==>nings";

package Jako::Construct::Statement::Decrement;

use Carp;

use base qw(Jako::Construct::Statement);

sub new
{
  my <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	2352	2454	
==>priate values.

Finally, the .c and .h files are generated. The appropriate base class
header files are <==
2	/Users/nnunley/parrot/config/auto/format.pm	904	1021	
==>"long long int")) {
        $ivformat = "%lld";
    } else {
        die "Configure.pl:  Can't find a printf-style for <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1740	1845	
==>], \%params, \@_, $self );

		exists($$self{VERSION})
	and	$$self{VERSION} < $COMPATIBLE
	and	croak "Y <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1679	1780	
==>], \%params, \@_, $self );

		exists($$self{VERSION})
	and	$$self{VERSION} < $COMPATIBLE
	and	croak "Y <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	552	842	
==>rans
       |_________________________
       |           |             |
       C         CGoto       Compiled
       |           |
    CPrederef      |
       | |         |
       | |_________|
       |           |
    CSwitch       CGP

=head2 Class Methods

=over 4

=cut

package Parrot <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3629	3742	
==>rent block is not a module!")
        unless $self->block->kind eq 'module';

      my %module_props = $self->bloc <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6293	6406	
==>rent block is not a module!")
        unless $self->block->kind eq 'module';

      my %module_props = $self->bloc <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24218	24308	
==>["index"]=\$P2
	\$P3["hash"]=\$P0
	find_global \$P1, "BASICARR"
	\$P1["$var$seg"]= \$P3
	st <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129398	129842	
==>":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 159,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 301 \"src/ops/bit.ops\"\n  {{\@1}} ^= {{\@2}};\n  {{ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	35239	35375	
==>kewise the call in:

	@result = extract_bracketed( $text, '{[' );

would return the same result, since all sets of both types of specifie <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4540	4718	
==>]|(?:charclass|feature)\.h)$/o
        or $self->parent->name eq 'ops' and $self->suffix =~ /^(?:c|pod)$/;
    
    return 0;
}

=item C<delete()>

Deletes the file, removes the i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	2121	2272	
==>t;
  my ($handler) = @_;

  $handler->start_element({ Name => 'ident', Attributes => { name => $self->value } });
  $handler->end_element({ Name => 'ide <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23575	23675	
==>mp,"NEXT_$label"]);
    $self->_add_inst('','set',[$return,$temp]);
    $self->_add_inst("NEXT_$label <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24037	24137	
==>mp,"NEXT_$label"]);
    $self->_add_inst('','set',[$return,$temp]);
    $self->_add_inst("NEXT_$label <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	70	196	
==>=0;

sub fetch {
	$cur=$next;
	$next=$afternext;
	$afternext=getc(D);
	$afternext="" if (! defined $afternext);
	$stmts++ if $a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8786	8876	
==>_cstring(interpreter, {{\@1}});\n    struct PackFile_FixupEntry *fe = PackFile_find_fixup_e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9902	9992	
==>_cstring(interpreter, {{\@1}});\n    struct PackFile_FixupEntry *fe = PackFile_find_fixup_e <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	11544	11661	
==>'\{', '\}', 0)
		or $deref eq '$#' or $deref eq '$$' )
	    {
		_failmsg "Bad identifier after dereferencer", pos $$te <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826705	826935	
==>e on stack!\");\n  }\n\n  {{\@1}} = UVal_num(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827775	828005	
==>e on stack!\");\n  }\n\n  {{\@1}} = UVal_num(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/config/auto/jit.pm	4067	4234	
==>pable) {
            $conf->data->set(
                TEMP_exec_h =>
                    '$(SRC_DIR)/jit.h $(INC_DIR)/exec.h $(SRC_DIR)/exec_dep.h $(SRC_DIR)/exec_save <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	445966	446234	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	446602	446870	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" = <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3720	3832	
==>,0,2)) {
        $prm=uc($prm);
			exists($$checklist{$prm})
		or	croak("Unknow parameter '$prm'");
			ref($v <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3528	3636	
==>,0,2)) {
        $prm=uc($prm);
			exists($$checklist{$prm})
		or	croak("Unknow parameter '$prm'");
			ref($v <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9702	9918	
==>L Name still can't start with.
    }
    
    $this->{'accept_codes'}{$new_code} = $new_code;
    
    # Yes, map to itself -- just so that when we
    #  see "=extend W [whatever] thatelementname", we say that W maps <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4416	4515	
==>target, $pattern, $captures) = @_;
    $target = _parrot_stringify($target);
    $pattern = _parrot_ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6921	7020	
==>target, $pattern, $captures) = @_;
    $target = _parrot_stringify($target);
    $pattern = _parrot_ <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	885	1006	
==>the class is created and
later consulted for various bits of information needed to generate the C
code. Each creates a dif <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	28590	28703	
==>te_other($op, $lastback));
        }
    } elsif (UNIVERSAL::isa($op, "Regex::Ops::List")) {
        return ($last <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	48536	48654	
==>act_codeblock> attempts to recognize and extract a balanced
bracket delimited substring that may contain unbalanced bra <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	3193	3553	
==>=item C<type()>

The type of the op, either 'inline' or 'function'.

=cut

sub type
{
    my $self = shift;

    return $self->{TYPE};
}

=item C<name()>

The (short or root) name of the op.

=cut

sub name
{
    my $self = shift;

    return $self->{NAME};
}

=item C<full_name()>

For argumentless ops, it's the same as C<name()>. For ops with
arguments, an u <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	3551	3769	
==>elf);
            
            $index_html .= $formatter->html_link(
                $formatter->append_html_suffix($rel_path),
                $source->relative_path($file->path));
        
            $index_html .= " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56389	56640	
==>o_p(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57151	57402	
==>o_p(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	7595	7809	
==>ame};

    if ($type eq 'seq' && ! $t->{add_check_visited}) {
        # Split the seq up into chunks that look like they're nicely
        # checkable.

        # Break the list of children up into contiguous chunks <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	8917	9003	
==>em F<tools/build/vtable_h.pl>

=item F<tools/dev/gen_class.pl>

=item F<src/pmc/null.pl <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	11380	11663	
==>t_name, $body, $args, $argdirs,
        $line, $file, $labels, $flags, $nolines) = @_;
    my $counter = 0;
    my $absolute = 0;
    my $branch = 0;
    my $pop = 0;
    my $next = 0;
    my $restart = 0;

    foreach my $variant (expand_args(@$args))
    {
        my (@fixedargs)=s <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8848	8962	
==>user branch ($syms[CURR])\n";
		debug() if $debug;
		goto PARSE
	}
	#
	# End of compile?
	#
	if ($syms[CURR] eq "") <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	8201	8313	
==>((void *)*cur_opcode);

END_C
} elsif ($suffix =~ /cg/) {
    print SOURCE <<END_C;
goto *${bs}ops_addr[*cur_opco <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	1389	1571	
==>name
{
	my $self = shift;
	
	return $self->{NAME};
}

=item C<html_link()>

Groups have no HTML link. This method returns an empty string which will
be discarded when building the nav <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	11409	11509	
==>ed you don't try anything
too funky.

- `cmp_ok (Str $got, Code &compare_func, Str $expected, Str $de <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37994	38218	
==>,
	{#State 147
		DEFAULT => -113
	},
	{#State 148
		ACTIONS => {
			":" => 134,
			"[" => 47,
			"(" => 48,
			"." => 49,
			'STRING' => 44,
			"{" => 38
		},
		DEFAULT => -84,
		GOTOS => {
			'tableconstructor <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	169	316	
==>/parrot/languages/jako/lib/Jako/Construct/Type/String.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	58399	58532	
==>arseunneg("a rule declaration", 0,
				    $lookahead,$line) or next;
			my $rulename = $1;
			if ($rulename =~ /Replace|Extend|Precom <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	15124	15314	
==>"EOC";
	$n = new $DEFVAR $cmt
	$n = $nl $op $nr
EOC
    }
    push @stack, [-1, $n, $t];
}

sub binary_word
{
    my ($op, $cmt) = @_;
    my $r = pop @stack;
    my $l = pop @stack;
    my ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	69781	70098	
==>" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 93,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 109 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881348	881520	
==>c",
                              "i"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882453	882625	
==>c",
                              "i"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883114	883713	
==>AGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1000,
                  "ARGS" => [
                              "s",
                              "s",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}} <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	45836	46064	
==>], $_[1] );
        }
	],
	[#Rule 2
		 'program', 1,
sub
#line 50 "Lua\lua51.yp"
{
            print "Error (program)\n";
        }
	],
	[#Rule 3
		 'chunk', 3,
sub
#line 57 "Lua\lua51.yp"
{
            [ @{ $_[1] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1108726	1108996	
==>L, NO_CLASS,\n                    \"Class '%Ss' not found\", readable_name(interpreter, {{\@2}}));\n            {{\@1}} = pmc_new(interpreter, type);\n            break;\n        default:\n            real_exception(interpreter, NULL, NO_CLASS,\n                \"Can onl <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	14574	14867	
==>e code support for those needs. The
following is a list of future features planned for this module.

- better error handling for cmp_ok

The error handling capabilities need to be expanded more to handle the
error reporting needs of the cmp_ok() function.

- is_deeply

Once nested data structu <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	7859	8044	
==>s' => '-dynamiclib -undefined suppress',
             'ldflags' => '-L/opt/local/lib -L/usr/local/lib -flat_namespace ',
             'lex' => 'echo',
             'lib_dir' => '/opt/loc <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2478	2648	
==>ch(@saves) {
					$edit.=qq{\t_GLOBALS["$_"]=$_\n};
				}
				$edit.=qq{\tstore_global "COMMON", _GLOBALS\n};
			}
			s/#SAVECOMMON/$edit/;
		}		
		if (/#RESTORECOMMON/) { <==
2	/Users/nnunley/parrot/tools/dev/cc_flags.pl	145	346	
==>: /parrot/tools/dev/cc_flags.pl 19607 2006-05-30T15:23:20.183054Z coke  $
################################################################################

=head1 NAME

tools/dev/cc_flags.pl - Process c <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	5	131	
==>imize the regular expression syntax tree before rendering it out
# as List ops. Most optimizations should go here, since the Li <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	170	278	
==>on::Tools - Tools documentation section

=head1 SYNOPSIS

    use Parrot::Docs::Section::Tools;

=head1 DESCR <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3245	3368	
==>$seg}->{code}}, "\tne \$I0, $vars, INPUT_$inputcounts  # Re-prompt\n";
	}

	$loop=0;
	barf();		# We're too far in already... <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16441	16595	
==>unction' => 26,
			'primary' => 28,
			'fieldlist' => 92,
			'functioncall' => 31,
			'tableconstructor' => 32,
			'var' => 35,
			'_field_plus' => 9 <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	4321	4449	
==>(@{$vtable}) {
    next if ($entry->[4] =~ /MMD_/);
    my @args = split /,\s*/, $entry->[2];
    unshift @args, "i interp", "p p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4757	4861	
==>var') and ($dest_ident->scope eq 'global')) {
    my $pmc_type = $dest_ident->type->imcc_pmc;
    my $pmc <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2820	2924	
==>var') and ($dest_ident->scope eq 'global')) {
    my $pmc_type = $dest_ident->type->imcc_pmc;
    my $pmc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20405	20583	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 342 \"src/ops/core.ops\"\n  if ({{\@1}} == 0.0) {\n    {{+={{\@2}}}};\n  }\n <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	8219	8352	
==>n treat everybody the
    # same.
    $command = [$command] unless (ref $command);

    if (defined $ENV{VALGRIND}) {
        $_ = "$E <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	2066	2223	
==>C. PMCs default to
inheriting from 'default'. Only single inheritance is supported.

Once the superclass is determined, it is processed and its method names
a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812987	813228	
==>TYPE" => "inline",
                  "CODE" => 917,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 524 \"src/ops/set.ops\"\n <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	13338	13439	
==>unctions.

The `:depends("string")` parameter to most of the functions is a way
to provide a comment t <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39154	39262	
==>e} = '__DIRECTIVE' . ++$_[1]->{dircount} .  '__'; }


sub new
{
	my ($class, $type, $minrep, $maxrep, $leftar <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2313	2406	
==>k_cuddled_else($file, $source);
    check_comments($file, $source);
    check_mandatory_boiler <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	13706	13977	
==>e} EXEC=$exec_f exec},
                                    CD     => $path_to_parrot,
                                    STDOUT => $out_f,
                                    STDERR => $out_f);
                        if ( -e $exe_f ) {
                            run_co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	174918	175213	
==>ion",
                  "CODE" => 209,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 233 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpr <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	2967	3079	
==>ne;
	print "#define _CONST_STRING_$line $n\n";
	print ALL qq!$len\t$hashval\t"$str"\n!;
    }
    close(IN);
}

s <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5124	5375	
==>{value};
          if (exists $special->{$value}) {
            _num_arg($_, 1);
            $special->{$value}->($self, _get_arg($_, 1), $return);
            next;
          }
        }
      }
      my $item = $self->_save_1 ('P');

      __quoted ( <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	5061	5211	
==>rgs = '' if not defined $args;
    $args =~ s/^v$//
      and warn "Removed deprecated 'v' argument signature on line $. of $ARGV";

    die "Invalid r <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	56055	56148	
==>ed. Characters which are thus removed are accumulated and
eventually become the next field (un <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	22089	22356	
==>ned $extension, "no extension recognized for $example_f" );
            }
        }
    }

    my %c_test_map = (
         c_output_is   => 'is_eq',
         c_output_isnt => 'isnt_eq',
         c_output_like => 'like'
                     );

    foreach my $func ( k <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	3308	3545	
==>\n";
            }
            $result .= $code;
            $result .= "\n";
        }
        else {
            if ($seen_blank) {
              $result .= "\n";
              $seen_blank = 0;
            }
            # verbatim hunk. <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11218	11467	
==>ypes, $c;
                }
            }
        } elsif ($state == 1) {
            push @tokens, $c;
            push @types, 'CHAR';
            $state = 0;
        } else {
            if ($c eq '{') {
                ++$depth;
            } els <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1025	1164	
==>$compiler);
    $compiler->emit("  $test $left $op $right goto ${prefix}_LAST");

    $compiler->emit("${prefix}_REDO:");

    if ($self->co <==
2	/Users/nnunley/parrot/languages/regex/test.pl	1332	1577	
==>aaaaaaaaaaaa
OUTPUT:
Match found
0: 0..11
INPUT:
xyz
OUTPUT:
Match failed
END
  exit $status;
}

my $DEBUG = 0;
my $compile = 0;
my $tree_opt = 1;
my $list_opt = 1;
my $language;
my $testfile;
my $pattern;

# Hm. What versions of perl provide Get <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3145	3319	
==>ame  = $self->name;

  if ($self->block->kind eq 'module') {
    $name = $self->block->name . "::" . $name;
  }

  my $sym = $self->block->find_symbol($name);

  my %props = $ <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	5405	5516	
==>x};

    $directories{dirname($dest)} = 1;
    push(@files, [ $src => $dest ]);
} continue {
    close ARGV if e <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12949	13117	
==>urns undef.

=item $Name2character{I<name>}

Maps from names (as in C<EE<lt>I<name>E<gt>>) like "eacute" or "sol"
to the string that each stands for.  Note that this doe <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	3278	3446	
==>ppend;
		emit("COMP");
		fetch;
		goto MAIN;
	}
	if ($cur eq "") { goto END };
	die "unknown: $cur at source line $stmts";
	goto MAIN;

END:	emit("STMT");
	return;

}

1 <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	6896	6996	
==>essage if that file cannot be found.

=cut

sub find_file {
    my ($include, $file, $die_unless_foun <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	8686	8820	
==>n("run_core_finish")) {
    print SOURCE $trans->run_core_finish($base);
}


#
# reset #line in the SOURCE file.
#

close(SOURCE);
open <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	66631	66770	
==>ition",$line,"$code$argcode(..$1)");

						!$matchrule and $rule and $rule->addcall($name);
					}
				}
				elsif ($grammar =~ m/$BADREP/g <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611579	612061	
==>GS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 693,
                  "ARGS" => [
                              "p",
                              "ic",
                              "p"
                            ],
                  "BODY" => "#line 491 \ <==
2	/Users/nnunley/parrot/config/init/hints/freebsd.pm	966	1070	
==>parrot$(SHARE_EXT).$(SOVERSION)',
        libparrot_shared_alias  => 'libparrot$(SHARE_EXT)',
        lib <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	1804	1908	
==>parrot$(SHARE_EXT).$(SOVERSION)',
        libparrot_shared_alias  => 'libparrot$(SHARE_EXT)',
        lib <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621441	621544	
==>ru;\n    if (lru->u.signature == sig) {\n\tif (sig) {\n\t    n = ((arg_pass_f)lru->f.real_function)(inte <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623610	623713	
==>ru;\n    if (lru->u.signature == sig) {\n\tif (sig) {\n\t    n = ((arg_pass_f)lru->f.real_function)(inte <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758079	758335	
==>> "inline",
                  "CODE" => 855,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 276 \"src/ops/set.ops\"\n  {{\@1}} = string_set <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20886	20983	
==>}

sub code($$$$)
{
	my ($self, $namespace, $rule) = @_;
	
''.($::RD_NO_TRACE?'':'
		Parse::RecDes <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	20005	20156	
==>ub BuildUnop {
    my ( $parser, $op, $expr ) = @_;
    my %type = (
        '-'   => 'number',
        '#'   => 'number',
        'not' => 'boolea <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	6530	6760	
==>f_tests_badpass ++;
            }
        }
    }

    if ( $depends ) {
        $context ~= " (depends on $depends working)";
    }

    my $out = $desc.defined ?? " - $desc" !! "";
    $out = "$out <pos:$?CALLER::CALLER::POSITION <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12175	12332	
==>> 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 37,
			'functioncall' => 3 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	14815	14976	
==>op
			feedme();
			$op=$syms[CURR];
			@a=EXPRESSION();
			feedme();
			print CODE<<OP;
	push P14, "$op"
@a	bsr DEREF
	push P14, P6
OP
			$ops++;
			next;
		}
		@ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	6780	6973	
==>abel of the following
		# block of code:
		next;
	    }
	}
	push @output4, $stmt;
    }

    # Delete labels that are not the destination of any jump (these
    # are the ones that were marked r <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37912	38070	
==>$_noactions')
		. ($self->{argcode} ? ", sub { return $self->{argcode} }"
				   : ', undef')
		. '))) 
		{'.($::RD_NO_TRACE?'':'
			Parse::RecDescent::_trace( <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34444	34555	
==>$_noactions')
		. ($self->{argcode} ? ",sub { return $self->{argcode} }"
				   : ',undef')
		. ')))
		{
			'.($ <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	13221	13372	
==>derl  math.h
remove      stdio.h
remquo      math.h
remquof     math.h
remquol     math.h
rename      stdio.h
rewind      stdio.h
rint        math.h
rin <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1573	1674	
==>'} = '' }

sub start_Verbatim    { $_[0]{'Thispara'} = ''   }
sub start_item_bullet { $_[0]{'Thispara' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1103	1204	
==>'} = '' }

sub start_Verbatim    { $_[0]{'Thispara'} = ''   }
sub start_item_bullet { $_[0]{'Thispara' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57509	57942	
==>IRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 74,
                  "ARGS" => [
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 874 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo_s(interpreter, {{\@2}});\n  { <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3265	3450	
==>rting parsing.\n";
        $self->scream(
          $self->{'line_count'},
          "UTF16-LE Byte Encoding Mark found; but Pod::Simple v$Pod::Simple::VERSION doesn't implement UTF16 ye <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627200	627301	
==>t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n\n  /* Why?? If we're creating a continuati <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628344	628445	
==>t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n\n  /* Why?? If we're creating a continuati <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	9744	10007	
==>y $norm_e = $e;
    foreach my $that ($norm_current, $norm_e) {
      $that =  lc($that);
      $that =~ s/[-_]//g;
    }
    if($norm_current eq $norm_e) {
      DEBUG > 1 and print "The '=encoding $orig' line is ",
       "redundant.  ($norm_current eq $norm_e). <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7655	7760	
==>shift;
	my $pir = "";

	# If the destination isn't a register, determine register name now.
	if (!$dest_re <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5773	5878	
==>shift;
	my $pir = "";

	# If the destination isn't a register, determine register name now.
	if (!$dest_re <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1280	1425	
==>db         thick-underline=ulth
       word-underline=ulw            wave-underline=ulwave
   ]
   # But no double-strikethrough, because MSWord c <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	464	597	
==>y ($self) = @_;
    return $self->{state}->genlabel("L");
}

sub is_label {
    return UNIVERSAL::isa(shift(), 'Regex::Ops::Label');
} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671028	671389	
==>ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 751,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 41 <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	4963	5076	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub new {
  # takes no parameters
  my $c <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7099	7194	
==>= <<'PIR'
inc stack_depth 
${DEST0} = "$"
${STEMP0} = ${LOADTYPE}["reg_type_short"]
${DEST0} = c <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4921	5016	
==>= <<'PIR'
inc stack_depth 
${DEST0} = "$"
${STEMP0} = ${LOADTYPE}["reg_type_short"]
${DEST0} = c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	708164	708599	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "register",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 794,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 704 \"src/ops/pmc.op <==
2	/Users/nnunley/parrot/languages/regex/test.pl	3157	3271	
==>ilename") or die "create $filename: $!";

    my $ctx = { };
    my $trees = Regex::expr_to_tree($pattern, $ctx, DE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611117	611231	
==>,
                  "BODY" => "#line 491 \"src/ops/object.ops\"\n    VTABLE_set_attr(interpreter, {{\@1}}, {{\@2}}, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612020	612134	
==>,
                  "BODY" => "#line 491 \"src/ops/object.ops\"\n    VTABLE_set_attr(interpreter, {{\@1}}, {{\@2}}, <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2225	2400	
==>o the appropriate place, alongside the sourcefile that produced it.
    # Hence, as soon as we know the true name of the object file being profiled, 
    # we rename the gcov l <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30820	30918	
==>}

1;

package Parse::RecDescent::InterpLit;

sub sethashname { $_[0]->{hashname} = '__STRING' . ++ <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	1742	1859	
==>f warnings.
END
    }

    # set fixed sized types
    if ($results{shortsize} == 2) {
        $conf->data->set(int2_t <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8172	8287	
==>$] < 5.007  and  $number > 255) {
      $Name2character{$name} = $FAR_CHAR;
      # substitute for Unicode character <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	16403	16550	
==>_line'},
        $starting_contentless ? ( 'contentless' => 1 ) : (),
      },
    );
  }

  my($para, $para_type);
  while(@$paras) {
    last if @ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	19965	20101	
==>ble for instructions of " .
                "more than 2 bytes in rule $_->{'name'}\n";
        }
    }

    # If we have 3 or less rules <==
2	/Users/nnunley/parrot/lib/Test/More.pm	34614	34800	
==>trings>.  This prevents
Test::More from piercing an object's interface allowing better blackbox
testing.  So if a function starts returning overloaded objects instead of
bare strings your <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	10185	10362	
==>I",
  "float"    => "f",
  "FLOATVAL" => "N",
  "double"   => "d",
  "STRING*"  => "S",
  "char*"    => "t",
  "PMC*"     => "P",
  "short*"   => "2",
  "int*"     => "3",
  "lon <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	9032	9147	
==>sperate => 1, @_)
}
sub get_version     { shift->_get_titled_section(
   'VERSION',
    max_token => 400,
    accept <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704582	704863	
==>ODE" => 790,
                  "ARGS" => [
                              "p",
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1} <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	3261	3392	
==>version) {

            # Don't know how to do this for gcc.
        } else {
            my $linkflags = $conf->data->get('linkflag <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8460	8573	
==>G>				$debug & 0x04
#DBG>			and	print STDERR 
#DBG>				    "go to state $$states[$$stack[-1][0]]{GOTOS}{$lhs}.\n <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8076	8187	
==>G>				$debug & 0x04
#DBG>			and	print STDERR 
#DBG>				    "go to state $$states[$$stack[-1][0]]{GOTOS}{$lhs}.\n <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3701	3807	
==>le';

      my %module_props = $self->block->props;

      $self->SYNTAX_ERROR("Sub declaration has no fnli <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6365	6471	
==>le';

      my %module_props = $self->block->props;

      $self->SYNTAX_ERROR("Sub declaration has no fnli <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	435	668	
==>:Expression::Value::Literal;
use Jako::Construct::Expression::Value::Identifier;

sub new
{
  my $class = shift;
  my ($block, $token) = @_;

  confess "Block undefined." unless defined $block;
  confess "Token undefined." unless defi <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	6273	6364	
==>ern
E<lt>schwern@pobox.comE<gt>, wardrobe by Calvin Klein.


=head1 COPYRIGHT

Copyright 200 <==
2	/Users/nnunley/parrot/languages/scheme/Scheme.pm	1359	1448	
==>self->{code}   = link_functions(Scheme::Generator::generate($self->{tree}));

  return $se <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6219	6416	
==>)
                        ?   $$actions{DEFAULT}
                        :   undef;
        }
        else {
            $act=$$actions{DEFAULT};
#DBG>			$debug & 0x01
#DBG>		and	print STDERR <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5929	6119	
==>)
                        ?   $$actions{DEFAULT}
                        :   undef;
        }
        else {
            $act=$$actions{DEFAULT};
#DBG>			$debug & 0x01
#DBG>		and	print STDERR <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	45480	45710	
==>ing <$new_line[-1][-1]> as $new_line[-1][0]\n";
      }
    }
    my @nixed =    
      splice @$p, $i-1, 2, @new_line; # replace myself and the next line
    DEBUG > 10 and print "Nixed count: ", scalar(@nixed), "\n";
    
    DEB <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	12930	13051	
==>pect) unless $test;
        return $test;
    }

    return $self->cmp_ok($got, 'ne', $dont_expect, $name);
}

sub isnt_nu <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	340	453	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub _handle_element_start {
  print {$_[0]{'output_fh'}} "\n"  un <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70938	71270	
==>NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "loadlib",
                  "FLAGS" => "",
                  "AR <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	12862	13031	
==>name)>

Slurps C<$filename> into memory and returns it as a string.

=cut

sub _slurp
{
    my $filename = shift;

    open(my $fh, '<', $filename) or die "Can't open $fi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	10468	10591	
==>g in HACKRAW (no-op) encoding mode.\n";

  } elsif( Pod::Simple::Transcode::->encoding_is_available($e) ) {

    die($enc_er <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	936	1070	
==>"\n",
  '/Data' => "\n",
  
  'head1' => "\n<h1>",  # And also stick in an <a name="...">
  'head2' => "\n<h2>",  #  ''
  'head3' => "\ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5144	5278	
==>ile (@$incexc) {
        my $first = shift(@$incexc);
        my $last = shift(@$incexc);
        if (defined($last)) {
            pus <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4819	4953	
==>ile (@$incexc) {
        my $first = shift(@$incexc);
        my $last = shift(@$incexc);
        if (defined($last)) {
            pus <==
2	/Users/nnunley/parrot/examples/benchmarks/stress.pl	724	823	
==>rks/stress1.pl>, 
F<examples/benchmarks/stress2.pasm>, 
F<examples/benchmarks/stress2.pl>, 
F<exampl <==
2	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	668	751	
==>rks/stress1.pl>, 
F<examples/benchmarks/stress2.pasm>, 
F<examples/benchmarks/stress <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724853	725102	
==>ine",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 812,
                  "ARGS" = <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	10958	11075	
==>local $Level = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # undef only matches undef and nothi <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	11376	11493	
==>local $Level = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # undef only matches undef and nothi <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1788	1901	
==>ec->catfile(
    $path_to_parrot, 'parrot' . $PConfig{exe}
);

my $perl6 = File::Spec->catfile(
    $path_to_parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822354	822443	
==>CK_ENTRY_INT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823422	823511	
==>CK_ENTRY_INT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79406	79518	
==>symbol's address. We just need to build\n         a PMC with it so we can get and set the value */\n      {{\@1}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80927	81039	
==>symbol's address. We just need to build\n         a PMC with it so we can get and set the value */\n      {{\@1}} <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3937	4045	
==>it
looks at the file's name. If it fails for both it returns 'Undefined'.

=cut

sub type
{
	my $self = shift <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897634	898185	
==>=> ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1013,
                  "ARGS" => [
                              "s",
                              "ic",
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 257 \"sr <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	24911	25050	
==>h @opcodes, new LocalDir( $parser,
            'prolog' => 1,
            'result' => $defn,
        );
        push @opcodes, new LexDi <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Compilers.pm	823	1037	
==>rs/imcc' ),
        $self->new_group( 'PGE', 'the Parrot Grammar Engine',
            'compilers/pge' ),
        $self->new_group( 'TGE', 'the Tree Grammar Engine',
            'compilers/tge' ),
        $self- <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8337	8462	
==>them
    } else {
      $Name2character{$name} = chr $number;
      # normal case
    }
  }
  # So they resolve 'right' even i <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	11519	11626	
==>turn 1 if $next eq $root;
		my $child;
		foreach $child ( $rules->{$next}->leftmostsubrules() )
		{
		    pu <==
2	/Users/nnunley/parrot/lib/File/Which.pm	3579	3679	
==>l'); # an array forces search for all of them

=head1 DESCRIPTION

C<File::Which> was created to be a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735158	735410	
==>,
                  "BODY" => "#line 139 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735894	736146	
==>,
                  "BODY" => "#line 139 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18110	18238	
==>counter, needstmt => 1 });
	}
}
sub parse_goto {
	feedme;
	create_label();
	push @{$code{$seg}->{code}}, "\tgoto $labels{$syms[CU <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	44410	44552	
==>>_constant($node->{value});
    }
  }

  return $return;
}

sub generate {
  my $tree = shift;

  my $self = Scheme::Generator->new({});
  my $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24099	24219	
==>exp' => 128,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	1155	1431	
==>de'.

=back

=head1 SEE ALSO

F<install_files.pl>

=cut

################################################################################

my %options = ( prefix => '/usr',
                exec_prefix => '/usr',
                bindir => '/usr/bin',
                libdir => ' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4509	4892	
==>"ord <rx_tmp>, <rx_input>, <rx_pos> # tmp = INPUT[pos]",
       "ne <rx_tmp>, $code, ".$self->output_label_use($failLabel).$comment,
      );
    if ($self->{DEBUG}) {
        push @ops, 'print "matched('.chr($code).') at "';
        push @ops, 'print rx_pos';
        push @ops, 'print "\n"';
    }
    return @ops;
}

sub output_classmatch {
    my ($self, $incexc, $failLabel) = @_ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	500	650	
==>$ mki$ mkl$ mks$ mksmbf$
		    peek pen play pmap point pos
		    right$ rnd rtrim$
		    sadd screen seek setmem sgn sin spc sqr
			stick str$ strig s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	708	798	
==>d $type and not UNIVERSAL::isa($type, qw(Jako::Construct::Type));
  confess "Identifier (". <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	8766	8914	
==>int {$FH} "\n";
        print {$FH} ".sub $dir->{result}->{symbol} :anon";
        if ( exists $dir->{outer} ) {
            print {$FH} " :outer( <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5470	5645	
==>f $verbose;

    return CORE::keys %{$self->{triggers}{$key}};
}

=item C<gettrigger($key, $trigger)>

Get the callback set for C<$key> under the name C<$trigger>

Accepts a ke <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr3.pm	589	700	
==>uages/${pir_fn}",
             "$self->{parrot} languages/${pir_fn}" );
}
 

sub skip_why {
    my $self = shift <==
2	/Users/nnunley/parrot/lib/Test/More.pm	1058	1160	
==>r($level);
      $pkg->export($callpkg, @_);
}


=head1 NAME

Test::More - yet another framework for wr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362321	362585	
==>nction",
                  "CODE" => 424,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 281 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    STRING * co <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	5882	5977	
==>_core_func_decl")) {
    my $run_core_func = $trans->run_core_func_decl($base);
    print HEADER <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	184600	185162	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 220,
                  "ARGS" => [
                              "n",
                              "nc",
                              "ic"
                            ],
                  "BODY" => "#line 285 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5242	5357	
==>onstruct::Expression::Value::Literal->new($block, $self->require_literal);
        }

        $props{$prop} = $value <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8242	8357	
==>onstruct::Expression::Value::Literal->new($block, $self->require_literal);
        }

        $props{$prop} = $value <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	5425	5555	
==>rfaces ===\n", scalar keys %API;

my @API = sort keys %API;

my @NoParrotAPI = grep { !exists $API{$_} } sort keys %ParrotAPI;
my @ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744295	744519	
==>\@1}} = string_from_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745061	745285	
==>\@1}} = string_from_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	927	1121	
==>do, :$depends);
}

## is

sub is (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := $got eq $expected;
    Test::proclaim($test, $desc, $todo, $got, <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	24461	24601	
==>0]) || $_[0];
	bless 
	{
		"msg"        => $_[1],
		"lookahead"  => $_[2],
		"commitonly" => $_[3],
		"line"       => $_[4],
	}, $class;
}

s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060041	1060145	
==>ode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null name\");\n\n    next = {{^+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060946	1061050	
==>ode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null name\");\n\n    next = {{^+ <==
2	/Users/nnunley/parrot/tools/util/pirtidy.pl	1242	1353	
==>.pir

This will produce a file somefile.pir.tdy containing the pir file
reformatted using the default options. p <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37511	37619	
==>RACE;').'
		$Parse::RecDescent::lastexpected = ' . ($rule->hasleftmost($self) ? 'q{}'
				: 'q{'.$self->descr <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39914	40022	
==>RACE;').'
		$Parse::RecDescent::lastexpected = ' . ($rule->hasleftmost($self) ? 'q{}'
				: 'q{'.$self->descr <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	2485	2704	
==>module
sub new {
	my $class = shift;
	bless {}, ref($class) || $class;
}

sub reset {
	my $self = shift;
	delete $self->{data};
	$self
}

sub add(@) {
	my $self = shift;
	$self->{data} .= join'', @_;
	$self
}

sub addfil <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	5236	5624	
==>'-O2 -w-8066 -DWIN32 -DNO_STRICT -DNDEBUG -D_CONSOLE',
            cc_o_out   => '-o',
            cc_exe_out => '-e',
            cc_debug   => '-v',

            ld             => ${cc},
            ldflags        => '',
            ld_out         => '-e',
            cc_ldflags     => '',
            ld_debug       => '-v',
            ld_share_flags => '-WD',
            ld_load_fla <==
2	/Users/nnunley/parrot/lib/Test/More.pm	7114	7229	
==>>

=item B<isnt>

  is  ( $this, $that, $test_name );
  isnt( $this, $that, $test_name );

Similar to ok(), is() and <==
2	/Users/nnunley/parrot/lib/Test/More.pm	25508	25653	
==>, $that, $name) = @_;

    my $ok;
    if( !ref $this and !ref $that ) {  		# neither is a reference
        $ok = $Test->is_eq($this, $that, $nam <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2961	3065	
==><goto_address($address)>

CPrederef is funky in that expr OFFSET(n) uses a pointer to the
original byteco <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	17746	17876	
==>if JIT code can build that signature,
     * if yes, we are done
     */

     result = Parrot_jit_build_call_func(interpreter, pmc <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	1311	1446	
==>my ($pmcfile) = @_;

    return <<"EOC";
/*
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically from <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9263	9400	
==>y $self = shift;
  return sprintf
   "<!-- generated by %s v%s, using %s v%s, under Perl v%s at %s GMT -->\n",
    # None of the following <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10746	10845	
==>1 = 0x05
	.const int ELEMENT_TYPE_I2 = 0x06
	.const int ELEMENT_TYPE_U2 = 0x07
	.const int ELEMENT_T <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	16051	16229	
==>");
		return;
	}
	my $op = pop @{$self->{op}};
	my $span = @{$self->{items}} - $op->{offset};
	if ($op->{type} =~ /left|right/)
	{
	    if ($span != 3)
	    {
		Parse::RecDescent: <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	615	749	
==>~~~

sub any_errata_seen {  # read-only accessor
  return $_[1]->{'Errata_seen'};
}

sub new {
  my $self = shift;
  my $new = $self->S <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	4385	4486	
==>return _fail ($wantarray, $textref) unless @match;

	return _succeed ( $wantarray, $textref,
			  $mat <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	15894	15989	
==>return _fail($wantarray, $textref) unless @match;
	return _succeed($wantarray, $textref,
			$mat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633006	633333	
==>AME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 709,
                  "ARGS" => <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	4014	4192	
==>trictly against ops.num and renumber
else {
    load_op_map_file();

    my $cur_code = 0;
    for(@{$ops->{OPS}}) {
        $_->{CODE} = find_op_number($_->full_name, $_->{experi <==
2	/Users/nnunley/parrot/lib/Test/More.pm	12573	12675	
==>Module') );

to safeguard against your test script blowing up.

It works on references, too:

    isa_o <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	13187	13301	
==>arentheses, then double the
        # enclosing parentheses and add a space around the argument,
        # like so: <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3855	3949	
==>arentheses, then double the enclosing
parentheses and add a space around the argument, like so: <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	24128	24254	
==>ame);
	my $pushed_args = scalar @args;
	#
	# that's wrong, works only for all or none named arguments
	#
	for ($i = 0; $i < $nk <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953817	954086	
==>"NAME" => "encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954607	954876	
==>"NAME" => "encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	561	692	
==>->maptree($t, sub { shift->{nocheck} = 1 });
    # Add necessary checks back in
    $t = $self->add_checks($t, 0, 0);
    # Delete t <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	3571	3678	
==>efined $_[0] ? \$_[0] : \$_;
	my $ldel = defined $_[1] ? $_[1] : '{([<';
	my $pre  = defined $_[2] ? $_[2] : <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	7387	7482	
==>out whether a plan has been defined. $plan is either C<undef> (no plan has been set), C<no_plan> <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	33034	33240	
==>c"!;
    }
    print <<EOC;
	setattribute $obj->[1], $cc, $val $cmt
EOC
}

sub Slice
{
    my ($n, $c, $cmt, $sl_n) = @_;
    my ($v, $w, $vv, $ww);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443623	443732	
==>}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444638	444747	
==>}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	6155	6257	
==>the output of your test program.

=back


=head1 AUTHORS

Idea by Tony Bowden and Paul Johnson, code by <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3998	4101	
==>ode for each push.
	$pir .= "\${ITEMP0} = 0\n";
	for (1..$pushes) {
		$pir .= <<'PIR';
# Increment stack <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2414	2517	
==>ode for each push.
	$pir .= "\${ITEMP0} = 0\n";
	for (1..$pushes) {
		$pir .= <<'PIR';
# Increment stack <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1729	1864	
==>f->INTERNAL_ERROR("Constant definition involves undefined type name!")
    unless defined $type_name;

  $self->INTERNAL_ERROR("Constant <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	1401	1596	
==>ram: $!";
        if (defined $gnuc{__GNUC__}) {
            $link = 'g++';
        } else {
            $link =~ s/\bcc\b/CC/;
        }
        $conf->data->set(link => $link);
        $conf->da <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	1608	1727	
==>urceFile class of course. ;)
(a jest - sort of.)

=item * Misc: rationalize indent; clarify desc emptiness contract;
rev <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9726	9843	
==>rn ($self-> popop . " $reg, <rx_stack> # popint");
    }
}

sub output_substr {
    my ($self, $dest, $src, $offset, $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019848	1019941	
==>sultbuffer[26];\n  Parrot_localtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020779	1020872	
==>sultbuffer[26];\n  Parrot_localtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\ <==
2	/Users/nnunley/parrot/config/inter/charset.pm	151	300	
==>nter/charset.pm - charset files

=head1 DESCRIPTION

Asks the user to select which charset files to include.

=cut

package inter::charset;

use stric <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	7748	7847	
==>l>

  $Test->skip_all;
  $Test->skip_all($reason);

Skips all the tests, using the given $reason.  E <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	682	794	
==>ss -e $infile;

my %known_strings = ();
my @all_strings;

&read_all;
open ALL, '>>', $outfile or die "Can't write <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433919	434467	
==>":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 498,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "n"
                            ],
                  "BODY" => "#line 89 \"src/o <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	8721	8878	
==>',
        'or'       => 'OR',
        'repeat'   => 'REPEAT',
        'return'   => 'RETURN',
        'then'     => 'THEN',
        'true'     => 'TRUE' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	8339	8572	
==>tmp>' ] ),
                        aop('goto', [ $lastback ] ),
               $back => aop('setend', [ $group, -2 ]),
                        aop('goto', [ $R_back ]),
               $next =>

              );

    return ($back, @op <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	4157	4285	
==>lf->type_for_name($self->name);
	
	return $type unless $type eq $UNDEFINED;
	
	return 'Executable' if $self->is_executable;
		
	r <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	9043	9133	
==>t_info->objfile, jit_info->native_ptr, f); \
    emitm_calll(jit_info->native_ptr, EXEC_CAL <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	1420	1536	
==>e::Spec->catpath($volume, $directories, '');
    
    # To remove the trailing slash.
    $parent_path = File::Spec-> <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9647	9817	
==>\$text, $thisparser;

	' : '
	my $thisline = [\$text, $thisparser];
	') . $self->{vars} .'
';

	my $prod;
	foreach $prod ( @{$self->{"prods"}} )
	{
		$prod->addscore($self <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	1949	2056	
==>Grab "COMMON" variables from global stash\n};
		print CODE qq{\t\tfind_global _GLOBALS, "COMMON"\n};
		forea <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	704	796	
==>ko::Construct::Expression::Value::Identifier');
  confess "Props are not hash!" if defined $p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	783	875	
==>ko::Construct::Expression::Value::Identifier');
  confess "Props are not hash!" if defined $p <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	2263	2491	
==>efile',
        commentType                   => '#',
        replace_slashes               => 1
    );
    genfile(
        'config/gen/makefiles/tge.in' => 'compilers/tge/Makefile',
        commentType                   => '#', <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	9453	9607	
==>t { undef }

# Embedded code is truly unpredictable. Although there will probably
# be pragmata for allowing code to specify that it won't muck with
# thin <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	12662	12781	
==>t locals');
    my ($var, $val) = _get_args ($_, 0);
    push @variables, $var;
    push @values, $val;
  }

  my $let = <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	6400	6520	
==>0 .. $#program;
printf("%-$max[0]s  ", 'Benchmark');
printf("%-$max[$_ + 1]s  ", $program[$_]) for 0 .. $#program;

for m <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	8504	8602	
==>, &st, n)
#define GET_NCI_P(n) get_nci_P(interpreter, &st, n)

/*
 * set return value
 */
static vo <==
2	/Users/nnunley/parrot/lib/Test/More.pm	34370	34535	
==>B<NOTE>  This behavior may go away in future versions.


=head1 CAVEATS and NOTES

=over 4

=item Backwards compatibility

Test::More works with Perls as old as 5.004 <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	72626	72750	
==>AUTOLOAD =~ s/^$self->{namespace}/Parse::RecDescent/;
	goto &{\$AUTOLOAD};
}
}

};
	$code .= "push \@$self->{namespace}\::ISA <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	3218	3357	
==>context="#stay" String="types" />
          <RegExpr attribute="Comment" context="#stay" String="#.*\$" />
          <RegExpr attribute="Com <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	4084	4305	
==>fined(\$init{'$name'})) {\n";
           $out .= "       if (ref \$init{'$name'} eq 'HASH')\n";
            $out .= "            { \$r->$elem = $type->new(\%{\$init{'$name'}}) } $cmt\n";
           $out .= "       elsif (U <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	5948	6052	
==>rrotAPI) {
	printf "%s\t%s\tMISSING_API\n", $api, "-";
    }
}

if (@NoParrotPrefix) {
    printf "--- No <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	1200	1302	
==>pieces;
	foreach (@pre_pieces) {
	    if (ref $_ && $_->{name} eq 'seq') {
		push @pieces, @{$_->{args} <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	1969	2076	
==>rent token. With an argument, gives the
# token at that absolute position. If a count is given, then that ma <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	3046	3199	
==>_code."
                if $exit_code;
            $self->{builder}->diag($diag) if $diag;
        }

        # The generated files are left in the t <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2657	2791	
==>_code." if $exit_code;
            $self->{builder}->diag( $diag ) if $diag;
        }

        # The generated files are left in the t <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	4573	4707	
==>->cur_op/g;
            $asm =~ s/MAP\[(\d)\]/MAP($1)/g;
            # set extern if the code calls a function
            $extern = -1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611187	611448	
==>TABLE_set_attr(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612090	612351	
==>TABLE_set_attr(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	1203	1384	
==>rprint */\n";
print "static const unsigned char fingerprint[] = {\n";
for my $i (0..$len-1) {
  print '    0x', substr ($fingerprint, $i*2, 2), ",\n";
}
print "};\n";

print << "EOF" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	689730	689982	
==>ops(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	5526	5704	
==>xpect "Ok"
i$="N"
if i$="N" then goto 35
end
35 print "Ok"
end

' Compilation bug, expect "Ok"
dim s(1)
goto 10
INPUT S(0, 1), S(0, 2), S(0, 3), S(0, 4)
10 print "Ok"
end

' Odd b <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35707	35904	
==>$para, '';  # Just so it's not contentless
            }
          }

        } else {
          die "Unhandled =over type \"$over_type\"?";
          # Shouldn't happen!
        }

        $para_ty <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	315	421	
==>ops.pasm> example program,
for speed comparisons.

Calculates a value for M ops/s (million operations per s <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	311	417	
==>ops.pasm> example program,
for speed comparisons.

Calculates a value for M ops/s (million operations per s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24611	24721	
==>rent_sub;\n  dest = (opcode_t *)p->vtable->invoke(interpreter, p, dest);\n  {{=dest}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	3869	4008	
==>tead of this module if it is available.
This module is only usefull for

=over 4

=item *

computers where you cannot install C<Digest::MD5> <==
2	/Users/nnunley/parrot/languages/APL/t/APL.pm	1862	2090	
==>, $block->name);
        }
      } else {
        SKIP: {
          skip("not implemented", 1);
          Parrot::Test::language_output_is('APL', $apl, $output, $block->name);
        }
      }
    } else {
      Parrot::Test::la <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	2476	2577	
==>ile::Spec->catdir( $FindBin::Bin , 'parrotbench.conf' ),
    bench_path   => undef,
    list_only    = <==
2	/Users/nnunley/parrot/tools/dev/pbc_header.pl	1450	1583	
==>k F, 6, 0;	# pos 6: pad = finger_print
	print F $fp;
	close F;
    }
}

sub pbc_info {
    for my $f (@ARGV) {
	open F, "<$f" or die " <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1564	1709	
==>ass;

  $block->push_content($self);

  return $self;
}


#
# ACCESSORS:
#

sub kind  { return shift->{KIND};  }
sub ident { return shift->{IDENT} <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	3976	4092	
==>);
    ${lhs}pmc_register(interpreter, whoami);
EOC
    }
    $cout .= <<"EOC";

    /* do class_init code */
    for <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	197	387	
==>::Dumper;
use File::Basename;

require Parrot::Test;

=head1 NAME

Test/Lua.pm - Testing routines specific to 'lua'.

=head1 DESCRIPTION

Call 'Parrot lua' and 'original lua'.

= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649977	650273	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "valid_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650898	651194	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "valid_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	7866	8054	
==>ith 0.

=cut

sub skip_all {
    my($self, $reason) = @_;

    my $out = "1..0";
    $out .= " # Skip $reason" if $reason;
    $out .= "\n";

    $self->{Skip_All} = 1;

    $self->_print($ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14202	14351	
==>rint z.pointer.foo

' Array access, 132
type first
	foo as integer
	bar as string
end type
dim y(5)
y(3)=66
dim u(5) as first
print y(3)*2

' Array st <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	5011	5281	
==>pond to for C<.HLL> usage. For example:

    pmcclass TclInt hll Tcl maps Integer

allows this PMC to automatically be used when autoboxing C<I> registers to PMCs.

Requires the C<hll> flag.

=back

=item 3.

A list of vtable method implementations

=item 4.

The final c <==
2	/Users/nnunley/parrot/languages/perms.pl	577	689	
==>eper(5, \@things);

while (my $i = $it->()) {
  print $i."\n"
    if length($i) >= 2;
}

__END__
    for my $i (@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1283	1430	
==>gets the current position in Parrot code.

=cut

sub pc
{
    my $self = shift;

    if (@_)
    {
        $self->{PC} = shift;
    }
    else
    { <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	892	1039	
==>gets the current position in Parrot code.

=cut

sub pc
{
    my $self = shift;

    if (@_)
    {
        $self->{PC} = shift;
    }
    else
    { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669570	669909	
==>i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 749,
                  "ARGS" => [
                              "p",
                              "nc"
                            ],
                  "BODY" => "#line 410 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->push_float(interpret <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	2646	2767	
==>e "Can't open up $to_file, error $!";

# To start, save all the registers, just in case
print OUTPUT "saveall\n";


my @li <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	817768	817918	
==>UMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "saveall",
                  "FLAGS" => ":base_core",
                  "A <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	13861	13967	
==>ad1', {'start_line' => $m, 'errata' => 1}, 'POD ERRORS'],
    ['~Para', {'start_line' => $m, '~cooked' => 1 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	8337	8513	
==>]->type eq 'start' and
              $to_unget[-1]->tagname eq 'Para';

            DEBUG > 1 and printf "    item-* before %s(%s) %s keepn'd.\n",
              $to_unget[-1]->t <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5616	5741	
==>TDERR ('-' x 40),"\n";
#DBG>		$debug & 0x2
#DBG>	and	print STDERR "In state $stateno:\n";
#DBG>		$debug & 0x08
#DBG>	and	p <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5346	5467	
==>TDERR ('-' x 40),"\n";
#DBG>		$debug & 0x2
#DBG>	and	print STDERR "In state $stateno:\n";
#DBG>		$debug & 0x08
#DBG>	and	p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073371	1073735	
==>ed_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1196,
                  "ARGS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147777	148205	
==>[
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 180,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 98 \" <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36416	36581	
==>tate 140
		ACTIONS => {
			"-" => 72,
			"%" => 76,
			"*" => 80,
			".." => 71,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -66
	},
	{#Sta <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2095	2276	
==>]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P8', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'], <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	43525	43706	
==>{
    for(@{$node->{children}}) {
      prettyprint($_,$depth+1);
    }
  }
  print ' ' x $depth; print ")\n";
}

sub _generate {
  my ($self,$node) = @_;

  my $return;

  if (exist <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7247	7369	
==>} elsif ($tagname eq 'Data') {
        my $next = $self->get_token;
        next unless defined $next;
        unless( $nex <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9492	9614	
==>} elsif ($tagname eq 'Data') {
        my $next = $self->get_token;
        next unless defined $next;
        unless( $nex <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6500	6652	
==>";
        push @{$paras->[-1]}, $line;
      }  # otherwise it's not interesting
      
      if(!$self->{'start_of_pod_block'} and !$self->{'last_was_b <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	8615	8817	
==>'       => 'IN',
        'local'    => 'LOCAL',
        'nil'      => 'NIL',
        'not'      => 'NOT',
        'or'       => 'OR',
        'repeat'   => 'REPEAT',
        'return'   => 'RETURN', <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44293	44468	
==>te 200
		DEFAULT => -98
	},
	{#State 201
		ACTIONS => {
			'END' => 208
		}
	},
	{#State 202
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 7 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574799	575058	
==>um_class_ParrotClass, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575603	575862	
==>um_class_ParrotClass, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754711	755033	
==>gn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 851,
                  "ARGS" => [
                              "p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757073	757462	
==>gn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 854,
                  "ARGS" => [
                              "p",
                              "sc"
                            ] <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1627	1712	
==>lf->directory_with_path(File::Spec->catdir(File::Spec->tmpdir, @_));
}

=item C<new($p <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5429	5584	
==>xpr_address($address)>

Implemented in subclasses to return the C code for C<ADDRESS($address)>.
Called by C<goto_address()>.

=back

=head1 SEE ALSO

=over <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	675656	676014	
==>GDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 757,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 47 <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	13482	13602	
==>saved_ehs\nsaved_ehs = new .FixedPMCArray\nsaved_ehs = "
    tmp = i
    gen_pir = concat tmp
    gen_pir = concat "\n"
N <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	6543	6644	
==>t - The Tree op being visited
#  guarantee - The number of atoms we are currently guaranteed to have f <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	4680	4827	
==>self->rewrite_optional($op, $R, $greedy, @rest);
    } elsif (($min == 0) && (!defined($max) || ($max == -1))) {
        return $self->rewrite_star( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	304910	305223	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if_null",
                  "FLAGS" = <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12729	12837	
==>lt>47E<gt>>, C<EE<lt>0x2fE<gt>>,
and C<EE<lt>057E<gt>>, all mean "/", whose Unicode number is 47.  If
the nam <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9068	9174	
==>et;\n        Parrot_switch_to_cs(interpreter, fe->seg, 1);\n    }\n    string_cstring_free(label);\n    int <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10184	10290	
==>et;\n        Parrot_switch_to_cs(interpreter, fe->seg, 1);\n    }\n    string_cstring_free(label);\n    int <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	8183	8315	
==>cs, $protos);
}

sub find_type
{
    my $type    = shift;

    my %typemap =
    (
        'STRING*'  => 'Parrot_STRING',
        'vo <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1934	2030	
==>Instance Methods

=over 4

=item C<create_path()>

This is called from C<new()> to create the pat <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	911	1007	
==>Instance Methods

=over 4

=item C<create_path()>

This is called from C<new()> to create the pat <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6253	6340	
==>TYPES}
prop_stack_depth[${ITEMP0}] = stack_depth
goto POST_BRANCH_NOT_switch_${CURIC}

P <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4191	4278	
==>TYPES}
prop_stack_depth[${ITEMP0}] = stack_depth
goto POST_BRANCH_NOT_switch_${CURIC}

P <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27089	27184	
==>SERFUNC_$funcname";
	$f=changename($f);
	$f=~s/\$/_string/g; $f=~tr/a-z/A-Z/;
	$seg=$f;
	CALL_BO <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27362	27457	
==>SERFUNC_$funcname";
	$f=changename($f);
	$f=~s/\$/_string/g; $f=~tr/a-z/A-Z/;
	$seg=$f;
	CALL_BO <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	8151	8268	
==>set_source");
  } else {  # It's a filename!
    DEBUG and print "$self 's source is filename $_[0]\n";
    {
      lo <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	12847	13004	
==>ANDLERS'} = 'ehs';

    # SRM pre translation code.
    $pir .= "### pre_translation\n";
    my $srm_pt = $srm->pre_translation();
    $pir .= sub_meta($srm_p <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	3978	4113	
==>>
          <RegExpr attribute="Identifier" context="#stay" String="[a-zA-Z_][\\w_]*" />
      </context>

END

print <<END;
      <cont <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	58248	58343	
==>timized regex that matches a string delimited
by any one of the characters in the single argumen <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	39882	40006	
==>ink_text) {
        $ell->[1]{'content-implicit'} = 'yes';
        $link_text = [];
        push @$link_text, '"', @$section_ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	52	139	
==>d: /parrot/lib/Parrot/Configure/Step.pm 20340 2006-06-22T21:49:11.552283Z bernhard  $

= <==
2	/Users/nnunley/parrot/config/gen/platform.pm	1487	1590	
==>> include/parrot/platform.h"
        or die "Can't open include/parrot/platform.h: $!";

    print PLATF <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1097481	1097598	
==>et_string_keyed_int(interpreter, ns, i);\n            key = key_new_string(interpreter, tmp);\n            key_append( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023373	1023468	
==>me_t) {{\@2}};\n  Parrot_localtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024223	1024318	
==>me_t) {{\@2}};\n  Parrot_localtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42394	42544	
==>ecDescent::_tracefirst($text),
					  q{' . $rule->{"name"} .'})
						if defined $::RD_TRACE;').'

		push @item, '.($::RD_NO_HITEM ? ''
			       : '$ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	35495	35687	
==>) && return;
    }
}

END {
    $Test->_ending if defined $Test and !$Test->no_ending;
}

=head1 EXIT CODES

If all your tests passed, Test::Builder will exit with zero (which is
normal).  If a <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	23432	23556	
==>t;

    local($\, $", $,) = (undef, ' ', '');
    my $fh = $self->todo ? $self->todo_output : $self->failure_output;
    prin <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	2590	2728	
==>f, $File,
    $ObjectName, $Type, $BSD, $Long, $Help, $Version);

sub show_version {
    print "$ME: $VERSION ( $RCS_DATE)\n";
}

sub show_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3250	3355	
==>e;
  }

  my $sym = $self->block->find_symbol($name);

  my %props = $sym->props;

  if (exists $props{fn} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	79	204	
==>::Autojoin

use strict;
use Pod::Simple::BlackBox;

use overload( # So it'll stringify nice
  '""'   => \&Pod::Simple::BlackBo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576171	576485	
==>,
                  "CODE" => 658,
                  "ARGS" => [
                              "p",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 276 \"src/ops/object.ops\"\n  PMC *name;\n  name = pmc_new(interpreter, enum_cla <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	37368	37496	
==>ing specifying a pattern to be matched at the closing tag. 
If the pattern string is omitted (or C<undef>) then the closing
tag i <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30765	30877	
==>} ? '$text = $_savetext;' : '' ) .'
';

	return $code;
}

1;

package Parse::RecDescent::InterpLit;

sub sethashn <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	24492	24622	
==>o_FH};
}


sub _new_fh {
    my($file_or_fh) = shift;

    my $fh;
    if( _is_fh($file_or_fh) ) {
        $fh = $file_or_fh;
    } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455332	455606	
==>ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 235 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	2367	2588	
==>" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cpu_ret",
                  "FLAGS" => "",
                  "ARGDIRS" => [],
                  "TYPE <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	2741	2937	
==>.pm\n";
	print $fh $config_pm;
	close $fh;
}


# Generate makefile instructions to translate class library.
# ##########################################################
sub generate_classli <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2222	2465	
==>m feed
                last;
            s/^\\n//
                and $str .= "\n",      # new line
                last;
            s/^\\r//
                and $str .= "\r",      # carriage return
                last;
            s/ <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3736	3979	
==>m feed
                last;
            s/^\\n//
                and $str .= "\n",      # new line
                last;
            s/^\\r//
                and $str .= "\r",      # carriage return
                last;
            s/ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	538	631	
==>:isa($block, 'Jako::Construct::Block');
  confess("Left (" . ref($left) . ") is not Value") un <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	529	622	
==>:isa($block, 'Jako::Construct::Block');
  confess("Left (" . ref($left) . ") is not Value") un <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	513037	513303	
==>TYPE" => "inline",
                  "CODE" => 591,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 695 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}}->vta <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	1452	1777	
==>ec->updir() x ($dir_count - 2));
    }

    my $lang_f = Parrot::Test::per_test('.tcl',$count);
    my $out_f = Parrot::Test::per_test('.out',$count);

    $TEST_PROG_ARGS = $ENV{TEST_PROG_ARGS} || '';
    my $args = $TEST_PROG_ARGS;

    Parrot::Test::write_code_to_file( $code, $lang_f );

    my $cmd;
    my $exit_code = 0 <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	3440	3602	
==>exe;
my %directories;
@ARGV = @manifests;
while(<>) {
    chomp;

    s/\#.*//; # Ignore comments
    next if /^\s*$/; # Skip blank lines

    my ($src, $meta, $de <==
2	/Users/nnunley/parrot/lib/File/Which.pm	5594	5752	
==>tches.

=head2 where($short_exe_name)

Not exported by default.

Same as C<which($short_exe_name)> in array context. Same as the
C<`where'> utility, will retur <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	8177	8332	
==>e;
			
			while ( @lines )
			{
				$line = shift @lines;
		
				last if $line !~ /\S/o;
				
				push @abstract, $line;
			}
			
			my $desc = join ' ', @a <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	2114	2229	
==>d copying symbol table to parent block.\n", __PACKAGE__;

  return 1 unless $self->content;

#  if ($options->{PACKA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	410407	410653	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "send",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411299	411545	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "send",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5537	5640	
==>0} = concat ${STEMP1}

${INS} = concat ${STEMP0}
${INS} = concat " = "
${INS} = concat ${LOADREG}
${INS} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706536	706874	
==>inline",
                  "CODE" => 792,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957618	957849	
==>\"encoding '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958523	958754	
==>\"encoding '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	141	260	
==>This package defines operators that can be used to construct a
# syntax tree for a regular expression.
#

# Core ops gen <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9391	9526	
==>re_call {
    my $self = shift;
    my $pir = <<'PIR';
# See if we've got a return or something to call.
if ${ARGCOUNT} == 0 goto PRE_CA <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	3505	3736	
==>gs[] = {
	{ 0, 0, "" },
HEADER
    my @all;
    for my $s (@all_strings) {
	push @all, qq!\t{$s->[0], $s->[1], "$s->[2]"}!;
    }
    print OUT join(",\n", @all);
    print OUT <<HEADER;

};

HEADER
    close OUT;
}

=for never

pri <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	1183	1280	
==>ex::Ops::Tree::seq::ISA          = qw(Regex::Ops::Tree);
@Regex::Ops::Tree::alternate::ISA    = qw <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742720	742810	
==>ODY" => "#line 174 \"src/ops/set.ops\"\n  {{\@1}} = string_from_int(interpreter, {{\@2}});\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743486	743576	
==>ODY" => "#line 174 \"src/ops/set.ops\"\n  {{\@1}} = string_from_int(interpreter, {{\@2}});\ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	30240	30413	
==>the "rxlocals" gathered while
    # rewriting the regex
    my @save_rxlocals;
    my @restore_rxlocals;
#    if ($ctx->{preserve_state}) {
        @save_rxlocals = $self->ru <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	28063	28239	
==>.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.

sub _treat_Zs {  # Nix Z<...>'s
  my($self,@stack) = @_;

  my($i, $treelet);
  my $start_line = $stack[0][1]{'sta <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	431	642	
==>arrot::Pmc2c;

use strict;
use warnings;

use Parrot::PMC qw(%pmc_types);

use base qw( Exporter );

our @EXPORT_OK = qw(count_newlines gen_ret dont_edit dynext_load_code);

our %writes;
{
  my @writes = qw(STORE <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33281	33379	
==>};
	return $desc;
}

sub callsyntax($$)
{
	if ($_[0]->{"matchrule"})
	{
		return "&{'$_[1]'.qq{$_[0 <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	858	1154	
==>:    $I4\n"; # print  "Iterations:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, I1
                              #
print "Estim <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	858	1154	
==>:    $I4\n"; # print  "Iterations:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, I1
                              #
print "Estim <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5525	5628	
==>ight be crucial
sub gather_groups_and_libs {
    my @pmcs = @_;

    my ( %group_files, %group_libs, %pm <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5736	5839	
==>ight be crucial
sub gather_groups_and_libs {
    my @pmcs = @_;

    my ( %group_files, %group_libs, %pm <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321411	321642	
==>i",
                              "p"
                            ],
                  "BODY" => "#line 129 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (INTVAL)(Parrot_Int4)({{\@2}}->vtable->get_integer(interpreter, {{\@2}}));\n  {{+=3}};\n <==
2	/Users/nnunley/parrot/config/init/hints/freebsd.pm	897	1013	
==>parrot_is_shared        => 1,
        libparrot_shared        => 'libparrot$(SHARE_EXT).$(SOVERSION)',
        libpar <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	1735	1851	
==>parrot_is_shared        => 1,
        libparrot_shared        => 'libparrot$(SHARE_EXT).$(SOVERSION)',
        libpar <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369516	369782	
==>reter, {{\@2}}, (size_t){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	370401	370667	
==>reter, {{\@2}}, (size_t){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	602	724	
==>k, R)
# O (match, b) : return if start of input is b, advance 1 char
# O (classmatch, charclass) : return if start of input <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16132	16260	
==>_gensym();

  _num_arg ($node, 1, 'null?');

  my $temp = $self->_generate(_get_arg($node,1));
  $self->_add_inst ('', 'typeof',[ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4086	4244	
==>}

  unless ($right_type->name eq $calc_type->name) {
#    $self->DEBUG(0, "   ...converting right...");
    my $temp = $compiler->temp_reg($calc_type);
    $r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	448691	448966	
==>FLOATVAL){{\@2}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12630	12731	
==>xpression::Value->new($block, $self->forth);

      $self->require_semicolon;

      my $bitwise = Jak <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286163	286576	
==>o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 333,
                  "ARGS" => [
                              "i",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 913 \"src/ops/cmp.ops\"\n  {{ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	26275	26387	
==>if ($self->{flags}{dynpmc}) {
        $cout .= $self->lib_load_code();
    }
    $cout;
}

=item C<gen_c($out_nam <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4062	4166	
==>Construct::Block");
  confess "No symbol name!"  unless defined $name;
  confess "Extra arguments!" if @_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6230	6334	
==>Construct::Block");
  confess "No symbol name!"  unless defined $name;
  confess "Extra arguments!" if @_ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	56387	56565	
==>act_variable($_[0]) } ],
                                   undef, 1);

This example separates a text into fields which are quote delimited,
curly bracketed, and anything else. Th <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7262	7358	
==>y $ignore  = ref($options{ignore}) eq 'ARRAY' ? join('|', @{$options{ignore}})
		    : defined($o <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24264	24360	
==>y $ignore  = ref($options{ignore}) eq 'ARRAY' ? join('|', @{$options{ignore}})
		    : defined($o <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1020	1159	
==>lers;
use Parrot::Docs::Section::Languages;
use Parrot::Docs::Section::Config;
use Parrot::Docs::Section::Tests;
use Parrot::Docs::Section:: <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2064	2286	
==>/p>\n",

  'B'      =>  "<b>",                  '/B'     =>  "</b>",
  'I'      =>  "<i>",                  '/I'     =>  "</i>",
  'F'      =>  "<em$Computerese>",     '/F'     =>  "</em>",
  'C'      =>  "<code$Computerese <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	5280	5415	
==>function (or one of its cousins):

    use Digest::Perl::MD5 'md5_hex';
    print 'Digest is ', md5_hex('foobarbaz'), "\n";

The above e <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	718	823	
==>se File::Copy ();
use File::Spec;
use File::Which;

# XXX $conf is a temporary hack
our $conf;

our @EXPOR <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	8686	8872	
==>::lastexpected,
	       $Parse::RecDescent::lastunexpected,
	       $Parse::RecDescent::defexpected) = (0, "", "", "", "",
						   $thisrule);
	$Parse::RecDescent::lastunexpected = $_[1] <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	39137	39271	
==>_translation\n";
    my $srm_pt = $srm->post_translation();
    $pir .= sub_meta($srm_pt, $mv, 'post_translation');
    $pir .= "### en <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2369	2480	
==>egister_num/g;
		$register_num++;
	}

	# Do code for each push.
	$pir .= "\${ITEMP0} = 0\n";
	for (1..$pushes) { <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1721	1832	
==>egister_num/g;
		$register_num++;
	}

	# Do code for each push.
	$pir .= "\${ITEMP0} = 0\n";
	for (1..$pushes) { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963340	963797	
==>ing",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1084,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic"
                            ] <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1934	2173	
==>E__
            cc_debug             => '-Zi',
            ld_debug             => '-debug',
            ld_share_flags       => '-dll',
            ld_load_flags        => '-dll',
            ld_out               => '-out:',
            ld <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773294	773462	
==>",
                              "i"
                            ],
                  "BODY" => "#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_in <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	892	1022	
==>$lang_f" or die "Unable to open '$lang_f'"; # JMG
        binmode LANG; # JMG
        print LANG $lang_code; # JMG
        close LA <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	804	934	
==>$lang_f" or die "Unable to open '$lang_f'"; # JMG
        binmode LANG; # JMG
        print LANG $lang_code; # JMG
        close LA <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	15518	15639	
==>t>
element always to be nonnegative, so we redefine the C<count>
accessor accordingly.

    package MyObj;
    use Class:: <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27984	28094	
==>>{hdecls};
}

=item C<gen_h($out_name)>

Generates the C header file code for the PMC. C<$out_name> is the name <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	12915	13154	
==>for debugging only
########################################################################

package Regex::Ops::Tree;

sub dump_tree {
    my ($op) = @_;
    my $ref = $op->reftree();
    return dump_ref($ref);
}

sub dump_ref {
    my ($r <==
2	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1480	1607	
==>qw(Lua::opcode);

package NoOp;
use base qw(Lua::opcode);

package FindGlobalOp;
use base qw(Lua::opcode);

package Find <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	39611	39736	
==>aybe generate a warning eventually?)
        # Note that it deliberately won't work on L<...|Foo Bar>
      }


      # Now ma <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218855	219014	
==>e->get_string(interpreter, {{\@1}}), {{\@2}}) > 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219834	219993	
==>e->get_string(interpreter, {{\@1}}), {{\@2}}) > 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	25405	25539	
==>ints to STDOUT will
    # come out in the wrong order from our own prints.
    _autoflush(\*TESTOUT);
    _autoflush(\*STDOUT);
    _au <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	332	553	
==>TOTAL     PERCENT
HEADING
foreach (@results) {
	print $_->{'name'} . (' ' x (50 - length($_->{'name'})));
	print $_->{'done'} . (' ' x (10 - length($_->{'done'})));
	print $_->{'total'} . (' ' x (10 - length($_->{'tot <==
2	/Users/nnunley/parrot/config/init/optimize.pm	61	174	
==>t/config/init/optimize.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/init/optimize.pm - Optimi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	5778	5939	
==>hing strange:
          (?:
           [a-zA-Z'\x80-\xFF]+[\$\@\:_<>\(\\\*]\S+
          )
         )
        /\cb$1\cc/xsg
      ;
      
      rtf_esc($scratch) <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	396	588	
==>_inst {
  my $self = shift;
  push @{$self->{instruction}},[@_];
}

#------------------------------------

sub _new_regs {
     return
  {
    I => { map { $_ => 0 } (0..31) },
    N => { map { <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	17406	17573	
==>p = ( '#' => "_hash",
				  	'!' => "",
					'&' => "_amp",
					'%' => "_percent",
					);
	$name=~s/(%|!|\#|&)$/$lookup{$1}/e;
	$name=~tr/A-Z/a-z/;
	return $name;
}
1 <==
2	/Users/nnunley/parrot/config/gen/icu.pm	1670	1892	
==>cuconfig = "icu-config" if $icuconfig eq "1";

            # ldflags
            $icushared = capture_output("$icuconfig --ldflags");
            if (defined $icushared) {
                chomp $icushared;
                $ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	5075	5248	
==>elf,$line,$file)>

Generates the C pre processor string for a #line directive, or an empty string
if C<$self->{opt}{nolines}> is true.

=cut

sub line_directive {
    my ($se <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	4017	4172	
==>TR(line) CONCAT(&static_string_, line)

#if ! DISABLE_GC_DEBUG
#  define GC_DEBUG_VERSION ,0
#else
#  define GC_DEBUG_VERSION
#endif

HEADER

# currently un <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	268021	268507	
==>JUMP" => 0,
                  "NAME" => "isfalse",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 312,
                  "ARGS" => [
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 816 \"src/ops/cmp.ops\"\n <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	5418	5558	
==>:no-)?$w$/, @warns;
            }
            $warns = join ' ', @warns;
        }
    }

    if (defined $conf->options->get('miniparrot') & <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	1813	1910	
==>@@@@@@@@@@@@@@@@@@@@@@@@

__PACKAGE__->_accessorize(
  'nbsp_for_S',        # Whether to map S<... <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7355	7492	
==>}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        return ("set <rx_tmp>, <rx_stack>",
                $self->pushop . " <rx_s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928628	929010	
==>",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1044,
                  "ARGS" => [
                              "i",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 385 \"src/ops/string.ops\"\n  switch <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600848	601150	
==>],
                  "TYPE" => "inline",
                  "CODE" => 680,
                  "ARGS" => [
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 363 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	16154	16323	
==>ounter = 0
#           try: R[$counter] or goto fail
#                push $counter
#                goto next
#          fail: $counter++
#                if $counter >= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713043	713291	
==>nt_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 800,
                  "ARGS <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	31207	31370	
==>not use
# "L<B<Foo::Bar>>".
#
# Note, however, that formatting codes and Z<>'s can occur in any and all
# parts of an L<...> (i.e., in name, section, text, and url) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2929	3059	
==>{ return shift->{FILE};     }
sub line  { return shift->{LINE};     }


#
# compile()
#

sub compile
{
  my $self     = shift; # Re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	328453	328654	
==>85,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 159 \"src/ops/dotgnu.ops\"\n  {{\@1}} =  (FLOATVAL)((Parrot_Float4)( <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	713	877	
==>int(($done / $total) * 100);
print "SUMMARY                                           ";
print $done . (' ' x (10 - length($done)));
print $total . (' ' x (10 - l <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	882	1015	
==>/parrot/warnings.h
    src/pmc/timer.pmc
    src/utils.c
);
my $destdir = 'runtime/parrot/include';

@args = qw(verbose);

sub runstep <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	15242	15655	
==>@b=EXPRESSION();
			feedme();
			print CODE<<TO;
# From
@a	bsr DEREF
	push P13, P6
# To
@b	bsr DEREF
	push P13, P6
TO
			$tos++;
		}
		last if ($type[CURR] eq "STMT" or $type[CURR] eq "COMP");
	}
	print CODE "\tbsr EXPRINIT\n";
	print CODE $lambda;
	if ($ors) {
		print CODE <<ORS
	I5= P12
CASE_${jump}_${incase}_STARTOR:
	eq I5, 1, CASE_${jump}_${incase}_NO_OR
	push P9, "or"
	push P9, "OP"
CASE_${jump}_${incase} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777446	777983	
==>t",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 878,
                  "ARGS" => [
                              "p",
                              "kic",
                              "n"
                            ],
                  "BODY" => "#line 382 \"src/ops/set.ops\"\n    {{\@1}}-> <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	2806	3023	
==>is with the -xlibmieee flag.
    # I don't know of an equivalent flag for gcc.
    # (Alternatively, and more generally, perhahs we should run an
    # ieee-conformance test and then call back into a hints-file trigger <==
2	/Users/nnunley/parrot/config/auto/inline.pm	1300	1444	
==>bose;
            $self->set_result('no');
            $test   = '';
        }
    }

    $conf->data->set(inline => $test);

    return $self;
} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32001	32148	
==>$item_type eq 'bullet') {
            # Hm, it's not numeric.  Correct for this.
            $para->[1]{'number'} = $expected_value;
            $se <==
2	/Users/nnunley/parrot/languages/APL/t/APL.pm	1701	1898	
==>ot implemented";
      }
      if ($ENV{APLDEV}) {
        TODO: {
          local $TODO = $todo;
          Parrot::Test::language_output_is('APL', $apl, $output, $block->name);
        }
      } el <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3988	4123	
==>Integer']);
      $self->_add_inst ('', 'set',[$to,$from]);
    } elsif ($from =~ /N/) {
      $self->_add_inst ('', 'new',[$to,'.Float' <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	281	395	
==>d1 DESCRIPTION

A documentation section describing Parrot's big number subsystem.

=head2 Class Methods

=over

=cu <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	25381	25574	
==>k => aop('popint', [ '<tmp>', 'optional marker' ]),
                        aop('if', [ '<tmp>', $R_back ]),
                        aop('goto', [ $lastback ]),
              $rfail => aop('push <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	651	740	
==>rot::Docs::File';
}

=item C<directory_class()>

Returns C<Parrot::Docs::Directory>.

=cut <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	674860	675504	
==>",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 756,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 454 \"src/ops/pmc.ops\"\n    {{\@1}} = {{\@2}}->vtable->pop_pmc(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792893	793287	
==>t",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 895,
                  "ARGS" => [
                              "p",
                              "k <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576591	576878	
==>eter, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577603	577890	
==>eter, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90881	91214	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91735	92068	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core" <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6389	6602	
==>x01
#DBG>		and	print STDERR "Don't need token.\n";
        }

            defined($act)
        and do {

                $act > 0
            and do {        #shift

#DBG>				$debug & 0x04
#DBG>			and	p <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6093	6295	
==>x01
#DBG>		and	print STDERR "Don't need token.\n";
        }

            defined($act)
        and do {

                $act > 0
            and do {        #shift

#DBG>				$debug & 0x04
#DBG>			and	p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	412	552	
==>ew
{
  my $class = shift;
  my ($compiler) = @_;

  return bless {
    FILE     => undef,
    LINE     => undef,
    TOKENS   => [ ],
    POS <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeDumb.pm	551	702	
==>ort keys %Supported;
}

sub encoding_is_available {
  return exists $Supported{lc $_[1]};
}

sub encmodver {
  return __PACKAGE__ . " v" .($VERSION || ' <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	481	683	
==>use-style provided by C<Parrot::HTMLPage>.

=head2 Instance Methods

=over

=cut

package Parrot::Docs::POD2HTML;

use strict;
use warnings;

use base qw( Pod::Simple::HTML );

# This is just here to kee <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	205	338	
==>lock>;
use Storable    qw<store_fd fd_retrieve freeze>;
use Digest::MD5 qw<md5_hex>;
use HTML::Template;
use Algorithm::TokenBucket;
u <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3942	4058	
==>)
          or die "compile $group.c failed ($?)\n";
    }
} 
elsif ($mode eq 'linklibs') {
    my ($group_files, $gr <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4046	4162	
==>)
          or die "compile $group.c failed ($?)\n";
    }
} 
elsif ($mode eq 'linklibs') {
    my ($group_files, $gr <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	5275	5423	
==>O NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically from '$file' (and possibly other
 * .ops files). by $0.
 *
 * Any changes m <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	3694	3819	
==>xperimental) {
	for $_ (@{$temp_ops->{OPS}}) {
	    $_->{experimental} = 1;
	}
    }

    push @{$ops->{OPS}}, @{$temp_ops->{O <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26616	26739	
==>{
    my ( $parser, $expr, $block ) = @_;
    my @opcodes    = ();
    my $l_continue = new_label($parser);
    my $l_br <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60614	60726	
==>"src/ops/core.ops\"\n  PARROT_WARNINGS_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61264	61376	
==>"src/ops/core.ops\"\n  PARROT_WARNINGS_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	14222	14328	
==>est->maybe_regex(qr/$regex/);
  $Test->maybe_regex('/$regex/');

Convenience method for building testing fu <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	823	1006	
==>_done:
END_PIR

    '\u230a' => [ 'Minimum', <<'END_PIR' ],
    if %1 < %2 goto minimum_done
    %1 = %2
minimum_done:
END_PIR
);


my $template = <<'END_OF_TEMPLATE';

.namespace [ 'A <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	31205	31342	
==>n|;
		}
	}

	push @{$code{$seg}->{code}}, <<RTBE;
	print "Runtime branch of "
	print JUMPLABEL
	print " not found\\n"
	_platform_shutdown( <==
2	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	263	464	
==>s compiles C# code to an exe/dll.
# ####################################
sub compile_cs {
	my $file_name = shift;
	my $cs_code = shift;
    my $opt = shift;
    $opt ||= '';
	
	# Write file.
	my $fh;
	o <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	2467	2561	
==>block upon which to write your own test libraries I<which can
work together>.

=head2 Construct <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	62060	62201	
==>, '>', $filename
        or die "can't open $filename ($!).\n";

    my $generator = new pirVisitor($FH);
#    my $generator = new pirVisi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191108	191639	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 227,
                  "ARGS" => [
                              "p",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 313 \"src/ops/cmp.ops\"\n  if ({{ <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	7780	7974	
==>ile (<OP>) {
        push @lines, $_ if $fix;
        chomp;
        $fix = 0 if /^###DYNAMIC###/;
        s/#.*$//;
        s/\s*$//;
        s/^\s*//;
        next unless $_;
        ($name, $n <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	4818	4953	
==>ation directory.

=cut

sub delete_html_docs
{
    my $self = shift;
    
    return $self->html_docs_directory->delete();
}

=item C<ge <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194948	195445	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 231,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	1150	1281	
==>h_reg(r)" ],
    [ "pop_reg(r)" ],

    [ "pushmark()" ],
    [ "popmark()" ],
    [ "pushindex()" ],
    [ "popindex()" ],

    [ " <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	1544	1704	
==>static stop sub swap system step
			then 
			time_NOTYET$ 
			timer troff tron type to
			uevent unlock until using
			view
			wait while wend width window write <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3098	3210	
==>is much more human-readable, being
(more-or-less) one token per line, with line-wrapping.

L<Pod::Simple::DumpAsT <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205012	205524	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 242,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 387 \"src/ops/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205954	206314	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 243,
                  "ARGS" => [
                              "p" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840212	840463	
==>eter->ctx)->user_stack, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840907	841158	
==>eter->ctx)->user_stack, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578143	578382	
==>YPE" => "inline",
                  "CODE" => 660,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 284 \"src/ops/object.ops <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	15792	15921	
==>array;
	my $pre  = defined $_[1] ? $_[1] : '\s*';

	my @match = _match_quotelike($textref,$pre,1,0);
	return _fail($wantarray, $te <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217336	217827	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 255,
                  "ARGS" => [
                              "p",
                              "nc",
                              "ic"
                            ],
                  "BODY" => <==
2	/Users/nnunley/parrot/config/init/hints/openbsd.pm	91	247	
==>3 2006-05-30T02:28:15.110975Z coke  $

package init::hints::openbsd;

use strict;
use Config;

sub runstep
{
    my ($self, $conf) = @_;

    my $ccflags = $ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	733	851	
==>Test::Builder;
require Test::More;

our @EXPORT = qw( plan skip );

my $lang = 'perl6';
my $streams = {
    output => s <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4340	4451	
==>set $result, 0.0
	eq $a1, $ot1, EQ_$eqnum
	eq $a2, $ot2, EQ_$eqnum
	set $result, 1.0
EQ_$eqnum: noop
CODE
	},
	' <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	1120	1237	
==>d {		# Keyword only
	feedme();
	$loop=0;
	while($type[CURR] !~ /COMP|COMM|STMT/) {
		die if $loop++>20;
		$var=$syms[C <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	36250	36360	
==>$ell_content[$j]\" for a '|'.\n";

        if($ell_content[$j] =~ m/^([^\|]*)\|(.*)$/s) {
          my @link_te <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	973	1070	
==>trict 'refs';
use Config;
use Getopt::Long;
use File::Copy;
use File::Basename;
use File::Path;
us <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19562	19713	
==>sa("Parse::RecDescent::Action"))
	{
		if ($i==1 && $item->isterminal)
		{
			$code .= $parser->{_AUTOTREE}{TERMINAL}->code($namespace,$rule);
		}
		else <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934035	934133	
==>"#line 435 \"src/ops/string.ops\"\n  {{\@1}} = string_downcase(interpreter, {{\@2}});\n  {{+=3}};\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934810	934908	
==>"#line 435 \"src/ops/string.ops\"\n  {{\@1}} = string_downcase(interpreter, {{\@2}});\n  {{+=3}};\n <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1911	2004	
==>zABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
    # Yes, stipulate the list w <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2014	2107	
==>zABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
    # Yes, stipulate the list w <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	4648	4752	
==>__func, __lib, $fn_name, \"$sig\"");

    if ($self->type) {
      $compiler->emit("  .local " . $self->t <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25443	25589	
==>rph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    my $temp   = $self->_constant(0);
    $self->_add_inst('',' <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27343	27458	
==>rph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    my $temp = $self->_constant( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	40035	40200	
==>es'} and
            $self->{'accept_codes'}{'VerbatimFormatted'}
        ) {
          while(@$para > 3 and $para->[-1] !~ m/\S/) { pop @$para }
           # Kill an <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655165	655625	
==>RS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 732,
                  "ARGS" => [
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 319 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined(interpreter, {{\@2 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	506	598	
==>ken -- end-tokens from Pod::Simple::PullParser

=head1 SYNOPSIS

(See L<Pod::Simple::PullPars <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	8234	8362	
==>RIC}
post_call_HAS_RETURN_${CURIC}:
${INS} = concat "push s, "
${INS} = concat ${DEST0}
${INS} = concat "\n"
post_call_NO_RETURN_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327042	327133	
==>DY" => "#line 154 \"src/ops/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327844	327935	
==>DY" => "#line 154 \"src/ops/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	3930	4044	
==>e almost
    # always part of function and arguments, or constants listings
    #and should stand out.
    
    pr <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3680	4003	
==>, 0, DEBUGGER_DONE  # No breakpoints
		\$S0= debline
		exists \$I0, \$P1[\$S0]
		eq \$I0, 0, DEBUGGER_DONE	 # This breakpoint doesn't exist
	DEBUGGER_STOP:
		\$P1=new .PerlHash
@debdecl		.arg \$P1
		.arg debline
		_DEBUGGER_STOP_FOR_REAL()
	DEBUGGER_DONE: noop
	.end	# End debug segment
.end 	# End outer segment
EOD
}
if ($ <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	3386	3521	
==>ualBasic
            Microsoft.VisualC
            Microsoft.Vsa
            Mono.CompilerServices.SymbolWriter
            Mono.Dat <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	1556	1694	
==>et', 'P0', 'P5'],
  ['',            'set', 'P16', 'P6'],
  ['',            'typeof', 'I16', 'P16'],
  ['',            'set', 'I1', 0],
  [' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19192	19368	
==>teger> );

This method sets the size (in half-points, like 26 for 13-point)
that normal paragraphic text will appear in.

=item $parser->no_proofing_exemptions( I<true_or_false> <==
2	/Users/nnunley/parrot/lib/Test/More.pm	11004	11125	
==>like saying:

    ok( Foo->can('this') && 
        Foo->can('that') && 
        Foo->can('whatever') 
      );

only witho <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	890	992	
==>,
	IntList => 39,
	Iterator => 40,
	SArray => 41,
	ConstSArray => 42,
	FixedStringArray => 43,
	MultiAr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038857	1039334	
==>"FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1161,
                  "ARGS" => [
                              "s",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 120 \"src <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4624	4737	
==>result, 0.0
	ne $a1, $ot1, EQ_$eqnum
	ne $a2, $ot2, EQ_$eqnum
	branch EQ_${eqnum}_false
EQ_$eqnum: set $result, 1. <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	2639	2828	
==>or $next eq ">") {
			fetch;
			append;
		}
		emit("Compare");
		fetch;
		goto MAIN;
	}
	if ($cur eq "_" and $next =~ /\w/) {	# Directive
		append;
		fetch;
		while($cur =~ /\w/) {
			append <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	419	560	
==>$token) = @_;

  return bless {
    TOKEN    => $token,
    CODE     => 'N',
    NAME     => 'num',
    IMCC     => 'num',
    IMCC_PMC => 'Fl <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	3477	3697	
==>eters that were registered for that
step.

Accepts no arguments and returns a L<Parrot::Configure> object.

=cut

sub runsteps
{
    my $self = shift;

    my ($verbose, $verbose_step, $ask) =
        $self->options->get( <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3117	3236	
==>o main
                   'program - only to SUB1.
' Exit tests
sub mysub(b,c)
	print "Print me"
	exit sub
	print "Don't <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17084	17203	
==>o main
                   'program - only to SUB1.
' Exit tests
sub mysub(b,c)
	print "Print me"
	exit sub
	print "Don't <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	489356	489692	
==>math.ops\"\n  {{\@1}} = (INTVAL)floor({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  " <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2710	2805	
==>subclass of L<Pod::Simple> and inherits all its methods.

=head1 SEE ALSO

L<Pod::Simple::DumpAs <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25073	25179	
==>turn;
}

sub _op_minus {
  my ($self,$node) = @_;
  my $return;
  my $num_children = defined $node->{childr <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38631	38766	
==>, $_tok;
		' . ($self->{"lookahead"} ? '$text = $_savetext;' : '' ) .'

'
}

package Parse::RecDescent::Result;

sub issubrule { 0 }
sub <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094689	1094969	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exec",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095383	1095663	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exec",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYP <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	1888	2040	
==>odule;
  use Test::Builder;
  require Exporter;
  @ISA = qw(Exporter);
  @EXPORT = qw(ok);

  my $Test = Test::Builder->new;
  $Test->output('my_logfile' <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5981	6083	
==>eds to
	# have an empty stack type state propogated to it if nothing has been
	# propogated there alrea <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3919	4021	
==>eds to
	# have an empty stack type state propogated to it if nothing has been
	# propogated there alrea <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3449	3558	
==>erly C<const> because of
portability issues.

Make your strings and arrays of strings (or similar inlined data <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4448	4569	
==>ps, 'print "\n";';
    }
    return @ops;
}

sub output_classmatch {
    my ($self, $incexc, $failLabel) = @_;

    my $pa <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4785	4905	
==>ps, 'print "\n"';
    }
    return @ops;
}

sub output_classmatch {
    my ($self, $incexc, $failLabel) = @_;

    my $pa <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2999	3094	
==>READLINE($filedesc)
	\$P99 = _SPLITLINE(\$S0,$sf)
	\$I0= \$P99
INP1

	# Bug here...FIXME.. I'm u <==
2	/Users/nnunley/parrot/config/inter/types.pm	283	387	
==>hould
be.

=cut

package inter::types;

use strict;
use vars qw($description @args);

use base qw(Parrot: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1054	1174	
==>->push_content($self);

#  printf STDERR "%s: Created new module '%s'.\n", __PACKAGE__, $ident->value;

  return $self;
} <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40804	40935	
==>meth(interpreter, attr$arg)";
    my $ret = gen_ret($method, $body);
    my $decl = $self->decl($self->{class}, $method, 0);
    # I <==
2	/Users/nnunley/parrot/Configure.pl	10211	10355	
==>rrot.
(NOTE: do not use `$make -j <n>'!)
After that, you can use `$make test' to run the test suite.

Happy Hacking,
        The Parrot Team

END <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27093	27193	
==>UNC_$funcname";
	$f=changename($f);
	$f=~s/\$/_string/g; $f=~tr/a-z/A-Z/;
	$seg=$f;
	CALL_BODY($engli <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27366	27466	
==>UNC_$funcname";
	$f=changename($f);
	$f=~s/\$/_string/g; $f=~tr/a-z/A-Z/;
	$seg=$f;
	CALL_BODY($engli <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	2988	3250	
==>d";
    }
}

sub output_goto {
    my ($self, $where) = @_;
    return "branch ".$self->output_label_use($where);
}

sub output_terminate {
    # return "ret";
}

sub output_label_use {
    my ($self, $label) = @_;
    $DB::single = 1 if ! ref $label || ! $label- <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	5188	5329	
==>ts($special{$_}) ? $special{$_} :
        !m[/]             ? '[]' :
        m[^LICENSES/]     ? '[main]doc' :
        m[^docs/]         ? '[m <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25480	25597	
==>estore ($return);
      $return = $temp;
    }
    my $temp   = $self->_constant(0);
    $self->_add_inst('','sub',[$r <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1634	1724	
==>arrot::Test::PGE::_generate_subrule_pir($target, $pattern)
        : Parrot::Test::PGE::_ge <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2157	2247	
==>arrot::Test::PGE::_generate_subrule_pir($target, $pattern)
        : Parrot::Test::PGE::_ge <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293349	293486	
==>s"
                            ],
                  "BODY" => "#line 945 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294225	294362	
==>s"
                            ],
                  "BODY" => "#line 945 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2} <==
2	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	939	1114	
==>/parrot_compiler/$test_prog_args < languages/$code_f";

  Parrot::Test::write_code_to_file( $code, $code_f );

  # STDERR is written into same output file
  my $diag = '';
  my <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	377	502	
==>junction;

# for running the test suite multiple times in the same process
$Test::testing_started = 1;

### FUNCTIONS

## plan <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17612	17715	
==>->get(1)->is_assign
      and $self->get(2)->is_value
      and $self->get(3)->is_infix_bit
      and $s <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	264	364	
==>ION

C<Parrot::Docs::POD2HTML> subclasses C<Pod::Simple::HTML> to provide
various Parrot-specific for <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	28440	28595	
==>o {
}

sub _op_gcd {
}

sub _op_lcm {
}

sub _op_numerator {
}

sub _op_denominator {
}

sub _op_floor {
}

sub _op_ceiling {
}

sub _op_truncate {
}

sub _ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	709227	709339	
==>709 \"src/ops/pmc.ops\"\n  dod_unregister_pmc(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	249891	250120	
==>=> 290,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 693 \"src/ops/cmp.ops\"\n  {{\@1}} = ! {{\@1}};\n  {{+=2}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	4321	4476	
==>rom ops.num
# or from experimental

my $real_ops = Parrot::OpsFile->new( [ ], $nolines_flag );
$real_ops->{PREAMBLE} = $ops->{PREAMBLE};
$real_ops->version( <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41746	41865	
==>RecDescent::_trace(q{<<Didn\'t match operator: ['
						  . $self->describe
						  . ']>>},
						  Parse::RecDescent:: <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5676	5822	
==>JECTS_C */

/* Need this for add, subtract, multiply, divide, mod, cmod, bitwise
   (and, or, xor, lshift, rshift), concat, logical (and, or, xor), <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19500	19702	
==>ice them) that labels them as being not in English, and
so not worth spellchecking.

=item $parser->doc_lang( I<microsoft_decimal_language_code> )

This sets the language code to tag this document as bei <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85558	85646	
==>iglobals, IGLOBALS_COMPREG_HASH);\n  {{\@1}} = VTABLE_get_pmc_keyed_str(interpreter, comp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86465	86553	
==>iglobals, IGLOBALS_COMPREG_HASH);\n  {{\@1}} = VTABLE_get_pmc_keyed_str(interpreter, comp <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9950	10058	
==>ar from 5 to 12
function myfunc(a)
	print a
	a=12
        myfunc=80
end function
z=5
T=myfunc(z)
print z

' B <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11563	11671	
==>ar from 5 to 12
function myfunc(a)
	print a
	a=12
        myfunc=80
end function
z=5
T=myfunc(z)
print z

' B <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	6972	7070	
==>nless $cond;
    say "ok ", $Test::num_of_tests_run, $out, $context_out;

    Test::report_failure( <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	9181	9299	
==>terpreter, st, "S");
    UVal_str(st->val) = val;
    Parrot_convert_arg(interpreter, st);
    Parrot_store_arg(interpr <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21699	21850	
==>or' )
            ? ( " (Should be \"=end " . $curr_open->[-1][1]{'target'} . '")' )
            : ''
          )
        );
        DEBUG and print "Ig <==
2	/Users/nnunley/parrot/languages/javascript/bootstrap.pm	352	485	
==>e $fh; 
	      return $val;
	});

$context->bind_function(
	name => "debug",
	func => sub {
		warn Dumper(@_);
	});


my $rval = $cont <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1486	1585	
==>TEMP0} = concat ${STEMP1}
${STEMP1} = "$register_num"
${STEMP0} = concat ${STEMP1}
${STACK$register_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3196	3295	
==>TEMP0} = concat ${STEMP1}
${STEMP1} = "$register_num"
${STEMP0} = concat ${STEMP1}
${STACK$register_ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	2425	2524	
==>until there is a working find_lex/store_lex
sub _find_lex {
  my ($self, $symbol) = @_;
  my $return <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	108	212	
==>my $fail_label = Regex::Ops::Tree::mark('FAIL');

sub init_context {
    my ($self, $ctx) = @_;
    $ctx- <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	109	213	
==>my $fail_label = Regex::Ops::Tree::mark('FAIL');

sub init_context {
    my ($self, $ctx) = @_;
    $ctx- <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	28386	28691	
==>r the
extracted string). On failure, the entire string is returned.

=item [2]

The skipped prefix (i.e. the characters before the extracted string).
On failure, the empty string is returned.

=back 

Note that in a list context, the contents of the original input text (the first
argument) are not modifie <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1812	1907	
==>o_parrot, 'parrot' . $PConfig{exe}
);

my $perl6 = File::Spec->catfile(
    $path_to_parrot, qw/ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	6035	6405	
==>n) || ($min > $len);
    }
    return $min || 0;
}

sub maxlen {
    my $op = shift;
    my $max = 0;
    foreach (@{ $op->{args} }) {
        my $len = $_->maxlen();
        return undef if ! defined $len;
        $max = $len if $max < $len;
    }
    return $max;
}

sub startset {
    my $op = shift;
    my %start;
    foreach (@{ $op->{args} }) {
        @start{$_-> <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	45464	45619	
==>r/ /\xA0/ if ASCII and $in_s;
       # (If not in ASCIIland, we can't assume that \xA0 == nbsp.)
       
       # Note that if you apply nbsp_for_S to text, <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	7200	7328	
==>, Bool $negate?) returns Bool {
    if ($todo) {
        Test::diag("  Failed ($todo) test ($?CALLER::CALLER::CALLER::POSITION)") <==
2	/Users/nnunley/parrot/config/init/hints/darwin.pm	1594	1892	
==>hack for rpath_lib in config/inter/libparrot.pm
        rpath                   => "-L",
        libparrot_soname    => "-install_name " .
                               $conf->data->get('lib_dir') .
                               $conf->data->get('slash') .
                               "libparro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756728	756816	
==>ops\"\n  {{\@1}}->vtable->assign_string_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757518	757606	
==>ops\"\n  {{\@1}}->vtable->assign_string_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}} <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49726	49839	
==>cent::Directive(
					'my ($match,@res);
					 ($match,$text,undef,@res) =
						  Text::Balanced::extract_quoteli <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	220	415	
==>(($1 / $2) * 100)
		};
	}
}

print <<HEADING;
NAME                                              DONE      TOTAL     PERCENT
HEADING
foreach (@results) {
	print $_->{'name'} . (' ' x (50 - <==
2	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	142	261	
==>::hints::dec_osf;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    # Tru64
    my $ccflags = $conf->data->ge <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	10693	10820	
==>'!POS'};
#         <rx_stack> = <rx_match>{'!STACK'};
#     }
# END
        @ops = ("sub _rule_$name {", 'my ($rx_mode, $rx_inpu <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13846	14110	
==>e we are
generating.

=cut

sub body
{
    my ($self, $method, $line, $out_name) = @_;

    my $cout = "";
    my $classname = $self->{class};
    my $meth = $method->{meth};
    my $body = $method->{body};
    $body =~ s/^\t/        /mg;
    $body =~ s/^[ ]{4}//mg <==
2	/Users/nnunley/parrot/lib/Test/More.pm	22630	22733	
==>the block.
When the block is empty, delete it.

B<NOTE>: TODO tests require a Test::Harness upgrade else <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	2129	2278	
==>ggregate PMC key
    INTKEY    the argument is an aggregate PMC integer key

The size of the return offset is determined from the op function's
signat <==
2	/Users/nnunley/parrot/config/auto/gc.pm	601	706	
==>nabled.

=back

=cut

package auto::gc;

use strict;
use vars qw($description @args);

use base qw(Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048312	1048414	
==>null global.\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_global(interpreter, NULL, {{\@2}}, ne <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049236	1049338	
==>null global.\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_global(interpreter, NULL, {{\@2}}, ne <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	355	453	
==>d/pmc2c.pl --vtable

Print a class tree for the specified PMCs:

    % perl tools/build/pmc2c.pl -- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	483	612	
==>ass = shift;

  my ($block, $type, $ident, $props, $args) = @_;

  confess "Block (". ref($block) . ") is not!" unless UNIVERSAL:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43955	44349	
==>",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 56,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 732 \"src/ops/core.ops\"\n  Parrot_push_mark(interpret <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	11422	11677	
==>try anything
too funky.

- `cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function will compare `$got` and `$expected` using `&compare_func`. This will
eventually allow Test::More-style cmp <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	2232	2417	
==>/sdl/raw_pixels.pir                     [devel]
    languages/t/harness                             []
    runtime/parrot/dynext/README                    [devel]doc
    runtime/parrot/i <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	100	220	
==>f (\d+) from .+?([\.\w]+)\n$/) {
		push @results, {
			name	=> $3,
			total	=> $2,
			done	=> $1,
			percent	=> int( <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	100	220	
==>f (\d+) from .+?([\.\w]+)\n$/) {
		push @results, {
			name	=> $3,
			total	=> $2,
			done	=> $1,
			percent	=> int( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52147	52507	
==>",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 67,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 815 \"src/ops/core.o <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	5137	5315	
==>, $type );
                push @opcodes, new AssignOp( $parser,
                    'prolog' => 1,
                    'arg1'   => $expr,
                    'result' => $def <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	7628	7764	
==>rr and $out eq $err ) {
        $err = "&STDOUT";
    }

    local *OLDOUT if $out;
    local *OLDERR if $err;

    # Save the old fileha <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7680	7815	
==>rr and $out eq $err) {
        $err = "&STDOUT";
    }

    local *OLDOUT if $out;
    local *OLDERR if $err;

    # Save the old fileha <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	162	292	
==>Ops::List;
use Regex::State;
use strict;
require 'Regex.pm';

sub new {
    my ($proto, %options) = @_;
    my $self = bless \%opti <==
2	/Users/nnunley/parrot/config/auto/memalign.pm	285	383	
==>ign;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

us <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	969	1135	
==>BUG => 1,
    FILE  => $ident->file,
    LINE  => $ident->line
  }, $class;

  $block->push_content($self);

#  printf STDERR "%s: Created new module '%s'.\n", __PACKA <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	42906	43056	
==>S => {
			'END' => 200
		}
	},
	{#State 189
		DEFAULT => -4,
		GOTOS => {
			'block' => 201,
			'chunk' => 57
		}
	},
	{#State 190
		DEFAUL <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	26320	26462	
==>s*(.*)\s*\)\s*{$/) {
      $self->begin_block(undef, $1, $2);
      # TODO
      next;
    }

    #
    # PMC Construction:
    #
    # a = new <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2445	2545	
==>6 pattern, passing the test
if the output produced by the test code matches the C<$expected>
paramete <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3879	3979	
==>6 pattern, passing the test
if the output produced by the test code matches the C<$expected>
paramete <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36657	36797	
==>" => 71,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -67
	},
	{#State 142
		ACTIONS => {
			"-" => 72,
			".." => 71 <==
2	/Users/nnunley/parrot/lib/Test/More.pm	11867	12043	
==>h @nok, $method;
    }

    my $name;
    $name = @methods == 1 ? "$class->can('$methods[0]')" 
                          : "$class->can(...)";
    
    my $ok = $Test->ok( !@no <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	491	720	
==>er = shift; # Required

#  my $namespace = "FILE"; # TODO: Don't we need to do better than this?

  return 1 unless $self->content;

  my $inline = 0;
  my $last_seen = 'sub';

  $compiler->emit(".sub ___MAIN");
  $compiler->inden <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49650	49748	
==>an perl quotelike marker", $aftererror,$line);
				$item = new Parse::RecDescent::Directive(
					' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841197	841583	
==>S" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 954,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	1704	1847	
==>e
			keys
		);

sub dumpq {
	print "Upcoming: $type[0] $syms[0]\n";
	print "Current : $type[1] $syms[1]\n";
	print "Previous: $type[2] $syms[2]\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146825	147261	
==>ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 179,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 98 <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	26205	26325	
==>c;

	if ($ldel eq '/') { $desc = "$ldel$pattern$rdel$mod" }
	else		  { $desc = "m$ldel$pattern$rdel$mod" }
	$desc =~ s/\\ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	27632	27744	
==>head = gen_extract_tagged('<HEAD>','</HEAD>');

	($extracted, $remainder) = $extract_head->($text);


=head1 DESC <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9154	9271	
==>ft;
  
  foreach my $new_code (@_) {
    next unless defined $new_code and length $new_code;
    if(ASCII) {
      # A <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10418	10535	
==>ft;
  
  foreach my $new_code (@_) {
    next unless defined $new_code and length $new_code;
    if(ASCII) {
      # A <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033165	1033262	
==>e 41 \"src/ops/var.ops\"\n    parrot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRIN <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034263	1034360	
==>e 41 \"src/ops/var.ops\"\n    parrot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRIN <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33222	33456	
==>NUMBER' => 36
		},
		GOTOS => {
			'exp' => 100,
			'functioncall' => 31,
			'explist1' => 165,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 118
		ACTIONS => {
			" <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	2536	2672	
==>/\.c/g;
	push @compiled_files, [ $src, $obj ];
    }

    print "** $0: writing parrot build scripts\n";

    ## GCC ##

    print "- min <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	42209	42315	
==>]) unless $func_obj eq 'P0';
  $self->_add_inst('', 'set', ['I0', 0]);        # Pass all args in Px registe <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	3802	3991	
==>[\n\s]*//gm; $fdecl =~ s/[\n\s]*$//gm;
            print Text::Wrap::wrap("    ", "    ", $fdecl) . "\n\n";
        }
    }    
}   

if (%all_errors) {
#    print STDERR "The following C::S <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835274	835528	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "savec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inli <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836026	836280	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "savec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inli <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346196	346701	
==>RS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 404,
                  "ARGS" => [
                              "p",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 148 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const cha <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2208	2351	
==>r example, "foo.bar:baz" becomes start_foo_bar_baz
and end_foo_bar_baz.

See the source for Pod::Simple::Text for an example of using this class <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	35314	35421	
==>}
sub DELETE_SLICE_plus_1 {
    return Del_Slice(@_, 1);
}
sub DELETE_SLICE_plus_2 {
    return Del_Slice(@_ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	1127	1527	
==>d $type;
    
    my $recursive = shift;
    my $ignore = shift;
    my @files = ();
    
    foreach my $file ($self->files())
    {
        next unless $file->is_of_type($type);
        push @files, $file;
    }
    
    if ( $recursive )
    {
        foreach my $dir ($self->directories())
        {
            next if defined $ignore and $dir->name =~ /$ignore/;
            
            push @f <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	3077	3181	
==>->value;
  $left  = $left->compile($compiler);
  $right = $right->compile($compiler);

  $compiler->emit( <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	31082	31203	
==>!) before the substring is extracted.
The final argument specifies the escape character to be used for each
delimiter.

Al <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	25348	25465	
==>out_f);

            my $meth = $c_test_map{$func};
            my $pass = $builder->$meth(slurp_file($out_f), $expect <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	4655	4802	
==>es;
                $file_branch_coverage{$source_file} = $percent;
                next;
            }

            ($percent, $total_branches, $fu <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5882	6013	
==>a single group
        my $group = $class->{flags}{group}
          or next;
        ($group) = keys %$group;
        $pmc_group{$pm <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6093	6224	
==>a single group
        my $group = $class->{flags}{group}
          or next;
        ($group) = keys %$group;
        $pmc_group{$pm <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	4232	4502	
==>r than the HTML version.
            $index_html .= $formatter->html_link(
                $target->relative_path($file->path), 
                $source->relative_path($file->path));
                    
            $index_html .= "<br>\n";
        }
    }
    
    retur <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080944	1081493	
==>=> "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1200,
                  "ARGS" => [
                              "p",
                              "ic",
                              "k"
                            ],
                  "BODY" => "#line 145 \"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1013301	1013672	
==>"ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1131,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 66 \"src/ops/sys.ops\"\n  {{\@1}} = errno;\n  {{+=2}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	11459	11614	
==>( $token->is_end and $token->tagname eq 'head1' ) {
        DEBUG and print "  Found end of head1.  Considering content...\n";
        if($head1_text_conten <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	410	519	
==>output, $desc) = @_;
  
    my $count = $self->{builder}->current_test + 1;

    my $lang_f    = Parrot::Test: <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	448	557	
==>output, $desc) = @_;
  
    my $count = $self->{builder}->current_test + 1;

    my $lang_f    = Parrot::Test: <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	1796	1904	
==>type) = @_;
    my $var = $self->new_local($name, $type);
    push @{ $op->{rxlocals} }, $var;
    return $va <==
2	/Users/nnunley/parrot/config/init/hints/openbsd.pm	163	299	
==>e strict;
use Config;

sub runstep
{
    my ($self, $conf) = @_;

    my $ccflags = $conf->data->get('ccflags');
    if ($ccflags !~ /-pt <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	947	1135	
==>ectory argument, should recursively descend.

=item * Should create descriptive hashes earlier, before files are
filtered. So one can skip, say a binary file, but still have it listed
in th <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	1636	1799	
==>mit("STRING");
		fetch;
		goto MAIN;
	}
	if ( ($cur eq "'") or 
	     ($cur=~/[Rr]/ and $next=~/[Ee]/ and $afternext=~/[Mm]/ ) ) {	# Comments
		append;
		fetch;
		w <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734255	734498	
==>E" => 824,
                  "ARGS" => [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 134 \"src/ops/set.ops\"\n  {{\@1}} = string_to_int(interpreter, {{\ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	52514	52621	
==>ately after it matches.

Hence, the aim of of a call to C<extract_multiple> in a list context
is to split th <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11960	12059	
==>CALL_${CURIC}_LAZY_MOVE_RET_CONT

# Can do a lazy move.
PRE_CALL_${CURIC}_LAZY_MOVE_RET:
${STEMP0} = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1669	1811	
==>ume the programmer wanted to shadow the
  # previous definition.
  #

  if (defined $sym) {
    $self->SYNTAX_ERROR("Redeclaration of identifie <==
2	/Users/nnunley/parrot/lib/Test/More.pm	3029	3185	
==>ed way to do this is to declare a plan when you C<use Test::More>.

  use Test::More tests => $Num_Tests;

There are rare cases when you will not know before <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022797	1023103	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodelocaltime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "funct <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023646	1023952	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodelocaltime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "funct <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	3697	3834	
==>c_flag = 1;
}

my $sym_export = $dynamic_flag ? 'PARROT_DYNEXT_EXPORT' : 'PARROT_API';

my %hashed_ops;

#
# Read the input files:
#

my $ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35021	35123	
==>escent::unexpected
				   = $Parse::RecDescent::lastunexpected;
			}
			last;
		}'.($::RD_NO_TRACE?'':' <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42131	42233	
==>escent::unexpected
				   = $Parse::RecDescent::lastunexpected;
			}
			last;
		}'.($::RD_NO_TRACE?'':' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1427	1630	
==>verse_treelet_bit {
  DEBUG > 2 and print "Handling $_[1] paragraph event\n";
  my $self = shift;
  push @{ $self->{'_currpos'}[0] }, [@_];
  return;
}
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5012	5119	
==>ed relative to the source
directory.

=cut

sub contents_relative_to_source
{
    my $self = shift;
    my $ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3004	3105	
==>ed relative to the source
directory.

=cut

sub contents_relative_to_source
{
	my $self = shift;
	my $ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	4462	4598	
==>less defined $type;
	
	return $self->type eq $type;
}

=item C<check_pod()>

Runs C<Pod::Simple::Checker> on the contents of the file. Ex <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	17093	17226	
==>ude, @files) = @_;
    # help these dumb 'shells' that are no shells
    @files = glob $files[0] if $files[0] eq '*.pmc';

    my %all <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505629	505802	
==>i",
                              "ic"
                            ],
                  "BODY" => "#line 631 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	3439	3583	
==>next));

	return 0;  # Not an operator

}
sub false {
	my($type)=@_;
	if ($type eq "N") {
		return "0.0";
	} else {
		return qq{""};
	}
}
my $eqn <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	3259	3402	
==>gc;
	my $prelen = length($1);
	my $matchpos = $startpos+$prelen;
	my $endpos = pos $$textref;
	return _succeed $wantarray, $textref,
			$matchpo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813657	813915	
==>"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 918,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 557 \"src/ops/set.ops\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	18197	18350	
==>e'}, '~really' => '=for'},
          $target,
        ],
      ;
      
      next;
      
    } elsif($para_type eq '=begin') { #//////////////////////// <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	1744	1834	
==>L $PATHQUOTE" . q[/Users/nnunley/parrot/tools/build/pmc2c.pl] . $PATHQUOTE;

# Actual comma <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	1835	1925	
==>L $PATHQUOTE" . q[/Users/nnunley/parrot/tools/build/pmc2c.pl] . $PATHQUOTE;

# Actual comma <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	174375	174920	
==>" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_num",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	3184	3275	
==>es'));
    $index->append($index_html);
    $index->append(Parrot::Docs::HTMLPage->footer('' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439494	439602	
==>],
                  "BODY" => "#line 104 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440509	440617	
==>],
                  "BODY" => "#line 104 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, { <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	1696	1913	
==>whether by origin or by mutation from a known name
    return $Code2USASCII{$in} # so "65" => "A" everywhere
        || $Latin1Code_to_fallback{$in} # Fallback.
        || $FAR_CHAR; # Fall further back
  }
  
  # Norm <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	1216	1356	
==>+\.[0-9]+)($|\W.*$)}x) {
      push @tokens, Jako::Token->new(
        $file, $line, 'literal', 'N', $1);
      $text = $2;
      next;
    } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900684	901163	
==>AGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1016,
                  "ARGS" => [
                              "s",
                              "i",
                              "i",
                              "s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901702	902182	
==>AGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1017,
                  "ARGS" => [
                              "s",
                              "ic",
                              "i",
                              "s <==
2	/Users/nnunley/parrot/languages/regex/test.pl	3133	3245	
==>= @_;
    open(PIR, ">$filename") or die "create $filename: $!";

    my $ctx = { };
    my $trees = Regex::expr_ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	27223	27360	
==>";

    $out =~ s/^/    /msg;
    return $out;
}


sub _type {
    my $thing = shift;

    return '' if !ref $thing;

    for my $type (qw <==
2	/Users/nnunley/parrot/lib/Test/More.pm	20632	20729	
==>th your plan.
If your plan is C<no_plan> $how_many is optional and will default to 1.

It's perfec <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53242	53330	
==>rse::RecDescent::UncondReject($lookahead,$line,$code);
				$prod and $prod->additem($item <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54951	55039	
==>rse::RecDescent::UncondReject($lookahead,$line,$code);
				$prod and $prod->additem($item <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841321	841611	
==>"i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 954,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 40 \"src/ops/stri <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	21	180	
==>ges/m4/lib/Parrot/Test/M4/PIR.pm 18930 2006-04-24T19:32:28.634218Z bernhard  $

package Parrot::Test::M4::PIR;

use strict;
use warnings;
use 5.006;

use base ' <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10930	11047	
==>ises an exception if the delete fails.

=cut

sub delete
{
    # Use $_[0] so that we can undef the instance in SUPER: <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4764	4881	
==>ises an exception if the delete fails.

=cut

sub delete
{
    # Use $_[0] so that we can undef the instance in SUPER: <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	15301	15405	
==>Library);
    PMC_struct_val(lib) = (void *) $init_func;
    dynop_register(interpreter, lib);
    return <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23698	23798	
==>espace, $rule) = @_;
	
''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Rejecting production<< <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	378	607	
==>::Construct::Expression);

sub new
{
  my $class = shift;
  my ($block, $dest, $ident, @args) = @_;

  confess("Dest (" . ref($block) . ") not Identifer!") unless UNIVERSAL::isa($dest, 'Jako::Construct::Expression::Value::Identifi <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	2688	2810	
==>my ($code, $type, $name, $args, $argdirs, $labels, $flags) = @_;

    my $self = {
        CODE => $code,
        TYPE => $ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	18207	18424	
==>\]*)*) '
				     | \G " ([^"\\]* (?:\\.[^"\\]*)*) "
				     | \G ` ([^`\\]* (?:\\.[^`\\]*)*) `
				     }gcsx) {
			$label = $+;
		}
		else {
			$label = "";
		}
		my $extrapos = pos($$textref);
		$$textref =~ m{.*\n <==
2	/Users/nnunley/parrot/config/init/hints/os2.pm	14	309	
==>) 2005, The Perl Foundation.
# $Id: /parrot/config/init/hints/os2.pm 19593 2006-05-30T02:28:15.110975Z coke  $

package init::hints::os2;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    # This hints file is very specific to a particular os/2 configuration.
    # A more general one w <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	180	279	
==>nguages - Languages documentation section

=head1 SYNOPSIS

    use Parrot::Docs::Section::Languages <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	2592	2699	
==>_files.pl'),
            $self->new_item('', 'tools/dev/mk_manifests.pl'),
            $self->new_item('', ' <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	217	393	
==>ke  $
################################################################################

=head1 TITLE

tools/dev/mk_manifests.pl - Generate MANIFEST.* files for building RPMs

=h <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004107	1004761	
==>",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1121,
                  "ARGS" => [
                              "i",
                              "i",
                              "s",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops/strin <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	3476	3586	
==>separated list of interfaces */
    STRING* isa_str;         /* space-separated list of classes */
    PMC *cla <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77069	77241	
==>+10<length($_[0]))
	{
		my $count = length($_[0]) - $::RD_TRACE;
		return substr($_[0],0,$::RD_TRACE) . "...<+$count>";
	}
	else
	{
		return $_[0];
	}
}

my $lastcontext = ' <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76758	76891	
==>+10<length($_[0]))
	{
		my $count = length($_[0]) - $::RD_TRACE;
		return substr($_[0],0,$::RD_TRACE/2)
			. "...<$count>..."
			. sub <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	25470	25665	
==>ective('if (' .
		($self->{"commitonly"} ? '$commit' : '1') . 
		") { do {$action} unless ".' $_noactions; undef } else {0}',
	        			$self->{"lookahead"},0,$self->describe); 
	$dir->{hashname <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	2299	2459	
==>shes = ();
    my %classes = ();
    my $got_class = 0;
    my $out = '';

    $out = "{\n  package $class;\n  use Carp;\n  sub new {\n";
    $out .= "    my (\$ <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	2016	2099	
==>r *final_destination = new_buffer_header(interpreter);\nPObj_external_SET(final_dest <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	2129	2212	
==>r *final_destination = new_buffer_header(interpreter);\nPObj_external_SET(final_dest <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	31074	31395	
==>\t   \"null caller_ctx for ccont %p\", ccont);\n\t}\n\tparrot_pass_args(interpreter, ctx, caller_ctx,\n\t\tPARROT_OP_get_results_pc);\n    }\n    argc = SIG_ELEMS(signature);\n    {{+=argc + 2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1350	1447	
==>se, this is a subclass of L<Pod::Simple> and inherits all
its methods.)

You can use this class as <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	1447	1562	
==>less ($file =~ /\.[ch]$/);
    my %bad_fdecls;
    
    print STDERR "Scanning $file.. ";
    my $c = new C::Scan 'f <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	3010	3135	
==>elf->blocks) - 1;
}


#
# current_block()
#
# Returns the block on the top of the block stack.
#

sub current_block
{
  my $se <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	3283	3388	
==>ions{arguments} ||= \@ARGV;

    exit unless my @files = get_files( %options );

    set_flags( %options ) <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4651	4767	
==>sts_with_name
{
    my $self = shift;
    my $name = shift;
    
    return -d File::Spec->catdir($self->path, $name) <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	449	577	
==>arrotLibrary => 14,
	ConstParrotLibrary => 15,
	ParrotInterpreter => 16,
	ParrotThread => 17,
	LexPad => 18,
	Timer => 19,
	Point <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6056	6185	
==>$group} }, $pmc;
        $group_libs{$group} ||= {};
        foreach my $lib ( keys %libs ) {
            $group_libs{$group}->{li <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6267	6396	
==>$group} }, $pmc;
        $group_libs{$group} ||= {};
        foreach my $lib ( keys %libs ) {
            $group_libs{$group}->{li <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	337	431	
==>pt::Std;

my ($DIS, @dis, @source, $file, %opt, $DEFVAR, $cur_func, $lambda_count,
   %main_nam <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7862	7954	
==>en;

      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $self->req <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	1924	2097	
==>rbose;
            $self->set_result('yes');

            $conf->data->set(
                gmp     => 'define',
                HAS_GMP => $has_gmp,
            );
        } <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18467	18686	
==>:Construct::Expression::Value::Identifier->new($block, $token);

      $self->require_open_paren;

      my @args = ();

      unless ($self->get(1)->is_close_paren) {
        while (1) {
          push @args, Jako::Cons <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349156	349251	
==>ter, {{\@2}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, \"+<\");\n  /* string_cstring_fr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350158	350253	
==>ter, {{\@2}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, \"+<\");\n  /* string_cstring_fr <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	35432	35536	
==>e real L<...> parsing stuff...
      # "With the ill behavior, with the ill behavior, with the ill behavi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8246	8391	
==>fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg = value($reg);

    my @ops = ($self->popop . " <r <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7899	8025	
==>fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg = value($reg);

    my @ops = ( <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2453	2565	
==>s in ( parenthesis ) did not have extractable descriptions.\n";
    if($show_full) {
	print "Their heads are incl <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	31672	31789	
==>'number') {
          my $item_type = $self->_get_item_type($para);
            # That kills the content of the item i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62611	62854	
==>1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorsoff", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63256	63499	
==>1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorsoff", <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14584	14700	
==>title) { print "  Returing title <$title>\n" }
    else { print "Returning title <>\n" }
  }
  
  return '' unless de <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	23149	23265	
==>title) { print "  Returing title <$title>\n" }
    else { print "Returning title <>\n" }
  }
  
  return '' unless de <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1309	1450	
==>%{shift->{PROPS}};  }


#
# compile()
#

sub compile
{
  my $self     = shift;
  my $compiler = shift; # Required
  my $options  = shift; # Op <==
2	/Users/nnunley/parrot/config/auto/msvc.pm	812	915	
==>l also trigger any hints-file
    # callbacks that depend on knowing whether or not we're using Visual C <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	2105	2218	
==>et('fdecls');
    foreach my $fdecl (@$fdecls) {
        next unless ($fdecl =~ /\n/);
        my ($firstline,$sec <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265906	266141	
==>RGS" => [
                              "i",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 806 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	10367	10569	
==>e=~/STRING|INT|FLO|BARE/) {
			$$optype="N";
			if ($type=~/STRING/) {
				$$optype="S";
				$sym=qq{"$sym"};
			}
			if ($type=~/BARE/) {
				if ($sym=~s/\$$/_string/) {	
					$$optype="S";
				} else { <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	321	543	
==>ll the PMCs.

=head2 Class Methods

=over

=cut

package Parrot::Docs::Section::PMCs;

use strict;
use warnings;

use Parrot::Distribution;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cu <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5087	5234	
==>$self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  ";
        if ( exists $op->{result} and scalar( @{ <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6119	6266	
==>$self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  ";
        if ( exists $op->{result} and scalar( @{ <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	3773	3923	
==>= 1 if $is_branch;
    }

    my $enternative;

FINDENTERN:
    foreach my $cur_op (@$Parrot::OpLib::core::ops) {
	if($cur_op->full_name eq 'enternativ <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	5555	5707	
==>me - $expl
DESC

END

        $counter++;
    }

    return $string;
}

##
## run_tests(@globs)
##
## Run the tests.
##
sub run_tests {
    my (@files) = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1277	1364	
==>(...)

=item $token->is_tag(I<somestring>) or $token->is_tagname(I<somestring>)

These a <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1707	1794	
==>(...)

=item $token->is_tag(I<somestring>) or $token->is_tagname(I<somestring>)

These a <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	4131	4322	
==>BUG_VERSION
#endif

HEADER

# currently unused true const strings
sub output_string {
  my ($text, $line) = @_;

  if (exists $known_strings{$text}) {
    <<"DATA";
#define static_string_${lin <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	882	1039	
==>$self->new_section('APL', 'apl.html', '', 'languages/APL'),
        $self->new_section('BASIC', 'basic.html', '', 'languages/BASIC'),
        $self->new_secti <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854504	854833	
==>> ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 970,
                  "ARGS" => [
                              "s", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61324	61594	
==>1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorson",
                  "FLAGS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61967	62237	
==>1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorson",
                  "FLAGS" = <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21384	21521	
==>primary' => 28
		}
	},
	{#State 66
		ACTIONS => {
			'NAME' => 120
		}
	},
	{#State 67
		ACTIONS => {
			"-" => 24,
			'NAME' = <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	1756	1903	
==>= $ch;
    } else {
      push @$tokref,$token;
      $token = $ch;
    }
  }
  return [grep { /\S/ } @$tokref];
}

1;
__END__

=head1 NAME

Scheme: <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	6531	6745	
==>can ever hold at a given
# point in the input string. (Return value is conservative: this will
# return false if it is not sure.)
sub disjoint {
    my $op = shift;

    # For now, return true iff all subexpressions <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	213	409	
==>->{rx_match} ||= '$rx_match';
    $ctx->{rx_stack} ||= '$rx_stack';
    $ctx->{rx_tmp} ||= '$rx_tmp';
    $ctx->{rx_pos} ||= '$rx_pos';
    $ctx->{rx_len} ||= '$rx_len';
    $ctx->{rx_input} ||= '$ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6522	6653	
==>ce another pass by setting Exchange to TRUE.
   FOR I = 2 TO Max
      IF A$(I-1) > A$(I) THEN
         Exchange = TRUE
         B$= <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16175	16306	
==>ce another pass by setting Exchange to TRUE.
   FOR I = 2 TO Max
      IF A$(I-1) > A$(I) THEN
         Exchange = TRUE
         B$= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015172	1015595	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "err",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1013021	1013412	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "err",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" = <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4756	4856	
==>it off into a register.
	if (!$dest_reg) {
		$pir .= <<'PIR'
# Get type.
${ITEMP0} = elements ${STYPE <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	1872	2000	
==>nk($path)>

Returns the HTML link for the section.

=cut

sub html_link
{
    my $self = shift;
    my $path = shift;
    
    if <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632652	632798	
==>);\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633694	633840	
==>);\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3277	3564	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub do_pod_link {
  my($self, $link) = @_;
  my $to = $link->attr('to');
  my $section = $link->attr('section');
  return undef unless(  # should never happen
    (defined $to and length $to) or
    (defined $section and l <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	401	552	
==>C::rx_beg') {
        return $self->convert($tree, $ctx);
    } else {
        return op('scan' => [ $self->convert($tree, $ctx) ]);
    }
}

sub conver <==
2	/Users/nnunley/parrot/config/auto/format.pm	400	508	
==>re::Step;

$description = 'Figuring out what formats should be used for sprintf';

@args = ();

sub runstep
{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886596	887028	
==>i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1003,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\ <==
2	/Users/nnunley/parrot/Configure.pl	6665	6816	
==>the given type for opcodes
   --ops=(files)        Use the given ops files
   --pmc=(files)        Use the given PMC files

   --cgoto=0            Don' <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	4136	4269	
==>|HP-UX/) { 
    $nm_opt = '-p';
} elsif ($^O eq 'aix'     && $nm_try =~ /illegal option/) {
    $nm_opt = '-B';
} elsif ($^O eq 'irix' <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	7841	7937	
==>this extension under the terms of the GNU or Artistic
licenses.

=head1 AUTHORS

The original MD5 <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2187	2301	
==>desc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2582	2696	
==>desc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test <==
2	/Users/nnunley/parrot/examples/benchmarks/fib.pl	77	180	
==>mples/benchmarks/fib.pl 19601 2006-05-30T13:32:26.641316Z coke  $

=head1 NAME

examples/benchmarks/fib. <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	488	588	
==>er

=cut

package Parrot::Docs::HTMLPage;

use strict;
use warnings;

=item C<header($title, $navigat <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	8324	8577	
==>en't opcodes but calced at compile-time
    #
    
    for(@{$ops->{OPS}}) {
        if (defined $fixed{$_->full_name}) {
            $n = $fixed{$_->full_name};
        }
        elsif ($seen{$_->full_name}) {
            printf OP "%-31s%4d\n", $_->ful <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207872	208346	
==>se_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 245,
                  "ARGS" => [
                              "p",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 401 \"src/o <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	15038	15218	
==>s' => 52
		}
	},
	{#State 33
		ACTIONS => {
			'CHAR' => 34,
			">" => 53
		}
	},
	{#State 34
		DEFAULT => -27
	},
	{#State 35
		DEFAULT => -24
	},
	{#State 36
		ACTIONS => {
			"^" <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	4766	5100	
==>fig/gen/makefiles/lisp.in' => 'languages/lisp/Makefile',
        commentType                    => '#',
        replace_slashes                => 1
    );
    genfile(
        'languages/lua/config/makefiles/root.in' => 'languages/lua/Makefile',
        commentType                   => '#',
        replace_slashes               => 1, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	5923	6030	
==>m I closer than n away from the end of the string?"
#
# After this operation, /abc/ compiles to
#
#  check(3 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	174694	175054	
==>se_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 209,
                  "ARGS" => [
                              "p",
                              "p" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	3011	3120	
==>($self);

  return $self;
}


#
# ACCESSORS:
#

# block handled by superclass?
# access handled by superclass? <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636682	636859	
==>,
                              "sc"
                            ],
                  "BODY" => "#line 107 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637801	637978	
==>,
                              "sc"
                            ],
                  "BODY" => "#line 107 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= in <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	51862	52023	
==>item[0]}},0,-1);
				}
			}

			elsif ($grammar =~ m/$REJECTMK/gco)
			{
				_parse("an reject marker", $aftererror,$line);
				$item = new Parse::RecDescent::Unc <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	2434	2534	
==>re is a working find_lex/store_lex
sub _find_lex {
  my ($self, $symbol) = @_;
  my $return = $self-> <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	6952	7111	
==>cong'     , 8773,
 'asymp'    , 8776,
 'ne'       , 8800,
 'equiv'    , 8801,
 'le'       , 8804,
 'ge'       , 8805,
 'sub'      , 8834,
 'sup'      , 8835,
 ' <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	14970	15146	
==>ds
    });

    struct( timeval => [
        tv_secs  => '$',
        tv_usecs => '$',
    ]);

        # create an object:
    my $t = new rusage;

        # $t->ru_utime and $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38658	38858	
==>l' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 152
		DEFAULT => -91
	},
	{#State 153
		DEFAULT => -88
	},
	{#State 154
		D <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	9027	9124	
==>'', 'returncc');
  $self->_add_inst("DONE_$label");

  $self->{regs} = pop @{$self->{frames}};
  $ <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	170	270	
==>armingly similar to the generated subs in Parrot::Test.
Perhaps someone can do a better job of delega <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	268	368	
==>armingly similar to the generated subs in Parrot::Test.
Perhaps someone can do a better job of delega <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516361	516684	
==>",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 595,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 729 \"src/ops/ <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	11129	11230	
==>lanced($code);

    my $lineno  = 1 + count_newlines($pre);
    $classblock = substr($classblock, 1,-1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095202	1095413	
==>ommand(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095897	1096108	
==>ommand(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	73102	73311	
==>ethod: $AUTOLOAD\n" unless ref $_[0];
	my $class = ref($_[0]) || $_[0];
	my $text = ref($_[1]) ? ${$_[1]} : $_[1];
	$_[0]->{lastlinenum} = $_[2]||_linecount($_[1]);
	$_[0]->{lastlinenum} = _linecount($_[1]);
	$ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	8347	8465	
==>urn sort keys %{ $this->{'accept_targets'} } if wantarray;
  return;
}

#---------------------------------------------- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157077	157374	
==>dr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 19 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157982	158279	
==>dr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 19 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11093	11327	
==>ION, STACK_CLEANUP_NULL);\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11882	12116	
==>ION, STACK_CLEANUP_NULL);\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_ <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	3099	3190	
==>, $expected);
    Test::proclaim($test, $desc, $todo, $got, "&compare_func.name() $expected" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58271	58646	
==>RS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 75,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 874 \"src/ops/core.o <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	3486	3617	
==>ci_S(interpreter, &st, return_data);",
       v => "",
       t => "final_destination = string_from_cstring(interpreter, return_data <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1499	1633	
==>pbcc: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
        return "return (0);"
    }
    else
    {
        return "if ((opcode <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2024	2157	
==>pbcc: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
        return "return (0);"
    }
    else
    {
  	    return "if ((opcode <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	1149	1302	
==>)
        {
            bless $instance_for_path{$path}, $self;
        }
        
        return $instance_for_path{$path};
    }
    
    my ($volume, $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	4644	4746	
==>e_arrayref'}}), " items left in it.\n";

      DEBUG > 3 and print "  Fetching ", Pod::Simple::MANY_LIN <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2468	2609	
==>me('src/ops'),
        $self->directory_with_name('src/packfile'),
    ;
}

=item C<c_source_file_with_name($name)>

Returns the C source file <==
2	/Users/nnunley/parrot/config/auto/msvc.pm	551	653	
==>onf) = (shift, shift);

    my $verbose = $conf->options->get('verbose');

    cc_gen("config/auto/msvc <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	15950	16110	
==>AULT => -34
	},
	{#State 41
		ACTIONS => {
			"." => 60
		}
	},
	{#State 42
		DEFAULT => -18
	},
	{#State 43
		DEFAULT => -16
	},
	{#State 44
		DEFAULT => -20
	} <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	2943	3084	
==>->c_pair_item('', 'global_setup'),
            $self->c_item(
                'Parrot Interpreter: Callback Function Handling; Creation and De <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5975	6071	
==>m++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		($a1,$a2,$ot1,$ot2)=($a2,$a1,$ot2,$ot1);
		return( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3828	3964	
==>nt module has no fnlib property either!")
        unless $module_props{fnlib};

      $fnlib = $module_props{fnlib}->value;
    }

    my <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6492	6628	
==>nt module has no fnlib property either!")
        unless $module_props{fnlib};

      $fnlib = $module_props{fnlib}->value;
    }

    my <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101809	101928	
==>30 \"src/ops/bit.ops\"\n  string_bitwise_not(interpreter, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102580	102699	
==>30 \"src/ops/bit.ops\"\n  string_bitwise_not(interpreter, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28029	28174	
==>call post_op and append code it generates.
		my $post_op = $srm->post_op($rule->{'pop'}, $rule->{'push'});
		$pir .= "### post_op\n";
		$pir .= su <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13957	14176	
==>e block and then pop it back off. It will be in the
      # parent block's content array, and it will have gotten its prefix, etc.
      # correct by virtue of initializing itself based on its peer block's info
      # ( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	9189	9344	
==>p) = @_; $op->{args}->[1]->dfa_safe() }

# Rule calls are totally unpredictable -- for now. I think some static
# analysis might not be too hard.
package Re <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2995	3098	
==>or computing information that may be useful in
# optimizing generated regular expressions. It is not nee <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27692	27874	
==>l' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 85
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	178	282	
==>es

=head1 DESCRIPTION

Determines the sizes of various types.

=cut

package auto::sizes;

use strict;
u <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34097	34220	
==>urn ret_val;";
    }
    # I think that these will be out by one - NWC
    my $l = $self->line_directive($line, "sharedref.c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	817685	817836	
==>LS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "N <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818463	818614	
==>LS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "N <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7101	7221	
==>@ops;
}

sub output_pushindex {
    my ($self, $reg) = @_;
    $reg = value(defined($reg) ? $reg : 'pos');
    return $se <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6743	6863	
==>@ops;
}

sub output_pushindex {
    my ($self, $reg) = @_;
    $reg = value(defined($reg) ? $reg : 'pos');
    return $se <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	494	709	
==>Box::stringify_lol;
}
sub stringify {
  goto &Pod::Simple::BlackBox::stringify_lol;
}

sub new {
  my $class = shift;
  $class = ref($class) || $class;
  my $new;
  if(@_ == 1) {
    if (!ref($_[0] || '')) { # most c <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53154	53270	
==>d $rule->addautoscore($1,$self)
				      or  _no_rule($code,$line);

				$item = new Parse::RecDescent::UncondReject <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	7971	8128	
==>p.
    goto loop_two
loop_one_end:
    # if we get this far, there was no match.
    push result, not_found

    goto loop_two 
loop_two_end:

    .return (re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	626350	626562	
==>((interface_f)lru->f.real_function)(interpreter, sig_bits, args);\n    {{=pc}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	174222	174590	
==>/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_STRCMP) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	4866	5024	
==>ABLE_${uc_meth}_METHNAME \"__$entry->[1]\"
EOM

    }
    $macros .= <<"EOM";
/* &end_gen */

EOM

    # finally the name mapping
    $macros .= <<"EOM";
/*
 * <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	18193	18358	
==>ight not have a no-argument constructor
       * "recursive" data structures didn't work well:
                 package Person;
                 struct { mother => 'P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61465	61736	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorson",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62108	62379	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorson",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inl <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	21749	21864	
==>ss_init} ?
                   $self->{has_method}{class_init} : -1;
    my $class_init_code = $n >= 0 ? $self->{meth <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	251	347	
==>th
logic for C<Parrot::IO::File> and C<Parrot::IO::Directory>.

Instances created with C<new()> a <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2706	2844	
==>twise ops on integers") unless UNIVERSAL::isa($dest_type, 'Jako::Construct::Type::Integer');
  $self->SYNTAX_ERROR("Can only do bitwise ops <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480569	480716	
==>i"
                            ],
                  "BODY" => "#line 446 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    rea <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481572	481719	
==>i"
                            ],
                  "BODY" => "#line 446 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    rea <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584700	584933	
==>subclass(interpreter, class, NULL);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585775	586008	
==>subclass(interpreter, class, NULL);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	757	846	
==>clude "dumpstack.pasm"
.include "tokenize.pasm"
.include "basicvar.pasm"
.include "basic.p <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	285	403	
==>CRIPTION

A documentation section describing Parrot's configuration system.

=head2 Class Methods

=over

=cut

package <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	776	870	
==>/usr/bin/gcc-4.0 -c];
our $LD = qq[c++];
our $LDFLAGS = qq[-L/opt/local/lib -L/usr/local/lib -f <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	780	874	
==>/usr/bin/gcc-4.0 -c];
our $LD = qq[c++];
our $LDFLAGS = qq[-L/opt/local/lib -L/usr/local/lib -f <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	906	1006	
==>red by the ops.

=cut

sub defines
{
    return <<END;
#define REL_PC ((size_t)((opcode_t*)cur_opcode <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1036	1136	
==>red by the ops.

=cut

sub defines
{
    return <<END;
#define REL_PC ((size_t)((opcode_t*)cur_opcode <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490808	491077	
==>{{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inc",
                  "FLAGS" => ":base_core <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	491429	491698	
==>{{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inc",
                  "FLAGS" => ":base_core <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	795	1005	
==>w($name, $text, @contents)>

Returns a new group. 

C<$name> and C<$text> are required, though the text can be an empty
string. C<@contents> is one or more C<Parrot::Docs::Item> instances, or 
relative paths.

= <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	38723	38906	
==>ty(@section_name), "\n";
          }

          $section_name = \@section_name;
          last;
        }
      }

      # Turn L<"Foo Bar"> into L</Foo Bar>
      if(!$section_name an <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	1814	1938	
==>e @src");
}

sub clean {
    print "** $0: removing files in miniparrot directory\n";
    find(sub {
	     return if ($File:: <==
2	/Users/nnunley/parrot/examples/benchmarks/stress.pl	509	637	
==>();
}

sub buildarray {
    my @foo;
    foreach (1..10000) {
	$foo[$_] = $_;
    }
    return \@foo;
}

=head1 SEE ALSO

F<examp <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	2133	2241	
==>ll do what you mean (fail if stuff is empty)

=cut

sub ok ($;$) {
    $Test->ok(@_);
}


=back

Test::Simple <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214944	215089	
==>"ic"
                            ],
                  "BODY" => "#line 455 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215885	216030	
==>"ic"
                            ],
                  "BODY" => "#line 455 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	4412	4590	
==>textref) unless @match;

	return _succeed ( $wantarray, $textref,
			  $match[2], $match[5]+2,	# MATCH
			  @match[8,9],			# REMAINDER
			  @match[0,1],			# PREFIX
			);
}

sub _m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	703701	703904	
==>",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@ <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	11080	11202	
==>extern = vtable_num($1);
            #print $op->full_name .": $jit_func $extern\n";
        }
        # *) $X->vtable->{vt <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	12053	12232	
==>);
    my @ops;
    if (defined $name) {
        push @ops, "<rx_match>['$name'] = $uid";
    }
    return (@ops,
            "<rx_tmp> = $uid\['!RESULT']",
            "unless <rx <==
2	/Users/nnunley/parrot/examples/benchmarks/stress.pl	161	436	
==>chmarks/stress.pl - GC stress-testing

=head1 SYNOPSIS

    % time perl examples/benchmarks/stress.pl

=head1 DESCRIPTION

Creates 50 arrays with 10000 elements each.

=cut

my @arr;
foreach (1..10) {
    $arr[$_] = buildarray();
}

my @arr1;
foreach (1..20) {
    $arr1[$_] = <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	6073	6250	
==>\[TAB\]/g;
            warning($file, $line, "Tab character in source: $_\n");
        }
    }
}


sub check_cpp_indents {
    my ($file, $source) = @_;

    # check for C prepro <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	41021	41144	
==>ref.c");
    return <<EOC;
$l
$decl {
    SLOTTYPE *attrib_array = PMC_data(pmc);
    PMC *attr = get_attrib_num(attrib_arra <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	67329	67516	
==>$item = new Parse::RecDescent::Subrule($name,
								       $lookahead,
								       $line,
								       $desc,
								       $matchrule,
								       $argcode);
	 
				$prod and $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527084	527384	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527837	528137	
==>{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAG <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	13027	13141	
==>_var name=timestamp></td>
			<td class="leftsep"><tmpl_var name=harness_args></td>
            <td class="leftsep n <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	4264	4371	
==>ode"]= \$P0
	\$P1["step"]= 1   # Turn on stepping mode
	\$P0=new .PerlHash
	\$P1["break"]= \$P0  # Breakpoin <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	48052	48431	
==>nd-codes
          (?:
            [^A-Z\ >]+
            |
            (?:
              [A-Z](?!<)
            )
            |
            (?:
              \ (?!>)
            )
          )+
        )
      )
    /xgo
  ) {
    DEBUG > 4 and print "\nParagraphic tokenstack = (@stack)\n";
    if(defined $1) {
      if(defined $2) {
        DEBUG > 3 and print "Found complex s <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1164	1257	
==>est::slurp_file($out_f);
        $pass =$self->{builder}->is_eq( Parrot::Test::slurp_file($out <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1205	1298	
==>est::slurp_file($out_f);
        $pass =$self->{builder}->is_eq( Parrot::Test::slurp_file($out <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2552	2678	
==>,
 '/head4'  => "\n}\\par}\n",
   # wordpad borks on \tc\tcl1, or I'd put that in =head1 and =head2

 'item-bullet'  => "\n{\\p <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	2537	2630	
==>delimiter value followed by a list of C<key => value> pairs and
returns a L<Parrot::Configure: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	14469	14723	
==>ock($loop) if defined $cont;
      }
      elsif ($peer_block->kind eq 'continue') {
        if (defined $cont) {
          $self->SYNTAX_ERROR("No more than one continue block allowed.");
        }
      }

      #
      # 'if' blocks:
      #
      # Co <==
2	/Users/nnunley/parrot/languages/javascript/bootstrap.pm	516	703	
==>.__defineProperty__ = function (a,b,c,d,e) {
	};
	debug(eval(snarf('jsdefs.js')));
	debug(eval(snarf('jsparse.js')));
	debug(eval(snarf('js.js')))
!);
use Data::Dumper;
print Dumper($rval) <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	6312	6485	
==>o memory. This is a todo.

=back

=head1 SEE ALSO

L<Digest::MD5>

L<md5sum(1)>

RFC 1321

=head1 COPYRIGHT

This library is free software; you can redistribute it and/or
mod <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	5659	5753	
==>tring" defStyleNum="dsString" color="#FF6C6C" selColor="#FF6C6C" bold="0" italic="0" />
      < <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	442	572	
==>o the @*INC, but do not allow duplicates
        @*INC.unshift($path) unless $path eq any(@*INC);
    }
}

# I am purposfully leavi <==
2	/Users/nnunley/parrot/config/init/optimize.pm	375	468	
==>ize;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540802	541146	
==>}} = b<<p;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542054	542398	
==>}} = b<<p;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":a <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18175	18263	
==>_label();
	push @{$code{$seg}->{code}}, "\tgoto $labels{$syms[CURR]}\t# Goto $syms[CURR]\ <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	3941	4074	
==>all_errors) {
#    print STDERR "The following C::Scan parse errors occurred.\nYou can generally ignore them:\n";
#    foreach (sort k <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547586	547851	
==>> 0,
                  "NAME" => "fact",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548492	548757	
==>> 0,
                  "NAME" => "fact",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	411	523	
==>= shift;
    my $distance = shift || 1;
    return "re_advance P0, $distance";
}

sub output_onfail {
    my ($se <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82569	82850	
==>"inline",
                  "CODE" => 103,
                  "ARGS" => [
                              "p",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 1196 \"src/ops/core.ops\"\n  internal_ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76733	76834	
==>ACE>1
	    && $::RD_TRACE+10<length($_[0]))
	{
		my $count = length($_[0]) - $::RD_TRACE;
		return sub <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77044	77145	
==>ACE>1
	    && $::RD_TRACE+10<length($_[0]))
	{
		my $count = length($_[0]) - $::RD_TRACE;
		return sub <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	2549	2653	
==>ave it in multiple times)

   Not doing this is a good way to introduce bizarre heisenbugs, so
   just do <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	1291	1430	
==>=item C<CPrederef>

Create the predereferenced run loop.

=back

=head2 Options

=over 4

=item C<--help>

Print synopsis.

=item C<--dynami <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	5257	5386	
==>f->{Exported_To};
}

=item B<plan>

  $Test->plan('no_plan');
  $Test->plan( skip_all => $reason );
  $Test->plan( tests => $num_t <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	28960	29183	
==>ree::rule';

    my (undef, @ops) = $self->rewrite($tree, undef);

#    return { lastback => $back, code => \@ops };
    return { code => \@ops };
}

our $call_uid;
sub rewrite_call {
    my ($self, $op, $name, $capture, $la <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	18386	18505	
==>for this...
     if ($tree->{name} eq 'scan' && $name ne 'default') {
         $tree = $tree->{args}->[0];
     }
     m <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2296	2407	
==>sub end_head3       { $_[0]->emit_par(-2) }
sub end_head4       { $_[0]->emit_par(-1) }
sub end_Para        { $_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1864	1975	
==>sub end_head3       { $_[0]->emit_par(-2) }
sub end_head4       { $_[0]->emit_par(-1) }
sub end_Para        { $_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	5359	5474	
==>ib} ? $props{oplib}->value : 'CORE'; # TODO: We should make sure its a string, somewhere.
    my $op    = $props{op} <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	2067	2170	
==>ned $_[0];
	return 0 if $funcname and $funcname eq $_[0];  # We're processing this, don't count!
	if (gr <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	1844	2048	
==>ite rice (whether plain,
    basmati rice, jasmine rice, or even a mild pilaf)

In a blender or food processor, puree the onions, tomatoes, tomatillos,
and ginger root.  You can even do it with a Braun han <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	8813	8909	
==>s;
}

=back

=head1 SEE ALSO

=over 4

=item F<tools/build/jit2c.pl>

=item F<tools/build/pmc2c.p <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	1123	1265	
==>* interpreter,
                                           void** prederef_addr)
{
    INTVAL offset_in_ops;
    if (prederef_addr == NULL) retu <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6105	6208	
==>quire_type);

      $self->INTERNAL_ERROR("Could not determine type.") unless defined $type;

      $sel <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	4287	4395	
==>nclude/parrot/extend.h);

for my $h (@H) {
    if (open(H, $h)) {
	while (<H>) {
	    if (/^\w+\s+(Parrot_\w+ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	51264	51459	
==>k($text, '{}E<lt>E<gt>')> to extract the code
within the C<E<lt>defer:...E<gt>> directive, but there's a problem.

A deferred action like this:

                        <defer: {if ($count>10) {$c <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	7394	7510	
==>urn (
            bless($self->{_label_comments}, 'LABEL_COMMENTS'),
            map { ($_->{label} ? ($_->{label}) : <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973498	973997	
==>s",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1094,
                  "ARGS" => [
                              "i",
                              "ic",
                              "s", <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	5371	5478	
==>ogenerated file, created by F<$0>.

    It contains Parrot version info, a preamble for inclusion in C code, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	283	393	
==>tput_fh'} ||= *STDOUT{IO};
  $new->accept_codes('VerbatimFormatted');
  return $new;
}

#@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	282	392	
==>tput_fh'} ||= *STDOUT{IO};
  $new->accept_codes('VerbatimFormatted');
  return $new;
}

#@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1521	1636	
==>Thispara'} = '' }
sub start_head4 {  $_[0]{'Thispara'} = '' }

sub start_Verbatim    { $_[0]{'Thispara'} = ''   }
su <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1051	1166	
==>Thispara'} = '' }
sub start_head4 {  $_[0]{'Thispara'} = '' }

sub start_Verbatim    { $_[0]{'Thispara'} = ''   }
su <==
2	/Users/nnunley/parrot/config/auto/bc.pm	99	253	
==>15.110975Z coke  $

=head1 NAME

config/auto/bc.pm - Check whether GNU bc works

=head1 DESCRIPTION

Determines whether GNU bc, the basic calculator, exist <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474773	475138	
==>i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 544,
                  "ARGS" => [
                              "n",
                              "nc",
                              "n"
                            ],
                  "BODY" => "#line 403 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4038	4145	
==>Missing mandatory parameter '".lc($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _DBLo <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3835	3934	
==>Missing mandatory parameter '".lc($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _DBLo <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6081	6216	
==>xists($$actions{ACTIONS}{$$token})
                    ?   $$actions{ACTIONS}{$$token}
                    :   exists($$actions{DEFAUL <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5793	5926	
==>xists($$actions{ACTIONS}{$$token})
                    ?   $$actions{ACTIONS}{$$token}
                    :   exists($$actions{DEFAUL <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	12773	12893	
==>def and nothing else
        my $test = defined $got || defined $dont_expect;

        $self->ok($test, $name);
        $ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	13217	13337	
==>def and nothing else
        my $test = defined $got || defined $dont_expect;

        $self->ok($test, $name);
        $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291226	291733	
==>AME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 339,
                  "ARGS" => [
                              "i",
                              "nc",
                              "n"
                            ],
                  "BODY" => "#line 940 \"s <==
2	/Users/nnunley/parrot/languages/dotnet/tools/benchmark.pl	36	153	
==>TDERR;

foreach $srm ('Stack', 'Register', 'OptRegister') {
	print "With SRM $srm\n";
	`nmake clean`;
	`perl Conf <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	6814	6952	
==>rder things), and all
    # of those integers are different.
    my %start;
    foreach my $subop (@{ $op->{args} }) {
        my @subop_st <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	8278	8389	
==>self->{'Tagmap'}{"/$tagname"} || next;
      --$dont_wrap if $tagname eq 'Verbatim' or $tagname eq 'X';

    # - <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015089	1015312	
==>terpreter, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015913	1016136	
==>terpreter, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1977	2078	
==>m = $block->find_symbol($self->name);

  #
  # If the identifier is already defined at this lexical sc <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1724	1825	
==>m = $block->find_symbol($self->name);

  #
  # If the identifier is already defined at this lexical sc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847840	848304	
==>e_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 962,
                  "ARGS" => [
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 78 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@1}}, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490078	490193	
==>"BODY" => "#line 517 \"src/ops/math.ops\"\n  {{\@1}} = floor({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7132	7226	
==>eedme;
		#$syms[CURR]=~s/^\n|\n$//gm;
		push @{$code{$seg}->{code}}, "\t#\n\t# User-included as <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443637	443879	
==>tch_p_psp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444652	444894	
==>tch_p_psp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	23901	24038	
==>my $ldel    = $_[0];
	my $rdel    = $_[1];
	my $pre     = defined $_[2] ? $_[2] : '\s*';
	my %options = defined $_[3] ? %{$_[3]} : ();
	my <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	3047	3239	
==>. (join ' ', @obj_files) . "\n";
    close(F);
}


############################################################################
sub run_command {
    my ($command) = @_;

    print "- $command\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627508	627781	
==>preter, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628652	628925	
==>preter, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	21446	21555	
==>$rp $cmt$isnot
EOC
	}
	print <<EOC;
	$pres = new .Boolean
	$pres = $res # ugly
EOC
	push @stack, [-1, $pres, ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	639074	639230	
==>ACCESS,\n            \"No set_args with instantiate\");\n  }\n  sig = CONTEXT(interpreter->ctx)->constants[arg_op[1]]->u.key;\n  ASSERT_SIG_PMC(sig);\n  if ( <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8938	9074	
==>:force_todo_test_junction = undef;
    $Test::testing_started = 0;
}

END { Test::test_ends() }

=kwid

= NAME

Test - Test support modul <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979145	979572	
==>s",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1099,
                  "ARGS" => [
                              "i" <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8941	9135	
==>/ 
GG,$a,$b,$c,$d,$_[5],5,0xf61e2562,/* 17 */
GG,$d,$a,$b,$c,$_[10],9,0xc040b340,/* 18 */
GG,$c,$d,$a,$b,$_[15],14,0x265e5a51,/* 19 */
GG,$b,$c,$d,$a,$_[4],20,0xe9b6c7aa,/* 20 */
GG,$a,$b,$c,$d,$ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16994	17089	
==>);
    $self->_add_inst ('', 'set',[$pair.'[0]',$item]);
    $self->_add_inst ('', 'set',[$pair. <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	15564	15678	
==>l_pkg = $builder->exported_to() || '';
            # die Dumper( $code, $expected, $desc, \%extra, $extra{todo}, $c <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	18115	18229	
==>l_pkg = $builder->exported_to() || '';
            # die Dumper( $code, $expected, $desc, \%extra, $extra{todo}, $c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48638	48826	
==>_CLEAR(interpreter, PARROT_BOUNDS_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49428	49616	
==>_CLEAR(interpreter, PARROT_BOUNDS_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	31827	31947	
==>rray is the empty string, the second is the complete
original text, and the prefix returned in the third element is an
em <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327133	327386	
==>, {{\@1}}, (INTVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327935	328188	
==>, {{\@1}}, (INTVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653501	653599	
==>eal_exception(interpreter, resume, METH_NOT_FOUND,\n            \"Method '%s' not found\", string_t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654662	654760	
==>eal_exception(interpreter, resume, METH_NOT_FOUND,\n            \"Method '%s' not found\", string_t <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32281	32391	
==>lf->{class}, $method, 0);
    # I think that these will be out by one - NWC
    my $l = $self->line_directive($ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40903	41013	
==>lf->{class}, $method, 0);
    # I think that these will be out by one - NWC
    my $l = $self->line_directive($ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	22364	22502	
==>mmenting out a
block of tests, is it's like having a programmatic todo list.  You know
how much work is left to be done, you're aware of wh <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561929	562025	
==>_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", {{\@3}});\n  } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563013	563109	
==>_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", {{\@3}});\n  } <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	961	1179	
==>I->url(-path => 1) =~ /html$/) {
	    print $CGI->header;
	    my $file = $CGI->url(-absolute => 1, -path => 1);
	    my $basehttpdir = BASEHTTPDIR;
	    $file =~ s!^$basehttpdir!!;
	    die "Invalid File"
		if $file =~ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	557	719	
==>2 Functions

=over 4

=cut

package Parrot::Configure::Step;

use strict;
use warnings;

use base qw( Exporter );

use Carp;
use File::Basename qw( basename );
use <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	326	472	
==>fail P0';
}

############### SIMPLE OUTPUT ##############

sub output_advance {
    my ($self, $distance, $failLabel) = @_;
    $failLabel = $self- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584638	584739	
==>to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, NULL);\n  { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585713	585814	
==>to_cstring( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, NULL);\n  { <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1246	1348	
==>temp_pmc();
    $compiler->emit("  $pmc_reg = new $pmc_type");
    $compiler->emit("  $pmc_reg = $ident <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1240	1342	
==>temp_pmc();
    $compiler->emit("  $pmc_reg = new $pmc_type");
    $compiler->emit("  $pmc_reg = $ident <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742722	742820	
==>Y" => "#line 174 \"src/ops/set.ops\"\n  {{\@1}} = string_from_int(interpreter, {{\@2}});\n  {{+=3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743488	743586	
==>Y" => "#line 174 \"src/ops/set.ops\"\n  {{\@1}} = string_from_int(interpreter, {{\@2}});\n  {{+=3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115796	116355	
==>> ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 144,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 209 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} << {{\@3}};\n  {{+=4}};\n",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581623	581924	
==>nction",
                  "CODE" => 663,
                  "ARGS" => [
                              "p",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 289 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_loo <==
2	/Users/nnunley/parrot/lib/Test/More.pm	33008	33373	
==>dding Test::More

Sometimes the Test::More interface isn't quite enough.  Fortunately,
Test::More is built on top of Test::Builder which provides a single,
unified backend for any test library to use.  This means two test
libraries which both use Test::Builder B<can be used together in the
same program>.

If you simply want to do a little tweaking of how the tests <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	120	268	
==>t::M4::PIR;

use strict;
use warnings;
use 5.006;

use base 'Parrot::Test::M4';
use Data::Dumper;

our $VERSION = 0.01;

sub get_out_fn {
    my $sel <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8389	8541	
==>hen ";

                $$check eq 'ERROR'
            or  do {
#DBG>				$debug & 0x04
#DBG>			and	print STDERR 
#DBG>				    "go to state $$states <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8009	8155	
==>hen ";

                $$check eq 'ERROR'
            or  do {
#DBG>				$debug & 0x04
#DBG>			and	print STDERR 
#DBG>				    "go to state $$states <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	820	948	
==>);

  return $self;
}

sub ident  { return shift->{IDENT};  }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compile <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	820	948	
==>);

  return $self;
}

sub ident  { return shift->{IDENT};  }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compile <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	4070	4286	
==>abels}{$dest->{label}}) {
                        # Mark external label as reachable
                        $dest->{reachable} = 1;
                        last; # Stop tracing through jumps
                    } els <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14	122	
==>Relies on "testrun.pl" being setup correctly.
#
#
$tn=0;
while(1) {
	{
		local $/="";
		$_=<DATA>;
	}
	if (/t <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	10955	11077	
==>rn $ret;
}

=item C<rewrite_nci_method($class, $method, $super, $super_table)>

Rewrites the method body performing the var <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345037	345451	
==>,
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 403,
                  "ARGS" => [
                              "p",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 148 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  c <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	10235	10335	
==>{
            error("MANIFEST", $line, "$_: case-insensitive collision with " . $files_in_dir_nocase{ <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	2727	2836	
==>elp_flag;
Usage() unless @ARGV;


#
# Read in the first ops file.
#

my $package = "core";
my $moddir  = "lib/ <==
2	/Users/nnunley/parrot/config/inter/libparrot.pm	162	350	
==>arrot.pm - Determines build information for libparrot

=head1 DESCRIPTION

libparrot is the library containing the parrot VM. This configuration
step determines whether it should be bu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87460	87750	
==>_cb(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88462	88752	
==>_cb(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714552	714649	
==>s = {{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (s && string_length(interpreter, s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715475	715572	
==>s = {{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (s && string_length(interpreter, s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7257	7379	
==>tput_pushint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);

    if ($self->{DEBUG}) {
        my $desc = $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6899	7021	
==>tput_pushint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);

    if ($self->{DEBUG}) {
        my $desc = $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784752	785111	
==>se_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 886,
                  "ARGS" => [
                              "p",
                              "kic <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	427	681	
==>lue);

sub new
{
  my $class = shift;
  my ($block, $token) = @_;

  return bless {
    BLOCK  => $block,

    TOKEN  => $token,
    TYPE   => Jako::Construct::Type->new($token->type),
    VALUE  => $token->text,

    DEBUG  => 1,
    FILE   => $token->fi <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	753	862	
==>TS

sub _failmsg {
	my ($message, $pos) = @_;
	$@ = bless { error=>$message, pos=>$pos }, "Text::Balanced::Err <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	1915	2092	
==>args
{
    my $class = shift;
    $class = ref $class || $class;
    {
        no strict 'refs';
        return @{$class . "::args"};
    }
}

=back

=head1 AUTHOR

Joshua Hoblit <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11616	11719	
==>printerr "    PTYPES: "
i = elements ptypes
j = 0
PTYPES_LOOP:
if j == i goto PTYPES_LOOP_END
type_trans <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574807	575064	
==>_ParrotClass, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575611	575868	
==>_ParrotClass, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3502	3615	
==>ld make sure its a string, somewhere.
    }
    else {
      $self->SYNTAX_ERROR("Sub declaration has no fnlib pro <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6166	6279	
==>ld make sure its a string, somewhere.
    }
    else {
      $self->SYNTAX_ERROR("Sub declaration has no fnlib pro <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	656	781	
==>maintainer );

sub runstep
{
    my ($self, $conf) = @_;
    
    my $verbose = $conf->options->get('verbose');

    # undef m <==
2	/Users/nnunley/parrot/config/inter/lex.pm	666	787	
==>maintainer );

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    # undef m <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	17417	17666	
==>t.pmc")
        if not $all{default};

    my $vt = read_dump($include, "vtable.pmc");
    add_defaulted($all{default}, $vt);

    foreach my $name (keys %all) {
        my $file = $all{$name}->{file};
        $file =~ s/\.\w+$/.dump/;

        my $e <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	2343	2491	
==>}

  return $self->SUPER::compile($compiler, $options );

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handle <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819010	819302	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "entrytype",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819969	820261	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "entrytype",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "f <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41052	41208	
==>targ->code(@_[1..2]) . '
			$repcount++;
			$backtrack = 1;
			' . $op->code(@_[1..2]) . '
			$savetext = $text;
			' . ($op->isterminal() ? 'pop @item;' : " <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5922	6056	
==>s->{flags}{group}
          or next;
        ($group) = keys %$group;
        $pmc_group{$pmc} = $group;
        push @{ $group_files{$ <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6133	6267	
==>s->{flags}{group}
          or next;
        ($group) = keys %$group;
        $pmc_group{$pmc} = $group;
        push @{ $group_files{$ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	13347	13498	
==>obal "$c"
EOC
    }
    push @stack, [$c, $p, 'P'];
}

sub PRINT_ITEM
{
    my ($n, $c, $cmt) = @_;
    my $tos = pop @stack;
    print <<"EOC";
	print_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	21093	21284	
==>)/;
                my $x = $1;
                $b->{'code'} =~ /^(\w{2})/;
                hex($x) <=> hex($1)
            } @rules;
            $pir .= "B2_BRANCH_$_:\n";
            $pir .= <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	522	636	
==>he dirty work
# of parsing Pod into treelets (generally one per non-verbatim paragraph), and
# to call the proper c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79321	79434	
==>w(interpreter, enum_class_Undef);\n  }\n  else {\n      /* At this point we have the symbol's address. We just nee <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80842	80955	
==>w(interpreter, enum_class_Undef);\n  }\n  else {\n      /* At this point we have the symbol's address. We just nee <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41878	42074	
==>T => -40
	},
	{#State 180
		DEFAULT => -41
	},
	{#State 181
		DEFAULT => -4,
		GOTOS => {
			'block' => 192,
			'chunk' => 57
		}
	},
	{#State 182
		ACTIONS => {
			"-" => 72,
			".. <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	2787	2950	
==>kip it.
        next if !$in_heredoc && /^\s*#|^\s*$/;
        
        # Is this a new rule?
        if (!$in_heredoc && /^\s*\[([\w\.]+)\]\s*$/) {
            # I <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3717	3841	
==>ed by section.
		
		$content->set_parent($self);
	}
	
	return @contents;
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot:: <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	1750	2066	
==>ethod.
# ###################################################
sub parse($) {
    my $input = shift;
    my @methods = ();
    my $cur_method;
    my $line_count = 1;
    
    # Loop over lines of input.
    foreach my $line (split(/\n/, $input)) {
        # Is this the start of a new method?
        if ($line =~ /^\[ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	5302	5402	
==>e().  This I<does> set a description for you, so don't pass
one.

=item C<example_output_isnt( $examp <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	44099	44194	
==>e elements are:

=over 4

=item [0]

the extracted quotelike substring (including trailing modif <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924364	924460	
==>> "#line 342 \"src/ops/string.ops\"\n  {{\@1}} = string_make_empty(interpreter, enum_stringrep_on <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925155	925251	
==>> "#line 342 \"src/ops/string.ops\"\n  {{\@1}} = string_make_empty(interpreter, enum_stringrep_on <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6659	6781	
==>mc) = @_;

    if (needs_build("$pmc.dump", "$pmc.pmc")) {
        run("$PMC2C --dump $pmc.pmc")
          or die "pmc2c du <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6870	6992	
==>mc) = @_;

    if (needs_build("$pmc.dump", "$pmc.pmc")) {
        run("$PMC2C --dump $pmc.pmc")
          or die "pmc2c du <==
2	/Users/nnunley/parrot/lib/Test/More.pm	5055	5153	
==>);

    __PACKAGE__->_export_to_level(1, __PACKAGE__, @imports);
}


=head2 Test names

By conventi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2284	2459	
==>object to
I<newvalue>.  You probably won't need to do this.

=item $token->attr_hash

This returns the hashref that is the attribute set for this start-token.
This is useful if <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	3815	3935	
==>mport error when loading $module: $!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$module imported OK", :$to <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7034	7132	
==>cat ${STEMP0}
${INS} = concat " = pop s\n"

# Next parameter.
goto pre_call_PLOOP_${CURIC}

# Finis <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244384	244746	
==>> ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 284,
                  "ARGS" => [
                              "i",
                              " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443342	443623	
==>DE" => 507,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 114 \"src/ops/math.ops\"\n  {{\@2} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22290	22474	
==>{
        $self->whine(
          $para->[1]{'start_line'},
          "=end $content without matching =begin.  (Stack: "
          . $self->_dump_curr_open() . ')'
        );
        DE <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	4323	4451	
==>ef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^(next|last|redo|goto|return)(?!\w)(.*)$}) {
      push @tokens, <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1303	1432	
==>th.pbc"
#  load_bytecode "languages/lua/lib/luaio.pbc"
#  load_bytecode "languages/lua/lib/luaos.pbc"
#  load_bytecode "languag <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	1006	1106	
==>t CODE ".sub $seg\n";
	if (exists $code{$seg}->{declarations}) {
		print CODE <<'END_PIR';

	.local p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96250	96712	
==>S" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 119,
                  "ARGS" => [
                              "s",
                              "s",
                              "sc"
                            ],
                  "BODY" = <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4913	5035	
==>$self->get('verbose') == 2;

    print "Setting trigger $trigger on configuration key $key\n",
        if $verbose;

    $s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955400	955645	
==>AME" => "encodingname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956211	956456	
==>AME" => "encodingname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	639207	639320	
==>RT_SIG_PMC(sig);\n  if (!SIG_ELEMS(sig)) {\n        real_exception(interpreter, NULL, E_ValueError,\n            \ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558024	558114	
==>AG_TAILCALL;\n  interpreter->current_object = object;\n  interpreter->current_method = meth <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559408	559498	
==>AG_TAILCALL;\n  interpreter->current_object = object;\n  interpreter->current_method = meth <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840177	840285	
==>tries(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}});\n  {{+=2}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840872	840980	
==>tries(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}});\n  {{+=2}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948921	949195	
==>LL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_ch <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949721	949995	
==>LL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_ch <==
2	/Users/nnunley/parrot/languages/regex/regex.pl	1520	1663	
==>f $subname;
$options{emit_main} = 1 if $main;

if ($language eq 'pir') {
  $options{module} = "Regex::CodeGen::IMCC";
} elsif ($language eq 'per <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9012	9117	
==>l);\n    else {\n\tinterpreter->resume_offset = fe->offset;\n        Parrot_switch_to_cs(interpreter, fe-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10128	10233	
==>l);\n    else {\n\tinterpreter->resume_offset = fe->offset;\n        Parrot_switch_to_cs(interpreter, fe-> <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	3896	4024	
==>) {
		    my ($a, $def) = split(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a = qq!"$a"!;   # quote argument
		    $def_arg_name <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	4395	4523	
==>) {
		    my ($a, $def) = split(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a = qq!"$a"!;   # quote argument
		    $def_arg_name <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	3619	3776	
==>ype eq '%' ){
            $out .= "    croak 'Initializer for $name must be hash reference'\n";
            $out .= "        if defined(\$init{'$name'}) && re <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32783	32976	
==>ber') {
            die "Unknown item type $item_type"; # should never happen

          } elsif($expected_value == $para->[1]{'number'}) {
            DEBUG > 1 and print " Numeric item has the <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959375	959650	
==>LL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_enc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960177	960452	
==>LL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_enc <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	4323	4438	
==>le;

        die "$0: Could not read ops file '$opsfile'!\n" unless -r $opsfile;
    }

    $ops = Parrot::OpsFile-> <==
2	/Users/nnunley/parrot/config/auto/aio.pm	78	173	
==>.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/aio.pm - Test for AIO

= <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1740	1839	
==>mber'}. "  }
sub start_item_text   { $_[0]{'Thispara'} = ''   }

sub start_over_bullet  { ++$_[0]{'I <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1308	1407	
==>mber'}. "  }
sub start_item_text   { $_[0]{'Thispara'} = ''   }

sub start_over_bullet  { ++$_[0]{'I <==
2	/Users/nnunley/parrot/lib/Test/More.pm	35218	35340	
==>is ok:

    use threads;
    use Test::More;

This may cause problems:

    use Test::More
    use threads;


=item Test::H <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21095	21214	
==>rint "Goodbye, world"

' Column alignment
print "Hello";tab$(15);"World"
print "Foo";tab$(15);"Stuff"
print "I am the ve <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	49650	49769	
==>ded to close complex.\n";
      } elsif($stack[-1] < length($3)) {
        # We saw " >>>>" but needed only " >>".  Back <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	43291	43430	
==>],
    gensym   => 0,
    functions=> [],
    scope    => {},
  };
  bless $self,$class;
}

sub prettyprint {
  my $node  = shift;
  my $dep <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4765	4867	
==>ODE
	},
	'not' => sub {
		my($a1,$a2,$result,$op,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407725	408023	
==>0,
                  "NAME" => "connect",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408623	408921	
==>0,
                  "NAME" => "connect",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39125	39355	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41685	41915	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARR <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	8820	9079	
==>lt}->{symbol} :anon";
        if ( exists $dir->{outer} ) {
            print {$FH} " :outer($dir->{outer})";
        }
        print {$FH} "\n";
    }

    sub visitEndDir {
        my $self  = shift;
        my ($dir) = @_;
        my $FH    = $sel <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	305	406	
==>write_RET'],
  ['write_N_UNDEF','ne', 'I0', '.Scratchpad', 'write_N_LAMBDA'],
  ['',             'prin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240136	240233	
==>c/ops/cmp.ops\"\n  INTVAL l = VTABLE_get_integer(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241084	241181	
==>c/ops/cmp.ops\"\n  INTVAL l = VTABLE_get_integer(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032493	1032783	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_lex",
                  "FLAGS" => "" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033590	1033880	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_lex",
                  "FLAGS" => "" <==
2	/Users/nnunley/parrot/config/init/hints/aix.pm	50	175	
==>/parrot/config/init/hints/aix.pm 19593 2006-05-30T02:28:15.110975Z coke  $

package init::hints::aix;

use strict;

sub runste <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16772	16883	
==>jklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
        # Leave out "- so that "- <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10216	10323	
==>jklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
    # Leave out "- so that "- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427455	427784	
==>=> ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 491,
                  "ARGS" => [
                              "i <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	22420	22560	
==>'classpieces', 2,
sub
#line 170 "lib/Regex/Grammar.y"
{ push @{$_[1]}, $_[2]; return $_[1]; }
	],
	[#Rule 40
		 'classpieces', 0,
sub
#line 1 <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	2792	2933	
==>ig_file},
    'directory=s'  => \$cfg{bench_path},
    'list'         => \$cfg{list_only},
    'time'         => \$cfg{use_times},
    'help|? <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	540	642	
==>sa($block, 'Jako::Construct::Block');
  confess("Left (" . ref($left) . ") is not Value") unless UNIVER <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	531	633	
==>sa($block, 'Jako::Construct::Block');
  confess("Left (" . ref($left) . ") is not Value") unless UNIVER <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	14109	14216	
==>et, $rel_path, $item)>

Writes an HTML version of the file specified by C<$rel_path> in
C<$source> to the eq <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	2700	2826	
==>interp, registry, enum_class_$_);\n" foreach (@pmcs);
    print OUT <<'END_C';
}
END_C

    close OUT;

    move_if_diff("$file <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2464	2626	
==>= &&PC_%d; cur_opcode += %s; goto switch_label", $self->pc, $offset);
    }

    #print STDERR "pbcc: map_ret_rel($offset)\n";
}

=item C<goto_pop()>

Transforms t <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11906	12194	
==>PER::new( yyversion => '1.05',
                                  yystates =>
[
	{#State 0
		DEFAULT => -2,
		GOTOS => {
			'rules' => 1
		}
	},
	{#State 1
		ACTIONS => {
			'' => 2,
			'CHAR' => 4,
			"<" => 3,
			"&" => 5,
			'CODE' => 6,
			"^" => 9,
			"(" => 10,
			"[" => 14,
			"." = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2760	2858	
==>ves '', same as 'STRING' x 0

  $self->{'Thispara'} =~ tr{\xAD}{}d if Pod::Simple::ASCII;
  my $out <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2294	2392	
==>ves '', same as 'STRING' x 0

  $self->{'Thispara'} =~ tr{\xAD}{}d if Pod::Simple::ASCII;
  my $out <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	37981	38164	
==>ildFunctionBody {
    my ( $parser, $params, $block ) = @_;
    my @opcodes1 = ();
    my @opcodes2 = ();
    if ( $parser->YYData->{self} ) {
        unshift @{$params}, $parser- <==
2	/Users/nnunley/parrot/languages/urm/urm-old.pl	1057	1213	
==>register{$reg} ;
    }
    print ") \t$line\n";
    if ($line =~ /if *(r\d) *= *(\d) *goto *(\d+)/) {
	$register{$1} = 0 unless defined $register{$1};
	if ($ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5655	5864	
==>{^inter/} && $ask;

        # reset verbose value for the next step
        $self->options->set(verbose => $verbose);
    }

    return $self;
}

=back

=head1 CREDITS

The L</runsteps()> method is largely base <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	3124	3242	
==>=cut

sub code
{
    my $self = shift;

    return $self->{CODE};
}

=item C<type()>

The type of the op, either 'inlin <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	1595	1782	
==>cDescent->Precompile($grammar, $class, $sourcefile);
		exit;
	}
}
		
sub Save
{
	my ($self, $class) = @_;
	$self->{saving} = 1;
	$self->Precompile(undef,$class);
	$self->{saving} = 0;
}

s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	43	132	
==>EndToken;
use Pod::Simple::PullParserToken ();
@ISA = ('Pod::Simple::PullParserToken');
us <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610065	610302	
==>ARGS" => [
                              "p",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 478 \"src/ops/object.ops\"\n    {{\@1}} = VTABLE_get_att <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63230	63348	
==>ule->addcall($name);

						_check_insatiable($name,$1,$grammar,$line) if $::RD_CHECK;
					}
				}
				elsif ($grammar <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63951	64069	
==>ule->addcall($name);

						_check_insatiable($name,$1,$grammar,$line) if $::RD_CHECK;
					}
				}
				elsif ($grammar <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	5728	5922	
==>?op\s+|)
        {
            if (m/^\s*VERSION\s*=\s*"(\d+\.\d+\.\d+)"\s*;\s*$/)
            {
                if (exists $self->{VERSION})
                {
                    #die "VERSION M <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39447	39565	
==>ecl} {
    $ret_def
    STRING *meth = CONST_STRING(interpreter, "__$meth");
    PMC *sub = find_or_die(interpreter, pm <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4652	4817	
==>(" ", @_), "\n";

    return system(@_) == 0;
}

sub modtime {
    my $ago = (-M shift);

    if (defined $ago) {
        return $NOW - $ago;
    } else {
        ret <==
2	/Users/nnunley/parrot/lib/Test/More.pm	6008	6157	
==>eturn true or false,
respectively.

=over 4

=item B<ok>

  ok($this eq $that, $test_name);

This simply evaluates any expression (C<$this eq $that> i <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr3.pm	538	686	
==>);

    return ( "java Bc languages/${lang_fn} languages/${pir_fn}",
             "$self->{parrot} languages/${pir_fn}" );
}
 

sub skip_why {
    my <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	13056	13236	
==><td class="leftsep"><tmpl_var name=harness_args></td>
            <td class="leftsep num"><tmpl_var name=duration></td>
            <td class="leftsep num"><tmpl_var name=percentage <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	52691	52846	
==>y repeatedly applying each of the specified extractors
to the remainder of the string. Thus C<extract_multiple> is
a generalized form of Perl's C<split> sub <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	12225	12379	
==>p->op_lib->op_code("set", 0)
 * interp->op_lib->op_code("set_i_i", 1)
 *
 * returns >= 0 (found idx into info_table), -1 if not
 */

static int get_op(cons <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	116	252	
==>e same license
# as Perl itself.
#
# $Id: /parrot/languages/jako/lib/Jako/Parser.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use stri <==
2	/Users/nnunley/parrot/config/inter/ops.pm	112	211	
==>975Z coke  $

=head1 NAME

config/inter/ops.pm - Ops Files

=head1 DESCRIPTION

Asks the user to sel <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	11292	11404	
==>::needparen { 1 }
sub Regex::Ops::Tree::multi_match::render {
    my $op = shift;
    my ($min, $max, $greedy, $R <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	13825	13950	
==>">&raquo;</span></td>
	    <td><a style="text-decoration: none" href="<tmpl_var name=link>" title="Full smoke report">&raquo;< <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355126	355226	
==>t p = {{\@1}};\n  STRING * const s = (VTABLE_get_string(interpreter, p));\n  if (s) {\n    PIO_putps( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360826	360926	
==>t p = {{\@1}};\n  STRING * const s = (VTABLE_get_string(interpreter, p));\n  if (s) {\n    PIO_putps( <==
2	/Users/nnunley/parrot/lib/Test/More.pm	27540	27648	
==>lowing functions is discouraged as they are not
actually testing functions and produce no diagnostics to help <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	282	422	
==>rot
house-style.

This just provides C<header()> and C<footer()> class methods for now, to
prevent code being duplicated in C<Parrot::Docs::P <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2803	2932	
==>it("  $temp = $value");
      $args[$i] = $temp;
    }
    else {
      $args[$i] = $args[$i]->compile($compiler);
    }
  }

  if <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2503	2632	
==>it("  $temp = $value");
      $args[$i] = $temp;
    }
    else {
      $args[$i] = $args[$i]->compile($compiler);
    }
  }

  if <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Transcode.pm	31	191	
==>::Transcode;

BEGIN {
  if(defined &DEBUG) {;} # Okay
  elsif( defined &Pod::Simple::DEBUG ) { *DEBUG = \&Pod::Simple::DEBUG; }
  else { *DEBUG = sub () {0}; }
} <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	18208	18437	
==>p',
        reason    => $why,
    });

    my $out = "ok";
    $out   .= " $self->{Curr_Test}" if $self->use_numbers;
    $out   .= " # skip";
    $out   .= " $why"       if length $why;
    $out   .= "\n";

    $self->_print($ou <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	7447	7565	
==>BEL_COMMENTS'),
            map { ($_->{label} ? ($_->{label}) : ()), $_->{code} } @output4
           );
}

sub dbg_re <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	8780	8946	
==>> '&&',
             'make_c' => 'gmake -C',
             'make_set_make' => '#',
             'memalign' => 'some_memalign',
             'mkdir' => 'perl -MExtUtils: <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	580	697	
==>_[0][2] || return undef}{ $_[1] };
  } elsif(@_ > 2) {  # Writing: $token->attr('attrname', 'newval')
    ${$_[0][2] | <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859032	859548	
==>t",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 975,
                  "ARGS" => [
                              "s",
                              "sc",
                              "i"
                            ],
                  "BODY" => "#line 118 \"src/ops/strin <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1431	1574	
==>mc_type");
    $compiler->emit("  $temp_pmc = $right");
    $compiler->emit("  global \"$left\" = $temp_pmc");
  }
  else {
    $compiler->emit( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	848	944	
==>mpilations. But, string
# literals are subject to interpolation, and so they go through
# compila <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30563	30805	
==>y $cout = <<"EOC";
$decl {
EOC
    if ($meth eq 'morph') {
        $cout .= <<EOC;
    if (1 || Parrot_is_const_pmc(interpreter, pmc))
	internal_exception(WRITE_TO_CONSTCLASS,
		"$meth() in $classname");
    else
        Parrot_${parentname}_$ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	16858	17091	
==>return:...> specification:
			expected item missing", $line);
		Parse::RecDescent::_hint(
			"The <return:...> directive requires a
			sequence of at least one item. For example:
		        <return: list>");
		return;
	}
	push @{$self- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733321	733678	
==>[
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 823,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 134 \"src/o <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34253	34472	
==>ype eq 'bullet') {
            # as expected!

            if( $para->[1]{'~_freaky_para_hack'} ) {
              DEBUG and print "Accomodating '=item * Foo' tolerance hack.\n";
              push @$para, delete $para->[ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217558	217892	
==>],
                  "TYPE" => "function",
                  "CODE" => 255,
                  "ARGS" => [
                              "p",
                              "nc",
                              "ic"
                            ],
                  "BODY" => "#line 462 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_numbe <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24626	24743	
==>temp;
    }
  } else {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26525	26642	
==>temp;
    }
  } else {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1136	1241	
==>els}{$pass_label} = 1;
    $ctx->{external_labels}{$fail_label} = 1;

    my $opt2 = Regex::Optimize->new( <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	3316	3471	
==>prelen;
	my $endpos = pos $$textref;
	return _succeed $wantarray, $textref,
			$matchpos, $endpos-$matchpos,		# MATCH
			$endpos,   length($$textref)-$endpo <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	33770	33895	
==>]', or '<..>'). Optionally it will also
respect quoted unbalanced brackets (see below).

A "delimiter bracket" is a bracket in <==
2	/Users/nnunley/parrot/config/init/defaults.pm	596	717	
==>ub runstep
{
    my ($self, $conf) = @_;

    # We need a Glossary somewhere!
    $conf->data->set(
        debugging => $ <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	7767	7916	
==>n2l      math.h
atanf       math.h
atanh       math.h
atanhf      math.h
atanhl      math.h
atanl       math.h
atexit      stdlib.h
atof        stdlib <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	23078	23280	
==>ack: popindex or lastback
#       next:
#
# (back is R.back)
#
#
sub rewrite_plus {
    my ($self, $op, $R, $lastback) = @_;

    my $loop = $self->genlabel('plus_loop');
    my $rfail = $self->genlabel( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627047	627143	
==>"BODY" => "#line 53 \"src/ops/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628191	628287	
==>"BODY" => "#line 53 \"src/ops/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107495	107997	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 134,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 167 \ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	14949	15067	
==>$code } + 0;
			       if (!defined(\$score) || \$thisscore>\$score)
					{ \$score=\$thisscore; \$score_return=\$item[ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	3532	3661	
==>->new_group('Possibly obsolete', '',
            $self->new_item('', 'tools/dev/gen_charset_tables.pl'),
            $self->new_it <==
2	/Users/nnunley/parrot/lib/File/Which.pm	6434	6527	
==>difications
by Stas Bekman, then extracted to create C<File::Which>.

Version 0.04 had some si <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34801	34917	
==>me"} .'})
							if defined $::RD_TRACE;').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDescent::f <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41911	42027	
==>me"} .'})
							if defined $::RD_TRACE;').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDescent::f <==
2	/Users/nnunley/parrot/examples/benchmarks/arriter.pl	585	705	
==>$s = chr(65 + $i);
    push @k, $s;
}


# set up all 5 element permutations of qw( A B C D E F G H I J )
for my $e (0..3) <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	6839	6970	
==>ffset(-$1); /me;
    s/{{\^([^{]*?)}}/     $trans->expr_address($1); /me;

    return $_;
}

=item C<rewrite_body($body, $trans)>

P <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	736	939	
==>ypes = ( 'I' => 'int', 'N' => 'num', 'P' => 'pmc', 'S' => 'str');

sub CODE_TO_NAME {
  my ($class, $code) = @_;
  return $types{uc $code};
}

sub new
{
  my $class = shift;
  my ($type) = @_;

  my $toke <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	6330	6499	
==>= shift;
    my %start;
    foreach (@{ $op->{args} }) {
        @start{$_->startset()} = ();
    }
    return Regex::Ops::Tree::order_startset(\%start);
}

# Returns tru <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518110	518370	
==>],
                  "BODY" => "#line 734 \"src/ops/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518849	519109	
==>],
                  "BODY" => "#line 734 \"src/ops/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566949	567255	
==>JUMP" => 0,
                  "NAME" => "does",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567843	568149	
==>JUMP" => 0,
                  "NAME" => "does",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
2	/Users/nnunley/parrot/lib/File/Which.pm	3975	4090	
==>r to C<which()>. Under Win32 systems, which do not have a notion of
directly executable files, but uses special exte <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	3049	3147	
==>rt_element({ Name => 'block', Attributes => { kind => 'then' } });
  }

  $handler->start_element({ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3813	3911	
==>rt_element({ Name => 'block', Attributes => { kind => 'then' } });
  }

  $handler->start_element({ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	29771	29979	
==>ts place. (E.g., for
# "L<Getopt::Std>", the inferred link text is "Getopt::Std".)
#

############# The "to" attribute (which might be text, or a treelet)
# Third:
# The name or URL, or undef if none. (E.g., i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680327	680698	
==>GDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 763,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 488 \"src/ops/p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	572	664	
==>Construct::Block');
  confess "Value is not!" if defined $value and not UNIVERSAL::isa($value <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787442	787929	
==>t",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 889,
                  "ARGS" => [
                              "n",
                              "p",
                              "ki"
                            ],
                  "BODY" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	7239	7338	
==>urce_filename'} = $source;

sub set_source {
  my $self = shift @_;
  return $self->{'source_fh'} un <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	12809	12946	
==>ildren => [ { value => 'lambda' },
					   { children => [ @variables ] },
					   @body ]},
			   @values
			  ]};

  $return = $self->_g <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789261	789722	
==>t",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 891,
                  "ARGS" => [
                              "s",
                              "p",
                              "ki"
                            ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791080	791574	
==>t",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 893,
                  "ARGS" => [
                              "p",
                              "p",
                              "ki"
                            ],
                  "BODY" => "#l <==
2	/Users/nnunley/parrot/config/auto/env.pm	216	314	
==>e C library has C<setenv()> and C<unsetenv()>.

=cut

package auto::env;

use strict;
use vars qw($ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105123	105416	
==>JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105860	106153	
==>JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	6898	7443	
==>)
            {
                my $callop = $val->[1]->[-1];
                $callop->{result}[0]->{pragma} = 'multi';
                push @opcodes1, @{ $val->[1] };
                push @opcodes2, @{ $key->[1] };
                my $fct = new defn( 'tconstruct', 'util' );
                push @opcodes2, new CallOp( $parser,
                    'result' => [$result],
                    'arg1'   => $fct,
                    'arg2'   => [ $result, $num_key, $callop->{result}[0] ],
                );
                push @opcode <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819008	819291	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "entrytype",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819967	820250	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "entrytype",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9353	9465	
==>w_code\" isn't a valid element name"
        if $new_code =~
          m/[\x00-\x2C\x2F\x39\x3B-\x40\x5B-\x5E\x60 <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10617	10729	
==>w_code\" isn't a valid element name"
        if $new_code =~
          m/[\x00-\x2C\x2F\x39\x3B-\x40\x5B-\x5E\x60 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	3242	3361	
==>ubtree = $self->pass1(rop('alternate', \@children), $ctx);
            @{ $t->{args} } = ($R, $subtree);
            ret <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	3920	4039	
==>ubtree = $self->pass1(rop('alternate', \@children), $ctx);
            @{ $t->{args} } = ($R, $subtree);
            ret <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	762	885	
==>Which;

# XXX $conf is a temporary hack
our $conf;

our @EXPORT = ();
our @EXPORT_OK = qw(prompt genfile copy_if_diff move_i <==
2	/Users/nnunley/parrot/config/auto/aio.pm	586	728	
==>verbose');
    my $libs    = $conf->data->get('libs');
    $conf->data->add(' ', libs => '-lrt');

    cc_gen('config/auto/aio/aio.in');
    ev <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	3128	3269	
==>urn 40 if ($op eq '\\');
	return 50 if ($op eq "*");
	return 50 if ($op eq "/");
	return 60 if ($op eq "^");
	return 70 if ($op eq ".");

	ret <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	950	1136	
==>R => File::Spec->devnull )},
    stderr => sub{return ( STDOUT => File::Spec->devnull, STDERR => $_[0] )},
};
my $tests = {
    is   => 'is_eq',
    like => 'like',
    isnt => 'isnt_eq', <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722172	722275	
==>ine 149 \"src/ops/python.ops\"\n  STRING * const s = {{\@2}};\n  PMC * const io = {{\@1}}; /* TODO Can t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723201	723304	
==>ine 149 \"src/ops/python.ops\"\n  STRING * const s = {{\@2}};\n  PMC * const io = {{\@1}}; /* TODO Can t <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	13795	13951	
==>(.*?) \)\)/{{=$1}}/mg;
                      $body =~ s/\bexpr\s+OFFSET\(\( (.*?) \)\)/{{^+$1}}/mg;
                      $body =~ s/\bexpr\s+ADDRESS\(\( (.* <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	4355	4591	
==>.
    if ($in_heredoc) {
        die "Unterminated heredoc runs to end of file\n";
    }

    # If we've a rule left, validate and stash it.
    if ($rule) {
        validate_rule($rule);
        push @rules, $rule;
    }

    # Close fi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	6496	6730	
==>tokens, Jako::Token->new(
        $file, $line, 'ident', undef, $1);
      $text = $3;
      next;
    }
   
    #
    # Anything else is a syntax error:
    #

    $self->PARSE_ERROR("Unrecognized text '$text'.");
  }

#  $self->DEBUG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96337	96756	
==>o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 119,
                  "ARGS" => [
                              "s",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 63 \"src/ops/bit.ops\"\n  {{\@1}} = <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Examples.pm	312	514	
==>on section describing all the Parrot examples.

=head2 Class Methods

=over

=cut

package Parrot::Docs::Section::Examples;

use strict;
use warnings;

use base qw( Parrot::Docs::Section );

use Parrot:: <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11220	11308	
==>P1}["reg_type_short"]
${DEST0} = concat ${STEMP0}
inc stack_depth
${STEMP0} = stack_depth <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8406	8494	
==>P1}["reg_type_short"]
${DEST0} = concat ${STEMP0}
inc stack_depth
${STEMP0} = stack_depth <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090815	1090914	
==>=> "#line 191 \"src/ops/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1091875	1091974	
==>=> "#line 191 \"src/ops/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1360	1586	
==>->text would do.

Or, if you want to alter the value, you can even do things like this:

  for ( ${  $token->text_r  } ) {  # Aliases it with $_ !!
  
    s/ The / the /g; # just for example
    
    if( 'A' eq chr(65) ) {  # ( <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	333	445	
==>/rebuild_miniparrot.pl - Rebuild a new miniparrot distribution

=head1 SYNOPSIS

    % perl tools/dev/rebuild_min <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	534928	535024	
==>ODY" => "#line 916 \"src/ops/math.ops\"\n   FLOATVAL temp = log((FLOATVAL)2.0);\n  {{\@1}} = log( <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1975	2091	
==>.*)=rotate_left\((.*),(.*)\)\+(.*)$//;

	#my $rotate = "(($2 << $3) || (($2 >> (32 - $3)) & (1 << $2) - 1)))"; 
	$c = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1158	1306	
==>x || '') eq 'HASH') {
      $x = { %$x };
    }
     # otherwise leave it.
  }

  return bless $new, $class;
}

# Not much in this class is likely to <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	23116	23239	
==>pcodes ];
}

sub BuildLogop {
    my ( $parser, $expr1, $op, $expr2 ) = @_;
    my @opcodes = ();
    my $result = new <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714498	714598	
==>=> "#line 75 \"src/ops/python.ops\"\n  STRING * const s = {{\@1}};\n  PMC * const io = PIO_STDOUT(int <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715421	715521	
==>=> "#line 75 \"src/ops/python.ops\"\n  STRING * const s = {{\@1}};\n  PMC * const io = PIO_STDOUT(int <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	152	251	
==>se Parrot::Config;

require Exporter;
require Parrot::Test;

@EXPORT = ( qw(output_is output_like ou <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	69	168	
==>se Parrot::Config;

require Exporter;
require Parrot::Test;

@EXPORT = ( qw(output_is output_like ou <==
2	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	1407	1528	
==>to date with respect to $input\n" if $Verbose;
}

exit 0 if $up_to_date;

print "$command\n";
my $status = system($command <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8883	9043	
==>ive to the directory.

=cut

sub path_for_directory_with_relative_path
{
    my $self = shift;
    my $path = shift || return;
    my ($volume, $directories, $na <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2857	2949	
==>w->nbsp_for_S(1);
  $new->accept_targets( 'html', 'HTML' );
  $new->accept_codes('VerbatimFor <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	6467	6628	
==>nt_head {
    my ($definitions) = @_;
    print NCI << "HEAD";
/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatica <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7770	7944	
==>_[1] } @$stack[ -$$dotpos .. -1 ]
                        :   ();

            $semval = $code ? &$code( $self, @sempar )
                            : @sempar ? $sempar[0 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7418	7588	
==>_[1] } @$stack[ -$$dotpos .. -1 ]
                        :   ();

            $semval = $code ? &$code( $self, @sempar )
                            : @sempar ? $sempar[0 <==
2	/Users/nnunley/parrot/config/auto/jit.pm	104	217	
==>:31.775154Z bernhard  $

=head1 NAME

config/auto/jit - JIT Capability

=head1 DESCRIPTION

Determines the CPU arc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954045	954283	
==>PE" => "function",
                  "CODE" => 1073,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 571 \"src/ops/string. <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4530	4701	
==>um++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		return(<<CODE, $result);
	# OR $a1, $a2
	set $result, 0.0
	ne $a1, $ot1, EQ_$eqnum
	ne $a2, $ot2, EQ_$eqnum
	branch EQ_${eqn <==
2	/Users/nnunley/parrot/languages/scheme/Scheme.pm	1272	1405	
==>okenize($self->{file});
  $self->{tree}   = Scheme::Parser::parse($self->{tokens});
  $self->{code}   = link_functions(Scheme::Generat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627308	627414	
==>e continuation PMC\n   * needs to be in the destination register before its init method\n   * copies the re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628452	628558	
==>e continuation PMC\n   * needs to be in the destination register before its init method\n   * copies the re <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1663	1820	
==>S22 => 9, S23 => 14,
	S24 => 20, S31 => 4, S32 => 11, S33 => 16, S34 => 23, S41 => 6, S42 => 10,
	S43 => 15, S44 => 21
  );

  my $insert = "";
  while(<DATA> <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2503	2661	
==>C
code.

=cut

sub goto_pop
{
    my ($self) = @_;
    return "{ opcode_t *dest = (opcode_t*)pop_dest(interpreter);
              cur_opcode = (opcode_t*)opcod <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23590	23758	
==>me"      => $_[3],
	}, $class;
}

# MARK, YOU MAY WANT TO OPTIMIZE THIS.


sub code($$$$)
{
	my ($self, $namespace, $rule) = @_;
	
''.($::RD_NO_TRACE?'':'
		Parse::RecDe <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	196	323	
==>r

=head1 SYNOPSIS

    use Parrot::Docs::POD2HTML;

=head1 DESCRIPTION

C<Parrot::Docs::POD2HTML> subclasses C<Pod::Simple::HTM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79418	79531	
==>ress. We just need to build\n         a PMC with it so we can get and set the value */\n      {{\@1}} = pmc_new(in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80939	81052	
==>ress. We just need to build\n         a PMC with it so we can get and set the value */\n      {{\@1}} = pmc_new(in <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	2480	2725	
==>include/README                   [devel]doc
    src/call_list.txt                               [devel]doc
    src/ops/ops.num                                 [devel]
    tools/build/ops2c.pl                            [devel]
    tools/build/ops <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569109	569343	
==>[
                              "i",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 218 \"src/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->isa(in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957031	957293	
==>"find_encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957935	958197	
==>"find_encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	41401	41525	
==>ween C<extract_tagged> and the anonymous
subroutines generated by
C<gen_extract_tagged>, is that those generated subroutines: <==
2	/Users/nnunley/parrot/tools/build/list_unjitted.pl	186	437	
==>ir = readdir DIR){
        next if $dir =~ /^\./ or $dir eq '\.svn';
        print $dir;
    }
    exit 1;
}

my @ops;
my @jitted;

open OPS, '<', 'ops/ops.num' or die "Damn can not open 'ops/ops.num': $!";

while(<OPS>){
    next if /^\s*#/ or /^\s*$/ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	583	718	
==>)/g) {
        if ($part =~ /^\%/) {
            push @ops, $self->output_print(substr($part, 2, -1));
        } else {
            $par <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6814	6917	
==>id/left/right  2-9, 1-5, 6-0
t$="1234567890"
print mid$(t$, 2, 8)
print left$(t$, 5)
print right$(t$, 5) <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18543	18646	
==>id/left/right  2-9, 1-5, 6-0
t$="1234567890"
print mid$(t$, 2, 8)
print left$(t$, 5)
print right$(t$, 5) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91212	91680	
==>re",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 113,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 43 \"src/ops <==
2	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	1069	1260	
==>hanges made here will be lost!
 *
 */

#include <string.h>
#include <parrot/packfile.h>

EOF

if (-e 'DEVELOPING') {

print "/* $fingerprint */\n";
print "static const unsigned char fingerprin <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	1472	1603	
==>te_RET',    'returncc'],
 ],
 apply => 
 [['# Apply function'],
  ['apply_ENTRY', 'set', 'P0', 'P5'],
  ['',            'set', 'P16' <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	899	990	
==>ssary.pod'),
			$self->new_item('', 'docs/faq.pod'),
			$self->new_item('', 'docs/practical_ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	1407	1598	
==>item * C<description()>

Accepts no arguments and returns the value of C<$description> from the
inheriting classes namespace.

This method also works as an object method.

=cut

sub descriptio <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	936	1074	
==>within a C<Parrot::Docs::Section>
subclass's C<new()> method.

=cut

sub new_item
{
    my $self = shift;
    
    return Parrot::Docs::Ite <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	2481	2672	
==>&' or $cur eq '%') {
			append;
			fetch;
		}
		emit("BASE");
		goto MAIN;
	}
	if ($cur eq ">" or $cur eq "<" or $cur eq "=") { 
		append;
		if ($next eq "=" or $next eq ">") {
			fetch;
			ap <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	9360	9458	
==>);

Extract a class signature from the code ref and return (a) the
code found before the signature, <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	5831	5933	
==>UB/GOTO allowed";
		}
		push @{$code{$seg}->{code}}, "ON_${ons}_$i:\n";
		$i++;
	}
	if ($branch eq "gos <==
2	/Users/nnunley/parrot/lib/Test/More.pm	26892	27064	
==>$#vals) {
        my $val = $vals[$idx];
        $vals[$idx] = !defined $val ? 'undef'          :
                      $val eq $DNE  ? "Does not exist" :
	              ref <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1066	1226	
==>';
    return '<rx_ptmp>' if $name eq 'ptmp' || $name eq '<ptmp>';
    return $name;
}

sub dbgoto {
    my ($self, $label) = @_;
    return () unless $self->{DE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804291	804552	
==>t_pmc_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805192	805453	
==>t_pmc_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	5847	6003	
==>(a)
#  check(1)
#  match(b)
#  check(1)
#  match(c)
#
# where check(n) is "am I closer than n away from the end of the string?"
#
# After this operation, /ab <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56359	56582	
==>e.ops\"\n  {{\@1}} = interpinfo_p(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57121	57344	
==>e.ops\"\n  {{\@1}} = interpinfo_p(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	4489	4630	
==>[2], $match[5]+2,	# MATCH
			  @match[8,9],			# REMAINDER
			  @match[0,1],			# PREFIX
			);
}

sub _match_bracketed($$$$$$)	# $textref, $pre, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	612	703	
==>DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullParser>, you might
get a <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	518	609	
==>DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullParser>, you might
get a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380288	380594	
==>});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "seek", <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	6122	6246	
==>ts}{$group} = 1;
    $self->{_setup_ends}{$group} = 1;
}

sub rewrite_try {
    my ($self, $op, $R, $lastback) = @_;
    retu <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7595	7704	
==>ooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If the destination isn't <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5713	5822	
==>ooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If the destination isn't <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	7404	7514	
==>ace');    }
sub skip_open_bracket  { return shift->skip('open-bracket');  }
sub skip_open_paren    { return shi <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8497	8607	
==>E; }
	if ($type[CURR] eq 'COMM') {
		push @{$code{$seg}->{code}}, "\t# $syms[CURR]\n";
		goto PARSE;
	}
	if ($t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	310469	310613	
==>n            PDB_run_command(interpreter,command);\n        }\n        /* FIXME this is not ok */\n        exit(0);\n    }\n    interpreter->pdb- <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	56882	57145	
==>ct, $_[2] );
        }
	],
	[#Rule 88
		 'functioncall', 4,
sub
#line 464 "Lua\lua51.yp"
{
            my $obj = BuildCallVariable( $_[0], $_[1] );
            BuildCallMethod( $_[0], $obj, $_[3], $_[4] );
        }
	],
	[#Rule 89
		 'functioncall', 2 <==
2	/Users/nnunley/parrot/config/init/miniparrot.pm	1771	1911	
==>> undef,
        has_sigatomic_t    => undef,
        has_sigaction      => undef,
        has_setitimer      => undef,

        # we can't g <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	5985	6075	
==>tem C<pod_as_html()>

Runs C<Parrot::Docs::POD2HTML> on the contents of the file. Executabl <==
2	/Users/nnunley/parrot/config/init/defaults.pm	4156	4277	
==>ld directory
        blib_dir      => 'blib/lib',

        # libparrot library names
        libparrot_static => 'libparro <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	2722	2825	
==>gs instead of using
confess() and warn().

=cut

sub set_symbol
{
  my $self = shift; # Required: Jako:: <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7069	7169	
==>Null   (1): ", instr(s1$, "")
print "Start (11): ", instr(6, s1$, " ")
print "Inval  (0): ", instr(4, <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18798	18898	
==>Null   (1): ", instr(s1$, "")
print "Start (11): ", instr(6, s1$, " ")
print "Inval  (0): ", instr(4, <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	8961	9081	
==>.*$//;
    s/\s*$//;
    s/^\s*//;
    next unless $_;
    ($name, $number) = split(/\s+/, $_);
    if ($prev + 1 != $num <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	13783	13964	
==>S => {
			'namelist' => 63
		}
	},
	{#State 18
		DEFAULT => 0
	},
	{#State 19
		DEFAULT => -4,
		GOTOS => {
			'block' => 64,
			'chunk' => 57
		}
	},
	{#State 20
		AC <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	26573	26689	
==>sts $Known_formatting_codes{$f} or $f eq '0' or $f eq '1';
      DEBUG > 2 and print "  Can't fall back on unknown co <==
2	/Users/nnunley/parrot/config/init/hints/os2.pm	482	740	
==>v       => "double",
        opcode_t => "long",
        ccflags  => "-I. -fno-strict-aliasing -mieee-fp -I./include",
        ldflags  => "-Zexe",
        perl     => "perl"                                              # avoids case-mangling in make
    );
} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255896	256349	
==>=> ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 298,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BO <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	21490	21649	
==>e given @msgs.  Like C<print>, arguments are simply
appended together.

Normally, it uses the failure_output() handle, but if this is for a
TODO test, the todo_ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	2027	2314	
==>($message, $value) = @_;

    print("$message [$value] ");

    chomp(my $input = <STDIN>);

    if ($input) {
        $value = $input;
    }

    return integrate($value, $input);
}

=item C<file_checksum($filename, $ignorePattern)>

Creates a checksum for the specified file. This is us <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864194	864505	
==>{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bytelength",
                  "FLAGS" <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6845	6990	
==>ecovery.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push(@$stack,[ $act, $$value ]);

					$$token ne ''	#Don't eat t <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6528	6665	
==>ecovery.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push(@$stack,[ $act, $$value ]);

					$$token ne ''	#Don't eat t <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	3894	4020	
==>++) {
		    my ($a, $def) = split(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a = qq!"$a"!;   # quote argument
		    $def_arg_ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	4393	4519	
==>++) {
		    my ($a, $def) = split(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a = qq!"$a"!;   # quote argument
		    $def_arg_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731056	731447	
==>core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 820,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 124 \" <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	56071	56200	
==>ect token specification: \"$@\"", $line);
					_hint("The <token:...> directive requires a list
					       of one or more strings <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	18572	18685	
==>erpreter->iglobals;

    if (PMC_IS_NULL(iglobals))
        PANIC("iglobals isnt created yet");
    HashPointer = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228795	229302	
==>tr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 267,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 538 \" <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	10051	10167	
==>e {
    my ($self, $var) = @_;
    return ("my \$$var;\n");
}

sub output_rule_def {
    my ($self, $name, $L_trymatc <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	16093	16354	
==>oid return
        $call_state = '' if 'v' eq $return;
        print NCI << "HEADER";
static void
pcf_${return}_(Interp *interpreter, PMC *self)
{
    $ret_type (*pointer)(void);
    $return_data
    $other_decl
    $call_state
    $extra_preamble

    pointer = <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	2275	2460	
==>x.pir', 'test_regex.pbc');
}

sub process {
    my ($input, $output) = @_;

    my $TEST;
    open($TEST, "$PARROT_EXE test_regex.pbc '$input' |");

    local $/;
    my $actual_output = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443552	443663	
==>],
                  "BODY" => "#line 114 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444567	444678	
==>],
                  "BODY" => "#line 114 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1420	1514	
==>elf->INTERNAL_ERROR("Undefined block!")
    unless defined $block;

  $self->INTERNAL_ERROR("Un <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1268	1362	
==>elf->INTERNAL_ERROR("Undefined block!")
    unless defined $block;

  $self->INTERNAL_ERROR("Un <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	6411	6627	
==>uplicate value for pop in rule $rule->{'name'}\n";
                } else {
                    $has_pop = 1;
                }
            } else {
                die "Invalid value for pop in rule $rule->{'name'}\n <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	9278	9510	
==>eLong ? "undef" : "U";
			} else {
			    $symbol = $TypeLong ? "unknown" : "?";
			}
			if ($TypeLong) {
			    $show .= $global ?
				"global_$symbol" : "local_$symbol";
			} else {
			    $show .= $global ?
				$symbol : lc $symbo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48104	48339	
==>NEXT|PARROT_JUMP_RESTART",
                  "NAME" => "bounds",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inlin <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	2119	2217	
==>er::Sortkeys = 1;
use Data::Dumper;
print Data::Dumper->Dump([$m],["*MATCH_OBJECT"]);
my $mini = mi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24260	24510	
==>EXT",
                  "NAME" => "yield",
                  "FLAGS" => "",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 32,
                  "ARGS" => [],
                  "BODY" => "#line 429 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	12043	12163	
==>_use($fail);
    my @ops;
    if (defined $name) {
        push @ops, "<rx_match>['$name'] = $uid";
    }
    return (@op <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	4960	5129	
==>text =~ m{^( \| | & | << | >> )(.*)$}x) {
      push @tokens, Jako::Token->new(
        $file, $line, 'infix-bit', undef, $1);
      $text = $2;
      next;
    }

    if <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977204	977534	
==>=> "inline",
                  "CODE" => 1097,
                  "ARGS" => [
                              "i",
                              "i",
                              "s",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	28851	28995	
==>e_point {
}

sub _op_real_part {
}

sub _op_imag_part {
}

sub _op_magnitude {
}

sub _op_angle {
}

sub _op_exact_inexact {
}

sub _op_inexact_e <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21300	21453	
==>l' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 66
		ACTIONS => {
			'NAME' => 12 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1639	1747	
==>L' => '}',

 'Data'  => "\n",
 '/Data' => "\n",

 'Verbatim'  => "\n{\\pard\\li#rtfindent##rtfkeep#\\plain\\s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	5	104	
==>oop.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subj <==
2	/Users/nnunley/parrot/lib/Test/More.pm	14752	14948	
==>ack

=head2 Diagnostics

If you pick the right test function, you'll usually get a good idea of
what went wrong when it failed.  But sometimes it doesn't work out
that way.  So here we have ways fo <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	36491	36611	
==>:

	( '<A HREF=">', '>>>">link</A>', "" )

In addition to the quote delimiters C<'>, C<">, and C<`>, full Perl quote-like <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439584	439875	
==>_pip(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440599	440890	
==>_pip(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54395	54512	
==>em = new Parse::RecDescent::Directive(
					      'my $oldskip = $skip; $skip='.$1.'; $oldskip',
					      $lookahead <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	14269	14414	
==>r     string.h
strspn      string.h
strstr      string.h
strtod      stdlib.h
strtof      stdlib.h
strtok      string.h
strtol      stdlib.h
strto <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6156	6358	
==>NS}{$$token}
                    :   exists($$actions{DEFAULT})
                        ?   $$actions{DEFAULT}
                        :   undef;
        }
        else {
            $act=$$actions <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5867	6063	
==>NS}{$$token}
                    :   exists($$actions{DEFAULT})
                        ?   $$actions{DEFAULT}
                        :   undef;
        }
        else {
            $act=$$actions <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9598	9785	
==>);
      my $kind = $token->text;

      my $prefix;

      if ($last_token->is_label) {
        $prefix = $last_token->text;
      }

      $self->require_open_paren;

      my $left  = J <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	47817	48095	
==>inds of start-codes
        |
        (\ >{2,})       # $3: end-codes of the type " >>", " >>>", etc.
        |
        (\ ?>)          # $4: simple end-codes
        |
        (               # $5: stuff containing no start-codes or end-codes
          (?:
            [^A-Z\ >] <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	14333	14453	
==>f func
	    # but can't create namespace yet
	    my $gn = "def_arg_" . ($n-$i-1);
	    print <<EOC;
	# $gn $g
	store_glo <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	3812	3934	
==>ir->file_exists_with_name($name);
    }
    
    return;
}

=item C<file_for_perl_module($module)>

Returns the Perl module <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4186	4353	
==>al_exception(1, "illegal opcode in switch core\\n");
	    break;
	} /* switch */
END_C
    for (my $i = 0; $i < $self->{split_count}; $i++) {
	$c .= <<END_C;
    } /* s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	272	402	
==>use strict;
eval "use warnings";

package Jako::Construct::Statement::Call;

use Carp;

use base qw(Jako::Construct::Statement);

s <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	18906	19046	
==>Test}++;

    $self->{Test_Results}[$self->{Curr_Test}-1] = &share({
        'ok'      => 1,
        actual_ok => 0,
        name      => '', <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	20164	20289	
==>ws how to test the language implementation
                require "Parrot/Test/$language.pm";
                my $class = "Pa <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	7429	7564	
==>)\[//
                and return $parser->_LongStringLexer($1);

            s/^([A-Z_a-z][0-9A-Z_a-z]*)//
                and retur <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	18196	18361	
==>duction: ['
					  . $self->describe . ']},
					  Parse::RecDescent::_tracefirst($_[1]),
					  q{' . $rule ->{name}. '})
						if defined $::RD_TRACE;').'
		my $thi <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	12400	12547	
==>e code first
            if ($code_f !~ /\.pbc$/) {
                write_code_to_file($code, $code_f);
            }

            my $args = $ENV{T <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035683	1035787	
==>me);\n    if (!result) {\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not fou <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036847	1036951	
==>me);\n    if (!result) {\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not fou <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	3051	3288	
==>>{symbol}\n";
    }

    sub visitIncrOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  inc $op->{result}->{symbol}\n";
    }

    sub visitFindGlobalOp {
        my $s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	381	486	
==>ase qw(Jako::Construct::Declaration);

use Jako::Construct::Type;


#
# new()
#

sub new
{
  my $class = s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	381	486	
==>ase qw(Jako::Construct::Declaration);

use Jako::Construct::Type;


#
# new()
#

sub new
{
  my $class = s <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	59977	60085	
==>y> context, the C<$@> variable is set.
Accessing C<$@-E<gt>{error}> returns one of the error diagnostics list <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	3857	4016	
==>et;

Reinitializes the Test::Builder singleton to its original state.
Mostly useful for tests run in persistent environments where the same
test might be run mu <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	14381	14471	
==>onstruct::Block::Loop::Continue->new($parent_block, $peer_block);
        $self->push_block <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	1109	1276	
==>ount = $self->{builder}->current_test() + 1;

        # These are the thing that depend on the actual Bc implementation
        my $out_fn    = $self->get_out_fn( $coun <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	58	162	
==>.02';
use Pod::Simple ();
BEGIN {@ISA = ('Pod::Simple')}

use strict;

use Carp ();

BEGIN { *DEBUG = \&P <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	57	161	
==>.02';
use Pod::Simple ();
BEGIN {@ISA = ('Pod::Simple')}

use strict;

use Carp ();

BEGIN { *DEBUG = \&P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	371361	371449	
==>type != enum_class_ParrotIO)\n\treal_exception(interpreter, NULL, PIO_ERROR,\n\t\t\"Canno <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760504	760671	
==>p",
                              "p"
                            ],
                  "BODY" => "#line 286 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}}->vtable->get_pmc(in <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	27935	28161	
==>_start => $self->dbprint("-> $desc ENTER\n"),
                       @ops,
                       $self->dbprint(".. $desc NEXT\n"),
           );
}

################################ Main loop #######################

sub rewri <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	2900	3086	
==>ods, $name );
        if( $base_type eq 'HASH' ){
            $elem = "{'${class}::$name'}";
        }
        elsif( $base_type eq 'ARRAY' ){
            $elem = "[$cnt]";
            ++ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886444	886874	
==>e_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1003,
                  "ARGS" => [
                              "s",
                              "sc",
                              " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106186	1106286	
==>"src/ops/experimental.ops\"\n    int typ = {{\@2}};\n    if (typ < 1 || typ >= interpreter->n_vtable_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107162	1107262	
==>"src/ops/experimental.ops\"\n    int typ = {{\@2}};\n    if (typ < 1 || typ >= interpreter->n_vtable_ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10855	10977	
==>op = shift;
    return join('', map { $_->render() } @{ $op->{args} });
}

sub Regex::Ops::Tree::alternate::needparen { 1 } <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	4145	4374	
==>reachable
                        $dest->{reachable} = 1;
                        last; # Stop tracing through jumps
                    } else {
                        die "untargeted label $dest->{label}";
                    } <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	42354	42498	
==>value to tweak.\n";
          }
        }
        
        unshift @stack, $treelet->[$i]; # recurse
        next;
      } elsif($treelet->[$i][0 <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	18765	18877	
==>$self->{flags}{const_too} ?
        'VTABLE_HAS_CONST_TOO' : $self->{flags}{is_const} ?
	  'VTABLE_IS_CONST_FLAG' <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1676	1826	
==>ot, $expected, $depends, :negate);
}

## like

sub like (Str $got, Rule $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test <==
2	/Users/nnunley/parrot/lib/Test/More.pm	21569	21704	
==>l and $why.  Perhaps it's
because you haven't fixed a bug or haven't finished a new feature:

    TODO: {
        local $TODO = "URI::Ge <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	658	793	
==>[eE]/)) { # Dashes could be a neg. expt
      $token .= $ch;
    } elsif($ch eq '?' and
            $token =~ /^[a-z]/) { # Question mar <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14652	14786	
==>tate 27
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' <==
2	/Users/nnunley/parrot/languages/urm/urm-old.pl	1502	1624	
==>ter{$2} $3 1;");
	if ($register{$1} < 0) { $register{$1} = 0 }
	$pos++;
    }
    elsif ($line =~ / *goto *(\d+)/) {
	$pos= <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	8134	8291	
==>how {
		    my ($show, $Got, $got) = @_;
		    if (defined $Got) {
			if ($Got == $got) {
			    $$show++;
			} else {
			    $$show = 0;
			}
		    }
		}
		w <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	20032	20179	
==>C(c);
    return NULL;
}

TAIL
}

=begin example

This is the template thing

static void pcf_$funcname(Interp *interpreter, PMC *self) {
    $ret_t <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	4371	4519	
==>pecified type.

=cut

sub is_of_type
{
	my $self = shift;
	my $type = shift;
	
	return 0 unless defined $type;
	
	return $self->type eq $type;
}

=it <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613954	614245	
==>}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597142	597431	
==>}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2113	2366	
==>,      # backspace
                last;
            s/^\\f//
                and $str .= "\f",      # form feed
                last;
            s/^\\n//
                and $str .= "\n",      # new line
                last;
            s/^\\r <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3627	3880	
==>,      # backspace
                last;
            s/^\\f//
                and $str .= "\f",      # form feed
                last;
            s/^\\n//
                and $str .= "\n",      # new line
                last;
            s/^\\r <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	62138	62255	
==>nerator = new pirVisitor($FH);
#    my $generator = new pirVisitor(\*STDOUT);
    print {$FH} $generator->{prologue} <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	53821	53923	
==>ically reset to 1 (under C<-w>, a warning is issued if the argument 
has to be reset).

=item 4.

A val <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196480	196752	
==>UMCMP) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	2301	2415	
==>'op') <= $length) {
	my ($src, $is_branch);

        $pc       = $new_pc;
	$op_code  = unpack "x$offset l", $pf->by <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86909	87397	
==>S" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 108,
                  "ARGS" => [
                              "p",
                              "p",
                              "p",
                              "s"
                            ],
                  "BODY <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44916	45282	
==>" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			'DO' => 210,
			"<=" => 85,
			'OR' => 84,
			">" => 86
		}
	},
	{#State 206
		DEFAULT => -4,
		GOTOS => {
			'block' => 211,
			'chunk' => 57
		}
	},
	{#State 207
		DEFAULT => -25
	},
	{#State 208
		DEFAULT => -97
	},
	{#State 209
		DEFAUL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798320	798636	
==>t",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 901,
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799224	799712	
==>t",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 902,
                  "ARGS" => [
                              "p",
                              "kc",
                              "nc"
                            ],
                  "BODY" <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29078	29186	
==>desc=~s/}/\\}/g;
	$desc=~s/{/\\{/g;

	bless 
	{
		"pattern"     => $pattern,
		"lookahead"   => $_[2],
		"lin <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31182	31286	
==>desc=~s/}/\\}/g;
	$desc=~s/{/\\{/g;

	bless 
	{
		"pattern"   => $pattern,
		"lookahead" => $_[2],
		"lin <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	4154	4342	
==>lde'   , 209,
 'Ograve'   , 210,
 'Oacute'   , 211,
 'Ocirc'    , 212,
 'Otilde'   , 213,
 'Ouml'     , 214,
 'times'    , 215,
 'Oslash'   , 216,
 'Ugrave'   , 217,
 'Uacute'   , 218,
 'Uc <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53307	53462	
==>and $prod->additem($item)
				      or  _no_rule($code,$line);
			}
			elsif ($grammar =~ m/$RESYNCMK/gco)
			{
				_parse("a resync to newline marker", $af <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4485	4604	
==>lf->{args} } == 0) {
        delete $self->{name};
        delete $self->{args};
        return $self->op('nop', [], %$s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5622	5741	
==>lf->{args} } == 0) {
        delete $self->{name};
        delete $self->{args};
        return $self->op('nop', [], %$s <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	760	942	
==>>.

=cut

################################################################################

use strict;
use warnings;

use Data::Dumper;
use Text::Wrap;
use File::Find;
use File::Base <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4555	4676	
==>ooks.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If the destination is not going to b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023371	1023461	
==>time_t) {{\@2}};\n  Parrot_localtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024221	1024311	
==>time_t) {{\@2}};\n  Parrot_localtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786530	786962	
==>et",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 888,
                  "ARGS" => [
                              "i",
                              "p",
                              "kic <==
2	/Users/nnunley/parrot/config/inter/make.pm	1406	1556	
==>ess ($prog) {

            # fall back to default
            $self->set_result('no');
            return $self;
        }
    }

    if ($conf->option <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	21306	21489	
==>e];
            }
            $self->{mmds} = @mmds;
        }
    }
    my $methlist = join(",\n        ", @meths);
    my $mmd_list = join(",\n        ", map {
        "{ $_->[0], $_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	9011	9124	
==>, max_token => 50, desperate => 1, @_)
}
sub get_version     { shift->_get_titled_section(
   'VERSION',
    max_t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60196	60647	
==>{
                  "JUMP" => 0,
                  "NAME" => "warningsoff",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 78,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 914 \"src/ops/core.ops\"\n  PARROT_WARN <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60845	61272	
==>{
                  "JUMP" => 0,
                  "NAME" => "warningsoff",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 79,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 914 \"src/ops/ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2436	2528	
==>item_bullet { $_[0]->emit_par( 0) }
sub end_item_number { $_[0]->emit_par( 0) }
sub end_item_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2004	2096	
==>item_bullet { $_[0]->emit_par( 0) }
sub end_item_number { $_[0]->emit_par( 0) }
sub end_item_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	540	644	
==>irectives       = qw(head1 head2 head3 head4 item over back); 
%Known_directives       = map(($_=>'Plain' <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	7384	7538	
==>constant (in-line)
        #   nc   Number constant index
        #   pc   PMC constant index
        #   sc   String constant index
        #   kc   Key c <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	334	431	
==>n> knows all kinds of stuff about the contents of
the distribution.

This is a subclass of C<Parro <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	3851	3945	
==>st', Attributes => { type => $self->type->name, name => $self->name } });
  $self->value->sax($ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33996	34106	
==>$ret_def = "$type ret_val;";
        $func_ret = $self->gen_ret($method->{type});
        $ret = "return ret_va <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38958	39068	
==>$ret_def = "$type ret_val;";
        $func_ret = $self->gen_ret($method->{type});
        $ret = "return ret_va <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17680	17819	
==>AULT => -93
	},
	{#State 47
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => <==
2	/Users/nnunley/parrot/Configure.pl	7455	7626	
==>etection feature.
                        It will also be disabled if you specify any other
                        of the following ICU options.

   If you do not have a f <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	115	214	
==>ullParserToken');
use strict;

sub new {  # Class->new(tagname, optional_attrhash);
  my $class = sh <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	47959	48146	
==>simple end-codes
        |
        (               # $5: stuff containing no start-codes or end-codes
          (?:
            [^A-Z\ >]+
            |
            (?:
              [A-Z] <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	18008	18174	
==>ck: if $matchcount == 0 goto lastback
#               $matchcount--
#               goto R.back
#        check: if $matchcount < min goto back
#         next:
#
# to m <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5281	5375	
==>start_element({ Name => 'assign' });
  $dest->sax($handler);
  $handler->start_element({ Name = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3344	3438	
==>start_element({ Name => 'assign' });
  $dest->sax($handler);
  $handler->start_element({ Name = <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9303	9412	
==>od as an XML Name symbol:
      Carp::croak "\"$new_code\" isn't a valid element name"
        if $new_code =~ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10567	10676	
==>od as an XML Name symbol:
      Carp::croak "\"$new_code\" isn't a valid element name"
        if $new_code =~ <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	1187	1297	
==>Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wcast-align -Wwrite-strings -Waggregate-return -Winli <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49392	49497	
==>ror,$line);
				$item = new Parse::RecDescent::Directive('$commit=0;1',
								  $lookahead,$line,"<uncom <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	8134	8241	
==>TURN_${CURIC}
if "${CURIC}" == "73" goto post_call_HAS_RETURN_${CURIC}
goto post_call_NO_RETURN_${CURIC}
pos <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13594	13702	
==>~ /<rulevar/
				? "a <rulevar> (which acts like an unconditional <reject> during parsing)"
		         : $ite <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	5288	5546	
==>ext' )
    {
        my $text = $next->text;
        my $dist = Parrot::Distribution->new;
        
        # Only link to files that will have HTML pages.
        
        if ( $dist->relative_path_is_file($text)
            # A little bit of a hack to avoid <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11412	11696	
==>lse print/interpolate $text...

=head1 DESCRIPTION

This module provides things that are useful in decoding
Pod EE<lt>...E<gt> sequences.  Presumably, it should be used
only by Pod parsers and/or formatters.

By default, Pod::Escapes exports none of its symbols.  But
you can request a <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9664	9762	
==>oken(${ASSEMBLY}, ${ARG0})

# If it's a call to instantiate, need to knock off first arg.
if "${CUR <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7178	7276	
==>oken(${ASSEMBLY}, ${ARG0})

# If it's a call to instantiate, need to knock off first arg.
if "${CUR <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8950	9044	
==>t method that uses find_symbol() to locate a matching
symbol, and then returns that symbol's sc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060120	1060246	
==>ame\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061025	1061151	
==>ame\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22486	22599	
==>elf->_add_inst(''           ,'mod'   ,[$temp_0,$temp_0,$temp_1]);
  $self->_add_inst(''           ,'eq'    ,[$temp <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22987	23100	
==>elf->_add_inst(''           ,'mod'   ,[$temp_0,$temp_0,$temp_1]);
  $self->_add_inst(''           ,'eq'    ,[$temp <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	830	1062	
==>elf, $tree, $ctx) = @_;
    return $self->convert($tree->pat, $ctx);
}

sub convert_rx_alt {
    my ($self, $tree, $ctx) = @_;
    return op('alternate' => [ map { $self->convert($_, $ctx) } @{ $tree->branches } ]);
}

sub convert_rx <==
2	/Users/nnunley/parrot/config/init/defaults.pm	448	552	
==>ir
use Parrot::Configure::Step;

$description = q{Setting up Configure's default values};

@args = qw(deb <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1084	1213	
==>=> $out_f, STDERR => $out_f );
    unless ($pass) {
        my $file = Parrot::Test::slurp_file($out_f);
        $pass =$self->{bu <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1125	1254	
==>=> $out_f, STDERR => $out_f );
    unless ($pass) {
        my $file = Parrot::Test::slurp_file($out_f);
        $pass =$self->{bu <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	1908	2102	
==>r the section.

=cut

sub html_link
{
    my $self = shift;
    my $path = shift;
    
    if ( $path )
    {
        $path = join('/', $path, $self->{INDEX_PATH});
    }
    else
    {
        $ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7394	7511	
==>ON..GOTO   200! and then Oats..
t=2
on t goto 100, 200, 300
print "No match\n"
FIN:
for i = 1 to 3
	on i gosub oats, p <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19677	19794	
==>ON..GOTO   200! and then Oats..
t=2
on t goto 100, 200, 300
print "No match\n"
FIN:
for i = 1 to 3
	on i gosub oats, p <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	928	1145	
==>r various bits of information needed to generate the C
code. Each creates a different type of run loop.

=over

=item C<C>

Create the function-based (slow or fast core) run loop.

=item C<CGoto>

Create the C<goto> ru <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4117	4210	
==>assing arrays (expect 12)
function arrfunc(x())
	print x(4)
	arrfunc=55
end function
dim g(10) <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15057	15150	
==>assing arrays (expect 12)
function arrfunc(x())
	print x(4)
	arrfunc=55
end function
dim g(10) <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48586	48698	
==>MOST/gco)
					{ $maxrep = $1 }
				elsif ($grammar =~ m/$MANY/gco)
					{ }
				elsif ($grammar =~ m/$BADREP/gco <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6032	6166	
==>howCurToken."\n";
			};

            $act=   exists($$actions{ACTIONS}{$$token})
                    ?   $$actions{ACTIONS}{$$token <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5747	5877	
==>howCurToken."\n";
			};

            $act=   exists($$actions{ACTIONS}{$$token})
                    ?   $$actions{ACTIONS}{$$token <==
2	/Users/nnunley/parrot/tools/dev/symlink.pl	2382	2495	
==>e $srcfile) {
		print "$dstfile\n" if $v;
		if (defined $readlink) {
		    unless (unlink($dstfile)) {
			warn "$s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744259	744386	
==>"#line 179 \"src/ops/set.ops\"\n  {{\@1}} = string_from_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745025	745152	
==>"#line 179 \"src/ops/set.ops\"\n  {{\@1}} = string_from_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712754	712947	
==>preter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713861	714054	
==>preter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23046	23234	
==>)p->vtable->invoke(interpreter, p, dest);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25485	25673	
==>)p->vtable->invoke(interpreter, p, dest);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	10276	10514	
==>if ($c =~ /^[_a-zA-Z]/ && !$names{$c}) {	# True, False ...
	    print <<EOC;
	.local pmc $c $cmt
	$c = new .$c
EOC
	    $names{$c} = 1;
	}
	else {
	    my $typ = $DEFVAR;
	    if (is_imag($c)) {
		$typ = '.Complex';
		$c = qq!"$c"!;
	    } <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	702	796	
==>x. Defaults to '/usr'.

=item C<bindir>

The executables directory. Defaults to '/usr/bin'.

=i <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	931	1025	
==>x. Defaults to '/usr'.

=item C<bindir>

The executables directory. Defaults to '/usr/bin'.

=i <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10257	10347	
==>e5,/* 46 */
HH,$c,$d,$a,$b,$_[19],16,0x1fa27cf8,/* 47 */
HH,$b,$c,$d,$a,$_[6],23,0xc4ac5665 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	18957	19128	
==>[ $_[1] ]); }
	],
	[#Rule 7
		 'regex1', 1,
sub
#line 103 "lib/Regex/Grammar.y"
{ return $_[1]; }
	],
	[#Rule 8
		 'regex1', 2,
sub
#line 105 "lib/Regex/Grammar.y"
{ return <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61172	61311	
==>rule("pattern terminal",$line,"/$1/");
		}
		elsif ($grammar =~ m/(?=$MTOKEN)/gco
			and do { ($code, undef, @components)
					= extract_quo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101796	101886	
==>" => "#line 130 \"src/ops/bit.ops\"\n  string_bitwise_not(interpreter, {{\@2}}, &{{\@1}});\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102567	102657	
==>" => "#line 130 \"src/ops/bit.ops\"\n  string_bitwise_not(interpreter, {{\@2}}, &{{\@1}});\ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48875	49000	
==>ves cannot have
					       a maximum repetition of zero, nor can they have
					       negative components in their ranges.") <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	6455	6669	
==>'}\n";
                } else {
                    $has_pop = 1;
                }
            } else {
                die "Invalid value for pop in rule $rule->{'name'}\n";
            }
        }

        # argu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	675999	676089	
==>DY" => "#line 473 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_integer(interpreter, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676779	676869	
==>DY" => "#line 473 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_integer(interpreter, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880097	880378	
==>"CODE" => 997,
                  "ARGS" => [
                              "s",
                              "sc",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  S <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	55334	55432	
==>or string).
The key of that element is the name of a class into which the successful
return value o <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	234	322	
==>oviding common path
logic for C<Parrot::IO::File> and C<Parrot::IO::Directory>.

Instance <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787981	788093	
==>{\@2}}->vtable->get_number_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788891	789003	
==>{\@2}}->vtable->get_number_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49988	50191	
==>rule("<perl_quotelike>",$line);
			}
			elsif ($grammar =~ m/$CODEBLOCKMK/gco)
			{
				_parse("an perl codeblock marker", $aftererror,$line);
				$item = new Parse::RecDescent::Directive(
					'Text::Bal <==
2	/Users/nnunley/parrot/config/init/headers.pm	45	146	
==>n.
# $Id: /parrot/config/init/headers.pm 20700 2006-06-26T19:26:45.696181Z bernhard  $

=head1 NAME

c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216940	217053	
==>le->get_number(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217880	217993	
==>le->get_number(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	2705	2951	
==>]
    tools/build/ops2pm.pl                           [devel]
    tools/build/pbc2c.pl                            [devel]
    tools/build/revision_c.pl                       [devel]
    vtable.tbl                                      [devel]
);

o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549080	549348	
==>= {{\@2}};\n  FLOATVAL q = 1;\n  while(i>0) {\n    q = q*i;\n    i--;\n  }\n  {{\@1}} = q;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	9430	9586	
==>\"=encoding $1\"\n";

  my $e    = $1;
  my $orig = $e;
  push @{ $self->{'encoding_command_reqs'} }, "=encoding $orig";

  my $enc_error;

  # Cf.   perldoc <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	14681	14812	
==>ew full smoke report</a>
            </td>
          </tr>
        </tmpl_loop>
      </tmpl_loop>
    </tmpl_loop>
  </table>
</bod <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822334	822421	
==>y->entry_type != STACK_ENTRY_INT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wron <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823402	823489	
==>y->entry_type != STACK_ENTRY_INT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wron <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	24334	24496	
==>rfail => aop('popindex', [ '<tmp>', $lastback ]),
                        aop('goto', [ $R_back ]),
               $next =>
              );

    return ($back, @o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	709806	710044	
==>=> [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 732 \"src/ops/pmc.ops\"\n  {{\@1}} = {{\@2}}->vtable->mro;\n  {{+=3}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030749	1031074	
==>erpreter, {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sizeof",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029907	1030133	
==>erpreter, {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PAR <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	1576	1721	
==>.)*][]mg;

    # Strip code blocks
    $text =~ s[^{.+?^}][]msg;

    # Split on paragraphs
    my @funcs = split /\n{2,}/, $text;

    # If it do <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765473	765715	
==>E" => 864,
                  "ARGS" => [
                              "ic",
                              "nc"
                            ],
                  "BODY" => "#line 320 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_RE <==
2	/Users/nnunley/parrot/lib/Test/More.pm	25308	25482	
==>or hash instead 
of a reference to it
WARNING
        chop $msg;   # clip off newline so carp() will put in line/file

        _carp sprintf $msg, scalar @_;

	return $Test->o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050949	1051236	
==>" => 1174,
                  "ARGS" => [
                              "p",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 172 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	1484	1745	
==>file: $!\n";
print $fh $output;
close $fh;


##############################################################################
# Subroutines.
##############################################################################

# This parses the input file, extracting ea <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4108	4214	
==>nshift @_ => Parrot::Test::PGE::_generate_glob_for($target, $pattern, 1);

    goto &Parrot::Test::pir_outp <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2644	2747	
==>_element({ Name => 'cond', Attributes => { kind => $cond } });
    $handler->start_element({ Name => 'bl <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3408	3511	
==>_element({ Name => 'cond', Attributes => { kind => $cond } });
    $handler->start_element({ Name => 'bl <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2210	2354	
==>END__

=head1 NAME

Pod::Simple::DumpAsText -- dump Pod-parsing events as text

=head1 SYNOPSIS

  perl -MPod::Simple::DumpAsText -e \
   "exit P <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5271	5365	
==>$handler->start_element({ Name => 'assign' });
  $dest->sax($handler);
  $handler->start_elemen <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3334	3428	
==>$handler->start_element({ Name => 'assign' });
  $dest->sax($handler);
  $handler->start_elemen <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323800	323990	
==>"
                            ],
                  "BODY" => "#line 139 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (UINTVAL)(Parrot_UInt4) ({{\@2}}->vtable->get_integer(interpreter, {{\@2}}));\n  {{ <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	143	260	
==>strict;

use base 'Parrot::Test::Bc';

sub get_out_fn {
    my $self = shift;
    my ( $count, $options ) = @_;

    r <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Posix.pm	141	258	
==>strict;

use base 'Parrot::Test::Bc';

sub get_out_fn {
    my $self = shift;
    my ( $count, $options ) = @_;

    r <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	3999	4159	
==>ration system's data,
and writes the results to specified target file.

=cut

sub genfile
{
    my ($source, $target, %options) = @_;

    open my $in, '<', $sou <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	25699	25826	
==>ir->code($namespace, $rule, 0);
}

1;

package Parse::RecDescent::Token;

sub sethashname { $_[0]->{hashname} = '__PATTERN' . ++ <==
2	/Users/nnunley/parrot/config/init/defaults.pm	6058	6218	
==>main::parrot_version[2],
        DEVEL   => (-e 'DEVELOPING' ? '-devel' : ''),

        configdate => scalar localtime,
        PQ         => "'",
        dquote <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	597	734	
==>le($expr, $ctx);
}

sub tree_to_list {
    my ($tree, $ctx, $pass_label, $fail_label, %options) = @_;

    $options{state} ||= global_stat <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	8650	8917	
==>rn 1;
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

sub do_beginning {
  my $self = $_[0];

  my $title = $self->get_short_title();
  unless($self->content_seen) {
    DEBUG and print "No content seen in search for title.\n";
    retu <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	34283	34530	
==>tack)->[1];
    my $ag = (pop @stack)->[1];
    print <<EOC;
	\t $cmt
	set $dest\[ $vv .. $ww ], $ag
EOC
    #push @stack, [-1, $dest, 'P'];
}
sub STORE_SLICE_plus_0 {
    return Store_Slice(@_, 0);
}
sub STORE_SLICE_plus_1 {
    return Store_Slice <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033413	1033518	
==>on(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    VTABLE_set_p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034511	1034616	
==>on(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    VTABLE_set_p <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8148	8260	
==>integer'-hint.

This release was made by Christian Lackas <delta@clackas.de>.

=cut

__DATA__
FF,$a,$b,$c,$d,$_[4 <==
2	/Users/nnunley/parrot/config/gen/revision.pm	87	182	
==>2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/gen/revision.pm - Parrot's configure re <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	46221	46317	
==>a here document is rarely
a contiguous substring. For example, a typical piece of code using
here <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86248	86422	
==>,
                              "sc"
                            ],
                  "BODY" => "#line 1208 \"src/ops/core.ops\"\n  PMC * const compreg_hash = VTABLE_get_pmc_k <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727925	728398	
==>=> ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "io"
                               ],
                  "TYPE" => "function",
                  "CODE" => 816,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 57 \"src/ops/set.ops\"\n   PMC * const temp = {{\@1}};\n   {{\@1}} = {{\@2} <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	1761	1880	
==>nt stack to register mapper\n";
}
sub post_store {
	die "post_store not implemented for current stack to register mapper <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	6188	6400	
==>f all the method names containing vtable section. Called
from C<init()>.

=cut

sub get_vtable_section() {
    my $self = shift;

    #  make a hash of all method names containing vtable section
    my $vt = $self <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	5561	5665	
==>iter goto loop_end_2d
    value_type = typeof value
    if newline goto print_newline
    if value_type ! <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3066	3205	
==>de, but goto OFFSET(n) returns a pointer into the
prederef array. (see expr_pop(), above, for a description of why this
works.)

=cut

sub e <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21319	21439	
==>($::RD_NO_TRACE?'':'
			Parse::RecDescent::_trace(q{<<Didn\'t match action>> (return value: [undef])})
					if defined $: <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5749	5877	
==>e many libs
        my %libs = %{ $class->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There should be at m <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5960	6088	
==>e many libs
        my %libs = %{ $class->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There should be at m <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2306	2465	
==>tcl co -d $DIR tcl/tests
END_COMMAND

    return ($rc == 0) ; # just care if it failed, not howm
}

##
## my $var = choose(@vars)
##
## Select the first defined <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9613	9733	
==>0
#DBG>			and	print STDERR "**At eof: aborting.\n";
				return(undef);
			};

#DBG>			$debug & 0x10
#DBG>		and	prin <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9181	9295	
==>0
#DBG>			and	print STDERR "**At eof: aborting.\n";
				return(undef);
			};

#DBG>			$debug & 0x10
#DBG>		and	prin <==
2	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	597	790	
==>be done with:
#    parrot.exe out.pbc
#
open(T, ">merged_basic.pasm") || die;

print T <<'EOF';
	branch MAIN

.include "stackops.pasm"
.include "alpha.pasm"
.include "dumpstack.pasm"
.include "t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818405	818581	
==>ZE later\n   */\n  {{=0,+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JU <==
2	/Users/nnunley/parrot/lib/File/Which.pm	4672	4952	
==>e different extensions.

=head2 Windows 9x and other ancient Win/DOS/OS2

This set of operating systems don't have the C<PATHEXT> variable, and usually
you will find executable files there with the extensions C<.exe>, C<.bat> and
(less likely) C<.com>. C<File::Which> uses this har <==
2	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	1957	2077	
==>close(T);

unlink "basic.pbc";
system("../../../parrot -o basic.pbc merged_basic.pasm");
system("../../../parrot basic.pb <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5523	5751	
==>next if ($entry->[4] =~ /MMD_/);
    $macros .= <<"EOM";
        \"__$entry->[1]\",
EOM
    }
    $macros .= <<"EOM";
    NULL
};

#endif /* PARROT_IN_OBJECTS_C */

/* Need this for add, subtract, multiply, divide, mod, cmod, bit <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	13534	13641	
==>o>,</td>
	      <td class="num tests_skipped"><tmpl_var name=skipped>,</td>
	      <td class="num tests_unex <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	5338	5509	
==>{"calls"}} = ();
	$_[0]->{"changed"}  = 0;
	$_[0]->{"impcount"}  = 0;
	$_[0]->{"opcount"}  = 0;
	$_[0]->{"vars"}  = "";
}

sub DESTROY {}

sub hasleftmost($$)
{
	my ($self, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434488	434577	
==>@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435503	435592	
==>@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151024	151117	
==>2 \"src/ops/cmp.ops\"\n  if (0 == string_equal(interpreter,\n      {{\@1}}->vtable->get_string <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152002	152095	
==>2 \"src/ops/cmp.ops\"\n  if (0 == string_equal(interpreter,\n      {{\@1}}->vtable->get_string <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	12970	13062	
==>line 231 \"src/ops/core.ops\"\n  opcode_t * loc;\n  stack_push(interpreter, &CONTEXT(interpre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13814	13906	
==>line 231 \"src/ops/core.ops\"\n  opcode_t * loc;\n  stack_push(interpreter, &CONTEXT(interpre <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	53	206	
==>: /parrot/lib/Parrot/Docs/Section/Info.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Section::Info - Project info documenta <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5155	5306	
==>h};
        print {$FH} "  ";
        if ( exists $op->{result} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $fi <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6187	6338	
==>h};
        print {$FH} "  ";
        if ( exists $op->{result} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $fi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79456	79558	
==>a PMC with it so we can get and set the value */\n      {{\@1}} = pmc_new(interpreter, enum_class_UnMan <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80977	81079	
==>a PMC with it so we can get and set the value */\n      {{\@1}} = pmc_new(interpreter, enum_class_UnMan <==
2	/Users/nnunley/parrot/lib/Test/More.pm	35234	35472	
==>threads;
    use Test::More;

This may cause problems:

    use Test::More
    use threads;


=item Test::Harness upgrade

no_plan and todo depend on new Test::Harness features and fixes.  If
you're going to distribute tests that use no_pl <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	1860	1963	
==>ata is not an API">.

=back

=head1 RULES

You can sometimes use C preprocessor defines to shorten the A <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1761	1867	
==>reach my $x (@_) {
    # Escape things very cautiously:
    $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1864	1970	
==>reach my $x (@_) {
    # Escape things very cautiously:
    $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	2932	3067	
==>okens (at most, given the possibility of running of the end) are
# returned. If a count is not given, 1 is inferred.
#

sub get
{
  my $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6896	7005	
==>k {
    my ($self) = @_;
    my @ops;
    if ($self->{DEBUG}) {
	push @ops, (qq(print "PUSHED ).(@_>1?$_[1]:"m <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6546	6655	
==>k {
    my ($self) = @_;
    my @ops;
    if ($self->{DEBUG}) {
	push @ops, (qq(print "PUSHED ).(@_>1?$_[1]:"m <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	55794	55892	
==>n empty list or an undefined value (in the case of a subroutine extractor), it is
assumed to have f <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	14396	14491	
==>CODE<<CASE_SETUP;
	goto CASE_${jump}_FIN
CASE_${jump}_${incase}:
	new P12, .PerlArray   # OR
	ne <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	254	379	
==>05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statement::Return;

use Carp;

use base qw(Ja <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	2773	2874	
==>which code is to be generated,
to dump info (PMC metadata).

This function is exported.

=cut

sub dyn <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	14557	14706	
==>doesn't
get you a space -- but $Code2USASCII{32} will).  It's
documented here just in case you might find it useful.

=back

=head1 CAVEATS

On Perl v <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561985	562261	
==>"Method '%Ss' not found\", {{\@3}});\n  }\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563069	563345	
==>"Method '%Ss' not found\", {{\@3}});\n  }\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	4407	4535	
==>, " lines\n";
      }

      $self->SUPER::parse_lines(@lines);
      
    } elsif(exists $self->{'source_arrayref'}) {
      DEB <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1440	1538	
==>return $self->{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/gets the transform's argum <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1049	1147	
==>return $self->{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/gets the transform's argum <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	43081	43189	
==>: \# (not the end of the q!) #'
	
	extract_quotelike '  "You said, \"Use sed\"."  '

	extract_quotelike ' s{( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1120	1245	
==>hile(($key,$value) = each %{$_[2]}) {
      unless($key =~ m/^~/s) {
        next if $key eq 'start_line' and $_[0]{'hide_line <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	695	816	
==>hile(($key,$value) = each %{$_[2]}) {
    unless($key =~ m/^~/s) {
      next if $key eq 'start_line' and $_[0]{'hide_line <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	48982	49338	
==>ack) {
        # We saw " >>>>" but needed nothing.  This is ALL just stuff then.
        DEBUG > 4 and print " But it's really just stuff.\n";
        push @{ $lineage[-1] }, $3;
        next;
      } elsif(!$stack[-1]) {
        # We saw " >>>>" but needed only ">".  Back pos up.
        DEBUG > 4 and print " And that's more than we needed to close simp <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	792	926	
==>s files. See also F<tools/dev/ops_renum.mak>.

=back

=head2 WARNING

Generating a C<Parrot::OpLib::core> module for a set of ops files <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	485	624	
==>he HTML docs. There may come a time when it is necessary to 
make C<file_class()> and C<directory_class()> dynamic so that different
file me <==
2	/Users/nnunley/parrot/languages/lua/luac.pl	784	940	
==>ing(s).\n";
}
if ( $parser->YYData->{verbose_info}
    and exists $parser->YYData->{nb_info} )
{
    my $nb = $parser->YYData->{nb_info};
    print "$n <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9596	9723	
==>_length {
    my ($self, $dest, $string) = @_;
    return ("$dest = length $string;");
}

sub output_arg {
    my ($self, $name, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	14297	14476	
==>'fail'} ]),
           $try_S => @S_ops,
                     aop('goto', [ $next ]),
            $back => aop('popindex', [ $lastback ]),
                     aop('goto', [ $try_S <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	65	154	
==>rot/Docs/Section.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Do <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	198	367	
==>IS

    use Parrot::IO::Directory;

=head1 DESCRIPTION

Use this to query and manipulate directories and their contents.

=head2 Class Methods

=over 4

=cut

package Par <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34448	34556	
==>e Parrot::Pmc2c::default;
use base 'Parrot::Pmc2c';
import Parrot::Pmc2c qw( gen_ret );

=item C<implements($ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	327	444	
==>t::Type::Number;

use base qw(Jako::Construct::Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  return bl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035723	1035823	
==>on(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    {{\@1}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036887	1036987	
==>on(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    {{\@1}} <==
2	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	480	618	
==>cut

# cache for repeated calls
# XXX this could be in BEGIN block
my ( $parrot_version, @parrot_version );

sub parrot_version
{
    if (d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	624276	624525	
==>,
                  "NAME" => "pic_callr__",
                  "FLAGS" => ":pic",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7395	7548	
==>b_desc)" : "";
        return ("set <rx_tmp>, <rx_stack>",
                $self->pushop . " <rx_stack>, $reg",
                $self->dbprint("PUSHED[\%< <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423042	423339	
==>"JUMP" => 0,
                  "NAME" => "listen",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423938	424235	
==>"JUMP" => 0,
                  "NAME" => "listen",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	3025	3192	
==>erate code to translate each library.
        my @libs = qw/
            mscorlib
            System
            Accessibility
            I18N.CJK
            I1 <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4279	4419	
==>py($src, $dest)
			    or die "Copy $src failed ($?)\n";
	
		    # Execute permissions on libraries is especially important on
			# some plat <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33341	33481	
==>e {
        push @opcodes2, @{ $expr->[1] };
        push @opcodes3, new AssignOp( $parser,
            'result' => $var,
            'ar <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	19296	19591	
==>c};
            if ( my $prefix = $builtin_language_prefix{$language} ) { 
                my $level = $builder->level();
                $builder->level( $level + 2 );
                my $test_func = "${package}::${prefix}_${meth}";
                $test_func->( @remaining );
                $b <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2358	2455	
==>rop_stack_depth[${PC}]
NOWT_TO_PROPOGATE:
PIR

	# We'll emit a label for every single instruction. <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2694	2950	
==>-----------

%Name2character_number = (
 # General XML/XHTML:
 'lt'   => 60,
 'gt'   => 62,
 'quot' => 34,
 'amp'  => 38,
 'apos' => 39,

 # POD-specific:
 'sol'    => 47,
 'verbar' => 124,

 'lchevron' => 171, # legacy for laquo
 'rchevron' => 187, # legac <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1007	1138	
==>bose_warning} );
}

sub Info {
    my $parser = shift;
    my ($msg) = @_;

    $msg ||= ".\n";

    if ( exists $parser->Y <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	866711	867185	
==>",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 984,
                  "ARGS" => [
                              "s",
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 232 \"src/ops/string. <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	4451	4608	
==>dex_html .= "<br>\n";
        }
    }
    
    return '' unless $index_html;
    
    if ( ! $self->{TEXT} and @short_desc )
    {
        my $short_desc = jo <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	749	924	
==>->{children}}, $expr;
  }
  elsif ($tokens->[$count] eq "`") {
    $temp = { children => [{ value => 'quasiquote' }] };
    my $expr;
    $count++;
    ($count, $expr) = _build <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7251	7372	
==>sub output_pushint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);

    if ($self->{DEBUG}) {
        my $d <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6893	7014	
==>sub output_pushint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);

    if ($self->{DEBUG}) {
        my $d <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2257	2379	
==>ual_arg_type = $arg_sym->type; 
    }
    else {
      $actual_arg_type = $args[$i]->type;
    }

    $self->INTERNAL_ERROR <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1957	2079	
==>ual_arg_type = $arg_sym->type; 
    }
    else {
      $actual_arg_type = $args[$i]->type;
    }

    $self->INTERNAL_ERROR <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2371	2497	
==>his returns the hashref that is the attribute set for this start-token.
This is useful if (for example) you want to ask what al <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101845	102087	
==>wise_not(interpreter, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102616	102858	
==>wise_not(interpreter, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	6160	6252	
==>ops->preamble($trans);
$text =~ s/\bops_addr\b/${bs}ops_addr/g;
print SOURCE $text;


if ($tr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101804	101893	
==>ine 130 \"src/ops/bit.ops\"\n  string_bitwise_not(interpreter, {{\@2}}, &{{\@1}});\n  {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102575	102664	
==>ine 130 \"src/ops/bit.ops\"\n  string_bitwise_not(interpreter, {{\@2}}, &{{\@1}});\n  {{+= <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	42017	42122	
==>ring to be processed). It returns
a reference to a subroutine which in turn takes a single argument (the t <==
2	/Users/nnunley/parrot/config/auto/va_ptr.pm	644	799	
==>DVA_TYPE_X86'); };

    if ($@ || cc_run() !~ /^ok/) {
        eval { cc_build('-DVA_TYPE_PPC'); };
        if ($@ || cc_run() !~ /^ok/) {
            die " <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	406	500	
==>lambda_count,
   %main_names, %namespace, %may_be_none);
$DIS = 'python mydis.py';
$DEFVAR = 'P <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15912	16022	
==>g($node,2));
  $self->_add_inst ('', 'set', [$return.'[1]',$value]);
  $self->_restore ($value);

  return $ret <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	4353	4489	
==>l_branches) = /\s*([^%]+)% of (\d+) branches taken at least once in file/;
            if ($total_branches) {
                my $covered <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389391	389755	
==>"
                               ],
                  "TYPE" => "function",
                  "CODE" => 453,
                  "ARGS" => [
                              "p",
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 464 \"src/ops/io.ops <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81383	81711	
==>"JUMP" => 0,
                  "NAME" => "compile",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82276	82604	
==>"JUMP" => 0,
                  "NAME" => "compile",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7760	7856	
==>s is true" else print "Oops (string)"
s$=""
if s$ then print "Should not happen (string)"
i%=0
if <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14747	14843	
==>s is true" else print "Oops (string)"
s$=""
if s$ then print "Should not happen (string)"
i%=0
if <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082009	1082490	
==>=> "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1201,
                  "ARGS" => [
                              "p",
                              "i",
                              "kc"
                            ],
                  " <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3420	3541	
==>is is wrong"
	t=t+1
loop until t>1

' Mathmagic
dim m(1), ba(1)
fa=-1
m0=48100
m=48000
w=-19
t=3
m(t)=-100
ba(fa+1)=9
w=w+ <==
2	/Users/nnunley/parrot/examples/benchmarks/oo3.pl	54	219	
==>1 .. 500000) {
	my $x = $o->[0];
	my $y = $o->[1];
}
print $o->[0], "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift;
    return bless [ 10 <==
2	/Users/nnunley/parrot/config/gen/platform.pm	4671	4841	
==>e) {
            local $/ = undef;
            print("\t$impl_file\n") if defined $verbose && $verbose == 2;
            open IN_C, "< $impl_file" or die "Can't open $impl <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	2458	2573	
==>);


# object part of this module
sub new {
	my $class = shift;
	bless {}, ref($class) || $class;
}

sub reset {
	my <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3878	3994	
==>id value for parameter '$prm'");
        $prm=unpack('@2A*',$prm);
		$$outhash{$prm}=$value;
	}
	for (@$mandatory <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3681	3793	
==>id value for parameter '$prm'");
        $prm=unpack('@2A*',$prm);
		$$outhash{$prm}=$value;
	}
	for (@$mandatory <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	2844	3018	
==>tting the same object.  This is called a singleton.  This is done so that
multiple modules share such global information as the test counter and
where test output is going.

I <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32884	33039	
==>ected_value == $para->[1]{'number'}) {
            DEBUG > 1 and print " Numeric item has the expected value of $expected_value\n";
            
          } <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	12764	12875	
==>atches undef and nothing else
        my $test = defined $got || defined $dont_expect;

        $self->ok($test, <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	13208	13319	
==>atches undef and nothing else
        my $test = defined $got || defined $dont_expect;

        $self->ok($test, <==
2	/Users/nnunley/parrot/config/auto/jit.pm	1046	1189	
==>$cpuarch, q{});
    }

    # This was added to convert 9000/800 to 9000_800 on HP-UX
    $cpuarch =~ s|/|_|g;

    # On OS X if you are using th <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1179	1272	
==>($out_f);
        $pass =$self->{builder}->is_eq( Parrot::Test::slurp_file($out_f), $output, $ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1220	1313	
==>($out_f);
        $pass =$self->{builder}->is_eq( Parrot::Test::slurp_file($out_f), $output, $ <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	2389	2483	
==>riptors. Element I<x> is the direction of argument C<< $args->[I<x>]
>>.

C<$labels> is a refer <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	830	951	
==>$count>0;
  die "Illegal register type"
    unless $type and $type=~/^[INPS]$/;
  my @temp;
  for(0..31) {
    next if $se <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	11150	11300	
==>lse {
	print <<EOC;
	\t$cmt
EOC
    }
    push @stack, [$n, $c, $typ];
}
sub LOAD_LOCALS {
    my ($n, $c, $cmt) = @_;
    # TODO $cmt
    my $pad = te <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469759	470269	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 539,
                  "ARGS" => [
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 385 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	27748	27880	
==>0], etc...

=cut

sub summary {
    my($self) = shift;

    return map { $_->{'ok'} } @{ $self->{Test_Results} };
}

=item B<details> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	5493	5604	
==>)(.*)$}x) {
      push @tokens, Jako::Token->new(
        $file, $line, 'exfix-arith', undef, $1);
      $text = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78353	78670	
==>,
                  "NAME" => "dlvar",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79873	80190	
==>,
                  "NAME" => "dlvar",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
2	/Users/nnunley/parrot/tools/build/revision_c.pl	34	120	
==>l Foundation.
# $Id: /parrot/tools/build/revision_c.pl 20350 2006-06-25T03:57:27.771662 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	241	339	
==>.*)/gm;
	print join("\n", @c), "\n====================== $tn\n" if @c;
	$tn++;
	open(OF, ">_testsui <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2755	2853	
==>NT "ERR this line in main routine should be skipped"
Label1:
   PRINT "5 back in module-level code" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16722	16820	
==>NT "ERR this line in main routine should be skipped"
Label1:
   PRINT "5 back in module-level code" <==
2	/Users/nnunley/parrot/Configure.pl	391	612	
==>ead2 Command-line Options

General Options

=over

=item C<--help>

Prints out a description of the options and exits.

=item C<--version>

Prints out the version number of Configure.pl and exits.

=item C<--verbose>

Tell <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3353	3470	
==>es => { kind => $kind } });
    $handler->start_element({ Name => 'block', Attributes => { kind => 'test' } });
    $h <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	4374	4552	
==>\=cut\\s*\$" />
      </context>

END

print <<END;
      <context name="string" attribute="String" lineEndContext="#pop">
          <RegExpr attribute="String" context="#stay" St <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	332	471	
==>=> \$output_file
) or usage();
$input_file = shift @ARGV;
usage() if !$input_file || @ARGV;

# Parse the file to get the methods.
my $fh;
op <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	11581	11693	
==>ss($op, $incexc, $lastback);
}

sub rewrite_charclass {
    my ($self, $op, $incexc, $lastback) = @_;

    my @op <==
2	/Users/nnunley/parrot/config/inter/lex.pm	1630	1755	
==>);
        return $self;
    }

    if ($conf->options->get('ask')) {
        $prog = prompt($prompt, $prog ? $prog : $conf->d <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	1644	1769	
==>);
        return $self;
    }

    if ($conf->options->get('ask')) {
        $prog = prompt($prompt, $prog ? $prog : $conf->d <==
2	/Users/nnunley/parrot/config/inter/make.pm	124	230	
==>$

=head1 NAME

config/auto/make.pm - make utility

=head1 DESCRIPTION

Determines whether C<make> is insta <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	474	579	
==>my $class = shift;

  my ($block, $type, $ident) = @_;

  confess "Block (". ref($block) . ") is not!" unl <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	324	419	
==>pt for dynamic PMCs

=head1 DESCRIPTION

This file is generated by F<config/gen/makefiles.pl> fr <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	290	385	
==>pt for dynamic PMCs

=head1 DESCRIPTION

This file is generated by F<config/gen/makefiles.pl> fr <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	2383	2531	
==>arder to compile using
        # the system headers, which may well be tuned to a non-strict
        # environment -- especially since we are using p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9379	9516	
==>alue> <op> <value>) {
    #
    #   <label>: while (<value> <op> <value>) {
    #            while (<value> <op> <value>) {
    #
 
    if <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811497	811611	
==>n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812399	812513	
==>n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  " <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	219	355	
==>y to put the tests in
$DIR = 't_tcl';

use Fatal qw{open};
use File::Spec;
use Getopt::Std;
use Text::Balanced; # XXX temporarily limit o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305077	305296	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305865	306084	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10160	10413	
==>for funky testing: print $fh '', rtf_esc("\x{4E4B}\x{9053}");
      }

    } elsif( $type eq 'end' ) {
      DEBUG > 1 and print "  -$type ",$token->tagname,"\n";
      if( ($tagname = $token->tagname) =~ m/^over-/s ) {
        DEBUG and print "Indenting <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	63	166	
==>arrot/Docs/File.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::File - Docs <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	12667	12787	
==>l $Level = $Level + 1;

    if( !defined $got || !defined $dont_expect ) {
        # undef only matches undef and nothing <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	13111	13231	
==>l $Level = $Level + 1;

    if( !defined $got || !defined $dont_expect ) {
        # undef only matches undef and nothing <==
2	/Users/nnunley/parrot/lib/Test/More.pm	6255	6426	
==>ession passes, a false one fails.  Very simple.

For example:

    ok( $exp{9} == 81,                   'simple exponential' );
    ok( Film->can('db_Main'),            'se <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	1842	1952	
==>kind   { return shift->{KIND};     }
sub type   { return shift->{TYPE};     }
sub name   { return shift->{NAME} <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2799	2895	
==>kind { return shift->{KIND}; }
sub type { return shift->{TYPE}; }
sub name { return shift->{NAME} <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	38236	38337	
==>or_length,
  'vector-ref'    => \&_op_vector_ref,
  'vector-set!'   => \&_op_vector_set_bang,
  'vecto <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	1692	1791	
==>as or garbanzo beans, drained and rinsed
 * juice of one smallish lime
 * a dash of balsamic vinegar <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10990	11076	
==>\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STAC <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11779	11865	
==>\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STAC <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4454	4571	
==>rint "\n";';
    }
    return @ops;
}

sub output_classmatch {
    my ($self, $incexc, $failLabel) = @_;

    my $pass <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4791	4907	
==>rint "\n"';
    }
    return @ops;
}

sub output_classmatch {
    my ($self, $incexc, $failLabel) = @_;

    my $pass <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042927	1043035	
==>LE_set_pmc_keyed_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043824	1043932	
==>LE_set_pmc_keyed_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738165	738378	
==>c/ops/set.ops\"\n  {{\@1}} = string_to_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738929	739142	
==>c/ops/set.ops\"\n  {{\@1}} = string_to_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	4453	4554	
==>doesn't go into infinite loop)
# This is sometimes a runtime property.
sub rewrite_multi_match {
    m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103906	1103995	
==>(interpreter, class);\n\tif (!type) {\n\t\tParrot_autoload_class(interpreter, class);\n\t\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105121	1105210	
==>(interpreter, class);\n\tif (!type) {\n\t\tParrot_autoload_class(interpreter, class);\n\t\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569673	569970	
==>a",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 651 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818139	818245	
==>ese 2 opcodes change the register base pointer\n   * {{=0,+=1}} reloads cached base pointers, and works wit <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611954	612123	
==>",
                              "p"
                            ],
                  "BODY" => "#line 491 \"src/ops/object.ops\"\n    VTABLE_set_attr(interpreter, {{\@1} <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	1623	1737	
==>type to
			uevent unlock until using
			view
			wait while wend width window write
			keys
		);

sub dumpq {
	print <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095245	1095531	
==>",
                  "experimental" => 1,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exec",
                  "FLAGS" = <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	1758	1889	
==>item('', 'lib/Parrot/Config.pm'),
		),
		$self->new_group('Testing', '',
			$self->new_item('', 'lib/Parrot/Test.pm'),
		),
    );
} <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1063	1269	
==>d  { return shift->{KIND};  }
sub scope { return shift->{SCOPE}; }

#
# compile2
#

sub compile2
{
  my $class = shift;
  my ($compiler, $block, $ident_name, $kind, $scope, $type) = @_;

  confess "No \$comp <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	15972	16128	
==>> 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			"<=" => 85,
			'OR' => 84,
			")" => 81,
			">" => 86
		}
	},
	{#State 38
		A <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	312888	313233	
==>> 0,
                  "NAME" => "getfile",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 365,
                  "ARGS" => [
                              "s"
                            ], <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819526	819616	
==>ack.ops\"\n  Stack_Entry_t * const entry =\n    stack_entry(interpreter, CONTEXT(interprete <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820486	820576	
==>ack.ops\"\n  Stack_Entry_t * const entry =\n    stack_entry(interpreter, CONTEXT(interprete <==
2	/Users/nnunley/parrot/config/inter/lex.pm	477	655	
==>s );

$util        = 'lex';
$description = "Determining whether $util is installed";
$prompt      = "Do you have a lexical analyzer generator like flex or lex?";
@args        = qw <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	4437	4555	
==>rguments.

=cut

sub arg_dirs
{
    my $self = shift;

    return @{$self->{ARGDIRS}};
}

=item C<labels()>

Returns th <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5258	5385	
==>') {
            chmod 0755, "$dest/$_$LOAD_EXT";
        }

    }
}
else {
    die "invalid command '$mode'\nmust be one of gen <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5469	5596	
==>') {
            chmod 0755, "$dest/$_$LOAD_EXT";
        }

    }
}
else {
    die "invalid command '$mode'\nmust be one of gen <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7981	8117	
==>tack,-$len,$len);

                $$check eq 'ACCEPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Accept. <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7623	7753	
==>tack,-$len,$len);

                $$check eq 'ACCEPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Accept. <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7191	7300	
==>? $reg : 'pos');
    return $self->output_pushint($reg);
}

sub output_pushint {
    my ($self, $reg, $db_desc <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6833	6942	
==>? $reg : 'pos');
    return $self->output_pushint($reg);
}

sub output_pushint {
    my ($self, $reg, $db_desc <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	7077	7175	
==>perimental) = @_;
    if (exists $ParrotOps::optable{$opname}) {
	return $ParrotOps::optable{$opnam <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	4508	4722	
==>erbose_step/) {
                $self->options->set(verbose => 2);
            }
        }

        # XXX cc_build uses this verbose setting, why?
        $self->data->set(verbose => $verbose) if $n > 2;

        pr <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	951	1048	
==>perl>.  If you I<do> pass the pair, the harness will run the tests with
C<parrot>, calling the C<c <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1111	1237	
==>le,
    LINE   => $ident->line,
  }, $class;

  #
  # Check for a few bad conditions.
  #
  # NOTE: These are compiler internal <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1014	1140	
==>le,
    LINE   => $ident->line,
  }, $class;

  #
  # Check for a few bad conditions.
  #
  # NOTE: These are compiler internal <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	5266	5401	
==>if ( $next->type eq 'text' )
    {
        my $text = $next->text;
        my $dist = Parrot::Distribution->new;
        
        # Only <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	4268	4363	
==>ngs{$text}) {
    <<"DATA";
#define static_string_${line} static_string_$known_strings{$text}

D <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	4050	4178	
==>code="INPUT_$inputcounts:\n";
	# BASIC is unambiguous here.  The next thing must be a quoted string or
	#   no prompting is done. <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2046	2144	
==>lready defined at this lexical scope, we want to complain
  # about the redefinition. Otherwise, we <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1793	1891	
==>lready defined at this lexical scope, we want to complain
  # about the redefinition. Otherwise, we <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740927	741261	
==>o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 833,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 164 \"src/ops/set.ops\"\ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	20742	21005	
==>ref)-1;
	}
	else
	{
		$ld2pos = $str2pos = $rd2pos = $rd1pos;
	}

	$modpos = pos $$textref;

	$$textref =~ m/\G($mods{$op})/gc;
	my $endpos = pos $$textref;

	return (
		$startpos,	$oppos-$startpos,	# PREFIX
		$oppos,		length($op),		# OPERATOR
		$ld1pos,	1,			# LE <==
2	/Users/nnunley/parrot/lib/Test/More.pm	14489	14662	
==>k().  In this case, you can simply use pass() (to
declare the test ok) or fail (for not ok).  They are synonyms for
ok(1) and ok(0).

Use these very, very, very sparingly.

= <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	7728	7931	
==>'      , 8207,
 'ndash'    , 8211,
 'mdash'    , 8212,
 'lsquo'    , 8216,
 'rsquo'    , 8217,
 'sbquo'    , 8218,
 'ldquo'    , 8220,
 'rdquo'    , 8221,
 'bdquo'    , 8222,
 'dagger'   , 8224,
 'Dagger' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	1548	1650	
==>* 1 tablespoon garam masala
 * 1/2 teaspoon red chili powder, or to taste
 * Salt, to taste (probably q <==
2	/Users/nnunley/parrot/config/init/hints/openbsd.pm	68	163	
==>t/hints/openbsd.pm 19593 2006-05-30T02:28:15.110975Z coke  $

package init::hints::openbsd;

use <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	497	619	
==>/$//;

my @imcc_oplike = qw(.sym .arg prototyped non_prototyped .class
    .endclass .param inc dec new defined addr global <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	338	439	
==>s can be specified, the build tool takes this and generates the
actual compiler for that command.

Man <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	11360	11483	
==>ewhat experimental feature in Pugs, it is suggested you don't try anything
too funky.

- `cmp_ok (Str $got, Code &compare_fu <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	21352	21543	
==>TUSER
			} else {
				print CODE<<USERTYPE;
	new P1, .PerlHash
	P1["name"]= '$_->[0]'
	P1["type"]= "USER"
	bsr DIM_$_->[1]
	P1["storage"]= P0
	P1["_type"], '$_->[1]'
	P2["$_->[0]"]= P1
USERTYP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754000	754358	
==>> [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 850,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 261 \"src <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	3748	3855	
==>{method} = $ini->val( global => 'method', 1 );
}

if ( ! @{ $cfg{run_bench} } ) {
    my @regexes = grep def <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	85	212	
==>$retcount=200;
my $currentexpr;

@builtins=qw( 	abs      	asc      	atn
	      	cdbl		chr$		cint
		clng		command$	cos
		csng		cs <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	245817	246089	
==>@1}} = mmd_dispatch_i_pp(interpreter, {{\@2}}, {{\@3}}, MMD_STRCMP);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4640	4762	
==>ch($) {
	my $self = shift;
	my $pops = shift;
	my $register_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set u <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3056	3178	
==>ch($) {
	my $self = shift;
	my $pops = shift;
	my $register_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set u <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9889	9985	
==>t exists($$states[$$stack[-1][0]]{ACTIONS})
			        or  not exists($$states[$$stack[-1][0]]{A <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9443	9538	
==>t exists($$states[$$stack[-1][0]]{ACTIONS})
			        or  not exists($$states[$$stack[-1][0]]{A <==
2	/Users/nnunley/parrot/lib/Test/More.pm	13259	13378	
==>cause we want to honor isa() overrides
        local($@, $!);  # eval sometimes resets $!
        my $rslt = eval { $obj <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	32271	32385	
==>bitch if it's empty
      if(  @{$treelet->[$i]} == 2
       or (@{$treelet->[$i]} == 3 and $treelet->[$i][2] eq '' <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	42673	42787	
==>bitch if it's empty
      if(  @{$treelet->[$i]} == 2
       or (@{$treelet->[$i]} == 3 and $treelet->[$i][2] eq '' <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20766	20967	
==>equire_assign;
      }

      my $constructing;
      my $right;

      if ($self->skip_new) {
        $constructing = 1;
        $right = Jako::Construct::Expression::Value::Identifier->new($block, $se <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	19340	19506	
==>p_rest;
  $Test->skip_rest($reason);

Like skip(), only it skips all the rest of the tests you plan to run
and terminates the test.

If you're running under no_plan, i <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Ops.pm	685	839	
==>$self->new_item('', 'src/ops/ops.num'),
			$self->new_item('', 'tools/build/ops2pm.pl'),
		),
		$self->new_group('Op Libs', '', 'src/ops'),
	);
}

=back

= <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48865	48983	
==>ed directives cannot have
					       a maximum repetition of zero, nor can they have
					       negative components i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731273	731657	
==>0,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 124 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19380	19787	
==>" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 26,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 335 \"src/ops/core.ops\"\n  if ({{\@1}} == 0) {\n    {{+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	287491	287822	
==>, {{\@2}}, {{\@3}}, MMD_CMP) < 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	448631	448794	
==>\@1}} = - (FLOATVAL){{\@2}};\n  }\n  else {\n    {{\@1}} = (FLOATVAL){{\@2}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	20305	20420	
==>rams);
    $ret_reg  = return_data;
    REG_INT(0) = $stack_returns;
    REG_INT(1) = $int_returns;
    REG_INT(2) = <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	3550	3674	
==>ks like it's basically all string.
        next if /^\s*\".*\"(\);|,)?$/;

        if (length($_) > 79) {
            warning <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247640	247948	
==>{{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "and <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	248504	248812	
==>{{\@2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "and <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	9751	9868	
==>os($$textref) = $parapos }
	else		      { $parapos = pos($$textref) }

	return (
		$startpos,    $opentagpos-$startpos <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	318	418	
==>slation hook.
sub pre_translation() {
	# We need to emit PIR that sets up a dummy stack.
	return <<'P <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14170	14331	
==>e =~ m/^\S+$/s and $title =~ m/::/s;
    # catches the most common case, at least

  DEBUG and print "Title0: <$title>\n";
  $title = rtf_esc($title);
  DEBUG and <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2825	2935	
==>"5 back in module-level code"
   END
Sub1:
   PRINT "2 in subroutine one"
   GOSUB Sub2
   PRINT "ERR this line <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16792	16902	
==>"5 back in module-level code"
   END
Sub1:
   PRINT "2 in subroutine one"
   GOSUB Sub2
   PRINT "ERR this line <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	852	994	
==>rights reserved.
# (see the pod text in Parse::Yapp module for use and distribution rights)
#

package Parse::Yapp::Driver;

require 5.00 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	828	964	
==>rights reserved.
# (see the pod text in Parse::Yapp module for use and distribution rights)
#

package Parse::Yapp::Driver;

require 5.00 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	1115	1327	
==>nts)>

Returns a new item. If there is no descriptive text then C<$text> should
be an empty string.

The paths in C<@contents> will be interpreted as being relative to the
C<$target> argument in C<write_html()>. T <==
2	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	184	279	
==>C stress-testing

=head1 SYNOPSIS

    % time perl examples/benchmarks/stress2.pl

=head1 DESCRI <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	1830	1993	
==>roak "Use set_source with ", __PACKAGE__,
    " and subclasses, not parse_line";
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9101	9236	
==>ES_URL}/up.gif'></a>";
    }
    elsif ( $tagname eq 'C' )
    {
        # See the note in process_code_start_token() above.
        pri <==
2	/Users/nnunley/parrot/config/auto/m4.pm	884	1014	
==>my %m4_hangs = (freebsd => 1);

    if ($m4_hangs{$osname}) {
        $has_gnu_m4 = 0;
    } else {

        # This seems to work f <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	1568	1755	
==>xtrapos,$extralen,"\n")} ;
				#REARRANGE HERE DOC AND FILLET IF POSSIBLE
			pos($$textref) = $remainderpos-$extralen+1; # RESET \G
		}
		else {
			pos($$textref) = $remainderpos;		    # R <==
2	/Users/nnunley/parrot/config/init/hints/irix.pm	677	787	
==>>data->get('cc');
    my $cxx  = $conf->data->get('cxx');
    my $ld   = $conf->data->get('ld');
    my $link = <==
2	/Users/nnunley/parrot/config/gen/icu.pm	3741	3876	
==>--icu-config=(file)  Location of icu-config
   --icuheaders=(path)  Location of ICU headers without /unicode
   --icushared=(flags)  Ful <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2565	2679	
==>luded in a second section below, "
	    ."marked with \"#=#=#=\".\n";
    } else {
	print "Run this script with --p <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	60834	60971	
==>line);
			$prod and $prod->additem($item)
			      or  _no_rule("interpolated literal terminal",$line,"'$1'");
		}
		elsif ($grammar =~ m/ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	3350	3448	
==>et match_end, result[match_num;1]
    eq match_start, -2, skipPrint
    eq match_end, -2, skipPrint <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	14201	14414	
==>ersion */
  $minor_version,	/* minor_version */
  $patch_version,	/* patch_version */
  $num_ops,		/* op_count */
  $op_info,		/* op_info_table */
  $op_func,		/* op_func_table */
  $getop		/* op_code() */
};

END_ <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	4312	4472	
==>r $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto(1, $desc, :$todo);
    }
    else {
        Test:: <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	31272	31386	
==>op_open_output_file {
}

sub _op_close_input_port {
}

sub _op_close_output_port {
}

sub _op_read {
}

sub _op_rea <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	24845	25032	
==>< $n; $i++) {
	    print <<"EOC";
	$ar\[$i\] = $args[$i]
EOC
	}
	$args = $ar;
    }
    my $rett = 'P';
    if ($tos->[2] eq 'o') {	# builtin opcode
	$t = temp('P');
	print <<EOC;
	$t = ne <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	520	616	
==>t) = @_;

  confess "Block (". ref($block) . ") is not!" unless UNIVERSAL::isa($block, qw(Jako::C <==
2	/Users/nnunley/parrot/lib/Test/More.pm	9566	9713	
==>that/i'>).

Its advantages over ok() are similar to that of is() and isnt().  Better
diagnostics on failure.

=cut

sub like ($$;$) {
    $Test->lik <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	2949	3045	
==>either
explicitly passed between functions or implicitly retrieved from a
global API.  Encapsulat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830695	830887	
==>_stack, &i, STACK_ENTRY_INT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831436	831628	
==>_stack, &i, STACK_ENTRY_INT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	2859	3003	
==>exts>

      <context name="default" attribute="Normal Text" lineEndContext="#stay">
          <RegExpr attribute="Label" context="#stay" String= <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	7799	7950	
==>ach my $entry (@$default) {
        $meth_hash{$entry->[1]} = $i++;
        push @{$vtable{methods}},
            {
                parameters  => $entr <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1016	1107	
==>tem C<prefix()>

Returns the default 'C<Parrot_>' prefix.

Used by C<Parrot::Op>'s C<func_na <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	508346	508652	
==>{{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4086	4167	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

__PACKAGE__->_ <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1289	1412	
==>oin('languages', $language);
        } elsif ($dir_count == 1) {
          $path_to_language = $language;
        } elsif ($ <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1774	1897	
==>oin('languages', $language);
        } elsif ($dir_count == 1) {
          $path_to_language = $language;
        } elsif ($ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	16241	16350	
==>>[1]{'~type'} = 'text'
   if join("\n", @{$para}[2 .. $#$para]) =~ m/^\s*(\d+)\.?\s*$/s and $1 ne '1';
  # Els <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	266	508	
==>rot::OpsFile> takes one or more files of op functions and
creates real C code for them.

This class is used by F<tools/build/ops2c.pl>,
F<tools/build/ops2pm.pl> and F<tools/build/pbc2c.pl>.

=head2 Op Functions

For ops that have trivial bodie <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	4685	4781	
==>es and runs the C code, passing the test if output matches the
expected result.

=item C<c_output <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	17181	17351	
==>thout the slightest worry that paragraphs beginning with "From"
  # will get munged.

  # And some refinements:
  "\cm"  => "\n",
  "\cj"  => "\n",
  "\n"   => "\n\\line " <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	17449	17557	
==>r, 1 ]),
		 aop('ge', [ $counter, $N, $lastback ]),
		 aop('goto', [ $try ]),
	$back => $self->op_restore_rxl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614242	614386	
==>RESS|PARROT_JUMP_ENEXT",
                  "NAME" => "classoffset",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615392	615536	
==>RESS|PARROT_JUMP_ENEXT",
                  "NAME" => "classoffset",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2610	2719	
==>mpile($compiler);
  $right = $right->compile($compiler);

  my $dest_name = $dest->value;
  $dest = $dest->com <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	2857	3077	
==>arser->YYData->{lex_num} ++;
##    warn "PopScope\n";
}

sub Insert {
    my ( $parser, $var ) = @_;

    $parser->YYData->{symbtab}->Insert( $var->[0] );
    return $var;
}

sub InsertList {
    my ( $parser, <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	4477	4629	
==>_Results} = &share([]);

    $self->{Exported_To}    = undef;
    $self->{Expected_Tests} = 0;

    $self->{Skip_All}   = 0;

    $self->{Use_Nums}   = 1 <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1334	1441	
==>cted.perl;
    my $test := ($got_perl eq $expected_perl);
    Test::proclaim($test, $desc, $todo, $got_perl, <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23378	23472	
==>enerate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp = $self->_generat <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23840	23934	
==>enerate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp = $self->_generat <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28528	28730	
==>l' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 87
		DEFAULT => -105
	},
	{#State 88
		ACTIONS => {
			"-" => 24,
			'NAME' => <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	8505	8720	
==>x.h
catanhl     complex.h
catanl      complex.h
cbrt        math.h
cbrtf       math.h
cbrtl       math.h
ccos        complex.h
ccosf       complex.h
ccosh       complex.h
ccoshf      complex.h
ccoshl      complex.h
c <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34493	34608	
==>mc2c';
import Parrot::Pmc2c qw( gen_ret );

=item C<implements($method)>

Always true.

=cut

sub implements
{
    r <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30259	30389	
==>COPYDIS;
	
	#
	# Structure copy dispatch routine
	# Call with S0 set to the type
	# Source in P6
	# Dest returned in P1
STRUCT_COPY <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	11301	11450	
==>ble->
        (\w+)
        \(interpreter,
        \s*
        {{\@(\d)}},\s*{{\@(\d)}}
        \);
        \s+{{\+=\d}}/xm) {
            $jit_func = <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	11748	11897	
==>ble->
        (\w+)
        \(interpreter,
        \s*
        {{\@(\d)}},\s*{{\@(\d)}}
        \);
        \s+{{\+=\d}}/xm) {
            $jit_func = <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	2241	2354	
==>{
    my ($self, $var, $amount) = @_;
    $amount = 1 if ! defined($amount);
    return "add $var, $amount";
}

su <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	8345	8461	
==>_[0]: $!";
      $handle = *PODSOURCE{IO};
    }
    $self->{'source_filename'} = $_[0];
    DEBUG and print "  Its n <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	3375	3481	
==>the above options are given, they are ANDed.
They can also be negated with a "no", for example --noconst.
[ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	18803	18903	
==>->[1]{'start_line'},
          "'=begin' only takes one parameter, not several as in '=begin $content <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754755	755137	
==>e",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 851,
                  "ARGS" => [
                              "p",
                              "n"
                            ],
                  "BODY" => "#line 2 <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	32538	32680	
==>s{$c}) {
	$c = $vtables{$c};
    }
    my $cc;
    if ($c =~ /^\d+$/) {	# MMD
	$cc = "-$c";
    }
    else {
	$cc = qq!"$c"!;
    }
    print < <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	32913	33055	
==>s{$c}) {
	$c = $vtables{$c};
    }
    my $cc;
    if ($c =~ /^\d+$/) {	# MMD
	$cc = "-$c";
    }
    else {
	$cc = qq!"$c"!;
    }
    print < <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	3422	3580	
==>rom, $to);

    # Make sure the timestamp is updated
    my $now = time;
    utime $now, $now, $to;

    return 1;
}

=item C<move_if_diff($from, $to, $ignoreP <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	1773	1882	
==>t fixed sized types
    if ($results{shortsize} == 2) {
        $conf->data->set(int2_t => 'short');
    } els <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225247	225525	
==>263,
                  "ARGS" => [
                              "p",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 523 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	99355	99628	
==>E" => "inline",
                  "CODE" => 123,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 101 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}}->vtable->bitwis <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	43805	43965	
==>urn _generate($_[0], $_[1], 1, @_[2..$#_]);
}

sub Extend ($$)
{
	splice(@_, 2, 0, 0);
	return _generate(@_);
}

sub _no_rule ($$;$)
{
	_error("Ruleless $_[0] at <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	39048	39261	
==>nt[-1] =~ m/\"$/s
         and !( # catch weird degenerate case of L<"> !
           @ell_content == 1 and $ell_content[0] eq '"'
         )
      ) {
        $section_name = [splice @ell_content];
        $section <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38037	38207	
==>'':'
			Parse::RecDescent::_trace(q{<<Didn\'t match repeated subrule: ['
			. $self->describe . ']>>},
						  Parse::RecDescent::_tracefirst($text),
						  q{' . $rule-> <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	4985	5086	
==>of the next token is a file
path and that file contains POD, then a link will be made to that file's
d <==
2	/Users/nnunley/parrot/config/inter/progs.pm	2892	3031	
==>'linkflags'));
    $linkflags = prompt("And your linker?", $linkflags) if $ask;
    $conf->data->set(linkflags => $linkflags);

    $ldflags <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3977	4092	
==>eter->resume_flag = 1";
}

=item C<restart_offset($offset)>

Returns the C code for C<restart OFFSET($offset)>.

=cu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	617684	617857	
==>+lru->u.type == lr_types)\n\t    goto runit_v_pp;\n\tmic->pic->miss_count++;\n\t/*\n\t * TODO if we got too often here just do a dynamic lookup\n\t */\n    }\n    parrot_pic_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141496	141765	
==>YPE" => "inline",
                  "CODE" => 173,
                  "ARGS" => [
                              "nc",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 77 \"src/ops/cmp. <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	10214	10333	
==>[0] } @expr);
	return(@expr);
}
sub pushthing {
	my($code, $optype, $sym, $type, $oldresult)=@_;
	my $ts="INVALID";

	if <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	25407	25528	
==>e)').'];
		'; 
	}

	my $dir =
	      new Parse::RecDescent::Directive('if (' .
		($self->{"commitonly"} ? '$commit' : '1') <==
2	/Users/nnunley/parrot/lib/Test/More.pm	25817	26075	
==>s, $that ] }) );
    }
    else {			       		# both references
        local @Data_Stack = ();
        if( _deep_check($this, $that) ) {
            $ok = $Test->ok(1, $name);
        }
        else {
            $ok = $Test->ok(0, $name);
            $Test-> <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	811	929	
==>op->{args} }) {
        my $arg = $op->{args}->[$i];
        push(@indices, $i) if is_label($arg);
    }
    return @in <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	3892	4020	
==>ness_args});
  $smoke{revision}  ||= 0;
  $smoke{timestamp} = time;
  $smoke{id}        = $id;
  my $filename      = pack_smoke(% <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017989	1018084	
==>char resultbuffer[26];\n  Parrot_gmtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018914	1019009	
==>char resultbuffer[26];\n  Parrot_gmtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948874	949104	
==>trans_charset(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949674	949904	
==>trans_charset(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4927	5028	
==>$errstatus,$nberror,$token,$value,$stack,$check,$dotpos)
     = @$self{ 'ERRST', 'NBERR', 'TOKEN', 'V <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4685	4785	
==>$errstatus,$nberror,$token,$value,$stack,$check,$dotpos)
     = @$self{ 'ERRST', 'NBERR', 'TOKEN', 'V <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357997	358186	
==>_eprintf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358661	358850	
==>_eprintf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030924	1031244	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sizeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031792	1032112	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sizeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	653	811	
==>done'}; $total += $_->{'total'}; } @results;
my $percent = int(($done / $total) * 100);
print "SUMMARY                                           ";
print $d <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	809	900	
==>q[c++];
our $LDFLAGS = qq[-L/opt/local/lib -L/usr/local/lib -flat_namespace  ];
our $LD_LOAD <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	813	904	
==>q[c++];
our $LDFLAGS = qq[-L/opt/local/lib -L/usr/local/lib -flat_namespace  ];
our $LD_LOAD <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	2117	2296	
==>itiy of running off the end) are returned. If
# a count is not given, 1 is inferred.
#

sub at
{
  my $self = shift;
  my ($index, $count) = @_;

  $index = $self->pos unless defin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035391	1035486	
==>rrot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@2}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036555	1036650	
==>rrot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@2}};\ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	524	669	
==>no strict 'refs';

    *{"Scheme::Test::output_$meth"} = sub ($$;$) {
        my( $lang_code, $output, $desc ) = @_;

        ++$count;
        my <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	173	292	
==>use Test::Builder;
my $Test = Test::Builder->new;

sub import {
    my $self = shift;
    my $caller = caller;
    *{$ca <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	416	524	
==>{
  my $class = shift;
  my ($block, $left, $right) = @_;

  confess("Block (" . ref($block) . ") not!") unle <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	407	515	
==>{
  my $class = shift;
  my ($block, $left, $right) = @_;

  confess("Block (" . ref($block) . ") not!") unle <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	4598	4822	
==>leftovers);
        return $t;
    } else {
        # Find all subtrees, and recurse through them.
        foreach my $arg (@{ $t->{args} }) {
            if (UNIVERSAL::isa($arg, 'Regex::Ops::Tree')) {
                # $arg <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	302	481	
==>ct => 5,
	ManagedStruct => 6,
	delegate => 7,
	CSub => 8,
	Compiler => 9,
	Exception => 10,
	Version => 11,
	VtableCache => 12,
	ParrotIO => 13,
	ParrotLibrary => 14,
	ConstParrotL <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5751	5869	
==>rint "Else was done, skipping...\n";
			} else {
				push @{$code{$seg}->{code}}, "IFBRANCH_$_:\n";
			}
			while($_=po <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8099	8213	
==>rint "Else was done, skipping...\n";
		} else {
			push @{$code{$seg}->{code}}, "IFBRANCH_$_:\n";
		}
		while($_=po <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804284	804528	
==>ble->set_pmc_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805185	805429	
==>ble->set_pmc_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	31154	31280	
==>output_port {
}

sub _op_with_input_to_file {
}

sub _op_with_output_from_file {
}

sub _op_open_input_file {
}

sub _op_open_o <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	153	251	
==>Docs::Section - Documentation section

=head1 SYNOPSIS

    use Parrot::Docs::Section;

=head1 DESC <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23475	23634	
==>ub new ($$$;$)
{
	my $class = ref($_[0]) || $_[0];
	bless 
	{
		"lookahead" => $_[1],
		"line"      => $_[2],
		"name"      => $_[3],
	}, $class;
}

# MARK, YOU <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76087	76252	
==>refix = "ERROR" .  ($_[1] ? " (line $_[1])" : "");
	$errortext =~ s/\s+/ /g;
	print ERROR "\n" if _verbosity("WARN");
	write ERROR;
	return 1;
}

sub _warn($$;$)
{
	r <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	3459	3564	
==>s_flag );
    die "$0: Could not read ops file '$file'!\n" unless defined $temp_ops;

    die "OPS invalid <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356675	356881	
==>PIO_eprintf(interpreter, INTVAL_FMT, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357335	357541	
==>PIO_eprintf(interpreter, INTVAL_FMT, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	34177	34340	
==>21
		ACTIONS => {
			"," => 151,
			'DO' => 168
		}
	},
	{#State 122
		DEFAULT => -96
	},
	{#State 123
		ACTIONS => {
			'NAME' => 171,
			"..." => 172, <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29128	29245	
==>"pattern"     => $pattern,
		"lookahead"   => $_[2],
		"line"        => $_[3],
		"description" => "'$desc'",
	}, $clas <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31232	31343	
==>"pattern"   => $pattern,
		"lookahead" => $_[2],
		"line"      => $_[3],
		"description" => "'$desc'",
	}, $clas <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	21866	22080	
==>e for sub branches.
        $pir .= "INS_BRANCH_$prefix$r1[$#r1]->{'code'}:\n";
        $pir .= binary_dispatch_table($prefix, @r1);
        $pir .= "INS_BRANCH_$prefix$r2[0]->{'code'}:\n";
        $pir .= binary_di <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314320	314572	
==>0,
                  "NAME" => "conv_i1_ovf",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  " <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	297	407	
==>cent \\\\
\\hline
HEADING
foreach (@results) {
	print "$_->{'name'} & $_->{'done'} & $_->{'total'} & $_->{' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968789	968957	
==>"s",
                              "ic"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969798	969966	
==>"s",
                              "ic"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5340	5466	
==>if ($dest_reg) {
		$pir .= <<'PIR'
${INS} = concat ${STOREREG}
${INS} = concat " = pop s\n"
PIR
	}

	return $pir;
}

sub pre_ca <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	16544	16654	
==>f no initializer is specified for a particular element, its default
initialization is performed instead. Initia <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	42221	42354	
==>unc_obj eq 'P0';
  $self->_add_inst('', 'set', ['I0', 0]);        # Pass all args in Px registers
  $self->_add_inst('', 'set', ['I3', <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8229	8458	
==>name} = $FAR_CHAR;
      # substitute for Unicode characters, for perls
      #  that can't reliable handle them
    } else {
      $Name2character{$name} = chr $number;
      # normal case
    }
  }
  # So they resolve 'right' ev <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	60603	60868	
==>-optional prefix was specified but wasn't found at the start of the text.

=item  C<Did not find opening bracket after prefix: "%s">

C<extract_bracketed> or C<extract_codeblock> was expecting a
particular kind of bracket at the start of the text, and didn't find it <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2347	2469	
==>@@@
1;

__END__

=head1 NAME

Pod::Simple::DumpAsXML -- turn Pod into XML

=head1 SYNOPSIS

  perl -MPod::Simple::DumpAsXML <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	297	394	
==>L::Template;
use Algorithm::TokenBucket;
use Time::Piece;
use Time::Seconds;

require_compression_ <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	10312	10498	
==>$N2 = ln $N2
    .return ($N2)
neg_seven: # arctanh(x) = .5 * (ln (1+x) - ln (1 -x))
    $N1 = op2 + 1
    $N1 = ln $N1
    $N2 = 1 - op2
    $N2 = ln $N2
    $N1 = $N1 - $N2
    $N1 *= 0 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2682	2781	
==>y $index_html = '';
	
	print "\n\n", $self->name unless $silent;
	
	foreach my $content ($self->cont <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5823	5972	
==>mc_libs{$pmc} = \%libs;

        # There should be at most a single group
        my $group = $class->{flags}{group}
          or next;
        ($grou <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6034	6183	
==>mc_libs{$pmc} = \%libs;

        # There should be at most a single group
        my $group = $class->{flags}{group}
          or next;
        ($grou <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24840	25246	
==>ROT_JUMP_ENEXT",
                  "NAME" => "tailcall",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 33,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 436 \"src/ops <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1116	1379	
==>ue
  }
  elsif ($kind eq 'unless') {
    $kind = 'if';
  }

  if ($kind eq 'if') {
    $compiler->emit("${prefix}_TEST:");
    $compiler->emit("  if $left $op $right goto ${prefix}_ELSE");
    $compiler->emit("${prefix}_THEN:");

    if ($self->content) {
      $c <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	12642	12809	
==>_LOOKUP_$optype("$extern$seg",$ac$pir_args)};
				push @work, [ "result of $extern()", "RESULT",  "\$$optype$retcount"];
			} elsif (isbuiltin($sym)) {
				$extern=~s/\ <==
2	/Users/nnunley/parrot/tools/dev/cc_flags.pl	959	1093	
==>) {
	next unless $1;
	$regex = qr/$1/;
    }
    elsif (s/^(\S+)\s*//) {
	$regex = qr/^\Q$1\E$/;
    }
    else {
	die "syntax error in <==
2	/Users/nnunley/parrot/tools/docs/pod_errors.pl	277	405	
==>-regex]

=head1 DESCRIPTION

This script reports on any POD errors found in the files.

=cut

use lib 'lib';
use Parrot::Docs::Di <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2616	2715	
==>} });
    $self->left->sax($handler);
    $self->right->sax($handler);
    $handler->end_element({ N <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2493	2592	
==>} });
    $self->left->sax($handler);
    $self->right->sax($handler);
    $handler->end_element({ N <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1509	1726	
==>to do better than this?

#  printf STDERR "%s: Compiling module '%s'.\n", __PACKAGE__, $self->name;
  
  #
  # Import our symbols into our parent block:
  #

  my $name = $self->name;

#  printf STDERR "%s: About to co <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29672	29819	
==>}
	},
	{#State 94
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			" <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15666	15833	
==>in this module are derived from the
entity declarations in the W3C XHTML specification.

Currently (October 2001), that's these three:

 http://www.w3.org/TR/xhtml1/DTD <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	13277	13424	
==>T => -4
	},
	{#State 14
		ACTIONS => {
			"-" => 31,
			"^" => 32
		},
		DEFAULT => -40,
		GOTOS => {
			'classpieces' => 30
		}
	},
	{#State 15
		D <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	14540	14665	
==>w for an example of initialization.

=head1 EXAMPLES

=over 4

=item Example 1

Giving a struct element a class type that is a <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	22260	22384	
==>extref) < length($$textref))
		{
			my $field;
			my @bits;
			foreach my $i ( 0..$#func )
			{
				my $pref;
				$func = $fu <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8280	8384	
==>Hello";tab$(15);"World"
print "Foo";tab$(15);"Stuff"
print "I am the very model of a modern";tab$(15);"Mo <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21144	21248	
==>Hello";tab$(15);"World"
print "Foo";tab$(15);"Stuff"
print "I am the very model of a modern";tab$(15);"Mo <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	768	869	
==>);
  confess "Type (" . ref($type) . ") is not!"   if defined $type and not UNIVERSAL::isa($type, qw(J <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	651	749	
==>);
  confess "Type (". ref($type) . ") is not!" if defined $type and not UNIVERSAL::isa($type, qw(J <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3612	3713	
==>ecklist,$inarray,$outhash)=@_;
	my($prm,$value);
	my($prmlst)={};

	while(($prm,$value)=splice(@$i <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3424	3521	
==>ecklist,$inarray,$outhash)=@_;
	my($prm,$value);
	my($prmlst)={};

	while(($prm,$value)=splice(@$i <==
2	/Users/nnunley/parrot/config/gen/PodText.pm	1512	1749	
==>my $text = do {local $/; <$fh>};
        $text = "# DO NOT EDIT THIS FILE\n"
              . "# Generated by " . __PACKAGE__ . " from $pod\n"
              . "\n"
              . $text
        ;
        # the filehandle was opened for upd <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	7002	7104	
==>est::num_of_tests_run, $out, $context_out;

    Test::report_failure($context, $got, $expected, $negate <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6133	6271	
==>( keys %libs ) {
            $group_libs{$group}->{lib} = 1;
        }
    }

    return (\%group_files, \%group_libs, \%pmc_group, \%pmc_l <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6344	6482	
==>( keys %libs ) {
            $group_libs{$group}->{lib} = 1;
        }
    }

    return (\%group_files, \%group_libs, \%pmc_group, \%pmc_l <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	23566	23684	
==>cout .= <<"EOC";
        vt_clone->whoami = CONST_STRING(interp, "$classname");
        vt_clone->isa_str = CONST_STRIN <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	310304	310459	
==>ter,NULL);\n        while (!(interpreter->pdb->state & PDB_EXIT)) {\n            PDB_get_command(interpreter);\n            command = interpreter->pdb->cur_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10689	10836	
==>k's content list.

=cut

sub push_content
{
  my $self = shift; # Required: Jako::Construct::Block

  confess "No block!"        unless defined $sel <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	35779	36041	
==>g. In a void context, C<$text> would be unchanged.)

Note that the embedded single-quotes in the string don't help in this
case, since they have not been specified as acceptable delimiters and are
therefore treated as non-delimiter characters (and ignored).

Howe <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37887	37984	
==>e) ";
}

=item C<body($method, $line, $out_name)>

Returns the C code for the method body. C<$line <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	709	809	
==>lags = $conf->data->get('linkflags');
    my $ccflags   = $conf->data->get('ccflags');
    if ($^O =~ <==
2	/Users/nnunley/parrot/config/auto/readline.pm	721	821	
==>lags = $conf->data->get('linkflags');
    my $ccflags   = $conf->data->get('ccflags');
    if ($^O =~ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581554	581882	
==>"i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 663,
                  "ARGS" => [
                              "p",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 289 \"src/ops/obj <==
2	/Users/nnunley/parrot/config/auto/python.pm	685	926	
==>| '', $err || '');
    my ($python, $major, $minor, $revision) = $output =~ m/(Python)\s+(\d+).(\d+)(?:.(\d+))?/;
    $revision = 0 unless defined $revision;
    my $has_python = $python ? 1 : 0;

    $conf->data->set(has_python => $has_pytho <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105603	105859	
==>ps/bit.ops\"\n  {{\@1}} |= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	106341	106597	
==>ps/bit.ops\"\n  {{\@1}} |= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	4082	4347	
==>ME" => "wrapper__",
                  "FLAGS" => ":internal",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 5,
                  "ARGS" => [],
                  "BODY" => "#line 129 \"src/ops/core.ops\"\n    opc <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	7833	8024	
==>_ops,
                        $self->dbprint("setting end[$group] := %<rx_pos>-1\n"),
                        aop('setend', [ $group, '<pos>', -1 ]),
                        aop('goto', [ $nex <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21057	21158	
==>:Construct::Expression::Value->new($block, $self->require_value);
      }

      $self->require_semico <==
2	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	681	811	
==>se Digest::Perl::MD5 qw(md5_hex);

my $compat_file = 'PBC_COMPAT';
open IN, $compat_file or die "Can't read $compat_file";
my @line <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10858	10956	
==>self->isa("Jako::Construct::Block");
  confess "No content!"      unless @_;
  confess "Illegal con <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	9679	9841	
==>{
		print "WARNING: PRINT USING not yet supported\n";
		feedme();	# "####"
		feedme();	# ;
	}
	while(1) {
		if ($type[CURR] eq "STMT" or $type[CURR] eq "COMP" or $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2705	2807	
==>element({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
  }

  $handler->start_eleme <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2582	2684	
==>element({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
  }

  $handler->start_eleme <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	10697	10838	
==>T_NCI_I($reg_num);";
        return "t_$temp_num";
    };
    /I/ && do {
        push @{$temps_ref}, "INTVAL t_$temp_num;";
        push @{$e <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	659	788	
==>new_tmp( $parser, 'pmc' );
        push @opcodes, new LocalDir( $parser,
            'prolog' => 1,
            'result' => $pa <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	328	432	
==>n whether at end of input string" ],
    [ "advance(n)" => "advance input <n> chars" ],
    [ "increment( <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	3064	3162	
==>d data symbols (Dd)
--uninit|-u	uninitialised data symbols (Bb)
--local|-l	local symbols (tdbruf)
- <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1593	1708	
==>TE = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as they may contain spaces.
    $PATHQUOTE = '"';

    unl <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	1597	1712	
==>TE = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as they may contain spaces.
    $PATHQUOTE = '"';

    unl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439515	439612	
==>"BODY" => "#line 104 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440530	440627	
==>"BODY" => "#line 104 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611194	611451	
==>et_attr(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612097	612354	
==>et_attr(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/config/auto/alignptrs.pm	2	120	
==>Copyright (C) 2001-2005, The Perl Foundation.
# $Id: /parrot/config/auto/alignptrs.pm 19593 2006-05-30T02:28:15.110975Z <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015082	1015306	
==>make(interpreter, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015906	1016130	
==>make(interpreter, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	35969	36063	
==>nd are
therefore treated as non-delimiter characters (and ignored).

However, if a particular s <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	15936	16081	
==>"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			"<=" => 85,
			'OR' => 84,
			")" = <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29789	29934	
==>"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			"<=" => 85,
			'OR' => 84,
			")" = <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8265	8417	
==>Abort.\n";

				return(undef);

			};

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Back to state $$stack[-1][0], then ";

                $$c <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7892	8035	
==>Abort.\n";

				return(undef);

			};

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Back to state $$stack[-1][0], then ";

                $$c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	512113	512511	
==>ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 590,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 690 \"src/ops/math.ops\"\n  {{\@1}} = {{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	44488	44590	
==>nge_S_to_nbsp($treelet,0) if $self->{'nbsp_for_S'};

  # TODO: or a change_nbsp_to_S
  #  Normalizing n <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	4552	4729	
==>_locale' => 'define',
             'i_machcthr' => undef,
             'i_malloc' => undef,
             'i_math' => 'define',
             'i_memory' => undef,
             'i_m <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37394	37506	
==>escribe . ']},
				  Parse::RecDescent::_tracefirst($text),
				  q{' . $rule->{"name"} . '})
					if defined $:: <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39797	39909	
==>escribe . ']},
				  Parse::RecDescent::_tracefirst($text),
				  q{' . $rule->{"name"} . '})
					if defined $:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	7421	7639	
==>171 \"src/ops/core.ops\"\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8057	8275	
==>171 \"src/ops/core.ops\"\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	5056	5155	
==>s normal, it falls back to Digest::Perl::MD5 if it
cannot load its object files.

For a detailed Doc <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	50271	50389	
==>ails, return an error. Otherwise, go back to step 1.

=item 4.

Unconditionally match a bareword or any other single ch <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	603515	603613	
==>"#line 404 \"src/ops/object.ops\"\n    {{\@1}} = VTABLE_name(interpreter, {{\@2}});\n    {{+=3}};\n <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	5009	5170	
==>ing of a block, and its indent depth.
            $f=length($1);
            next;
        }

        if (/^\s*([\#\}])/) {
            # skip the last line of th <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	8486	8657	
==>od->{parameters};
    $args = ", $args" if $args =~ /\S/;
    my ($export, $extern, $newl, $semi, $interp, $pmc);
    if ($for_header) {
        $export = $self->{flags}->{ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	27921	28068	
==>summary(), but with a lot more detail.

    $tests[$test_num - 1] = 
            { 'ok'       => is the test considered a pass?
              actual <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	4523	4766	
==>}\n";
            $out .= "    }\n";
            $classes{$name} = $type;
            $got_class = 1;
        }
        else{
            croak "'$type' is not a valid struct element type";
        }
        $idx += 2;
    }
    $out .= "    bl <==
2	/Users/nnunley/parrot/lib/Test/More.pm	7834	7950	
==>nd the name), but is() and
isnt() know what the test was and why it failed.  For example this
test:

    my $foo = 'w <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	55306	55406	
==>erence, regular expression, or string).
The key of that element is the name of a class into which the <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	8758	9010	
==>ame ? "$o\t$name" : $name;
		    if (defined $Type) {
			$show .= "\t";
			my $symbol;
			if ($code) {
			    $symbol = $TypeLong ? "code" : "T";
			} elsif ($data) {
			    if ($const) {
				$symbol = $TypeLong ? "const_init" : "R";
			    } elsif ($in <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	3850	4131	
==>_data;\n    set_nci_S(interpreter, &st, final_destination);",
     );

my %func_call_assign =
     ( p => "return_data = ",
       i => "return_data = ",
       3 => "return_data = ",
       2 => "return_data = ",
       4 => "return_data = ",
       l => "return_data = ",
       c <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	25148	25296	
==>defn,
        );
    }
    my $assign = new AssignOp( $parser,
        'arg1'   => undef,
        'result' => $defn,
    );
    return [ $defn <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	8459	8572	
==>();
	my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
	my $text;
	my $lastsep="";
	local ($Parse::RecDescent: <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2113	2284	
==>sub uncompress_smoke {
  my $CGI = shift;
  $CGI->param("smoke",
    Compress::Zlib::memGunzip($CGI->param("smoke")) ||
    Compress::Bzip2::memBunzip($CGI->param("smoke")) <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	13147	13319	
==>is broken because something is not implemented yet. So
in order to still allow that to be tested, and those tests to knowingly
fail, we provide the `:todo(1)` named paramete <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	2194	2318	
==>_seen{$line}++) {
	    die "Seen line $line before in $infile - can't continue";
	}

	# TODO maybe cope with escaped \"
	my $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	523	659	
==>t a call to some other
function and a C<return> statement), opcode functions are in the format:

    inline op opname (args) :class,flags <==
2	/Users/nnunley/parrot/config/auto/signal.pm	457	567	
==>bose);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    $conf <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30601	30745	
==>_pir = concat " = clone "
gen_pir = concat dest0
gen_pir = concat "\\n"
$label:
PIR
        }

		# Finally, call post_load and append code it gen <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8138	8266	
==>ire_ident->text;
      
        my $value;

        if ($self->skip_assign) {
          $value = Jako::Construct::Expression::Val <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5144	5266	
==>ire_ident->text;

        my $value;

        if ($self->skip_assign) {
          $value = Jako::Construct::Expression::Val <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392860	393200	
==>,
                  "CODE" => 456,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpret <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	310	450	
==>ackage Jako::Construct::Block::Loop::Until;

use Carp;

use base qw(Jako::Construct::Block::Loop);


#
# new()
#

sub new
{
  my $class = shi <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	3504	3620	
==>test if a string comparison of output
with the expected result is true.

=item C<pbc_output_like($code, $expected, $d <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	6850	6966	
==>*     Native Call Interface routines. The code needed to build a
 *     parrot to C call frame is in here
 *  Data St <==
2	/Users/nnunley/parrot/config/init/defaults.pm	5605	5776	
==>exit $$? >> 8;\'',

        # if platform has a .s file that needs to be assembled
        platform_asm => 0,
        as           => 'as',    # assembler

        cp    => <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7652	7795	
==>push @stack, $1;
        } elsif( $tagname eq 'Para') {
          $tagname = 'Para_item' if @stack and $stack[-1] eq 'text';
        }
        p <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5854	5960	
==>n we need to deal with basic block-ish stuff. If the branch
	# did not pop anything it is unconditional, so <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3792	3898	
==>n we need to deal with basic block-ish stuff. If the branch
	# did not pop anything it is unconditional, so <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236090	236610	
==>cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 275,
                  "ARGS" => [
                              "i",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 606 \"src/ops/cmp.ops <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	20126	20331	
==>)/gc)	# SHOULD USE LOOKAHEAD
			{
				_failmsg "Missing second block for quotelike $op",
					 pos $$textref;
				pos $$textref = $startpos;
				return;
			}
			$ldel2 = $rdel2 = "\Q$1";
			$rdel2 =~ tr/[({ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	1462	1597	
==>class eq 'Jako::Construct::Block';

  confess "Bad block!"  if defined $block and not (ref $block and $block->isa("Jako::Construct::Bloc <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	44453	44561	
==>k of the operation
(that is, the contents of
a quote, the regex of a match or substitution or the target list <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3788	3922	
==>X.c -> X.o for all X.c
    compile($_) foreach (@pmcs);

    # lib-GROUP.c
    for my $group (keys %$group_files) {
        compile("$g <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3892	4026	
==>X.c -> X.o for all X.c
    compile($_) foreach (@pmcs);

    # lib-GROUP.c
    for my $group (keys %$group_files) {
        compile("$g <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1504	1593	
==>STEMP1}
${STEMP1} = "$register_num"
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = $ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3214	3303	
==>STEMP1}
${STEMP1} = "$register_num"
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	45755	45918	
==>ine is these tokens (",
      scalar(@new_line), "):",
      map( ref($_)?"<@$_> ":"<$_>", @new_line ), "\n";
    $i--; # So the next line we scrutinize is the line <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	239628	240172	
==>cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 279,
                  "ARGS" => [
                              "i",
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 616 \"src/ops/cmp.ops\"\n  INTVAL l = VTABLE_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034930	1035374	
==>" => "find_lex",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1157,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 64 \"src/ops/v <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	3126	3224	
==>ng_private_h or die "Can't write '$string_private_h': $!";
    print OUT <<"HEADER";
/* ex: set ro: <==
2	/Users/nnunley/parrot/config/auto/pack.pm	206	339	
==>to C<pack()> Parrot's types.

=cut

package auto::pack;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure:: <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	524	653	
==>> 'isnt_eq'
                        );

foreach my $func ( keys %language_test_map ) {
    no strict 'refs';

    *{"Parrot::Test: <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	863	992	
==>> 'isnt_eq'
                        );

foreach my $func ( keys %language_test_map ) {
    no strict 'refs';

    *{"Parrot::Test: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48647	48846	
==>terpreter, PARROT_BOUNDS_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49437	49636	
==>terpreter, PARROT_BOUNDS_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	78152	78281	
==>)
		and
		_hint("An unconditional <error> always causes the
		       production containing it to immediately fail.
		       \u$_[0 <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	3358	3486	
==>kflags = $conf->data->get('linkflags');
            $conf->data->add(' ', linkflags => '-xlibmieee')
                unless $link <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3693	3805	
==>, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert X.c -> X.o for all <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3797	3909	
==>, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert X.c -> X.o for all <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	58771	58897	
==>ited_pat(q{'"}) . '|.)+/>';

        extract_tagged($text, undef, undef, undef, {ignore => [$empty_tag]} );


C<gen_delimited_p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44550	45013	
==>JUMP" => 0,
                  "NAME" => "popmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 57,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 737 \"src/ops/core.ops\"\n  Parrot_pop_mark(interpreter, {{\@1}});\n  {{+=2} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45191	45511	
==>JUMP" => 0,
                  "NAME" => "popmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 58,
                  "ARGS" => [
                              "ic <==
2	/Users/nnunley/parrot/tools/dev/pbc_header.pl	793	919	
==>pat_file = 'PBC_COMPAT';
    open IN, $compat_file or die "Can't read $compat_file";
    my @lines = <IN>;
    close IN;

    m <==
2	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	723	833	
==>pat_file = 'PBC_COMPAT';
open IN, $compat_file or die "Can't read $compat_file";
my @lines = <IN>;
close IN;

m <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	868	967	
==>t, 'Jako::Construct::Expression::Value');
  confess "Op is not scalar!" if ref $op;
  confess "Right <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	880	979	
==>t, 'Jako::Construct::Expression::Value');
  confess "Op is not scalar!" if ref $op;
  confess "Right <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2782	2907	
==>$line =~ s/^\xFE\xFF//s ) {
        DEBUG and print "Big-endian UTF-16 BOM seen.  Aborting parsing.\n";
        $self->scream( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349184	349289	
==>= PIO_open(interpreter, NULL, path, \"+<\");\n  /* string_cstring_free(path); */\n  if(!{{\@1}}) {\n    {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350186	350291	
==>= PIO_open(interpreter, NULL, path, \"+<\");\n  /* string_cstring_free(path); */\n  if(!{{\@1}}) {\n    {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	604388	604660	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "removeparent", <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1960	2059	
==>n\t \&\<\>\'!\#\%\(\)\*\+,\.\/\:\;=\?\~\[\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRST <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	36852	37016	
==>nterpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	817633	817792	
==>nterpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEX <==
2	/Users/nnunley/parrot/config/gen/icu.pm	2850	3186	
==>ir    => '',
        );
        $self->set_result("no") unless defined $self->result;
        return $self;
    }

    my $ok = 1;

    unless (defined $icushared) {
        warn "error: icushared not defined\n";
        $ok = 0;
    }

    unless (defined $icuheaders and -d $icuheaders) {
        warn "error: icuheaders not defined or <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	4362	4540	
==>sname, \$text, $thisparser, $prev)
{
	bless {
		text    => $_[1],
		parser  => $_[2],
		prev	=> $_[3]?-1:0,
	      }, $_[0];
}

sub FETCH    
{
	my $parser = $_[0]->{parser};
	ret <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	1909	2074	
==>r the user's response. Returns the
response, or the default if the user just hit C<ENTER>.

=cut

sub prompt
{
    my ($message, $value) = @_;

    print("$message [$ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	29152	29262	
==>c {
	feedme;
	my $t=$seg;
	$seg=~s/^_//;       # Remove the _
	$seg=~tr/A-Z/a-z/;  # lowercase
	$seg=~s/userfun <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6310	6424	
==>ge=TRUE           ' Force first pass through the array.
WHILE Exchange          ' Sort until no elements are exchan <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15963	16077	
==>ge=TRUE           ' Force first pass through the array.
WHILE Exchange          ' Sort until no elements are exchan <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	2467	2656	
==>1);
      $text = $2;
      next;
    }

    if ($text =~ m{^(var|const)(?!\w)(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, $1, undef, $1);
      $text = $2;
      ne <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	60691	60829	
==>YData->{srcname} );
    $parser->YYData->{srcname_size}  = $st[7];
    $parser->YYData->{srcname_mtime} = $st[9];
    $parser->_InitLexi <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	5234	5498	
==>en $file, $!/$^E";

    if ( ! ($file =~ s/\.ops$/.c/) )
    {
        $file .= ".c";
    }

    #
    # Read through the file, creating and storing Parrot::Op objects:
    #

    my $count = 0;
    my ($name, $footer);
    my $type;
    my $body;
    my $short_nam <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	248239	248521	
==>> 288,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 670 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@3}} : {{\@2}};\n  {{+=4} <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	592	689	
==>dentifier (" . ref($ident) . ") is not!") unless UNIVERSAL::isa($ident, 'Jako::Construct::Expressi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	592	689	
==>dentifier (" . ref($ident) . ") is not!") unless UNIVERSAL::isa($ident, 'Jako::Construct::Expressi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669081	669172	
==>/ops/pmc.ops\"\n    {{\@1}}->vtable->push_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669853	669944	
==>/ops/pmc.ops\"\n    {{\@1}}->vtable->push_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}} <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	2887	3045	
==>y $file = shift @ARGV;
die "$0: Could not find ops file '$file'!\n" unless -e $file;
my $ops = Parrot::OpsFile->new( [ $file ], $nolines_flag );
die "$0: Could <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	1450	1584	
==>croak "You can call run() only on subclasses of "
     . __PACKAGE__;
  } else {
    Carp::croak join '',
      "You can't call run() b <==
2	/Users/nnunley/parrot/tools/build/vtable_h.pl	555	659	
==>rint OUT <<'EOF';
/* ex: set ro:
** !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
**
** This file is generate <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36850	37095	
==>"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			"<=" => 85,
			'OR' => 84,
			"]" => 175,
			">" => 86
		}
	},
	{#State 143
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TR <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30304	30462	
==>"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			"<=" => 85,
			'OR' => 84,
			"]" => 150,
			"> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	2397	2550	
==>f->kind eq 'arg'); }
sub is_sub      { my $self = shift; return $self->kind eq 'sub'; }
sub is_module   { my $self = shift; return $self->kind eq 'module' <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	1235	1357	
==>ey are C<AND>ed.
They can also be negated with a "no", for example C<--noconst>.

=over 4

=item C<--objectname>

=item C<- <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76806	76940	
==>) - $::RD_TRACE;
		return substr($_[0],0,$::RD_TRACE/2)
			. "...<$count>..."
			. substr($_[0],-$::RD_TRACE/2);
	}
	else
	{
		return $ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	8972	9080	
==>'$name'.  You shouldn't use numbers for your test names.
    Very confusing.
ERR

    my($pack, $file, $line) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10869	11217	
==>$c;
                    push @types, 'NUM';
                } elsif ($c =~ /\w/) {
                    push @tokens, $c;
                    push @types, 'CHAR';
                } elsif ($c =~ /\s/) {
                    # Skip whitespace, unless backslashed
                } else {
                    push @tokens, $c;
                    push @t <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8174	8313	
==>$check eq 'ABORT'
            and	do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Abort.\n";

				return(undef);

			};

#DBG <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7805	7934	
==>$check eq 'ABORT'
            and	do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Abort.\n";

				return(undef);

			};

#DBG <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	576	748	
==>"} = sub ($$;$) {
        my( $lang_code, $output, $desc ) = @_;

        ++$count;
        my( $lang_f, $pasm_f, $by_f, $out_f ) = map { # JMG
            my $t = $0; $t =~ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	26615	26825	
==>e_Plan} ) {
            require Carp;
            Carp::croak("Can't change the current test number without a plan!");
        }

        $self->{Curr_Test} = $num;

        # If the test counter is being pushed <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	473	578	
==>ript is used for building
dynamic PMCs.

=cut

use strict;

use File::Copy qw(copy);

# qq[] isn't guarant <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	435	540	
==>ript is used for building
dynamic PMCs.

=cut

use strict;

use File::Copy qw(copy);

# qq[] isn't guarant <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	21779	21886	
==>ammar.y"
{ return { min => $_[2], max => -1 }; }
	],
	[#Rule 33
		 'number', 2,
sub
#line 160 "lib/Regex/Gra <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	37650	37840	
==>0-length

          DEBUG > 3 and
           print "     FOUND a '/' in it.",
             "  Splitting to page [...$1] + section [$2...]\n";

          push @section_name, splice @ell_conten <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	23087	23213	
==>is) {
        my @dynasty = @$is;
        DEBUG > 4 and print "    Renaming $was node to $dynasty[-1]\n"; 
        $treelet->[$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449260	449394	
==>"p"
                            ],
                  "BODY" => "#line 190 \"src/ops/math.ops\"\n  {{\@1}}->vtable->i_absolute(interpret <==
2	/Users/nnunley/parrot/config/gen/platform.pm	3444	3661	
==>ntation files are merged into platform.c
    my @impls = qw/
        time.c
        env.c
        dl.c
        stat.c
        math.c
        memalign.c
        signal.c
        itimer.c
        memexec.c
        exec.c <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2455	2549	
==>->emit_par( 0) }
sub end_item_number { $_[0]->emit_par( 0) }
sub end_item_text   { $_[0]->emit_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2023	2117	
==>->emit_par( 0) }
sub end_item_number { $_[0]->emit_par( 0) }
sub end_item_text   { $_[0]->emit_ <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	903	1007	
==>lass//s;
    s/\{.*$//s;

    return $PMC_PARENTS{$pmc} = lc($1) if m/extends\s+(\w+)/;
    return $PMC_P <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11240	11356	
==>o_filter(sub { /^(call|branch)/ } );

    print OUT "</pre>";
    print OUT page_footer();

    close(OUT);
    close <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	109	209	
==>se 'Exporter';
use strict;

use vars qw(@AsmOps @EXPORT);

@Regex::Ops::Label::ISA = qw(Regex::Ops::L <==
2	/Users/nnunley/parrot/config/auto/gc.pm	782	892	
==>n = 'Determining what allocator to use';

# valid libc/malloc/malloc-trace/gc
@args = qw(gc verbose);

sub runs <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17494	17630	
==>)

' Logical Operators (not NOT)
print "      AND   OR    XOR   EQV   IMP"
for i = 0 to 1
for j = 0 to 1
print i; j;
if i and j then a$=" <==
2	/Users/nnunley/parrot/lib/Test/More.pm	27300	27428	
==>= shift;

    return '' if !ref $thing;

    for my $type (qw(ARRAY HASH REF SCALAR GLOB Regexp)) {
        return $type if UNIVE <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	32319	32428	
==>xp' => 100,
			'functioncall' => 31,
			'explist1' => 158,
			'function' => 26,
			'tableconstructor' => 3 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	2435	2586	
==>ax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'module', Attributes => { name => $self->name } });
  $_->sax($handl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032653	1032953	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_lex",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033750	1034050	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_lex",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760944	761207	
==>"NAME" => "setp_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761796	762059	
==>"NAME" => "setp_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	52323	52561	
==>51
		 'namelist', 3,
sub
#line 306 "Lua\lua51.yp"
{
            [
                @{ $_[1] },
                BuildLocalVariable( $_[0], $_[3] ),
            ];
        }
	],
	[#Rule 52
		 'namelist', 1,
sub
#line 313 "Lua\lu <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10034	10136	
==>]{ACTIONS}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Pop state $$stack[-1][0 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9586	9685	
==>]{ACTIONS}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Pop state $$stack[-1][0 <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	3157	3350	
==>$rule;
            }

            # Create new rule structure.
            $rule = {
                name    => $name
            };
        }

        # Is it a value within a rule with a hered <==
2	/Users/nnunley/parrot/languages/scheme/Scheme.pm	543	737	
==>ain->{scope}};

  my $code = $main->{code};
  my $header = << 'END_HEADER';
# Header information
    # new_pad 0
END_HEADER

  while (@missing) {
    my $miss = shift @missing;

    my $link = Sc <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39759	39885	
==>trace(q{Trying operator: [' . $self->describe . ']},
				  Parse::RecDescent::_tracefirst($text),
				  q{' . $rule->{"name"} . <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814201	814558	
==>:base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 919,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 562 \"src/ops/set.ops\"\n  {{\@1}} = 0;\ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6533	6699	
==>pass by setting Exchange to TRUE.
   FOR I = 2 TO Max
      IF A$(I-1) > A$(I) THEN
         Exchange = TRUE
         B$=A$(I-1)
         A$(I-1)=A$(I)
         A$(I)= <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16186	16352	
==>pass by setting Exchange to TRUE.
   FOR I = 2 TO Max
      IF A$(I-1) > A$(I) THEN
         Exchange = TRUE
         B$=A$(I-1)
         A$(I-1)=A$(I)
         A$(I)= <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10700	10874	
==>', 'i', 'i', 'i', 'i',
'd', 'n', 'o', 'o', 'o', 'o', 'o', qq{/}, 'o', 'u', 'u', 'u', 'u', 'y', 'th', 'y',

);

{
  # Now stuff %Latin1Char_to_fallback:
  %Latin1Char_to_fallba <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1036	1130	
==>ontent, and then an end-token with the tagname of "head1".

=item $token->tagname(I<somestring> <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1464	1558	
==>ontent, and then an end-token with the tagname of "head1".

=item $token->tagname(I<somestring> <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10044	10144	
==>}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC}:
if ${ITEMP0} == 0 goto PRE_CALL_PLOOP_END_$ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7558	7658	
==>}
${ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC}:
if ${ITEMP0} == 0 goto PRE_CALL_PLOOP_END_$ <==
2	/Users/nnunley/parrot/config/auto/funcptr.pm	298	394	
==>r;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

us <==
2	/Users/nnunley/parrot/config/auto/va_ptr.pm	293	389	
==>r;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

us <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	9544	9696	
==>>{symbol} :optional\n";
        }
    }

    sub visitReturnDir {
        my $self  = shift;
        my ($dir) = @_;
        my $FH    = $self->{f <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	27034	27248	
==>e(
            $para->[1]{'start_line'},
            "Can't have a 0 in =over $content"
          );
          $para->[1]{'indent'} = 4;
        }
      } else {
        $self->whine(
          $para->[1]{'start_lin <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	17690	17859	
==>clude, $file);
        if ($existing && -e $existing && dump_is_newer($existing)) {
            if ($file =~ /default\.dump$/) {
                next; # don't overwite de <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	75343	75501	
==>, $tracemsg
| ~~       |^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<|
	    $tracemsg
.

select TRACE;
$| = 1;

open (TRACECONTEXT, ">&STDERR");
format TRACECONTEXT = <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	3974	4159	
==>sub file_for_perl_module
{
    my $self = shift;
    my $module = shift || return;

    my @path = split '::', $module;
    
    $module = pop @path;
    $module .= '.pm';
    
    my $d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958749	958959	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959550	959760	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42298	42388	
==>> "#line 727 \"src/ops/core.ops\"\n  do_exception(interpreter, EXCEPT_exit, {{\@1}});\n  {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42988	43078	
==>> "#line 727 \"src/ops/core.ops\"\n  do_exception(interpreter, EXCEPT_exit, {{\@1}});\n  {{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9184	9310	
==>(@_) {
    next unless defined $new_code and length $new_code;
    if(ASCII) {
      # A good-enough check that it's good as an <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10448	10574	
==>(@_) {
    next unless defined $new_code and length $new_code;
    if(ASCII) {
      # A good-enough check that it's good as an <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37654	37877	
==>t::lastunexpected = $text;
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) .'
		unless (defined ($_tok = $thisparser->_parserepeat($text, '
		. $self->callsyntax($namespace.'::')
		. ', ' . $min . ', ' . $max . ', <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	684	780	
==>x>

The exec prefix. Defaults to '/usr'.

=item C<bindir>

The executables directory. Defaults to <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	913	1009	
==>x>

The exec prefix. Defaults to '/usr'.

=item C<bindir>

The executables directory. Defaults to <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807357	807678	
==>t",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 911,
                  "ARGS" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5654	5812	
==>();
			goto PARSE;
		}
		if ($syms[NEXT] eq "if") {
			$_=pop @ifstack;
			if ($_ < 0 ) {
				# print "Else was done, skipping...\n";
			} else {
				push @{$c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808261	808755	
==>t",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 912,
                  "ARGS" => [
                              "n",
                              "p",
                              "kc"
                            ],
                  "BODY" => "#l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219406	219789	
==>,
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 257,
                  "ARGS" => [
                              "p",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 469 \"src/ops/cmp.ops\"\n  if (strin <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	10120	10356	
==>t <<"EOC";
	$n = new $DEFVAR
	$n = $v->[1]
EOC
    }
    $n;
}

sub LOAD_CONST {
    my ($n, $c, $cmt) = @_;
    my $typ = typ($c);
    if ($typ eq 'P') {
	if ($c =~ /^[_a-zA-Z]/ && !$names{$c}) {	# True, False ...
	    print <<EOC;
	.lo <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	9380	9706	
==>.h
cprojl      complex.h
creal       complex.h
crealf      complex.h
creall      complex.h
csin        complex.h
csinf       complex.h
csinh       complex.h
csinhf      complex.h
csinhl      complex.h
csinl       complex.h
csqrt       complex.h
csqrtf      complex.h
csqrtl      complex.h
ctan        complex.h
ctanf       comp <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	11062	11200	
==>: "";
	    my $s = $2;
	    $c =~ s/.*/$u"$s"/;
	}
	print <<EOC;
	\t$cmt
EOC
    }
    else {
	print <<EOC;
	\t$cmt
EOC
    }
    push @sta <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	5	150	
==>ire 5;
package Pod::Simple::XMLOutStream;
use strict;
use Carp ();
use Pod::Simple ();
use vars qw( $ATTR_PAD @ISA $VERSION $SORT_ATTRS);
$VERSION <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8325	8607	
==>/
FF,$c,$d,$a,$b,$_[6],17,0x242070db,/* 3 */
FF,$b,$c,$d,$a,$_[7],22,0xc1bdceee,/* 4 */
FF,$a,$b,$c,$d,$_[8],7,0xf57c0faf,/* 5 */
FF,$d,$a,$b,$c,$_[9],12,0x4787c62a,/* 6 */
FF,$c,$d,$a,$b,$_[10],17,0xa8304613,/* 7 */
FF,$b,$c,$d,$a,$_[11],22,0xfd469501,/* 8 */
FF,$a,$b,$c,$d,$_[12], <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598108	598267	
==>SS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599155	599314	
==>SS, \"Class '%s' doesn't exist\",\n\t\tstring_to_cstring( interpreter, {{\@2}} ));\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	186	285	
==>od::Simple::PullParserEndToken;
use Pod::Simple::PullParserTextToken;

BEGIN { *DEBUG = \&Pod::Simpl <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	32299	32422	
==>];

    return 1;
}


=back

=end _private

=cut

$SIG{__DIE__} = sub {
    # We don't want to muck with death in an eval, b <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4805	4908	
==>arse {
    my($self)=shift;

	my($rules,$states,$lex,$error)
     = @$self{ 'RULES', 'STATES', 'LEX' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4568	4667	
==>arse {
    my($self)=shift;

	my($rules,$states,$lex,$error)
     = @$self{ 'RULES', 'STATES', 'LEX' <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7225	7331	
==>ack_depth
${DEST0} = concat ${STEMP0}
PIR
	}

	return $pir;
}

sub post_load($) {
	my $self = shift;
	my $n <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5047	5153	
==>ack_depth
${DEST0} = concat ${STEMP0}
PIR
	}

	return $pir;
}

sub post_load($) {
	my $self = shift;
	my $n <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	6892	7059	
==>th}, $name . $bench{$name}{$prog})
            );
            my $stop = $Get_Time{ $cfg{method} }->();
            my $used = $stop - $start;
            $base ||= $us <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	1163	1286	
==>(defined &UNICODE) { }
  elsif($] >= 5.008)   { *UNICODE = sub() {1}  }
  else                 { *UNICODE = sub() {''} }
}
i <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	235	330	
==>se Getopt::Long;
use strict;

my $outfile = 'all_cstring.str';
my $string_private_h = 'src/strin <==
2	/Users/nnunley/parrot/config/init/defaults.pm	6298	6481	
==>utomatic lexer  generator
        # Some systems may lack these
        yacc => 'bison -v -y',
        lex  => 'flex',

        # Extra flags needed for libnci_test.so
        ncilib_l <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9042	9155	
==>next j
	a$(w+w*sin(i)+1)="*"
	a$(w+w*cos(i)+1)="+"
	for j = 1 to w*2
		print a$(j);
	next j
	print
next i

' Expec <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	34285	34437	
==>op_exact_p,
  'inexact?'         => \&_op_inexact_p,
  '='                => \&_op_eq,
  '<'                => \&_op_lt,
  '>'                => \&_op_gt <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	11328	11459	
==>st_no will be part of temporary file
            my $test_no = $builder->current_test() + 1;

            # Name of the file where o <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	16813	16941	
==>st_no will be part of temporary file
            my $test_no = $builder->current_test() + 1;

            # Name of the file with <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	57025	57180	
==>0], $_[1] );
            BuildCallMethod( $_[0], $obj, $_[3], $_[4] );
        }
	],
	[#Rule 89
		 'functioncall', 2,
sub
#line 469 "Lua\lua51.yp"
{ <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	4773	4914	
==>ers, 0, 2) {
            last if $vers > $gccversion;
            next unless $opt; # Ignore blank lines

            if ($opt =~ /-mno-accumu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146364	146476	
==>tch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_EQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167590	167702	
==>tch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_EQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666283	666777	
==>( {
                  "JUMP" => 0,
                  "NAME" => "elements",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 745,
                  "ARGS" => [
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 372 \"src <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13742	13881	
==>oo as integer
	bar as string
end type
function mine (a, b, c as first)
	a=12
	b=99
	c.foo=103
	mine=100
end function
dim z as first
z.foo=13 <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3938	4215	
==>'P16', 'P16[1]'],
  ['',            'inc', 'I1'],
  ['',            'typeof', 'I16', 'P16'],
  ['',            'ret'],
 ],
);

sub new {
  my $class = shift;
  my $self = {
    instruction => []
  };
  bless $self, $class;
}

sub _add_inst {
  my $self = shift;
  push @{$self-> <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	1941	2084	
==>else {
			$var=~s/\W$//g;
		}
		#print "Type: $stype  User: $user Var: $var  Array: $array\n";
		if ($user and ! $array ) {
			print CODE<<SHARI <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12114	12233	
==>$syms[CURR];
			while(1) {
				feedme();
				if ($syms[CURR] eq ",") {
					push @ld, { type => "STRING", value=> qq{"$s <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1595	1707	
==>k = &{"Test::More::$meth"}( @_ );
        # if( $ok ) { foreach my $meth ( $lang_f, $pasm_f, $by_f, $out_f ) { un <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1511	1623	
==>k = &{"Test::More::$meth"}( @_ );
        # if( $ok ) { foreach my $meth ( $lang_f, $pasm_f, $by_f, $out_f ) { un <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9942	10045	
==>xpression::Value->new($block, $self->require_value);

      $self->require_close_paren;
      $self->req <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25478	25581	
==>xpression::Value->new($block, $self->require_value);

      $self->require_close_paren;
      $self->req <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	47579	47684	
==>de($code);
		}
		elsif ($grammar =~ m/(?=$IMPLICITSUBRULE)/gco
			and do { ($code) = extract_codeblock($gr <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3684	3799	
==>while(($prm,$value)=splice(@$inarray,0,2)) {
        $prm=uc($prm);
			exists($$checklist{$prm})
		or	croak("Unkn <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3492	3604	
==>while(($prm,$value)=splice(@$inarray,0,2)) {
        $prm=uc($prm);
			exists($$checklist{$prm})
		or	croak("Unkn <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	6832	6994	
==>_ok:
EOC
    }
    $cur_func = $arg;
    %params = ();
    %lexicals = ();
    %names = ();
}

sub ARG_count {
    my ($n, $c, $cmt) = @_;
    print <<EOC;
	# $c($ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10111	10228	
==>------------------------------------

%Latin1Code_to_fallback = ();
@Latin1Code_to_fallback{0xA0 .. 0xFF} = (
# Copied <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9357	9479	
==>utput_popint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);
    if ($self->{DEBUG}) {
        my $desc = $d <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9051	9173	
==>utput_popint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);
    if ($self->{DEBUG}) {
        my $desc = $d <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	34564	34814	
==>ests} == 1 ? '' : 's';
            $self->diag(<<"FAIL");
Looks like you planned $self->{Expected_Tests} test$s but ran $num_extra extra.
FAIL
        }
        elsif ( $num_failed ) {
            my $s = $num_failed == 1 ? '' : 's';
            $self <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	34228	34342	
==>ests} == 1 ? '' : 's';
            $self->diag(<<"FAIL");
Looks like you planned $self->{Expected_Tests} test$s but <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2802	2902	
==>ne -lpthread -lm -L/opt/local/lib  -licuuc -licudata -lpthread -lm';
        $extraLibs =~ s/blib/..\ <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	2597	2697	
==>ne -lpthread -lm -L/opt/local/lib  -licuuc -licudata -lpthread -lm';
        $extraLibs =~ s/blib/..\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206497	206609	
==>le->get_integer(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207439	207551	
==>le->get_integer(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683062	683301	
==>>shift_string(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	245402	245793	
==>"o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 285,
                  "ARGS" => [
                              "i",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 638 \"s <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	1728	1961	
==>fset_in_ops;
}
#else
#  define prederef_to_opcode(i, pred) (pred ? \\
     ((opcode_t*)pred + CONTEXT(i->ctx)->pred_offset) : NULL)
#  define opcode_to_prederef(i, op)   (op ? \\
     (void**) (op   - CONTEXT(i->ctx)->pred_offset) : N <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	49953	50046	
==>quote or quotelike operator. If found, call
C<extract_quotelike> to eat it. If C<extract_quote <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9623	9728	
==>{PTEMP1}, ${PTEMP2}) = method_info_from_token(${ASSEMBLY}, ${ARG0})

# If it's a call to instantiate, need <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7137	7242	
==>{PTEMP1}, ${PTEMP2}) = method_info_from_token(${ASSEMBLY}, ${ARG0})

# If it's a call to instantiate, need <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	8598	8741	
==>RecDescent::expected,
	       $Parse::RecDescent::unexpected,
	       $Parse::RecDescent::lastexpected,
	       $Parse::RecDescent::lastunexpect <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	38179	38836	
==>};
        $parser->YYData->{self} = undef;
    }
    my $fct = new_fct($parser);
    push @opcodes2, new SubDir(
        $parser,
        'prolog' => 1,
        'result' => $fct,
        'outer'  => '_main',
    );
    for my $param ( @{$params} ) {
        push @opcodes2, @{ $param->[1] };
    }
    if ( scalar( @{$params} ) != 0
        and !exists $params->[-1]->[1]->[-1]->{pragma} )
    {
        my $extra = new defn( 'extra', 'local', 'pmc' );
        push @opcodes2, new ParamDir( $parser,
            'prolog' => 1,
            'result' => $extra,
            'pragma' => ':slurpy',
        );
    }
    for my $param ( @{$ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	9912	10122	
==>{
         $path = File::Spec->curdir();
    }

    return $path;
}

# 
# private methods, should not be used by Modules inherition from Parrot::Test
#

sub _generate_functions {
    my $package = 'Parrot::Test' <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	4809	4921	
==>description)>

Compiles and runs the C code, passing the test if a string comparison of
output with the unexpecte <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	4493	4595	
==>description)>

Compiles and runs the C code, passing the test if a string comparison of
output with the <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	306703	306970	
==>OT_JUMP_RELATIVE",
                  "NAME" => "unless_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307496	307763	
==>OT_JUMP_RELATIVE",
                  "NAME" => "unless_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	2974	3108	
==>q ">");
	return 10 if ($op eq "<");
	return 15 if ($op eq ",");
	return 20 if ($op eq "+");
	return 20 if ($op eq "-");
	return 30 if ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437216	437516	
==>E" => "inline",
                  "CODE" => 501,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 94 \"src/ops/ma <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	16987	17140	
==>ing $_";
    }
  
  }
  close(IN);
}

print @norms;
print "\n ( \$] .= 5.006001 ? (\n";
print @good;
print " ) : (\n";
print @bad;
print " )\n);\n";

__EN <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	6422	6775	
==>punie.in' => 'languages/punie/Makefile',
        commentType                     => '#',
        replace_slashes                 => 1
    );
    genfile(
        'config/gen/makefiles/regex.in' => 'languages/regex/Makefile',
        commentType                     => '#',
        replace_slashes                 => 1
    );
    genfile(
        'config/ <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	13030	13128	
==>t type is C<'%'>, the
accessor returns the hash element value.  If the element type is
C<'*%'>, a r <==
2	/Users/nnunley/parrot/lib/Parrot/Revision.pm	835	941	
==>);
our $config = $current;

# check if Parrot::Config is available
eval 'use Parrot::Config; $config = $PCo <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	24160	24408	
==>nd of _remap_sequences traversal.\n\n";

  if(@_ == 2 and @{ $_[1] } == 3 and !ref $_[1][2]) {
    DEBUG and print "Noting that the treelet is now formatless.\n";
    return 0;
  }
  return 1;
}

# . . . . . . . . . . . . . . . . . . . . . . . . . . <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441576	441671	
==>ath.ops\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442591	442686	
==>ath.ops\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+= <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	18978	19137	
==>used for the recursive
definition of this function.

=cut

sub print_tree {
    my ($include,$depth, @files) = @_;

    for my $file (@files) {
        my $clas <==
2	/Users/nnunley/parrot/tools/util/pirtidy.pl	310	438	
==>reach my $file (@ARGV) {
    warn "Processing $file...\n" if $verbose;
    open my $ifh, '<', $file;
    my $outfile = "$file.$ex <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	2638	2827	
==>Type                          => '#',
        replace_slashes                      => 1,
        conditioned_lines                    => 1
    );
    genfile(
        'config/gen/makefiles/d <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	1372	1543	
==>Type                    => '#',
        replace_slashes                => 1,
        conditioned_lines              => 1
    );
    genfile(
        'config/gen/makefiles/d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710712	710809	
==>space(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_printf(interpreter, INTVA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711546	711643	
==>space(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_printf(interpreter, INTVA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875033	875233	
==>,
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876051	876251	
==>,
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63523	63856	
==>GS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 83,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 964 \"src/ops/core <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580212	580629	
==>i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 662,
                  "ARGS" => [
                              "p",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 289 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interp <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6536	6749	
==>$_->{pragma} eq 'multi' ) {
                    print {$FH} " :slurpy";
                }
                $first = 0;
            }
            print {$FH} ") = ";
        }
        my @args = @{ $op->{arg2} <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	627	729	
==>se of this module in a standalone parser make the included
# text under the same copyright as the Pars <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	608	709	
==>se of this module in a standalone parser make the included
# text under the same copyright as the Pars <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824421	824520	
==>xception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_STRING) {\n    internal <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825492	825591	
==>xception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_STRING) {\n    internal <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3511	3627	
==>ure its a string, somewhere.
    }
    else {
      $self->SYNTAX_ERROR("Sub declaration has no fnlib property, and p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6175	6291	
==>ure its a string, somewhere.
    }
    else {
      $self->SYNTAX_ERROR("Sub declaration has no fnlib property, and p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342003	342265	
==>" => [
                              "i",
                              "p",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 128 \"src/ops/io.ops\"\n  {{\@1}} = PIO_pioctl(int <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	16707	16827	
==>d.

Note that the initializer for a nested class may be specified as
an object of that class, or as a reference to a hash <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3551	3662	
==>. $self->output_label_use($dest) . " unless $reg;";
}

sub output_check {
    my ($self, $needed, $failLabel, $l <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	12299	12456	
==>_import' => '',
             'test_prog' => 'parrot',
             'testheader' => undef,
             'testheaders' => undef,
             'touch' => 'perl - <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27034	27170	
==>}, $rule->{'push'});
		$pir .= "### pre_op\n";
		$pir .= sub_meta($pre_op, $mv, "pre_op for rule $rule->{'name'}");
		$pir .= "### end pr <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9707	9816	
==>bug & 0x10
#DBG>		and	print STDERR "**Dicard invalid token ".&$ShowCurToken.".\n";

			$$token=$$value=unde <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9270	9376	
==>bug & 0x10
#DBG>		and	print STDERR "**Dicard invalid token ".&$ShowCurToken.".\n";

			$$token=$$value=unde <==
2	/Users/nnunley/parrot/config/init/hints/freebsd.pm	900	1021	
==>rot_is_shared        => 1,
        libparrot_shared        => 'libparrot$(SHARE_EXT).$(SOVERSION)',
        libparrot_shar <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	1738	1859	
==>rot_is_shared        => 1,
        libparrot_shared        => 'libparrot$(SHARE_EXT).$(SOVERSION)',
        libparrot_shar <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	27391	27538	
==>print "=over found of type $list_type\n";
      
      $self->{'content_seen'} ||= 1;
      $self->_handle_element_start(($scratch = 'over-' . $list <==
2	/Users/nnunley/parrot/config/auto/jit.pm	2143	2263	
==>h/core.jit" ? 'yes' : 'no', "\n")
        if $verbose;

    # XXX disable all but i386, ppc
    my %jit_is_working = (
	i <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2386	2500	
==>name the gcov log file.
    # The -o flag is necessary to help gcov locate it's basic block (.bb) files.
    my $cm <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	4600	4782	
==>$i];
        my $name = $arg->{name};
        
        $code .= emit("  .local pmc a_$name");
        # do we need to use a default?
        $code .= "  if argc < ".($i+1)." goto defa <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	107	209	
==>2:00.179448Z bernhard  $

=head1 NAME

Parrot::Docs::HTMLPage - HTML Documentation Page

=head1 DESCRIP <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9980	10089	
==>,
    #  i.e., "thatelementname".  Then when we go re-mapping,
    #  a "W" in the treelet turns into "thatele <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	329743	330077	
==>> ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 387,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 169 \"src/o <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	1573	1679	
==>It would be nice to have a ParrotSourceFile class of course. ;)
(a jest - sort of.)

=item * Misc: rational <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63204	63450	
==>ps/core.ops\"\n  PARROT_ERRORS_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63850	64096	
==>ps/core.ops\"\n  PARROT_ERRORS_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	4874	5129	
==>MP|COMM|STMT/) {
		die if $loop++>255;
		if ($syms[CURR] eq ",") {
			feedme();
			next;
		}
		die "Only labels/numbers allowed" unless ($type[CURR]=~/BARE|INT/);
		create_label();
		push(@onlab, $syms[CURR]);
		feedme();
	}
	push @{$code{$seg}->{code}},<< <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	38	136	
==>er __END__

use 5.005_03;

use strict;
# use warnings::register;
use vars qw(@ISA @EXPORT $VERSION) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	306042	306418	
==>RS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 356,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 1012 \"src/ops/cmp.o <==
2	/Users/nnunley/parrot/config/auto/env.pm	980	1146	
==>onf->data->set(
        setenv   => $setenv,
        unsetenv => $unsetenv
    );

    if ($setenv && $unsetenv) {
        print " (both) " if $verbose;
        $self- <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5005	5147	
==>>{symbol} = $op->{arg1}->{symbol}\n";
    }

    sub visitCallOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	933020	933322	
==>RGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1048,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 420 \"src/ops/st <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669084	669209	
==>s/pmc.ops\"\n    {{\@1}}->vtable->push_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669856	669981	
==>s/pmc.ops\"\n    {{\@1}}->vtable->push_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	11069	11210	
==>') && 
        Foo->can('whatever') 
      );

only without all the typing and with a better interface.  Handy for
quickly testing an interfac <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27307	27431	
==>des, new BranchOp( $parser,
        'result' => $l_continue,
    );
    push @opcodes, new LabelOp( $parser,
        'arg <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28186	28310	
==>des, new BranchOp( $parser,
        'result' => $l_continue,
    );
    push @opcodes, new LabelOp( $parser,
        'arg <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	4706	4860	
==>->catdir($options{includedir}, $dest);
    } elsif ($meta{doc}) {
        $dest = File::Spec->catdir($options{docdir}, $dest);
    } elsif ($meta{pkgconfig <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	13856	13961	
==>bel('alt_back');
    my $try_S = $self->genlabel('alt_S');
    my $next = $self->genlabel('next');

    my <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029861	1029972	
==>e\");\n  }\n  next = Parrot_sleep_on_event(interpreter, {{\@1}}, next);\n  {{=next}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030703	1030814	
==>e\");\n  }\n  next = Parrot_sleep_on_event(interpreter, {{\@1}}, next);\n  {{=next}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549742	549974	
==>33,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 56 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2837	2943	
==>eturn "opcode_t* pop_addr = (opcode_t*)pop_dest(interpreter);\ncur_opcode = pop_addr;goto *ops_addr[*(pop_a <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2725	2836	
==>f{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHECK}}='ACCEPT';
    undef <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2601	2704	
==>f{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHECK}}='ACCEPT';
    undef <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	926	1021	
==>ample, parsing a "=head1 ..." line will give you
a start-token with the tagname of "head1", toke <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1354	1449	
==>ample, parsing a "=head1 ..." line will give you
a start-token with the tagname of "head1", toke <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7285	7389	
==>ns{ignore}) eq 'ARRAY' ? join('|', @{$options{ignore}})
		    : defined($options{ignore})	       ? $optio <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24287	24391	
==>ns{ignore}) eq 'ARRAY' ? join('|', @{$options{ignore}})
		    : defined($options{ignore})	       ? $optio <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	9685	9785	
==>(0..$max_push - 1) {
		$dest_locals .= $dest_locals ? ', ' : '.local string ';
		$dest_locals .= "des <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	18741	18859	
==>e., unless it's one word
        $self->whine(
          $para->[1]{'start_line'},
          "'=begin' only takes one p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782035	782478	
==>",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 883,
                  "ARGS" => [
                              "p",
                              "ki",
                              "sc"
                            ],
                  "BODY <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	1274	1397	
==>n/) {
        if (-f "/sw/include/gmp.h") {
            $conf->data->add(' ', linkflags => '-L/sw/lib');
            $conf-> <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	59373	59498	
==>mited_pat(q{'"},q{/%});

If more delimiters than escape chars are specified, the last escape char
is used for the remaining de <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	185	405	
==>r to the generated subs in Parrot::Test.
Perhaps someone can do a better job of delegation here.

=cut

sub new {
  return bless {};
}


my %language_test_map = (
    output_is         => 'is_eq',
    output_like       => <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	283	412	
==>r to the generated subs in Parrot::Test.
Perhaps someone can do a better job of delegation here.

Note: this current verion is bas <==
2	/Users/nnunley/parrot/lib/File/Which.pm	6716	6857	
==>h/index.html for more
information.

=head1 License

This library is free software; you can redistribute it and/or modify it under
the same ter <==
2	/Users/nnunley/parrot/config/init/hints/vms.pm	377	530	
==>xe     => "exe"
    );

    {
        local $^W;    # no warnings on redefinition

        *Parrot::Configure::Step::cc_build = sub {
            my ($cc, <==
2	/Users/nnunley/parrot/config/inter/lex.pm	126	278	
==>=head1 NAME

config/auto/lex.pm - lexical analyzer generator

=head1 DESCRIPTION

Determines whether C<lex> is installed and if it's actually C<flex>.

= <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	12562	12696	
==>d4;}
}

END

   $_[0]->codeblock_halfpoint_size(),
   $_[0]->head1_halfpoint_size(),
   $_[0]->head2_halfpoint_size(),
   $_[0]->head3_ <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	5945	6043	
==>unc_decl($base);
    print HEADER "$run_core_func;\n";
}
my $bs = "${base}${suffix}_";

print SOURC <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	2838	2968	
==>gives the
# token at that offset from the current one. If a count is given, then that
# many tokens (at most, given the possibility <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	8325	8434	
==>, @args) : '<no message>';

  printf STDERR "%s [%s]: Debug message: %s\n", $self->file, $self->line, $message <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36452	36555	
==>).
		$pir .= "### typeinfo\n";
		$pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	384	534	
==>ile is named, and turn it into a C implementation file.

=cut

use strict;

use lib 'lib';
use Parrot::Types;
use Parrot::PackFile;
use Parrot::PackFil <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	675	776	
==>_PROG_ARGS} || '';

    $lang_f = File::Spec->rel2abs($lang_f);
    $out_f  = File::Spec->rel2abs($out <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	712	813	
==>_PROG_ARGS} || '';

    $lang_f = File::Spec->rel2abs($lang_f);
    $out_f  = File::Spec->rel2abs($out <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	2013	2151	
==>{ return %{shift->{PROPS}}; }
sub args   { return @{shift->{ARGS}}; }

sub file   { return shift->{FILE};     }
sub line   { return shift-> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2848	2984	
==>{ return %{shift->{PROPS}}; }
sub args  { return @{shift->{ARGS}};  }

sub file  { return shift->{FILE};     }
sub line  { return shift-> <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	852	1109	
==>ations:    $I4\n"; # print  "Iterations:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, I1 <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	852	1109	
==>ations:    $I4\n"; # print  "Iterations:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, I1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	252912	253188	
==>"#line 713 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}}->vtable->logical_not(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14613	14729	
==>],
                  "BODY" => "#line 247 \"src/ops/core.ops\"\n  opcode_t * const loc = INTVAL2PTR(opcode_t *, {{\@1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	15300	15416	
==>],
                  "BODY" => "#line 247 \"src/ops/core.ops\"\n  opcode_t * const loc = INTVAL2PTR(opcode_t *, {{\@1 <==
2	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	425	539	
==>er = Parse::RecDescent->new( << 'END_GRAMMAR' );

{
  $::name_len         = 0; 
  $::substitution_len = 0; 
}

# We <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30541	30662	
==>ue: [}
						. $& . q{])},
						  Parse::RecDescent::_tracefirst($text))
							if defined $::RD_TRACE;').'
		push @item, <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28465	28584	
==>ue: [}
						. $& . q{])},
						  Parse::RecDescent::_tracefirst($text))
					if defined $::RD_TRACE;').'
		push @item, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	9252	9446	
==>he point of this routine is to set $self->{'_transcoder'} as indicated.

  return $line unless $line =~ m/^=encoding\s+(\S+)\s*$/s;
  DEBUG > 1 and print "Found an encoding line \"=encoding $1\"\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490143	490435	
==>2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inc",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	2768	2886	
==>ons{arguments} })
    {
        # Someone specified tests for me to run.
        return grep { -f $_ } @{ $options{argu <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	4647	5076	
==>g, why?
        $self->data->set(verbose => $verbose) if $n > 2;

        print "\n", $description, '...';
        print "\n" if $verbose && $verbose == 2;

        my $ret; # step return value
        eval {
            if (@step_params) {
                $ret = $step->runstep($self, @step_params);
            } else {
                $ret = $step->runstep($self);
            }
        };
        if ($@) {
            carp "\ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	678	764	
==>Loop::Continue;
use Jako::Construct::Block::Loop::Until;
use Jako::Construct::Block::Lo <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	4931	5132	
==>gs/) {
                use Config;
                if ($Config{archname} !~ /86/) {
                    $opt =~ s/-mno-accumulate-outgoing-args//;
                }
            }
            $warns .= " <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	670	766	
==>$type) . ") is not!"  unless UNIVERSAL::isa($type, qw(Jako::Construct::Type));
  confess "Identif <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	660	755	
==>$type) . ") is not!" unless UNIVERSAL::isa($type, qw(Jako::Construct::Type));
  confess "Identif <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660068	660161	
==>ne 334 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->exists_key <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660990	661083	
==>ne 334 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->exists_key <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	141	386	
==>use Carp qw(confess);
use Regex::Ops::Tree;
use P6C::Util qw(is_string);

sub op { Regex::Ops::Tree->op(@_) }

=head1 B<convert>

Convert a P6C parse tree to a native tree.

=cut

sub convert_p6tree {
    my ($self, $tree, $ctx) = @_;
    if (ref <==
2	/Users/nnunley/parrot/lib/Test/More.pm	31015	31120	
==>he author immediately!
WHOA
    }
}


=item B<eq_hash>

  my $is_eq = eq_hash(\%this, \%that);

Determines <==
2	/Users/nnunley/parrot/config/auto/byteorder.pm	12	113	
==>(C) 2001-2003, The Perl Foundation.
# $Id: /parrot/config/auto/byteorder.pm 19593 2006-05-30T02:28:15. <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	415	519	
==>his is too restrictive. Need better tests
    if %1 >= 0 goto power_ok
%% DOMAIN_ERROR %%
power_ok:
    $ <==
2	/Users/nnunley/parrot/languages/converter.pl	74	285	
==>cDescent grammar

=head1 DESCRIPTION

An early attempt at Python support for Parrot. 

=cut

use strict;
use YAML;
use Parse::RecDescent;

sub modifier {
  my $modifier = shift;
  return '' unless defined $modifi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	1443	1663	
==>$op (@$ops) {
        die $op if ! ref $op;

        if ($op->{name} eq 'LABEL') {
            $label .= $self->output_label_def($op);
        } else {
            foreach my $line ($self->render($op)) {
                $ <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2012	2236	
==>ur %cores = (
    C       => '',
   CGP     => '_cgp',
   CGoto   => '_cg',
    CSwitch => '_switch'
);

# Actual commands
sub compile_cmd {
    my ($target, $source) = @_;

    return
        "$CC $CFLAGS " .
        "-o " . <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841126	841395	
==>"JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841889	842158	
==>"JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	8975	9133	
==>") || die "Error appending to $source: $!\n";
unless ($nolines_flag) {
    my $source_escaped = $source;
    $source_escaped =~ s|\.temp||;
    $source_escaped <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516316	516675	
==>RS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 595,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 729 \ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	1264	1432	
==>y=0;
		if ($syms[CURR] eq "(") {
			$array=1;
			while($syms[CURR] ne ")") {
				feedme;
			}
			feedme;
		}
		$stype="";
		$user=0;
		if ($syms[CURR] eq "as") {
			feed <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9353	9497	
==>%s at %s GMT -->\n",
    # None of the following things should need escaping, I dare say!
    ref($self), $self->VERSION(), $ISA[0], $ISA[0]->VER <==
2	/Users/nnunley/parrot/config/gen/cpu/i386/auto.pm	327	434	
==>orm.h
 i386_has_mmx   => 1

=cut

package gen::cpu::i386::auto;

use strict;
use warnings;

use Parrot::Conf <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27167	27263	
==>ction declarations for all the methods for inclusion
in the PMC's C header file.

TODO include MM <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1005	1136	
==>"',
        ncilib_link_extra => '-def:src/libnci_test.def',
    );

    if ($is_msvc) {

        # Check the output of cl.exe to se <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	12690	12929	
==>HAR' => 4,
			"<" => 3,
			"[" => 14,
			'CODE' => 6,
			"." => 15
		},
		GOTOS => {
			'expr' => 11,
			'charclass' => 12,
			'regex1' => 19
		}
	},
	{#State 10
		ACTIONS => {
			"?" => 20
		},
		DEFAULT => -21,
		GOTOS => {
			'@1-1' => 2 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	15245	15383	
==>HAR' => 4,
			"<" => 3,
			"[" => 14,
			'CODE' => 6,
			"." => 15
		},
		GOTOS => {
			'expr' => 11,
			'charclass' => 12,
			'regex' => 5 <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	8068	8295	
==>datory_boilerplate {
    my ($file, $source) = @_;

    my @end_boilerplate = split /\n\s*/, qq(
       /*
        * Local variables:
        * c-indentation-style: bsd
        * c-basic-offset: 4
        * indent-tabs-mode: nil <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	2849	2995	
==>where C<S> is the size of an op.

=item C<goto ADDRESS(X)>

Transforms to C<PC' = X>. This is used for absolute jumps.

=item C<goto POP()>

Transf <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	4237	4474	
==>op tracing through jumps
                    } else {
                        die "untargeted label $dest->{label}";
                    }
                }
                last if $dest_stmt->{code}->{name} ne 'goto';
                $de <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	2946	3107	
==>y equivalent to:

  BEGIN { sub Pod::Simple::DEBUG () {5} }  # or some integer
  use Pod::Simple ();

And this:

  use Pod::Simple::Debug (\$debug_level,0);  # or <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	871	967	
==>ace

=head1 DESCRIPTION

These are the functions that Parrot extensions (that is, Parrot subrouti <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	17606	17703	
==>ions.

=head1 LICENSE

Copyright (C) 2005-2006, The Perl Foundation.

This is free software; you m <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	41446	41556	
==>outines generated by
C<gen_extract_tagged>, is that those generated subroutines:

=over 4

=item * 

do not hav <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	5263	5384	
==>g;
    =head1 NAME

    Parrot::OpLib::$package - Parrot Op Info

    =head1 DESCRIPTION

    This is an autogenerated fil <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	5856	6037	
==>nguages/parrot_compiler/Makefile',
        commentType                               => '#',
        replace_slashes                           => 1
    );
    genfile(
        'confi <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	17298	17434	
==>-exec//;

            write_code_to_file($code, $code_f);

            my $cmd = qq{$parrot $args "$code_f"};
            my $exit_code = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	689711	689932	
==>@2}}->vtable->getprops(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	7120	7256	
==>= $type eq lc $type ? 1 : 0;
		my $other    = 0;
		if (($^O eq 'irix' || $^O eq 'dec_osf') &&
		    $type =~ /^[BbSs]$/) {
		    if ($typ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	514	651	
==>m C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shift;
        
    return $self->SUPER::new(
        'Language Impleme <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327101	327208	
==>->set_integer_native(interpreter, {{\@1}}, (INTVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327903	328010	
==>->set_integer_native(interpreter, {{\@1}}, (INTVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	1620	1948	
==>{
        my $test = cc_run();
        if ($test eq
            "6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151 0\n"
            ) {
            $has_gmp = 1;
            print " (yes) " if $verbose;
            $self- <==
2	/Users/nnunley/parrot/config/inter/progs.pm	4007	4153	
==>sk;

    if (!$debug || $debug =~ /n/i) {
        $conf->data->set(
            cc_debug   => '',
            link_debug => '',
            ld_debu <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	2110	2219	
==>ltiple extensions associated with the same
executable, the last one will be used.  For instance, with the
conf <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031509	1031622	
==>ype)\n        {{\@1}} = -1;\n    else\n        {{\@1}} = data_types[{{\@2}} - enum_first_type].size;\n  {{+=3}};\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032378	1032491	
==>ype)\n        {{\@1}} = -1;\n    else\n        {{\@1}} = data_types[{{\@2}} - enum_first_type].size;\n  {{+=3}};\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	891025	891623	
==>"o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1007,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic",
                              "ic",
                              "s"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpret <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10694	10843	
==>es = sort { $a->[0] <=> $b->[0] } @ranges;

    # Build up an inclusion/exclusion list
    my @incexc;
    foreach (@ranges) {
        my ($first, $la <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	137	260	
==>okdsc
# Then compile.
use strict;
use Getopt::Std;
use vars qw( @tokens @tokdsc);
use vars qw(%code %options @basic %common) <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	8443	8631	
==>=~ s/^\s+//os;
			$desc =~ s/\s+$//os;
			
			# Remove any POD.
			# TODO - Decide whether we want to do this or convert
			# to HTML in the documentation item.
			$desc =~ s/[CFL]<([^>]+)> <==
2	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	1822	1916	
==>branch ENDMAINLOOP
	end

ENDMAINLOOP:
	branch MAINLOOPR 
ENDMAINLOOPNR:
	branch MAINLOOPNR

EOF <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834314	834468	
==>eter->ctx)->user_stack, {{\@1}}, STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835040	835194	
==>eter->ctx)->user_stack, {{\@1}}, STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	198	325	
==>my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->nix_X_codes(1);
  return $new;
}

#~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	732	853	
==>my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->nix_X_codes(1);
  $new->nbsp_for_S(1);
  $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7202	7313	
==>os');
    return $self->output_pushint($reg);
}

sub output_pushint {
    my ($self, $reg, $db_desc) = @_;
    $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6844	6955	
==>os');
    return $self->output_pushint($reg);
}

sub output_pushint {
    my ($self, $reg, $db_desc) = @_;
    $ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20557	20671	
==>urn $return;
}

sub _op_geq {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1623	1751	
==>ontain
initial and discovered configuration data.

Accepts no arguments and returns a L<Parrot::Configure::Data> object.

=cut

s <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	7638	7753	
==>exit 0;

__END__

=begin ADDITIONAL

=head1 AUTHOR

Gregor N. Purdy E<lt>gregor@focusresearch.comE<gt>

=head1 COPYR <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	11078	11212	
==>ete_contents;
    rmdir($_[0]->path) or die 'Failed to rmdir ' . $_[0]->path . ": $!";
    
    $_[0]->SUPER::delete;
}

=item C<delete <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	12164	12277	
==>age lines.
    do_filter(sub { /^branch/ } );

    print OUT "</pre>";
    print OUT page_footer();

    close(OUT <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	36302	36420	
==>econd_level($para);

        next;  # and skip
      } elsif($para_type eq '~Verbatim') {
        $para->[0] = 'Verbati <==
2	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	716	850	
==>pile_cs failed:\n$output";
		return 0;
	}
	
	# Clean up file.
	unlink "$file_name.cs";
	return 1;
}

# This translates a .NET DLL or EX <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	3583	3689	
==>:MD5::Perl - Perl implementation of Ron Rivests MD5 Algorithm

=head1 DISCLAIMER

This is B<not> an interfa <==
2	/Users/nnunley/parrot/config/init/defaults.pm	5751	6002	
==>ssembler

        cp    => '$(PERL) -MExtUtils::Command -e cp',
        lns   => $Config{lns},                          # soft link
        slash => '/',

        VERSION => $main::parrot_version,
        MAJOR   => $main::parrot_version[0],
        MI <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33012	33151	
==>lt' => $var,
    );
    if (    scalar( @{$exprs} ) == 0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('C <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576517	576606	
==>g_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577529	577618	
==>g_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, n <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	4881	5050	
==>tartpos;
		return;
	}

	$ldelpos = pos $$textref;

	unless ($$textref =~ m/\G($ldel)/gc)
	{
		_failmsg "Did not find opening bracket after prefix: \"$pre\"",
		         p <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37568	37664	
==>->hasleftmost($self) ? 'q{}'
				: 'q{'.$self->describe.'}' ) . ';
		$Parse::RecDescent::lastunex <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39971	40067	
==>->hasleftmost($self) ? 'q{}'
				: 'q{'.$self->describe.'}' ) . ';
		$Parse::RecDescent::lastunex <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4365	4466	
==>f, $code, $failLabel) = @_;
    my $comment = Regex::Ops::Tree::isplain($code) ? " # match '".chr($cod <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4052	4153	
==>f, $code, $failLabel) = @_;
    my $comment = Regex::Ops::Tree::isplain($code) ? " # match '".chr($cod <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14047	14262	
==>s in a comma and a space, unless it's 0-length

  my $is_obviously_module_name;
  $is_obviously_module_name = 1
   if $title =~ m/^\S+$/s and $title =~ m/::/s;
    # catches the most common case, at least

  DEBUG an <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39619	39747	
==>et_type(interpreter, sub,
        pmc, meth, "$sig"$arg);
    $ret
}

EOC
}

package Parrot::Pmc2c::deleg_pmc;
use base 'Parrot:: <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	2331	2444	
==>imple::PullParserEndToken';

  DEBUG > 1 and print "New pullparser object: $self\n";

  return $self;
}

# ~ ~ ~ ~ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	4080	4197	
==>em C<pir_2_pasm_like($code, $expected, $description)>

Compile the Parrot Intermediate Representation and generate Par <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8141	8295	
==>val);
			};

                $$check eq 'ABORT'
            and	do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Abort.\n";

				return(undef) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7775	7920	
==>val);
			};

                $$check eq 'ABORT'
            and	do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Abort.\n";

				return(undef) <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2373	2571	
==>$library);
        my $h = "$library.h";
        my $c = "$library.c";
        _write_a_file($self, $h, $c);
    } else {
        while (my @fc = each %{$self->{pmcs}}) {
            my ($file, $gene <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2086	2193	
==>fix and $self->peer and $self->peer->prefix) {
    $self->prefix($self->peer->prefix);
  }

  if ($self->pre <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1963	2070	
==>fix and $self->peer and $self->peer->prefix) {
    $self->prefix($self->peer->prefix);
  }

  if ($self->pre <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	6552	6661	
==>ree op being visited
#  guarantee - The number of atoms we are currently guaranteed to have for
#      the cur <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	19518	19677	
==>{'code'} =~ s/\s//g;
    }

    # Return generated PIR.
    return $pir;
}


# Binary dispatch table builder.
# ##############################
sub binary_dispat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782031	782421	
==>core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 883,
                  "ARGS" => [
                              "p",
                              "ki",
                              "s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368386	368684	
==>=> "function",
                  "CODE" => 431,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 336 \"src/ops/io.ops\"\n  {{\@1}} = PIO_reads(interpreter, PIO_STDIN(interpreter), (s <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21220	21467	
==>ber',
        '%'  => 'number',
        '..' => 'string',
    );
    my %opcode = (
        '+'  => 'add',
        '-'  => 'sub',
        '*'  => 'mul',
        '/'  => 'div',
        '^'  => 'pow',
        '%'  => 'mod',
        '..' => <==
2	/Users/nnunley/parrot/config/auto/m4.pm	1132	1274	
==>U [mM]4 /) ? 1 : 0;
    }

    $conf->data->set(has_gnu_m4 => $has_gnu_m4);
    $self->set_result($has_gnu_m4 ? 'yes' : 'no');

    return $sel <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	14581	14773	
==>{
          $self->SYNTAX_ERROR("No more than one continue block allowed.");
        }
      }

      #
      # 'if' blocks:
      #
      # Continuation of 'if' blocks happens by $continue bei <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	32132	32258	
==>_ctx->current_results;\n        if (results) {\n\t    /* get results PMC index and get PMC. */\n\t    sig = PF_CONST(PMC_cont(c <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	3282	3588	
==>->Lookup( $type . $value );
    if ($defn) {
        return [ $defn, [] ];
    }
    else {
        my $name    = 'cst_' . $parser->YYData->{idx_cst}++;
        my @opcodes = ();
        $defn = new defn( $name, 'const', 'pmc', $type );
        $parser->YYData->{symbtab_cst}->Insert( $type . $value <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	5940	6034	
==>@@@@@@@@@@@@
#
# And now directives (not targets)

sub accept_directive_as_verbatim  { shift->_ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	4306	4445	
==>tepping mode
	\$P0=new .PerlHash
	\$P1["break"]= \$P0  # Breakpoints
	\$P0=new .PerlArray
	\$P1["watch"]= \$P0  # Watch
	store_global "DEBUG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	230356	230662	
==>{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	20821	20994	
==>let->[$i][1]{$attrname} ),
               " as an attribute value to tweak.\n";
            }
          }
        }
      }
    }
  }
  DEBUG > 2 and print "End of _wrap_up t <==
2	/Users/nnunley/parrot/lib/Test/More.pm	21032	21207	
==>hy, $how_many) = @_;

    unless( defined $how_many ) {
        # $how_many can only be avoided when no_plan is in use.
        _carp "skip() needs to know \$how_many tests are <==
2	/Users/nnunley/parrot/lib/Test/More.pm	23457	23597	
==>hy, $how_many) = @_;

    unless( defined $how_many ) {
        # $how_many can only be avoided when no_plan is in use.
        _carp "todo_s <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	40433	40529	
==>'bound-identfier=?'   => \&_op_bound_identifier_eq_p,
  'identifier->symbol'  => \&_op_identifier <==
2	/Users/nnunley/parrot/config/init/hints/freebsd.pm	1018	1120	
==>shared_alias  => 'libparrot$(SHARE_EXT)',
        libparrot_soname        => '-Wl,-soname=libparrot$(SH <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	1856	1958	
==>shared_alias  => 'libparrot$(SHARE_EXT)',
        libparrot_soname        => '-Wl,-soname=libparrot$(SH <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	23163	23330	
==>bless (\$field, $class)
						: $field;
					$firstpos = $lastpos unless defined $firstpos;
					$lastpos = pos $$textref;
					last FIELD if @fields == $max;
					next <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3518	3666	
==>d by tools/dev/mk_manifest_and_skip.pl ', scalar( localtime() ), "\n";
print $SKIP <<'END_HEADER';
#
# This file should contain a transcript of the s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	701	822	
==>tion
# -----------------------------------
# nop : Do nothing (placeholder)
# check : Check to be sure we are n chars away <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	4768	4964	
==>tries = $num_ops + 1; # For trailing NULL


#
# Open the output files:
#

if (!$dynamic_flag && ! -d $incdir) {
    mkdir($incdir, 0755) or die "ops2c.pl: Could not mkdir $incdir $!!\n";
}

open HE <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6872	7005	
==>c.c", "$pmc.pmc")) {
        run("$PMC2C --c $pmc.pmc")
          or die "pmc2c code generation failed ($?)\n";
    }
}

sub compile { <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7083	7216	
==>c.c", "$pmc.pmc")) {
        run("$PMC2C --c $pmc.pmc")
          or die "pmc2c code generation failed ($?)\n";
    }
}

sub compile { <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2880	3007	
==>urn "$test $val1, $val2, " . $self->output_label_use($dest);
}

sub output_eq {
    my ($self, $val1, $val2, $dest) = @_;
    $s <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	23482	23628	
==>Config{blib_dir}.$PConfig{slash}.$PConfig{libparrot_static};

            my $libparrot = $PConfig{parrot_is_shared} ? $libparrot_shared : $libparr <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	494	640	
==>0][0] eq 'end'   }
sub is_text  { $_[0][0] eq 'text'  }

1;
__END__

sub dump { '[' . _esc( @{ $_[0] } ) . ']' }

# JUNK:

sub _esc {
  return '' u <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	15936	16094	
==>$test = $this =~ /$usable_regex/ ? 1 : 0;
        $test = !$test if $cmp eq '!~';
        $ok = $self->ok( $test, $name );
    }

    unless( $ok ) {
        $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	2074	2278	
==>ond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  #
  # Locate the block we'll be applying the control statement to:
  #

  my $loop_block = $block->find_block('while' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	17481	17616	
==>, $N, $lastback ]),
		 aop('goto', [ $try ]),
	$back => $self->op_restore_rxlocals($op),
                 aop('popint', [ $counter, 'dyn <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	8245	8396	
==>cargf       complex.h
cargl       complex.h
casin       complex.h
casinf      complex.h
casinh      complex.h
casinhf     complex.h
casinhl     complex. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550818	551225	
==>bject_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 634,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 56 \"src/ops/o <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2583	2732	
==>\n};
			}
			s/#SAVECOMMON/$edit/;
		}		
		if (/#RESTORECOMMON/) {
			@saves=();
			$edit="";
			foreach my $var (keys %{$code{$seg}->{declarations}}) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	21400	21509	
==>],
	[#Rule 29
		 'range', 6,
sub
#line 151 "lib/Regex/Grammar.y"
{ return { min => $_[2], max => $_[5] }; }
	] <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	3048	3158	
==>k()
#
# Returns the block on the top of the block stack.
#

sub current_block
{
  my $self = shift;

  $self->I <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	12471	12605	
==>ns Bool`

These functions will eval a code snippet, and then pass the result to is or ok
on success, or report that the eval was not su <==
2	/Users/nnunley/parrot/config/init/hints/openbsd.pm	539	635	
==>((split('-', $Config{archname}))[0] eq 'powerpc') {
		$conf->data->set(as => 'as -mregnames');
	} <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	12937	13071	
==>towardl math.h
perror      stdio.h
pow         math.h
printf      stdio.h
putc        stdio.h
putchar     stdio.h
puts        stdio.h
q <==
2	/Users/nnunley/parrot/examples/benchmarks/primes.pl	611	781	
==>1 % $i3;
  if ($i5) {goto OK;}
  goto NEXT;
 OK:
  $i3++;
  if ($i3 <= $i4) {goto LOOP;}
     $i6++;
     $i7 = $i1;
 NEXT:
  $i1++;
  if ($i1 <= $i2) {goto REDO;}
  print <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121952	122058	
==>ps/bit.ops\"\n  /*\n   * lvalue casts are evil, but this one isn't evil enough to kill.\n   * it's just cas <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122864	122970	
==>ps/bit.ops\"\n  /*\n   * lvalue casts are evil, but this one isn't evil enough to kill.\n   * it's just cas <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	18389	18601	
==>odes(@_);
  }
  
  if( $self->_remap_sequences($treelet) ) {
    $self->_treat_Zs($treelet);  # Might as well nix these first
    $self->_treat_Ls($treelet);  # L has to precede E and S
    $self->_treat_Es($treel <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	1367	1521	
==>elf->set_result('no');
        $conf->data->set(gccversion => undef);
        return $self;
    }
    if ($major =~ tr/0-9//c) {
        undef $major; # Do <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	3616	3819	
==>|,)?$/;

        if (length($_) > 79) {
            warning($file, $line, "line more than 79 columns. (" . length($_) . ")");
        }
    }
}

sub check_function_definitions {
    # In function definiti <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4597	4708	
==>name exists in the
directory.

=cut

sub directory_exists_with_name
{
    my $self = shift;
    my $name = shift <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	891	1003	
==>nore)>

Use this to get a list of the files of a particular type.

C<$recursive> and C<$ignore> function as speci <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	652749	653062	
==>ROT_JUMP_RESTART",
                  "NAME" => "find_method",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653909	654222	
==>ROT_JUMP_RESTART",
                  "NAME" => "find_method",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	25956	26082	
==>_line'},
        "Format for second =extend parameter must be like"
        . " M or 1 or 0 or M,N or M,N,O but you have it lik <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	288	391	
==>arnings";

package Jako::Construct::Type::PMC;

use base qw(Jako::Construct::Type);

sub new
{
  my $cla <==
2	/Users/nnunley/parrot/lib/Test/More.pm	6363	6515	
==>ple exponential' );
    ok( Film->can('db_Main'),            'set_db()' );
    ok( $p->tests == 4,                  'saw tests' );
    ok( !grep !defined <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5994	6098	
==>e an empty stack type state propogated to it if nothing has been
	# propogated there already.
	$pir .= << <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3932	4036	
==>e an empty stack type state propogated to it if nothing has been
	# propogated there already.
	$pir .= << <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122074	122168	
==>ntegral to the equivalent unsigned.\n   */\n  LVALUE_CAST(UINTVAL, {{\@1}}) >>= {{\@2}};\n  {{+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122986	123080	
==>ntegral to the equivalent unsigned.\n   */\n  LVALUE_CAST(UINTVAL, {{\@1}}) >>= {{\@2}};\n  {{+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031534	1031691	
==>1;\n    else\n        {{\@1}} = data_types[{{\@2}} - enum_first_type].size;\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032403	1032560	
==>1;\n    else\n        {{\@1}} = data_types[{{\@2}} - enum_first_type].size;\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5858	5980	
==>ctions{ACTIONS})) {

				defined($$token)
            or	do {
				($$token,$$value)=&$lex($self);
#DBG>				$debug & 0x <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5579	5696	
==>ctions{ACTIONS})) {

				defined($$token)
            or	do {
				($$token,$$value)=&$lex($self);
#DBG>				$debug & 0x <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	17887	18113	
==>elsif (ref($variants) eq 'ARRAY') {
                for my $class (@{ $variants }) {
                    next if $class eq 'DEFAULT';
                    my $r = $class eq 'DEFAULT' ? 'enum_type_PMC' :
                    "enum <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	453	546	
==>defined in F<include/parrot/op.h>.

=head2 Op Type

Ops are either I<auto> or I<manual>. Manua <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	14812	14915	
==>,$line,$complaint) = @_;
  my $self = shift(@_);
  ++$self->{'errors_seen'};
  if($self->{'no_whining'}) <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	36760	36892	
==>s
					   match (zero times at worst). 
					   Did you mean a single \"!$subrule\", 
					   instead?");
		}
	}
	bless 
	{
		"subrul <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	4956	5128	
==>rule) {
        # name
        if (/^name$/) {
            # always fine
        }

        # code
        elsif (/^code$/) {
            if ($rule->{$_} =~ /^([0-9A-F]{2}\s <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	725	846	
==>unctions are being
called. Note that it assumes a gnu-ish C<nm>.

=item C<source>

In C<source> mode, it uses a the C<cxre <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4110	4208	
==>))

' Passing arrays (expect 12)
function arrfunc(x())
	print x(4)
	arrfunc=55
end function
dim g(1 <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12059	12290	
==>ter->vtables[$supertype].$method(" . full_arguments($1) . ')'/xeg;

    # Rewrite OtherClass.SUPER(args...)
    s/(\w+)             # capture OtherClass
      \.SUPER           # Macro: SUPER
      \(\s*(.*?)\)      # capture argume <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7141	7238	
==>rint "Inval  (0): ", instr(4, bogus$, "t")
' instr() tests
s1$="Mixed case"
print ucase$(s1$);" Up <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18870	18967	
==>rint "Inval  (0): ", instr(4, bogus$, "t")
' instr() tests
s1$="Mixed case"
print ucase$(s1$);" Up <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	28376	28566	
==>nd print "=back found without a matching =over.  Stack: (",
            join(', ', map $_->[0], @$curr_open), ").\n";
        $self->whine(
          $para->[1]{'start_line'},
          '=bac <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122142	122415	
==>{\@1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123054	123327	
==>{\@1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	3224	3361	
==>f, $name) = @_;
    return $self->{_temps}->{$name} || die "Requested unallocated temporary!";
}

######################## Default rewrite <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	3546	3662	
==>cut

sub c_header_file_with_name
{
    my $self = shift;
    my $name = shift || return;
    
    $name .= '.h' unles <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	331547	331756	
==>ops/io.ops\"\n  PIO_close(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/examples/benchmarks/stress.pl	743	831	
==><examples/benchmarks/stress2.pasm>, 
F<examples/benchmarks/stress2.pl>, 
F<examples/bench <==
2	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	804	892	
==><examples/benchmarks/stress2.pasm>, 
F<examples/benchmarks/stress2.pl>, 
F<examples/bench <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	725560	725852	
==>E" => "clone",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 813,
                  "ARGS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726321	726609	
==>E" => "clone",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 814,
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731094	731483	
==>[
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 820,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 124 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2 <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	54	163	
==>rot/config/init/hints/mswin32.pm 19593 2006-05-30T02:28:15.110975Z coke  $

package init::hints::mswin32;

use <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133371	133654	
==>0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134151	134434	
==>0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	6278	6497	
==>achable
	}
	push @output3, $stmt if $keeping;
    }

    # Reset the 'next' pointers
    undef $next;
    for my $stmt (reverse @output3) {
	$stmt->{next} = $next;
	$next = $stmt;
    }

    # Eliminate gotos to the foll <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018023	1018112	
==>mtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = string_from_cstring <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018948	1019037	
==>mtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = string_from_cstring <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4291	4406	
==>0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${DEST$push_num} = ${STEMP0}

# Increment <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2707	2822	
==>0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${DEST$push_num} = ${STEMP0}

# Increment <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	3349	3487	
==>ft.JScript
            Microsoft.VisualBasic
            Microsoft.VisualC
            Microsoft.Vsa
            Mono.CompilerServices. <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16684	16777	
==>ously:
        $x =~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmno <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10132	10221	
==>ously:
    $x =~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmno <==
2	/Users/nnunley/parrot/config/gen/cpu.pm	78	171	
==>pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/gen/cpu.pm - CPU specific Fi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103952	1104037	
==>rot_autoload_class(interpreter, class);\n\t\ttype = pmc_type(interpreter, class);\n\t} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105167	1105252	
==>rot_autoload_class(interpreter, class);\n\t\ttype = pmc_type(interpreter, class);\n\t} <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	553	763	
==>file_class()> and C<directory_class()> dynamic so that different
file methods can be used depending on the circumstances.

=head2 Class Methods

=over 4

=cut

package Parrot::Distribution;

use strict;
use warn <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16768	16863	
==>fghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
        # Lea <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10212	10303	
==>fghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
    # Lea <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	42292	42433	
==>s all args in Px registers
  $self->_add_inst('', 'set', ['I3', $count-5]); # Tell about number of registers
  $self->_add_inst('', 'invokecc' <==
2	/Users/nnunley/parrot/config/init/miniparrot.pm	1908	2079	
==>'t guarantee anything about pointer alignment under ANSI C89.
        # so we will have to check every byte.
        ptr_alignment => 1
    );

    #Allow ANSI headers only <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550117	550209	
==>ject;\n  interpreter->current_cont = NEED_CONTINUATION;\n  interpreter->current_method = meth <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551418	551510	
==>ject;\n  interpreter->current_cont = NEED_CONTINUATION;\n  interpreter->current_method = meth <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864078	864188	
==>if (!s)\n    n = 0;\n  else {\n    n = s->bufused;\n    assert(n == ENCODING_BYTES(interpreter, {{\@2}}));\n  } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864970	865080	
==>if (!s)\n    n = 0;\n  else {\n    n = s->bufused;\n    assert(n == ENCODING_BYTES(interpreter, {{\@2}}));\n  } <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1667	1773	
==>le_pir($target, $pattern)
        : Parrot::Test::PGE::_generate_pir_for($target, $pattern)
    );

    got <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2190	2296	
==>le_pir($target, $pattern)
        : Parrot::Test::PGE::_generate_pir_for($target, $pattern)
    );

    got <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	304	402	
==>describing IMCC.

=head2 Class Methods

=over

=cut

package Parrot::Docs::Section::IMCC;

use stri <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	1025	1238	
==>( @{$Parrot::OpLib::core::ops} ) {
    my $name = join( '_', $_->{NAME}, @{$_->{ARGS}}[0..$#{$_->{ARGS}}] );
    $opcodes{$name} = $_->{CODE};
}

my $cpuarch = shift @ARGV;
my $genfile = shift @ARGV;

my ($function <==
2	/Users/nnunley/parrot/config/auto/python.pm	973	1149	
==>python) {
        $has_python_2_4 = ($major eq '2' && $minor eq '4') ? 1 : 0;
        $self->set_result("yes, $major.$minor.$revision");
    } else {
        $self->set_result(' <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	819	1223	
==>e       => 4,
            intsize          => 4,
            longsize         => 4,
            shortsize        => 2,
            hugeintval       => 'long',
            hugeintvalsize   => 4,
            hugefloatval     => 'double',
            hugefloatvalsize => 8,
            int2_t           => 'int',
            int4_t           => 'int',
            float4_t         => 'double',
            fl <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1227	1399	
==>BUG};
    return () unless $self->{DEBUG_SUPPORT};
    return ("bsr $label");
}

############### SIMPLE OUTPUT ##############

sub output_terminate {
    return "";
}

sub o <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4643	4742	
==>ng debugging version of the driver,
#this file will be parsed from 'sub _Parse' up to '}#_Parse' in <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4409	4507	
==>ng debugging version of the driver,
#this file will be parsed from 'sub _Parse' up to '}#_Parse' in <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5150	5377	
==>$incexc) {
        my $first = shift(@$incexc);
        my $last = shift(@$incexc);
        if (defined($last)) {
            push @ops, "lt <rx_tmp>, $first, $fail"
              unless $first == 0;
            push @ops, "lt < <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4825	4977	
==>$incexc) {
        my $first = shift(@$incexc);
        my $last = shift(@$incexc);
        if (defined($last)) {
            push @ops, "goto $fail if < <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244351	244648	
==>cmp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 284 <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	2589	2757	
==>urn,"\"$symbol\""]);

  return $return;
}

sub _store_lex {
  my ($self, $symbol,$value) = @_;
  $self->_add_inst ('','store_lex',["\"$symbol\"",$value]);
}

sub _new_le <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1891	1992	
==>fghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
    # Yes, stipulat <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1994	2095	
==>fghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
    # Yes, stipulat <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19470	19594	
==>10,20,30,40,50

' basic I/O  1..5
open "_testfile" for output as #3
for i=1 to 5
	print #3, i
next i
close #3
open "_testfile <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	1635	1772	
==>) or
        die "Can't open $file for reading: $!\n";
    my $section = 'MAIN';

    while(<$fh>) {

        chomp;

        next if /^\s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	506	602	
==>k) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Left (" . ref( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	497	593	
==>k) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Left (" . ref( <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	4017	4134	
==>rray, $textref,
			     "Did not find a suitable bracket in delimiter: \"$_[1]\"",
			     0;
	}
	my $posbug = pos;
	$ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2460	2629	
==>ply_CALL'],
  ['',            'set', 'P10', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956769	957044	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_encoding <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11265	11372	
==>MP0}
inc stack_depth
${STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
pre_call_NO_RETURN_${CURIC}:

# Fin <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8451	8558	
==>MP0}
inc stack_depth
${STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
pre_call_NO_RETURN_${CURIC}:

# Fin <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	877	986	
==>$left,
    RIGHT => $right
  }, $class;

  $block->push_content($self);

  return $self;
}

sub left  { return <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	885	994	
==>$left,
    RIGHT => $right
  }, $class;

  $block->push_content($self);

  return $self;
}

sub left  { return <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	503	643	
==>arrot::OpTrans::CPrederef Parrot::OpTrans::CGoto );

=item C<core_type()>

Returns C<PARROT_CGP_CORE>.

=cut

sub core_type
{
    return 'PAR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299449	299622	
==>",
                              "n"
                            ],
                  "BODY" => "#line 975 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n" <==
2	/Users/nnunley/parrot/examples/benchmarks/oo2.pl	31	150	
==>$i (1 .. 500000) {
	my $o = new Foo();
}
my $o = new Foo();
print $o->[0], "\n";

package Foo;

sub new {
    my $self = <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2519	2622	
==>d branches until late to do
	# otherwise. Also, putting a label everywhere doesn't hurt the final
	# Par <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1097	1200	
==>d branches until late to do
	# otherwise. Also, putting a label everywhere doesn't hurt the final
	# Par <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	4720	4857	
==>arg
    shape = arg.'get_shape'()
    $I0 = shape
    if $I0 == 2 goto print_2D
    # XXX assume 1d otherwise.
    unless iter goto iter_e <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	1987	2264	
==>$stype  User: $user Var: $var  Array: $array\n";
		if ($user and ! $array ) {
			print CODE<<SHARINGU;
	# Sharing $stype (user) $var with main
	P0= P10[0]
	P1= P0["USER"]
	P0= P1["$var"]	# Pull the original
	P2= P10[I25]
	P3= P2["USER"]
	P3["$var"]= P0	# Hack in the alias

SHAR <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	8889	9018	
==>tate *st, FLOATVAL val)
{
    Parrot_init_ret_nci(interpreter, st, "N");
    UVal_num(st->val) = val;
    Parrot_convert_arg(inter <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1573	1720	
==>lf = shift;

    if (@_)
    {
        $self->{ARGS} = [ @_ ];
    }
    else
    {
        return $self->{ARGS};
    }
}

=item C<arg($index)>

Ret <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1182	1329	
==>lf = shift;

    if (@_)
    {
        $self->{ARGS} = [ @_ ];
    }
    else
    {
        return $self->{ARGS};
    }
}

=item C<arg($index)>

Ret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864102	864246	
==>lse {\n    n = s->bufused;\n    assert(n == ENCODING_BYTES(interpreter, {{\@2}}));\n  }\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864994	865138	
==>lse {\n    n = s->bufused;\n    assert(n == ENCODING_BYTES(interpreter, {{\@2}}));\n  }\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6337	6439	
==>if(!$self->{'start_of_pod_block'} and @$paras and $paras->[-1][0] eq '~Verbatim') {
        DEBUG > 1 a <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	2408	2558	
==>f ( $line =~ $block_end ) {
                push @output, [ 1, q{} ];
            }
        }
    }
    # Badly formatted pir might end in the middle o <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	1923	2090	
==>tives
    # are used.
    my %lines_seen;
    while (<IN>) {
	if (m/^\s*#\s*line\s+(\d+)/) {
	    # #line directive
	    $line = $1 - 1;
	    next;
	}
	$line++;
	next i <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	8577	8865	
==>ned($use) and defined($type);

                if ($type =~ /^INTKEY$/i)
                {
                    $type = "ki";
                }
                else
                {
                    $type = lc substr($type, 0, 1);
                }

                # convert e.g. "labe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022658	1022951	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodelocaltime",
                  "FLAGS" => "",
                  "ARGDI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023507	1023800	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodelocaltime",
                  "FLAGS" => "",
                  "ARGDI <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2709	2830	
==>ion will be "
	    ."included,\nwith the heads of these indescribable files.\n";
    }
    print "\n";
    my @no_descript <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	233	367	
==>od::Simple::DEBUG)
          ? \&Pod::Simple::DEBUG
          : sub() {0}
      }

use Text::Wrap 98.112902 ();
$Text::Wrap::wrap = 'ov <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2738	2867	
==>ply_CALL'],
  ['',            'set', 'P12', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Un <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	2966	3084	
==>odes{$pc}->{args}}, @args;

        $src = $op->full_body();

	# The regexes here correspond to the rewriting rules for <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012464	1012946	
==>"NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1130,
                  "ARGS" => [
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 44 \"src/ops/sys.ops\"\n  {{\@1}} = Parrot_Run_OS_C <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	2472	2669	
==>ushScope {
    my ($parser) = @_;

    unshift @{ $parser->YYData->{scope} }, $parser->YYData->{symbtab};
    $parser->YYData->{symbtab} = new SymbTabVar($parser);
    $parser->YYData->{lex_num <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	801	1026	
==>save byval
			call calls absolute interrupt base chain circle clear
				close cls color com common const 
			data declare def fn seg defdbl defint deflng defsng defstr
				dim do loop double draw
			else elseif end endif envir <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327961	328260	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_r4",
                  "FLAGS" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	2159	2251	
==>iler->indent;
  $self->SUPER::compile($compiler);
  $compiler->outdent;

  $compiler->emit("_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4564	4681	
==>DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note that for loading debugging version of the driver,
#t <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4336	4446	
==>DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note that for loading debugging version of the driver,
#t <==
2	/Users/nnunley/parrot/languages/regex/regex.pl	26	128	
==>b 'lib';
use Regex;
use Regex::Driver;
use strict;

my $operation;
my $expr;
my $expr_file;
my $tree_op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488822	489032	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	489575	489785	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	302	403	
==>UT{IO};
  $new->accept_codes('VerbatimFormatted');
  return $new;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	301	402	
==>UT{IO};
  $new->accept_codes('VerbatimFormatted');
  return $new;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1181	1325	
==>> defined $value ? $value->line : undef, # TODO: YUCK!
  }, $class;

  $block->push_content($self);

  return $self;
}


#
# ACCESSORS:
#

sub va <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	573	667	
==>)>

Returns a new group.

Use this when creating groups within a C<Parrot::Docs::Section>
subcl <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1225	1338	
==>eq( Parrot::Test::slurp_file($out_f), $output, $desc );
        $self->{builder}->diag("'$cmd' failed with exit co <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1266	1379	
==>eq( Parrot::Test::slurp_file($out_f), $output, $desc );
        $self->{builder}->diag("'$cmd' failed with exit co <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3085	3234	
==>ype   = 'STRING';

    while ( $parser->YYData->{INPUT} ) {

        for ( $parser->YYData->{INPUT} ) {

            s/^'//
                and <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	4185	4288	
==>ks, [shift @pc_list ];

    # change instructions at block leaders to enternative calls
    substr($byte <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33302	33392	
==>sub callsyntax($$)
{
	if ($_[0]->{"matchrule"})
	{
		return "&{'$_[1]'.qq{$_[0]->{subrule}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008315	1008904	
==>"LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "escape",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1125, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	602218	602468	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "class",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/EditorPlugins.pm	65	214	
==>rot/Docs/Section/EditorPlugins.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Section::EditorPlugins - Editor Plugins do <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2140	2246	
==>\%params, \@_, $self );

	if($$self{DEBUG}) {
		_DBLoad();
		$retval = eval '$self->_DBParse()';#Do not <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2061	2163	
==>\%params, \@_, $self );

	if($$self{DEBUG}) {
		_DBLoad();
		$retval = eval '$self->_DBParse()';#Do not <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	622	733	
==>har
# code : Embedded code, in some language

# Stuff that is used for optimization
# -------------------------- <==
2	/Users/nnunley/parrot/config/auto/alignptrs.pm	799	935	
==>= $conf->data->get('ptr_alignment');
        $self->set_result("configured: ");
    } elsif ($^O eq 'hpux' && $Config{ccflags} !~ /DD64/) <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	6539	6751	
==>s %bench ) {
    my $base = 0;
    printf("\n%-$max[0]s  ", $name);
    for ( 0 .. $#section ) {
        my ($prog, $sect) = ($program[$_], $section[$_]);
        if ( $bench{ $name }{ $prog } ) {
            my $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34874	35035	
==>ent is allowed
             #  to have a number attribute.
          } elsif($item_type eq 'text') {
            $self->whine(
              $para->[1]{'start_lin <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39804	40005	
==>=> 123
		},
		GOTOS => {
			'funcbody' => 184
		}
	},
	{#State 165
		ACTIONS => {
			"," => 151
		},
		DEFAULT => -30
	},
	{#State 166
		ACTIONS => {
			"-" => 72,
			"<" => 74,
			"%" = <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3016	3158	
==>ply_CALL'],
  ['',            'set', 'P14', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	1955	2047	
==>> 'POD documentation',
	'prd' => 'Parse::RecDescent grammar file',
	'ps' => 'Postscript code' <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	3520	3764	
==>);",
       v => "",
       t => "final_destination = string_from_cstring(interpreter, return_data, 0);\n    set_nci_S(interpreter, &st, final_destination);",
#      b => "PObj_bufstart(final_destination) = return_data;\n    set_nci_S(interprete <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	537925	538287	
==>n",
                              "n"
                            ],
                  "BODY" => "#line 969 \"src/ops/math.ops\"\n  {{\@1}} = sinh((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2364	2481	
==>/Users/nnunley/parrot/src/pmc' . $PATHQUOTE . " " .
        $source;
};

sub partial_link_cmd {
    my ($target, $libs <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	2159	2276	
==>/Users/nnunley/parrot/src/pmc' . $PATHQUOTE . " " .
        $source;
};

sub partial_link_cmd {
    my ($target, $libs <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29663	29809	
==>> 145
		}
	},
	{#State 94
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	3178	3295	
==>t_desc = ();
    
    foreach my $rel_path (@rel_paths)
    {
        my $file = $source->file_with_relative_path($rel <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	48619	48822	
==>_line_numbers(1);
    $mutor->($parser) if $mutor;
    $parser->parse_string_document( shift( @_ ) );
    # use Data::Dumper; print Dumper($parser), "\n";
  }

  return @out;
}



#----------------------- <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	39696	39793	
==>3\n/para line 4";

	extract_tagged($text, '/para', '/endpara', undef,
				{reject => '/para', fail <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	40010	40106	
==>3\n/para line 4";

	extract_tagged($text, '/para', '/endpara', undef,
			{reject => '/para', fail <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565108	565399	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "can",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566000	566291	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "can",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Examples.pm	46	132	
==>Id: /parrot/lib/Parrot/Docs/Section/Examples.pm 20333 2006-06-21T18:44:31.111564Z bernh <==
2	/Users/nnunley/parrot/tools/dev/as2c.pl	416	550	
==>erated from $s.c via $s.s
 * by '$0 $s'
 */

EOT
}
sub create_s {
    my $cmd = shift;
    my $r = system($cmd);
    if ($r) {
	die "$c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206444	206539	
==>> "#line 394 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) <= {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207386	207481	
==>> "#line 394 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) <= {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102149	102431	
==>bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 127,
                  " <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26412	26519	
==>s(${STYPES}, ${STACK0}, ${STACK1})
${INS} = concat ${STEMP0}
PIR
    }
	
	# Now we split based upon the clas <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	839558	839817	
==>=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rotate_up",
                  "FLAGS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840252	840511	
==>=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rotate_up",
                  "FLAGS" = <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	2146	2398	
==>)?)/;
    $node->{type} ||= 'EXPRESSION';
  }
}

sub parse {
  my $tokens = shift;
  my @tree;
  my $tree;

  my $count = 0;

  while ($count < scalar @$tokens) {
    #print Dumper $tokens;
    ($count,$tree) = _build_tree($tokens,$count);
    #_dataflo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	626383	626788	
==>n)(interpreter, sig_bits, args);\n    {{=pc}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	618	768	
==>t stack to register mapper\n";
}

# Label generation.
sub gen_label {
	die "gen_label not implemented for current stack to register mapper\n";
}

# Pre <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11382	11479	
==>lesheet
{\snext0 Normal;}
{\*\cs10 \additive Default Paragraph Font;}
{\*\cs16 \additive \i \sbase <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421152	421555	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bind",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422044	422447	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bind",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
2	/Users/nnunley/parrot/lib/Test/More.pm	30107	30319	
==>als => [$e1, $e2] };
                $ok = 0;
            }
            elsif( $type eq 'ARRAY' ) {
                $ok = _eq_array($e1, $e2);
            }
            elsif( $type eq 'HASH' ) {
                $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	31867	32024	
==>i < @$treelet; ++$i) {
      # iterate over children of current tree node
      next unless ref $treelet->[$i];  # text nodes are uninteresting
      unless($ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	452	678	
==>r) = @_;

  return bless {
    FILE     => undef,
    LINE     => undef,
    TOKENS   => [ ],
    POS      => -1
  }, $class;
}


#
# scan_line()
#

sub scan_line
{
  my $self = shift;
  my ($text, $file, $line) = @_;

  my $te <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	3359	3498	
==>_pmc();

    $compiler->emit("  $reg = new $pmc_type");
    $compiler->emit("  global \"$name\" = $reg");
  }
  else {
    $compiler->emit(" <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	1012	1132	
==>ferences:
 */
HEADER

=over

=item B<classify>( $chr )

Character classification

=cut

sub classify {
    my ($chr) = @_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	866665	867097	
==>str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 984,
                  "ARGS" => [
                              "s",
                              "s",
                              "i" <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	9741	9916	
==>^u'.*'$/) {	# unicode-string TODO r raw
	$t = 'U';
    }
    elsif (is_num($c)) {        # num
	$t = 'N';
    }
    elsif ($c =~ /^\(/) {
	$t = 'u'; # unimp
    }
    $t;
}


s <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	8770	8899	
==>ms[CURR];
	push @{$code{$seg}->{code}},<<OPEN;
@code	noop
	_OPEN($result,"$mode",$fd)
OPEN
}
sub parse_close {
	feedme();
	die "Ex <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	13763	13915	
==>extref;
		pos $$textref = $startpos;
		return;
	}
	my $closing = $1;
	   $closing =~ tr/([<{/)]>}/;
	my $matched;
	my $patvalid = 1;
	while (pos($$textre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868596	869082	
==>str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 986,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic"
                            ],
                  "BO <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	39	152	
==>Text;
$VERSION = '2.02';
use Pod::Simple ();
BEGIN {@ISA = ('Pod::Simple')}

use strict;

use Carp ();

BEGIN { *D <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1014	1100	
==>de "languages/lua/lib/luabasic.pbc"
#  load_bytecode "languages/lua/lib/luacoroutine.p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869562	870047	
==>str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 987,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic"
                            ],
                  " <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	43046	43217	
==>) {
        $self->whine( $start_line, "An E<...> surrounding strange content" );
        $replacer = $treelet->[$i]; # scratch
        splice(@$treelet, $i, 1,   # fake ou <==
2	/Users/nnunley/parrot/languages/regex/regex.pl	2190	2307	
==>ate $output: $!";
}

my $driver = Regex::Driver->new($language, %options);

$driver->output_header(*OUTPUT);

for my $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	1083	1276	
==>{
#        print "TOK($vals->[0]) TYPE($types->[0])\n" if @$vals;
        return shift(@$types), shift(@$vals) if (@$types);
        return ('', undef);
    };
    my $parser = new Regex::Gramma <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16819	16967	
==>=> 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 94,
			'function <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9315	9448	
==>t.
dec stack_depth
PIR
	}

	return $pir;
}

# Pre and post call hooks.
sub pre_call {
    my $self = shift;
    my $pir = <<'PIR';
# S <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14157	14247	
==>pointer.foo=12
print mine(foo,20,z.pointer)
print z.pointer.foo

' Array access, 132
type f <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	2483	2689	
==>$len+1]}-$char */\n" if $char % $len == $len-1;
    }
    print "};\n";
}



#
# create 'src/charset/tables.c'
#
###########################################################################
my $c_file= File:: <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	1831	1986	
==>") {
			append;	
			fetch;
		}
		emit("COMM");
		fetch;
		goto MAIN;
	}
	if ($cur =~ /[A-Za-z]/) {		# Bareword 
		append;
		fetch;
		while($cur =~ /[A-Za-z0 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	3605	3701	
==>@_;

  $handler->start_element({ Name => 'var', Attributes => { type => $self->type->name, name = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298230	298720	
==>"FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 347,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 970 \"src/ops/cmp.ops\"\ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	2879	3059	
==>?
        if (!$in_heredoc && /^\s*\[([\w\.]+)\]\s*$/) {
            # If we have a current rule...
            my $name = $1;
            if ($rule) {
                # Validate it <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	4670	4818	
==>*interpreter, opcode_t *cur_opcode, opcode_t *start_code);

#include "parrot/embed.h"

static char program_code[] = {
END_C

    $pf->byte_code($byte <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3547	3663	
==>oto PRE_OP_${CURIC}_CONT_$register_num

# Can do a lazy move.
PRE_OP_${CURIC}_LAZY_MOVE_$register_num:
${STACK$regist <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	1150	1459	
==>>SUPER::new(
		'PMCs', 'pmc.html', 
		'PMCs are Parrot\'s internal "classes". There are currently ' .
		    scalar(@abstract_items) .
		    ' abstract PMCs and ' .
		    scalar(@concrete_items) .
		    ' concrete PMCs.',
		$self->new_group('Tools', 'PMC-related tools.', 
			$self->new_item('', 'tools/dev/gen_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	38215	38372	
==>lmv) {
		delete $mv->{$_};
	}

	# Return generated code.
	return $pir;
}


# Instruction to PIR routine.
# ###########################
sub ins_to_pir($$) {
	m <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	1317	1446	
==>--library=libname>

Specifiy the library name. This will create E<lt>libnameE<gt>.c and
pmc_E<lt>libnameE<gt>.h. The initializatio <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	9808	9927	
==>h = $INC{'Parrot/Config.pm'};
    $path   =~ s{ /lib/Parrot/Config.pm \z}{}xms;
    if ( $path eq q{} ) {
         $path <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Compilers.pm	39	194	
==>on.
# $Id: Compilers.pm 11501 2006-02-10 18:27:13Z particle $

=head1 NAME

Parrot::Docs::Section::Compilers - Compilers documentation section

=head <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8676	8832	
==>ent;
          my $arg_name  = $arg_token->text;

          push @formal_args, [ $arg_type, $arg_name, $arg_token ];

          last if $self->skip_close_par <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7444	7588	
==>bose) = @_;

    if ($verbose) {
        print "$command\n";
    }

    # Mostly copied from Parrot::Test.pm
    foreach ($out, $err) {
        $ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	15219	15344	
==>CURR] eq "to") {
			my @b=EXPRESSION();
			feedme();
			print CODE<<TO;
# From
@a	bsr DEREF
	push P13, P6
# To
@b	bsr DEREF
	p <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	21383	21499	
==>fault output settings will not be affected.

=over 4

=item B<diag>

    $Test->diag(@msgs);

Prints out the given @m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957516	957610	
==>rot_encoding_number(interpreter, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, NULL, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958421	958515	
==>rot_encoding_number(interpreter, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, NULL, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50120	50231	
==>re.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_PROFILE_FLAG); }\n  else         { Interp_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50913	51024	
==>re.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_PROFILE_FLAG); }\n  else         { Interp_ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	35501	35665	
==>'sin'              => \&_op_sin,
  'cos'              => \&_op_cos,
  'tan'              => \&_op_tan,
  'asin'             => \&_op_asin,
  'acos'             => \& <==
2	/Users/nnunley/parrot/lib/File/Which.pm	4866	4974	
==>the extensions C<.exe>, C<.bat> and
(less likely) C<.com>. C<File::Which> uses this hardcoded list if it's ru <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	7613	7776	
==>', $group ]),
                        $self->dbprint("pushing end[$group]: "),
                        aop('pushint', [ '<tmp>' ]),
                        aop('set <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	33934	34040	
==>table->set_pointer(interpreter, {{\@1}}, (CUR_OPCODE + {{\@2}}));\n  {{+=3}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	292	454	
==>gs";

package Jako::Construct::Label;

use Carp;

use base qw(Jako::Construct);

1;

#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $ident) = @_;

  con <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574751	574879	
==>ps\"\n    {{\@1}} = pmc_new_init(interpreter, enum_class_ParrotClass, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575555	575683	
==>ps\"\n    {{\@1}} = pmc_new_init(interpreter, enum_class_ParrotClass, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611145	611239	
==>> "#line 491 \"src/ops/object.ops\"\n    VTABLE_set_attr(interpreter, {{\@1}}, {{\@2}}, {{\@3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612048	612142	
==>> "#line 491 \"src/ops/object.ops\"\n    VTABLE_set_attr(interpreter, {{\@1}}, {{\@2}}, {{\@3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361715	361824	
==>erpreter, INTVAL_FMT, {{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error h <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362614	362723	
==>erpreter, INTVAL_FMT, {{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error h <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670653	670878	
==>vtable->push_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671426	671651	
==>vtable->push_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	4822	4946	
==>in(", ", map({ $_->[1]} $self->args)) . ")");
      $compiler->emit("  .return(__result)");
    }
    else {
      $compiler- <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	6377	6502	
==>bs=(%opsubs, 
	'<=' => sub { &{$opsubs{"="}}(@_[0..2], "le") },
	'>=' => sub { &{$opsubs{"="}}(@_[0..2], "ge") },
	'<>' => sub <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	31157	31260	
==>pe character to be used for each
delimiter.

All arguments are optional. If the escape characters are no <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349091	349194	
==>y soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2}});\n\n  {{\@1}} = PIO_open( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350093	350196	
==>y soon */\n  const char * const path = string_to_cstring(interpreter, {{\@2}});\n\n  {{\@1}} = PIO_open( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	11907	12039	
==>D
}

sub output_rule_fail {
    my ($self, $name) = @_;
  return split(/\n/, <<'END');
$rx_match{'!POS'} = $rx_pos;
$rx_match{'!RESUL <==
2	/Users/nnunley/parrot/config/init/hints/hpux.pm	128	241	
==>ackage init::hints::hpux;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    my $libs = $conf->data->get <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661926	662021	
==>/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(interpreter, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662842	662937	
==>/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(interpreter, {{\ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	55848	55997	
==>y', 1,
sub
#line 428 "Lua\lua51.yp"
{
            BuildLiteral( $_[0], $_[1], 'number' );
        }
	],
	[#Rule 80
		 'primary', 1,
sub
#lin <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2565	2663	
==>_with_name($name)>

Returns the C source file with the specified name.

=cut

sub c_source_file_wit <==
2	/Users/nnunley/parrot/config/init/defaults.pm	2506	2632	
==>ared libraries and dynamically loadable
        # modules. Often $cc on Unix-ish systems, but apparently sometimes
        # it <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	14258	14455	
==>($op, "seq"), map { $_->reftree() } @{ $op->{args} } ];
}

sub Regex::Ops::Tree::alternate::reftree {
    my $op = shift;
    my $ref = [ annotated($op, "alternate") ];
    push(@$ref, $_->reftree() <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	10247	10388	
==>ub pushthing {
	my($code, $optype, $sym, $type, $oldresult)=@_;
	my $ts="INVALID";

	if ($type ne "RESULT") {
		if ($type=~/STRING|INT|FLO|BAR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41883	42141	
==>JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "exit",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719954	720044	
==>rpreter, \"%.12g\", (double){{\@2}});\n  PIO_putps(interpreter, io, s);\n  if (string_str_i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721154	721244	
==>rpreter, \"%.12g\", (double){{\@2}});\n  PIO_putps(interpreter, io, s);\n  if (string_str_i <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	1452	1580	
==>$self;
    }
    if ($major =~ tr/0-9//c) {
        undef $major; # Don't use it
    }
    if (defined $minor and $minor =~ tr/0- <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	13817	13945	
==>ack type state propogated here, put it in place.
    ss = ss_propogate[pc]
    if ss == "" goto NO_SS_PROP
    stypes = ss
NO_SS_ <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	14082	14227	
==>le.

=cut

sub dump_1_pmc {
    my $file = shift;
    $file =~ s/\.\w+$/.pmc/;

    my $fh = open_file( "<", $file );
    my $contents = do { loca <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	9823	9964	
==>e}}) {

            print OUT qq(
           <tr>
             <td>$function</td>
             <td><a href="$outfile_base.lines.html#$function <==
2	/Users/nnunley/parrot/config/auto/jit.pm	1224	1325	
==>m
    # the above split fails because archname is "darwin-thread-multi-2level".
    if ($cpuarch =~ /d <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	20215	20366	
==>t =~ /to (\d+)/) {
	    $targ = "pc_$1";
	}
    }
    elsif ($opcode eq 'JUMP_IF_TRUE') {
	print "\t\t$cmt\n";
	$code_l++;
	$cmt ="\t\t# $opcode\t $rest <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9128	9252	
==>ome codes
  my $this = shift;
  
  foreach my $new_code (@_) {
    next unless defined $new_code and length $new_code;
    if <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10392	10516	
==>ome codes
  my $this = shift;
  
  foreach my $new_code (@_) {
    next unless defined $new_code and length $new_code;
    if <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	3099	3204	
==>r, &st, *return_data);",
       3 => "set_nci_I(interpreter, &st, *return_data);",
       2 => "set_nci_I( <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3626	3720	
==>ay,$outhash)=@_;
	my($prm,$value);
	my($prmlst)={};

	while(($prm,$value)=splice(@$inarray, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3438	3528	
==>ay,$outhash)=@_;
	my($prm,$value);
	my($prmlst)={};

	while(($prm,$value)=splice(@$inarray, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	1235	1447	
==>- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
#  In case anyone tries to use them:

sub run {
  use Carp ();
  if( __PACKAGE__ eq ref($_[0]) || $_[0]) { # I'm not being subclassed!
    Carp <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	785	878	
==>sr/bin'.

=item C<libdir>

The library directory. Defaults to '/usr/lib'.

=item C<includedir> <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	1014	1107	
==>sr/bin'.

=item C<libdir>

The library directory. Defaults to '/usr/lib'.

=item C<includedir> <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	12810	12974	
==>12,
			'regex1' => 19
		}
	},
	{#State 10
		ACTIONS => {
			"?" => 20
		},
		DEFAULT => -21,
		GOTOS => {
			'@1-1' => 21
		}
	},
	{#State 11
		ACTIONS => {
			"?" = <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9354	9515	
==>*Entering Error recovery.\n";
#DBG>			++$dbgerror;
#DBG>		};

            ++$$nberror;

        };

			$$errstatus == 3	#The next token is not valid: disc <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8934	9087	
==>*Entering Error recovery.\n";
#DBG>			++$dbgerror;
#DBG>		};

            ++$$nberror;

        };

			$$errstatus == 3	#The next token is not valid: disc <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2230	2370	
==>unless $arg_sym;
      $actual_arg_type = $arg_sym->type; 
    }
    else {
      $actual_arg_type = $args[$i]->type;
    }

    $self->INTER <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1930	2070	
==>unless $arg_sym;
      $actual_arg_type = $arg_sym->type; 
    }
    else {
      $actual_arg_type = $args[$i]->type;
    }

    $self->INTER <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	15290	15387	
==>lass_ParrotLibrary);
    PMC_struct_val(lib) = (void *) $init_func;
    dynop_register(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	27936	28182	
==>UMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "get_results",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "functi <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	4746	4938	
==>Do '$Obj' |")) {
    while (<NM>) {
	my ($o, $s, $v) = split;
	$API{$s} = $o;
	if ($v eq 'T') {
	    $Code{$s} = $o;
	} elsif ($v =~ /[BDR]/) {
	    if ($v eq 'B') {
		$DataB{$s} = $o;
	    } e <==
2	/Users/nnunley/parrot/tools/dev/as2c.pl	668	863	
==>n_comment);
    $in_comment = 1;
    print "/*\n";
    while (<IN>) {
	next if (/^\f/);		# FF
	next if (/#(?:NO_)?APP/);	# APP, NO_APP
	chomp;
	if (/^\s*\d+\s[\da-fA-F]{4}\s([\dA-F]{2,8})\s+(.*)/) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679525	679912	
==>,
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 762,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 483 \"s <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	508	642	
==>h @{$temp->{children}}, $expr;
    }
    $count++;
  }
  elsif ($tokens->[$count] eq "'") {
    $temp = { children => [{ value => 'quot <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	134	295	
==>ME

Parrot::Test - testing routines for Parrot and language implementations

=head1 SYNOPSIS

Set the number of tests to be run like this:

    use Parrot::Test t <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6421	6655	
==>turn $sym if defined $sym;

  return undef unless defined $self->block; # Terminate recursion

  return $self->block->find_symbol($name); # Recurse
}


###############################################################################

=h <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	39686	39782	
==>1\n\nline 3\n/para line 4";

	extract_tagged($text, '/para', '/endpara', undef,
				{reject => '/ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	40000	40095	
==>1\n\nline 3\n/para line 4";

	extract_tagged($text, '/para', '/endpara', undef,
			{reject => '/ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	6680	6775	
==>ng tested--disables searching of installed libraries.
# (see Parrot_get_runtime_prefix in src/li <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	280	415	
==>m - Testing routines specific to 'regex'.

=head1 DESCRIPTION

Does the same a 'languages/regex/test.pl'

=cut

my $PARROT_EXE = File::S <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	330	437	
==>t', $count );
}

sub get_test_prog {
    my $self = shift;
    my ( $path_to_parrot, $path_to_language, $cou <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	348	455	
==>t', $count );
}

sub get_test_prog {
    my $self = shift;
    my ( $path_to_parrot, $path_to_language, $cou <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	12367	12474	
==>the
element type is C<'*@'>, a reference to the array element is
returned.

As a special case, when the acce <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	6917	7042	
==>ursive, $ignore))
    {
        next unless $file->has_suffix($suffix);
        push @files, $file;
    }
    
    return @fil <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382641	382941	
==>GS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 447,
                  "ARGS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1865	1966	
==>le::Spec->catfile(
    $path_to_parrot, qw/ languages perl6 p6shell.pir /,
);


sub import {
    my($c <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	19737	19894	
==>";
        }
        # normal vtable method}
        unless ($method->{mmd} =~ /MMD_/) {
            push @meths, $meth_name;
        }
        $defaulted = 1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755543	755932	
==>,
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 852,
                  "ARGS" => [
                              "p",
                              "nc"
                            ],
                  "BODY" => "#line 266 \"src <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	821	1068	
==>ed &ASCII)    { }
  elsif(chr(65) eq 'A') { *ASCII = sub () {1}  }
  else                  { *ASCII = sub () {''} }

  unless(defined &MANY_LINES) { *MANY_LINES = sub () {20} }
  DEBUG > 4 and print "MANY_LINES is ", MANY_LINES(), "\n";
  unless(MA <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	62345	62454	
==>extract_variable> was expecting one of '$', '@', or '%' at the start of
a variable, but didn't find any of the <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349138	349232	
==>o_cstring(interpreter, {{\@2}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, \"+<\");\n  / <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350140	350234	
==>o_cstring(interpreter, {{\@2}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, \"+<\");\n  / <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44351	44594	
==>r, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "popm <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44992	45235	
==>r, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "popm <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	40069	40195	
==>a', undef,
			{reject => '/para', fail => MAX );

	# EXTRACTED: "/para line 1\n"

Note that the specified C<fail> behaviour app <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	66916	67093	
==>,
					       $line);
					_hint("Repeated subrules like \"$code$argcode$&\" cannot have
					       a maximum repetition of zero, nor can they have
					       negative componen <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	3213	3401	
==>value, $type ) = @_;

    my $defn = $parser->YYData->{symbtab_cst}->Lookup( $type . $value );
    if ($defn) {
        return [ $defn, [] ];
    }
    else {
        my $name    = ' <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30332	30438	
==>he type
	# Source in P6
	# Dest returned in P1
STRUCT_COPY:
SCOPYDIS
	foreach(keys %usertypes) {
		print CO <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7279	7443	
==>.-$act." ($lhs,$len): ";

                $act
            or  $self->YYAccept();

            $$dotpos=$len;

                unpack('A1',$lhs) eq '@'    #In <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6943	7100	
==>.-$act." ($lhs,$len): ";

                $act
            or  $self->YYAccept();

            $$dotpos=$len;

                unpack('A1',$lhs) eq '@'    #In <==
2	/Users/nnunley/parrot/examples/benchmarks/freeze.pl	711	839	
==>w $image };
$e = time();
printf "  thaw time %.6f\n", $e-$s;

#$s = time();
#my $c = dclone \@a;
#$e = time();
#printf " clone ti <==
2	/Users/nnunley/parrot/lib/File/Which.pm	41	142	
==>e Exporter;

@File::Which::ISA       = qw(Exporter);

@File::Which::EXPORT    = qw(which);
@File::Whic <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	6232	6373	
==>se amounts of data.

=item *

C<Digest::Perl::MD5> loads all data to encrypt into memory. This is a todo.

=back

=head1 SEE ALSO

L<Digest::M <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43707	43948	
==>r, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45634	45875	
==>r, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946005	946261	
==>unction",
                  "CODE" => 1064,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 521 \"src/ops/string.ops\"\n  {{\@1}} = string_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656249	656450	
==>",
                              "p",
                              "ki"
                            ],
                  "BODY" => "#line 324 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	4533	4673	
==>ift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = newclosure $op-> <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23622	23730	
==>t',[$return,$temp]);
    $self->_add_inst("NEXT_$label");
    $self->_restore($temp);
  }
  return $return;
} <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24084	24192	
==>t',[$return,$temp]);
    $self->_add_inst("NEXT_$label");
    $self->_restore($temp);
  }
  return $return;
} <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	21346	21464	
==>d STDERR point to,
Test::Builder's default output settings will not be affected.

=over 4

=item B<diag>

    $Test->di <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3045	3177	
==>README file',
	'RELEASE_INSTRUCTIONS' => 'Project info',
	'RESPONSIBLE_PARTIES' => 'Project info',
	'TODO' => 'TODO file',
	'VERSION' <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9858	9976	
==>hile(	  @$stack
			  and (		not exists($$states[$$stack[-1][0]]{ACTIONS})
			        or  not exists($$states[$$stack[ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9413	9529	
==>hile(	  @$stack
			  and (		not exists($$states[$$stack[-1][0]]{ACTIONS})
			        or  not exists($$states[$$stack[ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054922	1055385	
==>LAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1178,
                  "ARGS" => [
                              "p",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#l <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	7986	8239	
==>/&nbsp;/g;
          # hack, to make the timestamps not break so the smoke reports look
          # good even on 640x480
          $str;
        },
      ],
      duration      => sprintf("%.02f", Time::Seconds->new($10)->minutes) . "&nbsp;min",
      su <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	3346	3549	
==>$self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = find_global \"$op->{arg1}\"\n";
    }

    sub visitFindLexOp {
        my $self = shift;
        my ($op) = @_;
        m <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	81	208	
==>34218Z bernhard  $

package Parrot::Test::M4::Gnu;

use strict;
use warnings;
use 5.006;

use base 'Parrot::Test::M4';

our $VER <==
2	/Users/nnunley/parrot/config/inter/progs.pm	582	699	
==>er and linker to use';

@args = qw(ask cc cxx link ld ccflags ccwarn linkflags ldflags libs debugging
    lex yacc mai <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	24345	24513	
==>turn 1;
}

# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

sub _ponder_extend {

  # "Go to an extreme, move back to a more comfortable pl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421856	422123	
==>ind(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422749	423016	
==>ind(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2184	2292	
==>the actual formatters:

sub end_head1       { $_[0]->emit_par(-4) }
sub end_head2       { $_[0]->emit_par(-3) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1752	1860	
==>the actual formatters:

sub end_head1       { $_[0]->emit_par(-4) }
sub end_head2       { $_[0]->emit_par(-3) <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	122	259	
==>ift;
    my ($msg) = @_;

    $msg ||= "Syntax error.\n";

    if ( exists $parser->YYData->{nb_error} ) {
        $parser->YYData-> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	597	688	
==>IVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Ident is not!" unless UNIVERSAL:: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	485	576	
==>IVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Ident is not!" unless UNIVERSAL:: <==
2	/Users/nnunley/parrot/config/auto/jit.pm	510	632	
==>termining architecture, OS and JIT capability';
our @args        = qw(jitcapable miniparrot execcapable verbose);

sub runs <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	7609	7810	
==>$name};
            
            if ($arg->{type} eq 'script' or $arg->{type} eq 'expr') {
                $code .= emit("temp = a_$name()");
                
                # if that's all there is, r <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	6857	6970	
==>ories).
Optionally, die with an error message if that file cannot be found.

=cut

sub find_file {
    my ($includ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	19113	19222	
==>stack, [-1, 'P5', 'P'];   # simulate the DUP_TOP
    print <<EOC;
	# except compare '$l' <=> $r->[1]
	$cmp = i <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	5566	5862	
==>ken);
  } elsif( $type eq 'man') { return $self->do_man_link($token);
  } else {
    $self->whine("L of unknown type $type!?", $token->attr('start_line'));
  }
  return 'FNORG';
}


sub do_middle {      # the main work
  my $self = $_[0];
  my $fh = $self->{'output_fh'};
  
  my($token, $type, $t <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10765	10891	
==>e
      print $fh $scratch;
    }
  }
  return 1;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	4195	4302	
==>t CODE "\t\$P0[",$_+1,"]= \"$line\"\n";
	}
	print CODE<<FOO;
	\$P1["code"]= \$P0
	\$P1["step"]= 1   # Turn o <==
2	/Users/nnunley/parrot/config/auto/jit.pm	3972	4124	
==>t('execcapable')
            if defined $conf->options->get('execcapable');
        if ($execcapable) {
            $conf->data->set(
                TEM <==
2	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	797	896	
==>e.pasm"
.include "basicvar.pasm"
.include "basic.pasm"
.include "instructions.pasm"
.include "expr.p <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	35452	35642	
==>);
    push @opcodes1, new LabelOp( $parser,
        'arg1' => $lbl_end,
    );
    return \@opcodes1;
}

sub BuildBreak {
    my ($parser) = @_;
    my @opcodes = ();
    push @opc <==
2	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	249	365	
==>tting the current version.

=head2 Functions

=over 4

=cut

package Parrot::BuildUtil;

use strict;
use warnings;

= <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	14090	14231	
==>$self->output_fh( *STDOUT{IO}   );
  } elsif(ref(\$to) eq 'GLOB') { $self->output_fh( $to );
  } elsif(ref($to)) {            $self->output_fh <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16613	16789	
==>new LocalDir( $parser,
                    'result' => $result,
                );
                push @opcodes, new FindLexOp( $parser,
                    'result' => $re <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10789	10935	
==>new LocalDir( $parser, 'result' => $result, );
                    push @opcodes, new FindLexOp( $parser,
                        'result' => $re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490330	490593	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inc",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490951	491214	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inc",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => " <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	34220	34331	
==>pected_Tests} == 1 ? '' : 's';
            $self->diag(<<"FAIL");
Looks like you planned $self->{Expected_Tests} <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	34556	34667	
==>pected_Tests} == 1 ? '' : 's';
            $self->diag(<<"FAIL");
Looks like you planned $self->{Expected_Tests} <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	11332	11598	
==>ONS => {
			'NAME' => 4,
			'REPEAT' => 5,
			'FOR' => 6,
			"(" => 8,
			'IF' => 10,
			'FUNCTION' => 12,
			'DO' => 15,
			'WHILE' => 16,
			'LOCAL' => 17
		},
		DEFAULT => -1,
		GOTOS => {
			'functioncall' => 9,
			'var' => 11,
			'_if_then' => 14, <==
2	/Users/nnunley/parrot/config/auto/readline.pm	1628	1771	
==>g/auto/readline/readline.in');
    eval { cc_build(); };
    my $has_readline = 0;
    if (!$@) {
	$has_readline = 1;
	print " (yes) " if $verbo <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	11215	11521	
==>f FILTER is provided, only
those Constructs in the content for which FILTER returns a true value
will be compiled.

The FILTER feature is used to arrange for two passes over the root block.
The first pass compiles all subroutine declarations and definitions, while
the second pass compiles any other content <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	5819	5986	
==>emData name="Identifier" defStyleNum="dsDataType" color="#C00000" selColor="#C00000" bold="0" italic="0" />
      <itemData name="SpChar" defStyleNum="dsChar" />
    </ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7436	7574	
==>and (=head2 probably).
	return '' if $text =~ /^=\w/o;
	
	return $text unless $text =~ /-/o;
	
	# There has to be some space each side of t <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7016	7137	
==>tring (TODO: domain)
  my $label = shift; # Optional: string (TODO: domain)

  confess "No block!"  unless defined $self a <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	184	293	
==>AP %Tagmap);
$VERSION = '2.02';
use Pod::Simple::PullParser ();
BEGIN {@ISA = ('Pod::Simple::PullParser')}

us <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	637	795	
==>od::Simple::HTML );

# This is just here to keep Pod::Simple::HTML's version_tag_comment() happy.
our $VERSION = '1.0';

use Parrot::Docs::HTMLPage;

=item C<d <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	3024	3145	
==>efined in PMCNAME are inherited from the PMCPARENT class.
If no parent class is defined, methods from F<default.pmc> are u <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6236	6398	
==>tput_getstart {
    my ($self, $reg, $group) = @_;
    $reg = value($reg);
    return qq!set $reg, <rx_match>["$group";0] # get group $group start!;
}

sub output_ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12992	13138	
==>$syms[NEXT] eq "function") {
		push @{$code{$seg}->{code}}, qq{\tgoto END_$seg\n};
		feedme();
		#$_=english_func($funcname);
		#print CODE "\tgoto <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	648	777	
==>:Test::HQ9plus::$func"} = sub ($$;$) {
        my $self = shift;
        my ( $code, $output, $desc ) = @_;
  
        my $count = <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	3446	3575	
==>s_python_2_4' => 1,
             'has_setitimer' => 'define',
             'has_sig_atomic_t' => 'define',
             'has_sigac <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22095	22214	
==>ode"      => $_[1],
		"lookahead" => $_[2],
		"line"      => $_[3],
		"name"      => $_[4],
	}, $class;
}

sub code($$$$ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	5708	5921	
==>Test::More.

=item C<run_command($command, %options)>

Run the given $command in a cross-platform manner.

%options include...

    STDOUT    filehandle to redirect STDOUT to
    STDERR    filehandle to redirect ST <==
2	/Users/nnunley/parrot/tools/dev/symlink.pl	1123	1233	
==>@toolsrcdir >= 2 &&
         lc($toolsrcdir[-1]) eq 'dev' &&
         lc($toolsrcdir[-2]) eq 'tools';
my @topsr <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	3906	4073	
==>hod_t $entry->[1];\n";
    }

    $struct .= "};\n";

    return $struct;
}

=item C<vtbl_macros($vtable)>

Returns the C C<#define> definitions for the elements in the <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4678	4776	
==><special> PMCs:
F<default>, C<delegate>, C<Null>, C<Ref> or C<SharedRef>.

C<$opt> is a hash refere <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223625	223772	
==>eger(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224567	224714	
==>eger(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/languages/urm/urm-old.pl	1152	1250	
==>+)/) {
	$register{$1} = 0 unless defined $register{$1};
	if ($register{$1} == $2) {$pos = $3;} else <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	18487	18599	
==>=cut

sub read_dump {
    my ($include, $file) = @_;

    $file =~ s/\.\w+$/.dump/;
    $file = find_file($includ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	48669	48761	
==>erl quotes or quotelike operations. That is, C<extract_codeblock>
is like a combination of C< <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	903	1041	
==>p module for use and distribution rights)
#

package Parse::Yapp::Driver;

require 5.004;

use strict;

use vars qw ( $VERSION $CO <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	878	1007	
==>p module for use and distribution rights)
#

package Parse::Yapp::Driver;

require 5.004;

use strict;

use vars qw ( $VERSION $CO <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	627	937	
==>ION

Create F<src/parrot_config.c> with relevant runtime for the config
process.

The data in the generated configuration file is a serialised hash
which can be passed to the parrot VM by calling Parrot_set_config_hash
and will in turn be used to provide the config environment for
subsequently created Interpre <==
2	/Users/nnunley/parrot/config/init/hints/netbsd.pm	173	287	
==>ccflags');
    if ($ccflags !~ /-pthread/) {
        $ccflags .= ' -pthread';
    }
    $conf->data->set(ccflags => <==
2	/Users/nnunley/parrot/config/init/hints/openbsd.pm	265	379	
==>ccflags');
    if ($ccflags !~ /-pthread/) {
        $ccflags .= ' -pthread';
    }
    $conf->data->set(ccflags => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705	902	
==>\n\n\n/*\n** cmp.ops\n*/\n\n\n\n/*\n** debug.ops\n*/\n\n\n\n/*\n** dotgnu.ops\n*/\n\n\n\n/*\n** experimental.ops\n*/\n\nextern PMC* Parrot_NameSpace_name(Interp* interpreter, PMC* pmc);\n\n\n\n/*\n* <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	48418	48556	
==>ble as an interpolated literal:

        $quotelike = extract_quotelike("$var");


=head2 C<extract_codeblock>

C<extract_codeblock> attemp <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6012	6148	
==>eed token. Got ".&$ShowCurToken."\n";
			};

            $act=   exists($$actions{ACTIONS}{$$token})
                    ?   $$action <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5727	5859	
==>eed token. Got ".&$ShowCurToken."\n";
			};

            $act=   exists($$actions{ACTIONS}{$$token})
                    ?   $$action <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	17	199	
==>004, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Docs/Group.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Group - Group of documentation items

=head <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413812	414117	
==>=> [
                              "i",
                              "p",
                              "ic",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(inter <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	902	1098	
==>u want to
test your program will print out an "ok" or "not ok" to indicate pass
or fail.  You do this with the ok() function (see below).

The only other constraint is you must pre-declare how many <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	1260	1401	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1;
__END__

Chole

 * 1 large red onion
 * 2 tomatillos
 * 4 or 5 roma tomatoe <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	44897	45030	
==>ew_line;
    while( $formatting =~ m{\G(( +)|(\^+)|(\/+)|(\%+))}g ) {
      #print "Format matches $1\n";

      if($2) {
        #pri <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3445	3580	
==>}) {
      $fnlib = $props{fnlib}->value; # TODO: We should make sure its a string, somewhere.
    }
    else {
      $self->SYNTAX_ERRO <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6109	6244	
==>}) {
      $fnlib = $props{fnlib}->value; # TODO: We should make sure its a string, somewhere.
    }
    else {
      $self->SYNTAX_ERRO <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11614	11717	
==>~~~~~~~~~

sub unicode_escape_url {
  my($self, $string) = @_;
  $string =~ s/([^\x00-\xFF])/'('.ord($1) <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	333	465	
==>inked in the
same dynamic library. A degenerate case is having an unnamed library with just
one PMC, which is the case used by the Pa <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6408	6514	
==>n ($self->dbprint("At end: %<rx_pos> >= %<rx_len>?\n"),
            "goto $fail if <rx_pos> < <rx_len>; # a <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1001	1100	
==>lf, tagname
  DEBUG > 2 and print "Handling $_[1] end-event\n";
  shift @{$_[0]{'_currpos'}};
  DEBU <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	36106	36225	
==>y $class = ref($self) || $self;
	($max, $min) = ( $min, $max) if ($max<$min);

	my $desc;
	if ($subrule=~/\A_alternation <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	47359	47537	
==>r use in testing: Class->_out($source)
  #  returns the transformation of $source
  
  my $class = shift(@_);

  my $mutor = shift(@_) if @_ and ref($_[0] || '') eq 'CODE';

  DEB <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2865	2981	
==>ub output_lt {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_test('<', $val1, $val2, $dest);
}

sub out <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7128	7240	
==>ex {
    my ($self, $reg) = @_;
    $reg = value(defined($reg) ? $reg : 'pos');
    return $self->output_pushint( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6770	6882	
==>ex {
    my ($self, $reg) = @_;
    $reg = value(defined($reg) ? $reg : 'pos');
    return $self->output_pushint( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1090	1285	
==>en ne 'sub') {
        $compiler->emit("__INLINE_" . $inline . "()"); # $inline is already the next one.
        $compiler->emit(".return()"); # Return to the previous inline chunk.
        $compi <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	9841	9982	
==>_;

  _num_arg ($node, 2, 'define');

  my ($symbol, $lambda, $value);

  if (exists _get_arg($node,1)->{children}) {
    my @formals;
    ($s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52672	52956	
==>n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gc_debug",
                  "FLAGS" => "",
                  "ARGDIRS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53427	53711	
==>n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gc_debug",
                  "FLAGS" => "",
                  "ARGDIRS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	28886	29256	
==>ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 38,
                  "ARGS" => [
                              "pc"
                            ],
                  "BODY" => "#line 512 \"src/ops/core.ops\"\n    opcode_t * const this = CUR_OPCODE;\n    parrot_conte <==
2	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	1930	2055	
==>1] }

# length is known from the line above
name:               m/[a-zA-Z0-9_-]{$::name_len}/ 

# length is known from the lin <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2754	2849	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~

sub new {
  my $new = shift->SUPER::new(@_);
  #$new->nix_X_codes(1) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3110	3203	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~
sub new {
  my $new = shift->SUPER::new(@_);
  $new->nix_X_codes(1) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19863	19963	
==>s appropriately is useful if you want to use the RTF
to spellcheck, and/or if you want it to hyphenat <==
2	/Users/nnunley/parrot/lib/Test/More.pm	15909	16170	
==>l
statement.

B<NOTE> The exact formatting of the diagnostic output is still
changing, but it is guaranteed that whatever you throw at it it won't
interfere with the test.

=cut

sub diag {
    return unless $Show_Diag;
    $Test->diag(@_);
}


=back

=head2 Mod <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	287	414	
==>rict;
eval "use warnings";

package Jako::Construct::Block::Loop::Continue;

use Carp;

use base qw(Jako::Construct::Block::Loop <==
2	/Users/nnunley/parrot/config/init/hints/darwin.pm	1229	1346	
==>when built against a dynamic libparrot installable_parrot records
        # the path to the blib version of the librar <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786052	786190	
==>"
                            ],
                  "BODY" => "#line 417 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_key <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10888	11013	
==>~~~~~
sub do_beginning {
  my $self = $_[0];
  my $fh = $self->{'output_fh'};
  return print $fh join '',
    $self->doc_init, <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2623	2733	
==>ing {
	my($self)=shift;

	${$$self{ERRST}} != 0;
}

sub YYAbort {
	my($self)=shift;

	${$$self{CHECK}} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2508	2609	
==>ing {
	my($self)=shift;

	${$$self{ERRST}} != 0;
}

sub YYAbort {
	my($self)=shift;

	${$$self{CHECK}} <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1269	1379	
==>uage = File::Spec->join('languages', $language);
        } elsif ($dir_count == 1) {
          $path_to_languag <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1754	1864	
==>uage = File::Spec->join('languages', $language);
        } elsif ($dir_count == 1) {
          $path_to_languag <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19368	19493	
==>g
("").

=item $author_name   = $parser->get_author

This works like get_title except that it returns the contents of the
"=he <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7196	7318	
==>ions{reject})	       ? $options{reject}
		    :					 ''
		    ;
	my $ignore  = ref($options{ignore}) eq 'ARRAY' ? join('|', <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24198	24320	
==>ions{reject})	       ? $options{reject}
		    :					 ''
		    ;
	my $ignore  = ref($options{ignore}) eq 'ARRAY' ? join('|', <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	12660	12808	
==>TIONS => {
			"(" => 10,
			'CHAR' => 4,
			"<" => 3,
			"[" => 14,
			'CODE' => 6,
			"." => 15
		},
		GOTOS => {
			'expr' => 11,
			'charclass' => <==
2	/Users/nnunley/parrot/Configure.pl	7736	7834	
==>ion of ICU headers without /unicode
   --icushared=(flags)  Full linker command to create shared li <==
2	/Users/nnunley/parrot/config/gen/icu.pm	3814	3912	
==>ion of ICU headers without /unicode
   --icushared=(flags)  Full linker command to create shared li <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1579	1773	
==>0, "Compiling string literal: '%s'...", $self->value);

    return $string unless $string =~ m/(^"|^".*?[^\\])\$/; # Double-quote with an unescaped '$'.

    $string = substr($string, 1, -1); # W <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483408	483720	
==>ne",
                  "CODE" => 553,
                  "ARGS" => [
                              "n",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 455 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	3416	3526	
==>if ($syms[CURR] =~ /^(	
		while | wend | dim | type | exit | function | for | next |
		do | loop | goto | gosub <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6323	6435	
==>switch_${CURIC}

POST_BRANCH_switch_${CURIC}:
i = elements P_arg_0
POST_BRANCH_switch_${CURIC}_LOOP:
if i == 0 go <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4261	4373	
==>switch_${CURIC}

POST_BRANCH_switch_${CURIC}:
i = elements P_arg_0
POST_BRANCH_switch_${CURIC}_LOOP:
if i == 0 go <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	18315	18536	
==>_name ];
                }
            }
        }
        last if $found;
    }
    return $found ? @mmds : ();
}

=item C<init_func()>

Returns the C code for the PMC's initialization method, or an empty
string if the PM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554004	554100	
==>rrent_cont = {{\@3}};\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_method(i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555401	555497	
==>rrent_cont = {{\@3}};\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_method(i <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	844	1062	
==>should describe the test.

Any optional parameters can follow.  For example, to mark a test as a TODO test
(where you know the implementation does not yet work), pass:

    todo => 'reason to consider this TODO'

at the <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3911	4048	
==>he outside world.  Be careful to only scan Parrot's defines, not
system's or third parties'.

=back

=head1 HISTORY

Author: Jarkko Hietan <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	962	1054	
==>r_opcode[i])
#define PREG(i) REG_PMC(cur_opcode[i])
#define SREG(i) REG_STR(cur_opcode[i])
#d <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1078	1170	
==>r_opcode[i])
#define PREG(i) REG_PMC(cur_opcode[i])
#define SREG(i) REG_STR(cur_opcode[i])
#d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607520	607613	
==>" => "#line 473 \"src/ops/object.ops\"\n    {{\@1}} = VTABLE_get_attr(interpreter, {{\@2}}, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608424	608517	
==>" => "#line 473 \"src/ops/object.ops\"\n    {{\@1}} = VTABLE_get_attr(interpreter, {{\@2}}, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864033	864176	
==>s\"\n  UINTVAL n;\n  STRING *s = {{\@2}};\n  if (!s)\n    n = 0;\n  else {\n    n = s->bufused;\n    assert(n == ENCODING_BYTES(interpreter, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864925	865068	
==>s\"\n  UINTVAL n;\n  STRING *s = {{\@2}};\n  if (!s)\n    n = 0;\n  else {\n    n = s->bufused;\n    assert(n == ENCODING_BYTES(interpreter, {{\ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	17979	18084	
==>"uncommit"} ? '' : ' && !$commit')
	. ')
	{
		' .
		($self->changesskip()
			? 'local $skip = defined($ski <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3927	4028	
==>needed, $failLabel, $lenvar) = @_;
    $lenvar ||= "<rx_len>";
    my $fail = $self->output_label_use( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3641	3742	
==>needed, $failLabel, $lenvar) = @_;
    $lenvar ||= "<rx_len>";
    my $fail = $self->output_label_use( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422821	423159	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "listen",
                  "FLAGS" => ":base_network",
                  "AR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423717	424055	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "listen",
                  "FLAGS" => ":base_network",
                  "AR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945478	945710	
==>harset_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946288	946520	
==>harset_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/config/gen/platform.pm	4095	4242	
==>"< config/gen/platform/$platform/begin.c" or die "Can't open begin.c: $!";
        print PLATFORM_C <<"END_HERE";
/*
** begin.c
*/
#line 1 "config/g <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8715	8900	
==>ents!" if @_;

  my $found = $self->find_symbol($name);

  return $found ? $found->kind : undef;
}


###############################################################################

=hea <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10052	10237	
==>ents!" if @_;

  my $found = $self->find_symbol($name);

  return $found ? $found->kind : undef;
}


###############################################################################

=hea <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24997	25152	
==>nced::Extractor';
}

package Text::Balanced::Extractor;

sub extract($$)	# ($self, $text)
{
	&{$_[0]}($_[1]);
}

package Text::Balanced::ErrorMsg;

use over <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3134	3257	
==>rtok {
	my($self)=shift;

        @_
    and ${$$self{TOKEN}}=$_[0];
    ${$$self{TOKEN}};
}

sub YYCurval {
	my($s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2981	3095	
==>rtok {
	my($self)=shift;

        @_
    and ${$$self{TOKEN}}=$_[0];
    ${$$self{TOKEN}};
}

sub YYCurval {
	my($s <==
2	/Users/nnunley/parrot/lib/Test/More.pm	10096	10219	
==>erator.

    # ok( $this eq $that );
    cmp_ok( $this, 'eq', $that, 'this eq that' );

    # ok( $this == $that );
    cmp_ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7949	8049	
==>ops (int)"
i=0
if i then print "Should not happen (flo)"
i=55
if i then print "This is true" else pri <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14936	15036	
==>ops (int)"
i=0
if i then print "Should not happen (flo)"
i=55
if i then print "This is true" else pri <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86039	86365	
==>o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 107,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 1208 \"src/ops/ <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	3584	3688	
==>ths()>

These are the full paths of all the files and subdirectories in the directory.

=cut

sub file_an <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175214	175399	
==>eter, {{\@1}}, {{\@2}}, MMD_NUMCMP) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	1024	1172	
==>Y_LINES is ", MANY_LINES(), "\n";
  unless(MANY_LINES() >= 1) {
    die "MANY_LINES is too small (", MANY_LINES(), ")!\nAborting";
  }
  if(defined & <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5129	5237	
==>DBG>	my($ShowCurToken) = sub {
#DBG>		my($tok)='>';
#DBG>		for (split('',$$token)) {
#DBG>			$tok.=		(ord( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4881	4986	
==>DBG>	my($ShowCurToken) = sub {
#DBG>		my($tok)='>';
#DBG>		for (split('',$$token)) {
#DBG>			$tok.=		(ord( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477166	477427	
==>(INTVAL)floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478062	478323	
==>(INTVAL)floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493860	494322	
==>AGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 567,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	3330	3471	
==>asses to return the C code following the run core
function. C<$base> is the same as for C<run_core_func_decl()>.

=item C<init_func_init1($bas <==
2	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	2210	2319	
==><>;
}
#print Dump( $frozen );

# Parse the freeze-state
my $symtab = $frozen_parser->frozen( $frozen );

# Dum <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	309	428	
==>.) : return R && S && ...
# R (scan, R) : scan for R at every position
# R (test, op1, check, op2, dest)
# R (alternate, <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	3380	3504	
==>erpreter, &st, return_data);",
       P => "set_nci_P(interpreter, &st, return_data);",
       S => "set_nci_S(interpreter, & <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463284	463644	
==>base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 531,
                  "ARGS" => [
                              "n",
                              "nc <==
2	/Users/nnunley/parrot/config/init/hints/irix.pm	719	1044	
==>ta->get('cxx');
    my $ld   = $conf->data->get('ld');
    my $link = $conf->data->get('link');
    if ($cc =~ /cc -64/) {
        $cxx  = 'CC -64';
        $ld   = 'CC -64';
        $link = 'CC -64';
        $conf->data->set(
            cxx  => $cxx,
            ld   => $ld,
            link => $link,
        );
    }
}

1 <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22320	22425	
==>urn;
  my $label = $self->_gensym();

  my $temp_0 = $self->_generate($node->{children}[1]);
  $return = $ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22821	22926	
==>urn;
  my $label = $self->_gensym();

  my $temp_0 = $self->_generate($node->{children}[1]);
  $return = $ <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	427	536	
==>h.pl>, F<tools/dev/gen_class.pl>, and
F<src/pmc/null.pl>.

=head2 Functions

The following functions are expor <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5845	5980	
==>!;
    return @ops;
}

sub output_getstart {
    my ($self, $reg, $group) = @_;
    $reg = value($reg);
    return qq!$reg = <rx_match>{ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6207	6326	
==>!;
    return @ops;
}

sub output_getstart {
    my ($self, $reg, $group) = @_;
    $reg = value($reg);
    return qq!se <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	2784	2903	
==>!$cur_method) {
            die "Syntax error at line $line_count\n";

        # Have we got a non-blank line in an unim <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	8208	8366	
==>s) = @_;

  return unless defined $self->debug and $self->debug >= $level;

  my $message = $format ? sprintf($format, @args) : '<no message>';

  printf STDER <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	195	306	
==>o/lib/Jako/Construct/Block/Conditional.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use war <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2496	2626	
==>exit code $exit_code")
      if $exit_code and not $pass;
    }

    unless($ENV{POSTMORTEM}) {
      unlink $out_f;
    }

    ret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	617809	618179	
==>o a dynamic lookup\n\t */\n    }\n    parrot_pic_find_infix_v_pp(interpreter, left, right, mic, cur_opcode);\n    /* rerun this opcode */\n    {{+=0}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	10144	10249	
==>ead.pmc lexpad.pmc timer.pmc pointer.pmc sub.pmc closure.pmc continuation.pmc retcontinuation.pmc exceptio <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1914	2044	
==>tuff that uses Pod::Simple to do stuff, but which
  you don't want debug output from...

 $debug_level = 4;
 ...some stuff that use <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11266	11380	
==>CURR] eq ",";
	feedme();
	my($rightres, $righttype, @right)=EXPRESSION({lhs => 1});
	push @{$code{$seg}->{code}}, < <==
2	/Users/nnunley/parrot/lib/Test/More.pm	31226	31439	
==>l @Data_Stack;
    return _deep_check(@_);
}

sub _eq_hash {
    my($a1, $a2) = @_;

    if( grep !_type($_) eq 'HASH', $a1, $a2 ) {
        warn "eq_hash passed a non-hash ref";
        return 0;
    }

    return <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	27979	28252	
==>,
                       @ops,
                       $self->dbprint(".. $desc NEXT\n"),
           );
}

################################ Main loop #######################

sub rewrite {
    my ($self, $op, $lastback) = @_;

    if (UNIVERSAL::isa($op, 'Regex::Ops::Tree')) <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	1710	1984	
==>ut this is necessary.
    
    my $errors = 0;
    local $SIG{__WARN__} = sub { $errors++; $all_errors{"@_"}=1; };
    my $typedefs = $c->get('typedef_hash');       

    foreach (@type_macros) {
        $typedefs->{$_}="#defined";
    }
    
    
    # post-process the file <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10683	10831	
==>ile) = @_;
    
    my $source_file = $infile;
    $source_file =~ s/\.gcov$//g;

    my $outfile_base = $source_file; 
    $outfile_base =~ s/\//_/g <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	2	117	
==>Copyright (C) 2004-2006, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Docs/Section/BigNum.pm 20333 2006-06-21T18:4 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	60304	60455	
==>ua51.yp"


package Lua::parser;

use strict;

use Lua::lexer;
use Lua::build;
use Lua::symbtab;
use Lua::pir;

sub Run {
    my $parser = s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2962	3083	
==>ymbol($self->name, $sym);

  $block->push_content($self);

  return $self;
}


#
# ACCESSORS:
#

# block handled by superc <==
2	/Users/nnunley/parrot/lib/Test/More.pm	18988	19150	
==>The rest is an alphanumeric or ::
    $module =~ s/\b::\b//g;
    $module =~ /^[a-zA-Z]\w*$/;
}

=back

=head2 Conditional tests

Sometimes running a test under ce <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1326	1473	
==>opcodes};
        $defn = $opcodes->[-1]->{result};
    }
    return [ $defn, $opcodes ];
}

sub PushScopeF {
    my ($parser) = @_;

    P <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	10817	10908	
==>rray.pmc resizablepmcarray.pmc resizablestringarray.pmc scalar.pmc slice.pmc super.pmc undef <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	794	889	
==>em C<source>

In C<source> mode, it uses a the C<cxref> program
(L<http://www.gedanken.demon.co. <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13963	14106	
==>foo as integer
	bar as string
end type
type second
	pointer as first
	number as integer
end type
function mine (a, b, q as first)
	q.foo=103
	mi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	1105	1220	
==>iving them can be
generated later.

=cut

sub combineLabels {
    my $self = shift;
    my @names = map { $_->{label <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1983	2122	
==>terpreter.h> for a list of the core types.

=cut

sub core_type 
{
    my $self = shift;
    
    die ref($self) . " doesn't have core_type( <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	18386	18563	
==>= pos($$textref);
		$$textref =~ m{.*\n}gc;
		$str1pos = pos($$textref);
		unless ($$textref =~ m{.*?\n(?=$label\n)}gc) {
			_failmsg qq{Missing here doc terminator ('$label') af <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	20423	20550	
==>use_numbers {
    my($self, $use_nums) = @_;

    if( defined $use_nums ) {
        $self->{Use_Nums} = $use_nums;
    }
    ret <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1162	1286	
==>e($text);
    $text =~  # A not-totally-brilliant wrapping algorithm:
      s/(
         [^\n]{55}         # Snare some chara <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1106	1230	
==>e($text);
    $text =~  # A not-totally-brilliant wrapping algorithm:
      s/(
         [^\n]{55}         # Snare some chara <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	64462	64595	
==>f
only because parts of it give the impression of understanding a great deal
more about Perl than they really do. 

Bug reports and ot <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	7068	7181	
==>_$index:";
	$comment    = "/* ". $op->full_name() ." */";
    } elsif ($suffix =~ /switch/) {
	$definition = "case <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	5106	5272	
==>turn ( $type, $str );

            s/^(.)//
                and $str .= $1,
                last;
        }
    }

    $parser->Error("Untermined raw string.\n <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3349	3461	
==>= $conf->data->get('linkflags');
            $linkflags =~ s/-opt:\S+//;
            $conf->data->set(linkflags = <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4853	4965	
==>= $conf->data->get('linkflags');
            $linkflags =~ s/-opt:\S+//;
            $conf->data->set(linkflags = <==
2	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	1265	1462	
==>lt from different version of $input; remaking\n"
          if $Verbose;
        $up_to_date = 0;
        last;
    }
    print "$output is up to date with respect to $input\n" if $Verbose;
}

exit 0 <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	13515	13699	
==>cmt
EOC
}

sub PRINT_NEWLINE
{
    my ($n, $c, $cmt) = @_;
    print <<"EOC";
	print_newline $cmt
EOC
}

sub RETURN_VALUE
{
    my ($n, $c, $cmt) = @_;
    my $tos = promote(pop @stack) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	525751	526374	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "asec",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 607,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 800 \"src/ops/math.ops\"\n  {{\@1}} = acos(((FLOATVAL)1) / ((FLOATVAL){{\@2}}));\n  {{+=3}};\n",
                  " <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	2774	2886	
==>ited_pat = \&gen_delimited_pat;


# THE EXTRACTION FUNCTIONS

sub extract_delimited (;$$$$)
{
	my $textref = defi <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7180	7280	
==>"]
${DEST0} = concat ${STEMP0}
${STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
PIR
	}

	return $p <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5002	5102	
==>"]
${DEST0} = concat ${STEMP0}
${STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
PIR
	}

	return $p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1525	1649	
==>pe!")
    unless defined $type;

  $self->INTERNAL_ERROR("Type is not a Jako::Construct::Type instance!")
    unless UNIVERSA <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1373	1497	
==>pe!")
    unless defined $type;

  $self->INTERNAL_ERROR("Type is not a Jako::Construct::Type instance!")
    unless UNIVERSA <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	21362	21593	
==>self->{'accept_codes'} || die "NO accept_codes in $self?!?");

  my $start_line = $stack[0][1]{'start_line'};
  DEBUG > 2 and printf
   "\nAbout to start _remap_sequences on treelet from line %s.\n",
   $start_line || '[?]'
  ;
  DE <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	2317	2401	
==>ent = Jako::Construct::Expression::Value::Identifier->compile2($compiler, $self->bloc <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	58599	58690	
==>ial purpose tags
for C<extract_tagged>. For example, to properly ignore "empty" XML elements <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	7367	7499	
==>&& $op->disjoint();

    # Insert better tests here

    return 0;
}

# R*, R+, R?, nongreedy variants of those
package Regex::Ops::T <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	48208	48334	
==>ess wantarray;

  my $mutor = shift(@_) if @_ and ref($_[0] || '') eq 'CODE';

  Carp::croak "But $class->_duo takes two parame <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	8343	8463	
==>balanced, $remaining) = extract_balanced($code);

Remove a balanced {} construct from the beginning of $code.
Return it a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79052	79156	
==>, name);\n  string_cstring_free(name);\n  if (p == NULL) {\n      const char * const err = Parrot_dlerror <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80573	80677	
==>, name);\n  string_cstring_free(name);\n  if (p == NULL) {\n      const char * const err = Parrot_dlerror <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3171	3283	
==>xit tests
sub mysub(b,c)
	print "Print me"
	exit sub
	print "Don't print me"
end sub
function foo$
	foo$="Right o <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17138	17250	
==>xit tests
sub mysub(b,c)
	print "Print me"
	exit sub
	print "Don't print me"
end sub
function foo$
	foo$="Right o <==
2	/Users/nnunley/parrot/config/auto/bc.pm	948	1088	
==>ot_hang = (
        linux   => 1,
        MSWin32 => 1,
    );

    if ($bc_does_not_hang{$osname}) {

        # This seems to work for GNU b <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	4069	4194	
==>g;
    (my $TEMP_pmc_classes_str = $TEMP_pmc_str) =~ s/^| / src${slash}pmc${slash}/g;
    (my $TEMP_pmc_classes_pmc = $pmc_lis <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663685	663841	
==>pmc.ops\"\n  {{\@1}}->vtable->delete_keyed(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664457	664613	
==>pmc.ops\"\n  {{\@1}}->vtable->delete_keyed(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17221	17327	
==>b
function foo$
	foo$="Right one"
	exit function
	foo$="Wrong one"
end function
call mysub 78, 80
t$=foo$
p <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	42127	42240	
==>t",$arg]);
    }
    $count++;
  }

  $self->_add_inst('', 'set', ['P0', $func_obj]) unless $func_obj eq 'P0';
  $ <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	13608	13714	
==>ccessor will C<croak> if this is not an appropriate object
reference.

If the element type does not start w <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665213	665299	
==>e 359 \"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delete_keyed_int(interpreter, {{\@1}}, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665990	666076	
==>e 359 \"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delete_keyed_int(interpreter, {{\@1}}, {{ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1424	1523	
==>$self, $distance, $failLabel) = @_;
    $failLabel = $self->output_label_use($failLabel);
    return <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1173	1272	
==>$self, $distance, $failLabel) = @_;
    $failLabel = $self->output_label_use($failLabel);
    return <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026547	1026807	
==>= sysinfo_i(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1027304	1027564	
==>= sysinfo_i(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10727	10854	
==>[^\#]+)\#/${$self}{$1}/g; # interpolate
      print $fh $scratch;
    }
  }
  return 1;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	8061	8178	
==>node) = @_;
  my $return;
  my $label = $self->_gensym();
  my $temp;

  $return = $self->_save_1 ('P');

  $self->_ad <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	5263	5373	
==>pshot" : "release",
	  runcore2human($_[0]->{runcore}),
	  $_[0]->{cpuarch},
      $_[0]->{osname},
      $_[0] <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3358	3509	
==>oo$
print t$
t=0
do
	print "This is right"
	exit do
	print "This is wrong"
	t=t+1
loop until t>1

' Mathmagic
dim m(1), ba(1)
fa=-1
m0=48100
m=48000
w=- <==
2	/Users/nnunley/parrot/config/init/hints/os2.pm	438	584	
==>lbsd",
        iv       => "long",
        nv       => "double",
        opcode_t => "long",
        ccflags  => "-I. -fno-strict-aliasing -mieee-f <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	15573	15688	
==>ing '>'?");
	    }
	}
	return 1;
}

sub enddirective
{
	my ( $self, $line, $minrep, $maxrep ) = @_;
	unless ($self-> <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	14983	15108	
==>ack = pop(@args);

    my $back = $self->genlabel('alt_back');
    my $next = $self->genlabel('alt_next');
    my @tries = map <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627481	627703	
==>{{\@1}}->vtable->init(interpreter, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628625	628847	
==>{{\@1}}->vtable->init(interpreter, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85614	85837	
==>t_pmc_keyed_str(interpreter, compreg_hash, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86521	86744	
==>t_pmc_keyed_str(interpreter, compreg_hash, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	8423	8520	
==>if $show;
		want_show(\$show, $Uninit, $uninit) if $show;
		want_show(\$show, $Const,  $const ) if <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	408	520	
==>arrot, $path_to_language, $count ) = @_;
 
    
    my $test_prog_args = $ENV{TEST_PROG_ARGS} || q{};
    my $lan <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	426	532	
==>arrot, $path_to_language, $count ) = @_;

    my $test_prog_args = $ENV{TEST_PROG_ARGS} || q{};
    my $lan <==
2	/Users/nnunley/parrot/lib/Test/More.pm	24217	24373	
==>you haven't written yet, or bugs you have yet to fix,
but want to put tests in your testing script (always a good idea).


=back

=head2 Complex data structu <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	58705	58854	
==>contain quoted strings):

        my $empty_tag = '<(' . gen_delimited_pat(q{'"}) . '|.)+/>';

        extract_tagged($text, undef, undef, undef, {ign <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	736	833	
==>ine name, with no preceding punctuation.

=head2 lib

The name of the library to be loaded. Should <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	39410	39595	
==>characters).
If the string is "", the the default behaviour (i.e. failure) is reinstated.

For example, suppose the start tag "/para" introduces a paragraph, which then
continues until t <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24815	24921	
==>@match;
		return _succeed wantarray, $textref,
				$match[2], $match[3]+$match[5]+$match[7],	# MATCH
				@m <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7648	7751	
==>@match;
	return _succeed wantarray, $textref,
			$match[2], $match[3]+$match[5]+$match[7],	# MATCH
			@m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033909	1034334	
==>" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1156,
                  "ARGS" => [
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line 41 \"src/ops/var.ops\"\n    parrot_context_t * const ctx = CONTEXT(int <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	46536	46725	
==><'EOMSG'\nThis is the message.\nEOMSG",
leaving the string " || die;\nexit;" in the original variable. In other words,
the two separate pieces of the here document are successfully extracted <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50092	50186	
==>" => "#line 800 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50885	50979	
==>" => "#line 800 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARR <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	32473	32594	
==>, "'");

	# Extract a single- or double- quoted substring from the
	# beginning of $text, optionally after some whitespace <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	679	794	
==>G_ARGS} || '';

    $lang_f = File::Spec->rel2abs($lang_f);
    $out_f  = File::Spec->rel2abs($out_f);
    Parrot::T <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	716	831	
==>G_ARGS} || '';

    $lang_f = File::Spec->rel2abs($lang_f);
    $out_f  = File::Spec->rel2abs($out_f);
    Parrot::T <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1609	1790	
==>n $self;
}


#
# ACCESSORS:
#

sub kind  { return shift->{KIND};  }
sub ident { return shift->{IDENT}; }
sub cond  { return shift->{COND};  }
sub left  { return shift->{LEFT};  }
sub <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	35690	35785	
==>ded C<'E<gt>'> is unbalanced. (In a scalar context, this call would
return an empty string. In a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086246	1086749	
==>> "splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1205,
                  "ARGS" => [
                              "p",
                              "p",
                              "i",
                              "ic" <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	19	134	
==>e strict;
use warnings;

print <<"END_OF_HEADER";

# DO NOT EDIT.
# This file generated automatically by '$0'

END_O <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	55143	55365	
==>code) = extract_codeblock($grammar,'{',undef,'<');
					 $code;
				       } )
			{
				_parse("a deferred action specifier", $aftererror,$line,$code);
				$code =~ s/\A\s*<defer:(.*)>\Z/$1/s;
				if ($code =~ /\A\s*[^{]|[^ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105668	1105967	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106643	1106942	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2565	2695	
==>rn "goto " . $self->output_label_use($dest) . " if $val1 $test $val2;";
}

sub output_eq {
    my ($self, $val1, $val2, $dest) = @_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477148	477391	
==>\");\n  {{\@1}} = (INTVAL)floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478044	478287	
==>\");\n  {{\@1}} = (INTVAL)floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	35299	35532	
==>->diag(<<'FAIL');
Looks like your test died before it could output anything.
FAIL
        _my_exit( 255 ) && return;
    }
    else {
        $self->diag("No tests run!\n");
        _my_exit( 255 ) && return;
    }
}

END {
    $Test- <==
2	/Users/nnunley/parrot/languages/javascript/bootstrap.pm	134	269	
==>context->bind_function(
	name =>	"snarf",
	func => sub { 
              my $file = shift;
	      warn "snarfing $file";
	      open my $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921385	921816	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1037,
                  "ARGS" => [
                              "s",
                              "sc",
                              "p" <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	769	921	
==>est_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    output_isnt       => 'isnt_eq',
                        );

foreach my <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	507	623	
==>est_map = (
    output_is   => 'is_eq',
    output_like => 'like',
    output_isnt => 'isnt_eq',
);

foreach my <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	4222	4371	
==>am = map { /^benchmark\s+(.*)$/ } @section;
my %suffix;
$suffix{ $_ } = [ map quotemeta, $ini->val($_, 'type') ] for @section;
my $ticks = POSIX::sysc <==
2	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1707	1809	
==>CENSES\\Artistic
OutputDir=.\\
OutputBaseFilename=setup-parrot-$options{version}
Compression=lzma
Solid <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2422	2606	
==>ource);

    # The following SHOULD apply.
    check_line_length($file, $source);
    check_returns($file, $source);
    check_dev($file);
}

sub check_dev {
    my ($file) = @_;

    r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712299	712397	
==>rc/ops/python.ops\"\n  PMC * const io = PIO_STDOUT(interpreter);\n  STRING *s;\n  if (PIO_softspace <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713406	713504	
==>rc/ops/python.ops\"\n  PMC * const io = PIO_STDOUT(interpreter);\n  STRING *s;\n  if (PIO_softspace <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	10296	10589	
==>"PMC*"     => "P",
  "short*"   => "2",
  "int*"     => "3",
  "long*"    => "4",
  "void"     => "v",
  "void*"    => "b",
  "void**"   => "B",
  #"BIGNUM*" => "???" # XXX
);

sub proto ($$) {
    my ($type, $parameters) = @_;

    # reduce to a comma separated set of types
    $parameters =~ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	46420	46543	
==>emove the terminal newline
  for( my $i = $#$p; $i >= 2; $i-- ) {
    # work backwards over the tokens, even the first
    i <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19051	19158	
==>each page will appear in.  The header
is usually just "I<modulename> p. I<pagenumber>".

=item $parser->norm <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2374	2482	
==>ext->filter(shift)->any_errata_seen" \
   thingy.pod

=head1 DESCRIPTION

This class is for dumping, as text, <==
2	/Users/nnunley/parrot/config/auto/socklen_t.pm	7	115	
==>ight (C) 2006, The Perl Foundation.
# $Id: /parrot/config/auto/socklen_t.pm 19593 2006-05-30T02:28:15.110975Z <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	1092	1273	
==>[ qw(cc_gen cc_build cc_run cc_clean cc_run_capture
                  capture_output check_progs)
             ],
    gen =>   [qw(genfile copy_if_diff move_if_diff)]
);

=item C<int <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8557	8692	
==>de}}, "\t# $syms[CURR]\n";
		goto PARSE;
	}
	if ($type[CURR] eq "INT" and 
		($type[NEXT] eq "BARE" or $type[NEXT] eq "COMM")) {  # Line <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	23195	23409	
==>it needs it.
    $msg .= "\n" unless $msg =~ /\n\Z/;

    print $fh $msg;
}


=item B<_print_diag>

    $Test->_print_diag(@msg);

Like _print, but prints to the current diagnostic filehandle.

=cut

sub _print_diag <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548076	548180	
==>"\n  /* Coercing a negative to a UINT can get pretty ugly\n   * in this situation. */\n  INTVAL i = {{\@2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548982	549086	
==>"\n  /* Coercing a negative to a UINT can get pretty ugly\n   * in this situation. */\n  INTVAL i = {{\@2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	817646	817803	
==>n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JU <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	1929	2051	
==>s->defines;
    print $ops->preamble($trans);

    my $length = length($pf->byte_code);

    # First instruction in bytecod <==
2	/Users/nnunley/parrot/lib/Test/More.pm	9884	10011	
==>ike ($$;$) {
    $Test->unlike(@_);
}


=item B<cmp_ok>

  cmp_ok( $this, $op, $that, $test_name );

Halfway between ok() and is <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	16540	16726	
==>[1]{'~type'};


  # Otherwise we haven't yet been to this node.  Maybe alter it...
  
  my $content = join "\n", @{$para}[2 .. $#$para];

  if($content =~ m/^\s*\*\s*$/s or $content =~ m/ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	18967	19103	
==>ut_like',
        language_output_isnt => 'output_isnt',
                            );

    foreach my $func ( keys %language_test_map ) <==
2	/Users/nnunley/parrot/Configure.pl	6820	6936	
==>uild cgoto core - recommended when short of mem
   --jitcapable         Use JIT
   --execcapable        Use JIT to em <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1513	1649	
==>gets the transform's arguments.

=cut

sub args
{
    my $self = shift;

    if (@_)
    {
        $self->{ARGS} = [ @_ ];
    }
    else <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1122	1258	
==>gets the transform's arguments.

=cut

sub args
{
    my $self = shift;

    if (@_)
    {
        $self->{ARGS} = [ @_ ];
    }
    else <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	67684	67792	
==>gco   )
		{
			_error("Unexpected colon encountered", $line);
			_hint("Did you mean \"|\" (to start a new pr <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	1701	1878	
==>ars.
    return $self->alloc_temp_int($name);
}

sub new_rxlocal {
    my ($self, $op, $name, $type) = @_;
    my $var = $self->new_local($name, $type);
    push @{ $op->{rxlocal <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	100	249	
==>::Simple ();
use vars qw( @ISA $VERSION $FREAKYMODE);
$VERSION = '2.02';
@ISA = ('Pod::Simple::Methody');
BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305142	305409	
==>JUMP_RELATIVE",
                  "NAME" => "if_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305930	306197	
==>JUMP_RELATIVE",
                  "NAME" => "if_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function" <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	59755	59949	
==>ext, all the functions return C<(undef,$original_text)>
on failure. In a scalar context, failure is indicated by returning C<undef>
(in this case the input text is not modified in any way).

In a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576413	576510	
==>rc/ops/object.ops\"\n  PMC *name;\n  name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577425	577522	
==>rc/ops/object.ops\"\n  PMC *name;\n  name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193545	193649	
==>n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194524	194628	
==>n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1152	1267	
==>urn shift->{NAME};  }
sub args { return @{shift->{ARGS}}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  m <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	971	1086	
==>urn shift->{NAME};  }
sub args { return @{shift->{ARGS}}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  m <==
2	/Users/nnunley/parrot/config/gen/cpu/i386/auto.pm	602	787	
==>cpy_mmx.c memcpy_sse.c );
    for my $f (@files) {
        print " $f " if $verbose;
        my ( $suffix ) = $f =~ /memcpy_(\w+)/;
        $f = "config/gen/cpu/i386/$f";
        cc_gen( <==
2	/Users/nnunley/parrot/config/inter/lex.pm	1648	1761	
==>$self;
    }

    if ($conf->options->get('ask')) {
        $prog = prompt($prompt, $prog ? $prog : $conf->data->g <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	1662	1775	
==>$self;
    }

    if ($conf->options->get('ask')) {
        $prog = prompt($prompt, $prog ? $prog : $conf->data->g <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502785	503232	
==>mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 578,
                  "ARGS" => [
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 626 \"src/ops/math. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548166	548441	
==>NTVAL i = {{\@2}};\n  UINTVAL q = 1;\n  while(i>0) {\n    q = q*i;\n    i--;\n  }\n  {{\@1}} = q;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42169	42279	
==>cDescent::lastunexpected;
			}
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched opera <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35059	35163	
==>cDescent::lastunexpected;
			}
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676725	676861	
==>"
                            ],
                  "BODY" => "#line 473 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_integer(interpr <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	7767	7863	
==>ll;
  $Test->skip_all($reason);

Skips all the tests, using the given $reason.  Exits immediately <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6615	6707	
==>ack_depth
    goto POST_BRANCH_switch_${CURIC}_LOOP
POST_BRANCH_switch_${CURIC}_LOOP_EXIT:

P <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4553	4645	
==>ack_depth
    goto POST_BRANCH_switch_${CURIC}_LOOP
POST_BRANCH_switch_${CURIC}_LOOP_EXIT:

P <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2476	2571	
==>amples/mops/mops.il>,
F<examples/mops/mops.p6>,
F<examples/mops/mops.ps>,
F<examples/mops/mops.p <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	2476	2571	
==>amples/mops/mops.il>,
F<examples/mops/mops.p6>,
F<examples/mops/mops.ps>,
F<examples/mops/mops.p <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	21758	21917	
==>if cur_ic < 0x$r2[0]->{'code'} goto INS_BRANCH_$prefix$r1[$#r1]->{'code'}\n";

        # Recurse to make code for sub branches.
        $pir .= "INS_BRANCH_$pre <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	14780	15013	
==>an one
                    # command. Instead of a single scalar, build an
                    # array of commands.
                    $cmd = [
                        qq{$parrot $args "$code_f"},
                        qq{$parrot " <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	5415	5521	
==>ontains Parrot version info, a preamble for inclusion in C code,
    and an array of C<Parrot::Op> instance <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	308	410	
==>ontains Parrot version info, a preamble for inclusion in C code,
and an array of C<Parrot::Op> instance <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	2855	2973	
==>";
    foreach (@compiled_files) {
	print F "gcc -DMINIPARROT -I./include -c $_->[0] -o $_->[1]\n";
    }
    my @obj_f <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	2773	2868	
==>egister
  .param pmc argv

  .local pmc compiler
  .get_from_HLL(compiler, '_tcl', 'compile_disp <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	27196	27424	
==>st acceptable elementname wins!
      } else {
        DEBUG > 1 and print " Can't map '$new_letter' to unknown extension '$e'\n";
      }
    }


    if( defined $canonical_form ) {
      # We found a good N => elementname mappi <==
2	/Users/nnunley/parrot/languages/javascript/bootstrap.pm	7	107	
==>use warnings;
use strict;

use JavaScript;

my $runtime = new JavaScript::Runtime;
my $context = $run <==
2	/Users/nnunley/parrot/tools/dev/pbc_header.pl	873	1018	
==>le";
    my @lines = <IN>;
    close IN;

    my $len = 10;
    my $fingerprint = md5 join "\n", grep { ! /^#/ } @lines;
    return substr $finger <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189767	189883	
==>table->get_integer(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190708	190824	
==>table->get_integer(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125087	125614	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 155,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 257 \"src/ops/bit.ops\"\n  {{\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16036	16144	
==>my $x; # scratch
  if(!defined wantarray) { # void context: alter in-place!
    for(@_) {
      s/([F\x00-\x1 <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	1024	1139	
==>fig.pm"};
    $path_to_parrot =~ s:/lib/Parrot/Config.pm$::;
    my $dir_count = scalar(File::Spec->splitdir($path_t <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops.pm	39	159	
==>RS);
sub mark {
    my $name = shift || '';
    my $number = ++$MARKERS{$name};
    $number = '' if ($number == 1) && ($n <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2671	2791	
==>RS);
sub mark {
    my $name = shift || '';
    my $number = ++$MARKERS{$name};
    $number = '' if ($number == 1) && ($n <==
2	/Users/nnunley/parrot/config/init/manifest.pm	179	271	
==>heck

=head1 DESCRIPTION

Uses C<ExtUtils::Manifest> to check that the distribution is comple <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7598	7710	
==>s.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If the destination isn't a reg <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5716	5828	
==>s.
sub pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If the destination isn't a reg <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843575	844005	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 957,
                  "ARGS" => [
                              "i",
                              "sc",
                              "i" <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6171	6333	
==>text);
        }
    }
    else
    {
        $self->unget_token($next);
        print {$self->{'output_fh'}} $self->{'Tagmap'}{$tagname};
    }
}

=item C<process <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314859	315058	
==>rnal_exception(1, \"Overflow exception for conv_i1_ovf\");\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2824	2948	
==>);
      $args[$i] = $temp;
    }
    else {
      $args[$i] = $args[$i]->compile($compiler);
    }
  }

  if (($dest_ident-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561959	562179	
==>METH_NOT_FOUND,\n        \"Method '%Ss' not found\", {{\@3}});\n  }\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563043	563263	
==>METH_NOT_FOUND,\n        \"Method '%Ss' not found\", {{\@3}});\n  }\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3455	3558	
==>(needs_build("$group.c", @pmcfiles)) {
            run("$PMC2C --library $group --c " . join(" ",@pmcfil <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3559	3662	
==>(needs_build("$group.c", @pmcfiles)) {
            run("$PMC2C --library $group --c " . join(" ",@pmcfil <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8252	8380	
==>rint STDERR "Abort.\n";

				return(undef);

			};

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Back to state $$stack[- <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7879	8000	
==>rint STDERR "Abort.\n";

				return(undef);

			};

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Back to state $$stack[- <==
2	/Users/nnunley/parrot/examples/benchmarks/freeze.pl	797	898	
==>clone \@a;
#$e = time();
#printf " clone time %.6f\n", $e-$s;

print "Image len ", length($image), "\n <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	8917	9008	
==>NST(i) interpreter->code->const_table->constants[jit_info->cur_op[i]]
#define CALL(f) Parrot <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	5652	5785	
==>olen from embed.c */
    userargv = pmc_new(interpreter, enum_class_PerlArray);
    /* immediately anchor pmc to root set */
    inter <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	38644	38757	
==>, to extract an arbitrary XML tag, but ignore "empty" elements:

	extract_tagged($text, undef, undef, undef, {igno <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599701	600064	
==>o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 679,
                  "ARGS" => [
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 363 \"src/ops/object.ops\"\n  PMC *class = Parrot_cla <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	41352	41478	
==>return = $self->_call_function_obj($func_obj, @_);
  $self->_restore($func_obj);

  return $return;
}

sub _call_function_obj { <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11832	11937	
==>RR] eq "PUN" and $syms[CURR] =~ /-/) {
			if ($type[NEXT] =~ /INT|FLO/) {
				feedme();
				$syms[CURR]="- <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7260	7419	
==>Reduce using rule ".-$act." ($lhs,$len): ";

                $act
            or  $self->YYAccept();

            $$dotpos=$len;

                unpack( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6924	7076	
==>Reduce using rule ".-$act." ($lhs,$len): ";

                $act
            or  $self->YYAccept();

            $$dotpos=$len;

                unpack( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18723	18862	
==>, $self->require_value);
          last if $self->get(1)->is_close_paren;
          $self->require_comma;
        }
      }

      $self->re <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19749	19888	
==>, $self->require_value);
          last if $self->get(1)->is_close_paren;
          $self->require_comma;
        }
      }

      $self->re <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	23076	23225	
==>sult,
    );
    return [ $result, \@opcodes ];
}

sub BuildLogop {
    my ( $parser, $expr1, $op, $expr2 ) = @_;
    my @opcodes = ();
    my <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4874	5007	
==><$recursive> to true if you want all files in subdirectories to be
included. To ignore everything below particular directories use a r <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	7953	8114	
==>ft;
    my $tagname = $token->tagname;
    
    if ( $tagname =~ m/^over-(.+)$/s ) 
    {
        push @{$self->{STACK}}, $1;
    } 
    elsif ( $tagname eq 'Para <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42439	42550	
==>rule->{"name"} .'})
						if defined $::RD_TRACE;').'

		push @item, '.($::RD_NO_HITEM ? ''
			       : '$item{' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722199	722304	
==>s\"\n  STRING * const s = {{\@2}};\n  PMC * const io = {{\@1}}; /* TODO Can this be localized? */\n  if (s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723228	723333	
==>s\"\n  STRING * const s = {{\@2}};\n  PMC * const io = {{\@1}}; /* TODO Can this be localized? */\n  if (s <==
2	/Users/nnunley/parrot/lib/Test/More.pm	6396	6546	
==>>can('db_Main'),            'set_db()' );
    ok( $p->tests == 4,                  'saw tests' );
    ok( !grep !defined $_, @items,       'items popul <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182810	183126	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 218,
                  "AR <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	1036	1178	
==>struct::Expression::Value');

  my $self = bless {
    BLOCK     => $block,

    KIND      => 'unless',
    LEFT      => $left,
    OP        = <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	5577	5705	
==>delta'    , 948,
 'epsilon'  , 949,
 'zeta'     , 950,
 'eta'      , 951,
 'theta'    , 952,
 'iota'     , 953,
 'kappa'    , 954 <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	49121	49239	
==>od::Simple.

option to delete all E<shy>s?
option to scream if under-0x20 literals are found in the input, or
under-E<3 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6534	6680	
==>oken->tagname;
    
    print {$self->{'output_fh'}} $self->{'Tagmap'}{$tagname} || return;
    
    if ( $tagname eq 'item-text' )
    {
        $ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	28276	28401	
==>)
            };

'ok' is true if Test::Harness will consider the test to be a pass.

'actual_ok' is a reflection of whether o <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	9995	10149	
==>and $type[CURR] ne "STRING") {
			push(@expr, [ "(", "PUN" ]); # Make sure no-arg funcs have at
			push(@expr, [ ")", "PUN" ]); # least token parenthesis.. <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	5185	5396	
==>ssignOp( $parser,
                    'prolog' => 1,
                    'arg1'   => $expr,
                    'result' => $defn,
                );
            }
        }
        return [ $defn, \@opcod <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	7452	7864	
==>'name'}\n";
            } else {
                $has_trans = 1;
            }
        }

		# typeinfo
        elsif (/^typeinfo$/) {
            if ($has_typeinfo) {
                die "Duplicate value for typeinfo in rule $rule->{'name'}\n";
            } else {
                $has_typeinfo = 1;
            }
        }
		
        # Unknown key.
        else {
            die "Unknown key $_ in rule $rule-> <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	36636	36805	
==>r_ci_gt_p,
  'char-ci<=?'       => \&_op_char_ci_le_p,
  'char-ci>=?'       => \&_op_char_ci_ge_p,
  'char-alphabetic?' => \&_op_char_alphabetic_p,
  'char-numeric?'    = <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5010	5114	
==>NBERR', 'TOKEN', 'VALUE', 'STACK', 'CHECK', 'DOTPOS' };

#DBG>	my($debug)=$$self{DEBUG};
#DBG>	my($dbg <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4767	4868	
==>NBERR', 'TOKEN', 'VALUE', 'STACK', 'CHECK', 'DOTPOS' };

#DBG>	my($debug)=$$self{DEBUG};
#DBG>	my($dbg <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	15138	15270	
==>($re, $opts);

    # Check for qr/foo/
    if( ref $regex eq 'Regexp' ) {
        $usable_regex = $regex;
    }
    # Check for '/foo <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	687	788	
==>tinue;
use Jako::Construct::Block::Loop::Until;
use Jako::Construct::Block::Loop::While;

use Jako::Co <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	14650	14830	
==>>init_set_dispatch($bs);
}

print SOURCE <<END_C;
op_lib_t *
$init_func(long init) {
    /* initialize and return op_lib ptr */
    if (init == 1) {
$init1_code
    return &${bs}op_ <==
2	/Users/nnunley/parrot/config/init/hints/darwin.pm	956	1121	
==>'c++',
        ld                  => 'c++',
        ld_share_flags      => '-dynamiclib -undefined suppress',
        ld_load_flags       => '-bundle -undefined supp <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2444	2542	
==>he various types of files without suffix.

my %type_for_name = (
	'Artistic' => 'Licence file',
	'B <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	1518	1634	
==>- initialised data symbol
    F - file name symbol
    R - read-only data symbol
    T - code/text symbol
    U - und <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14231	14423	
==>last;
        } else {
          DEBUG and print "  Doesn't look at all contentworthy!\n  Giving up.\n";
          undef $title;
          last;
        }
      }
    }
    
    else {
      di <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	3658	3899	
==>aller; require $module";

    #try {
    #    &::($module)::import.goto();
    #};

    if ($!) {
        Test::proclaim(undef, "require $module;", $todo, "Import error when loading $module: $!", :$depends);
    }
    else {
        &Test::ok <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423601	423697	
==>/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_listen(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	424498	424594	
==>/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_listen(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n", <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4286	4406	
==>rv);
	open(DRV,"<$fname") or die "Report this as a BUG: Cannot open $fname";
	while(<DRV>) {
                	/^\s*sub <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4067	4184	
==>rv);
	open(DRV,"<$fname") or die "Report this as a BUG: Cannot open $fname";
	while(<DRV>) {
                	/^\s*sub <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3865	3998	
==>utput_label_use($dest);
}

sub output_check {
    my ($self, $needed, $failLabel, $lenvar) = @_;
    $lenvar ||= "<rx_len>";
    my $f <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	261	360	
==>89Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statement::Assign;

use Ca <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	2783	2892	
==>r branches.

=item C<goto NEXT()>

Transforms to C<PC' = PC + S>, where C<S> is the size of an op.

=item C<go <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	11899	12039	
==>my $class = ref($self) || $self;

	bless
	{
		"items"    => [],
		"uncommit" => $uncommit,
		"error"    => $error,
		"line"     => $line,
		s <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10753	10876	
==>self, $node) = @_;

  _num_arg ($node, 2, 'set!');

  my $symbol = _get_arg ($node, 1)->{value};
  my $temp = $self->_genera <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033573	1033869	
==>\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_lex",
                  "F <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	7749	7853	
==>stitutions made by
C<$trans> (a subclass of C<Parrot::OpTrans>).

=cut

sub source
{
    my ($self, $tran <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2759	2862	
==>ERR this line in main routine should be skipped"
Label1:
   PRINT "5 back in module-level code"
   END
S <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16726	16829	
==>ERR this line in main routine should be skipped"
Label1:
   PRINT "5 back in module-level code"
   END
S <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	4067	4181	
==>h'}} '<b>' if $self->{IN_ITEM_TEXT};
    
    print {$self->{'output_fh'}} $self->{'Tagmap'}{$tagname};
    
    my <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9770	9900	
==>$ShowCurToken.".\n";

			$$token=$$value=undef;
		};

        $$errstatus=3;

		while(	  @$stack
			  and (		not exists($$s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9332	9454	
==>$ShowCurToken.".\n";

			$$token=$$value=undef;
		};

        $$errstatus=3;

		while(	  @$stack
			  and (		not exists($$s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970699	970975	
==>" => [
                              "i",
                              "i",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732718	732976	
==>ine",
                  "CODE" => 822,
                  "ARGS" => [
                              "i",
                              "nc"
                            ],
                  "BODY" => "#line 129 \"src/ops/set.ops\"\n  {{\@1}} = (INTVAL)({{\@2}}) <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	11398	11573	
==>ass ParrotObject OS File AddrRegistry Bound_NCI deleg_pmc Enumerate FixedBooleanArray FixedFloatArray FixedPMCArray LexInfo MultiSub NameSpace None Pair ResizableBooleanArray R <==
2	/Users/nnunley/parrot/lib/Test/More.pm	10792	10973	
==>n_ok($module, @methods);
  can_ok($object, @methods);

Checks to make sure the $module or $object can do these @methods
(works with functions, too).

    can_ok('Foo', qw(this that w <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	718	822	
==>lf = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->nix_X_codes <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	184	288	
==>lf = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->nix_X_codes <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240148	240253	
==>s\"\n  INTVAL l = VTABLE_get_integer(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241096	241201	
==>s\"\n  INTVAL l = VTABLE_get_integer(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22617	22732	
==>"]);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$label");
  $self->_restore($t <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23118	23233	
==>"]);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$label");
  $self->_restore($t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627446	627533	
==>w_noinit(interpreter, {{\@2}});\n  {{\@1}}->vtable->init(interpreter, {{\@1}});\n  {{+=3 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628590	628677	
==>w_noinit(interpreter, {{\@2}});\n  {{\@1}}->vtable->init(interpreter, {{\@1}});\n  {{+=3 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	14	107	
==>) 2006, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Docs/Section/Tools.pm 20333 2006-06-21T <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	4600	4755	
==>new)(?!\w)(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, 'new', 'pmc', $1);
      $text = $2;
      next;
    }

    
    #
    # (In <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	20879	21129	
==>lf->pmc_is_dynpmc($variant->[0])) {
                    $right = 0;
                    push @init_mmds, [$#mmds + 1, $variant->[0]];
                    $init_mmds{$variant->[0]} = 1;
                }
                else {
                    $righ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3074	3222	
==>le::Debug (\$debug_level,0);  # or some integer

is basically equivalent to this:

  my $debug_level;
  BEGIN { $debug_level = 0 }
  BEGIN { sub Pod: <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	750	905	
==>d';

=item C<does_write($method, $section)>

Returns whether a method writes.

=cut

sub does_write($$) {
    my ($meth, $section) = @_;

    warn "no $meth <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	1260	1370	
==>tree.
	my %config = eval {
		require "$_[0]/lib/Parrot/Config.pm";
		%Parrot::Config::PConfig
	} or die "Un <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5088	5195	
==>self{DEBUG};
#DBG>	my($dbgerror)=0;

#DBG>	my($ShowCurToken) = sub {
#DBG>		my($tok)='>';
#DBG>		for (s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4843	4945	
==>self{DEBUG};
#DBG>	my($dbgerror)=0;

#DBG>	my($ShowCurToken) = sub {
#DBG>		my($tok)='>';
#DBG>		for (s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937422	937755	
==>e_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1054,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 460 \"src/ops/stri <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3308	3437	
==>string = $self->value;

    if ($string =~ m/(^"|^".*?[^\\])\$/) { # Double-quote with an unescaped '$'.
      $string = substr($s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	8639	8977	
==>" : "doesn't get";
            last;
          } elsif (@to_unget > 40) {
            DEBUG > 1 and print "    item-* now has too many tokens (",
              scalar(@to_unget),
              (DEBUG > 4) ? (q<: >, map($_->dump, @to_unget)) : (),
              ") to be keepn'd.\n";
            last; # give up
          }
          # else <==
2	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	1099	1280	
==>$output does not have a checksum line; remaking\n" if $Verbose;
        $up_to_date = 0;
        last;
    }
    if ($1 != $checksum) {
        print "$output was built from differen <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441028	441547	
==>_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 505,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "n"
                            ],
                  "BOD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305100	305370	
==>ss( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ], <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305888	306158	
==>ss( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ], <==
2	/Users/nnunley/parrot/lib/Test/More.pm	1739	1859	
==>e);

  is_deeply($complex_structure1, $complex_structure2, $test_name);

  SKIP: {
      skip $why, $how_many unless $hav <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947213	947524	
==>{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_charset",
                  "FLAG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957662	957948	
==>{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_encoding <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	32241	32333	
==>ub _op_generate_identifier {
}

sub _op_construct_identifier {
}

#-------------------------- <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	4473	4600	
==>proclaim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
}

## lives ok

sub lives_ok (Code &code, Str $desc?, :$t <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	2305	2436	
==>my ($symb) = @_;
        if ( exists $self->{table}{$symb} ) {
            my $defn = $self->{table}{$symb};
            return $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	2685	2816	
==>my ($symb) = @_;
        if ( exists $self->{table}{$symb} ) {
            my $defn = $self->{table}{$symb};
            return $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772295	772527	
==>ODE" => 872,
                  "ARGS" => [
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 350 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1 <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	17635	17963	
==>} }) {
        my ($super, $variants);
        $found = 0;
        @mmds = ();
        while (($super, $variants) = each %{ $super_mmd }) {
            if ($super eq 'meth' && $variants eq $meth) {
                $found = 1;
            }
            elsif (ref($variants) eq 'ARRAY') {
                for my $class (@{ $varian <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	7040	7195	
==>n hopefully portable way of having
# redirections ( tested on Linux and Win2k )
# An alternative is using Test::Output
sub run_command {
    my ($command, % <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4811	4908	
==>pmc_type = $dest_ident->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();

    $compiler->e <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2874	2971	
==>pmc_type = $dest_ident->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();

    $compiler->e <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	10004	10109	
==>ew features are
added to Pugs, new test functions will be defined to facilitate the
testing of those featu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367906	368198	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368698	368990	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FL <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	4557	4665	
==>ts{$category->($_)} }, $_ for @smokes;

  $cats{$_} = [
    (sort {
      $b->{revision} <=> $a->{revision} | <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	236	340	
==>c/foo.dump>:

    % perl tools/build/pmc2c.pl --dump src/pmc/foo.pmc ...

Create F<vtable.dump>:

    % p <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	5963	6062	
==>w directives (not targets)

sub accept_directive_as_verbatim  { shift->_accept_directives('Verbatim' <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1120	1225	
==>nless ($pass) {
        my $file = Parrot::Test::slurp_file($out_f);
        $pass =$self->{builder}->is_e <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1161	1266	
==>nless ($pass) {
        my $file = Parrot::Test::slurp_file($out_f);
        $pass =$self->{builder}->is_e <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	4421	4525	
==>tx->addfile(*FILE);

 $digest = $ctx->digest;
 $digest = $ctx->hexdigest;
 $digest = $ctx->b64digest;

=h <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	1737	1866	
==>oc
    examples/sdl/anim_image.pir                     [devel]
    examples/sdl/anim_image_dblbuf.pir              [devel]
    exa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826390	826479	
==>e 146 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827460	827549	
==>e 146 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172182	172333	
==>"
                            ],
                  "BODY" => "#line 218 \"src/ops/cmp.ops\"\n  if (0 != string_equal(interpreter,\n      {{\@1}}->vtable <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173160	173311	
==>"
                            ],
                  "BODY" => "#line 218 \"src/ops/cmp.ops\"\n  if (0 != string_equal(interpreter,\n      {{\@1}}->vtable <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032517	1032808	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_lex",
                  "FLAGS" => "",
                  "ARGD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033614	1033905	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_lex",
                  "FLAGS" => "",
                  "ARGD <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7376	7512	
==>register name to load from was supplied, we put it on the lazy
	# moves stack.
	if (!$need_dest) {
		$pir .= <<'PIR'
inc stack_depth
lazy <==
2	/Users/nnunley/parrot/tools/dev/mk_inno.pl	618	991	
==>SO

http://www.jrsoftware.org/

=cut

################################################################################

use strict;

my %options = (
		version => 'x.y.z',
		prefix => '\usr\local\parrot',
		icudir => '',
);

foreach (@ARGV) {
    if (/^--([^=]+)=(.*)/) {
        $options{$1} = $2;
    }
}

$options{prefix} =~ s/\//\\/g;
$options{icudir} =~ s/\//\\/g;

my $ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	684	783	
==>urces> should be the relative path from the page to
F<docs/resources>, the image and CSS file direct <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	1902	2001	
==>urces> should be the relative path from the page to
F<docs/resources>, the image and CSS file direct <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	5484	5587	
==>ent}{C})/;
      ($first_comment) = $text =~ /(($RE{comment}{'C++'}\s*)+)/
	  if !$first_comment;

    r <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	117	221	
==>l src/builtins/foo.tmt > src/builtins/foo.pir

=head1 DESCRIPTION

Use this script to generate PIR code b <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	4124	4224	
==>URR] eq "if") {
		($result, $type, @code)=EXPRESSION();
		$false=qq{""} if $type eq "S";
		push @{$co <==
2	/Users/nnunley/parrot/config/init/miniparrot.pm	46	136	
==>.
# $Id: /parrot/config/init/miniparrot.pm 20320 2006-06-20T19:26:31.775154Z bernhard  $

= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789328	789791	
==>RGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 891,
                  "ARGS" => [
                              "s",
                              "p",
                              "ki"
                            ],
                  "BODY" => "#line 427 \"src/ops/set.ops\"\n    {{\ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1135	1259	
==>ay size.
${ITEMP0} = elements ${STYPES}
PIR

	# Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we'r <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2845	2969	
==>ay size.
${ITEMP0} = elements ${STYPES}
PIR

	# Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we'r <==
2	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	203	342	
==>asename;

package Parrot::Test::ParrotCompiler;

=head1 NAME

Parrot/Test/ParrotCompiler.pm - Testing routines specific to 'ParrotCompiler'. <==
2	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	134	344	
==>=head1 NAME

lib/Parrot/BuildUtil.pm - Utilities for building Parrot

=head1 DESCRIPTION

For now only a sub for getting the current version.

=head2 Functions

=over 4

=cut

package Parrot::BuildUtil;

use str <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848238	848350	
==>ps/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849018	849130	
==>ps/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "L <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7645	7752	
==>est_reg = shift;
	my $pir = "";

	# If the destination isn't a register, determine register name now.
	if (! <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5763	5870	
==>est_reg = shift;
	my $pir = "";

	# If the destination isn't a register, determine register name now.
	if (! <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343041	343278	
==>",
                              "p",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 128 \"src/ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10745	10837	
==>STEMP0}

# Next parameter.
dec stack_depth
goto pre_call_PLOOP_${CURIC}
PRE_CALL_PLOOP_END_${ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7998	8090	
==>STEMP0}

# Next parameter.
dec stack_depth
goto pre_call_PLOOP_${CURIC}
PRE_CALL_PLOOP_END_${ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149183	149376	
==>able->get_number(interpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150124	150317	
==>able->get_number(interpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	51377	51510	
==>x= "...";
    while(@stack) {
      push @{ $lineage[-1] }, '' if 2 == @{ $lineage[-1] };
      # Hmmmmm!

      my $code         = (p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48503	48597	
==>ne 785 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_BOUNDS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49293	49387	
==>ne 785 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_BOUNDS <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3426	3603	
==>nts, 
				map {$self->new_item('', $_)} 
					$self->file_paths_relative_to_source($source, $content);
		}
	}
	
	foreach my $content (@contents)
	{
		# We wait until now to do th <==
2	/Users/nnunley/parrot/config/init/hints.pm	214	352	
==>orm and local hints files, modifying the defaults set up in
F<config/init/default.pm>.

=cut

package init::hints;

use strict;
use vars qw <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37446	37548	
==>$text),
				  q{' . $rule->{"name"} . '})
					if defined $::RD_TRACE;').'
		$Parse::RecDescent::lastex <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39849	39951	
==>$text),
				  q{' . $rule->{"name"} . '})
					if defined $::RD_TRACE;').'
		$Parse::RecDescent::lastex <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350680	351030	
==>RS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 408,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 190 \"src/ops/io.ops\"\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL) <==
2	/Users/nnunley/parrot/lib/Test/More.pm	17636	17757	
==>ith non-Exporter based modules.
        eval <<USE;
package $pack;
use $module $imports[0];
USE
    }
    else {
        e <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	5912	6102	
==>unless ($jit_cpu) {
            $line =~ s/emitm_pushl_i/emitm_pushl_m/ if ($line =~ /string/);
        }
        $asm .= $line;
    }
    return %ops;
}

use Parrot::Vtable;
my $vtable;
my $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	2073	2181	
==>{scopef} };
    $parser->YYData->{lex_num} = $lex_num;
    my $scope = shift @{ $parser->YYData->{scopef} } <==
2	/Users/nnunley/parrot/config/gen/PodText.pm	1329	1631	
==>r->parse_from_file($pod, $plain);

        # append a header to the generated plain text
        open(my $fh, '+<', $plain)
            or die "can not open file $plain: $!";
        my $text = do {local $/; <$fh>};
        $text = "# DO NOT EDIT THIS FILE\n"
              . "# Generated by " . __PACKA <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3589	3696	
==>IR
		$pir =~ s/\$register_num/$register_num/g;
		$register_num++;
	}

	# Return generated code.
	return $pir <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3399	3506	
==>IR
		$pir =~ s/\$register_num/$register_num/g;
		$register_num++;
	}

	# Return generated code.
	return $pir <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2412	2669	
==>bute set for this start-token.
This is useful if (for example) you want to ask what all the attributes
are -- you can just do C<< keys %{$token->attr_hash} >>

=back


You're unlikely to ever need to construct an object of this class for
yourself, but if you <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928474	928906	
==>fo",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1044,
                  "ARGS" => [
                              "i",
                              "s",
                              "ic <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407747	408025	
==>NAME" => "connect",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408645	408923	
==>NAME" => "connect",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25861	26041	
==>var,$vartype,$ovar);
	my $ps;
	$ps=pop @{$fors[$scopes]};
	
	if ($type[CURR] ne "BARE") {   # next  (no variable)
		push @{$code{$seg}->{code}}, <<NEXT;
	add $ps->{var}, $ps->{var}, <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2889	2987	
==>}

=item C<expr_offset($offset)>

=item C<goto_offset($offset)>

=item C<goto_address($address)>

C <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7129	7248	
==>ar,$semval);
            ($lhs,$len,$code)=@{$$rules[-$act]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	pri <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6798	6912	
==>ar,$semval);
            ($lhs,$len,$code)=@{$$rules[-$act]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	pri <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80190	80471	
==>=> 101,
                  "ARGS" => [
                              "p",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 1176 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interp <==
2	/Users/nnunley/parrot/lib/Test/More.pm	24651	24873	
==>s_deeply>

  is_deeply( $this, $that, $test_name );

Similar to is(), except that if $this and $that are hash or array
references, it does a deep comparison walking each data structure to
see if they are equivalent.  If the <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848312	848604	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "F <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849092	849384	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "F <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	9135	9305	
==>'1',
   50, '2',
   51, '3',
   52, '4',
   53, '5',
   54, '6',
   55, '7',
   56, '8',
   57, '9',
   58, ':',
   59, ';',
   60, '<',
   61, '=',
   62, '>',
   63, '?' <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	2648	2756	
==>object representing the current state of the
test.

Since you only run one test per program C<new> always ret <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	4034	4148	
==>4

=cut

package Parrot::OpsFile;

use strict;
use warnings;

use base qw( Exporter );

use Parrot::Op;
use Parrot: <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	16277	16388	
==>n", @{$para}[2 .. $#$para]) =~ m/^\s*(\d+)\.?\s*$/s and $1 ne '1';
  # Else fall thru to the general case:
  ret <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	253	419	
==>::CodeGen::IMCC;

use strict;

# Class method to get a global state object
use vars qw($GLOBAL_STATE);
sub global_state {
    return $GLOBAL_STATE ||= Regex::State->ne <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	179	291	
==>MCs - PMCs documentation section

=head1 SYNOPSIS

	use Parrot::Docs::Section::PMCs;

=head1 DESCRIPTION

A docum <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	1602	1724	
==>value, which we'll
        #  now go get the local equivalent for.
    }

    # It's numeric, whether by origin or by mutat <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	397	563	
==>st base this class on a hash.
sub new() {
	my $invocant = shift;
	return bless {}, $invocant;
}


# Internal routine to emit code to really do any moves we've done laz <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	12263	12515	
==>ine",
                  "CODE" => 16,
                  "ARGS" => [],
                  "BODY" => "#line 217 \"src/ops/core.ops\"\n  {{=*}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15658	15808	
==>ignOp( $parser,
        'result' => $result,
        'arg1'   => $nil->[0],
    );
    my $argv = new defn( 'vararg', 'local', 'pmc' );
    my $fc <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	4422	4681	
==>n";
            $out .= "       else { croak 'Initializer for $name must be hash or $type reference' }\n";
            $out .= "    }\n";
            $classes{$name} = $type;
            $got_class = 1;
        }
        else{
            croak "'$type' is not <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	43352	43470	
==>/\%]*)\n?$}s) {
      DEBUG > 5 and print "  It's a formatty line.  ",
       "Peeking at previous line ", $i-1, ": $$p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065069	1065174	
==>DY" => "#line 260 \"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTAB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065943	1066048	
==>DY" => "#line 260 \"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTAB <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	16411	16557	
==>le 3

The constructor of a generated class can be passed a list
of I<element>=>I<value> pairs, with which to initialize the struct.
If no initializ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	61482	61597	
==>dded quote (%s)>

C<extract_bracketed> attempted to match an embedded quoted substring, but
failed to find a closing <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	791	956	
==>$block->push_content($self);

  return $self;
}


#
# ACCESSOR:
#

sub ident { return shift->{IDENT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($co <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2681	2812	
==>"esi") = cur_op;
    register char *   _reg_base   asm ("edi");
#else
    opcode_t *cur_opcode = cur_op;
    char * _reg_base;
#endi <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3250	3381	
==>"esi") = cur_op;
    register char *   _reg_base   asm ("edi");
#else
    opcode_t *cur_opcode = cur_op;
    char * _reg_base;
#endi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	40269	40483	
==>a);
        } else {
          push @$para, join "\n", splice(@$para, 2) if @$para > 3;
          $para->[-1] =~ s/\n+$//s; # Kill any number of terminal newlines
        }
        
      } elsif($para_type eq 'Data <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	2588	2694	
==>', 'unlambda.html', '', 'languages/unlambda'),
        $self->new_section('URM', 'urm.html', '', 'languages <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5177	5305	
==>elf->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  $handler->start_element({ Name => ' <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3240	3368	
==>elf->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  $handler->start_element({ Name => ' <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	715	904	
==>.
$parrot_path ||= "../..";
$parrot_path =~ s|/|\\|g if $^O =~ /win32/i;
$srm ||= "OptRegister";
die "No such SRM module!\n" unless -e "build/SRM/$srm.pm";
my %config = get_parrot_confi <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63162	63266	
==>ion",$line,"$code$argcode($1)");

						!$matchrule and $rule and $rule->addcall($name);

						_check_in <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63883	63987	
==>ion",$line,"$code$argcode($1)");

						!$matchrule and $rule and $rule->addcall($name);

						_check_in <==
2	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	1424	1548	
==>me_len ',' substitution_len name substitution 
                  { [ @item[5,1,6] ] }       

# TODO: What does this means??? <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	1852	1969	
==>ken from an N register.

=item t

Paramter is a char *, presumably a C string

Taken from an S register

=item v

Void <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr3.pm	40	225	
==>est/Bc/Antlr3.pm 16454 2006-02-01T20:44:27.448243Z bernhard  $

package Parrot::Test::Bc::Antlr3;

use strict;

use base 'Parrot::Test::Bc';

use Data::Dumper;

sub get_out_fn {
    my $ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3105	3198	
==>ESPONSIBLE_PARTIES' => 'Project info',
	'TODO' => 'TODO file',
	'VERSION' => 'Project info',
) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2829	3125	
==>(^"|"$)//g;
    }

    $name =~ s/^.*:://; # Strip namespaces off ops.

    $compiler->emit("  $name ", join(", ", @args));
  }
  else {
#    $self->DEBUG(0, "Calling '%s' as regular or NCI sub (props = %s)...", $name, join(", ", %props));

    $name =~ s/::/__/g;

    if (exists $props{fn} or ex <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54470	54587	
==>x{'.sprintf("%x", ord($1)).'}'>eg;
      } else {
        # We're in some crazy non-ASCII world!
        s<([^abcdefgh <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	72572	72681	
==>->{namespace}::AUTOLOAD	= sub
{
	no strict 'refs';
	\$AUTOLOAD =~ s/^$self->{namespace}/Parse::RecDescent/;
	g <==
2	/Users/nnunley/parrot/config/auto/jit.pm	701	838	
==>parrot')) {
        $self->set_result('skipped');
        return $self;
    }

    my $verbose = $conf->options->get('verbose');

    my $ <==
2	/Users/nnunley/parrot/config/gen/cpu.pm	613	750	
==>parrot')) {
        $self->set_result('skipped');
        return $self;
    }

    my $verbose = $conf->options->get('verbose');

    my $ <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	212	315	
==>t_tables.pl

=head1 DESCRIPTION

Generate character set tables.

=cut


my ($svnid) = '$Id: /parrot/tool <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	21074	21195	
==>ts'
	);
	my $res = temp('I');
	my $pres = temp('P');
	$op = $is_map{$c};
	my $isnot = '';
	if ($c eq 'is not' || $c eq 'no <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11920	12028	
==>don10 pod-L-url;}
{\*\cs24 \additive \i\lang1024\noproof\sbasedon10 pod-L-man;}

{\*\cs25 \additive \f1\lang1 <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	371	498	
==>Parrot::Configure::Step ':auto';

$description = 'Determining if your C compiler is actually gcc';

@args = qw(miniparrot verbos <==
2	/Users/nnunley/parrot/config/auto/msvc.pm	391	499	
==>Parrot::Configure::Step ':auto';

$description = 'Determining if your C compiler is actually Visual C++';

@a <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	35539	35841	
==>..."

      DEBUG > 1 and print "Running a real parse on this non-trivial L\n";
      
      
      my $link_text; # set to an arrayref if found
      my $ell = $treelet->[$i];
      my @ell_content = @$ell;
      splice @ell_content,0,2; # Knock off the 'L' and {} bits

      DEBUG > 3 and print " Ell <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	14152	14261	
==>B') { $self->output_fh( $to );
  } elsif(ref($to)) {            $self->output_fh( $to );
  } elsif(!length $to <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	41545	41664	
==>content, $replacer, $charnum);
  my $start_line = $stack[0][1]{'start_line'};

  # A recursive algorithm implemented ite <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	4339	4645	
==>r ( split //, $value ) {
                        if ( ord $_ < 32 ) {
                            $str .= sprintf( '\x%02x', ord $_ );
                        }
                        elsif ( ord $_ >= 128 ) {
                            $str .= sprintf( '\u%04x', ord $_ );
                        } <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	3694	3863	
==>c_linking' => 1,
             'hugefloatval' => 'long double',
             'hugefloatvalsize' => '16',
             'hugeintval' => 'long long',
             'hugeintval <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24801	24940	
==>uire_value);
        $self->require_close_paren;
      }

      $self->require_semicolon;

      my $ctl = Jako::Construct::Statement::LoopC <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	9809	9948	
==>s group lib hll maps);

    my (%flags, $parent_nr);
    # look through the pmc declaration header for flags such as noinit
    while ($$c = <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4160	4271	
==>ure::Data> object.

=cut

sub clean
{
    my $self = shift;

    delete $self->{c}{$_} for grep { /^TEMP_/ } COR <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	13044	13168	
==>'>, the
accessor returns the hash element value.  If the element type is
C<'*%'>, a reference to the hash element is returned <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	4883	5036	
==>_[0]);
  return $this->{'output_string'} = ${ $this->{'output_fh'} };
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

s <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	2	132	
==>/usr/bin/perl -w

# $Id: /parrot/languages/python/pie-thon.pl 17329 2006-02-27T07:57:10.879453Z bernhard  $

# This is a minimal an <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1895	2012	
==>gainst the Perl 6 pattern, passing the test if
they do not match. The same pattern argument syntax above applies here. <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3427	3544	
==>gainst the Perl 6 pattern, passing the test if
they do not match. The same pattern argument syntax above applies here. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	66545	66824	
==>}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sweep",
                  "FLAGS" => "",
                  "A <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9705	9801	
==>ESCRIPTION

This module was built to facilitate the Pugs test suite. It has the
distinction of be <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	60044	60278	
==>eld', 1,
sub
#line 599 "Lua\lua51.yp"
{
            [ $_[1] ];
        }
	],
	[#Rule 113
		 'fieldsep', 1, undef
	],
	[#Rule 114
		 'fieldsep', 1, undef
	]
],
                                  @_);
    bless($self,$class <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	11931	12074	
==>nt("trying classmatch\n"),
                         aop('classmatch', [ $incexc, $lastback ]),
                         aop('increment', [ 1, $l <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1008	1111	
==>rchs.
  my $MSK = ((1 << 16) << 16) ? ' & ' . MAX : '';
#	FF => "X0=rotate_left(((X1&X2)|(~X1&X3))+X0+X4 <==
2	/Users/nnunley/parrot/lib/Test/More.pm	11249	11701	
==>eck, a single can_ok() call counts
as one test.  If you desire otherwise, use:

    foreach my $meth (@methods) {
        can_ok('Foo', $meth);
    }

=cut

sub can_ok ($@) {
    my($proto, @methods) = @_;
    my $class = ref $proto || $proto;

    unless( @methods ) {
        my $ok = $Test->ok( 0, "$class->can(...)" );
        $Test->diag('    can_ok() called with no methods');
        return $ok;
    }

    my @nok = ();
    foreach my $method (@ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	12741	12932	
==>just refer to 'the object'.  If
you'd like them to be more specific, you can supply an $object_name
(for example 'Test customer').

=cut

sub isa_ok ($$;$) {
    my($object, $class, $obj_name) <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	136	235	
==>rot::Test::Regex;

use strict;

use Data::Dumper;
use File::Basename;
use File::Spec::Functions;
use <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6790	6950	
==>er->start_element({
        Name       => 'sub',
        Attributes => {
          name  => $name,
          type  => $type,
          kind  => 'fn',
          f <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	12164	12280	
==>id);

/*
 * find a short or full opcode
 * usage:
 *
 * interp->op_lib->op_code("set", 0)
 * interp->op_lib->op_code( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	731	862	
==>iler->emit("__INLINE_0()");
  $compiler->emit("end");
  $compiler->outdent;
  $compiler->emit(".end");

  foreach my $construct ($se <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	13542	13687	
==>.param pmc op1
    .param pmc op2

    # XXX is a clone needed here?
    op2.'set_shape'(op1)
    .return (op2)
.end

.sub unicode:"dyadic:\u2374" <==
2	/Users/nnunley/parrot/config/init/hints/openbsd.pm	142	254	
==>::hints::openbsd;

use strict;
use Config;

sub runstep
{
    my ($self, $conf) = @_;

    my $ccflags = $conf->d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13101	13191	
==>ACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13945	14035	
==>ACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1992	2121	
==>rn (0);"
    }
    else
    {
  	    return <<EOC;
	    {
	       cur_opcode = (opcode_t *) opcode_to_prederef(interpreter, $addr) <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19811	19960	
==>'BREAK' => 110,
			'FOR' => 6,
			"(" => 8,
			'RETURN' => 112,
			'IF' => 10,
			'FUNCTION' => 12,
			'DO' => 15,
			'LOCAL' => 17,
			'WHILE <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	768	901	
==>EG(i) REG_STR(i)
#define CONST(i) interpreter->code->const_table->constants[i]
END
}

=item C<pc($pc)>

=item C<pc()>

Sets/gets the c <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2981	3107	
==>$sym);

  $block->push_content($self);

  return $self;
}


#
# ACCESSORS:
#

# block handled by superclass?
# access handled b <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	4779	4877	
==>}->{code}}, "\t# On X $branch...\n";
	feedme();
	$loop=0;
	@onlab=();
	while($type[CURR] !~ /COMP|C <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8794	8923	
==>domize timer
max=10
dim a(max)
for i = 0 to 100
	b=rnd*max+1
	a(b)=a(b)+1
next i
for i = 1 to max
	print ,
	for j = 0 to a(i)
		pr <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20035	20164	
==>domize timer
max=10
dim a(max)
for i = 0 to 100
	b=rnd*max+1
	a(b)=a(b)+1
next i
for i = 1 to max
	print ,
	for j = 0 to a(i)
		pr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573085	573320	
==>er, enum_class_ParrotClass, name);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573995	574230	
==>er, enum_class_ParrotClass, name);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13574	13754	
==>.other.bar="one"
x.narf=99
x.pnext.foo=2
x.pnext.bar="two"
y=x
print y.narf
t=x.other
print t.foo
print t

' Passing structures
' Expect:  100, 12 and 103
type first
	foo as integer <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5373	5473	
==>.
PRE_BRANCH_${CURIC}_LAZY_MOVE_$register_num:
${STACK$register_num} = pop lazy_moves

# Decrement st <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667566	667791	
==>ble->push_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668340	668565	
==>ble->push_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3	206	
==>opyright (C) 2002-2006, The Perl Foundation.
# $Id: /parrot/lib/Parrot/OpTrans/C.pm 20340 2006-06-22T21:49:11.552283Z bernhard  $

=head1 NAME

Parrot::OpTrans::C - Ops to C Code Generation

=head1 DESCRI <==
2	/Users/nnunley/parrot/config/inter/progs.pm	4162	4290	
==>'
        );
    }

    # This one isn't prompted for above.  I don't know why.
    $ccwarn = integrate($conf->data->get('ccwarn' <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	2369	2490	
==>";


The following PMC files are available:
  @pmc
END
        {
            $pmc_list = prompt('Which PMC files would you <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	2272	2643	
==>%1, %2
    %1 = $I100
END_PIR

    $P0[unicode:"dyadic:\u2264"]  = <<"END_PIR"             # not greater than
    $I100 = isle %1, %2
    %1 = $I100
END_PIR

    $P0[unicode:"dyadic:\u2265"]  = <<"END_PIR"             # not less than
    $I100 = isge %1, %2
    %1 = $I100
END_PIR

    $P0[unicode:"dyadic:\u2371"]  = <<"END_PIR"             # nor
    $I100 = %1
    $I101 <==
2	/Users/nnunley/parrot/config/auto/signal.pm	8	112	
==>ght (C) 2001-2006, The Perl Foundation.
# $Id: /parrot/config/auto/signal.pm 19593 2006-05-30T02:28:15.11 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	37369	37484	
==>rint "Treating $para_type paragraph as such because stack is empty.\n";
        } else {
          my @fors = grep $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	12234	12367	
==>ON | SYNOPSIS
             | COPYRIGHT | LICENSE | NOTES? | FUNCTIONS? | METHODS?
             | CAVEATS? | BUGS? | SEE\ ALSO | SWITCH <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8362	8550	
==>Name2character{$name} = chr $number;
      # normal case
    }
  }
  # So they resolve 'right' even in EBCDIC-land
  $Name2character{'lt'  }   = '<';
  $Name2character{'gt'  }   = '>';
  $N <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	13955	14077	
==>x, $name) = @_;

    local $Level = $Level + 1;
    $self->_regex_ok($this, $regex, '=~', $name);
}

sub unlike {
    my($s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	17670	18163	
==>LATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 24,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 307 \"src/ops/core.ops\"\n  if (string <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18465	18851	
==>LATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 25,
                  "ARGS" => [
                              "p",
                              "i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	5936	6033	
==>in which case we return undef).

See also: get_symbol(), which searches only locally.

=cut

sub f <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	27211	27494	
==>whine(
          $para->[1]{'start_line'},
          "=over should be: '=over' or '=over positive_number'"
        );
        $para->[1]{'indent'} = 4;
      }
      DEBUG > 1 and print "=over found of type $list_type\n";
      
      $self->{'content_seen'} ||= 1;
      $self->_hand <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6925	7016	
==>r
s1$="The longer string"
found$="longer"
bogus$="not"
print "Found  (5): ", instr(s1$, foun <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18654	18745	
==>r
s1$="The longer string"
found$="longer"
bogus$="not"
print "Found  (5): ", instr(s1$, foun <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	78201	78382	
==>causes the
		       production containing it to immediately fail.
		       \u$_[0] that follows an <error>
		       will never be reached.  Did you mean to use
		       <error?> inst <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886841	887048	
==>",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88	268	
==>matically from 'src/ops/core.ops'.
# Any changes made here will be lost!
#

=head1 NAME

Parrot::OpLib::core - Parrot Op Info

=head1 DESCRIPTION

This is an autogenerated file, cre <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2388	2594	
==>nd $str .= "\r",      # carriage return
                last;
            s/^\\t//
                and $str .= "\t",      # horizontal tab
                last;
            s/^\\v//
                and <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3902	4108	
==>nd $str .= "\r",      # carriage return
                last;
            s/^\\t//
                and $str .= "\t",      # horizontal tab
                last;
            s/^\\v//
                and <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	13365	13543	
==>NO_EH_HEADER
    i = elements ehs
    gen_pir = concat ".local pmc cur_exception\n"
    gen_pir = concat ".local pmc saved_ehs\nsaved_ehs = new .FixedPMCArray\nsaved_ehs = "
    t <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16074	16163	
==>van Little <stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vincent <jesse <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	110	280	
==>ct to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Compiler.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	23030	23174	
==>re'}, @$curr_open) {
        DEBUG > 1 and print "Not firing any event for this =end $content because in an ignored region\n";
        # And that <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29072	29246	
==>one of \${DEST0} or \${LOADREG} in rule " .
				"$rule->{'name'}\n";
		} elsif ($rule->{'pir'} =~ /\$\{DEST0\}/ || $rule->{'instruction'} =~ /\$\{DEST0\}/) {
			$need_dest = 1 <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	50974	51091	
==>nt module,
parser actions which are to be performed only on a successful parse
are specified using a C<E<lt>defer:...E <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	4174	4320	
==>rop('test', [ $op1, $rev_test, $op2,
                                   rop('goto', [ $continue ]) ]);
        return ($self->rewrite($testop, $las <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8575	8682	
==>= '"';
  $Name2character{'amp' }   = '&';
  $Name2character{'apos'}   = "'";
  $Name2character{'sol' }   = ' <==
2	/Users/nnunley/parrot/Configure.pl	7752	7878	
==>rs without /unicode
   --icushared=(flags)  Full linker command to create shared libraries
   --icudatadir=(path)  Directory to <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3117	3249	
==>ex
}

sub YYCurtok {
	my($self)=shift;

        @_
    and ${$$self{TOKEN}}=$_[0];
    ${$$self{TOKEN}};
}

sub YYCurval { <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2967	3088	
==>ex
}

sub YYCurtok {
	my($self)=shift;

        @_
    and ${$$self{TOKEN}}=$_[0];
    ${$$self{TOKEN}};
}

sub YYCurval { <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	3966	4208	
==>iable block
        if ($variable && /^\s*$/) {
            undef $variable;
            next;
        }
        
        if ($function) {
            if (/Calls (.*) : (.*)/) {                                
                # calling another <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	847	996	
==>ple::DEBUG ) {
    require Carp;
    Carp::croak("It's too late to call Pod::Simple::Debug -- "
              . "Pod::Simple has already loaded\nAbort <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	3830	3938	
==>\}])(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, $1 eq '{' ? 'open-brace' : 'close-b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420245	420836	
==>DIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 483,
                  "ARGS" => [
                              "i",
                              "p",
                              "ic",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 557 \"src/op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	604653	605019	
==>parent",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 685,
                  "ARGS" => [
                              "p",
                              "p <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	7883	8180	
==>PARROT_CALLIN_START( interp );\n    ";
        $funcs .= "retval = " unless $ret_type eq 'void';
        $funcs .= "VTABLE_$name( $arguments );
    PARROT_CALLIN_END( interp );
    return";
        $funcs .= " retval" unless $ret_type eq 'void';
        $funcs .= ";\n}\n\n";

    }

    return ($f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760887	761171	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "setp_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761739	762023	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "setp_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYP <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10879	11208	
==>truct::Block");
  confess "No content!"      unless @_;
  confess "Illegal content!" if grep { not $_->isa("Jako::Construct") } @_;

  push @{$self->{CONTENT}}, @_;
}


###############################################################################

=head2 BLOCK->compile(COMPILER, FILTER)

Compile the block's content using COMPI <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	227	333	
==>ot::OpsFile;

=head1 DESCRIPTION

C<Parrot::OpsFile> takes one or more files of op functions and
creates re <==
2	/Users/nnunley/parrot/tools/build/list_unjitted.pl	457	605	
==>= /(\S+)\s+\d+/){
        push @ops, $op;
    }
    else { die "Misformated line: $.";}
}

close OPS or die "Noo.. $!";

open JIT, '<', "jit/$ARGV[0] <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2417	2519	
==>t a label for every single instruction. While we kinda find
	# basic blocks, we don't discover backward <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	995	1097	
==>t a label for every single instruction. While we kinda find
	# basic blocks, we don't discover backward <==
2	/Users/nnunley/parrot/config/auto/socklen_t.pm	285	380	
==>strict;
use warnings;

use base qw(Parrot::Configure::Step::Base);

use Config;

use Parrot::Con <==
2	/Users/nnunley/parrot/config/auto/jit.pm	329	423	
==>strict;
use warnings;

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Con <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	3249	3369	
==>: Ops file '$file' mentioned more than once!\n";
	next;
    }
    $seen{$file} = 1;

    die "$0: Could not find ops file <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37498	37589	
==>fined $::RD_TRACE;').'
		$Parse::RecDescent::lastexpected = ' . ($rule->hasleftmost($self) ? <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39901	39992	
==>fined $::RD_TRACE;').'
		$Parse::RecDescent::lastexpected = ' . ($rule->hasleftmost($self) ? <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	8720	8840	
==>ame eq 'Para' ) 
    {
        $tagname = 'Para_item' 
            if @{$self->{STACK}} and $self->{STACK}->[-1] eq 'text <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	8103	8222	
==>ame eq 'Para') 
    {
        $tagname = 'Para_item' 
            if @{$self->{STACK}} and $self->{STACK}->[-1] eq 'text <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	4	116	
==>d$

package URM::Test;

use strict;
use vars qw(@EXPORT @ISA);

use Parrot::Config;

require Exporter;
require Pa <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1398	1510	
==>de as input.
  #

  $self->INTERNAL_ERROR("Undefined block!")
    unless defined $block;

  $self->INTERNAL_ERROR <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1246	1358	
==>de as input.
  #

  $self->INTERNAL_ERROR("Undefined block!")
    unless defined $block;

  $self->INTERNAL_ERROR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684651	684768	
==>s\"\n      {{\@1}}->vtable->setprop(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n      {{+=4}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685546	685663	
==>s\"\n      {{\@1}}->vtable->setprop(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n      {{+=4}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333149	333681	
==>pen",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 391,
                  "ARGS" => [
                              "p",
                              "ic",
                              "s"
                            ],
                  "BODY" => "#line 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const c <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2234	2342	
==>n\\sb90\\sa180\\f2\\fs#head2_halfpoint_size#\\ul{\n",
 '/head2'  => "\n}\\par}\n",
 'head3'   => "\n{\\pard\\ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2693	2804	
==>andler->end_element({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
  }

  $handler->start_el <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2570	2681	
==>andler->end_element({ Name => 'op' });
    $handler->end_element({ Name => 'block' });
  }

  $handler->start_el <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56349	56460	
==>rc/ops/core.ops\"\n  {{\@1}} = interpinfo_p(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57111	57222	
==>rc/ops/core.ops\"\n  {{\@1}} = interpinfo_p(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441559	441653	
==>e 109 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, NULL, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442574	442668	
==>e 109 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, NULL, <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5877	5970	
==>itten by Brent
Royal-Gordon C<brent@brentdax.com>.

=head1 AUTHOR

Joshua Hoblitt C<jhoblitt@c <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6726	6819	
==>itten by Brent Royal-Gordon C<brent@brentdax.com>.

=head1 AUTHOR

Joshua Hoblitt C<jhoblitt@c <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	491	650	
==>@*INC.unshift($path) unless $path eq any(@*INC);
    }
}

# I am purposfully leaving out the archname, version_dir, version_arch_dir
# and inc_version_list code <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494704	495186	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 568,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  " <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	5291	5441	
==>re2human($_[0]->{runcore}),
	  $_[0]->{cpuarch},
      $_[0]->{osname},
      $_[0]->{cc},
  };

  my @smokes  = map { unpack_smoke($_) } glob "parrot- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5170	5283	
==>t  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  $handler->sta <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3233	3346	
==>t  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  $handler->sta <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443042	443377	
==>LAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 507,
                  "ARGS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496440	496756	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 570,
                  " <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	1336	1439	
==>rd, which for
reference is:

=over 4

=item p

Parameter is a void pointer, taken from the PMC's data po <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	982	1166	
==>on
{
    my $self = shift;
    
    return Parrot::Docs::Section->new(@_);
}

=item C<new($name, $index_path, @contents)>

Returns a new section.

C<$name> and C<$index_path> are requir <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	15490	15667	
==>34
		DEFAULT => -95,
		GOTOS => {
			'@11-1' => 70
		}
	},
	{#State 35
		ACTIONS => {
			":" => 51,
			"[" => 47,
			"(" => 48,
			"." => 49,
			'STRING' => 44,
			" <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	1017	1128	
==>el_use($failLabel);
}

sub output_start {
    my ($self, $n) = @_;
    return "rx_startgroup P0, $n";
}

sub out <==
2	/Users/nnunley/parrot/languages/regex/test.pl	2491	2639	
==>le;

my $status = 1;

my $testCount = 1;
$_ = <SPEC>;
while (1) {
    my ($input, $output);

    last if ! defined $_;
    die "INPUT: expected" if ! <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	4941	5231	
==>e)){
	print join(',', unpack("c*", substr($byte_code, $offset, 20)));
	print ",\n";
	$offset += 20;
    }
    print "};";

    print <<'END_C';

int
main(int argc, char **argv) {
    int dummy_var;
    Interp *     interpreter;
    struct PackFile *          pf;
    INTVAL i;
    PMC *usera <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	15791	15924	
==>>' angle bracket was encountered, which typically
			 indicates the end of a directive. However no suitable
			 preceding directive wa <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5769	5879	
==>0, EQ_${eqnum}_ok
	set $result, 0.0
	branch EQ_${eqnum}_end
EQ_${eqnum}_ok: set $result, 1.0
EQ_${eqnum}_end: n <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	14752	15046	
==>lf->{parents} } ) {
            if (exists ($self->{has_parent}{$pname}{$meth} )) {
                $self->{super}{$meth} = $pname;
                my $n = $self->{has_parent}{$pname}{$meth};
                my $super_mmd = $all->{$pname}{methods}[$n]{mmds};
                if ($super_mmd && sc <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	31264	31395	
==>untime branch of "
	print JUMPLABEL
	print " not found\\n"
	_platform_shutdown()
	end
RTBE
}
sub parse_data_setup {
	push @{$code{_d <==
2	/Users/nnunley/parrot/config/gen/config_pm.pm	150	266	
==>gen/config_pm.pm - Record configuration data

=head1 DESCRIPTION

Writes the C<Parrot::Config> Perl module, the
F<run <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Compilers.pm	121	218	
==>arrot::Docs::Section::Compilers - Compilers documentation section

=head1 SYNOPSIS

    use Pa <==
2	/Users/nnunley/parrot/lib/Test/More.pm	12229	12397	
==>me);

Checks to see if the given C<< $object->isa($class) >>.  Also checks to make
sure the object was defined in the first place.  Handy for this sort
of thing:

    my <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10247	10368	
==>No state left on stack: aborting.\n";

			return(undef);
		};

		#shift the error token

#DBG>			$debug & 0x10
#DB <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9787	9900	
==>No state left on stack: aborting.\n";

			return(undef);
		};

		#shift the error token

#DBG>			$debug & 0x10
#DB <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	10547	10687	
==>arg_dirs   = "{ " . join(", ", scalar $op->arg_dirs
            ? map { $arg_dir_mapping{$_} } $op->arg_dirs
            : 0
        ) . " }" <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8975	9118	
==>t;
    my $path = shift || return;
    my ($volume, $directories, $name) = File::Spec->splitpath($path);
    
    return File::Spec->catdir($sel <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9374	9500	
==>t;
    my $path = shift || return;
    my ($volume, $directories, $name) = File::Spec->splitpath($path);
    
    $path = File: <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	1343	1531	
==>};
##    warn "Insert $symb in $self\n";
        unless ( exists $self->{table}{$symb} ) {
            $self->{table}{$symb} = $defn;
        }
    }

    sub LookupU {
        my $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	37918	38020	
==>r->YYData->{self} = BuildParam( $parser, 'self' );
}

sub BuildFunctionBody {
    my ( $parser, $pa <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21708	21865	
==>hashname} .'}=$_tok;' : '' ) .'
		' . ($self->{"lookahead"} ? '$text = $_savetext;' : '' ) .'
'
}


1;

package Parse::RecDescent::Directive;

sub sethashname <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	13097	13217	
==>p = $globals{$c};
	print <<"EOC";
	# $c = global "$c" $cmt
EOC
    }
    else {
	my $type = 'pmc';
	$p = $c;
	if ($type_m <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24285	24475	
==>t;
      my $target;
      $target = Jako::Construct::Expression::Value::Identifier->new($block, $target_token) if $target_token;

      my ($cond, $left, $op, $right);

      if ($self->get( <==
2	/Users/nnunley/parrot/config/inter/libparrot.pm	62	162	
==>fig/inter/libparrot.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/inter/libpa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39099	39348	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41659	41908	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNE <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2275	2371	
==>_num} = ${STEMP0}

# Decrement stack height.
dec stack_depth
PIR
		$pir =~ s/\$register_num/$regi <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3527	3623	
==>_num} = ${STEMP0}

# Decrement stack height.
dec stack_depth
PIR
		$pir =~ s/\$register_num/$regi <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2709	2820	
==>ift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHECK}}='ACC <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2587	2689	
==>ift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHECK}}='ACC <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8340	8449	
==>I am the very model of a modern";tab$(15);"More"
print "Hello","Again",d
dim c$(1)
for i = 1 to 20 : read c$(i <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21204	21313	
==>I am the very model of a modern";tab$(15);"More"
print "Hello","Again",d
dim c$(1)
for i = 1 to 20 : read c$(i <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	15942	16110	
==>$exit_code")
                  if $exit_code and not $pass;

            unless($ENV{POSTMORTEM}) {
                unlink $out_f;
            }

            return $pas <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	18493	18661	
==>$exit_code")
                  if $exit_code and not $pass;

            unless($ENV{POSTMORTEM}) {
                unlink $out_f;
            }

            return $pas <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955832	955937	
==>BODY" => "#line 576 \"src/ops/string.ops\"\n  {{\@1}} = string_copy(interpreter, Parrot_encoding_name(inte <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956644	956749	
==>BODY" => "#line 576 \"src/ops/string.ops\"\n  {{\@1}} = string_copy(interpreter, Parrot_encoding_name(inte <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	16053	16387	
==>and @$paras and ! grep $_->[0] ne '~end', @$paras
        # i.e., if the paras is all ~ends
     )
    ;
    DEBUG and print "# Starting ", 
      $starting_contentless ? 'contentless' : 'contentful',
      " document\n"
    ;
    
    $self->_handle_element_start(
      ($scratch = 'Document'),
      {
        'start_line' => $paras <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	1012	1220	
==>my %actions = (
        "<" => "Reading",
        ">" => "Writing",
        ">>" => "Appending",
    );

    my $action = $actions{$direction} or die "Invalid direction '$direction'";
    print "$action $filen <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7620	7725	
==>{ITEMP0} == 0 goto PRE_CALL_PLOOP_END_${CURIC}
dec ${ITEMP0}
dec ${ITEMP2}

# Generate name of register to <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	5142	5355	
==>ecting symbols here

  my %table = ();

  my $level = 0;

  while ($block) {
    foreach my $symbol ($block->symbol_names) {
      next if exists $table{$symbol};
      $table{$symbol} = $level;
    }

    $block = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	183	278	
==>es/jako/lib/Jako/Token.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#
#

use strict;
eval "use w <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	652	745	
==>ako::Construct::Expression::Value');
  confess("Right (" . ref($right) . ") is not Identifier" <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	4953	5150	
==>elf = shift;

    return $self->{ARGDIRS}[shift];
}

=item C<body($body)>

=item C<body()>

Sets/gets the op's code body.

=cut

sub body
{
    my $self = shift;

    if (@_)
    {
        $self->{B <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29046	29151	
==>pattern;
	$desc=~s/\\/\\\\/g;
	$desc=~s/}/\\}/g;
	$desc=~s/{/\\{/g;

	bless 
	{
		"pattern"     => $patter <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31150	31253	
==>pattern;
	$desc=~s/\\/\\\\/g;
	$desc=~s/}/\\}/g;
	$desc=~s/{/\\{/g;

	bless 
	{
		"pattern"   => $patter <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	6388	6506	
==>ack_smoke {
  my %smoke = @_;

  my $summary = join("-", map { $smoke{summary}{$_} } qw<total ok failed todo skipped un <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10933	11050	
==>c = $self->_save_1 ('P');
    $self->_morph ($pmc, $temp);
    $self->_restore ($temp);
    $temp = $pmc;
  }
  $self- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035159	1035434	
==>",
                  "CODE" => 1157,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 64 \"src/ops/var.ops\"\n    parrot_context_t * const ctx = CONTEXT(interpr <==
2	/Users/nnunley/parrot/Configure.pl	961	1116	
==>the MANIFEST check.

=item C<--prefix>

Sets the location where parrot will be installed.

=item C<--ask>

This turns on the user prompts.

=back

Compile O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636319	636747	
==>AGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 712,
                  "ARGS" => [
                              "p",
                              "i",
                              "sc"
                            ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2772	2878	
==>_offset
{
    my ($self, $offset) = @_;

    return "interpreter->resume_offset = REL_PC + $offset; interpr <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4107	4213	
==>_offset
{
    my ($self, $offset) = @_;

    return "interpreter->resume_offset = REL_PC + $offset; interpr <==
2	/Users/nnunley/parrot/config/inter/lex.pm	2286	2429	
==>/x) {
        $conf->data->set(flex_version => "$1.$2.$3");
    }

    $conf->data->set($util => $prog);
    $self->set_result('yes');

    retu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53604	54020	
==>P" => 0,
                  "NAME" => "gc_debug",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 69,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 829 \"src/ops/core.ops\"\n  if <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52849	53165	
==>P" => 0,
                  "NAME" => "gc_debug",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 68,
                  "ARGS" => [
                              " <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	10725	10925	
==>y ($self, $t, $sub) = @_;
    $sub->($t);
    foreach my $arg (@{ $t->{args} }) {
        if (UNIVERSAL::isa($arg, 'Regex::Ops::Tree')) {
            $self->maptree($arg, $sub);
        }
    }
    ret <==
2	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	339	481	
==>d';
    }
    if ($ccflags !~ /-D_XOPEN_SOURCE=/) {

        # Request all POSIX visible (not automatic for cxx, as it is for cc)
        $ccfl <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	403	517	
==>he test suite multiple times in the same process
$Test::testing_started = 1;

### FUNCTIONS

## plan

sub plan (Int <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16006	16106	
==>plemented here to silence a C<Pod::Simple::HTML> warning.

=cut

sub esc 
{
    if ( defined wantarra <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5336	5449	
==>>		$tok.='<';
#DBG>	};

	$$errstatus=0;
	$$nberror=0;
	($$token,$$value)=(undef,undef);
	@$stack=( [ 0, unde <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5081	5188	
==>>		$tok.='<';
#DBG>	};

	$$errstatus=0;
	$$nberror=0;
	($$token,$$value)=(undef,undef);
	@$stack=( [ 0, unde <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15454	15566	
==>s_deeply (Pair  $got, Pair  $expected, Str $desc?) returns Bool;

Because these functions will be mutually recurs <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1057	1158	
==>TION

This class is of
interest to people writing Pod formatters based on Pod::Simple.

This class (wh <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	37224	37324	
==>ng'   => \&_op_make_string,
  'string'        => \&_op_string,
  'string-length' => \&_op_string_leng <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2086	2325	
==>P()> macro in an ops file into the relevant C
code.

=cut

sub goto_pop
{
    my ($self) = @_;

    return "goto *((void*)* (cur_opcode = (opcode_t*)opcode_to_prederef(interpreter,
	(opcode_t*)pop_dest(interpreter))))";
}

sub run_core_func <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2431	2581	
==>4>5 then print "Wrong" else print "OK"
if 5>=4 then print "Ok" else print "Wrong"
if 5>=5 then print "Ok" else print "Wrong"
if 4>=5 then print "Wrong" <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	44566	44729	
==>f->{scope} = {};

  $temp = $self->_generate($tree);

  $self->_restore($temp);
  $self->_add_inst('',"end");

  $self->_format_columns;

  # not need any more
  $s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638698	638928	
==>"TYPE" => "function",
                  "CODE" => 714,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 128 \"src/ops/pmc.ops\"\n  opcode_t* arg_op;\n <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8122	8254	
==>is not right"
end if

' Count from 9 to 0, print 5
dim y(10)
i=10
tloop:
	y(i)=i
	i=i-1
	print i
	if i then goto tloop
print y(5)


' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105750	1106214	
==>" => "getclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1224,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 352 \"src/ops/experimental.ops\"\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517199	517573	
==>> "inline",
                  "CODE" => 596,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 729 \"src/ops/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853352	853463	
==>ing.ops\"\n  {{\@1}} = string_append(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854134	854245	
==>ing.ops\"\n  {{\@1}} = string_append(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	15182	15301	
==>f( ref $regex eq 'Regexp' ) {
        $usable_regex = $regex;
    }
    # Check for '/foo/' or 'm,foo,'
    elsif( ($re, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1136	1276	
==>is changes the tagname for this end-token object.
You probably won't need to do this.

=item $token->tag(...)

A shortcut for $token->tagname <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	493	594	
==>right) = @_;

  confess "Block is not defined!" unless defined $block;
  confess "Left is not defined! <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	505	606	
==>right) = @_;

  confess "Block is not defined!" unless defined $block;
  confess "Left is not defined! <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247160	247581	
==>=> [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 287,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	33922	34083	
==>];
        }

        my $num_failed = grep !$_->{'ok'}, 
                              @{$test_results}[0..$self->{Expected_Tests}-1];
        $num_failed += abs <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	6731	6835	
==>$path = find_file( [$dir1, $dir2], $file, $die_unless_found_flag );

Return the full path to $file (searc <==
2	/Users/nnunley/parrot/Configure.pl	1645	1925	
==>en compiler flags.

=item C<--ccwarn=(flags)>

Use the given compiler warning flags.

=item C<--cxx=(compiler)>

Specify which C++ compiler to use (for ICU).

=item C<--libs=(libs)>

Use the given libraries.

=item C<--link=(linker)>

Specify which linker to use.

=item C<--linkfl <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	16394	16573	
==>nc;
        no strict 'refs';

        *{$package.'::'.$func} = sub {
            my ( $code, $expected, $desc, %extra ) = @_;

            # Strange Win line endings
            c <==
2	/Users/nnunley/parrot/lib/Test/More.pm	36679	36774	
==>ed
by Perl.

L<Test::Differences> for more ways to test complex data structures.
And it plays we <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26890	27007	
==>r );
    push @opcodes, @{ $cond->[1] };
    push @opcodes, new BranchUnlessOp( $parser,
        'arg1'   => $cond- <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	19115	19251	
==>ck

=head1 SEE ALSO

=over 4

=item C<Parrot::Op>

=item C<Parrot::OpTrans>

=item F<tools/build/ops2c.pl>

=item F<tools/build/ops2pm.pl <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	45691	45792	
==>= join '<QLL>', (extract_quotelike)[2,1] } until $@;


	# Isolate the search pattern in a quotelike op <==
2	/Users/nnunley/parrot/config/gen/config_h.pm	1281	1397	
==>!!!!!!!
**
** This file is generated automatically by Configure.pl
*/

/*
 * i_(\\w+) header includes
 */

EOF

    f <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28774	28954	
==>{'pir'} =~ /\$\{DEST0\}/ &&
		    $rule->{'pir'} =~ /\$\{LOADREG\}/) {
			die "pir must use one of \${DEST0} or \${LOADREG} in rule " .
				"$rule->{'name'}\n";
        } elsif ($ru <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068795	1069073	
==>"FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1193 <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	13486	13790	
==>alblnf    math.h
scalblnl    math.h
scalbn      math.h
scalbnf     math.h
scalbnl     math.h
scanf       stdio.h
setbuf      stdio.h
setlocale   locale.h
setvbuf     stdio.h
signal      signal.h
signbit     math.h
sin         math.h
sinf        math.h
sinh        math.h
sinhf       math.h
sinhl       mat <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10681	10823	
==>a,$_[5],21,0x85845dd1,/* 56 */
II,$a,$b,$c,$d,$_[12],6,0x6fa87e4f,/* 57 */
II,$d,$a,$b,$c,$_[19],10,0xfe2ce6e0,/* 58 */
II,$c,$d,$a,$b,$_[10],1 <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	6378	6568	
==>\$_[0], '$classes{$name}');\n";
                }
            }
            $out .= "    croak 'Too many args to $name' if \@_ > 1;\n";
            $out .= "    \@_ ? ($pre\$r->$elem$sel = sh <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19487	19576	
==>appended.");
	}
	elsif ($parser->{_AUTOTREE} && defined($item) && !$item->isa("Parse::RecD <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2107	2227	
==>al);

	_CheckParams( \@params, \%params, \@_, $self );

	if($$self{DEBUG}) {
		_DBLoad();
		$retval = eval '$self-> <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2030	2144	
==>al);

	_CheckParams( \@params, \%params, \@_, $self );

	if($$self{DEBUG}) {
		_DBLoad();
		$retval = eval '$self-> <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	31701	31943	
==>$name ]),
                     aop('rule_end', [ $name ]),
      );

    push @{ $def->{args} }, \@declarations;

    return (undef, $def, @ops);
}

sub startup {
    my ($self, $num_groups) = @_;

    my $group;

    my @ops;
    foreach $gro <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	6603	6716	
==>num {
END_C

for(@{$real_ops->{OPS}}) {
    my $opname = $_->full_name;
    my $n = $_->{CODE};
    my $comma = $n <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	13474	13608	
==>14
		DEFAULT => -4,
		GOTOS => {
			'block' => 58,
			'chunk' => 57
		}
	},
	{#State 15
		DEFAULT => -11,
		GOTOS => {
			'@1 <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	2893	3270	
==>}

    sub Insert {
        my $self = shift;
        my ( $symb, $defn ) = @_;
        $self->{table}{$symb} = $defn;
    }

}

###############################################################################

package defn;
{

    sub new {
        my $proto = shift;
        my $class = ref($proto) || $proto;
        my $self  = {};
        bless $self, $cl <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1557	1659	
==>t ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Emit pop code.
${INS} = concat ${STACK$register_num}
$ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3267	3369	
==>t ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Emit pop code.
${INS} = concat ${STACK$register_num}
$ <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	1251	1349	
==>m Parrot tree.
	my %config = eval {
		require "$_[0]/lib/Parrot/Config.pm";
		%Parrot::Config::P <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16608	16779	
==>des, new LocalDir( $parser,
                    'result' => $result,
                );
                push @opcodes, new FindLexOp( $parser,
                    'resu <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10759	10925	
==>des,
                        new LocalDir( $parser, 'result' => $result, );
                    push @opcodes, new FindLexOp( $parser,
                        'resu <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26558	26683	
==>'pop'} ||= 0;
	$rule->{'push'} ||= 0;
	if ($rule->{'class'} eq 'op') {
		# Init destination types array.
		$pir .= "    dtypes <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	34062	34186	
==>ber?'          => \&_op_number_p,
  'complex?'         => \&_op_complex_p,
  'real?'            => \&_op_real_p,
  'rational? <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	4701	5081	
==>decl .= <PMC> until ($decl =~ s/\{.*//);
                $const = 1 if $decl =~ /\bconst_too\b/;
                next PMC if $decl =~ /\babstract\b/;
                next PMC if $decl =~ /\bextension\b/;
                last;
            }
        }
        close PMC;
        die "No pmclass declaration found in $pmc_file"
            if !defined $name;

        # please note th <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759401	759836	
==>> "setref",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 857,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 281 <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	1370	1454	
==>le_branch_coverage, %file_call_coverage);
my (%function_line_coverage, %function_bran <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457732	458170	
==>",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 525,
                  "ARGS" => [
                              "n",
                              "nc",
                              "n"
                            ],
                  "BODY" => "#line 240 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	1962	2094	
==>of this file indicates that the distribution is a development version.', 'DEVELOPING'),
            $self->new_item('The status of th <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37839	38026	
==>pir .= "### post_call\n";
		$pir .= sub_meta($post_call, $mv, "post_call for rule $rule->{'name'}");
		$pir .= "### end post_call\n";
	}

	# Unsupported class.
	else {
		die "Do not know h <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	27124	27221	
==>ting an optimized pattern (a la Friedl)
# that matches a substring delimited by any of the specifi <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	591	689	
==>Defaults to ''.

=item C<prefix>

The install prefix. Defaults to '/usr'.

=item C<exec_prefix>

Th <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	820	918	
==>Defaults to ''.

=item C<prefix>

The install prefix. Defaults to '/usr'.

=item C<exec_prefix>

Th <==
2	/Users/nnunley/parrot/lib/Test/More.pm	22483	22584	
==>, you're aware of what bugs there are,
and you'll know immediately when they're fixed.

Once a todo te <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2254	2565	
==>t 'refs';
        my $pass = $self->{builder}->$builder_func(
                       Parrot::Test::slurp_file($out_fn),
                       $output,
                       $desc
                                                  );
        unless ( $pass ) {
            my $diag = '';
            my $test_pro <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	25572	25766	
==>ushint', [ 0 ]),
               $next =>
              );

    return ($back, @ops);
}

# R?? ->       pushindex
#              goto next
#        back: popindex or R.back
#              R or las <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	7527	7629	
==>ves'} } if wantarray;
  return
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	43692	43899	
==>DEBUG > 1 and print "I don't know how to deal with E<$content>.\n";
        $self->whine( $start_line, "Unknown E content in E<$content>" );
        $replacer = "E<$content>"; # better than nothing
      } el <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	6499	6691	
==>f if empty
}

use UNIVERSAL ();
sub unget_token {
  my $self = shift;
  DEBUG and print "Ungetting ", scalar(@_), " tokens: ",
   @_ ? "@_\n" : "().\n";
  foreach my $t (@_) {
    Carp::croak " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862466	862559	
==>ne 138 \"src/ops/string.ops\"\n  {{\@1}} = string_length(interpreter, {{\@2}});\n  {{+=3}};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863235	863328	
==>ne 138 \"src/ops/string.ops\"\n  {{\@1}} = string_length(interpreter, {{\@2}});\n  {{+=3}};\n" <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	13085	13221	
==>ve or die.

=== A Note about TODO-ing tests

Sometimes a test is broken because something is not implemented yet. So
in order to still al <==
2	/Users/nnunley/parrot/lib/File/Which.pm	1724	1892	
==>e unless $all;
                push @results, $file;
                # we can stop this loop as if it finds more aliases matching,
                # it'll just be the sa <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	19834	19958	
==>2],$code[$code_l]->[4]);
    my $targ = "pc_xxx";
    my $label = '';
    if (!defined $op) {
	goto plain;
    }
    if ($opc <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	36590	36848	
==>content, 0, $j;
            # leaving only things at J and after
          @ell_content =  grep ref($_)||length($_), @ell_content ;
          $link_text   = [grep ref($_)||length($_), @link_text  ];
          DEBUG > 3 and printf
           "  So link text is <==
2	/Users/nnunley/parrot/languages/javascript/bootstrap.pm	111	221	
==>e->create_context();

$context->bind_function(
	name =>	"snarf",
	func => sub { 
              my $file = shift <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	20557	20678	
==>$thing;
          foreach my $attrname ('section', 'to') {        
            if(defined($thing = $treelet->[$i][1]{$attr <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	42043	42160	
==>$thing;
        foreach my $attrname ('section', 'to') {        
          if(defined($thing = $treelet->[$i][1]{$attr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478358	478640	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 548,
                  "ARGS <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	37486	37678	
==>'.\n";

        if($ell_content[$j] =~ m/^([^\/]*)\/(.*)$/s) {
          my @section_name = ($2); # might be 0-length
          $ell_content[$j] =  $1;  # might be 0-length

          DEBUG > 3 <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	10524	10670	
==>nterpreter,
        \s*
        {{\@1}}
        \);
        \s+{{\+=\d}}/xm) {
            $jit_func = 'Parrot_jit_vtable1_op';
            $extern <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21473	21684	
==>RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
					  . $_tok . q{])}, $text)
						if defined $::RD_TRACE;').'
		push @item, $_tok;
		' . (($self->{line}>=0 && !$::RD_NO_HITE <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39496	39607	
==>NG(interpreter, "__$meth");
    PMC *sub = find_or_die(interpreter, pmc, meth);
    ${func_ret}Parrot_run_meth_f <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6805	6949	
==>}
}

sub generate_c {
    my ($pmc) = @_;

    if (needs_build("$pmc.c", "$pmc.pmc")) {
        run("$PMC2C --c $pmc.pmc")
          or die "pmc2 <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7016	7160	
==>}
}

sub generate_c {
    my ($pmc) = @_;

    if (needs_build("$pmc.c", "$pmc.pmc")) {
        run("$PMC2C --c $pmc.pmc")
          or die "pmc2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137693	138178	
==>GS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 169,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 70 \"src/ops/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665850	666055	
==>=> [
                              "p",
                              "kic"
                            ],
                  "BODY" => "#line 359 \"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delete_keyed_int(int <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	7045	7207	
==>e_bracket { return shift->skip('close-bracket'); }
sub skip_close_paren   { return shift->skip('close-paren');   }
sub skip_ident         { return shift->skip('ide <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	7947	8099	
==>s_code) {
        die "Mandatory entry code missing in rule $rule->{'name'}\n";
    }
    unless ($has_class) {
        die "Mandatory entry class missin <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11040	11136	
==>tes the method body performing the various macro substitutions for
nci method bodies (see F<tools <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	3947	4071	
==>\d\D]';
}
if ( ! @{ $cfg{skip_bench} } ) {
    my @regexes = grep defined, $ini->val( regexes => 'exclude');
    @{ $cfg{skip <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	40525	40626	
==>4]

the text between the opening and closing tags

=item [5]

the closing tag (or "" if no closing tag <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	1164	1341	
==>e::Data> object.

=cut

sub new
{
    my $class = shift;

    my $self = {
        c        => {},
        triggers => {},
    };

    bless $self, ref $class || $class;
    retu <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	22452	22635	
==>.
    $msg =~ s/^/# /gm;

    # Stick a newline on the end if it needs it.
    $msg .= "\n" unless $msg =~ /\n\Z/;

    local $Level = $Level + 1;
    $self->_print_diag($msg);

    re <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	56230	56374	
==>mary', 1, undef
	],
	[#Rule 83
		 'primary', 1, undef
	],
	[#Rule 84
		 'primary', 3,
sub
#line 444 "Lua\lua51.yp"
{
            BuildP <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2559	2686	
==>r {
	my($self)=shift;

	${$$self{NBERR}};
}

sub YYRecovering {
	my($self)=shift;

	${$$self{ERRST}} != 0;
}

sub YY <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2450	2565	
==>r {
	my($self)=shift;

	${$$self{NBERR}};
}

sub YYRecovering {
	my($self)=shift;

	${$$self{ERRST}} != 0;
}

sub YY <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39911	40056	
==>oad,
  'transcript-on'  => \&_op_transcript_on,
  'transcript-off' => \&_op_transcript_off,

#--------------------
#
# Macros
#
#----------------- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653401	653501	
==>terpreter, {{\@2}}, {{\@3}});\n    if (!{{\@1}} || !VTABLE_defined(interpreter, {{\@1}}))\n        re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654562	654662	
==>terpreter, {{\@2}}, {{\@3}});\n    if (!{{\@1}} || !VTABLE_defined(interpreter, {{\@1}}))\n        re <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	17297	17441	
==>=>"white" },
                        breed    => Breed->new(name=>'short-hair', cross=>1),
                   or:  breed    => {name=>'short-hair <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	42924	43058	
==>defined $row->[1]) {
      $label = $row->[1];
      $self->{code} .= $label . ' ' x ($max_len[1]-length($label)+2);
      $label = $ro <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	7953	8165	
==>e', @_) }
 # forces them to be processed, even when there's no ":".

sub _accept_targets {
  my($this, $type) = splice @_,0,2;
  foreach my $t (@_) {
    next unless defined $t and length $t;
    # TODO: enforce s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1565	1686	
==>=~ /[^\d\-]/;
    return () if $distance == 0;

    if ($distance == 1) {
        return "<rx_pos>++;";
    } elsif ($dist <==
2	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	50	194	
==>ndation.
# $Id: /parrot/examples/benchmarks/stress1.pl 19601 2006-05-30T13:32:26.641316Z coke  $

=head1 NAME

examples/benchmarks/stress1.pl - G <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	24537	24702	
==>self, $op, $R, $greedy, $lastback) = @_;
    return $greedy ? $self->rewrite_greedy_optional($op, $R, $lastback)
                   : $self->rewrite_nongreedy_optiona <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	27993	28117	
==>1][0] eq '=over') {
        DEBUG > 1 and print "=back happily closes matching =over\n";
        # Expected case: we're closi <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	4944	5040	
==>tive_to_source($source)>

Returns the contents of the item interpreted relative to the source
dir <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	127	278	
==>Z bernhard  $

=head1 NAME

Parrot::Docs::Section::Info - Project info documentation section

=head1 SYNOPSIS

    use Parrot::Docs::Section::Info;

=he <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173088	173301	
==>",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 218 \"src/ops/cmp.ops\"\n  if (0 != string_equal(interpreter,\n      {{\@1 <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	4141	4398	
==>$desc, :$todo, :$depends);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
}

## dies_ok

sub dies_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) { <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5155	5325	
==>n ops file into the
relevant C code.

=cut

sub goto_pop 
{
    my ($self) = @_;

    return $self->gen_goto($self->expr_pop(@_));
}

=item C<expr_offset($offset)>

Implem <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	11287	11389	
==>xt/javascript">//<![CDATA[[
    function toggle_visibility (id) {
      var elem     = document.getElem <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567523	567631	
==>{{\@1}} = {{\@2}}->vtable->does(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568418	568526	
==>{{\@1}} = {{\@2}}->vtable->does(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8328	8424	
==>uff"
print "I am the very model of a modern";tab$(15);"More"
print "Hello","Again",d
dim c$(1)
fo <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21192	21288	
==>uff"
print "I am the very model of a modern";tab$(15);"More"
print "Hello","Again",d
dim c$(1)
fo <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	49934	50119	
==>{
        # We saw " >>>>" but needed " >>>>>>".  So this is all just stuff!
        DEBUG > 4 and print " But it's really just stuff, because we needed more.\n";
        push @{ $lineag <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103878	1103966	
==>};\n\tINTVAL type = pmc_type(interpreter, class);\n\tif (!type) {\n\t\tParrot_autoload_cl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105093	1105181	
==>};\n\tINTVAL type = pmc_type(interpreter, class);\n\tif (!type) {\n\t\tParrot_autoload_cl <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	3283	3482	
==>tem C<has_suffix($suffix)>

Finds out whether the name suffix is C<$suffix>.

Note that if a name has no suffix and if C<$suffix> is the empty string
then this method will return true.

=cut

sub has_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11653	11780	
==>:Statement::Arithmetic->new($block, $ident, $ident, $op, $value);
      next;
    }

    #
    # Concat assign:
    #
    #   <v <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954306	954538	
==>rot_encoding_number_of_str(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955097	955329	
==>rot_encoding_number_of_str(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	58030	58212	
==>uring parentheses), you would
just make the last parameter undefined (or remove it).


=head2 C<gen_delimited_pat>

The C<gen_delimited_pat> subroutine takes a single (string) argumen <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452304	452567	
==>"
                            ],
                  "BODY" => "#line 225 \"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	1433	1532	
==>this case C<$foo eq $bar>).  If it's
true, the test passed.  If it's false, it didn't.  That's about <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	32949	33062	
==>ding.
    # Exit if plan() was never called.  This is so "require Test::Simple" 
    # doesn't puke.
    if( ($sel <==
2	/Users/nnunley/parrot/lib/Test/More.pm	6141	6240	
==>$this eq $that> is just a
simple example) and uses that to determine if the test succeeded or
failed <==
2	/Users/nnunley/parrot/lib/Test/More.pm	23487	23605	
==>ss( defined $how_many ) {
        # $how_many can only be avoided when no_plan is in use.
        _carp "todo_skip() ne <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	16536	16663	
==>ned $params ?
        ( "$return$params", "pcf_${return}_$params" ) :
        ( "$return", "pcf_${return}" ));

    push @{$put_ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	29349	29451	
==>ach(@{$code{$t}->{args}}) {
			push @{$code{$t}->{code}}, "\t.return $_\t# Returning arg\n";
		}
	}
	pu <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	3330	3474	
==>->directory_with_relative_path('compilers/imcc'),
        $self->directory_with_relative_path('include/parrot'),
    ;
}

=item C<c_header_file_w <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	73939	74044	
==>1]} = $text }

	$ERRORS = 0;
	return $retval;
}

sub _parserepeat($$$$$$$$$)	# RETURNS A REF TO AN ARRAY O <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	4624	4760	
==>olines) for @{$files};

    # FILE holds a space separated list of opsfile name
    if ($self->{FILE}) {
	$self->{FILE}=~s/, $//;
	$self- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1442	1579	
==>> $ident->line
  }, $class;

  $block->push_content($self);

  return $self;
}


#
# ACCESSORS:
#

sub ident { return shift->{IDENT}; }
su <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	20311	20479	
==>>{'group'}) {
                $pir .= "    if cur_ic == 0x$_->{'code'} goto B2_BRANCH_$prefix$_->{'code'}\n";
                $byte2_todo{"$prefix$_->{'code'}"} = $_->{' <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33377	33634	
==>r->[1] };
        push @opcodes3, new AssignOp( $parser,
            'result' => $var,
            'arg1'   => $expr->[0],
        );
        $expr = shift @{$exprs};
    }
    if (    scalar( @{$exprs} ) == 0
        and scalar( @{ $expr->[1] } ) != <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2970	3069	
==>p, Parrot_Interp interpreter)";
}

=item C<run_core_func_start()>

Returns the C code prior to the r <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	2938	3083	
==>IBPARROT$PATHQUOTE";
}

our $NOW = time();

################### MAIN PROGRAM ################

my ($mode, @pmcs) = @ARGV;

if ($mode eq 'generate' <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3042	3187	
==>IBPARROT$PATHQUOTE";
}

our $NOW = time();

################### MAIN PROGRAM ################

my ($mode, @pmcs) = @ARGV;

if ($mode eq 'generate' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	27395	27503	
==>ss $self->{DEBUG};

    my $method = "describe_" . $op->{name};
    my $desc = $op->{name};
    if ($self->ca <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	1263	1503	
==>@names{@names} = ();
    my $label = $self->mklabel();
    $self->{_label_comments}{$label->{label}} = join(", ", keys %names);
    return $label->{label};
}

=item method optimize(ops...)

 1. Merge equivalent labels
 2. Jump threading: Rep <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	11211	11316	
==>irs, $line, $file, $labels, $flags, $nolines)>

Returns a new C<Parrot::Op> instance for the specified arg <==
2	/Users/nnunley/parrot/config/init/manifest.pm	492	602	
==>MANIFEST';

@args = qw(nomanicheck);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('n <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr3.pm	139	289	
==>use strict;

use base 'Parrot::Test::Bc';

use Data::Dumper;

sub get_out_fn {
    my $self = shift;
    my ( $count, $options ) = @_;

    return Parr <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	7091	7189	
==>$prodcount = scalar @{$self->{"prods"}};
	my $opcount = ++$self->{"opcount"};
	return "_operator_${ <==
2	/Users/nnunley/parrot/Configure.pl	8240	8338	
==>rgs{debugging}) && !$args{debugging});
$args{maintainer} = 1 if defined $args{lex} or defined $args <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320006	320231	
==>{{\@1}} = (INTVAL)((Parrot_Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320776	321001	
==>{{\@1}} = (INTVAL)((Parrot_Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950989	951436	
==>=> "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1070,
                  "ARGS" => [
                              "s",
                              "sc",
                              "i"
                            ],
                  "BO <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13305	13404	
==>evar|<autoscore/)
	{
		# Do nothing
	}
	elsif (@items &&
		( ref($items[0]) =~ /\AParse::RecDescent: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514747	515051	
==>",
                  "CODE" => 593,
                  "ARGS" => [
                              "n",
                              "nc",
                              "n"
                            ],
                  "BODY" => "#line 708 \"src/ops/math.ops\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOAT <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667873	668372	
==>E" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 747,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 405 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->push_integer(interpreter, {{ <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	2127	2280	
==>ach my $fdecl (@$fdecls) {
        next unless ($fdecl =~ /\n/);
        my ($firstline,$secondline) = split /\n/, $fdecl;
        if ($firstline !~ /\(/) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584365	584476	
==>],
                  "BODY" => "#line 303 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585440	585551	
==>],
                  "BODY" => "#line 303 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	3931	4055	
==>\t$_[2] = $_[1] / $_[0]", $_[2]);
	},
	'=' => sub {
		my ($a1, $a2, $result, $op)=@_;
		$op="eq" unless $op;
		$result=~s/S/N <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1353	1446	
==>ddress)>

Returns the C code for C<ADDRESS($address)>. Called by C<goto_address()>.

=cut

sub <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	608	705	
==>1;


__END__

=head1 NAME

Pod::Simple::Methody -- turn Pod::Simple events into method calls

=hea <==
2	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	598	750	
==>bs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }
    if ($libs !~ /-laio/) {
        $libs .= ' -laio';
    }
    $conf->data-> <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	36323	36499	
==>ahead)
	{
		if ($min>0)
		{
		   return new Parse::RecDescent::Subrule($subrule,$lookahead,$line,$desc,$matchrule,$argcode);
		}
		else
		{
			Parse::RecDescent::_error("Not sym <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	896	991	
==>.

=head1 CONFIGURATION

You must specify paths to executables in a configuration file.
That fil <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1621	1816	
==>) {
    $compiler->emit(".sub __INLINE_" . $inline++);
    $compiler->indent;
  }

  $compiler->emit(".return()");
  $compiler->outdent;
  $compiler->emit(".end");

  return 1;
}


#
# sax()
#

su <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23414	23539	
==>(2..$#{$node->{children}}) {
    my $temp = $self->_generate($node->{children}[$_]);
    my $label = $self->_gensym();
    $se <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23876	24001	
==>(2..$#{$node->{children}}) {
    my $temp = $self->_generate($node->{children}[$_]);
    my $label = $self->_gensym();
    $se <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	3395	3545	
==>le = "$source_file (from $da_file)";
        }

        print "Processing $gcov_file ($source_file)\n";

        foreach (split "\n", $generated_files{ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9382	9498	
==>nt "Hi"
elseif t=1 then
	print "Wrong"
else
	print "Correct"
end if
if p$ = "Hello" then print "Whoa"

' Count by .5' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	46966	47105	
==>@@@@@@@@@@@@@@@@@


sub _treelet_from_formatting_codes {
  # Given a paragraph, returns a treelet.  Full of scary tokenizing code.
  #  Like <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8298	8441	
==>DRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLAGS" => ":base_loop,check_event",
                  "A <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9413	9556	
==>DRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLAGS" => ":base_loop,check_event",
                  "A <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	4089	4361	
==>g_types()>

Returns the types of the op's arguments.

=cut

sub arg_types
{
    my $self = shift;

    return @{$self->{ARGS}};
}

=item C<arg_type($index)>

Returns the type of the op's argument at C<$index>.

=cut

sub arg_type
{
    my $self = shift;

    return $self-> <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	20977	21170	
==>slt',
	    '<=' => 'isle',
	    'is' => 'issame',
	    'is not' => 'issame',
	    'in'   => 'exists'
	);
	my $res = temp('I');
	my $pres = temp('P');
	$op = $is_map{$c};
	my $isnot = '';
	if ($c <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16249	16394	
==>$x = shift;
            # Pod::Simple::HTML didn't check this.
            return $x unless $x;
            $x =~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	4359	4457	
==>urceline --  $syms[CURR]" if ($syms[CURR] ne "then");
		$singleif=1 if ($type[NEXT] ne "STMT" and $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32917	33110	
==>'}) {
            DEBUG > 1 and print " Numeric item has the expected value of $expected_value\n";
            
          } else {
            DEBUG > 1 and print " Numeric item has ", $para->[1 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2595	2714	
==>ight;

  if (defined $cond) {
    $handler->start_element({ Name => 'cond', Attributes => { kind => $cond } });
    $han <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3359	3478	
==>ight;

  if (defined $cond) {
    $handler->start_element({ Name => 'cond', Attributes => { kind => $cond } });
    $han <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503146	503308	
==>"
                            ],
                  "BODY" => "#line 626 \"src/ops/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	622055	622142	
==>lain opcode */\n    ((void**)cur_opcode)[0] =\n\tparrot_pic_opcode(interpreter, PARROT_O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623908	623995	
==>lain opcode */\n    ((void**)cur_opcode)[0] =\n\tparrot_pic_opcode(interpreter, PARROT_O <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	43886	44087	
==>efix to be matched at the very beginning of the text. If no prefix 
is specified, optional whitespace is the default. If no text is given,
C<$_> is used.

In a list context, an array of 11 elements is r <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3977	4100	
==>eeded; # need $needed more chars";
    }
}

sub output_match {
    my ($self, $code, $failLabel) = @_;
    my $comment = Reg <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	11279	11450	
==>$norm =~ tr[-_][]d;
    my $n;
    foreach my $enc (@supported) {
      $n = lc($enc);
      $n =~ tr[-_][]d;
      next unless $n eq $norm;
      $suggestion = "  (Maybe \ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736672	736903	
==>src/ops/set.ops\"\n  {{\@1}} = (FLOATVAL){{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737418	737649	
==>src/ops/set.ops\"\n  {{\@1}} = (FLOATVAL){{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18562	18690	
==>n;

      my @args = ();

      unless ($self->get(1)->is_close_paren) {
        while (1) {
          push @args, Jako::Construc <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19588	19716	
==>n;

      my @args = ();

      unless ($self->get(1)->is_close_paren) {
        while (1) {
          push @args, Jako::Construc <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	64444	64546	
==>re in this code, if
only because parts of it give the impression of understanding a great deal
more abo <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37440	37546	
==>first($text),
				  q{' . $rule->{"name"} . '})
					if defined $::RD_TRACE;').'
		$Parse::RecDescent::last <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39843	39949	
==>first($text),
				  q{' . $rule->{"name"} . '})
					if defined $::RD_TRACE;').'
		$Parse::RecDescent::last <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	15133	15305	
==>(@_);
}

sub scream {    # like whine, but not suppressable
  #my($self,$line,$complaint) = @_;
  my $self = shift(@_);
  ++$self->{'errors_seen'};
  return $self->_complain <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11932	12083	
==>ewrite DYNSUPER(args)
    s/DYNSUPER          # Macro: DYNSUPER
      \(\s*(.*?)\)      # capture argument list
     /"interpreter->vtables[$supertype]. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020946	1021346	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodetime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021787	1022187	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodetime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	11226	11368	
==>: $R;
    }

    return $str;
}

sub Regex::Ops::Tree::multi_match::needparen { 1 }
sub Regex::Ops::Tree::multi_match::render {
    my $op = sh <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	4222	4338	
==>im()
#
# Trim leading and trailing spaces.

sub _trim
{
    my $value = shift;

    $value =~ s/^\s+//;
    $value =~ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557759	557864	
==>\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next = {{^+3}};\n  STRING *meth;\n\n  obje <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559143	559248	
==>\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next = {{^+3}};\n  STRING *meth;\n\n  obje <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165485	165751	
==>99,
                  "ARGS" => [
                              "sc",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 190 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14669	14782	
==>.ops\"\n  opcode_t * const loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	15356	15469	
==>.ops\"\n  opcode_t * const loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	310020	310122	
==>bug.ops\"\n    const char *command;\n\n    if (!(interpreter->pdb->state & PDB_BREAK)) {\n        inter <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	7881	7996	
==>n  OLDERR, ">&STDERR" or die "Can't save     stderr" if $err;

    open  STDOUT, ">$out"    or die "Can't redirect s <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7931	8041	
==>n OLDERR, ">&STDERR" or die "Can't save     stderr" if $err;

    open STDOUT, ">$out" or die "Can't redirect s <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	4833	5040	
==>ce) = @_;

    my $f = undef;
    my $line = 0;
    foreach (@$source) {
        $line++;
        next unless $_;

        if (/^(\s*).*\{\s*$/) {
            # note the beginning of a block, and its indent d <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2139	2274	
==>{TEXT};
		$index_html = qq(<h2>$self->{NAME}  <a href="#_top"><img alt="^" border=0 src="../resources/up.gif"></a></h2>\n\n) . $index_ht <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2864	2985	
==>b1:
   PRINT "2 in subroutine one"
   GOSUB Sub2
   PRINT "ERR this line in subroutine one should be skipped"
Label2:
   P <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16831	16952	
==>b1:
   PRINT "2 in subroutine one"
   GOSUB Sub2
   PRINT "ERR this line in subroutine one should be skipped"
Label2:
   P <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	1689	1804	
==>m C<Parrot::OpsFile>

=item C<Parrot::Op>

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	26289	26483	
==>ags}{dynpmc}) {
        $cout .= $self->lib_load_code();
    }
    $cout;
}

=item C<gen_c($out_name)>

Generates the C implementation file code for the PMC. C<$out_name> is the name
of the outpu <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	1914	2171	
==>g tests for $file\n";
            open my $tfh, '>>', $test;
            print {$tfh} $output;
            close $tfh;
        };
    }
    return;
}
##
## checkout_tests()
##
## Checkout the tests from CVS into $DIR.
##
sub checkout_tests {
    print "Check <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	16466	16633	
==>ing the ops.
    .local pmc iter1
    iter1 = new .Iterator, $vector
  loop:    
    unless iter1 goto loop_done
    \$P1 = shift iter1
    \$S1 = typeof \$P1
    if \$ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	7423	7560	
==>, [ '<tmp>', $group ]),
                        $self->dbprint("pushing start[$group]: "),
                        aop('pushint', [ '<tmp> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1376	1505	
==>global \"$ident_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $han <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1370	1499	
==>global \"$ident_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $han <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	62842	62953	
==>e block was found that started with a delimiter that was specified
as being only to be used as an outermost brac <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736652	736803	
==>DY" => "#line 144 \"src/ops/set.ops\"\n  {{\@1}} = (FLOATVAL){{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737398	737549	
==>DY" => "#line 144 \"src/ops/set.ops\"\n  {{\@1}} = (FLOATVAL){{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015940	1016360	
==>, \"ascii\", 0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "time",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o"
                               ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015116	1015394	
==>, \"ascii\", 0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	17943	18196	
==>ets/gets the version number.

=cut

sub version
{
    my $self = shift;

    if (@_ == 1)
    {
        $self->{VERSION} = shift;
    }
    elsif (@_ == 3)
    {
        $self->{VERSION} = join('.', @_);
    }
    elsif (@_ == 0)
    {
        if (wantar <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	2349	2494	
==>r2 =~ s/^\[//;
    $dir1 =~ s/\[$//;
    $dir2 =~ s/\[$//;
    my @dir1 = split(/,/, $dir1);
    my @dir2 = split(/,/, $dir2);
    my (%dir1, %dir <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	777	911	
==>tput_fh'} ||= *STDOUT{IO};
  $new->nix_X_codes(1);
  $new->nbsp_for_S(1);
  $new->{'Thispara'} = '';
  $new->{'Indent'} = 0;
  $new->{' <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	6106	6220	
==>{
	print "$src -> $dest\n";
	next;
    }
    else {
	next unless -e $src;
	copy($src, $dest) or die "copy $src to $ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	5980	6133	
==>sts' ) {
        if( $arg ) {
            return $self->expected_tests($arg);
        }
        elsif( !defined $arg ) {
            die "Got an undefined <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	919	1050	
==>{.*$//s;

    return $PMC_PARENTS{$pmc} = lc($1) if m/extends\s+(\w+)/;
    return $PMC_PARENTS{$pmc} = 'default';
}

# Return an ar <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1070223	1070541	
==>ne",
                  "CODE" => 1194,
                  "ARGS" => [
                              "i",
                              "nc",
                              "nc"
                            ],
                  "BODY" => "#line 49 \"src/ops/experimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637662	637967	
==>tion",
                  "CODE" => 713,
                  "ARGS" => [
                              "p",
                              "ic",
                              "sc"
                            ],
                  "BODY" => "#line 107 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	3309	3544	
==>E: local labels?
    return "$label";
}

sub output_label_def {
    my ($self, $label, $reachable) = @_;
    my $comment = $self->{_label_comments}{$label->{label}};
    $comment = $comment ? "\n\t# $comment" : "";
    ($label = $label- <==
2	/Users/nnunley/parrot/config/inter/libparrot.pm	47	153	
==>Id: /parrot/config/inter/libparrot.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029886	1030074	
==>ot_sleep_on_event(interpreter, {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030728	1030916	
==>ot_sleep_on_event(interpreter, {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	2475	2615	
==>ed to subsections.

=cut

sub write_docs
{
    my $self = shift;
    my $silent = shift || 0;
    my $delete = shift || 0;
    my $dist = Par <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	6462	6610	
==>self->{all}{$entry->{meth}} = $entry->{section};
    }
}

=item C<make_const($class)>

If the PMC had its C<const_too> flag set then this method is c <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	4339	4436	
==>urn $dir->existing_file_with_name($module);
}

=item C<docs_directory()>

Returns the documentatio <==
2	/Users/nnunley/parrot/config/init/defaults.pm	2964	3184	
==>ddlflags},

        # Flags to tell ld to build a dynamically loadable module, e.g.
        # -shared for GNU ld.
        ld_load_flags     => $Config{lddlflags},

        libs => $Config{libs},

        cc_inc     => "-I <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648915	649140	
==>S" => [
                              "i",
                              "k"
                            ],
                  "BODY" => "#line 234 \"src/ops/pmc.ops\"\n    {{\@1}} = pmc_type_p(interpreter, {{\@2}});\n    {{+=3 <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16350	16443	
==>hmidt <iblech@web.de>

Gaal Yahas <gaal@forum2.org>

= COPYRIGHT

Copyright (c) 2005, 2006. Au <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210731	211206	
==>ase_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 248,
                  "ARGS" => [
                              "p",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 408 \"src/ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	23319	23486	
==>) = $self->rewrite($R, $rfail);
    my @ops = (
                        aop('pushmark', [ "+" ]),
               $loop => @R_ops,
                        aop('pushint', <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	39649	39762	
==>ys to look for automagicals and build up declaration list.
	my $decls = "";
	for (keys %$mv) {
		if (/^([INSP])_AR <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	66749	66884	
==>grammar =~ m/$BADREP/gco)
				{
					_parse("an subrule match with invalid repetition specifier", 0,$line);
					_error("Incorrect speci <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	40837	41040	
==>e start and end
tags). C<undef> is returned on failure. In addition, the original input
text has the returned substring (and any prefix) removed from it.

In a void context, the input text just has the ma <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	22586	22898	
==>= pop @stack;
    pop @stack;	# functions
    my $s = temp('S');
    print <<EOC;
	$s = $p->[1]
	$i = ord $s
EOC
    push @stack, [-1, $i, 'S'];
}

sub CALL_FUNCTION_VAR
{
    my ($n, $c, $cmt) = @_;
    $n++;	# its for sure not that simple
    # we have a tuple argumen
    my $tupl = $stack[-1];
    print <<EOC <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29860	30021	
==>83,
			"^" => 79,
			"*" => 80,
			"<=" => 85,
			'OR' => 84,
			")" => 148,
			">" => 86
		}
	},
	{#State 95
		ACTIONS => {
			"^" => 79
		},
		DEFA <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	5	110	
==>r/bin/perl
use strict;

my @results = ();
while (<>) {
	if (/^Translated (\d+) types out of (\d+) fro <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	5	110	
==>r/bin/perl
use strict;

my @results = ();
while (<>) {
	if (/^Translated (\d+) types out of (\d+) fro <==
2	/Users/nnunley/parrot/languages/m4/tools/scrutinize.pl	97	209	
==>is not below 't', in order to not interfere with regression testing.

=head1 TODO

Find a better name. 'perlcriti <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	13939	14159	
==>$a1=pushthing(\@code, \$ot1, @$op1);
			$a2=pushthing(\@code, \$ot2, @$op2);
			$optype=$ot2;
			if (exists $opsubs{$sym}) {
				if (! ref $opsubs{$sym}) {
					die "No op code yet for $sym\n";
				} else {
					my($code, <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	1352	1563	
==>/*
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically from '$pmcfile'
 * by $0.
 *
 * Any changes made here will be lost!
 *
 */

EOC
}

=item C<gen_ret($method, $body)>

Gene <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	5471	5889	
==>->relative_path_is_file($text)
            # A little bit of a hack to avoid config template files.
            and $text !~ /\.in$/o
            and $dist->file_with_relative_path($text)->contains_pod )
        {
            my $path = $self->append_html_suffix($text);
            my $file = $self->{TARGET}->file_with_relative_path($path);
    
            print {$self->{'output_fh'}} 
                $self->{'Tagm <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24854	24956	
==>extref,
				$match[2], $match[3]+$match[5]+$match[7],	# MATCH
				@match[8..9,0..1,2..7];				# REM, PRE <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7686	7786	
==>extref,
			$match[2], $match[3]+$match[5]+$match[7],	# MATCH
			@match[8..9,0..1,2..7];				# REM, PRE <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	480	595	
==>n
PDD 7.

To run it on all the C source code files in the distribution pass in
C<all_source> instead of a list of fi <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	4940	5081	
==>ame};
		if ($replace && !$self->{"changed"})
		{
			$self->reset;
		}
		return $self;
	}
	else
	{
		return $owner->{"rules"}{$name} =
			bless <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5396	5485	
==>'PIR'
inc stack_depth 
${STEMP0} = "$"
${STEMP1} = ${LOADTYPE}["reg_type_short"]
${STEMP0} <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10955	11090	
==>');
    $self->_morph ($pmc, $temp);
    $self->_restore ($temp);
    $temp = $pmc;
  }
  $self->_store_lex ($symbol,$temp);

  return $ <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	18358	18454	
==>ALL_FLAG, "function signature argument character 'v' ignored");
       signature = string_chopn(i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427939	428054	
==>th.ops\"\n  mmd_dispatch_v_pn(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428826	428941	
==>th.ops\"\n  mmd_dispatch_v_pn(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7047	7384	
==>) {
        if ($access eq 'var') {
          my $var    = Jako::Construct::Declaration::Variable->new($block, $type, $ident);
          my $assign = Jako::Construct::Statement::Assign->new($block, $ident, $value) if defined $value;
        }
        elsif ($access eq 'const') {
          my $const = Jako::Construct::Declaration::Consta <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4804	4956	
==>t

sub run_core_func_start
{
    return <<END_C;
#if defined(__GNUC__) && defined(I386) /* && defined(NO_DYNOPS) */
    register opcode_t *cur_opcode asm <==
2	/Users/nnunley/parrot/languages/regex/test.pl	4174	4352	
==>nt "ok $testnum\n";
        return 1;
    } else {
        print "not ok $testnum\n";
        print " == Received ==\n$actual_output\n";
        print " == Expected ==\n$output\n" <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	6314	6464	
==>il
#          match(e) or fail
#
# Note that the placement of the checks is *not* always optimal. But
# they should do a pretty decent job of making th <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	20	196	
==>ht (C) 2005, The Perl Foundation.
# $Id: /parrot/tools/dev/gen_manifest_skip.pl 19607 2006-05-30T15:23:20.183054Z coke  $

=head1 NAME

tools/dev/gen_manifest_skip.pl - generate <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	8066	8279	
==>_failmsg "Did not find prefix: /$pre/", pos $$textref;
		goto failed;
	}

	$opentagpos = pos($$textref);

	unless ($$textref =~ m/\G$ldel/gc)
	{
		_failmsg "Did not find opening tag: /$ldel/", pos $$textref;
		goto <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23807	23955	
==>8
		}
	},
	{#State 75
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRI <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25061	25205	
==>8
		}
	},
	{#State 78
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			' <==
2	/Users/nnunley/parrot/examples/benchmarks/oo6.pl	8	133	
==>-w
use strict;

my $o = new Foo();
for my $i (1 .. 500000) {
	$o->i($i);
	$o->j($i);
}
print $o->i, "\n";

package Foo;

sub n <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	5649	5766	
==>s %directories) {
	unless (-d $dir) {
	    # Make full path to the directory $dir
	    my @dirs;
	    while (! -d $dir <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33786	33914	
==>se {
              DEBUG and print "Can't assimilate following ", $paras->[0][0], "\n";
              push @$para, '';  # Just so <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35599	35727	
==>se {
              DEBUG and print "Can't assimilate following ", $paras->[0][0], "\n";
              push @$para, '';  # Just so <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8418	8549	
==>heck eq 'ERROR'
            or  do {
#DBG>				$debug & 0x04
#DBG>			and	print STDERR 
#DBG>				    "go to state $$states[$$stack <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8036	8163	
==>heck eq 'ERROR'
            or  do {
#DBG>				$debug & 0x04
#DBG>			and	print STDERR 
#DBG>				    "go to state $$states[$$stack <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6411	6528	
==>self->_restore($item);
    $item = $temp;
  }
  my $pair = $self->_new_pair;
  $self->_add_inst('', 'set', [$pair.'[0] <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	2221	2325	
==>umper::Useqq  = 1;
#$Data::Dumper::Terse  = 1;
#$Data::Dumper::Indent = 0;
use Getopt::Long;

use Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	8586	8736	
==>opt/local/lib -L/usr/local/lib',
             'lns' => '/bin/ln -s',
             'load_ext' => '.bundle',
             'longsize' => 4,
             ' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	5777	6053	
==>fail)$/) {
                    next BBLOCK;
                }
            }
	    $prev = $stmt;
	    $stmt = $stmt->{next};
	} while ($stmt && ! $stmt->{label});

	# Fallthrough reachable
	push @Q, $stmt if $stmt;
    }

    # Eliminate unreachable code
    my @output3; # Real <==
2	/Users/nnunley/parrot/examples/benchmarks/addit.pl	163	284	
==>ples/benchmarks/addit.pl - Variable Argument Subroutines

=head1 SYNOPSIS

    % time perl examples/benchmarks/addit.pl

= <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	835	954	
==>nd eq 'if' or $kind eq 'unless') {
    $left  = $self->left->compile($compiler);
    $op    = $self->op;
    $right = $s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1778	1901	
==>hody, it will instead do this
when it sees a "=head1 Hi there":

  $parser->start_head1( \%attributes ) if $parser->can('sta <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	1319	1425	
==>ot/Docs/POD2HTML.pm'),
            $self->new_item('', 'lib/Parrot/Docs/HTMLPage.pm'),
            $self->n <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1836	1945	
==>@@@@

sub _xml_escape {
  foreach my $x (@_) {
    # Escape things very cautiously:
    $x =~ s/([^-\n\t !\#\$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104531	1104929	
==>NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1223,
                  "ARGS" => [
                              "p",
                              " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103317	1103616	
==>NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 122 <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	939	1040	
==>s];
our $PERL = q[perl];
our $LOAD_EXT = qq[.bundle];
our $O = qq[.o];
our $CFLAGS = qq[-I/opt/local/i <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	943	1044	
==>s];
our $PERL = q[perl];
our $LOAD_EXT = qq[.bundle];
our $O = qq[.o];
our $CFLAGS = qq[-I/opt/local/i <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	102	203	
==>601 2006-05-30T13:32:26.641316Z coke  $

=head1 NAME

examples/mops/mops.c - Calculate M ops/s

=head1 <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	98	199	
==>601 2006-05-30T13:32:26.641316Z coke  $

=head1 NAME

examples/mops/mops.c - Calculate M ops/s

=head1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	251858	252154	
==>"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 293,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 708 \"src/ops/cmp.ops\"\n <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10830	10939	
==>t;
        ref($class)
    and $class=ref($class);

    my($self)=$class->SUPER::new( yyversion => '1.05', <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11830	11935	
==>t;
        ref($class)
    and $class=ref($class);

    my($self)=$class->SUPER::new( yyversion => '1.05', <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575632	575944	
==>);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subclass",
                  "FLAGS" => ":obje <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59024	59232	
==>cause
				       Parse::RecDescent::$rulename is already defined (it
				       is the standard method of all
				       parsers).");
			}
			$rule = new Parse::RecDescent::Rule($rulename,$self,$line,$replace) <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	7146	7275	
==>, ... ]);
            # declare struct, based on hash:
    struct( CLASS_NAME => { ELEMENT_NAME => ELEMENT_TYPE, ... });

    pack <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	24351	24581	
==>to be at the end
         #  when that loop back around to process the errata.
        next;
        
      } else {
        DEBUG and print "Okay, stack is empty now.\n";
      }
      
      # Try generating errata section, if ap <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832098	832180	
==>tack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}), STACK_EN <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832826	832908	
==>tack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}), STACK_EN <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113861	114089	
==>04 \"src/ops/bit.ops\"\n  {{\@1}} <<= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114600	114828	
==>04 \"src/ops/bit.ops\"\n  {{\@1}} <<= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21267	21407	
==>if($para_type eq '=end') { #/////////////////////////////////////////

      my $content = join ' ', splice @$para, 2;
      $content =~ s/^\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785699	786153	
==>[
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 887,
                  "ARGS" => [
                              "i",
                              "p",
                              "ki"
                            ],
                  "BODY" => "#line 417 \"src/ops/set.ops\"\n    {{\@1 <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	3520	3644	
==>%classes = ();
    foreach (@methods) {
        if ($classes{$_->{'class'}}) {
            push @{$classes{$_->{'class'}}}, $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653532	653640	
==>me, METH_NOT_FOUND,\n            \"Method '%s' not found\", string_to_cstring(interpreter, {{\@3}}));\n    {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654693	654801	
==>me, METH_NOT_FOUND,\n            \"Method '%s' not found\", string_to_cstring(interpreter, {{\@3}}));\n    {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614937	615048	
==>{\@2}}, {{\@3}});\n    if (offset < 0) {\n        real_exception(interpreter, next, NO_CLASS,\n            \"Cla <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616088	616199	
==>{\@2}}, {{\@3}});\n    if (offset < 0) {\n        real_exception(interpreter, next, NO_CLASS,\n            \"Cla <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	3449	3573	
==>ub is_unless        { return shift->is('unless');        }
sub is_until         { return shift->is('until');         }
sub is <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	31010	31172	
==>my ($var, $type) = each %{ $self->{_temps} }) {
        push @declarations, aop('declare' => [ $var, $type ]);
    }

    my @ops =
      ( $backup =>   aop('popin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150546	150843	
==>AGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 183,
                  "ARGS <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	3880	4047	
==>4,
 'Atilde'   , 195,
 'Auml'     , 196,
 'Aring'    , 197,
 'AElig'    , 198,
 'Ccedil'   , 199,
 'Egrave'   , 200,
 'Eacute'   , 201,
 'Ecirc'    , 202,
 'Euml'     , <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	15656	15837	
==>22,
			"+" => 24,
			'CODE' => 6,
			"(" => 10,
			"|" => 26,
			"*" => 27,
			"[" => 14,
			")" => 56,
			"." => 15
		},
		GOTOS => {
			'expr' => 28,
			'charclass' => 12,
			'rang <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240142	240248	
==>cmp.ops\"\n  INTVAL l = VTABLE_get_integer(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241090	241196	
==>cmp.ops\"\n  INTVAL l = VTABLE_get_integer(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8871	9040	
==>oto one
    if $I1 == 2 goto two
    if $I1 == 3 goto three
    if $I1 == 4 goto four
    if $I1 == 5 goto five
    if $I1 == 6 goto six
    if $I1 == 7 goto seven
    if <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10658	10779	
==>path
{
    my $self = shift;
    my $path = $self->path_for_file_with_relative_path(shift) || return;
    
    return $sel <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74303	74469	
==>$parser,$text,1,$_noactions,$argcode)))
		{
			$text = $_savetext;
			last;
		}
		push @tokens, $_tok if defined $_tok;
		last if ++$reps >= $min and $prevtextlen == l <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	1378	1625	
==>second(b() )
	b(5)=10
end sub
sub first(a() )
	call second(a())
end sub
dim t(),f()
call first(t())
print t(5)


' Expect OK
y=59.7363
x=19.506
if ( y > 0 ) and (x > 0) then
	print "OK"
end if



' Passing string arrays, expect 99 and "Hello"
funct <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	608	725	
==>second(b() )
	b(5)=10
end sub
sub first(a() )
	call second(a())
end sub
dim t(),f()
call first(t())
print t(5)

' Keys <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	1325	1608	
==>et_test_prog( $count, \%options );

        # This does not create byte code, but bc code
        {
            my $parrotdir = dirname( $self->{parrot} );
            my $lang_fn   = Parrot::Test::per_test( '.bc', $count );
            Parrot::Test::write_code_to_file( $code, $lang_ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	447	576	
==>extract_multiple

				&gen_delimited_pat
				&gen_extract_tagged

				&delimited_pat
			       ) ] );

Exporter::export_ok_tags('A <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34543	34666	
==>C<implements($method)>

Always true.

=cut

sub implements
{
    return 1;
}

=item C<body($method, $line, $out_name)>

Retu <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	10140	10307	
==>'new_p_ic') {
            $jit_func = "Parrot_jit_vtable_newp_ic_op";
            $opbody =~ /vtable->(\w+)/;
            $extern = 2;  # fake number
            #print <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	13885	14020	
==>UE
{
    my ($n, $c, $cmt) = @_;
    my $tos = promote(pop @stack);
    print <<EOC;
    	.pcc_begin_yield $cmt
	.return $tos
	.pcc_end_ <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	6096	6225	
==>} keys %{ $branches{$branch} }
    ];
  }

  $tmpl->param(branches => my $p = [
    map {{
      name       => $_,
      categorie <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	17030	17124	
==>eam has hit
the end of the document.

=item $parser->unget_token( $token )

=item $parser->unge <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54857	55116	
==>} = interpinfo(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55617	55876	
==>} = interpinfo(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9146	9342	
==>cstring_free(label);\n    interpreter->resume_flag = 2;\n    {{=0}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10262	10458	
==>cstring_free(label);\n    interpreter->resume_flag = 2;\n    {{=0}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656819	657136	
==>ined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 734,
                  "ARGS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193591	193873	
==>, {{\@1}}), {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194570	194852	
==>, {{\@1}}), {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	607	732	
==>esc) = @_;
  
    $count = $self->{builder}->current_test + 1;

    $desc = $language unless $desc;

    # Figure out how many <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	1261	1417	
==>ew Regex::Grammar;
    return $parser->YYParse(yylex => $lexer,
			    yyerror => sub {
				my $parser = shift;
				die "Error: expected ".join(" ", $parser- <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	3064	3171	
==>{
    my $test := compare_func($got, $expected);
    Test::proclaim($test, $desc, $todo, $got, "&compare_fun <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	11055	11235	
==>e\" codes -- it's a builtin!"
     if grep $new_code eq $_, @Known_formatting_codes;

    delete $this->{'accept_codes'}{$new_code};

    DEBUG > 2 and print "OK, won't accept the c <==
2	/Users/nnunley/parrot/lib/File/Which.pm	4135	4231	
==>fy them, C<File::Which> takes extra steps to assure that you
will find the correct file (so for e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035657	1035751	
==>terpreter, lex_pad, lex_name);\n    if (!result) {\n\treal_exception(interpreter, NULL, LEX_NOT <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036821	1036915	
==>terpreter, lex_pad, lex_name);\n    if (!result) {\n\treal_exception(interpreter, NULL, LEX_NOT <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	8232	8376	
==>$show++;
			} else {
			    $$show = 0;
			}
		    }
		}
		want_show(\$show, $Code,   $code  ) if $show;
		want_show(\$show, $Data,   $data  ) if <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	441	649	
==>cursively (see the C<files()> method
in C<Parrot::IO::Directory>).

If an item has more than one file associated with it, and has no text,
then an attempt will be made to extract short descriptions from each
f <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	11924	12156	
==>4$5_op";
            $extern = vtable_num($3);
            #print $op->full_name .": $jit_func $extern\n";
        }
        # *) $X->vtable->{vtable}(interp, $Y, $Z, $A)
        elsif ($opbody =~ /
        ^(?:.*\.ops")\s+
        { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436500	436588	
==>math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437515	437603	
==>math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9622	9795	
==>self->dbprint("POPPED[\%<<rx_tmp>>] INT: \%<$reg>$desc\n"),
                );
    } else {
        return ($self-> popop . " $reg, <rx_stack> # popint");
    }
}

sub output <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3608	3701	
==>,$checklist,$inarray,$outhash)=@_;
	my($prm,$value);
	my($prmlst)={};

	while(($prm,$value <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3420	3509	
==>,$checklist,$inarray,$outhash)=@_;
	my($prm,$value);
	my($prmlst)={};

	while(($prm,$value <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10288	10387	
==>err, str_ic, tmp
    .local int pc, next_pc, bc_length, cur_ic, pop_count, label_num, sp_dest
    .l <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	56684	56908	
==>MMITMK/gco)
			{
				_parse("an commit marker", $aftererror,$line);
				$item = new Parse::RecDescent::Directive('$commit = 1',
								  $lookahead,$line,"<commit>");
				$prod and $prod->additem($item)
				      or  _no_rul <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53977	54133	
==>Descent::Directive(
					      'if ($text =~ s/\A'.$1.'//) { $return = 0; $& } else { undef }',
					      $lookahead,$line,$code);
				$prod and $prod->addi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81169	81537	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compile",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82062	82430	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compile",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
2	/Users/nnunley/parrot/lib/Test/More.pm	5282	5466	
==>sign a name to each test.  Which would you rather see:

  ok 4
  not ok 5
  ok 6

or

  ok 4 - basic multi-variable
  not ok 5 - simple exponential
  ok 6 - force == mass * acceleration <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	11500	11635	
==>$reg_num);";
        return "t_$temp_num";
    };
    /2/ && do {
        push @{$temps_ref}, "PMC* t_$temp_num;";
        push @{$extra <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2023	2131	
==>efix($self->peer->prefix);
  }

  if ($self->prefix) {
    $handler->start_element({ Name => 'loop', Attribut <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	274	368	
==>rrot::Test::Bc::Posix;

=head1 NAME

Test/Bc.pm - Testing routines specific to 'bc'.

=head1 DE <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	10442	10542	
==>C<struct>.

The I<ELEMENT_LIST> has the form

    NAME => TYPE, ...

Each name-type pair declares one <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39707	39820	
==>rot::Pmc2c::deleg_pmc;
use base 'Parrot::Pmc2c';
import Parrot::Pmc2c qw( gen_ret );

=item C<implements($method)> <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1470	1587	
==>n,$value,$check,$dotpos);
    my($self)={ ERROR => \&_Error,
				ERRST => \$errst,
                NBERR => \$nberr <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1420	1534	
==>n,$value,$check,$dotpos);
    my($self)={ ERROR => \&_Error,
				ERRST => \$errst,
                NBERR => \$nberr <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20787	20876	
==>oit(4).first=111111
call foo()
print thing$,
print bar(5),
print lot$(2),
print narf.first <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	43400	43557	
==>s a formatty line.  ",
       "Peeking at previous line ", $i-1, ": $$p[$i-1]: \n";
      
      if( $p->[$i-1] =~ m{^#:[ \^\/\%]*\n?$}s ) {
        DEBUG > 5 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87237	87466	
==>",
                              "p",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 1215 \"src/ops/core.ops\"\n  {{\@1}} = Parrot_make_cb(int <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	13946	14111	
==>quo;</a></td>
          </tr>
          <tr class="details" id="details_<tmpl_var name=id>">
            <td colspan="12" class="indent3">
              <tmpl_loop na <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	953	1078	
==>d for current stack to register mapper\n";
}

# Pre and post branch operation hooks.
sub pre_branch {
	die "pre_branch not imp <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1179	1301	
==>r use by the Pod::Simple test suite, but you may find
some other use for it.

This is a subclass of L<Pod::Simple> and inhe <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1885	2072	
==>ef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  if (!defined $cond) {
    $compiler->emit("  goto _LABEL_$name");
  } else <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10226	10463	
==>1]));
    }

    # Convert "a-b" to [97,98] and "a" to [97,97]
    my @ranges;
    foreach (@$pieces) {
        my ($first, $last);
        if (ref $_) {
            ($first, $last) = @$_;
        } else {
            ($first, $last) = ($ <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6840	7031	
==>uncs  = q{};
    my $protos = q{};

    for my $entry (@$vtable)
    {
        my ($return_type, $name, $params, $section, $mmd) = @$entry;
        next unless $mmd eq '-1';

        my @param <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	1883	1986	
==>ation.pod')
		),
		$self->new_group('Library', '',
		    $self->new_item('PASM/IMC access to Parrot conf <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627847	628231	
==>RGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 704,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 53 \"src/ops/pmc.ops\"\n <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	14087	14284	
==>llOp') )
        {
            my $result;
            my $callop = pop @{ $expr->[1] };
            my $nil = BuildLiteral( $parser, 'nil', 'nil' );
            push @{ $expr->[1] }, @{ $nil-> <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4727	4842	
==>) =~ /--destination=(.*)/
      or die "copy command requires destination";
    my $dest = $1;

    my ($group_files <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4831	4946	
==>) =~ /--destination=(.*)/
      or die "copy command requires destination";
    my $dest = $1;

    my ($group_files <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	10179	10311	
==>Parrot_jit_vtable_newp_ic_op";
            $opbody =~ /vtable->(\w+)/;
            $extern = 2;  # fake number
            #print "$j <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2864	2956	
==>xt::Wrap::wrap($indent, $indent, $self->{'Thispara'} .= "\n");
  $out =~ tr{\xA0}{ } if Pod:: <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2398	2490	
==>xt::Wrap::wrap($indent, $indent, $self->{'Thispara'} .= "\n");
  $out =~ tr{\xA0}{ } if Pod:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48608	48824	
==>n  else         { Interp_flags_CLEAR(interpreter, PARROT_BOUNDS_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49398	49614	
==>n  else         { Interp_flags_CLEAR(interpreter, PARROT_BOUNDS_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1423	1543	
==>urn 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'op', At <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1417	1537	
==>urn 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'op', At <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	1641	1805	
==>busted when threads are off.
    # We emulate it here.
    else {
        *share = sub { return $_[0] };
        *lock  = sub { 0 };
    }
}


=head1 NAME

Test::Bui <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2759	2905	
==>ing directory.  In order to be
    # compatible with both pre/post version 3.13 we're normalizing the current
    # working dir to be '.'.
    retu <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7141	7235	
==>${STEMP0} = ${LOADTYPE}["reg_type_short"]
${DEST0} = concat ${STEMP0}
${STEMP0} = stack_depth
$ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4963	5057	
==>${STEMP0} = ${LOADTYPE}["reg_type_short"]
${DEST0} = concat ${STEMP0}
${STEMP0} = stack_depth
$ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2150	2350	
==>self, $tweak_indent) = splice(@_,0,2);
  my $indent = ' ' x ( 2 * $self->{'Indent'} + 4 + ($tweak_indent||0) );
   # Yes, 'STRING' x NEGATIVE gives '', same as 'STRING' x 0

  $self->{'Thispara'} =~ tr <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	864	976	
==>Value::Identifier));
  confess "Value (" . ref($value) . ") is not!" unless UNIVERSAL::isa($value, qw(Jako::Const <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10550	10667	
==>efined $section and length($section .= '') ) 
    {
        $section =~ tr/ /_/;
        $section =~ tr/\x00-\x1F\x80- <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3945	4048	
==>efined $section and length($section .= '')) {
    $section =~ tr/ /_/;
    $section =~ tr/\x00-\x1F\x80- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18619	18725	
==>_close_paren) {
        while (1) {
          push @args, Jako::Construct::Expression::Value->new($block, $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19645	19751	
==>_close_paren) {
        while (1) {
          push @args, Jako::Construct::Expression::Value->new($block, $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581763	581933	
==>,
                              "sc"
                            ],
                  "BODY" => "#line 289 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(inter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583069	583239	
==>,
                              "sc"
                            ],
                  "BODY" => "#line 289 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(inter <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	11246	11382	
==>y =~ /
        ^(?:.*\.ops")\s+
        {{\@(\d)}}->vtable->
        (\w+)
        \(interpreter,
        \s*
        {{\@(\d)}},\s*{{\@( <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	12116	12252	
==>y =~ /
        ^(?:.*\.ops")\s+
        {{\@(\d)}}->vtable->
        (\w+)
        \(interpreter,
        \s*
        {{\@(\d)}},\s*{{\@( <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	32446	32561	
==>lly reliable.  5.005_03 and 5.6.1 both do the wrong thing
    # with it.  Instead, we use caller.  This also means i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783183	783455	
==>"CODE" => 884,
                  "ARGS" => [
                              "p",
                              "kic",
                              "sc"
                            ],
                  "BODY" => "#line 387 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_strin <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	1448	1531	
==>IR)/ops2c.pl lib/Parrot/OpsFile.pm lib/Parrot/Op.pm lib/Parrot/OpTrans/CGoto.pm lib/ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	3563	3674	
==>, '',
            $self->new_item('', 'tools/dev/gen_charset_tables.pl'),
            $self->new_item('', 'tools <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	2815	2965	
==>iff($from, $to, $ignorePattern)>

Copies the file specified by C<$from> to the location specified by C<$to> if
it's contents have changed.

The regular <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9728	9849	
==>d	print STDERR "**Dicard invalid token ".&$ShowCurToken.".\n";

			$$token=$$value=undef;
		};

        $$errstatus=3 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9290	9406	
==>d	print STDERR "**Dicard invalid token ".&$ShowCurToken.".\n";

			$$token=$$value=undef;
		};

        $$errstatus=3 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478930	479162	
==>ivide by zero\");\n  {{\@1}} = floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479822	480054	
==>ivide by zero\");\n  {{\@1}} = floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	44870	44973	
==>.([1-9]\d*)'.$SIMPLEPAT.'\)';
my $BADREP		= '\G\((-?\d+)?\.\.(-?\d+)?'.$SIMPLEPAT.'\)';
my $ACTION		= '\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1096829	1097032	
==>lements(interpreter, ns) < 2)\n    {\n        real_exception(interpreter, NULL, NO_CLASS, \n            \"Attempt to get class name of a non-class.\");\n    }\n    else\n    {\n        PMC *key_tail, *key <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063337	1063441	
==>"#line 253 \"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064207	1064311	
==>"#line 253 \"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	4462	4628	
==>]?-1:0,
	      }, $_[0];
}

sub FETCH    
{
	my $parser = $_[0]->{parser};
	return $parser->{fulltextlen}-length(${$_[0]->{text}})+$_[0]->{prev};
}

sub STORE
{
	die " <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	203	334	
==>umentation section

=head1 SYNOPSIS

	use Parrot::Docs::Section::BigNum;

=head1 DESCRIPTION

A documentation section describing Par <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	126	243	
==>ense
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Type/String.pm 19606 2006-05-30T1 <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	10039	10182	
==>*x+1))
    $N1 = op2 * op2
    inc $N1
    $N1 = sqrt $N1
    $N1 += op2
    $N1 = ln $N1
    .return ($N1)
neg_six:   # arccosh(x) = ln(x+sqrt( <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	12519	12639	
==>y $rdel_inner = $ldel_inner;
	my $rdel_outer = $ldel_outer;
	my $posbug = pos;
	for ($ldel_inner, $ldel_outer) { tr/[]()< <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	564	658	
==>t, @items)>

Returns a new group.

Use this when creating groups within a C<Parrot::Docs::Secti <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5929	6038	
==>{
    next unless ($entry->[4] =~ /MMD_/);
    next if ($entry->[4] =~ /_INT$/);
    next if ($entry->[4] =~ / <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6347	6456	
==>{
    next unless ($entry->[4] =~ /MMD_/);
    next if ($entry->[4] =~ /_INT$/);
    next if ($entry->[4] =~ / <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	627	743	
==>($stem) = $type =~ /^P6C::(\w+)$/
      or confess "Unrecognized type '$type' (tree=$tree)";
    my $function = "conv <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	6489	6763	
==>ither does PARROT_IN_CORE.

    my @stack;
    my $line = 0;
    foreach (@$source) {
        $line++;
        next unless defined $_;

        if (/^\s*\#(\s*)(ifndef|ifdef|if)\s+(.*)/) {
            next if (/PARROT_IN_CORE|_GUARD/);

            my $indent = "  " x (@stac <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	352	449	
==>1] }
sub tag { shift->tagname(@_) }

sub is_tagname { $_[0][1] eq $_[1] }
sub is_tag { shift->is_t <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3352	3491	
==>{fn} or exists $props{fnlib}) {
    my $fnlib;

    if (exists $props{fnlib} and $props{fnlib}) {
      $fnlib = $props{fnlib}->value; # TOD <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6016	6155	
==>{fn} or exists $props{fnlib}) {
    my $fnlib;

    if (exists $props{fnlib} and $props{fnlib}) {
      $fnlib = $props{fnlib}->value; # TOD <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	924	1022	
==>and not UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');
  confess "Left i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	952	1050	
==>and not UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');
  confess "Left i <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	45508	45626	
==>ot in ASCIIland, we can't assume that \xA0 == nbsp.)
       
       # Note that if you apply nbsp_for_S to text, and so <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	2685	2880	
==>=> [],
    skip_bench   => [],
);

# Read Command Line Options
GetOptions(
    'conf=s'       => \$cfg{config_file},
    'directory=s'  => \$cfg{bench_path},
    'list'         => \$cfg{list_only} <==
2	/Users/nnunley/parrot/lib/Test/More.pm	1349	1535	
==>e' ); }
  require_ok( 'Some::Module' );

  # Various ways to say "ok"
  ok($this eq $that, $test_name);

  is  ($this, $that,    $test_name);
  isnt($this, $that,    $test_name);

  # Rat <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	11	112	
==>tion.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subje <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	1333	1454	
==>nf->data->add(' ', linkflags => '-L/sw/lib');
            $conf->data->add(' ', ldflags   => '-L/sw/lib');
            $co <==
2	/Users/nnunley/parrot/config/auto/readline.pm	1422	1543	
==>nf->data->add(' ', linkflags => '-L/sw/lib');
            $conf->data->add(' ', ldflags   => '-L/sw/lib');
            $co <==
2	/Users/nnunley/parrot/config/inter/progs.pm	3324	3598	
==>);

    $libs = $conf->data->get('libs');
    $libs = join ' ', grep { $^O =~ /VMS|MSWin/ || !/^-l(c|gdbm(_compat)?|dbm|ndbm|db)$/ }
        split(' ', $libs);
    $libs = integrate($libs, $conf->options->get('libs'));
    $libs = prompt("What libraries should your C compile <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	48472	48600	
==>extract_quotelike("$var");


=head2 C<extract_codeblock>

C<extract_codeblock> attempts to recognize and extract a balanced
brack <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	36471	36588	
==>le_p,
  'char>=?'          => \&_op_char_ge_p,
  'char-ci=?'        => \&_op_char_eq_p,
  'char-ci<?'        => \&_op_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2273	2384	
==>->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = $op->{op} $op->{arg1}->{symbol}, $op->{ar <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	12040	12162	
==>-

sub _handle_encoding_second_level {
  # By time this is called, the encoding (if well formed) will already
  #  have bee <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Examples.pm	432	533	
==>es;

use strict;
use warnings;

use base qw( Parrot::Docs::Section );

use Parrot::Docs::Item;
use Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	4364	4464	
==>alue;
}

=item C<new(@files)>

Returns a new instance initialized by calling C<read_ops()> on each of <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149172	149269	
==>{{\@1}}->vtable->get_number(interpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150113	150210	
==>{{\@1}}->vtable->get_number(interpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4} <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	13686	13886	
==>mand(qq{$PConfig{make} EXEC=$exec_f exec},
                                    CD     => $path_to_parrot,
                                    STDOUT => $out_f,
                                    STDER <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9181	9404	
==>er->resume_flag = 2;\n    {{=0}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10297	10520	
==>er->resume_flag = 2;\n    {{=0}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1037	1137	
==>tch.

=head1 DESCRIPTION

This class is of
interest to people writing Pod formatters based on Pod::Si <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1752	1851	
==>ttern)
    );

    goto &Parrot::Test::pir_output_is;
}

=item C<p6rule_isnt($target, $pattern, $des <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	3396	3503	
==>nd if C<$suffix> is the empty string
then this method will return true.

=cut

sub has_suffix
{
    my $self <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	3468	3588	
==>'', 'tools/util/smokeserv-README.pod'),
        ),
        $self->new_group('Possibly obsolete', '',
            $self->n <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5313	5416	
==>};

    my $verbose = defined $self->get('verbose') && $self->get('verbose') == 2;

    print "Looking u <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	13667	13945	
==>_line' => $m},
        $_
        #]
        ],
        @{$self->{'errata'}{$line}}
      )
    ;
  }
  
  # TODO: report of unknown entities? unrenderable characters?

  unshift @out,
    ['=head1', {'start_line' => $m, 'errata' => 1}, 'POD ERRORS'],
    ['~Para', {'start_line' <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6196	6382	
==>ists($$actions{DEFAULT})
                        ?   $$actions{DEFAULT}
                        :   undef;
        }
        else {
            $act=$$actions{DEFAULT};
#DBG>			$deb <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5906	6086	
==>ists($$actions{DEFAULT})
                        ?   $$actions{DEFAULT}
                        :   undef;
        }
        else {
            $act=$$actions{DEFAULT};
#DBG>			$deb <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	803	954	
==>\(\)])/
      sprintf( (ord($1) < 256) ? "\\x%02X" : "\\x{%X}", ord($1))
    /eg;
  }
  return join ', ', @out;
}


__END__

=head1 NAME

Pod::Simple::P <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	12319	12439	
==>sult = new 'APLVector'

    .local pmc iter
    iter = new .Iterator, op2

    if op1 >= 0 goto pos_loop
    iter = 4 # I <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	14858	15081	
==>S.back
#                goto T.back
#          next:
#
sub rewrite_alternate {
    my ($self, $op, @args) = @_;
    my $lastback = pop(@args);

    my $back = $self->genlabel('alt_back');
    my $next = $self->genlabel('alt_ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	2892	2981	
==>r@hargray.com

=head1 SEE ALSO

L<Scheme>, L<Scheme::Tokenizer>, L<Scheme::Generator>

=cu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054374	1054467	
==>o get from null namespace.\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to get null <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055501	1055594	
==>o get from null namespace.\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to get null <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	130	417	
==>ed by depth. This eliminates the need for a stack.
# In addition, it does "lazy" moves as far as are possible so as to produce
# better code.
# Inherits from SRM::Base.

package SRM::OptRegister;
use strict;
use SRM::Base;
our @ISA = qw/SRM::Base/;

# Constructor. Just base this class on <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063330	1063432	
==>DY" => "#line 253 \"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = V <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064200	1064302	
==>DY" => "#line 253 \"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = V <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2746	2850	
==>fset)>.

=cut

sub restart_offset
{
    my ($self, $offset) = @_;

    return "interpreter->resume_offset <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4081	4185	
==>fset)>.

=cut

sub restart_offset
{
    my ($self, $offset) = @_;

    return "interpreter->resume_offset <==
2	/Users/nnunley/parrot/config/init/defaults.pm	1752	2021	
==>ays tell ICU what to
        # use.
        cxx => '',

        # Linker, used to link object files (plus libraries) into
        # an executable.  It is usually $cc on Unix-ish systems.
        # VMS and Win32 might use "Link".
        # Perl5's Configure doesn't disti <==
2	/Users/nnunley/parrot/lib/File/Which.pm	5187	5287	
==><$short_exe_name> is the name used in the shell to call the program (for
example, C<perl>).

If it fi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6995	7440	
==>PARROT_JUMP_RELATIVE|PARROT_JUMP_GNEXT",
                  "NAME" => "branch",
                  "FLAGS" => ":base_loop",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 10,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 171 \"src/ops/core.o <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	357	473	
==>st_prog {
    my $self = shift;
    my ( $path_to_parrot, $path_to_language, $count ) = @_;
 
    
    my $test_prog_ <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	375	485	
==>st_prog {
    my $self = shift;
    my ( $path_to_parrot, $path_to_language, $count ) = @_;

    my $test_prog_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444070	444536	
==>e_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 508,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "sc <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29170	29306	
==>/\$\{DEST0\}/ || $rule->{'instruction'} =~ /\$\{DEST0\}/) {
			$need_dest = 1;
		} elsif ($rule->{'pir'} =~ /\$\{LOADREG\}/ || $rule->{'i <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	20920	21108	
==>line 137 "lib/Regex/Grammar.y"
{ return op('call' => [ $_[2], 0 ]) }
	],
	[#Rule 25
		 'expr', 4,
sub
#line 139 "lib/Regex/Grammar.y"
{ return op('group', [ op('call' => [ $_[3], 1 ]), ++$: <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	14316	14430	
==>er be namespace of func
	    # but can't create namespace yet
	    my $gn = "def_arg_" . ($n-$i-1);
	    print <<EO <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	5667	5919	
==>> 'import32.lib cw32.lib',

            link      => ${cc},
            linkflags => '',

            ar       => 'tlib',
            ar_flags => '',
            ar_out   => '',
            ar_extra => '/au',
            slash    => '\\',
            bl <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	725	826	
==>the return type of the block.

The PREFIX tells the prefix that will be used for block-related labels. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653354	653453	
==>\n    {{\@1}} = {{\@2}}->vtable->find_method(interpreter, {{\@2}}, {{\@3}});\n    if (!{{\@1}} || !V <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654515	654614	
==>\n    {{\@1}} = {{\@2}}->vtable->find_method(interpreter, {{\@2}}, {{\@3}});\n    if (!{{\@1}} || !V <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089627	1089881	
==>GS" => [
                              "p",
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 186 \"src/ops/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(inte <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62684	62800	
==>ore subrule match", $aftererror,$line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						s <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63395	63511	
==>ore subrule match", $aftererror,$line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $grammar;
						s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094711	1094980	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exec",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inli <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095405	1095674	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exec",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inli <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	2628	2737	
==>hat the C<use Pod::Simple::Debug (\$x, I<somenum>)> mode will make
Pod::Simple (et al) run rather slower, sinc <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2221	2439	
==>elf, $var, $arg1, $arg2) = @_;
    my $realvar = value($var);
    return "add $realvar, $arg1, $arg2" if defined($arg2);
    return "add $realvar, $arg1";
}

sub output_sub {
    my ($self, $var, $amount) = @_;
    $amo <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	3978	4164	
==>('slash');
    (my $TEMP_pmc_classes_o   = $TEMP_pmc_o)   =~ s/^| / src${slash}pmc${slash}/g;
    (my $TEMP_pmc_classes_str = $TEMP_pmc_str) =~ s/^| / src${slash}pmc${slash}/g;
    (my $T <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627407	627499	
==>s the registers. */\n  {{\@1}} = pmc_new_noinit(interpreter, {{\@2}});\n  {{\@1}}->vtable->in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628551	628643	
==>s the registers. */\n  {{\@1}} = pmc_new_noinit(interpreter, {{\@2}});\n  {{\@1}}->vtable->in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29366	29462	
==>tx = CONTEXT(interpreter->ctx);\n    ccont = ctx->current_cont;\n\n    caller_ctx = ctx->caller_c <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2490	2609	
==>ef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  if (de <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3164	3283	
==>ef;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  if (de <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605370	605605	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "addattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606160	606395	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "addattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223466	223636	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 516 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpr <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	1582	1852	
==>docs/porting_intro.pod'),
			$self->new_item('', 'docs/debug.pod'),
			$self->new_item('', 'docs/debugger.pod'),
			$self->new_item('', 'docs/tests.pod'),
			$self->new_item('', 'docs/embed.pod'),
		),
		$self->new_group('Development Documentation', '', 'docs/dev'),
		$s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41454	41542	
==>dle_element_end($scratch=$name);
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	16558	16681	
==>iter1 goto loop_done
    \$P1 = shift iter1
    \$S1 = typeof \$P1
    if \$S1 != 'String' goto got_args
    %% DOMAIN_ERROR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931822	931923	
==>BODY" => "#line 415 \"src/ops/string.ops\"\n  {{\@1}} = string_upcase(interpreter, {{\@2}});\n  {{+=3} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932593	932694	
==>BODY" => "#line 415 \"src/ops/string.ops\"\n  {{\@1}} = string_upcase(interpreter, {{\@2}});\n  {{+=3} <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	245	339	
==>L;

=head1 DESCRIPTION

C<Parrot::Docs::POD2HTML> subclasses C<Pod::Simple::HTML> to provide
va <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1220	1417	
==>LL$suffix
SRM_LMKILL_EXIT$suffix:
PIR
    $pir =~ s/\$suffix/$suffix/g;
    return $pir;
}


# Pre-translation hook.
sub pre_translation() {
	# We need a stack depth and a string for label gen and s <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	39710	39813	
==>4";

	extract_tagged($text, '/para', '/endpara', undef,
				{reject => '/para', fail => MAX );

	# EXTRA <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	40024	40126	
==>4";

	extract_tagged($text, '/para', '/endpara', undef,
			{reject => '/para', fail => MAX );

	# EXTRA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452942	453199	
==>9,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 230 \"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	658	763	
==>e "$0: $infile: $!" unless -e $infile;

my %known_strings = ();
my @all_strings;

&read_all;
open ALL, '>> <==
2	/Users/nnunley/parrot/config/auto/env.pm	114	209	
==>Z coke  $

=head1 NAME

config/auto/env.pm - System Environment

=head1 DESCRIPTION

Determining <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2888	2993	
==>$indent, $self->{'Thispara'} .= "\n");
  $out =~ tr{\xA0}{ } if Pod::Simple::ASCII;
  print {$self->{'outp <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2422	2527	
==>$indent, $self->{'Thispara'} .= "\n");
  $out =~ tr{\xA0}{ } if Pod::Simple::ASCII;
  print {$self->{'outp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009332	1009630	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compose",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010096	1010394	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compose",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => " <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	3265	3363	
==>a .xyz suffix.

=item C<has_suffix($suffix)>

Finds out whether the name suffix is C<$suffix>.

Not <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50116	50211	
==>s/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_PROFILE_FLAG); }\n  el <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50909	51004	
==>s/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_PROFILE_FLAG); }\n  el <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	2508	2627	
==>ol not found!", $ident)
        unless $sym;

      if (not UNIVERSAL::isa($sym->type, 'Jako::Construct::Type::String')) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1866	2358	
==>r -e \
     "print Dumper(Pod::Simple::SimpleTree->new->parse_file(shift)->root)" \
     ptest.pod
  
  $VAR1 = [
            'Document',
            { 'start_line' => 1 },
            [
              'head1',
              { 'start_line' => 1 },
              'PIE'
            ],
            [
              'Para',
              { 'start_line' => 3 },
              'I like ',
              [
                'B',
                {},
                'pie'
              ],
              '!' <==
2	/Users/nnunley/parrot/lib/Test/More.pm	20712	20822	
==>to 1.

It's perfectly safe to nest SKIP blocks.  Each SKIP block must have
the label C<SKIP>, or Test::More can <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	29955	30057	
==>r undef if none. (E.g., in "L<Perl
# Functions|perlfunc>", the name -- also sometimes called the page - <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1489	1618	
==>lass for
yourself, but if you want to, call
C<<
Pod::Simple::PullParserEndToken->new( I<tagname> )
>>

=head1 SEE ALSO

L<Pod::Sim <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	24357	24519	
==>file($build_f));
                unlink $build_f;
                $builder->ok(0,$desc);
                return 0;
            }

        my $cfg = "src$PConfig{sl <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6133	6226	
==>POST_BRANCH_switch_${CURIC}
${ITEMP0} = ${NEXTPC} + I_arg_0 # XXX Can't use ${ARG0} :-(
prop_t <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4071	4164	
==>POST_BRANCH_switch_${CURIC}
${ITEMP0} = ${NEXTPC} + I_arg_0 # XXX Can't use ${ARG0} :-(
prop_t <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4498	4615	
==>for i = 0 to 1
for j = 0 to 1
print i; j;
if i and j then a$="True  " else a$="False "
if i or  j then b$="True  " els <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17569	17686	
==>for i = 0 to 1
for j = 0 to 1
print i; j;
if i and j then a$="True  " else a$="False "
if i or  j then b$="True  " els <==
2	/Users/nnunley/parrot/examples/benchmarks/stress.pl	710	796	
==>amples/benchmarks/stress1.pl>, 
F<examples/benchmarks/stress2.pasm>, 
F<examples/benchm <==
2	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	654	740	
==>amples/benchmarks/stress1.pl>, 
F<examples/benchmarks/stress2.pasm>, 
F<examples/benchm <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132552	133037	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 163,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY <==
2	/Users/nnunley/parrot/config/auto/alignptrs.pm	46	225	
==>.
# $Id: /parrot/config/auto/alignptrs.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/alignptrs.pm - pointer alignment

=head1 DESCRIPTION

Determine the mi <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	34438	34575	
==>nd print "Catching \"$it\" as manpage link.\n";
          $treelet->[$i][1]{'type'} = 'man';
          # This's the only place where man l <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33226	33324	
==>"};
	$desc = "<matchrule:$desc>" if $_[0]->{"matchrule"};
	return $desc;
}

sub callsyntax($$)
{
	i <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35748	35846	
==>"};
	$desc = "<matchrule:$desc>" if $_[0]->{"matchrule"};
	return $desc;
}

sub callsyntax($$)
{
	i <==
2	/Users/nnunley/parrot/tools/dev/manicheck.pl	9	330	
==>w
################################################################################
# Copyright (C) 2001-2005, The Perl Foundation.
# $Id: /parrot/tools/dev/manicheck.pl 19607 2006-05-30T15:23:20.183054Z coke  $
################################################################################

=head1 NAME

tools/dev/manich <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	4473	4577	
==>ion($ops->version);

# verify opcode numbers
my $seq = 0;
for(@{$ops->{OPS}}) {
    next if ($_->{CODE} < <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819160	819546	
==>> [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 928,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 79 \"src/ops/stack.ops\"\n  Stack_En <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	38661	38874	
==>eally is the least evil way I
	# can think of to do it.
	$ins =~ s/(\$\{\w+\})/
		"\"\n\${INS} = concat $1\n\${INS} = concat \""
	/ge;
	$ins = "\${INS} = concat \"$ins\"\n";
		
	# Return PIR.
	return $ins;
}


# Ge <==
2	/Users/nnunley/parrot/examples/benchmarks/primes2.pl	232	415	
==>ub isprime1
{
    my($input)=@_;
    my $n;

    if ($input < 1) {
	return 0;
    }
    $n = $input - 1;

    while ($n > 1){
	if ($input % $n == 0) { return 0; }
	$n--;
    }
    retu <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	728	983	
==>a scalar ref
  my($class, $scalar_ref) = @_;
  $$scalar_ref = '' unless defined $$scalar_ref;
  return bless \$scalar_ref,  ref($class) || $class;
}

sub PRINT {
  my $it = shift;
  foreach my $x (@_) { $$$it .= $x }

  #Pod::Simple::DEBUG > 10 and print " <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	67	230	
==>pper. Simple and stupid.
# Inherits from SRM::Base.

package SRM::Stack;
use strict;
use SRM::Base;
our @ISA = qw/SRM::Base/;

# Constructor. Just base this class o <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10559	10671	
==>to_incexc(\@ranges);
}

sub _ranges_to_incexc {
    my @ranges = @{ shift() };

    # Sort those pairs by their f <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	1345	1485	
==>rules.
foreach (@rules) {
	$pir .= generate_rule_code($srm, $_, $metavars);
}

# Generate final translator code.
$pir .= generate_final_pir($ <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	781	908	
==>initialised data symbols.

=item C<--const>

=item C<-C>

List the constant (read-only) data symbols.

Not all platforms support <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214666	215077	
==>i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 252,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 455 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(int <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	9203	9363	
==>t number of locals we need for ${STACKn} and ${DESTm} and set up
	# their meta-variables.
	my ($max_pop, $max_push) = (0, 0);
	foreach (@$rules) {
		if ($_->{'po <==
2	/Users/nnunley/parrot/examples/benchmarks/stress.pl	521	641	
==>uildarray {
    my @foo;
    foreach (1..10000) {
	$foo[$_] = $_;
    }
    return \@foo;
}

=head1 SEE ALSO

F<examples/ <==
2	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	430	550	
==>uildarray {
    my @foo;
    foreach (1..10000) {
	$foo[$_] = $_;
    }
    return \@foo;
}

=head1 SEE ALSO

F<examples/ <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	3915	4066	
==>ries for link line in Makefile
    my $slash = $conf->data->get('slash');
    (my $TEMP_pmc_classes_o   = $TEMP_pmc_o)   =~ s/^| / src${slash}pmc${slash <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	54657	54784	
==>Balanced subroutines with
C<extract_multiple>. Note too that the value returned by an extractor
subroutine need not bear any rel <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362098	362425	
==>"print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 424,
                  "ARGS" => [
                              "p" <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	792	1065	
==>ons

=over 4

=item C<--action=sub>

Run the specified subroutine.

=back

=cut

################################################################################


use strict;
no  strict 'refs';
use Config;
use Getopt::Long;
use File::Copy;
use File::Basename;
use File::Pat <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	476	569	
==>rayref',   # the arrayref we're reading from
);

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	9638	9745	
==>t().  Better
diagnostics on failure.

=cut

sub like ($$;$) {
    $Test->like(@_);
}


=item B<unlike>

  un <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	536	644	
==>ed!" unless defined $block;
  confess "Left is not defined!" unless defined $left;
  confess "Op is not defin <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	548	656	
==>ed!" unless defined $block;
  confess "Left is not defined!" unless defined $left;
  confess "Op is not defin <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1047	1151	
==>y $test := $got eq $expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## i <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2813	3054	
==>if (@saves) {
				$edit.=qq{\tfind_global _GLOBALS, "COMMON"\n};
				foreach(@saves) {
					$edit.=qq{\t$_=_GLOBALS["$_"]\n};
				}
			}
			s/#RESTORECOMMON/$edit/;
		}		
		s/^/\t/gm;
		print CODE;
	}
	# Put back all of the globals we've used <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2404	2512	
==>if (@saves) {
				$edit.=qq{\tfind_global _GLOBALS, "COMMON"\n};
				foreach(@saves) {
					$edit.=qq{\t_GLOB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752023	752289	
==>\"\n  {{\@1}} = {{\@2}}->vtable->get_integer(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	28907	29050	
==>h @stack, [$tos->[0], $it, 'P']
}
sub FOR_ITER
{
    my ($n, $c, $cmt) = @_;
    my $targ = "pc_xxx";
    my $tos = pop @stack;
    my $iter = $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	30659	30863	
==>*ctx;\n    PMC *ccont;\n    PMC *signature = {{\@1}};\n    INTVAL argc;\n\n    interpreter->current_returns = this;\n    ctx = CONTEXT(interpreter->ctx);\n    ccont = ctx->current_cont;\n\n    if (PMC_cont <==
2	/Users/nnunley/parrot/config/gen/revision.pm	8	118	
==>ght (C) 2005, The Perl Foundation.
# $Id: /parrot/config/gen/revision.pm 19593 2006-05-30T02:28:15.110975Z coke <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	300	414	
==>ecifying argument types and
subcommands can be specified, the build tool takes this and generates the
actual compil <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11057	11306	
==>") or die "Can't write $outfile: $!\n";

    print OUT page_header("Line Coverage for $source_file");
    print OUT "<pre>";

    # filter out any branch or call coverage lines.
    do_filter(sub { /^(call|branch)/ } );

    print OUT "</pre>";
    p <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	16011	16106	
==>ass_structure, $vtable);

Add methods to the class structure for each method found in the
vtable <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	520	637	
==>> { PREFIX => "_I", NEXT => 'TEST', REDO => 'THEN', LAST => 'ELSE' },
  'sub'      => { PREFIX => "_S", NEXT => 'TEST' <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	541	658	
==>> { PREFIX => "_I", NEXT => 'TEST', REDO => 'THEN', LAST => 'ELSE' },
  'sub'      => { PREFIX => "_S", NEXT => 'TEST' <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	1602	1696	
==>" extensions="*.imc;*.pasm" mimetype="">

  <highlighting>

    <list name="special_directives" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826625	826725	
==>= STACK_ENTRY_FLOAT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827695	827795	
==>= STACK_ENTRY_FLOAT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\ <==
2	/Users/nnunley/parrot/config/gen/cpu/i386/auto.pm	935	1139	
==>n() =~ /ok/) {
                $conf->data->set(
                    "i386_has_$suffix" => '1',
                    "HAS_i386_$suffix" => '1',
                );
                print " (\U$suffix) " if ($ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283847	284020	
==>,
                              "nc"
                            ],
                  "BODY" => "#line 908 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}};\n  {{+=4}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	252	356	
==>looks like it's
largely a copy of Parrot::Test::Python. Abstraction needed.

=cut

sub new {
    return b <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	290	394	
==>looks like it's
largely a copy of Parrot::Test::Python. Abstraction needed.

=cut

sub new {
    return b <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4815	5006	
==>p6rule_compile
            load_bytecode "PGE.pbc"
            load_bytecode "PGE/Dumper.pir"
            load_bytecode "PGE/Text.pir"
            load_bytecode "PGE/Util.pir"
            p6ru <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4666	4795	
==>"False "
if i imp j then e$="True  " else e$="False "
if i and not j then f$="True   " else f$="False "
print a$;b$;c$;d$;e$;f$
ne <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	41515	41693	
==>ubroutines:

=over 4

=item * 

do not have to reparse tag specification or parsing options every time
they are called (whereas C<extract_tagged> has to effectively rebuild
its ta <==
2	/Users/nnunley/parrot/lib/Test/More.pm	36091	36207	
==>to use and difficult to trip yourself up with while still
providing more flexibility than the existing Test.pm.  As s <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2032	2231	
==>p_ret_abs($addr)\n";

    if ($addr eq '0')
    {
        return "return (0);"
    }
    else
    {
  	    return "if ((opcode_t *) $addr == 0)
	  return 0;
    goto *ops_addr[*(cur_opcode = (opcode_t <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1507	1680	
==>p_ret_abs($addr)\n";

    if ($addr eq '0')
    {
        return "return (0);"
    }
    else
    {
        return "if ((opcode_t *) $addr == 0)
	  return 0;
   _reg_base = ( <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	1459	1595	
==>nstant_num, $_->flags, $_->encoding, $_->type,
            $_->size, $_->data);

	$constant_num++;
    }
}


#
# compile_byte_code()
#

m <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3939	4042	
==>$prm);
		$$outhash{$prm}=$value;
	}
	for (@$mandatory) {
			exists($$outhash{$_})
		or	croak("Missi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3741	3839	
==>$prm);
		$$outhash{$prm}=$value;
	}
	for (@$mandatory) {
			exists($$outhash{$_})
		or	croak("Missi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017393	1017696	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gmtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018317	1018620	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gmtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => " <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	85	290	
==>trict;

my $fail_label = Regex::Ops::Tree::mark('FAIL');

sub output_preamble {
    my $self = shift;

    return 'rx_allocinfo P0, S0';
}

sub output_match_succeeded {
    return 'rx_succeed P0';
}

sub ou <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600097	600201	
==>);\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interprete <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601173	601277	
==>);\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interprete <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122201	122497	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123113	123409	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918578	919076	
==>"o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1034,
                  "ARGS" => [
                              "i",
                              "s",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1} <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	12177	12345	
==><<EOC;
	global "$c" = $p $cmt
EOC
    }
    $globals{$c} = $p;
}


sub is_opcode {
    my $f = shift;
    return $builtin_ops{$f};
}

sub LOAD_GLOBAL {
    my ($n, $c, $ <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2029	2206	
==>l/) {
    print "The submitted smoke does not look like a smoke!";
    exit;
  }
}

sub uncompress_smoke {
  my $CGI = shift;
  $CGI->param("smoke",
    Compress::Zlib::memGunzip <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10587	10724	
==>tted') {
        --$self->{'rtfverbatim'};
      }
      defined($scratch = $self->{'Tagmap'}{"/$tagname"}) or next;
      $scratch =~ s/\ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16994	17146	
==>' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 41
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'T <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1548	1666	
==>espace ${namespace}_THEN");
    }

    $compiler->emit("  goto ${prefix}_LAST");
  }
  elsif ($kind eq 'else') {
    $c <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	66998	67243	
==>t have
					       a maximum repetition of zero, nor can they have
					       negative components in their ranges.");
				}
			}
			else
			{
				_parse("a subrule match", $aftererror,$line,$code);
				my $desc;
				if ($name=~/\A_alternation_\d <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48884	49027	
==>t have
					       a maximum repetition of zero, nor can they have
					       negative components in their ranges.");
				}
			}
			
			$prod & <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	4124	4490	
==>G > 8) {
        print "* I've gotten ", scalar(@lines), " lines:\n";
        foreach my $l (@lines) {
          if(defined $l) {
            print "  line {$l}\n";
          } else {
            print "  line undef\n";
          }
        }
        print "* end of ", scalar(@lines), " lines\n";
      }

      $self->SUPER::parse_lines(@lines);
      
    } elsif(e <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	13292	13432	
==>remquol     math.h
rename      stdio.h
rewind      stdio.h
rint        math.h
rintf       math.h
rintl       math.h
round       math.h
roundf <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	26450	26591	
==>line'},
          "=over is the last thing in the document?!"
        );
        next; # But feh, ignore it.
      } else {
        $list_type <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29101	29221	
==>=~s/{/\\{/g;

	bless 
	{
		"pattern"     => $pattern,
		"lookahead"   => $_[2],
		"line"        => $_[3],
		"description" <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31205	31319	
==>=~s/{/\\{/g;

	bless 
	{
		"pattern"   => $pattern,
		"lookahead" => $_[2],
		"line"      => $_[3],
		"description" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	28097	28305	
==>ted case: we're closing the most recently opened thing
        #my $over = pop @$curr_open;
        $self->{'content_seen'} ||= 1;
        $self->_handle_element_end( $scratch =
          'over-' . ( (pop @$cu <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	17497	17646	
==>_do {
	$docounter++;
	if ($syms[NEXT] eq "until" or $syms[NEXT] eq "while") {
		my $false="0.0";
		feedme();  # At the while/until
		my $which=$syms[C <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8496	8594	
==>ailed) {
        $*ERR.say("# Looks like you failed $Test::num_of_tests_failed tests of $Test::num_ <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4078	4187	
==>ie "copy command requires destination";
    my $dest = $1;

	my $core_suffix;
    foreach $core_suffix (values <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877693	878252	
==>ore",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 995,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	16494	16645	
==>ted, $desc, %extra ) = @_;

            # Strange Win line endings
            convert_line_endings( $expected );

            # set up default descript <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	11010	11160	
==>ted, $desc, %extra) = @_;

            # Strange Win line endings
            convert_line_endings( $expected );

            # set up default descript <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	7807	7908	
==>)>

Processes a start token not processable by the above methods.

=cut

sub process_other_start_token <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	682	775	
==>ERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');
  confess "Props are not <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	761	854	
==>ERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');
  confess "Props are not <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	3884	4054	
==>scription;
            
            next unless $short_desc;
            
            next if grep {$_ eq $short_desc} @short_desc;
            
            push @short_de <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3471	3614	
==>t\n";
		next;
	}
	print CODE<<EOD;
	.sub ${seg}_debug
		saveall
		.param int debline
		find_global \$P0, "DEBUGGER"
		\$I0= \$P0["step"]
		ne \$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2507	2626	
==>x)>

Optionally implemented in subclasses to return the C code for the ops
address declaration. C<$base_suffix> is the n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117987	118283	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118726	119022	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
2	/Users/nnunley/parrot/languages/dotnet/tools/benchmark.pl	114	375	
==>M $srm\n";
	`nmake clean`;
	`perl Configure.pl --monolib=..\\..\\dlls --srm=$srm`;
	`nmake`;
	my @times = ();
	for (1..5) {
		my $start = time;
		`nmake class-library`;
		my $end = time;
		my $diff = $end - $start;
		push @times, $diff;
		print "$diff <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14953	15196	
==>all' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 28
		DEFAULT => -55
	},
	{#State 29
		DEFAULT => -80
	},
	{#State 30
		DEFAULT => -76
	},
	{#State 31
		ACTIONS = <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14464	14666	
==>all' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 25
		DEFAULT => -78
	},
	{#State 26
		DEFAULT => -82
	},
	{#State 27
		ACTI <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	3481	3818	
==>as_setitimer' => 'define',
             'has_sig_atomic_t' => 'define',
             'has_sigaction' => 'define',
             'has_sigatomic_t' => undef,
             'has_socklen_t' => 1,
             'has_static_linking' => 1,
             'hugefloatval' => 'long double',
             'hugefloatvalsize' => '16',
             'hugeint <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	5479	5661	
==>codes1 = ();
    my @opcodes2 = ();
    my $result   = new_tmp( $parser, 'pmc', 'table' );
    push @opcodes1, new LocalDir( $parser, 
        'result' => $result,
    );
    pu <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1397	1534	
==>@{$temp->{children}}, $expr;
  }
  else {
    $temp->{value} = $tokens->[$count++];
  }
  
  return ($count,$temp);
}

sub _dataflow {
  m <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33989	34120	
==>pe eq 'bullet') {
          my $item_type = $self->_get_item_type($para);
            # That kills the content of the item if it's a <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5143	5247	
==>$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		return(<<CODE, $result);
	# XOR $a <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	53029	53120	
==>st of subroutine references and/or qr// objects and/or
literal strings and/or hash reference <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13719	13840	
==>2 and 103
type first
	foo as integer
	bar as string
end type
function mine (a, b, c as first)
	a=12
	b=99
	c.foo=103
	mine <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	17738	17892	
==>!@stack) {
	print "#XXX\t\t$cmt - stack empty\n";
	return;
    }
    my $tos = pop @stack;
    my $targ = "pc_xxx";
    if ($c =~ /to (\d+)/) {
	$targ = "p <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	5063	5193	
==>('to') }

sub do_man_link { return undef }
 # But subclasses are welcome to override this if they have man
 #  pages somewhere URL- <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	2958	3137	
==>_native_pbc'),
        ),
        $self->new_group('Benchmarking', '',
            $self->new_item('', 'tools/dev/bench_op.pir'),
            $self->new_item('', 'tools/dev/parrotb <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20624	20746	
==>all' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 61 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21298	21419	
==>all' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 6 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123380	123904	
==>ore",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 153,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 257 \"src/ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{ <==
2	/Users/nnunley/parrot/lib/File/Which.pm	3191	3297	
==>y @res = which($_[0]); # force wantarray
    return @res;
}

1;
__END__

=head1 NAME

File::Which - Portabl <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	3090	3221	
==>ddr_table($base_suffix)>

Optionally implemented in subclasses to return the run core C code for
section after the address table. C< <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	979	1108	
==>{ return shift->{LEFT};  }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compil <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	987	1116	
==>{ return shift->{LEFT};  }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compil <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465634	465896	
==>n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dec",
                  "FLAGS" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	466255	466517	
==>n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dec",
                  "FLAGS" => " <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6659	6746	
==>C}_LOOP
POST_BRANCH_switch_${CURIC}_LOOP_EXIT:

POST_BRANCH_NOT_switch_${CURIC}:
PIR
	re <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4597	4684	
==>C}_LOOP
POST_BRANCH_switch_${CURIC}_LOOP_EXIT:

POST_BRANCH_NOT_switch_${CURIC}:
PIR
	re <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	2130	2249	
==>back

=head2 Instance Methods

=over 4

=item C<write_docs($silent, $delete)>

Writes the HTML documentation.

If C<$sil <==
2	/Users/nnunley/parrot/config/auto/headers.pm	849	1014	
==>);

    for (keys %Config) {
        next unless /^i_/;
        $conf->data->set($mapping{$_} || $_ => $Config{$_});
    }

    # some headers may not be probed-for b <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	3069	3201	
==>t => [ "restore rxlocals" ]),
            map { aop('popint' => [ $_, "rxlocal $_" ]) }
                reverse @$rxlocals);
}

sub g <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	18107	18326	
==>er, signature);
    if (0 == signature_len) return F2DPTR(pcf_v_);
    /* remove deprecated void argument 'v' character */
    if (2 == signature_len && 'v' == string_index(interpreter, signature, 1)) {
       Parrot_war <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	51805	51998	
==>80 "Lua\lua51.yp"
{
            [ $_[2], $_[4] ];
        }
	],
	[#Rule 47
		 'var', 2,
sub
#line 284 "Lua\lua51.yp"
{
            [ $_[1], $_[2] ];
        }
	],
	[#Rule 48
		 'va <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	676	770	
==>ec_prefix>

The exec prefix. Defaults to '/usr'.

=item C<bindir>

The executables directory. D <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	905	999	
==>ec_prefix>

The exec prefix. Defaults to '/usr'.

=item C<bindir>

The executables directory. D <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	44767	44889	
==>\.\.([1-9]\d*)'.$SIMPLEPAT.'\)';
my $ATLEAST		= '\G\((\d+)\.\.'.$SIMPLEPAT.'\)';
my $ATMOST		= '\G\(\.\.([1-9]\d*)'.$SIMPLE <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	1086	1194	
==>SVN directories
\B\.svn\b

# debian/ should not go into release tarballs
^debian$
^debian/
END_HEADER
my $now <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3940	4040	
==>SVN directories
\B\.svn\b

# debian/ should not go into release tarballs
^debian$
^debian/
END_HEADER <==
2	/Users/nnunley/parrot/languages/regex/regex.pl	3	106	
==>usr/bin/perl -w

use lib 'lib';
use Regex;
use Regex::Driver;
use strict;

my $operation;
my $expr;
my $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1014717	1015039	
==>"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1133,
                  "ARGS" => [
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 77 \"src/ops/sys.ops\"\n  const char * const tmp <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	13242	13369	
==>eses and add a space around the argument,
        # like so:
        #
        #    goto OFFSET(( (void*)interpreter->happy_plac <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3900	3999	
==>eses and add a space around the argument, like so:

    goto OFFSET(( (void*)interpreter->happy_plac <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5028	5132	
==>VALUE', 'STACK', 'CHECK', 'DOTPOS' };

#DBG>	my($debug)=$$self{DEBUG};
#DBG>	my($dbgerror)=0;

#DBG> <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4785	4884	
==>VALUE', 'STACK', 'CHECK', 'DOTPOS' };

#DBG>	my($debug)=$$self{DEBUG};
#DBG>	my($dbgerror)=0;

#DBG> <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	279	383	
==>N = '2.02';
@ISA = ('Pod::Simple::Methody');
BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG)
          ? \& <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	161	265	
==>N = '2.02';
@ISA = ('Pod::Simple::Methody');
BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG)
          ? \& <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	587	679	
==>ss("Identifier (" . ref($ident) . ") is not!") unless UNIVERSAL::isa($ident, 'Jako::Construct <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	587	679	
==>ss("Identifier (" . ref($ident) . ") is not!") unless UNIVERSAL::isa($ident, 'Jako::Construct <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5505	5743	
==>_->{pragma} eq 'multi' ) {
                    print {$FH} " :slurpy";
                }
                $first = 0;
            }
            print {$FH} ") = ";
        }
        print {$FH} "$op->{arg1}->{symbol}(";
        my $ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64679	64801	
==>($name);
					}
				}
				elsif ($grammar =~ m/$BETWEEN/gco)
				{
					_parse("a $1-to-$2 subrule match", $aftererror,$lin <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	6802	6931	
==>rintf OUT "\t%-30s\t/* %4d */\n", $opname, $n;
}

print OUT <<END_C;
} parrot_opcode_enums;

#endif

END_C
close OUT;


# if opcod <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856322	856788	
==>" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 972,
                  "ARGS" => [
                              "s",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 105 \"src/ops/string.ops\"\n  {{\@1}} = s <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	15677	15804	
==>$call_pkg ) if ( keys %extra );
            local *{ $call_pkg . '::TODO' } = \$extra{todo}
                if defined $extra{to <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	18228	18355	
==>$call_pkg ) if ( keys %extra );
            local *{ $call_pkg . '::TODO' } = \$extra{todo}
                if defined $extra{to <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	12465	12645	
==>y (DESCRIPTION)
          and ($max_content_length
            ? (length($head1_text_content) <= $max_content_length) # sanity
            : 1)
        ) {
          DEBUG and print <==
2	/Users/nnunley/parrot/lib/Test/More.pm	24369	24574	
==>ructures

Not everything is a simple eq check or regex.  There are times you
need to see if two data structures are equivalent.  For these
instances Test::More provides a handful of useful functions.

B<NOT <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	1097	1255	
==>pir', $count );
        my $lua_out_fn = Parrot::Test::per_test(
            $lua_test eq 'lua' ? '.orig_out' : '.parrot_out', $count );
        my $test_pr <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1342	1501	
==>ode as input.
  #

  $self->INTERNAL_ERROR("Undefined block!")
    unless defined $block;

  #
  # Lookup the identifier:
  #

  my $name = $self->name;

  my $ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17405	17524	
==>($node,1));

  $self->_add_inst ('', 'set',[$return,'0']);
  my $type = $self->_save_1 ('I');
  $self->_add_inst ("NEXT_ <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	4444	4645	
==>al may not be what we want
            # We shouldn't be using __packed__, but I doubt -Wpacked will harm
            # us -Wpadded may prove interesting, or even noisy.
            # -Wunreachable-code <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	11144	11289	
==>}
    .tests_todo     { color: #030; }
    .tests_skipped  { color: #555; }
    .tests_unexpect { color: #550; }
  </style>

  <script type="text/ <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	1209	1328	
==>un loop.

=item C<CSwitch>

Create the C<switch>ed and predereferenced run loop.

=item C<CPrederef>

Create the predere <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	8732	8998	
==>alling')) {
		die "typeinfo must be supplied for rule $rule->{'name'}\n";
	}

    # pop and push forbidden for calling
    if ($rule->{'class'} eq 'calling' && ($has_pop || $has_push)) {
        die "pop and push not allowed for class calling in rule $rule->{'name'}\ <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	505	650	
==>_GMP' => 1,
             'HAS_READLINE' => 1,
             'HAS_SNPRINTF' => 1,
             'HAS_aligned_funcptr' => 1,
             'MAJOR' => ' <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	7056	7173	
==>ling nested substitions, and repeating over the whole string
until no more substitutions can be made.

C<VTABLE_> macr <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2716	2823	
==>ame => 'op' });
    $handler->end_element({ Name => 'block' });
  }

  $handler->start_element({ Name => 'bl <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2593	2700	
==>ame => 'op' });
    $handler->end_element({ Name => 'block' });
  }

  $handler->start_element({ Name => 'bl <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1889	2019	
==>ne, $sym->file);
  }

  #
  # Now that we've decided to actually declare the sub, we will place its
  # definition into the block a <==
2	/Users/nnunley/parrot/config/init/hints/irix.pm	19	107	
==>5, The Perl Foundation.
# $Id: /parrot/config/init/hints/irix.pm 19593 2006-05-30T02:28:1 <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16099	16211	
==>ve_1 ('I');
  my $label = $self->_gensym();

  _num_arg ($node, 1, 'null?');

  my $temp = $self->_generate(_get_ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	66821	66955	
==>id repetition specifier", 0,$line);
					_error("Incorrect specification of a repeated subrule",
					       $line);
					_hint("Repeat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664303	664511	
==>> [
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 354 \"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delete_keyed(interpreter, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19100	19242	
==>will return
"Hoo::Boy::Wowza".

But if the document starts out:

  =head1 NAME
  
  Hooboy, stuff B<wow> yeah!

then $parser->get_short_title o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	316340	316603	
==>Overflow exception for conv_u1_ovf\");\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7740	7858	
==>"save $reg");
}

sub output_restore {
    my ($self, $reg) = @_;
    $reg = value($reg);
    return ("restore $reg");
} <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	5079	5242	
==>tion) = /\s*([^%]+)% of (\d+) calls executed in function (.*)/;
            if ($total_calls) {
                $function_call_coverage{$source_file}{$function} = $ <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	18	115	
==>te Kate syntax highlighting XML file for IMCC
# Language:	Parrot IMCC
# Maintainer:	Andy Bussey <a <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3597	3690	
==>tring and
          $string =~ m/(^|^.*?[^\\])\$((([A-Za-z][A-Za-z0-9_]*)\b)|({[A-Za-z][A-Za-z <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1985	2076	
==>tring and
        $string =~ m/(^|^.*?[^\\])\$((([A-Za-z][A-Za-z0-9_]*)\b)|({[A-Za-z][A-Za-z <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509847	510100	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inlin <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	26516	26611	
==>ous fallback point on failure. So this threads all the
# fallback points together.
sub rewrite_s <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	13249	13409	
==>those tests to knowingly
fail, we provide the `:todo(1)` named parameter for all these  functions.

The `:depends("string")` parameter to most of the functions i <==
2	/Users/nnunley/parrot/config/init/miniparrot.pm	721	829	
==>settings for miniparrot';

@args = qw(miniparrot);

sub runstep
{
    my ($self, $conf) = @_;

    unless ($c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852899	853165	
==>" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 9 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853680	853946	
==>" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 9 <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	6325	6439	
==>s}    ? ($totals{covered_calls} / $totals{calls} * 100)       : 0));
    
    print OUT page_header("Parrot Test Co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	620366	620514	
==>"JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "pic_get_params__",
                  "FLAGS" => ":pic",
                  "ARGDIRS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710668	710773	
==>o = PIO_STDOUT(interpreter);\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711502	711607	
==>o = PIO_STDOUT(interpreter);\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503040	503261	
==>=> 578,
                  "ARGS" => [
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 626 \"src/ops/math.ops\"\n  {{\@1}} *= {{\@2}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610675	611168	
==>LAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 692,
                  "ARGS" => [
                              "p",
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 491 \"src/ops/o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612480	612975	
==>LAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 694,
                  "ARGS" => [
                              "p",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 496 \"src/ops/obj <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	933165	933369	
==>E" => 1048,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 420 \"src/ops/string.ops\"\n  string_upcase_inplace(interpreter <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	833	1044	
==>er;
use Getopt::Long;
use lib qw( lib );
use Parrot::Config;

my %opt;

main();

=head1 FUNCTIONS

=cut

sub open_file {
    my $direction = shift;
    my $filename = shift;

    my %actions = (
        "<" => "R <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	377	490	
==>lf = shift;
    my ( $path_to_parrot, $path_to_language, $count ) = @_;
 
    
    my $test_prog_args = $ENV{TEST_ <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	395	502	
==>lf = shift;
    my ( $path_to_parrot, $path_to_language, $count ) = @_;

    my $test_prog_args = $ENV{TEST_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946363	946634	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_charset",
                  "FLAGS" => ":bas <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947264	947535	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_charset",
                  "FLAGS" => ":bas <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	3471	3570	
==>()>

For argumentless ops, it's the same as C<name()>. For ops with
arguments, an underscore followe <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	39117	39250	
==>if the string value associated with <reject> is "MAX", then
C<extract_tagged> returns the complete text up to the point of failure.
If <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1778	1913	
==>Q9plus.pbc'),
                    $lang_fn ) );

        Parrot::Test::write_code_to_file( $code, $lang_fn );

        # STDERR is writt <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786141	786245	
==>\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787052	787156	
==>\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n" <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2796	2931	
==>mbol}\[$op->{arg2}->{symbol}\]\n";
    }

    sub visitKeyedSetOp {
        my $self = shift;
        my ($op) = @_;
        my $F <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27073	27174	
==>shname;

	$f="_USERFUNC_$funcname";
	$f=changename($f);
	$f=~s/\$/_string/g; $f=~tr/a-z/A-Z/;
	$seg=$f <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27346	27447	
==>shname;

	$f="_USERFUNC_$funcname";
	$f=changename($f);
	$f=~s/\$/_string/g; $f=~tr/a-z/A-Z/;
	$seg=$f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710819	711012	
==>NTVAL){{\@1}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711653	711846	
==>NTVAL){{\@1}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806034	806129	
==>=> "#line 497 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed(interpreter, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806940	807035	
==>=> "#line 497 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed(interpreter, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	247	369	
==>], ref($class) || $class;
}

# Purely accessors:

sub tagname   { (@_ == 2) ? ($_[0][1] = $_[1]) : $_[0][1] }
sub tag { shi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	224	344	
==>], ref($class) || $class;
}

# Purely accessors:

sub tagname { (@_ == 2) ? ($_[0][1] = $_[1]) : $_[0][1] }
sub tag { shi <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	388	496	
==>Section::Libs;

use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a n <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	34143	34281	
==>tack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   print <<EOC;
	$vv = $v->[1]
EOC
       }
    }
    my $dest =  (pop @ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	35067	35205	
==>tack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   print <<EOC;
	$vv = $v->[1]
EOC
       }
    }
    my $dest =  (pop @ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939979	940395	
==>",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1057,
                  "ARGS" => [
                              "p",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 486 \"src/ops/string.ops\"\n    {{\@1}} = string_split(interpreter, { <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3157	3258	
==>y to SUB1.
' Exit tests
sub mysub(b,c)
	print "Print me"
	exit sub
	print "Don't print me"
end sub
fun <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17124	17225	
==>y to SUB1.
' Exit tests
sub mysub(b,c)
	print "Print me"
	exit sub
	print "Don't print me"
end sub
fun <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600196	600297	
==>rpreter, {{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n         \"Class '%Ss' doesn't e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601272	601373	
==>rpreter, {{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n         \"Class '%Ss' doesn't e <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	2339	2443	
==>tion'} ) }
     __PACKAGE__->new->parse_string_document('=head1 L<Foo/bI<ar>baz>>')
    "
Output:
  $VAR1 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	2957	3061	
==>tion'} ) }
     __PACKAGE__->new->parse_string_document('=head1 L<Foo/bI<ar>baz>>')
    "
Output:
  $VAR1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9730	9919	
==>ARGS" => [
                              "sc"
                            ],
                  "BODY" => "#line 182 \"src/ops/core.ops\"\n    char * const label = string_to_cstring(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	278899	279207	
==>) <= 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isl <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19154	19256	
==>arts out:

  =head1 NAME
  
  Hooboy, stuff B<wow> yeah!

then $parser->get_short_title on that documen <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760861	761036	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setp_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761713	761888	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setp_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035740	1035841	
==>ULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    {{\@1}} = result;\n    {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036904	1037005	
==>ULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    {{\@1}} = result;\n    {{ <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	7556	7675	
==>ROGRAM:
#

@ARGV = qw(-) unless @ARGV;

foreach (@ARGV) {
    compile_file($_)
}

exit 0;

__END__

=begin ADDITIONAL

= <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	5207	5347	
==>atch') {
	return $R->{args}[0] == $S->{args}[0];
    } elsif ($type eq 'classmatch') {
	return $R->{args}[0] eq $S->{args}[0];
    } elsif ($ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	16494	16817	
==>9
	},
	{#State 49
		ACTIONS => {
			"-" => 62
		},
		DEFAULT => -44
	},
	{#State 50
		DEFAULT => -37
	},
	{#State 51
		ACTIONS => {
			'NUM' => 49,
			'CHAR' => 47,
			"]" => 63
		},
		GOTOS => {
			'classpiece' => 48
		}
	},
	{#State 52
		ACTIONS => {
			'NUM' => 49,
			'CHAR' => 47,
			"]" => 64
		},
		GOTOS => {
			'cla <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	1155	1255	
==>lues and assigns it to the inheriting classes C<$result>
variable.  Returns the inheriting classes na <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352284	352374	
==>195 \"src/ops/io.ops\"\n  PIO_printf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352942	353032	
==>195 \"src/ops/io.ops\"\n  PIO_printf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n", <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22463	22620	
==>:
    #
    #   goto <label>;
    #   goto <label> if (<value> <op> <value>);
    #   goto <label> unless (<value> <op> <value>);
    #

    if ($token->is_go <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29331	29461	
==>Standard Instance Methods

Standard behavior.

=over 4

=cut

package Parrot::Pmc2c::Standard;
use base 'Parrot::Pmc2c';

=item C<b <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	11589	11719	
==>calculate a prime somewhat bigger than
 * n of fullnames + n of names
 * for now this should be ok
 *
 * look up an op_code: at fir <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32406	32524	
==>elsif($item_type eq 'text') {
            # Hm, it's not numeric.  Correct for this.
            $para->[1]{'number'} = <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5664	5766	
==>>core_prefix . "$base */\n\n";
}

=item C<init_func_init1($base)>

Returns the C code for the init func <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83747	83834	
==>iglobals, IGLOBALS_COMPREG_HASH);\n  VTABLE_set_pmc_keyed_str(interpreter, compreg_hash, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84653	84740	
==>iglobals, IGLOBALS_COMPREG_HASH);\n  VTABLE_set_pmc_keyed_str(interpreter, compreg_hash, <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	356	479	
==>e Config;
    # Load threads::shared when threads are turned on
    if( $] >= 5.008 && $Config{useithreads} && $INC{'threads <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948354	948619	
==>=> 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949153	949418	
==>=> 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321602	321853	
==>ger(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323958	324209	
==>ger(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959858	960125	
==>" => "function",
                  "CODE" => 1080,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 590 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_stri <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26017	26112	
==>d $ps->{var}, $ps->{var}, FORLOOP_STEP_$ps->{num}
	goto FOR_$ps->{num}
AFTER_NEXT_$ps->{num}: no <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26202	26297	
==>d $ps->{var}, $ps->{var}, FORLOOP_STEP_$ps->{num}
	goto FOR_$ps->{num}
AFTER_NEXT_$ps->{num}: no <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	281020	281413	
==>"o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 327,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 903 \"sr <==
2	/Users/nnunley/parrot/config/inter/progs.pm	3639	3730	
==>->set(libs => $libs);

    $cxx = integrate($conf->data->get('cxx'), $conf->options->get('cx <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	35443	35592	
==>elf->diag("No tests run!\n");
        _my_exit( 255 ) && return;
    }
}

END {
    $Test->_ending if defined $Test and !$Test->no_ending;
}

=head1 E <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	8584	8738	
==>n/a" ]}</a></td>
             <td>[<a href="function_summary.html#$source_file">function detail</a>]</td>
          </tr>
       );
    }
    
    print OU <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10736	10863	
==>url($section);
        # Turn char 1234 into "(1234)"
        $section = '_' unless length $section;
    }
    
    foreach my $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4113	4231	
==>url($section);
     # Turn char 1234 into "(1234)"
    $section = '_' unless length $section;
  }
  
  

  foreach my $ <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	2227	2325	
==>extracted and saved.

Next, each method body is processed with various directives (see below)
getti <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	26	112	
==>Perl Foundation.
# $Id: /parrot/lib/Parrot/Docs/Section.pm 20333 2006-06-21T18:44:31.11 <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	8402	8502	
==>w, $Init,   $init  ) if $show;
		want_show(\$show, $Uninit, $uninit) if $show;
		want_show(\$show, $C <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	153	268	
==>rot::Docs::Libs - Parrot libraries documentation section

=head1 SYNOPSIS

	use Parrot::Docs::Libs;

=head1 DESCRIPT <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12016	12117	
==>ld, { type => "STRING", value => qq{"$syms[CURR]"} };
		} elsif ($type[CURR] eq "PUN") {
			my $s=$sym <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	11569	11763	
==>' => 11,
			'_if_then' => 14,
			'varlist1' => 13,
			'stat' => 7
		}
	},
	{#State 3
		ACTIONS => {
			'' => 18
		}
	},
	{#State 4
		DEFAULT => -45
	},
	{#State 5
		DEFAULT => -15, <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	2269	2368	
==>ber of tests run in the form
"1..M" (so "1..5" means you're going to run 5 tests).  This strange
for <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	3180	3370	
==>s to look at
# where it's used, mostly in TreeOptimize.pm.
############################################################################

sub order_startset {
    my $start = shift;

    # Mus <==
2	/Users/nnunley/parrot/config/init/defaults.pm	5556	5684	
==>e \'chdir shift @ARGV; system q{$(MAKE)}, @ARGV; exit $$? >> 8;\'',

        # if platform has a .s file that needs to be assembl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	275672	276231	
==>AME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 321,
                  "ARGS" => [
                              "i",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 881 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276549	277033	
==>AME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 322,
                  "ARGS" => [
                              "i",
                              "sc",
                              "s"
                            ],
                  " <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	1217	1357	
==>er\n";
}

# Pre and post calling operation hooks.
sub pre_call {
	die "pre_call not implemented for current stack to register mapper\n";
}
su <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	3209	3387	
==>urn shift->{VALUE}; }
# file handled by superclass?
# line handled by superclass?

sub is_global
{
  my $self = shift;

  return defined $self->block and not defined $self->block- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653466	653572	
==>d(interpreter, {{\@1}}))\n        real_exception(interpreter, resume, METH_NOT_FOUND,\n            \"Method <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654627	654733	
==>d(interpreter, {{\@1}}))\n        real_exception(interpreter, resume, METH_NOT_FOUND,\n            \"Method <==
2	/Users/nnunley/parrot/examples/benchmarks/oo5.pl	116	250	
==>"\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift;
    return bless [ 10, 20 ], $self;
}

sub i {
    my $sel <==
2	/Users/nnunley/parrot/examples/benchmarks/oo6.pl	108	242	
==>"\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift;
    return bless [ 10, 20 ], $self;
}

sub i {
    my $sel <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	21477	21581	
==>Prints out the given @msgs.  Like C<print>, arguments are simply
appended together.

Normally, it uses th <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	625	763	
==>e/parrot/exceptions.h
    include/parrot/interpreter.h
    include/parrot/io.h
    include/parrot/longopt.h
    include/parrot/mmd.h
    in <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	73	187	
==>/IO/Path.pm 19602 2006-05-30T13:40:58.862833Z coke  $

=head1 NAME

Parrot::IO::Path - Path

=head1 DESCRIPTION

C< <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	3227	3324	
==>tem.
It's just to get you started.  Once you're off the ground its
recommended you look at L<Test: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	7436	7665	
==>ore.ops\"\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8072	8295	
==>ore.ops\"\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	8152	8365	
==>op's number of arguments. Note that this also includes
the op itself as one argument.

=cut

sub size
{
    my $self = shift;

    return scalar($self->arg_types + 1);
}

=back

=head1 SEE ALSO

=over 4

=item C<Pa <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	64	156	
==>egex::CodeGen';
use strict;

my $fail_label = Regex::Ops::Tree::mark('FAIL');

sub output_pre <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	7838	8110	
==>h
atanhl      math.h
atanl       math.h
atexit      stdlib.h
atof        stdlib.h
atoi        stdlib.h
atol        stdlib.h
atoll       stdlib.h
bsearch     stdlib.h
cabs        complex.h
cabsf       complex.h
cabsl       complex.h
cacos       complex.h
cacosf      complex <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	43630	43795	
==>lure in 5.005_03 when compiled
	# with debugging:
	# splice(@_, 2, 0, 1);
	# return _generate(@_);
	# Apart from modifying @_, they are equivalent to the rather ungai <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	18594	18704	
==>s($treelet);
    $self->_treat_Ss($treelet);  # S has to come after E

    $self->_wrap_up($treelet); # Nix X's <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	13317	13435	
==>st, $name);
        $self->_cmp_diag($got, '!=', $dont_expect) unless $test;
        return $test;
    }

    return $s <==
2	/Users/nnunley/parrot/examples/benchmarks/fib.pl	362	538	
==>.

=cut

use strict;

sub fib {
	my $n = shift;
	return $n if ($n < 2);
	return fib($n-1) + fib($n-2);
}
my $N = shift || 28;

print "fib($N) = ", fib($N), "\n";

=head1 SEE ALS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1014291	1014605	
==>ng_make(interpreter, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "err",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367316	367605	
==>( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functio <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368107	368396	
==>( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functio <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	10930	11114	
==>lly unexpected error setting up encoding $e: $@\nAborting"
    );

  } else {
    my @supported = Pod::Simple::Transcode::->all_encodings;

    # Note unsupported, and complain
    DEBU <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	16840	16996	
==>rary file
            my $test_no = $builder->current_test() + 1;

            # Name of the file with test code.
            my $code_f = File::Spec->rel2ab <==
2	/Users/nnunley/parrot/config/auto/readline.pm	1377	1507	
==>clude/readline/readline.h") {
            $conf->data->add(' ', linkflags => '-L/sw/lib');
            $conf->data->add(' ', ldflag <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	23333	23474	
==>ting a new %s node between %s and %s\n",
           $dynasty[-1], $treelet->[0], $treelet->[$i][0], 
          ;
          
          #$nugget <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1748	1865	
==>ex>.

=cut

sub arg
{
    my $self = shift;

    return $self->{ARGS}[shift];
}

=item C<goto_address($address)>

Tran <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1363	1480	
==>ex>.

=cut

sub arg
{
    my $self = shift;

    return $self->{ARGS}[shift];
}

=item C<goto_address($address)>

Tran <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	8002	8230	
==>s done.
          DEBUG > 1 and print "Starting verbatim para at line ${$self}{'line_count'}\n";
          push @$paras, ['~Verbatim', {'start_line' => $self->{'line_count'}}, $line];
        }
      } else {
        ++$self->{'p <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	7576	8067	
==>r Key constant index (in-line)
        #

        if (/^(inline\s+)?op\s+([a-zA-Z]\w*)\s*\((.*)\)\s*(\S*)?\s*{/)
        {
            if ($seen_op)
            {
                die "$ops_file [$.]: Cannot define an op within an op definition!\n";
            }

            $type       = defined($1) ? 'inline' : 'function';
            $short_name = $2;
            $args       = _trim(lc $3);
            $flags      = $4 ? _trim(lc $4) : "";
            @args       = split(/\s*,\s*/, $a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200502	200922	
==>[
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 237,
                  "ARGS" => [
                              "nc",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	2011	2110	
==>logic should be
modified so that it doesn't need to concatenate separate ops files.

=head1 SEE ALSO <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	833	957	
==>n => [{ value => 'quasiquote' }] };
    my $expr;
    $count++;
    ($count, $expr) = _build_tree ($tokens, $count);
    push <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	4051	4180	
==>filename or
    die "Couldn't open \"$filename\" for writing: $!\n";
  print $fh $html or
    die "Couldn't write to \"$filename\" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	280050	280590	
==>AME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 326,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 903 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	281760	282246	
==>AME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 328,
                  "ARGS" => [
                              "i",
                              "n",
                              "n"
                            ],
                  "BOD <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	4514	4673	
==>KIP "# generated from svn:ignore of '$dir/'\n";
    foreach (split /\n/, $ignore{$dir}) {
        s/\./\\./g; s/\*/.*/g;
        print $SKIP
            $dir ne <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1447	1551	
==>sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'op', Attributes <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1441	1545	
==>sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'op', Attributes <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	1486	1591	
==>argument containing a branch offset or address
    labelconst    an invar argument containing a branch off <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	2555	2682	
==>nstruction

=over 4

=item B<new>

  my $Test = Test::Builder->new;

Returns a Test::Builder object representing the current sta <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19621	19789	
==>sterminal)
		{
			$code .= $parser->{_AUTOTREE}{TERMINAL}->code($namespace,$rule);
		}
		else
		{
			$code .= $parser->{_AUTOTREE}{NODE}->code($namespace,$rule);
		}
		P <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8132	8242	
==>= each %Name2character_number) {
    if($] < 5.007  and  $number > 255) {
      $Name2character{$name} = $FAR_C <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4066	4190	
==>'".lc($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _DBLoad {
	{
		no strict 'refs';

			exists(${ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3863	3975	
==>'".lc($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _DBLoad {
	{
		no strict 'refs';

			exists(${ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	12082	12236	
==>=> 2,
			'CHAR' => 4,
			"<" => 3,
			"&" => 5,
			'CODE' => 6,
			"^" => 9,
			"(" => 10,
			"[" => 14,
			"." => 15
		},
		GOTOS => {
			'charclass' => 1 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	14406	14545	
==>'charclass' => 12
		}
	},
	{#State 27
		ACTIONS => {
			"?" => 46
		},
		DEFAULT => -13
	},
	{#State 28
		ACTIONS => {
			'CHAR' => 4,
			"< <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6954	7049	
==>nd$="longer"
bogus$="not"
print "Found  (5): ", instr(s1$, found$)
print "Bogus  (0): ", instr(s <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18683	18778	
==>nd$="longer"
bogus$="not"
print "Found  (5): ", instr(s1$, found$)
print "Bogus  (0): ", instr(s <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	16917	17083	
==>'$name'", $value;
      }
    } elsif(m/<!ENT/) {
      print "# Skipping $_";
    }
  
  }
  close(IN);
}

print @norms;
print "\n ( \$] .= 5.006001 ? (\n";
print @go <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	47831	47977	
==>ment whilst
extracting from a modifiable string, C<extract_quotelike> silently
rearranges the string to an equivalent piece of Perl:

        <<'EO <==
2	/Users/nnunley/parrot/config/auto/headers.pm	1820	1947	
==>y with just the header. If that fails, try with all the
        # headers we found so far. This is somewhat a hack, but makes pr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	531205	531464	
==>n  {{\@1}} = cos((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427491	427976	
==>ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 491,
                  "ARGS" => [
                              "ic",
                              "p",
                              "n"
                            ],
                  "BODY" => "#line 69 \"src/ops/math.ops\"\n  mmd_dispatch_v_pn(interpre <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	19137	19271	
==>ok";
    $out   .= " $self->{Curr_Test}" if $self->use_numbers;
    $out   .= " # TODO & SKIP $why\n";

    $self->_print($out);

    r <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	397	491	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_element_start {
  # ($self, $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	396	490	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_element_start {
  # ($self, $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8169	8423	
==>efn = $idf->[0];
        push @opcodes, @{ $idf->[1] };
        my $last_key = pop @{$var};
        my $result   = $defn;
        foreach my $key ( @{$var} ) {
            push @opcodes, @{ $key->[1] };
            my $result2 = new_tmp( $parser, 'p <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	13485	13595	
==>x = $op->maxlen();
    $max = "INF" if ! defined $max;
    return "$str [$min..$max]";
}

# Defaults
sub Regex: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	4054	4240	
==>RESS",
                  "NAME" => "wrapper__",
                  "FLAGS" => ":internal",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3461	3614	
==>r regular (user-defined) and NCI (Native Call Interface) subs:
  #

  else {
#    $self->DEBUG(0, "Calling '%s' as regular sub (props = %s)...", $name, jo <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1684	1885	
==>> '.dll',
            load_ext   => '.dll',
            a          => '.lib',
            o          => '.obj',
            cc_o_out   => '-Fo',
            cc_exe_out => '-out:',
            cc_ldflags <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3563	3764	
==>> '.dll',
            load_ext   => '.dll',
            a          => '.lib',
            o          => '.obj',
            cc_o_out   => '-Fo',
            cc_exe_out => '-out:',
            cc_ldflags <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470631	470928	
==>div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 540 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600294	600527	
==>'t exist\", name);\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601370	601603	
==>'t exist\", name);\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/config/init/defaults.pm	5430	5605	
==>late GNU make's C<-C directory> option:  chdir
        # to C<directory> before executing $(MAKE)
        make_c => '$(PERL) -e \'chdir shift @ARGV; system q{$(MAKE)}, @ARGV; e <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2548	2683	
==>int STDERR "pbcc: map_ret_rel($offset)\n";
}

=item C<goto_pop()>

Transforms the C<goto POP()> macro in an ops file into the relevant C <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	15968	16070	
==>ray, $textref,
			$match[2], $match[18]-$match[2],	# MATCH
			@match[18,19],				# REMAINDER
			@match[0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434497	434607	
==>d_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435512	435622	
==>d_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188841	189106	
==>eter, {{\@1}}, {{\@2}}, MMD_CMP) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                } <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	2025	2152	
==>elf, $tree, $ctx) = @_;
    die "Huh?" if $tree->negated;
    return op('multi_match' => [ $tree->min, $tree->max, $tree->greedy <==
2	/Users/nnunley/parrot/config/init/optimize.pm	911	1009	
==>data->set(cc_debug => '');
        $conf->data->add(' ', ccflags => "-DDISABLE_GC_DEBUG=1 -DNDEBUG" <==
2	/Users/nnunley/parrot/Configure.pl	7664	7790	
==>cu        Build parrot without ICU support
   --icuheaders=(path)  Location of ICU headers without /unicode
   --icushared=(fla <==
2	/Users/nnunley/parrot/examples/benchmarks/addit.pl	245	337	
==>ime perl examples/benchmarks/addit.pl

=head1 DESCRIPTION

Joe Wilson's original Perl version <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	6928	7114	
==>mall    = ($type =~ /^[Gg]$/  ) ? 1 : 0;
		my $code     = ($type =~ /^[Tt]$/  ) ? 1 : 0;
		my $undef    = ($type =~ /^[Uu]$/  ) ? 1 : 0;
		my $zeroed   = 0;
		my $const    = 0;
		my $loca <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	13	122	
==>::CodeGen::Perl5;
use Regex::Ops::Tree (); # For mark()
use base 'Regex::CodeGen';
use strict;

my $fail_label <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2427	2536	
==>lf->op) {
    $handler->start_element({ Name => 'block', Attributes => { kind => 'test' } });
    $handler->st <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2304	2413	
==>lf->op) {
    $handler->start_element({ Name => 'block', Attributes => { kind => 'test' } });
    $handler->st <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	656	829	
==>e name is a simple concatenation of the package name, double
colon, and the routine name, with no preceding punctuation.

=head2 lib

The name of the library to be loaded. Sh <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	10307	10408	
==>ith " . $files_in_dir_nocase{$dirname}{lc($filename)});
        }
        $files_in_dir_nocase{$dirnam <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Compilers.pm	680	815	
==>.html', '',
        $self->new_group( 'IMCC', 'the Intermediate Code Compiler for Parrot',
            'compilers/ast',
            ' <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	4233	4367	
==>rt { $a->{CODE} <=> $b->{CODE} } (@{$ops->{OPS}} );
}

# create opsfile with valid ops from ops.num
# or from experimental

my $real_op <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	27060	27344	
==>t_results->[$_] = &share({
                    'ok'      => 1, 
                    actual_ok => undef, 
                    reason    => 'incrementing test number', 
                    type      => 'unknown', 
                    name      => undef 
                });
            } <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18911	19024	
==>arser->header_halfpoint_size( I<halfpoint_integer> );

This method sets the size (in half-points, like 15 for 7.5- <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	10113	10250	
==>e  = $op->full_name;
        my $func_name  = $op->func_name($trans);
        my $body       = $op->body;
        my $jump       = $op->ju <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	7520	7709	
==>16	unexpected
               --([a-f0-9]+)	# 17    harness_args
               --([a-f0-9]+)	# 18	id
   .html$/x
    and return {
	  VERSION       => $1,
	  DEVEL         => $2,
      revisi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	489	629	
==>b _handle_element_end {
  $_[1] =~ tr/-:./__/;
  ( $_[0]->can( 'end_' . $_[1] )
    || return
  )->(
    $_[0]
  );
}

1;


__END__

=head1 N <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1327	1422	
==>we can find register type).
dec ${ITEMP0}
${PTEMP0} = ${STYPES}[${ITEMP0}]

# Assign register na <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3037	3132	
==>we can find register type).
dec ${ITEMP0}
${PTEMP0} = ${STYPES}[${ITEMP0}]

# Assign register na <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	1222	1331	
==>s/NOW/$now/;

print join( "\n", $header, @{$skip}, '' );

=head1 AUTHOR

Bernhard Schmalhofer - <Bernhard.Schm <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261624	261823	
==>,
                              "sc"
                            ],
                  "BODY" => "#line 793 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} == {{\@3}};\n    {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262477	262676	
==>,
                              "sc"
                            ],
                  "BODY" => "#line 793 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} == {{\@3}};\n    {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	9082	9209	
==>njl       complex.h
copysign    math.h
copysignf   math.h
copysignl   math.h
cos         math.h
cosf        math.h
cosh        m <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	730	868	
==>et('linkflags');
    my $ccflags   = $conf->data->get('ccflags');
    if ($^O =~ /mswin32/i) {
        if ($cc =~ /^gcc/i) {
            $c <==
2	/Users/nnunley/parrot/config/auto/readline.pm	742	880	
==>et('linkflags');
    my $ccflags   = $conf->data->get('ccflags');
    if ($^O =~ /mswin32/i) {
        if ($cc =~ /^gcc/i) {
            $c <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	395	483	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_element_start {
  # ( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	394	482	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_element_start {
  # ( <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	5004	5204	
==>5
t7(0)=0
w=w-(T7(0) * T7(0) * 12)
' Expect 20
print w
' Expect -20
print -w
' Expect -5
print -w(2)
' Expect 3
print 5-2
' Expect 3 also
print 5+-2
' Expect 0
print 6-abs(-6)


' Some register confusi <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	3768	3949	
==>);
        };
    } else {
        *dump = sub {
            my $self = shift;
            Data::Dumper->new([$self->{c}], ['*PConfig'])->Dump();
        };
    }
}

=item C<clean()> <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41401	41544	
==>,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86
		},
		DEFAULT => -111
	},
	{#State 177
		DE <==
2	/Users/nnunley/parrot/config/init/hints/openbsd.pm	19	118	
==>5, The Perl Foundation.
# $Id: /parrot/config/init/hints/openbsd.pm 19593 2006-05-30T02:28:15.110975 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129270	129482	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130008	130220	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io", <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1305	1407	
==>");
    $compiler->emit("  $pmc_reg = $ident");
    $compiler->emit("  global \"$ident_name\" = $pmc_re <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1299	1401	
==>");
    $compiler->emit("  $pmc_reg = $ident");
    $compiler->emit("  global \"$ident_name\" = $pmc_re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	268644	269078	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isgt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	31125	31254	
==>}

    my @ops =
      ( $backup =>   aop('popint', [ '<tmp>', "restore rule $name start" ]),
                     aop('setstart', <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	1897	1998	
==>normal_op";
    $cpcf_op = "Parrot_exec_cpcf_op";
    $restart_op = "Parrot_exec_restart_op";
    %arg <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	865139	865605	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pin",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "function",
                  "CODE" => 982,
                  "A <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	3881	4078	
==>$currline="";
		goto PARSE;
		
	}
	
	goto PARSE if ($syms[CURR] eq "let");  # ha ha
	
	# TEMP FIXME	
	if ($syms[CURR] eq "print") {
		&parse_print;
		goto PARSE_NOFEED;
	}
	#
	# Handle all of the IF <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10818	11163	
==>t' => $result, );
                    push @opcodes, new FindLexOp( $parser,
                        'result' => $result,
                        'arg1'   => $defn,
                    );
                    my $last_key = pop @{$var};
                    foreach my $key ( @{$var} ) {
                        push @opcodes, @{ $key->[1] } <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16663	16912	
==>t' => $result,
                );
                push @opcodes, new FindLexOp( $parser,
                    'result' => $result,
                    'arg1'   => $defn,
                );
            }
            else {
                my $g <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1328	1448	
==>ith exit code $exit_code")
        if $exit_code and not $pass;
    }

    unless($ENV{POSTMORTEM}) {
        unlink $lan <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1369	1489	
==>ith exit code $exit_code")
        if $exit_code and not $pass;
    }

    unless($ENV{POSTMORTEM}) {
        unlink $lan <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	72267	72471	
==>}
}
	
# GENERATE ACTUAL PARSER CODE

sub _code($)
{
	my $self = shift;
	my $code = qq{
package $self->{namespace};
use strict;
use vars qw(\$skip \$AUTOLOAD $self->{localvars} );
\$skip = '$skip';
$self->{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	40544	40680	
==>e'}    = 'pod';
        DEBUG > 3 and print "Considering this a pod link (not man or url).\n";
      }

      if( defined $section_name ) <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	1742	1920	
==>y of intra-comment blank line elimination; pod
handling;

=back

=cut

################################################################################

use Regexp::Common qw/comm <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	10666	10802	
==>Like Test::More's is().  Checks if $got eq $expected.  This is the
string version.

=item B<is_num>

  $Test->is_num($got, $expected, $na <==
2	/Users/nnunley/parrot/config/auto/jit.pm	1627	1813	
==>ygwin/i || $cpuarch =~ /cygwin/i) {
        $cpuarch = 'i386';
        $osname  = 'cygwin';
    }

    if ($archname =~ m/powerpc/) {
        $cpuarch = 'ppc';
    }

    $cpuarch =~ s/ar <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	51295	51695	
==>] ];
        }
	],
	[#Rule 43
		 'varlist1', 3,
sub
#line 260 "Lua\lua51.yp"
{
            [
                @{ $_[1] }, 
                BuildVariable( $_[0], $_[3] ),
            ];
        }
	],
	[#Rule 44
		 'varlist1', 1,
sub
#line 267 "Lua\lua51.yp"
{
            [
                BuildVariable( $_[0], $_[1] ),
            ];
        }
	],
	[#Rule 45
		 'var', 1,
sub <==
2	/Users/nnunley/parrot/config/auto/socklen_t.pm	73	167	
==>klen_t.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/socklen_t.pm - Is <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7829	7940	
==>int "failed"
          match_end:
        .end\n);
}
=back

=head1 AUTHOR

Patrick R. Michaud, pmichaud@pobox.co <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	743	877	
==>istance;
    }
}

sub output_match {
    my ($self, $byte, $failLabel) = @_;
    return "rx_literal P0, \"$byte\", ".$self->output_labe <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	55515	55646	
==>l( $_[0], $_[1], 'nil' );
        }
	],
	[#Rule 77
		 'primary', 1,
sub
#line 420 "Lua\lua51.yp"
{
            BuildLiteral( <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	1317	1436	
==>and line, the command line takes precedence.

Here is an example parrotbench.conf:
    [global]
    directory = ../../ex <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	18011	18103	
==>he Synopsis above, or the source for Pod::Simple::RTF.

Authors of formatter subclasses might <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18007	18108	
==>edstmt => 0 });
	} else {
		push @{$code{$seg}->{code}}, "DO_$docounter:\n";
		push(@dos, { jump => $d <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5726	5875	
==>ident>, ... = <value>;
    #
    #   const <type> <ident> = <value>;               # TODO: SHOULD BE LIMITED TO LITERAL?
    #   const <type> <ident>, <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	4227	4335	
==>e \"$filename\": $!\n";
}

sub clean_obsolete_smokes {
  my $category = sub {
    return join "-",
      (map <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	619319	619431	
==>t    VTABLE_get_integer(interpreter, right);\n\tINTVAL c = a - b;\n\tif ((c^a) >= 0 || (c^~b) >= 0) {\n\t    if ( <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24707	24804	
==>ch_tagged($textref, $pre, $ldel, $rdel, $omode, $bad, $ignore);

		return _fail(wantarray, $textre <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7541	7637	
==>ch_tagged($textref, $pre, $ldel, $rdel, $omode, $bad, $ignore);

	return _fail(wantarray, $textre <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	13026	13139	
==>en $filename: $!";
    my $text = do {local $/; <$fh>};
    close($fh) or die "Can't close $filename: $!";

    re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	534940	535226	
==>ne 916 \"src/ops/math.ops\"\n   FLOATVAL temp = log((FLOATVAL)2.0);\n  {{\@1}} = log((FLOATVAL){{\@2}}) / temp;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1814	1920	
==>ON} < $COMPATIBLE
	and	croak "Yapp driver version $VERSION ".
			  "incompatible with version $$self{VERS <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1750	1854	
==>ON} < $COMPATIBLE
	and	croak "Yapp driver version $VERSION ".
			  "incompatible with version $$self{VERS <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	5100	5214	
==>file.

=cut

sub process_file_start_token
{
    my $self = shift;
    my $token = shift;
    my $tagname = $token-> <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2668	2809	
==>);
        if ($CC =~ /gcc/i) {
            $liblist =~ s/gdbm\.lib/-llibgdbm/i;
        }
        my $extraLibs = '-lm -lgmp -lreadline -lpth <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	2463	2604	
==>);
        if ($CC =~ /gcc/i) {
            $liblist =~ s/gdbm\.lib/-llibgdbm/i;
        }
        my $extraLibs = '-lm -lgmp -lreadline -lpth <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	12454	12629	
==>D

neg_loop:
    if op1 == 0 goto done
    unless iter goto done

    $P1 = pop op2  # have to pop when iterating from end.
    unshift result, $P1

    inc op1
    goto neg_lo <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6914	7033	
==>-c $pmc.pmc")
          or die "pmc2c code generation failed ($?)\n";
    }
}

sub compile {
    my ($src_stem, $dest_st <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7125	7244	
==>-c $pmc.pmc")
          or die "pmc2c code generation failed ($?)\n";
    }
}

sub compile {
    my ($src_stem, $dest_st <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107012	1107242	
==>GS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 352 \"src/ops/experimental.ops\"\n    int typ = {{\@2}};\n    if (typ < 1 || typ >= in <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	15052	15232	
==>complain_warn(@_) if $self->{'complain_stderr'};
  return $self->_complain_errata(@_);
}

sub scream {    # like whine, but not suppressable
  #my($self,$line,$complaint) = @_;
  my <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	15298	15393	
==>complain_warn(@_) if $self->{'complain_stderr'};
  return $self->_complain_errata(@_);
}

sub _c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792936	793392	
==>e",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 895,
                  "ARGS" => [
                              "p",
                              "k",
                              "i"
                            ],
                  "BODY" => "#line 45 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	5330	5499	
==>} = $checker->content_seen;
	}
}

=item C<contains_pod()>

Tells you whether there is any POD formatted documentation in the file.
Executable files are assumed not to con <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	3791	3902	
==>obal_const_init_data" versus "R")
--help|-h	show this help
--version|-v	show version
All the options can be shor <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	349	510	
==>ot::Docs::Group> is a subclass of C<Parrot::Docs::Item>.

=head2 Class Methods

=over

=cut

package Parrot::Docs::Group;

use strict;
use warnings;

use base qw( <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	5970	6109	
==>stitutions.
sub _substitute
{
    my $self = shift;
    local $_ = shift;
    my $trans = shift;

    s/{{([a-z]+)\@([^{]*?)}}/ $trans->acce <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1500	1598	
==>tart_head3 {  $_[0]{'Thispara'} = '' }
sub start_head4 {  $_[0]{'Thispara'} = '' }

sub start_Verba <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1030	1128	
==>tart_head3 {  $_[0]{'Thispara'} = '' }
sub start_head4 {  $_[0]{'Thispara'} = '' }

sub start_Verba <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905829	906319	
==>> [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1021,
                  "ARGS" => [
                              "s",
                              "p",
                              "ic",
                              "i"
                            ],
                  "BODY" => " <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	24205	24335	
==>ras;
        push @$paras, $para, $para;
         # We need two -- once for the next cycle where we
         #  generate errata, an <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	32955	33202	
==>{ $treelet->[$i] } ) {
          # But if it IS just one text node (most common case)
          DEBUG > 1 and printf qq{Catching "%s as " as ho-hum L<URL> link.\n},
            $treelet->[$i][2]
          ;
          $treelet->[$i][1]{'to'} = Pod:: <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	11145	11242	
==>delete $this->{'accept_codes'}{$new_code};

    DEBUG > 2 and print "OK, won't accept the code $ne <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	5494	5584	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_element_start {     # O <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	128	267	
==>bernhard  $

=head1 NAME

Parrot::Docs::Section::DynaPMCs - Dynamic PMCs documentation section

=head1 SYNOPSIS

	use Parrot::Docs::Section: <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	1919	2014	
==>) (op   - CONTEXT(i->ctx)->pred_offset) : NULL)
#endif

#define OP_AS_OFFS(o) (_reg_base + ((opc <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7186	7281	
==>instr() tests
s1$="Mixed case"
print ucase$(s1$);" Upper"
print lcase$(s1$);" Lower"
a$="   Flus <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18915	19010	
==>instr() tests
s1$="Mixed case"
print ucase$(s1$);" Upper"
print lcase$(s1$);" Lower"
a$="   Flus <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6398	6501	
==>NCH_switch_${CURIC}_LOOP:
if i == 0 goto POST_BRANCH_switch_${CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0 <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4336	4439	
==>NCH_switch_${CURIC}_LOOP:
if i == 0 goto POST_BRANCH_switch_${CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227388	227485	
==>ter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) >= 0) {\n    {{+={{\@3}}}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228368	228465	
==>ter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) >= 0) {\n    {{+={{\@3}}}} <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3968	4157	
==>es, not
system's or third parties'.

=back

=head1 HISTORY

Author: Jarkko Hietaniemi.

=cut

use strict;

my $Obj;

$Obj = shift(@ARGV) unless defined $Obj;
$Obj = 'blib/lib/libparrot.a' un <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1966	2066	
==>_args[$i]};
    my $actual_arg_type;

    if (UNIVERSAL::isa($args[$i], 'Jako::Construct::Expression: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1666	1766	
==>_args[$i]};
    my $actual_arg_type;

    if (UNIVERSAL::isa($args[$i], 'Jako::Construct::Expression: <==
2	/Users/nnunley/parrot/config/auto/headers.pm	206	317	
==>or various C headers.

=cut

package auto::headers;

use strict;
use vars qw($description @args);

use base qw(P <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9801	9919	
==>5);
print " World"

' Expect nothing
Dim A(10)
z=3
c=c+a(z)

' String function, whoa
function a$
	a$="Whoa"
end functio <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264167	264475	
==>DE" => 307,
                  "ARGS" => [
                              "i",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 806 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837280	837540	
==>er->ctx)->user_stack, &({{\@1}}),\n                  STACK_ENTRY_INT);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009235	1009529	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compose",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009999	1010293	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compose",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539603	539894	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ": <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066145	1066436	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ": <==
2	/Users/nnunley/parrot/config/inter/progs.pm	236	370	
==>, linker, shared library builder, C libraries,
lexical analyzer generator and parser generator to use. Also whether debugging
should be <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	11424	11634	
==>e number > ", $tot *1.2, "\n";
    }
    print SOURCE <<END_C;

/*
** Op lookup function:
*/

#define NUM_OPS $num_ops

#define OP_HASH_SIZE $hash_size

/* we could calculate a prime somewhat bigger than
 * n of <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033385	1033469	
==>(lex_pad)) {\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034483	1034567	
==>(lex_pad)) {\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	2138	2239	
==>xt unless s/.*\bCONST_STRING\s*\(\w+\s*,//;

	if ($lines_seen{$line}++) {
	    die "Seen line $line be <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10353	10549	
==>"LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE|PARROT_JUMP_EN <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63942	64138	
==>"LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE|PARROT_JUMP_EN <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1432	1525	
==>class)=shift;
	my($errst,$nberr,$token,$value,$check,$dotpos);
    my($self)={ ERROR => \&_E <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1383	1474	
==>class)=shift;
	my($errst,$nberr,$token,$value,$check,$dotpos);
    my($self)={ ERROR => \&_E <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024645	1025073	
==>" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1145,
                  "ARGS" => [
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 275 \"src/ops/sys.ops\"\n   {{\@1}} = sysinfo_s(interpreter, {{\@2}});\n   { <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	237	353	
==>5:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Label;

use Carp;

use base qw( <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1754	1893	
==>rser->YYData->{scopef} }, $parser->YYData->{scope};
    $parser->YYData->{scope} = [];
    unshift @{ $parser->YYData->{scopef} }, $parser <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	5180	5399	
==>.= emit("a_$name = \$P%0", "r_$name");
        
        # convert the argument, if necessary
        my $convert = $conversions{ $arg->{type} };
        $code .= emit("a_$name = $convert(a_$name)")
            if $conver <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353694	353808	
==>s)) {\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354439	354553	
==>s)) {\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650592	650697	
==>c/ops/pmc.ops\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtable_max)\n        {{\@1}} = 1;\n    el <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651514	651619	
==>c/ops/pmc.ops\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtable_max)\n        {{\@1}} = 1;\n    el <==
2	/Users/nnunley/parrot/tools/build/addopstags.pl	313	584	
==>ext if $seen{$1}++;
	# tag file excmd xflags
	push @tags, join( "\t", $1, $ARGV, qq{$.;"}, "f" ) . "\n";
	}
} continue {
	close ARGV if eof;           # reset $.
}

# Pull existing tags
open T, '<', 'tags';
push @tags, <T>;
close T;

# Spit 'em out sorted
open T, '>', 'ta <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	7445	7694	
==>2, new NoOp($parser);
                push @opcodes1, @opcodes2;
                return [ $result, \@opcodes1 ];
            }
        }
        else {
            $key = $field->[0];
            $val = $field->[1];
        }
        push @o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952870	953365	
==>ns_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1072,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic"
                            ],
                  "BODY" => " <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	141	309	
==>_Limit $VERSION);
@ISA = ('Pod::Simple::PullParser');
$VERSION = '2.02';

use UNIVERSAL ();
sub DEBUG () {0}

$Computerese =  " lang='und' xml:lang='und'" unless defined <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	24405	24604	
==>t <<EOC;
	# func $name named arg $j name $arg_name val $val->[1]
EOC
	    $args[$pushed_args + $j] = promote($val);
	}
	$n = $nfix + $nk/2;
    }
    my $tos = pop @stack;
    my $args = join ', ', @a <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	4136	4267	
==>quoted string or
	#   no prompting is done.  However, QB says that if no prompt, use " ?"
	if ($type[CURR] eq "STRING") {
		$promptc <==
2	/Users/nnunley/parrot/config/init/hints/hpux.pm	242	359	
==>('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }

    $conf->data->set(libs => $libs);
} <==
2	/Users/nnunley/parrot/config/init/hints/netbsd.pm	332	448	
==>('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }
    $conf->data->set(libs => $libs);
} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740457	740585	
==>ine 159 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}}->vtable->get_string(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	3730	3851	
==>he module is linked to.

=cut

sub process_code_start_token
{
    my $self = shift;
    my $token = shift;
    my $tagname <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	32368	32501	
==>aracter escapes it) from the very
	# beginning of $text:

		$substring = extract_delimited($text, "'", '', "'");

	# Extract a single- <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29954	30081	
==>meta($self->{"pattern"}) . '//)
		{
			'.($self->{"lookahead"} ? '$text = $_savetext;' : '').'
			if ($Parse::RecDescent::lastex <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769556	769985	
==>ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 869,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 350 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTER <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	152	278	
==>cs::Item - Documentation item

=head1 SYNOPSIS

    use Parrot::Docs::Item;

=head1 DESCRIPTION

A documentation I<item> is one <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3232	3340	
==>me, $expl, $body, $out) = ($1, $2, $3, choose($4, unescape($5), $6));

        # make the test print the last <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4639	4747	
==>me, $expl, $body, $out) = ($1, $2, $3, choose($4, unescape($5), $6));

        # make the test print the last <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	16327	16551	
==>stead", $line);
		Parse::RecDescent::_hint(
			"The <$op->{type}op:...> directive requires a
			 sequence of exactly three elements. For example:
		         <$op->{type}op:leftarg /op/ rightarg>");
	    }
	    else
	    {
		p <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	75001	75136	
==>prefix,          $errortext
~~                     ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                       $error <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	97020	97326	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnot",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "COD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	98387	98664	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnot",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inl <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	48179	48289	
==>he line
on which the here document starts is not skipped.

To prevent <extract_quotelike> from mucking about wi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117474	117891	
==>hr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 146,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" = <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	83	232	
==>erl.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Section::Perl - Perl documentation section

=head1 SYNOPSIS

	use Par <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	4662	4814	
==>0; $i < scalar(@{$self->{TOKENS}}); $i++) {
    my $tok = $self->at($i);

    printf STDERR "%6d : %-30s : %5s : %-15s: %1s : %s\n",
      $i,
      $tok <==
2	/Users/nnunley/parrot/config/auto/m4.pm	22	127	
==>The Perl Foundation.
# $Id: /parrot/config/auto/m4.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420929	421372	
==>\n    {{+=6}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bind",
                  "FLAGS" => ":base_network",
                  "AR <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	2569	2764	
==>e 'src/charset/tables.c'
#
###########################################################################
my $c_file= File::Spec->catfile($charset_dir, 'tables.c');
open STDOUT, '>', $c_file
    or d <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1498	1656	
==>StringLexer {
    my $parser = shift;
    my $str    = q{};
    my $type   = 'STRING';

    while ( $parser->YYData->{INPUT} ) {

        for ( $parser- <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3013	3171	
==>StringLexer {
    my $parser = shift;
    my $str    = q{};
    my $type   = 'STRING';

    while ( $parser->YYData->{INPUT} ) {

        for ( $parser- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	97650	97896	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnot",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	99049	99295	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnot",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1174	1279	
==>ol '$name'...");

  my $sym = $self->block->find_symbol($name);

  $self->SYNTAX_ERROR("Call to unknown su <==
2	/Users/nnunley/parrot/languages/APL/t/APL.pm	955	1073	
==>my $apl    = $block->APL;
    my $output;
    if (defined($block->out)) {
      $output = $block->out;
      if ($outpu <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	49274	49389	
==>EBUG > 4 and print " And that's more than we needed to close simple.\n";
        push @{ $lineage[-1] }, ' '; # That <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1738	1867	
==>Pod::Simple into trace/debug mode

=head1 SYNOPSIS

 use Pod::Simple::Debug (5);  # or some integer

Or:

 my $debuglevel;
 use Po <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	5	352	
==>yright (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/config/auto/gcc.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/gcc.pm - GNU C Compiler

=head1 DESCRIPTION

Determines whether the C compiler is actually C<gcc>.

=cut

package auto::gcc;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure:: <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	3194	3311	
==>stantiated. Abstract classes are shown with lower
case class names in the class tree.

=item C<noinit>

Used with C<ab <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89255	89486	
==>Y" => "#line 38 \"src/ops/bit.ops\"\n  {{\@1}} &= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89993	90224	
==>Y" => "#line 38 \"src/ops/bit.ops\"\n  {{\@1}} &= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	66764	67176	
==>sweep",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 87,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 1023 \"src/ops/core.ops\"\n  if ({{\@1}})\n    Parrot_do_dod_run( <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1799	2009	
==>tr .= $1,
                last;

            s/^\\([\\"'])//
                and $str .= $1,        # backslash, quotation mark, apostrophe
                last;
            s/^\\a//
                and $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3313	3523	
==>tr .= $1,
                last;

            s/^\\([\\"'])//
                and $str .= $1,        # backslash, quotation mark, apostrophe
                last;
            s/^\\a//
                and $ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	21912	22009	
==>se diag() is often used in conjunction with
a failing test (C<ok() || diag()>) it "passes through" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492315	492754	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 565,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 585 \"src/ops <==
2	/Users/nnunley/parrot/config/auto/gc.pm	758	853	
==>ep ':auto';

$description = 'Determining what allocator to use';

# valid libc/malloc/malloc-tra <==
2	/Users/nnunley/parrot/config/auto/gdbm.pm	459	636	
==>:Step ':auto';

$description = 'Determining if your platform supports gdbm';

@args = qw(verbose);

sub runstep
{
    my ($self, $conf) = (shift, shift);

    my $verbose = $conf <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864761	864994	
==>=> [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 143 \"src/ops/string.ops\"\n  UINTVAL n;\n  STRING *s = {{\@2}};\n  if (!s)\n    n = 0;\n  el <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1508	1633	
==>Sets/gets the transform's arguments.

=cut

sub args
{
    my $self = shift;

    if (@_)
    {
        $self->{ARGS} = [ @_ ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1117	1242	
==>Sets/gets the transform's arguments.

=cut

sub args
{
    my $self = shift;

    if (@_)
    {
        $self->{ARGS} = [ @_ ] <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	18602	18731	
==>ged to two-argument blessing in ctor to support
    derivation from created classes.

    Added classname prefixes to keys in hash <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273565	273726	
==>"n"
                            ],
                  "BODY" => "#line 876 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	274411	274572	
==>"n"
                            ],
                  "BODY" => "#line 876 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  " <==
2	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	723	812	
==>asm>, 
F<examples/benchmarks/stress.pl>, 
F<examples/benchmarks/stress1.pasm>, 
F<examples <==
2	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	570	659	
==>asm>, 
F<examples/benchmarks/stress.pl>, 
F<examples/benchmarks/stress1.pasm>, 
F<examples <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450706	450909	
==>GS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 200 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}}->vtable->absol <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151817	152071	
==>ARGS" => [
                              "p",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 112 \"src/ops/cmp.ops\"\n  if (0 == string_equal(interpreter,\n      {{\ <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	4139	4266	
==>l:\n";

        # Now do dispatch for each method.
        foreach (@{$classes{$_}}) {
            my $label = $_->{'unimplement <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3940	4039	
==>ion, where destination is the first
    # argument, given as --destination=DIRECTORY
    shift(@opli <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12777	12939	
==>YNSELF(args...). See comments above.
    s/DYNSELF           # Macro: DYNSELF
      \(\s*(.*?)\)      # capture argument list
     /"pmc->vtable->$method(" . full_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946317	946623	
==>2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_charset",
                  "FLAG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956763	957038	
==>2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_en <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	431	531	
==>the scalarref we're reading from
  'source_arrayref',   # the arrayref we're reading from
);

#@@@@@@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	12821	12941	
==>ource: $!");
      $self->{'source_filename'} = $source;
      $source = *PODSOURCE{IO};
    }
    $self->_init_fh_source <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	1508	1673	
==>the given file will be installed for, and is
only used by this script to skip files that are not members of any
package.

The various meta flags recognized are:

=ove <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	8748	8932	
==>>{'accept_targets'}{$t};
    DEBUG > 2 and print "OK, won't accept \"$t\" as target.\n";
  }    
  return sort keys %{ $this->{'accept_targets'} } if wantarray;
  return;
}

#@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	12626	12737	
==>d1_halfpoint_size(),
   $_[0]->head2_halfpoint_size(),
   $_[0]->head3_halfpoint_size(),
   $_[0]->head4_halfpoi <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	6275	6366	
==>l")) {
    print SOURCE $trans->ops_addr_decl($bs);
}
if ($trans->can("run_core_func_decl")) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10297	10634	
==>[~!@#%&_'":;>,<]$/;
#    return 1 if $ord =~ /^[`~!@#$%^&*()\-_+{}\[\]\\|'":;\/?.>,<]$/;
    return 0;
}

sub Regex::Ops::Tree::match::render {
    my $op = shift;
    my $atom = $op->{args}->[0];
    if ($atom =~ /^\d+$/) {
        return chr($atom) if isplain($atom);
        return sprintf("\\x%02x", $atom); # Nonportable
    } else { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5656	5889	
==>MP" => 0,
                  "NAME" => "load_bytecode",
                  "FLAGS" => ":load_file",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6321	6554	
==>MP" => 0,
                  "NAME" => "load_bytecode",
                  "FLAGS" => ":load_file",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461626	461830	
==>,
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 282 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	3299	3416	
==>||= \@ARGV;

    exit unless my @files = get_files( %options );

    set_flags( %options );

    local $Test::Harness: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415736	416374	
==>RS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 479,
                  "ARGS" => [
                              "i",
                              "p",
                              "ic",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpr <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27220	27324	
==>y.
        $pir .= sub_meta($pre_translate_code, $mv, "pre-translate for $rule->{'name'}");

		# If we ha <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34359	34463	
==>y.
        $pir .= sub_meta($pre_translate_code, $mv, "pre-translate for $rule->{'name'}");

		# If we ha <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	17743	17837	
==>prevoffset;
		$itempos[$#itempos]{'line'}{'to'}   = $prevline;
		$itempos[$#itempos]{'column'}{ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	19783	19935	
==>p{$c};
    my ($opcode, $rest) = ($code[$code_l]->[2],$code[$code_l]->[4]);
    my $targ = "pc_xxx";
    my $label = '';
    if (!defined $op) {
	goto pl <==
2	/Users/nnunley/parrot/config/gen/config_h.pm	1002	1123	
==>mmentType   => '/*',
        ignorePattern => 'PARROT_CONFIG_DATE',
        feature_file  => 1
    );

    my $hh = "inclu <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	6413	6522	
==>begin with _.  These are likely to be internal
    # variables used by libc macros.
    my @symbols = grep { ! <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	24799	25025	
==>print "Generated errata... relooping...\n";
          next;  # I.e., loop around again to process these fake-o paragraphs
        }
      }
      
      splice @$paras; # Well, that's that for this paragraph buffer.
      DEBUG <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	2642	2822	
==>s/dev/mk_manifests.pl'),
            $self->new_item('', 'tools/dev/mk_manifest_and_skip.pl'),
            $self->new_item('', 'tools/dev/rebuild_miniparrot.pl'),
            $self- <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	48045	48250	
==>it;

in which the here document I<is> contiguous. It still leaves the
matching position after the here document, but now the rest of the line
on which the here document starts is not skipped.

To prevent <e <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4986	5154	
==>me = $ident->value;

      #
      # Allow there to be Properties:
      #

      my %props;

      while ($self->skip_colon) {
        my $prop = $self->require_ident-> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7980	8148	
==>me = $ident->value;

      #
      # Allow there to be Properties:
      #

      my %props;

      while ($self->skip_colon) {
        my $prop = $self->require_ident-> <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3668	3816	
==>{'RTFDEFLANG'} || '') =~ m/^([a-fA-F0-9]{4})$/s ? hex($1)
                                      # yes, tolerate even more hex!
    : '1033'
  );

  $ <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	2700	2926	
==>type, $name, $args, $argdirs, $labels, $flags) = @_;

    my $self = {
        CODE => $code,
        TYPE => $type,
        NAME => $name,
        ARGS => [ @$args ],
        ARGDIRS => [ @$argdirs ],
        LABELS  => [ @$la <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	13868	14069	
==>E_${selectcounter}_0
	
SELECTSTART
	# Honestly the next thing needs to be a case statement.
	# I don't enforce it though.  Honor system!  :)
}
sub parse_case {
	my @a;
	my $s=$selects[-1];
	my($jump, $i <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	1461	1579	
==>for (keys %results) {
        $conf->data->set($_ => $results{$_});
    }

    if ($results{ptrsize} != $results{intval <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1004	1148	
==>= Parrot::Test::per_test( '.out', $count );
        my $path_to_parrot = Parrot::Test::path_to_parrot();
        my $dir_count      = scalar(File <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	51937	52027	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub text_content_of_treelet {  # method: $p <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8708	8841	
==>rror recovery.\n";
#DBG>				$dbgerror=0;
#DBG>			};

			    push(@$stack,
                     [ $$states[$$stack[-1][0]]{GOTOS}{ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8316	8444	
==>rror recovery.\n";
#DBG>				$dbgerror=0;
#DBG>			};

			    push(@$stack,
                     [ $$states[$$stack[-1][0]]{GOTOS}{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042930	1043106	
==>set_pmc_keyed_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043827	1044003	
==>set_pmc_keyed_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	2135	2266	
==>2 Public or Private

If the API is really meant to be public, prefix it with <Parrot_>,
or something else specific enough, preferabl <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	9206	9318	
==>"$source_escaped"\n};
}


#
# write op_func_func
#

my ($op_info, $op_func, $getop);
$op_info = $op_func = 'NULL' <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5701	5902	
==>is printed.

=cut

sub file_paths_relative_to_source
{
    my $self = shift;
    my $source = shift;
    my $rel_path = shift;
    my @rel_paths = ();
    
    if ( $source->relative_path_is_directory($ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1822	1952	
==>(@args), $name)
    unless @formal_args == @args;

  for (my $i = 0; $i < @args; $i++) {
    my ($formal_arg_type, $formal_arg_name <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1522	1652	
==>(@args), $name)
    unless @formal_args == @args;

  for (my $i = 0; $i < @args; $i++) {
    my ($formal_arg_type, $formal_arg_name <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	44977	45555	
==>S element,
                   #  or by an ancestor being an S element.

  for(my $i = 2; $i < @$treelet; ++$i) {
    if(ref $treelet->[$i]) {
      if( _change_S_to_nbsp( $treelet->[$i], $in_s ) ) {
        my $to_pull_up = $treelet->[$i];
        splice @$to_pull_up,0,2;   # ...leaving just its content
        splice @$treelet, $i, 1, @$to_pull_up;  # Pull up content
        $i +=  @$to_pull_up - 1;   # Make $i skip the pulled-up stuff
      }
    } else {
      $treelet->[$i] =~ tr/ /\xA0/ if ASCII and $in_s;
       # (If not in ASCIIland, we can't assume that \xA0 == nb <==
2	/Users/nnunley/parrot/config/inter/progs.pm	1842	2064	
==>at C compiler do you want to use?", $cc)
        if $ask;
    $conf->data->set(cc => $cc);

    $link = integrate($conf->data->get('link'), $conf->options->get('link'));
    $link = prompt("How about your linker?", $link) i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563319	563498	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addmethod",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564216	564395	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addmethod",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" = <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9436	9568	
==>nberror;

        };

			$$errstatus == 3	#The next token is not valid: discard it
		and	do {
				$$token eq ''	# End of input: <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9012	9138	
==>nberror;

        };

			$$errstatus == 3	#The next token is not valid: discard it
		and	do {
				$$token eq ''	# End of input: <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3451	3595	
==>s*)([^\n]+)\s*\Z/$1puts [$2]/m;

        $tests{$name} = [$expl, $body, $out];
    }

    return %tests;
}

##
## $preamble = extract_preamble($s <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10158	10295	
==>ack);
		}

			@$stack
		or	do {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**No state left on stack: aborting.\n";

			retur <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9705	9833	
==>ack);
		}

			@$stack
		or	do {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**No state left on stack: aborting.\n";

			retur <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	7171	7309	
==>src_stem.c"))
          or die "compile $src_stem.c failed ($?)\n";
    }
    else {
        1;
    }
}

sub partial_link {
    my ($group, <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7382	7520	
==>src_stem.c"))
          or die "compile $src_stem.c failed ($?)\n";
    }
    else {
        1;
    }
}

sub partial_link {
    my ($group, <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	780	930	
==>'))
	{
	    my $code = $file->read;
	    
	    if ( $code =~ /^pmclass\s+[A-Z]/smo )
	    {
	        push(@concrete_items, 
	            $self->new_ite <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1072	1190	
==>ION = '1.05';
$COMPATIBLE = '0.07';
$FILENAME=__FILE__;

use Carp;

#Known parameters, all starting with YY (lead <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1036	1148	
==>ION = '1.05';
$COMPATIBLE = '0.07';
$FILENAME=__FILE__;

use Carp;

#Known parameters, all starting with YY (lead <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	530	656	
==>ns::CPrederef );

sub new
{
	my $class = shift;
	my $self  = $class->SUPER::new( @_ );
	$self->{split_count} ||= 0;
	return $se <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806049	806141	
==>"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed(interpreter, {{\@2}}, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806955	807047	
==>"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed(interpreter, {{\@2}}, {{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	388	548	
==>it backwards
    
    unless( defined $variable and ref($variable) eq 'SCALAR') {
      require Carp;
      Carp::croak("Usage:\n use Pod::Simple::Debug (NUMVAL) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130066	130518	
==>> 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 160,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129328	129646	
==>> 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 159,
                  "AR <==
2	/Users/nnunley/parrot/lib/File/Which.pm	3904	3998	
==>), looking for executable files having the name specified
as a parameter to C<which()>. Under W <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	123	215	
==>charset_tables.pl -- generate charset tables

=head1 SYNOPSIS

	perl tools/dev/gen_charset_ta <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	7696	7816	
==>->{No_Plan};
    return(undef);
};


=item B<skip_all>

  $Test->skip_all;
  $Test->skip_all($reason);

Skips all the tes <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129622	129877	
==>59,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 301 \"src/ops/bit.ops\"\n  {{\@1}} ^= {{\@2}};\n  {{+=3}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	1462	1636	
==>nore and $dir->name =~ /$ignore/;
            
            push @files, $dir->files_of_type($type, 1, $ignore);
        }
    }
    
    return @files;
}

=back

=head1 SEE AL <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10807	10931	
==>0 }
sub Regex::Ops::Tree::seq::render {
    my $op = shift;
    return join('', map { $_->render() } @{ $op->{args} });
}

su <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2903	3017	
==>args
    $self->file,
    $self->line
  );

  $block->set_symbol($self->name, $sym);

  $block->push_content($self) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2626	2740	
==>args
    $self->file,
    $self->line
  );

  $block->set_symbol($self->name, $sym);

  $block->push_content($self) <==
2	/Users/nnunley/parrot/config/auto/jit.pm	3093	3311	
==>tarchname,
            jitcpuarch  => $jitcpuarch,
            jitcpu      => uc($jitcpuarch),
            jitosname   => uc($jitosname),
            jitcapable  => 1,
            cc_hasjit   => " -DHAS_JIT -D\U$jitcpua <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6796	6915	
==>\n";
    }
}

sub generate_c {
    my ($pmc) = @_;

    if (needs_build("$pmc.c", "$pmc.pmc")) {
        run("$PMC2C --c <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7007	7126	
==>\n";
    }
}

sub generate_c {
    my ($pmc) = @_;

    if (needs_build("$pmc.c", "$pmc.pmc")) {
        run("$PMC2C --c <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	2165	2294	
==>ff is empty)

=cut

sub ok ($;$) {
    $Test->ok(@_);
}


=back

Test::Simple will start by printing number of tests run in the fo <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	5499	5766	
==>)[1];
                         $dir =~ s!\.svn/$!!;
                         $dir => 1 
                       } keys %{ ExtUtils::Manifest::manifind() };
   my @skip;     # regular expressions for files to skip
   foreach my $dir ( sort keys %dir_list ) {
       next <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	6	106	
==>crement.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	6	106	
==>crement.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is s <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37292	37382	
==>head} };

''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying repeated subrule: [' <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	2983	3115	
==>de|-c	code/text symbols (Tt)
--data|-d	data symbols (Dd, Bb)
--init|-i	initialised data symbols (Dd)
--uninit|-u	uninitialised data s <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7644	7741	
==>ALL_PLOOP_END_${CURIC}
dec ${ITEMP0}
dec ${ITEMP2}

# Generate name of register to hold value we p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2999	3197	
==>)) {
    $dest = $dest_ident->compile($compiler);
  }

  #
  # For built-in subs (ops):
  #

  if (exists $props{op}) {
    my $op = $props{op};

#    $self->DEBUG(0, "Calling %s%s...", $name, ($op ? <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1272	1379	
==>g.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
dec ${ITEMP0}
${PTEMP0} = <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2982	3089	
==>g.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
dec ${ITEMP0}
${PTEMP0} = <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	5019	5127	
==>nd that file contains POD, then a link will be made to that file's
documentation file.

=cut

sub process_fil <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	267711	267814	
==>> "#line 811 \"src/ops/cmp.ops\"\n    {{\@1}} = VTABLE_get_bool(interpreter, {{\@2}});\n    {{+=3}};\n", <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	10417	10588	
==>$op->arg_types
            ? map { sprintf("PARROT_ARG_%s", uc $_) } $op->arg_types
            : 0
        ) . " }";
        my $arg_dirs   = "{ " . join(", ", scalar $op- <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	21472	21646	
==>e (;$$$$)	# ($text, $functions_ref, $max_fields, $ignoreunknown)
{
	my $textref = defined($_[0]) ? \$_[0] : \$_;
	my $posbug = pos;
	my ($lastpos, $firstpos);
	my @fields = () <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100958	1101294	
==>GS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1220,
                  "ARGS" => [
                              "n", <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	304	410	
==>e warnings";

package Jako::Construct::Block::Conditional::Unless;

use Carp;

use base qw(Jako::Construct: <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	32079	32292	
==>ax {
}

sub _op_identifier_p {
}

sub _op_unwrap_syntax {
}

sub _op_free_identifier_eq_p {
}

sub _op_bound_identifier_eq_p {
}

sub _op_identifier_symbol {
}

sub _op_generate_identifier {
}

sub _op_construct_id <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362170	362535	
==>DIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 424,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 281 \"s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	1169	1286	
==>ight = $self->right->compile($compiler);

  $compiler->emit("  new $left, .$right");

  return 1;
}


#
# sax()
#

sub <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	678	776	
==>_prefix>

The exec prefix. Defaults to '/usr'.

=item C<bindir>

The executables directory. Default <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	907	1005	
==>_prefix>

The exec prefix. Defaults to '/usr'.

=item C<bindir>

The executables directory. Default <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11677	11788	
==>_call_setup {
    my ($self, $name, $uid) = @_;
    return ".local pmc $uid";
}

sub output_call {
    my ($self <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	20402	20753	
==>ser,
        'result' => $result,
    );
    push @opcodes, new NewOp( $parser,
        'result' => $result,
        'arg1'   => '.Lua' . ucfirst( $type{$op} ),
    );

    if ( $op eq '#' ) {
        push @opcodes, new CallMethOp( $parser,
            'result' => [$result],
            'arg1'   => 'len',
            'arg2'   => [ $expr-> <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	22824	23162	
==>ser,
        'result' => $result,
    );
    push @opcodes, new NewOp( $parser,
        'result' => $result,
        'arg1'   => '.LuaBoolean',
    );
    push @opcodes, new ToBoolOp( $parser,
        'arg1'   => $flag,
        'result' => $result,
    );
    return [ $result, \@opcodes ];
}

sub BuildLogop {
    my ( $par <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	683	787	
==>ed
# text under the same copyright as the Parse::Yapp module itself.
#
# This notice should remain unc <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	664	765	
==>ed
# text under the same copyright as the Parse::Yapp module itself.
#
# This notice should remain unc <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	46169	46257	
==>unt($grammar) unless $lines;
	$self->{_check}{itempos} = ($grammar =~ /\@itempos\b|\$item <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	566	657	
==>ile;
use Parrot::OpTrans::Compiled;
use Parrot::OpLib::core;
use Parrot::Config;
use Parrot: <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	21102	21221	
==>g,		# 2ND LDEL (MAYBE)
		$str2pos,	$rd2pos-$str2pos,	# 2ND STR (MAYBE)
		$rd2pos,	$second_arg,		# 2ND RDEL (MAYBE)
		$mo <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	159	261	
==>ot::Config;

require Exporter;
require Parrot::Test;

@EXPORT = ( qw(output_is output_like output_isnt) <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	76	178	
==>ot::Config;

require Exporter;
require Parrot::Test;

@EXPORT = ( qw(output_is output_like output_isnt) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2971	3079	
==>ding Mark found; but Pod::Simple v$Pod::Simple::VERSION doesn't implement UTF16 yet."
        );
        spli <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3369	3477	
==>ding Mark found; but Pod::Simple v$Pod::Simple::VERSION doesn't implement UTF16 yet."
        );
        spli <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39725	39881	
==>at ) = @_;
    if ( scalar @{$stat} ) {
        my @opcodes = ();
        my $main = new defn( '_main', 'fct' );
        push @opcodes, new SubDir( $pars <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	13819	14082	
==>ess ( defined $expr ) {
            $expr = BuildLiteral( $parser, 'nil', 'nil' );
        }
        if (    scalar( @{$exprs} ) == 0
            and scalar( @{$vars} ) != 0
            and scalar( @{ $expr->[1] } ) != 0
            and $expr->[1]->[-1]->isa <==
2	/Users/nnunley/parrot/lib/Test/More.pm	27718	27847	
==>isted
because I couldn't figure out how to display a useful diff of two
arbitrary data structures.

These functions are usually us <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2957	3076	
==>ould be skipped"
Label2:
   PRINT "4 back in subroutine one"
   RETURN Label1
Sub2:
   PRINT "3 in subroutine two"
   RE <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16924	17043	
==>ould be skipped"
Label2:
   PRINT "4 back in subroutine one"
   RETURN Label1
Sub2:
   PRINT "3 in subroutine two"
   RE <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	4	103	
==>PMC.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subj <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	853	947	
==>w_group('PMCs', '',
			$self->new_item('', 'lib/Parrot/Pmc2c.pm'),
			$self->new_item('', 'lib/ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2475	2582	
==>actually declare the constant, we will place its
  # definition into the block at the top of the block stack <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2222	2329	
==>actually declare the constant, we will place its
  # definition into the block at the top of the block stack <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	12995	13193	
==>H_SIZE * sizeof(HOP*));
        hop_init();
    }
    for (p = hop[hidx]; p; p = p->next) {
        if(!strcmp(name, full ? p->info->full_name : p->info->name))
            return p->info - ${bs}op_l <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	1404	1618	
==>uct name.

    my ($class, @decls);
    my $base_type = ref $_[1];
    if ( $base_type eq 'HASH' ) {
        $class = shift;
        @decls = %{shift()};
        _usage_error() if @_;
    }
    elsif ( $base_type eq <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	9938	10128	
==>', ''

.sub trans_instructions
    .param pmc assembly
    .param pmc class
    .param pmc meth
    .param pmc ptypes
    .param pmc ltypes
    .param pmc rettype
    .param int trace
    .lo <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	1532	1634	
==>which calls these functions, so most
   extension code is safe, no problem.

   The problem comes in if <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147253	147339	
==>"#line 98 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148194	148280	
==>"#line 98 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	757	863	
==>=item C<-u>

List the uninitialised data symbols.

=item C<--const>

=item C<-C>

List the constant (read-o <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	758	853	
==>tuff
our $CC = qq[/usr/bin/gcc-4.0 -c];
our $LD = qq[c++];
our $LDFLAGS = qq[-L/opt/local/lib -L <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	762	857	
==>tuff
our $CC = qq[/usr/bin/gcc-4.0 -c];
our $LD = qq[c++];
our $LDFLAGS = qq[-L/opt/local/lib -L <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36730	36873	
==>-67
	},
	{#State 142
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553990	554093	
==>nterpreter->current_cont = {{\@3}};\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555387	555490	
==>nterpreter->current_cont = {{\@3}};\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_m <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	1892	2040	
==>ect method.

=cut

sub args
{
    my $class = shift;
    $class = ref $class || $class;
    {
        no strict 'refs';
        return @{$class . ":: <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	277	435	
==>:CPrederef> and
C<Parrot::OpTrans::CGoto> to provide predereferenced register addressing
and C C<goto> run loop.

=head2 Instance Methods

=over 4

=cut

packa <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	963	1055	
==>s languages/punie/punie.pbc $lang_f";

    $exit_code = Parrot::Test::run_command($cmd, CD => <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	6473	6588	
==>l early if
# you get too close to the end of the string.
#
# Args:
#  t - The Tree op being visited
#  guarantee - T <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2138	2229	
==>ns undef if unknown
  }
}

#---------------------------------------------------------------- <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2603	2694	
==>ns undef if unknown
  }
}

#---------------------------------------------------------------- <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3249	3368	
==>}
		else
		{
			# It would be good to check the short description for each
			# file and create an item for sequences of <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	3043	3223	
==>not(defined($self->block->block));
}

#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  confess "No compiler!" unless $compiler;

  my $type  = $self->typ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574811	575086	
==>rotClass, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575615	575890	
==>rotClass, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	8200	8383	
==>w($10)->minutes) . "&nbsp;min",
      summary       => [{
        total       => $11,
        ok          => $12,
        failed      => $13,
        todo        => $14,
        skippe <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8748	8848	
==>et type of return value and build code to pop it.
${ITEMP1} = elements ${STYPES}
dec ${ITEMP1}
${PTEM <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7320	7420	
==>et type of return value and build code to pop it.
${ITEMP1} = elements ${STYPES}
dec ${ITEMP1}
${PTEM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	282191	282352	
==>n"
                            ],
                  "BODY" => "#line 908 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}};\n  {{+=4}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283036	283197	
==>n"
                            ],
                  "BODY" => "#line 908 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}};\n  {{+=4}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7687	7821	
==>tagname eq 'Para') {
          $tagname = 'Para_item' if @stack and $stack[-1] eq 'text';
        }
        print $fh $self->{'Tagmap'} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	8164	8293	
==>tagname eq 'Para' ) {
        $tagname = 'Para_item' if @stack and $stack[-1] eq 'text';
      }
      print $fh $self->{'Tagmap'} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	28908	29012	
==>"Expected rule!" unless ref($tree) eq 'Regex::Ops::Tree::rule';

    my (undef, @ops) = $self->rewrite($t <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	1630	1812	
==>d.

    $contents = $file->read;
    @lines = $file->read;

=cut

sub read
{
    my $self = shift;
    my $fh = FileHandle->new($self->path) or 
        die 'Failed to open ' . $self- <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	9452	9604	
==>st->val) = val;
    Parrot_convert_arg(interpreter, st);
    Parrot_store_arg(interpreter, st);
}

/* All our static functions that call in various ways. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035492	1035601	
==>PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n    PMC *result = NULL;\n\n    if (!PMC_IS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036656	1036765	
==>PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n    PMC *result = NULL;\n\n    if (!PMC_IS <==
2	/Users/nnunley/parrot/Configure.pl	7612	7734	
==>do not have a full ICU installation:

   --without-icu        Build parrot without ICU support
   --icuheaders=(path)  Loca <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	5128	5332	
==>if ($text =~ m{^( == | >= | <= | != | < | > )(.*)$}x) {
      push @tokens, Jako::Token->new(
        $file, $line, 'infix-rel', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^( = )(. <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3194	3352	
==>+ S>, the position of the next op.

=item C<expr ADDRESS(X)>

Transforms to C<X>, an absolute address.

=item C<OP_SIZE>

Transforms to C<S>, the size of an op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	535725	536016	
==>BODY" => "#line 930 \"src/ops/math.ops\"\n  {{\@1}} = ((FLOATVAL)1) / cos((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787732	788011	
==>=> 889,
                  "ARGS" => [
                              "n",
                              "p",
                              "ki"
                            ],
                  "BODY" => "#line 422 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keye <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85053	85496	
==>LAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 106,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 1208 \"src/ops/core.ops\"\n  PMC * const compreg_hash <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600286	600524	
==>s' doesn't exist\", name);\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601362	601600	
==>s' doesn't exist\", name);\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13674	13906	
==>r that case.
      #
      # We *always* create a continue block, even when there is none in the source,
      # so that upon compilation all the appropriate labels can be generated for
      # the loop control statements to function <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1470	1570	
==>shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'op', Attributes => { kind => 'post <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1464	1564	
==>shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'op', Attributes => { kind => 'post <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	25367	25485	
==>everything to unbuffered else plain prints to STDOUT will
    # come out in the wrong order from our own prints.
    _a <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11248	11342	
==>0} = concat ${STEMP0}
inc stack_depth
${STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
pre_c <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8434	8528	
==>0} = concat ${STEMP0}
inc stack_depth
${STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
pre_c <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8950	9127	
==>x04
#DBG>		and	print STDERR "Forced Error recovery.\n";

            $$check='';

        };

        #Error
            $$errstatus
        or   do {

            $$e <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8548	8714	
==>x04
#DBG>		and	print STDERR "Forced Error recovery.\n";

            $$check='';

        };

        #Error
            $$errstatus
        or   do {

            $$e <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	429	540	
==>rot_config_c.pl --mini > src/null_config.c
    % perl tools/build/parrot_config_c.pl --install > src/install_con <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	16415	16555	
==>int CODE qq{\tunshift P9, "OP"\n};
		print CODE qq{\tunshift P9, "or"\n};
	}
	if ($ops) {
		print CODE<<OPS;
	I5= P14
	div I5, I5, 2
CASE_${j <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	14474	14909	
==>rlArray   # OR
	new P13, .PerlArray   # TO
	new P14, .PerlArray   # Operators.  Op first, then value
CASE_SETUP
	my($ors,$tos,$ops)=(0,0,0);
	while(1) {
		if ($type[CURR] eq "COMM") {
			print CODE "\t#$syms[CURR]\n";
			last;
		}
		last if ($type[CURR] eq "STMT" or $type[CURR] eq "COMP");
		if ($syms[NEXT] =~ /^>|>=|<|<=|=|<>$/) {   # Relop
			feedme();
			$op=$syms[CURR];
			@a=EXPRESSION();
			feedme();
			print CODE<<OP;
	push P <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11695	11816	
==>Build register name to pop if not lazy.
${ITEMP1} = elements ${STYPES}
dec ${ITEMP1}
${PTEMP0} = ${STYPES}[${ITEMP1}]
${ST <==
2	/Users/nnunley/parrot/config/gen/platform.pm	3543	3720	
==>l.c
        stat.c
        math.c
        memalign.c
        signal.c
        itimer.c
        memexec.c
        exec.c
        misc.c
        /;

    open PLATFORM_C, "> src/pla <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9057	9157	
==>libs

Calls the compiler and linker on F<test.c>.

=cut

sub cc_build
{
    my ($cc_args, $link_args) <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	9117	9313	
==>/\.\d+/;
    $pointfloat = qr/(?:(?:\d+)?$frac)|\d+\./o;
    $expfloat = qr/(?:\d+|$pointfloat)$exp/o;
    return 1 if ($c =~ /$pointfloat|$expfloat/o);
    return 0;
}

sub is_imag {
    my $c = $ <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	6115	6251	
==>en implementation of the current method in the nearest
superclass, using the static type of C<SELF>.

=item C<DYNSUPER(a,b,c)>

As above, <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	11772	11945	
==>, [ @$argdirs ], [ @$labels ], $flags);
        my $op_size = $op->size;
        my $jumps = "0";

        #
        # Macro substitutions:
        #
        # We convert the <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539609	539909	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066151	1066451	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math", <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1141	1286	
==>e.

This class (which is very small -- read the source) overrides
Pod::Simple's _handle_element_start, _handle_text, and
_handle_element_end metho <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	12143	12246	
==>ic void hop_deinit(void);

/*
 * find a short or full opcode
 * usage:
 *
 * interp->op_lib->op_code("se <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131430	131735	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132285	132590	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	15008	15182	
==>ested codeblock at "} .
				     substr($$textref,pos($$textref),20) .
				     q{..."},
				 pos $$textref;
			last;
		}

		$patvalid = 0;
		$$textref =~ m/\G\s*(\w+|[-=>]>|. <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	6865	7072	
==>745,
 'cup'      , 8746,
 'int'      , 8747,
 'there4'   , 8756,
 'sim'      , 8764,
 'cong'     , 8773,
 'asymp'    , 8776,
 'ne'       , 8800,
 'equiv'    , 8801,
 'le'       , 8804,
 'ge'       , 8805,
 's <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7004	7103	
==>str(s1$, found$)
print "Bogus  (0): ", instr(s1$, bogus$)
print "Null   (1): ", instr(s1$, "")
print <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18733	18832	
==>str(s1$, found$)
print "Bogus  (0): ", instr(s1$, bogus$)
print "Null   (1): ", instr(s1$, "")
print <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353671	353761	
==>ng_length(interpreter, s)) {\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n  }\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354416	354506	
==>ng_length(interpreter, s)) {\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n  }\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	28160	28264	
==>my($self,@stack) = @_;

  my($i, $treelet);
  my $start_line = $stack[0][1]{'start_line'};

  # A recursi <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	18941	19040	
==>than O(n).
	my $pir = <<PIRCODE;
	# Translation code dispatch table.
	cur_ic = bc.read_uint8()
	next <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	456	562	
==>nslation not implemented for current stack to register mapper\n";
}

# Extra subroutines required for the m <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	2222	2377	
==>END_PIR"             # not equal
    $I100 = isne %1, %2
    %1 = $I100
END_PIR

    $P0[unicode:"dyadic:\u2264"]  = <<"END_PIR"             # not greater t <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	928	1065	
==>ng_f'"; # JMG
        binmode LANG; # JMG
        print LANG $lang_code; # JMG
        close LANG; # JMG

        Parrot::Test::run_comman <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	840	977	
==>ng_f'"; # JMG
        binmode LANG; # JMG
        print LANG $lang_code; # JMG
        close LANG; # JMG

        Parrot::Test::run_comman <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564611	564883	
==>> 645,
                  "ARGS" => [
                              "p",
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line 183 \"src/ops/object.ops\"\n  VTABLE_add_method(interpreter, {{\@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9578	9710	
==>.0-9]/s
        or $new_code =~ m/:[-\.0-9]/s;
            # The legal under-0x80 Name characters that 
            #  an XML Name st <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10842	10974	
==>.0-9]/s
        or $new_code =~ m/:[-\.0-9]/s;
            # The legal under-0x80 Name characters that 
            #  an XML Name st <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45514	45653	
==>skip:';
my $OPMK		= '\G\s*<(left|right)op:';
my $ENDDIRECTIVEMK	= '\G\s*>';
my $RESYNCMK		= '\G\s*<resync>';
my $RESYNCPATMK		= '\G\s*<resyn <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	312	422	
==>data = $conf->data;
    my $options = $conf->options;
    my @steps = $conf->steps;
    $conf->add_steps(@steps <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	2726	2970	
==>elf)]);

		print OUT "}";

		close OUT
			or croak("Can't write to new module file '$modulefile'");
}


package Parse::RecDescent::LineCounter;


sub TIESCALAR	# ($classname, \$text, $thisparser, $prevflag)
{
	bless {
		text    => $_[1],
		parse <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12363	12521	
==>tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 9
		ACTIONS => {
			":" => 42,
			'STRING' => 44,
			"[" => 47,
			"{" = <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	32705	32889	
==>th one text
      #  node...
      if(! ref $treelet->[$i][2] and
        $treelet->[$i][2] =~ m/^\w+:[^:\s]\S*$/s
      ) {
        $treelet->[$i][1]{'type'} = 'url';
        $treelet- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409553	410076	
==>"recv",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "o"
                               ],
                  "TYPE" => "function",
                  "CODE" => 473,
                  "ARGS" => [
                              "i",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 545 \"src/ops/io. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103831	1103918	
==>ps/experimental.ops\"\n\tSTRING *class = {{\@2}};\n\tINTVAL type = pmc_type(interpreter, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105046	1105133	
==>ps/experimental.ops\"\n\tSTRING *class = {{\@2}};\n\tINTVAL type = pmc_type(interpreter, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556797	556884	
==>nt = {{\@3}};\n  interpreter->current_method = VTABLE_get_string(interpreter, method_pmc <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	4289	4396	
==>"$name: Unknown builtin\n" unless exists $built_ins{$name};

  my $self = Scheme::Builtins->new();

  for (@ <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4968	5141	
==>ing below particular directories use a regex
in C<$ignore>.

=cut

sub files
{
    my $self = shift;
    my $recursive = shift;
    my $ignore = shift;
    my @files = map {$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	318511	318753	
==>);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u2_ovf", <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	12076	12184	
==>sult)
.end

.sub unicode:"monadic:\u2191" # first
    .param pmc op1
    $P1 = shift op1
    .return ($P1)
.e <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	614	787	
==>rse::RecDescent::unexpected
	    || $Parse::RecDescent::unexpected =~ /\A\s*\Z/s)
	{
		return "Was expecting $Parse::RecDescent::expected";
	}
	else
	{
		$Parse::RecDescent:: <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	5491	5702	
==>ass$/) {
            if ($rule->{$_} =~ /^(op|load|store|branch|calling)$/) {
                if ($has_class) {
                    die "Duplicate value for class in rule $rule->{'name'}\n";
                } els <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	40529	40704	
==>eatment...\n";
        $para->[1]{'xml:space'} = 'preserve';
        push @$para, join "\n", splice(@$para, 2) if @$para > 3;
        
      } else {
        die "\$para type i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366993	367090	
==>_get_string(interpreter, {{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	11158	11277	
==>o  = 1 + count_newlines($pre);
    $classblock = substr($classblock, 1,-1); # trim out the { }

    my (@methods, %meth_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	249	369	
==>:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statement::Goto;

use Carp;

use base q <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6746	6871	
==>pmc.pmc")
          or die "pmc2c dump failed ($?)\n";
    }
}

sub generate_c {
    my ($pmc) = @_;

    if (needs_build("$pm <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6957	7082	
==>pmc.pmc")
          or die "pmc2c dump failed ($?)\n";
    }
}

sub generate_c {
    my ($pmc) = @_;

    if (needs_build("$pm <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24512	24610	
==>\"src/ops/core.ops\"\n  opcode_t *dest = {{^+1}};\n  PMC * const p = CONTEXT(interpreter->ctx)->cur <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	3216	3340	
==>2;
      next;
    }

    if ($text =~ m{^([;])(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, 'semicol <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27890	28011	
==>inst('','div',[$return,$return,$temp]);
      $self->_restore($temp);
    }
  }
  return $return;
}

sub _op_abs {
  my ($ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	372791	373199	
==>DIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 436,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 395 \"src/ops/io.ops\"\n  STRING ** const s = &{{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761485	761720	
==>ound register access\");\n    REG_PMC({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762338	762573	
==>ound register access\");\n    REG_PMC({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630414	630515	
==>Y" => "#line 81 \"src/ops/pmc.ops\"\n    PMC *class = {{\@2}};\n    INTVAL type = pmc_type_p(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631404	631505	
==>Y" => "#line 81 \"src/ops/pmc.ops\"\n    PMC *class = {{\@2}};\n    INTVAL type = pmc_type_p(interpret <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3755	3871	
==>_and_libs(@pmcs);

    # Convert X.c -> X.o for all X.c
    compile($_) foreach (@pmcs);

    # lib-GROUP.c
    for m <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3859	3975	
==>_and_libs(@pmcs);

    # Convert X.c -> X.o for all X.c
    compile($_) foreach (@pmcs);

    # lib-GROUP.c
    for m <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19695	19837	
==>f $matchcount == 0 goto lastback
#                 $matchcount--
#                 goto R.back
#           back: if $matchcount >= max goto rfa <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19397	19533	
==>f $matchcount == 0 goto lastback
#               $matchcount--
#               goto R.back
#         back: if $matchcount >= max goto rfa <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27796	27917	
==>{dynpmc}) {
        $hout .= 'PARROT_DYNEXT_EXPORT ';
    }
    $hout .= <<"EOC";
void Parrot_${classname}_class_init(Parr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	310857	311047	
==>> "debug_print",
                  "FLAGS" => ":base_debug",
                  "ARGDIRS" => [],
                  "TYPE" => "function",
                  "CODE" => 362,
                  "ARG <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1853	1954	
==>rrot::Docs::Section::BigNum->new,
        Parrot::Docs::Section::Compilers->new,
        Parrot::Docs: <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4294	4421	
==>p}, [ "lib-$group", @$pmcs ] )
          or die "partial link of $group failed ($?)\n";
    }

    # Link non-grouped PMCs indiv <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4398	4525	
==>p}, [ "lib-$group", @$pmcs ] )
          or die "partial link of $group failed ($?)\n";
    }

    # Link non-grouped PMCs indiv <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	20298	20628	
==>st::${language}";

                # set the builder object, and parrot config.
                my $obj         = $class->new();
                $obj->{builder} = $builder;
                $obj->{relpath} = $path_to_parrot;
                $obj->{parrot}  = $parrot;
                $obj->$meth(@remaining);

                # rest <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3259	3397	
==>lf)=shift;

        @_
    and ${$$self{VALUE}}=$_[0];
    ${$$self{VALUE}};
}

sub YYExpect {
    my($self)=shift;

    keys %{$ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3097	3225	
==>lf)=shift;

        @_
    and ${$$self{VALUE}}=$_[0];
    ${$$self{VALUE}};
}

sub YYExpect {
    my($self)=shift;

    keys %{$ <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1218	1332	
==>, :$depends) returns Bool is export {
    # hack for now
    my $got_perl = $got.perl;
    my $expected_perl = $exp <==
2	/Users/nnunley/parrot/lib/Test/More.pm	32514	32747	
==>siest.
    local $^W = 0;

    # We must make sure that references are treated neutrally.  It really
    # doesn't matter how we sort them, as long as both arrays are sorted
    # with the same algorithm.
    # Have to inline the sort <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	21721	21844	
==>hcount++
#         next:
#
sub rewrite_star {
    my ($self, $op, $R, $greedy, $lastback) = @_;

    my $next = $self->genla <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	1406	1548	
==>t;
    my $index_path = shift || 'index.html';
    my $text = shift;
    my @contents = @_;
    
    $self = $self->SUPER::new($name, $text, @c <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6969	7128	
==>ken ne ''	#Don't eat the eof
				and	$$token=$$value=undef;
                next;
            };

            #reduce
            my($lhs,$len,$code,@semp <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6644	6797	
==>ken ne ''	#Don't eat the eof
				and	$$token=$$value=undef;
                next;
            };

            #reduce
            my($lhs,$len,$code,@semp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367342	367631	
==>P" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368133	368422	
==>P" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	579	766	
==>xists $self->{table}{$symb} ) {
            my $defn = $self->{table}{$symb};
##        warn "\tfound 1 in $self\n";
            return $defn;
        }
        else {
            my <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	3465	3609	
==>pe | exit | function | for | next |
		do | loop | goto | gosub | return  | sub | call | select | case |
		read | restore | input | open | close | <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1320	1501	
==>]{'Errata_seen'} = 1;
      $_[0]{'Thispara'} = $_[0]{'source_filename'} ?
        "$_[0]{'source_filename'} -- " : ''
    }
  }
}
sub start_head2 {  $_[0]{'Thispara'} = '' }
sub sta <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	9698	9834	
==>h($return,$false);
  $self->_restore($false);

  $self->_add_inst("DONE_$label");
  return $return;
}

sub _op_define {
  my ($self, $nod <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	648	747	
==>lse {
    $prefix = $self->peer ? $peer->prefix : $compiler->block_label($kind);
    $self->prefix($ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	628	727	
==>lse {
    $prefix = $self->peer ? $peer->prefix : $compiler->block_label($kind);
    $self->prefix($ <==
2	/Users/nnunley/parrot/tools/build/vtable_h.pl	367	475	
==>able>.

=head1 SEE ALSO

=over 4

=item C<Parrot::Vtable>

=back

=cut

use lib 'lib';
use Parrot::Vtable;

m <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	43075	43202	
==>elf->{code} .= join ", ",@$label if $label;
    }
    $self->{code} .= "\n";
  }
}

sub new {
  my $class = shift;
  my $tree  = <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	26395	26524	
==>arn $warning;
    }
}

package DB;

sub uplevel_args {
    my @foo = caller( 2 );
    return @DB::args;
}

1;

# vim: expandtab sw <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	660	776	
==>second(a())
end sub
dim t(),f()
call first(t())
print t(5)

' Keys test, "interesting"
dim a$(),b$()
b$("Key 1")="Thi <==
2	/Users/nnunley/parrot/lib/File/Which.pm	4963	5097	
==>t if it's running
under Win32 but does not find a C<PATHEXT> variable.

=head2 VMS

Same case as Windows 9x: uses C<.exe> and C<.com> ( <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	3688	3800	
==>nd_directory_paths()
{
    my $self = shift;
    
    return map  {
        File::Spec->catfile($self->{PATH}, $_ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11455	11617	
==>d body performing the various macro substitutions for
vtable method bodies (see F<tools/build/pmc2c.pl>).

=cut

sub rewrite_vtable_method ($$$$$) {
    my ($class <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7168	7263	
==>g_type_short"]
${DEST0} = concat ${STEMP0}
${STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
P <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4990	5085	
==>g_type_short"]
${DEST0} = concat ${STEMP0}
${STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
P <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	5899	6037	
==>p = 0;
  while($token = $self->get_token) {

    # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    if( ($type = $ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	68886	69066	
==>as reduced to $lookahead.
			       Was this your intention?");
		}
		$lookahead = 0;
		$lookaheadspec = "";

		$grammar =~ m/\G\s+/gc;
	}

	unless ($ERRORS or $isimplicit or !$::RD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737205	737503	
==>nline",
                  "CODE" => 828,
                  "ARGS" => [
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 144 \"src/ops/set.ops\"\n  {{\@1}} = (FLOATVAL){{\@2}};\n  {{+=3}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597907	598010	
==>" => "#line 351 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598954	599057	
==>" => "#line 351 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481140	481648	
==>div",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 551,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 446 \"sr <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	6282	6423	
==>schwern@pobox.comE<gt>, wardrobe by Calvin Klein.


=head1 COPYRIGHT

Copyright 2001, 2002, 2004 by Michael G Schwern E<lt>schwern@pobox.comE< <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	17421	17666	
==>ignature)
{
    char       *c;
    STRING     *ns, *message;
    PMC        *b;
    PMC        *iglobals;
    PMC        *temp_pmc;
    UINTVAL    signature_len;

    void       *result        = NULL;
    Hash       *known_frames  = NULL;
    PMC <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7119	7232	
==>t_pushindex {
    my ($self, $reg) = @_;
    $reg = value(defined($reg) ? $reg : 'pos');
    return $self->output_ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6761	6874	
==>t_pushindex {
    my ($self, $reg) = @_;
    $reg = value(defined($reg) ? $reg : 'pos');
    return $self->output_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1097606	1097916	
==>eter, key_tail, key);\n            key_tail = key;\n        }\n    }    \n    {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2327	2446	
==>. " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/src/pmc' . $PATHQUOTE . " " .
        $source;
};

sub partia <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	2122	2241	
==>. " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/src/pmc' . $PATHQUOTE . " " .
        $source;
};

sub partia <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	530670	531189	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cos",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 613,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 851 \"src/ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	599	746	
==>esc) = @_;

    $count = $self->{builder}->current_test + 1;

    $desc = $language unless $desc;

    my $lang_f = Parrot::Test::per_test('.py',$co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685214	685564	
==>"i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 769,
                  "ARGS" => [
                              "p",
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line 550 \"src/ops/pmc.ops\"\n      {{\@1}}- <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2018	2158	
==>(
                "perl -Ilanguages/lua languages/lua/luac.pl languages/${lang_fn}",
                "$self->{parrot} --no-gc languages/${p <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	5044	5260	
==>eturns Bool is export {
    for (1 .. $count) {
        # Hack -- PIL2JS doesn't support multisubs correctly yet
        if $*OS eq "browser" {
            Test::proclaim(1, "", "skip $reason", :$depends);
        } e <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	41353	41443	
==>nction to C<extract_tagged>.

The difference between C<extract_tagged> and the anonymous
su <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	3043	3226	
==>slate each library.
        my @libs = qw/
            mscorlib
            System
            Accessibility
            I18N.CJK
            I18N.MidEast
            I18N.Other <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	12637	12968	
==>AGS" => ":base_core,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 17,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => " <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1602	1708	
==>@_ => ( ref $pattern
        ? Parrot::Test::PGE::_generate_subrule_pir($target, $pattern)
        : Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2125	2231	
==>@_ => ( ref $pattern
        ? Parrot::Test::PGE::_generate_subrule_pir($target, $pattern)
        : Parrot <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30765	30863	
==>load = $srm->post_load($need_dest);
		$pir .= "### post_load\n";
		$pir .= sub_meta($post_load, $mv <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862000	862294	
==>UMP" => 0,
                  "NAME" => "length",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862768	863062	
==>UMP" => 0,
                  "NAME" => "length",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	13586	13711	
==>version of Perl you're using --
which differs from C<%Name2character>'s behavior under pre-5.7 Perls.

Note that this hash doe <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3827	3944	
==>is form for now.
	}
	if ($syms[CURR] eq "#") {
		feedme();
		$fd=$syms[CURR];
		feedme();
		die "Expecting ," unless $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	827	928	
==>ift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'block', Attributes => { kind => $self <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1840	1941	
==>ift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'block', Attributes => { kind => $self <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	5214	5334	
==>,1}(\S)/  $1/mg; # minimum indent
	&clip_excess_lines($desc);
    } if $desc;
    $info->{desc} = $desc;
    return $info <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	26618	26829	
==>{flags}{dynpmc}) {
        $cout .= "#define PARROT_IN_EXTENSION\n";
    }
    $cout .= $self->line_directive(1, $self->{file})
	. $self->{pre};
    $cout .= $self->line_directive_here($cout, $out_name)
	. $self- <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	17106	17317	
==>=item $parser->unget_token( $token1, $token2, ... )

This restores the token object(s) to the front of the parser stream.

=back

The source has to be set before you can parse anything.  The lowest-level
way is t <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	389	490	
==>M ops/s (million operations per second) using
integer arithmetic.

Prints out:

=over 4

=item * the n <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	385	486	
==>M ops/s (million operations per second) using
integer arithmetic.

Prints out:

=over 4

=item * the n <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	11156	11484	
==>::RecDescent::_tracefirst($text),
					  , q{' . $self->{"name"} .'})
	}').'
	$_[1] = $text;
	return $return;
}
';

	return $code;
}

my @left;
sub isleftrec($$)
{
	my ($self, $rules) = @_;
	my $root = $self->{"name"};
	@left = $self->leftmostsubrules();
	my $next;
	foreach $next ( @left )
	{
		next unless defined $rules->{$nex <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	38536	38639	
==>into the output.
	$ins =~ s/\\/\\\\/g;
	$ins =~ s/\n/\\n/g;
	$ins =~ s/"/\\"/g;

	# Substitute in meta-v <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	2595	2924	
==>inline",
                  "CODE" => 2,
                  "ARGS" => [],
                  "BODY" => "#line 108 \"src/ops/core.ops\"\n#ifdef __GNUC__\n# ifdef I386\n   asm(\"ret\");\n# endif\n#endif\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	815404	815969	
==>NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 921,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 572 \"src/ops/set.ops\"\n  {{\@1}} = 0;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814776	815007	
==>NAME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 92 <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4220	4317	
==>) = each %$group_files) {
        partial_link($group, $group_libs->{$group}, [ "lib-$group", @$pm <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4324	4421	
==>) = each %$group_files) {
        partial_link($group, $group_libs->{$group}, [ "lib-$group", @$pm <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863328	863617	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bytelength",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864219	864508	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bytelength",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	8126	8335	
==>sion
		@e=EXPRESSION();
	}
	push @{$code{$seg}->{code}},<<CLS;
	_screen_clear()
CLS
	feedme();
}
sub parse_open {
	($result, $type, @code)=EXPRESSION();
	feedme();
	die "Expecting FOR at $sourceline" unless $sy <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	7372	7511	
==>ss_data_start_token($token)>

Processes a data start token.

=cut

sub process_data_start_token
{
    my $self = shift;
    my $token = shif <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7770	7891	
==>store {
    my ($self, $reg) = @_;
    $reg = value($reg);
    return ("restore $reg");
}

sub output_refresh {
    my ($s <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	48364	48465	
==>ract_quotelike> does so),
you can pass the input variable as an interpolated literal:

        $quotel <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	35	132	
==>dation.
# $Id: /parrot/lib/Parrot/Docs/File.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=hea <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3641	3742	
==>ed';
    unshift @_ => Parrot::Test::PGE::_generate_glob_for($target, $pattern);

    goto &Parrot::Te <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	47	191	
==>mplementing stack to register mapping algorithms.

package SRM::Base;
use strict;

# Constructor always throws an exception, so we never instanti <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	24740	24923	
==>efn ) {
        my $name;
        $name = 'var_' . $parser->YYData->{lex_num} . '_' . $idf;
        $defn = new defn( $name, 'local', 'pmc', undef, $idf );
        push @opcodes, n <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11324	11434	
==>ter();

    close(OUT);
    close(IN);


    $outfile = "$outfile_base.branches.html";
    print "Writing $outf <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1625	1726	
==>S} = concat ${STACK$register_num}
${INS} = concat " = pop s\n"
PIR
		$pir =~ s/\$register_num/$registe <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3335	3436	
==>S} = concat ${STACK$register_num}
${INS} = concat " = pop s\n"
PIR
		$pir =~ s/\$register_num/$registe <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4933	5027	
==>a=mine(5)
print t(3)

' Unary minus goodness
Dim t7(1),w(10)
w=20
w(2)=5
t7(0)=0
w=w-(T7(0) * T <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	1566	1761	
==>/build/dynpmc.pl',
        commentType                             => '#',
        replace_slashes                         => 0,
        conditioned_lines                       => 1
    );
	genfil <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	19759	19919	
==>el1)
		|| do { pos $$textref = $startpos; return };
	}
	else
	{
		$$textref =~ /$ldel1[^\\$ldel1]*(\\.[^\\$ldel1]*)*$ldel1/gcs
		|| do { pos $$textref = $startpo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960766	961016	
==>"ARGS" => [
                              "s",
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 595 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interp <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4684	4851	
==>mp"("mob"," ","")\n); 
    }
    else {
        $captures = "";
    }
    return qq(
        .sub _PGE_Test
            .local pmc p6rule_compile
            load_bytec <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562001	562291	
==>t found\", {{\@3}});\n  }\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563085	563375	
==>t found\", {{\@3}});\n  }\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19148	19280	
==>bers, symbols in two rows and then two rows of identical numbers
type foo
	first as integer
end type
dim y as foo
read a,b,y.first
re <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3398	3514	
==>ast command". Which is harder.
        $body =~ s/^(\s*)([^\n]+)\s*\Z/$1puts [$2]/m;

        $tests{$name} = [$expl, <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4805	4921	
==>ast command". Which is harder.
        $body =~ s/^(\s*)([^\n]+)\s*\Z/$1puts [$2]/m;

        $tests{$name} = [$expl, <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	963	1074	
==>ls/build/vtable_h.pl'),
            $self->new_item('', 'tools/build/vtable_extend.pl'),
        ),
        $sel <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2624	2749	
==>y $id = md5_hex $html;
  if(glob "parrot-smoke-*-$id.html") {
    print "The submitted smoke was already submitted!";
    exit <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6978	7088	
==>"
print "Found  (5): ", instr(s1$, found$)
print "Bogus  (0): ", instr(s1$, bogus$)
print "Null   (1): ", instr <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18707	18817	
==>"
print "Found  (5): ", instr(s1$, found$)
print "Bogus  (0): ", instr(s1$, bogus$)
print "Null   (1): ", instr <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	7384	7600	
==>plit from the things they're subheadings for.
        #
        # It's not terribly pretty, but it really does make things pretty.
        #
        while(1) {
          push @to_unget, $self->get_token;
          pop <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	259	425	
==>prologue} = q{.namespace [ "Lua" ]
.HLL "Lua", "lua_group"

.include "languages/lua/lib/luaaux.pir"
.include "languages/lua/lib/luabasic.pir"
.include "languages/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830654	830749	
==>rpreter, &CONTEXT(interpreter->ctx)->user_stack, &i, STACK_ENTRY_INT, STACK_CLEANUP_NULL);\n  {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831395	831490	
==>rpreter, &CONTEXT(interpreter->ctx)->user_stack, &i, STACK_ENTRY_INT, STACK_CLEANUP_NULL);\n  {{ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4300	4402	
==>alse($ot2);
		return(<<CODE, $result);
	set $result, 0.0
	eq $a1, $ot1, EQ_$eqnum
	eq $a2, $ot2, EQ_$eq <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	1465	1626	
==>isa($v, 'ARRAY')) {
        if (@$v == 2 && $v->[1] != -2) {
          $r{$k} = substr($input, $v->[0], $v->[1] - $v->[0] + 1);
        }
      } else {
        $ <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	705	830	
==>w(
  appendComp basic cmdAH cmdIL cmdInfo cmdMZ compile config fileName fileSystem main misc 
  parse parseExpr parseOld regex <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	16464	16589	
==>q{\tunshift P9, "or"\n};
	}
	if ($ops) {
		print CODE<<OPS;
	I5= P14
	div I5, I5, 2
CASE_${jump}_${incase}_STARTOPS:
	eq I5, 1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040617	1040934	
==>al",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1163,
                  "ARGS" = <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1124	1240	
==><ptmp>';
    return $name;
}

sub dbgoto {
    my ($self, $label) = @_;
    return () unless $self->{DEBUG};
    retu <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	614	730	
==><ptmp>';
    return $name;
}

sub dbgoto {
    my ($self, $label) = @_;
    return () unless $self->{DEBUG};
    retu <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2639	2740	
==>$right->compile($compiler);

  my $dest_name = $dest->value;
  $dest = $dest->compile($compiler);

  $ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2437	2539	
==>["$var"]	# Pull the original
	P2= P10[I25]
	P3= P2["$stype"]
	P3["$var"]= P0	# Hack in the alias

SHARI <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2664	2766	
==>["$var"]	# Pull the original
	P2= P10[I25]
	P3= P2["$stype"]
	P3["$var"]= P0	# Hack in the alias

SHARI <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1216	1324	
==>ements 
will find modules which are not located on Pugs's default
search path.

= LIMITATIONS & CAVEATS

Curr <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	6702	6872	
==>$/) {
            if ($has_args) {
                die "Duplicate value for arguments in rule $rule->{'name'}\n";
            } else {
                my @args = split(/\s <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	5727	5957	
==>$has_class = 1;
                }
            } else {
                die "Invalid value for class in rule $rule->{'name'}\n";
            }
        }

        # push
        elsif (/^push$/) {
            if ($rule->{$_} =~ /^\d+ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6806	6893	
==>t C<jhoblitt@cpan.org>

=head1 SEE ALSO

F<docs/configuration.pod>, L<Parrot::Configure> <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	2093	2180	
==>t C<jhoblitt@cpan.org>

=head1 SEE ALSO

F<docs/configuration.pod>, L<Parrot::Configure> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42330	42522	
==>"\n  do_exception(interpreter, EXCEPT_exit, {{\@1}});\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43020	43212	
==>"\n  do_exception(interpreter, EXCEPT_exit, {{\@1}});\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046876	1047268	
==>al",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1170,
                  "ARGS" => [
                              "kc",
                              "sc", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168503	168594	
==>.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169445	169536	
==>.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147276	147387	
==>.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148217	148328	
==>.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	2650	2918	
==>ext'\n";

	return 5  if ($op eq "and");
	return 5  if ($op eq "eqv");
	return 5  if ($op eq "imp");
	return 5  if ($op eq "or");
	return 5  if ($op eq "xor");
	return 7  if ($op eq "not");
	return 10 if ($op eq "=");
	return 10 if ($op eq ">=");
	return 10 if ($op eq " <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1741	1876	
==>1 => 6, S42 => 10,
	S43 => 15, S44 => 21
  );

  my $insert = "";
  while(<DATA>) {
	chomp;
	next unless /^[FGHI]/;
	my ($func,@x) = spl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565125	565456	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "can",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566017	566348	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "can",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TY <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	9997	10172	
==>f("PARROT_%s_OP", uc $op->type);
        my $name       = $op->name;
        $names{$name} = 1;
        my $full_name  = $op->full_name;
        my $func_name  = $op->func_name <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	722	840	
==>::Balanced 'extract_bracketed';

=item C<does_write($method, $section)>

Returns whether a method writes.

=cut

sub do <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	7242	7364	
==>odo) {
        Test::diag("  Failed ($todo) test ($?CALLER::CALLER::CALLER::POSITION)");
    }
    else {
        Test::dia <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	38034	38278	
==>ng-fill!'  => \&_op_string_fill_bang,

###
### Vector
###

  'vector?'       => \&_op_vector_p,
  'make-vector'   => \&_op_make_vector,
  'vector'        => \&_op_vector,
  'vector-length' => \&_op_vector_length,
  'vector-ref'    => \&_op_vecto <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	4874	4989	
==>rg, $rest, $source];
}

sub XXX {
   my ($n, $c, $cmt) = @_;
   print "#Unknown '$cmt'\n";
}

sub Label {
   my ($n, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	37983	38150	
==>for
          
            if($para_type eq 'Data') {
              DEBUG and print "Treating Data paragraph as Plain/Verbatim because the containing =for ($fors[-1][1] <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1776	1893	
==>ts($$self{VERSION})
	and	$$self{VERSION} < $COMPATIBLE
	and	croak "Yapp driver version $VERSION ".
			  "incompatib <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1713	1827	
==>ts($$self{VERSION})
	and	$$self{VERSION} < $COMPATIBLE
	and	croak "Yapp driver version $VERSION ".
			  "incompatib <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273420	273685	
==>"CODE" => 318,
                  "ARGS" => [
                              "i",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 876 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\ <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	3164	3358	
==>btained:\n\n";
	foreach (@no_descriptions) {
	    my $top = $_->{top};
	    $top =~ s/^/>  /mg;
	    print "- $_->{path}\n\n$top\n";
	}
    }
    exit(0);
}

sub describe_file {
    my($path) = @ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	30653	30763	
==>C;
	$x = $agg\[$w->[1]\] $cmt
EOC
    push @stack, [-1, $x, 'P'];
}
# exceptions
sub SETUP_EXCEPT
{
    my ($n, <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	16473	16575	
==>!!
  my($self, $para) = @_;
  return $para->[1]{'~type'} if $para->[1]{'~type'};


  # Otherwise we hav <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	15909	16024	
==>n $path;
}

=back

=head2 Functions

=over 4

=item C<esc(@strings)>

=item C<esc($string)>

Reimplemented here to s <==
2	/Users/nnunley/parrot/lib/File/Which.pm	6327	6488	
==>ache/Build.pm>. Changed for use in DocSet
(for the mod_perl site) and Win32-awareness by me, with slight modifications
by Stas Bekman, then extracted to create C< <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	656	779	
==>0; $t =~ s/\.t$/_$count\.$_/; $t
        } ( qw(urm pasm pbc out) ); # JMG

        # STDERR is written into same output fil <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598158	598398	
==>string( interpreter, {{\@2}} ));\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599205	599445	
==>string( interpreter, {{\@2}} ));\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62858	62988	
==>ame>(s?) ");

						pos $grammar = $pos;
					}
					else
					{
						$item = new Parse::RecDescent::Repetition($name,$1,0,$MAXREP <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	1634	1764	
==>[benchmark parrotj]
    exe       = ../../parrot -j
    type      = .pasm
    type      = .pir

    [benchmark perl_585_th]
    exe <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	8989	9110	
==>t;
		}
		elsif ($bad && $$textref =~ m/\G($bad)/gcs)
		{
			pos($$textref) -= length($1);	# CUT OFF WHATEVER CAUSED THE SH <==
2	/Users/nnunley/parrot/config/inter/make.pm	1476	1604	
==>et_result('no');
            return $self;
        }
    }

    if ($conf->options->get('ask')) {
        $prog = prompt($prompt, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	13294	13428	
==>\n";
        dump_ref($_, $indent . "  ") foreach (@children);
    } else {
        print $ref, "\n";
    }
}

sub annotated {
    my ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	626298	626394	
==>/* TODO verify {{\@1}} didn't change */\n    (void) ((interface_f)lru->f.real_function)(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102131	1102704	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1221,
                  "ARGS" => [
                              "n",
                              "nc",
                              "ic"
                            ],
                  "BODY" => "#line 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	268	374	
==>[0] eq "STRING" or $_[0] eq "COMM" or $_[0] eq "DIRECTIVE") {
		$curtok=~tr/A-Z/a-z/;
	}
	push(@tokens, $cu <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13266	13445	
==>RROR("Closing brace without open block.")
        unless $self->block_depth();

      #
      # Remember the block we just closed, in case its the peer of a continuation
      # we <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3326	3428	
==>code_t *cur_opcode = cur_op;
    char * _reg_base;
#endif

SWITCH_RELOAD:
    _reg_base = (char*)interp <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2426	2532	
==>!", $formal_arg_name) 
      unless defined $formal_arg_type;

    $self->INTERNAL_ERROR("Can't determine t <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2126	2232	
==>!", $formal_arg_name) 
      unless defined $formal_arg_type;

    $self->INTERNAL_ERROR("Can't determine t <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	53709	53850	
==>$_[1], $_[2], $_[3] );
        }
	],
	[#Rule 63
		 'exp', 3,
sub
#line 361 "Lua\lua51.yp"
{
            BuildBinop( $_[0], $_[1], $_[2 <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	29482	29650	
==>ficient donuts'
      };

=cut

sub details {
    my $self = shift;
    return @{ $self->{Test_Results} };
}

=item B<todo>

    my $todo_reason = $Test->todo;
    my $t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	328255	328517	
==>FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 385,
                  "ARGS" => [
                              " <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	48160	48258	
==>t now the rest of the line
on which the here document starts is not skipped.

To prevent <extract_q <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8418	8523	
==>tests, but ran $Test::num_of_tests_run");
    }

    if ($Test::num_of_tests_failed) {
        $*ERR.say(" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84935	85233	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85841	86139	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834105	834318	
==>" => 944,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 202 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter- <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42931	43131	
==>scent::compiling = $_[2],
	my $self =
	{
		"rules"     => {},
		"namespace" => _nextnamespace(),
		"startcode" => '',
		"localvars" => '',
		"_AUTOACTION" => undef,
		"_AUTOTREE"   => undef,
	};
	if ($ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	12121	12286	
==>e {
            $$val = 'undef';
        }
    }

    return $self->diag(sprintf <<DIAGNOSTIC, $got, $expect);
         got: %s
    expected: %s
DIAGNOSTIC

}    

=i <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2966	3084	
==><restart ADDRESS($address)>.

=cut

sub restart_address
{
    my ($self, $addr) = @_;

    return "interpreter->resume_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3835	3953	
==><restart ADDRESS($address)>.

=cut

sub restart_address
{
    my ($self, $addr) = @_;

    return "interpreter->resume_ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3950	4056	
==>ct 12
function aftwo(y())
	print y(4)
end function
function arrfunc(x())
	u=aftwo(x())
	arrfunc=55
end func <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15223	15329	
==>ct 12
function aftwo(y())
	print y(4)
end function
function arrfunc(x())
	u=aftwo(x())
	arrfunc=55
end func <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1993	2118	
==>)
    and $class=ref($class);

    bless($self,$class);
}

sub YYParse {
    my($self)=shift;
    my($retval);

	_Ch <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1924	2039	
==>)
    and $class=ref($class);

    bless($self,$class);
}

sub YYParse {
    my($self)=shift;
    my($retval);

	_Ch <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5568	5789	
==>slurpy";
                }
                $first = 0;
            }
            print {$FH} ") = ";
        }
        print {$FH} "$op->{arg1}->{symbol}(";
        my $first = 1;
        foreach ( @{ $op->{arg2} } <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2256	2385	
==>ch descriptions\n".
		"were not obtained.\n\n");

    my @files = @ARGV ? @ARGV : &files_worth_describing;

    print "This file w <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	47066	47195	
==>bstring -- trivial in this case),

=item [3]

"<<" (i.e. the "name" of the quotelike operator)

=item [4]

"'EOMSG'" (i.e. the lef <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	10281	10406	
==>, World!
print "Hello, ";	' COmment
print "World!"

' Expect Correct
DIM A(1,1)
RO=1
IF A(RO,5)=0 THEN GOSUB 20: REM GOO
   en <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	35984	36136	
==>,
			">=" => 78,
			"*" => 80,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFA <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36242	36394	
==>,
			">=" => 78,
			"*" => 80,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFA <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	25840	26014	
==>next if $dynpmc eq $classname;
        $cout .= <<"EOC";
        assert(my_enum_class_$dynpmc != enum_class_default);
EOC
    }
    if (scalar @mmds) {
        $cout .= <<"EOC <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2999	3095	
==>};

    $hout .= <<"EOH";
Parrot_PMC Parrot_lib_${lc_libname}_load(Parrot_INTERP interpreter);
EO <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21639	21766	
==>. (
            ( @$curr_open and $curr_open->[-1][0] eq '=for' )
            ? ( " (Should be \"=end " . $curr_open->[-1][1]{'t <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	6354	6496	
==>(
                'Parrot\'s native executable subsystem.', 
                'pairs' => ['exec', 'exec_save'],
                'sources' => ['e <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	144	270	
==>E

Parrot::Pmc2c::Library - PMC to C Code Generation

=head1 SYNOPSIS

    use Parrot::Pmc2c::Library;

=head1 DESCRIPTION

Par <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	1826	1937	
==>codes;

    print <<END_C;
#include "parrot/parrot.h"
#include "parrot/string.h"
END_C

    print $trans->define <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	3820	3951	
==>"R")
--help|-h	show this help
--version|-v	show version
All the options can be shortened to their unique prefixes,
and one leading d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912761	913024	
==>> [
                              "i",
                              "s",
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_in <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	6226	6343	
==>int SOURCE $text;


if ($trans->can("ops_addr_decl")) {
    print SOURCE $trans->ops_addr_decl($bs);
}
if ($trans->can <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	31809	31913	
==>n something
}

sub _op_display {
}

sub _op_newline {
}

sub _op_write_char {
}

sub _op_load {
}

sub _o <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	61623	61787	
==>m C<Did not find closing delimiter to match '%s'>

C<extract_quotelike> was unable to find a closing delimiter to match the
one that opened the quote-like operation. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263891	264240	
==>e",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 307,
                  "ARGS" => [
                              "i <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	10024	10126	
==>n with $files_in_dir_8dot3{$dirname}{$filename_8dot3} ($filename_8dot3)");
        }
        $files_in_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863509	863793	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "bytelength",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864400	864684	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "bytelength",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	14745	14891	
==>f ($body =~ s/\brestart\s+OFFSET\((.*?)\)/{{=0,+=$1}}/mg)
        {
            $branch = 1;
            $restart = 1;
        }
        elsif($bod <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	36833	36964	
==>$subrule\", 
					   instead?");
		}
	}
	bless 
	{
		"subrule"   => $subrule,
		"repspec"   => $repspec,
		"min"       => $min,
		"m <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20587	20697	
==>ot$(2)="Goodbye"
	narf.first=909090
	poit(4).first=101010
end sub
dim narf as struct
dim bar(1)
dim lot$(1)
dim <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	2457	2562	
==>= File::Spec->catfile( $options{language}, 't' );
        my @files = ( glob( File::Spec->catfile( $dir, ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44950	45141	
==>s/core.ops\"\n  Parrot_pop_mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45592	45783	
==>s/core.ops\"\n  Parrot_pop_mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5756	5883	
==>'P');

  _num_arg ($node, 1, 'quote');

  my $item = _get_arg($node,1);

  return __quoted ($self, $item, $return, {});
}

sub _ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54179	54293	
==>);
			}
			elsif ($grammar =~ m/(?=$SKIPMK)/gco
				and do { ($code) = extract_codeblock($grammar,'<');
					  $cod <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24343	24466	
==>ARR
			if ($syms[NEXT] eq ",") {
				feedme();
				goto &parse_dim;			
			}
		} elsif ($syms[CURR] eq "shared") {
			print " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44954	45163	
==>re.ops\"\n  Parrot_pop_mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45596	45805	
==>re.ops\"\n  Parrot_pop_mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	3335	3443	
==>>\n";
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::Docs::Group>

=item C<Parrot::Docs::Item>

=back

= <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23613	23714	
==>st('','set',[$return,$temp]);
    $self->_add_inst("NEXT_$label");
    $self->_restore($temp);
  }
  r <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24075	24176	
==>st('','set',[$return,$temp]);
    $self->_add_inst("NEXT_$label");
    $self->_restore($temp);
  }
  r <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	3158	3338	
==>_ERROR("Can't do arithmetic on strings") if UNIVERSAL::isa($right_type, 'Jako::Construct::Type::String');

  $self->SYNTAX_ERROR("Can't do arithmetic on PMCs") if UNIVERSAL::isa($de <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5284	5413	
==>$block, $self->require_literal);
        }

        $props{$prop} = $value;
      }

      $self->require_open_brace;

      my $m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289812	290101	
==>ODE" => 337,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 935 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4} <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33892	34018	
==>t_store\n";

        # Now pop type off the stack types array.
		$pir .= "    type_trans = pop stypes\n";
	}

	# Branches (bran <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19985	20133	
==>ON\n\n[BIG BLOCK]\n" block.  Note that this does NOT
return the module's C<$VERSION>!!


=back

=head1 NOTE

You don't actually I<have> to define a C <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	803	942	
==>okes it.

print <<"END_PIR";

.HLL 'Tcl', ''
.namespace ['']

END_PIR

my %static_cmds = map { $_ => 1 } @static_cmds;
for my $cmd (@dynamic <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	571	685	
==>t;
	exit 1;
};

getopts('d', \%options);
$debug=1 if $options{d};

if (@ARGV) {
	open(D, $ARGV[0]) || die;
	@basic= <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2764	2872	
==>to the relevant C
code.

=cut

sub goto_pop
{
    my ($self) = @_;

    return "opcode_t* pop_addr = (opcode_ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	48583	48757	
==>t a balanced
bracket delimited substring that may contain unbalanced brackets
inside Perl quotes or quotelike operations. That is, C<extract_codeblock>
is like a combination o <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	18269	18390	
==>$fh $Dumper->Dump;
        close $fh;
    }
}

=head2 read_dump( [$dir1, $dir2], $file );

Read in the class definition fo <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	6181	6346	
==>r that source scalarref!  Killing.\n";
      }

      
    } else {
      die "What source??";
    }
  }
  DEBUG and print "get_token about to return ",
   Pod::Simpl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778356	778681	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 879,
                  "ARGS" => [ <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	12145	12264	
==>ly on checks with ref() since we do not yet have
object support. Once object support is created, we will add it here, an <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	2862	2973	
==>p node.

=head1 Tree Contents

Every element node in the parse tree is represented by an arrayref of
the form: C <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5756	5880	
==>libs
        my %libs = %{ $class->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There should be at most <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5967	6091	
==>libs
        my %libs = %{ $class->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There should be at most <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684054	684386	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684948	685280	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
2	/Users/nnunley/parrot/languages/converter.pl	2138	2234	
==>F_

my $parser = Parse::RecDescent->new($grammargrammar);

my $file = $ARGV[0];
my @lines;
my @ru <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	8549	8653	
==>checks($t, $guarantee, $follow_min);

    } elsif ($type eq 'seq' && $t->{add_check_visited}) {
        m <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	2412	2560	
==>process_start_token
{
    my $self = shift;
    my $token = shift;
    my $tagname = $token->tagname;

    if ( $tagname eq 'L' ) 
    {
        $sel <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	578	677	
==>uild prefix. Defaults to ''.

=item C<prefix>

The install prefix. Defaults to '/usr'.

=item C<exec <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	807	906	
==>uild prefix. Defaults to ''.

=item C<prefix>

The install prefix. Defaults to '/usr'.

=item C<exec <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	55877	56036	
==>ua51.yp"
{
            BuildLiteral( $_[0], $_[1], 'number' );
        }
	],
	[#Rule 80
		 'primary', 1,
sub
#line 432 "Lua\lua51.yp"
{
            Bu <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	3438	3656	
==>.= substr pack('u', $1), 1;
	chop $res;
    }
    $res =~ tr|` -_|AA-Za-z0-9+/|;#`
    chop $res;chop $res;
    $res;
}

1;

=head1 NAME

Digest::MD5::Perl - Perl implementation of Ron Rivests MD5 Algorithm

=head1 DISC <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	0	121	
==>package Regex::Rewrite;
use Regex::Ops::Tree;
use Regex::Ops::List;
require 'Regex.pm';
use strict;

*aop = *Regex::Rewrit <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2805	2908	
==>para'} =~ tr{\xAD}{}d if Pod::Simple::ASCII;
  my $out = Text::Wrap::wrap($indent, $indent, $self->{'Thi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2339	2442	
==>para'} =~ tr{\xAD}{}d if Pod::Simple::ASCII;
  my $out = Text::Wrap::wrap($indent, $indent, $self->{'Thi <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	11831	12043	
==>lemented, so you will have to wait
a little while. Until then, you can just write your own functions like this:

  cmp_ok('test', sub ($a, $b) { ?($a gt $b) }, 'me', '... testing gt on two strings');

- `isa_ok ($ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	51007	51155	
==>re to be performed only on a successful parse
are specified using a C<E<lt>defer:...E<gt>> directive. For example:

        sentence: subject verb ob <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9930	10078	
==>^\s)]+)|<a href="$1">$1</a>|gs;

    print {$self->{'output_fh'}} $text;
}

=item C<do_pod_link($link)>

This is reimplemented here to avoid a bug in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904003	904336	
==>E" => "inline",
                  "CODE" => 1019,
                  "ARGS" => [
                              "s",
                              "ic",
                              "ic",
                              "sc"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_rep <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	5315	5506	
==>extref =~ m/\G($rdel)/gc)
		{
			my ($found, $brackettype) = ($1, $1);
			if ($#nesting < 0)
			{
				_failmsg "Unmatched closing bracket: \"$found\"",
					 pos $$textref;
				pos $$textref = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093623	1093711	
==>\"src/ops/experimental.ops\"\n  VTABLE_morph(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094426	1094514	
==>\"src/ops/experimental.ops\"\n  VTABLE_morph(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\ <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	9156	9368	
==>ops\n";
                print MAKEFILE "\t\$(CHMOD) 0644 ops${slash}$pod\n\n";
            } else {
                print MAKEFILE "\tperldoc -u ..${slash}ops${slash}$ops > ops${slash}$pod\n";
                prin <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	1280	1396	
==>in.
	#                      Bene Gesserit Litany Against Fear
	# Compiler version @{[VERSION]}@{[ grep $_=sprintf("\n <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31103	31232	
==>= $_[1];
	$pattern =~ s#/#\\/#g;

	my $desc = $pattern;
	$desc=~s/\\/\\\\/g;
	$desc=~s/}/\\}/g;
	$desc=~s/{/\\{/g;

	bless 
	{
		" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	174656	174955	
==>um",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 209, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	195893	196382	
==>um",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 232,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40282	40689	
==>=> "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 51,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 720 \"src/ops/core.ops\ <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	2088	2315	
==>es made here will be lost.
#
EOF
                print INC "*/\n" if $inc =~ /\.h/;
                next;
            }
            if (/&end_gen/) {
                close INC;
                my $destfile = ($inc =~ m[/]) ? "$i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221182	221721	
==>um",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 259,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 484 \"src/ops/cmp.ops\"\n  if (mmd_dis <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	212627	213023	
==>um",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 250,
                  "ARGS" => [
                              "p",
                              " <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20934	21118	
==>Value::Identifier->new($block, $self->require_ident)
      }
      else {
        $constructing = 0;
        $right = Jako::Construct::Expression::Value->new($block, $self->require_valu <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9449	9562	
==>\x40\x5B-\x5E\x60\x7B-\x7F]/
            # Characters under 0x80 that aren't legal in an XML Name.
        or $new <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10713	10826	
==>\x40\x5B-\x5E\x60\x7B-\x7F]/
            # Characters under 0x80 that aren't legal in an XML Name.
        or $new <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	31473	31614	
==>> is used. If the text to be processed
is not specified either, C<$_> is used.

In list context, C<extract_delimited> returns a array of three <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	55216	55310	
==>one element.
The value of that element is one of the
above extractor types (subroutine referenc <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	10920	11068	
==>turn "t_$temp_num";
    };
    /4/ && do {
        push @{$temps_ref}, "PMC *t_$temp_num;";
        push @{$extra_preamble_ref},
             "t_$tem <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550058	550154	
==>2}};\n  next = {{^+3}};\n  interpreter->current_object = object;\n  interpreter->current_cont = N <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551359	551455	
==>2}};\n  next = {{^+3}};\n  interpreter->current_object = object;\n  interpreter->current_cont = N <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	14408	14522	
==>inue->new($parent_block, $peer_block);
        $self->push_block($loop) if defined $cont;
      }
      elsif ($pee <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9279	9384	
==>nough check that it's good as an XML Name symbol:
      Carp::croak "\"$new_code\" isn't a valid element n <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10543	10648	
==>nough check that it's good as an XML Name symbol:
      Carp::croak "\"$new_code\" isn't a valid element n <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	678	804	
==>($$;$) {
        my $self = shift;
        my ( $code, $output, $desc ) = @_;
  
        my $count = $self->{builder}->current_ <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1045	1171	
==>($$;$) {
        my $self = shift;
        my ( $code, $output, $desc ) = @_;
  
        my $count = $self->{builder}->current_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	486710	486996	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "ceil",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	487461	487747	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "ceil",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	4184	4356	
==>les/cola.in' => 'languages/cola/Makefile',
        commentType                    => '#',
        replace_slashes                => 1
    );
    genfile(
        'languages/ <==
2	/Users/nnunley/parrot/config/init/manifest.pm	255	394	
==>ibution is complete.

=cut

package init::manifest;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	422	570	
==>advance $distance";
}

#  sub output_fork {
#      my ($label) = @_;
#      return "fork $label->[1]";
#  }

#  sub output_reverse_fork {
#      my ( <==
2	/Users/nnunley/parrot/config/init/defaults.pm	7022	7181	
==>e_dir => $prefix . "/include",
        doc_dir     => $prefix . "/share/doc/parrot",
    );

    # add profiling if needed
    # FIXME gcc syntax
    # we shoul <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15477	15574	
==>air  $expected, Str $desc?) returns Bool;

Because these functions will be mutually recursive, the <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2574	2691	
==>$i])
      unless defined $actual_arg_type;

    if ($formal_arg_type->name ne $actual_arg_type->name) {
      my $tem <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2274	2391	
==>$i])
      unless defined $actual_arg_type;

    if ($formal_arg_type->name ne $actual_arg_type->name) {
      my $tem <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019295	1019580	
==>P" => 0,
                  "NAME" => "localtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020225	1020510	
==>P" => 0,
                  "NAME" => "localtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1905	2101	
==>t STDERR "pbcc: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
  	    return "return (0);"
    }
    else
    {
  	    return <<EOC;
	    {
	       cur_opcode = (opcode_t *) opcode_to_prederef <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1464	1570	
==>->block->find_symbol($name);

  unless ($sym) {
#    $self->block->dump_symbols;
    $self->SYNTAX_ERROR("C <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	5327	5448	
==>ype, $str );
}

sub _Identifier {
    my $parser = shift;
    my ($idf) = @_;

    if ( exists $parser->YYData->{ke <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	14053	14164	
==>}

sub unlike {
    my($self, $this, $regex, $name) = @_;

    local $Level = $Level + 1;
    $self->_regex_ok($ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	61391	61546	
==>exer,
        yyerror => sub { return; },
#        yydebug => 0x17,
        #    Bit Value    Outputs
        #    0x01         Token reading (useful fo <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	23345	23535	
==>$SOURCE;

            my $libparrot_shared = "$PConfig{rpath_blib} -L$PConfig{blib_dir} -lparrot";
            my $libparrot_static  = $PConfig{blib_dir}.$PConfig{slash}.$PConfig{libparrot_st <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	2868	3052	
==>lf->process_item_text_or_head_start_token($token);
    } 
    elsif ($tagname eq 'Data') 
    {
        $self->process_data_start_token($token);
    } 
    else 
    {
        $self->pr <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44592	44814	
==>83,
			'OR' => 84,
			"<=" => 85,
			">" => 86
		},
		DEFAULT => -110
	},
	{#State 203
		DEFAULT => -18
	},
	{#State 204
		DEFAULT => -4,
		GOTOS => {
			'block' => 209,
			'chunk' => 57
		}
	},
	{#State 20 <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	3086	3250	
==>r  => '/usr/include',
                docdir      => '/usr/share/doc',
                'dry-run'   => 0,
              );

my @manifests;
foreach (@ARGV) {
    if (/ <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	1120	1250	
==>set all the flags yet.
        # This should suffice for this test.
        Parrot::Configure::Step::_run_command("$cc -o test test <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623259	623391	
==>PMC_int_val(mic->m.sig);\n\t{{+=n + 2}};\n    }\n    caller_ctx = cc->to_ctx;\n    interpreter->current_args = NULL;\n    dest_pc = c <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	28195	28297	
==>reelet);
  my $start_line = $stack[0][1]{'start_line'};

  # A recursive algorithm implemented iterativ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	31696	31798	
==>reelet);
  my $start_line = $stack[0][1]{'start_line'};

  # A recursive algorithm implemented iterativ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1378	1474	
==>rams)=('LEX','RULES','STATES');

sub new {
    my($class)=shift;
	my($errst,$nberr,$token,$va <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1332	1424	
==>rams)=('LEX','RULES','STATES');

sub new {
    my($class)=shift;
	my($errst,$nberr,$token,$va <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	2273	2399	
==>lags',   $ccflags);
        $conf->data->set('linkflags', $linkflags);
        print " (no) " if $verbose;
        $self->set_r <==
2	/Users/nnunley/parrot/config/auto/readline.pm	2073	2199	
==>lags',   $ccflags);
        $conf->data->set('linkflags', $linkflags);
        print " (no) " if $verbose;
        $self->set_r <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21211	21390	
==>UNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 119,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	512	613	
==>fess "Block is not defined!" unless defined $block;
  confess "Left is not defined!" unless defined $l <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	524	625	
==>fess "Block is not defined!" unless defined $block;
  confess "Left is not defined!" unless defined $l <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32583	32754	
==>REG} in rule " .
				"$rule->{'name'}\n";
		}

        # Insert typeinfo code if we have any. Note that it has no obligations.
        if ($rule->{'typeinfo'}) {
		    $pir <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	763	889	
==>_with_suffix('pmc'))
	{
	    my $code = $file->read;
	    
	    if ( $code =~ /^pmclass\s+[A-Z]/smo )
	    {
	        push(@con <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2331	2486	
==>ed($arg2);
    return "add $realvar, $arg1";
}

sub output_sub {
    my ($self, $var, $amount) = @_;
    $amount = 1 if ! defined $amount;
    my $realvar = <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	4738	4887	
==>os, $ldelpos, $endpos) = (pos $$textref = pos $$textref||0);
	unless ($$textref =~ m/\G$pre/gc)
	{
		_failmsg "Did not find prefix: /$pre/", $startpos <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	39	243	
==>RSION => 2.3;

use constant PREV => 2;
use constant CURR => 1;
use constant NEXT => 0;
use subs qw(dumpq EXPRESSION);
use Data::Dumper;
use vars qw( %code $seg $debug $runtime_jump );

require "COMP_parsef <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	554	680	
==>:Pmc2c::Library;

use strict;
use warnings;

use Parrot::Pmc2c qw(dynext_load_code dont_edit);

=item C<new($opt, $vtable_dump, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15301	15420	
==>68)?ord($1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # return a single scalar
    ($x = ((@_ == 1) ? $_[0 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16482	16601	
==>68)?ord($1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # return a single scalar
    ($x = ((@_ == 1) ? $_[0 <==
2	/Users/nnunley/parrot/config/auto/gc.pm	1172	1303	
==>malloc')) {
            $conf->data->set(malloc_header => 'malloc.h');
        } else {
            $conf->data->set(malloc_header = <==
2	/Users/nnunley/parrot/config/auto/memalign.pm	971	1090	
==>malloc')) {
        $conf->data->set(malloc_header => 'malloc.h');
    } else {
        $conf->data->set(malloc_header = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93406	93724	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "A <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94186	94504	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "A <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7243	7342	
==>+(?:NAME|TITLE|TITEL)\s*[\n\r]+([^\n\r]+)/smo;
	
	$text = $1;
	# Tidy it up a bit.
	$text =~ s/^\s+/ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61798	61913	
==>y $name = $code;
			my $matchrule = 0;
			if (substr($name,0,1) eq '<')
			{
				$name =~ s/$MATCHRULE\s*//;
				$na <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	52189	52350	
==>gco
				and do { ($code) = extract_codeblock($grammar,'{',undef,'<');
					  $code })
			{
				_parse("a (conditional) reject marker", $aftererror,$line);
				$co <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	8356	8458	
==>** Op Function Definitions:
*/

END_C

#
# Finish the SOURCE file's array initializer:
#
my $CORE_SPLIT <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	20428	20526	
==>~ /[[(<{]/)
		{
			pos($$textref)--;	# OVERCOME BROKEN LOOKAHEAD 
			_match_bracketed($textref,"",$ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2831	2947	
==>k in module-level code"
   END
Sub1:
   PRINT "2 in subroutine one"
   GOSUB Sub2
   PRINT "ERR this line in subrouti <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16798	16914	
==>k in module-level code"
   END
Sub1:
   PRINT "2 in subroutine one"
   GOSUB Sub2
   PRINT "ERR this line in subrouti <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10647	10765	
==>se, report it as a BUG");

}#_Parse
#DO NOT remove comment

1;

}
#End of include------------------------------ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10170	10280	
==>se, report it as a BUG");

}#_Parse
#DO NOT remove comment

1;

}
#End of include------------------------------ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827057	827475	
==>FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 936,
                  "ARGS" => [
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 146 \"src/ops/ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	540	657	
==>checks
    $t = $self->maptree($t, sub { shift->{nocheck} = 1 });
    # Add necessary checks back in
    $t = $self->a <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	944	1198	
==>nd::name)
                        }}, $SRCDIR);

    # build parrot with coverage support
    system("perl Configure.pl --ccflags=\"-fprofile-arcs -ftest-coverage\"");
    system("make");

    # Now run the tests
    system("make fulltest");
}

# And gene <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106395	1106639	
==>nterpreter->vtables[typ]->class;\n    {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107371	1107615	
==>nterpreter->vtables[typ]->class;\n    {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	12115	12404	
==>T_JUMP_POP",
                  "NAME" => "ret",
                  "FLAGS" => "",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 16,
                  "ARGS" => [],
                  "BODY" => "#line 217 \"src/ops/core.ops\"\n  {{=*}};\n <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	7294	7479	
==>oubleQuoteStringLexer();

            s/^\'//
                and return $parser->_SingleQuoteStringLexer();

            s/^\[(=*)\[//
                and return $parser->_LongStr <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	1830	1932	
==>out = $generator->gen_h($h_name);
    print $hout if $opt->{debug};
    print "Writing $h_name\n" if $o <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	916	1019	
==>ns or in general when svn is not available).
# See docs/submissions.pod on how to recreate this file aft <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3771	3874	
==>ns or in general when svn is not available).
# See docs/submissions.pod on how to recreate this file aft <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1073	1287	
==>the caller.
#
# Converts a single string argument:
#
#     "Foo $a ${b}ar\n"
#
# to multiple arguments:
#
#     "Foo ", a, " ", b, "ar ", b, "\n"
#
# to effect string interpolation.
#

sub compile
{
  my $self = shi <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	575	751	
==>ropogating.
	return <<'PIR';
.local string strPC
.local int stack_depth
.local pmc prop_type_state, prop_stack_depth
stack_depth = -1
prop_type_state = new Hash
prop_stack_depth <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1488	1609	
==>ropogating.
	return <<'PIR';
.local string strPC
.local int stack_depth
.local pmc prop_type_state, prop_stack_depth, lazy <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	70427	70566	
==>n > 0;
		_warn(3,"Subrule sequence \"$subrule($repspec) $&\" will
		       (almost certainly) fail.",$line)
		and
		_hint("Unless subrule \" <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8076	8233	
==>nd

    goto loop_two 
loop_two_end:

    .return (result)
.end

.sub unicode:"dyadic:\u2373" :multi(APLVector, Float) # index of
    .param pmc op1
    .para <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	22570	22669	
==>alanced::Extractor')
					{ @bits = $field = $func->extract($$textref) }
				elsif( $$textref =~ m/\ <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	802	1021	
==>]) - 1;
	($_[0] << $_[1]) | (( $_[0] >> (32 - $_[1])  )  & ((1 << $_[1]) - 1));
	#$_[0] << $_[1] | (($_[0]>> (32 - $_[1])) & (1 << (32 - $_[1])) - 1);
}

sub gen_code {
  # Discard upper 32 bits on 64 bit archs.
  my $MS <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	25234	25435	
==>g to entend.\n";
      $self->whine(
        $para->[1]{'start_line'},
        "You can extend only formatting codes A-Z, not like \"$new_letter\""
      );
      return;
    }
    
    if(grep $new_let <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	477	595	
==>f = shift;
    my ( $count, $options ) = @_;

    my $lang_fn = Parrot::Test::per_test( '.bc', $count );
    my $pir_fn <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr3.pm	369	487	
==>f = shift;
    my ( $count, $options ) = @_;

    my $lang_fn = Parrot::Test::per_test( '.bc', $count );
    my $pir_fn <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	11853	12001	
==>}
            elsif ( $func =~ m/^pasm_output_/ ) {
                $code_f = per_test('.pasm', $test_no);
            }
            elsif ( $func =~ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259122	259348	
==>= {{\@3}})\n        {{\@1}} = 1;\n    else\n        {{\@1}} = VTABLE_is_same(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3	103	
==>kage Regex::CodeGen::Perl5;
use Regex::Ops::Tree (); # For mark()
use base 'Regex::CodeGen';
use stri <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564354	564814	
==>ct_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 645,
                  "ARGS" => [
                              "p",
                              "sc",
                              "p"
                            ],
                  "BODY" => "#l <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10237	10369	
==>xt/Unidecode/x00.pm:

' ', qq{!}, qq{C/}, 'PS', qq{\$?}, qq{Y=}, qq{|}, 'SS', qq{"}, qq{(c)}, 'a', qq{<<}, qq{!}, "", qq{(r)}, qq{-}, <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	994	1193	
==>nd
            $token =~ /^[<>]/) {  # Equal sign can follow '<','>'
      $token .= $ch;
    } elsif($ch eq '.' and
            $token =~ /^\d+$/) {  # Equal sign can follow '<','>'
      $token .= $ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	40892	41054	
==>row}) {
      $max_len[$_]=length($row->[$_]) if length $row->[$_] > $max_len[$_];
    }
  }
  @max_len;
}

sub _call_function_sym {
  my $self = shift;
  my $symb <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Posix.pm	347	485	
==>f = shift;
    my ( $count, $options ) = @_;

    my $lang_fn        = Parrot::Test::per_test( '.bc', $count );
    my $test_prog_args = $E <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27110	27258	
==>my $rdel = $self->{"rdelim"};
	my $sdel = $ldel;
	my $mod  = $self->{"mod"};

	$sdel =~ s/[[{(<]/{}/;
	
my $code = ''.($::RD_NO_TRACE?'':'
		Parse::R <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	3539	3707	
==>$arg->{type} } = 1;
    }
    
    # helper conversion subroutines
    my %helpers = (
        # type     subroutine
        channel => '__channel',
        expr    => ' <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	41165	41286	
==>ell = (@$ell[0,1], defined($link_text) ? splice(@$link_text) : '');
      
      DEBUG > 2 and print "End of L-parsing for <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	31473	31769	
==>> {
			'tableconstructor' => 46,
			'args' => 43,
			'key' => 45
		}
	},
	{#State 108
		ACTIONS => {
			":" => 51,
			"{" => 38,
			'STRING' => 44,
			"(" => 48,
			"[" => 47,
			"." => 49
		},
		DEFAULT => -43,
		GOTOS => {
			'tableconstructor' => 46,
			'args' => 52,
			'key <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	5186	5336	
==>e
    my @Q = ($output2[0]);

  BBLOCK:
    while (my $stmt = shift(@Q)) {
	next if $stmt->{label}->{reachable}; # Already reached here
	$stmt->{label} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995428	995693	
==>i",
                              "i",
                              "s",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_fi <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76943	77080	
==>0];
	}
}

sub _tracefirst($)
{
	if (defined $::RD_TRACE
	    && $::RD_TRACE =~ /\d+/
	    && $::RD_TRACE>1
	    && $::RD_TRACE+10<length($ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	4305	4401	
==>Parse::RecDescent::OffsetCounter;

sub TIESCALAR	# ($classname, \$text, $thisparser, $prev)
{
	bl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1092036	1092401	
==>perimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iter",
                  "FLAGS" <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	1531	1674	
==>omatically generated by config/gen/core_pmcs.pm
 */

#include "parrot/parrot.h"

END_C

    print OUT "extern void Parrot_${_}_class_init(Interp <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	18444	18563	
==>func()>

Returns the C code for the PMC's initialization method, or an empty
string if the PMC has a C<no_init> flag.

= <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	1761	1876	
==>l/$_.t"} @keep;
if (! @tests) {
  die "Couldn't find any tcl test files to run.\n";
}
my $cmd = "$^X t/harness @test <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	26903	27055	
==>~ m/^\s*((?:\d*\.)?\d+)\s*$/s) {
        no integer;
        $para->[1]{'indent'} = $1;
        if($1 == 0) {
          $self->whine(
            $para-> <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3045	3151	
==>pmcs) = @ARGV;

if ($mode eq 'generate') {
    # Convert X.pmc -> X.dump and X.c and also create any lib-GR <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3149	3255	
==>pmcs) = @ARGV;

if ($mode eq 'generate') {
    # Convert X.pmc -> X.dump and X.c and also create any lib-GR <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	5031	5307	
==>lue eq 'true' ) ? 1 : 0;
                }
                my $expr = new defn( $value, 'literal', 'pmc', $type );
                push @opcodes, new AssignOp( $parser,
                    'prolog' => 1,
                    'arg1'   => $expr,
                    'result' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925558	925860	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1042,
                  "ARGS" = <==
2	/Users/nnunley/parrot/config/auto/m4.pm	194	439	
==>N

Determines whether GNU m4 exists on the system. It is OK when it doesn't exist.
Currently GNU m4 is only used for doublechecking Parrot m4.

=cut

package auto::m4;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure:: <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4823	4938	
==>th $to;
  $out .= "#" . $section if defined $section and length $section;
  return undef unless length $out;
  retur <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630511	630634	
==>rpreter, class);\n    if (type <= 0)\n        real_exception(interpreter, NULL, NO_CLASS,\n            \"Class '%Ss' not fou <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631501	631624	
==>rpreter, class);\n    if (type <= 0)\n        real_exception(interpreter, NULL, NO_CLASS,\n            \"Class '%Ss' not fou <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755124	755219	
==>Y" => "#line 266 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_number_native(interpreter, {{\@1}}, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755911	756006	
==>Y" => "#line 266 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_number_native(interpreter, {{\@1}}, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691222	691501	
==>"\n   {{\@1}} = Parrot_thaw(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691979	692258	
==>"\n   {{\@1}} = Parrot_thaw(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449165	449372	
==>,
                  "CODE" => 514,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 190 \"src/ops/math.ops\"\n  {{\@1}}->vtable <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	1261	1432	
==>equired: string (TODO: domain?)
  my $type   = shift; # Optional: TODO: type?
  my $prefix = shift; # Optional: string

  confess "Use Jako::Construct::Block::Bare, not Jak <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	3911	4032	
==>arser, $prevflag)
{
	bless {
		text    => $_[1],
		parser  => $_[2],
		prev    => $_[3]?1:0,
	      }, $_[0];
}

sub FETCH <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	2915	3033	
==>arser, $prevflag)
{
	bless {
		text    => $_[1],
		parser  => $_[2],
		prev	=> $_[3]?1:0,
	      }, $_[0];
}

sub FETCH <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33508	33648	
==>a == 2) {
            # For the cases where we /didn't/ push to @$para
            if($paras->[0][0] eq '~Para') {
              DEBUG and pr <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35321	35461	
==>a == 2) {
            # For the cases where we /didn't/ push to @$para
            if($paras->[0][0] eq '~Para') {
              DEBUG and pr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	76842	77387	
==>ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 99,
                  "ARGS" => [
                              "p",
                              "p",
                              "sc",
                              "sc"
                            ],
                  "BODY" => "#line 1156 \"src/ops/core.ops\"\n  char * co <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8735	8841	
==>${CURIC}

# Get type of return value and build code to pop it.
${ITEMP1} = elements ${STYPES}
dec ${ITEMP1} <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7307	7413	
==>${CURIC}

# Get type of return value and build code to pop it.
${ITEMP1} = elements ${STYPES}
dec ${ITEMP1} <==
2	/Users/nnunley/parrot/lib/File/Which.pm	2431	2592	
==>/i } @path_ext[1..$#path_ext])
                                # DOSish systems don't pass -x on non-exe/bat/com files.
                                # so we ch <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	12256	12398	
==>param int op1
    .param pmc op2

    .local pmc result 
    result = new 'APLVector'

    .local pmc iter
    iter = new .Iterator, op2

    i <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4738	4854	
==>thing should be done about that.
    }
  }
  
  my $out = $to if defined $to and length $to;
  $out .= "#" . $section <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	73408	73515	
==>{fulltext} = $text;
	$_[0]->{fulltextlen} = length $text;
	$_[0]->{deferred} = [];
	$_[0]->{errors} = [];
	m <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	2955	3098	
==>nimplemented'}) {
            die "Unimplemented method given body at line $line_count\n";

        # Otherwise, just append it to current metho <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2368	2528	
==>rates over the group's contents and calls C<write_html()> on each one.

Some HTML-formatted text describing the files linked to is returned.

=cut

sub write_con <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	314	479	
==>Algorithm::TokenBucket;
use Time::Piece;
use Time::Seconds;

require_compression_modules();

use constant {
  VERSION     => 0.4,
  MAX_SIZE    => 2**20 * 3.0,  # MiB <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2275	2382	
==>lsif ( $user and $array) {
			# TODO TODO TODO TODO
			print CODE<<SHARING;
	# Sharing $stype $var with main <==
2	/Users/nnunley/parrot/lib/File/Which.pm	1602	1802	
==>`Alias $alias`);
                last unless $file;  # if it failed, just go on the normal way
                return $file unless $all;
                push @results, $file;
                # we can s <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	37616	37727	
==>t> the pattern
that matched the tag). For example, if the opening tag pattern
is specified as C<'{{\w+}}'> and a <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	4448	4605	
==>ens, Jako::Token->new(
        $file, $line, $1, undef, $1);
      $text = $2;
      next;
    }

    #
    # (Prefix) Ops:
    #

    if ($text =~ m{^(new)(? <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1222	1356	
==>lgorithm:
      s/(
         [^\n]{55}         # Snare some characters from a line
         [^\n\ ]{0,50}     #  and finish any current <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1166	1300	
==>lgorithm:
      s/(
         [^\n]{55}         # Snare some characters from a line
         [^\n\ ]{0,50}     #  and finish any current <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	7313	7455	
==>urity, Inc. MD5 Message-Digest Algorithm" in all material
mentioning or referencing the derived work.

RSA Data Security, Inc. makes no represe <==
2	/Users/nnunley/parrot/config/auto/readline.pm	408	498	
==>::Configure::Step ':auto';

$description = 'Determining if your platform supports readline' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113915	114216	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114654	114955	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core" <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1580	1777	
==>(0);"
    }
    else
    {
        return "if ((opcode_t *) $addr == 0)
	  return 0;
   _reg_base = (char*)interpreter->ctx.bp.regs_i;
   goto *((void*)*(cur_opcode = (opcode_t *)
	opcode_to_predere <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3158	3263	
==>arer
into which context the data belongs.

For APIs purely internal to Parrot, try using C<const> in funct <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/State.pm	343	465	
==>label,
                 }, 'Regex::Ops::Label';
}

sub genlabel {
    my ($self, $desc) = @_;
    my $number = ++$self->{_m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548564	549030	
==>advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 632,
                  "ARGS" => [
                              "n",
                              "i"
                            ],
                  "BODY" => "#line 1107 \"src/ops/math.ops\"\n  /* Coercing a negative to a UINT can get pre <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	15545	15742	
==>imsox]*',
		's'	=> '[cegimsox]*',
		'tr'	=> '[cds]*',
		'y'	=> '[cds]*',
		'qq'	=> '',
		'qx'	=> '',
		'qw'	=> '',
		'qr'	=> '[imsx]*',
		'q'	=> '',
	     );

sub extract_quotelike (;$$)
{
	my $text <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	3203	3403	
==>es' => [
                    'inter_cb', 'inter_create', 'inter_misc', 'inter_run'
                ], 
                'headers' => ['interp_guts']
            ),
            $self->c_pair_item('', 'ex <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	10343	10472	
==>orrect
DIM A(1,1)
RO=1
IF A(RO,5)=0 THEN GOSUB 20: REM GOO
   end
20 print "Correct"
   return


' Expect Correct
t=0
g=0
if t the <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9159	9262	
==>orrect
DIM A(1,1)
RO=1
IF A(RO,5)=0 THEN GOSUB 20: REM GOO
   end
20 print "Correct"
   return

' Expect <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	3401	3495	
==>f->name } });
  $_->sax($handler) foreach $self->args;
  $handler->end_element({ Name => 'call' <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	7757	7896	
==>rev, $this, $next)=(
			(($t-1 >= 0)?$foo[$t-1]:undef),
			$foo[$t], 
			(($t+1 <= $#foo)?$foo[$t+1]:undef) );
		if ($this->[0] eq '-' and $ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	66	169	
==>/Parrot/Pmc2c.pm 20340 2006-06-22T21:49:11.552283Z bernhard  $

=head1 NAME

Parrot::Pmc2c - PMC to C Co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807717	807929	
==>",
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 502 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed(in <==
2	/Users/nnunley/parrot/config/auto/signal.pm	503	638	
==>@_;

    my $verbose = $conf->options->get('verbose');

    $conf->data->set(
        has___sighandler_t => undef,
        has_sigatomic <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	846	939	
==>l/lib -L/usr/local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS = qq[-bundle -undefined suppress <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	850	943	
==>l/lib -L/usr/local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS = qq[-bundle -undefined suppress <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	871	1010	
==>IDENT};  }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;
  
  my $ident_name = $self->ident->value;

  my $ide <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	871	1008	
==>IDENT};  }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $ident_name = $self->ident->value;

  my $ide <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	28528	28716	
==>arams) {
		unless (/\(\)/) {
			my $t=typeof($_);
			$t="string" if $t eq "STRING";
			$t="float" if $t eq "FLO";
			$_=changename($_);
			$_=~s/\$/_string/g; 
			push @{$code{$seg}->{code} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819740	819971	
==>_entry_type(interpreter, entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820700	820931	
==>_entry_type(interpreter, entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3290	3431	
==>, $val2, $dest);
}

sub output_if {
    my ($self, $reg, $dest) = @_;
    $reg = value($reg);
    return "goto " . $self->output_label_use($de <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	3253	3388	
==>-([^=]+)=(.*)/) {
        $options{$1} = $2;
    } else {
        push @manifests, $_;
    }
}

# We'll report multiple occurrences of t <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	989	1082	
==>e::Identifier');
  confess "Left is not Value!" if defined $left and not UNIVERSAL::isa($left, <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1017	1110	
==>e::Identifier');
  confess "Left is not Value!" if defined $left and not UNIVERSAL::isa($left, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	12073	12176	
==>= undef;
$rx_match{'!STACK'} = \$rx_stack;
return \%rx_match;
END
}

sub output_call_setup {
    my ($se <==
2	/Users/nnunley/parrot/config/init/optimize.pm	1175	1298	
==>) already?
	    my $opts = $Config{optimize};
	    $opts =~ s/-mcpu=\S+//;
            $conf->data->add(' ', ccflags => $opt <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	32645	32791	
==>5
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			"> <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8024	8178	
==>k eq 'ACCEPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Accept.\n";

				return($semval);
			};

                $$chec <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7664	7809	
==>k eq 'ACCEPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Accept.\n";

				return($semval);
			};

                $$chec <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572992	573081	
==>\n  VTABLE_set_string_native(interpreter, name, {{\@2}});\n  {{\@1}} = pmc_new_init(interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573902	573991	
==>\n  VTABLE_set_string_native(interpreter, name, {{\@2}});\n  {{\@1}} = pmc_new_init(interp <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	3443	3672	
==>ined(\$init{'$name'}) && ref(\$init{'$name'}) ne 'ARRAY';\n";
            $out .= "    \$r->$elem = $init [];$cmt\n"; 
            $arrays{$name}++;
        }
        elsif( $type eq '%' ){
            $out .= "    croak 'Initiali <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	825	917	
==>less UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Ident is not!" if defined $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	853	945	
==>less UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Ident is not!" if defined $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3401	3510	
==>rint { $self->{'output_fh'} }   '', 
    $self->{'Thispara'},
    "\n\n"
  ;
  $self->{'Thispara'} = '';
  ret <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2931	3040	
==>rint { $self->{'output_fh'} }   '', 
    $self->{'Thispara'},
    "\n\n"
  ;
  $self->{'Thispara'} = '';
  ret <==
2	/Users/nnunley/parrot/config/auto/alignptrs.pm	850	1067	
==>>set_result("configured: ");
    } elsif ($^O eq 'hpux' && $Config{ccflags} !~ /DD64/) {

        # HP-UX 10.20/32 hangs in this test.
        $align = 4;
        $conf->data->set(ptr_alignment => $align);
        $sel <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7643	7745	
==>$dest_reg = shift;
	my $pir = "";

	# If the destination isn't a register, determine register name now. <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5761	5863	
==>$dest_reg = shift;
	my $pir = "";

	# If the destination isn't a register, determine register name now. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788744	788921	
==>"p",
                              "kic"
                            ],
                  "BODY" => "#line 422 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keye <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2023	2102	
==>jklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/sprintf'\x%02X',ord($1)/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786169	786348	
==>table->get_integer_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787080	787259	
==>table->get_integer_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	5744	5921	
==>ching percentage to time - not enough executables\n";
    $cfg{use_times} = 1;
}
if ( $cfg{use_times} ) {
    my $type = $cfg{method} == 1 ? 'CPU' : 'wall-clock';
    print "Time <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	3647	3960	
==>->INTERNAL_ERROR("Attempt to pop file-scope block off block stack!")
    if scalar($self->blocks) == 1;

  return pop @{$self->{BLOCKS}};
}


###############################################################################
###############################################################################
##
## MAIN P <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1141	1237	
==>er 4

=item * C<new()>

Basic constructor.

Accepts no arguments and returns a L<Parrot::Configur <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	678	774	
==>er 4

=item * C<new()>

Basic constructor.

Accepts no arguments and returns a L<Parrot::Configur <==
2	/Users/nnunley/parrot/config/inter/progs.pm	71	160	
==>nter/progs.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/inter/progs.p <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4741	4855	
==>inclusive.
#So, DO NOT remove comment at end of sub !!!
sub _Parse {
    my($self)=shift;

	my($rules,$states, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4506	4615	
==>inclusive.
#So, DO NOT remove comment at end of sub !!!
sub _Parse {
    my($self)=shift;

	my($rules,$states, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756732	756819	
==>"\n  {{\@1}}->vtable->assign_string_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757522	757609	
==>"\n  {{\@1}}->vtable->assign_string_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857289	857670	
==>"i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 973,
                  "ARGS" => [
                              "s",
                              "sc",
                              "sc"
                            ],
                  "BODY" => "#line 105 \"src/ops/string.ops\"\n  {{\ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	1952	2092	
==>ref, $extrapos, $extralen)."\n" : "";
		eval {substr($$textref,$_[4],$_[1]+$_[5])=$extra} ;	#CHOP OUT PREFIX & MATCH, IF POSSIBLE
		pos($$tex <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	2247	2382	
==>l;
        if ($firstline !~ /\(/) {
	    $bad_fdecls{$fdecl} = $secondline;
        }
    }
    
    # now a little trick.  Weed out th <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4824	4917	
==>ype.
${ITEMP0} = elements ${STYPES}
dec ${ITEMP0}
${PTEMP0} = ${STYPES}[${ITEMP0}]

# We'll us <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	5779	5928	
==>sort keys %{$system_include{$include}}) {
                print "        $file\n";
            }
        }
    }
}


sub do_object {
    foreach my $o <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	899	1066	
==>ry. Defaults to '/usr/include'.

=back

=head2 MANIFEST Format

The format of the MANIFEST (currently MANIFEST and MANIFEST.generated
are used) is:

    source_path <wh <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9926	10141	
==>space,$self,$parser);

		$code .= $parser->{deferrable}
				? '		splice
				@{$thisparser->{deferred}}, $def_at unless $_matched;
				  '
				: '';
	}

	$code .=
'
        unless ( $_matched || defined($return) || de <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	7976	8093	
==>" ~ ($got.defined ?? $got !! "undef") ~ "'");
    }
    else {
        Test::diag("    Actual: " ~ ($got.defined ?? $g <==
2	/Users/nnunley/parrot/config/gen/platform.pm	1045	1163	
==>t " platform='$platform' " if $verbose;

    my $generated = $conf->data->get('TEMP_generated');
    $generated = '' un <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	119	226	
==>m - Testing routines specific to 'm4'.

=head1 DESCRIPTION

Call 'Parrot m4' and 'GNU m4'.

=cut

package Pa <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	2385	2490	
==>IN_END(interpreter) will put the stack anchor back to
   the way it was, and should always be the last sta <==
2	/Users/nnunley/parrot/examples/benchmarks/shared_ref.pl	384	518	
==>ads;
use threads::shared;

for my $i (0..99_999) {
    my $r :shared;
    my $j :shared;
    $r = \$j;
    $$r = $i;
}

=head1 SEE ALSO <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	12753	12898	
==>=smokes>
          <tr>
            <td class="indent2">Parrot&nbsp;<tmpl_var name=VERSION></td>
            <td>
              <tmpl_if name=revi <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	8481	8650	
==>($#arg & 01) ? @arg : (@arg, undef);
	my $text;
	my $lastsep="";
	local ($Parse::RecDescent::failed,
	       $Parse::RecDescent::expected,
	       $Parse::RecDescent::une <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	43374	43545	
==>lass;
}

sub prettyprint {
  my $node  = shift;
  my $depth = shift;

  print ' ' x $depth; print "($node->{value}\n";
  if(defined $node->{children}) {
    for(@{$node->{c <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	1357	1494	
==>languages/lisp'),
        $self->new_section('.Net', 'dotnet.html', '', 'languages/dotnet'),
        $self->new_section('HQ9plus', 'hq9plu <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	690	810	
==>ail $label->[1]";
}

sub output_match {
    my ($byte) = @_;
    return "match '$byte'";
}

sub output_classmatch {
    m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109134	109451	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109912	110229	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296485	297001	
==>AME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 345,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 970 \"src/ops/cmp <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2952	3114	
==>oring)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # test result
              | " ((?:[^"\\]|\\.)+) <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4349	4511	
==>oring)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # test result
              | " ((?:[^"\\]|\\.)+) <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	396	496	
==>an unnamed library with just
one PMC, which is the case used by the Parrot core. See L<Parrot::Pmc2c> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301589	302051	
==>AME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 351,
                  "ARGS" => [
                              "i",
                              "s",
                              "s"
                            ] <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5149	5359	
==>roup_files);

    die "nothing found to copy" unless @list_to_process;

    foreach (@list_to_process) {
        copy("$_$LOAD_EXT", $dest) or die "Copy $_$LOAD_EXT failed ($?)\n";

        # Execute permissions <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	8624	8801	
==>= { '*UP*' => $oldscope };

  my $num = 5;
  my @args = @{_get_arg($node,1)->{children}};
  for (@args) {
    my $arg = $_->{value};
    $self->_new_lex($arg, "P$num");
    $num+ <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3230	3390	
==>A = qw( Exporter );
@EXPORT_OK = qw( %pmc_types);

%pmc_types = (
END_PM

    for my $num (0 .. $#pmcs) {
        my $id = $num + 1;
        print OUT "\t$pmcs[$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830693	830882	
==>er_stack, &i, STACK_ENTRY_INT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831434	831623	
==>er_stack, &i, STACK_ENTRY_INT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	1769	1868	
==>nnunley/parrot/tools/build/pmc2c.pl] . $PATHQUOTE;

# Actual commands
sub compile_cmd {
    my ($tar <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	1860	1959	
==>nnunley/parrot/tools/build/pmc2c.pl] . $PATHQUOTE;

# Actual commands
sub compile_cmd {
    my ($tar <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48661	48798	
==>}
				elsif ($grammar =~ m/$BADREP/gco)
				{
					_parse("an invalid repetition specifier", 0,$line);
					_error("Incorrect specificatio <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19773	20032	
==>= 0) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	45732	45835	
==>} until $@;


	# Isolate the search pattern in a quotelike operation from $text

		($op,$pat) = (extract <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1964	2065	
==>ce (as we call gen_label before translating
	# every instruction) to see if we need to instate a stack <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1363	1464	
==>ce (as we call gen_label before translating
	# every instruction) to see if we need to instate a stack <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	8015	8150	
==>=~ m/^over-(.+)$/s ) 
    {
        push @{$self->{STACK}}, $1;
    } 
    elsif ( $tagname eq 'Para') 
    {
        $tagname = 'Para_i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	3037	3145	
==>handler->start_element({ Name => 'block', Attributes => { kind => 'then' } });
  }

  $handler->start_element <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3801	3909	
==>handler->start_element({ Name => 'block', Attributes => { kind => 'then' } });
  }

  $handler->start_element <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	1305	1408	
==>~~~~~~~~~~~~~~~~~~
1;
__END__

Chole

 * 1 large red onion
 * 2 tomatillos
 * 4 or 5 roma tomatoes (opti <==
2	/Users/nnunley/parrot/config/auto/isreg.pm	353	468	
==>::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining if your C library has a working S_ISREG' <==
2	/Users/nnunley/parrot/config/auto/env.pm	371	481	
==>::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining if your C library has setenv / unse <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2408	2520	
==>ts($$self{USER})
	or	$$self{USER}={};

	$$self{USER};
	
}

sub YYErrok {
	my($self)=shift;

	${$$self{E <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2313	2415	
==>ts($$self{USER})
	or	$$self{USER}={};

	$$self{USER};
	
}

sub YYErrok {
	my($self)=shift;

	${$$self{E <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	2520	2721	
==>== $len-1;
    }
    print "};\n";
}



#
# create 'src/charset/tables.c'
#
###########################################################################
my $c_file= File::Spec->catfile($charset_dir, 'tab <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	499	605	
==>rrot::Test::M4.
XXX: Do not configure with environment variables.

=cut

sub new {
    return $ENV{PARROT_M <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561912	562010	
==>@1}}) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562996	563094	
==>@1}}) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	2394	2623	
==>uivs) {
		my $megalabel = $self->combineLabels(@equivs);
		$_->{label} = $megalabel foreach (@equivs);
		push @output, $equivs[0];
		@equivs = ();
	    }
	    push @output, $stmt;
	}
    }
    die "The final 'terminate' is suppose <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	6050	6174	
==>and("make test", CD => "some_dir");

=item C<slurp_file($file_name)>

Read the whole file $file_name and return the content a <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	718	852	
==>x_match>["0";1], <rx_tmp>');
}

sub output_match_failed {
    return ('set <rx_match>["!POS"], <rx_pos>',
            'set <rx_match>[" <==
2	/Users/nnunley/parrot/config/auto/readline.pm	1078	1190	
==>f->data->add(' ', libs => '-lreadline');
    }

    my $osname = $Config{osname};

    # On OS X check the presen <==
2	/Users/nnunley/parrot/config/auto/headers.pm	2203	2335	
==>de <$_>\n" } @$use_headers));
            $conf->data->set(testheader  => $header);

            cc_gen('config/auto/headers/test_c.i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	264	361	
==>use strict;
eval "use warnings";

package Jako::Construct::Label;

use Carp;

use base qw(Jako::Co <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15441	15568	
==>eral( $parser, 'nil', 'nil' );
    push @opcodes, @{ $nil->[1] };
    $result = new_tmp( $parser, 'pmc' );
    push @opcodes, <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19194	19321	
==>eral( $parser, 'nil', 'nil' );
    push @opcodes, @{ $nil->[1] };
    $result = new_tmp( $parser, 'pmc' );
    push @opcodes, <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23944	24073	
==>alue>);
    #   redo unless (<value> <op> <value>);
    #
    #   redo <label>;
    #   redo <label> if     (<value> <op> <value>) <==
2	/Users/nnunley/parrot/languages/urm/urm-old.pl	297	422	
==>\#/);
    if ($line =~ /in *\(([r\d,]+)\)/) {
	print "Werte für $1: ";
	my $input = readline(STDIN);
	my @register = split (" <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	3321	3422	
==>No C<class_init> code is generated.

=item C<const_too>

Classes with this flag get 2 vtables and 2 en <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	4457	4607	
==>rr_open'} ||= [] }


sub output_string {
  # Works by faking out output_fh.  Simplifies our code.
  #
  my $this = shift;
  return $this->{'output_stri <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2323	2470	
==>w the true name of the object file being profiled, 
    # we rename the gcov log file.
    # The -o flag is necessary to help gcov locate it's basic <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41151	41315	
==>text = $text;
			' . ($op->isterminal() ? 'pop @item;' : "" ) . '
			' . (ref($op) eq 'Parse::RecDescent::Token' ? 'do { push @item, '
			     . ($::RD_NO_HITEM ? '' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510684	511226	
==>"o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 588,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 680 \"src/ops/math.ops\"\n  {{\@1}} = - {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4046	4162	
==>mandatory parameter '".lc($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _DBLoad {
	{
		no st <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3843	3949	
==>mandatory parameter '".lc($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _DBLoad {
	{
		no st <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	6133	6392	
==>$ot1, EQ_${eqnum}_end
	ne $a2, $ot2, EQ_${eqnum}_end
	set $result, 0.0
EQ_${eqnum}_end: noop
CODE
	},
	'.' => "NULL",
	'mod' => sub {
		my($a1,$a2,$result)=@_;
		return(<<CODE, $result);
	cmod $result, $a2, $a1
CODE
	},
	'^' => "POW",	
);
%opsubs=(%opsubs, 
	' <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	8688	8799	
==>'class'} eq 'load' || $rule->{'class'} eq 'calling')) {
		die "typeinfo must be supplied for rule $rule->{'name' <==
2	/Users/nnunley/parrot/config/init/optimize.pm	1495	1611	
==>f->data->add(' ', ccflags => $optimize);
            # record what optimization was enabled
            $conf->data-> <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1975	2083	
==>all gen_label before translating
	# every instruction) to see if we need to instate a stack type state
	# tha <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1374	1482	
==>all gen_label before translating
	# every instruction) to see if we need to instate a stack type state
	# tha <==
2	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	332	456	
==>ler
#
# Revision 1.8  2002/05/25 02:36:14  clintp
# Added autorun.bas, removed LOAD message, renamed intermediate compile fil <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210264	210358	
==>nterpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) <= 0) {\n    {{+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211244	211338	
==>nterpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) <= 0) {\n    {{+ <==
2	/Users/nnunley/parrot/config/auto/msvc.pm	450	564	
==>ng if your C compiler is actually Visual C++';

@args = qw(verbose);

sub runstep
{
    my ($self, $conf) = (shift, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	709520	709930	
==>> "get_mro",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 796,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "B <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	26788	26942	
==>ing code '$f' as a fallback for '$new_letter'"
      );
      return;
    }

    DEBUG > 3 and printf "Extensor: Fallbacks <%s> Elements <%s>.\n",
     @fa <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5839	5931	
==>elf->{triggers}{$key}{$trigger};

    my $verbose = defined $self->get('verbose') && $self->g <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6409	6501	
==>elf->{triggers}{$key}{$trigger};

    my $verbose = defined $self->get('verbose') && $self->g <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	3821	4186	
==>lder's test on actual vs. expected output
            my $method = $test_map->{$func}->{test}->{data};
            my $pass = $b->$method( $actual_output, $expected, $desc );

            ## print diagnostic info if the test fails
            $b->diag("'$cmd' failed with exit code $exit_code")
                  if $exit_code and not $pass;

            unless($ENV <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	624030	624299	
==>ur_opcode)[1] = mic->m.sig;\n    {{+=0}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS",
                  "NAM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	622176	622416	
==>ur_opcode)[1] = mic->m.sig;\n    {{+=0}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22572	22688	
==>'           ,'eq'    ,[$temp_0,1,"DONE_$label"]);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_a <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1757	1856	
==>d %d, got %d) in call to '%s'.",
    scalar(@formal_args), scalar(@args), $name)
    unless @formal_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1457	1556	
==>d %d, got %d) in call to '%s'.",
    scalar(@formal_args), scalar(@args), $name)
    unless @formal_ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	28760	28947	
==>, $c, $cmt) = @_;
    my $it = temp('P');
    my $tos = pop @stack;
    my $var = promote($tos);
    print <<EOC;
	$it = iter $var $cmt
EOC
    push @stack, [$tos->[0], $it, 'P']
}
sub FOR <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	3803	3981	
==>subname = $self->{subname} || '_regex';
    print $fh <<"END";
.sub $subname
    .param string rx_input

    .local pmc rx_match
    .local pmc rx_stack
    rx_stack = new IntList <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	17044	17143	
==>hift;

    my $classname = $self->{class};
    return dynext_load_code($classname, $classname => {}) <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38514	38636	
==>fined $::RD_TRACE;
		') . ($::RD_NO_HITEM ? ''
		     : '$item{q{' . $self->describe . '}} = $_tok;'). '
		push @item, $_to <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	862	972	
==>arrot subversion repository. (Needed for
# distributions or in general when svn is not available).
# See docs/s <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3717	3827	
==>arrot subversion repository. (Needed for
# distributions or in general when svn is not available).
# See docs/s <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1745	1872	
==>le $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := $got ~~ $expected;
    Test::proclaim($tes <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	2015	2135	
==>elopment version.', 'DEVELOPING'),
            $self->new_item('The status of the Parrot test suite.', 't/TESTS.STATUS.po <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	261	366	
==>0T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

use Carp;

package Jako::Construct::Expres <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	549	718	
==>ment variables.

=cut

sub new {
    return $ENV{PARROT_M4_TEST_PROG} ?
        ( bless {}, 'Parrot::Test::M4::Gnu' )              
        :
        ( bless {}, 'Parrot: <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2055	2196	
==>ate a stack type state
	# that was propogated to this instruction. If we do then we should also
    # clear up any lazy moves.
	my $pir .= <<' <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	2731	2934	
==>end of bytecode in argument.\n"
                if ($offset + sizeof('op')) > $length;
            my $arg = unpack "x$offset l", $pf->byte_code;
            $offset += sizeof('op');
            push @arg <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	25019	25143	
==>class specific init code from the .pmc file
    $cout .= <<"EOC";
        /* class_init */
    $class_init_code
EOC

    # de <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2741	2893	
==>t->{TYPE};     }

sub name
{
  my $self = shift;
  my $name = $self->{NAME};

  return $name;
}

sub props { return %{shift->{PROPS}}; }
sub args  { retu <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	3896	3987	
==>=item C<pir_2_pasm_is($code, $expected, $description)>

Compile the Parrot Intermediate Repr <==
2	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	248	418	
==>amples/benchmarks/stress1.pl

=head1 DESCRIPTION

Creates 500 arrays with 20000 elements each.

=cut

foreach (1..10) {
    my @arr;
    foreach (1..10) {
	$arr[$_] = buil <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	484	648	
==>nfess "Expected 3 args!" unless @_ == 3;
  my ($block, $ident, $props) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  co <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	2397	2538	
==>rn $_;
}

sub hasargs {
	return(isbuiltin($_[0]) or isuserfunc($_[0]) or isarray($_[0]));
}

sub iskeyword { 
	return 1 if (grep /^\Q$_[0]\E$/ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	53676	53784	
==>ully extracted, or until the string has been completely 
processed.

Note that in scalar and void contexts th <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	27	118	
==>/lib/Parrot/Test/M4/Gnu.pm 18930 2006-04-24T19:32:28.634218Z bernhard  $

package Parrot::Te <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133316	133618	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134096	134398	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYP <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8773	8870	
==>irectory_with_relative_path($path)>

Returns the path for the subdirectory with the specified path <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	11102	11234	
==>050; }
    .tests_failed   { color: #500; }
    .tests_todo     { color: #030; }
    .tests_skipped  { color: #555; }
    .tests_unex <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18059	18201	
==>@opcodes = ();
    my $key = BuildLiteral( $parser, $meth, 'key' );
    push @opcodes, @{ $key->[1] };
    my $result = new_tmp( $parser, 'p <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	965	1082	
==>esources = shift || '';
    
    <<"HEADER";
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"
    "http:/ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	2423	2568	
==>rn $self;
}

# ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~

sub get_token {
  my $self = shift;
  DEBUG > 1 and prin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106464	1106844	
==>"experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	7889	8006	
==>een_color($resultb)	# Broke!
BNOTF
	} elsif (@codef and not @codeb) {
		push @{$code{$seg}->{code}},<<FNOTB;
@codef	no <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2514	2750	
==>ers into the bytecode array, and so
must be converted to pointers into the prederef array.

=cut

sub expr_pop
{
    my ($self) = @_;
    return "opcode_to_prederef(interpreter, pop_dest(interpreter))";
}

=item C<expr_address($address)> <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	7420	7560	
==>ck file $file_name: $!";

#    dump_const_table($pf);
    compile_byte_code($pf, $file_name);

    undef $pf;

    return;
}

#
# MAIN PROGRA <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	35359	35461	
==>ice(@_, 1);
}
sub DELETE_SLICE_plus_2 {
    return Del_Slice(@_, 2);
}
sub DELETE_SLICE_plus_3 {
    re <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	24452	24576	
==>( @{$opcodes} ) and $opcodes->[-1]->isa('CallOp') ) {
        $defn->{pragma} = 'first';
    }
    return $expr;
}

sub <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	4984	5085	
==>\./][];
    -d and push @dirs, $File::Find::name;
    -f and -e ".svn/text-base/$_.svn-base" and MANIF <==
2	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	549	725	
==>$_] = buildarray();
    }
}

sub buildarray {
    my @foo;
    foreach (1..20000) {
	$foo[$_] = $_;
    }
    return \@foo;
}

=head1 SEE ALSO

F<examples/benchmarks/stress.pasm <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22493	22611	
==>oring mistargetted =end $content\n";
        next;
      }
      
      unless($content eq $curr_open->[-1][1]{'target' <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	22015	22161	
==>lt' => $result,
    );
    return [ $result, \@opcodes ];
}

sub BuildRelop {
    my ( $parser, $expr1, $op, $expr2 ) = @_;
    my %opcode = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476679	477072	
==>"io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 546,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 428 \"src/ops/math.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54786	54903	
==>,
                  "BODY" => "#line 864 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo(interpreter, {{\@2}});\n  {{+=3} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55546	55663	
==>,
                  "BODY" => "#line 864 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo(interpreter, {{\@2}});\n  {{+=3} <==
2	/Users/nnunley/parrot/config/auto/byteorder.pm	1013	1181	
==>teorder,
            bigendian => 1
        );
        $self->set_result('big-endian');
    } else {
        die "Unsupported byte-order [$byteorder]!";
    }

    retur <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15364	15544	
==>parser) = @_;
    my $result;
    my @opcodes = ();
    my $nil = BuildLiteral( $parser, 'nil', 'nil' );
    push @opcodes, @{ $nil->[1] };
    $result = new_tmp( $parser, 'pmc <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	12097	12229	
==>tent !~ m/^[ A-Z]+$/s
          and $head1_text_content !~
            m/\((?:
             NAME | TITLE | VERSION | AUTHORS? | DESCR <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	233	472	
==>the harness which language (and optionally, compiler) you want to use in a
file called F<t/harness>:

  use Parrot::Test::Harness language => 'punie';

  # or

  use Parrot::Test::Harness language => 'perl6', compiler => 'perl6.pbc';

That' <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	3471	3619	
==>$pir = "";

    # Group methods by class.
    my %classes = ();
    foreach (@methods) {
        if ($classes{$_->{'class'}}) {
            push @{$c <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	10769	10900	
==>tf     stdio.h
fputc       stdio.h
fputs       stdio.h
fread       stdio.h
free        stdlib.h
freopen     stdio.h
frexp       math <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	2142	2242	
==>d1 DESCRIPTION

This is an internal module for controlling the debug level (a.k.a. trace
level) of Po <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10404	10531	
==>"Indenting back $indent_stack[-1] twips.\n";
        $self->{'rtfindent'} -= pop @indent_stack;
        pop @stack;
      } elsi <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33202	33321	
==>NCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 100,
			'functioncall' => 31,
			'explist1' => 165, <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	6257	6381	
==>n", scalar @UnParrotAPI;
    for my $api (@UnParrotAPI) {
	printf "%s\t%s\tNO_API\n", $api, $API{$api};
    }
}

if (keys %Da <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	12976	13066	
==>31 \"src/ops/core.ops\"\n  opcode_t * loc;\n  stack_push(interpreter, &CONTEXT(interpreter- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13820	13910	
==>31 \"src/ops/core.ops\"\n  opcode_t * loc;\n  stack_push(interpreter, &CONTEXT(interpreter- <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	5562	5724	
==>ls} += $covered_calls;
                $file_call_coverage{$source_file} = $percent;
                next;
            }
        }

        filter_gcov($gcov_file) <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	15838	16100	
==>return_assign ($ret_type)(*pointer)($call_params);
    $temp_out
    $final_assign
    $extra_postamble
}
HEADER
    }
    else {
        # Things are more simple, when there are no params
        # call state var not needed if there are no params and a void retu <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	4514	4770	
==>pen src/pmc/$pmc_file: $!";
        my $const;
        while (<PMC>) {
            if (/^pmclass (\w+)(.*)/) {
                $name = $1;
                my $decl = $2;
                $decl .= <PMC> until ($decl =~ s/\{.*//);
                $const = 1 if <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	426	549	
==>hile'    => { PREFIX => "_W", NEXT => 'CONT', REDO => 'REDO', LAST => 'LAST' },
  'if'       => { PREFIX => "_I", NEXT => 'T <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	447	570	
==>hile'    => { PREFIX => "_W", NEXT => 'CONT', REDO => 'REDO', LAST => 'LAST' },
  'if'       => { PREFIX => "_I", NEXT => 'T <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	293	385	
==>=head1 DESCRIPTION

This script creates the Native Call Interface file F<src/nci.c>. It
parse <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	202	331	
==>onstruct/Block/Conditional/Unless.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako:: <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	26850	26968	
==>return;
    }

    DEBUG > 3 and printf "Extensor: Fallbacks <%s> Elements <%s>.\n",
     @fallbacks, @elements;

    m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651335	651581	
==>728,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 247 \"src/ops/pmc.ops\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vta <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	5951	6116	
==>the end of the string?"
#
# After this operation, /abc/ compiles to
#
#  check(3)
#  match(a)
#  match(b)
#  match(c)
#
# and something trickier like /ab|c[dxy]e/ com <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81975	82237	
==>'t use compile - just invoke the compiler\");\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82869	83131	
==>'t use compile - just invoke the compiler\");\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7110	7205	
==>nc stack_depth 
${DEST0} = "$"
${STEMP0} = ${LOADTYPE}["reg_type_short"]
${DEST0} = concat ${STE <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4932	5027	
==>nc stack_depth 
${DEST0} = "$"
${STEMP0} = ${LOADTYPE}["reg_type_short"]
${DEST0} = concat ${STE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361229	361636	
==>LAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 423,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 281 \"s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	927	1065	
==>o use filter()!
  return $self;
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

sub parse_string_document { <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	727	830	
==>as escape sequences.
# Config stuff
our $CC = qq[/usr/bin/gcc-4.0 -c];
our $LD = qq[c++];
our $LDFLAGS = <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	731	834	
==>as escape sequences.
# Config stuff
our $CC = qq[/usr/bin/gcc-4.0 -c];
our $LD = qq[c++];
our $LDFLAGS = <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	8786	8963	
==>num");
    $num++
  }

  $temp = 'none';
  for (_get_args($node,2)) {
    $self->_restore ($temp);
    $temp = $self->_generate($_);
  }

  $self->_add_inst('', 'set', ['P5', $te <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	1696	1809	
==>$src = $obj;
        $src =~ s/src\/pmc\/(.*)\.o/$1\.c/g;

	push @src, $src;
    }

    run_command("cd src/pmc && <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363026	363495	
==>LAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 425,
                  "ARGS" => [
                              "p",
                              "n"
                            ],
                  "BODY" => "#line 292 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parr <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9250	9357	
==>urn

' Expect Hello A World
print "Hello " + chr$(65);
print " World"

' Expect 21 and "Correct"
print 1+int <==
2	/Users/nnunley/parrot/tools/build/vtable_h.pl	671	996	
==>ally from 'vtable.tbl' by vtable_h.pl
*/

#if !defined(PARROT_VTABLE_H_GUARD)
#define PARROT_VTABLE_H_GUARD

#include "parrot/parrot.h"

#define VTABLE_SIZE 512

#define YOU_LOSE_VTABLE NULL

EOF

print OUT vtbl_defs($vtable);

print OUT "\n";

print OUT vtbl_struct($vtable);

print OUT vtbl_macros($vtable);

print OUT "\n#e <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36786	36892	
==>MC access in $meth()");
        $ret
}

EOC
}

=back

=head2 Parrot::Pmc2c::delegate Instance Methods

=ove <==
2	/Users/nnunley/parrot/config/init/defaults.pm	2278	2395	
==>aries we're building.  On HP-UX, for example, we need to
        # allow dynamic libraries to access the binary's symb <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4708	4845	
==>nder non-ASCII charsets.  Something should be done about that.
    }
  }
  
  my $out = $to if defined $to and length $to;
  $out .= "#" . <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	25274	25409	
==>~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
    if(grep $_->[1]{'~ignore'}, @$curr_open) {
      DEBUG > 1 and
       print "Ski <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	11128	11278	
==>e      time.h
hypot       math.h
hypotf      math.h
hypotl      math.h
ilogb       math.h
ilogbf      math.h
ilogbl      math.h
imag        complex.h
i <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	18691	18803	
==>urn;
		}
		$rd1pos = pos($$textref);
		$$textref =~ m{$label\n}gc;
		$ld2pos = pos($$textref);
		return (
			$sta <==
2	/Users/nnunley/parrot/Configure.pl	359	470	
==>iles before building Parrot.

=head2 Command-line Options

General Options

=over

=item C<--help>

Prints out a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	252907	252995	
==>" => "#line 713 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}}->vtable->logical_not(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937369	937725	
==>E" => "titlecase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1054,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY <==
2	/Users/nnunley/parrot/tools/util/pirtidy.pl	416	524	
==>y $outfile = "$file.$extension";
    open my $ofh, '>', $outfile;

    my $formatter = new Parrot::PIR::Forma <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1594	1824	
==>utput =~ m/Version (\d+)/ && $1 >= 13;

        $conf->data->set(
            share_ext  => '.dll',
            load_ext   => '.dll',
            a          => '.lib',
            o          => '.obj',
            cc_o_out   => '-F <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	823	914	
==>e Jako::Construct::Declaration::Sub;
use Jako::Construct::Declaration::Variable;

use Jako:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	99146	99556	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 123,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12313	12473	
==>${1}_$method(" . full_arguments($2) . ')'/xeg;

    # Rewrite SUPER(args...)
    s/SUPER             # Macro: SUPER
      \(\s*(.*?)\)      # capture argument li <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	213	326	
==>f /STOPPLEASE/;
	@c=m/^'\s*(.*)/gm;
	print join("\n", @c), "\n====================== $tn\n" if @c;
	$tn++;
	open(O <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1525	1740	
==>u do $parser->get_token on a L<Pod::Simple::PullParser>, you should
get an object of a subclass of Pod::Simple::PullParserToken.

Subclasses will add methods, and will also inherit these methods:

=over

=item $token <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	7924	8051	
==>! "undef") ~ "'");
        Test::diag("    Actual: '" ~ ($got.defined ?? $got !! "undef") ~ "'");
    }
    else {
        Test: <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	21557	21759	
==>ch @exports;
        close $fh;
    }

    # Generate .def file for groups.
    for my $group (keys %groups) {
        # Get filename of where we'll stash the .def file.
        my $deffile = "$group.def <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27129	27388	
==>Op') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $l_break;
            }
        }
    }
    push @opcodes, @{$block};
    push @opcodes, new BranchOp( $parser,
        'result' => $l_continue,
    );
    push @o <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27810	27982	
==>Op') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $l_break;
            }
        }
    }
    push @opcodes, @{$block};
    my $c <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	372	483	
==>se qw(Jako::Construct::Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected 5 args!" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	372	483	
==>se qw(Jako::Construct::Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected 5 args!" <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	1438	1557	
==>key values.

Accepts a list and returns a list.

=cut

sub get
{
    my $self = shift;

    my $c = $self->{c};

    ret <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	1870	1998	
==>okens, Jako::Token->new(
        $file, $line, 'literal', 'S', $1);
      $text = $2;
      next;
    }

=cut

    if ($text =~ m <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1170	1269	
==>lurp_file($out_f);
        $pass =$self->{builder}->is_eq( Parrot::Test::slurp_file($out_f), $output <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1211	1310	
==>lurp_file($out_f);
        $pass =$self->{builder}->is_eq( Parrot::Test::slurp_file($out_f), $output <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	394	498	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub new {
  my $self = shift;
  my $new = $se <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2667	2785	
==>} != 0;
}

sub YYAbort {
	my($self)=shift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($sel <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2549	2656	
==>} != 0;
}

sub YYAbort {
	my($self)=shift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($sel <==
2	/Users/nnunley/parrot/config/auto/memalign.pm	828	958	
==>ready set; leave it alone
        $self->set_result('already set');
        return $self;
    }
    my $test = 0;

    if ($conf->d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117907	118142	
==>src/ops/bit.ops\"\n  {{\@1}} >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118646	118881	
==>src/ops/bit.ops\"\n  {{\@1}} >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1296	1442	
==>nguages', $language);
        } elsif ($dir_count == 1) {
          $path_to_language = $language;
        } elsif ($dir_count == 2) {
          $p <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1781	1927	
==>nguages', $language);
        } elsif ($dir_count == 1) {
          $path_to_language = $language;
        } elsif ($dir_count == 2) {
          $p <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	244	408	
==>e Parrot::Docs::Section::Info;

=head1 DESCRIPTION

A documentation section describing Parrot's project info.

=head2 Class Methods

=over

=cut

package Parrot::Doc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298627	298772	
==>ic"
                            ],
                  "BODY" => "#line 970 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 0 : 1;\n  {{+=4} <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6147	6276	
==>arget"\n\n);

    # Loop to create the subrules pir code 
    for my $ruleRow (@$pattern) {
        my ($name, $subpat) = @$ruleRo <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	3154	3386	
==>lf->INTERNAL_ERROR("Attempt to reference top block with empty block stack!")
    if scalar($self->blocks) == 0;

  return  $self->block(-1);
}


#
# push_block()
#
# Push a block on the top of the block stack.
#

sub push_block
{
  m <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	198	316	
==>Construct/Statement/New.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako: <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28802	28911	
==>{ $_[0]->{hashname} = '__STRING' . ++$_[1]->{strcount} . '__'; }

sub issubrule { undef }
sub isterminal { 1 } <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30882	30991	
==>{ $_[0]->{hashname} = '__STRING' . ++$_[1]->{strcount} . '__'; }

sub issubrule { undef }
sub isterminal { 1 } <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	8060	8206	
==>e_item('', 'disassemble'),
            $self->c_pair_item('', 'trace'),
            $self->c_source_item('', 'test_main'),
        ),
    );
}

=ba <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	1795	2008	
==>ns the value of C<@args> from the inheriting
classes namespace.

This method also works as an object method.

=cut

sub args
{
    my $class = shift;
    $class = ref $class || $class;
    {
        no strict 'refs <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	10107	10234	
==>diag("\n") if $ENV{HARNESS_ACTIVE};
        $self->diag("    $msg test ($file at line $line)\n");
    } 

    return $test ? 1 : <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	758	883	
==>space}");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ N <==
2	/Users/nnunley/parrot/lib/Test/More.pm	31439	31561	
==>n 1 if $a1 eq $a2;

    my $ok = 1;
    my $bigger = keys %$a1 > keys %$a2 ? $a1 : $a2;
    foreach my $k (keys %$bigger) { <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	617	749	
==>d($$$$$$);
sub _match_variable($$);
sub _match_codeblock($$$$$$$);
sub _match_quotelike($$$$);

# HANDLE RETURN VALUES IN VARIOUS CON <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	570	716	
==>ock::File;
use Jako::Construct::Block::Module;
use Jako::Construct::Block::Sub;
use Jako::Construct::Block::Loop::Continue;
use Jako::Construct::Bl <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	377	473	
==>a value for M ops/s (million operations per second) using
integer arithmetic.

Prints out:

=over <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	373	469	
==>a value for M ops/s (million operations per second) using
integer arithmetic.

Prints out:

=over <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1014510	1015000	
==>{
                  "JUMP" => 0,
                  "NAME" => "err",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1133,
                  "ARGS" => [
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 77 \"src/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015333	1015675	
==>{
                  "JUMP" => 0,
                  "NAME" => "err",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1134,
                  "ARGS" = <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	41070	41220	
==>E *attrib_array = PMC_data(pmc);
    PMC *attr = get_attrib_num(attrib_array, POD_FIRST_ATTRIB);
    $ret
}

EOC
}

=back

=cut

# vim: expandtab shift <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6469	6590	
==>OP_EXIT
    dec i
    j = P_arg_0[i]
    ${ITEMP0} = ${NEXTPC} + j
    prop_type_state[${ITEMP0}] = ${STYPES}
    prop_sta <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4407	4528	
==>OP_EXIT
    dec i
    j = P_arg_0[i]
    ${ITEMP0} = ${NEXTPC} + j
    prop_type_state[${ITEMP0}] = ${STYPES}
    prop_sta <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2232	2356	
==>arse()';#Do not create stab entry on compile
        $@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $ret <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2149	2267	
==>arse()';#Do not create stab entry on compile
        $@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $ret <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	5558	5703	
==>ax[$_]s  ", $col->[$_]) } 0 .. $#$col; 
        print "\n";
    }
    exit;
}

# Run The Benchmarks With Pretty Output
if ( ! $cfg{use_times} && @ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605433	605938	
==>=> "addattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 686,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 441 \"src/ops/object.ops\"\n    Parrot_add_attribute(interpre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606223	606598	
==>=> "addattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 687,
                  "ARGS" => [
                              "p",
                              " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109634	109727	
==>"src/ops/bit.ops\"\n  string_bitwise_or(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110413	110506	
==>"src/ops/bit.ops\"\n  string_bitwise_or(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3301	3418	
==>{VALUE}}=$_[0];
    ${$$self{VALUE}};
}

sub YYExpect {
    my($self)=shift;

    keys %{$self->{STATES}[$self- <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3136	3246	
==>{VALUE}}=$_[0];
    ${$$self{VALUE}};
}

sub YYExpect {
    my($self)=shift;

    keys %{$self->{STATES}[$self- <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	1353	1472	
==>cf_op, $restart_op );
my %argmaps;
my $jit_cpu;

if ($genfile =~ /jit_cpu.c/) {
    $jit_cpu = 1;
    push @jit_funcs, " <==
2	/Users/nnunley/parrot/config/inter/ops.pm	581	776	
==>if ($a =~ /core\.ops/) { return -1 }
            if ($b =~ /core\.ops/) { return 1 }
            return ($a cmp $b)
            }
            grep {
            !/vtable\.ops/
            } glob " <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20112	20236	
==>h
  2058  Mexico Spanish
  1031  Germany German
  1036  France French
  3084  Canada French
  1035  Finnish
  1044  Norwegian <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	20171	20321	
==>+;
	$cmt ="\t\t# $opcode\t $rest";
	if ($rest =~ /to (\d+)/) {
	    $targ = "pc_$1";
	}
    }
    elsif ($opcode eq 'JUMP_IF_TRUE') {
	print "\t\t$cmt\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835804	835946	
==>terpreter, {{\@1}}), STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836557	836699	
==>terpreter, {{\@1}}), STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4587	4699	
==>>op('nop', [], %$self);
    } elsif (@{ $self->{args} } == 1 && 2 == keys %$self) {
        return $self->{args}- <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5724	5836	
==>>op('nop', [], %$self);
    } elsif (@{ $self->{args} } == 1 && 2 == keys %$self) {
        return $self->{args}- <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	3660	3870	
==>=> $4,
    skipped  => $5,
    unexpect => $6,
  };

  if(grep { not $smoke{$_} } qw<harness_args revision>) {
    print "The submitted smoke has an invalid format!";
    exit;
  }

  $smoke{runcore}   = runcore <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	1289	1467	
==>on is more important than big-picture browsing.

=item * Is absense of "[...]"s in the indescribable listing a ui
consistency violation?

=item * Fragment describe_file() - it sho <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3358	3470	
==>data->get('linkflags');
            $linkflags =~ s/-opt:\S+//;
            $conf->data->set(linkflags => $linkfl <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4862	4974	
==>data->get('linkflags');
            $linkflags =~ s/-opt:\S+//;
            $conf->data->set(linkflags => $linkfl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53251	53346	
==>re.ops\"\n  if ({{\@1}} != 0) { Interp_flags_SET(interpreter,   PARROT_GC_DEBUG_FLAG); }\n  else <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54007	54102	
==>re.ops\"\n  if ({{\@1}} != 0) { Interp_flags_SET(interpreter,   PARROT_GC_DEBUG_FLAG); }\n  else <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2992	3097	
==>4 back in subroutine one"
   RETURN Label1
Sub2:
   PRINT "3 in subroutine two"
   RETURN Label2   'Cannot <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16959	17064	
==>4 back in subroutine one"
   RETURN Label1
Sub2:
   PRINT "3 in subroutine two"
   RETURN Label2   'Cannot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81940	82033	
==>ps\"\n  internal_exception(1, \"don't use compile - just invoke the compiler\");\n  {{+=4}};\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82834	82927	
==>ps\"\n  internal_exception(1, \"don't use compile - just invoke the compiler\");\n  {{+=4}};\n <==
2	/Users/nnunley/parrot/lib/Test/More.pm	20146	20286	
==>y $lint = new HTML::Lint;
        isa_ok( $lint, "HTML::Lint" );

        $lint->parse( $html );
        is( $lint->errors, 0, "No errors fou <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	4	108	
==>Bitwise.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subje <==
2	/Users/nnunley/parrot/config/auto/readline.pm	1177	1313	
==>eck the presence of the readline header in the standard
    # Fink location. TODO: Need a more generalized way for finding
    # where Fi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4807	4919	
==>}
    return @ops;
}

sub output_classmatch {
    my ($self, $incexc, $failLabel) = @_;

    my $passLabel = $sel <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4471	4583	
==>}
    return @ops;
}

sub output_classmatch {
    my ($self, $incexc, $failLabel) = @_;

    my $passLabel = $sel <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	17885	18006	
==>lParser has to have defined a $parser->run method --
so it is advised that all Pod::Simple::PullParser subclasses do so.
S <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	78295	78508	
==>s an <error>
		       will never be reached.  Did you mean to use
		       <error?> instead?");
	}

	return if ! _verbosity("TRACE");
	$errortext = "Treating \"$what\" as $_[0]";
	$errorprefix = "Parse::RecDescent" <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4	177	
==>age Regex::Ops::Tree;
use base 'Exporter';
use strict;
use Carp qw(confess);

@Regex::Ops::Tree::EXPORT = qw(rop);

# Tree operators
#
# This package defines operators that c <==
2	/Users/nnunley/parrot/config/init/miniparrot.pm	512	634	
==>t all for miniparrot builds.

=cut

package init::miniparrot;

use strict;
use vars qw($description @args);

use base qw(Pa <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4507	4625	
==>$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		return(<<CODE, $result);
	# OR $a1, $a2
	set $re <==
2	/Users/nnunley/parrot/config/gen/platform.pm	5577	5687	
==>/platform/$platform/asm.s";
        if (-e $asm_file) {
            copy_if_diff($asm_file, "src/platform_asm.s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20677	20763	
==>PullParserTextToken>, and
L<Pod::Simple::PullParserEndToken>.

L<HTML::TokeParser>, whi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	5504	5923	
==>\<\(])
         )   # start on whitespace, sequence-start, or quote
         ( # something looking like a Perl token:
          (?:
           [\$\@\:\<\*\\_]\S+  # either starting with a sigil, etc.
          )
          |
          # or starting alpha, but containing anything strange:
          (?:
           [a-zA-Z'\x80-\xFF]+[\$\@\:_<>\(\\\*]\S+
          )
         )
        /\cb$1\cc/xsg
      ;
      
      r <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	819	1011	
==>cs26\i',
  'VerbatimB=cs27\b',
  'VerbatimBI=cs28\b\i',

  map {; m/^([-a-z]+)/s && push @_to_accept, $1; $_ }
   qw[
       underline=ul         smallcaps=scaps  shadow=shad
       superscript <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	19989	20145	
==>" .
                "more than 2 bytes in rule $_->{'name'}\n";
        }
    }

    # If we have 3 or less rules, dispatch directly to the translator.
    i <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	591	711	
==>out',$count);
    my $parrotdir = dirname $self->{parrot};

    my $args = $ENV{TEST_PROG_ARGS} || '';

    $lang_f = Fil <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	628	748	
==>out',$count);
    my $parrotdir = dirname $self->{parrot};

    my $args = $ENV{TEST_PROG_ARGS} || '';

    $lang_f = Fil <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51848	52069	
==>ARROT_ALL_TRACE_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52631	52852	
==>ARROT_ALL_TRACE_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	40161	40308	
==>\S/) { pop @$para }
           # Kill any number of terminal newlines
          $self->_verbatim_format($para);
        } else {
          push @$pa <==
2	/Users/nnunley/parrot/config/inter/charset.pm	1443	1571	
==>set/$charset.c \$(NONGEN_HEADERS)


END
    }

    # build list of libraries for link line in Makefile
    my $slash = $conf->dat <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	333	473	
==>truct::Block::Loop::Continue;

use Carp;

use base qw(Jako::Construct::Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1256	1455	
==>treams ) {
        $test_map->{join( '_' => $lang, $s, $t )} = {
            lang   => $lang,
            stream => { name => $s, data => $streams->{$s}, },
            test   => { name => $t, data => <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2308	2444	
==>ack height.
dec stack_depth
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$register_num++;
	}

	# Do code for each push.
	$pir .= "\$ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3560	3681	
==>ack height.
dec stack_depth
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$register_num++;
	}

	# Return generated cod <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2000	2101	
==>e;

    if (UNIVERSAL::isa($args[$i], 'Jako::Construct::Expression::Value::Identifier')) {
      my $a <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1700	1801	
==>e;

    if (UNIVERSAL::isa($args[$i], 'Jako::Construct::Expression::Value::Identifier')) {
      my $a <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	5454	5740	
==>gosub") {
			push @{$code{$seg}->{code}}, qq{\tbsr $labels{$jumps}\t# $branch $jumps\n};
			push @{$code{$seg}->{code}}, qq{\t#RTJ ne S0, "", RUNTIME_JUMP\n};
			push @{$code{$seg}->{code}}, qq{\tgoto ON_END_$ons\n};
		} elsif ($branch eq "goto") {
			push @{$code{$seg}->{code}}, qq{\tg <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26880	27018	
==>= "\n" if $pir !~ /\n$/;
		$pir .= "### end typeinfo\n";

		# Now call pre_op and append code that it generates.
		my $pre_op = $srm->pre_o <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7274	7434	
==>ule ".-$act." ($lhs,$len): ";

                $act
            or  $self->YYAccept();

            $$dotpos=$len;

                unpack('A1',$lhs) eq ' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6938	7091	
==>ule ".-$act." ($lhs,$len): ";

                $act
            or  $self->YYAccept();

            $$dotpos=$len;

                unpack('A1',$lhs) eq ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319284	319543	
==>eption for conv_u2_ovf\");\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	27	229	
==>ED TEXT SEQUENCES FROM STRINGS.
# FOR FULL DOCUMENTATION SEE Balanced.pod

use 5.005;
use strict;

package Text::Balanced;

use Exporter;
use SelfLoader;
use vars qw { $VERSION @ISA %EXPORT_TAGS };

$VER <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363446	363558	
==>s\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, \"%f\", (double){{\@2}});\n    PIO_pu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364349	364461	
==>s\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, \"%f\", (double){{\@2}});\n    PIO_pu <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	12333	12512	
==><"END");
\$$uid = _rule_$name($mode, \$rx_input, \$rx_pos, \$rx_stack);
\$rx_pos = \$$uid\->{'!POS'};
END
#     } else {
#         return split(/\n/, <<"END");
# \$$uid = _rule_$na <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	6451	6670	
==>use Cwd;
use Data::Dumper;
use File::Spec;
use Parrot::Config;

require Exporter;
require Test::Builder;
require Test::More;

our @EXPORT = qw( plan run_command skip slurp_file );

use base qw( Exporter );

# tell parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	33390	33685	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set_addr",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	34178	34473	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set_addr",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349173	349273	
==>n  {{\@1}} = PIO_open(interpreter, NULL, path, \"+<\");\n  /* string_cstring_free(path); */\n  if(!{{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350175	350275	
==>n  {{\@1}} = PIO_open(interpreter, NULL, path, \"+<\");\n  /* string_cstring_free(path); */\n  if(!{{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	1392	1542	
==>DEBUG > 5 and
   print "#  About to parse lines: ",
     join(' ', map defined($_) ? "[$_]" : "EOF", @_), "\n";

  my $paras = ($self->{'paras'} ||= [] <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	3297	3426	
==>s_global
{
  my $self = shift;

  return defined $self->block and not defined $self->block->block;
}


#
# compile()
#

sub compil <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1123	1267	
==>languages/$lang_f",
            CD => '..', # $self->{relpath}, 
            STDOUT => $pasm_f, STDERR => $pasm_f,
        );
        Parrot::Tes <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	209	302	
==>largely a copy of Parrot::Test::Tcl, which looks like it's
largely a copy of Parrot::Test::Pyt <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	247	340	
==>largely a copy of Parrot::Test::Tcl, which looks like it's
largely a copy of Parrot::Test::Pyt <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	971	1072	
==>'', 'docs/practical_notes.pod'),
			$self->new_item('', 'docs/parrot.pod'),
		),
		$self->new_group('S <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1256	1362	
==>' => 'CODE', YYVERSION => '',
			 YYRULES => 'ARRAY', YYSTATES => 'ARRAY', YYDEBUG => '');
#Mandatory par <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1213	1317	
==>' => 'CODE', YYVERSION => '',
			 YYRULES => 'ARRAY', YYSTATES => 'ARRAY', YYDEBUG => '');
#Mandatory par <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11882	11978	
==>u$)
	u$="No way"
	a$="Hello"
end function
t$="Not me"
e$=a$(t$)
print t$

' references to referen <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089002	1089308	
==>experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089950	1090256	
==>experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice" <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	24962	25138	
==>>[2] eq 'o') {	# builtin opcode
	$t = temp('P');
	print <<EOC;
	$t = new $DEFVAR   # builtin opcode
	$t = $func $args   $cmt
EOC
    }
    elsif ($name =~/^obj (\S+) attr (\w+)/ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	30834	30977	
==>opt::Std" are); or
# possibly a man page name (like "crontab(5)" is).
#

############# Not implemented, I guess.
# Sixth:
# The raw original L<. <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3368	3467	
==>eg_base;
#endif

SWITCH_RELOAD:
    _reg_base = (char*)interpreter->ctx.bp.regs_i;
    do {
SWITCH_A <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645320	645787	
==>ypeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 721,
                  "ARGS" => [
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 211 \"src/ops/pmc.ops\"\n    if ({{\@2}} > 0 && { <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	59639	59839	
==>d
C<delimited_pat>. That name may still be used, but is now deprecated.
        

=head1 DIAGNOSTICS

In a list context, all the functions return C<(undef,$original_text)>
on failure. In a scalar conte <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3185	3303	
==>nk => $conf->data->get('ld'));

        # We can't use -opt: and -debug together.
        if ($conf->data->get('ld_debu <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4689	4807	
==>nk => $conf->data->get('ld'));

        # We can't use -opt: and -debug together.
        if ($conf->data->get('ld_debu <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	9011	9347	
==>given a constructor method, C<new>, for creating
struct objects.

Each element in the struct data has an accessor method, which is
used to assign to the element and to fetch its value.  The
default accessor can be overridden by declaring a C<sub> of the
same name in the package.  (See Example 2.)

Each element's type can be scalar, arr <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	22086	22254	
==>0 ]),
          $loop => @R_ops,
                   aop('pushint', [ 1 ]),
                   aop('goto', [ $loop ]),
          $back => $self->dbprint("backtracking int <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	13594	13757	
==>\" to para-content.\n";
        $para_text_content .= $token->text;
        # and keep looking
        
      } elsif( $token->is_end and $content_containers{ $toke <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2361	2478	
==>ion on line %d of file '%s'.",
      $self->name, $sym->line, $sym->file);
  }

  #
  # Now that we've decided to actu <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2108	2225	
==>ion on line %d of file '%s'.",
      $self->name, $sym->line, $sym->file);
  }

  #
  # Now that we've decided to actu <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20022	20192	
==>NE_$label");
  $self->_restore($temp_0);
  return $return;
}

sub _op_leq {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_con <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2197	2308	
==>nt );
        my $lang_out_fn = $self->get_out_fn( $count );
        my @test_prog   = $self->get_test_prog( $pa <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2394	2480	
==>les/benchmarks/mops.pasm>,
F<examples/mops/mops.c>,
F<examples/mops/mops.cs>,
F<example <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	2394	2480	
==>les/benchmarks/mops.pasm>,
F<examples/mops/mops.c>,
F<examples/mops/mops.cs>,
F<example <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398102	398270	
==>c",
                              "i"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399183	399351	
==>c",
                              "i"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@2 <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	12133	12417	
==>returned or C<undef> on failure.  Note: this function only
returns the name of the program and not its complete path.

This function is similar to C<autoconf>'s C<AC_CHECK_PROGS> macro.

=cut

sub check_progs
{
    my ($progs, $verbose) = @_;

    $progs = [$progs] unless ref $progs e <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	37779	37940	
==>ymbtab}->Insert($defn);
    }
    return [ $defn, \@opcodes1, \@opcodes2 ];
}

sub PrepareMethod {
    my ($parser) = @_;
    $parser->YYData->{self} = Bui <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	2602	2797	
==>file, $line, $1, undef, $1);
      $text = $2;
      next;
    }

    #
    # Type:
    #

    if ($text =~ m{^(int|num|pmc|str)(?!\w)(.*)$}) {
      my $type = uc substr($1, 0, 1);
      push @to <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61339	61598	
==>};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorson",
                  "FLAGS" => "" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61982	62241	
==>};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorson",
                  "FLAGS" => "" <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	5442	5541	
==>, a preamble for inclusion in C code,
    and an array of C<Parrot::Op> instances representing the P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335	430	
==>, a preamble for inclusion in C code,
and an array of C<Parrot::Op> instances representing the P <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	3271	3441	
==>e': $!\n";
print <<"END";
$header
#if !defined(PARROT_CHARSET_TABLES_H_GUARD)
#define PARROT_CHARSET_TABLES_H_GUARD
#include "parrot/cclass.h"
#define WHITESPACE  enum_ccl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848225	848326	
==>ne 78 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849005	849106	
==>ne 78 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\ <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	5717	5829	
==>irectory $dir
	    my @dirs;
	    while (! -d $dir) { # Scan up to nearest existing ancestor
		unshift @dirs, $di <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20267	20426	
==>} else {
				$marker='USER';
			}
			push(@types, [ $name, $type, $marker ]);
			feedme();
			if ($type[CURR] eq "PUN" and $syms[CURR] eq "*") {
				print "WARN <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33673	33809	
==>ing ~Para content into $over_type item\n";
              push @$para, splice @{shift @$paras},2;
            } else {
              DEBUG <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35486	35622	
==>ing ~Para content into $over_type item\n";
              push @$para, splice @{shift @$paras},2;
            } else {
              DEBUG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943297	943509	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944085	944297	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 " <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	700	854	
==>}

Note that currently the C<inline> op type is ignored.

Alternately, for opcode functions that have more internal complexity the
format is:

    op opnam <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	4451	4604	
==>les, $nolines_flag );

    my $cur_code = 0;
    for(@{$ops->{OPS}}) {
        $_->{CODE}=$cur_code++;
    }
}


my $version       = $ops->version;
my $ma <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	2028	2191	
==>ally from
# $f by config/gen/parrot_include.pm
#
# Any changes made here will be lost.
#
EOF
                print INC "*/\n" if $inc =~ /\.h/;
                next <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	31378	31580	
==>{
	push @{$code{_data}->{code}},<<DATAPREP;
	# Prepare the Read/Data stuff
	find_global \$P1, "RESTOREINFO"
	find_global \$P2, "READDATA"
DATAPREP
	my $counter=0;
	foreach my $ld (@data) {
		my $line=$ld <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1820	1912	
==>bullet  { ++$_[0]{'Indent'} }
sub start_over_number  { ++$_[0]{'Indent'} }
sub start_over_tex <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1388	1480	
==>bullet  { ++$_[0]{'Indent'} }
sub start_over_number  { ++$_[0]{'Indent'} }
sub start_over_tex <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	208	310	
==>IS

	use Parrot::Docs::Group;

=head1 DESCRIPTION

A documentation I<group> is a number of items with s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320000	320225	
==>\"\n  {{\@1}} = (INTVAL)((Parrot_Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320770	320995	
==>\"\n  {{\@1}} = (INTVAL)((Parrot_Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/config/auto/jit.pm	5034	5416	
==>tect => 1);
                    print "yes) " if $verbose;
                } else {
                    print "no) " if $verbose;
                }
            }
            cc_clean();
        }

        # TODO use executable memory for this test if needed
        #
        # test for some instructions
        if ($jitcpuarch eq 'i386') {
            cc_gen('config/auto/jit/test_ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	20886	21005	
==>use there's a bug in your
program, or for which you don't yet have code written.  For that you
use TODO.  Read on.

=cut <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062045	1062477	
==>get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1186,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 246 <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7984	8084	
==>AZY_MOVE

# No lazy move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0} <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8841	8941	
==>AZY_MOVE

# No lazy move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0} <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	927	1019	
==>not!" unless UNIVERSAL::isa($value, qw(Jako::Construct::Expression::Value));

  my $self = bl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449920	450173	
==>S" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 195 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}}->vtable->absolute(interpreter, {{\@2}}, {{\@1}});\n  {{+=3}};\n", <==
2	/Users/nnunley/parrot/lib/File/Which.pm	2849	3256	
==>they are -x)

# print STDERR "-x: ", -x $file, " -e: ", -e _, " -d: ", -d _, "\n";

                    return $file unless $all;
                    push @results, $file;       # Make list to return later
            }
        }
    }
    
    if($all) {
        return @results;
    } else {
        return undef;
    }
}

sub where {
    my @res = which($_[0]); # force wantarray
    return @res;
}

1;
__ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	541	638	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
my @_to_accept;

%Tagmap = (
  'Verbatim'  => "\n<pre$Computerese <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	9731	10012	
==>");
        }
        $filebase  = substr($filebase, 0, 8);
        $extension = substr($extension, 0, 3);
        my $filename_8dot3 = lc("$filebase.$extension");

        if (exists $files_in_dir_8dot3{$dirname}{$filename_8dot3}) {
            error("MANIFEST", $line, "$_: 8.3 na <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3376	3481	
==>shift;

    keys %{$self->{STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
}

sub YYLexer {
    my($self)=s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3206	3305	
==>shift;

    keys %{$self->{STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
}

sub YYLexer {
    my($self)=s <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3959	4061	
==>$prm}=$value;
	}
	for (@$mandatory) {
			exists($$outhash{$_})
		or	croak("Missing mandatory parame <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3760	3858	
==>$prm}=$value;
	}
	for (@$mandatory) {
			exists($$outhash{$_})
		or	croak("Missing mandatory parame <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685857	686179	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "getprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686746	687068	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "getprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41146	41253	
==>$savetext = $text;
			' . ($op->isterminal() ? 'pop @item;' : "" ) . '
			' . (ref($op) eq 'Parse::RecDescen <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34982	35096	
==>Descent::lastexpected;
				$Parse::RecDescent::unexpected
				   = $Parse::RecDescent::lastunexpected;
			}
			last <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42092	42206	
==>Descent::lastexpected;
				$Parse::RecDescent::unexpected
				   = $Parse::RecDescent::lastunexpected;
			}
			last <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	725379	725639	
==>LS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clone",
                  "FLAGS" => ":base_mem",
                  "ARGD <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	1499	1766	
==>v/events.pod                             [devel]doc
    docs/dev/fhs.pod                                [devel]doc
    docs/dev/infant.pod                             [devel]doc
    docs/dev/pmc_freeze.pod                         [devel]doc
    examples/sdl/anim_image <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeSmart.pm	250	364	
==>codings {
  return Encode::->encodings(':all');
}

sub encoding_is_available {
  return Encode::resolve_alias($_[1] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361712	361812	
==>interpreter, INTVAL_FMT, {{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Ha <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362611	362711	
==>interpreter, INTVAL_FMT, {{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Ha <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1394	1514	
==>$compiler->emit("  $temp_pmc = new $pmc_type");
    $compiler->emit("  $temp_pmc = $right");
    $compiler->emit("  globa <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	4115	4219	
==>next thing must be a quoted string or
	#   no prompting is done.  However, QB says that if no prompt, use <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463317	463736	
==>GDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 531,
                  "ARGS" => [
                              "n",
                              "nc",
                              "n"
                            ],
                  "BODY" <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	8943	9059	
==>ack ])
      unless ($op->{nocheck});

    my @debugging;
    if ($self->{DEBUG}) {
        my $old_lastback = $lastb <==
2	/Users/nnunley/parrot/config/inter/ops.pm	680	844	
==>turn ($a cmp $b)
            }
            grep {
            !/vtable\.ops/
            } glob "src/ops/*.ops"
    );

    my $ops = join ' ', grep { !/obscure\.ops <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	8374	8507	
==>his->[0] eq 'not' and $this->[1] ne "STRING") {
			push(@expr, [ "0.0", "INT"],   # Cheating, making not a binary op
				[ "not", "PUN <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3473	3583	
==>nlib}->value; # TODO: We should make sure its a string, somewhere.
    }
    else {
      $self->SYNTAX_ERROR(" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6137	6247	
==>nlib}->value; # TODO: We should make sure its a string, somewhere.
    }
    else {
      $self->SYNTAX_ERROR(" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3677	3848	
==>s[CURR] eq ",") {
			feedme();
			next;
		}
	}

}
sub parse_input {
	feedme();
	my $promptcode="";
	if ($syms[CURR] eq ";") {
		feedme();		# Ignore this form for now.
	}
	i <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	1939	2045	
==>=head1 SYNOPSIS

  use Scheme:Tokenizer;

  my @code = Scheme::Tokenizer->new($file_name)->tokenize();

=he <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	1809	1909	
==>ent()>

Accessors for the containing section/group for the item.

=cut

sub set_parent
{
    my $self <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105099	105384	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105836	106121	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => " <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	2563	2754	
==>iple times)

   Not doing this is a good way to introduce bizarre heisenbugs, so
   just do it. This is the only place they ought to have to be put
   in, and most of the functions are already <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2007	2128	
==>ent#\\sa180\n",
 '/Para'   => "\n\\par}\n",
 'head1'   => "\n{\\pard\\li#rtfindent#\\s31\\keepn\\sb90\\sa180\\f2\\fs#head1 <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	5577	5696	
==>f = shift @params;
	#shift @{$def_args{$arg}};
	$arg_count{$arg}--;
    }

    $params = join("\n\t", map {".param pmc $ <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	11197	11350	
==>h
ilogb       math.h
ilogbf      math.h
ilogbl      math.h
imag        complex.h
isalnum     ctype.h
isalpha     ctype.h
isblank     ctype.h
iscntrl     c <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	1938	2059	
==>hout an argument, gives the current token. With an argument, gives the
# token at that absolute position. If a count is gi <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8434	8556	
==>o 20 : read c$(i) : next
print
for i = 1 to 20 step 4
  print c$(i);tab$(12);c$(i+1);tab$(22);c$(i+2);tab$(32);c$(i+3)
next <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21298	21420	
==>o 20 : read c$(i) : next
print
for i = 1 to 20 step 4
  print c$(i);tab$(12);c$(i+1);tab$(22);c$(i+2);tab$(32);c$(i+3)
next <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	8791	8901	
==>ame is a string overloaded object, force it to stringify.
    $self->_unoverload(\$name);

    $self->diag(<<ER <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6192	6292	
==>arrot_mmd_func_enum;

/* &end_gen */

#ifdef PARROT_IN_OBJECTS_C
static const char * const Parrot_mmd <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2818	2919	
==>llParser> and L<Pod::Simple>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All <==
2	/Users/nnunley/parrot/tools/util/pirtidy.pl	1078	1186	
==>file -- it has
no qualms about converting your script to use a maximal amount of
syntactic sugar.

Inspired b <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	1523	1630	
==>ile is generated automatically from '$infile'
 * by $0.
 *
 * Any changes made here will be lost!
 *
 */

#d <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	3812	3919	
==>ile is generated automatically from '$infile'
 * by $0.
 *
 * Any changes made here will be lost!
 *
 */

#d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982557	983183	
==>"FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1102,
                  "ARGS" => [
                              "i",
                              "ic",
                              "s",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/op <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17047	17205	
==>5,
			'primary' => 28
		}
	},
	{#State 41
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18081	18219	
==>5,
			'primary' => 28
		}
	},
	{#State 48
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19470	19608	
==>h' => [ ord($_[1]) ]); }
	],
	[#Rule 12
		 'expr', 1,
sub
#line 115 "lib/Regex/Grammar.y"
{ return op('classpieces' => [ $_[1] ]); }
	],
	[ <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	5516	5659	
==>access' => undef,
             'i_sysdir' => 'define',
             'i_sysexit' => undef,
             'i_sysfile' => 'define',
             'i_ <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11521	11651	
==>pen (OUT, ">$outfile") or die "Can't write $outfile: $!\n";

    print OUT page_header("Branch Coverage for $source_file");
    pri <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17676	17870	
==>True  " else b$="False "
if i xor j then c$="True  " else c$="False "
if i eqv j then d$="True  " else d$="False "
if i imp j then e$="True  " else e$="False "
print a$;b$;c$;d$;e$
next j,i

' Se <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	1611	1721	
==>ver
   # directives and verbatim paragraphs.  We call _ponder_paragraph_buffer
   # to process this.
  
  $self <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	521	656	
==>ock::Conditional::Unless;
use Jako::Construct::Block::File;
use Jako::Construct::Block::Module;
use Jako::Construct::Block::Sub;
use Jak <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	10786	10944	
==>igInt $cmt
	$pmc = "$c"
EOC
	push @stack, [$n, $pmc, 'P'];
	return;
    }
    elsif ($typ =~ /[US]/) {   # strings
	# parrot has double quoted escapes
	$c =~ s <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	2382	2519	
==>tes the 'languages/t/harness' wants a list of test files
        my $dir   = File::Spec->catfile( $options{language}, 't' );
        my @f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460562	460836	
==>ODE" => 528,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 282 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242031	242125	
==>c/ops/cmp.ops\"\n  FLOATVAL l = VTABLE_get_number(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242980	243074	
==>c/ops/cmp.ops\"\n  FLOATVAL l = VTABLE_get_number(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4257	4372	
==>tr(<rx_input>, <rx_pos>, 1)) != $code;" . $comment);
    if ($self->{DEBUG}) {
        push @ops, 'print "matched('. <==
2	/Users/nnunley/parrot/config/inter/lex.pm	2074	2228	
==>rn $self;
    }

    # if '--version' returns a string assume that this is flex.
    # flex calls it self by $0 so it will claim to be lex if invoked as `l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294921	295235	
==>" => "inline",
                  "CODE" => 343,
                  "ARGS" => [
                              "i",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 945 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\ <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	4011	4128	
==>ck_smoke(%smoke);

  open my $fh, ">", $filename or
    die "Couldn't open \"$filename\" for writing: $!\n";
  print $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39212	39322	
==>er->YYData->{functs} }, \@opcodes2;
    my $result = new_tmp( $parser, 'pmc', 'function' );
    push @opcodes <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031463	1031583	
==>}} < enum_first_type || {{\@2}} >= enum_last_type)\n        {{\@1}} = -1;\n    else\n        {{\@1}} = data_types[{{\@2}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032332	1032452	
==>}} < enum_first_type || {{\@2}} >= enum_last_type)\n        {{\@1}} = -1;\n    else\n        {{\@1}} = data_types[{{\@2}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600033	600128	
==>ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601109	601204	
==>ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51717	51829	
==>s/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_trace(interpreter,   {{\@1}}); }\n  else         { Parrot_clear_tr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52500	52612	
==>s/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_trace(interpreter,   {{\@1}}); }\n  else         { Parrot_clear_tr <==
2	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	31	195	
==>Foundation.
# $Id: /parrot/config/init/hints/dec_osf.pm 19593 2006-05-30T02:28:15.110975Z coke  $

package init::hints::dec_osf;

use strict;

sub runstep
{
    my ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807906	808162	
==>ble->get_number_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808811	809067	
==>ble->get_number_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	722	816	
==>el2abs($lang_f);
    $out_f  = File::Spec->rel2abs($out_f);
    Parrot::Test::write_code_to_fil <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	759	853	
==>el2abs($lang_f);
    $out_f  = File::Spec->rel2abs($out_f);
    Parrot::Test::write_code_to_fil <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899666	900112	
==>GS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1015,
                  "ARGS" => [
                              "s",
                              "ic",
                              "ic" <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2714	2825	
==>iblist =~ s/gdbm\.lib/-llibgdbm/i;
        }
        my $extraLibs = '-lm -lgmp -lreadline -lpthread -lm -L/opt/ <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	2509	2620	
==>iblist =~ s/gdbm\.lib/-llibgdbm/i;
        }
        my $extraLibs = '-lm -lgmp -lreadline -lpthread -lm -L/opt/ <==
2	/Users/nnunley/parrot/config/init/hints.pm	429	535	
==>ot::Configure::Step;

$description = 'Loading platform and local hints files';

@args = qw( cc verbose defi <==
2	/Users/nnunley/parrot/config/gen/cpu/i386/auto.pm	112	269	
==>8:15.110975Z coke  $

=head1 NAME

config/gen/cpu/i386/auto.pm

=head1 DESCRIPTION

Test for MMX/SSE functionality. Creates these Config entries

 TEMP_genera <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1258	1373	
==>_f), $output, $desc );
        $self->{builder}->diag("'$cmd' failed with exit code $exit_code")
        if $exit_co <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1299	1414	
==>_f), $output, $desc );
        $self->{builder}->diag("'$cmd' failed with exit code $exit_code")
        if $exit_co <==
2	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	1571	1693	
==>ft;
  my ( $code, $expected, $desc ) = @_;
  
  my $test_no = $self->{builder}->current_test + 1;

  my $output = $self->ge <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12897	13032	
==>tactally invalid (as with a name of "1/4"), this returns undef.

=item $Name2character{I<name>}

Maps from names (as in C<EE<lt>I<name>E <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1240	1376	
==>ill prevent the 'optimization is not available in the
        # standard edition compiler' warning each time we compile.
        # The lo <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	8198	8311	
==>el_count;

#define ROFFS_INT(x) REG_OFFS_INT(jit_info->cur_op[x])
#define ROFFS_NUM(x) REG_OFFS_NUM(jit_info->cur_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24622	24788	
==>5,
			'primary' => 28
		}
	},
	{#State 77
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'S <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979642	979840	
==>c",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980773	980971	
==>c",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576514	576601	
==>ring_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577526	577613	
==>ring_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2 <==
2	/Users/nnunley/parrot/tools/util/pirtidy.pl	822	1000	
==>rl pirtidy.pl [ options ] file1 file2 file3 ...
         (output goes to file1.tdy, file2.tdy, file3.tdy, ...)

=head1 DESCRIPTION

pirtidy reads a pir file and writes an indented <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627464	627699	
==>er, {{\@2}});\n  {{\@1}}->vtable->init(interpreter, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628608	628843	
==>er, {{\@2}});\n  {{\@1}}->vtable->init(interpreter, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	16669	16815	
==>ase}_NO_OP:
	pop P1, P14
	pop S0, P14
	push P9, S0
	push P9, "OP"
	P0= P1
	bsr RUNTIME_PUSH
	P0= P5
	bsr RUNTIME_PUSH
	dec I5
	gt I5, 0, CASE_${jum <==
2	/Users/nnunley/parrot/config/gen/config_h.pm	137	236	
==>AME

config/gen/config_h.pm - Configuration Header

=head1 DESCRIPTION

Generates F<include/parrot/c <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	424	673	
==>nctions. It has been heavily refactored
from Parrot::Test. Hopefully,similar refactoring will be carried out in
Parrot::Test someday soon.

=cut


package Parrot::Test::Perl6;

use strict;
use warnings;

use File::Basename;
use File::Spec;
use Parrot <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3245	3372	
==>val {
	my($self)=shift;

        @_
    and ${$$self{VALUE}}=$_[0];
    ${$$self{VALUE}};
}

sub YYExpect {
    my($sel <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3084	3202	
==>val {
	my($self)=shift;

        @_
    and ${$$self{VALUE}}=$_[0];
    ${$$self{VALUE}};
}

sub YYExpect {
    my($sel <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	13011	13103	
==>xtern=~s/\$/_string/g; $extern=~tr/a-z/A-Z/;

				$calling_code = "(%s) = _USERFUNC_${extern} <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	4698	4863	
==>f->type) {
      $compiler->emit("  .local " . $self->type . " __result");
      $compiler->emit("  __result = __func(" . join(", ", map({ $_->[1]} $self->args)) . ") <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909062	909336	
==>=> "inline",
                  "CODE" => 1024,
                  "ARGS" => [
                              "i",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 284 \"src/ops/string.ops\"\n <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	4963	5111	
==>t_skip>

Query the svn:ignore property and generate the lines for MANIFEST.SKIP.

=cut

sub gen_manifest_skip {

   # manicheck.pl is probably only u <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6883	6991	
==>=$syms[CURR];
	#	feedme;  # Get the =
	#	#print "Going to expression with $syms[CURR]\n";
	#	print CODE EXPRE <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	12248	12396	
==>:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.
#

sub parse_file {
  my($self, $source) = (@_);

  if(!defined $source) {
    Carp: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090034	1090323	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice",
                  "FLAGS" => ":python",
                  "ARGDIR <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	37994	38113	
==>ence containing various parsing options (see below)

=back

The various options that can be specified are:

=over 4

=it <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11899	12150	
==>P_NULL);\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_POP",
                  "NAME <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11110	11338	
==>P_NULL);\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATI <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	7646	7793	
==>, (.*?)\)/) {
		    my ($args, $ar, $kw) = ($1, $2, $3);
		    $args =~ s/[\s']//g;
		    $ar =~ s/'//g;
		    $kw =~ s/'//g;
		    print "# $cur_f: <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	584	758	
==>return if start of input is b, advance 1 char" ],
    [ "classmatch(charclass)" => "return if start of input is charclass, advance 1" ],

    [ "start(n)" => "mark start of n- <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	10011	10135	
==>interpreter,\s*
            {{\@(\d)}}/
            {{\@$2}}->vtable->$1(interpreter, {{\@$2}}/x;

        if ($op->full_name <==
2	/Users/nnunley/parrot/config/init/hints/irix.pm	438	545	
==>s .= ' -woff 1185';
    }
    $conf->data->set(ccflags => $ccflags);

    my $libs = $conf->data->get('libs' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019874	1019967	
==>localtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = string_from_cstring <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020805	1020898	
==>localtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = string_from_cstring <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	172	287	
==>t_api.pl - Verify Parrot API (symbols)

=head1 SYNOPSIS

    % perl tools/dev/parrot_api.pl [libfile]

=head1 DESCRI <==
2	/Users/nnunley/parrot/tools/util/pirtidy.pl	341	507	
==>rn "Processing $file...\n" if $verbose;
    open my $ifh, '<', $file;
    my $outfile = "$file.$extension";
    open my $ofh, '>', $outfile;

    my $formatter = new P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651917	652213	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_repr",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	451	566	
==>IZE    => 2**20 * 3.0,  # MiB limit
  BASEDIR     => "/tmp/parrot_smokes/",
  BASEHTTPDIR => "/",
  BUCKET      => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29949	30207	
==>gs = NULL;\n    }\n    {{=pc}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "N <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47065	47283	
==>ARROT_ALL_DEBUG_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47848	48066	
==>ARROT_ALL_DEBUG_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143364	143603	
==>" => [
                              "s",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 84 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@1} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33452	33621	
==>correcting!!
          }
            
          if(@$para == 2) {
            # For the cases where we /didn't/ push to @$para
            if($paras->[0][0] eq '~Para') { <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	739	905	
==>t = shift;
  my $type  = shift || 'I';

  die "No registers to save"
    unless $count and $count>0;
  die "Illegal register type"
    unless $type and $type=~/^[INPS] <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1161	1258	
==>rs, all starting with YY (leading YY will be discarded)
my(%params)=(YYLEX => 'CODE', 'YYERROR' = <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1119	1215	
==>rs, all starting with YY (leading YY will be discarded)
my(%params)=(YYLEX => 'CODE', 'YYERROR' = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1964	2169	
==>->name;

  my $return_type = $sub_block->type;

  my $anon;

  if (defined $cond) {
    $left  = $left->compile($compiler);
    $right = $right->compile($compiler);

    if ($cond eq 'if') {
      $op = $co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931914	932207	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932685	932978	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLA <==
2	/Users/nnunley/parrot/languages/scheme/Scheme.pm	419	612	
==>ctions {
  my ( $main ) = @_;

  my @function = ( $main );
  my @missing = @{$main->{functions}};
  my @provides = keys %{$main->{scope}};

  my $code = $main->{code};
  my $header = << 'END_HEA <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18733	18853	
==>eblock_halfpoint_size( I<halfpoint_integer> );

This method sets the size (in half-points, like 21 for 10.5-point)
that c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1013631	1013892	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "err",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158008	158346	
==>AGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 191,
                  "ARGS" => [
                              "p", <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26707	26867	
==>new_label($parser);
    my $l_break    = new_label($parser);
    push @opcodes, new LabelOp( $parser,
        'arg1' => $l_continue,
    );
    my $cond = g <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27592	27733	
==>new_label($parser);
    my $l_break    = new_label($parser);
    push @opcodes, new LabelOp( $parser,
        'arg1' => $l_continue,
    ) <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	16369	16479	
==>pop_all (typed eh)\n";
    my $pre_load = $srm->pre_load(0);
	$pir .= "### pre_load (typed eh)\n";
	$pir .= sub <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33933	34058	
==>type} ne 'void') {
        my $type = $method->{type};
        $ret_def = "$type ret_val;";
        $func_ret = $self->gen_ret <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38895	39020	
==>type} ne 'void') {
        my $type = $method->{type};
        $ret_def = "$type ret_val;";
        $func_ret = $self->gen_ret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	309521	310072	
==>erpreter,f);\n    }\n\n    {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "debug_break",
                  "FLAGS" => ":base_debug",
                  "ARGDIRS" => [],
                  "TYPE" => "function",
                  "CODE" => 361,
                  "ARGS" => [],
                  "BODY" => "#line 91 \"src/ops/debug.ops\"\n    const char *command;\n\n    if (!(inte <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	29513	29652	
==>, $p, 'P'];
    }
}

sub DUP_TOP
{
    my ($n, $c, $cmt) = @_;
    my $tos = $stack[-1];
    print <<EOC;
	$cmt
EOC
    push @stack, $tos;
} <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	3228	3331	
==>est;
}


=item B<create>

  my $Test = Test::Builder->create;

Ok, so there can be more than one Test::B <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4589	4697	
==>DBP/;
	eval join('',@drv);
}

#Note that for loading debugging version of the driver,
#this file will be <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4359	4462	
==>DBP/;
	eval join('',@drv);
}

#Note that for loading debugging version of the driver,
#this file will be <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7149	7239	
==>} = ${LOADTYPE}["reg_type_short"]
${DEST0} = concat ${STEMP0}
${STEMP0} = stack_depth
${DES <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4971	5061	
==>} = ${LOADTYPE}["reg_type_short"]
${DEST0} = concat ${STEMP0}
${STEMP0} = stack_depth
${DES <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	12054	12173	
==>$X->vtable->{vtable}(interp, $Y, $Z, $A)
        elsif ($opbody =~ /
        ^(?:.*\.ops")\s+
        {{\@(\d)}}->vtable <==
2	/Users/nnunley/parrot/examples/benchmarks/stress.pl	538	668	
==>y @foo;
    foreach (1..10000) {
	$foo[$_] = $_;
    }
    return \@foo;
}

=head1 SEE ALSO

F<examples/benchmarks/stress.pasm>, 
F <==
2	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	447	577	
==>y @foo;
    foreach (1..10000) {
	$foo[$_] = $_;
    }
    return \@foo;
}

=head1 SEE ALSO

F<examples/benchmarks/stress.pasm>, 
F <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	5878	6041	
==>== 1 ? 'CPU' : 'wall-clock';
    print "Times are in $type seconds.  (lower is better)\n";
}
else {
    print "Numbers are relative to the first one. (lower is bett <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576520	576609	
==>ative(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, name <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577532	577621	
==>ative(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, name <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30446	30567	
==>P;
	eq S0, "$_", COPY_$_
DISP
	}
	print CODE <<DISP2;
	print "Structure type of "
	print S0
	print " not found\\n"
	_platf <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	317701	317888	
==>32767 ) {\n    {{\@1}} = (INTVAL)((Parrot_Int2)({{\@1}}));\n  }\n  else\n  {\n    internal_exception(1, \"Overflow exception for conv_i2_ovf\");\n  }\n  {{+=2}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	10899	11024	
==>)!";

    return;
}

# Extends a string containing an or expression "0" .. "A" .. "A|B" etc.
sub or_flag
{
    my ($flag, $val <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2263	2374	
==>d2       { $_[0]->emit_par(-3) }
sub end_head3       { $_[0]->emit_par(-2) }
sub end_head4       { $_[0]->emit_p <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1831	1942	
==>d2       { $_[0]->emit_par(-3) }
sub end_head3       { $_[0]->emit_par(-2) }
sub end_head4       { $_[0]->emit_p <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	2	165	
==>ckage Test::Builder;

use 5.004;

# $^C was only introduced in 5.005-ish.  We do this to prevent
# use of uninitialized value warnings in older perls.
$^C ||= 0;

u <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033525	1033749	
==>ed_str(interpreter, lex_pad, lex_name, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034623	1034847	
==>ed_str(interpreter, lex_pad, lex_name, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	2623	2894	
==>h size 4, conversion ops might fail!

END
    }
    if ($results{doublesize} == 8) {
        $conf->data->set(float8_t => 'double');
    } else {
        $conf->data->set(float8_t => 'double');
        print <<'END';

Can't find a float type with size 8, conversion ops mi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	2532	2722	
==>= []);
        return (aop(comment => [ "restore rxlocals for op" ]),
                map { aop('popint' => [ $_, "op rxlocal $_" ]) }
                    reverse @$rxlocals);
    }
}

sub ru <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33118	33287	
==>er'},
             " instead of the expected value of $expected_value\n";
            $self->whine(
              $para->[1]{'start_line'},
              "You have '=item <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	883	1045	
==>class.get_fullname()
    method_name = meth
PIR_OUT

# Generate the lookup.
$output .= generate_lookup(@methods);

# Generate method code suppliers.
$output .= gen <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1730	1828	
==>umber of arguments (expected %d, got %d) in call to '%s'.",
    scalar(@formal_args), scalar(@args) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1430	1528	
==>umber of arguments (expected %d, got %d) in call to '%s'.",
    scalar(@formal_args), scalar(@args) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7665	7803	
==>$1;
        } elsif( $tagname eq 'Para') {
          $tagname = 'Para_item' if @stack and $stack[-1] eq 'text';
        }
        print $fh <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	14758	15068	
==>MMD body near '$total_body'"
            if (!$body_part);
        $body_part = substr($body_part, 1, -1);
        if ($right_type eq 'DEFAULT') {
            $standard_body = $body_part
        }
        else {
            my $sub_meth_decl = $self->decl($classname, $method);
            my $sub_meth_decl_h = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50251	50483	
==>eter, PARROT_PROFILE_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51044	51276	
==>eter, PARROT_PROFILE_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARR <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	7570	7687	
==>ed.
    my $type = $t->{name};

    if ($type eq 'seq' && ! $t->{add_check_visited}) {
        # Split the seq up into <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1248	1355	
==>mple::Debug (\\\$var, STARTNUMVAL)\nAborting");
  }

  if( defined $variable ) {
    # make a not-really-con <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34222	34330	
==>meta($pre_branch, $mv, "pre_branch for rule $rule->{'name'}");
		$pir .= "### end pre_branch\n";

        # A <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	134	221	
==>he Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Declaration/Su <==
2	/Users/nnunley/parrot/config/auto/alignptrs.pm	279	373	
==>rs;

use strict;
use vars qw($description $result @args);

use base qw(Parrot::Configure::Step: <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11183	11372	
==>_)->is_text );
        if(   $t->is_start and $t->tag eq 'X') { ++$x_open }
        elsif($t->is_end   and $t->tag eq 'X') { --$x_open }
      }
    }
  }
  
  $out =~ tr/\x00-\x1F\x80-\x9F/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828697	828790	
==>al_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_PMC) {\n    i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829765	829858	
==>al_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_PMC) {\n    i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539319	539639	
==>E" => "inline",
                  "CODE" => 624,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 995 \"src/ops/math.ops\"\n  {{\@1}} = tanh((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	1439	1642	
==>turn (%config, trans_parrot_path => $_[0], srm => $_[1]);
}


# Generate the makefile.
# ######################
sub generate_makefile(%) {
	my %config = @_;

    # Generate class library make ins <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16498	16596	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See http:/ <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1712	1810	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See http:/ <==
2	/Users/nnunley/parrot/config/auto/gc.pm	1199	1308	
==>nf->data->set(malloc_header => 'malloc.h');
        } else {
            $conf->data->set(malloc_header => 'st <==
2	/Users/nnunley/parrot/config/auto/memalign.pm	994	1095	
==>nf->data->set(malloc_header => 'malloc.h');
    } else {
        $conf->data->set(malloc_header => 'st <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	61907	62111	
==>xtract_codeblock> found
a valid bracket delimiter, but it was the wrong species. This usually
indicates a nesting error, but may indicate incorrect quoting or escaping.

=item  C<No block delimiter found a <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	1010	1147	
==>_, $ctx) } @{ $tree->branches } ]);
}

sub convert_rx_seq {
    my ($self, $tree, $ctx) = @_;
    return op('seq' => [ map { $self->conver <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14801	15008	
==>p_car {
  my ($self, $node) = @_;

  _num_arg ($node, 1, 'car');

  my $return = $self->_generate (_get_arg($node,1));
  die "car: Element not pair\n" unless $return =~ /^P/;
  $self->_add_inst ('', 'set', [$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645846	645933	
==>eter->vtables[{{\@2}}]->whoami;\n    else\n\t\t{{\@1}} = Parrot_get_datatype_name(interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646743	646830	
==>eter->vtables[{{\@2}}]->whoami;\n    else\n\t\t{{\@1}} = Parrot_get_datatype_name(interp <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	1142	1415	
==>nt4_t           => 'int',
            float4_t         => 'double',
            float8_t         => 'double',
        );
        $self->set_result('using miniparrot defaults');
        return $self;
    }

    cc_gen('config/auto/sizes/test_c.in');
    cc_build();
    my %r <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	600	717	
==>ep::Base;

use strict;
use warnings;

=head2 Methods

=head3 Constructors

=over 4

=item * C<new()>

Basic constructo <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	6917	7045	
==>2
    unshift op2, $P1
    inc op1
    goto neg

done:
nothing:
    .return(op2)
.end

.sub 'dyadic:!'           # binomial coeff <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632574	632669	
==>terpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633616	633711	
==>terpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	934	1040	
==>hen svn is not available).
# See docs/submissions.pod on how to recreate this file after SVN
# has been tol <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3789	3895	
==>hen svn is not available).
# See docs/submissions.pod on how to recreate this file after SVN
# has been tol <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	17838	17960	
==>\$why);

    unless( $self->{Have_Plan} ) {
        require Carp;
        Carp::croak("You tried to run tests without a pla <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121968	122073	
==>/*\n   * lvalue casts are evil, but this one isn't evil enough to kill.\n   * it's just casting a signed i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122880	122985	
==>/*\n   * lvalue casts are evil, but this one isn't evil enough to kill.\n   * it's just casting a signed i <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	15502	15613	
==>ctive that started near line
			 $next->{line}. Did you forget the closing '>'?");
	    }
	}
	return 1;
}

sub e <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	935	1053	
==>set tables.
 *  Data Structure and Algorithms:
 *  History:
 *  Notes:
 *  References:
 */
HEADER

=over

=item B<class <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16135	16367	
==>$assignto;
	} elsif ($opts{stuff}) {
		#print STDERR "Stuff\n";
		$opts{lhs}=1;
		feedme();
		# Do the left-hand side
		@expr=get_expression(%opts);	# Get expression tokens
		#print STDERR Dumper(\@expr);
		$whole.=join(' ', map { $_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2544	2645	
==>do
	# otherwise. Also, putting a label everywhere doesn't hurt the final
	# Parrot bytecode that is pr <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1122	1223	
==>do
	# otherwise. Also, putting a label everywhere doesn't hurt the final
	# Parrot bytecode that is pr <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	603	733	
==>(
		'Dynamic PMCs', 'dynapmc.html', '',
		$self->new_group('Loading', '', 'src/dynpmc'),
		$self->new_group('Runtime', '', 'runtime <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	23515	23662	
==>PObj_external_FLAG);
EOC
    }
    else {
        $cout .= <<"EOC";
        vt_clone->whoami = CONST_STRING(interp, "$classname");
        vt_clone- <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	737	880	
==>rot::Test::per_test( '_antlr2_no_past.pir', $count );

    return ( "python languages/bc/bc.py languages/${lang_fn}", 
             "$self->{par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	267730	267977	
==>ops/cmp.ops\"\n    {{\@1}} = VTABLE_get_bool(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	61159	61268	
==>xtract_quotelike> or C<extract_codeblock> encountered
a closing bracket where none was expected.

=item  C<Unm <==
2	/Users/nnunley/parrot/config/inter/ops.pm	154	289	
==>s.pm - Ops Files

=head1 DESCRIPTION

Asks the user to select which ops files to include.

=cut

package inter::ops;

use strict;
use va <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3291	3427	
==>ress.

=item C<OP_SIZE>

Transforms to C<S>, the size of an op.

=item C<HALT()>

Transforms to C<PC' = 0>. Halts run loop, and resets th <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319969	320090	
==>"#line 124 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (INTVAL)((Parrot_Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320739	320860	
==>"#line 124 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (INTVAL)((Parrot_Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	14973	15077	
==>plate .= interpolate($code, 'op1', 'op2');
        } elsif ($type1 eq "APLVector" && $type2 eq "APLVector <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8286	8408	
==>RROT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLAGS" => ":base_loop,c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9401	9523	
==>RROT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLAGS" => ":base_loop,c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79425	79544	
==>e just need to build\n         a PMC with it so we can get and set the value */\n      {{\@1}} = pmc_new(interpreter, en <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80946	81065	
==>e just need to build\n         a PMC with it so we can get and set the value */\n      {{\@1}} = pmc_new(interpreter, en <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9338	9451	
==>d index");
}

sub output_popint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);
    if ($self->{DEB <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9032	9145	
==>d index");
}

sub output_popint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);
    if ($self->{DEB <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	26229	26317	
==><BEGIN> tags

	($extracted, $remainder) =
		extract_tagged($text,"BEGIN","END",undef,{bad <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688623	688955	
==>"
                               ],
                  "TYPE" => "function",
                  "CODE" => 773,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 576 \"src/ops/pmc.ops\"\n   {{\@1}}->vtable->delprop(inter <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	15452	15594	
==>gth($$textref)-$endpos,
	       );
}


my %mods   = (
		'none'	=> '[cgimsox]*',
		'm'	=> '[cgimsox]*',
		's'	=> '[cegimsox]*',
		'tr'	=> '[cds] <==
2	/Users/nnunley/parrot/lib/File/Which.pm	5845	5971	
==>ats

Not tested on VMS or MacOS, although there is platform specific code
for those. Anyone who haves a second would be very ki <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	12738	12904	
==>t =>
              );
    return ($back, @ops);
}

sub rewrite_other {
    my ($self, $op, $lastback) = @_;
    return aop($op->{name}, [ @{ $op->{args} }, $lastback ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64638	64731	
==>\"\n  Interp * const new_interp = (Interp *)PMC_data({{\@1}});\n  Interp_flags_SET(new_interp, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65589	65682	
==>\"\n  Interp * const new_interp = (Interp *)PMC_data({{\@1}});\n  Interp_flags_SET(new_interp, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023297	1023397	
==>" => "#line 210 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024147	1024247	
==>" => "#line 210 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	524036	524359	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sqrt",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38469	38646	
==>|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39333	39510	
==>|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2373	2493	
==>L_ERROR("Can't determine type of formal argument (%s)!", $formal_arg_name) 
      unless defined $formal_arg_type;

    $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2073	2193	
==>L_ERROR("Can't determine type of formal argument (%s)!", $formal_arg_name) 
      unless defined $formal_arg_type;

    $ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	123	249	
==>4Z bernhard  $

=head1 NAME

Parrot::Docs::Section::C - C source code documentation section

=head1 SYNOPSIS

    use Parrot::D <==
2	/Users/nnunley/parrot/Configure.pl	3322	3557	
==>be
build without ICU.

B<Note:> If you specify another ICU option than --icu-config, the autodetection
functionality will be disabled.

=item C<--icushared=(linkeroption)>

Linker command to link against ICU library.

E.g.

   --icushar <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	1482	1672	
==>s.
sub pre_load {
	die "pre_load not implemented for current stack to register mapper\n";
}
sub post_load {
	die "post_load not implemented for current stack to register mapper\n";
}

# Pre a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	12461	12603	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT",
                  "NAME <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1027509	1027651	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT",
                  "NAME <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	6853	6945	
==>if wantarray;
  return;
}

#----------------------------------------------------------------- <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	8392	8484	
==>if wantarray;
  return;
}

#----------------------------------------------------------------- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443628	443740	
==>mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444643	444755	
==>mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	11783	12181	
==>,
                type        => $type,
                parameters  => $parameters,
                loc         => "vtable"
            };
        }
        else {
            # name => method idx mapping
            $meth_hash{$methodname} = scalar @methods;
            my @mmds = ($methodblock =~ /MMD_(\w+):/g);
            push @methods,
                {
                    meth        => $me <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5045	5177	
==>pmcs = grep { ! exists $pmc_group->{$_} } @pmcs;

    my (@list_to_process) = (@ungrouped_pmcs, keys %$group_files);

    die "nothin <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2071	2162	
==>(not $self->prefix and $self->peer and $self->peer->prefix) {
    $self->prefix($self->peer- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1948	2039	
==>(not $self->prefix and $self->peer and $self->peer->prefix) {
    $self->prefix($self->peer- <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	7271	7385	
==>int "It's an op!\n";
		$item->[2]="OP";
		if (! @stack) {
			push @stack, $item;
			next;
		}
		while(@stack and pr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948869	949094	
==>ring_trans_charset(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949669	949894	
==>ring_trans_charset(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123768	123906	
==>i"
                            ],
                  "BODY" => "#line 257 \"src/ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124642	124780	
==>i"
                            ],
                  "BODY" => "#line 257 \"src/ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492771	493005	
==>{\@1}} = intval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493532	493766	
==>{\@1}} = intval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/config/init/optimize.pm	479	572	
==>fig;
use Parrot::Configure::Step;

$description = 'Enabling optimization';

@args = qw(verbose <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	15557	15711	
==>5,
			'charclass' => 12
		}
	},
	{#State 38
		ACTIONS => {
			"?" => 23,
			'CHAR' => 4,
			"<" => 22,
			"+" => 24,
			'CODE' => 6,
			"(" => 10,
			"|" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2374	2556	
==>run
core function declaration. C<$base> is the name of the main ops file minus
the .ops extension.

=item C<ops_addr_decl($base_suffix)>

Optionally implemented in subclasses to retur <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4614	4707	
==>&& $self->do_end;
}


#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3245	3337	
==>&& $self->do_end;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	12050	12341	
==>extern);
			goto NEST_ARRAY_ASSIGN if (@work); # Ugly, yeah sue me.
			push @code, qq{\t_ARRAY_ASSIGN("$extern$seg",INSERT NEW VALUE HERE,$ac$pir_args)};
			return("~Array", "$optype", @code);
		} elsif (hasargs($sym)) {
			($ac,@args)=pushargs(\@code, \$optype, \@work);
			$pir_args = join( <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61600	61701	
==>e);
		}
		elsif ($grammar =~ m/(?=$MATCHRULE)/gco
				and do { ($code) = extract_bracketed($grammar,'< <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	98818	98913	
==>BODY" => "#line 96 \"src/ops/bit.ops\"\n  {{\@1}}->vtable->i_bitwise_not(interpreter, {{\@1}});\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1499	1621	
==>args()>

Sets/gets the transform's arguments.

=cut

sub args
{
    my $self = shift;

    if (@_)
    {
        $self->{AR <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1108	1230	
==>args()>

Sets/gets the transform's arguments.

=cut

sub args
{
    my $self = shift;

    if (@_)
    {
        $self->{AR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79942	80414	
==>",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 101,
                  "ARGS" => [
                              "p",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 1176 \"src/ops/c <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4554	4660	
==>output;
  return
   $self->do_beginning && $self->do_middle && $self->do_end;
}


#~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3185	3290	
==>output;
  return
   $self->do_beginning && $self->do_middle && $self->do_end;
}

#~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/config/init/hints/freebsd.pm	382	526	
==>eBSD's /usr/ports/Mk/bsd.port.mk,
    # which must be assumed to do the right thing.

    my $osversion;
    if (-e "/sbin/sysctl") {
        $os <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	6437	6547	
==>in("-", map { $smoke{summary}{$_} } qw<total ok failed todo skipped unexpect>);
  my $args = unpack("H*", $smok <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	10876	11019	
==>n_count <= ($max_token || 1_000_000)
    and defined(my $token = $self->get_token)
  ) {
    push @to_unget, $token;

    if ($state == 0) { # s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	1033	1141	
==>e { return shift->{VALUE}; }


#
# compile()
#
# Essentially a no-op for values (except string literals... q. <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3415	3524	
==>:XML>, L<Pod::SAX>


=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved. <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3067	3176	
==>:XML>, L<Pod::SAX>


=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved. <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1941	2080	
==>his start-token
object, or undef.

For example, parsing a LZ<><Foo/"Bar"> link will produce a start-token
with a "to" attribute with the val <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2825	2925	
==>e;
  $self->INTERNAL_ERROR("No type for right!") unless defined $right_type;

  $self->SYNTAX_ERROR(" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2591	2691	
==>e;
  $self->INTERNAL_ERROR("No type for right!") unless defined $right_type;

  $self->SYNTAX_ERROR(" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	34477	34715	
==>inline",
                  "CODE" => 43,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 632 \"src/ops/core.ops\"\n  {{\@1 <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	942	1067	
==>Find::name)
                        }}, $SRCDIR);

    # build parrot with coverage support
    system("perl Configure.pl --cc <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	14551	14702	
==>ctive)/)
		{
			return 1 if $item->{code} =~ /\$skip/;
		}
	}
	return 0;
}

sub adddirective
{
	my ( $self, $whichop, $line ) = @_;
	push @{$self->{op}} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	18276	18383	
==>ext;
      
    } elsif($para_type eq '=begin') { #///////////////////////////////////////

      my $conten <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7359	7482	
==>ptions{ignore})	       ? $options{ignore}
		    :					 ''
		    ;

	if (!defined $ldel) { $ldel = '<\w+(?:' . gen_delimited_ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24361	24484	
==>ptions{ignore})	       ? $options{ignore}
		    :					 ''
		    ;

	if (!defined $ldel) { $ldel = '<\w+(?:' . gen_delimited_ <==
2	/Users/nnunley/parrot/Configure.pl	1328	1433	
==>r now)

=item C<--optimize>

Add perl5's $Config{optimize} to the compiler flags.

=item C<--optimize=flag <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931862	932137	
==>\"\n  {{\@1}} = string_upcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932633	932908	
==>\"\n  {{\@1}} = string_upcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37431	37540	
==>t::_tracefirst($text),
				  q{' . $rule->{"name"} . '})
					if defined $::RD_TRACE;').'
		$Parse::RecDescent <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39834	39943	
==>t::_tracefirst($text),
				  q{' . $rule->{"name"} . '})
					if defined $::RD_TRACE;').'
		$Parse::RecDescent <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	841	1039	
==>$text) = @_;
   ...
 }
 
 sub start_head1 {
   my($self, $attrs) = @_;
   ...
 }
 sub end_head1 {
   my($self) = @_;
   ...
 }
 
...and start_/end_ methods for whatever other events you want to catch <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	618222	618535	
==>JUMP_RELATIVE",
                  "NAME" => "pic_inline_sub__",
                  "FLAGS" => ":pic",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10474	10904	
==>= 0;
    my $depth = 0;
    for my $c (split(//, $data)) {
        if ($state == 0) {
            if ($c eq '\\') {
                $state = 1;
            } elsif ($c eq '{') {
                push @tokens, '{';
                push @types, 'CODE';
                $state = 2;
                $depth = 1;
            } else {
                if ($c =~ /\d/) {
                    push @tokens, $c;
                    push @types, <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2019	2188	
==>port {
    my $test := not($got ~~ $expected);
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends, :negate);
}

## eval_ok

sub eval_ok (Str $code, Str $de <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	734	833	
==>pe sequences.
# Config stuff
our $CC = qq[/usr/bin/gcc-4.0 -c];
our $LD = qq[c++];
our $LDFLAGS = qq <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	738	837	
==>pe sequences.
# Config stuff
our $CC = qq[/usr/bin/gcc-4.0 -c];
our $LD = qq[c++];
our $LDFLAGS = qq <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	300	405	
==>orter Test::More);

sub import {
    my( $class, $plan, @args ) = @_;

    Test::More->import( $plan, @arg <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	217	322	
==>orter Test::More);

sub import {
    my( $class, $plan, @args ) = @_;

    Test::More->import( $plan, @arg <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77899	78173	
==>("You can't negate $_[0]. Remove the \"...!\" before
		       \"$&\".");
		return 0;
	}
	return 1;
}

sub _parse($$$;$)
{
	my $what = $_[3] || $&;
	   $what =~ s/^\s+//;
	if ($_[1])
	{
		_warn(3,"Found $_[0] ($what) after an unconditional <error>",$_[2])
		and
		_hint("An un <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	7205	7335	
==>d to make and use derivative works provided
that such works are identified as "derived from the RSA Data
Security, Inc. MD5 Message <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3544	3669	
==>oin(" ",@pmcfiles))
              or die "pmc2c library creation failed ($?)\n";
        }
    }
} 
elsif ($mode eq 'compile') <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3648	3773	
==>oin(" ",@pmcfiles))
              or die "pmc2c library creation failed ($?)\n";
        }
    }
} 
elsif ($mode eq 'compile') <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	14219	14362	
==>n class="tests_ok"><tmpl_var name=ok> ok</span>,
		<span class="tests_failed"><tmpl_var name=failed> failed</span>,
		<span class="tests_todo">< <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	1265	1408	
==>argument is both incoming and outgoing

Op Type:

    i   The argument is an integer register index.
    n   The argument is a number register i <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6603	6699	
==>TEMP0}] = stack_depth
    goto POST_BRANCH_switch_${CURIC}_LOOP
POST_BRANCH_switch_${CURIC}_LOOP_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4541	4637	
==>TEMP0}] = stack_depth
    goto POST_BRANCH_switch_${CURIC}_LOOP
POST_BRANCH_switch_${CURIC}_LOOP_ <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	233	354	
==>S

    perl tools/build/pbc2c foo.pbc > foo.c

=head1 DESCRIPTION

Parse the Parrot PackFile listed on the command line, o <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7304	7523	
==>compreg "PGE::Glob"

            .local string target
            .local string pattern
            .local pmc rulesub
            .local pmc match
            .local pmc code
            .local pmc exp
            targe <==
2	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	762	1016	
==>at_file or die "Can't read $compat_file";
my @lines = <IN>;
close IN;

my $len = 10;
my $fingerprint = md5_hex join "\n", grep { ! /^#/ } @lines;

print << "EOF";
/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated aut <==
2	/Users/nnunley/parrot/tools/dev/pbc_header.pl	836	991	
==>at_file or die "Can't read $compat_file";
    my @lines = <IN>;
    close IN;

    my $len = 10;
    my $fingerprint = md5 join "\n", grep { ! /^#/ } @lines <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	291	414	
==>/build/dynclasses.pl - Build script for dynamic PMCs

=head1 DESCRIPTION

This file is generated by F<config/gen/makefiles.p <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2943	3089	
==>0}{ } if Pod::Simple::ASCII;
  print {$self->{'output_fh'}} $out,
    #"\n"
  ;
  $self->{'Thispara'} = '';
  
  return;
}

# . . . . . . . . . . A <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2477	2615	
==>0}{ } if Pod::Simple::ASCII;
  print {$self->{'output_fh'}} $out, "\n";
  $self->{'Thispara'} = '';
  
  return;
}

# . . . . . . . . . . A <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919775	920073	
==>ne",
                  "CODE" => 1035,
                  "ARGS" => [
                              "i",
                              "sc",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.o <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	41799	42017	
==>ount++;
	next;
      }
      # Check if any later argument needs the old value of P$count
      my $moved;
      for (@_) {
	if ($_ eq "P$count") {
	  $moved = $_;
	  $_ = $empty;
	}
      }
      if ($moved) {
	$self-> <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2215	2315	
==>lang_out_fn = $self->get_out_fn( $count );
        my @test_prog   = $self->get_test_prog( $path_to_p <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2268	2392	
==>rsing events as text

=head1 SYNOPSIS

  perl -MPod::Simple::DumpAsText -e \
   "exit Pod::Simple::DumpAsText->filter(shift)- <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	19259	19409	
==>ignature has an unknown type. I am sure someone can come up
      with a neater way to do this.
     */
    ns = string_make(interpreter, " is an unkno <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16868	17081	
==>my $pair = $self->_save_1 ('P');

    $self->_add_inst ('', 'new',[$pair,'.Array']);
    $self->_add_inst ('', 'set',[$pair,2]);
    $self->_add_inst ('', 'set',[$pair.'[0]',$item]);
    $self->_add_inst ('', 'set' <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7513	7641	
==>as, beans
next i
print
end
100 print "100!"
    goto FIN
200 print "200!"
    goto FIN
300 print "300!"
    goto FIN
oats:
	print <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19796	19924	
==>as, beans
next i
print
end
100 print "100!"
    goto FIN
200 print "200!"
    goto FIN
300 print "300!"
    goto FIN
oats:
	print <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1246	1379	
==>/luatable.pbc"
#  load_bytecode "languages/lua/lib/luamath.pbc"
#  load_bytecode "languages/lua/lib/luaio.pbc"
#  load_bytecode "la <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15149	15268	
==>,
		);
	}

	return @ass;
}
sub EXPRESSION {
	my(%opts);
	%opts=%{$_[0]} if @_;
	my(@expr, @stream, @left, $whole);
	my($ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	1120	1224	
==>pper\n";
}
sub post_branch {
	die "post_branch not implemented for current stack to register mapper\n";
} <==
2	/Users/nnunley/parrot/tools/build/list_unjitted.pl	352	518	
==>e "Damn can not open 'ops/ops.num': $!";

while(<OPS>){
    next if /^\s*#/ or /^\s*$/;
    if (my ($op) = /(\S+)\s+\d+/){
        push @ops, $op;
    }
    else { die <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeSmart.pm	341	434	
==>ode::resolve_alias($_[1]);
}

sub encmodver {
  return "Encode.pm v" .($Encode::VERSION || '?' <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59921	60175	
==>rod = new Parse::RecDescent::Production($line,0,1);
			$rule and $rule->addprod($prod)
			      or  _no_rule("<error>",$line);
			$aftererror = 0;
		}
		elsif ($grammar =~ m/$PROD/gco)
		{
			_parseunneg("a new production", 0,
				    $lookahead,$line) or <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	1649	1745	
==>it,@saves);
	#print CODE "\t.sub ${seg}_main\n\t\tsaveall\n";

	# If any "common" declared variab <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1884	1985	
==>return $self->SUPER::new($path);
}

=back

=head2 Instance Methods

=over 4

=item C<create_path()>

T <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	861	962	
==>return $self->SUPER::new($path);
}

=back

=head2 Instance Methods

=over 4

=item C<create_path()>

T <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	2859	2968	
==>nts to the form
    #  { label => optional_label, code => original_op }
    # and construct a mapping from lab <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9464	9585	
==>n;
    
    --$self->{DONT_WRAP} if $tagname eq 'Verbatim' or $tagname eq 'X';
}

=item C<process_text_token($token)>

Pro <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2792	2906	
==>ompiler->emit("  $temp = $value");
      $args[$i] = $temp;
    }
    else {
      $args[$i] = $args[$i]->compile($ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2492	2606	
==>ompiler->emit("  $temp = $value");
      $args[$i] = $temp;
    }
    else {
      $args[$i] = $args[$i]->compile($ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853345	853438	
==>ops/string.ops\"\n  {{\@1}} = string_append(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854127	854220	
==>ops/string.ops\"\n  {{\@1}} = string_append(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720201	720315	
==>\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721401	721515	
==>\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "L <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	1769	1926	
==>ir                     [devel]
    examples/sdl/anim_image_dblbuf.pir              [devel]
    examples/sdl/blue_font.pir                      [devel]
    exa <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	14728	14847	
==>| split|grep|map|return
					)#gcx)
		{
			$patvalid = 1;
			next;
		}

		if ( _match_codeblock($textref, '\s*', $ldel_i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346124	346484	
==>,
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 404,
                  "ARGS" => [
                              "p <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	7040	7159	
==>find_op_number {
    my ($opname, $experimental) = @_;
    if (exists $ParrotOps::optable{$opname}) {
	return $ParrotOps <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	9996	10104	
==>e Regex::Ops::Tree; # Won't get used much

sub needparen { 0 }

# Nonportable
sub isplain {
    my $ord = shi <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	19447	19598	
==>ter found after quotelike $op",
		         pos $$textref;
		pos $$textref = $startpos;
		return;
	}
	pos($$textref) = $ld1pos;	# HAVE TO DO THIS BECAUSE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8131	8348	
==>=> [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29646	29761	
==>AG_TAILCALL;\n\t--ctx->recursion_depth;\n\tctx->caller_ctx = caller_ctx->caller_ctx;\n\t/* ordinarily, this will fre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621810	621905	
==>AG_TAILCALL;\n\t    --ctx->recursion_depth;\n\t    ctx->caller_ctx = caller_ctx->caller_ctx;\n\t <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7171	7269	
==>bogus$, "t")
' instr() tests
s1$="Mixed case"
print ucase$(s1$);" Upper"
print lcase$(s1$);" Lower" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18900	18998	
==>bogus$, "t")
' instr() tests
s1$="Mixed case"
print ucase$(s1$);" Upper"
print lcase$(s1$);" Lower" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981509	982032	
==>"o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1101,
                  "ARGS" => [
                              "i",
                              "i",
                              "s",
                              "i",
                              "ic"
                            ],
                  "BODY" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943842	943951	
==>ng.ops\"\n  {{\@1}} = Parrot_charset_number_of_str(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944631	944740	
==>ng.ops\"\n  {{\@1}} = Parrot_charset_number_of_str(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	18582	18700	
==>SION} =~ m/^(\d+)\./;

    return $1;
}

=item C<minor_version()>

Returns the minor version number.

=cut

sub minor_v <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	30211	30339	
==>iable.  If you want to be sure, tell it explicitly
what $pack to use.

=cut

sub todo {
    my($self, $pack) = @_;

    $pack = $ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8597	8712	
==>er{'amp' }   = '&';
  $Name2character{'apos'}   = "'";
  $Name2character{'sol' }   = '/';
  $Name2character{'verbar' <==
2	/Users/nnunley/parrot/config/gen/cpu.pm	642	760	
==>t_result('skipped');
        return $self;
    }

    my $verbose = $conf->options->get('verbose');

    my $hints = "g <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	11147	11242	
==>ds) returns Bool is export`
- `unlike (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	497	619	
==>uilder}->current_test + 1;

    my $lang_f    = Parrot::Test::per_test('.p1',$count);
    my $out_f     = Parrot::Test::per <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	7367	7658	
==>em('', 'malloc-trace'),
            $self->c_item(
                '', 
                'pairs' => ['resources'], 
                'sources' => ['res_lea']
            ),
            $self->c_pair_item('', 'smallobject'),
            $self->c_pair_item('', 'headers'),
        ),
        $sel <==
2	/Users/nnunley/parrot/lib/File/Which.pm	4104	4204	
==>s C<.exe> and
C<.bat> to identify them, C<File::Which> takes extra steps to assure that you
will find <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	7830	7956	
==>UT" or die "Can't save     stdout" if $out;
    open  OLDERR, ">&STDERR" or die "Can't save     stderr" if $err;

    open  STD <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7880	8004	
==>UT" or die "Can't save     stdout" if $out;
    open OLDERR, ">&STDERR" or die "Can't save     stderr" if $err;

    open STD <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6360	6542	
==>DEFAULT};
#DBG>			$debug & 0x01
#DBG>		and	print STDERR "Don't need token.\n";
        }

            defined($act)
        and do {

                $act > 0
            and <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6065	6238	
==>DEFAULT};
#DBG>			$debug & 0x01
#DBG>		and	print STDERR "Don't need token.\n";
        }

            defined($act)
        and do {

                $act > 0
            and <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	3678	3789	
==>or $name must be hash reference'\n";
            $out .= "        if defined(\$init{'$name'}) && ref(\$init{'$na <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573028	573120	
==>eter, name, {{\@2}});\n  {{\@1}} = pmc_new_init(interpreter, enum_class_ParrotClass, name);\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573938	574030	
==>eter, name, {{\@2}});\n  {{\@1}} = pmc_new_init(interpreter, enum_class_ParrotClass, name);\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1061	1176	
==>t_>' prefix.

Used by C<Parrot::Op>'s C<func_name()> to individuate op function names.

=cut

sub prefix 
{ 
    ret <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	126	259	
==>se
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/File.pm 19606 2006-05-30T15:08:05.048089Z cok <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	2305	2446	
==>mc);

    if ($conf->options->get('ask')) {
        print <<"END";


The following PMC files are available:
  @pmc
END
        {
            $ <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4673	4775	
==>ment, given as --destination=DIRECTORY
    shift(@pmcs) =~ /--destination=(.*)/
      or die "copy comm <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4777	4879	
==>ment, given as --destination=DIRECTORY
    shift(@pmcs) =~ /--destination=(.*)/
      or die "copy comm <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	42534	42647	
==>rbatim_format appends a newline to $i: $p->[$i]\n";
    $p->[$i] .= "\n";
     # Unlike with simple Verbatim block <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1722	1830	
==>ent {
    my ($self, $distance, $failLabel) = @_;
    die "invalid distance" if $distance =~ /[^\d\-]/;
    r <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1475	1583	
==>ent {
    my ($self, $distance, $failLabel) = @_;
    die "invalid distance" if $distance =~ /[^\d\-]/;
    r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653488	653593	
==>))\n        real_exception(interpreter, resume, METH_NOT_FOUND,\n            \"Method '%s' not found\", st <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654649	654754	
==>))\n        real_exception(interpreter, resume, METH_NOT_FOUND,\n            \"Method '%s' not found\", st <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026512	1026622	
==>80 \"src/ops/sys.ops\"\n   {{\@1}} = sysinfo_i(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1027269	1027379	
==>80 \"src/ops/sys.ops\"\n   {{\@1}} = sysinfo_i(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	1394	1506	
==>code($srm, $_, $metavars);
}

# Generate final translator code.
$pir .= generate_final_pir($srm, $metavars);

# F <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19042	19209	
==>nless', [ $matchcount, $lastback ]),
               aop('add', [ $matchcount, -1 ]),
               aop('goto', [ $R_back ]),
     $check => aop('lt', [ $matchcount, $m <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20457	20595	
==>nless', [ $matchcount, $lastback ]),
               aop('add', [ $matchcount, -1 ]),
               aop('goto', [ $R_back ]),
      $back = <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16313	16429	
==>int STDERR Dumper(\@expr);
		$whole.=join(' ', map { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair unary -, funct <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5124	5251	
==>$passLabel);

    while (@$incexc) {
        my $first = shift(@$incexc);
        my $last = shift(@$incexc);
        if (define <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4799	4926	
==>$passLabel);

    while (@$incexc) {
        my $first = shift(@$incexc);
        my $last = shift(@$incexc);
        if (define <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	4133	4265	
==>, $source];
	    }
	    elsif ($source =~ /lambda\s(.*?):/) {
		my $f = "lambda_$lambda_count";
		print "#xxxxxxxxx $f\n";
		my $args <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683017	683272	
==>ops/pmc.ops\"\n    {{\@1}} = {{\@2}}->vtable->shift_string(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504381	504773	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 580,
                  "ARGS" => [
                              "i",
                              " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241526	241884	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 281,
                  "ARGS" => [
                              "i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505236	505559	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 581,
                  "ARGS" => <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	16724	16912	
==>back) = @_;

    my $try = $self->genlabel('dalt_try');
    my $fail = $self->genlabel('dalt_fail');
    my $back = $self->genlabel('dalt_back');
    my $next = $self->genlabel('dalt_next') <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	7552	7659	
==>IN PROGRAM:
#

@ARGV = qw(-) unless @ARGV;

foreach (@ARGV) {
    compile_file($_)
}

exit 0;

__END__

=beg <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	15994	16184	
==>], $match[18]-$match[2],	# MATCH
			@match[18,19],				# REMAINDER
			@match[0,1],				# PREFIX
			@match[2..17],				# THE BITS
			@match[20,21],				# ANY FILLET?
		       );
};

sub _match_quo <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	4498	4648	
==>\n";
    }

    # Add failure.
    $pir .= <<'PIR'
FAIL:
    $P0 = new .Exception
    $P0["_message"] = "No body supplied for built-in method"
    thro <==
2	/Users/nnunley/parrot/languages/dotnet/tools/benchmark.pl	270	463	
==>ake class-library`;
		my $end = time;
		my $diff = $end - $start;
		push @times, $diff;
		print "$diff (S: $start E: $end)\n";
	}
	my $sum = 0;
	$sum += $_ foreach @times;
	my $av = $sum <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	8391	8517	
==>eader) = @_;

    my $ret = $method->{type};
    my $meth= $method->{meth};
    my $args= $method->{parameters};
    $args = ", <==
2	/Users/nnunley/parrot/lib/Test/More.pm	31928	32027	
==>milar to eq_array(), except the order of the elements is B<not>
important.  This is a deep check, bu <==
2	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	794	1144	
==>ame.cs";
	return 1;
}

# This translates a .NET DLL or EXE to a PBC.
# ###########################################
sub translate($$) {
	my $net_name = shift;
	my $out_name = shift;
	
	# Attempt to translate.
	my $output = `$N2PConfig::parrot net2pbc.pbc -q -s -p $net_name > $out_name.pir`;
	if ($output) {
		print "translate failed:\n$output";
		retu <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	38629	38744	
==>e in meta-variables. Yes, this really is the least evil way I
	# can think of to do it.
	$ins =~ s/(\$\{\w+\})/
		"\ <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	959	1125	
==>_formatted {
    my ($self) = shift;

    my $level    = 0;
    my $verbatim = 0;

    # Step one - indent, and add in extra blank lines.

    my @output;
    my $verb <==
2	/Users/nnunley/parrot/tools/dev/manicheck.pl	164	356	
==>/manicheck.pl 19607 2006-05-30T15:23:20.183054Z coke  $
################################################################################

=head1 NAME

tools/dev/manicheck.pl - Check the MANIFES <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	4750	4922	
==>Flags we'll set as we go through key/value pairs.
    my ($has_code, $has_class, $has_push, $has_pop, $has_args, $has_trans,
	    $has_typeinfo);

    # Iterate over keys an <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5051	5155	
==>copy("$_$LOAD_EXT", $dest) or die "Copy $_$LOAD_EXT failed ($?)\n";

        # Execute permissions on lib <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5262	5366	
==>copy("$_$LOAD_EXT", $dest) or die "Copy $_$LOAD_EXT failed ($?)\n";

        # Execute permissions on lib <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471619	472186	
==>v",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 541,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 394 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	474583	475084	
==>v",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 544,
                  "ARGS" => [
                              "n",
                              "nc",
                              "n"
                            ],
                  "BODY" => "#line 403 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785622	786111	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 887,
                  "ARGS" => [
                              "i",
                              "p",
                              "ki"
                            ],
                  "BODY" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523790	524037	
==>RGS" => [
                              "n",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 744 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	67351	67678	
==>" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "collect",
                  "FLAGS" => "",
                  "ARGDIRS" => [],
                  "TYPE" => "function",
                  "CODE" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485145	485650	
==>v",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 555,
                  "ARGS" => [
                              "n",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 455 \"s <==
2	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	292	445	
==>s

=over 4

=cut

package Parrot::BuildUtil;

use strict;
use warnings;

=item C<parrot_version()>

Determine the current version number for Parrot from t <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	61112	61211	
==>osing bracket: "%c">

C<extract_bracketed>, C<extract_quotelike> or C<extract_codeblock> encountered <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27686	27806	
==>me'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end translation\n";

		# Emit code to fix up the stack ty <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37235	37355	
==>me'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end translation\n";

		# Emit code to fix up the stack ty <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53257	53357	
==>::UncondReject($lookahead,$line,$code);
				$prod and $prod->additem($item)
				      or  _no_rule($c <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54966	55066	
==>::UncondReject($lookahead,$line,$code);
				$prod and $prod->additem($item)
				      or  _no_rule($c <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19726	19879	
==>or in type $type[CURR]/$syms[CURR] (source line $sourceline)" unless $type[CURR] eq "BARE";
			$name=$syms[CURR];
			feedme;
			die "Expected 'as' got $sy <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244024	244310	
==>are(interpreter, l, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244956	245242	
==>are(interpreter, l, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1080	1168	
==>ode_t*)cur_opcode + CONTEXT(interpreter->ctx)->pred_offset)

#  define opcode_to_prederef <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1210	1298	
==>ode_t*)cur_opcode + CONTEXT(interpreter->ctx)->pred_offset)

#  define opcode_to_prederef <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196358	196466	
==>,
                  "BODY" => "#line 335 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, { <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8843	9062	
==>lhs}, $semval ]);
                $$check='';
                next;
            };

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Forced Error recovery.\n";

            $$check='';

        };

        #Err <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8446	8653	
==>lhs}, $semval ]);
                $$check='';
                next;
            };

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Forced Error recovery.\n";

            $$check='';

        };

        #Err <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10630	10735	
==>'Th', 'ss',
'a', 'a', 'a', 'a', 'a', 'a', 'ae', 'c', 'e', 'e', 'e', 'e', 'i', 'i', 'i', 'i',
'd', 'n', 'o' <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	68323	68476	
==>"$1\"
			           or forget to comment it out?");
		}

		if ($lookaheadspec =~ tr /././ > 3)
		{
			$lookaheadspec =~ s/\A\s+//;
			$lookahead = $lookah <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3891	4008	
==>) {
    my $pmc_type = $dest_ident->type->imcc_pmc();
    my $temp_pmc = $compiler->temp_pmc();

    $compiler->emit(" <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	7219	7347	
==>D__
# The following symbols are available in a C89 Hosted Implementation
# (not sure if I got this right- it came from a C99 refe <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	11300	11423	
==>f $incexc->[0] > 0;
    return [ ] if @$incexc == 1;
    shift @$incexc;
    $incexc->[0]++;
    return $incexc;
}

sub rewr <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	669	789	
==>em C<core_type()>

The core type is C<PARROT_CGOTO_CORE>.

=cut

sub core_type
{
    return 'PARROT_CGOTO_CORE';
}

=item <==
2	/Users/nnunley/parrot/config/auto/msvc.pm	191	286	
==>d1 DESCRIPTION

Determines whether the C compiler is actually C<Visual C++>.

=cut

package auto <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	6623	6759	
==>me;
    s/{{=([^*][^{]*?)}}/  $trans->goto_address($1); /me;

    s/{{\^(-?\d+)}}/      $1                        /me;
    s/{{\^\+([^{]* <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37116	37231	
==>atchrule,
	}, $class;
}

sub code($$$$)
{
	my ($self, $namespace, $rule) = @_;
	
	my ($subrule, $repspec, $min, $max <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	353	477	
==>R.say("Parameter to lib.import() must be directory, not file");
        }
        # add to the @*INC, but do not allow duplic <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	8464	8620	
==>} else {
        return @sub;
    }
}

package Regex::Ops::Tree::scan;
sub maxlen { undef };

# $ (not R$, just $)
package Regex::Ops::Tree::atend;

sub minl <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	23281	23484	
==>s, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, @{ $expr1->[1] };
    my $lbl1 = new_label($parser);
    if ( $op eq 'and' ) {
        push @opcodes, new BranchIfOp( <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	13511	13692	
==>n ];
            }
        }
    }
}

sub BuildAssigns {
    my ( $parser, $vars, $exprs ) = @_;
    my @opcodes1 = ();
    my @opcodes2 = ();
    my @opcodes3 = ();
    w <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	8494	8636	
==>tally
    # store, so we turn it into a boolean.
    $test = $test ? 1 : 0;

    unless( $self->{Have_Plan} ) {
        require Carp;
        C <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	12281	12498	
==>\);
        \s+{{\+=\d}}/xm) {
            $jit_func = "Parrot_jit_vtable_$1$3$4$5_op";
            $extern = vtable_num($2);
            #print $op->full_name .": $jit_func $extern\n";
        }
        # some special <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19688	19865	
==>ult, \@opcodes ];
}

sub BuildVoidFunctionCall {
    my ( $parser, $expr )    = @_;
    my ( $defn,   $opcodes ) = @{$expr};
    my $call = pop @{$opcodes};
    my $ass  = <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	18384	18486	
==>ing_codes(@_);
  }
  
  if( $self->_remap_sequences($treelet) ) {
    $self->_treat_Zs($treelet);  # Mi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	931	1027	
==>, parsing a "=head1 ..." line will give you
a start-token with the tagname of "head1", token(s) f <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1359	1455	
==>, parsing a "=head1 ..." line will give you
a start-token with the tagname of "head1", token(s) f <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Posix.pm	422	525	
==>ot::Test::per_test( '.bc', $count );
    my $test_prog_args = $ENV{TEST_PROG_ARGS} || '';

    my $posix <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15204	15304	
==>DEBUG > 2 and print "== $_[0]\n";
  push @{ $self->{'token_buffer'} },
       $self->{'text_token_cla <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600055	600151	
==>Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(clas <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601131	601227	
==>Parrot_class_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(clas <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	73364	73495	
==>setlinenum} = $_[0]->{lastlinenum};
	$_[0]->{fulltext} = $text;
	$_[0]->{fulltextlen} = length $text;
	$_[0]->{deferred} = [];
	$_[0 <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	5122	5286	
==>\#\}])/) {
            # skip the last line of the func or cpp directives.
            $f = undef if ($1 eq "}");
            next;
        }

        if (defined($f <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	2047	2197	
==>code:"dyadic:\u2228"]  = <<"END_PIR"             # or
    $I100 = %1
    $I101 = %2
    $I100 = or $I100, $I101
    %1 = $I100
END_PIR

    $P0[unicode <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	9262	9591	
==>he
same name in the package.  (See Example 2.)

Each element's type can be scalar, array, hash, or class.

=head2 The C<struct()> function

The C<struct> function has three forms of parameter-list.

    struct( CLASS_NAME => [ ELEMENT_LIST ]);
    struct( CLASS_NAME => { ELEMENT_LIST });
    struct( ELEMENT_LIST );

The first an <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21262	21352	
==>>{"lookahead"}<0?'if':'unless') . ' (defined $_tok)
		{'.($::RD_NO_TRACE?'':'
			Parse::Rec <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39997	40235	
==>}'
				: 'q{'.$self->describe.'}' ) . ';
		$Parse::RecDescent::lastunexpected = $text;

		$_tok = undef;
		OPLOOP: while (1)
		{
		  $repcount = 0;
		  my  @item;
		  ';

	if ($self->{type} eq "leftop" )
	{
		$code .= '
		  # MATCH LEFTARG <==
2	/Users/nnunley/parrot/config/inter/lex.pm	1541	1679	
==>se);

    unless ($prog) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    if ($conf->opt <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	1555	1693	
==>se);

    unless ($prog) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    if ($conf->opt <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924729	925237	
==>E" => "new",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1041,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 342 \"src/ops/string.ops\"\n  {{\@1}} = string_make_empty(interpreter, enu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	923939	924373	
==>E" => "new",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1040,
                  "ARGS" => [
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 3 <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39721	39827	
==>y_p,
  'write' => \&_op_write,
  'display' => \&_op_display,
  'newline' => \&_op_newline,
  'write-char' = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	39886	40040	
==>ise treat) unindented or overlong lines

          }
        }
        
        # Now the VerbatimFormatted hoodoo...
        if( $self->{'accept_codes'} a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106168	1106271	
==>Y" => "#line 352 \"src/ops/experimental.ops\"\n    int typ = {{\@2}};\n    if (typ < 1 || typ >= interpr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107144	1107247	
==>Y" => "#line 352 \"src/ops/experimental.ops\"\n    int typ = {{\@2}};\n    if (typ < 1 || typ >= interpr <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	13213	13370	
==>"?" in place of characters whose Unicode
value is over 255.

=item $Name2character_number{I<name>}

Maps from names (as in C<EE<lt>I<name>E<gt>>) like "eacute <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7300	7418	
==>sif ($access eq 'const') {
          my $const = Jako::Construct::Declaration::Constant->new($block, $type, $ident, $va <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	2398	2537	
==>about the op.

The classification of ops is intended to facilitate the selection of
suitable ops for a Parrot safe mode, or for inclusion in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	674053	674569	
==>pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 755,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 449 \"src/ops/pmc.ops\"\n    {{\@1}} = {{\@2}}->vtable->pop_string(interpreter, {{\@2}});\n    {{+=3 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	120	322	
==>version 1.05.
#
#        Don't edit this file, use source file instead.
#
#             ANY CHANGE MADE HERE WILL BE LOST !
#
####################################################################
p <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	118	313	
==>version 1.05.
#
#        Don't edit this file, use source file instead.
#
#             ANY CHANGE MADE HERE WILL BE LOST !
#
####################################################################
p <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3678	3823	
==>NG'} || '') =~ m/^([a-fA-F0-9]{4})$/s ? hex($1)
                                      # yes, tolerate even more hex!
    : '1033'
  );

  $new->he <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3822	3939	
==>'ne', 'I16', 'I2', 'apply_ITER'],
  ['apply_CALL',  'set', 'I0', 0],
  ['',            'invoke'],
  ['apply_HELP',  'P <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	2432	2579	
==>= shift;

    my %ops;
    my $template;

    open IN, '<', $file or die "Can't open file $file: $!";
    while ( my $line = <IN>) {
        if ($li <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19611	19870	
==>RS" instead of "AUTHOR" too.)

=item $description_name = $parser->get_description

This works like get_title except that it returns the contents of the
"=head1 PARAGRAPH\n\nParagraph...\n" section, assuming that that section
isn't terribly long.

=item $versio <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1054	1281	
==>_test.def',
    );

    if ($is_msvc) {

        # Check the output of cl.exe to see if it contains the
        # string 'Standard' and remove the -O1 option if it does.
        # This will prevent the 'optimization is not avail <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7133	7224	
==>} = "$"
${STEMP0} = ${LOADTYPE}["reg_type_short"]
${DEST0} = concat ${STEMP0}
${STEMP0} = st <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4955	5046	
==>} = "$"
${STEMP0} = ${LOADTYPE}["reg_type_short"]
${DEST0} = concat ${STEMP0}
${STEMP0} = st <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	923709	923972	
==>_one, 0);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944964	945227	
==>> "charsetname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945773	946036	
==>> "charsetname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	8790	8892	
==>&OLDOUT" or die "Can't restore  stdout" if $out;
    open  STDERR, ">&OLDERR" or die "Can't restore  st <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8309	8410	
==>&OLDOUT" or die "Can't restore  stdout" if $out;
    open STDERR, ">&OLDERR" or die "Can't restore  st <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	25756	25937	
==>chOp( $parser,
        'result' => $l_end,
    );
    push @opcodes, new LabelOp( $parser,
        'arg1' => $l_next,
    );

    for my $elseif ( @{$elseifs} ) {
        $co <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26269	26416	
==>chOp( $parser,
            'result' => $l_end,
        );
        push @opcodes, new LabelOp( $parser,
            'arg1' => $l_next,
        ) <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	3662	3821	
==>nclude "parrot/parrot.h"
#include "parrot/extend.h"
#include "parrot/dynext.h"
EOC
    foreach my $pmc (values %{$self->{pmcs}}) {
        my $name = lc $pmc->{ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9308	9447	
==>nclude "parrot/parrot.h"
#include "parrot/extend.h"
#include "parrot/dynext.h"
EOC
    foreach my $parents ($self->{class}, @{ $self->{paren <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	2444	2575	
==>ify($char);
        print "/* @{[$char-$len+1]}-$char */\n" if $char % $len == $len-1;
    }
    print "};\n";
}



#
# create 'src/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107229	107564	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108083	108418	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	5707	5871	
==>rrors
{
	my $self = shift;
	
	$self->check_pod;
	
	return $self->{POD_ERRORS_COUNT} || 0;
}

=item C<pod_errors($options)>

Gives you a description of any POD errors <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	4629	4828	
==>t ('', 'set',[$return,$value]);
    }
    else { # assume its a symbol
      $self->_add_inst ('', 'new',[$return,'.String']);
      $self->_add_inst ('', 'set',[$return,"\"$value\""]);
    }
  }
  el <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	44536	44628	
==>*(?:\\\\.[^/\\\\]*)*/)?)';
my $OPTIONAL		= '\G\((\?)'.$SIMPLEPAT.'\)';
my $ANY			= '\G\((s\?) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8832	8934	
==>ckFile_FixupEntry *fe = PackFile_find_fixup_entry(interpreter,\n\t    enum_fixup_label, label);\n    if <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9948	10050	
==>ckFile_FixupEntry *fe = PackFile_find_fixup_entry(interpreter,\n\t    enum_fixup_label, label);\n    if <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18665	18766	
==>push @args, Jako::Construct::Expression::Value->new($block, $self->require_value);
          last if $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19691	19792	
==>push @args, Jako::Construct::Expression::Value->new($block, $self->require_value);
          last if $ <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	2947	3053	
==>tval     = $conf->data->get('iv');
    my $intvalsize = $conf->data->get('intvalsize');

    # Get HUGEINTV <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840169	840255	
==>otate_entries(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}});\n  {{+=2}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840864	840950	
==>otate_entries(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}});\n  {{+=2}} <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	7965	8082	
==>ip $reason" if $reason;
    $out .= "\n";

    $self->{Skip_All} = 1;

    $self->_print($out) unless $self->no_header <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	594	694	
==>ynopsis.

=item C<--no-lines>

Do not generate C<#line> directives in the generated C code.

=item C< <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	2207	2314	
==>y.c iso-8859-1.c tables.c unicode.c',
             'chmod' => 'perl -MExtUtils::Command -e ExtUtils::Command <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5207	5343	
==>t2);
		return(<<CODE, $result);
	# XOR $a1, $a2
	set $result, 0.0
	eq $a1, $ot1, EQ_${eqnum}_a
	inc $result
EQ_${eqnum}_a:
	eq $a2, $ot2, <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10052	10186	
==>e_file}{$function} %" : "n/a" ]}</a></td>
             <td><a href="$outfile_base.branches.html#$function">@{[$function_branch_coverage <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	521	640	
==>ep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    my $cc        = $conf->data->ge <==
2	/Users/nnunley/parrot/config/auto/readline.pm	533	652	
==>ep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    my $cc        = $conf->data->ge <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	235	337	
==>acter
  %Name2character_number
  %Latin1Code_to_fallback
  %Latin1Char_to_fallback
  e2char
  e2charnum <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	11959	12189	
==>[],
		"uncommit" => $uncommit,
		"error"    => $error,
		"line"     => $line,
		strcount   => 0,
		patcount   => 0,
		dircount   => 0,
		actcount   => 0,
	}, $class;
}

sub expected ($)
{
	my $itemcount = scalar @{$_[0]->{"items"}} <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6836	6958	
==>pmc) = @_;

    if (needs_build("$pmc.c", "$pmc.pmc")) {
        run("$PMC2C --c $pmc.pmc")
          or die "pmc2c code ge <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7047	7169	
==>pmc) = @_;

    if (needs_build("$pmc.c", "$pmc.pmc")) {
        run("$PMC2C --c $pmc.pmc")
          or die "pmc2c code ge <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	104	282	
==>ltin";

print <<EOH;
# This file automatically generated by $0.

EOH

# commands that are in Tcl's :: namespace directly
my @static_cmds  = pir_cmds_in_dir($static_dir);
# subrout <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9824	9929	
==>($block, $self->require_value);
      my $op    = $self->require_infix_rel->text;
      my $right = Jako:: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25360	25465	
==>($block, $self->require_value);
      my $op    = $self->require_infix_rel->text;
      my $right = Jako:: <==
2	/Users/nnunley/parrot/tools/dev/as2c.pl	967	1113	
==>/ /g;
	    my $len = length($bytes);
	    my @pairs = ($bytes =~ m/../g);
	    print "    ". join '', map {"0x$_, "} @pairs;
	    print " " x (3*(8 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	1021	1168	
==>m('', 'docs/parrot.pod'),
		),
		$self->new_group('Specific Documentation', '',
			$self->new_item('', 'docs/configuration.pod'),
			$self->new_item <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2234	2334	
==>MAND";
cvs -z3 -d :pserver:anonymous:\@tcl.cvs.sourceforge.net:/cvsroot/tcl co -d $DIR tcl/tests
END_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207140	207464	
==>YPE" => "function",
                  "CODE" => 244,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 394 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interprete <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	885	1169	
==>ations:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, I1
                              #
print "Estimated ops: $I5\n <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	885	1169	
==>ations:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, I1
                              #
print "Estimated ops: $I5\n <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2425	2527	
==>e = $right->type;
  }

  $self->INTERNAL_ERROR("No type for dest!")  unless defined $dest_type;
  $self <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2347	2449	
==>e = $right->type;
  }

  $self->INTERNAL_ERROR("No type for dest!")  unless defined $dest_type;
  $self <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594519	594930	
==>GS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 674,
                  "ARGS" => [
                              "p",
                              "kc",
                              "k <==
2	/Users/nnunley/parrot/examples/benchmarks/freeze.pl	749	887	
==>w time %.6f\n", $e-$s;

#$s = time();
#my $c = dclone \@a;
#$e = time();
#printf " clone time %.6f\n", $e-$s;

print "Image len ", length($ <==
2	/Users/nnunley/parrot/config/auto/va_ptr.pm	804	962	
==>own va_ptr type";
        }
        $va_type = 'ppc';
    } else {
        $va_type = 'x86';
    }
    cc_clean();
    $self->set_result($va_type);
    $conf-> <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	16014	16143	
==>re no params
        # call state var not needed if there are no params and a void return
        $call_state = '' if 'v' eq $retu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452762	453124	
==>[
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 519,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 230 \"src/ops/m <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	3940	4175	
==>sion subs\n";
    for my $type (keys %types) {
        next unless my $help = $helpers{$type};
        
        $code .= emit("  .local pmc $help");
        $code .= emit("  .get_from_HLL($help, '_tcl', '$help')");
    }
    
    return <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	15224	15417	
==>ble_regex = $regex;
    }
    # Check for '/foo/' or 'm,foo,'
    elsif( ($re, $opts)        = $regex =~ m{^ /(.*)/ (\w*) $ }sx           or
           (undef, $re, $opts) = $regex =~ m,^ m([^\w <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610108	610333	
==>",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 478 \"src/ops/object.ops\"\n    {{\@1}} = VTABLE_get_attr_str(interpreter, {{\@2}}, {{\ <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8886	8994	
==>8e,/* 15 */
FF,$b,$c,$d,$a,$_[19],22,0x49b40821,/* 16 */ 
GG,$a,$b,$c,$d,$_[5],5,0xf61e2562,/* 17 */
GG,$d,$a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	337953	338157	
==>S" => [
                              "p"
                            ],
                  "BODY" => "#line 103 \"src/ops/io.ops\"\n  {{\@1}} = PIO_STDIN(interpreter);\n  {{+=2}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644433	644968	
==>,
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 720,
                  "ARGS" => [
                              "i",
                              "p",
                              "kic"
                            ],
                  "BODY" => "#line 199 \"src/ops/pmc.ops\"\n  {{\@1}} = {{\@2}}->vt <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13181	13277	
==>items}},
			Parse::RecDescent::UncondReject->new(0,0,'<reject>');
	}
	elsif (@items==1 && ($items <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478947	479203	
==>\n  {{\@1}} = floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479839	480095	
==>\n  {{\@1}} = floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16509	16691	
==>5
	a=a+1
loop
print a
a=0
do until a>4
	a=a+1
loop
print a
a=0
do
	a=a+1
loop while a<5
print a
a=0
do
	a=a+1
loop until a>4
print a

' Branch test, all OK in sequence
PRINT "1 in mod <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	5964	6125	
==>5
	a=a+1
loop
print a
a=0
do until a>4
	a=a+1
loop
print a
a=0
do
	a=a+1
loop while a<5
print a
a=0
do
	a=a+1
loop until a>4
print a


' Swap
a$="Hello"
b$="Goodb <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42338	42527	
==>exception(interpreter, EXCEPT_exit, {{\@1}});\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43028	43217	
==>exception(interpreter, EXCEPT_exit, {{\@1}});\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3250	3350	
==>ey",
    'sc' => "CONST(%ld)->u.string",
    'kc' => "CONST(%ld)->u.key",
    'kic' => "cur_opcode[%l <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2160	2256	
==>ey",
  'sc'  => "CONST(%ld)->u.string",
  'kc'  => "CONST(%ld)->u.key",
  'kic' => "cur_opcode[%l <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	1986	2169	
==>matillos,
and ginger root.  You can even do it with a Braun hand "mixer", if you
chop things finer to start with, and work at it.

In a saucepan set over moderate heat, warm the oil un <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	5615	5792	
==>symbol, $table{$symbol};
  }
}


###############################################################################

=head2 BLOCK->find_symbol(NAME)

Search for a symbol, starting w <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	5567	5789	
==>eys %table) {
    printf STDERR "%-30s: %d\n", $symbol, $table{$symbol};
  }
}


###############################################################################

=head2 BLOCK->find_symbol(NAME)

Search for a symbol, startin <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	59939	60144	
==>.yp"
{
            [ BuildLiteral( $_[0], $_[1], 'key' ), $_[3] ];
        }
	],
	[#Rule 112
		 'field', 1,
sub
#line 599 "Lua\lua51.yp"
{
            [ $_[1] ];
        }
	],
	[#Rule 113
		 ' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	2502	2683	
==>optionally one or two teaspoons of tahini.
You can let it simmer longer, depending on how much softer you want the
garbanzos to get.

Serve over rice, like a curry.

Yields 5 to 7 se <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	3418	3576	
==>ub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $type  = $self->type->imcc;
  my $name  = $self->name;
  my $value = $self->value->value;

  if ( <==
2	/Users/nnunley/parrot/Configure.pl	5295	5503	
==>p matching description
   --nomanicheck        Don't check the MANIFEST
   --prefix             Set the installation prefix

   --ask                Have Configure ask for commonly-changed info

Compile Option <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	2141	2265	
==>hift;

  my ($root, $fh) = @_;

  $fh = FileHandle->new(">-") unless defined $fh;

  $self->{FH} = $fh;

  $root->compile($se <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	872	973	
==>ainst other interpreters.

=head1 CONFIGURATION

You must specify paths to executables in a configurat <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5701	5880	
==>FH} "$op->{arg1}->{symbol}(";
        my $first = 1;
        foreach ( @{ $op->{arg2} } ) {
            print {$FH} ", " unless ($first);
            print {$FH} "$_->{symbol}" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141271	141568	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 173,
                  "ARG <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	8793	8900	
==>back

=head1 SEE ALSO

=over 4

=item C<Parrot::Docs::Directory>

=item C<Parrot::Docs::POD2HTML>

=item C<P <==
2	/Users/nnunley/parrot/config/init/headers.pm	403	506	
==>use ExtUtils::Manifest qw(maniread);

our $description = 'Determining nongenerated header files';
our @a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803201	803407	
==>,
                              "kc",
                              "sc"
                            ],
                  "BODY" => "#line 467 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed(inter <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	27448	27596	
==>elf->{'content_seen'} ||= 1;
      $self->_handle_element_start(($scratch = 'over-' . $list_type), $para->[1]);
      
    } elsif($para_type eq '=ba <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10109	10199	
==>[7],16,0xd4ef3085,/* 43 */
HH,$b,$c,$d,$a,$_[10],23,0x4881d05,/* 44 */
HH,$a,$b,$c,$d,$_[13 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349214	349310	
==>path, \"+<\");\n  /* string_cstring_free(path); */\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(inter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350216	350312	
==>path, \"+<\");\n  /* string_cstring_free(path); */\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(inter <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	1467	1751	
==>e "Nothing to restore"
    unless defined @_;
  foreach my $reg (@_) {
    next if grep { $_ eq $reg } qw (none);
    $reg =~ /^(\w)(\d+)/;
    die "Missing register type"
      unless defined $1;
    if ($self->{regs}->{$1}{$2}) {
      $self->{regs}->{$1}{$2} = 0;
    }
  }
}

sub _ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22349	22442	
==>nsym();

  my $temp_0 = $self->_generate($node->{children}[1]);
  $return = $self->_constant(1 <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22850	22943	
==>nsym();

  my $temp_0 = $self->_generate($node->{children}[1]);
  $return = $self->_constant(1 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	31382	31587	
==>=> $self->startup($num_groups),
                     @R_ops,
                     @save_rxlocals,
                     aop('getstart', [ '<tmp>', "0" ]),
                     aop('pushint', [ '<tmp>', "save <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8741	8872	
==>y arguments to popindex!";
    }

    $reg = value($reg);

    my $L_fallback = $self->output_label_use($fallback);
    return ("<rx <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719383	719779	
==>> ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 807,
                  "ARGS" => [
                              "p",
                              "n"
                            ],
                  "BODY" => "#line 133 \ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523544	524009	
==>S" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 604,
                  "ARGS" => [
                              "n",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 744 \"src/ops/math.ops\"\n  {{\@1}} = { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161593	161964	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 195,
                  "ARGS" => [
                              "n",
                              " <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1688	1793	
==>$ctx);
    return $cgen->output($list_regex->{code}, $ctx);
}

sub compile {
    my ($expr, $ctx, $pass_la <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6534	6636	
==>= elements ${STYPES}
pre_call_PLOOP_${CURIC}:
if ${ITEMP0} == 0 goto PRE_CALL_END_${CURIC}
dec ${ITEMP0 <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	35786	35883	
==>d, the missing (or extras)
will be considered failures.  If no tests were ever run Test::Builder
w <==
2	/Users/nnunley/parrot/lib/Test/More.pm	33857	33954	
==>d, the missing (or extras)
will be considered failures.  If no tests were ever run Test::Builder
w <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	22718	22866	
==>the output() filehandle.

=end _private

=cut

sub _print {
    my($self, @msgs) = @_;

    # Prevent printing headers when only compiling.  Mostly f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846208	846620	
==>hr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 960,
                  "ARGS" => [
                              "s",
                              "i"
                            ],
                  "BOD <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	3010	3130	
==>ofiles ) {
        next if $ofile =~ m/^\Qsrc$PConfig{slash}ops\E/;

        my $cfile = $ofile;
        $cfile =~ s/\Q$P <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	6444	6567	
==>8658,
 'dArr'     , 8659,
 'hArr'     , 8660,
 'forall'   , 8704,
 'part'     , 8706,
 'exist'    , 8707,
 'empty'    , 8709 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117392	117685	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TY <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118130	118423	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TY <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	419	532	
==>b new
{
  my $class = shift;
  my ($block, $ident) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNI <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	419	532	
==>b new
{
  my $class = shift;
  my ($block, $ident) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNI <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3119	3214	
==>et.
	$vars=1;
	if ($noreloop) {
		push @{$code{$seg}->{code}}, "\t#ne \$I0, $vars, ERR_INPFIELDS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426824	427093	
==>DE" => 490,
                  "ARGS" => [
                              "ic",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 64 \"src/ops/math.ops\"\n  mmd_dispatch_v_pi(interpreter <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17672	17763	
==>_$label"]);
  $self->_add_inst ('', 'inc',[$return]);
  $self->_add_inst ('', 'set',[$list,$ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16121	16222	
==>l = $self->_gensym();

  _num_arg ($node, 1, 'null?');

  my $temp = $self->_generate(_get_arg($node,1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748833	748921	
==>ine 199 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_number_native(interpreter, {{\@1}}, { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749617	749705	
==>ine 199 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_number_native(interpreter, {{\@1}}, { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408252	408352	
==>DY" => "#line 540 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_connect(interpreter, {{\@2}}, {{\@3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409151	409251	
==>DY" => "#line 540 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_connect(interpreter, {{\@2}}, {{\@3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290395	290951	
==>,
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 338,
                  "ARGS" => [
                              "i",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 940 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} == {{\@3}};\n  {{+=4}};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4216	4412	
==>ld])",
        'sc' => "((STRING *)cur_opcode[%ld])",
        'pc' => "((PMC *)cur_opcode[%ld])",
        'kc' => "((PMC *)cur_opcode[%ld])",
    );

    die "Unrecognized type '$type' for num '$nu <==
2	/Users/nnunley/parrot/tools/dev/pbc_header.pl	829	948	
==>, $compat_file or die "Can't read $compat_file";
    my @lines = <IN>;
    close IN;

    my $len = 10;
    my $fingerpr <==
2	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	755	858	
==>, $compat_file or die "Can't read $compat_file";
my @lines = <IN>;
close IN;

my $len = 10;
my $fingerpr <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	3919	4083	
==>s_flag );
    $ops->{OPS} = $Parrot::OpLib::core::ops;
    $ops->{PREAMBLE} = $Parrot::OpLib::core::preamble;
}
else {
    my %opsfiles;
    my @opsfiles;

    forea <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3602	3751	
==>tep"]
		ne \$I0, 0, DEBUGGER_STOP
		\$P1= \$P0["break"]
		\$I0= \$P1
		eq \$I0, 0, DEBUGGER_DONE  # No breakpoints
		\$S0= debline
		exists \$I0, \$P1 <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5787	5941	
==>ft), concat, logical (and, or, xor),
   repeat, eq, cmp */

/* &gen_from_enum(mmd.pasm) */

typedef enum {
EOM
    for my $entry (@{$vtable}) {
    next un <==
2	/Users/nnunley/parrot/config/inter/encoding.pm	772	1033	
==>ned $_ } @encoding);

    if ($conf->options->get('ask')) {
        print <<"END";


The following encodings are available:
  @encoding
END
        {
            $encoding_list = prompt('Which encodings would you like?', $encoding_list);
        }
    }

    # n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916508	917035	
==>ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1032,
                  "ARGS" => [
                              "i",
                              "s",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 289 \"src/ops/string. <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	25141	25338	
==>g;

use overload '""' => sub { "$_[0]->{error}, detected at offset $_[0]->{pos}" };

1;

__END__

=head1 NAME

Text::Balanced - Extract delimited text sequences from strings.


=head1 SYNOPSIS

 use <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	27714	27909	
==>ct_head->($text);


=head1 DESCRIPTION

The various C<extract_...> subroutines may be used to extract a 
delimited string (possibly after skipping a specified prefix string).
The search for the st <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319939	320046	
==>,
                  "BODY" => "#line 124 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (INTVAL)((Parrot_Int4)({{\@2}}) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320709	320816	
==>,
                  "BODY" => "#line 124 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (INTVAL)((Parrot_Int4)({{\@2}}) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70909	71141	
==>ad_lib(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71678	71910	
==>ad_lib(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	33696	34011	
==>,
                  "CODE" => 42,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 627 \"src/ops/core.ops\"\n  {{\@1}}->vtable->set_pointer(interpreter, {{\@1}}, (CUR_OPCODE + {{\@2}}));\n  {{+=3}};\ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	6633	6823	
==>") });

sub convert_to_rpn {
	my(@expr)=@_;

	#print STDERR "In RPN Convert...\n";
	# Convert to RPN
	my (@stack,@stream);
	my $i=-1;
	foreach my $item (@expr) {
		die "Expression too complex <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	12699	12829	
==>!defined $got || !defined $dont_expect ) {
        # undef only matches undef and nothing else
        my $test = defined $got || d <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	13143	13273	
==>!defined $got || !defined $dont_expect ) {
        # undef only matches undef and nothing else
        my $test = defined $got || d <==
2	/Users/nnunley/parrot/config/gen/config_h.pm	1018	1229	
==>/*',
        ignorePattern => 'PARROT_CONFIG_DATE',
        feature_file  => 1
    );

    my $hh = "include/parrot/has_header.h";
    open(HH, ">$hh.tmp")
        or die "Can't open has_header.h: $!";

    print <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421295	421591	
==>=> "bind",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422187	422483	
==>=> "bind",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	137	285	
==>HEADER

my %macros;
$macros{DOMAIN_ERROR} = <<'END_OF_PIR';
    .sym pmc throwable
    throwable = new .Exception
    throwable[0] = "DOMAIN ERROR\n" <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	2324	2548	
==>r_method = {
                class           => $1,
                method          => $2,
                unimplemented   => $3 ? 1 : 0,
                body            => ''
            };

        # Have we got a blank lin <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32072	32215	
==>for this.
            $para->[1]{'number'} = $expected_value;
            $self->whine(
              $para->[1]{'start_line'},
              "E <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32481	32624	
==>for this.
            $para->[1]{'number'} = $expected_value;
            $self->whine(
              $para->[1]{'start_line'},
              "E <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655959	656442	
==>IRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 733,
                  "ARGS" => [
                              "i",
                              "p",
                              "ki"
                            ],
                  "BODY" => "#line 324 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2} <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	14155	14261	
==>code, $return)=&{$opsubs{$sym}}($a1, $a2, "\$$optype$retcount", "", $ot1, $ot2);
					($optype)=$return=~/( <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	105	273	
==>21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::POD2HTML - POD to HTML formatter

=head1 SYNOPSIS

    use Parrot::Docs::POD2HTML;

=head1 DESCRIPTION

C<Par <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	261	465	
==>:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statement::Arithmetic;

use Carp;

use base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444332	444671	
==>",
                  "CODE" => 508,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 114 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interprete <==
2	/Users/nnunley/parrot/config/gen/cpu.pm	796	920	
==>rch') . "::auto";

    print "\t(cpu hints = '$hints') " if $verbose;

    eval "use $hints";
    unless ($@) {
        $hint <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	60842	60981	
==>he text, and didn't find it.

=item  C<No quotelike operator found after prefix: "%s">

C<extract_quotelike> didn't find one of the quotelik <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921041	921309	
==>rintf(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921934	922202	
==>rintf(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569069	569321	
==>DE" => 650,
                  "ARGS" => [
                              "i",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 218 \"src/ops/object.ops\"\n  {{\@1}} = { <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	1748	1833	
==>File.pm lib/Parrot/Op.pm lib/Parrot/OpTrans/CGP.pm lib/Parrot/OpLib/core.pm
	$(PERL) $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	15380	15637	
==>=> 54,
			'regex1' => 7
		}
	},
	{#State 37
		ACTIONS => {
			"(" => 10,
			'CHAR' => 4,
			"<" => 3,
			"[" => 14,
			'CODE' => 6,
			"." => 15
		},
		GOTOS => {
			'expr' => 55,
			'charclass' => 12
		}
	},
	{#State 38
		ACTIONS => {
			"?" => 23,
			'CHAR <==
2	/Users/nnunley/parrot/tools/dev/pbc_header.pl	324	460	
==>ges to
PBC_COMPAT) the fingerprint of existing bytecode files is invalidated.

This utility updates the version and finperprint informati <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	5298	5414	
==>nfo->{desc} = $desc;
    return $info;
}

sub describe_c_file {
    my($info,$text) = @_;
    my $comment_is_at_begin <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7535	7664	
==>nt("PUSHED[\%<<rx_tmp>>] INT: \%<$reg>$desc\n"),
               );
    }
    return $self->pushop . " <rx_stack>, $reg";
}

sub ou <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	18423	18616	
==>{$_}->[0];
        } else {
            # Strip first code from all the groups.
            foreach (@{$groups{$_}}) {
                $_->{'code'} =~ s/^\w{2} //;
            }

            # B <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43083	43342	
==>=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pushmark",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43726	43985	
==>=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pushmark",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	1529	1686	
==>tem('', 'tools/dev/run_indent.pl'),
        ),
        $self->new_group('Documentation', '',
            $self->new_item('', 'tools/dev/extract_file_descripti <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	14447	14555	
==>(_match_variable($textref,'\s*') ||
		    _match_quotelike($textref,'\s*',$patvalid,$patvalid) )
		{
			$patv <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600079	600182	
==>terpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = reada <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601155	601258	
==>terpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = reada <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2787	2891	
==>e should be skipped"
Label1:
   PRINT "5 back in module-level code"
   END
Sub1:
   PRINT "2 in subroutin <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16754	16858	
==>e should be skipped"
Label1:
   PRINT "5 back in module-level code"
   END
Sub1:
   PRINT "2 in subroutin <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3555	3667	
==>ent (@contents)
	{
		# We wait until now to do this because only now are all
		# the contents guaranteed to be in <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	8830	8931	
==>>{args}->[1]->minlen(); }
sub maxlen { $_[0]->{args}->[1]->maxlen(); }

package Regex::Ops::Tree::rule <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292932	293281	
==>,
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 341,
                  "ARGS" => [
                              "i", <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13381	13526	
==>et_arg($node,1));
  $self->_add_inst('','not',[$return,$return]);

  $return;
}

sub _op_boolean_p {
}

sub _op_eqv_p {
}

sub _op_eq_p {
}

sub _ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	663	945	
==>ups
{
    my $self = shift;
    my $dist = Parrot::Distribution->new;
    
    my @groups = ();
    my %titles = (
        'init' => 'Initialization Steps',
        'inter' => 'User Dialogue Steps',
        'auto' => 'System Test Steps',
        'gen' => 'File Creation Steps',
    ) <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	8416	8521	
==>tools/build/ops2c.pl>

=item F<tools/build/ops2pm.pl>

=item F<tools/build/pbc2c.pl>

=back

=head1 HISTOR <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	19200	19294	
==>tools/build/ops2c.pl>

=item F<tools/build/ops2pm.pl>

=item F<tools/build/pbc2c.pl>

=back

=c <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6694	6814	
==>l) = @_;
    my $fail = $self->output_label_use($failLabel);
    return ($self->dbprint("At end: %<rx_pos> >= %<rx_len>?\ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6338	6458	
==>l) = @_;
    my $fail = $self->output_label_use($failLabel);
    return ($self->dbprint("At end: %<rx_pos> >= %<rx_len>?\ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8693	8833	
==>ERR "**End of Error recovery.\n";
#DBG>				$dbgerror=0;
#DBG>			};

			    push(@$stack,
                     [ $$states[$$stack[-1][0]] <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8301	8436	
==>ERR "**End of Error recovery.\n";
#DBG>				$dbgerror=0;
#DBG>			};

			    push(@$stack,
                     [ $$states[$$stack[-1][0]] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393759	394387	
==>DIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 457,
                  "ARGS" => [
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 488 \"src/ops/io.ops\"\n  if ({{\@2}}) {\n    {{\@1}} = (INTVAL)PIO_tell(interpreter, {{\@2}});\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	8275	8415	
==>$level;

  my $message = $format ? sprintf($format, @args) : '<no message>';

  printf STDERR "%s [%s]: Debug message: %s\n", $self->file, $s <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	70081	70191	
==>/$OPTIONAL/gco || $grammar =~ m/$ANY/gco;
	my $min = 1;
	if ( $grammar =~ m/$MANY/gco
	  || $grammar =~ m/$EXAC <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	46666	46779	
==>arate pieces of the here document are successfully extracted and
concatenated.

In a list context, C<extract_quote <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45342	45641	
==>i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 58,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 737 \"src/ops/core.ops\"\n  Parrot_pop_mark(interpreter, {{\@1 <==
2	/Users/nnunley/parrot/tools/dev/symlink.pl	11	122	
==>perl -ws

#
# Create a symlink tree shadowing the Parrot source tree.  Nifty for
# having just one (read-only) c <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11395	11499	
==>xt0 Normal;}
{\*\cs10 \additive Default Paragraph Font;}
{\*\cs16 \additive \i \sbasedon10 pod-I;}
{\*\cs <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	37580	37676	
==>l opening tag that was matched (I<not> the pattern
that matched the tag). For example, if the ope <==
2	/Users/nnunley/parrot/config/init/hints/freebsd.pm	868	995	
==>ic_linking     => 1,
        parrot_is_shared        => 1,
        libparrot_shared        => 'libparrot$(SHARE_EXT).$(SOVERSION <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	1706	1833	
==>ic_linking     => 1,
        parrot_is_shared        => 1,
        libparrot_shared        => 'libparrot$(SHARE_EXT).$(SOVERSION <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3573	3721	
==>able only. If there is no
locally defined symbol with that name, then we return undef.

See also: find_symbol(), which will also search (recursively) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	817	913	
==>not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Ident is not!" if defin <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	845	941	
==>not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Ident is not!" if defin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296093	296192	
==>3}})\n    {{\@1}} = 1;\n  else\n    {{\@1}} = mmd_dispatch_i_pp(interpreter, {{\@2}}, {{\@3}}, MMD_E <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714541	714639	
==>NG * const s = {{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (s && string_length(inte <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715464	715562	
==>NG * const s = {{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (s && string_length(inte <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	17272	17421	
==>y core PMCs aren't dynamic
    return exists($pmc_types{$_[1]}) ? 0 : 1;
}

# XXX quick hack - to get MMD variants
sub get_super_mmds {
    my ($self, <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2664	2774	
==>*cur_opcode asm ("esi") = cur_op;
    register char *   _reg_base   asm ("edi");
#else
    opcode_t *cur_opcode <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3233	3343	
==>*cur_opcode asm ("esi") = cur_op;
    register char *   _reg_base   asm ("edi");
#else
    opcode_t *cur_opcode <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	12113	12259	
==>ddle(r)
end function
h=12
y=start(h)
print h

' Basic structure  6, Hello and PI
type newtype
	foo as integer
	bar as string
	narf as double
end ty <==
2	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	1311	1411	
==>x', substr ($fingerprint, $i*2, 2), ",\n";
}
print "};\n";

print << "EOF";

int
PackFile_check_finge <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	63535	63695	
==>ied to
modify the matched text to produce a matching closing tag (because
none was specified). It failed to generate the closing tag, almost
certainly because th <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921016	921162	
==>"\n    {{\@1}}=Parrot_psprintf(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921909	922055	
==>"\n    {{\@1}}=Parrot_psprintf(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	3039	3205	
==>r      => '/usr/lib',
                includedir  => '/usr/include',
                docdir      => '/usr/share/doc',
                'dry-run'   => 0,
              ) <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2424	2650	
==>urn
                last;
            s/^\\t//
                and $str .= "\t",      # horizontal tab
                last;
            s/^\\v//
                and $str .= "\x0b",    # vertical tab
                last <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3938	4164	
==>urn
                last;
            s/^\\t//
                and $str .= "\t",      # horizontal tab
                last;
            s/^\\v//
                and $str .= "\x0b",    # vertical tab
                last <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965526	965902	
==>"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1086,
                  "ARGS" => [
                              "i",
                              "ic",
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	707	801	
==>ess defined $right;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct:: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	719	813	
==>ess defined $right;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct:: <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9498	9638	
==>C";
#include "pmc_$name.h"
EOC
    }
    if (!$self->{flags}{dynpmc}) {
	    my $name = lc $self->{class};
	    $cout .= <<"EOC";
#include "$ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	14908	15031	
==>eftree() ];
}

sub Regex::Ops::Tree::rule::reftree {
    my $op = shift;
    my ($rule, $tree) = @{ $op->{args} };
    retur <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	5520	5624	
==>plementation is working correctly.  The same
checksum can also be calculated in OO style:

    use Digest <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	755	895	
==>|           |
    CSwitch       CGP

=head2 Class Methods

=over 4

=cut

package Parrot::OpTrans;

use strict;
use warnings;

=item C<new()> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035592	1035678	
==>f (!PMC_IS_NULL(lex_pad))\n\tresult = VTABLE_get_pmc_keyed_str(interpreter, lex_pad, le <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036756	1036842	
==>f (!PMC_IS_NULL(lex_pad))\n\tresult = VTABLE_get_pmc_keyed_str(interpreter, lex_pad, le <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	6650	6815	
==>codey)=EXPRESSION();   # Y (only)
	} else {
	    	($resultx, $typex, @codex)=EXPRESSION();    # X
		if ($type[NEXT] =~ /PUN/) {
			feedme();
			($resulty, $typey, @co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29479	29633	
==>rrot_pass_args(interpreter, caller_ctx, ctx,\n\t    PARROT_OP_get_params_pc);\n    if (PObj_get_FLAGS(ccont) & SUB_FLAG_TAILCALL) {\n\tPObj_get_FLAGS(ccont <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	23723	23840	
==>= $nf;
	    BUILD_TUPLE($nfix, '', "\t\t #call_args");
	    my $t = pop @stack;
	    unshift @args, $t->[1];
	}
	for ( <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1708	1803	
==>t::Test::PGE::_generate_pir_for($target, $pattern)
    );

    goto &Parrot::Test::pir_output_is <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2231	2326	
==>t::Test::PGE::_generate_pir_for($target, $pattern)
    );

    goto &Parrot::Test::pir_output_is <==
2	/Users/nnunley/parrot/config/gen/icu.pm	4345	4470	
==>estheaders => undef); # Clean up.
    $conf->data->set(testheader  => undef);
    eval { cc_build(); };
    if (!$@ && cc_run( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305072	305248	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if_null",
                  "FLAGS" => "",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305860	306036	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if_null",
                  "FLAGS" => "",
                  " <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	13631	13812	
==>ed' => 1},
        #['~Top', {'start_line' => $m},
        $_
        #]
        ],
        @{$self->{'errata'}{$line}}
      )
    ;
  }
  
  # TODO: report of unknown entities? unr <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	1149	1243	
==>tion} or die "Invalid direction '$direction'";
    print "$action $filename\n" if $opt{verbose} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924437	924671	
==>reter, enum_stringrep_one, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925228	925462	
==>reter, enum_stringrep_one, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	32154	32265	
==>\n        if (results) {\n\t    /* get results PMC index and get PMC. */\n\t    sig = PF_CONST(PMC_cont(cc)->seg <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	13297	13452	
==>PMCNULL ? NULL : t_$temp_num";
    };
    /S/ && do {
        push @{$temps_ref}, "STRING *t_$temp_num;";
        push @{$extra_preamble_ref},
            " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813565	813879	
==>FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 918,
                  "ARGS" => [
                              "s"
                            ],
                  "BO <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3861	3976	
==>ither!")
        unless $module_props{fnlib};

      $fnlib = $module_props{fnlib}->value;
    }

    my $fn = $prop <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6525	6640	
==>ither!")
        unless $module_props{fnlib};

      $fnlib = $module_props{fnlib}->value;
    }

    my $fn = $prop <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	1739	1935	
==>x, 1
         goto B1
     B3: sub x, 1
         goto B2

 to

     B1: sub x, 1
         goto S0
     B2: sub x, 2
         goto S0
     B3: sub x, 3
         goto S0

since this commonly occurs i <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3325	3461	
==>t print the last line of output
        # XXX This should be "print the last command". Which is harder.
        $body =~ s/^(\s*)([^\n]+) <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4732	4868	
==>t print the last line of output
        # XXX This should be "print the last command". Which is harder.
        $body =~ s/^(\s*)([^\n]+) <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	18571	18779	
==>];

    }
}

sub UNARY_POSITIVE
{
    my (undef, $c, $cmt) = @_;
    my $t = pop @stack;
    my $p = $t->[1];
    print <<EOC;
    \t $cmt
EOC
    push @stack, [-1, $p, 'P'];
}

sub UNARY_NEGATIVE
{
    my (un <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	940	1063	
==>rs.

=cut


use strict;

my ($mini_parrot, $install_parrot);

$mini_parrot = 1    if @ARGV && $ARGV[0] =~ /mini/;
$install_p <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9559	9664	
==>);

  skip('skip this test for now');

  flunk('this fails, but might work soon', :todo(1));

  diag('some <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29110	29286	
==>FAULT => -109
	},
	{#State 90
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	8783	8918	
==>h\n";
        push @{$paras->[-1]}, $line;
      } else {
        # Unexpected case!
        die "Continuing a paragraph but \@\$paras i <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	4322	4451	
==>back),
                $self->rewrite($dest, $lastback),
                $continue);
    }
}

# TODO: can_match_empty (so s/a*/x/g <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3493	3625	
==>The same pattern argument syntax above applies here.

=cut

sub pgeglob_isnt {
    my ($target, $pattern) = (shift, shift);

    unsh <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30888	31047	
==>d\\n"
	_platform_shutdown()
	end
DISP2
RTJUMP:
	push @{$code{$seg}->{code}}, <<RTB;
	# Several statements need to make branches
	# that are only discovered at r <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	5758	5900	
==>nvalid argument signature char '$_' on line $. of $ARGV"
                unless exists $sig_char{$_};
            push @arg, make_arg($_, $reg_ <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3124	3248	
==>s makes 'link' and 'ld' the same.
        $conf->data->set(link => $conf->data->get('ld'));

        # We can't use -opt: and <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4628	4752	
==>s makes 'link' and 'ld' the same.
        $conf->data->set(link => $conf->data->get('ld'));

        # We can't use -opt: and <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	12624	12740	
==>, $got, $dont_expect, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $dont_expect ) { <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	13068	13184	
==>, $got, $dont_expect, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $dont_expect ) { <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	473	589	
==>unstep
{
    my ($self, $conf) = @_;

    $self->generate_h($conf);
    $self->generate_c($conf);
    $self->generate <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	3248	3434	
==>->{data}->($f_out),
            };

            ## run the command and capture the exit code
            my $exit_code = Parrot::Test::run_command(
                $cmd,
                % <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29049	29167	
==>tern;
	$desc=~s/\\/\\\\/g;
	$desc=~s/}/\\}/g;
	$desc=~s/{/\\{/g;

	bless 
	{
		"pattern"     => $pattern,
		"lookahead" <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31153	31269	
==>tern;
	$desc=~s/\\/\\\\/g;
	$desc=~s/}/\\}/g;
	$desc=~s/{/\\{/g;

	bless 
	{
		"pattern"   => $pattern,
		"lookahead" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	424	534	
==>sub new
{
  my $class = shift;

  confess "Expected 5 args!" unless @_ == 5;

  my ($block, $prefix, $left, $op <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	424	534	
==>sub new
{
  my $class = shift;

  confess "Expected 5 args!" unless @_ == 5;

  my ($block, $prefix, $left, $op <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2474	2589	
==>sub YYErrok {
	my($self)=shift;

	${$$self{ERRST}}=0;
    undef;
}

sub YYNberr {
	my($self)=shift;

	${$$ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2372	2477	
==>sub YYErrok {
	my($self)=shift;

	${$$self{ERRST}}=0;
    undef;
}

sub YYNberr {
	my($self)=shift;

	${$$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	332259	332405	
==>"s"
                            ],
                  "BODY" => "#line 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const cha <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333537	333683	
==>"s"
                            ],
                  "BODY" => "#line 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const cha <==
2	/Users/nnunley/parrot/config/auto/jit.pm	3728	3948	
==>sname eq 'netbsd')
                || ($osname eq 'linux')
                || ($osname eq 'darwin')
                || ($osname eq 'MSWin32')) {
                $execcapable = 0;
            }
        }
        $execcapab <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589707	590205	
==>=> ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 670,
                  "ARGS" => [
                              "p",
                              "sc",
                              "kc"
                            ],
                  "BODY" => "#line 314 \"src/ops/object.o <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	16310	16424	
==>sub BINARY_DIVIDE
{
    my ($n, $c, $cmt) = @_;
    binary('/', $cmt);
}
sub BINARY_POWER
{
    my ($op, $cmt) = @_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2670	2793	
==>my $dest_name = $dest->value;
  $dest = $dest->compile($compiler);

  $compiler->emit("  concat $dest, $left, $right");

  i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20686	20875	
==>entifier->new($block, $self->get());
        push @left, $left;
        $self->require_assign;
      }

      my $constructing;
      my $right;

      if ($self->skip_new) {
        $constr <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9180	9300	
==>\] # peekindex",
            "eq <rx_tmp>, -1, ".$self->output_label_use($fallback)." # was a mark?",
            "set $r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946546	946812	
==>UMP" => 0,
                  "NAME" => "find_charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947447	947713	
==>UMP" => 0,
                  "NAME" => "find_charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
2	/Users/nnunley/parrot/config/inter/lex.pm	21	173	
==>2005, The Perl Foundation.
# $Id: /parrot/config/inter/lex.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/lex.pm - lexical analyz <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	2158	2296	
==>= shift;
    my $parent = $self->parent || return '';
    
    return join ' | ', 
        grep {length} 
            $parent->html_navigat <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4471	4583	
==>m/g;
		$push_num++;
	}

	# Return generated code.
	return $pir;
}

sub post_op($$) {
	# Nothing to do.
	return "" <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2887	2999	
==>m/g;
		$push_num++;
	}

	# Return generated code.
	return $pir;
}

sub post_op($$) {
	# Nothing to do.
	return "" <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	734	873	
==>/\\$1/g;
            $part =~ s/\n/\\n/g;
            push @ops, $self->output_print("\"$part\"");
        }
    }
    return @ops;
}

sub r <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	4026	4160	
==>here were errata sections in the world, it was
          ## least-pessimal to abort processing the file.  But now we can
          ## j <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	7735	7860	
==>all  = 1;
			$uninit = 1;
		    }
		}
		if ($type =~ /^[ABCDFGQRSTU]$/i) {
		    unless ($undef || $code || $other || $absolut <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3470	3633	
==>lags);
        }
    } elsif ($is_intel) {
        $conf->data->set(
            share_ext  => '.dll',
            load_ext   => '.dll',
            a          => ' <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	36901	37059	
==>$idf );
        push @opcodes1, new ParamDir( $parser,
            'prolog' => 1,
            'result' => $defn,
        );
        my $nil = BuildLiteral <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	2883	3021	
==>nst | declare | lprint | static	# Maybe these...
		)$/x) {
		print "WARNING: $syms[CURR] is unimplemented, skipping.\n";
		push @{$code{$se <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1555	1709	
==>if(exists $node->{children}) {
    for(@{$node->{children}}) {
      _dataflow($_);
    }
    my $cur_type = $node->{children}[0]{type};
    for(@{$node->{ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	142	283	
==>t interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Statement/New.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
ev <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	4132	4244	
==>ass $VERSION";
  } else {
    my $v = $class->VERSION;
    return "$class $v (" . __PACKAGE__ . " $VERSION)";
  } <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9736	9917	
==>o C<$args>.

=cut

sub full_arguments {
    my $args = shift;

    if ($args =~ m/\S/) {
        return "INTERP, SELF, $args";
    } else {
        return "INTERP, SELF";
    }
}

=i <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	2096	2230	
==>R "precompiling grammar from file '$sourcefile'\n",
			     "to class $class in module file '$modulefile'\n"
					if $grammar && $sourc <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	552	652	
==>ns from the Parrot source files. If no
files are specified on the command-line then the files worth d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478745	478864	
==>],
                  "BODY" => "#line 437 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479637	479756	
==>],
                  "BODY" => "#line 437 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    re <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	14191	14309	
==>string.h
strncmp     string.h
strncpy     string.h
strpbrk     string.h
strrchr     string.h
strspn      string.h
strst <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019853	1019950	
==>uffer[26];\n  Parrot_localtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = st <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020784	1020881	
==>uffer[26];\n  Parrot_localtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = st <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	3440	3671	
==>int "\n", $rel_path unless $silent;
        
            $formatter->write_html($source, $target, $rel_path, $self);
            
            $index_html .= $formatter->html_link(
                $formatter->append_html_suffix($rel_ <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	693	853	
==>vtbl_struct vtbl_macros vtbl_embed);

sub make_re {
    my $re = shift;

    my $comp_re = eval "qr/$re/";

    if ($@) { return "(?:$re)"; } else { return $comp <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	792	899	
==>containing additional arguments (as
you might find on the command line).

If you don't pass a C<compiler> ar <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	2805	3074	
==>talling.', 'MANIFEST.generated'),
            $self->new_item('Specifies the files to leave out of MANIFEST.', 'MANIFEST.SKIP'),
        ),
        $self->new_group('History', '',
            $self->new_item('Provide a timeline of changes made to the project.', 'ChangeL <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31131	31267	
==>arg1' => $lbl_end,
    );
    return \@opcodes;
}

sub BuildForList {
    my ( $parser, $vars, $exprs, $block ) = @_;
    my @opco <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13281	13455	
==>fwd
x.fwd.link.foo=99
print y.fwd.link.foo

' Structure assignment torture
' Expect: 99, 1, "user-type first"
type first
	foo as integer
	bar as string
end type
type second
	o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831926	832144	
==>DE" => 941,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 192 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ct <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	8261	8384	
==>s $$textref;
		goto failed;
	}

	$textpos = pos($$textref);

	if (!defined $rdel)
	{
		$rdelspec = $&;
		unless ($rdelspec = <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	2698	2828	
==>0
    %1 = $I100
END_PIR

    $P0[unicode:"dyadic:\u2372"]  =  <<"END_PIR"            # nand
    $I100 = %1
    $I101 = %2
    $I10 <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	120	224	
==>ers numbered by depth. This eliminates the need for a stack.
# In addition, it does "lazy" moves as far a <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	10709	10842	
==>ssued if the warning flag (B<-w>) is set.

=head2 Class Creation at Compile Time

C<Class::Struct> can create your class at compile ti <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2786	2887	
==>my ($self, $offset) = @_;

    return "interpreter->resume_offset = REL_PC + $offset; interpreter->res <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4121	4222	
==>my ($self, $offset) = @_;

    return "interpreter->resume_offset = REL_PC + $offset; interpreter->res <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3057	3148	
==>print $MANI '# generated by tools/dev/mk_manifest_and_skip.pl ', scalar( localtime() ), "\n" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	301	421	
==>od::Simple::Methody');
BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG)
          ? \&Pod::Simple::DEBUG
          : sub() { <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	183	303	
==>od::Simple::Methody');
BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG)
          ? \&Pod::Simple::DEBUG
          : sub() { <==
2	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	76	177	
==>a set of files only if the inputs have
changed, as judged by their checksums.

=head1 USAGE

  rebuild <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8805	8888	
==>*/
FF,$d,$a,$b,$c,$_[17],12,0xfd987193,/* 14 */
FF,$c,$d,$a,$b,$_[18],17,0xa679438e, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059542	1059805	
==>UMP_ENEXT",
                  "NAME" => "find_name",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functio <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060446	1060709	
==>UMP_ENEXT",
                  "NAME" => "find_name",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functio <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2766	2915	
==>//
                and $parser->Error("Invalid escape sequence $_ .\n"),
                last;
        }
    }

    $parser->Error("Untermined s <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4281	4430	
==>//
                and $parser->Error("Invalid escape sequence $_ .\n"),
                last;
        }
    }

    $parser->Error("Untermined s <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	5950	6064	
==>=0
do while a<5
	a=a+1
loop
print a
a=0
do until a>4
	a=a+1
loop
print a
a=0
do
	a=a+1
loop while a<5
print a
a=0
d <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16495	16609	
==>=0
do while a<5
	a=a+1
loop
print a
a=0
do until a>4
	a=a+1
loop
print a
a=0
do
	a=a+1
loop while a<5
print a
a=0
d <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	3058	3168	
==>q "+");
	return 20 if ($op eq "-");
	return 30 if ($op eq "mod");
	return 40 if ($op eq '\\');
	return 50 if ($ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900730	901268	
==>RS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1016,
                  "ARGS" => [
                              "s",
                              "i",
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  (void) <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	2941	3176	
==>le ($line = <INPUT>) {

  # Throw away trailing newlines, comments, and whitespace. If the
  # line's empty, then off to the next line
  chomp $line;
  $line =~ s/#.*//;
  $line =~ s/\s*$//;
  next unless $line;

  # Is it a section lin <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	4223	4434	
==>?"
	if ($type[CURR] eq "STRING") {
		$promptcode.=qq{\tprint "$syms[CURR]"\n};
		feedme();
		if ($syms[CURR] eq ",") {
			$promptcode.=qq{\tnoop  # No ?\n};
		} elsif ($syms[CURR] eq ";") {
			$promptcode.=qq{\tp <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	2201	2337	
==>d?\n";
	return;
    }
    if ($ret != $expect) {
	print STDERR "TEST FAILED: $file (got $ret expected $expect)\n";
	return;
    }
    pri <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2493	2613	
==>pe"]
	P3["$var"]= P0	# Hack in the alias

SHARING
		} else {
			print CODE<<SHARING;
	# Sharing $stype $var with main  (a <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	13135	13323	
==>c = global "$c" $cmt
EOC
    }
    else {
	my $type = 'pmc';
	$p = $c;
	if ($type_map{$c}) {
	    $c = $p = $type_map{$c};
	    $type = 'NCI';
	}
	$globals{$c} = $c;
	print <<"EOC";
	.local <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1112	1226	
==>ub directory_with_path
{
    my $self = shift;
    
    return $self->directory_class->new(@_);
}

=item C<file_wit <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	4119	4220	
==>=~ s/^| / src${slash}pmc${slash}/g;
    (my $TEMP_pmc_classes_pmc = $pmc_list)     =~ s/^| / src${slas <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	8517	8683	
==>ur_op[i])
#define NREG(i) REG_NUM(jit_info->cur_op[i])
#define PREG(i) REG_PMC(jit_info->cur_op[i])
#define SREG(i) REG_STR(jit_info->cur_op[i])
#define CONST(i) inter <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	8472	8603	
==>k' => 'c++',
             'link_debug' => '',
             'link_dynamic' => ' ',
             'linkflags' => '-L/opt/local/lib -L/u <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28412	28520	
==>RecDescent::_trace(q{>>Matched terminal<< (return value: [}
						. $& . q{])},
						  Parse::RecDescent::_t <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30488	30596	
==>RecDescent::_trace(q{>>Matched terminal<< (return value: [}
						. $& . q{])},
						  Parse::RecDescent::_t <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	26784	26938	
==>trings of $text that would be extracted by
 # one or more sequential applications of the specified functions
 # or regular expressions

	@extracted = extra <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	6689	6904	
==>ame = $self->linearize_tokens(@to_unget);
        
        if(defined $name) { # ludicrously long, so nevermind
          $name =~ tr/ /_/;
          print $fh "<a name=\"", esc($name), "\"\n>";
          DEBUG and p <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1562	1675	
==>{\cs22\i'."\n",
 'L=url' => '{\cs23\i'."\n",
 'L=man' => '{\cs24\i'."\n",
 '/L' => '}',

 'Data'  => "\n",
 '/Data <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	24579	24696	
==>$_[4],
	}, $class;
}

sub code($$$$)
{
	my ($self, $namespace, $rule, $check) = @_;
	
	my $action = '';
	
	if ($self-> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1197	1318	
==>ub type      { return shift->{TYPE};      }
sub name      { return shift->{NAME};      }
sub props     { return %{shift->{ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1532	1653	
==>ub type      { return shift->{TYPE};      }
sub name      { return shift->{NAME};      }
sub props     { return %{shift->{ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	257	402	
==>coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block::File;

use Carp;

use Jako::Compiler;

use base qw(Jako::Construct::B <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	4915	5196	
==>{ # try an embedded pod
	my($doc) = $text =~ /(?:^|\n)=head1(.+)/s;
	die "internal bug" if !$doc;
	local $_ = $doc;
	s/^\s*(NAME|TITLE)\s*//;
	s/\n=.*//s;
	# It would be nice to get the beginning of any DESCRIPTION. FIXME
	$doc = $_;
	$desc = $info->{pod_doc} = $doc;
    }
    do { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	312569	312656	
==>ruct Parrot_Context_info info;\n  Parrot_Context_info(interpreter, CONTEXT(interpreter-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	313301	313388	
==>ruct Parrot_Context_info info;\n  Parrot_Context_info(interpreter, CONTEXT(interpreter-> <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	15342	15510	
==>$_]->[1];"
                        } @tempi);
        my $temp_out  = join("\n    ", map { "$temp[$_]->[1] = arg$_;"} @tempi);
        print NCI << "HEADER";
static void <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	11522	11634	
==>t math.h
islower     ctype.h
isnan       math.h
isnormal    math.h
isprint     ctype.h
ispunct     ctype.h
isspac <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34533	34636	
==>);

=item C<implements($method)>

Always true.

=cut

sub implements
{
    return 1;
}

=item C<body($me <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	2996	3095	
==>MCPARENT>

All methods not defined in PMCNAME are inherited from the PMCPARENT class.
If no parent c <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	401	529	
==>:Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected 5 args!" unless @_ == 5;

  my ($block, $prefix, $left <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	401	529	
==>:Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected 5 args!" unless @_ == 5;

  my ($block, $prefix, $left <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811018	811523	
==>e",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 915,
                  "ARGS" => [
                              "p",
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 512 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vta <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	23626	23751	
==>t /,/, $fix_args;
	my $nf = scalar @fargs;
	if ($func_info{$name}{'ar'} ne 'None') {
	    $nfix -= $nf;
	    BUILD_TUPLE($nfix <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	6919	7118	
==>->{args} }) {
        my @subop_startset = $subop->startset();
        return 0 if grep { ref($_) || $_ !~ /^\d+$/ } @subop_startset;
        foreach (@subop_startset) {
            return 0 if exists <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	301885	302156	
==>51,
                  "ARGS" => [
                              "i",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 980 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	530469	530869	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cos",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	12545	12731	
==>{ $_[0]->{args}->[1]->render() }

sub Regex::Ops::Tree::rule::render {
    my $self = shift;
    my ($name, $tree) = @{ $self->{args} };
    my $expr = $tree->render;
    if ($name eq 'de <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208337	208456	
==>01 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209278	209397	
==>01 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10576	10690	
==>eturn sprintf("\\x%02x", $atom); # Nonportable
    } else {
        die;
    }
}

sub Regex::Ops::Tree::charclass:: <==
2	/Users/nnunley/parrot/config/inter/libparrot.pm	135	246	
==>1 NAME

config/inter/libparrot.pm - Determines build information for libparrot

=head1 DESCRIPTION

libpar <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	547	674	
==>eer        = $self->peer;

  my $prefix;

  if ($self->prefix) {
    $prefix = $self->prefix;
  }
  else {
    $prefix = $self-> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	527	654	
==>eer        = $self->peer;

  my $prefix;

  if ($self->prefix) {
    $prefix = $self->prefix;
  }
  else {
    $prefix = $self-> <==
2	/Users/nnunley/parrot/lib/Test/More.pm	24059	24175	
==>nks), or maybe
you need an Internet connection and one isn't available.

B<If it's something the programmer hasn't do <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4945	5142	
==>r_opcode asm ("esi") = cur_op;
#else
    opcode_t *cur_opcode = cur_op;
#endif

    static void *const l_ops_addr[] = {
END_C
}

=item C<run_core_after_addr_table($base_suffix)>

Returns the run cor <==
2	/Users/nnunley/parrot/lib/Test/More.pm	18184	18321	
==>quire_ok($module);
   require_ok($file);

Like use_ok(), except it requires the $module or $file.

=cut

sub require_ok ($) {
    my($modu <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	30772	30928	
==>}
        }
    }
    push @opcodes, @{$block};
    push @opcodes, new BinaryOp(
        $parser,
        'op'     => 'add',
        'arg1'   => $_var <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	58607	58860	
==>[0], $_[3] ),
            ];
        }
	],
	[#Rule 100
		 'parlist1', 1, undef
	],
	[#Rule 101
		 'parlist1', 1,
sub
#line 537 "Lua\lua51.yp"
{
            [
                BuildParam( $_[0], $_[1] ),
            ];
        }
	],
	[#Rul <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45942	46064	
==>*:';
my $OTHER		= '\G\s*([^\s]+)';

my $lines = 0;

sub _generate($$$;$$)
{
	my ($self, $grammar, $replace, $isimplicit, $i <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	44570	44688	
==>IONAL		= '\G\((\?)'.$SIMPLEPAT.'\)';
my $ANY			= '\G\((s\?)'.$SIMPLEPAT.'\)';
my $MANY 		= '\G\((s|\.\.)'.$SIMPLEPAT.'\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	890	993	
==>ne> macros required by the ops.

=cut

sub defines
{
    return <<END;
#define REL_PC ((size_t)((opcode_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1020	1123	
==>ne> macros required by the ops.

=cut

sub defines
{
    return <<END;
#define REL_PC ((size_t)((opcode_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1698	1785	
==>'  => "\n{\\pard\\li#rtfindent##rtfkeep#\\plain\\s20\\sa180\\f1\\fs18\\lang1024\\noproof <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	11306	11449	
==>le ($classblock =~ s/($signature_re)//) {
        $lineno += count_newlines($1);
        my ($flag, $type, $methodname, $parameters) = ($2,$3,$4 <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	1308	1424	
==>b/Parrot/Config.pm";
		%Parrot::Config::PConfig
	} or die "Unable to locate Parrot::Config.\n";
	
	# Return confi <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	31026	31143	
==>e only discovered at runtime.
RUNTIME_JUMP:
RTB
	if ($runtime_jump) {
		foreach(sort keys %labels) {
			push @{$code{$ <==
2	/Users/nnunley/parrot/config/auto/format.pm	198	306	
==>ON

Figures out what formats should be used for C<sprintf()>.

=cut

package auto::format;

use strict;
use v <==
2	/Users/nnunley/parrot/config/inter/encoding.pm	641	802	
==>(.*)} } glob "./src/encodings/*.c"
    );

    my $encoding_list = $conf->options->get('encoding')
        || join(' ', grep { defined $_ } @encoding);

    if ($ <==
2	/Users/nnunley/parrot/tools/dev/gen_class.pl	1311	1484	
==>ferences:
 */

#include "parrot/parrot.h"

pmclass $classname {

EOF

## emit method bodies
for (@$vtbl) {
	my ($retval, $methname, $args) = @$_;
	if ($methname e <==
2	/Users/nnunley/parrot/config/gen/cpu.pm	783	887	
==>ta->get('cpuarch') . "::auto";

    print "\t(cpu hints = '$hints') " if $verbose;

    eval "use $hints" <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	368	460	
==>se Parrot::Configure::Step ':auto';

$description = 'Determining if your C compiler is actual <==
2	/Users/nnunley/parrot/config/auto/msvc.pm	388	480	
==>se Parrot::Configure::Step ':auto';

$description = 'Determining if your C compiler is actual <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067846	1068122	
==>"inline",
                  "CODE" => 1192,
                  "ARGS" => [
                              "i",
                              "nc",
                              "n"
                            ],
                  "BODY" => "#line 49 \"src/ops/experimental.ops\"\ <==
2	/Users/nnunley/parrot/config/gen/platform.pm	226	374	
==>orm-specific files into place.

=cut

package gen::platform;

use strict;
use warnings;

use base qw(Parrot::Configure::Step::Base);

use Config;
use <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	6574	6717	
==>?(\w+)$/) {
		# Especially text symbols are sometimes prefixed by a ".".
		my ($type, $name) = ($1, $2);
		# The following are assumed to work E <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1936	2034	
==>stance Methods

=over 4

=item C<create_path()>

This is called from C<new()> to create the path if <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	913	1011	
==>stance Methods

=over 4

=item C<create_path()>

This is called from C<new()> to create the path if <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	31843	31999	
==>s);
}

sub startup {
    my ($self, $num_groups) = @_;

    my $group;

    my @ops;
    foreach $group (0 .. $num_groups) {
        push @ops, aop('initgrou <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	51271	51493	
==>"\n";
      die "SPORK 512512!";
    }
  }

  if(@stack) { # Uhoh, some sequences weren't closed.
    my $x= "...";
    while(@stack) {
      push @{ $lineage[-1] }, '' if 2 == @{ $lineage[-1] };
      # Hmmmmm!

      my $ <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	83	244	
==>m 19593 2006-05-30T02:28:15.110975Z coke  $

package init::hints::linux;

use strict;

use Config;

sub runstep
{
    my ($self, $conf) = @_;

    my $libs      = <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	396	512	
==>ep::Base);

use Parrot::Configure::Step qw( :inter capture_output check_progs );

$util        = 'yacc';
$description <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36766	36880	
==>EG_ACCESS,
		"Null PMC access in $meth()");
        $ret
}

EOC
}

=back

=head2 Parrot::Pmc2c::delegate Instance M <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051884	1052251	
==>"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1175,
                  "ARGS" => [
                              "p",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 172 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3719	3818	
==>dule_props = $self->block->props;

      $self->SYNTAX_ERROR("Sub declaration has no fnlib property, <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6383	6482	
==>dule_props = $self->block->props;

      $self->SYNTAX_ERROR("Sub declaration has no fnlib property, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638235	638749	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "instantiate",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "function",
                  "CODE" => 71 <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34792	34898	
==>ule->{"name"} .'})
							if defined $::RD_TRACE;').'
			if ($Parse::RecDescent::lastexpected
			    && !$P <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41902	42008	
==>ule->{"name"} .'})
							if defined $::RD_TRACE;').'
			if ($Parse::RecDescent::lastexpected
			    && !$P <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18364	18499	
==>ase 2
	print "Wrong-o!"
case else
	print "Right!"
end select
a$="one"
select case a$
case "zero"
	print "Bzzt"
case "two"
	print "not"
c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567497	567595	
==>\"src/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->does(interpreter, {{\@2}}, {{\@3}});\n  {{+=4} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568392	568490	
==>\"src/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->does(interpreter, {{\@2}}, {{\@3}});\n  {{+=4} <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6410	6514	
==>{CURIC}_LOOP:
if i == 0 goto POST_BRANCH_switch_${CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0[i]
    ${ITE <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4348	4452	
==>{CURIC}_LOOP:
if i == 0 goto POST_BRANCH_switch_${CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0[i]
    ${ITE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85627	85861	
==>tr(interpreter, compreg_hash, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86534	86768	
==>tr(interpreter, compreg_hash, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	145	244	
==>Parrot::IO::File - File

=head1 SYNOPSIS

    use Parrot::IO::File;

=head1 DESCRIPTION

Use this to <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	589972	590249	
==>" => 670,
                  "ARGS" => [
                              "p",
                              "sc",
                              "kc"
                            ],
                  "BODY" => "#line 314 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(int <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28188	28283	
==>|"").$text;
			}'.($::RD_NO_TRACE?'':'
			Parse::RecDescent::_trace(q{<<Didn\'t match terminal>> <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32463	32558	
==>|"").$text;
			}'.($::RD_NO_TRACE?'':'
			Parse::RecDescent::_trace(q{<<Didn\'t match terminal>> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	4395	4521	
==>tok = $self->forth;

    printf STDERR "%6d : %-30s : %5s : %-15s: %1s : %s\n",
      $self->pos,
      $tok->file,
      $tok- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412317	412914	
==>base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 476,
                  "ARGS" => [
                              "i",
                              "p",
                              "i",
                              "i",
                              "i"
                            ],
                  " <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	1114	1264	
==>E} ? $self->{LINE} : '';
}

sub kind { return shift->{KIND}; }
sub type { return shift->{TYPE}; }
sub text { return shift->{TEXT}; }


#
# dump()
#

su <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12591	12811	
==>=> {
			'tableconstructor' => 46,
			'args' => 43,
			'key' => 45
		}
	},
	{#State 10
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149142	149230	
==>05 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) == {{\@2} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150083	150171	
==>05 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) == {{\@2} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	4979	5135	
==>stmt ref in every statement to make it easier to
    # move around.
    my $next;
    for my $stmt (reverse @output2) {
	$stmt->{'next'} = $next;
	$next = $s <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	1937	2093	
==>lp.

=item C<--version>

Show the version number.

=back

All the options can be shortened to their unique prefixes, and one
leading dash ("-") can be used i <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3926	4032	
==>sing arrays, twice, expect 12
function aftwo(y())
	print y(4)
end function
function arrfunc(x())
	u=aftwo(x <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15199	15305	
==>sing arrays, twice, expect 12
function aftwo(y())
	print y(4)
end function
function arrfunc(x())
	u=aftwo(x <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6562	6683	
==>eturn 1 if modtime($source) > $target_mod;
    }

    return 0;
}

sub generate_dump {
    my ($pmc) = @_;

    if (needs_ <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6773	6894	
==>eturn 1 if modtime($source) > $target_mod;
    }

    return 0;
}

sub generate_dump {
    my ($pmc) = @_;

    if (needs_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54099	54235	
==>(
      $_ eq '0' # very common case
      or(
         m/^-?(?:[123456789]\d*|0)(?:\.\d+)?$/s
         and $_ ne '-0' # the strange case <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	28296	28407	
==>ively!  Whee!

  while($treelet = shift @stack) {
    for($i = 2; $i < @$treelet; ++$i) { # iterate over childre <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	3536	3729	
==>ken)>

Processes the code start token. If the code text is the name of a Parrot
Perl module, and the current documentation file is not the file for that
module, then the documentation file for t <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1235	1366	
==>gure> object.

=cut

sub new
{
    my $class = shift;

    my $self = {
        steps   => [],
        data    => Parrot::Configure: <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	8492	8694	
==>es an end token.

=cut

sub process_end_token
{
    my $self = shift;
    my $token = shift;
    my $tagname = $token->tagname;
    
    if ( $tagname =~ m/^over-/s ) 
    {
        pop @{$self->{STACK}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730349	730738	
==>GDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 819,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 124 \"src/ops/set.ops\"\n  {{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5766	5868	
==>urn
        unless defined $self->{triggers}{$key}
        and defined $self->{triggers}{$key}{$trigger <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6336	6438	
==>urn
        unless defined $self->{triggers}{$key}
        and defined $self->{triggers}{$key}{$trigger <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	2411	2501	
==>e will contain the file
/usr/parroty/bin/snork-compile.

=head1 SEE ALSO

F<tools/dev/mk_ma <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	714	831	
==>ight as the Parse::Yapp module itself.
#
# This notice should remain unchanged.
#
# (c) Copyright 1998-2001 Franco <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	694	807	
==>ight as the Parse::Yapp module itself.
#
# This notice should remain unchanged.
#
# (c) Copyright 1998-2001 Franco <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	2623	2727	
==>unlambda'),
        $self->new_section('URM', 'urm.html', '', 'languages/urm'),
        $self->new_sectio <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5638	5731	
==>"$stem$LOAD_EXT", "$stem$O")) {
        run(partial_link_cmd("$stem$LOAD_EXT", $libs, [ "$stem <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	9523	9735	
==>ll probably
# be pragmata for allowing code to specify that it won't muck with
# things.
package Regex::Ops::Tree::code;
sub minlen { 0 }
sub maxlen { undef }
sub dfa_safe { 0 }
sub hasback { 0 } # FIXME! code sho <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	816083	816301	
==>re",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 922,
                  "ARGS" => [],
                  "BODY" => "#line 595 \"src/ops/set.ops\"\n  Parrot_clear_i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744250	744347	
==>BODY" => "#line 179 \"src/ops/set.ops\"\n  {{\@1}} = string_from_num(interpreter, {{\@2}});\n  {{+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745016	745113	
==>BODY" => "#line 179 \"src/ops/set.ops\"\n  {{\@1}} = string_from_num(interpreter, {{\@2}});\n  {{+ <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	5362	5489	
==>n", $api, $API{$api} || "-";
    }
}

printf "=== $Obj: %d interfaces ===\n", scalar keys %API;

my @API = sort keys %API;

my @ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61084	61333	
==>> "inline",
                  "CODE" => 79,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 914 \"src/ops/core.ops\"\n  PARROT_WARNINGS_off(interpreter, {{\@1}});\n  { <==
2	/Users/nnunley/parrot/examples/benchmarks/stress.pl	33	248	
==>rl Foundation.
# $Id: /parrot/examples/benchmarks/stress.pl 19601 2006-05-30T13:32:26.641316Z coke  $

=head1 NAME

examples/benchmarks/stress.pl - GC stress-testing

=head1 SYNOPSIS

    % time perl examples/benchma <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	639279	639485	
==>preter, NULL, E_ValueError,\n            \"Empty signature with instantiate\");\n  }\n  switch (SIG_ITEM(sig, 0)) {\n      case PARROT_ARG_IC:\n\t  typ = arg_op[2];\n\t  if (typ <= 1 || typ >= interpreter->n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857179	857636	
==>mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 973,
                  "ARGS" => [
                              "s",
                              "sc",
                              "sc"
                            ],
                  "BODY" => "#line <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	10805	10948	
==>ef,
			@match[2..3,4..5,0..1];		# MATCH, REMAINDER, PREFIX
}

sub _match_variable($$)
{
#  $#
#  $^
#  $$
	my ($textref, $pre) = @_;
	my $startp <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4205	4318	
==>ach (@oplibs) {
			my $src = $_ . "_ops$core_suffix$LOAD_EXT";
	        copy($src, $dest)
			    or die "Copy $src <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	1204	1477	
==>le.t";
  next unless -f $path; # Might have a command that doesn't have a test file.
  open my $test_h, '<', $path;
  READLINE:
  while (!eof $test_h) {
    my $line = <$test_h>;
    $line =~ /^use Parrot::Test tests => (\d+)/;
    my $num_tests = $1;
    next READLINE unle <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	3593	3732	
==>ves the file specified by C<$from> to the location specified by C<$to> if
it's contents have changed.

=cut

sub move_if_diff
{
    my ($fro <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8795	8926	
==>ut_peekindex {
    my $self = shift;
    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } els <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8455	8586	
==>ut_peekindex {
    my $self = shift;
    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } els <==
2	/Users/nnunley/parrot/lib/Test/More.pm	23799	23908	
==>local $^W = 0;
    last TODO;
}

=item When do I use SKIP vs. TODO?

B<If it's something the user might not be <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	13999	14139	
==><= $max_content_length)
           : 1)
        ) {
          # Some minimal sanity constraints, I think.
          DEBUG and print "  It loo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406009	406487	
==>RGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 469,
                  "ARGS" => [
                              "s",
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 535 \"src/ops/io.ops\"\n    {{\@1}} = PIO_soc <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	5287	5387	
==>reachable}; # Already reached here
	$stmt->{label}->{reachable} = 1;

	# Loop over the basic block st <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9542	9646	
==>This test failed');

  skip('skip this test for now');

  flunk('this fails, but might work soon', :todo( <==
2	/Users/nnunley/parrot/Configure.pl	7928	8062	
==>t be implemented):

   --maintainer         Create imcc's parser and lexer files. Needs a working
                        parser and le <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	536	640	
==>,$count);
    my $out_f     = Parrot::Test::per_test('.out',$count);
    my $parrotdir = dirname $self->{ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	573	677	
==>,$count);
    my $out_f     = Parrot::Test::per_test('.out',$count);
    my $parrotdir = dirname $self->{ <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	16280	16436	
==>= 5'

    print "\$x->count(-5) = ", $x->count(-5), "\n";
                            # dies due to negative argument!

=item Example 3

The constructor of a <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1611	1744	
==>q 'MSWin32') {
    # Paths need quoting as they may contain spaces.
    $PATHQUOTE = '"';

    unless ($CC =~ /gcc/i) {
        $LIBPA <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	1615	1748	
==>q 'MSWin32') {
    # Paths need quoting as they may contain spaces.
    $PATHQUOTE = '"';

    unless ($CC =~ /gcc/i) {
        $LIBPA <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	3582	3718	
==>rrata_seen {  # good for using as an exit() value...
  return shift->{'errors_seen'} || 0;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2613	2712	
==>op } });
    $self->left->sax($handler);
    $self->right->sax($handler);
    $handler->end_element( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2490	2589	
==>op } });
    $self->left->sax($handler);
    $self->right->sax($handler);
    $handler->end_element( <==
2	/Users/nnunley/parrot/lib/Test/More.pm	23250	23402	
==>en tests entirely.

The syntax and behavior is similar to a C<SKIP: BLOCK> except the
tests will be marked as failing but todo.  Test::Harness will
inter <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	13018	13169	
==>n "&PObj_bufstart(t_$temp_num)";
    };
    /J/ && do {
        return "interpreter";
    };
    /[OP]/ && do {
        push @{$temps_ref}, "PMC *t_$tem <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943874	944098	
==>rset_number_of_str(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944663	944887	
==>rset_number_of_str(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	29389	29520	
==>my ($p, $i);
    for ($i = $n-1; $i >= 0; $i--) {
	$p = temp('P');
	print <<EOC;
	$p = $seq\[$i\] $cmt
EOC
	push @stack, [-1, $p, 'P <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	11569	11709	
==>out_f = per_test('.out', $test_no);

            # Name of the file with test code.
            # This depends on which kind of code we are t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38462	38604	
==>P_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39326	39468	
==>P_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	680	788	
==>::Expression::Value::Identifier');

  my $self = bless {
    BLOCK => $block,
    IDENT => $ident
  }, $class <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	680	788	
==>::Expression::Value::Identifier');

  my $self = bless {
    BLOCK => $block,
    IDENT => $ident
  }, $class <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1889	2062	
==>ib] .
             "$PATHQUOTE $PATHQUOTE" .
             q[/Users/nnunley/parrot/tools/build/ops2c.pl] .
			 $PATHQUOTE;
our %cores = (
    C       => '',
   CGP     => '_cg <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	9	315	
==>w
################################################################################
# Copyright (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/tools/dev/rebuild_miniparrot.pl 19607 2006-05-30T15:23:20.183054Z coke  $
################################################################################

=head <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6320	6562	
==>pat);

        $pirCode .= qq(
            name = "$name"
            subpat = "$subpat"
            rulesub = p6rule_compile(subpat)\n);

        last if $name eq '_MASTER';

        $pirCode .= qq(
            store_global name, rulesub\n\n) <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1449	1557	
==>_language = '.';
        } elsif ($dir_count >2) {
          $path_to_language = File::Spec->join(File::Spec- <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1934	2042	
==>_language = '.';
        } elsif ($dir_count >2) {
          $path_to_language = File::Spec->join(File::Spec- <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	1034	1153	
==>low).

The only other constraint is you must pre-declare how many tests you
plan to run.  This is in case something goes <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	36862	37153	
==>");
		}
	}
	bless 
	{
		"subrule"   => $subrule,
		"repspec"   => $repspec,
		"min"       => $min,
		"max"       => $max,
		"lookahead" => $lookahead,
		"line"      => $line,
		"expected"  => $desc,
		"argcode"   => $argcode || undef,
		"matchrule" => $matchrule,
	}, $class;
}

sub code($$$$ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19836	19957	
==>-building action in rule
					   \"$rule->{name}\"")
		and
		Parse::RecDescent::_hint("The directive <autotree> was specif <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30568	30722	
==>EFAULT => -92
	},
	{#State 100
		ACTIONS => {
			"-" => 72,
			"<" => 74,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			'AND' => 8 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10326	10495	
==>) {
        my ($first, $last);
        if (ref $_) {
            ($first, $last) = @$_;
        } else {
            ($first, $last) = ($_, $_);
        }
        push @ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22416	22531	
==>return = $self->_constant(1);
  my $temp_1 = $self->_constant(2);
  $self->_add_inst(''           ,'mod'   ,[$temp_0 <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22917	23032	
==>return = $self->_constant(1);
  my $temp_1 = $self->_constant(2);
  $self->_add_inst(''           ,'mod'   ,[$temp_0 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	279	451	
==>uage eq 'pir') {
        $class = 'Regex::Driver::PIR';
    }

    my $self = bless \%options, $class;
    $self->init();

    return $self;
}

sub init {
}

sub output_head <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	24487	24616	
==>($back, @ops);
}

sub rewrite_optional {
    my ($self, $op, $R, $greedy, $lastback) = @_;
    return $greedy ? $self->rewrite_gre <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	23487	23656	
==>GV ) {
        die "No files specified.\n";
    }

    if ( $action{dump} ) {
        dump_pmc(\@include, @ARGV);
    }

    if ( $action{tree} ) {
        print_tree(\@i <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	61	194	
==>e Parrot::Vtable;

my $vtable = parse_vtable( 'vtable.tbl' );

my ($funcs, $protos) = vtbl_embed( $vtable );

my $header = <<'EOH';
/* <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13137	13290	
==>{
    $self->_restore ($temp);
    $temp = $self->_generate ($_);
  }
  return $temp;
}

sub _op_do {
}

sub _op_delay {
}

#---- Section 6 ----

sub _op_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21254	21383	
==>ome witchery in here
  my $self = $_[0];
  my $title;
  my @to_unget;

  while(1) {
    push @to_unget, $self->get_token;
    unle <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	36655	36944	
==>"ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 46,
                  "ARGS" => [],
                  "BODY" => "#line 704 \"src/ops/core.ops\"\n  pop_exception(interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593608	593840	
==>RGS" => [
                              "p",
                              "k",
                              "kc"
                            ],
                  "BODY" => "#line 325 \"src/ops/object.ops\"\n  PMC *class = Parrot_cl <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4736	4859	
==>estination=(.*)/
      or die "copy command requires destination";
    my $dest = $1;

    my ($group_files, $group_libs, $p <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4840	4963	
==>estination=(.*)/
      or die "copy command requires destination";
    my $dest = $1;

    my ($group_files, $group_libs, $p <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8783	8895	
==>ith_relative_path($path)>

Returns the path for the subdirectory with the specified path taken
relative to the di <==
2	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	1122	1257	
==>iled:\n$output";
		return 0;
	}
	$output = `$N2PConfig::parrot -o $out_name $out_name.pir`;
	unlink "$out_name.pir";
	if ($output) {
		p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	335	423	
==>struct::Block::Conditional::Unless;

use Carp;

use base qw(Jako::Construct::Block::Condi <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2369	2608	
==>lags             => '',
            ar_out               => '-out:',
            slash                => '\\',
            blib_dir             => 'blib\\lib',
            ccflags              => $ccflags,
            ccwarn               = <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4265	4504	
==>lags             => '',
            ar_out               => '-out:',
            slash                => '\\',
            blib_dir             => 'blib\\lib',
            ccflags              => $ccflags,
            ccwarn               = <==
2	/Users/nnunley/parrot/config/auto/jit.pm	1609	1737	
==>sif ($osname =~ /cygwin/i || $cpuarch =~ /cygwin/i) {
        $cpuarch = 'i386';
        $osname  = 'cygwin';
    }

    if ($arc <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	15305	15431	
==>ary);
    PMC_struct_val(lib) = (void *) $init_func;
    dynop_register(interpreter, lib);
    return lib;
}
END_C

}

close SO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	2163	2400	
==>,
                  "TYPE" => "inline",
                  "CODE" => 1,
                  "ARGS" => [],
                  "BODY" => "#line 104 \"src/ops/core.ops\"\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	10289	10469	
==>pbc_output_is      => 'is_eq',
        pbc_output_isnt    => 'isnt_eq',
        pbc_output_like    => 'like',
        pasm_output_is     => 'is_eq',
        pasm_output_isnt   => 'i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	67740	67910	
==>DY" => "#line 1038 \"src/ops/core.ops\"\n  Parrot_go_collect(interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	187	359	
==>der;
my $Test = Test::Builder->new;

sub import {
    my $self = shift;
    my $caller = caller;
    *{$caller.'::ok'} = \&ok;

    $Test->exported_to($caller);
    $Test->p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499480	499591	
==>"src/ops/math.ops\"\n  {{\@1}} = floatval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500243	500354	
==>"src/ops/math.ops\"\n  {{\@1}} = floatval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1629	1762	
==>e=parrot
AllowNoIcons=yes
LicenseFile=$options{prefix}\\share\\doc\\parrot\\LICENSES\\Artistic
OutputDir=.\\
OutputBaseFilename=setup- <==
2	/Users/nnunley/parrot/config/auto/headers.pm	1627	1788	
==>ent
    if ($^O eq "msys") {
        push @extra_headers, qw(sysmman.h netdb.h);
    }
    my @found_headers;
    foreach my $header (@extra_headers) {
        my <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4592	4765	
==>visible{$file}{$1} ||
                          $variable_visible{ALL}{$1});
            }
        }
    }
    
    close(F);

    # filter out things that start with _.  Pro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520411	520643	
==>"i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 739 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  " <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	979	1097	
==>_oneof P0, $class, ".$self->output_label_use($failLabel);
}

sub output_start {
    my ($self, $n) = @_;
    return "rx <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	373	477	
==>output_is() {
    my ($self, $code, $output, $desc) = @_;
  
    my $count = $self->{builder}->current_te <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	411	515	
==>output_is() {
    my ($self, $code, $output, $desc) = @_;
  
    my $count = $self->{builder}->current_te <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528141	528613	
==>=> ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 610,
                  "ARGS" => [
                              "n",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 838 \ <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	5519	5626	
==>rsion}";
my $init_func = "Parrot_DynOp_${base}${suffix}_$mmp_v";

print HEADER $preamble;
if ($dynamic_flag) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11039	11127	
==>r->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  {{+={{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11828	11916	
==>r->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  {{+={{ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34768	34894	
==>$text),
						  q{' . $rule->{"name"} .'})
							if defined $::RD_TRACE;').'
			if ($Parse::RecDescent::lastexpected
			    && <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41878	42004	
==>$text),
						  q{' . $rule->{"name"} .'})
							if defined $::RD_TRACE;').'
			if ($Parse::RecDescent::lastexpected
			    && <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	35330	35447	
==>h:
PIRCODE
        } else {
            $pir .= <<'PIRCODE';
sp_dest = next_pc + I_arg_0
ss = clone stypes
ss_propogat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563941	564048	
==>.ops\"\n  VTABLE_add_method(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564839	564946	
==>.ops\"\n  VTABLE_add_method(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398735	399078	
==>GS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 462,
                  "ARGS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	21781	21880	
==>elf->{has_method}{class_init} : -1;
    my $class_init_code = $n >= 0 ? $self->{methods}[$n]{body} : <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1020	1125	
==>t->isa("Jako::Construct::Declaration::Sub")
    ) {
      if ($last_seen ne 'sub') {
        $compiler->em <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10090	10201	
==>y $x (@_) {
    # Escape things very cautiously:
    $x =~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2158	2261	
==>rogrammer wanted to shadow the
  # previous definition.
  #

  if (defined $sym and $sym->block eq $bloc <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1905	2008	
==>rogrammer wanted to shadow the
  # previous definition.
  #

  if (defined $sym and $sym->block eq $bloc <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19397	19765	
==>codes, new AssignOp( $parser,
        'result' => $result,
        'arg1'   => $nil->[0],
    );
    push @returns, $result;
    push @opcodes, new CallOp( $parser,
        'result' => \@returns,
        'arg1'   => $fct->[0],
        'arg2'   => \@params,
    );
    return [ $result, \@opcodes ];
}

sub BuildVoidFunctionCall {
    my ( $parser, $expr ) <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	25760	25922	
==>rg_num}[j] = \$I0
    inc j
    goto JT_LOOP_$name
JT_LOOP_END_$name:
PIR
			$arg_name = "P_ARG_$arg_num";
		}

		# Unknown.
		else {
			die "Known argument type $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399816	400194	
==>GS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 463,
                  "ARGS" => [
                              "p", <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	11362	11514	
==>le
            my $test_no = $builder->current_test() + 1;

            # Name of the file where output is written.
            # Switch to a different e <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops.pm	23	151	
==>e vars qw(%MARKERS);
sub mark {
    my $name = shift || '';
    my $number = ++$MARKERS{$name};
    $number = '' if ($number == 1 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2655	2783	
==>e vars qw(%MARKERS);
sub mark {
    my $name = shift || '';
    my $number = ++$MARKERS{$name};
    $number = '' if ($number == 1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943868	944092	
==>ot_charset_number_of_str(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944657	944881	
==>ot_charset_number_of_str(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9529	9655	
==>al in an XML Name.
        or $new_code =~ m/^[-\.0-9]/s
        or $new_code =~ m/:[-\.0-9]/s;
            # The legal under-0 <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10793	10919	
==>al in an XML Name.
        or $new_code =~ m/^[-\.0-9]/s
        or $new_code =~ m/:[-\.0-9]/s;
            # The legal under-0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400896	401308	
==>GS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 464,
                  "ARGS" => [
                              "p",
                              "ic <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764372	764780	
==>d",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 863,
                  "ARGS" => [
                              "i",
                              "nc"
                            ],
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	16011	16154	
==>$fixedargs[@fixedargs - 1] eq 'i'));
        or_flag(\$jumps, "PARROT_JUMP_RESTART")     if ($restart);

        $op->jump($jumps);
        $sel <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20643	20732	
==>ParserStartToken>,
L<Pod::Simple::PullParserTextToken>, and
L<Pod::Simple::PullParserEndTo <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2704	2793	
==>ParserStartToken>,
L<Pod::Simple::PullParserTextToken>, and
L<Pod::Simple::PullParserEndTo <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2110	2207	
==>s a dash,
period, or colon, the corresponding method name will have a underscore
in its place.  Fo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560489	560595	
==>Y" => "#line 152 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next = <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops.pm	48	162	
==>mark {
    my $name = shift || '';
    my $number = ++$MARKERS{$name};
    $number = '' if ($number == 1) && ($name <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2680	2794	
==>mark {
    my $name = shift || '';
    my $number = ++$MARKERS{$name};
    $number = '' if ($number == 1) && ($name <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	2662	2784	
==>takes care of synchronization, data
as such is not a good API unless it's constant).

Think multithreaded access, or just p <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	38989	39111	
==><reject> pattern matches). By default, a failure to match a closing
tag causes C<extract_tagged> to immediately fail.

Howe <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76703	76812	
==>RACE =~ /\d+/
	    && $::RD_TRACE>1
	    && $::RD_TRACE+10<length($_[0]))
	{
		my $count = length($_[0]) - $:: <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77014	77123	
==>RACE =~ /\d+/
	    && $::RD_TRACE>1
	    && $::RD_TRACE+10<length($_[0]))
	{
		my $count = length($_[0]) - $:: <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	91	214	
==>006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/cgoto.pm - Computed C<goto>

=head1 DESCRIPTION

Determines whe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64156	64439	
==>NEXT",
                  "NAME" => "runinterp",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5050	5247	
==>ax;
        $maxlen += $kidmax;
    }
    return $maxlen;
}

sub startset {
    my $op = shift;
    my %start;
    foreach (@{ $op->{args} }) {
        my @next = $_->startset();
        @start{@nex <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	10667	10795	
==>e $type[CURR] $syms[CURR]\n";
		$eol=0;
		$expr=1;
		next;
	}
	unless ($eol) {
		fdprint($fd, "\\n");
	}
	barf();
}
sub parse_rea <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	7938	8065	
==>'");
        Test::diag("    Actual: '" ~ ($got.defined ?? $got !! "undef") ~ "'");
    }
    else {
        Test::diag("    Act <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	3855	3959	
==>=~ /DEPRECATED/);

    return $name;
}

=item C<func_name()>

The same as C<full_name()>, but with 'C<Par <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	10668	10776	
==>\s*';

	my @match = _match_variable($textref,$pre);

	return _fail wantarray, $textref unless @match;

	retur <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357989	358183	
==>"\n  PIO_eprintf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358653	358847	
==>"\n  PIO_eprintf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	863	1040	
==>o::Construct::Expression::Value::Identifier));

  my $self = bless {
    BLOCK  => $block,

    KIND   => 'sub',
    TYPE   => $type,
    NAME   => $ident->value,
    PROPS  => $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	827	1001	
==>o::Construct::Expression::Value::Identifier));

  my $self = bless {
    BLOCK  => $block,

    KIND   => 'var',
    TYPE   => $type,
    NAME   => $ident->value,
    FILE   = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581406	581796	
==>ses",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 663,
                  "ARGS" => [
                              "p",
                              "s",
                              "s <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76154	76406	
==>/\s+/ /g;
	print ERROR "\n" if _verbosity("WARN");
	write ERROR;
	return 1;
}

sub _warn($$;$)
{
	return 0 unless _verbosity("WARN") && ($::RD_HINT || $_[0] >= ($::RD_WARN||1));
	$errortext   = $_[1];
	$errorprefix = "Warning" .  ($_[2] ? " (line $_[2]) <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	6339	6577	
==>=~ /^\d+$/) {
                if ($has_pop) {
                    die "Duplicate value for pop in rule $rule->{'name'}\n";
                } else {
                    $has_pop = 1;
                }
            } else {
                di <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	2733	2857	
==>cmd, $f) = @_;
    @dis = qx($cmd $f);
    print @dis if $opt{d};
}

sub get_source {
    my ($f) = @_;
    open IN, $f or di <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	9791	9954	
==>{ $parapos = pos($$textref) }

	return (
		$startpos,    $opentagpos-$startpos,		# PREFIX
		$opentagpos,  $textpos-$opentagpos,		# OPENING TAG
		$textpos,     $para <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243960	244057	
==>TABLE_get_string(interpreter, {{\@2}});\n  {{\@1}} = string_compare(interpreter, l, {{\@3}});\n  { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244892	244989	
==>TABLE_get_string(interpreter, {{\@2}});\n  {{\@1}} = string_compare(interpreter, l, {{\@3}});\n  { <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	106	254	
==>) from .+?([\.\w]+)\n$/) {
		push @results, {
			name	=> $3,
			total	=> $2,
			done	=> $1,
			percent	=> int(($1 / $2) * 100)
		};
	}
}

p <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	106	254	
==>) from .+?([\.\w]+)\n$/) {
		push @results, {
			name	=> $3,
			total	=> $2,
			done	=> $1,
			percent	=> int(($1 / $2) * 100)
		};
	}
}

p <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	811	905	
==>c++];
our $LDFLAGS = qq[-L/opt/local/lib -L/usr/local/lib -flat_namespace  ];
our $LD_LOAD_FLAG <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	815	909	
==>c++];
our $LDFLAGS = qq[-L/opt/local/lib -L/usr/local/lib -flat_namespace  ];
our $LD_LOAD_FLAG <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	119	277	
==>2006-05-30T15:23:20.183054Z coke  $

=head1 NAME

tools/build/pbc2c.pl - Parrot byte code compiler

=head1 SYNOPSIS

    perl tools/build/pbc2c foo.pbc > foo.c <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	470	581	
==>ected 5 args!" unless @_ == 5;

  my ($block, $prefix, $left, $op, $right) = @_;

  my $self = bless {
    BLOCK <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	470	581	
==>ected 5 args!" unless @_ == 5;

  my ($block, $prefix, $left, $op, $right) = @_;

  my $self = bless {
    BLOCK <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017938	1018035	
==>ct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_gmtime_r(&t, & <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018863	1018960	
==>ct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_gmtime_r(&t, & <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	617584	617728	
==>lr_types)\n\t    goto runit_v_pp;\n\tif (++lru->u.type == lr_types)\n\t    goto runit_v_pp;\n\tif (++lru->u.type == lr_types)\n\t    goto runit_v <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	617642	617738	
==>lr_types)\n\t    goto runit_v_pp;\n\tif (++lru->u.type == lr_types)\n\t    goto runit_v_pp;\n\tmi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	7591	7775	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "branch",
                  "FLAGS" => ":base_loop",
                  "ARGDI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936253	936345	
==>ine 455 \"src/ops/string.ops\"\n  {{\@1}} = string_titlecase(interpreter, {{\@2}});\n  {{+=3} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937030	937122	
==>ine 455 \"src/ops/string.ops\"\n  {{\@1}} = string_titlecase(interpreter, {{\@2}});\n  {{+=3} <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26915	27163	
==>@{ $cond->[1] };
    push @opcodes, new BranchUnlessOp( $parser,
        'arg1'   => $cond->[0],
        'result' => $l_break,
    );

    foreach my $op ( @{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{re <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26041	26204	
==>@{ $cond->[1] };
        push @opcodes, new BranchUnlessOp( $parser,
            'arg1'   => $cond->[0],
            'result' => $l_next,
        );
        pu <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16926	17066	
==>nts
        #  with text in them.
        
        # Yes, stipulate the list without a range, so that this can work right on
        #  all c <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10366	10486	
==>nts
    #  with text in them.

    # Yes, stipulate the list without a range, so that this can work right on
    #  all c <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	3732	3848	
==>output_isnt($code, $unexpected, $description)>

Runs the Parrot Bytecode and passes the test if a string comparison o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23855	23947	
==>rpreter->current_object = NULL;\n  interpreter->current_cont = {{\@2}};\n  dest = (opcode_t * <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355134	355235	
==>\@1}};\n  STRING * const s = (VTABLE_get_string(interpreter, p));\n  if (s) {\n    PIO_putps(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360834	360935	
==>\@1}};\n  STRING * const s = (VTABLE_get_string(interpreter, p));\n  if (s) {\n    PIO_putps(interpret <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	6883	7011	
==>();
    %lexicals = ();
    %names = ();
}

sub ARG_count {
    my ($n, $c, $cmt) = @_;
    print <<EOC;
	# $c($n) $cmt
EOC
}

my <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	1369	1483	
==>TABLE CELLSPACING="0" WIDTH="730">
            <TR>
                <TD WIDTH="100%" COLSPAN="2" CLASS="BANNER">par <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	1695	1787	
==>rpreter->code->prederef.code + offset_in_ops;
}
#else
#  define prederef_to_opcode(i, pred) ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46959	47061	
==>}} != 0) { Interp_debug_SET(interpreter,   {{\@1}}); }\n  else         { Interp_debug_CLEAR(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47742	47844	
==>}} != 0) { Interp_debug_SET(interpreter,   {{\@1}}); }\n  else         { Interp_debug_CLEAR(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571166	571430	
==>}} = Parrot_object_isa(interpreter, {{\@2}}, class);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572121	572385	
==>}} = Parrot_object_isa(interpreter, {{\@2}}, class);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943817	943903	
==>"#line 516 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_charset_number_of_str(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944606	944692	
==>"#line 516 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_charset_number_of_str(interpreter <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	31398	31639	
==>our tests ran without a plan!');
    _whoa($self->{Curr_Test} != @{ $self->{Test_Results} },
          'Somehow you got a different number of results than tests ran!');
}

=item B<_whoa>

  _whoa($check, $description);

A sanity check, simila <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	13093	13218	
==>english_func($funcname);
		#print CODE "\tgoto FUNC_EXIT_$_\n";
	} elsif ($syms[NEXT] eq "sub") {
		push @{$code{$seg}->{code} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14527	14635	
==>unget_token(@to_unget);
  
  if(DEBUG) {
    if(defined $title) { print "  Returing title <$title>\n" }
    e <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	23092	23200	
==>unget_token(@to_unget);
  
  if(DEBUG) {
    if(defined $title) { print "  Returing title <$title>\n" }
    e <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	6925	7054	
==>e dramatic!).
#
sub add_checks {
    my ($self, $t, $guarantee, $follow_min) = @_;

    if ($t->{name} eq 'rule') {
        $t->{a <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	5711	5904	
==>equire_comma         { return shift->require('comma');         }
sub require_ident         { return shift->require('ident');         }
sub require_literal       { return shift->require('literal' <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	2219	2342	
==>}


=back

Test::Simple will start by printing number of tests run in the form
"1..M" (so "1..5" means you're going to run 5 <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	60238	60335	
==>))
			  and $prod = $rule->addprod(new Parse::RecDescent::Production($line))
			or  _no_rule("prod <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	9160	9286	
==>d MANIFEST: $!\n";

    my %files_in_dir_nocase;
    my %files_in_dir_8dot3;
    my $line = 0;
    while (<F>) {
        $line+ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2880	3075	
==>ub gen_h {
    my ($self) = @_;
    my $hout = dont_edit('various files');
    my $lc_libname = lc $self->{opt}{library};

    $hout .= <<"EOH";
Parrot_PMC Parrot_lib_${lc_libname}_load(Parrot_INT <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2889	2987	
==>self, $val1, $val2, $dest) = @_;
    $self->output_test('<', $val1, $val2, $dest);
}

sub output_le <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83767	83896	
==>OMPREG_HASH);\n  VTABLE_set_pmc_keyed_str(interpreter, compreg_hash, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84673	84802	
==>OMPREG_HASH);\n  VTABLE_set_pmc_keyed_str(interpreter, compreg_hash, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	1707	1875	
==>CONCAT(_CONST_STRING_, l)]
#define CONST_STRING(i, s) _CONST_STRING(i, __LINE__)

HEADER
    print ALL "# $infile\n";
    my %this_file_seen;
    # There is a chance tha <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612977	613094	
==>ct.ops\"\n    VTABLE_set_attr_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613884	614001	
==>ct.ops\"\n    VTABLE_set_attr_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/config/auto/jit.pm	799	964	
==>conf->options->get('verbose');

    my $jitbase  = 'src/jit';        # base path for jit sources
    my $archname = $Config{archname};
    my ($cpuarch, $osname) = sp <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	35638	35826	
==>,
  'acos'             => \&_op_acos,
  'atan'             => \&_op_atan,
  'sqrt'             => \&_op_sqrt,
  'expt'             => \&_op_expt,
  'make-rectangular' => \&_op_make_rectangu <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	485	715	
==>@files = qw(
    include/parrot/cclass.h
    include/parrot/core_pmcs.h
    include/parrot/datatypes.h
    include/parrot/enums.h
    include/parrot/exceptions.h
    include/parrot/interpreter.h
    include/parrot/io.h
    include/ <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2190	2306	
==>c?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test::pro <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2585	2701	
==>c?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test::pro <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	19713	19810	
==>CALL_FRAMES is disabled, add the signature to src/call_list.txt", 75, "ascii", 0);
#endif
    mess <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	565	718	
==>bless {
    BLOCK     => $block,

    PREFIX    => $prefix,
    KIND      => 'while',
    LEFT      => $left,
    OP        => $op,
    RIGHT     => $righ <==
2	/Users/nnunley/parrot/config/auto/snprintf.pm	239	336	
==>d if it's C99 compliant.

=cut

package auto::snprintf;

use strict;
use vars qw($description @arg <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	8317	8597	
==>ND',
        'break'    => 'BREAK',
        'do'       => 'DO',
        'else'     => 'ELSE',
        'elseif'   => 'ELSEIF',
        'end'      => 'END',
        'false'    => 'FALSE',
        'for'      => 'FOR',
        'function' => 'FUNCTION',
        'if'       => ' <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	5324	5513	
==>$ccwarn) {
                $w =~ s/^-W(?:no-)?(.*)$/$1/;
                @warns = grep !/^-W(?:no-)?$w$/, @warns;
            }
            $warns = join ' ', @warns;
        }
    }

    if <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	3219	3376	
==>$key, $gccversion) = @_;

        if ($gccversion) {

            # Don't know how to do this for gcc.
        } else {
            my $linkflags = $conf->dat <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9953	10073	
==>from 5 to 12
function myfunc(a)
	print a
	a=12
        myfunc=80
end function
z=5
T=myfunc(z)
print z

' Basic Hello
a$=" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11566	11686	
==>from 5 to 12
function myfunc(a)
	print a
	a=12
        myfunc=80
end function
z=5
T=myfunc(z)
print z

' Basic Hello
a$=" <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8447	8566	
==>or  do {
#DBG>				$debug & 0x04
#DBG>			and	print STDERR 
#DBG>				    "go to state $$states[$$stack[-1][0]]{GOTOS}{$ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8064	8180	
==>or  do {
#DBG>				$debug & 0x04
#DBG>			and	print STDERR 
#DBG>				    "go to state $$states[$$stack[-1][0]]{GOTOS}{$ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	23597	23748	
==>um = 0;
	my $arg_size = 0;
	foreach (@args) {
		my $out;
		my $arg_name;

		# uint8
		if (/^uint8$/) {
			$out =  "    \${I_ARG_$arg_num} = bc.read_uint <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	149	299	
==>erpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use war <==
2	/Users/nnunley/parrot/config/auto/va_ptr.pm	289	384	
==>a_ptr;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base) <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33633	33768	
==>!= 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcodes2, @{ $expr->[1] };
        my $callop = pop @opcodes2 <==
2	/Users/nnunley/parrot/config/auto/jit.pm	367	597	
==>rot::Configure::Step::Base);

use Config;
use Parrot::Configure::Step qw(copy_if_diff cc_gen cc_clean cc_build cc_run);

our $description = 'Determining architecture, OS and JIT capability';
our @args        = qw(jitcapable minipar <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4042	4158	
==>ing mandatory parameter '".lc($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _DBLoad {
	{
		n <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3839	3945	
==>ing mandatory parameter '".lc($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _DBLoad {
	{
		n <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39527	39721	
==>port,

####
#### Input
####

  'read' => \&_op_read,
  'read-char' => \&_op_read_char,
  'peek-char' => \&_op_peek_char,
  'eof-object?' => \&_op_eof_object_p,
  'char-ready?' => \&_op_char_ready <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033353	1033457	
==>name, ctx);\n    if (PMC_IS_NULL(lex_pad)) {\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034451	1034555	
==>name, ctx);\n    if (PMC_IS_NULL(lex_pad)) {\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"L <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	54861	55005	
==>below).

If the extractor is a precompiled regular expression or a string,
it is matched against the text in a scalar context with a leading
'\G' <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1907	2006	
==>Label generation.
sub gen_label() {
	# This is a good place (as we call gen_label before translating <==
2	/Users/nnunley/parrot/config/gen/icu.pm	4226	4440	
==>);
    $conf->data->set(testheader  => "$header");
    cc_gen('config/auto/headers/test_c.in');

    $conf->data->set(testheaders => undef); # Clean up.
    $conf->data->set(testheader  => undef);
    eval { cc_buil <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	7137	7297	
==>/;
        
        print {$self->{'output_fh'}} 
            qq(<a name="), esc($name), qq("\n>);
    
    } 
    else 
    {
        print {$self->{'output_fh' <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11193	11290	
==>0} = "$"
${STEMP0} = ${PTEMP1}["reg_type_short"]
${DEST0} = concat ${STEMP0}
inc stack_depth
${STE <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8379	8476	
==>0} = "$"
${STEMP0} = ${PTEMP1}["reg_type_short"]
${DEST0} = concat ${STEMP0}
inc stack_depth
${STE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	410572	411004	
==>S" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 474,
                  "ARGS" => [
                              "i",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 552 \ <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	8314	8433	
==>[x])
#define ROFFS_STR(x) REG_OFFS_STR(jit_info->cur_op[x])
#define ROFFS_PMC(x) REG_OFFS_PMC(jit_info->cur_op[x])
#
END <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086435	1086833	
==>",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1205,
                  "ARGS" => [
                              "p",
                              "p",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 163 \"src/ops/exp <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	512	641	
==>::Docs::HTMLPage;

use strict;
use warnings;

=item C<header($title, $navigation, $resources)>

Returns the page header with the s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50173	50273	
==>preter,   PARROT_PROFILE_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_PROFILE_FL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50966	51066	
==>preter,   PARROT_PROFILE_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_PROFILE_FL <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	299	432	
==>line) = @_;
	my $tlc;
	tie $tlc, q{Parse::RecDescent::LineCounter}, $thisline->[0],
	    $thisline->[1];
	$tlc;
}

sub expectation_mes <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	9725	9888	
==>e = 0 if $type eq 'scan';

        # Default for everything else is to pass the same guarantee
        # and follow_min to all children. (Which is reasonable, since <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957558	957654	
==>\n  if (n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\"encoding '%Ss' not found\", {{\@2}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958463	958559	
==>\n  if (n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\"encoding '%Ss' not found\", {{\@2}} <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	8117	8213	
==>o arg version
		@e=EXPRESSION();
	}
	push @{$code{$seg}->{code}},<<CLS;
	_screen_clear()
CLS
	fee <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2694	2816	
==>y $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = $op->{arg1}->{symbol}\[$op->{arg2}->{ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	22429	22655	
==>';

        *{$package.'::'.$func} = sub {
            my ($source, $expected, $desc) = @_;

            # $test_no will be part of temporary file
            my $test_no = $builder->current_test() + 1;

            $expected = <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	6029	6180	
==>d $_;

        if (/\t/) {
            s/\t/\[TAB\]/g;
            warning($file, $line, "Tab character in source: $_\n");
        }
    }
}


sub check <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835555	835764	
==>DE" => 946,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 215 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interp <==
2	/Users/nnunley/parrot/config/auto/m4.pm	570	695	
==>stalled';

@args = qw();

sub runstep
{
    my ($self, $conf) = @_;

    my $archname = $Config{archname};
    my ($cpuarch, $ <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2815	2923	
==>h pre/post version 3.13 we're normalizing the current
    # working dir to be '.'.
    return (defined $rel_p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427956	428217	
==>ispatch_v_pn(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428843	429104	
==>ispatch_v_pn(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7851	7953	
==>%=0
if i% then print "Should not happen (int)"
i%=54
if i% then print "This is true" else print "Oops ( <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14838	14940	
==>%=0
if i% then print "Should not happen (int)"
i%=54
if i% then print "This is true" else print "Oops ( <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	6105	6284	
==>als{lines} * 100)       : 0));
    $totals{branch_coverage} = sprintf("%.2f", ($totals{branches} ? ($totals{covered_branches} / $totals{branches} * 100) : 0));
    $totals{call_cov <==
2	/Users/nnunley/parrot/config/gen/config_h.pm	1370	1488	
==>der includes
 */

EOF

    for (sort($conf->data->keys())) {
        next unless /i_(\w+)/;
        if ($conf->data->ge <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	6564	6766	
==>cal pmc temp');
    # locals inside this code
    my %locals;
    while (my $line = <$file>)
    {
        # rename labels
        if ($line =~ /^\s* (\w+) \s* : \s*$/mx) {
            $code .= emit($1." <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1435	1617	
==>g_hash(void);  

void
Parrot_set_config_hash_internal (const unsigned char* parrot_config,
                                 unsigned int parrot_config_size);


static const unsigned c <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8478	8576	
==>20 step 4
  print c$(i);tab$(12);c$(i+1);tab$(22);c$(i+2);tab$(32);c$(i+3)
next
print
data "ABANDON <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21342	21440	
==>20 step 4
  print c$(i);tab$(12);c$(i+1);tab$(22);c$(i+2);tab$(32);c$(i+3)
next
print
data "ABANDON <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	6816	6963	
==>'/' x ($len/2) . ($len%2 ? $slash : '');
            }eg;
            # replace \* with \\*, so make will not eat the \
            $line =~ s{(\\\* <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	315154	315441	
==>_u1",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 368,
                  "ARGS" => [
                              " <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	3369	3491	
==>fined $self->block->block;
}


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $type  = $se <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2479	2593	
==>p) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  $op->{result}->{symbol} = $op->{arg1}->{symbol}\n <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	4925	5039	
==>p) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  $op->{result}->{symbol} = $op->{arg1}->{symbol}\n <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6030	6140	
==>ing' => \&_qq_unquote_splicing
		};

  _num_arg ($node, 1, 'quote');

  my $item = _get_arg($node,1);

  __quot <==
2	/Users/nnunley/parrot/config/auto/gc.pm	1159	1290	
==>data->get('i_malloc')) {
            $conf->data->set(malloc_header => 'malloc.h');
        } else {
            $conf->data->set(ma <==
2	/Users/nnunley/parrot/config/auto/memalign.pm	958	1077	
==>data->get('i_malloc')) {
        $conf->data->set(malloc_header => 'malloc.h');
    } else {
        $conf->data->set(ma <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300748	301065	
==>=> "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 350,
                  "ARGS <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	1219	1346	
==>_CORE";
while ($cc_inc  =~ s/-I(\S+)//g) { push @incdirs, $1; }
while ($ccflags =~ s/-I(\S+)//g) { push @incdirs, $1; }
my $i_fl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924459	924733	
==>one, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925250	925524	
==>one, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
2	/Users/nnunley/parrot/examples/benchmarks/freeze.pl	21	111	
==>t (C) 2001-2006, The Perl Foundation.
# $Id: /parrot/examples/benchmarks/freeze.pl 19601 20 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	2188	2324	
==>imple::PullParserStartToken';
  $self->{'text_token_class'}  ||= 'Pod::Simple::PullParserTextToken';
  $self->{'end_token_class'}   ||= ' <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9133	9240	
==>P0} = pop lazy_moves

# Emit move.
POST_STORE_${CURIC}_CONT:
${INS} = concat ${STOREREG}
${INS} = concat " = <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	18925	19030	
==>))
    # rather than O(n).
	my $pir = <<PIRCODE;
	# Translation code dispatch table.
	cur_ic = bc.read_uin <==
2	/Users/nnunley/parrot/lib/Test/More.pm	3528	3657	
==>completely skip an entire testing script.

  use Test::More skip_all => $skip_reason;

Your script will declare a skip with the re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528300	528642	
==>"i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 610,
                  "ARGS" => [
                              "n",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 838 \"src/ops/math.ops\"\n  {{\@1} <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	195	298	
==>s

=head1 SYNOPSIS

    % perl examples/mops/mops.pl

=head1 DESCRIPTION

A Perl implementation of the F <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	191	294	
==>s

=head1 SYNOPSIS

    % perl examples/mops/mops.pl

=head1 DESCRIPTION

A Perl implementation of the F <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9086	9271	
==>atus
        or   do {

            $$errstatus = 1;
            &$error($self);
                $$errstatus # if 0, then YYErrok has been called
            or  next;       # so c <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8676	8855	
==>atus
        or   do {

            $$errstatus = 1;
            &$error($self);
                $$errstatus # if 0, then YYErrok has been called
            or  next;       # so c <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5859	6002	
==>_enum(mmd.pasm) */

typedef enum {
EOM
    for my $entry (@{$vtable}) {
    next unless ($entry->[4] =~ /MMD_/);
    next if ($entry->[4] =~ /_I <==
2	/Users/nnunley/parrot/config/init/hints/cygwin.pm	756	857	
==>nd use 'gcc -shared' instead of 'ld2'.
    # If this later causes problems, it might be worth revisiti <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	5842	6057	
==>owed";
		}
		push @{$code{$seg}->{code}}, "ON_${ons}_$i:\n";
		$i++;
	}
	if ($branch eq "gosub") {
		push @{$code{$seg}->{code}}, "\tnoop\nON_END_${ons}:\n";
	}
	$ons++;
}
sub parse_randomize {
	if ($type[NEXT] =~ /S <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	23889	24020	
==>=item B<todo_output>

    $Test->todo_output($fh);
    $Test->todo_output($file);

Where diagnostics about todo test failures and di <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4115	4216	
==>tack_depth

# Get type (so we can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign regi <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2531	2632	
==>tack_depth

# Get type (so we can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assign regi <==
2	/Users/nnunley/parrot/tools/util/pirtidy.pl	431	562	
==>file.$extension";
    open my $ofh, '>', $outfile;

    my $formatter = new Parrot::PIR::Formatter();

    foreach my $line (<$ifh>) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103851	1103944	
==>"\n\tSTRING *class = {{\@2}};\n\tINTVAL type = pmc_type(interpreter, class);\n\tif (!type) {\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105066	1105159	
==>"\n\tSTRING *class = {{\@2}};\n\tINTVAL type = pmc_type(interpreter, class);\n\tif (!type) {\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354016	354356	
==>FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 413,
                  "ARGS" => [
                              "sc"
                            ],
                  "BODY" => "#line 200 \"src/o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957022	957271	
==>NAME" => "find_encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957926	958175	
==>NAME" => "find_encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function", <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	2250	2413	
==>print $fh $makefile;
	close $fh;
}


# Generate Config.pm.
# ###################
sub generate_config_pm(%) {
	my %config = @_;
	
	# Read in template.
	my <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	38911	39035	
==>pcodes2, @{$block};
    push @opcodes2, new EndDir( $parser );
    foreach my $op (@opcodes2) {
        if ( $op and $op-> <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	900	1002	
==>rt_Para  {  $_[0]{'Thispara'} = '' }
sub start_head1 {  $_[0]{'Thispara'} = '' }
sub start_head2 {  $_[ <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3537	3652	
==>e eq 'compile') {
    # Convert X.c -> X.o for all X.c
	my $core_suffix;
	foreach $core_suffix (values %cores) {
		c <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	1311	1470	
==>nd/or items.

=cut

sub new
{
    my $self = ref $_[0] ? ref shift : shift;
    my $name = shift;
    my $index_path = shift || 'index.html';
    my $text = shi <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	224	319	
==>l examples/mops/mops.pl

=head1 DESCRIPTION

A Perl implementation of the F<examples/mops/mops.p <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	220	315	
==>l examples/mops/mops.pl

=head1 DESCRIPTION

A Perl implementation of the F<examples/mops/mops.p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819547	819635	
==>try_t * const entry =\n    stack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820507	820595	
==>try_t * const entry =\n    stack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	1977	2093	
==>rn 0;
}
sub isuserfunc {
#	print "Isuserfunc $_[0] and $funcname..";
	return 0 unless defined $_[0];
	return 0 if $fu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75243	75737	
==>DIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 98,
                  "ARGS" => [
                              "p",
                              "p",
                              "s",
                              "sc"
                            ],
                  "BODY" = <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	25605	25794	
==>ht = entry;
EOC
        }
        else {
            $cout .= <<"EOC";
        _temp_mmd_init[$entry->[0]].right = my_enum_class_$entry->[1];
EOC
        }
    }
    # just to be safe
    fo <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	14628	14767	
==>{=0}}/mg;

        $branch ||= $short_name =~ /runinterp/;
        $next   ||= $short_name =~ /runinterp/;

        if ($body =~ s/\brestart <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113344	113621	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114082	114359	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ] <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15281	15382	
==>ol;
  multi sub is_deeply (List  $got, List  $expected, Str $desc?) returns Bool;
  multi sub is_deepl <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	2676	2814	
==>) {
    $compiler->emit("  goto $label");
  } else {
    if ($cond eq 'unless') {
      $op = $compiler->invert_relop($op);
      $cond = ' <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	26130	26556	
==>f (!$t) {
	    $t = temp('P');
	    print <<EOC;
	$t = P5
EOC
	}
	push @stack, [$name, $t, $rett];
    }
}

sub POP_TOP
{
    my ($n, $c, $cmt) = @_;
    print "\t\t$cmt\n";
    #pop @stack;
}
my @fast;
sub LOAD_FAST
{
    my ($n, $c, $cmt) = @_;
    my $p;
    if ($p=$lexicals{$c}) {
	$n = $fast[$n]->[0];
	print <<EOC;
	\t # '$c' := $p $cmt
EOC
	$c = $p;
    }
    else {
	my $p = 5 + keys %params;
	$params{$c} = $c;
	$lexi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	11915	12112	
==>e_for_title
           # if we're so desperate we'll take the first
           #  =head1's content as a title
          and $head1_text_content =~ m/\S/
          and $head1_text_content !~ m/^[ A-Z <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	2478	2633	
==>es containing the data.
    my @rules = ();
    my $rule;

    # Read through rules file line by line.
    my $line = 0;
    my $in_heredoc = 0;
    my ($he <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24063	24200	
==>BER' => 36
		},
		GOTOS => {
			'exp' => 128,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' = <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	43345	43484	
==>that, when using the /x modifier on a regex, any comment
containing the current pattern delimiter will cause the regex to be
immediately ter <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9444	9534	
==>ne}?'
	my $prevline;
	tie $prevline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623789	623937	
==>r*)caller_ctx->bp.regs_i, dest_pred);\n\t}\n        else\n            n = 2;\n\t{{+=n}};\n    }\n    /* no match redo plain opcode */\n    ((void**)c <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	5410	5545	
==>", 0);/g;
                $asm =~ s/jit_emit_end/exec_emit_end/;
            }
            if (($cpuarch eq 'ppc') && ($genfile ne "src/ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	802	967	
==>s methods,
and adds these methods:

=over

=item $token->tagname

This returns the tagname for this end-token object.
For example, parsing a "=head1 ..." line will gi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1228	1328	
==>s methods,
and adds these methods:

=over

=item $token->tagname

This returns the tagname for this s <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	72	243	
==>2006-05-15T19:40:33.020324Z bernhard  $

=head1 NAME

tools/dev/mk_manifest_and_skip.pl - Recreate MANIFEST and MANIFEST.SKIP

=head1 SYNOPSIS

    % perl tools/dev/mk_mani <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	9123	9244	
==>F, "<MANIFEST") || die "Unable to read MANIFEST: $!\n";

    my %files_in_dir_nocase;
    my %files_in_dir_8dot3;
    my $ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	967	1212	
==>=> 'v',
    min => 'v',
    range => 1,
    xrange => 1,
    reduce => 1,
    str => 1,
    tuple => 1,
);

my %vtables = (
    __iter__ => '__get_iter',
    __repr__ => '__get_repr',
    __str__ => '__get_string',
    __cmp__ => 41,		# MMD_CMP
) <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	987	1085	
==>pper\n";
}

# Pre and post branch operation hooks.
sub pre_branch {
	die "pre_branch not implemente <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2347	2463	
==>( $code, $lang_fn );

        # STDERR is written into same output file
        my $exit_code = Parrot::Test::run_ <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1867	1980	
==>( $code, $lang_fn );

        # STDERR is written into same output file
        my $exit_code = Parrot::Test::run_ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5428	5554	
==>ers on configuration key $key\n"
        if $verbose;

    return CORE::keys %{$self->{triggers}{$key}};
}

=item C<gettrigger( <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	8670	8800	
==>n't close    stdout" if $out;
    close STDERR             or die "Can't close    stderr" if $err;

    open  STDOUT, ">&OLDOUT" or <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8202	8319	
==>n't close    stdout" if $out;
    close STDERR or die "Can't close    stderr" if $err;

    open STDOUT, ">&OLDOUT" or <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	9327	9524	
==>}
    else {
        @$result{ 'ok', 'actual_ok' } = ( 1, $test );
    }

    $out .= "ok";
    $out .= " $self->{Curr_Test}" if $self->use_numbers;

    if( defined $name ) {
        $name =~ s|#|\ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	21214	21400	
==>ant->[1] . '_' .$variant->[0];
                push @mmds, [ $func, $left, $right, $meth_name];
            }
            $self->{mmds} = @mmds;
        }
    }
    my $methlist = join(", <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	31302	31504	
==>ntent'};
            delete $para->[1]{'number'};
             # Only a PROPER item-number element is allowed
             #  to have a number attribute.
          } else {
            die "Unhandled ite <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955322	955496	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "encodingname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956133	956307	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "encodingname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	6724	6824	
==><VERSION>-<DEVEL>-r<revision>-<branch>--<cpuarch>-<osname>-<cc>-<runcore>--<timestamp>-<duration>--$s <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2735	2850	
==>ating (.*)\./) {
            my $path = "$dirname/$1";
            rename($1, "$dirname/$1") or die("Couldn't rename <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2661	2756	
==>EDITS' => 'Project info',
	'DEVELOPING' => 'Project info',
	'harness' => 'Perl test harness',
	' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236347	236645	
==>"inline",
                  "CODE" => 275,
                  "ARGS" => [
                              "i",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 606 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(inte <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19992	20104	
==>,
	return

' Random number distribution
randomize timer
max=10
dim a(max)
for i = 0 to 100
	b=rnd*max+1
	a(b)=a(b <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1938	2039	
==>0123456789])/'&#'.(ord($1)).';'/eg;
    # Yes, stipulate the list without a range, so that this can wo <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2041	2142	
==>0123456789])/'&#'.(ord($1)).';'/eg;
    # Yes, stipulate the list without a range, so that this can wo <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	2139	2257	
==>[eE]\d+)?)/;
    $node->{type} ||= 'EXPRESSION';
  }
}

sub parse {
  my $tokens = shift;
  my @tree;
  my $tree;

  my <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2370	2478	
==>mit_par(-1) }
sub end_Para        { $_[0]->emit_par( 0) }
sub end_item_bullet { $_[0]->emit_par( 0) }
sub end <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1938	2046	
==>mit_par(-1) }
sub end_Para        { $_[0]->emit_par( 0) }
sub end_item_bullet { $_[0]->emit_par( 0) }
sub end <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367671	367892	
==>[
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 336 \"src/ops/io.ops\"\n  {{\@1}} = PIO_reads(interpreter, PIO_STDIN(interpreter), (s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1660	1762	
==>0";0], <rx_pos> # group 0 start := pos');
}

sub output_increment {
    my ($self, $distance, $failLabe <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	17474	17568	
==>__ 

=head1 NAME

tools/gen_operator_defs.pl - Generate the definitions for all the various
APL <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	2124	2262	
==>sults{intsize} == 4) {
        $conf->data->set(int4_t => 'int');
    } elsif ($results{longsize} == 4) {
        $conf->data->set(int4_t = <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	8747	8860	
==>e    stderr" if $err;

    open  STDOUT, ">&OLDOUT" or die "Can't restore  stdout" if $out;
    open  STDERR, ">&O <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8267	8378	
==>e    stderr" if $err;

    open STDOUT, ">&OLDOUT" or die "Can't restore  stdout" if $out;
    open STDERR, ">&O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614193	614348	
==>s( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "classoffset",
                  "FLAGS" => ":object_c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615343	615498	
==>s( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "classoffset",
                  "FLAGS" => ":object_c <==
2	/Users/nnunley/parrot/languages/m4/tools/scrutinize.pl	274	463	
==>Author

Bernhard Schmalhofer - <Bernhard.Schmalhofer@gmx.de>

=cut

package main;

use strict;
use warnings;
use 5.006;

use Test::Perl::Critic -profile => 'tools/perlcriticrc';

all_critic_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1626	1793	
==>ndefined type name!")
    unless defined $type_name;

  #
  # Lookup the identifier:
  #

  my $sym = $block->find_symbol($self->name);

  #
  # If the identifier is al <==
2	/Users/nnunley/parrot/lib/Test/More.pm	34604	34702	
==>red B<as strings>.  This prevents
Test::More from piercing an object's interface allowing better bl <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	4814	4966	
==>k->file,
      $tok->line,
      $tok->kind,
      $tok->type || '',
      $tok->text;

    last if $tok->is_eof;
  }

=cut

}


#
# require()
#
# Requir <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26106	26241	
==>rg_num++;
	}

    # Generate code that we need to insert to handle enum fixups if this is
    # an instruction that needs it.
    my $pr <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	515	640	
==>n.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new(
		'Perl Modules', 'perl.html', '',
		$self->new_group('Ope <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	1820	1929	
==>@@@@@@@@@@@@@@@@@

__PACKAGE__->_accessorize(
  'nbsp_for_S',        # Whether to map S<...>'s to \xA0 charact <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	444	539	
==>ict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<config_groups()>

Dynamically <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	3636	3784	
==>=~ /experimental/;

    # mark experimental ops
    if ($experimental) {
	for $_ (@{$temp_ops->{OPS}}) {
	    $_->{experimental} = 1;
	}
    }

    p <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27391	27517	
==>odes, new LabelOp( $parser,
        'arg1' => $l_break,
    );
    return \@opcodes;
}

sub BuildRepeat {
    my ( $pars <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	21881	21979	
==>y.

Returns false.  Why?  Because diag() is often used in conjunction with
a failing test (C<ok() | <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	2603	2824	
==>rt_element({ Name => 'sub', Attributes => { name => $name, type => $type } });
  }
  else {
    $handler->start_element({ Name => 'sub', Attributes => { name => $name } });
  }

  foreach my $arg (@args) {
    my ($arg_typ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27967	28094	
==>ock};
    my $cond = get_cond( $parser, $expr );
    push @opcodes, @{ $cond->[1] };
    push @opcodes, new BranchIfOp( $pars <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	751239	751347	
==>ing_native(interpreter, {{\@1}},\n    string_copy(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  " <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1483	1578	
==>/processor.

=head1 METHOD CALLING

When Pod::Simple sees a "=head1 Hi there", for example, it b <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	46305	46493	
==>ck', 1,
sub
#line 75 "Lua\lua51.yp"
{
            PopScope( $_[0] );
            $_[1];
        }
	],
	[#Rule 8
		 'block', 3,
sub
#line 80 "Lua\lua51.yp"
{
            PopScop <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7548	7661	
==>t "100!"
    goto FIN
200 print "200!"
    goto FIN
300 print "300!"
    goto FIN
oats:
	print "Oats",
	return
pea <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19831	19944	
==>t "100!"
    goto FIN
200 print "200!"
    goto FIN
300 print "300!"
    goto FIN
oats:
	print "Oats",
	return
pea <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	1233	1365	
==>ere,
    # you get a 38M file of garbage. We'll temporarily assume everything
    # works and ignore stderr.
    $exit_code = Parrot: <==
2	/Users/nnunley/parrot/config/inter/encoding.pm	951	1069	
==>prompt('Which encodings would you like?', $encoding_list);
        }
    }

    # names of class files for src/pmc/Make <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1103	1317	
==>TEXT(interpreter->ctx)->pred_offset)

#  define opcode_to_prederef(i, op) \\
     ((void**) (op - CONTEXT(i->ctx)->pred_offset))

#define OP_AS_OFFS(o) (_reg_base + ((opcode_t*)cur_opcode)[o])

END
}

=item C<goto_a <==
2	/Users/nnunley/parrot/config/auto/headers.pm	2641	2823	
==>);
            last if $pass;
        }

        my $flag = "i_$header";
        $flag =~ s/\.h$//g;
        $flag =~ s/\///g;
        print "$flag: $pass\n" if defined $conf->options <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	1253	1384	
==>', ["$type$count"])
	if $regs{$type}->{$count};
    }
  }
}

sub _save_1 {
  my $self = shift;
  my $type = shift || 'I';
  my @temp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199888	200095	
==>",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 373 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}} <==
2	/Users/nnunley/parrot/config/init/defaults.pm	335	428	
==>s qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use FindBi <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	7405	7538	
==>AD_EXT", @sources)) {
        run(partial_link_cmd("$group$LOAD_EXT", $libs, \@sources))
          or die "partial link $group$LOAD_EX <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7616	7749	
==>AD_EXT", @sources)) {
        run(partial_link_cmd("$group$LOAD_EXT", $libs, \@sources))
          or die "partial link $group$LOAD_EX <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	989629	990014	
==>"TYPE" => "inline",
                  "CODE" => 1108,
                  "ARGS" => [
                              "i",
                              "ic",
                              "sc",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find <==
2	/Users/nnunley/parrot/lib/Test/More.pm	2573	2701	
==>ious ways to say "ok" with better diagnostics,
facilities to skip tests, test future features and compare complicated
data struct <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12843	12948	
==>ile. Once we have that all we need is the relative
    # path from the current directory to the file and r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85527	85623	
==>terpreter,\n      interpreter->iglobals, IGLOBALS_COMPREG_HASH);\n  {{\@1}} = VTABLE_get_pmc_keye <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86434	86530	
==>terpreter,\n      interpreter->iglobals, IGLOBALS_COMPREG_HASH);\n  {{\@1}} = VTABLE_get_pmc_keye <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36819	36923	
==>ret
}

EOC
}

=back

=head2 Parrot::Pmc2c::delegate Instance Methods

=over 4

=cut

package Parrot::Pmc2 <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	130	267	
==>e the alpha version come out as a number


use Test::Builder;
my $Test = Test::Builder->new;

sub import {
    my $self = shift;
    my $c <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	75	172	
==>/yacc.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/yacc.pm - parser gene <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8222	8356	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "br <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9337	9471	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "br <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	5767	5953	
==>ot set */
    interpreter->pmc_reg.registers[0] = userargv;

    for (i = 0; i < argc; i++) {
        /* Run through argv, adding everything to @ARGS. */
        STRING *arg = string_make <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1629	1756	
==>r symbols into our parent block:
  #

  my $name = $self->name;

#  printf STDERR "%s: About to copy symbol table to parent bloc <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	574	685	
==>BUG and print "++ $_[1]\n";
  
  print $fh   '  ' x ($_[0]{'indent'} || 0),  "<", $_[1];

  foreach my $key (sor <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4898	5000	
==>onstruct::Expression::Value::Identifier->new($block, $self->require_ident);
      my $name = $ident->va <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7892	7994	
==>onstruct::Expression::Value::Identifier->new($block, $self->require_ident);
      my $name = $ident->va <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	3811	3935	
==>uest'   , 191,
 'Agrave'   , 192,
 'Aacute'   , 193,
 'Acirc'    , 194,
 'Atilde'   , 195,
 'Auml'     , 196,
 'Aring'    , 1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48494	48588	
==>" => "#line 785 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49284	49378	
==>" => "#line 785 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARR <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	5498	5596	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_element_start {     # OVERRIDE IN D <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	4410	4642	
==>st once in file/;
            if ($total_branches) {
                my $covered_branches = int(($percent/100) * $total_branches);
                $totals{branches} += $total_branches;
                $totals{covered_branches} += $co <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3362	3482	
==>[^\\])\$/) { # Double-quote with an unescaped '$'.
      $string = substr($string, 1, -1); # Without the surrounding doub <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4411	4531	
==>pes index.
inc ${ITEMP0}
PIR
		$pir =~ s/\$push_num/$push_num/g;
		$push_num++;
	}

	# Return generated code.
	return $pi <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2827	2947	
==>pes index.
inc ${ITEMP0}
PIR
		$pir =~ s/\$push_num/$push_num/g;
		$push_num++;
	}

	# Return generated code.
	return $pi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841586	841677	
==>> "#line 40 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},0);\n  {{+=3} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842350	842441	
==>> "#line 40 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},0);\n  {{+=3} <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	6075	6196	
==>rt { lc $a cmp lc $b } keys %{ $branches{$branch} }
    ];
  }

  $tmpl->param(branches => my $p = [
    map {{
      name <==
2	/Users/nnunley/parrot/config/inter/charset.pm	1347	1479	
==>et_build .= <<END
src/charset/$charset\$(O): src/charset/$charset.h src/charset/ascii.h src/charset/$charset.c \$(NONGEN_HEADERS)


E <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	310029	310131	
==>\n    const char *command;\n\n    if (!(interpreter->pdb->state & PDB_BREAK)) {\n        interpreter->p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	10427	10554	
==>>new($block, $prefix, $left, $op, $right);
      }
      else {
        $self->INTERNAL_ERROR("Unexpected loop kind %s!", $kind) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009445	1009772	
==>"FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1126,
                  "ARGS" => [
                              "s",
                              "s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	4812	5059	
==>>>= )(.*)$}x) {
      push @tokens, Jako::Token->new(
        $file, $line, 'bit-assign', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^( \| | & | << | >> )(.*)$}x) {
      push @tokens, Jako::Token->new(
        $file, $line <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2575	2693	
==>, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        T <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	13066	13297	
==>@ops, <<'END';
{
my %MATCH;
while (my ($key, $val) = each %rx_match) {
    if (UNIVERSAL::isa($val, 'ARRAY')) {
        my ($start, $end) = @$val;
        $end = $rx_pos if $key eq '0';
        if (defined($start) && defined($end) & <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	6060	6193	
==>uld do @output = (), but I hate doing a
                 # compiler's work for it.
    my $keeping = 1;
    foreach my $stmt (@output2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	3219	3492	
==>ne 117 \"src/ops/core.ops\"\n  opcode_t *next = {{^+1}};\n  next = CHECK_EVENTS(interpreter, next);\n  {{=next}};\t/* force this being a branch op */\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	2518	2751	
==>=> \$help_flag,
    "dynamic|d"     => \$dynamic_flag,
    "core"          => \$core_flag,
) || Usage();

Usage() if $help_flag;
Usage() unless @ARGV;

my $class_name = shift @ARGV;
my %is_allowed = map { $_ => 1 } qw(C CGoto CGP CSwi <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10498	10583	
==>c,$d,$a,$_[9],21,0xfc93a039,/* 52 */
II,$a,$b,$c,$d,$_[16],6,0x655b59c3,/* 53 */
II,$d <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	14438	14541	
==>ref, $_->reftree()) foreach (@{ $op->{args} });
    return $ref;
}

sub Regex::Ops::Tree::multi_match::r <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	987	1140	
==>G $lang_code; # JMG
        close LANG; # JMG

        Parrot::Test::run_command( 
            "$PConfig{perl} languages/scheme/schemec languages/$lang_f" <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2832	2950	
==>$1;
  $html =~ /duration: (\d+)/       and $smoke{duration}     = $1;
  $html =~ /VERSION: ([\d\.]+)/    and $smoke{VER <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2462	2553	
==>mops.cs>,
F<examples/mops/mops.il>,
F<examples/mops/mops.p6>,
F<examples/mops/mops.ps>,
F<ex <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	2462	2553	
==>mops.cs>,
F<examples/mops/mops.il>,
F<examples/mops/mops.p6>,
F<examples/mops/mops.ps>,
F<ex <==
2	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	277	408	
==>ision 1.9  2002/06/01 18:23:01  clintp
# For new assembler
#
# Revision 1.8  2002/05/25 02:36:14  clintp
# Added autorun.bas, remove <==
2	/Users/nnunley/parrot/config/auto/alignptrs.pm	632	751	
==>f->set_result('skipped');
        return $self;
    }

    $self->set_result('');
    my $align;
    if (defined($conf-> <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2347	2457	
==>NG;
	# Sharing $stype $var with main  (array=$array)
	P0= P10[0]
	P1= P0["$stype"]
	P0= P1["$var"]	# Pull the o <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2574	2684	
==>NG;
	# Sharing $stype $var with main  (array=$array)
	P0= P10[0]
	P1= P0["$stype"]
	P0= P1["$var"]	# Pull the o <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1752	1979	
==>print "Elapsed time:  $N2\n"; # print  "Elapsed time:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 = $ <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1752	1979	
==>print "Elapsed time:  $N2\n"; # print  "Elapsed time:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 = $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83700	83808	
==>pmc_keyed_int(interpreter,\n      interpreter->iglobals, IGLOBALS_COMPREG_HASH);\n  VTABLE_set_pmc_keyed_str( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84606	84714	
==>pmc_keyed_int(interpreter,\n      interpreter->iglobals, IGLOBALS_COMPREG_HASH);\n  VTABLE_set_pmc_keyed_str( <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	318	413	
==>s/dev/lib_deps.pl - List libc dependencies

=head1 SYNOPSIS

    % perl tools/dev/lib_deps.pl [o <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	13984	14091	
==>evel = $Level + 1;
    $self->_regex_ok($this, $regex, '=~', $name);
}

sub unlike {
    my($self, $this, $r <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3457	3548	
==>}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}
got <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5219	5310	
==>}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}
got <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	4423	4598	
==>ce"
        );

        if ($options{commentType} eq '#') {
            foreach my $line (@comment) {
                $line = "# $line\n";
            }
        } elsif ($optio <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7084	7202	
==>ark";
    return @ops;
}

sub output_pushindex {
    my ($self, $reg) = @_;
    $reg = value(defined($reg) ? $reg : 'po <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6726	6844	
==>ark";
    return @ops;
}

sub output_pushindex {
    my ($self, $reg) = @_;
    $reg = value(defined($reg) ? $reg : 'po <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18688	18807	
==>ruct::Expression::Value->new($block, $self->require_value);
          last if $self->get(1)->is_close_paren;
          $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19714	19833	
==>ruct::Expression::Value->new($block, $self->require_value);
          last if $self->get(1)->is_close_paren;
          $ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	10847	11040	
==>call_list.txt if the generated signature is available
    # TODO report errors for "?"
    # --leo

    return $ret;
}

=item C<rewrite_nci_method($class, $method, $super, $super_table)>

Rewrit <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4133	4229	
==>Q_$eqnum
	set $result, 0.0
EQ_$eqnum: noop
CODE
	},
	'and' => sub {
		my($a1,$a2,$result,$op,$ot1 <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	66	156	
==>/Parrot/Configure/Step.pm 20340 2006-06-22T21:49:11.552283Z bernhard  $

=head1 NAME

Parro <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	6277	6367	
==>runops(interpreter, 0);
/*
    run_compiled(interpreter, (opcode_t *)program_code, (opcode_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427426	427742	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 491,
                  "A <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	1467	1763	
==>data;
            }
            else {
                die "Unknown type: ".$type;
            }

            return $_[0];
        };
    }
    # 5.8.0's threads::shared is busted when threads are off.
    # We emulate it here.
    else {
        *share = sub { return $_[0] };
        *lock  = s <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	5330	5634	
==>t\n    my \$r = shift;\n";
            if( $base_type eq 'ARRAY' ){
                $elem = "[$cnt]";
                ++$cnt;
            }
            elsif( $base_type eq 'HASH' ){
                $elem = "{'${class}::$name'}";
            }
            if( defined $arrays{$name} ){
                $ou <==
2	/Users/nnunley/parrot/config/auto/gc.pm	1860	2001	
==>S) \$(SRC_DIR)/res_lea.c
EOF
            TEMP_gc_o => "\$(SRC_DIR)\/$gc\$(O) \$(SRC_DIR)/res_lea\$(O)",
            gc_flag   => '-DGC_IS_MALL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813933	814193	
==>LL;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	815183	815443	
==>LL;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAG <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4123	4230	
==>or.\n";
}

sub _DBLoad {
	{
		no strict 'refs';

			exists(${__PACKAGE__.'::'}{_DBParse})#Already loa <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3915	4015	
==>or.\n";
}

sub _DBLoad {
	{
		no strict 'refs';

			exists(${__PACKAGE__.'::'}{_DBParse})#Already loa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6050	6144	
==>"#line 144 \"src/ops/core.ops\"\n    Parrot_load_bytecode(interpreter, {{\@1}});\n    {{+=2}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6716	6810	
==>"#line 144 \"src/ops/core.ops\"\n    Parrot_load_bytecode(interpreter, {{\@1}});\n    {{+=2}};\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14572	14690	
==>if(defined $title) { print "  Returing title <$title>\n" }
    else { print "Returning title <>\n" }
  }
  
  return '' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	23137	23255	
==>if(defined $title) { print "  Returing title <$title>\n" }
    else { print "Returning title <>\n" }
  }
  
  return '' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502303	502569	
==>> 577,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 626 \"src/ops/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	879	1002	
==>red for the mapper.
sub subs() {
	# No extra subs.
	return "";
}

# Label generation.
sub gen_label() {
	# We'll emit a labe <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	636	759	
==>red for the mapper.
sub subs() {
	# No extra subs.
	return "";
}

# Label generation.
sub gen_label() {
	# We'll emit a labe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712454	712544	
==>\");\n  s = Parrot_sprintf_c(interpreter, \"%.12g\", (double){{\@1}});\n  PIO_putps(interpr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713561	713651	
==>\");\n  s = Parrot_sprintf_c(interpreter, \"%.12g\", (double){{\@1}});\n  PIO_putps(interpr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430085	430401	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 494,
                  "A <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	196	349	
==>($fh) = @_;
        $self->{fh}       = $fh;
        $self->{prologue} = q{.namespace [ "Lua" ]
.HLL "Lua", "lua_group"

.include "languages/lua/lib/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515366	515933	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 594,
                  "ARGS" => [
                              "n",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 708 \"src/ops/math.ops\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVA <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	2476	2622	
==>le( $options{language}, 't' );
        my @files = ( glob( File::Spec->catfile( $dir, '*.t' ) ),
                      glob( File::Spec->catfile( $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430972	431292	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 495,
                  "ARGS" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	758	844	
==>ock::Loop::While;

use Jako::Construct::Declaration::Constant;
use Jako::Construct::Dec <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	34022	34307	
==>>[$i][1]{'to'}" as a complex L<URL> link.\n};
        }

        next; # and move on
      }
      
      
      # Catch some very simple and/or common cases
      if(@{$treelet->[$i]} == 3 and ! ref $treelet->[$i][2]) {
        my $it = $treelet->[$i][2];
        if($it =~ m/^[-a-zA-Z <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2990	3108	
==>s)>.

=cut

sub restart_address
{
    my ($self, $addr) = @_;

    return "interpreter->resume_offset = $addr; interpre <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3859	3977	
==>s)>.

=cut

sub restart_address
{
    my ($self, $addr) = @_;

    return "interpreter->resume_offset = $addr; interpre <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	3734	3892	
==>implements).

The default is "scalar". Other currently used interfaces are:

    array    : container PMC with numerically-keyed elements
    event    : PMC th <==
2	/Users/nnunley/parrot/lib/File/Which.pm	4438	4595	
==><PATHEXT>, which is used
by the shell to look for executable files. Usually, it will contain a list in
the form C<.EXE;.BAT;.COM;.JS;.VBS> etc. If C<File::Whi <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	63800	63948	
==>ct_tagged> found a nested tag that appeared in the "reject" list
(and the failure mode was not "MAX" or "PARA").

=item C<Found unbalanced nested tag <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429700	429790	
==>\"src/ops/math.ops\"\n  mmd_dispatch_v_ps(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430587	430677	
==>\"src/ops/math.ops\"\n  mmd_dispatch_v_ps(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613952	614239	
==>@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_A <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597140	597425	
==>@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_A <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920492	920982	
==>f",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1036,
                  "ARGS" => [
                              "s",
                              "s",
                              "p"
                            ],
                  "BODY" => <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	10101	10230	
==>rlier one went okay
    } else {
      $enc_error = "Encoding is already set to " . $self->{'encoding'};
      DEBUG > 1 and print <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	38845	39016	
==>( @$para == 2 or ( @$para == 3 and $para->[2] eq '' )
          or $para->[1]{'~cooked'}
        ) {
          push @$para,
          @{$self->_make_treelet(
            jo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	519200	519746	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 599,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 739 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18116	18235	
==>h, 'key' );
    push @opcodes, @{ $key->[1] };
    my $result = new_tmp( $parser, 'pmc' );
    push @opcodes, new Loc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375677	375844	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(inter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376561	376728	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(inter <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	4541	4696	
==>, 229,
 'aelig'    , 230,
 'ccedil'   , 231,
 'egrave'   , 232,
 'eacute'   , 233,
 'ecirc'    , 234,
 'euml'     , 235,
 'igrave'   , 236,
 'iacute'   , 23 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	1645	1777	
==>.html', '', 'languages/lazy-k'),
        $self->new_section('Lua', 'lua.html', '', 'languages/lua'),
        $self->new_section('M4', <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3939	4054	
==>up")
          or die "compile $group.c failed ($?)\n";
    }
} 
elsif ($mode eq 'linklibs') {
    my ($group_files, <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4043	4158	
==>up")
          or die "compile $group.c failed ($?)\n";
    }
} 
elsif ($mode eq 'linklibs') {
    my ($group_files, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	3074	3192	
==>: tagged_op )
    my %labels; # { label string => tagged_op }
    foreach my $stmt (@output) {
	if ($stmt->{name} eq 'L <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1796	1932	
==>${ITEMP0} = 0\n";
	for (1..$pushes) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# A <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121975	122075	
==>* lvalue casts are evil, but this one isn't evil enough to kill.\n   * it's just casting a signed int <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122887	122987	
==>* lvalue casts are evil, but this one isn't evil enough to kill.\n   * it's just casting a signed int <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20497	20686	
==>ken);

      my @left = ($left);

      $self->require_assign;

      while ($self->get()->is_ident and $self->get(1)->is_assign) {
        my $left = Jako::Construct::Expression::Value::Ide <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2749	2880	
==>->emit("  concat $dest, $left, $right");

  if (($dest_ident->kind eq 'var') and ($dest_ident->scope eq 'global')) {
    my $pmc_typ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	7088	7232	
==>s;
}


#
# scan_file()
#

sub scan_file
{
  my $self = shift;
  my ($file) = @_;

#  $self->DEBUG(0, "Scanning file '$file'...");

  my $line = 0 <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	22774	22888	
==>t {
    my($self, @msgs) = @_;

    # Prevent printing headers when only compiling.  Mostly for when
    # tests ar <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9211	9312	
==>,$d,$a,$b,$_[19],14,0xd8a1e681,/* 23 */
GG,$b,$c,$d,$a,$_[8],20,0xe7d3fbc8,/* 24 */
GG,$a,$b,$c,$d,$_[ <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	6243	6470	
==>ie "ops2pm.pl: Could not mkdir $inc_dir: $!\n";
}
open OUT, ">$inc_f" or die "Can't write $inc_f: $!";

print OUT <<END_C;
/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically fr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813783	814190	
==>ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 557 \"src/ops/set.ops\"\n  {{\@1}} = NULL;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "F <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10438	10554	
==>self->{scope}->{$symbol} = '*unknown*';
  }

  $value = $self->_generate($lambda);

  if ($value !~ /^P/) {
    my $p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644046	644136	
==>ops\"\n  {{\@1}} = {{\@2}}->vtable->type_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644939	645029	
==>ops\"\n  {{\@1}} = {{\@2}}->vtable->type_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4 <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	16179	16326	
==>deal with that.
PIRCODE
    my $pop_all = $srm->pop_all();
    $pir .= "### pop_all (typed eh)\n";
	$pir .= sub_meta($pop_all, $mv, "pop_all for typ <==
2	/Users/nnunley/parrot/config/gen/icu.pm	2427	2633	
==>iled");
            }
        }
    }

    if ($verbose) {
        print "icuconfig: $icuconfig\n"  if defined $icuconfig;
        print "icushared='$icushared'\n" if defined $icushared;
        print "heade <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26426	26532	
==>{STACK0}, ${STACK1})
${INS} = concat ${STEMP0}
PIR
    }
	
	# Now we split based upon the class.
	# Operati <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567876	568205	
==>ME" => "does",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 649,
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566982	567289	
==>ME" => "does",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 64 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8225	8359	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9340	9474	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	839563	839828	
==>\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rotate_up",
                  "FLAGS" => ":base_co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840257	840522	
==>\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rotate_up",
                  "FLAGS" => ":base_co <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	263	469	
==>ccessors:

sub tagname { (@_ == 2) ? ($_[0][1] = $_[1]) : $_[0][1] }
sub tag { shift->tagname(@_) }

# shortcut:
sub is_tagname { $_[0][1] eq $_[1] }
sub is_tag { shift->is_tagname(@_) }

1;


__END__

=head <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	286	446	
==>ccessors:

sub tagname   { (@_ == 2) ? ($_[0][1] = $_[1]) : $_[0][1] }
sub tag { shift->tagname(@_) }

sub is_tagname { $_[0][1] eq $_[1] }
sub is_tag { shift->i <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	26986	27171	
==>$extname";
    if ($self->{$handler}) {
        return $self->{$handler}->($op, $extargs, $lastback);
    } else {
        return ($lastback, aop('external' => [ $extname, $extargs, $las <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649082	649310	
==>n    {{\@1}} = pmc_type_p(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649845	650073	
==>n    {{\@1}} = pmc_type_p(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	8980	9125	
==>le $rule->{'name'}\n";
    }
}


# Generate the translator initialization code.
# ############################################
sub generate_initia <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2751	2846	
==>goto &Parrot::Test::pir_output_like;
}

=item C<pgeglob_is($target, $pattern, $description, @tod <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13907	14015	
==>nt foo
print z.foo

' Should print 100, 103
type first
	foo as integer
	bar as string
end type
type second
	p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864010	864122	
==>143 \"src/ops/string.ops\"\n  UINTVAL n;\n  STRING *s = {{\@2}};\n  if (!s)\n    n = 0;\n  else {\n    n = s->buf <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864902	865014	
==>143 \"src/ops/string.ops\"\n  UINTVAL n;\n  STRING *s = {{\@2}};\n  if (!s)\n    n = 0;\n  else {\n    n = s->buf <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2977	3104	
==>de &compare_func, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := compare_func($got, $exp <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	17664	17842	
==>PMC        *HashPointer   = NULL;

#if defined(CAN_BUILD_CALL_FRAMES)

    /* Try if JIT code can build that signature,
     * if yes, we are done
     */

     result = Parrot_ji <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	11294	11451	
==>e.h
isalpha     ctype.h
isblank     ctype.h
iscntrl     ctype.h
isdigit     ctype.h
isfinite    math.h
isgraph     ctype.h
isgreater   math.h
isgreatereq math <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1773	1929	
==>rn "<rx_pos> += $distance;";
    } elsif ($distance < 0) {
        return "<rx_pos> -= $distance;";
    }
}

sub output_add {
    my ($self, $var, $arg1, $ar <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	55377	55615	
==>BuildUnop( $_[0], $_[1], $_[2] );
        }
	],
	[#Rule 76
		 'primary', 1,
sub
#line 416 "Lua\lua51.yp"
{
            BuildLiteral( $_[0], $_[1], 'nil' );
        }
	],
	[#Rule 77
		 'primary', 1,
sub
#line 420 "Lua\lua51.yp <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	1869	1988	
==>t an API">.

=back

=head1 RULES

You can sometimes use C preprocessor defines to shorten the API names
but please do ca <==
2	/Users/nnunley/parrot/examples/benchmarks/oofib.pl	4	148	
==>strict;

package A;
sub fib {
    my $self = shift;
    my $n = shift;
    return $n if ($n < 2);
    return $self->fibA($n-1) + $self->fibB($n-2 <==
2	/Users/nnunley/parrot/config/inter/make.pm	685	794	
==>, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    # undef means we don't have GNU make... <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	14433	14538	
==>sts_skipped"><tmpl_var name=skipped> skipped</span> and
		<span class="tests_unexpect"><tmpl_var name=unex <==
2	/Users/nnunley/parrot/tools/dev/symlink.pl	110	343	
==>(read-only) copy of the sources but several different
# build trees.  The -v option displays the created symlinks.
#
# Changes:
# 1.1: Handle also:
# 	- being called with a relative path
#	- being called through a symlink
#
# jhi@iki. <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30291	30407	
==>dispatch routine
	# Call with S0 set to the type
	# Source in P6
	# Dest returned in P1
STRUCT_COPY:
SCOPYDIS
	foreac <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810114	810642	
==>",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 914,
                  "ARGS" => [
                              "s",
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 507 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_string_keyed(i <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8178	8314	
==>xtra copy in many cases
    my $L_fallback = $self->output_label_use($fallback);
    push @ops, "goto $L_fallback if <rx_tmp> == -1; # wa <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	598	722	
==>eturns an empty string.

=cut

sub core_prefix
{
    return "";
}

=item C<defines()>

Returns the C C<#define> macros for re <==
2	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1518	1600	
==>ode.org/
AppUpdatesURL=http://www.parrotcode.org/
DefaultDirName={pf}\\parrot-$opti <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	5498	5627	
==>anscoder'} && $self->{'_transcoder'}->($line);

    # HERE WE CATCH =encoding EARLY!
    if( $line =~ m/^=encoding\s+\S+\s*$/s ) { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156423	156744	
==>E" => "function",
                  "CODE" => 189,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	21423	21556	
==>', 6,
sub
#line 151 "lib/Regex/Grammar.y"
{ return { min => $_[2], max => $_[5] }; }
	],
	[#Rule 30
		 'range', 5,
sub
#line 153 "lib/ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	3045	3160	
==>ptimizing generated regular expressions. It is not needed for basic
# compilation.
#
# Probably the best way to unde <==
2	/Users/nnunley/parrot/examples/benchmarks/oo1.pl	60	179	
==>ew Foo();
}
my $o = new Foo();
print $o->[0], "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shif <==
2	/Users/nnunley/parrot/examples/benchmarks/oo2.pl	60	179	
==>ew Foo();
}
my $o = new Foo();
print $o->[0], "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shif <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	23656	23940	
==>my $arg_name;

		# uint8
		if (/^uint8$/) {
			$out =  "    \${I_ARG_$arg_num} = bc.read_uint8()\n    next_pc += 1\n";
			$arg_name = "I_ARG_$arg_num";
		}

		# int8
		elsif (/^int8$/) {
			$out =  "    \${I_ARG_$arg_num} = bc.read_int8()\n    next_pc += 1\n";
			$arg_name = "I_ARG_$a <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	10410	10547	
==>m_output_is     => 'is_eq',
        pasm_output_isnt   => 'isnt_eq',
        pasm_output_like   => 'like',
        past_output_is     => ' <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	3786	4035	
==>able_visible{$file}{$1}++;
            } else {
                $variable_visible{"ALL"}{$1}++;
            }
            
            next;
        }
        
        # end of variable block
        if ($variable && /^\s*$/) {
            undef $var <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3232	3367	
==>e;

  if (UNIVERSAL::isa($type, 'Jako::Construct::Type::String')) {
    my $string = $self->value;

    if ($string =~ m/(^"|^".*?[^\\]) <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	28037	28253	
==>red a pass?
              actual_ok  => did it literally say 'ok'?
              name       => name of the test (if any)
              type       => type of test (if any, see below).
              reason     => reason <==
2	/Users/nnunley/parrot/config/gen/config_pm.pm	702	804	
==>ile('config/gen/config_pm/myconfig.in', 'myconfig');

    open(IN,  "config/gen/config_pm/Config_pm.in" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033240	1033356	
==>reter->ctx);\n    STRING * const lex_name = {{\@1}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034338	1034454	
==>reter->ctx);\n    STRING * const lex_name = {{\@1}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7443	7622	
==>n line rule
            and do {
                    $lhs =~ /^\@[0-9]+\-([0-9]+)$/
                or  die "In line rule name '$lhs' ill formed: ".
                        "re <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7100	7275	
==>n line rule
            and do {
                    $lhs =~ /^\@[0-9]+\-([0-9]+)$/
                or  die "In line rule name '$lhs' ill formed: ".
                        "re <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	183	345	
==>ad1 DESCRIPTION

Determines whether C<yacc> is installed and if it's actually C<bison>.

=cut

package inter::yacc;

use strict;

use vars qw( $description @args $ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	28646	28793	
==>nput text (the first
argument) are not modified in any way. 

However, if the input text was passed in a variable, that variable's
C<pos> value is u <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737755	738206	
==>FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 829,
                  "ARGS" => [
                              "n",
                              "s"
                            ],
                  "BODY" => "#line 149 \"src/ops/set.ops\"\n  {{\@1}} = string_to_num <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24477	24622	
==>'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 129,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35 <==
2	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	265	359	
==>Parrot/Test/ParrotCompiler.pm - Testing routines specific to 'ParrotCompiler'.

=head1 DESCRIPT <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63984	64085	
==>k_insatiable($name,$1,$grammar,$line) if $::RD_CHECK;
					}
				}
				elsif ($grammar =~ m/$EXACTLY/g <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	19400	19511	
==>LD USE LOOKAHEAD
	{
		_failmsg "No block delimiter found after quotelike $op",
		         pos $$textref;
		pos $ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	41469	41605	
==>gen_extract_tagged>, is that those generated subroutines:

=over 4

=item * 

do not have to reparse tag specification or parsing options <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	12962	13414	
==>st( '_pbcexe', $test_no);  # Make cleanup and svn:ignore more simple
                $exe_f =~ s@[\\/:]@$PConfig{slash}@g;
                # XXX put this into sub generate_pbc()
                run_command(qq{$parrot $args -o $pbc_f "$code_f"},
                            CD     => $path_to_parrot,
                            STDOUT => $out_f,
                            STDERR => $out_f);
                if ( -e $pbc_f ) {
                    run_c <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	11659	11809	
==>]*)((?:\r?\n)?)/g
    ) {
      #print(">> $1\n"),
      $self->parse_lines($1)
       if length($1) or length($2)
        or pos($line_group) != lengt <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	16268	16422	
==>d eh)\n";
	$pir .= sub_meta($pop_all, $mv, "pop_all for typed exception handler");
	$pir .= "### end pop_all (typed eh)\n";
    my $pre_load = $srm->pre_lo <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	10994	11118	
==>isplay: none; }
    .expander { color: blue; cursor: pointer; }  /* hack? */

    .tests_ok       { color: #050; }
    .tests <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54154	54467	
==>C_DEBUG_FLAG); }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53398	53644	
==>C_DEBUG_FLAG); }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gc_ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	1158	1303	
==>nfigure::Data> object.

=cut

sub new
{
    my $class = shift;

    my $self = {
        c        => {},
        triggers => {},
    };

    bless <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2378	2487	
==>/parrot/src/pmc' . $PATHQUOTE . " " .
        $source;
};

sub partial_link_cmd {
    my ($target, $libs, $sou <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	2173	2282	
==>/parrot/src/pmc' . $PATHQUOTE . " " .
        $source;
};

sub partial_link_cmd {
    my ($target, $libs, $sou <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	14070	14214	
==>::classpieces::reftree {
    my $op = shift;
    return annotated($op, "classpieces " . $op->render(@_));
}

sub Regex::Ops::Tree::seq::reftree { <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	63968	64094	
==>gged> found a nested opening tag that was not matched by a
corresponding nested closing tag (and the failure mode was not "MAX" <==
2	/Users/nnunley/parrot/lib/Test/More.pm	31325	31483	
==>_type($_) eq 'HASH', $a1, $a2 ) {
        warn "eq_hash passed a non-hash ref";
        return 0;
    }

    return 1 if $a1 eq $a2;

    my $ok = 1;
    my $b <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	11108	11248	
==>( $expected );

            # set up default description
            unless ( $desc ) {
               (undef, my $file, my $line) = caller() <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	16593	16733	
==>( $expected );

            # set up default description
            unless ( $desc ) {
               (undef, my $file, my $line) = caller() <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784332	784456	
==>\n    {{\@1}}->vtable->set_pmc_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785238	785362	
==>\n    {{\@1}}->vtable->set_pmc_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045268	1045632	
==>"i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1168,
                  "ARGS" => [
                              "kc",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	308517	308700	
==>"BODY" => "#line 42 \"src/ops/debug.ops\"\n    PDB_t *pdb;\n\n    if (!(interpreter->pdb)) {\n        pdb = (PDB_t *)mem_sys_allocate_zeroed(sizeof(PDB_t));\n\n        interpreter->pdb <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	22419	22667	
==>= P5		# Go back to where we were!
	P2["_type"]= '$_->[1]'
	P3["$_->[0]"]= P2
	#print "Finished substruct\\n"
USER
			}
		}

	print CODE<<OUTOF;
	#print "Out of copy $typename\\n"
	save P3
	popp
	restore P1
	ret
OUTOF_$typename: 

OUTOF

}

sub parse <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	5520	5685	
==>ut of testing and was really, really easy
to learn.  Paul Johnson simultaneously had this idea (unfortunately,
he wasn't in Tony's kitchen).  This is it.


=head1 SEE <==
2	/Users/nnunley/parrot/config/inter/libparrot.pm	131	226	
==>head1 NAME

config/inter/libparrot.pm - Determines build information for libparrot

=head1 D <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29238	29333	
==>_dest = 1;
		} elsif ($rule->{'pir'} =~ /\$\{LOADREG\}/ || $rule->{'instruction'} =~ /\$\{LOADRE <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	846	951	
==>ctories in the Parrot subversion repository. (Needed for
# distributions or in general when svn is not ava <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3701	3806	
==>ctories in the Parrot subversion repository. (Needed for
# distributions or in general when svn is not ava <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5456	5545	
==>E}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = conc <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3946	4166	
==>);
        }

        my $ident = $2;
        $ident =~ s/^{(.*)}$/$1/; # Strip '{' and '}'.

        $handler->start_element({ Name => 'ident', Attributes => { name => $ident } });
        $handler->end_element({ Name => <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24768	24870	
==>);

		return _fail(wantarray, $textref) unless @match;
		return _succeed wantarray, $textref,
				$matc <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7602	7701	
==>);

	return _fail(wantarray, $textref) unless @match;
	return _succeed wantarray, $textref,
			$matc <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1682	1797	
==>, and will also inherit these methods:

=over

=item $token->type

This returns the type of the token.  This will be <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60648	60867	
==>INGS_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61298	61517	
==>INGS_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	30460	30644	
==>e, 1, 'procedure?');

  $return = $self->_constant(0);

  my $temp = $self->_generate(_get_arg($node,1));
  if ($temp =~ /^P/) {
  }

  return $return;
}

sub _op_apply {
  my ($self, $ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1176	1304	
==>}
    ${INS} = concat "\n"
    goto SRM_LMKILL$suffix
SRM_LMKILL_EXIT$suffix:
PIR
    $pir =~ s/\$suffix/$suffix/g;
    return $p <==
2	/Users/nnunley/parrot/config/gen/cpu.pm	809	928	
==>to";

    print "\t(cpu hints = '$hints') " if $verbose;

    eval "use $hints";
    unless ($@) {
        $hints->runst <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3283	3428	
==>r(shift)->any_errata_seen" \
   thingy.pod

=head1 DESCRIPTION

This class is a formatter that takes Pod and renders it as
wrapped plaintext.

Its <==
2	/Users/nnunley/parrot/config/gen/config_h.pm	1297	1420	
==>is file is generated automatically by Configure.pl
*/

/*
 * i_(\\w+) header includes
 */

EOF

    for (sort($conf->data->k <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	10649	10779	
==>eamble_ref},
            "t_$temp_num = (long)GET_NCI_I($reg_num);";
        return "t_$temp_num";
    };
    /I/ && do {
        p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	172	280	
==>rot/languages/jako/lib/Jako/Construct/Expression/Value.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use st <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	13569	13721	
==>5
		}
	},
	{#State 18
		ACTIONS => {
			'CHAR' => 34,
			"=" => 36
		}
	},
	{#State 19
		DEFAULT => -5
	},
	{#State 20
		ACTIONS => {
			":" => 37
		}
	} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	12846	12984	
==>se as necessary for further customization

sub font_table {
  return <<'END';  # text font, code font, heading font
{\fonttbl
{\f0\froman T <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	531469	531755	
==>=> 0,
                  "NAME" => "cosh",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
2	/Users/nnunley/parrot/config/inter/libparrot.pm	317	419	
==>determines whether it should be build static or shared.

=cut

package inter::libparrot;

use str <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	2178	2370	
==>only in some derived classes.

  'hide_line_numbers', # For some dumping subclasses: whether to pointedly
                       # suppress the start_line attribute
                      
  'li <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2195	2304	
==>entifier '%s'.", $args[$i]->value) unless $arg_sym;
      $actual_arg_type = $arg_sym->type; 
    }
    else { <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1895	2004	
==>entifier '%s'.", $args[$i]->value) unless $arg_sym;
      $actual_arg_type = $arg_sym->type; 
    }
    else { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149978	150144	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 105 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(inte <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4181	4283	
==>> GROUP.so
    while (my ($group, $pmcs) = each %$group_files) {
        partial_link($group, $group_li <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4285	4387	
==>> GROUP.so
    while (my ($group, $pmcs) = each %$group_files) {
        partial_link($group, $group_li <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3580	3669	
==>ethods.

=head1 SEE ALSO

L<Pod::Simple>, L<Pod::Simple::TextContent>, L<Pod::Text>

=head <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	31412	31582	
==>ype"]
if \$I1000000 != ELEMENT_TYPE_VALUETYPE goto $label
dtypes = new ResizablePMCArray
dtypes[0] = loadtype
$pre_op
gen_pir = concat dest0
gen_pir = concat " = clone "
g <==
2	/Users/nnunley/parrot/tools/dev/cc_flags.pl	374	504	
==>SIS

    % perl tools/dev/cc_flags.pl transform compiler flags

=head1 DESCRIPTION

This script is used in a F<Makefile> to process <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	570	666	
==>d languages.  Right
now it parameterizes the two parameters that at least three language
implemen <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	11829	11954	
==>Iterator, op2
inner_loop:
    unless iter2 goto inner_done
    $P2 = shift iter2
    if $P1 == $P2 goto outer_loop # result mu <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	23371	23555	
==>$action{default}) {
        dump_default();
        exit;
    }

    # All other actions require files
    if ( !@ARGV ) {
        die "No files specified.\n";
    }

    if ( $action{d <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	3654	3774	
==>ecode and passes the test if output matches the expected
result.

=item C<pbc_output_isnt($code, $unexpected, $descriptio <==
2	/Users/nnunley/parrot/config/auto/env.pm	250	376	
==>unsetenv()>.

=cut

package auto::env;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948865	949007	
==>t_string_trans_charset(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949665	949807	
==>t_string_trans_charset(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	5387	5533	
==>TYPE_DATA, "const_table", 0);/g;
                $asm =~ s/jit_emit_end/exec_emit_end/;
            }
            if (($cpuarch eq 'ppc') && ($genf <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	14900	15099	
==>acter, you get a "?".  Latin-1
characters (characters 160-255) are unaffected.

Under EBCDIC platforms, C<e2char($n)> may not always be the
same as C<chr(e2charnum($n))>, and ditto for
C<$Name2charact <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	2234	2380	
==>rp, enum_class_${_}, pass);\n"
        foreach (@pmcs[0 .. $#pmcs - 1]);
    print OUT <<"END_C";
        if (!pass) {
	    parrot_global_setup_2(i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009839	1009933	
==>e 659 \"src/ops/string.ops\"\n  {{\@1}} = string_compose(interpreter, {{\@2}});\n  {{+=3}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010604	1010698	
==>e 659 \"src/ops/string.ops\"\n  {{\@1}} = string_compose(interpreter, {{\@2}});\n  {{+=3}};\n", <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	38683	38773	
==>ignore "empty" elements:

	extract_tagged($text, undef, undef, undef, {ignore => ['<[^>]*/> <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	2890	2989	
==>=> optional_label, code => original_op }
    # and construct a mapping from label names to destinati <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8532	8619	
==>+2);tab$(32);c$(i+3)
next
print
data "ABANDON","CHART","COMPUTER"
data "DAMAGES","DESTRU <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21396	21483	
==>+2);tab$(32);c$(i+3)
next
print
data "ABANDON","CHART","COMPUTER"
data "DAMAGES","DESTRU <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	55359	55565	
==>at element is the name of a class into which the successful
return value of the extractor will be blessed.

If an extractor returns a defined value, that value is immediately
treated as the next extracted fi <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	4740	4853	
==>hods.pasm) */
EOM
    for my $entry (@{$vtable}) {
    my $uc_meth = uc $entry->[1];
    $macros .= <<"EOM";
#defi <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3353	3465	
==>onf->data->get('linkflags');
            $linkflags =~ s/-opt:\S+//;
            $conf->data->set(linkflags => $l <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4857	4969	
==>onf->data->get('linkflags');
            $linkflags =~ s/-opt:\S+//;
            $conf->data->set(linkflags => $l <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21277	21601	
==>my $self = $_[0];
  my $title;
  my @to_unget;

  while(1) {
    push @to_unget, $self->get_token;
    unless(defined $to_unget[-1]) { # whoops, short doc!
      pop @to_unget;
      last;
    }

    DEBUG and print "-Got token ", $to_unget[-1]->dump, "\n";

    (DEBUG and print "Too much in the buffer.\n"),
     last if @t <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	13245	13378	
==>d hop_init() {
    size_t i;
    op_info_t * info = ${bs}op_lib.op_info_table;
    /* store full names */
    for (i = 0; i < ${bs}op_ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	16113	16217	
==>ess $Show_Diag;
    $Test->diag(@_);
}


=back

=head2 Module tests

You usually want to test if the modu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889805	890488	
==>S" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1006,
                  "ARGS" => [
                              "s",
                              "s",
                              "i",
                              "ic",
                              "s"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpret <==
2	/Users/nnunley/parrot/config/inter/progs.pm	2530	2751	
==>lags = integrate($ccflags, $conf->options->get('ccflags'));
    $ccflags = prompt("What flags should your C compiler receive?", $ccflags)
        if $ask;
    $conf->data->set(ccflags => $ccflags);

    $linkflags = $conf- <==
2	/Users/nnunley/parrot/Configure.pl	7803	7917	
==>nker command to create shared libraries
   --icudatadir=(path)  Directory to locate ICU's data file(s)

Other Optio <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893208	893849	
==>S" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1009,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic",
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 252 \"src/ops/string. <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	7267	7397	
==>89 Hosted Implementation
# (not sure if I got this right- it came from a C99 reference, so some 99isms
#  might have slipped in)
ab <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43710	43978	
==>{{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pushmark",
                  "FL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45637	45905	
==>{{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pushaction",
                  " <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	5745	5893	
==>ot/oplib.h"

$sym_export extern op_lib_t *$init_func(long init);

END_C
my $cg_func = $trans->core_prefix . $base;


if ($trans->can("run_core_func_d <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2900	3077	
==>SRCDIR\E//g;
            $generated_files{$path} = $tmp;
            $tmp = '';
        } else {
            $tmp .= $_;
        }
    }
    close(GCOVSUMMARY);

    foreach my $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1927	2065	
==>_block);

  my $sub_name = $sub_block->name;

  my $return_type = $sub_block->type;

  my $anon;

  if (defined $cond) {
    $left  = $left <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	55001	55172	
==>de);
				$prod and $prod->additem($item)
				      or  _no_rule($code,$line);
			}
			elsif ($grammar =~ m/(?=$DEFERPATMK)/gco
				and do { ($code) = extract_codeblock($gra <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	31792	31930	
==>');
    my $name = $tos->[1];
    $n = $name;
    $n =~ s/["]//g;
    my $mangle = qq!"py::$n"!;
    $classes{$n} = $mangle;
    print <<EO <==
2	/Users/nnunley/parrot/config/auto/snprintf.pm	563	672	
==>n('config/auto/snprintf/test.in');
    cc_build();
    my $res = cc_run() or die "Can't run the snprintf testi <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	910	1016	
==>_[0];
  return undef unless defined $in and length $in;
  
  # Convert to decimal:
  if($in =~ m/^(0[0-7]*) <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2269	2375	
==>_[0];
  return undef unless defined $in and length $in;
  
  # Convert to decimal:
  if($in =~ m/^(0[0-7]*) <==
2	/Users/nnunley/parrot/config/init/miniparrot.pm	140	230	
==>d1 NAME

config/init/miniparrot.pm - Miniparrot configuration

=head1 DESCRIPTION

Modifies <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26067	26180	
==>ush @localmv, "ARG$arg_num";
        $arg_num++;
	}

    # Generate code that we need to insert to handle enum fix <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100722	101003	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 125,
                  "ARGS" => [
                              " <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5526	5628	
==>sh @ops, $self->output_label_def($passLabel);
    return @ops;
}

sub output_initgroup {
    my ($self, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5219	5321	
==>sh @ops, $self->output_label_def($passLabel);
    return @ops;
}

sub output_initgroup {
    my ($self, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10102	10343	
==>shift;
    return 1 if $ord >= ord('a') && $ord <= ord('z');
    return 1 if $ord >= ord('A') && $ord <= ord('Z');
    return 1 if $ord >= ord('0') && $ord <= ord('9');
    return 1 if $ord =~ /^[~!@#%&_'":;>,<]$/;
#    return 1 if $ord =~ /^ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4268	4402	
==>re chars",
               "lt <rx_tmp>, $needed, $fail";
    }
}

sub output_match {
    my ($self, $code, $failLabel) = @_;
    my $co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948832	948921	
==>s/string.ops\"\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@1}}, {{\@2}}, NUL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949632	949721	
==>s/string.ops\"\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@1}}, {{\@2}}, NUL <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	167	248	
==>/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm 19606 2006-05- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	206	319	
==>t/Declaration/Sub.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako:: <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	179	274	
==>ate a parrot wrapper for the named library (or libraries). Its
format is simple, and looks like: <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	2325	2442	
==>urn "add $var, $amount";
}

sub output_assign {
    my ($self, $var, $val) = @_;
    return "set $var, $val";
}

sub o <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	32221	32356	
==>It
doesn't actually exit, that's your job.

=cut

sub _my_exit {
    $? = $_[0];

    return 1;
}


=back

=end _private

=cut

$SIG{__D <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	818	969	
==>to not having bison
    $conf->data->set(bison_version => undef);

    unless ($conf->options->get('maintainer')) {
        $conf->data->set($util => 'e <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	2554	2687	
==>$self->new_item('', 'tools/dev/install_files.pl'),
            $self->new_item('', 'tools/dev/mk_manifests.pl'),
            $self->ne <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	34996	35149	
==>ke your test died just after $self->{Curr_Test}.
FAIL

            _my_exit( 255 ) && return;
        }

        _my_exit( $num_failed <= 254 ? $num_faile <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	2178	2288	
==>hanged for the test
        $conf->data->set('libs',      $libs);
        $conf->data->set('ccflags',   $ccflag <==
2	/Users/nnunley/parrot/config/auto/readline.pm	1978	2088	
==>hanged for the test
        $conf->data->set('libs',      $libs);
        $conf->data->set('ccflags',   $ccflag <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	2875	2997	
==>se base qw(Pod::Simple::Methody);
     sub start_L { print Dumper( '' . $_[1]{'section'} ) }
     __PACKAGE__->new->parse_s <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1208	1375	
==>ecode that is produced.
	my $pir = <<'PIR';
strPC = ${PC}
${INS} = concat "LAB"
${INS} = concat strPC
${INS} = concat ": "
PIR
	
	# This is also a good place (as we cal <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7830	7979	
==>type[CURR] eq "COMM" or $type[CURR] eq "STMT") and $singleif) {
		while($_=pop(@ifstack)) {
			push @{$code{$seg}->{code}}, "IFBRANCH_$_:\n";
		}
=cut <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353417	353683	
==>TYPE" => "function",
                  "CODE" => 412,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 200 \"src/ops/io.ops\"\n  STRING * const s = {{\@1}};\n  if (s && string_length(int <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	20611	20739	
==>') {        
            if(defined($thing = $treelet->[$i][1]{$attrname}) and ref $thing) {
              unshift @stack, $thing <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	42095	42219	
==>') {        
          if(defined($thing = $treelet->[$i][1]{$attrname}) and ref $thing) {
            unshift @stack, $thing <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	7350	7464	
==>fa_safe_subexprs && $op->disjoint();

    # Insert better tests here

    return 0;
}

# R*, R+, R?, nongreedy vari <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	3985	4169	
==>e'   , 200,
 'Eacute'   , 201,
 'Ecirc'    , 202,
 'Euml'     , 203,
 'Igrave'   , 204,
 'Iacute'   , 205,
 'Icirc'    , 206,
 'Iuml'     , 207,
 'ETH'      , 208,
 'Ntilde'   , 209,
 ' <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	938	1038	
==>ATOR IS OPTIONAL WHITESPACE
   $skip  = '\s*';		# UNIVERSAL SEPARATOR IS OPTIONAL WHITESPACE
my $MAXR <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9132	9373	
==>n ) {

            # local variable
            if ( scalar( @{$var} ) ) {
                my $result   = $defn;
                my $last_key = pop @{$var};
                foreach my $key ( @{$var} ) {
                    push @opcode <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	44395	44546	
==>e
      $i--; # don't consider next line
      next;
    }

    if( length($formatting) >= length($p->[$i-1]) ) {
      $formatting = substr($formatting <==
2	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	15	262	
==>subs for aiding the test process.
# ##############################################
package DotNetTesting;
use strict;

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(compile_cs translate run_pir);

require "config/N2PConfig.pm";

# Thi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627419	627512	
==>ers. */\n  {{\@1}} = pmc_new_noinit(interpreter, {{\@2}});\n  {{\@1}}->vtable->init(interprete <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628563	628656	
==>ers. */\n  {{\@1}} = pmc_new_noinit(interpreter, {{\@2}});\n  {{\@1}}->vtable->init(interprete <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2120	2218	
==>\" find . \".\n\n".
		"--plus-misses creates a second section, with the heads of any\n".
		"files w <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	1711	1823	
==>n the group.

Some HTML-formatted text describing the files linked to is returned.

=cut

sub write_html
{
	my $s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8789	8884	
==>tring(interpreter, {{\@1}});\n    struct PackFile_FixupEntry *fe = PackFile_find_fixup_entry(int <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9905	10000	
==>tring(interpreter, {{\@1}});\n    struct PackFile_FixupEntry *fe = PackFile_find_fixup_entry(int <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452684	453107	
==>d",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 519,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#lin <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	10461	10579	
==>g=0
if t then
	print "Wrong"
else 
	if g then
		print "Wrong again"
	else 
		print "Correct"
	end if
end if

' Expect C <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	3459	3561	
==>e, but otherwise you probably want C<new>.

B<NOTE>: the implementation is not complete.  C<level>, for <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4730	4846	
==>'}#_Parse' inclusive.
#So, DO NOT remove comment at end of sub !!!
sub _Parse {
    my($self)=shift;

	my($rules <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4495	4606	
==>'}#_Parse' inclusive.
#So, DO NOT remove comment at end of sub !!!
sub _Parse {
    my($self)=shift;

	my($rules <==
2	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	1723	1869	
==>kFile_check_fingerprint (void *cursor)
{
    return 1;
}

size_t
PackFile_write_fingerprint (void *cursor)
{
    memset (cursor, 0, $len);
    retu <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	8732	8860	
==>it => "JIT",
	  cgp =>  "CGP",
	  switch => "switch",
	  fast => "fast",
	  default => "default",
  );

  $runcore{$_[0]};
}

sub <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5324	5418	
==>t->sax($handler);
  $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', na <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3387	3481	
==>t->sax($handler);
  $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', na <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	310074	310186	
==>preter->pdb->state & PDB_BREAK)) {\n        interpreter->pdb->state |= PDB_BREAK;\n        interpreter->pdb->stat <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	1302	1516	
==>return;
        }
        return if /malloc/;

        /^.*\.[ch]\z/s &&
            push @files, $File::Find::name;
    }}, '.');
}


FILE:
foreach my $file (@files) {
    $file =~ s/^\.\///g;
    if (!open(F, "<$f <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	11681	11821	
==>ment, if any, is assigned to the element.

If the element type is C<'$'>, the value of the element (after
assignment) is returned. If the ele <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	1002	1128	
==>=~ m/^(0[0-7]*)$/s ) {
    $in = oct $in;
  } elsif($in =~ m/^0x([0-9a-fA-F]+)$/s ) {
    $in = hex $1;
  } # else it's decimal <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2361	2487	
==>=~ m/^(0[0-7]*)$/s ) {
    $in = oct $in;
  } elsif($in =~ m/^0x([0-9a-fA-F]+)$/s ) {
    $in = hex $1;
  } # else it's decimal <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	201	307	
==>ko/Construct/Statement.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

pa <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	8848	8966	
==>en(); }
sub maxlen { $_[0]->{args}->[1]->maxlen(); }

package Regex::Ops::Tree::rule;
sub minlen { my ($op) = @_; $op-> <==
2	/Users/nnunley/parrot/lib/File/Which.pm	1209	1472	
==>all;
            push @results, $symbol;
        }
    }
    if ($Is_MacOS) {
        my @aliases = split /\,/, $ENV{Aliases};
        foreach my $alias (@aliases) {
            # This has not been tested!!
            # PPT which says MPW-Perl cannot resolve `Ali <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10381	10469	
==>MP3} = ${STYPES}[${ITEMP2}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP3}["reg_type_short"]
${STE <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7765	7853	
==>MP3} = ${STYPES}[${ITEMP2}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP3}["reg_type_short"]
${STE <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30767	30868	
==>ad = $srm->post_load($need_dest);
		$pir .= "### post_load\n";
		$pir .= sub_meta($post_load, $mv, "po <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	1870	1967	
==>. 
    " $args " . File::Spec->join($path_to_tcl, 'tcl.pbc');
    if (defined($ENV{PARROT_TCLSH})) <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	1441	1801	
==>ch;
    } elsif($ch =~ /[a-zA-Z]/ and
            $token =~ /^\w/) {    # Letters can follow other letters
      $token .= $ch;
    } elsif($ch =~ /\s/ and
            $token =~ /^\s/) {    # White can follow white
      $token .= $ch;
    } elsif($ch =~ /@/ and
	    $token =~ /^,$/) {    # token ,@
      $token .= $ch;
    } else {
      push @$tokref,$token <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	37834	38138	
==>tring'     => \&_op_substring,
  'string-append' => \&_op_string_append,
  'string->list'  => \&_op_string_list,
  'list->string'  => \&_op_list_string,
  'string-copy'   => \&_op_string_copy,
  'string-fill!'  => \&_op_string_fill_bang,

###
### Vector
###

  'vector?'       => \&_op_vector_p,
  'make-v <==
2	/Users/nnunley/parrot/Configure.pl	5951	6223	
==>e given compiler warning flags
   --cxx=(compiler)     Use the given C++ compiler
   --libs=(libs)        Use the given libraries
   --link=(linker)      Use the given linker
   --linkflags=(flags)  Use the given linker flags
   --ld=(linker)        Use the given loader fo <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	17819	18011	
==>s eq $meth) {
                $found = 1;
            }
            elsif (ref($variants) eq 'ARRAY') {
                for my $class (@{ $variants }) {
                    next if $class eq 'D <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15018	15117	
==>\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
    }
    return;
  } elsif <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16201	16300	
==>\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
    }
    return;
  } elsif <==
2	/Users/nnunley/parrot/languages/urm/urm-old.pl	142	281	
==>am;
my %register;
my $outreg;
open PROGRAM, $ARGV[0] or die "Couldn't get file";
foreach my $line (<PROGRAM>) {
    chomp $line;
    next if <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13443	13538	
==>be||"") =~ /<autoscore/
		))
	{
		Parse::RecDescent::_warn(1,"Optimizing away production: [". $_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787976	788066	
==>} = {{\@2}}->vtable->get_number_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788886	788976	
==>} = {{\@2}}->vtable->get_number_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	231	322	
==>ot::Test::Tcl, which looks like it's
largely a copy of Parrot::Test::Python. Abstraction nee <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	269	360	
==>ot::Test::Tcl, which looks like it's
largely a copy of Parrot::Test::Python. Abstraction nee <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561788	561880	
==>rc/ops/object.ops\"\n  opcode_t *next = {{^+4}};\n  {{\@1}} = VTABLE_find_method(interpreter, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562872	562964	
==>rc/ops/object.ops\"\n  opcode_t *next = {{^+4}};\n  {{\@1}} = VTABLE_find_method(interpreter, <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	915	1149	
==>G_ARGS = $ENV{TEST_PROG_ARGS} || '-j -Oc';
    my $args = $TEST_PROG_ARGS;

    Parrot::Test::write_code_to_file( $code, $lang_f );

    my ($pycmd, $cmd, $pass, $dir);
    my $exit_code = 0;

    $pycmd = "python  $lang_f";
    $cmd = <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	13158	13349	
==>nc = $normal_op;
        }
    }
    else
    {
        $jit_func = "$core_opfunc[$i]$func_end";
    }

    unless($precompiled){
    print JITCPU "\nstatic $jit_fn_retn\n" .$core_opfunc[$i] . <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2935	3042	
==>~ tr{\xA0}{ } if Pod::Simple::ASCII;
  print {$self->{'output_fh'}} $out,
    #"\n"
  ;
  $self->{'Thispara' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2469	2568	
==>~ tr{\xA0}{ } if Pod::Simple::ASCII;
  print {$self->{'output_fh'}} $out, "\n";
  $self->{'Thispara' <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10872	11004	
==>lback = ();
  my($k,$v);
  while( ($k,$v) = each %Latin1Code_to_fallback) {
    $Latin1Char_to_fallback{chr $k} = $v;
    #print chr( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611154	611288	
==>491 \"src/ops/object.ops\"\n    VTABLE_set_attr(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612057	612191	
==>491 \"src/ops/object.ops\"\n    VTABLE_set_attr(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/config/init/defaults.pm	4779	4896	
==>_f',
        rm_rf     => '$(PERL) -MExtUtils::Command -e rm_rf',
        mkdir     => '$(PERL) -MExtUtils::Command -e <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1102	1230	
==>ident->file,
    LINE   => $ident->line,
  }, $class;

  #
  # Check for a few bad conditions.
  #
  # NOTE: These are compiler i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1005	1133	
==>ident->file,
    LINE   => $ident->line,
  }, $class;

  #
  # Check for a few bad conditions.
  #
  # NOTE: These are compiler i <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	12075	12248	
==>interp, $Y, $Z, $A)
        elsif ($opbody =~ /
        ^(?:.*\.ops")\s+
        {{\@(\d)}}->vtable->
        (\w+)
        \(interpreter,
        \s*
        {{\@(\d)}},\s*{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88828	89091	
==>"NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89565	89828	
==>"NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	6422	6561	
==>_tail( \@put_pointer );

close NCI;


sub print_head {
    my ($definitions) = @_;
    print NCI << "HEAD";
/* ex: set ro:
 * !!!!!!!   DO N <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	17100	17244	
==>OS => {
			'expr' => 28,
			'charclass' => 12,
			'range' => 25
		}
	},
	{#State 56
		DEFAULT => -22
	},
	{#State 57
		DEFAULT => -33
	},
	{#Stat <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	4063	4191	
==>d, it was
          ## least-pessimal to abort processing the file.  But now we can
          ## just barrel on thru (but still n <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tests.pm	202	331	
==>section

=head1 SYNOPSIS

	use Parrot::Docs::Section::Tests;

=head1 DESCRIPTION

A documentation section describing Parrot tests. <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	6011	6254	
==>f = shift;
    local $_ = shift;
    my $trans = shift;

    s/{{([a-z]+)\@([^{]*?)}}/ $trans->access_arg($1, $2, $self); /me;  # XXX ???
    s/{{\@([^{]*?)}}/   $trans->access_arg($self->arg_type($1 - 1), $1, $self); /me;

    s/{{=0,=([^{]*?) <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	860	964	
==>('PMCs', '',
			$self->new_item('', 'lib/Parrot/Pmc2c.pm'),
			$self->new_item('', 'lib/Parrot/Vtable.pm' <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	9665	9782	
==>LURP;

    return $file;
}

sub convert_line_endings {
    my ( $text ) = @_;

    $text =~ s/\cM\cJ/\n/g;
}

sub path <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101455	101882	
==>S" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 126,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 130 \"src/ops/bit.ops\"\n  string_bitwise_not(interpreter, {{\@2}}, &{{\@1} <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25618	25723	
==>);
    $self->_restore($temp);
  } else {
    $return = $self->_generate($node->{children}[1]);
    if ($r <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27516	27621	
==>);
    $self->_restore($temp);
  } else {
    $return = $self->_generate($node->{children}[1]);
    if ($r <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11346	11512	
==>ight
        #  under non-ASCII charsets.  Something should be done about that.
    }
    
    # Pod::Simple::HTML bug was here.
    my $out;
    
    $out = $to if de <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6755	6927	
==>h;
}


#
# SKIPS:
#

sub skip_assign        { return shift->skip('assign');        }
sub skip_colon         { return shift->skip('colon');         }
sub skip_comma         { <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	7016	7193	
==>or @vars;
            $code .= inline("  .local $1 ");
            $code .= emit(join(",", map {$_."_%0"} @vars), 'loop_num');

            next;
        }
        

        # co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560556	560663	
==>method_pmc, *object;\n  opcode_t *next = {{^+3}};\n\n  object = {{\@1}};\n  method_pmc = {{\@2}};\n  interpr <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	5136	5246	
==>to override this if they have man
 #  pages somewhere URL-accessible.

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30032	30138	
==>CH:
	I1= -1
SUBDISP
	foreach (keys %subs) {
		print FUNC qq{\teq S0, "$_", SUB_$_\n};
	}
	print FUNC<<SUBEN <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	859	962	
==>:isa($left, 'Jako::Construct::Expression::Value');
  confess "Op is not scalar!" if ref $op;
  confess " <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	871	974	
==>:isa($left, 'Jako::Construct::Expression::Value');
  confess "Op is not scalar!" if ref $op;
  confess " <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2531	2702	
==>type $dest_type...");
#  $self->DEBUG(0, "Arithmetic with left type $left_type...");
#  $self->DEBUG(0, "Arithmetic with right type $right_type...");

  $self->INTERNAL_ERR <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	31452	31659	
==>te.
          } else {
            die "Unhandled item type $item_type"; # should never happen
          }
          
          # =item-text thingies don't need any assimilation, it seems.

        } elsif($o <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	795	933	
==>, The Perl Foundation. 

=head1 NAME

src/extend.c - Parrot extension interface

=head1 DESCRIPTION

These are the functions that Parrot ex <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035554	1035651	
==>tx);\n    PMC *result = NULL;\n\n    if (!PMC_IS_NULL(lex_pad))\n\tresult = VTABLE_get_pmc_keyed_s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036718	1036815	
==>tx);\n    PMC *result = NULL;\n\n    if (!PMC_IS_NULL(lex_pad))\n\tresult = VTABLE_get_pmc_keyed_s <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	51656	51854	
==>using
S<C<extract_codeblock($text, '{}', undef, 'E<lt>E<gt>')>>
the '>' character is only treated as a delimited at the outermost
level of the code block, so the directive is parsed correctly.

=head <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	760	912	
==>anguage_test_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    output_isnt       => 'isnt_eq',
                        );

f <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	498	614	
==>anguage_test_map = (
    output_is   => 'is_eq',
    output_like => 'like',
    output_isnt => 'isnt_eq',
);

f <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	5958	6176	
==>chable
	push @Q, $stmt if $stmt;
    }

    # Eliminate unreachable code
    my @output3; # Really should do @output = (), but I hate doing a
                 # compiler's work for it.
    my $keeping = 1;
    foreach m <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	2290	2422	
==>cut

    if ( grep { /^--files$/ } @{ $options{arguments} } )
    {
        # --files indicates the 'languages/t/harness' wants a lis <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718068	718163	
==>rpreter, io, INTVAL_FMT, (INTVAL){{\@2}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719000	719095	
==>rpreter, io, INTVAL_FMT, (INTVAL){{\@2}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n", <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	17680	17820	
==>$endpos,	# REMAINDER
		       );
	}

	unless ($$textref =~ m{\G((?:m|s|qq|qx|qw|q|qr|tr|y)\b(?=\s*\S)|<<)}gc)
	{
		_failmsg q{No quotelike op <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	6447	6658	
==>c', 'exec_save'],
                'sources' => ['exec_start']
            ),
        ),
        $self->new_group(
            'IO', 
            '',
            $self->c_item(
                'Parrot\'s layer-bas <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	3843	4070	
==>"$op->{arg1}->{symbol}\", $op->{arg2}->{symbol}\n";
    }

    sub visitCloneOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467556	467661	
==>Y" => "#line 376 \"src/ops/math.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468427	468532	
==>Y" => "#line 376 \"src/ops/math.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(in <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	13138	13251	
==>: p->info->name))
            return p->info - ${bs}op_lib.op_info_table;
    }
    return -1;
}
static void hop_i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3516	3648	
==>) subs:
  #

  else {
#    $self->DEBUG(0, "Calling '%s' as regular sub (props = %s)...", $name, join(", ", %props));

    $name =~ s <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2466	2580	
==>kinda find
	# basic blocks, we don't discover backward branches until late to do
	# otherwise. Also, putting a labe <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1044	1158	
==>kinda find
	# basic blocks, we don't discover backward branches until late to do
	# otherwise. Also, putting a labe <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	41338	41528	
==>, $treelet->[$i]; # might as well recurse
    }
  }

  return;
}

# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

sub _treat_Es {
  my($self,@stack) = @_;

  my <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	4635	4786	
==>} += $covered_branches;
                $file_branch_coverage{$source_file} = $percent;
                next;
            }

            ($percent, $tot <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	7840	8078	
==>->[0],
            'arg2'   => $val->[0],
            'result' => $result,
        );
    }
    push @opcodes1, @opcodes2;
    return [ $result, \@opcodes1 ];
}

sub BuildVariable {
    my ( $parser, $var ) = @_;
    my @opcodes <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262932	263330	
==>" => "isntsame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 306,
                  "ARGS" => [
                              "i",
                              "p" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3366	3543	
==>matter that takes Pod and renders it as
wrapped plaintext.

Its wrapping is done by L<Text::Wrap>, so you can change
C<$Text::Wrap::columns> as you like.

This is a subclass of L <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27314	27462	
==>w BranchOp( $parser,
        'result' => $l_continue,
    );
    push @opcodes, new LabelOp( $parser,
        'arg1' => $l_break,
    );
    re <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28193	28341	
==>w BranchOp( $parser,
        'result' => $l_continue,
    );
    push @opcodes, new LabelOp( $parser,
        'arg1' => $l_break,
    );
    re <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	2392	2534	
==>, $val) = @_;
    return "set $var, $val";
}

sub output_if {
    my $self = shift;
    my ($a, $cond, $b, $where) = @_;
    $where = $self->ou <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	4281	4378	
==>t="#stay" String="[^\=]*" />
          <RegExpr attribute="Comment" context="#pop" String="^\\=cut <==
2	/Users/nnunley/parrot/tools/dev/cc_flags.pl	1292	1425	
==>ions, [ $regex, $sign, $option ];
	    }
	}
	elsif (s{s(.)(.*?)\1(.*?)\1([imsx]*)\s*}{}) {
	    my $mod = "";
	    $mod = "(?$4)" if $ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	2881	3002	
==>symbol} = $value;
}

sub _new_pair {
  my ($self) = @_;
  my $return = $self->_save_1('P');

  $self->_add_inst('', 'new', <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	12432	12567	
==>S" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT|PARROT_ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	40262	40454	
==>[1..2]) . '

		  $repcount++;

		  my $savetext = $text;
		  my $backtrack;

		  # MATCH (OP RIGHTARG)(s)
		  while ($repcount < ' . $self->{max} . ')
		  {
			$backtrack = 0;
			' . $op->code( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	3878	4169	
==>ew(
        $file, $line, $1 eq '{' ? 'open-brace' : 'close-brace', undef, $1);
      $text = $2;
      next;
    }

    #
    # Control:
    #

    if ($text =~ m{^(if|else|elsif|unless)(?!\w)(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, $1, undef, $1);
      $text = <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6889	7003	
==>pushmark {
    my ($self) = @_;
    my @ops;
    if ($self->{DEBUG}) {
	push @ops, (qq(print "PUSHED ).(@_>1?$_[1]: <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6539	6653	
==>pushmark {
    my ($self) = @_;
    my @ops;
    if ($self->{DEBUG}) {
	push @ops, (qq(print "PUSHED ).(@_>1?$_[1]: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	68	423	
==>locks.

=head1 SYNOPSIS

TODO

=head1 DESCRIPTION

A subclass of Jako::Construct.

Maintains a symbol table, a referenct to its parent block, and a list of
content Constructs.

=cut

###############################################################################


use strict;
eval "use warnings 'all';";

package Jako::Construct::Block;

use base qw(Jako: <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	6302	6506	
==>i_systime' => 'define',
             'i_systimek' => undef,
             'i_systimes' => 'define',
             'i_systypes' => 'define',
             'i_sysuio' => 'define',
             'i_sysun' => 'def <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955324	955632	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "encodingname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956135	956443	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "encodingname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	302	452	
==>functions for manipulating
PMC vtables. It is used by F<tools/build/jit2c.pl>, F<tools/build/pmc2c.pl>,
F<tools/build/vtable_h.pl>, F<tools/dev/gen_cla <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27675	27783	
==>CURR] eq "PUN");
		if ($type[CURR] eq "BARE") {   # Variable name parameter
			$a=$syms[CURR];
			if ($syms[N <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	740	838	
==>s:

=over

=item $token->text

This returns the text that this token holds.  For example, parsing
C <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1593	1796	
==>E:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
print "Elapsed time:  $N2\n"; # print  "Elaps <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1593	1796	
==>E:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
print "Elapsed time:  $N2\n"; # print  "Elaps <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722213	722328	
==>* const s = {{\@2}};\n  PMC * const io = {{\@1}}; /* TODO Can this be localized? */\n  if (s && string_length(interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723242	723357	
==>* const s = {{\@2}};\n  PMC * const io = {{\@1}}; /* TODO Can this be localized? */\n  if (s && string_length(interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934064	934295	
==>ps\"\n  {{\@1}} = string_downcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934839	935070	
==>ps\"\n  {{\@1}} = string_downcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656378	656476	
==>=> "#line 324 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657302	657400	
==>=> "#line 324 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	328923	329348	
==>LAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 386,
                  "ARGS" => [
                              "n",
                              "p"
                            ],
                  "BODY" => "#line 164 \"src/ops/dotgnu.op <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2096	2187	
==>rd($1)/eg;
  }
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	22773	23058	
==>eedme;  # type.
			die "Unknown type $syms[CURR]" unless exists $usertypes{$syms[CURR]};
			my $type=$syms[CURR];
			die "SIGIL not allowed here" unless ($var=~/\w$/);
			print CODE<<DIMTYPE;
	P1= P10[I25]
	P2= P1["USER"]
	bsr DIM_$type
	P1 = new .PerlHash
	P1["_type"]= '$type'
	P1["ty <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325074	325548	
==>" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 381,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 144 \"src/ops/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpret <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	33952	34133	
==>mbol->string' => \&_op_symbol_string,
  'string->symbol' => \&_op_string_symbol,

###
### Numerics
###

  'number?'          => \&_op_number_p,
  'complex?'         => \&_op_complex_ <==
2	/Users/nnunley/parrot/tools/dev/gen_class.pl	1	105	
==>! perl
# Copyright (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/tools/dev/gen_class.pl 19607 2006 <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	3853	3984	
==>t{$f} = $n;
		for (my $i = 0; $i < $n; $i++) {
		    my ($a, $def) = split(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a = qq!"$a"! <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	4352	4483	
==>t{$f} = $n;
		for (my $i = 0; $i < $n; $i++) {
		    my ($a, $def) = split(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a = qq!"$a"! <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	11618	11799	
==>gger than
 * n of fullnames + n of names
 * for now this should be ok
 *
 * look up an op_code: at first call to op_code() a hash
 * of short and full opcode names is created
 * hash <==
2	/Users/nnunley/parrot/config/auto/msvc.pm	1684	1791	
==>);

    $conf->data->set(msvcversion => $msvcversion);

    # Add Visual C++ specifics here
    if ($msvcver <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	1119	1220	
==>$name ||= "_temp_int";
    if (exists $self->{_temps}{$name}) {
        $name .= ++$self->{_temp_int_c <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	3247	3352	
==>DIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically from '$outfile'
 * by $0.
 *
 * Any cha <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	3192	3330	
==>ct the section and set it.
  if ($line =~ /\[(\w+)\]/) {
    $cur_section = $1;
    next;
  }

  # Everything else goes to the handler
  $d <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	8367	8484	
==>complex.h
casinhl     complex.h
casinl      complex.h
catan       complex.h
catanf      complex.h
catanh      complex. <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3405	3539	
==>STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
}

sub YYLexer {
    my($self)=shift;

	$$self{LEX};
}


#################
# Privat <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3233	3356	
==>STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
}

sub YYLexer {
    my($self)=shift;

	$$self{LEX};
}


#################
# Privat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978040	978658	
==>AGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1098,
                  "ARGS" => [
                              "i",
                              "ic",
                              "s",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 622 \"s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	4434	4684	
==>"%6d : %-30s : %5s : %-15s: %1s : %s\n",
      $self->pos,
      $tok->file,
      $tok->line,
      $tok->kind,
      $tok->type || '',
      $tok->text;

    last if $tok->is_eof;
  }

=begin commented_out

  foreach (my $i = 0; $i < scalar(@{$self- <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7345	7493	
==>ext;
        unless( $next->type eq 'text' ) {
          $self->unget_token($next);
          next;
        }
        DEBUG and print "    raw text " <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9590	9738	
==>ext;
        unless( $next->type eq 'text' ) {
          $self->unget_token($next);
          next;
        }
        DEBUG and print "    raw text " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	312224	312592	
==>" => "",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 364,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 157 \"src/ops/debug.ops\"\n  struct Parrot_Context_info <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9327	9427	
==>lags, $ldout, $o, $link, $linkflags, $cc_exe_out, $exe, $libs) = $conf->data->get(
        qw(cc ccfl <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1480	1609	
==>check,$dotpos);
    my($self)={ ERROR => \&_Error,
				ERRST => \$errst,
                NBERR => \$nberr,
				TOKEN => \$toke <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1430	1555	
==>check,$dotpos);
    my($self)={ ERROR => \&_Error,
				ERRST => \$errst,
                NBERR => \$nberr,
				TOKEN => \$toke <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1281	1383	
==>opcode_to_prederef(i, op)   (op ? \\
     (void**) (op   - CONTEXT(i->ctx)->pred_offset) : NULL)


#def <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	3892	4001	
==>entry->[1]_method_t $entry->[1];\n";
    }

    $struct .= "};\n";

    return $struct;
}

=item C<vtbl_macros <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	816552	816731	
==>GDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 923,
                  "ARGS" => [],
                  "BODY" => "#line 600 \"src/ops/set.ops\"\n  P <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	6354	6533	
==>$d;
    Carp::croak "\"$d\" isn't a valid directive name"
     unless $d =~ m/^[a-zA-Z][a-zA-Z0-9]*$/s;
    Carp::croak "\"$d\" is already a reserved Pod directive name"
     if ex <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	7148	7284	
==>$d;
    Carp::croak "\"$d\" isn't a valid directive name"
     unless $d =~ m/^[a-zA-Z][a-zA-Z0-9]*$/s;
    Carp::croak "But you must acc <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2485	2588	
==>e;

    $self->INTERNAL_ERROR("Can't determine type of actual argument (%s)!", ref $args[$i])
      unle <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2185	2288	
==>e;

    $self->INTERNAL_ERROR("Can't determine type of actual argument (%s)!", ref $args[$i])
      unle <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	71052	71239	
==>ined ${$rules}{$call}
			  &&!defined &{"Parse::RecDescent::$call"})
			{
				if (!defined $::RD_AUTOSTUB)
				{
					_warn(3,"Undefined (sub)rule \"$call\"
					      used in a production <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3952	4057	
==>uthash{$prm}=$value;
	}
	for (@$mandatory) {
			exists($$outhash{$_})
		or	croak("Missing mandatory pa <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3753	3854	
==>uthash{$prm}=$value;
	}
	for (@$mandatory) {
			exists($$outhash{$_})
		or	croak("Missing mandatory pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959322	959495	
==>ring_trans_encoding(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960124	960297	
==>ring_trans_encoding(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10969	11091	
==>eturn print $fh join '',
    $self->doc_init,
    $self->font_table,
    $self->stylesheet,
    $self->color_table,
    $se <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452018	452377	
==>" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 518,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 225 \" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253845	254178	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254708	255041	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "or",
                  "FLAGS" => ":base_ <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	1556	1678	
==>ath);
    
    # If we are root then the above will make parent the same as path.
    undef $parent_path if $parent_path eq <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39441	39615	
==>ION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 182,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primar <==
2	/Users/nnunley/parrot/languages/converter.pl	1387	1543	
==>0];
		  $return .= "# $item[2]\n";
		  $return .= $item[3][0] if defined $item[3][0];
 		}
		| terminal(?) '|' production mod(?)
#		{[@item]}
		{ $return = ' <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	2103	2358	
==>nes.
##############################################################################

# Parse rules file and build a data structure.
# ############################################
sub parse_rules($) {
    # Get filename and open the file.
    my $filename = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111724	112163	
==>" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 139,
                  "ARGS" => [
                              "s",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 187 \"src/ops/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629581	629710	
==>ype <= 0)\n        real_exception(interpreter, NULL, NO_CLASS,\n            \"Class '%Ss' not found\", class);\n  {{\@1}} = pmc_ne <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	11091	11208	
==>:_tracemax(substr($_[1],0,-length($text))) . q{])}, 
					  Parse::RecDescent::_tracefirst($text),
					  , q{' . $sel <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141275	141573	
==>GS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 173,
                  "ARGS" => <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13880	13997	
==>13
print mine(foo,20,z)
print foo
print z.foo

' Should print 100, 103
type first
	foo as integer
	bar as string
end t <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	730	861	
==>Cannot reseek: $!";
} else {
	open(D, "<&DATA") || die;
}
shift(@ARGV);

tokenize();
#push(@ARGV);
parse(@ARGV);

open(CODE, ">TARG_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	2566	2775	
==>t UNIVERSAL::isa($sym->type, 'Jako::Construct::Type::String')) {
        my $temp2 = $compiler->temp_str();
        $compiler->emit("  $temp2 = $ident");
        $ident = $temp2;
      }

      $compiler->emit( <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	702	833	
==>the interpreted version that automatically calls 
# the inline'd version, compiles the result and invokes it.

print <<"END_PIR";

. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	372717	372981	
==>=> "peek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 436 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3920	4040	
==>$prm=unpack('@2A*',$prm);
		$$outhash{$prm}=$value;
	}
	for (@$mandatory) {
			exists($$outhash{$_})
		or	croak("Mis <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3722	3837	
==>$prm=unpack('@2A*',$prm);
		$$outhash{$prm}=$value;
	}
	for (@$mandatory) {
			exists($$outhash{$_})
		or	croak("Mis <==
2	/Users/nnunley/parrot/config/init/defaults.pm	803	988	
==>> $conf->options->get('verbose'),
        build_dir => $FindBin::Bin,

        # Compiler -- used to turn .c files into object files.
        # (Usually cc or cl, or something like that. <==
2	/Users/nnunley/parrot/tools/build/addopstags.pl	252	397	
==>ll ops tags
while (<>) {
	if (/\bop \s+ (\w+) \s* \(/x) {
		next if $seen{$1}++;
	# tag file excmd xflags
	push @tags, join( "\t", $1, $ARGV, qq{$ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41470	41572	
==>$scratch=$name);
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	2948	3033	
==><Parrot::Docs::Section::DynaPMCs>

=item C<Parrot::Docs::Section::C>

=item C<Parrot:: <==
2	/Users/nnunley/parrot/config/gen/platform.pm	105	229	
==>:28:15.110975Z coke  $

=head1 NAME

config/gen/platform.pm - Platform Files

=head1 DESCRIPTION

Moves the various platform- <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	1755	1889	
==><args()>

Accepts no arguments and returns the value of C<@args> from the inheriting
classes namespace.

This method also works as an o <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	192	291	
==>NOPSIS

    use Parrot::Docs::Item;

=head1 DESCRIPTION

A documentation I<item> is one or more rela <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	4368	4530	
==>Film::Rating() method is broken.


=head1 CAVEATS

Test::Simple will only report a maximum of 254 failures in its exit
code.  If this is a problem, you probably ha <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352272	352369	
==>" => "#line 195 \"src/ops/io.ops\"\n  PIO_printf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352930	353027	
==>" => "#line 195 \"src/ops/io.ops\"\n  PIO_printf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}} <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16433	16615	
==>s, etc...
		@stream=convert_to_rpn(@expr);	# Get infix into RPN
		#print STDERR "Stream:", join(' ', map { $_->[0] } @stream), "\n";
		($assignto, $type, @left)=generate_code($opts{lh <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	31170	31276	
==>tting codes. That is, authors should not use
# "L<B<Foo::Bar>>".
#
# Note, however, that formatting codes a <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4174	4288	
==>4)
	arrfunc=55
end function
dim g(10)
g(4)=12
y=arrfunc(g())

' Function Array scopes, expect 4, 5.6
function mine( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569319	569580	
==>= {{\@2}}->vtable->isa(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570212	570473	
==>= {{\@2}}->vtable->isa(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	34996	35179	
==>p( $parser,
        'arg1'   => $nil->[0],
        'op'     => '==',
        'arg2'   => $var,
        'result' => $lbl_end,
    );
    foreach my $op ( @{$block} ) {
        if <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	343	521	
==>.  So far tested
with svn 1.2.0.

=cut

package main;

use strict;
use warnings;

use File::Find;

my @dirs;  # will be filled in wanted

# XXX Most of these can probably be clean <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	37562	37723	
==>@section_name = ($2); # might be 0-length
          $ell_content[$j] =  $1;  # might be 0-length

          DEBUG > 3 and
           print "     FOUND a '/' in it <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	676	818	
==>IC';
    }

    if ($cc =~ /icc/) {

        # Intel C++ compiler has the same name as its C compiler
        $link = 'icc';

        # don't a <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	156	271	
==>er.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Type/Number.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

u <==
2	/Users/nnunley/parrot/config/auto/signal.pm	322	412	
==>nfigure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining so <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	338	428	
==>nfigure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining so <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	1690	1874	
==>}{$2}) {
      $self->{regs}->{$1}{$2} = 0;
    }
  }
}

sub _restore_set {
  my $self = shift;
  my %regs = %{$self->{regs}};

  for my $type (reverse keys %regs) {
    for (my $count= <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2603	2726	
==>undef,            # No args
    $self->file,
    $self->line
  );

  $block->set_symbol($self->name, $sym);

  $block->push_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2881	3003	
==>undef,           # No args
    $self->file,
    $self->line
  );

  $block->set_symbol($self->name, $sym);

  $block->push_ <==
2	/Users/nnunley/parrot/config/auto/snprintf.pm	380	474	
==>ase);

use Parrot::Configure::Step qw(cc_gen cc_build cc_clean cc_run);

$description = 'Testin <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6152	6352	
==>CTIONS}{$$token}
                    :   exists($$actions{DEFAULT})
                        ?   $$actions{DEFAULT}
                        :   undef;
        }
        else {
            $act=$$a <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5863	6057	
==>CTIONS}{$$token}
                    :   exists($$actions{DEFAULT})
                        ?   $$actions{DEFAULT}
                        :   undef;
        }
        else {
            $act=$$a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8971	9069	
==>anch_cs: fixup for '%s' not found\", label);\n    else {\n\tinterpreter->resume_offset = fe->offset <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10087	10185	
==>anch_cs: fixup for '%s' not found\", label);\n    else {\n\tinterpreter->resume_offset = fe->offset <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755493	755853	
==>assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 852,
                  "ARGS" => [
                              "p",
                              " <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	5322	5441	
==>bol} = $level;
    }

    $block = $block->block; # Collect symbols from the parent block next
    $level++;
  }

  prin <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10655	10772	
==>, 'a', 'a', 'a', 'ae', 'c', 'e', 'e', 'e', 'e', 'i', 'i', 'i', 'i',
'd', 'n', 'o', 'o', 'o', 'o', 'o', qq{/}, 'o', 'u' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022762	1022954	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodelocaltime",
                  "FLAGS" => "",
                  "ARGDIRS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023611	1023803	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodelocaltime",
                  "FLAGS" => "",
                  "ARGDIRS" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	40390	40562	
==>s; # Kill any number of terminal newlines
        }
        
      } elsif($para_type eq 'Data') {
        DEBUG and print " giving data treatment...\n";
        $para->[1]{ <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	443	557	
==>hmetic.

Prints out:

=over 4

=item * the number of look iterations, 

=item * the estimated number of ops perform <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	447	560	
==>hmetic.

Prints out:

=over 4

=item * the number of look iterations,

=item * the estimated number of ops perform <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417952	418430	
==>base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 481,
                  "ARGS" => [
                              "i",
                              "p",
                              "ic", <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	5545	5654	
==>alue
    unless iter goto loop_end_2d
    value_type = typeof value
    if newline goto print_newline
    if v <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4608	4714	
==>.

      $handler->start_element({ Name => 'literal', Attributes => { type => $type->name } });
      $hand <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	496	607	
==>bose);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    my %gn <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	26442	26580	
==>nt <<EOC;
	\t # '$c' := $p $cmt
EOC
	$c = $p;
    }
    else {
	my $p = 5 + keys %params;
	$params{$c} = $c;
	$lexicals{$c} = $c;
	$names{$ <==
2	/Users/nnunley/parrot/examples/benchmarks/oo5.pl	131	267	
==>Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift;
    return bless [ 10, 20 ], $self;
}

sub i {
    my $self = shift;
    if <==
2	/Users/nnunley/parrot/examples/benchmarks/oo6.pl	123	259	
==>Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift;
    return bless [ 10, 20 ], $self;
}

sub i {
    my $self = shift;
    if <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1650	1746	
==>ter_num}
${INS} = concat " = pop s\n"
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$register <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3360	3456	
==>ter_num}
${INS} = concat " = pop s\n"
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$register <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	16418	16547	
==>o build a Pod processor -- but
one that uses an interface based on a stream of token objects,
instead of based on events.

This is <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	38825	38963	
==>.\n";
        unless( @$para == 2 or ( @$para == 3 and $para->[2] eq '' )
          or $para->[1]{'~cooked'}
        ) {
          push @$p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430337	430614	
==>> "inline",
                  "CODE" => 494,
                  "ARGS" => [
                              "ic",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 74 \"src/ops/math.ops\"\n  mmd_ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	14939	15095	
==>f ($$textref =~ m/\G\s*$ldel_outer/gc)
		{
			_failmsg q{Improperly nested codeblock at "} .
				     substr($$textref,pos($$textref),20) .
				     q{..."}, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	7979	8149	
==>fined($kid->maxlen()) xor $havemax) {
                # Change
                push @chunks, [];
                $havemax = 1 - $havemax;
            }
            push @{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776564	776967	
==>GS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 877,
                  "ARGS" => [
                              "p",
                              "ki",
                              " <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10119	10247	
==>gated list
    if ($pieces->[0] eq 'neg') {
        return _negate_incexc(_translate_classpieces($pieces->[1]));
    }

    # Con <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5505	5610	
==>: ordering of libs might be crucial
sub gather_groups_and_libs {
    my @pmcs = @_;

    my ( %group_files <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5716	5821	
==>: ordering of libs might be crucial
sub gather_groups_and_libs {
    my @pmcs = @_;

    my ( %group_files <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16445	16564	
==>yzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
            return $x;
        }
    }

    foreach my $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9988	10092	
==>yzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
      return $x;
    }
  }
  foreach my $ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	17956	18067	
==>a plan!  Gotta have a plan.");
    }

    lock($self->{Curr_Test});
    $self->{Curr_Test}++;

    $self->{Test_ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	18821	18932	
==>a plan!  Gotta have a plan.");
    }

    lock($self->{Curr_Test});
    $self->{Curr_Test}++;

    $self->{Test_ <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	1768	1891	
==>c
    @funcs = grep /^\S/, @funcs;

    # Typedefs and structs are no good
    @funcs = grep !/^(typedef|struct|enum|extern) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1255	1379	
==>py the potentially
large text value (well, as large as a paragraph or a verbatim block)
as calling $token->text would do.

Or <==
2	/Users/nnunley/parrot/config/inter/progs.pm	2848	2977	
==>= integrate($linkflags, $conf->options->get('linkflags'));
    $linkflags = prompt("And your linker?", $linkflags) if $ask;
    $c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8219	8352	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9334	9467	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2149	2299	
==>=> 'Scheme code',
	'sh' => 'Shell script',
	'spec' => 'RPM build specification',
	't' => 'Test file',
	'tbl' => 'Vtable file',
	'tcl' => 'TCL code',
	' <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	36790	36950	
==>scalar( @{ $parser->YYData->{scope} } ) . '_' . $idf;
        $defn = new defn( $name, 'local', 'pmc', undef, $idf );
        push @opcodes1, new ParamDir( $pa <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2790	2884	
==>ndler->start_element({ Name => 'block', Attributes => { kind => 'then' } });
  $_->sax($handler <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	19576	19718	
==>late builder
    #   12mar95
    #   Dean Roehrich
    #
    # changes/bugs fixed since 28nov94 version:
    #  - podified
    # changes/bugs f <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	3692	3845	
==>OUTPUT "loadlib P1, '$line'\n";
}

sub def_line {
  my $line = shift;
  my ($return_type, $name, @params) = split ' ', $line;
  unshift @params, $return_t <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8334	8473	
==>DBG>		and	print STDERR "Back to state $$stack[-1][0], then ";

                $$check eq 'ERROR'
            or  do {
#DBG>				$debug & <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7954	8089	
==>DBG>		and	print STDERR "Back to state $$stack[-1][0], then ";

                $$check eq 'ERROR'
            or  do {
#DBG>				$debug & <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936336	936643	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "titlecase",
                  "FLAGS" => ":ba <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937113	937420	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "titlecase",
                  "FLAGS" => ":ba <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15609	15737	
==>d($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
    return $x;
  }
}

sub rtf_esc_codely {
  # Doesn't change "-" to hard-hyphen, n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627285	627402	
==>ting a continuation, the continuation PMC\n   * needs to be in the destination register before its init method\n   * c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628429	628546	
==>ting a continuation, the continuation PMC\n   * needs to be in the destination register before its init method\n   * c <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	2707	2868	
==>ut_suffix
{
    my $self = shift;
    my $name = $self->name;
    
    $name =~ s/\.[^\.]*$//o;
    
    return $name;    
}

=item C<suffix()>

Use this to get t <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15893	15989	
==>y -, functions, etc...
		@stream=convert_to_rpn(@expr);	# Get infix into RPN
		($result,$type,@st <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	17044	17140	
==>y -, functions, etc...
		@stream=convert_to_rpn(@expr);	# Get infix into RPN
		($result,$type,@st <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	14161	14279	
==>tal"><tmpl_var name=total> test cases</span>:<br />
		<span class="tests_ok"><tmpl_var name=ok> ok</span>,
		<span clas <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	8840	9030	
==>elf->debug) { confess $message; }
  else              { die "$message\n"; }
}


#
# PARSE_ERROR()
#

sub PARSE_ERROR
{
  my ($self, $format, @args) = @_;
  $self->ERROR('Parse', $format, @arg <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105387	105652	
==>line",
                  "CODE" => 131,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 162 \"src/ops/bit.ops\"\n  {{\@1}} |= {{\@2}};\n  {{+=3}};\n" <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4027	4128	
==>bs') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pm <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4131	4232	
==>bs') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pm <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	328138	328415	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_r4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	328805	329054	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_r4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	48002	48246	
==>Variable( $_[0], $_[2] );
            Insert( $_[0], $var );
        }
	],
	[#Rule 21
		 'stat', 12,
sub
#line 138 "Lua\lua51.yp"
{
            BuildForNum( $_[0], $_[10], $_[4], $_[6], $_[8], $_[11] );
        }
	],
	[#Rule 22
		 ' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2260	2416	
==>f->{'line_count'}++ ) {
      ($line = $source_line) =~ tr/\n\r//d;
       # If we don't have two vars, we'll end up with that there
       # tr/// modding t <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3181	3293	
==>t(link => $conf->data->get('ld'));

        # We can't use -opt: and -debug together.
        if ($conf->data->ge <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4685	4797	
==>t(link => $conf->data->get('ld'));

        # We can't use -opt: and -debug together.
        if ($conf->data->ge <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2428	2527	
==>em $token->dump

This returns a handy stringified value of this object.  This
is useful for debuggin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569337	569605	
==>>isa(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570230	570498	
==>>isa(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	57633	57748	
==>gument means:
I<"Try and extract a ' or " delimited string, otherwise extract anything up to a comma...">.
The undef <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	19278	19403	
==>r_ic = cur_ic
	err = concat str_ic
	err = concat ")"
    ex["_message"] = err 
    throw ex

PIRCODE

    # Restore original i <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1265	1358	
==>over

=item $token->tagname

This returns the tagname for this start-token object.
For example <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	13	111	
==>package Pod::Simple::SimpleTree;
use strict;
use Carp ();
use Pod::Simple ();
use vars qw( $ATTR_PA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	313395	313879	
==>&info);\n  {{\@1}} = string_from_cstring(interpreter, info.file, 0);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i1",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => " <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	2215	2313	
==>ult.

=item C<pasm_output_isnt($code, $unexpected, $description)> or C<output_isnt($code, $unexpect <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8285	8414	
==>f = shift;
    my $path = $self->path_for_directory_with_name(shift) || return;
    
    return unless -d $path;
    
    return $ <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4508	4627	
==>ci|platform(?:_interface)?)\.[ch]|(?:charclass|feature)\.h)$/o
        or $self->parent->name eq 'ops' and $self->suffix <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1830	1934	
==>++$_[0]{'Indent'} }
sub start_over_number  { ++$_[0]{'Indent'} }
sub start_over_text    { ++$_[0]{'Indent <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1398	1502	
==>++$_[0]{'Indent'} }
sub start_over_number  { ++$_[0]{'Indent'} }
sub start_over_text    { ++$_[0]{'Indent <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1658	1794	
==>type, "Jako::Construct::Type");

  my $type_name = $type->name;

  $self->INTERNAL_ERROR("Constant definition involves undefined type nam <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021651	1021750	
==>uct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_gmtime_r(&t, &tm);\n  {{\@1}} = tm_to_arr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022493	1022592	
==>uct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_gmtime_r(&t, &tm);\n  {{\@1}} = tm_to_arr <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	3551	3662	
==>| select | case |
		read | restore | input | open | close | on | randomize | stop | swap |
		common | cls | loca <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	24073	24253	
==>f,
                                     'STDERR' => $build_f);
            $builder->diag("'$cmd' failed with exit code $exit_code")
                if $exit_code;

            if ( <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	24834	25006	
==>f,
                                     'STDERR' => $build_f);
            $builder->diag("'$cmd' failed with exit code $exit_code")
        if $exit_code;

            if ( <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	45257	45417	
==>},
	{#State 209
		DEFAULT => -34
	},
	{#State 210
		DEFAULT => -20,
		GOTOS => {
			'@5-9' => 212
		}
	},
	{#State 211
		ACTIONS => {
			'END' => 213 <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	5764	5883	
==>{
    my $self = shift;
    my $body = $self->body;

    $body .= sprintf("  {{+=%d}};\n", $self->size) if $self->type e <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25599	25698	
==>turn,$temp,$return]);
    $self->_restore($temp);
  } else {
    $return = $self->_generate($node->{ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27497	27596	
==>turn,$temp,$return]);
    $self->_restore($temp);
  } else {
    $return = $self->_generate($node->{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	23022	23154	
==>node, but something about that seems icky.
      }
      if(ref $is) {
        my @dynasty = @$is;
        DEBUG > 4 and print "    R <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423622	423883	
==>\@1}} = (INTVAL)PIO_listen(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	424519	424780	
==>\@1}} = (INTVAL)PIO_listen(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	7919	8082	
==>line\s+(\d+)(\s+"(.*?)")?\s*$/) {
      $line = $1 - 1; # Will be incremented next iteration
      $file = $3 if defined $3;
    }
    else {
      $self->scan_line <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17231	17327	
==>>_dump_curr_open(), ")\n";
    
    if($para_type eq '=for') { #///////////////////////////////// <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760704	760993	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setp_ind",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761556	761845	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setp_ind",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	8923	9048	
==>move C comments
    ]
    [ "-" x length $1 ]sexg;

    /^\{/ or die "bad block open: ", substr($code,0,10), "...";

    while <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	35681	35791	
==>or rule $rule->{'name'}");
		$pir .= "### end post_branch\n";
	}

    # Calls/returns (calling class)
    elsif <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19832	19930	
==>tree-building action in rule
					   \"$rule->{name}\"")
		and
		Parse::RecDescent::_hint("The dire <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046125	1046534	
==>i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1169,
                  "ARGS" => [
                              "k",
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155336	155837	
==>ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 188,
                  "ARGS" => [
                              "sc",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@ <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	3525	3670	
==>1 = neg %1"      # negate
    $P0[unicode:"monadic:\u2308"] =  <<"END_PIR"            # ceiling
    $N100 = %1
    $I100 = ceil $N100
    %1 = $I1 <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	25108	25281	
==>$name =~/^obj (\S+) attr (\w+)/) {  # convert to meth call syntax
	my ($obj, $attr) = ($1, $2);
	my $ret_type = ret_val($attr);
	my $ret_string = "";
	if ($ret_type ne 'None' <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4826	4926	
==>->gen_goto($self->expr_address(@_));
}

=item C<goto_offset($offset)>

Transforms the C<goto OFFSET($ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	7438	7619	
==>t(s), prepend self as parrent
    $const->{parents} = [ $self->{class}, @{ $self->{parents} } ];
    # copy flags, set is_const
    $const->{flags} = {is_const => 1, %{ $self->{flags <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21166	21273	
==>ext = $text;' : '' ) .'

		$_tok = ($_noactions) ? 0 : do ' . $self->{"code"} . ';
		' . ($self->{"lookahead <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	21905	22020	
==>en_file( ">>", $deffile );
        print $fh "LIBRARY $group\nEXPORTS\n\tParrot_lib_${group}_load\n" unless $defexis <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	12599	12783	
==>AULT => -6
	},
	{#State 8
		DEFAULT => -1
	},
	{#State 9
		ACTIONS => {
			"(" => 10,
			'CHAR' => 4,
			"<" => 3,
			"[" => 14,
			'CODE' => 6,
			"." => 15
		},
		GOTOS => {
			'expr' <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	308	409	
==>aining links to one or
more, grouped or ungrouped items.

C<Parrot::Docs::Section> is a subclass of C< <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	212672	213115	
==>",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 250,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BOD <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6295	6448	
==>en later.
        if ($access eq 'const' and $type->isa("Jako::Construct::Type::PMC"));

      my @identifiers = ();

      my $block = $self->current_blo <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	7781	7920	
==>nt "# $cur_f: args='$args' ar='$ar' kw='$kw'\n";
		    $func_info{$cur_f}{'args'} = $args;
		    $func_info{$cur_f}{'ar'} = $ar;
		    $func <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	2889	3061	
==>ocal int argc
  .local string pir
  pir = ''
  argc = elements argv
END_PIR
    
    return $code;
}

sub arg_check {
    my (@args) = @_;
    
    my ($min, $max) = num_arg <==
2	/Users/nnunley/parrot/config/auto/memalign.pm	1551	1685	
==>less ($@ || cc_run_capture() !~ /ok/) {
        $test2 = 1;
    }
    cc_clean();

    $conf->data->set(malloc_header => undef);

    m <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4138	4243	
==>::_generate_glob_for($target, $pattern, 1);

    goto &Parrot::Test::pir_output_like;
}


package Parrot:: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	991	1088	
==>:Identifier');
  confess "Left is not Value!" if defined $left and not UNIVERSAL::isa($left, 'Jako <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1019	1116	
==>:Identifier');
  confess "Left is not Value!" if defined $left and not UNIVERSAL::isa($left, 'Jako <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	23247	23366	
==>parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, @{ <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr3.pm	216	338	
==>{
    my $self = shift;
    my ( $count, $options ) = @_;

    return Parrot::Test::per_test( '_antlr3.out', $count );
}

s <==
2	/Users/nnunley/parrot/lib/Test/More.pm	21017	21141	
==>kip {
    my($why, $how_many) = @_;

    unless( defined $how_many ) {
        # $how_many can only be avoided when no_plan i <==
2	/Users/nnunley/parrot/lib/Test/More.pm	23442	23566	
==>kip {
    my($why, $how_many) = @_;

    unless( defined $how_many ) {
        # $how_many can only be avoided when no_plan i <==
2	/Users/nnunley/parrot/config/auto/gc.pm	1918	2039	
==>SRC_DIR)\/$gc\$(O) \$(SRC_DIR)/res_lea\$(O)",
            gc_flag   => '-DGC_IS_MALLOC',
        );
    } elsif ($gc eq 'l <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18094	18256	
==>ry' => 28
		}
	},
	{#State 48
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1368	1472	
==>od::Simple::DEBUG = sub () { $$variable } ;
    $$variable = $value;
    print "# Starting Pod::Simple::D <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	3528	3719	
==>($label = $label->{label}) =~ s/^@//; # FIXME: local labels?
    return "$label:\n$comment";
}

sub output_push_reg {
    my ($self, $reg) = @_;
    return "save $reg";
}

sub output_pop_reg { <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	2688	2830	
==>N2PConfig.pm" or die "Unable to open config/N2PConfig.pm\n";
	print $fh $config_pm;
	close $fh;
}


# Generate makefile instructions to t <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	11393	11542	
==>s)
    {
        $file->delete;
    }
    
    foreach my $dir ($self->directories)
    {
        $dir->delete;
    }
}

=back

=head1 SEE ALSO

=over <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19563	19710	
==>e($temp_0);
  return $return;
}

sub _op_gt {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0 <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	6115	6272	
==>b vtable_num($) {
    my $meth = shift;
    unless ($vtable) {
        $vtable = parse_vtable();
    }
    my $i = 0;
    $vjit++;
    for my $entry (@{$vtabl <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	10934	11055	
==>xpect, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # undef only mat <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	11352	11473	
==>xpect, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # undef only mat <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	18627	18737	
==>m C<minor_version()>

Returns the minor version number.

=cut

sub minor_version
{
    my $self = shift;

    $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	3303	3507	
==>ed temporary!";
}

######################## Default rewrite rules #######################

sub rewrite_terminate {
    my ($self, $op, $R) = @_;
    return $R, aop('goto', [ $self->{_return} ]);
}

sub rew <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	5730	5925	
==>pparent non-4 space indenting (" . length($indent) . " spaces)");
                }
            }
            $f = undef;
        }
    }
}


# tabs are bad, mmkay?
sub check_tabs {
    my ($file, <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	2593	2740	
==>->YYData->{symbtab} = new SymbTabVar($parser);
    $parser->YYData->{lex_num} ++;
##    warn "PushScope\n";
}

sub PopScope {
    my ($parser) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	316182	316320	
==>"src/ops/dotgnu.ops\"\n  if({{\@1}} >= 0 && {{\@1}} <= 255 ) {\n    {{\@1}} = (INTVAL)((unsigned char)({{\@1}}));\n  }\n  else {\n    inter <==
2	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	1409	1703	
==>set S0, ""
	
	set S0, ""
	read S0, 256
	length I1, S0
	eq I1, 1, MAINLOOPR
	save S0
	bsr STRIPSPACE
	restore S0	# Mystery bug.
	save S0		# CAP 7/31/02
	bsr TOKENIZER
	bsr REVERSESTACK
	restore I5
	eq I5, 0, ENDMAINLOOPNR  # No tokens!

	bsr ISNUM
	restore I1
	dec I5
	save I5
	bsr CLEAR
	restore <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398999	399349	
==>E" => "function",
                  "CODE" => 462,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6000	6224	
==>ml()>

Runs C<Parrot::Docs::POD2HTML> on the contents of the file. Executable files
are assumed not to contain POD and therefore not formatted.

=cut

sub pod_as_html
{
	my $self = shift;
	
	if ( $self->contains_pod )
	{
		my <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7422	7576	
==>1',$lhs) eq '@'    #In line rule
            and do {
                    $lhs =~ /^\@[0-9]+\-([0-9]+)$/
                or  die "In line rule name '$lh <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7079	7230	
==>1',$lhs) eq '@'    #In line rule
            and do {
                    $lhs =~ /^\@[0-9]+\-([0-9]+)$/
                or  die "In line rule name '$lh <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7819	7919	
==>ALL_END_${CURIC}

# It's a call. Get details of method we're calling.
(${PTEMP0}, ${STEMP0}, ${PTEMP1 <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	18376	18515	
==>n signature argument character 'v' ignored");
       signature = string_chopn(interpreter, signature, 1, 1);
       signature_len = string_l <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11195	11302	
==>ush @ops, split(/\n/, <<"END");
  if <rx_mode> goto $trymatch
  goto $backup
END

    return @ops;
}

sub ou <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	8179	8324	
==>ns on what a target name can be?
    $this->{'accept_targets'}{$t} = $type;
    DEBUG > 2 and print "Learning to accept \"$t\" as target of type $ <==
2	/Users/nnunley/parrot/config/init/hints.pm	136	239	
==>ME

config/init/hints.pm - Platform Hints

=head1 DESCRIPTION

Loads the platform and local hints files, <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5972	6098	
==>ebug & 0x01
#DBG>			and	print STDERR "Need token. Got ".&$ShowCurToken."\n";
			};

            $act=   exists($$actions{AC <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5688	5810	
==>ebug & 0x01
#DBG>			and	print STDERR "Need token. Got ".&$ShowCurToken."\n";
			};

            $act=   exists($$actions{AC <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	3969	4145	
==>), $ctx);
            @{ $t->{args} } = ($R, $subtree);
            return $t;
        }

        # Have at least one to combine with, but possibly not all
        @{ $R->{args} <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	5770	5911	
==>($Global, $Local,   'global', 'local');
warn_if_both($Init,   $Uninit,  'init',   'uninit');
warn_if_both($Def,    $Undef,   'def',    'undef' <==
2	/Users/nnunley/parrot/lib/Test/More.pm	8547	8653	
==>yn{tree}> is true, it checks if
it returns 1.  Very different.  Similar caveats exist for false and 0.
In t <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54862	54952	
==>return $out;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	425805	426211	
==>",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 489,
                  "ARGS" => [
                              "ic",
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 64 \"src/ops/math.ops\"\n  mmd_dispatch_v_pi(interpreter, {{\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1626	1755	
==>es

=head1 SYNOPSIS

 # a long story

=head1 DESCRIPTION

This class is not of interest to general users.

Pod::Simple uses this c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202503	202781	
==>"CODE" => 239,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 380 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter, {{\@ <==
2	/Users/nnunley/parrot/config/gen/cpu.pm	878	1032	
==>se $hints";
    unless ($@) {
        $hints->runstep($conf, @_);
    } else {
        print "(no cpu specific hints)" if $verbose;
    }

    return $self <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	4372	4612	
==>pe->code;
    }

    $sig =~ tr[INPS][ifpt]; # Defaults.

    my $fn_name = $fn;

    $fn_name =~ s/^.*::/"/;

    $compiler->emit("  .local pmc __lib");
    $compiler->emit("  loadlib __lib, $fnlib");
    $compiler->emit("  .local pmc __fun <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1570	1664	
==>Regex::expr_to_tree($pattern, $ctx, DEBUG => 0);

    my $driver = Regex::Driver->new('pir', em <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	19326	19434	
==>@stack) {
    DEBUG > 3 and print " Considering children of this $treelet->[0] node...\n";
    for($i = 2; $i <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	21969	22077	
==>@stack) {
    DEBUG > 3 and print " Considering children of this $treelet->[0] node...\n";
    for($i = 2; $i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774127	774360	
==>S" => [
                              "p",
                              "kic",
                              "i"
                            ],
                  "BODY" => "#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_inte <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	1008	1115	
==>hift->{TYPE};  }
sub value { return shift->{VALUE}; }


#
# compile()
#
# Essentially a no-op for values (ex <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	53522	53676	
==>ucture!
  my @stuff = @_; # copy
  my $x;
  my $out =
    # join ",\n" .
    join ", ",
    map {;
    if(!defined($_)) {
      "undef";
    } elsif(ref($_ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	18854	18945	
==>parser->{_check}{itempos};

		$code .= $item->code($namespace,$rule,$parser->{_check});

		$ <==
2	/Users/nnunley/parrot/config/inter/shlibs.pm	1110	1241	
==>hared)
        if $conf->options->get('ask');
    $conf->data->set(cc_shared => $cc_shared);
    $self->set_result(($cc_shared =~ m/ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	12535	12938	
==>th($head1_text_content) <= $max_content_length) # sanity
            : 1)
        ) {
          DEBUG and print "  It looks titular: \"$head1_text_content\".\n",
            "\n  Using that.\n";
          $title = $head1_text_content;
          last;
        } else {
          --$state;
          DEBUG and print "  Didn't look titular ($head1_text_content).\n",
            "\n  Dropping back to seekin <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8971	9074	
==>shift;
    my $path = shift || return;
    my ($volume, $directories, $name) = File::Spec->splitpath($pa <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9370	9473	
==>shift;
    my $path = shift || return;
    my ($volume, $directories, $name) = File::Spec->splitpath($pa <==
2	/Users/nnunley/parrot/config/init/hints/cygwin.pm	1462	1583	
==>on';
    } elsif ($define !~ /inet_[ap]ton/) {
        $define = join(',', 'inet_aton', $define);
    }
    $conf->options <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	12529	12656	
==>e eq 'if_p_ic') {
            $jit_func = "Parrot_jit_vtable_ifp_op";
            $opbody =~ /vtable->(\w+)/;
            $exter <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	35795	35894	
==>ssing (or extras)
will be considered failures.  If no tests were ever run Test::Builder
will throw a <==
2	/Users/nnunley/parrot/lib/Test/More.pm	33866	33965	
==>ssing (or extras)
will be considered failures.  If no tests were ever run Test::Builder
will throw a <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	1059	1196	
==>line
{
  my $self = shift;
  return defined $self->{LINE} ? $self->{LINE} : '';
}

sub kind { return shift->{KIND}; }
sub type { return sh <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	67444	67579	
==>,
								       $matchrule,
								       $argcode);
	 
				$prod and $prod->additem($item)
				      or  _no_rule("(sub)rule",$line,$ <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4028	4224	
==>def $variable;
            next;
        }
        
        if ($function) {
            if (/Calls (.*) : (.*)/) {                                
                # calling another function within <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945481	945734	
==>set_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946291	946544	
==>set_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	507	709	
==>>

Returns a new section.

=cut

sub new
{
    my $self = shift;
    
    return $self->SUPER::new(
        'Project Information', 
        'info.html', 
        'The conventional, generally all-caps, pr <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	269	411	
==>');

=head1 DESCRIPTION

This C<Parrot::IO::File> subclass adds a few documentation-related
methods to do with POD and file type.

It's used by <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	696	807	
==>e first command-line argument is the last package name component of a
subclass of C<Parrot::OpTrans>. These subc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8361	8590	
==>_cs",
                  "FLAGS" => ":base_loop,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9476	9705	
==>_cs",
                  "FLAGS" => ":base_loop,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	1687	1826	
==>$PATHQUOTE = '"';

    unless ($CC =~ /gcc/i) {
        $LIBPARROT = '/Users/nnunley/parrot/libparrot.a';
    }
}

# PMC2C Config
our $PMC2C <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1683	1800	
==>$PATHQUOTE = '"';

    unless ($CC =~ /gcc/i) {
        $LIBPARROT = '/Users/nnunley/parrot/libparrot.a';
    }
}

# O <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63452	63768	
==>);
					if ($2)
					{
						my $pos = pos $grammar;
						substr($grammar,$pos,0,
						       "<leftop: $name $2 $name> ");

						pos $grammar = $pos;
					}
					else
					{
						$item = new Parse::RecDescent::Repetition($name,$1,1,$MAXREP,
										   $lookahead,$line,
										   $self,
										   $matchr <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4137	4259	
==>~~~~~~~~~~~~~~~

__PACKAGE__->_accessorize(
 'doc_lang',
 'head1_halfpoint_size',
 'head2_halfpoint_size',
 'head3_halfpoin <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27591	27714	
==>> 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 139,
			'functioncall' => 31,
			'function <==
2	/Users/nnunley/parrot/config/init/defaults.pm	4843	4961	
==>,
        mkdir     => '$(PERL) -MExtUtils::Command -e mkpath',
        touch     => '$(PERL) -MExtUtils::Command -e to <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120683	120980	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 150,
                  "ARG <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7441	7552	
==>oto PARSE;
	# Got a bareword.  
	# This should be an assignment
	#if ($syms[NEXT] eq "=") {
	#	# Assignment stat <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	4457	4624	
==>gefloatvalsize => $size
        );
        } else {
        $conf->data->set(
            hugefloatval     => 'double',
            hugefloatvalsize => $conf->data->get <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477106	477201	
==>roDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@1}} / den);\n  {{+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478002	478097	
==>roDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@1}} / den);\n  {{+ <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	724	826	
==>ality will not need it. Althoug this may be a 
# niave understanding of what this stuff is for, so if i <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	21208	21345	
==>push @{$groups{$_}}, @exports;
            }
        }

        # Generate .def file for it.
        # XXX JW Needn't generate these for P <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	51544	51736	
==>r_length =  pop @stack;
      if($ender_length) {
        --$ender_length;
        $x = $code . ("<" x $ender_length) . " $x " . (">" x $ender_length);
      } else {
        $x = $code . "<$x> <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	519	712	
==>be used to limit the symbols:

=over 4

=item C<--code>

=item C<-c>

List the code/text symbols.

=item C<--data>

=item C<-d>

List the data symbols.

=item C<--init>

=item C<-i>

List the in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106235	1106332	
==>};\n    if (typ < 1 || typ >= interpreter->n_vtable_max)\n\treal_exception(interpreter, NULL, E_Va <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107211	1107308	
==>};\n    if (typ < 1 || typ >= interpreter->n_vtable_max)\n\treal_exception(interpreter, NULL, E_Va <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93339	93563	
==>itwise_and(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94119	94343	
==>itwise_and(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	8702	8846	
==>\t\t# $opcode\t$arg $rest" unless $opt{n};
	gen_pir($opcode, $arg, $rest, $cmt);
    }
    print ".end\t\t# $cur_func\n";
}

sub gen_pir {
    my <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	3435	3550	
==>est::Builder based module, but otherwise you probably want C<new>.

B<NOTE>: the implementation is not complete.  C< <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	20268	20366	
==>turn_data = ($ret_type)(*pointer)($params);
    $ret_reg  = return_data;
    REG_INT(0) = $stack_re <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	71555	71684	
==>generating rule: $call")
					and
					_hint("A call was made to a subrule
					       named \"$call\", but no such
					       ru <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	22524	22639	
==>t.
    $msg .= "\n" unless $msg =~ /\n\Z/;

    local $Level = $Level + 1;
    $self->_print_diag($msg);

    return <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4939	5076	
==>new($block, $self->require_ident);
      my $name = $ident->value;

      #
      # Allow there to be Properties:
      #

      my %props <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7933	8070	
==>new($block, $self->require_ident);
      my $name = $ident->value;

      #
      # Allow there to be Properties:
      #

      my %props <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	195	371	
==>selects);
use vars qw( @data $sourceline %common );
use vars qw( %code $debug $runtime_jump);


my @fors=();
my @whiles=();
my @dos=();
@selects=();
my $scopes=0;
my @data=();
s <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	435	570	
==>supply various default values and behaviour common
to all transforms.

The subclass hierarchy is as follows:

    OpTrans
       |______ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6186	6288	
==>_arg_0 # XXX Can't use ${ARG0} :-(
prop_type_state[${ITEMP0}] = ${STYPES}
prop_stack_depth[${ITEMP0}] = <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4124	4226	
==>_arg_0 # XXX Can't use ${ARG0} :-(
prop_type_state[${ITEMP0}] = ${STYPES}
prop_stack_depth[${ITEMP0}] = <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10329	10424	
==>pc, bc_length, cur_ic, pop_count, label_num, sp_dest
    .local int i, j, type, try_offset, try_ <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2641	2775	
==>nking  => 1,
            parrot_is_shared     => 1,

            sym_export => '__declspec(dllexport)',
            sym_import => '__de <==
2	/Users/nnunley/parrot/config/init/hints/cygwin.pm	1171	1290	
==>nking => 1,
        parrot_is_shared    => 1,
        sym_export => '__declspec(dllexport)',
        sym_import => '__de <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2363	2471	
==>s_end

This is a shortcut for C<< $token->type() eq "end" >>

=item $token->dump

This returns a handy string <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13945	14051	
==>mpty continue block and then pop it back off. It will be in the
      # parent block's content array, and i <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	570	705	
==>my $self = shift;
        
    return $self->SUPER::new(
        'Language Implementations', 'languages.html', '',
        $self->new_it <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7042	7160	
==>EMP0}
${INS} = concat " = pop s\n"

# Next parameter.
goto pre_call_PLOOP_${CURIC}

# Finished.
goto PRE_CALL_END_${CUR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194904	195207	
==>ATIVE",
                  "NAME" => "lt_str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	26174	26305	
==>ed by
 # a C<BEGIN>...C<END> pair. Don't allow nested C<BEGIN> tags

	($extracted, $remainder) =
		extract_tagged($text,"BEGIN","END <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786116	786206	
==>ine 417 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed_int(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787027	787117	
==>ine 417 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed_int(interpret <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	29334	29437	
==>args}) {
		foreach(@{$code{$t}->{args}}) {
			push @{$code{$t}->{code}}, "\t.return $_\t# Returning arg\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017955	1018056	
==>t time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_gmtime_r(&t, &tm);\n  Parrot_asctim <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018880	1018981	
==>t time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_gmtime_r(&t, &tm);\n  Parrot_asctim <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	23601	23701	
==>whoami = CONST_STRING(interp, "$classname");
        vt_clone->isa_str = CONST_STRING(interp, "$isa") <==
2	/Users/nnunley/parrot/config/auto/socklen_t.pm	532	665	
==>my $verbose = $conf->options->get('verbose');

    my $d_socklen_t = $Config{d_socklen_t};
    my $has_socklen_t = ( $d_socklen_t && $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7135	7257	
==>mval);
            ($lhs,$len,$code)=@{$$rules[-$act]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print STDERR <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6804	6921	
==>mval);
            ($lhs,$len,$code)=@{$$rules[-$act]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print STDERR <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	11338	11456	
==>extref;
		pos $$textref = $startpos;
		return;
	    }
	    my $deref = $1;

	    unless ($$textref =~ m/\G\s*(?:::|')?( <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	10009	10341	
==>t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_P($reg_num);";
        return "PMC_data(t_$temp_num)";
    };
    /i/ && do {
        push @{$temps_ref}, "int t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = (int)GET_NCI_I($reg_num);";
        return "t_$temp_num" <==
2	/Users/nnunley/parrot/config/gen/icu.pm	475	573	
==>escription = "Determining whether ICU is installed";

@args = qw(verbose icushared icuheaders icu-c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477118	477366	
==>ror,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478014	478262	
==>ror,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/examples/benchmarks/freeze.pl	422	592	
==>qw( freeze thaw dclone );
use Time::HiRes qw( time );

my @a;
my $s = time();
for my $i (0..99999) {
    push @a, $i;
};
my $e = time();
printf "constr.time %.6f\n", $e-$s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830686	830876	
==>tx)->user_stack, &i, STACK_ENTRY_INT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831427	831617	
==>tx)->user_stack, &i, STACK_ENTRY_INT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407690	408011	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "connect",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408588	408909	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "connect",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	3844	3970	
==>>.

=back

B<Macro Substitutions>

The following methods are called by C<Parrot::OpFile> to perform ops
file macro substitution <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	18188	18290	
==>ng tokens
from yet:

=over

=item my $title_string = $parser->get_title

This tries to get the title st <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	7487	7618	
==>determinate # of tests) or an integer (the number of expected tests).

=cut

sub has_plan {
    my $self = shift;

    return($self- <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	1778	2124	
==>t\n";
}

=back

=head2 Instance Methods

=over 4

=item C<c_source_file_directories()>

Returns the directories which contain C source files.

This is not really a complete list, for example F<icu> is ignored.

=cut

sub c_source_file_directories
{
    my $self = shift;
    
    return
        $self->directory_with_name('compilers')->directory_w <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11006	11119	
==>k), ' => ', $v, "\n";
  }
}

#--------------------------------------------------------------------------
1;
__END_ <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	182	278	
==>ilar to the generated subs in Parrot::Test.
Perhaps someone can do a better job of delegation her <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	280	376	
==>ilar to the generated subs in Parrot::Test.
Perhaps someone can do a better job of delegation her <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	4375	4612	
==>( $text =~ /^Parrot::/o )
    {
        # TODO - C<Perl::Module> should really be L<Perl::Module>
        # but this will do until the docs are changed.
        
        my $href = $self->href_for_perl_module($text);
        
        esc( <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	35302	35569	
==>);

would return the same result, since all sets of both types of specified
delimiter brackets are correctly nested and balanced.

However, the call in:

	@result = extract_bracketed( $text, '{([<' );

would fail, returning:

	( undef , "{ an '[irregularly :-(] {} par <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2393	2659	
==>= Jako::Symbol->new(
    $self->block,
    ($self->is_global ? 'global' : 'local'),
    $self->kind,
    $self->type,
    $self->name,
    undef,            # No value
    undef,            # No properties
    undef,            # No args
    $self->file,
    $self->l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651715	652068	
==>n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_repr",
                  "FLAGS" => "",
                  "ARGDI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650793	651089	
==>n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "valid_type" <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6688	6829	
==>--$$errstatus;

#DBG>					$debug & 0x10
#DBG>				and	$dbgerror
#DBG>				and	$$errstatus == 0
#DBG>				and	do {
#DBG>					print STDERR "* <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6377	6512	
==>--$$errstatus;

#DBG>					$debug & 0x10
#DBG>				and	$dbgerror
#DBG>				and	$$errstatus == 0
#DBG>				and	do {
#DBG>					print STDERR "* <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627503	627756	
==>interpreter, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628647	628900	
==>interpreter, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820267	820505	
==>on",
                  "CODE" => 929,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 79 \"src/ops/stack.ops\"\n  Stack_E <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	1173	1300	
==>an/
END_HEADER
my $now = localtime();
$header =~ s/NOW/$now/;

print join( "\n", $header, @{$skip}, '' );

=head1 AUTHOR

Bernha <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12630	12849	
==>lobal->[0];
                foreach my $key2 ( @{$var} ) {
                    my $result2 = new_tmp( $parser, 'pmc' );
                    push @opcodes, new LocalDir( $parser,
                        'result' => $r <==
2	/Users/nnunley/parrot/config/init/defaults.pm	154	256	
==>/defaults.pm - Configuration Defaults

=head1 DESCRIPTION

Sets up the configuration system's default v <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	2246	2359	
==>}
sub is_eof           { return shift->is('eof');           }
sub is_exfix_arith   { return shift->is('exfix-arith <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	896	1061	
==>}


  print $fh ">\n";
  $_[0]{'indent'}++;
  return;
}

sub _handle_text {
  DEBUG and print "== \"$_[1]\"\n";
  if(length $_[1]) {
    my $indent = '  ' x $_[0]{'in <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	2050	2253	
==>ess $usage;
        die "invalid usage: '$usage'\n"
            unless $usage =~ s/^$type//;
        
        my $arg = {};
            
        $arg->{optional}    = !!$1;
        $arg->{option}      = ! <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24190	24334	
==>ess( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "yield",
                  "FLAGS" => "", <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8342	8489	
==>d	print STDERR "Back to state $$stack[-1][0], then ";

                $$check eq 'ERROR'
            or  do {
#DBG>				$debug & 0x04
#DBG>			a <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7962	8104	
==>d	print STDERR "Back to state $$stack[-1][0], then ";

                $$check eq 'ERROR'
            or  do {
#DBG>				$debug & 0x04
#DBG>			a <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	4452	4561	
==>DATA";
static /*const*/ char static_string_${line}_data\[\] = $text;
static /*const*/ struct parrot_string_t s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437986	438531	
==>re",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 502,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 99 \"src/ops/mat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14676	14882	
==>n  opcode_t * const loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	15363	15569	
==>n  opcode_t * const loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9167	9292	
==>ach my $new_code (@_) {
    next unless defined $new_code and length $new_code;
    if(ASCII) {
      # A good-enough check th <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10431	10556	
==>ach my $new_code (@_) {
    next unless defined $new_code and length $new_code;
    if(ASCII) {
      # A good-enough check th <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	2299	2390	
==>_hash(void)
{
    Parrot_set_config_hash_internal(parrot_config, sizeof(parrot_config));
}
E <==
2	/Users/nnunley/parrot/lib/Test/More.pm	31004	31113	
==>e contact the author immediately!
WHOA
    }
}


=item B<eq_hash>

  my $is_eq = eq_hash(\%this, \%that);

Det <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	583	673	
==>onfess("Identifier (" . ref($ident) . ") is not!") unless UNIVERSAL::isa($ident, 'Jako::Con <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	583	673	
==>onfess("Identifier (" . ref($ident) . ") is not!") unless UNIVERSAL::isa($ident, 'Jako::Con <==
2	/Users/nnunley/parrot/languages/regex/test.pl	2743	2888	
==>) {
        $output = '', last if /^OUTPUT:/;
        $input .= $_;
    }
    chomp($input);
    die "EOF during INPUT section" if ! defined($outp <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13193	13309	
==>second
end type
dim x as third
dim y as third
dim k as second
x.fwd.link.foo=34
y.fwd=x.fwd
x.fwd.link.foo=99
print y <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	81	377	
==>rmatter;

use strict;
use warnings;

sub new {
    my $class = shift;
    my $code  = shift;

    my $self = {};

    $self->{indent} = q{ } x 4;
    my $pir = [];
    if ( defined($code) ) {
        $pir = [ split "\n", $code ];
    }
    $self->{raw_pir} = $pir;

    bless $self, $class;
    re <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39633	39832	
==>t,
    );
    return [ $result, \@opcodes1 ];
}

sub BuildMain {
    my ( $parser, $stat ) = @_;
    if ( scalar @{$stat} ) {
        my @opcodes = ();
        my $main = new defn( '_main', ' <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	15756	15923	
==>t accessor method for 'count'
    sub count {
        my $self = shift;
        if ( @_ ) {
            die 'count must be nonnegative' if $_[0] < 0;
            $self- <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7974	8219	
==>le ( @lines )
	{
		my $line = shift @lines;
		
		if ( $line =~ /^=head1\s+ABSTRACT/o )
		{
			while ( @lines )
			{
				$line = shift @lines;
		
				last if $line =~ /\S/o;
			}
		
			my @abstract = $line;
			
			while ( @lines )
			{
				$line = <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	14160	14275	
==>rlen      string.h
strncat     string.h
strncmp     string.h
strncpy     string.h
strpbrk     string.h
strrchr     s <==
2	/Users/nnunley/parrot/Configure.pl	2744	2858	
==>to=0>

Don't build cgoto core. This is recommended when you are short of memory.

=item C<--jitcapable>

Use JIT sy <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	4335	4462	
==>>sax($handler);

  $handler->start_element({ Name => 'call', Attributes => { name => $self->name->value } });
  $_->sax($handler <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2708	2808	
==>e
PRINT "1 in module-level code"
GOSUB Sub1
PRINT "ERR this line in main routine should be skipped"
L <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16675	16775	
==>e
PRINT "1 in module-level code"
GOSUB Sub1
PRINT "ERR this line in main routine should be skipped"
L <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	13164	13282	
==>t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_P($reg_num);";
        return "t <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	4840	4989	
==>s the C code, passing the test if a string comparison of
output with the unexpected result is false.

=item C<example_output_is( $example_f, $expected <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2017	2209	
==>print "Wrong" else print "Ok"
if 6<5 then print "Wrong" else print "OK"
if 4<=5 then print "Ok" else print "Wrong"
if 5<=5 then print "Ok" else print "Wrong"
if 6<=5 then print "Wrong" else pri <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	4668	4941	
==>heck the first line of a function,
# and assume that more likely than not indenting is consistent within a func
# body.
sub check_code_indents {
    my ($file, $source) = @_;

    my $f = undef;
    my $line = 0;
    foreach (@$source) {
        $line++;
        next unless <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	888	1046	
==>f the document.

=cut

sub do_beginning 
{
    my $self = shift;

    # We have to do this because it has the side effect of setting
    # content_seen.
    $s <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	4825	4949	
==>if ($v eq 'T') {
	    $Code{$s} = $o;
	} elsif ($v =~ /[BDR]/) {
	    if ($v eq 'B') {
		$DataB{$s} = $o;
	    } elsif ($v eq <==
2	/Users/nnunley/parrot/tools/util/pirtidy.pl	306	415	
==>e
foreach my $file (@ARGV) {
    warn "Processing $file...\n" if $verbose;
    open my $ifh, '<', $file;
    m <==
2	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	481	697	
==>ple usage.

=cut

use strict;

my $Verbose = 0;
if ($ARGV[0] eq '-v') {
    shift;
    $Verbose = 1;
}

my ($command, $input, @outputs) = @ARGV;
my $checksum;
{
    local $/;
    open(INPUT, $input) or die "open $inpu <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	6436	6537	
==>CE "\n{\n";
    print SOURCE $trans->run_core_func_start;
}

#
# Iterate over the ops, appending HEADE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	624245	624485	
==>"JUMP" => "PARROT_JUMP_ADDRESS",
                  "NAME" => "pic_callr__",
                  "FLAGS" => ":pic",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	1764	1914	
==>void *",
       B => "void **",
       L => "long *",
       T => "char **",
     );

my %other_decl =
     ( p => "PMC *final_destination = pmc_new(in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947115	947213	
==>f (n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\"charset '%Ss' not found\", {{\@2}});\n  {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948017	948115	
==>f (n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\"charset '%Ss' not found\", {{\@2}});\n  {{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	45860	46001	
==>way, that most Pod renderers just don't render it
       # at all.  But if you do want to implement hyphenation, I guess
       # that you'd b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065184	1065305	
==>c_keyed_str(interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066058	1066179	
==>c_keyed_str(interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22358	22499	
==>3,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 124,
			'functioncall' => 31,
			'function' => 26,
			'tableco <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6467	6633	
==>defined($act)
        and do {

                $act > 0
            and do {        #shift

#DBG>				$debug & 0x04
#DBG>			and	print STDERR "Shift and go to st <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6167	6326	
==>defined($act)
        and do {

                $act > 0
            and do {        #shift

#DBG>				$debug & 0x04
#DBG>			and	print STDERR "Shift and go to st <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	6676	6819	
==>termios' => 'define',
             'i_time' => undef,
             'i_unistd' => 'define',
             'i_ustat' => undef,
             'i_utim <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27252	27351	
==>_translate_code, $mv, "pre-translate for $rule->{'name'}");

		# If we have PIR for the instruction, <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34391	34490	
==>_translate_code, $mv, "pre-translate for $rule->{'name'}");

		# If we have PIR for the instruction, <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	19248	19350	
==>nknown instruction (code "
	str_ic = cur_ic
	err = concat str_ic
	err = concat ")"
    ex["_message"] = <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	25517	25664	
==>C;
	.local NCI meth\:\:$attr
	meth\:\:$attr = $func # avoid savetop
	P2 = $1
	${ret_string}meth\:\:$attr($args)  $cmt
EOC
	}
    }
    else {
	my $r <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	5851	5960	
==>n", $self->size) if $self->type eq 'auto';

    return $body;
}

# Called from rewrite_body() to perform the a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031432	1031531	
==>rc/ops/sys.ops\"\n    if ({{\@2}} < enum_first_type || {{\@2}} >= enum_last_type)\n        {{\@1}} = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032301	1032400	
==>rc/ops/sys.ops\"\n    if ({{\@2}} < enum_first_type || {{\@2}} >= enum_last_type)\n        {{\@1}} = <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7938	8210	
==>R, ">&STDERR" or die "Can't save     stderr" if $err;

    open STDOUT, ">$out" or die "Can't redirect stdout" if $out;
    open STDERR, ">$err" or die "Can't redirect stderr" if $err;

    system $command;
    my $exit_code = $? >> 8;

    close STDOUT or die "Can't close <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	7889	8004	
==>R, ">&STDERR" or die "Can't save     stderr" if $err;

    open  STDOUT, ">$out"    or die "Can't redirect stdout to <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2981	3103	
==>$self->{'output_fh'}} $out,
    #"\n"
  ;
  $self->{'Thispara'} = '';
  
  return;
}

# . . . . . . . . . . And then off by <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2515	2629	
==>$self->{'output_fh'}} $out, "\n";
  $self->{'Thispara'} = '';
  
  return;
}

# . . . . . . . . . . And then off by <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	372365	372477	
==>ine 387 \"src/ops/io.ops\"\n  STRING ** const s = &{{\@1}};\n\n  *s = NULL;\n  PIO_peek(interpreter, PIO_STDIN(in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505301	505721	
==>ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 581,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	4746	5017	
==>hift;
        my ($op) = @_;
        my $FH   = $self->{fh};

        #    print {$FH} "  noop\n";
    }

    sub visitToBoolOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  $op->{result}->{symbol} = $ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	21184	21312	
==>now \$how_many tests are in the block"
          unless $Test->has_plan eq 'no_plan';
        $how_many = 1;
    }

    for( 1..$ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	23614	23742	
==>now \$how_many tests are in the block"
          unless $Test->has_plan eq 'no_plan';
        $how_many = 1;
    }

    for( 1..$ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	19006	19158	
==>gs}{singleton}) {
        $vtbl_flag .= '|VTABLE_PMC_IS_SINGLETON';
    }
    if (exists $self->{flags}{is_shared}) {
        $vtbl_flag .= '|VTABLE_IS_S <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2123	2245	
==>b   end_over_block   { --$_[0]{'Indent'} }


# . . . . . Now the actual formatters:

sub end_head1       { $_[0]->emit_par( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1691	1813	
==>b   end_over_block   { --$_[0]{'Indent'} }


# . . . . . Now the actual formatters:

sub end_head1       { $_[0]->emit_par( <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	9678	9794	
==>op2
    .return ($N1)
neg_one:
    $N1 = asin op2
    .return ($N1)
neg_two:
    $N1 = acos op2
    .return ($N1)
neg <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	35135	35234	
==>t of the array would be returned. In
a void context, C<$text> would be replaced by an empty string.) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	337485	337823	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getstdin",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	87	178	
==>.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::POD2HTML - POD <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	4072	4301	
==>'define',
             'i_dld' => undef,
             'i_dlfcn' => 'define',
             'i_fcntl' => 'define',
             'i_float' => 'define',
             'i_fp' => undef,
             'i_fp_class' => undef,
             'i <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10740	10911	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub linearize_tokens {  # self, tokens
  my $self = shift;
  my $out = '';
  
  my $t;
  while($t = shift @_) {
    if(!ref $t or !UNIVER <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	10771	10954	
==>ranscode::->make_transcoder($e);
    eval {
      my @x = ('', "abc", "123");
      $self->{'_transcoder'}->(@x);
    };
    $@ && die( $enc_error =
      "Really unexpected error sett <==
2	/Users/nnunley/parrot/Configure.pl	4128	4353	
==>>,
F<lib/Parrot/Configure/Step.pm>, F<docs/configuration.pod>

=cut

use strict;
use warnings;
use lib 'lib';
use 5.006;

use English qw( -no_match_vars );
use Parrot::BuildUtil;
use Parrot::Configure;

# These globals are acc <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11287	11434	
==>nd $t->tag eq 'X') { --$x_open }
      }
    }
  }
  
  $out =~ tr/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
  return undef if length $out > $Lineari <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	10035	10181	
==>herition from Parrot::Test
#

sub _generate_functions {
    my $package = 'Parrot::Test';

    my $path_to_parrot = path_to_parrot();
    my $parro <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5146	5255	
==>oken) = sub {
#DBG>		my($tok)='>';
#DBG>		for (split('',$$token)) {
#DBG>			$tok.=		(ord($_) < 32 or ord($_ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4898	5004	
==>oken) = sub {
#DBG>		my($tok)='>';
#DBG>		for (split('',$$token)) {
#DBG>			$tok.=		(ord($_) < 32 or ord($_ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	14571	14672	
==>r not ok).  They are synonyms for
ok(1) and ok(0).

Use these very, very, very sparingly.

=cut

sub p <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9560	9682	
==>ynpmc}) {
	    my $name = lc $self->{class};
	    $cout .= <<"EOC";
#include "$name.str"
EOC
    }
    "$cout\n";
}


=item <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8491	8615	
==>print <rx_tmp>", 'print "\n"';
    }

    # FIXME: Still have extra copy in many cases
    push @ops, "eq <rx_tmp>, -1, ".$se <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	129	257	
==>use Carp ();

BEGIN { *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG }

sub new {
  my $self = shift;
  my $new = $self->SUP <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	128	256	
==>use Carp ();

BEGIN { *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG }

sub new {
  my $self = shift;
  my $new = $self->SUP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141572	141817	
==>=> [
                              "nc",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 77 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}} <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	1572	1788	
==>extension code is safe, no problem.

   The problem comes in if these routines are called from *outside*
   an interpreter. This happens when an embedding application calls
   them to do stuff with PMCs, STRINGS, inte <==
2	/Users/nnunley/parrot/config/auto/headers.pm	2337	2470	
==>');

            $conf->data->set(testheaders => undef);
            $conf->data->set(testheader  => undef);

            eval { cc_bu <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	22756	22872	
==>gex/Grammar.y"
{ return $_[1]; }
	],
	[#Rule 43
		 'classpiece', 3,
sub
#line 179 "lib/Regex/Grammar.y"
{ return [ $_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	738	835	
==>^- \:\:\.\,\'\>\<\"\/\=\?\+\|\[\]\{\}\_a-zA-Z0-9_\`\~\!\#\%\^\&\*\(\)])/
      sprintf( (ord($1) < <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14501	14691	
==>ader\pard\qr\plain\f2\fs%s
%s
p.\chpgn\par}
\fs%s

END
    ($self->doc_lang) x 2,
    $self->header_halfpoint_size,
    $title,
    $self->normal_halfpoint_size,
  ;
}

#~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3153	3262	
==>ame.
        $conf->data->set(link => $conf->data->get('ld'));

        # We can't use -opt: and -debug togeth <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4657	4766	
==>ame.
        $conf->data->set(link => $conf->data->get('ld'));

        # We can't use -opt: and -debug togeth <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4342	4450	
==>>name } });
        $handler->characters({ Data => $string });
        $handler->end_element({ Name => 'liter <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4692	4796	
==>>name } });
      $handler->characters({ Data => $string });
      $handler->end_element({ Name => 'liter <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13368	13494	
==>f($items[0]) =~ /\AParse::RecDescent::UncondReject/
		|| ($items[0]->describe||"") =~ /<autoscore/
		))
	{
		Parse::RecDescent: <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	48	154	
==>($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

$VERSION   = '0.01';
@ISA       = qw(Exporter);
@EXPORT_O <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	51	157	
==>($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

$VERSION   = '0.01';
@ISA       = qw(Exporter);
@EXPORT_O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14365	14688	
==>"ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 19,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 247 \"src/ops/core.ops\"\n  opcode_t * <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83753	83849	
==>ls, IGLOBALS_COMPREG_HASH);\n  VTABLE_set_pmc_keyed_str(interpreter, compreg_hash, {{\@1}}, {{\@2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84659	84755	
==>ls, IGLOBALS_COMPREG_HASH);\n  VTABLE_set_pmc_keyed_str(interpreter, compreg_hash, {{\@1}}, {{\@2 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	18334	18440	
==>////////////////////////////////

      my $content = join ' ', splice @$para, 2;
      $content =~ s/^\s+/ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21304	21410	
==>////////////////////////////////

      my $content = join ' ', splice @$para, 2;
      $content =~ s/^\s+/ <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	16522	16656	
==>tor, $vector
  loop:    
    unless iter1 goto loop_done
    \$P1 = shift iter1
    \$S1 = typeof \$P1
    if \$S1 != 'String' goto got <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	2437	2614	
==>uildscripts {
    my @compiled_files;
    foreach my $obj (@ARGV) {
	my $src = $obj;
	$src =~ s/\.o/\.c/g;
	push @compiled_files, [ $src, $obj ];
    }

    print "** $0: writing <==
2	/Users/nnunley/parrot/lib/Test/More.pm	28317	28441	
==>1, $a2) = @_;

    if( grep !_type($_) eq 'ARRAY', $a1, $a2 ) {
        warn "eq_array passed a non-array ref";
        retur <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	1670	1842	
==>*> methods
below. This makes it easier to where the custom bits of Parrot-specific
formatting have to be inserted.

=cut

sub do_middle 
{
    my $self = shift;
    my $toke <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	1981	2124	
==>size 2, conversion ops might fail!

END
    }
    if ($results{shortsize} == 4) {
        $conf->data->set(int4_t => 'short');
    } elsif ($res <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1098861	1099112	
==>=> [
                              "n",
                              "n",
                              "i"
                            ],
                  "BODY" => "#line 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL re <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	11951	12118	
==>READYDONE';
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

sub _handle_encoding_second_level {
  # By time this is called, the encoding <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	3819	4038	
==>-compare",
            2.95 => "",

            # 2.95 does align functions per default -malign-functions=4
            #      where the argument is used as a power of 2
            # 3.x  does not align functions per de <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2593	2719	
==>rties
    undef,            # No args
    $self->file,
    $self->line
  );

  $block->set_symbol($self->name, $sym);

  $block <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2871	2996	
==>rties
    undef,           # No args
    $self->file,
    $self->line
  );

  $block->set_symbol($self->name, $sym);

  $block <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	2054	2173	
==>my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  #
  # Locate <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	26	121	
==>c/lib/Parrot/Test/Bc/Antlr2.pm 16454 2006-02-01T20:44:27.448243Z bernhard  $

package Parrot::Te <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	6111	6226	
==>r code!

=item L<Test::Harness>

Interprets the output of your test program.

=back


=head1 AUTHORS

Idea by Tony B <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	31792	31889	
==>t found, the first
element of the array is the empty string, the second is the complete
original t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85574	85662	
==>LS_COMPREG_HASH);\n  {{\@1}} = VTABLE_get_pmc_keyed_str(interpreter, compreg_hash, {{\@2} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86481	86569	
==>LS_COMPREG_HASH);\n  {{\@1}} = VTABLE_get_pmc_keyed_str(interpreter, compreg_hash, {{\@2} <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10383	10484	
==>3} = ${STYPES}[${ITEMP2}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP3}["reg_type_short"]
${STEMP0} = concat $ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7767	7868	
==>3} = ${STYPES}[${ITEMP2}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP3}["reg_type_short"]
${STEMP0} = concat $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17098	17202	
==>t @$paras;
    $para_type = $para->[0];

    DEBUG > 1 and print "Pondering a $para_type paragraph, given <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	3977	4069	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub version_report {
  my $class = ref( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	1182	1524	
==>::Number->new($token)  if $type eq 'num';
  return Jako::Construct::Type::PMC->new($token)  if $type eq 'pmc';
  return Jako::Construct::Type::String->new($token)  if $type eq 'str';

  confess "Unable to create object for type '$type'!";
}

sub token
{
  return shift->{TOKEN};
}

sub code
{
  return shift->{CODE};
}

sub name
{
  return shi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798639	798886	
==>GS" => [
                              "p",
                              "k",
                              "nc"
                            ],
                  "BODY" => "#line 462 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed(inter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	410758	411084	
==>nction",
                  "CODE" => 474,
                  "ARGS" => [
                              "i",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 552 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_send(interpreter, {{\@2}}, {{\@3}}) <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	5832	5965	
==>..

    STDOUT    filehandle to redirect STDOUT to
    STDERR    filehandle to redirect STDERR to
    CD        directory to run the c <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2209	2331	
==>ub end_head1       { $_[0]->emit_par(-4) }
sub end_head2       { $_[0]->emit_par(-3) }
sub end_head3       { $_[0]->emit_pa <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1777	1899	
==>ub end_head1       { $_[0]->emit_par(-4) }
sub end_head2       { $_[0]->emit_par(-3) }
sub end_head3       { $_[0]->emit_pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714557	714663	
==>{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (s && string_length(interpreter, s)) {\n    if ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715480	715586	
==>{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (s && string_length(interpreter, s)) {\n    if ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320029	320303	
==>rot_Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320799	321073	
==>rot_Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	6290	6400	
==>ll data to encrypt into memory. This is a todo.

=back

=head1 SEE ALSO

L<Digest::MD5>

L<md5sum(1)>

RFC 1321 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	3020	3177	
==>e a timeline of changes made to the project.', 'ChangeLog'),
            $self->new_item('Documents incompatible changes to Parrot that invalidate existing by <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63179	63296	
==>DY" => "#line 964 \"src/ops/core.ops\"\n  PARROT_ERRORS_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63825	63942	
==>DY" => "#line 964 \"src/ops/core.ops\"\n  PARROT_ERRORS_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710272	710610	
==>_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 797,
                  "ARGS" => [
                              "i"
                            ],
                  "B <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2698	2799	
==>in sequence
PRINT "1 in module-level code"
GOSUB Sub1
PRINT "ERR this line in main routine should be s <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16665	16766	
==>in sequence
PRINT "1 in module-level code"
GOSUB Sub1
PRINT "ERR this line in main routine should be s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560607	560722	
==>\n  object = {{\@1}};\n  method_pmc = {{\@2}};\n  interpreter->current_cont = CONTEXT(interpreter->ctx)->current_con <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135397	135533	
==>s"
                            ],
                  "BODY" => "#line 326 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_xor(interpreter, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136291	136427	
==>s"
                            ],
                  "BODY" => "#line 326 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_xor(interpreter, <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	6166	6480	
==>e && $Type ne '' && !exists $Type{$Type};

my $TypeLong = defined $Type && $Type eq 'long';

for my $f (@ARGV) {
    unless (-f $f) {
	warn "$ME: No such file: $f\n";
	next;
    }
    if (open(NM, "$nm_cmd $nm_opt $f |")) {
	my $o = "?";
	$o = $f if $f =~ /\.o$/;
	my $file;
	while(<NM>) {
	    chomp;
	    if (m/^( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	97655	97952	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnot",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	99054	99351	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnot",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
2	/Users/nnunley/parrot/languages/converter.pl	580	740	
==>argrammar = <<'_EOF_';

rule		: /\w+/ '::=' production
#		{[@item[1,3]]} 
		{ "$item[1] : $item[3]" }

production	: terminal production
#		{[@item]}
		{ "$item[1 <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	3638	3788	
==>verbose, $verbose_step, $ask) =
        $self->options->get(qw(verbose verbose-step ask));

    my $n = 0; # step number
    foreach my $task ($self->s <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8090	8319	
==>? $got !! "undef"));
    }
}


sub test_ends {
    return unless $Test::testing_started;
    if (!defined($Test::num_of_tests_planned)) {
        say("1..$Test::num_of_tests_run");
    }
    elsif ($Test::num_of_tests_planned != $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	848	952	
==>all rights reserved.
# (see the pod text in Parse::Yapp module for use and distribution rights)
#

pa <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	824	924	
==>all rights reserved.
# (see the pod text in Parse::Yapp module for use and distribution rights)
#

pa <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10620	10763	
==>non-ASCII charsets.  Something should be done about that.
  }
  return @_;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	1918	2242	
==>piler, -fPIC for
    # gcc.  We don't know which compiler we're using till after the
    # gccversion test.
    # XXX Should this go into the shlibs.pl Configure.pl unit instead?
    my $solaris_cc_shared_cb = sub {
        my ($key, $gccversion) = @_;

        if ($gccversion) {
            $conf->data->set(cc_shared => '- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	144	330	
==>Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako: <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38285	38404	
==>E?'':'
		Parse::RecDescent::_trace(q{>>Matched repeated subrule: ['
					. $self->{subrule} . ']<< (}
					. @$_tok . q{ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1941	2023	
==>ako::Construct::Expression::Value::Identifier->compile2($compiler, $self->block, $s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	2324	2405	
==>ako::Construct::Expression::Value::Identifier->compile2($compiler, $self->block, $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2769	2891	
==>opcode = cur_op;
    char * _reg_base;
#endif

    static void *const l_ops_addr[] = {
END_C
}

=back

=head1 SEE ALSO

=ov <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	5381	5660	
==>. @program ) {
        for my $row ( @rows ) {
            Longest( $max[$_] , length $row->[$_] );
        }
    }
    for my $col ( @rows ) {
        print map { sprintf("%-$max[$_]s  ", $col->[$_]) } 0 .. $#$col; 
        print "\n";
    }
    exit;
}

# Run The Benchmarks Wit <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15848	15977	
==>ush @opcodes, new CallOp( $parser,
        'result' => [$result],
        'arg1'   => $fct,
        'arg2'   => [$argv],
    ) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79282	79391	
==>nown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      /* At this poin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80803	80912	
==>nown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      /* At this poin <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18633	18749	
==>te($node->{children}[$_]);
    if (substr ($temp_0, 0, 1) ne substr ($temp_1, 0, 1)) {
      my $temp_2 = $self->_sav <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048416	1048670	
==>t);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049340	1049594	
==>t);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2797	2906	
==>e skipped"
Label1:
   PRINT "5 back in module-level code"
   END
Sub1:
   PRINT "2 in subroutine one"
   GOSUB <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16764	16873	
==>e skipped"
Label1:
   PRINT "5 back in module-level code"
   END
Sub1:
   PRINT "2 in subroutine one"
   GOSUB <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2177	2304	
==>er_test( '.m4', $count );
        my $lang_out_fn = $self->get_out_fn( $count );
        my @test_prog   = $self->get_test_prog( <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	9065	9252	
==>fault";
}

# Rate limiting
sub limit_rate {
  # Open the DB and lock it exclusively. See perldoc -q lock.
  sysopen my $fh, BUCKET, O_RDWR|O_CREAT
    or die "Couldn't open \"@{[ BUCKET ]} <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	427	575	
==>imes in the same process
$Test::testing_started = 1;

### FUNCTIONS

## plan

sub plan (Int $number_of_tests) returns Void is export {
    $Test::tes <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	7670	7789	
==>y $op = shift;
    my ($min, $max, $greedy, $R) = @{ $op->{args} };
    my $sublen = $R->maxlen();
    if (defined($max) <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3210	3339	
==>d'));

        # We can't use -opt: and -debug together.
        if ($conf->data->get('ld_debug') =~ /-debug/) {
            my $l <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4714	4843	
==>d'));

        # We can't use -opt: and -debug together.
        if ($conf->data->get('ld_debug') =~ /-debug/) {
            my $l <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10653	10761	
==>/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
        $section = $self->unicode_escape_url($section);
        # T <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4034	4135	
==>/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
    $section = $self->unicode_escape_url($section);
     # T <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	2183	2278	
==>rn) = @_;

    generate_regular_pir('test_regex.pir', $pattern);
    generate_pbc('test_regex.pi <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	1247	1569	
==>ype_map = (
    bool  => 'Py_bool',
    complex  => 'Py_complex',
    float => 'Py_float',
    int   => 'Py_int',
    long  => 'Py_long',
    str   => 'Py_str',

    dict  => 'Py_dict',
    list  => 'Py_list',
    tuple => 'Py_tuple',

    iter  => 'Py_iter',
    xrange => 'Py_xrange',

    object => 'Py_object',
    type <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	3539	3721	
==>doc_value = "";
            $heredoc_terminator = $2;
        }

        # Or is it a value within a rule and not a herdoc?
        elsif (!$in_heredoc && $rule && /^\s*(\w+)\s*=\s*(. <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	764	877	
==>ed with
the object file it was found in.

Good things are listed with C<+++> (at the moment the only good thing
is <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	5742	5978	
==>calls another method defined in the same file).

=item C<DYNSELF.method(a,b,c)>

Calls the vtable method 'method' using the dynamic type of C<SELF>.

=item C<DYNSELF(a,b,c)>

Same as above, but calls the current method.

=item C<OtherCla <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814976	815230	
==>,
                  "CODE" => 920,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 567 \"src/ops/set.ops\"\n  {{\@1}} = PMCNULL;\n  {{+=2}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15612	15781	
==>assignto, $type, @left)=generate_code($opts{lhs},@stream);	# Generate PASM code stream
		feedme();  # Eat the =
		$whole.=" = ";

		$opts{lhs}=0;
		@expr=get_expression(% <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	5178	5309	
==>writes the warnings remove it from $warns
        if ($ccwarn) {
            my @warns = split ' ', $warns;
            foreach my $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685830	686074	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686719	686963	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584650	584743	
==>interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, NULL);\n  {{=ne <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585725	585818	
==>interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, NULL);\n  {{=ne <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	43763	43889	
==>re equivalent to the rather ungainly:
	return _generate($_[0], $_[1], 1, @_[2..$#_]);
}

sub Extend ($$)
{
	splice(@_, 2, 0, 0) <==
2	/Users/nnunley/parrot/config/inter/progs.pm	394	494	
==>e inter::progs;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::B <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296883	297061	
==>,
                              "i"
                            ],
                  "BODY" => "#line 970 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 0 : 1;\n  {{+=4}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297739	297917	
==>,
                              "i"
                            ],
                  "BODY" => "#line 970 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 0 : 1;\n  {{+=4}} <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	19642	19781	
==>=' => 'ne',
	'>' => 'gt',
	'>=' => 'ge',
	'<' => 'lt',
	'<=' => 'le',
	'is' => 'eq_addr',
	'is not' => 'ne_addr',
    );
    my $op = $rev_m <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4532	4653	
==>rv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note that for loading debuggin <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4307	4419	
==>rv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note that for loading debuggin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503523	503921	
==>"mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 579,
                  "ARGS" => [
                              "i",
                              "i" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2847	2968	
==>EE ALSO

L<Pod::Simple::XMLOutStream> is rather like this class.
Pod::Simple::XMLOutStream's output is space-padded in a w <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	4239	4402	
==>213,
 'Ouml'     , 214,
 'times'    , 215,
 'Oslash'   , 216,
 'Ugrave'   , 217,
 'Uacute'   , 218,
 'Ucirc'    , 219,
 'Uuml'     , 220,
 'Yacute'   , 221,
 'THORN <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	1505	1628	
==>lost!
 *
 */

EOC
}

=item C<gen_ret($method, $body)>

Generate the C code for a C<return> statement, if the body is empty t <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4354	4479	
==>_func_decl
{
    my ($self, $core) = @_;

    return "opcode_t * " .
        $self->core_prefix .
        "$core(opcode_t *cur <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2842	2967	
==>_func_decl
{
    my ($self, $core) = @_;

    return "opcode_t * " .
        $self->core_prefix .
        "$core(opcode_t *cur <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	2871	3067	
==>ur eq "\n" and $next eq "_" and $afternext =~ /\w/) {
			append;
			fetch;
		}
		append;
		fetch;
		emit("DIRECTIVE");
		while($cur =~ /\w/) {
			append;
			fetch;
		}
		emit("BARE");
		fetch;
		go <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	16218	16339	
==>', $cmt);
}
sub BINARY_FLOOR_DIVIDE
{
    my ($n, $c, $cmt) = @_;
    binary('//', $cmt);
}
sub BINARY_DIVIDE
{
    my ($n <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	42551	42752	
==>==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			'DO' => 196,
			">" => 86
		}
	},
	{#State 186
		DEFAULT => -4,
		GOTOS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191501	191672	
==>"n",
                              "ic"
                            ],
                  "BODY" => "#line 313 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpr <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24138	24261	
==>");
    $self->_restore($temp);
  }
  return $return;
}

sub _op_plus {
  my ($self,$node) = @_;
  my $return;
  my $num_chi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7332	7474	
==>ss defined $next;
        unless( $next->type eq 'text' ) {
          $self->unget_token($next);
          next;
        }
        DEBUG and pr <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9577	9719	
==>ss defined $next;
        unless( $next->type eq 'text' ) {
          $self->unget_token($next);
          next;
        }
        DEBUG and pr <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	1499	1674	
==>$file, $line, 'literal', 'I', $1);
      $text = $3;
      next;
    }

    if ($text =~ m{^( 0x[0-9a-fA-F]+ )($|\W.*$)}x) {
      push @tokens, Jako::Token->new(
        $file <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	13233	13340	
==>}
static void hop_init() {
    size_t i;
    op_info_t * info = ${bs}op_lib.op_info_table;
    /* store full <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	744	863	
==>sub | ^push_eh) }smx;

my $block_end = qr{
  (
    ^\.end$
    |
    ^clear_eh$
  )
}smx;

my $blank_before = qr { : $}s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129300	129585	
==>{
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130038	130323	
==>{
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "in <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1059	1291	
==>le which simplifies the 
manipulation of `@*INC`.

It is typically used to add extra directories to Pugs's 
search path so that later `use` or `require` statements 
will find modules which are not located on Pugs's default
search pat <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	9285	9559	
==>));
    }
    push @ops, (
                     aop('match', [ $char, $lastback ]),
                     aop('increment', [ 1, $lastback ]),
                     aop('goto', [ $next ]),
            $back => $self->dbprint("Unmatching $char\n"),
                     aop('incr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	338311	338569	
==>" => 0,
                  "NAME" => "getstdout",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9598	9696	
==>pecified text token. URLs which are not in link tags
are linked here for convenience.

=cut

sub pr <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5531	5632	
==>ps, $self->output_label_def($passLabel);
    return @ops;
}

sub output_initgroup {
    my ($self, $gr <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5224	5325	
==>ps, $self->output_label_def($passLabel);
    return @ops;
}

sub output_initgroup {
    my ($self, $gr <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6532	6632	
==>+ j
    prop_type_state[${ITEMP0}] = ${STYPES}
    prop_stack_depth[${ITEMP0}] = stack_depth
    goto <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4470	4570	
==>+ j
    prop_type_state[${ITEMP0}] = ${STYPES}
    prop_stack_depth[${ITEMP0}] = stack_depth
    goto <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	26221	26369	
==>ass */
} /* Parrot_${classname}_class_init */
EOC
    if ($self->{flags}{dynpmc}) {
        $cout .= $self->lib_load_code();
    }
    $cout;
}

=ite <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	889	1088	
==>al';

  return undef;
}

sub block { return shift->{BLOCK}; }
sub token { return shift->{TOKEN}; }
sub type  { return shift->{TYPE};  }
sub value { return shift->{VALUE}; }


#
# compile()
#
# Essenti <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	18910	19030	
==>IGLOBALS_NCI_FUNCS,
                HashPointer);

$put_pointer

    }

    b = VTABLE_get_pmc_keyed_str(interpreter, Has <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142506	142710	
==>,
                              "nc",
                              "ic"
                            ],
                  "BODY" => "#line 77 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3 <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	27971	28132	
==>[$test_num - 1] = 
            { 'ok'       => is the test considered a pass?
              actual_ok  => did it literally say 'ok'?
              name       => n <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3183	3294	
==>$_) foreach (@pmcs);
    generate_c($_) foreach (@pmcs);

    my ($group_files, $group_libs, $pmc_group, $pmc_li <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3287	3398	
==>$_) foreach (@pmcs);
    generate_c($_) foreach (@pmcs);

    my ($group_files, $group_libs, $pmc_group, $pmc_li <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	3383	3470	
==>arrot::Docs::Section::Tests>

=item C<Parrot::Docs::Section::EditorPlugins>

=back

=cut <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5468	5568	
==>>sax($handler);
  $handler->end_element({ Name => 'op' });
  $handler->end_element({ Name => 'assign' <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3531	3631	
==>>sax($handler);
  $handler->end_element({ Name => 'op' });
  $handler->end_element({ Name => 'assign' <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	31683	31781	
==>lass).
	elsif ($rule->{'class'} eq 'store') {
		# Does the translator code actually store a value o <==
2	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1947	2078	
==>thOp;
use base qw(Lua::opcode);

package LabelOp;
use base qw(Lua::opcode);

package BranchOp;
use base qw(Lua::opcode);

p <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	942	1115	
==>e{$seg}->{code}}, "\t# $var was declared COMMON\n"; 
		if (! $array) {
			$main::code{$main::seg}->{declarations}->{$var}="COMMON";
			$common{$var}=1;
		}

	}
}

sub parse_s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43088	43345	
==>\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pushmark",
                  "FLAGS" => "" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43731	43988	
==>\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pushmark",
                  "FLAGS" => "" <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4266	4402	
==>$1}{"$file:$function"}++ 
                  unless ($variable_visible{$file}{$1} || 
                          $variable_visible{ALL}{$1} <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4531	4665	
==>$1}{"$file:$function"}++
                  unless ($variable_visible{$file}{$1} ||
                          $variable_visible{ALL}{$1} <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	592	765	
==>_f, $pasm_f, $by_f, $out_f ) = map { # JMG
            my $t = $0; $t =~ s/\.t$/_$count\.$_/; $t
        } ( qw(urm pasm pbc out) ); # JMG

        # STDERR is written into s <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	46932	47104	
==>ine);
			$lookahead = $lookahead ? -$lookahead : -1;
			$lookaheadspec .= $1;
			next;	# SKIP LOOKAHEAD RESET AT END OF while LOOP
		}
		elsif ($grammar =~ m/$POSLOOKAHEAD/g <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19243	19361	
==>p('alternate' => [ $_[1], $_[3] ]); }
	],
	[#Rule 10
		 'expr', 2,
sub
#line 111 "lib/Regex/Grammar.y"
{ return op('seq <==
2	/Users/nnunley/parrot/Configure.pl	10139	10269	
==>nt <<"END";

Okay, we're done!

You can now use `$make' to build your Parrot.
(NOTE: do not use `$make -j <n>'!)
After that, you ca <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	137	233	
==>.pl -- generate charset tables

=head1 SYNOPSIS

	perl tools/dev/gen_charset_tables.pl

=head1 DE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758119	758361	
==>855,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 276 \"src/ops/set.ops\"\n  {{\@1}} = string_set(interpreter, {{\@1}}, {{\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	225	415	
==>SAL ();
sub DEBUG () {0}

$Computerese =  " lang='und' xml:lang='und'" unless defined $Computerese;
$Lame = ' class="pad"' unless defined $Lame;

$Linearization_Limit = 90 unless defined $Lin <==
2	/Users/nnunley/parrot/config/auto/gdbm.pm	439	531	
==>e Parrot::Configure::Step ':auto';

$description = 'Determining if your platform supports gdb <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1354	1462	
==>on() {
	# We need a stack depth and a string for label gen and some
	# storage for stack depths and stack typ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	441	549	
==>on() {
	# We need a stack depth and a string for label gen and some
	# storage for stack depths and stack typ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38622	38741	
==>{
			'exp' => 178,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	39661	39821	
==>.  For portability, it has to be
              # one setting everywhere, and 8th wins.
              s/^([^\t]*)(\t+)/$1.(" " x ((length($2)<<3)-(length($1)&7))) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381862	382175	
==>ion",
                  "CODE" => 446,
                  "ARGS" => [
                              "p",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 455 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{ <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr3.pm	600	741	
==>_fn}",
             "$self->{parrot} languages/${pir_fn}" );
}
 

sub skip_why {
    my $self = shift;
    my ( $options ) = @_;

    if ( $op <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	848	988	
==>_fn}", 
             "$self->{parrot} languages/${pir_fn}" );
}
 
 

sub skip_why {
    my $self = shift;
    my ( $options ) = @_;

    retu <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	3378	3468	
==>_H_GUARD
#include "parrot/cclass.h"
#define WHITESPACE  enum_cclass_whitespace
#define WORD <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1796	1932	
==>be either the string
"start", the string "text", or the string "end".

Once you know what the type of an object is, you then know what
su <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	7050	7242	
==>he "RSA Data Security, Inc. MD5 Message-Digest
Algorithm" in all material mentioning or referencing this software
or this function.

License is also granted to make and use derivative works pro <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9678	9822	
==>3942,/* 33 */
HH,$d,$a,$b,$c,$_[12],11,0x8771f681,/* 34 */
HH,$c,$d,$a,$b,$_[15],16,0x6d9d6122,/* 35 */
HH,$b,$c,$d,$a,$_[18],23,0xfde5380c,/* 36 <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20573	20689	
==>::RecDescent::Action;

sub describe { undef }

sub sethashname { $_[0]->{hashname} = '__ACTION' . ++$_[1]->{actcount} <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	193	287	
==>:Basename;

use Parrot::Test;

=head1 NAME

Parrot::Test::HQ9plus - Testing routines specific t <==
2	/Users/nnunley/parrot/languages/converter.pl	319	620	
==>fier->[0] eq '?';
  return '(s)'  if $modifier->[0] eq '+';
  return '(s?)' if $modifier->[0] eq '*';
}

sub strip_quotes {
  my $string = shift;
  $string =~ s/^'(.*)'$/$1/ if $string=~/^'/;
  $string =~ s/^"(.*)"$/$1/ if $string=~/^"/;
  $string;
}

my $grammargrammar = <<'_EOF_';

rule		: /\w+/ ':: <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	7284	7499	
==>, '", @$include), "'"
        if $die_unless_found;

    undef;
}

=head2 dump_default()

Create a .dump file for the default vtable (from which all PMCs inherit).

=cut

sub dump_default {
    my $file    = "$FindBi <==
2	/Users/nnunley/parrot/lib/Test/More.pm	9995	10122	
==>tween ok() and is() lies cmp_ok().  This allows you to
compare two arguments using any binary perl operator.

    # ok( $this eq <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19499	19726	
==>1..5
open "_testfile" for output as #3
for i=1 to 5
	print #3, i
next i
close #3
open "_testfile" for input as #2
for i = 1 to 5
	input #2,a$
	print a$,
next i
close #2
print

' ON..GOTO   200! and then Oats..
t=2
on t goto 100, <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	1027	1226	
==>1..5
open "_testfile" for output as #3
for i=1 to 5
	print #3, i
next i
close #3
open "_testfile" for input as #5
for i = 1 to 5
	input #5,a$
	print a$,
next i
close #5
print

' Expect 5, 0, "Hello"
c <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	6993	7121	
==>_symbols));
    printf("Of these, %d are not defined by ANSI C89:\n", scalar(@non_ansi_external_symbols));

    print "    $_ (in <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9697	9802	
==>nk_args ${cc_exe_out}test$exe $libs", 'test.ldo', 'test.ldo', $verbose)
        and confess "Linker failed <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	40147	40315	
==>$op->{result} eq 'break' ) {
                    $parser->Error("no loop to break\n");
                }
            }
        }
        unshift @{ $parser->YYData- <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39074	39222	
==>$op->{result} eq 'break' ) {
                $parser->Error("no loop to break\n");
            }
        }
    }
    unshift @{ $parser->YYData- <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	5084	5194	
==>s
documentation file.

=cut

sub process_file_start_token
{
    my $self = shift;
    my $token = shift;
    my <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494818	495235	
==>,
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 568,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 590 \"src/ops/math.ops\"\n  {{\@1 <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	135	319	
==>to register mapping algorithm.

use strict;
use Getopt::Long;
use lib 'build';

# This is a list of instructions that need the magical enum fixup.
our @need_enum_fix = (
    qw/2E 2F 30 <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7745	7848	
==>.
	if (!$dest_reg) {
		$pir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5863	5966	
==>.
	if (!$dest_reg) {
		$pir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367849	368079	
==>eads(interpreter, PIO_STDIN(interpreter), (size_t){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368641	368871	
==>eads(interpreter, PIO_STDIN(interpreter), (size_t){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	1994	2220	
==>}, $class;
}


###############################################################################

#
# ACCESSORS:
#

sub peer      { return shift->{PEER};  }
sub kind      { return shift->{KIND};  }
sub type      { return shift->{ <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	1641	1779	
==>S_DIR)/core_ops_cgp.c 

$(OPS_DIR)/core_ops_cgp.c : $(OPS_FILES) $(BUILD_TOOLS_DIR)/ops2c.pl lib/Parrot/OpsFile.pm lib/Parrot/Op.pm lib/Par <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	3914	4054	
==>er, $prevflag)
{
	bless {
		text    => $_[1],
		parser  => $_[2],
		prev    => $_[3]?1:0,
	      }, $_[0];
}

sub FETCH    
{
	my $parser = $ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	2918	3055	
==>er, $prevflag)
{
	bless {
		text    => $_[1],
		parser  => $_[2],
		prev	=> $_[3]?1:0,
	      }, $_[0];
}

sub FETCH    
{
	my $parser = $ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30863	30975	
==>v, "post_load for rule $rule->{'name'}");
		$pir .= "### end post_load\n";

        # Emit code to clone value ty <==
2	/Users/nnunley/parrot/config/inter/make.pm	22	152	
==>005, The Perl Foundation.
# $Id: /parrot/config/inter/make.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/m <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5521	5626	
==>bs might be crucial
sub gather_groups_and_libs {
    my @pmcs = @_;

    my ( %group_files, %group_libs, % <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5732	5837	
==>bs might be crucial
sub gather_groups_and_libs {
    my @pmcs = @_;

    my ( %group_files, %group_libs, % <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650696	650812	
==>else if ({{\@2}} >= enum_first_type && {{\@2}} < enum_last_type)\n        {{\@1}} = 1;\n    else\n        {{\@1}} = 0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651618	651734	
==>else if ({{\@2}} >= enum_first_type && {{\@2}} < enum_last_type)\n        {{\@1}} = 1;\n    else\n        {{\@1}} = 0 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2918	3029	
==>INT "ERR this line in subroutine one should be skipped"
Label2:
   PRINT "4 back in subroutine one"
   RETURN La <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16885	16996	
==>INT "ERR this line in subroutine one should be skipped"
Label2:
   PRINT "4 back in subroutine one"
   RETURN La <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	999	1216	
==>ered to be the op itself, with arguments
1..9 being the arguments passed to the op.

Op argument direction and type are represented by short one or two letter
descriptors.

Op Direction:

    i   The argument is incomi <==
2	/Users/nnunley/parrot/lib/Test/More.pm	3502	3617	
==>ome cases, you'll want to completely skip an entire testing script.

  use Test::More skip_all => $skip_reason;

You <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	62	193	
==>4-24T19:32:28.634218Z bernhard  $

=head1 NAME

Test/M4.pm - Testing routines specific to 'm4'.

=head1 DESCRIPTION

Call 'Parrot m4 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18609	18714	
==>get(1)->is_close_paren) {
        while (1) {
          push @args, Jako::Construct::Expression::Value->ne <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19635	19740	
==>get(1)->is_close_paren) {
        while (1) {
          push @args, Jako::Construct::Expression::Value->ne <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	4621	4775	
==>ation directory.

=cut

sub html_docs_directory
{
    my $self = shift;
    
    return $self->docs_directory->directory_with_name('html');
}

=item C<dele <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	17	187	
==>ht (C) 2001-2005, The Perl Foundation.
# $Id: /parrot/tools/build/nativecall.pl 20350 2006-06-25T03:57:27.771662Z petdance  $

=head1 NAME

tools/build/nativecall.pl - Bui <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1603	1716	
==>est::More::$meth"}( @_ );
        # if( $ok ) { foreach my $meth ( $lang_f, $pasm_f, $by_f, $out_f ) { unlink $met <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1519	1632	
==>est::More::$meth"}( @_ );
        # if( $ok ) { foreach my $meth ( $lang_f, $pasm_f, $by_f, $out_f ) { unlink $met <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27679	27796	
==>e->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end translation\n";

		# Emit code to fix up th <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37228	37345	
==>e->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end translation\n";

		# Emit code to fix up th <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5799	5934	
==>lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There should be at most a single group
        my $group = $class->{flags}{gr <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6010	6145	
==>lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There should be at most a single group
        my $group = $class->{flags}{gr <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	474	701	
==>ode) {
        if ($chunk eq "\n") {
            push @{ $self->{raw_pir} }, "\n";
        } else {
            push @{ $self->{raw_pir} }, split /\n/, $chunk;
        }
    }
    return;    #void
}

# XXX we should check for pr <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	24251	24471	
==>L_id(
                interp, const_string(interp, "$hll")
            );
            if (pmc_id > 0)
                Parrot_register_HLL_type(
                    interp, pmc_id, enum_class_$maps, entry
                ) <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	3021	3169	
==>iled with exit code $exit_code."
                if $exit_code;
            $self->{builder}->diag($diag) if $diag;
        }

        # The gen <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2632	2761	
==>iled with exit code $exit_code." if $exit_code;
            $self->{builder}->diag( $diag ) if $diag;
        }

        # The gen <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	1699	1944	
==>e(<>) {
    chomp;
    my ($file, $meta, $dest) = split(/\s+/, $_);
    $dest ||= $file;
    my $generated = $meta =~ s/^\*//;
    my ($package) = $meta =~ /^\[(.*?)\]/;
    $meta =~ s/^\[(.*?)\]//;
    next if $package eq "";
    my %meta;
    @ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	9635	10005	
==>e::code;
sub minlen { 0 }
sub maxlen { undef }
sub dfa_safe { 0 }
sub hasback { 0 } # FIXME! code should be allowed to have BACK{} blocks
sub startset { undef }

########################################################################
# Rendering - only used for debugging for now
########################################################################

package Regex::O <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1202	1367	
==>\n";
    if($token->is_start) {
      ...access $token->tagname, $token->attr, etc...

    } elsif($token->is_text) {
      ...access $token->text, $token->text_r, et <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30235	30332	
==>xpected
				   = ($lastsep||"").$text;
			}'.($::RD_NO_TRACE?'':'
			Parse::RecDescent::_trace(qq{ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3263	3359	
==>n foo$
	foo$="Right one"
	exit function
	foo$="Wrong one"
end function
call mysub( 78, 80)
t$=foo <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	15590	15709	
==>1
    if $S1 == 'String' goto bad_args
    $S2 = typeof $P2
    if $S2 == 'String' goto bad_args
    goto got_args
  bad <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	395796	396084	
==>"CODE" => 459,
                  "ARGS" => [
                              "p",
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4614	4718	
==>rclass");
    my @ops = ("<rx_tmp> = ord(substr(<rx_input>, <rx_pos>)); # tmp = INPUT[pos]");
    my $fai <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	153	272	
==>.pm - Test for GNU MP (GMP) Math library

=head1 DESCRIPTION

Determines whether the platform supports GMP.

=cut

packa <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	20944	21149	
==>0;
                    push @init_mmds, [$#mmds + 1, $variant->[0]];
                    $init_mmds{$variant->[0]} = 1;
                }
                else {
                    $right = "enum_class_$var <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818502	818709	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "restoreall",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	17993	18115	
==>'' : ' && !$commit')
	. ')
	{
		' .
		($self->changesskip()
			? 'local $skip = defined($skip) ? $skip : $Parse::RecDescent <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4548	4652	
==>mp_reg($calc_type);
    $compiler->emit("  $temp = $left $op $right");
    $compiler->emit("  $dest = $te <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514199	514522	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":bas <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515079	515402	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":bas <==
2	/Users/nnunley/parrot/config/init/hints/netbsd.pm	176	292	
==>lags');
    if ($ccflags !~ /-pthread/) {
        $ccflags .= ' -pthread';
    }
    $conf->data->set(ccflags => $ccf <==
2	/Users/nnunley/parrot/config/init/hints/openbsd.pm	268	384	
==>lags');
    if ($ccflags !~ /-pthread/) {
        $ccflags .= ' -pthread';
    }
    $conf->data->set(ccflags => $ccf <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11745	11924	
==>COMP|COMM|STMT/) {
		if ($syms[CURR] eq ",") {
			feedme();
			next;
		}
		if ($type[CURR] eq "PUN" and $syms[CURR] =~ /-/) {
			if ($type[NEXT] =~ /INT|FLO/) {
				feedme();
				$ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	60348	60477	
==>rict;

use Lua::lexer;
use Lua::build;
use Lua::symbtab;
use Lua::pir;

sub Run {
    my $parser = shift;
    my ($srcnam <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6915	7080	
==>$line =~ m/^(=[a-zA-Z][a-zA-Z0-9]*)(?:\s+|$)(.*)/s) {
        # THIS IS THE ONE PLACE WHERE WE CONSTRUCT NEW DIRECTIVE OBJECTS
        my $new = [$1, {'start_line' => <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	5071	5197	
==>ests {
    my (%tests) = @_;

    my $count = scalar keys %tests;
    die unless $count;

    my $string = <<"END";
#!/usr/bin/ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5413	5549	
==>lseline
	# The expression was not true...
	IFBRANCH_$c:
CODE
		$elseline++;
		goto PARSE;
	}
	if ($syms[CURR] eq "end") {
		if ($syms[NEX <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	605	744	
==>_group('Documentation', '', 'docs/imcc'),
		$self->new_group('Examples', '', 'examples/pir'),
		$self->new_group('Tests', '', 't/compilers/i <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6559	6651	
==>call_PLOOP_${CURIC}:
if ${ITEMP0} == 0 goto PRE_CALL_END_${CURIC}
dec ${ITEMP0}
dec ${ITEMP2} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2139	2281	
==>ck   { --$_[0]{'Indent'} }


# . . . . . Now the actual formatters:

sub end_head1       { $_[0]->emit_par(-4) }
sub end_head2       { $_[0]->e <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1707	1849	
==>ck   { --$_[0]{'Indent'} }


# . . . . . Now the actual formatters:

sub end_head1       { $_[0]->emit_par(-4) }
sub end_head2       { $_[0]->e <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	764	871	
==>ENT => $ident
  }, $class;

  $block->push_content($self);

  return $self;
}

sub ident  { return shift->{I <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	764	871	
==>ENT => $ident
  }, $class;

  $block->push_content($self);

  return $self;
}

sub ident  { return shift->{I <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	28546	28764	
==>treelet->[$i]; # recurse
        next;
      }
        
      DEBUG > 1 and print "Nixing Z node @{$treelet->[$i]}\n";
        
      # bitch UNLESS it's empty
      unless(  @{$treelet->[$i]} == 2
           or (@{$tre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48078	48270	
==>T_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "bounds",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21969	22114	
==>word
        $self->whine(
          $para->[1]{'start_line'},
          "'=end $content' is invalid.  (Stack: "
          . $self->_dump_curr_ope <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	270004	270266	
==>4,
                  "ARGS" => [
                              "i",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 854 \"src/ops/cmp.ops\"\n  {{\@1}} = (mmd_dispatch_i_pp(inte <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	12019	12112	
==>_CALL_${CURIC}_LAZY_MOVE_RET:
${STEMP0} = pop lazy_moves

# Put in params array.
PRE_CALL_${CU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944220	944545	
==>ase_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1062,
                  "ARGS" => [
                              "i",
                              "sc" <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3674	3778	
==>ists of any procedures defined in the test file outside of a test,
## as well as any catch commands.
##
s <==
2	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	2118	2273	
==>n}/ 

END_GRAMMAR

# Slurp in the frozen-state file
my $frozen;
{
  $/ = undef;
  $frozen = <>;
}
#print Dump( $frozen );

# Parse the freeze-state
my $symt <==
2	/Users/nnunley/parrot/config/inter/progs.pm	2428	2529	
==>_PERLIO)//g;
    $ccflags =~ s/-fno-strict-aliasing//g;
    $ccflags =~ s/-fnative-struct//g;
    $ccf <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11778	11882	
==>scapes qw(symbolname symbolname2...);>,
or you can do C<use Pod::Escapes qw(:ALL);> to get all
exportable <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	4379	4544	
==>ource->relative_path($file->path));
                    
            $index_html .= "<br>\n";
        }
    }
    
    return '' unless $index_html;
    
    if ( ! $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105524	105719	
==>"
                            ],
                  "BODY" => "#line 162 \"src/ops/bit.ops\"\n  {{\@1}} |= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	106262	106457	
==>"
                            ],
                  "BODY" => "#line 162 \"src/ops/bit.ops\"\n  {{\@1}} |= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2540	2625	
==>mops.ps>,
F<examples/mops/mops.py>,
F<examples/mops/mops.rb>,
F<examples/mops/mops.sch <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	2540	2625	
==>mops.ps>,
F<examples/mops/mops.py>,
F<examples/mops/mops.rb>,
F<examples/mops/mops.sch <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	18862	18996	
==>E_IS_CONST_FLAG' : 0;
    if (exists $self->{flags}{need_ext}) {
        $vtbl_flag .= '|VTABLE_PMC_NEEDS_EXT';
    }
    if (exists $s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	508093	508352	
==>84,
                  "ARGS" => [
                              "n",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 636 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}} <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19304	19425	
==>ldren}}) {
    my $temp_1 = $self->_generate($node->{children}[$_]);
    $self->_add_inst('','ge',[$temp_0,$temp_1,"DONE_$ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20281	20387	
==>ldren}}) {
    my $temp_1 = $self->_generate($node->{children}[$_]);
    $self->_add_inst('','gt',[$temp_0, <==
2	/Users/nnunley/parrot/lib/File/Which.pm	3646	3749	
==>C<File::Which> was created to be able to get the paths to executable programs
on systems under which the <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30654	30784	
==>pir = concat "\\n"
$label:
PIR
        }

		# Finally, call post_load and append code it generates.
		my $post_load = $srm->post_lo <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	11662	11808	
==>$name", "}");
}

sub output_rule_pass {
    my ($self, $name) = @_;
    return split(/\n/, <<'END');
$rx_match{'!POS'} = $rx_pos;
$rx_match{'!RESUL <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	284	441	
==>eval "use warnings";

package Jako::Construct::Statement::Goto;

use Carp;

use base qw(Jako::Construct::Statement);

my %block_types = (
  'while'    => { PR <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	13038	13158	
==>r1, $dir2], $class, $classes );

Generate an ordered list of parent classes to put in the
I<< $classes->{class}->{parents <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	3737	3937	
==>) {
	    $_->{experimental} = 1;
	}
    }

    push @{$ops->{OPS}}, @{$temp_ops->{OPS}};
    $ops->{PREAMBLE} .= "\n" . $temp_ops->{PREAMBLE};
}


# Renumber ops/num based on old ops.num and *.ops
if ( <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5913	6010	
==>brentdax.com>.

=head1 AUTHOR

Joshua Hoblitt C<jhoblitt@cpan.org>

=head1 SEE ALSO

F<docs/config <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6762	6859	
==>brentdax.com>.

=head1 AUTHOR

Joshua Hoblitt C<jhoblitt@cpan.org>

=head1 SEE ALSO

F<docs/config <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	44321	44461	
==>nd $p->[$i-1] =~ m/\S/) { # no-op
      splice @$p,$i,1; # remove this line
      $i--; # don't consider next line
      next;
    }

    if( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467392	467615	
==>DE" => 536,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 376 \"src/ops/math.ops\"\n  INTVAL den = {{\@2} <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26006	26120	
==>[$return,$return,$temp]);
      $self->_restore($temp);
    }
  }
  return $return;
}

sub _op_times {
  my ($self, <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	16498	16608	
==>if $name eq 'quot' or $name eq 'apos' or $name eq 'gt';
    
      $value = hex $1 if $value =~ m/^x([a-fA-F0-9 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5537	5636	
==>elf->output_label_def($passLabel);
    return @ops;
}

sub output_initgroup {
    my ($self, $group) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5230	5329	
==>elf->output_label_def($passLabel);
    return @ops;
}

sub output_initgroup {
    my ($self, $group) <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5275	5389	
==>chmod 0755, "$dest/$_$LOAD_EXT";
        }

    }
}
else {
    die "invalid command '$mode'\nmust be one of generat <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5486	5600	
==>chmod 0755, "$dest/$_$LOAD_EXT";
        }

    }
}
else {
    die "invalid command '$mode'\nmust be one of generat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291490	291759	
==>",
                  "CODE" => 339,
                  "ARGS" => [
                              "i",
                              "nc",
                              "n"
                            ],
                  "BODY" => "#line 940 \"src/ops/cmp.ops\"\n  {{\@1} <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	3432	3583	
==>l \"$op->{arg1}\"\n";
    }

    sub visitFindLexOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        pr <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	21869	21995	
==>to append to it.
        my $fh = open_file( ">>", $deffile );
        print $fh "LIBRARY $group\nEXPORTS\n\tParrot_lib_${group <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670637	670747	
==>"\n    {{\@1}}->vtable->push_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671410	671520	
==>"\n    {{\@1}}->vtable->push_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/config/auto/readline.pm	1002	1115	
==>>data->add(' ', libs => 'readline.lib');
        }
    } else {
        $conf->data->add(' ', libs => '-lreadline' <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	2030	2198	
==>test names.

All tests are run in scalar context.  So this:

    ok( @stuff, 'I have some stuff' );

will do what you mean (fail if stuff is empty)

=cut

sub ok ($;$) { <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	784	877	
==>'Jako::Construct::Block');
  confess "Left is not Value!" unless UNIVERSAL::isa($left, 'Jako:: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	796	889	
==>'Jako::Construct::Block');
  confess "Left is not Value!" unless UNIVERSAL::isa($left, 'Jako:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264770	265226	
==>GS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 308,
                  "ARGS" => [
                              "i",
                              "sc",
                              "s"
                            ],
                  "BODY" => " <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12453	12585	
==>sh @opcodes, @{ $global->[1] };
                my $key = BuildLiteral( $parser, $idf, 'key' );
                push @opcodes, @{ $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16961	17093	
==>sh @opcodes, @{ $global->[1] };
                my $key = BuildLiteral( $parser, $idf, 'key' );
                push @opcodes, @{ $ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39388	39513	
==>ne_directive($line, "delegate.c");
    return <<EOC;
$l
${decl} {
    $ret_def
    STRING *meth = CONST_STRING(interpreter, "_ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18570	18670	
==>for(2..$#{$node->{children}}) {
    my $temp_1 = $self->_generate($node->{children}[$_]);
    if (sub <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	5951	6230	
==>ratch =~
         s/(
            [^\cm\cj\n]{65}        # Snare 65 characters from a line
            [^\cm\cj\n\x20]{0,50}  #  and finish any current word
           )
           (\x20{1,10})(?![\cm\cj\n]) # capture some spaces not at line-end
          /$1$2\n/gx     # and put <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793118	793449	
==>,
                  "TYPE" => "inline",
                  "CODE" => 895,
                  "ARGS" => [
                              "p",
                              "k",
                              "i"
                            ],
                  "BODY" => "#line 457 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_k <==
2	/Users/nnunley/parrot/lib/File/Which.pm	1511	1717	
==>ope it's fixed
            if (lc($alias) eq lc($exec)) {
                chomp(my $file = `Alias $alias`);
                last unless $file;  # if it failed, just go on the normal way
                retur <==
2	/Users/nnunley/parrot/lib/Test/More.pm	20379	20474	
==>e I<won't be run at all>.  Test::More will output special ok's
which Test::Harness interprets as <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	3492	3701	
==>$function && /^\s*$/) {
            undef $function;
            next;
        }

        # beginning of variable block
        if (/VARIABLE : (.*) \[(.*)\]/) {
            $variable = $1;
            my $vari <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13140	13348	
==>LL);\n  loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13984	14192	
==>LL);\n  loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	2457	2601	
==>doc
    runtime/parrot/include/README                   [devel]doc
    src/call_list.txt                               [devel]doc
    src/ops/ops <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	16510	16664	
==>ra ) = @_;

            # Strange Win line endings
            convert_line_endings( $expected );

            # set up default description
            unl <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	11026	11179	
==>ra) = @_;

            # Strange Win line endings
            convert_line_endings( $expected );

            # set up default description
            unl <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	1000	1117	
==>d rules file $rules_file: $!\n";
}

# Create metavariables table.
my $metavars = {};

# Generate initial translator co <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	2155	2324	
==>efined $1 and $1 ne '';

      my $ident = $2;
      $ident =~ s/^{(.*)}$/$1/; # Strip '{' and '}'.

      my $sym = $self->block->find_symbol($ident);

      $ident = Ja <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8122	8248	
==>op = $self->require_ident->text;
      
        my $value;

        if ($self->skip_assign) {
          $value = Jako::Construc <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5128	5248	
==>op = $self->require_ident->text;

        my $value;

        if ($self->skip_assign) {
          $value = Jako::Construc <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4550	4664	
==>$$) {
	# Nothing to do.
	return "";
}

# Pre and post branch operation hooks.
sub pre_branch($) {
	my $self = shift <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2966	3080	
==>$$) {
	# Nothing to do.
	return "";
}

# Pre and post branch operation hooks.
sub pre_branch($) {
	my $self = shift <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449846	450084	
==>TYPE" => "inline",
                  "CODE" => 515,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 195 \"src/ops/math.ops <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	10821	10996	
==>num op1
    .param num op2
    if op1 == 0 goto zero_LHS
    op1 = abs op1
    $N1 = op2 / op1
    $I1 = floor $N1
    $N1 = op1 * $I1
    $N2 = op2 - $N1
    .return($N2)
zero <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	9424	9585	
==>out .= " $self->{Curr_Test}" if $self->use_numbers;

    if( defined $name ) {
        $name =~ s|#|\\#|g;     # # in a name can confuse Test::Harness.
        $o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621762	621866	
==>LCALL) {\n\t    PObj_get_FLAGS(ccont) &= ~SUB_FLAG_TAILCALL;\n\t    --ctx->recursion_depth;\n\t    ctx->c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29602	29694	
==>LCALL) {\n\tPObj_get_FLAGS(ccont) &= ~SUB_FLAG_TAILCALL;\n\t--ctx->recursion_depth;\n\tctx->c <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	52540	52659	
==>ence, the aim of of a call to C<extract_multiple> in a list context
is to split the processed string into as many non-ov <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840140	840227	
==>72 \"src/ops/stack.ops\"\n  rotate_entries(interpreter, &CONTEXT(interpreter->ctx)->user <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840835	840922	
==>72 \"src/ops/stack.ops\"\n  rotate_entries(interpreter, &CONTEXT(interpreter->ctx)->user <==
2	/Users/nnunley/parrot/lib/Test/More.pm	27512	27607	
==>unctions

The use of the following functions is discouraged as they are not
actually testing fun <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9782	9879	
==>he
distinction of being the very first module written for Pugs.

It provides a simple set of commo <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6700	6999	
==>= ";
        }
        my @args = @{ $op->{arg2} };
        my $obj  = shift @args;
        print {$FH} "$obj->{symbol}.$op->{arg1}(";
        my $first = 1;
        foreach (@args) {
            print {$FH} ", " unless ($first);
            print {$FH} "$_->{symbol}";
            if ( exis <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	594	747	
==>ck,

    PREFIX    => $prefix,
    KIND      => 'while',
    LEFT      => $left,
    OP        => $op,
    RIGHT     => $right,

    CONTENT   => [ ]
  }, <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Posix.pm	388	497	
==>@_;

    my $lang_fn        = Parrot::Test::per_test( '.bc', $count );
    my $test_prog_args = $ENV{TEST_PROG <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61126	61234	
==>od and $prod->additem($item)
			      or  _no_rule("pattern terminal",$line,"/$1/");
		}
		elsif ($grammar =~ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591128	591436	
==>ction",
                  "CODE" => 671,
                  "ARGS" => [
                              "p",
                              "k",
                              "k"
                            ],
                  "BODY" => "#line 325 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(int <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4339	4464	
==>t

sub run_core_func_decl
{
    my ($self, $core) = @_;

    return "opcode_t * " .
        $self->core_prefix .
        "$cor <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2827	2952	
==>t

sub run_core_func_decl
{
    my ($self, $core) = @_;

    return "opcode_t * " .
        $self->core_prefix .
        "$cor <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1074	1241	
==>d;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## is_deeply
sub is_deeply(Any $got, Any $expected, Str $desc?, :$todo, :$depends) returns Boo <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	1178	1346	
==>receeding library. The definition of
the function is:

  return_type name [param [param [param ...]]]

The param and return_type parameters use the NCI standard, which f <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	33480	33653	
==>itespace and a missing text defaults to C<$_>. However, a missing
delimiter specifier defaults to C<'{}()[]E<lt>E<gt>'> (see below).

C<extract_bracketed> extracts a balanced <==
2	/Users/nnunley/parrot/editor/ops2vim.pl	31	142	
==>s;

use File::Basename qw/basename/;


my $cline = my $prefix = 'syn keyword pirOp';

my %seen;

## make sure fi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240091	240203	
==>,
                  "BODY" => "#line 616 \"src/ops/cmp.ops\"\n  INTVAL l = VTABLE_get_integer(interpreter, {{\@2} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241039	241151	
==>,
                  "BODY" => "#line 616 \"src/ops/cmp.ops\"\n  INTVAL l = VTABLE_get_integer(interpreter, {{\@2} <==
2	/Users/nnunley/parrot/Configure.pl	9380	9508	
==>ptr
    auto::cgoto
    auto::inline
    auto::gc
    auto::memalign
    auto::signal
    auto::socklen_t
    auto::env
    auto: <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	55760	55864	
==>f a regex extractor), or returns an empty list or an undefined value (in the case of a subroutine extract <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642280	642386	
==>{\@1}} = {{\@2}}->vtable->type_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643168	643274	
==>{\@1}} = {{\@2}}->vtable->type_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	3878	3981	
==>pmc_$pmc.h

    # build list of libraries for link line in Makefile
    my $slash = $conf->data->get('sl <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22361	22486	
==>escent::_trace(q{Trying directive: ['
					. $self->describe . ']},
					Parse::RecDescent::_tracefirst($text),
					  q{' . $ <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	3417	3536	
==>he empty string
then this method will return true.

=cut

sub has_suffix
{
    my $self = shift;
    my $suffix = $self- <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	20282	20422	
==>ult = new_tmp( $parser, 'pmc', $type{$op} );
    push @opcodes, @{ $expr->[1] };
    push @opcodes, new LocalDir( $parser,
        'result <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7631	7860	
==>as a BUG.\n";
                $$dotpos = $1;
            };

            @sempar =       $$dotpos
                        ?   map { $$_[1] } @$stack[ -$$dotpos .. -1 ]
                        :   ();

            $semval = <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7284	7505	
==>as a BUG.\n";
                $$dotpos = $1;
            };

            @sempar =       $$dotpos
                        ?   map { $$_[1] } @$stack[ -$$dotpos .. -1 ]
                        :   ();

            $semval = <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4106	4264	
==>$fail # need $needed more chars";
    } elsif ($needed eq "0") {
        return ();
    } else {
        return "sub <rx_tmp>, $lenvar, <rx_pos> # need $needed <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	501	673	
==>s

The following functions are exported:

=over 4

=cut

package Parrot::Vtable;

use strict;
use warnings;

use base qw( Exporter );

use FileHandle;

our @EXPORT = qw(pars <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54393	54495	
==>tty_form{$1} || '\\x'.(unpack("H2",$1))>eg;
         <$pretty_form{$1} || '\\x{'.sprintf("%x", ord($1)) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54661	54763	
==>tty_form{$1} || '\\x'.(unpack("H2",$1))>eg;
         <$pretty_form{$1} || '\\x{'.sprintf("%x", ord($1)) <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	1616	1745	
==>ent the same as path.
    undef $parent_path if $parent_path eq $path;
    
    $self = bless {
        PATH => $path,
        NAM <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	14328	14448	
==>ace of func
	    # but can't create namespace yet
	    my $gn = "def_arg_" . ($n-$i-1);
	    print <<EOC;
	# $gn $g
	stor <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	15863	15973	
==>oto', [ $ibacks[-1] ]);
    push @ops, $next;

    return ($back, @ops);
}

# Dynamic alternation: a set of alt <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	4220	4349	
==>_count";
		print "#xxxxxxxxx $f\n";
		my $args = $1;
		++$lambda_count;
		my @args = split(/,/, $args);
		my $n = @args;
		$arg_co <==
2	/Users/nnunley/parrot/config/gen/platform.pm	4847	5048	
==>: $!";
            print PLATFORM_C <<"END_HERE";
/*
** $impl_file:
*/
#line 1 "$impl_file"
END_HERE
            print PLATFORM_C <IN_C>, "\n\n";
            close IN_C;
        }
    }

    # append ge <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54624	54750	
==>STUVWXYZ0123456789])>
         #<$pretty_form{$1} || '\\x'.(unpack("H2",$1))>eg;
         <$pretty_form{$1} || '\\x{'.sprintf(" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909035	909323	
==>,
                  "TYPE" => "inline",
                  "CODE" => 1024,
                  "ARGS" => [
                              "i",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 284 \"src/ops/s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	14988	15095	
==>($rule, $tree) = @{ $op->{args} };
    return [ annotated($op, "rule($rule)"),
             $tree->reftree() <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13083	13181	
==>tack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  loc = INTVAL2PTR(opcode_t *, {{\@1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13927	14025	
==>tack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  loc = INTVAL2PTR(opcode_t *, {{\@1 <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	13559	13684	
==>=> $parent_hash{$b} }
            keys %parent_hash;
        for my $parent (@parents) {
            next if exists $class->{h <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33933	34183	
==>sh @opcodes1, @opcodes2, @opcodes3;
    my $lbl_loop = new_label($parser);
    push @opcodes1, new LabelOp( $parser,
        'arg1' => $lbl_loop,
    );
    my @params2 = ( $state, $var );
    my @return2 = ();
    @opcodes2 = ();
    for ( @{ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29174	29297	
==>y $n = $self->{vtable}{has_method}{$meth};
    return $self->{vtable}{methods}[$n]{mmd} =~ /MMD/ ? 0 : 1;
}

=back

=head1 S <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1370	1473	
==>d a stack depth and a string for label gen and some
	# storage for stack depths and stack type states th <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	457	560	
==>d a stack depth and a string for label gen and some
	# storage for stack depths and stack type states th <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716353	716448	
==>87 \"src/ops/python.ops\"\n  PMC * const p = {{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	103	195	
==>NAME

tools/dev/gen_charset_tables.pl -- generate charset tables

=head1 SYNOPSIS

	perl tool <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33298	33430	
==>->[1]{'number'} .
              "' instead of the expected '=item $expected_value'"
            );
            $para->[1]{'number'} = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5278	5371	
==>r->start_element({ Name => 'assign' });
  $dest->sax($handler);
  $handler->start_element({ Na <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3341	3434	
==>r->start_element({ Name => 'assign' });
  $dest->sax($handler);
  $handler->start_element({ Na <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030232	1030567	
==>" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1152,
                  "ARGS" => [
                              "nc"
                            ],
                  "BODY" => "#line 305 \"src/ops/sys.op <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28116	28363	
==>31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 86
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 2 <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10000	10167	
==>= @{_get_arg($node,1)->{children}};
    $symbol = $symbol->{value};
    $lambda = { children => [ { value => 'lambda' },
                              { children => [ @ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1014480	1014776	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "err",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015303	1015599	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "err",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	3166	3307	
==>lf->pos;

  $self->INTERNAL_ERROR("Position is not defined") unless defined $pos;
  $self->INTERNAL_ERROR("Offset is not defined")   unless de <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	743	841	
==>, @todo)>

Runs the target string against the Perl 6 pattern, passing the test
if they match.  Note <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2841	2939	
==>, @todo)>

Runs the target string against the Perl 6 pattern, passing the test
if they match.  Note <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	7001	7181	
==>APL/Makefile',
        commentType                    => '#',
        replace_slashes                => 1,
        conditioned_lines              => 1
    );
    genfile(
        'l <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4997	5116	
==>ler->emit("  global \"$dest_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3060	3179	
==>ler->emit("  global \"$dest_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	34362	34464	
==>s 254.

B<NOTE>  This behavior may go away in future versions.


=head1 CAVEATS and NOTES

=over 4

=it <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1368	1499	
==>xit_code and not $pass;
    }

    unless($ENV{POSTMORTEM}) {
        unlink $lang_f;
        unlink $out_f;
    }

    return $pass <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1409	1540	
==>xit_code and not $pass;
    }

    unless($ENV{POSTMORTEM}) {
        unlink $lang_f;
        unlink $out_f;
    }

    return $pass <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	5172	5344	
==>e\"\n";
          DEBUG > 1 and print "# Setting nextline to $1\n";
          $self->{'line_count'} = $1 - 1;
        }
        
        next;
      }
    }
    
    # . . . <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	31433	31558	
==>> sequences

  # L<name>
  # L<name/"sec"> or L<name/sec>
  # L</"sec"> or L</sec> or L<"sec">
  # L<text|name>
  # L<text|nam <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	17942	18101	
==>XX: overwrite anything else
            }
        }

        my $class = $all{$name};
        gen_parent_list($include, $name, \%all);
        gen_super_meths($ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	28325	28430	
==>ill consider the test to be a pass.

'actual_ok' is a reflection of whether or not the test literally
prin <==
2	/Users/nnunley/parrot/languages/pugs/t/pmc.pm	721	852	
==>local pmc pmc1
    .local string typ
    pmc1 = new .$type
    typ = typeof pmc1
    print typ
    print "\\n"
.end
CODE
$type
OUTPU <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	70897	71143	
==>le ( values %$rules )
	{
		next if ! $rule->{"changed"};

	# CHECK FOR UNDEFINED RULES

		my $call;
		foreach $call ( @{$rule->{"calls"}} )
		{
			if (!defined ${$rules}{$call}
			  &&!defined &{"Parse::RecDescent::$call"})
			{
				if (!defined $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	7463	7579	
==>$parser->_LongStringLexer($1);

            s/^([A-Z_a-z][0-9A-Z_a-z]*)//
                and return $parser->_Ide <==
2	/Users/nnunley/parrot/tools/util/pirtidy.pl	966	1075	
==>s a pir file and writes an indented, reformatted script.

pirtidy is somewhat liberal about how it formats you <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	44956	45096	
==>her by this being an S element,
                   #  or by an ancestor being an S element.

  for(my $i = 2; $i < @$treelet; ++$i) {
    if( <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	3524	3653	
==>tation is not complete.  C<level>, for example, is
still shared amongst B<all> Test::Builder objects, even ones created using
this <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2740	2834	
==>$compiler->emit("  concat $dest, $left, $right");

  if (($dest_ident->kind eq 'var') and ($des <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	526822	527139	
==>"inline",
                  "CODE" => 608,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 814 \"src/ops/math.ops\"\n  {{\@1}} = asin((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2197	2300	
==>non-ASCII charsets.  Something should be done about that.
  }
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2300	2403	
==>non-ASCII charsets.  Something should be done about that.
  }
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033388	1033478	
==>x_pad)) {\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not foun <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034486	1034576	
==>x_pad)) {\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not foun <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884218	884559	
==>LAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1001,
                  "ARGS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5504	5742	
==>ABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "load_bytecode",
                  "FLAGS" => ":l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6169	6407	
==>ABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "load_bytecode",
                  "FLAGS" => ":l <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	24210	24344	
==>ailure_output {
    my($self, $fh) = @_;

    if( defined $fh ) {
        $self->{Fail_FH} = _new_fh($fh);
    }
    return $self->{Fai <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4270	4374	
==>ore)>

Returns the C code for the run core function declaration.

=cut

sub run_core_func_decl
{
    my ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2758	2862	
==>ore)>

Returns the C code for the run core function declaration.

=cut

sub run_core_func_decl
{
    my ( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1669	1781	
==>cgen->init_context($ctx);
    return $cgen->output($list_regex->{code}, $ctx);
}

sub compile {
    my ($expr, $c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904759	905317	
==>LAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1020,
                  "ARGS" => [
                              "s",
                              "p",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 262 \"src/o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912422	912755	
==>LAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1028,
                  "AR <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	1051	1282	
==>c.html', '', 'languages/bc'),
        $self->new_section('Befunge', 'befunge.html', '', 'languages/befunge'),
        $self->new_section('BF', 'bf.html', '', 'languages/bf'),
        $self->new_section('Cola', 'cola.html', '', 'lang <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2310	2455	
==>library};

    if ($library) {
        my $hout = $self->gen_h($library);
        my $h = "$library.h";
        my $c = "$library.c";
        _wri <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	32478	32666	
==>1 both do the wrong thing
    # with it.  Instead, we use caller.  This also means it runs under
    # 5.004!
    my $in_eval = 0;
    for( my $stack = 1;  my $sub = (CORE::caller($stack))[ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916466	916874	
==>LAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1032,
                  "ARGS" => [
                              "i",
                              " <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	570	669	
==>ith testing B<read Test::Tutorial> first! **

This is an extremely simple, extremely basic module fo <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	6484	6578	
==>e") },
	'<>' => sub { &{$opsubs{"="}}(@_[0..2], "ne") },
	'<' => sub { &{$opsubs{"="}}(@_[0..2] <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31462	31563	
==>ame> is the name of the output file we are
generating.

Overrides the default implementation to direct <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40082	40183	
==>ame> is the name of the output file we are
generating.

Overrides the default implementation to direct <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500648	501008	
==>> [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 575,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 621 \"src/o <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	4645	4791	
==>ins with a
    # labelled statement. Next, do a reachability analysis to find
    # unreachable basic blocks. We'll store a 'reachable' flag in the <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	16731	17149	
==>lizer for a nested class may be specified as
an object of that class, or as a reference to a hash of initializers
that are passed on to the nested struct's constructor.

    use Class::Struct;

    struct Breed =>
    {
        name  => '$',
        cross => '$',
    };

    struct Cat =>
    [
        name     => '$',
        kittens  => '@',
        markings => '%',
        breed    => 'Breed',
    ];


    my $ca <==
2	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	630	778	
==>t
                  { $item[3] }

# Return a hash reference where the macro_name is the key
macros:             macro(s)
                  { my $dumm <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	6633	6751	
==>}

sub revbracket($)
{
	my $brack = reverse $_[0];
	$brack =~ tr/[({</])}>/;
	return $brack;
}

my $XMLNAME = q{[a-zA-Z <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8882	8976	
==>interpreter,\n\t    enum_fixup_label, label);\n    if (!fe)\n\tinternal_exception(1, \"branch_c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9998	10092	
==>interpreter,\n\t    enum_fixup_label, label);\n    if (!fe)\n\tinternal_exception(1, \"branch_c <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6643	6783	
==>\n";

					$$errstatus
				and	do {
					--$$errstatus;

#DBG>					$debug & 0x10
#DBG>				and	$dbgerror
#DBG>				and	$$errstatus == 0 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6336	6468	
==>\n";

					$$errstatus
				and	do {
					--$$errstatus;

#DBG>					$debug & 0x10
#DBG>				and	$dbgerror
#DBG>				and	$$errstatus == 0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64792	65018	
==>->code;\n  runops(new_interp, REL_PC + {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65743	65969	
==>->code;\n  runops(new_interp, REL_PC + {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	15145	15494	
==>f->{items}[-1]->describe =~ /<score/;
	return 1;
}

sub check_pending
{
	my ( $self, $line ) = @_;
	if ($self->{op})
	{
	    while (my $next = pop @{$self->{op}})
	    {
		Parse::RecDescent::_error("Incomplete <$next->{type}op:...>.", $line);
		Parse::RecDescent::_hint(
			"The current production ended without completing the
			 <$next->{type}op:.. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	261229	261794	
==>=> "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 304,
                  "ARGS" => [
                              "i",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 793 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} == {{\@3}};\n    {{+= <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	1405	1522	
==>e()
.end
END_PIR

}

sub pir_cmds_in_dir {
    my ($dir) = @_;
    
    opendir(DIR,$dir);
    # only return pir files <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832121	832204	
==>&CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}), STACK_ENTRY_FLOAT, STACK_CLEANUP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832849	832932	
==>&CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}), STACK_ENTRY_FLOAT, STACK_CLEANUP <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	37802	37927	
==>1]{'~resolve'}, @fors) {
          #} elsif(not grep !$_->[1]{'~resolve'}, @fors) {
          } elsif( $fors[-1][1]{'~resolve' <==
2	/Users/nnunley/parrot/config/init/hints/vms.pm	189	357	
==>self, $conf) = @_;

    $conf->data->set(
        ccflags => qq{/Standard=Relaxed_ANSI/Prefix=All/Obj=.obj/NoList/NOANSI_ALIAS/include="./include"},
        perl    => " <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10340	10455	
==>h
{
    my $self = shift;
    my $path = $self->path_for_directory_with_relative_path(shift);
    
    return unless <==
2	/Users/nnunley/parrot/examples/benchmarks/freeze.pl	639	758	
==>time();
printf "freeze time %.6f\n", $e-$s;

$s = time();
my @b = @{ thaw $image };
$e = time();
printf "  thaw time %.6 <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1442	1715	
==>3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1442	1715	
==>3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8787	8975	
==>en ];

          last if $self->skip_close_paren;

          $self->require_comma;
        }
      }

      my $decl = Jako::Construct::Declaration::Sub->new($block, $type, $ident, { %props <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3940	4091	
==>} = concat ${STEMP0}
${DEST0} = concat "0"
PIR
	}

	return $pir;
}

sub post_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	if ($ <==
2	/Users/nnunley/parrot/tools/build/revision_c.pl	412	523	
==>m>,
F<include/parrot/config.h>

=cut

use strict;
use Parrot::Revision;

print <<"EOF";
/* ex: set ro:
 * !!!!!! <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	6622	6795	
==>\n//
                and $parser->YYData->{lineno}++,
                last;

            s/^\-\-\[(=*)\[//       # LongComment
                and $parser->_LongCommentL <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	8385	8494	
==>$for_header) = @_;

    my $ret = $method->{type};
    my $meth= $method->{meth};
    my $args= $method->{para <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5207	5309	
==>ssign) {
          $value = Jako::Construct::Expression::Value::Literal->new($block, $self->require_lit <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8207	8309	
==>ssign) {
          $value = Jako::Construct::Expression::Value::Literal->new($block, $self->require_lit <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	894342	894991	
==>GS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1010,
                  "ARGS" => [
                              "s",
                              "s",
                              "i",
                              "ic",
                              "sc"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895477	896032	
==>GS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1011,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic",
                              "ic",
                              "sc" <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	63268	63371	
==>ing bracket.

=item C<Did not find opening tag: /%s/>

C<extract_tagged> did not find a suitable opening <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	8614	8779	
==>"## $src" if  $src;

	if ($rest =~ /(<code> \w+)/) {
	    $rest = "$1 ..>";
	}
	$cmt = "\t\t# $opcode\t$arg $rest" unless $opt{n};
	gen_pir($opcode, $arg, $rest, $cmt <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32286	32400	
==>class}, $method, 0);
    # I think that these will be out by one - NWC
    my $l = $self->line_directive($line, "re <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40908	41022	
==>class}, $method, 0);
    # I think that these will be out by one - NWC
    my $l = $self->line_directive($line, "re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627394	627489	
==>d\n   * copies the registers. */\n  {{\@1}} = pmc_new_noinit(interpreter, {{\@2}});\n  {{\@1}}-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628538	628633	
==>d\n   * copies the registers. */\n  {{\@1}} = pmc_new_noinit(interpreter, {{\@2}});\n  {{\@1}}-> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2056	2164	
==>ined at this lexical scope, we want to complain
  # about the redefinition. Otherwise, we assume the programm <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1803	1911	
==>ined at this lexical scope, we want to complain
  # about the redefinition. Otherwise, we assume the programm <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	4891	5191	
==>e of these methods.

=over 4

=item B<exported_to>

  my $pack = $Test->exported_to;
  $Test->exported_to($pack);

Tells Test::Builder what package you exported your functions to.
This is important for getting TODO tests right.

=cut

sub exported_to {
    my($self, $pack) = @_;

    if( defined $pac <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365932	366152	
==>> [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 303 \"src/ops/io.ops\"\n  if ({{\@2}} && {{\@1}}) {\n    PIO_putps(interpreter, { <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	3159	3303	
==>d =~ s/-psl/-npsl/g;	
    }
    foreach (sort keys %$typedefs) {
        $cmd .= " -T $_";
    }
    $cmd .= " $file";
    
    print "Running \" <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33075	33175	
==>ame> is the name of the output file we are
generating.

Overrides the default implementation to perfo <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	1975	2125	
==>$path = shift;
    
    if ( $path )
    {
        $path = join('/', $path, $self->{INDEX_PATH});
    }
    else
    {
        $path = $self->{INDEX_PA <==
2	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1279	1393	
==>e base qw(Lua::opcode);

package AssignOp;
use base qw(Lua::opcode);

package KeyedGetOp;
use base qw(Lua::op <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8525	8745	
==>ose_paren) {
        while (1) {
          my $arg_type  = Jako::Construct::Type->new($self->require_type);
          my $arg_token = $self->require_ident;
          my $arg_name  = $arg_token->text;

          push @form <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	42354	42556	
==>=> 194
		}
	},
	{#State 184
		DEFAULT => -29
	},
	{#State 185
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"," => 195,
			"%" => 76,
			"==" => <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1500	1671	
==>->emit("  global \"$left\" = $temp_pmc");
  }
  else {
    $compiler->emit("  $left = $right");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handl <==
2	/Users/nnunley/parrot/config/init/optimize.pm	492	649	
==>ot::Configure::Step;

$description = 'Enabling optimization';

@args = qw(verbose optimize);

sub runstep
{
    my ($self, $conf) = @_;

    # A plain --optim <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9897	9992	
==>($$states[$$stack[-1][0]]{ACTIONS})
			        or  not exists($$states[$$stack[-1][0]]{ACTIONS} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9451	9545	
==>($$states[$$stack[-1][0]]{ACTIONS})
			        or  not exists($$states[$$stack[-1][0]]{ACTIONS} <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11574	11767	
==>write_vtable_method ($$$$$) {
    my ($class, $method, $super, $super_table) = @_;
    local $_ = $_[4];

    # Rewrite method body
    my $supertype = "enum_class_$super";
    die "$class defin <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	7700	7845	
==>ot_jit_normal_op
#define Parrot_jit_vtable_1r221_op Parrot_jit_normal_op

#define Parrot_jit_vtable_ifp_op Parrot_jit_cpcf_op
#define Parrot_jit_v <==
2	/Users/nnunley/parrot/Configure.pl	4701	4988	
==>or ($key) {
    m/version/ && do {
      my $svnid = '$Id: /parrot/Configure.pl 19607 2006-05-30T15:23:20.183054Z coke  $';
      print <<"END";
Parrot Version $parrot_version Configure 2.0
$svnid
END
      exit;
    };

    m/help/    && do {
      print <<"EOT";
$0 - Parrot Configure 2 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1565	1679	
==>->{IDENT}; }
sub cond  { return shift->{COND};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{O <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1701	1815	
==>->{IDENT}; }
sub cond  { return shift->{COND};  }
sub left  { return shift->{LEFT};  }
sub op    { return shift->{O <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4125	4241	
==>.\n";
}

sub _DBLoad {
	{
		no strict 'refs';

			exists(${__PACKAGE__.'::'}{_DBParse})#Already loaded ?
		an <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3917	4025	
==>.\n";
}

sub _DBLoad {
	{
		no strict 'refs';

			exists(${__PACKAGE__.'::'}{_DBParse})#Already loaded ?
		an <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36108	36220	
==>e an ARG0, we'll fake it out. This is needed as ret will
        # never have a method to call, thus no argument, <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	880	988	
==>_";
}

=item C<suffix()>

The suffix is C<'_switch'>.

=cut

sub suffix
{
    return "_switch";
}

=item C<de <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6586	6719	
==>04
#DBG>			and	print STDERR "Shift and go to state $act.\n";

					$$errstatus
				and	do {
					--$$errstatus;

#DBG>					$deb <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6280	6406	
==>04
#DBG>			and	print STDERR "Shift and go to state $act.\n";

					$$errstatus
				and	do {
					--$$errstatus;

#DBG>					$deb <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2077	2196	
==>my($self)=shift;
    my($retval);

	_CheckParams( \@params, \%params, \@_, $self );

	if($$self{DEBUG}) {
		_DBLoa <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2001	2114	
==>my($self)=shift;
    my($retval);

	_CheckParams( \@params, \%params, \@_, $self );

	if($$self{DEBUG}) {
		_DBLoa <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	91	203	
==>y ($proto, %opts) = @_;
    my $self = bless \%opts, (ref($proto) || $proto);
    $self->init();
    return $self <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	301	413	
==>y ($proto, %opts) = @_;
    my $self = bless \%opts, (ref($proto) || $proto);
    $self->init();
    return $self <==
2	/Users/nnunley/parrot/config/auto/snprintf.pm	151	297	
==>uto/snprintf.pm - Test for snprintf

=head1 DESCRIPTION

Tests if snprintf is present and if it's C99 compliant.

=cut

package auto::snprintf;

us <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687395	687812	
==>{{\@2}});\n   {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686505	686817	
==>{{\@2}});\n   {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getpr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832141	832351	
==>->ctx)->user_stack, &({{\@1}}), STACK_ENTRY_FLOAT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832869	833079	
==>->ctx)->user_stack, &({{\@1}}), STACK_ENTRY_FLOAT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9938	10041	
==>TAP protocol.

This module, like Pugs, is a work in progress. As new features are
added to Pugs, new tes <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	2416	2539	
==>plan on running in
case something goes horribly wrong.

If all your tests passed, Test::Simple will exit with zero (which is <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948837	948932	
==>ing.ops\"\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949637	949732	
==>ing.ops\"\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+= <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	425	542	
==>pe="" unless defined $type;
         $sym="" unless defined $sym;
        unshift(@type, $type);
        unshift(@syms <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736561	736757	
==>"n",
                              "i"
                            ],
                  "BODY" => "#line 144 \"src/ops/set.ops\"\n  {{\@1}} = (FLOATVAL){{\@2}};\n  {{+=3}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30919	31070	
==>$over_type\n";
          
          if($item_type eq 'text') {
            # Nothing special needs doing for 'text'
          } elsif($item_type eq 'num <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948830	948915	
==>ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@1}}, {{\@2} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949630	949715	
==>ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@1}}, {{\@2} <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	10563	10768	
==>mc = new $typ $cmt
	$pmc = $c
EOC
	    push @stack, [$n, $pmc, 'P'];
	    return;
	}
    }
    elsif ($typ eq 'B') {   # bigint
	my $typ = $DEFVAR;
        my $pmc = temp('P');
	$c =~ s/[lL]$//;
	print <<EO <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	16819	17067	
==>est, $name);

    unless( $ok ) {
        if( $type =~ /^(eq|==)$/ ) {
            $self->_is_diag($got, $type, $expect);
        }
        else {
            $self->_cmp_diag($got, $type, $expect);
        }
    }
    return $ok;
}

sub _cmp_diag { <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	67301	67464	
==>es"}{$name}->expected }
				$item = new Parse::RecDescent::Subrule($name,
								       $lookahead,
								       $line,
								       $desc,
								       $mat <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	892	1012	
==>T => $right
  }, $class;

  $block->push_content($self);

  return $self;
}

sub left  { return shift->{LEFT};  }
sub rig <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	900	1020	
==>T => $right
  }, $class;

  $block->push_content($self);

  return $self;
}

sub left  { return shift->{LEFT};  }
sub rig <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499308	499527	
==>,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 600 \"src/ops/math.ops\"\n  {{\@1}} = floatval_mod({{ <==
2	/Users/nnunley/parrot/tools/dev/symlink.pl	2318	2446	
==>ymlink\n";
		}
	    }
	    if (!defined $readlink || $readlink ne $srcfile) {
		print "$dstfile\n" if $v;
		if (defined $readlink <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	18942	19178	
==>rning a reference to an entire hash or array element.
    Previously these were returned as a reference to a reference
    to the element.

Renamed to C<Class::Struct> and modified by Jim Miner, 1997-04-02.

    members() function remove <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2171	2292	
==>ource_dead'} = 1;
      $self->_ponder_paragraph_buffer;
      next;
    }


    if( $self->{'line_count'}++ ) {
      ($l <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	5154	5344	
==>et
        if $*OS eq "browser" {
            Test::proclaim(1, "", "skip $reason", :$depends);
        } else {
            Test::skip $reason, :$depends;
        }
    }
}

sub skip_rest (S <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9458	9571	
==>c->splitpath($path);
    
    $path = File::Spec->catdir($self->path, $directories);
    $path = File::Spec->catfi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	874601	875226	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 992,
                  "ARGS" => [
                              "s",
                              "s",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349380	349651	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_o <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6606	6812	
==>";
                }
                $first = 0;
            }
            print {$FH} ") = ";
        }
        my @args = @{ $op->{arg2} };
        my $obj  = shift @args;
        print {$FH} "$obj <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79584	79873	
==>ata({{\@1}}) = p;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81105	81394	
==>ata({{\@1}}) = p;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9338	9541	
==>mp] INT: \%<$reg>$desc\n"),
                );
    } else {
        return ("$reg = pop \@<rx_stack>; # popint");
    }
}

sub output_substr {
    my ($self, $dest, $src, $offset, $len) = @_;
    return ( <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	435	559	
==>the C source code conforms to the standards in
PDD 7.

To run it on all the C source code files in the distribution pass in
C <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	483	650	
==>tatic_dir/$_.pir'\n"
    for @static_cmds;
print "  .include 'languages/tcl/$dynamic_dir/$_.pir'\n"
    for @dynamic_cmds;



# For every builtin with an inline'd versi <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45083	45204	
==>NCOMMITMK		= '\G\s*<uncommit>';
my $QUOTELIKEMK		= '\G\s*<perl_quotelike>';
my $CODEBLOCKMK		= '\G\s*<perl_codeblock>';
my <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878675	879006	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 996 <==
2	/Users/nnunley/parrot/config/inter/encoding.pm	1197	1444	
==>art of the Makefile was built by 'config/inter/encoding.pm'

E_NOTE

    foreach my $encoding (split(/\s+/, $encoding_list)) {
        $encoding =~ s/\.c$//;
        $TEMP_encoding_build .= <<END
src/encodings/$encoding\$(O): src/encodings/$encodin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558061	558154	
==>object = object;\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_method(int <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559445	559538	
==>object = object;\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_method(int <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	6871	7112	
==>>/$smoke{$1}/g;

  $str;
}

sub unpack_smoke {
  my $name = shift;

  /^parrot-smoke-([\d\.]+)	#  1 VERSION
                -(\w+)		#  2 DEVEL
                -r(\d+)		#  3 revision
                -([\w\-]+)	#  4 branch
               --([\w <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	7259	7360	
==>"group_next");

    $self->need_group_setup($group);

    my ($R_back, @R_ops) = $self->rewrite($R, $r <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	4671	4782	
==>remove leading
	s/\n(\# *\n)+\s*$/\n/s;     # remove trailing
	s/^\#//mg; # get rid of #
	#s/^( *\n)+//s;
	s/^\s <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	2568	2668	
==>ub precedence {
	my ($op, $next)=@_;
	#print STDERR "Precedence with '$op' and '$next'\n";

	return 5 <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4404	4513	
==>r {
    my($target, $pattern, $captures) = @_;
    $target = _parrot_stringify($target);
    $pattern = _parro <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6909	7018	
==>r {
    my($target, $pattern, $captures) = @_;
    $target = _parrot_stringify($target);
    $pattern = _parro <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	1386	1480	
==>ble listing a ui
consistency violation?

=item * Fragment describe_file() - it shouldn't both ` <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242515	242960	
==>re",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 282,
                  "ARGS" => [
                              "i",
                              "p",
                              "nc"
                            ],
                  "BODY" <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	1132	1241	
==>C<make> there
shouldn't be a problem.

=head1 TODO

The original design of the ops processing code was intende <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240025	240198	
==>",
                              "i"
                            ],
                  "BODY" => "#line 616 \"src/ops/cmp.ops\"\n  INTVAL l = VTABLE_get_integer(interpreter, { <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2688	2796	
==>ind => $cond } });
    $handler->start_element({ Name => 'block', Attributes => { kind => 'test' } });
    $h <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3452	3560	
==>ind => $cond } });
    $handler->start_element({ Name => 'block', Attributes => { kind => 'test' } });
    $h <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5886	5993	
==>ck-ish stuff. If the branch
	# did not pop anything it is unconditional, so next instruction needs to
	# hav <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3824	3931	
==>ck-ish stuff. If the branch
	# did not pop anything it is unconditional, so next instruction needs to
	# hav <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529316	529554	
==>> [
                              "n",
                              "nc",
                              "n"
                            ],
                  "BODY" => "#line 838 \"src/ops/math.ops\"\n  {{\@1}} = atan2((FLOATVAL){{\@2}}, ( <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27175	27285	
==>\n";

        # Add pre-translate code, if any.
        $pir .= sub_meta($pre_translate_code, $mv, "pre-transla <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27797	27905	
==>e stack type array.
		for (1..$rule->{'pop'}) {
			$pir .= "    type_trans = pop stypes\n";
		}
		for (1..$ru <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	1325	1431	
==>s/POD2HTML.pm'),
            $self->new_item('', 'lib/Parrot/Docs/HTMLPage.pm'),
            $self->new_ite <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4009	4176	
==>op)=@_;
		$op="eq" unless $op;
		$result=~s/S/N/;
		$eqnum++;
		return(<<CODE, $result); 
	set $result, 1.0
	$op $a2, $a1, EQ_$eqnum
	set $result, 0.0
EQ_$eqnum: noop
C <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596216	596471	
==>class(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597109	597364	
==>class(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438501	438598	
==>ODY" => "#line 99 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_ppp(interpreter, {{\@3}}, {{\@4 <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	2976	3072	
==>ops = Parrot::OpsFile->new( [ $file ], $nolines_flag );
die "$0: Could not read ops file '$file'! <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	5384	5513	
==>| "-";
    }
}

printf "=== $Obj: %d interfaces ===\n", scalar keys %API;

my @API = sort keys %API;

my @NoParrotAPI = grep { !ex <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1112	1229	
==>kind eq 'var') and ($self->ident->scope eq 'global')) {
    my $pmc_type = $self->ident->type->imcc_pmc;
    my $pmc_r <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1106	1223	
==>kind eq 'var') and ($self->ident->scope eq 'global')) {
    my $pmc_type = $self->ident->type->imcc_pmc;
    my $pmc_r <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	16598	16782	
==>ms" ) :
        ( "$return", "pcf_${return}" ));

    push @{$put_pointer_ref}, << "PUT_POINTER";
        temp_pmc = pmc_new(interpreter, enum_class_UnManagedStruct);
        PMC_data(t <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	8121	8286	
==>eated up to N times
        return $max * $sublen;              # [m..sublen] repeated up to N times
    }
}

sub startset {
    my $op = shift;
    my @sub = $op->{a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031421	1031514	
==>ine 323 \"src/ops/sys.ops\"\n    if ({{\@2}} < enum_first_type || {{\@2}} >= enum_last_type)\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032290	1032383	
==>ine 323 \"src/ops/sys.ops\"\n    if ({{\@2}} < enum_first_type || {{\@2}} >= enum_last_type)\n <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	1504	1666	
==>le suffix.

=item * Finish making this usable as a library.

=item * It would be nice to have a ParrotSourceFile class of course. ;)
(a jest - sort of.)

=item * M <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090873	1090988	
==>{{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1091933	1092048	
==>{{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" = <==
2	/Users/nnunley/parrot/config/auto/pack.pm	2197	2318	
==>onstant type we can use
    # for pointers.
    #

    if ($intsize == $ptrsize) {
        $conf->data->set(ptrconst => "u <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	60399	60605	
==>:symbtab;
use Lua::pir;

sub Run {
    my $parser = shift;
    my ($srcname) = @_;

    open $parser->YYData->{fh}, $srcname
        or die "can't open $srcname ($!).\n";

    $parser->YYData->{she <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054466	1054571	
==>ll global.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055593	1055698	
==>ll global.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7341	7463	
==>+//o;
	$text =~ s/\s+$//o;
	$text =~ s/\s*-$//o;
	
	# There was not text, just another POD command (=head2 probably).
	retu <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	979	1087	
==>ions.pod on how to recreate this file after SVN
# has been told about new generated files.
# 
# Ignore the SV <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3834	3941	
==>ions.pod on how to recreate this file after SVN
# has been told about new generated files.
#
# Ignore the SV <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8503	8592	
==>ab$(12);c$(i+1);tab$(22);c$(i+2);tab$(32);c$(i+3)
next
print
data "ABANDON","CHART","COMPU <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21367	21456	
==>ab$(12);c$(i+1);tab$(22);c$(i+2);tab$(32);c$(i+3)
next
print
data "ABANDON","CHART","COMPU <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	848	1059	
==>logue Steps',
        'auto' => 'System Test Steps',
        'gen' => 'File Creation Steps',
    );
    
    foreach my $group (qw(init inter auto gen))
    {
        my $dir = $dist->existing_directory_with_name <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2727	2861	
==>ss of L<Pod::Simple> that parses
Pod and turns it into XML.

Pod::Simple::XMLOutStream inherits methods from
L<Pod::Simple>.


=head1 S <==
2	/Users/nnunley/parrot/config/init/optimize.pm	96	190	
==>6-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/init/optimize.pm - Optimization

=head1 D <==
2	/Users/nnunley/parrot/languages/urm/urm-old.pl	1374	1495	
==>- *(r\d+) *([+-]) *1/) {
	if ($1 ne $2) {print "Syntax error: Registers don't match!\n"; exit 1;}
	$register{$1} = eval( " <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	9457	9607	
==>_retn = 'void';
my $jit_fn_params = '(Parrot_jit_info_t *jit_info, Interp * interpreter)';

for ( my $i = 0; $i < $core_numops; $i++) {
    $body = $co <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	2923	3057	
==>st $PATHQUOTE$LIBPARROT$PATHQUOTE";
}

our $NOW = time();

################### MAIN PROGRAM ################

my ($mode, @pmcs) = @ARGV <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3027	3161	
==>st $PATHQUOTE$LIBPARROT$PATHQUOTE";
}

our $NOW = time();

################### MAIN PROGRAM ################

my ($mode, @pmcs) = @ARGV <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	18941	19093	
==>guage_output_like => 'output_like',
        language_output_isnt => 'output_isnt',
                            );

    foreach my $func ( keys %language_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17189	17359	
==>s, new LocalDir( $parser,
                    'result' => $result,
                );
                push @opcodes, new KeyedGetOp( $parser,
                    'resu <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18226	18348	
==>s, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new KeyedGetOp( $parser,
        'resu <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	16326	16479	
==>(-5), "\n";
                            # dies due to negative argument!

=item Example 3

The constructor of a generated class can be passed a list
of I< <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	11992	12142	
==>colon_opt' => 23
		}
	},
	{#State 8
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 3 <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	7377	7533	
==>->_SingleQuoteStringLexer();

            s/^\[(=*)\[//
                and return $parser->_LongStringLexer($1);

            s/^([A-Z_a-z][0-9A-Z_a-z] <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	3014	3106	
==>= <<"EOH";
Parrot_PMC Parrot_lib_${lc_libname}_load(Parrot_INTERP interpreter);
EOH

    retu <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	1934	2173	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub new {
  my $class = shift;
  my $self = $class->SUPER::new(@_);
  die "Couldn't construct for $class" unless $self;

  $self->{'token_buffer'} ||= [];
  $self->{'start_token_class <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	3457	3557	
==>src/ops/${base}_ops${suffix}.c.temp";

if ($base =~ m!^src/dynoplibs/! || $dynamic_flag) {
    $sourc <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	172	269	
==>ection::Parrot - Root documentation section

=head1 SYNOPSIS

    use Parrot::Docs::Section::Parro <==
2	/Users/nnunley/parrot/config/auto/headers.pm	2280	2439	
==>ader);

            cc_gen('config/auto/headers/test_c.in');

            $conf->data->set(testheaders => undef);
            $conf->data->set(testheader  => un <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7198	7351	
==>G>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print STDERR "Reduce using rule ".-$act." ($lhs,$len): ";

                $act
            or  $self-> <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6864	7012	
==>G>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print STDERR "Reduce using rule ".-$act." ($lhs,$len): ";

                $act
            or  $self-> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	289	409	
==>use warnings";

package Jako::Construct::Type::Number;

use base qw(Jako::Construct::Type);

sub new
{
  my $class = shif <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	11397	11500	
==>t is suggested you don't try anything
too funky.

- `cmp_ok (Str $got, Code &compare_func, Str $expected <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38599	38708	
==>. '}} = $_tok;'). '
		push @item, $_tok;
		' . ($self->{"lookahead"} ? '$text = $_savetext;' : '' ) .'

'
}

p <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	1	192	
==>!/usr/bin/perl
# .NET CLI => PIR Translator Built-in Methods Build Tool
# Script to take a file containing internal methods and spit out a chunk of
# PIR that can look up the built-in that's n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740078	740454	
==>re",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 832,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => " <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	3822	3925	
==>t!";
    exit;
  }

  $smoke{runcore}   = runcore_from_args($smoke{harness_args});
  $smoke{revision}  | <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	3807	3916	
==>todo, "Import error when loading $module: $!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$module <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	338108	338348	
==>nterpreter);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "g <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	338754	338994	
==>nterpreter);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "g <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	4735	4863	
==>lative
        #  to pods, but in order relative to cuts.
        
        # Note also that we haven't yet applied the transcodin <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5432	5558	
==>$stack=( [ 0, undef ] );
	$$check='';

    while(1) {
        my($actions,$act,$stateno);

        $stateno=$$stack[-1][0 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5171	5291	
==>$stack=( [ 0, undef ] );
	$$check='';

    while(1) {
        my($actions,$act,$stateno);

        $stateno=$$stack[-1][0 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	18227	18332	
==>itle_string = $parser->get_title

This tries to get the title string out of $parser, by getting some token <==
2	/Users/nnunley/parrot/config/auto/jit.pm	2734	2850	
==>nf->data->set(asmfun_o => 'src/asmfun$(O)');
    } else {
        $conf->data->set(asmfun_o => '');
    }

    $jitca <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718015	718107	
==>PIO_puts(interpreter, io, \" \");\n  PIO_fprintf(interpreter, io, INTVAL_FMT, (INTVAL){{\@2}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718947	719039	
==>PIO_puts(interpreter, io, \" \");\n  PIO_fprintf(interpreter, io, INTVAL_FMT, (INTVAL){{\@2}} <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	5003	5101	
==>next unless s/.*\b_S\b//;

  my $str = extract_bracketed $_, '(")';

  print output_string (substr( <==
2	/Users/nnunley/parrot/Configure.pl	9901	10059	
==>nings qw(once);
    $Parrot::Configure::Step::conf = $conf;
}
$conf->add_steps(@steps);
$conf->options->set(%args);
# Run the actual steps
$conf->runsteps or e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041614	1042018	
==>i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1164,
                  "ARGS" => [
                              "sc",
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line 120 \"src/ops/va <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088855	1088943	
==>ine 186 \"src/ops/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089803	1089891	
==>ine 186 \"src/ops/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, { <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	1618	1731	
==>, $expected, $description)> 

Runs a langugage test and passes the test if a string comparison
if a string compari <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	14715	14974	
==>$f} => $vtables{$f}
	}
	else {
	    print <<EOC;
	# $namespace{$f}
	# addattribute P5, "$f"
EOC
	}
    }
    else {
	$pir_functions{$f} = 1;
    }
    $make_f = 1 unless $f =~ /lambda/;
}

sub binary
{
    my ($op, $cmt) = @_;
    my $r = pop @stack;
    my $l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104306	104592	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "n_bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6171	6270	
==>ble sort cities
TRUE=1
FALSE=0
DIM A$(4)
A$(1) = "New York"
A$(2) = "Boston"
A$(3) = "Chicago"
A$(4) <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15824	15923	
==>ble sort cities
TRUE=1
FALSE=0
DIM A$(4)
A$(1) = "New York"
A$(2) = "Boston"
A$(3) = "Chicago"
A$(4) <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	767	863	
==>his file should contain a transcript of the svn:ignore properties
# of the directories in the Par <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3622	3718	
==>his file should contain a transcript of the svn:ignore properties
# of the directories in the Par <==
2	/Users/nnunley/parrot/tools/docs/pod_errors.pl	691	800	
==>s ', 
		$file->num_pod_errors, 
		' error',
		$file->num_pod_errors != 1 ? 's' : '', 
		":\n",
		$errors;
}

e <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2356	2470	
==>laration on line %d of file '%s'.",
      $self->name, $sym->line, $sym->file);
  }

  #
  # Now that we've decided <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2103	2217	
==>laration on line %d of file '%s'.",
      $self->name, $sym->line, $sym->file);
  }

  #
  # Now that we've decided <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	839739	840069	
==>UMP" => 0,
                  "NAME" => "rotate_up",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 952,
                  "ARGS" => [
                              " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840433	840731	
==>UMP" => 0,
                  "NAME" => "rotate_up",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 953,
                  "ARGS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10972	11092	
==>test.out');

    return $output;
}

=item C<cc_clean()>

Cleans up all files in the root folder that match the glob F<tes <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	1335	1522	
==>rrot::Config::PConfig
	} or die "Unable to locate Parrot::Config.\n";
	
	# Return configuration.
	return (%config, trans_parrot_path => $_[0], srm => $_[1]);
}


# Generate the mak <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	3412	3607	
==>lative_path('include/parrot'),
    ;
}

=item C<c_header_file_with_name($name)>

Returns the C header file with the specified name.

=cut

sub c_header_file_with_name
{
    my $self = shift;
    m <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	2139	2240	
==>e Data::Dumper;
print Data::Dumper->Dump([$m],["*MATCH_OBJECT"]);
my $mini = minimatch($m);
print Data <==
2	/Users/nnunley/parrot/config/inter/ops.pm	630	819	
==>if ($b =~ /core\.ops/) { return 1 }
            return ($a cmp $b)
            }
            grep {
            !/vtable\.ops/
            } glob "src/ops/*.ops"
    );

    my $ops = join ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	923	1025	
==>r_opcode[i])
#define NREG(i) REG_NUM(cur_opcode[i])
#define PREG(i) REG_PMC(cur_opcode[i])
#define SREG <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1039	1141	
==>r_opcode[i])
#define NREG(i) REG_NUM(cur_opcode[i])
#define PREG(i) REG_PMC(cur_opcode[i])
#define SREG <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	6946	7096	
==>),
            $self->c_pair_item('', 'tsq'),
        ),
        $self->new_group(
            'Exceptions',
            '',
            $self->c_pair_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	14795	14935	
==>1}}/mg)
        {
            $branch = 1;
            $restart = 1;
        }
        elsif($body =~ s/\brestart\s+NEXT\(\)/{{=0,+=$op_size} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7299	7433	
==>onder_paragraph_buffer();
         # by now it's safe to consider the previous paragraph as done.
                
        push @$paras <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	8265	8382	
==>onder_paragraph_buffer();
         # by now it's safe to consider the previous paragraph as done.
        push @$paras <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	1999	2149	
==>m};
    return 1 if $m =~ /^\d+$/;	# MMD nr
    return 0;
}

sub type_map {
    my $t = $_[0];
    return $type_map{$t} if $type_map{$t} ;
    return $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	19750	19976	
==>d its descendants)
        # no need to back-update the counter just yet
        redo;

      } elsif($merge and $i != 2 and  # non-initial
         !ref $treelet->[$i] and !ref $treelet->[$i - 1]
      ) {
        DEBUG > 3 an <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9168	9385	
==>type, $ident, { %props }, [ @formal_args ]);
        push @{$self->{BLOCKS}}, $sub;
      }

      next;
    }

    #
    # Loops:
    #
    #   <label>: until (<value> <op> <value>) {
    #            until (<value> < <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	79	175	
==>8.452322Z bernhard  $

package Regex::CodeGen::Re;
use Regex::RegexOps ();
use base 'Regex::CodeG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	67307	67599	
==>);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "collect",
                  "FLAGS" => "",
                  "A <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722844	723259	
==>RGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 810,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 149 \"src/ops/python.ops\"\n  STRING * const s = {{\@2} <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	28944	29087	
==>PerlHash array_$englishname
	find_global \$P1, "BASICARR"
	\$P1["${_}$seg"]= array_$englishname
	store_global "BASICARR", \$P1
PUSHARR
			# push <==
2	/Users/nnunley/parrot/tools/dev/pbc_header.pl	458	553	
==>ation in the bytecode,
but can of course not assure that it will run correctly, when incompatibl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048	1198	
==>t see this\")\n\n\n\n\n/*\n** object.ops\n*/\n\n\n\n\n/*\n** pic.ops\n*/\n\n#define DEPRECATED internal_exception(UNIMPLEMENTED, \"you shouldn't see th <==
2	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	274	400	
==>ine

  /* CHECKSUM: <checksum> */

to the end of all generated output files, and checking for that line
before rerunning the bu <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3597	3699	
==>KIP <<'END_HEADER';
#
# This file should contain a transcript of the svn:ignore properties
# of the dir <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11064	11164	
==>EFGHIJKLMNOPQRSTUVWXYZ0123456789])/sprintf('%%%02X',ord($1))/eg;
        # Yes, stipulate the list wi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4413	4512	
==>EFGHIJKLMNOPQRSTUVWXYZ0123456789])/sprintf('%%%02X',ord($1))/eg;
       # Yes, stipulate the list wi <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2309	2427	
==>se {
		$retval = $self->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exists($$self{USER})
	o <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2223	2331	
==>se {
		$retval = $self->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exists($$self{USER})
	o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	624775	624881	
==>X */\n    parrot_context_t *ctx;\n    opcode_t *pc;\n    void **pred_pc;\n    INTVAL i, n_args, *sig_bits;\ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	9167	9281	
==>TERNAL_ERROR()
#

sub INTERNAL_ERROR
{
  my ($self, $format, @args) = @_;
  $self->ERROR('Internal', $format, @args <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828812	828910	
==>OR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_pmc(entry->entry);\n  {{+=3} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829880	829978	
==>OR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_pmc(entry->entry);\n  {{+=3} <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11573	11772	
==>nything on the lazy moves stack?
${ITEMP0} = elements lazy_moves
if ${ITEMP0} > 0 goto PRE_CALL_${CURIC}_LAZY_MOVE_RET

# Build register name to pop if not lazy.
${ITEMP1} = elements ${STYPES}
dec ${I <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	4889	5050	
==>f the op's argument at C<$index>.

=cut

sub arg_dir
{
    my $self = shift;

    return $self->{ARGDIRS}[shift];
}

=item C<body($body)>

=item C<body()>

Sets/g <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4619	4737	
==>sif (@{ $self->{args} } == 1 && 2 == keys %$self) {
        return $self->{args}->[0];
    } else {
        return $sel <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5756	5874	
==>sif (@{ $self->{args} } == 1 && 2 == keys %$self) {
        return $self->{args}->[0];
    } else {
        return $sel <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	2128	2250	
==>$tree->max, $tree->greedy,
                                 $self->convert($tree->thing, $ctx) ]);
}

sub convert_rx_meta { <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23586	23698	
==>abel"]);
    $self->_add_inst('','set',[$return,$temp]);
    $self->_add_inst("NEXT_$label");
    $self->_restore <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24048	24160	
==>abel"]);
    $self->_add_inst('','set',[$return,$temp]);
    $self->_add_inst("NEXT_$label");
    $self->_restore <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9955	10052	
==>is module, like Pugs, is a work in progress. As new features are
added to Pugs, new test functions <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	8314	8544	
==>if (@sub && $sub[0] ne '') {
        if ($op->minlen() == 0) {
            return ('', @sub);
        } else {
            return @sub;
        }
    } else {
        return @sub;
    }
}

package Regex::Ops::Tree::scan;
sub maxlen <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6526	6615	
==>ITEMP2} = elements ${STYPES}
pre_call_PLOOP_${CURIC}:
if ${ITEMP0} == 0 goto PRE_CALL_END_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22155	22263	
==>and print "Seems to match =head1 NAME pattern.\n";
      $title = '';
      foreach my $t (reverse @to_unget) <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	3860	3998	
==>MD_/);
        $struct .= "    $entry->[1]_method_t $entry->[1];\n";
    }

    $struct .= "};\n";

    return $struct;
}

=item C<vtbl_mac <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	311694	311859	
==>"JUMP" => 0,
                  "NAME" => "backtrace",
                  "FLAGS" => ":base_debug",
                  "ARGDIRS" => [],
                  "TYPE" => "func <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2885	3032	
==>cept_targets( 'html', 'HTML' );
  $new->accept_codes('VerbatimFormatted');
  $new->accept_codes(@_to_accept);
  DEBUG > 2 and print "To accept: ", j <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	664	770	
==>x = $self->peer ? $peer->prefix : $compiler->block_label($kind);
    $self->prefix($prefix);
  }

  my $nam <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	644	750	
==>x = $self->peer ? $peer->prefix : $compiler->block_label($kind);
    $self->prefix($prefix);
  }

  my $nam <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753558	753648	
==>ine 261 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754346	754436	
==>ine 261 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{ <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10772	10861	
==>_[19],10,0xfe2ce6e0,/* 58 */
II,$c,$d,$a,$b,$_[10],15,0xa3014314,/* 59 */
II,$b,$c,$d,$a,$ <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	116	238	
==>0T15:23:20.183054Z coke  $

=head1 NAME

tools/dev/parrot_api.pl - Verify Parrot API (symbols)

=head1 SYNOPSIS

    % perl <==
2	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	1769	1892	
==>INLOOPNR

DOLINE:
	save S0
	bsr RUNLINE
	restore I0
	branch ENDMAINLOOP
	end

ENDMAINLOOP:
	branch MAINLOOPR 
ENDMAINLOOPNR: <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22933	23067	
==>defined $::RD_TRACE;
		}
		') . ($self->{"lookahead"} ? '$text = $_savetext and ' : '' ) .'
		last '
		. ($self->{"lookahead"}<0?'if':' <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	1811	1991	
==>lt('yes');

    if ($gccversion) {

        # If using gcc, crank up its warnings as much as possible and make it
        # behave  ansi-ish.  Here's an attempt at a list of nasty t <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	104	209	
==>21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Section::Docs - Docs documentation section

=h <==
2	/Users/nnunley/parrot/Configure.pl	6484	6635	
==>ton instead of inet_pton

Parrot Options:

   --intval=(type)      Use the given type for INTVAL
   --floatval=(type)    Use the given type for FLOATVAL <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	554	662	
==>d $block;
  confess "Left is not defined!" unless defined $left;
  confess "Op is not defined!" unless define <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	566	674	
==>d $block;
  confess "Left is not defined!" unless defined $left;
  confess "Op is not defined!" unless define <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605925	606162	
==>ibute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606716	606953	
==>ibute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	50310	50511	
==>ck to step 1.

=item 4.

Unconditionally match a bareword or any other single character, and
then go back to step 1.

=back


Examples:

        # Find a while loop in the text

                if ($tex <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586145	586659	
==>AGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 667,
                  "ARGS" => [
                              "p",
                              "s",
                              "k"
                            ],
                  "BODY" => "#line 314 \"src/ops/object.ops\"\n  PMC * <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	3268	3493	
==>sub is_redo          { return shift->is('redo');          }
sub is_return        { return shift->is('return');        }
sub is_sub           { return shift->is('sub');           }
sub is_unless        { return shift->is('unles <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62617	62886	
==>n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorsoff",
                  "FLAGS" => "" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63262	63531	
==>n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorsoff",
                  "FLAGS" => "" <==
2	/Users/nnunley/parrot/lib/Test/More.pm	22659	22809	
==>empty, delete it.

B<NOTE>: TODO tests require a Test::Harness upgrade else it will
treat it as a normal failure.  See L<BUGS and CAVEATS>)


=item B<t <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6004	6122	
==>_group{$pmc} = $group;
        push @{ $group_files{$group} }, $pmc;
        $group_libs{$group} ||= {};
        foreac <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6215	6333	
==>_group{$pmc} = $group;
        push @{ $group_files{$group} }, $pmc;
        $group_libs{$group} ||= {};
        foreac <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1002	1110	
==>qq[.o];
our $CFLAGS = qq[-I/opt/local/include -fno-common -no-cpp-precomp  -pipe -Wdeclaration-after-statemen <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	1006	1114	
==>qq[.o];
our $CFLAGS = qq[-I/opt/local/include -fno-common -no-cpp-precomp  -pipe -Wdeclaration-after-statemen <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46494	46748	
==>OT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "debug",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786160	786267	
==>{\@2}}->vtable->get_integer_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787071	787178	
==>{\@2}}->vtable->get_integer_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716503	716604	
==>r, p));\n  if (s) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724395	724496	
==>r, p));\n  if (s) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \" <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	27107	27202	
==>a string representing an optimized pattern (a la Friedl)
# that matches a substring delimited by <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	25684	25837	
==>next,
    );
    push @opcodes, @{$then};
    push @opcodes, new BranchOp( $parser,
        'result' => $l_end,
    );
    push @opcodes, new LabelO <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	7561	7709	
==>~ /PUN/) {
			feedme();
			($resultb, $typeb, @codeb)=EXPRESSION();
		}
	}
	if (@codeb and @codef) {  	# F and B
		push @{$code{$seg}->{code}},<<FAND <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	5405	5558	
==>ture.pl or feature_h.in 
            local *OUT = $out;
            my $text = do {local $/; <$in>};
            # interoplate @foo@ values
            $t <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	31829	31997	
==>= $name;
    $n =~ s/["]//g;
    my $mangle = qq!"py::$n"!;
    $classes{$n} = $mangle;
    print <<EOC;
	$cl = subclass $parent_tuple->[1], $mangle $cmt
	global $name = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	28787	28929	
==>$para_type for our own twisted purposes, to
      #  mean how it should get treated, not as what the element name
      #  should be.

      DE <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	11124	11246	
==>ed   { color: #500; }
    .tests_todo     { color: #030; }
    .tests_skipped  { color: #555; }
    .tests_unexpect { color <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1001830	1002328	
==>",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1119,
                  "ARGS" => [
                              "i",
                              "i",
                              "sc", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862516	862768	
==>length(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863285	863537	
==>length(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12089	12235	
==>ar('sol')>, C<e2char('47')>,
C<e2char('0x2F')>, and C<e2char('057')> all return "/",
because C<EE<lt>solE<gt>>, C<EE<lt>47E<gt>>, C<EE<lt>0x2fE<gt> <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	6681	6837	
==>abels
        if ($line =~ /^\s* (\w+) \s* : \s*$/mx) {
            $code .= emit($1."_%0:", 'loop_num');
            next;
        }
        
        # rena <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	4799	5033	
==>\*\s+\b| \*|gs;
        
        esc($text);
    }
    
    print {$self->{'output_fh'}} $text;
}

=item C<process_file_start_token($token)>

Processes the file start token. If the text of the next token is a file
path and that file co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79499	79606	
==>ue */\n      {{\@1}} = pmc_new(interpreter, enum_class_UnManagedStruct);\n      PMC_data({{\@1}}) = p;\n  }\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81020	81127	
==>ue */\n      {{\@1}} = pmc_new(interpreter, enum_class_UnManagedStruct);\n      PMC_data({{\@1}}) = p;\n  }\ <==
2	/Users/nnunley/parrot/tools/dev/manicheck.pl	486	645	
==>t the files present in
this directory tree, accounting for .svn dirs. Prints out the
number of I<missing>, I<expected> and I<extra> files, and
then any extra fi <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	6214	6454	
==>lasses{$name} ){
                if ( $CHECK_CLASS_MEMBERSHIP ) {
                    $out .= "    croak '$name argument is wrong class' if \@_ && ! UNIVERSAL::isa(\$_[0], '$classes{$name}');\n";
                }
            }
            $ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	13102	13246	
==>globals{$c};
	print <<"EOC";
	# $c = global "$c" $cmt
EOC
    }
    else {
	my $type = 'pmc';
	$p = $c;
	if ($type_map{$c}) {
	    $c = $p = $typ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	36843	37005	
==>ception(interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUM <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	13803	13928	
==>b doc_start {
  my $self = $_[0];
  my $title = $self->get_short_title();
  DEBUG and print "Short Title: <$title>\n";
  $titl <==
2	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	460	582	
==>eserv-client v" . VERSION . " started.\n";

setup_compression() if $compression_wanted;

my %request = (upload => 1, versio <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	932	1056	
==>nk($File::Find::name)
                        }}, $SRCDIR);

    # build parrot with coverage support
    system("perl Config <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9557	9668	
==>c", 'test.cco', 'test.cco', $verbose)
        and confess "C compiler failed (see test.cco)";

    _run_command( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19277	19380	
==>y,
stuff wow yeah!".

If the title can't be found, then get_short_title returns empty-string
("").

=ite <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7133	7250	
==>semval);
            ($lhs,$len,$code)=@{$$rules[-$act]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6802	6914	
==>semval);
            ($lhs,$len,$code)=@{$$rules[-$act]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8562	8686	
==>xisting_file_with_name
{
    my $self = shift;
    my $path = $self->path_for_file_with_name(shift) || return;
    
    retur <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683822	684095	
==>{\@2}}->vtable->shift_pmc(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21350	21514	
==>tor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 66
		ACTIONS => {
			'NAME' => 120
		}
	},
	{#State 67
		ACTIONS => {
			"-" => 24,
			' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	249372	249678	
==>2}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "not", <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	59466	59562	
==>char
is used for the remaining delimiters.
If no escape char is specified for a given specified d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824183	824334	
==>"
                            ],
                  "BODY" => "#line 133 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547526	547703	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fact",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548432	548609	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fact",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	327	454	
==>Jako::Construct::Expression::Value::Literal;

use Carp;

use base qw(Jako::Construct::Expression::Value);

sub new
{
  my $class <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2363	2458	
==>f->INTERNAL_ERROR("Can't determine type of formal argument (%s)!", $formal_arg_name) 
      unle <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2063	2158	
==>f->INTERNAL_ERROR("Can't determine type of formal argument (%s)!", $formal_arg_name) 
      unle <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4559	4664	
==>lose(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note that for loading debugging version o <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4331	4430	
==>lose(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note that for loading debugging version o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084210	1084778	
==>RS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1203,
                  "ARGS" => [
                              "p",
                              "p",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 163 \"src/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interp <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	25861	26047	
==>num";
		}

		# Unknown.
		else {
			die "Known argument type $_ not implemented yet.\n";
		}

		# Generate PIR.
		$pir .= sub_meta($out, $mv, "argument read");
		$mv->{"ARG$arg_num"} = $m <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	11607	11761	
==>group) = 0;
    while($line_group =~
      m/([^\n\r]*)((?:\r?\n)?)/g
    ) {
      #print(">> $1\n"),
      $self->parse_lines($1)
       if length($1) or <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	122	216	
==>Z bernhard  $

=head1 NAME

Parrot::Docs::Section::Docs - Docs documentation section

=head1 SY <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3698	3906	
==>}


    DEBUG > 5 and print "# Parsing line: [$line]\n";

    if(!$self->{'in_pod'}) {
      if($line =~ m/^=([a-zA-Z]+)/s) {
        if($1 eq 'cut') {
          $self->scream(
            $self->{'line_count' <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30875	30967	
==>nt " not found\\n"
	_platform_shutdown()
	end
DISP2
RTJUMP:
	push @{$code{$seg}->{code}}, <<R <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4315	4508	
==>t(-1);

  while(1) {
    $token      = $self->forth;
    $last_token = $self->get(-1);

    last if $token->is_eof;

    #
    # Labels:
    #
    #   <label>:
    #

    if ($token->is_label) { <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	1682	1858	
==>GS;

    Parrot::Test::write_code_to_file( $code, $lang_f );

    my $cmd;
    my $exit_code = 0;
    my $pass = 0;

    my $executable = File::Spec->join($path_to_parrot,$self- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	244	347	
==>8:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block::File;

use Car <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65047	65205	
==>t::Repetition($name,"$1..$2",$1,$2,
										   $lookahead,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod-> <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	19937	20082	
==>need a symbol export list.

sub gen_def {
    my ($include, $pmcs) = @_;

    my ($pmcfilename, $pmcname);
    my %groups;
    foreach $pmcfilenam <==
2	/Users/nnunley/parrot/config/auto/jit.pm	3304	3484	
==>$jitcpuarch",
            TEMP_jit_o  =>
                '$(SRC_DIR)/jit$(O) $(SRC_DIR)/jit_cpu$(O) $(SRC_DIR)/jit_debug$(O) $(SRC_DIR)/jit_debug_xcoff$(O)'
        );

        if ( <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	12111	12254	
==>print OUT "<pre>";

    # filter out any branch coverage lines.
    do_filter(sub { /^branch/ } );

    print OUT "</pre>";
    print OUT page_f <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39	131	
==>Generator.pm 15849 2006-01-14T10:37:55.635677Z bernhard  $

package Scheme::Generator;

use s <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	3917	4038	
==>f) = split(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a = qq!"$a"!;   # quote argument
		    $def_arg_names{$f}{$a} = $i <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	4416	4537	
==>f) = split(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a = qq!"$a"!;   # quote argument
		    $def_arg_names{$f}{$a} = $i <==
2	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	66	194	
==>/parrot/tools/build/fingerprint_c.pl 20350 2006-06-25T03:57:27.771662Z petdance  $

=head1 NAME

tools/build/fingerprint_c.pl - C <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	15425	15577	
==>ries[$i-1] unless $i == 0; # Label for the try
        push @ops, $self->dbprint("Trying alternative $i of 0..$#args\n");
        push @ops, @{ $iops[$i] <==
2	/Users/nnunley/parrot/lib/Test/More.pm	22221	22325	
==>ed success.
You then know the thing you had todo is done and can remove the
TODO flag.

The nice part abo <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	10221	10394	
==>s;
#    if ($name ne 'default') {
#     @ops = split(/\n/, <<"END");
# sub _rule_$name {
#     my <rx_mode> = shift;
#     my (<rx_input>, <rx_pos>, <rx_stack>);
#     my \%r <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	202	339	
==>ymbol.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings 'all';";

package Jako::Symbol;

use Carp;


#
# CONS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101363	1101508	
==>c"
                            ],
                  "BODY" => "#line 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1102562	1102707	
==>c"
                            ],
                  "BODY" => "#line 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL re <==
2	/Users/nnunley/parrot/lib/Test/More.pm	16224	16328	
==>'re testing loads ok, rather
than just vomiting if its load fails.  For such purposes we have
C<use_ok> a <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	3106	3253	
==>{builder}->diag($diag) if $diag;
        }

        # The generated files are left in the t/* directories.
        # Let 'make clean' and 'svn:i <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2699	2844	
==>{builder}->diag( $diag ) if $diag;
        }

        # The generated files are left in the t/* directories.
        # Let 'make clean' and 'svn:i <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	896	1031	
==>g_f" or die "Unable to open '$lang_f'"; # JMG
        binmode LANG; # JMG
        print LANG $lang_code; # JMG
        close LANG; # JMG <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	808	943	
==>g_f" or die "Unable to open '$lang_f'"; # JMG
        binmode LANG; # JMG
        print LANG $lang_code; # JMG
        close LANG; # JMG <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3640	3748	
==>is not a module!")
        unless $self->block->kind eq 'module';

      my %module_props = $self->block->pro <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6304	6412	
==>is not a module!")
        unless $self->block->kind eq 'module';

      my %module_props = $self->block->pro <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11339	11442	
==>se(OUT);
    close(IN);


    $outfile = "$outfile_base.branches.html";
    print "Writing $outfile..\n" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	247	445	
==>5.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block::Loop;

use Carp;

use Jako::Compiler;

use base qw(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	229898	230292	
==>",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 268,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 545 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_p <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	4708	4880	
==>rt Digest::MD5 'md5_hex'
	  };
	  if ($@) { # ups, no Digest::MD5
	    require Digest::Perl::MD5;
	    import Digest::Perl::MD5 'md5_hex'
	  }		
	}

If the C<Digest::MD5> mo <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	18704	18846	
==>'default', $_[1], 1 + $::paren ]);
     $::paren = 0; # FIXME!
     return $op;
   }
	],
	[#Rule 5
		 'regex', 2,
sub
#line 97 "lib/Regex/Gramm <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011418	1011669	
==>ommand(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012183	1012434	
==>ommand(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	3163	3336	
==>, *return_data);",
       2 => "set_nci_I(interpreter, &st, *return_data);",
       f => "set_nci_N(interpreter, &st, return_data);",
       d => "set_nci_N(interpreter, &st, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	36196	36322	
==>n  PMC * const eh = pmc_new(interpreter, enum_class_Exception_Handler);\n  VTABLE_set_pointer(interpreter, eh, CUR_OPCODE + {{\ <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	7745	7889	
==>->{op} ) {
            print {$FH}
                "  unless $op->{arg1}->{symbol} $op->{op} $op->{arg2}->{symbol} goto $op->{result}->{symbol} <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	39702	39842	
==>.|Foo Bar>
      }


      # Now make up the link_text
      # L<Foo>     -> L<Foo|Foo>
      # L</Bar>    -> L<"Bar"|Bar>
      # L<Foo/Bar> <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3521	3703	
==>$conf->data->set(
            share_ext  => '.dll',
            load_ext   => '.dll',
            a          => '.lib',
            o          => '.obj',
            cc_o_out   => '-F <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3009	3133	
==>OGRAM ################

my ($mode, @pmcs) = @ARGV;

if ($mode eq 'generate') {
    # Convert X.pmc -> X.dump and X.c and also <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3113	3237	
==>OGRAM ################

my ($mode, @pmcs) = @ARGV;

if ($mode eq 'generate') {
    # Convert X.pmc -> X.dump and X.c and also <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	531	642	
==>ta->clean;
    $data->settrigger($key, $trigger, $cb);
    $data->gettriggers($key);
    $data->gettrigger($key, <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	5246	5426	
==>>{'name'}\n";
                } else {
                    $has_code = 1;
                }
            } else {
                die "Invalid value for code in rule $rule->{'name'}\ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4317	4411	
==>EMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${DEST$push_num} = ${STEMP0}

# Increment dtyp <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2733	2827	
==>EMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${DEST$push_num} = ${STEMP0}

# Increment dtyp <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	8035	8163	
==>r_opcode == (opcode_t *) 1)
    asm ("jmp *4(%ebp)");	/* jump to ret addr, used by JIT */
# endif
#endif
    _reg_base = (char*)i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	482	596	
==>EDO', LAST => 'LAST' },
  'if'       => { PREFIX => "_I", NEXT => 'TEST', REDO => 'THEN', LAST => 'ELSE' },
  'sub' <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	503	617	
==>EDO', LAST => 'LAST' },
  'if'       => { PREFIX => "_I", NEXT => 'TEST', REDO => 'THEN', LAST => 'ELSE' },
  'sub' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	153410	153712	
==>ME" => "eq_num",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
2	/Users/nnunley/parrot/config/init/manifest.pm	683	876	
==>}

    my @missing = ExtUtils::Manifest::manicheck();

    if (@missing) {
        print <<"END";

Ack, some files were missing!  I can't continue running
without everything here.  Please try to <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23452	23563	
==>dircount} .  '__'; }

sub new ($$$;$)
{
	my $class = ref($_[0]) || $_[0];
	bless 
	{
		"lookahead" => $_[1],
		" <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11838	12011	
==>, <<"END");
$uid = _$name($mode, <rx_input>, <rx_pos>, <rx_stack>)
<rx_pos> = $uid\['!POS']
END
}

sub output_call_result {
    my ($self, $uid, $name, $fail) = @_;
    my $f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840161	840249	
==>s\"\n  rotate_entries(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}});\n  { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840856	840944	
==>s\"\n  rotate_entries(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}});\n  { <==
2	/Users/nnunley/parrot/examples/benchmarks/stress.pl	762	846	
==>s/stress2.pasm>, 
F<examples/benchmarks/stress2.pl>, 
F<examples/benchmarks/stress3.p <==
2	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	823	907	
==>s/stress2.pasm>, 
F<examples/benchmarks/stress2.pl>, 
F<examples/benchmarks/stress3.p <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	7226	7406	
==>cl/Makefile',
        commentType                    => '#',
        replace_slashes                => 1,
        conditioned_lines              => 1
    );
    genfile(
        'la <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	3136	3267	
==>ontext="#stay" String="special_directives" />
          <keyword attribute="Type" context="#stay" String="types" />
          <RegEx <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2893	2985	
==>turn $index_html;
}

=item C<contents_relative_to_source($source)>

Returns the contents of t <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	4902	4994	
==>turn $index_html;
}

=item C<contents_relative_to_source($source)>

Returns the contents of t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	524238	524931	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sqrt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 605,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 757 \"src/ops/math.ops\"\n  {{\@1}} = sqrt((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	8441	8570	
==>.0", "INT"],   # Cheating, making not a binary op
				[ "not", "PUN"] );
			next;
		}

		if ($unary) {
			push(@expr, [ "-1.0", "I <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026532	1026777	
==>\"\n   {{\@1}} = sysinfo_i(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1027289	1027534	
==>\"\n   {{\@1}} = sysinfo_i(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	652713	653022	
==>( {
                  "JUMP" => "PARROT_JUMP_RESTART",
                  "NAME" => "find_method",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653873	654182	
==>( {
                  "JUMP" => "PARROT_JUMP_RESTART",
                  "NAME" => "find_method",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1635	1731	
==>t ${STACK$register_num}
${INS} = concat " = pop s\n"
PIR
		$pir =~ s/\$register_num/$register_num <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3345	3441	
==>t ${STACK$register_num}
${INS} = concat " = pop s\n"
PIR
		$pir =~ s/\$register_num/$register_num <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23204	23363	
==>$label");
  $self->_restore($temp_0,$temp_1);
  return $return;
}

sub _op_max {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $retu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177484	177958	
==>IRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 212,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 240 \"src/ops/cmp.ops\"\n  if ({{\@1}} != { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822284	822377	
==>_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_INT) {\n    int <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823352	823445	
==>_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_INT) {\n    int <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	1689	1880	
==>$ch =~ /@/ and
	    $token =~ /^,$/) {    # token ,@
      $token .= $ch;
    } else {
      push @$tokref,$token;
      $token = $ch;
    }
  }
  return [grep { /\S/ } @$tokref];
}

1;
__END_ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	5002	5128	
==>or 
		$self->modified_since($self->{POD_ERRORS_TIME}) )
	{
		my $checker = Pod::Simple::Checker->new;
	
		$self->{POD_ERRORS_TI <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	16340	16506	
==>eys %pir_2_pasm_test_map ) {
        push @EXPORT, $func;
        no strict 'refs';

        *{$package.'::'.$func} = sub {
            my ( $code, $expected, $desc, % <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	4418	4588	
==>?!\w)(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, $1, undef, $1);
      $text = $2;
      next;
    }

    #
    # (Prefix) Ops:
    #

    if ($t <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2299	2434	
==>elf->{opt}{library};

    if ($library) {
        my $hout = $self->gen_h($library);
        my $h = "$library.h";
        my $c = "$lib <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4745	4961	
==>rue   " else f$="False "
print a$;b$;c$;d$;e$;f$
next j,i

' Function Array scopes, expect 4, 5.6
function mine(a)
	dim t(6)
	t(3)=2
	mine=a*2
	print t(3)*2
end function
dim t(7)
t(3)=5.6
a=mine(5)
print t(3)

' Unary <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	19501	19607	
==>ef;
		pos $$textref = $startpos;
		return;
	}
	pos($$textref) = $ld1pos;	# HAVE TO DO THIS BECAUSE LOOKAHEA <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	9931	10014	
==>$outfile_base.lines.html#$function">@{[$function_line_coverage{$source_file}{$functi <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5884	6015	
==>path_is_directory($rel_path) )
    {
        my $dir = $source->directory_with_relative_path($rel_path);
        
        # There ma <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10464	10585	
==>_, $_);
        }
        push @ranges, [ ord($first), ord($last) ];
    }

    return _ranges_to_incexc(\@ranges);
}

sub <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3373	3476	
==>S} = concat " = pop s\n"
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$register_num++;
	}

	# Retur <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	18795	18922	
==>sion to build up a binary search style tree to dispatch
    # to the translation code for an instruction in something like O(log <==
2	/Users/nnunley/parrot/config/gen/platform.pm	5529	5664	
==>form_asm')) {
        my $asm_file = "config/gen/platform/$platform/asm.s";
        if (-e $asm_file) {
            copy_if_diff($asm_fi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64770	64881	
==>rp->code = interpreter->code;\n  runops(new_interp, REL_PC + {{\@2}});\n  {{+=3}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65721	65832	
==>rp->code = interpreter->code;\n  runops(new_interp, REL_PC + {{\@2}});\n  {{+=3}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1460	1617	
==>directory($path)>

Returns the directory for C<$path> relative to the default temporary
directory.

=cut

sub tmp_directory
{
    my $self = shift;
    
    r <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6361	6456	
==>CURIC}:
i = elements P_arg_0
POST_BRANCH_switch_${CURIC}_LOOP:
if i == 0 goto POST_BRANCH_switch <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4299	4394	
==>CURIC}:
i = elements P_arg_0
POST_BRANCH_switch_${CURIC}_LOOP:
if i == 0 goto POST_BRANCH_switch <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	2177	2417	
==>no strict 'refs'; defined &{$class . "::new"} };

    my @methods = ();
    my %refs = ();
    my %arrays = ();
    my %hashes = ();
    my %classes = ();
    my $got_class = 0;
    my $out = '';

    $out = "{\n  package $class;\n  use Carp <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3399	3545	
==>'],
  ['',            'inc', 'I2'],
  ['',            'set', 'P17', 'P17[1]'],
  ['',            'typeof', 'I16', 'P17'],
  ['',            'branch <==
2	/Users/nnunley/parrot/config/gen/icu.pm	46	159	
==>.
# $Id: /parrot/config/gen/icu.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/gen/icu.pm - ICU <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2505	2705	
==>",      # horizontal tab
                last;
            s/^\\v//
                and $str .= "\x0b",    # vertical tab
                last;
            s/^\\([0-9]{1,3})//
                and <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4019	4219	
==>",      # horizontal tab
                last;
            s/^\\v//
                and $str .= "\x0b",    # vertical tab
                last;
            s/^\\([0-9]{1,3})//
                and <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	252	351	
==>48089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statement::New;

use Ca <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2073	2170	
==>x) {
    $handler->start_element({ Name => 'loop', Attributes => { kind => $self->kind, name => $s <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	844	1008	
==>----------------------------------------
sub e2char {
  my $in = $_[0];
  return undef unless defined $in and length $in;
  
  # Convert to decimal:
  if($in =~ m/^( <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	968	1089	
==>em \'$(MAKE)\', @ARGV; exit $$? >> 8;"',
        ncilib_link_extra => '-def:src/libnci_test.def',
    );

    if ($is_msvc <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34505	34650	
==>argcode} }"
				   : ',undef')
		. ')))
		{
			'.($self->{"lookahead"} ? '$text = $_savetext;' : '')
			    .($::RD_NO_TRACE?'':'
			Parse::RecDes <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	760	849	
==>.pod'),
			$self->new_item('', 'docs/gettingstarted.pod'),
			$self->new_item('', 'docs/su <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	8221	8433	
==>utogenerated ops from oplib/core
    # there are unwanted permutations like 'add_i_ic_ic
    # which aren't opcodes but calced at compile-time
    #
    
    for(@{$ops->{OPS}}) {
        if (defined $fixed{$_->fu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	250111	250349	
==>"LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "not",
                  "FLAGS" => ":base_core <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	251510	251748	
==>"LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "not",
                  "FLAGS" => ":base_core <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6412	6527	
==>ts are exchanged.
   Exchange=FALSE
   ' Compare the array elements by pairs. When two are exchanged,
   ' force ano <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16065	16180	
==>ts are exchanged.
   Exchange=FALSE
   ' Compare the array elements by pairs. When two are exchanged,
   ' force ano <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	6423	6595	
==>();
	}
}
sub parse_locate {	# locate x,y   | locate x   | locate ,y  
	my($x,$y);
	my(@e2);
	my($resulty, $typey, @codey);
	my($resultx, $typex, @codex);
	if ($type[NEXT] =~ <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	1438	1574	
==>rrot::IO::Directory->new($self->parent_path);
}

=item C<read()>

This reads the contents of the file and returns it as an array or strin <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	148	252	
==>e $subname );
use vars qw( %labels $branchseq @selects);
use vars qw( @data $sourceline %common );
use va <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	760	880	
==>atch P0, ".ord($byte).$comment;
}

sub output_classmatch {
    my ($self, $class) = @_;
    return "re_match_class P0, $c <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5516	5619	
==>$base)>

Returns the C code following the run core function.

=cut

sub run_core_finish
{
    my ($self, <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3852	3955	
==>$base)>

Returns the C code following the run core function.

=cut

sub run_core_finish
{
    my ($self, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830666	830759	
==>NTEXT(interpreter->ctx)->user_stack, &i, STACK_ENTRY_INT, STACK_CLEANUP_NULL);\n  {{+=2}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831407	831500	
==>NTEXT(interpreter->ctx)->user_stack, &i, STACK_ENTRY_INT, STACK_CLEANUP_NULL);\n  {{+=2}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	3547	3651	
==>s, an underscore followed by underscore-separated argument types
are appended to the name.

=cut

sub ful <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9919	10018	
==>e($namespace,$self,$parser);

		$code .= $parser->{deferrable}
				? '		splice
				@{$thisparser->{d <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	57967	58113	
==>opeF( $_[0] );
            PushScope( $_[0] );
        }
	],
	[#Rule 96
		 'function', 3,
sub
#line 508 "Lua\lua51.yp"
{
            $_[3] <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	5092	5202	
==>ntation file.

=cut

sub process_file_start_token
{
    my $self = shift;
    my $token = shift;
    my $tagnam <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	1476	1635	
==>EASE_INSTRUCTIONS'),
        ),
        $self->new_group('Legal', '',
            $self->new_item('The licences under which Parrot is distributed.', 'LICENSES/A <==
2	/Users/nnunley/parrot/examples/benchmarks/freeze.pl	346	449	
==>rable> to archive the array.

=cut

use strict;
use warnings;

use Storable qw( freeze thaw dclone );
us <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3774	3881	
==>=> 'then' } });
  }

  if ($name) {
    $handler->start_element({ Name => $kind, Attributes => { loop => $na <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	69574	69984	
==>er);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "needs_destroy",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 93,
                  " <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	31069	31268	
==>tor' => 46,
			'args' => 153
		}
	},
	{#State 104
		DEFAULT => -42
	},
	{#State 105
		ACTIONS => {
			"(" => 123
		},
		GOTOS => {
			'funcbody' => 154
		}
	},
	{#State 106
		ACTIONS = <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	856	970	
==>d.
 *
 * Created by $svnid
 *  Overview:
 *     This file contains various charset tables.
 *  Data Structure and A <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4085	4199	
==>_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert lib-GROUP.so + A.so + B.so ... -> GROUP.so
    whil <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4189	4303	
==>_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert lib-GROUP.so + A.so + B.so ... -> GROUP.so
    whil <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24849	24952	
==>y, $textref,
				$match[2], $match[3]+$match[5]+$match[7],	# MATCH
				@match[8..9,0..1,2..7];				# REM, <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7681	7782	
==>y, $textref,
			$match[2], $match[3]+$match[5]+$match[7],	# MATCH
			@match[8..9,0..1,2..7];				# REM, <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18711	18938	
==>> 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			'THEN' => 102,
			"<=" => 85,
			'OR' => 84,
			">" => 86
		}
	},
	{#State 51
		ACTIONS <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	42109	42253	
==>> 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			'THEN' => 1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742745	742852	
==>ops/set.ops\"\n  {{\@1}} = string_from_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743511	743618	
==>ops/set.ops\"\n  {{\@1}} = string_from_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342113	342283	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 128 \"src/ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343113	343283	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 128 \"src/ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, <==
2	/Users/nnunley/parrot/config/init/defaults.pm	607	724	
==>{
    my ($self, $conf) = @_;

    # We need a Glossary somewhere!
    $conf->data->set(
        debugging => $conf->o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807901	808078	
==>->vtable->get_number_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808806	808983	
==>->vtable->get_number_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	1129	1280	
==>r now.
    @files = ();
    File::Find::find({wanted => sub {
        if ( $File::Find::dir =~ m:(languages|examples)$: ) {
            $File::Find::pru <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37898	38084	
==>r' => 35,
			'primary' => 28,
			'field' => 177
		}
	},
	{#State 146
		DEFAULT => -114
	},
	{#State 147
		DEFAULT => -113
	},
	{#State 148
		ACTIONS => {
			":" => 134,
			" <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	1543	1644	
==>($results{ptrsize} != $results{intvalsize}) {
        print <<"END";

Hmm, I see your chosen INTVAL is <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826611	826699	
==>->entry_type != STACK_ENTRY_FLOAT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wron <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827681	827769	
==>->entry_type != STACK_ENTRY_FLOAT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wron <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10029	10134	
==>1][0]]{ACTIONS}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Pop state $$stack[-1] <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9581	9683	
==>1][0]]{ACTIONS}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Pop state $$stack[-1] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924441	924701	
==>r, enum_stringrep_one, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925232	925492	
==>r, enum_stringrep_one, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/Configure.pl	4267	4501	
==>no_match_vars );
use Parrot::BuildUtil;
use Parrot::Configure;

# These globals are accessed in config/init/defaults.pm
our $parrot_version = Parrot::BuildUtil::parrot_version();
our @parrot_version = Parrot::BuildUtil::parrot_version( <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3136	3236	
==>reate any lib-GROUP.c files

    generate_dump($_) foreach (@pmcs);
    generate_c($_) foreach (@pmcs <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3240	3340	
==>reate any lib-GROUP.c files

    generate_dump($_) foreach (@pmcs);
    generate_c($_) foreach (@pmcs <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	26909	27014	
==>_be_none{$c};
		print <<"EOC";
	    ne_addr $c, None, temp_$code_l
	    $c = new $DEFVAR
temp_$code_l:
EOC <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6072	6208	
==>$act=   exists($$actions{ACTIONS}{$$token})
                    ?   $$actions{ACTIONS}{$$token}
                    :   exists($$action <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5784	5918	
==>$act=   exists($$actions{ACTIONS}{$$token})
                    ?   $$actions{ACTIONS}{$$token}
                    :   exists($$action <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	16069	16192	
==>ew;
 $parser->set_source( \@document_lines );
 $parser->run;

And elsewhere:

 require 5;
 package SomePodProcessor;
 use st <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	2242	2337	
==>local $::RD_HINT = 1;
		$self = Parse::RecDescent->new($grammar,1)
			|| croak("Can't compile ba <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	221	331	
==>OPSIS

	use Parrot::Docs::Libs;

=head1 DESCRIPTION

A documentation section describing libraries in Parrot.

= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609339	609432	
==>478 \"src/ops/object.ops\"\n    {{\@1}} = VTABLE_get_attr_str(interpreter, {{\@2}}, {{\@3}});\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610247	610340	
==>478 \"src/ops/object.ops\"\n    {{\@1}} = VTABLE_get_attr_str(interpreter, {{\@2}}, {{\@3}});\ <==
2	/Users/nnunley/parrot/config/auto/format.pm	346	457	
==>w(Parrot::Configure::Step::Base);

use Parrot::Configure::Step;

$description = 'Figuring out what formats shoul <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	11141	11249	
==>);

    my $lineno  = 1 + count_newlines($pre);
    $classblock = substr($classblock, 1,-1); # trim out the { <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	548	680	
==>AL::isa($dest, 'Jako::Construct::Expression::Value::Identifier');
  confess("Ident (" . ref($block) . ") not Identifer!") unless UNIV <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227393	227505	
==>n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228373	228485	
==>n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18819	18986	
==>arg->[1] };
        }
        else {
            push @opcodes, new NoOp($parser);
        }
        push @params, $arg->[0];
    }
    if ( scalar(@opcodes) and <==
2	/Users/nnunley/parrot/config/inter/ops.pm	976	1104	
==>n build and load
    # opcode subset libs
    if (0 && $conf->options->get('ask')) {
        print <<"END";


The following opcod <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	20793	20922	
==>n the test
ends.  It also changes the exit code as described below.

If this is true, none of that will be done.

=cut

sub no_hea <==
2	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	72	173	
==>ild a set of files only if the inputs have
changed, as judged by their checksums.

=head1 USAGE

  reb <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733681	733857	
==>/set.ops\"\n  {{\@1}} = string_to_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734445	734621	
==>/set.ops\"\n  {{\@1}} = string_to_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	6806	6902	
==>{\^-([^{]*?)}}/    $trans->expr_offset(-$1); /me;
    s/{{\^([^{]*?)}}/     $trans->expr_address( <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1954	2054	
==>ver 4

=item C<create_path()>

This is called from C<new()> to create the path if necessary.

=cut

s <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	931	1031	
==>ver 4

=item C<create_path()>

This is called from C<new()> to create the path if necessary.

=cut

s <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	33206	33423	
==>ple::LinkSection->new(
            $treelet->[$i][2]
          );                   # its own treelet
        } else {
          # It's a URL but complex (like "L<foo:bazE<123>bar>").  Feh.
          #$treelet->[$i][1] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412826	412995	
==>"i",
                              "i"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interprete <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413953	414122	
==>"i",
                              "i"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interprete <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	26614	26735	
==>'0' or $f eq '1';
      DEBUG > 2 and print "  Can't fall back on unknown code $f\n";
      $self->whine(
        $para->[ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1757	1864	
==>start_item_text   { $_[0]{'Thispara'} = ''   }

sub start_over_bullet  { ++$_[0]{'Indent'} }
sub start_over_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1325	1432	
==>start_item_text   { $_[0]{'Thispara'} = ''   }

sub start_over_bullet  { ++$_[0]{'Indent'} }
sub start_over_ <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6863	6971	
==>uild("$pmc.c", "$pmc.pmc")) {
        run("$PMC2C --c $pmc.pmc")
          or die "pmc2c code generation fail <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7074	7182	
==>uild("$pmc.c", "$pmc.pmc")) {
        run("$PMC2C --c $pmc.pmc")
          or die "pmc2c code generation fail <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	8425	8528	
==>---------------------------------------------------------------------
sub unaccept_target         { shif <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10242	10335	
==>---------------------------------------------------------------------
sub unaccept_code { shif <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	1998	2172	
==>ley/parrot/include' . $PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/src/classes' . $PATHQUOTE . " " .
        $source;
};

sub partial_link_cmd {
    m <==
2	/Users/nnunley/parrot/Configure.pl	3824	3928	
==>ons

=over

=item C<--maintainer>

Use this option if you want imcc's parser and lexer files to be genera <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	3264	3411	
==>de .= "  if argc > $max goto bad_args\n"
            if $max;
    }
    
    return $code;
}

sub helpers {
    my (@args) = @_;
    
    # types pr <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	48585	48731	
==>[#Rule 24
		 '@7-5', 0,
sub
#line 152 "Lua\lua51.yp"
{
            PushScope( $_[0] );
            InsertList( $_[0], $_[2] );
        }
	] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23094	23312	
==>dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25533	25751	
==>dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34049	34174	
==>ass'} eq 'branch') {
		# Call pre_branch and append code that it generates.
		my $pre_branch = $srm->pre_branch($rule->{'pop'} <==
2	/Users/nnunley/parrot/config/auto/gdbm.pm	81	209	
==>m 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/gdbm.pm - Test for GNU dbm (gdbm) library

=head1 DESCRIPTI <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	663	1171	
==>';
}


#
# line()
#

sub line
{
  my $self = shift;

  if (@_) { $self->{LINE} = shift; }

  return defined $self->{LINE} ? $self->{LINE} : '';
}


###############################################################################
###############################################################################
##
## TOKEN PROCESSING:
##
###############################################################################
###############################################################################


#
# tokens() <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	4673	4841	
==>efined $arg;
	$rest = '' unless defined $rest;
    }
    else {  # program output from import - really ugly
	push @code, [0,0, undef, 0, $l, ''];
	return;
    }
    push <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	52794	53060	
==>/s;
				$prod and $prod->addscore($1, $lookahead, $line)
				      or  _no_rule($code,$line);
			}
			elsif ($grammar =~ m/(?=$AUTOSCOREMK)/gco
				and do { ($code) = extract_codeblock($grammar,'{',undef,'<');
					 $code;
				       } )
			{
				_parse("an autoscore <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	10675	10773	
==>fixedpmcarray.pmc lexinfo.pmc multisub.pmc namespace.pmc none.pmc pair.pmc resizablebooleanarray.pm <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	7451	7680	
==>'diams'    , 9830,
 'OElig'    , 338,
 'oelig'    , 339,
 'Scaron'   , 352,
 'scaron'   , 353,
 'Yuml'     , 376,
 'circ'     , 710,
 'tilde'    , 732,
 'ensp'     , 8194,
 'emsp'     , 8195,
 'thinsp'   , 8201,
 'zwnj'     , 8204 <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2544	2645	
==>=item C<c_source_file_with_name($name)>

Returns the C source file with the specified name.

=cut

sub <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3552	3651	
==>ed data)
C<const> -- for the latter, remember that you need two consts:

  const char* const foo[] = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1886	1976	
==>parser->can('start_head1');
  $parser->handle_text( "Hi there" )   if $parser->can('handle_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018008	1018104	
==>6];\n  Parrot_gmtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = string_from <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018933	1019029	
==>6];\n  Parrot_gmtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = string_from <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	6519	6609	
==>pool -lcomdlg32 -ladvapi32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid -lws2_32 -lmpr -l <==
2	/Users/nnunley/parrot/config/init/hints/msys.pm	410	500	
==>pool -lcomdlg32 -ladvapi32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid -lws2_32 -lmpr -l <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25850	25981	
==>$left, $op, $right);
      }

      push @{$self->{BLOCKS}}, $cond;
      next;
    }

=begin commented_out

    #
    # Bare Blocks <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	3259	3391	
==>s $self, $class;
        my ( $symb, $klass, $type, $subtype, $name ) = @_;
        $self->{symbol}  = $symb;
        $self->{clas <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848608	849084	
==>S" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 963,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 78 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@1}}, {{\ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	44	158	
==>::Tree (); # For mark()
use base 'Regex::CodeGen';
use strict;

my $fail_label = Regex::Ops::Tree::mark('FAIL');

s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	45	159	
==>::Tree (); # For mark()
use base 'Regex::CodeGen';
use strict;

my $fail_label = Regex::Ops::Tree::mark('FAIL');

s <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	9251	9388	
==>ot ";
        @$result{ 'ok', 'actual_ok' } = ( ( $todo ? 1 : 0 ), 0 );
    }
    else {
        @$result{ 'ok', 'actual_ok' } = ( 1, $tes <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	2435	2553	
==>($results{floatsize} == 4) {
        $conf->data->set(float4_t => 'float');
    } else {
        $conf->data->set(float <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716498	716597	
==>preter, p));\n  if (s) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724390	724489	
==>preter, p));\n  if (s) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627442	627529	
==>c_new_noinit(interpreter, {{\@2}});\n  {{\@1}}->vtable->init(interpreter, {{\@1}});\n  { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628586	628673	
==>c_new_noinit(interpreter, {{\@2}});\n  {{\@1}}->vtable->init(interpreter, {{\@1}});\n  { <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	21946	22040	
==>$fh "LIBRARY $group\nEXPORTS\n\tParrot_lib_${group}_load\n" unless $defexists;
        print $f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65109	65605	
==>T",
                  "NAME" => "runinterp",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 85,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 981 \"src/ops/core.ops\"\n  Interp * co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64159	64471	
==>T",
                  "NAME" => "runinterp",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 84,
                  "AR <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	6835	6972	
==>d by the following copyright:

=over 4

=item *

Copyright (C) 1991-2, RSA Data Security, Inc. Created 1991. All
rights reserved.

License <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	4066	4212	
==>?!\w)(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, $1, undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	4241	4387	
==>?!\w)(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, $1, undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	1390	1521	
==>t implemented for current stack to register mapper\n";
}

# Pre and post load operation hooks.
sub pre_load {
	die "pre_load not imp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671745	672091	
==>h",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 752,
                  "ARGS" => [
                              "p",
                              "p <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4412	4600	
==>ome platforms
	        if ($^O eq 'hpux' or $^O eq 'cygwin') {
		        chmod 0755, "$dest/$src";
			}
		}
    }
}
else {
    die "invalid command '$mode'\nmust be one of generate, compile <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7723	7849	
==>OUT";
    }

    local *OLDOUT if $out;
    local *OLDERR if $err;

    # Save the old filehandles; we must not let them get cl <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	7672	7798	
==>OUT";
    }

    local *OLDOUT if $out;
    local *OLDERR if $err;

    # Save the old filehandles; we must not let them get cl <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4304	4537	
==>temp = $right");
    $right = $temp;
  }
  else {
    $right = $right->compile($compiler);
  }

  my $dest_name = $dest->value;
  $dest = $dest->compile($compiler);

  unless ($dest_type->name eq $calc_type->name) {
    my $temp = $co <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1979	2083	
==>t'} }

sub   end_over_bullet  { --$_[0]{'Indent'} }
sub   end_over_number  { --$_[0]{'Indent'} }
sub   en <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1547	1651	
==>t'} }

sub   end_over_bullet  { --$_[0]{'Indent'} }
sub   end_over_number  { --$_[0]{'Indent'} }
sub   en <==
2	/Users/nnunley/parrot/languages/urm/urm-old.pl	805	933	
==>less $code;
	push @program, $code ;
	}
}
close PROGRAM;

#print Dumper @program;

my $pos = 1;
while (1) {
    my $line = $progra <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10281	10413	
==>$b,$_[19],16,0x1fa27cf8,/* 47 */
HH,$b,$c,$d,$a,$_[6],23,0xc4ac5665,/* 48 */
II,$a,$b,$c,$d,$_[4],6,0xf4292244,/* 49 */
II,$d,$a,$b,$ <==
2	/Users/nnunley/parrot/config/auto/signal.pm	594	732	
==>_sighandler_t => undef,
        has_sigatomic_t    => undef,
        has_sigaction      => undef,
        has_setitimer      => undef
    ) <==
2	/Users/nnunley/parrot/config/init/miniparrot.pm	1756	1888	
==>_sighandler_t => undef,
        has_sigatomic_t    => undef,
        has_sigaction      => undef,
        has_setitimer      => undef <==
2	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	364	514	
==>= 1;
#$::RD_TRACE  = 1;
$::RD_TRACE  = undef;
my $frozen_parser = Parse::RecDescent->new( << 'END_GRAMMAR' );

{
  $::name_len         = 0; 
  $::subst <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3097	3195	
==>ng $vars before it's set.
	$vars=1;
	if ($noreloop) {
		push @{$code{$seg}->{code}}, "\t#ne \$I0, $ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	31805	32035	
==>, $v
ADDDATA
			$counter++;
		}
	}

	push @{$code{_data}->{code}},<<DATADONE;
	store_global "RESTOREINFO", \$P1
	store_global "READDATA", \$P2
DATADONE
}
sub typeof {
	my($var)=@_;
	return "FLO" if ($var=~/[!#%&]$/);
	return "STRIN <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	996	1099	
==>o recreate this file after SVN
# has been told about new generated files.
# 
# Ignore the SVN directorie <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3851	3953	
==>o recreate this file after SVN
# has been told about new generated files.
#
# Ignore the SVN directorie <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20042	20210	
==>=> 11,
			'laststat' => 111,
			'varlist1' => 13,
			'_if_then' => 14,
			'stat' => 7
		}
	},
	{#State 58
		DEFAULT => -35,
		GOTOS => {
			'_elseif_star' => 1 <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12170	12255	
==>/",
because C<EE<lt>solE<gt>>, C<EE<lt>47E<gt>>, C<EE<lt>0x2fE<gt>>,
and C<EE<lt>057E< <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	571	675	
==>erally one per non-verbatim paragraph), and
# to call the proper callbacks on the treelets.
#
# Every nod <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	37380	37520	
==>t!'   => \&_op_string_set_bang,
  'string=?'      => \&_op_string_eq_p,
  'string<?'      => \&_op_string_lt_p,
  'string>?'      => \&_op_st <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2492	2595	
==>BUG > 2 and print "First line: [$source_line]\n";

      if( ($line = $source_line) =~ s/^\xEF\xBB\xBF// <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6	95	
==>OT EDIT THIS FILE
# Generated by Parrot::Configure::Step from config/gen/makefiles/dynclas <==
2	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1207	1391	
==>_success) {
    if($resp->content =~ /^ok/) {
      debug "success!\n";
      exit 0;
    } else {
      debug "error: " . $resp->content . "\n";
      exit 1;
    }
  } else {
    debu <==
2	/Users/nnunley/parrot/config/inter/charset.pm	1659	1798	
==>->data->set(
        charset            => $charset_list,
        TEMP_charset_o     => $TEMP_charset_o,
        TEMP_charset_build => $TEMP <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	16118	16317	
==>ke "=over\n\n=item 456\n\n"
  my($self, $para) = @_;
  return $para->[1]{'~type'}  if $para->[1]{'~type'};

  return $para->[1]{'~type'} = 'text'
   if join("\n", @{$para}[2 .. $#$para]) =~ m/^\s*(\d+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	69130	69337	
==>eter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "collecton",
                  "FLAGS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	68689	68890	
==>eter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "collectoff",
                  "F <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	861	966	
==>ako::Construct::Expression::Value::Identifier));

  my $self = bless {
    BLOCK  => $block,

    KIND   = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	825	930	
==>ako::Construct::Expression::Value::Identifier));

  my $self = bless {
    BLOCK  => $block,

    KIND   = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200745	200992	
==>" => [
                              "nc",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 373 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}} <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	4320	4582	
==>}->{symbol}, $op->{arg1}, $op->{arg2}\n";
        }
        else {
            print {$FH} "  new $op->{result}->{symbol}, $op->{arg1}\n";
        }
    }

    sub visitNewClosureOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609355	609448	
==>ject.ops\"\n    {{\@1}} = VTABLE_get_attr_str(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610263	610356	
==>ject.ops\"\n    {{\@1}} = VTABLE_get_attr_str(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021156	1021447	
==>P" => 0,
                  "NAME" => "decodetime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021997	1022288	
==>P" => 0,
                  "NAME" => "decodetime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	5504	5702	
==>alls} += $total_calls;
                $totals{covered_calls} += $covered_calls;
                $file_call_coverage{$source_file} = $percent;
                next;
            }
        }

        f <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39656	39761	
==>g) =
		@{$self}{ qw{leftarg op rightarg} };

	my $code = ''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_tra <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	268829	269249	
==>t",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 313,
                  "ARGS" => [
                              "i",
                              "p",
                              "p" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	1493	1646	
==>]+)/s && push @_to_accept, $1; $_ }
    qw[
      sample=samp
      definition=dfn
      kbd=keyboard
      variable=var
      citation=cite
      abbrevi <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	6870	7058	
==>terface routines. The code needed to build a
 *     parrot to C call frame is in here
 *  Data Structure and Algorithms:
 *  History:
 *  Notes:
 *  References:
 */
#include "parrot/parrot. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	371654	371744	
==>F_LINEBUF))\n\tPIO_setlinebuf(interpreter, pio);\n    {{\@1}} = PIO_reads(interpreter, pio, <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20636	20732	
==>t=101010
end sub
dim narf as struct
dim bar(1)
dim lot$(1)
dim poit(1) as struct
dim h$(1)
thing$ <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	2607	2740	
==>ance.
    # For Solaris 8/Sun Workshop Pro 4, both
    #    atan2( 0.0, -0.0) and atan2(-0.0, -0.0)
    # return 0, when they should r <==
2	/Users/nnunley/parrot/config/auto/pack.pm	2042	2177	
==>>data->set(
        packtype_b => 'C',
        packtype_n => ($conf->data->get('numvalsize') == 12 ? 'D' : 'd')
    );

    #
    # Find <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21259	21392	
==>uct::Statement::New->new($block, $left, $right);
          $constructing = 0;
        }
        else {
          my $assign = Jako::Co <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22457	22563	
==>1 = $self->_constant(2);
  $self->_add_inst(''           ,'mod'   ,[$temp_0,$temp_0,$temp_1]);
  $self->_ad <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22958	23064	
==>1 = $self->_constant(2);
  $self->_add_inst(''           ,'mod'   ,[$temp_0,$temp_0,$temp_1]);
  $self->_ad <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	649	853	
==>he configuration
framework.

=head1 USAGE

=head2 Import Parameters

This module accepts no arguments to its C<import> method and exports no
I<symbols>.

=cut

package Parrot::Configure;

use strict;
use w <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	3678	3866	
==>nstructions) = @_;
    print $fh join("\n", @$instructions), "\n";
}

sub output_footer {
    my ($self, $fh) = @_;

    my $subname = $self->{subname} || '_regex';
    print $fh <<"END";
. <==
2	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	994	1173	
==>, @_ );
        }
        warn "Please implement a function 'visit", ref $self, "' in '",
            ref $visitor, "'.\n";
        return undef;
    }

}

package UnaryOp <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	1213	1338	
==>ariable.  Returns the inheriting classes name.

=cut

sub set_result
{
    my ($self, $result) = @_;

    $self->{result} = $r <==
2	/Users/nnunley/parrot/config/gen/platform.pm	1157	1337	
==>= '' unless defined $generated;
    print " ($generated) " if $verbose;
    print("\n") if defined $verbose && $verbose == 2;

    # headers are merged into platform.h
    my @heade <==
2	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	1143	1304	
==>DO: What does this means???
V1:                 "V1\n"

# for each macro we need: name, substitution and flag
# The length is uninteresting later on.
# 
# Example <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	30635	30765	
==>ited($text, "'");

C<extract_delimited> takes up to four scalars (the input text, the
delimiters, a prefix pattern to be skipped, a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	239291	239652	
==>nterpreter, {{\@2}}, {{\@3}}, MMD_CMP);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  " <==
2	/Users/nnunley/parrot/lib/Test/More.pm	17894	18039	
==>chomp $@;
        $@ =~ s{^BEGIN failed--compilation aborted at .*$}
                {BEGIN failed--compilation aborted at $filename line $line.}m <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	4705	4829	
==>foreach my $arg (@{ $t->{args} }) {
            if (UNIVERSAL::isa($arg, 'Regex::Ops::Tree')) {
                # $arg is a r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553886	553990	
==>n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+4}};\n  interpreter->current_object = object;\n  in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555283	555387	
==>n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+4}};\n  interpreter->current_object = object;\n  in <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11356	11473	
==>nknown E sequence \"", $e_node->label, "\"!";
  }
  ...else print/interpolate $text...

=head1 DESCRIPTION

This modul <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20007	20155	
==>ouble => 'FLO', long => 'INT', integer => 'INT', string => 'STRING');
			die "Unknown type $type (source line $sourceline)" unless ( exists $th{$type <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941078	941287	
==>"p",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 486 \"src/ops/string.ops\"\n    {{\@1}} = string_split(interpreter, { <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	13271	13396	
==>label('after_scan');

    my ($R_back, @R_body) = $self->rewrite($R, $advance);

    my @ops = (
                  $scan => @R <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600243	600363	
==>ter, next, NO_CLASS, \n         \"Class '%Ss' doesn't exist\", name);\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601319	601439	
==>ter, next, NO_CLASS, \n         \"Class '%Ss' doesn't exist\", name);\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837612	837922	
==>" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 949,
                  "ARGS" => [
                              "n"
                            ],
                  "BOD <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	665	780	
==>t, $vtable_dump, %pmcs)>

    $library = Parrot::Pmc2c::Library->new
        ( $options,     # hash refernce, the sa <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37091	37305	
==>e($meth);
}

=item C<trans($type)>

Used in C<signature()> to normalize argument types.

=cut

sub trans
{
    my ($self, $type) = @_;

    my $char = substr $type, 0, 1;
    return $1 if ($char =~ /([ISP])/);
    r <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	13664	13781	
==>ssing, or core bug that needs to
be sorted out before you can continue.

It is also possible to use the `force_todo()` <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	5730	5876	
==>{

            # Lines with "#CONDITIONED_LINE(var):..." are skipped if
            # the "var" condition is false.
            # Lines with "#INVE <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	6037	6217	
==>xpected_tests($arg);
        }
        elsif( !defined $arg ) {
            die "Got an undefined number of tests.  Looks like you tried to ".
                "say how many tests yo <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	27700	27854	
==>t = $self->genlabel($op->{name}."_enter");
    return ( $db_back,
                       aop('goto', [ $db_start ]),
           $db_back => $self->dbprint( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78343	78667	
==>JUMP" => 0,
                  "NAME" => "dlvar",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79863	80187	
==>JUMP" => 0,
                  "NAME" => "dlvar",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	303	419	
==>ackage Jako::Construct::Block::Bare;

use Carp;

use Jako::Compiler;

use base qw(Jako::Construct::Block);


#
# comp <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	37086	37243	
==>=> \&_op_char_upcase,
  'char-downcase'    => \&_op_char_downcase,

###
### Strings
###

  'string?'       => \&_op_string_p,
  'make-string'   => \&_op_make_ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	20443	20546	
==>2]->{max}, TRUE, $_[1] ]); }
	],
	[#Rule 20
		 'expr', 3,
sub
#line 131 "lib/Regex/Grammar.y"
{ return o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434934	435485	
==>:base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 499,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "nc"
                            ],
                  "BODY" => "#line 89 \"src/ops/ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	7152	7263	
==>lf->{"opcount"};
	return "_operator_${opcount}_of_production_${prodcount}_of_rule_$self->{name}";
}

sub nextimp <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	5461	5590	
==>lf->{JUMP} = shift;
    }

    return $self->{JUMP};
}

=item C<full_body()>

For manual ops, C<full_body()> is the same as C<body <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054263	1054370	
==>182 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (PMC_IS_NULL({{\@2}}))\n\tinternal_exception(1, \"Trie <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055390	1055497	
==>182 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (PMC_IS_NULL({{\@2}}))\n\tinternal_exception(1, \"Trie <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	5671	5804	
==>utput
if ( ! $cfg{use_times} && @program < 2 ) {
    print "WARNING: Switching percentage to time - not enough executables\n";
    $cf <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4392	4512	
==>ethods

=over

=item C<new($self, $opt)>

Returns C<$self> as a new instance.

C<$self> is a hash reference C<eval>-ed fr <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	3325	3437	
==>t;

  return defined $self->block and not defined $self->block->block;
}


#
# compile()
#

sub compile
{
  my $s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	10530	10690	
==>e::Transcode::->encoding_is_available($e) ) {

    die($enc_error = "WHAT? _transcoder is already set?!")
     if $self->{'_transcoder'};   # should never happen <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5787	5911	
==>ss->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There should be at most a single group
        my $gro <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5998	6122	
==>ss->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There should be at most a single group
        my $gro <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	11005	11128	
==>num;";
        push @{$extra_preamble_ref},
             "t_$temp_num = GET_NCI_P($reg_num);";
        return "(long*)&PMC_i <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	10937	11057	
==>ct, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # undef only match <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	11355	11475	
==>ct, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # undef only match <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18858	18959	
==>temp_1 = $temp_2;
    }
    $self->_add_inst ('', 'ne', [$temp_0,$temp_1,"DONE_$label"]);
    $self->_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500600	500983	
==>" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 575,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BO <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	3318	3540	
==>has_gnu_m4' => 1,
             'has_icu' => 1,
             'has_perldoc' => 1,
             'has_python' => 1,
             'has_python_2_4' => 1,
             'has_setitimer' => 'define',
             'has_sig_atomic_t' = <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	4944	5083	
==>rn $t;
    }
}

# Note: the following fails to rewrite
#   aR|[a]S
# to
#   a(R|S)
#
sub matchsame {
    my ($R, $S) = @_;
    return 0 if ! <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	363	451	
==>new;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	362	450	
==>new;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

s <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	2286	2462	
==>$0: copying source files to miniparrot directory\n";

    foreach my $file (@ARGV) {
        copy_file($file, "miniparrot/$file");
    }
}

sub write_buildscripts {
    my @comp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924418	924639	
==>g_make_empty(interpreter, enum_stringrep_one, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925209	925430	
==>g_make_empty(interpreter, enum_stringrep_one, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9273	9373	
==>good-enough check that it's good as an XML Name symbol:
      Carp::croak "\"$new_code\" isn't a vali <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10537	10637	
==>good-enough check that it's good as an XML Name symbol:
      Carp::croak "\"$new_code\" isn't a vali <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12137	12282	
==>) {
				feedme();
				if ($syms[CURR] eq ",") {
					push @ld, { type => "STRING", value=> qq{"$s"}};
					redo OUTDATA;
				}
				if ($type[CURR] <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8821	8983	
==>stack[-1][0]]{GOTOS}{$lhs}, $semval ]);
                $$check='';
                next;
            };

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Forc <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8424	8580	
==>stack[-1][0]]{GOTOS}{$lhs}, $semval ]);
                $$check='';
                next;
            };

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Forc <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	11481	11596	
==>he declared type of the element.

=over 4

=item Scalar (C<'$'> or C<'*$'>)

The element is a scalar, and by default <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	4283	4387	
==>olumn\n";
}


package Parse::RecDescent::OffsetCounter;

sub TIESCALAR	# ($classname, \$text, $thisparser <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	7776	7887	
==>ust not let them get closed.
    open  OLDOUT, ">&STDOUT" or die "Can't save     stdout" if $out;
    open  OLDE <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7827	7936	
==>ust not let them get closed.
    open OLDOUT, ">&STDOUT" or die "Can't save     stdout" if $out;
    open OLDE <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	40800	40909	
==>DEBUG > 3 and print "L-section content: ", pretty($ell->[1]{'section'}), "\n";
      }

      if( @ell_content <==
2	/Users/nnunley/parrot/config/init/defaults.pm	3942	4079	
==>nfo in executable
        ld_debug => '',

        # Way to decorate a function to mark it as an exportable or
        # importable symbol <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	1052	1429	
==>parrot-config                                   [main]bin
    docs/BROKEN.pod                                 [devel]doc
    docs/ROADMAP.pod                                [devel]doc
    docs/compiler_faq.pod                           [devel]doc
    docs/configuration.pod                          [devel]doc
    docs/debug.pod                                  [devel]doc
    d <==
2	/Users/nnunley/parrot/config/gen/icu.pm	974	1074	
==>a icu config parameter,\nICU autodetection disabled.\n" if $verbose;
        } elsif (!defined $icuco <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	2723	2941	
==>nd_skip.pl'),
            $self->new_item('', 'tools/dev/rebuild_miniparrot.pl'),
            $self->new_item('', 'tools/dev/symlink.pl'),
        ),
        $self->new_group('Testing', '',
            $self->new_item(' <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12808	12923	
==>code number is 47.  If
the name has no known value (as with a name of "qacute") or is
syntactally invalid (as with a <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4325	4439	
==>laration.

=cut

sub run_core_func_decl
{
    my ($self, $core) = @_;

    return "opcode_t * " .
        $self->co <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2813	2927	
==>laration.

=cut

sub run_core_func_decl
{
    my ($self, $core) = @_;

    return "opcode_t * " .
        $self->co <==
2	/Users/nnunley/parrot/Configure.pl	4883	5046	
==>ure 2.0
$svnid
END
      exit;
    };

    m/help/    && do {
      print <<"EOT";
$0 - Parrot Configure 2.0

General Options:

   --help               Show this te <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	8488	8588	
==>show(\$show, $Const,  $const ) if $show;
		want_show(\$show, $Global, $global) if $show;
		want_show( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	697	872	
==>harclass, advance 1" ],

    [ "start(n)" => "mark start of n-th paren match" ],
    [ "end(n)" => "mark end of n-th paren match" ],
    [ "delete(n)" => "delete record of n-th <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730699	730927	
==>"#line 124 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731435	731663	
==>"#line 124 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4191	4319	
==>L_PC + $offset; interpreter->resume_flag = 1";
}

=item C<run_core_func_decl($core)>

Returns the C code for the run core functio <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16569	16743	
==>r, 'pmc' );
                push @opcodes, new LocalDir( $parser,
                    'result' => $result,
                );
                push @opcodes, new FindLexOp( <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10716	10885	
==>r, 'pmc' );
                    push @opcodes,
                        new LocalDir( $parser, 'result' => $result, );
                    push @opcodes, new FindLexOp( <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	25995	26106	
==>t
EOC
    }
    my $opcode = $code[$code_l]->[2];
    if ($opcode eq 'POP_TOP') {
	print "# POP_TOP\n";
	$code_l <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3606	3745	
==>ix;
	foreach $core_suffix (values %cores) {
		compile($_ . "_ops$core_suffix") foreach (@oplibs);
	}
} 
elsif ($mode eq 'linklibs') {
	# Con <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2728	2819	
==>-120\n",
 '/item-bullet' => "\n\\par}\n",
 'item-number'  => "\n{\\pard\\li#rtfindent##rtfit <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	35504	35645	
==>ill behavior, with the ill behavior..."

      DEBUG > 1 and print "Running a real parse on this non-trivial L\n";
      
      
      my $lin <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10654	10761	
==>ue = $pmc;
  }

  $self->_new_lex ($symbol,$value);

  return $value;
}

sub _op_set_bang {
  my ($self, $no <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1261	1390	
==>ith the specified path. 

The file is an instance of the class returned by C<file_class>.

=cut

sub file_with_path
{
    my $self <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	3225	3420	
==>symbol}\n";
    }

    sub visitFindGlobalOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	2067	2248	
==>atenate separate ops files.

=head1 SEE ALSO

=over 4

=item F<tools/build/ops2c.pl>.

=back

=cut

use strict;
use lib 'lib';

use Data::Dumper;
$Data::Dumper::Useqq  = 1;
#$Data::D <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	1287	1499	
==>};

  confess "Unrecognized op '$op'!" unless defined $new_op;

  return $new_op;
}
 

#
# new()
#

sub new
{
  my $class = shift;

  return bless {
    FILE           => undef,
    LINE           => undef,
    LA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435404	435560	
==>c"
                            ],
                  "BODY" => "#line 89 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, { <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1745	1852	
==>index>.

=cut

sub arg
{
    my $self = shift;

    return $self->{ARGS}[shift];
}

=item C<goto_address($ad <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1360	1467	
==>index>.

=cut

sub arg
{
    my $self = shift;

    return $self->{ARGS}[shift];
}

=item C<goto_address($ad <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	3108	3211	
==>sub current_block
{
  my $self = shift;

  $self->INTERNAL_ERROR("Attempt to reference top block with em <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18603	18737	
==>rser, $fct, $args ) = @_;
    my $result;
    my @opcodes = ();
    my @params  = ();
    my @returns = ();
    for my $arg ( @{$a <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	3601	3705	
==>$real_filename) = /\s*([^%]+)% of (\d+)(?: source)? lines executed in file (.*)/;
            if ($total_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	49191	49288	
==>x20 literals are found in the input, or
under-E<32> E codes are found in the tree. And ditto \x7f- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451631	451859	
==>e 225 \"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452370	452598	
==>e 225 \"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4324	4556	
==>>{DEBUG}) {
        push @ops, 'print "matched('.chr($code).') at ";';
        push @ops, 'print <rx_pos>;';
        push @ops, 'print "\n";';
    }
    return @ops;
}

sub output_classmatch {
    my ($self, $incexc, $failLabel) = @_ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1713	1812	
==>st::PGE::_generate_pir_for($target, $pattern)
    );

    goto &Parrot::Test::pir_output_is;
}

=ite <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2236	2335	
==>st::PGE::_generate_pir_for($target, $pattern)
    );

    goto &Parrot::Test::pir_output_is;
}

=ite <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	18410	18676	
==>l argument count" . scalar(@_) . "!";
    }
}

=item C<major_version()>

Returns the major version number.

=cut

sub major_version
{
    my $self = shift;

    $self->{VERSION} =~ m/^(\d+)\./;

    return $1;
}

=item C<minor_version()>

Returns the minor version nu <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21980	22127	
==>2'   => $expr2->[0],
        'result' => $result,
    );
    return [ $result, \@opcodes ];
}

sub BuildRelop {
    my ( $parser, $expr1, $op <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1199	1348	
==>> $output };
    }
    
    Test::More::plan( tests => scalar(@spec) );

    generate_regular($pattern);

    foreach ( @spec ) {
        process($_-> <==
2	/Users/nnunley/parrot/config/init/defaults.pm	1184	1300	
==>be compiled
        # with position-independent code suitable for dynamic loading.
        cc_shared => $Config{cccdl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048221	1048318	
==>var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null gl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049145	1049242	
==>var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null gl <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	7076	7188	
==>nsi_external_symbols));

    print "    $_ (in " . (join ',', @{$referenced_in{$_}}) . ")\n" foreach (@non_ansi_e <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	28041	28143	
==>[$n, $ar, 'P'];
}

sub BUILD_LIST
{
    BUILD_TUPLE(@_,"ResizablePMCArray")
}
sub BUILD_MAP
{
    my ($ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	36361	36482	
==>::Simple> if all this confuses you and you just want to write
some tests.  You can upgrade to Test::More later (it's forwa <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	745	883	
==>return Parrot::Docs::Group->new(@_);
}

=item C<new($name, $text, @contents)>

Returns a new group. 

C<$name> and C<$text> are required, t <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	34084	34194	
==>te that the order in which
two or more delimiter brackets are specified is not significant.

A "balanced-bracke <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	52286	52439	
==>arse("a (conditional) reject marker", $aftererror,$line);
				$code =~ /\A\s*<reject:(.*)>\Z/s;
				$item = new Parse::RecDescent::Directive(
					      " <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29312	29405	
==>_;
	
my $code = ''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying terminal: [' . $s <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31409	31502	
==>_;
	
my $code = ''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying terminal: [' . $s <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	3277	3484	
==>m.

        return $pass;
        }
}

=head1 HISTORY

Mostly taken from F<languages/bc/lib/Parrot/Test/Bc.pm>.

=head1 SEE ALSO

F<languages/tcl/lib/Parrot/Test/Tcl.pm>, F<languages/m4/lib/Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060023	1060127	
==>var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null name\");\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060928	1061032	
==>var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null name\");\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	106	219	
==>imple')}

use strict;

use Carp ();

BEGIN { *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG }

sub new {
  my <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	105	218	
==>imple')}

use strict;

use Carp ();

BEGIN { *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG }

sub new {
  my <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2439	2539	
==>pe;
  }

  $self->INTERNAL_ERROR("No type for dest!")  unless defined $dest_type;
  $self->INTERNAL_E <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2361	2461	
==>pe;
  }

  $self->INTERNAL_ERROR("No type for dest!")  unless defined $dest_type;
  $self->INTERNAL_E <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	24277	24454	
==>/) {
			$out =  "    \${I_ARG_$arg_num} = bc.read_uint32()\n    next_pc += 4\n";
			$arg_name = "I_ARG_$arg_num";
		}

		# int32
		elsif (/^int32$/) {
			$out =  "    \${I_ARG_$a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037724	1037978	
==>rot_store_global(interpreter, NULL, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038505	1038759	
==>rot_store_global(interpreter, NULL, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15098	15200	
==>{'start_token_class'}->new(@_);
  return;
}

sub _handle_text {
  my $self = shift;   # leaving ($text) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7972	8093	
==>);
}

use vars qw($DEBUG_LABEL);
sub output_popindex {
    my $self = shift;

    my ($reg, $fallback);
    if (@_ == 1) { <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7625	7746	
==>);
}

use vars qw($DEBUG_LABEL);
sub output_popindex {
    my $self = shift;

    my ($reg, $fallback);
    if (@_ == 1) { <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	455	643	
==>ess $_[1] =~ m/^[A-Z]$/s;
  return;
}

sub _handle_text {
  if( chr(65) eq 'A' ) {     # in ASCIIworld
    $_[1] =~ tr/\xAD//d;
    $_[1] =~ tr/\xA0/ /;
  }
  print {$_[0]{'output_fh'}} $_[ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	15301	15546	
==>, $opts)        = $regex =~ m{^ /(.*)/ (\w*) $ }sx           or
           (undef, $re, $opts) = $regex =~ m,^ m([^\w\s]) (.+) \1 (\w*) $,sx
         )
    {
        $usable_regex = length $opts ? "(?$opts)$re" : $re;
    }

    return $usable_re <==
2	/Users/nnunley/parrot/lib/Test/More.pm	14625	14742	
==>e these very, very, very sparingly.

=cut

sub pass (;$) {
    $Test->ok(1, @_);
}

sub fail (;$) {
    $Test->ok(0, @ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	20095	20392	
==>s rules, dispatch directly to the translator.
    if (@rules <= 3) {
        my %byte2_todo = ();
        foreach (@rules) {
            # If we have a group, need to build dispatch code for that.
            if ($_->{'group'}) {
                $pir .= "    if cur_ic == 0x$_->{'code'} goto B2_BRA <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1313	1498	
==>iler->emit(".end");

        $last_seen = 'sub';
      }
    }
    else {
      if ($last_seen ne 'inline') {
        $compiler->emit(".sub __INLINE_" . $inline++);
        $compiler->in <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	937	1066	
==>The "(?!:)" is non-capturing!
  }

  while (defined $text and $text ne '') {
    next if $text =~ s{^\s+}{};   # Skip all whitespa <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	44761	44862	
==>,

=item [8]

the text of the second block of the operation 
(that is, the replacement of a substituti <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	369	468	
==>e strict;

@ISA= qw ( Parse::Yapp::Driver );
#Included Parse/Yapp/Driver.pm file----------------- <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	361	457	
==>e strict;

@ISA= qw ( Parse::Yapp::Driver );
#Included Parse/Yapp/Driver.pm file----------------- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870682	871165	
==>"i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 988,
                  "ARGS" => [
                              "s",
                              "s",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interprete <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5901	6076	
==>($rel_path) )
    {
        my $dir = $source->directory_with_relative_path($rel_path);
        
        # There may be editor scratch files to ignore.
        
        foreach <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48945	49347	
==>=> "bounds",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 63,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 785 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parr <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	13786	13914	
==>LETE
    
    # If we have a stack type state propogated here, put it in place.
    ss = ss_propogate[pc]
    if ss == "" goto NO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026837	1027276	
==>ME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1148,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 280 \"src <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	34616	34747	
==>$i][1]{'content-implicit'} = 'yes';
          $treelet->[$i][1]{'to'  } =
            Pod::Simple::LinkSection->new( $it ); # treele <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	35194	35325	
==>$i][1]{'content-implicit'} = 'yes';
          $treelet->[$i][1]{'to'  } =
            Pod::Simple::LinkSection->new( $it ); # treele <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	3682	3825	
==>->new(
        $file, $line, $1 eq '[' ? 'open-bracket' : 'close-bracket', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557863	557959	
==>ject = {{\@1}};\n  meth = {{\@2}};\n  interpreter->current_cont = CONTEXT(interpreter->ctx)->curr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559247	559343	
==>ject = {{\@1}};\n  meth = {{\@2}};\n  interpreter->current_cont = CONTEXT(interpreter->ctx)->curr <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	48525	48618	
==>ck>

C<extract_codeblock> attempts to recognize and extract a balanced
bracket delimited subst <==
2	/Users/nnunley/parrot/lib/Test/More.pm	28345	28581	
==>!_type($_) eq 'ARRAY', $a1, $a2 ) {
        warn "eq_array passed a non-array ref";
        return 0;
    }

    return 1 if $a1 eq $a2;

    my $ok = 1;
    my $max = $#$a1 > $#$a2 ? $#$a1 : $#$a2;
    for (0..$max) {
        my $e1 = $ <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	3654	3864	
==>ines executed in file (.*)/;
            if ($total_lines) {
                my $covered_lines = int(($percent/100) * $total_lines);
                $totals{lines} += $total_lines;
                $totals{covere <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	4976	5097	
==>s*,\s*\(void\*\)\s*(.*)\)/CALL("$1")/g;
                # The ->u.(string|float) is unnecessary.
                $asm =~ s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511045	511347	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511783	512085	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	3831	3961	
==>n = @args;
		$arg_count{$f} = $n;
		for (my $i = 0; $i < $n; $i++) {
		    my ($a, $def) = split(/=/, $args[$i]);
		    $a =~ s/\s/ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	4330	4460	
==>n = @args;
		$arg_count{$f} = $n;
		for (my $i = 0; $i < $n; $i++) {
		    my ($a, $def) = split(/=/, $args[$i]);
		    $a =~ s/\s/ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	1769	1892	
==>Comments
		append;
		fetch;
		while($cur ne -1 and $cur ne "\n") {
			append;	
			fetch;
		}
		emit("COMM");
		fetch;
		goto <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70869	70959	
==>/ops/core.ops\"\n\n  {{\@1}} = Parrot_load_lib(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71638	71728	
==>/ops/core.ops\"\n\n  {{\@1}} = Parrot_load_lib(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n", <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	309	401	
==>d1 TITLE

tools/dev/mk_manifests.pl - Generate MANIFEST.* files for building RPMs

=head1 SYN <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10487	10775	
==>tra arguments!" if @_;

  return @{$self->{CONTENT}};
}


###############################################################################

=head2 BLOCK->push_content(LIST)

Append Constructs to the Block's content list.

=cut

sub push_content
{
  my $self = shift; # Required: Jako::Const <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21969	22135	
==>[A-Z]+)$>s ? $1 : 'X')
          : "BLORP"
         } @to_unget
       )) =~ m{<head1>NAME</head1><Para>(X|</?[BCIFLS]>)+</Para>$}s
    ) {
      # Whee, it fits the p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630652	630891	
==>me(interpreter, class));\n    {{\@1}} = pmc_new(interpreter, type);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631642	631881	
==>me(interpreter, class));\n    {{\@1}} = pmc_new(interpreter, type);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	3274	3410	
==>um
    $N100 = %1
    $I100 = cmp_num $N100, 0.0
    %1 = $I100
END_PIR
    $P0[unicode:"monadic:\x{f7}"] =  <<"END_PIR"            # rec <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	15382	15473	
==>s, $codepos-$startpos,
		 $codepos, $endpos-$codepos,
		 $endpos,  length($$textref)-$endpos <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	907	1086	
==>tion::Libs;
use Parrot::Docs::Section::Tools;
use Parrot::Docs::Section::BigNum;
use Parrot::Docs::Section::Compilers;
use Parrot::Docs::Section::Languages;
use Parrot::Docs::Secti <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	521	686	
==>rns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new(
		'Dynamic PMCs', 'dynapmc.html', '',
		$self->new_group('Loading', '', 'src/dynpm <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49606	49711	
==>mar =~ m/$QUOTELIKEMK/gco)
			{
				_parse("an perl quotelike marker", $aftererror,$line);
				$item = new <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	519	628	
==>p::Driver
#
# This module is part of the Parse::Yapp package available on your
# nearest CPAN
#
# Any use <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	505	609	
==>p::Driver
#
# This module is part of the Parse::Yapp package available on your
# nearest CPAN
#
# Any use <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1911	2032	
==>e F;
    $_ = <F>;
    close F;

    my @c = split '';
    die "'$image_file' is truncated. Remove it and rerun make\n" if <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	574	715	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub any_errata_seen {  # read-only accessor
  return $_[1]->{'Errata_seen'};
}

sub new {
  my $ <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	1617	1845	
==>>file_with_name('README')->read =~ /^This is Parrot/os;
        
        $path = $self->parent_path();
    }
    
    die "Failed to find Parrot distribution root\n";
}

=back

=head2 Instance Methods

=over 4

=item C<c_source_f <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	19596	19791	
==>t->[$i] and $treelet->[$i][0] eq 'X') {
        DEBUG > 3 and print "   Nixing X node at $i\n";
        splice(@$treelet, $i, 1); # just nix this node (and its descendants)
        # no need to ba <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	32197	32327	
==>ote $tos;
    my $o;
    if ($builtins{$obj}) { # postponed LOAD_ like dict
	$o = temp('P');
	my $args = "";
	if ($builtins{$obj} e <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2287	2416	
==>@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exists($$self <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2203	2321	
==>@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exists($$self <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	30571	30782	
==>= $self->genlabel('rule_backtrack');

    # Generate the code for the body of the rule
    my $back = $self->genlabel('rule_fail');
    my ($R_back, @R_ops) = $self->rewrite($R, $back);

    # Set up the full pre <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	1778	1883	
==>f (! @tests) {
  die "Couldn't find any tcl test files to run.\n";
}
my $cmd = "$^X t/harness @tests";
pri <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	391	523	
==>kdsc, $_[0]);
	$curtok="";
}

sub tokenize {

	fetch;	
	fetch;
	fetch;
MAIN:
	goto END if $cur eq -1;
	if ($cur =~ /[\t ]/) {   # Whi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	10160	10275	
==>";
}

sub output_param {
    my ($self, $name, $type, $reg) = @_;
    $reg = value($reg);
    return ".param $type $ <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	4080	4193	
==>item C<arg_types()>

Returns the types of the op's arguments.

=cut

sub arg_types
{
    my $self = shift;

    re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429241	429660	
==>e",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 493,
                  "ARGS" => [
                              "ic",
                              "p",
                              "s"
                            ], <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	2549	2685	
==>se {
        $nclass .= "::Standard";
    }
    $nclass;
}

=item C<dynext_load_code($library_name, %classes)>

C<$library_name> is the n <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	41728	41913	
==>") {
      if ($arg =~ /^[INS]/) {
	$self->_morph("P$count", $arg);
	$count++;
	next;
      }
      # Check if any later argument needs the old value of P$count
      my $moved;
      fo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724163	724334	
==>"p"
                            ],
                  "BODY" => "#line 161 \"src/ops/python.ops\"\n  PMC * const p = {{\@2}};\n  PMC * const io = {{\@1}}; /* TODO Can this b <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1251	1375	
==>s $new, $class;
}

# Not much in this class is likely to be link-section specific --
# but it just so happens that link-secti <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1559	1679	
==>$compiler->emit("  $left = $right");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_ <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	9801	9902	
==>n an array, whereas an object of a class created by the
second form is based on a hash. The array-base <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	462	575	
==>ops2c.pl C --dynamic myops.ops

=head1 DESCRIPTION

This script uses a supplied transform to create a pair of C he <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15014	15110	
==>ment this as a mutually recursive multi-
sub which will be able to handle structures of arbitrary <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6844	6966	
==>o_unget, $self->get_token;
        
        last if $to_unget[-1]->is_end
            and $to_unget[-1]->tagname eq $tagnam <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	6545	6662	
==>o_unget, $self->get_token;
          last if $to_unget[-1]->is_end
              and $to_unget[-1]->tagname eq $tagnam <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	791	883	
==>ST
#define REL_PC     ((size_t)(cur_opcode - interpreter->code->base.data))
#define CUR_OPCOD <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	907	999	
==>ST
#define REL_PC     ((size_t)(cur_opcode - interpreter->code->base.data))
#define CUR_OPCOD <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	30192	30376	
==>?=<H1>)'


=head2 C<extract_delimited>

The C<extract_delimited> function formalizes the common idiom
of extracting a single-character-delimited substring from the start of
a string. Fo <==
2	/Users/nnunley/parrot/tools/build/vtable_h.pl	570	677	
==>';
/* ex: set ro:
** !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
**
** This file is generated automatically fr <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	12155	12389	
==>_f = per_test('.pbc', $test_no);
            }
            else {
                die "Unknown test function: $func";
            }
            $code_f = File::Spec->rel2abs($code_f);

            # native tests are just run, others ne <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	4136	4277	
==>er->emit("  global \"$dest_name\" = $temp_pmc");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $han <==
2	/Users/nnunley/parrot/lib/Test/More.pm	30034	30229	
==>e eq 'DIFFERENT' ) {
                push @Data_Stack, { type => $type, vals => [$e1, $e2] };
                $ok = 0;
            }
            elsif( $type eq 'ARRAY' ) {
                $ok = _ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	9126	9275	
==>urn $t;
}

sub write_code_to_file {
    my ($code, $code_f) = @_;

    open my $CODE, '>', $code_f or die "Unable to open '$code_f'";
    binmode $COD <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2298	2520	
==>r .= "\n",      # new line
                last;
            s/^\\r//
                and $str .= "\r",      # carriage return
                last;
            s/^\\t//
                and $str .= "\t",      # horizo <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3812	4034	
==>r .= "\n",      # new line
                last;
            s/^\\r//
                and $str .= "\r",      # carriage return
                last;
            s/^\\t//
                and $str .= "\t",      # horizo <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	8	113	
==>Scheme::Parser;

use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

$VERSION   = '0. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813584	813907	
==>re",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 918,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 557 \"src/ops/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079943	1080409	
==>RGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1199,
                  "ARGS" => [
                              "p",
                              "i",
                              "k"
                            ],
                  "BODY" => "#line 145 \"src/ops/experimental.ops\"\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51797	52008	
==>n  else         { Parrot_clear_trace(interpreter, PARROT_ALL_TRACE_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52580	52791	
==>n  else         { Parrot_clear_trace(interpreter, PARROT_ALL_TRACE_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1980	2191	
==>N1 / $N2;              # div    N1, N1, N2
$N2 = 1000000.0;              # set    N2, 1000000.0
$N1 = $N1 / $N2;              # div    N1, N1, N2
                              #
print "M op/s:        $N1\n"; # pr <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1980	2191	
==>N1 / $N2;              # div    N1, N1, N2
$N2 = 1000000.0;              # set    N2, 1000000.0
$N1 = $N1 / $N2;              # div    N1, N1, N2
                              #
print "M op/s:        $N1\n"; # pr <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	8151	8518	
==>tem' 
            if @{$self->{STACK}} and $self->{STACK}->[-1] eq 'text';
    }
    
    print {$self->{'output_fh'}} $self->{'Tagmap'}{$tagname} || return;
    
    ++$self->{DONT_WRAP} if 
        $tagname eq 'Verbatim' 
        or $tagname eq "VerbatimFormatted"
        or $tagname eq 'X';
}

=item C<process_end_token($token)>

Processes an end token.

=cut

sub <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	604334	604581	
==>TABLE_add_parent(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	690514	690809	
==>);\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "thaw",
                  "FLAG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691270	691565	
==>);\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "thaw",
                  "FLAG <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8284	8434	
==>MOVE:
${STACK0} = pop lazy_moves

# Decrement stack height.
PRE_STORE_${CURIC}_CONT:
dec stack_depth
PIR
	}

	return $pir;
}

sub post_store($) {
	my $ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4032	4149	
==>=cut

sub pgeglob_like {
    my ($target, $pattern) = (shift, shift);

    unshift @_ => Parrot::Test::PGE::_generate_ <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	984	1243	
==>c
    TODO                                            [main]doc
    parrot-config                                   [main]bin
    docs/BROKEN.pod                                 [devel]doc
    docs/ROADMAP.pod                                [devel]doc
    docs <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24589	24715	
==>_restore ($return);
      $return = $temp;
    }
  } else {
    $return = $self->_generate($node->{children}[1]);
    if ($retu <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26488	26614	
==>_restore ($return);
      $return = $temp;
    }
  } else {
    $return = $self->_generate($node->{children}[1]);
    if ($retu <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	59	159	
==>rot/lib/Parrot/OpTrans/CSwitch.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1190	1304	
==>::isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block,

    IDENT => $iden <==
2	/Users/nnunley/parrot/config/inter/lex.pm	2163	2269	
==>ex calls it self by $0 so it will claim to be lex if invoked as `lex`
    if ($stdout =~ /f?lex .*? (\d+) \ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2498	2605	
==>nstant, we will place its
  # definition into the block at the top of the block stack. We fill in the
  # ID <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2245	2352	
==>nstant, we will place its
  # definition into the block at the top of the block stack. We fill in the
  # ID <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	6587	6721	
==>& $stmt->{code}->{name} eq 'goto') {
	    if ($stmt->{next}->{label}
                && $stmt->{code}->{args}->[0] == $stmt->{next}->{l <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	8170	8294	
==>eter->ctx.bp.regs_i;
    goto *((void *)*cur_opcode);

END_C
} elsif ($suffix =~ /cg/) {
    print SOURCE <<END_C;
goto *${bs <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421557	421882	
==>=> "function",
                  "CODE" => 484,
                  "ARGS" => [
                              "i",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 562 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_bind(interpreter, {{\@2}}, { <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	24516	24654	
==>al);
	}
	$n = $nfix + $nk/2;
    }
    my $tos = pop @stack;
    my $args = join ', ', @args;
    my $t;
    $func = $tos->[1];
    # creat <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	2045	2163	
==>G'),
            $self->new_item('The status of the Parrot test suite.', 't/TESTS.STATUS.pod'),
        ),
        $sel <==
2	/Users/nnunley/parrot/tools/docs/pod_errors.pl	134	281	
==>oke  $

=head1 NAME

tools/docs/pod_errors.pl - Reports POD errors

=head1 SYNOPSIS

    % perl tools/docs/pod_errors.pl [dir] [files-to-ignore-rege <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2302	2534	
==>);

    my @files = @ARGV ? @ARGV : &files_worth_describing;

    print "This file was generated by $0\non ".scalar(localtime).".\n\n";
    print "Files in ( parenthesis ) did not have extractable descriptions.\n";
    if($show_full) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650584	650686	
==>247 \"src/ops/pmc.ops\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtable_max)\n        {{\@1}} = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651506	651608	
==>247 \"src/ops/pmc.ops\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtable_max)\n        {{\@1}} = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33889	34042	
==>ush @$para, '';  # Just so it's not contentless
            }
          }


        } elsif($over_type eq 'bullet') {
          my $item_type = $self->_ge <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	7743	8048	
==>info = 1;
            }
        }
		
        # Unknown key.
        else {
            die "Unknown key $_ in rule $rule->{'name'}\n";
        }
    }

    # Check we had mandatory fields.
    unless ($has_code) {
        die "Mandatory entry code missing in rule $rule->{'name'}\n";
    }
    unless ($has <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3598	3708	
==>s)...", $name, join(", ", %props));

    $name =~ s/::/__/g;

    if (exists $props{fn} or exists $props{fnlib} <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	3033	3143	
==>s)...", $name, join(", ", %props));

    $name =~ s/::/__/g;

    if (exists $props{fn} or exists $props{fnlib} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133795	133904	
==>],
                  "BODY" => "#line 321 \"src/ops/bit.ops\"\n  string_bitwise_xor(interpreter, {{\@1}}, {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134576	134685	
==>],
                  "BODY" => "#line 321 \"src/ops/bit.ops\"\n  string_bitwise_xor(interpreter, {{\@1}}, {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880060	880360	
==>TYPE" => "inline",
                  "CODE" => 997,
                  "ARGS" => [
                              "s",
                              "sc",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 244 \"src/ops <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	13172	13320	
==>num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_P($reg_num);";
        return "t_$temp_num == PMCNULL ? NULL : t_$temp <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7825	7923	
==>uld not happen (string)"
i%=0
if i% then print "Should not happen (int)"
i%=54
if i% then print "Th <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14812	14910	
==>uld not happen (string)"
i%=0
if i% then print "Should not happen (int)"
i%=54
if i% then print "Th <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54816	54909	
==>"#line 864 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo(interpreter, {{\@2}});\n  {{+=3}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55576	55669	
==>"#line 864 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo(interpreter, {{\@2}});\n  {{+=3}};\n", <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	5835	5931	
==>locks recursively until a matching symbol is found or the root block is
encountered without a mat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79408	79528	
==>mbol's address. We just need to build\n         a PMC with it so we can get and set the value */\n      {{\@1}} = pmc_new <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80929	81049	
==>mbol's address. We just need to build\n         a PMC with it so we can get and set the value */\n      {{\@1}} = pmc_new <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	21	147	
==>ges/regex/lib/Regex/CodeGen/Re.pm 18978 2006-04-30T14:02:48.452322Z bernhard  $

package Regex::CodeGen::Re;
use Regex::RegexOp <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6220	6333	
==>"New York"
A$(2) = "Boston"
A$(3) = "Chicago"
A$(4) = "Seattle"
Max = 4 'UBOUND(A$)
Exchange=TRUE           ' Forc <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15873	15986	
==>"New York"
A$(2) = "Boston"
A$(3) = "Chicago"
A$(4) = "Seattle"
Max = 4 'UBOUND(A$)
Exchange=TRUE           ' Forc <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	672	782	
==>ound recursively from the current directory.

=head2 Options

=over 4

=item C<--plus-misses>

This creates a s <==
2	/Users/nnunley/parrot/config/auto/jit.pm	3077	3215	
==>tarchname => $jitarchname,
            jitcpuarch  => $jitcpuarch,
            jitcpu      => uc($jitcpuarch),
            jitosname   => u <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	279	389	
==>PORT );
@ISA = qw(Exporter Test::More);

sub import {
    my( $class, $plan, @args ) = @_;

    Test::More->imp <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	196	306	
==>PORT );
@ISA = qw(Exporter Test::More);

sub import {
    my( $class, $plan, @args ) = @_;

    Test::More->imp <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	10022	10196	
==>,\s*
            {{\@(\d)}}/
            {{\@$2}}->vtable->$1(interpreter, {{\@$2}}/x;

        if ($op->full_name eq 'new_p_ic') {
            $jit_func = "Parrot_jit_vtable_ <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16384	16486	
==><gaal@forum2.org>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey Tang. All rights reserved.

This progr <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	5350	5724	
==>0) {
                # first line of a top-level block (first line of a function,
                # in other words)
                my ($indent) = /^(\s*)/;
                if ($indent =~ /\t/) {
                    error($file, $line, "apparent non-4 space indenting (contains tab(s))");
                } elsif (length($indent) != 4) {
                    error($file, $lin <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8940	9054	
==>relative_path
{
    my $self = shift;
    my $path = shift || return;
    my ($volume, $directories, $name) = File: <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9339	9453	
==>relative_path
{
    my $self = shift;
    my $path = shift || return;
    my ($volume, $directories, $name) = File: <==
2	/Users/nnunley/parrot/config/inter/progs.pm	1985	2119	
==>nf->options->get('link'));
    $link = prompt("How about your linker?", $link) if $ask;
    $conf->data->set(link => $link);

    $ld = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	371928	372229	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "peek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
2	/Users/nnunley/parrot/Configure.pl	4629	4748	
==>help' unless defined $key;
  $value = 1      unless defined $value;

  for ($key) {
    m/version/ && do {
      my $svn <==
2	/Users/nnunley/parrot/lib/Parrot/Revision.pm	279	375	
==>::config;

=head1 DESCRIPTION

Get parrot's current and configure time revision.

=cut

package P <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	33979	34102	
==>and print
           qq{Catching "$treelet->[$i][1]{'to'}" as a complex L<URL> link.\n};
        }

        next; # and move <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	11564	11677	
==>Vector, APLVector) # without
    .param pmc op1
    .param pmc op2

    .local pmc result
    result = new 'APLVec <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	622884	622996	
==>lru;\n    PMC *sig, *ccont;\n    opcode_t *dest_pc;\n    void **dest_pred;\n    parrot_context_t *caller_ctx, *ct <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	32604	32860	
==>ne,
  'set!'       => \&_op_set_bang,
  'cond'       => \&_op_cond,
  'case'       => \&_op_case,
  'and'        => \&_op_and,
  'or'         => \&_op_or,
  'let'        => \&_op_let,
  'let*'       => \&_op_let_star,
  'letrec'     => \&_op_letrec,
  'begi <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	2195	2416	
==>ine;
                if ( $line =~ $block_begin ) {
                    push @output, [ 1, q{} ];
                    $level++;
                }
            }
            push @output, [ 1, $line ];
            if ( $line <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18361	18501	
==>labels{$syms[CURR]}\t# GOSUB $syms[CURR]
	#RTJ ne JUMPLABEL, "", RUNTIME_JUMP
GOSUB
}
sub parse_return {
	if ($type[NEXT] ne "BARE") {
		push <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	8725	8830	
==>] eq "BARE") {
			$this->[0]=changename($this->[0]);
		}

		push(@expr, $foo[$t]);
		
		# Functions, array <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944968	945234	
==>harsetname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945777	946043	
==>harsetname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1450	1565	
==>);
    $options{module} ||= "Regex::CodeGen::IMCC";

    if ($options{module} ne 'Regex::CodeGen::IMCC') {
      eva <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717900	717995	
==>" => "#line 124 \"src/ops/python.ops\"\n  PMC * const io = {{\@1}};\n  if (PIO_softspace(interpr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718832	718927	
==>" => "#line 124 \"src/ops/python.ops\"\n  PMC * const io = {{\@1}};\n  if (PIO_softspace(interpr <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76713	76832	
==>d+/
	    && $::RD_TRACE>1
	    && $::RD_TRACE+10<length($_[0]))
	{
		my $count = length($_[0]) - $::RD_TRACE;
		return s <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77024	77143	
==>d+/
	    && $::RD_TRACE>1
	    && $::RD_TRACE+10<length($_[0]))
	{
		my $count = length($_[0]) - $::RD_TRACE;
		return s <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	1344	1467	
==>m C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new(
		'Configuration', 'conf <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1180	1296	
==>m C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shift;

    return $self->SUPER::new(
        'Con <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	11578	11814	
==>body};
        if ($methodname eq 'class_init') {
            $class_init = {
                meth        => $methodname,
                body        => $methodblock,
                line        => $lineno,
                type        => <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	13027	13163	
==>ing/g; $extern=~tr/a-z/A-Z/;

				$calling_code = "(%s) = _USERFUNC_${extern}_run($ac$pir_args)";
				push @work, [ "result of $extern()" <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	8838	9040	
==>$runcore{$_[0]};
}

sub runcore_from_args {
  local $_ = shift;

  /\b-g\b/ and return "goto";
  /\b-j\b/ and return "jit";
  /\b-C\b/ and return "cgp";
  /\b-S\b/ and return "switch";
  /\b-f\b/ and ret <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	6901	7059	
==>al \s+ (\w+) \s+ (.+)$/mx) {
            my @vars = split /\s*,\s*/, $2;
            
            $locals{$_} = 1 for @vars;
            $code .= inline("  .lo <==
2	/Users/nnunley/parrot/tools/build/addopstags.pl	117	288	
==>S

	perl tools/build/addopstags.pl src/ops/*.ops

=head1 DESCRIPTION

Add src/ops/*.ops to tags file.

=cut


my %seen;
my @tags;

# Pull ops tags
while (<>) {
	if (/\bop \ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2069	2191	
==>n chr($in);
    }
  } else {
    return $Name2character{$in}; # returns undef if unknown
  }
}

#-------------------------- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	5	105	
==>are.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subje <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	8931	9170	
==>= $self->add_checks($kid, $kid_guarantee, $kid_follow_min);

            if (defined($kid->maxlen())) {
                $kid_guarantee -= $kid->maxlen();
            } else {
                $kid_guarantee = 0;
            }
        }
    } <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	2719	3028	
==>yet

  'bare_output',       # For some subclasses: whether to prepend
                       #  header-code and postpend footer-code

  'nix_X_codes',       # whether to ignore X<...> codes
  'merge_text',        # whether to avoid breaking a single piece of
                       #  text up into several even <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1180	1282	
==>type = $self->ident->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();
    $compiler->emit("  $p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1174	1276	
==>type = $self->ident->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();
    $compiler->emit("  $p <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18763	18926	
==>alar @{ $arg->[1] } ) {
            push @opcodes, @{ $arg->[1] };
        }
        else {
            push @opcodes, new NoOp($parser);
        }
        pu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42341	42531	
==>eption(interpreter, EXCEPT_exit, {{\@1}});\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43031	43221	
==>eption(interpreter, EXCEPT_exit, {{\@1}});\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10060	10189	
==>6, '~',
);

#--------------------------------------------------------------------------

%Latin1Code_to_fallback = ();
@Latin1Code <==
2	/Users/nnunley/parrot/lib/Test/More.pm	10256	10403	
==>t' );

    # ok( $this && $that );
    cmp_ok( $this, '&&', $that, 'this && that' );
    ...etc...

Its advantage over ok() is when the test fails y <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	9192	9341	
==>e "duplicate opcode $name and $number";
    }
    $prev = $number;
    $ParrotOps::optable{$name} = $number;
    if ($number > $ParrotOps::max_op_num) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	1112	1407	
==>$where->[1]";
}

sub output_goto {
    my ($where) = @_;
    return "goto $where->[1]";
}

sub output_label {
    my ($label, $reachable) = @_;
    return "$label:" . ($reachable ? "" : " (unreachable)");
}

##################################

use vars qw(%OUTPUT);
sub gather {
    foreach (keys <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33680	33819	
==>ra content into $over_type item\n";
              push @$para, splice @{shift @$paras},2;
            } else {
              DEBUG and print <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35493	35632	
==>ra content into $over_type item\n";
              push @$para, splice @{shift @$paras},2;
            } else {
              DEBUG and print <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	1942	2068	
==>\d+$/s) {
    if($] < 5.007  and  $in > 255) { # can't be trusted with Unicode
      return $FAR_CHAR;
    } else {
      retur <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112902	113110	
==>s",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 187 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_or(interpreter, { <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41092	41241	
==>);
    }
  }
  
  return;
}

sub _traverse_treelet_bit {  # for use only by the routine above
  my($self, $name) = splice @_,0,2;

  my $scratch;
  $s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958802	959068	
==>MP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "functi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959603	959869	
==>MP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "functi <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4268	4401	
==>lude/* (all?)

    # lib/Parrot/Config.pm
    
    return 1 if $self->suffix =~ /^(?:dump|html|flag|o)$/o
        or $self->name =~ /^ <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	13451	13559	
==>$jit_func, $extern }, \t" .
            "/* op $i: $core_opfunc[$i] */\n";
}

print JITCPU @jit_funcs, "};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57879	58105	
==>core.ops\"\n  {{\@1}} = interpinfo_s(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58641	58867	
==>core.ops\"\n  {{\@1}} = interpinfo_s(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850608	850814	
==>,
                              "sc",
                              "i"
                            ],
                  "BODY" => "#line 83 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596206	596467	
==>VTABLE_subclass(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597099	597360	
==>VTABLE_subclass(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testrun.pl	67	226	
==>t.pbc";

# XXX - This file should be generated at config time, so as to get
# the appropriate path and executable name.
$a=system("$parpath/parrot TARG_test.pir <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	1907	2038	
==>eq "all_source") {
        # do a little "find" action for now.
        
        @files = ();
        File::Find::find({wanted => su <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	1076	1186	
==>eq "all_source") {
    # do a little "find" action for now.
    @files = ();
    File::Find::find({wanted => su <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	16483	16703	
==>);

	unless ($$textref =~ m/\G($pre)/gc)
	{
		_failmsg qq{Did not find prefix /$pre/ at "} .
			     substr($$textref, pos($$textref), 20) .
			     q{..."},
		         pos $$textref;
		return; 
	}
	$oppos = pos($$textref <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	7445	7691	
==>source");
  } elsif(ref(\( $_[0] )) eq 'GLOB') {
    $self->{'source_filename'} = '' . ($handle = $_[0]);
    DEBUG and print "$self 's source is glob $_[0]\n";
    # and fall thru   
  } elsif(ref( $_[0] ) eq 'SCALAR') {
    $self->{'source_scala <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	5896	5992	
==>l")) {
    my $run_core_func = $trans->run_core_func_decl($base);
    print HEADER "$run_core_fun <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	3122	3349	
==>turn unless $self->parent_path;
    
    return $self->directory_with_path($self->parent_path);
}

=item C<file_and_directory_names()>

These are the names of all the files and subdirectories in the
directory.

=cut

sub file_an <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623544	623649	
==>se {\n\tsig = NULL;\n\tdest_pred = NULL;\n    }\n    lru = &mic->lru;\n    if (lru->u.signature == sig) {\ <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	7806	8050	
==>d
    item_one = shift iter_one 
    inc pos_one
    if item_one != item_two goto loop_one
    push result, pos_one
    # only need to find one, go back to outer loop.
    goto loop_two
loop_one_end:
    # if we get this far, there was no match. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737729	738011	
==>"set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 829,
                  "A <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	624271	624519	
==>RESS",
                  "NAME" => "pic_callr__",
                  "FLAGS" => ":pic",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	22020	22217	
==>('loop');
        my @ops = (
                   aop('pushint', [ 0 ]),
          $loop => @R_ops,
                   aop('pushint', [ 1 ]),
                   aop('goto', [ $loop ]),
          $bac <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9070	9184	
==>quire_semicolon;
      }
      else {
        my $sub = Jako::Construct::Block::Sub->new($block, $type, $ident, { % <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	7818	7935	
==>ut' => '-o ',
             'ld_share_flags' => '-dynamiclib -undefined suppress',
             'ldflags' => '-L/opt/lo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	33954	34179	
==>nterpreter, {{\@1}}, (CUR_OPCODE + {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	194	349	
==>on

=head1 SYNOPSIS

    use Parrot::Pmc2c::Library;

=head1 DESCRIPTION

Parrot::Pmc2c::Library is a wrapper around a collection of PMCs linked in the
same <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	16882	17002	
==>less ($$textref =~ m/ \Q$initial\E [^\\$initial]* (\\.[^\\$initial]*)* \Q$initial\E /gcsx)
		{
			_failmsg qq{Did not fin <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	119	275	
==>| $proto;
        my $self  = {};
        bless $self, $class;
        my ($fh) = @_;
        $self->{fh}       = $fh;
        $self->{prologue} = q{.na <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74165	74276	
==>etext;
	for ($reps=0; $reps<$max;)
	{
		$_savetext = $text;
		my $prevtextlen = length $text;
		my $_tok;
		if ( <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	1162	1261	
==>PIR
		foreach my $var (sort keys %{$code{$seg}->{declarations}}) {
			if ($var=~/_string$/) {
				pr <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2330	2465	
==>print "Wrong"
if 5>4 then print "Ok" else print "Wrong"
if 5>5 then print "Wrong" else print "Ok"
if 4>5 then print "Wrong" else print " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748821	748915	
==>BODY" => "#line 199 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_number_native(interpreter, {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749605	749699	
==>BODY" => "#line 199 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_number_native(interpreter, {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	6979	7103	
==>rgs are a comma-separated list of items from this table of argument
        # types (even if no formal args are specified, th <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	9575	9728	
==>86, 'V',
   87, 'W',
   88, 'X',
   89, 'Y',
   90, 'Z',
   91, '[',
   92, "\\", #!
   93, ']',
   94, '^',
   95, '_',
   96, '`',
   97, 'a',
   98, 'b <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	1262	1356	
==>ram [param ...]]]

The param and return_type parameters use the NCI standard, which for
referen <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	749	857	
==>pth = new Hash
PIR
}

# Post translation hook.
sub post_translation() {
	# Nothing to do.
	return "";
}

# Ex <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20164	20278	
==>ng a Pod-formatter class, you should define a C<run> just so
that users can call C<parse_file> etc, but you don't I <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	55256	55374	
==>s one of the
above extractor types (subroutine reference, regular expression, or string).
The key of that element is th <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40615	41003	
==>,
			'primary' => 28
		}
	},
	{#State 168
		DEFAULT => -24,
		GOTOS => {
			'@7-5' => 186
		}
	},
	{#State 169
		ACTIONS => {
			"," => 187
		},
		DEFAULT => -100
	},
	{#State 170
		DEFAULT => -4,
		GOTOS => {
			'block' => 188,
			'chunk' => 57
		}
	},
	{#State 171
		DEFAULT => -103
	},
	{#State 172
		DEFAULT => -101
	},
	{#State 173
		ACTIONS => {
			")" <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	629	820	
==>rn if start of input is b, advance 1 char
# O (classmatch, charclass) : return if start of input is charclass, advance 1
# O (start, n) : mark start of n-th paren match
# O (end, n) : mark end <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	1647	1760	
==>s' => 'fromkeys',
    'locase' => 'locase',
    'next' => 'next',
    'sort' => 'sort',
);

my %rev_type_map;

whi <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	32450	32697	
==>essions
#
#----------------------

  'quote'      => \&_op_quote,
  'lambda'     => \&_op_lambda,
  'if'         => \&_op_if,
  'define'     => \&_op_define,
  'set!'       => \&_op_set_bang,
  'cond'       => \&_op_cond,
  'case'       => \&_op_ca <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	474	578	
==>hon mydis.py';
$DEFVAR = 'PerlInt';

getopts('dnD', \%opt);
$file = $ARGV[0];
$lambda_count = 0;

my %bui <==
2	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	395	592	
==>the build script.

=head1 EXAMPLE

See parrot/config/gen/makefiles/imcc.in for an example usage.

=cut

use strict;

my $Verbose = 0;
if ($ARGV[0] eq '-v') {
    shift;
    $Verbose = 1;
}

my ($com <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	4195	4334	
==>body );

# private sub  _trim()
#
# Trim leading and trailing spaces.

sub _trim
{
    my $value = shift;

    $value =~ s/^\s+//;
    $valu <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	34180	34302	
==>ests} ) {
            my $s = $self->{Expected_Tests} == 1 ? '' : 's';
            $self->diag(<<"FAIL");
Looks like you pl <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	2689	3196	
==>ault description
            $desc = sprintf '(%s line %s)' => (caller())[1,2]
                unless $desc;

            my( $test_num, $f_out, $f_code ) = set_test_info();

            ## get test arguments from environment
            my $args = $ENV{TEST_PROG_ARGS} || '';

            Parrot::Test::write_code_to_file($code, $f_code);

            ## build the command and set the run options
            my $cmd = qq{$parrot $args $perl6 "$f_code"};
            my $run_options = {
                CD = <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35554	35736	
==>n <<EOC;
$l
${decl}\{
    cant_do_method(interpreter, pmc, "$meth");
    ${ret}
}

EOC
}

=back

=head2 Parrot::Pmc2c::Null Instance Methods

=over 4

=cut

package Parrot::Pmc2c::Nul <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11106	11239	
==>onstruct::Statement::Decrement->new($block, $ident);
      }

      next;
    }

    #
    # Arithmetic assigns:
    #
    #   <var> < <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	7843	8093	
==>oo)?$foo[$t+1]:undef) );
		if ($this->[0] eq '-' and $this->[1] eq "PUN") {
			if (! defined $prev->[0] or $prev->[0] eq "(") {
				$unary=1;
			} elsif (precedence($prev->[0],$next->[0]) 
				  and not isarray($prev->[0])) { 
				$unary=1;
			} elsif <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tests.pm	620	773	
==>group('Tools', '', 't/harness'),
		$self->new_group('Native Bytecode Tests', '', 't/native_pbc'),
		$self->new_group('Ops Tests', '', 't/op'),
		$self->ne <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	1744	2022	
==>nt()
#

sub indent
{
  my $self = shift;
  $self->{INDENT} += 4;
}


#
# outdent()
#

sub outdent
{
  my $self = shift;
  $self->{INDENT} -= 4;
  
  confess "Unbalanced indent/outdent!" if $self->{INDENT} < 0;
}


#
# emit()
#

sub emit
{
  my $self = shift;

  unshift(@_, " " x <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	28598	28712	
==>k)->[1];
	print <<EOC;
	$x\["_message"\] = "Foo"
EOC
	$throw = "throw $x # TODO create, args";
    }
    print <<EO <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33643	33806	
==>and print "Assimilating following ~Para content into $over_type item\n";
              push @$para, splice @{shift @$paras},2;
            } else {
              DE <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35456	35619	
==>and print "Assimilating following ~Para content into $over_type item\n";
              push @$para, splice @{shift @$paras},2;
            } else {
              DE <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	5092	5250	
==>de .= "  register = r_$name + 1 \n";
        $code .= "  pir .= \$S0 \n";
        $code .= emit("a_$name = \$P%0", "r_$name");
        
        # convert the a <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38355	38493	
==>te 151
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 2 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19910	20022	
==>e RTF
to spellcheck, and/or if you want it to hyphenate right.

Here are some notable values:

  1033  US English <==
2	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	425	552	
==>renamed intermediate compile files
#
# Revision 1.7  2002/05/24 03:59:46  clintp
# Screwed up ID strings
#

# Loads and runs the <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1197	1332	
==>->isa('ToBoolOp') ) {
        my $tobool = pop @{$opcodes};
        my $new    = pop @{$opcodes};
        my $loc    = pop @{$opcodes <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	1021	1175	
==>r = $dist->existing_directory_with_name('config/' . $group);
        my @files = $dir->files_with_suffix('pm', 1);    
        push @groups,
            $s <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	801	973	
==>)>

Returns the C C<#define> macros required by the ops.

=cut

sub defines
{
    return <<END;
#undef CONST
#define REL_PC     ((size_t)(cur_opcode - interpreter->code->bas <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	3482	3686	
==>ted list of interfaces */
    STRING* isa_str;         /* space-separated list of classes */
    PMC *class;              /* for PMCs: a PMC of that type
                                for objects: the cl <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	6842	7034	
==>s/^\-\-(.*)\n//         # ShortComment
                and $parser->YYData->{lineno}++,
                last;

            s/^(0[Xx])([0-9A-Fa-f]+)//
                and return ( 'NUMBER', <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	4556	4678	
==>e::Checker> on the contents of the file. Executable
files, and F<*.dump> files are assumed not to contain POD and therefore <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	103	223	
==>:Simple::PullParserToken');
use strict;

sub new {  # Class->new(tagname);
  my $class = shift;
  return bless ['end', @_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	13644	13787	
==>rk 0\n"

    # Translation loop.
    ss_propogate = new .Hash
TRANS_LOOP:
    pc = bc.get_pos()
	next_pc = pc
    if pc >= bc_length goto COMPLE <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	5771	5930	
==>f') {
	print <<EOC;
	.local pmc $self
	$self = self
EOC
    }
    if ($func_info{$arg}{flags} & 0x20) {  # GENERATOR flag
	for (my $i = 0; $i < @params; ++$i) { <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	33688	33835	
==>ist-ref' => \&_op_list_ref,
  'memq'     => \&_op_memq,
  'memv'     => \&_op_memv,
  'member'   => \&_op_member,
  'assq'     => \&_op_assq,
  'ass <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	48939	49080	
==>is is where it gets messy...
      if(! @stack) {
        # We saw " >>>>" but needed nothing.  This is ALL just stuff then.
        DEBUG > 4 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2352	2473	
==>mon{$var}) {
					push(@saves, $var);
				}
			}
			if (@saves) {
				$edit.=qq{\tfind_global _GLOBALS, "COMMON"\n};
				f <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2761	2882	
==>mon{$var}) {
					push(@saves, $var);
				}
			}
			if (@saves) {
				$edit.=qq{\tfind_global _GLOBALS, "COMMON"\n};
				f <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	4306	4409	
==>eta, $ini->val($_, 'type') ] for @section;
my $ticks = POSIX::sysconf( &POSIX::_SC_CLK_TCK );
my %Get_Ti <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4619	4848	
==>t;
	my $pir = "";

	# If the destination is not going to be a register, the translation code
	# needs the value on the stack top, so pop it off into a register.
	if (!$dest_reg) {
		$pir .= <<'PIR'
# Get type.
${ITEMP0} = elements <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1437	1563	
==>with the
   #  RTF spec on whether it's supposed to be \strikedl or \striked1 (!!!)
 ),

 # Bit of a hack here:
 'L=pod' => '{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054435	1054543	
==>_exception(1, \"Tried to get null global.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global_p(inter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055562	1055670	
==>_exception(1, \"Tried to get null global.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global_p(inter <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	5377	5513	
==>@_;

  return $self->forth;
}


#
# REQUIRES:
#

sub require_assign        { return shift->require('assign');        }
sub require_close_ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49090	49333	
==>ammar =~ m/\G\s*<[^m]/gc)
		{
			pos($grammar)-=2;

			if ($grammar =~ m/$OPMK/gco)
			{
				_parse("a $1-associative operator directive", $aftererror, $line, "<$1op:...>");
				$prod->adddirective($1, $line);
			}
			elsif ($grammar =~ m/$UNCO <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	39947	40074	
==>mediately following paragraph:

	$text = "/para line 1\n\nline 3\n/para line 4";

	extract_tagged($text, '/para', '/endpara', un <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	706	807	
==>put_fh'}} "\n"  unless $_[1] =~ m/^[A-Z]$/s;
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	1901	2024	
==>h for
the name).  It also makes it easier for the next guy to understand
what your test is for.  It's highly recommended you <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1330	1442	
==>, YYDEBUG => '');
#Mandatory parameters
my(@params)=('LEX','RULES','STATES');

sub new {
    my($class)=shif <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1286	1393	
==>, YYDEBUG => '');
#Mandatory parameters
my(@params)=('LEX','RULES','STATES');

sub new {
    my($class)=shif <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8670	8758	
==>HASERS","QUIT"
data "SHIELDS","SOS","SRSCAN","STATUS","TORPEDO","TRANSFER","VISUAL","WARP <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21534	21622	
==>HASERS","QUIT"
data "SHIELDS","SOS","SRSCAN","STATUS","TORPEDO","TRANSFER","VISUAL","WARP <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	15647	15812	
==>('goto', [ $next ]);
    }

    push @ops, $back => aop('popint', [ '<tmp>', 'branch marker' ]);

    for my $i (0..$#args-1) {
        push @ops, aop('eq', [ '<tmp>' <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	1060	1181	
==>e::Path;
use File::Find;

my ($action, $executable);
GetOptions("action=s"     => \$action,
           "executable=s" => \ <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	7007	7131	
==>her opcodes are just skipped
sub find_op_number {
    my ($opname, $experimental) = @_;
    if (exists $ParrotOps::optable{$o <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	3276	3407	
==>d more than once!\n";
	next;
    }
    $seen{$file} = 1;

    die "$0: Could not find ops file '$file'!\n" unless -e $file;
    my $ <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	12524	12640	
==>m));";
        push @{$extra_postamble_ref}, "string_cstring_free(t_$temp_num);";
        return "t_$temp_num";
    } <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1664	1784	
==>ontain spaces.
    $PATHQUOTE = '"';

    unless ($CC =~ /gcc/i) {
        $LIBPARROT = '/Users/nnunley/parrot/libparrot. <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	1668	1788	
==>ontain spaces.
    $PATHQUOTE = '"';

    unless ($CC =~ /gcc/i) {
        $LIBPARROT = '/Users/nnunley/parrot/libparrot. <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	5873	6038	
==>oup(
            'Extensions', 
            '',
            $self->c_pair_item('', 'extend'),
        ),
        $self->new_group(
            'JIT', 
            '', <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6190	6331	
==>code{$seg}->{code}}, "\t_platform_shutdown()\n\tend\n";
		goto PARSE;
	}
	die "Unknown keyword $syms[CURR]/$type[CURR] source line $sourceline <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18074	18213	
==>r' => 35,
			'primary' => 28
		}
	},
	{#State 48
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'N <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	49206	49300	
==>d argument (delimiter brackets) indicates that only C<'{'> is to be used.
Omitting the third ar <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	7101	7373	
==>urn $self->{Expected_Tests};
}


=item B<no_plan>

  $Test->no_plan;

Declares that this test will run an indeterminate # of tests.

=cut

sub no_plan {
    my $self = shift;

    $self->{No_Plan}   = 1;
    $self->{Have_Plan} = 1;
}

=item B<has_plan>

  $plan = $Test->ha <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	17293	17405	
==>@_;
    inplace('+', $cmt);
}
sub INPLACE_SUBTRACT
{
    my ($n, $c, $cmt) = @_;
    inplace('-', $cmt);
}
sub JU <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	4781	4910	
==>ss;\n  }\n";

    # Create accessor methods.

    my( $pre, $pst, $sel );
    $cnt = 0;
    foreach $name (@methods){
        if ( <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1892	1988	
==>self->SUPER::new($path);
}

=back

=head2 Instance Methods

=over 4

=item C<create_path()>

This <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	869	965	
==>self->SUPER::new($path);
}

=back

=head2 Instance Methods

=over 4

=item C<create_path()>

This <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	31550	31857	
==>"ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 40,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 571 \"src/ops/core.ops <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	5295	5464	
==>et};

    if (($seen{"$ret$args"} ||= $.) != $.) {
      warn sprintf "Ignored signature '%s' on line %d (previously seen on line %d) of $ARGV",
              "$ret$args" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2776	2903	
==>piler);
      $compiler->emit("  $temp = $value");
      $args[$i] = $temp;
    }
    else {
      $args[$i] = $args[$i]->compil <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2476	2603	
==>piler);
      $compiler->emit("  $temp = $value");
      $args[$i] = $temp;
    }
    else {
      $args[$i] = $args[$i]->compil <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1519	1615	
==>ned type!")
    unless defined $type;

  $self->INTERNAL_ERROR("Type is not a Jako::Construct::Ty <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1367	1463	
==>ned type!")
    unless defined $type;

  $self->INTERNAL_ERROR("Type is not a Jako::Construct::Ty <==
2	/Users/nnunley/parrot/config/auto/gdbm.pm	1386	1579	
==>2/i) {
        if ($cc =~ /^gcc/i) {
            eval { cc_build('', '-llibgdbm'); };
        } else {
            eval { cc_build('', 'gdbm.lib'); };
        }
    } else {
        eval { cc_bu <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	10406	10635	
==>mp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_P($reg_num);";
        return "(int*)&PMC_int_val(t_$temp_num)";
    };
    /l/ && do {
        push @{$temps_ref}, "long t_$temp_num;";
        pus <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	1356	1475	
==>%contents = @_;
    my @contents = ();
    my $dist = Parrot::Distribution->new;
    
    if ( exists $contents{'pairs'} <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61500	61600	
==>ahead,$line);
			$prod and $prod->additem($item)
			      or  _no_rule("pattern terminal",$line,$code <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12859	13013	
==>e that all we need is the relative
    # path from the current directory to the file and return that
    # as the link.
    
    my $dist = Parrot::Distrib <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	55495	55657	
==>deferred}}, sub $code;",
					      $lookahead,$line,"<defer:$code>");
				$prod and $prod->additem($item)
				      or  _no_rule("<defer:$code>",$line);

				$sel <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	33680	33864	
==>s_0 {
    return Slice(@_, 0);
}
sub SLICE_plus_1 {
    return Slice(@_, 1);
}
sub SLICE_plus_2 {
    return Slice(@_, 2);
}
sub SLICE_plus_3 {
    return Slice(@_, 3);
}

sub Store_Sli <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	61394	61489	
==>n the text before closing one or more levels of nested
brackets.

=item C<Unmatched embedded quo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943959	944252	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "charset",
                  "FLAGS" => ":base_core",
                  "ARG <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	718	850	
==>"} = sub {
        my $self = shift;
        my ( $code, $output, $desc, %options ) = @_;

        my $count = $self->{builder}-> <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	1003	1133	
==>"} = sub {
        my $self = shift;
        my ( $code, $output, $desc, %options ) = @_;
  
        my $count = $self->{builder}-> <==
2	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	1695	1957	
==>m/[0-9]+/
                  { $::name_len = $item[1] }

# We need the len of the macro substitution,
# because we extract is as a substring in the next line
substitution_len:   m/[0-9]+/
                  { $::substitution_len = $item[1] }

# length is known from <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	981	1129	
==>arrot::Test::Bc::$func"} = sub {
        my $self = shift;
        my ( $code, $output, $desc, %options ) = @_;
  
        my $count = $self->{builde <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64193	64325	
==>($2)
					{
						my $pos = pos $grammar;
						substr($grammar,$pos,0,
						       "<leftop: $name $2 $name>($1) ");

						pos $gr <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	497	636	
==>r) = @_;

  my $kind        = $self->kind;
  my $peer        = $self->peer;

  my $prefix;

  if ($self->prefix) {
    $prefix = $self->pref <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	477	616	
==>r) = @_;

  my $kind        = $self->kind;
  my $peer        = $self->peer;

  my $prefix;

  if ($self->prefix) {
    $prefix = $self->pref <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5687	5824	
==>r $class;
        require "$pmc.dump";
 
        # there can be many libs
        my %libs = %{ $class->{flags}{lib} || {} };
        $pmc <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5898	6035	
==>r $class;
        require "$pmc.dump";
 
        # there can be many libs
        my %libs = %{ $class->{flags}{lib} || {} };
        $pmc <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	2519	2614	
==>mple::Debug will
throw a fatal error to the effect that
"it's s too late to call Pod::Simple::De <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3363	3485	
==>>get('linkflags');
            $linkflags =~ s/-opt:\S+//;
            $conf->data->set(linkflags => $linkflags);
        } <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4867	4989	
==>>get('linkflags');
            $linkflags =~ s/-opt:\S+//;
            $conf->data->set(linkflags => $linkflags);
        } <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	374	534	
==>goto> run loop.

=head2 Instance Methods

=over 4

=cut

package Parrot::OpTrans::CGP;

use strict;
use warnings;

use base qw( Parrot::OpTrans::CPrederef Parrot <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	7653	7774	
==>se_lines = $self->slurp_file($use_file);

      unshift @use_lines, "#line 1 \"$use_file\"\n";
      push @use_lines, "#li <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5932	6046	
==>oken,$$value)=&$lex($self);
#DBG>				$debug & 0x01
#DBG>			and	print STDERR "Need token. Got ".&$ShowCurToken."\n <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5649	5761	
==>oken,$$value)=&$lex($self);
#DBG>				$debug & 0x01
#DBG>			and	print STDERR "Need token. Got ".&$ShowCurToken."\n <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5610	5719	
==>rint STDERR ('-' x 40),"\n";
#DBG>		$debug & 0x2
#DBG>	and	print STDERR "In state $stateno:\n";
#DBG>		$deb <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5340	5446	
==>rint STDERR ('-' x 40),"\n";
#DBG>		$debug & 0x2
#DBG>	and	print STDERR "In state $stateno:\n";
#DBG>		$deb <==
2	/Users/nnunley/parrot/config/gen/cpu/x86_64/auto.pm	1	95	
==>=head1 NAME

config/gen/cpu/x86_64/auto.pl

=head1 DESCRIPTION

Adds -fPIC to x86_64 (AMD64) cc <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	3557	3662	
==>mc

src/pmc/$pmc.dump : vtable.dump $parent_dumps lib/Parrot/Pmc2c.pm \\
		src/pmc/$pmc.pmc
	\$(PMC2CD) sr <==
2	/Users/nnunley/parrot/config/gen/platform.pm	2126	2277	
==>verbose && $verbose == 2;
            open IN_H, "< $header_file" or die "Can't open $header_file: $!";
            print PLATFORM_H <<"END_HERE";
/*
** <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	11553	11695	
==>";
    } elsif ($min == 0 && $max == -1) {
        $base .= "*";
    } elsif ($min == 1 && $max == -1) {
        $base .= "+";
    } elsif ($ma <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035762	1036009	
==>t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    {{\@1}} = result;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036926	1037173	
==>t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    {{\@1}} = result;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	37279	37420	
==>string,
  'string-length' => \&_op_string_length,
  'string-ref'    => \&_op_string_ref,
  'string-set!'   => \&_op_string_set_bang,
  'string <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	11003	11158	
==>f ($c =~ /^(u|U)?'(.*)'/) {
	    my $u = defined $1 ? "u:" : "";
	    my $s = $2;
	    $c =~ s/.*/$u"$s"/;
	}
	print <<EOC;
	\t$cmt
EOC
    }
    else {
	pr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1108482	1108703	
==>l({{\@2}}));\n            {{\@1}} = pmc_new(interpreter, type);\n            break;\n        case enum_class_Key:\n            type = pmc_type_p(interpreter, {{\@2}});\n            if (type <= 0)\n                real_exce <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1948	2126	
==>sult}->{symbol}, $op->{arg2}->{symbol}\n";
        }
        else {
            print {$FH}
                "  $op->{result}->{symbol} = $op->{op} $op->{arg1}->{symbol}, $op-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	17302	17456	
==>ans) = @_;

    local $_ = $self->{PREAMBLE};

    if ($trans)
    {
        s/goto\s+OFFSET\((.*)\)/{{+=$1}}/mg;
        #s/goto\s+NEXT\(\)/{{+=$op_size}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	552	690	
==>the C C<#define> macros required by the ops.

=cut

sub defines
{
    return <<END;
#define REL_PC (cur_opcode - start_code)
#define IREG(i <==
2	/Users/nnunley/parrot/lib/Test/More.pm	5646	5788	
==>rgument.  It's optional, but highly
suggested that you use it.


=head2 I'm ok, you're not ok.

The basic purpose of this module is to print ou <==
2	/Users/nnunley/parrot/config/gen/icu.pm	3438	3576	
==>arn "error: ICU header '$header' not found\n";
            }
        }
    }

    die <<"HELP" unless $ok; # this text is also in Configure <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5371	5487	
==>atus=0;
	$$nberror=0;
	($$token,$$value)=(undef,undef);
	@$stack=( [ 0, undef ] );
	$$check='';

    while(1) { <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5113	5223	
==>atus=0;
	$$nberror=0;
	($$token,$$value)=(undef,undef);
	@$stack=( [ 0, undef ] );
	$$check='';

    while(1) { <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	3957	4095	
==>,
 'Ccedil'   , 199,
 'Egrave'   , 200,
 'Eacute'   , 201,
 'Ecirc'    , 202,
 'Euml'     , 203,
 'Igrave'   , 204,
 'Iacute'   , 205,
 'Ic <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	3956	4059	
==>ile the Parrot Intermediate Representation and generate Parrot Assembler Code.
Pass if the generated PAS <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	4139	4242	
==>ile the Parrot Intermediate Representation and generate Parrot Assembler Code.
Pass if the generated PAS <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	7874	8082	
==>else {
        map {
            my $str;
            if ($_->{label}) {
                $str .= "**" if $_->{label}{reachable};
                $str .= "$_->{label}->{label}: ";
            }
            $str <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614974	615089	
==>) {\n        real_exception(interpreter, next, NO_CLASS,\n            \"Class not parent of object\");\n    }\n    { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616125	616240	
==>) {\n        real_exception(interpreter, next, NO_CLASS,\n            \"Class not parent of object\");\n    }\n    { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645883	645991	
==>else\n\t\t{{\@1}} = Parrot_get_datatype_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646780	646888	
==>else\n\t\t{{\@1}} = Parrot_get_datatype_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	6050	6254	
==>ontains($next,@expected) )
		{
			push @expected, $next;
		}
	}

	return $self->{"expected"} = join ', or ', @expected;
}

sub _contains($@)
{
	my $target = shift;
	my $item;
	foreach $item ( @_ ) { return <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7312	7440	
==>in('|', @{$options{ignore}})
		    : defined($options{ignore})	       ? $options{ignore}
		    :					 ''
		    ;

	if (!defined $ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24314	24442	
==>in('|', @{$options{ignore}})
		    : defined($options{ignore})	       ? $options{ignore}
		    :					 ''
		    ;

	if (!defined $ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7152	7276	
==>', @{$options{reject}})
		    : defined($options{reject})	       ? $options{reject}
		    :					 ''
		    ;
	my $ignore  = re <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24154	24278	
==>', @{$options{reject}})
		    : defined($options{reject})	       ? $options{reject}
		    :					 ''
		    ;
	my $ignore  = re <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2275	2370	
==>offset)>

Transforms the C<OFFSET($offset)> macro in an ops file into the
relevant C code.

=cut <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	4873	5070	
==>type '$options{commentType}'";
        }
        foreach my $line (@comment) { print $out $line; }
        print $out "\n"; # extra newline after header
    }

    # this loop can not be implemented <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13750	13887	
==>score> (which acts like an unconditional <reject> during parsing)"
				: "an unconditional <reject>";
		my $caveat = $items[0]->describe = <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	8145	8278	
==>arser->{errors}};

	my $score;
	my $score_return;
	my $_tok;
	my $return = undef;
	my $_matched=0;
	my $commit=0;
	my @item = ();'.($: <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	1664	1766	
==>elsif ($atom->isa('P6C::sv_literal') && is_string($atom->type)) {
        $R = $self->convert_sv_litera <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2938	3077	
==>(pop_addr)]";
}

my %arg_maps = (
    'op' => "cur_opcode[%ld]",

    'i'  => "IREG(%ld)",
    'n'  => "NREG(%ld)",
    'p'  => "PREG(%ld)", <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	11420	11563	
==>name, $parameters) = ($2,$3,$4,$5);
        my ($methodblock, $rema)                    = extract_balanced($classblock);

        $methodblock = <==
2	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	1072	1173	
==>t_name.pir`;
	if ($output) {
		print "translate failed:\n$output";
		return 0;
	}
	$output = `$N2PConf <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7971	8080	
==>RE_${CURIC}_LAZY_MOVE

# No lazy move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTE <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8828	8937	
==>RE_${CURIC}_LAZY_MOVE

# No lazy move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTE <==
2	/Users/nnunley/parrot/config/gen/revision.pm	300	504	
==>ield is empty.

=cut

package gen::revision;

use strict;
use vars qw($description $result);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Revision;

$description = "Determining Parrot's revisi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122176	122467	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123088	123379	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_c <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	8699	8799	
==>_safe { 1 }

package Regex::Ops::Tree::nop;
sub minlen { 0 }
sub maxlen { 0 }

package Regex::Ops::Tr <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	1599	1782	
==>header;

  limit_rate();
  validate_params($CGI);
  add_smoke($CGI);
  clean_obsolete_smokes();

  print "ok";
}

sub validate_params {
  my $CGI = shift;

  if(not $CGI->param("versio <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	6815	7050	
==>s = @{ $self->{methods} };
    # copy super
    $const->{super} = { %{ $self->{super} } };
    my $i;
    foreach my $entry (@methods) {
	my $meth = $entry->{meth};
	if (does_write($meth, $self->{all}{$meth})) {
            # create met <==
2	/Users/nnunley/parrot/config/gen/icu.pm	3177	3350	
==>defined or invalid\n";
        $ok = 0;
    } else {
        $icuheaders =~ s![\\/]$!!;
        foreach my $header (@icu_headers) {
            $header = "$icuheaders/unicode <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeDumb.pm	711	844	
==>sub make_transcoder {
  my($e) = $_[1];
  die "WHAT ENCODING!?!?" unless $e;
  my $x;
  return sub {;
    #foreach $x (@_) {
    #  if <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeSmart.pm	441	562	
==>sub make_transcoder {
  my($e) = $_[1];
  die "WHAT ENCODING!?!?" unless $e;
  my $x;
  return sub {
    foreach $x (@_) { <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21543	21675	
==>r, 'pmc', $type{$op} );
    push @opcodes, @{ $expr1->[1] };
    push @opcodes, @{ $expr2->[1] };
    push @opcodes, new LocalDir( <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	898	1045	
==>1,
    list => 1,
    long => 1,
    int => 1,
    map => 1,
    max => 'v',
    min => 'v',
    range => 1,
    xrange => 1,
    reduce => 1,
    s <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	2	147	
==>/usr/bin/perl -w

use strict;
use Config::IniFiles;
use File::Basename;
use File::Find;
use File::Spec;
use FindBin;
use Getopt::Long;
use Pod::Us <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	9605	9701	
==>>_add_inst("FALSE_$label");
  my $false = $self->_generate(_get_arg($node,3));
  $self->_morph($r <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	223	335	
==>sed on a template describing how
the inlined tcl builtin works. Parameters specifying argument types and
subcomma <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	381605	382116	
==>,
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 446,
                  "ARGS" => [
                              "p",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 455 \"src/ops/i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	1417	1611	
==>print STDERR "}\n";
}


#
# PREDICATES:
#

sub is { my $self = shift; return grep { $self->kind eq $_ } @_; }

sub is_arith_assign  { return shift->is('arith-assign');  }
sub is_assign        { r <==
2	/Users/nnunley/parrot/config/auto/headers.pm	66	181	
==>fig/auto/headers.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/headers.pm - C headers

=hea <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	3033	3145	
==>itial version by Dan Sugalski.

=cut

*/

/*
 * Local variables:
 * c-indentation-style: bsd
 * c-basic-offset: 4 <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	3618	3727	
==>ge
  $cur_package = $line;

}

sub lib_line {
  my $line = shift;
  print OUTPUT "loadlib P1, '$line'\n";
}

s <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	3659	3914	
==>>{symbol}\"\n";
    }

    sub visitStoreLexOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  store_lex \"$op->{arg1}->{symbol}\", $op->{arg2}->{symbol}\n";
    }

    sub vi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1014999	1015101	
==>c/ops/sys.ops\"\n  const char * const tmp = strerror({{\@2}});\n  {{\@1}} = string_make(interpreter, tm <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015823	1015925	
==>c/ops/sys.ops\"\n  const char * const tmp = strerror({{\@2}});\n  {{\@1}} = string_make(interpreter, tm <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	1263	1465	
==>'',
            $self->new_item('', 'parrotbug'),
            $self->new_item('', 'tools/dev/check_source_standards.pl'),
            $self->new_item('', 'tools/docs/pod_errors.pl'),
            $self->n <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2377	2471	
==>ted, $description, @todo)>

Runs the target string against the Perl 6 pattern, passing the test <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3811	3905	
==>ted, $description, @todo)>

Runs the target string against the Perl 6 pattern, passing the test <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033458	1033569	
==>exical '%Ss' not found\", lex_name);\n    }\n    VTABLE_set_pmc_keyed_str(interpreter, lex_pad, lex_name, {{\@2} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034556	1034667	
==>exical '%Ss' not found\", lex_name);\n    }\n    VTABLE_set_pmc_keyed_str(interpreter, lex_pad, lex_name, {{\@2} <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20557	20645	
==>thing$="Whoa"
	bar(5)=66666
	lot$(2)="Goodbye"
	narf.first=909090
	poit(4).first=101010
e <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	11185	11310	
==>f $self->{DEBUG};

    push @ops, split(/\n/, <<'END');
my %rx_match;
$rx_match{'!INPUT'} = $rx_input;
$rx_match{'!GROUPS'} || <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	29657	29763	
==>course) that the
extracted substring is not returned.

=head2 A note about prefixes

Prefix patterns are ma <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17329	17424	
==>lon;

      my $arith = Jako::Construct::Statement::Concat->new($block, $ident, $left, $op, $rig <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	8565	8800	
==>ource->[$idx] !~ /\Q$end_boilerplate[$idx]\E/) {
            if ($ok == 2) { $mismatch_at = $idx; }
            $ok = 0;
        } else {
            $ok = 2 if $ok == 1;
        }
        $idx++;
    }

    if (! $ok) {
        if ($mi <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	1002	1181	
==>PTIONS

=over 4

=item C<--debug>

Increase debug level

=item C<--verbose>

Increase verbose level

=item C<--no-lines>

Omit source line info

=item C<--no-body>

Emit an empty b <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7480	7600	
==>r i = 1 to 3
	on i gosub oats, peas, beans
next i
print
end
100 print "100!"
    goto FIN
200 print "200!"
    goto FIN
3 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19763	19883	
==>r i = 1 to 3
	on i gosub oats, peas, beans
next i
print
end
100 print "100!"
    goto FIN
200 print "200!"
    goto FIN
3 <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	9782	10059	
==>$t = 'U';
    }
    elsif (is_num($c)) {        # num
	$t = 'N';
    }
    elsif ($c =~ /^\(/) {
	$t = 'u'; # unimp
    }
    $t;
}


sub promote {
    my $v = $_[0];
    my $n = $v->[1];
    if ($v->[2] ne 'P') {
	if ($v->[2] eq 'c') {
	    if ($v->[1] =~ /<code> (lambda_\d+)/ <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	569	667	
==>x>

The build prefix. Defaults to ''.

=item C<prefix>

The install prefix. Defaults to '/usr'.

=i <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	798	896	
==>x>

The build prefix. Defaults to ''.

=item C<prefix>

The install prefix. Defaults to '/usr'.

=i <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	13045	13183	
==>ree {
    my ($op) = @_;
    my $ref = $op->reftree();
    return dump_ref($ref);
}

sub dump_ref {
    my ($ref, $indent) = @_;
    $inden <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	267	383	
==>lass;
}

# Purely accessors:

sub tagname   { (@_ == 2) ? ($_[0][1] = $_[1]) : $_[0][1] }
sub tag { shift->tagname(@_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	244	358	
==>lass;
}

# Purely accessors:

sub tagname { (@_ == 2) ? ($_[0][1] = $_[1]) : $_[0][1] }
sub tag { shift->tagname(@_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168448	168560	
==>],
                  "BODY" => "#line 204 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169390	169502	
==>],
                  "BODY" => "#line 204 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	236	335	
==>Parrot::Docs::File->new('MANIFEST');

=head1 DESCRIPTION

This C<Parrot::IO::File> subclass adds a f <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	12567	12708	
==>atic void store_op(op_info_t *info, int full) {
    HOP * const p = mem_sys_allocate(sizeof(HOP));
    const size_t hidx = hash_str(full ? inf <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	9849	10007	
==>ll children. (Which is reasonable, since
        # everything but seq tries to match its children at the same
        # starting point in the string -- think o <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	26593	26731	
==>g_codes{$f} or $f eq '0' or $f eq '1';
      DEBUG > 2 and print "  Can't fall back on unknown code $f\n";
      $self->whine(
        $par <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	47	167	
==>ict;

sub import {
  my($value,$variable);
  
  if(@_ == 2) {
    $value = $_[1];
  } elsif(@_ == 3) {
    ($variable, $v <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3822	3941	
==>($_) foreach (@pmcs);

    # lib-GROUP.c
    for my $group (keys %$group_files) {
        compile("$group", "lib-$group" <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3926	4045	
==>($_) foreach (@pmcs);

    # lib-GROUP.c
    for my $group (keys %$group_files) {
        compile("$group", "lib-$group" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	7416	7615	
==>line 171 \"src/ops/core.ops\"\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8052	8251	
==>line 171 \"src/ops/core.ops\"\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650547	650664	
==>,
                  "BODY" => "#line 247 \"src/ops/pmc.ops\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtable_m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651469	651586	
==>,
                  "BODY" => "#line 247 \"src/ops/pmc.ops\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtable_m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314109	314351	
==>har)({{\@1}}));\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	315570	315812	
==>har)({{\@1}}));\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	39413	39584	
==>r($i = 2; $i < @$para; $i++) {
          foreach my $line ($para->[$i]) { # just for aliasing
            while( $line =~
              # Sort of adapted from Text::Tabs -- <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7174	7274	
==>_short"]
${DEST0} = concat ${STEMP0}
${STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
PIR
	}

	ret <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4996	5096	
==>_short"]
${DEST0} = concat ${STEMP0}
${STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
PIR
	}

	ret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137334	137630	
==>\@3}}, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	1925	2013	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub new {
  my $class = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	250051	250294	
==>"\n  {{\@1}} = ! {{\@1}};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35588	35688	
==>sub issubrule ($) { return $_[0]->{"subrule"} }
sub isterminal { 0 }
sub sethashname { }

sub describ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6901	6995	
==>int right$(t$, 5)
' instr
s1$="The longer string"
found$="longer"
bogus$="not"
print "Found  (5 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18630	18724	
==>int right$(t$, 5)
' instr
s1$="The longer string"
found$="longer"
bogus$="not"
print "Found  (5 <==
2	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	1971	2111	
==>ve
name:               m/[a-zA-Z0-9_-]{$::name_len}/ 

# length is known from the line above
substitution:       m/[a-zA-Z0-9_-]{$::substitut <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	581	729	
==>it;
};

$file = shift @ARGV;
$file =~ s/\.c$//;
my $infile = $file . '.c';
die "$0: $infile: $!" unless -e $infile;

my %known_strings = ();
my @all_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	17923	18061	
==>item C<version()>

Sets/gets the version number.

=cut

sub version
{
    my $self = shift;

    if (@_ == 1)
    {
        $self->{VERSION <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61779	61897	
==>code = $1)
		{
			my $name = $code;
			my $matchrule = 0;
			if (substr($name,0,1) eq '<')
			{
				$name =~ s/$MATCHRU <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	684	808	
==>mpiler);
    $compiler->outdent;
    $compiler->emit(".endnamespace ${namespace}");
  }

  return 1;
}


#
# sax()
#

sub sax <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	5015	5161	
==>xt;
            }

            ($percent, my $total_calls, $function) = /\s*([^%]+)% of (\d+) calls executed in function (.*)/;
            if ($to <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	599	769	
==>ss "Value is not!" if defined $value and not UNIVERSAL::isa($value, 'Jako::Construct::Expression::Value');
  confess "Left is not Value!" if defined $left and not UNIVERSA <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1068	1211	
==>$value, '"';
      }
    }
  } else { # faster
    while(($key,$value) = each %{$_[2]}) {
      unless($key =~ m/^~/s) {
        next if $key eq <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	2183	2314	
==>unless $self->content;

#  if ($options->{PACKAGE}) {
#    $options->{PACKAGE} .= "::" . $self->name;
#  }
#  else {
#    $options-> <==
2	/Users/nnunley/parrot/lib/Test/More.pm	26791	26896	
==>) =~ s/\$FOO/\$expected/;

    my $out = "Structures begin differing at:\n";
    foreach my $idx (0..$#val <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	51544	51639	
==>unt>

because the "less than" operator is interpreted as a closing delimiter.

But, by extractin <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2213	2332	
==>args[$i]->value) unless $arg_sym;
      $actual_arg_type = $arg_sym->type; 
    }
    else {
      $actual_arg_type = $a <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1913	2032	
==>args[$i]->value) unless $arg_sym;
      $actual_arg_type = $arg_sym->type; 
    }
    else {
      $actual_arg_type = $a <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	8875	9022	
==>tent seen in search for title.\n";
    return;
  }
  $self->{'Title'} = $title;

  esc($title);
  print {$self->{'output_fh'}}
   "<html><head>\n<ti <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	2318	2520	
==>= shift;
    
    return unless @_;
    
    my $fh = FileHandle->new('>>' . $self->path) or 
        die 'Failed to open ' . $self->path . ": $!";
    
    print $fh @_;
    
    $fh->close;
}

=item C< <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40175	40320	
==>" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41022	41167	
==>" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660150	660404	
==>->exists_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661072	661326	
==>->exists_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826675	826768	
==>OR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_num(entry->entry);\n  { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827745	827838	
==>OR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_num(entry->entry);\n  { <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1945	2079	
==>789])/'&#'.(ord($1)).';'/eg;
    # Yes, stipulate the list without a range, so that this can work right on
    #  all charsets that thi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2048	2182	
==>789])/'&#'.(ord($1)).';'/eg;
    # Yes, stipulate the list without a range, so that this can work right on
    #  all charsets that thi <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	4721	4953	
==><reg> = opcode' syntax where that syntax will
   eventually be prohibited.

Or not. =-)

=back

=head1 BUGS AND LIMITATIONS

Does not play well with heredocs. Should arguably be part of IMCC,
which already knows how to parse PIR.

=c <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	36956	37069	
==>ged> extracts and segments text between (balanced)
specified tags. 

The subroutine takes up to five optional argu <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	3769	3937	
==>($f, $args) = ($1, $2);
		my @args = split(/,/, $args);
		my $n = @args;
		$arg_count{$f} = $n;
		for (my $i = 0; $i < $n; $i++) {
		    my ($a, $def) = split(/=/, $args <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26639	26766	
==>xpr, $block ) = @_;
    my @opcodes    = ();
    my $l_continue = new_label($parser);
    my $l_break    = new_label($parser) <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	1350	1452	
==>precedence.

Here is an example parrotbench.conf:
    [global]
    directory = ../../examples/benchmark <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408302	408570	
==>= (INTVAL)PIO_connect(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409201	409469	
==>= (INTVAL)PIO_connect(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	3600	3726	
==>$hfile}}, function_components( $func ) );
            ++$nfuncs;
        }
    } # for @cfiles
    my $nfiles = scalar keys %fi <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	7978	8175	
==>n [ $result, \@opcodes1 ];
}

sub BuildVariable {
    my ( $parser, $var ) = @_;
    my @opcodes = ();
    my $idf     = shift @{$var};
    if ( ref($idf) eq 'ARRAY' ) {
        my $defn = $ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	691	785	
==>should be the relative path from the page to
F<docs/resources>, the image and CSS file director <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	1909	2003	
==>should be the relative path from the page to
F<docs/resources>, the image and CSS file director <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3942	4081	
==>n, where destination is the first
    # argument, given as --destination=DIRECTORY
    shift(@oplibs) =~ /--destination=(.*)/
      or die " <==
2	/Users/nnunley/parrot/config/inter/ops.pm	62	173	
==>/config/inter/ops.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/inter/ops.pm - Ops Files

=h <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4978	5103	
==>on configuration key $key\n",
        if $verbose;

    $self->{triggers}{$key}{$trigger} = $cb;

    return $self;
}

=item C <==
2	/Users/nnunley/parrot/languages/lua/luac.pl	442	576	
==>YData->{verbose_info}    = 1;    # 0, 1
$parser->Run(@ARGV);

if ( exists $parser->YYData->{nb_error} ) {
    my $nb = $parser->YYD <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1515	1613	
==>TEMP1} = "$register_num"
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Emit pop <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3225	3323	
==>TEMP1} = "$register_num"
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Emit pop <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152307	152508	
==>1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_str",
                  "FLAGS" <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15509	15603	
==>/^P/;
  my $value = $self->_generate (_get_arg($node,2));
  $self->_add_inst ('', 'set', [$retu <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15867	15961	
==>/^P/;
  my $value = $self->_generate (_get_arg($node,2));
  $self->_add_inst ('', 'set', [$retu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	311318	311479	
==>rpreter, &interpreter->int_reg, -1);\n        PDB_print_num(interpreter, &interpreter->num_reg, -1);\n        PDB_print_string(interpreter,&interpreter->string_re <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33685	33784	
==>and append code it generates.
		my $post_store = $srm->post_store($dest_reg);
		$pir .= "### post_st <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9533	9673	
==>n an XML Name.
        or $new_code =~ m/^[-\.0-9]/s
        or $new_code =~ m/:[-\.0-9]/s;
            # The legal under-0x80 Name character <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10797	10937	
==>n an XML Name.
        or $new_code =~ m/^[-\.0-9]/s
        or $new_code =~ m/:[-\.0-9]/s;
            # The legal under-0x80 Name character <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813719	813951	
==>> "inline",
                  "CODE" => 918,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 557 \"src/ops/set.ops\"\n  {{\@1}} = NULL;\n  {{+=2}};\n", <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8514	8603	
==>i+1);tab$(22);c$(i+2);tab$(32);c$(i+3)
next
print
data "ABANDON","CHART","COMPUTER"
data " <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21378	21467	
==>i+1);tab$(22);c$(i+2);tab$(32);c$(i+3)
next
print
data "ABANDON","CHART","COMPUTER"
data " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10975	11073	
==>rc/ops/core.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  S <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11764	11862	
==>rc/ops/core.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  S <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15964	16104	
==>.'[1]',$value]);
  $self->_restore ($value);

  return $return;
}

sub _op_null_p {
  my ($self, $node) = @_;
  my $return = $self->_save_1 ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	11706	11838	
==>t::Op->new($code++, $type, $short_name,
            [ @fixedargs ], [ @$argdirs ], [ @$labels ], $flags);
        my $op_size = $op-> <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	11467	11610	
==>ined $rules->{$next}; # SKIP NON-EXISTENT RULES
		return 1 if $next eq $root;
		my $child;
		foreach $child ( $rules->{$next}->leftmostsubrules( <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	3617	3796	
==>s+/, $_);
    $dest ||= $src;

    if ($seen{$src}++) {
        print STDERR "$ARGV:$.: Duplicate entry $src\n";
    }

    # Parse out metadata
    die "Malformed line in MANIFEST <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788000	788258	
==>_number_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788910	789168	
==>_number_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1	349	
==>! perl -w
################################################################################
# Copyright (C) 2005-2006, The Perl Foundation.
# $Id: /parrot/tools/dev/mk_inno.pl 19607 2006-05-30T15:23:20.183054Z coke  $
################################################################################

=head1 TITLE

tools/dev/mk_inno.pl - Create a scri <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	806	924	
==>sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'block', Attributes => { kind => $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1819	1937	
==>sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'block', Attributes => { kind => $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	48298	48413	
==>ak "But $class->_duo takes two parameters, not: @_"
   unless @_ == 2;

  my(@out);
  
  while( @_ ) {
    my $parse <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048282	1048382	
==>l_exception(1, \"Tried to get null global.\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_globa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049206	1049306	
==>l_exception(1, \"Tried to get null global.\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_globa <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	5701	5927	
==>el
                }
                if ($stmt->{code}->{name} =~ /^(?:goto|fail)$/) {
                    next BBLOCK;
                }
            }
	    $prev = $stmt;
	    $stmt = $stmt->{next};
	} while ($stmt && ! $stmt- <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8210	8342	
==>o {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Abort.\n";

				return(undef);

			};

#DBG>			$debug & 0x04
#DBG>		and <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7840	7962	
==>o {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Abort.\n";

				return(undef);

			};

#DBG>			$debug & 0x04
#DBG>		and <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24532	24678	
==>'P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
  } else {
    $return = $self->_generate <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26431	26577	
==>'P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
  } else {
    $return = $self->_generate <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7762	7865	
==>the POD documentation, if it exists. If an C<ABSTRACT> is found then
that is preferred.

=cut

sub short <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	7456	7597	
==>const_table($pf);
    compile_byte_code($pf, $file_name);

    undef $pf;

    return;
}

#
# MAIN PROGRAM:
#

@ARGV = qw(-) unless @ARGV;

fo <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9547	9632	
==>f8,/* 30 */
GG,$c,$d,$a,$b,$_[11],14,0x676f02d9,/* 31 */
GG,$b,$c,$d,$a,$_[16],20,0x8d <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19263	19385	
==>_AUTOACTION}{code}")
		and
		Parse::RecDescent::_hint("The \$::RD_AUTOACTION was defined,
					  so any production not endi <==
2	/Users/nnunley/parrot/config/auto/gc.pm	1338	1556	
==>hing

    cc_gen('config/auto/gc/test_c.in');
    eval { cc_build(); };
    my $test = 0;
    unless ($@) {
      $test = cc_run();
    }
    cc_clean();
    # used size should be somewhere here
    unless ($test >= 128 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319353	319591	
==>BELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" => ":dotgnu_c <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	40291	40387	
==>turned. The elements are:

=over 4

=item [0]

the extracted tagged substring (including the oute <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	4330	4505	
==>okens.
#

sub dump
{
  my $self = shift;


  while (1) {
    my $tok = $self->forth;

    printf STDERR "%6d : %-30s : %5s : %-15s: %1s : %s\n",
      $self->pos,
      $tok->f <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2066	2378	
==>1000000.0
$N1 = $N1 / $N2;              # div    N1, N1, N2
                              #
print "M op/s:        $N1\n"; # print  "M op/s:        "
                              # print  N1
                              # print  "\n"
                              #
exit(0);                      # end

=head1 SE <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	2066	2378	
==>1000000.0
$N1 = $N1 / $N2;              # div    N1, N1, N2
                              #
print "M op/s:        $N1\n"; # print  "M op/s:        "
                              # print  N1
                              # print  "\n"
                              #
exit(0);                      # end

=head1 SE <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	3015	3172	
==>return the C code prior to the run core function.

=item C<run_core_after_addr_table($base_suffix)>

Optionally implemented in subclasses to return the run co <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15292	15438	
==>ext_token_class'}->new(@_);
  return;
}

sub _handle_element_end {
  my $self = shift;   # leaving ($element_name);
  DEBUG > 2 and print "-- $_[0] <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	6599	6700	
==>lized Modifiable Data: %d ---\n", scalar keys %DataD;
    for my $api (sort keys %DataD) {
	printf "%s <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9307	9435	
==>s an XML Name symbol:
      Carp::croak "\"$new_code\" isn't a valid element name"
        if $new_code =~
          m/[\x00-\x2C <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10571	10699	
==>s an XML Name symbol:
      Carp::croak "\"$new_code\" isn't a valid element name"
        if $new_code =~
          m/[\x00-\x2C <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	6271	6402	
==>'larr'     , 8592,
 'uarr'     , 8593,
 'rarr'     , 8594,
 'darr'     , 8595,
 'harr'     , 8596,
 'crarr'    , 8629,
 'lArr'     , <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	1821	2074	
==>C<include>

Write this file to the location given by the C<--includedir> option

=item C<lib>

Write this file to the location given by the C<--libdir> option

=item C<bin>

Write this file to the location given by the C<--bindir> option

=back

The opti <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	2802	2905	
==>m C<copy_if_diff($from, $to, $ignorePattern)>

Copies the file specified by C<$from> to the location spe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784307	784400	
==>e 392 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_pmc_keyed_int(interpreter, {{\@1}}, {{\@2} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785213	785306	
==>e 392 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_pmc_keyed_int(interpreter, {{\@1}}, {{\@2} <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1673	1819	
==>r) = @_;

  $handler->start_element({ Name => 'assign' });
  $self->left->sax($handler);
  $self->right->sax($handler);
  $handler->end_element({ N <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	6891	7009	
==>scalar(@internal_symbols), scalar(@files));
    printf("Found %d external symbols\n", scalar(@external_symbols));
    p <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	24928	25286	
==>ocalDir( $parser,
            'prolog' => 1,
            'result' => $defn,
        );
        push @opcodes, new LexDir( $parser,
            'prolog' => 1,
            'result' => $idf,
            'arg1'   => $defn,
        );
    }
    my $assign = new AssignOp( $parser,
        'arg1'   => undef,
        'result' => $defn,
    );
    retu <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	17693	17846	
==>_FALSE
{
    my ($n, $c, $cmt) = @_;
    if (!@stack) {
	print "#XXX\t\t$cmt - stack empty\n";
	return;
    }
    my $tos = pop @stack;
    my $targ = "pc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804273	804382	
==>{\@1}}->vtable->set_pmc_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805174	805283	
==>{\@1}}->vtable->set_pmc_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477460	477819	
==>iv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 547,
                  "ARGS" => [
                              "i",
                              "ic <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	1292	1407	
==>e) = caller;
	if (substr($file,0,1) eq '-' && $line == 0)
	{
		_die("Usage: perl -MLocalTest - <grammarfile> <classn <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	37178	37319	
==>A string specifying a pattern to be matched as the opening tag.
If the pattern string is omitted (or C<undef>) then a pattern
that matches any <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327061	327149	
==>"src/ops/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, (INTVA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327863	327951	
==>"src/ops/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, (INTVA <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	4806	4913	
==>atic_string_${line}_data,
  sizeof(static_string_${line}_data) - 1,
  1,
  $h
};

DATA
  }
}

open IN, $infi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653568	653686	
==>ethod '%s' not found\", string_to_cstring(interpreter, {{\@3}}));\n    {{=resume}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654729	654847	
==>ethod '%s' not found\", string_to_cstring(interpreter, {{\@3}}));\n    {{=resume}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	7458	7582	
==>group$LOAD_EXT", $libs, \@sources))
          or die "partial link $group$LOAD_EXT failed ($?)\n";
    }
    else {
        1 <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7669	7793	
==>group$LOAD_EXT", $libs, \@sources))
          or die "partial link $group$LOAD_EXT failed ($?)\n";
    }
    else {
        1 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	1691	1906	
==>okup_var($1, $ctx)/eg;
                if (length($label) >= 8) {
                    push @r, $label;
                    $label = '';
                }
                if (ref($line)) {
                    push @r, <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	883	981	
==>sitory. (Needed for
# distributions or in general when svn is not available).
# See docs/submission <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3738	3836	
==>sitory. (Needed for
# distributions or in general when svn is not available).
# See docs/submission <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	1507	1624	
==>quote?)" if ( $cur eq -1 or $cur eq "\n");
			append;
			fetch;
		}
		append;
		$curtok=~s/^"|"$//g;    # Remove quote <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	33368	33611	
==><foo:bazE<123>bar>").  Feh.
          #$treelet->[$i][1]{'to'} = [ @{$treelet->[$i]} ];
          #splice @{ $treelet->[$i][1]{'to'} }, 0,2;
          #DEBUG > 1 and printf qq{Catching "%s as " as complex L<URL> link.\n},
          #  join '~', <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650440	650647	
==>GS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 247 \"src/ops/pmc.ops\"\n    if ({{\@2}} > 0 && {{\@2}} < interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465601	465820	
==>src/ops/math.ops\"\n  {{\@1}}--;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	466222	466441	
==>src/ops/math.ops\"\n  {{\@1}}--;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/config/auto/inline.pm	1231	1393	
==>>set_result('yes');
        } else {
            print " no " if $verbose;
            $self->set_result('no');
            $test   = '';
        }
    }

    $con <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4436	4603	
==>s*#\s*_Parse\s*$/
        	and     do {
                	s/^#DBG>//;
                	push(@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval jo <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4214	4372	
==>s*#\s*_Parse\s*$/
        	and     do {
                	s/^#DBG>//;
                	push(@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval jo <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	3787	3932	
==>ion);",
#      B => "PObj_bufstart(final_destination) = *return_data;\n    set_nci_S(interpreter, &st, final_destination);",
     );

my %func_cal <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	7807	7937	
==>lias vtable
    $const->{vtable} = $self->{vtable};
    # set parentname
    $const->{parentname} = $self->{class};

}

=item C<ini <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	480	606	
==>gs!" unless @_ == 5;

  my ($block, $prefix, $left, $op, $right) = @_;

  my $self = bless {
    BLOCK     => $block,

    PREF <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	480	606	
==>gs!" unless @_ == 5;

  my ($block, $prefix, $left, $op, $right) = @_;

  my $self = bless {
    BLOCK     => $block,

    PREF <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	7084	7195	
==>er;
    }
    return $self->{Expected_Tests};
}


=item B<no_plan>

  $Test->no_plan;

Declares that this test w <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	7247	7532	
==>> "inline",
                  "CODE" => 10,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 171 \"src/ops/core.ops\"\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1 <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	21799	21927	
==>here isn't one
already.

We encourage using this rather than calling print directly.

Returns false.  Why?  Because diag() is oft <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	42172	42486	
==>ref $thing) {
            unshift @stack, $thing;
            DEBUG > 2 and print "  Enqueuing ",
             pretty( $treelet->[$i][1]{$attrname} ),
             " as an attribute value to tweak.\n";
          }
        }
        
        unshift @stack, $treelet->[$i]; # recurse
        next;
      } elsif($tre <==
2	/Users/nnunley/parrot/tools/build/revision_c.pl	834	980	
==>nt Parrot_revision(void)
{
    return ${Parrot::Revision::current};
}

int Parrot_config_revision(void)
{
    return ${Parrot::Revision::config};
} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	14265	14429	
==>6
		ACTIONS => {
			"(" => 10,
			'CHAR' => 4,
			"<" => 3,
			"[" => 14,
			'CODE' => 6,
			"." => 15
		},
		GOTOS => {
			'expr' => 45,
			'charclass' => 12
		}
	} <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	23976	24107	
==>->{flags}{hll} && $self->{flags}{maps}) {

      my $hll  = (keys %{$self->{flags}{hll}})[0];
      my $maps = (keys %{$self->{flags <==
2	/Users/nnunley/parrot/lib/File/Which.pm	4242	4377	
==>u might be searching for C<perl>,
it'll try C<perl.exe>, C<perl.bat>, etc.)

=head1 Steps Used on Win32, DOS, OS2 and VMS

=head2 Window <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	11806	11976	
==>SULT'} = 1;
$rx_match{'0'}->[1] = $rx_pos - 1;
$rx_match{'!STACK'} = $rx_stack;
return \%rx_match;
END
}

sub output_rule_fail {
    my ($self, $name) = @_;
  return split <==
2	/Users/nnunley/parrot/examples/benchmarks/oo1.pl	72	195	
==>my $o = new Foo();
print $o->[0], "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift;
    return bl <==
2	/Users/nnunley/parrot/examples/benchmarks/oo2.pl	72	195	
==>my $o = new Foo();
print $o->[0], "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift;
    return bl <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1651	1744	
==>:_generate_subrule_pir($target, $pattern)
        : Parrot::Test::PGE::_generate_pir_for($targ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2174	2267	
==>:_generate_subrule_pir($target, $pattern)
        : Parrot::Test::PGE::_generate_pir_for($targ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323441	323925	
==>4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 379,
                  "ARGS" => [
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 139 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (UINTVAL)(Parrot_U <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11096	11204	
==>])/sprintf('%%%02X',ord($1))/eg;
        # Yes, stipulate the list without a range, so that this can work rig <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4445	4552	
==>])/sprintf('%%%02X',ord($1))/eg;
       # Yes, stipulate the list without a range, so that this can work rig <==
2	/Users/nnunley/parrot/config/auto/memalign.pm	480	590	
==>ign';

@args = qw(miniparrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->opt <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740315	740535	
==>ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 159 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}}->vtable->get_string(interprete <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	474	659	
==>ush @$tokref,$token;
      $token = $ch;
    } elsif($ch eq '-' and
            ($token =~ /^[a-z]/ or               # Dashes can be in an ident
             $token =~ /^[-]\d+(\.\d+)?[e <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	12569	12698	
==>whole array element.
The object reference is returned.

=item Hash (C<'%'> or C<'*%'>)

The element is a hash, initialized by defa <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	15732	15947	
==>) = @_;
    binary_word('xor', $cmt);
}

sub BINARY_LSHIFT
{
    my ($n, $c, $cmt) = @_;
    binary_word('shl', $cmt);
}

sub BINARY_RSHIFT
{
    my ($n, $c, $cmt) = @_;
    binary_word('shr', $cmt);
}

sub BINARY_AD <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7418	7574	
==>esub
            .local pmc match
            .local pmc code
            .local pmc exp
            target = unicode:"$target"
            pattern = "$patte <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527823	528074	
==>an((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	538820	539071	
==>an((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	598	797	
==>ion_dir, version_arch_dir
# and inc_version_list code from lib.pm because I am hoping that perl6
# and the new module functionality will not need it. Althoug this may be a 
# niave understanding of wh <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656411	656500	
==>\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed_int(interpreter, { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657335	657424	
==>\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed_int(interpreter, { <==
2	/Users/nnunley/parrot/examples/benchmarks/stress.pl	640	728	
==>s/benchmarks/stress.pasm>, 
F<examples/benchmarks/stress1.pasm>, 
F<examples/benchmarks/s <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	17035	17216	
==>nitial' at "} .
				     substr($$textref, $oppos, 20) .
				     q{..."},
				 pos $$textref;
			pos $$textref = $startpos;
			return;
		}
		$modpos= pos($$textref);
		$rd1pos = $mo <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2208	2307	
==>rt

This is a shortcut for C<< $token->type() eq "start" >>

=item $token->is_text

This is a shortc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032731	1033216	
==>NAME" => "store_lex",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1155,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 41 \"src/ops/var.ops\"\n    parrot_context_t * con <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033828	1034256	
==>NAME" => "store_lex",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1156,
                  "ARGS" => [
                              "sc",
                              "p"
                            ],
                  "BODY" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721863	722187	
==>i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 809,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 149 \"src/op <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6179	6294	
==>= shift;
	
	if ( $self->contains_pod )
	{
		my $formatter = Parrot::Docs::POD2HTML->new;
		
		$self->{POD_HTML} = $f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925603	926105	
==>RGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1042,
                  "ARGS" => [
                              "i",
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 385 \"src/ops/string.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO_H <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29179	29294	
==>,
		"line"        => $_[3],
		"description" => "'$desc'",
	}, $class;
}


sub code($$$$)
{
	my ($self, $namespace, $ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31279	31391	
==>,
		"line"      => $_[3],
		"description" => "'$desc'",
	}, $class;
}

sub code($$$$)
{
	my ($self, $namespace, $ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	901	1014	
==>y $in = $_[0];
  return undef unless defined $in and length $in;
  
  # Convert to decimal:
  if($in =~ m/^(0[0-7] <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2260	2373	
==>y $in = $_[0];
  return undef unless defined $in and length $in;
  
  # Convert to decimal:
  if($in =~ m/^(0[0-7] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411641	411910	
==>E" => "function",
                  "CODE" => 475,
                  "ARGS" => [
                              "i",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 552 \"src/ops/io.o <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	2834	2955	
==>~ m/^head\d$/s) 
    {
        $self->process_item_text_or_head_start_token($token);
    } 
    elsif ($tagname eq 'Data') <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824444	824542	
==>pth wrong\");\n  if (entry->entry_type != STACK_ENTRY_STRING) {\n    internal_exception(ERROR_BAD_S <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825515	825613	
==>pth wrong\");\n  if (entry->entry_type != STACK_ENTRY_STRING) {\n    internal_exception(ERROR_BAD_S <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	1254	1368	
==>ch>ed and predereferenced run loop.

=item C<CPrederef>

Create the predereferenced run loop.

=back

=head2 Option <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	410520	410931	
==>FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 474,
                  "ARGS" => [
                              "i",
                              "p",
                              "s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421325	421788	
==>FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 484,
                  "ARGS" => [
                              "i",
                              "p",
                              "s"
                            ],
                  " <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30347	30502	
==>ce in P6
	# Dest returned in P1
STRUCT_COPY:
SCOPYDIS
	foreach(keys %usertypes) {
		print CODE<<DISP;
	eq S0, "$_", COPY_$_
DISP
	}
	print CODE <<DISP2;
	pr <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37546	37681	
==>ount != 0 goto INS_TRANS_CP_LOOP_$name
pop_count = elements dtypes
if pop_count == 0 goto INS_TRANS_PUSH_LOOP_$name
type_trans = dtypes[ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	18380	18494	
==>ntent = join ' ', splice @$para, 2;
      $content =~ s/^\s+//s;
      $content =~ s/\s+$//s;
      unless(length($ <==
2	/Users/nnunley/parrot/Configure.pl	692	798	
==>etting.

=item C<--verbose=2>

Tells Configure.pl to output information about i<every> setting added or
cha <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	2112	2230	
==>ub create_path
{
    my $self = shift;
    
    return 1 unless $self->parent_path;
    
    unless ( -e $self->parent_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145184	145435	
==>DE" => 177,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 84 \"src/ops/cmp.ops\"\n  if (string_e <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	693	829	
==>',
            $self->new_item('', 'tools/dev/as2c.pl'),
            $self->new_item('', 'tools/dev/cc_flags.pl'),
            $self->new <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1958	2058	
==>ck   { ++$_[0]{'Indent'} }

sub   end_over_bullet  { --$_[0]{'Indent'} }
sub   end_over_number  { --$ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1526	1626	
==>ck   { ++$_[0]{'Indent'} }

sub   end_over_bullet  { --$_[0]{'Indent'} }
sub   end_over_number  { --$ <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	545	662	
==>$N1 = pow $N1, $N2
	%1 = $N1

END_PIR

    '\x{d7}' => [ 'Multiply', '%1 = %1 * %2' ],
    '\x{f7}' => [ 'Divide', '%1 <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1621	1718	
==>${INS} = concat ${STACK$register_num}
${INS} = concat " = pop s\n"
PIR
		$pir =~ s/\$register_num/ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3331	3428	
==>${INS} = concat ${STACK$register_num}
${INS} = concat " = pop s\n"
PIR
		$pir =~ s/\$register_num/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83820	84055	
==>, compreg_hash, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84726	84961	
==>, compreg_hash, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
2	/Users/nnunley/parrot/config/init/defaults.pm	1010	1114	
==>$Config{cc},
        ccflags => $Config{ccflags},
        ccwarn  => exists($Config{ccwarn}) ? $Config{cc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117889	118117	
==>" => "#line 226 \"src/ops/bit.ops\"\n  {{\@1}} >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118628	118856	
==>" => "#line 226 \"src/ops/bit.ops\"\n  {{\@1}} >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1842	2109	
==>rint  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 = $N1 / $N2;              # div    N1, N1, N2
$N2 = 1000000.0;              # set    N2, 1000000.0
$N1 = $N1 / $N2;              # di <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1842	2109	
==>rint  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 = $N1 / $N2;              # div    N1, N1, N2
$N2 = 1000000.0;              # set    N2, 1000000.0
$N1 = $N1 / $N2;              # di <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83797	84032	
==>c_keyed_str(interpreter, compreg_hash, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84703	84938	
==>c_keyed_str(interpreter, compreg_hash, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	4335	4426	
==>e Parrot Intermediate Representation and generate Parrot Assembler Code.
Pass unless the gen <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7956	8061	
==>t)"
i=0
if i then print "Should not happen (flo)"
i=55
if i then print "This is true" else print "Oops (fl <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14943	15048	
==>t)"
i=0
if i then print "Should not happen (flo)"
i=55
if i then print "This is true" else print "Oops (fl <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	20354	20491	
==>pcode\t $rest";
	if ($rest =~ /to (\d+)/) {
	    $targ = "pc_$1";
	}
	$op = $op_map{$c};
    }
    elsif ($opcode eq 'UNARY_NOT' && $code[ <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	4013	4126	
==>, $trans) = @_;

    return $trans->prefix . $self->full_name;
}

=item C<arg_types()>

Returns the types of the o <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	6886	7001	
==>k "Can't unget $t, because it's not a token object!"
     unless UNIVERSAL::can($t, 'type');
  }
  
  unshift @{$sel <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320059	320352	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" => ": <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320829	321122	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" => ": <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	4643	4820	
==>ode might be useful in a non debugging version
        );
        $warns = "";
        while (my ($vers, $opt) = splice @opt_and_vers, 0, 2) {
            last if $vers > $gccver <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688124	688217	
==>e 576 \"src/ops/pmc.ops\"\n   {{\@1}}->vtable->delprop(interpreter, {{\@1}}, {{\@2}});\n   {{+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688896	688989	
==>e 576 \"src/ops/pmc.ops\"\n   {{\@1}}->vtable->delprop(interpreter, {{\@1}}, {{\@2}});\n   {{+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932166	932469	
==>"NAME" => "upcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1047,
                  "ARGS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931396	931695	
==>"NAME" => "upcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1046,
                  "ARGS <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9698	9805	
==>BG>			$debug & 0x10
#DBG>		and	print STDERR "**Dicard invalid token ".&$ShowCurToken.".\n";

			$$token=$ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9261	9365	
==>BG>			$debug & 0x10
#DBG>		and	print STDERR "**Dicard invalid token ".&$ShowCurToken.".\n";

			$$token=$ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	6654	6808	
==>ly set methods.

=cut

sub make_const() {
    my ($self, $class) = @_;

    my $const = bless {}, $class . '::Const';
    $self->{const} = $const;
    my @ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093115	1093449	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "morph",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 12 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093917	1094251	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "morph",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 12 <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3159	3298	
==>CALL'],
  ['',            'set', 'P15', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_C <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	8122	8228	
==>ined $t and length $t;
    # TODO: enforce some limitations on what a target name can be?
    $this->{'acce <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	8081	8203	
==>pe[NEXT] =~ /STMT|COMM|COMP/) {  # No arg version
		@e=EXPRESSION();
	}
	push @{$code{$seg}->{code}},<<CLS;
	_screen_clear( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2468	2573	
==>d $formal_arg_type;

    $self->INTERNAL_ERROR("Can't determine type of actual argument (%s)!", ref $args[ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2168	2273	
==>d $formal_arg_type;

    $self->INTERNAL_ERROR("Can't determine type of actual argument (%s)!", ref $args[ <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	2030	2206	
==>$entry;

    if ($meta{doc}) {
        $entry = "%doc $dest";
    } elsif ($meta{lib}) {
        $entry = "$options{libdir}/$dest";
    } elsif ($meta{bin}) {
        $entry = " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656432	656523	
==>NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657356	657447	
==>NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{ <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	11781	11980	
==>th.h
ldiv        stdlib.h
lgamma      math.h
lgammaf     math.h
lgammal     math.h
llabs       stdlib.h
llrint      math.h
llrintf     math.h
llrintl     math.h
llround     math.h
llroundf    math.h
l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327125	327358	
==>erpreter, {{\@1}}, (INTVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327927	328160	
==>erpreter, {{\@1}}, (INTVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10742	10870	
==>ection);
        # Turn char 1234 into "(1234)"
        $section = '_' unless length $section;
    }
    
    foreach my $it ($to <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4119	4238	
==>ection);
     # Turn char 1234 into "(1234)"
    $section = '_' unless length $section;
  }
  
  

  foreach my $it ($to <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5415	5527	
==>t $result, 0.0
EQ_${eqnum}_end: noop
CODE
	},
	'eqv' => sub {
		my($a1,$a2,$result,$op,$ot1,$ot2)=@_;
		$result=~ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365229	365324	
==>ne 303 \"src/ops/io.ops\"\n  if ({{\@2}} && {{\@1}}) {\n    PIO_putps(interpreter, {{\@1}}, {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366069	366164	
==>ne 303 \"src/ops/io.ops\"\n  if ({{\@2}} && {{\@1}}) {\n    PIO_putps(interpreter, {{\@1}}, {{\@ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	3385	3529	
==>xtref,
			$matchpos, $endpos-$matchpos,		# MATCH
			$endpos,   length($$textref)-$endpos,	# REMAINDER
			$startpos, $prelen;			# PREFIX
}

sub ex <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	198	326	
==>s

=head1 SYNOPSIS

    % perl tools/build/ops2c.pl trans [--help] [--no-lines] [--dynamic] [--core | input.ops [input2.ops ...]] <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	70096	70241	
==>|| $grammar =~ m/$ANY/gco;
	my $min = 1;
	if ( $grammar =~ m/$MANY/gco
	  || $grammar =~ m/$EXACTLY/gco
	  || $grammar =~ m/$ATMOST/gco
	  || $gra <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	20650	20790	
==>el2]*)*$ldel2/gcs
			|| do { pos $$textref = $startpos; return };
		}
		$rd2pos = pos($$textref)-1;
	}
	else
	{
		$ld2pos = $str2pos = $rd2po <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	688	797	
==>nput is charclass, advance 1" ],

    [ "start(n)" => "mark start of n-th paren match" ],
    [ "end(n)" => "m <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12281	12387	
==>he name has no known value (as with a name of "qacute") or is
syntactally invalid (as with a name of "1/4") <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12832	12938	
==>he name has no known value (as with a name of "qacute") or is
syntactally invalid (as with a name of "1/4") <==
2	/Users/nnunley/parrot/examples/benchmarks/freeze.pl	885	984	
==>h($image), "\n";
print "array size ", scalar(@b), "\n";

=head1 SEE ALSO

F<examples/benchmarks/free <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	218	321	
==>tional/If.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	4160	4431	
==>my $TEMP_pmc_classes_pmc = $pmc_list)     =~ s/^| / src${slash}pmc${slash}/g;

    # Gather the actual names (with MixedCase) of all of the
    # non-abstract built-in PMCs.
    my @names;
    PMC: foreach my $pmc_file (split(/\s+/, $pmc_list)) {
        next if ($pmc_fil <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	19571	19761	
==>s;	# HAVE TO DO THIS BECAUSE LOOKAHEAD BROKEN
	my ($ldel1, $rdel1) = ("\Q$1","\Q$1");
	if ($ldel1 =~ /[[(<{]/)
	{
		$rdel1 =~ tr/[({</])}>/;
		_match_bracketed($textref,"",$ldel1,"","",$rdel1 <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	15614	15804	
==>= @_;

    local $Level = $Level + 1;

    my $ok = 0;
    my $usable_regex = $self->maybe_regex($regex);
    unless (defined $usable_regex) {
        $ok = $self->ok( 0, $name );
        $se <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490106	490410	
==>ps/math.ops\"\n  {{\@1}} = floor({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	21970	22103	
==>[0] $_->[1] $_->[2]\n";
    }
}


sub ret_val {
    my $a = shift;
    my %rets = (
	'id'       => 'I',
    );
    return $rets{$a} if <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	2172	2309	
==>tem C<write_docs($silent, $delete)>

Writes the HTML documentation.

If C<$silent> is true then progress is not reported.

If C<$delete> i <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19924	20032	
==>check, and/or if you want it to hyphenate right.

Here are some notable values:

  1033  US English
  2057  U <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1791	1911	
==>ler) = @_;

  my $block = $self->block;
  my $name  = $self->ident ? $self->ident->value : undef;
  my $cond  = $self->co <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	1321	1631	
==>lsif( $type eq 'ARRAY' ) {
                @{$_[0]} = @$data;
            }
            elsif( $type eq 'SCALAR' ) {
                ${$_[0]} = $$data;
            }
            else {
                die "Unknown type: ".$type;
            }

            return $_[0];
        };
    }
    # 5.8.0's threads::s <==
2	/Users/nnunley/parrot/config/init/hints/irix.pm	4	101	
==>pyright (C) 2005, The Perl Foundation.
# $Id: /parrot/config/init/hints/irix.pm 19593 2006-05-30T0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494994	495252	
==>=> 568,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 590 \"src/ops/math.ops\"\n  {{\@1}} = intval_mod({ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1006739	1007073	
==>=> 1123,
                  "ARGS" => [
                              "i",
                              "i",
                              "sc",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string <==
2	/Users/nnunley/parrot/config/inter/progs.pm	1830	1944	
==>= prompt("What C compiler do you want to use?", $cc)
        if $ask;
    $conf->data->set(cc => $cc);

    $link = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561803	561897	
==>ps\"\n  opcode_t *next = {{^+4}};\n  {{\@1}} = VTABLE_find_method(interpreter, {{\@2}}, {{\@3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562887	562981	
==>ps\"\n  opcode_t *next = {{^+4}};\n  {{\@1}} = VTABLE_find_method(interpreter, {{\@2}}, {{\@3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1408	1516	
==>Called by C<goto_address()>.

=cut

sub expr_address
{
    my ($self, $addr) = @_;

    return $addr;
}

=ite <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	34120	34401	
==>\&_op_complex_p,
  'real?'            => \&_op_real_p,
  'rational?'        => \&_op_rational_p,
  'integer?'         => \&_op_integer_p,
  'exact?'           => \&_op_exact_p,
  'inexact?'         => \&_op_inexact_p,
  '='                => \&_op_eq,
  '<'                => \&_op_ <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	16078	16260	
==>PLVector') {
               $vector = "op1";
               $scalar = "op2";
			   @order = qw/ $P1 $P2 /;
           } else {
               $vector = "op2";
               $scalar = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351257	351634	
==>"NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 409,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 190 \"src/op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350596	350828	
==>"NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 408 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30630	30749	
==>ture create dispatch routine
	# Call with S0 set to the type
	# Dest returned in P0
STRUCT_DIM:
SCOPYDIS
	foreach(keys % <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	29830	30007	
==>turns the reason (ie. the value of $TODO) if running as
todo tests, false otherwise.

todo() is about finding the right package to look for $TODO in.  It
uses the exported_to() p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	3230	3398	
==>ess defined $pos;
  $self->INTERNAL_ERROR("Offset is not defined")   unless defined $offset;

#  DEBUG(0, "Current position is $pos");
  $pos += $offset;
#  DEBUG(0, "Ge <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38424	38530	
==>, $line, $out_name);
    }
    my $decl = $self->decl($self->{class}, $method, 0);
    my $parameters = $me <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15638	15757	
==>-65536)).'?'/eg;
    return $x;
  }
}

sub rtf_esc_codely {
  # Doesn't change "-" to hard-hyphen, nor apply computerese <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16801	17061	
==>$ret = $self->body($method, $line, $out_name);
        $line += count_newlines($ret);
        $cout .= $ret;
    }

    $cout;
}

=item C<lib_load_code()>

Returns the C code for loading a library.

=cut

sub lib_load_code() {
    my $self = shift;

    my $cla <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16544	16730	
==>$ret = $self->body($method, $line, $out_name);
            $line += count_newlines($ret);
            $cout .= $ret;
        }
    }

    # nci methods
    foreach my $method (@{ $self->{ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	10043	10240	
==>" or $type[NEXT] eq "COMP" or $type[NEXT] eq "COMM" ) ) {
			$eol=0;
			fdprint($fd, $syms[CURR]);
			feedme();
			$expr=1;
			next;
		}
		if ($syms[CURR] eq ";") {
			$eol=1;
			feedme();
			$expr= <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19703	19825	
==>1, TRUE, $_[1] ]); }
	],
	[#Rule 14
		 'expr', 3,
sub
#line 119 "lib/Regex/Grammar.y"
{ return op('multi_match' => [ 0, -1, <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	47650	47748	
==>he here document),
which would cause the earlier " || die;\nexit;" to be skipped in any
sequence of <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	373945	374081	
==>i"
                            ],
                  "BODY" => "#line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374828	374964	
==>i"
                            ],
                  "BODY" => "#line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interpre <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5709	5826	
==>$_=pop @ifstack;
			if ($_ < 0 ) {
				# print "Else was done, skipping...\n";
			} else {
				push @{$code{$seg}->{co <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8059	8172	
==>$_=pop @ifstack;
		if ($_ < 0 ) {
			# print "Else was done, skipping...\n";
		} else {
			push @{$code{$seg}->{co <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1531	1704	
==>'s arguments.

=cut

sub args
{
    my $self = shift;

    if (@_)
    {
        $self->{ARGS} = [ @_ ];
    }
    else
    {
        return $self->{ARGS};
    }
}

=item C<a <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1140	1313	
==>'s arguments.

=cut

sub args
{
    my $self = shift;

    if (@_)
    {
        $self->{ARGS} = [ @_ ];
    }
    else
    {
        return $self->{ARGS};
    }
}

=item C<a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82012	82322	
==>iler\");\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82906	83215	
==>iler\");\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "comp <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	18654	18753	
==>!".

In cases where get_title can't find the title, it will return empty-string
("").

=item my $tit <==
2	/Users/nnunley/parrot/lib/Test/More.pm	12206	12313	
==>ref,    $type,  $ref_name);

Checks to see if the given C<< $object->isa($class) >>.  Also checks to make
su <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036384	1036598	
==>=> [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 64 \"src/ops/var.ops\"\n    parrot_context_t * const ctx = CONTEXT(interpr <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	969	1094	
==>se {
    die "Error: Cannot load rules file $rules_file: $!\n";
}

# Create metavariables table.
my $metavars = {};

# Generat <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	820	915	
==>t
if they match.  Note that patterns should be specified as strings
and without leading/trailing <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2918	3013	
==>t
if they match.  Note that patterns should be specified as strings
and without leading/trailing <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7134	7263	
==>$self->name unless $self->contains_pod;
	
	my $text = $self->read;
	
	return '' 
		unless $text =~ /^=head1\s+(?:NAME|TITLE|TITEL) <==
2	/Users/nnunley/parrot/lib/Test/More.pm	16543	16660	
==>hat you run use_ok() inside a BEGIN
block so its functions are exported at compile-time and prototypes are
properly ho <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	2639	2735	
==>hift->is('infix-bit');     }
sub is_infix_concat  { return shift->is('infix-concat');  }
sub is_i <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1626	1726	
==>_start( "head1", \%attributes );
  $parser->_handle_text( "Hi there" );
  $parser->_handle_element_en <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32065	32190	
==>orrect for this.
            $para->[1]{'number'} = $expected_value;
            $self->whine(
              $para->[1]{'start <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32474	32599	
==>orrect for this.
            $para->[1]{'number'} = $expected_value;
            $self->whine(
              $para->[1]{'start <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	369	496	
==>e_N_LAMBDA'],
  ['',             'print', '"lambda"'],
  ['',             'branch', 'write_RET'],
  ['write_N_LAMBDA','eq', 'I0' <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17322	17442	
==>foo$
print t$
t=0
do
	print "This is right"
	exit do
	print "This is wrong"
	t=t+1
loop until t>1

' Function test:  A, 3 <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4956	5075	
==>g on the lazy moves stack?
${ITEMP0} = elements lazy_moves
if ${ITEMP0} > 0 goto PRE_BRANCH_${CURIC}_LAZY_MOVE_$register <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	6801	6984	
==>ch we use later.
        #
        # Either of these two forms work:
        #
        #   inline op  name (args) {
        #   op         name (args) {
        #
        # The args ar <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	3611	3717	
==>y $self = shift;

    my ($verbose, $verbose_step, $ask) =
        $self->options->get(qw(verbose verbose-s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324686	324769	
==>"src/ops/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}},{{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325479	325562	
==>"src/ops/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}},{{ <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	10378	10686	
==>(1+x) - ln (1 -x))
    $N1 = op2 + 1
    $N1 = ln $N1
    $N2 = 1 - op2
    $N2 = ln $N2
    $N1 = $N1 - $N2
    $N1 *= 0.5
    .return ($N1)
.end

.sub unicode:"dyadic:\u235f"          # logarithm
    .param num op1
    .param num op2
    $N1 = ln op1
    $N2 = ln op2
    $N3 = $N1 / $N2
    .return($N3)
.e <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29744	29839	
==>th};
    my $n = $self->{has_method}{$meth};
    return $self->SUPER::body($self->{methods}[$n], <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	2326	2507	
==>y.

=cut

sub vtbl_defs {
    my $vtable = shift;

    my $defs = q{};
    my $entry;

    for $entry (@{$vtable}) {
    next if ($entry->[4] =~ /MMD_/);
        my $args = join(", " <==
2	/Users/nnunley/parrot/tools/dev/cc_flags.pl	1361	1521	
==>)\1([imsx]*)\s*}{}) {
	    my $mod = "";
	    $mod = "(?$4)" if $4;

	    push @options, [ $regex, 's', "$mod$2", $3 ];
	}
	elsif (/\S/) {
	    die "syntax error <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2802	2957	
==>g "'$desc' was non-fatal and maybe shouldn't use eval_is()";
        &Test::is.goto($result, $expected, $desc, :$todo, :$depends);
    }
}

## cmp_ok

sub c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807856	807945	
==>02 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed(interpreter, {{\@2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808761	808850	
==>02 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed(interpreter, {{\@2 <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	4015	4178	
==>multiple times in the same process.

=cut

use vars qw($Level);

sub reset {
    my ($self) = @_;

    # We leave this a global because it has to be localized and l <==
2	/Users/nnunley/parrot/lib/File/Which.pm	1968	2070	
==>y @path = File::Spec->path();
    unshift @path, File::Spec->curdir if $Is_DOSish or $Is_VMS or $Is_Mac <==
2	/Users/nnunley/parrot/config/gen/platform.pm	1250	1580	
==>fined $verbose && $verbose == 2;

    # headers are merged into platform.h
    my @headers = qw/
        io.h
        math.h
        misc.h
        dl.h
        signal.h
        stat.h
        threads.h
        /;

    open PLATFORM_H, "> include/parrot/platform.h"
        or die "Can't open include/parrot/platform.h: $!";

    p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	15105	15231	
==>'else') {
        if (defined $cont) {
          $self->SYNTAX_ERROR("No more than one else block allowed.");
        }
      } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	250014	250210	
==>ODY" => "#line 693 \"src/ops/cmp.ops\"\n  {{\@1}} = ! {{\@1}};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	3279	3432	
==>c > $max goto bad_args\n"
            if $max;
    }
    
    return $code;
}

sub helpers {
    my (@args) = @_;
    
    # types present in this command <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	13809	13959	
==>return
EOC
    }
    else {
	print <<EOC;
	# $cmt
EOC
    }
}

sub YIELD_VALUE
{
    my ($n, $c, $cmt) = @_;
    my $tos = promote(pop @stack);
    pri <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326625	326889	
==>nv_i8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 383, <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3654	3879	
==>of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) = @_;

    my %arg_maps = (
        'op' => "cur_opcode[%ld]",

        'i'  => "(*(INTVAL *)OP_AS_OFFS(%ld))",
        'ki'  => "(*(INTVAL *)OP_AS_OFF <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	700	887	
==>e way.

=back

=head1 COMMAND-LINE ARGUMENTS

=over 4

=item C<OBJFILES>

One or more object file names.

=back

=cut

use Data::Dumper;
use Getopt::Long;
use lib qw( lib );
use Parrot::Co <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11719	11847	
==>')'/eg;
    #  Turn char 1234 into "(1234)"
  return $string;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819662	819760	
==>y) {\n    internal_exception(99, \"Stack Depth wrong\");\n  }\n  {{\@1}} = get_entry_type(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820622	820720	
==>y) {\n    internal_exception(99, \"Stack Depth wrong\");\n  }\n  {{\@1}} = get_entry_type(interpret <==
2	/Users/nnunley/parrot/lib/File/Which.pm	1660	1827	
==>it failed, just go on the normal way
                return $file unless $all;
                push @results, $file;
                # we can stop this loop as if it fi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10571	10803	
==>",
                  "NAME" => "bsr",
                  "FLAGS" => ":base_core,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11359	11591	
==>",
                  "NAME" => "bsr",
                  "FLAGS" => ":base_core,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline" <==
2	/Users/nnunley/parrot/lib/Test/More.pm	9486	9644	
==>, '/that/', 'this is like that' );

Regex options may be placed on the end (C<'/that/i'>).

Its advantages over ok() are similar to that of is() and isnt().  B <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	8411	8525	
==>STRING") {
			push(@expr, [ "0.0", "INT"],   # Cheating, making not a binary op
				[ "not", "PUN"] );
			next;
		} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	1398	1617	
==>each (keys %Regex::Generate::) {
	next unless /^output_(\w+)$/;
	$OUTPUT{$1} = $Regex::Generate::{$_};
    }
}
gather();

sub output {
    my @r;
    my $curlabel = "\t";
    for my $op (@_) {
	if (! ref($op)) {
	    pus <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600005	600099	
==>"#line 363 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601081	601175	
==>"#line 363 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\ <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5780	5909	
==>%{ $class->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There should be at most a single group
        my $g <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5991	6120	
==>%{ $class->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There should be at most a single group
        my $g <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8993	9105	
==>' not found\", label);\n    else {\n\tinterpreter->resume_offset = fe->offset;\n        Parrot_switch_to_cs(inter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10109	10221	
==>' not found\", label);\n    else {\n\tinterpreter->resume_offset = fe->offset;\n        Parrot_switch_to_cs(inter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864468	864897	
==>bytelength",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 981,
                  "ARGS" => [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863577	863998	
==>bytelength",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 980,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	2038	2222	
==>"JUMP" => 0,
                  "NAME" => "noop",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "C <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7114	7208	
==>$options{reject}) eq 'ARRAY' ? join('|', @{$options{reject}})
		    : defined($options{reject}) <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24116	24210	
==>$options{reject}) eq 'ARRAY' ? join('|', @{$options{reject}})
		    : defined($options{reject}) <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	1712	1929	
==>types );
use vars qw( $funcname );
use vars qw( $branchseq @selects $sourceline );
sub parse {
	$runtime_jump=0;
	init;
	runtime_init;
	feedme;
	$branchseq=0;
	$sourceline=1;
	my $currline="";	# The last labeled line b <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	933	1045	
==>ion rights)
#

package Parse::Yapp::Driver;

require 5.004;

use strict;

use vars qw ( $VERSION $COMPAT <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	908	1011	
==>ion rights)
#

package Parse::Yapp::Driver;

require 5.004;

use strict;

use vars qw ( $VERSION $COMPAT <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1167	1263	
==>l starting with YY (leading YY will be discarded)
my(%params)=(YYLEX => 'CODE', 'YYERROR' => 'CO <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1125	1220	
==>l starting with YY (leading YY will be discarded)
my(%params)=(YYLEX => 'CODE', 'YYERROR' => 'CO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1013712	1014027	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "err",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" = <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	4469	4578	
==>f->{Test_Results} = &share([]);

    $self->{Exported_To}    = undef;
    $self->{Expected_Tests} = 0;

    $s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	97454	97701	
==>DY" => "#line 86 \"src/ops/bit.ops\"\n  {{\@1}} = ~ {{\@1}};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21721	21856	
==>" (Should be \"=end " . $curr_open->[-1][1]{'target'} . '")' )
            : ''
          )
        );
        DEBUG and print "Ignoring <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	620	732	
==>$self->new_group('Operations', '',
			$self->new_item('Ops to C Code Generation', 
			    'lib/Parrot/OpsFile.pm' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712291	712391	
==>e 59 \"src/ops/python.ops\"\n  PMC * const io = PIO_STDOUT(interpreter);\n  STRING *s;\n  if (PIO_sof <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713398	713498	
==>e 59 \"src/ops/python.ops\"\n  PMC * const io = PIO_STDOUT(interpreter);\n  STRING *s;\n  if (PIO_sof <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	36066	36181	
==>act_inexact,
  'inexact->exact'   => \&_op_inexact_exact,

###
### Numerical input and output
###

  'number->string <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	12822	12932	
==>dyadic:\u2193" :multi (Float, APLVector) # drop
    .param int op1
    .param pmc op2

    if op1 < 0 goto neg_ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6951	7091	
==>gname eq $tagname;
    }
    
    # Convert them into an anchor name;
    
    my $name = $self->linearize_tokens(@to_unget);
    
    if ( d <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	1492	1599	
==>HIS FILE   !!!!!!!
 *
 * This file is generated automatically from '$infile'
 * by $0.
 *
 * Any changes mad <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	3781	3888	
==>HIS FILE   !!!!!!!
 *
 * This file is generated automatically from '$infile'
 * by $0.
 *
 * Any changes mad <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	1135	1266	
==>s. XXX This should go away
# Once PMI ports his lovely new perl6 code back into APL.

.sub "__load_pirtable" :load
    $P0 = new .Ha <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	684	796	
==>Value::Identifier');

  my $name = $ident->value;

  my $self = bless {
    BLOCK => $block,

    NAME  => $name, <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4777	4910	
==>r.
	if (!$dest_reg) {
		$pir .= <<'PIR'
# Get type.
${ITEMP0} = elements ${STYPES}
dec ${ITEMP0}
${PTEMP0} = ${STYPES}[${ITEMP0}]

# W <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	3371	3555	
==>ad;
    # Break up the $Id to prevent svn messing with it.
    my $has_id = $content =~ /(?:\$)Id:[^\$]+\$/so;
    
    return $has_id;
}

=item C<svn_version()>

Returns the svn versio <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	9970	10136	
==>f the available parrot opcodes.
neg_five:  # arcsinh(x) = ln(x+sqrt(x*x+1))
    $N1 = op2 * op2
    inc $N1
    $N1 = sqrt $N1
    $N1 += op2
    $N1 = ln $N1
    .ret <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	5227	5341	
==>= $pack;
    }
    return $self->{Exported_To};
}

=item B<plan>

  $Test->plan('no_plan');
  $Test->plan( skip_all <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658272	658365	
==>MC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659191	659284	
==>MC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{ <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	9148	9278	
==>val)
{
    Parrot_init_ret_nci(interpreter, st, "S");
    UVal_str(st->val) = val;
    Parrot_convert_arg(interpreter, st);
    Par <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	19340	19455	
==>DEBUG > 3 and print " Considering children of this $treelet->[0] node...\n";
    for($i = 2; $i < @$treelet; ++$i) { <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	21983	22098	
==>DEBUG > 3 and print " Considering children of this $treelet->[0] node...\n";
    for($i = 2; $i < @$treelet; ++$i) { <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	30637	30798	
==>op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $lbl_end;
            }
        }
    }
    pu <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	35184	35345	
==>op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $lbl_end;
            }
        }
    }
    pu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946851	947094	
==>=> 1065,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 526 \"src/ops/string.ops\"\n  INTVAL n = Parrot_charset_number(interpr <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	9228	9334	
==>dn't open \"@{[ BUCKET ]}\": $!\n";
  flock $fh, LOCK_EX
    or die "Couldn't flock \"@{[ BUCKET ]}\": $!\n <==
2	/Users/nnunley/parrot/config/init/manifest.pm	2	146	
==>Copyright (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/config/init/manifest.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

conf <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	946	1034	
==>EG(i) REG_NUM(cur_opcode[i])
#define PREG(i) REG_PMC(cur_opcode[i])
#define SREG(i) REG_S <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1062	1150	
==>EG(i) REG_NUM(cur_opcode[i])
#define PREG(i) REG_PMC(cur_opcode[i])
#define SREG(i) REG_S <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	22929	23084	
==>ine 181 "lib/Regex/Grammar.y"
{ return $_[1]; }
	]
],
                                  @_);
    bless($self,$class);
}

#line 184 "lib/Regex/Grammar.y"


1 <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2427	2568	
==>e(@vars)
##
## Select the first defined variable.
##
sub choose {
    for (@_) {
        return $_ if defined $_;
    }
    return;
}

##
## % <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	13374	13631	
==>>$_</font>)
            } else {
                print OUT $_;
            }
        }
    }
}


sub page_header {
    my ($title) = @_;

    qq(
        <html>
          <head>
             <title>$title</title>
          </head>
          <body bgcolor="wh <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3099	3273	
==>capes. For example, "\n" should be an actual newline.
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  my $type = $self->type;

  if (UNIVERSAL::isa($type, 'Jako::Con <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	21941	22076	
==>njunction with
a failing test (C<ok() || diag()>) it "passes through" the failure.

    return ok(...) || diag(...);

=for blame transfe <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	3903	4026	
==>, $thisparser, $prevflag)
{
	bless {
		text    => $_[1],
		parser  => $_[2],
		prev    => $_[3]?1:0,
	      }, $_[0];
}

sub <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	2907	3027	
==>, $thisparser, $prevflag)
{
	bless {
		text    => $_[1],
		parser  => $_[2],
		prev	=> $_[3]?1:0,
	      }, $_[0];
}

sub <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78297	78626	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlvar",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79817	80146	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlvar",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	295	438	
==>t('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }
    if ($libs !~ /-lrt\b/) {
        $libs .= ' -lrt';    # Need <==
2	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	739	825	
==>s/benchmarks/stress.pl>, 
F<examples/benchmarks/stress1.pasm>, 
F<examples/benchmarks/s <==
2	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	586	672	
==>s/benchmarks/stress.pl>, 
F<examples/benchmarks/stress1.pasm>, 
F<examples/benchmarks/s <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	59457	59554	
==>t escape char
is used for the remaining delimiters.
If no escape char is specified for a given spe <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	1064	1250	
==>t_u;
    convert_tests() if $opt_c;
    return run_tests(grep {-f $_} @ARGV);
}

##
## convert_tests()
##
## Convert the tests to a usable form.
##
sub convert_tests {
    print "Converti <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1098060	1098420	
==>,
                  "TYPE" => "function",
                  "CODE" => 1217,
                  "ARGS" => [],
                  "BODY" => "#line 283 \"src/ops/experimental.ops\"\n#if defined(__GNUC__) && defined(i386)\n    __asm__(\"int3\");       /* opcode 0xcc */\n#endif\n    {{+=1}};\n",
                  "experimental" => 1,
                  "LABELS" => [] <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5988	6119	
==>up;
        $pmc_group{$pmc} = $group;
        push @{ $group_files{$group} }, $pmc;
        $group_libs{$group} ||= {};
        for <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6199	6330	
==>up;
        $pmc_group{$pmc} = $group;
        push @{ $group_files{$group} }, $pmc;
        $group_libs{$group} ||= {};
        for <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	70528	70630	
==>$line)
		and
		_hint("Unless subrule \"$subrule\" performs some cunning
		       lookahead, the repetit <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206499	206611	
==>->get_integer(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207441	207553	
==>->get_integer(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	6345	6454	
==>"run_core_func_decl")) {
    print SOURCE $trans->run_core_func_decl($base);
    print SOURCE "\n{\n";
    pri <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	4668	4807	
==>y ($textref, $pre, $ldel, $qdel, $quotelike, $rdel) = @_;
	my ($startpos, $ldelpos, $endpos) = (pos $$textref = pos $$textref||0);
	unless ( <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	1509	1871	
==>se_usage {
    my $usage = shift;
    
    my @results;
    my $types = join "|", qw(int string var list channel script expr);
    my $type  = qr{
        (\??)             # literal, optional ?

        (-?)              # option marker

        (\w+)             # name

        (?: : ($types) )? # optional type
        (?: = ([^?]*)  )? # optional default val <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1294	1414	
==>languages', $language);
        } elsif ($dir_count == 1) {
          $path_to_language = $language;
        } elsif ($di <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1779	1899	
==>languages', $language);
        } elsif ($dir_count == 1) {
          $path_to_language = $language;
        } elsif ($di <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	156	308	
==>ter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings" <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	25512	25650	
==>r isn't a good thing to extend, because known.\n";
      $self->whine(
        $para->[1]{'start_line'},
        "You can't extend an estab <==
2	/Users/nnunley/parrot/config/auto/socklen_t.pm	707	846	
==>elf->set_result( $has_socklen_t ? 'yes' : 'no' );
    $conf->data->set(
        has_socklen_t   => $has_socklen_t,
    );
    
    return $s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83626	83723	
==>"#line 1201 \"src/ops/core.ops\"\n  PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interprete <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84532	84629	
==>"#line 1201 \"src/ops/core.ops\"\n  PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interprete <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719975	720069	
==>double){{\@2}});\n  PIO_putps(interpreter, io, s);\n  if (string_str_index(interpreter, s,\n\tc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721175	721269	
==>double){{\@2}});\n  PIO_putps(interpreter, io, s);\n  if (string_str_index(interpreter, s,\n\tc <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	1200	1343	
==>ompiler);

  $compiler->emit("  new $left, .$right");

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $hand <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964723	964923	
==>i",
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclas <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	18776	18945	
==>1, $dir2], 0, $file1, $file2, ... );

Print the inheritence tree for each of the files, using the
given directories to search for all of correct PMCs. The middle
argument <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	8528	8736	
==>:scan;
sub maxlen { undef };

# $ (not R$, just $)
package Regex::Ops::Tree::atend;

sub minlen { 0 }
sub maxlen { 0 }
sub startset { return () }
sub hasback { 0 }
sub dfa_safe { 1 }

package Regex::Ops::Tree: <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	5035	5131	
==>tains POD, then a link will be made to that file's
documentation file.

=cut

sub process_file_st <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	11762	11899	
==>ixedargs ], [ @$argdirs ], [ @$labels ], $flags);
        my $op_size = $op->size;
        my $jumps = "0";

        #
        # Macro sub <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36981	37165	
==>> 84,
			"]" => 175,
			">" => 86
		}
	},
	{#State 143
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRIN <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576587	576875	
==>erpreter, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577599	577887	
==>erpreter, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1851	1968	
==>ift @{ $parser->YYData->{scopef} }, $parser->YYData->{lex_num};
    $parser->YYData->{lex_num} = 0;
##    warn "Push <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	48985	49111	
==>rt_L, end_L, start_C, end_C, etc., if they are
defined.

have the POD FORMATTING ERRORS section note the localtime, and the
ver <==
2	/Users/nnunley/parrot/config/init/hints/cygwin.pm	221	326	
==>cygwin's perl is compiled with -lutil, which for some reason is not
    # in the standard installation, so <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4931	5065	
==>ies to be
included. To ignore everything below particular directories use a regex
in C<$ignore>.

=cut

sub files
{
    my $self = shif <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	8180	8351	
==>' ) {
        $tagname = 'Para_item' if @stack and $stack[-1] eq 'text';
      }
      print $fh $self->{'Tagmap'}{"/$tagname"} || next;
      --$dont_wrap if $tagname eq ' <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	1025	1139	
==>$file, @args);
print   badargs($cmd, @args);
print    footer();

sub open_tmt {
    my ($filename) = @_;

    local <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7985	8178	
==>f there is a return type, need to push ${DEST0} onto the stack.
${ITEMP0} = ${PTEMP1}["type"]
if ${ITEMP0} != ELEMENT_TYPE_VOID goto post_call_HAS_RETURN_${CURIC}
if "${CURIC}" == "73" goto post <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	25864	26061	
==>ks_one eq '0' or $fallbacks_one eq '1'
    ) {
      $self->whine(
        $para->[1]{'start_line'},
        "Format for second =extend parameter must be like"
        . " M or 1 or 0 or M,N or M,N, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256162	256417	
==>,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 740 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} && ! {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	968	1105	
==>$group (qw(init inter auto gen))
    {
        my $dir = $dist->existing_directory_with_name('config/' . $group);
        my @files = $dir <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848250	848430	
==>s\"\n  {{\@1}} = string_chopn(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849030	849210	
==>s\"\n  {{\@1}} = string_chopn(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	5998	6141	
==>string/);
        }
        $asm .= $line;
    }
    return %ops;
}

use Parrot::Vtable;
my $vtable;
my $vjit = 0;
sub vtable_num($) {
    my $m <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	42133	42299	
==>extracted from).

In other words, the implementation of C<extract_tagged> is exactly
equivalent to:

	sub extract_tagged
	{
		my $text = shift;
		$extractor = gen_extr <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36116	36226	
==>0, we'll fake it out. This is needed as ret will
        # never have a method to call, thus no argument, but w <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	2417	2549	
==>'pod_para_count',    # count of pod paragraphs seen so far

  'no_whining',        # whether to suppress whining
  'no_errata_section <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985188	985482	
==>[
                              "i",
                              "ic",
                              "sc",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_str <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	760	995	
==>ng (placeholder)
# check : Check to be sure we are n chars away from the end of the string

@Regex::Ops::Tree::_atom::ISA        = qw(Regex::Ops::Tree);
@Regex::Ops::Tree::_onearg::ISA      = qw(Regex::Ops::Tree);

@Regex::Ops::Tree::ma <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	1970	2192	
==>fied lines to the file.

=cut

sub write
{
    my $self = shift;
    
    return unless @_;
    
    my $fh = FileHandle->new('>' . $self->path) or 
        die 'Failed to open ' . $self->path . ": $!";
    
    print $fh @ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422241	422775	
==>",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 485,
                  "ARGS" => [
                              "i",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 562 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_bind(interpreter, {{\@2}}, { <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	20711	20827	
==>ion\n";
      DEBUG > 1 and $dont_ignore and print " Making note to treat contents as ",
        ($to_resolve ? 'verb <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661903	661997	
==>=> "#line 339 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exist <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662819	662913	
==>=> "#line 339 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exist <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	2196	2354	
==>);
        } 
        elsif ( $type eq 'text' ) 
        {
            $self->process_text_token($token);
        }
    }
    
    return 1;
}

=item C<process <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	60190	60288	
==>e
			  and (!$prod || $prod->check_pending($line))
			  and $prod = $rule->addprod(new Parse::RecDe <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	6838	6977	
==>gnore = shift;
    my @files = ();
    
    foreach my $file ($self->files($recursive, $ignore))
    {
        next unless $file->has_suffix <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954246	954338	
==>"BODY" => "#line 571 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_encoding_number_of_str(interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955037	955129	
==>"BODY" => "#line 571 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_encoding_number_of_str(interp <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	23025	23142	
==>Hash
	P1["_type"]= '$type'
	P1["type"]= "USER"
	P1["storage"]= P0
	P2["$var"]= P1
DIMTYPE
			if ($syms[NEXT] eq ",") { <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53254	53355	
==>ent::UncondReject($lookahead,$line,$code);
				$prod and $prod->additem($item)
				      or  _no_rule( <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54963	55064	
==>ent::UncondReject($lookahead,$line,$code);
				$prod and $prod->additem($item)
				      or  _no_rule( <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	21280	21430	
==>, $left, $right, $meth_name];
            }
            $self->{mmds} = @mmds;
        }
    }
    my $methlist = join(",\n        ", @meths);
    my $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1281	1436	
==>etc...

    } elsif($token->is_text) {
      ...access $token->text, $token->text_r, etc...
    
    } elsif($token->is_end) {
      ...access $token->tagna <==
2	/Users/nnunley/parrot/config/auto/pack.pm	483	655	
==>{
    my ($self, $conf) = @_;

    #
    # Alas perl5.7.2 doesn't have an INTVAL flag for pack().
    # The ! modifier only works for perl 5.6.x or greater.
    #

    my $i <==
2	/Users/nnunley/parrot/Configure.pl	8203	8324	
==>rgs{debugging} = 1 unless ((exists $args{debugging}) && !$args{debugging});
$args{maintainer} = 1 if defined $args{lex} or <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10669	10931	
==>if (defined($_[0]) && length($_[0])) {
        local $" = ' ';
        _run_command(".${slash}test${exe} @_", './test.out', './test.out',
            $verbose);
    } else {
        _run_command(".${slash}test${exe}", './test.out', './test.out',
            $verb <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10088	10275	
==>if (defined($_[0]) && length($_[0])) {
        local $" = ' ';
        _run_command(".${slash}test${exe} @_", './test.out', undef, $verbose);
    } else {
        _run_command(".${slash}te <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208323	208411	
==>Y" => "#line 401 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209264	209352	
==>Y" => "#line 401 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34447	34615	
==>sh @$para, delete $para->[1]{'~_freaky_para_hack'};
            }

          } elsif($item_type eq 'number') {
            $self->whine(
              $para->[1]{'start_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56102	56364	
==>],
                  "TYPE" => "function",
                  "CODE" => 72,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 869 \"src/ops/core.ops\ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	60082	60190	
==>grammar =~ m/$PROD/gco)
		{
			_parseunneg("a new production", 0,
				    $lookahead,$line) or next;
			$rule <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835695	835779	
==>e 215 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->us <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836448	836532	
==>e 215 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->us <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	9692	9868	
==>nter */
};


END_C
}

my (%names, $tot);
if ($suffix eq '') {
    $op_info = "${bs}op_info_table";
#
# Op Info Table:
#
    print SOURCE <<END_C;

/*
** Op Info Table:
*/

stati <==
2	/Users/nnunley/parrot/config/auto/perldoc.pm	103	280	
==>02:28:15.110975Z coke  $

=head1 NAME

config/auto/perldoc - Check whether perldoc works

=head1 DESCRIPTION

Determines whether perldoc exists on the system.

=cut

package auto <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	1769	2034	
==>source();
}

exit(0);

##############################################################################

sub do_source {

    if ($files[0] eq "all_source") {
        # do a little "find" action for now.
        
        @files = ();
        File::Find::find({wanted = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1130	1249	
==>ident->line,
  }, $class;

  #
  # Check for a few bad conditions.
  #
  # NOTE: These are compiler internal consistency <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1033	1152	
==>ident->line,
  }, $class;

  #
  # Check for a few bad conditions.
  #
  # NOTE: These are compiler internal consistency <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4881	4996	
==>= 
        gather_groups_and_libs(@pmcs);
    my @ungrouped_pmcs = grep { ! exists $pmc_group->{$_} } @pmcs;

    fo <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4985	5091	
==>= 
        gather_groups_and_libs(@pmcs);
    my @ungrouped_pmcs = grep { ! exists $pmc_group->{$_} } @pmcs <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658243	658331	
==>/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed(int <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659162	659250	
==>/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed(int <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	5753	5853	
==>$ <> "O" THEN 5030
print "Wrong!"
end
5030 print "Ok"
	end

' Equals bug, should print = greeting
dim <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216883	216973	
==>Y" => "#line 462 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217823	217913	
==>Y" => "#line 462 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	14548	14665	
==>dard_body = $total_body;
    my $header_decls = '';
    while ($total_body =~ s/\bMMD_(\w+):\s*//) {
        my $right <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443603	443729	
==>/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444618	444744	
==>/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20686	20778	
==>rTextToken>, and
L<Pod::Simple::PullParserEndToken>.

L<HTML::TokeParser>, which inspired thi <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4258	4379	
==>EST0}
${INS} = concat "\n"
PIR
	} else {
		# Translator needs to emit an instruction to push the value in the
		# load reg <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	1648	1878	
==>ethods

=over 4

=item C<is_root_section()>

Returns whether the section is the root section.

=cut

sub is_root_section
{
    my $self = shift;
    
    return $self->isa('Parrot::Docs::Section::Parrot');
}

=item C<html_link($pat <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2062	2179	
==>sa('Pod::Simple::PullParserEndToken'), but that's not so
pretty as using just $token->type, or even the following shor <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	153	372	
==>g/gen/parrot_include.pm - Runtime Includes

=head1 DESCRIPTION

Generates the F<runtime/parrot/include> files.

=cut

package gen::parrot_include;

use strict;
use vars qw($description @args);

use base qw(Parrot::Config <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	17466	17582	
==>UP
}
my $docounter=0;
sub parse_do {
	$docounter++;
	if ($syms[NEXT] eq "until" or $syms[NEXT] eq "while") {
		my $fa <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39574	39748	
==>b code($$$$)
{
	my ($self, $namespace, $rule) = @_;
	
	my ($leftarg, $op, $rightarg) =
		@{$self}{ qw{leftarg op rightarg} };

	my $code = ''.($::RD_NO_TRACE?'':'
		Parse::Rec <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	19699	19854	
==><=' => 'le',
	'is' => 'eq_addr',
	'is not' => 'ne_addr',
    );
    my $op = $rev_map{$c};
    my ($opcode, $rest) = ($code[$code_l]->[2],$code[$code_l]->[4 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227845	228173	
==>":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 266,
                  "ARGS" => [
                              "p <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5785	5894	
==>";
			} else {
				push @{$code{$seg}->{code}}, "IFBRANCH_$_:\n";
			}
			while($_=pop(@{$elsestack->{$elsetag <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8133	8238	
==>";
		} else {
			push @{$code{$seg}->{code}}, "IFBRANCH_$_:\n";
		}
		while($_=pop(@{$elsestack->{$elsetag <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	1129	1261	
==>d-of-stream
  my $self = shift;

  my $code_handler = $self->{'code_handler'};
  my $cut_handler  = $self->{'cut_handler'};
  $self-> <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	247	355	
==>tx->{rx_stack} ||= 'rx_stack';
    $ctx->{rx_ptmp} ||= 'rx_ptmp';
    $ctx->{rx_tmp} ||= 'rx_itmp';
    $ctx- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	371399	371542	
==>xception(interpreter, NULL, PIO_ERROR,\n\t\t\"Cannot read line from empty filehandle\");\n    io = PMC_data(pio);\n    if (!io)\n\treal_exceptio <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	371536	371645	
==>xception(interpreter, NULL, PIO_ERROR,\n\t\t\"Cannot read line from empty filehandle\");\n\n    if (!(io->flag <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	631	733	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub TIEHANDLE {  # Ties to just a scal <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754144	754382	
==>line",
                  "CODE" => 850,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 261 \"src/ops/set.ops\"\n  {{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565721	565841	
==>object.ops\"\n  {{\@1}} = {{\@2}}->vtable->can(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566614	566734	
==>object.ops\"\n  {{\@1}} = {{\@2}}->vtable->can(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	15557	15667	
==>my $call_pkg = $builder->exported_to() || '';
            # die Dumper( $code, $expected, $desc, \%extra, $extr <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	18108	18218	
==>my $call_pkg = $builder->exported_to() || '';
            # die Dumper( $code, $expected, $desc, \%extra, $extr <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	9358	9474	
==>[CURR] eq "(");
		$parens-- if ($syms[CURR] eq ")");
		#print "Read $syms[CURR]...";
		last if (not $parens  and
			$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4761	4864	
==>C code prior to the run core function.

=cut

sub run_core_func_start
{
    return <<END_C;
#if defined( <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3049	3152	
==>C code prior to the run core function.

=cut

sub run_core_func_start
{
    return <<END_C;
#if defined( <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	4986	5234	
==>'yacute'   , 253,
 'thorn'    , 254,
 'yuml'     , 255,

 'fnof'     , 402,
 'Alpha'    , 913,
 'Beta'     , 914,
 'Gamma'    , 915,
 'Delta'    , 916,
 'Epsilon'  , 917,
 'Zeta'     , 918,
 'Eta'      , 919,
 'Theta'    , 920,
 'Iota'     , 921,
 ' <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65840	65964	
==>);
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$line,"$code$argcode($1..)");

						!$matchru <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	26145	26282	
==>$ldel;
	$rdel =~ tr/{[(</}])>/;

	my $mod = $_[3];

	my $desc;

	if ($ldel eq '/') { $desc = "$ldel$pattern$rdel$mod" }
	else		  { $desc = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650154	650567	
==>=> "valid_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 727,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  " <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	2994	3246	
==>$_[3]?1:0,
	      }, $_[0];
}

sub FETCH    
{
	my $parser = $_[0]->{parser};
	my $from = $parser->{fulltextlen}-length(${$_[0]->{text}})-$_[0]->{prev};
	$parser->{lastlinenum} = $parser->{offsetlinenum}
			   - Parse::RecDescent::_linecount(substr($par <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20535	20643	
==>estore($temp_0);
  return $return;
}

sub _op_geq {
  my ($self,$node) = @_;
  my $return;
  my $label = $sel <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22119	22233	
==>ookahead" => $_[2],
		"line"      => $_[3],
		"name"      => $_[4],
	}, $class;
}

sub code($$$$)
{
	my ($self, $na <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	18531	18676	
==>cmt
EOC
	push @stack, [-1, $n, $tos->[2]];

    }
}

sub UNARY_POSITIVE
{
    my (undef, $c, $cmt) = @_;
    my $t = pop @stack;
    my $p = $t->[ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907822	908358	
==>> ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1023,
                  "ARGS" => [
                              "s",
                              "p",
                              "ic",
                              "ic"
                            ],
                  "BODY" => " <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	7771	8017	
==>text { shift->accept_targets_as_text(@_) } # alias


sub accept_targets         { shift->_accept_targets('1', @_) }

sub accept_targets_as_text { shift->_accept_targets('force_resolve', @_) }
 # forces them to be processed, even when there's no ": <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2711	2844	
==>the C code for C<restart OFFSET($offset)>.

=cut

sub restart_offset
{
    my ($self, $offset) = @_;

    return "interpreter->resume_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4046	4179	
==>the C code for C<restart OFFSET($offset)>.

=cut

sub restart_offset
{
    my ($self, $offset) = @_;

    return "interpreter->resume_ <==
2	/Users/nnunley/parrot/config/init/optimize.pm	727	826	
==>ver, use that instead. 
    my $optimize = $conf->options->get('optimize');
    if (defined $optimiz <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38466	38607	
==>EXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39330	39471	
==>EXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661960	662051	
==>L({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662876	662967	
==>L({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	20727	20835	
==>BUG > 1 and $dont_ignore and print " Making note to treat contents as ",
        ($to_resolve ? 'verbatim/pla <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	317027	317268	
==>_Int2)({{\@1}}));\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	7614	7754	
==>d fall thru   
  } elsif(ref( $_[0] ) eq 'SCALAR') {
    $self->{'source_scalar_ref'} = $_[0];
    DEBUG and print "$self 's source is scalar <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	36320	36465	
==>esult' => \@returns,
    );
    return \@opcodes;
}

sub BuildParam {
    my ( $parser, $idf ) = @_;
    my @opcodes1 = ();
    my @opcode <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88759	89054	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89496	89791	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE <==
2	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	602	737	
==>rsion
{
    if (defined $parrot_version) {
        return wantarray ? @parrot_version : $parrot_version;
    }

    # Obtain the officia <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	5247	5392	
==>lementations

=item 4.

The final close C<}>

=back

=head2 Method Body Substitutions

The vtable method bodies can use the following substitution <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	6331	6483	
==>irst argument to this multi sub should be some variant of
# integer - but if you set it to Integer or int, the program dies with
# 'Method not found.' or <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53329	53452	
==>G_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_GC_DEBUG_FLAG); }\n  {{+=2}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54085	54208	
==>G_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_GC_DEBUG_FLAG); }\n  {{+=2}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095207	1095417	
==>d(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095902	1096112	
==>d(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019829	1019928	
==>{{\@2}};\n  char resultbuffer[26];\n  Parrot_localtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020760	1020859	
==>{{\@2}};\n  char resultbuffer[26];\n  Parrot_localtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbu <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	147	338	
==>AME

Parrot::Configure::Step - Configuration Step Utilities

=head1 DESCRIPTION

The C<Parrot::Configure::Step> module contains utility functions for steps to
use.

Note that the actual config <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9969	10074	
==>f->data->get('exe');
    my $slash = $conf->data->get('slash');
    my $verbose = $conf->options->get('ver <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10550	10655	
==>f->data->get('exe');
    my $slash = $conf->data->get('slash');
    my $verbose = $conf->options->get('ver <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	46884	47001	
==>=========================

sub filter {
  my($class, $source) = @_;
  my $new = $class->new;
  $new->output_fh(*STDOUT <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14649	14772	
==>e 247 \"src/ops/core.ops\"\n  opcode_t * const loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	15336	15459	
==>e 247 \"src/ops/core.ops\"\n  opcode_t * const loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LA <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	8012	8185	
==>e = $source_file;
        $outfile_base =~ s/\//_/g;
        
        print OUT qq(
           <tr>
             <td>$source_file</td>
             <td><a href="$outfile_base <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	33513	33652	
==>urr_Test};
        }

        # Auto-extended arrays and elements which aren't explicitly
        # filled in with a shared reference will p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831050	831380	
==>=> [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 940,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 186 \"src/ops/stack.ops\"\n  INTVAL i = {{\@1}};\n  s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	16971	17192	
==>O: winge about many kinds of directives in non-resolving =for regions?
# TODO: many?  like what?  =head1 etc?

    $para = shift @$paras;
    $para_type = $para->[0];

    DEBUG > 1 and print "Pondering a $para_type paragr <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6870	7019	
==>dbgerror=0;
#DBG>				};
				};


                push(@$stack,[ $act, $$value ]);

					$$token ne ''	#Don't eat the eof
				and	$$token=$$val <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6552	6693	
==>dbgerror=0;
#DBG>				};
				};


                push(@$stack,[ $act, $$value ]);

					$$token ne ''	#Don't eat the eof
				and	$$token=$$val <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	14130	14302	
==>itself based on its peer block's info
      # (available by passing $block in as an argument).
      #

      if ($peer_block->kind eq 'while' or $peer_block->kind eq 'until <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2438	2537	
==>arg_name) 
      unless defined $formal_arg_type;

    $self->INTERNAL_ERROR("Can't determine type o <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2138	2237	
==>arg_name) 
      unless defined $formal_arg_type;

    $self->INTERNAL_ERROR("Can't determine type o <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	27309	27571	
==>romote($tos);
    my $s = temp('P');
    print <<EOC;
	$s = $p."__get_repr"() $cmt
EOC
    push @stack, [-1, $s, 'P'];
}

sub BUILD_TUPLE
{
    my ($n, $c, $cmt, $type) = @_;
    $type = "FixedPMCArray" unless defined $type;
    my ($opcode, $rest) = ($code[$code <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	2468	2603	
==>ie "Can't find an op for opcode $op_code\n";
	$offset  += sizeof('op');
	push @pc_list, $pc;
	$opcodes{$pc}->{op} = $op;
        $new_pc <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9343	9483	
==>return $pir;
}

# Pre and post call hooks.
sub pre_call {
    my $self = shift;
    my $pir = <<'PIR';
# See if we've got a return or somethi <==
2	/Users/nnunley/parrot/lib/Test/More.pm	19519	19647	
==>echanics of skip and todo tests see
L<Test::Harness>.

The way Test::More handles this is with a named block.  Basically, a
block <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30440	30673	
==>abel = "LD_VALTYPE_$name";
            $pir .= <<PIR
\$I1000000 = loadtype["type"]
if \$I1000000 != ELEMENT_TYPE_VALUETYPE goto $label
gen_pir = concat dest0
gen_pir = concat " = clone "
gen_pir = concat dest0
gen_pir = concat "\\n"
$ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1891	1983	
==>intended to contain CLI
option data.

Accepts no arguments and returns a L<Parrot::Configure: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	2166	2259	
==>ndent;
  $self->SUPER::compile($compiler);
  $compiler->outdent;

  $compiler->emit("_${name}_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735188	735418	
==>"#line 139 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735924	736154	
==>"#line 139 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	24843	24986	
==>)         # 2 : fallback(s)
      (?:\s+(\S+))? # 3 : element name(s)
      \s*
      $
    /xs
  ) {
    my $new_letter = $1;
    my $fallbacks <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4581	4737	
==>($variable_visible{$file}{$1} ||
                          $variable_visible{ALL}{$1});
            }
        }
    }
    
    close(F);

    # filter out th <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	2099	2208	
==>@stuff, 'I have some stuff' );

will do what you mean (fail if stuff is empty)

=cut

sub ok ($;$) {
    $Test <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	32092	32225	
==>> 27,
			'STRING' => 29,
			'NIL' => 30,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36,
			'NAME' => 4,
			"{" => 38 <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	748	854	
==>ll run the gccversion test.  (If we were to
    # wait till it's normally run, the linker question would ha <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22341	22460	
==>tle = $t->text . $title if $t->type eq 'text';
      }
      undef $title if $title =~ m<^\s*$>; # make sure it's conten <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22825	22944	
==>tle = $t->text . $title if $t->type eq 'text';
      }
      undef $title if $title =~ m<^\s*$>; # make sure it's conten <==
2	/Users/nnunley/parrot/editor/ops2vim.pl	177	305	
==>ing OSes
## and make sure at least one command-line parameter has been passed
@ARGV = @ARGV
    ? map {glob $_} @ARGV
    : die " <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	2424	2616	
==>p_flag, $renum_flag );
GetOptions( "no-lines"      => \$nolines_flag,
            "help"          => \$help_flag,
            "renum"          => \$renum_flag,
          );

sub Usage {
    pri <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	4466	4607	
==>}
print CODE<<RUNTIMESHUTDOWN;
	#
	# Pull in the runtime libraries
	#
.include "RT_initialize.pir"
.include "RT_aggregates.pir"
.include "RT_b <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	51589	51694	
==>erpreted as a closing delimiter.

But, by extracting the directive using
S<C<extract_codeblock($text, '{}' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10520	10641	
==>T_JUMP_RELATIVE|PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT",
                  "NAME" => "bsr",
                  "FLAGS" => ":ba <==
2	/Users/nnunley/parrot/Configure.pl	4661	4776	
==>lue = 1      unless defined $value;

  for ($key) {
    m/version/ && do {
      my $svnid = '$Id: /parrot/Configure <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	4550	4731	
==>int STDERR "def $f($a = $i)\n";
		}
		push @code, [$line, $pc, "ARG_count", $n, $f, $source];
	    }
	}
	$arg = '' unless defined $arg;
	$rest = '' unless defined $rest;
    }
    el <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	2063	2259	
==>ource dead

  'output_fh',         # The filehandle we're writing to, if applicable.
                       # Used only in some derived classes.

  'hide_line_numbers', # For some dumping subclasse <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	8477	8740	
==>rting plain para at line ${$self}{'line_count'}\n";
      }
      $self->{'last_was_blank'} = $self->{'start_of_pod_block'} = 0;

    } else {
      # It's a non-blank line /continuing/ the current para
      if(@$paras) {
        DEBUG > 2 and print "Line ${$self <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	2125	2314	
==>erp, enum_class_${_}, pass);\n" foreach (@pmcs[-1 .. -1]);
    print OUT "        Parrot_${_}_class_init(interp, enum_class_${_}, pass);\n"
        foreach (@pmcs[0 .. $#pmcs - 1]);
    prin <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	405	524	
==>nfigure::Step ':auto';

$description = 'Determining if your platform supports GMP';

@args = qw(verbose);

sub runstep
{ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	20372	20486	
==>l2 = $ldel1;
		}
		$str2pos = $ld2pos+1;

		if ($ldel2 =~ /[[(<{]/)
		{
			pos($$textref)--;	# OVERCOME BROKEN LOOK <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2645	2816	
==>lice(@_,0,2);
  my $indent = ' ' x ( 2 * $self->{'Indent'} + ($tweak_indent||0) );
   # Yes, 'STRING' x NEGATIVE gives '', same as 'STRING' x 0

  $self->{'Thispara'} =~ tr <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	4192	4308	
==>imental});
    }

    @{$ops->{OPS}} = sort { $a->{CODE} <=> $b->{CODE} } (@{$ops->{OPS}} );
}

# create opsfile with <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561916	562017	
==>) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", {{\@3} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563000	563101	
==>) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", {{\@3} <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	472	577	
==>nclude';

my @files = qw(
    include/parrot/cclass.h
    include/parrot/core_pmcs.h
    include/parrot/da <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	1363	1492	
==>Options

=over 4

=item C<--help>

Print synopsis.

=item C<--dynamic>

Indicate that the opcode library is dynamic.

=item C<--co <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1138	1405	
==>d_tree ($tokens, $count);
    push @{$temp->{children}}, $expr;
  }
  elsif ($tokens->[$count] eq ",@") {
    $temp = { children => [{ value => 'unquote-splicing' }] };
    my $expr;
    $count++;
    ($count, $expr) = _build_tree ($tokens, $count);
    push @{$temp-> <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	924	1058	
==>d_tree ($tokens, $count);
    push @{$temp->{children}}, $expr;
  }
  elsif ($tokens->[$count] eq ",") {
    $temp = { children => [{ v <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065157	1065299	
==>ns;\n    ns = VTABLE_get_pmc_keyed_str(interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066031	1066173	
==>ns;\n    ns = VTABLE_get_pmc_keyed_str(interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	53434	53556	
==>em 3.

An number specifying the maximum number of fields to return. If this
argument is omitted (or C<undef>), split contin <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	2897	3031	
==>onal_label, code => original_op }
    # and construct a mapping from label names to destination tagged_op
    my $curlabel;
    my @out <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957624	957856	
==>ding '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958529	958761	
==>ding '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3557	3669	
==>ile (1) {
        last unless defined $string and
          $string =~ m/(^|^.*?[^\\])\$((([A-Za-z][A-Za-z0-9_]*) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1947	2055	
==>ile (1) {
      last unless defined $string and
        $string =~ m/(^|^.*?[^\\])\$((([A-Za-z][A-Za-z0-9_]*) <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	8992	9116	
==>$thisparser;
	':'') . ($parser->{_check}{prevoffset}?'
	my $prevoffset;
	tie $prevoffset, q{Parse::RecDescent::OffsetCounter} <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	29490	29611	
==>new_label($parser);
    my $zero = BuildLiteral( $_[0], 0, 'number' );
    push @opcodes, @{ $zero->[1] };
    push @op <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	32974	33099	
==>/^\d+$/) {	# MMD
	$cc = "-$c";
    }
    else {
	$cc = qq!"$c"!;
    }
    print <<EOC;
	setattribute $obj->[1], $cc, $val $cm <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061421	1061748	
==>,
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1185,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 241 \"src/ops/var. <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	62330	62689	
==>ch my $op ( @{$fct} ) {
            if ( ref($op) =~ /(Dir|Op)$/ ) {
                $op->visit($generator) if ( exists $op->{prolog} );
            }
            else {
                print $op, "\n";
                die;
            }
        }
        print {$FH} "  # end of prolog\n";
        foreach my $op ( @{$fct} ) {
            $op->visi <==
2	/Users/nnunley/parrot/lib/File/Which.pm	4291	4402	
==>l.exe>, C<perl.bat>, etc.)

=head1 Steps Used on Win32, DOS, OS2 and VMS

=head2 Windows NT

Windows NT has a sp <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30182	30351	
==>9
		}
	},
	{#State 97
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			"> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21597	21714	
==>n <value>;
    #

    if ($token->is_return) {
      my $block = $self->current_block();

      my $value_token = $sel <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	4008	4183	
==>grep defined, $ini->val( regexes => 'exclude');
    @{ $cfg{skip_bench} } = @regexes ? @regexes : '[^\d\D]';
}

# Frequently Used Variables
my %bench;
my @section = sort $ini-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835729	835810	
==>ck_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, string_copy(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836482	836563	
==>ck_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, string_copy(interpret <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8999	9109	
==>rx_tmp>; # nope, set pos := popped index");
}

sub output_popint {
    my ($self, $reg, $db_desc) = @_;
    $re <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9306	9415	
==>rx_tmp> # nope, set pos := popped index");
}

sub output_popint {
    my ($self, $reg, $db_desc) = @_;
    $re <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	1415	1514	
==>rArray => 66,
	ResizablePMCArray => 67,
	ResizableStringArray => 68,
	Slice => 69,
	Super => 70,
	Un <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	3994	4295	
==>'config/gen/makefiles/bf.in' => 'languages/bf/Makefile',
        commentType                  => '#',
        replace_slashes              => 1
    );
    genfile(
        'config/gen/makefiles/cola.in' => 'languages/cola/Makefile',
        commentType                    => '#',
        replace_slashe <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1526	1698	
==>::Section::PMCs->new,
        Parrot::Docs::Section::DynaPMCs->new,
        Parrot::Docs::Section::C->new,
        Parrot::Docs::Section::Ops->new,
        Parrot::Docs::Sec <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	4451	4726	
==>ntf( '\x%02x', ord $_ );
                        }
                        elsif ( ord $_ >= 128 ) {
                            $str .= sprintf( '\u%04x', ord $_ );
                        }
                        elsif ( $_ eq '"' ) {
                            $str <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	25784	25908	
==>pod directives shouldn't be over one line long!  Ignoring all "
         . (@$para - 2) . " lines of content"
      ) if @$pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658251	658355	
==>.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed(interpreter, {{\@2}}, {{\@3 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659170	659274	
==>.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed(interpreter, {{\@2}}, {{\@3 <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	4955	5074	
==>ter goto iter_end
    value_type = typeof value
    if value_type != 'String' goto print_space
    if old_type != value_ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	2120	2280	
==>/TESTS.STATUS.pod'),
        ),
        $self->new_group('People', '',
            $self->new_item('A list of some of the Parrot developers with SVN commit acces <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	31441	31598	
==>y $pc = pop @loops;
	print <<EOC;
	# $pc  $cmt
	clear_eh
EOC
    }
    else {
	print <<EOC;
	\t\t$cmt
EOC
    }
}

sub BREAK_LOOP
{
    my ($n, $c, $cmt) = @_ <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	10744	10947	
==>->labels
            ? $op->labels
            : 0
        ) . " }";
        my $flags      = 0;

        print SOURCE <<END_C;
  { /* $index */
    /* type $type, */
    "$name",
    "$full_name",
    "$ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	44	260	
==>DEBUG () {4};
#sub Pod::Simple::DEBUG () {4};
#sub Pod::Simple::PullParser::DEBUG () {4};

use strict;
use vars qw($VERSION @ISA %Escape $WRAP %Tagmap);
$VERSION = '2.02';
use Pod::Simple::PullParser ();
BEGIN {@ISA = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13129	13324	
==>_CLEANUP_NULL);\n  loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13973	14168	
==>_CLEANUP_NULL);\n  loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2323	2500	
==>_name('src'),
        $self->directory_with_name('src/encodings'),
        $self->directory_with_name('src/io'),
        $self->directory_with_name('src/ops'),
        $self->dir <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2813	2939	
==>p = $value");
      $args[$i] = $temp;
    }
    else {
      $args[$i] = $args[$i]->compile($compiler);
    }
  }

  if (($des <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715260	715517	
==>tion",
                  "CODE" => 802,
                  "ARGS" => [
                              "sc"
                            ],
                  "BODY" => "#line 75 \"src/ops/python.ops\"\n  STRING * const s = {{\@1}};\n  PMC * const io = PIO_STDOUT <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	75945	76091	
==>ned $::RD_ERRORS  and  $_[0] =~ /ERRORS/
}

sub _error($;$)
{
	$ERRORS++;
	return 0 if ! _verbosity("ERRORS");
	$errortext   = $_[0];
	$errorprefix <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	2015	2112	
==>be shortened to their unique prefixes, and one
leading dash ("-") can be used instead of two ("--" <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	3896	3993	
==>be shortened to their unique prefixes,
and one leading dash ("-") can be used instead of two ("--" <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	13929	14134	
==>' => 57
		}
	},
	{#State 20
		ACTIONS => {
			"=" => 65
		},
		DEFAULT => -52
	},
	{#State 21
		ACTIONS => {
			"," => 66,
			'IN' => 67
		}
	},
	{#State 22
		DEFAULT => -5
	},
	{#State 23 <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	24668	24852	
==>ple
    if ($builtins{$name} && $builtins{$name} eq 'v') {
	my $ar = temp('P');
	print <<"EOC";
	$ar = new .FixedPMCArray
	$ar = $n
EOC
	$cmt .= "   $name";
	for (my $i = 0; $i < $n; $i <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	2410	2563	
==>onvert($tree, $ctx);
}

sub convert_rx_end {
    my ($self, $tree, $ctx) = @_;
    return op('seq' => [ $self->convert($tree, $ctx), op('atend') ]);
}

su <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	4915	5136	
==>0}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "reserved",
                  "FLAGS" => "",
                  "ARGD <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	24961	25097	
==>elf, $op, $R, $lastback) = @_;

    my $back = $self->genlabel('greedy_optional_back');
    my $next = $self->genlabel('after_greedy_opti <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	21727	21840	
==>arg $cmt
$label
EOC
    }
    else {
	my $nl = promote($l);
	my $nr = $r->[1];
	$nr = promote($r) if $op =~ /addr/ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	2147	2248	
==>,"\t_DEBUG_INIT()\n";
		debug();
	}

	
PARSE:
	1;
PARSE_NOFEED:
	if ($type[CURR] eq "STMT" or $type[CU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476975	477081	
==>"BODY" => "#line 428 \"src/ops/math.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477871	477977	
==>"BODY" => "#line 428 \"src/ops/math.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1990	2118	
==>rn 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  if (not $self->prefix and $self->peer and $self->pe <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1867	1995	
==>rn 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  if (not $self->prefix and $self->peer and $self->pe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924487	924810	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2574	2743	
==>) =~ s/^\xEF\xBB\xBF//s ) {
        DEBUG and print "UTF-8 BOM seen.  Faking a '=encode utf8'.\n";
        $self->_handle_encoding_line( "=encode utf8" );
        $line = <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	3190	3357	
==>TDBRUF)
--const|-C	const (read-only) data symbols (Rr) [1]
--undef|-U	undefined symbols (Uu)
--def|-D	defined symbols (not Uu)
--file|-f	file(name) symbols (Ff)
If more <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	15275	15381	
==>"$P1000001 = cur_exception[\"obj\"]\n"
    class_type = eh.get_class_type()
    class_id = eh.get_class_id( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1794	1925	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _xml_escape {
  foreach my $x (@_) {
    # Escape things very cautiously:
    $x <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	21784	21891	
==>.y"
{ return { min => $_[2], max => -1 }; }
	],
	[#Rule 33
		 'number', 2,
sub
#line 160 "lib/Regex/Grammar. <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	1775	1886	
==>y $verbose = defined $self->get('verbose') && $self->get('verbose') == 2;

    print "Setting Configuration Data <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	622	745	
==>m C<--data>

=item C<-d>

List the data symbols.

=item C<--init>

=item C<-i>

List the initialised data symbols.

=item C< <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	61170	61300	
==>ndef;
    $parser->YYData->{self}        = undef;
    $parser->YYData->{idx_tmp}     = 0;
    $parser->YYData->{idx_lbl}     = 0 <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	3460	3558	
==>fine WORDCHAR    enum_cclass_word
#define PUNCTUATION enum_cclass_punctuation
#define DIGIT       e <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2464	2569	
==>decided to actually declare the constant, we will place its
  # definition into the block at the top of th <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2211	2316	
==>decided to actually declare the constant, we will place its
  # definition into the block at the top of th <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	62258	62427	
==>C<y>
without a suitable block after it.

=item C<Did not find leading dereferencer>

C<extract_variable> was expecting one of '$', '@', or '%' at the start of
a variable, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4489	4606	
==>{args} } == 0) {
        delete $self->{name};
        delete $self->{args};
        return $self->op('nop', [], %$sel <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5626	5743	
==>{args} } == 0) {
        delete $self->{name};
        delete $self->{args};
        return $self->op('nop', [], %$sel <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	5962	6102	
==>$prod ( @{$self->{"prods"}} )
	{
		my $next = $prod->expected();
		unless (! $next or _contains($next,@expected) )
		{
			push @expected, $ne <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	384	511	
==>uct::Statement);

my %block_types = (
  'while'    => { PREFIX => "_W", NEXT => 'CONT', REDO => 'REDO', LAST => 'LAST' },
  'if' <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	405	532	
==>uct::Statement);

my %block_types = (
  'while'    => { PREFIX => "_W", NEXT => 'CONT', REDO => 'REDO', LAST => 'LAST' },
  'if' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	18067	18173	
==>t', 2, undef
	],
	[#Rule 1
		 'rules', 2,
sub
#line 73 "lib/Regex/Grammar.y"
{ return [ @{ $_[1] }, $_[2] ] <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	417	514	
==>cs::Section::BigNum;

use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<ne <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6631	6794	
==>nge = TRUE
         B$=A$(I-1)
         A$(I-1)=A$(I)
         A$(I)=B$
         ' SWAP A$(I - 1), A$(I)
      END IF
   NEXT
WEND
 ' CLS
FOR I = 1 TO 4
   PRINT A$ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16284	16447	
==>nge = TRUE
         B$=A$(I-1)
         A$(I-1)=A$(I)
         A$(I)=B$
         ' SWAP A$(I - 1), A$(I)
      END IF
   NEXT
WEND
 ' CLS
FOR I = 1 TO 4
   PRINT A$ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8432	8541	
==>pe[CURR] eq "STMT"
		  or
	    $type[CURR] eq "COMP") { goto PARSE; }
	if ($type[CURR] eq 'COMM') {
		push @{$ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	14946	15098	
==>scarding complaint (at line $_[0]) $_[1]\n because no_whining is on.\n";
    return;
  }
  return $self->_complain_warn(@_) if $self->{'complain_stderr'} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2655	2763	
==>erbatim  {
  my $self = shift;
  if(Pod::Simple::ASCII) {
    $self->{'Thispara'} =~ tr{\xA0}{ };
    $self-> <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2369	2490	
==>b YYData {
	my($self)=shift;

		exists($$self{USER})
	or	$$self{USER}={};

	$$self{USER};
	
}

sub YYErrok {
	m <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2277	2387	
==>b YYData {
	my($self)=shift;

		exists($$self{USER})
	or	$$self{USER}={};

	$$self{USER};
	
}

sub YYErrok {
	m <==
2	/Users/nnunley/parrot/config/auto/snprintf.pm	576	806	
==>o/snprintf/test.in');
    cc_build();
    my $res = cc_run() or die "Can't run the snprintf testing program: $!";
    cc_clean();

    if ($res =~ /snprintf/) {
        $conf->data->set(HAS_SNPRINTF => 1);
    }
    if ($res =~ /^C <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	31499	31645	
==>OC
    }
    else {
	print <<EOC;
	\t\t$cmt
EOC
    }
}

sub BREAK_LOOP
{
    my ($n, $c, $cmt) = @_;
    my $pc = pop @loops;
    print <<EOC;
	go <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2923	3058	
==>R("Can't do arithmetic on strings") if UNIVERSAL::isa($dest_type, 'Jako::Construct::Type::String');
  $self->SYNTAX_ERROR("Can't do arit <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	9128	9227	
==>_state *st, STRING *val)
{
    Parrot_init_ret_nci(interpreter, st, "S");
    UVal_str(st->val) = va <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3788	4162	
==>]",

        'i'  => "(*(INTVAL *)OP_AS_OFFS(%ld))",
        'ki'  => "(*(INTVAL *)OP_AS_OFFS(%ld))",
        'n'  => "(*(FLOATVAL *)OP_AS_OFFS(%ld))",
        'p'  => "(*(PMC **)OP_AS_OFFS(%ld))",
        's'  => "(*(STRING **)OP_AS_OFFS(%ld))",
        'k'  => "(*(PMC **)OP_AS_OFFS(%ld))",

        'ic' => "((INTVAL)cur_opcode[%ld])",
        'kic' => "((INTVAL)cur_opcod <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	61735	61849	
==>o match the
one that opened the quote-like operation.

=item  C<Mismatched closing bracket: expected "%c" but found <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	12968	13107	
==>e is Perl5 code
    my @ops = ("# START EMBEDDED CODE");

    # Set up a %MATCH variable
    push @ops, <<'END';
{
my %MATCH;
while (my ($ke <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3512	3629	
==>ode}}, "\t\$N99= \$S99\n";

		my($result, $type, @code)=EXPRESSION({ stuff => "\$X99", choose => 1 });
		push @{$code{ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5559	5675	
==>];
        $actions=$$states[$stateno];

#DBG>	print STDERR ('-' x 40),"\n";
#DBG>		$debug & 0x2
#DBG>	and	print <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5292	5403	
==>];
        $actions=$$states[$stateno];

#DBG>	print STDERR ('-' x 40),"\n";
#DBG>		$debug & 0x2
#DBG>	and	print <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100744	101061	
==>LAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 125,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	3856	4037	
==>ng position to $pos");
  $self->pos($pos);
#  DEBUG(0, "forth(): Position is now %d", $self->pos);

  my $token = $self->get;

  $self->file($token->file);
  $self->line($token->line <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	98	233	
==>06-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Libs - Parrot libraries documentation section

=head1 SYNOPSIS

	use P <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	2356	2489	
==>ld)",
        kic => "cur_opcode[%ld]"
    );
}

sub readjit {
    my $file = shift;

    my %ops;
    my $template;

    open IN, '<' <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	94	308	
==>Copyright (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/tools/dev/mk_manifests.pl 19607 2006-05-30T15:23:20.183054Z coke  $
################################################################################

=hea <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	419	538	
==>ote that the assembly file is generated in the order you specify, so
if there are library dependencies, make sure you ha <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19511	19645	
==>$parser->{_AUTOTREE} && defined($item) && !$item->isa("Parse::RecDescent::Action"))
	{
		if ($i==1 && $item->isterminal)
		{
			$code . <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	38209	38324	
==>ector-length' => \&_op_vector_length,
  'vector-ref'    => \&_op_vector_ref,
  'vector-set!'   => \&_op_vector_set_b <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18595	18718	
==>n}}) {
    my $temp_1 = $self->_generate($node->{children}[$_]);
    if (substr ($temp_0, 0, 1) ne substr ($temp_1, 0, 1)) { <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	16481	16602	
==>$code, $expected, $desc, %extra ) = @_;

            # Strange Win line endings
            convert_line_endings( $expecte <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	10997	11117	
==>$code, $expected, $desc, %extra) = @_;

            # Strange Win line endings
            convert_line_endings( $expecte <==
2	/Users/nnunley/parrot/config/init/defaults.pm	3064	3190	
==>d for GNU ld.
        ld_load_flags     => $Config{lddlflags},

        libs => $Config{libs},

        cc_inc     => "-I./incl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765375	765670	
==>"i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 864,
                  "ARGS" => [
                              "ic",
                              "nc"
                            ],
                  "BODY" => "#line 320 \"src/ops/set.op <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	284	390	
==>2.02';
@ISA = ('Pod::Simple::Methody');
BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG)
          ? \&Pod::Si <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	166	272	
==>2.02';
@ISA = ('Pod::Simple::Methody');
BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG)
          ? \&Pod::Si <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036099	1036533	
==>find_lex",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1158,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 64 \"src/ <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	2881	3191	
==>mentType                         => '#',
        replace_slashes                     => 1
    );
    genfile(
        'config/gen/makefiles/editor.in' => 'editor/Makefile',
        commentType                      => '#',
        replace_slashes                  => 1
    );
    genfile(
        'config/gen/mak <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15934	16175	
==>> $fct,
        'arg2'   => [$argv],
    );
    return [ $result, \@opcodes ];
}

sub BuildCallVariable {
    my ( $parser, $var ) = @_;
    my $result;
    my @opcodes = ();
    my $idf     = shift @{$var};
    if ( ref($idf) eq ' <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	633	763	
==>enerate C<#line> directives in the generated C code.

=item C<--renum>

Renumber opcodes according to existing ops in ops/num and n <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	601	700	
==>>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullParser>, you might
ge <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	507	606	
==>>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullParser>, you might
ge <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13407	13606	
==>s the peer of a continuation
      # we are about to introduce.
      #

      my $peer_block = $self->pop_block;

      #
      # 'while' blocks:
      #
      # When we are ending the 'while' block, <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	10672	10825	
==>= vtable_num($1);
            #print $op->full_name .": $jit_func $extern\n";
        }
        # *) $1 = $2->vtable->{vtable}(interp, $2)
        elsif ( <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	2549	2669	
==>n', # whether to suppress the errata section
  'complain_stderr',   # whether to complain to stderr

  'doc_has_started', <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24951	25086	
==>w($block, $kind, $target, $cond, $left, $op, $right);
      next;
    }

    #
    # Conditional Blocks:
    #
    #   if     (<value> < <==
2	/Users/nnunley/parrot/lib/Test/More.pm	15071	15181	
==>agnostic_message);

Prints a diagnostic message which is guaranteed not to interfere with
test output.  Like C< <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	28166	28408	
==>"TYPE" => "function",
                  "CODE" => 37,
                  "ARGS" => [
                              "pc"
                            ],
                  "BODY" => "#line 502 \"src/ops/core.ops\"\n    opcode_t * const this = CUR_ <==
2	/Users/nnunley/parrot/config/auto/jit.pm	1373	1553	
==>if ($conf->data->get('byteorder') == 1234) {
            $cpuarch = 'i386';
        } else {
            $cpuarch = 'ppc';
        }
    } elsif ($cpuarch =~ /MSWin32/) {
        $c <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2956	3124	
==>g)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # test result
              | " ((?:[^"\\]|\\.)+) "   #" (k <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4353	4521	
==>g)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # test result
              | " ((?:[^"\\]|\\.)+) "   #" (k <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934417	934805	
==>S" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1050,
                  "ARGS" => [
                              "s",
                              "sc"
                            ],
                  "BODY" <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	4693	4807	
==>nterrelated PMCs that should be
compiled together into a single shared library of the given name. Only
valid for dy <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	4797	4974	
==>0, undef, 0, $l, ''];
	return;
    }
    push @code, [$line, $pc, $opcode, $arg, $rest, $source];
}

sub XXX {
   my ($n, $c, $cmt) = @_;
   print "#Unknown '$cmt'\n";
}

sub Lab <==
2	/Users/nnunley/parrot/examples/benchmarks/oo5.pl	247	366	
==>$self = shift;
    if (@_) { $self->[0] = shift } else { $self->[0] }
}

sub j {
    my $self = shift;
    if (@_) { $se <==
2	/Users/nnunley/parrot/examples/benchmarks/oo6.pl	239	358	
==>$self = shift;
    if (@_) { $self->[0] = shift } else { $self->[0] }
}

sub j {
    my $self = shift;
    if (@_) { $se <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	5558	5694	
==>=cut
END_POD

my $preamble = <<END_C;
#! perl -w
#
# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
#
# This file is generated automatically f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468035	468299	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 537,
                  "ARGS" = <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	10901	11112	
==>ckage.'::'.$func} = sub {
            local $SIG{__WARN__} = \&report_odd_hash;
            my( $code, $expected, $desc, %extra) = @_;

            # Strange Win line endings
            convert_line_endings( $ex <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27283	27398	
==>slate for $rule->{'name'}");

		# If we have PIR for the instruction, just take that. If not, we need
		# to generat <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34422	34537	
==>slate for $rule->{'name'}");

		# If we have PIR for the instruction, just take that. If not, we need
		# to generat <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4286	4379	
==>STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${DEST$push_nu <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2702	2795	
==>STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${DEST$push_nu <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	889	1049	
==>ontrol statements,
and these are kept distinct by applying the prefix to the labels. Of course,
the prefix could come explicitly from the source code if the loop <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	166	267	
==>=head1 DESCRIPTION

C<Parrot::IO::Path> is an abstract superclass providing common path
logic for C<Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422217	422495	
==>FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 485, <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	5688	6056	
==>_ ? (\$i = shift) : return \$r->$elem;\n"; 
                $out .= "    if (ref(\$i) eq 'ARRAY' && !\@_) { \$r->$elem = \$i; return \$r }\n";
                $sel = "->[\$i]";
            }
            elsif( defined $hashes{$name} ){
                $out .= "    my \$i;\n";
                $out .= "    \@_ ? (\$i = shift) : return \$r->$elem;\n";
                $o <==
2	/Users/nnunley/parrot/config/auto/jit.pm	78	170	
==>.pm 20320 2006-06-20T19:26:31.775154Z bernhard  $

=head1 NAME

config/auto/jit - JIT Capabil <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	11524	11686	
==>x == 1) {
        $base .= "?";
    } elsif ($min == 0 && $max == -1) {
        $base .= "*";
    } elsif ($min == 1 && $max == -1) {
        $base .= "+";
    } e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479270	479698	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 549,
                  "ARGS" => [
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 437 \"src/ops/math.ops\" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	24984	25146	
==>hat for this paragraph buffer.
      DEBUG and print "Throwing end-document event.\n";

      $self->_handle_element_end( $scratch = 'Document' );
      next; # Ha <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	11027	11217	
==>$extra_preamble_ref},
             "t_$temp_num = GET_NCI_P($reg_num);";
        return "(long*)&PMC_int_val(t_$temp_num)";
    };
    /s/ && do {
        push @{$temps_ref}, "short t_$temp_n <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	3834	3944	
==>ading $module: $!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$module imported OK", :$todo, :$dep <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	590	688	
==>figure::Step::Base;

use strict;
use warnings;

=head2 Methods

=head3 Constructors

=over 4

=item <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	8682	8870	
==>>]</td>
          </tr>
       );
    }
    
    print OUT qq(
            </tbody>
          </table>
    );
    print OUT page_footer();

    close(OUT);
}



sub write_function_coverage_ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	70211	70314	
==>mar =~ m/$ATMOST/gco
	  || $grammar =~ m/$BETWEEN/gco && do { $min=$2; 1 }
	  || $grammar =~ m/$ATLEAST/ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	798	925	
==>ack
our $conf;

our @EXPORT = ();
our @EXPORT_OK = qw(prompt genfile copy_if_diff move_if_diff integrate
                    cc_ <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1105	1235	
==>();
        my $dir_count      = scalar(File::Spec->splitdir($path_to_parrot));
        my $path_to_language;
        if ($dir_coun <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1595	1720	
==>();
        my $dir_count = scalar(File::Spec->splitdir($path_to_parrot));
        my $path_to_language;
        if ($dir_coun <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	15753	15894	
==>r RUNTIME_PUSH
	dec I5
	gt I5, 0, CASE_${jump}_${incase}_STARTOR
ORS
	}
	if ($ors and $tos) {
		print CODE qq{\tunshift P9, "OP"\n};
		print C <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719825	719925	
==>@1}};\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721025	721125	
==>@1}};\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	14102	14309	
==>tack;
    my $f;
    $tos->[1] =~ /<code> (\S+)/;
    $f = $1;
    print "\t\t$cmt $f\n";
    if ($n) {
	for (my $i=0; $i < $n; ++$i) {
	    my $arg = pop @stack;
	    my $g = promote($arg);
	    # TODO shoul <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676044	676153	
==>\@1}}->vtable->unshift_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676824	676933	
==>\@1}}->vtable->unshift_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1789	2016	
==>nline",
                  "CODE" => 0,
                  "ARGS" => [],
                  "BODY" => "#line 50 \"src/ops/core.ops\"\n  {{=0}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( <==
2	/Users/nnunley/parrot/config/init/miniparrot.pm	4	115	
==>pyright (C) 2001-2006, The Perl Foundation.
# $Id: /parrot/config/init/miniparrot.pm 20320 2006-06-20T19:26:31.7 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349197	349292	
==>terpreter, NULL, path, \"+<\");\n  /* string_cstring_free(path); */\n  if(!{{\@1}}) {\n    {{\@1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350199	350294	
==>terpreter, NULL, path, \"+<\");\n  /* string_cstring_free(path); */\n  if(!{{\@1}}) {\n    {{\@1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58921	59173	
==>"JUMP" => 0,
                  "NAME" => "warningson",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59568	59820	
==>"JUMP" => 0,
                  "NAME" => "warningson",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297417	297881	
==>=> [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 346,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 970 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2015	2149	
==>ore types.

=cut

sub core_type 
{
    my $self = shift;
    
    die ref($self) . " doesn't have core_type()";
}

=item C<core_prefix( <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	18019	18202	
==>-o pre-cooked paragraphs:
    #  just have the first line be a reference to a ['~Top', {}, ...]
    # We use this feechure in gen_errata and stuff.

    DEBUG and print "Applying preco <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	2637	2752	
==>name);
use File::Copy;
use File::Spec;
use strict;

# When run from the makefile, which is probably the only time th <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4881	5074	
==>my $last = shift(@$incexc);
        if (defined($last)) {
            push @ops, "goto $fail if <rx_tmp> < $first;"
              unless $first == 0;
            push @ops, "goto $pass if <rx_tm <==
2	/Users/nnunley/parrot/config/auto/headers.pm	727	941	
==>er, particularly once we break free and start doing all
    # probing ourselves
    my %mapping = (i_niin => "i_netinetin");

    for (keys %Config) {
        next unless /^i_/;
        $conf->data->set($mapping{$_} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911522	911994	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1027,
                  "ARGS" => [
                              "i",
                              "sc",
                              "sc"
                            ],
                  "BODY" => " <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1364	1491	
==>er->emit("  global \"$ident_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1358	1485	
==>er->emit("  global \"$ident_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1237	1350	
==>>new(%options);
    $code->{code} = [ $opt2->optimize($code->{code}, $ctx) ];
    return $code;
}

sub list_to_pas <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	21756	22106	
==>ite_star {
    my ($self, $op, $R, $greedy, $lastback) = @_;

    my $next = $self->genlabel('star_next');
    my $back = $self->genlabel('star_back');

    if ($greedy) {
        my ($R_back, @R_ops) = $self->rewrite($R, $next);
        my $loop = $self->genlabel('loop');
        my @ops = (
                   aop('pushint', [ 0 ]),
          $loop <==
2	/Users/nnunley/parrot/config/init/defaults.pm	1428	1608	
==>y to find a suitable compiler, but it prefers GNU c++ over
        # a system c++, which might not be appropriate.  This setting
        # allows you to override ICU's guess, but is <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956478	956730	
==>"CODE" => 1076,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 576 \"src/ops/string.ops\"\n  {{\@1}} = string_copy(interpreter, Parrot <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	1570	1688	
==>lds the char's US-ASCII numeric value, which we'll
        #  now go get the local equivalent for.
    }

    # It's nu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944927	945204	
==>UMP" => 0,
                  "NAME" => "charsetname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945736	946013	
==>UMP" => 0,
                  "NAME" => "charsetname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function", <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	12327	12499	
==>s($code_f);

            # native tests are just run, others need to write code first
            if ($code_f !~ /\.pbc$/) {
                write_code_to_file($code, $code_ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	3815	3945	
==>urn $self;
}

=item B<reset>

  $Test->reset;

Reinitializes the Test::Builder singleton to its original state.
Mostly useful for t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193418	193561	
==>"
                            ],
                  "BODY" => "#line 320 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->v <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194397	194540	
==>"
                            ],
                  "BODY" => "#line 320 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->v <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8300	8402	
==>ld"
print "Foo";tab$(15);"Stuff"
print "I am the very model of a modern";tab$(15);"More"
print "Hello", <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21164	21266	
==>ld"
print "Foo";tab$(15);"Stuff"
print "I am the very model of a modern";tab$(15);"More"
print "Hello", <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8633	8729	
==>um_of_tests_badpass) {
        $*ERR.say("# Looks like $Test::num_of_tests_badpass tests of $Test <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33928	34051	
==>od->{type} ne 'void') {
        my $type = $method->{type};
        $ret_def = "$type ret_val;";
        $func_ret = $self-> <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38890	39013	
==>od->{type} ne 'void') {
        my $type = $method->{type};
        $ret_def = "$type ret_val;";
        $func_ret = $self-> <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11525	11679	
==>L = 0x21
    
    # Trace info - param and local types.
    if trace != 2 goto NO_IN_TRACE
printerr "    PTYPES: "
i = elements ptypes
j = 0
PTYPES_LOOP:
i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469301	469399	
==>> "#line 385 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_excep <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470176	470274	
==>> "#line 385 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_excep <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	2	116	
==>require 5;
package Pod::Simple::TextContent;
use strict;
use Carp ();
use Pod::Simple ();
use vars qw( @ISA $VERSIO <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	6516	6622	
==>my($resulty, $typey, @codey);
	my($resultx, $typex, @codex);
	if ($type[NEXT] =~ /PUN/) {  # Y only
		feedm <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3837	3940	
==>) eq $$checklist{$prm}
		or	croak("Invalid value for parameter '$prm'");
        $prm=unpack('@2A*',$p <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3641	3742	
==>) eq $$checklist{$prm}
		or	croak("Invalid value for parameter '$prm'");
        $prm=unpack('@2A*',$p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612970	613063	
==>ps/object.ops\"\n    VTABLE_set_attr_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613877	613970	
==>ps/object.ops\"\n    VTABLE_set_attr_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}} <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	8055	8195	
==>out) unless $self->no_header;
    exit(0);
}

=back

=head2 Running tests

These actually run the tests, analogous to the functions in
Test:: <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	2094	2356	
==>evel]
    examples/sdl/move_parrot_logo.pir               [devel]
    examples/sdl/parrot_small.png                   [devel]
    examples/sdl/raw_pixels.pir                     [devel]
    languages/t/harness                             []
    runtime/parrot/dyn <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	5	114	
==>yright (C) 2004-2006, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Docs/Section/PMCs.pm 20333 2006-06-21T18: <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	36167	36283	
==>orrectly handled.
for example, if C<$text> is:

	$text = '<A HREF=">>>>">link</A>';

then

	@result = extract_bracket <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	12720	12910	
==>[0]->head4_halfpoint_size(),
  ;
}

###########################################################################
# Override these as necessary for further customization

sub font_table {
  ret <==
2	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	1098	1377	
==>e I24  	       # Seed the random number generator

	save 0  # Initialize the runtime stack!
	save "LOAD autorun"
	bsr RUNLINE
	restore I0
	save "RUN"
	bsr RUNLINE
	restore I0

MAINLOOPR:
	print "\n\nReady\n"
	bsr CLEAR  # This should keep the runtime stack clean

MAINLOOPNR:
	set <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	9341	9703	
==>~ /^[+-]?\d+[jJ]$/);
    return 1 if ($c =~ s/[jJ]$// && is_num($c));
    return 0;
}

sub typ {
    my $c = $_[0];
    my $t = 'P';
    if ($c =~ /<code>/) {
	$t = 'c';
    }
    elsif ($c =~ /^[+-]?\d+$/) {	# int
	$t = 'I';
    }
    elsif ($c =~ /^[+-]?\d+[lL]$/) {	# bigint
	$t = 'B';
    }
    elsif ($c =~ /^'.*'$/) {	# string consts are single quoted by di <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	5318	5486	
==>ame="Hex" defStyleNum="dsBaseN" />
      <itemData name="Float" defStyleNum="dsFloat" />
      <itemData name="Int" defStyleNum="dsDecVal" />
      <itemData name="Label <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	1997	2110	
==>nc {
#	print "Isuserfunc $_[0] and $funcname..";
	return 0 unless defined $_[0];
	return 0 if $funcname and $funcn <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	2393	2546	
==>"
    );
}

sub readjit {
    my $file = shift;

    my %ops;
    my $template;

    open IN, '<', $file or die "Can't open file $file: $!";
    while ( m <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	10173	10292	
==>put_param {
    my ($self, $name, $type, $reg) = @_;
    $reg = value($reg);
    return ".param $type $reg";
}


sub out <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38919	39110	
==>=> 179
		}
	},
	{#State 156
		ACTIONS => {
			'NAME' => 180
		}
	},
	{#State 157
		DEFAULT => -8
	},
	{#State 158
		ACTIONS => {
			"," => 151
		},
		DEFAULT => -36
	},
	{#Sta <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	6221	6337	
==>gories => $branches{$_},
    }} sort {
		($a eq "trunk" ? -1 : 0) ||
		($b eq "trunk" ? 1 : 0) ||
		($a cmp $b)
	} ke <==
2	/Users/nnunley/parrot/examples/benchmarks/arriter.pl	990	1090	
==>};
print $ha{'ABCDE'};
print $ha{'BBBBB'};
print $ha{'CCCCC'};
print $ha{'HHHHH'};
print $ha{'IIIII'} <==
2	/Users/nnunley/parrot/languages/APL/t/APL.pm	85	314	
==>ed.

BEGIN {
  eval {
    require Test::Base;
    import Test::Base qw/ -Base /;
  };
  if ($@) {
    eval 'use Test::More skip_all => "APL tests require Test::Base.;";';
    exit 0;
  }
}

use Parrot::Config;
use Parrot::Test;

o <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	41007	41185	
==>ll_function_sym {
  my $self = shift;
  my $symbol = shift;
  my $func_obj = $self->_find_lex($symbol);

  my $scope = $self->{scope};

  while ($scope && !exists $scope->{$symbol <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517005	517410	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 596,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 7 <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	3549	3690	
==>[];$cmt\n"; 
            $arrays{$name}++;
        }
        elsif( $type eq '%' ){
            $out .= "    croak 'Initializer for $name must <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77640	77767	
==>= $tracecontext;
			$tracecontext = qq{"$tracecontext"};
		}
		else
		{
			$tracecontext = qq{<NO TEXT LEFT>};
		}
		write TRACE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811468	811557	
==>line 512 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed(interpreter, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812370	812459	
==>line 512 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed(interpreter, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13416	13584	
==>{class}_$1(".full_arguments($2).")"/xeg;

    # Rewrite SELF -> pmc, INTERP -> interpreter
    s/SELF/pmc/g;
    s/\bINTERP\b/interpreter/g;

    # now use macros for al <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	11161	11339	
==>ion
            unless ( $desc ) {
               (undef, my $file, my $line) = caller();
               $desc = "($file line $line)";
            }

            # $test_no will b <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	16646	16824	
==>ion
            unless ( $desc ) {
               (undef, my $file, my $line) = caller();
               $desc = "($file line $line)";
            }

            # $test_no will b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38229	38451	
==>n(interpreter, {{\@1}});\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => " <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2137	2234	
==>$self->prefix($self->peer->prefix);
  }

  if ($self->prefix) {
    $handler->start_element({ Name <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2014	2111	
==>$self->prefix($self->peer->prefix);
  }

  if ($self->prefix) {
    $handler->start_element({ Name <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574557	574779	
==>> 656,
                  "ARGS" => [
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 249 \"src/ops/object.ops\"\n    {{\@1}} = pmc_new_i <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Examples.pm	555	743	
==>tem C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shift;
    
    return $self->SUPER::new(
        'Examples', 'examples.html', '',
            $self->new_group('PASM an <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/EditorPlugins.pm	534	669	
==>tem C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new(
		'Editor Plugins', 'editor.html', <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3819	3930	
==>");
			ref($value) eq $$checklist{$prm}
		or	croak("Invalid value for parameter '$prm'");
        $prm=unpack <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3624	3732	
==>");
			ref($value) eq $$checklist{$prm}
		or	croak("Invalid value for parameter '$prm'");
        $prm=unpack <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718022	718115	
==>s(interpreter, io, \" \");\n  PIO_fprintf(interpreter, io, INTVAL_FMT, (INTVAL){{\@2}});\n  PI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718954	719047	
==>s(interpreter, io, \" \");\n  PIO_fprintf(interpreter, io, INTVAL_FMT, (INTVAL){{\@2}});\n  PI <==
2	/Users/nnunley/parrot/lib/Test/More.pm	14316	14422	
==>fail($test_name);

Sometimes you just want to say that the tests have passed.  Usually
the case is you've g <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522645	523180	
==>" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 603,
                  "ARGS" => [
                              "n",
                              "nc",
                              "n"
                            ],
                  "BODY" => "#line 744 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4 <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	573	732	
==>TORE {
        my ($self, $index, $value) = @_;
        Class::Struct::_subclass_error();
    }

    sub FETCH {
        my ($self, $index) = @_;
        $self- <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	3344	3492	
==>urn @methods;
}


# Generate the lookup table.
# ##########################
sub generate_lookup {
    my @methods = @_;
    my $pir = "";

    # Grou <==
2	/Users/nnunley/parrot/lib/Parrot/Revision.pm	222	342	
==>t $Parrot::Revision::current;
    print $Parrot::Revision::config;

=head1 DESCRIPTION

Get parrot's current and configur <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	8942	9052	
==>set, q{Parse::RecDescent::OffsetCounter}, \$text, $thisparser;
	':'') . ($parser->{_check}{prevoffset}?'
	my $p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806475	806966	
==>LAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 910,
                  "ARGS" => [
                              "i",
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 497 \"src/ops/set <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920785	921057	
==>1036,
                  "ARGS" => [
                              "s",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 316 \"src/ops/string.ops\"\n    {{\@1}}=Parrot_psprintf(interpreter <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	79	212	
==>his file was generated using Parse::Yapp version 1.05.
#
#        Don't edit this file, use source file instead.
#
#             A <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	77	206	
==>his file was generated using Parse::Yapp version 1.05.
#
#        Don't edit this file, use source file instead.
#
#             A <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11463	11573	
==>pe}99
SWAP
}

sub parse_stop {
	feedme();
	print CODE<<STOP;
	print "Stopped at source line "
	print I11
	print <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	17135	17305	
==>();
}

sub additem
{
	my ( $self, $item ) = @_;
	$item->sethashname($self);
	push @{$self->{"items"}}, $item;
	return $item;
}


sub preitempos
{
	return q
	{
		push @item <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743072	743395	
==>"set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 836,
                  "ARGS" => [
                              " <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2416	2621	
==>iage return
                last;
            s/^\\t//
                and $str .= "\t",      # horizontal tab
                last;
            s/^\\v//
                and $str .= "\x0b",    # verti <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3930	4135	
==>iage return
                last;
            s/^\\t//
                and $str .= "\t",      # horizontal tab
                last;
            s/^\\v//
                and $str .= "\x0b",    # verti <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	2179	2308	
==>IR

    $P0[unicode:"dyadic:\u2260"]  = <<"END_PIR"             # not equal
    $I100 = isne %1, %2
    %1 = $I100
END_PIR

    $P <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	8474	8752	
==>em F<tools/build/pbc2c.pl>

=back

=head1 HISTORY

Author: Gregor N. Purdy E<lt>gregor@focusresearch.comE<gt>

=cut

1;

__END__

=begin TODO

=head1 LICENSE

This program is free software. It is subject to the same
license as Parrot itself.

=head1 COPYRIGHT

Copyright (C) 2001 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Ops.pm	475	677	
==>tem C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new(
		'Ops', 'ops.html', '',
		$self->new_group('Tools', '',
			$self->new_item('', 'tools/build/ops2c.pl <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Examples.pm	450	595	
==>se warnings;

use base qw( Parrot::Docs::Section );

use Parrot::Docs::Item;
use Parrot::Docs::Group;

=item C<new()>

Returns a new section.

=cu <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	274	431	
==>al "use warnings";

package Jako::Compiler;

use Carp;
use FileHandle;

use base qw(Jako::Processor);


#
# block_label()
#

sub block_label
{
  my $self = sh <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	496	616	
==>tem C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shift;
    
    return $self->SUPER::new(
        'P <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	481	593	
==>tem C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new(
		'Perl Mod <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	14273	14402	
==>initializer
for a hash is a hash reference.

The initializer for a class element is an object of the corresponding class,
or of on <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	2490	2693	
==>',
        replace_slashes               => 1
    );
    genfile(
        'config/gen/makefiles/dynpmc.in' => 'src/dynpmc/Makefile',
        commentType                          => '#',
        replace_sl <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2385	2503	
==>$self)=shift;

		exists($$self{USER})
	or	$$self{USER}={};

	$$self{USER};
	
}

sub YYErrok {
	my($self)=shif <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2292	2400	
==>$self)=shift;

		exists($$self{USER})
	or	$$self{USER}={};

	$$self{USER};
	
}

sub YYErrok {
	my($self)=shif <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745369	745652	
==>"set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 839,
                  "AR <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1459	1563	
==>my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'op', Attributes => { kind = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1453	1557	
==>my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'op', Attributes => { kind = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150781	151093	
==>tion",
                  "CODE" => 183,
                  "ARGS" => [
                              "p",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 112 \"src/ops/cmp.ops\"\n  if (0 == string_equal(interpreter,\n      {{\ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20982	21128	
==>elf->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return $return;
}

sub _op_zero_p {
  my ($self,$node) = @_;
  my $return;
  my $label <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tests.pm	476	627	
==>tem C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new(
		'Tests', 'tests.html', '',
		$self->new_group('T <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	504	640	
==>tem C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shift;
    
    return $self->SUPER::new(
        'Tools', 'tools.ht <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6913	7020	
==>t the =
	#	#print "Going to expression with $syms[CURR]\n";
	#	print CODE EXPRESSION;		# Evaluate the expres <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1856	1967	
==>tion, @todo)>

Runs the target string against the Perl 6 pattern, passing the test if
they do not match. The sam <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3388	3499	
==>tion, @todo)>

Runs the target string against the Perl 6 pattern, passing the test if
they do not match. The sam <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4942	5090	
==>in an ops file into the
relevant C code.

=cut

sub goto_offset 
{
    my $self = shift;

    return $self->gen_goto($self->expr_offset(@_));
}

=ite <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	2330	2442	
==>ew_item('A list of some of people who have contributed to Parrot.', 'CREDITS'),
        ),
        $self->new_gro <==
2	/Users/nnunley/parrot/languages/converter.pl	1869	2131	
==>^']*/ "'" mod(?)
#		{[@item]}
		{ qq('$item[2]') . ::modifier($item[4]) }
		| '"' /[^"]*/ '"' mod(?)
#		{[@item]}
		{ qq("$item[2]") . ::modifier($item[4]) }
		| /[\\]?[a-zA-Z0-9_]+/ mod(?)
#		{[@item]}
		{ $item[1] . ::modifier($item[2]) }

mod		: '*' | '+' | '? <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2255	2431	
==>" goto NOWT_TO_PROPOGATE
PIR
    $pir .= _do_lazy_moves('_BDEST');
    $pir .= <<'PIR';
stack_depth = prop_stack_depth[${PC}]
NOWT_TO_PROPOGATE:
PIR

	# We'll emit a label for e <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	4362	4509	
==>s=16 ",

            # -Wsequence-point is part of -Wall
            # -Wfloat-equal may not be what we want
            # We shouldn't be using __p <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	1650	1775	
==>'', 'tools/dev/extract_file_descriptions.pl'),
            $self->new_item('', 'tools/dev/lib_deps.pl'),
            $self->ne <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	12654	12885	
==>]->head2_halfpoint_size(),
   $_[0]->head3_halfpoint_size(),
   $_[0]->head4_halfpoint_size(),
  ;
}

###########################################################################
# Override these as necessary for further customizatio <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33795	33916	
==>_trace(q{Trying subrule: [' . $self->{"subrule"} . ']},
				  Parse::RecDescent::_tracefirst($text),
				  q{' . $rule->{" <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8832	8995	
==>]]{GOTOS}{$lhs}, $semval ]);
                $$check='';
                next;
            };

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Forced Error rec <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8435	8592	
==>]]{GOTOS}{$lhs}, $semval ]);
                $$check='';
                next;
            };

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Forced Error rec <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	285	404	
==>s    = $conf->data->get('ccflags');
    my $cc        = $conf->data->get('cc');
    my $linkflags = $conf->data->get('li <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2379	2497	
==>$offset; goto SWITCH_AGAIN; }";
}

=item C<goto_pop()>

Transforms the C<goto POP()> macro in an ops file into the rele <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	7288	7401	
==>sub skip_new           { return shift->skip('new');           }
sub skip_open_brace    { return shift->skip('open- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658247	658336	
==>/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed(interpre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659166	659255	
==>/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed(interpre <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	20852	21008	
==>,
        example_output_like => 'language_output_like',
        example_output_isnt => 'language_output_isnt',
                           );

    foreach my <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2200	2315	
==>represents a named library.

=cut

sub write_all_files {
    my $self = shift;
    my $library = $self->{opt}{librar <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	799	935	
==>nd$
    |
    ^clear_eh$
  )
}smx;

my $blank_before = qr { : $}smx;    #labels

my $verbatim_begin = qr{ ^= }smx;
my $verbatim_end   = q <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262089	262476	
==>me",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 305,
                  "ARGS" => [
                              "i",
                              "sc" <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	8267	8411	
==>f = shift;

    return scalar($self->arg_types + 1);
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::OpsFile>

=item C<Parrot::OpTrans>

=ite <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	6503	6640	
==>nget;
        while(1) {
          push @to_unget, $self->get_token;
          last if $to_unget[-1]->is_end
              and $to_unget[- <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6906	7027	
==>$PMC2C --c $pmc.pmc")
          or die "pmc2c code generation failed ($?)\n";
    }
}

sub compile {
    my ($src_stem, $d <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7117	7238	
==>$PMC2C --c $pmc.pmc")
          or die "pmc2c code generation failed ($?)\n";
    }
}

sub compile {
    my ($src_stem, $d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	310135	310249	
==>>state |= PDB_BREAK;\n        interpreter->pdb->state |= PDB_STOPPED;\n        interpreter->pdb->cur_opcode = (opco <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	9424	9559	
==>";
    print SOURCE <<END_C;

INTVAL ${bs}numops${suffix} = $num_ops;

/*
** Op Function Table:
*/

static op_func${suffix}_t ${op_func} <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	115	216	
==>0975Z coke  $

package init::hints::solaris;

use strict;

use Parrot::Configure::Step qw(cc_gen cc_ru <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	9562	9722	
==>est::Harness.
        $out   .= " - $name";
        $result->{name} = $name;
    }
    else {
        $result->{name} = '';
    }

    if( $todo ) {
        $out <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	76	220	
==>en/makefiles/dynclasses_pl.in

# Copyright: 2001-2005 The Perl Foundation.  All Rights Reserved.
# $Id: /parrot/config/gen/makefiles/dynclasses_p <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4238	4339	
==>}

=item C<run_core_func_decl($core)>

Returns the C code for the run core function declaration.

=cut <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2726	2827	
==>}

=item C<run_core_func_decl($core)>

Returns the C code for the run core function declaration.

=cut <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32725	32826	
==>elf, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<gen_ret($type)>

Generate the C code <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	212577	212892	
==>_JUMP_RELATIVE",
                  "NAME" => "le_num",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function" <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2396	2544	
==>my $pir = "";

	# Emit code to push stuff back onto the stack.
	for (1..$pushes) {
		$pir .= <<'PIR';
${INS} = concat "push s, "
${INS} = concat ${DE <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37233	37428	
==>' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 176,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' <==
2	/Users/nnunley/parrot/lib/Test/More.pm	37417	37513	
==>4 by Michael G Schwern E<lt>schwern@pobox.comE<gt>.

This program is free software; you can redis <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	6377	6473	
==>4 by Michael G Schwern E<lt>schwern@pobox.comE<gt>.

This program is free software; you can redis <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7930	8129	
==>"$_\"\n(should be \"#$indent$2\" because it is inside of " . (join ' > ', @stack) . ")\n")
            }
        }
    }
}


sub check_mandatory_boilerplate {
    my ($file, $source) = @_;

    my @en <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	513	631	
==>ides various Parrot-specific test functions.

=head2 Functions

The parameter C<$language> is the language of the code. <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	15073	15286	
==>{NAV_BAR} = $item->html_navigation("$rel_path/$name");
    $self->{RESOURCES_URL} = "$rel_path/resources";

    $docs_file->write($self->html_for_file($file));
}

=item C<append_html_suffix($path)>

Returns C<$path <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	17629	17736	
==>nter' ]),
                 $self->dbprint("backtracking into dynalt's index %<$counter> match\n"),
		 aop('g <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	905	1049	
==>_cb = sub {
        use Carp;
        my ($key, $cc) = @_;
        my %gnuc;
        my $link = $conf->data->get('link');
        cc_gen("config/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653951	654500	
==>" => "find_method",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 731,
                  "ARGS" => [
                              "p",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 292 \"src/ops/pmc.ops\"\n    opcode_t * res <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	652791	653125	
==>" => "find_method",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 730,
                  "ARGS" => [ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	1029	1184	
==>E
my $MAXREP  = 100_000_000;	# REPETITIONS MATCH AT MOST 100,000,000 TIMES


sub import	# IMPLEMENT PRECOMPILER BEHAVIOUR UNDER:
		#    perl -MParse::RecDes <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	8659	8834	
==>open MAKEFILE, ">> docs/Makefile" or die "open >> docs/Makefile: $!";

        my $slash       = $conf->data->get('slash');
        my $new_perldoc = $conf->data->get('new_perl <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	14276	14396	
==>q '-' or $to =~ m/^>&?(?:STDOUT|1)$/i
  ) {
    $self->output_fh( *STDOUT{IO} );
  } else {
    require Symbol;
    my $o <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	1937	2143	
==>_re)\)
        (?:\s+(MMD_\w+))?\s*$/x) {
        my $mmd = defined $4 ? $4 : -1;
            push @{$vtable}, [ $1, $2, $3, $section, $mmd ];
        } else {
            die "Syntax error at $file line ".$ <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	5446	5604	
==>ewline = 1
    pos = 0

  cont_2d:
    old_type = value_type
    value = shift iter
    bsr print_value
    unless iter goto loop_end_2d
    value_type = typeo <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	5180	5347	
==>"END";
#!/usr/bin/perl

use strict;
use lib qw(tcl/lib ./lib ../lib ../../lib ../../../lib);
use Parrot::Test tests => $count;

END

    my $counter = 1;
    for my $na <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	26873	26982	
==>specified functions
 # or regular expressions

	@extracted = extract_multiple($text,
				      [ \&extract_bra <==
2	/Users/nnunley/parrot/lib/Test/More.pm	21811	21964	
==>HIS your card?' );

        my $spoon;
        URI::Geller->bend_spoon;
        is( $spoon, 'bent',    "Spoon bending, that's original" );
    }

With a t <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	8238	8443	
==>he
    # same.
    $command = [$command] unless (ref $command);

    if (defined $ENV{VALGRIND}) {
        $_ = "$ENV{VALGRIND} $_" for (@$command);
    }

    my $orig_dir;
    if ( $chdir ) {
        $ori <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	5902	6088	
==>est::Simple in your
programs and things will still work).

=item L<Test>

The original Perl testing module.

=item L<Test::Unit>

Elaborate unit testing.

=item L<Test::Inline>, L<SelfTes <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104047	1104137	
==>ype <= 0)\n\t\treal_exception(interpreter, NULL, NO_CLASS,\n\t\t\t\t\"Class '%Ss' not found <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105262	1105352	
==>ype <= 0)\n\t\treal_exception(interpreter, NULL, NO_CLASS,\n\t\t\t\t\"Class '%Ss' not found <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1576	1670	
==>ERROR("Type is not a Jako::Construct::Type instance!")
    unless UNIVERSAL::isa($type, "Jako:: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1424	1518	
==>ERROR("Type is not a Jako::Construct::Type instance!")
    unless UNIVERSAL::isa($type, "Jako:: <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1690	1807	
==>. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1736	1830	
==>. . . . . . . . . . . . .
#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23438	23543	
==>}) {
    my $temp = $self->_generate($node->{children}[$_]);
    my $label = $self->_gensym();
    $self-> <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23900	24005	
==>}) {
    my $temp = $self->_generate($node->{children}[$_]);
    my $label = $self->_gensym();
    $self-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033517	1033741	
==>_pmc_keyed_str(interpreter, lex_pad, lex_name, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034615	1034839	
==>_pmc_keyed_str(interpreter, lex_pad, lex_name, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	1257	1350	
==>ader, @{$skip}, '' );

=head1 AUTHOR

Bernhard Schmalhofer - <Bernhard.Schmalhofer@gmx.de>

=c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830601	830698	
==>stack.ops\"\n  INTVAL i = {{\@1}};\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_sta <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831342	831439	
==>stack.ops\"\n  INTVAL i = {{\@1}};\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_sta <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	3045	3175	
==>lemented '$syms[CURR] ";
		while(1) {
			feedme();
			$_=$type[CURR];
			last unless $_;
			last if $_ =~ /STMT|COMM|COMP/;
			push <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506346	506658	
==>inline",
                  "CODE" => 582,
                  "ARGS" => [
                              "n",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 636 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	14771	15019	
==>being 'else'.
      #

      elsif ($peer_block->kind eq 'if' or $peer_block->kind eq 'unless') {
        my $parent_block = $peer_block->block;
        my $cond = Jako::Construct::Block::Conditional::Else->new($parent_block, $peer_block);
        $ <==
2	/Users/nnunley/parrot/config/auto/gc.pm	2063	2171	
==>data->set(
            TEMP_gc_c => <<"EOF",
\$(SRC_DIR)/res_lea\$(O):	\$(GENERAL_H_FILES) \$(SRC_DIR)/res_le <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	1023	1221	
==>');
        cc_gen("config/auto/gcc/test_c.in");

        # Can't call cc_build since we haven't set all the flags yet.
        # This should suffice for this test.
        Parrot::Configure::Step::_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	8548	8756	
==>} = $handle;
  DEBUG and print "  Its handle is $handle\n";
  return 1;
}

# ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~

sub get_title_short {  shift->get_short_title(@_)  } # al <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5353	5473	
==>('verbose') && $self->get('verbose') == 2;

    print "Looking up all triggers on configuration key $key\n"
        if $v <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	5994	6164	
==>:\n";
	}
	$ons++;
}
sub parse_randomize {
	if ($type[NEXT] =~ /STMT|COMM|COMP/) {  # No arg version
		feedme();
		print CODE<<PROMPTRND;
	print "Random-number seed (-32768 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15898	15996	
==>functions, etc...
		@stream=convert_to_rpn(@expr);	# Get infix into RPN
		($result,$type,@stream)=g <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	17049	17147	
==>functions, etc...
		@stream=convert_to_rpn(@expr);	# Get infix into RPN
		($result,$type,@stream)=g <==
2	/Users/nnunley/parrot/config/init/hints/aix.pm	90	192	
==>006-05-30T02:28:15.110975Z coke  $

package init::hints::aix;

use strict;

sub runstep
{
    my ($self <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	17089	17219	
==>$type, $expect) = @_;
    
    $got    = defined $got    ? "'$got'"    : 'undef';
    $expect = defined $expect ? "'$expect'" : 'un <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	430	550	
==>, $failLabel) = @_;
    $failLabel = $self->output_label_use($failLabel);
    if ($distance eq '1') {
        return "rx_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	25985	26084	
==>b_meta($out, $mv, "argument read");
		$mv->{"ARG$arg_num"} = $mv->{$arg_name};
		push @localmv, "ARG <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	20043	20177	
==>ame'}\n";
        }
    }

    # If we have 3 or less rules, dispatch directly to the translator.
    if (@rules <= 3) {
        my %by <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	18450	18559	
==>opn(interpreter, signature, 1, 1);
       signature_len = string_length(interpreter, signature);
    }

    ig <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18050	18182	
==>structor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 48
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRU <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	702	805	
==>you can pass a third option to the C<use> line.
C<arguments> should be an array reference containing add <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	4436	4531	
==>f->_add_inst ('', 'set',[$return,$value]);
    }
    elsif ($value =~ /^[-+]?((\d+\.\d*)|(\.d+)) <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3455	3547	
==>f->_add_inst ('', 'set', [$return,$value]);
  }
  elsif ($value =~ /^[-+]?((\d+\.\d*)|(\.d+)) <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	1996	2134	
==>};
    _subclass_error() if @$isa;
    tie @$isa, 'Class::Struct::Tie_ISA';

    # Create constructor.

    croak "function 'new' already d <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	2653	2770	
==>d, the missing (or extras)
will be considered failures.  If no tests were ever run Test::Simple
will throw a warning a <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	11277	11362	
==>}


#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
#@@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786176	786432	
==>get_integer_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787087	787343	
==>get_integer_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	44549	44816	
==>e target list of a
translation),

=item [6]

the right delimiter of the first block of the operation,

=item [7]

the left delimiter of the second block of the operation
(that is, if it is a C<s>, C<tr>, or C<y>),

=item [8]

the text of the second block of the operat <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	3864	4007	
==>sc = $file->short_description;
            
            next unless $short_desc;
            
            next if grep {$_ eq $short_desc} @shor <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8283	8405	
==>"PARROT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLAGS" => ":base_loo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9398	9520	
==>"PARROT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLAGS" => ":base_loo <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	7803	8032	
==>abel} : $_ } @{ $_->{args} || [] });
            }
        } @_;
    } else {
        map {
            my $str;
            if ($_->{label}) {
                $str .= "**" if $_->{label}{reachable};
                $str .= "$_->{ <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	449	545	
==>rating runtime/parrot/include';

my @files = qw(
    include/parrot/cclass.h
    include/parrot/c <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	27758	27922	
==>e @$para, 2;
      if($content =~ m/\S/) {
        $self->whine(
          $para->[1]{'start_line'},
          "=back doesn't take any parameters, but you said =back <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393728	394101	
==>ase_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 457,
                  "ARGS" => [
                              "i",
                              "p"
                            ],
                  "B <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658663	659082	
==>ed",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 736,
                  "ARGS" => [
                              "i",
                              "p",
                              " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1096987	1097208	
==>\n    else\n    {\n        PMC *key_tail, *key;\n        STRING *tmp;\n        int i, max;\n\n        /* Need to turn list of strings into a key. Note that we are not\n           including the first item in the array, sinc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714833	715079	
==>1);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715756	716002	
==>1);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item" <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4463	4577	
==>$push_num/g;
		$push_num++;
	}

	# Return generated code.
	return $pir;
}

sub post_op($$) {
	# Nothing to do.
	ret <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2879	2993	
==>$push_num/g;
		$push_num++;
	}

	# Return generated code.
	return $pir;
}

sub post_op($$) {
	# Nothing to do.
	ret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915865	916067	
==>",
                              "sc",
                              "i"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(inter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350944	351032	
==>"BODY" => "#line 190 \"src/ops/io.ops\"\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351606	351694	
==>"BODY" => "#line 190 \"src/ops/io.ops\"\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686487	686774	
==>rpreter, {{\@3}}, {{\@2}});\n   {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687377	687664	
==>rpreter, {{\@3}}, {{\@2}});\n   {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24883	25039	
==>[3]+$match[5]+$match[7],	# MATCH
				@match[8..9,0..1,2..7];				# REM, PRE, BITS
	};

	bless $closure, 'Text::Balanced::Extractor';
}

package Text::Balanced <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4344	4506	
==>ame } });
        $handler->characters({ Data => $string });
        $handler->end_element({ Name => 'literal' });
      }

      $handler->end_element({ Name => ' <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4694	4837	
==>ame } });
      $handler->characters({ Data => $string });
      $handler->end_element({ Name => 'literal' });
    }
  }
  else {
    $handler-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22861	23061	
==>re.ops\"\n  opcode_t *dest;\n  PMC * const p = {{\@1}};\n  dest = {{^+2}};\n  interpreter->current_object = NULL;\n  interpreter->current_cont = NEED_CONTINUATION;\n  dest = (opcode_t *)p->vtable->invo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25250	25349	
==>re.ops\"\n  opcode_t *dest;\n  PMC * const p = {{\@1}};\n  dest = {{^+2}};\n  interpreter->current_c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750388	750645	
==>BODY" => "#line 204 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_string_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	890	1044	
==>TPUT:/;
             $input .= $_;
         }
         chomp($input);
         die "EOF during INPUT section" if ! defined($output);

         # Gather out <==
2	/Users/nnunley/parrot/languages/regex/test.pl	2781	2910	
==>TPUT:/;
        $input .= $_;
    }
    chomp($input);
    die "EOF during INPUT section" if ! defined($output);

    # Gather out <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	13571	13742	
==>>$title</title>
          </head>
          <body bgcolor="white">
            <h1>$title</h1>
            <hr noshade>
    );
}


sub page_footer {
    "<hr noshade><i>Las <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	8774	8891	
==><<'END_C';
#define CONST(i) (int *)(jit_info->cur_op[i] * sizeof(struct PackFile_Constant) + offsetof(struct PackFile_ <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	4102	4206	
==>illion bytes). I use it to
hash passwords.

=item *

educational purposes

=back

=head1 SYNOPSIS

 # Fun <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	3929	4198	
==>", :$todo, :$depends);
    }
}

## throws ok

sub throws_ok (Code &code, Any $match, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto($! ~~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test:: <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61613	61760	
==>if ($grammar =~ m/(?=$MATCHRULE)/gco
				and do { ($code) = extract_bracketed($grammar,'<');
					 $code
				       }
		       or $grammar =~ m/$SUB <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	502	603	
==>register mapper\n";
}

# Extra subroutines required for the mapper.
sub subs {
	die "subs not implemen <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	1693	1840	
==>pt=sub
      superscript=sup
      big=big
      small=small
      underline=u
      strikethrough=s
    ]  # no point in providing a way to get <q> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2660	2763	
==>_arg_type->name) {
      my $temp = $compiler->temp_reg($formal_arg_type);
      my $value = $args[$i]-> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2360	2463	
==>_arg_type->name) {
      my $temp = $compiler->temp_reg($formal_arg_type);
      my $value = $args[$i]-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943851	943959	
==>n  {{\@1}} = Parrot_charset_number_of_str(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944640	944748	
==>n  {{\@1}} = Parrot_charset_number_of_str(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	1328	1477	
==>c/pmc.num";
    my %order;
    while (<IN>) {
        next if (/^#/);
        if (/(\w+\.\w+)\s+(\d+)/) {
            $order{$1} = $2;
        }
    } <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9349	9472	
==>k, $linkflags, $cc_exe_out, $exe, $libs) = $conf->data->get(
        qw(cc ccflags ld_out o link linkflags
            cc_ex <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054501	1054614	
==>};\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055628	1055741	
==>};\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	175	276	
==>ON

Call 'Parrot m4' and 'GNU m4'.

=cut

package Parrot::Test::M4;

use strict;
use warnings;
use 5.0 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	625	712	
==>nless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');

  my $n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005629	1005922	
==>RGS" => [
                              "i",
                              "ic",
                              "s",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = P <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30158	30291	
==>CH_END
SUB_DISPATCH_END:
	ret
SUBEND
}
sub parse_struct_copy_dispatch {
	goto RTJUMP;
	print CODE <<SCOPYDIS;
	
	#
	# Structure copy d <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2638	2742	
==>_type->name ne $actual_arg_type->name) {
      my $temp = $compiler->temp_reg($formal_arg_type);
      my <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2338	2442	
==>_type->name ne $actual_arg_type->name) {
      my $temp = $compiler->temp_reg($formal_arg_type);
      my <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	3011	3169	
==>::String');
  $self->SYNTAX_ERROR("Can't do arithmetic on strings") if UNIVERSAL::isa($left_type, 'Jako::Construct::Type::String');
  $self->SYNTAX_ERROR("Can' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	900076	900276	
==>",
                              "ic",
                              "s"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter <==
2	/Users/nnunley/parrot/languages/converter.pl	2428	2593	
==>=/) {
      push @rules,$_;
    }
    else {
      $rules[-1] .= "\n$_";
    }
  }
  else {
    if(/::=/) {
      push @rules,$_;
      $in_rule = 1;
    }
  }
}

for <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28604	28709	
==>? ''
			       : '$item{'.$self->{hashname}.'}=') . '$&;
		' . ($self->{"lookahead"} ? '$text = $_savetext <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30682	30787	
==>? ''
			       : '$item{'.$self->{hashname}.'}=') . '$&;
		' . ($self->{"lookahead"} ? '$text = $_savetext <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409372	409627	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "recv",
                  "FLAGS" => ":base_network",
                  "AR <==
2	/Users/nnunley/parrot/Configure.pl	9768	9877	
==>rm
    gen::config_pm
);

my $conf = Parrot::Configure->new;
{
    # XXX $Parrot::Configure::Step::conf is a t <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	3211	3510	
==>$rel_path (@rel_paths)
    {
        my $file = $source->file_with_relative_path($rel_path);
        my $formatter = Parrot::Docs::POD2HTML->new;
                    
        if ( $file->contains_pod )
        {   
            print "\n", $rel_path unless $silent;
        
            $formatter->wr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	935786	936055	
==>" => 0,
                  "NAME" => "titlecase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936562	936831	
==>" => 0,
                  "NAME" => "titlecase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	19366	19576	
==>stack;
    if ($c =~ /exception match/) {
	return except_compare($l, $r);
    }
    my %rev_map = (
	'==' => 'ne',
	'!=' => 'eq',
	'>' => 'le',
	'>=' => 'lt',
	'<' => 'ge',
	'<=' => 'gt',
	'is' => 'ne_addr',
	'i <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	23960	24145	
==>=> $lbl2,
    );
    push @opcodes, new LabelOp( $parser,
        'arg1' => $lbl1,
    );
    push @opcodes, @{ $expr2->[1] };
    push @opcodes, new AssignOp( $parser,
        'r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835786	835907	
==>ck, string_copy(interpreter, {{\@1}}), STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836539	836660	
==>ck, string_copy(interpreter, {{\@1}}), STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572479	572893	
==>ss",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 654,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  " <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22550	22723	
==>oto <label> unless (<value> <op> <value>);
    #

    if ($token->is_goto) {
      my $block = $self->current_block;
      my $ident = Jako::Construct::Expression::Value::Ide <==
2	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	87	188	
==>constant VERSION => 0.4;
sub debug($);

our $compress = sub { return };

GetOptions(
  "smokeserv=s" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574725	574814	
==>ine 249 \"src/ops/object.ops\"\n    {{\@1}} = pmc_new_init(interpreter, enum_class_ParrotC <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575529	575618	
==>ine 249 \"src/ops/object.ops\"\n    {{\@1}} = pmc_new_init(interpreter, enum_class_ParrotC <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54402	54577	
==>$1} || '\\x'.(unpack("H2",$1))>eg;
         <$pretty_form{$1} || '\\x{'.sprintf("%x", ord($1)).'}'>eg;
      } else {
        # We're in some crazy non-ASCII world!
        s<( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54670	54779	
==>$1} || '\\x'.(unpack("H2",$1))>eg;
         <$pretty_form{$1} || '\\x{'.sprintf("%x", ord($1)).'}'>eg;
      } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170370	170460	
==>11 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) != {{\@2}}) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171311	171401	
==>11 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) != {{\@2}}) <==
2	/Users/nnunley/parrot/lib/Test/More.pm	21209	21508	
==>in the block"
          unless $Test->has_plan eq 'no_plan';
        $how_many = 1;
    }

    for( 1..$how_many ) {
        $Test->skip($why);
    }

    local $^W = 0;
    last SKIP;
}


=item B<TODO: BLOCK>

    TODO: {
        local $TODO = $why if $condition;

        ...normal testing code goe <==
2	/Users/nnunley/parrot/lib/Test/More.pm	23639	23881	
==>in the block"
          unless $Test->has_plan eq 'no_plan';
        $how_many = 1;
    }

    for( 1..$how_many ) {
        $Test->todo_skip($why);
    }

    local $^W = 0;
    last TODO;
}

=item When do I use SKIP vs. TODO?

B<If it's some <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	2499	2616	
==>> 'float');
    } else {
        $conf->data->set(float4_t => 'double');
        print <<'END';

Can't find a float ty <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28082	28287	
==>_op = $srm->post_op($rule->{'pop'}, $rule->{'push'});
		$pir .= "### post_op\n";
		$pir .= sub_meta($post_op, $mv, "post_op for rule $rule->{'name'}");
		$pir .= "### end post_op\n";
	}

	# Loads (load clas <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	13934	14046	
==>tet
  } elsif(!length $source
     or $source eq '-' or $source =~ m/^<&(STDIN|0)$/i
  ) { 
    $source = *STDIN{ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	38080	38202	
==>es2 = ();
    if ( $parser->YYData->{self} ) {
        unshift @{$params}, $parser->YYData->{self};
        $parser->YYD <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	23850	23974	
==>iag() should go.

Defaults to STDERR.

=item B<todo_output>

    $Test->todo_output($fh);
    $Test->todo_output($file);

Whe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713115	713446	
==>GDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 800,
                  "ARGS" => [
                              "nc"
                            ],
                  "BODY" => "#line 59 \"src/ops/python.ops\"\n  PMC * const io = P <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	40274	40413	
==>=> \&_op_let_syntax,
  'syntax'              => \&_op_syntax,
  'identifer?'          => \&_op_identifier_p,
  'unwrap-syntax'       => \&_o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22838	22948	
==>"#line 409 \"src/ops/core.ops\"\n  opcode_t *dest;\n  PMC * const p = {{\@1}};\n  dest = {{^+2}};\n  interprete <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5396	5524	
==>pile, linklibs, or copy\n";
}

sub run {
    print join(" ", @_), "\n";

    return system(@_) == 0;
}

# XXX: ordering of libs m <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5607	5735	
==>pile, linklibs, or copy\n";
}

sub run {
    print join(" ", @_), "\n";

    return system(@_) == 0;
}

# XXX: ordering of libs m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638941	639096	
==>*class;\n  int typ;\n  \n  arg_op = interpreter->current_args;\n  if (!arg_op) {\n        real_exception(interpreter, NULL, NULL_REG_ACCESS,\n            \" <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	18706	18833	
==>pos = pos($$textref);
		$$textref =~ m{$label\n}gc;
		$ld2pos = pos($$textref);
		return (
			$startpos,	$oppos-$startpos,	# PRE <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	19067	19208	
==>merge = $self->{'merge_text' };
  return unless $nixx or $merge;

  DEBUG > 2 and print "\nStarting _wrap_up traversal.\n",
   $merge ? (" Mer <==
2	/Users/nnunley/parrot/tools/dev/symlink.pl	1034	1125	
==>toolsrcdir = File::Spec->splitdir($toolsrcdir);
die "$self: not in tools/dev\n"
  unless @to <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	7466	7587	
==>ck;
		}
		push @stack, $item;
		
	}
	push @stream, reverse @stack;	
	#print STDERR "Outta RPN convert\n";
	return(@stream) <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27987	28092	
==>s = push type_trans\n";
		}

		# Finally, call post_op and append code it generates.
		my $post_op = $srm- <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39245	39402	
==>2;
    my $result = new_tmp( $parser, 'pmc', 'function' );
    push @opcodes1, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcod <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10526	10664	
==>[ $$states[$$stack[-1][0]]{ACTIONS}{error}, undef ]);

    }

    #never reached
	croak("Error in driver logic. Please, report it as a <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10054	10187	
==>[ $$states[$$stack[-1][0]]{ACTIONS}{error}, undef ]);

    }

    #never reached
	croak("Error in driver logic. Please, report it as a <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	583	677	
==>OpTrans::Compiled;
use Parrot::OpLib::core;
use Parrot::Config;
use Parrot::Key;

my $trans = P <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4708	4873	
==>ss)> macro in an ops file into the
relevant C code.

=cut

sub goto_address 
{
    my $self = shift;

    return $self->gen_goto($self->expr_address(@_));
}

=item C< <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	216	315	
==>YNOPSIS

	use Parrot::Docs::Section::IMCC;

=head1 DESCRIPTION

A documentation section describing I <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	1174	1275	
==>ith
the exception of the configuration file name itself.  In the event
you have specified an option bo <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7873	7972	
==>Should not happen (int)"
i%=54
if i% then print "This is true" else print "Oops (int)"
i=0
if i then <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14860	14959	
==>Should not happen (int)"
i%=54
if i% then print "This is true" else print "Oops (int)"
i=0
if i then <==
2	/Users/nnunley/parrot/config/auto/byteorder.pm	418	607	
==>ase);

$description = q{Computing native byteorder for Parrot's wordsize};

@args = ();

sub runstep
{
    my ($self, $conf) = @_;

    cc_gen('config/auto/byteorder/test_c.in');
    cc_buil <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	43	170	
==>xporter';
BEGIN {
    @Regex::EXPORT_OK = qw(expr_to_tree tree_to_list list_to_pasm compile);
};

use Regex::State;
use Regex::P <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	23712	23849	
==>///////////////////////////
      # The virtual end-document signal
      
      if(@$curr_open) { # Deal with things left open
        DE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509981	510318	
==>"ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 587,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 675 \"src/ops/math.ops\"\n  {{\@1}}->vtable->i_neg( <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	54307	54515	
==>ne 377 "Lua\lua51.yp"
{
            BuildRelop( $_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 68
		 'exp', 3,
sub
#line 381 "Lua\lua51.yp"
{
            BuildRelop( $_[0], $_[1], $_[2], $_[3] ) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24781	24952	
==>ess( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcall",
                  "FLAGS" => "",
                  "ARGD <==
2	/Users/nnunley/parrot/lib/Test/More.pm	5078	5210	
==>xport_to_level(1, __PACKAGE__, @imports);
}


=head2 Test names

By convention, each test is assigned a number in order.  This is
lar <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	964	1101	
==>code {
  # Discard upper 32 bits on 64 bit archs.
  my $MSK = ((1 << 16) << 16) ? ' & ' . MAX : '';
#	FF => "X0=rotate_left(((X1&X2)|(~X1& <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49269	49396	
==>prod->adddirective($1, $line);
			}
			elsif ($grammar =~ m/$UNCOMMITMK/gco)
			{
				_parse("an uncommit marker", $aftererror,$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21312	21426	
==>\n  if (!string_bool(interpreter, {{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Examples.pm	256	347	
==>s::Section::Examples;

=head1 DESCRIPTION

A documentation section describing all the Parrot <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	40104	40294	
==>>isa('BranchOp') ) {
                if ( $op->{result} eq 'break' ) {
                    $parser->Error("no loop to break\n");
                }
            }
        }
        unshif <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39035	39201	
==>>isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $parser->Error("no loop to break\n");
            }
        }
    }
    unshif <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811517	811759	
==>}}->vtable->get_pmc_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812419	812661	
==>}}->vtable->get_pmc_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	7147	7320	
==>tals{call_coverage} %)</td>
                 </tr>
              </tbody>
            </table>
            </ul>
    );
    print OUT page_footer();
}


sub write_file_covera <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	32175	32281	
==>) {\n\t    /* get results PMC index and get PMC. */\n\t    sig = PF_CONST(PMC_cont(cc)->seg, results[1])->u <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	12736	12862	
==>t ) {
        # undef only matches undef and nothing else
        my $test = defined $got || defined $dont_expect;

        $se <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	13180	13306	
==>t ) {
        # undef only matches undef and nothing else
        my $test = defined $got || defined $dont_expect;

        $se <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	2014	2180	
==>s which would not
    # have been properly formatted, unfortunately.
    my $fdecls = $c->get('fdecls');
    foreach my $fdecl (@$fdecls) {
        next unless ($fdecl <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9571	9710	
==>elf->popop . " $reg, <rx_stack>",
                $self->dbprint("POPPED[\%<<rx_tmp>>] INT: \%<$reg>$desc\n"),
                );
    } else <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	11008	11173	
==>TIONS => {
			'' => -4,
			'NAME' => -4,
			'REPEAT' => -4,
			'FOR' => -4,
			"(" => -4,
			'IF' => -4,
			'error' => 1,
			'FUNCTION' => -4,
			'DO' => -4, <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	14529	14708	
==>d,$patvalid) )
		{
			$patvalid = 0;
			next;
		}


		# NEED TO COVER MANY MORE CASES HERE!!!
		if ($$textref =~ m#\G\s*( [-+*x/%^&|.]=?
					| [!=]~
					| =(?!>)
					| (\*\*|&&| <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	2768	2864	
==>int register
  .param pmc argv

  .local pmc compiler
  .get_from_HLL(compiler, '_tcl', 'compile_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	8975	9140	
==>lse keep while'ing along
        }
        # Now put it aaaaall back...
        $self->unget_token(@to_unget);

      } elsif( $tagname =~ m/^over-/s ) {
        push <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	8361	8599	
==>:Simple's ok().

=cut

sub ok {
    my($self, $test, $name) = @_;

    # $test might contain an object which we don't want to accidentally
    # store, so we turn it into a boolean.
    $test = $test ? 1 : 0;

    unless( $self->{Have_Plan <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934615	934890	
==>,
                  "CODE" => 1050,
                  "ARGS" => [
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 435 \"src/ops/string.ops\"\n  {{\@1}} = string_downcase(interpreter, {{\@2 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16957	17086	
==>m.
        
        # Yes, stipulate the list without a range, so that this can work right on
        #  all charsets that this mo <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10393	10506	
==>m.

    # Yes, stipulate the list without a range, so that this can work right on
    #  all charsets that this mo <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	3885	4159	
==>nf->data->set(
            hugeintval     => $intval,
            hugeintvalsize => $intvalsize,
        );
    }

    cc_clean();

    #get HUGEFLOATVAL
    if (
        my $size = eval {
            open(TEST, ">test.c") or die "Can't open test.c: $!";
            print TE <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3938	4039	
==>ilLabel, $lenvar) = @_;
    $lenvar ||= "<rx_len>";
    my $fail = $self->output_label_use($failLabel) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3652	3753	
==>ilLabel, $lenvar) = @_;
    $lenvar ||= "<rx_len>";
    my $fail = $self->output_label_use($failLabel) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035679	1035769	
==>x_name);\n    if (!result) {\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lex <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036843	1036933	
==>x_name);\n    if (!result) {\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lex <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5003	5111	
==>} = concat ${STEMP1}
${STACK0} = concat "0"

# Emit pop code.
${INS} = concat ${STACK0}
${INS} = concat " = p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357618	357958	
==>,
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 418,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" = <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	3442	3621	
==>pected_type);
    Test::proclaim($test, $out, $todo, $ref.ref, $expected_type, $depends);
}

## use_ok

sub use_ok (Str $module, :$todo, :$depends) is export {
    my $caller = cal <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	29663	29808	
==>> [ $name, 1, $uid ]),
               $handle => aop('call_result' => [ $uid, $capture ? $name : undef, $lastback ]),
                          ao <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2961	3067	
==>for C<restart ADDRESS($address)>.

=cut

sub restart_address
{
    my ($self, $addr) = @_;

    return "int <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3830	3936	
==>for C<restart ADDRESS($address)>.

=cut

sub restart_address
{
    my ($self, $addr) = @_;

    return "int <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	8864	9070	
==>agname =~ /head[12]/o )
    {
        # Put the up arrow on the end of a heading. 
        # The space is needed on the front.
        print {$self->{'output_fh'}} 
            " <a href='#_top'><img alt='^' <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	1986	2082	
==>else print "Wrong"
if 5<5 then print "Wrong" else print "Ok"
if 6<5 then print "Wrong" else print <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	13861	14004	
==>ate 19
		DEFAULT => -4,
		GOTOS => {
			'block' => 64,
			'chunk' => 57
		}
	},
	{#State 20
		ACTIONS => {
			"=" => 65
		},
		DEFAUL <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2719	2842	
==>t =~ s/gdbm\.lib/-llibgdbm/i;
        }
        my $extraLibs = '-lm -lgmp -lreadline -lpthread -lm -L/opt/local/lib  -licuu <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	2514	2637	
==>t =~ s/gdbm\.lib/-llibgdbm/i;
        }
        my $extraLibs = '-lm -lgmp -lreadline -lpthread -lm -L/opt/local/lib  -licuu <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20144	20241	
==>od.  If you're
writing a Pod-formatter class, you should define a C<run> just so
that users can ca <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723100	723281	
==>p",
                              "sc"
                            ],
                  "BODY" => "#line 149 \"src/ops/python.ops\"\n  STRING * const s = {{\@2}};\n  PMC * const io = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048398	1048657	
==>NULL, {{\@2}}, next);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049322	1049581	
==>NULL, {{\@2}}, next);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060143	1060373	
==>{^+3}};\n    {{\@1}} = Parrot_get_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061048	1061278	
==>{^+3}};\n    {{\@1}} = Parrot_get_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	640	746	
==>ORE PUSH POP SHIFT UNSHIFT DELETE);
  @writes{@writes} = (1) x @writes;
}
use Text::Balanced 'extract_brack <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	60150	60349	
==>sep', 1, undef
	],
	[#Rule 114
		 'fieldsep', 1, undef
	]
],
                                  @_);
    bless($self,$class);
}

#line 611 "Lua\lua51.yp"


package Lua::parser;

use stri <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3488	3689	
==>1
m0=48100
m=48000
w=-19
t=3
m(t)=-100
ba(fa+1)=9
w=w+M(T)+INT(M(T) * BA(FA + 1) / (BA(FA + 1) + 1) * (M0 - M) * .0001)
print w

' INT madness.  0, 0, 0, -1, -1, 3
print int(.8),
print int(.3),
print in <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11135	11287	
==>t->new($block, $ident);
      }

      next;
    }

    #
    # Arithmetic assigns:
    #
    #   <var> <op> <value>;
    #

    if ($token->is_ident and <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6183	6303	
==>{lib} = 1;
        }
    }

    return (\%group_files, \%group_libs, \%pmc_group, \%pmc_libs);
}

sub modtime {
    my $a <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6394	6514	
==>{lib} = 1;
        }
    }

    return (\%group_files, \%group_libs, \%pmc_group, \%pmc_libs);
}

sub modtime {
    my $a <==
2	/Users/nnunley/parrot/lib/Test/More.pm	30240	30458	
==>e1, $e2);
            }
            elsif( $type eq 'HASH' ) {
                $ok = _eq_hash($e1, $e2);
            }
            elsif( $type eq 'REF' ) {
                push @Data_Stack, { type => $type, vals => [$e <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	1412	1562	
==>' => '-o ',
             'cc_hasjit' => ' -DHAS_JIT -DPPC',
             'cc_inc' => '-I./include',
             'cc_ldflags' => '',
             'cc_o <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	2997	3150	
==>mented method given body at line $line_count\n";

        # Otherwise, just append it to current method.
        } else {
            $cur_method->{'body' <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1926	2043	
==>ub gen_label() {
	# This is a good place (as we call gen_label before translating
	# every instruction) to see if we n <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	28462	28696	
==>for examining the result of 'todo'
tests.  

'name' is the name of the test.

'type' indicates if it was a special test.  Normal tests have a type
of ''.  Type can be one of the following:

    skip        see skip()
    todo        se <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6644	6733	
==>H_switch_${CURIC}_LOOP
POST_BRANCH_switch_${CURIC}_LOOP_EXIT:

POST_BRANCH_NOT_switch_${CU <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4582	4671	
==>H_switch_${CURIC}_LOOP
POST_BRANCH_switch_${CURIC}_LOOP_EXIT:

POST_BRANCH_NOT_switch_${CU <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	21939	22039	
==>um_name = $self->{flags}{dynpmc} ? -1 : "enum_class_$classname";
    $cout .= <<"EOC";
void
Parrot_${ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	11057	11169	
==>hes undef and nothing else
        my $test = !defined $got && !defined $expect;

        $self->ok($test, $name) <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	11475	11587	
==>hes undef and nothing else
        my $test = !defined $got && !defined $expect;

        $self->ok($test, $name) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	2135	2353	
==>max, $tree->greedy,
                                 $self->convert($tree->thing, $ctx) ]);
}

sub convert_rx_meta {
    my ($self, $tree, $ctx) = @_;
    die "unimplemented meta $tree";
}

# FIXME!!!
sub convert_rx_beg <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29960	30096	
==>body.

=over 4

=cut

package Parrot::Pmc2c::Standard::Const;
use base 'Parrot::Pmc2c::Standard';
import Parrot::Pmc2c qw( gen_ret );

=i <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	1707	1815	
==>->{builder}->diag("'$cmd' failed with exit code $exit_code")
    if $exit_code and not $pass;

    unless ($E <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	1609	1744	
==>f->new_group(
	        'Concrete PMCs', 
	        'These PMCs are instantiated.', 
	        @concrete_items
	    )
	);
}

=back

=cut

1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501560	501865	
==>E" => 576,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 621 \"src/ops/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	3866	3974	
==>ers src/pmc/pmc_$pmc.h

    # build list of libraries for link line in Makefile
    my $slash = $conf->data-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	230376	230740	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9133	9271	
==>arser, 1;
	':'') . ($parser->{_check}{thiscolumn}?'
	my $thiscolumn;
	tie $thiscolumn, q{Parse::RecDescent::ColCounter}, \$text, $thisparse <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	4	102	
==>Integer.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	10709	10862	
==>'!\n";
        }
    }

    if ($seen_op)
    {
        die "Parrot::OpsFile: File ended with incomplete op definition!\n";
    }

    close $OPS or die " <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	2083	2231	
==>r to start with, and work at it.

In a saucepan set over moderate heat, warm the oil until hot.

Add the puree and the balsamic vinegar, and cook, st <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685668	686036	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686557	686925	
==>" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5867	6008	
==>uld be at most a single group
        my $group = $class->{flags}{group}
          or next;
        ($group) = keys %$group;
        $pmc_grou <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6078	6219	
==>uld be at most a single group
        my $group = $class->{flags}{group}
          or next;
        ($group) = keys %$group;
        $pmc_grou <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8218	8380	
==>mc op1
    .param float op2

    .local pmc result
    result = new 'APLVector'
 
    .local int pos
    pos = 0
    .local float value_at
    .local int not_there <==
2	/Users/nnunley/parrot/lib/Test/More.pm	26238	26483	
==>oreach my $entry (@Stack) {
        my $type = $entry->{type} || '';
        my $idx  = $entry->{'idx'};
        if( $type eq 'HASH' ) {
            $var .= "->" unless $did_arrow++;
            $var .= "{$idx}";
        }
        elsif( $type eq <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21681	21821	
==>en->[-1][0] eq '=for' )
            ? ( " (Should be \"=end " . $curr_open->[-1][1]{'target'} . '")' )
            : ''
          )
        ) <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	1614	1723	
==>new_group('Configuration', '',
			$self->new_item('', 'lib/Parrot/BuildUtil.pm'),
			$self->new_item('', 'lib/ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7515	7635	
==>dd_inst('', 'eq', [$type,'.Undef',"FINISH_$label"]);

  $temp = $self->_new_pair;
  $self->_add_inst('', 'set', [$copy.'[ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356694	356941	
==>eter, INTVAL_FMT, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357354	357601	
==>eter, INTVAL_FMT, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	1638	1901	
==>chmark parrotj]
    exe       = ../../parrot -j
    type      = .pasm
    type      = .pir

    [benchmark perl_585_th]
    exe       = /usr/bin/perl585-th
    type      = .pl

    [benchmark python]
    exe       = /usr/local/bin/python
    type      = .py

    [ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4097	4208	
==>stack depth.
inc stack_depth

# Get type (so we can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Ass <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2513	2624	
==>stack depth.
inc stack_depth

# Get type (so we can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Ass <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556676	556782	
==>{\@1}};\n  method_pmc = {{\@2}};\n\n  next = {{^+4}};\n  interpreter->current_object = object;\n  interpret <==
2	/Users/nnunley/parrot/Configure.pl	6609	6749	
==>the given type for FLOATVAL
   --opcode=(type)      Use the given type for opcodes
   --ops=(files)        Use the given ops files
   --pmc=( <==
2	/Users/nnunley/parrot/examples/benchmarks/primes2.pl	18	145	
==>my $max=5000;
my $i6 = 0;
my $i7;

while (1) {
    if (&isprime1($i)) {
	$i7 = $i;
	$i6++;
    }
    $i++;
    if ($i==$max){
	l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095228	1095491	
==>});\n  {{+=2}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095923	1096186	
==>});\n  {{+=2}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088020	1088359	
==>experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slic <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090974	1091313	
==>experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slic <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	23376	23615	
==>[1] };
    my $lbl1 = new_label($parser);
    if ( $op eq 'and' ) {
        push @opcodes, new BranchIfOp( $parser,
            'arg1'   => $expr1->[0],
            'result' => $lbl1,
        );
    }
    else {    # "or"
        p <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	1193	1388	
==>path{$path}, $self;
        }
        
        return $instance_for_path{$path};
    }
    
    my ($volume, $directories, $name) = File::Spec->splitpath($path);
    
    # Needs '' to avoid a war <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	2806	2901	
==>_library_format ]
Portable frontend for nm(1); by default lists all the code and data symbols
in <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3498	3608	
==>an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) = @_;

    #print STDERR <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3297	3407	
==>an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) = @_;

    #print STDERR <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	60989	61096	
==>f}      = [];
    $parser->YYData->{symbtab}     = new SymbTabVar($parser);
    $parser->YYData->{symbtab_ <==
2	/Users/nnunley/parrot/config/gen/platform.pm	5719	5826	
==>rface is the same for all platforms
    copy_if_diff("config/gen/platform/platform_interface.h", "include/pa <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2805	2926	
==>elf->{NAME};

  return $name;
}

sub props { return %{shift->{PROPS}}; }
sub args  { return @{shift->{ARGS}};  }

sub file <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95371	95852	
==>ore",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 118,
                  "ARGS" => [
                              "s",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 63 \"src/ops/bit.ops\"\n <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	689	800	
==>_class()>

Returns C<Parrot::Docs::Directory>.

=cut

sub directory_class
{
    return 'Parrot::Docs::Directory' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2766	2885	
==>, same as 'STRING' x 0

  $self->{'Thispara'} =~ tr{\xAD}{}d if Pod::Simple::ASCII;
  my $out = Text::Wrap::wrap($indent <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2300	2419	
==>, same as 'STRING' x 0

  $self->{'Thispara'} =~ tr{\xAD}{}d if Pod::Simple::ASCII;
  my $out = Text::Wrap::wrap($indent <==
2	/Users/nnunley/parrot/config/auto/env.pm	1154	1367	
==>sult('both');
    } elsif ($setenv) {
        print " (setenv) " if $verbose;
        $self->set_result('setenv');
    } elsif ($unsetenv) {
        print " (unsetenv) " if $verbose;
        $self->set_result('unse <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	1187	1304	
==>s)
             ],
    gen =>   [qw(genfile copy_if_diff move_if_diff)]
);

=item C<integrate($orig, $new)>

Integrate <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	2017	2122	
==>o that only the Parrot
itself sees those shortened definitions, the defines must not leak
to the outside w <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575103	575496	
==>",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 657,
                  "ARGS" => [
                              "p",
                              "kc"
                            ], <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1097889	1098214	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "debug_brk",
                  "FLAGS" => "",
                  "ARGDIRS" => [],
                  "TYPE" => "function",
                  "CODE" => 1217,
                  "ARGS" => [],
                  "BODY" => "#line 283 \"src/op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279314	279773	
==>,
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 325,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 903 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} < {{\@3}}) ? 1 : 0;\n  {{+=4}};\ <==
2	/Users/nnunley/parrot/config/gen/icu.pm	2276	2505	
==>"${slash}include";
                $without = 1 unless -d $icuheaders;
            }

            if ($without) {
                $self->set_result("failed");
            }
        }
    }

    if ($verbose) {
        print "icuco <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	11361	11476	
==>$code, $type, $short_name, $body, $args, $argdirs,
        $line, $file, $labels, $flags, $nolines) = @_;
    my $co <==
2	/Users/nnunley/parrot/languages/pugs/t/pmc.pm	3	142	
==>ugs-specific PMC testing
# Copyright (C) 2005-2006, The Perl Foundation.
# $Id: /parrot/languages/pugs/t/pmc.pm 19606 2006-05-30T15:08:05.04 <==
2	/Users/nnunley/parrot/languages/converter.pl	261	417	
==>'' unless defined $modifier->[0];
  return '(?)'  if $modifier->[0] eq '?';
  return '(s)'  if $modifier->[0] eq '+';
  return '(s?)' if $modifier->[0] eq '* <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	955	1060	
==>q[perl];
our $LOAD_EXT = qq[.bundle];
our $O = qq[.o];
our $CFLAGS = qq[-I/opt/local/include -fno-common - <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	959	1064	
==>q[perl];
our $LOAD_EXT = qq[.bundle];
our $O = qq[.o];
our $CFLAGS = qq[-I/opt/local/include -fno-common - <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	33359	33682	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set_addr",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	34147	34470	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set_addr",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	10542	10743	
==>ext::Wrap::wrap("", "        ", $message) . "\n";
}


sub warning {
    my ($file, $line, $message) = @_;

    print "$file:$line (WARNING) " . Text::Wrap::wrap("", "        ", $message) . "\n";
}


sub <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	229	368	
==>et the number of tests to be run like this:

    use Parrot::Test tests => 8;

Write individual tests like this:

    pasm_output_is(<<'CODE <==
2	/Users/nnunley/parrot/config/auto/pack.pm	103	239	
==>28:15.110975Z coke  $

=head1 NAME

config/auto/pack.pm - Packing

=head1 DESCRIPTION

Figures out how to C<pack()> Parrot's types.

=cut <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	229732	230010	
==>ME" => "ge_num",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	2777	2879	
==>t_symbol
{
  my $self = shift; # Required: Jako::Construct::Block
  my $name = shift; # Required: strin <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3861	3963	
==>t_symbol
{
  my $self = shift; # Required: Jako::Construct::Block
  my $name = shift; # Required: strin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203191	203657	
==>e",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 240,
                  "ARGS" => [
                              "sc",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 380 \"sr <==
2	/Users/nnunley/parrot/config/auto/perldoc.pm	1213	1406	
==>ersion = 0;
            $self->set_result('failed');
        }
    } else {
        $self->set_result('no');
    }
    unlink "c99da7c4.tmp";

    $conf->data->set(
        has_perldoc => $versi <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38732	38962	
==>t::Result;

sub issubrule { 0 }
sub isterminal { 0 }
sub describe { '' }

sub new
{
	my ($class, $pos) = @_;

	bless {}, $class;
}

sub code($$$$)
{
	my ($self, $namespace, $rule) = @_;
	
	'
		$return = $item[-1];
	';
}

package Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	6594	6766	
==>$self->version;

        #
        # Handle start-of-op:
        #
        # We create a new Parrot::Op instance based on the type, name and args.
        # We query the Par <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18869	18991	
==>os;
	if ($do->{needstmt} and not ( $syms[NEXT]=~/while|until/ ) ) {
		push @{$code{$seg}->{code}}, "\ngoto DO_$do->{jump}\t <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	48003	48214	
==>turns the parse trees of $source1 and $source2.
  # Good in things like: &ok( Class->duo(... , ...) );
  
  my $class = shift(@_);
  
  Carp::croak "But $class->_duo is useful only in list context!"
   unless wan <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747621	747950	
==>=> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 842,
                  "ARGS" => [
                              "p", <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	14873	15039	
==>'errors_seen'};
  if($self->{'no_whining'}) {
    DEBUG > 9 and print "Discarding complaint (at line $_[0]) $_[1]\n because no_whining is on.\n";
    return;
  }
  ret <==
2	/Users/nnunley/parrot/config/init/hints/openbsd.pm	438	566	
==>if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
	}
	$conf->data->set(libs => $libs);

	if ((split('-', $Config{archnam <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28004	28118	
==>ns\n";
		}

		# Finally, call post_op and append code it generates.
		my $post_op = $srm->post_op($rule->{'pop'}, $ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Examples.pm	268	370	
==>Examples;

=head1 DESCRIPTION

A documentation section describing all the Parrot examples.

=head2 Clas <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712728	712824	
==>== -1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713835	713931	
==>== -1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786134	786224	
==>set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed_int(interpreter, {{\@2}}, {{\@3 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787045	787135	
==>set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed_int(interpreter, {{\@2}}, {{\@3 <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	18492	18883	
==>he groups.
            foreach (@{$groups{$_}}) {
                $_->{'code'} =~ s/^\w{2} //;
            }

            # Build a group entry.
            push @rules_grouped, {
                code    => $_,
                group   => $groups{$_}
            };
        }
    }

    # We'll use recursion to build up a binary search style tree to dispatch
    # to the translation code for <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10041	10161	
==>verbose = $conf->options->get('verbose');

    if (defined($_[0]) && length($_[0])) {
        local $" = ' ';
        _ru <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10622	10742	
==>verbose = $conf->options->get('verbose');

    if (defined($_[0]) && length($_[0])) {
        local $" = ' ';
        _ru <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129799	130038	
==>c/ops/bit.ops\"\n  {{\@1}} ^= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130538	130777	
==>c/ops/bit.ops\"\n  {{\@1}} ^= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	13607	13720	
==>:reftree {
    my $op = shift;
    return $op->{name};
}

sub Regex::Ops::Tree::_onearg::reftree {
    my $op = sh <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10564	10681	
==>n and length($section .= '') ) 
    {
        $section =~ tr/ /_/;
        $section =~ tr/\x00-\x1F\x80-\x9F//d if 'A' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3959	4062	
==>n and length($section .= '')) {
    $section =~ tr/ /_/;
    $section =~ tr/\x00-\x1F\x80-\x9F//d if 'A' <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	4947	5337	
==>>emit("  __func(" . join(", ", map({ $_->[1]} $self->args)) . ")");
      $compiler->emit("  .return()");
    }

    $compiler->emit(".end");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  my $name  = $self->name;
  my $type  = $self->type;

  my $sym = $self->block->find_symbol($name);

  my %props = $sym->props;

  if (exists $props{op}) {
    m <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	4099	4424	
==>($self) = @_;

    # We leave this a global because it has to be localized and localizing
    # hash keys is just asking for pain.  Also, it was documented.
    $Level = 1;

    $self->{Test_Died}    = 0;
    $self->{Have_Plan}    = 0;
    $self->{No_Plan}      = 0;
    $self->{Original_Pid} = $$;

    share($self->{Curr_Tes <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19074	19175	
==>n.  The header
is usually just "I<modulename> p. I<pagenumber>".

=item $parser->normal_halfpoint_size <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	69490	69684	
==>r code!");
			$@ =~ s/at grammar/in grammar at/;
			_hint($@);
		}
	}

	if ($ERRORS and !_verbosity("HINT"))
	{
		local $::RD_HINT = 1;
		_hint('Set $::RD_HINT (or -RD_HINT if you\'re using "perl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836097	836517	
==>c",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 947,
                  "ARGS" => [
                              "sc"
                            ],
                  "BODY" => "#line 215 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interp <==
2	/Users/nnunley/parrot/config/init/manifest.pm	452	594	
==>w(manicheck);

$description = 'Checking MANIFEST';

@args = qw(nomanicheck);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	912	1031	
==>c.pm'),
			$self->new_item('', 'lib/Parrot/Vtable.pm'),
		),
		$self->new_group('IO', '',
			'lib/Parrot/Distribution.pm <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	9657	9760	
==>ops{$core_opfunc[$i]}[1];

    my $jit_func;
    my $op = $Parrot::OpLib::core::ops->[$i];

    $precomp <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	41616	41828	
==>ine'};

  # A recursive algorithm implemented iteratively!  Whee!


  # Has frightening side effects on L nodes' attributes.

  #my @ells_to_tweak;

  while($treelet = shift @stack) {
    for(my $i = 2; $i < @$tre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684561	684701	
==>"p"
                            ],
                  "BODY" => "#line 550 \"src/ops/pmc.ops\"\n      {{\@1}}->vtable->setprop(interpreter, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685456	685596	
==>"p"
                            ],
                  "BODY" => "#line 550 \"src/ops/pmc.ops\"\n      {{\@1}}->vtable->setprop(interpreter, {{ <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	5429	5591	
==>te tests B<at all>.  What was needed was a dead simple module
that took all the hard work out of testing and was really, really easy
to learn.  Paul Johnson simult <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15750	15854	
==>puterese style-smarts.
  # We don't want to change the "-" to hard-hyphen, because we want to
  #  be abl <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	939	1118	
==>e:
END_PIR
);


my $template = <<'END_OF_TEMPLATE';

.namespace [ 'APL' ]

# any registers #'d 100 or higher are used here for temporary conversions
# to other types required by th <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	29215	29307	
==>nput text. Thus, the following code also processes
each quote-like operation, but actually re <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	7029	7196	
==>ves(@_) };

sub unaccept_directives {
  my $this = shift;
  foreach my $d (@_) {
    next unless defined $d and length $d;
    Carp::croak "\"$d\" isn't a valid directi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	22591	22747	
==>urn []; }
	],
	[#Rule 41
		 'classpiece', 3,
sub
#line 175 "lib/Regex/Grammar.y"
{ return [ $_[1], $_[3] ] }
	],
	[#Rule 42
		 'classpiece', 1,
sub
#line 177 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607581	607853	
==>get_attr(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608485	608757	
==>get_attr(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	12542	12804	
==>esult to is or ok
on success, or report that the eval was not successful on failure.

- `throws_ok (Code &code, Any $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function takes a block of code and runs it. It then smart-matches (`~~`) any <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	365	464	
==>s Methods

=over

=cut

package Parrot::Docs::Section::Docs;

use strict;
use warnings;

use base qw <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	23487	23659	
==>/,\s*/, $rule->{'arguments'});
    $mv->{'ARGCOUNT'} = scalar @args;
    push @localmv, 'ARGCOUNT';
	my $arg_num = 0;
	my $arg_size = 0;
	foreach (@args) {
		my $out;
		my $ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39528	39663	
==>" ".$rightarg->describe.">",
	}, $class;
}

sub code($$$$)
{
	my ($self, $namespace, $rule) = @_;
	
	my ($leftarg, $op, $rightarg) =
		@ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	3137	3251	
==>f ($l =~ /Disassembly of <?([\w:]+)>?/) {
	push @code, [ 0, 0, "New_func", 0, $1, undef ];
	return;
    }
    if ($ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4199	4309	
==>gs}->{noinit};
        $cout .= <<"EOC";
        Parrot_${class}_class_init(interpreter, type$class, pass);
EOC <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	3307	3431	
==>e {
        push @manifests, $_;
    }
}

# We'll report multiple occurrences of the same file
my %seen;

my @files;
my @inst <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	6512	6742	
==>t>);
  my $args = unpack("H*", $smoke{harness_args});

  #                           1       2          3        4         5        6         7      8           9        10          ...
  my $str = "parrot-smoke-<VERSION>-<DEVEL>-r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55	178	
==>!
#
# This file is generated automatically from 'src/ops/core.ops'.
# Any changes made here will be lost!
#

=head1 NAME

Pa <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	2875	2987	
==>e $trans_class";

my $trans = $trans_class->new();

# Not used
my $prefix  = $trans->prefix();
my $suffix  = $tra <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	14827	15008	
==>xtref, '\s*', $ldel_inner, $rdel_inner, $ldel_inner, $rdel_inner, $rd) )
		{
			$patvalid = 1;
			next;
		}

		if ($$textref =~ m/\G\s*$ldel_outer/gc)
		{
			_failmsg q{Improperly ne <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	751	844	
==>utables directory. Defaults to '/usr/bin'.

=item C<libdir>

The library directory. Defaults t <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	980	1073	
==>utables directory. Defaults to '/usr/bin'.

=item C<libdir>

The library directory. Defaults t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485849	486172	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ceil",
                  "FLAGS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544643	544973	
==>ed_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lcm",
                  "F <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545979	546309	
==>ed_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lcm",
                  "F <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1870	1976	
==>ath;
    
    return $self->SUPER::new($path);
}

=back

=head2 Instance Methods

=over 4

=item C<create_p <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	847	953	
==>ath;
    
    return $self->SUPER::new($path);
}

=back

=head2 Instance Methods

=over 4

=item C<create_p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58740	59149	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "warningson",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline", <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	586	675	
==>, '', 
		$self->new_group('Documentation', '', 'docs/imcc'),
		$self->new_group('Examples' <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	41440	41582	
==>. . . . . . . . . . . . . . . . . . . . .

sub _treat_Es {
  my($self,@stack) = @_;

  my($i, $treelet, $content, $replacer, $charnum);
  my $s <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	171	308	
==>rict;
use vars qw($VERSION);
$VERSION = '0.30';
$VERSION = eval $VERSION;    # make the alpha version come out as a number

# Make Test::B <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	3093	3198	
==>rpreter, &st, *return_data);",
       3 => "set_nci_I(interpreter, &st, *return_data);",
       2 => "set_ <==
2	/Users/nnunley/parrot/config/auto/signal.pm	663	911	
==>has_sigaction      => undef,
        has_setitimer      => undef
    );
    if (defined $conf->options->get('miniparrot')) {
        $self->set_result('skipped');
        return $self;
    }

    cc_gen('config/auto/signal/test_1.in');
    eval { cc <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	7704	7915	
==>es of elements:
    struct( s => '$', a => '@', h => '%', c => 'My_Other_Class' );

    $obj = new Myobj;               # constructor

                                    # scalar type accessor:
    $element_valu <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3627	3718	
==>ZY_MOVE_$register_num:
${STACK$register_num} = pop lazy_moves

# Decrement stack height.
PRE <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5397	5488	
==>ZY_MOVE_$register_num:
${STACK$register_num} = pop lazy_moves

# Decrement stack height.
PRE <==
2	/Users/nnunley/parrot/lib/Test/More.pm	27378	27534	
==>CALAR GLOB Regexp)) {
        return $type if UNIVERSAL::isa($thing, $type);
    }

    return '';
}


=head2 Discouraged comparison functions

The use of th <==
2	/Users/nnunley/parrot/tools/dev/manicheck.pl	951	1074	
==>ifest::Quiet = 1;
my $manifest  = ExtUtils::Manifest::maniread();
my $file_list = ExtUtils::Manifest::manifind();
my @missin <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	9929	10039	
==>he '=encoding $orig' line is ",
       "redundant.  ($norm_current eq $norm_e).  Ignoring.\n";
      $enc_error <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	6111	6230	
==>_FLAG)) {
            fprintf(stderr, "\t" INTVAL_FMT ": %s\n", i, argv[i]);
        }

        userargv->vtable->push_s <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	4170	4307	
==>e =~ /lambda\s(.*?):/) {
		my $f = "lambda_$lambda_count";
		print "#xxxxxxxxx $f\n";
		my $args = $1;
		++$lambda_count;
		my @args = spl <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	7371	7520	
==>ment({
      Name       => 'arg',
      Attributes => {
        type => $arg_type_name,
        name => $arg_name
      }
    });
    $handler->end_el <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9185	9287	
==>eturning from do_beginning...\n";
  return 1;
}

sub version_tag_comment {
  my $self = shift;
  return <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4976	5280	
==>oken) {
  
    if( ($type = $token->type) eq 'text' ) {
      if( $self->{'rtfverbatim'} ) {
        DEBUG > 1 and print "  $type " , $token->text, " in verbatim!\n";
        rtf_esc_codely($scratch = $token->text);
        print $fh $scratch;
        next;
      }

      DEBUG > 1 and print "  $type " , <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10680	10780	
==>arse
#DO NOT remove comment

1;

}
#End of include--------------------------------------------- <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10201	10295	
==>arse
#DO NOT remove comment

1;

}
#End of include--------------------------------------------- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	728320	728593	
==>ine 57 \"src/ops/set.ops\"\n   PMC * const temp = {{\@1}};\n   {{\@1}} = {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3243	3348	
==>d)->u.key",
    'sc' => "CONST(%ld)->u.string",
    'kc' => "CONST(%ld)->u.key",
    'kic' => "cur_opcode[ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2153	2254	
==>d)->u.key",
  'sc'  => "CONST(%ld)->u.string",
  'kc'  => "CONST(%ld)->u.key",
  'kic' => "cur_opcode[ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516275	516659	
==>=> ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 595,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	1666	1859	
==>ile for reading: $!\n";
    my $section = 'MAIN';

    while(<$fh>) {

        chomp;

        next if /^\s*#/ or /^\s*$/;

    if (/^\[(\w+)\]/) {
        $section = $1;
    }
        elsif (m/ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	44892	45054	
==>T.'\)';
my $BADREP		= '\G\((-?\d+)?\.\.(-?\d+)?'.$SIMPLEPAT.'\)';
my $ACTION		= '\G\s*\{';
my $IMPLICITSUBRULE	= '\G\s*\(';
my $COMMENT		= '\G\s*(#.*)';
my $COMMIT <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	930	1028	
==>ub defines
{
    return <<END;
#define REL_PC ((size_t)((opcode_t*)cur_opcode - (opcode_t*)interpre <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1060	1158	
==>ub defines
{
    return <<END;
#define REL_PC ((size_t)((opcode_t*)cur_opcode - (opcode_t*)interpre <==
2	/Users/nnunley/parrot/config/inter/ops.pm	346	519	
==>e::Step::Base);

use Parrot::Configure::Step ':inter';

$description = 'Determining what opcode files should be compiled in';

@args = qw(ask ops);

sub runstep
{
    my ($se <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38441	38567	
==>"JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39305	39431	
==>"JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367815	367905	
==>rc/ops/io.ops\"\n  {{\@1}} = PIO_reads(interpreter, PIO_STDIN(interpreter), (size_t){{\@2}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368607	368697	
==>rc/ops/io.ops\"\n  {{\@1}} = PIO_reads(interpreter, PIO_STDIN(interpreter), (size_t){{\@2}} <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5700	5807	
==>no:\n";
#DBG>		$debug & 0x08
#DBG>	and	print STDERR "Stack:[".
#DBG>					 join(',',map { $$_[0] } @$stack <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5428	5532	
==>no:\n";
#DBG>		$debug & 0x08
#DBG>	and	print STDERR "Stack:[".
#DBG>					 join(',',map { $$_[0] } @$stack <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	1530	1907	
==>it
    }
    if (defined $minor and $minor =~ tr/0-9//c) {
        undef $minor; # Don't use it
    }
    if (defined $major) {
        $gccversion = $major;
        $gccversion .= ".$minor" if defined $minor;
    }
    print " (yep: $gccversion )" if $verbose;
    $self->set_result('yes');

    if ($gccversion) {

        # If using gcc, crank up its warnings as much as poss <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	36184	36325	
==>]->{pragma} ) {
            $returns[-1]->{pragma} = 'multi';
        }
    }
    push @opcodes, new ReturnDir( $parser,
        'result' <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1760	1858	
==>d, got %d) in call to '%s'.",
    scalar(@formal_args), scalar(@args), $name)
    unless @formal_ar <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1460	1558	
==>d, got %d) in call to '%s'.",
    scalar(@formal_args), scalar(@args), $name)
    unless @formal_ar <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5339	5467	
==>t of interfaces */
    "",     /* space-separated list of classes */
    "",     /* class */
    "",     /* mro */

    /* Vtable <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	21175	21406	
==>ed, @options) = @_;

            my %lang_for_extension 
                = ( pasm => 'PASM',
                    past => 'PAST',
                    pir  => 'PIR',
                    imc  => 'PIR', );

            my ( $extension ) <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	12987	13162	
==>h.h
printf      stdio.h
putc        stdio.h
putchar     stdio.h
puts        stdio.h
qsort       stdlib.h
raise       signal.h
rand        stdlib.h
real        complex.h
realloc <==
2	/Users/nnunley/parrot/config/inter/shlibs.pm	889	1039	
==>c_shared');
    $cc_shared = integrate($conf->data->get('cc_shared'), $cc_shared);
    $cc_shared =
        prompt("\nWhat flags instruct your compiler <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2337	2450	
==>ists $main::common{$var}) {
					push(@saves, $var);
				}
			}
			if (@saves) {
				$edit.=qq{\tfind_global _GLOB <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2746	2859	
==>ists $main::common{$var}) {
					push(@saves, $var);
				}
			}
			if (@saves) {
				$edit.=qq{\tfind_global _GLOB <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	6559	6779	
==>m$sel = shift$pst) : $pre\$r->$elem$sel$pst;\n";
            $out .= "  }\n";
        }
    }
    $out .= "}\n1;\n";

    print $out if $print;
    my $result = eval $out;
    carp $@ if $@;
}

sub _usage_error {
    conf <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840173	840260	
==>e_entries(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}});\n  {{+=2}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840868	840955	
==>e_entries(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}});\n  {{+=2}};\n", <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	3677	3903	
==>L::isa($right_type, 'Jako::Construct::Type::Number');

#  $self->DEBUG(0, "   ...calc type $calc_type...");

  unless ($left_type->name eq $calc_type->name) {
#    $self->DEBUG(0, "   ...converting left...");
    my $temp = $co <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	45164	45379	
==>hunk' => 57
		}
	},
	{#State 207
		DEFAULT => -25
	},
	{#State 208
		DEFAULT => -97
	},
	{#State 209
		DEFAULT => -34
	},
	{#State 210
		DEFAULT => -20,
		GOTOS => {
			'@5-9' => 212
		}
	},
	{#Stat <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	2175	2364	
==>t::per_test( '.out', $next_test_num );
    my $f_code = Parrot::Test::per_test( '.p6',  $next_test_num );
    $f_code = File::Spec->rel2abs( $f_code );

    return( $next_test_num, $f_out, $ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10061	10174	
==>ions->get('verbose');

    if (defined($_[0]) && length($_[0])) {
        local $" = ' ';
        _run_command(".$ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10642	10755	
==>ions->get('verbose');

    if (defined($_[0]) && length($_[0])) {
        local $" = ' ';
        _run_command(".$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320573	320800	
==>> 375,
                  "ARGS" => [
                              "i",
                              "nc"
                            ],
                  "BODY" => "#line 124 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (INTVAL)((Parro <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9979	10078	
==>et('exe');
    my $slash = $conf->data->get('slash');
    my $verbose = $conf->options->get('verbose <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10560	10659	
==>et('exe');
    my $slash = $conf->data->get('slash');
    my $verbose = $conf->options->get('verbose <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	11327	11446	
==>r", pos $$textref;
		pos $$textref = $startpos;
		return;
	    }
	    my $deref = $1;

	    unless ($$textref =~ m/\G\s* <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7242	7386	
==>he specified command. Output is directed to the file specified by
C<$out>, warnings and errors are directed to the file specified by C<$err>.

=c <==
2	/Users/nnunley/parrot/languages/regex/test.pl	467	642	
==>ile(catdir($FindBin::Bin, updir(), updir()), "parrot");

sub usage {
    my ($msg, $status) = @_;
    $status = 1 if ! defined $status;

    print $msg . "\n" if $msg;

    pri <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	49468	49587	
==>rgument is to be used for the outermost delimiters.

Once the prefix an dthe outermost opening delimiter bracket have be <==
2	/Users/nnunley/parrot/tools/util/pirtidy.pl	172	282	
==>t::PIR::Formatter;

my $extension = 'tdy';
my $verbose   = 'that is SO true.';

# loop over all the files speci <==
2	/Users/nnunley/parrot/languages/converter.pl	2183	2283	
==>margrammar);

my $file = $ARGV[0];
my @lines;
my @rules;

open FILE,$file or die "Couldn't open '$fil <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	16509	16632	
==>h which to initialize the struct.
If no initializer is specified for a particular element, its default
initialization is per <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	622922	623022	
==>e_t *dest_pc;\n    void **dest_pred;\n    parrot_context_t *caller_ctx, *ctx;\n    parrot_cont_t cc;\ <==
2	/Users/nnunley/parrot/config/auto/format.pm	1442	1552	
==>re.pl:  Can't find a printf-style format specifier for type \"$nv\"\n";
    }

    $conf->data->set(
        in <==
2	/Users/nnunley/parrot/config/init/miniparrot.pm	539	658	
==>.

=cut

package init::miniparrot;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::B <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21241	21363	
==>_title {  # some witchery in here
  my $self = $_[0];
  my $title;
  my @to_unget;

  while(1) {
    push @to_unget, $self- <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2895	3077	
==>rp_file($lang_out_fn),
                       $output,
                       $desc );
        if ( ! $pass ) {
            my $diag = q{};
            my $test_prog = join( ' && ', @ <==
2	/Users/nnunley/parrot/config/gen/config_h.pm	220	305	
==><include/parrot/config.h> with platform-specific configuration
values, F<include/parro <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1459	1573	
==>2>&1` || '';
        $ccflags =~ s/-O1 // if $cc_output =~ m/Standard/ || $cc_output =~ m{/ZI};
        $ccflags =~ <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	279	370	
==><md5_hex>;
use HTML::Template;
use Algorithm::TokenBucket;
use Time::Piece;
use Time::Second <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	10306	10437	
==>e {
#     my <rx_mode> = shift;
#     my (<rx_input>, <rx_pos>, <rx_stack>);
#     my \%rx_match;
#     if (<rx_mode>) {
#         ( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	7329	7493	
==>ip('new');           }
sub skip_open_brace    { return shift->skip('open-brace');    }
sub skip_open_bracket  { return shift->skip('open-bracket');  }
sub skip_open_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683352	683773	
==>"NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 767,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	2689	2817	
==>the
test.

Since you only run one test per program C<new> always returns the same
Test::Builder object.  No matter how many times <==
2	/Users/nnunley/parrot/config/init/hints/os2.pm	227	380	
==>ile is very specific to a particular os/2 configuration.
    # A more general one would be appreciated, should anyone actually be
    # using OS/2
    $co <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	1077	1181	
==>, 'pairs' => [@_]);
}

=item C<c_item($text, %contents)>

Returns a new C source and/or header files docu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710589	710707	
==>,
                  "BODY" => "#line 50 \"src/ops/python.ops\"\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (PIO_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711423	711541	
==>,
                  "BODY" => "#line 50 \"src/ops/python.ops\"\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (PIO_ <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	1135	1316	
==>'^\s*('.$type_re.')\s+('.$ident_re.')\s*\(('.$arglist_re.')\)\s*$');


=item C<parse_vtable($file)>

Returns a reference to an array containing

  [ return_type method_name parameter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791575	791663	
==>ine 432 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed_int(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792482	792570	
==>ine 432 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed_int(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	806	926	
==>code_to_file( $code, $lang_f );

    my $cmd;
    my $exit_code = 0;
    my $pass = 0;

    $cmd = "$self->{parrot} $args <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	843	963	
==>code_to_file( $code, $lang_f );

    my $cmd;
    my $exit_code = 0;
    my $pass = 0;

    $cmd = "$self->{parrot} $args <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9223	9338	
==>e and length $new_code;
    if(ASCII) {
      # A good-enough check that it's good as an XML Name symbol:
      Carp <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10487	10602	
==>e and length $new_code;
    if(ASCII) {
      # A good-enough check that it's good as an XML Name symbol:
      Carp <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	44027	44185	
==>tion_sym($symbol, @args);
	$self->_restore(@args);
      }
    } else {
      my @args = map { $self->_generate($_); } _get_args($node, 0);
      $return = $se <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43035	43336	
==>on(interpreter, EXCEPT_exit, {{\@1}});\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pushmark",
                  "FLA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42345	42589	
==>on(interpreter, EXCEPT_exit, {{\@1}});\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_ <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	2556	2779	
==>ef,
    list_only    => undef,
    use_times    => undef,
    display_help => undef,
    method       => undef,
    run_bench    => [],
    skip_bench   => [],
);

# Read Command Line Options
GetOptions(
    'conf=s'       = <==
2	/Users/nnunley/parrot/config/auto/jit.pm	4309	4611	
==>O) $(SRC_DIR)/exec_cpu$(O) $(SRC_DIR)/exec_save$(O)',
                execcapable => 1
            );
        } else {
            $conf->data->set(
                TEMP_exec_h => '',
                TEMP_exec_o => '',
                execcapable => 0
            );
        }

        # test for execut <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	9653	9918	
==>e</th>
    );

        my $outfile_base = $source_file; 
        $outfile_base =~ s/\//_/g;

        foreach my $function (sort keys %{$function_line_coverage{$source_file}}) {

            print OUT qq(
           <tr>
             <td>$function</td>
             < <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	22799	22955	
==>hine($start_line, "Deleting unknown formatting code $was<>");
        $is = $treelet->[$i][0] = '1';  # But saving the children!
        # I could also inser <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056953	1057414	
==>"ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1180,
                  "ARGS" => [
                              "p",
                              "kc",
                              "s"
                            ],
                  "BODY" => "#line 194 \"src/ops/var.ops\"\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	972720	973064	
==>CODE" => 1093,
                  "ARGS" => [
                              "i",
                              "i",
                              "s",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_c <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	611	737	
==>on the command-line then the files worth describing
will be found recursively from the current directory.

=head2 Options

=ove <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61912	62025	
==>name =~ s/\s*>\Z//;
				$matchrule = 1;
			}

		# EXTRACT TRAILING ARG LIST (IF ANY)

			my ($argcode) = extract_c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44500	44764	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "popmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45141	45405	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "popmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => <==
2	/Users/nnunley/parrot/languages/urm/urm-old.pl	1490	1600	
==>val( "$register{$2} $3 1;");
	if ($register{$1} < 0) { $register{$1} = 0 }
	$pos++;
    }
    elsif ($line =~ / <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	410	508	
==>l [object | source] file1 [file2 ...]

=head1 DESCRIPTION

This script is intended to give us an id <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	15094	15204	
==>$lookahead, $line,"<score: $code>") )
		unless $self->{items}[-1]->describe =~ /<score/;
	return 1;
}

sub chec <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188536	188838	
==>=> "function",
                  "CODE" => 224,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 299 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(inter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38472	38718	
==>RROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ], <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39336	39582	
==>RROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ], <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	932	1021	
==>art-tokens from Pod::Simple::PullParser

=head1 SYNOPSIS

(See L<Pod::Simple::PullParser>) <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	21365	21640	
==>> 'PIR', );

            my ( $extension ) = $example_f =~ m{ [.]                         # introducing extension
                                                 ( pasm | pir | imc | past ) # match and capture the extension
                                                 \z <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	521	645	
==>arrot::Op;
use Parrot::OpTrans::C;

my $trans = Parrot::OpTrans::C->new;

my %type_to_arg = (
    INT_CONST    => 'ic',
    N <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53013	53248	
==>de;
				       } )
			{
				_parse("an autoscore specifier", $aftererror,$line,$code);
				$code =~ /\A\s*<autoscore:(.*)>\Z/s;

				$rule and $rule->addautoscore($1,$self)
				      or  _no_rule($code,$line);

				$item = new Parse::Re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	816352	816559	
==>LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clearn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11004	11102	
==>$1/eg;
        $it =~ s/([^\._abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/spri <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4355	4451	
==>$1/eg;
      $it =~ s/([^\._abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/spri <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103584	103999	
==>"bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 129,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BO <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	3744	3902	
==>ong double',
             'hugefloatvalsize' => '16',
             'hugeintval' => 'long long',
             'hugeintvalsize' => 8,
             'i_arpainet' = <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	243	361	
==>= @_;
  my $temp   = {};

  die "EOF reached" if $count >= $#$tokens;

  if ($tokens->[$count] eq '(') {
    $temp->{ch <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	3678	3826	
==>channel',
        expr    => '__expr',
        int     => '__integer',
        list    => '__list',
        script  => '__script',
        var     => <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	4352	4500	
==>channel',
        expr    => '__expr',
        int     => '__integer',
        list    => '__list',
        script  => '__script',
        var     => <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35123	35410	
==>processing.  But it'll block assimilation
             #  of the next para.
          } else {
            die "Unhandled item type $item_type"; # should never happen
          }

          if(@$para == 2) {
            # For the cases where we /didn't/ push to @$para
            if($par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106409	1106689	
==>ables[typ]->class;\n    {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107385	1107665	
==>ables[typ]->class;\n    {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	1139	1272	
==>Configuration
# ########################
sub get_parrot_config($$) {
	# Try to include config information from Parrot tree.
	my %c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031441	1031558	
==>s.ops\"\n    if ({{\@2}} < enum_first_type || {{\@2}} >= enum_last_type)\n        {{\@1}} = -1;\n    else\n        {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032310	1032427	
==>s.ops\"\n    if ({{\@2}} < enum_first_type || {{\@2}} >= enum_last_type)\n        {{\@1}} = -1;\n    else\n        {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5262	5383	
==>ble is for */
    "",     /* Flags. Duh */
    "",     /* space-separated list of interfaces */
    "",     /* space-separ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436271	436558	
==>RGS" => [
                              "ic",
                              "p",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 94 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957537	957636	
==>nterpreter, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\"encoding '%Ss' no <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958442	958541	
==>nterpreter, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\"encoding '%Ss' no <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	13029	13213	
==>CODE' => 6,
			"(" => 10,
			"|" => 26,
			"*" => 27,
			"\$" => 29,
			"[" => 14,
			"." => 15
		},
		DEFAULT => -7,
		GOTOS => {
			'expr' => 28,
			'charclass' => 12,
			'range' => 2 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	831	967	
==>er', 'amber.html', '', 'languages/amber'),
        $self->new_section('APL', 'apl.html', '', 'languages/APL'),
        $self->new_section <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	2242	2342	
==>ages/punie'),
        $self->new_section('Python', 'python.html', '', 'languages/python'),
        $s <==
2	/Users/nnunley/parrot/tools/dev/manicheck.pl	582	677	
==><missing>, I<expected> and I<extra> files, and
then any extra files are listed.

Files that matc <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	14124	14307	
==>eq "else") {
		feedme();
		print CODE "\t goto CASE_${jump}_FIN\n";
		print CODE "CASE_${jump}_${incase}:\t# Default\n";
		$selects[-1]->{incase}=$incase+1;
		return;
	}

	my $lambda=< <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	107	200	
==>anguage specific testing routines here...

This is currently alarmingly similar to the generat <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	205	298	
==>anguage specific testing routines here...

This is currently alarmingly similar to the generat <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4464	4560	
==>exists $pmc_group->{$_} } @pmcs;
    partial_link($_, $pmc_libs->{$_}, [ $_ ] ) foreach (@ungroup <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4568	4664	
==>exists $pmc_group->{$_} } @pmcs;
    partial_link($_, $pmc_libs->{$_}, [ $_ ] ) foreach (@ungroup <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	1698	1927	
==>nitialized with any data.

See L</"Data is not an API">.

=item Initialized Modifiable Data

Data symbol that is initialized with data, but modifiable.

See L</"Data is not an API">.

=back

=head1 RULES

You can sometimes use C p <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20420	20531	
==>t "WARNING: * in TYPE not supported yet for $name\n";
				feedme;
				feedme;
			}
			while($type[CURR] eq "STMT <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	60444	60554	
==>ind a suitable bracket: "%s">

The delimiter provided to C<extract_bracketed> was not one of
C<'()[]E<lt>E<gt>{ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29436	29544	
==>Parrot::Pmc2c';

=item C<body($method, $line, $out_name)>

Returns the C code for the method body. C<$line> i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	331604	331867	
==>}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":files <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	343	509	
==>) {
	print "$_->{'name'} & $_->{'done'} & $_->{'total'} & $_->{'percent'}\\% \\\\ \n";
}

my $done = 0;
my $total = 0;
map { $done += $_->{'done'}; $total += $_- <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	17058	17203	
==>cmp_diag {
    my($self, $got, $type, $expect) = @_;
    
    $got    = defined $got    ? "'$got'"    : 'undef';
    $expect = defined $expect ? " <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_assignments.pm	396	495	
==>[.TYPE], "BARE"
	set P0[.VALUE], "$varname"
	bsr ASSIGNMENT	# Do this type manually
ASS_FUNC
	return <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2742	2844	
==>OSUB Sub1
PRINT "ERR this line in main routine should be skipped"
Label1:
   PRINT "5 back in module-le <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16709	16811	
==>OSUB Sub1
PRINT "ERR this line in main routine should be skipped"
Label1:
   PRINT "5 back in module-le <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37357	37557	
==>pe eq 'void');
    return '?';
}

=item C<signature($params)>

Returns the method signature for C<$params>.

=cut

sub signature
{
    my ($self, $params) = @_;

    my $n=1;
    my @types = grep {$n++ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1985	2110	
==>lf->right;

  if (!defined $cond) {
    $compiler->emit("  goto _LABEL_$name");
  } else {
    $left  = $left->compile($compil <==
2	/Users/nnunley/parrot/lib/Test/More.pm	7823	7925	
==>g for (beyond the name), but is() and
isnt() know what the test was and why it failed.  For example thi <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	33339	33499	
==>e have no plan.
        if( $self->{No_Plan} ) {
            $self->_print("1..$self->{Curr_Test}\n") unless $self->no_header;
            $self->{Expected_Tests <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	467	668	
==>e Perl Foundation.
*/
#if !defined(PARROT_EXTEND_VTABLE_H_GUARD)
#define PARROT_EXTEND_VTABLE_H_GUARD

/* Need size_t  */
#include <stddef.h>

EOF

print OUT $protos;

print OUT <<'EOF';

#endif
EOF

cl <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	10283	10456	
==>>{symbol}\n";
    }

    sub visitLexDir {
        my $self  = shift;
        my ($dir) = @_;
        my $FH    = $self->{fh};
        print {$FH}
            "  .lex <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	1040	1301	
==>+}{};   # Skip all whitespace between tokens
    next if $text =~ s{^#.*?$}{}; # Skip comments between tokens

    #
    # Numeric literals:
    #

    if ($text =~ m{^(-?[0-9]+\.[0-9]+)($|\W.*$)}x) {
      push @tokens, Jako::Token->new(
        $file, $line, ' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9900	10050	
==>cratch =~ s/\#([^\#]+)\#/${$self}{$1}/g; # interpolate
      print $fh $scratch;
      
      if ($tagname eq 'item-number') {
        print $fh $token <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	759	859	
==>s
{
    return <<END;
#undef CONST
#define REL_PC     ((size_t)(cur_opcode - interpreter->code->base. <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	875	975	
==>s
{
    return <<END;
#undef CONST
#define REL_PC     ((size_t)(cur_opcode - interpreter->code->base. <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	4533	4672	
==>le/) {
            push @installable_exe, [$src, $dest];
            next;
        }
    } elsif ($meta{include}) {
        $dest =~ s/^incl <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2345	2457	
==>r =~ s/\$register_num/$register_num/g;
		$register_num++;
	}

	# Do code for each push.
	$pir .= "\${ITEMP0} = 0\ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1697	1809	
==>r =~ s/\$register_num/$register_num/g;
		$register_num++;
	}

	# Do code for each push.
	$pir .= "\${ITEMP0} = 0\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949198	949676	
==>set",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1068,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 535 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_tra <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	33484	33588	
==>r/cadr/cdar/whatever
  'null?'    => \&_op_null_p,
  'list?'    => \&_op_list_p,
  'list'     => \&_op_li <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	1101	1238	
==>d symbols.

=item C<--file>

=item C<-f>

List the file(name) symbols.

=back

If more than one of all the above options are given, they a <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11615	11755	
==>n;

      my $arith = Jako::Construct::Statement::Arithmetic->new($block, $ident, $ident, $op, $value);
      next;
    }

    #
    # Concat <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	220	317	
==>se vars qw(%code %options @basic %common);
use vars qw( @syms @type );
use vars qw( %labels $runti <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562018	562307	
==>});\n  }\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_A <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21732	21930	
==>e \"=end " . $curr_open->[-1][1]{'target'} . '")' )
            : ''
          )
        );
        DEBUG and print "Ignoring targetless =end\n";
        next;
      }
      
      unless($content =~ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2758	2857	
==>type, 'Jako::Construct::Type::Integer');
  $self->SYNTAX_ERROR("Can only do bitwise ops on integers" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2888	2987	
==>type, 'Jako::Construct::Type::Integer');
  $self->SYNTAX_ERROR("Can only do bitwise ops on integers" <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	6617	6749	
==>d automatically by tools/build/nativecall.pl
 * from definitions in @$definitions
 *
 * Any changes made here will be lost!
 *
 */

/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567255	567524	
==>ne",
                  "CODE" => 648,
                  "ARGS" => [
                              "i",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 213 \"src/ops/object.ops\"\n  {{ <==
2	/Users/nnunley/parrot/config/gen/config_h.pm	888	1048	
==>lines => 1
    );

    genfile(
        'config/gen/config_h/feature_h.in', 'include/parrot/feature.h',
        commentType   => '/*',
        ignorePattern => ' <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27626	27746	
==>ak    = new_label($parser);
    push @opcodes, new LabelOp( $parser,
        'arg1' => $l_continue,
    );
    foreac <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	6256	6360	
==>{
	s/^ *[a-z0-9_]+\.[chly]\s*\n//mi; # own filename - kludgy.
	$desc = $_;
	$desc = ""  # it's only emacs <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	68557	68733	
==>)' ;
			_warn(1,"Found two or more lookahead specifiers in a
			       row.",$line)
			and
			_hint("Multiple positive and/or negative lookaheads
			       are simply multiplied <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514000	514171	
==>n",
                              "n"
                            ],
                  "BODY" => "#line 708 \"src/ops/math.ops\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOAT <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4861	4966	
==>c_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);
    my @ungrouped_pmcs = grep { ! exists $pm <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4965	5070	
==>c_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);
    my @ungrouped_pmcs = grep { ! exists $pm <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	511	649	
==>cs::File;

use strict;
use warnings;

use base qw( Parrot::IO::File );

use Pod::Simple::Checker;
use Parrot::Docs::POD2HTML;

my $UNDEFINE <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	994	1144	
==>fig;
use Getopt::Long;
use File::Copy;
use File::Basename;
use File::Path;
use File::Find;

my ($action, $executable);
GetOptions("action=s"     => \$a <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	20426	20550	
==>le($include, "pmc_$pmcname.h", 1);

        my $fh = open_file( "<", $file );
        while (<$fh>) {
            if (/^(?:ex <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835761	835849	
==>terpreter->ctx)->user_stack, string_copy(interpreter, {{\@1}}), STACK_ENTRY_STRING, STACK <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836514	836602	
==>terpreter->ctx)->user_stack, string_copy(interpreter, {{\@1}}), STACK_ENTRY_STRING, STACK <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	13991	14137	
==>** op lib descriptor:
*/

static op_lib_t ${bs}op_lib = {
  "$base",		/* name */
  "$suffix",		/* suffix */
  $core_type,	        /* core_type = PA <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	14175	14288	
==>ignore this message.";
		Parse::RecDescent::_hint("The production starts with $what. That means that the
					  pr <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9567	9690	
==>t: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	print STDERR "**At eof: aborting.\n";
				return(undef);
			} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9137	9255	
==>t: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	print STDERR "**At eof: aborting.\n";
				return(undef);
			} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065190	1065379	
==>d_str(interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066064	1066253	
==>d_str(interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PMCNULL;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	338058	338201	
==>ne 103 \"src/ops/io.ops\"\n  {{\@1}} = PIO_STDIN(interpreter);\n  {{+=2}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31856	32022	
==>') )
    {
        push @opcodes1, new AssignOp( $parser,
            'result' => $iter,
            'arg1'   => $nil->[0],
        );
        push @return1, $it <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	6704	6813	
==>umed to work Everywhere.
		my $absolute = ($type =~ /^[Aa]$/  ) ? 1 : 0;
		my $uninit   = ($type =~ /^[BbCc]$/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429629	429773	
==>"
                            ],
                  "BODY" => "#line 74 \"src/ops/math.ops\"\n  mmd_dispatch_v_ps(interpreter, {{\@2}}, {{\@3}}, { <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	19258	19396	
==>prohibited.
    User definition of accessor allowed.
    Treatment of '*' in element types corrected.
    Treatment of classes as element t <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	6850	6968	
==>e 
		{ $self->{"vars"} .= "my $var;\n" }
	$self->{"changed"} = 1;
	return 1;
}

sub addautoscore
{
	my ( $self, $code ) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1954	2051	
==>e text content of the section,
such as "foo" for
C<< LZ<><Stuff/foo> >>, and "bar" for 
C<< LZ<><S <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642293	642559	
==>2}}->vtable->type_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643181	643447	
==>2}}->vtable->type_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953647	953904	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "encoding",
                  "FLAGS" => ":base_core",
                  "ARGD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954437	954694	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "encoding",
                  "FLAGS" => ":base_core",
                  "ARGD <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9623	9723	
==>ler failed (see test.cco)";

    _run_command("$link $linkflags test$o $link_args ${cc_exe_out}test$e <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	2520	2729	
==>pe
for it).

=head2 Data is not an API

Consider making the data const(ant), or moving it into the heap (and
accessed through a real API that takes care of synchronization, data
as such is not a good API unless <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3891	3988	
==>imilar) symbols to
the outside world.  Be careful to only scan Parrot's defines, not
system's or t <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61540	61645	
==>m($item)
			      or  _no_rule("pattern terminal",$line,$code);
		}
		elsif ($grammar =~ m/(?=$MATCHRULE)/ <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	3238	3381	
==>lean' and 'svn:ignore' take care of them.

        return $pass;
        }
}

=head1 HISTORY

Mostly taken from F<languages/bc/lib/Parro <==
2	/Users/nnunley/parrot/languages/regex/test.pl	3894	4013	
==>test_regex.pir", $pattern);
    generate_pbc("test_regex.pir", "test.pbc");
}

sub process {
    my ($input, $output, $t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393622	393978	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "tell",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 457,
                  "ARGS" => <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	13570	13677	
==>f =~ m/\G($ldel_outer)/gc)	# OUTERMOST DELIMITER
	{
		_failmsg qq{Did not find expected opening bracket at " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469242	469394	
==>"
                            ],
                  "BODY" => "#line 385 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	406	507	
==>a->add($delimiter, $key1 => $value1, $key2 => $value2);
    my @keys = $data->keys;
    my $serialized <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	20492	20622	
==>", $file );
        while (<$fh>) {
            if (/^(?:extern\s+)?\w+\*?\s+\*?(\w+)\s*\([^)]+\)\s*;/) {
                push @exp <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	20825	20955	
==>", $file );
        while (<$fh>) {
            if (/^(?:extern\s+)?\w+\*?\s+\*?(\w+)\s*\([^)]+\)\s*;/) {
                push @exp <==
2	/Users/nnunley/parrot/Configure.pl	267	381	
==>is Parrot's configuration script. It should be run to create the necessary
system-specific files before building Pa <==
2	/Users/nnunley/parrot/lib/File/Which.pm	2206	2353	
==>xt;
# print STDERR "$file\n";

            if ((-x $file or    # executable, normal case
                 ($Is_MacOS ||  # MacOS doesn't mark as exe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565707	565799	
==>194 \"src/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->can(interpreter, {{\@2}}, {{\@3}});\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566600	566692	
==>194 \"src/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->can(interpreter, {{\@2}}, {{\@3}});\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2923	3029	
==>ore_func_start()>

Implemented in subclasses, if C<run_core_func_decl()> is implemented, to
return the C co <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	457	553	
==>t, $right) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Ja <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	448	544	
==>t, $right) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Ja <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	12497	12695	
==>$verbose;
    foreach my $prog (@$progs) {
        my $util = $prog;

        # use the first word in the string to ignore any options
        ($util) = $util =~ /(\S+)/;
        my $path = which($ut <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	29746	29966	
==>result' => $lbl_or,
    );
    my $lbl_end = new_label($parser);
    push @opcodes, new BranchUnlessOp( $parser,
        'arg1'   => $_var,
        'op'     => '<=',
        'arg2'   => $_limit,
        'result' => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500169	500312	
==>c"
                            ],
                  "BODY" => "#line 600 \"src/ops/math.ops\"\n  {{\@1}} = floatval_mod({{\@1}}, {{\@2}});\n  {{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1224	1381	
==>orithm:
      s/(
         [^\n]{55}         # Snare some characters from a line
         [^\n\ ]{0,50}     #  and finish any current word
        )
        \ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1168	1325	
==>orithm:
      s/(
         [^\n]{55}         # Snare some characters from a line
         [^\n\ ]{0,50}     #  and finish any current word
        )
        \ <==
2	/Users/nnunley/parrot/Configure.pl	9810	9958	
==>t::Configure->new;
{
    # XXX $Parrot::Configure::Step::conf is a temporty hack
    no warnings qw(once);
    $Parrot::Configure::Step::conf = $conf <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5986	6111	
==>st) {
      my $access = $token->text; # 'const' or 'var'.

      my $type       = Jako::Construct::Type->new($self->require_t <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	4184	4410	
==>'aix'     && $nm_try =~ /illegal option/) {
    $nm_opt = '-B';
} elsif ($^O eq 'irix'    && $nm_try =~ /C Development Set/) {
    $nm_opt = '-B';
    $nm_ro = 1;
} elsif ($^O eq 'dec_osf' && $nm_try =~ /Alpha/) { # aka Tru64 a <==
2	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	3	131	
==>perl -w
# Copyright (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/tools/build/fingerprint_c.pl 20350 2006-06-25T03:57:27.771 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2760	2883	
==>i]->compile($compiler);
      $compiler->emit("  $temp = $value");
      $args[$i] = $temp;
    }
    else {
      $args[$i] <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2460	2583	
==>i]->compile($compiler);
      $compiler->emit("  $temp = $value");
      $args[$i] = $temp;
    }
    else {
      $args[$i] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349239	349338	
==>ng_cstring_free(path); */\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350241	350340	
==>ng_cstring_free(path); */\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	6259	6557	
==>f $target eq $item; }
	return 0;
}

sub addcall($$)
{
	my ( $self, $subrule ) = @_;
	unless ( _contains($subrule, @{$self->{"calls"}}) )
	{
		push @{$self->{"calls"}}, $subrule;
	}
}

sub addprod($$)
{
	my ( $self, $prod ) = @_;
	push @{$self->{"prods"}}, $prod;
	$self->{"changed"} = 1;
	delete $se <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	260419	260971	
==>"",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 303,
                  "ARGS" => [
                              "i",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 793 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} == {{\@3}};\n    {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2283	2401	
==>urceforge.net:/cvsroot/tcl co -d $DIR tcl/tests
END_COMMAND

    return ($rc == 0) ; # just care if it failed, not howm <==
2	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	1535	1651	
==>t 1 if (! defined $status);
exit($status >> 8) if $status != 0;

foreach my $output (@outputs) {
    open(OUTPUT, ">> <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	52572	52673	
==>extract_multiple> in a list context
is to split the processed string into as many non-overlapping fiel <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7157	7297	
==>$options{reject}})
		    : defined($options{reject})	       ? $options{reject}
		    :					 ''
		    ;
	my $ignore  = ref($options{ignore}) e <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24159	24299	
==>$options{reject}})
		    : defined($options{reject})	       ? $options{reject}
		    :					 ''
		    ;
	my $ignore  = ref($options{ignore}) e <==
2	/Users/nnunley/parrot/config/auto/pack.pm	1160	1351	
==>size == 8 || $Config{use64bitint} eq 'define') {

            # pp_pack is annoying, and this won't work unless sizeof(UV) >= 8
            $format = 'q';
        }
        warn "Configure.pl: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1946	2068	
==>lock = $self->block;
  my $kind  = $self->kind;
  my $name  = $self->ident ? $self->ident->value : undef;
  my $cond  = $se <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3062	3184	
==>lock = $self->block;
  my $kind  = $self->kind;
  my $name  = $self->ident ? $self->ident->value : undef;
  my $cond  = $se <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	3637	3805	
==>{
        *dump = sub {
            my $self = shift;
            Data::Dumper->new([$self->{c}], ['*PConfig'])->Sortkeys(1)->Dump();
        };
    } else {
        *du <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	257	352	
==>.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expression::Suffi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835733	835816	
==>ush(interpreter, &CONTEXT(interpreter->ctx)->user_stack, string_copy(interpreter, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836486	836569	
==>ush(interpreter, &CONTEXT(interpreter->ctx)->user_stack, string_copy(interpreter, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465152	465422	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465773	466043	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => " <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	8163	8365	
==>error $1.\n"),
                last;
        }
    }
}

sub _InitLexico {
    my $parser = shift;

    my %keywords = (
        'and'      => 'AND',
        'break'    => 'BREAK',
        'do <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465205	465454	
==>=> 0,
                  "NAME" => "dec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465826	466075	
==>=> 0,
                  "NAME" => "dec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509195	509845	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 586,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 670 \"src/ops/math.ops\"\n  {{\@1}} = - {{\@1}};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	508564	508873	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 58 <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4111	4220	
==>roups_and_libs(@pmcs);

    # Convert lib-GROUP.so + A.so + B.so ... -> GROUP.so
    while (my ($group, $pmcs) <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4215	4324	
==>roups_and_libs(@pmcs);

    # Convert lib-GROUP.so + A.so + B.so ... -> GROUP.so
    while (my ($group, $pmcs) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1292	1394	
==>r;

  my $sym = $block->find_symbol($ident_name);

  confess "No such symbol '$ident_name'!" unless def <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598168	598402	
==>terpreter, {{\@2}} ));\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599215	599449	
==>terpreter, {{\@2}} ));\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	2506	2619	
==>lf->type;
  my $name  = $self->name;
  my @args  = $self->args;

  if ($type) {
    $handler->start_element({ Name <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	374	512	
==>rnings;

use base qw( Parrot::IO::Path );

use FileHandle;
use Parrot::IO::Directory;

=item C<tmp_file($path)>

Returns the file for C<$pa <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	5239	5356	
==>m =~ /CONST.*CONST/);
                $asm =~ s/(emitm_pushl_m[^\n]*CONST[^\n]*)/$1\\\n\tParrot_exec_add_text_rellocat <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	507	624	
==>gged

				&delimited_pat
			       ) ] );

Exporter::export_ok_tags('ALL');

# PROTOTYPES

sub _match_bracketed($$$$$$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1930	2195	
==>n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "noop",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [],
                  "TYPE" => "in <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	41683	41844	
==>uild
its tag parser on every call);

=item *

make use of the new qr// construct to pre-compile the regexes they use
(whereas C<extract_tagged> uses standard stri <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	842	938	
==>core_pmcs.pm
 */

/* &gen_from_enum(pmctypes.pasm) subst(s/enum_class_(\\w+)/\$1/e) */
enum {
END <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	2974	3124	
==>_PACKAGE__->new->parse_string_document('=head1 L<Foo/bI<ar>baz>>')
    "
Output:
  $VAR1 = 'barbaz';


=head1 SEE ALSO

L<Pod::Simple>

=head1 COPYRIGH <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	40776	41083	
==>or.
    if ($pir =~ /\$\{([^}]*)}/) {
        die "Unknown metavariable $1 used in $code_source\n";
    } else {
        return $pir;
    }
}


# Usage message.
# ##############
sub usage() {
    print <<USAGE;
Usage:
  perl build/translator.pl src/translation.rules --srm Stack \
    --ouptput src/it.pir
US <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4663	4781	
==>ft;
	my $pops = shift;
	my $register_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop stuf <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3079	3197	
==>ft;
	my $pops = shift;
	my $register_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop stuf <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50193	50321	
==>FILE_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_PROFILE_FLAG); }\n  {{=0,+=2}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50986	51114	
==>FILE_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_PROFILE_FLAG); }\n  {{=0,+=2}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192364	192612	
==>ARGS" => [
                              "p",
                              "nc",
                              "ic"
                            ],
                  "BODY" => "#line 313 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpr <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2377	2497	
==>aves, $var);
				}
			}
			if (@saves) {
				$edit.=qq{\tfind_global _GLOBALS, "COMMON"\n};
				foreach(@saves) {
					$e <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2786	2906	
==>aves, $var);
				}
			}
			if (@saves) {
				$edit.=qq{\tfind_global _GLOBALS, "COMMON"\n};
				foreach(@saves) {
					$e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069095	1069354	
==>ARGS" => [
                              "i",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 49 \"src/ops/experimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557752	557849	
==>ect.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next = {{^+3}};\n  STRING * <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559136	559233	
==>ect.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next = {{^+3}};\n  STRING * <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	14340	14486	
==>LECTS"]
	P5= P1["$jump"]      # Stored value.
GL
	print CODE<<CASE_SETUP;
	goto CASE_${jump}_FIN
CASE_${jump}_${incase}:
	new P12, .PerlArray   # O <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	16802	16902	
==>value;
        VTABLE_set_pmc_keyed_str(interpreter, HashPointer, string_from_cstring(interpreter, "$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	976989	977507	
==>"o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1097,
                  "ARGS" => [
                              "i",
                              "i",
                              "s",
                              "ic",
                              "i"
                            ],
                  "BO <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	2968	3086	
==>rxlocals {
    my ($self) = @_;
    my $rxlocals = ($self->{rxlocals} ||= []);
    return (aop(comment => [ "restore rx <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	1872	2004	
==>|struct|enum|extern)/, @funcs;

    # Variables are of no use to us
    @funcs = grep !/=/, @funcs;

    # Get rid of any blocks at t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53239	53338	
==>\"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Interp_flags_SET(interpreter,   PARROT_GC_DEBUG_FLAG); } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53995	54094	
==>\"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Interp_flags_SET(interpreter,   PARROT_GC_DEBUG_FLAG); } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365929	366135	
==>" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 303 \"src/ops/io.ops\"\n  if ({{\@2}} && {{\@1}}) {\n    PIO_put <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	8968	9129	
==>C\b/ and return "cgp";
  /\b-S\b/ and return "switch";
  /\b-f\b/ and return "fast";
  return "default";
}

# Rate limiting
sub limit_rate {
  # Open the DB and l <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	443	564	
==>FIX => "_W", NEXT => 'CONT', REDO => 'REDO', LAST => 'LAST' },
  'if'       => { PREFIX => "_I", NEXT => 'TEST', REDO => ' <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	464	585	
==>FIX => "_W", NEXT => 'CONT', REDO => 'REDO', LAST => 'LAST' },
  'if'       => { PREFIX => "_I", NEXT => 'TEST', REDO => ' <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1564	1761	
==>lib`

= AUTHOR

Stevan Little <stevan@iinteractive.com>

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistribute it and/or modify it <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5292	5437	
==>um} = ${STEMP0}
goto PRE_BRANCH_${CURIC}_CONT_$register_num

# Can do a lazy move.
PRE_BRANCH_${CURIC}_LAZY_MOVE_$register_num:
${STACK$register_n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325864	326270	
==>AGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 382,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 149 \ <==
2	/Users/nnunley/parrot/config/gen/config_h.pm	171	276	
==>iguration Header

=head1 DESCRIPTION

Generates F<include/parrot/config.h> with platform-specific configur <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Ops.pm	647	757	
==>_item('', 'tools/build/ops2c.pl'),
			$self->new_item('', 'src/ops/ops.num'),
			$self->new_item('', 'tools/bui <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	15305	15493	
==>elsif ($peer_block->kind eq 'sub') {
        # DO NOTHING
      }

      #
      # Handle the ending of module blocks:
      #

      elsif ($peer_block->kind eq 'module') {
        # DO NO <==
2	/Users/nnunley/parrot/lib/Test/More.pm	19073	19285	
==>Z]\w*$/;
}

=back

=head2 Conditional tests

Sometimes running a test under certain conditions will cause the
test script to die.  A certain function or method isn't implemented
(such as fork() on MacOS), some res <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	7612	7757	
==>... };

    package Myobj;
    use Class::Struct;
            # declare struct with four types of elements:
    struct( s => '$', a => '@', h => ' <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	6476	6590	
==>o many args to $name' if \@_ > 1;\n";
            $out .= "    \@_ ? ($pre\$r->$elem$sel = shift$pst) : $pre\$r->$e <==
2	/Users/nnunley/parrot/lib/Test/More.pm	30828	30977	
==>heck");
	    }
        }
    }

    return $ok;
}


sub _whoa {
    my($check, $desc) = @_;
    if( $check ) {
        die <<WHOA;
WHOA!  $desc
This s <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	55643	55951	
==>ral( $_[0], $_[1], 'boolean' );
        }
	],
	[#Rule 78
		 'primary', 1,
sub
#line 424 "Lua\lua51.yp"
{
            BuildLiteral( $_[0], $_[1], 'boolean' );
        }
	],
	[#Rule 79
		 'primary', 1,
sub
#line 428 "Lua\lua51.yp"
{
            BuildLiteral( $_[0], $_[1], 'number' );
        } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	933974	934115	
==>"
                            ],
                  "BODY" => "#line 435 \"src/ops/string.ops\"\n  {{\@1}} = string_downcase(interpreter, {{\@2 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12172	12269	
==>SO

L<Pod::Simple>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All right <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3090	3187	
==>SO

L<Pod::Simple>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All right <==
2	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	2101	2214	
==>::substitution_len}/ 

END_GRAMMAR

# Slurp in the frozen-state file
my $frozen;
{
  $/ = undef;
  $frozen = <>;
} <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	5287	5414	
==>arg};
	}
    }
    print <<EOC;
.end		# $cur_func
.namespace [""]

$nst
.sub $real_name prototyped$meth $cmt
EOC
    my (@params <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2752	2873	
==>ef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHECK}}='ACCEPT';
    undef;
}

sub YYError {
	my($self)=shi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2627	2737	
==>ef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHECK}}='ACCEPT';
    undef;
}

sub YYError {
	my($self)=shi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	108	203	
==>e Regex::CodeGen::Re;
use Regex::RegexOps ();
use base 'Regex::CodeGen';
use strict;

sub output <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768884	769134	
==>DE" => 868,
                  "ARGS" => [
                              "ic",
                              "sc"
                            ],
                  "BODY" => "#line 335 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1161	1297	
==>lements the superclass method so that C<$where> is suitably cast.

=cut

sub gen_goto
{
    my ($self, $where_str) = @_;

    return "ret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55168	55636	
==>,
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 71,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 864 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo(inter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25262	25373	
==>opcode_t *dest;\n  PMC * const p = {{\@1}};\n  dest = {{^+2}};\n  interpreter->current_cont = CONTEXT(interprete <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	20887	21037	
==>to tweak.\n";
            }
          }
        }
      }
    }
  }
  DEBUG > 2 and print "End of _wrap_up traversal.\n\n";

  return;
}

#:.:.:.:.:.:. <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40954	41111	
==>will be out by one - NWC
    my $l = $self->line_directive($line, "ref.c");
    return <<EOC;
$l
$decl {
    SLOTTYPE *attrib_array = PMC_data(pmc);
    PMC * <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	2138	2249	
==>-files>, return a list of files to process.  This list is one per line, and
is relative to the languages dir.

I <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	2325	2453	
==>dir1 =~ s/^\[//;
    $dir2 =~ s/^\[//;
    $dir1 =~ s/\[$//;
    $dir2 =~ s/\[$//;
    my @dir1 = split(/,/, $dir1);
    my @dir2 <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	3060	3178	
==>t;
    my $content = $self->read;
    # Break up the $Id to prevent svn messing with it.
    my ($id) = $content =~ /(( <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27061	27153	
==>name}=$englishname;

	$f="_USERFUNC_$funcname";
	$f=changename($f);
	$f=~s/\$/_string/g; $f=~ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27334	27426	
==>name}=$englishname;

	$f="_USERFUNC_$funcname";
	$f=changename($f);
	$f=~s/\$/_string/g; $f=~ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32022	32157	
==>') {
            # Hm, it's not numeric.  Correct for this.
            $para->[1]{'number'} = $expected_value;
            $self->whine <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32431	32566	
==>') {
            # Hm, it's not numeric.  Correct for this.
            $para->[1]{'number'} = $expected_value;
            $self->whine <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	53450	53645	
==>1], $_[2], $_[3] );
        }
	],
	[#Rule 61
		 'exp', 3,
sub
#line 353 "Lua\lua51.yp"
{
            BuildBinop( $_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 62
		 'exp', 3,
su <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	6428	6550	
==>bs           =>
                    '-lmsvcrt -lmoldname -lkernel32 -luser32 -lgdi32 -lwinspool -lcomdlg32 -ladvapi32 -lshe <==
2	/Users/nnunley/parrot/config/init/hints/msys.pm	328	441	
==>bs          =>
            '-lmsvcrt -lmoldname -lkernel32 -luser32 -lgdi32 -lwinspool -lcomdlg32 -ladvapi32 -lshe <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	466	603	
==>y $self = shift;
  my ($compiler) = @_;

  my $kind        = $self->kind;
  my $peer        = $self->peer;

  my $prefix;

  if ($self->pr <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	446	583	
==>y $self = shift;
  my ($compiler) = @_;

  my $kind        = $self->kind;
  my $peer        = $self->peer;

  my $prefix;

  if ($self->pr <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	786	875	
==>('', 'docs/gettingstarted.pod'),
			$self->new_item('', 'docs/submissions.pod'),
			$self- <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11137	11280	
==>hile($x_open) {
        next if( ($t = shift @_)->is_text );
        if(   $t->is_start and $t->tag eq 'X') { ++$x_open }
        elsif($t->is_e <==
2	/Users/nnunley/parrot/config/gen/config_pm.pm	2126	2360	
==>(\tset P0["$k"], P1\n);
                }
            }
        } elsif (s/<<PWD>>/cwd/e) {
            print OUT;
        } else {
            print OUT;
        }
    }

    close IN  or die "Can't close config_lib.in: $!";
    close <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	993866	994519	
==>,
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1112,
                  "ARGS" => [
                              "i",
                              "ic",
                              "sc",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/strin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	998417	998876	
==>,
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1116,
                  "ARGS" => [
                              "i",
                              "i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999556	999941	
==>,
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1117,
                  "ARGS <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17425	17563	
==>e'}, @$curr_open) {
        DEBUG > 1 and print "Ignoring ignorable =for\n";
        next;
      }

      for(my $i = 2; $i < @$para; ++$i) <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	4394	4696	
==>each (@libs) {
            $code .= "\t\$(PARROT) -G net2pbc.pbc -f -p \"$mono_class_lib/$_.dll\" > $_.pir\n";
            $code .= "\t\$(PARROT) -o $_.pbc $_.pir\n";
            $code .= "\t\$(RM_F) $_.pir\n";
        }
        return $code;
    } else {
        # Just say that we weren't confi <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59525	59730	
==>rod->check_pending($line) if $prod;
			$prod = new Parse::RecDescent::Production($line,1,0);
			$rule and $rule->addprod($prod)
			      or  _no_rule("<uncommit>",$line);
			$aftererror = 0;
		}
		elsif ($g <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	19963	20153	
==>re than usual, due to the
                # extra layer of package indirection
                my $level = $builder->level();
                $builder->level(2);

                # Load modul <==
2	/Users/nnunley/parrot/lib/File/Which.pm	2525	2697	
==>on non-exe/bat/com files.
                                # so we check -e. However, we don't want to pass -e on files
                                # that aren't in PATHE <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	35083	35180	
==>balanced.
(In a scalar context just the first element of the array would be returned. In
a void co <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1115	1223	
==>@_;

  my $left  = $self->left->value;
  my $right = $self->right->compile($compiler);

  if ($self->block->s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462940	463249	
==>}, den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463937	464246	
==>}, den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529872	530433	
==>tan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 612,
                  "ARGS" => [
                              "n",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 838 \"src/ops/math.ops\"\n  {{\@1}} = atan2((FLOATVAL){{\@2}} <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7957	8072	
==>elf->read;
	
	while ( @lines )
	{
		my $line = shift @lines;
		
		if ( $line =~ /^=head1\s+ABSTRACT/o )
		{
			while <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	47256	47367	
==>para, $start_line) = @_;
  my $treelet = ['~Top', {'start_line' => $start_line},];
  
  $para =~ s/\s+/ /g; # co <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1346	1496	
==>,
    OP    => $op,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => $ident->file,
    LINE  => $ident->line
  }, $class;

  $block->push_content($se <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	1887	2021	
==>lf->{POS} ? $self->{POS} : -1;
}


#
# at()
#
# Without an argument, gives the current token. With an argument, gives the
# token at th <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19255	19363	
==>ent will return "Hooboy,
stuff wow yeah!".

If the title can't be found, then get_short_title returns empty-s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	728694	729165	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "io"
                               ],
                  "TYPE" => "function",
                  "CODE" => 817,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 64 \"src/ops/set.ops\"\n   FLOATVAL temp = {{ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	961	1090	
==>Docs::Item> instances, or 
relative paths.

=cut

sub new
{
	my $self = ref $_[0] ? ref shift : shift;
	my $name = shift || die "N <==
2	/Users/nnunley/parrot/lib/Test/More.pm	34533	34641	
==>004_05.


=item Overloaded objects

String overloaded objects are compared B<as strings>.  This prevents
Test <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	3993	4305	
==>ort_desc} @short_desc;
            
            push @short_desc, $short_desc;
        }
        elsif ( $file->is_docs_link )
        {
            print "\n", $rel_path unless $silent;
        
            # Link to the actual file rather than the HTML version.
            $index_html .= $formatter->html_link( <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	49163	49254	
==>s process C<$_> instead.
Omitting the second argument (delimiter brackets) indicates that on <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	891	1034	
==>t {
	push @{$code{$seg}->{code}}, <<INIT;
	#
	# Program Begins Here
	# I must not fear. Fear is the mind-killer. Fear is the little-death 
	#  t <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14890	15046	
==>MBER' => 36
		},
		GOTOS => {
			'exp' => 69,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14443	14545	
==>$self->_save_1('P');

  $self->_add_inst ('', 'new', [$return,'.Array']);
  $self->_add_inst ('', 'set' <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	2952	3052	
==>$self->_save_1('P');

  $self->_add_inst('', 'new', [$return,'.Array']);
  $self->_add_inst('', 'set' <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31223	31329	
==>les.

=cut

sub implements
{
    my ($self, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<bo <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39843	39949	
==>les.

=cut

sub implements
{
    my ($self, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<bo <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	2813	3053	
==>gth;
            my $arg = unpack "x$offset l", $pf->byte_code;
            $offset += sizeof('op');
            push @args, $arg;
        }
	push @{$opcodes{$pc}->{args}}, @args;

        $src = $op->full_body();

	# The regexes here corres <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	1765	1873	
==>/embed.pod'),
		),
		$self->new_group('Development Documentation', '', 'docs/dev'),
		$self->new_group('PMC D <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	1157	1291	
==>ody (throws exception).
UNIMPLEMENTED:
    body = <<"PIR"
$P0 = new .Exception
$P0["_message"] = "System.NotImplementedException"
$P1 = <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	19507	19677	
==>" Considering child at $i ", pretty($treelet->[$i]), "\n";
      if($nixx and ref $treelet->[$i] and $treelet->[$i][0] eq 'X') {
        DEBUG > 3 and print "   Nixing X n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677614	677847	
==>le->unshift_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678392	678625	
==>le->unshift_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53673	53818	
==>($item)
				      or  _no_rule("<resync>",$line);
			}
			elsif ($grammar =~ m/(?=$RESYNCPATMK)/gco
				and do { ($code) = extract_bracketed($gram <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32686	32803	
==>les.

=cut

sub implements
{
    my ($self, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<gen_ret($type <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2070	2166	
==>efix) {
    $handler->start_element({ Name => 'loop', Attributes => { kind => $self->kind, name = <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7256	7441	
==>\@<rx_stack>, $reg;";
}

sub output_save {
    my ($self, $reg) = @_;
    $reg = value($reg);
    return ("push \@::STATESTACK, $reg;");
}

sub output_restore {
    my ($self, $reg) = @_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	8170	8320	
==>unt'}}, $line];
        }
      } else {
        ++$self->{'pod_para_count'};
        $self->_ponder_paragraph_buffer();
         # by now it's safe to <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	4090	4264	
==>print <<END;
      <context name="pod" attribute="Comment" lineEndContext="#stay">
          <LineContinue attribute="Comment" context="#stay" />
          <RegExpr attribute= <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2383	2489	
==>ght_sym->type;
  }
  else {
    $right_type = $right->type;
  }

  $self->INTERNAL_ERROR("No type for dest! <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2305	2411	
==>ght_sym->type;
  }
  else {
    $right_type = $right->type;
  }

  $self->INTERNAL_ERROR("No type for dest! <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106349	1106468	
==>"type number out of range\");\n    {{\@1}} = interpreter->vtables[typ]->class;\n    {{+=3}};\n",
                  "expe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107325	1107444	
==>"type number out of range\");\n    {{\@1}} = interpreter->vtables[typ]->class;\n    {{+=3}};\n",
                  "expe <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3430	3801	
==>'t implement UTF16 yet."
        );
        splice @_;
        push @_, undef;
        next;

        # TODO: implement somehow?
        
      } else {
        DEBUG > 2 and print "First line is BOM-less.\n";
        ($line = $source_line) =~ tr/\n\r//d;
      }
    }


    DEBUG > 5 and print "# Parsing line: [$line]\n";

    if(!$self->{'in_pod'}) {
      if($line =~ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12685	12814	
==>lain. We get the file
    # for the module, then we take its path relative to the 
    # distribution, then we append the HTML suf <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322895	323165	
==>",
                  "CODE" => 378,
                  "ARGS" => [
                              "i",
                              "nc"
                            ],
                  "BODY" => "#line 134 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (UINTVAL)((Parrot_UInt4)({{\@ <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5776	5893	
==>s = %{ $class->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There should be at most a single gro <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5987	6104	
==>s = %{ $class->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There should be at most a single gro <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	2270	2377	
==>ee, $ctx) = @_;
    die "unimplemented meta $tree";
}

# FIXME!!!
sub convert_rx_beg {
    my ($self, $tree, <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	53394	53567	
==>49 "Lua\lua51.yp"
{
            BuildBinop( $_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 61
		 'exp', 3,
sub
#line 353 "Lua\lua51.yp"
{
            BuildBino <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19355	19466	
==>op('seq' => [ $_[1], $_[2] ]); }
	],
	[#Rule 11
		 'expr', 1,
sub
#line 113 "lib/Regex/Grammar.y"
{ return op('m <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6625	6760	
==>unless $self->skip_comma;
      }

      my $value;

      if ($self->skip_assign) {
        $value = Jako::Construct::Expression::Value <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	3390	3531	
==>UG(0, "Getting token at $pos");
  
  return $self->at($pos, $count);
}


#
# forth()
#
# Moves the current token position $offset tokens forwa <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	12448	12575	
==>uter = defined $_[3] ? $_[3] : $ldel_inner;
	my $rd         = $_[4];
	my $rdel_inner = $ldel_inner;
	my $rdel_outer = $ldel_oute <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	328	439	
==>o::Processor);

use Jako::Construct::Block;
use Jako::Construct::Block::Bare;
use Jako::Construct::Block::Condit <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349162	349257	
==>{\@2}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, \"+<\");\n  /* string_cstring_free(pat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350164	350259	
==>{\@2}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, \"+<\");\n  /* string_cstring_free(pat <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	1217	1383	
==>ext { return shift->{TEXT}; }


#
# dump()
#

sub dump
{
  my $self = shift;

  print STDERR "{\n";
  foreach my $key (sort keys %$self) {
    printf STDERR "%10s => % <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59755	59885	
==>co)
		{
			pos($grammar)-=6;
			_parseunneg("a new (error) production", $aftererror,
				    $lookahead,$line) or next;
			$prod->c <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25589	25693	
==>'sub',[$return,$temp,$return]);
    $self->_restore($temp);
  } else {
    $return = $self->_generate($no <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	12008	12123	
==>or die "Can't write $outfile: $!\n";

    print OUT page_header("Call Coverage for $source_file");
    print OUT "<p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113128	113434	
==>NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	41939	42095	
==>o four optional arguments (the same set as
C<extract_tagged> except for the string to be processed). It returns
a reference to a subroutine which in turn tak <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3928	4062	
==>ame => 'literal' });
        }

        my $ident = $2;
        $ident =~ s/^{(.*)}$/$1/; # Strip '{' and '}'.

        $handler->start <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	576	689	
==>return $parser->compile($expr, $ctx);
}

sub tree_to_list {
    my ($tree, $ctx, $pass_label, $fail_label, %option <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	22567	22686	
==>tion code for $name\n";
	$name =~ s/\./_/g;
	$pir .= "INS_TRANS_$name:\n";

    # Emit trace code.
    $pir .= <<PIR;
if <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	799	926	
==>k->push_content($self);

  return $self;
}

sub ident  { return shift->{IDENT};  }


#
# compile()
#

sub compile
{
  my $self = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	799	926	
==>k->push_content($self);

  return $self;
}

sub ident  { return shift->{IDENT};  }


#
# compile()
#

sub compile
{
  my $self = <==
2	/Users/nnunley/parrot/config/init/hints/cygwin.pm	857	1130	
==>ing.
    # A. Dougherty 9/9/2002
    $conf->data->set(
        build_dir           => $build_dir,
        ld                  => 'gcc',
        ld_share_flags      => '-shared',
        ld_load_flags       => '-shared',
        libs                => $libs,
        has_stat <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	12884	13052	
==>($atag<font color="red">$_</font>)
            } elsif ($_ =~ /call \d+ returns = 0%/) {
                print OUT qq($atag<font color="red">$_</font>)
            } els <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42888	43005	
==>= ref($_[0]) || $_[0];
	local $Parse::RecDescent::compiling = $_[2],
	my $self =
	{
		"rules"     => {},
		"namespace" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222615	222718	
==>Y" => "#line 509 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_CMP) >= <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	672	787	
==>TENT   => [ ]
  }, $class;

  $block->push_content($self);

  return $self;
}

sub peer { return shift->{PEER}; }

1 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	663	778	
==>TENT   => [ ]
  }, $class;

  $block->push_content($self);

  return $self;
}

sub peer { return shift->{PEER}; }

1 <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4858	4992	
==>s*)([^\n]+)\s*\Z/$1puts [$2]/m;

        $tests{$name} = [$expl, $body, $out];
    }

    return %tests;
}

##
## $string = format_test <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	11403	11532	
==>g, $type, $methodname, $parameters) = ($2,$3,$4,$5);
        my ($methodblock, $rema)                    = extract_balanced($class <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	6099	6261	
==>$line = $2;
            } elsif ($line =~ m/^#INVERSE_CONDITIONED_LINE\(([^)]+)\):(.*)/s) {
                next if $conf->data->get($1);
                $line = $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661956	662043	
==>_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662872	662959	
==>_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+ <==
2	/Users/nnunley/parrot/config/gen/PodText.pm	813	924	
==>cut

package gen::PodText;

use strict;
use vars qw($description $result @args);

use base qw(Parrot::Configure: <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7425	7589	
==>$lhs) eq '@'    #In line rule
            and do {
                    $lhs =~ /^\@[0-9]+\-([0-9]+)$/
                or  die "In line rule name '$lhs' ill formed <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7082	7243	
==>$lhs) eq '@'    #In line rule
            and do {
                    $lhs =~ /^\@[0-9]+\-([0-9]+)$/
                or  die "In line rule name '$lhs' ill formed <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748406	748905	
==>=> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 843,
                  "ARGS" => [
                              "p",
                              "n"
                            ],
                  "BODY" => "#line 199 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_number_native(interpr <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2384	2503	
==>var);
				}
			}
			if (@saves) {
				$edit.=qq{\tfind_global _GLOBALS, "COMMON"\n};
				foreach(@saves) {
					$edit.=q <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2793	2912	
==>var);
				}
			}
			if (@saves) {
				$edit.=qq{\tfind_global _GLOBALS, "COMMON"\n};
				foreach(@saves) {
					$edit.=q <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6722	6819	
==>rsively through parent Blocks for a Block with the
specified kind (such as a while loop) and label <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74073	74190	
==>ext, $prod, $min, $max, $_noactions, $argcode) = @_;

	my @tokens = ();
	my $reps;
	my $_savetext;
	for ($reps=0; $rep <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	5880	6155	
==>_sysmount' => 'define',
             'i_sysndir' => undef,
             'i_sysparam' => 'define',
             'i_sysresrc' => 'define',
             'i_syssecrt' => undef,
             'i_sysselct' => 'define',
             'i_syssocket' => 'define',
             'i_syssocki <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	18245	18410	
==>ser->get_title

This tries to get the title string out of $parser, by getting some tokens,
and scanning them for the title, and then ungetting them so that you can
pr <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	6872	7051	
==>X and Y
	
	push @{$code{$seg}->{code}},<<XANDY;
@codey	
	\$N100= $resulty
@codex	
	\$N101= $resultx
	_screen_locate(\$N101,\$N100)
XANDY
	} elsif (@codey and not @codex) {
	push @{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93202	93379	
==>",
                              "s"
                            ],
                  "BODY" => "#line 58 \"src/ops/bit.ops\"\n  string_bitwise_and(interpreter, {{\@1}}, {{\@2}}, <==
2	/Users/nnunley/parrot/tools/dev/symlink.pl	32	130	
==>a symlink tree shadowing the Parrot source tree.  Nifty for
# having just one (read-only) copy of t <==
2	/Users/nnunley/parrot/lib/File/Which.pm	4316	4443	
==>)

=head1 Steps Used on Win32, DOS, OS2 and VMS

=head2 Windows NT

Windows NT has a special environment variable called C<PATHE <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	5775	5982	
==>E(var):..." are skipped if
            # the "var" condition is false.
            # Lines with "#INVERSE_CONDITIONED_LINE(var):..." are skipped if
            # the "var" condition is true.
            if ($ <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	2816	2931	
==>= 1;
}

print <<END;
    </list>

    <contexts>

      <context name="default" attribute="Normal Text" lineEndConte <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	275	371	
==>=head1 DESCRIPTION

Displays the API (the visible symbols, code or data) of the Parrot lib.

Firs <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	1167	1286	
==>rs.

Op Direction:

    i   The argument is incoming
    o   The argument is outgoing
    io  The argument is both incom <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	10160	10287	
==>=> "i",
  "INTVAL"   => "I",
  "float"    => "f",
  "FLOATVAL" => "N",
  "double"   => "d",
  "STRING*"  => "S",
  "char*"    => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	625917	626088	
==>ROT_ARG_FLOATVAL:\n                args[1 + i] = (_reg_base + cur_opcode[2 + i]);\n                break;\n            default:\n                internal_exception(1, \"unh <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623201	623296	
==>\tinterpreter->current_returns = CUR_OPCODE;\n        n = PMC_int_val(mic->m.sig);\n\t{{+=n + 2} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101145	101406	
==>@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "F <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103351	103612	
==>@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "F <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574729	574839	
==>249 \"src/ops/object.ops\"\n    {{\@1}} = pmc_new_init(interpreter, enum_class_ParrotClass, {{\@2}});\n    {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575533	575643	
==>249 \"src/ops/object.ops\"\n    {{\@1}} = pmc_new_init(interpreter, enum_class_ParrotClass, {{\@2}});\n    {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	6751	7043	
==>d' => 'define',
             'i_ustat' => undef,
             'i_utime' => 'define',
             'i_values' => undef,
             'i_varargs' => undef,
             'i_varhdr' => 'stdarg.h',
             'i_vfork' => undef,
             'icu_dir' => '/opt/local',
             'icu_shared' = <==
2	/Users/nnunley/parrot/config/auto/env.pm	3	101	
==>opyright (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/config/auto/env.pm 19593 2006-05-30T02: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	424008	424538	
==>FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 487,
                  "ARGS" => [
                              "i",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 567 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	8548	8675	
==>test = $test ? 1 : 0;

    unless( $self->{Have_Plan} ) {
        require Carp;
        Carp::croak("You tried to run a test wit <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	513332	513606	
==>}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	50168	50303	
==>seif_star', 6,
sub
#line 207 "Lua\lua51.yp"
{
            [ @{ $_[1] }, [ $_[3], $_[6] ] ];
        }
	],
	[#Rule 35
		 '_elseif <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	2703	2805	
==>ures.  If no tests were ever run Test::Simple
will throw a warning and exit with 255.  If the test died <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170391	170481	
==>"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171332	171422	
==>"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149163	149260	
==>"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150104	150201	
==>"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	35848	36004	
==>rst
written my own ok() routines.  This module exists because I can't
figure out how to easily wedge test names into Test's interface (along
with a few other <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934202	934457	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":base_core",
                  "AR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934977	935232	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":base_core",
                  "AR <==
2	/Users/nnunley/parrot/lib/Test/More.pm	3450	3584	
==>erything has failed.  See L<BUGS and CAVEATS>)

In some cases, you'll want to completely skip an entire testing script.

  use Test::Mo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862514	862746	
==>g_length(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863283	863515	
==>g_length(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	35536	35707	
==>'cos'              => \&_op_cos,
  'tan'              => \&_op_tan,
  'asin'             => \&_op_asin,
  'acos'             => \&_op_acos,
  'atan'             => \&_op_at <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	13784	13923	
==>"<" => 3,
			"[" => 14,
			'CODE' => 6,
			"." => 15
		},
		GOTOS => {
			'expr' => 38,
			'charclass' => 12
		}
	},
	{#State 22
		ACTIONS = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	8464	8597	
==>e is $_[0].\n";

    # TODO: file-discipline things here!
  }

  $self->{'source_fh'} = $handle;
  DEBUG and print "  Its handle is $h <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	12197	12341	
==>od-codelbock-bold;}
{\*\cs28 \additive \f1\lang1024\noproof\sbasedon25 pod-codelbock-bold-ital;}

{\s31\ql \keepn\sb90\sa180\f2\fs%s\ul\sbasedon0 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	1096	1252	
==>) = @_;
    return op('seq' => [ map { $self->convert($_, $ctx) } @{ $tree->things } ]);
}

use vars qw($PAREN); # FIXME!!!
sub convert_rx_atom {
    my ($se <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	11135	11358	
==>ng [$e] is unsupported.",
      "\nSupporteds: @supported\n";
    my $suggestion = '';

    # Look for a near match:
    my $norm = lc($e);
    $norm =~ tr[-_][]d;
    my $n;
    foreach my $enc (@supported) {
      $n = lc( <==
2	/Users/nnunley/parrot/config/auto/alignptrs.pm	306	437	
==>w($description $result @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';
use Config;

$desc <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	16	123	
==>truct;

## See POD after __END__

use 5.005_03;

use strict;
# use warnings::register;
use vars qw(@ISA @EXP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797812	797982	
==>",
                              "n"
                            ],
                  "BODY" => "#line 462 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed(inter <==
2	/Users/nnunley/parrot/config/gen/platform.pm	3132	3453	
==>_HERE";
/*
** $_
*/
#line 1 "$_"
END_HERE
            print PLATFORM_H <IN_H>, "\n\n";
            close IN_H;
        } else {
            warn("Header file '$_' listed in TEMP_generated but not found\n");
        }
    }

    print PLATFORM_H <<'END_HERE';
#endif
END_HERE

    close PLATFORM_H;

    # implementation fi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090159	1090542	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice",
                  "FLAGS" => ":python",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1091218	1091601	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice",
                  "FLAGS" => ":python",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1724	1850	
==>t {
    my ($self, $distance, $failLabel) = @_;
    die "invalid distance" if $distance =~ /[^\d\-]/;
    return () if $distanc <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1477	1603	
==>t {
    my ($self, $distance, $failLabel) = @_;
    die "invalid distance" if $distance =~ /[^\d\-]/;
    return () if $distanc <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3814	3954	
==>res) {
		partial_link({}, $_ . "_ops$core_suffix") foreach (@oplibs);
	}
} 
elsif ($mode eq 'copy') {
	# Copy *.so -> destination, where dest <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6796	6909	
==>.
sub pre_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If we need a destination, we sim <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4734	4847	
==>.
sub pre_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If we need a destination, we sim <==
2	/Users/nnunley/parrot/config/gen/revision.pm	240	388	
==>ion.  In a release, there are no .svn directories,
so this field is empty.

=cut

package gen::revision;

use strict;
use vars qw($description $resul <==
2	/Users/nnunley/parrot/config/auto/gc.pm	1155	1277	
==>nf->data->get('i_malloc')) {
            $conf->data->set(malloc_header => 'malloc.h');
        } else {
            $conf- <==
2	/Users/nnunley/parrot/config/auto/memalign.pm	954	1064	
==>nf->data->get('i_malloc')) {
        $conf->data->set(malloc_header => 'malloc.h');
    } else {
        $conf- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	436	543	
==>my $class = shift;

  confess "Expected 5 args!" unless @_ == 5;

  my ($block, $prefix, $left, $op, $right) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	436	543	
==>my $class = shift;

  confess "Expected 5 args!" unless @_ == 5;

  my ($block, $prefix, $left, $op, $right) <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	645	743	
==>ons', '',
			$self->new_item('Ops to C Code Generation', 
			    'lib/Parrot/OpsFile.pm', 'lib/Parr <==
2	/Users/nnunley/parrot/config/gen/icu.pm	679	773	
==>, $icuconfig, $without) = $conf->options->get(@args);

    my @icu_headers = qw(ucnv.h utypes.h <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	3307	3640	
==>_num $N100, 0.0
    %1 = $I100
END_PIR
    $P0[unicode:"monadic:\x{f7}"] =  <<"END_PIR"            # reciprocal
    $N100 = %1
    $N100 = 1.0 / $N100
    %1 = $N100
END_PIR

    $P0[unicode:"monadic:\u2212"] =  "    %1 = neg %1"      # negate
    $P0[unicode:"monadic:\u2308"] =  <<"END_PIR"            # ceiling
    $N100 = %1
    $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1373	1472	
==>y(@params)=('LEX','RULES','STATES');

sub new {
    my($class)=shift;
	my($errst,$nberr,$token,$ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1327	1422	
==>y(@params)=('LEX','RULES','STATES');

sub new {
    my($class)=shift;
	my($errst,$nberr,$token,$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090809	1090902	
==>BODY" => "#line 191 \"src/ops/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1091869	1091962	
==>BODY" => "#line 191 \"src/ops/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpr <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10644	10741	
==>ion =~ tr/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
        $section = $self->unicode_escape_url($s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4025	4118	
==>ion =~ tr/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
    $section = $self->unicode_escape_url($s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	48384	48618	
==>) {
        DEBUG > 3 and print "Found complex start-text code \"$1\"\n";
        push @stack, length($1) - 1; 
          # length of the necessary complex end-code string
      } else {
        DEBUG > 3 and print "Found simple start- <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	61450	61743	
==>g => 0x17,
        #    Bit Value    Outputs
        #    0x01         Token reading (useful for Lexer debugging)
        #    0x02         States information
        #    0x04         Driver actions (shifts, reduces, accept...)
        #    0x08         Parse Stack dump
        #    0x1 <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36836	36960	
==>ck

=head2 Parrot::Pmc2c::delegate Instance Methods

=over 4

=cut

package Parrot::Pmc2c::delegate;
use base 'Parrot::Pmc2c' <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	38097	38195	
==>re:

=over 4

=item C<reject =E<gt> $listref>

The list reference contains one or more strings spec <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	4	107	
==>d: /parrot/languages/regex/lib/Regex/Driver.pm 18978 2006-04-30T14:02:48.452322Z bernhard  $

package Re <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	44569	44785	
==>) - 1) . ' ';
    } else {
      $formatting .= ' ' x (length($p->[$i-1]) - length($formatting));
    }
    # Make $formatting and the previous line be exactly the same length,
    # with $formatting having a " " as t <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	18807	18903	
==>E_HAS_CONST_TOO' : $self->{flags}{is_const} ?
	  'VTABLE_IS_CONST_FLAG' : 0;
    if (exists $self <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819742	819998	
==>ntry_type(interpreter, entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820702	820958	
==>ntry_type(interpreter, entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3703	3827	
==>=splice(@$inarray,0,2)) {
        $prm=uc($prm);
			exists($$checklist{$prm})
		or	croak("Unknow parameter '$prm'");
			r <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3511	3631	
==>=splice(@$inarray,0,2)) {
        $prm=uc($prm);
			exists($$checklist{$prm})
		or	croak("Unknow parameter '$prm'");
			r <==
2	/Users/nnunley/parrot/lib/Test/More.pm	20912	21047	
==>program, or for which you don't yet have code written.  For that you
use TODO.  Read on.

=cut

#'#
sub skip {
    my($why, $how_many) = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	3259	3377	
==>source before you can call get_token');
       
      DEBUG and print "$self 's source is filehandle $fh.\n";
      # R <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085263	1085773	
==>S" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1204,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 163 \"src/ <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	617	761	
==>test_module = $ENV{'PARROT_BC_TEST_MODULE'} || 'Parrot::Test::Bc::Antlr2';
                
    return bless {}, $test_module;
}

my %language_te <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355421	355685	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "write",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "fun <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	35867	35966	
==>n Test::Builder
will throw a warning and exit with 255.  If the test died, even after
having success <==
2	/Users/nnunley/parrot/lib/Test/More.pm	33938	34037	
==>n Test::Builder
will throw a warning and exit with 255.  If the test died, even after
having success <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6564	6742	
==>urse
}


###############################################################################

=head2 BLOCK->find_block(KIND [, LABEL])

Search this block and recursively through paren <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	229538	229772	
==>,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge_num",
                  "FLAGS <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	13499	13751	
==>function calls, switch statements, gotos
        # with labels, etc.).
        #
        # TODO: Complain about using, e.g. $3 in an op with only 2 args.
        #

        $branch   ||= $body =~ s/\bgoto\s+OFFSET\(\( (.*?) \)\)/{{+=$1}}/mg;
        $ab <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796626	797078	
==>"i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 899,
                  "ARGS" => [
                              "p",
                              "k",
                              "n"
                            ],
                  "BODY" => "#line 462 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed(inter <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9030	9231	
==>'';

        };

        #Error
            $$errstatus
        or   do {

            $$errstatus = 1;
            &$error($self);
                $$errstatus # if 0, then YYErrok has been ca <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8625	8816	
==>'';

        };

        #Error
            $$errstatus
        or   do {

            $$errstatus = 1;
            &$error($self);
                $$errstatus # if 0, then YYErrok has been ca <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52016	52168	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "trace",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494196	494406	
==>i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 590 \"src/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@2}}, {{\@3}});\n  { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011355	1011447	
==>" => "#line 39 \"src/ops/sys.ops\"\n  {{\@1}} = Parrot_Run_OS_Command(interpreter, {{\@2}});\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012120	1012212	
==>" => "#line 39 \"src/ops/sys.ops\"\n  {{\@1}} = Parrot_Run_OS_Command(interpreter, {{\@2}});\ <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	2157	2295	
==>1
    %1 = $I100
END_PIR

    $P0[unicode:"dyadic:\u2260"]  = <<"END_PIR"             # not equal
    $I100 = isne %1, %2
    %1 = $I100
EN <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	30636	30768	
==>($self, $node) = @_;
  my $return;

  my $func = $self->_generate(_get_arg ($node, 1));
  my @args = _get_args ($node, 2);
  die "app <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	22525	22662	
==>= $rule->{'name'};
	$pir .= "    # Translation code for $name\n";
	$name =~ s/\./_/g;
	$pir .= "INS_TRANS_$name:\n";

    # Emit trace cod <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16477	16737	
==>456789])/'&#'.(ord($1)).';'/eg;
            return $x;
        }
    }

    foreach my $x (@_) 
    {
        # Pod::Simple::HTML didn't check this.
        next unless $x;
        # Escape things very cautiously:
        $x =~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	331	441	
==>{
    my( $class, $plan, @args ) = @_;

    Test::More->import( $plan, @args );

    __PACKAGE__->_export_to_le <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	248	358	
==>{
    my( $class, $plan, @args ) = @_;

    Test::More->import( $plan, @args );

    __PACKAGE__->_export_to_le <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7974	8103	
==>estore($list, $copy, $head, $type);
  return $return;
}

sub _op_lambda {
  my ($self,$node) = @_;
  my $return;
  my $label = $se <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819565	819657	
==>y =\n    stack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n\n  if (! <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820525	820617	
==>y =\n    stack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n\n  if (! <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8058	8165	
==>xtra arguments!" if @_;

  my $found = $self->find_symbol($name);

  return $found ? $found->type : undef;
} <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	424	526	
==>class = shift;
  my ($block, $left, $right) = @_;

  confess("Block (" . ref($block) . ") not!") unless <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	415	517	
==>class = shift;
  my ($block, $left, $right) = @_;

  confess("Block (" . ref($block) . ") not!") unless <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5761	5888	
==>[".
#DBG>					 join(',',map { $$_[0] } @$stack).
#DBG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5487	5607	
==>[".
#DBG>					 join(',',map { $$_[0] } @$stack).
#DBG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defi <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	14256	14358	
==>-1]->{incase}=$incase+1;
		return;
	}

	my $lambda=<<GL;
	
	P0= P10[I25]
	P1= P0["SELECTS"]
	P5= P1["$j <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	8152	8326	
==>2]->tagname =~ m/^item-/s
          ) {
            # Bail out here, after setting rtfitemkeepn yea or nay.
            $self->{'rtfitemkeepn'} = '\keepn' if 
              $t <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1370	1474	
==>{PTEMP0} = ${STYPES}[${ITEMP0}]

# Assign register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3080	3184	
==>{PTEMP0} = ${STYPES}[${ITEMP0}]

# Assign register name.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_ <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	4429	4560	
==>:OpsFile->new( \@opsfiles, $nolines_flag );

    my $cur_code = 0;
    for(@{$ops->{OPS}}) {
        $_->{CODE}=$cur_code++;
    }
} <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32178	32306	
==>ion must use one of \${STACK0} or \${STOREREG} in rule " .
				"$rule->{'name'}\n";
		} elsif ("$rule->{'pir'}$rule->{'instructio <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4772	4892	
==>command requires destination";
    my $dest = $1;

    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        g <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4876	4996	
==>command requires destination";
    my $dest = $1;

    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        g <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25656	25765	
==>_NEXT_$forloop
FOR_LOOP_BODY_$forloop:
COND
	debug() if $debug;
	
	push @{$fors[$scopes]}, { var => $result, n <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7722	7821	
==>Truth
s$="Hello"
if s$ then print "This is true" else print "Oops (string)"
s$=""
if s$ then print " <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14709	14808	
==>Truth
s$="Hello"
if s$ then print "This is true" else print "Oops (string)"
s$=""
if s$ then print " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623371	623491	
==>ULL;\n    dest_pc = caller_ctx->current_results;\n    if (dest_pc) {\n\tdest_pred = (void**) dest_pc - caller_ctx->pred_o <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	165	311	
==>ndle_on { # some horrible frightening things are encapsulated in here
  my $class = shift;
  $class = ref($class) || $class;
  
  Carp::croak "Usag <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5250	5385	
==>ned($last)) {
            push @ops, "lt <rx_tmp>, $first, $fail"
              unless $first == 0;
            push @ops, "lt <rx_tmp>, <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	4583	4734	
==>n(\# *\n){2,}/\n\#\n/sg; # crush down double blank lines
	s/^\s*(\# *\n)+//s;         # remove leading
	s/\n(\# *\n)+\s*$/\n/s;     # remove trailing
	s <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2013	2136	
==>f($class);

    bless($self,$class);
}

sub YYParse {
    my($self)=shift;
    my($retval);

	_CheckParams( \@param <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1943	2057	
==>f($class);

    bless($self,$class);
}

sub YYParse {
    my($self)=shift;
    my($retval);

	_CheckParams( \@param <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	15971	16289	
==>alternatives that should be tried in
# turn, but the exact alternatives are unknown (eg because they're
# coming from an array.)
#
# @R ->          .local $counter
#                $counter = 0
#           try: R[$counter] or goto fail
#                push $counter
#                goto next
#          fail: $counter <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2104	2236	
==>, $got, $expected, $depends, :negate);
}

## eval_ok

sub eval_ok (Str $code, Str $desc?, :$todo, :$depends) returns Bool is export { <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	17291	17391	
==>result of type $type\n", @stream);		
	return($result, $type, @stream);
}
sub changename {
	my($name)= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669429	669846	
==>",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 749,
                  "ARGS" => [
                              "p",
                              "nc"
                            ],
                  "BODY" => "#line 410 <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	28954	29163	
==>lt of the test, so
it's type is 'unkown'.  These details for these tests are filled in.
They are considered ok, but the name and actual_ok is left undef.

For example "not ok 23 - hole count # TODO insufficient <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684069	684390	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "setprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684963	685284	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "setprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "func <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	639460	639581	
==>1 || typ >= interpreter->n_vtable_max) {\n\t      real_exception(interpreter, NULL, E_ValueError,\n\t\t      \"Illegal PMC <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	16972	17079	
==>ncase;
}



my $false;
my $whilecounter=0;
sub parse_while {
	$whilecounter++;
	push(@whiles, { jump => $whi <==
2	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	161	255	
==>nchmarks/stress2.pl - GC stress-testing

=head1 SYNOPSIS

    % time perl examples/benchmarks/s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	10147	10296	
==>ror = "Encoding is already set to " . $self->{'encoding'};
      DEBUG > 1 and print $enc_error;
    }
  } elsif (
    # OK, let's turn on the encodin <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35186	35298	
==>elf->{subrule} . ']<< (return value: [}
					. $_tok . q{]},
					  
					  Parse::RecDescent::_tracefirst($text) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117892	118120	
==>> "#line 226 \"src/ops/bit.ops\"\n  {{\@1}} >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118631	118859	
==>> "#line 226 \"src/ops/bit.ops\"\n  {{\@1}} >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	3913	4044	
==>->{args}->[0]->minlen() }
sub maxlen { my ($op) = @_; $op->{args}->[0]->maxlen() }
sub startset { my ($op) = @_; $op->{args}->[0]->s <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	721	838	
==>ad2 Options

=over 4

=item C<--plus-misses>

This creates a second section, with the heads of any files which had
fam <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	3077	3186	
==>$l = shift;
    my ($pc, $line ,$opcode, $arg, $rest);
    if ($l =~ /Disassembly of <?([\w:]+)>?/) {
	push @c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53219	53326	
==>BODY" => "#line 829 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Interp_flags_SET(interpreter,   PARROT_GC_DE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53975	54082	
==>BODY" => "#line 829 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Interp_flags_SET(interpreter,   PARROT_GC_DE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402318	402592	
==>> [
                              "p",
                              "i",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22443	22593	
==>en() . ')'
        );
        DEBUG and print "Ignoring mistargetted =end $content\n";
        next;
      }
      
      unless($content eq $curr_open <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129278	129574	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "T <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130016	130312	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "T <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587338	587773	
==>":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 668,
                  "ARGS" => [
                              "p",
                              "sc",
                              "k"
                            ] <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	892	993	
==>ression::Value');
  confess "Op is not scalar!" if ref $op;
  confess "Right is not Value!" unless UNI <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	904	1005	
==>ression::Value');
  confess "Op is not scalar!" if ref $op;
  confess "Right is not Value!" unless UNI <==
2	/Users/nnunley/parrot/Configure.pl	8989	9103	
==>::make
    inter::lex
    inter::yacc
    auto::gcc
    auto::msvc
    init::optimize
    inter::shlibs
    inter:: <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	5509	5627	
==>ess (@ARGV) {
    show_help();
    exit(1);
}

sub warn_if_both {
    my ($a, $b, $sa, $sb) = @_;
    if (defined $a && <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	31897	31998	
==>d the prefix returned in the third element is an
empty string.

In a scalar context, just the extracte <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	6000	6099	
==>g module.

=item L<Test::Unit>

Elaborate unit testing.

=item L<Test::Inline>, L<SelfTest>

Embed t <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2847	2992	
==>fset = REL_PC + $offset; interpreter->resume_flag = 1";
}

=item C<restart_address($address)>

Returns the C code for C<restart ADDRESS($address)> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	328004	328307	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_r4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	7208	7364	
==>') &&
		    $type =~ /^[BbSs]$/) {
		    if ($type =~ /^[Ss]$/) {
			$small  = 1;
			$uninit = 1;
		    }
		    $zeroed = 1;
		}
		if ($^O eq 'irix' && $type <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7989	8092	
==>s paragraph as done.
          DEBUG > 1 and print "Starting verbatim para at line ${$self}{'line_count' <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	1	222	
==>! perl -w
################################################################################
# Copyright (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/tools/dev/install_files.pl 19607 2006-05-30T15:23:20.183054Z coke  $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	278592	278878	
==>ODE" => 324,
                  "ARGS" => [
                              "i",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 886 \"src/ops/cmp.ops\"\n  {{\@1}} = (mmd_dispatch_i_pp(interpreter, {{\@2 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	4262	4414	
==>push @tokens, Jako::Token->new(
        $file, $line, $1, undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^(next|last|redo|goto|retur <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	4087	4226	
==>push @tokens, Jako::Token->new(
        $file, $line, $1, undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^(while|until| <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408277	408371	
==>ps/io.ops\"\n    {{\@1}} = (INTVAL)PIO_connect(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409176	409270	
==>ps/io.ops\"\n    {{\@1}} = (INTVAL)PIO_connect(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n" <==
2	/Users/nnunley/parrot/Configure.pl	5893	6037	
==>se the given compiler flags
   --ccwarn=(flags)     Use the given compiler warning flags
   --cxx=(compiler)     Use the given C++ compiler
   -- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	36987	37131	
==>UMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "throw",
                  "FLAGS" => "",
                  "ARGDIRS <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	5003	5102	
==>is a file
path and that file contains POD, then a link will be made to that file's
documentation fil <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	6606	6750	
==>swait' => 'define',
             'i_termio' => undef,
             'i_termios' => 'define',
             'i_time' => undef,
             'i_unist <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621129	621226	
==>c = interpreter->current_args;\n    mic = (Parrot_MIC *) cur_opcode[1];\n    caller_ctx = ctx->cal <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807879	807974	
==>n    {{\@1}} = {{\@2}}->vtable->get_number_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808784	808879	
==>n    {{\@1}} = {{\@2}}->vtable->get_number_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	843	940	
==>er compilations. But, string
# literals are subject to interpolation, and so they go through
# com <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	14761	14888	
==>e 29
		DEFAULT => -8
	},
	{#State 30
		ACTIONS => {
			'NUM' => 49,
			'CHAR' => 47,
			"]" => 50
		},
		GOTOS => {
			'classpie <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	263	373	
==>T{IO};
  $new->nix_X_codes(1);
  return $new;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676065	676288	
==>t_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676845	677068	
==>t_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	35088	35224	
==>ced.
(In a scalar context just the first element of the array would be returned. In
a void context, C<$text> would be replaced by an empt <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	68686	68863	
==>rpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "collec <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	69127	69304	
==>rpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "collec <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48116	48489	
==>JUMP_RESTART",
                  "NAME" => "bounds",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 62,
                  "ARGS" => [
                              "i"
                            ],
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48905	49163	
==>JUMP_RESTART",
                  "NAME" => "bounds",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 63, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1466	1621	
==>mple::DEBUG = non-constant $variable with val $value\n";
  } else {
    *Pod::Simple::DEBUG = eval " sub () { $value } ";
    print "# Starting Pod::Simple: <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1918	2019	
==>ation.
sub gen_label() {
	# This is a good place (as we call gen_label before translating
	# every ins <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	4792	5000	
==>" context="#pop" String="&quot;" />
      </context>

    </contexts>

END

print <<END;
    <itemDatas>
      <itemData name="Normal Text" defStyleNum="dsNormal" />
      <itemData name="Op" defStyleNum="dsNo <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	8616	8713	
==>Interp *interpreter, struct call_state *st, INTVAL val)
{
    Parrot_init_ret_nci(interpreter, st, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	626927	627138	
==>[
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 53 \"src/ops/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vta <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	5249	5450	
==>ne
    row_size = shape[1]
    pos = 1 
    iter = new .Iterator, arg
    value_type = 'String'
    unless iter goto loop_end_2d
  loop_2d:
    newline = 0
    if pos != row_size goto cont_2d
    newlin <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	11870	12108	
==>if ( $func =~ m/^pasm_output_/ ) {
                $code_f = per_test('.pasm', $test_no);
            }
            elsif ( $func =~ m/^past_/) {
                $code_f = per_test('.past', $test_no);
            }
            elsif ( $fun <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	4502	4633	
==>k_smoke($_) } glob "parrot-smoke-*.html";
  push @{ $cats{$category->($_)} }, $_ for @smokes;

  $cats{$_} = [
    (sort {
      $b- <==
2	/Users/nnunley/parrot/config/inter/charset.pm	262	377	
==>cut

package inter::charset;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Bas <==
2	/Users/nnunley/parrot/config/gen/platform.pm	1989	2131	
==>$platform/$_";
        }

        if (-e $header_file) {
            local $/ = undef;
            print("\t$header_file\n") if defined $verbos <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	13863	14006	
==>op @work, pop @work);
			my($a1, $a2, $ot1, $ot2);
			$ot1=$ot2=$optype;
			$a1=pushthing(\@code, \$ot1, @$op1);
			$a2=pushthing(\@code, \$ot2, <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	18318	18415	
==>ead2 read_dump( [$dir1, $dir2], $file );

Read in the class definition found in $file (which is fo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22855	22955	
==>ops/core.ops\"\n  opcode_t *dest;\n  PMC * const p = {{\@1}};\n  dest = {{^+2}};\n  interpreter->curr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25244	25344	
==>ops/core.ops\"\n  opcode_t *dest;\n  PMC * const p = {{\@1}};\n  dest = {{^+2}};\n  interpreter->curr <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25471	25568	
==>FORLOOP_STEP_$forloop, 0.0, FOR_GT_$forloop
	lt $result, FORLOOP_END_$forloop, AFTER_NEXT_$forloop <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	1059	1167	
==>f->new_group('Documentation', '', 
            $self->new_item('', 'lib/Parrot/Docs/Item.pm'),
            $s <==
2	/Users/nnunley/parrot/tools/dev/symlink.pl	471	585	
==>hile -l $self;

$self = File::Spec->catfile($cwd, $self)
    unless File::Spec->file_name_is_absolute($self);

my $ <==
2	/Users/nnunley/parrot/config/inter/charset.pm	1120	1273	
==>y $TEMP_charset_build = <<"E_NOTE";

# the following part of the Makefile was built by 'config/inter/charset.pm'

E_NOTE

    foreach my $charset (split(/ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1241	1355	
==>d adds these methods:

=over

=item $token->tagname

This returns the tagname for this start-token object.
For exam <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356684	356887	
==>tf(interpreter, INTVAL_FMT, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357344	357547	
==>tf(interpreter, INTVAL_FMT, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5832	5938	
==>= '';

	# Branches mean we need to deal with basic block-ish stuff. If the branch
	# did not pop anything i <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3770	3876	
==>= '';

	# Branches mean we need to deal with basic block-ish stuff. If the branch
	# did not pop anything i <==
2	/Users/nnunley/parrot/config/gen/platform.pm	4198	4497	
==>END_HERE";
/*
** begin.c
*/
#line 1 "config/gen/platform/$platform/begin.c"
END_HERE
        print PLATFORM_C <IN_C>, "\n\n";
        close IN_C;
    }

    # Copy the rest.
    print PLATFORM_C <<'END_HERE';
#include "parrot/parrot.h"

END_HERE

    for (@impls) {
        my $impl_file = "config/ge <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	12364	12476	
==>verse @args));
			$pir_args = ",$pir_args" if $pir_args;
			$extern=$sym;
			$optype=optype_of($extern);
			my ($ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11954	12056	
==>verse @args));
			$pir_args = ",$pir_args" if $pir_args;
			$extern=$sym;
			$optype=optype_of($extern) <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5548	5671	
==>stack[-1][0];
        $actions=$$states[$stateno];

#DBG>	print STDERR ('-' x 40),"\n";
#DBG>		$debug & 0x2
#DBG>	and	p <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5281	5399	
==>stack[-1][0];
        $actions=$$states[$stateno];

#DBG>	print STDERR ('-' x 40),"\n";
#DBG>		$debug & 0x2
#DBG>	and	p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710517	710693	
==>GS" => [
                              "i"
                            ],
                  "BODY" => "#line 50 \"src/ops/python.ops\"\n  PMC * const io = PIO_STDOUT(interpreter <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	4515	4664	
==>opy =~ /^installable/) {
            push @installable_exe, [$src, $dest];
            next;
        }
    } elsif ($meta{include}) {
        $dest =~ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956344	956672	
==>"o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1076,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 576 \"src/ops <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	17480	17664	
==>ncludes running any additional test
scripts.

It will exit with 255.

=cut

sub BAILOUT {
    my($self, $reason) = @_;

    $self->_print("Bail out!  $reason");
    exit 255;
}

=item B <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39645	39743	
==>r,
  'eof-object?' => \&_op_eof_object_p,
  'char-ready?' => \&_op_char_ready_p,
  'write' => \&_op <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	918	1062	
==>compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $block = $self->block;
  my $ident = $self->ident->value;

  $compiler->emit("_LABEL_$ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7072	7172	
==>l   (1): ", instr(s1$, "")
print "Start (11): ", instr(6, s1$, " ")
print "Inval  (0): ", instr(4, bo <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18801	18901	
==>l   (1): ", instr(s1$, "")
print "Start (11): ", instr(6, s1$, " ")
print "Inval  (0): ", instr(4, bo <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	326	571	
==>run_indent.pl - Check indentation in C files

=head1 SYNOPSIS

    % perl tools/dev/run_indent.pl file1 [file2 ...]

=head1 DESCRIPTION

This script ensures that the specified C source files have correct
indentation.

You will need to have C<C::S <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	316374	316794	
==>\");\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i2",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319306	319579	
==>\");\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" = <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	2779	2963	
==>ild/pbc2c.pl                            [devel]
    tools/build/revision_c.pl                       [devel]
    vtable.tbl                                      [devel]
);

open my $MANI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029840	1029946	
==>Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_event(interpreter, {{\@1}}, next);\n  {{=next}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030682	1030788	
==>Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_event(interpreter, {{\@1}}, next);\n  {{=next}};\ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49748	49922	
==>'my ($match,@res);
					 ($match,$text,undef,@res) =
						  Text::Balanced::extract_quotelike($text,$skip);
					  $match ? \@res : undef;
					', $lookahead,$line,"<perl_quo <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	26560	26710	
==>ds all the
# fallback points together.
sub rewrite_seq {
    my $self = shift;
    my $op = shift;
    my $fallback = pop;

    my @ops;
    foreach (@ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	62468	62605	
==>ad identifier after dereferencer>

C<extract_variable> found a '$', '@', or '%' indicating a variable, but that
character was not followed <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1363	1462	
==>ameters
my(@params)=('LEX','RULES','STATES');

sub new {
    my($class)=shift;
	my($errst,$nber <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1318	1412	
==>ameters
my(@params)=('LEX','RULES','STATES');

sub new {
    my($class)=shift;
	my($errst,$nber <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	785	909	
==>the Perl 6 pattern, passing the test
if they match.  Note that patterns should be specified as strings
and without leading/tr <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2883	3007	
==>the Perl 6 pattern, passing the test
if they match.  Note that patterns should be specified as strings
and without leading/tr <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	23111	23252	
==>y = @$is;
        DEBUG > 4 and print "    Renaming $was node to $dynasty[-1]\n"; 
        $treelet->[$i][0] = pop @dynasty;
        my $nugge <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047126	1047422	
==>ction",
                  "CODE" => 1170,
                  "ARGS" => [
                              "kc",
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	317841	318258	
==>\");\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u2",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TY <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314913	315155	
==>\");\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	668	772	
==>NV{TEST_PROG_ARGS} || '';

    $lang_f = File::Spec->rel2abs($lang_f);
    $out_f  = File::Spec->rel2abs( <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	705	809	
==>NV{TEST_PROG_ARGS} || '';

    $lang_f = File::Spec->rel2abs($lang_f);
    $out_f  = File::Spec->rel2abs( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11057	11165	
==>tack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  {{+={{\@1}}}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11846	11954	
==>tack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  {{+={{\@1}}}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	310663	310894	
==>B_set_break(interpreter,NULL);\n\n    {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "debug_print",
                  "FL <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	64	260	
==>ib/Parrot/Docs/Section/Parrot.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Section::Parrot - Root documentation section

=head1 SYNOPSIS

    use Parrot::Docs::Secti <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	8958	9062	
==>med your test '$name'.  You shouldn't use numbers for your test names.
    Very confusing.
ERR

    my($p <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	3623	3794	
==>Rivests MD5 Algorithm

=head1 DISCLAIMER

This is B<not> an interface (like C<Digest::MD5>) but a Perl implementation of MD5.
It is written in perl only and because of this <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8177	8337	
==>eck eq 'ABORT'
            and	do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Abort.\n";

				return(undef);

			};

#DBG>			$debug & 0x04
#DBG> <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7808	7957	
==>eck eq 'ABORT'
            and	do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Abort.\n";

				return(undef);

			};

#DBG>			$debug & 0x04
#DBG> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147021	147315	
==>on",
                  "CODE" => 179,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 98 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integ <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2396	2617	
==>.= "\r",      # carriage return
                last;
            s/^\\t//
                and $str .= "\t",      # horizontal tab
                last;
            s/^\\v//
                and $str .= "\x0b",    # v <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3910	4131	
==>.= "\r",      # carriage return
                last;
            s/^\\t//
                and $str .= "\t",      # horizontal tab
                last;
            s/^\\v//
                and $str .= "\x0b",    # v <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2084	2184	
==>r')) {
      my $arg_sym = $self->block->find_symbol($args[$i]->value);
      $self->SYNTAX_ERROR("Un <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1784	1884	
==>r')) {
      my $arg_sym = $self->block->find_symbol($args[$i]->value);
      $self->SYNTAX_ERROR("Un <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	1520	1765	
==>otals = (
    lines            => 0,
    covered_lines    => 0,
    branches         => 0,
    covered_branches => 0,              
    calls            => 0,
    covered_calls    => 0
);

# We parse the output of the 'gcov' command, so we do not <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	4244	4330	
==>}
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

#s <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	47636	47736	
==>delimiter of the here document),
which would cause the earlier " || die;\nexit;" to be skipped in any <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6476	6716	
==>f ($entry->[4] =~ /_FLOAT$/);
    $macros .= <<"EOM";
        \"__$entry->[1]\",
EOM
    }
    $macros .= <<"EOM";
    NULL
};

#endif
EOM

    $macros;
}

=item C<vtbl_embed($vtable)>

Returns the C function definitions to call the vtable m <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34183	34293	
==>::lastunexpected = $text;
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' )
		. ($self->{"lookahead"}< <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	18806	18903	
==>elf->{items}}[$i];

		$code .= preitempos() if $parser->{_check}{itempos};

		$code .= $item->code <==
2	/Users/nnunley/parrot/config/auto/signal.pm	1236	1349	
==>n => 'define');
        print " (sigaction)" if $verbose;
    }
    cc_clean();

    cc_gen('config/auto/signal/te <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	3189	3288	
==>arset_dir, 'tables.h');
open STDOUT, '>', $h_file
    or die "can not open '$h_file': $!\n";
print < <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	337711	337992	
==>n",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 395,
                  "ARGS" => [
                              "p <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41189	41392	
==>175
		ACTIONS => {
			"=" => 191
		}
	},
	{#State 176
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			" <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	7447	7642	
==>_%0/g;
        }

        # args
        while ($line =~ s/\$(?!(?:P|S|N|I)\d+|R\b)(\w+)/a_$1/)
        {
            my $name = $1;
            my $arg  = $args{$name};
            
            i <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2935	3104	
==>harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # test result
              | " ((?:[^" <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4332	4501	
==>harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # test result
              | " ((?:[^" <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	618	753	
==>se Parrot::Docs::HTMLPage;

=item C<root_section()>

Returns the root section.

=cut

sub root_section
{
    require Parrot::Docs::Secti <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	1686	1809	
==>nifest);
while(<>) {
    chomp;
    my ($file, $meta, $dest) = split(/\s+/, $_);
    $dest ||= $file;
    my $generated = $m <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	2686	2840	
==>$self->_add_inst ('','store_lex',["\"$symbol\"",$value]);
}

sub _new_lex {
  my ($self, $symbol, $value) = @_;
  $self->_add_inst ('','store_lex',[-1,"\"$ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7467	7578	
==>ch\n"
FIN:
for i = 1 to 3
	on i gosub oats, peas, beans
next i
print
end
100 print "100!"
    goto FIN
200 print <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19750	19861	
==>ch\n"
FIN:
for i = 1 to 3
	on i gosub oats, peas, beans
next i
print
end
100 print "100!"
    goto FIN
200 print <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	50811	50979	
==>,
sub
#line 235 "Lua\lua51.yp"
{
            PrepareMethod( $_[0] );
            [
                @{ $_[1] },
                BuildLiteral( $_[0], $_[3], 'key' ) <==
2	/Users/nnunley/parrot/config/auto/m4.pm	651	751	
==>name = $Config{archname};
    my ($cpuarch, $osname) = split('-', $archname);
    if (!defined $osnam <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4730	4839	
==>ore_func_start()>

Returns the C code prior to the run core function.

=cut

sub run_core_func_start
{
    ret <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3018	3127	
==>ore_func_start()>

Returns the C code prior to the run core function.

=cut

sub run_core_func_start
{
    ret <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Examples.pm	57	160	
==>/lib/Parrot/Docs/Section/Examples.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	758	850	
==>ss UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Left is not Value!" unless UN <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	770	862	
==>ss UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Left is not Value!" unless UN <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784360	784617	
==>mc_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785266	785523	
==>mc_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	4165	4386	
==>e Representation and generate Parrot Assembler Code.
Pass if the generated PASM matches $expected.

=item C<pir_2_pasm_isnt($code, $unexpected, $description)>

Compile the Parrot Intermediate Representation and generate Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598534	598897	
==>ss",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 678,
                  "ARGS" => [
                              "p",
                              "sc <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5926	6029	
==>ult,$op,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		($a1,$a2 <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	691	895	
==>e));
    my $is_mingw = grep { $cc eq $_ } (qw(gcc gcc.exe));
    my $is_bcc   = grep { $cc eq $_ } (qw(bcc32 bcc32.exe));

    $conf->data->set(
        win32             => 1,
        PQ                = <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	78714	78809	
==>( $RD_ERRORS $RD_WARN $RD_HINT $RD_TRACE $RD_CHECK );
$::RD_CHECK = 1;
$::RD_ERRORS = 1;
$::RD_W <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599581	599844	
==>ss",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 679 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383629	383985	
==>,
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 448,
                  "ARGS" => [
                              " <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	3564	3672	
==>nt:
    set valid_flag, 1
    ret
.end
END
}

sub output_rule_body {
    my ($self, $fh, $subname, $rule, $ct <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1464	1607	
==>y $PIR;
    open($PIR, '>', $filename) or die "create $filename: $!";

    my $ctx = { };
    my $trees = Regex::expr_to_tree($pattern, $ctx, DE <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	26311	26474	
==>ation; probably missing description for TODO test"
        );
    } else {
        warn $warning;
    }
}

package DB;

sub uplevel_args {
    my @foo = caller( 2 ) <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2874	3019	
==>tion
             \s+ (?:\S+ \s+)? \{ \n     # optional test harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \ <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4271	4416	
==>tion
             \s+ (?:\S+ \s+)? \{ \n     # optional test harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \ <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	3021	3152	
==>"set_nci_I(interpreter, &st, return_data);",
       4 => "set_nci_I(interpreter, &st, *return_data);",
       3 => "set_nci_I(interp <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	493	619	
==>re a group
# scan : Scan through input until R matches
# atend : At the end of the input?
# advance : Unconditionally advance 1 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	329	427	
==>Construct::Block::Loop::Continue;

use Carp;

use base qw(Jako::Construct::Block::Loop);


#
# new( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49972	50184	
==>,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 800 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PA <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	49960	50073	
==>r quotelike operator. If found, call
C<extract_quotelike> to eat it. If C<extract_quotelike> fails, return
the err <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	6247	6570	
==>rn $self->rewrite($R, $lastback);
}

# Most general case:
#
# ( R ) ->
#                  push start[n]
#                  push end[n]
#                  start[n] <- pos
#                  R or rfail
#                  end[n] <- pos
#                  goto next
#
#           rfail: pop -> end[n]
#                  pop -> s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586523	586692	
==>,
                              "k"
                            ],
                  "BODY" => "#line 314 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(inter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587709	587878	
==>,
                              "k"
                            ],
                  "BODY" => "#line 314 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(inter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088035	1088391	
==>> 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090989	1091345	
==>> 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4245	4348	
==>eturn;
	}
	my($fname)=__FILE__;
	my(@drv);
	open(DRV,"<$fname") or die "Report this as a BUG: Cannot <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4029	4128	
==>eturn;
	}
	my($fname)=__FILE__;
	my(@drv);
	open(DRV,"<$fname") or die "Report this as a BUG: Cannot <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15538	15667	
==>r, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new AssignOp( $pa <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19291	19420	
==>r, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new AssignOp( $pa <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	878	1000	
==>ns the tagname for this end-token object.
For example, parsing a "=head1 ..." line will give you
a start-token with the tag <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	4647	4756	
==>rrayref'}}), " items left in it.\n";

      DEBUG > 3 and print "  Fetching ", Pod::Simple::MANY_LINES, " line <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4941	5268	
==>/^(\n)//
                and $parser->YYData->{lineno}++,
                $str .= $1,
                last;

            s/^\]$level\]//
                and return ( $type, $str );

            s/^(.)//
                and $str .= $1,
                last;
        }
    }

    $parser->Error("Untermined raw strin <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	156	318	
==>erse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say("Empty compile time value given to lib.import()");
        }
        if (-e $pat <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	18819	18941	
==>TOO' : $self->{flags}{is_const} ?
	  'VTABLE_IS_CONST_FLAG' : 0;
    if (exists $self->{flags}{need_ext}) {
        $vtbl_f <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	116	253	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub handle_on { # some horrible frightening things are encapsulated in here
  my $class = shift <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	2110	2225	
==>ile =~ s/\$\{trans_class_library\}/$class_lib_make/g;
	
	# Write makefile.
	open $fh, "> Makefile" or die "Unable <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1014825	1015078	
==>,
                  "ARGS" => [
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 77 \"src/ops/sys.ops\"\n  const char * const tmp = strerror({{\@2}});\n  {{\@1}} = stri <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1698	1812	
==>');
}

sub output_increment {
    my ($self, $distance, $failLabel) = @_;
    die "invalid distance" if $distance = <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1451	1565	
==>');
}

sub output_increment {
    my ($self, $distance, $failLabel) = @_;
    die "invalid distance" if $distance = <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34882	34989	
==>unknown
methods.

=cut

sub body
{
    my ($self, $method, $line, $out_name) = @_;

    my $meth = $method-> <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4432	4545	
==>P0}
PIR
		$pir =~ s/\$push_num/$push_num/g;
		$push_num++;
	}

	# Return generated code.
	return $pir;
}

sub post <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2848	2961	
==>P0}
PIR
		$pir =~ s/\$push_num/$push_num/g;
		$push_num++;
	}

	# Return generated code.
	return $pir;
}

sub post <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	9176	9309	
==>open my $fh, BUCKET, O_RDWR|O_CREAT
    or die "Couldn't open \"@{[ BUCKET ]}\": $!\n";
  flock $fh, LOCK_EX
    or die "Couldn't floc <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	5137	5267	
==>mt;
    }

    # Push first statement on the queue
    my @Q = ($output2[0]);

  BBLOCK:
    while (my $stmt = shift(@Q)) {
	next i <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	15970	16052	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _get <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	122	246	
==>e  $

=head1 NAME

Parrot::IO::Path - Path

=head1 DESCRIPTION

C<Parrot::IO::Path> is an abstract superclass providing commo <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	539	662	
==>_init and do {
    unlink $outfile;
    exit;
};

$file = shift @ARGV;
$file =~ s/\.c$//;
my $infile = $file . '.c';
die "$0 <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	5443	5554	
==>eturn qq{#line $line "$file_escaped"\n};
    }
    return qq{#line $line\n};
}

=item C<line_directive_here($sel <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4761	5058	
==>= $_[0];
  my $fh = $self->{'output_fh'};
  
  my($token, $type, $tagname, $scratch);
  my @stack;
  my @indent_stack;
  $self->{'rtfindent'} = 0 unless defined $self->{'rtfindent'};
  
  while($token = $self->get_token) {
  
    if( ($type = $token->type) eq 'text' ) {
      if( $self->{'rtfverba <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	603533	603776	
==>ps/object.ops\"\n    {{\@1}} = VTABLE_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78891	78985	
==>s/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  void * cons <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80412	80506	
==>s/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  void * cons <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	247111	247576	
==>GS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 287,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => " <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	3223	3413	
==>= $2;
                $asm = q{};
                next;
            }
        }
        if ($line =~ m/^}/) { #{
            # 1. check templates
            while (my($t, $body) = each(%temp <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	9596	9725	
==>plex.h
csqrt       complex.h
csqrtf      complex.h
csqrtl      complex.h
ctan        complex.h
ctanf       complex.h
ctanh       c <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6645	6793	
==>(target)

            unless match goto match_fail
          match_success:
            print "matched"
            goto match_end
          match_fa <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7663	7810	
==>(target)
            unless match goto match_fail
          match_success:
            print "matched"
            goto match_end
          match_fa <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9023	9147	
==>ip_open_brace) { # DEFINITION
        $self->require_semicolon;
      }
      else {
        my $sub = Jako::Construct::Block <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	854	946	
==>ined &DEBUG
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7370	7510	
==>t->type eq 'text' ) {
          $self->unget_token($next);
          next;
        }
        DEBUG and print "    raw text ", $next->text, "\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9615	9755	
==>t->type eq 'text' ) {
          $self->unget_token($next);
          next;
        }
        DEBUG and print "    raw text ", $next->text, "\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1885	1988	
==>l stringification of objects of this class;
they stringify to just the text content of the section,
such <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30432	30597	
==>' => 84,
			"]" => 150,
			">" => 86
		}
	},
	{#State 98
		ACTIONS => {
			"," => 151,
			")" => 152
		}
	},
	{#State 99
		DEFAULT => -92
	},
	{#State 1 <==
2	/Users/nnunley/parrot/tools/util/pirtidy.pl	588	706	
==>pir( $line );
    }

    my $output = $formatter->get_formatted();
    print {$ofh} $output;

    close $ifh;
    close <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2219	2316	
==>tack_depth
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Decrement stack heigh <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3471	3568	
==>tack_depth
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Decrement stack heigh <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7232	7387	
==>t
#DBG>		and	print STDERR "Reduce using rule ".-$act." ($lhs,$len): ";

                $act
            or  $self->YYAccept();

            $$dotpos= <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6897	7046	
==>t
#DBG>		and	print STDERR "Reduce using rule ".-$act." ($lhs,$len): ";

                $act
            or  $self->YYAccept();

            $$dotpos= <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	705	820	
==>Defaults to '/usr'.

=item C<bindir>

The executables directory. Defaults to '/usr/bin'.

=item C<libdir>

The libra <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	934	1049	
==>Defaults to '/usr'.

=item C<bindir>

The executables directory. Defaults to '/usr/bin'.

=item C<libdir>

The libra <==
2	/Users/nnunley/parrot/config/auto/va_ptr.pm	362	453	
==>:Configure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Test the typ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19318	19452	
==>be found, then get_short_title returns empty-string
("").

=item $author_name   = $parser->get_author

This works like get_title except <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12423	12575	
==>($parser);
                push @opcodes, @{ $global->[1] };
                my $key = BuildLiteral( $parser, $idf, 'key' );
                push @opc <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16931	17083	
==>($parser);
                push @opcodes, @{ $global->[1] };
                my $key = BuildLiteral( $parser, $idf, 'key' );
                push @opc <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15799	15916	
==>on
y=66.66
u=foo()

' Bubble sort cities
TRUE=1
FALSE=0
DIM A$(4)
A$(1) = "New York"
A$(2) = "Boston"
A$(3) = "Chicago <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	10331	10685	
==>his should be specified at the very top of your tests.

- `force_todo (*@todo_tests) returns Void`

If you have some tests which you would like to force into being TODO tests
then you can pass them through this function. This is primarily a release
tool, but can be useful in other contexts as well.

== Testing Functions

- `use_ok (Str $module, Bool :$t <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	5529	5644	
==>ow_help();
    exit(1);
}

sub warn_if_both {
    my ($a, $b, $sa, $sb) = @_;
    if (defined $a && defined $b && $a <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	43140	43317	
==>e} .= "\n";
  }
}

sub new {
  my $class = shift;
  my $tree  = shift;
  my $self = {
    tree     => $tree,
    regs     => _new_regs,
    frames => [],
    gensym   => 0,
    f <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	30278	30396	
==>p @stack;
    my $key = $x->[1];
    if ($v->[0] eq 'hash') {
	if ($key =~ /^\d+$/) {
	    $key = qq!"$key"!;
	}
	elsif <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4733	4878	
==>captures = "";
    }
    return qq(
        .sub _PGE_Test
            .local pmc p6rule_compile
            load_bytecode "PGE.pbc"
            l <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	40075	40205	
==>ink_text->[-1] .= ' in ' if $section_name;
          push @$link_text, @ell_content;
        }
      }


      # And the E resolver <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21146	21258	
==>okahead"} ? '$_savetext = $text;' : '' ) .'

		$_tok = ($_noactions) ? 0 : do ' . $self->{"code"} . ';
		' . ($se <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	420	530	
==>ritten to the standard\n",
        "output.\n\n";
    exit;
}

$parrot =~ s/\/$//;

my @imcc_oplike = qw(.sym . <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	5422	5581	
==>e its a string, somewhere.
    my $op    = $props{op}    ? $props{op}->value    : $name;

    if ($type) {
      $handler->start_element({
        Name       => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	706287	706823	
==>,
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 792,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 670 \"src <==
2	/Users/nnunley/parrot/tools/build/revision_c.pl	357	462	
==>LSO

F<config/gen/revision.pl>,
F<lib/Parrot/Revision.pm>,
F<include/parrot/config.h>

=cut

use strict;
u <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862457	862550	
==>" => "#line 138 \"src/ops/string.ops\"\n  {{\@1}} = string_length(interpreter, {{\@2}});\n  {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863226	863319	
==>" => "#line 138 \"src/ops/string.ops\"\n  {{\@1}} = string_length(interpreter, {{\@2}});\n  {{ <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	3045	3159	
==>my $self = shift;
    my $content = $self->read;
    # Break up the $Id to prevent svn messing with it.
    my ($id <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2484	2588	
==>declare the constant, we will place its
  # definition into the block at the top of the block stack. We f <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2231	2335	
==>declare the constant, we will place its
  # definition into the block at the top of the block stack. We f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464934	465273	
==>}, den);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dec",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15105	15253	
==>_token_class'}->new(@_);
  return;
}

sub _handle_text {
  my $self = shift;   # leaving ($text)
  DEBUG > 2 and print "== $_[0]\n";
  push @{ $self- <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48153	48268	
==>);
			if ($grammar =~ m/\G[(]/gc)
			{
				pos($grammar)--;

				if ($grammar =~ m/$OPTIONAL/gco)
					{ ($minrep, $ <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	3272	3405	
==>names of all the files and subdirectories in the
directory.

=cut

sub file_and_directory_names()
{
    my $self = shift;
    my $dh = <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	41211	41336	
==>>{'*UP*'};
  }
  if (!$scope) {
    push @{$self->{functions}}, $symbol
      unless grep { $_ eq $symbol} @{$self->{functions <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224265	224578	
==>"function",
                  "CODE" => 262,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 516 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpr <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10828	10958	
==>Deletes the directory and all its contents, removes the instance from
the cache, and undefines it.

Raises an exception if the dele <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15873	15986	
==>xpr);		# Repair unary -, functions, etc...
		@stream=convert_to_rpn(@expr);	# Get infix into RPN
		($result,$type, <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	17024	17137	
==>xpr);		# Repair unary -, functions, etc...
		@stream=convert_to_rpn(@expr);	# Get infix into RPN
		($result,$type, <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2657	2755	
==>ompiler);

  my $dest_name = $dest->value;
  $dest = $dest->compile($compiler);

  $compiler->emit( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20740	20857	
==>matchcount, 1 ]),
     $check => aop('lt', [ $matchcount, $min, $local_back ]),
      $next => $self->op_save_rxlocals <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9794	9897	
==>struct::Expression::Value->new($block, $self->require_value);
      my $op    = $self->require_infix_rel <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25330	25433	
==>struct::Expression::Value->new($block, $self->require_value);
      my $op    = $self->require_infix_rel <==
2	/Users/nnunley/parrot/config/inter/charset.pm	1728	1837	
==>P_charset_o     => $TEMP_charset_o,
        TEMP_charset_build => $TEMP_charset_build,
    );

    return $sel <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569311	569489	
==>{{\@1}} = {{\@2}}->vtable->isa(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570204	570382	
==>{{\@1}} = {{\@2}}->vtable->isa(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1489	1602	
==>e
    ;
    
    print {$_[0]{'output_fh'}} $indent, '* "', $text, "\"\n";
  }
  return;
}

sub _handle_element_en <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667109	667532	
==>sh",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 746,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 405 \"sr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129786	130031	
==>line 301 \"src/ops/bit.ops\"\n  {{\@1}} ^= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130525	130770	
==>line 301 \"src/ops/bit.ops\"\n  {{\@1}} ^= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	67874	68142	
==>finition must be
				   on the same line as the rule name?");
		}
		elsif ($grammar =~ m/$ACTION/gco   ) # BAD ACTION, ALREADY FAILED
		{
			_error("Malformed action encountered",
			       $line);
			_hint("Did you forget the closing curly bracket
			       or is ther <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35274	35434	
==>ld never happen
          }

          if(@$para == 2) {
            # For the cases where we /didn't/ push to @$para
            if($paras->[0][0] eq '~Para') { <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	21618	21808	
==>JUMP_IF_x got rewritten
    if ($r->[2] eq 'I' && $l->[2] eq 'I') {
	print <<"EOC";
	$op $l->[1], $r->[1], $targ $cmt
$label
EOC
    }
    else {
	my $nl = promote($l);
	my $nr = $r->[1];
	$n <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	806	899	
==>k');
  confess "Left is not Value!" unless UNIVERSAL::isa($left, 'Jako::Construct::Expression: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	818	911	
==>k');
  confess "Left is not Value!" unless UNIVERSAL::isa($left, 'Jako::Construct::Expression: <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	5471	5569	
==>anscoding:
    $self->{'_transcoder'} && $self->{'_transcoder'}->($line);

    # HERE WE CATCH =enc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011376	1011528	
==>ops/sys.ops\"\n  {{\@1}} = Parrot_Run_OS_Command(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012141	1012293	
==>ops/sys.ops\"\n  {{\@1}} = Parrot_Run_OS_Command(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	14799	15224	
==>mg)
        {
            $branch = 1;
            $restart = 1;
        }
        elsif($body =~ s/\brestart\s+NEXT\(\)/{{=0,+=$op_size}}/mg)
        {
            $restart = 1;
            $next = 1;
        }
        elsif($short_name eq 'branch_cs' || $short_name eq 'returncc')
        {
            $restart = 1;  # dest may be NULL to leave run-loop
        }
        elsif ($body =~ s/\brestart\s+ADDRESS\((.*?)\)/{{=$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1004458	1004800	
==>DE" => 1121,
                  "ARGS" => [
                              "i",
                              "i",
                              "s",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8223	8432	
==>$self->output_label_use($fallback);
    push @ops, "goto $L_fallback if <rx_tmp> == -1; # was a mark?";
    push @ops, "$reg = <rx_tmp>; # nope, set pos := popped index"
      unless $reg eq '$<rx_tmp>';
    re <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13617	13833	
==>lf->_gensym();

  _num_arg ($node, 1, 'pair?');

  my $item = $self->_generate(_get_arg($node,1));

  $return = $self->_save_1 ('I');

  if ($item =~ /^[INS]/) {
    $self->_add_inst ('', 'set', [$return,0]);
  }
  el <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	10232	10393	
==>' . $PConfig{exe});

    my %parrot_test_map = (
        pbc_output_is      => 'is_eq',
        pbc_output_isnt    => 'isnt_eq',
        pbc_output_like    => 'li <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	38	182	
==>undation.
# $Id: /parrot/languages/lua/t/Parrot/Test/Lua.pm 19606 2006-05-30T15:08:05.048089Z coke  $

package Parrot::Test::Lua;

use stric <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	18035	18248	
==>o lastback
#               $matchcount--
#               goto R.back
#        check: if $matchcount < min goto back
#         next:
#
# to make $matchcount local, we will choose a different name for every
# instanc <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	10168	10342	
==>e generated constructor method uses a two-argument blessing.
Furthermore, if the class is hash-based, the key of each element is
prefixed with the class name (see I<Perl Cookb <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	28310	28452	
==>pen)->[1]{'~type'} )
        );
      } else {
        DEBUG > 1 and print "=back found without a matching =over.  Stack: (",
            join( <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	1999	2322	
==>'perl6.html', '', 'languages/perl6'),
        $self->new_section('pheme', 'pheme.html', '', 'languages/pheme'),
        $self->new_section('Pugs', 'pugs.html', '', 'languages/pugs'),
        $self->new_section('Punie', 'punie.html', '', 'languages/punie'),
        $self->new_section('Python', 'python.html', '', 'languages/ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	21459	21768	
==>troducing extension
                                                 ( pasm | pir | imc | past ) # match and capture the extension
                                                 \z                          # at end of string
                                               }ixms or Usage();
            if ( d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630987	631379	
==>",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 707,
                  "ARGS" => [
                              "p",
                              "kc"
                            ] <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	1658	1838	
==>_item('', 'lib/Parrot/BuildUtil.pm'),
			$self->new_item('', 'lib/Parrot/Configure'),
			$self->new_item('', 'lib/Parrot/Config.pm'),
		),
		$self->new_group('Testing', '',
			$self <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	30227	30322	
==>" in older perlpods), or undef if none. E.g., in
# Getopt::Std/DESCRIPTION, "DESCRIPTION" is the <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	2762	2904	
==>btab = shift @{ $parser->YYData->{scope} };
    $parser->YYData->{symbtab} = $symbtab;
    $parser->YYData->{lex_num} ++;
##    warn "PopSco <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87498	87913	
==>@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new_callback",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031501	1031616	
==>m_last_type)\n        {{\@1}} = -1;\n    else\n        {{\@1}} = data_types[{{\@2}} - enum_first_type].size;\n  {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032370	1032485	
==>m_last_type)\n        {{\@1}} = -1;\n    else\n        {{\@1}} = data_types[{{\@2}} - enum_first_type].size;\n  {{+= <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	3084	3196	
==>butes => { kind => 'then' } });
  }

  $handler->start_element({ Name => 'goto', Attributes => { label => $name } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1051696	1052127	
==>d_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1175,
                  "ARGS" => [
                              "p",
                              "s",
                              "sc" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	31102	31244	
==>ach(sort keys %labels) {
			push @{$code{$seg}->{code}}, qq|\teq JUMPLABEL, "$labels{$_}", $labels{$_}\n|;
		}
	}

	push @{$code{$seg}->{code}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056000	1056483	
==>d_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1179,
                  "ARGS" => [
                              "p",
                              "k",
                              "s"
                            ],
                  "BO <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	21532	21640	
==>', 5,
sub
#line 153 "lib/Regex/Grammar.y"
{ return { min => 0, max => $_[4] }; }
	],
	[#Rule 31
		 'range', 3 <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	20026	20211	
==>y ( $parser, $op, $expr ) = @_;
    my %type = (
        '-'   => 'number',
        '#'   => 'number',
        'not' => 'boolean',
    );
    my %opcode = (
        '-'   => 'neg' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596185	596300	
==>t.ops\"\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597078	597193	
==>t.ops\"\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	6089	6208	
==>up) = @_;
    $self->{_setup_starts}{$group} = 1;
    $self->{_setup_ends}{$group} = 1;
}

sub rewrite_try {
    my ($se <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9426	9592	
==>ass}, @{ $self->{parents} } ) {
	my $name = lc $parents;
	$cout .= <<"EOC";
#include "pmc_$name.h"
EOC
    }
    if (!$self->{flags}{dynpmc}) {
	    my $name = lc $sel <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	2228	2381	
==>efs($vtable)>

Returns the C C<typedef> definitions for the elements in the referenced
vtable array.

=cut

sub vtbl_defs {
    my $vtable = shift;

    m <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1148	1262	
==>item * C<new()>

Basic constructor.

Accepts no arguments and returns a L<Parrot::Configure> object.

=cut

sub new <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	4699	4848	
==>that the results are cached and the POD will only be rechecked
if the file has been modified since it was checked. 

=cut

sub check_pod
{
	my $self = <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	13852	13994	
==>e(hop);
    }
    hop = 0;
}

END_C

}
else {
    print SOURCE <<END_C;
static void hop_deinit(void) {}
END_C
}

print SOURCE <<END_C;

/*
** o <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24570	24687	
==>urn);
      $self->_restore ($return);
      $return = $temp;
    }
  } else {
    $return = $self->_generate($node->{ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26469	26586	
==>urn);
      $self->_restore ($return);
      $return = $temp;
    }
  } else {
    $return = $self->_generate($node->{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017925	1018026	
==>ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_gmtim <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018850	1018951	
==>ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_gmtim <==
2	/Users/nnunley/parrot/config/gen/platform.pm	1755	1875	
==>nerated by config/gen/platform.pm
*/

END_HERE

    foreach (@headers) {
        my $header_file = "config/gen/platform/g <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	16445	16602	
==>">/) {
      my($name, $value) = ($1,$2);
      next if $name eq 'quot' or $name eq 'apos' or $name eq 'gt';
    
      $value = hex $1 if $value =~ m/^x([a-f <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32275	32401	
==>rule->{'pir'}$rule->{'instruction'}" =~ /\$\{STACK0\}/) {
			$dest_reg = 0;
		} elsif ("$rule->{'pir'}$rule->{'instruction'}" = <==
2	/Users/nnunley/parrot/config/auto/jit.pm	2390	2513	
==>cpuarch}) {
        $jitcapable = 1;
    }

    if (-e "$jitbase/$cpuarch/$jitarchname.s") {
        copy_if_diff("$jitbase/ <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	3638	3756	
==>\\]!!;
    $include = "${base}_ops${suffix}.h";
    $dynamic_flag = 1;
}

my $sym_export = $dynamic_flag ? 'PARROT_DYNE <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	2032	2248	
==>w method?
        if ($line =~ /^\[([\w\.]+)\s*\:\:\s*(\w+)\s*(\:unimplemented)?\s*\]\s*$/) {
            # If there is an existing one, stash it.
            if ($cur_method) {
                push @methods, $cur_met <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	661	753	
==>truct::Expression::Value');
  confess("Right (" . ref($right) . ") is not Identifier") unless <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470708	471140	
==>=> [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 540,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 394 \"src/ <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2647	2829	
==>$!";
    my $tmp;
    my %generated_files;
    while (<GCOVSUMMARY>) {
        if (/^Creating (.*)\./) {
            my $path = "$dirname/$1";
            rename($1, "$dirname/$1") or <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1096669	1096813	
==>PMC *ns = Parrot_NameSpace_name(interpreter, \n                                    VTABLE_namespace(interpreter, {{\@2}}));\n    if (PMC_IS_NULL( <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	10080	10214	
==>{$name} = 1;
        my $full_name  = $op->full_name;
        my $func_name  = $op->func_name($trans);
        my $body       = $op->bo <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	2291	2434	
==>f');           }
sub is_exfix_arith   { return shift->is('exfix-arith');   }
sub is_goto          { return shift->is('goto');          }
sub is_ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	60821	60921	
==>,$lookahead,$line);
			$prod and $prod->additem($item)
			      or  _no_rule("interpolated literal te <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644061	644329	
==>} = {{\@2}}->vtable->type_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644954	645222	
==>} = {{\@2}}->vtable->type_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Test/More.pm	6831	7011	
==>e its use.

Should an ok() fail, it will produce some diagnostics:

    not ok 18 - sufficient mucus
    #     Failed test 18 (foo.t at line 42)

This is actually Test::Simple's ok( <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	5746	5917	
==>DIR, '*.t' ) ;

    if (@files) {
        return runtests(@files);
    } else {  
        return;
    }
}

##
## my $string = unescape( $original )
##
## Unescape backslash <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	6406	6567	
==>imal. But
# they should do a pretty decent job of making things fail early if
# you get too close to the end of the string.
#
# Args:
#  t - The Tree op being vis <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585375	585546	
==>,
                              "sc"
                            ],
                  "BODY" => "#line 303 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interp <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	13776	13934	
==>urn $cmt
	.return $tos
	.pcc_end_return
EOC
    }
    else {
	print <<EOC;
	# $cmt
EOC
    }
}

sub YIELD_VALUE
{
    my ($n, $c, $cmt) = @_;
    my $tos = pro <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	5	96	
==>yright (C) 2004, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Docs/Section.pm 20333 2006-0 <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	1067	1209	
==>);
print    footer();

sub open_tmt {
    my ($filename) = @_;

    local $/ = undef;
    open my $file, "<", $filename
        or die "can't o <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5979	6081	
==>needs to
	# have an empty stack type state propogated to it if nothing has been
	# propogated there alr <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3917	4019	
==>needs to
	# have an empty stack type state propogated to it if nothing has been
	# propogated there alr <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	3658	3970	
==>l_suffix($rel_path),
                $source->relative_path($file->path));
        
            $index_html .= "<br>\n";
            
            next if $self->{TEXT};
            
            my $short_desc = $file->short_description;
            
            next unless $short_desc;
            
            n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566707	567038	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "does",
                  "FLAGS" => ":object_base <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567601	567932	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "does",
                  "FLAGS" => ":object_base <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	5825	6020	
==>iles/parrot_compiler.in' => 'languages/parrot_compiler/Makefile',
        commentType                               => '#',
        replace_slashes                           => 1
    );
    genfil <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	28857	29174	
==>S" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 38,
                  "ARGS" => [
                              "pc"
                            ],
                  "BODY" => "#line 5 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647574	647832	
==>= pmc_type(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648335	648593	
==>= pmc_type(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	11134	11316	
==>mdir ' . $_[0]->path . ": $!";
    
    $_[0]->SUPER::delete;
}

=item C<delete_contents()>

Deletes the contents of the directory.

Raises an exception if the delete fails.

=cut

su <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48479	48590	
==>xrep) = ($1,$2) }
				elsif ($grammar =~ m/$ATLEAST/gco)
					{ $minrep = $1 }
				elsif ($grammar =~ m/$ATMOST/ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37686	37797	
==>$type)>

Generate the C code for a C<return> statement.

=cut

sub gen_ret
{
    my ($self, $type) = @_;

    #r <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32799	32909	
==>$type)>

Generate the C code for a C<return> statement.

=cut

sub gen_ret
{
    my ($self, $type) = @_;

    r <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2341	2441	
==>>type;
    }

    $self->INTERNAL_ERROR("Can't determine type of formal argument (%s)!", $formal_arg_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2041	2141	
==>>type;
    }

    $self->INTERNAL_ERROR("Can't determine type of formal argument (%s)!", $formal_arg_ <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	3771	3931	
==>list',
        script  => '__script',
        var     => '__read',
    );
    
    # add code to get subs for needed conversions
    my $code = "  # get necessar <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	2387	2489	
==>ERSION>-1.<arch>.rpm file will contain the file
/usr/parroty/bin/snork-compile.

=head1 SEE ALSO

F<too <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	6187	6367	
==>2,
 'image'    , 8465,
 'real'     , 8476,
 'trade'    , 8482,
 'alefsym'  , 8501,
 'larr'     , 8592,
 'uarr'     , 8593,
 'rarr'     , 8594,
 'darr'     , 8595,
 'harr'     , 8596 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440002	440335	
==>" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 504,
                  "ARGS" = <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	37888	38013	
==>re and including J
          
          @ell_content  = grep ref($_)||length($_), @ell_content  ;
          @section_name = gr <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	2298	2469	
==>ld)",
        sc  => "CONST(%ld)",
        kc  => "CONST(%ld)",
        kic => "cur_opcode[%ld]"
    );
}

sub readjit {
    my $file = shift;

    my %ops;
    my $templat <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	8769	8886	
==>sh @params, $1, $2;
    }

    return @params;
}

=back

=head1 SEE ALSO

=over 4

=item F<tools/build/jit2c.pl>

=ite <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	18831	18979	
==>le tree to dispatch
    # to the translation code for an instruction in something like O(log(n))
    # rather than O(n).
	my $pir = <<PIRCODE;
	# Tra <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565762	566028	
==>->can(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566655	566921	
==>->can(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	5962	6177	
==>failmsg "Unmatched embedded quote ($1)",
				 pos $$textref;
			pos $$textref = $startpos;
			return;
		}
		elsif ($quotelike && _match_quotelike($textref,"",1,0))
		{
			next;
		}

		else { $$textref =~ m/\G(?:[a-zA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563914	564007	
==>"#line 183 \"src/ops/object.ops\"\n  VTABLE_add_method(interpreter, {{\@1}}, {{\@2}}, {{\@3}}) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564812	564905	
==>"#line 183 \"src/ops/object.ops\"\n  VTABLE_add_method(interpreter, {{\@1}}, {{\@2}}, {{\@3}}) <==
2	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	1027	1177	
==>f ( scalar(@parrot_version) < 3 ) {
        die "Too few components to VERSION file contents: '$parrot_version' (should be 3 or 4)!"
    }

    if ( sc <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	18357	18491	
==>/////////

      my $content = join ' ', splice @$para, 2;
      $content =~ s/^\s+//s;
      $content =~ s/\s+$//s;
      unless(lengt <==
2	/Users/nnunley/parrot/lib/Test/More.pm	13100	13246	
==>name isn't defined";
    }
    elsif( !ref $object ) {
        $diag = "$obj_name isn't a reference";
    }
    else {
        # We can't use UNIVE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645777	645866	
==>}} > 0 && {{\@2}} < interpreter->n_vtable_max)\n\t\t{{\@1}} = interpreter->vtables[{{\@2}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646674	646763	
==>}} > 0 && {{\@2}} < interpreter->n_vtable_max)\n\t\t{{\@1}} = interpreter->vtables[{{\@2}} <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37386	37498	
==>$self->describe . ']},
				  Parse::RecDescent::_tracefirst($text),
				  q{' . $rule->{"name"} . '})
					if def <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39789	39901	
==>$self->describe . ']},
				  Parse::RecDescent::_tracefirst($text),
				  q{' . $rule->{"name"} . '})
					if def <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30975	31157	
==>S => {
			"(" => 48,
			"{" => 38,
			'STRING' => 44
		},
		GOTOS => {
			'tableconstructor' => 46,
			'args' => 153
		}
	},
	{#State 104
		DEFAULT => -42
	},
	{#State 10 <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1871	1999	
==>ec->catfile(
    $path_to_parrot, qw/ languages perl6 p6shell.pir /,
);


sub import {
    my($class, $plan, @args) = @_;
    $b- <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	4778	4894	
==>tput_isnt($code, $unexpected, $description)>

Compiles and runs the C code, passing the test if a string comparison o <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	103	251	
==>2 MDT"
package Pod::Escapes;
require Exporter;
@ISA = ('Exporter');
$VERSION = '1.03';
@EXPORT_OK = qw(
  %Code2USASCII
  %Name2character
  %Name2cha <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3628	3763	
==>files which have this name.

=cut

sub type_for_name
{
	my $self = shift;
	my $name = shift;
	
	return $type_for_name{$name} if exists $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037745	1038001	
==>rpreter, NULL, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038526	1038782	
==>rpreter, NULL, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61929	62058	
==>/;
				$matchrule = 1;
			}

		# EXTRACT TRAILING ARG LIST (IF ANY)

			my ($argcode) = extract_codeblock($grammar, "[]",'') || '' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1713	1816	
==>ut_increment {
    my ($self, $distance, $failLabel) = @_;
    die "invalid distance" if $distance =~ /[ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1466	1569	
==>ut_increment {
    my ($self, $distance, $failLabel) = @_;
    die "invalid distance" if $distance =~ /[ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	431	553	
==>==========================

use strict;
use vars qw(
  %Code2USASCII
  %Name2character
  %Name2character_number
  %Latin1Co <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	678	789	
==>sion::Value::Identifier');

  my $name = $ident->value;

  my $self = bless {
    BLOCK => $block,

    NAME  => <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	1397	1581	
==>matoes (optionally with the pulp discarded)
 * 1 tablespoons chopped ginger root (or more, to taste)
 * 2 tablespoons canola oil (or vegetable oil)
 
 * 1 tablespoon garam masala
 * 1/2 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1628	1796	
==>f->value;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  #
  # Find the enclosing sub block:
  #

  my $su <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3248	3362	
==>f->value;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	10289	10656	
==>dprint($fd, "\\t");
			$eol=1;
			feedme();
			$expr=0;
			next;
		}
		last if $expr;
		($result, $type, @code)=EXPRESSION({nofeed => 1});
		feedme();
		if ($fd) { 
			push @{$code{$seg}->{code}}, <<PRINT;
@code	noop
	_WRITE($fd,1,$result)
PRINT
		} else {
			push @{$code{$seg}->{code}}, <<PRINT;
@code	noop
	_BUILTIN_DISPLAY(1,$result)
PRINT
		}
		#print "After Expr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833631	833858	
==>ENTRY_PMC, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	9544	9691	
==>)';

for ( my $i = 0; $i < $core_numops; $i++) {
    $body = $core_ops{$core_opfunc[$i]}[0];
    $extern = $core_ops{$core_opfunc[$i]}[1];

    my $ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	14049	14167	
==>psubs{$sym}) {
				if (! ref $opsubs{$sym}) {
					die "No op code yet for $sym\n";
				} else {
					my($code, $return <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2049	2192	
==>1');

If Pod::Simple sends an event where the element name has a dash,
period, or colon, the corresponding method name will have a underscore
in <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	3197	3308	
==>$src =~ /{{=(.*?)}}/g){
	    my $offset = $1;
	    $is_branch = 1;
	}
	# relative branch
	while($src =~ /{{(\-|\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2151	2290	
==>ding method name will have a underscore
in its place.  For example, "foo.bar:baz" becomes start_foo_bar_baz
and end_foo_bar_baz.

See the so <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	62005	62156	
==>};
    $filename =~ s/\.lua$/\.pir/i;
    open my $FH, '>', $filename
        or die "can't open $filename ($!).\n";

    my $generator = new pirVi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106347	1106443	
==>t\"type number out of range\");\n    {{\@1}} = interpreter->vtables[typ]->class;\n    {{+=3}};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107323	1107419	
==>t\"type number out of range\");\n    {{\@1}} = interpreter->vtables[typ]->class;\n    {{+=3}};\n" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	53293	53410	
==>'"' => '\"',
  '\\' => '\\\\',
  '$' => '\\$',
  '@' => '\\@',
  '%' => '\\%',
  '#' => '\\#',
);

sub pretty { # adop <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	10858	11032	
==>")\s+
        {{\@1}}\s*=\s*
        {{\@2}}->vtable->
        (\w+)
        \(interpreter,
        \s*
        {{\@2}}
        \);
        \s+{{\+=\d}}/xm) {
            $jit <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	819	921	
==>s "Left is not Value!" unless UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess "O <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	831	933	
==>s "Left is not Value!" unless UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess "O <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	11256	11382	
==>my $norm = lc($e);
    $norm =~ tr[-_][]d;
    my $n;
    foreach my $enc (@supported) {
      $n = lc($enc);
      $n =~ tr[-_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	1279	1393	
==>_ops{$op};

  confess "Unrecognized op '$op'!" unless defined $new_op;

  return $new_op;
}
 

#
# new()
#

sub new <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	14552	14675	
==>tedly succeeded</span>
              </tmpl_loop><br />
              <a href="<tmpl_var name=link>" title="Full smoke repor <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356014	356210	
==>OUT(interpreter), s->strstart, s->bufused);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/config/gen/icu.pm	185	295	
==>figures ICU and add appropriate targets to the Makefile.

=cut

package gen::icu;

use strict;
use vars qw($des <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	7802	8243	
==>}


###############################################################################
###############################################################################
##
## MESSAGES:
##
###############################################################################
###############################################################################


#
# DEBUG()
#

sub DEBUG
{
  my ($self, $level, $format, @args) = @_;

  return unless defined $s <==
2	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	322	421	
==>new assembler
#
# Revision 1.8  2002/05/25 02:36:14  clintp
# Added autorun.bas, removed LOAD messag <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828758	828868	
==>type != STACK_ENTRY_PMC) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829826	829936	
==>type != STACK_ENTRY_PMC) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  { <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	3351	3518	
==>, $1);
      $text = $2;
      next;
    }

    #
    # Grouping:
    #

    if ($text =~ m{^([\(\)])(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $lin <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	4956	5094	
==>t $out $line; }
        print $out "\n"; # extra newline after header
    }

    # this loop can not be implemented as a foreach loop as th <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105634	105928	
==>2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	106372	106666	
==>2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLA <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9388	9616	
==>> <value>) {
    #
    #   <label>: while (<value> <op> <value>) {
    #            while (<value> <op> <value>) {
    #
 
    if ($token->is_until or $token->is_while) {
      my $block = $self->current_block();
      my $kind = <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	12220	12310	
==>interp->op_lib->op_code("set", 0)
 * interp->op_lib->op_code("set_i_i", 1)
 *
 * returns >= <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	1319	1481	
==>RCE';
    }

    $conf->data->set(
        ccflags        => $cflags,
        libs           => $libs,
        ld_share_flags => $ld_share_flags,
        ld_load_f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954264	954350	
==>71 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_encoding_number_of_str(interpreter, {{\@2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955055	955141	
==>71 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_encoding_number_of_str(interpreter, {{\@2 <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	15617	15728	
==>die Dumper( $code, $expected, $desc, \%extra, $extra{todo}, $call_pkg ) if ( keys %extra );
            local *{ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	18168	18279	
==>die Dumper( $code, $expected, $desc, \%extra, $extra{todo}, $call_pkg ) if ( keys %extra );
            local *{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853196	853409	
==>> [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 100 \"src/ops/string.ops\"\n  {{\@1}} = string_append(interpreter, {{\@1}}, <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	11934	12069	
==>bless
	{
		"items"    => [],
		"uncommit" => $uncommit,
		"error"    => $error,
		"line"     => $line,
		strcount   => 0,
		patcount   = <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	30123	30308	
==>Sometimes there is some confusion about where todo() should be looking
for the $TODO variable.  If you want to be sure, tell it explicitly
what $pack to use.

=cut

sub todo {
    my($se <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	3173	3308	
==>.
    my $solaris_ieee_cb = sub {
        my ($key, $gccversion) = @_;

        if ($gccversion) {

            # Don't know how to do t <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	26529	26675	
==>text that represents a block
 # of Perl code, bracketed by any of character(s) specified by $delim
 # (where the string $delim contains one or more <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	15490	15677	
==>O NOTHING
      }

      #
      # If there is any other kind of block, we have an internal compiler error.
      #

      else {
        $self->INTERNAL_ERROR("End of unknown kind of bloc <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	4106	4257	
==>nes it.

=cut

sub delete
{
    # Use $_[0] so that we can undef the instance.

    delete($instance_for_path{$_[0]->path});
    
    undef $_[0];
}

=b <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	15395	15640	
==>, item-number, item-text,
  #                   Document,
  #                   Data, Para, Verbatim
  #                   B, C, longdirname (TODO -- wha?), etc. for all directives
  # 

  my $self = $_[0];
  my $paras;
  return unless @{$paras = <==
2	/Users/nnunley/parrot/lib/File/Which.pm	5245	5344	
==>e program (for
example, C<perl>).

If it finds an executable with the name you specified, C<which()> <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1399	1554	
==>variable } ;
    $$variable = $value;
    print "# Starting Pod::Simple::DEBUG = non-constant $variable with val $value\n";
  } else {
    *Pod::Simple::DEB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621610	621780	
==>\t\t    _reg_base, (void**)cur_opcode);\n\t}\n        else\n            n = 2;\n\tccont = ctx->current_cont;\n\tif (PObj_get_FLAGS(ccont) & SUB_FLAG_TAILCALL) {\n\t    POb <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	40793	40898	
==>_max_lengths {
  my $colref = shift;
  my @max_len=(0)x3;
  for my $row(@$colref) {
    for(0..$#{$row}) { <==
2	/Users/nnunley/parrot/config/init/optimize.pm	1022	1181	
==>f ($optimize eq "1") {
            # use perl5's value
	    # gcc 4.1 doesn't like -mcpu=xx, i.e. it's deprecated
	    # XXX do we know compiler (version) alrea <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10056	10172	
==>->options->get('verbose');

    if (defined($_[0]) && length($_[0])) {
        local $" = ' ';
        _run_command(" <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10637	10753	
==>->options->get('verbose');

    if (defined($_[0]) && length($_[0])) {
        local $" = ' ';
        _run_command(" <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	7166	7291	
==>E_> macros are enforced by converting C<<< I<< x >>->vtable->I<<
method >> >>> to C<VTABLE_I<method>>.

=cut

sub rewrite_body <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804258	804350	
==>et.ops\"\n    {{\@1}}->vtable->set_pmc_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805159	805251	
==>et.ops\"\n    {{\@1}}->vtable->set_pmc_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	21315	21445	
==>= $val{$_->[2]}
	P2["$_->[0]"]= P1
NOTUSER
			} else {
				print CODE<<USERTYPE;
	new P1, .PerlHash
	P1["name"]= '$_->[0]'
	P1["typ <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	163	274	
==>E

tools/dev/check_source_standards.pl - Check conformancs of C source code to PDD 7

=head1 SYNOPSIS

    % per <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23345	23436	
==>_gensym();

  $return = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23807	23898	
==>_gensym();

  $return = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	5478	5611	
==>,
 'Psi'      , 936,
 'Omega'    , 937,
 'alpha'    , 945,
 'beta'     , 946,
 'gamma'    , 947,
 'delta'    , 948,
 'epsilon'  , 949, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305148	305431	
==>ELATIVE",
                  "NAME" => "if_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305936	306219	
==>ELATIVE",
                  "NAME" => "if_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
2	/Users/nnunley/parrot/tools/dev/manicheck.pl	1037	1182	
==>tils::Manifest::manifind();
my @missing   = ExtUtils::Manifest::manicheck();
my @extra     = ExtUtils::Manifest::filecheck();
# my @ignored   = Ex <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	2404	2502	
==>nt "Type $type[CURR] Sym $syms[CURR]\n";
	goto UNK if ($type[CURR] ne 'BARE');
	goto BARE if (! isk <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11364	11502	
==>~/\$$/) {
		return "S";
	} else {
		return "N";
	}
}
sub generate_code {   # Will return a result register, or something.
	my($lhs,@stream) <==
2	/Users/nnunley/parrot/tools/build/list_unjitted.pl	11	175	
==>perl -wl

use strict;

unless (1 == scalar @ARGV){
    print "Must give a directory as an argument.\nPossible options are:";
    opendir DIR, 'jit' or die $!;
    wh <==
2	/Users/nnunley/parrot/config/auto/jit.pm	736	854	
==>lt('skipped');
        return $self;
    }

    my $verbose = $conf->options->get('verbose');

    my $jitbase  = 'src/ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	15674	15983	
==>38
		},
		DEFAULT => -56,
		GOTOS => {
			'tableconstructor' => 46,
			'args' => 52,
			'key' => 53
		}
	},
	{#State 36
		DEFAULT => -79
	},
	{#State 37
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			"> <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	2445	2552	
==>king find_lex/store_lex
sub _find_lex {
  my ($self, $symbol) = @_;
  my $return = $self->_save_1 ('P');
  $ <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2358	2467	
==>TE . '/Users/nnunley/parrot/src/pmc' . $PATHQUOTE . " " .
        $source;
};

sub partial_link_cmd {
    my ( <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	2153	2262	
==>TE . '/Users/nnunley/parrot/src/pmc' . $PATHQUOTE . " " .
        $source;
};

sub partial_link_cmd {
    my ( <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12396	12635	
==>' => 35,
			'primary' => 28
		}
	},
	{#State 9
		ACTIONS => {
			":" => 42,
			'STRING' => 44,
			"[" => 47,
			"{" => 38,
			"(" => 48,
			"." => 49
		},
		DEFAULT => -10,
		GOTOS => {
			'tableconstructor' => 46,
			'args' <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	38013	38180	
==>"Do not know how to handle class $rule->{'class'}\n";
	}

	# Finally, emit code to go to translate next instruction.
	$pir .= "    goto TRANS_LOOP\n\n";

	# Clean up me <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5814	5928	
==>O: SHOULD BE LIMITED TO LITERAL?
    #   const <type> <ident>, <ident>, ... = <value>; # TODO: SHOULD BE LIMITED TO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704590	704881	
==>790,
                  "ARGS" => [
                              "p",
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(int <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943353	943646	
==>" => 0,
                  "NAME" => "charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944141	944434	
==>" => 0,
                  "NAME" => "charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43872	44057	
==>3,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 205,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'prim <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623496	623604	
==>t;\n\tsig = (PMC*)(dest_pred[1]);\n    }\n    else {\n\tsig = NULL;\n\tdest_pred = NULL;\n    }\n    lru = &m <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34831	34939	
==>:RD_TRACE;').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse: <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41941	42049	
==>:RD_TRACE;').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse::RecDescent::failed++) {
				$Parse: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	271	366	
==>89Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statement::LoopControl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627818	628193	
==>" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 704,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BO <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10250	10373	
==>state left on stack: aborting.\n";

			return(undef);
		};

		#shift the error token

#DBG>			$debug & 0x10
#DBG>		a <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9790	9905	
==>state left on stack: aborting.\n";

			return(undef);
		};

		#shift the error token

#DBG>			$debug & 0x10
#DBG>		a <==
2	/Users/nnunley/parrot/config/auto/bc.pm	678	795	
==>nu_bc;
    my $osname = $Config{osname};

    # There were some problems with a hanging bc reported.
    # So check fo <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	2967	3375	
==>guage
        # You may want a deeper search than this.
        return ( glob( File::Spec->catfile( 't', '*.t' ) ),
                 glob( File::Spec->catfile( 't', '*/*.t' ) )
               );
    }
}

sub import
{
    my ($class, %options) = @_;

    croak "Need a language\n" unless $options{language};

    $options{arguments} ||= \@ARGV;

    exit unless my @files = get_files( %options );

    set_flag <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	2040	2160	
==>nr
    return 0;
}

sub type_map {
    my $t = $_[0];
    return $type_map{$t} if $type_map{$t} ;
    return $t;
}
sub pa <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	20583	20694	
==>my $attrname ('section', 'to') {        
            if(defined($thing = $treelet->[$i][1]{$attrname}) and ref $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	42067	42176	
==>my $attrname ('section', 'to') {        
          if(defined($thing = $treelet->[$i][1]{$attrname}) and ref $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663666	663768	
==>line 354 \"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delete_keyed(interpreter, {{\@1}}, {{\@2}});\n  {{+=3} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664438	664540	
==>line 354 \"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delete_keyed(interpreter, {{\@1}}, {{\@2}});\n  {{+=3} <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33210	33381	
==>arser,
            'result' => $var,
            'arg1'   => $nil->[0],
        );
        push @return1, $var;
    }
    else {
        push @opcodes2, @{ $expr->[1 <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	2221	2427	
==>ta structure.
# ############################################
sub parse_rules($) {
    # Get filename and open the file.
    my $filename = shift;
    open my $fh, "< $filename" or die "Unable to open $filena <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756701	756788	
==>> "#line 271 \"src/ops/set.ops\"\n  {{\@1}}->vtable->assign_string_native(interpreter, { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757491	757578	
==>> "#line 271 \"src/ops/set.ops\"\n  {{\@1}}->vtable->assign_string_native(interpreter, { <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	50395	50507	
==>ined $4) {
      DEBUG > 3 and print "Found apparent simple end-text code \"$4\"\n";

      if(@stack and ! $stac <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	59638	59888	
==>, $_[3] ];
        }
	],
	[#Rule 109
		 '_field_plus', 1,
sub
#line 584 "Lua\lua51.yp"
{
            [ $_[1] ];
        }
	],
	[#Rule 110
		 'field', 5,
sub
#line 591 "Lua\lua51.yp"
{
            [ $_[2], $_[5] ];
        }
	],
	[#R <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13169	13286	
==>poit as integer
	fwd as second
end type
dim x as third
dim y as third
dim k as second
x.fwd.link.foo=34
y.fwd=x.fwd
x. <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	7	302	
==>bin/perl -w
# Copyright (C) 2005, The Perl Foundation.
# $Id: /parrot/languages/tcl/tools/tcl-test.pl 19844 2006-06-07T18:39:01.568045Z coke  $

use strict;
use warnings;
use vars qw($DIR %tests);

# the directory to put the tests in
$DIR = 't_tcl';

use Fatal qw{open};
use File::Spec;
use Getop <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26658	26773	
==>e\n"
	}
	my $sub=$syms[CURR];
	barf();
#	print STDERR "Processing call $sub\n";
	($result, $type, @code)=EXPRESSION( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686474	686733	
==>>getprop(interpreter, {{\@3}}, {{\@2}});\n   {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687364	687623	
==>>getprop(interpreter, {{\@3}}, {{\@2}});\n   {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1794	1903	
==>)
	and	$$self{VERSION} < $COMPATIBLE
	and	croak "Yapp driver version $VERSION ".
			  "incompatible with ve <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1731	1837	
==>)
	and	$$self{VERSION} < $COMPATIBLE
	and	croak "Yapp driver version $VERSION ".
			  "incompatible with ve <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	4875	5001	
==>r) {
    mkdir($incdir, 0755) or die "ops2c.pl: Could not mkdir $incdir $!!\n";
}

open HEADER, ">$header"
    or die "ops2c.pl <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	6327	6440	
==>less defined $d and length $d;
    Carp::croak "\"$d\" isn't a valid directive name"
     unless $d =~ m/^[a-zA-Z] <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	7121	7234	
==>less defined $d and length $d;
    Carp::croak "\"$d\" isn't a valid directive name"
     unless $d =~ m/^[a-zA-Z] <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1683	1867	
==>distance == -1) {
        return "<rx_pos>--;";
    } elsif ($distance > 0) {
        return "<rx_pos> += $distance;";
    } elsif ($distance < 0) {
        return "<rx_pos> -= $distanc <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2089	2198	
==>{
      my $arg_sym = $self->block->find_symbol($args[$i]->value);
      $self->SYNTAX_ERROR("Undefined identi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1789	1898	
==>{
      my $arg_sym = $self->block->find_symbol($args[$i]->value);
      $self->SYNTAX_ERROR("Undefined identi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644034	644120	
==>src/ops/pmc.ops\"\n  {{\@1}} = {{\@2}}->vtable->type_keyed_int(interpreter, {{\@2}}, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644927	645013	
==>src/ops/pmc.ops\"\n  {{\@1}} = {{\@2}}->vtable->type_keyed_int(interpreter, {{\@2}}, {{ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	898	1079	
==>x}_NEXT:");

    my $op    = $self->op;
    my $left  = $self->left->compile($compiler);
    my $right = $self->right->compile($compiler);
    $compiler->emit("  $test $left $op $rig <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	4177	4315	
==>ing_directory_with_name('lib');
    
    foreach my $name (@path)
    {
        return unless $dir = $dir->existing_directory_with_name($na <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	2801	2965	
==>ate makefile instructions to translate class library.
# ##########################################################
sub generate_classlib_make($) {
    my $mono_cl <==
2	/Users/nnunley/parrot/lib/Test/More.pm	32742	32896	
==>e sort routine due to a threading/sort bug.
    # See [rt.cpan.org 6782]
    return eq_array(
           [sort { ref $a ? -1 : ref $b ? 1 : $a cmp $b } @$a <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6809	6950	
==>>					print STDERR "**End of Error recovery.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push(@$stack,[ $act, $$valu <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6492	6627	
==>>					print STDERR "**End of Error recovery.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push(@$stack,[ $act, $$valu <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	56407	56775	
==>2] );
        }
	],
	[#Rule 85
		 'functioncall', 4,
sub
#line 451 "Lua\lua51.yp"
{
            BuildCallFunction( $_[0], $_[2], $_[4] );
        }
	],
	[#Rule 86
		 'functioncall', 6,
sub
#line 455 "Lua\lua51.yp"
{
            BuildCallMethod( $_[0], $_[2], $_[5], $_[6] );
        }
	],
	[#Rule 87
		 'functioncall', 2,
sub
#line 459 "Lua\lua51. <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	15537	15660	
==>to find
            my $call_pkg = $builder->exported_to() || '';
            # die Dumper( $code, $expected, $desc, \%extra <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	18088	18211	
==>to find
            my $call_pkg = $builder->exported_to() || '';
            # die Dumper( $code, $expected, $desc, \%extra <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11842	11964	
==>N" and $syms[CURR] =~ /-/) {
			if ($type[NEXT] =~ /INT|FLO/) {
				feedme();
				$syms[CURR]="-$syms[CURR]";
			}
		}
		if <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	252	344	
==>ad1 DESCRIPTION

A Perl implementation of the F<examples/mops/mops.pasm> example program,
for <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	248	340	
==>ad1 DESCRIPTION

A Perl implementation of the F<examples/mops/mops.pasm> example program,
for <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2499	2678	
==>r             => 'blib\\lib',
            ccflags              => $ccflags,
            ccwarn               => '',
            has_dynamic_linking  => 1,
            parrot_is_sha <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6657	6801	
==>I-1)
         A$(I-1)=A$(I)
         A$(I)=B$
         ' SWAP A$(I - 1), A$(I)
      END IF
   NEXT
WEND
 ' CLS
FOR I = 1 TO 4
   PRINT A$(I)
NEX <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16310	16454	
==>I-1)
         A$(I-1)=A$(I)
         A$(I)=B$
         ' SWAP A$(I - 1), A$(I)
      END IF
   NEXT
WEND
 ' CLS
FOR I = 1 TO 4
   PRINT A$(I)
NEX <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	1372	1488	
==>ndards.pl'),
            $self->new_item('', 'tools/docs/pod_errors.pl'),
            $self->new_item('', 'tools/dev/ <==
2	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	415	540	
==>buildarray();
    }

    my @arr1;
    foreach (1..20) {
	$arr1[$_] = buildarray();
    }

    my @arr2;
    foreach (1..20) { <==
2	/Users/nnunley/parrot/examples/benchmarks/stress.pl	377	481	
==>buildarray();
}

my @arr1;
foreach (1..20) {
    $arr1[$_] = buildarray();
}

my @arr2;
foreach (1..20) { <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	2217	2355	
==>tions->{PACKAGE}) {
#    $options->{PACKAGE} .= "::" . $self->name;
#  }
#  else {
#    $options->{PACKAGE} = $self->name;
#  }

  return $ <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	5344	5463	
==>lse {
       $svn_cmd = 'svk';
   }

   # Find all directories in the Parrot distribution
   my %dir_list  = map { my $d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488521	488817	
==>GS" => [
                              "n"
                            ],
                  "BODY" => "#line 507 \"src/ops/math.ops\"\n  {{\@1}} = floor( {{\@1}} );\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	20898	21156	
==>put_like',
        example_output_isnt => 'language_output_isnt',
                           );

    foreach my $func ( keys %example_test_map ) {
        push @EXPORT, $func;
        no strict 'refs';

        *{$package.'::'.$func} = sub {
            my ($ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	865584	865795	
==>,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 167 \"src/ops/string.ops\"\n   string_pin(interpreter, {{\@1}});\n   {{+=2}};\n" <==
2	/Users/nnunley/parrot/config/auto/headers.pm	2253	2370	
==>ata->set(testheader  => $header);

            cc_gen('config/auto/headers/test_c.in');

            $conf->data->set( <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	5333	5434	
==>otAPI) {
	printf "%s\t%s\tOK\n", $api, $API{$api} || "-";
    }
}

printf "=== $Obj: %d interfaces === <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52308	52519	
==>PE" => "inline",
                  "CODE" => 67,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 815 \"src/ops/core.ops\"\n  if ( <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	881	1014	
==>are basically 3 choices: run in one of:
    #  languages
    #  languages/tcl
    #  languages/tcl/t

    my $path_to_parrot = $INC{"P <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	56314	56477	
==>= extract_multiple($text,
                                   [ sub { extract_variable($_[0]) } ],
                                   undef, 1);

This example separa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665267	665502	
==>eyed_int(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666044	666279	
==>eyed_int(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/config/inter/lex.pm	2046	2170	
==>t_result('no');
        return $self;
    }

    # if '--version' returns a string assume that this is flex.
    # flex calls <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	7747	7862	
==>as
sub accept_target_as_text { shift->accept_targets_as_text(@_) } # alias


sub accept_targets         { shift->_ac <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	19375	19582	
==>ODE

    # Restore original instruction codes, but remove spaces.
    foreach (@rules) {
        $_->{'code'} = $_->{'orig_code'};
        $_->{'code'} =~ s/\s//g;
    }

    # Return generated PIR.
    retur <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	15470	15581	
==>able_regex = length $opts ? "(?$opts)$re" : $re;
    }

    return $usable_regex;
};

sub _regex_ok {
    my($se <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429265	429719	
==>RGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 493,
                  "ARGS" => [
                              "ic",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 74 \"src/ops/math.ops\" <==
2	/Users/nnunley/parrot/tools/dev/symlink.pl	1162	1271	
==>cdir[-1]) eq 'dev' &&
         lc($toolsrcdir[-2]) eq 'tools';
my @topsrcdir = @toolsrcdir[0..$#toolsrcdir - 2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2238	2360	
==>e
relevant C code.

=cut

sub goto_offset
{
    my ($self, $offset) = @_;

    if ($offset =~ /^-?\d+$/)
    {
        retu <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7399	7491	
==>);

  $self->_add_inst('', 'set', [$list,$list.'[1]']);
  $self->_add_inst('', 'typeof', [$ty <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5874	5975	
==>th basic block-ish stuff. If the branch
	# did not pop anything it is unconditional, so next instructi <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3812	3913	
==>th basic block-ish stuff. If the branch
	# did not pop anything it is unconditional, so next instructi <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	8431	8579	
==>'-lm -lgmp -lreadline',
             'link' => 'c++',
             'link_debug' => '',
             'link_dynamic' => ' ',
             'linkflags' = <==
2	/Users/nnunley/parrot/config/init/defaults.pm	3516	3664	
==>ry or archive extension
        exe      => $Config{_exe},      # executable files extension
        cc_o_out => '-o ',              # cc object outp <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	28658	28780	
==>($_);
			$_=~s/\$/_string/g; 
			push @{$code{$seg}->{code}}, qq{\t.param $t $_\n};
			push @{$code{$seg}->{args}}, $_;
		} <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	11347	11503	
==>id) {
      var elem     = document.getElementById("details_"  + id),
          expander = document.getElementById("expander_" + id);
      if(elem.className <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	32120	32235	
==>ngs.  Instead, this function edits $?
directly.  It should ONLY be called from inside an END block.  It
doesn't actu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	675291	675526	
==>able->pop_pmc(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3352	3456	
==>)
t$=foo$
print t$
t=0
do
	print "This is right"
	exit do
	print "This is wrong"
	t=t+1
loop until t>1

' <==
2	/Users/nnunley/parrot/tools/dev/mk_inno.pl	906	1043	
==>$1} = $2;
    }
}

$options{prefix} =~ s/\//\\/g;
$options{icudir} =~ s/\//\\/g;

my $icu_section = '';
if ($options{icudir}) {
	$icu_sect <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	4510	4622	
==>} else {
        DEBUG > 5 and print "# It's a code-line.\n";
        $code_handler->(map $_, $line, $self->{'lin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826560	826654	
==>_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_FLOAT) {\n    in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827630	827724	
==>_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_FLOAT) {\n    in <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	1493	1596	
==>is method returns an empty string which will
be discarded when building the navigation bar.

=cut

sub h <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	18734	18854	
==>ased classes
    (refer to "Perl Cookbook", Recipe 13.12 for rationale).

    Corrected behaviour of accessors for '*@' a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747253	747354	
==>ODY" => "#line 194 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748038	748139	
==>ODY" => "#line 194 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, {{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	715	932	
==>IS

 require 5;
 use strict;
 package SomePodFormatter;
 use base qw(Pod::Simple::Methody);
 
 sub handle_text {
   my($self, $text) = @_;
   ...
 }
 
 sub start_head1 {
   my($self, $attrs) = @_;
   ...
 }
 sub end_he <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	35798	35921	
==>gular' => \&_op_make_rectangular,
  'make-polar'       => \&_op_make_point,
  'real-part'        => \&_op_real_part,
  'imag <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	42460	42570	
==>'set', [$return,'P5']) unless $return eq 'P5';
  $self->_restore_set;

  $return =~ /(\w)(\d+)/;
  $self->{regs <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478944	479181	
==>");\n  {{\@1}} = floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479836	480073	
==>");\n  {{\@1}} = floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	21175	21389	
==>$rd2pos,	$second_arg,		# 2ND RDEL (MAYBE)
		$modpos,	$endpos-$modpos,	# MODIFIERS
		$endpos,	$textlen-$endpos,	# REMAINDER
	       );
}

my $def_func = 
[
	sub { extract_variable($_[0], '') },
	sub { extract_quoteli <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	2580	2688	
==>ymbol in this block's symbol table. If the symbol already exists,
we throw an error.

TODO: We should generat <==
2	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	1349	1451	
==>\n";
}
print "};\n";

print << "EOF";

int
PackFile_check_fingerprint (void *cursor)
{
    return memcm <==
2	/Users/nnunley/parrot/lib/Test/More.pm	37227	37322	
==>er, Tony Bowden, blackstar.co.uk, chromatic, Fergal Daly and
the perl-qa gang.


=head1 BUGS

Se <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	24900	25085	
==>se fake-o paragraphs
        }
      }
      
      splice @$paras; # Well, that's that for this paragraph buffer.
      DEBUG and print "Throwing end-document event.\n";

      $self->_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7217	7359	
==>, ' foo']
        
        ++$self->{'pod_para_count'};
        
        $self->_ponder_paragraph_buffer();
         # by now it's safe to cons <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4751	4861	
==>/
      or die "copy command requires destination";
    my $dest = $1;

    my ($group_files, $group_libs, $pmc <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4855	4965	
==>/
      or die "copy command requires destination";
    my $dest = $1;

    my ($group_files, $group_libs, $pmc <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1078	1231	
==>g) = @_;

    $msg ||= ".\n";

    if ( exists $parser->YYData->{nb_info} ) {
        $parser->YYData->{nb_info}++;
    }
    else {
        $pars <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32728	32840	
==>< (return value: [}
						. $_tok . q{])},
						  Parse::RecDescent::_tracefirst($text))
							if defined $::RD <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22683	22793	
==>< (return value: [}
						. $_tok . q{])},
						Parse::RecDescent::_tracefirst($text))
							if defined $::RD <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	614	766	
==>> $prefix,
    KIND      => 'while',
    LEFT      => $left,
    OP        => $op,
    RIGHT     => $right,

    CONTENT   => [ ]
  }, $class;

  $block- <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	60215	60311	
==>od->check_pending($line))
			  and $prod = $rule->addprod(new Parse::RecDescent::Production($line <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958849	959341	
==>coding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1079,
                  "ARGS" => [
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 590 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_encoding( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	1328	1574	
==>t) = @_;
    return if ! $m->{'!RESULT'};
    my %r;
    while (my ($k, $v) = each %$m) {
      next if $k =~ /^!/;
      if (UNIVERSAL::isa($v, 'ARRAY')) {
        if (@$v == 2 && $v->[1] != -2) {
          $r{$k} = substr($input, $v->[0], $v->[1 <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	7490	7588	
==>l_op
#define Parrot_jit_vtable_1123_op Parrot_jit_normal_op
#define Parrot_jit_vtable_2231_op Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	306714	307002	
==>ATIVE",
                  "NAME" => "unless_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307507	307795	
==>ATIVE",
                  "NAME" => "unless_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	3005	3168	
==>ectory's parent directory. The root directory returns
C<undef>.

=cut

sub parent
{
    my $self = shift;
    
    return unless $self->parent_path;
    
    return <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10110	10228	
==>bullet') {
        print $fh "\\'95 \n";
        #for funky testing: print $fh '', rtf_esc("\x{4E4B}\x{9053}");
      } <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15550	15641	
==>t_arg($node,2));
  $self->_add_inst ('', 'set', [$return.'[0]',$value]);
  $self->_restore ( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	12366	12503	
==>$howfar, $lastback) = @_;
    my $back = $self->genlabel('undo_charclass');
    my $next = $self->genlabel('after_charclass');

    my @op <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	17509	17694	
==>eturn generated code.
    return $pir;
}


# Generate the dispatch table.
# ############################
sub generate_dispatch_table($$$) {
    my $srm = shift;
    my @rules = @{shift() <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	2344	2465	
==>es matching the regular expression specified by C<$ignorePattern> are
not included in the checksum.

=cut

sub file_checks <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9548	9663	
==>eq ''	# End of input: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	print STDERR "**At eof: aborting.\n" <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9118	9230	
==>eq ''	# End of input: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	print STDERR "**At eof: aborting.\n" <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	12578	12701	
==>ring.h
memcpy      string.h
memmove     string.h
memset      string.h
mktime      time.h
modf        math.h
modff       math <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2184	2353	
==>e is C<void *>.

=cut

sub opsarraytype
{
    return 'void *'
};

=item C<gen_goto($where)>

TODO - This is the same implementation as in C<Parrot::OpTrans>. It
should no <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	438	553	
==>-----------------
#
# The basic work of this module Pod::Simple::BlackBox is doing the dirty work
# of parsing Pod i <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	90	205	
==>m 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/gen/parrot_include.pm - Runtime Includes

=head1 DE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523762	524013	
==>=> 604,
                  "ARGS" => [
                              "n",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 744 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	5422	5600	
==>or $scratch =~
       s/(?:
           ^
           |
           (?<=[\cm\cj\t "\[\<\(])
         )   # start on whitespace, sequence-start, or quote
         ( # something lookin <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	364	495	
==>ub { $_[0]->code eq $_[0]->code },
  "!="  => sub { $_[0]->code ne $_[0]->code },
  "eq"  => sub { $_[0]->code eq $_[0]->code },
  " <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	50253	50432	
==>$_[6] ] ];
        }
	],
	[#Rule 35
		 '_elseif_star', 0,
sub
#line 211 "Lua\lua51.yp"
{
            [];
        }
	],
	[#Rule 36
		 'laststat', 2,
sub
#line 218 "Lua <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	708571	708836	
==>> "#line 704 \"src/ops/pmc.ops\"\n  dod_register_pmc(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5847	5952	
==>hes mean we need to deal with basic block-ish stuff. If the branch
	# did not pop anything it is unconditi <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3785	3890	
==>hes mean we need to deal with basic block-ish stuff. If the branch
	# did not pop anything it is unconditi <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4572	4691	
==>.
	return "";
}

# Pre and post branch operation hooks.
sub pre_branch($) {
	my $self = shift;
	my $pops = shift;
	my $r <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2988	3107	
==>.
	return "";
}

# Pre and post branch operation hooks.
sub pre_branch($) {
	my $self = shift;
	my $pops = shift;
	my $r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528691	529026	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ": <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529573	529908	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ": <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	3081	3222	
==>ex looks like ^ (as in papier ma^che/)
 #           umlaut/dieresis looks like " (as in nai"ve, Chloe")

 # From the XHTML 1 .ent files:
 'nbs <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	10465	10666	
==>ps")\s+
        {{\@1}}->vtable->
        (\w+)
        \(interpreter,
        \s*
        {{\@1}}
        \);
        \s+{{\+=\d}}/xm) {
            $jit_func = 'Parrot_jit_vtable1_op';
            $ex <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	737	844	
==>rop_stack_depth = new Hash
PIR
}

# Post translation hook.
sub post_translation() {
	# Nothing to do.
	retur <==
2	/Users/nnunley/parrot/config/auto/readline.pm	1399	1519	
==>e.h") {
            $conf->data->add(' ', linkflags => '-L/sw/lib');
            $conf->data->add(' ', ldflags   => '-L/s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	42102	42231	
==>defined $copy[-1];
       # since =over's don't have targets
    }
    
    DEBUG and print "Queuing up fake-o event: ", pretty(\@ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5027	5189	
==>TACK0} = concat "0"

# Emit pop code.
${INS} = concat ${STACK0}
${INS} = concat " = pop s\n"
PIR
	}

	return $pir;
}

sub post_store($) {
	my $self = shift;
	my $d <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7413	7571	
==>t_token($next);
          next;
        }
        DEBUG and print "    raw text ", $next->text, "\n";
        printf $fh "\n" . $next->text . "\n";
        nex <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9658	9816	
==>t_token($next);
          next;
        }
        DEBUG and print "    raw text ", $next->text, "\n";
        printf $fh "\n" . $next->text . "\n";
        nex <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3493	3636	
==>$self{LEX};
}


#################
# Private stuff #
#################


sub _CheckParams {
	my($mandatory,$checklist,$inarray,$outhash <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3315	3448	
==>$self{LEX};
}


#################
# Private stuff #
#################


sub _CheckParams {
	my($mandatory,$checklist,$inarray,$outhash <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	2952	3047	
==>een{$str} = $line;
	print "#define _CONST_STRING_$line $n\n";
	print ALL qq!$len\t$hashval\t"$st <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9216	9353	
==>rrok has been called
            or  next;       # so continue parsing

#DBG>			$debug & 0x10
#DBG>		and	do {
#DBG>			print STDERR "* <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8801	8933	
==>rrok has been called
            or  next;       # so continue parsing

#DBG>			$debug & 0x10
#DBG>		and	do {
#DBG>			print STDERR "* <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	9484	9786	
==>back => $self->dbprint("Unmatching $char\n"),
                     aop('increment', [ -1, $lastback ]),
                     aop('goto', [ $lastback ]),
                     @debugging,
            $next =>
               );

    return ($back, @ops);
}

sub rewrite_check {
    my ($self, $op, $amount, <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	7342	7459	
==>t, based on array, implicit class name:
    struct( ELEMENT_NAME => ELEMENT_TYPE, ... );

    # Declare struct at comp <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	2346	2489	
==>ate' => 'Wed Jun 28 10:53:19 2006',
             'cp' => 'perl -MExtUtils::Command -e cp',
             'cpuarch' => 'ppc',
             'cxx' = <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	39319	39509	
==>/\"$//s;
      }

      # Turn L<Foo Bar> into L</Foo Bar>.
      if(!$section_name and !$link_text and @ell_content
         and grep !ref($_) && m/ /s, @ell_content
      ) {
        $secti <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	5502	5628	
==>ref = $startpos;
			        return;
			}
			my $expected = pop(@nesting);
			$expected =~ tr/({[</)}]>/;
			if ($expected ne $b <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8585	8669	
==>","COMPUTER"
data "DAMAGES","DESTRUCT","DOCK","IDLE","IMPULSE","LRSCAN","NAVIGATE","P <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21449	21533	
==>","COMPUTER"
data "DAMAGES","DESTRUCT","DOCK","IDLE","IMPULSE","LRSCAN","NAVIGATE","P <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5484	5630	
==>0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}

${INS} = concat ${STEMP0}
${INS} = concat " = "
${INS} = concat ${LOADR <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	13318	13443	
==>, $indent . "  ") foreach (@children);
    } else {
        print $ref, "\n";
    }
}

sub annotated {
    my ($op, $str) = @_ <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15020	15152	
==>his as a mutually recursive multi-
sub which will be able to handle structures of arbitrary depth and of
an arbitrary type. The funct <==
2	/Users/nnunley/parrot/config/auto/jit.pm	2066	2242	
==>, 0);

    print(qq{-e "$jitbase/$cpuarch/core.jit" = }, -e "$jitbase/$cpuarch/core.jit" ? 'yes' : 'no', "\n")
        if $verbose;

    # XXX disable all but i386, ppc
    my % <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	13276	13528	
==>gument,
        # like so:
        #
        #    goto OFFSET(( (void*)interpreter->happy_place ))
        #
        # Later transformations turn the Op body notations into C code, based
        # on the mode of operation (function calls, switch stateme <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	1657	1762	
==>ray.pmc | less

=head2 Compiling PMCs

First, the program determines the names of the .c and .h files from <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13653	13775	
==>block, so we check for that case.
      #
      # We *always* create a continue block, even when there is none in the sourc <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	14034	14186	
==>d>">
            <td colspan="12" class="indent3">
              <tmpl_loop name=summary>
                <span class="tests_total"><tmpl_var name=total> <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7347	7474	
==>->{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        return ("set <rx_tmp>, <rx_stack>",
                $self <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9446	9573	
==>->{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        return ("set <rx_tmp>, <rx_stack>",
                $self <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	2072	2183	
==>_item('The status of the Parrot test suite.', 't/TESTS.STATUS.pod'),
        ),
        $self->new_group('People <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	108	221	
==>31.111564Z bernhard  $

=head1 NAME

Parrot::IO::File - File

=head1 SYNOPSIS

    use Parrot::IO::File;

=head1 D <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	766	864	
==>f->new_item('', 'tools/dev/cc_flags.pl'),
            $self->new_item('', 'tools/build/nativecall.p <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	5211	5453	
==>cial{$_} :
        !m[/]             ? '[]' :
        m[^LICENSES/]     ? '[main]doc' :
        m[^docs/]         ? '[main]doc' :
        m[^editor/]       ? '[devel]' :
        m[^examples/]     ? '[main]doc' :
        m[^include/]      ? '[m <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	1285	1448	
==>runops_cores.c: $(INC_DIR)/oplib/core_ops_cgp.h

$(INC_DIR)/oplib/core_ops_cg.h: $(OPS_DIR)/core_ops_cg.c 

$(OPS_DIR)/core_ops_cg.c : $(OPS_FILES) $(BUILD_TOOLS_DI <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	3532	3879	
==>m =~ s/\b(s(.).+?\2.*?\2)(?:\s+)?//) {
                        eval "\$tbody =~ ${1}g";
                        if ($@) {
                            die "error in template subst: $@\n";
                        }
                    }
                    $asm = $tbody;
                    # reset iterator for next run
                    keys(%te <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	34439	34584	
==>d_Tests} ) {
            my $num_extra = $self->{Curr_Test} - $self->{Expected_Tests};
            my $s = $self->{Expected_Tests} == 1 ? '' : 's' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5279	5511	
==>" => 7,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 140 \"src/ops/core.ops\"\n  {{+=2}};  /* reserve 1 entries */\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	4750	4874	
==>erse, and perl does horrible mangling to them that gets in my way,
it works like this on VMS.

    0     SS$_NORMAL        al <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11105	11203	
==>-----
1;
__END__

=head1 NAME

Pod::Escapes -- for resolving Pod EE<lt>...E<gt> sequences

=head1 S <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	15324	15510	
==>ack;
        push @iops, \@ops;
    }

    my @ops;
    for my $i (0..$#args) {
        push @ops, $tries[$i-1] unless $i == 0; # Label for the try
        push @ops, $self->dbprint("Tryi <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	554	674	
==>t pos
		    right$ rnd rtrim$
		    sadd screen seek setmem sgn sin spc sqr
			stick str$ strig string$
		    tab$ tan ti <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	7046	7165	
==>by ANSI C89:\n", scalar(@non_ansi_external_symbols));

    print "    $_ (in " . (join ',', @{$referenced_in{$_}}) . ")\ <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5543	5660	
==>b gather_groups_and_libs {
    my @pmcs = @_;

    my ( %group_files, %group_libs, %pmc_group, %pmc_libs );
    for my <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5754	5871	
==>b gather_groups_and_libs {
    my @pmcs = @_;

    my ( %group_files, %group_libs, %pmc_group, %pmc_libs );
    for my <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	2636	2781	
==>refix}_${suffix}";

  if (!defined $cond) {
    $compiler->emit("  goto $label");
  } else {
    if ($cond eq 'unless') {
      $op = $compiler->i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746295	746562	
==>,
                  "TYPE" => "inline",
                  "CODE" => 840,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 189 \"src/ops/set.ops\"\n  {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	308	401	
==>by F<tools/build/pbc2c.pl> to transform Parrot bytecode to a C code
run loop.

=head2 Instance <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561246	561567	
==>EXT",
                  "NAME" => "fetchmethod",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562329	562650	
==>EXT",
                  "NAME" => "fetchmethod",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	3651	3756	
==>, Attributes => { type => $self->type->name, name => $self->name } });
  $handler->end_element({ Name => ' <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4950	5056	
==>ompiler->emit("  $pmc_reg = $dest");
    $compiler->emit("  global \"$dest_name\" = $pmc_reg");
  }

  retu <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3013	3119	
==>ompiler->emit("  $pmc_reg = $dest");
    $compiler->emit("  global \"$dest_name\" = $pmc_reg");
  }

  retu <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7319	7422	
==>m$(a$);"<"
' A's and -'s
print string$(10,75-10)
print string$(20, "-")

' ON..GOTO   200! and then Oats <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	25975	26123	
==>elim);


 # Extract the initial substring of $text that is bounded by
 # an HTML/XML tag.

	($extracted, $remainder) = extract_tagged($text);


 # Ex <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	78126	78227	
==>conditional <error>",$_[2])
		and
		_hint("An unconditional <error> always causes the
		       product <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	7097	7248	
==>op->full_name, $source);
	}

	print "}\n\n";
    }
    print <<END_C;
    break;

default:
    return cur_opcode;
}
    return(0);
}
END_C

    return 0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	37245	37566	
==>",
                  "CODE" => 47,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 709 \"src/ops/core.ops\"\n  opcode_t * const ret = {{^+2}};\n  opcode_t * const dest = (opcode_t *)throw_exception(interpreter, {{\@1}}, ret);\n  {{=dest}};\ <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	202	307	
==>d1 SYNOPSIS

    % perl examples/mops/mops.pl

=head1 DESCRIPTION

A Perl implementation of the F<examples <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	198	303	
==>d1 SYNOPSIS

    % perl examples/mops/mops.pl

=head1 DESCRIPTION

A Perl implementation of the F<examples <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	899755	900251	
==>o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1015,
                  "ARGS" => [
                              "s",
                              "ic",
                              "ic",
                              "s"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)s <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	60427	60520	
==>item  C<Did not find a suitable bracket: "%s">

The delimiter provided to C<extract_bracketed> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42929	43067	
==>"
                            ],
                  "BODY" => "#line 727 \"src/ops/core.ops\"\n  do_exception(interpreter, EXCEPT_exit, {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9980	10188	
==>lative path is a file.

=cut

sub relative_path_is_file
{
    my $self = shift;
    my $path = $self->path_for_file_with_relative_path(shift);
    
    return unless $path;
    
    return -f $path;
}

=item C <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	337386	337638	
==>"\n  {{\@1}} = (INTVAL)PIO_getfd(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/lib/Test/More.pm	30391	30541	
==>' ) {
                push @Data_Stack, { type => $type, vals => [$e1, $e2] };
                $ok = _deep_check($$e1, $$e2);
                pop @Data <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1722	1836	
==>rns the argument at C<$index>.

=cut

sub arg
{
    my $self = shift;

    return $self->{ARGS}[shift];
}

=item C< <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1359	1444	
==>:Construct::Statement::Increment;
use Jako::Construct::Statement::LoopControl;
use Jak <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	15429	15531	
==>p { "$temp[$_]->[1] = arg$_;"} @tempi);
        print NCI << "HEADER";
static void
pcf_${return}_$param <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18844	18933	
==>nt)
that codeblocks ("verbatim sections") will appear as.

=item $parser->header_halfpoint <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22429	22540	
==>f->_constant(1);
  my $temp_1 = $self->_constant(2);
  $self->_add_inst(''           ,'mod'   ,[$temp_0,$temp_0, <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22930	23041	
==>f->_constant(1);
  my $temp_1 = $self->_constant(2);
  $self->_add_inst(''           ,'mod'   ,[$temp_0,$temp_0, <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65288	65427	
==>);

						!$matchrule and $rule and $rule->addcall($name);
					}
				}
				elsif ($grammar =~ m/$ATLEAST/gco)
				{
					_parse("a $1-or-mo <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	962	1103	
==>->isa("Jako::Construct::Block::Module")
      or $construct->isa("Jako::Construct::Declaration::Sub")
    ) {
      if ($last_seen ne 'sub') { <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	59238	59396	
==>sub
#line 562 "Lua\lua51.yp"
{
            BuildTable( $_[0], $_[2] );
        }
	],
	[#Rule 105
		 'tableconstructor', 2,
sub
#line 566 "Lua\lua51.yp <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6212	6302	
==>RG0} :-(
prop_type_state[${ITEMP0}] = ${STYPES}
prop_stack_depth[${ITEMP0}] = stack_depth
g <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4150	4240	
==>RG0} :-(
prop_type_state[${ITEMP0}] = ${STYPES}
prop_stack_depth[${ITEMP0}] = stack_depth
g <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480397	480709	
==>nline",
                  "CODE" => 550,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 446 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	21562	21789	
==>xt
#        rfail: if $matchcount == 0 goto lastback
#               $matchcount--
#               goto R.back
#         back: R or rfail
#               $matchcount++
#         next:
#
sub rewrite_star {
    my ($self, $op, $R, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	5267	5363	
==>if $stmt->{label}->{reachable}; # Already reached here
	$stmt->{label}->{reachable} = 1;

	# Loop <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	527	678	
==>funcs without docs

* Generate docs from funcs

* Test the POD of the stuff we're parsing.

=head1 COMMAND-LINE OPTIONS

=over 4

=item C<--verbose>

Ve <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	1477	1597	
==>h' => 'C header',
	'hacking' => 'README file',
	'il' => 'MSIL assembler code',
	'imc' => 'IMC code',
	'in' => 'Configurat <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1499	1587	
==>at ${STEMP1}
${STEMP1} = "$register_num"
${STEMP0} = concat ${STEMP1}
${STACK$register_nu <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3209	3297	
==>at ${STEMP1}
${STEMP1} = "$register_num"
${STEMP0} = concat ${STEMP1}
${STACK$register_nu <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24778	24879	
==>gnment.  Type of course will be a float.
	($result, $type, @code)=EXPRESSION({ lhs => 1, assign => 1}) <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	4653	4850	
==>sion = $ops->minor_version;
my $patch_version = $ops->patch_version;
my $num_ops     = scalar $ops->ops;
my $num_entries = $num_ops + 1; # For trailing NULL


#
# Open the output files:
#

if (!$dyn <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23325	23444	
==>b isterminal { 0 }
sub describe { $_[1] ? '' : $_[0]->{name} }
sub sethashname { $_[0]->{hashname} = '__DIRECTIVE' . ++$ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	589	737	
==>abel');
}

=item method label_indices(op)

Figure out which arguments of an op are labels, and return an array of
their indices.

=cut

sub label_ind <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511059	511379	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511797	512117	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	17503	17656	
==>},
	{#State 63
		DEFAULT => -36
	},
	{#State 64
		DEFAULT => -35
	},
	{#State 65
		DEFAULT => -23
	},
	{#State 66
		ACTIONS => {
			'NUM' => 40,
			">" => <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	47653	47912	
==>t "Paragraph:\n$para\n\n";
  
  while($para =~  # Here begins our frightening tokenizer RE.
    m/\G
      (?:
        ([A-Z]<(<+\ )?) # that's $1 and $2 for both kinds of start-codes
        |
        (\ >{2,})       # $3: end-codes of the type " >>", " >>>", <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	165	352	
==>r;
use strict;
use Carp ();
use Pod::Simple::Methody ();
use Pod::Simple ();
use vars qw( @ISA $VERSION );
$VERSION = '2.02';
@ISA = ('Pod::Simple::Methody');
BEGIN { *DEBUG = defined(&Pod <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	6118	6295	
==>ept_directives('Data',     @_) }
sub accept_directive_as_processed { shift->_accept_directives('Plain',    @_) }

sub _accept_directives {
  my($this, $type) = splice @_,0,2;
  f <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops.pm	4	133	
==>age Regex::Ops;

use vars qw(%MARKERS);
sub mark {
    my $name = shift || '';
    my $number = ++$MARKERS{$name};
    $number = ' <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48283	48469	
==>) }
				elsif ($grammar =~ m/$ANY/gco)
					{ $minrep = 0 }
				elsif ($grammar =~ m/$EXACTLY/gco)
					{ ($minrep, $maxrep) = ($1,$1) }
				elsif ($grammar =~ m/$BETWEEN/gco)
					{ ($mi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727096	727557	
==>ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "io"
                               ],
                  "TYPE" => "function",
                  "CODE" => 815,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 50 \"src/ops/set.ops\"\n   const <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	68458	68847	
==>,
                  "ARGDIRS" => [],
                  "TYPE" => "function",
                  "CODE" => 90,
                  "ARGS" => [],
                  "BODY" => "#line 1060 \"src/ops/core.ops\"\n  Parrot_unblock_DOD(interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	354	462	
==>w ( @ISA );
use strict;

@ISA= qw ( Parse::Yapp::Driver );
#Included Parse/Yapp/Driver.pm file----------- <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	347	451	
==>w ( @ISA );
use strict;

@ISA= qw ( Parse::Yapp::Driver );
#Included Parse/Yapp/Driver.pm file----------- <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	17286	17425	
==>s=>1, blaze=>"white" },
                        breed    => Breed->new(name=>'short-hair', cross=>1),
                   or:  breed    => {n <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	1574	1672	
==>C<#line> directives in the generated C code.

=back

=head1 SEE ALSO

=over 4

=item F<tools/build/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685620	685989	
==>);\n      {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getprop",
                  "FLAGS" => "",
                  "ARGD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686512	686878	
==>);\n   {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getprop",
                  "FLAGS" => "",
                  "ARGD <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	10935	11063	
==>math.h
fscanf      stdio.h
fseek       stdio.h
fsetpos     stdio.h
ftell       stdio.h
fwrite      stdio.h
getc        stdio.h
ge <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	3670	3816	
==>? $_[2] : '\s*';
	my $wantarray = wantarray;
	my $qdel = "";
	my $quotelike;
	$ldel =~ s/'//g and $qdel .= q{'};
	$ldel =~ s/"//g and $qdel .= q{"} <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	38827	38924	
==>tem C<fail =E<gt> $str>

The C<fail> option indicates the action to be taken if a matching end
tag <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	17363	17486	
==>p2  = shift;
    $code =~ s/%1/$op1/g;
    $code =~ s/%2/$op2/g;
    $code .= "\n";
    return($code);
}

__END__ 

=head1 N <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142407	142684	
==>",
                  "CODE" => 174,
                  "ARGS" => [
                              "n",
                              "nc",
                              "ic"
                            ],
                  "BODY" => "#line 77 \"src/ops/cmp.ops\"\n  if ({{\@1}} == <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	11068	11220	
==>endings
            convert_line_endings( $expected );

            # set up default description
            unless ( $desc ) {
               (undef, my <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	16553	16705	
==>endings
            convert_line_endings( $expected );

            # set up default description
            unless ( $desc ) {
               (undef, my <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	338	511	
==>use Carp;

use base qw(Jako::Construct::Block);

sub kind { return 'sub'; }

sub new
{
  my $class = shift;

  confess "Expected 5 args!" unless @_ == 5;
  my ($block, $type, <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	1334	1457	
==>follow a decimal point
             $token =~ /^\d/)) {  # Digits can follow other digits
      $token .= $ch;
    } elsif($ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56671	57156	
==>E" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 73,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 869 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo_p(in <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4089	4206	
==>s) = 
        gather_groups_and_libs(@pmcs);

    # Convert lib-GROUP.so + A.so + B.so ... -> GROUP.so
    while (my ( <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4193	4310	
==>s) = 
        gather_groups_and_libs(@pmcs);

    # Convert lib-GROUP.so + A.so + B.so ... -> GROUP.so
    while (my ( <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	7298	7415	
==>ARROT_OPS_DEBUG};
	return -1;
    } else {
	my $n = $ParrotOps::optable{$opname} = ++$ParrotOps::max_op_num;
	warn "$o <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	1274	1479	
==>write_NEXT'],
  ['write_DOT',    'print', '" . "'],
  ['',             'save', 'P1'],
  ['',             'invokecc'],
  ['',             'restore', 'P1'],
  ['write_KET',    'print', '")"'],
  ['write_RET', <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	13507	13599	
==>.:.:.:.:.:.:.:.:.:.:.:.:.:.:.

sub parse_from_file {
  # An emulation of Pod::Parser's interf <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8044	8197	
==>s:
      #

      my %props;

      while ($self->skip_colon) {
        my $prop = $self->require_ident->text;
      
        my $value;

        if ($sel <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5050	5197	
==>s:
      #

      my %props;

      while ($self->skip_colon) {
        my $prop = $self->require_ident->text;

        my $value;

        if ($sel <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11043	11134	
==>tx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  {{+={{\@1}}}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11832	11923	
==>tx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  {{+={{\@1}}}} <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	4450	4544	
==>'', 'set',[$return,$value]);
    }
    elsif ($value =~ /^[-+]?((\d+\.\d*)|(\.d+))([eE][-+]?\d+ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3469	3560	
==>'', 'set', [$return,$value]);
  }
  elsif ($value =~ /^[-+]?((\d+\.\d*)|(\.d+))([eE][-+]?\d+ <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6223	6331	
==>\%group_files, \%group_libs, \%pmc_group, \%pmc_libs);
}

sub modtime {
    my $ago = (-M shift);

    if (de <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6434	6542	
==>\%group_files, \%group_libs, \%pmc_group, \%pmc_libs);
}

sub modtime {
    my $ago = (-M shift);

    if (de <==
2	/Users/nnunley/parrot/config/auto/perldoc.pm	282	378	
==>:perldoc;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Bas <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16360	16619	
==>$defn ) {
            $result = $defn;
        }
        else {
            $defn = $parser->YYData->{symbtab}->LookupU($idf);
            if ( defined $defn ) {
                $result = new_tmp( $parser, 'pmc' );
                push @opcodes, new Loc <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	478	619	
==>ift;
  my ($compiler) = @_;

  my $kind        = $self->kind;
  my $peer        = $self->peer;

  my $prefix;

  if ($self->prefix) {
    $pre <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	458	599	
==>ift;
  my ($compiler) = @_;

  my $kind        = $self->kind;
  my $peer        = $self->peer;

  my $prefix;

  if ($self->prefix) {
    $pre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365234	365340	
==>3 \"src/ops/io.ops\"\n  if ({{\@2}} && {{\@1}}) {\n    PIO_putps(interpreter, {{\@1}}, {{\@2}});\n  }\n  el <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366074	366180	
==>3 \"src/ops/io.ops\"\n  if ({{\@2}} && {{\@1}}) {\n    PIO_putps(interpreter, {{\@1}}, {{\@2}});\n  }\n  el <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6348	6457	
==>hrough the array.
WHILE Exchange          ' Sort until no elements are exchanged.
   Exchange=FALSE
   ' Compa <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16001	16110	
==>hrough the array.
WHILE Exchange          ' Sort until no elements are exchanged.
   Exchange=FALSE
   ' Compa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78410	78841	
==>"FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 100,
                  "ARGS" => [
                              "p",
                              "p",
                              "s"
                            ], <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	32598	32722	
==>p_define,
  'set!'       => \&_op_set_bang,
  'cond'       => \&_op_cond,
  'case'       => \&_op_case,
  'and'        => \&_ <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	1075	1205	
==>ed (slow or fast core) run loop.

=item C<CGoto>

Create the C<goto> run loop.

=item C<CGP>

Create the C<goto> and predereference <==
2	/Users/nnunley/parrot/config/auto/gdbm.pm	309	426	
==>ut

package auto::gdbm;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

us <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	157	343	
==>ols/dev/lib_deps.pl 19607 2006-05-30T15:23:20.183054Z coke  $
################################################################################

=head1 NAME

tools/dev/lib_deps.pl - List l <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20678	20803	
==>alue::Identifier->new($block, $self->get());
        push @left, $left;
        $self->require_assign;
      }

      my $cons <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	1168	1298	
==>> 54,
	Enumerate => 55,
	FixedBooleanArray => 56,
	FixedFloatArray => 57,
	FixedPMCArray => 58,
	LexInfo => 59,
	MultiSub => 60,
	N <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8709	8829	
==>e_label();
		$currline="$labels{$syms[CURR]}";
		label_defined($syms[CURR]);
		push @{$code{$seg}->{code}}, "$labels{$sym <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	7282	7511	
==>ete $options{CD};

    while (my($key, $value) = each %options) {
        $key =~ m/^STD(OUT|ERR)$/
            or die "I don't know how to redirect '$key' yet!";
        $value = File::Spec->devnull
            if $value eq '/dev <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29401	29511	
==>Parrot::Pmc2c::Standard;
use base 'Parrot::Pmc2c';

=item C<body($method, $line, $out_name)>

Returns the C cod <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	8456	8582	
==>d->{meth};
    my $args= $method->{parameters};
    $args = ", $args" if $args =~ /\S/;
    my ($export, $extern, $newl, $semi, <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	1806	1901	
==>('verbose') && $self->get('verbose') == 2;

    print "Setting Configuration Data:\n(\n" if $ver <==
2	/Users/nnunley/parrot/config/inter/make.pm	553	689	
==>d";
$prompt      = "Do you have a make utility like 'gmake' or 'make'?";
@args        = qw( make ask );

sub runstep
{
    my ($self, $co <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	594	888	
==>,  "}" );
 } @_;
}

my @_to_accept;

%Tagmap = (
 # 'foo=bar' means ('foo' => '{\bar'."\n", '/foo' => '}')
 _openclose(
  'B=cs18\b',
  'I=cs16\i',
  'C=cs19\f1\lang1024\noproof',
  'F=cs17\i\lang1024\noproof',

  'VerbatimI=cs26\i',
  'VerbatimB=cs27\b',
  'VerbatimBI=cs28\b\i',

  map {; m/^( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826393	826483	
==>46 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CON <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827463	827553	
==>46 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CON <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7104	7199	
==>[CURR] eq "_startasm") {
		feedme;
		#$syms[CURR]=~s/^\n|\n$//gm;
		push @{$code{$seg}->{code}}, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032520	1032810	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_lex",
                  "FLAGS" => "",
                  "ARGDIR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033617	1033907	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_lex",
                  "FLAGS" => "",
                  "ARGDIR <==
2	/Users/nnunley/parrot/config/init/hints/darwin.pm	248	383	
==>) = $conf->data->get(qw(ccflags ldflags libs));

    my $OSVers = `uname -r`;
    chomp $OSVers;
    {
        local $^W;
        if ($O <==
2	/Users/nnunley/parrot/lib/Test/More.pm	392	666	
==>DO);
$VERSION = '0.60';
$VERSION = eval $VERSION;    # make the alpha version come out as a number

@ISA    = qw(Exporter);
@EXPORT = qw(ok use_ok require_ok
             is isnt like unlike is_deeply
             cmp_ok
             skip todo todo_skip
             pass fai <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	6402	6559	
==>rse @output3) {
	$stmt->{next} = $next;
	$next = $stmt;
    }

    # Eliminate gotos to the following address
    my @output4;
    foreach my $stmt (@output3) <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	811	1047	
==>S, ">> CFLAGS") or die "open >> CFLAGS: $!";

    # Why is this here?  I'd think this information belongs
    # in the CFLAGS.in file. -- A.D.  March 12, 2004
    if ($conf->data->get('cpuarch') =~ /sun4|sparc64/) {

        # CFLAGS ent <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	1771	1877	
==>};
    }
}


=head1 NAME

Test::Builder - Backend for building test libraries

=head1 SYNOPSIS

  package M <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407500	407806	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "connect",
                  "FLAGS" => ":base_netw <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408398	408704	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "connect",
                  "FLAGS" => ":base_netw <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	14222	14361	
==>rata' => 1}, ''],
  ;

  DEBUG and print "\n<<\n", pretty(\@out), "\n>>\n\n";

  return @out;
}

}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	24	136	
==>:Simple::PullParserTextToken;
use Pod::Simple::PullParserToken ();
@ISA = ('Pod::Simple::PullParserToken');
use s <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19873	19988	
==>$opcodes};
    my $decl = pop @{$opcodes};
    delete $call->{result};
    push @{$opcodes}, $call;
    return $ <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	14	113	
==>THIS FILE
# Generated by Parrot::Configure::Step from config/gen/makefiles/dynclasses_pl.in

# Copyr <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9286	9396	
==>"\n"

# Decrement stack height.
dec stack_depth
PIR
	}

	return $pir;
}

# Pre and post call hooks.
sub pre_cal <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6804	6914	
==>"\n"

# Decrement stack height.
dec stack_depth
PIR
	}

	return $pir;
}

# Pre and post call hooks.
sub pre_cal <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21587	21701	
==>@{ $expr1->[1] };
    push @opcodes, @{ $expr2->[1] };
    push @opcodes, new LocalDir( $parser,
        'result <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	22409	22523	
==>@{ $expr1->[1] };
    push @opcodes, @{ $expr2->[1] };
    push @opcodes, new LocalDir( $parser,
        'result <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	6816	7065	
==>.
        #
        # Either of these two forms work:
        #
        #   inline op  name (args) {
        #   op         name (args) {
        #
        # The args are a comma-separated list of items from this table of argument
        # types (ev <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650745	650995	
==>enum_last_type)\n        {{\@1}} = 1;\n    else\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651667	651917	
==>enum_last_type)\n        {{\@1}} = 1;\n    else\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6636	6774	
==>e $act.\n";

					$$errstatus
				and	do {
					--$$errstatus;

#DBG>					$debug & 0x10
#DBG>				and	$dbgerror
#DBG>				and	$$errst <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6329	6459	
==>e $act.\n";

					$$errstatus
				and	do {
					--$$errstatus;

#DBG>					$debug & 0x10
#DBG>				and	$dbgerror
#DBG>				and	$$errst <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3423	3544	
==>_fh'} }   '', 
    $self->{'Thispara'},
    "\n\n"
  ;
  $self->{'Thispara'} = '';
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2953	3074	
==>_fh'} }   '', 
    $self->{'Thispara'},
    "\n\n"
  ;
  $self->{'Thispara'} = '';
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129753	129918	
==>],
                  "BODY" => "#line 301 \"src/ops/bit.ops\"\n  {{\@1}} ^= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130492	130657	
==>],
                  "BODY" => "#line 301 \"src/ops/bit.ops\"\n  {{\@1}} ^= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7806	7915	
==>ype[CURR] eq "STMT" or $type[CURR] eq "COMM" or $type[CURR] eq "STMT") and $singleif) {
		while($_=pop(@ifstac <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	8396	8492	
==>::OpTrans>

=item F<tools/build/ops2c.pl>

=item F<tools/build/ops2pm.pl>

=item F<tools/build/pb <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	19180	19276	
==>::OpTrans>

=item F<tools/build/ops2c.pl>

=item F<tools/build/ops2pm.pl>

=item F<tools/build/pb <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	7	120	
==>bin/perl
use strict;

my @results = ();
while (<>) {
	if (/^Translated (\d+) types out of (\d+) from .+?([\.\ <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	7	120	
==>bin/perl
use strict;

my @results = ();
while (<>) {
	if (/^Translated (\d+) types out of (\d+) from .+?([\.\ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1421	1531	
==>x_pos>; # group 0 start := pos');
}

sub output_increment {
    my ($self, $distance, $failLabel) = @_;
    die <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1669	1778	
==>x_pos> # group 0 start := pos');
}

sub output_increment {
    my ($self, $distance, $failLabel) = @_;
    die <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684725	685138	
==>);\n      {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	3174	3283	
==>sub BuildLiteral {
    my ( $parser, $value, $type ) = @_;

    my $defn = $parser->YYData->{symbtab_cst}-> <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	639	808	
==>Spec->catfile(File::Spec->tmpdir, @_));
}

=item C<new($path)>

Returns the instance for C<$path>.

=cut

sub new
{
    my $self = shift;
    my $path = shift;
    
    r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	119348	119542	
==>,
                              "i"
                            ],
                  "BODY" => "#line 231 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120203	120397	
==>,
                              "i"
                            ],
                  "BODY" => "#line 231 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	22557	23137	
==>fail');
        my ($R_back, @R_ops) = $self->rewrite($R, $rfail);
        my @ops = (
                   aop('pushint', [ 0 ]),
                   aop('goto', [ $next ]),
         $rfail => aop('popindex', [ '<tmp>', $R_back ]),
                   aop('goto', [ $lastback ]),
          $back => @R_ops,
                   aop('pushmark'),
          $next =>
                  );
        return ($back, @ops);
    }
}

# R+ ->       pushmark
#       loop: R or rback
#             push 0
#             goto loop
#      rback: popindex or lastback
#       next:
#
# (back is R.back) <==
2	/Users/nnunley/parrot/tools/build/vtable_h.pl	418	550	
==>table>

=back

=cut

use lib 'lib';
use Parrot::Vtable;

my $vtable = parse_vtable();

open OUT, ">include/parrot/vtable.h" or die $! <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	16841	16957	
==>stances found in the file(s).

=cut

sub ops
{
    my ($self) = @_;

    return @{$self->{OPS}};
}

=item C<op($index <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	454	561	
==>.

=head2 Op Functions

For ops that have trivial bodies (such as just a call to some other
function and a C <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7638	7867	
==>',$temp]);
  $self->_add_inst('', 'set', [$copy,$temp]);
  $self->_add_inst('', 'branch', ["ITER_$label"]);
  $self->_restore($temp);

  # append the rest to the end of list
  $self->_add_inst("FINISH_$label", 'set', [$copy.'[1]', <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488632	488825	
==>7 \"src/ops/math.ops\"\n  {{\@1}} = floor( {{\@1}} );\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	576	694	
==>my $prefix;

  if ($self->prefix) {
    $prefix = $self->prefix;
  }
  else {
    $prefix = $self->peer ? $peer->prefix <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	556	674	
==>my $prefix;

  if ($self->prefix) {
    $prefix = $self->prefix;
  }
  else {
    $prefix = $self->peer ? $peer->prefix <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	4094	4200	
==>EM_TEXT};
    
    print {$self->{'output_fh'}} $self->{'Tagmap'}{$tagname};
    
    my $next = $self->get <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	4254	4530	
==>);
    return 0;
}
END
            close TEST;

            cc_build();
            cc_run();
        }
        ) {
        $conf->data->set(
            hugefloatval     => 'long double',
            hugefloatvalsize => $size
        );
        } else {
        $conf->data->s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649907	650195	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "valid_type",
                  "FLAGS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650828	651116	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "valid_type",
                  "FLAGS" <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	11410	11547	
==>+ id),
          expander = document.getElementById("expander_" + id);
      if(elem.className == "details") {
	elem.className = "";  /* h <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741800	742020	
==>=> 834,
                  "ARGS" => [
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 169 \"src/ops/set.ops\"\n  {{\@1}} = string_cop <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	18169	18334	
==>ne' => $para->[1]{'start_line'}, '~really' => '=for'},
          $target,
        ],
      ;
      
      next;
      
    } elsif($para_type eq '=begin') { #//////// <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225066	225486	
==>i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 263,
                  "ARGS" => [
                              "p",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 523 \"src/ops/cmp.ops\"\n  if ({{\ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	2881	3030	
==>me => 'arg', Attributes => { name => $arg_name, type => $arg_type } });
    $handler->end_element({ Name => 'arg' });
  }

  foreach my $content ($sel <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7109	7210	
==>$copy = $self->_new_pair;

  $self->_add_inst('', 'set', [$head, $copy]);

  # maybe ensure that $type <==
2	/Users/nnunley/parrot/config/auto/jit.pm	2150	2284	
==>jit" ? 'yes' : 'no', "\n")
        if $verbose;

    # XXX disable all but i386, ppc
    my %jit_is_working = (
	i386 => 1,
	ppc  => 1, <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	63512	63622	
==>fied opening tag and tried to
modify the matched text to produce a matching closing tag (because
none was speci <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17212	17636	
==>r,
                    'result' => $result,
                );
                push @opcodes, new KeyedGetOp( $parser,
                    'result' => $result,
                    'arg1'   => $global->[0],
                    'arg2'   => $key->[0],
                );
            }
        }
    }
    foreach my $key ( @{$var} ) {
        push @opcodes, @{ $key->[1] };
        my $result2 = new_tmp( $parser, ' <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18249	18395	
==>r,
        'result' => $result,
    );
    push @opcodes, new KeyedGetOp( $parser,
        'result' => $result,
        'arg1'   => $obj->[0], <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32327	32433	
==>hese will be out by one - NWC
    my $l = $self->line_directive($line, "ref.c");
    return <<EOC;
$l
$decl <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40949	41055	
==>hese will be out by one - NWC
    my $l = $self->line_directive($line, "ref.c");
    return <<EOC;
$l
$decl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762924	763165	
==>,
                  "ARGS" => [
                              "i",
                              "n"
                            ],
                  "BODY" => "#line 320 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	148	249	
==>1 NAME

examples/mops/mops.c - Calculate M ops/s

=head1 SYNOPSIS

    % perl examples/mops/mops.pl

= <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	144	245	
==>1 NAME

examples/mops/mops.c - Calculate M ops/s

=head1 SYNOPSIS

    % perl examples/mops/mops.pl

= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168501	168591	
==>mp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169443	169533	
==>mp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={ <==
2	/Users/nnunley/parrot/config/gen/platform.pm	413	586	
==>rrot::Configure::Step qw(copy_if_diff);

our $description = 'Moving platform files into place';
our @args        = qw(miniparrot verbose);

sub runstep {
    my ($self, $conf <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	2151	2306	
==>et, can just traverse the content of the treeleet
@$treelet_object.  To wit:


  % perl -MData::Dumper -e
    "use base qw(Pod::Simple::Methody);
     sub s <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30789	30897	
==>, "$_", DIM_$_
DISP
	}
	print CODE <<DISP2;
	print "Structure type of "
	print S0
	print " not found\\n"
	_pl <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	25911	26067	
==>top
EOC
	    $func = 'the::internal';
	}
	print <<EOC;
	$ret_string$func($args)  $cmt
EOC
    }
    my $opcode = $code[$code_l]->[2];
    if ($opcode eq 'POP <==
2	/Users/nnunley/parrot/config/init/defaults.pm	6572	6680	
==>ned $prefix) {
        my $VERSION = $conf->data->get('VERSION');
        my $DEVEL   = $conf->data->get('DEV <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712440	712541	
==>reter, io, \" \");\n  s = Parrot_sprintf_c(interpreter, \"%.12g\", (double){{\@1}});\n  PIO_putps(inte <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713547	713648	
==>reter, io, \" \");\n  s = Parrot_sprintf_c(interpreter, \"%.12g\", (double){{\@1}});\n  PIO_putps(inte <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	603	787	
==>%Known_directives       = map(($_=>'Plain'), @Known_directives);
$NL = $/ unless defined $NL;

#-----------------------------------------------------------------------------
# Set up so <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	16635	16812	
==>don't interfere with $@
                        # eval() sometimes resets $!
        $test = eval "\$got $type \$expect";
    }
    local $Level = $Level + 1;
    my $ok = $self- <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	51170	51419	
==>key' ),
            ];
        }
	],
	[#Rule 42
		 '_funcname', 1,
sub
#line 253 "Lua\lua51.yp"
{
            [ $_[1] ];
        }
	],
	[#Rule 43
		 'varlist1', 3,
sub
#line 260 "Lua\lua51.yp"
{
            [
                @{ $_[1 <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	41749	41897	
==>ells_to_tweak;

  while($treelet = shift @stack) {
    for(my $i = 2; $i < @$treelet; ++$i) { # iterate over children
      next unless ref $treelet- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147274	147364	
==>mp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) == {{\@2}}) {\n    {{+={ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148215	148305	
==>mp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) == {{\@2}}) {\n    {{+={ <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1779	1968	
==>arrot.a';
    }
}

# OPS2C Config
our $OPS2C = "$PERL -I $PATHQUOTE" . 
             q[/Users/nnunley/parrot/lib] .
             "$PATHQUOTE $PATHQUOTE" .
             q[/Users/nnunley/parro <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	3152	3263	
==>seen any errors (fatal or not)

 'code_handler',      # coderef to call when a code (non-pod) line is seen
 'cut <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	12113	12263	
==>]+$/s
          and $head1_text_content !~
            m/\((?:
             NAME | TITLE | VERSION | AUTHORS? | DESCRIPTION | SYNOPSIS
             | C <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	4363	4593	
==>l'     , 220,
 'Yacute'   , 221,
 'THORN'    , 222,
 'szlig'    , 223,
 'agrave'   , 224,
 'aacute'   , 225,
 'acirc'    , 226,
 'atilde'   , 227,
 'auml'     , 228,
 'aring'    , 229,
 'aelig'    , 230,
 'ccedil'   , 231,
 'egrave <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	3028	3161	
==>LE_DATA_IS_PMC   = 0x08,
    VTABLE_PMC_IS_SINGLETON = 0x10,
    VTABLE_IS_SHARED_FLAG   = 0x20,
    VTABLE_IS_CONST_PMC_FLAG = 0x40
} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	20367	20496	
==>e 129 "lib/Regex/Grammar.y"
{ return op('multi_match' => [ $_[2]->{min}, $_[2]->{max}, TRUE, $_[1] ]); }
	],
	[#Rule 20
		 'expr', <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920923	921071	
==>"
                            ],
                  "BODY" => "#line 316 \"src/ops/string.ops\"\n    {{\@1}}=Parrot_psprintf(interpreter, {{\@2}}, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921816	921964	
==>"
                            ],
                  "BODY" => "#line 316 \"src/ops/string.ops\"\n    {{\@1}}=Parrot_psprintf(interpreter, {{\@2}}, {{\ <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	6094	6206	
==>'dry-run'}) {
	print "$src -> $dest\n";
	next;
    }
    else {
	next unless -e $src;
	copy($src, $dest) or die " <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8445	8556	
==>$self->require_open_paren;

      my @formal_args;

      unless ($self->skip_close_paren) {
        while (1) { <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2095	2252	
==>en'), but that's not so
pretty as using just $token->type, or even the following shortcuts:

=item $token->is_start

This is a shortcut for C<< $token->type() <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	16425	16541	
==>::More's cmp_ok().

    $Test->cmp_ok($big_num, '!=', $other_big_num);

=cut

sub cmp_ok {
    my($self, $got, $type, <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8800	8947	
==>{$seg}->{code}}, "$labels{$syms[CURR]}:   # For user branch ($syms[CURR])\n";
		debug() if $debug;
		goto PARSE
	}
	#
	# End of compile?
	#
	if ($sy <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6520	6626	
==>{$seg}->{code}}, "$labels{$syms[CURR]}:   # For user branch ($syms[CURR])\n";
		debug() if $debug;
		$currl <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	7788	8041	
==>gen/makefiles/Zcode.in' => 'languages/Zcode/Makefile',
        commentType                     => '#',
        replace_slashes                 => 1
    );
    genfile(
        'config/gen/makefiles/parrot.pc.in' => 'parrot.pc'
    );

    if ($conf->data <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3689	3915	
==>ndef unless defined $to and length $to;
     # resolve_pod_page_link returning undef is how it
     #  can signal that it gives up on making a link
     # (I pass it the section value, but I don't see a
     #  particular reaso <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819563	819650	
==>try =\n    stack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820523	820610	
==>try =\n    stack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n\n <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	1110	1240	
==>::Integer->new($token) if $type eq 'int';
  return Jako::Construct::Type::Number->new($token)  if $type eq 'num';
  return Jako::Co <==
2	/Users/nnunley/parrot/examples/benchmarks/oo5.pl	6	119	
==>l -w
use strict;

my $o = new Foo();
for my $i (1 .. 500000) {
	my $x = $o->i;
	my $y = $o->j;
}
print $o->i, "\n" <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	2537	2645	
==>->data->set(float4_t => 'double');
        print <<'END';

Can't find a float type with size 4, conversion op <==
2	/Users/nnunley/parrot/tools/dev/as2c.pl	886	1024	
==>t) {
		print " */\n";
	    }
	    my ($bytes, $src) = ($1, $2);
	    $src =~ s/\t/ /g;
	    my $len = length($bytes);
	    my @pairs = ($by <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1396	1489	
==>elf->DEBUG(0, "Searching for symbol '$name'...");

  my $sym = $self->block->find_symbol($name <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1141	1234	
==>elf->DEBUG(0, "Searching for symbol '$name'...");

  my $sym = $self->block->find_symbol($name <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9427	9552	
==>print "Correct"
end if
if p$ = "Hello" then print "Whoa"

' Count by .5's and True! after 3
for t=1 to 10 step 0.5
print t,
pr <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	13855	13993	
==>rtf       math.h
sqrtl       math.h
srand       stdlib.h
sscanf      stdio.h
stderr      stdio.h
stdin       stdio.h
stdout      stdio.h
st <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	9312	9448	
==>mber > $ParrotOps::max_op_num) {
      $ParrotOps::max_op_num = $number;
    }
  }
  close OP;
  return;
}

exit 0;

# vim: expandtab shi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	16797	16938	
==>ormatter
that uses Pod::Simple::PullParser.

=head1 METHODS

=over

=item my $token = $parser->get_token

This returns the next token object ( <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	41229	41396	
==>us subroutine which
extracts text between (balanced) specified tags. In other words,
it generates a function identical in function to C<extract_tagged>.

The difference <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	19034	19136	
==>inter, signature);

    if (b && b->vtable->base_type == enum_class_UnManagedStruct)
        return F2D <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8719	8842	
==>"#line 182 \"src/ops/core.ops\"\n    char * const label = string_to_cstring(interpreter, {{\@1}});\n    struct PackFile_Fixu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9835	9958	
==>"#line 182 \"src/ops/core.ops\"\n    char * const label = string_to_cstring(interpreter, {{\@1}});\n    struct PackFile_Fixu <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	8871	9010	
==>gpos = pos($$textref)-length($1);
			goto matched;
		}
		elsif ($ignore && $$textref =~ m/\G(?:$ignore)/gc)
		{
			next;
		}
		elsif ($bad & <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1096939	1097074	
==>mpt to get class name of a non-class.\");\n    }\n    else\n    {\n        PMC *key_tail, *key;\n        STRING *tmp;\n        int i, ma <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	164	280	
==>: /parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use stric <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60642	60845	
==>T_WARNINGS_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61292	61495	
==>T_WARNINGS_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	984	1289	
==>- - - - - - - - - - - - - - - - - - - - - - - - - - -

sub parse_string_document {
  my $this = shift;
  $this->set_source(\ $_[0]);
  $this->run;
}

sub parse_file {
  my($this, $filename) = @_;
  $this->set_source($filename);
  $this->run;
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	34919	35044	
==>vide,
  'abs'              => \&_op_abs,
  'quotient'         => \&_op_quotient,
  'remainder'        => \&_op_remainder,
  'm <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14283	14436	
==>Doesn't look at all contentworthy!\n  Giving up.\n";
          undef $title;
          last;
        }
      }
    }
    
    else {
      die "IMPOSSIBLE <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	3573	3841	
==>s
still shared amongst B<all> Test::Builder objects, even ones created using
this method.  Also, the method name may change in the future.

=cut

sub create {
    my $class = shift;

    my $self = bless {}, $class;
    $self->reset;

    return $self;
}

=item B<reset <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8290	8411	
==>_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLAGS" => ":base_loop,chec <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9405	9526	
==>_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLAGS" => ":base_loop,chec <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7079	7188	
==>pushmark";
    return @ops;
}

sub output_pushindex {
    my ($self, $reg) = @_;
    $reg = value(defined($reg <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6721	6830	
==>pushmark";
    return @ops;
}

sub output_pushindex {
    my ($self, $reg) = @_;
    $reg = value(defined($reg <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	325	538	
==>[0]->can( 'start_' . $_[1] )
    || return
  )->(
    $_[0], $_[2]
  );
}

sub _handle_text {
  ( $_[0]->can( 'handle_text' )
    || return
  )->(
    @_
  );
}

sub _handle_element_end {
  $_[1] =~ tr/-:./__/;
  ( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	10100	10233	
==>B::single = 1 unless length($value);
    return ".arg $value";
}

sub output_param {
    my ($self, $name, $type, $reg) = @_;
    $reg <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4422	4522	
==>, $pattern, $captures) = @_;
    $target = _parrot_stringify($target);
    $pattern = _parrot_stringi <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6927	7027	
==>, $pattern, $captures) = @_;
    $target = _parrot_stringify($target);
    $pattern = _parrot_stringi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1498	1600	
==>my $sym = $block->find_symbol($name);

  #
  # If the identifier is already defined at ANY lexical scop <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627778	628140	
==>NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 704,
                  "ARGS" => [
                              "p",
                              "ic" <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	8016	8151	
==>rn $return;
}

sub _op_lambda {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();
  my $temp;

  $return = $self->_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1473	1584	
==>0]{'Thispara'} = '' }
sub start_head3 {  $_[0]{'Thispara'} = '' }
sub start_head4 {  $_[0]{'Thispara'} = '' }

s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1003	1114	
==>0]{'Thispara'} = '' }
sub start_head3 {  $_[0]{'Thispara'} = '' }
sub start_head4 {  $_[0]{'Thispara'} = '' }

s <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2359	2613	
==>file($out_fn),
                       $output,
                       $desc
                                                  );
        unless ( $pass ) {
            my $diag = '';
            my $test_prog = join ' && ', @test_prog;
            $diag . <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	2370	2614	
==>file($out_fn),
                          $output,
                          $desc
                      );
           unless ( $pass ) {
               my $diag = '';
               my $test_prog = join ' && ', @test_prog;
               $diag . <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573013	573114	
==>_native(interpreter, name, {{\@2}});\n  {{\@1}} = pmc_new_init(interpreter, enum_class_ParrotClass, na <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573923	574024	
==>_native(interpreter, name, {{\@2}});\n  {{\@1}} = pmc_new_init(interpreter, enum_class_ParrotClass, na <==
2	/Users/nnunley/parrot/lib/Test/More.pm	26629	26823	
==>$var = "\${$var}";
        }
    }

    my @vals = @{$Stack[-1]{vals}}[0,1];
    my @vars = ();
    ($vars[0] = $var) =~ s/\$FOO/     \$got/;
    ($vars[1] = $var) =~ s/\$FOO/\$expected/;

    my <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4499	4638	
==>DBG>//;
                	push(@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note that for l <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4275	4404	
==>DBG>//;
                	push(@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note that for l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101166	101424	
==>,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103372	103630	
==>,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_co <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6976	7138	
==>''	#Don't eat the eof
				and	$$token=$$value=undef;
                next;
            };

            #reduce
            my($lhs,$len,$code,@sempar,$semval <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6651	6807	
==>''	#Don't eat the eof
				and	$$token=$$value=undef;
                next;
            };

            #reduce
            my($lhs,$len,$code,@sempar,$semval <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1488	1626	
==>nt STDERR "pbcc: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
        return "return (0);"
    }
    else
    {
        return "if ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2013	2150	
==>nt STDERR "pbcc: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
        return "return (0);"
    }
    else
    {
  	    return "if ( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	23731	23859	
==>////////
      # The virtual end-document signal
      
      if(@$curr_open) { # Deal with things left open
        DEBUG and pr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	98415	98834	
==>( {
                  "JUMP" => 0,
                  "NAME" => "bnot",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 122,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 9 <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	693	812	
==>unless $desc;

    # Figure out how many levels we have to go back to get to parrot.
    # And, conversely, how many lev <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	11218	11313	
==>esc?, Bool :$todo, Str :$depends) returns Bool is export`

These functions should work with most <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32010	32140	
==>and ' : '')
		. '  do { $_tok = "' . $self->{"pattern"} . '"; 1 } and
		     substr($text,0,length($_tok)) eq $_tok and
		     do { <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7272	7481	
==>dd_inst("ITER_$label", 'set', [$temp,$list.'[0]']);
  $self->_add_inst('', 'set', [$copy.'[0]',$temp]);
  $self->_restore($temp);

  $self->_add_inst('', 'set', [$list,$list.'[1]']);
  $self->_add_inst('', 'typ <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1175	1307	
==>parrot));
        my $path_to_language;
        if ($dir_count == 0) {
          $path_to_language = File::Spec->join('languages', $l <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1660	1792	
==>parrot));
        my $path_to_language;
        if ($dir_count == 0) {
          $path_to_language = File::Spec->join('languages', $l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70431	70844	
==>ME" => "loadlib",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 94,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BO <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	2805	3063	
==>en_buffer'} } ? '' : '       (no tokens)',
   "\n"
  ;

  until( @{ $self->{'token_buffer'} } ) {
    DEBUG > 3 and print "I need to get something into my empty token buffer...\n";
    if($self->{'source_dead'}) {
      DEBUG and print "$self 's source is dea <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4550	4655	
==>l) = @_;

    my $passLabel = $self->{state}->genlabel("pass_charclass");
    my @ops = ("<rx_tmp> = ord(s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	1054	1201	
==>emembers what the original names are so a comment giving them can be
generated later.

=cut

sub combineLabels {
    my $self = shift;
    my @names <==
2	/Users/nnunley/parrot/languages/converter.pl	1843	1951	
==>m[1] }


terminal	: "'" /[^']*/ "'" mod(?)
#		{[@item]}
		{ qq('$item[2]') . ::modifier($item[4]) }
		| '"' / <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	102	228	
==>ards.pl 19607 2006-05-30T15:23:20.183054Z coke  $

=head1 NAME

tools/dev/check_source_standards.pl - Check conformancs of C so <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1332	1444	
==>d source code as input.
  #

  $self->INTERNAL_ERROR("Undefined block!")
    unless defined $block;

  #
  # Look <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1865	1992	
==>nc,@x) = split /,/;
	my $c = $f{$func};
	$c =~ s/X(\d)/$x[$1]/g;
	$c =~ s/(S\d{2})/$s{$1}/;
        $c =~ s/^(.*)=rotate_left\(( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1487	1631	
==>-token with the tagname of "head1".

=item $token->tagname(I<somestring>)

This changes the tagname for this start-token object.
You probably won <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1059	1190	
==>-token with the tagname of "head1".

=item $token->tagname(I<somestring>)

This changes the tagname for this end-token object.
You p <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	877	1165	
==>t  "Iterations:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, I1
                              #
print "Estimated ops: $ <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	877	1165	
==>t  "Iterations:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, I1
                              #
print "Estimated ops: $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	18611	18718	
==>ack check next);

    my $matchcount = $self->new_rxlocal($op, "matchcount");

    my ($R_back, @R_ops) = $s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20199	20306	
==>ack check next);

    my $matchcount = $self->new_rxlocal($op, "matchcount");

    my ($R_back, @R_ops) = $s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	5	104	
==>rocessor.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1687	1800	
==>])\$/; # Double-quote with an unescaped '$'.

    $string = substr($string, 1, -1); # Without the surrounding doub <==
2	/Users/nnunley/parrot/config/auto/gdbm.pm	591	729	
==>nf) = (shift, shift);

    my $verbose = $conf->options->get('verbose');

    my $cc        = $conf->data->get('cc');
    my $libs      = $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	410103	410403	
==>{{\@3}};\n    {{\@1}} = (INTVAL)PIO_recv(interpreter, {{\@2}}, &dest);\n    {{\@3}} = dest;\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Test/More.pm	35787	35923	
==>t
module.  I was largely unaware of its existence when I'd first
written my own ok() routines.  This module exists because I can't
figure <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	3949	4106	
==>cent;
                $real_filename{$source_file} = $real_filename;
                next;
            }

            ($percent, $total_lines, my $function) = <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	269	383	
==>cpu.c

=head1 DESCRIPTION

This script creates F<src/jit_cpu.c>. It parses the JIT file for the
specified CPU archi <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	13584	13683	
==>l_var name=skipped>,</td>
	      <td class="num tests_unexpect"><tmpl_var name=unexpect></td>
	    < <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	3379	3573	
==>m;1]
    eq match_start, -2, skipPrint
    eq match_end, -2, skipPrint
    print match_num
    print ": "
    print match_start
    print ".."
    print match_end
    print "\n"
skipPrint:
    se <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4513	4635	
==>' });
    }
    else {
      $string = substr($string, 1, -1); # Without the surrounding quotes.

      $handler->start_ele <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	12966	13070	
==>l_inner, $rdel_inner,
				     $rd);
	return _fail($wantarray, $textref) unless @match;
	return _succeed( <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4682	4786	
==>en as --destination=DIRECTORY
    shift(@pmcs) =~ /--destination=(.*)/
      or die "copy command require <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4786	4890	
==>en as --destination=DIRECTORY
    shift(@pmcs) =~ /--destination=(.*)/
      or die "copy command require <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	7060	7172	
==>clare struct, based on array:
    struct( CLASS_NAME => [ ELEMENT_NAME => ELEMENT_TYPE, ... ]);
            # dec <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	11117	11236	
==>-length($text))) . q{])}, 
					  Parse::RecDescent::_tracefirst($text),
					  , q{' . $self->{"name"} .'})
	}').'
	$_[ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1593	1796	
==>lock::File->new(
    undef,  # No parent
    'file', # File scope
    undef,  # No return type
    undef   # No prefix
  );

  return bless {
    DEBUG            => 1,
    ANON_BLOCK_COUNT => 0,
    BLOC <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488849	489137	
==>( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	489602	489890	
==>( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inl <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	3135	3234	
==>ted in subclasses to return the run core C code for
section after the address table. C<$base_suffix> <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19092	19344	
==>))
	{
		$code .= $parser->{_AUTOACTION}->code($namespace,$rule);
		Parse::RecDescent::_warn(1,"Autogenerating action in rule
					   \"$rule->{name}\":
					    $parser->{_AUTOACTION}{code}")
		and
		Parse::RecDescent::_hint("The \$::RD_AUTOACTION was d <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	873	1228	
==>))
    /eg;
  }
  return join ', ', @out;
}


__END__

=head1 NAME

Pod::Simple::PullParserToken -- tokens from Pod::Simple::PullParser

=head1 SYNOPSIS

Given a $parser that's an object of class Pod::Simple::PullParser
(or a subclass)...

  while(my $token = $parser->get_token) {
    $DEBUG and print "Token: ", $token->dump, "\n";
    if($token->is_star <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	20329	20462	
==>st redo()

      } elsif( ref $treelet->[$i] ) {
        DEBUG > 4 and print "  Enqueuing ", pretty($treelet->[$i]), " for traversal.\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819636	819746	
==>, {{\@2}});\n\n  if (!entry) {\n    internal_exception(99, \"Stack Depth wrong\");\n  }\n  {{\@1}} = get_entry_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820596	820706	
==>, {{\@2}});\n\n  if (!entry) {\n    internal_exception(99, \"Stack Depth wrong\");\n  }\n  {{\@1}} = get_entry_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791595	791696	
==>t.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792502	792603	
==>t.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}} <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10851	10996	
==>s)
    and $class=ref($class);

    my($self)=$class->SUPER::new( yyversion => '1.05',
                                  yystates =>
[
	{#St <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11850	11989	
==>s)
    and $class=ref($class);

    my($self)=$class->SUPER::new( yyversion => '1.05',
                                  yystates =>
[
	{#St <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	9657	9771	
==>eated.  The third form assumes the current package
name as the class name.

An object of a class created by the fir <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	1810	1924	
==>, $grammar, $class, $sourcefile) = @_;

		$class =~ /^(\w+::)*\w+$/ or croak("Bad class name: $class");

		my $modu <==
2	/Users/nnunley/parrot/config/auto/alignptrs.pm	753	861	
==>ata->get('ptr_alignment'))) {
        $align  = $conf->data->get('ptr_alignment');
        $self->set_result( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2668	2764	
==>ndented and wrapped XML.  This class is of
interest to people writing Pod formatters based on Pod <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37262	37376	
==>{subrule repspec min max lookahead} };

''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying repeated subru <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	13518	13615	
==>is, qr/$regex/, $name);
  $Test->like($this, '/$regex/', $name);

Like Test::More's like().  Check <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79894	80293	
==>NAME" => "dlvar",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 101,
                  "ARGS" => [
                              "p",
                              " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78374	78699	
==>NAME" => "dlvar",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 100,
                  "ARG <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	3976	4088	
==>_bench} } ) {
    my @regexes = grep defined, $ini->val( regexes => 'exclude');
    @{ $cfg{skip_bench} } = @rege <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46531	46779	
==>T_JUMP_RESTART",
                  "NAME" => "debug",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47313	47561	
==>T_JUMP_RESTART",
                  "NAME" => "debug",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	12008	12230	
==>);
static void store_op(op_info_t *info, int full);

/* XXX on changing interpreters, this should be called,
   through a hook */

static void hop_deinit(void);

/*
 * find a short or full opcode
 * usage:
 *
 * interp->op_ <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	14449	14560	
==>.

= FUTURE PLANS

This module is still a work in progress. As Pugs grows, so will it's
testing needs. This modu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352771	352990	
==>line",
                  "CODE" => 411,
                  "ARGS" => [
                              "nc"
                            ],
                  "BODY" => "#line 195 \"src/ops/io.ops\"\n  PIO_printf(interpreter, <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	319	479	
==>in Parrot.

=head2 Class Methods

=over

=cut

package Parrot::Docs::Section::Libs;

use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<ne <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	582	675	
==>not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Ident is not!" unles <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	470	563	
==>not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Ident is not!" unles <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3	152	
==>ux. functions needed by the parser.  (For cleanliness)
#

use warnings;

use vars qw( %usertypes );
use vars qw( %arrays );
use vars qw( $funcname $su <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7108	7206	
==>R] eq "_startasm") {
		feedme;
		#$syms[CURR]=~s/^\n|\n$//gm;
		push @{$code{$seg}->{code}}, "\t#\n <==
2	/Users/nnunley/parrot/config/auto/jit.pm	145	261	
==>fig/auto/jit - JIT Capability

=head1 DESCRIPTION

Determines the CPU architecture, the operating system, and whether <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	2837	2936	
==>Parrot/OpLib";
my $module  = "$moddir/core.pm";

my $file = shift @ARGV;
die "$0: Could not find ops <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1542	1660	
==>distance # pos++",
            "gt <rx_pos>, <rx_len>, $failLabel # past end of input?",
            'set <rx_match>["0 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	1842	1954	
==>_item('', 'tools/docs/write_docs.pl'),
        ),
        $self->new_group('Building', '',
            $self->new <==
2	/Users/nnunley/parrot/lib/File/Which.pm	3835	3950	
==>ories of the user's C<PATH> (as returned by
C<File::Spec-E<gt>path()>), looking for executable files having the name <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	17890	18123	
==>/gm;
                $real_output =~ s/[\t ]+/ /gm;
                $real_output =~ s/ +$//gm;

                $expected =~ s/[\t ]+/ /gm;
            }

            # set a TODO for Test::Builder to find
            my $call_pkg = $ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	11024	11160	
==>)'/) {
	    my $u = defined $1 ? "u:" : "";
	    my $s = $2;
	    $c =~ s/.*/$u"$s"/;
	}
	print <<EOC;
	\t$cmt
EOC
    }
    else {
	prin <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	51250	51373	
==>at line ", __LINE__, "\n";
      die "SPORK 512512!";
    }
  }

  if(@stack) { # Uhoh, some sequences weren't closed.
    m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121445	121731	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122356	122642	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1472	1597	
==>$value,$check,$dotpos);
    my($self)={ ERROR => \&_Error,
				ERRST => \$errst,
                NBERR => \$nberr,
				TOK <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1422	1543	
==>$value,$check,$dotpos);
    my($self)={ ERROR => \&_Error,
				ERRST => \$errst,
                NBERR => \$nberr,
				TOK <==
2	/Users/nnunley/parrot/config/gen/platform.pm	5681	5794	
==>m_asm.s");
        }
    }

    # interface is the same for all platforms
    copy_if_diff("config/gen/platform/pl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314104	314343	
==>ned char)({{\@1}}));\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	315565	315804	
==>ned char)({{\@1}}));\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	32582	32700	
==>ine'     => \&_op_define,
  'set!'       => \&_op_set_bang,
  'cond'       => \&_op_cond,
  'case'       => \&_op_case, <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4254	4360	
==>partial_link($group, $group_libs->{$group}, [ "lib-$group", @$pmcs ] )
          or die "partial link of $g <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4358	4464	
==>partial_link($group, $group_libs->{$group}, [ "lib-$group", @$pmcs ] )
          or die "partial link of $g <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	40761	40907	
==>'t happen.
      }

      #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      $para->[0] =~ s/^[~=]//s;

      DEBUG and pr <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	53477	53608	
==>passable.
  # Don't give it a cyclic data structure!
  my @stuff = @_; # copy
  my $x;
  my $out =
    # join ",\n" .
    join ", ", <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	1181	1292	
==>d3' => "</a></h3>\n",
  '/head4' => "</a></h4>\n",

  'X'  => "<!--\n\tINDEX: ",
  '/X' => "\n-->",

  changes(q <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	17892	18018	
==>quire Carp;
        Carp::croak("You tried to run tests without a plan!  Gotta have a plan.");
    }

    lock($self->{Curr_Tes <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	18757	18883	
==>quire Carp;
        Carp::croak("You tried to run tests without a plan!  Gotta have a plan.");
    }

    lock($self->{Curr_Tes <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	31217	31335	
==>);
            my $post_op = $srm->post_op(1, 1);
		    $post_op = sub_meta($post_op, $mv, "post_op for rule $rule->{'n <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	445	634	
==>nt = $self->{builder}->current_test + 1;

    my $lang_f    = Parrot::Test::per_test('.apl',$count);
    my $out_f     = Parrot::Test::per_test('.out',$count);
    my $parrotdir = dirname $s <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	2777	3008	
==>f->{table}{$symb};
            return $defn;
        }
        else {
            return undef;
        }
    }

    sub Insert {
        my $self = shift;
        my ( $symb, $defn ) = @_;
        $self->{table}{$symb} = <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	25711	25819	
==>ndles = 0;
sub _open_testhandles {
    return if $Opened_Testhandles;
    # We dup STDOUT and STDERR so peopl <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3611	3725	
==>, join(", ", %props));

    $name =~ s/::/__/g;

    if (exists $props{fn} or exists $props{fnlib}) {
      $name . <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	3046	3160	
==>, join(", ", %props));

    $name =~ s/::/__/g;

    if (exists $props{fn} or exists $props{fnlib}) {
      $name . <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	7570	7676	
==>table_2231_op Parrot_jit_normal_op
#define Parrot_jit_vtable_1r223_op Parrot_jit_normal_op
#define Parrot_j <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	654	758	
==>ss defined $op;
  confess "Right is not defined!" unless defined $right;

  confess "Block is not!" unles <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	666	770	
==>ss defined $op;
  confess "Right is not defined!" unless defined $right;

  confess "Block is not!" unles <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32935	33043	
==>$_tok;
		' . ($self->{"lookahead"} ? '$text = $_savetext;' : '' ) .'
';

	return $code;
}

1;

package Parse: <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26697	26803	
==>ontinue = new_label($parser);
    my $l_break    = new_label($parser);
    push @opcodes, new LabelOp( $p <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27582	27688	
==>ontinue = new_label($parser);
    my $l_break    = new_label($parser);
    push @opcodes, new LabelOp( $p <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	52159	52353	
==>xtractors.
In a scalar context, C<extract_multiple> returns the first
substring successfully extracted from the original string. In both
scalar and void contexts the original string has the first <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872588	873159	
==>LAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 990,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9776	9905	
==>urToken.".\n";

			$$token=$$value=undef;
		};

        $$errstatus=3;

		while(	  @$stack
			  and (		not exists($$states <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9338	9459	
==>urToken.".\n";

			$$token=$$value=undef;
		};

        $$errstatus=3;

		while(	  @$stack
			  and (		not exists($$states <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	938	1036	
==>ng a "=head1 ..." line will give you
a start-token with the tagname of "head1", token(s) for its
co <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1366	1464	
==>ng a "=head1 ..." line will give you
a start-token with the tagname of "head1", token(s) for its
co <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19215	19328	
==>/Regex/Grammar.y"
{ return op('alternate' => [ $_[1], $_[3] ]); }
	],
	[#Rule 10
		 'expr', 2,
sub
#line 111 "lib/ <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	5450	5549	
==>mble for inclusion in C code,
    and an array of C<Parrot::Op> instances representing the Parrot op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343	438	
==>mble for inclusion in C code,
and an array of C<Parrot::Op> instances representing the Parrot op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717990	718083	
==>nterpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_fprintf(interpreter, io, INT <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718922	719015	
==>nterpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_fprintf(interpreter, io, INT <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	3635	3874	
==>ass'}}}, $_;
        } else {
            $classes{$_->{'class'}} = [$_];
        }
    }

    # Build classes dispatch table.
    foreach (keys %classes) {
        my $label = "CLASS_$_";
        $label =~ s/\./_/g;
        $pir .= "if cla <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103942	1104035	
==>{\n\t\tParrot_autoload_class(interpreter, class);\n\t\ttype = pmc_type(interpreter, class);\n\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105157	1105250	
==>{\n\t\tParrot_autoload_class(interpreter, class);\n\t\ttype = pmc_type(interpreter, class);\n\ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	908	1020	
==>) {
	# No extra subs.
	return "";
}

# Label generation.
sub gen_label() {
	# We'll emit a label for every single <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	665	777	
==>) {
	# No extra subs.
	return "";
}

# Label generation.
sub gen_label() {
	# We'll emit a label for every single <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61810	62019	
==>ode;
			my $matchrule = 0;
			if (substr($name,0,1) eq '<')
			{
				$name =~ s/$MATCHRULE\s*//;
				$name =~ s/\s*>\Z//;
				$matchrule = 1;
			}

		# EXTRACT TRAILING ARG LIST (IF ANY)

			my ($argcode) = ext <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7203	7323	
==>ject})	       ? $options{reject}
		    :					 ''
		    ;
	my $ignore  = ref($options{ignore}) eq 'ARRAY' ? join('|', @{$o <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24205	24325	
==>ject})	       ? $options{reject}
		    :					 ''
		    ;
	my $ignore  = ref($options{ignore}) eq 'ARRAY' ? join('|', @{$o <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	6114	6310	
==>compiles to
#
#          check(2)
#          match(a) or goto try_S
#          match(b) or goto try_S
#          goto next
#   try_S: check(3)
#          match(c) or fail
#          match([dxy]) or <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	14015	14211	
==>u may find this useful if you are rendering
POD in a format that you think deals well only with US-ASCII
characters.

=item $Latin1Char_to_fallback{I<character>}

Just as above, but maps from chara <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6855	6962	
==>(needs_build("$pmc.c", "$pmc.pmc")) {
        run("$PMC2C --c $pmc.pmc")
          or die "pmc2c code genera <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7066	7173	
==>(needs_build("$pmc.c", "$pmc.pmc")) {
        run("$PMC2C --c $pmc.pmc")
          or die "pmc2c code genera <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	8763	8966	
==>e($this->[0]);
		}

		push(@expr, $foo[$t]);
		
		# Functions, array lookups, and builtins are converted 
		# from a(b,d) 
		# to   a(,b,d)
		# and commas become a low-precedence unary operator that means <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	250	350	
==>trict;
eval "use warnings";

package Jako::Parser;

use Carp;

use base qw(Jako::Processor);

use Jak <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	13052	13164	
==>m {
    my($self, $got, $dont_expect, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defi <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4949	5047	
==>oken,$value,$stack,$check,$dotpos)
     = @$self{ 'ERRST', 'NBERR', 'TOKEN', 'VALUE', 'STACK', 'CH <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4707	4804	
==>oken,$value,$stack,$check,$dotpos)
     = @$self{ 'ERRST', 'NBERR', 'TOKEN', 'VALUE', 'STACK', 'CH <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2253	2361	
==>utes => { kind => $self->kind, name => $self->prefix } });
  }
  else {
    $handler->start_element({ Name => <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2130	2238	
==>utes => { kind => $self->kind, name => $self->prefix } });
  }
  else {
    $handler->start_element({ Name => <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	2980	3227	
==>ECTIVE");
		while($cur =~ /\w/) {
			append;
			fetch;
		}
		emit("BARE");
		fetch;
		goto MAIN;
	}

	if ($cur =~ /[-^+\/*()#,\\_.;]/) { # Punct
		append;
		emit("PUN");
		fetch;
		goto MAIN;
	}

	if ($cur eq "\n") {   # ;?
		append;
		emit("STMT") <==
2	/Users/nnunley/parrot/tools/dev/gen_class.pl	1023	1147	
==>classname}.pmc
 *  Copyright (C) 2001-2003, The Perl Foundation.
 *  SVN Info
 *     \$Id\$
 *  Overview:
 *     These a <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	3166	3307	
==>MAIN;
	}

	if ($cur eq "\n") {   # ;?
		append;
		emit("STMT");
		fetch;
		goto MAIN;
	}
	if ($cur eq ":") {
		append;
		emit("COMP");
		fetch <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880904	881459	
==>LAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 998,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 244 \"sr <==
2	/Users/nnunley/parrot/tools/build/addopstags.pl	3	140	
==>erl
use strict;
use warnings;


=head1 NAME

tools/build/addopstags.pl - add src/ops/*.ops to tags

=head1 SYNOPSIS

	perl tools/build/add <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	14146	14341	
==>spieces " . $op->render(@_));
}

sub Regex::Ops::Tree::seq::reftree {
    my $op = shift;
    return [ annotated($op, "seq"), map { $_->reftree() } @{ $op->{args} } ];
}

sub Regex::Ops::Tree::alt <==
2	/Users/nnunley/parrot/lib/Test/More.pm	26491	26644	
==>' ) {
            $var .= "->" unless $did_arrow++;
            $var .= "[$idx]";
        }
        elsif( $type eq 'REF' ) {
            $var = "\${$var} <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	13499	13600	
==>i: $core_opfunc[$i] */\n";
}

print JITCPU @jit_funcs, "};\n";

if ($genfile =~ /jit_cpu.c/) {
    pri <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1776	1882	
==>e token.  This will be either the string
"start", the string "text", or the string "end".

Once you know wh <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	14554	14675	
==>\bexpr\s+POP\(\)/{{^*}}/mg;

                      $body =~ s/\bHALT\(\)/{{=0}}/mg;

        $branch ||= $short_name =~ /r <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21116	21218	
==>else {
        $self->{'content_seen'} ||= 1;
        $self->_handle_element_start(($scratch='for'), $p <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24808	24905	
==>unless @match;
		return _succeed wantarray, $textref,
				$match[2], $match[3]+$match[5]+$match[7] <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7641	7736	
==>unless @match;
	return _succeed wantarray, $textref,
			$match[2], $match[3]+$match[5]+$match[7] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168534	168648	
==>get_integer(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169476	169590	
==>get_integer(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5475	5657	
==>if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                    print {$FH} " :slurpy";
                }
                $first = 0;
            }
            print <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6507	6689	
==>if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                    print {$FH} " :slurpy";
                }
                $first = 0;
            }
            print <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	3294	3406	
==>nts} ||= \@ARGV;

    exit unless my @files = get_files( %options );

    set_flags( %options );

    local $Test <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789802	789914	
==>@2}}->vtable->get_string_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790712	790824	
==>@2}}->vtable->get_string_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/config/init/defaults.pm	2941	3044	
==>hare_flags => $Config{lddlflags},

        # Flags to tell ld to build a dynamically loadable module, e. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040904	1041165	
==>163,
                  "ARGS" => [
                              "s",
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line 120 \"src/ops/var.ops\"\n    Parrot_store_global(interpr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158484	158599	
==>141 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48113	48342	
==>OT_JUMP_RESTART",
                  "NAME" => "bounds",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48902	49131	
==>OT_JUMP_RESTART",
                  "NAME" => "bounds",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10602	10831	
==>"bsr",
                  "FLAGS" => ":base_core,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11390	11619	
==>"bsr",
                  "FLAGS" => ":base_core,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	8806	8975	
==>n();
        }

        foreach my $kid (@{ $t->{args} }) {
            $kid_follow_min -= $kid->minlen();

            $kid = $self->add_checks($kid, $kid_guarantee, $ki <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	1693	1788	
==>not initialized with any data.

See L</"Data is not an API">.

=item Initialized Modifiable Data <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	5664	5787	
==>ext;
            }
        }

        filter_gcov($gcov_file);
    }
}

write_file_coverage_summary();
write_function_covera <==
2	/Users/nnunley/parrot/lib/Test/More.pm	36125	36220	
==>elf up with while still
providing more flexibility than the existing Test.pm.  As such, the
name <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53420	53682	
==>+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gc_debug",
                  "FLAGS" => " <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	590	693	
==>( text plaintext plain ));
  $new->nix_X_codes(1);
  $new->nbsp_for_S(1);
  $new->{'Thispara'} = '';
  $ <==
2	/Users/nnunley/parrot/tools/dev/pbc_header.pl	384	546	
==>s is invalidated.

This utility updates the version and finperprint information in the bytecode,
but can of course not assure that it will run correctly, when inco <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4421	4509	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sub run {
  my $self = $_[0 <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28310	28488	
==>e}_H_GUARD
#define PARROT_PMC_${name}_H_GUARD

EOH

    if ($self->{flags}{dynpmc}) {
        $hout .= "#define PARROT_IN_EXTENSION\n";
    }

    $hout .= $self->hdecls();
    if <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	1743	1927	
==>_deps.pl'),
            $self->new_item('', 'tools/dev/parrot_coverage.pl'),
            $self->new_item('', 'tools/docs/write_docs.pl'),
        ),
        $self->new_group('Building', <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48190	48580	
==>AGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 62,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 785 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	9836	9944	
==>llow_min to all children. (Which is reasonable, since
        # everything but seq tries to match its childre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630673	630903	
==>));\n    {{\@1}} = pmc_new(interpreter, type);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631663	631893	
==>));\n    {{\@1}} = pmc_new(interpreter, type);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	6946	7110	
==>e_body($body, $trans)>

Performs the various macro substitutions using the specified transform,
correctly handling nested substitions, and repeating over the whole s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	173	313	
==>/languages/jako/lib/Jako/Construct/Block/Sub.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209742	210039	
==>GS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 247,
                  "ARGS" <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2194	2426	
==>and $str .= "\f",      # form feed
                last;
            s/^\\n//
                and $str .= "\n",      # new line
                last;
            s/^\\r//
                and $str .= "\r",      # carriage return <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3708	3940	
==>and $str .= "\f",      # form feed
                last;
            s/^\\n//
                and $str .= "\n",      # new line
                last;
            s/^\\r//
                and $str .= "\r",      # carriage return <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	1957	2070	
==>ION    
    $ret |= 0x0800 if $chr =~ /^[[:alnum:]]$/;  # CCLASS_ALPHANUMERIC   
    $ret |= 0x1000 if $chr =~ /^[ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	2256	2381	
==>e registered in.

Accepts no arguments and returns a list in list context or an arrayref in
scalar context.

=cut

sub steps
{ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	26078	26189	
==>, $remainder) = extract_tagged($text);


 # Extract the initial substring of $text that is bounded by
 # a C<BEG <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	3662	3754	
==>AGS ${table{$name}}[256];\n";
}
print "#endif /* PARROT_CHARSET_TABLES_H_GUARD */\n";
close S <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	19324	19433	
==>ds}};
    }
}

=head2 gen_c( [$dir1, $dir2], $file1, $file2, ... )

Generate the C source code file for each o <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	5055	5179	
==>, $S) = @_;
    return 0 if ! ref $R;
    return 0 if ! ref $S;
    return 0 if $R->{name} ne $S->{name};
    my $type = $R-> <==
2	/Users/nnunley/parrot/config/init/hints/cygwin.pm	3	141	
==>opyright (C) 2005, The Perl Foundation.
# $Id: /parrot/config/init/hints/cygwin.pm 19593 2006-05-30T02:28:15.110975Z coke  $

package init: <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2311	2412	
==>em C<write_contents_html($source, $target, $silent)>

Iterates over the group's contents and calls C<w <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	480	585	
==>warnings;

use base qw( Parrot::OpTrans );

=item C<defines()>

Returns the C C<#define> macros required b <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11249	11357	
==>la la la, parsing POD, la la la...
  $text = e2char($e_node->label);
  unless(defined $text) {
    print "Unk <==
2	/Users/nnunley/parrot/config/inter/charset.pm	793	1013	
==>>options->get('ask')) {
        print <<"END";


The following charsets are available:
  @charset
END
        {
            $charset_list = prompt('Which charsets would you like?', $charset_list);
        }
    }

    # n <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1307	1428	
==>the tagname for this start-token object.
For example, parsing a "=head1 ..." line will give you
a start-token with the tag <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	15873	15996	
==>e back to generated code immediately here
    $cout .= $self->line_directive(2 + $line + count_newlines($cout),
				   $out_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	3131	3223	
==>::String');
  $self->SYNTAX_ERROR("Can't do arithmetic on strings") if UNIVERSAL::isa($right_ <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	9414	9713	
==>:
    $N1 = cos op2
    .return ($N1)
three:
    $N1 = tan op2
    .return ($N1)
four:
    $N1 = op2 * op2
    $N1 += 1
    $N1 = sqrt $N1
    .return ($N1)
five:
    $N1 = sinh op2
    .return ($N1)
six:
    $N1 = cosh op2
    .return ($N1)
seven:
    $N1 = tanh op2
    .return ($N1)
neg_one:
    $ <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	17542	17636	
==>ons for all the various
APL operators in all possible configurations.

=head1 LICENSE

Copyrigh <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	448965	449325	
==>"NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 514,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#l <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7273	7386	
==>eturn $pir;
}

sub post_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If the register na <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5095	5208	
==>eturn $pir;
}

sub post_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If the register na <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7115	7215	
==>): ", instr(6, s1$, " ")
print "Inval  (0): ", instr(4, bogus$, "t")
' instr() tests
s1$="Mixed case" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18844	18944	
==>): ", instr(6, s1$, " ")
print "Inval  (0): ", instr(4, bogus$, "t")
' instr() tests
s1$="Mixed case" <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	757	853	
==>s directory. Defaults to '/usr/bin'.

=item C<libdir>

The library directory. Defaults to '/usr/l <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	986	1082	
==>s directory. Defaults to '/usr/bin'.

=item C<libdir>

The library directory. Defaults to '/usr/l <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3749	3874	
==>k', Attributes => { kind => 'then' } });
  }

  if ($name) {
    $handler->start_element({ Name => $kind, Attributes => { loop <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	2808	2907	
==>ump info (PMC metadata).

This function is exported.

=cut

sub dynext_load_code {
    my ($libname, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712758	712952	
==>er, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713865	714059	
==>er, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	8583	8689	
==>scope = $self->{scope};
  $self->{scope} = { '*UP*' => $oldscope };

  my $num = 5;
  my @args = @{_get_arg <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	7649	7800	
==>sp'   , 8201,
 'zwnj'     , 8204,
 'zwj'      , 8205,
 'lrm'      , 8206,
 'rlm'      , 8207,
 'ndash'    , 8211,
 'mdash'    , 8212,
 'lsquo'    , 8216 <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	3684	3789	
==>s+(\S+)/s;
    
    return $version;
}

=item C<is_hidden()>

Returns whether the file is "hidden", i.e. i <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	38171	38308	
==>lean up meta-variables hash.
	foreach (@localmv) {
		delete $mv->{$_};
	}

	# Return generated code.
	return $pir;
}


# Instruction to PI <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	793	990	
==>!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');

  my $self = bless {
    BLOCK => $block, 

    DEST  => $dest, 
    NAME  => $ident, 
    ARGS  => [ @args ],

    DEBUG => 1,
    FILE <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1544	1688	
==>> \$errst,
                NBERR => \$nberr,
				TOKEN => \$token,
				VALUE => \$value,
				DOTPOS => \$dotpos,
				STACK => [],
				DEBUG <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1492	1630	
==>> \$errst,
                NBERR => \$nberr,
				TOKEN => \$token,
				VALUE => \$value,
				DOTPOS => \$dotpos,
				STACK => [],
				DEBUG <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6681	6807	
==>itch_${CURIC}_LOOP_EXIT:

POST_BRANCH_NOT_switch_${CURIC}:
PIR
	return $pir;
}

# Pre and post load operation hooks.
sub pre_lo <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4619	4745	
==>itch_${CURIC}_LOOP_EXIT:

POST_BRANCH_NOT_switch_${CURIC}:
PIR
	return $pir;
}

# Pre and post load operation hooks.
sub pre_lo <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	934	1032	
==>arsing a "=head1 ..." line will give you
a start-token with the tagname of "head1", token(s) for it <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1362	1460	
==>arsing a "=head1 ..." line will give you
a start-token with the tagname of "head1", token(s) for it <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20318	20457	
==>-1 to 1
	print "Sign of ";i;" is ",sgn(i)
next i


' "shared" Whoa, 66666, Goodbye, 909090, 101010
type struct
	first as integer
end type
su <==
2	/Users/nnunley/parrot/config/auto/msvc.pm	1880	2184	
==>ted
        # functions with the following message.
        #
        # This function or variable may be unsafe. Consider using xxx_s instead.
        # To disable deprecation, use _CRT_SECURE_NO_DEPRECATE. See online help
        # for details.
        $conf->data->add(" ", "ccflags", "-D_CRT_SECURE_NO_ <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	7126	7343	
==>ble{$opname}) {
	return $ParrotOps::optable{$opname};
    } elsif (!$experimental) {
	warn "$opname\t\t* skipped not in ops.num\n"
	    if -e "DEVELOPING" and exists $ENV{PARROT_OPS_DEBUG};
	return -1;
    } else {
	my <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296746	297028	
==>ine",
                  "CODE" => 345,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 970 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1273	1440	
==>ment_end methods so that parser events are turned into method
calls. (Otherwise, this is a subclass of L<Pod::Simple> and inherits all
its methods.)

You can use this c <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	6368	6606	
==>les at the end of the file
	    if(!$comment_is_at_beginning && /c-indentation-style/);
    }

    $_ = $desc;
    s/^ *\*+\s*$//mg; # line of "*"s.
    s/\n( *\n){2,}/\n\n/sg; # excess blank lines
    s/^\s*//s; s/\s*$/\n/s; # trim (and e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909964	910275	
==>line",
                  "CODE" => 1025,
                  "ARGS" => [
                              "i",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 284 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10038	10150	
==>TIONS}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Pop state $$stack[-1][0].\n";

			p <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9590	9697	
==>TIONS}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Pop state $$stack[-1][0].\n";

			p <==
2	/Users/nnunley/parrot/config/init/hints/freebsd.pm	60	197	
==>nfig/init/hints/freebsd.pm 19593 2006-05-30T02:28:15.110975Z coke  $

package init::hints::freebsd;

use strict;

sub runstep
{
    my ($s <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	5057	5174	
==>old_type != value_type goto print_space
    goto iter_loop
  print_space:
    result .= ' '
    goto iter_loop
  iter_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009831	1009922	
==>=> "#line 659 \"src/ops/string.ops\"\n  {{\@1}} = string_compose(interpreter, {{\@2}});\n  { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010596	1010687	
==>=> "#line 659 \"src/ops/string.ops\"\n  {{\@1}} = string_compose(interpreter, {{\@2}});\n  { <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3758	3853	
==>X.so
	my $core_suffix;
	foreach $core_suffix (values %cores) {
		partial_link({}, $_ . "_ops$cor <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	13526	13667	
==>,
			'chunk' => 57
		}
	},
	{#State 15
		DEFAULT => -11,
		GOTOS => {
			'@1-1' => 59
		}
	},
	{#State 16
		DEFAULT => -13,
		GOTO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421267	421570	
==>0,
                  "NAME" => "bind",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422159	422462	
==>0,
                  "NAME" => "bind",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function", <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	9429	9553	
==>n();
        if (!defined($max) || $max < 0) { $guarantee = 0; }
        else { $guarantee /= $max; }
        $t->{args}->[3] <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	2089	2239	
==>\.//g;
        next if ($ops{$op});
        print "      <item>$op</item>\n";
        $ops{$op} = 1;
    }
}

for my $op (@imcc_oplike) {
    $op =~ s/ <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	10982	11082	
==>anagedStruct delegate CSub Compiler Exception Version VtableCache ParrotIO ParrotLibrary ConstParrotL <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18865	19173	
==>ire_close_paren;
      $self->require_semicolon;

#      $self->DEBUG(0, "Assembling call to '%s()'...", $sub_name->value);

      my $call = Jako::Construct::Statement::Call->new($block, $sub_name, @args);
      next;
    }

    #
    # Function Calls:
    #
    # a = foo(...);
    #

    if ($token->is_ide <==
2	/Users/nnunley/parrot/lib/Test/More.pm	28844	28962	
==>return $ok;
}

sub _deep_check {
    my($e1, $e2) = @_;
    my $ok = 0;

    # Effectively turn %Refs_Seen into a stack <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863484	863771	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bytelength",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864375	864662	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bytelength",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	631	726	
==>ou do $parser->get_token on a L<Pod::Simple::PullParser>, you might
get an object of this class. <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	537	632	
==>ou do $parser->get_token on a L<Pod::Simple::PullParser>, you might
get an object of this class. <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	8248	8378	
==>$type;
    DEBUG > 2 and print "Learning to accept \"$t\" as target of type $type\n";
  }    
  return sort keys %{ $this->{'accept <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676340	676650	
==>,
                  "NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 758,
                  "ARGS" <==
2	/Users/nnunley/parrot/languages/scheme/Scheme.pm	48	169	
==>2005-11-29T22:06:21.880912Z bernhard  $

package Scheme;

use strict;

use Data::Dumper;

use Scheme::Tokenizer();
use Sch <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1297	1408	
==>>{code}, $ctx) ];
    return $code;
}

sub list_to_pasm {
    my ($list_regex, $ctx, %options) = @_;
    my $cge <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	497	641	
==>abel);
    if ($distance eq '1') {
        return "rx_advance P0, $failLabel";
    } elsif ($distance =~ /\D/) {
        die "Unimplemented: vari <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9656	9849	
==>locate a matching
symbol, and then returns that symbol's access (const or not).

=cut

sub access_of_ident
{
  my $self = shift; # Required: Jako::Construct::Block
  my $name = shift; # Required <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53823	54045	
==>ne",
                  "CODE" => 69,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 829 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Interp_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3033	3143	
==>x <= @{$$self{STACK}}
	and	return $$self{STACK}[$index][1];

	undef;	#Invalid index
}

sub YYCurtok {
	m <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2886	2989	
==>x <= @{$$self{STACK}}
	and	return $$self{STACK}[$index][1];

	undef;	#Invalid index
}

sub YYCurtok {
	m <==
2	/Users/nnunley/parrot/config/init/hints/freebsd.pm	866	987	
==>amic_linking     => 1,
        parrot_is_shared        => 1,
        libparrot_shared        => 'libparrot$(SHARE_EXT).$(S <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	1704	1825	
==>amic_linking     => 1,
        parrot_is_shared        => 1,
        libparrot_shared        => 'libparrot$(SHARE_EXT).$(S <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23463	23813	
==>"i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 31,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 419 \"src/ops/core.ops\"\n  opcode_t *de <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	1903	2023	
==>arrot Assembler code and passes the test if a string comparison
of the output with the expected result it true.

=item C< <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	624	730	
==>>new($file, $line, 'bof', undef, '__BOF__');
}

sub new_eof
{
  my $class = shift;
  my ($file, $line) = @_ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	27501	27599	
==>omparison functions

The use of the following functions is discouraged as they are not
actually tes <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	70552	70964	
==>less subrule \"$subrule\" performs some cunning
		       lookahead, the repetition \"$subrule($repspec)\" will
		       insatiably consume as many matches of \"$subrule\" as it
		       can, leaving none to match the \"$&\" that follows.");
	}
}

sub _check_grammar ($)
{
	my $self = shift;
	my $rules = $self->{"rules"};
	my $rule;
	foreach $rule ( values %$rules )
	{
		next if ! $rule->{"changed"};

	# CHECK F <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44925	45017	
==>Y" => "#line 737 \"src/ops/core.ops\"\n  Parrot_pop_mark(interpreter, {{\@1}});\n  {{+=2}};\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45567	45659	
==>Y" => "#line 737 \"src/ops/core.ops\"\n  Parrot_pop_mark(interpreter, {{\@1}});\n  {{+=2}};\n <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	9677	9788	
==>rm assumes the current package
name as the class name.

An object of a class created by the first and third form <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216858	216969	
==>],
                  "BODY" => "#line 462 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217798	217909	
==>],
                  "BODY" => "#line 462 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614836	614946	
==>"\n    opcode_t *next = {{^+4}};\n    INTVAL offset;\n    offset = Parrot_class_offset(interpreter, {{\@2}}, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615987	616097	
==>"\n    opcode_t *next = {{^+4}};\n    INTVAL offset;\n    offset = Parrot_class_offset(interpreter, {{\@2}}, {{ <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	10675	10793	
==>t_$temp_num = (long)GET_NCI_I($reg_num);";
        return "t_$temp_num";
    };
    /I/ && do {
        push @{$temps_r <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2691	2811	
==>gcc/i) {
            $liblist =~ s/gdbm\.lib/-llibgdbm/i;
        }
        my $extraLibs = '-lm -lgmp -lreadline -lpthre <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	2486	2606	
==>gcc/i) {
            $liblist =~ s/gdbm\.lib/-llibgdbm/i;
        }
        my $extraLibs = '-lm -lgmp -lreadline -lpthre <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	17329	17507	
==>t_source>:

=over

=item $parser->set_source( $filename )

=item $parser->set_source( $filehandle_object )

=item $parser->set_source( \$document_source )

=item $parser->set_sour <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	5343	5476	
==>cally from '$file' (and possibly other
 * .ops files). by $0.
 *
 * Any changes made here will be lost!
 *
 */

END_C

my $mmp_v = "${ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	4112	4259	
==>ecode', 
            '',
            $self->c_item(
                'Parrot Packfile API and utilities.', 
                'contents' => ['src/packf <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113365	113655	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114103	114393	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5893	6108	
==>",
                  "CODE" => 8,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 144 \"src/ops/core.ops\"\n    Parrot_load_bytecode(i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035395	1035498	
==>_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@2}};\n    PMC * c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036559	1036662	
==>_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@2}};\n    PMC * c <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5475	5569	
==>]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}

${INS} = c <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	7611	7764	
==>out express or implied warranty of any kind.

These notices must be retained in any copies of any part of this
documentation and/or software.

=back

This <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9712	9799	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sub esc {
  if(defined wantarray) { <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	2248	2375	
==>e

=back

=cut

sub create_table {
    my ($name) = @_;
    my $len = 8;

    print "const PARROT_CCLASS_FLAGS ${name}[256] = {\ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	13446	13567	
==>os($$textref),20) .
			    q{..."},
		         pos $$textref;
		return; 
	}
	my $codepos = pos($$textref);
	unless ($$text <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	14315	14433	
==>s($class, $vtable)

Generate a list of inherited methods for I<$class> by searching the
inheritence tree. The method li <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663719	663942	
==>te_keyed(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664491	664714	
==>te_keyed(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668644	669003	
==>NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 748,
                  "ARGS" => [
                              "p",
                              "n <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	4939	5054	
==>turn,'.Undef']);
    for (reverse @$children) {
      if (exists $_->{children}) {
        my $arg0 = _get_arg($_, 0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938409	938609	
==>",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 481 \"src/ops/string.ops\"\n    {{\@1}} = string_join(interpret <==
2	/Users/nnunley/parrot/Configure.pl	5597	5927	
==>upports inline
   --optimize           Optimized compile
   --optimize=flags     Add given optimizer flags
   --parrot_is_shared   Link parrot dynamically
   --profile            Turn on profiled compile (gcc only for now)

   --cc=(compiler)      Use the given compiler
   --ccflags=(flags)    Use the given compiler flags
   --cc <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33739	33870	
==>e) = @_;
	
''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying subrule: [' . $self->{"subrule"} . ']},
				  Parse::RecDesc <==
2	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	1100	1240	
==>nts
comment:            m/^#[^\n]*\n/

# TODO: What does this means???
V1:                 "V1\n"

# for each macro we need: name, substituti <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5894	6022	
==>up
        my $group = $class->{flags}{group}
          or next;
        ($group) = keys %$group;
        $pmc_group{$pmc} = $gro <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6105	6233	
==>up
        my $group = $class->{flags}{group}
          or next;
        ($group) = keys %$group;
        $pmc_group{$pmc} = $gro <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	116	210	
==>31.111564Z bernhard  $

=head1 NAME

Parrot::OpTrans::CSwitch - C Switch Transform

=head1 DESC <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	417	525	
==>on::Info;

use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new se <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571177	571435	
==>_object_isa(interpreter, {{\@2}}, class);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572132	572390	
==>_object_isa(interpreter, {{\@2}}, class);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51745	51856	
==>!= 0) { Parrot_set_trace(interpreter,   {{\@1}}); }\n  else         { Parrot_clear_trace(interpreter, PARROT_ALL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52528	52639	
==>!= 0) { Parrot_set_trace(interpreter,   {{\@1}}); }\n  else         { Parrot_clear_trace(interpreter, PARROT_ALL <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5595	5704	
==>no];

#DBG>	print STDERR ('-' x 40),"\n";
#DBG>		$debug & 0x2
#DBG>	and	print STDERR "In state $stateno:\n <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5327	5432	
==>no];

#DBG>	print STDERR ('-' x 40),"\n";
#DBG>		$debug & 0x2
#DBG>	and	print STDERR "In state $stateno:\n <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	18872	19046	
==>e
given directories to search for all of correct PMCs. The middle
argument is the display depth, which is used for the recursive
definition of this function.

=cut

sub print_ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7365	7491	
==>{ignore})	       ? $options{ignore}
		    :					 ''
		    ;

	if (!defined $ldel) { $ldel = '<\w+(?:' . gen_delimited_pat(q{'"} <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24367	24493	
==>{ignore})	       ? $options{ignore}
		    :					 ''
		    ;

	if (!defined $ldel) { $ldel = '<\w+(?:' . gen_delimited_pat(q{'"} <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	3241	3354	
==>pack 'V4',$a,$b,$c,$d;
}


sub md5_hex(@) {  
  unpack 'H*', &md5;
}

sub md5_base64(@) {
  encode_base64(&md5);
} <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	38649	38783	
==>DEBUG > 3 and
             print "     No need to remove quotes in ", pretty(@section_name), "\n";
          }

          $section_name <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563931	564023	
==>ops/object.ops\"\n  VTABLE_add_method(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4}};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564829	564921	
==>ops/object.ops\"\n  VTABLE_add_method(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4}};\n" <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3643	3791	
==>t foo[] = { "foo", "bar" };

=head1 DEPENDENCIES

Uses F<tools/dev/nm.pl> to list the symbols.

=head1 TODO

=over 4

=item *

Write a pollution dete <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	12312	12432	
==>415
print t.foo
print t.bar
print t.narf

' Variable-depth structure references
type first
	foo as integer
	bar as string <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	16565	16671	
==>urn$params", "pcf_${return}_$params" ) :
        ( "$return", "pcf_${return}" ));

    push @{$put_pointer_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	896	1005	
==>r.
sub subs() {
	# No extra subs.
	return "";
}

# Label generation.
sub gen_label() {
	# We'll emit a label f <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	653	762	
==>r.
sub subs() {
	# No extra subs.
	return "";
}

# Label generation.
sub gen_label() {
	# We'll emit a label f <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3274	3391	
==>struct::Type::String')) {
    my $string = $self->value;

    if ($string =~ m/(^"|^".*?[^\\])\$/) { # Double-quote wi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	664	767	
==>cks($t, 0, 0);
    # Delete the no-implicit-check marker
    $t = $self->maptree($t, sub { delete shift- <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11873	11993	
==>=head1 NAME

TODO - TODO

=head1 SYNOPSIS

 TODO

  perl -MPod::Simple::HTML -e \
   "exit Pod::Simple::HTML->filter(shif <==
2	/Users/nnunley/parrot/config/auto/aio.pm	75	168	
==>aio.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/aio.pm - Test for A <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	709587	709994	
==>GDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 796,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 732 \"src/ops/pmc.ops\"\n  {{\@1}} = {{\@2}}->vta <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	7192	7313	
==>count}_of_production_${prodcount}_of_rule_$self->{name}";
}

sub nextimplicit($)
{
	my $self = shift;
	my $prodcount = sca <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1880	1988	
==>target string against the Perl 6 pattern, passing the test if
they do not match. The same pattern argument sy <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3412	3520	
==>target string against the Perl 6 pattern, passing the test if
they do not match. The same pattern argument sy <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	13	122	
==>rl
# .NET CLI => PIR Translator Generator
# Script to generate the instruction translator from a rules file an <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	725981	726103	
==>DY" => "#line 29 \"src/ops/set.ops\"\n  {{\@1}} = string_copy(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726743	726865	
==>DY" => "#line 29 \"src/ops/set.ops\"\n  {{\@1}} = string_copy(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	1484	1596	
==>nt "$command\n";
my $status = system($command);
exit 1 if (! defined $status);
exit($status >> 8) if $status != 0 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1746	1840	
==>>sax($handler);
  $self->right->sax($handler);
  $handler->end_element({ Name => 'assign' });
} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57433	57763	
==>E" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 74,
                  "ARGS" => [
                              "s", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408229	408341	
==>,
                  "BODY" => "#line 540 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_connect(interpreter, {{\@2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409128	409240	
==>,
                  "BODY" => "#line 540 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_connect(interpreter, {{\@2 <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36649	36758	
==>$l = $self->line_directive($line, "null.c");
    return <<EOC;
$l
${decl} {
	real_exception(interpreter, NULL, <==
2	/Users/nnunley/parrot/lib/Test/More.pm	11619	11846	
==>o methods');
        return $ok;
    }

    my @nok = ();
    foreach my $method (@methods) {
        local($!, $@);  # don't interfere with caller's $@
                        # eval sometimes resets $!
        eval { $proto->c <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3860	4051	
==>2_halfpoint_size(28);
  $new->head3_halfpoint_size(25);
  $new->head4_halfpoint_size(22);
  $new->codeblock_halfpoint_size(18);
  $new->header_halfpoint_size(17);
  $new->normal_halfpoint_size <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	4824	5064	
==>nal};
        
        # the actual thing to be compiled
        $code .= "  \$P0 = argv[$i] \n";
        # the register behind this argument
        $code .= "  .local int    r_$name \n";
        $code .= "  (r_$name, \$S0) = compiler(regis <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	21621	21742	
==>name:  		# Source in P6 Dest in P1 (don't trash P0)
	#print "--Copying a $typename\\n"
	pushp			# Makes an internal mess o <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	6050	6210	
==>ck it
    my $context;

    # Check if we have to forcetodo this test
    # because we're preparing for a release.
    $context = "TODO for release"
        if i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	945	1043	
==>f $op;
  confess "Right is not Value!" unless UNIVERSAL::isa($right, 'Jako::Construct::Expression:: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	957	1055	
==>f $op;
  confess "Right is not Value!" unless UNIVERSAL::isa($right, 'Jako::Construct::Expression:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	625691	625953	
==>break;\n            case PARROT_ARG_INTVAL|PARROT_ARG_CONSTANT:\n            case PARROT_ARG_FLOATVAL|PARROT_ARG_CONSTANT:\n                args[1 + i] = (void**)cur_opcode[2 + i];\n                break;\n            case PARROT_ARG_FLOATVAL:\n                ar <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8155	8250	
==>_name($name)>

Returns a directory with the specified name in the directory.

=cut

sub existing <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	6357	6558	
==>args) = @_;
    
    my %args = map { $_->{name} => $_ } @args;
    
    # the number for the loops
    my $code = "  .local int loop_num \n"
             . "  loop_num = register \n";
    $code .= emit <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9343	9467	
==>ex");
}

sub output_popint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);
    if ($self->{DEBUG}) {
        m <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9037	9161	
==>ex");
}

sub output_popint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);
    if ($self->{DEBUG}) {
        m <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10075	10192	
==>bug & 0x10
#DBG>		and	print STDERR "**Pop state $$stack[-1][0].\n";

			pop(@$stack);
		}

			@$stack
		or	do { <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9625	9735	
==>bug & 0x10
#DBG>		and	print STDERR "**Pop state $$stack[-1][0].\n";

			pop(@$stack);
		}

			@$stack
		or	do { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057782	1058141	
==>nd_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1181,
                  "ARGS" => [
                              " <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	5852	6071	
==>$name = $quote$default$quote");
            $code .= "done_$name: \n";
        }
    }
    
    return $code;
}

sub emit {
    my ($code, @args) = @_;
    
    chomp $code;
    
    my $pir = '';
    while ($code =~ s/^ <==
2	/Users/nnunley/parrot/examples/benchmarks/primes.pl	228	367	
==>ad1 SYNOPSIS

    % time perl examples/benchmarks/primes.pl

=head1 DESCRIPTION

Calculates all the prime numbers up to 50000 and prints out <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11572	11676	
==>elf->forth);

      $self->require_semicolon;

      my $arith = Jako::Construct::Statement::Arithmetic-> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16517	16621	
==>elf->forth);

      $self->require_semicolon;

      my $arith = Jako::Construct::Statement::Arithmetic-> <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4222	4415	
==>str .= chr $1, 
                last;

            s/^\\//
                and $parser->Error("Invalid escape sequence $_ .\n"),
                last;
        }
    }

    $parser->Erro <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2708	2900	
==>str .= chr $1,
                last;

            s/^\\//
                and $parser->Error("Invalid escape sequence $_ .\n"),
                last;
        }
    }

    $parser->Erro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103630	104076	
==>ore",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 129,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 140 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}}->vtable->bitwise_n <==
2	/Users/nnunley/parrot/config/init/miniparrot.pm	79	181	
==>parrot.pm 20320 2006-06-20T19:26:31.775154Z bernhard  $

=head1 NAME

config/init/miniparrot.pm - Minip <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5192	5300	
==>r (split('',$$token)) {
#DBG>			$tok.=		(ord($_) < 32 or ord($_) > 126)
#DBG>					?	sprintf('<%02X>',ord($_ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4942	5048	
==>r (split('',$$token)) {
#DBG>			$tok.=		(ord($_) < 32 or ord($_) > 126)
#DBG>					?	sprintf('<%02X>',ord($_ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13808	14043	
==>arsing)"
				: "an unconditional <reject>";
		my $caveat = $items[0]->describe =~ /<rulevar/
				? " after the specified variable was set up"
				: "";
		my $advice = @items > 1
				? "However, there were also other (useless) items afte <==
2	/Users/nnunley/parrot/languages/regex/test.pl	658	843	
==>ge: $0 [-c|--compile] [--language=LANGUAGE] [--optimize=PASSES|--nooptimize] <filename>

  Test files are Perl5 source files which must contain a __END__ section.
  Right after the __END <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	21430	21541	
==>$res = $op $lp, $rp $cmt$isnot
EOC
	}
	print <<EOC;
	$pres = new .Boolean
	$pres = $res # ugly
EOC
	push @stack, <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	32813	32976	
==>, $cmt) = @_;
    my $obj = pop @stack;  # object
    my $val = promote(pop @stack);
    if ($vtables{$c}) {
	$c = $vtables{$c};
    }
    my $cc;
    if ($c =~ /^\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094735	1095007	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "exec",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095429	1095701	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "exec",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6928	7025	
==>1$="The longer string"
found$="longer"
bogus$="not"
print "Found  (5): ", instr(s1$, found$)
print <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18657	18754	
==>1$="The longer string"
found$="longer"
bogus$="not"
print "Found  (5): ", instr(s1$, found$)
print <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	865944	866628	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "unpin",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "function",
                  "CODE" => 983,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 180 \"src/ops/string.ops\"\n   string_unpin(interpreter, {{\@1}});\n   {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tests.pm	76	174	
==>ction/Tests.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Section::T <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	725	845	
==>ch {
    my ($byte) = @_;
    return "match '$byte'";
}

sub output_classmatch {
    my ($class) = @_;
    return "classm <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	15574	15721	
==>ONS => {
			":" => 51,
			"[" => 47,
			"(" => 48,
			"." => 49,
			'STRING' => 44,
			"{" => 38
		},
		DEFAULT => -56,
		GOTOS => {
			't <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	75080	75273	
==><<<<<<<<<<<<<<<<<<<<<<<<<<<
                       $errortext
.

select ERROR;
$| = 1;

# TRACING

my $tracemsg;
my $tracecontext;
my $tracerulename;

open (TRACE, ">&STDERR");
format TRACE =
|@ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	4352	4501	
==>IT THIS FILE",
            "Generated by " . __PACKAGE__ . " from $source"
        );

        if ($options{commentType} eq '#') {
            foreach <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666812	667067	
==>_elements(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22324	22452	
==>ara';
        $title = $t->text . $title if $t->type eq 'text';
      }
      undef $title if $title =~ m<^\s*$>; # make sure it' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22570	22875	
==>> [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 30,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 409 \"src/ops/core.ops\"\n  opc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	534427	534735	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "log2",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fu <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	3632	3741	
==>$id = $self->svn_id;
    my ($version) = $id =~ /,v\s+(\S+)/s;
    
    return $version;
}

=item C<is_hidden( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	401	509	
==>t::Statement);

sub new
{
  my $class = shift;
  my ($block, $ident) = @_;

  confess("Block (" . ref($block) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	401	509	
==>t::Statement);

sub new
{
  my $class = shift;
  my ($block, $ident) = @_;

  confess("Block (" . ref($block) <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	251	358	
==>package inter::pmc;

use strict;
use warnings;

use base qw(Parrot::Configure::Step::Base);

use Parrot::Con <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	682	795	
==>roak("Usage:\n use Pod::Simple::Debug (NUMVAL)\nor"
                    . "\n use Pod::Simple::Debug (\\\$var, STA <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	503	612	
==>roak("Usage:\n use Pod::Simple::Debug (NUMVAL)\nor"
                . "\n use Pod::Simple::Debug (\\\$var, STA <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	3017	3198	
==>>{arg1}->{symbol}\] = $op->{arg2}->{symbol}\n";
    }

    sub visitIncrOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$F <==
2	/Users/nnunley/parrot/config/inter/progs.pm	1196	1380	
==>l;
    };

    my $ask = $conf->options->get('ask');
    if ($ask) {
        print <<'END';


    Okay, I'm going to start by asking you a couple questions about your
    compiler and l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111934	112218	
==>"CODE" => 139,
                  "ARGS" => [
                              "s",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 187 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_or(interpreter, { <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	56210	56398	
==>ting possible
					       types of the specified token. For example:
					       <token:NOUN,VERB>");
				}
				else
				{
					$item = new Parse::RecDescent::Directive(
						      'no str <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4807	4928	
==>se {
    my($self)=shift;

	my($rules,$states,$lex,$error)
     = @$self{ 'RULES', 'STATES', 'LEX', 'ERROR' };
	my($e <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4570	4686	
==>se {
    my($self)=shift;

	my($rules,$states,$lex,$error)
     = @$self{ 'RULES', 'STATES', 'LEX', 'ERROR' };
	my($e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335702	336241	
==>s_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 393,
                  "ARGS" => [
                              "p",
                              "ic",
                              "sc"
                            ],
                  "BODY" => "#line 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	9844	9994	
==>pe[CURR] eq "COMM") {
			last;
		}
		last if (iskeyword($syms[CURR]) and not isbuiltin($syms[CURR]));
		die "LOOP" if $c++>100;
		if ($type[CURR] eq "S <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621391	621507	
==>ULL;\t/* just for gcc */\n    }\n    lru = &mic->lru;\n    if (lru->u.signature == sig) {\n\tif (sig) {\n\t    n = (( <==
2	/Users/nnunley/parrot/config/auto/aio.pm	1246	1437	
==>GRTMAX => $2,
            );
        }

    } else {
        $conf->data->set(libs => $libs);
        print " (no) " if $verbose;
        $self->set_result('no');
    }

    return $self;
}

1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736705	736977	
==>LOATVAL){{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737451	737723	
==>LOATVAL){{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	2284	2411	
==>$offset + sizeof('op') <= $length) {
	my ($src, $is_branch);

        $pc       = $new_pc;
	$op_code  = unpack "x$offset l", $pf <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	21548	21671	
==>153 "lib/Regex/Grammar.y"
{ return { min => 0, max => $_[4] }; }
	],
	[#Rule 31
		 'range', 3,
sub
#line 155 "lib/Regex/Gram <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	12945	13082	
==>est;
        return $test;
    }

    return $self->cmp_ok($got, 'ne', $dont_expect, $name);
}

sub isnt_num {
    my($self, $got, $dont_e <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8323	8477	
==>for_directory_with_name(shift) || return;
    
    return unless -d $path;
    
    return $self->directory_with_path($path);
}

=item C<existing_file_with <==
2	/Users/nnunley/parrot/lib/Parrot/Revision.pm	638	766	
==>n my $FH, '<', $svn_entries or die $!;
        while (<$FH>) {
            /^ *committed-rev=.(\d+)./ or next;
            return <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28235	28328	
==>::RecDescent::_trace(q{<<Didn\'t match terminal>>},
						  Parse::RecDescent::_tracefirst($te <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32510	32603	
==>::RecDescent::_trace(q{<<Didn\'t match terminal>>},
						  Parse::RecDescent::_tracefirst($te <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	6085	6207	
==>lines(undef);
        delete $self->{'source_scalar_ref'};
        DEBUG and print "That's it for that source scalarref!  K <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242011	242108	
==>" => "#line 624 \"src/ops/cmp.ops\"\n  FLOATVAL l = VTABLE_get_number(interpreter, {{\@2}});\n  {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242960	243057	
==>" => "#line 624 \"src/ops/cmp.ops\"\n  FLOATVAL l = VTABLE_get_number(interpreter, {{\@2}});\n  {{ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	1147	1250	
==>->left->value;
  my $right = $self->right->compile($compiler);

  $compiler->emit("  new $left, .$right" <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	5393	5508	
==>ine %d (previously seen on line %d) of $ARGV",
              "$ret$args", $., $seen{"$ret$args"}
        if $opt_war <==
2	/Users/nnunley/parrot/languages/APL/t/APL.pm	1564	1706	
==>utput;  # XXX Keep hackin' it up!
    }

    my $todo   = $block->todo;
    if (defined($todo)) {
      if (! $todo) {
        $todo = "not imp <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	493	624	
==>piler) = @_;

  my $kind        = $self->kind;
  my $peer        = $self->peer;

  my $prefix;

  if ($self->prefix) {
    $prefix = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	473	604	
==>piler) = @_;

  my $kind        = $self->kind;
  my $peer        = $self->peer;

  my $prefix;

  if ($self->prefix) {
    $prefix = <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	57635	57946	
==>a\lua51.yp"
{
            [
                $_[1],
            ];
        }
	],
	[#Rule 94
		 'args', 1,
sub
#line 494 "Lua\lua51.yp"
{
            [
                BuildLiteral( $_[0], $_[1], 'string' ),
            ];
        }
	],
	[#Rule 95
		 '@11-1', 0,
sub
#line 503 "Lua\lua51.yp"
{ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	19376	19474	
==>f =~ m/\G(\S)/gc)	# SHOULD USE LOOKAHEAD
	{
		_failmsg "No block delimiter found after quotelike $o <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9866	10003	
==>map'}{$tagname}) or next;
      $scratch =~ s/\#([^\#]+)\#/${$self}{$1}/g; # interpolate
      print $fh $scratch;
      
      if ($tagna <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	5659	5760	
==>is file is generated automatically from '$file'.
# Any changes made here will be lost!
#

$pod

use st <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	3082	3254	
==>uarch}      = $1;
  $html =~ /osname: ([\w\d]+)/     and $smoke{osname}       = $1;
  $html =~ /cc: ([\w\d]+)/         and $smoke{cc}           = $1;
  $html =~ /DEVEL: -?(\ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	1382	1502	
==>ntents = ();
    my $dist = Parrot::Distribution->new;
    
    if ( exists $contents{'pairs'} )
    {
        foreach my <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	202	317	
==>header parts of .h files from .c files

=head1 SYNOPSIS

Update the headers in F<include/parrot> with the function d <==
2	/Users/nnunley/parrot/lib/Test/More.pm	15759	15873	
==>ag'>.  This is useful
if you have diagnostics for personal testing but then wish to make
them silent for release wi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	2638	2780	
==>exists,
we throw an error.

TODO: We should generate real compiler errors and warnings instead of using
confess() and warn().

=cut

sub set_sy <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1922	2169	
==>ion mark, apostrophe
                last;
            s/^\\a//
                and $str .= "\a",      # bell
                last;
            s/^\\b//
                and $str .= "\b",      # backspace
                last;
            s/ <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3436	3683	
==>ion mark, apostrophe
                last;
            s/^\\a//
                and $str .= "\a",      # bell
                last;
            s/^\\b//
                and $str .= "\b",      # backspace
                last;
            s/ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	31735	31881	
==>[$e1, $e2] };
        $ok = _deep_check($e1, $e2);
        pop @Data_Stack if $ok;

        last unless $ok;
    }

    return $ok;
}

=item B<eq_s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605912	606139	
==>rrot_add_attribute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606703	606930	
==>rrot_add_attribute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3425	3564	
==>! $debug) {
		print CODE ".end\t# outer segment\n";
		next;
	}
	print CODE<<EOD;
	.sub ${seg}_debug
		saveall
		.param int debline
		find_gl <==
2	/Users/nnunley/parrot/config/auto/aio.pm	1076	1256	
==>ult('yes');

            $conf->data->set(
                aio        => 'define',
                HAS_AIO    => 1,
                D_SIGRTMIN => $1,
                D_SIGRTMAX => $ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	28939	29284	
==>}
sub FOR_ITER
{
    my ($n, $c, $cmt) = @_;
    my $targ = "pc_xxx";
    my $tos = pop @stack;
    my $iter = $tos->[1];
    if ($c =~ /to (\d+)/) {
	$targ = "pc_$1";
    }
    my $var = temp('P');
    my $name = $tos->[0];
    print <<EOC;
	unless $iter goto $targ # $tos->[0]
	$var = shift $iter $cmt
EOC
    push @stack, [-1, $var, 'P']
}


s <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27634	27750	
==>new_label($parser);
    push @opcodes, new LabelOp( $parser,
        'arg1' => $l_continue,
    );
    foreach my <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8859	8952	
==>ecified path taken
relative to the directory.

=cut

sub path_for_directory_with_relative_path <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	382	567	
==>::Construct::Statement);


#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $value, $cond, $left, $op, $right) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Ja <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	67298	67418	
==>rules"}{$name}->expected }
				$item = new Parse::RecDescent::Subrule($name,
								       $lookahead,
								       $l <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	2450	2625	
==>dir2 = split(/,/, $dir2);
    my (%dir1, %dir2);
    @dir1{@dir1} = (1) x scalar @dir1;
    @dir2{@dir2} = (1) x scalar @dir2;
    my @diff;
    foreach (keys(%dir2)) {
	push @ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	9921	10063	
==>_Results}[$self->{Curr_Test}-1] = $result;
    $out .= "\n";

    $self->_print($out);

    unless( $test ) {
        my $msg = $todo ? "Failed <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	10311	10666	
==>f->make_op($count, $type, $short_name, $body, \@args,
                \@argdirs, $line, $orig, \@labels, $flags, $nolines);

            $seen_op = 0;

            next;
        }

        #
        # Accumulate the code into the op's body:
        #

        if ($seen_op)
        {
            $body .= $_;
        }
        else
        {
            di <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	12643	12785	
==>y ($name, $tree) = @{ $self->{args} };
    my $expr = $tree->render;
    if ($name eq 'default') {
        return $expr;
    } else {
        r <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7659	7758	
==>{CURIC}
dec ${ITEMP0}
dec ${ITEMP2}

# Generate name of register to hold value we pop off the stack. <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6617	6716	
==>{CURIC}
dec ${ITEMP0}
dec ${ITEMP2}

# Generate name of register to hold value we pop off the stack. <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	314	507	
==>pts) = @_;
    my $self = bless \%opts, (ref($proto) || $proto);
    $self->init();
    return $self;
}

sub init {
}

sub optimize_tree {
    my ($self, $t, $ctx) = @_;
    $t = $self->pass1($t <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	104	238	
==>pts) = @_;
    my $self = bless \%opts, (ref($proto) || $proto);
    $self->init();
    return $self;
}

sub init {
    my $self = shif <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	734	861	
==>| |_________|
       |           |
    CSwitch       CGP

=head2 Class Methods

=over 4

=cut

package Parrot::OpTrans;

use str <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	3499	3716	
==>todo, (\d+) skipped and (\d+) unexpectedly succeeded"/    and $smoke{summary}       = {
    total    => $1,
    ok       => $2,
    failed   => $3,
    todo     => $4,
    skipped  => $5,
    unexpect => $6,
  };

  if <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19137	19279	
==>o(...);
    #

    if ($token->is_ident
      and $self->get(1)->is_assign
      and $self->get(2)->is_ident
      and $self->get(3)->is_open_p <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	2491	2720	
==>s/dev/mk_manifests.pl>

=cut

################################################################################

use File::Basename qw(dirname basename);
use File::Copy;
use File::Spec;
use strict;

# When run from the makefile, wh <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	1636	1795	
==>e"
      unless defined $1;
    if ($self->{regs}->{$1}{$2}) {
      $self->{regs}->{$1}{$2} = 0;
    }
  }
}

sub _restore_set {
  my $self = shift;
  my %regs <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	33704	33839	
==>re) of the user-specified delimiter
brackets: '(..)', '{..}', '[..]', or '<..>'). Optionally it will also
respect quoted unbalanced brac <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	5472	5641	
==>rg->{default}) {
            my $type    = $arg->{type} eq 'int' ? 'TclInt' : 'TclString';
            my $quote   = $arg->{type} eq 'int' ? ''       : "'";
            m <==
2	/Users/nnunley/parrot/lib/Test/More.pm	20970	21128	
==>r that you
use TODO.  Read on.

=cut

#'#
sub skip {
    my($why, $how_many) = @_;

    unless( defined $how_many ) {
        # $how_many can only be avoided w <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1288	1404	
==>rn $self;
}


#
# ACCESSORS:
#

sub value { return shift->{VALUE}; }
sub cond  { return shift->{COND};  }
sub left  { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356663	356852	
==>io.ops\"\n  PIO_eprintf(interpreter, INTVAL_FMT, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357323	357512	
==>io.ops\"\n  PIO_eprintf(interpreter, INTVAL_FMT, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4840	4936	
==>($rules,$states,$lex,$error)
     = @$self{ 'RULES', 'STATES', 'LEX', 'ERROR' };
	my($errstatus <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4600	4694	
==>($rules,$states,$lex,$error)
     = @$self{ 'RULES', 'STATES', 'LEX', 'ERROR' };
	my($errstatus <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1284	1406	
==>ec->join('languages', $language);
        } elsif ($dir_count == 1) {
          $path_to_language = $language;
        } el <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1769	1891	
==>ec->join('languages', $language);
        } elsif ($dir_count == 1) {
          $path_to_language = $language;
        } el <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154663	154933	
==>87,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33866	34028	
==>, "\n";
              push @$para, '';  # Just so it's not contentless
            }
          }


        } elsif($over_type eq 'bullet') {
          my $item_typ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557754	557852	
==>t.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next = {{^+3}};\n  STRING *met <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559138	559236	
==>t.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next = {{^+3}};\n  STRING *met <==
2	/Users/nnunley/parrot/config/auto/funcptr.pm	511	829	
==>args = qw(verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $jitcapable = $conf->data->get('jitcapable');

    if ($jitcapable) {
        cc_gen('config/auto/funcptr/test_c.in');
        eval { cc_build(); };

        if ($@ || cc_run() !~ /OK/) {
            print <<"END";
Although it is not required by th <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18147	18260	
==>s\"\n  if (string_bool(interpreter, {{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	8214	8383	
==>indentation-style: bsd
        * c-basic-offset: 4
        * indent-tabs-mode: nil
        * End:
        *
        * vim: expandtab shiftwidth=4:
        */
    );
    s <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	3103	3235	
==>indentation-style: bsd
 * c-basic-offset: 4
 * indent-tabs-mode: nil
 * End:
 *
 * vim: expandtab shiftwidth=4:
 */
EOF

close OUT or <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	5558	5680	
==>intf</code> and utility functions.', 
                'pairs' => ['misc'],
                'sources' => ['spf_render', 'spf <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	535048	535601	
==>mp;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sec",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 619,
                  "ARGS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730012	730306	
==>mp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "FLA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	66447	66702	
==>LE_get_pmc_keyed_int(interpreter, interpreter->iglobals,\n         IGLOBALS_INTERPRETER);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	978478	978710	
==>",
                              "s",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	1506	1670	
==>f $type ne 'int';

    # Bad implementation -- does not handle recursion. Actual
    # instances should probably be subclasses that use something like
    # IMCC's f <==
2	/Users/nnunley/parrot/lib/Test/More.pm	9988	10085	
==>fway between ok() and is() lies cmp_ok().  This allows you to
compare two arguments using any bina <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5064	5177	
==>bel_use($failLabel);
    my $pass = $self->output_label_use($passLabel);

    while (@$incexc) {
        my $first <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4739	4852	
==>bel_use($failLabel);
    my $pass = $self->output_label_use($passLabel);

    while (@$incexc) {
        my $first <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8017	8145	
==>opindex {
    my $self = shift;

    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7670	7798	
==>opindex {
    my $self = shift;

    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } elsi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2919	3052	
==>$self->{'line_count'},
          "UTF16-BE Byte Encoding Mark found; but Pod::Simple v$Pod::Simple::VERSION doesn't implement UTF16 ye <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517791	518149	
==>DIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 597,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 73 <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	3333	3470	
==>'brvbar'   , 166,
 'sect'     , 167,
 'uml'      , 168,
 'copy'     , 169,
 'ordf'     , 170,
 'laquo'    , 171,
 'not'      , 172,
 'shy' <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	17400	17497	
==>\)/{{+=$1}}/mg;
        #s/goto\s+NEXT\(\)/{{+=$op_size}}/mg;	#not supported--dependent on op size <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	12377	12489	
==>rns Bool`

- `eval_is (Str $code, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These fun <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	911	1004	
==>) REG_INT(cur_opcode[i])
#define NREG(i) REG_NUM(cur_opcode[i])
#define PREG(i) REG_PMC(cur_op <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1027	1120	
==>) REG_INT(cur_opcode[i])
#define NREG(i) REG_NUM(cur_opcode[i])
#define PREG(i) REG_PMC(cur_op <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21813	21945	
==>function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 68
		ACTIONS => {
			"^" => <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	11702	11823	
==>($got, '==', $expect, $name);
}

sub _is_diag {
    my($self, $got, $type, $expect) = @_;

    foreach my $val (\$got, \$e <==
2	/Users/nnunley/parrot/config/init/hints/hpux.pm	177	299	
==>ep
{
    my ($self, $conf) = @_;

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	231	353	
==>ep
{
    my ($self, $conf) = @_;

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	12705	12819	
==>$P1 = shift iter
    push result, $P1

    dec op1
    goto pos_loop

done:
    .return (result)
.end

.sub unicode <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761384	761488	
==>e 305 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762237	762341	
==>e 305 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4682	4809	
==>ft;
	my $register_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we're mai <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3098	3225	
==>ft;
	my $register_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we're mai <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	50301	50472	
==>d->additem($item)
				      or  _no_rule("<perl_codeblock>",$line);
			}
			elsif ($grammar =~ m/$VARIABLEMK/gco)
			{
				_parse("an perl variable marker", $aftererror,$li <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3521	3637	
==>, $out];
    }

    return %tests;
}

##
## $preamble = extract_preamble($string)
##
## Extract the preamable for tes <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5055	5168	
==>("$_$LOAD_EXT", $dest) or die "Copy $_$LOAD_EXT failed ($?)\n";

        # Execute permissions on libraries is esp <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5266	5379	
==>("$_$LOAD_EXT", $dest) or die "Copy $_$LOAD_EXT failed ($?)\n";

        # Execute permissions on libraries is esp <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38493	38609	
==>me"} .'})
						if defined $::RD_TRACE;
		') . ($::RD_NO_HITEM ? ''
		     : '$item{q{' . $self->describe . '}} = $_t <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	12095	12205	
==>.  The first matching
program name is returned or C<undef> on failure.  Note: this function only
returns the na <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	23750	23904	
==>ix, '', "\t\t #call_args");
	    my $t = pop @stack;
	    unshift @args, $t->[1];
	}
	for (my $i = 0; $i < $nf; $i++) {
	    my $arg = pop @stack;
	    uns <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2914	3055	
==>is class; see its
documentation for a discussion of the differences.

L<Pod::Simple>, L<Pod::Simple::DumpAsXML>

The older libraries L<Pod::PX <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527097	527389	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527850	528142	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714539	714637	
==>RING * const s = {{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (s && string_length(in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715462	715560	
==>RING * const s = {{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (s && string_length(in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460322	460809	
==>,
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 528,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 282 \"src/ops/math.ops\"\n  INTVAL <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	728	849	
==>equire Parrot::Docs::Section::Parrot;
    
    return Parrot::Docs::Section::Parrot->new;
}

=item C<new_section($name, $t <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3351	3453	
==>YExpect {
    my($self)=shift;

    keys %{$self->{STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
}

su <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3182	3278	
==>YExpect {
    my($self)=shift;

    keys %{$self->{STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
}

su <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	12330	12467	
==>e, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `eval_is (Str $code, Str $expected, Str $desc?, Bool :$todo, Str :$depends) re <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	4905	5049	
==>evel language this PMC corresponds to.

=item C<maps Type>

The basic parrot PMC type that this PMC correspond to for C<.HLL> usage. For example: <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	16855	17044	
==>in the file(s).

=cut

sub ops
{
    my ($self) = @_;

    return @{$self->{OPS}};
}

=item C<op($index)>

Returns the op at C<$index>.

=cut

sub op
{
    my ($self, $index) = @_;

    retu <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5462	5560	
==>'eqv' => sub {
		my($a1,$a2,$result,$op,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false( <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	6683	6841	
==>new Parrot::Op instance based on the type, name and args.
        # We query the Parrot::Op for the op size, etc., which we use later.
        #
        # Eith <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3808	3923	
==>dme();		# Ignore this form for now.
	}
	if ($syms[CURR] eq "#") {
		feedme();
		$fd=$syms[CURR];
		feedme();
		die " <==
2	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	620	719	
==>: '';
	my $output = `mcs -out:$file_name $kind $opt $file_name.cs`;
	if ($output) {
		print "compile <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21859	22088	
==>e"

' Mystery typeshift bug (OK)
type foo
	first as integer
end type
dim a as foo
print a.first=x
print a.first
print "OK"

' Default case fallthrough
t=3
select case t
	case 1
		print "One"
	case 2
		print "Two"
	case 3
		print " <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39906	40064	
==>1
		},
		DEFAULT => -30
	},
	{#State 166
		ACTIONS => {
			"-" => 72,
			"<" => 74,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			'A <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	23887	24066	
==>ass */
EOC

   # To make use of the .HLL directive, register any mapping...
    if ($self->{flags}{hll} && $self->{flags}{maps}) {

      my $hll  = (keys %{$self->{flags}{hll}})[0 <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	1865	1977	
==>\w+::)*\w+$/ or croak("Bad class name: $class");

		my $modulefile = $class;
		$modulefile =~ s/.*:://;
		$module <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	4002	4179	
==>j->add_pir($code, $code, ...)>

Add more pir to be processed. 

=item C<$code = $obj->get_formatted()>

Return the nicely formatted code for the raw PIR that's been provided.

=f <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	19125	19287	
==>merge;

  DEBUG > 2 and print "\nStarting _wrap_up traversal.\n",
   $merge ? (" Merge mode on\n") : (),
   $nixx  ? (" Nix-X mode on\n") : (),
  ;    
  

  my($i <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	5000	5117	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub new {
  # takes no parameters
  my $class = ref($_[0]) || $_[0];
  #Carp::croa <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4911	5051	
==>ression::Value::Identifier->new($block, $self->require_ident);
      my $name = $ident->value;

      #
      # Allow there to be Properties: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7905	8045	
==>ression::Value::Identifier->new($block, $self->require_ident);
      my $name = $ident->value;

      #
      # Allow there to be Properties: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	264	463	
==>48089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statement::Increment;

use Carp;

use base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $i <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3336	3450	
==>on
by callers.  For APIs that cross into the operating system and/or
external libraries, you usually cannot go over <==
2	/Users/nnunley/parrot/config/auto/pack.pm	31	126	
==>Perl Foundation.
# $Id: /parrot/config/auto/pack.pm 19593 2006-05-30T02:28:15.110975Z coke  $

= <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	13670	13851	
==>ft;
    
    print {$self->{'output_fh'}} 
        Parrot::Docs::HTMLPage->footer('', $self->{RESOURCES_URL});
        
    return 1;
}

=item C<html_for_file($file)>

Returns the HT <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352874	353017	
==>"
                            ],
                  "BODY" => "#line 195 \"src/ops/io.ops\"\n  PIO_printf(interpreter, \"%f\", (double){{\@1}});\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218760	218866	
==>ODY" => "#line 469 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get_strin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219739	219845	
==>ODY" => "#line 469 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get_strin <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1380	1477	
==>ms)=('LEX','RULES','STATES');

sub new {
    my($class)=shift;
	my($errst,$nberr,$token,$value <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1334	1427	
==>ms)=('LEX','RULES','STATES');

sub new {
    my($class)=shift;
	my($errst,$nberr,$token,$value <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3379	3475	
==>older libraries L<Pod::PXML>, L<Pod::XML>, L<Pod::SAX>


=head1 COPYRIGHT AND DISCLAIMERS

Copyri <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3031	3127	
==>older libraries L<Pod::PXML>, L<Pod::XML>, L<Pod::SAX>


=head1 COPYRIGHT AND DISCLAIMERS

Copyri <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	1246	1438	
==>p;
        $pmcs{$file} = Parrot::Pmc2c->new($pmcs{$file}, $opt);
    }

    return bless { opt         => $opt,
                   pmcs        => \%pmcs,
                 }, $class;
}

sub _wr <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	16273	16773	
==>t, returns a list of all the possible argument
combinations.

=cut

sub expand_args
{
    my (@args) = @_;

    return "" if (!scalar(@args));

    my $arg = shift(@args);
    my @var = split(/\|/,$arg);

    if (!scalar(@args))
    {
        return @var;
    }
    else
    {
        my @list = expand_args(@args);
        my @results;

        foreach my $l (@list)
        {
            foreach my $v (@var)
            {
                push(@results,"$v,$l");
            }
        }

        ret <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	575	756	
==>n use Pod::Simple::Debug (\\\$var, STARTNUMVAL)\nAborting");
    }
  } else {
    require Carp;
    Carp::croak("Usage:\n use Pod::Simple::Debug (NUMVAL)\nor"
                    . " <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	800	913	
==>ipt of the svn:ignore properties
# of the directories in the Parrot subversion repository. (Needed for
# distribut <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3655	3768	
==>ipt of the svn:ignore properties
# of the directories in the Parrot subversion repository. (Needed for
# distribut <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	7644	7832	
==>ype =~ /^[Rr]$/) {
			$const = 1;
			$init  = 1;
		    } elsif ($type =~ /^[Ss]$/) {
			$small  = 1;
			$uninit = 1;
		    }
		}
		if ($type =~ /^[ABCDFGQRSTU]$/i) {
		    unless ($undef || <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377444	377613	
==>,
                              "i"
                            ],
                  "BODY" => "#line 432 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(interpr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378328	378497	
==>,
                              "i"
                            ],
                  "BODY" => "#line 432 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(interpr <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	13438	13570	
==>to', [ $next ]),
               $advance => $self->dbprint("scan advancing\n"),
                           aop('advance', [ 1, $lastb <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	13506	13612	
==>return sprintf <<'END',
{\info{\doccomm
%s
 using %s v%s
 under Perl v%s at %s GMT}
{\author [see doc]}{\co <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	7371	7538	
==>=> 1
    );
    genfile(
        'languages/tcl/config/examples.in' => 'languages/tcl/examples/Makefile',
        commentType                        => '#',
        rep <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37469	37568	
==>:
type_trans = pop stypes
dec pop_count
INS_TRANS_CP_LOOP_CHK_$name:
if pop_count != 0 goto INS_TRAN <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8872	8964	
==>xup_entry(interpreter,\n\t    enum_fixup_label, label);\n    if (!fe)\n\tinternal_exception(1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9988	10080	
==>xup_entry(interpreter,\n\t    enum_fixup_label, label);\n    if (!fe)\n\tinternal_exception(1 <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	28215	28323	
==>_line = $stack[0][1]{'start_line'};

  # A recursive algorithm implemented iteratively!  Whee!

  while($tree <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	31716	31824	
==>_line = $stack[0][1]{'start_line'};

  # A recursive algorithm implemented iteratively!  Whee!

  while($tree <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832107	832195	
==>(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}), STACK_ENTRY_FLOAT, STAC <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832835	832923	
==>(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}), STACK_ENTRY_FLOAT, STAC <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	1473	1619	
==>$major =~ tr/0-9//c) {
        undef $major; # Don't use it
    }
    if (defined $minor and $minor =~ tr/0-9//c) {
        undef $minor; # Don't u <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380913	381163	
==>" => [
                              "p",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 455 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{ <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	5044	5147	
==>$cfg{bench_path};
die "No benchmarks found" if ! keys %bench;

# List Names Of Benchmarks With Pretty Ou <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9630	9745	
==>int STDERR "**At eof: aborting.\n";
				return(undef);
			};

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "** <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9197	9307	
==>int STDERR "**At eof: aborting.\n";
				return(undef);
			};

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "** <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1035	1193	
==>ARGV[0] =~ /mini/;
$install_parrot = 1 if @ARGV && $ARGV[0] =~ /install/;

print << "EOF";
/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * Th <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3874	4016	
==>int a
	a=a*2
end sub
t=2
call twice t
print t

' Passing arrays, twice, expect 12
function aftwo(y())
	print y(4)
end function
function arrfunc <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6177	6285	
==>rt cities
TRUE=1
FALSE=0
DIM A$(4)
A$(1) = "New York"
A$(2) = "Boston"
A$(3) = "Chicago"
A$(4) = "Seattle"
Ma <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15830	15938	
==>rt cities
TRUE=1
FALSE=0
DIM A$(4)
A$(1) = "New York"
A$(2) = "Boston"
A$(3) = "Chicago"
A$(4) = "Seattle"
Ma <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	8366	8666	
==>14,
        skipped     => $15,
        unexpect    => $16,
      }],
      percentage    => sprintf("%.02f", $12 / ($11||1) * 100),
	  harness_args  => pack("H*", $17),
      id            => $18,
      filename      => $name,
      link          => BASEHTTPDIR . $name, 
    };
  return ();
}

sub r <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1215	1350	
==>pping algorithm:
      s/(
         [^\n]{55}         # Snare some characters from a line
         [^\n\ ]{0,50}     #  and finish any c <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1159	1294	
==>pping algorithm:
      s/(
         [^\n]{55}         # Snare some characters from a line
         [^\n\ ]{0,50}     #  and finish any c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852821	853121	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853602	853902	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	11372	11508	
==>is redirected to
F<test.err> during the execution, and deleted after the command's run.

=cut

sub capture_output
{
    my $command = joi <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	1791	1910	
==>print $C $cout;
    close $C;
    my $hout = $generator->gen_h($h_name);
    print $hout if $opt->{debug};
    print "Wr <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	18813	18905	
==>= pmc_new(interpreter, enum_class_Hash);
        VTABLE_set_pmc_keyed_int(interpreter, igloba <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	25372	25556	
==>$meth = $c_test_map{$func};
            my $pass = $builder->$meth(slurp_file($out_f), $expected, $desc);
            $builder->diag("'$cmd' failed with exit code $exit_code") if $exit_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1029	1120	
==>ua/lib/luabasic.pbc"
#  load_bytecode "languages/lua/lib/luacoroutine.pbc"
#  load_bytecod <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691162	691283	
==>],
                  "BODY" => "#line 626 \"src/ops/pmc.ops\"\n   {{\@1}} = Parrot_thaw(interpreter, {{\@2}});\n   {{+=3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691919	692040	
==>],
                  "BODY" => "#line 626 \"src/ops/pmc.ops\"\n   {{\@1}} = Parrot_thaw(interpreter, {{\@2}});\n   {{+=3}} <==
2	/Users/nnunley/parrot/config/gen/platform.pm	4500	4760	
==>platform/generic/$_";
        if (-e "config/gen/platform/$platform/$_") {
            $impl_file = "config/gen/platform/$platform/$_";
        }

        if (-e $impl_file) {
            local $/ = undef;
            print("\t$impl_file\n") if defined $verbose <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355652	355952	
==>,
                  "TYPE" => "function",
                  "CODE" => 415,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 217 \"src/ops/io.ops\"\n  PMC * const p = {{\@1}};\n  STRING * const s = (VTABLE_get_string(inte <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	2898	2999	
==>count is given, then that
# many tokens (at most, given the possibility of running of the end) are
# r <==
2	/Users/nnunley/parrot/config/inter/progs.pm	36	153	
==>Foundation.
# $Id: /parrot/config/inter/progs.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/inter/ <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	2554	2702	
==>piled_files, [ $src, $obj ];
    }

    print "** $0: writing parrot build scripts\n";

    ## GCC ##

    print "- miniparrot/build_gcc.sh\n";
    o <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11980	12090	
==>d, $name, $fail) = @_;
    my $fail_label = $self->output_label_use($fail);
    my @ops;
    if (defined $name) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	12646	12756	
==>d, $name, $fail) = @_;
    my $fail_label = $self->output_label_use($fail);
    my @ops;
    if (defined $name) <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	57812	58036	
==>d the true value in the fourth argument means
I<"...discarding anything else that appears (i.e. the commas)">.

If you wanted the commas preserved as separate fields (i.e. like split
does if your split pattern has capturing p <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	11406	11561	
==>_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = (char)GET_NCI_I($reg_num);";
        return "t_$temp_num";
    };
    /2/ && d <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4454	4591	
==>le($compiler);

  unless ($dest_type->name eq $calc_type->name) {
    my $temp = $compiler->temp_reg($calc_type);
    $compiler->emit("  $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656463	656723	
==>able->defined_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657387	657647	
==>able->defined_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	22285	22500	
==>f))
		{
			my $field;
			my @bits;
			foreach my $i ( 0..$#func )
			{
				my $pref;
				$func = $func[$i];
				$class = $class[$i];
				$lastpos = pos $$textref;
				if (ref($func) eq 'CODE')
					{ ($field,undef,$p <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	1256	1396	
==>ame} = 'int';
    return "<$name>";
}

# This implementation should be overridden by the host language,
# because it's not a very good one.
s <==
2	/Users/nnunley/parrot/lib/File/Which.pm	2085	2204	
==>y $base (map { File::Spec->catfile($_, $exec) } @path) {
       for my $ext (@path_ext) {
            my $file = $base.$ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	93	188	
==>hard  $

package Regex::CodeGen::Re;
use Regex::RegexOps ();
use base 'Regex::CodeGen';
use stri <==
2	/Users/nnunley/parrot/tools/dev/pbc_header.pl	17	138	
==>rict;

=head1 NAME

pbc_header.pl - PBC header info and manipulation

=head1 SYNOPSIS

  perl pbc_header.pl files ...
  pe <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3739	3925	
==>.14)

' Simple subs, Made it here
sub mysub()
	print "Made it here"
end sub
call mysub()

' Arguments.  Expect 2 and 4
sub twice(a)
	print a
	a=a*2
end sub
t=2
call twice t
print t

' Pas <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10548	10711	
==>oto PRE_CALL_${CURIC}_CONT

# Can do a lazy move.
PRE_CALL_${CURIC}_LAZY_MOVE:
${STEMP0} = pop lazy_moves

# Put it in the parameter register list.
PRE_CALL_${CURIC <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1598	1709	
==>riable definition involves undefined type name!")
    unless defined $type_name;

  #
  # Lookup the identifier: <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	587	695	
==>, $code, $output, $desc) = @_;
  
    $count = $self->{builder}->current_test + 1;

    $desc = $language unl <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	579	685	
==>, $code, $output, $desc) = @_;

    $count = $self->{builder}->current_test + 1;

    $desc = $language unl <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeSmart.pm	43	139	
==>.8.0 is GIMPY!
## This module is to be use()'d only by Pod::Simple::Transcode

package Pod::Simpl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600208	600322	
==>@2}});\n    real_exception(interpreter, next, NO_CLASS, \n         \"Class '%Ss' doesn't exist\", name);\n  }\n  el <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601284	601398	
==>@2}});\n    real_exception(interpreter, next, NO_CLASS, \n         \"Class '%Ss' doesn't exist\", name);\n  }\n  el <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	17847	17990	
==>at "} .
			     substr($$textref, pos($$textref), 20) .
			     q{..."},
		         pos $$textref;
		pos $$textref = $startpos;
		return;
	}

	m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225457	225556	
==>\"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226398	226497	
==>\"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+= <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	3895	4034	
==>System.Drawing.Design
            System.Drawing
            System.EnterpriseServices
            System.Management
            System. <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7953	8053	
==>(int)"
i=0
if i then print "Should not happen (flo)"
i=55
if i then print "This is true" else print " <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14940	15040	
==>(int)"
i=0
if i then print "Should not happen (flo)"
i=55
if i then print "This is true" else print " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828313	828621	
==>YPE" => "function",
                  "CODE" => 937,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 159 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CO <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	4433	4553	
==>pshot of what's in use.

=item C<dynpmc>

The class is a dynamic class. These have a special C<class_init>
routine suitab <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	17598	17719	
==>0,			# NO 2ND RDEL
			$modpos,	$endpos-$modpos,	# MODIFIERS
			$endpos, 	$textlen-$endpos,	# REMAINDER
		       );
	}

	un <==
2	/Users/nnunley/parrot/lib/Test/More.pm	766	1066	
==>a_ok
             diag
            );

my $Test = Test::Builder->new;
my $Show_Diag = 1;


# 5.004's Exporter doesn't have export_to_level.
sub _export_to_level
{
      my $pkg = shift;
      my $level = shift;
      (undef) = shift;                  # redundant arg
      my $callpkg = caller($level) <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	8091	8282	
==>nfo->op_i + (i)]
#endif

extern PARROT_API char **Parrot_exec_rel_addr;
extern PARROT_API int Parrot_exec_rel_count;

#define ROFFS_INT(x) REG_OFFS_INT(jit_info->cur_op[x])
#define ROFFS_NUM(x <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	26133	26288	
==>ry,
            _temp_mmd_init, N_MMD_INIT);
EOC
    }

    $cout .= <<"EOC";
    } /* pass */
} /* Parrot_${classname}_class_init */
EOC
    if ($self->{fl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83824	84106	
==>mpreg_hash, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84730	85012	
==>mpreg_hash, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	512072	512465	
==>AGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 590,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => " <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	591	703	
==>ser generator, like bison or yacc?";
@args        = qw( yacc ask maintainer );

sub runstep
{
    my ($self, $con <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	6303	6430	
==>my $d (@_) {
    next unless defined $d and length $d;
    Carp::croak "\"$d\" isn't a valid directive name"
     unless $d =~ m <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	7097	7224	
==>my $d (@_) {
    next unless defined $d and length $d;
    Carp::croak "\"$d\" isn't a valid directive name"
     unless $d =~ m <==
2	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	2223	2407	
==>Dump( $frozen );

# Parse the freeze-state
my $symtab = $frozen_parser->frozen( $frozen );

# Dump the parsed data as YAML 
print Dump( $symtab );


=head1 SEE ALSO

=head1 AUTHOR

=cut <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9720	9817	
==>s module was built to facilitate the Pugs test suite. It has the
distinction of being the very fir <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	16821	17016	
==>');
    my $back = $self->genlabel('dalt_back');
    my $next = $self->genlabel('dalt_next');

    my $counter = $self->new_local("counter");
    my ($N, @N_ops) = $sizer->($self, $op);
    my ($R <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	27331	27463	
==>my ($self, $op, $back, @ops) = @_;
    return ($back, @ops) unless $self->{DEBUG};

    my $method = "describe_" . $op->{name};
    m <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	14696	14878	
==>{$args -o "$pbc_f"};

                    # In this case, we need to execute more than one
                    # command. Instead of a single scalar, build an
                    # ar <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	38084	38214	
==>mit code to go to translate next instruction.
	$pir .= "    goto TRANS_LOOP\n\n";

	# Clean up meta-variables hash.
	foreach (@loca <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43069	43210	
==>,
	{#State 191
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	690699	691000	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "thaw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691455	691756	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "thaw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function", <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	274	397	
==>lib.import()");
        }
        if (-e $path && !-d $path) {
            $*ERR.say("Parameter to lib.import() must be dire <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14913	15027	
==>{
  my $self = shift;   # leaving ($element_name, $attr_hash_r)
  DEBUG > 2 and print "++ $_[0] (", map("<$_> ", %{ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27202	27377	
==>"SUB");
}

sub parse_function {
	feedme;
	my $f;
	$funcname=$syms[CURR];
	my $englishname=english_func($funcname);
	$functions{$funcname}=$englishname;

	$f="_USERFUNC_$funcnam <==
2	/Users/nnunley/parrot/config/auto/isreg.pm	747	876	
==>print($test ? " (Yep) " : " (no) ") if $conf->options->get('verbose');
    $self->set_result($test ? 'yes' : 'no');

    return $s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459326	459805	
==>ase_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 527,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 282 \"src/ops/math <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	3394	3496	
==>re given, they are ANDed.
They can also be negated with a "no", for example --noconst.
[1] Not all plat <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2905	3000	
==>'Thispara'} .= "\n");
  $out =~ tr{\xA0}{ } if Pod::Simple::ASCII;
  print {$self->{'output_fh'} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2439	2534	
==>'Thispara'} .= "\n");
  $out =~ tr{\xA0}{ } if Pod::Simple::ASCII;
  print {$self->{'output_fh'} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844494	845014	
==>re",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 958,
                  "ARGS" => [
                              "i",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 45 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{ <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	9229	9351	
==>efine ECONST(i) (int *)(jit_info->cur_op[i] * sizeof(struct PackFile_Constant) + 8)\n";
}


my %core_ops = readjit("src/jit <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3163	3335	
==>\w+) )
    ]sx;

    while ($source =~ m[$regex]go) {
        my ($name, $expl, $body, $out) = ($1, $2, $3, choose($4, unescape($5), $6));

        # make the test print the <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934461	934836	
==>RS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1050,
                  "ARGS" => [
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 435 \"src/ops/string <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	25843	26027	
==>l {
    my ($self, $op, $R, $lastback) = @_;

    my $back = $self->genlabel('nongreedy_opt_back');
    my $next = $self->genlabel('after_greedy_opt');
    my ($R_back, @R_ops) = $self- <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	1141	1322	
==>side -- you've as much access as bytecode does, but no more,
so we can provide backwards compatibility for as long as we possibly
can.

=head2 Functions

=over 4

=cut

*/

/* Some i <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17858	18061	
==>,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 97,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5064	5198	
==>ents_relative_to_source
{
    my $self = shift;
    my $source = shift;
    my @contents = ();
    
    foreach my $content (@{$self->{ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3056	3175	
==>ents_relative_to_source
{
	my $self = shift;
	my $source = shift;
	my @contents = ();
	
	foreach my $content (@{$self->{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	13292	13454	
==>lse {
        DEBUG and print
         "  Didn't see an immediately subsequent start-Para.  Reseeking H1\n";
        $state = 0;
      }
    }
    
    elsif($stat <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	434	537	
==>lass = shift;
  my ($block, $ident) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSA <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	434	537	
==>lass = shift;
  my ($block, $ident) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSA <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9471	9625	
==>tatus == 3	#The next token is not valid: discard it
		and	do {
				$$token eq ''	# End of input: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			an <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9043	9192	
==>tatus == 3	#The next token is not valid: discard it
		and	do {
				$$token eq ''	# End of input: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			an <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59611	59952	
==>arningson",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 77,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	15449	15619	
==>p->body( $nolines ? $body : qq{#line $line "$file_escaped"\n$body} );

        # Constants here are defined in include/parrot/op.h
        or_flag(\$jumps, "PARROT_JUMP_RE <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5434	5570	
==>t {$FH} "$_->{symbol}";
                if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                    print {$FH} " :slu <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6466	6602	
==>t {$FH} "$_->{symbol}";
                if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                    print {$FH} " :slu <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	4467	4987	
==>rd $_ );
                        }
                        elsif ( ord $_ >= 128 ) {
                            $str .= sprintf( '\u%04x', ord $_ );
                        }
                        elsif ( $_ eq '"' ) {
                            $str .= '\"';
                        }
                        else {
                            $str .= $_;
                        }
                    }
                    $value = "\"$str\"";
                }
                elsif ( $type eq 'boole <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	7836	7984	
==>::RD_NO_TRACE?'':'
	Parse::RecDescent::_trace(q{Trying rule: [' . $self->{"name"} . ']},
				  Parse::RecDescent::_tracefirst($_[1]),
				  q{' . $se <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5256	5396	
==>set $result, 0.0
	eq $a1, $ot1, EQ_${eqnum}_a
	inc $result
EQ_${eqnum}_a:
	eq $a2, $ot2, EQ_$eqnum
	inc $result
EQ_$eqnum: ne $result, 2.0, E <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5632	5729	
==>set $result, 0.0
	eq $a1, $ot1, EQ_${eqnum}_a
	inc $result
EQ_${eqnum}_a:
	eq $a2, $ot2, EQ_$eqnum <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	3999	4182	
==>' => 'define',
             'i_dbm' => undef,
             'i_dirent' => 'define',
             'i_dld' => undef,
             'i_dlfcn' => 'define',
             'i_fcntl' => 'define' <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	8562	8766	
==>'FUNCTION',
        'if'       => 'IF',
        'in'       => 'IN',
        'local'    => 'LOCAL',
        'nil'      => 'NIL',
        'not'      => 'NOT',
        'or'       => 'OR',
        'repe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630600	630711	
==>\n            \"Class '%Ss' not found\", readable_name(interpreter, class));\n    {{\@1}} = pmc_new(interpreter, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631590	631701	
==>\n            \"Class '%Ss' not found\", readable_name(interpreter, class));\n    {{\@1}} = pmc_new(interpreter, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	37707	37882	
==>pe paragraph as such because stack has no =for's\n";
            
          #} elsif(grep $_->[1]{'~resolve'}, @fors) {
          #} elsif(not grep !$_->[1]{'~resolve'}, @fors) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	229775	230073	
==>=> ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 268,
                  "ARGS" => [ <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	10473	10738	
==>eturn $pre, $classname, \%flags;
}

=head2 my ($name, $attributes) = parse_pmc($code);

Parse PMC code and return the class name and a hash ref of attributes.

=cut

sub parse_pmc {
    my $code = shift;

    my $signature_re = qr{
    ^
    (?:                 #bla <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	12236	12489	
==>ub extract_codeblock (;$$$$$)
{
	my $textref = defined $_[0] ? \$_[0] : \$_;
	my $wantarray = wantarray;
	my $ldel_inner = defined $_[1] ? $_[1] : '{';
	my $pre        = defined $_[2] ? $_[2] : '\s*';
	my $ldel_outer = defined $_[3] ? $_[3] : $ldel_inner <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	551	756	
==>The core type is C<PARROT_PREDEREF_CORE>.

=cut

sub core_type
{
    return 'PARROT_PREDEREF_CORE';
}

=item C<prefix()>

The prefix is C<'Parrot_pred_'>.

This is used in C<Parrot::Op>'s C<func_name()>.

= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	624827	624965	
==>n    void **pred_pc;\n    INTVAL i, n_args, *sig_bits;\n    PMC *sig;\n\n    ctx = CONTEXT(interpreter->ctx);\n    mic = (Parrot_MIC *) cur <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732168	732398	
==>> "#line 129 \"src/ops/set.ops\"\n  {{\@1}} = (INTVAL)({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732914	733144	
==>> "#line 129 \"src/ops/set.ops\"\n  {{\@1}} = (INTVAL)({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	8655	8815	
==>op[i])
#define CONST(i) interpreter->code->const_table->constants[jit_info->cur_op[i]]
END_C
}
else {
    print JITCPU <<'END_C';
#define CONST(i) (int *)(jit_in <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	48817	48939	
==>1];
      
    } elsif(defined $3) {
      DEBUG > 3 and print "Found apparent complex end-text code \"$3\"\n";
      # Thi <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16566	16735	
==>rser, 'pmc' );
                push @opcodes, new LocalDir( $parser,
                    'result' => $result,
                );
                push @opcodes, new Fi <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10713	10877	
==>rser, 'pmc' );
                    push @opcodes,
                        new LocalDir( $parser, 'result' => $result, );
                    push @opcodes, new Fi <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	5998	6124	
==>} = ();
$Type = 'bsd' if $BSD ||
		 (defined $Type && $Type eq '1'); # So they used --t.
$Type = 'long' if $Long; 
die "$ME: -- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44967	45193	
==>arrot_pop_mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45609	45835	
==>arrot_pop_mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	33575	33763	
==>nt <<EOC;
	\t $cmt
	$a = slice $ag\[ $vv .. $ww ], 1
EOC
    push @stack, [-1, $a, 'P'];
}

sub SLICE_plus_0 {
    return Slice(@_, 0);
}
sub SLICE_plus_1 {
    return Slice(@_, 1);
}
sub S <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	2450	2594	
==>Options(
    "no-lines"      => \$nolines_flag,
    "help"          => \$help_flag,
    "dynamic|d"     => \$dynamic_flag,
    "core"          => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781271	781621	
==>"i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 882,
                  "ARGS" => [
                              "p",
                              "kic",
                              "s"
                            ],
                  "BODY" => "#line 387 \"src/ops/set.ops\"\n    {{\@1}}->vt <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17145	17315	
==>rser, 'pmc' );
                push @opcodes, new LocalDir( $parser,
                    'result' => $result,
                );
                push @opcodes, new Key <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18194	18316	
==>rser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new Key <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3121	3235	
==>(%ld)",
    'ki' => "IREG(%ld)",

    'ic' => "cur_opcode[%ld]",
    'nc' => "CONST(%ld)->u.number",
    'pc' => "C <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2035	2145	
==>(%ld)",
  'ki'  => "IREG(%ld)",

  'ic'  => "cur_opcode[%ld]",
  'nc'  => "CONST(%ld)->u.number",
  'pc'  => "C <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	8225	8339	
==>prev->[0])	# This works, but damned if I know why. 
			#and $next->[0] ne ")"  
			){
#			print "Argthing $prev->[0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090904	1091217	
==>ter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1091964	1092277	
==>ter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	2163	2328	
==>tcalling trigger $trigger for $key\n" if $verbose;
            my $cb = $self->gettrigger($key, $trigger);

            &$cb($key, $val);
        }
    }

    print " <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37508	37604	
==>D_TRACE;').'
		$Parse::RecDescent::lastexpected = ' . ($rule->hasleftmost($self) ? 'q{}'
				: 'q <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39911	40007	
==>D_TRACE;').'
		$Parse::RecDescent::lastexpected = ' . ($rule->hasleftmost($self) ? 'q{}'
				: 'q <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	43	234	
==>e Perl Foundation.
# $Id: /parrot/tools/dev/nm.pl 19607 2006-05-30T15:23:20.183054Z coke  $

=head1 NAME

tools/dev/nm.pl - Display symbol table information

=head1 SYNOPSIS

    % perl tools/ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6733	6842	
==>URIC}:
PIR
	return $pir;
}

# Pre and post load operation hooks.
sub pre_load($) {
	my $self = shift;
	my $nee <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4671	4780	
==>URIC}:
PIR
	return $pir;
}

# Pre and post load operation hooks.
sub pre_load($) {
	my $self = shift;
	my $nee <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	5685	5921	
==>anch eq "goto") {
			push @{$code{$seg}->{code}}, qq{\tgoto $labels{$jumps}\t# $branch $jumps\n};
		} else {
			die "Illegal branch type, only GOSUB/GOTO allowed";
		}
		push @{$code{$seg}->{code}}, "ON_${ons}_$i:\n";
		$i++;
	}
	if ($br <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	14887	15007	
==>iece' => 48
		}
	},
	{#State 31
		DEFAULT => -40,
		GOTOS => {
			'classpieces' => 51
		}
	},
	{#State 32
		DEFAULT => -4 <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	6456	6609	
==>se
    # the indenting level.  Neither does PARROT_IN_CORE.

    my @stack;
    my $line = 0;
    foreach (@$source) {
        $line++;
        next unles <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660085	660185	
==>pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->exists_keyed_int(interpreter, {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661007	661107	
==>pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->exists_keyed_int(interpreter, {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	533667	533876	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "log10",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	53199	53373	
==>is omitted (or
C<undef>) the list:

        [
                sub { extract_variable($_[0], '') },
                sub { extract_quotelike($_[0],'') },
                sub { e <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	2889	3009	
==>elf = shift;
    my $time = shift;
    
    return $self->stat->mtime > $time;
}

=item C<svn_id()>

Returns the svn C<$I <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2717	2839	
==>ent||0) );
   # Yes, 'STRING' x NEGATIVE gives '', same as 'STRING' x 0

  $self->{'Thispara'} =~ tr{\xAD}{}d if Pod::Simpl <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2251	2373	
==>ent||0) );
   # Yes, 'STRING' x NEGATIVE gives '', same as 'STRING' x 0

  $self->{'Thispara'} =~ tr{\xAD}{}d if Pod::Simpl <==
2	/Users/nnunley/parrot/lib/File/Which.pm	4591	4686	
==>::Which> finds such an
environment variable, it parses the list and uses it as the different ext <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	2812	3015	
==>turn 7  if ($op eq "not");
	return 10 if ($op eq "=");
	return 10 if ($op eq ">=");
	return 10 if ($op eq "<=");
	return 10 if ($op eq "<>");
	return 10 if ($op eq ">");
	return 10 if ($op eq "<");
	retur <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	25455	25583	
==>${ret_string}$func($args)  $cmt
EOC
	}
	else {
	    print <<EOC;
	.local NCI meth\:\:$attr
	meth\:\:$attr = $func # avoid savetop <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656442	656554	
==>}}) ? 0 : {{\@2}}->vtable->defined_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657366	657478	
==>}}) ? 0 : {{\@2}}->vtable->defined_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2860	2985	
==>t;
        }
    }

    $parser->Error("Untermined string.\n");
    $parser->YYData->{lineno}++;
    return ( $type, $st <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4375	4500	
==>t;
        }
    }

    $parser->Error("Untermined string.\n");
    $parser->YYData->{lineno}++;
    return ( $type, $st <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1578	1668	
==>Parrot::Configure::Data> object intended to contain
initial and discovered configuration da <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804261	804352	
==>ops\"\n    {{\@1}}->vtable->set_pmc_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805162	805253	
==>ops\"\n    {{\@1}}->vtable->set_pmc_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+= <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10555	10681	
==>TIONS}{error}, undef ]);

    }

    #never reached
	croak("Error in driver logic. Please, report it as a BUG");

}#_Par <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10083	10202	
==>TIONS}{error}, undef ]);

    }

    #never reached
	croak("Error in driver logic. Please, report it as a BUG");

}#_Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365275	365379	
==>\@1}}) {\n    PIO_putps(interpreter, {{\@1}}, {{\@2}});\n  }\n  else {\n    /* Handle error here */\n  }\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366115	366219	
==>\@1}}) {\n    PIO_putps(interpreter, {{\@1}}, {{\@2}});\n  }\n  else {\n    /* Handle error here */\n  }\ <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	7443	7624	
==>+)		# 14	todo
                -(\d+)		# 15	skipped
                -(\d+)		# 16	unexpected
               --([a-f0-9]+)	# 17    harness_args
               --([a-f0-9]+)	# 18	id
   . <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271455	271841	
==>e",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 316,
                  "ARGS" => [
                              "i",
                              "ic" <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27486	27591	
==>,'div',[$return,$temp,$return]);
    $self->_restore($temp);
  } else {
    $return = $self->_generate($no <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	5724	5842	
==>OC;
	$params
EOC
    if ($self && $self ne 'self') {
	print <<EOC;
	.local pmc $self
	$self = self
EOC
    }
    if ($f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50829	50977	
==>"
                            ],
                  "BODY" => "#line 800 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PA <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1466	1566	
==>r a Pod formatter/processor.

=head1 METHOD CALLING

When Pod::Simple sees a "=head1 Hi there", for e <==
2	/Users/nnunley/parrot/examples/benchmarks/primes2.pl	73	226	
==>&isprime1($i)) {
	$i7 = $i;
	$i6++;
    }
    $i++;
    if ($i==$max){
	last;
    }
}
printf("N primes calculated to %d is %d\nlast is: %d\n",$max,$i6,$i7 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22118	22235	
==>hee, it fits the pattern
      DEBUG and print "Seems to match =head1 NAME pattern.\n";
      $title = '';
      forea <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	773	1016	
==>unt = $self->{builder}->current_test + 1;

        my $language = 'HQ9plus';
        # flatten filenames (don't use directories)
        my $lang_fn        = Parrot::Test::per_test( '.HQ9plus', $count );
        my $out_fn         = Parrot::Tes <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	261	362	
==>er set tables.

=cut


my ($svnid) = '$Id: /parrot/tools/dev/gen_charset_tables.pl 19607 2006-05-30T15 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565715	565805	
==>c/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->can(interpreter, {{\@2}}, {{\@3}});\n  {{+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566608	566698	
==>c/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->can(interpreter, {{\@2}}, {{\@3}});\n  {{+ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	18872	19072	
==>tempos};

		$code .= $item->code($namespace,$rule,$parser->{_check});

		$code .= postitempos() if $parser->{_check}{itempos};

	}

	if ($parser->{_AUTOACTION} && defined($item) && !$item->isa("Parse:: <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	298	396	
==>('Pod::Simple::Methody');
BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG)
          ? \&Pod::Simple:: <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	180	278	
==>('Pod::Simple::Methody');
BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG)
          ? \&Pod::Simple:: <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	2780	2876	
==>ter configuration and installing.', 'MANIFEST.generated'),
            $self->new_item('Specifies <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10674	10786	
==>d if 'A' eq chr(65);
        $section = $self->unicode_escape_url($section);
        # Turn char 1234 into "(1234 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4055	4160	
==>d if 'A' eq chr(65);
    $section = $self->unicode_escape_url($section);
     # Turn char 1234 into "(1234 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10509	10656	
==>($first), ord($last) ];
    }

    return _ranges_to_incexc(\@ranges);
}

sub _ranges_to_incexc {
    my @ranges = @{ shift() };

    # Sort those p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021185	1021705	
==>AME" => "decodetime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1141,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 202 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022026	1022487	
==>AME" => "decodetime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1142,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 202 \"src/ops/sys.ops\"\n <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5886	5983	
==>Brent
Royal-Gordon C<brent@brentdax.com>.

=head1 AUTHOR

Joshua Hoblitt C<jhoblitt@cpan.org>

=he <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6735	6832	
==>Brent Royal-Gordon C<brent@brentdax.com>.

=head1 AUTHOR

Joshua Hoblitt C<jhoblitt@cpan.org>

=he <==
2	/Users/nnunley/parrot/config/init/hints/freebsd.pm	1024	1134	
==>_alias  => 'libparrot$(SHARE_EXT)',
        libparrot_soname        => '-Wl,-soname=libparrot$(SHARE_EXT).$(SOV <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	1862	1972	
==>_alias  => 'libparrot$(SHARE_EXT)',
        libparrot_soname        => '-Wl,-soname=libparrot$(SHARE_EXT).$(SOV <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	1073	1189	
==>bf' => 'BF code',
	'bnf' => 'Grammar file',
	'c' => 'C code',
	'cola' => 'Cola code',
	'cs' => 'C# code',
	'declarati <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5034	5176	
==>$pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  my $block = $self->block;
  my $dest  = $s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3097	3239	
==>$pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  my $block = $self->block;
  my $dest  = $s <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	5659	5873	
==>.  This is it.


=head1 SEE ALSO

=over 4

=item L<Test::More>

More testing functions!  Once you outgrow Test::Simple, look at
Test::More.  Test::Simple is 100% forward compatible with Test::More
(i.e. you can just <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4408	4526	
==>ped PMCs individually
    my @ungrouped_pmcs = grep { ! exists $pmc_group->{$_} } @pmcs;
    partial_link($_, $pmc_libs <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4512	4630	
==>ped PMCs individually
    my @ungrouped_pmcs = grep { ! exists $pmc_group->{$_} } @pmcs;
    partial_link($_, $pmc_libs <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	972040	972397	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_cclass",
                  "FLAGS <==
2	/Users/nnunley/parrot/lib/File/Which.pm	1803	2042	
==>top this loop as if it finds more aliases matching,
                # it'll just be the same result anyway
                last;
            }
        }
    }

    my @path = File::Spec->path();
    unshift @path, File::Spec->curdir if $Is_ <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	294	396	
==>ler.'::ok'} = \&ok;

    $Test->exported_to($caller);
    $Test->plan(@_);
}


=head1 NAME

Test::Simpl <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3871	4093	
==>loop => $name } });
  }
  else {
    $handler->start_element({ Name => $kind });
  }
  $handler->end_element({ Name => $kind });

  if (defined $cond) {
    $handler->end_element({ Name => 'block' });
    $handler->end_elem <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	270	377	
==>rgely a copy of Parrot::Test::Python. Abstraction needed.

=cut

sub new {
    return bless {};
}

sub outpu <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	308	415	
==>rgely a copy of Parrot::Test::Python. Abstraction needed.

=cut

sub new {
    return bless {};
}

sub outpu <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1745	1865	
==>specified path.

=cut

sub new
{
    my $self = shift;
    my $path = shift;
    
    return unless defined $path and ! - <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	1498	1675	
==>],
 apply => 
 [['# Apply function'],
  ['apply_ENTRY', 'set', 'P0', 'P5'],
  ['',            'set', 'P16', 'P6'],
  ['',            'typeof', 'I16', 'P16'],
  ['',            's <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	911	1047	
==>$input .= $_;
         }
         chomp($input);
         die "EOF during INPUT section" if ! defined($output);

         # Gather output <==
2	/Users/nnunley/parrot/languages/regex/test.pl	2797	2913	
==>$input .= $_;
    }
    chomp($input);
    die "EOF during INPUT section" if ! defined($output);

    # Gather output <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7271	7433	
==>r]+([^\n\r]+)/smo;
	
	$text = $1;
	# Tidy it up a bit.
	$text =~ s/^\s+//o;
	$text =~ s/\s+$//o;
	$text =~ s/\s*-$//o;
	
	# There was not text, just another POD co <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2344	2464	
==>-I" . $PATHQUOTE . '/Users/nnunley/parrot/src/pmc' . $PATHQUOTE . " " .
        $source;
};

sub partial_link_cmd {
    m <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	2139	2259	
==>-I" . $PATHQUOTE . '/Users/nnunley/parrot/src/pmc' . $PATHQUOTE . " " .
        $source;
};

sub partial_link_cmd {
    m <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6846	6940	
==>"1234567890"
print mid$(t$, 2, 8)
print left$(t$, 5)
print right$(t$, 5)
' instr
s1$="The longe <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18575	18669	
==>"1234567890"
print mid$(t$, 2, 8)
print left$(t$, 5)
print right$(t$, 5)
' instr
s1$="The longe <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1281	1390	
==>en->tagname

This returns the tagname for this start-token object.
For example, parsing a "=head1 ..." line wi <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	3920	4038	
==>ique prefixes,
and one leading dash ("-") can be used instead of two ("--").
__EOF__
}

if ($^O eq 'solaris'      && $n <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	31740	31890	
==>->{value});
			push @{$code{_data}->{code}},<<ADDDATA;
	push \$P2, $v
ADDDATA
			$counter++;
		}
	}

	push @{$code{_data}->{code}},<<DATADONE;
	store_g <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10300	10541	
==>>resume_flag = 2;\n    {{=0}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE|PARROT <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9184	9418	
==>>resume_flag = 2;\n    {{=0}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS| <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	71140	71316	
==>ed $::RD_AUTOSTUB)
				{
					_warn(3,"Undefined (sub)rule \"$call\"
					      used in a production.")
					and
					_hint("Will you be providing this rule
					       later, o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349315	349568	
==>er, enum_class_Undef);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350317	350570	
==>er, enum_class_Undef);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	163	266	
==>arser generator

=head1 DESCRIPTION

Determines whether C<yacc> is installed and if it's actually C<biso <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	43110	43226	
==>range content" );
        $replacer = $treelet->[$i]; # scratch
        splice(@$treelet, $i, 1,   # fake out a liter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369519	369810	
==>er, {{\@2}}, (size_t){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	370404	370695	
==>er, {{\@2}}, (size_t){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7802	7988	
==>]
                        :   ();

            $semval = $code ? &$code( $self, @sempar )
                            : @sempar ? $sempar[0] : undef;

            splice(@$stack,-$l <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7450	7630	
==>]
                        :   ();

            $semval = $code ? &$code( $self, @sempar )
                            : @sempar ? $sempar[0] : undef;

            splice(@$stack,-$l <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9166	9317	
==>lf);
                $$errstatus # if 0, then YYErrok has been called
            or  next;       # so continue parsing

#DBG>			$debug & 0x10
#DBG <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8752	8898	
==>lf);
                $$errstatus # if 0, then YYErrok has been called
            or  next;       # so continue parsing

#DBG>			$debug & 0x10
#DBG <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	2239	2455	
==>efore in $infile - can't continue";
	}

	# TODO maybe cope with escaped \"
	my $cnt = tr/"/"/;
	die "bogus CONST_STRING at line $line" unless $cnt == 2;

	my $str = extract_delimited; # $_, '"';
	$str = substr $str, 1 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	1248	1340	
==>e interpreted as being relative to the
C<$target> argument in C<write_html()>. There should b <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	289	405	
==>al "use warnings";

package Jako::Construct::Expression::Infix;

use base qw(Jako::Construct::Expression);

sub new
{ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2370	2466	
==>RNAL_ERROR("Can't determine type of formal argument (%s)!", $formal_arg_name) 
      unless defin <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2070	2166	
==>RNAL_ERROR("Can't determine type of formal argument (%s)!", $formal_arg_name) 
      unless defin <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	44777	44911	
==>e text of the second block of the operation 
(that is, the replacement of a substitution or the translation list
of a translation),

=i <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	34770	34872	
==>[irregularly :-(] {} parenthesized >:-)' string }";

then a call to C<extract_bracketed> in a list cont <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34761	34879	
==>pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "### end translation\n";

		# Now <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9305	9419	
==>tack height.
dec stack_depth
PIR
	}

	return $pir;
}

# Pre and post call hooks.
sub pre_call {
    my $self = shif <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6823	6937	
==>tack height.
dec stack_depth
PIR
	}

	return $pir;
}

# Pre and post call hooks.
sub pre_call {
    my $self = shif <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	1155	1390	
==>roups,
            $self->new_group(
                $titles{$group}, '',
                map {$self->new_item('', $dist->relative_path($_))} @files);
    }
    
    return @groups;
}

=item C<new()>

Returns a new section.

=cut

sub n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956442	956682	
==>E" => "function",
                  "CODE" => 1076,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 576 \"src/ops/string.op <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30197	30298	
==>sub parse_struct_copy_dispatch {
	goto RTJUMP;
	print CODE <<SCOPYDIS;
	
	#
	# Structure copy dispatch <==
2	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	127	227	
==>:26.641316Z coke  $

=head1 NAME

examples/benchmarks/stress1.pl - GC stress-testing

=head1 SYNOPSIS <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13793	13893	
==>eject> during parsing)"
				: "an unconditional <reject>";
		my $caveat = $items[0]->describe =~ /<ru <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	21579	21720	
==>urn { min => 0, max => $_[4] }; }
	],
	[#Rule 31
		 'range', 3,
sub
#line 155 "lib/Regex/Grammar.y"
{ return { min => $_[2], max => $_[2] }; } <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10968	11078	
==>aren { 1 }
sub Regex::Ops::Tree::alternate::render {
    my $op = shift;
    my $str = '';
    foreach my $case <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	126	311	
==>o;
        my $self  = {};
        bless $self, $class;
        my ($fh) = @_;
        $self->{fh}       = $fh;
        $self->{prologue} = q{.namespace [ "Lua" ]
.HLL "Lua", "lua_ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	1639	1772	
==>, 'I16', 'P16'],
  ['',            'set', 'I1', 0],
  ['',            'set', 'I2', 0],
  ['',            'eq', 'I16', '.Undef', 'apply <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2050	2144	
==>ruct::Expression::Value::Identifier')) {
      my $arg_sym = $self->block->find_symbol($args[$i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1750	1844	
==>ruct::Expression::Value::Identifier')) {
      my $arg_sym = $self->block->find_symbol($args[$i <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	3835	4019	
==>{
  *pretty        = \&Pod::Simple::BlackBox::pretty;
  *stringify_lol = \&Pod::Simple::BlackBox::stringify_lol;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	804	946	
==>> 'is_eq',
    output_like       => 'like',
    output_isnt       => 'isnt_eq',
                        );

foreach my $func ( keys %language_t <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	537	648	
==>> 'is_eq',
    output_like => 'like',
    output_isnt => 'isnt_eq',
);

foreach my $func ( keys %language_t <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	31825	31925	
==>ub _op_display {
}

sub _op_newline {
}

sub _op_write_char {
}

sub _op_load {
}

sub _op_transcript <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49684	49822	
==>rror,$line);
				$item = new Parse::RecDescent::Directive(
					'my ($match,@res);
					 ($match,$text,undef,@res) =
						  Text::Balanced <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2456	2579	
==>f{USER};
	
}

sub YYErrok {
	my($self)=shift;

	${$$self{ERRST}}=0;
    undef;
}

sub YYNberr {
	my($self)=shift <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2358	2469	
==>f{USER};
	
}

sub YYErrok {
	my($self)=shift;

	${$$self{ERRST}}=0;
    undef;
}

sub YYNberr {
	my($self)=shift <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	41426	41630	
==>_obj);

  return $return;
}

sub _call_function_obj {
  my $self = shift;
  my $func_obj = shift;

  my $return = $self->_save_1 ('P');
  $self->_restore($return); # dont need to save this
  $self->_save_s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065046	1065160	
==>,
                  "BODY" => "#line 260 \"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065920	1066034	
==>,
                  "BODY" => "#line 260 \"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	408	522	
==>ock_types = (
  'while'    => { PREFIX => "_W", NEXT => 'CONT', REDO => 'REDO', LAST => 'LAST' },
  'if'       => { <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	429	543	
==>ock_types = (
  'while'    => { PREFIX => "_W", NEXT => 'CONT', REDO => 'REDO', LAST => 'LAST' },
  'if'       => { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088029	1088385	
==>tal" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice",
                  "FLA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090983	1091339	
==>tal" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice",
                  "FLA <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	15943	16053	
==>ective(2 + $line + count_newlines($cout),
				   $out_name);
    $cout .= $additional_bodies;
    $cout .= "\n\ <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	1933	2156	
==>=~ $blank_before ) {
                push @output, [ 1, q{} ];
            }

            if ( $line ne q{} ) {
                if ( $line =~ $block_end ) {
                    $level--;
                }
                $li <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	3952	4077	
==>f ($dest->{name} eq 'goto') {
        return aop('if', [ $op1, $test, $op2, $dest->[1] ]);
    } elsif ($dest->{name} eq 'LABE <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	271	368	
==>rot::Pmc2c::Library is a wrapper around a collection of PMCs linked in the
same dynamic library. A <==
2	/Users/nnunley/parrot/tools/dev/as2c.pl	131	314	
==>cmd, $func);

$src =  $ARGV[0];
$cmd  = "cc -c $src.c -Wall -O3 -fomit-frame-pointer -DNDEBUG -Wa,-a > $src.s";

&print_header($src);
&create_s($cmd);
&parse_s("$src.s");
&add_glue("$s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	12482	12627	
==>self->{'encoding_command_statuses'} ) {
      DEBUG > 2 and print " CRAZY ERROR: It wasn't really handled?!\n";
    } elsif( $self->{'encoding_com <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	724	825	
==>RSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type (" . ref($type) . ") is not!"   if defi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	607	705	
==>RSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type (". ref($type) . ") is not!" if defi <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	550	646	
==>my $out_f     = Parrot::Test::per_test('.out',$count);
    my $parrotdir = dirname $self->{parrot <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	587	683	
==>my $out_f     = Parrot::Test::per_test('.out',$count);
    my $parrotdir = dirname $self->{parrot <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3517	3671	
==>ost_branch($) {
	# Nothing to do here.
	return "";
}

# Pre and post load operation hooks.
sub pre_load($) {
	my $self = shift;
	my $need_dest = shift;
	my <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	99467	99702	
==>,
                              "p"
                            ],
                  "BODY" => "#line 101 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}}->vtable->bitwise_not(interpreter, {{\@2}}, {{\@1}});\n  {{+=3}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349217	349312	
==>h, \"+<\");\n  /* string_cstring_free(path); */\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350219	350314	
==>h, \"+<\");\n  /* string_cstring_free(path); */\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpr <==
2	/Users/nnunley/parrot/lib/File/Which.pm	5129	5257	
==>ns

=head2 which($short_exe_name)

Exported by default.

C<$short_exe_name> is the name used in the shell to call the program (fo <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	18729	18874	
==>, [-1, $p, 'P'];
}

sub UNARY_NEGATIVE
{
    my (undef, $c, $cmt) = @_;
    my $t = pop @stack;
    my $n = temp('P');
    my $p = $t->[1];
    pr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672934	673033	
==>src/ops/pmc.ops\"\n    {{\@1}} = {{\@2}}->vtable->pop_integer(interpreter, {{\@2}});\n    {{+=3}};\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766335	766573	
==>5,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 335 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTER <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	7849	8003	
==>h>
                  <th>Call Coverage</th>
                </tr>
    );
    
    foreach my $source_file (sort keys %file_line_coverage) {
        my $out <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	21393	21522	
==>rp = promote($r);
	    print <<EOC;
	$res = $op $lp, $rp $cmt$isnot
EOC
	}
	print <<EOC;
	$pres = new .Boolean
	$pres = $res # ugl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758667	759134	
==>> ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 856,
                  "ARGS" => [
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 276 \"src/ops/set.ops\"\n  {{\@1}} = string_set(interpreter, {{\@1}}, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29693	29825	
==>>caller_ctx = caller_ctx->caller_ctx;\n\t/* ordinarily, this will free the context immediately, but not if the\n\t   sub created a cl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672949	673101	
==>\"\n    {{\@1}} = {{\@2}}->vtable->pop_integer(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12646	12752	
==>This is not very obvious, so let me explain. We get the file
    # for the module, then we take its path re <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20991	21118	
==>trace(q{Trying action},
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TR <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	8415	8560	
==>self->line, $message;
}


#
# WARNING()
#

sub WARNING
{
  my ($self, $format, @args) = @_;

  my $message = sprintf($format, @args);

  print STD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948305	948606	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949104	949405	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" = <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	1989	2258	
==>ib 'lib';

use Pod::Usage;
use Getopt::Long;

use Parrot::OpsFile;
use Parrot::OpLib::core;
use Parrot::Config;

my %arg_dir_mapping = (
    ''   => 'PARROT_ARGDIR_IGNORED',
    'i'  => 'PARROT_ARGDIR_IN',
    'o'  => 'PARROT_ARGDIR_OUT',
    'io' => 'PARROT_ARGDIR_INOU <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8804	9071	
==>my $L_fallback = $self->output_label_use($fallback);
    return ("<rx_tmp> = <rx_stack>->[-1]; # peekindex",
            "goto $L_fallback if <rx_tmp> == -1; # was a mark?",
            "$reg = <rx_tmp>; # nope, set pos := popped index");
}

sub output_popint {
    my <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4525	4636	
==>ts_with_name($name)>

Returns whether a subdirectory with the specified name exists in the
directory.

=cut

sub <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	44368	44520	
==>delimiter of the first block of the operation,

=item [5]

the text of the first block of the operation
(that is, the contents of
a quote, the regex of a <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	598	700	
==>RSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type (" . ref($type) . ") is not!"  unless UN <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	589	689	
==>RSAL::isa($block, qw(Jako::Construct::Block));
  confess "Type (". ref($type) . ") is not!" unless UN <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	36805	37086	
==>1 AUTHORS

Original code by chromatic, maintained by Michael G Schwern
E<lt>schwern@pobox.comE<gt>

=head1 COPYRIGHT

Copyright 2002, 2004 by chromatic E<lt>chromatic@wgz.orgE<gt> and
                        Michael G Schwern E<lt>schwern@pobox.comE<gt>.

This program is free softw <==
2	/Users/nnunley/parrot/config/auto/alignptrs.pm	1518	1627	
==>t!\n" unless defined $align;
        $conf->data->set(ptr_alignment => $align);
    }

    $self->set_result($ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	688	902	
==>m * C<new()>

Basic constructor.

Accepts no arguments and returns a L<Parrot::Configure::Step::> object.

=cut

sub new
{
    my $class = shift;

    return bless {}, ref $class || $class;
}

=back

=head3 Object M <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51741	51842	
==>1}} != 0) { Parrot_set_trace(interpreter,   {{\@1}}); }\n  else         { Parrot_clear_trace(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52524	52625	
==>1}} != 0) { Parrot_set_trace(interpreter,   {{\@1}}); }\n  else         { Parrot_clear_trace(interpret <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	2078	2223	
==>_PIR"             # or
    $I100 = %1
    $I101 = %2
    $I100 = or $I100, $I101
    %1 = $I100
END_PIR

    $P0[unicode:"dyadic:\u2260"]  = <<"EN <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3500	3763	
==>eof', 'I16', 'P17'],
  ['',            'branch', 'apply_COUNT'],
  ['apply_ARRAY', 'new', 'P3', '.Array'],
  ['',            'set', 'P3', 'I2'],
  ['',            'set', 'I16', 0],
  ['apply_ITER',  'set', 'P3[I16]', 'P16[0]'],
  ['',            'set', 'P16', 'P16 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	1882	2015	
==>tch;
		goto MAIN;
	}
	if ($cur =~ /[A-Za-z]/) {		# Bareword 
		append;
		fetch;
		while($cur =~ /[A-Za-z0-9]/ or $cur =~ /[#!&\$%]/) { <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2124	2219	
==>{$in}; # returns undef if unknown
  }
}

#------------------------------------------------------ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2589	2684	
==>{$in}; # returns undef if unknown
  }
}

#------------------------------------------------------ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905092	905364	
==>RGS" => [
                              "s",
                              "p",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 262 \"src/ops/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->s <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11982	12105	
==>E_RET_CONT

# Can do a lazy move.
PRE_CALL_${CURIC}_LAZY_MOVE_RET:
${STEMP0} = pop lazy_moves

# Put in params array.
PRE_CA <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	21758	21967	
==>ef";

        # Does the DEF file already exist?
        my $defexists = -e $deffile;

        # Open the file to append to it.
        my $fh = open_file( ">>", $deffile );
        print $fh "LIBRARY $group\nE <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8011	8132	
==>tput_popindex {
    my $self = shift;

    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7664	7785	
==>tput_popindex {
    my $self = shift;

    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	274864	275333	
==>GS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 320,
                  "ARGS" => [
                              "i",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 876 \"s <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34017	34144	
==>_val;";
        $func_ret = $self->gen_ret($method->{type});
        $ret = "return ret_val;";
    }
    # I think that these wi <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	29072	29265	
==>_p {
}

sub _op_char_eq_p {
}

sub _op_char_lt_p {
}

sub _op_char_gt_p {
}

sub _op_char_le_p {
}

sub _op_char_ge_p {
}

sub _op_char_ci_eq_p {
}

sub _op_char_ci_lt_p {
}

sub _op_char_ci_gt_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	24520	24932	
==>_ARG_$arg_num";
		}

		# float32
		elsif (/^float32$/) {
			$out =  "    \${N_ARG_$arg_num} = bc.read_float32()\n    next_pc += 4\n";
			$arg_name = "N_ARG_$arg_num";
		}

		# float64
		elsif (/^float64$/) {
			$out =  "    \${N_ARG_$arg_num} = bc.read_float64()\n    next_pc += 8\n";
			$arg_name = "N_ARG_$arg_num";
		}

        # tfield
		elsif (/^tfield$/) {
			$out =  "    \${I_ARG_$arg_num} = bc.read_tfiel <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	46779	46888	
==>MMENT/gco)
		{
			_parse("a comment",0,$line);
			next;
		}
		elsif ($grammar =~ m/$NEGLOOKAHEAD/gco)
		{
			_ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	25933	26107	
==>t_back');
    my $next = $self->genlabel('after_greedy_opt');
    my ($R_back, @R_ops) = $self->rewrite($R, $lastback);

    my @ops = (
                        aop('pushindex <==
2	/Users/nnunley/parrot/config/gen/config_pm.pm	2032	2254	
==>rint OUT qq(\tset P0["$k"], "$v"\n);
                } else {
                    print OUT qq(\tset P0["$k"], P1\n);
                }
            }
        } elsif (s/<<PWD>>/cwd/e) {
            print OUT;
        } else <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16797	16948	
==>s($node);

  for (@reverse) {
    my $item = $self->_generate($_);
    my $pair = $self->_save_1 ('P');

    $self->_add_inst ('', 'new',[$pair,'.Array' <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7724	7829	
==>ine register name now.
	if (!$dest_reg) {
		$pir .= <<'PIR'
# Get type (so we can find register type).
${P <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5842	5947	
==>ine register name now.
	if (!$dest_reg) {
		$pir .= <<'PIR'
# Get type (so we can find register type).
${P <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	8637	8833	
==>summary.html#$source_file">function detail</a>]</td>
          </tr>
       );
    }
    
    print OUT qq(
            </tbody>
          </table>
    );
    print OUT page_footer();

    close(OU <==
2	/Users/nnunley/parrot/config/inter/lex.pm	87	209	
==>3 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/lex.pm - lexical analyzer generator

=head1 DESCRIPTION

De <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947123	947218	
==>)\n    real_exception(interpreter, NULL, 1,\n\t\"charset '%Ss' not found\", {{\@2}});\n  {{\@1}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948025	948120	
==>)\n    real_exception(interpreter, NULL, 1,\n\t\"charset '%Ss' not found\", {{\@2}});\n  {{\@1}} <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	14339	14444	
==>r_block->block;
        my $loop = Jako::Construct::Block::Loop::Continue->new($parent_block, $peer_block) <==
2	/Users/nnunley/parrot/config/auto/funcptr.pm	370	493	
==>nfigure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Verifying that the compiler supports function p <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	23836	24030	
==>{
					die "Unknown type $syms[CURR]";
				}
			} else {
				$_=substr($var, -1, 1);
				if (exists $sigilmap{$_}) {
					$type=$th{$sigilmap{$_}};
				}
			}
			$arrays{"${var}${seg}"}=1;
			#pr <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	9082	9228	
==>goto neg_two
    if $I1 == -3 goto neg_three
    if $I1 == -4 goto neg_four
    if $I1 == -5 goto neg_five
    if $I1 == -6 goto neg_six
    if $I1 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3128	3225	
==>s=1;
	if ($noreloop) {
		push @{$code{$seg}->{code}}, "\t#ne \$I0, $vars, ERR_INPFIELDS\n";
	} els <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634444	634625	
==>"i",
                              "s"
                            ],
                  "BODY" => "#line 107 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= inte <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	810	1028	
==>,
    ACCESS => $block->access_of_ident($token->text),
    TYPE   => $block->type_of_ident($token->text),
    KIND   => $block->kind_of_ident($token->text),

    DEBUG  => 1,
    FILE   => $token->file,
    LINE   => $t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730696	730923	
==>=> "#line 124 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731432	731659	
==>=> "#line 124 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/tools/dev/pbc_header.pl	1476	1635	
==>finger_print
	print F $fp;
	close F;
    }
}

sub pbc_info {
    for my $f (@ARGV) {
	open F, "<$f" or die "Can't open $f: $!";
	my $header;
	read F, $header, 1 <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	4016	4121	
==>fier" context="#stay" String="[a-zA-Z_][\\w_]*" />
      </context>

END

print <<END;
      <context name <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	3589	3704	
==>ump $parent_dumps lib/Parrot/Pmc2c.pm \\
		src/pmc/$pmc.pmc
	\$(PMC2CD) src/pmc/$pmc.pmc 

src/pmc/pmc_$pmc.h: src/p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365303	365460	
==>rpreter, {{\@1}}, {{\@2}});\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366143	366300	
==>rpreter, {{\@1}}, {{\@2}});\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	1302	1480	
==>ons = ( prefix => '/usr',
                exec_prefix => '/usr',
                bindir => '/usr/bin',
                libdir => '/usr/lib',
                includedir => '/usr/in <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41497	41615	
==>}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _closers_for_all_curr_open {
  my $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116656	117120	
==>ase_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 145,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 20 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546443	546864	
==>",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 630,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 1056 \"src/ops/math.ops\"\n INTVAL gcd = 0;\n INTVAL p = 0;\n INTVAL a = {{\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	3733	3909	
==>@@@@@@@@@@@@@@@@@@@@@
# Pull in some functions that, for some reason, I expect to see here too:
BEGIN {
  *pretty        = \&Pod::Simple::BlackBox::pretty;
  *stringify_lol = \& <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	1547	1748	
==>paths.
    
    die "No contents ($text).\n" unless @contents;
    
    $self = bless {
        TEXT => $text,
        CONTENTS => \@contents,
    }, $self;

    return $self;
}


=back

=head2 Instance <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12533	12658	
==>(" => 48,
			"." => 49
		},
		DEFAULT => -10,
		GOTOS => {
			'tableconstructor' => 46,
			'args' => 43,
			'key' => 45 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	458	578	
==>][0] eq 'start' }
sub is_end   { $_[0][0] eq 'end'   }
sub is_text  { $_[0][0] eq 'text'  }

1;
__END__

sub dump { '[' . <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1282	1384	
==>..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
dec ${ITEMP0}
${PTEMP0} = ${ST <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2992	3094	
==>..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
dec ${ITEMP0}
${PTEMP0} = ${ST <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423044	423342	
==>UMP" => 0,
                  "NAME" => "listen",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423940	424238	
==>UMP" => 0,
                  "NAME" => "listen",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	9840	10234	
==>s created by the
second form is based on a hash. The array-based forms will be
somewhat faster and smaller; the hash-based forms are more
flexible.

The class created by C<struct> must not be a subclass of another
class other than C<UNIVERSAL>.

It can, however, be used as a superclass for other classes. To facilitate
this, the generated constructor method uses a two-argument blessing.
Furthe <==
2	/Users/nnunley/parrot/config/auto/snprintf.pm	745	868	
==>$conf->data->set(HAS_SNPRINTF => 1);
    }
    if ($res =~ /^C99 snprintf/) {
        $conf->data->set(HAS_C99_SNPRINTF => 1 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	46648	46772	
==>led the terminal newline on #$i: {$p->[$i]}, after {$p->[$i-1]}\n";
      } else {
        DEBUG > 5 and print
         "No t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676025	676117	
==>s/pmc.ops\"\n    {{\@1}}->vtable->unshift_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676805	676897	
==>s/pmc.ops\"\n    {{\@1}}->vtable->unshift_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3} <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	6735	6950	
==>ON();    # X
		if ($type[NEXT] =~ /PUN/) {
			feedme();
			($resulty, $typey, @codey)=EXPRESSION();
		}
	}
	if (@codey and @codex) {  	# X and Y
	
	push @{$code{$seg}->{code}},<<XANDY;
@codey	
	\$N100= $resulty
@code <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2122	2228	
==>>prefix) {
    $self->prefix($self->peer->prefix);
  }

  if ($self->prefix) {
    $handler->start_element( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1999	2105	
==>>prefix) {
    $self->prefix($self->peer->prefix);
  }

  if ($self->prefix) {
    $handler->start_element( <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1978	2190	
==>igure::Data> object.

=cut

sub options
{
    my $self = shift;

    return $self->{options};
}

=item * C<steps()>

Provides a list of registered steps.  Where each steps is represented by an
L<Parrot::Configure: <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	6488	6614	
==>o the following address
    my @output4;
    foreach my $stmt (@output3) {
	if (ref $stmt->{code} && $stmt->{code}->{name} eq ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665000	665253	
==>E" => "inline",
                  "CODE" => 743,
                  "ARGS" => [
                              "p",
                              "ki"
                            ],
                  "BODY" => "#line 359 \"src/ops/pmc.ops\"\n  {{\@1}}->vta <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	1880	1976	
==>sage [default] " and waits for the user's response. Returns the
response, or the default if the u <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3476	3589	
==>b}->value; # TODO: We should make sure its a string, somewhere.
    }
    else {
      $self->SYNTAX_ERROR("Sub de <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6140	6253	
==>b}->value; # TODO: We should make sure its a string, somewhere.
    }
    else {
      $self->SYNTAX_ERROR("Sub de <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	928	1036	
==>ned suppress];
our $PERL = q[perl];
our $LOAD_EXT = qq[.bundle];
our $O = qq[.o];
our $CFLAGS = qq[-I/opt/loc <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	932	1040	
==>ned suppress];
our $PERL = q[perl];
our $LOAD_EXT = qq[.bundle];
our $O = qq[.o];
our $CFLAGS = qq[-I/opt/loc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645915	646174	
==>atatype_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646812	647071	
==>atatype_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13370	13466	
==>generate(_get_arg($node,1));
  $self->_add_inst('','not',[$return,$return]);

  $return;
}

sub _ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	17459	17645	
==>erferes with $!

    if( @imports == 1 and $imports[0] =~ /^\d+(?:\.\d+)?$/ ) {
        # probably a version check.  Perl needs to see the bare number
        # for it to work with non-Ex <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	619241	619407	
==>reter, left);\n\tINTVAL b = rt == enum_class_Integer ? PMC_int_val(right) :\n\t    VTABLE_get_integer(interpreter, right);\n\tINTVAL c = a - b;\n\tif ((c^a) >= 0 || (c <==
2	/Users/nnunley/parrot/lib/Test/More.pm	28215	28399	
==>y.

=cut

#'#
sub eq_array {
    local @Data_Stack;
    _deep_check(@_);
}

sub _eq_array  {
    my($a1, $a2) = @_;

    if( grep !_type($_) eq 'ARRAY', $a1, $a2 ) {
        warn "eq_ar <==
2	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	121	267	
==>06 2006-05-30T15:08:05.048089Z coke  $

use strict;

use Data::Dumper;
use File::Basename;

package Parrot::Test::ParrotCompiler;

=head1 NAME

Par <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	627	724	
==>s "Op is not defined!" unless defined $op;
  confess "Right is not defined!" unless defined $right <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	639	736	
==>s "Op is not defined!" unless defined $op;
  confess "Right is not defined!" unless defined $right <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9914	10042	
==>[-1][0]]{ACTIONS})
			        or  not exists($$states[$$stack[-1][0]]{ACTIONS}{error})
					or	$$states[$$stack[-1][0]]{ACTIONS <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9468	9594	
==>[-1][0]]{ACTIONS})
			        or  not exists($$states[$$stack[-1][0]]{ACTIONS}{error})
					or	$$states[$$stack[-1][0]]{ACTIONS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462945	463271	
==>n);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463942	464268	
==>n);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmod",
                  " <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	43091	43201	
==>def,
		"_AUTOTREE"   => undef,
	};
	if ($::RD_AUTOACTION)
	{
		my $sourcecode = $::RD_AUTOACTION;
		$sourcecode <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7376	7546	
==>e eq 'text' ) {
          $self->unget_token($next);
          next;
        }
        DEBUG and print "    raw text ", $next->text, "\n";
        printf $fh "\n" . $next- <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9621	9791	
==>e eq 'text' ) {
          $self->unget_token($next);
          next;
        }
        DEBUG and print "    raw text ", $next->text, "\n";
        printf $fh "\n" . $next- <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11344	11443	
==>ll_NO_RETURN_${CURIC}:

# Finished.
goto PRE_CALL_END_${CURIC}

# It's a return. See if we have a re <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8530	8629	
==>ll_NO_RETURN_${CURIC}:

# Finished.
goto PRE_CALL_END_${CURIC}

# It's a return. See if we have a re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208370	208465	
==>@1}}->vtable->get_number(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209311	209406	
==>@1}}->vtable->get_number(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	370281	370422	
==>"
                            ],
                  "BODY" => "#line 341 \"src/ops/io.ops\"\n  {{\@1}} = PIO_reads(interpreter, {{\@2}}, (size_ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	1048	1215	
==>elsif($in =~ m/^0x([0-9a-fA-F]+)$/s ) {
    $in = hex $1;
  } # else it's decimal, or named

  if($NOT_ASCII) {
    # We're in bizarro world of not-ASCII!
    # Cope wi <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	9189	9337	
==>tage to see line-by-line detail</i>
    );

    foreach my $source_file (sort keys %file_line_coverage) {

        print OUT qq(
            <hr nosh <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3237	3368	
==>ub YYCurval {
	my($self)=shift;

        @_
    and ${$$self{VALUE}}=$_[0];
    ${$$self{VALUE}};
}

sub YYExpect {
    my( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3076	3198	
==>ub YYCurval {
	my($self)=shift;

        @_
    and ${$$self{VALUE}}=$_[0];
    ${$$self{VALUE}};
}

sub YYExpect {
    my( <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4	123	
==>pyright (C) 2001-2004, The Perl Foundation.
# $Id: /parrot/lib/Parrot/OpTrans/CSwitch.pm 20333 2006-06-21T18:44:31.11156 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022783	1022959	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodelocaltime",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023632	1023808	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodelocaltime",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	25298	25433	
==>~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
    if(grep $_->[1]{'~ignore'}, @$curr_open) {
      DEBUG > 1 and
       print "Skipping $para_type paragra <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	1839	2030	
==>eturn reduce($m, $input);
}
sub minimatch {
  my ($m, $name) = @_;
  $name ||= 'ALL';
  my $res = [ "$name=$m->{0}" ];
  while (my ($name, $match) = each %$m) {
    push @$res, minimatch($matc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710829	711032	
==>1}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711663	711866	
==>1}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1255	1373	
==>how many levels we have to go back to get to parrot.
        # And, conversely, how many levels we have to go down to g <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	725	839	
==>how many levels we have to go back to get to parrot.
    # And, conversely, how many levels we have to go down to g <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10105	10223	
==>.param int trace
    .local pmc bc, ex, stypes, dtypes, loadtype, type_trans, c_params, escaper
    .local pmc ehs, eh, <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	21868	22004	
==>0', FLO => 'N0', STRING => 'S0' );
			if ($_->[2] ne "USER") {
				print CODE<<NOTUSER;
	new P2, .PerlHash
	P2["name"]= '$_->[0]'
	P2["ty <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	31166	31307	
==>IONS => {
			"(" => 123
		},
		GOTOS => {
			'funcbody' => 154
		}
	},
	{#State 106
		ACTIONS => {
			":" => 155,
			"." => 156
		} <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7389	7563	
==>rn
            .local pmc rulesub
            .local pmc match
            .local pmc code
            .local pmc exp
            target = unicode:"$target"
            patter <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2162	2275	
==>ammer wanted to shadow the
  # previous definition.
  #

  if (defined $sym and $sym->block eq $block) {
    $self <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1909	2022	
==>ammer wanted to shadow the
  # previous definition.
  #

  if (defined $sym and $sym->block eq $block) {
    $self <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	1999	2100	
==>er start-up logic should be
modified so that it doesn't need to concatenate separate ops files.

=head <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805802	806092	
==>inline",
                  "CODE" => 909,
                  "ARGS" => [
                              "i",
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 497 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->v <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	3628	3746	
==>m header\n";
        print STDERR "files.  If so, ignore them.  C::Scan is imperfect.\n\n";
    
        foreach my $fd <==
2	/Users/nnunley/parrot/lib/Test/More.pm	19793	19941	
==>w_many if $condition;

      ...normal testing code goes here...
  }

This declares a block of tests that might be skipped, $how_many tests
there are <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434248	434545	
==>> [
                              "ic",
                              "p",
                              "p",
                              "n"
                            ],
                  "BODY" => "#line 89 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, { <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	19330	19440	
==>ck) {
    DEBUG > 3 and print " Considering children of this $treelet->[0] node...\n";
    for($i = 2; $i < @$t <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	21973	22083	
==>ck) {
    DEBUG > 3 and print " Considering children of this $treelet->[0] node...\n";
    for($i = 2; $i < @$t <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	12748	12902	
==>elf->{'encoding_command_reqs'  }[-1],
          $self->{'encoding_command_statuses'}[-1],
      );
    } else {
      DEBUG > 2 and print " (Yup, it was su <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557746	557846	
==>ps/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next = {{^+3}};\n  STRIN <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559130	559230	
==>ps/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next = {{^+3}};\n  STRIN <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	981	1110	
==>YPE   => $type,
    NAME   => $ident->value,
    PROPS  => $props,
    ARGS   => $args,

    DEBUG  => 1,
    FILE   => $ident->fi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1032	1155	
==>YPE  => $type,
    NAME  => $ident->value,
    PROPS => $props,
    ARGS  => $args,

    DEBUG => 1,
    FILE  => $ident->fi <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	939	1059	
==>ned suppress];
our $PERL = q[perl];
our $LOAD_EXT = qq[.bundle];
our $O = qq[.o];
our $CFLAGS = qq[-g -pipe -fno-common - <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	34410	34512	
==>{Curr_Test} > $self->{Expected_Tests} ) {
            my $num_extra = $self->{Curr_Test} - $self->{Expe <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	448	541	
==>:RecDescent::expected
	    = $Parse::RecDescent::defexpected->expected()
	    unless $Parse::R <==
2	/Users/nnunley/parrot/config/init/hints/darwin.pm	1780	1963	
==>('lib_dir') .
                               $conf->data->get('slash') .
                               "libparrot" .
                               $conf->data->get('share_ext')
    ) <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	1924	2071	
==>ance Methods

=over 4

=item C<create_path()>

This is called from C<new()> to create the parent path if necessary.
Subclasses should reimplement th <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	98549	98852	
==>RGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 122,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 96 \"src/ops/bit.op <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2918	3026	
==>= "\n");
  $out =~ tr{\xA0}{ } if Pod::Simple::ASCII;
  print {$self->{'output_fh'}} $out,
    #"\n"
  ;
  $s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2452	2552	
==>= "\n");
  $out =~ tr{\xA0}{ } if Pod::Simple::ASCII;
  print {$self->{'output_fh'}} $out, "\n";
  $s <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	4169	4278	
==>add_inst {
  my $self = shift;
  push @{$self->{instruction}}, [@_];
}

sub generate {
  my ($code, $name) = @ <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	791	1020	
==>(qw(bcc32 bcc32.exe));

    $conf->data->set(
        win32             => 1,
        PQ                => '"',
        make_c            => '$(PERL) -e "chdir shift @ARGV; system \'$(MAKE)\', @ARGV; exit $$? >> 8;"',
        ncil <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561908	562006	
==>!{{\@1}}) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not foun <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562992	563090	
==>!{{\@1}}) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not foun <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops.pm	60	178	
==>y $name = shift || '';
    my $number = ++$MARKERS{$name};
    $number = '' if ($number == 1) && ($name ne '');
    ret <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2692	2810	
==>y $name = shift || '';
    my $number = ++$MARKERS{$name};
    $number = '' if ($number == 1) && ($name ne '');
    ret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742737	742850	
==>4 \"src/ops/set.ops\"\n  {{\@1}} = string_from_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743503	743616	
==>4 \"src/ops/set.ops\"\n  {{\@1}} = string_from_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8336	8435	
==>o locate a matching
symbol, and then returns that symbol's kind.

=cut

sub kind_of_ident
{
  my $se <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	3313	3540	
==>100 if (isbuiltin $op);
	return 100 if (isuserfunc $op);
	return 100 if (isarray $op and 
				(($next and $next eq "(") or ! $next));

	return 0;  # Not an operator

}
sub false {
	my($type)=@_;
	if ($type eq "N") {
		return "0. <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6849	6946	
==>34567890"
print mid$(t$, 2, 8)
print left$(t$, 5)
print right$(t$, 5)
' instr
s1$="The longer stri <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18578	18675	
==>34567890"
print mid$(t$, 2, 8)
print left$(t$, 5)
print right$(t$, 5)
' instr
s1$="The longer stri <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573090	573379	
==>num_class_ParrotClass, name);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574000	574289	
==>num_class_ParrotClass, name);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15902	16061	
==>there being
  #  dire screaming about the mysterious hard-hyphen character (which
  #  looks just like a normal dash character).
  
  my $x; # scratch
  if(!def <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	1628	1742	
==>sses that use something like
    # IMCC's facilities for creating local vars.
    return $self->alloc_temp_int($nam <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183999	184270	
==>,
                  "ARGS" => [
                              "nc",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 285 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}} <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	62755	62896	
==>brackets
that were specified.

=item C<Improperly nested codeblock at %s>

A nested code block was found that started with a delimiter that wa <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9904	10007	
==>say that W maps
    #  to whatever $this->{accept_codes}{thatelementname} is,
    #  i.e., "thatelementn <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	47143	47253	
==>d",$aftererror,$line);
			$lookahead = $lookahead ? $lookahead : 1;
			$lookaheadspec .= $1;
			next;	# SKIP LO <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	878	1005	
==>_fail
{
	my ($wantarray, $textref, $message, $pos) = @_;
	_failmsg $message, $pos if $message;
	return ("",$$textref,"") if $wan <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	26431	26619	
==>on"

	($extracted, $remainder) = extract_quotelike($text);


 # Extract the initial substring of $text that represents a block
 # of Perl code, bracketed by any of character(s) specified by <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8707	8850	
==>return (result)
.end

.sub unicode:"dyadic:\u25cb"          # circle
    .param num op1
    .param num op2
    $I1 = op1
    if $I1 == 0 goto ze <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	48749	48884	
==>, {}, ];  # new node object
      push @{ $lineage[-2] }, $lineage[-1];
      
    } elsif(defined $3) {
      DEBUG > 3 and print "Foun <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	5702	5862	
==>n value. See the note on op types above.

=cut

sub full_body
{
    my $self = shift;
    my $body = $self->body;

    $body .= sprintf("  {{+=%d}};\n", $self->s <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10363	10461	
==>n_call_coverage{$source_file}{$function} ? "$function_call_coverage{$source_file}{$function} %" : " <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	40701	40820	
==>$backtrack=1;}'
				: "" ) . '
			' . $rightarg->code(@_[1..2]) . '
			$savetext = $text;
			$repcount++;
		  }
		  $tex <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3348	3493	
==>, $value) = @_;
  my $return;

  if ($value =~ /^[-+]?\d+$/) {
    $return = $self->_save_1 ('I');
    $self->_add_inst ('', 'set', [$return,$valu <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	13874	13991	
==>_line' => $m, 'errata' => 1}, 'POD ERRORS'],
    ['~Para', {'start_line' => $m, '~cooked' => 1, 'errata' => 1},
     " <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37341	37570	
==>> 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 144
		DEFAULT => -104
	},
	{#State 145
		ACTIONS => {
			"-" => 24,
			'TRUE' => 25,
			'NOT' => 27,
			'ST <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	571	686	
==>m();
  tie *$new, $class, $x;
  return $new;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3635	3748	
==>op> is an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) = @_;

    my %arg_m <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	1829	2013	
==>n = $1;
    }
        elsif (m/^\s*
            ($type_re)\s+
            ($ident_re)\s*
        \(($arglist_re)\)
        (?:\s+(MMD_\w+))?\s*$/x) {
        my $mmd = defined $4 ? $4 : <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	2510	2627	
==>ion)>

Runs the PAST code and passes the test if a string comparison of output
with the expected result is true.

=ite <==
2	/Users/nnunley/parrot/examples/benchmarks/primes.pl	5	104	
==>rl -w
# Copyright (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/examples/benchmarks/primes.pl 1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054089	1054327	
==>> [
                              "p",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 182 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (PMC_IS_NUL <==
2	/Users/nnunley/parrot/config/init/miniparrot.pm	412	554	
==>Centralizing these settings will (hopefully) allow for an eventual move away
from using  Configure at all for miniparrot builds.

=cut

package <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20001	20135	
==>s:

  1033  US English
  2057  UK English
  3081  Australia English
  4105  Canada English
  1034  Spain Spanish
  2058  Mexico Spanish <==
2	/Users/nnunley/parrot/tools/dev/manicheck.pl	589	721	
==>g>, I<expected> and I<extra> files, and
then any extra files are listed.

Files that match the patterns in MANIFEST.SKIP are not repo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367314	367599	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368105	368390	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "f <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	2256	2462	
==>alls C<write_html()> on the contents of the section.

An HTML link to the section's index is returned.

=cut

sub write_html
{
    my $self = shift;
    my $source = shift || die "No source\n";
    my $targe <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7934	8094	
==>? $sempar[0] : undef;

            splice(@$stack,-$len,$len);

                $$check eq 'ACCEPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		an <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7578	7730	
==>? $sempar[0] : undef;

            splice(@$stack,-$len,$len);

                $$check eq 'ACCEPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		an <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4293	4413	
==>Name => 'literal', Attributes => { type => $type->name } });
        $handler->characters({ Data => $string });
        $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4643	4759	
==>Name => 'literal', Attributes => { type => $type->name } });
      $handler->characters({ Data => $string });
      $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569274	569361	
==>"#line 218 \"src/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->isa(interpreter, {{\@2}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570167	570254	
==>"#line 218 \"src/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->isa(interpreter, {{\@2}} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	544	725	
==>_reverse_fork {
#      my ($label) = @_;
#      return "reverse_fork $label->[1]";
#  }

sub output_onfail {
    my ($label) = @_;
    return "onfail $label->[1]";
}

sub output_matc <==
2	/Users/nnunley/parrot/config/gen/icu.pm	3860	3964	
==>ared=(flags)  Full linker command to create shared libraries
HELP

    #'

    my $icudir = dirname($icuh <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1610	1774	
==>en}}) {
      _dataflow($_);
    }
    my $cur_type = $node->{children}[0]{type};
    for(@{$node->{children}}) {
      $cur_type = $_->{type} if $_->{type} eq 'REAL <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	3557	3697	
==>ct | case |
		read | restore | input | open | close | on | randomize | stop | swap |
		common | cls | locate | color | keys
		)$/x) {
		no st <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925574	925933	
==>e_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1042,
                  "ARGS" => [
                              "i",
                              "s", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583920	584188	
==>T_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584994	585262	
==>T_JUMP_ENEXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	480	604	
==>ib 'lib';

use Parrot::OpLib::core;
use Parrot::Op;
use Parrot::OpTrans::C;

my $trans = Parrot::OpTrans::C->new;

my %type_t <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	53194	53329	
==>ment is omitted (or
C<undef>) the list:

        [
                sub { extract_variable($_[0], '') },
                sub { extract_qu <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1168	1259	
==>:slurp_file($out_f);
        $pass =$self->{builder}->is_eq( Parrot::Test::slurp_file($out_f <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1209	1300	
==>:slurp_file($out_f);
        $pass =$self->{builder}->is_eq( Parrot::Test::slurp_file($out_f <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	35864	36043	
==>ke_point,
  'real-part'        => \&_op_real_part,
  'imag-part'        => \&_op_imag_part,
  'magnitude'        => \&_op_magnitude,
  'angle'            => \&_op_angle,
  'exact-> <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6687	6856	
==>tch_fail
          match_success:
            print "matched"
            goto match_end
          match_fail:
            print "failed"
          match_end:
        .en <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7704	7873	
==>tch_fail
          match_success:
            print "matched"
            goto match_end
          match_fail:
            print "failed"
          match_end:
        .en <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712483	712579	
==>interpreter, \"%.12g\", (double){{\@1}});\n  PIO_putps(interpreter, io, s);\n  if (string_str_ind <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713590	713686	
==>interpreter, \"%.12g\", (double){{\@1}});\n  PIO_putps(interpreter, io, s);\n  if (string_str_ind <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	625474	625665	
==>G_ARRAY(sig);\n    for (i = 0; i < n_args; ++i) {\n        switch (sig_bits[i]) {\n            case PARROT_ARG_INTVAL:\n                args[1 + i] = (void*)*(INTVAL*)(_reg_base + cur_opcode[2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	8634	8877	
==>=~ /^INTKEY$/i)
                {
                    $type = "ki";
                }
                else
                {
                    $type = lc substr($type, 0, 1);
                }

                # convert e.g. "labelvar" to "in <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	25766	25882	
==>et_type);
	    $ret_string = "$t = ";
	}
	if ($builtins{$name}) {
	    print <<EOC;
	.local NCI the::internal
	the::i <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35655	35830	
==>lowing ", $paras->[0][0], "\n";
              push @$para, '';  # Just so it's not contentless
            }
          }

        } else {
          die "Unhandled =over type \ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	623	757	
==>m=s"        => \$srm_module
) or usage();
$rules_file = shift @ARGV;
usage() if !$rules_file || @ARGV;

# Attempt to laod stack to regi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3073	3218	
==>. . . . . . . . And then off by its lonesome:

sub end_Verbatim  {
  return unless $_[0]{'Errata_seen'};
  my $self = shift;
  if(Pod::Simple::ASC <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	17290	17479	
==>ara->[1]{'~type'} = 'bullet';

  } elsif($content =~ m/^\s*(\d+)\.?\s*$/s) {
    # Like: "=item 1.", "=item    123412"
    
    $para->[1]{'~orig_content'} = $content;
    $para->[1]{'number <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2434	2570	
==>essary to help gcov locate it's basic block (.bb) files.
    my $cmd = "gcov -f -b -o $dirname $src_filename";
    print "Running $cmd\n" <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	29	190	
==>ib/Parrot/Test/Bc.pm 18020 2006-03-26T19:46:16.084129Z bernhard  $

package Parrot::Test::Bc;

use strict;
use warnings;

use Data::Dumper;
use File::Basename;

u <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6658	6809	
==>eedme;  # Get the :
		goto PARSE
	}
	
	# function assignment...  WRONG-O!
	#     Don't go looking for lhs expression, please.
	#if ($syms[NEXT] eq "=" a <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	1098	1449	
==>h eq '.' and
            $token =~ /^\d+$/) {  # Equal sign can follow '<','>'
      $token .= $ch;
    } elsif($ch =~ /\d/ and
            ($token =~ /^[-]/ or  # Digits can follow a dash
             $token =~ /^\./  or  # Digits can follow a decimal point
             $token =~ /^\d/)) {  # Digits can follow other digits
      $token .= $ch;
    } <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2232	2327	
==>STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Decrement stack height.
dec stac <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3484	3579	
==>STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Decrement stack height.
dec stac <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	2209	2385	
==>ols/build/ops2c.pl'),
            $self->new_item('', 'tools/build/ops2pm.pl'),
            $self->new_item('', 'tools/build/parrot_config_c.pl'),
            $self->new_item('' <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	11349	11488	
==>os $$textref = $startpos;
		return;
	    }
	    my $deref = $1;

	    unless ($$textref =~ m/\G\s*(?:::|')?(?:[_a-z]\w*(?:::|'))*[_a-z]\w*/g <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	54241	54422	
==>_[2], $_[3] );
        }
	],
	[#Rule 67
		 'exp', 3,
sub
#line 377 "Lua\lua51.yp"
{
            BuildRelop( $_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 68
		 'exp <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23448	23548	
==>y $temp = $self->_generate($node->{children}[$_]);
    my $label = $self->_gensym();
    $self->_add_ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23910	24010	
==>y $temp = $self->_generate($node->{children}[$_]);
    my $label = $self->_gensym();
    $self->_add_ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	21650	21876	
==>in P1 (don't trash P0)
	#print "--Copying a $typename\\n"
	pushp			# Makes an internal mess of P2, P3, P4, P5, P6 (popped)
	new P3, .PerlHash       # Uses S0, I0, N0
FINDIM
		
		foreach(@types) {
			my %val=( INT => 'I0', FLO = <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	2647	2791	
==>urn $self->stat->mode & 0111;
}

=item C<modified_since($time)>

Use this to find out whether the file has been modified since the
specified time <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	18776	18896	
==>let gets fast-tracked.\n";
     # Very common case!
  }
  
  splice @$treelet, 0, 2;  # lop the top off

  return $treele <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12460	12732	
==>CURR] in DATA";
		}
		feedme();
	}
	push(@data, { line => $currline, data => \@ld });
}
sub parse_restore {
 	my @args;
	if ($type[NEXT] eq "BARE" or $type[NEXT] eq "INT") {
		feedme();
		create_label();
		push @args, qq{"$labels{$syms[CURR]}"};
	} else {
		push @args, qq{ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37944	38093	
==>ir .= "### end post_call\n";
	}

	# Unsupported class.
	else {
		die "Do not know how to handle class $rule->{'class'}\n";
	}

	# Finally, emit code t <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	5620	5751	
==>rtunately,
he wasn't in Tony's kitchen).  This is it.


=head1 SEE ALSO

=over 4

=item L<Test::More>

More testing functions!  Once <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	26691	26804	
==>@ops;
    foreach (@_) {
        my ($back, @rewritten) = $self->rewrite($_, $fallback);
        push @ops, @rewri <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	865579	865767	
==>> 982,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 167 \"src/ops/string.ops\"\n   string_pin(interprete <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	3536	3654	
==>line if it looks like it's basically all string.
        next if /^\s*\".*\"(\);|,)?$/;

        if (length($_) > 79) { <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1085	1190	
==>);
  
  if (($self->ident->kind eq 'var') and ($self->ident->scope eq 'global')) {
    my $pmc_type = $sel <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1081	1184	
==>);

  if (($self->ident->kind eq 'var') and ($self->ident->scope eq 'global')) {
    my $pmc_type = $sel <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1515	1608	
==>ko::Construct::Type");

  my $type_name = $type->name;

  $self->INTERNAL_ERROR("Variable defi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571106	571195	
==>ss = Parrot_class_lookup_p(interpreter, {{\@3}});\n    {{\@1}} = Parrot_object_isa(interpr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572061	572150	
==>ss = Parrot_class_lookup_p(interpreter, {{\@3}});\n    {{\@1}} = Parrot_object_isa(interpr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100938	101130	
==>125,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 125 \"src/ops/bit.ops\"\n  string_bitwise_not(interpreter, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627434	627521	
==>1}} = pmc_new_noinit(interpreter, {{\@2}});\n  {{\@1}}->vtable->init(interpreter, {{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628578	628665	
==>1}} = pmc_new_noinit(interpreter, {{\@2}});\n  {{\@1}}->vtable->init(interpreter, {{\@1} <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	12244	12365	
==>arrot, change
    to the languages directory and issue the same command.
  </p>

  <p>
    Note that old smoke reports are <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553672	553863	
==>,
                              "p"
                            ],
                  "BODY" => "#line 94 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *nex <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555069	555260	
==>,
                              "p"
                            ],
                  "BODY" => "#line 94 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *nex <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51736	51837	
==>({{\@1}} != 0) { Parrot_set_trace(interpreter,   {{\@1}}); }\n  else         { Parrot_clear_trace(inte <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52519	52620	
==>({{\@1}} != 0) { Parrot_set_trace(interpreter,   {{\@1}}); }\n  else         { Parrot_clear_trace(inte <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	326	476	
==>listed on the command line, or from standard
input if no file is named, and turn it into a C implementation file.

=cut

use strict;

use lib 'lib';
us <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25354	25458	
==>>{code}}, <<COND;
@code	FORLOOP_END_$forloop= $endexpr
@stepcode
	FORLOOP_STEP_$forloop= $stepexpr
FOR_$f <==
2	/Users/nnunley/parrot/lib/Test/More.pm	1103	1218	
==>}


=head1 NAME

Test::More - yet another framework for writing test scripts

=head1 SYNOPSIS

  use Test::More test <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	8135	8315	
==>e =~ /\S/o;
			}
		
			my @abstract = $line;
			
			while ( @lines )
			{
				$line = shift @lines;
		
				last if $line !~ /\S/o;
				
				push @abstract, $line;
			}
			
			my $de <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	9905	10086	
==>[CURR]) and not isbuiltin($syms[CURR]));
		die "LOOP" if $c++>100;
		if ($type[CURR] eq "STRING" and not $fd and
			( $type[NEXT] eq "STMT" or $type[NEXT] eq "COMP" or $type[NEXT] eq <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	5847	6062	
==>',   'uninit');
warn_if_both($Def,    $Undef,   'def',    'undef');

$Undef ||= !$Def if defined $Def && !defined $Undef;

my %Type; @Type{qw(bsd long)} = ();
$Type = 'bsd' if $BSD ||
		 (defined $Type && $Type eq '1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873809	874175	
==>i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 991,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.o <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1125	1318	
==>anguages/lua/lib/luapackage.pbc"
#  load_bytecode "languages/lua/lib/luastring.pbc"
#  load_bytecode "languages/lua/lib/luatable.pbc"
#  load_bytecode "languages/lua/lib/luamath.pbc"
#  load <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	2235	2391	
==>work
    if ($stdout =~ /Bison .*? (\d+) \. (\d+) (\w)? /x) {
        $conf->data->set(bison_version => $3 ? "$1.$2$3" : "$1.$2");
    }

    $conf->data->se <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369452	369554	
==>" => "#line 341 \"src/ops/io.ops\"\n  {{\@1}} = PIO_reads(interpreter, {{\@2}}, (size_t){{\@3}});\n  {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	370337	370439	
==>" => "#line 341 \"src/ops/io.ops\"\n  {{\@1}} = PIO_reads(interpreter, {{\@2}}, (size_t){{\@3}});\n  {{ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	801	919	
==>rite_code_to_file( $code, $lang_f );

    my $cmd;
    my $exit_code = 0;
    my $pass = 0;

    $cmd = "$self->{parrot <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	838	956	
==>rite_code_to_file( $code, $lang_f );

    my $cmd;
    my $exit_code = 0;
    my $pass = 0;

    $cmd = "$self->{parrot <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	780	877	
==>y reference containing additional arguments (as
you might find on the command line).

If you don't <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	714	864	
==>ented for current stack to register mapper\n";
}

# Pre and post stack operation (op class instructions) hooks.
sub pre_op {
	die "pre_op not implement <==
2	/Users/nnunley/parrot/tools/dev/mk_inno.pl	552	646	
==>item C<icudir>

The directory to locate ICU.

=back

=head1 SEE ALSO

http://www.jrsoftware.org <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12332	12475	
==>31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 9
		ACTIONS => {
			":" => 42 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	7014	7195	
==>ile' for reading.\n"
    unless $fh;

  my @lines = <$fh>;

  return @lines;
}


#
# scan_file()
#

sub scan_file
{
  my $self = shift;
  my ($file) = @_;

#  $self->DEBUG(0, "Scanni <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	2787	3021	
==>s/\.[^\.]*$//o;
    
    return $name;    
}

=item C<suffix()>

Use this to get the name's .xyz suffix or extension. If there is no
suffix then the empty string is returned.

=cut

sub suffix
{
    my $self = shift;
    
    return $s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	13410	13627	
==>f->{'errata'}};

  my @out;
  
  foreach my $line (sort {$a <=> $b} keys %{$self->{'errata'}}) {
    push @out,
      ['=item', {'start_line' => $m}, "Around line $line:"],
      map( ['~Para', {'start_line' => $m, '~c <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2364	2459	
==>ttern, $expected, $description, @todo)>

Runs the target string against the Perl 6 pattern, pass <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3798	3893	
==>ttern, $expected, $description, @todo)>

Runs the target string against the Perl 6 pattern, pass <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361648	361747	
==>ps\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, INTVAL_FMT, {{\@2}});\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362547	362646	
==>ps\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, INTVAL_FMT, {{\@2}});\n <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	760	1231	
==>rn defined $self->{LINE} ? $self->{LINE} : '';
}


###############################################################################
###############################################################################
##
## TOKEN PROCESSING:
##
###############################################################################
###############################################################################


#
# tokens()
#

sub tokens
{
  my $self = shift;

  if (@_) {
    $self- <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	10018	10181	
==>ag}) {
            $$c =~ s/^\s+(\w+)//s
                or die "Parser error: no value for '$flag'";

            $flags{$flag}{$1} =
                $flag eq 'ext <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	486745	487035	
==>> 0,
                  "NAME" => "ceil",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	487496	487786	
==>> 0,
                  "NAME" => "ceil",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	328831	329181	
==>{
                  "JUMP" => 0,
                  "NAME" => "conv_r4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 386,
                  "AR <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	706	860	
==>net', ''

.sub internal_method_body
    .param pmc class
    .param pmc meth
    .local string class_name, method_name, body

    # Get class and method na <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	3594	3749	
==>fn );
        if ( $type eq 'key' ) {
            push @opcodes, new ConstDir( $parser,
                'prolog' => 1,
                'result' => $defn <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	1186	1300	
==>{ return shift->{TYPE}; }
sub text { return shift->{TEXT}; }


#
# dump()
#

sub dump
{
  my $self = shift;

  prin <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6713	6812	
==>RANCH_NOT_switch_${CURIC}:
PIR
	return $pir;
}

# Pre and post load operation hooks.
sub pre_load($) <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4651	4750	
==>RANCH_NOT_switch_${CURIC}:
PIR
	return $pir;
}

# Pre and post load operation hooks.
sub pre_load($) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833883	834276	
==>E" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 944,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 202 \"src/ops/stack.ops\"\n  sta <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	31	130	
==>POD after __END__

use 5.005_03;

use strict;
# use warnings::register;
use vars qw(@ISA @EXPORT $VE <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	14562	14699	
==>gs =~ s/--run-pbc// || $args =~ s/-r // ) {
                    my $pbc_f = per_test('.pbc', $test_no);
                    $args = qq{$ar <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18683	18819	
==>heading levels will appear as.

=item $parser->codeblock_halfpoint_size( I<halfpoint_integer> );

This method sets the size (in half-poin <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	20639	20785	
==>defined($thing = $treelet->[$i][1]{$attrname}) and ref $thing) {
              unshift @stack, $thing;
              DEBUG > 4 and print "  +Enqueu <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	42121	42260	
==>defined($thing = $treelet->[$i][1]{$attrname}) and ref $thing) {
            unshift @stack, $thing;
            DEBUG > 2 and print "  Enqu <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	14570	14743	
==>e the nearest parent
    foreach my $entry (@{ $vt->{methods} } ) {
        my $meth = $entry->{meth};
        next if exists $self->{super}{$meth};
        foreach my $pname <==
2	/Users/nnunley/parrot/tools/dev/manicheck.pl	1477	1605	
==>t "Missing files:\n";
    foreach (@missing) {
        print "  $_\n";
    }
}

if (@extra) {
    print "\n";
    print "Extra fi <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3808	3920	
==>eter '$prm'");
			ref($value) eq $$checklist{$prm}
		or	croak("Invalid value for parameter '$prm'");
        $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3613	3722	
==>eter '$prm'");
			ref($value) eq $$checklist{$prm}
		or	croak("Invalid value for parameter '$prm'");
        $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	4515	4706	
==>$text = $2;
      next;
    }

    #
    # (Prefix) Ops:
    #

    if ($text =~ m{^(new)(?!\w)(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, 'new', 'pmc', $1);
      $t <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	26564	26692	
==>} = $c;
	$names{$c} = $c;
	print <<EOC;
        \t $cmt
EOC
    }
    push @stack, [$n, $c, 'P'];
}

sub STORE_FAST
{
    my ($n, <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3399	3533	
==>nescaped '$'.
      $string = substr($string, 1, -1); # Without the surrounding double quotes.

      $handler->start_element({ Name => <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33161	33280	
==>tation to perform locking.

=cut

sub body
{
    my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{m <==
2	/Users/nnunley/parrot/languages/converter.pl	1775	1884	
==>item[3]);
		  "/[$lhs-$rhs]/"
		}
		| terminal
#		{[@item]}
		{ $item[1] }


terminal	: "'" /[^']*/ "'" mod(?) <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1496	1761	
==>) {
          $path_to_language = File::Spec->join(File::Spec->updir() x ($dir_count - 2));
        }
        my @test_prog = 
            ( join( ' ',
                    File::Spec->join($path_to_parrot,$self->{parrot}), 
                    File::Spec->join($path <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	2463	2686	
==>->is('ident');         }
sub is_if            { return shift->is('if');            }
sub is_infix_arith   { return shift->is('infix-arith');   }
sub is_infix_bit     { return shift->is('infix-bit');     }
sub is_infix_concat <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	31087	31255	
==>des without a "name|" part, only E<...> and Z<> codes may
# occur -- no other formatting codes. That is, authors should not use
# "L<B<Foo::Bar>>".
#
# Note, however, th <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	1425	1573	
==>>.h. The initialization function will be named
after libname and will initialize all PMCs in the library.

=back

=head2 Internals

To see the intern <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	669	767	
==>convert them into a a TAP-style
protocol that can then use Test::Harness to run and report results. <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	31949	32079	
==>ty string.

In a scalar context, just the extracted substring is returned. In
a void context, the extracted substring (and any pref <==
2	/Users/nnunley/parrot/config/inter/make.pm	854	980	
==>n => undef);

    my $prog;

    # precedence of sources for the program:
    # default -> probe -> environment -> option -> as <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	8854	8973	
==>r re-reading $source: $!\n";
my $line = 0; while (<SOURCE>) { $line++; } $line+=2;
close(SOURCE);
open(SOURCE, ">>$sourc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284656	284854	
==>",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 913 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpret <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	28356	28454	
==>ass.

'actual_ok' is a reflection of whether or not the test literally
printed 'ok' or 'not ok'.  T <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2368	2477	
==>', Attributes => { kind => $self->kind } });
  }

  if ($self->op) {
    $handler->start_element({ Name => 'bl <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	12645	12767	
==>locate(sizeof(HOP));
    const size_t hidx = hash_str(full ? info->full_name : info->name) % OP_HASH_SIZE;
    p->info = in <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	22514	22610	
==>y $rfail = $self->genlabel('nongreedy_star_fail');
        my ($R_back, @R_ops) = $self->rewrite( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54807	54924	
==>@stuff;
  # $out =~ s/\n */ /g if length($out) < 75;
  return $out;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10258	10369	
==>-----------------------------------------------------
sub unaccept_code { shift->unaccept_codes(@_) }

sub unacc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62409	62599	
==>" => 81,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 951 \"src/ops/core.ops\"\n  PARROT_ERRORS_on(interp <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	5687	5812	
==>hod' using the static type of C<SELF> (in
other words, calls another method defined in the same file).

=item C<DYNSELF.method <==
2	/Users/nnunley/parrot/config/gen/cpu/i386/auto.pm	463	625	
==>ld cc_run cc_clean);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    my @files = qw( memcpy_mmx.c memcpy_sse.c ) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478470	478808	
==>"io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 548,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 437 \"src/ops/math.ops\"\n <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1714	1872	
==>);

  return bless {
    DEBUG            => 1,
    ANON_BLOCK_COUNT => 0,
    BLOCK_COUNT      => 0,
    BLOCKS           => [ $root ], # Block stack
    ROOT <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093102	1093405	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "morph",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093904	1094207	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "morph",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1236	1375	
==>t == 0) {
          $path_to_language = File::Spec->join('languages', $language);
        } elsif ($dir_count == 1) {
          $path_to_lan <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1721	1860	
==>t == 0) {
          $path_to_language = File::Spec->join('languages', $language);
        } elsif ($dir_count == 1) {
          $path_to_lan <==
2	/Users/nnunley/parrot/config/init/hints/netbsd.pm	180	295	
==>');
    if ($ccflags !~ /-pthread/) {
        $ccflags .= ' -pthread';
    }
    $conf->data->set(ccflags => $ccflag <==
2	/Users/nnunley/parrot/config/init/hints/openbsd.pm	272	387	
==>');
    if ($ccflags !~ /-pthread/) {
        $ccflags .= ' -pthread';
    }
    $conf->data->set(ccflags => $ccflag <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	1973	2106	
==>devel]
    examples/sdl/bounce_parrot_logo.pir             [devel]
    examples/sdl/lcd/clock.pir                      [devel]
    exa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411011	411125	
==>ps/io.ops\"\n    {{\@1}} = (INTVAL)PIO_send(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411904	412018	
==>ps/io.ops\"\n    {{\@1}} = (INTVAL)PIO_send(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LA <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3235	3338	
==>cs);

    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs) <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3339	3442	
==>cs);

    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436954	437508	
==>AGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 501,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 94 \"sr <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2594	2707	
==>l = $CGI->param("smoke");

  my $id = md5_hex $html;
  if(glob "parrot-smoke-*-$id.html") {
    print "The submitt <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2421	2522	
==>file'
);

# These are the various types of files without suffix.

my %type_for_name = (
	'Artistic' => <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	17005	17203	
==>,
			"(" => 10,
			"|" => 26,
			"*" => 27,
			"[" => 14,
			")" => 65,
			"." => 15
		},
		GOTOS => {
			'expr' => 28,
			'charclass' => 12,
			'range' => 25
		}
	},
	{#State 56
		DEFAULT => -22
	}, <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	39706	39811	
==>ine 4";

	extract_tagged($text, '/para', '/endpara', undef,
				{reject => '/para', fail => MAX );

	# EXT <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	40020	40124	
==>ine 4";

	extract_tagged($text, '/para', '/endpara', undef,
			{reject => '/para', fail => MAX );

	# EXT <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5098	5211	
==>lf = shift;
  my ($handler) = @_;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $self->lef <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3161	3274	
==>lf = shift;
  my ($handler) = @_;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $self->lef <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188306	188603	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 224,
                  "A <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8710	8967	
==>}

    return $exit_code;
}

=item C<cc_gen($source)>

Generates F<test.c> from the specified source file.

=cut

sub cc_gen
{
    my ($source) = @_;

    genfile($source, "test.c");
}

=item C<cc_build($cc_args, $link_args)>

These items are used from curre <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	5099	5242	
==>obably only useful for checked out revisions
   # Checkout is done either with svn or svk
   my $svn_cmd;
   if (defined $Parrot::Revision::svn_ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	10419	10536	
==>Did not find closing tag", pos $$textref unless $@;
	pos($$textref) = $startpos;
	return;
}

sub extract_variable (;$$ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8497	8760	
==>(defined($_))
                && ($_ ne File::Spec->devnull)
                && (!m/^&/)) {
                open(my $out, $_);
                print <$out>;
                close $out;
            }
        }
    }

    return $exit_code;
}

=item C<cc_gen($source <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	927	1130	
==>ata;

use Class::Struct;

struct(
    'Parrot::Configure::Task' => {
        step    => '$',
        params  => '@',
        object  => 'Parrot::Configure::Step',
    },
);

=head2 Methods

=head3 Constru <==
2	/Users/nnunley/parrot/lib/Test/More.pm	16250	16368	
==>er
than just vomiting if its load fails.  For such purposes we have
C<use_ok> and C<require_ok>.

=over 4

=item B<use_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	2113	2219	
==>sub compile
{
  my $self = shift;

  my ($root, $fh) = @_;

  $fh = FileHandle->new(">-") unless defined $f <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1561	1710	
==>{
    my $self = shift;

    if (@_)
    {
        $self->{ARGS} = [ @_ ];
    }
    else
    {
        return $self->{ARGS};
    }
}

=item C<arg($in <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1170	1319	
==>{
    my $self = shift;

    if (@_)
    {
        $self->{ARGS} = [ @_ ];
    }
    else
    {
        return $self->{ARGS};
    }
}

=item C<arg($in <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	4736	4873	
==>e::MANY_LINES, " lines.\n";
      $self->SUPER::parse_lines(
        splice @{ $self->{'source_arrayref'} },
        0,
        Pod::Simpl <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	307	464	
==>g_private_h = 'src/string_private_cstring.h';

my ($result, $do_all, $do_init, $file);
$result = GetOptions(
    "all" => \$do_all,
    "init" => \$do_init,
) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384678	385279	
==>e_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 449,
                  "ARGS" => [
                              "p",
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interprete <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218873	219142	
==>rpreter, {{\@1}}), {{\@2}}) > 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219852	220121	
==>rpreter, {{\@1}}), {{\@2}}) > 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	7613	8237	
==>.\.\.)//
                and return ( $1, $1 );
            s/^(\.\.)//
                and return ( $1, $1 );
            s/^(<=)//
                and return ( $1, $1 );
            s/^(>=)//
                and return ( $1, $1 );
            s/^(==)//
                and return ( $1, $1 );
            s/^(~=)//
                and return ( $1, $1 );

            s/^([\{\}\(\)\[\]\.;,<>\+\-\*\/%\^#:=])//
                and return ( $1, $1 );    # punctuator

            s/^([\S]+)//
                and $parser->Error("lexer error $1.\n"),
                last;
        }
    }
}

sub _InitLexi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10950	11069	
==>::alternate::needparen { 1 }
sub Regex::Ops::Tree::alternate::render {
    my $op = shift;
    my $str = '';
    foreach <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1381	1493	
==>return "";
}

sub output_advance {
    my ($self, $distance, $failLabel) = @_;
    $failLabel = $self->output_lab <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1130	1242	
==>return "";
}

sub output_advance {
    my ($self, $distance, $failLabel) = @_;
    $failLabel = $self->output_lab <==
2	/Users/nnunley/parrot/config/auto/signal.pm	1080	1185	
==>_clean();

    cc_gen('config/auto/signal/test_2.in');
    eval { cc_build(); };
    unless ($@ || cc_run( <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8581	8692	
==>ame
{
    my $self = shift;
    my $path = $self->path_for_file_with_name(shift) || return;
    
    return unle <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1783	1931	
==>y $self = shift;
    my $path = shift;
    
    return unless defined $path and ! -f $path;
    
    return $self->SUPER::new($path);
}

=back

=head <==
2	/Users/nnunley/parrot/languages/converter.pl	231	332	
==>y $modifier = shift;
  return '' unless defined $modifier->[0];
  return '(?)'  if $modifier->[0] eq ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968685	968946	
==>> [
                              "i",
                              "i",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_strin <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	4383	4659	
==>w(@files)>

Returns a new instance initialized by calling C<read_ops()> on each of
the specified op files.

=cut

sub new
{
    my ($class, $files, $nolines) = @_;

    my $self = bless { PREAMBLE => '' }, $class;

    $self->read_ops($_, $nolines) for @{$files};

    # FILE h <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	1237	1364	
==>PPERCASE
    $ret |= 0x0002 if $chr =~ /^[[:lower:]]$/;  # CCLASS_LOWERCASE
    $ret |= 0x0004 if $chr =~ /^[[:alpha:]]$/;  # CC <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1130	1222	
==>ude -I/opt/local/include -pipe -fno-common -Wno-long-double  -I /opt/local/include   -g -Wall <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	1134	1226	
==>ude -I/opt/local/include -pipe -fno-common -Wno-long-double  -I /opt/local/include   -g -Wall <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	337	445	
==>ent::Call;

use Carp;

use base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033278	1033390	
==>ame = {{\@1}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n    if (PMC_IS_NULL(lex_p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034376	1034488	
==>ame = {{\@1}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n    if (PMC_IS_NULL(lex_p <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	20475	20635	
==>_->{'group'};
            } else {
                # Not a group; jump straight to instruction.
                my $name = $_->{'name'};
                $name =~ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	2930	3056	
==>params);

    return $self;
}

=item * C<add_steps()>

Registers a new step to be run at the end of the execution queue.

Accep <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	50107	50204	
==>r", $aftererror,$line);
				$item = new Parse::RecDescent::Directive(
					'Text::Balanced::extrac <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	50454	50551	
==>r", $aftererror,$line);
				$item = new Parse::RecDescent::Directive(
					'Text::Balanced::extrac <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5640	5754	
==>} = concat "\n"
PIR
	}

	return $pir;
}

# Pre and post store operation hooks.
sub pre_store($) {
	my $self = shift <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4482	4596	
==>} = concat "\n"
PIR
	}

	return $pir;
}

# Pre and post store operation hooks.
sub pre_store($) {
	my $self = shift <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	15692	15830	
==>( keys %extra );
            local *{ $call_pkg . '::TODO' } = \$extra{todo}
                if defined $extra{todo};

            my $pass <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	18243	18381	
==>( keys %extra );
            local *{ $call_pkg . '::TODO' } = \$extra{todo}
                if defined $extra{todo};

            my $pass <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	34218	34323	
==>Expected_Tests} == 1 ? '' : 's';
            $self->diag(<<"FAIL");
Looks like you planned $self->{Expecte <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	34554	34659	
==>Expected_Tests} == 1 ? '' : 's';
            $self->diag(<<"FAIL");
Looks like you planned $self->{Expecte <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	5115	5276	
==>/^\s*([\#\}])/) {
            # skip the last line of the func or cpp directives.
            $f = undef if ($1 eq "}");
            next;
        }

        if ( <==
2	/Users/nnunley/parrot/languages/m4/tools/scrutinize.pl	122	240	
==>r to not interfere with regression testing.

=head1 TODO

Find a better name. 'perlcritic' is already taken.

Look at t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	603025	603309	
==>{
                  "JUMP" => 0,
                  "NAME" => "classname",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1096131	1096415	
==>{
                  "JUMP" => 0,
                  "NAME" => "classname",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	690522	690813	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "thaw",
                  "FLAGS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691278	691569	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "thaw",
                  "FLAGS" = <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16314	16418	
==>rn,'.Undef',"FAIL_$label"]);
  $self->_add_inst ('', 'set', [$return,1]);
  $self->_add_inst ('', 'branch <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196462	196729	
==>}}, {{\@2}}, MMD_NUMCMP) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221751	222038	
==>}}, {{\@2}}, MMD_NUMCMP) > 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414566	414940	
==>> ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 478,
                  "ARGS" => <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	1774	1879	
==>ey/parrot/tools/build/pmc2c.pl] . $PATHQUOTE;

# Actual commands
sub compile_cmd {
    my ($target, $sourc <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	1865	1970	
==>ey/parrot/tools/build/pmc2c.pl] . $PATHQUOTE;

# Actual commands
sub compile_cmd {
    my ($target, $sourc <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6739	6865	
==>turn $self->forth;
}


#
# SKIPS:
#

sub skip_assign        { return shift->skip('assign');        }
sub skip_colon         { r <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1935	2035	
==>, $formal_arg_name) = @{$formal_args[$i]};
    my $actual_arg_type;

    if (UNIVERSAL::isa($args[$i] <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1635	1735	
==>, $formal_arg_name) = @{$formal_args[$i]};
    my $actual_arg_type;

    if (UNIVERSAL::isa($args[$i] <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	58815	58948	
==>_tagged($text, undef, undef, undef, {ignore => [$empty_tag]} );


C<gen_delimited_pat> may also be called with an optional second argu <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1753	1865	
==>NOPSIS

  % cat ptest.pod
  
  =head1 PIE
  
  I like B<pie>!
  
  % perl -MPod::Simple::SimpleTree -MData::Dumpe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79273	79377	
==>r : \"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      / <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80794	80898	
==>r : \"unknown reason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      / <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	75617	75813	
==>econtext
| ~~       |                                      |^<<<<<<<<<<<<<<<<<<<<<<<<<<<<
						   $tracecontext
.


select TRACECONTEXT;
$| = 1;

select STDOUT;

sub _verbosity($)
{
	   defined $: <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1318	1421	
==>ted_perl = $expected.perl;
    my $test := ($got_perl eq $expected_perl);
    Test::proclaim($test, $des <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	1458	1695	
==>e (@files) {
    $file =~ s/^\.\///g;
    if (!open(F, "<$file")) {
        error($file, 0, "Unable to open $file: $!\n");
        next;
    }

    my @lines = <F>;
    close(F);
    chomp @lines;

    for (@lines[0..10]) {
        next u <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	542	696	
==>cut

sub new
{
	my $self = shift;
	my $dist = Parrot::Distribution->new;
    my $dir = $dist->existing_directory_with_name('src/pmc');
	
	my @concrete_item <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556135	556606	
==>GDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 638,
                  "ARGS" => [
                              "p",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 115 \"src/ops/object.ops\"\n  opcode_t * <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4274	4376	
==>>

Returns the C code for the run core function declaration.

=cut

sub run_core_func_decl
{
    my ($s <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2762	2864	
==>>

Returns the C code for the run core function declaration.

=cut

sub run_core_func_decl
{
    my ($s <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	2258	2434	
==>'chmod' => 'perl -MExtUtils::Command -e ExtUtils::Command::chmod',
             'configdate' => 'Wed Jun 28 10:53:19 2006',
             'cp' => 'perl -MExtUtils::Command -e cp' <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28240	28408	
==>ntinue,
    );
    push @opcodes, new LabelOp( $parser,
        'arg1' => $l_break,
    );
    return \@opcodes;
}

sub BuildForNum {
    my ( $parser, $var, $e <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27361	27499	
==>ntinue,
    );
    push @opcodes, new LabelOp( $parser,
        'arg1' => $l_break,
    );
    return \@opcodes;
}

sub BuildRepeat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094720	1094982	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exec",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095414	1095676	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exec",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2644	2747	
==>>name ne $actual_arg_type->name) {
      my $temp = $compiler->temp_reg($formal_arg_type);
      my $val <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2344	2447	
==>>name ne $actual_arg_type->name) {
      my $temp = $compiler->temp_reg($formal_arg_type);
      my $val <==
2	/Users/nnunley/parrot/config/init/defaults.pm	4966	5344	
==>,
        chmod     => '$(PERL) -MExtUtils::Command -e ExtUtils::Command::chmod',
        ar        => $Config{ar},
        ar_flags  => 'cr',

        # for Win32
        ar_out => '',

        # for Borland C
        ar_extra      => '',
        ranlib        => $Config{ranlib},
        rpath         => '',
        make          => $Config{make},
        make_set_make => $Co <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6925	7045	
==>eturn_type, $name, $params, $section, $mmd) = @$entry;
        next unless $mmd eq '-1';

        my @params    = parse_p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830628	830714	
==>{\@1}};\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &i, STACK_EN <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831369	831455	
==>{\@1}};\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &i, STACK_EN <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	14425	14603	
==>or a reference to a hash containing named 
arguments to be passed to the element's constructor.

See Example 3 below for an example of initialization.

=head1 EXAMPLES

=over 4

= <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	141	261	
==>lder perls.
$^C ||= 0;

use strict;
use vars qw($VERSION);
$VERSION = '0.30';
$VERSION = eval $VERSION;    # make the alp <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4226	4345	
==>ch %$group_files) {
        partial_link($group, $group_libs->{$group}, [ "lib-$group", @$pmcs ] )
          or die "par <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4330	4449	
==>ch %$group_files) {
        partial_link($group, $group_libs->{$group}, [ "lib-$group", @$pmcs ] )
          or die "par <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	5053	5277	
==>', 'objects'),
        ),
        $self->new_group(
            'Strings', 
            '',
            $self->c_item(
                '', 
                'pairs' => ['string_primitives', 'string'],
                'headers' <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	6737	6877	
==>st = bless {}, $class . '::Const';
    $self->{const} = $const;
    my @methods = @{ $self->{methods} };
    # copy super
    $const->{super} <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	1854	1982	
==>ny.
    PREFIX  => $prefix, # Prefix, if given in source code.
    SYMBOLS => { },     # Identifiers
    CONTENT => [ ]      # Co <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	9777	10024	
==>startset { undef }

########################################################################
# Rendering - only used for debugging for now
########################################################################

package Regex::Ops::Tree; # Won't g <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60074	60372	
==>=> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "warningsoff",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60723	61021	
==>=> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "warningsoff",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i <==
2	/Users/nnunley/parrot/lib/Test/More.pm	1337	1441	
==>'Some::Module' ); }
  require_ok( 'Some::Module' );

  # Various ways to say "ok"
  ok($this eq $that, $t <==
2	/Users/nnunley/parrot/lib/File/Which.pm	2276	2446	
==>table, normal case
                 ($Is_MacOS ||  # MacOS doesn't mark as executable so we check -e
                  ($Is_DOSish and grep { $file =~ /$_$/i } @path_ext[1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	308966	309229	
==>AME" => "debug_load",
                  "FLAGS" => ":base_debug",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 360,
                  "AR <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	2588	2754	
==>($op, $next)=@_;
	#print STDERR "Precedence with '$op' and '$next'\n";

	return 5  if ($op eq "and");
	return 5  if ($op eq "eqv");
	return 5  if ($op eq "imp");
	retu <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2503	2637	
==>rned.

=cut

sub write_contents_html
{
	my $self = shift;
    my $source = shift || die "No source\n";
    my $target = shift || die "N <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16787	16889	
==>yzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
        # Leave out "- so that "--" won <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10231	10329	
==>yzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
    # Leave out "- so that "--" won <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	4251	4453	
==>st (t/film.t at line 14)
    ok 5 - NumExplodingSheep() get
    # Looks like you failed 1 tests of 5

Indicating the Film::Rating() method is broken.


=head1 CAVEATS

Test::Simple will only report a max <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	7880	8071	
==>lar type accessor:
    $element_value = $obj->s;           # element value
    $obj->s('new value');               # assign to element

                                    # array type accesso <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2084	2175	
==>l = "<p>$self->{TEXT}</p>\n\n" . $index_html if $self->{TEXT};
		$index_html = qq(<h2>$self- <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	27348	27450	
==>ce to an anonymous sub that is just like extract_tagged
# but pre-compiled and optimized for a specific <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	8799	9074	
==>hift->get_title(@_);
  $title = $1 if $title =~ m/^(\S{1,60})\s+--?\s+./s;
    # turn "Foo::Bar -- bars for your foo" into "Foo::Bar"
  return $title;
}

sub get_title       { shift->_get_titled_section(
  'NAME', max_token => 50, desperate => 1, @_)
}
sub get_version     { s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1156	1266	
==>global')) {
    my $pmc_type = $self->ident->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();
    $comp <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1150	1260	
==>global')) {
    my $pmc_type = $self->ident->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();
    $comp <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	11298	11458	
==>ULT => -2
	},
	{#State 2
		ACTIONS => {
			'NAME' => 4,
			'REPEAT' => 5,
			'FOR' => 6,
			"(" => 8,
			'IF' => 10,
			'FUNCTION' => 12,
			'DO' => 15 <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	4016	4322	
==>edoc_value;
            $in_heredoc = 0;
        }

        # Is this heredoc content?
        elsif ($in_heredoc) {
            $heredoc_value .= "$_\n";
        }

        # Otherwise, syntax eror.
        else {
            die "Syntax error on line $line (\"$_\")\n";
        }
    }

    # If we're sti <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	274	379	
==>l implementation of the F<examples/mops/mops.pasm> example program,
for speed comparisons.

Calculates a v <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	270	375	
==>l implementation of the F<examples/mops/mops.pasm> example program,
for speed comparisons.

Calculates a v <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6074	6166	
==>here already.
	$pir .= <<'PIR';
if 0x${CURIC} == 0x45 goto POST_BRANCH_switch_${CURIC}
${ITEM <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4012	4104	
==>here already.
	$pir .= <<'PIR';
if 0x${CURIC} == 0x45 goto POST_BRANCH_switch_${CURIC}
${ITEM <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	29831	30013	
==>, new BranchUnlessOp( $parser,
        'arg1'   => $_var,
        'op'     => '<=',
        'arg2'   => $_limit,
        'result' => $lbl_end,
    );
    my $lbl_blk = new_label <==
2	/Users/nnunley/parrot/config/inter/lex.pm	853	972	
==>data->set(flex_version => undef);

    unless ($conf->options->get('maintainer')) {
        $conf->data->set($util => 'e <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3055	3176	
==>ack.

=item C<expr OFFSET(X)>

Transforms to C<PC + X>. This is used to give a relative address.

=item C<expr NEXT()>

Tr <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6089	6225	
==>ibs{$group} ||= {};
        foreach my $lib ( keys %libs ) {
            $group_libs{$group}->{lib} = 1;
        }
    }

    return (\%g <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6300	6436	
==>ibs{$group} ||= {};
        foreach my $lib ( keys %libs ) {
            $group_libs{$group}->{lib} = 1;
        }
    }

    return (\%g <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11042	11223	
==>y = pop @{$var};
                    foreach my $key ( @{$var} ) {
                        push @opcodes, @{ $key->[1] };
                        my $result2 = new_tmp( $parser, ' <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9277	9446	
==>y = pop @{$var};
                foreach my $key ( @{$var} ) {
                    push @opcodes, @{ $key->[1] };
                    my $result2 = new_tmp( $parser, ' <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6663	6772	
==>OOP
POST_BRANCH_switch_${CURIC}_LOOP_EXIT:

POST_BRANCH_NOT_switch_${CURIC}:
PIR
	return $pir;
}

# Pre and po <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4601	4710	
==>OOP
POST_BRANCH_switch_${CURIC}_LOOP_EXIT:

POST_BRANCH_NOT_switch_${CURIC}:
PIR
	return $pir;
}

# Pre and po <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	87	266	
==>ings::register;
use vars qw(@ISA @EXPORT $VERSION);

use Carp;

BEGIN {
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(struct);

$VERSION = '0.61';
}
## Tested on 5.002 and 5. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979207	979677	
==>S" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1099,
                  "ARGS" => [
                              "i",
                              "i",
                              "sc",
                              "i <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	50471	50734	
==>line);
				$item = new Parse::RecDescent::Directive(
					'Text::Balanced::extract_variable($text,$skip);
					', $lookahead,$line,"<perl_variable>");
				$prod and $prod->additem($item)
				      or  _no_rule("<perl_variable>",$line);
			}
			elsif ($grammar =~ m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729485	729943	
==>ge",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "io"
                               ],
                  "TYPE" => "function",
                  "CODE" => 818,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 71 \"src/ops/set.ops\"\n   ST <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	1379	1500	
==>ILLET
			my $extra = substr($res[0], $extrapos-$startlen, $extralen, "\n");
			$res[1] = "$extra$res[1]";
			eval { substr <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1181	1322	
==>line
  }, $class;

  $block->push_content($self);

  foreach my $arg (@$args) {
    my ($arg_type, $arg_name, $arg_token) = @$arg;
    my $sym <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19893	20079	
==>"300!"
    goto FIN
oats:
	print "Oats",
	return
peas:
	print "Peas",
	return
beans:
	print "Beans",
	return

' Random number distribution
randomize timer
max=10
dim a(max)
for i = 0 to 1 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7610	7720	
==>"300!"
    goto FIN
oats:
	print "Oats",
	return
peas:
	print "Peas",
	return
beans:
	print "Beans",
	return

' <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	21689	21830	
==>e indented and marked with a # so as not to interfere
with test output.  A newline will be put on the end if there isn't one
already.

We enco <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6598	6726	
==>and	print STDERR "Shift and go to state $act.\n";

					$$errstatus
				and	do {
					--$$errstatus;

#DBG>					$debug & 0x <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6291	6413	
==>and	print STDERR "Shift and go to state $act.\n";

					$$errstatus
				and	do {
					--$$errstatus;

#DBG>					$debug & 0x <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	4996	5117	
==>t::MD5 together with Digest::Perl::MD5
and use Digest::MD5 as normal, it falls back to Digest::Perl::MD5 if it
cannot load <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	445402	445678	
==>ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 119 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_ppp(int <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48919	49171	
==>tion of zero, nor can they have
					       negative components in their ranges.");
				}
			}
			
			$prod && $prod->enddirective($line,$minrep,$maxrep);
		}
		elsif ($grammar =~ m/\G\s*<[^m]/gc)
		{
			pos($grammar)-=2;

			if ($grammar =~ m/$OPMK/gco <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	42448	42632	
==>(my $i = 2; $i < @$p; $i++) { # work backwards over the lines
    DEBUG and print "_verbatim_format appends a newline to $i: $p->[$i]\n";
    $p->[$i] .= "\n";
     # Unlike with simple <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	5109	5292	
==>\n";
    }
    return $pir;
}


# Usage message.
# ##############
sub usage() {
    print <<USAGE;
Usage:
  perl build/builtins.pl src/internal.methods --ouptput src/builtins.pir
USAGE <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	1319	1440	
==>()
#
# Returns the number of tokens.
#

sub count
{
  my $self = shift;

  return scalar(@{$self->{TOKENS}});
}


#
# pos( <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	32056	32211	
==>=> 24,
			'TRUE' => 25,
			'NOT' => 27,
			'STRING' => 29,
			'NIL' => 30,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36,
			'NAME' => 4, <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33428	33561	
==>ate 118
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	1814	1940	
==>| $Latin1Code_to_fallback{$in} # Fallback.
        || $FAR_CHAR; # Fall further back
  }
  
  # Normal handling:
  if($in =~ m/ <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1408	1545	
==>if ($dir_count == 2) {
          $path_to_language = '.';
        } elsif ($dir_count >2) {
          $path_to_language = File::Spec->join <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1893	2030	
==>if ($dir_count == 2) {
          $path_to_language = '.';
        } elsif ($dir_count >2) {
          $path_to_language = File::Spec->join <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561939	562037	
==>(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", {{\@3}});\n  }\n  {{=next} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563023	563121	
==>(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", {{\@3}});\n  }\n  {{=next} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407112	407390	
==>nction",
                  "CODE" => 470,
                  "ARGS" => [
                              "s",
                              "ic",
                              "sc"
                            ],
                  "BODY" => "#line 535 \"src/ops/io.ops\"\n    {{\@1}} <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	5993	6195	
==>) {
                    die "Duplicate value for push in rule $rule->{'name'}\n";
                } else {
                    $has_push = 1;
                }
            } else {
                die "I <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	27975	28081	
==>ine'},
      "Unknown =extend syntax: $content"
    )
  }
  return;
}


#:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:. <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	566	670	
==>Parrot::Test::per_test('.out',$count);
    my $parrotdir = dirname $self->{parrot};

    my $args = $ENV{ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	603	707	
==>Parrot::Test::per_test('.out',$count);
    my $parrotdir = dirname $self->{parrot};

    my $args = $ENV{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	9060	9168	
==>version     { shift->_get_titled_section(
   'VERSION',
    max_token => 400,
    accept_verbatim => 1,
    m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670627	670745	
==>s/pmc.ops\"\n    {{\@1}}->vtable->push_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671400	671518	
==>s/pmc.ops\"\n    {{\@1}}->vtable->push_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	647	831	
==>ee, $ctx, $pass_label, $fail_label, %options) = @_;

    $options{state} ||= global_state();

    # Tree optimizations
    unless ($options{'no-tree-optimize'}) {
        my $opt1 = Reg <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	9025	9160	
==>bol = $TypeLong ? "init" : "D";
			    } elsif ($uninit) {
				$symbol = $TypeLong ? "uninit" : "B";
			    } else {
				$symbol = $Type <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	1407	1553	
==>ta->set(gccversion => undef);
        return $self;
    }
    if ($major =~ tr/0-9//c) {
        undef $major; # Don't use it
    }
    if (defined <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4712	4956	
==>e(F);

    # filter out things that start with _.  Probably internal libc stuff.
    my @external_calls = grep { ! /^_/ } sort keys %external_calls;
    my @internal_calls = grep { ! /^_/ } sort keys %internal_calls;
    my @non_ansi_external_ca <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	1593	1696	
==>cc_shared' => ' ',
             'ccflags' => '-I/opt/local/include -fno-common -no-cpp-precomp  -pipe -W <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	6483	6741	
==>);
                $val;
            } else {
                warn "value for '$1' in $source is undef";
                '';
            }
        }egx;

        if ($options{replace_slashes}) {
            $line =~ s{(/+)}{
                my $len = length $ <==
2	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	110	225	
==>15.110975Z coke  $

package init::hints::dec_osf;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    # Tru <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	19485	19681	
==>' => 'eq',
	'>' => 'le',
	'>=' => 'lt',
	'<' => 'ge',
	'<=' => 'gt',
	'is' => 'ne_addr',
	'is not' => 'eq_addr',
    );
    my %op_map = (
	'==' => 'eq',
	'!=' => 'ne',
	'>' => 'gt',
	'>=' => 'ge', <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	9964	10111	
==>/W3C//DTD XHTML 1.1//EN"
  "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
<head>
  <title <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	258	369	
==>P.

=cut

package auto::gmp;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511343	511697	
==>:base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 589,
                  "ARGS" => [
                              "n",
                              "n"
                            ], <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	60316	60409	
==>ended.
On success, the C<$@> variable is guaranteed to be C<undef>.

The available diagnostics <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	6790	6912	
==>P1
    dec op1
    goto pos
neg:
    unless op1 goto done
    # pop off the end and unshift onto the beginning
    $P1 = po <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	49	145	
==>ack to register mapper. Simple and stupid.
# Inherits from SRM::Base.

package SRM::Stack;
use st <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	5269	5367	
==>ne of (" . join(", ", @_) . ")" : $_[0], $self->get(1)->text)
    unless grep { $self->get(1)->kind <==
2	/Users/nnunley/parrot/config/gen/icu.pm	2344	2561	
==>s;
            }

            if ($without) {
                $self->set_result("failed");
            }
        }
    }

    if ($verbose) {
        print "icuconfig: $icuconfig\n"  if defined $icuconfig;
        prin <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6667	6813	
==>unless match goto match_fail
          match_success:
            print "matched"
            goto match_end
          match_fail:
            prin <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7684	7830	
==>unless match goto match_fail
          match_success:
            print "matched"
            goto match_end
          match_fail:
            prin <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	334	437	
==>r;
use vars qw ( @ISA );
use strict;

@ISA= qw ( Parse::Yapp::Driver );
#Included Parse/Yapp/Driver.pm f <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1322	1483	
==>urn $code;
}

sub list_to_pasm {
    my ($list_regex, $ctx, %options) = @_;
    my $cgen;

    $options{state} ||= global_state();
    $options{module} ||= "Regex <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	6260	6411	
==>n <<END_C;
        ${bs}ops_addr = (void**) init;
END_C
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	11289	11449	
==>ine)";
            }

            # $test_no will be part of temporary file
            my $test_no = $builder->current_test() + 1;

            # Name of the fi <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	16774	16934	
==>ine)";
            }

            # $test_no will be part of temporary file
            my $test_no = $builder->current_test() + 1;

            # Name of the fi <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2032	2147	
==>less($self,$class);
}

sub YYParse {
    my($self)=shift;
    my($retval);

	_CheckParams( \@params, \%params <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1960	2068	
==>less($self,$class);
}

sub YYParse {
    my($self)=shift;
    my($retval);

	_CheckParams( \@params, \%params <==
2	/Users/nnunley/parrot/config/init/hints/darwin.pm	1256	1435	
==>c libparrot installable_parrot records
        # the path to the blib version of the library
        parrot_is_shared     => 0,
        libparrot_shared        => 'libparrot.$(SOVE <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	17707	17839	
==>v = shift;

    # Make a copy of the original instruction code before we trash it.
    foreach (@rules) {
        $_->{'orig_code'} = <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	14347	14549	
==>ist of inherited methods for I<$class> by searching the
inheritence tree. The method list is found in I<$vtable>.

=cut

sub gen_super_meths {
    my ($self, $vt, $all) = @_;

    # look through all meth <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	260	396	
==>nt | double | float | char' ],
        [ ident   => '\w+' ],
        [ _MASTER => ':w<type> <ident>' ],
    ],
    "simple subrules test" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	7128	7338	
==>y)
YNOTX
	} elsif (@codex and not @codey) {
	push @{$code{$seg}->{code}},<<XNOTY;
@codex	noop		# Broke!
	_screen_locate($resultx)
XNOTY
	}
}
sub parse_color {
	my($f,$b);
	my($resultb, $typeb, @codeb);
	my($resu <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	12740	12847	
==>mpl_loop name=smokes>
          <tr>
            <td class="indent2">Parrot&nbsp;<tmpl_var name=VERSION></td <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11283	11393	
==>th
${STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
pre_call_NO_RETURN_${CURIC}:

# Finished.
goto PRE_CALL_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8469	8579	
==>th
${STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
pre_call_NO_RETURN_${CURIC}:

# Finished.
goto PRE_CALL_ <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	2528	2657	
==>zeof('op');
	push @pc_list, $pc;
	$opcodes{$pc}->{op} = $op;
        $new_pc   = $pc + $op->size;

        @args = ();

        fo <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	14829	15028	
==>cf      math.h
truncl      math.h
ungetc      stdio.h
vfprintf    stdio.h
vfscanf     stdio.h
vprintf     stdio.h
vscanf      stdio.h
vsprintf    stdio.h
vsscanf     stdio.h
UNDEF       assert.h
UNDEF <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965304	965802	
==>lass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1086,
                  "ARGS" => [
                              "i",
                              "ic",
                              "s",
                              "i" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	10464	10597	
==>ght);
      }
      else {
        $self->INTERNAL_ERROR("Unexpected loop kind %s!", $kind);
      }

      push @{$self->{BLOCKS}}, $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7166	7285	
==>eg = value(defined($reg) ? $reg : 'pos');
    return $self->output_pushint($reg);
}

sub output_pushint {
    my ($self, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6808	6927	
==>eg = value(defined($reg) ? $reg : 'pos');
    return $self->output_pushint($reg);
}

sub output_pushint {
    my ($self, <==
2	/Users/nnunley/parrot/config/init/hints.pm	748	1094	
==>al "use $hints";
    die $@ if $@;

    # call the runstep method if it exists.  Otherwise the step must have done
    # it's work when it was loaded.
    $hints->runstep($conf, @_) if $hints->can('runstep');
    $hints_used++;

    $hints = "init::hints::local";
    print "$hints " if $verbose;
    eval "use $hints";
    unless ($@) {
        $ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	8763	8888	
==>$err;

    open  STDOUT, ">&OLDOUT" or die "Can't restore  stdout" if $out;
    open  STDERR, ">&OLDERR" or die "Can't restore <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8283	8406	
==>$err;

    open STDOUT, ">&OLDOUT" or die "Can't restore  stdout" if $out;
    open STDERR, ">&OLDERR" or die "Can't restore <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351384	351642	
==>i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 409,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 190 \"src/ops/io.ops <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2760	2881	
==>result}->{symbol} = $op->{arg1}->{symbol}\[$op->{arg2}->{symbol}\]\n";
    }

    sub visitKeyedSetOp {
        my $se <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2693	2791	
==>d in.

This is a subclass of L<Pod::Simple> and inherits all its methods.

=head1 SEE ALSO

L<Pod:: <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2205	2321	
==>epends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test::proclaim(undef, $d <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2600	2716	
==>epends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test::proclaim(undef, $d <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	8628	8763	
==>ne"
	}
	feedme();
	die "Expecting AS" unless $syms[CURR] eq "as";
	feedme();
	die "Expecting #" unless $syms[CURR] eq "#";
	feedme();
	$ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	47536	47643	
==>ver, the matching position of the input variable would be set to
"exit;" (i.e. I<after> the closing delimite <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	71832	71959	
==>omatically created.");

					$self->_generate("$call : '$call'",0,1);
				}
			}
		}

	# CHECK FOR LEFT RECURSION

		if ($rule-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528687	528994	
==>}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529569	529876	
==>}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan", <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	939	1032	
==>fine NREG(i) REG_NUM(cur_opcode[i])
#define PREG(i) REG_PMC(cur_opcode[i])
#define SREG(i) REG <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1055	1148	
==>fine NREG(i) REG_NUM(cur_opcode[i])
#define PREG(i) REG_PMC(cur_opcode[i])
#define SREG(i) REG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408298	408508	
==>1}} = (INTVAL)PIO_connect(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409197	409407	
==>1}} = (INTVAL)PIO_connect(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3302	3419	
==>d;
  }

  my $i = ' ' x ( 2 * $self->{'Indent'} + 4);
  
  $self->{'Thispara'} =~ s/^/$i/mg;
  
  print { $self->{'out <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	735058	735321	
==>[
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 139 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033154	1033248	
==>Y" => "#line 41 \"src/ops/var.ops\"\n    parrot_context_t * const ctx = CONTEXT(interpreter->ct <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034252	1034346	
==>Y" => "#line 41 \"src/ops/var.ops\"\n    parrot_context_t * const ctx = CONTEXT(interpreter->ct <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3754	3896	
==>ve
	# nothing to do here.
	if ($need_dest) {
		$pir .= <<'PIR'
# Just got it in the 0th register of the appropriate type.
${DEST0} = "$"
${STEM <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1176	1313	
==>{relpath}, 
            STDOUT => $pasm_f, STDERR => $pasm_f,
        );
        Parrot::Test::run_command( 
            "./parrot languag <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1085	1222	
==>{relpath}, 
            STDOUT => $pasm_f, STDERR => $pasm_f,
        );
        Parrot::Test::run_command( 
            "./parrot languag <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	12763	12995	
==>ctions, give 0 and 3 (modified)
type first
	foo as integer
	bar as string
end type
type second
	other as first
	narf as double
	pnext as first
end type
type third
	number as integer
	start as second
end type
dim y as third
t=y.start. <==
2	/Users/nnunley/parrot/Configure.pl	2705	2821	
==>Use the given PMC files.

=item C<--cgoto=0>

Don't build cgoto core. This is recommended when you are short of memor <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2346	2460	
==>ess $right_sym;
    $right_type = $right_sym->type;
  }
  else {
    $right_type = $right->type;
  }

  $self->INTE <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2268	2382	
==>ess $right_sym;
    $right_type = $right_sym->type;
  }
  else {
    $right_type = $right->type;
  }

  $self->INTE <==
2	/Users/nnunley/parrot/languages/scheme/Scheme.pm	148	301	
==>::Tokenizer();
use Scheme::Parser();
use Scheme::Generator();
use Scheme::Builtins;

=head1 SUBROUTINES

=head2 new

A constructor

=cut

sub new {
  my ( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	2135	2318	
==>f ($cond eq 'if') {
      $op = $compiler->invert_relop($op);
    }
    else {
      $cond = 'if';
    }

    $anon = $compiler->anon_lbl();

    $compiler->emit("  $cond $left $op $ri <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	696	816	
==>der the same copyright as the Parse::Yapp module itself.
#
# This notice should remain unchanged.
#
# (c) Copyright 1 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	676	792	
==>der the same copyright as the Parse::Yapp module itself.
#
# This notice should remain unchanged.
#
# (c) Copyright 1 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33381	33544	
==>ar' => 35,
			'primary' => 28
		}
	},
	{#State 118
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." = <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	6644	6775	
==>e = <$file>)
    {
        # rename labels
        if ($line =~ /^\s* (\w+) \s* : \s*$/mx) {
            $code .= emit($1."_%0:", 'l <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	1927	2107	
==>_}="#defined";
    }
    
    
    # post-process the file to find function declarations which would not
    # have been properly formatted, unfortunately.
    my $fdecls = $c->get( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11073	11289	
==>gth <rx_len>, <rx_input> # cache the length in <rx_len>

END

    push @ops, $self->output($startup, $self->{ctx});

    push @ops, split(/\n/, <<"END");
  if <rx_mode> goto $trymatch
  goto $backup
END

    return @o <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	7492	7649	
==>ml for writing: $!\n";

    print OUT page_header("File Coverage Summary");
    print OUT qq(
            <i>You may click on a percentage to see line-by-line <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11398	11495	
==>!";
  }
  ...else print/interpolate $text...

=head1 DESCRIPTION

This module provides things that <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	819	1084	
==>EXPORT = ();
our @EXPORT_OK = qw(prompt genfile copy_if_diff move_if_diff integrate
                    cc_gen cc_build cc_run cc_clean cc_run_capture capture_output
                    check_progs);
our %EXPORT_TAGS = (
    inter => [ qw(prompt integrate) ],
    au <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	591	705	
==>\n"
}

my $done = 0;
my $total = 0;
map { $done += $_->{'done'}; $total += $_->{'total'}; } @results;
my $per <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105071	105280	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105808	106017	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3081	3189	
==>te') {
    # Convert X.pmc -> X.dump and X.c and also create any lib-GROUP.c files

    generate_dump($_) for <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3185	3293	
==>te') {
    # Convert X.pmc -> X.dump and X.c and also create any lib-GROUP.c files

    generate_dump($_) for <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	2815	3001	
==>lt["!RESULT"]
    if matched goto printResults

printMatchFailed:
    print "Match failed\n"
    goto done
printResults:
    print "Match found\n"
    .local int num_groups
    .local int <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	1017	1148	
==>o )
	    {
	        push(@abstract_items, 
	            $self->new_item('', $dist->relative_path($file)));
	    }
	}
	
	return $self <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	646	740	
==>he Tcl CVS repository, convert them into a a TAP-style
protocol that can then use Test::Harness <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28364	28537	
==>sub BuildForNum {
    my ( $parser, $var, $e_start, $e_limit, $e_step, $block ) = @_;
    my @opcodes = ();
    unless ( defined $e_step ) {
        $e_step = BuildLitera <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	12029	12154	
==>tch{'!RESULT'} = undef;
$rx_match{'0'}->[1] = undef;
$rx_match{'!STACK'} = \$rx_stack;
return \%rx_match;
END
}

sub output_ca <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1691	1799	
==>)
        : Parrot::Test::PGE::_generate_pir_for($target, $pattern)
    );

    goto &Parrot::Test::pir_outpu <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2214	2322	
==>)
        : Parrot::Test::PGE::_generate_pir_for($target, $pattern)
    );

    goto &Parrot::Test::pir_outpu <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3308	3420	
==>di");
#else
    opcode_t *cur_opcode = cur_op;
    char * _reg_base;
#endif

SWITCH_RELOAD:
    _reg_base = (char <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11300	11415	
==>and factorial of 4 is 24
function factorial(a)
	if a then factorial=a*factorial(a-1) else factorial=1
end function
t <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6908	7047	
==>]->is_end
            and $to_unget[-1]->tagname eq $tagname;
    }
    
    # Convert them into an anchor name;
    
    my $name = $self-> <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	19088	19188	
==>d to C<Class::Struct> and modified by Jim Miner, 1997-04-02.

    members() function removed.
    Doc <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	26205	26394	
==>e "B", "M,I", etc.
      $self->whine(
        $para->[1]{'start_line'},
        "Format for third =extend parameter: like foo or bar,Baz,qu:ux but not like "
        . $elements_one
      ) <==
2	/Users/nnunley/parrot/config/auto/pack.pm	2235	2372	
==>ters.
    #

    if ($intsize == $ptrsize) {
        $conf->data->set(ptrconst => "u");
    } elsif ($longsize == $ptrsize) {
        $con <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441572	441659	
==>ps/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442587	442674	
==>ps/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1 <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	21035	21208	
==>t_map ) {
        push @EXPORT, $func;
        no strict 'refs';

        *{$package.'::'.$func} = sub {
            my ($example_f, $expected, @options) = @_;

            m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	308236	308465	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "debug_init",
                  "FLAGS" => ":base_debug",
                  "ARGDIRS" => [],
                  "TYPE" => "function",
                  "CODE" => 359, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443601	443688	
==>ps/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444616	444703	
==>ps/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1 <==
2	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	105	201	
==>puts have
changed, as judged by their checksums.

=head1 USAGE

  rebuild.pl [-v] <command> <inpu <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	96	346	
==>-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::OpTrans::CGoto - CGoto Transform

=head1 DESCRIPTION

Used to generate C code from Parrot operations.

C<Parrot::OpTrans::CGoto> inherits from C<Parrot::OpTrans> to provide a
C C<goto> run loop <==
2	/Users/nnunley/parrot/config/init/hints/cygwin.pm	339	477	
==>of it
    my $libs = $conf->data->get('libs');
    $libs =~ s/-lutil\b//g;

    my $build_dir = $conf->data->get('build_dir');
    $build_d <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	516	638	
==>d        = $self->kind;
  my $peer        = $self->peer;

  my $prefix;

  if ($self->prefix) {
    $prefix = $self->prefix <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	496	618	
==>d        = $self->kind;
  my $peer        = $self->peer;

  my $prefix;

  if ($self->prefix) {
    $prefix = $self->prefix <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4540	4634	
==>ako::Construct::Block");
  confess "Extra arguments!" if @_;

  return keys %{$self->{SYMBOLS}} <==
2	/Users/nnunley/parrot/config/gen/icu.pm	4636	4810	
==>int "Adding -I $icuheaders to ccflags for icu headers.\n" if $verbose;
        $conf->data->add(' ', ccflags => "-I $icuheaders");
    }
    cc_clean();

    $self->set_result <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	1480	1579	
==>`cat` and dispatch
on file suffix.

=item * Finish making this usable as a library.

=item * It woul <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	1836	1979	
==>ions}}) {
		if (exists $main::common{$var}) {
			push(@saves, $var);
		}
	}
	if (@saves) {
		print CODE qq{\t\t# Grab "COMMON" variables from gl <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3127	3250	
==>ions}}) {
		if (exists $main::common{$var}) {
			push(@saves, $var);
		}
	}
	if (@saves) {
		print CODE qq{\t\tfind_global _ <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	848	1102	
==>Iterations:    $I4\n"; # print  "Iterations:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	848	1102	
==>Iterations:    $I4\n"; # print  "Iterations:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7621	7829	
==>report it as a BUG.\n";
                $$dotpos = $1;
            };

            @sempar =       $$dotpos
                        ?   map { $$_[1] } @$stack[ -$$dotpos .. -1 ]
                        : <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7274	7476	
==>report it as a BUG.\n";
                $$dotpos = $1;
            };

            @sempar =       $$dotpos
                        ?   map { $$_[1] } @$stack[ -$$dotpos .. -1 ]
                        : <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	9233	9378	
==>h
coshl       math.h
cosl        math.h
cpow        complex.h
cpowf       complex.h
cpowl       complex.h
cproj       complex.h
cprojf      comple <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1219	1360	
==>guages/$pasm_f @other",
            CD => '..', # $self->{relpath}, 
            STDOUT => $out_f, STDERR => $out_f, 
        );
        my $p <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	8810	8914	
==>_footer();

    close(OUT);
}



sub write_function_coverage_summary {

    print "Writing $HTMLDIR/funct <==
2	/Users/nnunley/parrot/Configure.pl	8671	8812	
==>pt you for a few
pieces of info.

Since you're running this script, you obviously have Perl 5--I'll be pulling
some defaults from its configur <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	30443	30699	
==>ush @opcodes, @{ $var->[1] };
    push @opcodes, new AssignOp( $parser,
        'result' => $var->[0],
        'arg1'   => $_var,
    );

    foreach my $op ( @{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	3699	3854	
==>y_paths()
{
    my $self = shift;
    
    return map  {
        File::Spec->catfile($self->{PATH}, $_)
    } $self->file_and_directory_names;
}

=item C<fi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	3295	3432	
==>atch_end
    set match_start, result[match_num;0]
    set match_end, result[match_num;1]
    eq match_start, -2, skipPrint
    eq match_en <==
2	/Users/nnunley/parrot/config/gen/config_h.pm	2177	2297	
==>_HAS_\U$1 1\n";
        }
    }
    print HH <<EOF;

/*
 * D_(\\w+) config entries
 */

EOF
    for (sort($conf->data->ke <==
2	/Users/nnunley/parrot/config/auto/pack.pm	1883	2100	
==>ormat' gave %d bytes.
AARGH
            }
        } else {
            $format = '?';
        }

        $conf->data->set($which => $format);
    }

    $conf->data->set(
        packtype_b => 'C',
        packtype_n = <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3600	3718	
==>N');
    $self->_add_inst ('', 'set', [$return,$value]);
  }
  else {
    $return = $self->_save_1 ('I');
    $self->_a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5661	5891	
==>> 0,
                  "NAME" => "load_bytecode",
                  "FLAGS" => ":load_file",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inlin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6326	6556	
==>> 0,
                  "NAME" => "load_bytecode",
                  "FLAGS" => ":load_file",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inlin <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	17377	17527	
==>r = concat tmp
    gen_pir = concat ": "
NOT_FINALLY_START:

    # Goto next handler.
    goto EH_LOOP
END_EH_LOOP:
PIRCODE

    # Return generated cod <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23344	23560	
==>right);
      next;
    }

    #
    # Loop Control Statements:
    #
    #   next;
    #   next if     (<value> <op> <value>);
    #   next unless (<value> <op> <value>);
    #
    #   next <label>;
    #   next <lab <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4010	4103	
==>s defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "No symbol n <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6178	6271	
==>s defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "No symbol n <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1368	1491	
==>}, 
            STDOUT => $out_f, STDERR => $out_f, 
        );
        my $prog_output = Parrot::Test::slurp_file( "$out_f" <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1284	1407	
==>}, 
            STDOUT => $out_f, STDERR => $out_f, 
        );
        my $prog_output = Parrot::Test::slurp_file( "$out_f" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	310600	310771	
==>erpreter->pdb->cur_opcode = (opcode_t *)cur_opcode + 1;\n    PDB_set_break(interpreter,NULL);\n\n    {{+=1}};\n",
                  "LABELS" => []
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	310217	310328	
==>erpreter->pdb->cur_opcode = (opcode_t *)cur_opcode + 1;\n        PDB_set_break(interpreter,NULL);\n        while <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676029	676120	
==>c.ops\"\n    {{\@1}}->vtable->unshift_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676809	676900	
==>c.ops\"\n    {{\@1}}->vtable->unshift_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724781	725075	
==>{
                  "JUMP" => 0,
                  "NAME" => "print_newline",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 812, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	512	644	
==>r match, or just
# abort and return to $lastback.
#

sub new {
    my ($proto, %options) = @_;
    my $self = bless \%options, (ref($ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	44706	44839	
==>*)+)/


  return;
}


sub _change_S_to_nbsp { #  a recursive function
  # Sanely assumes that the top node in the excursion won't be a <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6613	6819	
==>} || return;
    
    if ( $tagname eq 'item-text' )
    {
        $self->{IN_ITEM_TEXT} = 1;
    }
    
    my @to_unget;
    
    # Get all the contained tokens, including the end token.
    
    while ( 1 <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20367	20459	
==>nst('','gt',[$temp_0,$temp_1,"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	16662	16792	
==>lue =~ m/^\d+$/s;
      if($value > 255) {
        push @good , sprintf "   %-10s , chr(%s),\n", "'$name'", $value;
        push @b <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	1015	1233	
==>_config_pm(%config);


# #############################################################################


# Get Parrot Configuration
# ########################
sub get_parrot_config($$) {
	# Try to include confi <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9113	9365	
==>if'></a>";
    }
    elsif ( $tagname eq 'C' )
    {
        # See the note in process_code_start_token() above.
        print {$self->{'output_fh'}} '</b>' if $self->{IN_ITEM_TEXT};
    }
    elsif ( $tagname eq 'item-text' )
    {
        $self->{IN_I <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	371586	371678	
==>ot read line from empty filehandle\");\n\n    if (!(io->flags & PIO_F_LINEBUF))\n\tPIO_setlin <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1248	1356	
==>FFS(o) (_reg_base + ((opcode_t*)cur_opcode)[o])

END
}

=item C<goto_address($address)>

Transforms the C<got <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11564	11760	
==>esult="";
	foreach my $token (@stream) {
		my($sym,$type,$op)=@$token;
		#print "Dealing with $sym $type $op\n";

		if (! $op) {
			push @work, $token;
			next;
		}
		next if ($sym eq ",");  # Comm <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	3434	3548	
==>ibute="Octal" context="#stay" />
          <HlCHex attribute="Hex" context="#stay" />
          <Float attribute="F <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965654	965931	
==>RGS" => [
                              "i",
                              "ic",
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclas <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432453	432544	
==>n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433468	433559	
==>n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}} <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	1969	2085	
==>(SOVERSION)',
    );

    if ((split('-', $Config{archname}))[0] eq 'ia64') {
        $conf->data->set(platform_asm = <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	81	200	
==>.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Section - Documentation section

=head1 SY <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612985	613135	
==>\n    VTABLE_set_attr_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613892	614042	
==>\n    VTABLE_set_attr_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436511	436673	
==>n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437526	437688	
==>n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	14162	14325	
==>,
  ;

  push @out, 
    ['=back',  {'start_line' => $m, 'errata' => 1}, ''],
  ;

  DEBUG and print "\n<<\n", pretty(\@out), "\n>>\n\n";

  return @out;
}

}

#@@@ <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2459	2616	
==>defined variable.
##
sub choose {
    for (@_) {
        return $_ if defined $_;
    }
    return;
}

##
## %tests = extract_tests($string)
##
## Extract the <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	241	638	
==>ser} = $parser;
        $self->{table}  = {};
        return $self;
    }

}

################################################################################

package SymbTabVar;
use base qw(Lua::symbtab);
{

    sub Lookup {
        my $self = shift;
        my ($symb) = @_;
##    warn "Lookup $symb\n";
        if ( exists $self->{table}{$symb} ) {
            my $defn = $sel <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	12134	12309	
==>,
                $back => aop('increment', [ -1, $lastback ]),
                         aop('goto', [ $lastback ]),
                $next =>
               );

    return ($ba <==
2	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	676	861	
==>ash reference where the macro_name is the key
macros:             macro(s)
                  { my $dummy = { map { $_->[0] => 
                                        { flag         => $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6521	6666	
==>t > 0
            and do {        #shift

#DBG>				$debug & 0x04
#DBG>			and	print STDERR "Shift and go to state $act.\n";

					$$errstatus <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6218	6357	
==>t > 0
            and do {        #shift

#DBG>				$debug & 0x04
#DBG>			and	print STDERR "Shift and go to state $act.\n";

					$$errstatus <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1968	2065	
==><create_path()>

This is called from C<new()> to create the path if necessary.

=cut

sub create_p <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	945	1042	
==><create_path()>

This is called from C<new()> to create the path if necessary.

=cut

sub create_p <==
2	/Users/nnunley/parrot/Configure.pl	7522	7664	
==>if you specify any other
                        of the following ICU options.

   If you do not have a full ICU installation:

   --without-ic <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	195838	196048	
==>ARROT_JUMP_RELATIVE",
                  "NAME" => "lt_num",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i", <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20375	20481	
==>] eq "PUN" and $syms[CURR] eq "*") {
				print "WARNING: * in TYPE not supported yet for $name\n";
				feed <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	51871	51987	
==>iple>

The C<extract_multiple> subroutine takes a string to be processed and a 
list of extractors (subroutines or re <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	8861	9024	
==>}
sub parse_close {
	feedme();
	die "Expecting # at $sourceline" unless $syms[CURR] eq "#";
	feedme();
	$fd=$syms[CURR];
	push @{$code{$seg}->{code}},<<CLOSE;
	_CLO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902719	903129	
==>FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1018,
                  "ARGS" => [
                              "s",
                              " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806810	807025	
==>i",
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 497 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed(in <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	6530	6706	
==>typey, @codey);
	my($resultx, $typex, @codex);
	if ($type[NEXT] =~ /PUN/) {  # Y only
		feedme();
		($resulty, $typey, @codey)=EXPRESSION();   # Y (only)
	} else {
	    	($resul <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903738	904288	
==>FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1019,
                  "ARGS" => [
                              "s",
                              "ic",
                              "ic",
                              "sc"
                            ],
                  "BODY" => "#lin <==
2	/Users/nnunley/parrot/lib/Test/More.pm	19562	19659	
==>:Harness>.

The way Test::More handles this is with a named block.  Basically, a
block of tests wh <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53245	53351	
==>::RecDescent::UncondReject($lookahead,$line,$code);
				$prod and $prod->additem($item)
				      or  _no_r <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54954	55060	
==>::RecDescent::UncondReject($lookahead,$line,$code);
				$prod and $prod->additem($item)
				      or  _no_r <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeSmart.pm	371	547	
==>sub encmodver {
  return "Encode.pm v" .($Encode::VERSION || '?');
}

sub make_transcoder {
  my($e) = $_[1];
  die "WHAT ENCODING!?!?" unless $e;
  my $x;
  return sub {
    fo <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	1128	1261	
==>d not go into release tarballs
^debian$
^debian/
END_HEADER
my $now = localtime();
$header =~ s/NOW/$now/;

print join( "\n", $header, <==
2	/Users/nnunley/parrot/config/auto/jit.pm	180	273	
==>d1 DESCRIPTION

Determines the CPU architecture, the operating system, and whether there is JI <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	26353	26539	
==>>begin_block(undef, $1, $2);
      # TODO
      next;
    }

    #
    # PMC Construction:
    #
    # a = new Foo;
    #

    if (m/^([A-Za-z][A-Za-z0-9_]*)\s*=\s*new\s+([A-Za-z][A-Za-z0 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9312	9418	
==>ted by %s v%s, using %s v%s, under Perl v%s at %s GMT -->\n",
    # None of the following things should nee <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9028	9121	
==>n\tinterpreter->resume_offset = fe->offset;\n        Parrot_switch_to_cs(interpreter, fe->seg, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10144	10237	
==>n\tinterpreter->resume_offset = fe->offset;\n        Parrot_switch_to_cs(interpreter, fe->seg, <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	9915	10067	
==>h
erfcl       math.h
erff        math.h
erfl        math.h
errno       errno.h
exit        stdlib.h
exp         math.h
exp2        math.h
exp2f       mat <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3804	3902	
==>fnlib property, and parent module has no fnlib property either!")
        unless $module_props{fnli <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6468	6566	
==>fnlib property, and parent module has no fnlib property either!")
        unless $module_props{fnli <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	741	848	
==>chmarks matching regexes (multiple)
   -time              show times instead of percentage

=head1 DESCRIPTI <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	1870	2041	
==>s in miniparrot directory\n";
    find(sub {
	     return if ($File::Find::dir =~ /\.svn/);
	     unlink($_) if (-f $_);
         }, 'miniparrot');
}


sub copy_src_from_ob <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	31278	31395	
==>y delimiter is escaped with a backslash (C<\>).
If the prefix is not specified, the
pattern C<'\s*'> - optional whites <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	250948	251226	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "not",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inli <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	249581	249790	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "not",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	66993	67114	
==>cannot have
					       a maximum repetition of zero, nor can they have
					       negative components in their ranges.") <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10630	10745	
==>river logic. Please, report it as a BUG");

}#_Parse
#DO NOT remove comment

1;

}
#End of include---------- <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10153	10260	
==>river logic. Please, report it as a BUG");

}#_Parse
#DO NOT remove comment

1;

}
#End of include---------- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24170	24323	
==>::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "yield",
                  "FL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8294	8417	
==>P_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLAGS" => ":base_loop,check_even <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9409	9532	
==>P_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLAGS" => ":base_loop,check_even <==
2	/Users/nnunley/parrot/config/gen/icu.pm	3094	3289	
==>ess (defined $icuheaders and -d $icuheaders) {
        warn "error: icuheaders not defined or invalid\n";
        $ok = 0;
    } else {
        $icuheaders =~ s![\\/]$!!;
        foreach my $heade <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	45719	45877	
==>something that fails to say "and don't hyphenate
       # any part of 'bar baz'".  However, hyphenation is such a vexing
       # problem anyway, that most Pod <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	250211	250492	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "not",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	251610	251891	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "not",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
2	/Users/nnunley/parrot/config/auto/jit.pm	2743	2881	
==>>set(asmfun_o => 'src/asmfun$(O)');
    } else {
        $conf->data->set(asmfun_o => '');
    }

    $jitcapable = $conf->options->get('ji <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3026	3143	
==>hift;
  my ($handler) = @_;

  my $block = $self->block;
  my $kind  = $self->kind;
  my $name  = $self->ident ? $self <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	1738	1991	
==>00 = isgt %1, %2
    %1 = $I100
END_PIR

    $P0['dyadic:=']       =  <<"END_PIR"            # equal
    $I100 = iseq %1, %2
    %1 = $I100
END_PIR

    $P0[unicode:"dyadic:\u2227"]  =  <<"END_PIR"            # and
    $I100 = %1
    $I101 = %2
    $I100 <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	4497	4628	
==>de'   , 227,
 'auml'     , 228,
 'aring'    , 229,
 'aelig'    , 230,
 'ccedil'   , 231,
 'egrave'   , 232,
 'eacute'   , 233,
 'eci <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	25671	25949	
==>new_letter\""
      );
      
      #TODO: or allow if last bit is same?
      
      return;
    }

    unless($fallbacks_one =~ m/^[A-Z](,[A-Z])*$/s  # like "B", "M,I", etc.
      or $fallbacks_one eq '0' or $fallbacks_one eq '1'
    ) {
      $self->whine(
        $para->[1]{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	45718	45832	
==>and print "New version of the above line is these tokens (",
      scalar(@new_line), "):",
      map( ref($_)?"<@$ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10159	10267	
==>) {
        return _negate_incexc(_translate_classpieces($pieces->[1]));
    }

    # Convert "a-b" to [97,98 <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	21747	21908	
==>_[2] && $_[2]>0 ? $_[2] : 1_000_000_000;
		my $igunk = $_[3];

		pos $$textref ||= 0;

		unless (wantarray)
		{
			use Carp;
			carp "extract_multiple reset maxim <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	40610	40725	
==>d link (not man or url).\n";
      }

      if( defined $section_name ) {
        $ell->[1]{'section'} = Pod::Simple <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	47	168	
==>hard $

package Parrot::Test::APL;

use strict;
use warnings;

use File::Basename;

=head1 NAME

Parrot::Test::APL -- test <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Ops.pm	34	124	
==>ndation.
# $Id: /parrot/lib/Parrot/Docs/Section/Ops.pm 20333 2006-06-21T18:44:31.111564Z be <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	4613	4857	
==>ces ===\n", scalar @ParrotAPI;

my %Code;
my %DataB;
my %DataD;
my %DataR;
my %Undef;
my %API;

if (open(NM, "perl tools/dev/nm.pl -BDo '$Obj' |")) {
    while (<NM>) {
	my ($o, $s, $v) = split;
	$API{$s} = $o;
	if ($v eq 'T') {
	    $Code{$s} = <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	580	715	
==>y_moves {
    my $suffix = shift || "";  
    my $pir = <<'PIR';
${ITEMP0} = elements lazy_moves
${ITEMP1} = stack_depth
SRM_LMKILL$suff <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	52422	52594	
==>[$i], 'ARRAY') ) {
      _stringify_lol( $lol->[$i], $to);  # recurse!
    } else {
      $$to .= $lol->[$i];
    }
  }
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10965	11058	
==>f235,/* 62 */
II,$c,$d,$a,$b,$_[6],15,0x2ad7d2bb,/* 63 */
II,$b,$c,$d,$a,$_[13],21,0xeb86d391, <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	504	639	
==>(the
API is detected using pattern C</^\w+\s+(Parrot_\w+)\(/>), then finds
out the visible symbols in the Parrot lib (by default
F<blib/ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30137	30294	
==>r_type eq 'block') {
          unless($curr_open->[-1][1]{'~bitched_about'}) {
            $curr_open->[-1][1]{'~bitched_about'} = 1;
            $self->whine <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691197	691314	
==>ne 626 \"src/ops/pmc.ops\"\n   {{\@1}} = Parrot_thaw(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691954	692071	
==>ne 626 \"src/ops/pmc.ops\"\n   {{\@1}} = Parrot_thaw(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	513923	514155	
==>ARGS" => [
                              "n",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 708 \"src/ops/math.ops\"\n   {{\@1}} = pow((FLOATVAL <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	1081	1197	
==>= 1) {
    die "MANY_LINES is too small (", MANY_LINES(), ")!\nAborting";
  }
  if(defined &UNICODE) { }
  elsif($] > <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	9887	9981	
==>CURR], $type[CURR] ]);
		if ( (isbuiltin($syms[CURR]) or isuserfunc($syms[CURR]))
			and $syms[ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	58335	58507	
==>b
#line 520 "Lua\lua51.yp"
{
            PopScopeF( $_[0] );
            BuildFunctionBody( $_[0], [], $_[3] );
        }
	],
	[#Rule 99
		 'parlist1', 3,
sub
#lin <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	2268	2389	
==>('ccflags',   $ccflags);
        $conf->data->set('linkflags', $linkflags);
        print " (no) " if $verbose;
        $s <==
2	/Users/nnunley/parrot/config/auto/readline.pm	2068	2189	
==>('ccflags',   $ccflags);
        $conf->data->set('linkflags', $linkflags);
        print " (no) " if $verbose;
        $s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	34581	34746	
==>,
                              "i"
                            ],
                  "BODY" => "#line 632 \"src/ops/core.ops\"\n  {{\@1}}->vtable->set_pointer(interpr <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	1535	1663	
==>ch calls these functions, so most
   extension code is safe, no problem.

   The problem comes in if these routines are called fr <==
2	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	76	173	
==>hmarks/stress2.pl 19601 2006-05-30T13:32:26.641316Z coke  $

=head1 NAME

examples/benchmarks/stre <==
2	/Users/nnunley/parrot/config/auto/gc.pm	140	237	
==>fig/auto/gc.pm - Garbage Collection

=head1 DESCRIPTION

Checks whether the C<--gc> command-line o <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	5936	6128	
==>t are special in regular expressions
       push @skip, qq{# generated from svn:ignore of '$dir'},
           map { 
               my $end = $dir_list{ $dir . $_} ? '$' : '/'; # ignore file or <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6136	6238	
==>T_BRANCH_switch_${CURIC}
${ITEMP0} = ${NEXTPC} + I_arg_0 # XXX Can't use ${ARG0} :-(
prop_type_state[${ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4074	4176	
==>T_BRANCH_switch_${CURIC}
${ITEMP0} = ${NEXTPC} + I_arg_0 # XXX Can't use ${ARG0} :-(
prop_type_state[${ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	21066	21214	
==>'group', [ op('call' => [ $_[3], 1 ]), ++$::paren ]) }
	],
	[#Rule 26
		 'expr', 1,
sub
#line 141 "lib/Regex/Grammar.y"
{ return op('code' => [ $_[1] <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	17463	17636	
==>s+1,	$rd1pos-$oppos-1,	# STR/PAT
			$rd1pos,	1,			# RIGHT DEL
			$modpos,	0,			# NO 2ND LDEL
			$modpos,	0,			# NO 2ND STR
			$modpos,	0,			# NO 2ND RDEL
			$modpos,	$endpos- <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1152	1262	
==>} = 1;
    $ctx->{external_labels}{$fail_label} = 1;

    my $opt2 = Regex::Optimize->new(%options);
    $code- <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	6475	6582	
==>prod ) = @_;
	push @{$self->{"prods"}}, $prod;
	$self->{"changed"} = 1;
	delete $self->{"expected"};
	$self- <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	2392	2530	
==>l]doc
    runtime/parrot/include/DWIM.pir                 [devel]doc
    runtime/parrot/include/README                   [devel]doc
    src <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	1542	1660	
==>$method, $body)>

Generate the C code for a C<return> statement, if the body is empty then
make a cast if needed.

This <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1503	1624	
==>()>

Sets/gets the transform's arguments.

=cut

sub args
{
    my $self = shift;

    if (@_)
    {
        $self->{ARGS} <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1112	1233	
==>()>

Sets/gets the transform's arguments.

=cut

sub args
{
    my $self = shift;

    if (@_)
    {
        $self->{ARGS} <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	21567	21714	
==>n;

    }
    # XXX the label may be wrong, if the JUMP_IF_x got rewritten
    if ($r->[2] eq 'I' && $l->[2] eq 'I') {
	print <<"EOC";
	$op $l->[1], <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19015	19106	
==>r->{_AUTOACTION} && defined($item) && !$item->isa("Parse::RecDescent::Action"))
	{
		$code . <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	12636	12758	
==>t_expect, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $dont_expect ) {
        # undef o <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	13080	13202	
==>t_expect, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $dont_expect ) {
        # undef o <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	53580	53681	
==>.

If the third argument is I<N>, then extraction continues until I<N> fields
have been successfully e <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	14034	14183	
==>sub MAKE_FUNCTION
{
    my ($n, $c, $cmt) = @_;
    my $tos = pop @stack;
    my $f;
    $tos->[1] =~ /<code> (\S+)/;
    $f = $1;
    print "\t\t$cmt <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11400	11520	
==>1
end function
t=0
g=0
if t then
	print "Mistake"
elseif g then
	print "Also a mistake"
else 
	print "Correct now 24"
	pr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149179	149274	
==>->vtable->get_number(interpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150120	150215	
==>->vtable->get_number(interpreter, {{\@1}}) == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n" <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	19233	19401	
==>$nixx  ? (" Nix-X mode on\n") : (),
  ;    
  

  my($i, $treelet);
  while($treelet = shift @stack) {
    DEBUG > 3 and print " Considering children of this $treelet->[ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	214	377	
==>5') {
        $class = 'Regex::Driver::Perl5';
    } elsif ($language eq 'pir') {
        $class = 'Regex::Driver::PIR';
    }

    my $self = bless \%options, $cla <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	639183	639278	
==>g_op[1]]->u.key;\n  ASSERT_SIG_PMC(sig);\n  if (!SIG_ELEMS(sig)) {\n        real_exception(inter <==
2	/Users/nnunley/parrot/config/inter/types.pm	735	894	
==>de   = $conf->options->get('opcode')   || 'long';

    if ($conf->options->get('ask')) {
        $intval   = prompt("\n\nHow big would you like your integers to <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4624	4717	
==>do_end;
}


#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub d <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3255	3347	
==>do_end;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub d <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	2876	2995	
==>t, return_data);",
       l => "set_nci_I(interpreter, &st, return_data);",
       s => "set_nci_I(interpreter, &st, ret <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7148	7251	
==>nval  (0): ", instr(4, bogus$, "t")
' instr() tests
s1$="Mixed case"
print ucase$(s1$);" Upper"
print lc <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18877	18980	
==>nval  (0): ", instr(4, bogus$, "t")
' instr() tests
s1$="Mixed case"
print ucase$(s1$);" Upper"
print lc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553774	553867	
==>94 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555171	555264	
==>94 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12726	12820	
==>gs, qq{""};
	}
	feedme();
	push @{$code{$seg}->{code}}, "\t_RESTORE(" . join(",",@args) . ")\n" <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1675	1780	
==>target, $pattern)
        : Parrot::Test::PGE::_generate_pir_for($target, $pattern)
    );

    goto &Parr <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2198	2303	
==>target, $pattern)
        : Parrot::Test::PGE::_generate_pir_for($target, $pattern)
    );

    goto &Parr <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4064	4293	
==>back { my ($op) = @_; $op->{args}->[0]->hasback() }
sub dfa_safe { my ($op) = @_; $op->{args}->[0]->dfa_safe() }

# Superclass for ops that match a single input atom (eg a character or
# character class.)
package Regex::Ops::Tree: <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	5992	6129	
==>mble);
            $sig .= $sig_char{$_};
            $_ eq 'J' && $reg_num--;
        }
    }

    print_function($sig, $ret, $args, [@ar <==
2	/Users/nnunley/parrot/config/inter/libparrot.pm	1239	1480	
==>red = lc($parrot_is_shared) eq 'y';
    }

    $conf->data->set(
        parrot_is_shared => $parrot_is_shared,  

        libparrot => $parrot_is_shared         
            ? '$(LIBPARROT_SHARED)'      
            : '$(LIBPARROT_ST <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062296	1062523	
==>ODE" => 1186,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 246 \"src/ops/var.ops\"\n    PMC *ns_root = inter <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	615	753	
==>h   '  ' x ($_[0]{'indent'} || 0),  "<", $_[1];

  foreach my $key (sort keys %{$_[2]}) {
    unless($key =~ m/^~/s) {
      next if $key e <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	1939	2093	
==>en = $self->get_token )
    {
        $type = $token->type;
        
        if ( $type eq 'start' ) 
        {
            $self->process_start_token($tok <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	23067	23185	
==>t' => $result,
    );
    return [ $result, \@opcodes ];
}

sub BuildLogop {
    my ( $parser, $expr1, $op, $expr <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	9741	9859	
==>b rewrite_check {
    my ($self, $op, $amount, $R, $lastback) = @_;
    my ($R_back, @R_body) = $self->rewrite($R, $las <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1600	1703	
==>o::Construct::Type instance!")
    unless UNIVERSAL::isa($type, "Jako::Construct::Type");

  my $type_na <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1448	1551	
==>o::Construct::Type instance!")
    unless UNIVERSAL::isa($type, "Jako::Construct::Type");

  my $type_na <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	2121	2299	
==>5, so I don't know what version
        # everything came in at. If it turns out that you're using 2.7.2 and
        # -Wfoo isn't recognised there, move it up into the next versi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1187	1330	
==>x = { %$x };
    }
     # otherwise leave it.
  }

  return bless $new, $class;
}

# Not much in this class is likely to be link-section specifi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426161	426249	
==>ps/math.ops\"\n  mmd_dispatch_v_pi(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427048	427136	
==>ps/math.ops\"\n  mmd_dispatch_v_pi(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	32997	33303	
==>-------
#
# Section 6 Expressions
#
#----------------------

###
### Logical expression
###

  'not' => \&_op_not,

###
### Equivalency
###

  'boolean' => \&_op_boolean_p,
  'eqv?'    => \&_op_eqvp,
  'eq?'     => \&_op_eqp,
  'equal?'  => \&_op_equalp,

###
### Pairs and Lists
###

  'pair?'    => \&_op_ <==
2	/Users/nnunley/parrot/config/init/hints/vms.pm	139	270	
==>:hints::vms;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    $conf->data->set(
        ccflags => qq{/Standard=Relaxed_ <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Posix.pm	287	403	
==>( '_posix.out', $count );
}

sub get_test_prog {
    my $self = shift;
    my ( $count, $options ) = @_;

    my $lan <==
2	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	591	705	
==>chmarks/stress.pl>, 
F<examples/benchmarks/stress1.pasm>, 
F<examples/benchmarks/stress1.pl>, 
F<examples/benchmark <==
2	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	744	834	
==>chmarks/stress.pl>, 
F<examples/benchmarks/stress1.pasm>, 
F<examples/benchmarks/stress2.pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	933525	933769	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934299	934543	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	105	279	
==>gs;

use File::Basename;

=head1 NAME

Parrot::Test::APL -- testing routines for languages/apl

This is largely a copy of Parrot::Test::Tcl, which looks like it's
largely a co <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	33424	33680	
==>>[2] eq 'P') {
	   $vv = temp('I');
	   print <<EOC;
	$vv = $v->[1]
EOC
       }
    }
    my $ag = promote(pop @stack);
    my $a = temp('P');
    print <<EOC;
	\t $cmt
	$a = slice $ag\[ $vv .. $ww ], 1
EOC
    push @stack, [-1, $a, 'P'];
}

sub SLICE_plus <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	721	861	
==>s as Win32 paths have \'s in, which qq[] treats as escape sequences.
# Config stuff
our $CC = qq[cc -c];
our $LD = qq[c++];
our $LDFLAGS = qq <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21272	21596	
==>t::New->new($block, $left, $right);
          $constructing = 0;
        }
        else {
          my $assign = Jako::Construct::Statement::Assign->new($block, $left, $right);
        }
        
        $right = $left;
      }

      next;
    }

    #
    # Subroutine Return Statements:
    #
    #   return;
    #   retur <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8340	8476	
==>and	print STDERR "Back to state $$stack[-1][0], then ";

                $$check eq 'ERROR'
            or  do {
#DBG>				$debug & 0x <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7960	8092	
==>and	print STDERR "Back to state $$stack[-1][0], then ";

                $$check eq 'ERROR'
            or  do {
#DBG>				$debug & 0x <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576600	576909	
==>@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577612	577921	
==>@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
2	/Users/nnunley/parrot/config/init/hints/cygwin.pm	401	515	
==>-lutil\b//g;

    my $build_dir = $conf->data->get('build_dir');
    $build_dir =~ s/ /\\ /g;

    # A note about b <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	6299	6406	
==>ach my $d (@_) {
    next unless defined $d and length $d;
    Carp::croak "\"$d\" isn't a valid directive n <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	7093	7200	
==>ach my $d (@_) {
    next unless defined $d and length $d;
    Carp::croak "\"$d\" isn't a valid directive n <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9448	9587	
==>{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        return ("set <rx_tmp>, <rx_stack>",
                $self->popop . " $r <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7349	7478	
==>{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        return ("set <rx_tmp>, <rx_stack>",
                $self->pu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959256	959345	
==>"BODY" => "#line 590 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_encoding(inte <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960058	960147	
==>"BODY" => "#line 590 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_encoding(inte <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	11660	11964	
==>C
	$p = $pmc;
    }
    else {
	$p = promote($tos);
	if ($cur_func eq 'test::main') {
	    $main_names{$c} = $p;
	    print <<EOC;
	store_lex -1, "$c", $p $cmt
EOC
	}
	else {
	    print <<EOC;
	store_lex -1, $n, $p $cmt
EOC
	}
    }
    $names{$c} = $p;
    $lexicals{$c} = $p;
}

sub STORE_GLOBAL {
    m <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	11880	11995	
==>tack;
return \%rx_match;
END
}

sub output_rule_fail {
    my ($self, $name) = @_;
  return split(/\n/, <<'END');
$r <==
2	/Users/nnunley/parrot/config/inter/ops.pm	444	567	
==>les should be compiled in';

@args = qw(ask ops);

sub runstep
{
    my ($self, $conf) = @_;

    my @ops = (
        sort { <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10352	10451	
==>/test.out');

    return $output;
}

=item C<cc_run_capture()>

Same as C<cc_run()> except that warn <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	13304	13581	
==>s="leftsep num tests_total"><tmpl_var name=total>:</td>
	      <td class="num tests_ok"><tmpl_var name=ok>,</td>
	      <td class="num tests_failed"><tmpl_var name=failed>,</td>
	      <td class="num tests_todo"><tmpl_var name=todo>,</td>
	      <td class="num tests_skipped"><t <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	11868	11977	
==>ine, $uncommit, $error) = @_;
	my $class = ref($self) || $self;

	bless
	{
		"items"    => [],
		"uncommit" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824472	824559	
==>entry_type != STACK_ENTRY_STRING) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wron <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825543	825630	
==>entry_type != STACK_ENTRY_STRING) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wron <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	29019	29169	
==>] )
	{
		# process next quote-like (in $next)
	}


=head2 General behaviour in scalar and void contexts

In a scalar context, the extracted string is r <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	71921	72029	
==>CHECK FOR LEFT RECURSION

		if ($rule->isleftrec($rules))
		{
			_error("Rule \"$rule->{name}\" is left-recur <==
2	/Users/nnunley/parrot/config/auto/alignptrs.pm	769	886	
==>ignment'))) {
        $align  = $conf->data->get('ptr_alignment');
        $self->set_result("configured: ");
    } el <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6123	6366	
==>\@1}});\n    {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "load_by <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	8	123	
==>in/perl -w
# Copyright (C) 2004, The Perl Foundation.
# $Id: /parrot/tools/dev/nm.pl 19607 2006-05-30T15:23:20.18305 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14512	14622	
==>back!
  $self->unget_token(@to_unget);
  
  if(DEBUG) {
    if(defined $title) { print "  Returing title <$titl <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	31951	32133	
==>y!
WHOA
    }
}

=item B<_my_exit>

  _my_exit($exit_num);

Perl seems to have some trouble with exiting inside an END block.  5.005_03
and 5.6.1 both seem to do odd things.  Instead, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10685	10786	
==>eturn @_;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub lineariz <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21184	21385	
==>eft (@left) {
        if ($constructing) {
          my $new = Jako::Construct::Statement::New->new($block, $left, $right);
          $constructing = 0;
        }
        else {
          my $assign = J <==
2	/Users/nnunley/parrot/config/init/hints.pm	694	850	
==>. lc($^O);

    print "[ $hints " if $verbose;

    eval "use $hints";
    die $@ if $@;

    # call the runstep method if it exists.  Otherwise the step mus <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	13213	13397	
==>e instruction.
    $pir .= <<'PIRCODE';
    # If we have exception handlers, need some intial stuff emitted.
    ehs = bc.get_eh()
    if null ehs goto NO_EH_HEADER
    i = elements ehs <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	2550	2700	
==>die "Can't open $filename: $!";
    my $sum = 0;
    while (<$file>) {
        next if defined($ignorePattern) && /$ignorePattern/;
        $sum += unp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46522	46758	
==>EXT|PARROT_JUMP_RESTART",
                  "NAME" => "debug",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47304	47540	
==>EXT|PARROT_JUMP_RESTART",
                  "NAME" => "debug",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline", <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39236	39340	
==>\@opcodes2;
    my $result = new_tmp( $parser, 'pmc', 'function' );
    push @opcodes1, new LocalDir( $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432439	432531	
==>ps/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433454	433546	
==>ps/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}} <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2499	2612	
==>cmd = "gcov -f -b -o $dirname $src_filename";
    print "Running $cmd\n" if $DEBUG;
    open (GCOVSUMMARY, "$cmd | <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	21096	21257	
==>p('I');
	my $pres = temp('P');
	$op = $is_map{$c};
	my $isnot = '';
	if ($c eq 'is not' || $c eq 'not in') {
	    $isnot = qq!\n\t$res = not $res!;
	}
	if ($op eq <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835306	835555	
==>=> 0,
                  "NAME" => "savec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836058	836307	
==>=> 0,
                  "NAME" => "savec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	5204	5542	
==>print "# Setting nextline to $1\n";
          $self->{'line_count'} = $1 - 1;
        }
        
        next;
      }
    }
    
    # . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
    # Else we're in pod mode:

    # Apply any necessary transcoding:
    $self->{'_transcoder'} && $self->{'_transcoder'}->($line) <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	3756	3921	
==>pected, $description)>

Runs the Parrot Bytecode and passes the test if a string comparison of output
with the unexpected result is false.

=item C<pir_2_pasm_is($cod <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	3440	3579	
==>pected, $description)>

Runs the Parrot Bytecode and passes the test if a string comparison of output
with the expected result is true.

=it <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	2939	3043	
==>(keys %$typedefs) . " typedefs.\n";
    my $cmd = "indent -kr -nce -sc -cp0 -l79 -lc79 -psl -nut -cdw -nc <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1974	2109	
==>{subname}");

  foreach my $arg (@args) {
    my ($arg_type, $arg_name) = @$arg;
    my $imcc_type = $arg_type->imcc;

    $compiler->em <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	22492	22611	
==>nd execute the runmode
# specified in @ARGS.
#
sub main {
    my ($default, $dump, $gen_c, $tree, @include);
    # initi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	898	1007	
==>n::Value');
  confess "Op is not scalar!" if ref $op;
  confess "Right is not Value!" unless UNIVERSAL::isa($r <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	910	1019	
==>n::Value');
  confess "Op is not scalar!" if ref $op;
  confess "Right is not Value!" unless UNIVERSAL::isa($r <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	41	206	
==>rict 'vars';
use vars qw($VERSION);
$VERSION = '0.60';
$VERSION = eval $VERSION;    # make the alpha version come out as a number


use Test::Builder;
my $Test = Test <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	7811	7984	
==>emove it
                $line =~ s/^\s*a_$name\s*$//m or $line =~ s/a_$name/temp/;
            }
        }
        
        # $R
        $line =~ s/\$R\b/\$P%1/g;

        $ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	13926	14029	
==>=$optype;
			$a1=pushthing(\@code, \$ot1, @$op1);
			$a2=pushthing(\@code, \$ot2, @$op2);
			$optype=$ot <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7991	8136	
==>,$len);

                $$check eq 'ACCEPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Accept.\n";

				return( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7633	7770	
==>,$len);

                $$check eq 'ACCEPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Accept.\n";

				return( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	491619	492226	
==>> 0,
                  "NAME" => "inc",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 564,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 544 \"src/ops/math.ops\"\n  {{\@1}}->vtable->increment(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	3091	3384	
==>);
}


############################################################################
sub run_command {
    my ($command) = @_;

    print "- $command\n";
    system($command);

    if ($? >> 8) {
        die "Error " . ($? >>8). " running $command\n";
    }
}

sub copy_file {
    my ($from, $to <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	4090	4220	
==>original bytecode to edit it
    $byte_code = $pf->byte_code;

    # First block
    push @blocks, [shift @pc_list ];

    # change <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	519	609	
==>rap::wrap = 'overflow';
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	353	443	
==>rap::wrap = 'overflow';
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1368	1469	
==>eed a stack depth and a string for label gen and some
	# storage for stack depths and stack type state <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	455	556	
==>eed a stack depth and a string for label gen and some
	# storage for stack depths and stack type state <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11761	11896	
==>as get ignored, args to stack
		my($ac, @args, $extern, $pir_args);
		if (isarray($sym) and $lhs) {
			($ac,@args)=pushargs(\@code, \$op <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	10431	10540	
==>return


' Expect Correct
t=0
g=0
if t then
	print "Wrong"
else 
	if g then
		print "Wrong again"
	else 
		pri <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	2420	2599	
==>_;
  return $self->{PREFIX};
}


###############################################################################

=head2 BLOCK->set_symbol(NAME, VALUE)

Set a symbol in this block' <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	37499	37603	
==>ng>?'      => \&_op_string_gt_p,
  'string<=?'     => \&_op_string_le_p,
  'string>=?'     => \&_op_strin <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	13511	13693	
==>x = "INF" if ! defined $max;
    return "$str [$min..$max]";
}

# Defaults
sub Regex::Ops::Tree::reftree {
    my $op = shift;
    return $op->{name};
}

sub Regex::Ops::Tree::_onearg <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	976	1117	
==>y $self = shift;
	my ($pops, $pushes) = @_;
	my $register_num = 0;
	my $push_num = 0;
	
	# Emit initial code.
	my $pir = <<'PIR';
# Get curren <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1912	2013	
==>xt    { ++$_[0]{'Indent'} }
sub start_over_block   { ++$_[0]{'Indent'} }

sub   end_over_bullet  { --$ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1480	1581	
==>xt    { ++$_[0]{'Indent'} }
sub start_over_block   { ++$_[0]{'Indent'} }

sub   end_over_bullet  { --$ <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	713	858	
==>.pl> checks
and the manifest checks use.

=head2 Options

=over 4

=item C<buildprefix>

The build prefix. Defaults to ''.

=item C<prefix>

The i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1349	1516	
==>efined $compiler;

  my $type = $self->type;

#  $self->DEBUG(0, "Compiling literal of type: '%s'...", ref $type);

  if (UNIVERSAL::isa($type, 'Jako::Construct::Type:: <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3366	3463	
==>pAsXML>

The older libraries L<Pod::PXML>, L<Pod::XML>, L<Pod::SAX>


=head1 COPYRIGHT AND DISCLAI <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3018	3115	
==>pAsXML>

The older libraries L<Pod::PXML>, L<Pod::XML>, L<Pod::SAX>


=head1 COPYRIGHT AND DISCLAI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133860	133967	
==>string_bitwise_xor(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134641	134748	
==>string_bitwise_xor(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	11999	12170	
==>>can(...)";
    
    my $ok = $Test->ok( !@nok, $name );

    $Test->diag(map "    $class->can('$_') failed\n", @nok);

    return $ok;
}

=item B<isa_ok>

  isa_ok($object <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1293	1400	
==>'' : "$_[1]{'number'}. "  }
sub start_item_text   { $_[0]{'Thispara'} = ''   }

sub start_over_bullet  { ++$ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	23222	23343	
==>my $nfix =  ($n & 0xff);
    my $nk =  2*($n >> 8);
    my $name = $stack[-1 - $nfix-$nk]->[0];
    print "\t\t $cmt $name <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	13005	13124	
==>ame) or die "Can't open $filename: $!";
    my $text = do {local $/; <$fh>};
    close($fh) or die "Can't close $filenam <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18155	18266	
==>oc {
}

sub _op_symbol_p {
}

sub _op_symbol_string {
}

sub _op_string_symbol {
}

sub _op_number_p {
}

sub _o <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9750	9894	
==>rd invalid token ".&$ShowCurToken.".\n";

			$$token=$$value=undef;
		};

        $$errstatus=3;

		while(	  @$stack
			  and (		not exis <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9312	9448	
==>rd invalid token ".&$ShowCurToken.".\n";

			$$token=$$value=undef;
		};

        $$errstatus=3;

		while(	  @$stack
			  and (		not exis <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5438	5538	
==>um}_end: noop
CODE
	},
	'eqv' => sub {
		my($a1,$a2,$result,$op,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6458	6585	
==>re the array elements by pairs. When two are exchanged,
   ' force another pass by setting Exchange to TRUE.
   FOR I = 2 TO Max <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16111	16238	
==>re the array elements by pairs. When two are exchanged,
   ' force another pass by setting Exchange to TRUE.
   FOR I = 2 TO Max <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	6996	7139	
==>g;
	    $source =~ s/CUR_OPCODE/(start_code + $pc)/mg;

	    printf("\n    /* %s */\n    {\n%s}\n", $op->full_name, $source);
	}

	print "}\n\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	330599	330859	
==>line",
                  "CODE" => 388,
                  "ARGS" => [
                              "n",
                              "p"
                            ],
                  "BODY" => "#line 174 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (FLOATVAL)(Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	529	743	
==>is as follows:

    OpTrans
       |_________________________
       |           |             |
       C         CGoto       Compiled
       |           |
    CPrederef      |
       | |         |
       | |_______ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1249	1346	
==>file($out_f), $output, $desc );
        $self->{builder}->diag("'$cmd' failed with exit code $exit <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1290	1387	
==>file($out_f), $output, $desc );
        $self->{builder}->diag("'$cmd' failed with exit code $exit <==
2	/Users/nnunley/parrot/languages/regex/regex.pl	484	689	
==>in/ || $_ eq '-m') {
        $main = 1;
    } elsif (/--debug/ || $_ eq '-d') {
        $debug = 1;
    } elsif (/--output-file=(.*)/) {
        $output = $1;
    } elsif (/--file=(.*)/) {
        $expr_fil <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	9795	9901	
==>qw(does extends group lib hll maps);

    my (%flags, $parent_nr);
    # look through the pmc declaration h <==
2	/Users/nnunley/parrot/config/gen/cpu.pm	102	204	
==>8:15.110975Z coke  $

=head1 NAME

config/gen/cpu.pm - CPU specific Files

=head1 DESCRIPTION

Runs C<& <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7649	7754	
==>reg = shift;
	my $pir = "";

	# If the destination isn't a register, determine register name now.
	if (!$d <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5767	5872	
==>reg = shift;
	my $pir = "";

	# If the destination isn't a register, determine register name now.
	if (!$d <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	1811	1913	
==>ypedefs and structs are no good
    @funcs = grep !/^(typedef|struct|enum|extern)/, @funcs;

    # Vari <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	1995	2094	
==>ted result it true.

=item C<pasm_output_like($code, $expected, $description)> or C<output_like($cod <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	997	1176	
==>));
    print OUT "    enum_class_default,\n";
    my $i = 1;
    foreach (@pmcs) {
        print OUT "    enum_class_$_,\t/*  $i */ \n";
        $i++;
    }
    print OUT <<"END_H <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832131	832225	
==>nterpreter->ctx)->user_stack, &({{\@1}}), STACK_ENTRY_FLOAT, STACK_CLEANUP_NULL);\n  {{+=2}};\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832859	832953	
==>nterpreter->ctx)->user_stack, &({{\@1}}), STACK_ENTRY_FLOAT, STACK_CLEANUP_NULL);\n  {{+=2}};\n <==
2	/Users/nnunley/parrot/config/init/hints/cygwin.pm	1420	1557	
==>ess ($define) {
        $define = 'inet_aton';
    } elsif ($define !~ /inet_[ap]ton/) {
        $define = join(',', 'inet_aton', $define) <==
2	/Users/nnunley/parrot/config/gen/platform.pm	3609	3781	
==>l.c
        itimer.c
        memexec.c
        exec.c
        misc.c
        /;

    open PLATFORM_C, "> src/platform.c" or die "Can't open src/platform.c: $!";

    print P <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16664	16759	
==>gensym ();
  my $return = $self->_save_1 ('P');

  $self->_add_inst ('', 'new',[$return,'.Undef' <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	16759	16879	
==>uct);
        PMC_data(temp_pmc) = (void*)$value;
        VTABLE_set_pmc_keyed_str(interpreter, HashPointer, string_from_ <==
2	/Users/nnunley/parrot/tools/dev/manicheck.pl	464	564	
==><MANIFEST> file against the files present in
this directory tree, accounting for .svn dirs. Prints ou <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106340	1106441	
==>r,\n\t\t\"type number out of range\");\n    {{\@1}} = interpreter->vtables[typ]->class;\n    {{+=3}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107316	1107417	
==>r,\n\t\t\"type number out of range\");\n    {{\@1}} = interpreter->vtables[typ]->class;\n    {{+=3}};\ <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	7299	7406	
==>my ($group, $libs, $stems) = @_;

    my @sources = map { "$_$O" } @$stems;
    if (needs_build("$group$LOAD <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7510	7617	
==>my ($group, $libs, $stems) = @_;

    my @sources = map { "$_$O" } @$stems;
    if (needs_build("$group$LOAD <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8213	8322	
==>Name2character{$name} = $FAR_CHAR;
      # substitute for Unicode characters, for perls
      #  that can't re <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	1006	1163	
==>nes($string)>

Returns the number of newlines (C<\n>) in C<$string>.

=cut

sub count_newlines {
    return scalar $_[0] =~ tr/\n//;
}

=item C<dont_edit($pmc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146393	146654	
==>, {{\@2}}, MMD_EQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167619	167880	
==>, {{\@2}}, MMD_EQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30256	30404	
==>stsep||"").$text;
			}'.($::RD_NO_TRACE?'':'
			Parse::RecDescent::_trace(qq{<<Didn\'t match terminal>>},
						  Parse::RecDescent::_tracefirst($tex <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4940	5042	
==>");
    $compiler->emit("  $pmc_reg = $dest");
    $compiler->emit("  global \"$dest_name\" = $pmc_reg" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3003	3105	
==>");
    $compiler->emit("  $pmc_reg = $dest");
    $compiler->emit("  global \"$dest_name\" = $pmc_reg" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	9090	9209	
==>ed_section(
   'VERSION',
    max_token => 400,
    accept_verbatim => 1,
    max_content_length => 3_000,
   @_,
  );
} <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	17940	18046	
==>n tests without a plan!  Gotta have a plan.");
    }

    lock($self->{Curr_Test});
    $self->{Curr_Test}+ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	18805	18911	
==>n tests without a plan!  Gotta have a plan.");
    }

    lock($self->{Curr_Test});
    $self->{Curr_Test}+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715103	715426	
==>AGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 802,
                  "ARGS" => [
                              "sc"
                            ],
                  "BODY" => "#l <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4090	4197	
==>mand requires destination";
    my $dest = $1;

	my $core_suffix;
    foreach $core_suffix (values %cores) { <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	694	788	
==>defined!" unless defined $right;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	706	800	
==>defined!" unless defined $right;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	13557	13695	
==>e C<Pod::Simple::HTML> method to add a footer to the end
of the document.

=cut

sub do_end 
{
    my $self = shift;
    
    print {$self- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	10109	10257	
==>f("_%s_%d", uc $kind, $self->{BLOCK_COUNT}++);

      $prefix = $namespace unless defined $prefix;

      if ($kind eq 'while') {
        $loop = Jak <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	10438	10549	
==>pmc sarray.pmc fixedstringarray.pmc multiarray.pmc hash.pmc orderedhash.pmc tqueue.pmc parrotclass.pmc parrotobj <==
2	/Users/nnunley/parrot/lib/Test/More.pm	4412	4624	
==>$#plan ) {
        my $item = $plan[$idx];

        if( $item eq 'no_diag' ) {
            $Show_Diag = 0;
        }
        else {
            push @cleaned_plan, $item;
        }

        $idx++;
    }

    $Tes <==
2	/Users/nnunley/parrot/config/init/hints/irix.pm	133	241	
==>e init::hinits::irix;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    my $ccflags = $conf->data- <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41140	41248	
==>et_bit {  # for use only by the routine above
  my($self, $name) = splice @_,0,2;

  my $scratch;
  $self->_h <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	52098	52232	
==>rings
of the original string, as extracted by the specified extractors.
In a scalar context, C<extract_multiple> returns the first
subs <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5597	5714	
==>( %group_files, %group_libs, %pmc_group, %pmc_libs );
    for my $pmc (@pmcs) {
        our $class;
        require "$ <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5808	5925	
==>( %group_files, %group_libs, %pmc_group, %pmc_libs );
    for my $pmc (@pmcs) {
        our $class;
        require "$ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1714	1862	
==>f->content) {
      $compiler->emit(".namespace ${namespace}_ELSE");
      $compiler->indent;
      $self->SUPER::compile($compiler);
      $compiler <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	1471	1589	
==>dynamic.

=item C<--core>

Build the Parrot core opcode library.

=item C<--no-lines>

Do not generate C<#line> directi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	581	700	
==>_accept;

%Tagmap = (
  'Verbatim'  => "\n<pre$Computerese>",
  '/Verbatim' => "</pre>\n",
  'VerbatimFormatted'  => "\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937859	938119	
==>=> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "join",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11452	11580	
==>le::HTML bug was here.
    my $out;
    
    $out = $to if defined $to and length $to;
    $out .= "#" . $section if defined $sec <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28848	28958	
==>die "pir must use one of \${DEST0} or \${LOADREG} in rule " .
				"$rule->{'name'}\n";
        } elsif ($rule-> <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29054	29158	
==>die "pir must use one of \${DEST0} or \${LOADREG} in rule " .
				"$rule->{'name'}\n";
		} elsif ($rule-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	644	763	
==>gs) :class,flags {
        ... body of function ...
    }

Note that currently the C<inline> op type is ignored.

Altern <==
2	/Users/nnunley/parrot/lib/Test/More.pm	9221	9359	
==>like that".)

The second argument is a regular expression.  It may be given as a
regex reference (i.e. C<qr//>) or (for better compatibilit <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	48762	48886	
==>ser), "\n";
  }

  return @out;
}



#-----------------------------------------------------------------------------
1;
__END_ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	12869	13006	
==>{
	print <<EOC;
	# builtin $c $cmt $o
EOC
	push @stack, [$c, $c, $o];
	return;
    }
    # params TODO
    if ($names{$c}) {
	$p = $names{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908810	909127	
==>x",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1024,
                  " <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	20460	20556	
==>)--;	# OVERCOME BROKEN LOOKAHEAD 
			_match_bracketed($textref,"",$ldel2,"","",$rdel2)
			|| do { <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10660	10780	
==>ter_gcov {
    my ($infile) = @_;
    
    my $source_file = $infile;
    $source_file =~ s/\.gcov$//g;

    my $outfile_ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	827	933	
==>file',   # probably obsolete
	'PL' => 'Perl script',
	'SKIP' => 'MANIFEST skip file',
	'STATUS' => 'Languag <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	7455	7608	
==>path_for_file_with_name
{
    my $self = shift;
    my $name = shift || return;
    
    return File::Spec->catfile($self->path, $name);
}

=item C<direct <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	4815	5016	
==>ap { $_->{filename} => 1 } @smokes;
  for(map { @$_ } values %cats) {
    next unless $_;

    delete $delete{$_->{filename}};
  }

  unlink keys %delete;
}

sub process_list {
  my $CGI = shift;
  my $ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	22554	22688	
==>art of temporary file
            my $test_no = $builder->current_test() + 1;

            $expected =~ s/\cM\cJ/\n/g;
            my $ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	22577	22676	
==>::Extractor')
					{ @bits = $field = $func->extract($$textref) }
				elsif( $$textref =~ m/\G$func/ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2762	2863	
==>s '', same as 'STRING' x 0

  $self->{'Thispara'} =~ tr{\xAD}{}d if Pod::Simple::ASCII;
  my $out = Te <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2296	2397	
==>s '', same as 'STRING' x 0

  $self->{'Thispara'} =~ tr{\xAD}{}d if Pod::Simple::ASCII;
  my $out = Te <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	2536	2776	
==>ildren[-1]->{name} eq 'nop') {
            pop(@children) while $children[-1]->{name} eq 'nop';
            if (@children == 1) {
                return rop('multi_match', [0,1,1,$children[0]]);
            } else {
                @{ $t->{a <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8025	8181	
==>("<rx_tmp> = pop \@<rx_stack>; # popindex");
    if ($self->{DEBUG}) {
        push @ops, 'print "POPPED: <rx_tmp>\n";';
    }

    # FIXME: Still have extra <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	56956	57151	
==>at is a valid Perl quotelike
operator (and removes it from $text):

        $quotelike = extract_multiple($text,
                                      [
                                        sub <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	9900	10003	
==>a, $value);

  if (exists _get_arg($node,1)->{children}) {
    my @formals;
    ($symbol, @formals) = @{ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	1902	2026	
==>if ($array) { 
			$stype="ARRAY"; 
		} else {
			$var=~s/\W$//g;
		}
		#print "Type: $stype  User: $user Var: $var  Array: $a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24598	24690	
==>er->ctx)->current_sub;\n  dest = (opcode_t *)p->vtable->invoke(interpreter, p, dest);\n  {{=d <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	28569	28707	
==>sub _op_truncate {
}

sub _op_round {
}

sub _op_rationalize {
}

sub _op_exp {
}

sub _op_log {
}

sub _op_sin {
}

sub _op_cos {
}

sub _ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48576	48679	
==>reter,   PARROT_BOUNDS_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_BOUNDS_FLAG); } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49366	49469	
==>reter,   PARROT_BOUNDS_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_BOUNDS_FLAG); } <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1407	1536	
==>ft;
    }
    else
    {
        return $self->{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/gets the transform's arg <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1016	1145	
==>ft;
    }
    else
    {
        return $self->{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/gets the transform's arg <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1027027	1027321	
==>],
                  "TYPE" => "inline",
                  "CODE" => 1148,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 280 \"src/ops/sys.ops\"\n   {{\@1}} = sysinfo_i(interp <==
2	/Users/nnunley/parrot/languages/scheme/Scheme.pm	3	90	
==>Id: /parrot/languages/scheme/Scheme.pm 13993 2005-11-29T22:06:21.880912Z bernhard  $

pa <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	1698	1969	
==>ant index.
    kc  The argument is a key constant index.
    ki  The argument is a key integer register index.
    kic  The argument is a key integer constant (in-line).

=head2 Class Methods

=over 4

=cut

package Parrot::Op;

use strict;
use warnings;


=item C<new($co <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5592	5719	
==>turn(<<CODE, $result);
	# EQV $a1, $a2
	set $result, 0.0
	eq $a1, $ot1, EQ_${eqnum}_a
	inc $result
EQ_${eqnum}_a:
	eq $a2, $ot2, <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7031	7129	
==>concat ${STEMP0}
${INS} = concat " = pop s\n"

# Next parameter.
goto pre_call_PLOOP_${CURIC}

# Fi <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	1058	1205	
==>ration. I will face my fear. I will permit
	#  it to pass over me and through me. And when it has gone past I will
	#  turn the inner eye to see its <==
2	/Users/nnunley/parrot/config/gen/PodText.pm	1633	1942	
==>E__ . " from $pod\n"
              . "\n"
              . $text
        ;
        # the filehandle was opened for update so the files 'position' has to
        # be reset to the begining of the file so we don't end up just
        # appending to the end of the file.
        seek $fh, 0, 0;
        print $fh $ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	56234	56462	
==>e following extracts substrings that are valid Perl variables:

        @fields = extract_multiple($text,
                                   [ sub { extract_variable($_[0]) } ],
                                   undef, 1);

This <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	24995	25109	
==>2;
    my $elements_one;
    $elements_one = defined($3) ? $3 : $1;

    DEBUG > 2 and print "Extensor has good syn <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	323	442	
==>ded.

=cut

sub new {
    return bless {};
}

sub output_is() {
    my ($self, $code, $output, $desc) = @_;
  
    my $c <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	361	480	
==>ded.

=cut

sub new {
    return bless {};
}

sub output_is() {
    my ($self, $code, $output, $desc) = @_;
  
    my $c <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15876	16018	
==>et_source( $some_filehandle_object );
 $parser->run;

Or:

 my $parser = SomePodProcessor->new;
 $parser->set_source( \$document_source );
 $pa <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1968	2175	
==>$dir_count >2) {
          $path_to_language = File::Spec->join(File::Spec->updir() x ($dir_count - 2));
        }

        # flatten filenames (don't use directories)
        my $lang_fn     = Parrot::Test:: <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1483	1596	
==>$dir_count >2) {
          $path_to_language = File::Spec->join(File::Spec->updir() x ($dir_count - 2));
        } <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	2445	2568	
==>rot::Pmc2c
    if ($special_class_name{$classname}) {
        $nclass .= "::" . $classname;
    }
    else {
        $nclass <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	3491	3659	
==>Fetching a line from source filehandle $fh...\n";
        local $/ = $Pod::Simple::NL;
        push @lines, scalar(<$fh>); # readline
        DEBUG > 3 and print "  Line <==
2	/Users/nnunley/parrot/config/gen/icu.pm	685	941	
==>config, $without) = $conf->options->get(@args);

    my @icu_headers = qw(ucnv.h utypes.h uchar.h);
    my $autodetect  = !defined($icushared)
        && !defined($icuheaders);

    $self->set_result(undef);
    unless ($without) {
        if (!$autodetect) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	27254	27430	
==>describe_group { "group $_[3]" }
sub describe_rule { undef }

sub wrap {
    my ($self, $op, $back, @ops) = @_;
    return ($back, @ops) unless $self->{DEBUG};

    my $method = <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	29933	30038	
==>:
# The name or URL, or undef if none. (E.g., in "L<Perl
# Functions|perlfunc>", the name -- also sometime <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	325	519	
==>tests like this:

    pasm_output_is(<<'CODE', <<'OUTPUT', "description of test");
    print "this is ok\n"
    end
    CODE
    this is ok
    OUTPUT

=head1 DESCRIPTION

This module provides va <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	283	455	
==>s membership tests:
my $CHECK_CLASS_MEMBERSHIP = ($] >= 5.003_95);

my $print = 0;
sub printem {
    if (@_) { $print = shift }
    else    { $print++ }
}

{
    package Cla <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	2416	2534	
==>my $i;
	for ($i=0; $i<length $dels; $i++)
	{
		my $del = quotemeta substr($dels,$i,1);
		my $esc = quotemeta substr($es <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	6873	7005	
==>.
    my %start;
    foreach my $subop (@{ $op->{args} }) {
        my @subop_startset = $subop->startset();
        return 0 if grep <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	2262	2351	
==>ed, $description)> or C<output_isnt($code, $unexpected, $description)>

Runs the Parrot As <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	2488	2653	
==>you like?', $pmc_list);
        }
    }

    # XXX:leo do we really need an interactive step for this
    # user could deactivate vital PMCs like SArray
    # so ther <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819592	819686	
==>reter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n\n  if (!entry) {\n    internal_except <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820552	820646	
==>reter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n\n  if (!entry) {\n    internal_except <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564946	565277	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "can",
                  "FLAGS" => ":object_base",
                  "ARG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565838	566169	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "can",
                  "FLAGS" => ":object_base",
                  "ARG <==
2	/Users/nnunley/parrot/config/init/miniparrot.pm	1955	2223	
==>nder ANSI C89.
        # so we will have to check every byte.
        ptr_alignment => 1
    );

    #Allow ANSI headers only
    foreach (
        qw(assert complex ctype errno locale math setjmp signal stdarg
        stdio stdlib string time)
        ) {
        $con <==
2	/Users/nnunley/parrot/config/auto/memalign.pm	790	914	
==>>data->get('memalign')) {
        # already set; leave it alone
        $self->set_result('already set');
        return $sel <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17781	18110	
==>arser,
            'result' => $result2,
            'arg1'   => $result,
            'arg2'   => $key->[0],
        );
        $result = $result2;
    }
    return [ $result, \@opcodes ];
}

sub BuildCallMethod {
    my ( $parser, $obj, $meth, $args ) = @_;
    my @opcodes = ();
    my $key = BuildLiteral( $parser, <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	39	249	
==>ndation.
# $Id: /parrot/config/auto/sizes.pm 20338 2006-06-22T16:18:58.705067Z jonathan  $

=head1 NAME

config/auto/sizes.pm - Various Sizes

=head1 DESCRIPTION

Determines the sizes of various types.

=cut

pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667286	667598	
==>],
                  "TYPE" => "inline",
                  "CODE" => 746,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 405 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->push_integer(interpreter, {{ <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	1314	1465	
==>nfig/gen/makefiles/root.in' => 'Makefile',
        commentType                    => '#',
        replace_slashes                => 1,
        condition <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936250	936340	
==>"#line 455 \"src/ops/string.ops\"\n  {{\@1}} = string_titlecase(interpreter, {{\@2}});\n  { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937027	937117	
==>"#line 455 \"src/ops/string.ops\"\n  {{\@1}} = string_titlecase(interpreter, {{\@2}});\n  { <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	12798	12996	
==>t>)
            } elsif ($_ =~ /branch \d+ taken = 0%/) {
                print OUT qq($atag<font color="red">$_</font>)
            } elsif ($_ =~ /call \d+ returns = 0%/) {
                print OU <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	5052	5177	
==>y $self = shift;
    my $recursive = shift;
    my $ignore = shift;
    my @files = map {$self->file_with_path($_)} $self->fil <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7885	8056	
==>@sempar )
                            : @sempar ? $sempar[0] : undef;

            splice(@$stack,-$len,$len);

                $$check eq 'ACCEPT'
            and do <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7530	7695	
==>@sempar )
                            : @sempar ? $sempar[0] : undef;

            splice(@$stack,-$len,$len);

                $$check eq 'ACCEPT'
            and do <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956816	957117	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957720	958021	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	2040	2180	
==>onsider this parser's source dead

  'output_fh',         # The filehandle we're writing to, if applicable.
                       # Used onl <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	18745	19031	
==>m my $title_string = $parser->get_short_title

This is just like get_title, except that it returns just the modulename, if
the title seems to be of the form "SomeModuleName -- description".

For example, suppose you have a document that starts out:

  =head1 NAME
  
  Hoo::Boy::Wowza -- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809720	809977	
==>get_string_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810625	810882	
==>get_string_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	261	371	
==>9Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block::Loop::Until;

use Carp;

use ba <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	30970	31070	
==>inuation {
}

sub _op_call_with_input_file {
}

sub _op_call_with_output_file {
}

sub _op_input_port <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1465	1585	
==>$token,$value,$check,$dotpos);
    my($self)={ ERROR => \&_Error,
				ERRST => \$errst,
                NBERR => \$nbe <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1415	1532	
==>$token,$value,$check,$dotpos);
    my($self)={ ERROR => \&_Error,
				ERRST => \$errst,
                NBERR => \$nbe <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1557	1670	
==>( $ok ) { foreach my $meth ( $lang_f, $pasm_f, $by_f, $out_f ) { unlink $meth } } # JMG
    }
}

1;

my $urmc = "$ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	614	738	
==>d necessary checks back in
    $t = $self->add_checks($t, 0, 0);
    # Delete the no-implicit-check marker
    $t = $self->ma <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355570	355871	
==>RGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 415,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 217 \"src/ops/i <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1547	1647	
==>ata()>

Provides access to a L<Parrot::Configure::Data> object intended to contain
initial and discov <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	537604	538060	
==>h",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 622,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 969 \"src/ops/math.ops\"\n  {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90341	90801	
==>LAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 112,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BOD <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	4485	4629	
==>, $line, "Cuddled else (\"} else {\") found.");
        }
    }
}


# for now just try to catch glaring errors.  A real parser is probably
# over <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10513	10618	
==>cc_run_capture
{
    my $exe   = $conf->data->get('exe');
    my $slash = $conf->data->get('slash');
    m <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	2915	3040	
==>t

sub write_html
{
    my $self = shift;
    my $source = shift || die "No source\n";
    my $target = shift || die "No targe <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	2363	2488	
==>t

sub write_html
{
    my $self = shift;
    my $source = shift || die "No source\n";
    my $target = shift || die "No targe <==
2	/Users/nnunley/parrot/languages/converter.pl	1195	1300	
==>return .= " ( $item[3] )(?) ";
		  $return .= $item[5][0] if defined $item[5][0];
		}
		| terminal(?) /<[^ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24491	24595	
==>currently ignored\n";
			goto &parse_dim;
		} else  {
			die "Unknown dim type: $syms[CURR] at source lin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740483	740590	
==>"\n  {{\@1}} = {{\@2}}->vtable->get_string(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	4357	4592	
==>a = ",
       I => "return_data = ",
       N => "return_data = ",
#      B => "return_data = ",
       v => "",
     );

my %sig_char =
     ( p => "P",
       i => "I",
       3 => "P",
       2 => "P",
       4 => "P",
       l => "I <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	21605	21747	
==>les];

        # Emit branch code.
        $pir .= "    if cur_ic >= 0x$r2[0]->{'code'} goto INS_BRANCH_$prefix$r2[0]->{'code'}\n";
        $pi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	699	790	
==>, 'Jako::Construct::Expression::Value::Identifier');
  confess "Props are not hash!" if defi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	778	869	
==>, 'Jako::Construct::Expression::Value::Identifier');
  confess "Props are not hash!" if defi <==
2	/Users/nnunley/parrot/lib/File/Which.pm	3432	3629	
==>hich where);  # exports which() and where()
  
  my $exe_path = which('perldoc');
  
  my @paths = where('perl');
  - Or -
  my @paths = which('perl'); # an array forces search for all of them

=hea <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37572	37702	
==>sleftmost($self) ? 'q{}'
				: 'q{'.$self->describe.'}' ) . ';
		$Parse::RecDescent::lastunexpected = $text;
		' . ($self->{"lookah <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39975	40091	
==>sleftmost($self) ? 'q{}'
				: 'q{'.$self->describe.'}' ) . ';
		$Parse::RecDescent::lastunexpected = $text;

		$_tok <==
2	/Users/nnunley/parrot/lib/Test/More.pm	9626	9731	
==>is() and isnt().  Better
diagnostics on failure.

=cut

sub like ($$;$) {
    $Test->like(@_);
}


=item B <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7262	7428	
==>duce using rule ".-$act." ($lhs,$len): ";

                $act
            or  $self->YYAccept();

            $$dotpos=$len;

                unpack('A1',$lhs <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6926	7085	
==>duce using rule ".-$act." ($lhs,$len): ";

                $act
            or  $self->YYAccept();

            $$dotpos=$len;

                unpack('A1',$lhs <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	3734	3861	
==>irectories)
    {
        return $dir->file_with_name($name)
            if $dir->file_exists_with_name($name);
    }
    
    r <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2826	2942	
==>irectories)
    {
        return $dir->file_with_name($name)
            if $dir->file_exists_with_name($name);
    } <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11279	11443	
==>, $extra)=@_;
	if ($extra and $extra->[2] eq "STRING") {
		return "S";
	}
	if ($func=~/\$$/) {
		return "S";
	} else {
		return "N";
	}
}
sub generate_code {   # Wil <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	4633	4753	
==>igned short integer as the exit status).

Because VMS's exit codes are much, much different than the rest of the
universe <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2415	2512	
==>= P0["$stype"]
	P0= P1["$var"]	# Pull the original
	P2= P10[I25]
	P3= P2["$stype"]
	P3["$var"]= P0 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2642	2739	
==>= P0["$stype"]
	P0= P1["$var"]	# Pull the original
	P2= P10[I25]
	P3= P2["$stype"]
	P3["$var"]= P0 <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	20439	20566	
==>"pmc_$pmcname.h", 1);

        my $fh = open_file( "<", $file );
        while (<$fh>) {
            if (/^(?:extern\s+)?\w+\*?\ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	2733	2876	
==>of using
confess() and warn().

=cut

sub set_symbol
{
  my $self = shift; # Required: Jako::Construct::Block
  my $name = shift; # Required: st <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	10839	10965	
==>ack) = @_;');
#    }

    if ($self->{DEBUG}) {
        push @ops, qq(print "Calling $name at \$rx_pos for ";);
        push @o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85589	85679	
==>);\n  {{\@1}} = VTABLE_get_pmc_keyed_str(interpreter, compreg_hash, {{\@2}});\n  {{+=3}};\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86496	86586	
==>);\n  {{\@1}} = VTABLE_get_pmc_keyed_str(interpreter, compreg_hash, {{\@2}});\n  {{+=3}};\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644078	644332	
==>le->type_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644971	645225	
==>le->type_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Compilers.pm	1010	1185	
==>lers/tge' ),
        $self->new_group( 'PAST', 'the Parrot/Punie Abstract Syntax Tree',
            'compilers/past' ),
        $self->new_group( 'POST', 'the Parrot/Punie O <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	14132	14251	
==>ne' => $m, 'errata' => 1}, ''],
  ;

  push @out, 
    ['=back',  {'start_line' => $m, 'errata' => 1}, ''],
  ;

  DEBUG <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	7705	7831	
==>ags}{does}{const} = 1;
    # set classname
    $const->{class} = "Const" . $self->{class};
    # and alias vtable
    $const->{ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	1393	1530	
==>$dir ($self->directories())
        {
            next if defined $ignore and $dir->name =~ /$ignore/;
            
            push @file <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1248	1360	
==>re out how many levels we have to go back to get to parrot.
        # And, conversely, how many levels we have to <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	718	826	
==>re out how many levels we have to go back to get to parrot.
    # And, conversely, how many levels we have to <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	396	522	
==>0][1] eq $_[1] }
sub is_tag { shift->is_tagname(@_) }

1;


__END__

=head1 NAME

Pod::Simple::PullParserEndToken -- end-tokens <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7571	7799	
==>e '$lhs' ill formed: ".
                        "report it as a BUG.\n";
                $$dotpos = $1;
            };

            @sempar =       $$dotpos
                        ?   map { $$_[1] } @$stack[ -$$dotpos .. - <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7225	7447	
==>e '$lhs' ill formed: ".
                        "report it as a BUG.\n";
                $$dotpos = $1;
            };

            @sempar =       $$dotpos
                        ?   map { $$_[1] } @$stack[ -$$dotpos .. - <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1032	1150	
==>ra => '-def:src/libnci_test.def',
    );

    if ($is_msvc) {

        # Check the output of cl.exe to see if it contai <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	5463	5597	
==>Chi'      , 935,
 'Psi'      , 936,
 'Omega'    , 937,
 'alpha'    , 945,
 'beta'     , 946,
 'gamma'    , 947,
 'delta'    , 948,
 'ep <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221646	221758	
==>],
                  "BODY" => "#line 484 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	66124	66454	
==>S" => [
                                 "o"
                               ],
                  "TYPE" => "function",
                  "CODE" => 86,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 989 \"src/ops/core.ops\"\n  {{\@1}} = VTABLE_get_p <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	166	388	
==>xtract_file_descriptions.pl 19607 2006-05-30T15:23:20.183054Z coke  $
################################################################################

=head1 NAME

tools/dev/extract_file_descriptions.pl - Extract descripti <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	2067	2237	
==>s the HTML navigation bar.

=cut

sub html_navigation
{
    my $self = shift;
    my $path = shift;
    my $parent = $self->parent || return '';
    
    return join ' | ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	10116	10298	
==>in the Parrot::Op, push the
        # Parrot::Op onto our op array, and forget the op so we can start the next
        # one.
        #

        if (/^}\s*$/)
        {
            $c <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4059	4182	
==>ameter '".lc($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _DBLoad {
	{
		no strict 'refs';

			e <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3856	3967	
==>ameter '".lc($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _DBLoad {
	{
		no strict 'refs';

			e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949188	949451	
==>trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1068 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	26164	26300	
==>>invoke(interpreter, p, {{^+1}});\n  {{=dest}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( { <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	18039	18144	
==>op eq '<<') {
		$ld1pos = pos($$textref);
		my $label;
		if ($$textref =~ m{\G([A-Za-z_]\w*)}gc) {
			$lab <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1006	1153	
==>>file,
    LINE   => $token->line
  }, $class;
}

sub kind  { return shift->{KIND};  }
sub scope { return shift->{SCOPE}; }

#
# compile2
#

sub com <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584401	584494	
==>e 303 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585476	585569	
==>e 303 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}});\n  opc <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4108	4216	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

__PACKAGE__->_accessorize(
 'doc_lang',
 'head1_halfpoint_size' <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8259	8360	
==>umn alignment
print "Hello";tab$(15);"World"
print "Foo";tab$(15);"Stuff"
print "I am the very model o <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21123	21224	
==>umn alignment
print "Hello";tab$(15);"World"
print "Foo";tab$(15);"Stuff"
print "I am the very model o <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	5658	5791	
==>ew;
    $md5->add('foo', 'bar');
    $md5->add('baz');
    $digest = $md5->hexdigest;

    print "Digest is $digest\n";

=head1 LIMITA <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	244	453	
==>f     defined $value    and ref($value)    eq 'SCALAR'
      and not(defined $variable and ref($variable) eq 'SCALAR')
    ; # tolerate getting it backwards
    
    unless( defined $variable and ref($variable) <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3170	3282	
==>r_opcode[%ld]",
    'nc' => "CONST(%ld)->u.number",
    'pc' => "CONST(%ld)->u.key",
    'sc' => "CONST(%ld)->u.s <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2082	2191	
==>r_opcode[%ld]",
  'nc'  => "CONST(%ld)->u.number",
  'pc'  => "CONST(%ld)->u.key",
  'sc'  => "CONST(%ld)->u.s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	521787	522084	
==>LAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 602,
                  "ARGS" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5017	5186	
==>OT_${eqnum}: noop
CODE
		die "$a1,$a2,$result,$op,$ot1,$ot2\n";
	},
	'xor' => sub {
		my($a1,$a2,$result,$op,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($o <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	19332	19448	
==>);
	$str1pos = $ld1pos+1;

	unless ($$textref =~ m/\G(\S)/gc)	# SHOULD USE LOOKAHEAD
	{
		_failmsg "No block delimite <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565743	566014	
==>} = {{\@2}}->vtable->can(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566636	566907	
==>} = {{\@2}}->vtable->can(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5942	6060	
==>less ($entry->[4] =~ /MMD_/);
    next if ($entry->[4] =~ /_INT$/);
    next if ($entry->[4] =~ /_STR$/);
    next if ( <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6360	6478	
==>less ($entry->[4] =~ /MMD_/);
    next if ($entry->[4] =~ /_INT$/);
    next if ($entry->[4] =~ /_STR$/);
    next if ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400939	401411	
==>ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 464,
                  "ARGS" => [
                              "p",
                              "ic",
                              "i",
                              "ic"
                            ], <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	11227	11401	
==>, my $line) = caller();
               $desc = "($file line $line)";
            }

            # $test_no will be part of temporary file
            my $test_no = $builder->c <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	16712	16886	
==>, my $line) = caller();
               $desc = "($file line $line)";
            }

            # $test_no will be part of temporary file
            my $test_no = $builder->c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367882	368133	
==>preter), (size_t){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368674	368925	
==>preter), (size_t){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208319	208409	
==>"BODY" => "#line 401 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209260	209350	
==>"BODY" => "#line 401 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7461	7615	
==>bareword.  
	# This should be an assignment
	#if ($syms[NEXT] eq "=") {
	#	# Assignment statement
	#	my $var=$syms[CURR];
	#	feedme;  # Get the =
	#	#print <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	25017	25130	
==>e;
    $elements_one = defined($3) ? $3 : $1;

    DEBUG > 2 and print "Extensor has good syntax.\n";

    unless( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2411	2502	
==>->emit_par( 0) }
sub end_item_bullet { $_[0]->emit_par( 0) }
sub end_item_number { $_[0]->em <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1979	2070	
==>->emit_par( 0) }
sub end_item_bullet { $_[0]->emit_par( 0) }
sub end_item_number { $_[0]->em <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	25293	25472	
==>Parse::RecDescent::expectation_message(),'.($check->{itempos} ? '$thisline' : 'Parse::RecDescent::linenum($thisline)').'];
		'; 
	}

	my $dir =
	      new Parse::RecDescent::Direct <==
2	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	1367	1561	
==>ersion component: '$_' in VERSION file!" unless m/^[1-9]*\w*$/;
    }

    if (@parrot_version == 4) {
        #    $parrot_version[2] = $parrot_version[2] . "_" . $parrot_version[3];
        $#p <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	12824	12981	
==>adic:\u2193" :multi (Float, APLVector) # drop
    .param int op1
    .param pmc op2

    if op1 < 0 goto neg_loop

pos_loop:
    if op1 == 0 goto done
    $P1 <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	28179	28286	
==>@_;

  my($i, $treelet);
  my $start_line = $stack[0][1]{'start_line'};

  # A recursive algorithm implement <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	31680	31787	
==>@_;

  my($i, $treelet);
  my $start_line = $stack[0][1]{'start_line'};

  # A recursive algorithm implement <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	8673	8768	
==>O: enforce some limitations on what a target name can be?
    delete $this->{'accept_targets'}{$ <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3295	3414	
==>('ld_debug') =~ /-debug/) {
            my $linkflags = $conf->data->get('linkflags');
            $linkflags =~ s/-opt: <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4799	4918	
==>('ld_debug') =~ /-debug/) {
            my $linkflags = $conf->data->get('linkflags');
            $linkflags =~ s/-opt: <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	47684	47872	
==>se the earlier " || die;\nexit;" to be skipped in any
sequence of code fragment extractions.

To avoid this problem, when it encounters a here document whilst
extracting from a modifiable s <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	3271	3425	
==>p {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = find <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	3485	3639	
==>p {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = find <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1809	1926	
==>args), scalar(@args), $name)
    unless @formal_args == @args;

  for (my $i = 0; $i < @args; $i++) {
    my ($formal_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1509	1626	
==>args), scalar(@args), $name)
    unless @formal_args == @args;

  for (my $i = 0; $i < @args; $i++) {
    my ($formal_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	631	746	
==>eturn '' unless @_;
  my @out;
  foreach my $in (@_) {
    push @out, '"' . $in . '"';
    $out[-1] =~ s/([^- \:\:\. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653380	653474	
==>table->find_method(interpreter, {{\@2}}, {{\@3}});\n    if (!{{\@1}} || !VTABLE_defined(interpr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654541	654635	
==>table->find_method(interpreter, {{\@2}}, {{\@3}});\n    if (!{{\@1}} || !VTABLE_defined(interpr <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	8607	8808	
==>local/lib',
             'lns' => '/bin/ln -s',
             'load_ext' => '.bundle',
             'longsize' => 4,
             'make' => 'gmake',
             'make_and' => '&&',
             'make_c' <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	13824	13929	
==>g = $1;
	   $closing =~ tr/([<{/)]>}/;
	my $matched;
	my $patvalid = 1;
	while (pos($$textref) < length($$ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2649	2747	
==>mpile($compiler);

  my $dest_name = $dest->value;
  $dest = $dest->compile($compiler);

  $compile <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24563	24683	
==>p, $return);
      $self->_restore ($return);
      $return = $temp;
    }
  } else {
    $return = $self->_generate($nod <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26462	26582	
==>p, $return);
      $self->_restore ($return);
      $return = $temp;
    }
  } else {
    $return = $self->_generate($nod <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	13022	13247	
==>d">$_</font>)
            } elsif ($_ =~ /^call \d+ never executed/) {
                print OUT qq($atag<font color="red">$_</font>)
            } elsif ($_ =~ /^branch \d+ never executed/) {
                print OUT qq($ata <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	395133	395515	
==>= (INTVAL)(pos & 0xffffffff);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "socket",
                  "FLAGS" => ":base_networ <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	13165	13305	
==>tion></td>
            <td class="leftsep num"><tmpl_var name=percentage>&nbsp;%&nbsp;ok</td>
	    <tmpl_loop name=summary>
	      <td class= <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	938	1083	
==>ield .namespace .endnamespace .macro .include);
my @pod_start = qw(head[1-6] over back item for begin end pod);
my $pod_start_rx = join '|', @pod_ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	374	471	
==>lass Methods

=over

=cut

package Parrot::Docs::Section::Languages;

use strict;
use warnings;

u <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1364	1472	
==>ulwave
   ]
   # But no double-strikethrough, because MSWord can't agree with the
   #  RTF spec on whether i <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	19392	19652	
==>ent types corrected.
    Class name to struct() made optional.
    Diagnostic checks added.

Originally C<Class::Template> by Dean Roehrich.

    # Template.pm   --- struct/member template builder
    #   12mar95
    #   Dean Roehrich
    #
    # changes/bugs f <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	5224	5414	
==>ept_codes'      => { map( ($_=>$_), @Known_formatting_codes ) },
    'accept_directives' => { %Known_directives },
    'accept_targets'    => {},
  }, $class;
}



# TODO: an option for wheth <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53407	53630	
==>K/gco)
			{
				_parse("a resync to newline marker", $aftererror,$line);
				$item = new Parse::RecDescent::Directive(
					      'if ($text =~ s/\A[^\n]*\n//) { $return = 0; $& } else { undef }',
					      $lookahead,$line <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	830	935	
==>ewval")');
    return undef;
  }
}

1;


__END__

=head1 NAME

Pod::Simple::PullParserStartToken -- start- <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	9921	10055	
==>ies to match its children at the same
        # starting point in the string -- think of alternation, for
        # example.)
        f <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	32218	32364	
==>f $text:

		$substring = extract_delimited($text, "'", '');

	# Remove a single-quoted Pascalish substring (i.e. one in which
	# doubling the quote <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855398	855880	
==>se_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 971,
                  "ARGS" => [
                              "s",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 105 \"src/ops/string.o <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	5911	6190	
==>^push$/) {
            if ($rule->{$_} =~ /^\d+$/) {
                if ($has_push) {
                    die "Duplicate value for push in rule $rule->{'name'}\n";
                } else {
                    $has_push = 1;
                }
            } else {
                d <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	163	282	
==>'Regex::CodeGen';
use strict;

sub output_preamble {
    my $self = shift;

    return (
            'new P0, PerlRegex' <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	1181	1291	
==>k_progs)
             ],
    gen =>   [qw(genfile copy_if_diff move_if_diff)]
);

=item C<integrate($orig, $new <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	570	797	
==>ike',
    output_isnt => 'isnt_eq',
);

foreach my $func ( keys %language_test_map ) {
    no strict 'refs';

    *{"Parrot::Test::Lua::$func"} = sub {
        my $self = shift;
        my ( $code, $output, $desc, %opti <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	842	1014	
==>ike',
    output_isnt       => 'isnt_eq',
                        );

foreach my $func ( keys %language_test_map ) {
    no strict 'refs';            ## no critic

    *{"Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256190	256438	
==>> [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 740 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	363	458	
==>ode, and creates a different type of run loop. The
methods defined here supply various default v <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	1638	1729	
==>ALSO

=over 4

=item F<tools/build/ops2pm.pl>

=item C<Parrot::OpsFile>

=item C<Parrot::Op> <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	6954	7079	
==>/\n    /mg;
	    $source =~ s/#line.*\n//mg;
	    $source =~ s/CUR_OPCODE/(start_code + $pc)/mg;

	    printf("\n    /* %s */\ <==
2	/Users/nnunley/parrot/config/inter/lex.pm	965	1095	
==>il => 'echo');
        $self->set_result('skipped');
        return $self;
    }

    my $prog;

    # precedence of sources for th <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	962	1092	
==>il => 'echo');
        $self->set_result('skipped');
        return $self;
    }

    my $prog;

    # precedence of sources for th <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	1819	1937	
==>e');   }
sub is_close_bracket { return shift->is('close-bracket'); }
sub is_close_paren   { return shift->is('close-par <==
2	/Users/nnunley/parrot/languages/converter.pl	549	671	
==>=~/^"/;
  $string;
}

my $grammargrammar = <<'_EOF_';

rule		: /\w+/ '::=' production
#		{[@item[1,3]]} 
		{ "$item[1] : $i <==
2	/Users/nnunley/parrot/config/auto/alignptrs.pm	191	285	
==>head1 DESCRIPTION

Determine the minimum pointer alignment.

=cut

package auto::alignptrs;

us <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	1243	1370	
==>.$right");

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name = <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	2084	2222	
==>t post on p6i, if called with a single argument of
C<--files>, return a list of files to process.  This list is one per line, and
is relati <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9967	10074	
==>s[$$stack[-1][0]]{ACTIONS}{error})
					or	$$states[$$stack[-1][0]]{ACTIONS}{error} <= 0)) {

#DBG>			$de <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9520	9624	
==>s[$$stack[-1][0]]{ACTIONS}{error})
					or	$$states[$$stack[-1][0]]{ACTIONS}{error} <= 0)) {

#DBG>			$de <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4243	4349	
==>il if ord(substr(<rx_input>, <rx_pos>, 1)) != $code;" . $comment);
    if ($self->{DEBUG}) {
        push @ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	2314	2667	
==>in list context or an arrayref in
scalar context.

=cut

sub steps
{
    my $self = shift;

    return wantarray ? @{$self->{steps}} : $self->{steps};
}

=item * C<add_step()>

Registers a new step and any parameters that should be passed to it.  With the
first parameter being the class name of the step register.  All other
parameters are saved and pas <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	4978	5107	
==>{
   my ($n, $c) = @_;
   print <<EOC;
pc_$n:
EOC
}

sub New_func {
    my ($n, $arg, $cmt) = @_;
    my $nst = "";
    my $ns = $ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	741	847	
==>tem('', 'docs/intro.pod'),
			$self->new_item('', 'docs/gettingstarted.pod'),
			$self->new_item('', 'docs/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015076	1015299	
==>tring_make(interpreter, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015900	1016123	
==>tring_make(interpreter, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	14839	14958	
==>my $self = shift(@_);
  ++$self->{'errors_seen'};
  if($self->{'no_whining'}) {
    DEBUG > 9 and print "Discarding comp <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	6298	6445	
==>x;
}

sub startset {
    my $op = shift;
    my %start;
    foreach (@{ $op->{args} }) {
        @start{$_->startset()} = ();
    }
    return Regex <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19465	19588	
==>urns the contents of the
"=head1 AUTHOR\n\nParagraph...\n" section, assuming that that section
isn't terribly long.

(This m <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	18019	18129	
==>t});
    $self->{Curr_Test}++;

    $self->{Test_Results}[$self->{Curr_Test}-1] = &share({
        'ok'      => <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	18884	18994	
==>t});
    $self->{Curr_Test}++;

    $self->{Test_Results}[$self->{Curr_Test}-1] = &share({
        'ok'      => <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	243	339	
==>l, which looks like it's
largely a copy of Parrot::Test::Python. Abstraction needed.

=cut

sub n <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	281	377	
==>l, which looks like it's
largely a copy of Parrot::Test::Python. Abstraction needed.

=cut

sub n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199717	200046	
==>"i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 236,
                  "ARGS" => [
                              "n",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 373 \"src/ops/cmp.op <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	8636	8802	
==>ited}) {
        my ($kid_follow_min, $kid_guarantee) = ($follow_min, $guarantee);

        foreach my $kid (@{ $t->{args} }) {
            $kid_follow_min += $kid->mi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	19330	19528	
==>re; # whether this target matches us
      
      foreach my $target_name (
        split(',', $content, -1),
        $neg ? () : '*'
      ) {
        DEBUG > 2 and
         print " Considering whet <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	1185	1306	
==>')
  .local string pir_code
  .local int register_num
  (register_num,pir_code) = inlined(0,argv)
  .get_from_HLL(pir_comp <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	8715	8815	
==>"I");
    UVal_int(st->val) = val;
    Parrot_convert_arg(interpreter, st);
    Parrot_store_arg(inte <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	44804	44894	
==>ATLEAST		= '\G\((\d+)\.\.'.$SIMPLEPAT.'\)';
my $ATMOST		= '\G\(\.\.([1-9]\d*)'.$SIMPLEPAT.' <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1126	1249	
==>/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically by $0.
 *
 * Any chan <==
2	/Users/nnunley/parrot/tools/build/revision_c.pl	500	623	
==>/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically by $0.
 *
 * Any chan <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	203	453	
==>G = \&Pod::Simple::DEBUG unless defined &DEBUG;
}

$ATTR_PAD = "\n" unless defined $ATTR_PAD;
 # Don't mess with this unless you know what you're doing.

$SORT_ATTRS = 0 unless defined $SORT_ATTRS;

sub new {
  my $self = shift;
  my $new = $self->SUP <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5038	5148	
==>s) {
        copy("$_$LOAD_EXT", $dest) or die "Copy $_$LOAD_EXT failed ($?)\n";

        # Execute permissions <==
2	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	1274	1527	
==>failed:\n$output";
		return 0;
	}
	return 1;
}

# This takes some PIR, saves it to a file then runs it.
# #####################################################
sub run_pir($) {
	my $pir_code = shift;
	
	# Write.
	my $fh;
	open $fh, "> __temp__.pir" or di <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25494	25605	
==>0.0, FOR_GT_$forloop
	lt $result, FORLOOP_END_$forloop, AFTER_NEXT_$forloop
	goto FOR_LOOP_BODY_$forloop
FOR_GT_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9023	9221	
==>$check='';

        };

        #Error
            $$errstatus
        or   do {

            $$errstatus = 1;
            &$error($self);
                $$errstatus # if 0, then YYErrok h <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8618	8806	
==>$check='';

        };

        #Error
            $$errstatus
        or   do {

            $$errstatus = 1;
            &$error($self);
                $$errstatus # if 0, then YYErrok h <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33969	34086	
==>= $method->{type};
        $ret_def = "$type ret_val;";
        $func_ret = $self->gen_ret($method->{type});
        $ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38931	39048	
==>= $method->{type};
        $ret_def = "$type ret_val;";
        $func_ret = $self->gen_ret($method->{type});
        $ <==
2	/Users/nnunley/parrot/config/init/hints/cygwin.pm	769	898	
==>shared' instead of 'ld2'.
    # If this later causes problems, it might be worth revisiting.
    # A. Dougherty 9/9/2002
    $conf <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1083	1189	
==>e.
	my $pir = <<'PIR';
# Get current stack types array size.
${ITEMP0} = elements ${STYPES}
PIR

	# Do code <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2793	2899	
==>e.
	my $pir = <<'PIR';
# Get current stack types array size.
${ITEMP0} = elements ${STYPES}
PIR

	# Do code <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365292	365419	
==>_putps(interpreter, {{\@1}}, {{\@2}});\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366132	366259	
==>_putps(interpreter, {{\@1}}, {{\@2}});\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	935090	935387	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1051, <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8558	8676	
==>{GOTOS}{$lhs}.\n";

#DBG>				$debug & 0x10
#DBG>			and	$dbgerror
#DBG>			and	$$errstatus == 0
#DBG>			and	do {
#D <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8172	8284	
==>{GOTOS}{$lhs}.\n";

#DBG>				$debug & 0x10
#DBG>			and	$dbgerror
#DBG>			and	$$errstatus == 0
#DBG>			and	do {
#D <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8749	8852	
==>"\n    char * const label = string_to_cstring(interpreter, {{\@1}});\n    struct PackFile_FixupEntry *fe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9865	9968	
==>"\n    char * const label = string_to_cstring(interpreter, {{\@1}});\n    struct PackFile_FixupEntry *fe <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	12466	12588	
==>ULT => -11
	},
	{#State 5
		DEFAULT => -28,
		GOTOS => {
			'rulename' => 18
		}
	},
	{#State 6
		DEFAULT => -26
	},
	{#Sta <==
2	/Users/nnunley/parrot/Configure.pl	10008	10201	
==>(%args);
# Run the actual steps
$conf->runsteps or exit(1);

# tell users what to do next
my $make = $conf->data->get('make');

print <<"END";

Okay, we're done!

You can now use `$make' to buil <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	59319	59450	
==>'%' is the escape for double quotes:

        gen_delimited_pat(q{'"},q{/%});

If more delimiters than escape chars are specified, t <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12443	12584	
==>?)\)      # capture argument list
     /"$supermethod(" . full_arguments($1) . ')'/xeg;

    # Rewrite DYNSELF.other_method(args...)
    s/DYN <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2798	2915	
==>= $op->value;
      $name =~ s/(^"|"$)//g;
    }

    $name =~ s/^.*:://; # Strip namespaces off ops.

    $compiler-> <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	574	728	
==>.pir'\n"
    for @dynamic_cmds;



# For every builtin with an inline'd version and no interpreted version,
# create a shim for the interpreted version tha <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645877	645988	
==>\n    else\n\t\t{{\@1}} = Parrot_get_datatype_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646774	646885	
==>\n    else\n\t\t{{\@1}} = Parrot_get_datatype_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "L <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25096	25196	
==>CURR] eq "step") {
		($stepexpr, $type, @stepcode)=EXPRESSION();
	} else {
		$stepexpr="1.0";
	}
	$ma <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	2613	2708	
==>der->new;

Returns a Test::Builder object representing the current state of the
test.

Since you <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	8326	8425	
==>g, but not with
    # anything else.
	if ($has_typeinfo && $rule->{'class'} ne 'op' && $rule->{'clas <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15189	15282	
==>/([F\x00-\x1F\-\\\{\}\x7F-\xFF])/$Escape{$1}/g;  # ESCAPER
      $x =~ s/([^\x00-\xFF])/'\\uc1 <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	5673	5845	
==>erated automatically from '$file'.
# Any changes made here will be lost!
#

$pod

use strict;

package Parrot::OpLib::$package;

use vars qw(\$VERSION \$ops \$preamble);

\$ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2011	2108	
==>--$_[0]{'Indent'} }
sub   end_over_number  { --$_[0]{'Indent'} }
sub   end_over_text    { --$_[0]{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1579	1676	
==>--$_[0]{'Indent'} }
sub   end_over_number  { --$_[0]{'Indent'} }
sub   end_over_text    { --$_[0]{ <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2317	2547	
==>ew line
                last;
            s/^\\r//
                and $str .= "\r",      # carriage return
                last;
            s/^\\t//
                and $str .= "\t",      # horizontal tab
                l <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3831	4061	
==>ew line
                last;
            s/^\\r//
                and $str .= "\r",      # carriage return
                last;
            s/^\\t//
                and $str .= "\t",      # horizontal tab
                l <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	813	905	
==>=head2 Instance Methods

=over 4

=item C<files_of_type($type, $recursive, $ignore)>

Use thi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	398778	399292	
==>ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 462,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 527 \" <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3312	3408	
==>ot::Test::pir_output_is;
}

=item C<pgeglob_isnt($target, $pattern, $description, @todo)>

Runs t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438242	438577	
==>ne",
                  "CODE" => 502,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 99 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_ppp(interp <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	7271	7428	
==>);

    $self->need_group_setup($group);

    my ($R_back, @R_ops) = $self->rewrite($R, $rfail);

    my @ops = (
                        aop('getstart', [ '< <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	1767	1871	
==>>

The same as C<--t>.

=item C<--type=long>

=item C<-L>

Append a long type (e.g. "global_const_init_da <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64846	65095	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE|PAR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	310364	310585	
==>XIT)) {\n            PDB_get_command(interpreter);\n            command = interpreter->pdb->cur_command;\n            PDB_run_command(interpreter,command);\n        }\n        /* FIXME this is not ok */\n        exit(0);\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605902	606112	
==>\"\n    Parrot_add_attribute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606693	606903	
==>\"\n    Parrot_add_attribute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
2	/Users/nnunley/parrot/lib/Test/More.pm	3221	3355	
==>going to run.  In this case, you can declare that you
have no plan.  (Try to avoid using this as it weakens your test.)

  use Test::Mo <==
2	/Users/nnunley/parrot/lib/Test/More.pm	31761	31943	
==>= _deep_check($e1, $e2);
        pop @Data_Stack if $ok;

        last unless $ok;
    }

    return $ok;
}

=item B<eq_set>

  my $is_eq = eq_set(\@this, \@that);

Similar to eq_arra <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4505	4598	
==>l>-ed from a F<*.dump> file generated
by F<tools/build/pmc2c.pl> from a F<*.pmc> file. It is C <==
2	/Users/nnunley/parrot/lib/Test/More.pm	16078	16188	
==>t.

=cut

sub diag {
    return unless $Show_Diag;
    $Test->diag(@_);
}


=back

=head2 Module tests

You usu <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1547	1706	
==><somestring>)

This changes the tagname for this start-token object.
You probably won't need
to do this.

=item $token->tag(...)

A shortcut for $token->tagname <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	5430	5636	
==>turn @files;
}

=item C<directories()>

This gives you an array of instances of the same class as the directory
itself.

=cut

sub directories
{
    my $self = shift;

    return map {$self->directory_with_p <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	14324	14509	
==>$self->output_fh( *STDOUT{IO} );
  } else {
    require Symbol;
    my $out_fh = Symbol::gensym();
    DEBUG and print "Write-opening to $to\n";
    open($out_fh, ">$to")  or  Carp::croa <==
2	/Users/nnunley/parrot/examples/benchmarks/primes.pl	38	136	
==>The Perl Foundation.
# $Id: /parrot/examples/benchmarks/primes.pl 19601 2006-05-30T13:32:26.641316Z <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	5947	6054	
==>prod;
	foreach $prod ( @{$self->{"prods"}} )
	{
		my $next = $prod->expected();
		unless (! $next or _contai <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943429	943897	
==>":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1061,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 516 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_charset_number_of_str(inter <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	21036	21256	
==>@rules = sort { 
                $a->{'code'} =~ /^(\w{2})/;
                my $x = $1;
                $b->{'code'} =~ /^(\w{2})/;
                hex($x) <=> hex($1)
            } @rules;
            $pir .= "B2_BRANCH <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	446015	446303	
==>UMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 510,
                  "ARGS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	446651	446912	
==>UMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 51 <==
2	/Users/nnunley/parrot/lib/Test/More.pm	6092	6188	
==>_name);

This simply evaluates any expression (C<$this eq $that> is just a
simple example) and us <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1257	1361	
==>pred_offset)

#  define opcode_to_prederef(i, op)   (op ? \\
     (void**) (op   - CONTEXT(i->ctx)->pred_ <==
2	/Users/nnunley/parrot/lib/File/Which.pm	3659	3806	
==>> was created to be able to get the paths to executable programs
on systems under which the `which' program wasn't implemented in the shell.

C<File <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	4092	4442	
==>-O3
            #      -falign-functions=16 is the real alignment, no exponent
            3.0 => "-Wformat-nonliteral -Wformat-security -Wpacked "
                . "-Wdisabled-optimization -mno-accumulate-outgoing-args "
                . "-Wno-shadow -falign-functions=16 ",

            # -Wsequence-point is part of -Wall
            # -Wfloat-eq <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1941	2049	
==>Lookup the identifier:
  #

  my $sym = $block->find_symbol($self->name);

  #
  # If the identifier is alrea <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1688	1796	
==>Lookup the identifier:
  #

  my $sym = $block->find_symbol($self->name);

  #
  # If the identifier is alrea <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1133	1291	
==>CKAGE__, $ident->value;

  return $self;
}


#
# ACCESSORS:
#

sub type      { return shift->{TYPE};      }
sub name      { return shift->{NAME};      }
sub pr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680684	680970	
==>488 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_pmc(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	38532	38740	
==>EBUG > 3 and
             print "     Quotes removed: ", pretty(@section_name), "\n";
          } else {
            DEBUG > 3 and
             print "     No need to remove quotes in ", pretty(@section_name), <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1887	1993	
==>$parser->YYData->{lex_num};
    $parser->YYData->{lex_num} = 0;
##    warn "PushScopeF\n";
}

sub PopS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601401	601678	
==>\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
2	/Users/nnunley/parrot/lib/Test/More.pm	18615	18815	
==>age $pack;
require $module;
REQUIRE

    my $ok = $Test->ok( !$@, "require $module;" );

    unless( $ok ) {
        chomp $@;
        $Test->diag(<<DIAGNOSTIC);
    Tried to require '$module'.
    Err <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577838	578153	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "in <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16567	16781	
==>=> 35,
			'_field_plus' => 93,
			'field' => 89
		}
	},
	{#State 39
		DEFAULT => -81
	},
	{#State 40
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"... <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	9053	9158	
==>float, $frac, $exp);
    $exp = qr/[eE][-+]?\d+/;
    $frac = qr/\.\d+/;
    $pointfloat = qr/(?:(?:\d+)?$ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27203	27303	
==>slate code, if any.
        $pir .= sub_meta($pre_translate_code, $mv, "pre-translate for $rule->{'na <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34342	34442	
==>slate code, if any.
        $pir .= sub_meta($pre_translate_code, $mv, "pre-translate for $rule->{'na <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1853	2031	
==>[\\"'])//
                and $str .= $1,        # backslash, quotation mark, apostrophe
                last;
            s/^\\a//
                and $str .= "\a",      # be <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3367	3545	
==>[\\"'])//
                and $str .= $1,        # backslash, quotation mark, apostrophe
                last;
            s/^\\a//
                and $str .= "\a",      # be <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	693	803	
==>| '')) { # most common case: one bare string
      return bless ['', {}, $_[0] ], $class;
    } elsif( ref($_[0 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	1813	2036	
==>)>

Accessors for the containing section/group for the item.

=cut

sub set_parent
{
    my $self = shift;
    
    $self->{PARENT} = shift;
}

sub parent
{
    my $self = shift;
    
    return $self->{PARENT};
}

=item C<h <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	828	970	
==>$class, $code) = @_;
  return $types{uc $code};
}

sub new
{
  my $class = shift;
  my ($type) = @_;

  my $token;

  if (UNIVERSAL::isa($type, <==
2	/Users/nnunley/parrot/config/auto/m4.pm	656	849	
==>= $Config{archname};
    my ($cpuarch, $osname) = split('-', $archname);
    if (!defined $osname) {
        ($osname, $cpuarch) = ($cpuarch, "");
    }

    my $has_gnu_m4;

    # Calling 'm4 - <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	46010	46154	
==>atted';

  # Collapse adjacent text nodes, just for kicks.
  for( my $i = 2; $i > $#$p; $i++ ) { # work forwards over the tokens except for the l <==
2	/Users/nnunley/parrot/lib/Test/More.pm	37238	37332	
==>wden, blackstar.co.uk, chromatic, Fergal Daly and
the perl-qa gang.


=head1 BUGS

See F<http:/ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	8193	8300	
==>t::More.

$name is always optional.

=over 4

=item B<ok>

  $Test->ok($test, $name);

Your basic test.  Pas <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	15842	15956	
==>, $cmt);
}

sub BINARY_RSHIFT
{
    my ($n, $c, $cmt) = @_;
    binary_word('shr', $cmt);
}

sub BINARY_ADD
{
    m <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	3671	3770	
==>setlinenum}
			 - Parse::RecDescent::_linecount(${$self->{text}})
			 + 1;

	$parser->{offsetlinenum <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	25455	25609	
==>der from our own prints.
    _autoflush(\*TESTOUT);
    _autoflush(\*STDOUT);
    _autoflush(\*TESTERR);
    _autoflush(\*STDERR);

    $self->output(\*TES <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	1241	1351	
==>= '' unless $self->{NAV_BAR};
    
    my $title = $self->{'Title'};
    esc($title);

    print {$self->{'outp <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27681	27818	
==>q 'nci';
        $hout .= $self->decl($classname, $method, 1);
    }
    # class init decl
    if ($self->{flags}->{dynpmc}) {
        $ho <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1760	1931	
==>,
            o          => '.obj',
            cc_o_out   => '-Fo',
            cc_exe_out => '-out:',
            cc_ldflags => '/link',

            # ZI messes with __L <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3639	3810	
==>,
            o          => '.obj',
            cc_o_out   => '-Fo',
            cc_exe_out => '-out:',
            cc_ldflags => '/link',

            # ZI messes with __L <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	29982	30078	
==>"L<Perl
# Functions|perlfunc>", the name -- also sometimes called the page -- is
# "perlfunc". In <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	10455	10655	
==>tref unless $@;
	pos($$textref) = $startpos;
	return;
}

sub extract_variable (;$$)
{
	my $textref = defined $_[0] ? \$_[0] : \$_;
	return ("","","") unless defined $$textref;
	my $pre  = defined $_[1] <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	532	652	
==>ctory_class()>

Returns the class used in the various directory creation methods. This
default implementation returns C<P <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6645	6746	
==>st_was_blank'}) {
        DEBUG > 1 and print "Noting para ends with blank line at ${$self}{'line_coun <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840152	840236	
==>/stack.ops\"\n  rotate_entries(interpreter, &CONTEXT(interpreter->ctx)->user_stack, { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840847	840931	
==>/stack.ops\"\n  rotate_entries(interpreter, &CONTEXT(interpreter->ctx)->user_stack, { <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1062	1286	
==>my $self = shift;
        my ( $code, $output, $desc ) = @_;
  
        my $count = $self->{builder}->current_test + 1;

        # This is taken from Parrot::Test::Tcl.pm

        # Figure out how many levels we have to go ba <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	695	824	
==>my $self = shift;
        my ( $code, $output, $desc ) = @_;
  
        my $count = $self->{builder}->current_test + 1;

        m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959259	959347	
==>DY" => "#line 590 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_encoding(interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960061	960149	
==>DY" => "#line 590 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_encoding(interp <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	78627	78780	
==>until ($pos=index($_[0],"\n",$pos+1))<0;
	return $count;
}

package main;

use vars qw ( $RD_ERRORS $RD_WARN $RD_HINT $RD_TRACE $RD_CHECK );
$::RD_CHECK = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	338756	339209	
==>erpreter);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getstderr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	338110	338353	
==>erpreter);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getstd <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	60851	61018	
==>YData->{functs}      = [];
    $parser->YYData->{lex_num}     = 0;
    $parser->YYData->{scope}       = [];
    $parser->YYData->{scopef}      = [];
    $parser->YY <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	25842	25940	
==>by $delim (where the string
 # in $delim contains one or more of '(){}[]<>').

	($extracted, $remai <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2379	2482	
==>1) }
sub end_Para        { $_[0]->emit_par( 0) }
sub end_item_bullet { $_[0]->emit_par( 0) }
sub end_ite <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1947	2050	
==>1) }
sub end_Para        { $_[0]->emit_par( 0) }
sub end_item_bullet { $_[0]->emit_par( 0) }
sub end_ite <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	1685	1819	
==>$navigation
                </TD>
            </TR>
        </TABLE>
        <DIV CLASS="pod">
HEADER
}

=item C<footer($navigation, $r <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	1338	1453	
==>no) " if $verbose;
        $self->set_result('no');
        $conf->data->set(gccversion => undef);
        return $s <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2772	2886	
==>elevant C
code.

=cut

sub goto_pop
{
    my ($self) = @_;

    return "opcode_t* pop_addr = (opcode_t*)pop_dest(in <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14955	15168	
==>t_name, $attr_hash_r)
  DEBUG > 2 and print "++ $_[0] (", map("<$_> ", %{$_[1]}), ")\n";
  
  push @{ $self->{'token_buffer'} },
       $self->{'start_token_class'}->new(@_);
  return;
}

sub _handle_text {
  my $s <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	4652	4829	
==><<"EOM";

/*
 * vtable method name defines for delegate
 */

/* &gen_from_def(vtable_methods.pasm) */
EOM
    for my $entry (@{$vtable}) {
    my $uc_meth = uc $entry->[1];
    $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	14161	14289	
==>=$op_size}}/mg;
        $absolute ||= $body =~ s/\bgoto\s+ADDRESS\((.*?)\)/{{=$1}}/mg;
        $pop      ||= $body =~ s/\bgoto\s+ <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	5702	5844	
==>reter, enum_class_PerlArray);
    /* immediately anchor pmc to root set */
    interpreter->pmc_reg.registers[0] = userargv;

    for (i = 0; i <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	18692	18813	
==>nd the title, it will return empty-string
("").

=item my $title_string = $parser->get_short_title

This is just like get_ <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6766	6891	
==>or die "pmc2c dump failed ($?)\n";
    }
}

sub generate_c {
    my ($pmc) = @_;

    if (needs_build("$pmc.c", "$pmc.pmc")) { <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6977	7102	
==>or die "pmc2c dump failed ($?)\n";
    }
}

sub generate_c {
    my ($pmc) = @_;

    if (needs_build("$pmc.c", "$pmc.pmc")) { <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	25005	25115	
==>$elements_one;
    $elements_one = defined($3) ? $3 : $1;

    DEBUG > 2 and print "Extensor has good syntax.\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216897	217002	
==>62 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217837	217942	
==>62 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	11911	12033	
==>p;
    $lexicals{$c} = $p;
}

sub STORE_GLOBAL {
    my ($n, $c, $cmt) = @_;
    my $tos = pop @stack;
    my $p = $tos->[1 <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	6975	7209	
==>fix($suffix);
        push @files, $file;
    }
    
    return @files;
}

=item C<path_for_directory_with_name($name)>

Returns the path for the subdirectory with the specified name in the
directory.

=cut

sub path_for_directory_with <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20889	21033	
==>(4).first

' ADD bug, Return OK
function foo$
	foo$="Return OK"
	a$="Blah"
end function
print foo$()

' Some assembly required
print "Hello, worl <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	5134	5294	
==>ader;

  my $category = sub {
    return sprintf "%s / %s runcore on %s-%s-%s",
      $_[0]->{DEVEL} eq "devel" ? "repository snapshot" : "release",
	  runcore2h <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1972	2087	
==>ate_path()>

This is called from C<new()> to create the path if necessary.

=cut

sub create_path
{
    my $self = s <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	949	1064	
==>ate_path()>

This is called from C<new()> to create the path if necessary.

=cut

sub create_path
{
    my $self = s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5017	5142	
==>\"$dest_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  my $bloc <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3080	3205	
==>\"$dest_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  my $bloc <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	40957	41075	
==>the treelet (which might well be just one string scalar)
      $self->{'content_seen'} ||= 1;
      $self->_traverse_tr <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	2133	2319	
==>ourcefile'\n",
			     "to class $class in module file '$modulefile'\n"
					if $grammar && $sourcefile;

#		local $::RD_HINT = 1;
		$self = Parse::RecDescent->new($grammar,1)
			|| croak <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	519	616	
==>lock is not defined!" unless defined $block;
  confess "Left is not defined!" unless defined $left <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	531	628	
==>lock is not defined!" unless defined $block;
  confess "Left is not defined!" unless defined $left <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647398	647646	
==>> [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 229 \"src/ops/pmc.ops\"\n    {{\@1}} = pmc_type(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LA <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20519	20699	
==>URR] eq "STMT" or $type[CURR] eq "COMM") {
				print CODE "\t# $syms[CURR]\n" if $type[CURR] eq "COMM";
				feedme;
			}
			$sourceline++;
		}
		feedme;   # Collect the "type"
		$us <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	2497	2599	
==>oined together by C<$delim>.

Accepts a delimiter value followed by a list of C<key => value> pairs and <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	12613	12947	
==>f ( $args =~ s/--run-exec// ) {
                $run_exec = 1;
                my $pbc_f  = per_test('.pbc', $test_no);
                my $o_f    = per_test('_pbcexe' . $PConfig{o}, $test_no);
                my $exe_f  = per_test( '_pbcexe' . $PConfig{exe}, $test_no);  # Make cleanup and svn:ignore more simple
                my $e <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	49301	49461	
==>at's more than we needed to close simple.\n";
        push @{ $lineage[-1] }, ' '; # That was a for-real space, too.
        pos($para) = pos($para) - length($3) <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2382	2519	
==>ng"
if 5>5 then print "Wrong" else print "Ok"
if 4>5 then print "Wrong" else print "OK"
if 5>=4 then print "Ok" else print "Wrong"
if 5>=5 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	4119	4238	
==>alue;
    $compiler->emit("  global \"$dest_name\" = $temp_pmc");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	5925	6043	
==>hile/Loop stuff.  All 5
a=0
do while a<5
	a=a+1
loop
print a
a=0
do until a>4
	a=a+1
loop
print a
a=0
do
	a=a+1
loop wh <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16470	16588	
==>hile/Loop stuff.  All 5
a=0
do while a<5
	a=a+1
loop
print a
a=0
do until a>4
	a=a+1
loop
print a
a=0
do
	a=a+1
loop wh <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	846	1035	
==>atch>["!RESULT"], 0',
            'set <rx_match>["0";1], -2');
}

sub value {
    my $name = shift;
    return '<rx_pos>' if $name eq 'pos' || $name eq '<pos>';
    return '<rx_tmp>' if $na <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882138	882561	
==>,
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 999,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 244 \ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	17875	18026	
==>put =~ s/^\s*$//gm;
                $real_output =~ s/[\t ]+/ /gm;
                $real_output =~ s/ +$//gm;

                $expected =~ s/[\t ]+/ /g <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1867	1968	
==>Configure::Data> object intended to contain CLI
option data.

Accepts no arguments and returns a L<Par <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	139	257	
==>rot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm 19606 2006-05-30T15:08:05.0 <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	3585	3714	
==>nversion subroutines
    my %helpers = (
        # type     subroutine
        channel => '__channel',
        expr    => '__expr' <==
2	/Users/nnunley/parrot/config/inter/shlibs.pm	260	470	
==>g position-independent code
for use in shared libraries.  Eventually, other shared-library-related prompts
may end up here.

This is a separate unit from config/inter/progs.pm because the answers depend
on which <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26697	26803	
==>blePMCArray\n";

		# Insert typeinfo code (sets up dtypes).
		$pir .= "### typeinfo\n";
		$pir .= sub_meta( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55951	56357	
==>AGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 72,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 869 \"src/ops/co <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	29155	29308	
==>opcodes, new CallOp( $parser,
        'result' => [ $_var,         $_limit,       $_step ],
        'arg1'   => $fct,
        'arg2'   => [ $e_start->[ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	2115	2215	
==>.

=head1 AUTHOR

Jeffrey Goff, drforr@hargray.com

=head1 SEE ALSO

L<Scheme>, L<Scheme::Parser>, L< <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2617	2739	
==>0-9a-zA-Z]+)$/s
     ? ( $1, => "<$2>", "/$1", => "</$2>" ) : die "Funky $_"
  } @_;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	18853	19094	
==>y $p = $t->[1];
    print <<EOC;
	$n = new $DEFVAR
	neg $n, $p $cmt
EOC
    push @stack, [-1, $n, 'P'];
}

sub except_compare
{
    my ($l, $r) = @_;
    my $cmp = temp('I');
    if ($l && $l->[1]) {
	$l = $l->[1];
    }
    else {
	$l = 'P5' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	2025	2128	
==>.some stuff that uses Pod::Simple to do stuff, but which
  you DO want debug output from...

 $debug_lev <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34790	34886	
==>put file we are
generating.

Overrides the default implementation to throw an execption for unkno <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9241	9476	
==>k(2 + 2 == 4, '2 and 2 make 4');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 and 2 make 5', :todo(1));
  is(2 + 2, 5, desc => '2 and 2 make 5', todo => 1);
  isa_ok({'one' => 1}, 'Hash', :todo(1)) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161637	162072	
==>ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 195,
                  "ARGS" => [
                              "n",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 183 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	2911	3020	
==>n, then that
# many tokens (at most, given the possibility of running of the end) are
# returned. If a count i <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	10302	10461	
==>ult)=@_;
	my $ts="INVALID";

	if ($type ne "RESULT") {
		if ($type=~/STRING|INT|FLO|BARE/) {
			$$optype="N";
			if ($type=~/STRING/) {
				$$optype="S";
				$s <==
2	/Users/nnunley/parrot/tools/util/pirtidy.pl	1005	1136	
==>formatted script.

pirtidy is somewhat liberal about how it formats your file -- it has
no qualms about converting your script to us <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	662	761	
==>'.

=item C<exec_prefix>

The exec prefix. Defaults to '/usr'.

=item C<bindir>

The executables dir <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	891	990	
==>'.

=item C<exec_prefix>

The exec prefix. Defaults to '/usr'.

=item C<bindir>

The executables dir <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	663	773	
==>t;

=head2 Functions

=over 4

=item C<p6rule_is($target, $pattern, $description, @todo)>

Runs the target stri <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	122	229	
==>:M4::Gnu;

use strict;
use warnings;
use 5.006;

use base 'Parrot::Test::M4';

our $VERSION = 0.01;

sub get <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	415	566	
==>";
}

sub tokenize {

	fetch;	
	fetch;
	fetch;
MAIN:
	goto END if $cur eq -1;
	if ($cur =~ /[\t ]/) {   # Whitespace
		fetch;
		goto MAIN;
	}

	if ($cur <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1826	1939	
==>us declaration on line %d of file '%s'.",
      $name, $sym->line, $sym->file);
  }

  #
  # Now that we've decide <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	60771	60945	
==>->YYData->{srcname_mtime} = $st[9];
    $parser->_InitLexico();
    $parser->YYData->{functs}      = [];
    $parser->YYData->{lex_num}     = 0;
    $parser->YYData->{scop <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3156	3270	
==>:common{$var}) {
			push(@saves, $var);
		}
	}
	if (@saves) {
		print CODE qq{\t\tfind_global _GLOBALS, "COMMON"\n} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786602	787101	
==>RS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 888,
                  "ARGS" => [
                              "i",
                              "p",
                              "kic"
                            ],
                  "BODY" => "#line 417 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_key <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	1950	2074	
==>nd
    $I100 = %1
    $I101 = %2
    $I100 = and $I100, $I101
    %1 = $I100
END_PIR

    $P0[unicode:"dyadic:\u2228"]  = <<" <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	34442	34613	
==>type of bracket not in the delimiter list is treated as an ordinary
character.

In other words, each type of bracket specified as a delimiter must be
balanced and correctly <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427907	427996	
==>"BODY" => "#line 69 \"src/ops/math.ops\"\n  mmd_dispatch_v_pn(interpreter, {{\@2}}, {{\@3} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428794	428883	
==>"BODY" => "#line 69 \"src/ops/math.ops\"\n  mmd_dispatch_v_pn(interpreter, {{\@2}}, {{\@3} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105597	105833	
==>"src/ops/bit.ops\"\n  {{\@1}} |= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	106335	106571	
==>"src/ops/bit.ops\"\n  {{\@1}} |= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605886	605977	
==>c/ops/object.ops\"\n    Parrot_add_attribute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606677	606768	
==>c/ops/object.ops\"\n    Parrot_add_attribute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54823	54976	
==>864 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55583	55736	
==>864 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941646	942157	
==>se_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1059,
                  "ARGS" => [
                              "p",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 486 \"src/ops/string.ops\"\n    {{\@1}} = strin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957470	957566	
==>e 581 \"src/ops/string.ops\"\n  INTVAL n = Parrot_encoding_number(interpreter, {{\@2}});\n  if (n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958375	958471	
==>e 581 \"src/ops/string.ops\"\n  INTVAL n = Parrot_encoding_number(interpreter, {{\@2}});\n  if (n <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	1	164	
==>ackage Regex::CodeGen;
require 'Regex.pm';
use strict;

sub new {
    my ($proto, %options) = @_;
    my $self = bless \%options, (ref($proto) || $proto);
    $self <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436534	436828	
==>ch_p_psp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437549	437843	
==>ch_p_psp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	6910	7051	
==>"Linearized ", scalar(@to_unget),
           " tokens as \"$name\".\n";
        } else {
          print $fh "<a\n>";  # Yes, an 'a' element w <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379245	379381	
==>c"
                            ],
                  "BODY" => "#line 432 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(interpr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380130	380266	
==>c"
                            ],
                  "BODY" => "#line 432 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(interpr <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31177	31299	
==>es;
}

sub BuildForList {
    my ( $parser, $vars, $exprs, $block ) = @_;
    my @opcodes1 = ();
    my @opcodes2 = ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	14570	14715	
==>/{{^*}}/mg;

                      $body =~ s/\bHALT\(\)/{{=0}}/mg;

        $branch ||= $short_name =~ /runinterp/;
        $next   ||= $short_na <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	5106	5223	
==>tests right.

=cut

sub exported_to {
    my($self, $pack) = @_;

    if( defined $pack ) {
        $self->{Exported_T <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	6366	6477	
==>";
    }

    return @rel_paths;
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::Docs::Section>

=item C<Par <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	1164	1250	
==>l -Wstrict-prototypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qual -Wcast- <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	22707	22935	
==>out .= <<"EOC";
    if (pass == 0) {
EOC
    $cout .= <<"EOC";
        /*
         * create vtable - clone it - we have to set a few items
         */
        struct _vtable *vt_clone =
            Parrot_clone_vtable(interp, &te <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661952	662041	
==>C_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(interpreter, {{\@2}}, {{\@3}});\n  { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662868	662957	
==>C_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(interpreter, {{\@2}}, {{\@3}});\n  { <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23850	23981	
==>e::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;
		') . ($self->{"lookahead"} ? '$_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11180	11281	
==>URIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1}["reg_type_short"]
${DEST0} = concat ${STEMP0}
inc stack_de <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8366	8467	
==>URIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1}["reg_type_short"]
${DEST0} = concat ${STEMP0}
inc stack_de <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	38299	38441	
==>int "Treating $para_type paragraph as such because the containing =for ($fors[-1][1]{'target'}) is a resolver\n";
            }
          } els <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20718	20843	
==>=[ @types ];
		print CODE <<TYPE;
	# Type definition for $typename
	new P0, .PerlArray
TYPE
		foreach(@types) {
			print CODE< <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	13075	13246	
==>follow)
      if($token->is_start and $content_containers{ $token->tagname }) {
        DEBUG and print "  Found start of Para.  Accumulating content...\n";
        $para_t <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48034	48222	
==>=~ m/$ENDDIRECTIVEMK/gco)
		{

		# EXTRACT TRAILING REPETITION SPECIFIER (IF ANY)

			my ($minrep,$maxrep) = (1,$MAXREP);
			if ($grammar =~ m/\G[(]/gc)
			{
				pos($grammar)--;

				if ($ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38886	39105	
==>$self, $namespace, $rule) = @_;
	
	'
		$return = $item[-1];
	';
}

package Parse::RecDescent::Operator;

my @opertype = ( " non-optional", "n optional" );

sub issubrule { 0 }
sub isterminal { 0 }

sub describe { $_[0]-> <==
2	/Users/nnunley/parrot/config/gen/config_pm.pm	2085	2278	
==>} else {
                    print OUT qq(\tset P0["$k"], P1\n);
                }
            }
        } elsif (s/<<PWD>>/cwd/e) {
            print OUT;
        } else {
            print OUT <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	3669	3813	
==>>exported_to() || '';
            local *{ $call_pkg . '::TODO' } = \$extra{todo}
                if defined $extra{todo};

            ## run Te <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	7168	7296	
==>th",
		type => $entry->{type},
		parameters => $entry->{parameters},
                loc => $entry->{loc}
	    };
	}
        else <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	596	734	
==>e_test_map ) {
    no strict 'refs';

    *{"Parrot::Test::HQ9plus::$func"} = sub ($$;$) {
        my $self = shift;
        my ( $code, $o <==
2	/Users/nnunley/parrot/tools/util/pirtidy.pl	512	631	
==>t::PIR::Formatter();

    foreach my $line (<$ifh>) {
      $formatter->add_pir( $line );
    }

    my $output = $forma <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9970	10075	
==>tion myfunc(a)
	print a
	a=12
        myfunc=80
end function
z=5
T=myfunc(z)
print z

' Basic Hello
a$="He <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11583	11688	
==>tion myfunc(a)
	print a
	a=12
        myfunc=80
end function
z=5
T=myfunc(z)
print z

' Basic Hello
a$="He <==
2	/Users/nnunley/parrot/examples/benchmarks/oofib.pl	161	422	
==>A {
    my $self = shift;
    my $n = shift;
    return $n if ($n < 2);
    return $self->fib($n-1) + $self->fibB($n-2);
}
package B;
@B::ISA=qw(A);
sub new { bless {}, $_[0] }
sub fibB {
    my $self = shift;
    my $n = shift;
    return $n if ($n < 2);
    re <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	398	505	
==>ruct::Statement);

sub new
{
  my $class = shift;
  my ($block, $ident) = @_;

  confess("Block (" . ref($bl <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	398	505	
==>ruct::Statement);

sub new
{
  my $class = shift;
  my ($block, $ident) = @_;

  confess("Block (" . ref($bl <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	6061	6187	
==>sub _Lexer {
    my $parser = shift;

    while (1) {
        $parser->YYData->{INPUT}
            or $parser->YYData->{IN <==
2	/Users/nnunley/parrot/examples/benchmarks/primes.pl	732	838	
==>T:
  $i1++;
  if ($i1 <= $i2) {goto REDO;}
  print $i6, "\nlast is: $i7\n";

=head1 SEE ALSO

F<examples/be <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	4193	4333	
==>lose $fh or
    die "Couldn't close \"$filename\": $!\n";
}

sub clean_obsolete_smokes {
  my $category = sub {
    return join "-",
      (m <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	7833	7951	
==>print SOURCE <<END_C;
        NULL
    };
END_C
    print SOURCE $trans->run_core_after_addr_table($bs);
}

if ($suffix <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65716	65877	
==>n($name,"$1..",$1,$MAXREP,
										   $lookahead,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($ite <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	1849	2084	
==>>
    
    <list name="ops">
END

for my $ops_file (@ops_files) {
    open OPS, "<$ops_file" or die "Can't read $ops_file!";
    while (<OPS>) {
        next unless (/^(inline\s+)?op\s+([a-zA-Z]\w*)/);
        my $op = $2;
        $op = <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	33203	33384	
==>o this problem.


=head2 C<extract_bracketed>

Like C<"extract_delimited">, the C<extract_bracketed> function takes
up to three optional scalar arguments: a string to extract from, a <==
2	/Users/nnunley/parrot/lib/Test/More.pm	37388	37483	
==>HT

Copyright 2001, 2002, 2004 by Michael G Schwern E<lt>schwern@pobox.comE<gt>.

This program i <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	6348	6443	
==>HT

Copyright 2001, 2002, 2004 by Michael G Schwern E<lt>schwern@pobox.comE<gt>.

This program i <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33304	33413	
==>b callsyntax($$)
{
	if ($_[0]->{"matchrule"})
	{
		return "&{'$_[1]'.qq{$_[0]->{subrule}}}";
	}
	else
	{
		ret <==
2	/Users/nnunley/parrot/config/auto/gc.pm	460	589	
==>ry C<malloc>.

=item C<malloc>

Use the malloc in F<src/res_lea.c>.

=item C<malloc-trace>

Use the malloc in F<src/res_lea.c> wit <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	11526	11627	
==>ple::Transcode::->encmodver;
    $enc_error = join '' =>
      "This document probably does not appear <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	3193	3334	
==>) {   # ;?
		append;
		emit("STMT");
		fetch;
		goto MAIN;
	}
	if ($cur eq ":") {
		append;
		emit("COMP");
		fetch;
		goto MAIN;
	}
	if ($cur <==
2	/Users/nnunley/parrot/config/auto/memalign.pm	1209	1322	
==>trcast => 'int');
    } else {
        $conf->data->set(ptrcast => 'long');
    }

    cc_gen('config/auto/memalig <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17206	17421	
==>r non-ASCII charsets.  Something should be done about that.
    }
    
    return @_;
}

=back

=head1 HISTORY

In order to avoid modifying C<Pod:Simple::HTLM> large sections of its code
have been copied here, and th <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	694	801	
==>rn () unless $self->{DEBUG};
    return () unless $self->{DEBUG_SUPPORT};
    return ("goto $label");
}

sub <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28523	28648	
==>= $self->{const};
        $hout .= "\n/* Const */\n";
        $hout .= $self->hdecls();
    }
    $hout .= <<"EOH";

#endif

E <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	20580	20688	
==>ch my $attrname ('section', 'to') {        
            if(defined($thing = $treelet->[$i][1]{$attrname}) and <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	42064	42170	
==>ch my $attrname ('section', 'to') {        
          if(defined($thing = $treelet->[$i][1]{$attrname}) and <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33558	33765	
==>e $rule->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end translation\n";

		# Finally, call post_store and append code it generates.
		my $post_store = $srm->post_store($dest_reg);
		$ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	49667	49820	
==>lex.\n";
      } elsif($stack[-1] < length($3)) {
        # We saw " >>>>" but needed only " >>".  Back pos up.
        DEBUG > 4 and print " And that's m <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	2473	2591	
==>n't handle $proto";
    my $funcname = $1;
    $parms = $2;
    my @parms = split( /\s*,\s*/, $parms );
    for ( @parm <==
2	/Users/nnunley/parrot/lib/Test/More.pm	13764	14010	
==>your object and got some weird error.
This should never happen.  Please contact the author immediately.
Here's the error.
$@
WHOA
            }
        }
        elsif( !$rslt ) {
            my $ref = ref $object;
            $diag = "$obj_name i <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	29508	29607	
==>op_integer_char {
}

sub _op_char_upcase {
}

sub _op_char_downcase {
}

sub _op_string_p {
}

sub _ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5701	5818	
==>, ${PTEMP2}) = method_info_from_token(${ASSEMBLY}, ${ARG0})

# If there is a return type, need to supply a ${DEST0}.
$ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7921	8022	
==>, ${PTEMP2}) = method_info_from_token(${ASSEMBLY}, ${ARG0})

# If there is a return type, need to push <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	55921	56052	
==>, $_[1], 'number' );
        }
	],
	[#Rule 80
		 'primary', 1,
sub
#line 432 "Lua\lua51.yp"
{
            BuildLiteral( $_[0 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1250	1357	
==>_pmc();
    $compiler->emit("  $pmc_reg = new $pmc_type");
    $compiler->emit("  $pmc_reg = $ident");
    $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1244	1351	
==>_pmc();
    $compiler->emit("  $pmc_reg = new $pmc_type");
    $compiler->emit("  $pmc_reg = $ident");
    $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	2191	2292	
==>be applying the control statement to:
  #

  my $loop_block = $block->find_block('while', $name);

  u <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	586	890	
==>n attempt will be made to extract short descriptions from each
file to place under the file path in the index HTML.

=head2 Class Methods

=over

=cut

package Parrot::Docs::Item;

use strict;
use warnings;

use Parrot::Docs::Directory;
use Parrot::Docs::POD2HTML;

=item C<new_item($text, @paths)>

Retur <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	4588	4703	
==>';
    $nm_gnu = 1;
    $nm_ro  = 1;
} else {
    # Hope for BSD-style nm output.
}

Getopt::Long::Configure ("bundl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901025	901293	
==>[
                              "s",
                              "i",
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interprete <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30265	30399	
==>ut file we are
generating.

=cut

sub body
{
    my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};

    my $ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29623	29756	
==>ut file we are
generating.

=cut

sub body
{
    my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    my $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	32420	32615	
==>$start_line, "An empty L<>" );
        $treelet->[$i] = 'L<>';  # just make it a text node
        next;  # and move on
      }
     
      # Catch URLs:
      # URLs can, alas, contain E<...> seq <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9207	9306	
==>at ${STOREREG}
${INS} = concat " = "
${INS} = concat ${STEMP0}
${INS} = concat "\n"

# Decrement sta <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6725	6824	
==>at ${STOREREG}
${INS} = concat " = "
${INS} = concat ${STEMP0}
${INS} = concat "\n"

# Decrement sta <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	1072	1180	
==>ither the API listing is wrong or the implementation is missing.

=item No Parrotish Prefix

The API is imple <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6813	6954	
==>ile ( 1 )
    {
        push @to_unget, $self->get_token;
        
        last if $to_unget[-1]->is_end
            and $to_unget[-1]->tagnam <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	6519	6650	
==>ile(1) {
          push @to_unget, $self->get_token;
          last if $to_unget[-1]->is_end
              and $to_unget[-1]->tagnam <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	546	646	
==>ides functions for testing the grammar engine
and Perl 6 rules.

=cut

use strict;
use warnings;

req <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3819	3949	
==>my ($self, $offset) = @_;

    die "pbc2c.pl: Cannot handle RESUME ops!";
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::OpTra <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	38911	39064	
==>tching end
tag is not encountered (i.e. before the end of the string or some
C<reject> pattern matches). By default, a failure to match a closing
tag caus <==
2	/Users/nnunley/parrot/config/auto/readline.pm	421	622	
==>Step ':auto';

$description = 'Determining if your platform supports readline';

@args = qw(verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    m <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	1501	1611	
==>= check_progs(['bison -v -y', 'yacc', 'byacc'], $verbose);

    unless ($prog) {

        # fall back to defaul <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	8781	8891	
==>$1, $2;
    }

    return @params;
}

=back

=head1 SEE ALSO

=over 4

=item F<tools/build/jit2c.pl>

=item F<t <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	3392	3646	
==>}

    #
    # Grouping:
    #

    if ($text =~ m{^([\(\)])(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, $1 eq '(' ? 'open-paren' : 'close-paren', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^([\[\]])(.*)$} <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2450	2579	
==>operties
    $self->file,
    $self->line
  );

#  $self->DEBUG(0, "Remembering symbol '$name' as sub...");

  $block->set_symbol( <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11845	12026	
==>capes qw(:ALL);> to get all
exportable symbols.

=head1 GOODIES

=over

=item e2char($e_content)

Given a name or number that could appear in a
C<EE<lt>name_or_numE<gt>> sequence, th <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31115	31240	
==>rser,
        'arg1' => $lbl_end,
    );
    return \@opcodes;
}

sub BuildForList {
    my ( $parser, $vars, $exprs, $ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1712	1818	
==>arrot::Configure::Data> object.

=cut

sub data
{
    my $self = shift;

    return $self->{data};
}

=item <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035348	1035442	
==>Y" => "#line 64 \"src/ops/var.ops\"\n    parrot_context_t * const ctx = CONTEXT(interpreter->ct <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036512	1036606	
==>Y" => "#line 64 \"src/ops/var.ops\"\n    parrot_context_t * const ctx = CONTEXT(interpreter->ct <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	44269	44418	
==>y $value = $node->{value};
    if ($value =~ /^[a-zA-Z]/) {
      $return = $self->_find_lex($value);
    }
    else {
      $return = $self->_constan <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	223	316	
==>( qw(output_is output_like output_isnt), @Test::More::EXPORT );
@ISA = qw(Exporter Test::More) <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	140	233	
==>( qw(output_is output_like output_isnt), @Test::More::EXPORT );
@ISA = qw(Exporter Test::More) <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	569	814	
==>d in the various directory creation methods. This
default implementation returns C<Parrot::IO::Directory>.

=cut

sub directory_class
{
    return 'Parrot::IO::Directory';
}

=item C<file_class()>

Returns the class used in the various file creat <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31547	31707	
==>ntation to direct all unknown methods to
the thing referred to.

=cut

sub body
{
    my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth} <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	1977	2088	
==>$executable = $ENV{PARROT_TCLSH};
    }
    $cmd = "$executable $lang_f";

    $exit_code = Parrot::Test::run_co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447764	447869	
==>/ops/math.ops\"\n  if ({{\@2}} < 0) {\n    {{\@1}} = - (INTVAL){{\@2}};\n  }\n  else {\n    {{\@1}} = (INT <==
2	/Users/nnunley/parrot/config/auto/memalign.pm	622	723	
==>$conf->options->get('miniparrot')) {
        $conf->data->set(memalign => '');
        $self->set_resu <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	256	531	
==>tims, and then also
#  turning formatting sequences into treelets.
#
# Are you really sure you want to read this code?
#
#-----------------------------------------------------------------------------
#
# The basic work of this module Pod::Simple::BlackBox is doing the dirty w <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677573	677661	
==>78 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_float(interpreter, {{\@1}}, {{\@2}}) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678351	678439	
==>78 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_float(interpreter, {{\@1}}, {{\@2}}) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133615	133898	
==>"TYPE" => "inline",
                  "CODE" => 164,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 321 \"src/ops/bit.ops\"\n  string_bitwise_xor(interpreter, {{\@1}} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	61	353	
==>ss for tokens gotten from Pod::Simple::PullParser's $parser->get_token
@ISA = ();
$VERSION = '2.02';
use strict;

sub new {  # Class->new('type', stuff...);  ## Overridden in derived classes anyway
  my $class = shift;
  return bless [@_], ref($class) || $class;
}

sub type { $_[0][0] }  # Ca <==
2	/Users/nnunley/parrot/config/inter/lex.pm	793	947	
==>we don't have flex... default to not having flex
    $conf->data->set(flex_version => undef);

    unless ($conf->options->get('maintainer')) {
        $co <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	2837	3011	
==>s = ( buildprefix => '',
                prefix      => '/usr',
                destdir     => '',
                exec_prefix => '/usr',
                bindir      => '/usr/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9064	9166	
==>offset;\n        Parrot_switch_to_cs(interpreter, fe->seg, 1);\n    }\n    string_cstring_free(label);\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10180	10282	
==>offset;\n        Parrot_switch_to_cs(interpreter, fe->seg, 1);\n    }\n    string_cstring_free(label);\ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	4131	4251	
==>ompiler->emit("  global \"$dest_name\" = $temp_pmc");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  m <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	8863	8982	
==>overage_summary {

    print "Writing $HTMLDIR/function_summary.html..\n" if $DEBUG;
    open (OUT, ">$HTMLDIR/function_ <==
2	/Users/nnunley/parrot/config/gen/config_pm.pm	108	235	
==>8:15.110975Z coke  $

=head1 NAME

config/gen/config_pm.pm - Record configuration data

=head1 DESCRIPTION

Writes the C<Parrot: <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	35064	35313	
==>> 76,
			"*" => 80,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -58
	},
	{#State 129
		ACTIONS => {
			"^" => 79
		},
		DEFAULT => -63
	},
	{#State 130
		ACTIONS => {
			"-" => 72,
			"%" => 76,
			"*" => 80,
			".." => 71,
			"+" <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49615	49739	
==>$QUOTELIKEMK/gco)
			{
				_parse("an perl quotelike marker", $aftererror,$line);
				$item = new Parse::RecDescent::Directiv <==
2	/Users/nnunley/parrot/lib/File/Which.pm	6791	6936	
==>ftware; you can redistribute it and/or modify it under
the same terms as Perl itself.

=head1 See Also

L<File::Spec>, L<which(1)>, Perl Power Too <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	10605	10745	
==>race(q{>>Accepted scored production<<}, "",
					  q{' . $self->{"name"} .'})
						if defined $::RD_TRACE;').'
		$return = $score_return;
	} <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	2210	2311	
==>pe} = $scope;
    my $symbtab = shift @{ $parser->YYData->{scopef} };
    $parser->YYData->{symbtab_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653598	653875	
==>_to_cstring(interpreter, {{\@3}}));\n    {{=resume}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654759	655036	
==>_to_cstring(interpreter, {{\@3}}));\n    {{=resume}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363505	363613	
==>f_c(interpreter, \"%f\", (double){{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Ha <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364408	364516	
==>f_c(interpreter, \"%f\", (double){{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Ha <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21189	21350	
==>'number',
        '^'  => 'number',
        '%'  => 'number',
        '..' => 'string',
    );
    my %opcode = (
        '+'  => 'add',
        '-'  => 's <==
2	/Users/nnunley/parrot/lib/Test/More.pm	6660	6837	
==>.  It makes it very easy to find a test in your script when it fails
and gives others an idea of your intentions.  $test_name is optional,
but we B<very> strongly encourage its u <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	23918	24086	
==>ack) = @_;

    my $back = $self->genlabel('plus_backloop');
    my $rfail = $self->genlabel('plus_rfail');
    my $next = $self->genlabel('plus_next');
    my ($R_back, <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	1071	1210	
==>etavars = {};

# Generate initial translator code and populate metafields.
my $pir = generate_initial_pir($srm, \@rules, $metavars);

# Emit <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85445	85534	
==>208 \"src/ops/core.ops\"\n  PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interprete <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86352	86441	
==>208 \"src/ops/core.ops\"\n  PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interprete <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	1303	1510	
==>EL_COMMENTS') {
        $self->{_label_comments} = shift(@$ops);
    }

    $self->{ctx} = $ctx;

    my @r;
    my $label = '';
    for my $op (@$ops) {
        die $op if ! ref $op;

        if ($op->{name} <==
2	/Users/nnunley/parrot/config/auto/gc.pm	312	487	
==>gly.

C<--gc> can take the values:

=over

=item C<gc>

The default. Use the memory allocator in F<src/recources.c>.

=item C<libc>

Use the C library C<malloc>.

=item C<mallo <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38570	38670	
==>'$item{q{' . $self->describe . '}} = $_tok;'). '
		push @item, $_tok;
		' . ($self->{"lookahead"} ? ' <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	64066	64214	
==>he failure mode was not "MAX" or "PARA").

=item C<Did not find closing tag>

C<extract_tagged> reached the end of the text without finding a closing <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419413	419728	
==>E" => 482,
                  "ARGS" => [
                              "i",
                              "p",
                              "i",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1 <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	1362	1550	
==>['',             'invokecc'],
  ['',             'restore', 'P1'],
  ['write_KET',    'print', '")"'],
  ['write_RET',    'returncc'],
 ],
 apply => 
 [['# Apply function'],
  ['apply_ENTRY <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	3051	3170	
==>an Sugalski.

=cut

*/

/*
 * Local variables:
 * c-indentation-style: bsd
 * c-basic-offset: 4
 * indent-tabs-mode: nil <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47254	47527	
==>ess( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "debug",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	6476	6685	
==>local int loop_num \n"
             . "  loop_num = register \n";
    $code .= emit('.local pmc temp');
    # locals inside this code
    my %locals;
    while (my $line = <$file>)
    {
        # rename labels <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15576	15697	
==>calDir( $parser,
        'result' => $result,
    );
    push @opcodes, new AssignOp( $parser,
        'result' => $re <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19329	19450	
==>calDir( $parser,
        'result' => $result,
    );
    push @opcodes, new AssignOp( $parser,
        'result' => $re <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	6094	6303	
==>=> classname
    # TODO mange class namespace
    print <<EOC;
	# new_pad 0
	.local pmc None
	None = new .None
EOC
    %globals = ();
    $names{None} = 'None';
    $globals{None} = 'None';
    if ($def_args{$a <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5393	5638	
==>($source, $path)>

If C<$path> is an immediate subdirectory of C<$source>, then this method
returns all the file paths within the directory and any subdirectories
recursively, relative to C<$source>.

If C<$path> is a file in C<$source> then C<$p <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1582	1684	
==>ub _handle_element_end {
  DEBUG and print "-- $_[1]\n";
  print {$_[0]{'output_fh'}}
   '  ' x --$_[0] <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1512	1614	
==>ub _handle_element_end {
  DEBUG and print "-- $_[1]\n";
  print {$_[0]{'output_fh'}}
   '  ' x --$_[0] <==
2	/Users/nnunley/parrot/Configure.pl	6351	6469	
==>n lexical analyzer generator
   --yacc=(parser)      Use the given parser generator

   --define=inet_aton   Quick hack <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	6021	6200	
==>"Duplicate value for push in rule $rule->{'name'}\n";
                } else {
                    $has_push = 1;
                }
            } else {
                die "Invali <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819070	819334	
==>" => "entrytype",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820029	820293	
==>" => "entrytype",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
2	/Users/nnunley/parrot/config/init/defaults.pm	949	1100	
==>sually cc or cl, or something like that.)
        cc      => $Config{cc},
        ccflags => $Config{ccflags},
        ccwarn  => exists($Config{ccwarn} <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26872	26976	
==>ond( $parser, $expr );
    push @opcodes, @{ $cond->[1] };
    push @opcodes, new BranchUnlessOp( $pars <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103965	1104052	
==>class(interpreter, class);\n\t\ttype = pmc_type(interpreter, class);\n\t}\n\tif (type <= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105180	1105267	
==>class(interpreter, class);\n\t\ttype = pmc_type(interpreter, class);\n\t}\n\tif (type <= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	535005	535313	
==>);\n  {{\@1}} = log((FLOATVAL){{\@2}}) / temp;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	2207	2335	
==>with <Parrot_>,
or something else specific enough, preferably specific to Parrot,
not some generic term.  Currently acceptable pr <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	1277	1380	
==>g = eval {
		require "$_[0]/lib/Parrot/Config.pm";
		%Parrot::Config::PConfig
	} or die "Unable to lo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031425	1031527	
==>323 \"src/ops/sys.ops\"\n    if ({{\@2}} < enum_first_type || {{\@2}} >= enum_last_type)\n        {{\@1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032294	1032396	
==>323 \"src/ops/sys.ops\"\n    if ({{\@2}} < enum_first_type || {{\@2}} >= enum_last_type)\n        {{\@1 <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19755	19916	
==>E}->code($namespace,$rule);
		}
		Parse::RecDescent::_warn(1,"Autogenerating tree-building action in rule
					   \"$rule->{name}\"")
		and
		Parse::RecDescent::_ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	1619	1883	
==>ed.', 'LICENSES/Artistic', 'LICENSES/gpl.txt'),
        ),
        $self->new_group('Status', '',
            $self->new_item('A table showing which aspects of Parrot run on various platforms.', 'PLATFORMS'),
            $self->new_item('Contains the version number <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	1284	1403	
==>porarily assume everything
    # works and ignore stderr.
    $exit_code = Parrot::Test::run_command($pycmd, STDOUT => $ <==
2	/Users/nnunley/parrot/lib/File/Which.pm	3911	4016	
==>ing for executable files having the name specified
as a parameter to C<which()>. Under Win32 systems, whic <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	1767	1963	
==>it_code = 0;
    my $pass = 0;

    my $executable = File::Spec->join($path_to_parrot,$self->{parrot}) . 
    " $args " . File::Spec->join($path_to_tcl, 'tcl.pbc');
    if (defined($ENV{PARROT_TCLS <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	3909	4001	
==>ed by C<Parrot::OpFile> to perform ops
file macro substitutions.

=over

=item C<access_arg($ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4632	4770	
==>->{args} } == 1 && 2 == keys %$self) {
        return $self->{args}->[0];
    } else {
        return $self;
    }
}

sub minlen {
    my $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5769	5907	
==>->{args} } == 1 && 2 == keys %$self) {
        return $self->{args}->[0];
    } else {
        return $self;
    }
}

sub minlen {
    my $ <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	6014	6179	
==>g>

END

print <<END;
  <general>

    <comments>
      <comment name="singleLine" start="#" />
    </comments>

    <keywords casesensitive="1" />

  </general>

</l <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35949	36346	
==>ver_type;
        # Whew.  Now fall thru and process it.


      } elsif($para_type eq '=extend') {
        # Well, might as well implement it here.
        $self->_ponder_extend($para);
        next;  # and skip
      } elsif($para_type eq '=encoding') {
        # Not actually acted on here, but we catch errors here.
        $self->_handle_encoding_second_level($para);

        next;  # and ski <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20251	20381	
==>e_file> etc, but you don't I<have> to.

And if you're not writing a formatter class, but are instead just
writing a program that do <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359227	359376	
==>"
                            ],
                  "BODY" => "#line 250 \"src/ops/io.ops\"\n  STRING * const s = {{\@1}};\n  if (s && string_length(in <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	577	750	
==>apsed time, and 

=item * the number of M op/s.

=back

=cut

sub time_hires { time() }

$I2 = 0;                      # set    I2, 0
$I3 = 1;                      # set    I <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	580	752	
==>apsed time, and

=item * the number of M op/s.

=back

=cut

sub time_hires { time() }

$I2 = 0;                      # set    I2, 0
$I3 = 1;                      # set    I <==
2	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	690	923	
==>/-laio/) {
        $libs .= ' -laio';
    }
    $conf->data->set(libs => $libs);

    for my $ldflags (qw(ld_load_flags ld_share_flags)) {
        my $f = $conf->data->get($ldflags);
        if ($f =~ s/ -s / /) {
            $conf->d <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	911	1147	
==>directories)
        my $lua_test = $ENV{PARROT_LUA_TEST_PROG} || q{};
        my $lang_fn = Parrot::Test::per_test( '.lua', $count );
        my $pir_fn  = Parrot::Test::per_test( '.pir', $count );
        my $lua_out_fn = Parrot::T <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	1367	1556	
==>ode !~ /^(source|object)$/ || ! @files) {
    die "Usage: $0 object <object files..>\n" .
        "       $0 source <source files..>\n";
}

while (<DATA>) {
    next if /^\s*#/; chomp;
    m <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	11341	11453	
==>lity (id) {
      var elem     = document.getElementById("details_"  + id),
          expander = document.getElem <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	4117	4265	
==>struction => []
  };
  bless $self, $class;
}

sub _add_inst {
  my $self = shift;
  push @{$self->{instruction}}, [@_];
}

sub generate {
  my ($cod <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841599	841705	
==>"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842363	842469	
==>"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "LA <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	192	347	
==>construct a
# syntax tree for a regular expression.
#

# Core ops generated by parser
# ----------------------------
# match : Match a single codepoint
# ch <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	22523	22622	
==>($$textref) }
				elsif (ref($func) eq 'Text::Balanced::Extractor')
					{ @bits = $field = $func->e <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	42264	42439	
==>ext = shift;
		$extractor = gen_extract_tagged(@_);
		return $extractor->($text);
	}

(although C<extract_tagged> is not currently implemented that way, in order
to preserve pr <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	798	892	
==>cript of the svn:ignore properties
# of the directories in the Parrot subversion repository. (N <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3653	3747	
==>cript of the svn:ignore properties
# of the directories in the Parrot subversion repository. (N <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658318	658575	
==>ined_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659237	659494	
==>ined_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	12633	12784	
==>th $source) {
    Carp::croak("Can't use empty-string as a source for parse_file");
  } else {
    {
      local *PODSOURCE;
      open(PODSOURCE, "<$so <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	17939	18056	
==>] goto $targ $cmt
EOC
}

sub JUMP_IF_TRUE
{
    my ($n, $c, $cmt) = @_;
    my $tos = pop @stack;
    my $targ = "pc_x <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	4740	4851	
==>$$$$)
{
	my $class = ref($_[0]) || $_[0];
	my $name  = $_[1];
	my $owner = $_[2];
	my $line  = $_[3];
	my $repla <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	38502	38683	
==>ng patterns
that are I<not> be be treated as nested tags within the tagged text
(even if they would match the start tag pattern).

For example, to extract an arbitrary XML tag, but i <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	15535	15685	
==>S0)
    gen_pir = concat $S0
    gen_pir = concat "\nif $I1000000 goto TYPED_EH_FOUND_"
    tmp = handler_offset
    gen_pir = concat tmp
    gen_pir = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461585	461821	
==>S" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 282 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({ <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	9401	9657	
==>ymbol} $dir->{pragma}\n";
        }
        else {
            print {$FH}
                "  .param $dir->{result}->{type} $dir->{result}->{symbol} :optional\n";
        }
    }

    sub visitReturnDir {
        my $self  = shift;
        my ($di <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	19423	19584	
==>, $content, -1),
        $neg ? () : '*'
      ) {
        DEBUG > 2 and
         print " Considering whether =begin $content matches $target_name\n";
        nex <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	2903	3066	
==>mplemented method?
        } elsif ($cur_method->{'unimplemented'}) {
            die "Unimplemented method given body at line $line_count\n";

        # Otherwise, <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8971	9104	
==>m a$(w)
for i = 0 to (22/7)*2 step 0.40
	for j = 1 to w*2
		a$(j)=" "
	next j
	a$(w+w*sin(i)+1)="*"
	a$(w+w*cos(i)+1)="+"
	for j = 1 t <==
2	/Users/nnunley/parrot/lib/File/Which.pm	153	257	
==>OK = qw(where);

$File::Which::VERSION = '0.05';

use File::Spec;

my $Is_VMS    = ($^O eq 'VMS');
my $Is <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	6859	6975	
==>ff the end and unshift onto the beginning
    $P1 = pop op2
    unshift op2, $P1
    inc op1
    goto neg

done:
noth <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7474	7575	
==>= ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP0} = concat "0"
${PARAMS}[0] = ${STE <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22175	22364	
==>rgetted =end $content\n";
        next;
      }
      
      unless(@$curr_open and $curr_open->[-1][0] eq '=for') {
        $self->whine(
          $para->[1]{'start_line'},
          "=end <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722258	722358	
==>1}}; /* TODO Can this be localized? */\n  if (s && string_length(interpreter, s)) {\n    if (PIO_soft <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723287	723387	
==>1}}; /* TODO Can this be localized? */\n  if (s && string_length(interpreter, s)) {\n    if (PIO_soft <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158950	159446	
==>DIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 192,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 176 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3020	3120	
==>ect info',
	'README' => 'README file',
	'RELEASE_INSTRUCTIONS' => 'Project info',
	'RESPONSIBLE_PARTI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103934	1104018	
==>(!type) {\n\t\tParrot_autoload_class(interpreter, class);\n\t\ttype = pmc_type(interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105149	1105233	
==>(!type) {\n\t\tParrot_autoload_class(interpreter, class);\n\t\ttype = pmc_type(interp <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1652	1752	
==>r_num}
${INS} = concat " = pop s\n"
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$register_num++ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3362	3462	
==>r_num}
${INS} = concat " = pop s\n"
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$register_num++ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	25006	25169	
==>e_fh,               'IO::Handle') ||

           # 5.5.4's tied() and can() doesn't like getting undef
           UNIVERSAL::can((tied($maybe_fh) || ''), 'TIEHANDLE <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	371	481	
==>rp;

use base qw(Jako::Construct::Declaration);

use Jako::Construct::Type;


#
# new()
#

sub new
{
  my $clas <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	371	481	
==>rp;

use base qw(Jako::Construct::Declaration);

use Jako::Construct::Type;


#
# new()
#

sub new
{
  my $clas <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	199	294	
==>d1 SYNOPSIS

	use Parrot::Docs::Group;

=head1 DESCRIPTION

A documentation I<group> is a number <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549897	549992	
==>DY" => "#line 56 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcod <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551198	551293	
==>DY" => "#line 56 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcod <==
2	/Users/nnunley/parrot/config/auto/signal.pm	1977	2096	
==>name (split(' ', $Config{sig_name})) {
        print O ".constant SIG$name\t$i\n" if $i;
        $i++;
    }
    close O <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3005	3155	
==>$Pod::Simple::VERSION doesn't implement UTF16 yet."
        );
        splice @_;
        push @_, undef;
        next;

        # TODO: implement some <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3403	3553	
==>$Pod::Simple::VERSION doesn't implement UTF16 yet."
        );
        splice @_;
        push @_, undef;
        next;

        # TODO: implement some <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5806	5930	
==>y $pops = shift;
	my $pir = '';

	# Branches mean we need to deal with basic block-ish stuff. If the branch
	# did not pop an <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3744	3868	
==>y $pops = shift;
	my $pir = '';

	# Branches mean we need to deal with basic block-ish stuff. If the branch
	# did not pop an <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8851	8946	
==>fe = PackFile_find_fixup_entry(interpreter,\n\t    enum_fixup_label, label);\n    if (!fe)\n\tin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9967	10062	
==>fe = PackFile_find_fixup_entry(interpreter,\n\t    enum_fixup_label, label);\n    if (!fe)\n\tin <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	19721	19826	
==>target_name!\n";
        $to_resolve = 1
          if $self->{'accept_targets'}{$target_name} eq 'force_re <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2722	2871	
==>lf->name unless $silent;
	
	foreach my $content ($self->contents_relative_to_source($source))
	{
		$index_html .= $content->write_html($source, $targe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932860	933297	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1048,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1052	1153	
==>compiler->emit("  inc $ident");

  if (($self->ident->kind eq 'var') and ($self->ident->scope eq 'glob <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509048	509311	
==>{\@1}};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509679	509942	
==>{\@1}};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAG <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	78	177	
==>4:27.448243Z bernhard  $

package Parrot::Test::Bc::Antlr2;

use strict;

use base 'Parrot::Test::Bc <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	7938	8056	
==>ef and not @codeb) {
		push @{$code{$seg}->{code}},<<FNOTB;
@codef	noop
	_screen_color($resultf)	# Broke!
FNOTB
	}
}
su <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	1100	1220	
==>=item C<c_item($text, %contents)>

Returns a new C source and/or header files documentation item. Recognized keys
for C<% <==
2	/Users/nnunley/parrot/languages/APL/t/APL.pm	767	875	
==>le is set,
# skip the tests - speed things up for end users, give developers the ability
# to easily see if a <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	2233	2430	
==>nd {
	my ($a,$b,$c,$d) = @_[0 .. 3];
	my $r;

	' . $insert . '
	$_[0]+$a' . $MSK . ', $_[1]+$b ' . $MSK . 
        ', $_[2]+$c' . $MSK . ', $_[3]+$d' . $MSK . ';
  }';
  eval $dump;
  #print "$dump\ <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	7199	7468	
==>ectory_with_name
{
    my $self = shift;
    my $name = shift || return;
    
    return File::Spec->catdir($self->path, $name);
}

=item C<path_for_file_with_name($name)>

Returns the path for the file with the specified name in the directory.

=cut

sub path_for_file_ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3499	3629	
==>to_source($source, $content);
		}
	}
	
	foreach my $content (@contents)
	{
		# We wait until now to do this because only now are al <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	4445	4669	
==>ginfo' => 'define',
             'i_libutil' => undef,
             'i_limits' => 'define',
             'i_locale' => 'define',
             'i_machcthr' => undef,
             'i_malloc' => undef,
             'i_math' => ' <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	2920	3032	
==>R "Found " . scalar(keys %$typedefs) . " typedefs.\n";
    my $cmd = "indent -kr -nce -sc -cp0 -l79 -lc79 -psl -n <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12456	12561	
==>number that could appear in a
C<EE<lt>name_or_numE<gt>> sequence, this returns the number of
the Unicode c <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2624	2732	
==>hift || die "No target\n";
    my $silent = shift || 0;
	my $index_html = '';
	
	print "\n\n", $self->name un <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	12756	12861	
==>type';
    $mv->{'RETTYPE'} = 'rettype';
    $mv->{'LABELNUM'} = 'label_num';
    $mv->{'EHANDLERS'} = 'eh <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	12088	12298	
==>tch{'!STACK'} = \$rx_stack;
return \%rx_match;
END
}

sub output_call_setup {
    my ($self, $name, $uid) = @_;
    return "my \$$uid;";
}

sub output_call {
    my ($self, $name, $mode, $uid) = @_;
#    if ($mo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	339412	339686	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pioctl",
                  "FLAGS" => ":advance <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	52070	52164	
==>e> returns an array of substrings
of the original string, as extracted by the specified extract <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	972	1150	
==>_numbers'};
        _xml_escape($value = $_[2]{$key});
        print $fh $ATTR_PAD, $key, '="', $value, '"';
      }
    }
  } else { # faster
    while(($key,$value) = each %{$_[ <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	5672	5787	
==>rser->YYData->{INPUT}
            or $parser->YYData->{INPUT} = readline $parser->YYData->{fh}
            or retu <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	6130	6245	
==>rser->YYData->{INPUT}
            or $parser->YYData->{INPUT} = readline $parser->YYData->{fh}
            or retu <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	4809	4948	
==>$textref =~ m/\G$pre/gc)
	{
		_failmsg "Did not find prefix: /$pre/", $startpos;
		return;
	}

	$ldelpos = pos $$textref;

	unless ($$textre <==
2	/Users/nnunley/parrot/config/auto/bc.pm	885	1064	
==>available on http://gnuwin32.sourceforge.net/
    my %bc_does_not_hang = (
        linux   => 1,
        MSWin32 => 1,
    );

    if ($bc_does_not_hang{$osname}) {

        # This <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	2748	2873	
==>Syntax

The basic syntax of a PMC file is

=over 4

=item 1.

A preamble, consisting of code to be copied directly to the .c f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841085	841380	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841848	842143	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1430	1678	
==>4 = $I4 - $I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1430	1678	
==>4 = $I4 - $I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1038	1189	
==>tory is an instance of the class returned by
C<directory_class>.


=cut

sub directory_with_path
{
    my $self = shift;
    
    return $self->director <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	652150	652454	
==>i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 729,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 264 \"src/ops/pmc.ops\"\n    { <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	49828	49960	
==>], $_[2] );
            BuildAssigns( $_[0], $_[2], [] );
        }
	],
	[#Rule 32
		 '_if_then', 3,
sub
#line 195 "Lua\lua51. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711097	711493	
==>> "print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 798,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 50 \"src/ops/python.ops\"\n  PMC * <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3116	3217	
==>g/gen/core_pmcs.pm

package Parrot::PMC;

use strict;
use warnings;

use vars qw(@ISA %pmc_types @EXPO <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	60	161	
==>g/gen/core_pmcs.pm

package Parrot::PMC;

use strict;
use warnings;

use vars qw(@ISA %pmc_types @EXPO <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27931	28079	
==>= "    type_trans = pop dtypes\n";
			$pir .= "    stypes = push type_trans\n";
		}

		# Finally, call post_op and append code it generates.
		my $po <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213168	213484	
==>atch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_NUMCMP) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	15428	15645	
==>'S';
	$nr = promote($r);
	print <<"EOC";
	$n = new $DEFVAR $cmt
	$op $n, $nl, $nr
EOC
    }
    push @stack, [-1, $n, $t];
}

sub BINARY_AND
{
    my ($n, $c, $cmt) = @_;
    binary('&', $cmt);
}

sub BINARY_OR
{
    m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686456	686597	
==>= {{\@3}}->vtable->getprop(interpreter, {{\@3}}, {{\@2}});\n   {{+=4}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687346	687487	
==>= {{\@3}}->vtable->getprop(interpreter, {{\@3}}, {{\@2}});\n   {{+=4}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7081	7191	
==>shmark";
    return @ops;
}

sub output_pushindex {
    my ($self, $reg) = @_;
    $reg = value(defined($reg) ? <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6723	6833	
==>shmark";
    return @ops;
}

sub output_pushindex {
    my ($self, $reg) = @_;
    $reg = value(defined($reg) ? <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	66292	66533	
==>,
						       "<leftop: $name $2 $name>(..$1) ");

						pos $grammar = $pos;
					}
					else
					{
						$item = new Parse::RecDescent::Repetition($name,"..$1",1,$1,
										   $lookahead,$line,
										   $self,
										   $matchru <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	4468	4611	
==>npmc>

The class is a dynamic class. These have a special C<class_init>
routine suitable for dynamic loading at runtime. See the F<src/dynpmc>
d <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	948	1117	
==>n in such a way that a string register value results
# for use by further compilations. This register value is
# returned to the caller.
#
# Converts a single string argu <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/State.pm	373	477	
==>gex::Ops::Label';
}

sub genlabel {
    my ($self, $desc) = @_;
    my $number = ++$self->{_markers}->{$d <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	736	845	
==>lock, qw(Jako::Construct::Block));
  confess "Type (" . ref($type) . ") is not!"   if defined $type and not UN <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	619	725	
==>lock, qw(Jako::Construct::Block));
  confess "Type (". ref($type) . ") is not!" if defined $type and not UN <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15297	15408	
==>"";
	$retcount=0;
	my $type="";

	if ($opts{assign}) {
		#print STDERR "Assign\n";
		$opts{lhs}=1;
		@expr=get_e <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	29914	30008	
==>op_string_ci_gt_p {
}

sub _op_string_ci_le_p {
}

sub _op_string_ci_ge_p {
}

sub _op_substrin <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	54149	54245	
==>orks by applying each extractor in
sequence to the text string.

If the extractor is a subroutine <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722230	722352	
==>}};\n  PMC * const io = {{\@1}}; /* TODO Can this be localized? */\n  if (s && string_length(interpreter, s)) {\n    if (PI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723259	723381	
==>}};\n  PMC * const io = {{\@1}}; /* TODO Can this be localized? */\n  if (s && string_length(interpreter, s)) {\n    if (PI <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22512	22710	
==>> 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 72
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015015	1015114	
==>n  const char * const tmp = strerror({{\@2}});\n  {{\@1}} = string_make(interpreter, tmp, strlen(tmp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015839	1015938	
==>n  const char * const tmp = strerror({{\@2}});\n  {{\@1}} = string_make(interpreter, tmp, strlen(tmp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124608	124778	
==>",
                              "i"
                            ],
                  "BODY" => "#line 257 \"src/ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	9366	9527	
==>ng\s+(\S+)\s*$/s;
  DEBUG > 1 and print "Found an encoding line \"=encoding $1\"\n";

  my $e    = $1;
  my $orig = $e;
  push @{ $self->{'encoding_command_reqs'} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170393	170604	
==>n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171334	171545	
==>n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9230	9350	
==>ength $new_code;
    if(ASCII) {
      # A good-enough check that it's good as an XML Name symbol:
      Carp::croak "\"$ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10494	10614	
==>ength $new_code;
    if(ASCII) {
      # A good-enough check that it's good as an XML Name symbol:
      Carp::croak "\"$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033559	1033835	
==>ame, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034657	1034933	
==>ame, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	902	1022	
==>rns a new instance.

=cut

sub new
{ 
    return bless { }, shift; 
}

=back

=head2 Instance Methods

=over 4

=item C<p <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	1345	1479	
==>b run {
  use Carp ();
  if( __PACKAGE__ eq ref($_[0]) || $_[0]) { # I'm not being subclassed!
    Carp::croak "You can call run() only <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253672	253847	
==>",
                              "i"
                            ],
                  "BODY" => "#line 726 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@2}} : {{\@3}};\n  {{+= <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	20276	20421	
==>n;
			}
			$ldel2 = $rdel2 = "\Q$1";
			$rdel2 =~ tr/[({</])}>/;
		}
		else
		{
			$ldel2 = $rdel2 = $ldel1;
		}
		$str2pos = $ld2pos+1;

		if ($l <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	745	856	
==>:Spec;
use File::Which;

# XXX $conf is a temporary hack
our $conf;

our @EXPORT = ();
our @EXPORT_OK = qw(promp <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	16480	16598	
==>,
    );
  }

  my($para, $para_type);
  while(@$paras) {
    last if @$paras == 1 and
      ( $paras->[0][0] eq '=over <==
2	/Users/nnunley/parrot/config/inter/libparrot.pm	406	509	
==>ot;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

u <==
2	/Users/nnunley/parrot/config/init/miniparrot.pm	570	666	
==>ot;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

u <==
2	/Users/nnunley/parrot/languages/regex/regex.pl	2099	2269	
==>t eq '-') {
    open(OUTPUT, ">&STDOUT");
} else {
    open(OUTPUT, ">$output") or die "create $output: $!";
}

my $driver = Regex::Driver->new($language, %options);

$dri <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	15202	15336	
==>, $n, $t];
}

sub binary_word
{
    my ($op, $cmt) = @_;
    my $r = pop @stack;
    my $l = pop @stack;
    my ($t, $n);
    {
	my $nl <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	11593	11743	
==>ut_rule_end {
    my ($self, $name) = @_;
    return ("# End of rule $name", "}");
}

sub output_rule_pass {
    my ($self, $name) = @_;
    return spl <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	11515	11689	
==>o " . $self->output_label_use($L_backup) . "};";

    return @ops;
}

sub output_rule_end {
    my ($self, $name) = @_;
    return ("# End of rule $name", "}");
}

sub output_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1353	1463	
==>f evil from the black box...  please avert your eyes, kind souls.
sub _traverse_treelet_bit {
  DEBUG > 2 and p <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	7908	8015	
==>>{"name"} . ']},
				  Parse::RecDescent::_tracefirst($_[1]),
				  q{' . $self->{"name"} . '})
					if defi <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	619	807	
==>my $dir = $dist->existing_directory_with_name('src/pmc');
	
	my @concrete_items = ();
	my @abstract_items = ();
	
	foreach my $file ($dir->files_with_suffix('pmc'))
	{
	    my $code = $file <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	6	162	
==>right (C) 2004-2006, The Perl Foundation.
# $Id: /parrot/lib/Parrot/IO/File.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::IO::File - <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1248	1360	
==>SYNTAX_ERROR("Call to unknown sub '%s'.", $name) unless $sym;

  my %props = $sym->props;

  my @args  = $self->a <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	5159	5331	
==>cfg{list_only} ) {
    my @rows;
    push @rows, [ 'Benchmark', @program ];
    for my $name ( sort keys %bench ) {
        push @rows, [ $name, map { $bench{$name}{$_} || ' <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	912	1037	
==>y $func ( keys %language_test_map ) {
    no strict 'refs';

    *{"Parrot::Test::Bc::$func"} = sub {
        my $self = shift <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1478	1645	
==>handler) = @_;

  $handler->start_element({ Name => 'op', Attributes => { kind => 'postfix', name => '++' } });
  $self->ident->sax($handler);
  $handler->end_element({ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1484	1598	
==>handler) = @_;

  $handler->start_element({ Name => 'op', Attributes => { kind => 'postfix', name => '--' } });
  $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10051	10333	
==>,
                    'arg2'   => undef,
                    'result' => $result,
                );
                return [ $defn, \@opcodes, $assign ];
            }
            else {
                my $assign = new AssignOp( $parser,
                    'arg1'   => und <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11855	12109	
==>,
                        'arg2'   => undef,
                        'result' => $result,
                    );
                    return [ $defn, \@opcodes, $assign ];
                }
                else {
                    my $assign = new <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31942	32097	
==>>{itempos}? 'do {'.Parse::RecDescent::Production::incitempos().' 1} and ' : '')
		. '  do { $_tok = "' . $self->{"pattern"} . '"; 1 } and
		     substr($tex <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	31180	31301	
==>labels{$_}", $labels{$_}\n|;
		}
	}

	push @{$code{$seg}->{code}}, <<RTBE;
	print "Runtime branch of "
	print JUMPLABEL
	p <==
2	/Users/nnunley/parrot/tools/build/revision_c.pl	794	892	
==>API int Parrot_config_revision(void);

int Parrot_revision(void)
{
    return ${Parrot::Revision::c <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7619	7712	
==>pe_of_ident(NAME)

This is a shortcut method that uses find_symbol() to locate a matching
symb <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	21	126	
==>trict;
use warnings;
use POSIX qw(locale_h);
use locale;
use File::Spec;


=head1 NAME

tools/dev/gen_char <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38685	38796	
==>text;' : '' ) .'

'
}

package Parse::RecDescent::Result;

sub issubrule { 0 }
sub isterminal { 0 }
sub describe <==
2	/Users/nnunley/parrot/config/auto/msvc.pm	825	933	
==>r any hints-file
    # callbacks that depend on knowing whether or not we're using Visual C++.

    # This ke <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	13285	13386	
==>artpos = pos($$textref) = pos($$textref) || 0;
	unless ($$textref =~ m/\G($pre)/gc)
	{
		_failmsg qq{D <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	10945	11039	
==>artpos = pos($$textref) = pos($$textref)||0;
	unless ($$textref =~ m/\G($pre)/gc)
	{
		_failmsg <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	648	741	
==>PC (cur_opcode - start_code)
#define IREG(i) REG_INT(i)
#define NREG(i) REG_NUM(i)
#define PRE <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	212	305	
==>rot::Test;

=head1 NAME

Parrot::Test::HQ9plus - Testing routines specific to 'HQ9plus'.

=hea <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3358	3666	
==>('VerbatimFormatted');
  DEBUG > 2 and print "To accept: ", join(' ',@_to_accept), "\n";
  $new->doc_lang(
    (  $ENV{'RTFDEFLANG'} || '') =~ m/^(\d{1,10})$/s ? $1
    : ($ENV{'RTFDEFLANG'} || '') =~ m/^0?x([a-fA-F0-9]{1,10})$/s ? hex($1)
                                      # yes, tolerate hex!
    : ($EN <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830717	830937	
==>Y_INT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831458	831678	
==>Y_INT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9301	9476	
==>}{prevcolumn}?'
	my $prevcolumn;
	tie $prevcolumn, q{Parse::RecDescent::ColCounter}, \$text, $thisparser, 1;
	':'') . ($parser->{_check}{prevline}?'
	my $prevline;
	tie $prevli <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	57599	57817	
==>3
		 'args', 1,
sub
#line 488 "Lua\lua51.yp"
{
            [
                $_[1],
            ];
        }
	],
	[#Rule 94
		 'args', 1,
sub
#line 494 "Lua\lua51.yp"
{
            [
                Buil <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	31808	32158	
==>IONS => {
			"," => 151
		},
		DEFAULT => -9
	},
	{#State 110
		DEFAULT => -38
	},
	{#State 111
		ACTIONS => {
			";" => 22
		},
		DEFAULT => -6,
		GOTOS => {
			'_semicolon_opt' => 157
		}
	},
	{#State 112
		ACTIONS => {
			"-" => 24,
			'TRUE' => 25,
			'NOT' => 27,
			'STRING' => 29,
			'NIL' => 30,
			'FALSE' => 33,
			' <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	5019	5203	
==>_CODE___\"\n";
        $pir .= $_->{'body'};
        $pir .= "___BUILTIN_CODE___\ngoto END\n";
    }
    return $pir;
}


# Usage message.
# ##############
sub usage() {
    print <<USA <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	15466	15650	
==>);
        print NCI << "HEADER";
static void
pcf_${return}_$params(Interp *interpreter, PMC *self)
{
    typedef $ret_type (*func_t)($proto);
    func_t pointer;
    $call_state
    $r <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1696	1818	
==>. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1742	1843	
==>. . . . . . . . . .
#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

su <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	1618	1720	
==>source_file_with_name($name)), 
                $dist->relative_path($dist->c_header_file_with_name($na <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	8750	8895	
==>ke',
             'make_and' => '&&',
             'make_c' => 'gmake -C',
             'make_set_make' => '#',
             'memalign' => 'some_m <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	491	612	
==>uilding
dynamic PMCs.

=cut

use strict;

use File::Copy qw(copy);

# qq[] isn't guaranteed to work, but it's safer than " <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	453	574	
==>uilding
dynamic PMCs.

=cut

use strict;

use File::Copy qw(copy);

# qq[] isn't guaranteed to work, but it's safer than " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13508	13852	
==>ent",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 18,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 231 \"src/ops/core.ops\"\n  opcode <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19933	20066	
==>d/or if you want it to hyphenate right.

Here are some notable values:

  1033  US English
  2057  UK English
  3081  Australia Englis <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	15437	15545	
==>em C<html_link($href, $text)>

Returns an HTML anchor with the specified "href".

=cut

sub html_link
{
    m <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5508	5619	
==>rdering of libs might be crucial
sub gather_groups_and_libs {
    my @pmcs = @_;

    my ( %group_files, %group_ <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5719	5830	
==>rdering of libs might be crucial
sub gather_groups_and_libs {
    my @pmcs = @_;

    my ( %group_files, %group_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51365	51696	
==>",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 66,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	43436	43623	
==>G > 1 and print "Ogling E<$content>\n";

      $charnum  = Pod::Escapes::e2charnum($content);
      DEBUG > 1 and print " Considering E<$content> with char ",
        defined($charnum) ? $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	807	892	
==>s UNIVERSAL::isa($ident, qw(Jako::Construct::Expression::Value::Identifier));
  confes <==
2	/Users/nnunley/parrot/Configure.pl	8651	8748	
==>hich case it'll prompt you for a few
pieces of info.

Since you're running this script, you obviou <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2664	2791	
==>h_name
{
    my $self = shift;
    my $name = shift || return;
    
    $name .= '.c' unless $name =~ /\.[Cc]$/o;
    
    forea <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	1519	1621	
==>r calls code which calls these functions, so most
   extension code is safe, no problem.

   The proble <==
2	/Users/nnunley/parrot/Configure.pl	2934	3088	
==>C<--gc=(type)>

Determine the type of garbage collection. The value for C<type> should be one
of: C<gc>, C<libc>, C<malloc> or C<malloc-trace>. The default <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	694	802	
==>=item C<p6rule_is($target, $pattern, $description, @todo)>

Runs the target string against the Perl 6 pattern <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	4758	4904	
==>ds, but in order relative to cuts.
        
        # Note also that we haven't yet applied the transcoding to $line
        #  by time we call $co <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	533	644	
==>a basic test harness for Parrot-hosted languages.  Right
now it parameterizes the two parameters that at least t <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	26701	26880	
==>foreach (@_) {
        my ($back, @rewritten) = $self->rewrite($_, $fallback);
        push @ops, @rewritten;
        $fallback = $back;
    }

    return ($fallback, @ops);
}

sub <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	9037	9189	
==>_flag) {
    my $source_escaped = $source;
    $source_escaped =~ s|\.temp||;
    $source_escaped =~ s|(\\)|$1$1|g; # escape backslashes
    print SOURCE <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	24810	24927	
==>eters});
      $cout .= <<"EOC";
        enter_nci_method(interp, entry,
                F2DPTR(Parrot_${classname}_$m <==
2	/Users/nnunley/parrot/lib/Test/More.pm	26751	26877	
==>/\$FOO/     \$got/;
    ($vars[1] = $var) =~ s/\$FOO/\$expected/;

    my $out = "Structures begin differing at:\n";
    foreac <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	37459	37572	
==>d (or C<undef>) then the closing
tag is constructed by inserting a C</> after any leading bracket
characters in th <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	702	801	
==>ir"
.include "languages/lua/lib/luadebug.pir"

.sub __start :main
#  print "start Lua\n"
  init <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	127	222	
==>ting routines here...

This is currently alarmingly similar to the generated subs in Parrot::Tes <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	225	320	
==>ting routines here...

This is currently alarmingly similar to the generated subs in Parrot::Tes <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1745	1851	
==>}. "  }
sub start_item_text   { $_[0]{'Thispara'} = ''   }

sub start_over_bullet  { ++$_[0]{'Indent'} }
su <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1313	1419	
==>}. "  }
sub start_item_text   { $_[0]{'Thispara'} = ''   }

sub start_over_bullet  { ++$_[0]{'Indent'} }
su <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	603554	603779	
==>{{\@1}} = VTABLE_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640688	640911	
==>{{\@1}} = VTABLE_name(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2260	2389	
==>entry on compile
        $@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $retval
}

sub YYData {
	my($self <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2177	2296	
==>entry on compile
        $@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $retval
}

sub YYData {
	my($self <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	4456	4556	
==>um of 254 failures in its exit
code.  If this is a problem, you probably have a huge test script.
Spl <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	1678	1779	
==>es for creating local vars.
    return $self->alloc_temp_int($name);
}

sub new_rxlocal {
    my ($sel <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6193	6341	
==>s pir code 
    for my $ruleRow (@$pattern) {
        my ($name, $subpat) = @$ruleRow;
        $subpat = _parrot_stringify($subpat);

        $pirCod <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563944	564126	
==>s\"\n  VTABLE_add_method(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564842	565024	
==>s\"\n  VTABLE_add_method(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	91	257	
==>3 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Directory - Docs-Related Directory

=head1 SYNOPSIS

    use Parrot::Docs::Directory;

=head1 DES <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22633	22736	
==>dd_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23134	23237	
==>dd_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_ <==
2	/Users/nnunley/parrot/config/inter/make.pm	1292	1453	
==>else {
        $prog = check_progs(['gmake', 'mingw32-make', 'nmake', 'make'],
            $verbose);

        unless ($prog) {

            # fall back to defaul <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1755	1878	
==>e
{
  my $self = shift;
  my ($compiler) = @_;

  my $block = $self->block;
  my $name  = $self->ident ? $self->ident->value <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	472	599	
==>ommand-Line Options

The following options can be used to limit the symbols:

=over 4

=item C<--code>

=item C<-c>

List the co <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	1921	2027	
==>Scheme tokenizer

=head1 SYNOPSIS

  use Scheme:Tokenizer;

  my @code = Scheme::Tokenizer->new($file_name) <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	8327	8438	
==>ile_base.branches.html">@{[$file_branch_coverage{$source_file} ? "$file_branch_coverage{$source_file} %" : "n/a" <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9840	9957	
==>"INTERP, SELF, $args";
    } else {
        return "INTERP, SELF";
    }
}

=item C<proto($type,$parameters)>

Determi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837980	838281	
==>(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}),\n                  STACK_ENTRY_FLOAT);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	8626	8757	
==>next unless defined $t and length $t;
    # TODO: enforce some limitations on what a target name can be?
    delete $this->{'accept_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	8107	8219	
==>next unless defined $t and length $t;
    # TODO: enforce some limitations on what a target name can be?
    $thi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600086	600184	
==>er, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readabl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601162	601260	
==>er, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readabl <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	1090	1230	
==>', $dist->relative_path($file)));
	    }
	}
	
	return $self->SUPER::new(
		'PMCs', 'pmc.html', 
		'PMCs are Parrot\'s internal "classes". The <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	1172	1288	
==>types), shift(@$vals) if (@$types);
        return ('', undef);
    };
    my $parser = new Regex::Grammar;
    retur <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	34610	34722	
==>let->[$i][1]{'content-implicit'} = 'yes';
          $treelet->[$i][1]{'to'  } =
            Pod::Simple::LinkSect <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	35188	35300	
==>let->[$i][1]{'content-implicit'} = 'yes';
          $treelet->[$i][1]{'to'  } =
            Pod::Simple::LinkSect <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	821334	821602	
==>"BODY" => "#line 98 \"src/ops/stack.ops\"\n  {{\@1}} = stack_height(interpreter, CONTEXT(interpreter->ctx)->user_stack);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749980	750394	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 845,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297410	297834	
==>GDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 346,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => " <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2344	2443	
==>ARING;
	# Sharing $stype $var with main  (array=$array)
	P0= P10[0]
	P1= P0["$stype"]
	P0= P1["$var" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2571	2670	
==>ARING;
	# Sharing $stype $var with main  (array=$array)
	P0= P10[0]
	P1= P0["$stype"]
	P0= P1["$var" <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	18136	18327	
==>('.', @_);
    }
    elsif (@_ == 0)
    {
        if (wantarray)
        {
            return split(/\./, $self->{VERSION});
        }
        else
        {
            return $self->{VERSIO <==
2	/Users/nnunley/parrot/examples/benchmarks/fib.pl	98	189	
==>pl 19601 2006-05-30T13:32:26.641316Z coke  $

=head1 NAME

examples/benchmarks/fib.pl - Fibo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564569	564858	
==>E" => "inline",
                  "CODE" => 645,
                  "ARGS" => [
                              "p",
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line 183 \"src/ops/object.ops\"\n  VTABLE_add <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	2642	2795	
==>t->is('infix-bit');     }
sub is_infix_concat  { return shift->is('infix-concat');  }
sub is_infix_rel     { return shift->is('infix-rel');     }
sub is_l <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	726	855	
==>lsif($ch eq '?' and
            $token =~ /^[a-z]/) { # Question marks can follow an identifier
      $token .= $ch;
    } elsif($ <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	2742	3015	
==>^((static)\s+)?//i;
    $static = $2 || "";

    return [$static, $returntype, $funcname, @parms];
}


sub main {
    GetOptions(
        "verbose"   => \$opt{verbose},
    ) or exit(1);

    my $nfuncs = 0;
    my @ofiles = @ARGV;
    my %files;
    for my $ofile ( @ofiles <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17171	17313	
==>at won't work right
        #  under non-ASCII charsets.  Something should be done about that.
    }
    
    return @_;
}

=back

=head1 HISTO <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10587	10695	
==>at won't work right
    #  under non-ASCII charsets.  Something should be done about that.
  }
  return @_;
} <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	822	949	
==>*)\s*:(?!:))(.*)$}) {
    push @tokens, Jako::Token->new(
      $file, $line, 'label', 'N', $2);
    $text = $3; # The "(?!:)" i <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	17119	17230	
==>N
		($result,$type,@stream)=generate_code(0, @stream);	# Generate PASM code stream
	}
	s/$/\n/ for @stream;
	@st <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	9798	9933	
==>}

sub _op_define {
  my ($self, $node) = @_;

  _num_arg ($node, 2, 'define');

  my ($symbol, $lambda, $value);

  if (exists _get_arg <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	489	597	
==>files ...]

=head1 DESCRIPTION

This script extracts descriptions from the Parrot source files. If no
files a <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	5019	5142	
==>is met, otherwise
# a Syntax Error is raised.
#
# If more than one type is specified, the semantics are "or".
#

sub require <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	50188	50348	
==>@{$lineage[-1]}), "!!!\n";
      
      push @{ $lineage[-1] }, '' if 2 == @{ $lineage[-1] };
      # Keep the element from being childless
      
      pop @sta <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	9128	9291	
==>EC_CALLDISP);

END_C
}
if ( $cpuarch eq 'ppc' && $genfile ne 'src/jit_cpu.c' ) {
    print JITCPU "#define ECONST(i) (int *)(jit_info->cur_op[i] * sizeof(struct Pac <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348681	349040	
==>RS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 406,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 162 \" <==
2	/Users/nnunley/parrot/Configure.pl	9990	10087	
==>conf->options->set(%args);
# Run the actual steps
$conf->runsteps or exit(1);

# tell users what t <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	2598	2739	
==>ass name of the step register.  All other
parameters are saved and passed to the registered class's C<runstep()> method.

Accepts a list and r <==
2	/Users/nnunley/parrot/config/inter/shlibs.pm	112	233	
==>5Z coke  $

=head1 NAME

config/inter/shlibs.pm - Flags for shared libraries.

=head1 DESCRIPTION

Asks the user which fla <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2448	2576	
==>.Undef', 'apply_CALL'],
  ['',            'set', 'P10', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1015	1133	
==>_text {
  DEBUG and print "== \"$_[1]\"\n";
  
  if(length $_[1]) {
    my $indent = '  ' x $_[0]{'indent'};
    my $te <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	964	1079	
==>_text {
  DEBUG and print "== \"$_[1]\"\n";
  if(length $_[1]) {
    my $indent = '  ' x $_[0]{'indent'};
    my $te <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	42923	43138	
==>dded balanced bracket
delimiters (for the quotelike operators), and trailing modifiers are
all caught. For example, in:

	extract_quotelike 'q # an octothorpe: \# (not the end of the q!) #'
	
	extract_quotelike '  "Y <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	27896	28000	
==>print "Extensor has bad syntax.\n";
    $self->whine(
      $para->[1]{'start_line'},
      "Unknown =ext <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	519	661	
==>it code to really do any moves we've done lazily.
sub _do_lazy_moves {
    my $suffix = shift || "";  
    my $pir = <<'PIR';
${ITEMP0} = eleme <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2381	2549	
==>,            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P10', 'P16[0]'],
  ['',            'bsr', 'apply_HEL <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	2055	2279	
==>rt {
      my($self) = shift;
      my $pack = caller;

      $Test->exported_to($pack);
      $Test->plan(@_);

      $self->export_to_level(1, $self, 'ok');
  }

  sub ok {
      my($test, $name) = @_;

      $Test->ok($tes <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	12173	12275	
==>024\noproof\sbasedon25 pod-codelbock-bold;}
{\*\cs28 \additive \f1\lang1024\noproof\sbasedon25 pod-code <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	3727	3947	
==>ng registers - this is all aligned
     
            2.7  => "",
            2.8  => "-Wsign-compare",
            2.95 => "",

            # 2.95 does align functions per default -malign-functions=4
            #      wh <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	15938	16035	
==>ctions

=over 4

=item C<esc(@strings)>

=item C<esc($string)>

Reimplemented here to silence a C< <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	11820	12019	
==>},\s*{{\@(\d)}}
        \);
        \s+{{\+=\d}}/xm) {
            $jit_func = "Parrot_jit_vtable_$1r$2$4$5_op";
            $extern = vtable_num($3);
            #print $op->full_name .": $jit_func $ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	42373	42478	
==>ged> is not currently implemented that way, in order
to preserve pre-5.005 compatibility).

Using C<gen_ex <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	3980	4156	
==>ate Representation and generate Parrot Assembler Code.
Pass if the generated PASM is $expected.

=item C<pir_2_pasm_like($code, $expected, $description)>

Compile the Parrot Int <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	50924	51081	
==>ineage;
      } else {
        DEBUG > 4 and print " It's just stuff.\n";
        push @{ $lineage[-1] }, $4;
      }

    } elsif(defined $5) {
      DEBUG > <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	7694	7920	
==>' => 'c++',
             'ld_debug' => '',
             'ld_load_flags' => '-bundle -undefined suppress',
             'ld_out' => '-o ',
             'ld_share_flags' => '-dynamiclib -undefined suppress',
             'ldflags <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334451	334889	
==>"ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 392,
                  "ARGS" => [
                              "p",
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 56 \" <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	2786	2977	
==>2c.pl                            [devel]
    tools/build/revision_c.pl                       [devel]
    vtable.tbl                                      [devel]
);

open my $MANI, '>', 'MANIFE <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27095	27256	
==>meta($pre_op, $mv, "pre_op for rule $rule->{'name'}");
		$pir .= "### end pre_op\n";

        # Add pre-translate code, if any.
        $pir .= sub_meta($pre_tran <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44356	44627	
==>\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "popmark",
                  "FLAGS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44997	45268	
==>\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "popmark",
                  "FLAGS" = <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	512	686	
==>apper\n";
}

# Extra subroutines required for the mapper.
sub subs {
	die "subs not implemented for current stack to register mapper\n";
}

# Label generation.
sub gen_label { <==
2	/Users/nnunley/parrot/config/auto/alignptrs.pm	1328	1587	
==>ry_align);
            if ($results =~ /OK/ && $results !~ /align/i) {
                $align = $try_align;
            }
        }
        cc_clean();

        die "Can't determine alignment!\n" unless defined $align;
        $conf->data->set(ptr_alignment => <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	4369	4535	
==>'$opsfile'!\n" unless -r $opsfile;
    }

    $ops = Parrot::OpsFile->new( \@opsfiles, $nolines_flag );

    my $cur_code = 0;
    for(@{$ops->{OPS}}) {
        $_->{C <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	11942	12132	
==>classmatch\n"),
                         aop('classmatch', [ $incexc, $lastback ]),
                         aop('increment', [ 1, $lastback ]),
                         aop('goto', [ $next ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565141	565462	
==>( {
                  "JUMP" => 0,
                  "NAME" => "can",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566033	566354	
==>( {
                  "JUMP" => 0,
                  "NAME" => "can",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	17280	17415	
==>{ socks=>1, blaze=>"white" },
                        breed    => Breed->new(name=>'short-hair', cross=>1),
                   or:  bree <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	392	540	
==>cumentation for Parrot.

=head2 Class Methods

=over

=cut

package Parrot::Docs::Section::Parrot;

use strict;
use warnings;

use base qw( Parrot::D <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	2042	2159	
==>uses Pod::Simple to do stuff, but which
  you DO want debug output from...

 $debug_level = 0;

=head1 DESCRIPTION

Th <==
2	/Users/nnunley/parrot/languages/urm/urm-old.pl	598	710	
==>} = 0 unless defined $register{$1}}
    if ($line =~ /out\((r\d+)/) { $outreg = $1 }
    if ($line =~ /^\d+:(.+)/ <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	724	917	
==>ub {
        my $self = shift;
        my ( $code, $output, $desc, %options ) = @_;

        my $count = $self->{builder}->current_test + 1;

        # flatten filenames (don't use directo <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	1009	1183	
==>ub {
        my $self = shift;
        my ( $code, $output, $desc, %options ) = @_;
  
        my $count = $self->{builder}->current_test() + 1;

        # These are the thing <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13882	14027	
==>ol statements to function properly.
      #
      # Put on an empty continue block and then pop it back off. It will be in the
      # parent bloc <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	26369	26500	
==>if($paras->[0][0] eq '~end') {
        $self->whine(
          $para->[1]{'start_line'},
          "=over is the last thing in the d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054296	1054388	
==>de_t * next;\n    if (PMC_IS_NULL({{\@2}}))\n\tinternal_exception(1, \"Tried to get from null <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055423	1055515	
==>de_t * next;\n    if (PMC_IS_NULL({{\@2}}))\n\tinternal_exception(1, \"Tried to get from null <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23825	23943	
==>escribe . ')},
					 Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRA <==
2	/Users/nnunley/parrot/config/auto/aio.pm	728	1147	
==>val { cc_build(); };
    if (!$@) {
        $test = cc_run(35);

        # if the test is failing with sigaction err
        # we should repeat it with a different signal number
        if (
            $test =~ /SIGRTMIN=(\d+)\sSIGRTMAX=(\d+)\n
		INFO=42\n
		ok/x
            ) {
            print " (yes) " if $verbose;
            $self->set_result('yes');

            $conf->data->set(
                aio        => <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	25126	25252	
==>SAL::can((tied($maybe_fh) || ''), 'TIEHANDLE');
}


sub _autoflush {
    my($fh) = shift;
    my $old_fh = select $fh;
    $| = <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	4683	4829	
==>anch_coverage{$source_file} = $percent;
                next;
            }

            ($percent, $total_branches, $function) = /\s*([^%]+)% of ( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1375	1460	
==>ement::Increment;
use Jako::Construct::Statement::LoopControl;
use Jako::Construct::St <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	833	951	
==>ur eq '.' ) {
			append;
			fetch;
			$numtype="FLO";
			goto NUMCONST;
		}
		if ($cur =~ /[eEdD]/ and $next =~/[-+\d]/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035471	1035572	
==>name = {{\@2}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n    PMC *resu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036635	1036736	
==>name = {{\@2}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n    PMC *resu <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9812	9965	
==>=undef;
		};

        $$errstatus=3;

		while(	  @$stack
			  and (		not exists($$states[$$stack[-1][0]]{ACTIONS})
			        or  not exists($$stat <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9372	9518	
==>=undef;
		};

        $$errstatus=3;

		while(	  @$stack
			  and (		not exists($$states[$$stack[-1][0]]{ACTIONS})
			        or  not exists($$stat <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	686	782	
==>::isa($ident, 'Jako::Construct::Expression::Value::Identifier');
  confess("Block (" . ref($block <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	5893	5995	
==>re('literal');       }
sub require_open_brace    { return shift->require('open-brace');    }
sub requir <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	27633	27739	
==>r now just point to the opcode */\n    interpreter->current_args = this;\n    argc = SIG_ELEMS(signature);\ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	36335	36439	
==>ater, Test::Builder is thread-safe.  The test
number is shared amongst all threads.  This means if one th <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6868	6994	
==>nd?");
}

sub output_pushmark {
    my ($self) = @_;
    my @ops;
    if ($self->{DEBUG}) {
	push @ops, (qq(print "PUSHED ).(@_ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6518	6644	
==>nd?");
}

sub output_pushmark {
    my ($self) = @_;
    my @ops;
    if ($self->{DEBUG}) {
	push @ops, (qq(print "PUSHED ).(@_ <==
2	/Users/nnunley/parrot/languages/pugs/t/pmc.pm	278	398	
==>undef) = caller();
    $file =~ /(\w+)\.t$/ or die "malformed file: $file";
    my $type = "Pugs\u$1";

    main::pir_out <==
2	/Users/nnunley/parrot/config/inter/make.pm	2442	2704	
==>s is an ugly hack
        # replace the value for $(MAKE) with the actual path or we'll end up
        # with a variable that recursively refers to itself
        $make_c =~ s/\$\(MAKE\)/$prog/;

        $conf->data->set(make_c => $make_c);
    }

    return $sel <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2968	3098	
==>II;
  print {$self->{'output_fh'}} $out,
    #"\n"
  ;
  $self->{'Thispara'} = '';
  
  return;
}

# . . . . . . . . . . And then o <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2502	2624	
==>II;
  print {$self->{'output_fh'}} $out, "\n";
  $self->{'Thispara'} = '';
  
  return;
}

# . . . . . . . . . . And then o <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1984	2090	
==>nt syntax above applies here.

=cut

sub p6rule_isnt {
    my ($target, $pattern) = (shift, shift);

    un <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431009	431478	
==>e_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 495,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 79 \"src/ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	2257	2570	
==>hift->{LEFT};  }
sub op        { return shift->{OP};    }
sub right     { return shift->{RIGHT}; }

sub prefix
{
  my $self = shift;
  $self->{PREFIX} = shift if @_;
  return $self->{PREFIX};
}


###############################################################################

=head2 BLOCK->set_symbol(NAME, VALUE) <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5709	5858	
==>ire "$pmc.dump";
 
        # there can be many libs
        my %libs = %{ $class->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # T <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5920	6069	
==>ire "$pmc.dump";
 
        # there can be many libs
        my %libs = %{ $class->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # T <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	35808	35915	
==>ras)
will be considered failures.  If no tests were ever run Test::Builder
will throw a warning and exit wit <==
2	/Users/nnunley/parrot/lib/Test/More.pm	33879	33986	
==>ras)
will be considered failures.  If no tests were ever run Test::Builder
will throw a warning and exit wit <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	287	395	
==>ude/parrot> with the function declarations in
the F<*.pmc> or F<*.c> files that correspond to the F<*.o> file <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1098307	1098576	
==>* opcode 0xcc */\n#endif\n    {{+=1}};\n",
                  "experimental" => 1,
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_ <==
2	/Users/nnunley/parrot/lib/File/Which.pm	314	457	
==>Win32') or
                ($^O eq 'dos')     or
                ($^O eq 'os2'));

# For Win32 systems, stores the extensions used for
# executa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258828	259223	
==>TYPE" => "inline",
                  "CODE" => 301,
                  "ARGS" => [
                              "i",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 785 \"src/ops/cmp.ops\"\n    if ({{\@2}} == {{\@3}})\n        {{\@1}} = 1;\n    else\n        {{\@1}} = VTABLE_is_same(interpreter, {{\@2}}, {{\ <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16137	16314	
==>.org>

Jesse Vincent <jesse@bestpractical.com>

Yuval Kogman <nothingmuch@woobling.org>

Darren Duncan <perl@DarrenDuncan.net>

Nathan Gray <kolibrie@graystudios.org>

Max Maisch <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	28610	28730	
==>text, the contents of the original input text (the first
argument) are not modified in any way. 

However, if the input t <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	41620	41776	
==>ey are called (whereas C<extract_tagged> has to effectively rebuild
its tag parser on every call);

=item *

make use of the new qr// construct to pre-compil <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571054	571167	
==>" => "#line 223 \"src/ops/object.ops\"\n    PMC *class = Parrot_class_lookup_p(interpreter, {{\@3}});\n    {{\@1}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572009	572122	
==>" => "#line 223 \"src/ops/object.ops\"\n    PMC *class = Parrot_class_lookup_p(interpreter, {{\@3}});\n    {{\@1}} <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12347	12456	
==>scalar @{$self->{"items"}};
	return 0;
}

sub leftmostsubrule($)
{
	my $self = shift;

	if ( $#{$self->{"items <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	16377	16510	
==>(typed eh)\n";
    my $pre_load = $srm->pre_load(0);
	$pir .= "### pre_load (typed eh)\n";
	$pir .= sub_meta($pre_load, { %$mv, LOADRE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621378	621483	
==>tsrc_pred = NULL;\t/* just for gcc */\n    }\n    lru = &mic->lru;\n    if (lru->u.signature == sig) {\n\t <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	1625	1788	
==>ccflags;
    $c->set('includeDirs' => \@incdirs);
    $/="\n";  # i don't know why, but this is necessary.
    
    my $errors = 0;
    local $SIG{__WARN__} = sub { <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	40631	40779	
==>::RD_NO_HITEM ? ''
			      : '$item{'.$self->{hashname}.'}=') . '$1; $backtrack=1;}'
				: "" ) . '
			' . $rightarg->code(@_[1..2]) . '
			$savetex <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125696	126026	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rot",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	1636	1770	
==>.
    undef $parent_path if $parent_path eq $path;
    
    $self = bless {
        PATH => $path,
        NAME => $name,
        PAREN <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	5158	5327	
==>n empty string
if C<$self->{opt}{nolines}> is true.

=cut

sub line_directive {
    my ($self, $line, $file) = @_;

    return '' if $self->{opt}{nolines};
    if (define <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2601	2704	
==>ck->push_content($self);

  return $self;
}

# block handled by superclass?

sub kind  { return shift->{ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2718	2820	
==>ck->push_content($self);

  return $self;
}

# block handled by superclass?

sub kind { return shift->{ <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1785	2034	
==>rint  "Elapsed time:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 = $N1 / $N2;              # div    N1, N1, N2
$N2 = 100000 <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1785	2034	
==>rint  "Elapsed time:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 = $N1 / $N2;              # div    N1, N1, N2
$N2 = 100000 <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	9600	9693	
==>self->_add_inst("FALSE_$label");
  my $false = $self->_generate(_get_arg($node,3));
  $self->_ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	28709	28805	
==>owever, if the input text was passed in a variable, that variable's
C<pos> value is updated to po <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	269625	270070	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isge",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 314,
                  "ARGS" => [
                              "i", <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	22588	22746	
==>";
	$name =~ s/\./_/g;
	$pir .= "INS_TRANS_$name:\n";

    # Emit trace code.
    $pir .= <<PIR;
if trace != 2 goto NO_TRACE_$name
printerr "    $name STS: "
i <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1094	1198	
==>p>'s C<func_name()> to individuate op function names.

=cut

sub prefix 
{ 
    return 'Parrot_'; 
}

=it <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	30050	30203	
==>s
pretty good at guessing the right package to look at based on $Level.

Sometimes there is some confusion about where todo() should be looking
for the $T <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55440	55640	
==>" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 864 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo(interpret <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22101	22240	
==>_dump_curr_open() . ')'
        );
        DEBUG and print "Ignoring mistargetted =end $content\n";
        next;
      }
      
      unles <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22430	22569	
==>_dump_curr_open() . ')'
        );
        DEBUG and print "Ignoring mistargetted =end $content\n";
        next;
      }
      
      unles <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	12774	12909	
==>th;
        }

        return $prog if $path;
    }

    return;
}

=item C<_slurp($filename)>

Slurps C<$filename> into memory and retu <==
2	/Users/nnunley/parrot/lib/Test/More.pm	17171	17336	
==>ve.  Instead, you want:

  BEGIN { use_ok('Some::Module') }
  BEGIN { ...some code that depends on the use... }


=cut

sub use_ok ($;@) {
    my($module, @imports) = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799473	799762	
==>E" => "inline",
                  "CODE" => 902,
                  "ARGS" => [
                              "p",
                              "kc",
                              "nc"
                            ],
                  "BODY" => "#line 462 \"src/ops/set.ops\"\n    {{\@1}}->v <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	32138	32298	
==>ack;  # object
    my $attr = temp('P');
    my $obj = promote $tos;
    my $o;
    if ($builtins{$obj}) { # postponed LOAD_ like dict
	$o = temp('P');
	my $args <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	11600	11731	
==>t_args($clause,1) ] },
				 $transnode ] };
  }

  $self->_generate($transnode);
}

sub _op_case {
}

sub _op_and {
  my ($self,$nod <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37421	37556	
==>_TRANS_CP_LOOP_CHK_$name
INS_TRANS_CP_LOOP_$name:
type_trans = pop stypes
dec pop_count
INS_TRANS_CP_LOOP_CHK_$name:
if pop_count != 0 g <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3640	3762	
==>ts at C<PC + S>.

=item C<$n>

Transforms to the op function's nth argument. C<$0> is the opcode itself.

=back

Note that, <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	51	206	
==>Id: /parrot/config/gen/core_pmcs.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/gen/core_pmcs.pm - Core PMC List

=head1 DESCRIPTION

Gen <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3103	3200	
==>.pmc -> X.dump and X.c and also create any lib-GROUP.c files

    generate_dump($_) foreach (@pmcs <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3207	3304	
==>.pmc -> X.dump and X.c and also create any lib-GROUP.c files

    generate_dump($_) foreach (@pmcs <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	149	274	
==>::mswin32;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    my ($cc, $ccflags, $libs) = $conf->data->get(qw(cc ccf <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	23186	23335	
==>k;
	return;
    }
    my $func;
    my $nfix =  ($n & 0xff);
    my $nk =  2*($n >> 8);
    my $name = $stack[-1 - $nfix-$nk]->[0];
    print "\t\t $c <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7718	7862	
==>EBUG > 1 and print "Resuming verbatim para at line ${$self}{'line_count'}\n";
          push @{$paras->[-1]}, $line;
        } else {
          + <==
2	/Users/nnunley/parrot/config/auto/pack.pm	1528	1660	
==>ARGH"
Configure.pl:  Unable to find a functional packtype for $_.
               '$format' failed: $@
AARGH
        }
        if ($te <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	263	365	
==>ke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statement::Call;

use Carp;

use ba <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	3417	3518	
==>= Parrot::OpsFile->new( [ $file ], $nolines_flag );
    die "$0: Could not read ops file '$file'!\n" u <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	2980	3077	
==>= Parrot::OpsFile->new( [ $file ], $nolines_flag );
die "$0: Could not read ops file '$file'!\n" u <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4302	4417	
==>nfig.pm
    
    return 1 if $self->suffix =~ /^(?:dump|html|flag|o)$/o
        or $self->name =~ /^(?:perl6-config| <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1065	1173	
==>t("  inc $ident");

  if (($self->ident->kind eq 'var') and ($self->ident->scope eq 'global')) {
    my $pmc_ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	10583	10763	
==>b disable_implicit_checks {
    my ($self, $t, $ctx) = @_;
    return $self->maptree($t, sub { shift->{nocheck} = 1 });
}

sub maptree {
    my ($self, $t, $sub) = @_;
    $sub->($t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934608	934844	
==>inline",
                  "CODE" => 1050,
                  "ARGS" => [
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 435 \"src/ops/string.ops\"\n <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	6903	7068	
==>, because it's not a token object!"
     unless UNIVERSAL::can($t, 'type');
  }
  
  unshift @{$self->{'token_buffer'}}, @_;
  DEBUG > 1 and print "Token buffer now h <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16610	16740	
==>o
	a=a+1
loop until a>4
print a

' Branch test, all OK in sequence
PRINT "1 in module-level code"
GOSUB Sub1
PRINT "ERR this line i <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	56270	56462	
==>imary', 1, undef
	],
	[#Rule 84
		 'primary', 3,
sub
#line 444 "Lua\lua51.yp"
{
            BuildParenthesedExpression( $_[0], $_[2] );
        }
	],
	[#Rule 85
		 'functioncall', 4, <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	68750	68991	
==>duce a
			       single positive or negative lookahead
			       specification. In this case the sequence
			       \"$lookaheadspec\" was reduced to $lookahead.
			       Was this your intention?");
		}
		$lookahead = 0;
		$lookaheadspec = " <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	442	544	
==>y ($block, $left, $right) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($b <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	433	535	
==>y ($block, $left, $right) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($b <==
2	/Users/nnunley/parrot/config/auto/bc.pm	1293	1409	
==>0;
    }

    $conf->data->set(has_gnu_bc => $has_gnu_bc);
    $self->set_result($has_gnu_bc ? 'yes' : 'no');

    re <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	18049	18172	
==>p()
			? 'local $skip = defined($skip) ? $skip : $Parse::RecDescent::skip;'
			: '') .($::RD_NO_TRACE?'':'
		Parse::RecDesce <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	1996	2110	
==>rnings
  'source_dead',       # Whether to consider this parser's source dead

  'output_fh',         # The filehan <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9695	9818	
==>process_text_token
{
    my $self = shift;
    my $token = shift;
    my $text = $token->text;
    
    esc($text);
    $tex <==
2	/Users/nnunley/parrot/lib/Test/More.pm	16284	16622	
==>fails.  For such purposes we have
C<use_ok> and C<require_ok>.

=over 4

=item B<use_ok>

   BEGIN { use_ok($module); }
   BEGIN { use_ok($module, @imports); }

These simply use the given $module and test to make sure the load
happened ok.  It's recommended that you run use_ok() inside a BEGIN
block so its functions are exported at compi <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	7286	7413	
==>!\n";
		$item->[2]="OP";
		if (! @stack) {
			push @stack, $item;
			next;
		}
		while(@stack and precedence($stack[-1]->[0]) >= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938598	938865	
==>in(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939488	939755	
==>in(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	36126	36262	
==>nt; ++$j) {
        next if ref $ell_content[$j];
        DEBUG > 3 and
         print "    Peering at L-content text bit \"$ell_content[ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	37335	37471	
==>nt; ++$j) {
        next if ref $ell_content[$j];
        DEBUG > 3 and
         print "    Peering at L-content text bit \"$ell_content[ <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	3	95	
==>perl -w
# Copyright (C) 2001-2006, The Perl Foundation.
# $Id: /parrot/tools/dev/check_source <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	57	184	
==>ION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

$VERSION   = '0.01';
@ISA       = qw(Exporter);
@EXPORT_OK = qw(tokenize);

use Data <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	54	161	
==>ION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

$VERSION   = '0.01';
@ISA       = qw(Exporter);
@EXPORT_OK = qw( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550123	550217	
==>n  interpreter->current_cont = NEED_CONTINUATION;\n  interpreter->current_method = meth;\n  met <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551424	551518	
==>n  interpreter->current_cont = NEED_CONTINUATION;\n  interpreter->current_method = meth;\n  met <==
2	/Users/nnunley/parrot/config/gen/cpu/x86_64/auto.pm	120	322	
==>ut

package gen::cpu::x86_64::auto;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    my $ccflags = $conf->data->get('ccflags');
    $conf->data->add(' ', ccflags => "-fPIC") unless $ccflags = <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9820	9931	
==>tself -- just so that when we
    #  see "=extend W [whatever] thatelementname", we say that W maps
    #  to wh <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	612	719	
==>$left;
  confess "Op is not defined!" unless defined $op;
  confess "Right is not defined!" unless defined $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	624	731	
==>$left;
  confess "Op is not defined!" unless defined $op;
  confess "Right is not defined!" unless defined $ <==
2	/Users/nnunley/parrot/config/auto/jit.pm	4828	5159	
==>ld(); };
            if ($@) {
                print " $@) " if $verbose;
            } else {
                if (cc_run(0) !~ /ok/ && cc_run(1) =~ /ok/) {
                    $conf->data->set(has_exec_protect => 1);
                    print "yes) " if $verbose;
                } else {
                    print "no) " if $verbo <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	1459	1647	
==>=~ /\.[ch]$/);
    my %bad_fdecls;
    
    print STDERR "Scanning $file.. ";
    my $c = new C::Scan 'filename' => $file,
                        'add_cppflags' => $ccflags;
    $c->set('i <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21650	21804	
==>p=1
LOOPY:
	if bump < -1 then goto LAST
	if bump < 1 then
		if bump = 0 then
			print "Second"
		else 
			print "Third"
		end if
	end if
	print "First, and <==
2	/Users/nnunley/parrot/config/auto/gdbm.pm	1156	1300	
==>nkflags => '-L/sw/lib');
            $conf->data->add(' ', dflags    => '-L/sw/lib');
            $conf->data->add(' ', cflags    => '-I/sw/inclu <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	789	909	
==>ndups = 0;

# This file will eventually be compiled
open NCI, ">", "src/nci.c" or die "Can't open nci.c!";

print_head(\@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	980	1065	
==>}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub ha <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	764	849	
==>}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub ha <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	758	862	
==>hat it assumes a gnu-ish C<nm>.

=item C<source>

In C<source> mode, it uses a the C<cxref> program
(L<ht <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17279	17416	
==>ong one"
end function
call mysub 78, 80
t$=foo$
print t$
t=0
do
	print "This is right"
	exit do
	print "This is wrong"
	t=t+1
loop until t <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	744	874	
==>s the same name as its C compiler
        $link = 'icc';

        # don't allow icc to pretend it's gcc
        $cflags .= ' -no-gc <==
2	/Users/nnunley/parrot/lib/Test/More.pm	20408	20499	
==>st::More will output special ok's
which Test::Harness interprets as skipped, but passing, te <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22350	22462	
==>>text . $title if $t->type eq 'text';
      }
      undef $title if $title =~ m<^\s*$>; # make sure it's contentf <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22834	22946	
==>>text . $title if $t->type eq 'text';
      }
      undef $title if $title =~ m<^\s*$>; # make sure it's contentf <==
2	/Users/nnunley/parrot/lib/File/Which.pm	6183	6278	
==>or not. Could someone please tell
me?

=head1 Author

Per Einar Ellefsen, E<lt>per.einar (at) sk <==
2	/Users/nnunley/parrot/config/auto/perldoc.pm	194	287	
==>head1 DESCRIPTION

Determines whether perldoc exists on the system.

=cut

package auto::perld <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5785	5928	
==>,map { $$_[0] } @$stack).
#DBG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defined($$token)
            or	do {
				( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5510	5645	
==>,map { $$_[0] } @$stack).
#DBG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defined($$token)
            or	do {
				( <==
2	/Users/nnunley/parrot/config/auto/jit.pm	979	1105	
==>name);

    if (!defined $osname) {
        ($osname, $cpuarch) = ($cpuarch, q{});
    }

    # This was added to convert 9000/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4843	4954	
==>>expr_address(@_));
}

=item C<goto_offset($offset)>

Transforms the C<goto OFFSET($offset)> macro in an ops fil <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	4269	4383	
==>$1;
		++$lambda_count;
		my @args = split(/,/, $args);
		my $n = @args;
		$arg_count{$f} = $n;
		for (my $i = 0; $i <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38315	38490	
==>race(q{>>Matched repeated subrule: ['
					. $self->{subrule} . ']<< (}
					. @$_tok . q{ times)},
					  
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{" <==
2	/Users/nnunley/parrot/config/auto/bc.pm	1104	1220	
==>my $answer = capture_output('bc', '-v') || '';
        $has_gnu_bc =
            ($answer =~ m/^bc / && $answer =~ m/ <==
2	/Users/nnunley/parrot/config/inter/ops.pm	4	147	
==>pyright (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/config/inter/ops.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/in <==
2	/Users/nnunley/parrot/config/init/hints/cygwin.pm	1232	1449	
==>ort => '__declspec(dllexport)',
        sym_import => '__declspec(dllimport)'
    );

    # inet_aton needs to be defined on Cygwin.
    my $define = $conf->options->get('define');
    unless ($define) {
        $defin <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	6788	6913	
==>$suffix;
    
    my $recursive = shift;
    my $ignore = shift;
    my @files = ();
    
    foreach my $file ($self->files($ <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	12951	13117	
==>n";
        }

        elsif ($op->jump =~ /JUMP_RESTART/ ) {
            $jit_func = $restart_op;
        }
        elsif ($op->jump) {
            $jit_func = $cpcf_ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	843	942	
==>that patterns should be specified as strings
and without leading/trailing pattern delimiters.

(Hint <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2941	3040	
==>that patterns should be specified as strings
and without leading/trailing pattern delimiters.

(Hint <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	6849	6940	
==>} } if wantarray;
  return;
}

#------------------------------------------------------------ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	8388	8479	
==>} } if wantarray;
  return;
}

#------------------------------------------------------------ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13016	13102	
==>c;\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STAC <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13860	13946	
==>c;\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  STAC <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	5548	5664	
==>defStyleNum="dsDecVal" />
      <itemData name="TempRegister" defStyleNum="dsDecVal" />
      <itemData name="String" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94867	95004	
==>s"
                            ],
                  "BODY" => "#line 63 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_and(interpreter, { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95760	95897	
==>s"
                            ],
                  "BODY" => "#line 63 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_and(interpreter, { <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	500	699	
==>f->{BLOCK_COUNT});
}


#
# temp_reg()
#

sub temp_reg
{
  my $self = shift;
  my ($type) = @_;

  $type = shift->code if ref $type;

  return '$' . $type . $self->{REG_COUNT}{$type}++;
}

sub temp_int <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	9251	9537	
==>_section(
   'DESCRIPTION',
    max_token => 400,
    max_content_length => 3_000,
   @_,
) }

sub get_authors     { shift->get_author(@_) }  # a harmless alias

sub get_author      {
  my $this = shift;
  # Max_token is so high because these are
  #  typically at the end of the documen <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	27785	27937	
==>2 and print
       "Extensor maps $new_letter => fallbacks @fallbacks.\n";
    }

  } else {
    DEBUG > 2 and print "Extensor has bad syntax.\n";
    $s <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	1862	1991	
==>GP --core
EOF
            TEMP_cg_o => '$(OPS_DIR)/core_ops_cg$(O) $(OPS_DIR)/core_ops_cgp$(O)',
            TEMP_cg_r => '$(RM_F) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553879	553982	
==>eth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+4}};\n  interpreter->current_object = objec <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555276	555379	
==>eth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+4}};\n  interpreter->current_object = objec <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33536	33658	
==>the cases where we /didn't/ push to @$para
            if($paras->[0][0] eq '~Para') {
              DEBUG and print "Assim <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35349	35471	
==>the cases where we /didn't/ push to @$para
            if($paras->[0][0] eq '~Para') {
              DEBUG and print "Assim <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	21	113	
==>2006, The Perl Foundation.
# $Id: /parrot/languages/lua/t/Parrot/Test/Lua.pm 19606 2006-05-3 <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	1675	1772	
==>ata;
    return interpreter->code->prederef.code + offset_in_ops;
}
#else
#  define prederef_to_op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52038	52201	
==>ss( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "trace",
                  "FLAGS" => "",
                  " <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	522	652	
==>Driver
#
# This module is part of the Parse::Yapp package available on your
# nearest CPAN
#
# Any use of this module in a sta <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	508	633	
==>Driver
#
# This module is part of the Parse::Yapp package available on your
# nearest CPAN
#
# Any use of this module in a sta <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730529	730764	
==>DE" => 819,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 124 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	38939	39069	
==>h @opcodes2, new EndDir( $parser );
    foreach my $op (@opcodes2) {
        if ( $op and $op->isa('BranchOp') ) {
            i <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	56492	56612	
==>o fields which are quote delimited,
curly bracketed, and anything else. The delimited and bracketed
parts are also blesse <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	694	792	
==>under the same copyright as the Parse::Yapp module itself.
#
# This notice should remain unchange <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	674	770	
==>under the same copyright as the Parse::Yapp module itself.
#
# This notice should remain unchange <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	1927	2022	
==>- CONTEXT(i->ctx)->pred_offset) : NULL)
#endif

#define OP_AS_OFFS(o) (_reg_base + ((opcode_t*)c <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1200	1347	
==>ew(@_);
}

=item C<file_with_path($path)>

Returns the file with the specified path. 

The file is an instance of the class returned by C<file_class <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825965	826289	
==>k",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 935,
                  "ARGS" => [
                              "n" <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	181	291	
==>use vars qw { $VERSION @ISA %EXPORT_TAGS };

$VERSION = '1.89';
@ISA		= qw ( Exporter );
		     
%EXPORT_TAGS	= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021637	1021747	
==>s.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_gmtime_r(&t, &tm);\n  {{\@1}} = tm_to_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022479	1022589	
==>s.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_gmtime_r(&t, &tm);\n  {{\@1}} = tm_to_ <==
2	/Users/nnunley/parrot/config/auto/memalign.pm	1779	1882	
==>onf->data->set(memalign => $f);
    print($test ? " (Yep:$f) " : " (no) ") if $verbose;
    $self->set_r <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	1733	2004	
==>(length($label) >= 8) {
                    push @r, $label;
                    $label = '';
                }
                if (ref($line)) {
                    push @r, "$label";
                    push @r, $line;
                } else {
                    push @ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5983	6090	
==>s to
	# have an empty stack type state propogated to it if nothing has been
	# propogated there already.
	$p <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3921	4028	
==>s to
	# have an empty stack type state propogated to it if nothing has been
	# propogated there already.
	$p <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8829	8949	
==>i = 0 to 100
	b=rnd*max+1
	a(b)=a(b)+1
next i
for i = 1 to max
	print ,
	for j = 0 to a(i)
		print "*";
	next j
	print 
n <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20070	20190	
==>i = 0 to 100
	b=rnd*max+1
	a(b)=a(b)+1
next i
for i = 1 to max
	print ,
	for j = 0 to a(i)
		print "*";
	next j
	print 
n <==
2	/Users/nnunley/parrot/config/inter/make.pm	1911	2081	
==>$self->set_result('no');
        return $self;
    }

    # if '--version' returns a string assume that this is gmake.
    if ($stdout =~ /GNU \s+ Make \s+ (\d+) \. (\d+)/ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	73357	73446	
==>]->{offsetlinenum} = $_[0]->{lastlinenum};
	$_[0]->{fulltext} = $text;
	$_[0]->{fulltextle <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	360	520	
==>lse;

use Carp;

use base qw(Jako::Construct::Block::Conditional);

#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected parent block and peer block! <==
2	/Users/nnunley/parrot/lib/Test/More.pm	2966	3105	
==>going to run to protect against premature
failure.

The preferred way to do this is to declare a plan when you C<use Test::More>.

  use Tes <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	47436	47592	
==>urce
  
  my $class = shift(@_);

  my $mutor = shift(@_) if @_ and ref($_[0] || '') eq 'CODE';

  DEBUG and print "\n\n", '#' x 76,
   "\nAbout to parse sou <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	8454	8598	
==>d;
        chdir $chdir;
    }

    # Execute all commands
    system( $_ ) for (@{$command});

    if( $chdir ) {
        chdir $orig_dir;
    } <==
2	/Users/nnunley/parrot/Configure.pl	3086	3323	
==>ult is C<gc>.

=back

ICU Options

=over

=item C<--icu-config=/path/to/icu-config>

Use the specified icu-config script to determine the necessary ICU options.

Use --icu-config=none to disable the autodetect feature. Parrot will then be <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	1098	1205	
==>turn $self->$method(@{ $op->{args} });
}

sub lookup_var {
    my ($self, $var, $ctx) = @_;
    return $ctx- <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	653	782	
==>my @out;
  foreach my $in (@_) {
    push @out, '"' . $in . '"';
    $out[-1] =~ s/([^- \:\:\.\,\'\>\<\"\/\=\?\+\|\[\]\{\}\_a-zA-Z <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	29764	30033	
==>tched without any trailing modifiers (C</gimsox> etc.)
This can bite you if you're expecting a prefix specification like
'.*?(?=<H1>)' to skip everything up to the first <H1> tag. Such a prefix
pattern will only succeed if the <H1> tag is on the current line, since
. no <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244004	244261	
==>{\@1}} = string_compare(interpreter, l, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244936	245193	
==>{\@1}} = string_compare(interpreter, l, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857162	857459	
==>FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 973,
                  "ARGS" <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	57829	57974	
==>_[0], $_[1], 'string' ),
            ];
        }
	],
	[#Rule 95
		 '@11-1', 0,
sub
#line 503 "Lua\lua51.yp"
{
            PushScopeF( $_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	961	1078	
==>elf;
}

sub left  { return shift->{LEFT};  }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  m <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	969	1086	
==>elf;
}

sub left  { return shift->{LEFT};  }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146367	146479	
==>_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_EQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167593	167705	
==>_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_EQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	734	831	
==>_f);
    $out_f  = File::Spec->rel2abs($out_f);
    Parrot::Test::write_code_to_file( $code, $lang <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	771	868	
==>_f);
    $out_f  = File::Spec->rel2abs($out_f);
    Parrot::Test::write_code_to_file( $code, $lang <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4373	4501	
==>($?)\n";
    }

    # Link non-grouped PMCs individually
    my @ungrouped_pmcs = grep { ! exists $pmc_group->{$_} } @pmcs;
    p <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4477	4605	
==>($?)\n";
    }

    # Link non-grouped PMCs individually
    my @ungrouped_pmcs = grep { ! exists $pmc_group->{$_} } @pmcs;
    p <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15117	15222	
==>f(wantarray) {  # return an array
    return map {; ($x = $_) =~
      s/([F\x00-\x1F\-\\\{\}\x7F-\xFF])/$ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	1226	1340	
==>nvert_rx_atom {
    my ($self, $tree, $ctx) = @_;
    my $atom = $tree->atom;

    my $R;
    if (UNIVERSAL::can($a <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	104	214	
==>$ATTR_PAD @ISA $VERSION $SORT_ATTRS);
$VERSION = '2.02';
BEGIN {
  @ISA = ('Pod::Simple');
  *DEBUG = \&Pod::Si <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	105	215	
==>$ATTR_PAD @ISA $VERSION $SORT_ATTRS);
$VERSION = '2.02';
BEGIN {
  @ISA = ('Pod::Simple');
  *DEBUG = \&Pod::Si <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490795	491058	
==>{\@1}}++;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inc",
                  "FL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	491416	491679	
==>{\@1}}++;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inc",
                  "FL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6069	6213	
==>s/core.ops\"\n    Parrot_load_bytecode(interpreter, {{\@1}});\n    {{+=2}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6735	6879	
==>s/core.ops\"\n    Parrot_load_bytecode(interpreter, {{\@1}});\n    {{+=2}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	982	1127	
==>and $parser->YYData->{verbose_warning} );
}

sub Info {
    my $parser = shift;
    my ($msg) = @_;

    $msg ||= ".\n";

    if ( exists <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	26889	27008	
==>sif($content =~ m/^\s*((?:\d*\.)?\d+)\s*$/s) {
        no integer;
        $para->[1]{'indent'} = $1;
        if($1 == 0 <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	625	723	
==>The install prefix. Defaults to '/usr'.

=item C<exec_prefix>

The exec prefix. Defaults to '/usr'. <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	854	952	
==>The install prefix. Defaults to '/usr'.

=item C<exec_prefix>

The exec prefix. Defaults to '/usr'. <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	2122	2352	
==>if $chr =~ /^[[:alnum:]_]$/; # CCLASS_WORD

    return $ret;
}


=item B<create_table>( $name )

Create a whole character table

=back

=cut

sub create_table {
    my ($name) = @_;
    my $len = 8;

    print "const PARROT_CCLASS_ <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	1871	1968	
==>arrot.h"
#include "parrot/string.h"
END_C

    print $trans->defines;
    print $ops->preamble($tr <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	472	652	
==>ions) = @_;

    $options{state} ||= global_state();

    my $parser = Regex::Parse->new(%options);
    return $parser->compile($expr, $ctx);
}

sub tree_to_list {
    my ($tree, $c <==
2	/Users/nnunley/parrot/config/auto/va_ptr.pm	490	608	
==>segfault)';

@args = qw();

sub runstep
{
    my ($self, $conf) = @_;

    my $va_type;
    cc_gen('config/auto/va_ptr/ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54069	54192	
==>}',
					      $lookahead,$line,$code);
				$prod and $prod->additem($item)
				      or  _no_rule($code,$line);
			}
			els <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	29481	29627	
==>[$i\] $cmt
EOC
	push @stack, [-1, $p, 'P'];
    }
}

sub DUP_TOP
{
    my ($n, $c, $cmt) = @_;
    my $tos = $stack[-1];
    print <<EOC;
	$cmt
EOC <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1729	1838	
==>ckParams( [], \%params, \@_, $self );

		exists($$self{VERSION})
	and	$$self{VERSION} < $COMPATIBLE
	and	c <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1668	1773	
==>ckParams( [], \%params, \@_, $self );

		exists($$self{VERSION})
	and	$$self{VERSION} < $COMPATIBLE
	and	c <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	467	570	
==>trict;
use warnings;

use base qw( Parrot::OpTrans::CPrederef Parrot::OpTrans::CGoto );

=item C<core_ty <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	731	828	
==>ang_f);
    $out_f  = File::Spec->rel2abs($out_f);
    Parrot::Test::write_code_to_file( $code, $l <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	768	865	
==>ang_f);
    $out_f  = File::Spec->rel2abs($out_f);
    Parrot::Test::write_code_to_file( $code, $l <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	7385	7520	
==>_name)
      or die "Unable to unpack file $file_name: $!";

#    dump_const_table($pf);
    compile_byte_code($pf, $file_name);

    un <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	23788	23922	
==>output($file);

Where diagnostic output on test failures and diag() should go.

Defaults to STDERR.

=item B<todo_output>

    $Test->t <==
2	/Users/nnunley/parrot/languages/regex/regex.pl	834	997	
==>me=(.*)/) {
        $subname = $1;
    } elsif ($_ eq '-o') {
        $output = shift;
    } elsif (! defined $expr) {
        $expr = $_;
    } elsif (! defined $o <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	7476	7645	
==>d+)		# 15	skipped
                -(\d+)		# 16	unexpected
               --([a-f0-9]+)	# 17    harness_args
               --([a-f0-9]+)	# 18	id
   .html$/x
    and retur <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	31257	31353	
==>rint "Runtime branch of "
	print JUMPLABEL
	print " not found\\n"
	_platform_shutdown()
	end
RTBE <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	18411	18516	
==>stack.)

sub rewrite_greedy_range {
    my ($self, $op, $R, $min, $max, $lastback) = @_;

    my ($loop, $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	53152	53263	
==>"\f" => '\f', # FF
  "\t" => '\t', # tab
  "\cm" => '\cm',
  "\cj" => '\cj',
  "\n" => '\n', # probably override <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	2905	3094	
==>UT <<'EOF';
/*

=back

=head1 SEE ALSO

See F<include/parrot/extend.h> and F<docs/pdds/pdd11_extending.pod>.

=head1 HISTORY

Initial version by Dan Sugalski.

=cut

*/

/*
 * Local variable <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10064	10186	
==>s->get('verbose');

    if (defined($_[0]) && length($_[0])) {
        local $" = ' ';
        _run_command(".${slash}test$ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10645	10767	
==>s->get('verbose');

    if (defined($_[0]) && length($_[0])) {
        local $" = ' ';
        _run_command(".${slash}test$ <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	5514	5660	
==>ists $API{$_} } sort keys %ParrotAPI;
my @NoParrotPrefix;
my @UnParrotAPI;

my $ParrotPrefix = qr/^(Parrot|PDB|PF|PIO|PackFile)_/;

for my $api (@A <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	385	494	
==>ft;
    my ( $path_to_parrot, $path_to_language, $count ) = @_;
 
    
    my $test_prog_args = $ENV{TEST_PROG <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	403	506	
==>ft;
    my ( $path_to_parrot, $path_to_language, $count ) = @_;

    my $test_prog_args = $ENV{TEST_PROG <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	1617	1715	
==>.imc;*.pasm" mimetype="">

  <highlighting>

    <list name="special_directives">
END

my %ops;
for <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6937	7045	
==>onger string"
found$="longer"
bogus$="not"
print "Found  (5): ", instr(s1$, found$)
print "Bogus  (0): ", ins <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18666	18774	
==>onger string"
found$="longer"
bogus$="not"
print "Found  (5): ", instr(s1$, found$)
print "Bogus  (0): ", ins <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6501	6626	
==>e exchanged,
   ' force another pass by setting Exchange to TRUE.
   FOR I = 2 TO Max
      IF A$(I-1) > A$(I) THEN
         E <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16154	16279	
==>e exchanged,
   ' force another pass by setting Exchange to TRUE.
   FOR I = 2 TO Max
      IF A$(I-1) > A$(I) THEN
         E <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	330279	330813	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_r8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 388,
                  "ARGS" => [
                              "n",
                              "p"
                            ],
                  "BODY" => "#line 174 \"src/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	329614	330030	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_r8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 387,
                  "ARGS" => [
                              "n"
                            ], <==
2	/Users/nnunley/parrot/lib/Test/More.pm	8277	8472	
==>t.

You are encouraged to use is() and isnt() over ok() where possible,
however do not be tempted to use them to find out if something is
true or false!

  # XXX BAD!
  is( exists $brooklyn{tree}, <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35328	35456	
==>heats, assuming that all return types can be cast from zero.
        $ret = "return ($method->{type})0;";
    }
    # I think tha <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	46529	46781	
==>f;
	my $item = undef;
	my $lastgreedy = '';
	pos $grammar = 0;
	study $grammar;

	while (pos $grammar < length $grammar)
	{
		$line = $lines - _linecount($grammar) + 1;
		my $commitonly;
		my $code = "";
		my @components = ();
		if ($grammar =~ m/$COMME <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	46642	46782	
==>signs( $_[0], $_[1], $_[3] );
        }
	],
	[#Rule 10
		 'stat', 1,
sub
#line 92 "Lua\lua51.yp"
{
            BuildVoidFunctionCall( <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	2867	2983	
==>fied_since
{
    my $self = shift;
    my $time = shift;
    
    return $self->stat->mtime > $time;
}

=item C<svn_i <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	8044	8257	
==>r"    or die "Can't redirect stderr to $err" if $err;

    # If $command isn't already an arrayref (because of a multi-command
    # test), make it so now so the code below can treat everybody the
    # same.
    $ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8358	8479	
==>RIC}_CONT:
dec stack_depth
PIR
	}

	return $pir;
}

sub post_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	2655	2800	
==>ection('URM', 'urm.html', '', 'languages/urm'),
        $self->new_section('Zcode', 'zcode.html', '', 'languages/Zcode'),
    );
}

=back

=cut

1 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3723	3933	
==>Checker -e \
   "exit Pod::Simple::Checker->filter(shift)->any_errata_seen" \
   thingy.pod

=head1 DESCRIPTION

This class is for checking the syntactic validity of Pod.
It works by basically acting like a simp <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	19568	19705	
==>ber template builder
    #   12mar95
    #   Dean Roehrich
    #
    # changes/bugs fixed since 28nov94 version:
    #  - podified
    # c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509908	510251	
==>" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 587,
                  "ARGS" => [
                              "p"
                            ],
                  " <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	46	139	
==>.
# $Id: /parrot/config/gen/parrot_include.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	309958	310101	
==>RGS" => [],
                  "BODY" => "#line 91 \"src/ops/debug.ops\"\n    const char *command;\n\n    if (!(interpreter->pdb->state & PDB_BRE <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	10004	10139	
==>CLOSING TAG
		$parapos,     length($$textref)-$parapos,	# REMAINDER
	       );
	
matched:
	$endpos = pos($$textref);
	return (
		$startp <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2741	2839	
==>ler->end_element({ Name => 'block' });
  }

  $handler->start_element({ Name => 'block', Attributes <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2618	2716	
==>ler->end_element({ Name => 'block' });
  }

  $handler->start_element({ Name => 'block', Attributes <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	767	870	
==>return <<END;
#undef CONST
#define REL_PC     ((size_t)(cur_opcode - interpreter->code->base.data))
#def <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	883	986	
==>return <<END;
#undef CONST
#define REL_PC     ((size_t)(cur_opcode - interpreter->code->base.data))
#def <==
2	/Users/nnunley/parrot/config/auto/alignptrs.pm	1184	1377	
==>auto/alignptrs/test_c.in');
        cc_build();
        for my $try_align (64, 32, 16, 8, 4, 2, 1) {
            my $results = cc_run_capture($try_align);
            if ($results =~ /OK/ && $re <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3146	3314	
==>), above, for a description of why this
works.)

=cut

sub expr_offset
{
    my ($self, $offset) = @_;
    return "CUR_OPCODE + $offset";
}

sub goto_offset
{
    my ($s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59139	59375	
==>> "inline",
                  "CODE" => 76,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 901 \"src/ops/core.ops\"\n  PARROT_WARNINGS_on(interpreter, {{\ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3270	3427	
==>0, $vars, INPUT_$inputcounts  # Re-prompt\n";
	}

	$loop=0;
	barf();		# We're too far in already...
	while($type[CURR] !~ /COMP|COMM|STMT/) {
		die if $loop++ <==
2	/Users/nnunley/parrot/config/inter/charset.pm	668	774	
==>);

    my $charset_list = $conf->options->get('charset')
        || join(' ', grep { defined $_ } @charset <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	13173	13352	
==>y    = $key2;
                    push @opcodes, @{ $key->[1] };
                }
                my $assign = new KeyedSetOp( $parser,
                    'arg1'   => $key->[ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042907	1042998	
==>/var.ops\"\n    VTABLE_set_pmc_keyed_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043804	1043895	
==>/var.ops\"\n    VTABLE_set_pmc_keyed_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4 <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	47160	47633	
==>ine);
			$lookahead = $lookahead ? $lookahead : 1;
			$lookaheadspec .= $1;
			next;	# SKIP LOOKAHEAD RESET AT END OF while LOOP
		}
		elsif ($grammar =~ m/(?=$ACTION)/gco
			and do { ($code) = extract_codeblock($grammar); $code })
		{
			_parse("an action", $aftererror, $line, $code);
			$item = new Parse::RecDescent::Action($code,$lookahead,$line);
			$prod and $prod->additem($item)
			      or  $self->_addstartcode($code);
		}
		elsif ($grammar =~ m/(?=$IMPLICITSUBRU <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	1315	1676	
==>sserit Litany Against Fear
	# Compiler version @{[VERSION]}@{[ grep $_=sprintf("\n\t#%22s %s\t", 
	     $_, scalar localtime((stat("$_"))[9])),
	     sort { -M $a <=> -M $b } glob("COMP_*")]}
	#
INIT
}
sub runtime_shutdown {
	push @{$code{$seg}->{code}}, <<SHUTDOWN;
	#
	# ###################
	# Program Termination
	# ###################

SHUTDOWN
}

use vars q <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561999	562286	
==>not found\", {{\@3}});\n  }\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563083	563370	
==>not found\", {{\@3}});\n  }\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6017	6143	
==>= $group;
        push @{ $group_files{$group} }, $pmc;
        $group_libs{$group} ||= {};
        foreach my $lib ( keys %lib <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6228	6354	
==>= $group;
        push @{ $group_files{$group} }, $pmc;
        $group_libs{$group} ||= {};
        foreach my $lib ( keys %lib <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44208	44400	
==>},
	{#State 198
		DEFAULT => -102
	},
	{#State 199
		DEFAULT => -99
	},
	{#State 200
		DEFAULT => -98
	},
	{#State 201
		ACTIONS => {
			'END' => 208
		}
	},
	{#State 202
		ACTI <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	4516	4671	
==>t keys %ParrotAPI;

die "$0: No API found in @H\n" unless @ParrotAPI;

printf "=== @H: %d interfaces ===\n", scalar @ParrotAPI;

my %Code;
my %DataB;
my %Da <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6923	7014	
==>str
s1$="The longer string"
found$="longer"
bogus$="not"
print "Found  (5): ", instr(s1$, fo <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18652	18743	
==>str
s1$="The longer string"
found$="longer"
bogus$="not"
print "Found  (5): ", instr(s1$, fo <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	30293	30506	
==>y $key = $x->[1];
    if ($v->[0] eq 'hash') {
	if ($key =~ /^\d+$/) {
	    $key = qq!"$key"!;
	}
	elsif ($v->[2] eq 'I') {
	    # ok ?
	}
    }
    print <<EOC
	$v->[1]\[$key\] = $w->[1] $cmt
EOC
}

sub BINARY_SUB <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1114	1218	
==>s

=head3 Constructors

=over 4

=item * C<new()>

Basic constructor.

Accepts no arguments and returns a <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	651	755	
==>s

=head3 Constructors

=over 4

=item * C<new()>

Basic constructor.

Accepts no arguments and returns a <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	574	670	
==>he build prefix. Defaults to ''.

=item C<prefix>

The install prefix. Defaults to '/usr'.

=item <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	803	899	
==>he build prefix. Defaults to ''.

=item C<prefix>

The install prefix. Defaults to '/usr'.

=item <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	12334	12479	
==>gling encoding directive: =encoding $content\n";
  
  if($content eq 'ALREADYDONE') {
    # It's already been handled.  Check for errors.
    if(! <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734193	734467	
==>,
                  "TYPE" => "inline",
                  "CODE" => 824,
                  "ARGS" => [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 134 \"src/ops/set.ops\"\n  {{\@1}} = <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4019	4236	
==>mi);
EOC
    }
    $cout .= <<"EOC";

    /* do class_init code */
    for (pass = 0; pass <= 1; ++pass) {
EOC
    while (my ($class, $info) = each %classes) {
	next if $info->{flags}->{noinit};
        $cout .= <<"EOC <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459552	459838	
==>",
                  "CODE" => 527,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 282 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12794	12901	
==>" . join(",",@args) . ")\n";
}


sub parse_exit {
	if ($syms[NEXT] eq "for") {
		feedme();
	  	$foo=$fors[$s <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15582	15725	
==>( $parser,
        'result' => $result,
    );
    push @opcodes, new AssignOp( $parser,
        'result' => $result,
        'arg1'   => $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19335	19478	
==>( $parser,
        'result' => $result,
    );
    push @opcodes, new AssignOp( $parser,
        'result' => $result,
        'arg1'   => $ <==
2	/Users/nnunley/parrot/config/auto/signal.pm	1082	1246	
==>lean();

    cc_gen('config/auto/signal/test_2.in');
    eval { cc_build(); };
    unless ($@ || cc_run() !~ /ok/) {
        $conf->data->set(has_sigaction => 'defin <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2287	2456	
==>eft $op $right goto _LABEL_$name");
  }

  return;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  my $block = $self->block;
  my $name  = $self-> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	2555	2651	
==>bol(NAME, VALUE)

Set a symbol in this block's symbol table. If the symbol already exists,
we thr <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	10783	10930	
==>sub parse_read {
	while($type[CURR] !~ /COMP|COMM|STMT/) {
		push @{$code{$seg}->{code}}, <<EOASS;
	\$S99 = _READ()
	\$N99= \$S99
EOASS
	($result, $ <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	2946	3123	
==>$PATHQUOTE";
}

our $NOW = time();

################### MAIN PROGRAM ################

my ($mode, @pmcs) = @ARGV;

if ($mode eq 'generate') {
    # Convert X.pmc -> X.dump and X. <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3050	3227	
==>$PATHQUOTE";
}

our $NOW = time();

################### MAIN PROGRAM ################

my ($mode, @pmcs) = @ARGV;

if ($mode eq 'generate') {
    # Convert X.pmc -> X.dump and X. <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	898	1144	
==>e, $ctx);
    }

    my $rewrite = Regex::Rewrite->new(%options);
    my $code = $rewrite->run($tree, $ctx,
                             $pass_label, $fail_label);
    return $code if $options{'no-list-optimize'};

    $ctx->{external_labels}{$pas <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576578	576843	
==>class(interpreter, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577590	577855	
==>class(interpreter, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	35801	35901	
==>(or extras)
will be considered failures.  If no tests were ever run Test::Builder
will throw a warnin <==
2	/Users/nnunley/parrot/lib/Test/More.pm	33872	33972	
==>(or extras)
will be considered failures.  If no tests were ever run Test::Builder
will throw a warnin <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	6743	6893	
==>ffix = shift;
    
    return unless defined $suffix;
    
    my $recursive = shift;
    my $ignore = shift;
    my @files = ();
    
    foreach my $ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1979	2211	
==>,
        Parrot::Docs::Section::Config->new,
        Parrot::Docs::Section::Tests->new,
        Parrot::Docs::Section::EditorPlugins->new,
    );
}

=back

=head2 Instance Methods

=over 4

=item C<write_docs($silent, $delete)>

Wri <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	2972	3132	
==>C<keys()>

Provides a list of keys.

Accepts no arguments and returns a list.

=cut

sub keys
{
    my $self = shift;

    return keys %{$self->{c}};
}

=item C< <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465935	466267	
==>S" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 534,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 348 \"src/ops/math.ops\"\n  {{\@1}}--;\n  {{+=2}};\n <==
2	/Users/nnunley/parrot/languages/regex/test.pl	3168	3310	
==>r die "create $filename: $!";

    my $ctx = { };
    my $trees = Regex::expr_to_tree($pattern, $ctx, DEBUG => $DEBUG);

    my $driver = Regex <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1504	1613	
==>r die "create $filename: $!";

    my $ctx = { };
    my $trees = Regex::expr_to_tree($pattern, $ctx, DEBUG => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653516	653624	
==>nterpreter, resume, METH_NOT_FOUND,\n            \"Method '%s' not found\", string_to_cstring(interpreter, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654677	654785	
==>nterpreter, resume, METH_NOT_FOUND,\n            \"Method '%s' not found\", string_to_cstring(interpreter, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	4965	5062	
==>e)>

Returns the contents of the item interpreted relative to the source
directory.

=cut

sub con <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	11340	11467	
==>rint "   Adding \"", $token->text, "\" to head1-content.\n";
        $head1_text_content .= $token->text;
      } elsif( $token- <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	18866	19009	
==>guage_test_map = (
        language_output_is   => 'output_is',
        language_output_like => 'output_like',
        language_output_isnt => ' <==
2	/Users/nnunley/parrot/lib/Test/More.pm	11936	12085	
==>lass->can('$methods[0]')" 
                          : "$class->can(...)";
    
    my $ok = $Test->ok( !@nok, $name );

    $Test->diag(map "    $cla <==
2	/Users/nnunley/parrot/config/inter/ops.pm	1059	1197	
==>{
        print <<"END";


The following opcode files are available:
  @ops
END
        {
            $ops = prompt('Which opcode files wou <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	445986	446239	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	446622	446875	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "in <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6660	6796	
==>rstatus
				and	do {
					--$$errstatus;

#DBG>					$debug & 0x10
#DBG>				and	$dbgerror
#DBG>				and	$$errstatus == 0
#DBG>				an <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6351	6480	
==>rstatus
				and	do {
					--$$errstatus;

#DBG>					$debug & 0x10
#DBG>				and	$dbgerror
#DBG>				and	$$errstatus == 0
#DBG>				an <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	470	622	
==>ib';
use Parrot::Types;
use Parrot::PackFile;
use Parrot::PackFile::ConstTable;
use Parrot::OpsFile;
use Parrot::OpTrans::Compiled;
use Parrot::OpLib::co <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1299	1437	
==>el");
}

############### SIMPLE OUTPUT ##############

sub output_terminate {
    return "";
}

sub output_advance {
    my ($self, $distan <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	230	342	
==>kens,$count) = @_;
  my $temp   = {};

  die "EOF reached" if $count >= $#$tokens;

  if ($tokens->[$count] eq '( <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2670	2801	
==>= 0;
}

sub YYAbort {
	my($self)=shift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2552	2670	
==>= 0;
}

sub YYAbort {
	my($self)=shift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6042	6142	
==>nothing has been
	# propogated there already.
	$pir .= <<'PIR';
if 0x${CURIC} == 0x45 goto POST_BRANC <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3980	4080	
==>nothing has been
	# propogated there already.
	$pir .= <<'PIR';
if 0x${CURIC} == 0x45 goto POST_BRANC <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	13696	13891	
==>/\bgoto\s+OFFSET\(\( (.*?) \)\)/{{+=$1}}/mg;
        $absolute ||= $body =~ s/\bgoto\s+ADDRESS\(\( (.*?) \)\)/{{=$1}}/mg;
                      $body =~ s/\bexpr\s+OFFSET\(\( (.*?) \)\)/{{^+$1}}/m <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	8108	8342	
==>t n)
{
    /*
     * exessive args are passed as NULL
     * used by e.g. MMD infix like __add
     */
    if (n < st->src.n)
        Parrot_fetch_arg_nci(interpreter, st);
    else
        UVal_pmc(st->val) = NULL;

    return UVal_pm <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946520	946804	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "find_charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947421	947705	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "find_charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	24	154	
==>6, The Perl Foundation.
# $Id: /parrot/lib/Parrot/IO/Directory.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parro <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	561	657	
==>onstruct::Block');
  confess("Identifier (" . ref($ident) . ") is not!") unless UNIVERSAL::isa($i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	561	657	
==>onstruct::Block');
  confess("Identifier (" . ref($ident) . ") is not!") unless UNIVERSAL::isa($i <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	2417	2539	
==>e[CURR] Sym $syms[CURR]\n";
	goto UNK if ($type[CURR] ne 'BARE');
	goto BARE if (! iskeyword($syms[CURR]));

	# The "unimpl <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12949	13117	
==>eturn that
    # as the link.
    
    my $dist = Parrot::Distribution->new;
    my $file = $dist->file_for_perl_module($module);
    
    return if not $file or not $fi <==
2	/Users/nnunley/parrot/config/inter/types.pm	99	255	
==>30T02:28:15.110975Z coke  $

=head1 NAME

config/inter/types.pm - Sizes for Parrot Types

=head1 DESCRIPTION

Asks the user which size integer, floating-poin <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10576	10681	
==>th the specified relative path below the directory.

=cut

sub file_with_relative_path
{
    my $self = sh <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10457	10663	
==>" : "n/a" ]}</a></td>
           </tr>
            );
        }
        print OUT qq(
            </tbody>
            </table>
        );
    }

    print OUT page_footer();

    close(OUT);
}


sub filter_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432469	432578	
==>_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433484	433593	
==>_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	484145	484719	
==>iv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 554,
                  "ARGS" => [
                              "n",
                              "nc",
                              "n"
                            ],
                  "BODY" => "#line 455 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	3752	4003	
==>sources' => ['stack_common']
            ),
            $self->c_header_item('', 'enums'),
        ),
        $self->new_group(
            'Ops', 
            '',
            $self->c_pair_item('', 'runops_cores'),
            $self->c_header_item('', <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	23557	23774	
==>mp} ) {
        dump_pmc(\@include, @ARGV);
    }

    if ( $action{tree} ) {
        print_tree(\@include, 0, @ARGV);
    }

    if ( $action{gen_c} ) {
        gen_c(\@include, @ARGV);
    }
}

# vim: expandtab shift <==
2	/Users/nnunley/parrot/config/gen/platform.pm	2463	2790	
==>either this platform nor
        # generic has anything to contribute for this feature.  this might not
        # be desirable if porters don't see the appropriate file in generic/ and
        # shoehorn their function into the wrong file rather than creating the
        # correct one from the above list in their $platform/ di <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	4597	4727	
==>.local pmc __func");
    $compiler->emit("  dlfunc __func, __lib, $fn_name, \"$sig\"");

    if ($self->type) {
      $compiler->em <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	9880	10084	
==>g - only used for debugging for now
########################################################################

package Regex::Ops::Tree; # Won't get used much

sub needparen { 0 }

# Nonportable
sub isplain <==
2	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	2036	2166	
==>s known from the line above
substitution:       m/[a-zA-Z0-9_-]{$::substitution_len}/ 

END_GRAMMAR

# Slurp in the frozen-state fi <==
2	/Users/nnunley/parrot/config/inter/types.pm	800	907	
==>>options->get('ask')) {
        $intval   = prompt("\n\nHow big would you like your integers to be?", $intva <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3046	3174	
==>ST(%ld)->u.key",
    'sc' => "CONST(%ld)->u.string",
    'kc' => "CONST(%ld)->u.key",
    'kic' => "%ld",
);

=item C<access_arg( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	5261	5362	
==>> 1 ? "one of (" . join(", ", @_) . ")" : $_[0], $self->get(1)->text)
    unless grep { $self->get(1)- <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	313	411	
==>es F<src/jit_cpu.c>. It parses the JIT file for the
specified CPU architecture type (F<src/jit/cpu- <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	12890	13178	
==>+ X
        #   restart NEXT()     {{=0,+=S}}   PC' = 0       Restarts at PC + S
        #
        #   $X                 {{@X}}   Argument X    $0 is opcode, $1 is first arg
        #
        # For ease of parsing, if the argument to one of the above
        # notations in a .ops file co <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	877	977	
==>n repository. (Needed for
# distributions or in general when svn is not available).
# See docs/submis <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3732	3832	
==>n repository. (Needed for
# distributions or in general when svn is not available).
# See docs/submis <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361656	361755	
==>if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, INTVAL_FMT, {{\@2}});\n    PIO_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362555	362654	
==>if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, INTVAL_FMT, {{\@2}});\n    PIO_ <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	2701	3006	
==>de;
    my ($file, $function, $variable);
    while (<F>) {
        
        if (/----------------------------------------/) {
            undef $file if defined($file);
            next;
        }

        if (/^INCLUDES : '(.*)' \[System file\]/) {
            next if ($1 =~ /^include\//);
            $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460310	460738	
==>":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 528,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ] <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	38792	38978	
==>\&_op_call_with_current_continuation,

###
### Input and Output
###

####
#### Ports
####

  'call-with-input-file'  => \&_op_call_with_input_file,
  'call-with-output-file' => \&_op_call <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	282	406	
==>ks     use benchmarks matching regexes  (multiple)
   -c -conf           path to configuration file
   -d -directory      pat <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1272	1375	
==>g_type, $arg_name, $arg_token) = @$arg;
    my $sym = Jako::Symbol->new($self, 'local', 'arg', $arg_type <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5821	6044	
==>de,1);

  return __quoted ($self, $item, $return, {});
}

sub _op_quasiquote {
  my ($self, $node) = @_;
  my $return = $self->_save_1 ('P');
  my $special = { 
		  unquote => \&_qq_unquote,
		  'unquote-splicing' => \&_qq_u <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1899	2055	
==>n object is, you then know what
subclass it belongs to, and therefore what methods it supports.

Yes, you could probably do the same thing with code like
$to <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	1423	1555	
==>/docs/pod_errors.pl'),
            $self->new_item('', 'tools/dev/manicheck.pl'),
            $self->new_item('', 'tools/dev/run_inde <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	229687	229991	
==>"PARROT_JUMP_RELATIVE",
                  "NAME" => "ge_num",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "T <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	707	813	
==>$$);

# HANDLE RETURN VALUES IN VARIOUS CONTEXTS

sub _failmsg {
	my ($message, $pos) = @_;
	$@ = bless { e <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1407	1528	
==>R => $out_f, 
        );
        my $prog_output = Parrot::Test::slurp_file( "$out_f" );

        @_ = ( $prog_output, $ou <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1323	1444	
==>R => $out_f, 
        );
        my $prog_output = Parrot::Test::slurp_file( "$out_f" );

        @_ = ( $prog_output, $ou <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12364	12473	
==>"items"}};
	return 0;
}

sub leftmostsubrule($)
{
	my $self = shift;

	if ( $#{$self->{"items"}} >= 0 )
	{
		m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	512787	513264	
==>P" => 0,
                  "NAME" => "n_neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 591,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 695 \"src/o <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	48436	48656	
==>push @out, '';
    $parser->output_string( \( $out[-1] ) );

    DEBUG and print " _duo out to ", $parser->output_string(),
      " = $parser->{'output_string'}\n";

    $parser->hide_line_numbers(1);
    $mutor->($parser <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3892	3997	
==>arameter '$prm'");
        $prm=unpack('@2A*',$prm);
		$$outhash{$prm}=$value;
	}
	for (@$mandatory) { <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3695	3796	
==>arameter '$prm'");
        $prm=unpack('@2A*',$prm);
		$$outhash{$prm}=$value;
	}
	for (@$mandatory) { <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59415	59533	
==>s($grammar)-=9;
			_parseunneg("a new (uncommitted) production",
				    0, $lookahead, $line) or next;

			$prod->chec <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	3337	3484	
==>parents($pmc)));
        my $parent_headers = '';
        $parent_headers .= "src/pmc/pmc_$_.h " foreach (pmc_parents($pmc));
        $TEMP_pmc_buil <==
2	/Users/nnunley/parrot/languages/regex/test.pl	2643	2769	
==>INPUT:/;

    # Gather input, look for OUTPUT:
    $input = '';
    undef $output;
    while (<SPEC>) {
        $output = '', l <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	7799	7938	
==>uous chunks of
        # things with and without maximum lengths
        my $havemax = 0;
        my @chunks = ([]);

        foreach my $ki <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5000	5122	
==>key\n",
        if $verbose;

    $self->{triggers}{$key}{$trigger} = $cb;

    return $self;
}

=item C<gettriggers($key)> <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17693	17787	
==>_add_inst ('', 'inc',[$return]);
  $self->_add_inst ('', 'set',[$list,$list.'[1]']);
  $self->_ <==
2	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	181	462	
==>print_c.pl - Create fingerprint.c

=head1 SYNOPSIS

    % perl tools/build/fingerprint_c.pl > src/fingerprint.c

=head1 DESCRIPTION

The F<PBC_COMPAT> file is used to maintain Parrot bytecode
compatability. During the build process it is parsed by
F<fingerprint_c.pl> to produce a f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152995	153137	
==>cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_STREQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065147	1065254	
==>mespace, *ns;\n    ns = VTABLE_get_pmc_keyed_str(interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066021	1066128	
==>mespace, *ns;\n    ns = VTABLE_get_pmc_keyed_str(interpreter, ns_root, {{\@2}});\n    {{\@1}} = ns ? ns : PM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822388	822494	
==>ption(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_int(entry->entry);\n  {{+=3 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823456	823562	
==>ption(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_int(entry->entry);\n  {{+=3 <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	24234	24486	
==>self, $fh) = @_;

    if( defined $fh ) {
        $self->{Fail_FH} = _new_fh($fh);
    }
    return $self->{Fail_FH};
}

sub todo_output {
    my($self, $fh) = @_;

    if( defined $fh ) {
        $self->{Todo_FH} = _new_fh($fh);
    }
    return $self- <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	61836	61939	
==>"%c" but found "%s">

C<extract_bracketed>, C<extract_quotelike> or C<extract_codeblock> found
a valid b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	619678	619815	
==>, ERR_OVERFLOW,\n\t\t\t\"Integer overflow\");\n\t    }\n\t    /* TODO preserve type system */\n\t    VTABLE_morph(interpreter, left, enum_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34377	34494	
==>print "Accomodating '=item * Foo' tolerance hack.\n";
              push @$para, delete $para->[1]{'~_freaky_para_hack <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	2371	2469	
==>egex.html', '', 'languages/regex'),
        $self->new_section('Scheme', 'scheme.html', '', 'langua <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688154	688378	
==>{{\@1}}->vtable->delprop(interpreter, {{\@1}}, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688926	689150	
==>{{\@1}}->vtable->delprop(interpreter, {{\@1}}, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	1875	1995	
==>ce_for_path{$path} = $self;
}

=back

=head2 Instance Methods

=over 4

=item C<create_path()>

This is called from C<new <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	1350	1471	
==>ber=ol
    over-text=dl
    over-block=blockquote
    item-bullet=li
    item-number=li
    item-text=dt
  )),
  changes2( <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3236	3325	
==>=> Parrot::Test::PGE::_generate_glob_for($target, $pattern);

    goto &Parrot::Test::pir_ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3661	3750	
==>=> Parrot::Test::PGE::_generate_glob_for($target, $pattern);

    goto &Parrot::Test::pir_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218823	218931	
==>terpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) > 0) {\n    {{+={{\@3}}}};\n  } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219802	219910	
==>terpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) > 0) {\n    {{+={{\@3}}}};\n  } <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	533	690	
==>ng_fn = Parrot::Test::per_test( '.bc', $count );
    my $pir_fn  = $options->{with_past} ?
                    Parrot::Test::per_test( '_antlr2.pir', $count ) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	15401	15550	
==>ding of module blocks:
      #

      elsif ($peer_block->kind eq 'module') {
        # DO NOTHING
      }

      #
      # If there is any other kind <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1316	1507	
==>name}, ':',
        $parser->YYData->{lineno}, ': ', $msg
        if ( exists $parser->YYData->{verbose_info}
        and $parser->YYData->{verbose_info} );
}

sub _DoubleQuoteStringLexe <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5541	5650	
==>>output_label_def($passLabel);
    return @ops;
}

sub output_initgroup {
    my ($self, $group) = @_;
    ret <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5234	5343	
==>>output_label_def($passLabel);
    return @ops;
}

sub output_initgroup {
    my ($self, $group) = @_;
    ret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109425	109701	
==>ine",
                  "CODE" => 136,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 182 \"src/ops/bit.ops\"\n  string_bitwise_or(interpreter, {{\@1}}, {{\@2} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510562	510850	
==>E" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 588,
                  "A <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511300	511588	
==>E" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 589,
                  "A <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527344	527607	
==>"NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	14921	15048	
==>my ($op, $cmt) = @_;
    my $r = pop @stack;
    my $l = pop @stack;
    my ($t, $n);
    {
	my $nl = promote($l);
	$n = temp($t <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	15238	15365	
==>my ($op, $cmt) = @_;
    my $r = pop @stack;
    my $l = pop @stack;
    my ($t, $n);
    {
	my $nl = promote($l);
	$n = temp($t <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27231	27359	
==>TOS => {
			'exp' => 138,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'pr <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39445	39561	
==>'      => \&_op_close_input_port,
  'close-output-port'     => \&_op_close_output_port,

####
#### Input
####

  'rea <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	648	773	
==>efault)
                      2 Real time using POSIX::times()
   -n -nobench        skip benchmarks matching regexes (multipl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95613	95881	
==>"CODE" => 118,
                  "ARGS" => [
                              "s",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 63 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_an <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	9092	9206	
==>aller;

    my $todo = $self->todo($pack);
    $self->_unoverload(\$todo);

    my $out;
    my $result = &share({} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847758	848051	
==>UMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848537	848830	
==>UMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1309	1414	
==>';
# Get type (so we can find register type).
dec ${ITEMP0}
${PTEMP0} = ${STYPES}[${ITEMP0}]

# Assign reg <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3019	3124	
==>';
# Get type (so we can find register type).
dec ${ITEMP0}
${PTEMP0} = ${STYPES}[${ITEMP0}]

# Assign reg <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	31167	31324	
==>= @_;
    my $targ = "pc_xxx";
    if ($c =~ /to (\d+)/) {
	$targ = "pc_$1";
    }
    push @loops, $targ;
    my $eh = temp('P');
    print <<EOC;
	newsub $e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632655	632925	
==>n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633697	633967	
==>n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/config/auto/pack.pm	927	1047	
==>= $conf->data->get($_);
        my $format;
        if (($] >= 5.006) && ($size == $longsize) && ($size == $Config{longsi <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2951	3063	
==>'.' : $rel_path;
}

=item C<parent()>

Returns the directory's parent directory. The root directory returns
C<und <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023347	1023450	
==>m;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_localtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024197	1024300	
==>m;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_localtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interp <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	277	452	
==>PullParser')}

use Carp ();
BEGIN { *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG }

$WRAP = 1 unless defined $WRAP;

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	20044	20240	
==>: {
        eval { require HTML::Lint };

        skip "HTML::Lint not installed", 2 if $@;

        my $lint = new HTML::Lint;
        isa_ok( $lint, "HTML::Lint" );

        $lint->parse( $html ) <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	858	1021	
==>name}, ':',
        $parser->YYData->{lineno}, ': ', $msg
        if ( exists $parser->YYData->{verbose_warning}
        and $parser->YYData->{verbose_warning} ) <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	7682	7842	
==>C<source($trans)>

Returns the L<C<full_body()>> of the op with substitutions made by
C<$trans> (a subclass of C<Parrot::OpTrans>).

=cut

sub source
{
    my ($ <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8141	8324	
==>.sub unicode:"dyadic:\u2373" :multi(APLVector, Float) # index of
    .param pmc op1
    .param float op2

    .local pmc result
    result = new 'APLVector'
 
    .local int pos
    po <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10053	10201	
==>{ 0 }

# Nonportable
sub isplain {
    my $ord = shift;
    return 1 if $ord >= ord('a') && $ord <= ord('z');
    return 1 if $ord >= ord('A') && $or <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862401	862539	
==>"
                            ],
                  "BODY" => "#line 138 \"src/ops/string.ops\"\n  {{\@1}} = string_length(interpreter, {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023401	1023579	
==>altime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024251	1024429	
==>altime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	316576	316806	
==>=> 0,
                  "NAME" => "conv_i2",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	353	458	
==>Carp;

use base qw(Jako::Construct::Statement);

my %block_types = (
  'while'    => { PREFIX => "_W", NEX <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	374	479	
==>Carp;

use base qw(Jako::Construct::Statement);

my %block_types = (
  'while'    => { PREFIX => "_W", NEX <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	111	207	
==>1T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::OpsFile - Ops To C Code Generation

=head1 S <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11928	12172	
==>esult' => $result,
                    );
                    return [ $defn, \@opcodes, $assign ];
                }
                else {
                    my $assign = new StoreLexOp( $parser,
                        'arg1' => $defn, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946575	946820	
==>"NAME" => "find_charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947476	947721	
==>"NAME" => "find_charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functi <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16887	17017	
==>won't make it thru in X-generated comments
        #  with text in them.
        
        # Yes, stipulate the list without a range <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10327	10441	
==>won't make it thru in X-generated comments
    #  with text in them.

    # Yes, stipulate the list without a range <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206915	207215	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 244,
                  "ARGS <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	8980	9103	
==>^\{/ or die "bad block open: ", substr($code,0,10), "...";

    while (/ (\{) | (\}) /gx) {
        if($1) {
            $ba <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65458	65692	
==>,$line,"$code$argcode($1..)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr($grammar,$pos,0,
						       "<leftop: $name $2 $name>($1..) ");

						pos $grammar = $pos;
					}
					else
					{
						$item = new Parse <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	3208	3302	
==>DY" => "#line 117 \"src/ops/core.ops\"\n  opcode_t *next = {{^+1}};\n  next = CHECK_EVENTS(inte <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3493	3622	
==>tests{$name} = [$expl, $body, $out];
    }

    return %tests;
}

##
## $preamble = extract_preamble($string)
##
## Extract the pr <==
2	/Users/nnunley/parrot/config/inter/libparrot.pm	737	851	
==>d = $conf->options->get('parrot_is_shared');

    $parrot_is_shared =
        integrate($conf->data->get('parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	316969	317231	
==>ne 92 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (INTVAL)((Parrot_Int2)({{\@1}}));\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4856	4961	
==>e symbol tables of parent blocks.

=cut

sub dump_symbols
{
  my $self = shift; # Required: Jako::Construc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208797	209094	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 246,
                  "A <==
2	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	424	582	
==>et another constructor.

=cut

sub new 
{
  return bless {};
}


=head2 gen_output

Called in output_is(),
which gets called when language_output_is() is calle <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	2870	3087	
==>b, $where";
    } elsif ($cond eq '>=') {
        return "ge $a, $b, $where";
    } else {
        die "Huh? cond $cond";
    }
}

sub output_goto {
    my ($self, $where) = @_;
    return "branch ".$self->output_label <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	12275	12394	
==>"t_$temp_num = GET_NCI_N($reg_num);";
        return "t_$temp_num";
    };
    /t/ && do {
        push @{$temps_ref}, " <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	16982	17134	
==>ailmsg qq{Did not find closing delimiter to match '$initial' at "} .
				     substr($$textref, $oppos, 20) .
				     q{..."},
				 pos $$textref;
			po <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3453	3615	
==>ub YYLexer {
    my($self)=shift;

	$$self{LEX};
}


#################
# Private stuff #
#################


sub _CheckParams {
	my($mandatory,$checkl <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3278	3427	
==>ub YYLexer {
    my($self)=shift;

	$$self{LEX};
}


#################
# Private stuff #
#################


sub _CheckParams {
	my($mandatory,$checkl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	394411	394965	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "tell",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 458,
                  "ARGS" => [
                              "i",
                              "i",
                              "p"
                            ],
                  "B <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89805	90045	
==>,
                  "CODE" => 111,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 38 \"src/ops/bit.ops\"\n  {{\@1}} &= {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	1297	1461	
==>m_end ) {
            $verbatim_chunk .= $line;
            $verbatim_chunk .= "\n";

            # bracket the verbatim chunk with whitespace.
            push @out <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	1879	1992	
==>sub type   { return shift->{TYPE};     }
sub name   { return shift->{NAME};     }
sub value  { return shift->{VALU <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	513	628	
==>imizations. By making the inlined versions more declarative, this
lets us do this work B<once> instead of many times <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20406	20521	
==>*") {
				print "WARNING: * in TYPE not supported yet for $name\n";
				feedme;
				feedme;
			}
			while($type[CURR <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	14285	14392	
==>), "\n>>\n\n";

  return @out;
}

}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655034	655339	
==>( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4188	4386	
==>oto &Parrot::Test::pir_output_like;
}


package Parrot::Test::PGE;

sub _parrot_stringify {
    $_ = $_[0];
    s/\\(?!u)/\\\\/g;
    s/\n/\\n/g;
    s/\r/\\r/g;
    s/\"/\\"/g;
    return $_;
}

sub <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	5248	5371	
==>path);
		$self->{POD_ERRORS_COUNT} = $checker->errors_seen;
		$self->{CONTAINS_POD} = $checker->content_seen;
	}
}

=item C< <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	178	297	
==>UG unless defined &DEBUG }

sub new {
  my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= * <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	177	296	
==>UG unless defined &DEBUG }

sub new {
  my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= * <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	8152	8301	
==>lex.h
cacoshl     complex.h
cacosl      complex.h
calloc      stdlib.h
carg        complex.h
cargf       complex.h
cargl       complex.h
casin       c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160700	161172	
==>GS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 194,
                  "ARGS" => [
                              "i",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	16485	16623	
==>e, $expected, $desc, %extra ) = @_;

            # Strange Win line endings
            convert_line_endings( $expected );

            # s <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	11001	11138	
==>e, $expected, $desc, %extra) = @_;

            # Strange Win line endings
            convert_line_endings( $expected );

            # s <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	13333	13678	
==>his};

    while (@todo) {
        my $n   = shift @todo;
        my $sub = $all->{$n};
        next if $n eq 'default';

        my %parent_hash = %{$sub->{flags}{extends}};
        my @parents     = sort { $parent_hash{$a} <=> $parent_hash{$b} }
            keys %parent_hash;
        for my $parent (@parents) {
            next if exists $cla <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	17793	17999	
==>rn;
    }
    my $tos = pop @stack;
    my $targ = "pc_xxx";
    if ($c =~ /to (\d+)/) {
	$targ = "pc_$1";
    }
    print <<EOC;
	unless $tos->[1] goto $targ $cmt
EOC
}

sub JUMP_IF_TRUE
{
    my ($n, $c, $ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	43698	43815	
==>, 1);
	# return _generate(@_);
	# Apart from modifying @_, they are equivalent to the rather ungainly:
	return _genera <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20909	21012	
==>->[1]'
	push P0, P1
ADDT
		}
		print CODE<<TYPEE;
	P1= P10[0]
	P2= P1["types"]
	P2["$typename"]= P0
	got <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	8219	8355	
==>ge{$source_file} ? "$file_line_coverage{$source_file} %" : "n/a" ]}</a></td>
             <td><a href="$outfile_base.branches.html">@{[$f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104449	104859	
==>GDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 130,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 145 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}}->vtable-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768105	768280	
==>",
                              "sc"
                            ],
                  "BODY" => "#line 335 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	17886	18001	
==>($self,$namespace,$rule,$parser) = @_;
	my $code =
'
	while (!$_matched'
	. (defined $self->{"uncommit"} ? '' : ' && <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3130	3232	
==>cally equivalent to this:

  my $debug_level;
  BEGIN { $debug_level = 0 }
  BEGIN { sub Pod::Simple::D <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	1898	2046	
==>se_paren   { return shift->is('close-paren');   }
sub is_colon         { return shift->is('colon');         }
sub is_concat_assign { return shift->is <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1783	2117	
==>=> 0,
    BLOCK_COUNT      => 0,
    BLOCKS           => [ $root ], # Block stack
    ROOT             => $root,
    TOKENS           => [ ]
  }, $class;
}


###############################################################################
###############################################################################
##
## The Block S <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094793	1095146	
==>"NAME" => "exec",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1214,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#li <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	8594	8865	
==>e_Plan} ) {
        require Carp;
        Carp::croak("You tried to run a test without a plan!  Gotta have a plan.");
    }

    lock $self->{Curr_Test};
    $self->{Curr_Test}++;

    # In case $name is a string overloaded object, force it to stringify.
    $self->_unove <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4167	4281	
==>o + B.so ... -> GROUP.so
    while (my ($group, $pmcs) = each %$group_files) {
        partial_link($group, $group_ <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4271	4385	
==>o + B.so ... -> GROUP.so
    while (my ($group, $pmcs) = each %$group_files) {
        partial_link($group, $group_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953872	954277	
==>se_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1073,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 571 \"src/ops/s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	639940	640230	
==>nstantiate(interpreter, class, sig);\n  interpreter->current_args = NULL;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	1523	1647	
==>per_test( '.bc', $count );
            Parrot::Test::write_code_to_file( $code, $lang_fn );
        }

        # set a TODO f <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	4331	4647	
==>,
        ),
        $self->new_group(
            'Data Types',
            '',
            $self->c_pair_item('', 'datatypes'),
            $self->c_pair_item('', 'hash'),
            $self->c_pair_item('', 'intlist'),
            $self->c_pair_item('', 'list'),
        ),
        $self->new_group(
            'PM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162493	162791	
==>GS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 196,
                  "ARGS" => <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	12943	13130	
==>$srm_pt = $srm->pre_translation();
    $pir .= sub_meta($srm_pt, $mv, 'pre_translation');
    $pir .= "### end pre_translation\n\n";

    # Emit first bit of PIR to loop over instructions. <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18698	18853	
==>y @returns = ();
    for my $arg ( @{$args} ) {
        if ( scalar @{ $arg->[1] } ) {
            push @opcodes, @{ $arg->[1] };
        }
        els <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066803	1066982	
==>,
                              "n"
                            ],
                  "BODY" => "#line 49 \"src/ops/experimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067989	1068168	
==>,
                              "n"
                            ],
                  "BODY" => "#line 49 \"src/ops/experimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATVAL c = 0;\n  FLO <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	302	433	
==>[1] = $_[1]) : $_[0][1] }

sub text_r { \ $_[0][1] }

1;

__END__

=head1 NAME

Pod::Simple::PullParserTextToken -- text-tokens from <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7183	7271	
==>e{$seg}->{code}}, "\t#\n\t# User-included assembly\n$syms[CURR]\n\t# End assembly\n\t#\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440370	440607	
==>"ic",
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 104 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(inte <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	502	732	
==>charset tables to create
#
my %table = (
    "en_US.iso88591" => "Parrot_iso_8859_1_typetable",
#    "en_US.iso885915" => "Parrot_iso_8859_15_typetable",
    "POSIX" => "Parrot_ascii_typetable",
);

my $header = <<"HEADER";
/* $fil <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	1382	1608	
==>w_group('Tools', 'PMC-related tools.', 
			$self->new_item('', 'tools/dev/gen_class.pl'),
		),
		$self->new_group(
	        'Abstract PMCs', 
	        'These PMCs are not instantiated.', 
	        @abstract_items
	    ),
		$sel <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23313	23412	
==>y $return;
  my $label = $self->_gensym();

  $return = $self->_generate($node->{children}[1]);
  fo <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23775	23874	
==>y $return;
  my $label = $self->_gensym();

  $return = $self->_generate($node->{children}[1]);
  fo <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	6031	6257	
==>'},
           map { 
               my $end = $dir_list{ $dir . $_} ? '$' : '/'; # ignore file or dir
               s/\./\\./g;                  # . is simply a dot
               s/\*/.*/g;                   # * is any amoun <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	8305	8433	
==>"} || next;
      --$dont_wrap if $tagname eq 'Verbatim' or $tagname eq 'X';

    # - - - - - - - - - - - - - - - - - - - - - - - <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10480	10612	
==>cat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
goto PRE_CALL_${CURIC}_CONT

# Can do a lazy move.
PRE_CALL_${CURI <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11884	12014	
==>cat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
goto PRE_CALL_${CURIC}_LAZY_MOVE_RET_CONT

# Can do a lazy move. <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	8187	8317	
==>'', 'newsub',[$return,'.Closure',"LAMBDA_$label"]);

  $self->_add_inst ('', 'branch',["DONE_$label"]);
  $self->_add_inst ("LAMBDA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828822	829017	
==>CK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_pmc(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829890	830085	
==>CK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_pmc(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	3947	4041	
==>ine _S(name) (__PARROT_STATIC_STR(__LINE__))
#define __PARROT_STATIC_STR(line) CONCAT(&static_s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050775	1051167	
==>,
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1174,
                  "ARGS" => [
                              "p",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 172 \"s <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	5602	5709	
==>ad this idea (unfortunately,
he wasn't in Tony's kitchen).  This is it.


=head1 SEE ALSO

=over 4

=item L< <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	5486	5648	
==>ages/(\w+)/] and $1 ne 'conversion') ? "[$1]" :
        m[^lib/]          ? '[devel]' :
        m[^runtime/]      ? '[library]' :
        m[^tools/docs/]   ? '[dev <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758334	758566	
==>et(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759107	759339	
==>et(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	1266	1426	
==>{
	#	append;
	#	fetch;
	#	goto NUMCONST;
	#}
	if ($cur eq '"') {   # String constants
		append;
		fetch;
		while($cur ne '"') {
			if ($cur eq "\n") {
				$cur=q <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	776	915	
==>st stack operation (op class instructions) hooks.
sub pre_op {
	die "pre_op not implemented for current stack to register mapper\n";
}
sub p <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	9849	9967	
==>$parent_nr);
    # look through the pmc declaration header for flags such as noinit
    while ($$c =~ s/^\s*(\w+)//s) { <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	84	245	
==>XPORT_TAGS);

$VERSION   = '0.01';
@ISA       = qw(Exporter);
@EXPORT_OK = qw(parse);

use Data::Dumper;

my $ind = 0;
sub _build_tree {
  my ($tokens,$count) = @ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	27477	27702	
==>sults} = $num - 1;
        }
    }
    return $self->{Curr_Test};
}


=item B<summary>

    my @tests = $Test->summary;

A simple summary of the tests so far.  True for pass, false for fail.
This is a logical pass/fail, so tod <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	1263	1404	
==>name;
	
	return $self;
}

=back

=head2 Instance Methods

=over 4

=item C<name()>

Returns the name of the group.

=cut

sub name
{
	my $self <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	26118	26239	
==>ble(interp, entry,
            _temp_mmd_init, N_MMD_INIT);
EOC
    }

    $cout .= <<"EOC";
    } /* pass */
} /* Parrot_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	50018	50171	
==>];
        }
	],
	[#Rule 33
		 '@10-4', 0,
sub
#line 203 "Lua\lua51.yp"
{
            PushScope( $_[0] );
        }
	],
	[#Rule 34
		 '_elseif <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	10912	11015	
==>c',
             'pmc_names' => 'Null Env Key Random UnManagedStruct ManagedStruct delegate CSub Compile <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	3524	3645	
==>hecks the block
# stack to make sure we don't pop off the file scope block.
#

sub pop_block
{
  my $self = shift;

  $sel <==
2	/Users/nnunley/parrot/config/inter/lex.pm	728	833	
==>my $verbose = $conf->options->get('verbose');

    # undef means we don't have flex... default to not havi <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	11132	11275	
==>val(t_$temp_num)";
    };
    /s/ && do {
        push @{$temps_ref}, "short t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23609	23702	
==>d_inst('','set',[$return,$temp]);
    $self->_add_inst("NEXT_$label");
    $self->_restore($te <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24071	24164	
==>d_inst('','set',[$return,$temp]);
    $self->_add_inst("NEXT_$label");
    $self->_restore($te <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1383	1491	
==>=('LEX','RULES','STATES');

sub new {
    my($class)=shift;
	my($errst,$nberr,$token,$value,$check,$dotpo <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1337	1441	
==>=('LEX','RULES','STATES');

sub new {
    my($class)=shift;
	my($errst,$nberr,$token,$value,$check,$dotpo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017180	1017390	
==>BODY" => "#line 108 \"src/ops/sys.ops\"\n  {{\@1}} = Parrot_floatval_time();\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	2017	2170	
==>rerun make\n" if !@c;

    print '    ';
    my $i;
    for (@c) {
        printf "0x%02x", ord($_);
        ++$i;
        print ', ', if ($i < scalar(@c) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	2782	2957	
==>pth()
#
# Block depth zero is when the only block on the block stack is the file
# scope block. Therefore, we return one less than the number of blocks on
# the stack.
#

sub b <==
2	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	2032	2172	
==>ckage BranchOp;
use base qw(Lua::opcode);

package BranchIfOp;
use base qw(Lua::opcode);

package BranchUnlessOp;
use base qw(Lua::opc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133818	133913	
==>ODY" => "#line 321 \"src/ops/bit.ops\"\n  string_bitwise_xor(interpreter, {{\@1}}, {{\@2}}, &{{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134599	134694	
==>ODY" => "#line 321 \"src/ops/bit.ops\"\n  string_bitwise_xor(interpreter, {{\@1}}, {{\@2}}, &{{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363389	363512	
==>],
                  "BODY" => "#line 292 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(inte <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364292	364415	
==>],
                  "BODY" => "#line 292 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(inte <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	13457	13614	
==>f),20) .
			    q{..."},
		         pos $$textref;
		return; 
	}
	my $codepos = pos($$textref);
	unless ($$textref =~ m/\G($ldel_outer)/gc)	# OUTERMOST DELIMI <==
2	/Users/nnunley/parrot/lib/Test/More.pm	21399	21543	
==>item B<TODO: BLOCK>

    TODO: {
        local $TODO = $why if $condition;

        ...normal testing code goes here...
    }

Declares a block o <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2483	2591	
==>num, $op) = @_;

    die "Unrecognized type '$type' for num '$num' in opcode @{[$op->full_name]}"
        unl <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	33249	33443	
==>y $test_results = $self->{Test_Results};
    if( @$test_results ) {
        # The plan?  We have no plan.
        if( $self->{No_Plan} ) {
            $self->_print("1..$self->{Curr_Test}\n") unl <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18999	19156	
==>]->isa('CallOp') ) {
        unless ( exists $params[-1]->{pragma} ) {
            $params[-1]->{pragma} = 'multi';
        }
    }
    push @opcodes, @{ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33290	33385	
==>n $desc;
}

sub callsyntax($$)
{
	if ($_[0]->{"matchrule"})
	{
		return "&{'$_[1]'.qq{$_[0]->{su <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5652	5757	
==>g & 0x2
#DBG>	and	print STDERR "In state $stateno:\n";
#DBG>		$debug & 0x08
#DBG>	and	print STDERR "Sta <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5381	5483	
==>g & 0x2
#DBG>	and	print STDERR "In state $stateno:\n";
#DBG>		$debug & 0x08
#DBG>	and	print STDERR "Sta <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26024	26167	
==>mv->{"ARG$arg_num"} = $mv->{$arg_name};
		push @localmv, "ARG$arg_num";
        $arg_num++;
	}

    # Generate code that we need to insert to ha <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	225	314	
==>%Name2character
  %Name2character_number
  %Latin1Code_to_fallback
  %Latin1Char_to_fallba <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	502	591	
==>%Name2character
  %Name2character_number
  %Latin1Code_to_fallback
  %Latin1Char_to_fallba <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190193	190732	
==>" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 226,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 306 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033064	1033236	
==>",
                              "p"
                            ],
                  "BODY" => "#line 41 \"src/ops/var.ops\"\n    parrot_context_t * const ctx = CONTEXT(int <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5282	5432	
==>}

sub output_initgroup {
    my ($self, $group) = @_;
    return ("<rx_match>{\"$group\"} = [];");
}

sub output_setstart {
    my ($self, $group, $va <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1287	1448	
==>${prefix}_ELSE");
    $compiler->emit("${prefix}_THEN:");

    if ($self->content) {
      $compiler->emit(".namespace ${namespace}_THEN");
      $compiler->inden <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	7488	7639	
==>($1);

            s/^([A-Z_a-z][0-9A-Z_a-z]*)//
                and return $parser->_Identifier($1);

            s/^(\.\.\.)//
                a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6813	7103	
==>,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE|PARROT_JUMP_GNEXT",
                  "NAME" => "branch",
                  "FLAGS" => " <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	11422	11644	
==>} };
    my $base = $R->render();
    $base = "(?:$base)" if $R->needparen();
    if ($min == 0 && $max == 1) {
        $base .= "?";
    } elsif ($min == 0 && $max == -1) {
        $base .= "*";
    } elsif ($min == 1 && $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	18255	18454	
==>ION});
        }
        else
        {
            return $self->{VERSION};
        }
    }
    else
    {
        die "Parrot::OpsFile::version(): Illegal argument count" . scalar(@_) . "!";
    }
} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5535	5634	
==>$self->output_label_def($passLabel);
    return @ops;
}

sub output_initgroup {
    my ($self, $grou <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5228	5327	
==>$self->output_label_def($passLabel);
    return @ops;
}

sub output_initgroup {
    my ($self, $grou <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	15804	15920	
==>odo};

            my $pass = $builder->$meth( $real_output, $expected, $desc );
            $builder->diag("'$cmd' f <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	18355	18471	
==>odo};

            my $pass = $builder->$meth( $real_output, $expected, $desc );
            $builder->diag("'$cmd' f <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	113	264	
==>the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Token.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#
#

use stric <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20202	20329	
==>efine a C<run> just so
that users can call C<parse_file> etc, but you don't I<have> to.

And if you're not writing a formatter c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057153	1057458	
==>,
                  "CODE" => 1180,
                  "ARGS" => [
                              "p",
                              "kc",
                              "s"
                            ],
                  "BODY" => "#line 194 \"src/ops/var.ops\"\n    {{\@1}} = Parrot_get_global_p(interprete <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7546	7729	
==>or  die "In line rule name '$lhs' ill formed: ".
                        "report it as a BUG.\n";
                $$dotpos = $1;
            };

            @sempar =       $$dotp <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7200	7378	
==>or  die "In line rule name '$lhs' ill formed: ".
                        "report it as a BUG.\n";
                $$dotpos = $1;
            };

            @sempar =       $$dotp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405966	406375	
==>S" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 469,
                  "ARGS" => [
                              "s",
                              "i",
                              "sc" <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	54265	54422	
==>list context and is
expected to return a list of a single element, namely the extracted
text. It may optionally also return two further arguments: a string
re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78943	79035	
==>g(interpreter, ({{\@3}}));\n\n  void * const p = Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? NULL : P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80464	80556	
==>g(interpreter, ({{\@3}}));\n\n  void * const p = Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? NULL : P <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6575	6700	
==>dtime($source) > $target_mod;
    }

    return 0;
}

sub generate_dump {
    my ($pmc) = @_;

    if (needs_build("$pmc.dump" <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6786	6911	
==>dtime($source) > $target_mod;
    }

    return 0;
}

sub generate_dump {
    my ($pmc) = @_;

    if (needs_build("$pmc.dump" <==
2	/Users/nnunley/parrot/lib/Test/More.pm	33435	33535	
==>ike so:

=over 4

=item B<builder>

    my $test_builder = Test::More->builder;

Returns the Test::Bu <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	17477	17585	
==>urce )

=item $parser->set_source( \@document_lines )

=back

Or you can call these methods, which Pod::Simpl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53263	53372	
==>if ({{\@1}} != 0) { Interp_flags_SET(interpreter,   PARROT_GC_DEBUG_FLAG); }\n  else         { Interp_flags_CL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54019	54128	
==>if ({{\@1}} != 0) { Interp_flags_SET(interpreter,   PARROT_GC_DEBUG_FLAG); }\n  else         { Interp_flags_CL <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2804	2959	
==>{ return shift->{KIND}; }
sub type { return shift->{TYPE}; }
sub name { return shift->{NAME}; }

sub file { return shift->{FILE}; }
sub line { return shift- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	1849	1977	
==>{ return shift->{KIND};     }
sub type   { return shift->{TYPE};     }
sub name   { return shift->{NAME};     }
sub value  { retu <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10881	10983	
==>he instance from
the cache, and undefines it.

Raises an exception if the delete fails.

=cut

sub dele <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4715	4817	
==>he instance from the cache, and undefines it.

Raises an exception if the delete fails.

=cut

sub dele <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408688	409062	
==>S" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 472,
                  "ARGS" => [
                              "i",
                              "p", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018017	1018110	
==>rrot_gmtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = string_from_cstri <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018942	1019035	
==>rrot_gmtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = string_from_cstri <==
2	/Users/nnunley/parrot/config/inter/lex.pm	1611	1729	
==>lf->set_result('no');
        return $self;
    }

    if ($conf->options->get('ask')) {
        $prog = prompt($prompt <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	1625	1743	
==>lf->set_result('no');
        return $self;
    }

    if ($conf->options->get('ask')) {
        $prog = prompt($prompt <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192073	192586	
==>" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 228,
                  "ARGS" => [
                              "p",
                              "nc",
                              "ic"
                            ],
                  "BODY" => "#line 313 \"src/ops/cmp.ops\"\n  if ({{\@1}}-> <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	13132	13252	
==>"\tgoto FUNC_EXIT_$_\n";
	} elsif ($syms[NEXT] eq "sub") {
		push @{$code{$seg}->{code}}, qq{\tgoto END_$seg\n};
		feedme <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	412	513	
==>d to be in the C<package> C<Configure::Step>. See
F<docs/configuration.pod> for more information on ho <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	2761	2928	
==>',
             'exec_prefix' => '/opt/local',
             'execcapable' => 1,
             'flex_version' => undef,
             'float4_t' => 'float',
             ' <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11419	11537	
==>$rightres = $leftres
	$leftres = \$${righttype}99
SWAP
}

sub parse_stop {
	feedme();
	print CODE<<STOP;
	print "Stoppe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422221	422593	
==>S" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 485,
                  "ARGS" => [
                              "i",
                              "p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423116	423600	
==>S" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 486,
                  "ARGS" => [
                              "i",
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 567 \"src <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	1689	1941	
==>fn}",
            );
        }
        elsif ( $lua_test eq 'lua2pir' ) {
            @test_prog = (
                "luac languages/${lang_fn}",
                "l2p -o languages/${pir_fn} > nul",
                "$self->{parrot} languages/${pir <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13654	13866	
==>,
                  "CODE" => 18,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 231 \"src/ops/core.ops\"\n  opcode_t * loc;\n  s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11565	11676	
==>ditive \b \sbasedon10 pod-B;}
{\*\cs19 \additive \f1\lang1024\noproof\sbasedon10 pod-C;}
{\s20\ql \li0\ri0\sa180 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	50086	50277	
==>lua51.yp"
{
            PushScope( $_[0] );
        }
	],
	[#Rule 34
		 '_elseif_star', 6,
sub
#line 207 "Lua\lua51.yp"
{
            [ @{ $_[1] }, [ $_[3], $_[6] ] ];
        }
	] <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	2095	2488	
==>art_line' => 1 },
              'PIE'
            ],
            [
              'Para',
              { 'start_line' => 3 },
              'I like ',
              [
                'B',
                {},
                'pie'
              ],
              '!'
            ]
          ];

=head1 DESCRIPTION

This class is of interest to people writing a Pod processor/formatter.

This clas <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	4121	4259	
==>h;
    $module .= '.pm';
    
    my $dir = $self->existing_directory_with_name('lib');
    
    foreach my $name (@path)
    {
        ret <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	549	651	
==>> sub { $_[0]->name }
;

use Jako::Token;

use Jako::Construct::Type::Integer;
use Jako::Construct::Typ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2701	2812	
==>self)=shift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHEC <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2579	2681	
==>self)=shift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHEC <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552761	552898	
==>ect;\n  interpreter->current_cont = NEED_CONTINUATION;\n  interpreter->current_method = VTABLE_get_string(interpreter, method_pmc);\n  des <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	12247	12362	
==>ll add it here, and
maintain backwards compatibility as well.

- `eval_ok (Str $code, Str $desc?, Bool :$todo, Str : <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	43237	43359	
==>otelike ' tr/\\\/\\\\/\\\//ds; '

the full Perl quotelike operations are all extracted correctly.

Note too that, when usin <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9097	9214	
==>S

  use v6;
  require Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('Some::Module');
  use_ok('Some::Other: <==
2	/Users/nnunley/parrot/config/auto/memalign.pm	752	892	
==>n $self;
    }

    if (defined $conf->data->get('memalign')) {
        # already set; leave it alone
        $self->set_result('already set' <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	14595	14712	
==>ething_not_int, one HAS to use temporary
        # variables.  We detect and collect those to "temp".
        my @temp <==
2	/Users/nnunley/parrot/examples/benchmarks/fib.pl	35	125	
==>3, The Perl Foundation.
# $Id: /parrot/examples/benchmarks/fib.pl 19601 2006-05-30T13:32:26 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7712	7848	
==>of the file extracted from the C<NAME> section
of the POD documentation, if it exists. If an C<ABSTRACT> is found then
that is preferred. <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9361	9494	
==>{IN_ITEM_TEXT} = 0;
    }
    
    print {$self->{'output_fh'}} $self->{'Tagmap'}{"/$tagname"} || return;
    
    --$self->{DONT_WRAP <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5923	6026	
==>t pop anything it is unconditional, so next instruction needs to
	# have an empty stack type state propo <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3861	3964	
==>t pop anything it is unconditional, so next instruction needs to
	# have an empty stack type state propo <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8750	8860	
==>assed unexpectedly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Test:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042933	1043173	
==>_pmc_keyed_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043830	1044070	
==>_pmc_keyed_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3997	4121	
==>ent({ Name => 'return' });

  if (defined $cond) {
    $handler->end_element({ Name => 'block' });
    $handler->end_element( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945227	945474	
==>DE" => 1063,
                  "ARGS" => [
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 521 \"src/ops/string.ops\"\n  {{\@1}} = string_copy(interpreter, Parro <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	4722	4916	
==>elf->at($i);

    printf STDERR "%6d : %-30s : %5s : %-15s: %1s : %s\n",
      $i,
      $tok->file,
      $tok->line,
      $tok->kind,
      $tok->type || '',
      $tok->text;

    last if $to <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	264	408	
==>5.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expression::Value::Literal;

use Carp;

use base qw(Jako::Constru <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	254	372	
==>5.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expression::Value;

use base qw(Jako::C <==
2	/Users/nnunley/parrot/languages/javascript/bootstrap.pm	397	568	
==>ind_function(
	name => "debug",
	func => sub {
		warn Dumper(@_);
	});


my $rval = $context->eval(q!
	Object.prototype.__defineProperty__ = function (a,b,c,d,e) {
	};
	deb <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	1395	1504	
==>DOUT => $py_out_f);
    my $py_file = Parrot::Test::slurp_file($py_out_f);
    my $pirate_file;

    $exit_cod <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8320	8468	
==>ebug & 0x04
#DBG>		and	print STDERR "Back to state $$stack[-1][0], then ";

                $$check eq 'ERROR'
            or  do {
#DBG>				$de <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7941	8084	
==>ebug & 0x04
#DBG>		and	print STDERR "Back to state $$stack[-1][0], then ";

                $$check eq 'ERROR'
            or  do {
#DBG>				$de <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	3177	3270	
==>arrot_PMC Parrot_lib_${lc_libname}_load(Parrot_INTERP interpreter); /* don't warn */
Parrot_PM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	153957	154274	
==>d_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_NUMEQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3503	3614	
==>stance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) = @_;

    #print STDERR "pbcc <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3302	3413	
==>stance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) = @_;

    #print STDERR "pbcc <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	1049	1185	
==>7,
	ParrotClass => 48,
	ParrotObject => 49,
	OS => 50,
	File => 51,
	AddrRegistry => 52,
	Bound_NCI => 53,
	deleg_pmc => 54,
	Enumerate = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42603	42992	
==>RROT_JUMP_RESTART",
                  "NAME" => "exit",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 54,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41914	42237	
==>RROT_JUMP_RESTART",
                  "NAME" => "exit",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 53,
                  "ARGS" => [
                              " <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	14592	14705	
==>r expression, or undef if it's argument is not recognised.

For example, a version of like(), sans the useful diag <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	216	336	
==>::Pmc2c;

=head1 DESCRIPTION

C<Parrot::Pmc2c> (and the L<subclasses|/SUBCLASSES> defined in this
file) is used by F<tool <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615049	615339	
==>ss not parent of object\");\n    }\n    {{\@1}} = offset;\n    {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616200	616490	
==>ss not parent of object\");\n    }\n    {{\@1}} = offset;\n    {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	803	979	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub handle_text {  $_[0]{'Thispara'} .= $_[1] }

sub start_Para  {  $_[0]{'Thispara'} = '' }
sub start_head1 {  $_[0]{'Thispara'} = '' } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832100	832185	
==>ck_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}), STACK_ENTRY_F <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832828	832913	
==>ck_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}), STACK_ENTRY_F <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712306	712404	
==>python.ops\"\n  PMC * const io = PIO_STDOUT(interpreter);\n  STRING *s;\n  if (PIO_softspace(interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713413	713511	
==>python.ops\"\n  PMC * const io = PIO_STDOUT(interpreter);\n  STRING *s;\n  if (PIO_softspace(interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	358	457	
==>C<switch>ed run loop.

=head2 Instance Methods

=over 4

=cut

package Parrot::OpTrans::CSwitch;

us <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	53250	53397	
==>bably overrides one of either \cm or \cj
  '"' => '\"',
  '\\' => '\\\\',
  '$' => '\\$',
  '@' => '\\@',
  '%' => '\\%',
  '#' => '\\#',
);

sub pr <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	445	559	
==>(I B C L E F S X Z); 
%Known_formatting_codes = map(($_=>1), @Known_formatting_codes);
@Known_directives       = qw <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	6121	6213	
==>lib_t ${bs}op_lib;

END_C

my $text = $ops->preamble($trans);
$text =~ s/\bops_addr\b/${bs}op <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	28699	28799	
==>code{$seg}->{code}}, qq{\t.param $t $_\n};
			push @{$code{$seg}->{args}}, $_;
		} else {
			s/\(\)// <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	1388	1611	
==>, $args, %opts) = @_;

    $DB::single = 1 if ref $name;
    my $self = bless { name => $name,
                       args => $args || [],
                       %opts }, (ref($class) || $class);

    $self->init();
    retu <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	1106	1208	
==>nt_seen;

    # Suppress the warning in the tests.
    $self->{RESOURCES_URL} = '' unless $self->{RESOU <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1754	1854	
==>cted %d, got %d) in call to '%s'.",
    scalar(@formal_args), scalar(@args), $name)
    unless @forma <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1454	1554	
==>cted %d, got %d) in call to '%s'.",
    scalar(@formal_args), scalar(@args), $name)
    unless @forma <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	11070	11179	
==>s no significant speed gain between compile time and run time
class creation, there is just a new, more standa <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23933	24040	
==>d $::RD_TRACE;
		') . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) .'

		$_tok = undef;
		' . ($self <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	626	758	
==>{ $_ => 0 } (0..31) },
    P => { map { $_ => 0 } (0..31) },
  };
};

sub _save {
  my $self  = shift;
  my $count = shift;
  my $typ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5217	5323	
==>my $op    = $self->op;
  my $right = $self->right;

  $handler->start_element({ Name => 'assign' });
  $des <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3280	3386	
==>my $op    = $self->op;
  my $right = $self->right;

  $handler->start_element({ Name => 'assign' });
  $des <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	18347	18484	
==>other local variable would
# (somehow, they'll get saved on the stack.)

sub rewrite_greedy_range {
    my ($self, $op, $R, $min, $max, $l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454183	454647	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 521,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455892	456360	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 523,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	457601	458080	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 525,
                  "ARGS" => [
                              "n",
                              "nc",
                              "n"
                            ],
                  "BODY" => "#line 240 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459312	459609	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 527,
                  "ARG <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	11708	11813	
==>p_and {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_consta <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9529	9669	
==>directories);
    $path = File::Spec->catfile($path, $name);
    
    return $path;
}

=item C<relative_path_is_directory($path)>

Returns wh <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	8811	8941	
==>OPEN;
@code	noop
	_OPEN($result,"$mode",$fd)
OPEN
}
sub parse_close {
	feedme();
	die "Expecting # at $sourceline" unless $syms[CUR <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	14375	14500	
==>aracter (like space, for 32).  Only characters 32 to 126 are
defined.  This is meant for use by C<e2char($x)> when it senses
t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95725	95894	
==>c",
                              "s"
                            ],
                  "BODY" => "#line 63 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_and(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462275	462612	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 530,
                  "ARGS" => [
                              "n <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	8095	8220	
==>tval" unless $ret_type eq 'void';
        $funcs .= ";\n}\n\n";

    }

    return ($funcs, $protos);
}

sub find_type
{
    m <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	12098	12268	
==>lsif ( $func =~ m/^pbc_output_/ ) {
                $code_f = per_test('.pbc', $test_no);
            }
            else {
                die "Unknown test function: $fun <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4340	4457	
==>tput_match {
    my ($self, $code, $failLabel) = @_;
    my $comment = Regex::Ops::Tree::isplain($code) ? " # match '" <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4027	4144	
==>tput_match {
    my ($self, $code, $failLabel) = @_;
    my $comment = Regex::Ops::Tree::isplain($code) ? " # match '" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5011	5135	
==>lobal \"$dest_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  m <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3074	3198	
==>lobal \"$dest_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  m <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	3321	3473	
==>unless my @files = get_files( %options );

    set_flags( %options );

    local $Test::Harness::Switches = '';
    runtests(@files);
}

1;

# vim: expan <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	6536	6721	
==>ing of ops in file '$orig'!\n"
            unless defined $self->version;

        #
        # Handle start-of-op:
        #
        # We create a new Parrot::Op instance based on the ty <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	66591	66713	
==>m($item)
						      or  _no_rule("repetition",$line,"$code$argcode(..$1)");

						!$matchrule and $rule and $rule->addcal <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361618	361716	
==>" => "#line 281 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(inter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362517	362615	
==>" => "#line 281 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(inter <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	4531	4670	
==>able/) {
            push @installable_exe, [$src, $dest];
            next;
        }
    } elsif ($meta{include}) {
        $dest =~ s/^in <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	8302	8438	
==>ame' => '-install_name /opt/local/lib/libparrot.dylib',
             'libparrot_static' => 'libparrot.a',
             'libs' => '-lm -lg <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473615	474092	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 543,
                  "ARGS" => [
                              "n",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 40 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960449	960910	
==>_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1081,
                  "ARGS" => [
                              "s",
                              "s",
                              "i"
                            ] <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Ops.pm	5	95	
==>yright (C) 2004, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Docs/Section/Ops.pm 20333 2 <==
2	/Users/nnunley/parrot/lib/Test/More.pm	28131	28236	
==>re equivalent.  This is a deep check, so
multi-level structures are handled correctly.

=cut

#'#
sub eq_a <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5492	5601	
==>ft;
    return <<'PIR';
# See if we've got a return or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RE <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6937	7045	
==>ft;
    return <<'PIR'
# See if we've got a return or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RE <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	39552	39670	
==>ort of adapted from Text::Tabs -- yes, it's hardwired in that
              # tabs are at every EIGHTH column.  For por <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	5596	5905	
==>type} eq 'int' ? ''       : "'";
            my $default = $arg->{default};
            
            $code .= "  goto done_$name \n";
            $code .= "default_$name: \n";
            $code .= emit("a_$name = new .$type");
            $code .= emit("a_$name = $quote$default$quote");
            $code .= " <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35724	35839	
==>ed"} || $_[0]->{"subrule"};
	$desc = "<matchrule:$desc>" if $_[0]->{"matchrule"};
	return $desc;
}

sub callsyntax($ <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	3050	3213	
==>/usr/lib',
                includedir  => '/usr/include',
                docdir      => '/usr/share/doc',
                'dry-run'   => 0,
              );

my @m <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	23084	23382	
==>st('.ilk', $test_no);

            open my $SOURCE, '>', $source_f or die "Unable to open '$source_f'";
            binmode $SOURCE;
            print $SOURCE "/* DO NOT EDIT - Autogenerated test file */\n";
            print $SOURCE $source;
            close $SOURCE;

            my $libparrot_sh <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	56096	56238	
==>\"$@\"", $line);
					_hint("The <token:...> directive requires a list
					       of one or more strings representing possible
					       typ <==
2	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	424	546	
==>ble (not automatic for cxx, as it is for cc)
        $ccflags .= ' -D_XOPEN_SOURCE=500';
    }
    $conf->data->set(ccflags <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482167	482503	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 552,
                  "ARGS" => [
                              " <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	1999	2125	
==>($pf->byte_code);

    # First instruction in bytecode must be the leader of a block
    $leaders{$new_pc} = 1;

    # This loo <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4550	4652	
==>x)>

Returns the C code for the ops address declaration.

=cut

sub ops_addr_decl
{
    my ($self, $bs) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	212535	212780	
==>ess( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le_num",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
2	/Users/nnunley/parrot/config/gen/cpu/x86_64/auto.pm	10	104	
==>ME

config/gen/cpu/x86_64/auto.pl

=head1 DESCRIPTION

Adds -fPIC to x86_64 (AMD64) ccflags, if <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10944	11118	
==>]=4..x and [10,x]=10..x
            if ($incexc[-1] <= $last+1) {
                $incexc[-1] = $last+1;
            }
        } else {
            # Append
            push @ <==
2	/Users/nnunley/parrot/tools/dev/gen_class.pl	302	418	
==>ON

Use this script to generate a template PMC file with stubs for all the
methods you need to fill in. See F<docs <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20546	20669	
==>=> 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 115,
			'functioncall' => 31,
			'function' => 26,
			'tableco <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	1310	1489	
==>> 4 and 
   print "# Parsing starting at line ", $self->{'line_count'}, ".\n";

  DEBUG > 5 and
   print "#  About to parse lines: ",
     join(' ', map defined($_) ? "[$_]" : "EOF <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	2008	2326	
==>n";


##############################################################################
# Subroutines.
##############################################################################

# Parse rules file and build a data structure.
# ############################################
sub parse_rules($) {
    # Get filename and o <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	8629	8861	
==>($ok == 2) { $mismatch_at = $idx; }
            $ok = 0;
        } else {
            $ok = 2 if $ok == 1;
        }
        $idx++;
    }

    if (! $ok) {
        if ($mismatch_at >= 0) {
            error($file, 0, "Ending boilerp <==
2	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	464	566	
==>d returns it.

=cut

# cache for repeated calls
# XXX this could be in BEGIN block
my ( $parrot_version <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1764	1878	
==>arg
{
    my $self = shift;

    return $self->{ARGS}[shift];
}

=item C<goto_address($address)>

Transforms the C< <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1379	1493	
==>arg
{
    my $self = shift;

    return $self->{ARGS}[shift];
}

=item C<goto_address($address)>

Transforms the C< <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	8845	8942	
==>b write_function_coverage_summary {

    print "Writing $HTMLDIR/function_summary.html..\n" if $DE <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1845	1939	
==>t implementation raises an exception indicating
that the core type is missing. See the C<Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003029	1003629	
==>S" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1120,
                  "ARGS" => [
                              "i",
                              "ic",
                              "sc",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\ <==
2	/Users/nnunley/parrot/config/auto/inline.pm	146	298	
==>g/auto/inline.pm - Inline Compiler Support

=head1 DESCRIPTION

Determines whether the compiler supports C<inline>.

=cut

package auto::inline;

use str <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101157	101416	
==>+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103363	103622	
==>+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507821	508118	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 584,
                  "ARG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	394165	394449	
==>\@1}} = (INTVAL)PIO_tell(interpreter, {{\@2}});\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	20597	20732	
==>'section', 'to') {        
            if(defined($thing = $treelet->[$i][1]{$attrname}) and ref $thing) {
              unshift @stack, <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	42081	42212	
==>'section', 'to') {        
          if(defined($thing = $treelet->[$i][1]{$attrname}) and ref $thing) {
            unshift @stack, <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	760	1013	
==>as its C compiler
        $link = 'icc';

        # don't allow icc to pretend it's gcc
        $cflags .= ' -no-gcc';

        # suppress sprintf warnings that don't apply
        $cflags .= ' -wd269';
    } else {

        # --export-dynamic, s. info g <==
2	/Users/nnunley/parrot/config/auto/socklen_t.pm	287	387	
==>rict;
use warnings;

use base qw(Parrot::Configure::Step::Base);

use Config;

use Parrot::Configure: <==
2	/Users/nnunley/parrot/config/auto/jit.pm	331	430	
==>rict;
use warnings;

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Configure: <==
2	/Users/nnunley/parrot/lib/File/Which.pm	2712	2969	
==>E.
                 and -e _)
                ) and !-d _)
            {                   # and finally, we don't want dirs to pass (as they are -x)

# print STDERR "-x: ", -x $file, " -e: ", -e _, " -d: ", -d _, "\n";

                    return $file unle <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	1356	1472	
==>nd\n";
  print "# We are under a Unicode-safe Perl.\n";
}

# Design note:
# This is a parser for Pod.  It is not a pa <==
2	/Users/nnunley/parrot/lib/Test/More.pm	249	372	
==>le, $line) = (caller(1))[1,2];
    warn @_, " at $file line $line\n";
}



require Exporter;
use vars qw($VERSION @ISA @EXPO <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2094	2197	
==>elf->{TEXT}</p>\n\n" . $index_html if $self->{TEXT};
		$index_html = qq(<h2>$self->{NAME}  <a href="#_to <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30807	30902	
==>eturn $code;
}

1;

package Parse::RecDescent::InterpLit;

sub sethashname { $_[0]->{hashname} = <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6747	6898	
==>"
            goto match_end
          match_fail:
            print "failed"
          match_end:
        .end\n);

    return $pirCode;
}

sub _genera <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409849	410111	
==>E" => 473,
                  "ARGS" => [
                              "i",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 545 \"src/ops/io.ops\"\n    STRING *dest = {{\@3}};\ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2770	2868	
==>:Construct::Type::Integer');
  $self->SYNTAX_ERROR("Can only do bitwise ops on integers") unless UN <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2900	2998	
==>:Construct::Type::Integer');
  $self->SYNTAX_ERROR("Can only do bitwise ops on integers") unless UN <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	4308	4465	
==>ltin\n" unless exists $built_ins{$name};

  my $self = Scheme::Builtins->new();

  for (@{$built_ins{$name}}) {
    my ($label, $op, @args) = @$_;
    $self-> <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	20278	20402	
==>= ($ret_type)(*pointer)($params);
    $ret_reg  = return_data;
    REG_INT(0) = $stack_returns;
    REG_INT(1) = $int_returns <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	2747	2898	
==>thod specified yet?
        } elsif (!$cur_method) {
            die "Syntax error at line $line_count\n";

        # Have we got a non-blank line in an <==
2	/Users/nnunley/parrot/config/auto/format.pm	116	277	
==>5Z coke  $

=head1 NAME

config/auto/format.pm - Sprintf Formats

=head1 DESCRIPTION

Figures out what formats should be used for C<sprintf()>.

=cut

package aut <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	12972	13102	
==>ft;

    open(my $fh, '<', $filename) or die "Can't open $filename: $!";
    my $text = do {local $/; <$fh>};
    close($fh) or die <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	1	112	
==>!/usr/bin/perl -w

use strict;

=head1 NAME

gen_inline.pl

=head1 SYNOPSIS

 %perl languages/tcl/tools/gen_inli <==
2	/Users/nnunley/parrot/lib/Test/More.pm	22149	22245	
==>s as being ok.
Should anything succeed, it will report it as an unexpected success.
You then know <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	504	784	
==>espace>][#<comment>]
    ...
Empty lines and lines containing only whitespace or comment are ignored.
The types specifiers are documented in F<src/call_list.txt>.

=head1 SEE ALSO

F<src/call_list.txt>.
F<docs/pdds/pdd16_native_call.pod>.

=cut


use strict;
use warnings;

my $opt <==
2	/Users/nnunley/parrot/config/gen/platform.pm	5333	5483	
==>TFORM_C <<"END_HERE";
/*
** $_:
*/
#line 1 "$_"
END_HERE
            print PLATFORM_C <IN_C>, "\n\n";
            close IN_C;
        }
    }

    clos <==
2	/Users/nnunley/parrot/config/inter/make.pm	813	958	
==>ving it
    $conf->data->set(gmake_version => undef);

    my $prog;

    # precedence of sources for the program:
    # default -> probe -> envir <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	10451	10733	
==>output_isnt   => 'isnt_eq',
        pasm_output_like   => 'like',
        past_output_is     => 'is_eq',
        past_output_isnt   => 'isnt_eq',
        past_output_like   => 'like',
        pir_output_is      => 'is_eq',
        pir_output_isnt    => 'isnt_eq',
        pir_output_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	26370	26807	
==>re",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 35,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 452 \"src/ops/core.ops\ <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	4288	4434	
==>e_slashes                => 1
    );
    genfile(
        'languages/HQ9plus/config/makefiles/root.in' => 'languages/HQ9plus/Makefile',
        com <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1120	1219	
==>token->text_r()

This returns a scalar reference to the string that this token holds.
This can be us <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818955	819199	
==>" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "entrytype",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819039	819308	
==>" => 0,
                  "NAME" => "entrytype",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functio <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819998	820267	
==>" => 0,
                  "NAME" => "entrytype",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functio <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	2761	2859	
==>.param int register
  .param pmc argv

  .local pmc compiler
  .get_from_HLL(compiler, '_tcl', 'com <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4908	5060	
==>def unless length $out;
  return $out;  
}


sub resolve_pod_page_link {
  my($self, $to) = @_;
  
  return 'TODO';
}

sub do_url_link { return $_[1]->at <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	37585	37707	
==>ning tag that was matched (I<not> the pattern
that matched the tag). For example, if the opening tag pattern
is specified a <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	1602	1791	
==>ink
{
	return '';
}

=item C<write_html($source, $target, $silent)>

C<write_html()> is called on each item in the group.

Some HTML-formatted text describing the files linked to is returned <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4378	4520	
==>lf, $core) = @_;

    return "opcode_t * " .
        $self->core_prefix .
        "$core(opcode_t *cur_op, Parrot_Interp interpreter)";
}

=ite <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2866	3008	
==>lf, $core) = @_;

    return "opcode_t * " .
        $self->core_prefix .
        "$core(opcode_t *cur_op, Parrot_Interp interpreter)";
}

=ite <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14423	14592	
==>odule_name;

  return sprintf <<'END', 
\deflang%s\plain\lang%s\widowctrl
{\header\pard\qr\plain\f2\fs%s
%s
p.\chpgn\par}
\fs%s

END
    ($self->doc_lang) x 2,
    $self- <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	14277	14523	
==>{Mismatched closing bracket at "} .
					     substr($$textref,pos($$textref),20) .
					     qq{...". Expected '$closing'},
					 pos $$textref;
			}
			last;
		}

		if (_match_variable($textref,'\s*') ||
		    _match_quotelike($textref,'\s*',$pa <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7043	7155	
==>e   = defined $options{fail} ? $options{fail} : '';
	my $bad     = ref($options{reject}) eq 'ARRAY' ? join('|', @ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24045	24157	
==>e   = defined $options{fail} ? $options{fail} : '';
	my $bad     = ref($options{reject}) eq 'ARRAY' ? join('|', @ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921029	921295	
==>}=Parrot_psprintf(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921922	922188	
==>}=Parrot_psprintf(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349269	349384	
==>f(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=3}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350271	350386	
==>f(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=3}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	7827	8037	
==>LER::SUBNAME ~ ' ') >= 0) {
        Test::diag("  $wanted: '" ~ ($expected.defined ?? $expected !! "undef") ~ "'");
        Test::diag("    Actual: '" ~ ($got.defined ?? $got !! "undef") ~ "'");
    }
    else { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430274	430594	
==>i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 494,
                  "ARGS" => [
                              "ic",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 74 \"src/op <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	2528	2670	
==>ess \@_;\n";

    my $cnt = 0;
    my $idx = 0;
    my( $cmt, $name, $type, $elem );

    if( $base_type eq 'HASH' ){
        $out .= "    my(\ <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	10613	10828	
==>map { $arg_dir_mapping{$_} } $op->arg_dirs
            : 0
        ) . " }";
        my $labels     = "{ " . join(", ",  scalar $op->labels
            ? $op->labels
            : 0
        ) . " }";
        my $flag <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	28291	28411	
==>pty string is returned.

=item [1]

The remainder of the input string (i.e. the characters after the
extracted string). O <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	7712	7801	
==>s_deeply &Test::todo_is &Test::todo_isnt &Test::todo_cmp_ok &Test::todo_eval_is &Test::tod <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	456	591	
==>ead1 DESCRIPTION

Use a detailed MANIFEST to install a set of files.

=head2 Options

=over 4

=item C<buildprefix>

The build prefix. D <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	913	1010	
==>onfess "Op is not scalar!" if ref $op;
  confess "Right is not Value!" unless UNIVERSAL::isa($righ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	925	1022	
==>onfess "Op is not scalar!" if ref $op;
  confess "Right is not Value!" unless UNIVERSAL::isa($righ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863361	863650	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bytelength",
                  "FLAGS" => ":base_mem",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864252	864541	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bytelength",
                  "FLAGS" => ":base_mem",
                  " <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	42180	42303	
==>t('', 'set', ['P0', $func_obj]) unless $func_obj eq 'P0';
  $self->_add_inst('', 'set', ['I0', 0]);        # Pass all args i <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	36691	36849	
==>tter 'q' as a delimiter. Hence:

	@result = extract_bracketed( $text, '<q>' );

would correctly match something like this:

	$text = '<leftop: conj /and/ conj> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1408	1549	
==>{
    $compiler->emit("${prefix}_CONT:");

    if ($self->content) {
      $compiler->emit(".namespace ${namespace}_CONT");
      $compiler->i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613004	613262	
==>tr_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613911	614169	
==>tr_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	495	606	
==>ght) = @_;

  confess "Block is not defined!" unless defined $block;
  confess "Left is not defined!" unless def <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	507	618	
==>ght) = @_;

  confess "Block is not defined!" unless defined $block;
  confess "Left is not defined!" unless def <==
2	/Users/nnunley/parrot/config/auto/funcptr.pm	463	579	
==>he compiler supports function pointer casts';

@args = qw(verbose);

sub runstep
{
    my ($self, $conf) = @_;

    m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846121	846428	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846916	847223	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "in <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1712	1854	
==>rot}), 
                    File::Spec->join($path_to_language, 'HQ9plus.pbc'),
                    $lang_fn ) );

        Parrot::Test::write_ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	43438	43557	
==>mpilation of Parse::RecDescent grammars not yet implemented\n";
}

sub DESTROY {}  # SO AUTOLOADER IGNORES IT

# BUILDIN <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	1607	1752	
==>{pir_fn} languages/${lang_fn}",
                "$self->{parrot} languages/${pir_fn}",
            );
        }
        elsif ( $lua_test eq ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017893	1018004	
==>DY" => "#line 182 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  char resultbuffe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018818	1018929	
==>DY" => "#line 182 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  char resultbuffe <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1331	1432	
==>an find register type).
dec ${ITEMP0}
${PTEMP0} = ${STYPES}[${ITEMP0}]

# Assign register name.
${STEM <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3041	3142	
==>an find register type).
dec ${ITEMP0}
${PTEMP0} = ${STYPES}[${ITEMP0}]

# Assign register name.
${STEM <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18784	18947	
==>close_paren;
          $self->require_comma;
        }
      }

      $self->require_close_paren;
      $self->require_semicolon;

#      $self->DEBUG(0, "Assemblin <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19810	19937	
==>close_paren;
          $self->require_comma;
        }
      }

      $self->require_close_paren;
      $self->require_semicolon <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30046	30233	
==>BDISP
	foreach (keys %subs) {
		print FUNC qq{\teq S0, "$_", SUB_$_\n};
	}
	print FUNC<<SUBEND;
	goto SUB_DISPATCH_END
SUB_DISPATCH_END:
	ret
SUBEND
}
sub parse_struct_copy_dispatch {
	got <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22049	22151	
==>children}[1]);
  $self->_add_inst(''           ,'lt'    ,[$temp,0,"DONE_$label"]);
  $self->_restore($t <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1519	1665	
==>utput, $output, $desc );
        #goto &{"Test::More::$meth"};
        my $ok = &{"Test::More::$meth"}( @_ );
        # if( $ok ) { foreach my $met <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1435	1581	
==>utput, $output, $desc );
        #goto &{"Test::More::$meth"};
        my $ok = &{"Test::More::$meth"}( @_ );
        # if( $ok ) { foreach my $met <==
2	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	1328	1496	
==>uld keep the runtime stack clean

MAINLOOPNR:
	set I20, 0    # Interactive mode
	set S0, ""
	
	set S0, ""
	read S0, 256
	length I1, S0
	eq I1, 1, MAINLOOPR
	save S0
	bsr <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	5747	5877	
==>ely anchor pmc to root set */
    interpreter->pmc_reg.registers[0] = userargv;

    for (i = 0; i < argc; i++) {
        /* Run th <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	14685	14769	
==>parse_file($source);
}

#------------------------------------------------------------ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	13763	13910	
==>,
			'CHAR' => 4,
			"<" => 3,
			"[" => 14,
			'CODE' => 6,
			"." => 15
		},
		GOTOS => {
			'expr' => 38,
			'charclass' => 12
		}
	},
	{#State 2 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	2236	2349	
==>s{'contents'} )
    {
        push @contents, @{$contents{'contents'}};
    }
    
    return $self->new_item($tex <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	748	852	
==>elf.
#
# This notice should remain unchanged.
#
# (c) Copyright 1998-2001 Francois Desarmenien, all r <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	728	828	
==>elf.
#
# This notice should remain unchanged.
#
# (c) Copyright 1998-2001 Francois Desarmenien, all r <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	18406	18540	
==>_grouped, $groups{$_}->[0];
        } else {
            # Strip first code from all the groups.
            foreach (@{$groups{$_}}) { <==
2	/Users/nnunley/parrot/config/init/hints.pm	550	669	
==>step
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    my $hints_used = 0;

    my $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5511	5624	
==>act,$stateno);

        $stateno=$$stack[-1][0];
        $actions=$$states[$stateno];

#DBG>	print STDERR ('- <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5246	5354	
==>act,$stateno);

        $stateno=$$stack[-1][0];
        $actions=$$states[$stateno];

#DBG>	print STDERR ('- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449226	449392	
==>> [
                              "p"
                            ],
                  "BODY" => "#line 190 \"src/ops/math.ops\"\n  {{\@1}}->vtable->i_absolute(interpr <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1228	1380	
==>asm_f @other",
            CD => '..', # $self->{relpath}, 
            STDOUT => $out_f, STDERR => $out_f, 
        );
        my $prog_output = Parrot: <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	19490	19602	
==>o search for the PMC dump files.

=cut

sub gen_c {
    my ($include, @files) = @_;
    my %pmcs = map { $_, read <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	1140	1270	
==>one or two letter
descriptors.

Op Direction:

    i   The argument is incoming
    o   The argument is outgoing
    io  The argume <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	25634	25750	
==>~ ~ ~

    if($para_type eq '=pod') { #//////////////////////////////////////////////
      $self->whine(
        $pa <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	661	757	
==>ch_codeblock($$$$$$$);
sub _match_quotelike($$$$);

# HANDLE RETURN VALUES IN VARIOUS CONTEXTS

s <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	5486	5581	
==>fc1483df6e21

provided that the implementation is working correctly.  The same
checksum can also <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	27291	27425	
==>ring = gen_delimited_pat(q{'"`/});


# Generate a reference to an anonymous sub that is just like extract_tagged
# but pre-compiled and <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	8544	8644	
==>_inst('', '# new_pad', [-1]);
  my $oldscope = $self->{scope};
  $self->{scope} = { '*UP*' => $oldsco <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2565	2699	
==>undef,            # No properties
    undef,            # No args
    $self->file,
    $self->line
  );

  $block->set_symbol($self->na <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2844	2976	
==>undef,           # No properties
    undef,           # No args
    $self->file,
    $self->line
  );

  $block->set_symbol($self->na <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	27072	27197	
==>gs, $lastback);
    } else {
        return ($lastback, aop('external' => [ $extname, $extargs, $lastback ]));
    }
}

sub de <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7443	7709	
==>ef unless $self->block;

  return $self->block->find_block($kind, $label);
}


###############################################################################

=head2 BLOCK->type_of_ident(NAME)

This is a shortcut method that uses find_symbol() to locate a matching
s <==
2	/Users/nnunley/parrot/config/auto/gdbm.pm	1277	1409	
==>flags    => '-I/sw/include');
        }
    }

    cc_gen('config/auto/gdbm/gdbm.in');
    if ($^O =~ /mswin32/i) {
        if ($cc = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681004	681459	
==>> 0,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 764,
                  "ARGS" => [
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 507 <==
2	/Users/nnunley/parrot/config/auto/gc.pm	3	95	
==>opyright (C) 2001-2005, The Perl Foundation.
# $Id: /parrot/config/auto/gc.pm 19593 2006-05-3 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5662	5761	
==>, EQ_${eqnum}_a
	inc $result
EQ_${eqnum}_a:
	eq $a2, $ot2, EQ_$eqnum
	dec $result
EQ_$eqnum: eq $res <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	24883	25041	
==>=> $build_f);
            $builder->diag("'$cmd' failed with exit code $exit_code")
        if $exit_code;

            if (! -e $exe_f) {
                $bui <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	24122	24260	
==>=> $build_f);
            $builder->diag("'$cmd' failed with exit code $exit_code")
                if $exit_code;

            if (! -e $o <==
2	/Users/nnunley/parrot/config/auto/va_ptr.pm	202	359	
==>ead1 DESCRIPTION

Tests which kind of PARROT_VA_TO_VAPTR to use.

=cut

package auto::va_ptr;

use strict;
use vars qw($description @args);

use base qw(Parro <==
2	/Users/nnunley/parrot/lib/File/Which.pm	8	134	
==>File::Which;

use strict;

require Exporter;

@File::Which::ISA       = qw(Exporter);

@File::Which::EXPORT    = qw(which);
@Fi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	15138	15419	
==>nt) {
          $self->SYNTAX_ERROR("No more than one else block allowed.");
        }
      }

      #
      # Handle the ending of subroutine blocks:
      #

      elsif ($peer_block->kind eq 'sub') {
        # DO NOTHING
      }

      #
      # Handle the ending of module bloc <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	2852	3043	
==>>pass1($t, $ctx)]);
            }
        }

        # opt(aR|aS) -> a opt(R|S)
        # opt(aR|aS|aT) -> a opt(R|S|T)
        # opt(aR|aS|bT) -> (a opt(R|S) | opt(bT))
        # opt(R|...) - <==
2	/Users/nnunley/parrot/config/inter/make.pm	1435	1572	
==>fall back to default
            $self->set_result('no');
            return $self;
        }
    }

    if ($conf->options->get('ask')) { <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	5111	5226	
==>espace{$arg};
    my $real_name = $arg;
    my $meth = '';
    if ($ns) {
	$meth = ', method';
	$nst = qq!.namespace <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2754	2878	
==>args[$i]->compile($compiler);
      $compiler->emit("  $temp = $value");
      $args[$i] = $temp;
    }
    else {
      $arg <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2454	2578	
==>args[$i]->compile($compiler);
      $compiler->emit("  $temp = $value");
      $args[$i] = $temp;
    }
    else {
      $arg <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	26064	26244	
==>const p = CONTEXT(interpreter->ctx)->current_cont;\n  opcode_t * const dest = (opcode_t *)p->vtable->invoke(interpreter, p, {{^+1}});\n  {{=dest}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	988	1176	
==>abetics.
	new P22, .PerlHash     # ??
	new P23, .PerlHash     # ??
	new P24, .PerlArray    # Line numbers
	time I24  	       # Seed the random number generator

	save 0  # Initialize the ru <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	17379	17740	
==>oss=>1),
                   or:  breed    => {name=>'short-hair', cross=>1},
                      );

    print "Once a cat called ", $cat->name, "\n";
    print "(which was a ", $cat->breed->name, ")\n";
    print "had two kittens: ", join(' and ', @{$cat->kittens}), "\n";

=back

=head1 Author and Modification History

Modified by Damian Conway, 2001-09-10, <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	979	1079	
==>sion::Value::Identifier');
  confess "Left is not Value!" if defined $left and not UNIVERSAL::isa($le <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1007	1107	
==>sion::Value::Identifier');
  confess "Left is not Value!" if defined $left and not UNIVERSAL::isa($le <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	445	688	
==>e.pir"
.include "languages/lua/lib/luapackage.pir"
.include "languages/lua/lib/luastring.pir"
.include "languages/lua/lib/luatable.pir"
.include "languages/lua/lib/luamath.pir"
.include "languages/lua/lib/luaio.pir"
.include "languages/lu <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10689	10787	
==>e', 'e', 'e', 'i', 'i', 'i', 'i',
'd', 'n', 'o', 'o', 'o', 'o', 'o', qq{/}, 'o', 'u', 'u', 'u', 'u' <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	1442	1608	
==>th - in them.
        $test =~ s/-/_/g;
        system("rm $test") if -e $test;

        open my $ffh, '<', $file;
        %tests = extract_tests( do{undef local $/;<$ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1981	2061	
==>\*\+,\.\/\:\;=\?\~\[\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUV <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3383	3486	
==>-quote with an unescaped '$'.
      $string = substr($string, 1, -1); # Without the surrounding double q <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1702	1804	
==>-quote with an unescaped '$'.

    $string = substr($string, 1, -1); # Without the surrounding double q <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39422	39603	
==>$parser,
        'result' => $fct,
        'arg1'   => $fct->{symbol},
        'type'   => 'Sub',
    );
    push @opcodes1, new NewClosureOp( $parser,
        'result' => $res <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	1408	1559	
==>psis.

=item C<--dynamic>

Indicate that the opcode library is dynamic.

=item C<--core>

Build the Parrot core opcode library.

=item C<--no-lines>

Do <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	15955	16062	
==>TOS;
	I5= P13
	div I5, I5, 2
CASE_${jump}_${incase}_STARTTO:
	eq I5, 1, CASE_${jump}_${incase}_NO_TO
	push P <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	500	660	
==>G and print "New $class handle on $x = \"$$x\"\n";
  
  my $new = gensym();
  tie *$new, $class, $x;
  return $new;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	28737	28863	
==>\n};
			push @{$code{$seg}->{args}}, $_;
		} else {
			s/\(\)//g;
			$_=changename($_);
			#print STDERR "Marking ${_}${seg}\n" <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2275	2409	
==>e
        $@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exists <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2192	2314	
==>e
        $@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exists <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3321	3434	
==>end function
call mysub( 78, 80)
t$=foo$
print t$
t=0
do
	print "This is right"
	exit do
	print "This is wrong"
	t <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	36175	36298	
==>eturns[-1]->{pragma} ) {
            $returns[-1]->{pragma} = 'multi';
        }
    }
    push @opcodes, new ReturnDir( <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3610	3703	
==>checklist,$inarray,$outhash)=@_;
	my($prm,$value);
	my($prmlst)={};

	while(($prm,$value)= <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3422	3511	
==>checklist,$inarray,$outhash)=@_;
	my($prm,$value);
	my($prmlst)={};

	while(($prm,$value)= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848244	848358	
==>ing.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849024	849138	
==>ing.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	10318	10492	
==>uire overload } || return;

    foreach my $thing (@_) {
        eval { 
            if( defined $$thing ) {
                if( my $string_meth = overload::Method($$thing, '" <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	7332	7479	
==>c'),
            $self->c_source_item('', 'malloc-trace'),
            $self->c_item(
                '', 
                'pairs' => ['resources'], <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	1916	2096	
==>/[A-Za-z]/) {		# Bareword 
		append;
		fetch;
		while($cur =~ /[A-Za-z0-9]/ or $cur =~ /[#!&\$%]/) { # SIGIL
			append;
			if ($cur =~ /[#!&\$%]/) {
				fetch;
				last;
			}
			fet <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	4566	4711	
==>{
	    push @{$blocks[-1]}, $instr_pc;
	}
    }

    print<<END_C;
static opcode_t* run_compiled(Interp *interpreter, opcode_t *cur_opcode, opcode <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	619	723	
==>use strict;
use warnings;

use base qw( Exporter );

use Carp;
use File::Basename qw( basename );
use Fil <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2351	2469	
==>ode, $lang_fn );

        # STDERR is written into same output file
        my $exit_code = Parrot::Test::run_comman <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1871	1986	
==>ode, $lang_fn );

        # STDERR is written into same output file
        my $exit_code = Parrot::Test::run_comman <==
2	/Users/nnunley/parrot/config/init/defaults.pm	75	164	
==>defaults.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/init/defaults.p <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	7051	7217	
==>earize_tokens(@to_unget);
    
    if ( defined $name ) 
    {
        $name =~ tr/ /_/;
        
        print {$self->{'output_fh'}} 
            qq(<a name="), esc( <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	2475	2596	
==>r eq '&' or $cur eq '%') {
			append;
			fetch;
		}
		emit("BASE");
		goto MAIN;
	}
	if ($cur eq ">" or $cur eq "<" or $cu <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29279	29445	
==>8,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86
		},
		DEFAULT => -112
	},
	{#State 91
		ACTIONS => <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	744	851	
==>pl'),
            $self->new_item('', 'tools/dev/cc_flags.pl'),
            $self->new_item('', 'tools/build <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064690	1065143	
==>AGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1189,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 260 \"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1373	1496	
==>imple::DEBUG = sub () { $$variable } ;
    $$variable = $value;
    print "# Starting Pod::Simple::DEBUG = non-constant $var <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8292	8413	
==>UMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLAGS" => ":base_loop,check_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9407	9528	
==>UMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLAGS" => ":base_loop,check_ <==
2	/Users/nnunley/parrot/config/auto/alignptrs.pm	739	852	
==>fined($conf->data->get('ptr_alignment'))) {
        $align  = $conf->data->get('ptr_alignment');
        $self->se <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15905	16006	
==>ns, etc...
		@stream=convert_to_rpn(@expr);	# Get infix into RPN
		($result,$type,@stream)=generate_co <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	17056	17157	
==>ns, etc...
		@stream=convert_to_rpn(@expr);	# Get infix into RPN
		($result,$type,@stream)=generate_co <==
2	/Users/nnunley/parrot/tools/util/pirtidy.pl	15	106	
==>/parrot/tools/util/pirtidy.pl 19235 2006-05-11T16:43:46.320675Z particle  $

use strict;
use <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	19037	19173	
==>sub push_op
{
    my ($self, $op) = @_;

    push @{$self->{OPS}}, $op;
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::Op>

=item C< <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	6788	6906	
==>UTED_GOTO
#  include<parrot/oplib/core_ops_cgp.h>
#endif
#include"parrot/exec.h"
#include"jit.h"
#define JIT_EMIT $jit_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	21039	21182	
==>.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.

sub _remap_sequences {
  my($self,@stack) = @_;
  
  if(@stack == 1 and @{ $sta <==
2	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1627	1733	
==>the smoke server.
  --version
    Outputs the version of this program and exits.
  --help
    Show this hel <==
2	/Users/nnunley/parrot/tools/dev/gen_class.pl	1414	1549	
==>or (@$vtbl) {
	my ($retval, $methname, $args) = @$_;
	if ($methname eq 'type' || $methname eq 'name' || $methname =~ /prop/) {
		# de <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3335	3543	
==>ock!" if $self->find_symbol($name);

  $self->{SYMBOLS}{$name} = $sym;
}


###############################################################################

=head2 BLOCK->get_symbol(NAME)

Attempt to get a symb <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7861	8059	
==>p if $tagname eq 'Verbatim' or $tagname eq "VerbatimFormatted"
          or $tagname eq 'X';
      }

    # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    } elsif( $type eq <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	55197	55339	
==>'exp', 2,
sub
#line 405 "Lua\lua51.yp"
{
            BuildUnop( $_[0], $_[1], $_[2] );
        }
	],
	[#Rule 75
		 'exp', 2,
sub
#lin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435221	435505	
==>"CODE" => 499,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "nc"
                            ],
                  "BODY" => "#line 89 \"src/ops/math.ops\"\n  {{\@2} <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8031	8181	
==>CCEPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Accept.\n";

				return($semval);
			};

                $$check e <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7671	7812	
==>CCEPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Accept.\n";

				return($semval);
			};

                $$check e <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1004	1100	
==>e of "head1", token(s) for its
content, and then an end-token with the tagname of "head1".

=item <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1432	1528	
==>e of "head1", token(s) for its
content, and then an end-token with the tagname of "head1".

=item <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeSmart.pm	28	125	
==>ything before 5.8.0 is GIMPY!
## This module is to be use()'d only by Pod::Simple::Transcode

pack <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	486522	486783	
==>n  {{\@1}} = ceil( {{\@1}} );\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ceil" <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	14991	15158	
==>methods}[$n]{mmds};
                if ($super_mmd && scalar @{ $super_mmd }) {
                    ##print "** @{ $super_mmd } **\n";
                    push @{ $self <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	24068	24225	
==>uild_f,
                                     'STDERR' => $build_f);
            $builder->diag("'$cmd' failed with exit code $exit_code")
                if $ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	24829	24978	
==>uild_f,
                                     'STDERR' => $build_f);
            $builder->diag("'$cmd' failed with exit code $exit_code")
        if $ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	35800	36028	
==>>{'class'} eq 'calling') {
		# Init destination types array and params array and set meta-variable.
		$pir .= "    dtypes = new ResizablePMCArray\n";
        $pir .= "    c_params = new ResizableStringArray\n";
        $mv->{'PAR <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	820	991	
==>{
    my $self = shift;

    return $self->c_item(shift, 'sources' => [@_]);
}

=item C<c_pair_item($text, $name)>

Returns a new C source and header file documentation ite <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948805	948897	
==>ODY" => "#line 535 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_charset(interprete <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949605	949697	
==>ODY" => "#line 535 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_charset(interprete <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64398	64672	
==>TYPE" => "function",
                  "CODE" => 84,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 981 \"src/ops/core.ops\"\n  Interp * const new_interp = ( <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1744	1879	
==>$compile = "-c -s";
my $run = "-s";

sub compile_test {
    my $file = shift;

    my $ret = system ("$urmc $compile $FindBin::RealBin$P <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12747	12878	
==>lt>0x2fE<gt>>,
and C<EE<lt>057E<gt>>, all mean "/", whose Unicode number is 47.  If
the name has no known value (as with a name of " <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	54175	54280	
==>actor in
sequence to the text string.

If the extractor is a subroutine it is called in a list context and <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5457	5594	
==>@_), "\n";

    return system(@_) == 0;
}

# XXX: ordering of libs might be crucial
sub gather_groups_and_libs {
    my @pmcs = @_;

    m <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5668	5805	
==>@_), "\n";

    return system(@_) == 0;
}

# XXX: ordering of libs might be crucial
sub gather_groups_and_libs {
    my @pmcs = @_;

    m <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	919	1027	
==>xtra subs.
	return "";
}

# Label generation.
sub gen_label() {
	# We'll emit a label for every single instru <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	676	784	
==>xtra subs.
	return "";
}

# Label generation.
sub gen_label() {
	# We'll emit a label for every single instru <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	6920	7096	
==>=~ /\.svn|core|\.[oa]|\.(so|brk|dsp|tmp)$/;
	return if $name =~ /locales\W[a-z_]+\.txt$/i;
	return if $name =~ /icu\Wsource/; # icu cleanup code above needs work
	return if -d $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	737	839	
==>new unless ref $self;

  $source = *STDIN{IO} unless defined $source;
  $self->set_source($source);
  $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10206	10304	
==>into "W".
  }
  
  return;
}

#-------------------------------------------------------------------- <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9232	9348	
==>ormal_halfpoint_size);
        DEBUG and print "Indenting over $indent_stack[-1] twips.\n";
        $self->{'rtfinden <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	18483	18595	
==>'s initialization method, or an empty
string if the PMC has a C<no_init> flag.

=cut

sub init_func() {
    my $s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24523	24617	
==>ore.ops\"\n  opcode_t *dest = {{^+1}};\n  PMC * const p = CONTEXT(interpreter->ctx)->current_su <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	282018	282350	
==>inline",
                  "CODE" => 328,
                  "ARGS" => [
                              "i",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 908 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}};\n  {{+=4}};\n",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621003	621215	
==>d dependencies - intermix derefs\n     * - yes, confusing but faster\n     */\n    ctx = CONTEXT(interpreter->ctx);\n    src_pc = interpreter->current_args;\n    mic = (Parrot_MIC *) cur_opcode[1];\n    caller_ctx <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3398	3502	
==>self->{STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
}

sub YYLexer {
    my($self)=shift;

	$$self{LEX} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3226	3324	
==>self->{STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
}

sub YYLexer {
    my($self)=shift;

	$$self{LEX} <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	586	688	
==>st('.out',$count);
    my $parrotdir = dirname $self->{parrot};

    my $args = $ENV{TEST_PROG_ARGS} || <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	623	725	
==>st('.out',$count);
    my $parrotdir = dirname $self->{parrot};

    my $args = $ENV{TEST_PROG_ARGS} || <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	839	967	
==>);
      print $fh ' ', $key, '="', $value, '"';
    }
  }


  print $fh ">\n";
  $_[0]{'indent'}++;
  return;
}

sub _handle_tex <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1569	1725	
==>t

sub goto_address
{
    my ($self, $addr) = @_;

    #print STDERR "pbcc: map_ret_abs($addr)\n";

    return "cur_opcode = $addr;\ngoto switch_label";
}

= <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	118	220	
==>ethods and spit out a chunk of
# PIR that can look up the built-in that's needed and return its PIR.

u <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	276	474	
==>strict;
use warnings;

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':inter';

our $description = 'Determining what pmc files should be compiled in';
our @args        = qw <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	299	457	
==>strict;
use warnings;

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':gen';

our $description = 'Generating core pmc list';
our @ar <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10145	10263	
==>->[0] eq 'neg') {
        return _negate_incexc(_translate_classpieces($pieces->[1]));
    }

    # Convert "a-b" to [9 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012991	1013307	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "err",
                  "FLAGS" => "",
                  "ARGDIR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015142	1015458	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "err",
                  "FLAGS" => "",
                  "ARGDIR <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	62254	62452	
==>e};
    foreach my $fct ( @{ $parser->YYData->{functs} } ) {
        foreach my $op ( @{$fct} ) {
            if ( ref($op) =~ /(Dir|Op)$/ ) {
                $op->visit($generator) if ( exists $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	18727	18949	
==>::paren ]);
     $::paren = 0; # FIXME!
     return $op;
   }
	],
	[#Rule 5
		 'regex', 2,
sub
#line 97 "lib/Regex/Grammar.y"
{ return $_[2]; }
	],
	[#Rule 6
		 'regex', 1,
sub
#line 99 "lib/Regex/Grammar.y"
{ return op('sc <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	16331	16449	
==>tch = 'Document'),
      {
        'start_line' => $paras->[0][1]{'start_line'},
        $starting_contentless ? ( 'con <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	20680	21038	
==>esult],
            'arg1'   => 'len',
            'arg2'   => [ $expr->[0] ],
        );
    }
    else {
        push @opcodes, new UnaryOp( $parser,
            'op'     => $opcode{$op},
            'arg1'   => $expr->[0],
            'result' => $result,
        );
    }
    return [ $result, \@opcodes ];
}

sub BuildBinop {
    my ( $pa <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4770	4868	
==>register.
	if (!$dest_reg) {
		$pir .= <<'PIR'
# Get type.
${ITEMP0} = elements ${STYPES}
dec ${ITE <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	5019	5174	
==>alue = ( $value eq 'true' ) ? 1 : 0;
                }
                my $expr = new defn( $value, 'literal', 'pmc', $type );
                push @opco <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548960	549078	
==>07 \"src/ops/math.ops\"\n  /* Coercing a negative to a UINT can get pretty ugly\n   * in this situation. */\n  INTVAL i <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	12114	12249	
==>ign $t, $p
EOC
	}
    }
    else {
	$p = promote($tos);
	print <<EOC;
	global "$c" = $p $cmt
EOC
    }
    $globals{$c} = $p;
}


sub is <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	5900	6021	
==>w. I've done my very best but Digest::MD5 is still about 135 times faster.
You can only encrypt Data up to one million byt <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21574	21698	
==>sh @opcodes, @{ $expr1->[1] };
    push @opcodes, @{ $expr2->[1] };
    push @opcodes, new LocalDir( $parser,
        'res <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	22396	22520	
==>sh @opcodes, @{ $expr1->[1] };
    push @opcodes, @{ $expr2->[1] };
    push @opcodes, new LocalDir( $parser,
        'res <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	6643	7092	
==>rot\'s layer-based I/O subsystem.', 
                'headers' => ['io'], 
                'contents' => ['src/io']
            ),
        ),
        $self->new_group(
            'Threads',
            '',
            $self->c_pair_item('', 'thread'),
            $self->c_header_item('', 'thr_pthread'),
            $self->c_pair_item('', 'tsq'),
        ),
        $self->new_group(
            'Exceptions',
            '',
            $self->c_p <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	6550	6653	
==>} elsif (/ ([A-Za-z]) \.?(\w+)$/) {
		# Especially text symbols are sometimes prefixed by a ".".
		my ($ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1366	1467	
==>ters
my(@params)=('LEX','RULES','STATES');

sub new {
    my($class)=shift;
	my($errst,$nberr,$to <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1321	1417	
==>ters
my(@params)=('LEX','RULES','STATES');

sub new {
    my($class)=shift;
	my($errst,$nberr,$to <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2416	2504	
==>sm>,
F<examples/mops/mops.c>,
F<examples/mops/mops.cs>,
F<examples/mops/mops.il>,
F<examp <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	2416	2504	
==>sm>,
F<examples/mops/mops.c>,
F<examples/mops/mops.cs>,
F<examples/mops/mops.il>,
F<examp <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	1958	2079	
==>t;
}

=item C<class_name($self, $class)>

Returns the appropriate C<Parrot::Pmc2c> subclass for the PMC
(C<< $self->{class <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	78564	78671	
==>ount($)
{
	my ($pos,$count) = ((pos $_[0]||0)-1, 0);
	$count++ until ($pos=index($_[0],"\n",$pos+1))<0;
	ret <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	857	960	
==>s. But, string
# literals are subject to interpolation, and so they go through
# compilation in such a w <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	2812	3026	
==>e');
        print <<'END';

Can't find a float type with size 8, conversion ops might fail!

END
    }

    my %hugeintval;
    my $intval     = $conf->data->get('iv');
    my $intvalsize = $conf->data->get('intval <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2425	2525	
==>ng against the Perl 6 pattern, passing the test
if the output produced by the test code matches the C <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3859	3959	
==>ng against the Perl 6 pattern, passing the test
if the output produced by the test code matches the C <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	8781	8914	
==>ch",
	  fast => "fast",
	  default => "default",
  );

  $runcore{$_[0]};
}

sub runcore_from_args {
  local $_ = shift;

  /\b-g\b/ a <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	1395	1612	
==>w+) (?: \s+ (.+?) )? \]/x;

    my $cmd  = $1;
    my $args = $2;

    return $cmd, parse_usage($args);
}

sub parse_usage {
    my $usage = shift;
    
    my @results;
    my $types = join "|", qw(int string var list <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035776	1036037	
==>%Ss' not found\", lex_name);\n    }\n    {{\@1}} = result;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036940	1037201	
==>%Ss' not found\", lex_name);\n    }\n    {{\@1}} = result;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	15696	15848	
==>ock->kind);
      }

      next;
    }

    #
    # Arithmetic Operators:
    #
    #   <var> = <value> <op> <value>;
    #
    # TODO: Can't really supp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	508698	509040	
==>",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 585,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 665 \"src/ops/math.ops\"\n  {{\@1} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	7417	7528	
==>-string as a source for set_source");
  } elsif(ref(\( $_[0] )) eq 'GLOB') {
    $self->{'source_filename'} = '' <==
2	/Users/nnunley/parrot/lib/File/Which.pm	1466	1645	
==>ve `Alias $alias`,
            # let's just hope it's fixed
            if (lc($alias) eq lc($exec)) {
                chomp(my $file = `Alias $alias`);
                last unless <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030889	1031152	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sizeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031757	1032020	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sizeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
2	/Users/nnunley/parrot/lib/Parrot/Revision.pm	614	745	
==>n_entries) {
        open my $FH, '<', $svn_entries or die $!;
        while (<$FH>) {
            /^ *committed-rev=.(\d+)./ or nex <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348685	349072	
==>=> [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 406,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 162 \"src/ops/io.ops\"\n  /* These cha <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2062	2170	
==>_files()>

Writes C and header files for all the PMCs in the library,
I<or> E<lt>libnameE<gt>.c and pmc_E<lt> <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31513	31619	
==>ng.

Overrides the default implementation to direct all unknown methods to
the thing referred to.

=cut

su <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	992725	993421	
==>ass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1111,
                  "ARGS" => [
                              "i",
                              "i",
                              "sc",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_ <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	764	950	
==>elf = shift;
    my $path = shift;
    
    return unless defined $path and ! -d $path;
    
    return $self->SUPER::new($path);
}

=back

=head2 Instance Methods

=over 4

=item C<creat <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32514	32703	
==>'number'} = $expected_value;
            $self->whine(
              $para->[1]{'start_line'},
              "Expected '=item $expected_value'"
            );
            # Text content will <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32105	32261	
==>'number'} = $expected_value;
            $self->whine(
              $para->[1]{'start_line'},
              "Expected '=item $expected_value'"
            ) <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9903	10076	
==>9,/* 38 */
HH,$c,$d,$a,$b,$_[11],16,0xf6bb4b60,/* 39 */
HH,$b,$c,$d,$a,$_[14],23,0xbebfbc70,/* 40 */
HH,$a,$b,$c,$d,$_[17],4,0x289b7ec6,/* 41 */
HH,$d,$a,$b,$c,$_[4],11,0xeaa <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	2833	2977	
==>rrot::Docs::Section::Docs>

=item C<Parrot::Docs::Section::Examples>

=item C<Parrot::Docs::Section::PMCs>

=item C<Parrot::Docs::Section::DynaPM <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	4141	4272	
==>); # Laziness

    if ($meta{lib}) {
        # don't allow libraries to be installed into subdirs of libdir
        $dest = File::Sp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752780	752873	
==>ne 256 \"src/ops/set.ops\"\n  {{\@1}}->vtable->assign_pmc(interpreter, {{\@1}}, {{\@2}});\n  { <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	4568	4710	
==>reach (split /\n/, $ignore{$dir}) {
        s/\./\\./g; s/\*/.*/g;
        print $SKIP
            $dir ne '.' ?
            "^$dir/$_\$\n^$dir <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	56554	56653	
==>ing else. The delimited and bracketed
parts are also blessed to identify them (the "anything else" i <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	29969	30123	
==>lbl_end,
    );
    my $lbl_blk = new_label($parser);
    push @opcodes, new BranchOp( $parser,
        'result' => $lbl_blk,
    );
    push @opcode <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10473	10653	
==>n*';
  }

  $value = $self->_generate($lambda);

  if ($value !~ /^P/) {
    my $pmc = $self->_save_1 ('P');
    $self->_morph ($pmc, $value);
    $self->_restore ($value);
    $val <==
2	/Users/nnunley/parrot/lib/Test/More.pm	36157	36260	
==>g more flexibility than the existing Test.pm.  As such, the
names of the most common routines are kept t <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3610	3726	
==>);
}

sub output_if {
    my ($self, $reg, $dest) = @_;
    $reg = value($reg);
    return "if $reg, " . $self->outpu <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	921	1023	
==>block->push_content($self);

  return $self;
}

sub left  { return shift->{LEFT};  }
sub right { return <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	929	1031	
==>block->push_content($self);

  return $self;
}

sub left  { return shift->{LEFT};  }
sub right { return <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74444	74583	
==>$min and $prevtextlen == length $text;
	}

	if ($reps < $min) {
		if ($Parse::RecDescent::lastexpected
		    && !$Parse::RecDescent::failed+ <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	7451	7552	
==>_cmd("$group$LOAD_EXT", $libs, \@sources))
          or die "partial link $group$LOAD_EXT failed ($?)\ <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7662	7763	
==>_cmd("$group$LOAD_EXT", $libs, \@sources))
          or die "partial link $group$LOAD_EXT failed ($?)\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035425	1035540	
==>XT(interpreter->ctx);\n    STRING * const lex_name = {{\@2}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036589	1036704	
==>XT(interpreter->ctx);\n    STRING * const lex_name = {{\@2}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16487	16634	
==>urn,0]);
  $self->_add_inst ("DONE_$label");
  $self->_restore ($temp);

  return $return;
}

sub _op_list_p {
}

sub _op_list {
  my ($self, $node) <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1281	1389	
==>:Spec->join('languages', $language);
        } elsif ($dir_count == 1) {
          $path_to_language = $langu <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1766	1874	
==>:Spec->join('languages', $language);
        } elsif ($dir_count == 1) {
          $path_to_language = $langu <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	113	267	
==>imple::BlackBox;

use overload( # So it'll stringify nice
  '""'   => \&Pod::Simple::BlackBox::stringify_lol,
  'bool' => \&Pod::Simple::BlackBox::stringif <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	3594	3743	
==>less defined $_[0];
        return $_[0] eq $suffix;
    }
    
    return $suffix ne '';
}

=item C<parent_path()>

Returns the path of the containin <==
2	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	4	151	
==>rl

=head1 TITLE

rebuild.pl

=head1 SYNOPSIS

Run a command to rebuild a set of files only if the inputs have
changed, as judged by their checksums <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	3575	3692	
==>ed $_[0] ? \$_[0] : \$_;
	my $ldel = defined $_[1] ? $_[1] : '{([<';
	my $pre  = defined $_[2] ? $_[2] : '\s*';
	my $w <==
2	/Users/nnunley/parrot/config/auto/va_ptr.pm	422	596	
==>';

$description = 'Test the type of va_ptr (this test is likely to segfault)';

@args = qw();

sub runstep
{
    my ($self, $conf) = @_;

    my $va_type;
    cc_gen('config/ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9205	9336	
==>s defined $new_code and length $new_code;
    if(ASCII) {
      # A good-enough check that it's good as an XML Name symbol:
      Ca <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10469	10600	
==>s defined $new_code and length $new_code;
    if(ASCII) {
      # A good-enough check that it's good as an XML Name symbol:
      Ca <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	5936	6115	
==>le = compreg "PGE::P6Regex"

            .local string target
            .local pmc rulesub
            .local pmc match
            .local string name
            .local string s <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	5995	6234	
==>et
            .local pmc rulesub
            .local pmc match
            .local string name
            .local string subpat

            target = "$target"\n\n);

    # Loop to create the subrules pir code 
    for my $ruleRow (@$pattern <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10744	10876	
==>tion);
        # Turn char 1234 into "(1234)"
        $section = '_' unless length $section;
    }
    
    foreach my $it ($to, $sec <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4121	4244	
==>tion);
     # Turn char 1234 into "(1234)"
    $section = '_' unless length $section;
  }
  
  

  foreach my $it ($to, $sec <==
2	/Users/nnunley/parrot/config/auto/gdbm.pm	1459	1640	
==>ibgdbm'); };
        } else {
            eval { cc_build('', 'gdbm.lib'); };
        }
    } else {
        eval { cc_build('', '-lgdbm'); };
    }
    my $has_gdbm = 0;
    if (!$@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8351	8586	
==>=> "branch_cs",
                  "FLAGS" => ":base_loop,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9466	9701	
==>=> "branch_cs",
                  "FLAGS" => ":base_loop,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	2093	2202	
==>S_NEWLINE
    $ret |= 0x2000 if $chr =~ /^[[:alnum:]_]$/; # CCLASS_WORD

    return $ret;
}


=item B<create_t <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	4243	4475	
==>rdel));
	pos = $posbug;

	my $startpos = pos $$textref || 0;
	my @match = _match_bracketed($textref,$pre, $ldel, $qdel, $quotelike, $rdel);

	return _fail ($wantarray, $textref) unless @match;

	return _succeed ( $wantarray, $textref <==
2	/Users/nnunley/parrot/lib/Parrot/Revision.pm	263	363	
==>Parrot::Revision::config;

=head1 DESCRIPTION

Get parrot's current and configure time revision.

=cu <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	617	923	
==>tance => 's',
    ord => 's',
);

my %builtins = (
    AssertionError => 1,
    bool => 1,
    complex => 1,
    callable => 1,
    chr => 1,
    dict => 1,
    divmod => 1,
    enumerate => 1,
    float => 1,
    hash => 1,
    hex => 1,
    id => 1,
    iter => 1,
    filter => 1,
    list => 1,
    long <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	9943	10148	
==>$orig' line is ",
       "redundant.  ($norm_current eq $norm_e).  Ignoring.\n";
      $enc_error = '';
       # But that doesn't necessarily mean that the earlier one went okay
    } else {
      $enc_erro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	674486	674743	
==>c.ops\"\n    {{\@1}} = {{\@2}}->vtable->pop_string(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/config/gen/platform.pm	147	259	
==>g/gen/platform.pm - Platform Files

=head1 DESCRIPTION

Moves the various platform-specific files into place.

=c <==
2	/Users/nnunley/parrot/config/auto/funcptr.pm	452	554	
==>ying that the compiler supports function pointer casts';

@args = qw(verbose);

sub runstep
{
    my ($ <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	9089	9232	
==>symbol = $TypeLong ? "uninit" : "B";
			    } else {
				$symbol = $TypeLong ? "unknown" : "D?";
			    }
			    $symbol .= "_data" if $TypeLong <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7254	7359	
==>e$(s1$);" Lower"
a$="   Flush   "
print ">";ltrim$(a$)
print rtrim$(a$);"<"
' A's and -'s
print string$(10 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18983	19088	
==>e$(s1$);" Lower"
a$="   Flush   "
print ">";ltrim$(a$)
print rtrim$(a$);"<"
' A's and -'s
print string$(10 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7726	7823	
==>h
s$="Hello"
if s$ then print "This is true" else print "Oops (string)"
s$=""
if s$ then print "Sh <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14713	14810	
==>h
s$="Hello"
if s$ then print "This is true" else print "Oops (string)"
s$=""
if s$ then print "Sh <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75573	75805	
==>",
                              "p",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 1156 \"src/ops/core.ops\"\n  char * const name = string_to_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2316	2434	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__END__

=head1 NAME

Pod::Simple::DumpAsXML -- turn Pod into XML

=head1 SYNOPS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855383	855720	
==>"FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 971,
                  "ARGS" => [
                              "s" <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	18323	18470	
==>rs;
    $out   .= " # skip";
    $out   .= " $why"       if length $why;
    $out   .= "\n";

    $self->_print($out);

    return 1;
}


=item B<to <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	11199	11312	
==>}, "short t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = (short)GET_NCI_I($reg_num <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	369	563	
==>it {
    my $self = shift;
    $self->{state} ||= Regex->global_state();
}

sub mklabel {
    my ($self) = @_;
    return $self->{state}->genlabel("L");
}

sub is_label {
    return UNIVERSAL::is <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574661	574803	
==>"
                            ],
                  "BODY" => "#line 249 \"src/ops/object.ops\"\n    {{\@1}} = pmc_new_init(interpreter, enum_cl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834233	834322	
==>" => "#line 202 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834959	835048	
==>" => "#line 202 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	12588	12704	
==>ables, @values);
  for (@{$locals->{children}}) {
    _num_arg ($_, 1, 'let locals');
    my ($var, $val) = _get_args <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	1730	1870	
==>return $_[0] };
        *lock  = sub { 0 };
    }
}


=head1 NAME

Test::Builder - Backend for building test libraries

=head1 SYNOPSIS

  pa <==
2	/Users/nnunley/parrot/lib/Test/More.pm	9735	9837	
==>like>

  unlike( $this, qr/that/, $test_name );

Works exactly as like(), only it checks if $this B<doe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614673	614895	
==>",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 508 \"src/ops/object.ops\"\n    opcode_t *next = {{^+4}};\n    INTVAL offset;\n    of <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	13521	13681	
==>e 17
		ACTIONS => {
			'CHAR' => 34,
			">" => 35
		}
	},
	{#State 18
		ACTIONS => {
			'CHAR' => 34,
			"=" => 36
		}
	},
	{#State 19
		DEFAULT => -5
	},
	{#Sta <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	21976	22129	
==>->[1] $_->[2]\n";
    }
}


sub ret_val {
    my $a = shift;
    my %rets = (
	'id'       => 'I',
    );
    return $rets{$a} if defined $rets{$a};
    re <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	7457	7651	
==>_][a-zA-Z0-9_]*)*)\s*;\s*(.*?)\s*$/) {

      my $use_file = $1;
      my $leftover = $3;

#print STDERR "use $use_file;\n";

      $use_file =~ s{::}{/}g;
      $use_file .= ".jako";

      my @ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	7356	7554	
==>ult, $num_key, $callop->{result}[0] ],
                );
                push @opcodes2, new NoOp($parser);
                push @opcodes1, @opcodes2;
                return [ $result, \@opcodes <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	1576	1780	
==>,
	'in' => 'Configuration file',
	'jako' => 'Jako code',
	'jit' => 'JIT file',
	'l' => 'Lex file',
	'num' => 'Opcode numbering file',
	'o' => 'Compiled file',
	'ook' => 'Ook! code',
	'ops' => 'Parrot opcod <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62036	62162	
==>grammar, "[]",'') || '';

		# EXTRACT TRAILING REPETITION SPECIFIER (IF ANY)

			if ($grammar =~ m/\G[(]/gc)
			{
				pos($gram <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	7234	7354	
==>C

    return 0;
}


#
# compile_file()
#

sub compile_file {
    my ($file_name) = @_;

    my $pf = Parrot::PackFile->n <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	21680	21953	
==>tring
                                               }ixms or Usage();
            if ( defined $extension ) { 
                my $code = slurp_file($example_f);
                my $test_func = join( '::', $package, $example_test_map{$func} );
                $test_func->( <==
2	/Users/nnunley/parrot/config/init/miniparrot.pm	1589	1770	
==>t          => '',
        TEMP_jit_o         => '',
        TEMP_exec_h        => '',
        TEMP_exec_o        => '',
        asmfun_o           => '',
        has___sighandler_t = <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	623	729	
==>al = 0;
map { $done += $_->{'done'}; $total += $_->{'total'}; } @results;
my $percent = int(($done / $tot <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	459	565	
==>al = 0;
map { $done += $_->{'done'}; $total += $_->{'total'}; } @results;
my $percent = int(($done / $tot <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	871	1030	
==>ass P0, $class";
}

sub output_start {
    my ($self, $n) = @_;
    return "re_opengroup P0, $n";
}

sub output_end {
    my ($self, $n) = @_;
    return "re_cl <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20488	20598	
==>RTF::Generator>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

Thi <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	18268	18384	
==>racefirst($_[1]),
					  q{' . $rule ->{name}. '})
						if defined $::RD_TRACE;').'
		my $thisprod = $thisrule->{"pr <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7269	7581	
==>"\n(should be \"#$indent$2\" because it is inside of " . (join ' > ', @stack) . ")\n")
            }
            next;
        }
        if (/^\s*\#(\s*)(endif)/) {
            my $indent = "  " x (@stack-1);
            if ($1 ne $indent) {
                error($file, $line, "Improper indenting for \"$_\"\n(sh <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407104	407376	
==>" => "function",
                  "CODE" => 470,
                  "ARGS" => [
                              "s",
                              "ic",
                              "sc"
                            ],
                  "BODY" => "#line 535 \"src/ops/io.ops\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	36487	36686	
==>'~Para') {
        $para->[0] = 'Para';
        $para_type = '?Plain';
      } elsif($para_type eq 'Data') {
        $para->[0] = 'Data';
        $para_type = '?Data';
      } elsif( $para_type =~ s/^ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	71730	71887	
==>\$::RD_AUTOSTUB
					       was defined, a rule stub
					       ($call : '$call') was
					       automatically created.");

					$self->_generate("$call : ' <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	2464	2602	
==>('Which PMC files would you like?', $pmc_list);
        }
    }

    # XXX:leo do we really need an interactive step for this
    # user co <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6473	6638	
==>d($act)
        and do {

                $act > 0
            and do {        #shift

#DBG>				$debug & 0x04
#DBG>			and	print STDERR "Shift and go to state $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6173	6331	
==>d($act)
        and do {

                $act > 0
            and do {        #shift

#DBG>				$debug & 0x04
#DBG>			and	print STDERR "Shift and go to state $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	3029	3267	
==>n $var;
}

sub InsertList {
    my ( $parser, $vars ) = @_;

    for my $var ( @{$vars} ) {
        Insert( $parser, $var );
    }
}

sub BuildLiteral {
    my ( $parser, $value, $type ) = @_;

    my $defn = $parser->YYData- <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	4182	4286	
==>locks, [shift @pc_list ];

    # change instructions at block leaders to enternative calls
    substr($by <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	13571	13663	
==>ardless of the version of Perl you're using --
which differs from C<%Name2character>'s behavi <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	3277	3454	
==>>{path}\n\n$top\n";
	}
    }
    exit(0);
}

sub describe_file {
    my($path) = @_;
    my $info = {};
    $info->{path} = $path;
    my $text = `cat $info->{path}`;
    my($top <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19049	19297	
==>ams[-1]->{pragma} ) {
            $params[-1]->{pragma} = 'multi';
        }
    }
    push @opcodes, @{ $fct->[1] };
    my $nil = BuildLiteral( $parser, 'nil', 'nil' );
    push @opcodes, @{ $nil->[1] };
    $result = new_tmp( $parser, 'pmc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616843	617191	
==>ine",
                  "CODE" => 698,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 44 \"src/ops/pic.ops\"\n    Parrot_MIC *mic;\n    Parrot_PIC_lru *lru;\n    PMC *left, *right;\n    INTVAL lr <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2621	2730	
==>ering {
	my($self)=shift;

	${$$self{ERRST}} != 0;
}

sub YYAbort {
	my($self)=shift;

	${$$self{CHEC <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2506	2606	
==>ering {
	my($self)=shift;

	${$$self{ERRST}} != 0;
}

sub YYAbort {
	my($self)=shift;

	${$$self{CHEC <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	1966	2196	
==>ng ?
    }xo;
    
    while ($usage) {
        $usage =~ s/^\s+//;
        next unless $usage;
        die "invalid usage: '$usage'\n"
            unless $usage =~ s/^$type//;
        
        my $arg = {};
            
        $a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	622672	622926	
==>CODE" => 701,
                  "ARGS" => [
                              "pc"
                            ],
                  "BODY" => "#line 189 \"src/ops/pic.ops\"\n    Parrot_MIC *mic;\n    Parrot_PIC_lru *lru;\n    PMC *sig, *ccont;\n    opcode_t * <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	4747	4897	
==>";
    }
}


sub wanted {

    return if $File::Find::name =~ m[/\.svn|blib|debian];

    # This is currently the only ignored directory    
    return <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7996	8173	
==>);

                $$check eq 'ACCEPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Accept.\n";

				return($semval);
			};

                $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7638	7804	
==>);

                $$check eq 'ACCEPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Accept.\n";

				return($semval);
			};

                $ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	4845	5104	
==>s_pop, $has_args, $has_trans,
	    $has_typeinfo);

    # Iterate over keys and do validation.
    for (keys %$rule) {
        # name
        if (/^name$/) {
            # always fine
        }

        # code
        elsif (/^code$/) {
            if ($rule-> <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	12262	12386	
==>ub Regex::Ops::Tree::scan::needparen { 0 }
sub Regex::Ops::Tree::scan::render { $_[0]->{args}->[0]->render() }

sub Regex::Op <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	12168	12323	
==>tack_depth

PRE_CALL_END_${CURIC}:
PIR
    return $pir;
}

sub post_call {
    # Nothing to do.
    return "";
}

sub pop_all {
    return "stack_depth = -1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747200	747335	
==>"
                            ],
                  "BODY" => "#line 194 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_integer_native(inter <==
2	/Users/nnunley/parrot/examples/benchmarks/fib.pl	324	458	
==>r C<n> (defaults to 28 if
unspecified).

=cut

use strict;

sub fib {
	my $n = shift;
	return $n if ($n < 2);
	return fib($n-1) + fib($ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	40042	40286	
==>------------------

  'let-syntax'          => \&_op_let_syntax,
  'letrec-syntax'       => \&_op_letrec_syntax,
  'define-syntax'       => \&_op_define_syntax,
  'syntax-rules'        => \&_op_syntax_rules,
  'let-syntax'          => \&_op_let_ <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2171	2259	
==>_name('compilers')->directory_with_name('imcc'),
        $self->directory_with_name('exam <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	588	770	
==>sa($block, 'Jako::Construct::Block');
  confess "Type is not!" if defined $type and not UNIVERSAL::isa($type, 'Jako::Construct::Type');
  confess "Ident is not!" unless UNIVERSAL::isa <==
2	/Users/nnunley/parrot/tools/dev/pbc_header.pl	1543	1678	
==>r my $f (@ARGV) {
	open F, "<$f" or die "Can't open $f: $!";
	my $header;
	read F, $header, 16;
	my (@fields) = qw( wordsize byteorder m <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5253	5389	
==>($_) > 126)
#DBG>					?	sprintf('<%02X>',ord($_))
#DBG>					:	$_;
#DBG>		}
#DBG>		$tok.='<';
#DBG>	};

	$$errstatus=0;
	$$nberror <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5002	5130	
==>($_) > 126)
#DBG>					?	sprintf('<%02X>',ord($_))
#DBG>					:	$_;
#DBG>		}
#DBG>		$tok.='<';
#DBG>	};

	$$errstatus=0;
	$$nberror <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21291	21433	
==>);
  $self->_add_inst(''           ,'eq'    ,[$temp,0,"DONE_$label"]);
  $self->_restore($temp);
  $self->_add_inst(''           ,'set'   ,[$re <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5631	5744	
==>EG}
${INS} = concat "\n"
PIR
	}

	return $pir;
}

# Pre and post store operation hooks.
sub pre_store($) {
	my $se <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4473	4586	
==>EG}
${INS} = concat "\n"
PIR
	}

	return $pir;
}

# Pre and post store operation hooks.
sub pre_store($) {
	my $se <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	1111	1378	
==>=',
  '>=' => '<',
  '>'  => '<='
);

sub invert_relop
{
  my $self = shift;
  my $op = shift;
 
  confess "Undefined op!" unless defined $op;

  my $new_op = $inverted_ops{$op};

  confess "Unrecognized op '$op'!" unless defined $new_op;

  return $new_op;
}
 

#
# n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467570	467666	
==>76 \"src/ops/math.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interpr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468441	468537	
==>76 \"src/ops/math.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interpr <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1670	1807	
==>K => [],
				DEBUG => 0,
				CHECK => \$check };

	_CheckParams( [], \%params, \@_, $self );

		exists($$self{VERSION})
	and	$$self <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1613	1743	
==>K => [],
				DEBUG => 0,
				CHECK => \$check };

	_CheckParams( [], \%params, \@_, $self );

		exists($$self{VERSION})
	and	$$self <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	10918	11127	
==>nd defined(my $token = $self->get_token)
  ) {
    push @to_unget, $token;

    if ($state == 0) { # seeking =head1
      if( $token->is_start and $token->tagname eq 'head1' ) {
        DEBUG and print "  Found <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747876	748111	
==>E" => 842,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 194 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_integer_nat <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4969	5126	
==>nt);
      my $name = $ident->value;

      #
      # Allow there to be Properties:
      #

      my %props;

      while ($self->skip_colon) {
        my $p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7963	8120	
==>nt);
      my $name = $ident->value;

      #
      # Allow there to be Properties:
      #

      my %props;

      while ($self->skip_colon) {
        my $p <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20790	20916	
==>(4).first=111111
call foo()
print thing$,
print bar(5),
print lot$(2),
print narf.first,
print poit(4).first

' ADD bug, Return <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	1182	1312	
==>$this->set_source($filename);
  $this->run;
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
#  In ca <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1678	1967	
==>5 - $N1;              # sub    N2, N5, N1
                              #
print "Elapsed time:  $N2\n"; # print  "Elapsed time:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1 <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1678	1967	
==>5 - $N1;              # sub    N2, N5, N1
                              #
print "Elapsed time:  $N2\n"; # print  "Elapsed time:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1 <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	19887	20000	
==>re may be memory issues with this but if we get to here we are
     * aborting.
     */
    c = string_to_cstring( <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10671	10816	
==>E_CHAR = 0x03
	.const int ELEMENT_TYPE_I1 = 0x04
	.const int ELEMENT_TYPE_U1 = 0x05
	.const int ELEMENT_TYPE_I2 = 0x06
	.const int ELEMENT_TYPE_U2 <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	153	252	
==>E

examples/mops/mops.c - Calculate M ops/s

=head1 SYNOPSIS

    % perl examples/mops/mops.pl

=hea <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	149	248	
==>E

examples/mops/mops.c - Calculate M ops/s

=head1 SYNOPSIS

    % perl examples/mops/mops.pl

=hea <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21331	21497	
==>/////

      my $content = join ' ', splice @$para, 2;
      $content =~ s/^\s+//s;
      $content =~ s/\s+$//s;
      DEBUG and print "Ogling '=end $content' directiv <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	17596	17698	
==>feedme();  # At the while/until
		my $which=$syms[CURR];
		push @{$code{$seg}->{code}}, "DO_$docounter: <==
2	/Users/nnunley/parrot/examples/benchmarks/oo5.pl	206	326	
==>ess [ 10, 20 ], $self;
}

sub i {
    my $self = shift;
    if (@_) { $self->[0] = shift } else { $self->[0] }
}

sub j { <==
2	/Users/nnunley/parrot/examples/benchmarks/oo6.pl	198	318	
==>ess [ 10, 20 ], $self;
}

sub i {
    my $self = shift;
    if (@_) { $self->[0] = shift } else { $self->[0] }
}

sub j { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79031	79132	
==>L : PMC_data({{\@2}}), name);\n  string_cstring_free(name);\n  if (p == NULL) {\n      const char * co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80552	80653	
==>L : PMC_data({{\@2}}), name);\n  string_cstring_free(name);\n  if (p == NULL) {\n      const char * co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320012	320245	
==>} = (INTVAL)((Parrot_Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320782	321015	
==>} = (INTVAL)((Parrot_Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3685	3796	
==>up_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert X.c -> X. <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3789	3900	
==>up_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert X.c -> X. <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5026	5135	
==>%$group_files) {
        copy("$_$LOAD_EXT", $dest) or die "Copy $_$LOAD_EXT failed ($?)\n";

        # Execut <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	839	947	
==>{ return shift->temp_reg('S'); }


#
# anon_lbl()
#

my $anon_lbl_count = 0;

sub anon_lbl
{
  my $self = shi <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7438	7546	
==>o 100, 200, 300
print "No match\n"
FIN:
for i = 1 to 3
	on i gosub oats, peas, beans
next i
print
end
100 pri <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19721	19829	
==>o 100, 200, 300
print "No match\n"
FIN:
for i = 1 to 3
	on i gosub oats, peas, beans
next i
print
end
100 pri <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	54720	54883	
==>"
{
            BuildRelop( $_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 71
		 'exp', 3,
sub
#line 393 "Lua\lua51.yp"
{
            BuildLogop( $_[ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8249	8341	
==>push @{$code{$seg}->{code}}, "ELSEBRANCH_$_:\n";
		}
		push @{$code{$seg}->{code}}, "\t# $sym <==
2	/Users/nnunley/parrot/languages/scheme/Scheme.pm	1072	1243	
==>mns($link);
    $code .= $link->{code};
  }

  return $header . $code;
}


=head2 compile

This is called in schemec.

=cut

sub compile {
  my $self = shift;

  $self->{to <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	919	1008	
==>T(cur_opcode[i])
#define NREG(i) REG_NUM(cur_opcode[i])
#define PREG(i) REG_PMC(cur_opcode <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1035	1124	
==>T(cur_opcode[i])
#define NREG(i) REG_NUM(cur_opcode[i])
#define PREG(i) REG_PMC(cur_opcode <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	11100	11241	
==>_endings( $expected );

            # set up default description
            unless ( $desc ) {
               (undef, my $file, my $line) = c <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	16585	16726	
==>_endings( $expected );

            # set up default description
            unless ( $desc ) {
               (undef, my $file, my $line) = c <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2506	2588	
==>es/mops/mops.p6>,
F<examples/mops/mops.ps>,
F<examples/mops/mops.py>,
F<examples/mo <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	2506	2588	
==>es/mops/mops.p6>,
F<examples/mops/mops.ps>,
F<examples/mops/mops.py>,
F<examples/mo <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4211	4387	
==>iler->temp_reg($calc_type);
    $right = $right->compile($compiler);
    $compiler->emit("  $temp = $right");
    $right = $temp;
  }
  else {
    $right = $right->compile($comp <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21829	21945	
==>oken;

      my ($cond, $left, $op, $right);

      if ($self->get(1)->is_if or $self->get(1)->is_unless) {
        $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24409	24525	
==>oken;

      my ($cond, $left, $op, $right);

      if ($self->get(1)->is_if or $self->get(1)->is_unless) {
        $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1428	1654	
==>f, $distance, $failLabel) = @_;
    $failLabel = $self->output_label_use($failLabel);
    return ("add <rx_pos>, $distance # pos++",
            "gt <rx_pos>, <rx_len>, $failLabel # past end of input?",
            'set <rx_mat <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1177	1295	
==>f, $distance, $failLabel) = @_;
    $failLabel = $self->output_label_use($failLabel);
    return ("<rx_pos> += $distanc <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	41774	41996	
==>pile the regexes they use
(whereas C<extract_tagged> uses standard string variable interpolation 
to create tag-matching patterns).

=back

The subroutine takes up to four optional arguments (the same set as
C<extract_tagge <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	4719	4954	
==>se a default?
        $code .= "  if argc < ".($i+1)." goto default_$name \n"
            if $arg->{optional};
        
        # the actual thing to be compiled
        $code .= "  \$P0 = argv[$i] \n";
        # the register behind thi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663467	663705	
==>ine",
                  "CODE" => 741,
                  "ARGS" => [
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 354 \"src/ops/pmc.ops\"\n  {{\@1}}- <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3143	3276	
==>.Undef', 'apply_CALL'],
  ['',            'set', 'P15', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I1 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	1897	2032	
==>TML link for the section.

=cut

sub html_link
{
    my $self = shift;
    my $path = shift;
    
    if ( $path )
    {
        $path = <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3757	3884	
==>nd_libs(@pmcs);

    # Convert X.c -> X.o for all X.c
    compile($_) foreach (@pmcs);

    # lib-GROUP.c
    for my $group (key <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3861	3988	
==>nd_libs(@pmcs);

    # Convert X.c -> X.o for all X.c
    compile($_) foreach (@pmcs);

    # lib-GROUP.c
    for my $group (key <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29242	29417	
==>}{methods}[$n]{mmd} =~ /MMD/ ? 0 : 1;
}

=back

=head1 SUBCLASSES

=head2 Parrot::Pmc2c::Standard Instance Methods

Standard behavior.

=over 4

=cut

package Parrot::Pmc2c::St <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	2346	2455	
==>ons{prefix}/$dest";
    }

    push @{ $FILES{$package} }, $entry;
}

while (my ($package, $files) = each %FIL <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2225	2321	
==>.key",
  'kic' => "cur_opcode[%ld]"
);

=item C<access_arg($type, $value, $op)>

Returns the C co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596197	596455	
==>{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597090	597348	
==>{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9763	9879	
==>n;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->require_value);
      my $op    = $self- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25299	25415	
==>n;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->require_value);
      my $op    = $self- <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	10694	10911	
==>$self->output_label_use($L_backup);

    my @ops = split(/\n/, <<"END");
.sub _$name
  .param int <rx_mode>
  .param string <rx_input>
  .param int <rx_pos>
  .param pmc <rx_stack>

  .local pmc <rx_match>
  .local pmc <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	53	159	
==>to register mapper. Simple and stupid.
# Inherits from SRM::Base.

package SRM::Stack;
use strict;
use SRM: <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17400	17509	
==>en copied here, and then refactored and adjusted to enable various
bits of Parrot-specific behaviour.

=cut

1 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	942	1052	
==>art_line' and $_[0]{'hide_line_numbers'};
        _xml_escape($value = $_[2]{$key});
        print $fh $ATTR_PA <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14072	14234	
==>mal sanity constraints, I think.
          DEBUG and print "  It looks contentworthy, I guess.  Using it.\n";
          $title = $para_text_content;
          last <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9440	9574	
==>ror;

        };

			$$errstatus == 3	#The next token is not valid: discard it
		and	do {
				$$token eq ''	# End of input: no ho <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9016	9144	
==>ror;

        };

			$$errstatus == 3	#The next token is not valid: discard it
		and	do {
				$$token eq ''	# End of input: no ho <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1557	1708	
==>rgs
{
    my $self = shift;

    if (@_)
    {
        $self->{ARGS} = [ @_ ];
    }
    else
    {
        return $self->{ARGS};
    }
}

=item C<arg($ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1166	1317	
==>rgs
{
    my $self = shift;

    if (@_)
    {
        $self->{ARGS} = [ @_ ];
    }
    else
    {
        return $self->{ARGS};
    }
}

=item C<arg($ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79544	79808	
==>num_class_UnManagedStruct);\n      PMC_data({{\@1}}) = p;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81065	81329	
==>num_class_UnManagedStruct);\n      PMC_data({{\@1}}) = p;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	596	722	
==>nguage> is the language of the code.
The parameter C<$code> is the code that should be executed or transformed.
The parameter C <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	1077	1190	
==>rgument.

This means that you can write your tests in your language itself and run them
through your compiler itse <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	8556	8682	
==>arse::RecDescent::failed,
	       $Parse::RecDescent::expected,
	       $Parse::RecDescent::unexpected,
	       $Parse::RecDesc <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	13619	13809	
==>y bgcolor="white">
            <h1>$title</h1>
            <hr noshade>
    );
}


sub page_footer {
    "<hr noshade><i>Last Updated: @{[ scalar(localtime) . strftime(' (%Z)', localtime(time <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	363	462	
==>act_quotelike
				&extract_codeblock
				&extract_variable
				&extract_tagged
				&extract_multiple <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650736	650983	
==>{\@2}} < enum_last_type)\n        {{\@1}} = 1;\n    else\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651658	651905	
==>{\@2}} < enum_last_type)\n        {{\@1}} = 1;\n    else\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786083	786193	
==>,
                  "BODY" => "#line 417 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786994	787104	
==>,
                  "BODY" => "#line 417 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed_ <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4046	4150	
==>up_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert li <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4150	4254	
==>up_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert li <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24201	24369	
==>t_block();
      my $kind = $token->text;

      my $target_token = $self->skip_ident;
      my $target;
      $target = Jako::Construct::Expression::Value::Identifier-> <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	642	902	
==>turn $PMC_PARENTS{$pmc} if defined $PMC_PARENTS{$pmc};

    local $/;
    open(PMC, "src/pmc/$pmc.pmc")
        or die "open src/pmc/$pmc.pmc failed: $!";
    local $_ = <PMC>;
    close PMC;

    # Throw out everything but the pmclass declaration
    s/^.*?pmc <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10246	10365	
==>.local string gen_pir, loadreg, storereg, err, str_ic, tmp
    .local int pc, next_pc, bc_length, cur_ic, pop_count, lab <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	1068	1184	
==>or otherwise explicitly specified with the
-conf option. You may set any command line option in the file with
the exc <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54368	54473	
==>\s*<skip:(.*)>\Z/s;
				$item = new Parse::RecDescent::Directive(
					      'my $oldskip = $skip; $skip=' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48569	48671	
==>(interpreter,   PARROT_BOUNDS_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_BOUNDS_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49359	49461	
==>(interpreter,   PARROT_BOUNDS_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_BOUNDS_ <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	2219	2355	
==>set('libs',      $libs);
        $conf->data->set('ccflags',   $ccflags);
        $conf->data->set('linkflags', $linkflags);
        prin <==
2	/Users/nnunley/parrot/config/auto/readline.pm	2019	2155	
==>set('libs',      $libs);
        $conf->data->set('ccflags',   $ccflags);
        $conf->data->set('linkflags', $linkflags);
        prin <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	6324	6472	
==>r;
}

sub body {
    my ($file, @args) = @_;
    
    my %args = map { $_->{name} => $_ } @args;
    
    # the number for the loops
    my $code = " <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36567	36714	
==>66
	},
	{#State 141
		ACTIONS => {
			"-" => 72,
			"%" => 76,
			"*" => 80,
			".." => 71,
			"+" => 75,
			"^" => 79,
			"/" => 82
		}, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733684	733907	
==>t.ops\"\n  {{\@1}} = string_to_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734448	734671	
==>t.ops\"\n  {{\@1}} = string_to_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	2546	2783	
==>file");
                $in_def = '';
                next;
            }
            if ($in_def eq 'def') {
                if (/#define\s+(\w+)\s+(-?\w+|".*?")/) {
                    local $_ = "$prefix$1\t$2";
                    eva <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	473	601	
==>( Parrot::Docs::Section );

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	my $dist = Parrot::Distri <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1636	1732	
==>rot::Test::PGE::_generate_subrule_pir($target, $pattern)
        : Parrot::Test::PGE::_generate_p <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2159	2255	
==>rot::Test::PGE::_generate_subrule_pir($target, $pattern)
        : Parrot::Test::PGE::_generate_p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2523	2635	
==>etermine type of actual argument (%s)!", ref $args[$i])
      unless defined $actual_arg_type;

    if ($formal_a <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2223	2335	
==>etermine type of actual argument (%s)!", ref $args[$i])
      unless defined $actual_arg_type;

    if ($formal_a <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	5132	5276	
==>=> 'define',
             'i_sfio' => undef,
             'i_sgtty' => undef,
             'i_shadow' => undef,
             'i_signal' => 'defin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89862	90066	
==>S" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 38 \"src/ops/bit.ops\"\n  {{\@1}} &= {{\@2}};\n  {{+=3}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105102	105386	
==>{
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105839	106123	
==>{
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "in <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	17878	18004	
==>) {
        require Carp;
        Carp::croak("You tried to run tests without a plan!  Gotta have a plan.");
    }

    lock($s <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	18743	18869	
==>) {
        require Carp;
        Carp::croak("You tried to run tests without a plan!  Gotta have a plan.");
    }

    lock($s <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8576	8664	
==>N","CHART","COMPUTER"
data "DAMAGES","DESTRUCT","DOCK","IDLE","IMPULSE","LRSCAN","NAVIGAT <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21440	21528	
==>N","CHART","COMPUTER"
data "DAMAGES","DESTRUCT","DOCK","IDLE","IMPULSE","LRSCAN","NAVIGAT <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4775	5036	
==>rence.

=cut

sub new {
    my $this = shift;
    my $self = shift;

    my $class = ref($this) || $this;
    $self->{opt} = shift;
    $class = class_name($self, $class);
    bless $self, $class;
    $self->init($class);
    $self;
}

=back

=head2 Instance Met <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	12142	12266	
==>")\s+
        {{\@(\d)}}->vtable->
        (\w+)
        \(interpreter,
        \s*
        {{\@(\d)}},\s*{{\@(\d)}},\s*{{\@( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	12068	12228	
==>[ 1, $lastback ]),
                         aop('goto', [ $next ]),
                $back => aop('increment', [ -1, $lastback ]),
                         aop('g <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	10907	11063	
==>ect 7
t%=7
print 1*t%

' Expect correct
t=0
if t then print "Wrong" else print "Correct"

' Expect correct
t=0
if t then
	print "Wrong"
else 
	print "Correct <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	26894	27094	
==>l,
		"mod"         => $mod,
		"lookahead"   => $_[4],
		"line"        => $_[5],
		"description" => $desc,
	}, $class;
}


sub code($$$$)
{
	my ($self, $namespace, $rule, $check) = @_;
	my $ldel = $self <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857719	858026	
==>}}, 1);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rep <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	98	344	
==>_pl.in

# Copyright (C) 2001-2006, The Perl Foundation.
# $Id: dynoplibs_pl.in 10975 2006-01-08 00:42:47Z jonathan $

=head1 NAME

tools/build/dynoplibs.pl - Build script for dynamic op libraries

=head1 DESCRIPTION

This file is generated by F<co <==
2	/Users/nnunley/parrot/examples/benchmarks/stress.pl	445	559	
==>ray();
}

my @arr2;
foreach (1..20) {
    $arr2[$_] = buildarray();
}

sub buildarray {
    my @foo;
    foreach (1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2274	2379	
==>>

TODO - This is the same implementation as in C<Parrot::OpTrans>. It
should not be duplicated.

=cut

su <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	23041	23233	
==>d $firstpos;
							undef $unkpos;
							last FIELD if @fields == $max;
						}
					}
					push @fields, $class
						? bless (\$field, $class)
						: $field;
					$firstpos = $lastpos unles <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6964	7092	
==>ion failed ($?)\n";
    }
}

sub compile {
    my ($src_stem, $dest_stem) = @_;

    $dest_stem ||= $src_stem;
    if (needs_buil <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7175	7303	
==>ion failed ($?)\n";
    }
}

sub compile {
    my ($src_stem, $dest_stem) = @_;

    $dest_stem ||= $src_stem;
    if (needs_buil <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19236	19333	
==>title on that document will return "Hooboy,
stuff wow yeah!".

If the title can't be found, then g <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	128260	128685	
==>> "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 158,
                  "ARGS" => [
                              "i",
                              "i",
                              " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644058	644165	
==>@1}} = {{\@2}}->vtable->type_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644951	645058	
==>@1}} = {{\@2}}->vtable->type_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807393	807851	
==>ase_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 911,
                  "ARGS" => [
                              "n",
                              "p",
                              "k"
                            ],
                  "BODY" => "#li <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14160	14263	
==>_$label"]);
    $self->_add_inst ("FAIL_$label", 'set', [$return,0]);
    $self->_add_inst ("DONE_$label <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16428	16527	
==>_$label"]);
  $self->_add_inst ("FAIL_$label", 'set', [$return,0]);
  $self->_add_inst ("DONE_$label <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7	170	
==>e 5;
package Pod::Simple::HTML;
use strict;
use Pod::Simple::PullParser ();
use vars qw(@ISA %Tagmap $Computerese $Lame $Linearization_Limit $VERSION);
@ISA = ('Pod <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	757	890	
==>flags   = $conf->data->get('ccflags');
    if ($^O =~ /mswin32/i) {
        if ($cc =~ /^gcc/i) {
            $conf->data->add(' ', li <==
2	/Users/nnunley/parrot/config/auto/readline.pm	769	902	
==>flags   = $conf->data->get('ccflags');
    if ($^O =~ /mswin32/i) {
        if ($cc =~ /^gcc/i) {
            $conf->data->add(' ', li <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411015	411132	
==>o.ops\"\n    {{\@1}} = (INTVAL)PIO_send(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411908	412025	
==>o.ops\"\n    {{\@1}} = (INTVAL)PIO_send(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	27938	28040	
==>rrent C<pos>
location of the string's variable (or at index zero, if no C<pos>
position is defined).

= <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	28191	28290	
==>, $treelet);
  my $start_line = $stack[0][1]{'start_line'};

  # A recursive algorithm implemented i <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	31692	31791	
==>, $treelet);
  my $start_line = $stack[0][1]{'start_line'};

  # A recursive algorithm implemented i <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	12402	12569	
==>.
    label_num = 0
TRANSPIR

    # Set up some more metavariables.
    $mv->{'ASSEMBLY'} = 'assembly';
    $mv->{'BC'} = 'bc';
    $mv->{'INS'} = 'gen_pir';
    $mv->{ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	7022	7186	
==>, 8801,
 'le'       , 8804,
 'ge'       , 8805,
 'sub'      , 8834,
 'sup'      , 8835,
 'nsub'     , 8836,
 'sube'     , 8838,
 'supe'     , 8839,
 'oplus'    , 885 <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	3001	3103	
==>ending.pod>.

=head1 HISTORY

Initial version by Dan Sugalski.

=cut

*/

/*
 * Local variables:
 * c-i <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	22334	22444	
==>', 1,
sub
#line 167 "lib/Regex/Grammar.y"
{ return [ 'neg', [] ]; }
	],
	[#Rule 39
		 'classpieces', 2,
sub
#li <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	1381	1480	
==>_ops_cg.c 

$(OPS_DIR)/core_ops_cg.c : $(OPS_FILES) $(BUILD_TOOLS_DIR)/ops2c.pl lib/Parrot/OpsFile.p <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7293	7403	
==>ost_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If the register name to load from w <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5115	5225	
==>ost_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If the register name to load from w <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3857	4156	
==>',
            libs                 => "$libs libircmt.lib",
            ld                   => 'xilink',
            ld_debug             => '-debug',
            ld_share_flags       => '-dll',
            ld_load_flags        => '-dll',
            ld_out               => '-out:',
            ld <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2835	2940	
==>Simple::ASCII;
  my $out = Text::Wrap::wrap($indent, $indent, $self->{'Thispara'} .= "\n");
  $out =~ tr{\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2369	2474	
==>Simple::ASCII;
  my $out = Text::Wrap::wrap($indent, $indent, $self->{'Thispara'} .= "\n");
  $out =~ tr{\ <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	2369	2476	
==>.  Weed out the ones we know aren't used in this file.
    open(F, "<$file") || die "Can't read $file: $!\n" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1210	1327	
==>::Statement::Call;
use Jako::Construct::Statement::Concat;
use Jako::Construct::Statement::Decrement;
use Jako::Constr <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9084	9254	
==>status
        or   do {

            $$errstatus = 1;
            &$error($self);
                $$errstatus # if 0, then YYErrok has been called
            or  n <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8674	8838	
==>status
        or   do {

            $$errstatus = 1;
            &$error($self);
                $$errstatus # if 0, then YYErrok has been called
            or  n <==
2	/Users/nnunley/parrot/Configure.pl	1367	1536	
==>s $Config{optimize} to the compiler flags.

=item C<--optimize=flags>

Add C<flags> to the compiler flags.

=item C<--inline>

Tell Configure that the compiler supports C <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	8837	8991	
==>$pmc = "";
    }
    else {
	    $export = "";
	    $extern = "";
	    $newl = "\n";
	    $semi = "";
        $interp = ' interpreter';
        $pmc = ' pm <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9890	9985	
==>eturn -d $path;
}

=item C<relative_path_is_file($path)>

Returns whether the specified relative <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	5616	5792	
==>string;
}

##
## run_tests(@globs)
##
## Run the tests.
##
sub run_tests {
    my (@files) = @_ ? @_ : glob File::Spec->catfile( $DIR, '*.t' ) ;

    if (@files) {
        retur <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15661	15851	
==>$return;
}

sub _op_set_cdr_bang {
  my ($self, $node) = @_;

  _num_arg ($node, 2, 'set-cdr!');

  my $return = $self->_generate (_get_arg($node,1));
  die "set-cdr!: Element not pair\n" unl <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	7193	7372	
==>/tr>
              </tbody>
            </table>
            </ul>
    );
    print OUT page_footer();
}


sub write_file_coverage_summary {

    print "Writing $HTMLDIR/file_summa <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	21707	21809	
==>H_$prefix$r2[0]->{'code'}\n";
        $pir .= "    if cur_ic < 0x$r2[0]->{'code'} goto INS_BRANCH_$pref <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	1373	1502	
==>ib');
            $conf->data->add(' ', ldflags   => '-L/sw/lib');
            $conf->data->add(' ', ccflags   => '-I/sw/include') <==
2	/Users/nnunley/parrot/config/auto/readline.pm	1462	1591	
==>ib');
            $conf->data->add(' ', ldflags   => '-L/sw/lib');
            $conf->data->add(' ', ccflags   => '-I/sw/include') <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	13319	13415	
==>XT] eq "do") {
		feedme();
		$foo=$dos[-1];
		push @{$code{$seg}->{code}}, "\tgoto AFTERDO_$foo-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896943	897209	
==>"ARGS" => [
                              "s",
                              "i",
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	3936	4065	
==>nd one leading dash ("-") can be used instead of two ("--").
__EOF__
}

if ($^O eq 'solaris'      && $nm_try =~ /Solaris/) {
    $ <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	4634	4725	
==>tatic opcode_t* run_compiled(Interp *interpreter, opcode_t *cur_opcode, opcode_t *start_code <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	6411	6502	
==>tatic opcode_t* run_compiled(Interp *interpreter, opcode_t *cur_opcode, opcode_t *start_code <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804836	805168	
==>"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 908,
                  "ARGS" => [
                              "p",
                              "kc",
                              "p"
                            ],
                  "BODY" => "#line 472 \"src/ops/set.ops\"\n <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	14994	15333	
==>p') ) {
            $assign->configure(
                'arg1' => $expr->[0], 
            );
        }
        else {
            $assign->configure(
                 'arg2' => $expr->[0],
            );
        }
        push @opcodes3, $assign;
    }
    push @opcodes1, @opcodes2, @opcodes3;
    return \@opcodes1;
}

su <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1503	1609	
==>w,
        Parrot::Docs::Section::PMCs->new,
        Parrot::Docs::Section::DynaPMCs->new,
        Parrot:: <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34947	35054	
==>cent::expected
				   = $Parse::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = $Parse <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42057	42164	
==>cent::expected
				   = $Parse::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = $Parse <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	250235	250520	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "not",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	251634	251919	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "not",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	2991	3153	
==>kipping.\n";
		push @{$code{$seg}->{code}}, "\t# Unimplemented '$syms[CURR] ";
		while(1) {
			feedme();
			$_=$type[CURR];
			last unless $_;
			last if $_ =~ /ST <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1540	1653	
==>de = shift;

  if(exists $node->{children}) {
    for(@{$node->{children}}) {
      _dataflow($_);
    }
    my $c <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	28074	28292	
==>ontexts

In a list context, all the subroutines return a list, the first three
elements of which are always:

=over 4

=item [0]

The extracted string, including the specified delimiters.
If the extraction fails an empt <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	5700	5895	
==>>add('baz');
    $digest = $md5->hexdigest;

    print "Digest is $digest\n";

=head1 LIMITATIONS

This implementation of the MD5 algorithm has some limitations:

=over 4

=item *

It's slow, very <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	2409	2677	
==>new section.

=cut

sub new
{
    my $self = shift;
    
    return $self->SUPER::new(
        'C', 'c.html', '',
        $self->new_group(
            'General', 
            '',
            $self->c_source_item('This file is unused.', 'parrot'),
            $self->c_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	40014	40154	
==>, new EndDir($parser);
        foreach my $op (@opcodes) {
            if ( $op and $op->isa('BranchOp') ) {
                if ( $op->{re <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	9991	10095	
==>s{'desperate'};
  my $accept_verbatim      = delete $options{'accept_verbatim'};
  my $max_content_length <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	7202	7331	
==>_indices($code)) {
            $AMDEST{$_->{label}} = 1;
        }
    }
    foreach (@output4) {
        delete $_->{label} if ($ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9427	9546	
==>tagname .= '=' . ($token->attr('type') || 'pod');
        
      } elsif ($tagname eq 'Data') {
        my $next = $self <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	13254	13445	
==>include, $this, $all) = @_;

    my @todo  = ($this);
    my $class = $all->{$this};

    while (@todo) {
        my $n   = shift @todo;
        my $sub = $all->{$n};
        next if $n eq 'de <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365672	366035	
==>GS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 428,
                  "ARGS" => [
                              "p",
                              "sc"
                            ], <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	13494	13653	
==>y ($title) = @_;

    qq(
        <html>
          <head>
             <title>$title</title>
          </head>
          <body bgcolor="white">
            <h1> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	387227	387540	
==>" => 451,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	486773	487314	
==>" => "ceil",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 557,
                  "ARGS" => [
                              "i",
                              "n"
                            ],
                  "BODY" => "#line 483 \"src/ops/math.ops\"\n  {{\@1}} = (INTVAL)ceil({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	487524	487963	
==>" => "ceil",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 558,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 488 \" <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	20562	20682	
==>g;
          foreach my $attrname ('section', 'to') {        
            if(defined($thing = $treelet->[$i][1]{$attrname <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	42048	42164	
==>g;
        foreach my $attrname ('section', 'to') {        
          if(defined($thing = $treelet->[$i][1]{$attrname <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	23282	23454	
==>ef;
					last FIELD if @fields == $max;
					next FIELD;
				}
			}
			if ($$textref =~ /\G(.)/gcs)
			{
				$unkpos = pos($$textref)-1
					unless $igunk || defined $unkpos <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10046	10139	
==>125, '}',
  126, '~',
);

#------------------------------------------------------------------- <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	36472	36570	
==>the result would be:

	( '<A HREF=">', '>>>">link</A>', "" )

In addition to the quote delimiters C <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10611	10726	
==>section =~ tr/ /_/;
        $section =~ tr/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
        $section = $self->unicod <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3996	4103	
==>section =~ tr/ /_/;
    $section =~ tr/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
    $section = $self->unicod <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863569	863837	
==>ME" => "bytelength",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864460	864728	
==>ME" => "bytelength",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	24690	24824	
==>{symbtab}->LookupS($idf);
    unless ( defined $defn ) {
        my $name;
        $name = 'var_' . $parser->YYData->{lex_num} . '_' <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4489	4590	
==>h, $name);
}

=item C<directory_exists_with_name($name)>

Returns whether a subdirectory with the spec <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	18817	18927	
==>mmon case!
  }
  
  splice @$treelet, 0, 2;  # lop the top off

  return $treelet;
}

#:.:.:.:.:.:.:.:.:.:.:.:. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945415	945503	
==>ops/string.ops\"\n  {{\@1}} = string_copy(interpreter, Parrot_charset_name(interpreter, { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946225	946313	
==>ops/string.ops\"\n  {{\@1}} = string_copy(interpreter, Parrot_charset_name(interpreter, { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054433	1054531	
==>al_exception(1, \"Tried to get null global.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_gl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055560	1055658	
==>al_exception(1, \"Tried to get null global.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_gl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576916	577497	
==>ss",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 659,
                  "ARGS" => [
                              "p",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 276 \"src/ops/object.ops\"\n  PMC *name;\n  name = pmc_new(interpreter, enum_cla <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575905	576389	
==>ss",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 658,
                  "ARGS" => [
                              "p",
                              "p",
                              "s"
                            ],
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	270261	270518	
==>p(interpreter, {{\@2}}, {{\@3}}, MMD_CMP) >= 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	59240	59394	
==>limiters.
For example, to specify that '/' is the escape for single quotes
and '%' is the escape for double quotes:

        gen_delimited_pat(q{'"},q{/%}) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563410	563714	
==>addmethod",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564307	564611	
==>addmethod",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596557	597059	
==>ss",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 676,
                  "ARGS" => [
                              "p",
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 3 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595665	595963	
==>ss",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 675 <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	5589	5851	
==>$has_class) {
                    die "Duplicate value for class in rule $rule->{'name'}\n";
                } else {
                    $has_class = 1;
                }
            } else {
                die "Invalid value for class in rule $rule->{'name'}\n <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	24052	24195	
==>f->_closers_for_all_curr_open;
        # Make sure there is exactly one ~end in the parastack, at the end:
        @$paras = grep $_->[0] ne '~e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70894	71122	
==>1}} = Parrot_load_lib(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71663	71891	
==>1}} = Parrot_load_lib(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	6059	6199	
==>int SOURCE <<END_C;
#include "$include"

${defines}
static op_lib_t ${bs}op_lib;

END_C

my $text = $ops->preamble($trans);
$text =~ s/\bops_ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1159	1253	
==>ot::Test::slurp_file($out_f);
        $pass =$self->{builder}->is_eq( Parrot::Test::slurp_file( <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1200	1294	
==>ot::Test::slurp_file($out_f);
        $pass =$self->{builder}->is_eq( Parrot::Test::slurp_file( <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	8848	8950	
==>t::lastunexpected = $_[1];
	'. ($parser->{_check}{thisoffset}?'
	my $thisoffset;
	tie $thisoffset, q{Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150952	151104	
==>ic"
                            ],
                  "BODY" => "#line 112 \"src/ops/cmp.ops\"\n  if (0 == string_equal(interpreter,\n      {{\@1}}->vtabl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151930	152082	
==>ic"
                            ],
                  "BODY" => "#line 112 \"src/ops/cmp.ops\"\n  if (0 == string_equal(interpreter,\n      {{\@1}}->vtabl <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18548	18658	
==>= ""
	ret
RETURN1
	} else {
		feedme();   # Special "Return Label"
		push @{$code{$seg}->{code}}, <<RETURN2;
	J <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	2266	2365	
==>index = $self->pos unless defined $index;

  $count = 1 unless defined $count;

  $self->INTERNAL_ER <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	844880	845017	
==>"ic"
                            ],
                  "BODY" => "#line 45 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845759	845896	
==>"ic"
                            ],
                  "BODY" => "#line 45 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356025	356226	
==>eter), s->strstart, s->bufused);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60638	60827	
==>ARROT_WARNINGS_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61288	61477	
==>ARROT_WARNINGS_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3769	3872	
==>cklist{$prm})
		or	croak("Unknow parameter '$prm'");
			ref($value) eq $$checklist{$prm}
		or	croak(" <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3575	3675	
==>cklist{$prm})
		or	croak("Unknow parameter '$prm'");
			ref($value) eq $$checklist{$prm}
		or	croak(" <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	71863	71994	
==>elf->_generate("$call : '$call'",0,1);
				}
			}
		}

	# CHECK FOR LEFT RECURSION

		if ($rule->isleftrec($rules))
		{
			_error("R <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	1220	1448	
==>a></h4>\n",

  'X'  => "<!--\n\tINDEX: ",
  '/X' => "\n-->",

  changes(qw(
    Para=p
    B=b I=i
    over-bullet=ul
    over-number=ol
    over-text=dl
    over-block=blockquote
    item-bullet=li
    item-number=li
    item-te <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	5896	6034	
==>goto continue_2d

  print_newline:
    if newline==0 goto continue_2d
    result .= "\n"

  continue_2d:
    inc pos 
    goto loop_2d
  lo <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26287	26456	
==>{'code'} eq $_ } @need_enum_fix) {
        $pre_translate_code = <<'PIR'
(${STEMP0}, ${STACK0}, ${STACK1}) = fix_enum_operands(${STYPES}, ${STACK0}, ${STACK1})
${INS} = c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719791	719895	
==>thon.ops\"\n  PMC * const io = {{\@1}};\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720991	721095	
==>thon.ops\"\n  PMC * const io = {{\@1}};\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	8476	8611	
==>elf->{regs}{P}{1} = 1;
  
  # expand the lexical scope
  $self->_add_inst('', '# new_pad', [-1]);
  my $oldscope = $self->{scope};
  $se <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	6944	7092	
==>-----------
# TODO: document these:

sub unaccept_directive { shift->unaccept_directives(@_) };

sub unaccept_directives {
  my $this = shift;
  fore <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1157	1265	
==>ply
sub is_deeply(Any $got, Any $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    # hack <==
2	/Users/nnunley/parrot/Configure.pl	4116	4209	
==>/RunSteps.pm>,
F<lib/Parrot/Configure/Step.pm>, F<docs/configuration.pod>

=cut

use strict;
u <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3800	4038	
==>to $fail if <rx_pos> >= $lenvar; # need $needed more chars";
    } elsif ($needed eq "0") {
        return ();
    } else {
        return "goto $fail if $lenvar - <rx_pos> < $needed; # need $needed more chars";
    }
}

sub output_match { <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28323	28461	
==>ak,
    );
    return \@opcodes;
}

sub BuildForNum {
    my ( $parser, $var, $e_start, $e_limit, $e_step, $block ) = @_;
    my @op <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	7625	7710	
==>table_1r223_op Parrot_jit_normal_op
#define Parrot_jit_vtable_1r332_op Parrot_jit_norm <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18738	18871	
==>e_value);
          last if $self->get(1)->is_close_paren;
          $self->require_comma;
        }
      }

      $self->require_clo <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19764	19897	
==>e_value);
          last if $self->get(1)->is_close_paren;
          $self->require_comma;
        }
      }

      $self->require_clo <==
2	/Users/nnunley/parrot/config/auto/readline.pm	7	183	
==>ight (C) 2001-2004, The Perl Foundation.
# $Id: /parrot/config/auto/readline.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/readline.pm - Test for readli <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	15294	15570	
==>ception[\"obj\"]\n"
    class_type = eh.get_class_type()
    class_id = eh.get_class_id()
    gen_pir = concat "$I1000000 = isa $P1000001, "
    ($P0, $S0) = class_info_from_ehtype(assembly, class_type, class_id)
    $S0 = namespace_to_key($S0)
    gen_pir = concat $S0
    gen <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6776	6897	
==>self->require_literal);
      }

      $self->require_semicolon;

      $self->SYNTAX_ERROR("Cannot declare constant witho <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578151	578414	
==>"inline",
                  "CODE" => 660,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 284 \"src/ops/object.ops\"\n  {{\@1}} = VTABLE_subclass( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109190	109636	
==>NAME" => "bors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 136,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 182 \"sr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109968	110392	
==>NAME" => "bors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 137,
                  "ARGS" => [
                              "s",
                              "sc"
                            ],
                  "B <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	6760	6933	
==>plicate value for arguments in rule $rule->{'name'}\n";
            } else {
                my @args = split(/\s*,\s+/, $rule->{'arguments'});
                foreach (@args <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710815	711007	
==>, (INTVAL){{\@1}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711649	711841	
==>, (INTVAL){{\@1}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9131	9284	
==>tatus = 1;
            &$error($self);
                $$errstatus # if 0, then YYErrok has been called
            or  next;       # so continue parsi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8718	8868	
==>tatus = 1;
            &$error($self);
                $$errstatus # if 0, then YYErrok has been called
            or  next;       # so continue parsi <==
2	/Users/nnunley/parrot/config/init/hints/cygwin.pm	623	742	
==>ation.  So far, it appears
    # parrot can get by with simply using gcc -shared, so we override the
    # perl5 Configu <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	12322	12434	
==>rse_file {
  my($self, $source) = (@_);

  if(!defined $source) {
    Carp::croak("Can't use empty-string as a so <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18678	18779	
==>$syms[CURR]}"  # Return $syms[CURR]
	ret
RETURN2
		if (! $runtime_jump) {
			warn "Note: RETURN x caus <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789817	790074	
==>et_string_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790727	790984	
==>et_string_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2520	2626	
==>d type '$type' for num '$num' in opcode @{[$op->full_name]}"
        unless exists $arg_maps{$type};

    r <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4386	4492	
==>d type '$type' for num '$num' in opcode @{[$op->full_name]}"
        unless exists $arg_maps{$type};

    r <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5958	6142	
==>n qq!$reg = <rx_match>{"$group"}->[0]; # get group $group start!;
}

sub output_getend {
    my ($self, $reg, $group) = @_;
    $reg = value($reg);
    return qq!$reg = <rx_match>{"$gro <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	910	1022	
==>by the ops.

=cut

sub defines
{
    return <<END;
#define REL_PC ((size_t)((opcode_t*)cur_opcode - (opcode_t*)in <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1040	1152	
==>by the ops.

=cut

sub defines
{
    return <<END;
#define REL_PC ((size_t)((opcode_t*)cur_opcode - (opcode_t*)in <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	385	502	
==>onstruct::Statement);

sub new
{
  my $class = shift;
  my ($block, $left, $right) = @_;

  confess("Block (" . ref($b <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	376	493	
==>onstruct::Statement);

sub new
{
  my $class = shift;
  my ($block, $left, $right) = @_;

  confess("Block (" . ref($b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64768	64878	
==>terp->code = interpreter->code;\n  runops(new_interp, REL_PC + {{\@2}});\n  {{+=3}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65719	65829	
==>terp->code = interpreter->code;\n  runops(new_interp, REL_PC + {{\@2}});\n  {{+=3}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3122	3256	
==>n
                   'program - only to SUB1.
' Exit tests
sub mysub(b,c)
	print "Print me"
	exit sub
	print "Don't print me"
end sub
f <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17089	17223	
==>n
                   'program - only to SUB1.
' Exit tests
sub mysub(b,c)
	print "Print me"
	exit sub
	print "Don't print me"
end sub
f <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	852	945	
==>e->base.data))
#define CUR_OPCODE cur_opcode
#define IREG(i) REG_INT(cur_opcode[i])
#define NR <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	968	1061	
==>e->base.data))
#define CUR_OPCODE cur_opcode
#define IREG(i) REG_INT(cur_opcode[i])
#define NR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688119	688206	
==>"#line 576 \"src/ops/pmc.ops\"\n   {{\@1}}->vtable->delprop(interpreter, {{\@1}}, {{\@2} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688891	688978	
==>"#line 576 \"src/ops/pmc.ops\"\n   {{\@1}}->vtable->delprop(interpreter, {{\@1}}, {{\@2} <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	20700	20799	
==>>

    $Test->no_ending($no_ending);

Normally, Test::Builder does some extra diagnostics when the t <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	231	369	
==>30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Type;

use Carp;

use overload
  "=="  => sub { $ <==
2	/Users/nnunley/parrot/config/init/optimize.pm	1287	1414	
==>lags => $opts);
            # record what optimization was enabled
            $conf->data->set(optimize => $opts);
        } el <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	42663	42800	
==>" => 85,
			'DO' => 196,
			">" => 86
		}
	},
	{#State 186
		DEFAULT => -4,
		GOTOS => {
			'block' => 197,
			'chunk' => 57
		} <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8710	8839	
==>CAN","STATUS","TORPEDO","TRANSFER","VISUAL","WARP"

' Random number distribution
randomize timer
max=10
dim a(max)
for i = 0 to 10 <==
2	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	125	242	
==>6Z coke  $

=head1 NAME

examples/benchmarks/stress2.pl - GC stress-testing

=head1 SYNOPSIS

    % time perl examples <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	693	787	
==>$ident, 'Jako::Construct::Expression::Value::Identifier');
  confess "Props are not hash!" if d <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	772	866	
==>$ident, 'Jako::Construct::Expression::Value::Identifier');
  confess "Props are not hash!" if d <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	343	599	
==>CTOR:
#

sub new
{
  my $class = shift;

  confess "Expected 10 args" unless @_ == 10;

  my ($block, $scope, $kind, $type, $name, $value, $props, $args, $file, $line) = @_;

  $props = { } unless defined $props;
  $args  = [ ] unless defined $args;

  conf <==
2	/Users/nnunley/parrot/tools/build/vtable_h.pl	364	464	
==>:Vtable>.

=head1 SEE ALSO

=over 4

=item C<Parrot::Vtable>

=back

=cut

use lib 'lib';
use Parrot: <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31080	31188	
==>| $_[0];

	my $pattern = $_[1];
	$pattern =~ s#/#\\/#g;

	my $desc = $pattern;
	$desc=~s/\\/\\\\/g;
	$desc=~s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9105	9237	
==>rpreter, fe->seg, 1);\n    }\n    string_cstring_free(label);\n    interpreter->resume_flag = 2;\n    {{=0}};\n",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10221	10353	
==>rpreter, fe->seg, 1);\n    }\n    string_cstring_free(label);\n    interpreter->resume_flag = 2;\n    {{=0}};\n",
                  " <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	26313	26444	
==>$desc =~ s/\\/\\\\/g;
	$desc =~ s/\$$/\\\$/g;
	$desc =~ s/}/\\}/g;
	$desc =~ s/{/\\{/g;

	if (!eval "no strict;
		   local \$SIG{__W <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63191	63300	
==>e 964 \"src/ops/core.ops\"\n  PARROT_ERRORS_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63837	63946	
==>e 964 \"src/ops/core.ops\"\n  PARROT_ERRORS_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	8900	9229	
==>ls

                if ($use =~ /label(\w*)/)
                {
                    push @labels, 1;
                    $use = "in$1";
                }
                else
                {
                    push @labels, 0;
                }

                if ($use eq 'in')
                {
                    push @tem <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8484	8593	
==>G>			and	print STDERR 
#DBG>				    "go to state $$states[$$stack[-1][0]]{GOTOS}{$lhs}.\n";

#DBG>				$debu <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8099	8205	
==>G>			and	print STDERR 
#DBG>				    "go to state $$states[$$stack[-1][0]]{GOTOS}{$lhs}.\n";

#DBG>				$debu <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16117	16237	
==>or(@_) {
      s/([F\x00-\x1F\\\{\}\x7F-\xFF])/$Escape{$1}/g;  # ESCAPER
      s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<3276 <==
2	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	503	697	
==>put

Called in output_is(),
which gets called when language_output_is() is called in a test file.

=cut

sub gen_output 
{
  my $self = shift;
  my ( $code, $test_no ) = @_;
  
  # flatten filena <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8573	8655	
==>NDON","CHART","COMPUTER"
data "DAMAGES","DESTRUCT","DOCK","IDLE","IMPULSE","LRSCAN" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21437	21519	
==>NDON","CHART","COMPUTER"
data "DAMAGES","DESTRUCT","DOCK","IDLE","IMPULSE","LRSCAN" <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1340	1488	
==>count == 1) {
          $path_to_language = $language;
        } elsif ($dir_count == 2) {
          $path_to_language = '.';
        } elsif ($dir_c <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1825	1973	
==>count == 1) {
          $path_to_language = $language;
        } elsif ($dir_count == 2) {
          $path_to_language = '.';
        } elsif ($dir_c <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	758	862	
==>:Spec->rel2abs($out_f);
    Parrot::Test::write_code_to_file( $code, $lang_f );

    my $cmd;
    my $exi <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	795	899	
==>:Spec->rel2abs($out_f);
    Parrot::Test::write_code_to_file( $code, $lang_f );

    my $cmd;
    my $exi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165215	165678	
==>GS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 199,
                  "ARGS" => [
                              "sc",
                              "s",
                              "ic"
                            ],
                  "BODY <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	816	919	
==>attr("key", "newval")');
    return undef;
  }
}

1;


__END__

=head1 NAME

Pod::Simple::PullParserStar <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6626	6741	
==>s;
}

=item C<vtbl_embed($vtable)>

Returns the C function definitions to call the vtable methods on a PMC for the
e <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	12663	12778	
==>local $Level = $Level + 1;

    if( !defined $got || !defined $dont_expect ) {
        # undef only matches undef an <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	13107	13222	
==>local $Level = $Level + 1;

    if( !defined $got || !defined $dont_expect ) {
        # undef only matches undef an <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	3068	3162	
==>PARENT class.
If no parent class is defined, methods from F<default.pmc> are used.

=item C<abs <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645804	645892	
==>eter->n_vtable_max)\n\t\t{{\@1}} = interpreter->vtables[{{\@2}}]->whoami;\n    else\n\t\t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646701	646789	
==>eter->n_vtable_max)\n\t\t{{\@1}} = interpreter->vtables[{{\@2}}]->whoami;\n    else\n\t\t <==
2	/Users/nnunley/parrot/config/auto/inline.pm	800	1098	
==>) {
            $test = cc_run();
            chomp $test if $test;
        }
        cc_clean();
        if (!$test) {
            cc_gen('config/auto/inline/test_2.in');
            eval { cc_build(); };
            if (!$@) {
                $test = cc_run();
                chomp $test if $test <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74385	74519	
==>push @tokens, $_tok if defined $_tok;
		last if ++$reps >= $min and $prevtextlen == length $text;
	}

	if ($reps < $min) {
		if ($Parse <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10415	10593	
==>{*}, qq{,}, '1', 'o', qq{>>}, qq{1/4}, qq{1/2}, qq{3/4}, qq{?},
'A', 'A', 'A', 'A', 'A', 'A', 'AE', 'C', 'E', 'E', 'E', 'E', 'I', 'I', 'I', 'I',
'D', 'N', 'O', 'O', 'O', 'O', 'O', <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	4985	5152	
==>ls to rewrite
#   aR|[a]S
# to
#   a(R|S)
#
sub matchsame {
    my ($R, $S) = @_;
    return 0 if ! ref $R;
    return 0 if ! ref $S;
    return 0 if $R->{name} ne $S-> <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	11610	11734	
==>ing `&compare_func`. This will
eventually allow Test::More-style cmp_ok() though the following syntax:

  cmp_ok('test', &inf <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	202	299	
==>his is largely a copy of Parrot::Test::Tcl, which looks like it's
largely a copy of Parrot::Test:: <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	240	337	
==>his is largely a copy of Parrot::Test::Tcl, which looks like it's
largely a copy of Parrot::Test:: <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3935	4051	
==>$group")
          or die "compile $group.c failed ($?)\n";
    }
} 
elsif ($mode eq 'linklibs') {
    my ($group_fil <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4039	4155	
==>$group")
          or die "compile $group.c failed ($?)\n";
    }
} 
elsif ($mode eq 'linklibs') {
    my ($group_fil <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1400	1558	
==>,X5)+X1$MSK;",
	II => "X0=rotate_left((X2^(X1|(~X3)))+X0+X4+X6$MSK,X5)+X1$MSK;",
  );
  #unless ( (1 << 16) << 16) { %f = %{$CODES{'32bit'}} }
  #else { %f = % <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	13723	13846	
==>de numerics (like "64" or "x981c").

=item $Latin1Code_to_fallback{I<integer>}

For numbers in the range 160 (0x00A0) to 255 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663248	663679	
==>> "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 741,
                  "ARGS" => [
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 354 \"src <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	400	527	
==>e qw(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $kind        = $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	380	507	
==>e qw(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $kind        = $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009328	1009622	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compose",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TY <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010092	1010386	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compose",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TY <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	7311	7419	
==>ame) = @_;

    my $pf = Parrot::PackFile->new;
    $pf->unpack_file($file_name)
      or die "Unable to unpa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658299	658567	
==>{\@2}}->vtable->defined_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659218	659486	
==>{\@2}}->vtable->defined_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15926	16142	
==>n;

Or:

 my $parser = SomePodProcessor->new;
 $parser->set_source( \$document_source );
 $parser->run;

Or:

 my $parser = SomePodProcessor->new;
 $parser->set_source( \@document_lines );
 $parser->run;

And elsewher <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361637	361732	
==>rc/ops/io.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, INTVAL_F <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362536	362631	
==>rc/ops/io.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, INTVAL_F <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	1645	1855	
==>q 'case') {
      $deprecated = $num_tests;
    }
    last READLINE;
  }
  close $test_h
}

my @tests = map {"$teetcl/$_.t"} @keep;
if (! @tests) {
  die "Couldn't find any tcl test files to run.\n";
}
my $cmd = <==
2	/Users/nnunley/parrot/config/gen/cpu/x86_64/auto.pm	49	209	
==>d1 DESCRIPTION

Adds -fPIC to x86_64 (AMD64) ccflags, if necessary.

=cut

package gen::cpu::x86_64::auto;

use strict;

sub runstep
{
    my ($self, $conf) = @_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	466392	466661	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27858	28049	
==>ak' ) {
                $op->{result} = $l_break;
            }
        }
    }
    push @opcodes, @{$block};
    my $cond = get_cond( $parser, $expr );
    push @opcodes, @{ $cond->[1] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822351	822440	
==>STACK_ENTRY_INT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\") <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823419	823508	
==>STACK_ENTRY_INT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\") <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1190	1300	
==>ts no arguments and returns a L<Parrot::Configure> object.

=cut

sub new
{
    my $class = shift;

    my $sel <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	572	734	
==>t.dat",
  MAX_RATE    => 1 / 30,       # Allow a new smoke all 30s
  BURST       => 5,            # Set max burst to 5
  MAX_SMOKES_OF_SAME_CATEGORY => 5,
};
$CGI: <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	956	1078	
==>EXPORT );
    } elsif ( @_ == 1 ) {
	# This is admittedly a little bit silly:
	# do we ever export anything else than 'stru <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650149	650414	
==>AME" => "valid_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 7 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651070	651335	
==>AME" => "valid_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 7 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527069	527321	
==>sin((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	537315	537567	
==>sin((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3152	3280	
==>lf->output_test('>', $val1, $val2, $dest);
}

sub output_ge {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_test('> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956777	957066	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_encoding",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957681	957970	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_encoding",
                  " <==
2	/Users/nnunley/parrot/lib/Test/More.pm	20551	20706	
==>ects the number of tests
in the SKIP block so the # of tests run will match up with your plan.
If your plan is C<no_plan> $how_many is optional and will def <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1380	1503	
==>HT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $dest_ident = $self->dest;

  my $b <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1260	1383	
==>HT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $dest_ident = $self->dest;

  my $b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	339065	339372	
==>"ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 397,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 113 \"src/ops/io.ops\ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33697	33879	
==>rameters" if $parameters;
    my $body = "VTABLE_$meth(interpreter, PMC_pmc_val(pmc)$arg)";
    my $ret = '';
    my $decl = $self->decl($self->{class}, $method, 0);
    my $ret_def = <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32120	32292	
==>rameters" if $parameters;
    my $body = "VTABLE_$meth(interpreter, PMC_pmc_val(pmc)$arg)";
    my $ret = gen_ret($method, $body);
    my $decl = $self->decl($self->{class}, <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	232	325	
==>es/mops/mops.pl

=head1 DESCRIPTION

A Perl implementation of the F<examples/mops/mops.pasm> e <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	228	321	
==>es/mops/mops.pl

=head1 DESCRIPTION

A Perl implementation of the F<examples/mops/mops.pasm> e <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5591	5690	
==>et for C<$key> under the name C<$trigger>

Accepts a key name & a trigger name and returns a C<CODE> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720211	720395	
==>puts(interpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721411	721595	
==>puts(interpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	1302	1418	
==>rrot defaults');
        return $self;
    }

    cc_gen('config/auto/sizes/test_c.in');
    cc_build();
    my %resu <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	5272	5372	
==>of (" . join(", ", @_) . ")" : $_[0], $self->get(1)->text)
    unless grep { $self->get(1)->kind eq $ <==
2	/Users/nnunley/parrot/config/init/miniparrot.pm	951	1172	
==>t(
        miniparrot         => 1,
        DEVEL              => $conf->data->get('DEVEL') . '-miniparrot',
        TEMP_cg_h          => '',
        TEMP_cg_c          => '',
        TEMP_cg_o          => '',
        TEM <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	26984	27187	
==>= new $DEFVAR
temp_$code_l:
EOC
	    }
	    print <<"EOC";
	# assign $c, $tos->[1] $cmt
	set $p, $tos->[1] $cmt
EOC
	    $lexicals{$c} = $p;
	}
    }
    else {
	$lexicals{$c} = promote($tos);
	print <<"E <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	5371	5464	
==>turns Bool is export {
    Test::skip($Test::num_of_tests_planned - $Test::num_of_tests_run, $ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	22547	22639	
==>(ref($func) eq 'Text::Balanced::Extractor')
					{ @bits = $field = $func->extract($$textref) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356665	356861	
==>.ops\"\n  PIO_eprintf(interpreter, INTVAL_FMT, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357325	357521	
==>.ops\"\n  PIO_eprintf(interpreter, INTVAL_FMT, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	24381	24553	
==>),
                        aop('goto', [ $R_back ]),
               $next =>
              );

    return ($back, @ops);
}

sub rewrite_optional {
    my ($self, $op, $R, $g <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5463	5591	
==>eck='';

    while(1) {
        my($actions,$act,$stateno);

        $stateno=$$stack[-1][0];
        $actions=$$states[$st <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5201	5323	
==>eck='';

    while(1) {
        my($actions,$act,$stateno);

        $stateno=$$stack[-1][0];
        $actions=$$states[$st <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	32065	32237	
==>'P'];
}
sub LOAD_ATTR
{
    my ($n, $c, $cmt) = @_;
    my $tos = pop @stack;  # object
    my $attr = temp('P');
    my $obj = promote $tos;
    my $o;
    if ($builtins{$o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341079	341286	
==>,
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 128 \"src/ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, { <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2650	2815	
==>> $lang_out_fn 
                        );
  
        my $builder_func = $language_test_map{$func};
        # That's the reason for:   no strict 'refs';
        my $p <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	8647	8776	
==>:unexpected,
	       $Parse::RecDescent::lastexpected,
	       $Parse::RecDescent::lastunexpected,
	       $Parse::RecDescent::def <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	1429	1533	
==>oken
{
  return shift->{TOKEN};
}

sub code
{
  return shift->{CODE};
}

sub name
{
  return shift->{NAME <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	4271	4369	
==>nt" context="#stay" String="[^\=]*" />
          <RegExpr attribute="Comment" context="#pop" String <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39258	39428	
==>ile,
  'with-output-from-file' => \&_op_with_output_from_file,
  'open-input-file'       => \&_op_open_input_file,
  'open-output-file'      => \&_op_open_output_file,
  ' <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	1484	1625	
==>I

The API is defined in the lib but not defined in the public headers.

If code: see L</"Public or Private">.

If data: see L</"Data is not a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	603135	603524	
==>t_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 683,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 404 <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	18785	18951	
==>'past',
        PIR   => 'pir',
                                  );

    my %language_test_map = (
        language_output_is   => 'output_is',
        language_outpu <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	4200	4349	
==>reach (@{$classes{$_}}) {
            my $label = $_->{'unimplemented'} ? 'UNIMPLEMENTED' : 
                        "BODY_$_->{'class'}___$_->{'metho <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7603	7721	
==>b pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If the destination isn't a register, dete <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5721	5839	
==>b pre_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If the destination isn't a register, dete <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8707	8898	
==>ra arguments!" if @_;

  my $found = $self->find_symbol($name);

  return $found ? $found->kind : undef;
}


###############################################################################

=h <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10044	10235	
==>ra arguments!" if @_;

  my $found = $self->find_symbol($name);

  return $found ? $found->kind : undef;
}


###############################################################################

=h <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	7067	7192	
==>'',
            $self->c_pair_item('', 'exceptions'),
            $self->c_pair_item('', 'events'),
        ),
        $self-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906046	906356	
==>"inline",
                  "CODE" => 1021,
                  "ARGS" => [
                              "s",
                              "p",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 262 \"src/ops/string.ops\"\n  { <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	4619	4761	
==>ount", $n, $f, $source];
	    }
	}
	$arg = '' unless defined $arg;
	$rest = '' unless defined $rest;
    }
    else {  # program output from im <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	36971	37121	
==>ed: %s)\n",
         $para->[0], join(' ', sort keys %{$self->{'accept_directives'}} )
        ;
        $self->whine(
          $para->[1]{'start_line <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	10203	10361	
==>o we can start the next
        # one.
        #

        if (/^}\s*$/)
        {
            $count += $self->make_op($count, $type, $short_name, $body, \@arg <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	4810	4948	
==>cessor methods.

    my( $pre, $pst, $sel );
    $cnt = 0;
    foreach $name (@methods){
        if ( do { no strict 'refs'; defined &{$cla <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	6187	6394	
==>mply a dot
               s/\*/.*/g;                   # * is any amount of chars
               "^${dir}${_}\$",             # SVN globs are specific to a dir
               "^${dir}${_}/",              # SV <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672972	673202	
==>}}->vtable->pop_integer(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021695	1021808	
==>2}};\n  Parrot_gmtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022537	1022650	
==>2}};\n  Parrot_gmtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842046	842390	
==>"o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 955,
                  "ARGS" => [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 40 \"src/ops/string.ops\"\n  {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834240	834328	
==>line 202 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->use <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834966	835054	
==>line 202 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->use <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	9729	9836	
==>t if (not $parens and not $opts{ignorecomma} and 
			($syms[CURR] eq ',' and $type[CURR] ne "STRING"));
		la <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814523	814749	
==>\"src/ops/set.ops\"\n  {{\@1}} = 0;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	815773	815999	
==>\"src/ops/set.ops\"\n  {{\@1}} = 0;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43223	43509	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pushmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43866	44152	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pushmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2666	2903	
==>, $source, $out ])
##
sub extract_tests {
    my ($source) = @_;
    my %tests;

    my $regex = qr[
        test \s+ (\S+)                  # test ident
             \s+ \{ ([^}]+) \}          # test description
             \s+ (?:\S+ \ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742735	742824	
==>174 \"src/ops/set.ops\"\n  {{\@1}} = string_from_int(interpreter, {{\@2}});\n  {{+=3}};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743501	743590	
==>174 \"src/ops/set.ops\"\n  {{\@1}} = string_from_int(interpreter, {{\@2}});\n  {{+=3}};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303346	303735	
==>> "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 353,
                  "ARGS" => [
                              "i",
                              " <==
2	/Users/nnunley/parrot/config/init/miniparrot.pm	743	1049	
==>t';

@args = qw(miniparrot);

sub runstep
{
    my ($self, $conf) = @_;

    unless ($conf->options->get('miniparrot')) {
        $self->set_result('skipped');
        return $self;
    }

    $conf->data->set(
        miniparrot         => 1,
        DEVEL              => $conf->data->get('DEVEL') . '-min <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	31007	31157	
==>ument specifies a prefix pattern that is to be skipped
(but must be present!) before the substring is extracted.
The final argument specifies the escap <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	1976	2270	
==>output, [ 1, q{} ];
            }

            if ( $line ne q{} ) {
                if ( $line =~ $block_end ) {
                    $level--;
                }
                $line = ( $self->{indent} x $level ) . $line;
                if ( $line =~ $block_begin ) {
                    push <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	3053	3347	
==>split(/\s+/, $pmc_list)) {
        $pmc =~ s/\.pmc$//;
        next if ($pmc =~ /^const/);

        # make each pmc depend upon its parent.
        my $parent = pmc_parent($pmc) . ".pmc";
        my $parent_dumps = '';
        $parent_dumps .= "src/pmc/$_.dump " foreach reverse((pmc_parents($pm <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	14053	14176	
==>s{$sym}) {
				if (! ref $opsubs{$sym}) {
					die "No op code yet for $sym\n";
				} else {
					my($code, $return)=&{$opsu <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	3441	3557	
==>at($pos, $count);
}


#
# forth()
#
# Moves the current token position $offset tokens forward. Returns the
# token at <==
2	/Users/nnunley/parrot/config/inter/libparrot.pm	1152	1329	
==>d library?",
                $parrot_is_shared ? 'y' : 'n');

        $parrot_is_shared = lc($parrot_is_shared) eq 'y';
    }

    $conf->data->set(
        parrot_is_shar <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	31719	31811	
==>t,$v)=($_->{type}, $_->{value});
			push @{$code{_data}->{code}},<<ADDDATA;
	push \$P2, $v
AD <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	253	426	
==>t;
  $class = ref($class) || $class;
  
  Carp::croak "Usage: ${class}->handle_on(\$somescalar)" unless @_;
  
  my $x = (defined($_[0]) and ref($_[0]))
    ? $_[0]
    : ( \ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	557	738	
==>er) = @_;

  my $self = bless {
    BLOCK     => $block,
    PEER      => $peer,

    KIND      => 'else',

    CONTENT   => [ ]
  }, $class;

  $block->push_content($self);

  retur <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7372	7505	
==>vious paragraph as done.
                
        push @$paras, $new; # the new incipient paragraph
        DEBUG > 1 and print "Start <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1294	1424	
==>rom a line
         [^\n\ ]{0,50}     #  and finish any current word
        )
        \x20{1,10}(?!\n)   # capture some spaces not <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1238	1368	
==>rom a line
         [^\n\ ]{0,50}     #  and finish any current word
        )
        \x20{1,10}(?!\n)   # capture some spaces not <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6167	6282	
==>p_libs{$group}->{lib} = 1;
        }
    }

    return (\%group_files, \%group_libs, \%pmc_group, \%pmc_libs);
}

su <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6378	6493	
==>p_libs{$group}->{lib} = 1;
        }
    }

    return (\%group_files, \%group_libs, \%pmc_group, \%pmc_libs);
}

su <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818165	818279	
==>egister base pointer\n   * {{=0,+=1}} reloads cached base pointers, and works with\n   * arbitrary branch opcodes t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005242	1005845	
==>ass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1122,
                  "ARGS" => [
                              "i",
                              "ic",
                              "s",
                              "ic",
                              "ic"
                            ], <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	11311	11508	
==>int STDERR
            "please increase hash_size ($hash_size) in tools/build/ops2c.pl " .
            "to a prime number > ", $tot *1.2, "\n";
    }
    print SOURCE <<END_C;

/*
** Op lookup funct <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	2706	2970	
==>)>

Returns the C C<struct> definitions for the elements in the referenced
vtable array.

=cut

sub vtbl_struct {
    my $vtable = shift;

    my $struct = q{};
    my $entry;

    $struct = <<"EOF";
typedef enum {
    VTABLE_IS_CONST_FLAG = 0x01,
    VTABLE_HAS_CO <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30810	30975	
==>+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -54
	},
	{#State 101
		DEFAULT => -50
	},
	{#State 102
		DEFAULT => -32
	},
	{#State 103
		ACTIONS <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	8090	8285	
==>r

            s/^([\S]+)//
                and $parser->Error("lexer error $1.\n"),
                last;
        }
    }
}

sub _InitLexico {
    my $parser = shift;

    my %keyword <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	5491	5674	
==>h( $_ ) )[1];
                         $dir =~ s!\.svn/$!!;
                         $dir => 1 
                       } keys %{ ExtUtils::Manifest::manifind() };
   my @skip;     # re <==
2	/Users/nnunley/parrot/languages/pugs/t/pmc.pm	308	417	
==>~ /(\w+)\.t$/ or die "malformed file: $file";
    my $type = "Pugs\u$1";

    main::pir_output_is(<< 'CODE', < <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	35917	36088	
==>NS => {
			"-" => 72,
			"<" => 74,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" = <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36175	36346	
==>NS => {
			"-" => 72,
			"<" => 74,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" = <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	50276	50393	
==>ck>");
				$prod and $prod->additem($item)
				      or  _no_rule("<perl_codeblock>",$line);
			}
			elsif ($grammar = <==
2	/Users/nnunley/parrot/lib/Test/More.pm	1497	1633	
==>($this, $that,    $test_name);

  # Rather than print STDERR "# here's what went wrong\n"
  diag("here's what went wrong");

  like  ($th <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994213	994542	
==>"CODE" => 1112,
                  "ARGS" => [
                              "i",
                              "ic",
                              "sc",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Pa <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	41363	41462	
==>C<extract_tagged>.

The difference between C<extract_tagged> and the anonymous
subroutines generated <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	22330	22504	
==>treelet->[$i][0] };
      if( DEBUG > 3 ) {
        if(!defined $is) {
          print "   Code $was<> is UNKNOWN!\n";
        } elsif($is eq $was) {
          DEBUG > 4 and p <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	7824	7975	
==>$to_unget[-1]->type eq 'text') {
            if( ($text_count_here += length ${$to_unget[-1]->text_r}) > 150 ){
              DEBUG > 1 and print "    i <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7163	7289	
==>ack-1);
            if ($1 ne $indent) {
                error($file, $line, "Improper indenting for \"$_\"\n(should be \"#$ind <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7470	7596	
==>ack-1);
            if ($1 ne $indent) {
                error($file, $line, "Improper indenting for \"$_\"\n(should be \"#$ind <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	454	578	
==>ng if your platform supports GMP';

@args = qw(verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf- <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	357	444	
==>for the
specified CPU architecture type (F<src/jit/cpu-architecture-name/core.jit>).

=c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025576	1025820	
==>DE" => 1146,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 275 \"src/ops/sys.ops\"\n   {{\@1}} = sysinfo_s(interpreter, {{\@2 <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3889	4006	
==>group_files) {
        compile("$group", "lib-$group")
          or die "compile $group.c failed ($?)\n";
    }
} 
els <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3993	4110	
==>group_files) {
        compile("$group", "lib-$group")
          or die "compile $group.c failed ($?)\n";
    }
} 
els <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	263	438	
==>9Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expression::Suffix;

use base qw(Jako::Construct::Expression);

sub new
{
  my $class = shift;
  my ($l <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	9870	10078	
==>ptions) = (@_);
  
  my $max_token            = delete $options{'max_token'};
  my $desperate_for_title  = delete $options{'desperate'};
  my $accept_verbatim      = delete $options{'accept_verbatim'};
  my $m <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	8878	9026	
==>a(b,d) 
		# to   a(,b,d)
		# and commas become a low-precedence unary operator that means
		# "Push the top of the stack onto the function's call sta <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10355	10443	
==>*/
II,$a,$b,$c,$d,$_[4],6,0xf4292244,/* 49 */
II,$d,$a,$b,$c,$_[11],10,0x432aff97,/* 50 * <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2352	2448	
==>$target, $pattern, $expected, $description, @todo)>

Runs the target string against the Perl 6 pa <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3786	3882	
==>$target, $pattern, $expected, $description, @todo)>

Runs the target string against the Perl 6 pa <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	355	473	
==>= bless \%options, $class;
    $self->init();

    return $self;
}

sub init {
}

sub output_header {
}

sub output_rul <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102179	102562	
==>GS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 127,
                  "ARGS" => [
                              "s",
                              "sc"
                            ],
                  " <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3502	3648	
==>handler->start_element({ Name => 'concat' });

      while (1) {
        last unless defined $string and
          $string =~ m/(^|^.*?[^\\])\$((([ <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10177	10276	
==>*/
HH,$a,$b,$c,$d,$_[13],4,0xd9d4d039,/* 45 */
HH,$d,$a,$b,$c,$_[16],11,0xe6db99e5,/* 46 */
HH,$c,$d <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	607	716	
==>($block, qw(Jako::Construct::Block));
  confess "Type (" . ref($type) . ") is not!"  unless UNIVERSAL::isa($ty <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	598	705	
==>($block, qw(Jako::Construct::Block));
  confess "Type (". ref($type) . ") is not!" unless UNIVERSAL::isa($ty <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	27018	27220	
==>or ($start..$num-1) {
                $test_results->[$_] = &share({
                    'ok'      => 1, 
                    actual_ok => undef, 
                    reason    => 'incrementing test numb <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	58001	58157	
==>ope( $_[0] );
        }
	],
	[#Rule 96
		 'function', 3,
sub
#line 508 "Lua\lua51.yp"
{
            $_[3];
        }
	],
	[#Rule 97
		 'funcbody' <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2278	2374	
==>m} = ${STEMP0}

# Decrement stack height.
dec stack_depth
PIR
		$pir =~ s/\$register_num/$registe <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3530	3626	
==>m} = ${STEMP0}

# Decrement stack height.
dec stack_depth
PIR
		$pir =~ s/\$register_num/$registe <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5769	5886	
==>ost_branch($) {
	my $self = shift;
	my $pops = shift;
	my $pir = '';

	# Branches mean we need to deal with basic bloc <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3707	3824	
==>ost_branch($) {
	my $self = shift;
	my $pops = shift;
	my $pir = '';

	# Branches mean we need to deal with basic bloc <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12050	12153	
==>hat
it stands for.  For example, C<e2char('sol')>, C<e2char('47')>,
C<e2char('0x2F')>, and C<e2char('057 <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37205	37298	
==>brule, $repspec, $min, $max, $lookahead) =
		@{$self}{ qw{subrule repspec min max lookahead} } <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	5317	5438	
==>s $props{op}) {
    my $oplib = $props{oplib} ? $props{oplib}->value : 'CORE'; # TODO: We should make sure its a string, s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18909	19004	
==>" => "#line 314 \"src/ops/core.ops\"\n  if ({{\@1}}->vtable->get_bool(interpreter, {{\@1}})) {\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429687	429782	
==>=> "#line 74 \"src/ops/math.ops\"\n  mmd_dispatch_v_ps(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430574	430669	
==>=> "#line 74 \"src/ops/math.ops\"\n  mmd_dispatch_v_ps(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\ <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1563	1715	
==>) { foreach my $meth ( $lang_f, $pasm_f, $by_f, $out_f ) { unlink $meth } } # JMG
    }
}

1;

my $urmc = "$PConfig{perl} $FindBin::RealBin$PConfig{slash <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	365	475	
==>arp;

use base qw(Jako::Construct::Block::Conditional);

#
# new()
#

sub new
{
  my $class = shift;
  my ($blo <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	377	487	
==>arp;

use base qw(Jako::Construct::Block::Conditional);

#
# new()
#

sub new
{
  my $class = shift;
  my ($blo <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	1175	1300	
==>ICODE) { }
  elsif($] >= 5.008)   { *UNICODE = sub() {1}  }
  else                 { *UNICODE = sub() {''} }
}
if(DEBUG > 2) { <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	499	624	
==>1 TODO

* Tell if there are funcs without docs

* Generate docs from funcs

* Test the POD of the stuff we're parsing.

=head1 <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3561	3662	
==>C<const> -- for the latter, remember that you need two consts:

  const char* const foo[] = { "foo", " <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	13609	13833	
==>= @_;
    my @opcodes1 = ();
    my @opcodes2 = ();
    my @opcodes3 = ();
    while ( my $var = shift @{$vars} ) {
        push @opcodes1, @{ $var->[1] };
        my $expr = shift @{$exprs};
        unless ( defined $ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6283	6411	
==>elf->{'Tagmap'}{$tagname};
    }
}

=item C<process_item_text_or_head_start_token($token)>

Process the item text or head start t <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	2506	2604	
==>ription)>

Runs the PAST code and passes the test if a string comparison of output
with the expecte <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	3690	3795	
==>ns->get(qw(verbose verbose-step ask));

    my $n = 0; # step number
    foreach my $task ($self->steps) { <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27177	27288	
==>>{"mod"};

	$sdel =~ s/[[{(<]/{}/;
	
my $code = ''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying ter <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2462	2587	
==>};
	
}

sub YYErrok {
	my($self)=shift;

	${$$self{ERRST}}=0;
    undef;
}

sub YYNberr {
	my($self)=shift;

	${ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2364	2475	
==>};
	
}

sub YYErrok {
	my($self)=shift;

	${$$self{ERRST}}=0;
    undef;
}

sub YYNberr {
	my($self)=shift;

	${ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1798	1892	
==>s very cautiously:
    $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefg <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1901	1995	
==>s very cautiously:
    $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefg <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	15512	15702	
==>ref".

=cut

sub html_link
{
    my $self = shift;
    my $href = $self->href_path(shift);
    my $text = shift || $href;
    
    return "<a href=\"$href\">$text</a>";
}

=item href_path($pa <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4742	4885	
==>g should be done about that.
    }
  }
  
  my $out = $to if defined $to and length $to;
  $out .= "#" . $section if defined $section and length <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	344	462	
==>C | CGoto | CGP | CSwitch | CPrederef

For example:

    % perl tools/build/ops2c.pl C --core

    % perl tools/build/o <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2926	3075	
==>nal test harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # test res <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4323	4472	
==>nal test harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # test res <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	4420	4578	
==>the generated PASM is $expected.

=item C<c_output_is($code, $expected, $description)>

Compiles and runs the C code, passing the test if a string comparison o <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	364	476	
==>ISA = ('Pod::Simple::BlackBox');
$VERSION = '2.05';

@Known_formatting_codes = qw(I B C L E F S X Z); 
%Known_for <==
2	/Users/nnunley/parrot/config/init/defaults.pm	7078	7289	
==>refix . "/share/doc/parrot",
    );

    # add profiling if needed
    # FIXME gcc syntax
    # we should have this in the hints files e.g. cc_profile
    # FIXME move profiling to it's own step
    if ($conf->op <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9376	9615	
==>do(1));
  is(2 + 2, 5, desc => '2 and 2 make 5', todo => 1);
  isa_ok({'one' => 1}, 'Hash', :todo(1));

  use_ok('My::Module');

  pass('This test passed');
  flunk('This test failed');

  skip('skip this test for now');

  flunk('this fail <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	11626	11738	
==>tifier after dereferencer", pos $$textref;
		pos $$textref = $startpos;
		return;
	    }
	}

	while (1)
	{
		next <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6639	6751	
==>te_dump {
    my ($pmc) = @_;

    if (needs_build("$pmc.dump", "$pmc.pmc")) {
        run("$PMC2C --dump $pmc.pm <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6850	6962	
==>te_dump {
    my ($pmc) = @_;

    if (needs_build("$pmc.dump", "$pmc.pmc")) {
        run("$PMC2C --dump $pmc.pm <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	9025	9166	
==>] = ${STEMP0}
dec stack_depth

PRE_CALL_END_${CURIC}:
PIR
}

sub post_call {
    # Nothing to do.
    return "";
}

sub pop_all {
    return " <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	22218	22337	
==>, undef;
			}
		}

		FIELD: while (pos($$textref) < length($$textref))
		{
			my $field;
			my @bits;
			foreach my $i ( <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6770	6877	
==>TEMP1} = ${PTEMP1}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${ITEMP1} = ${ITEMP0} + 1
${STEMP1} = ${IT <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	1223	1340	
==>in_ops;
    if (prederef_addr == NULL) return NULL;
    offset_in_ops = prederef_addr - interpreter->code->prederef.co <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20307	20428	
==>>;
    #
 
    if ($token->is_ident and $self->get(1)->is_assign) {
      my $block = $self->current_block();
      my $le <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809693	809811	
==>{{\@1}} = {{\@2}}->vtable->get_string_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810598	810716	
==>{{\@1}} = {{\@2}}->vtable->get_string_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	923656	923945	
==>\@1}} = string_make_empty(interpreter, enum_stringrep_one, 0);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
2	/Users/nnunley/parrot/lib/Test/More.pm	26826	27029	
==>out = "Structures begin differing at:\n";
    foreach my $idx (0..$#vals) {
        my $val = $vals[$idx];
        $vals[$idx] = !defined $val ? 'undef'          :
                      $val eq $DNE  ? "D <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	70	224	
==>29Z bernhard  $

package Parrot::Test::Punie;

use strict;
use warnings;

use File::Basename;

=head1 NAME

Parrot::Test::Punie -- testing routines for lan <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3436	3604	
==>ACTIONS}}
}

sub YYLexer {
    my($self)=shift;

	$$self{LEX};
}


#################
# Private stuff #
#################


sub _CheckParams {
	my($mandat <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3264	3416	
==>ACTIONS}}
}

sub YYLexer {
    my($self)=shift;

	$$self{LEX};
}


#################
# Private stuff #
#################


sub _CheckParams {
	my($mandat <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	17226	17381	
==>ace_word('mod', $cmt);
}
sub INPLACE_ADD
{
    my ($n, $c, $cmt) = @_;
    inplace('+', $cmt);
}
sub INPLACE_SUBTRACT
{
    my ($n, $c, $cmt) = @_;
    inpl <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	31681	31789	
==>}
		foreach (@{$ld->{data}}) {
			my($t,$v)=($_->{type}, $_->{value});
			push @{$code{_data}->{code}},<<ADDD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22852	22950	
==>rc/ops/core.ops\"\n  opcode_t *dest;\n  PMC * const p = {{\@1}};\n  dest = {{^+2}};\n  interpreter- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25241	25339	
==>rc/ops/core.ops\"\n  opcode_t *dest;\n  PMC * const p = {{\@1}};\n  dest = {{^+2}};\n  interpreter- <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2841	2957	
==>ops_addr[] = {
END_C
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	4768	4875	
==>t");
      $compiler->emit("  __result = __func(" . join(", ", map({ $_->[1]} $self->args)) . ")");
      $c <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	892	987	
==>without leading/trailing pattern delimiters.

(Hint: if you try using qr// for the $pattern then <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2990	3085	
==>without leading/trailing pattern delimiters.

(Hint: if you try using qr// for the $pattern then <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	412	538	
==>1;

=head1 METHODS

=head2 new

A kind of factory, that finds the proper subclass of Parrot::Test::M4.
XXX: Do not configure wi <==
2	/Users/nnunley/parrot/config/inter/progs.pm	3255	3362	
==>, $ldflags)
        if $ask;
    $conf->data->set(ldflags => $ldflags);

    $libs = $conf->data->get('libs' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	19829	20071	
==>lve';
        $dont_ignore = 1;
        $para->[1]{'target_matching'} = $target_name;
        last; # stop looking at other target names
      }

      if($neg) {
        if( $dont_ignore ) {
          $dont_ignore = '';
          delete $para <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41125	41235	
==>ode(@_[1..2]) . '
			$savetext = $text;
			' . ($op->isterminal() ? 'pop @item;' : "" ) . '
			' . (ref($op) eq <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830966	831315	
==>" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 940,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830612	830707	
==>\n  INTVAL i = {{\@1}};\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &i, S <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831353	831448	
==>\n  INTVAL i = {{\@1}};\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &i, S <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	1447	1577	
==>(OUT, ">$file.tmp");

    print OUT <<"END_C";
/*
 * DO NOT EDIT THIS FILE
 *
 * Automatically generated by config/gen/core_pmcs.pm <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	476	639	
==>INTF' => 1,
             'HAS_GMP' => 1,
             'HAS_READLINE' => 1,
             'HAS_SNPRINTF' => 1,
             'HAS_aligned_funcptr' => 1,
             ' <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1208	1323	
==>${namespace}");
      $compiler->indent;
      $self->SUPER::compile($compiler);
      $compiler->outdent;
      $co <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	616	723	
==>${namespace}");
    $compiler->indent;
    $self->SUPER::compile($compiler);
    $compiler->outdent;
    $co <==
2	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	312	419	
==>the end of all generated output files, and checking for that line
before rerunning the build script.

=head1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031580	1031833	
==>@2}} - enum_first_type].size;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032449	1032702	
==>@2}} - enum_first_type].size;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
2	/Users/nnunley/parrot/config/auto/signal.pm	51	198	
==>Id: /parrot/config/auto/signal.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/signal.pm - Signals

=head1 DESCRIPTION

Deter <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	45759	45863	
==>e search pattern in a quotelike operation from $text

		($op,$pat) = (extract_quotelike $text)[3,5];
		if <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363516	363619	
==>eter, \"%f\", (double){{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364419	364522	
==>eter, \"%f\", (double){{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle e <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77290	77393	
==>tracemsg      = $_[0];
	$tracecontext  = $_[1]||$lastcontext;
	$tracerulename = $_[2]||$lastrulename;
	i <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2771	2872	
==>pr_pop()>.

=cut

sub expr_address
{
    my ($self, $addr) = @_;
    return "opcode_to_prederef(interp <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13486	13612	
==>NTERP -> interpreter
    s/SELF/pmc/g;
    s/\bINTERP\b/interpreter/g;

    # now use macros for all rewritten stuff
    s/\b(? <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4146	4398	
==>the input, and possibly dump the tokens.
#

sub parse
{
  my $self = shift;

  my $root = $self->block(0);

  my $last_token = $self->at(-1);
  my $token      = $self->at(-1);

  while(1) {
    $token      = $self->forth;
    $last_token = $self->get(-1 <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2913	3027	
==>$register_num = 0;
	my $push_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop stuff of <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1835	1949	
==>$register_num = 0;
	my $push_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop stuff of <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600298	600546	
==>xist\", name);\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601374	601622	
==>xist\", name);\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/config/auto/gc.pm	1829	1946	
==>res_lea\$(O):	\$(GENERAL_H_FILES) \$(SRC_DIR)/res_lea.c
EOF
            TEMP_gc_o => "\$(SRC_DIR)\/$gc\$(O) \$(SRC_DIR <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	13934	14137	
==>omote(pop @stack);
    print <<EOC;
    	.pcc_begin_yield $cmt
	.return $tos
	.pcc_end_yield
EOC
}

sub MAKE_FUNCTION
{
    my ($n, $c, $cmt) = @_;
    my $tos = pop @stack;
    my $f;
    $tos->[1] =~ /< <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2175	2347	
==>ection, with the heads of any\n".
		"files which had familiar types, but from which descriptions\n".
		"were not obtained.\n\n");

    my @files = @ARGV ? @ARGV : &files_wor <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20718	20844	
==>ass = ref($_[0]) || $_[0];
	bless 
	{
		"code"      => $_[1],
		"lookahead" => $_[2],
		"line"      => $_[3],
	}, $class;
}

su <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	6344	6449	
==>nd length $d;
    Carp::croak "\"$d\" isn't a valid directive name"
     unless $d =~ m/^[a-zA-Z][a-zA-Z0- <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	7138	7243	
==>nd length $d;
    Carp::croak "\"$d\" isn't a valid directive name"
     unless $d =~ m/^[a-zA-Z][a-zA-Z0- <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	845	1100	
==>t "Iterations:    $I4\n"; # print  "Iterations:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	845	1100	
==>t "Iterations:    $I4\n"; # print  "Iterations:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2403	2505	
==>e',
	'y' => 'Yacc file'
);

# These are the various types of files without suffix.

my %type_for_name = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464539	464805	
==>532,
                  "ARGS" => [
                              "n",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 322 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663704	663925	
==>}->vtable->delete_keyed(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664476	664697	
==>}->vtable->delete_keyed(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	15945	16165	
==>d'} = 1;
    
    my $starting_contentless;
    $starting_contentless =
     (
       !@$curr_open  
       and @$paras and ! grep $_->[0] ne '~end', @$paras
        # i.e., if the paras is all ~ends
     )
    ;
    DEBU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426933	427100	
==>p",
                              "ic"
                            ],
                  "BODY" => "#line 64 \"src/ops/math.ops\"\n  mmd_dispatch_v_pi(interpreter, {{\@2 <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2111	2206	
==>ecursive \" find . \".\n\n".
		"--plus-misses creates a second section, with the heads of any\n" <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	116	218	
==>trict;
use vars qw(@EXPORT @ISA);

use Parrot::Config;

require Exporter;
require Parrot::Test;

@EXPOR <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	33	135	
==>trict;
use vars qw(@EXPORT @ISA);

use Parrot::Config;

require Exporter;
require Parrot::Test;

@EXPOR <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4395	4647	
==>ALL}{$1});
            } elsif (/Calls (.*)/) {
                # calling a function outside of parrot!
                $external_calls{$1}{"$file:$function"}++
                  unless ($variable_visible{$file}{$1} ||
                          $variabl <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	10484	10580	
==>TRACE;').'
		return undef;
	}
	if (!defined($return) && defined($score))
	{'.($::RD_NO_TRACE?'':' <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	439	639	
==><Configure::Step>. See
F<docs/configuration.pod> for more information on how to create new
configuration steps.

=head2 Functions

=over 4

=cut

package Parrot::Configure::Step;

use strict;
use warni <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	10248	10377	
==>c);
    if ($typ eq 'P') {
	if ($c =~ /^[_a-zA-Z]/ && !$names{$c}) {	# True, False ...
	    print <<EOC;
	.local pmc $c $cmt
	$c = <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	14125	14367	
==>),
                     aop('pushindex'),
                     @R_ops,
                     aop('goto', [ $next ]),
         $nextalt => aop('popindex', [ $self->{_labels}{'fail'} ]),
           $try_S => @S_ops,
                     aop('goto <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	3052	3177	
==>eturn (aop(comment => [ "restore rxlocals" ]),
            map { aop('popint' => [ $_, "rxlocal $_" ]) }
                rever <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	12037	12242	
==>ls::Command -e rm_rf',
             'rpath' => '-L',
             'rpath_blib' => '',
             'setenv' => 1,
             'share_ext' => '.dylib',
             'shortsize' => 2,
             'slash' => <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5777	5879	
==>ing...\n";
			} else {
				push @{$code{$seg}->{code}}, "IFBRANCH_$_:\n";
			}
			while($_=pop(@{$elses <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8125	8223	
==>ing...\n";
		} else {
			push @{$code{$seg}->{code}}, "IFBRANCH_$_:\n";
		}
		while($_=pop(@{$elses <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	3869	4004	
==>if class_name == \"$_\" goto $label\n";
    }
    $pir .= "goto FAIL\n";

    # Now build method dispatch table for each class.
    fore <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	21967	22067	
==>EXPORTS\n\tParrot_lib_${group}_load\n" unless $defexists;
        print $fh "\t$_\n" foreach @{$group <==
2	/Users/nnunley/parrot/config/auto/gc.pm	170	284	
==>ction

=head1 DESCRIPTION

Checks whether the C<--gc> command-line option was passed to F<Configure.pl>
and sets th <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1497	1685	
==>GHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $block = $self->block;
  my $value = $self->value;
  my $cond  = $self->cond;
  my $left  = $self-> <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	10146	10308	
==>{$filename_8dot3}=$_;

        if (exists $files_in_dir_nocase{$dirname}{lc($filename)}) {
            error("MANIFEST", $line, "$_: case-insensitive collision wit <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	62603	62746	
==>FH} "  # end of prolog\n";
        foreach my $op ( @{$fct} ) {
            $op->visit($generator) unless ( exists $op->{prolog} );
        } <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9374	9498	
==>l (<value> <op> <value>) {
    #
    #   <label>: while (<value> <op> <value>) {
    #            while (<value> <op> <value> <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	11733	11868	
==>{{\@(\d)}}->vtable->
        (\w+)
        \(interpreter,
        \s*
        {{\@(\d)}},\s*{{\@(\d)}}
        \);
        \s+{{\+=\d}}/ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9494	9613	
==>y .5's and True! after 3
for t=1 to 10 step 0.5
print t,
print sqr(t),
if t=3 then print "True!"
next t


' Expect OK
if <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	328	507	
==>by F<tools/build/pmc2c.pl> to generate C code from PMC files.

=head2 Functions

=over

=cut

package Parrot::Pmc2c;

use strict;
use warnings;

use Parrot::PMC qw(%pmc_types);

us <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938935	939506	
==>n",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1056,
                  "ARGS" => [
                              "s",
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line 481 \"src/ops/string.ops\"\n    {{\@1}} = string_join(interpreter, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938046	938552	
==>n",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1055,
                  "ARGS" => [
                              "s",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 481 \" <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	30228	30498	
==>rser,
        'arg1'   => $_var,
        'op'     => '>=',
        'arg2'   => $_limit,
        'result' => $lbl_end,
    );
    push @opcodes, new LabelOp( $parser,
        'arg1' => $lbl_blk,
    );
    push @opcodes, @{ $var->[1] };
    push @opcodes, new As <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	14669	14956	
==>ful.

=back

=head1 CAVEATS

On Perl versions before 5.7, Unicode characters with a value
over 255 (like lambda or emdash) can't be conveyed.  This
module does work under such early Perl versions, but in the
place of each such character, you get a "?".  Latin-1
characters (characters 160 <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1641	1766	
==>d quoting as they may contain spaces.
    $PATHQUOTE = '"';

    unless ($CC =~ /gcc/i) {
        $LIBPARROT = '/Users/nnunley <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	1645	1770	
==>d quoting as they may contain spaces.
    $PATHQUOTE = '"';

    unless ($CC =~ /gcc/i) {
        $LIBPARROT = '/Users/nnunley <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	1256	1408	
==>pply Parrot directory as argument!";
my @ops_files = map { "$parrot/$_"} grep /\.ops$/, readdir PARROT;
closedir PARROT;


print <<END;
<?xml version="1. <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	13055	13166	
==>xt = do {local $/; <$fh>};
    close($fh) or die "Can't close $filename: $!";

    return $text;
}

=back

=head <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576564	576841	
==>} = VTABLE_subclass(interpreter, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577576	577853	
==>} = VTABLE_subclass(interpreter, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	603	688	
==>onstruct::Type::Integer;
use Jako::Construct::Type::Number;
use Jako::Construct::Type: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193588	193852	
==>ter, {{\@1}}), {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194567	194831	
==>ter, {{\@1}}), {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1202	1331	
==>if $key eq 'start_line' and $_[0]{'hide_line_numbers'};
        _xml_escape($value);
        print $fh $ATTR_PAD, $key, '="', $val <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1747	2012	
==>arent block.\n", __PACKAGE__;

  foreach my $symbol_name ($self->symbol_names) {
    # TODO: Warn here that we are skipping one already in the parent block?
    next if $self->block->get_symbol($symbol_name);

    my $new_name = $name . "::" . $symbol_name;

    $se <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908149	908431	
==>GS" => [
                              "s",
                              "p",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 262 \"src/ops/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_str <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	6310	6417	
==>kludgy.
	$desc = $_;
	$desc = ""  # it's only emacs variables at the end of the file
	    if(!$comment_is_at <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21517	21622	
==>p {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(1 <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21902	22007	
==>p {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627209	627306	
==>egal PMC enum (%d) in new\", (int){{\@2}});\n  }\n\n  /* Why?? If we're creating a continuation, t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628353	628450	
==>egal PMC enum (%d) in new\", (int){{\@2}});\n  }\n\n  /* Why?? If we're creating a continuation, t <==
2	/Users/nnunley/parrot/lib/Test/More.pm	5387	5497	
==>i-variable
  not ok 5 - simple exponential
  ok 6 - force == mass * acceleration

The later gives you some idea <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	234	331	
==>:Test::Tcl, which looks like it's
largely a copy of Parrot::Test::Python. Abstraction needed.

=cu <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	272	369	
==>:Test::Tcl, which looks like it's
largely a copy of Parrot::Test::Python. Abstraction needed.

=cu <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	55690	55803	
==>he appropriate class, 

If the extractor fails to match (in the case of a regex extractor), or returns an empty li <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	3877	4091	
==>vent    : PMC that can be used with event queue
    hash     : container PMC with string-keyed elements
    library  : PMC that corresponds to a dynamic library
    ref      : PMC that references another PMC
    str <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835105	835493	
==>P_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "savec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835857	836245	
==>P_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "savec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ] <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	31080	31173	
==>runtime_jump) {
		foreach(sort keys %labels) {
			push @{$code{$seg}->{code}}, qq|\teq JUMPLAB <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3966	4059	
==>ftwo(y())
	print y(4)
end function
function arrfunc(x())
	u=aftwo(x())
	arrfunc=55
end functio <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15239	15332	
==>ftwo(y())
	print y(4)
end function
function arrfunc(x())
	u=aftwo(x())
	arrfunc=55
end functio <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	3913	4041	
==>{revision}  ||= 0;
  $smoke{timestamp} = time;
  $smoke{id}        = $id;
  my $filename      = pack_smoke(%smoke);

  open my $f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758329	758564	
==>ing_set(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759102	759337	
==>ing_set(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522010	522322	
==>YPE" => "inline",
                  "CODE" => 602,
                  "ARGS" => [
                              "n",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 744 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407474	407802	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "connect",
                  "FLAGS" => ":base_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408372	408700	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "connect",
                  "FLAGS" => ":base_ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	721	816	
==>ment() happy.
our $VERSION = '1.0';

use Parrot::Docs::HTMLPage;

=item C<do_beginning()> 

Reim <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	8097	8229	
==>{name} . " " . join(", ", map { ref($_) ? $_->{label} : $_ } @{ $_->{code}{args} || [] });
            $str;
        } @_;
    }
}

1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959319	959460	
==>_string_trans_encoding(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960121	960262	
==>_string_trans_encoding(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	2349	2544	
==>rbose => 0, -output => \*STDERR);
}

my ( $nolines_flag, $help_flag, $dynamic_flag, $core_flag );
GetOptions(
    "no-lines"      => \$nolines_flag,
    "help"          => \$help_flag,
    "dynami <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24979	25115	
==>function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 78
		ACTIONS => {
			"-" => 24, <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27086	27180	
==>"_USERFUNC_$funcname";
	$f=changename($f);
	$f=~s/\$/_string/g; $f=~tr/a-z/A-Z/;
	$seg=$f;
	CAL <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27359	27453	
==>"_USERFUNC_$funcname";
	$f=changename($f);
	$f=~s/\$/_string/g; $f=~tr/a-z/A-Z/;
	$seg=$f;
	CAL <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2800	2937	
==>rror("Invalid escape sequence $_ .\n"),
                last;
        }
    }

    $parser->Error("Untermined string.\n");
    $pars <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4315	4452	
==>rror("Invalid escape sequence $_ .\n"),
                last;
        }
    }

    $parser->Error("Untermined string.\n");
    $pars <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10754	10859	
==>turn;
    
    return $self->file_with_path($path);
}

=item C<delete()>

Deletes the directory and all it <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3732	3942	
==>code itself.

=back

Note that, for ease of parsing, if the argument to one of the above
notations in a ops file contains parentheses, then double the enclosing
parentheses and add a space around the argument, l <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4700	4819	
==>n=DIRECTORY
    shift(@pmcs) =~ /--destination=(.*)/
      or die "copy command requires destination";
    my $dest = $1 <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4804	4923	
==>n=DIRECTORY
    shift(@pmcs) =~ /--destination=(.*)/
      or die "copy command requires destination";
    my $dest = $1 <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	3203	3450	
==>~ /{{=(.*?)}}/g){
	    my $offset = $1;
	    $is_branch = 1;
	}
	# relative branch
	while($src =~ /{{(\-|\+)=(.*?)}}/g){
	    my $dir = $1;
	    my $forward_off = $2;

	    # Substitute constant branch values
	    if($forward_off =~ /\@(\d+)/){
		$ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	10452	10598	
==>nt_containers{'Verbatim'} = 1;
    $content_containers{'VerbatimFormatted'} = 1;
  }

  my $token_count = 0;
  my $title;
  my @to_unget;
  my $sta <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945432	945629	
==>n  {{\@1}} = string_copy(interpreter, Parrot_charset_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946242	946439	
==>n  {{\@1}} = string_copy(interpreter, Parrot_charset_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	33807	33972	
==>so
respect quoted unbalanced brackets (see below).

A "delimiter bracket" is a bracket in list of delimiters passed as
C<extract_bracketed>'s second argument. Delimit <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	10834	11022	
==>Checks if $got == $expected.  This is the
numeric version.

=cut

sub is_eq {
    my($self, $got, $expect, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $ex <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451626	451854	
==>"#line 225 \"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452365	452593	
==>"#line 225 \"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	2096	2262	
==>r pointer is passed in

=item P

PMC.

=item 2

Pointer to short.

Taken from an I register.

=item 3

Pointer to int.

Taken from an I register

=item 4

Pointer to l <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	1850	1961	
==>e);
get_source($file);
exit if $opt{D};
gen_code();

sub nci_method {
    my $m = shift;
    return 1 if $vtable <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029888	1030094	
==>_sleep_on_event(interpreter, {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030730	1030936	
==>_sleep_on_event(interpreter, {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	7051	7209	
==>ne("  .local $1 ");
            $code .= emit(join(",", map {$_."_%0"} @vars), 'loop_num');

            next;
        }
        

        # comments
        $ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	49260	49508	
==>'{'> is to be used.
Omitting the third argument (prefix argument) implies optional whitespace at the start.
Omitting the fourth argument (outermost delimiter brackets) indicates that the
value of the second argument is to be used for the outermost d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729737	729977	
==>ODE" => 818,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 71 \"src/ops/set.ops\"\n   STRING * const temp = {{\@1}};\n   { <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1317	1417	
==>ES => 'ARRAY', YYDEBUG => '');
#Mandatory parameters
my(@params)=('LEX','RULES','STATES');

sub n <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1273	1369	
==>ES => 'ARRAY', YYDEBUG => '');
#Mandatory parameters
my(@params)=('LEX','RULES','STATES');

sub n <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	527	629	
==>not defined!" unless defined $block;
  confess "Left is not defined!" unless defined $left;
  confess " <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	539	641	
==>not defined!" unless defined $block;
  confess "Left is not defined!" unless defined $left;
  confess " <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	14311	14533	
==>} } split( '', $params );
        # This is an after-the-fact hack: real fix would be in make_arg
        # or somewhere at that level.  The main point being that one cannot
        # just cast pointers and expect things to <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	1682	1849	
==>, int);\n" foreach (@pmcs);

    print OUT <<"END_C";

void Parrot_register_core_pmcs(Interp *interp, PMC* registry);
extern void Parrot_initialize_core_pmcs(Interp *in <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10130	10282	
==>ase.branches.html#$function">@{[$function_branch_coverage{$source_file}{$function} ? "$function_branch_coverage{$source_file}{$function} %" : "n/a" ]}</a <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	17621	17730	
==>FIXME: This ought to throw errors when attempting to rewrite $n
        # argument accesses and other things t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51762	51866	
==>t_trace(interpreter,   {{\@1}}); }\n  else         { Parrot_clear_trace(interpreter, PARROT_ALL_TRACE_FLA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52545	52649	
==>t_trace(interpreter,   {{\@1}}); }\n  else         { Parrot_clear_trace(interpreter, PARROT_ALL_TRACE_FLA <==
2	/Users/nnunley/parrot/languages/regex/regex.pl	1153	1375	
==>ssion!";
}

if (defined $expr_file) {
    local *IN;
    local $/;
    open(IN, "<$expr_file")
      or die "open $expr_file: $!";
    $expr = <IN>;
    close IN;
}

$operation ||= "compile";

my %options;
$options{'no-tree <==
2	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	1413	1601	
==>:Test::slurp_file($out_f);
}


=head2 output_is

This gets called when language_output_is() is called in a test file.

=cut

sub output_is 
{
  my $self = shift;
  my ( $code, $expected, $d <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25438	25557	
==>->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    my $temp   = $self->_consta <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27338	27455	
==>->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    my $temp = $self->_consta <==
2	/Users/nnunley/parrot/languages/regex/test.pl	1063	1289	
==>ta and a newline. (The newline
  is not regarded as part of the data, so add an extra one if you want
  the input to end with a newline.) The OUTPUT: section is similar.

  Example:

__END__
(a*a|(aaa))a
INPUT:
xxxxxxxxaaabb
OU <==
2	/Users/nnunley/parrot/Configure.pl	4010	4126	
==>ing only pure ANSI C is available.

=back

=head1 SEE ALSO

F<config/init/data.pl>, F<lib/Parrot/Configure/RunSteps.p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	1605	1870	
==>PROPS  => $props,
    ARGS   => $args,

    DEBUG  => 1,
    FILE   => $file,
    LINE   => $line
  }, $class;

  return $self;
}


#
# ACCESSORS:
#

sub block  { return shift->{BLOCK};    }

sub scope  { return shift->{SCOPE}     }
sub kind   { return shift->{KIND} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	36959	37076	
==>ve %s (Handled: %s)\n",
         $para->[0], join(' ', sort keys %{$self->{'accept_directives'}} )
        ;
        $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	170	304	
==>:CodeGen';
use strict;

sub output_preamble {
    my $self = shift;

    return (
            'new P0, PerlRegex',
            're_bind <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566909	567220	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "does",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567803	568114	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "does",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655630	655923	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FL <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2361	2469	
==>. '/Users/nnunley/parrot/src/pmc' . $PATHQUOTE . " " .
        $source;
};

sub partial_link_cmd {
    my ($t <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	2156	2264	
==>. '/Users/nnunley/parrot/src/pmc' . $PATHQUOTE . " " .
        $source;
};

sub partial_link_cmd {
    my ($t <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	25146	25300	
==>optional_fail');
    my ($R_back, @R_ops) = $self->rewrite($R, $rfail);

    my @ops = (
                        @R_ops,
                        aop('pushi <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	5238	5406	
==>n) {
            my @warns = split ' ', $warns;
            foreach my $w (split ' ', $ccwarn) {
                $w =~ s/^-W(?:no-)?(.*)$/$1/;
                @warns = g <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21775	21963	
==>. '")' )
            : ''
          )
        );
        DEBUG and print "Ignoring targetless =end\n";
        next;
      }
      
      unless($content =~ m/^\S+$/) {  # i.e., unless it's <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2222	2346	
==>self->_DBParse()';#Do not create stab entry on compile
        $@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2139	2258	
==>self->_DBParse()';#Do not create stab entry on compile
        $@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	} <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	1768	1916	
==>tests);
        };
        if ($@) {
            warn "Warning! Unable to extract tests for $file\n";
        } else {
            warn "Extracting t <==
2	/Users/nnunley/parrot/lib/Test/More.pm	31601	31765	
==>1->{$k} : $DNE;
        my $e2 = exists $a2->{$k} ? $a2->{$k} : $DNE;

        push @Data_Stack, { type => 'HASH', idx => $k, vals => [$e1, $e2] };
        $ok = _de <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	8327	8481	
==>$_; $t =~ s/\.ops$/.pod/; "ops/$t" } @ops;

        $conf->data->set(pod => $pod);

        genfile(
            'config/gen/makefiles/docs.in', 'docs/Make <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19190	19319	
==>lf->get(1)->is_assign
      and $self->get(2)->is_ident
      and $self->get(3)->is_open_paren
    ) {
      my $block = $self->cu <==
2	/Users/nnunley/parrot/config/inter/progs.pm	4022	4179	
==>debug || $debug =~ /n/i) {
        $conf->data->set(
            cc_debug   => '',
            link_debug => '',
            ld_debug   => ''
        );
    } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835731	835812	
==>_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, string_copy(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836484	836565	
==>_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, string_copy(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	254	349	
==>::Pmc2c> (and the L<subclasses|/SUBCLASSES> defined in this
file) is used by F<tools/build/pmc2c <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	8932	9062	
==>push @results, $usage;
    }

    my $result = join " ", @results;
    $result = " $result" if @results;
    return $result;
}

sub <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	312	411	
==>e-translation hook.
sub pre_translation() {
	# We need to emit PIR that sets up a dummy stack.
	retu <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1149	1289	
==>!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically by $0.
 *
 * Any changes made here will be lost!
 *
 */

#inc <==
2	/Users/nnunley/parrot/tools/build/revision_c.pl	523	663	
==>!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically by $0.
 *
 * Any changes made here will be lost!
 *
 */

#inc <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9116	9245	
==>ire Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('Some::Module');
  use_ok('Some::Other::Module', todo => 1);

  ok(2 + <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	1433	1551	
==>t see L</"Data is not an API">.

=item No Parrot API

The API is defined in the lib but not defined in the public heade <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	27224	27411	
==>b UNARY_CONVERT
{
    my ($n, $c, $cmt) = @_;
    my $tos = pop @stack;
    my $p = promote($tos);
    my $s = temp('P');
    print <<EOC;
	$s = $p."__get_repr"() $cmt
EOC
    push @stack, <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	4747	4855	
==>niverse, and perl does horrible mangling to them that gets in my way,
it works like this on VMS.

    0     S <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	50054	50188	
==>ails, return
the error it returned. Otherwise go back to step 1.

=item 3.

Try to match an opening delimiter bracket. If found, call
C <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	3422	3530	
==>rot::OpsFile->new( [ $file ], $nolines_flag );
    die "$0: Could not read ops file '$file'!\n" unless define <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	2985	3089	
==>rot::OpsFile->new( [ $file ], $nolines_flag );
die "$0: Could not read ops file '$file'!\n" unless define <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	1650	1894	
==>oduces "ok 1 - Hell not yet frozen over" (or not ok)
  ok( get_temperature($hell) > 0, 'Hell not yet frozen over' );

If you provide a $name, that will be printed along with the "ok/not
ok" to make it easier to find your test when if fails (just <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	6309	6419	
==>asy.  Each level of the hierarchy should be
    # indented two spaces.

    # there are two exceptions.  The ou <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130170	130589	
==>RGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 160,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 301 \"src/ops/bit.ops\"\n  {{\@1}} ^= {{\@2}};\n  {{+=3}};\n <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9591	9700	
==>se)
        and confess "C compiler failed (see test.cco)";

    _run_command("$link $linkflags test$o $link_a <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6470	6563	
==>) {
        my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $self->req <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	6156	6290	
==>shift;
    my $recursive = shift;
    my $ignore = shift;
    my %suffixes = ();
    
    foreach my $file ($self->files($recursive, $i <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	31241	31393	
==>our clobbering:
            push @$para, $para->[1]{'~orig_content'};
            delete $para->[1]{'number'};
             # Only a PROPER item-number e <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3632	3732	
==>self, $addr) = @_;

    die "pbc2c.pl: Cannot handle RESUME ops!";
}

=item C<restart_offset($offset) <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	46341	46468	
==>ke this:

        <<'EOMSG' || die;
        This is the message.
        EOMSG
	exit;

Given this as an input string in a scalar <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	804	930	
==>ookup_var {
    my ($self, $var, $ctx) = @_;
    if ($ctx->{$var}) {
        return $ctx->{$var};
    } else {
        return ' <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	33759	33852	
==>{..}', '[..]', or '<..>'). Optionally it will also
respect quoted unbalanced brackets (see bel <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2744	2857	
==>m/i;
        }
        my $extraLibs = '-lm -lgmp -lreadline -lpthread -lm -L/opt/local/lib  -licuuc -licudata -lp <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	2539	2652	
==>m/i;
        }
        my $extraLibs = '-lm -lgmp -lreadline -lpthread -lm -L/opt/local/lib  -licuuc -licudata -lp <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	353	471	
==>MP_toker;
use COMP_parser;
use COMP_assignments;
use COMP_expressions;

our @basic=();


$SIG{__DIE__}=sub {
	print "At <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	6552	6687	
==>ode) {

END_C


    foreach my $cur_blk (@blocks) {
	printf "case %d: PC_%d: {\n", $cur_blk->[0], $cur_blk->[0];

	foreach $pc (@{$cur_b <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2230	2322	
==>${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Decrement stack height.
dec <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3482	3574	
==>${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Decrement stack height.
dec <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	1293	1405	
==>f "/sw/include/gmp.h") {
            $conf->data->add(' ', linkflags => '-L/sw/lib');
            $conf->data->ad <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	842	1070	
==>name, $text, @items)>

Returns a new section. 

Use this when creating subsections within a subclass's C<new()> method.

=cut

sub new_section
{
    my $self = shift;
    
    return Parrot::Docs::Section->new(@_);
}

=item C<new <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24519	24633	
==>o &parse_dim;
		} else  {
			die "Unknown dim type: $syms[CURR] at source line $sourceline";
		}
}
my $forloop=0;
s <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4152	4255	
==>ix;
    foreach $core_suffix (values %cores) {
		foreach (@oplibs) {
			my $src = $_ . "_ops$core_suffix <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871548	872106	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 989,
                  "ARGS" => [
                              "s",
                              "sc",
                              "i",
                              "i"
                            ],
                  "BODY <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	870532	870886	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 988,
                  "A <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	5070	5179	
==>cker = Pod::Simple::Checker->new;
	
		$self->{POD_ERRORS_TIME} = time;
		$self->{POD_ERRORS} = '';
		$checker- <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	2101	2216	
==>@funcs;

    # If it's got a semicolon, it's not a function header
    @funcs = grep !/;/, @funcs;

    chomp @funcs <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19187	19283	
==>nt_integer> );

This method sets the size (in half-points, like 26 for 13-point)
that normal para <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	2085	2286	
==>lign-functions=16 -Wno-shadow',
             'cg_flag' => '-DHAVE_COMPUTED_GOTO',
             'charset' => 'ascii.c binary.c iso-8859-1.c tables.c unicode.c',
             'chmod' => 'perl -MExtUtils:: <==
2	/Users/nnunley/parrot/tools/build/list_unjitted.pl	702	815	
==>= /^Parrot_(\S+)\s*\{\s*$/){
        push @jitted, $jit;
    }
}
close JIT or die "Noo.. $!";

my @not_jitted;

OP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353684	353803	
==>erpreter, s)) {\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354429	354548	
==>erpreter, s)) {\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	3334	3432	
==>me) symbols (Ff)
If more than one of all the above options are given, they are ANDed.
They can also <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	251953	252235	
==>DE" => 293,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 708 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}}->vtable->logical_not(interpreter, {{\@2}}, {{\@1}});\n  {{+=3 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2	144	
==>equire 5;
package Pod::Simple::PullParserToken;
 # Base class for tokens gotten from Pod::Simple::PullParser's $parser->get_token
@ISA = ();
$V <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101151	101409	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103357	103615	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937723	937896	
==>ODY" => "#line 460 \"src/ops/string.ops\"\n  string_titlecase_inplace(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/config/gen/revision.pm	430	562	
==>:Base);

use Parrot::Revision;

$description = "Determining Parrot's revision";

sub runstep
{
    my ($self, $conf) = @_;

    my $r <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	70478	70625	
==>pec) $&\" will
		       (almost certainly) fail.",$line)
		and
		_hint("Unless subrule \"$subrule\" performs some cunning
		       lookahead, the re <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	33663	33776	
==>'  => \&_op_reverse,
  'list-ref' => \&_op_list_ref,
  'memq'     => \&_op_memq,
  'memv'     => \&_op_memv,
  'me <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	9316	9448	
==>, <<PRINT;
	find_global \$P0, "PRINTCOL"
	\$P0["value"]=0
	store_global "PRINTCOL", \$P0
	print "\\n"
PRINT
		}
	}

}
sub parse_print <==
2	/Users/nnunley/parrot/config/auto/jit.pm	2871	3075	
==>ns->get('jitcapable')
        if defined $conf->options->get('jitcapable');

    if ($jitcapable) {
        my ($jitcpuarch, $jitosname) = split(/-/, $jitarchname);

        $conf->data->set(
            j <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	15732	16010	
==>here isn't
            # a $class object
            $self->{super}{$meth} =
                $self->{class} eq 'ParrotObject' ||
                $self->{class} eq 'ParrotClass' ?
                'delegate' :
                'default';
        }
    }
}


=head2 add_defaulted($cl <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	5609	5743	
==>adbc(interpreter, pf);

    /* setup P0, stolen from embed.c */
    userargv = pmc_new(interpreter, enum_class_PerlArray);
    /* immed <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294674	295180	
==>=> "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 343,
                  "ARGS" => [
                              "i",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 945 \"src/o <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8773	8906	
==>turn @ops;
}

sub output_peekindex {
    my $self = shift;
    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = (' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8433	8566	
==>turn @ops;
}

sub output_peekindex {
    my $self = shift;
    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = (' <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	1249	1417	
==>ined warns (setenv, unsetenv) on 2.1.3
        $cflags .= ' -D_GNU_SOURCE';
    }

    $conf->data->set(
        ccflags        => $cflags,
        libs           => $li <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10930	11108	
==>haracters that 
            #  an XML Name still can't start with.
    }
    
    Carp::croak "But you must accept \"$new_code\" codes -- it's a builtin!"
     if grep $new_code e <==
2	/Users/nnunley/parrot/lib/Test/More.pm	13432	13541	
==>( $@ =~ /^Can't call method "isa" on unblessed reference/ ) {
                if( !UNIVERSAL::isa($object, $cl <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2306	2406	
==>mentation as in C<Parrot::OpTrans>. It
should not be duplicated.

=cut

sub gen_goto
{
    my ($self, <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	46364	46528	
==>ope( $_[0] );
            $_[1];
        }
	],
	[#Rule 8
		 'block', 3,
sub
#line 80 "Lua\lua51.yp"
{
            PopScope( $_[0] );
            [ @{ $_[1] <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1910	2125	
==>lash, quotation mark, apostrophe
                last;
            s/^\\a//
                and $str .= "\a",      # bell
                last;
            s/^\\b//
                and $str .= "\b",      # back <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3424	3639	
==>lash, quotation mark, apostrophe
                last;
            s/^\\a//
                and $str .= "\a",      # bell
                last;
            s/^\\b//
                and $str .= "\b",      # back <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	12370	12592	
==>OP()         {{=*}}   PC' = <pop>   Pop address off control stack
        #   expr OFFSET(X)     {{^+X}}  PC + X        Relative address
        #   expr NEXT()        {{^+S}}  PC + S        Where S is op size
        #   e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441523	441635	
==>],
                  "BODY" => "#line 109 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442538	442650	
==>],
                  "BODY" => "#line 109 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106313	1106415	
==>erpreter, NULL, E_ValueError,\n\t\t\"type number out of range\");\n    {{\@1}} = interpreter->vtables[t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107289	1107391	
==>erpreter, NULL, E_ValueError,\n\t\t\"type number out of range\");\n    {{\@1}} = interpreter->vtables[t <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	41549	41791	
==>ave_1 ('P');
  $self->_restore($return); # dont need to save this
  $self->_save_set;

  my $count = 5;
  my $empty = $return;
  while (my $arg = shift) {
    if ($arg ne "P$count") {
      if ($arg =~ /^[INS]/) {
	$self->_morph("P$count", $ar <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	6656	6766	
==>mbols = sort grep { defined($defined_in{$_}) } @symbols;
    my @non_ansi_external_symbols = grep { ! exists($a <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18673	18780	
==>gs, Jako::Construct::Expression::Value->new($block, $self->require_value);
          last if $self->get(1)-> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19699	19806	
==>gs, Jako::Construct::Expression::Value->new($block, $self->require_value);
          last if $self->get(1)-> <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	28205	28422	
==>'content_seen'} ||= 1;
        $self->_handle_element_end( $scratch =
          'over-' . ( (pop @$curr_open)->[1]{'~type'} )
        );
      } else {
        DEBUG > 1 and print "=back found without a matching =over. <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	22343	22483	
==>4= P6["storage"]
	P6= P4["$_->[0]"]
	bsr COPY_$_->[1]
	P2["storage"]= P1
	P6= P5		# Go back to where we were!
	P2["_type"]= '$_->[1]'
	P3["$_ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	9768	9879	
==>parapos }
	else		      { $parapos = pos($$textref) }

	return (
		$startpos,    $opentagpos-$startpos,		# PREFIX <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3147	3282	
==>reach my $content (@{$self->{CONTENTS}})
	{
		if ( ref($content) )
		{
			push @contents, $content;
		}
		else
		{
			# It would be good <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	2954	3090	
==>,])(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, 'comma', undef, $1);
      $text = $2;
      next;
    }

    if <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	363	508	
==>Switch | CPrederef

For example:

    % perl tools/build/ops2c.pl C --core

    % perl tools/build/ops2c.pl C --dynamic myops.ops

=head1 DESCRIPT <==
2	/Users/nnunley/parrot/config/auto/funcptr.pm	410	524	
==>gure::Step ':auto';

$description = 'Verifying that the compiler supports function pointer casts';

@args = qw(verb <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	3591	3832	
==>ut | open | close | on | randomize | stop | swap |
		common | cls | locate | color | keys
		)$/x) {
		no strict 'refs';
		&{"parse_" . $1}();
		goto PARSE;
	}
	if ($syms[CURR] eq "select") {
		&parse_select;
		goto PARSE_NOFEED;
	}
	if ($syms <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	19732	19904	
==>!\n";
        $to_resolve = 1
          if $self->{'accept_targets'}{$target_name} eq 'force_resolve';
        $dont_ignore = 1;
        $para->[1]{'target_matching'} = $tar <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	14226	14386	
==>nil', 'nil' );
            push @{ $expr->[1] }, @{ $nil->[1] };
            my $n = scalar( @{$vars} );
            while ( $n-- ) {
                $result <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863314	863614	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bytelength",
                  "FLAGS" <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/EditorPlugins.pm	586	723	
==>{
	my $self = shift;
	
	return $self->SUPER::new(
		'Editor Plugins', 'editor.html', '',
		$self->new_item('', 'editor')
	);
}

=back

=cu <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	5615	5760	
==>erage{$source_file} = $percent;
                next;
            }
        }

        filter_gcov($gcov_file);
    }
}

write_file_coverage_summa <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	5027	5231	
==>en MODULE, ">$module"
  or die "$0: Could not open module file '$module' for writing: $!!\n";


#
# Print the preamble for the MODULE file:
#

my $version = $real_ops->version();

# Hide the pod.

(my $pod <==
2	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	720	806	
==>s.pasm>, 
F<examples/benchmarks/stress.pl>, 
F<examples/benchmarks/stress1.pasm>, 
F<ex <==
2	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	567	653	
==>s.pasm>, 
F<examples/benchmarks/stress.pl>, 
F<examples/benchmarks/stress1.pasm>, 
F<ex <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7448	7563	
==>, 300
print "No match\n"
FIN:
for i = 1 to 3
	on i gosub oats, peas, beans
next i
print
end
100 print "100!"
    got <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19731	19846	
==>, 300
print "No match\n"
FIN:
for i = 1 to 3
	on i gosub oats, peas, beans
next i
print
end
100 print "100!"
    got <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	8495	8759	
==>args) = @_;

  my $message = sprintf($format, @args);

  print STDERR "%s [%s]: Warning: %s", $self->file, $self->line, $message;
}


#
# ERROR()
#

sub ERROR
{
  my ($self, $kind, $format, @args) = @_;

  my $message = sprintf($format, @args);

  $message = sprint <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10639	10739	
==>$section =~ tr/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
        $section = $self->unicode_escape_url( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4020	4116	
==>$section =~ tr/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
    $section = $self->unicode_escape_url( <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	925	1023	
==>be
considered manual.

=head2 Op Arguments

Note that argument 0 is considered to be the op itself, <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	603	709	
==>pts.

It is assumed that it will run on a Unix box. It's not particularly
necessary to be portable, since i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518148	518374	
==>734 \"src/ops/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518887	519113	
==>734 \"src/ops/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4478	4601	
==>QV   IMP   a & ! b"
for i = 0 to 1
for j = 0 to 1
print i; j;
if i and j then a$="True  " else a$="False "
if i or  j then b <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	15083	15344	
==>T

    # Emit code to get the .NET exception object and check if it's of the type that
    # is accepted.
    gen_pir = concat ".get_results (cur_exception, $S1000000)\n"
    gen_pir = concat "$P1000001 = cur_exception[\"obj\"]\n"
    class_type = eh.get_class_t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408266	408364	
==>540 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_connect(interpreter, {{\@2}}, {{\@3}});\n    {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409165	409263	
==>540 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_connect(interpreter, {{\@2}}, {{\@3}});\n    {{+= <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20371	20493	
==>ram that does something simple with a Pod::PullParser
object (and not an object of a subclass), then there's no reason to
b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953766	954049	
==>{
                  "JUMP" => 0,
                  "NAME" => "encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954556	954839	
==>{
                  "JUMP" => 0,
                  "NAME" => "encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81128	81464	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compile",
                  "FLAGS" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82021	82357	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compile",
                  "FLAGS" => " <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	6016	6125	
==>xpected();
		unless (! $next or _contains($next,@expected) )
		{
			push @expected, $next;
		}
	}

	return $se <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	201	311	
==>UG = \&Pod::Simple::DEBUG unless defined &DEBUG;
}

__PACKAGE__->_accessorize(
  'root',   # root of the tree
) <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	743	860	
==>/bignum.h'),
		),
		$self->new_group('Testing', '',
			$self->new_item('', 't/pmc/bignum.t' ),
		),
	);
}

=back

=cut <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254170	254633	
==>> ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 296,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#l <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	7359	7466	
==>_$O" } @$stems;
    if (needs_build("$group$LOAD_EXT", @sources)) {
        run(partial_link_cmd("$group$LOA <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7570	7677	
==>_$O" } @$stems;
    if (needs_build("$group$LOAD_EXT", @sources)) {
        run(partial_link_cmd("$group$LOA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746099	746364	
==>E" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 84 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	751568	751833	
==>E" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 84 <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	4336	4519	
==>rr_open { # read-only list accessor
#  return @{ $_[0]{'curr_open'} || return() };
#}
#sub _curr_open_listref { $_[0]{'curr_open'} ||= [] }


sub output_string {
  # Works by faking ou <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	135	247	
==>2;

use strict;

use base 'Parrot::Test::Bc';

sub get_out_fn {
    my $self = shift;
    my ( $count, $options ) <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	6650	6837	
==>ifndef|ifdef|if)\s+(.*)/) {
            next if (/PARROT_IN_CORE|_GUARD/);

            my $indent = "  " x (@stack);
            if ($1 ne $indent) {
                error($file, $line, " <==
2	/Users/nnunley/parrot/config/auto/memalign.pm	1718	1880	
==>_memalign'
        : $test  ? 'memalign'
        : '';
    $conf->data->set(memalign => $f);
    print($test ? " (Yep:$f) " : " (no) ") if $verbose;
    $self->set <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584725	584980	
==>ss, NULL);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585800	586055	
==>ss, NULL);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
2	/Users/nnunley/parrot/config/init/hints/cygwin.pm	669	805	
==>t by with simply using gcc -shared, so we override the
    # perl5 Configure defaults and use 'gcc -shared' instead of 'ld2'.
    # If th <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	750763	751224	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 846,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 209 \"src/ops/set.ops\"\n  {{\@1}}->v <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	10692	10840	
==>my $typ = $DEFVAR;
        my $pmc = temp('P');
	$c =~ s/[lL]$//;
	print <<EOC;
	$pmc = new .BigInt $cmt
	$pmc = "$c"
EOC
	push @stack, [$n, $pmc, 'P <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	8244	8757	
==>mp = ();

            foreach my $arg (@args)
            {
                my ($use, $type) = $arg =~
                    m/^(in|out|inout|inconst|invar|label|labelconst|labelvar)
                    \s+
                    (INT|NUM|STR|PMC|KEY|INTKEY)$/ix;

                die "Unrecognized arg format '$arg' in '$_'!" unless defined($use) and defined($type);

                if ($type =~ /^INTKEY$/i)
                {
                    $type = "ki";
                }
                else
                { <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	409	538	
==>d_steps(@steps);
    $conf->runsteps;

=head1 DESCRIPTION

This module provides provides a means for registering, executing, and
c <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	979	1090	
==>f->new_group('IO', '',
			'lib/Parrot/Distribution.pm', 'lib/Parrot/IO'),
		$self->new_group('Documentation', '' <==
2	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1740	1840	
==>tputBaseFilename=setup-parrot-$options{version}
Compression=lzma
SolidCompression=yes
ChangesAssociat <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	860	1041	
==>' => 'Perl script',
	'SKIP' => 'MANIFEST skip file',
	'STATUS' => 'Languages status file',
	'TXT' => 'Text file',
	'txt' => 'Text file',
	'a' => 'Library file',
	'bas' => 'BACIC code <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	3348	3485	
==>n);
        return if $from_sum == $to_sum;
    }

    File::Copy::copy($from, $to);

    # Make sure the timestamp is updated
    my $now <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2159	2307	
==>ead1'  => "\n}\\par}\n",
 'head2'   => "\n{\\pard\\li#rtfindent#\\s32\\keepn\\sb90\\sa180\\f2\\fs#head2_halfpoint_size#\\ul{\n",
 '/head2'  => "\n}\\ <==
2	/Users/nnunley/parrot/lib/File/Which.pm	4140	4237	
==>em, C<File::Which> takes extra steps to assure that you
will find the correct file (so for example <==
2	/Users/nnunley/parrot/tools/build/vtable_h.pl	475	636	
==>my $vtable = parse_vtable();

open OUT, ">include/parrot/vtable.h" or die $!;

print OUT <<'EOF';
/* ex: set ro:
** !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
**
* <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	17342	17484	
==>1;
}

# XXX quick hack - to get MMD variants
sub get_super_mmds {
    my ($self, $meth, $right, $func) = @_;
    ## use Data::Dumper;
    ## pr <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	847	968	
==>lock, $token)    if $token->kind eq 'literal';

  return undef;
}

sub block { return shift->{BLOCK}; }
sub token { return <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	59500	59598	
==>imiters.
If no escape char is specified for a given specified delimiter, '\' is used.

Note that 
C <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	3347	3541	
==>TML->new;
                    
        if ( $file->contains_pod )
        {   
            print "\n", $rel_path unless $silent;
        
            $formatter->write_html($source, $target, $rel <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4019	4219	
==>directory_paths;
}

=item C<directory_paths()>

These are the full paths of all the subdirectories in the directory.

=cut

sub directory_paths
{
    my $self = shift;

    return sort grep {-d} $self- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122032	122131	
==>o kill.\n   * it's just casting a signed integral to the equivalent unsigned.\n   */\n  LVALUE_CAST( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122944	123043	
==>o kill.\n   * it's just casting a signed integral to the equivalent unsigned.\n   */\n  LVALUE_CAST( <==
2	/Users/nnunley/parrot/config/gen/config_pm.pm	1839	2051	
==>->keys) {
                my $v = $conf->data->get($k);
                if (defined $v) {
                    $v =~ s/(["\\])/\\$1/g;
                    $v =~ s/\n/\\n/g;
                    print OUT qq(\tset P0 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	2253	2445	
==>PACKAGE} .= "::" . $self->name;
#  }
#  else {
#    $options->{PACKAGE} = $self->name;
#  }

  return $self->SUPER::compile($compiler, $options );

  return 1;
}


#
# sax()
#

sub sax
{
  my $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826387	826476	
==>line 146 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827457	827546	
==>line 146 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpret <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	30895	31054	
==>5)" is).
#

############# Not implemented, I guess.
# Sixth:
# The raw original L<...> content, before text is split on "|", "/", etc,
# and before E<...> codes <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9272	9389	
==>ontinue parsing

#DBG>			$debug & 0x10
#DBG>		and	do {
#DBG>			print STDERR "**Entering Error recovery.\n";
#DBG> <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8856	8968	
==>ontinue parsing

#DBG>			$debug & 0x10
#DBG>		and	do {
#DBG>			print STDERR "**Entering Error recovery.\n";
#DBG> <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34822	34971	
==>'name'}");
		}
		$pir .= "### end translation\n";

		# Now emit code to fix up the stack type array and propogate it.
		for (1..$rule->{'pop'}) {
			$ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2664	2783	
==>ST}} != 0;
}

sub YYAbort {
	my($self)=shift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2546	2654	
==>ST}} != 0;
}

sub YYAbort {
	my($self)=shift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($s <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	2557	2704	
==>s true then progress is not reported.

Any POD-formatted text in the item's files is converted to HTML and
written to a file in C<$target> and an HT <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	866	1032	
==>used to provide the config environment for
subsequently created Interpreters.

=cut


use strict;

my ($mini_parrot, $install_parrot);

$mini_parrot = 1    if @ARGV && <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	2473	2612	
==>hift;
    my $tagname = $token->tagname;

    if ( $tagname eq 'L' ) 
    {
        $self->process_link_start_token($token);
    }
    elsif <==
2	/Users/nnunley/parrot/config/gen/platform.pm	2855	3021	
==>ers = grep { /\.h$/ } split(',', $generated);
    for (@headers) {
        if (-e $_) {
            local $/ = undef;
            print("\t$_\n") if defined $verbose & <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853413	853690	
==>\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conca <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854195	854472	
==>\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conca <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	8571	8684	
==>newl, $semi, $interp, $pmc);
    if ($for_header) {
        $export = $self->{flags}->{dynpmc} ? 'PARROT_DYNEXT_EX <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_assignments.pm	283	438	
==>NT_FUNC {
	my($varname)=@_;	# P6 already has the RHS Loaded...
	print CODE<<ASS_FUNC;
	new P0, .PerlArray
	set P0[.TYPE], "BARE"
	set P0[.VALUE], "$varname" <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	4508	4673	
==>e docs are changed.
        
        my $href = $self->href_for_perl_module($text);
        
        esc($text);
    
        if ( $href )
        {
            $text <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	484	596	
==>I don't think we need that
$Text::Wrap::wrap = 'overflow';
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	34933	35084	
==>ea of what constitutes a bare
          #  modulename link like L<Foo::Bar> or even L<Thing::1.0::Docs::Tralala>
          DEBUG > 1 and print "Catching <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	17793	18013	
==>utfile=file.pasm' seems to create unnecessary whitespace
                $real_output =~ s/^\s*$//gm;
                $real_output =~ s/[\t ]+/ /gm;
                $real_output =~ s/ +$//gm;

                $expected =~ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	13508	13635	
==>ber{'eacute'}> is 8364.  You get the correct
Unicode value, regardless of the version of Perl you're using --
which differs from <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	26540	26663	
==>ilure. So this threads all the
# fallback points together.
sub rewrite_seq {
    my $self = shift;
    my $op = shift;
    m <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1819	1929	
==>lar(@args), $name)
    unless @formal_args == @args;

  for (my $i = 0; $i < @args; $i++) {
    my ($formal_arg <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1519	1629	
==>lar(@args), $name)
    unless @formal_args == @args;

  for (my $i = 0; $i < @args; $i++) {
    my ($formal_arg <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	9508	9702	
==>ntaining the flags associated with the class
(such as 'extends' and 'does').

=cut

sub parse_flags {
    my $c = shift;

    $$c =~ s/^(.*?^\s*)pmclass ([\w]*)//ms;
    my ($pre, $classname) = ( <==
2	/Users/nnunley/parrot/lib/Test/More.pm	3263	3367	
==>re that you
have no plan.  (Try to avoid using this as it weakens your test.)

  use Test::More qw(no_pla <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3282	3388	
==>roup, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    while (my ($group, $pmcs) = each %$group_fi <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3386	3492	
==>roup, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    while (my ($group, $pmcs) = each %$group_fi <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22307	22415	
==>@_;
  my $return;
  my $label = $self->_gensym();

  my $temp_0 = $self->_generate($node->{children}[1]);
  $ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22808	22916	
==>@_;
  my $return;
  my $label = $self->_gensym();

  my $temp_0 = $self->_generate($node->{children}[1]);
  $ <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	506	675	
==>t::Bc.
XXX: Do not configure with environment variables.
Use Antlr2 in smoke testing.

=cut

sub new {
    my $test_module = $ENV{'PARROT_BC_TEST_MODULE'} || 'Parrot::Tes <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931838	931928	
==>415 \"src/ops/string.ops\"\n  {{\@1}} = string_upcase(interpreter, {{\@2}});\n  {{+=3}};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932609	932699	
==>415 \"src/ops/string.ops\"\n  {{\@1}} = string_upcase(interpreter, {{\@2}});\n  {{+=3}};\n" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	413	519	
==>ew
{
  my $class = shift;
  my ($block, $left, $right) = @_;

  confess("Block (" . ref($block) . ") not!") <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	404	510	
==>ew
{
  my $class = shift;
  my ($block, $left, $right) = @_;

  confess("Block (" . ref($block) . ") not!") <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	6011	6204	
==>e($ot2);
		($a1,$a2,$ot1,$ot2)=($a2,$a1,$ot2,$ot1);
		return(<<CODE, $result);
	# IMP $a1, $a2
	set $result, 1.0
	eq $a1, $ot1, EQ_${eqnum}_end
	ne $a2, $ot2, EQ_${eqnum}_end
	set $result, 0.0
E <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16904	17048	
==>u in X-generated comments
        #  with text in them.
        
        # Yes, stipulate the list without a range, so that this can work right o <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10344	10472	
==>u in X-generated comments
    #  with text in them.

    # Yes, stipulate the list without a range, so that this can work right o <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14355	14467	
==>>\n";
  $title = '\lang1024\noproof ' . $title
   if $is_obviously_module_name;

  return sprintf <<'END', 
\defl <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	886	976	
==>ess "Ident is not!" if defined $ident and not UNIVERSAL::isa($ident, 'Jako::Construct::Expr <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	914	1004	
==>ess "Ident is not!" if defined $ident and not UNIVERSAL::isa($ident, 'Jako::Construct::Expr <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	12392	12554	
==>$pre        = defined $_[2] ? $_[2] : '\s*';
	my $ldel_outer = defined $_[3] ? $_[3] : $ldel_inner;
	my $rd         = $_[4];
	my $rdel_inner = $ldel_inner;
	my $rd <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	12205	12386	
==>ortsize' => 2,
             'slash' => '/',
             'sym_export' => '',
             'sym_import' => '',
             'test_prog' => 'parrot',
             'testheader' => undef <==
2	/Users/nnunley/parrot/config/auto/format.pm	503	651	
==>step
{
    my ($self, $conf) = @_;

    my ($ivformat, $nvformat, $nvsize);
    my ($iv,       $nv,       $floatsize, $doublesize, $ldsize) = $conf-> <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	19900	20120	
==>ory issues with this but if we get to here we are
     * aborting.
     */
    c = string_to_cstring(interpreter, message);
    PANIC(c);
    return NULL;
}

TAIL
}

=begin example

This is the template thing

static void <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352180	352359	
==>> [
                              "n"
                            ],
                  "BODY" => "#line 195 \"src/ops/io.ops\"\n  PIO_printf(interpreter, \"%f\", (double){{\@1}});\ <==
2	/Users/nnunley/parrot/config/auto/pack.pm	340	471	
==>Step::Base);

use Parrot::Configure::Step;
use Config;

$description = q{Figuring out how to pack() Parrot's types};

@args = ();

s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103901	1103985	
==>_type(interpreter, class);\n\tif (!type) {\n\t\tParrot_autoload_class(interpreter, cl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105116	1105200	
==>_type(interpreter, class);\n\tif (!type) {\n\t\tParrot_autoload_class(interpreter, cl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	308778	308964	
==>->state |= PDB_RUNNING;\n    }\n\n    {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	29880	30063	
==>, 0, $uid ]),
                          aop('goto' => [ $handle ]),
                 $next =>
              );
    return ($back, @ops);
}

# Handle a rule definition. $lastback is ign <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	2444	2570	
==>lf = shift;
    my $token = shift;
    my $tagname = $token->tagname;

    if ( $tagname eq 'L' ) 
    {
        $self->process <==
2	/Users/nnunley/parrot/config/inter/make.pm	465	622	
==>k_progs );

$util        = 'make';
$description = "Determining whether $util is installed";
$prompt      = "Do you have a make utility like 'gmake' or 'make'? <==
2	/Users/nnunley/parrot/examples/benchmarks/oo5.pl	143	290	
==>w {
    my $self = ref $_[0] ? ref shift : shift;
    return bless [ 10, 20 ], $self;
}

sub i {
    my $self = shift;
    if (@_) { $self->[0] = sh <==
2	/Users/nnunley/parrot/examples/benchmarks/oo6.pl	135	282	
==>w {
    my $self = ref $_[0] ? ref shift : shift;
    return bless [ 10, 20 ], $self;
}

sub i {
    my $self = shift;
    if (@_) { $self->[0] = sh <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	7458	7584	
==>art_token
{
    my $self = shift;
    my $token = shift;
    my $next = $self->get_token;
        
    return unless defined $n <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3097	3196	
==>vert X.pmc -> X.dump and X.c and also create any lib-GROUP.c files

    generate_dump($_) foreach (@ <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3201	3300	
==>vert X.pmc -> X.dump and X.c and also create any lib-GROUP.c files

    generate_dump($_) foreach (@ <==
2	/Users/nnunley/parrot/config/auto/byteorder.pm	601	763	
==>cc_build();
    my $byteorder = cc_run() or die "Can't run the byteorder testing program: $!";
    cc_clean();

    chomp $byteorder;

    if ($byteorder =~ /^1234 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	3814	3926	
==>$text =~ m{^([\{\}])(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, $1 eq '{' ? 'open-brace <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24166	24297	
==>) {
      my $block = $self->current_block();
      my $kind = $token->text;

      my $target_token = $self->skip_ident;
      my $ <==
2	/Users/nnunley/parrot/languages/perms.pl	308	442	
==>i > @prefix;
    }
    
    if ( $prefix[-1] >= @$things ) {
      @prefix = ( (0) x (@prefix + 1) );
    }

	  my @tumbler = map { $th <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1017	1112	
==>ser>)

=head1 DESCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullParser> object <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2169	2277	
==>anted to shadow the
  # previous definition.
  #

  if (defined $sym and $sym->block eq $block) {
    $self-> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1916	2024	
==>anted to shadow the
  # previous definition.
  #

  if (defined $sym and $sym->block eq $block) {
    $self-> <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	850	1105	
==>erations:    $I4\n"; # print  "Iterations:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4 <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	850	1105	
==>erations:    $I4\n"; # print  "Iterations:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1941	2041	
==>3456789])/'&#'.(ord($1)).';'/eg;
    # Yes, stipulate the list without a range, so that this can work <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2044	2144	
==>3456789])/'&#'.(ord($1)).';'/eg;
    # Yes, stipulate the list without a range, so that this can work <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	1498	1785	
==>optional matches:
        #
        # opt(aR|aS) => a(R|S)
        # opt(R|)    => opt(R)?
        # opt(|R)    => opt(R)??
        #
        my @children = map { $self->pass1($_, $ctx) } @{ $t->{args} };
        if (@children == 1) {
            return $children[0];
        }

        f <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	25143	25296	
==>aybe_fh) || ''), 'TIEHANDLE');
}


sub _autoflush {
    my($fh) = shift;
    my $old_fh = select $fh;
    $| = 1;
    select $old_fh;
}


sub _dup_stdhand <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19003	19150	
==>onal\n";
		push @{$code{$seg}->{code}}, "AFTERDO_$do->{jump}:\n";
		return;
	}
	if ($do->{needstmt}) {
		my $false="0.0";
		feedme();
		my $which=$s <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	4575	4736	
==>[1]($args) \\
    (pmc)->vtable->$entry->[1]($args)
EOM
    }
    $macros .= <<"EOM";

/*
 * vtable method name defines for delegate
 */

/* &gen_from_def(vtable_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25419	25568	
==>tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 79
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25, <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	17563	17728	
==>LOUT {
    my($self, $reason) = @_;

    $self->_print("Bail out!  $reason");
    exit 255;
}

=item B<skip>

    $Test->skip;
    $Test->skip($why);

Skips the curre <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1552	1670	
==>n shift->{TYPE};      }
sub name      { return shift->{NAME};      }
sub props     { return %{shift->{PROPS}};  }
sub a <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4788	4887	
==>e function.

=cut

sub run_core_func_start
{
    return <<END_C;
#if defined(__GNUC__) && defined(I3 <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3076	3175	
==>e function.

=cut

sub run_core_func_start
{
    return <<END_C;
#if defined(__GNUC__) && defined(I3 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3266	3364	
==>m = $self->block->find_symbol($name);

  my %props = $sym->props;

  if (exists $props{fn} or exist <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553274	553805	
==>,
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 636,
                  "ARGS" => [
                              "p",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 94 \"src/ops/object.ops\"\n  opc <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	56085	56195	
==>removed are accumulated and
eventually become the next field (unless the fourth argument is true, in which
case <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	6693	6822	
==>inus'    , 8722,
 'lowast'   , 8727,
 'radic'    , 8730,
 'prop'     , 8733,
 'infin'    , 8734,
 'ang'      , 8736,
 'and'      , <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852814	853023	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853595	853804	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	709245	709454	
==>ops\"\n  dod_unregister_pmc(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	3711	3862	
==>c.c

src/pmc/$pmc\$(O): src/pmc/$pmc.str \$(NONGEN_HEADERS) \\
        $parent_headers

END
    }

    # src/pmc/$pmc\$(O): \$(NONGEN_HEADERS) $parent_h <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	3716	3862	
==>y @arg_types = $self->arg_types;

    $name .=  "_" . join("_", @arg_types) if @arg_types;

    $name = "deprecated_$name" if ($self->body =~ /DEPR <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5298	5483	
==>xpr_offset($offset)>

Implemented in subclasses to return the C code for C<OFFSET($offset)>.
Called by C<goto_offset()>.

=item C<expr_address($address)>

Implemented in subclasses to re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380025	380262	
==>[
                              "i",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 432 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(int <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	1346	1454	
==>least one
path otherwise an exception is raised.

=cut

sub new
{
    my $self = ref $_[0] ? ref shift : shif <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11865	11956	
==>$ac,@args)=pushargs(\@code, \$optype, \@work);
			$pir_args = join(",", map {$_->[0]} (rever <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	12275	12366	
==>$ac,@args)=pushargs(\@code, \$optype, \@work);
			$pir_args = join(",", map {$_->[0]} (rever <==
2	/Users/nnunley/parrot/config/init/defaults.pm	5591	5709	
==>AKE)}, @ARGV; exit $$? >> 8;\'',

        # if platform has a .s file that needs to be assembled
        platform_asm = <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22654	22764	
==>_trace(q{>>Matched directive<< (return value: [}
						. $_tok . q{])},
						Parse::RecDescent::_tracefirst($t <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36460	36659	
==>"%" => 76,
			"*" => 80,
			".." => 71,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -66
	},
	{#State 141
		ACTIONS => {
			"-" => 72,
			"%" => 76,
			"*" => 80,
			".." = <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	3350	3533	
==>5);
}


sub encode_base64 ($) {
    my $res;
    while ($_[0] =~ /(.{1,45})/gs) {
	$res .= substr pack('u', $1), 1;
	chop $res;
    }
    $res =~ tr|` -_|AA-Za-z0-9+/|;#`
    chop $res <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	3218	3354	
==>ests;
foreach (@ARGV) {
    if (/^--([^=]+)=(.*)/) {
        $options{$1} = $2;
    } else {
        push @manifests, $_;
    }
}

# We'l <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	325	417	
==>ne or
more, grouped or ungrouped items.

C<Parrot::Docs::Section> is a subclass of C<Parrot:: <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1202	1337	
==>to_language;
        if ($dir_count == 0) {
          $path_to_language = File::Spec->join('languages', $language);
        } elsif ($di <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1687	1822	
==>to_language;
        if ($dir_count == 0) {
          $path_to_language = File::Spec->join('languages', $language);
        } elsif ($di <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	596	713	
==>ce =~ /\D/) {
        die "Unimplemented: variable-length advances with rx backend";
    } else {
        return ("rx_ <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	12278	12497	
==>);
    close(IN);


    return;

    sub do_filter {
        my ($skip_func) = @_;
        
        while (<IN>) {
            s/&/&amp;/g;
            s/</&lt;/g;
            s/>/&gt;/g;

            next if (&{$skip_fu <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	142	309	
==>afternext="" if (! defined $afternext);
	$stmts++ if $afternext=~/\n/;
}
sub append {
	$curtok.=$cur;
}
sub emit {
	unless ($_[0] eq "STRING" or $_[0] eq "COMM" or $_[0 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	328	497	
==>rp;


#
# new()
#

sub new
{
  confess "Subclass responsibility";
}


#
# debug()
#

sub debug
{
  my $self = shift;

  if (@_) {
    $self->{DEBUG} = shift;
  }

  retur <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193540	193634	
==>ter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) < 0) {\n    {{+={{\@3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194519	194613	
==>ter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) < 0) {\n    {{+={{\@3}} <==
2	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	1557	1684	
==>sor, fingerprint, $len);
    return $len;
}
EOF

} else { # !DEVELOPING

  print << "EOF";
/* fingerprint checking is only enabl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120946	121214	
==>ODE" => 150,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 231 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	10631	10783	
==>match = $self->output_label_use($L_trymatch);
    my $backup = $self->output_label_use($L_backup);

    my @ops = split(/\n/, <<"END");
.sub _$name
  .pa <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10662	10757	
==>EMENT_TYPE_CHAR = 0x03
	.const int ELEMENT_TYPE_I1 = 0x04
	.const int ELEMENT_TYPE_U1 = 0x05
	.c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642651	643137	
==>f",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 718,
                  "ARGS" => [
                              "i",
                              "p",
                              "kc"
                            ],
                  "BODY" => "#lin <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	2474	2590	
==>}

=item C<name()>

Returns the name part of the path.

=cut

sub name
{
    my $self = shift;
    
    return $self- <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32279	32386	
==>self->{class}, $method, 0);
    # I think that these will be out by one - NWC
    my $l = $self->line_direct <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40901	41008	
==>self->{class}, $method, 0);
    # I think that these will be out by one - NWC
    my $l = $self->line_direct <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	5481	5601	
==>guage_output_is('tcl', <<'TCL', <<'OUT', <<'DESC');
$body
TCL
$out
OUT
$name - $expl
DESC

END

        $counter++;
    } <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	7945	8241	
==>ref($trans) eq 'Parrot::OpTrans::CSwitch')) {
        return qq{PANIC("How did you do that");return 0;\n};   
    }

    return $self->rewrite_body($self->full_body, $trans);
}

=item C<size()>

Returns the op's number of arguments. Note that this also includes
the op itself as one argument.

=cu <==
2	/Users/nnunley/parrot/languages/pugs/t/pmc.pm	65	267	
==>oundation.
# $Id: /parrot/languages/pugs/t/pmc.pm 19606 2006-05-30T15:08:05.048089Z coke  $

package t::pmc;
use Parrot::Test 'no_plan';
use Test::More;

sub import {
    my $class = shift;

    my (unde <==
2	/Users/nnunley/parrot/languages/regex/test.pl	3012	3222	
==>cess($input, $output, $testCount++);
}

exit ($status ? 0 : 1);

sub generate_regular_pir {
    my ($filename, $pattern) = @_;
    open(PIR, ">$filename") or die "create $filename: $!";

    my $ctx = { };
    m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	619823	619939	
==>igInt);\n\t    VTABLE_set_integer_native(interpreter, left, a);\n\t    mmd_dispatch_p_pip(interpreter, left, b, left, <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	1011	1134	
==>arrot/Distribution.pm', 'lib/Parrot/IO'),
		$self->new_group('Documentation', '', 
            $self->new_item('', 'lib/Parr <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33130	33233	
==>{ 0 }
sub sethashname {}

sub describe ($)
{
	my $desc = $_[0]->{"implicit"} || $_[0]->{"subrule"};
	$de <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9877	9988	
==>lf->require_infix_rel->text;
      my $right = Jako::Construct::Expression::Value->new($block, $self->require_va <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25413	25524	
==>lf->require_infix_rel->text;
      my $right = Jako::Construct::Expression::Value->new($block, $self->require_va <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1398	1522	
==>erits all
its methods.)

You can use this class as the base class for a Pod formatter/processor.

=head1 METHOD CALLING

When <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659865	660135	
==>737,
                  "ARGS" => [
                              "i",
                              "p",
                              "ki"
                            ],
                  "BODY" => "#line 334 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : { <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61086	61199	
==>1,'/',$3?$3:'',$lookahead,$line);
			$prod and $prod->additem($item)
			      or  _no_rule("pattern terminal",$lin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621456	621549	
==>u->u.signature == sig) {\n\tif (sig) {\n\t    n = ((arg_pass_f)lru->f.real_function)(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623625	623718	
==>u->u.signature == sig) {\n\tif (sig) {\n\t    n = ((arg_pass_f)lru->f.real_function)(interpret <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	21736	21972	
==>$label
EOC
    }
    else {
	my $nl = promote($l);
	my $nr = $r->[1];
	$nr = promote($r) if $op =~ /addr/;
	print <<"EOC";
      	$op $nl, $nr, $targ $cmt
$label
EOC
    }
}
sub print_stack {
    for $_ (@stack) {
	print "# STACK $_->[0] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210304	210583	
==>string(interpreter, {{\@1}}), {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211284	211563	
==>string(interpreter, {{\@1}}), {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	895	1072	
==>, 

    DEST  => $dest, 
    NAME  => $ident, 
    ARGS  => [ @args ],

    DEBUG => 1,
    FILE  => $ident->file,
    LINE  => $ident->line
  }, $class;

  $block->push_content( <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	421	516	
==>ny subdirectories recursively (see the C<files()> method
in C<Parrot::IO::Directory>).

If an it <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807876	807968	
==>\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808781	808873	
==>\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+= <==
2	/Users/nnunley/parrot/config/auto/jit.pm	2462	2552	
==>h/$jitarchname.s") {
        copy_if_diff("$jitbase/$cpuarch/$jitarchname.s", "src/asmfun.s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	39985	40129	
==>ormatted hoodoo...
        if( $self->{'accept_codes'} and
            $self->{'accept_codes'}{'VerbatimFormatted'}
        ) {
          while(@ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	8800	9218	
==>r die "Can't restore  stdout" if $out;
    open  STDERR, ">&OLDERR" or die "Can't restore  stderr" if $err;

    return $exit_code;
}


sub per_test {
    my ($ext, $test_no) = @_;

    return unless defined $ext and defined $test_no;

    my $t = $0;  # $0 is name of the test script
    $t =~ s/\.t$/_$test_no$ext/;

    return $t;
}

sub write_code_to_file {
    my ($code, $code_f) = @_;

    open my $CODE, '>', $c <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8319	8443	
==>r die "Can't restore  stdout" if $out;
    open STDERR, ">&OLDERR" or die "Can't restore  stderr" if $err;

    if ($verbose) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	198661	199184	
==>=> ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 235,
                  "ARGS" => [
                              "i",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 366 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	24388	24563	
==>";
		}

		# int32
		elsif (/^int32$/) {
			$out =  "    \${I_ARG_$arg_num} = bc.read_int32()\n    next_pc += 4\n";
			$arg_name = "I_ARG_$arg_num";
		}

		# float32
		elsif (/^ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32601	32727	
==>redRef;
use base 'Parrot::Pmc2c';

=item C<implements($method)>

Always true for vtables.

=cut

sub implements
{
    my ($self <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	5280	5589	
==>se {
                    $has_code = 1;
                }
            } else {
                die "Invalid value for code in rule $rule->{'name'}\n";
            }
        }

        # class
        elsif (/^class$/) {
            if ($rule->{$_} =~ /^(op|load|store|branch|calling)$/) {
                if ($ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45809	46060	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "pushaction",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline", <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1196	1291	
==>er, $block, $ident_name, $kind, $scope, $type) = @_;

  confess "No \$compiler!" unless $compile <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	45330	45434	
==>eration (or C<undef> on failure). In a scalar or
void context, the input text has the same substring (and <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359359	359459	
==>& string_length(interpreter, s)) {\n    PIO_putps(interpreter, PIO_STDERR(interpreter), s);\n  }\n  { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360107	360207	
==>& string_length(interpreter, s)) {\n    PIO_putps(interpreter, PIO_STDERR(interpreter), s);\n  }\n  { <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	1095	1206	
==>s wrong or the implementation is missing.

=item No Parrotish Prefix

The API is implemented but has no C<Parrot <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24186	24290	
==>turn;
}

sub _op_plus {
  my ($self,$node) = @_;
  my $return;
  my $num_children = defined $node->{child <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947095	947191	
==>eter, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\"charset '%Ss' not fo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947997	948093	
==>eter, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\"charset '%Ss' not fo <==
2	/Users/nnunley/parrot/config/inter/lex.pm	963	1090	
==>util => 'echo');
        $self->set_result('skipped');
        return $self;
    }

    my $prog;

    # precedence of sources f <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	960	1087	
==>util => 'echo');
        $self->set_result('skipped');
        return $self;
    }

    my $prog;

    # precedence of sources f <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	7640	7726	
==>Parrot_jit_normal_op
#define Parrot_jit_vtable_1r332_op Parrot_jit_normal_op
#define Pa <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	17185	17327	
==>LO
{
    my ($n, $c, $cmt) = @_;
    inplace_word('mod', $cmt);
}
sub INPLACE_ADD
{
    my ($n, $c, $cmt) = @_;
    inplace('+', $cmt);
}
sub I <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	59	199	
==>ackage Parrot::PIR::Formatter;

use strict;
use warnings;

sub new {
    my $class = shift;
    my $code  = shift;

    my $self = {};

    $ <==
2	/Users/nnunley/parrot/Configure.pl	6261	6392	
==>s)    Use the given loader flags for shared libraries
   --lex=(lexer)        Use the given lexical analyzer generator
   --yacc=(pa <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	51213	51301	
==>verb}} >

Parse::RecDescent uses C<extract_codeblock($text, '{}E<lt>E<gt>')> to extract t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065136	1065233	
==>er->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed_str(interpreter, ns_root, {{\@2}});\n    { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066010	1066107	
==>er->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed_str(interpreter, ns_root, {{\@2}});\n    { <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	18051	18194	
==>start_line'}, '~really' => '=for'},
          $target,
        ],
        $para,
        ['=end',
          {'start_line' => $para->[1]{'start_l <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3801	3959	
==>~ m/^=([a-zA-Z]+)/s) {
        if($1 eq 'cut') {
          $self->scream(
            $self->{'line_count'},
            "=cut found outside a pod block.  Skip <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4426	4529	
==>$opt)>

Returns C<$self> as a new instance.

C<$self> is a hash reference C<eval>-ed from a F<*.dump> fi <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	73715	73878	
==>LOAD;
	my $retval = &{$AUTOLOAD}($_[0],$text,undef,undef,$args);

	if (defined $retval)
	{
		foreach ( @{$_[0]->{deferred}} ) { &$_; }
	}
	else
	{
		foreach ( @{$_[ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3694	3797	
==>q 'module';

      my %module_props = $self->block->props;

      $self->SYNTAX_ERROR("Sub declaration h <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6358	6461	
==>q 'module';

      my %module_props = $self->block->props;

      $self->SYNTAX_ERROR("Sub declaration h <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	75058	75196	
==><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                       $errortext
.

select ERROR;
$| = 1;

# TRACING

my $tracemsg;
my $ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	29974	30105	
==>O in.  It
uses the exported_to() package to find it.  If that's not set, it's
pretty good at guessing the right package to look at b <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8497	8607	
==>t STDERR 
#DBG>				    "go to state $$states[$$stack[-1][0]]{GOTOS}{$lhs}.\n";

#DBG>				$debug & 0x10
#DBG <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8112	8218	
==>t STDERR 
#DBG>				    "go to state $$states[$$stack[-1][0]]{GOTOS}{$lhs}.\n";

#DBG>				$debug & 0x10
#DBG <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	270	359	
==>ef> inherits from C<Parrot::OpTrans::C>
to provide predereferenced register addressing run <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516669	516897	
==>e 729 \"src/ops/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517408	517636	
==>e 729 \"src/ops/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121449	121736	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122360	122647	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inl <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7441	7625	
==><rx_stack>",
                $self->pushop . " <rx_stack>, $reg",
                $self->dbprint("PUSHED[\%<<rx_tmp>>] INT: \%<$reg>$desc\n"),
               );
    }
    return $self-> <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27881	28003	
==>} elsif ($syms[NEXT] eq "(") {
				feedme();
				while($syms[CURR] ne ")") {
					feedme();
				}
				push(@params, "()$a") <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048343	1048457	
==>{{^+3}};\n    {{\@1}} = Parrot_get_global(interpreter, NULL, {{\@2}}, next);\n    {{+=3}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049267	1049381	
==>{{^+3}};\n    {{\@1}} = Parrot_get_global(interpreter, NULL, {{\@2}}, next);\n    {{+=3}};\n",
                  "L <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31830	31946	
==>pr->[1]->[-1]->isa('CallOp') )
    {
        push @opcodes1, new AssignOp( $parser,
            'result' => $iter, <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	401	494	
==>app::Driver );
#Included Parse/Yapp/Driver.pm file----------------------------------------
{ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	391	482	
==>app::Driver );
#Included Parse/Yapp/Driver.pm file----------------------------------------
{ <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	4240	4354	
==>h)
    {
        return unless $dir = $dir->existing_directory_with_name($name);
    }
    
    return $dir->existi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349836	350138	
==>,
                  "CODE" => 407,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 162 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const path = string_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9362	9474	
==>isn't a valid element name"
        if $new_code =~
          m/[\x00-\x2C\x2F\x39\x3B-\x40\x5B-\x5E\x60\x7B-\x7F <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10626	10738	
==>isn't a valid element name"
        if $new_code =~
          m/[\x00-\x2C\x2F\x39\x3B-\x40\x5B-\x5E\x60\x7B-\x7F <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696693	696920	
==>",
                              "i",
                              "ic",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interprete <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	3023	3154	
==>cut

sub svn_id
{
    my $self = shift;
    my $content = $self->read;
    # Break up the $Id to prevent svn messing with it.
    my <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621805	621899	
==>UB_FLAG_TAILCALL;\n\t    --ctx->recursion_depth;\n\t    ctx->caller_ctx = caller_ctx->caller_ct <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29641	29727	
==>UB_FLAG_TAILCALL;\n\t--ctx->recursion_depth;\n\tctx->caller_ctx = caller_ctx->caller_ct <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747251	747337	
==>"BODY" => "#line 194 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_integer_native(interpr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	748036	748122	
==>"BODY" => "#line 194 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_integer_native(interpr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794952	795267	
==>" => "inline",
                  "CODE" => 897,
                  "ARGS" => [
                              "p",
                              "k",
                              "ic"
                            ],
                  "BODY" => "#line 457 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(int <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565639	565791	
==>"
                            ],
                  "BODY" => "#line 194 \"src/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->can(interpreter, {{\@2}}, {{ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6847	6994	
==>overy.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push(@$stack,[ $act, $$value ]);

					$$token ne ''	#Don't eat the e <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6530	6669	
==>overy.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push(@$stack,[ $act, $$value ]);

					$$token ne ''	#Don't eat the e <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	283	394	
==>se warnings";

package Jako::Construct::Label;

use Carp;

use base qw(Jako::Construct);

1;

#
# new()
#

sub n <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3050	3173	
==>)",
    'p'  => "PREG(%ld)",
    's'  => "SREG(%ld)",
    'k'  => "PREG(%ld)",
    'ki' => "IREG(%ld)",

    'ic' => "cur_op <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1967	2085	
==>)",
  'p'   => "PREG(%ld)",
  's'   => "SREG(%ld)",
  'k'   => "PREG(%ld)",
  'ki'  => "IREG(%ld)",

  'ic'  => "cur_op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717977	718069	
==>O_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_fprintf(interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718909	719001	
==>O_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_fprintf(interp <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	10051	10246	
==>hed;
				  '
				: '';
	}

	$code .=
'
        unless ( $_matched || defined($return) || defined($score) )
	{
		' .($parser->{deferrable}
			? '		splice @{$thisparser->{deferred}}, $def_at;
			  ' <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	8535	8690	
==>e want to do this or convert
			# to HTML in the documentation item.
			$desc =~ s/[CFL]<([^>]+)>/$1/osg;
			
			return $desc;
		}
	}
	
	# TODO - The abstra <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2640	2812	
==>some (all?) versions of File::Spec->abs2rel() prior to 3.13 return ''
    # instead of '.' to indicate the current working directory.  In order to be
    # compatible with b <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	45435	45769	
==>ate 212
		DEFAULT => -4,
		GOTOS => {
			'block' => 214,
			'chunk' => 57
		}
	},
	{#State 213
		DEFAULT => -23
	},
	{#State 214
		ACTIONS => {
			'END' => 215
		}
	},
	{#State 215
		DEFAULT => -21
	}
],
                                  yyrules  =>
[
	[#Rule 0
		 '$start', 2, undef
	],
	[#Rule 1
		 'program' <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	42646	42788	
==>R' => 84,
			"<=" => 85,
			'DO' => 196,
			">" => 86
		}
	},
	{#State 186
		DEFAULT => -4,
		GOTOS => {
			'block' => 197,
			'chunk <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	7657	7799	
==>uct;
            # declare struct with four types of elements:
    struct( s => '$', a => '@', h => '%', c => 'My_Other_Class' );

    $obj = n <==
2	/Users/nnunley/parrot/config/inter/lex.pm	579	705	
==>o you have a lexical analyzer generator like flex or lex?";
@args        = qw( lex ask maintainer );

sub runstep
{
    my ($se <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	5619	5748	
==>'i_sysfile' => 'define',
             'i_sysfilio' => 'define',
             'i_sysin' => undef,
             'i_sysioctl' => 'def <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	15797	15898	
==>";

  # We have something in our buffer.  So apparently the document has started.
  unless($self->{'do <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45447	45545	
==>ore:';
my $AUTOSCOREMK		= '\G\s*<autoscore:';
my $SKIPMK		= '\G\s*<skip:';
my $OPMK		= '\G\s*<(left <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18533	18705	
==>> 35,
			'primary' => 28
		}
	},
	{#State 49
		ACTIONS => {
			'NAME' => 101
		}
	},
	{#State 50
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			" <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	945	1046	
==>r $PERL = q[perl];
our $LOAD_EXT = qq[.bundle];
our $O = qq[.o];
our $CFLAGS = qq[-I/opt/local/include <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	949	1050	
==>r $PERL = q[perl];
our $LOAD_EXT = qq[.bundle];
our $O = qq[.o];
our $CFLAGS = qq[-I/opt/local/include <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4129	4238	
==>cs);

    # Convert lib-GROUP.so + A.so + B.so ... -> GROUP.so
    while (my ($group, $pmcs) = each %$group_fi <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4233	4342	
==>cs);

    # Convert lib-GROUP.so + A.so + B.so ... -> GROUP.so
    while (my ($group, $pmcs) = each %$group_fi <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	3390	3643	
==>e && /^\s*(\w+)\s*=\s*<<(\w+)\s*$/) {
            # Initialize heredoc.
            $in_heredoc = 1;
            $heredoc_key = $1;
            $heredoc_value = "";
            $heredoc_terminator = $2;
        }

        # Or is it a value within a rule <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3814	3936	
==>R'
# Just got it in the 0th register of the appropriate type.
${DEST0} = "$"
${STEMP0} = ${LOADTYPE}["reg_type_short"]
${DE <==
2	/Users/nnunley/parrot/config/gen/config_h.pm	239	339	
==>fig.h> with platform-specific configuration
values, F<include/parrot/has_header.h> with platform-spec <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	6842	6944	
==>he given directories).
Optionally, die with an error message if that file cannot be found.

=cut

sub f <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	23336	23436	
==>mt $name\n";
    if ($builtin_ops{$name} && $builtin_ops{$name} eq 's') {
	no strict "refs";
	my $opc <==
2	/Users/nnunley/parrot/config/inter/charset.pm	1046	1181	
==>Makefile
    (my $TEMP_charset_o = $charset_list) =~ s/\.c/\$(O)/g;

    my $TEMP_charset_build = <<"E_NOTE";

# the following part of t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692558	692924	
==>,
                  "TYPE" => "inline",
                  "CODE" => 778,
                  "ARGS" => [
                              "i",
                              "i",
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92784	93032	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93563	93811	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	7823	7928	
==>codef) {
		push @{$code{$seg}->{code}},<<BNOTF;
@codeb  noop
	_screen_color($resultb)	# Broke!
BNOTF
	} el <==
2	/Users/nnunley/parrot/config/inter/libparrot.pm	1395	1608	
==>red         
            ? '$(LIBPARROT_SHARED)'      
            : '$(LIBPARROT_STATIC)',
    );                       

    $conf->data->set(
        rpath_blib => ($parrot_is_shared && $conf->data->get('r <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	13504	13629	
==>ore_opfunc[$i] */\n";
}

print JITCPU @jit_funcs, "};\n";

if ($genfile =~ /jit_cpu.c/) {
    print JITCPU <<"EOC";
    PARROT <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809660	809750	
==>ine 507 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_string_keyed(interpreter, { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810565	810655	
==>ine 507 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_string_keyed(interpreter, { <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	676	765	
==>s UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');
  confess "Pro <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	755	844	
==>s UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');
  confess "Pro <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	5971	6139	
==>OCS_FILE}->parent->relative_path($file),
                    esc($text));
        }
        else
        {
            print {$self->{'output_fh'}} 
                $sel <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34196	34304	
==>_branch\n";
		$pir .= sub_meta($pre_branch, $mv, "pre_branch for rule $rule->{'name'}");
		$pir .= "### end p <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	10013	10171	
==>accept_verbatim      = delete $options{'accept_verbatim'};
  my $max_content_length   = delete $options{'max_content_length'};
  $max_content_length = 120 unle <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8683	8826	
==>have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg = value($reg);

    my $L_fallback = $self- <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34800	34950	
==>delete $para->[1]{'number'};
             # Only a PROPER item-number element is allowed
             #  to have a number attribute.
          } elsif( <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	3058	3208	
==>em C<Parrot::Docs::Section::IMCC>

=item C<Parrot::Docs::Section::Perl>

=item C<Parrot::Docs::Section::Libs>

=item C<Parrot::Docs::Section::Tools>

= <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	9873	10040	
==>y;
        # retranslate VTABLE_macro to the expanded form
        $opbody =~ s/
            \bVTABLE_(\w+)
            \s*\(
            interpreter,\s*
            {{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	44502	44657	
==>]) ) {
      $formatting = substr($formatting, 0, length($p->[$i-1]) - 1) . ' ';
    } else {
      $formatting .= ' ' x (length($p->[$i-1]) - length($forma <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	3060	3254	
==>@obj_files) . "\n";
    close(F);
}


############################################################################
sub run_command {
    my ($command) = @_;

    print "- $command\n";
    system( <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	2891	3017	
==>he location specified by C<$to> if
it's contents have changed.

The regular expression specified by C<$ignorePattern> is passed <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	2000	2134	
==>ict 'refs';
        return @{$class . "::args"};
    }
}

=back

=head1 AUTHOR

Joshua Hoblitt C<jhoblitt@cpan.org>

=head1 SEE ALSO

F <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	1931	2025	
==>int CODE qq{\t\t# Grab "COMMON" variables from global stash\n};
		print CODE qq{\t\tfind_global <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348594	348966	
==>NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 406,
                  "ARGS" => [
                              "p",
                              "s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349595	349867	
==>NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 40 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	7189	7331	
==>ee?
    return $t if (defined($t->maxlen()) && $guarantee >= $t->maxlen());

    # Need more for even the shortest match of this subtree?
    i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	5573	5714	
==>rith', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^( \+= | \*= | -= | /= | %= )(.*)$}x) {
      push @tokens, Jako::T <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	48210	48309	
==>ent starts is not skipped.

To prevent <extract_quotelike> from mucking about with the input in this <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	3601	3716	
==>C
     */
    pmc = pmc_new(interpreter, enum_class_ParrotLibrary);
    /*
     * TODO stuff some info into this PMC <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	3283	3419	
==>e, [ 0, $1, "Label", $1, "", undef ];
	$l =~ s/>>//;
    }
    my $source = undef;
    if ($l =~ /^\s*	     # intial space
	(?:(\d+)\s+)? <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	1155	1271	
==>r_test(
            $lua_test eq 'lua' ? '.orig_out' : '.parrot_out', $count );
        my $test_prog_args = $ENV{T <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	17425	17659	
==>y)
  "\f"   => "\n\\page\n", # Formfeed
  "-"    => "\\_",        # Turn plaintext '-' into a non-breaking hyphen
  "\xA0" => "\\~",        # Latin-1 non-breaking space
  "\xAD" => "\\-",        # Latin-1 soft (optional) hyphen

  # CR <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	1668	1911	
==>($4 || '');
                $subst  = ($6 || '');
                $in_def = $1;
                $last_val = -1;
                %values   = ();
                open INC, ">$inc.tmp" or die "Can't write $inc.tmp";
                print INC "/*\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599909	600077	
==>",
                              "k"
                            ],
                  "BODY" => "#line 363 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(i <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	1096	1220	
==>UT "    enum_class_$_,\t/*  $i */ \n";
        $i++;
    }
    print OUT <<"END_H";
    enum_class_core_max
};

/* &end_gen * <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	2980	3132	
==>$cout .= <<"EOC";
/*
 * This load function will be called to do global (once) setup
 * whatever is needed to get this extension running
 */

EOC
    $cou <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9242	9419	
==>$defn;
                my $last_key = pop @{$var};
                foreach my $key ( @{$var} ) {
                    push @opcodes, @{ $key->[1] };
                    my $re <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	37838	38104	
==>} elsif(not grep !$_->[1]{'~resolve'}, @fors) {
          } elsif( $fors[-1][1]{'~resolve'} ) {
            # Look to the immediately containing for
          
            if($para_type eq 'Data') {
              DEBUG and print "Treating Data paragraph as Plain/Verb <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct.pm	37	147	
==>ass for parsed constructs (blocks, etc.).
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is f <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2371	2616	
==>),
                       $output,
                       $desc
                                                  );
        unless ( $pass ) {
            my $diag = '';
            my $test_prog = join ' && ', @test_prog;
            $diag .= " <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	2382	2617	
==>),
                          $output,
                          $desc
                      );
           unless ( $pass ) {
               my $diag = '';
               my $test_prog = join ' && ', @test_prog;
               $diag .= " <==
2	/Users/nnunley/parrot/languages/dotnet/tools/fail_analysis.pl	0	156	
==>%res = ();
while (<>) {
	# Extract message
	chomp;
	s/^\s*\*\*FAILED\*\*\s*\(//;
	s/\)$//;
	
	# Remove instruction code
	s/ \(code \d+\)//;
	
	$res <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1874	2026	
==>ps core. C<ret> will
always treat saved addresses as relative to C<start_code>, because that
interpretation is global across all runops cores.

=cut

sub <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	9440	9567	
==>fore the signature, (b) the name of the class, and
(c) a hash ref containing the flags associated with the class
(such as 'exten <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	44445	44573	
==>t;
    }

    if( length($formatting) >= length($p->[$i-1]) ) {
      $formatting = substr($formatting, 0, length($p->[$i-1]) - 1 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	658	780	
==>__BOF__');
}

sub new_eof
{
  my $class = shift;
  my ($file, $line) = @_;

  return $class->new($file, $line, 'eof', undef <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	25	143	
==>) 2001-2005, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Op.pm 20321 2006-06-20T20:02:00.179448Z bernhard  $

=head1 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2579	2678	
==>{ kind => 'infix', name => $self->op } });
    $self->left->sax($handler);
    $self->right->sax($ha <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2456	2555	
==>{ kind => 'infix', name => $self->op } });
    $self->left->sax($handler);
    $self->right->sax($ha <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	1451	1576	
==>rsion for release.', 'RELEASE_INSTRUCTIONS'),
        ),
        $self->new_group('Legal', '',
            $self->new_item('Th <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	51261	51445	
==>a\lua51.yp"
{
            [ $_[1] ];
        }
	],
	[#Rule 43
		 'varlist1', 3,
sub
#line 260 "Lua\lua51.yp"
{
            [
                @{ $_[1] }, 
                Bui <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2635	2749	
==>_REGS)
    register opcode_t *cur_opcode asm ("esi") = cur_op;
    register char *   _reg_base   asm ("edi");
#else <==
2	/Users/nnunley/parrot/languages/APL/t/APL.pm	1585	1796	
==>ckin' it up!
    }

    my $todo   = $block->todo;
    if (defined($todo)) {
      if (! $todo) {
        $todo = "not implemented";
      }
      if ($ENV{APLDEV}) {
        TODO: {
          local $TODO = $todo <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5251	5351	
==>enerate
	# the name of the destination register emulating the stack position and
	# generate a move i <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13664	13780	
==>t t.foo
print t

' Passing structures
' Expect:  100, 12 and 103
type first
	foo as integer
	bar as string
end type
f <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1365	1478	
==>terminate {
    return "";
}

sub output_advance {
    my ($self, $distance, $failLabel) = @_;
    $failLabel = $s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1114	1227	
==>terminate {
    return "";
}

sub output_advance {
    my ($self, $distance, $failLabel) = @_;
    $failLabel = $s <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	25562	25801	
==>MCArray
    i = bc.read_uint32()
    next_pc += 4
    \${P_ARG_$arg_num} = i
    j = 0
JT_LOOP_$name:
    if j == i goto JT_LOOP_END_$name
    \$I0 = bc.read_int32()
    next_pc += 4
    \${P_ARG_$arg_num}[j] = \$I0
    inc j
    goto JT_LO <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	8235	8365	
==>FFS_INT(jit_info->cur_op[x])
#define ROFFS_NUM(x) REG_OFFS_NUM(jit_info->cur_op[x])
#define ROFFS_STR(x) REG_OFFS_STR(jit_info->cur <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	8213	8344	
==>hunks[0] } == 0;

        # If there were things with different types, create a new seq
        # that has a child seq for each chun <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	1639	1777	
==>e);
    print $cout if $opt->{debug};
    print "Writing $c_name\n" if $opt->{verbose};
    open my $C, '>', $c_name or die "Can't write '$ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	221	324	
==>/Bitwise.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako: <==
2	/Users/nnunley/parrot/config/auto/msvc.pm	147	242	
==>svc.pm - Microsoft Visual C++ Compiler

=head1 DESCRIPTION

Determines whether the C compiler is <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	1189	1309	
==>_parrot_config($$) {
	# Try to include config information from Parrot tree.
	my %config = eval {
		require "$_[0]/lib/ <==
2	/Users/nnunley/parrot/config/init/manifest.pm	188	325	
==>ad1 DESCRIPTION

Uses C<ExtUtils::Manifest> to check that the distribution is complete.

=cut

package init::manifest;

use strict;
use va <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17337	17496	
==>um_arg ($node, 1, 'length');

  my $list = $self->_generate(_get_arg($node,1));

  $self->_add_inst ('', 'set',[$return,'0']);
  my $type = $self->_save_1 ('I') <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126751	127092	
==>1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127886	128227	
==>1}} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "r <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1893	2027	
==>that the core type is missing. See the C<Parrot_Run_core_t> C<enum> in
F<include/parrot/interpreter.h> for a list of the core types.

= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628900	629502	
==>0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 705,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 67 \"src/ops/pmc.ops\"\n    STRING *class = {{\@2}};\n    INTVAL type = pmc_type(interpreter, class);\n    if (!type) {\n\tParrot_autoload_class(interp <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	5184	5290	
==>f < $textlen)
	{
		next if $$textref =~ m/\G\\./gcs;

		if ($$textref =~ m/\G($ldel)/gc)
		{
			push @nesti <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107813	108054	
==>GS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 167 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} | {{\@3}};\n  {{+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216943	217059	
==>>get_number(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217883	217999	
==>>get_number(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/config/gen/icu.pm	2180	2417	
==>$icuheaders;
                $without = 1 unless -d $icuheaders;
                $icuheaders .= "${slash}include";
                $without = 1 unless -d $icuheaders;
            }

            if ($without) {
                $self->set_r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560571	560674	
==>ject;\n  opcode_t *next = {{^+3}};\n\n  object = {{\@1}};\n  method_pmc = {{\@2}};\n  interpreter->curre <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	572	666	
==>lock');
  confess("Identifier (" . ref($ident) . ") is not!") unless UNIVERSAL::isa($ident, 'Ja <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	572	666	
==>lock');
  confess("Identifier (" . ref($ident) . ") is not!") unless UNIVERSAL::isa($ident, 'Ja <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33351	33500	
==>ableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 118
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25, <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4263	4393	
==>ls{$1}{"$file:$function"}++ 
                  unless ($variable_visible{$file}{$1} || 
                          $variable_visible <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4528	4656	
==>ls{$1}{"$file:$function"}++
                  unless ($variable_visible{$file}{$1} ||
                          $variable_visible <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	991	1131	
==>esult> from the inheriting
classes namespace.

=cut

sub result
{
    my $self = shift;

    return $self->{result};
}

=item * C<set_result( <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6691	6818	
==>$pmc.dump", "$pmc.pmc")) {
        run("$PMC2C --dump $pmc.pmc")
          or die "pmc2c dump failed ($?)\n";
    }
}

sub gener <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6902	7029	
==>$pmc.dump", "$pmc.pmc")) {
        run("$PMC2C --dump $pmc.pmc")
          or die "pmc2c dump failed ($?)\n";
    }
}

sub gener <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	15679	15798	
==>truct ( 'MyObj', { count => '$', stuff => '%' } );

    # override the default accessor method for 'count'
    sub count <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	674	788	
==>llParserToken> and inherits all its methods,
and adds these methods:

=over

=item $token->text

This returns the t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	339039	339354	
==>se_io",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 397,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 113 <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	9600	9812	
==>[lL]$/) {	# bigint
	$t = 'B';
    }
    elsif ($c =~ /^'.*'$/) {	# string consts are single quoted by dis
	$t = 'S';
    }
    elsif ($c =~ /^u'.*'$/) {	# unicode-string TODO r raw
	$t = 'U';
    }
    elsif (is_n <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	32541	32683	
==>c}) {
	$c = $vtables{$c};
    }
    my $cc;
    if ($c =~ /^\d+$/) {	# MMD
	$cc = "-$c";
    }
    else {
	$cc = qq!"$c"!;
    }
    print <<EO <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	32916	33058	
==>c}) {
	$c = $vtables{$c};
    }
    my $cc;
    if ($c =~ /^\d+$/) {	# MMD
	$cc = "-$c";
    }
    else {
	$cc = qq!"$c"!;
    }
    print <<EO <==
2	/Users/nnunley/parrot/config/inter/lex.pm	1357	1483	
==>ences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $self->set_result('yes');
        return $sel <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	1354	1480	
==>ences.
    if (defined $prog) {
        $conf->data->set($util => $prog);
        $self->set_result('yes');
        return $sel <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	16299	16416	
==>, $cmt);
}
sub BINARY_DIVIDE
{
    my ($n, $c, $cmt) = @_;
    binary('/', $cmt);
}
sub BINARY_POWER
{
    my ($op, $c <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	26278	26437	
==>ue>) {
    #

    if (m/^}\s*(elsif)\s*\(\s*(.*)\s*\)\s*{$/) {
      $self->begin_block(undef, $1, $2);
      # TODO
      next;
    }

    #
    # PMC Construc <==
2	/Users/nnunley/parrot/config/auto/jit.pm	4230	4359	
==>_save.h',
                TEMP_exec_o =>
                    '$(SRC_DIR)/exec$(O) $(SRC_DIR)/exec_cpu$(O) $(SRC_DIR)/exec_save$(O) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1859	1952	
==>_over_number  { ++$_[0]{'Indent'} }
sub start_over_text    { ++$_[0]{'Indent'} }
sub start_ove <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1427	1520	
==>_over_number  { ++$_[0]{'Indent'} }
sub start_over_text    { ++$_[0]{'Indent'} }
sub start_ove <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	895	1029	
==>tle = shift || 'Untitled';
    my $navigation = shift || '';
    my $resources = shift || '';
    
    <<"HEADER";
<!DOCTYPE HTML PUBLI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375569	375842	
==>" => 439,
                  "ARGS" => [
                              "i",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(int <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21986	22131	
==>efault case fallthrough
t=3
select case t
	case 1
		print "One"
	case 2
		print "Two"
	case 3
		print "Correct"
	case else
		print "WRONG!"
end se <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846624	846716	
==>=> "#line 56 \"src/ops/string.ops\"\n  STRING *s;\n  s = string_chr(interpreter, (UINTVAL){{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847420	847512	
==>=> "#line 56 \"src/ops/string.ops\"\n  STRING *s;\n  s = string_chr(interpreter, (UINTVAL){{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79346	79467	
==>_Undef);\n  }\n  else {\n      /* At this point we have the symbol's address. We just need to build\n         a PMC with i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80867	80988	
==>_Undef);\n  }\n  else {\n      /* At this point we have the symbol's address. We just need to build\n         a PMC with i <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33562	33681	
==>/ push to @$para
            if($paras->[0][0] eq '~Para') {
              DEBUG and print "Assimilating following ~Para <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35375	35494	
==>/ push to @$para
            if($paras->[0][0] eq '~Para') {
              DEBUG and print "Assimilating following ~Para <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478956	479213	
==>}} = floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479848	480105	
==>}} = floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950388	950559	
==>",
                              "i"
                            ],
                  "BODY" => "#line 540 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interp <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	3883	4063	
==>tType                       => '#',
        replace_slashes                   => 1
    );
    genfile(
        'config/gen/makefiles/bf.in' => 'languages/bf/Makefile',
        comme <==
2	/Users/nnunley/parrot/config/inter/lex.pm	760	884	
==>t('verbose');

    # undef means we don't have flex... default to not having flex
    $conf->data->set(flex_version => undef) <==
2	/Users/nnunley/parrot/examples/benchmarks/oo5.pl	200	321	
==>urn bless [ 10, 20 ], $self;
}

sub i {
    my $self = shift;
    if (@_) { $self->[0] = shift } else { $self->[0] }
}

su <==
2	/Users/nnunley/parrot/examples/benchmarks/oo6.pl	192	313	
==>urn bless [ 10, 20 ], $self;
}

sub i {
    my $self = shift;
    if (@_) { $self->[0] = shift } else { $self->[0] }
}

su <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	4638	4748	
==>rst begins with a
    # labelled statement. Next, do a reachability analysis to find
    # unreachable basic bl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578009	578372	
==>=> [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 660,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 284 \"src/ops/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054353	1054457	
==>xception(1, \"Tried to get from null namespace.\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055480	1055584	
==>xception(1, \"Tried to get from null namespace.\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried t <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1778	1881	
==>f(interpreter, $addr)))";
  }
}

=item C<goto_offset($offset)>

Transforms the C<goto OFFSET($offset)> m <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	14663	14800	
==>->{meth};
        next if exists $self->{super}{$meth};
        foreach my $pname (@{ $self->{parents} } ) {
            if (exists ($self <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	13981	14189	
==>plformat(op1)
    .local pmc result
    result = new 'APLVector'
    $I0 = 0
    $I1 = length $S0
  loop:
    if $I0 >= $I1 goto loop_end 
    $S1 = substr $S0, $I0, 1
    push result, $S1
    inc $I0
    goto <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	3691	3840	
==>,
 'sup1'     , 185,
 'ordm'     , 186,
 'raquo'    , 187,
 'frac14'   , 188,
 'frac12'   , 189,
 'frac34'   , 190,
 'iquest'   , 191,
 'Agrave'   , 1 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1934	2066	
==>xt( "Hi there" )   if $parser->can('handle_text');
  $parser->end_head1()                 if $parser->can('end_head1');

If Pod::Simp <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1113	1247	
==>return shift->{DEST};  }
sub name { return shift->{NAME};  }
sub args { return @{shift->{ARGS}}; }


#
# compile()
#

sub compile
{
  m <==
2	/Users/nnunley/parrot/languages/regex/test.pl	1262	1372	
==>a))a
INPUT:
xxxxxxxxaaabb
OUTPUT:
Match found
0: 8..10
1: 8..9
INPUT:
aaaaaaaaaaaa
OUTPUT:
Match found
0: 0..11 <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	3773	3966	
==>+= $parser->{lastlinenum} - $apparently;
	return 1;
}

package Parse::RecDescent::ColCounter;

sub TIESCALAR	# ($classname, \$text, $thisparser, $prevflag)
{
	bless {
		text    => $_[1],
		parse <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	141	275	
==>$

=head1 NAME

tools/build/nativecall.pl - Build up the native call routines

=head1 SYNOPSIS

    % perl tools/build/nativecall.pl sr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47037	47224	
==>p_debug_CLEAR(interpreter, PARROT_ALL_DEBUG_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47820	48007	
==>p_debug_CLEAR(interpreter, PARROT_ALL_DEBUG_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	1338	1465	
==>$constant_num = 0;

    foreach ($pf->const_table->constants) {
        printf("%04x: %08x %08x %08x %08x %s\n",
	    $constant_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256464	256796	
==>@3}} : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "xor",
                  "F <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257372	257704	
==>@3}} : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "xor",
                  "F <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863998	864104	
==>" => "#line 143 \"src/ops/string.ops\"\n  UINTVAL n;\n  STRING *s = {{\@2}};\n  if (!s)\n    n = 0;\n  else <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864890	864996	
==>" => "#line 143 \"src/ops/string.ops\"\n  UINTVAL n;\n  STRING *s = {{\@2}};\n  if (!s)\n    n = 0;\n  else <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686184	686491	
==>",
                  "CODE" => 770,
                  "ARGS" => [
                              "p",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 563 \"src/ops/pmc.ops\"\n   {{\@1}} = {{\@3}}->vtable->getprop(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500995	501221	
==>ne 621 \"src/ops/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501734	501960	
==>ne 621 \"src/ops/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	23238	23363	
==>R];
			while(1) {
				feedme;
				last if $syms[CURR] eq ")";
			}
			my $type;
			$type="FLO";
			my %th=( single => 'FLO', d <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4571	4697	
==>de for the ops address declaration.

=cut

sub ops_addr_decl
{
    my ($self, $bs) = @_;

    return "static void *const* ${bs} <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	4	105	
==>Sub.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subjec <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	4	105	
==>Sub.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subjec <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	43093	43203	
==>e end of the q!) #'
	
	extract_quotelike '  "You said, \"Use sed\"."  '

	extract_quotelike ' s{([A-Z]{1,8}\.[A <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	4431	4602	
==>sts $leaders{$instr_pc}) {
	    #substr($byte_code, $instr_pc, sizeof('op')) = $enternative;
	    push @blocks, [$instr_pc ];
	}
	else {
	    push @{$blocks[-1]}, $instr_pc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8964	9056	
==>1, \"branch_cs: fixup for '%s' not found\", label);\n    else {\n\tinterpreter->resume_offset <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10080	10172	
==>1, \"branch_cs: fixup for '%s' not found\", label);\n    else {\n\tinterpreter->resume_offset <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1014985	1015082	
==>"#line 77 \"src/ops/sys.ops\"\n  const char * const tmp = strerror({{\@2}});\n  {{\@1}} = string_m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015809	1015906	
==>"#line 77 \"src/ops/sys.ops\"\n  const char * const tmp = strerror({{\@2}});\n  {{\@1}} = string_m <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	582	781	
==>lled to run this. Use the CPAN
shell:

    perl -MCPAN -e shell 
    cpan> install C::Scan 
    ...

=cut

################################################################################

# the follo <==
2	/Users/nnunley/parrot/tools/util/pirtidy.pl	1284	1450	
==>r.tdy containing the pir file
reformatted using the default options. pirtidy never changes the input file.

=head1 BUGS

Missing all of the perltidy-ish geeknobs and o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621743	621839	
==>ont) & SUB_FLAG_TAILCALL) {\n\t    PObj_get_FLAGS(ccont) &= ~SUB_FLAG_TAILCALL;\n\t    --ctx->rec <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29583	29671	
==>ont) & SUB_FLAG_TAILCALL) {\n\tPObj_get_FLAGS(ccont) &= ~SUB_FLAG_TAILCALL;\n\t--ctx->rec <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5554	5671	
==>oups_and_libs {
    my @pmcs = @_;

    my ( %group_files, %group_libs, %pmc_group, %pmc_libs );
    for my $pmc (@pmc <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5765	5882	
==>oups_and_libs {
    my @pmcs = @_;

    my ( %group_files, %group_libs, %pmc_group, %pmc_libs );
    for my $pmc (@pmc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088268	1088613	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089215	1089560	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864086	864199	
==>n    n = 0;\n  else {\n    n = s->bufused;\n    assert(n == ENCODING_BYTES(interpreter, {{\@2}}));\n  }\n  {{\@1}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864978	865091	
==>n    n = 0;\n  else {\n    n = s->bufused;\n    assert(n == ENCODING_BYTES(interpreter, {{\@2}}));\n  }\n  {{\@1}} <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	2285	2430	
==>f = shift;
        my ($symb) = @_;
        if ( exists $self->{table}{$symb} ) {
            my $defn = $self->{table}{$symb};
            re <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	2665	2810	
==>f = shift;
        my ($symb) = @_;
        if ( exists $self->{table}{$symb} ) {
            my $defn = $self->{table}{$symb};
            re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	448147	448586	
==>> "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 513,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 180 \"src/ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3005	3103	
==>FORMS' => 'Project info',
	'README' => 'README file',
	'RELEASE_INSTRUCTIONS' => 'Project info',
	' <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	18538	18648	
==>reelet);  # L has to precede E and S
    $self->_treat_Es($treelet);
    $self->_treat_Ss($treelet);  # S has t <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	591	684	
==>files are specified on the command-line then the files worth describing
will be found recursiv <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	4610	4720	
==>ntext name="string_interp" attribute="String Interp" lineEndContext="#pop">
          <HlCStringChar attribute= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	424584	424907	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "accept",
                  "FLA <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	653	909	
==>d1 HISTORY

Started by josh in 2002.

=head1 AUTHOR

josh

=head1 SEE ALSO

F<docs/pdds/pdd07_codingstd.pod>.

=cut

################################################################################

use strict;
use warnings;

use Data::Dumper;
use Text::Wra <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4919	5024	
==>c_reg = new $pmc_type");
    $compiler->emit("  $pmc_reg = $dest");
    $compiler->emit("  global \"$dest_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2982	3087	
==>c_reg = new $pmc_type");
    $compiler->emit("  $pmc_reg = $dest");
    $compiler->emit("  global \"$dest_ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	365	481	
==>head2 Class Methods

=over

=cut

package Parrot::Docs::Section::BigNum;

use strict;
use warnings;

use base qw( Par <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	19847	20072	
==>\\$ldel1]*(\\.[^\\$ldel1]*)*$ldel1/gcs
		|| do { pos $$textref = $startpos; return };
	}
	$ld2pos = $rd1pos = pos($$textref)-1;

	my $second_arg = $op =~ /s|tr|y/ ? 1 : 0;
	if ($second_arg)
	{
		my ($ldel2, $rdel2);
		if ($lde <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4694	4793	
==>ination=DIRECTORY
    shift(@pmcs) =~ /--destination=(.*)/
      or die "copy command requires desti <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4798	4897	
==>ination=DIRECTORY
    shift(@pmcs) =~ /--destination=(.*)/
      or die "copy command requires desti <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	15894	16055	
==>h @ops, $next;

    return ($back, @ops);
}

# Dynamic alternation: a set of alternatives that should be tried in
# turn, but the exact alternatives are unknown ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054454	1054552	
==>ed to get null global.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global_p(interpreter, { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055581	1055679	
==>ed to get null global.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global_p(interpreter, { <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	5086	5241	
==>body
{
    my $self = shift;

    if (@_)
    {
        $self->{BODY} = shift;
    }

    return $self->{BODY};
}

=item C<jump($jump)>

=item C<jump()>

Se <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	52363	52486	
==><reject:(.*)>\Z/s;
				$item = new Parse::RecDescent::Directive(
					      "($1) ? undef : 1", $lookahead,$line,"<reject:$c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819610	819714	
==>erpreter->ctx)->user_stack, {{\@2}});\n\n  if (!entry) {\n    internal_exception(99, \"Stack Depth wrong\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820570	820674	
==>erpreter->ctx)->user_stack, {{\@2}});\n\n  if (!entry) {\n    internal_exception(99, \"Stack Depth wrong\ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8258	8396	
==>sion::Value::Literal->new($block, $self->require_literal);
        }

        $props{$prop} = $value;
      }

      #
      # Require ther <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79289	79394	
==>ason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      /* At this point w <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80810	80915	
==>ason\");\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      /* At this point w <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70844	70940	
==>ODY" => "#line 1150 \"src/ops/core.ops\"\n\n  {{\@1}} = Parrot_load_lib(interpreter, {{\@2}}, NUL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71613	71709	
==>ODY" => "#line 1150 \"src/ops/core.ops\"\n\n  {{\@1}} = Parrot_load_lib(interpreter, {{\@2}}, NUL <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1975	2116	
==>e_text');
  $parser->end_head1()                 if $parser->can('end_head1');

If Pod::Simple sends an event where the element name has a das <==
2	/Users/nnunley/parrot/config/init/defaults.pm	6600	6939	
==>ERSION = $conf->data->get('VERSION');
        my $DEVEL   = $conf->data->get('DEVEL');
        $prefix = "/usr/local";

        unless ($conf->data->get('soversion')) {
            $conf->data->set( soversion => $VERSION );
        }
    }
    $conf->data->set(
        prefix      => $prefix,
        exec_prefix => $prefix,
        bin_di <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	44169	44427	
==>\n<$p->[$i-1]>\n<$p->[$i]>\n";
    
    $formatting = '  ' . $1;
    $formatting =~ s/\s+$//s; # nix trailing whitespace
    unless(length $formatting and $p->[$i-1] =~ m/\S/) { # no-op
      splice @$p,$i,1; # remove this line
      $i--; # don't consider ne <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	624	740	
==>('Parrot Core Libraries', '', 'runtime/parrot/library'),
		$self->new_group('Dynamic Libraries', '', 'src/dynoplibs') <==
2	/Users/nnunley/parrot/examples/benchmarks/addit.pl	261	505	
==>s/benchmarks/addit.pl

=head1 DESCRIPTION

Joe Wilson's original Perl version of his C<varargs> subroutines
benchmark. It calls an "add it" function 500000 times in a loop and
prints the result (21001097.97).

=cut

use strict;
sub varargs_adder <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2225	2333	
==>---------------
sub e2charnum {
  my $in = $_[0];
  return undef unless defined $in and length $in;
  
  # Co <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	35715	36214	
==>return \@opcodes;
}

sub BuildReturn {
    my ( $parser, $exprs ) = @_;
    my @opcodes = ();
    my @returns = ();
    for my $expr ( @{$exprs} ) {
        if ( scalar @{ $expr->[1] } ) {
            push @opcodes, @{ $expr->[1] };
        }
        else {
            push @opcodes, new NoOp($parser);
        }
        push @returns, $expr->[0];
    }
    if ( scalar(@opcodes) and $opcodes[-1]->isa('CallOp') ) {
        unless ( exists $returns[-1]->{pragma} ) {
            $r <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	69588	69726	
==>y("HINT"))
	{
		local $::RD_HINT = 1;
		_hint('Set $::RD_HINT (or -RD_HINT if you\'re using "perl -s")
		       for hints on fixing these p <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	4629	4922	
==>se {
    # Hope for BSD-style nm output.
}

Getopt::Long::Configure ("bundling");

unless (GetOptions('code|c!'      => \$Code,
		   'data|d!'      => \$Data,
		   'init|i!'      => \$Init,
		   'uninit|u!'    => \$Uninit,
		   'const|C!'     => \$Const,
		   'global|g!'    => \$Global,
		   ' <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	13807	13927	
==>source)             { $source = *STDIN{IO}
  } elsif(ref(\$source) eq 'GLOB') { # stet
  } elsif(ref($source)           ) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	1430	1541	
==>bclassed!
    Carp::croak "You can call run() only on subclasses of "
     . __PACKAGE__;
  } else {
    Carp::c <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	23489	23834	
==>rser,
            'arg1'   => $expr1->[0],
            'result' => $lbl1,
        );
    }
    else {    # "or"
        push @opcodes, new BranchUnlessOp( $parser,
            'arg1'   => $expr1->[0],
            'result' => $lbl1,
        );
    }
    push @opcodes, new AssignOp( $parser,
        'result' => $result,
        'arg1 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21424	21538	
==>ntent =~ s/\s+$//s;
      DEBUG and print "Ogling '=end $content' directive\n";
      
      unless(length($content <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822463	822717	
==>UVal_int(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823531	823785	
==>UVal_int(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	29087	29265	
==>nd ! $self->{'accept_heads_anywhere'}
         and @$curr_open
         and $curr_open->[-1][0] eq '=over'
      ) {
        DEBUG > 2 and print "'=$para_type' inside an '=over'!\ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	58441	58590	
==>).)*\"|\'(?:\\\'|(?!\').)*\')

Note that the specified delimiters are automatically quotemeta'd.

A typical use of C<gen_delimited_pat> would be to bu <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	43739	43831	
==>rom modifying @_, they are equivalent to the rather ungainly:
	return _generate($_[0], $_[1], <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9997	10107	
==>or})
					or	$$states[$$stack[-1][0]]{ACTIONS}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print STDE <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9550	9656	
==>or})
					or	$$states[$$stack[-1][0]]{ACTIONS}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print STDE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655130	655505	
==>GS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 732,
                  "ARGS" => [
                              "i",
                              "p"
                            ],
                  "BOD <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59455	59581	
==>ncommitted) production",
				    0, $lookahead, $line) or next;

			$prod->check_pending($line) if $prod;
			$prod = new Parse: <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	8448	8760	
==>gen/makefiles/docs.in', 'docs/Makefile',
            commentType       => '#',
            replace_slashes   => 1,
            conditioned_lines => 1
        );

        $conf->data->set(pod => undef);

        open MAKEFILE, ">> docs/Makefile" or die "open >> docs/Makefile: $!";

        my $slash       = $conf <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5872	6005	
==>se;
    my $bs = $base . $self->suffix . '_';

    return <<END_C;
 	if (!${bs}op_lib.op_func_table)
            ${bs}op_lib.op_func_t <==
2	/Users/nnunley/parrot/languages/regex/regex.pl	216	347	
==>my $main;

while (@ARGV) {
    $_ = shift;
    if (/--no(-?)optimize/) {
        $tree_opt = 0;
        $list_opt = 0;
    } elsif ( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22710	22855	
==>oreach my $t (reverse @to_unget) {
        last if $t->type eq 'start' and $t->tagname =~ m/^head\d$/s;
        $title = $t->text . $title if $t-> <==
2	/Users/nnunley/parrot/config/gen/icu.pm	78	172	
==>pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/gen/icu.pm - ICU

=head1 DESC <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828704	828804	
==>ption(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_PMC) {\n    internal_except <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829772	829872	
==>ption(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_PMC) {\n    internal_except <==
2	/Users/nnunley/parrot/lib/File/Which.pm	4395	4516	
==>has a special environment variable called C<PATHEXT>, which is used
by the shell to look for executable files. Usually, it <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	20099	20289	
==>e 17
		 'expr', 2,
sub
#line 125 "lib/Regex/Grammar.y"
{ return op('multi_match' => [ 0, 1, TRUE, $_[1] ]); }
	],
	[#Rule 18
		 'expr', 3,
sub
#line 127 "lib/Regex/Grammar.y"
{ return op('mul <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	736	858	
==>ur $VERSION = '1.0';

use Parrot::Docs::HTMLPage;

=item C<do_beginning()> 

Reimplements the C<Pod::Simple::HTML> method t <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	3571	3674	
==>op off the file scope block.
#

sub pop_block
{
  my $self = shift;

  $self->INTERNAL_ERROR("Attempt to <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8092	8357	
==>nd = $self->find_symbol($name);

  return $found ? $found->type : undef;
}


###############################################################################

=head2 BLOCK->kind_of_ident(NAME)

This is a shortcut method that uses find_symbol() to locate a matching
sy <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	1257	1442	
==>.pod                           [devel]doc
    docs/configuration.pod                          [devel]doc
    docs/debug.pod                                  [devel]doc
    docs/dev/dod.p <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	54	199	
==>endering it out
# as List ops. Most optimizations should go here, since the List form
# is really suitable only for peephole optimization.

packag <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	1132	1276	
==>name> and C<$index_path> are required, though C<$index_path> defaults
to F<index.html> if undefined or an empty string is supplied.

C<@contents> <==
2	/Users/nnunley/parrot/config/auto/gdbm.pm	27	159	
==>The Perl Foundation.
# $Id: /parrot/config/auto/gdbm.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/gdbm.pm - <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	4807	5037	
==>e\""]);
    }
  }
  elsif (exists $node->{children}) {
    my $children = $node->{children};
 
    $self->_add_inst ('', 'new', [$return,'.Undef']);
    for (reverse @$children) {
      if (exists $_->{children}) {
        my $arg0 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	10641	10756	
==>{$sym}=1
					unless $main::code{$main::seg}->{declarations}->{$sym};
			}
			return $sym;
		} elsif ($type eq "STAR <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	13308	13421	
==>_path($path);
    
    # There's no point in linking to the file you are already in.
    return if $file == $self- <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	24307	24463	
==>formatless.\n";
    return 0;
  }
  return 1;
}

# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

sub _ponder_extend {

  # "Go <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432479	432770	
==>p_pip(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433494	433785	
==>p_pip(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191656	191806	
==>et_number(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192596	192746	
==>et_number(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29865	30039	
==>arse::RecDescent::Production::incitempos().' 1} and ' : '')
		. '  $text =~ s/\A' . quotemeta($self->{"pattern"}) . '//)
		{
			'.($self->{"lookahead"} ? '$text = $_savetext;' <==
2	/Users/nnunley/parrot/config/gen/config_pm.pm	370	469	
==>g_pm;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

us <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	7271	7395	
==>teral');       }
sub skip_new           { return shift->skip('new');           }
sub skip_open_brace    { return shift->skip( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12124	12258	
==>d inherits all its
methods.

TODO

=head1 SEE ALSO

L<Pod::Simple>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke. <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4366	4525	
==>while(<DRV>) {
                	/^\s*sub\s+_Parse\s*{\s*$/ .. /^\s*}\s*#\s*_Parse\s*$/
        	and     do {
                	s/^#DBG>//;
                	p <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4145	4300	
==>while(<DRV>) {
                	/^\s*sub\s+_Parse\s*{\s*$/ .. /^\s*}\s*#\s*_Parse\s*$/
        	and     do {
                	s/^#DBG>//;
                	p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19484	19573	
==>truct::Expression::Value::Identifier->new($block, $self->require_ident);

      $self->req <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	438	580	
==>gname(@_) }

1;


__END__

=head1 NAME

Pod::Simple::PullParserEndToken -- end-tokens from Pod::Simple::PullParser

=head1 SYNOPSIS

(See L<Pod <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	603	730	
==>age that all subsequent sub PMCs will be put
into. The name is a simple concatenation of the package name, double
colon, and the <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	40168	40332	
==>ak' ) {
                    $parser->Error("no loop to break\n");
                }
            }
        }
        unshift @{ $parser->YYData->{functs} }, \@op <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39095	39239	
==>ak' ) {
                $parser->Error("no loop to break\n");
            }
        }
    }
    unshift @{ $parser->YYData->{functs} }, \@op <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2595	2693	
==>eft = $left->compile($compiler);
  $right = $right->compile($compiler);

  my $dest_name = $dest->v <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6018	6125	
==>EXT] eq "select") {
			my $s=pop @selects;
			feedme;
			print CODE "CASE_$s->{jump}_$s->{incase}:\n";
			pr <==
2	/Users/nnunley/parrot/tools/dev/gen_class.pl	1556	1741	
==>pmc handles these
		next;
	}

	print "    $retval $methname ($args) {\n";
	if($retval ne 'void') {
		print "        return ($retval)0;\n";
	}
	print "    }\n\n";
}

## emit fi <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	1702	1819	
==>appens when an embedding application calls
   them to do stuff with PMCs, STRINGS, interpreter contents, and
   suchli <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	286	416	
==>SUBCLASSES> defined in this
file) is used by F<tools/build/pmc2c.pl> to generate C code from PMC files.

=head2 Functions

=over

= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742779	743032	
==>from_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743545	743798	
==>from_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	17382	17492	
==>tem 1.", "=item    123412"
    
    $para->[1]{'~orig_content'} = $content;
    $para->[1]{'number'} = $1;  # Y <==
2	/Users/nnunley/parrot/lib/Test/More.pm	10145	10255	
==>$this, 'eq', $that, 'this eq that' );

    # ok( $this == $that );
    cmp_ok( $this, '==', $that, 'this == tha <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	6084	6239	
==>g version
		feedme();
		print CODE<<PROMPTRND;
	print "Random-number seed (-32768 to 32767)?"
	bsr READLINE
	bsr CHOMP
	I12= S0
PROMPTRND
	} else {
		($resu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421805	421902	
==>562 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_bind(interpreter, {{\@2}}, {{\@3}});\n    {{+=4} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422698	422795	
==>562 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_bind(interpreter, {{\@2}}, {{\@3}});\n    {{+=4} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921073	921384	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sprintf <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921966	922277	
==>3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sprintf <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	2665	2802	
==>"ne $a, $b, $where";
    } elsif ($cond eq '<') {
        return "lt $a, $b, $where";
    } elsif ($cond eq '<=') {
        return "le $a, <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3459	3561	
==>ds_build("$group.c", @pmcfiles)) {
            run("$PMC2C --library $group --c " . join(" ",@pmcfiles) <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3563	3665	
==>ds_build("$group.c", @pmcfiles)) {
            run("$PMC2C --library $group --c " . join(" ",@pmcfiles) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15862	15973	
==>ste this into a file and run it without there being
  #  dire screaming about the mysterious hard-hyphen charact <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	538	674	
==>tion.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new(
		'Big Number Arithmetic', 'bignum.html', '',
		$self->new_group(' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921095	921429	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sprintf",
                  "FLAGS" => ":base_core", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921988	922322	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sprintf",
                  "FLAGS" => ":base_core", <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	173	266	
==>ion::Languages - Languages documentation section

=head1 SYNOPSIS

    use Parrot::Docs::Secti <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	61406	61562	
==>efore closing one or more levels of nested
brackets.

=item C<Unmatched embedded quote (%s)>

C<extract_bracketed> attempted to match an embedded quoted subs <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1355	1611	
==>N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hires <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1355	1611	
==>N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hires <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224032	224507	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 262,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#l <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	19175	19271	
==>NS_NOT_FOUND_ERROR:
    ex = new Exception
	err = "Attempt to translate unknown instruction (code <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224974	225385	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 263,
                  "ARGS" => [
                              "p",
                              "n",
                              "ic" <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	11035	11175	
==>nce in SUPER::delete().
    
    $_[0]->delete_contents;
    rmdir($_[0]->path) or die 'Failed to rmdir ' . $_[0]->path . ": $!";
    
    $_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1010	1117	
==>t;

use vars qw ( $VERSION $COMPATIBLE $FILENAME );

$VERSION = '1.05';
$COMPATIBLE = '0.07';
$FILENAM <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	978	1079	
==>t;

use vars qw ( $VERSION $COMPATIBLE $FILENAME );

$VERSION = '1.05';
$COMPATIBLE = '0.07';
$FILENAM <==
2	/Users/nnunley/parrot/lib/Test/More.pm	17823	17944	
==>y $ok = $Test->ok( !$@, "use $module;" );

    unless( $ok ) {
        chomp $@;
        $@ =~ s{^BEGIN failed--compilatio <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9190	9328	
==>errstatus # if 0, then YYErrok has been called
            or  next;       # so continue parsing

#DBG>			$debug & 0x10
#DBG>		and	do { <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8775	8909	
==>errstatus # if 0, then YYErrok has been called
            or  next;       # so continue parsing

#DBG>			$debug & 0x10
#DBG>		and	do { <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1080	1202	
==>L<Pod::Simple::PullParser> object, you might
get an object of this class.

This is a subclass of L<Pod::Simple::PullParserT <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901973	902305	
==>nline",
                  "CODE" => 1017,
                  "ARGS" => [
                              "s",
                              "ic",
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(int <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	1988	2098	
==>st = Test::Builder->new;
  $Test->output('my_logfile');

  sub import {
      my($self) = shift;
      my $pack <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	13110	13266	
==>.h
rand        stdlib.h
real        complex.h
realloc     stdlib.h
remainder   math.h
remainderf  math.h
remainderl  math.h
remove      stdio.h
remquo      m <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	122	300	
==>1-2005, The Perl Foundation.
# $Id: /parrot/config/gen/makefiles/dynpmc_pl.in 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

tools/build/dynpmc.pl - Build script for dyna <==
2	/Users/nnunley/parrot/examples/benchmarks/vpm.pl	51	198	
==>PM list
#
use strict;

my $big;
my $string="just another perl hacker";

for (0 .. 99999) {
    $big++;
    my @str=split(//,$string);
    my $f=shif <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	18448	18579	
==>ies) and recreate the data structure.

=cut

sub read_dump {
    my ($include, $file) = @_;

    $file =~ s/\.\w+$/.dump/;
    $file <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5750	5869	
==>turn $pir;
}

sub post_branch($) {
	my $self = shift;
	my $pops = shift;
	my $pir = '';

	# Branches mean we need to dea <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3688	3807	
==>turn $pir;
}

sub post_branch($) {
	my $self = shift;
	my $pops = shift;
	my $pir = '';

	# Branches mean we need to dea <==
2	/Users/nnunley/parrot/examples/benchmarks/fib.pl	360	473	
==>d).

=cut

use strict;

sub fib {
	my $n = shift;
	return $n if ($n < 2);
	return fib($n-1) + fib($n-2);
}
my $N = <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	1618	1776	
==>{$stype};
			} else {
				unless (exists $usertypes{$stype}) {
					die "User type $stype not found at source line $sourceline";
				}
				$user=1
			}
		}
		u <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11768	11876	
==>_call {
    my ($self, $name, $mode, $uid) = @_;
    return split(/\n/, <<"END");
$uid = _$name($mode, <rx_in <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1597	1701	
==>hift @_ => ( ref $pattern
        ? Parrot::Test::PGE::_generate_subrule_pir($target, $pattern)
        : <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2120	2224	
==>hift @_ => ( ref $pattern
        ? Parrot::Test::PGE::_generate_subrule_pir($target, $pattern)
        : <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3892	4028	
==>.
It works by basically acting like a simple-minded version of
L<Pod::Simple::Text> that formats only the "Pod Errors" section
(if Pod::S <==
2	/Users/nnunley/parrot/languages/urm/urm-old.pl	1528	1721	
==>ister{$1} < 0) { $register{$1} = 0 }
	$pos++;
    }
    elsif ($line =~ / *goto *(\d+)/) {
	$pos=$1 ;
    }
    else {
	print "Syntax error\n"; exit;
    }
}  

print "Output: $register{$outreg} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556569	556662	
==>5 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n\ <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	11005	11123	
==>meters
    }sx;

    my ($pre, $classname, $flags)   = parse_flags(\$code);
    my ($classblock, $post)         = extra <==
2	/Users/nnunley/parrot/config/auto/signal.pm	1770	1899	
==><<"EOF";
# DO NOT EDIT THIS FILE.
#
# This file is generated automatically by config/auto/signal.pm
#
# Any changes made here will <==
2	/Users/nnunley/parrot/config/auto/socklen_t.pm	493	613	
==>tep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    my $d_socklen_t = $Config{d_soc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137384	137701	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq",
                  "FLAGS" => ": <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	1506	1740	
==>LASS_HEXADECIMAL    
    $ret |= 0x0020 if $chr =~ /^[[:space:]\x85\xa0]$/;  # CCLASS_WHITESPACE     
    $ret |= 0x0040 if $chr =~ /^[[:print:]]$/;  # CCLASS_PRINTING       
    $ret |= 0x0080 if $chr =~ /^[[:graph:]]$/;  # CCLASS_GRA <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1450	1578	
==>($errst,$nberr,$token,$value,$check,$dotpos);
    my($self)={ ERROR => \&_Error,
				ERRST => \$errst,
                NBERR = <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1400	1525	
==>($errst,$nberr,$token,$value,$check,$dotpos);
    my($self)={ ERROR => \&_Error,
				ERRST => \$errst,
                NBERR = <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	10138	10316	
==>]);
			feedme();
			$expr=1;
			next;
		}
		if ($syms[CURR] eq ";") {
			$eol=1;
			feedme();
			$expr=0;
			next;
		}
		if ($syms[CURR] eq ",") {
			fdprint($fd, "\\t");
			$eol= <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28387	28481	
==>D_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
						. $& <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30463	30557	
==>D_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
						. $& <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	537	639	
==>lly creates the Configuration section's groups by studying the
contents of C<@Parrot::Configure::steps> <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	452	582	
==>= '' unless defined $$x;
  
  #Pod::Simple::DEBUG and print "New $class handle on $x = \"$$x\"\n";
  
  my $new = gensym();
  tie * <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	7180	7309	
==>on_ansi_external_symbols);
}

    
__END__
# The following symbols are available in a C89 Hosted Implementation
# (not sure if I g <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	770337	770731	
==>eti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 870,
                  "ARGS" => [
                              "ic",
                              "i"
                            ], <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6943	7086	
==>) = @_;
    $reg = value($reg);

    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        return ("\$dbg_tmp = \@<rx_ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9095	9237	
==>) = @_;
    $reg = value($reg);
    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        return ("\$dbg_tmp = \@<rx_ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	3570	3695	
==>tput2) {
        # $stmt : { label => ?label, code => op }
	my ($label, $actual) = @$stmt{'label','code'};

        # Find sta <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	40302	40457	
==>ent[0])
         and $ell_content[0] =~ m/^[-a-zA-Z0-9]+\([-a-zA-Z0-9]+\)$/s
      ) {
        $ell->[1]{'type'}    = 'man';
        DEBUG > 3 and print "Co <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	16808	16944	
==>t, ' . $order[0] . "\n";

          $template .= << 'END_PIR';
    goto loop
loop_done:
    # return the result vector
    .return (resul <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634127	634583	
==>[
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 710,
                  "ARGS" => [
                              "p",
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 107 \"src/ops/pmc.ops\"\n  PMC *cla <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655571	655856	
==>@2}}) ? 0 : {{\@2}}->vtable->defined(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653388	653481	
==>ind_method(interpreter, {{\@2}}, {{\@3}});\n    if (!{{\@1}} || !VTABLE_defined(interpreter, { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654549	654642	
==>ind_method(interpreter, {{\@2}}, {{\@3}});\n    if (!{{\@1}} || !VTABLE_defined(interpreter, { <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	32887	33069	
==>et->[$i][1]{'content-implicit'} = 'yes';
        
        if( 3 == @{ $treelet->[$i] } ) {
          # But if it IS just one text node (most common case)
          DEBUG > 1 and print <==
2	/Users/nnunley/parrot/config/auto/python.pm	132	309	
==>ME

config/auto/python - Check whether python is there

=head1 DESCRIPTION

Determines whether python is there. Checks also whether we have Python 2.4.

=head1 TODO

Store versio <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	3812	3914	
==>to see here too:
BEGIN {
  *pretty        = \&Pod::Simple::BlackBox::pretty;
  *stringify_lol = \&Pod:: <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	11260	11396	
==>atch{'!INPUT'} = $rx_input;
$rx_match{'!GROUPS'} ||= [];
my $rx_len = length($rx_input);
my $rx_tmp;
END

    push @ops, $self->output($s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	12288	12453	
==>8,
			'regex1' => 7
		}
	},
	{#State 2
		DEFAULT => 0
	},
	{#State 3
		ACTIONS => {
			"?" => 16
		},
		DEFAULT => -28,
		GOTOS => {
			'rulename' => 17
		}
	},
	{#St <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	28256	28378	
==>ters.
If the extraction fails an empty string is returned.

=item [1]

The remainder of the input string (i.e. the characte <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686417	686512	
==>ne 563 \"src/ops/pmc.ops\"\n   {{\@1}} = {{\@3}}->vtable->getprop(interpreter, {{\@3}}, {{\@2}}) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687307	687402	
==>ne 563 \"src/ops/pmc.ops\"\n   {{\@1}} = {{\@3}}->vtable->getprop(interpreter, {{\@3}}, {{\@2}}) <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18105	18209	
==>}

sub _op_assq {
}

sub _op_assv {
}

sub _op_assoc {
}

sub _op_symbol_p {
}

sub _op_symbol_string {
} <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13956	14130	
==>"";
		my $advice = @items > 1
				? "However, there were also other (useless) items after the leading "
				  . $items[0]->describe
				  . ", so you may have been expecting s <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8289	8387	
==>_$_:\n";
		}
		push @{$code{$seg}->{code}}, "\t# $syms[CURR]\n" if $type[CURR] eq "COMM";
		$elseta <==
2	/Users/nnunley/parrot/lib/Test/More.pm	10486	10660	
==>t line 12)
    #     '23'
    #         &&
    #     undef

It's also useful in those cases where you are comparing numbers and
is()'s use of C<eq> will interfere:

    cmp_ok <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	2321	2485	
==>l $_" ]) }
                    @$rxlocals);
    }
}

sub op_restore_rxlocals {
    my ($self, $op) = @_;
    if ($op->{non_reentrant}) {
        return ();
    } els <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1608	1714	
==>( ref $pattern
        ? Parrot::Test::PGE::_generate_subrule_pir($target, $pattern)
        : Parrot::Test <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2131	2237	
==>( ref $pattern
        ? Parrot::Test::PGE::_generate_subrule_pir($target, $pattern)
        : Parrot::Test <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2936	3069	
==>Project info',
	'PBC_COMPAT' => 'Bytecode compatibility file',
	'PLATFORMS' => 'Project info',
	'README' => 'README file',
	'RELEASE_I <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	5655	5757	
==>so that primitive matching
# operations (eg matching single characters or character ranges) won't
# hav <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2976	3097	
==>n_core_func_decl()> is implemented, to
return the C code prior to the run core function.

=item C<run_core_after_addr_tabl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42683	43016	
==>" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 54,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 727 \"src/ops/core.o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	489195	489569	
==>"ARGS" => [
                              "i",
                              "n"
                            ],
                  "BODY" => "#line 512 \"src/ops/math.ops\"\n  {{\@1}} = (INTVAL)floor({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	6186	6303	
==>ft;
    my $ignore = shift;
    my %suffixes = ();
    
    foreach my $file ($self->files($recursive, $ignore))
    { <==
2	/Users/nnunley/parrot/config/auto/env.pm	157	299	
==>- System Environment

=head1 DESCRIPTION

Determining if the C library has C<setenv()> and C<unsetenv()>.

=cut

package auto::env;

use strict <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	51739	51943	
==>$item[0]}},0,-1);
					$self->{_AUTOTREE}{TERMINAL}
						= new Parse::RecDescent::Action(q{{bless {__VALUE__=>$item[1]}, $item[0]}},0,-1);
				}
			}

			elsif ($grammar =~ m/$REJECTMK/gco)
			{
				_pars <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	16032	16171	
==>my ($n, $c, $cmt) = @_;
    binary('-', $cmt);
}

sub BINARY_MODULO
{
    my ($n, $c, $cmt) = @_;
    binary('%', $cmt);
}
sub BINARY_MULTIP <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	2172	2364	
==>rite makefile.
	open $fh, "> Makefile" or die "Unable to open Makefile\n";
	print $fh $makefile;
	close $fh;
}


# Generate Config.pm.
# ###################
sub generate_config_pm(%) { <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	630	720	
==>lt
F<blib/lib/libparrot.a>), and then cross-references the dubious API
symbols according to <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	923	1056	
==>= @_;

  my $token;

  if (UNIVERSAL::isa($type, 'Jako::Token')) {
    $token = $type;
    $type = $type->text;
  }
  else {
    $type <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	2982	3127	
==>ame => 'arg' });
  }

  foreach my $content ($self->content) {
    $content->sax($handler);
  }

  $handler->end_element({ Name => 'sub' });
}


1 <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	49023	49126	
==>they are
defined.

have the POD FORMATTING ERRORS section note the localtime, and the
version of Pod::Si <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	1436	1563	
==>for my $op (@$ops) {
        die $op if ! ref $op;

        if ($op->{name} eq 'LABEL') {
            $label .= $self->output_la <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	24003	24184	
==>command($cmd,
                                     'STDOUT' => $build_f,
                                     'STDERR' => $build_f);
            $builder->diag("'$cmd' failed with ex <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	24764	24945	
==>command($cmd,
                                     'STDOUT' => $build_f,
                                     'STDERR' => $build_f);
            $builder->diag("'$cmd' failed with ex <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3153	3246	
==>$self->do_middle if $self->bare_output;
  return
   $self->do_beginning && $self->do_middle && <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4522	4615	
==>$self->do_middle if $self->bare_output;
  return
   $self->do_beginning && $self->do_middle && <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7301	7435	
==>) = @_;
    $reg = value($reg);

    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        return ("set <rx_t <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9401	9534	
==>) = @_;
    $reg = value($reg);
    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        return ("set <rx_t <==
2	/Users/nnunley/parrot/examples/benchmarks/freeze.pl	197	309	
==>e/Thaw Benchmarks

=head1 SYNOPSIS

    % time perl examples/benchmarks/freeze.pl

=head1 DESCRIPTION

Freeze/tha <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	2194	2332	
==>code:"dyadic:\u2260"]  = <<"END_PIR"             # not equal
    $I100 = isne %1, %2
    %1 = $I100
END_PIR

    $P0[unicode:"dyadic:\u2264 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996137	996831	
==>ass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1114,
                  "ARGS" => [
                              "i",
                              "ic",
                              "s",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_fi <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	13746	13894	
==>int <<EOC;
    	.pcc_begin_return $cmt
	.return $tos
	.pcc_end_return
EOC
    }
    else {
	print <<EOC;
	# $cmt
EOC
    }
}

sub YIELD_VALUE
{
    m <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1296	1432	
==>is an instance of the class returned by C<file_class>.

=cut

sub file_with_path
{
    my $self = shift;
    
    return $self->file_clas <==
2	/Users/nnunley/parrot/config/auto/headers.pm	2057	2164	
==>first.
        foreach my $use_headers ([$header], [@found_headers, $header]) {
            $conf->data->set <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3211	3316	
==>erate_c($_) foreach (@pmcs);

    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_ <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3315	3420	
==>erate_c($_) foreach (@pmcs);

    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_ <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	7738	7924	
==>r die "Can't open $file, error $!";
    while (<OP>) {
        push @lines, $_ if $fix;
        chomp;
        $fix = 0 if /^###DYNAMIC###/;
        s/#.*$//;
        s/\s*$//;
        s/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	19096	19203	
==>{OPS}}, $op;
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::Op>

=item C<Parrot::OpTrans>

=item F<tool <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	14810	14991	
==>which is of
type C<timeval>.

    use Class::Struct;

    struct( rusage => {
        ru_utime => timeval,  # seconds
        ru_stime => timeval,  # microseconds
    });

    struct <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	5462	5586	
==>= @_;
    my @opcodes1 = ();
    my @opcodes2 = ();
    my $result   = new_tmp( $parser, 'pmc', 'table' );
    push @opco <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7122	7232	
==>nstr(6, s1$, " ")
print "Inval  (0): ", instr(4, bogus$, "t")
' instr() tests
s1$="Mixed case"
print ucase$(s1$ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18851	18961	
==>nstr(6, s1$, " ")
print "Inval  (0): ", instr(4, bogus$, "t")
' instr() tests
s1$="Mixed case"
print ucase$(s1$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677534	677651	
==>],
                  "BODY" => "#line 478 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_float(interpreter, {{\@1}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678312	678429	
==>],
                  "BODY" => "#line 478 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_float(interpreter, {{\@1}} <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2724	2834	
==>op' });
    $handler->end_element({ Name => 'block' });
  }

  $handler->start_element({ Name => 'block', Attri <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2601	2711	
==>op' });
    $handler->end_element({ Name => 'block' });
  }

  $handler->start_element({ Name => 'block', Attri <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	260	353	
==>DOUT{IO};
  $new->nix_X_codes(1);
  return $new;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6566	6689	
==>n 1 if modtime($source) > $target_mod;
    }

    return 0;
}

sub generate_dump {
    my ($pmc) = @_;

    if (needs_build( <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6777	6900	
==>n 1 if modtime($source) > $target_mod;
    }

    return 0;
}

sub generate_dump {
    my ($pmc) = @_;

    if (needs_build( <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	60002	60098	
==>iable is set.
Accessing C<$@-E<gt>{error}> returns one of the error diagnostics listed
below.
Acc <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	4034	4160	
==>line);

  return $token;
}


#
# back()
#
# Moves the current token position $offset tokens backward. Returns the new
# absolut <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	60195	60286	
==>ted (although not necessarily where it occurred!)
Printing C<$@> directly produces the error <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	2193	2303	
==>ser->YYData->{scope} = $scope;
    my $symbtab = shift @{ $parser->YYData->{scopef} };
    $parser->YYData->{ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	10510	10736	
==>RNAL_ERROR("Unexpected loop kind %s!", $kind);
      }

      push @{$self->{BLOCKS}}, $loop;

      next;
    }

    #
    # Increment and Decrement:
    #
    #   <var> <op>;
    #

    if ($token->is_ident and $self->get(1)- <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	710	844	
==>ree ($tokens, $count);
    push @{$temp->{children}}, $expr;
  }
  elsif ($tokens->[$count] eq "`") {
    $temp = { children => [{ valu <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	737	875	
==>pile()
#
# By default, compiling a literal does nothing, returning you
# the literal for you to use in other compilations. But, string
# li <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2775	2911	
==>ned $op) {
      $name = $op->value;
      $name =~ s/(^"|"$)//g;
    }

    $name =~ s/^.*:://; # Strip namespaces off ops.

    $compil <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	9413	9579	
==>',
   73, 'I',
   74, 'J',
   75, 'K',
   76, 'L',
   77, 'M',
   78, 'N',
   79, 'O',
   80, 'P',
   81, 'Q',
   82, 'R',
   83, 'S',
   84, 'T',
   85, 'U',
   86, ' <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6089	6261	
==>actions{ACTIONS}{$$token})
                    ?   $$actions{ACTIONS}{$$token}
                    :   exists($$actions{DEFAULT})
                        ?   $$actions{DE <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5801	5970	
==>actions{ACTIONS}{$$token})
                    ?   $$actions{ACTIONS}{$$token}
                    :   exists($$actions{DEFAULT})
                        ?   $$actions{DE <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	11579	11988	
==>&& $max == -1) {
        $base .= "*";
    } elsif ($min == 1 && $max == -1) {
        $base .= "+";
    } elsif ($max == -1) {
        $base .= "{$min,}";
    } else {
        $base .= "{$min,$max}";
    }

    $base .= "?" unless $greedy;
    return $base;
}

sub Regex::Ops::Tree::group::needparen { 0 }
sub Regex::Ops::Tree::group::render {
    my $op = shift;
    my $R = $op->{args}->[0];
    my $str = $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418071	418625	
==>"i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 481,
                  "ARGS" => [
                              "i",
                              "p",
                              "ic",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(int <==
2	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	308	450	
==>tines specific to 'ParrotCompiler'.

=head1 DESCRIPTION

Calls 'parrot_compiler.pbc'.

=head1 METHODS

=head2 new

Yet another constructor.

=c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761493	761740	
==>ister access\");\n    REG_PMC({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762346	762593	
==>ister access\");\n    REG_PMC({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296156	296498	
==>(interpreter, {{\@2}}, {{\@3}}, MMD_EQ);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isne" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	304828	305151	
==>(interpreter, {{\@2}}, {{\@3}}, MMD_EQ);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELAT <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	134	300	
==>o.tmt > src/builtins/foo.pir

=head1 DESCRIPTION

Use this script to generate PIR code based on a template describing how
the inlined tcl builtin works. Parameters spe <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	7879	7976	
==>flags =~ /:pic/ &&
	!(ref($trans) eq 'Parrot::OpTrans::CGP' ||
	  ref($trans) eq 'Parrot::OpTrans: <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	44138	44238	
==>e extracted quotelike substring (including trailing modifiers),

=item [1]

the remainder of the inpu <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	3390	3545	
==>b is_sub           { return shift->is('sub');           }
sub is_unless        { return shift->is('unless');        }
sub is_until         { return shift->i <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	2356	2504	
==>+$c' . $MSK . ', $_[3]+$d' . $MSK . ';
  }';
  eval $dump;
  #print "$dump\n";
  #exit 0;
}

gen_code();


# object part of this module
sub new {
	my <==
2	/Users/nnunley/parrot/config/auto/va_ptr.pm	7	143	
==>ight (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/config/auto/va_ptr.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

con <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	8228	8380	
==>urce is filename $_[0]\n";
    {
      local *PODSOURCE;
      open(PODSOURCE, "<$_[0]") || Carp::croak "Can't open $_[0]: $!";
      $handle = *PODSOURC <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034851	1035155	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_lex",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "funct <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036014	1036318	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_lex",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "funct <==
2	/Users/nnunley/parrot/config/inter/progs.pm	3749	3962	
==>rompt("What C++ compiler do you want to use?", $cxx) if $ask;
    $conf->data->set(cxx => $cxx);

    my $debug = 'n';
    $debug = 'y' if $conf->options->get('debugging');
    $debug = prompt("Do you want a debugg <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4967	5073	
==>,$check,$dotpos)
     = @$self{ 'ERRST', 'NBERR', 'TOKEN', 'VALUE', 'STACK', 'CHECK', 'DOTPOS' };

#DBG> <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4725	4828	
==>,$check,$dotpos)
     = @$self{ 'ERRST', 'NBERR', 'TOKEN', 'VALUE', 'STACK', 'CHECK', 'DOTPOS' };

#DBG> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	3101	3201	
==>ck.
#

sub current_block
{
  my $self = shift;

  $self->INTERNAL_ERROR("Attempt to reference top blo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	312556	312646	
==>g.ops\"\n  struct Parrot_Context_info info;\n  Parrot_Context_info(interpreter, CONTEXT(int <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	313288	313378	
==>g.ops\"\n  struct Parrot_Context_info info;\n  Parrot_Context_info(interpreter, CONTEXT(int <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5284	5379	
==>rt_element({ Name => 'assign' });
  $dest->sax($handler);
  $handler->start_element({ Name => 'o <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3347	3442	
==>rt_element({ Name => 'assign' });
  $dest->sax($handler);
  $handler->start_element({ Name => 'o <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1351	1455	
==>andatory parameters
my(@params)=('LEX','RULES','STATES');

sub new {
    my($class)=shift;
	my($errs <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1306	1405	
==>andatory parameters
my(@params)=('LEX','RULES','STATES');

sub new {
    my($class)=shift;
	my($errs <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	337	468	
==>unt );
}

sub get_test_prog {
    my $self = shift;
    my ( $path_to_parrot, $path_to_language, $count ) = @_;
 
    
    my $test_ <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	355	480	
==>unt );
}

sub get_test_prog {
    my $self = shift;
    my ( $path_to_parrot, $path_to_language, $count ) = @_;

    my $test_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485884	486215	
==>S" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ceil",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	2402	2538	
==>f the
# source file and add a .pasm to it
if (!defined $to_file) {
  $to_file = $from_file;
  $to_file =~ s/\..*$//;
  $to_file .= ".pasm <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20927	21062	
==>1
ADDT
		}
		print CODE<<TYPEE;
	P1= P10[0]
	P2= P1["types"]
	P2["$typename"]= P0
	goto OUTOF_$typename
DIM_$typename:
	#print "Dimensio <==
2	/Users/nnunley/parrot/lib/Test/More.pm	36402	36546	
==>u just want to write
some tests.  You can upgrade to Test::More later (it's forward
compatible).

L<Test> is the old testing module.  Its main be <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019807	1019904	
==>t time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_localtime_r(&t, &tm);\n  Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020738	1020835	
==>t time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_localtime_r(&t, &tm);\n  Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	6281	6516	
==>dings.

=item C<path_to_parrot()>

Construct a relative path from the current dir to the parrot root dir.

=back

=cut

package Parrot::Test;

use strict;
use warnings;

use Cwd;
use Data::Dumper;
use File::Spec;
use Parrot::Config;

re <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18262	18362	
==>]\n";
}
sub parse_gosub {
	feedme;
	create_label();

	push @{$code{$seg}->{code}}, <<GOSUB;	
	bsr $la <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	6542	6661	
==>his fails
	for ($i = $n; @{$def_args{$arg}}; $i--) {
	    my $reg = 4 + $i;
	    my $d = pop @{$def_args{$arg}};
	    my <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	1572	1697	
==>code.
 4. Eliminate jumps to the following address.
 5. Eliminate unused labels.

TODO:

 1. I would like to optimize

     B1 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	8660	8799	
==>($this->[1] eq "INT") {
			$this->[0].=".0";
		}

		if ($this->[1] eq "BARE") {
			$this->[0]=changename($this->[0]);
		}

		push(@expr, $fo <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	13233	13357	
==>n_advance');
    my $next = $self->genlabel('after_scan');

    my ($R_back, @R_body) = $self->rewrite($R, $advance);

    my <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	302	409	
==>rot::OpTrans> to provide a
C C<goto> run loop.

=head2 Instance Methods

=over 4

=cut

package Parrot::OpTr <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2701	2810	
==>iler->temp_reg($formal_arg_type);
      my $value = $args[$i]->compile($compiler);
      $compiler->emit("  $t <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2401	2510	
==>iler->temp_reg($formal_arg_type);
      my $value = $args[$i]->compile($compiler);
      $compiler->emit("  $t <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	7393	7559	
==>ether a plan has been defined. $plan is either C<undef> (no plan has been set), C<no_plan> (indeterminate # of tests) or an integer (the number of expected tests).

=c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760890	761184	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "setp_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761742	762036	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "setp_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	31720	31875	
==>and the skipped prefix (if
any). If a suitable delimited substring is not found, the first
element of the array is the empty string, the second is the compl <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15313	15453	
==>(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # return a single scalar
    ($x = ((@_ == 1) ? $_[0] : join '', @_)
    ) =~ s/([F\x <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16494	16634	
==>(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # return a single scalar
    ($x = ((@_ == 1) ? $_[0] : join '', @_)
    ) =~ s/([F\x <==
2	/Users/nnunley/parrot/Configure.pl	3042	3138	
==>ibc>, C<malloc> or C<malloc-trace>. The default is C<gc>.

=back

ICU Options

=over

=item C<--i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	3626	3928	
==>($offset) = @_;

  $offset = 1 unless defined $offset;

  my $pos = $self->pos;

  $self->INTERNAL_ERROR("Position is undefined") unless defined $pos;
#  DEBUG(0, "Position starts as $pos");

  $pos += $offset;

#  DEBUG(0, "Setting position to $pos");
  $self->pos($pos);
#  DEBUG(0, "forth(): Position <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608161	608471	
==>],
                  "TYPE" => "inline",
                  "CODE" => 689,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 473 \"src/ops/object.ops\"\n    {{\@ <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	18054	18161	
==>nclude, $name, \%all);
        gen_super_meths($class, $vt, \%all);

        my $Dumper = Data::Dumper->new( <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	2684	2973	
==>File::Spec->catfile($charset_dir, 'tables.c');
open STDOUT, '>', $c_file
    or die "can not open '$c_file': $!\n";
print <<"END";
$header
#include "tables.h"
END
foreach my $name ( sort keys %table ) {
    print STDERR "creating table: '$table{$name}' (charset: $name)\n";
    setlocale(LC <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7748	7943	
==>ck and $stack[-1] eq 'text';
        }
        print $fh $self->{'Tagmap'}{$tagname} || next;
        ++$dont_wrap if $tagname eq 'Verbatim' or $tagname eq "VerbatimFormatted"
          or $tagnam <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359381	359502	
==>reter, s)) {\n    PIO_putps(interpreter, PIO_STDERR(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360129	360250	
==>reter, s)) {\n    PIO_putps(interpreter, PIO_STDERR(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	3173	3313	
==>q "*");
	return 50 if ($op eq "/");
	return 60 if ($op eq "^");
	return 70 if ($op eq ".");

	return 99 if ($op eq "UNARYMINUS");
	
	return 1 <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	3457	3634	
==>textref)-$endpos,	# REMAINDER
			$startpos, $prelen;			# PREFIX
}

sub extract_bracketed (;$$$)
{
	my $textref = defined $_[0] ? \$_[0] : \$_;
	my $ldel = defined $_[1] ? $_[1] : <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744127	744337	
==>> [
                              "s",
                              "n"
                            ],
                  "BODY" => "#line 179 \"src/ops/set.ops\"\n  {{\@1}} = string_from_num(interpreter, {{\@2} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6790	7022	
==>@1}});\n    {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE|PARROT_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63901	64131	
==>@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE|PARROT_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8522	8628	
==>_close_paren) {
        while (1) {
          my $arg_type  = Jako::Construct::Type->new($self->require_typ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088882	1088976	
==>tal.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089830	1089924	
==>tal.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828845	829132	
==>n stack!\");\n  }\n\n  {{\@1}} = UVal_pmc(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829913	830200	
==>n stack!\");\n  }\n\n  {{\@1}} = UVal_pmc(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981734	982066	
==>",
                  "CODE" => 1101,
                  "ARGS" => [
                              "i",
                              "i",
                              "s",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\ <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	8913	9022	
==>ror($file, (@$source+$mismatch_at), "Ending boilerplate incorrect.\n(mismatch at \"$source->[$mismatch_at]\" ( <==
2	/Users/nnunley/parrot/config/inter/shlibs.pm	12	101	
==>(C) 2005, The Perl Foundation.
# $Id: /parrot/config/inter/shlibs.pm 19593 2006-05-30T02:2 <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4222	4345	
==>hin parrot.
                $internal_calls{$1}{"$file:$function"}++ 
                  unless ($variable_visible{$file}{$1} <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	1502	1609	
==>sh.
    $parent_path = File::Spec->canonpath($parent_path);
    
    # If we are root then the above will ma <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627339	627452	
==>to be in the destination register before its init method\n   * copies the registers. */\n  {{\@1}} = pmc_new_noini <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628483	628596	
==>to be in the destination register before its init method\n   * copies the registers. */\n  {{\@1}} = pmc_new_noini <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29903	30045	
==>onst Instance Methods

Returns the C code for the method body.

=over 4

=cut

package Parrot::Pmc2c::Standard::Const;
use base 'Parrot::Pmc2c: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1982	2097	
==>self->kind;
  my $name  = $self->ident ? $self->ident->value : undef;
  my $cond  = $self->cond;
  my $left  = $self <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3098	3213	
==>self->kind;
  my $name  = $self->ident ? $self->ident->value : undef;
  my $cond  = $self->cond;
  my $left  = $self <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	25606	25805	
==>rt_line'},
        "You can't extend an established code like \"$new_letter\""
      );
      
      #TODO: or allow if last bit is same?
      
      return;
    }

    unless($fallbacks_one =~ m/^[A <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814354	814700	
==>,
                  "CODE" => 919,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 562 \"src/ops/set.ops\"\n  {{\@1}} = 0;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/config/auto/readline.pm	937	1080	
==>-luuid -lwsock32 -lmsvcp60');
        } else {
            $conf->data->add(' ', libs => 'readline.lib');
        }
    } else {
        $conf-> <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	1780	1885	
==>print Data::Dumper->Dump([$m],["*DEFAULT_RULE_MATCH"]);
  return reduce($m, $input);
}
sub minimatch {
  m <==
2	/Users/nnunley/parrot/lib/Test/More.pm	567	805	
==>snt like unlike is_deeply
             cmp_ok
             skip todo todo_skip
             pass fail
             eq_array eq_hash eq_set
             $TODO
             plan
             can_ok  isa_ok
             diag
            );

m <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28004	28194	
==>SE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 140,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'p <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	22513	22620	
==>e
# specified in @ARGS.
#
sub main {
    my ($default, $dump, $gen_c, $tree, @include);
    # initialization <==
2	/Users/nnunley/parrot/lib/Test/More.pm	14640	14802	
==>ery, very sparingly.

=cut

sub pass (;$) {
    $Test->ok(1, @_);
}

sub fail (;$) {
    $Test->ok(0, @_);
}

=back

=head2 Diagnostics

If you pick the right test <==
2	/Users/nnunley/parrot/lib/Test/More.pm	5611	5711	
==>.

All test functions take a name argument.  It's optional, but highly
suggested that you use it.


= <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2901	2997	
==>>content;
  $handler->end_element({ Name => 'block' });

  $handler->end_element({ Name => $self- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2783	2879	
==>>content;
  $handler->end_element({ Name => 'block' });

  $handler->end_element({ Name => $self- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071726	1071871	
==>i"
                            ],
                  "BODY" => "#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073911	1074056	
==>i"
                            ],
                  "BODY" => "#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520075	520554	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 600,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 739 <==
2	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	805	1076	
==>= ref $self;
        my $visitor = shift;
        no strict "refs";
        my $func = 'visit' . $class;
        if ( $visitor->can($func) ) {
            return $visitor->$func( $self, @_ );
        }
        warn "Please implement a function 'visit", ref $self, " <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6482	6576	
==>pair;
  $self->_add_inst('', 'set', [$pair.'[0]',$item]);
  $self->_add_inst('', 'set', [$pair. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934077	934314	
==>}} = string_downcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934852	935089	
==>}} = string_downcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	480	701	
==>', 'FE05' # compare
);

# Grab parameters.
my ($rules_file, $output_file, $srm_module);
GetOptions(
    "output=s"    => \$output_file,
    "srm=s"        => \$srm_module
) or usage();
$rules_file = shift @ARGV;
usage() if <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2454	2595	
==>base is clobbered
     * # if 1191 := PARROT_OP_set_args_pc
     * (gdb) disas l_ops_addr[1191] l_ops_addr[1192]
     */
#if defined(__GNUC__) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	7	106	
==>il.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subje <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	3945	4088	
==>stamp} = time;
  $smoke{id}        = $id;
  my $filename      = pack_smoke(%smoke);

  open my $fh, ">", $filename or
    die "Couldn't open \"$ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18031	18170	
==>meth, $args ) = @_;
    my @opcodes = ();
    my $key = BuildLiteral( $parser, $meth, 'key' );
    push @opcodes, @{ $key->[1] };
    my <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	13512	13638	
==>file));
}

=item C<do_end()>

Reimplements the C<Pod::Simple::HTML> method to add a footer to the end
of the document.

=cut

s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104736	104896	
==>"p"
                            ],
                  "BODY" => "#line 145 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}}->vtable->bitwise_nots(interpreter, {{\@2}}, NU <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	8872	8981	
==>content seen in search for title.\n";
    return;
  }
  $self->{'Title'} = $title;

  esc($title);
  print {$s <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	4392	4500	
==>syms[CURR] eq ";") {
			$promptcode.=qq{\tprint "?"\n};
		} else {
			die "Syntax error, expected ',' or ';'" <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	11463	11566	
==>expander_" + id);
      if(elem.className == "details") {
	elem.className = "";  /* hack? */
	expander.i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	923724	924016	
==>+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":base_mem",
                  "ARGD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569328	569584	
==>->vtable->isa(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570221	570477	
==>->vtable->isa(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	20610	20721	
==>); }
	],
	[#Rule 21
		 '@1-1', 0,
sub
#line 132 "lib/Regex/Grammar.y"
{ ++$::paren }
	],
	[#Rule 22
		 'expr', 4 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946579	946824	
==>E" => "find_charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947480	947725	
==>E" => "find_charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function", <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20533	20625	
==>hared poit() as struct
	thing$="Whoa"
	bar(5)=66666
	lot$(2)="Goodbye"
	narf.first=909090
	po <==
2	/Users/nnunley/parrot/config/init/hints/netbsd.pm	127	244	
==>f) = @_;

    my $ccflags = $conf->data->get('ccflags');
    if ($ccflags !~ /-pthread/) {
        $ccflags .= ' -pthr <==
2	/Users/nnunley/parrot/config/init/hints/openbsd.pm	219	336	
==>f) = @_;

    my $ccflags = $conf->data->get('ccflags');
    if ($ccflags !~ /-pthread/) {
        $ccflags .= ' -pthr <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	7904	7992	
==>ble_newp_ic_op Parrot_jit_normal_op

#define Parrot_jit_restart_op Parrot_jit_cpcf_op

#i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54840	55068	
==>e.ops\"\n  {{\@1}} = interpinfo(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55600	55828	
==>e.ops\"\n  {{\@1}} = interpinfo(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3938	4048	
==>pmc();
    my $temp_pmc = $compiler->temp_pmc();

    $compiler->emit("  $temp_pmc = new $pmc_type");
    $comp <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1577	1687	
==>pmc();
    my $temp_pmc = $compiler->temp_pmc();

    $compiler->emit("  $temp_pmc = new $pmc_type");
    $comp <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2250	2343	
==>hat.
  }
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2353	2446	
==>hat.
  }
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/tools/dev/gen_class.pl	1474	1578	
==>$methname eq 'type' || $methname eq 'name' || $methname =~ /prop/) {
		# default.pmc handles these
		ne <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39369	39816	
==>RT",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 50,
                  "ARGS" => [
                              "ic",
                              "i"
                            ],
                  "BODY" => "#li <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	4387	4532	
==>Pid} = $$;

    share($self->{Curr_Test});
    $self->{Curr_Test}    = 0;
    $self->{Test_Results} = &share([]);

    $self->{Exported_To}    = u <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	251327	251461	
==>"
                            ],
                  "BODY" => "#line 703 \"src/ops/cmp.ops\"\n  {{\@2}}->vtable->i_logical_not(interpret <==
2	/Users/nnunley/parrot/config/auto/pack.pm	174	293	
==>d1 DESCRIPTION

Figures out how to C<pack()> Parrot's types.

=cut

package auto::pack;

use strict;
use vars qw($descri <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	23159	23303	
==>or arguments, but it needs to know the argument
	# type. Thus we assign to meta-variable I_ARG_0, I_ARG_1 etc, let sub_meta
	# do what it needs t <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	2794	2915	
==>arrot::Docs::Section::Info>

=item C<Parrot::Docs::Section::Docs>

=item C<Parrot::Docs::Section::Examples>

=item C<Parro <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4507	4616	
==>cks that
are defined will be called.  Triggers are passed the key and value that was set
after it has been cha <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988211	988615	
==>LAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1107,
                  "ARGS" => [
                              "i", <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	34848	35027	
==>^\/\|,\$\%\@\ \"\<\>\:\#\&\*\{\}\[\]\(\)]+)*$/s) {
          # Extremely forgiving idea of what constitutes a bare
          #  modulename link like L<Foo::Bar> or even L<Thing::1. <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	3026	3133	
==>arrot_PMC Parrot_lib_${lc_libname}_load(Parrot_INTERP interpreter);
EOH

    return $hout;
}

=item C<gen_c> <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	24228	24470	
==>ew LabelOp( $parser,
        'arg1' => $lbl2,
    );
    return [ $result, \@opcodes ];
}

sub BuildParenthesedExpression {
    my ( $parser, $expr )    = @_;
    my ( $defn,   $opcodes ) = @{$expr};
    if ( scalar( @{$opcodes} ) and <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	3096	3328	
==>/^FILE : '(.*)'$/) {
            $file = $1;
            next;
        }
        
        # skip anything between files.
        next unless $file;
        
        # beginning of function block
        if (/FUNCTION : (.*) \[(.*)\]/ <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1625	1728	
==>y $driver = Regex::Driver->new('pir', emit_main => 1);

    print $PIR <<"END";
# Regular expression tes <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216825	216962	
==>"ic"
                            ],
                  "BODY" => "#line 462 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217765	217902	
==>"ic"
                            ],
                  "BODY" => "#line 462 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpre <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	8452	8576	
==>em C<process_end_token($token)>

Processes an end token.

=cut

sub process_end_token
{
    my $self = shift;
    my $token = <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	34639	34755	
==>ing, and any other kind of
("non-delimiter") bracket in the substring is ignored.

For example, given the string:

	$ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	76	167	
==>cs/Section/C.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Se <==
2	/Users/nnunley/parrot/config/gen/PodText.pm	107	223	
==>43:24.870411Z particle  $

=head1 NAME

config/gen/PodText.pm - generate plain text docs from Pod files

=head1 SYNOP <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27083	27222	
==>ck} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $l_br <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27764	27903	
==>ck} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $l_br <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79065	79175	
==>tring_cstring_free(name);\n  if (p == NULL) {\n      const char * const err = Parrot_dlerror();\n      Parrot_w <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80586	80696	
==>tring_cstring_free(name);\n  if (p == NULL) {\n      const char * const err = Parrot_dlerror();\n      Parrot_w <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1111	1226	
==>}

sub start_Verbatim    { $_[0]{'Thispara'} = ''   }
sub start_item_bullet { $_[0]{'Thispara'} = $FREAKYMODE ? '' : <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	36816	36932	
==>$text = '<leftop: conj /and/ conj>';

See also: C<"extract_quotelike"> and C<"extract_codeblock">.


=head2 C<extract <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	844	938	
==>ter->code->base.data))
#define CUR_OPCODE cur_opcode
#define IREG(i) REG_INT(cur_opcode[i])
#de <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	960	1054	
==>ter->code->base.data))
#define CUR_OPCODE cur_opcode
#define IREG(i) REG_INT(cur_opcode[i])
#de <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007546	1008090	
==>LAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1124,
                  "ARGS" => [
                              "i",
                              "ic",
                              "sc",
                              "ic",
                              " <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	2689	2876	
==>ta(final_destination) = return_data;\n    set_nci_P(interpreter, &st, final_destination);",
       i => "set_nci_I(interpreter, &st, return_data);",
       I => "set_nci_I(interpreter, &st <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11574	11750	
==>ame) = @_;
    return ($self->output_match_failed(),
            ".return (<rx_match>)");
}

sub output_call_setup {
    my ($self, $name, $uid) = @_;
    return ".local pmc $ui <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	934	1186	
==>the "foo" out of the text-token, call C<< $token->text >>

=item $token->text(I<somestring>)

This changes the string that this token holds.  You probably won't need
to do this.

=item $token->text_r()

This returns a scalar reference to the string that <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	1839	1952	
==>libraries

=head1 SYNOPSIS

  package My::Test::Module;
  use Test::Builder;
  require Exporter;
  @ISA = qw(Expor <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	922934	923206	
==>erpreter, {{\@2}}), {{\@3}})\n    );\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697485	697921	
==>i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 783,
                  "ARGS" => [
                              "ic",
                              "i",
                              "ic",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interprete <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594763	595032	
==>,
                  "CODE" => 674,
                  "ARGS" => [
                              "p",
                              "kc",
                              "kc"
                            ],
                  "BODY" => "#line 325 \"src/ops/object.ops\"\n  PMC <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453103	453331	
==>"#line 230 \"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453842	454070	
==>"#line 230 \"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9374	9495	
==>d element name"
        if $new_code =~
          m/[\x00-\x2C\x2F\x39\x3B-\x40\x5B-\x5E\x60\x7B-\x7F]/
            # Char <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10638	10759	
==>d element name"
        if $new_code =~
          m/[\x00-\x2C\x2F\x39\x3B-\x40\x5B-\x5E\x60\x7B-\x7F]/
            # Char <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1384	1524	
==>"$ident_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1378	1518	
==>"$ident_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	10614	10834	
==>t;
    }

    #
    # Increment and Decrement:
    #
    #   <var> <op>;
    #

    if ($token->is_ident and $self->get(1)->is_exfix_arith) {
      my $block = $self->current_block();
      my $ident = Jako::Construct::Ex <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	5640	5755	
==>HEADER "#define PARROT_IN_EXTENSION\n";
}
print HEADER <<END_C;
#include "parrot/parrot.h"
#include "parrot/oplib.h" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1224	1352	
==>o effect string interpolation.
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  confess "No Compiler!" unless defin <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	375	486	
==>parse_keys {
	feedme();
	my $targ=$syms[CURR];
	feedme();
	feedme() while($syms[CURR] =~ /[(),]/);
	my $source=$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909100	909378	
==>=> 1024,
                  "ARGS" => [
                              "i",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 284 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088209	1088475	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089156	1089422	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	1518	1641	
==>e opcode library.

=item C<--no-lines>

Do not generate C<#line> directives in the generated C code.

=back

=head1 SEE ALSO <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2	150	
==>$Id: /parrot/languages/m4/lib/Parrot/Test/M4.pm 18930 2006-04-24T19:32:28.634218Z bernhard  $

=head1 NAME

Test/M4.pm - Testing routines specific to <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565525	565762	
==>"ARGS" => [
                              "i",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 194 \"src/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable- <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	9862	10060	
==>2 * op2
    $N1 = 1 - $N1
    $N1 = sqrt $N1
    .return ($N1)
# These next three are implemented in terms of the available parrot opcodes.
neg_five:  # arcsinh(x) = ln(x+sqrt(x*x+1))
    $N1 = op2 * <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4501	4642	
==>G>//;
                	push(@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note that for loadi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4277	4408	
==>G>//;
                	push(@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note that for loadi <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5830	5926	
==>}, "IFBRANCH_$_:\n";
			}
			while($_=pop(@{$elsestack->{$elsetag}})) {
				push @{$code{$seg}->{ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8176	8269	
==>}, "IFBRANCH_$_:\n";
		}
		while($_=pop(@{$elsestack->{$elsetag}})) {
			push @{$code{$seg}->{ <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	1194	1339	
==>rmine parameter list structure, one of:
    #   struct( class => [ element-list ])
    #   struct( class => { element-list })
    #   struct( elem <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Posix.pm	72	175	
==>T20:44:27.448243Z bernhard  $

package Parrot::Test::Bc::Posix;

use strict;

use base 'Parrot::Test::Bc <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27840	27982	
==>EXPORT ';
    }
    $hout .= <<"EOC";
void Parrot_${classname}_class_init(Parrot_Interp, int, int);
EOC
    $self->{hdecls} .= $hout;
    $self <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6405	6504	
==>tch_${CURIC}_LOOP:
if i == 0 goto POST_BRANCH_switch_${CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0[i] <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4343	4442	
==>tch_${CURIC}_LOOP:
if i == 0 goto POST_BRANCH_switch_${CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0[i] <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3107	3219	
==>::Symbol");
  confess "Extra arguments!" if @_;

  die "Redefinition of symbol '$name', which was defined earlier <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	274	427	
==>d manipulate directories and their contents.

=head2 Class Methods

=over 4

=cut

package Parrot::IO::Directory;

use strict;
use warnings;

use base qw( <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	3635	3795	
==>e.

=cut

sub full_name
{
    my $self = shift;
    my $name = $self->name;
    my @arg_types = $self->arg_types;

    $name .=  "_" . join("_", @arg_types) if @ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	42864	42977	
==>e} .= $label . ' ' x ($max_len[0]-length($label)+2);
    if(defined $row->[1]) {
      $label = $row->[1];
      $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	5645	5848	
==>\n)?)/g
      ) {
        #print(">> $1\n"),
        $self->SUPER::parse_lines($1)
         if length($1) or length($2)
          or pos(     ${ $self->{'source_scalar_ref'} })
           != length( ${ $s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1471	1611	
==>nt) {
      $compiler->emit(".namespace ${namespace}_CONT");
      $compiler->indent;
      $self->SUPER::compile($compiler);
      $compiler <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	150	251	
==>SION);
use Data::Dumper;
use vars qw( %code $seg $debug $runtime_jump );

require "COMP_parsefuncs.pm" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	558	672	
==>DO => 'THEN', LAST => 'ELSE' },
  'sub'      => { PREFIX => "_S", NEXT => 'TEST', REDO => 'THEN', LAST => 'ELSE' }, <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	579	693	
==>DO => 'THEN', LAST => 'ELSE' },
  'sub'      => { PREFIX => "_S", NEXT => 'TEST', REDO => 'THEN', LAST => 'ELSE' }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557798	557904	
==>c, *object;\n  opcode_t *next = {{^+3}};\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  inte <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559182	559288	
==>c, *object;\n  opcode_t *next = {{^+3}};\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  inte <==
2	/Users/nnunley/parrot/config/auto/gdbm.pm	199	359	
==>1 DESCRIPTION

Determines whether the platform supports gdbm. This is needed for the dynamic
GDBMHash PMC.

=cut

package auto::gdbm;

use strict;
use vars qw($d <==
2	/Users/nnunley/parrot/lib/Test/More.pm	20463	20554	
==>nterprets as skipped, but passing, tests.

It's important that $how_many accurately reflects <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29807	29958	
==>SUPER::body($self->{methods}[$n], $line, $out_name);
}

=back

=head2 Parrot::Pmc2c::Standard::Const Instance Methods

Returns the C code for the method <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	9901	10038	
==>TED FILE! DO NOT EDIT!

.HLL '_dotnet', ''

.sub trans_instructions
    .param pmc assembly
    .param pmc class
    .param pmc meth
    . <==
2	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	1443	1653	
==>ir($) {
	my $pir_code = shift;
	
	# Write.
	my $fh;
	open $fh, "> __temp__.pir" or die "$!\n";
	print $fh $pir_code;
	close $fh;

	# Run and get output.
	my $output = `$N2PConfig::parrot __temp__.pir`;

	# Clean <==
2	/Users/nnunley/parrot/config/auto/readline.pm	917	1035	
==>ine -lgw32c -lole32 -luuid -lwsock32 -lmsvcp60');
        } else {
            $conf->data->add(' ', libs => 'readline. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53167	53308	
==>"
                            ],
                  "BODY" => "#line 829 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Interp_flags_SET(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53923	54064	
==>"
                            ],
                  "BODY" => "#line 829 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Interp_flags_SET(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853465	853758	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854247	854540	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARG <==
2	/Users/nnunley/parrot/config/gen/icu.pm	488	580	
==>"Determining whether ICU is installed";

@args = qw(verbose icushared icuheaders icu-config w <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	328572	328828	
==>ODY" => "#line 159 \"src/ops/dotgnu.ops\"\n  {{\@1}} =  (FLOATVAL)((Parrot_Float4)({{\@1}}));\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2044	2143	
==>r}\n",
 'head1'   => "\n{\\pard\\li#rtfindent#\\s31\\keepn\\sb90\\sa180\\f2\\fs#head1_halfpoint_size <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657737	658062	
==>> "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 735,
                  "ARGS" => [ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	33447	33541	
==>ng prefix defaults to
optional whitespace and a missing text defaults to C<$_>. However, a miss <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	17309	17488	
==>pe\n", @stream);		
	return($result, $type, @stream);
}
sub changename {
	my($name)=@_;
	my %lookup = ( '#' => "_hash",
				  	'!' => "",
					'&' => "_amp",
					'%' => "_percent", <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20333	20439	
==>this module's output
even more, see the source and/or write to me.

=head1 SEE ALSO

L<Pod::Simple>, L<RTF: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035609	1035712	
==>ex_pad))\n\tresult = VTABLE_get_pmc_keyed_str(interpreter, lex_pad, lex_name);\n    if (!result) {\n\tre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036773	1036876	
==>ex_pad))\n\tresult = VTABLE_get_pmc_keyed_str(interpreter, lex_pad, lex_name);\n    if (!result) {\n\tre <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22207	22357	
==>ock, $self->require_value);

        $self->require_close_paren;
      }

      $self->require_semicolon;

      my $return = Jako::Construct::Statemen <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	13266	13417	
==>file = $self->{TARGET}->file_with_relative_path($path);
    
    # There's no point in linking to the file you are already in.
    return if $file == $s <==
2	/Users/nnunley/parrot/config/auto/funcptr.pm	31	117	
==>Perl Foundation.
# $Id: /parrot/config/auto/funcptr.pm 19593 2006-05-30T02:28:15.110975 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671113	671454	
==>"i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 751,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 415 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->push_string(interpret <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37476	37574	
==>ame"} . '})
					if defined $::RD_TRACE;').'
		$Parse::RecDescent::lastexpected = ' . ($rule->hasle <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39879	39977	
==>ame"} . '})
					if defined $::RD_TRACE;').'
		$Parse::RecDescent::lastexpected = ' . ($rule->hasle <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	686	850	
==>),f()
call first(t())
print t(5)

' Keys test, "interesting"
dim a$(),b$()
b$("Key 1")="This is"
b$("Key 2")="an"
B$("Hi Mom!")="interesting"
B$(0)="development.
key <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49868	49967	
==>ch ? \@res : undef;
					', $lookahead,$line,"<perl_quotelike>");
				$prod and $prod->additem($item <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3946	4041	
==>expect 12
function aftwo(y())
	print y(4)
end function
function arrfunc(x())
	u=aftwo(x())
	arrf <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15219	15314	
==>expect 12
function aftwo(y())
	print y(4)
end function
function arrfunc(x())
	u=aftwo(x())
	arrf <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2014	2103	
==>IVERSAL::isa($args[$i], 'Jako::Construct::Expression::Value::Identifier')) {
      my $arg <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1714	1803	
==>IVERSAL::isa($args[$i], 'Jako::Construct::Expression::Value::Identifier')) {
      my $arg <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3519	3683	
==>debug
		saveall
		.param int debline
		find_global \$P0, "DEBUGGER"
		\$I0= \$P0["step"]
		ne \$I0, 0, DEBUGGER_STOP
		\$P1= \$P0["break"]
		\$I0= \$P1
		eq \$I0, 0, <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	3927	4071	
==>(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a = qq!"$a"!;   # quote argument
		    $def_arg_names{$f}{$a} = $i;
		    # print STDERR "def $f($a <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	4426	4570	
==>(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a = qq!"$a"!;   # quote argument
		    $def_arg_names{$f}{$a} = $i;
		    # print STDERR "def $f($a <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1079	1204	
==>ift;
  my ($compiler) = @_;

  my $name  = $self->name;

#  $self->DEBUG(0, "Searching for symbol '$name'...");

  my $sym = $ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	725	825	
==>= new Hash
prop_stack_depth = new Hash
PIR
}

# Post translation hook.
sub post_translation() {
	# No <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	9925	10171	
==>astback ]),
               @R_body
              );
    return ($R_back, @ops);
}

sub _translate_classpieces {
    my ($pieces) = @_;

    # Empty list
    return [] if @$pieces == 0;

    # Negated list
    if ($pieces->[0] eq 'neg') {
        r <==
2	/Users/nnunley/parrot/lib/Test/More.pm	33460	33683	
==><builder>

    my $test_builder = Test::More->builder;

Returns the Test::Builder object underlying Test::More for you to play
with.

=cut

sub builder {
    return Test::Builder->new;
}

=back


=head1 EXIT CODES

If all yo <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	10339	10444	
==>ct Correct
DIM A(1,1)
RO=1
IF A(RO,5)=0 THEN GOSUB 20: REM GOO
   end
20 print "Correct"
   return


' Exp <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9155	9259	
==>ct Correct
DIM A(1,1)
RO=1
IF A(RO,5)=0 THEN GOSUB 20: REM GOO
   end
20 print "Correct"
   return

' Exp <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4319	4418	
==>n(<<CODE, $result);
	set $result, 0.0
	eq $a1, $ot1, EQ_$eqnum
	eq $a2, $ot2, EQ_$eqnum
	set $result <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	16933	17226	
==>H_START:

    # If this is the start of a finally handler...
    if eh_flags != 2 goto NOT_FINALLY_START
    if handler_offset != pc goto NOT_FINALLY_START

    # Emit code to get and stash the .NET exception object, then put a jump
    # label.
    gen_pir = concat ".get_results (cur_exceptio <==
2	/Users/nnunley/parrot/config/auto/msvc.pm	979	1261	
==>dn't be run,
    # which should have been caught by the 'die' above.
    # Therefore, test if it's defined to see if MSVC's installed.
    # return 'no' if it's not.
    unless (defined $msvc{_MSC_VER}) {
        $self->set_result('no');
        $conf->data->set(msvcversion => undef <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	14324	14534	
==>ch, so it was
					  optimized out of the final parser$caveat. $advice");
		return 0;
	}
	return 1;
}

sub changesskip($)
{
	my $item;
	foreach $item (@{$_[0]->{"items"}})
	{
		if (ref($item) =~ /Parse::RecDesce <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481391	481660	
==>E" => "inline",
                  "CODE" => 551,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 446 \"src/ops/math.o <==
2	/Users/nnunley/parrot/lib/Parrot/Revision.pm	656	929	
==>n_entries or die $!;
        while (<$FH>) {
            /^ *committed-rev=.(\d+)./ or next;
            return $1;
        }
    }
    return 0;
}

our $current = __get_revision();
our $config = $current;

# check if Parrot::Config is available
eval 'use Parrot::Config; $c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43090	43379	
==>",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pushmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43733	44022	
==>",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pushmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9281	9396	
==>arsing

#DBG>			$debug & 0x10
#DBG>		and	do {
#DBG>			print STDERR "**Entering Error recovery.\n";
#DBG>			++$d <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8865	8975	
==>arsing

#DBG>			$debug & 0x10
#DBG>		and	do {
#DBG>			print STDERR "**Entering Error recovery.\n";
#DBG>			++$d <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	706	832	
==>Section::PMCs;
use Parrot::Docs::Section::DynaPMCs;
use Parrot::Docs::Section::C;
use Parrot::Docs::Section::Ops;
use Parrot::D <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	2574	2720	
==>$suffix = $block_types{'while'}{uc $kind};

  my $label = "${prefix}_${suffix}";

  if (!defined $cond) {
    $compiler->emit("  goto $label");
  } <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2302	2403	
==>ot/include' . $PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/src/pmc' . $PATHQU <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	2097	2198	
==>ot/include' . $PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/src/pmc' . $PATHQU <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	53316	53479	
==>'\\\\',
  '$' => '\\$',
  '@' => '\\@',
  '%' => '\\%',
  '#' => '\\#',
);

sub pretty { # adopted from Class::Classless
  # Not the most brilliant routine, but pas <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	18139	18293	
==>re in gen_errata and stuff.

    DEBUG and print "Applying precooked treelet hack to $_[0][0]\n";
    $treelet = $_[0][0];
    splice @$treelet, 0, 2;  # l <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2565	2684	
==>p->full_name]}"
        unless exists $arg_maps{$type};

    return sprintf($arg_maps{$type}, $num);
}

=item C<restart_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4431	4535	
==>p->full_name]}"
        unless exists $arg_maps{$type};

    return sprintf($arg_maps{$type}, $num);
}

= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147958	148227	
==>ction",
                  "CODE" => 180,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 98 \"src/ops/cmp.ops\"\n  i <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2679	2782	
==>ranch test, all OK in sequence
PRINT "1 in module-level code"
GOSUB Sub1
PRINT "ERR this line in main ro <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16646	16749	
==>ranch test, all OK in sequence
PRINT "1 in module-level code"
GOSUB Sub1
PRINT "ERR this line in main ro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	425651	426148	
==>ix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 489,
                  "ARGS" => [
                              "ic",
                              "p",
                              "i"
                            ],
                  "BODY" => "#lin <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	268	362	
==>ESCRIPTION

A documentation section describing Perl modules in Parrot.

=head2 Class Methods

= <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	3038	3247	
==>0: Could not read ops file '$file'!\n" unless defined $ops;

#
# Copy the ops from the remaining .ops files to the object just created.
#

my %seen;

for $file (@ARGV) {
    if ($seen{$file}) {
	print STDERR "$ <==
2	/Users/nnunley/parrot/lib/File/Which.pm	4618	4743	
==>ronment variable, it parses the list and uses it as the different extensions.

=head2 Windows 9x and other ancient Win/DOS/OS2 <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22848	22965	
==><<Didn\'t match directive>>},
						Parse::RecDescent::_tracefirst($text))
							if defined $::RD_TRACE;
		}
		') . ( <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	8783	8891	
==>ed) = (0, "", "", "", "",
						   $thisrule);
	$Parse::RecDescent::lastunexpected = $_[1];
	'. ($parser->{_c <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	15201	15363	
==>CTIONS => {
			"^" => 9,
			"(" => 10,
			'CHAR' => 4,
			"<" => 3,
			"[" => 14,
			'CODE' => 6,
			"." => 15
		},
		GOTOS => {
			'expr' => 11,
			'charclass' => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953164	953437	
==>1072,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 540 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(int <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6252	6409	
==>\%pmc_group, \%pmc_libs);
}

sub modtime {
    my $ago = (-M shift);

    if (defined $ago) {
        return $NOW - $ago;
    } else {
        return;
    }
} <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6463	6620	
==>\%pmc_group, \%pmc_libs);
}

sub modtime {
    my $ago = (-M shift);

    if (defined $ago) {
        return $NOW - $ago;
    } else {
        return;
    }
} <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	30557	30719	
==>ode,1));
  if ($temp =~ /^P/) {
  }

  return $return;
}

sub _op_apply {
  my ($self, $node) = @_;
  my $return;

  my $func = $self->_generate(_get_arg ($node, 1 <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11315	11405	
==>T0} = concat ${STEMP0}
pre_call_NO_RETURN_${CURIC}:

# Finished.
goto PRE_CALL_END_${CURIC} <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8501	8591	
==>T0} = concat ${STEMP0}
pre_call_NO_RETURN_${CURIC}:

# Finished.
goto PRE_CALL_END_${CURIC} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365246	365367	
==>io.ops\"\n  if ({{\@2}} && {{\@1}}) {\n    PIO_putps(interpreter, {{\@1}}, {{\@2}});\n  }\n  else {\n    /* Handle error h <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366086	366207	
==>io.ops\"\n  if ({{\@2}} && {{\@1}}) {\n    PIO_putps(interpreter, {{\@1}}, {{\@2}});\n  }\n  else {\n    /* Handle error h <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21037	21181	
==>parser, $expr1, $op, $expr2 ) = @_;
    my %type = (
        '+'  => 'number',
        '-'  => 'number',
        '*'  => 'number',
        ' <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	9555	9752	
==>ll our static functions that call in various ways. Yes, terribly
   hackish, but that is just fine */

HEAD
}

sub make_arg {
    #
    # we have to fetch all to temps, so that the call code
    # c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673527	674014	
==>=> 754,
                  "ARGS" => [
                              "n",
                              "p"
                            ],
                  "BODY" => "#line 444 \"src/ops/pmc.ops\"\n    {{\@1}} = {{\@2}}->vtable->pop_float(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	243	357	
==>Z coke  $
#

use strict;
eval "use warnings 'all';";

package Jako::Symbol;

use Carp;


#
# CONSTRUCTOR:
#

sub ne <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	6951	7121	
==>$n, $c, $cmt) = @_;
    print <<EOC;
	# $c($n) $cmt
EOC
}

my (@stack, $temp, $make_f, %pir_functions);

sub gen_code {
    $cur_func = 'test::main';
    print <<EOC;
.sub <==
2	/Users/nnunley/parrot/config/init/hints/msys.pm	36	169	
==>ation.
# $Id: /parrot/config/init/hints/msys.pm 19593 2006-05-30T02:28:15.110975Z coke  $

package init::hints::msys;

use strict;

su <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	34122	34272	
==>lts);

        if( $self->{Curr_Test} < $self->{Expected_Tests} ) {
            my $s = $self->{Expected_Tests} == 1 ? '' : 's';
            $self->dia <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649901	650193	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "valid_type",
                  "FLAG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650822	651114	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "valid_type",
                  "FLAG <==
2	/Users/nnunley/parrot/config/auto/m4.pm	180	277	
==>ad1 DESCRIPTION

Determines whether GNU m4 exists on the system. It is OK when it doesn't exist.
C <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28734	28841	
==>the method C<$method>.

=cut

sub implements
{
    my ($self, $meth) = @_;

    return 0 unless exists $self <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	9406	9539	
==>l ?
				"global_$symbol" : "local_$symbol";
			} else {
			    $show .= $global ?
				$symbol : lc $symbol;
			}
		    }
		    print $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2786	2939	
==>to switch_label";
}

my %arg_maps = (
    'i'  => "IREG(%ld)",
    'n'  => "NREG(%ld)",
    'p'  => "PREG(%ld)",
    's'  => "SREG(%ld)",
    'k'  => "PRE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733679	733788	
==>ps/set.ops\"\n  {{\@1}} = string_to_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734443	734552	
==>ps/set.ops\"\n  {{\@1}} = string_to_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656452	656562	
==>{{\@2}}->vtable->defined_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657376	657486	
==>{{\@2}}->vtable->defined_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	1405	1499	
==>et', 'dotnet.html', '', 'languages/dotnet'),
        $self->new_section('HQ9plus', 'hq9plus.htm <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940739	941217	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1058,
                  "ARGS" => [
                              "p",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193348	193556	
==>,
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 320 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	12668	12981	
==>",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 17,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 231 \"s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	618268	618760	
==>ic_inline_sub__",
                  "FLAGS" => ":pic",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 699,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p"
                            ],
                  "BO <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2693	2809	
==>{
	my($self)=shift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{C <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2572	2678	
==>{
	my($self)=shift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{C <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	7328	7446	
==>' = __name__
    .local pmc None
    None = new .None
EOC
    $globals{'__name__'} = '__name__';
    $code_l = 0;
    m <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6095	6247	
==>allMethOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  ";
        if ( exists $op->{res <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048248	1048347	
==>ext;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null global.\");\n\n    next = {{^+3 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049172	1049271	
==>ext;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null global.\");\n\n    next = {{^+3 <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16455	16561	
==>All rights reserved.

This program is free software; you can redistribute it and/or modify it
under the sam <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1669	1775	
==>All rights reserved.

This program is free software; you can redistribute it and/or modify it
under the sam <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18055	18191	
==>"ic"
                            ],
                  "BODY" => "#line 307 \"src/ops/core.ops\"\n  if (string_bool(interpreter, {{\@1}})) <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7090	7188	
==>s1$, "")
print "Start (11): ", instr(6, s1$, " ")
print "Inval  (0): ", instr(4, bogus$, "t")
' ins <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18819	18917	
==>s1$, "")
print "Start (11): ", instr(6, s1$, " ")
print "Inval  (0): ", instr(4, bogus$, "t")
' ins <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	2997	3168	
==>die Dumper($tree) unless $literal =~ s/^\"//;
    die Dumper($tree) unless $literal =~ s/\"$//;

    return op('seq' => [ map { op('match' => [ ord($_) ]) } split(//, $lite <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	379	481	
==>$key2 => $value2);
    $data->add($delimiter, $key1 => $value1, $key2 => $value2);
    my @keys = $data <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197996	198302	
==>",
                  "CODE" => 234,
                  "ARGS" => [
                              "ic",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 366 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824454	824557	
==>");\n  if (entry->entry_type != STACK_ENTRY_STRING) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825525	825628	
==>");\n  if (entry->entry_type != STACK_ENTRY_STRING) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wr <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11695	11812	
==>coverage lines.
    do_filter(sub { /^call/ } );

    print OUT "</pre>";
    print OUT page_footer();

    close(OUT) <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	587	842	
==><PARROT_CGP_CORE>.

=cut

sub core_type
{
    return 'PARROT_CGP_CORE';
}

=item C<suffix()>

The suffix is C<'_cgp'>.

=cut

sub suffix
{
    return "_cgp";
}

=item C<core_prefix()>

The core prefix is C<'cgp_'>.

=cut

sub core_prefix
{
    return "cgp_ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19558	19707	
==>"
{ return op('classpieces' => [ $_[1] ]); }
	],
	[#Rule 13
		 'expr', 2,
sub
#line 117 "lib/Regex/Grammar.y"
{ return op('multi_match' => [ 0, -1, TR <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	26827	26946	
==>k = $back;
    }

    return ($fallback, @ops);
}

sub rewrite_external {
    my ($self, $op, $extname, $extargs, $lastb <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819684	819777	
==>eption(99, \"Stack Depth wrong\");\n  }\n  {{\@1}} = get_entry_type(interpreter, entry);\n  {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820644	820737	
==>eption(99, \"Stack Depth wrong\");\n  }\n  {{\@1}} = get_entry_type(interpreter, entry);\n  {{ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	16938	17101	
==>);
        }
        else {
            $self->_cmp_diag($got, $type, $expect);
        }
    }
    return $ok;
}

sub _cmp_diag {
    my($self, $got, $type, $expec <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	1039	1136	
==>ub pre_branch {
	die "pre_branch not implemented for current stack to register mapper\n";
}
sub po <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	924	1033	
==>ck->push_content($self);

  return $self;
}

sub left  { return shift->{LEFT};  }
sub right { return shift->{R <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	932	1041	
==>ck->push_content($self);

  return $self;
}

sub left  { return shift->{LEFT};  }
sub right { return shift->{R <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	67598	67707	
==>hrule and $rule and $rule->addcall($name);
			}
		}
		elsif ($grammar =~ m/$LONECOLON/gco   )
		{
			_error("U <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9862	9963	
==>my $op    = $self->require_infix_rel->text;
      my $right = Jako::Construct::Expression::Value->new( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25398	25499	
==>my $op    = $self->require_infix_rel->text;
      my $right = Jako::Construct::Expression::Value->new( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6260	6387	
==>1] = undef; # delete group $n!;
}

sub output_atend {
    my ($self, $failLabel) = @_;
    my $fail = $self->output_label_use($f <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	6024	6204	
==>plicate value for push in rule $rule->{'name'}\n";
                } else {
                    $has_push = 1;
                }
            } else {
                die "Invalid va <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29617	29728	
==>e output file we are
generating.

=cut

sub body
{
    my ($self, $method, $line, $out_name) = @_;

    my $meth <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30259	30370	
==>e output file we are
generating.

=cut

sub body
{
    my ($self, $method, $line, $out_name) = @_;

    my $meth <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34143	34265	
==>will be out by one - NWC
    my $l = $self->line_directive($line, "sharedref.c");
    return <<EOC;
$l
$decl {
    $ret_def <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	1509	1683	
==>Directory.pm'),
		    $self->new_item('Documentation Sections', 'lib/Parrot/Docs/Section')
		),
		$self->new_group('Configuration', '',
			$self->new_item('', 'lib/Parrot/Buil <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	672	879	
==>fix : $compiler->block_label($kind);
    $self->prefix($prefix);
  }

  my $namespace = $prefix;

  if ($kind eq 'while' or $kind eq 'until') {
    my $test = ($kind eq 'while') ? 'unless' : 'if';

    $compi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736427	736684	
==>],
                  "TYPE" => "inline",
                  "CODE" => 827,
                  "ARGS" => [
                              "n",
                              "i"
                            ],
                  "BODY" => "#line 144 \"src/ops/set.o <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18622	18731	
==>ose_paren) {
        while (1) {
          push @args, Jako::Construct::Expression::Value->new($block, $self-> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19648	19757	
==>ose_paren) {
        while (1) {
          push @args, Jako::Construct::Expression::Value->new($block, $self-> <==
2	/Users/nnunley/parrot/config/init/defaults.pm	7192	7398	
==>s in the hints files e.g. cc_profile
    # FIXME move profiling to it's own step
    if ($conf->options->get('profile')) {
        $conf->data->set(
            cc_debug => " -pg ",
            ld_debug => " <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	26792	26963	
==>ctive_here($cout, $out_name)
	. $self->includes;
    my $l = count_newlines($cout);
    $cout .= $self->methods($l, $out_name);
    $cout .= $self->init_func;
    if ($self <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	17040	17259	
==>mpted
.end
END_POSTAMBLE
    }
}

# Substitute all macros
foreach my $macro (keys %macros) {
    $template =~ s/%% \s+ $macro \s+ %%/$macros{$macro}/gx;
}

print $template;

# Given a code snippet, convert it to somethin <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1066	1234	
==>d( 
            "$PConfig{perl} languages/scheme/schemec languages/$lang_f",
            CD => '..', # $self->{relpath}, 
            STDOUT => $pasm_f, STDERR => $pasm_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560145	560541	
==>IRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 641,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 152 \"src/ops/object.ops\"\n  opcode_t * <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	13601	13720	
==>ded here?
    op2.'set_shape'(op1)
    .return (op2)
.end

.sub unicode:"dyadic:\u2374" :multi (APLVector,Float) # resha <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1521	1619	
==>d type!")
    unless defined $type;

  $self->INTERNAL_ERROR("Type is not a Jako::Construct::Type i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1369	1467	
==>d type!")
    unless defined $type;

  $self->INTERNAL_ERROR("Type is not a Jako::Construct::Type i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710753	710848	
==>interpreter, io, \" \");\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  PIO_softspa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711587	711682	
==>interpreter, io, \" \");\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  PIO_softspa <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	17512	17869	
==>_parrot,
                                        STDOUT => $out_f,
                                        STDERR => $out_f);

            my $meth = $pir_2_pasm_test_map{$func};
            my $real_output = slurp_file($out_f);
            {
                # The parrot open '--outfile=file.pasm' seems to create unnecessary whitespace
                $rea <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21939	22044	
==>b issubrule { undef }
sub isterminal { 0 }
sub describe { $_[1] ? '' : $_[0]->{name} } 

sub new ($$$$$)
{ <==
2	/Users/nnunley/parrot/config/inter/types.pm	907	1164	
==>al);
        $floatval = prompt("And your floats?",                                $floatval);
        $opcode   = prompt("What's your native opcode type?",                 $opcode);
        print "\n";
    }

    $conf->data->set(
        iv       => $intva <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	7919	8060	
==>S

The original MD5 interface was written by Neil Winton
(C<N.Winton@axion.bt.co.uk>).

C<Digest::MD5> was made by Gisle Aas <gisle@aas.no> (I <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11931	12043	
==>(",", map {$_->[0]} (reverse @args));
			$pir_args = ",$pir_args" if $pir_args;
			$extern=$sym;
			$optype=optyp <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	12341	12453	
==>(",", map {$_->[0]} (reverse @args));
			$pir_args = ",$pir_args" if $pir_args;
			$extern=$sym;
			$optype=optyp <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	24155	24501	
==>r->diag("'$cmd' failed with exit code $exit_code")
                if $exit_code;

            if (! -e $obj_f) {
                $builder->diag("Failed to build '$obj_f': " .
                    slurp_file($build_f));
                unlink $build_f;
                $builder->ok(0,$desc);
                return 0;
            }

        my $cfg <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	990	1087	
==>ith the tagname of "head1", token(s) for its
content, and then an end-token with the tagname of "h <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1418	1515	
==>ith the tagname of "head1", token(s) for its
content, and then an end-token with the tagname of "h <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838559	838730	
==>ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 246 \"src/ops/stack.ops\"\n  (void)stack_pop(interpreter, &CO <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1444	1584	
==>ion::Docs->new,
        Parrot::Docs::Section::Examples->new,
        Parrot::Docs::Section::PMCs->new,
        Parrot::Docs::Section::DynaPM <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	8865	8982	
==>erload(\$name);

    $self->diag(<<ERR) if defined $name and $name =~ /^[\d\s]+$/;
    You named your test '$name'.  Y <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	12922	13059	
==>0 goto neg_loop

pos_loop:
    if op1 == 0 goto done
    $P1 = shift op2 # ignore p1, we're discarding it
    dec op1
    goto pos_loop

n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093663	1093914	
==>orph(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094466	1094717	
==>orph(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11087	11189	
==>ect
t=1
if t then
	print "Correct"
else 
	print "Wrong"
end if

' Factorial of 5 is 120
function factor <==
2	/Users/nnunley/parrot/config/inter/make.pm	2242	2360	
==>$conf->data->get('gmake_version')) {
        $conf->data->set(make_c => "$prog -C");
    } else {

        # get the de <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	373226	373550	
==>O_peek(interpreter, {{\@2}}, s);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAG <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	2446	2615	
==>|| die "Can't read $file: $!\n";
    {
        local $/=undef;
        my $contents = <F>;
    
	foreach (keys %$typedefs) {
            delete $typedefs->{$_} unless ($c <==
2	/Users/nnunley/parrot/config/auto/headers.pm	2081	2196	
==>y $use_headers ([$header], [@found_headers, $header]) {
            $conf->data->set(testheaders => join('', map { " <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	8113	8216	
==>ym();
  my $temp;

  $return = $self->_save_1 ('P');

  $self->_add_inst ('', 'newsub',[$return,'.Closur <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	2454	2588	
==>rfunc($_[0]) or isarray($_[0]));
}

sub iskeyword { 
	return 1 if (grep /^\Q$_[0]\E$/i, @keywords);
	return 0;
}
sub precedence {
	my ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688168	688409	
==>e->delprop(interpreter, {{\@1}}, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688940	689181	
==>e->delprop(interpreter, {{\@1}}, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658975	659243	
==>" => [
                              "i",
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 329 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_ke <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	707	885	
==>PARROT_CGOTO_CORE>.

=cut

sub core_type
{
    return 'PARROT_CGOTO_CORE';
}

=item C<defines()>

Returns the C C<#define> macros required by the ops.

=cut

sub defines
{
    ret <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	4	112	
==>Conditional.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subje <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	47227	47413	
==>t, including any quotes),

=item [5]

"This is the message.\n" (i.e. the text of the here document),

=item [6]

"EOMSG" (i.e. the right delimiter of the here document),

=item [7..10]

" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	122	234	
==>license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Label.pm 19606 2006-05-30 <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	2180	2301	
==>nged for the test
        $conf->data->set('libs',      $libs);
        $conf->data->set('ccflags',   $ccflags);
        $ <==
2	/Users/nnunley/parrot/config/auto/readline.pm	1980	2101	
==>nged for the test
        $conf->data->set('libs',      $libs);
        $conf->data->set('ccflags',   $ccflags);
        $ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	220	352	
==>NOPSIS

    use Parrot::Docs::Section::Tools;

=head1 DESCRIPTION

A documentation section describing Parrot tools.

=head2 Class Met <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64479	64688	
==>[
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 981 \"src/ops/core.ops\"\n  Interp * const new_interp = (Interp *)PMC_dat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116980	117210	
==>",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 209 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} << {{\@3}};\n  {{+=4}};\n",
                  " <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	5169	5298	
==>type = $R->{name};
    if ($type eq 'match') {
	return $R->{args}[0] == $S->{args}[0];
    } elsif ($type eq 'classmatch') {
	retu <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	10976	11176	
==>])}, "",
					  q{' . $self->{"name"} .'});
		Parse::RecDescent::_trace(q{(consumed: [} .
					  Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])}, 
					  Parse::RecDescent::_tracef <==
2	/Users/nnunley/parrot/config/init/hints/irix.pm	604	718	
==>hread';
    }
    $conf->data->set(libs => $libs);

    my $cc   = $conf->data->get('cc');
    my $cxx  = $conf->da <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	35552	35649	
==>t_branch = $srm->post_branch($rule->{'pop'});
		$pir .= "### post_branch\n";
		$pir .= sub_meta($p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	3963	4137	
==>oken = $self->get;

  $self->file($token->file);
  $self->line($token->line);

  return $token;
}


#
# back()
#
# Moves the current token position $offset tokens backward. Re <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	716	835	
==>------------------------------------------------------------
# Set up some constants:

BEGIN {
  if(defined &ASCII)    { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911794	912046	
==>027,
                  "ARGS" => [
                              "i",
                              "sc",
                              "sc"
                            ],
                  "BODY" => "#line 284 \"src/ops/string.ops\"\n    {{\@1}} = stri <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1120	1256	
==>->new($x); # recurse
    } elsif(ref($x || '') eq 'HASH') {
      $x = { %$x };
    }
     # otherwise leave it.
  }

  return bless $new <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956302	956660	
==>RS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1076,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 5 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7020	7145	
==>);
    }
    push @ops, $self->pushop . " <rx_stack>, -1 # pushmark";
    return @ops;
}

sub output_pushindex {
    my ($self <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	18602	18726	
==>shift;

    my $cout = "";
    return "" if exists $self->{flags}{noinit};

    # TODO gen C line comment
    my $classname = <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4943	5081	
==>s);
    bless $self, $class;
    $self->init($class);
    $self;
}

=back

=head2 Instance Methods

=over

=item C<line_directive($self,$li <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	369	539	
==>uct::Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  return bless {
    TOKEN    => $token,
    CODE     => 'N',
    NAME     => 'num',
    IMCC     => 'num' <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	360	557	
==>uct::Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  return bless {
    TOKEN    => $token,
    CODE     => 'P',
    NAME     => 'pmc',
    IMCC     => 'pmc',
    IMCC_PMC => 'PMC'
  } <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1068	1226	
==>turn $code if $options{'no-list-optimize'};

    $ctx->{external_labels}{$pass_label} = 1;
    $ctx->{external_labels}{$fail_label} = 1;

    my $opt2 = Regex: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	466552	467044	
==>GDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 535,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 353 \"src/ops/math.ops\"\n  {{\@1}}->vtable->decrement(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	865089	865400	
==>1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pin",
                  "FLAGS" => ":base <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	396	535	
==>e       => 'like',
    output_isnt       => 'isnt_eq'
                        );

foreach my $func ( keys %language_test_map ) {

  *{"Parro <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	4	103	
==>Label.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is su <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	3891	4061	
==>on;
            
            next unless $short_desc;
            
            next if grep {$_ eq $short_desc} @short_desc;
            
            push @short_desc, $sh <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852840	853128	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853621	853909	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "i <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	22416	22625	
==>e $cl->[1]
	$i = isa $ob, $s
	$b = new Boolean
	$b = $i
EOC
    push @stack, [-1, $b, 'P'];
}

sub OPC_ord
{
    my ($n, $c, $cmt) = @_;
    my $i = temp('I');
    my $p = pop @stack;
    pop @stack;	# function <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3278	3422	
==>->u.string",
    'kc' => "CONST(%ld)->u.key",
    'kic' => "cur_opcode[%ld]"
);

=item C<access_arg($type, $num, $op)>

Returns the C code for th <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2187	2294	
==>->u.string",
  'kc'  => "CONST(%ld)->u.key",
  'kic' => "cur_opcode[%ld]"
);

=item C<access_arg($type, $val <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	2483	2633	
==>IN, '<', $file or die "Can't open file $file: $!";
    while ( my $line = <IN>) {
        if ($line =~ m/^#define/) {
            $line =~ s/PREV_OP\s( <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	22015	22193	
==>>[2]'
	P4= P6["storage"]
	P5= P4["$_->[0]"]
	$val{$_->[2]}= P5["value"]
	P2["value"]= $val{$_->[2]}
	#print "-> Copied value for "
	#print $val{$_->[2]}
	#print "\\n"
	P3["$_->[0] <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5742	5857	
==>$trigger) = @_;

    return
        unless defined $self->{triggers}{$key}
        and defined $self->{triggers}{$ke <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6312	6427	
==>$trigger) = @_;

    return
        unless defined $self->{triggers}{$key}
        and defined $self->{triggers}{$ke <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2714	2810	
==>T "1 in module-level code"
GOSUB Sub1
PRINT "ERR this line in main routine should be skipped"
Lab <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16681	16777	
==>T "1 in module-level code"
GOSUB Sub1
PRINT "ERR this line in main routine should be skipped"
Lab <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	1319	1510	
==>foreach my $key (sort keys %$self) {
    printf STDERR "%10s => %s\n", $key, $self->{$key};
  }
  print STDERR "}\n";
}


#
# PREDICATES:
#

sub is { my $self = shift; return grep { $self->kin <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	1092	1224	
==>specified with the
-conf option. You may set any command line option in the file with
the exception of the configuration file name it <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3192	3347	
==>nything on the lazy moves stack?
${ITEMP0} = elements lazy_moves
if ${ITEMP0} > 0 goto PRE_OP_${CURIC}_LAZY_MOVE_$register_num

# No lazy move available - n <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2311	2410	
==>ionally implemented in subclasses to return the C code for the run
core function declaration. C<$bas <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2762	2861	
==>ionally implemented in subclasses to return the C code for the run
core function declaration. C<$bas <==
2	/Users/nnunley/parrot/tools/dev/as2c.pl	1081	1235	
==>"} @pairs;
	    print " " x (3*(8 - $len));
	    print "    /* $src */\n";
	}
	elsif (/\.type\s+(\w+)\s*,\s*\@function/) {
	    $in_comment = 0;
	    $func <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	149	276	
==>w($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
use Carp;

$VERSION   = '0.01';
@ISA       = qw(Exporter);
@EXPORT_OK = qw(gen <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	3144	3264	
==>ach my $stmt (@output) {
	if ($stmt->{name} eq 'LABEL') {
	    $curlabel = $stmt;
	} else {
	    push @output2, { label = <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10232	10361	
==>rint STDERR "**No state left on stack: aborting.\n";

			return(undef);
		};

		#shift the error token

#DBG>			$debug & 0x <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9772	9894	
==>rint STDERR "**No state left on stack: aborting.\n";

			return(undef);
		};

		#shift the error token

#DBG>			$debug & 0x <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	1588	1866	
==>les that are not members of any
package.

The various meta flags recognized are:

=over 4

=item C<doc>

Tag this file with %doc in the RPM, and omit the leading path (because
rpm will put it into a directory of its choosing)

=item C<include>

Write this file to the location gi <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1534	1668	
==>t;
    my $str    = q{};
    my $type   = 'STRING';

    while ( $parser->YYData->{INPUT} ) {

        for ( $parser->YYData->{IN <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3049	3183	
==>t;
    my $str    = q{};
    my $type   = 'STRING';

    while ( $parser->YYData->{INPUT} ) {

        for ( $parser->YYData->{IN <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	4254	4367	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

#sub curr_open { # read-only list acces <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	617161	617285	
==>C *left, *right;\n    INTVAL lr_types;\n\n    mic = (Parrot_MIC *) cur_opcode[1];\n    left = {{\@2}};\n    right = {{\@3}};\ <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	11652	11797	
==>allow Test::More-style cmp_ok() though the following syntax:

  cmp_ok('test', &infix:<gt>, 'me', '... testing gt on two strings');

However the ` <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3303	3429	
==>catch inadvertent data modification
by callers.  For APIs that cross into the operating system and/or
external libraries, you u <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6738	6863	
==>:
PIR
	return $pir;
}

# Pre and post load operation hooks.
sub pre_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4676	4801	
==>:
PIR
	return $pir;
}

# Pre and post load operation hooks.
sub pre_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	487	657	
==>2] ||= {} }

sub attr      {
  if(@_ == 2) {      # Reading: $token->attr('attrname')
    ${$_[0][2] || return undef}{ $_[1] };
  } elsif(@_ > 2) {  # Writing: $token->att <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	496	668	
==>= 5;

  my ($block, $prefix, $left, $op, $right) = @_;

  my $self = bless {
    BLOCK     => $block,

    PREFIX    => $prefix,
    KIND      => 'until',
    LEFT      => $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	496	642	
==>= 5;

  my ($block, $prefix, $left, $op, $right) = @_;

  my $self = bless {
    BLOCK     => $block,

    PREFIX    => $prefix,
    KIND      => ' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20206	20576	
==>ck next);

    my $matchcount = $self->new_rxlocal($op, "matchcount");

    my ($R_back, @R_ops) = $self->rewrite($R, $rfail);
    my @ops = (
               aop('set', [ $matchcount, 0 ]),
               aop('goto', [ $check ]),
     $rfail => aop('unless', [ $matchcount, $lastback ]),
               aop('add', [ $matchcount, -1 ]),
               aop('goto', [ $R_bac <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	18618	18791	
==>ck next);

    my $matchcount = $self->new_rxlocal($op, "matchcount");

    my ($R_back, @R_ops) = $self->rewrite($R, $check);
    my @ops = (
               aop('set', [ $ma <==
2	/Users/nnunley/parrot/config/auto/byteorder.pm	3	97	
==>opyright (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/config/auto/byteorder.pm 19593 2006 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	681	794	
==>nd return an array of
their indices.

=cut

sub label_indices {
    my ($self, $op) = @_;
    my @indices;
    for <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726369	726750	
==>se_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 814,
                  "ARGS" => [
                              "s",
                              "sc"
                            ],
                  "BODY" => " <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	32888	33027	
==>eleting the first
quote-like pattern. For instance, if C<$text> contained the string:

	"if ('./cmd' =~ m/$UNIXCMD/s) { $cmd = $1; }"
	
then <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9232	9377	
==>lled
            or  next;       # so continue parsing

#DBG>			$debug & 0x10
#DBG>		and	do {
#DBG>			print STDERR "**Entering Error recovery <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8817	8957	
==>lled
            or  next;       # so continue parsing

#DBG>			$debug & 0x10
#DBG>		and	do {
#DBG>			print STDERR "**Entering Error recovery <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911821	912054	
==>S" => [
                              "i",
                              "sc",
                              "sc"
                            ],
                  "BODY" => "#line 284 \"src/ops/string.ops\"\n    {{\@1}} = string_str_i <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20751	20846	
==>r(2..$#{$node->{children}}) {
    my $temp_1 = $self->_generate($node->{children}[$1]);
    $sel <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	2194	2300	
==>s one per line, and
is relative to the languages dir.

If called with no args, run the suite.

=cut

    if <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4106	4212	
==>her_groups_and_libs(@pmcs);

    # Convert lib-GROUP.so + A.so + B.so ... -> GROUP.so
    while (my ($group <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4210	4316	
==>her_groups_and_libs(@pmcs);

    # Convert lib-GROUP.so + A.so + B.so ... -> GROUP.so
    while (my ($group <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	4671	4889	
==>, $line, 'new', 'pmc', $1);
      $text = $2;
      next;
    }

    
    #
    # (Infix) Ops:
    #

    if ($text =~ m{^( \|= | &= | <<= | >>= )(.*)$}x) {
      push @tokens, Jako::Token->new(
        $file, $line, 'b <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37715	37852	
==>..." => 39,
			"(" => 40,
			"#" => 41
		},
		DEFAULT => -106,
		GOTOS => {
			'exp' => 90,
			'functioncall' => 31,
			'function' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324674	324760	
==>"#line 144 \"src/ops/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325467	325553	
==>"#line 144 \"src/ops/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, { <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	17160	17338	
==>ew( name     => 'Socks',
                        kittens  => ['Monica', 'Kenneth'],
                        markings => { socks=>1, blaze=>"white" },
                        breed <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	22897	23018	
==>ed with B::Deparse
    return if $^C;

    my $msg = join '', @msgs;

    local($\, $", $,) = (undef, ' ', '');
    my $fh <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10299	10417	
==>ndef);
		};

		#shift the error token

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Shift \$error token and g <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9837	9949	
==>ndef);
		};

		#shift the error token

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Shift \$error token and g <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11219	11354	
==>*factorial(a-1) else factorial=1
end function
T=factorial(5)
print T!

' Correct and factorial of 4 is 24
function factorial(a)
	if a th <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	119803	120373	
==>"shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 149,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 231 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} >> {{\@3}};\n  {{+=4}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118949	119493	
==>"shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 148,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 231 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	944	1051	
==>S OPTIONAL WHITESPACE
   $skip  = '\s*';		# UNIVERSAL SEPARATOR IS OPTIONAL WHITESPACE
my $MAXREP  = 100_000 <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	15073	15213	
==>lf->decl($classname, $method, 1);
            $sub_meth_decl =~ /(\w+)\(/;
            my $sub_meth_name = $1;
            my $sub_meth =  $s <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16648	16777	
==>out .= $ret;
        }
    }

    # nci methods
    foreach my $method (@{ $self->{methods}} ) {
        next unless $method->{loc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101060	101148	
==>Y" => "#line 125 \"src/ops/bit.ops\"\n  string_bitwise_not(interpreter, {{\@1}}, &{{\@1}} <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	4	103	
==>Goto.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is sub <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	479	589	
==>s used for building
dynamic PMCs.

=cut

use strict;

use File::Copy qw(copy);

# qq[] isn't guaranteed to work <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	441	551	
==>s used for building
dynamic PMCs.

=cut

use strict;

use File::Copy qw(copy);

# qq[] isn't guaranteed to work <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	299	497	
==>etopt::Std;
use Text::Balanced; # XXX temporarily limit ourselves to perl 5.8...
                    # XXX This doesn't ever seem to be used...
use Test::Harness;

$|=1;

our ($opt_u, $opt_h, $opt_c) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20919	21030	
==>t::Expression::Value::Identifier->new($block, $self->require_ident)
      }
      else {
        $constructing = <==
2	/Users/nnunley/parrot/examples/benchmarks/fib.pl	236	352	
==>erl examples/benchmarks/fib.pl n

=head1 DESCRIPTION

Calculates the Fibonacci Number for C<n> (defaults to 28 if
uns <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	2346	2475	
==>? undef: "string" );
        $arg->{default}     = $5;
        $arg->{repeating}   = $6 eq "+";

        die "Optionals need to be <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	42865	42959	
==>ors (see
L<perlop(3)>) Nested backslashed delimiters, embedded balanced bracket
delimiters (for <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	4966	5174	
==>kefiles/root.in' => 'languages/lua/Makefile',
        commentType                   => '#',
        replace_slashes               => 1,
        conditioned_lines             => 1
    );
    genfile(
        'l <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	604	707	
==>raph), and
# to call the proper callbacks on the treelets.
#
# Every node in a treelet is a ['name', {at <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	21	137	
==>od::Simple::PullParserStartToken;
use Pod::Simple::PullParserToken ();
@ISA = ('Pod::Simple::PullParserToken');
use s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	3662	3764	
==>t->is('while');         }

sub is_loop_control  { return shift->is('next', 'last', 'redo'); }
sub is_va <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2289	2473	
==>,   '/C'     =>  "</code>",
  'L'  =>  "<a href='YOU_SHOULD_NEVER_SEE_THIS'>", # ideally never used!
  '/L' =>  "</a>",
);

sub changes {
  return map {; m/^([-_:0-9a-zA-Z]+)=([-_:0-9a- <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	1090	1185	
==>object constructor.

Accepts no arguments and returns a L<Parrot::Configure::Data> object.

=cut <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	50864	50957	
==>y a different outermost delimiter bracket is useful
in some circumstances. For example, in the <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738713	739006	
==>inline",
                  "CODE" => 830,
                  "ARGS" => [
                              "n",
                              "sc"
                            ],
                  "BODY" => "#line 149 \"src/ops/set.ops\"\n  {{\@1}} = string_to_num(interpreter, {{\@2}});\n  {{+=3}};\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	11365	11518	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub parse_string_document {
  my $self = shift;
  my @lines;
  foreach my $line <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	871	973	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub parse_line { shift->pars <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	1848	2062	
==>'SymbTabVar') ) {
                        if ( exists $symbtab->{table}{$symb} ) {
                            my $defn = $symbtab->{table}{$symb};

                        #                        warn "\tfound <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	896	1090	
==>'SymbTabVar') ) {
                    if ( exists $symbtab->{table}{$symb} ) {
                        my $defn = $symbtab->{table}{$symb};
##                    warn "\tfound 2 in $symbtab\n" <==
2	/Users/nnunley/parrot/config/auto/python.pm	603	762	
==>my ($out, $err) = capture_output('python', '-V');
    my $output = join('', $out || '', $err || '');
    my ($python, $major, $minor, $revision) = $output =~ m/ <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	1853	2071	
==>to same output file
            my $exit_code = Parrot::Test::run_command( 
                                \@test_prog, 
                                CD     => $self->{relpath}, 
                                STDO <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2401	2556	
==>to same output file
        my $exit_code = Parrot::Test::run_command(
            \@test_prog,
            CD     => $self->{relpath},
            STDO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117863	118114	
==>],
                  "BODY" => "#line 226 \"src/ops/bit.ops\"\n  {{\@1}} >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118602	118853	
==>],
                  "BODY" => "#line 226 \"src/ops/bit.ops\"\n  {{\@1}} >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037252	1037516	
==>"NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038032	1038296	
==>"NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10900	10993	
==>der() } @{ $op->{args} });
}

sub Regex::Ops::Tree::alternate::needparen { 1 }
sub Regex::Ops: <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	2340	2478	
==>convert_rx_beg {
    my ($self, $tree, $ctx) = @_;
    return $self->convert($tree, $ctx);
}

sub convert_rx_end {
    my ($self, $tree, $c <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	2107	2240	
==>ler->emit("  concat $temp, \"$1\"")
        if defined $1 and $1 ne '';

      my $ident = $2;
      $ident =~ s/^{(.*)}$/$1/; # Strip <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	39408	39530	
==>$link_text and @ell_content
         and grep !ref($_) && m/ /s, @ell_content
      ) {
        $section_name = [splice @el <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8335	8436	
==>int "I am the very model of a modern";tab$(15);"More"
print "Hello","Again",d
dim c$(1)
for i = 1 to 2 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21199	21300	
==>int "I am the very model of a modern";tab$(15);"More"
print "Hello","Again",d
dim c$(1)
for i = 1 to 2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350997	351185	
==>(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351659	351847	
==>(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	51623	51800	
==>, $_[1] ),
            ];
        }
	],
	[#Rule 45
		 'var', 1,
sub
#line 276 "Lua\lua51.yp"
{
            [ $_[1] ];
        }
	],
	[#Rule 46
		 'var', 4,
sub
#li <==
2	/Users/nnunley/parrot/config/auto/memalign.pm	1643	1795	
==>->data->set(malloc_header => undef);

    my $f =
          $test2 ? 'posix_memalign'
        : $test  ? 'memalign'
        : '';
    $conf->data->set(me <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4866	4969	
==>ITEMP0}
${PTEMP0} = ${STYPES}[${ITEMP0}]

# We'll use register $[INSP]0.
${STACK0} = "$"
${STEMP1} = ${P <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9636	9741	
==>c8a,/* 32 */
HH,$a,$b,$c,$d,$_[9],4,0xfffa3942,/* 33 */
HH,$d,$a,$b,$c,$_[12],11,0x8771f681,/* 34 */
HH,$c <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	13490	13616	
==>eration (function calls, switch statements, gotos
        # with labels, etc.).
        #
        # TODO: Complain about using, <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	3956	4047	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub version_repor <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2036	2169	
==>emit("  goto _LABEL_$name");
  } else {
    $left  = $left->compile($compiler);
    $right = $right->compile($compiler);

    if ($con <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	896	1015	
==>ew CGI;

#sub handle_request {
	#my ($self, $CGI) = @_;

	if ($CGI->url(-path => 1) =~ /html$/) {
	    print $CGI->heade <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7919	8050	
==>agraph_buffer();
           # by now it's safe to consider the previous paragraph as done.
          DEBUG > 1 and print "Starting v <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	62113	62217	
==>ter quotelike "%s">

C<extract_quotelike> or C<extract_codeblock> found one of the
quotelike operators C< <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	11782	11925	
==>rpreter,
        \s*
        {{\@(\d)}},\s*{{\@(\d)}}
        \);
        \s+{{\+=\d}}/xm) {
            $jit_func = "Parrot_jit_vtable_$1r$2$4$ <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	11335	11476	
==>rpreter,
        \s*
        {{\@(\d)}},\s*{{\@(\d)}}
        \);
        \s+{{\+=\d}}/xm) {
            $jit_func = "Parrot_jit_vtable_$1$3$4 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	1277	1426	
==>(
        $file, $line, 'literal', 'N', $1);
      $text = $2;
      next;
    }

    #
    # Integer literals:
    #

    if ($text =~ m{^( 0 | (-?[1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563341	563647	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "addmethod",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564238	564544	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "addmethod",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ] <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	2715	2853	
==>od.

Accepts a list and returns a L<Parrot::Configure> object.

=cut

sub add_step
{
    my ($self, $step, @params) = @_;

    push @{$self <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15535	15634	
==>}, -, control chars, and 7f-ff.
    $x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16714	16813	
==>}, -, control chars, and 7f-ff.
    $x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	745	873	
==>ss ref $self;

  $source = *STDIN{IO} unless defined $source;
  $self->set_source($source);
  $self->output_fh(*STDOUT{IO});

  $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478922	479156	
==>t    \"Divide by zero\");\n  {{\@1}} = floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479814	480048	
==>t    \"Divide by zero\");\n  {{\@1}} = floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800354	800673	
==>,
                  "TYPE" => "inline",
                  "CODE" => 903,
                  "ARGS" => [
                              "p",
                              "k",
                              "s"
                            ],
                  "BODY" => "#line 467 \"src/ops/set.ops\"\n    {{\@1}}->vtable->s <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	15269	15396	
==>ING' => 44,
			"{" => 38
		},
		DEFAULT => -57,
		GOTOS => {
			'tableconstructor' => 46,
			'args' => 43,
			'key' => 45 <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	2000	2159	
==>To deal with this there are two macros that are defined to handle
   the problem.

   PARROT_CALLIN_START(interpreter) will figure out if the stack
   anchor ne <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819697	819814	
==>Stack Depth wrong\");\n  }\n  {{\@1}} = get_entry_type(interpreter, entry);\n  {{+=3}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820657	820774	
==>Stack Depth wrong\");\n  }\n  {{\@1}} = get_entry_type(interpreter, entry);\n  {{+=3}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237221	237490	
==>PE" => "inline",
                  "CODE" => 276,
                  "ARGS" => [
                              "i",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 606 \"src/ops/cmp.o <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	37037	37274	
==>LDREN (not all underlings!)
      # And afterward, anything left in @ell_content will be the raw name
      # Like L<Foo::Bar/Object Methods>
      my $section_name;  # set to arrayref if found
      DEBUG > 3 and print "  Peering at L-co <==
2	/Users/nnunley/parrot/lib/Test/More.pm	31464	31587	
==>y $ok = 1;
    my $bigger = keys %$a1 > keys %$a2 ? $a1 : $a2;
    foreach my $k (keys %$bigger) {
        my $e1 = exists $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	490	609	
==>ST => 'LAST' },
  'if'       => { PREFIX => "_I", NEXT => 'TEST', REDO => 'THEN', LAST => 'ELSE' },
  'sub'      => { PR <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	511	630	
==>ST => 'LAST' },
  'if'       => { PREFIX => "_I", NEXT => 'TEST', REDO => 'THEN', LAST => 'ELSE' },
  'sub'      => { PR <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1267	1361	
==>n->tagname(...)

=item $token->is_tag(I<somestring>) or $token->is_tagname(I<somestring>)

Thes <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1697	1791	
==>n->tagname(...)

=item $token->is_tag(I<somestring>) or $token->is_tagname(I<somestring>)

Thes <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	3321	3523	
==>directory.

=cut

sub file_and_directory_names()
{
    my $self = shift;
    my $dh = DirHandle->new($self->path) or 
        die "can't opendir $self->{PATH}: $!";
    
    return sort grep {$_ ne '.' a <==
2	/Users/nnunley/parrot/languages/regex/test.pl	754	998	
==>files are Perl5 source files which must contain a __END__ section.
  Right after the __END__ there must be a single regular expression.
  Next there should be any number of pairs of INPUT and OUTPUT
  sections, where an INPUT: section begins wit <==
2	/Users/nnunley/parrot/config/init/defaults.pm	6883	7092	
==>> $prefix,
        exec_prefix => $prefix,
        bin_dir     => $prefix . "/bin",
        lib_dir     => $prefix . "/lib",
        include_dir => $prefix . "/include",
        doc_dir     => $prefix . "/share <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	3225	3456	
==>c_linking' => 1,
             'has_gdbm' => 0,
             'has_gnu_bc' => 0,
             'has_gnu_m4' => 1,
             'has_icu' => 1,
             'has_perldoc' => 1,
             'has_python' => 1,
             'has_python_2_ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	33807	34023	
==>ed_Tests}-1 ) {
            $test_results->[$idx] = $empty_result
              unless defined $test_results->[$idx];
        }

        my $num_failed = grep !$_->{'ok'}, 
                              @{$test_result <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	491219	491434	
==>ne",
                  "CODE" => 563,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 539 \"src/ops/math.ops\"\n  {{\@1}}++;\n  {{+=2} <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11227	11319	
==>g_type_short"]
${DEST0} = concat ${STEMP0}
inc stack_depth
${STEMP0} = stack_depth
${DEST0} = <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8413	8505	
==>g_type_short"]
${DEST0} = concat ${STEMP0}
inc stack_depth
${STEMP0} = stack_depth
${DEST0} = <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	14925	15072	
==>$op, $cmt) = @_;
    my $r = pop @stack;
    my $l = pop @stack;
    my ($t, $n);
    {
	my $nl = promote($l);
	$n = temp($t = 'P');
	my $nr = $r->[ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	15242	15389	
==>$op, $cmt) = @_;
    my $r = pop @stack;
    my $l = pop @stack;
    my ($t, $n);
    {
	my $nl = promote($l);
	$n = temp($t = 'P');
	my $nr = $r->[ <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	640	773	
==>_15_typetable",
    "POSIX" => "Parrot_ascii_typetable",
);

my $header = <<"HEADER";
/* $fileid
 * Copyright (C) 2005, The Perl Found <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	5138	5249	
==>lso
print 5+-2
' Expect 0
print 6-abs(-6)


' Some register confusion, expect .PTFCDR
Dim c(10), a$(10), u(10)
5 <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	7265	7517	
==>Ss]$/) {
			$small  = 1;
			$uninit = 1;
		    }
		    $zeroed = 1;
		}
		if ($^O eq 'irix' && $type =~ /^[Rr]$/) {
		    $const = 1;
		    $init  = 1;
		}
		if ($^O eq 'dec_osf') {
		    if ($type eq 'E') {
			$small = 1;
		    } elsif ($type =~ /^[RrQ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2166	2247	
==>--------------------------------------------------------------------------
sub e2c <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1385	1514	
==>TDOUT => $out_f, STDERR => $out_f, 
        );
        my $prog_output = Parrot::Test::slurp_file( "$out_f" );

        @_ = ( $pr <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1301	1430	
==>TDOUT => $out_f, STDERR => $out_f, 
        );
        my $prog_output = Parrot::Test::slurp_file( "$out_f" );

        @_ = ( $pr <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	36866	37045	
==>hitespace_p,
  'char-upper-case?' => \&_op_char_upper_case_p,
  'char-lower-case?' => \&_op_char_lower_case_p,
  'char->integer'    => \&_op_char_integer,
  'integer->char'    => \ <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	5628	5756	
==>anch} }) {
      $branches{$branch}{$cat} = [
        map  {{ %$_, timestamp => $_->{timestamp}[1] }}
        sort {
          $b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	328312	328614	
==>[
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 385,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 159 \"src/ops/dotgnu.ops\"\n <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	38638	38730	
==>xample, to extract an arbitrary XML tag, but ignore "empty" elements:

	extract_tagged($text, <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	11356	11508	
==>$lineno += count_newlines($1);
        my ($flag, $type, $methodname, $parameters) = ($2,$3,$4,$5);
        my ($methodblock, $rema)                    = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1248	1419	
==>::Expression::Value');

  my $self = bless {
    BLOCK => $block,

    KIND  => $kind,
    IDENT => $ident,
    COND  => $cond,
    LEFT  => $left,
    OP    => $op,
    RI <==
2	/Users/nnunley/parrot/Configure.pl	7060	7182	
==>bc|malloc|malloc-trace) default is gc

ICU Options:

   For using a system ICU, these options can be used:

   --icu-config <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	10659	10868	
==>"$file:$line (WARNING) " . Text::Wrap::wrap("", "        ", $message) . "\n";
}


sub error {
    my ($file, $line, $message) = @_;

    print "$file:$line (ERROR) " . Text::Wrap::wrap("", "        ", $message) <==
2	/Users/nnunley/parrot/config/init/hints/cygwin.pm	111	223	
==>.110975Z coke  $

package init::hints::cygwin;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    # cyg <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	3961	4111	
==>//g;
		    $a = qq!"$a"!;   # quote argument
		    $def_arg_names{$f}{$a} = $i;
		    # print STDERR "def $f($a = $i)\n";
		}
		push @code, [$line, $pc <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	4460	4610	
==>//g;
		    $a = qq!"$a"!;   # quote argument
		    $def_arg_names{$f}{$a} = $i;
		    # print STDERR "def $f($a = $i)\n";
		}
		push @code, [$line, $pc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071192	1071781	
==>th",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1195,
                  "ARGS" => [
                              "i",
                              "i",
                              "i",
                              "i",
                              "i"
                            ],
                  "BOD <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	12714	12921	
==>);
  } else {
    {
      local *PODSOURCE;
      open(PODSOURCE, "<$source") || Carp::croak("Can't open $source: $!");
      $self->{'source_filename'} = $source;
      $source = *PODSOURCE{IO};
    }
    $s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439548	439647	
==>th.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440563	440662	
==>th.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6349	6459	
==>value         { return shift->require('ident', 'literal'); }


#
# skip()
#
# Skips the token type specified if <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305654	305892	
==>({{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307223	307461	
==>({{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	5561	5767	
==>t =~ s{ \@ (\w+) \@ }{\$conf->data->get("$1")}gx;
            eval $text;
            die $@ if $@;
            last;
        }
        if ($options{conditioned_lines}) {

            # Lines with "#CONDITIO <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1135	1260	
==>',
};


## create a map of test names and info
my $test_map = {};
for my $t ( keys %{$tests} ) {
    for my $s ( keys %$stream <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	478	590	
==>utput_fh'} ||= *STDOUT{IO};
  #$new->accept_codes('VerbatimFormatted');
  return $new;
}

#~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	5379	5630	
==>> $num_tests );

A convenient way to set up your tests.  Call this and Test::Builder
will print the appropriate headers and take the appropriate actions.

If you call plan(), don't call any of the other methods below.

=cut

sub plan {
    my($self, $c <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2144	2232	
==>ef if unknown
  }
}

#------------------------------------------------------------------- <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2609	2697	
==>ef if unknown
  }
}

#------------------------------------------------------------------- <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14927	15036	
==>car: Element not pair\n" unless $return =~ /^P/;
  $self->_add_inst ('', 'set', [$return,$return.'[0]']);

  r <==
2	/Users/nnunley/parrot/examples/benchmarks/vpm.pl	104	276	
==>her perl hacker";

for (0 .. 99999) {
    $big++;
    my @str=split(//,$string);
    my $f=shift(@str);
    push(@str,$f);
    $string=join('',@str);
}

print "$big;
$string <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	15627	15786	
==>$self->{'no_errata_section'} ) {
    DEBUG > 9 and print "Discarding erratum (at line $line) $complaint\n because no_errata_section is on.\n";
  } else {
    DE <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	1511	1767	
==>->[1] != -2) {
          $r{$k} = substr($input, $v->[0], $v->[1] - $v->[0] + 1);
        }
      } else {
        $r{$k} = reduce($v, $input);
      }
    }
    return \%r;
}
sub match {
  my ($input) = @_;
  my $m = _rule_default(1, $input, 0, []);
use Da <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	3859	3997	
==>= $n;
		for (my $i = 0; $i < $n; $i++) {
		    my ($a, $def) = split(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a = qq!"$a"!;   # quote a <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	4358	4496	
==>= $n;
		for (my $i = 0; $i < $n; $i++) {
		    my ($a, $def) = split(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a = qq!"$a"!;   # quote a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40181	40393	
==>PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41028	41240	
==>PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	6969	7303	
==>1 VERSION
                -(\w+)		#  2 DEVEL
                -r(\d+)		#  3 revision
                -([\w\-]+)	#  4 branch
               --([\w\d]+)	#  5 cpuarch
                -([\w\d]+)	#  6 osname
                -([\w\d]+)	#  7 cc
                -(\w+)		#  8 runcore
               --(\d+)		#  9 timestamp
                -(\d+) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557826	557929	
==>t = {{^+3}};\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  interpreter->current_cont = C <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559210	559313	
==>t = {{^+3}};\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  interpreter->current_cont = C <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7306	7431	
==>' ? join('|', @{$options{ignore}})
		    : defined($options{ignore})	       ? $options{ignore}
		    :					 ''
		    ;

	if (! <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24308	24433	
==>' ? join('|', @{$options{ignore}})
		    : defined($options{ignore})	       ? $options{ignore}
		    :					 ''
		    ;

	if (! <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	42368	42616	
==>.\n";
          }
        }
        
        unshift @stack, $treelet->[$i]; # recurse
        next;
      } elsif($treelet->[$i][0] ne 'E') {
        unshift @stack, $treelet->[$i]; # recurse
        next;
      }
      
      DEBUG > 1 and print " <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	210	325	
==>, $conf) = @_;

    my $libs      = $conf->data->get('libs');
    my $cflags    = $conf->data->get('ccflags');
    m <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	26926	27088	
==>rint <<"EOC";
	    ne_addr $c, None, temp_$code_l
	    $c = new $DEFVAR
temp_$code_l:
EOC
	    }
	    print <<"EOC";
	# assign $c, $tos->[1] $cmt
	set $p, $tos->[1 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3141	3288	
==>, $val1, $val2, $dest);
}

sub output_lt {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_test('lt', $val1, $val2, $dest);
}

sub outpu <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2837	2954	
==>, $val1, $val2, $dest);
}

sub output_lt {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_test('<', $val1 <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	31282	31410	
==>>'s can occur in any and all
# parts of an L<...> (i.e., in name, section, text, and url).

sub _treat_Ls {  # Process our dear d <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	12172	12327	
==>ce we do not yet have
object support. Once object support is created, we will add it here, and
maintain backwards compatibility as well.

- `eval_ok (Str $c <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	11120	11222	
==>($self, $node) = @_;

  my @clauses = _get_args($node);

  my $transnode;

  if ($clauses[-1]->{childre <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1855	2040	
==>d\\li#rtfindent##rtfkeep#\\plain\\s20\\sa180\\f1\\fs18\\lang1024\\noproof\n",
 '/VerbatimFormatted' => "\n\\par}\n",
 'Para'    => "\n{\\pard\\li#rtfindent#\\sa180\n",
 '/Para'   => "\n\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1713	1896	
==>d\\li#rtfindent##rtfkeep#\\plain\\s20\\sa180\\f1\\fs18\\lang1024\\noproof\n",
 '/Verbatim' => "\n\\par}\n",
 'VerbatimFormatted'  => "\n{\\pard\\li#rtfindent##rtfkeep#\\plain\\s20\\sa1 <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	15199	15554	
==>$sub_meth =  $sub_meth_decl;   # no "static ." ...
            $sub_meth =~ s/\(/_$right_type(/;
            $sub_meth_decl_h =~ s/\(/_$right_type(/;
            $self->{hdecls} .= <<EOH;
$sub_meth_decl_h
EOH
            $additional_bodies .= $sub_meth;
            $additional_bodies .= "{$body_part\n}";
            push @{ $self->{mmd_variants}{$meth} } <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	269	526	
==>UG = \&Pod::Simple::DEBUG unless defined &DEBUG }

__PACKAGE__->_accessorize(
  'source_fh',         # the filehandle we're reading from
  'source_scalar_ref', # the scalarref we're reading from
  'source_arrayref',   # the arrayref we're reading from
);

#@ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19329	19477	
==>AUTOACTION was defined,
					  so any production not ending in an
					  explicit action has the specified
		       			  \"auto-action\" automaticall <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33712	33853	
==>n";
              push @$para, splice @{shift @$paras},2;
            } else {
              DEBUG and print "Can't assimilate following ", $p <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35525	35666	
==>n";
              push @$para, splice @{shift @$paras},2;
            } else {
              DEBUG and print "Can't assimilate following ", $p <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	5500	5685	
==>'Omega'    , 937,
 'alpha'    , 945,
 'beta'     , 946,
 'gamma'    , 947,
 'delta'    , 948,
 'epsilon'  , 949,
 'zeta'     , 950,
 'eta'      , 951,
 'theta'    , 952,
 'iota'     , 95 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691207	691320	
==>rc/ops/pmc.ops\"\n   {{\@1}} = Parrot_thaw(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691964	692077	
==>rc/ops/pmc.ops\"\n   {{\@1}} = Parrot_thaw(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27861	27979	
==>ren}[$_]);
      $self->_add_inst('','div',[$return,$return,$temp]);
      $self->_restore($temp);
    }
  }
  return $ <==
2	/Users/nnunley/parrot/config/gen/PodText.pm	996	1107	
==>cs from Pod';

@args = qw(verbose);

sub runstep
{
    my ($self, $conf, %docs) = @_;

    my $verbose = $conf-> <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7262	7384	
==>pushint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);

    if ($self->{DEBUG}) {
        my $desc = $db_de <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6904	7026	
==>pushint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);

    if ($self->{DEBUG}) {
        my $desc = $db_de <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	17579	17795	
==>le.
# ############################
sub generate_dispatch_table($$$) {
    my $srm = shift;
    my @rules = @{shift()};
    my $mv = shift;

    # Make a copy of the original instruction code before we trash it.
    fo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665220	665343	
==>"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delete_keyed_int(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665997	666120	
==>"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delete_keyed_int(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "L <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4507	4608	
==>l_link($_, $pmc_libs->{$_}, [ $_ ] ) foreach (@ungrouped_pmcs);
} 
elsif ($mode eq 'copy') {
    # Cop <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4611	4712	
==>l_link($_, $pmc_libs->{$_}, [ $_ ] ) foreach (@ungrouped_pmcs);
} 
elsif ($mode eq 'copy') {
    # Cop <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	141	231	
==>onfig/auto/cgoto.pm - Computed C<goto>

=head1 DESCRIPTION

Determines whether the compiler <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	198	362	
==>native call routines

=head1 SYNOPSIS

    % perl tools/build/nativecall.pl src/call_list.txt

=head1 DESCRIPTION

This script creates the Native Call Interface file <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1919	2021	
==>n, passing the test if
they do not match. The same pattern argument syntax above applies here.

=cut

s <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3451	3553	
==>n, passing the test if
they do not match. The same pattern argument syntax above applies here.

=cut

s <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	1501	1594	
==>ot/Docs/Directory.pm'),
		    $self->new_item('Documentation Sections', 'lib/Parrot/Docs/Secti <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	633	786	
==>$input, $output);

         last if ! defined $_;
         die "INPUT: expected" if ! /^INPUT:/;

         # Gather input, look for OUTPUT:
         $inpu <==
2	/Users/nnunley/parrot/languages/regex/test.pl	2565	2698	
==>$input, $output);

    last if ! defined $_;
    die "INPUT: expected" if ! /^INPUT:/;

    # Gather input, look for OUTPUT:
    $inpu <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	16778	16874	
==>r an example of a formatter
that uses Pod::Simple::PullParser.

=head1 METHODS

=over

=item my $ <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	3992	4147	
==>t\n";
        }
        elsif( $type =~ /^\w+(?:::\w+)*$/ ){
            $out .= "    if (defined(\$init{'$name'})) {\n";
           $out .= "       if (ref <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5241	5341	
==>return $self->gen_goto($self->expr_pop(@_));
}

=item C<expr_offset($offset)>

Implemented in subclas <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054481	1054612	
==>n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055608	1055739	
==>n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4352	4471	
==>ink of $group failed ($?)\n";
    }

    # Link non-grouped PMCs individually
    my @ungrouped_pmcs = grep { ! exists $ <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4456	4575	
==>ink of $group failed ($?)\n";
    }

    # Link non-grouped PMCs individually
    my @ungrouped_pmcs = grep { ! exists $ <==
2	/Users/nnunley/parrot/tools/dev/pbc_header.pl	1	109	
==>! perl -w
use strict;

=head1 NAME

pbc_header.pl - PBC header info and manipulation

=head1 SYNOPSIS

  perl <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	701	810	
==>26,
	Eval => 27,
	NCI => 28,
	Float => 29,
	Integer => 30,
	BigInt => 31,
	Complex => 32,
	String => 33,
	Bool <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9409	9526	
==>e =~
          m/[\x00-\x2C\x2F\x39\x3B-\x40\x5B-\x5E\x60\x7B-\x7F]/
            # Characters under 0x80 that aren't l <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10673	10790	
==>e =~
          m/[\x00-\x2C\x2F\x39\x3B-\x40\x5B-\x5E\x60\x7B-\x7F]/
            # Characters under 0x80 that aren't l <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4653	4790	
==>== keys %$self) {
        return $self->{args}->[0];
    } else {
        return $self;
    }
}

sub minlen {
    my $op = shift;
    my $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5790	5927	
==>== keys %$self) {
        return $self->{args}->[0];
    } else {
        return $self;
    }
}

sub minlen {
    my $op = shift;
    my $ <==
2	/Users/nnunley/parrot/languages/APL/t/APL.pm	357	588	
==>APL *really* needs unicode to function, bail out if we don't have it.
  if (!$PConfig{has_icu}) {
    plan skip_all => "No unicode library available.";
    exit 0;
  }
}

# Note - we don't just use the special SKIP entry in the DATA <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	935	1118	
==>ge() and exit if $opt_h;
    checkout_tests() and convert_tests() if not -d $DIR;
    update_tests()   and convert_tests() if $opt_u;
    convert_tests() if $opt_c;
    return run_test <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2514	2613	
==>ognized type '$type' for num '$num' in opcode @{[$op->full_name]}"
        unless exists $arg_maps{$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4380	4479	
==>ognized type '$type' for num '$num' in opcode @{[$op->full_name]}"
        unless exists $arg_maps{$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133337	133632	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134117	134412	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1563	1663	
==>{'Thispara'} = '' }

sub start_Verbatim    { $_[0]{'Thispara'} = ''   }
sub start_item_bullet { $_[0] <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1093	1193	
==>{'Thispara'} = '' }

sub start_Verbatim    { $_[0]{'Thispara'} = ''   }
sub start_item_bullet { $_[0] <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4581	4686	
==>=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note that for loading debugging version of the driver,
#this f <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4351	4451	
==>=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note that for loading debugging version of the driver,
#this f <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5936	6065	
==>up}
          or next;
        ($group) = keys %$group;
        $pmc_group{$pmc} = $group;
        push @{ $group_files{$group} }, <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6147	6276	
==>up}
          or next;
        ($group) = keys %$group;
        $pmc_group{$pmc} = $group;
        push @{ $group_files{$group} }, <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	1156	1261	
==>rt_tests()
##
## Convert the tests to a usable form.
##
sub convert_tests {
    print "Converting tests\n" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	3010	3245	
==>odule');        }
sub is_next          { return shift->is('next');          }
sub is_open_brace    { return shift->is('open-brace');    }
sub is_open_bracket  { return shift->is('open-bracket');  }
sub is_open_paren    { return shift->i <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	45145	45252	
==>ng.
On failure, all of these values (except the remaining text) are C<undef>.


In a scalar context, C<extra <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1473	1570	
==>ompile($compiler);
      $compiler->outdent;
      $compiler->emit(".endnamespace ${namespace}_THE <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	29167	29334	
==>me, $capture, $lastback) = @_;

#    if ($capture) {
#        local $op->{args}->[1] = 0;
#        return $self->rewrite_group(rop('group', [ $op, $name ]), $op, $name, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1271	1394	
==>= [ $opt2->optimize($code->{code}, $ctx) ];
    return $code;
}

sub list_to_pasm {
    my ($list_regex, $ctx, %options) = @ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16	134	
==>2004-2006, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Pmc2c.pm 20340 2006-06-22T21:49:11.552283Z bernhard  $

=head <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	41951	42092	
==>moved = $_;
	  $_ = $empty;
	}
      }
      if ($moved) {
	$self->_add_inst ('', 'set',[$empty,"P$count"]);
	$empty = $moved;
      }
      $ <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	4492	4613	
==>op">
          <RegExpr attribute="String" context="#stay" String="'" />
      </context>

END

print <<END;
      <contex <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10245	10391	
==>ry with the specified relative path below the directory.

=cut

sub directory_with_relative_path
{
    my $self = shift;
    my $path = $self->path <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7406	7548	
==>d
{
    my ($command, $out, $err, $verbose) = @_;

    if ($verbose) {
        print "$command\n";
    }

    # Mostly copied from Parrot::Test <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	1607	1703	
==>ir = insert_automagicals($pir, $metavars);

# Append any custom subs that the SRM wants.
my $csub <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	52	158	
==>N = '2.02';
use Pod::Simple ();
BEGIN {@ISA = ('Pod::Simple')}

use strict;

use Carp ();

BEGIN { *DEBUG = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	51	157	
==>N = '2.02';
use Pod::Simple ();
BEGIN {@ISA = ('Pod::Simple')}

use strict;

use Carp ();

BEGIN { *DEBUG = <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8947	9125	
==>& 0x04
#DBG>		and	print STDERR "Forced Error recovery.\n";

            $$check='';

        };

        #Error
            $$errstatus
        or   do {

            $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8545	8712	
==>& 0x04
#DBG>		and	print STDERR "Forced Error recovery.\n";

            $$check='';

        };

        #Error
            $$errstatus
        or   do {

            $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10567	10798	
==>NEXT",
                  "NAME" => "bsr",
                  "FLAGS" => ":base_core,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11355	11586	
==>NEXT",
                  "NAME" => "bsr",
                  "FLAGS" => ":base_core,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "in <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2520	2660	
==>to XML

=head1 SYNOPSIS

  perl -MPod::Simple::XMLOutStream -e \
   "exit Pod::Simple::XMLOutStream->filter(shift)->any_errata_seen" \
   thi <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	4125	4254	
==>n test.c: $!";
            print TEST <<'END';
#include <stdio.h>

int main() {
    long double foo;
    printf("%u", sizeof(foo)) <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	15704	15817	
==>Y_XOR
{
    my ($n, $c, $cmt) = @_;
    binary_word('xor', $cmt);
}

sub BINARY_LSHIFT
{
    my ($n, $c, $cmt) = @ <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	10691	10782	
==>c lexinfo.pmc multisub.pmc namespace.pmc none.pmc pair.pmc resizablebooleanarray.pmc resizab <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	8478	8705	
==>_name};
        }
        elsif ($seen{$_->full_name}) {
            printf OP "%-31s%4d\n", $_->full_name, ++$n;
        }
    }
    close OP;
}
  
sub load_op_map_file {
  my $file = shift;

  if (!defined $file) {
    $file = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	763562	764018	
==>",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 862,
                  "ARGS" => [
                              "ic",
                              "n"
                            ],
                  "BODY" => "#line 320 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1184	1297	
==>.
You probably won't need to do this.

=item $token->tag(...)

A shortcut for $token->tagname(...)

=item $token-> <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1614	1727	
==>.
You probably won't need
to do this.

=item $token->tag(...)

A shortcut for $token->tagname(...)

=item $token-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129041	129399	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ": <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	10893	11046	
==>strings
	# parrot has double quoted escapes
	$c =~ s/"/\\"/g;	# XXX unescape
	my $u = defined $1 ? $1 : "";
	if ($c =~ /^(u|U)?'(.*)'/) {
	    my $u = def <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	5302	5435	
==>$package - Parrot Op Info

    =head1 DESCRIPTION

    This is an autogenerated file, created by F<$0>.

    It contains Parrot versio <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	8400	8537	
==>($XMLNAME).*/ quotemeta "$1\/$2". revbracket($1) /oes)
		{
			_failmsg "Unable to construct closing tag to match: $rdel",
				 pos $$textr <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	2028	2148	
==>odified so that it doesn't need to concatenate separate ops files.

=head1 SEE ALSO

=over 4

=item F<tools/build/ops2c.p <==
2	/Users/nnunley/parrot/config/init/defaults.pm	3092	3222	
==>d_flags     => $Config{lddlflags},

        libs => $Config{libs},

        cc_inc     => "-I./include",
        cc_debug   => '-g' <==
2	/Users/nnunley/parrot/config/inter/libparrot.pm	1665	1858	
==>.  $conf->data->get('build_dir')
          .  $conf->data->get('slash')
          .  $conf->data->get('blib_dir')
        : ''
    );

    unless (defined($conf->data->get('libparrot_ldfla <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1583	1717	
==>wn sub '%s'.", $name);
  }

  my %props = $sym->props;

  my @args  = $self->args;

  my @formal_args = $sym->args;

  $self->SYNTAX_ER <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	5420	5560	
==>unt = 0;
    my ($name, $footer);
    my $type;
    my $body;
    my $short_name;
    my $args;
    my @args;
    my @argdirs;
    my $seen_p <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	1678	1808	
==>raph_buffer
   # to process this.
  
  $self->{'pod_para_count'} ||= 0;

  my $line;
  foreach my $source_line (@_) {
    if( $self <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	31783	31903	
==>= temp('P');
    my $name = $tos->[1];
    $n = $name;
    $n =~ s/["]//g;
    my $mangle = qq!"py::$n"!;
    $classes{$n <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4007	4111	
==>ts($$outhash{$_})
		or	croak("Missing mandatory parameter '".lc($_)."'");
	}
}

sub _Error {
	print <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3805	3903	
==>ts($$outhash{$_})
		or	croak("Missing mandatory parameter '".lc($_)."'");
	}
}

sub _Error {
	print <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48243	48370	
==>AL/gco)
					{ ($minrep, $maxrep) = (0,1) }
				elsif ($grammar =~ m/$ANY/gco)
					{ $minrep = 0 }
				elsif ($grammar =~ m/$EX <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	12719	12922	
==>er
    push result, $P1

    dec op1
    goto pos_loop

done:
    .return (result)
.end

.sub unicode:"dyadic:\u2193" :multi (Float, APLVector) # drop
    .param int op1
    .param pmc op2

    if op1 < 0 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	46	172	
==>Id: /parrot/lib/Parrot/Docs/Section/IMCC.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Section:: <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	12918	13075	
==>, $code) = @_;
    # Assume, for now, that the code is Perl5 code
    my @ops = ("# START EMBEDDED CODE");

    # Set up a %MATCH variable
    push @ops, <<'E <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	1219	1398	
==>ark()" ],
    [ "pushindex()" ],
    [ "popindex()" ],

    [ "preamble()" ],
    [ "match_succeeded()" ],
    [ "match_failed()" ],
  );

sub op {
    my ($class, $name, $args, %o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47039	47232	
==>debug_CLEAR(interpreter, PARROT_ALL_DEBUG_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47822	48015	
==>debug_CLEAR(interpreter, PARROT_ALL_DEBUG_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286967	287432	
==>> "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 334,
                  "ARGS" => [
                              "i",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 918 \"src <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	517	656	
==>nput string
# O (advance, n) : advance input <n> chars
# O (fork, R)
# O (reverse_fork, R)
# O (match, b) : return if start of input is b, a <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	1289	1414	
==>($ccflags =~ s/-I(\S+)//g) { push @incdirs, $1; }
my $i_flags = join ' ', map { "-I$_" } @incdirs;

my %all_errors;
foreach my <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9257	9343	
==>$c,$d,$a,$_[8],20,0xe7d3fbc8,/* 24 */
GG,$a,$b,$c,$d,$_[13],5,0x21e1cde6,/* 25 */
GG,$d <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	3789	3969	
==>st');
    my $rev_test = { "==" => "!=",
		     "!=" => "==",
		     "<" => ">=",
		     ">" => "<=",
		     "<=" => ">",
		     ">=" => "<",
		 }->{$test};

    if ($dest->{name} e <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	1095	1314	
==>less conclusive.

=back

=cut

################################################################################

use strict;
use File::Find;
use File::Spec;


my %defined_in;
my %referenced_in;
my %ansi_c89_symbol;
my %a <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1925	2047	
==>:\n".
			  "Please recompile parser module.";

        ref($class)
    and $class=ref($class);

    bless($self,$clas <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1859	1975	
==>:\n".
			  "Please recompile parser module.";

        ref($class)
    and $class=ref($class);

    bless($self,$clas <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3889	3992	
==>andler->start_element({ Name => 'return' });
  $value->sax($handler) if defined $value;
  $handler->end_ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	1286	1401	
==>pe}->{$count};
    }
  }
}

sub _save_1 {
  my $self = shift;
  my $type = shift || 'I';
  my @temp = $self->_save(1 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30034	30150	
==>Typeless over in stack, starting at line "
           . $over->[1]{'start_line'};

        } elsif($over_type eq 'blo <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6706	6828	
==>_stack>, -1; # pushmark";
    return @ops;
}

sub output_pushindex {
    my ($self, $reg) = @_;
    $reg = value(defined($r <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7065	7186	
==>_stack>, -1 # pushmark";
    return @ops;
}

sub output_pushindex {
    my ($self, $reg) = @_;
    $reg = value(defined($r <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	1204	1334	
==>output_atend {
    my ($self, $failLabel) = @_;
    return ("rx_zwa_atend P0, ".$self->output_label_use($failLabel));
}

sub output <==
2	/Users/nnunley/parrot/config/gen/revision.pm	485	803	
==>ning Parrot's revision";

sub runstep
{
    my ($self, $conf) = @_;

    my $revision = $Parrot::Revision::current;
    my $entries  = $Parrot::Revision::svn_entries;

    $conf->data->set(
        revision    => $revision,
        SVN_ENTRIES => $entries
    );

    if ($revision >= 1) {
        $self->set_result("r$ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	539	690	
==>ber
  %Latin1Code_to_fallback
  %Latin1Char_to_fallback
  $FAR_CHAR
  $FAR_CHAR_NUMBER
  $NOT_ASCII
);

$FAR_CHAR = "?" unless defined $FAR_CHAR;
$FAR_C <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	1711	1832	
==>s, drained and rinsed
 * juice of one smallish lime
 * a dash of balsamic vinegar (to taste)
 * cooked rice, preferably lo <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	776	907	
==>undef, '__EOF__');
}

my $BOF = Jako::Token->new_bof(undef, undef);
sub BOF { return $BOF }

my $EOF = Jako::Token->new_eof(undef, u <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	694	811	
==>ass = shift;
  my ($file, $line) = @_;

  return $class->new($file, $line, 'eof', undef, '__EOF__');
}

my $BOF = Jako <==
2	/Users/nnunley/parrot/config/init/hints/irix.pm	443	557	
==>' -woff 1185';
    }
    $conf->data->set(ccflags => $ccflags);

    my $libs = $conf->data->get('libs');
    if ($ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2468	2603	
==>o in an ops file into the relevant C
code.

=cut

sub goto_pop
{
    my ($self) = @_;
    return "{ opcode_t *dest = (opcode_t*)pop_dest <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	20846	20962	
==>= "    goto INS_NOT_FOUND_ERROR\n";

        # We may need to bulid second byte dispatch tables.
        foreach (key <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	332	451	
==>Carp;

use overload
  "=="  => sub { $_[0]->code eq $_[0]->code },
  "!="  => sub { $_[0]->code ne $_[0]->code },
  "eq" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4072	4238	
==>{ Name => 'ident', Attributes => { name => $ident } });
        $handler->end_element({ Name => 'ident' });

        $string = $6;
      }

      if (defined $string a <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	30790	30926	
==>tribute; a Pod name (like "perldoc" and "Getopt::Std" are); or
# possibly a man page name (like "crontab(5)" is).
#

############# Not im <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	44479	44619	
==>s, the contents of
a quote, the regex of a match or substitution or the target list of a
translation),

=item [6]

the right delimiter of the <==
2	/Users/nnunley/parrot/config/gen/platform.pm	5268	5429	
==>en IN_C, "< $_" or die "Can't open $_: $!";
            print PLATFORM_C <<"END_HERE";
/*
** $_:
*/
#line 1 "$_"
END_HERE
            print PLATFORM_C <IN_C>, "\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834687	835009	
==>DIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 945,
                  "ARGS" => [
                              "sc"
                            ],
                  "BODY" => "#line 202 \"src/ops/stack.ops\"\n  stack_push <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	880	1012	
==>hs)>

Returns a new item.

Use this when creating items within a C<Parrot::Docs::Section>
subclass's C<new()> method.

=cut

sub new_ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1333	1451	
==>xit code $exit_code")
        if $exit_code and not $pass;
    }

    unless($ENV{POSTMORTEM}) {
        unlink $lang_f <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1374	1492	
==>xit code $exit_code")
        if $exit_code and not $pass;
    }

    unless($ENV{POSTMORTEM}) {
        unlink $lang_f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841099	841389	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841862	842152	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "in <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	6480	6705	
==>l ok failed todo skipped unexpect>);
  my $args = unpack("H*", $smoke{harness_args});

  #                           1       2          3        4         5        6         7      8           9        10          ...
  my $st <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14952	15350	
==>,
                  "NAME" => "jump",
                  "FLAGS" => ":base_loop",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 20,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 247 \"src/ops <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14266	14636	
==>,
                  "NAME" => "jump",
                  "FLAGS" => ":base_loop",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 19,
                  "ARGS" => [
                              "i"
                            ],
                  "BO <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	724	837	
==>ata->get('linkflags');
    my $ccflags   = $conf->data->get('ccflags');
    if ($^O =~ /mswin32/i) {
        if ($ <==
2	/Users/nnunley/parrot/config/auto/readline.pm	736	849	
==>ata->get('linkflags');
    my $ccflags   = $conf->data->get('ccflags');
    if ($^O =~ /mswin32/i) {
        if ($ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20256	20365	
==>orwegian (Nynorsk)

=back

If you are particularly interested in customizing this module's output
even more, s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103856	1103948	
==>STRING *class = {{\@2}};\n\tINTVAL type = pmc_type(interpreter, class);\n\tif (!type) {\n\t\t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105071	1105163	
==>STRING *class = {{\@2}};\n\tINTVAL type = pmc_type(interpreter, class);\n\tif (!type) {\n\t\t <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	1110	1218	
==>es (except string literals... q.v.).
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  return $s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	625024	625179	
==>results;\n    if (pc) {\n        pred_pc = (void**) pc - ctx->pred_offset;\n        sig = (PMC*)(pred_pc[1]);\n        ASSERT_SIG_PMC(sig);\n        assert( <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30497	30636	
==>ACTIONS => {
			"," => 151,
			")" => 152
		}
	},
	{#State 99
		DEFAULT => -92
	},
	{#State 100
		ACTIONS => {
			"-" => 72,
			" <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	14834	15005	
==>$docs_file->parent->relative_path($target->parent_path));

    my $name = $target->name;
    
    # This is a cheat because we know that all top-level sections
    # have t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	99974	100372	
==>core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 124,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 106 \"src/ops/ <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	500	645	
==>R %%
power_ok:
    $N1 = %1
    $N2 = %2
    $N1 = pow $N1, $N2
	%1 = $N1

END_PIR

    '\x{d7}' => [ 'Multiply', '%1 = %1 * %2' ],
    '\x{f7}' = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	51382	51581	
==>..";
    while(@stack) {
      push @{ $lineage[-1] }, '' if 2 == @{ $lineage[-1] };
      # Hmmmmm!

      my $code         = (pop @lineage)->[0];
      my $ender_length =  pop @stack;
      if($ende <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6417	6554	
==>User Sub";
	}
	if ($syms[NEXT] eq ":") {
		create_label();
		label_defined($syms[CURR]);
		push @{$code{$seg}->{code}}, "$labels{$syms[CUR <==
2	/Users/nnunley/parrot/lib/Test/More.pm	22425	22533	
==>atic todo list.  You know
how much work is left to be done, you're aware of what bugs there are,
and you'll k <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	827	957	
==>$self, $class) = @_;
    return "re_match_class P0, $class";
}

sub output_start {
    my ($self, $n) = @_;
    return "re_opengrou <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	7866	7960	
==>TRING*
get_nci_S(Interp *interpreter, struct call_state *st, int n)
{
    assert(n < st->src.n) <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36680	36801	
==>t generates.
		my $pre_call = $srm->pre_call();
		$pir .= "### pre_call\n";
		$pir .= sub_meta($pre_call, $mv, "pre_call f <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	3690	3846	
==>g{display_help};

if ( ! defined $cfg{method} ) {
    $cfg{method} = $ini->val( global => 'method', 1 );
}

if ( ! @{ $cfg{run_bench} } ) {
    my @regexes = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862512	862743	
==>ing_length(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863281	863512	
==>ing_length(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/config/auto/readline.pm	228	333	
==>er the platform supports readline.

=cut

package auto::readline;

use strict;
use vars qw($description @a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	371689	372003	
==>preter, pio);\n    {{\@1}} = PIO_reads(interpreter, pio, 0);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	8802	8915	
==>nd\t\t# $cur_func\n";
}

sub gen_pir {
    my ($opcode, $arg, $rest, $cmt) = @_;
    no strict "refs";
    &$opcod <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7614	7740	
==>($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If the destination isn't a register, determine register name <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5732	5858	
==>($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If the destination isn't a register, determine register name <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113846	114074	
==>DY" => "#line 204 \"src/ops/bit.ops\"\n  {{\@1}} <<= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114585	114813	
==>DY" => "#line 204 \"src/ops/bit.ops\"\n  {{\@1}} <<= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	466	665	
==>k_progs );

$util        = 'yacc';
$description = "Determining whether $util is installed";
$prompt      = "Do you have a parser generator, like bison or yacc?";
@args        = qw( yacc ask maintainer <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	616	709	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub _handle_element_start {
  # ($self, $element_name, $attr_hash <==
2	/Users/nnunley/parrot/lib/Test/More.pm	30547	30712	
==>k if $ok;
            }
            elsif( $type eq 'SCALAR' ) {
                push @Data_Stack, { type => 'REF', vals => [$e1, $e2] };
                $ok = _deep_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054280	1054385	
==>.ops\"\n    opcode_t * next;\n    if (PMC_IS_NULL({{\@2}}))\n\tinternal_exception(1, \"Tried to get from n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055407	1055512	
==>.ops\"\n    opcode_t * next;\n    if (PMC_IS_NULL({{\@2}}))\n\tinternal_exception(1, \"Tried to get from n <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	644	808	
==>w_group('General Documentation', '',
			$self->new_item('', 'docs/overview.pod'),
			$self->new_item('', 'docs/intro.pod'),
			$self->new_item('', 'docs/gettingstart <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	16584	16770	
==>$value =~ m/^x([a-fA-F0-9]+)$/s;
      print "ILLEGAL VALUE $value" unless $value =~ m/^\d+$/s;
      if($value > 255) {
        push @good , sprintf "   %-10s , chr(%s),\n", "'$name'", $ <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	605	703	
==>.

=item C<prefix>

The install prefix. Defaults to '/usr'.

=item C<exec_prefix>

The exec prefix. <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	834	932	
==>.

=item C<prefix>

The install prefix. Defaults to '/usr'.

=item C<exec_prefix>

The exec prefix. <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7071	7233	
==>le of the file.

=cut

sub title
{
	my $self = shift;

	return $self->name unless $self->contains_pod;
	
	my $text = $self->read;
	
	return '' 
		unless $text =~ / <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677567	677655	
==>line 478 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_float(interpreter, {{\@1}}, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678345	678433	
==>line 478 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_float(interpreter, {{\@1}}, {{ <==
2	/Users/nnunley/parrot/config/init/optimize.pm	1577	1717	
==>s enabled
            $conf->data->set(optimize => $optimize);
        }
    } else {
        $self->set_result('no');
        print "(none r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809665	809755	
==>07 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_string_keyed(interpreter, {{\@2} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810570	810660	
==>07 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_string_keyed(interpreter, {{\@2} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946820	947068	
==>ion",
                  "CODE" => 1065,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 526 \"src/ops/string.ops\"\n  INTVAL n = Par <==
2	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1836	1934	
==>ociations=yes

[Files]
Source: "$options{prefix}\\*"; DestDir: "{app}"; Flags: ignoreversion recurs <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26312	26483	
==>($syms[NEXT] eq ",") {
				feedme();
				feedme();
				$ps=pop @{$fors[$scopes]};
				next;
			}
			last;
		}
	}
}
sub parse_call {
	# Subroutines are disguised as user-def <==
2	/Users/nnunley/parrot/lib/Test/More.pm	204	334	
==>s
# actually happened.
sub _carp {
    my($file, $line) = (caller(1))[1,2];
    warn @_, " at $file line $line\n";
}



require Exp <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3625	3735	
==>d parent block is not a module!")
        unless $self->block->kind eq 'module';

      my %module_props = $sel <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6289	6399	
==>d parent block is not a module!")
        unless $self->block->kind eq 'module';

      my %module_props = $sel <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	2708	2813	
==>ors and warnings instead of using
confess() and warn().

=cut

sub set_symbol
{
  my $self = shift; # Requ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	13507	13604	
==>t->like($this, qr/$regex/, $name);
  $Test->like($this, '/$regex/', $name);

Like Test::More's lik <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	3848	4035	
==>lete $self->{'source_fh'}; # so it can be GC'd
          last;
        }
         # but pass thru the undef, which will set source_dead to true

        # TODO: look to see if $lines[-1] i <==
2	/Users/nnunley/parrot/lib/Test/More.pm	27687	27803	
==>e written before is_deeply() existed
because I couldn't figure out how to display a useful diff of two
arbitrary data <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	17566	17673	
==>APL operators in all possible configurations.

=head1 LICENSE

Copyright (C) 2005-2006, The Perl Foundation. <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	24862	25055	
==>lback(s)
      (?:\s+(\S+))? # 3 : element name(s)
      \s*
      $
    /xs
  ) {
    my $new_letter = $1;
    my $fallbacks_one = $2;
    my $elements_one;
    $elements_one = defined($3) ? $3 <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	8923	9010	
==>ools/build/vtable_h.pl>

=item F<tools/dev/gen_class.pl>

=item F<src/pmc/null.pl>

=bac <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	11260	11364	
==>@\%]|\\&)+)/gc)
	    {
		_failmsg "Did not find leading dereferencer", pos $$textref;
		pos $$textref = $ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	22637	22770	
==>\n";

    # Emit trace code.
    $pir .= <<PIR;
if trace != 2 goto NO_TRACE_$name
printerr "    $name STS: "
i = elements stypes
j = 0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033485	1033614	
==>ex_name);\n    }\n    VTABLE_set_pmc_keyed_str(interpreter, lex_pad, lex_name, {{\@2}});\n    {{+=3}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034583	1034712	
==>ex_name);\n    }\n    VTABLE_set_pmc_keyed_str(interpreter, lex_pad, lex_name, {{\@2}});\n    {{+=3}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9146	9259	
==>is = shift;
  
  foreach my $new_code (@_) {
    next unless defined $new_code and length $new_code;
    if(ASCII) <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10410	10523	
==>is = shift;
  
  foreach my $new_code (@_) {
    next unless defined $new_code and length $new_code;
    if(ASCII) <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22899	23020	
==>nt::_tracefirst($text))
							if defined $::RD_TRACE;
		}
		') . ($self->{"lookahead"} ? '$text = $_savetext and ' : '' ) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1170	1274	
==>) {
      $compiler->emit(".namespace ${namespace}");
      $compiler->indent;
      $self->SUPER::compil <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	580	678	
==>) {
    $compiler->emit(".namespace ${namespace}");
    $compiler->indent;
    $self->SUPER::compil <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15490	15609	
==>1}/g;  # ESCAPER
             # Escape \, {, }, -, control chars, and 7f-ff.
    $x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16669	16788	
==>1}/g;  # ESCAPER
             # Escape \, {, }, -, control chars, and 7f-ff.
    $x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	2135	2278	
==>y $scope = shift @{ $parser->YYData->{scopef} };
    $parser->YYData->{scope} = $scope;
    my $symbtab = shift @{ $parser->YYData->{scopef} } <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33096	33224	
==>[0]->{"subrule"} }
sub isterminal { 0 }
sub sethashname {}

sub describe ($)
{
	my $desc = $_[0]->{"implicit"} || $_[0]->{"subrul <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35617	35717	
==>[0]->{"subrule"} }
sub isterminal { 0 }
sub sethashname { }

sub describe ($)
{
	my $desc = $_[0]->{" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	26813	27041	
==>{{\@1}} = parrot_new_closure(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	7338	7444	
==>y @sources = map { "$_$O" } @$stems;
    if (needs_build("$group$LOAD_EXT", @sources)) {
        run(partia <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7549	7655	
==>y @sources = map { "$_$O" } @$stems;
    if (needs_build("$group$LOAD_EXT", @sources)) {
        run(partia <==
2	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1869	1961	
==>options{prefix}\\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs
${icu_section}

[I <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	40027	40162	
==>$parser);
        foreach my $op (@opcodes) {
            if ( $op and $op->isa('BranchOp') ) {
                if ( $op->{result} eq <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	9675	9775	
==>ode,3));
  $self->_morph($return,$false);
  $self->_restore($false);

  $self->_add_inst("DONE_$label <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600071	600173	
==>kup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    STRING *nam <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601147	601249	
==>kup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    STRING *nam <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	6151	6302	
==>pt up to 2^32 bits = 512 MB on 32bit archs. You should use C<Digest::MD5>
for those amounts of data.

=item *

C<Digest::Perl::MD5> loads all data to en <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	40997	41115	
==>void context, the input text just has the matched substring (and
any specified prefix) removed.


=head2 C<gen_extract_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861998	862263	
==>"JUMP" => 0,
                  "NAME" => "length",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862766	863031	
==>"JUMP" => 0,
                  "NAME" => "length",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "in <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Transcode.pm	417	557	
==>ss;";
  if($@) {
    DEBUG and print "Couldn't load $class: $@\n";
  } else {
    DEBUG and print "OK, loaded $class.\n";
    @ISA = ($class) <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1388	1498	
==>rn 0;
}

sub generate_regular_pir {
    my ($filename, $pattern) = @_;
    my $PIR;
    open($PIR, '>', $filena <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13120	13231	
==>ON, STACK_CLEANUP_NULL);\n  loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13964	14075	
==>ON, STACK_CLEANUP_NULL);\n  loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7032	7181	
==>E OBJECTS
        my $new = [$1, {'start_line' => $self->{'line_count'}}, $2];
         # Note that in "=head1 foo", the WS is lost.
         # Exampl <==
2	/Users/nnunley/parrot/Configure.pl	4918	5092	
==>};

    m/help/    && do {
      print <<"EOT";
$0 - Parrot Configure 2.0

General Options:

   --help               Show this text
   --version            Show version inform <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	531	656	
==>t!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Value is not!" if defined $value and not UNIVERSAL::is <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	639239	639375	
==>MS(sig)) {\n        real_exception(interpreter, NULL, E_ValueError,\n            \"Empty signature with instantiate\");\n  }\n  switch (S <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	279	389	
==>me_jump);


my @fors=();
my @whiles=();
my @dos=();
@selects=();
my $scopes=0;
my @data=();
sub parse_keys {
	f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	97140	97521	
==>AGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 120,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 86 \"src/ops/bit.ops\"\n  {{\@1}} = ~ {{\@1}};\n  {{+= <==
2	/Users/nnunley/parrot/config/gen/PodText.pm	1152	1274	
==>od::Text->new(width => 79);

    my $count = 0; # number of processed files
    foreach my $pod (keys %docs) {
        $cou <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16915	17132	
==>parently needing escaping
       0x20 .. 0x7E ),
  map( (chr($_),sprintf("\\'%02x", $_)),    # apparently escapeworthy things
       0x00 .. 0x1F, 0x5c, 0x7b, 0x7d, 0x7f .. 0xFF, 0x46),

  # We get to escape out 'F' so <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	1398	1551	
==>e
    item-bullet=li
    item-number=li
    item-text=dt
  )),
  changes2(
    map {; m/^([-a-z]+)/s && push @_to_accept, $1; $_ }
    qw[
      sample=sa <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32295	32403	
==>method, 0);
    # I think that these will be out by one - NWC
    my $l = $self->line_directive($line, "ref.c <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40917	41025	
==>method, 0);
    # I think that these will be out by one - NWC
    my $l = $self->line_directive($line, "ref.c <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	38450	38548	
==>list reference contains one or more strings specifying patterns
that are I<not> be be treated as ne <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	26739	26842	
==>D) CALAMITY
	$mod =~ s/[gc]//g;
	$pattern =~ s/(\A|[^\\])\\G/$1/g;

	bless 
	{
		"pattern"   => $pattern <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	53058	53196	
==>nd/or qr// objects and/or
literal strings and/or hash references, specifying the extractors
to be used to split the string. If this argumen <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	2798	2915	
==>->{'token_buffer'} } ? '' : '       (no tokens)',
   "\n"
  ;

  until( @{ $self->{'token_buffer'} } ) {
    DEBUG > 3 <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	15545	15858	
==>d, so these
            # methods aren't seen and not inherited properly
            #
            # the correct way would be to look at
            # $self->implements but when dumping there isn't
            # a $class object
            $self->{super}{$meth} =
                $self->{class} eq 'ParrotObject' | <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	363	461	
==>.

Calculates a value for M ops/s (million operations per second) using
integer arithmetic.

Prints <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	359	457	
==>.

Calculates a value for M ops/s (million operations per second) using
integer arithmetic.

Prints <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143990	144331	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 176,
                  "ARGS" => [
                              "sc" <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	34704	34850	
==>d::Simple::LinkSection->new( $it ); # treelet!

          next;
        }
        if($it =~ m/^[^\/\|,\$\%\@\ \"\<\>\:\#\&\*\{\}\[\]\(\)]+(\:\:[^\/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11085	11285	
==>DESTINATION, STACK_CLEANUP_NULL);\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11874	12074	
==>DESTINATION, STACK_CLEANUP_NULL);\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	22258	22382	
==>$textref) < length($$textref))
		{
			my $field;
			my @bits;
			foreach my $i ( 0..$#func )
			{
				my $pref;
				$func = $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103716	1103883	
==>s",
                              "p"
                            ],
                  "BODY" => "#line 332 \"src/ops/experimental.ops\"\n\tSTRING *class = {{\@2}};\n\t <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2386	2544	
==>et
{
    my ($self, $offset) = @_;

    return "cur_opcode + $offset";
}

=item C<goto_offset($offset)>

Transforms the C<goto OFFSET($offset)> macro in an ops <==
2	/Users/nnunley/parrot/lib/Test/More.pm	8046	8179	
==>e something like this:

    not ok 17 - Is foo the same as bar?
    #     Failed test (foo.t at line 139)
    #          got: 'waffle' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063820	1064214	
==>AGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1188,
                  "ARGS" => [
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 2 <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	6104	6306	
==>r->$elem = \$i; return \$r }\n";
                $sel = "->{\$i}";
            }
            elsif( defined $classes{$name} ){
                if ( $CHECK_CLASS_MEMBERSHIP ) {
                    $out .= <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	12383	12505	
==>e) {
    Carp::croak("Can't use empty-string as a source for parse_file");
  } elsif(ref(\$source) eq 'GLOB') {
    $self-> <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	9638	9762	
==>th>Call Coverage</th>
    );

        my $outfile_base = $source_file; 
        $outfile_base =~ s/\//_/g;

        foreach m <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	15985	16101	
==>?
    #

    if ($token->is_ident
      and $self->get(1)->is_assign
      and $self->get(2)->is_value
      and $sel <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32482	32597	
==>c::SharedRef Instance Methods

C<SharedRef> is like C<Ref> but with locking.

=over 4

=cut

package Parrot::Pmc2c:: <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	1	121	
==>! perl
# $Id: /parrot/tools/build/c2str.pl 20350 2006-06-25T03:57:27.771662Z petdance  $

=head1 NAME

tools/build/c2str. <==
2	/Users/nnunley/parrot/Configure.pl	1928	2033	
==>s=(flags)>

Use the given linker flags

=item C<--ld=(linker)>

Specify which loader to use for shared lib <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	15986	16175	
==>if @_;
        }
        return $self->{'count'};
    }

    package main;
    $x = new MyObj;
    print "\$x->count(5) = ", $x->count(5), "\n";
                            # prints '$x->cou <==
2	/Users/nnunley/parrot/config/init/hints/cygwin.pm	135	304	
==>e init::hints::cygwin;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    # cygwin's perl is compiled with -lutil, which for some reason is not
    # in the sta <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	13684	13847	
==>has_parent}{$parent};

            $all->{$parent} = read_dump($include, lc("$parent.pmc"))
                if not $all->{$parent};

            $class->{has_parent <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19304	19408	
==>e title can't be found, then get_short_title returns empty-string
("").

=item $author_name   = $parser-> <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	71558	71849	
==>erating rule: $call")
					and
					_hint("A call was made to a subrule
					       named \"$call\", but no such
					       rule was specified. However,
					       since \$::RD_AUTOSTUB
					       was defined, a rule stub
					       ($call : '$call') was
					       automatically created <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	12352	12460	
==>ore($temp);
  }
  $self->_add_inst(''           ,'set',[$return,0]);
  $self->_add_inst("DONE_$label");
  ret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	603314	603554	
==>"inline",
                  "CODE" => 683,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 404 \"src/ops/object.ops\"\n    { <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2781	2885	
==>routine should be skipped"
Label1:
   PRINT "5 back in module-level code"
   END
Sub1:
   PRINT "2 in sub <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16748	16852	
==>routine should be skipped"
Label1:
   PRINT "5 back in module-level code"
   END
Sub1:
   PRINT "2 in sub <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2638	2737	
==>at is produced.
	$pir .= <<'PIR';
strPC = ${PC}
${INS} = concat "LAB"
${INS} = concat strPC
${INS} = <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	31775	31906	
==>value or just give back a
		# register name where the value would be stored in?
		my $dest_reg;
		if ($rule->{'pir'} =~ /\$\{STACK0\ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	17711	17841	
==>te 67
		ACTIONS => {
			'NUM' => 57,
			">" => 72
		}
	},
	{#State 68
		DEFAULT => -41
	},
	{#State 69
		DEFAULT => -43
	},
	{#Stat <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22704	22848	
==>label");
  $self->_restore($temp_0,$temp_1);
  return $return;
}

sub _op_even_p {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_g <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1330	1461	
==>sif ($dir_count == 1) {
          $path_to_language = $language;
        } elsif ($dir_count == 2) {
          $path_to_language = ' <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1815	1946	
==>sif ($dir_count == 1) {
          $path_to_language = $language;
        } elsif ($dir_count == 2) {
          $path_to_language = ' <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	9161	9285	
==>ne $sourceline: ";
	dumpq;
	die;
}
sub debug {
	push @{$code{$seg}->{code}}, <<DEBUG;
	${seg}_debug($sourceline)
DEBUG
}

sub <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286930	287284	
==>> "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 334,
                  "ARGS" => [
                              " <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	2731	2890	
==>lp {
print <<__EOF__;
$ME: Usage: $ME [options] [ foo.o ... | bar.a | other_library_format ]
Portable frontend for nm(1); by default lists all the code and data <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	164	275	
==>::Lua;

use strict;

use Data::Dumper;
use File::Basename;

require Parrot::Test;

=head1 NAME

Test/ <==
2	/Users/nnunley/parrot/Configure.pl	98	203	
==>-05-30T15:23:20.183054Z coke  $

=head1 NAME

Configure.pl - Parrot's Configuration Script

=head1 SYNOPSI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687615	687911	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688386	688682	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	17802	17997	
==>ewrite_body($_, $trans);
    }

    return $_;
}

=item C<version($major, $minor, $patch)>

=item C<version($version)>

=item C<version()>

Sets/gets the version number.

=cut

sub version
{
    m <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	9577	9771	
==>ebase ||= $filename;
        $extension ||= '';
        if ($filebase =~ /\./) {
            error("MANIFEST", $line, "$_: more than one '.' in a filename");
        }
        $filebase  = substr <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	70298	70450	
==>ar =~ m/$ATLEAST/gco && do { $min=$2; 1 }
	  || $grammar =~ m/$SUBRULE(?!\s*:)/gco
	   )
	{
		return unless $1 eq $subrule && $min > 0;
		_warn(3,"Subrul <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	30521	30631	
==>$self->genlabel('rule_try_match');
    my $backup = $self->genlabel('rule_backtrack');

    # Generate the code <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	12913	13029	
==>pre,
				     $ldel_outer, $rdel_outer,
				     $ldel_inner, $rdel_inner,
				     $rd);
	return _fail($wantarray, $ <==
2	/Users/nnunley/parrot/Configure.pl	4000	4097	
==>rrot assuming only pure ANSI C is available.

=back

=head1 SEE ALSO

F<config/init/data.pl>, F<li <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46918	47017	
==>ine 770 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Interp_debug_SET(interpreter,   {{\@1}}); }\n  e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47701	47800	
==>ine 770 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Interp_debug_SET(interpreter,   {{\@1}}); }\n  e <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1882	2023	
==>fn );

        # STDERR is written into same output file
        my $exit_code = Parrot::Test::run_command( 
                            \@tes <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2362	2490	
==>fn );

        # STDERR is written into same output file
        my $exit_code = Parrot::Test::run_command(
            \@tes <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	25585	25712	
==>nit[$entry->[0]].right = entry;
EOC
        }
        else {
            $cout .= <<"EOC";
        _temp_mmd_init[$entry->[0]].r <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	13384	13658	
==>Reseeking H1\n";
        $state = 0;
      }
    }
    
    elsif($state == 3) {
      # accumulating text until end of Para
      if( $token->is_text ) {
        DEBUG and print "   Adding \"", $token->text, "\" to para-content.\n";
        $para_text_content .= $token->tex <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	486053	486326	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ceil",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "in <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	2415	2594	
==>>data->settrigger("gccversion", "solaris_cc_shared", $solaris_cc_shared_cb);

    ################################################################
    # Parrot usually aims for IEE <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	6502	6631	
==>@_ > 1;\n";
            $out .= "    \@_ ? ($pre\$r->$elem$sel = shift$pst) : $pre\$r->$elem$sel$pst;\n";
            $out .= "  } <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2014	2297	
==>, N1, N2
$N2 = 1000000.0;              # set    N2, 1000000.0
$N1 = $N1 / $N2;              # div    N1, N1, N2
                              #
print "M op/s:        $N1\n"; # print  "M op/s:        "
                              # print  N1
                              # print  "\ <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	2014	2297	
==>, N1, N2
$N2 = 1000000.0;              # set    N2, 1000000.0
$N1 = $N1 / $N2;              # div    N1, N1, N2
                              #
print "M op/s:        $N1\n"; # print  "M op/s:        "
                              # print  N1
                              # print  "\ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2482	2577	
==>type;

    $self->INTERNAL_ERROR("Can't determine type of actual argument (%s)!", ref $args[$i]) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2182	2277	
==>type;

    $self->INTERNAL_ERROR("Can't determine type of actual argument (%s)!", ref $args[$i]) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152474	152772	
==>"eq_str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574793	575029	
==>er, enum_class_ParrotClass, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575597	575833	
==>er, enum_class_ParrotClass, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2050	2195	
==>istance";
    } elsif ($distance < 0) {
        $comment = "pos -= ".(-$distance);
    }

    return ("add <rx_pos>, $distance # $comment");
}

su <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	839693	839968	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rotate_up",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840387	840662	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rotate_up",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679631	679924	
==>"i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 762,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 483 \"src/ops/pmc.o <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1359	1479	
==>ompiler->emit("  global \"$ident_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  m <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1353	1473	
==>ompiler->emit("  global \"$ident_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  m <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	18007	18136	
==>eld1pos = pos($$textref);
	if ($op eq '<<') {
		$ld1pos = pos($$textref);
		my $label;
		if ($$textref =~ m{\G([A-Za-z_]\w*)}gc) { <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7557	7689	
==>foreach ($out, $err) {
        $_ = File::Spec->devnull
            if $_ and $_ eq '/dev/null';
    }

    if ($out and $err and $ou <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	12031	12140	
==>tfile: $!\n";

    print OUT page_header("Call Coverage for $source_file");
    print OUT "<pre>";

    # filt <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841133	841423	
==>=> 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841896	842186	
==>=> 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3491	3636	
==>ver happen
    (defined $to and length $to) or
    (defined $section and length $section)
  );

  if(defined $to and length $to) {
    $to = $self <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	4684	4821	
==>_$name");
        # do we need to use a default?
        $code .= "  if argc < ".($i+1)." goto default_$name \n"
            if $arg->{opt <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	52642	52742	
==>curr_open { # return a string representation of the stack
  my $curr_open = $_[0]{'curr_open'};

  re <==
2	/Users/nnunley/parrot/config/init/optimize.pm	107	218	
==>28:15.110975Z coke  $

=head1 NAME

config/init/optimize.pm - Optimization

=head1 DESCRIPTION

Enables optimiza <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	907	1002	
==>oken object.
For example, parsing a "=head1 ..." line will give you
a start-token with the tagna <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1335	1430	
==>oken object.
For example, parsing a "=head1 ..." line will give you
a start-token with the tagna <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	42721	43016	
==>e 186
		DEFAULT => -4,
		GOTOS => {
			'block' => 197,
			'chunk' => 57
		}
	},
	{#State 187
		ACTIONS => {
			'NAME' => 198,
			"..." => 199
		}
	},
	{#State 188
		ACTIONS => {
			'END' => 200
		}
	},
	{#State 189
		DEFAULT => -4,
		GOTOS => {
			'block' => 201,
			'chunk' <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	41	141	
==>lgorithm keeps track of the current stack depth and assigns to
# virtual registers numbered by depth. <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	41	141	
==>lgorithm keeps track of the current stack depth and assigns to
# virtual registers numbered by depth. <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	167	335	
==>Display symbol table information

=head1 SYNOPSIS

    % perl tools/dev/nm.pl [options] file

To list all the symbols in Parrot:

    % perl tools/dev/nm.pl parrot

=hea <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	17123	17228	
==>out 'F' so that we can send RTF files thru the mail
  # without the slightest worry that paragraphs beginn <==
2	/Users/nnunley/parrot/Configure.pl	7105	7238	
==>tions:

   For using a system ICU, these options can be used:

   --icu-config=/path/to/icu-config
                        Location of <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	748	847	
==>o::Construct::Block));
  confess "Type (" . ref($type) . ") is not!"   if defined $type and not UNIV <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	631	727	
==>o::Construct::Block));
  confess "Type (". ref($type) . ") is not!" if defined $type and not UNIV <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11114	11233	
==>',ord($1))/eg;
        # Yes, stipulate the list without a range, so that this can work right on
        #  all charsets <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4463	4580	
==>',ord($1))/eg;
       # Yes, stipulate the list without a range, so that this can work right on
       #  all charsets <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	52903	53103	
==>ents:

=over 4

=item 1.

A string to be processed (C<$_> if the string is omitted or C<undef>)

=item 2.

A reference to a list of subroutine references and/or qr// objects and/or
literal strings and/ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	37071	37178	
==>ents:

=over 4

=item 1.

A string to be processed (C<$_> if the string is omitted or C<undef>)

=item 2.

A <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	1598	1698	
==>he generated C code.

=back

=head1 SEE ALSO

=over 4

=item F<tools/build/ops2pm.pl>

=item C<Parrot <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15496	15612	
==>nil->[1] };
    $result = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19249	19365	
==>nil->[1] };
    $result = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12567	12720	
==>push @opcodes, @{ $key->[1] };
                my $result = $global->[0];
                foreach my $key2 ( @{$var} ) {
                    my $result <==
2	/Users/nnunley/parrot/config/init/headers.pm	542	930	
==>$conf) = @_;

    my $inc = 'include/parrot';

    my @headers = (
        sort
            map { m{^$inc/(.*\.h)\z} }
            keys %{maniread()}
    );

    $_ = "\$(INC_DIR)/$_" for @headers;
    my $TEMP_nongen_headers = join("\\\n	", @headers);

    $conf->data->set(
        inc                 => $inc,
        TEMP_nongen_headers => $TEMP_nongen_headers,
    );

    return $sel <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3359	3455	
==>le::DumpAsXML>

The older libraries L<Pod::PXML>, L<Pod::XML>, L<Pod::SAX>


=head1 COPYRIGHT AND <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3011	3107	
==>le::DumpAsXML>

The older libraries L<Pod::PXML>, L<Pod::XML>, L<Pod::SAX>


=head1 COPYRIGHT AND <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	335	459	
==>&extract_bracketed
				&extract_quotelike
				&extract_codeblock
				&extract_variable
				&extract_tagged
				&extract_multi <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	20033	20139	
==>rg)
	{
		my ($ldel2, $rdel2);
		if ($ldel1 =~ /[[(<{]/)
		{
			unless ($$textref =~ /\G\s*(\S)/gc)	# SHOULD <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	31110	31226	
==>_op_current_input_port {
}

sub _op_current_output_port {
}

sub _op_with_input_to_file {
}

sub _op_with_output_from <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5056	5159	
==>utput_label_use($failLabel);
    my $pass = $self->output_label_use($passLabel);

    while (@$incexc) { <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4731	4834	
==>utput_label_use($failLabel);
    my $pass = $self->output_label_use($passLabel);

    while (@$incexc) { <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4574	4683	
==>return $self->op('nop', [], %$self);
    } elsif (@{ $self->{args} } == 1 && 2 == keys %$self) {
        retur <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5711	5820	
==>return $self->op('nop', [], %$self);
    } elsif (@{ $self->{args} } == 1 && 2 == keys %$self) {
        retur <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1321	1418	
==>e (so we can find register type).
dec ${ITEMP0}
${PTEMP0} = ${STYPES}[${ITEMP0}]

# Assign registe <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3031	3128	
==>e (so we can find register type).
dec ${ITEMP0}
${PTEMP0} = ${STYPES}[${ITEMP0}]

# Assign registe <==
2	/Users/nnunley/parrot/config/auto/funcptr.pm	745	885	
==>@ || cc_run() !~ /OK/) {
            print <<"END";
Although it is not required by the ANSI C standard,
Parrot requires the ability to cast f <==
2	/Users/nnunley/parrot/config/inter/progs.pm	4226	4315	
==>don't know why.
    $ccwarn = integrate($conf->data->get('ccwarn'), $conf->options->get('c <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	12137	12262	
==>\.ops")\s+
        {{\@(\d)}}->vtable->
        (\w+)
        \(interpreter,
        \s*
        {{\@(\d)}},\s*{{\@(\d)}},\s*{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912724	913017	
==>" => 1028,
                  "ARGS" => [
                              "i",
                              "s",
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77131	77399	
==>"ARGS" => [
                              "p",
                              "p",
                              "sc",
                              "sc"
                            ],
                  "BODY" => "#line 1156 \"src/ops/core.ops\"\n  char * const name = s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	349	569	
==>rclass : Match a character class
# seq
# alternate : Match R or S at the same point?
# multi_match : Match m..n repetitions of R
# group : Capture a group
# scan : Scan through input until R matches
# atend : At the end o <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27762	27910	
==>' => 35,
			'primary' => 28
		}
	},
	{#State 85
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27, <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	636	764	
==>NE OPTIONS

=over 4

=item C<--verbose>

Verbose status along the way.

=back

=head1 COMMAND-LINE ARGUMENTS

=over 4

=item C<OB <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2470	2573	
==>d to actually declare the constant, we will place its
  # definition into the block at the top of the bl <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2217	2320	
==>d to actually declare the constant, we will place its
  # definition into the block at the top of the bl <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7230	7445	
==>bly\n$syms[CURR]\n\t# End assembly\n\t#\n";
		feedme;
		
		goto PARSE;
	}
		
	# DO ME LAST
	# (Assignments.)
	($result, $type, @code)=EXPRESSION({ lhs => 1, assign => 1});
	push @{$code{$seg}->{code}}, @code;
	goto P <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	156	243	
==>eter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm 19606 20 <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2496	2586	
==>,
F<examples/mops/mops.p6>,
F<examples/mops/mops.ps>,
F<examples/mops/mops.py>,
F<examples/ <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	2496	2586	
==>,
F<examples/mops/mops.p6>,
F<examples/mops/mops.ps>,
F<examples/mops/mops.py>,
F<examples/ <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	19960	20104	
==>ed "use strict".
    #  - Bug in build_methods, was using @var when @$var needed.
    #  - Now using my() rather than local().
    #
    # Uses p <==
2	/Users/nnunley/parrot/tools/dev/cc_flags.pl	1591	1733	
==>file) = grep /\.c$/, @ARGV;

my ($inject_point, $where);

foreach (@ARGV) {
  last if $_ eq '';
  ++$where;
}
if ($where) {
  # Found a "" - re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365327	365562	
==>});\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366167	366402	
==>});\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283448	283846	
==>NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 330,
                  "ARGS" => [
                              "i",
                              "n" <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	35573	35689	
==>_branch($rule->{'pop'});
		$pir .= "### post_branch\n";
		$pir .= sub_meta($post_branch, $mv, "post_branch for rule $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2168	2270	
==>if($$self{DEBUG}) {
		_DBLoad();
		$retval = eval '$self->_DBParse()';#Do not create stab entry on co <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2087	2187	
==>if($$self{DEBUG}) {
		_DBLoad();
		$retval = eval '$self->_DBParse()';#Do not create stab entry on co <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1406	1528	
==>lsif ($dir_count == 2) {
          $path_to_language = '.';
        } elsif ($dir_count >2) {
          $path_to_language = <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1891	2013	
==>lsif ($dir_count == 2) {
          $path_to_language = '.';
        } elsif ($dir_count >2) {
          $path_to_language = <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	10790	10893	
==>"?"} split(/,/, $parameters));
    # TODO
    # scan src/call_list.txt if the generated signature is ava <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	1290	1421	
==>x
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'new' }, { class => $self->right->value });
  $se <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6925	7106	
==>ush(@$stack,[ $act, $$value ]);

					$$token ne ''	#Don't eat the eof
				and	$$token=$$value=undef;
                next;
            };

            #reduce
            my <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6602	6775	
==>ush(@$stack,[ $act, $$value ]);

					$$token ne ''	#Don't eat the eof
				and	$$token=$$value=undef;
                next;
            };

            #reduce
            my <==
2	/Users/nnunley/parrot/config/inter/progs.pm	3152	3255	
==>s, $conf->options->get('ldflags'));
    $ldflags = prompt("And your $ld for building shared libraries?", <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	14496	14602	
==>et_try_offset()
    try_length = eh.get_try_length()
    if try_offset != pc goto NOT_TRY_START
    gen_pir <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3093	3268	
==>v/mk_manifest_and_skip.pl ', scalar( localtime() ), "\n";
print $MANI <<'END_HEADER';
#
# See tools/dev/install_files.pl for documentation on the
# format of this file.
# See d <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	78597	78716	
==>os $_[0]||0)-1, 0);
	$count++ until ($pos=index($_[0],"\n",$pos+1))<0;
	return $count;
}

package main;

use vars qw ( $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	444	582	
==>less {
    TOKEN    => $token,
    CODE     => 'N',
    NAME     => 'num',
    IMCC     => 'num',
    IMCC_PMC => 'Float'
  }, $class;
}

1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	34794	35117	
==>,
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_addr",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	2670	2841	
==>my $class_name = shift @ARGV;
my %is_allowed = map { $_ => 1 } qw(C CGoto CGP CSwitch CPrederef);
Usage() unless $is_allowed{$class_name};
my $trans_class = "Parrot::OpTran <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5814	5947	
==>BG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defined($$token)
            or	do {
				($$token,$$value)=&$ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5538	5664	
==>BG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defined($$token)
            or	do {
				($$token,$$value)=&$ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	45620	45764	
==>itespace-separated quotelike
	# literals in $_ with "<QLL>"

		do { $_ = join '<QLL>', (extract_quotelike)[2,1] } until $@;


	# Isolate the sear <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	53878	54016	
==>) eq 'HASH') {
      my $hr = $_;
      $x = "{" . join(", ",
        map(pretty($_) . '=>' . pretty($hr->{$_}),
            sort keys %$hr <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	875	1003	
==>e = make_re('[A-Za-z_][A-Za-z0-9_]*');
my $type_re = make_re('(?:(?:struct\s+)|(?:union\s+))?'.$ident_re.'\**');
my $param_re = m <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	2818	2956	
==>shift->is('label');         }
sub is_last          { return shift->is('last');          }
sub is_literal       { return shift->is('literal' <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	6777	6940	
==>r the op size, etc., which we use later.
        #
        # Either of these two forms work:
        #
        #   inline op  name (args) {
        #   op         n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356689	356911	
==>terpreter, INTVAL_FMT, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357349	357571	
==>terpreter, INTVAL_FMT, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	42265	42406	
==>" => 85,
			'OR' => 84,
			">" => 86
		}
	},
	{#State 183
		ACTIONS => {
			'END' => 194
		}
	},
	{#State 184
		DEFAULT => -29
	}, <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	947	1116	
==>$key, $cc) = @_;
        my %gnuc;
        my $link = $conf->data->get('link');
        cc_gen("config/auto/gcc/test_c.in");

        # Can't call cc_build since we haven <==
2	/Users/nnunley/parrot/lib/File/Which.pm	6508	6611	
==>ion 0.04 had some significant platform-related changes, taken from
the Perl Power Tools C<`which'> imple <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	722	818	
==>ght;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confes <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	734	830	
==>ght;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confes <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	543	648	
==>a($block, 'Jako::Construct::Block');
  confess("Identifier (" . ref($ident) . ") is not!") unless UNIVERSA <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	543	648	
==>a($block, 'Jako::Construct::Block');
  confess("Identifier (" . ref($ident) . ") is not!") unless UNIVERSA <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5645	5796	
==>bs );
    for my $pmc (@pmcs) {
        our $class;
        require "$pmc.dump";
 
        # there can be many libs
        my %libs = %{ $class->{flags <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5856	6007	
==>bs );
    for my $pmc (@pmcs) {
        our $class;
        require "$pmc.dump";
 
        # there can be many libs
        my %libs = %{ $class->{flags <==
2	/Users/nnunley/parrot/config/inter/lex.pm	951	1075	
==>>data->set($util => 'echo');
        $self->set_result('skipped');
        return $self;
    }

    my $prog;

    # preceden <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	948	1072	
==>>data->set($util => 'echo');
        $self->set_result('skipped');
        return $self;
    }

    my $prog;

    # preceden <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1781	1901	
==>");

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348563	348830	
==>JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349564	349831	
==>JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inl <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6714	6947	
==>plicing {
  my ($self, $node, $return) = @_;

  my $list = $self->_generate($node);

  die "unquote-splicing called on no list" if ($list =~ /^[INS]/);

  my $type = $self->_save_1('I');
  my $head = $self->_save_1('P');
  my $label = <==
2	/Users/nnunley/parrot/config/init/hints/cygwin.pm	59	203	
==>onfig/init/hints/cygwin.pm 19593 2006-05-30T02:28:15.110975Z coke  $

package init::hints::cygwin;

use strict;

sub runstep
{
    my ($self, $co <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10203	10327	
==>,0xd9d4d039,/* 45 */
HH,$d,$a,$b,$c,$_[16],11,0xe6db99e5,/* 46 */
HH,$c,$d,$a,$b,$_[19],16,0x1fa27cf8,/* 47 */
HH,$b,$c,$d,$a <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15280	15385	
==>uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # return a single <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16461	16566	
==>uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # return a single <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	19841	19960	
==>local $Test::Builder::Level = 2;
        $Test->ok($test);
    }

=cut

sub level {
    my($self, $level) = @_;

    if( <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8974	9070	
==>fig settings:

  $cc, $ccflags, $ldout, $o, $link, $linkflags, $cc_exe_out, $exe, $libs

Calls th <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2758	2861	
==>t

sub restart_offset
{
    my ($self, $offset) = @_;

    return "interpreter->resume_offset = REL_PC + <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4093	4196	
==>t

sub restart_offset
{
    my ($self, $offset) = @_;

    return "interpreter->resume_offset = REL_PC + <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	3351	3540	
==>thods;
}


# Generate the lookup table.
# ##########################
sub generate_lookup {
    my @methods = @_;
    my $pir = "";

    # Group methods by class.
    my %classes = ();
    fo <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	1015	1132	
==>*)$/s ) {
    $in = oct $in;
  } elsif($in =~ m/^0x([0-9a-fA-F]+)$/s ) {
    $in = hex $1;
  } # else it's decimal, or <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2374	2491	
==>*)$/s ) {
    $in = oct $in;
  } elsif($in =~ m/^0x([0-9a-fA-F]+)$/s ) {
    $in = hex $1;
  } # else it's decimal, or <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	31658	31858	
==>7,
			"." => 49
		},
		DEFAULT => -43,
		GOTOS => {
			'tableconstructor' => 46,
			'args' => 52,
			'key' => 53
		}
	},
	{#State 109
		ACTIONS => {
			"," => 151
		},
		DEFAULT => -9
	} <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	927	1202	
==>'invokecc'],
  ['',             'restore', 'P1'],
  ['',             'restore', 'P6'],
  ['',             'set', 'P5', 'P6[1]'],
  ['',             'typeof', 'I0', 'P5'],
  ['',             'eq', 'I0', '.Undef', 'write_KET'],
  ['',             'ne', 'I0', '.Array', 'write_DO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	308310	308601	
==>it",
                  "FLAGS" => ":base_debug",
                  "ARGDIRS" => [],
                  "TYPE" => "function",
                  "CODE" => 359,
                  "ARGS" => [],
                  "BODY" => "#line 42 \"src/ops/debug.ops\"\n    PDB_t *pdb;\n\n    if (!(interpreter-> <==
2	/Users/nnunley/parrot/config/gen/platform.pm	3967	4095	
==>before the parrot.h include.
    if (-e "config/gen/platform/$platform/begin.c") {
        local $/ = undef;
        open IN_C, " <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	5776	5961	
==>n up to nearest existing ancestor
		unshift @dirs, $dir;
		$dir = dirname($dir);
	    }
	    foreach (@dirs) {
		mkdir($_, 0777) or die "mkdir $_: $!\n";
	    }
	}
    }
}
print("Install <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7249	7413	
==>nt STDERR "Reduce using rule ".-$act." ($lhs,$len): ";

                $act
            or  $self->YYAccept();

            $$dotpos=$len;

                u <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6913	7070	
==>nt STDERR "Reduce using rule ".-$act." ($lhs,$len): ";

                $act
            or  $self->YYAccept();

            $$dotpos=$len;

                u <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	1827	2070	
==>>get('verbose') == 2;

    print "Setting Configuration Data:\n(\n" if $verbose;

    while (my ($key, $val) = splice @_, 0, 2) {
        print "\t$key => ", defined($val) ? "'$val'" : 'undef', ",\n"
            if $verbose;
        $self->{c}{ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	34614	34776	
==>%" => 76,
			"*" => 80,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -59
	},
	{#State 126
		ACTIONS => {
			"-" => 72,
			"%" => 76,
			"*" => 80,
			" <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17278	17420	
==>elf->_gensym ();
  my $return = $self->_save_1 ('I');

  _num_arg ($node, 1, 'length');

  my $list = $self->_generate(_get_arg($node,1));

  $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	32768	32938	
==>w AssignOp( $parser,
            'result' => $state,
            'arg1'   => $expr->[0],
        );
        $expr = shift @{$exprs};
    }
    my $var = new_tmp( $pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714577	714675	
==>st io = PIO_STDOUT(interpreter);\n  if (s && string_length(interpreter, s)) {\n    if (PIO_softspac <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715500	715598	
==>st io = PIO_STDOUT(interpreter);\n  if (s && string_length(interpreter, s)) {\n    if (PIO_softspac <==
2	/Users/nnunley/parrot/lib/Test/More.pm	8747	8935	
==>ose grammatical pedants out there, there's an C<isn't()>
function which is an alias of isnt().

=cut

sub is ($$;$) {
    $Test->is_eq(@_);
}

sub isnt ($$;$) {
    $Test->isnt_eq(@_);
}

* <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	29581	29686	
==>traction subroutines is
exactly the same as in a scalar context, except (of course) that the
extracted sub <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104161	1104324	
==>= pmc_new_init(interpreter, type, {{\@3}});\n\t{{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105376	1105539	
==>= pmc_new_init(interpreter, type, {{\@3}});\n\t{{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/tools/docs/pod_errors.pl	426	556	
==>Parrot::Docs::Directory->new(shift || '.');
my $ignore = shift || '^(icu)$';

foreach my $file ($dir->files(1, $ignore))
{
	next un <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	844	943	
==>less UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess "Op is not scalar!" if r <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	856	955	
==>less UNIVERSAL::isa($left, 'Jako::Construct::Expression::Value');
  confess "Op is not scalar!" if r <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	34879	35026	
==>_times,
  '/'                => \&_op_divide,
  'abs'              => \&_op_abs,
  'quotient'         => \&_op_quotient,
  'remainder'        => \&_ <==
2	/Users/nnunley/parrot/config/auto/byteorder.pm	669	808	
==>rder testing program: $!";
    cc_clean();

    chomp $byteorder;

    if ($byteorder =~ /^1234/) {
        $conf->data->set(
            by <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	1580	1690	
==>ending on the context in which the method is called.

    $contents = $file->read;
    @lines = $file->read;

= <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	30617	30726	
==>r) = extract_delimited($text, "'");

C<extract_delimited> takes up to four scalars (the input text, the
delimi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	74042	74215	
==>",
                              "s"
                            ],
                  "BODY" => "#line 1156 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(inte <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3683	3792	
==>ock->kind eq 'module';

      my %module_props = $self->block->props;

      $self->SYNTAX_ERROR("Sub declarat <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6347	6456	
==>ock->kind eq 'module';

      my %module_props = $self->block->props;

      $self->SYNTAX_ERROR("Sub declarat <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1317	1473	
==>t code.

=cut

sub pc
{
    my $self = shift;

    if (@_)
    {
        $self->{PC} = shift;
    }
    else
    {
        return $self->{PC};
    }
}

=item <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	926	1082	
==>t code.

=cut

sub pc
{
    my $self = shift;

    if (@_)
    {
        $self->{PC} = shift;
    }
    else
    {
        return $self->{PC};
    }
}

=item <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2133	2237	
==>ref";
}

=item C<opsarraytype()>

The ops array type is C<void *>.

=cut

sub opsarraytype
{
    return ' <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	8386	8530	
==>le} ? "$file_branch_coverage{$source_file} %" : "n/a" ]}</a></td>
             <td><a href="$outfile_base.calls.html">@{[$file_call_coverage{$sou <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	15525	15654	
==>st::Builder to find
            my $call_pkg = $builder->exported_to() || '';
            # die Dumper( $code, $expected, $desc, \ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	18076	18205	
==>st::Builder to find
            my $call_pkg = $builder->exported_to() || '';
            # die Dumper( $code, $expected, $desc, \ <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	10813	10979	
==>reate your class at compile time.  The main reason
for doing this is obvious, so your class acts like every other class in
Perl.  Creating your class at compile time w <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6656	6771	
==>($pmc) = @_;

    if (needs_build("$pmc.dump", "$pmc.pmc")) {
        run("$PMC2C --dump $pmc.pmc")
          or die <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6867	6982	
==>($pmc) = @_;

    if (needs_build("$pmc.dump", "$pmc.pmc")) {
        run("$PMC2C --dump $pmc.pmc")
          or die <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	807	1124	
==>utput_print("\"$part\"");
        }
    }
    return @ops;
}

sub render {
    my ($self, $op) = @_;

    die if ! ref $op;
    die if $op->{name} eq 'LABEL';
    my $method = "output_$op->{name}";
    $DB::single = 1 if $method =~ /HASH/;
    $DB::single = 1 if $method eq "output_";
    return $self->$method(@{ $op- <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5052	5149	
==>f->output_label_use($failLabel);
    my $pass = $self->output_label_use($passLabel);

    while (@ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4727	4824	
==>f->output_label_use($failLabel);
    my $pass = $self->output_label_use($passLabel);

    while (@ <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	1814	1976	
==>path . ": $!";
    my @lines = <$fh>;
    
    $fh->close;
    
    return wantarray ? @lines : join '', @lines;
}

=item C<write(@lines)>

Writes the specified li <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12354	12497	
==>/xeg;

    # Rewrite SUPER(args...)
    s/SUPER             # Macro: SUPER
      \(\s*(.*?)\)      # capture argument list
     /"$supermethod(" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8921	9016	
==>abel);\n    if (!fe)\n\tinternal_exception(1, \"branch_cs: fixup for '%s' not found\", label);\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10037	10132	
==>abel);\n    if (!fe)\n\tinternal_exception(1, \"branch_cs: fixup for '%s' not found\", label);\n <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	5384	5486	
==>output_isnt( $example_f, $expected, @todo )>

Determine the language from the extension of C<$example_f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46965	47068	
==>0) { Interp_debug_SET(interpreter,   {{\@1}}); }\n  else         { Interp_debug_CLEAR(interpreter, PARRO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47748	47851	
==>0) { Interp_debug_SET(interpreter,   {{\@1}}); }\n  else         { Interp_debug_CLEAR(interpreter, PARRO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	3	134	
==>perl -w
#
# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
#
# This file is generated automatically from 'src/ops/core.ops'.
# Any change <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4112	4210	
==>c stack_depth

# Get type (so we can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assig <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2528	2626	
==>c stack_depth

# Get type (so we can find register type).
${PTEMP0} = ${DTYPES}[${ITEMP0}]

# Assig <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	603568	603822	
==>LE_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640702	640954	
==>LE_name(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	2690	2841	
==>e various
directives have been replaced.

=head2 PMC File Syntax

The basic syntax of a PMC file is

=over 4

=item 1.

A preamble, consisting of code t <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8088	8266	
==>$found = $self->find_symbol($name);

  return $found ? $found->type : undef;
}


###############################################################################

=head2 BLOCK->kin <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	16510	16674	
==>'quot' or $name eq 'apos' or $name eq 'gt';
    
      $value = hex $1 if $value =~ m/^x([a-fA-F0-9]+)$/s;
      print "ILLEGAL VALUE $value" unless $value =~ m/^\d+ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	25727	25861	
==>open_testhandles {
    return if $Opened_Testhandles;
    # We dup STDOUT and STDERR so people can change them in their
    # test suit <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	363	481	
==>g {
    my $self = shift;
    my ( $path_to_parrot, $path_to_language, $count ) = @_;
 
    
    my $test_prog_args = $ <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	381	493	
==>g {
    my $self = shift;
    my ( $path_to_parrot, $path_to_language, $count ) = @_;

    my $test_prog_args = $ <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	4612	4750	
==>ull_name;
    my $n = $ParrotOps::optable{$opname} ;
    if ($n != $_->{CODE}) {
	die "op number mismatch ops.num: $n core.ops: $_->{CODE}" <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	48914	49286	
==>a\lua51.yp"
{
            PushScopeF( $_[0] );
            PushScope( $_[0] );
        }
	],
	[#Rule 27
		 'stat', 4,
sub
#line 166 "Lua\lua51.yp"
{
            my $var = BuildVariable( $_[0], $_[3] ); 
            BuildAssigns( $_[0], [$var], [ $_[4] ] );
        }
	],
	[#Rule 28
		 '@9-2', 0,
sub
#line 171 "Lua\lua51.yp"
{
            PushScopeF( $_ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	7038	7405	
==>ubop_startset;
        foreach (@subop_startset) {
            return 0 if exists($start{$_});
        }
    }

    return 1;
}

sub dfa_safe {
    my $op = shift;

    my $dfa_safe_subexprs = 1;
    foreach (@{ $op->{args} }) {
        $dfa_safe_subexprs = 0, last if ! $_->dfa_safe();
    }

    return 1 if $dfa_safe_subexprs && $op->disjoint();

    # Insert bette <==
2	/Users/nnunley/parrot/lib/Test/More.pm	18237	18439	
==>(), except it requires the $module or $file.

=cut

sub require_ok ($) {
    my($module) = shift;

    my $pack = caller;

    # Try to deterine if we've been given a module name or file.
    # Module na <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514191	514513	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515071	515393	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	19979	20115	
==>ctions of " .
                "more than 2 bytes in rule $_->{'name'}\n";
        }
    }

    # If we have 3 or less rules, dispatch dir <==
2	/Users/nnunley/parrot/config/auto/signal.pm	1609	1710	
==>an();

    # now generate signal constants
    open O, ">runtime/parrot/include/signal.pasm" or die "C <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	761	856	
==>e parameter C<$unexpected> is the unexpected result.
The parameter C<$description> should descri <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	127	254	
==>rd  $

=head1 NAME

Parrot::OpTrans::C - Ops to C Code Generation

=head1 DESCRIPTION

C<Parrot::OpTrans::C> inherits from C<Par <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	14241	14385	
==>starts with $what. That means that the
					  production can never successfully match, so it was
					  optimized out of the final parser$caveat. <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	50393	50504	
==>=~ m/$VARIABLEMK/gco)
			{
				_parse("an perl variable marker", $aftererror,$line);
				$item = new Parse::RecD <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	568	681	
==>nfess "Left is not defined!" unless defined $left;
  confess "Op is not defined!" unless defined $op;
  confess "R <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	580	693	
==>nfess "Left is not defined!" unless defined $left;
  confess "Op is not defined!" unless defined $op;
  confess "R <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53585	53777	
==>} else { undef }',
					      $lookahead,$line,"<resync>");
				$prod and $prod->additem($item)
				      or  _no_rule("<resync>",$line);
			}
			elsif ($grammar =~ m/(?=$RESYNCPATMK)/gco
				a <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20908	21000	
==>y ($self, $namespace, $rule) = @_;
	
''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Tr <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33713	33805	
==>y ($self, $namespace, $rule) = @_;
	
''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Tr <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	3070	3190	
==>urn 20 if ($op eq "-");
	return 30 if ($op eq "mod");
	return 40 if ($op eq '\\');
	return 50 if ($op eq "*");
	return 50 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5799	5909	
==>t;
    my $rel_path = shift;
    my @rel_paths = ();
    
    if ( $source->relative_path_is_directory($rel_pat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81742	81999	
==>" => [
                              "p",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 1196 \"src/ops/core.ops\"\n  internal_exception(1, \"don't use compile - just inv <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10972	11054	
==>\"src/ops/core.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->control <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11761	11843	
==>\"src/ops/core.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->control <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	36793	36921	
==>umeric?'    => \&_op_char_numeric_p,
  'char-whitespace?' => \&_op_char_whitespace_p,
  'char-upper-case?' => \&_op_char_upper_ca <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10377	10467	
==>{PTEMP3} = ${STYPES}[${ITEMP2}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP3}["reg_type_short"]
${S <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7761	7851	
==>{PTEMP3} = ${STYPES}[${ITEMP2}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP3}["reg_type_short"]
${S <==
2	/Users/nnunley/parrot/lib/Test/More.pm	23850	23949	
==>e SKIP vs. TODO?

B<If it's something the user might not be able to do>, use SKIP.
This includes opt <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	606	717	
==>tem C<--no-lines>

Do not generate C<#line> directives in the generated C code.

=item C<--renum>

Renumber opco <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216914	217015	
==>ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217854	217955	
==>ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	4232	4369	
==>e->new(\%{\$init{'$name'}}) } $cmt\n";
           $out .= "       elsif (UNIVERSAL::isa(\$init{'$name'}, '$type'))\n";
            $out .= <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17559	17781	
==>ate 43
		DEFAULT => -89
	},
	{#State 44
		DEFAULT => -94
	},
	{#State 45
		DEFAULT => -47
	},
	{#State 46
		DEFAULT => -93
	},
	{#State 47
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	57340	57524	
==>ed($grammar,'<');
					$code })
			{
				_parse("an error marker", $aftererror,$line,$code);
				$code =~ /\A\s*<error\??:(.*)>\Z/s;
				$item = new Parse::RecDescent::Error($1,$lookahe <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	411	535	
==>_types = (
  'while'    => { PREFIX => "_W", NEXT => 'CONT', REDO => 'REDO', LAST => 'LAST' },
  'if'       => { PREFIX => "_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	432	556	
==>_types = (
  'while'    => { PREFIX => "_W", NEXT => 'CONT', REDO => 'REDO', LAST => 'LAST' },
  'if'       => { PREFIX => "_ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	19847	20024	
==>e_l]->[4]);
    my $targ = "pc_xxx";
    my $label = '';
    if (!defined $op) {
	goto plain;
    }
    if ($opcode eq 'Label') {
	$label = "pc_" . $code[$code_l]->[3] . ":";
	$c <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	2573	2696	
==>nfig data.
	for (keys %config) {
		$config_pm =~ s/\${$_}/$config{$_}/g;
	}
	
	# Write.
	open $fh, "> config/N2PConfig <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10940	11030	
==>$a,$b,$c,$_[15],10,0xbd3af235,/* 62 */
II,$c,$d,$a,$b,$_[6],15,0x2ad7d2bb,/* 63 */
II,$b,$c <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	920	1022	
==>h {
    my ($self, $class, $failLabel) = @_;
    return "rx_oneof P0, $class, ".$self->output_label_use <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	6566	6698	
==>y @op_funcs;
my @op_func_table;
my @cg_jump_table;
my $index = 0;
my ($prev_source, $prev_func_name, $prev_def);

foreach my $op ($op <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3665	3766	
==>ile') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@p <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3769	3870	
==>ile') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@p <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	12658	12795	
==>0 goto done
    unless iter goto done
    
    $P1 = shift iter
    push result, $P1

    dec op1
    goto pos_loop

done:
    .return (re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716705	717012	
==>n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_newline",
                  "FLAGS" => ":base_io",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	467	602	
==>ot::OpTrans );

=item C<suffix()>

The suffix is C<'_cg'>.

=cut

sub suffix
{
    return "_cg";
}

=item C<core_prefix()>

The core pre <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	2351	2529	
==>3:20.183054Z $;

my $nm_cmd = 'nm';
my $nm_opt = '';
my $nm_try = qx(nm -V 2>&1);
my $nm_gnu;
my $nm_ro; # can tell apart read-only (const) data sections

my ($Code, $Data, $Init, <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	6350	6452	
==>gth $d;
    Carp::croak "\"$d\" isn't a valid directive name"
     unless $d =~ m/^[a-zA-Z][a-zA-Z0-9]* <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	7144	7246	
==>gth $d;
    Carp::croak "\"$d\" isn't a valid directive name"
     unless $d =~ m/^[a-zA-Z][a-zA-Z0-9]* <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	845	1070	
==>.dump
          pmc1        => $pmc1_dump,
          pmc2        => $pmc2_dump,
          ... );

Creates a new library object. If the C<$options> hash contains a
C<library> key its value will be used for the library name.

=c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037704	1037816	
==>s/var.ops\"\n    Parrot_store_global(interpreter, NULL, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038485	1038597	
==>s/var.ops\"\n    Parrot_store_global(interpreter, NULL, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	8428	8632	
==>('x'); # hash element value
    $obj->h('x', 'new value');          # assign to hash element

                                    # class type accessor:
    $element_value = $obj->c;           # object ref <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	26586	26746	
==>$c;
	print <<EOC;
        \t $cmt
EOC
    }
    push @stack, [$n, $c, 'P'];
}

sub STORE_FAST
{
    my ($n, $c, $cmt) = @_;
    my $tos = pop @stack;
    $fast[$ <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	2035	2153	
==>rmat-security -Wpacked -Wdisabled-optimization -falign-functions=16 -Wno-shadow',
             'cg_flag' => '-DHAVE_COM <==
2	/Users/nnunley/parrot/lib/Test/More.pm	13278	13448	
==>nor isa() overrides
        local($@, $!);  # eval sometimes resets $!
        my $rslt = eval { $object->isa($class) };
        if( $@ ) {
            if( $@ =~ /^Can't c <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	1207	1329	
==>figure::Step::_run_command("$cc -o test test.c", 'test.cco', 'test.cco')
            and confess "C compiler failed (see te <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	18328	18525	
==>defined $::RD_TRACE;').'
		my $thisprod = $thisrule->{"prods"}[' . $self->{"number"} . '];
		' . (defined $self->{"error"} ? '' : '$text = $_[1];' ) . '
		my $_savetext;
		@item = (q{' . $rule->{"na <==
2	/Users/nnunley/parrot/config/auto/funcptr.pm	874	1071	
==>ty to cast from void pointers to function
pointers for its JIT support.

Your compiler does not appear to support this behavior with the
flags you have specified.  You must adjust your settings in o <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	69647	69781	
==>NT (or -RD_HINT if you\'re using "perl -s")
		       for hints on fixing these problems.');
	}
	if ($ERRORS) { $ERRORS=0; return }
	ret <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	2259	2414	
==>T'
);

#
# Look at the command line options
#
sub Usage {
    pod2usage(-exitval => 1, -verbose => 0, -output => \*STDERR);
}

my ( $nolines_flag, $help_fla <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	14735	14855	
==>');
        die "Empty MMD body near '$total_body'"
            if (!$body_part);
        $body_part = substr($body_part, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	723	830	
==>nless $_[1] =~ m/^[A-Z]$/s;
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1372	1533	
==>{ name => $s, data => $streams->{$s}, },
            test   => { name => $t, data => $tests->{$t},   },
        };
    }
}


push @EXPORT => keys %{$test_map};

u <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	1814	1960	
==>suchlike things. This is perfectly legal -- in fact it's what
   we've documented should be done -- but the problem is that the
   stack base point <==
2	/Users/nnunley/parrot/tools/util/pirtidy.pl	914	1013	
==>y, file3.tdy, ...)

=head1 DESCRIPTION

pirtidy reads a pir file and writes an indented, reformatted <==
2	/Users/nnunley/parrot/config/auto/jit.pm	4609	4796	
==>cutable malloced memory
        if (-e "config/auto/jit/test_exec_$osname.in") {
            print " (has_exec_protect " if $verbose;
            cc_gen("config/auto/jit/test_exec_$osname. <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	3833	3929	
==>: \$(NONGEN_HEADERS) $parent_headers src/pmc/pmc_$pmc.h

    # build list of libraries for link l <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	58110	58269	
==>implemented. Or did you misspell
					\"$code\"?");
				}
				else
				{
					_error("Untranslatable item encountered: \"$code\"",
					       $line);
					_hin <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	4711	4834	
==>h my $arg (@{ $t->{args} }) {
            if (UNIVERSAL::isa($arg, 'Regex::Ops::Tree')) {
                # $arg is a refere <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	10061	10184	
==>h my $arg (@{ $t->{args} }) {
            if (UNIVERSAL::isa($arg, 'Regex::Ops::Tree')) {
                # $arg is a refere <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7010	7133	
==>CONSTRUCT NEW DIRECTIVE OBJECTS
        my $new = [$1, {'start_line' => $self->{'line_count'}}, $2];
         # Note that in <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	2298	2445	
==>$tokens) {
    #print Dumper $tokens;
    ($count,$tree) = _build_tree($tokens,$count);
    #_dataflow($tree);
    #print Data::Dumper->Dump ([$coun <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4494	4618	
==>} } == 0) {
        delete $self->{name};
        delete $self->{args};
        return $self->op('nop', [], %$self);
    } el <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5631	5755	
==>} } == 0) {
        delete $self->{name};
        delete $self->{args};
        return $self->op('nop', [], %$self);
    } el <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131271	131432	
==>i"
                            ],
                  "BODY" => "#line 306 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132126	132287	
==>i"
                            ],
                  "BODY" => "#line 306 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  "LA <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	10803	10935	
==>table { margin:      15px; }
    dt    { font-weight: bold; }
    dd+dt { margin-top:  1em;  }
    .leftsep  { padding-left: 10px;  } <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	8828	8954	
==>n, C<struct>.
Given a list of element names and types, and optionally
a class name, C<struct> creates a Perl 5 class that imple <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	5952	6117	
==>graph_buffer();
       # by now it's safe to consider the previous paragraph as done.
      $cut_handler->(map $_, $line, $self->{'line_count'}, $self)
       if $cut <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8674	8780	
==>P0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_END_${CURIC}

# Get type of return value and build <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7246	7352	
==>P0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_END_${CURIC}

# Get type of return value and build <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	2063	2163	
==>abled-optimization -falign-functions=16 -Wno-shadow',
             'cg_flag' => '-DHAVE_COMPUTED_GOTO <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	2630	2847	
==>al pmc regex_sub
    .local pmc result
    .local int matched
    .local pmc stack
    stack = new .ResizablePMCArray
    result = _default(1, input_string, 0, stack)
    matched = result["!RESULT"]
    if matched goto <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5081	5191	
==>bug)=$$self{DEBUG};
#DBG>	my($dbgerror)=0;

#DBG>	my($ShowCurToken) = sub {
#DBG>		my($tok)='>';
#DBG>		fo <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4836	4941	
==>bug)=$$self{DEBUG};
#DBG>	my($dbgerror)=0;

#DBG>	my($ShowCurToken) = sub {
#DBG>		my($tok)='>';
#DBG>		fo <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6649	6796	
==>get)

            unless match goto match_fail
          match_success:
            print "matched"
            goto match_end
          match_fail: <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7667	7813	
==>get)
            unless match goto match_fail
          match_success:
            print "matched"
            goto match_end
          match_fail: <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1435	1550	
==>ser.

1;

__END__

# TODO: let it be an option whether a given subclass even wants little treelets?


__END__

=head <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	922798	922913	
==>ps\"\n    {{\@1}}->vtable->set_string_native(interpreter, {{\@1}},\n        Parrot_psprintf(interpreter, {{\@2}}->vt <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79548	79820	
==>class_UnManagedStruct);\n      PMC_data({{\@1}}) = p;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81069	81341	
==>class_UnManagedStruct);\n      PMC_data({{\@1}}) = p;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	46141	46249	
==>spec = "";
	$lines = _linecount($grammar) unless $lines;
	$self->{_check}{itempos} = ($grammar =~ /\@itempos\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102829	103135	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100625	100904	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inli <==
2	/Users/nnunley/parrot/lib/Test/More.pm	5864	5977	
==>led.  Everything
else is just gravy.

All of the following print "ok" or "not ok" depending on if the test
succeed <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	992	1098	
==>n";
}

# Pre and post branch operation hooks.
sub pre_branch {
	die "pre_branch not implemented for current <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	45432	45576	
==>, length($1))
        ];
        #print "Formatting <$new_line[-1][-1]> as $new_line[-1][0]\n";
      }
    }
    my @nixed =    
      splice @$ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4502	4620	
==>i = 0 to 1
for j = 0 to 1
print i; j;
if i and j then a$="True  " else a$="False "
if i or  j then b$="True  " else b$= <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17573	17691	
==>i = 0 to 1
for j = 0 to 1
print i; j;
if i and j then a$="True  " else a$="False "
if i or  j then b$="True  " else b$= <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	142	299	
==>ete python bytecode to PIR translator
# It's purpose is just to investigate missing pythonic features
# in Parrot and how to translate Python stack-oriented b <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2767	2878	
==>~~~~~~~~~~~~~

sub new {
  my $new = shift->SUPER::new(@_);
  #$new->nix_X_codes(1);
  $new->nbsp_for_S(1);
  $n <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3123	3232	
==>~~~~~~~~~~~~~
sub new {
  my $new = shift->SUPER::new(@_);
  $new->nix_X_codes(1);
  $new->nbsp_for_S(1);
  $n <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16125	16220	
==>table methods. C<$line> is used to accumulate
the number of lines, C<$out_name> is the name of t <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	6767	6875	
==>@{$opcodes{$pc}->{args}});
	    my $source = $op->source($trans);

	    $new_pc = $pc + $op->size;
	    $sour <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3653	3765	
==>le!")
        unless $self->block->kind eq 'module';

      my %module_props = $self->block->props;

      $self- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6317	6429	
==>le!")
        unless $self->block->kind eq 'module';

      my %module_props = $self->block->props;

      $self- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875980	876240	
==>[
                              "s",
                              "sc",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_subst <==
2	/Users/nnunley/parrot/config/init/hints/cygwin.pm	642	752	
==>appears
    # parrot can get by with simply using gcc -shared, so we override the
    # perl5 Configure default <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	21022	21128	
==>s,	$rd1pos-$str1pos,	# STR/PAT
		$rd1pos,	1,			# RIGHT DEL
		$ld2pos,	$second_arg,		# 2ND LDEL (MAYBE)
		$s <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	1104	1218	
==>ou can write your tests in your language itself and run them
through your compiler itself.  If you can load PIR lib <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3148	3242	
==>turn $self->do_middle if $self->bare_output;
  return
   $self->do_beginning && $self->do_middl <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4517	4611	
==>turn $self->do_middle if $self->bare_output;
  return
   $self->do_beginning && $self->do_middl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	12937	13057	
==>],
                  "BODY" => "#line 231 \"src/ops/core.ops\"\n  opcode_t * loc;\n  stack_push(interpreter, &CONTEXT(int <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13781	13901	
==>],
                  "BODY" => "#line 231 \"src/ops/core.ops\"\n  opcode_t * loc;\n  stack_push(interpreter, &CONTEXT(int <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2529	2702	
==>$source);
    check_dev($file);
}

sub check_dev {
    my ($file) = @_;

    return unless ($file =~ /^[^\/]*\.c$/);

    my $dev_file = $file; $dev_file =~ s/(.*)\.c$/docs\/ <==
2	/Users/nnunley/parrot/config/inter/types.pm	215	346	
==>he user which size integer, floating-point number and opcode types should
be.

=cut

package inter::types;

use strict;
use vars qw( <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	399	577	
==>he
actual compiler for that command.

Many builtins need to use the same type of code, and do the same kind
of optimizations. By making the inlined versions more declarative, this <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19458	19578	
==>}, "\tgoto DO_$do->{jump}\n";
	}
	push @{$code{$seg}->{code}}, "AFTERDO_$do->{jump}:\n";
}

sub parse_type {
		my(@types) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1238	1335	
==>ag(...)

A shortcut for $token->tagname(...)

=item $token->is_tag(I<somestring>) or $token->is_ta <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1668	1765	
==>ag(...)

A shortcut for $token->tagname(...)

=item $token->is_tag(I<somestring>) or $token->is_ta <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26443	26597	
==>' => 44
		},
		GOTOS => {
			'tableconstructor' => 46,
			'args' => 135,
			'key' => 136
		}
	},
	{#State 82
		ACTIONS => {
			"-" => 24,
			'NA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42027	42337	
==>RS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 53,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 727 \"src/ops/core.ops\"\n  do_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5944	6055	
==>(!${bs}op_lib.op_func_table)
            ${bs}op_lib.op_func_table = (op_func_t *) $cg_func(0, 0);
END_C
}

=ite <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6233	6348	
==>ods, but in order relative to code.
      
    } elsif($line =~ m/^\s*$/s) {  # it's a blank line
      if(!$self->{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2167	2260	
==>ollowing shortcuts:

=item $token->is_start

This is a shortcut for C<< $token->type() eq "sta <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2440	2556	
==>g_name) 
      unless defined $formal_arg_type;

    $self->INTERNAL_ERROR("Can't determine type of actual argument ( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2140	2256	
==>g_name) 
      unless defined $formal_arg_type;

    $self->INTERNAL_ERROR("Can't determine type of actual argument ( <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	9825	10022	
==>Config.pm'};
    $path   =~ s{ /lib/Parrot/Config.pm \z}{}xms;
    if ( $path eq q{} ) {
         $path = File::Spec->curdir();
    }

    return $path;
}

# 
# private methods, should not be used b <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	293	426	
==>PTION

A documentation section describing all the dynamic PMCs.

=head2 Class Methods

=over

=cut

package Parrot::Docs::Section::Dyn <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29309	29402	
==>= @_;
	
my $code = ''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying terminal: [' . <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31406	31499	
==>= @_;
	
my $code = ''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying terminal: [' . <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9466	9603	
==>|| 'pod');
        
      } elsif ($tagname eq 'Data') {
        my $next = $self->get_token;
        next unless defined $next;
        u <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2561	2662	
==>{[$op->full_name]}"
        unless exists $arg_maps{$type};

    return sprintf($arg_maps{$type}, $num <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4427	4528	
==>{[$op->full_name]}"
        unless exists $arg_maps{$type};

    return sprintf($arg_maps{$type}, $num <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	4909	5039	
==>ie "ops2c.pl: Could not mkdir $incdir $!!\n";
}

open HEADER, ">$header"
    or die "ops2c.pl: Cannot open header file '$header' fo <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1569	1671	
==>${STACK$register_num} = ${STEMP0}

# Emit pop code.
${INS} = concat ${STACK$register_num}
${INS} = conc <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3279	3381	
==>${STACK$register_num} = ${STEMP0}

# Emit pop code.
${INS} = concat ${STACK$register_num}
${INS} = conc <==
2	/Users/nnunley/parrot/config/auto/env.pm	459	599	
==>brary has setenv / unsetenv';
@args        = qw(verbose);

sub runstep
{
    my ($self, $conf) = (shift, shift);

    my $verbose = $conf->op <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33548	33678	
==>ere we /didn't/ push to @$para
            if($paras->[0][0] eq '~Para') {
              DEBUG and print "Assimilating following ~P <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35361	35491	
==>ere we /didn't/ push to @$para
            if($paras->[0][0] eq '~Para') {
              DEBUG and print "Assimilating following ~P <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19746	19923	
==>State 57
		ACTIONS => {
			'NAME' => 4,
			'REPEAT' => 5,
			'BREAK' => 110,
			'FOR' => 6,
			"(" => 8,
			'RETURN' => 112,
			'IF' => 10,
			'FUNCTION' => 12,
			'DO' <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	17114	17285	
==>d    => 'Breed',
    ];


    my $cat = Cat->new( name     => 'Socks',
                        kittens  => ['Monica', 'Kenneth'],
                        markings => { sock <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	1412	1523	
==>domize read redim rem reset restore resume
				return rmdir rset run
			screen seek select case shared shell sin <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	14248	14358	
==>/);
  $Test->maybe_regex('/$regex/');

Convenience method for building testing functions that take regular
expr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	308623	308724	
==>= (PDB_t *)mem_sys_allocate_zeroed(sizeof(PDB_t));\n\n        interpreter->pdb = pdb;\n        pdb->cu <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	260	371	
==>>.

=cut

package gen::core_pmcs;

use strict;
use warnings;

use base qw(Parrot::Configure::Step::Base);

use P <==
2	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	560	677	
==>interpreter.
#
# Subsequent runs can be done with:
#    parrot.exe out.pbc
#
open(T, ">merged_basic.pasm") || die;

pr <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	53428	53532	
==>lassless
  # Not the most brilliant routine, but passable.
  # Don't give it a cyclic data structure!
  m <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	28568	28688	
==>[1]
EOC
	}
	my $x = (pop @stack)->[1];
	print <<EOC;
	$x\["_message"\] = "Foo"
EOC
	$throw = "throw $x # TODO create, arg <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22460	22587	
==>> 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 72
		ACTIONS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943912	944210	
==>});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "charset",
                  "FLAG <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8886	9084	
==>'';
                next;
            };

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Forced Error recovery.\n";

            $$check='';

        };

        #Error
            $$errs <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8488	8674	
==>'';
                next;
            };

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Forced Error recovery.\n";

            $$check='';

        };

        #Error
            $$errs <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	9242	9388	
==>ILTIN_DISPLAY(1,"$string")
PRINT
		} else {
			push @{$code{$seg}->{code}}, <<PRINT;
	find_global \$P0, "PRINTCOL"
	\$P0["value"]=0
	store_global " <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	9012	9192	
==>your test names.
    Very confusing.
ERR

    my($pack, $file, $line) = $self->caller;

    my $todo = $self->todo($pack);
    $self->_unoverload(\$todo);

    my $out;
    my $resu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083319	1083588	
==>E" => "function",
                  "CODE" => 1202,
                  "ARGS" => [
                              "p",
                              "ic",
                              "kc"
                            ],
                  "BODY" => "#line 145 \"src/ops/ex <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	617352	617556	
==>16) | right->vtable->base_type;\n    if (lru->u.type == lr_types) {\nrunit_v_pp:\n\t((mmd_f_v_pp)lru->f.real_function)(interpreter, left, right);\n\t{{+=4}};\n    }\n    if (mic->pic) {\n\tlru = mic->pic-> <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	18145	18301	
==>TRACE?'':'
		Parse::RecDescent::_trace(q{Trying production: ['
					  . $self->describe . ']},
					  Parse::RecDescent::_tracefirst($_[1]),
					  q{' . $ru <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	196	304	
==>&DEBUG }

sub new {
  my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	195	303	
==>&DEBUG }

sub new {
  my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	4051	4306	
==>rser,
                'prolog' => 1,
                'result' => $defn,
                'arg1'   => '.Lua' . ucfirst($type),
            );
            unless ( $type eq 'nil' ) {
                if ( $type eq 'string' ) {
                    my $st <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835755	835841	
==>EXT(interpreter->ctx)->user_stack, string_copy(interpreter, {{\@1}}), STACK_ENTRY_STRIN <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836508	836594	
==>EXT(interpreter->ctx)->user_stack, string_copy(interpreter, {{\@1}}), STACK_ENTRY_STRIN <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	4839	5159	
==>, $pst, $sel );
    $cnt = 0;
    foreach $name (@methods){
        if ( do { no strict 'refs'; defined &{$class . "::$name"} } ) {
            warnings::warnif("function '$name' already defined, overrides struct accessor method");
        }
        else {
            $pre = $pst = $cmt = $sel = '';
            if( defi <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	61657	61806	
==>ifts, reduces, accept...)
        #    0x08         Parse Stack dump
        #    0x10         Error Recovery tracing
    );

    close $parser-> <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	50151	50359	
==>ng delimiter bracket. If found, call
C<extract_codeblock> recursively to eat the embedded block. If the
recursive call fails, return an error. Otherwise, go back to step 1.

=item 4.

Unconditionally match a b <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	10502	10616	
==>ners{'VerbatimFormatted'} = 1;
  }

  my $token_count = 0;
  my $title;
  my @to_unget;
  my $state = 0;
  my $dept <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2430	2524	
==>q{\tfind_global _GLOBALS, "COMMON"\n};
				foreach(@saves) {
					$edit.=qq{\t_GLOBALS["$_"]=$_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	3916	4092	
==><Parrot::OpFile> to perform ops
file macro substitutions.

=over

=item C<access_arg($type, $value, $op)>

Implemented in subclasses to return the C code for the specified op
ar <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	425	567	
==>ass = shift;
  my ($compiler) = @_;

  return bless {
    FILE     => undef,
    LINE     => undef,
    TOKENS   => [ ],
    POS      => -1
  } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451942	452268	
==>"add",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 518,
                  "ARGS" => [
                              "i" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	2667	2840	
==>I<somenum>)> mode will make
Pod::Simple (et al) run rather slower, since &Pod::Simple::DEBUG won't
be a constant sub anymore, and so Pod::Simple (et al) won't compile with
co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221126	221475	
==>PARROT_JUMP_RELATIVE",
                  "NAME" => "gt_num",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	36847	36936	
==>e?' => \&_op_char_whitespace_p,
  'char-upper-case?' => \&_op_char_upper_case_p,
  'char-l <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2232	2368	
==>f->directory_with_name('examples')->directory_with_name('c'),
        $self->directory_with_name('src'),
        $self->directory_with_na <==
2	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	663	812	
==>tarray ? @parrot_version : $parrot_version;
    }

    # Obtain the official version number from the VERSION file.
    open my $VERSION, '<', 'VERSION <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	47061	47158	
==>P
		}
		elsif ($grammar =~ m/$POSLOOKAHEAD/gco)
		{
			_parse("a positive lookahead",$aftererror,$ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21031	21197	
==>cDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;').'
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) .'

		$_tok <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	5875	5972	
==>use Test::More instead of Test::Simple in your
programs and things will still work).

=item L<Test <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2213	2344	
==>returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was f <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2608	2739	
==>returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was f <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	10023	10162	
==>ed to Pugs, new test functions will be defined to facilitate the
testing of those features. For more information see the FUTURE PLANS
sectio <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	68441	68634	
==>~ s/\A\s+//;
			$lookahead = $lookahead<0
					? 'a negative lookahead ("...!")'
					: 'a positive lookahead ("...")' ;
			_warn(1,"Found two or more lookahead specifiers in a
			       row.",$ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6210	6344	
==>$self, $n) = @_;
    return qq!<rx_match>{"$n"}->[1] = undef; # delete group $n!;
}

sub output_atend {
    my ($self, $failLabel) = @_ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32118	32209	
==>parameters" if $parameters;
    my $body = "VTABLE_$meth(interpreter, PMC_pmc_val(pmc)$arg)" <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33695	33786	
==>parameters" if $parameters;
    my $body = "VTABLE_$meth(interpreter, PMC_pmc_val(pmc)$arg)" <==
2	/Users/nnunley/parrot/config/inter/lex.pm	971	1105	
==>'echo');
        $self->set_result('skipped');
        return $self;
    }

    my $prog;

    # precedence of sources for the program: <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	968	1102	
==>'echo');
        $self->set_result('skipped');
        return $self;
    }

    my $prog;

    # precedence of sources for the program: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79358	79474	
==>}\n  else {\n      /* At this point we have the symbol's address. We just need to build\n         a PMC with it so we <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80879	80995	
==>}\n  else {\n      /* At this point we have the symbol's address. We just need to build\n         a PMC with it so we <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677588	677703	
==>c.ops\"\n    {{\@1}}->vtable->unshift_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678366	678481	
==>c.ops\"\n    {{\@1}}->vtable->unshift_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	21458	21566	
==>ot
EOC
	}
	print <<EOC;
	$pres = new .Boolean
	$pres = $res # ugly
EOC
	push @stack, [-1, $pres, 'P'];
	retur <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109719	110016	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110498	110795	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":b <==
2	/Users/nnunley/parrot/config/auto/gdbm.pm	1769	1923	
==>bm = 1;
            print " (yes) " if $verbose;
            $self->result('yes');
        }
    }
    unless ($has_gdbm) {

        # The Config::Data set <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612943	613035	
==>BODY" => "#line 496 \"src/ops/object.ops\"\n    VTABLE_set_attr_str(interpreter, {{\@1}}, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613850	613942	
==>BODY" => "#line 496 \"src/ops/object.ops\"\n    VTABLE_set_attr_str(interpreter, {{\@1}}, {{\ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	3637	3760	
==>};
	my $apparently = $parser->{offsetlinenum}
			 - Parse::RecDescent::_linecount(${$self->{text}})
			 + 1;

	$parser->{off <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9807	9930	
==>$args =~ m/\S/) {
        return "INTERP, SELF, $args";
    } else {
        return "INTERP, SELF";
    }
}

=item C<proto($ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	54054	54188	
==>ua\lua51.yp"
{
            BuildRelop( $_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 66
		 'exp', 3,
sub
#line 373 "Lua\l <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4136	4297	
==>ile (my ($class, $info) = each %classes) {
	next if $info->{flags}->{noinit};
        $cout .= <<"EOC";
        Parrot_${class}_class_init(interpreter, type$class <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	3388	3502	
==>ile (my ($class, $info) = each %classes) {
	next if $info->{flags}->{noinit};
        $cout .= <<"EOC";
    Parrot_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2019	2131	
==>AL::isa($args[$i], 'Jako::Construct::Expression::Value::Identifier')) {
      my $arg_sym = $self->block->find_sy <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1719	1831	
==>AL::isa($args[$i], 'Jako::Construct::Expression::Value::Identifier')) {
      my $arg_sym = $self->block->find_sy <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	16683	16893	
==>$content =~ m/^\s*\*\s*$/s or $content =~ m/^\s*$/s) {
    # Like: "=item *", "=item   *   ", "=item"
    splice @$para, 2; # so it ends up just being ['=item', { attrhash } ]
    $para->[1]{'~orig_content'} = $ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	22969	23095	
==>vtable slot
    if ($self->{flags}{dynpmc}) {
        $cout .= <<"EOC";
        vt_clone->base_type = entry;
        vt_clone-> <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	9069	9183	
==>if ($uninit) {
				$symbol = $TypeLong ? "uninit" : "B";
			    } else {
				$symbol = $TypeLong ? "unknown" : "D?" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468058	468506	
==>,
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 537,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 376 \"src/ops/math.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1345	1488	
==>my $self = shift;

    if (@_)
    {
        $self->{PC} = shift;
    }
    else
    {
        return $self->{PC};
    }
}

=item C<args(@args)> <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	954	1097	
==>my $self = shift;

    if (@_)
    {
        $self->{PC} = shift;
    }
    else
    {
        return $self->{PC};
    }
}

=item C<args(@args)> <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59836	59941	
==>or,
				    $lookahead,$line) or next;
			$prod->check_pending($line) if $prod;
			$prod = new Parse::RecD <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	844	1009	
==>ESTROY { }
}

sub import {
    my $self = shift;

    if ( @_ == 0 ) {
      $self->export_to_level( 1, $self, @EXPORT );
    } elsif ( @_ == 1 ) {
	# This is admitte <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688131	688220	
==>"src/ops/pmc.ops\"\n   {{\@1}}->vtable->delprop(interpreter, {{\@1}}, {{\@2}});\n   {{+=3} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688903	688992	
==>"src/ops/pmc.ops\"\n   {{\@1}}->vtable->delprop(interpreter, {{\@1}}, {{\@2}});\n   {{+=3} <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	1367	1488	
==>ar' or $kind eq 'arg' or $kind eq 'const';

  my $self = bless {
    BLOCK  => $block,

    SCOPE  => $scope,
    KIND   = <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19703	19867	
==>count == 0 goto lastback
#                 $matchcount--
#                 goto R.back
#           back: if $matchcount >= max goto rfail
#                 R or rfai <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19405	19561	
==>count == 0 goto lastback
#               $matchcount--
#               goto R.back
#         back: if $matchcount >= max goto rfail
#               R or rfai <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6722	6847	
==>eq $_ } @_;

  return $self->forth;
}


#
# SKIPS:
#

sub skip_assign        { return shift->skip('assign');        }
sub skip <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23048	23248	
==>->vtable->invoke(interpreter, p, dest);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25487	25687	
==>->vtable->invoke(interpreter, p, dest);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/config/auto/m4.pm	864	1003	
==>s under FreeBSD
    my %m4_hangs = (freebsd => 1);

    if ($m4_hangs{$osname}) {
        $has_gnu_m4 = 0;
    } else {

        # This seem <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145869	146341	
==>,
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 178,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 91 \"src/ops/cmp. <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	3959	4079	
==>y $self = shift;

    return sort grep {-f} $self->file_and_directory_paths;
}

=item C<directory_paths()>

These are the <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	68183	68324	
==>" => "#line 1049 \"src/ops/core.ops\"\n  Parrot_block_DOD(interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045977	1046371	
==>_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1169,
                  "ARGS" => [
                              "k",
                              "sc <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	439	573	
==>urn bless {
    TOKEN    => $token,
    CODE     => 'S',
    NAME     => 'str',
    IMCC     => 'string',
    IMCC_PMC => 'String'
  }, <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	25823	25940	
==>_mmds) {
        next if $dynpmc eq $classname;
        $cout .= <<"EOC";
        assert(my_enum_class_$dynpmc != enum <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	33462	33563	
==>lts to
optional whitespace and a missing text defaults to C<$_>. However, a missing
delimiter specifie <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	1494	1667	
==>p(
	        'Abstract PMCs', 
	        'These PMCs are not instantiated.', 
	        @abstract_items
	    ),
		$self->new_group(
	        'Concrete PMCs', 
	        'These PM <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	12756	12872	
==>f only matches undef and nothing else
        my $test = defined $got || defined $dont_expect;

        $self->ok($te <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	13200	13316	
==>f only matches undef and nothing else
        my $test = defined $got || defined $dont_expect;

        $self->ok($te <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74955	75071	
==><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$errorprefix,          $errortext
~~                     ^<<<<<<<<<<<<<<<<<<< <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74978	75094	
==><<<<<<<<<<<<<<<<
$errorprefix,          $errortext
~~                     ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< <==
2	/Users/nnunley/parrot/lib/File/Which.pm	5773	5876	
==>g all the path names
matching C<$short_exe_name>.


=head1 Bugs and Caveats

Not tested on VMS or MacOS, <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	1897	2040	
==>uch as possible and make it
        # behave  ansi-ish.  Here's an attempt at a list of nasty things we can
        # use for a given version of <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6680	6880	
==>$(I)
         A$(I)=B$
         ' SWAP A$(I - 1), A$(I)
      END IF
   NEXT
WEND
 ' CLS
FOR I = 1 TO 4
   PRINT A$(I)
NEXT I
END

' mid/left/right  2-9, 1-5, 6-0
t$="1234567890"
print mid$(t$, 2, 8)
p <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	22625	22733	
==>g);

    return 0;
}

=begin _private

=item B<_print>

    $Test->_print(@msgs);

Prints to the output() fil <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14315	14417	
==>tle);
  DEBUG and print "Title1: <$title>\n";
  $title = '\lang1024\noproof ' . $title
   if $is_obviou <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	7422	7548	
==>fig/examples.in' => 'languages/tcl/examples/Makefile',
        commentType                        => '#',
        replace_slash <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	40647	40749	
==>On failure, all of these values (except the remaining text) are C<undef>.

In a scalar context, C<extra <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	2200	2499	
==>" CELLSPACING="0" CELLPADDING="0">
            <TR ALIGN="RIGHT">
                <TD WIDTH="590" VALIGN="MIDDLE">
                    <BR>
                    <DIV CLASS="FOOTER">
                        <DIV ALIGN="LEFT">
                        </DIV>
                    </DIV>
                </ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21970	22219	
==>-73
	},
	{#State 69
		ACTIONS => {
			"^" => 79
		},
		DEFAULT => -75
	},
	{#State 70
		ACTIONS => {
			"(" => 123
		},
		GOTOS => {
			'funcbody' => 122
		}
	},
	{#State 71
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' = <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	2500	2614	
==>n test libraries I<which can
work together>.

=head2 Construction

=over 4

=item B<new>

  my $Test = Test::Builde <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	9204	9356	
==>my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  my $cond = $self->_generate(_get_arg($node,1));
  $self->_add_inst('','eq',[$cond <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	51767	51891	
==>d at the outermost
level of the code block, so the directive is parsed correctly.

=head2 C<extract_multiple>

The C<extract_ <==
2	/Users/nnunley/parrot/config/auto/signal.pm	1243	1354	
==>efine');
        print " (sigaction)" if $verbose;
    }
    cc_clean();

    cc_gen('config/auto/signal/test_it <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/State.pm	386	549	
==>el';
}

sub genlabel {
    my ($self, $desc) = @_;
    my $number = ++$self->{_markers}->{$desc};
    $number = '' if ($number == 1) && ($desc ne '');
    return $s <==
2	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	189	321	
==>ess-testing

=head1 SYNOPSIS

    % time perl examples/benchmarks/stress2.pl

=head1 DESCRIPTION

Creates 200 arrays of 10000 element <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	5907	6013	
==>encountered without a match (in which case we return undef).

See also: get_symbol(), which searches only l <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	8667	8793	
==>"Can't close    stdout" if $out;
    close STDERR             or die "Can't close    stderr" if $err;

    open  STDOUT, ">&OLD <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8199	8312	
==>"Can't close    stdout" if $out;
    close STDERR or die "Can't close    stderr" if $err;

    open STDOUT, ">&OLD <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	458	594	
==>new
{
  my $class = shift;
  my ($block, $token) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block') <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1460	1570	
==>X6$MSK,X5)+X1$MSK;",
  );
  #unless ( (1 << 16) << 16) { %f = %{$CODES{'32bit'}} }
  #else { %f = %{$CODES{'64b <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	322	426	
==>st->exported_to($caller);
    $Test->plan(@_);
}


=head1 NAME

Test::Simple - Basic utilities for writin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946365	946666	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_charset",
                  "FLAGS" => ":base_core",
                  "ARGD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947266	947567	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_charset",
                  "FLAGS" => ":base_core",
                  "ARGD <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1940	2083	
==>(@$trees) {
        my $code = tree_to_list($tree, $ctx, $pass_label, $fail_label, %options);
        return list_to_pasm($code, $ctx, %options) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	5833	6023	
==>F]+[\$\@\:_<>\(\\\*]\S+
          )
         )
        /\cb$1\cc/xsg
      ;
      
      rtf_esc($scratch);
      $scratch =~
         s/(
            [^\cm\cj\n]{65}        # Snare 65 chara <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1890	1993	
==>'} }
sub start_over_text    { ++$_[0]{'Indent'} }
sub start_over_block   { ++$_[0]{'Indent'} }

sub   en <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1458	1561	
==>'} }
sub start_over_text    { ++$_[0]{'Indent'} }
sub start_over_block   { ++$_[0]{'Indent'} }

sub   en <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	39179	39281	
==>st_translation();
    $pir .= sub_meta($srm_pt, $mv, 'post_translation');
    $pir .= "### end post_tra <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9576	9723	
==>this test for now');

  flunk('this fails, but might work soon', :todo(1));

  diag('some misc comments and documentation');

= DESCRIPTION

This mo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488825	489070	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	489578	489823	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	29186	29342	
==>ss $iter goto $targ # $tos->[0]
	$var = shift $iter $cmt
EOC
    push @stack, [-1, $var, 'P']
}


sub UNPACK_SEQUENCE
{
    my ($n, $c, $cmt) = @_;
    my $t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495592	496002	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 569,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146379	146644	
==>reter, {{\@1}}, {{\@2}}, MMD_EQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167605	167870	
==>reter, {{\@1}}, {{\@2}}, MMD_EQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026515	1026663	
==>\"src/ops/sys.ops\"\n   {{\@1}} = sysinfo_i(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1027272	1027420	
==>\"src/ops/sys.ops\"\n   {{\@1}} = sysinfo_i(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025002	1025116	
==>\"src/ops/sys.ops\"\n   {{\@1}} = sysinfo_s(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025759	1025873	
==>\"src/ops/sys.ops\"\n   {{\@1}} = sysinfo_s(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	3264	3406	
==>s}->{$name} || die "Requested unallocated temporary!";
}

######################## Default rewrite rules #######################

sub rewrite_t <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	461	570	
==>E02', 'FE03', 'FE04', 'FE05' # compare
);

# Grab parameters.
my ($rules_file, $output_file, $srm_module);
Get <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	39419	39685	
==>and @ell_content
         and grep !ref($_) && m/ /s, @ell_content
      ) {
        $section_name = [splice @ell_content];
        # That's support for the now-deprecated syntax.
        # (Maybe generate a warning eventually?)
        # Note that it deliberately wo <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	3268	3375	
==>ax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'call', Att <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	3908	4062	
==>g.Design
            System.Drawing
            System.EnterpriseServices
            System.Management
            System.Messaging
            Syste <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	12281	12401	
==>mp_num = GET_NCI_N($reg_num);";
        return "t_$temp_num";
    };
    /t/ && do {
        push @{$temps_ref}, "char *t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956946	957122	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957850	958026	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	742	868	
==>----------------------------------
# Set up some constants:

BEGIN {
  if(defined &ASCII)    { }
  elsif(chr(65) eq 'A') { *ASC <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	8129	8246	
==>builtin($syms[PREV]) ) {
				$unary=1;
			}
		}
		if (
			$this->[0] eq "("    and 
			hasargs($prev->[0])	# This work <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557849	557951	
==>*meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  interpreter->current_cont = CONTEXT(interpreter->ct <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559233	559335	
==>*meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  interpreter->current_cont = CONTEXT(interpreter->ct <==
2	/Users/nnunley/parrot/lib/Test/More.pm	21870	22004	
==>>bend_spoon;
        is( $spoon, 'bent',    "Spoon bending, that's original" );
    }

With a todo block, the tests inside are expected <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11965	12103	
==>));
			$pir_args = ",$pir_args" if $pir_args;
			$extern=$sym;
			$optype=optype_of($extern);
			goto NEST_ARRAY_ASSIGN if (@work); # Ugly, <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	2113	2242	
==>g>

=head1 SEE ALSO

F<docs/configuration.pod>, L<Parrot::Configure>, L<Parrot::Configure::Data>,
L<Parrot::Configure::Step>

=cut <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6826	6926	
==>g>

=head1 SEE ALSO

F<docs/configuration.pod>, L<Parrot::Configure>, L<Parrot::Configure::Step>,
L<P <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	14391	14635	
==>ssname, $meth, $body);
    }

    # now split into MMD if necessary:
    my $additional_bodies= '';
    $total_body = substr $total_body, 1, -1;
    my $standard_body = $total_body;
    my $header_decls = '';
    while ($total_body =~ s/\bMMD_(\ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	15648	15764	
==>'qw'	=> '',
		'qr'	=> '[imsx]*',
		'q'	=> '',
	     );

sub extract_quotelike (;$$)
{
	my $textref = $_[0] ? \$_[0] : <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	12284	12457	
==>$self, $code) = @_;
    # Assume, for now, that the code is PIR code
    return ("# START EMBEDDED PIR CODE",
            split(/\n/, substr($code, 1, -1)),
            "# EN <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088430	1088902	
==>IRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1207,
                  "ARGS" => [
                              "p",
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 186 \"src/ops/experimental.ops\"\n    {{\@1} <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27192	27298	
==>dd pre-translate code, if any.
        $pir .= sub_meta($pre_translate_code, $mv, "pre-translate for $rule- <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34331	34437	
==>dd pre-translate code, if any.
        $pir .= sub_meta($pre_translate_code, $mv, "pre-translate for $rule- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85562	85658	
==>bals, IGLOBALS_COMPREG_HASH);\n  {{\@1}} = VTABLE_get_pmc_keyed_str(interpreter, compreg_hash, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86469	86565	
==>bals, IGLOBALS_COMPREG_HASH);\n  {{\@1}} = VTABLE_get_pmc_keyed_str(interpreter, compreg_hash, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	13676	13777	
==>nch   ||= $body =~ s/\bgoto\s+OFFSET\(\( (.*?) \)\)/{{+=$1}}/mg;
        $absolute ||= $body =~ s/\bgo <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	5782	5908	
==>S_COUNT} || 0;
}

=item C<pod_errors($options)>

Gives you a description of any POD errors in the file.

=cut

sub pod_errors
{ <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	2387	2532	
==>es we know aren't used in this file.
    open(F, "<$file") || die "Can't read $file: $!\n";
    {
        local $/=undef;
        my $contents = < <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	10276	10496	
==>reg";
}


sub output_return {
    my ($self, $rettype, $retval) = @_;
    $retval = value($retval);
    return (".return $retval",
            "ret");
}

sub output_declare {
    my ($self, $var, $type) = @_;
    return ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122096	122278	
==>ent unsigned.\n   */\n  LVALUE_CAST(UINTVAL, {{\@1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123008	123190	
==>ent unsigned.\n   */\n  LVALUE_CAST(UINTVAL, {{\@1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912832	913035	
==>",
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677595	677706	
==>\n    {{\@1}}->vtable->unshift_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678373	678484	
==>\n    {{\@1}}->vtable->unshift_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3526	3654	
==>y $group --c " . join(" ",@pmcfiles))
              or die "pmc2c library creation failed ($?)\n";
        }
    }
} 
elsif ($mod <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3630	3758	
==>y $group --c " . join(" ",@pmcfiles))
              or die "pmc2c library creation failed ($?)\n";
        }
    }
} 
elsif ($mod <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841582	841674	
==>Y" => "#line 40 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},0);\n  {{+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842346	842438	
==>Y" => "#line 40 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},0);\n  {{+ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	381	486	
==>se qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $ident) = @_;

  confess( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	381	486	
==>se qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $ident) = @_;

  confess( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028149	1028248	
==>ck in time\");\n  }\n  next = Parrot_sleep_on_event(interpreter, (FLOATVAL) {{\@1}}, next);\n  {{=ne <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029000	1029099	
==>ck in time\");\n  }\n  next = Parrot_sleep_on_event(interpreter, (FLOATVAL) {{\@1}}, next);\n  {{=ne <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742759	743008	
==>n  {{\@1}} = string_from_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743525	743774	
==>n  {{\@1}} = string_from_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	1691	1795	
==>::OpTrans::C::arg_maps;
}
else {
    $jit_cpu = ($cpuarch eq 'i386') ? 0 : 1;
    push @jit_funcs, "Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724896	725384	
==>o",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 812,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 174 \"src/ops/python.ops\"\n  PMC * const io = {{\@1}};\n  PIO_puts(interpreter, io, \"\\n\");\n  PIO_softspace(interpreter, io, 0);\n  {{+=2}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2149	2242	
==>eE<gt>.c and pmc_E<lt>libnameE<gt>.h if his object
represents a named library.

=cut

sub writ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432473	432650	
==>patch_p_pip(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433488	433665	
==>patch_p_pip(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	783	888	
==>comment;
}

sub output_classmatch {
    my ($self, $class) = @_;
    return "re_match_class P0, $class";
} <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	33411	33508	
==>nt("1..$self->{Curr_Test}\n") unless $self->no_header;
            $self->{Expected_Tests} = $self <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25643	25754	
==>emp);
  } else {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27541	27652	
==>emp);
  } else {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	22790	22913	
==>$n++;	# its for sure not that simple
    # we have a tuple argumen
    my $tupl = $stack[-1];
    print <<EOC;
    # tuple $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	544	641	
==>ck, 'Jako::Construct::Block');
  confess("Ident (" . ref($ident) . ") is not!") unless UNIVERSAL:: <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	13539	13660	
==>s($$textref);
	unless ($$textref =~ m/\G($ldel_outer)/gc)	# OUTERMOST DELIMITER
	{
		_failmsg qq{Did not find expected ope <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126774	127153	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rot",
                  "FLAGS" => "",
                  "ARGD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127909	128288	
==>,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rot",
                  "FLAGS" => "",
                  "ARGD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039971	1040242	
==>"function",
                  "CODE" => 1162,
                  "ARGS" => [
                              "sc",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 120 \"src/ops/var.ops\"\n <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10819	10928	
==>class)=shift;
        ref($class)
    and $class=ref($class);

    my($self)=$class->SUPER::new( yyversion <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11819	11924	
==>class)=shift;
        ref($class)
    and $class=ref($class);

    my($self)=$class->SUPER::new( yyversion <==
2	/Users/nnunley/parrot/config/auto/gc.pm	113	220	
==>Z coke  $

=head1 NAME

config/auto/gc.pm - Garbage Collection

=head1 DESCRIPTION

Checks whether the C<--g <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	17	120	
==>use strict;
use warnings;

use lib 'lib';
use Parrot::Vtable;

my $vtable = parse_vtable( 'vtable.tbl' ) <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	1563	1739	
==>O eq 'MSWin32') {
    # Paths need quoting as they may contain spaces.
    $PATHQUOTE = '"';

    $LIBPARROT = '/Users/nnunley/parrot/parrot.a';
}

# PMC2C Config
our $PMC2C = " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710616	710715	
==>=> "#line 50 \"src/ops/python.ops\"\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (PIO_softspac <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711450	711549	
==>=> "#line 50 \"src/ops/python.ops\"\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (PIO_softspac <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775986	776188	
==>p",
                              "kic",
                              "ic"
                            ],
                  "BODY" => "#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_key <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6194	6308	
==>FALSE=0
DIM A$(4)
A$(1) = "New York"
A$(2) = "Boston"
A$(3) = "Chicago"
A$(4) = "Seattle"
Max = 4 'UBOUND(A$)
Excha <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15847	15961	
==>FALSE=0
DIM A$(4)
A$(1) = "New York"
A$(2) = "Boston"
A$(3) = "Chicago"
A$(4) = "Seattle"
Max = 4 'UBOUND(A$)
Excha <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	410413	410752	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "send",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411305	411644	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "send",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757825	758294	
==>> 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 855,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 276 \" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758597	758914	
==>> 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 856,
                  " <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4778	4877	
==>t->scope eq 'global')) {
    my $pmc_type = $dest_ident->type->imcc_pmc;
    my $pmc_reg = $compiler <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2841	2940	
==>t->scope eq 'global')) {
    my $pmc_type = $dest_ident->type->imcc_pmc;
    my $pmc_reg = $compiler <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	1375	1541	
==>xception is raised.

=cut

sub new
{
    my $self = ref $_[0] ? ref shift : shift;
    my $text = shift;
    my @contents = @_;
    
    # TODO - Items should only con <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	5064	5204	
==>ster, \$P0) \n";
        $code .= "  register = r_$name + 1 \n";
        $code .= "  pir .= \$S0 \n";
        $code .= emit("a_$name = \$P%0" <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39133	39222	
==>urrent_input_port,
  'current-output-port'   => \&_op_current_output_port,
  'with-input-t <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	3078	3214	
==>factorial
    $I100 = %1
    $I100 = fact $I100
    %1 = $I100
END_PIR

    $P0['monadic:*']      =  "    %1 = exp %1"      # exp
    $P0 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	1688	1823	
==>ub match {
  my ($input) = @_;
  my $m = _rule_default(1, $input, 0, []);
use Data::Dumper;
print Data::Dumper->Dump([$m],["*DEFAULT_RUL <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16472	16571	
==>ed.

This program is free software; you can redistribute it and/or modify it
under the same terms as <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1686	1785	
==>ed.

This program is free software; you can redistribute it and/or modify it
under the same terms as <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21139	21353	
==>or a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke@cpan.org>

=cut



JUNK:

sub _old_get_title {  # some witchery in here
  my $self = $_[0];
  my $title;
  my @to_unget;

  while(1) {
    push @to_ung <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2971	3080	
==>)= $_[0] - ${$$self{DOTPOS}} - 1;

		$index < 0
	and	-$index <= @{$$self{STACK}}
	and	return $$self{STACK} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2827	2932	
==>)= $_[0] - ${$$self{DOTPOS}} - 1;

		$index < 0
	and	-$index <= @{$$self{STACK}}
	and	return $$self{STACK} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9741	9866	
==>op . " $reg, <rx_stack> # popint");
    }
}

sub output_substr {
    my ($self, $dest, $src, $offset, $len) = @_;
    return ( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2796	2886	
==>ple::XMLOutStream inherits methods from
L<Pod::Simple>.


=head1 SEE ALSO

L<Pod::Simple::D <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1397	1527	
==>dent/gx     # => line-break here
    ;
    
    print {$_[0]{'output_fh'}} $indent, $text, "\n";
  }
  return;
}

sub _handle_eleme <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10011	10113	
==>->data->get('slash');
    my $verbose = $conf->options->get('verbose');

    if (defined($_[0]) && leng <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10592	10694	
==>->data->get('slash');
    my $verbose = $conf->options->get('verbose');

    if (defined($_[0]) && leng <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9921	10015	
==>tive_path_is_file($path)>

Returns whether the specified relative path is a file.

=cut

sub re <==
2	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	776	925	
==>.
	unlink "$file_name.cs";
	return 1;
}

# This translates a .NET DLL or EXE to a PBC.
# ###########################################
sub translate($$) <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	10652	10905	
==>irs
            : 0
        ) . " }";
        my $labels     = "{ " . join(", ",  scalar $op->labels
            ? $op->labels
            : 0
        ) . " }";
        my $flags      = 0;

        print SOURCE <<END_C;
  { /* $index */
    /* type $type <==
2	/Users/nnunley/parrot/Configure.pl	7974	8110	
==>eate imcc's parser and lexer files. Needs a working
                        parser and lexer.
   --miniparrot         Build parrot assumi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	21567	21681	
==>mar.y"
{ return { min => 0, max => $_[4] }; }
	],
	[#Rule 31
		 'range', 3,
sub
#line 155 "lib/Regex/Grammar.y"
{ r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056926	1057287	
==>" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1180,
                  "ARGS" => [
                              "p",
                              "kc" <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1648	1739	
==>GE::_generate_subrule_pir($target, $pattern)
        : Parrot::Test::PGE::_generate_pir_for( <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2171	2262	
==>GE::_generate_subrule_pir($target, $pattern)
        : Parrot::Test::PGE::_generate_pir_for( <==
2	/Users/nnunley/parrot/config/auto/m4.pm	600	725	
==>runstep
{
    my ($self, $conf) = @_;

    my $archname = $Config{archname};
    my ($cpuarch, $osname) = split('-', $archname <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	3871	4002	
==>(my $i = 0; $i < $n; $i++) {
		    my ($a, $def) = split(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a = qq!"$a"!;   # quote argume <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	4370	4501	
==>(my $i = 0; $i < $n; $i++) {
		    my ($a, $def) = split(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a = qq!"$a"!;   # quote argume <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1586	1677	
==>e is not a Jako::Construct::Type instance!")
    unless UNIVERSAL::isa($type, "Jako::Constru <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1434	1525	
==>e is not a Jako::Construct::Type instance!")
    unless UNIVERSAL::isa($type, "Jako::Constru <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9308	9441	
==>0x10
#DBG>		and	do {
#DBG>			print STDERR "**Entering Error recovery.\n";
#DBG>			++$dbgerror;
#DBG>		};

            ++$$nberro <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8890	9017	
==>0x10
#DBG>		and	do {
#DBG>			print STDERR "**Entering Error recovery.\n";
#DBG>			++$dbgerror;
#DBG>		};

            ++$$nberro <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	983	1069	
==>t)((opcode_t*)cur_opcode - (opcode_t*)interpreter->code->prederef.code))
#define CUR_OP <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1113	1199	
==>t)((opcode_t*)cur_opcode - (opcode_t*)interpreter->code->prederef.code))
#define CUR_OP <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	479	599	
==>ub _openclose {
 return map {;
   m/^([-A-Za-z]+)=(\w[^\=]*)$/s or die "what's <$_>?";
   ( $1,  "{\\$2\n",   "/$1",  "}" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1208	1330	
==>od::Simple's _handle_element_start, _handle_text, and
_handle_element_end methods so that parser events are turned into met <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	15766	15877	
==>ecDescent::_hint(
			"A '>' angle bracket was encountered, which typically
			 indicates the end of a directive. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218526	218809	
==>=> "function",
                  "CODE" => 256,
                  "ARGS" => [
                              "p",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 469 \"src/ops/cmp.ops\"\n  if (stri <==
2	/Users/nnunley/parrot/config/auto/perldoc.pm	996	1244	
==>ose FH;
                $version = 2;
                $self->set_result('yes');
            } else {
                $a = undef;
            }
        }
        unless (defined $a && $a =~ m/perldoc/) {
            $version = 0;
            $self->s <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11845	11983	
==>thod};
    my $supermethod = "Parrot_" . $super_table->{$method} . "_$method";

    # Rewrite DYNSUPER(args)
    s/DYNSUPER          # Macr <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4460	4593	
==>key is set via C<set> or C<add> then all callbacks that
are defined will be called.  Triggers are passed the key and value that was se <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558903	559158	
==>" => "function",
                  "CODE" => 640,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 131 \"src/ops/object.ops\"\n  opcode_t * <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	50404	50661	
==>hen go back to step 1.

=back


Examples:

        # Find a while loop in the text

                if ($text =~ s/.*?while\s*\{/{/)
                {
                        $loop = "while " . extract_codeblock($text);
                }

        # Remove th <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	923912	924202	
==>> 0,
                  "NAME" => "new",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924702	924992	
==>> 0,
                  "NAME" => "new",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	331852	332403	
==>LAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 390,
                  "ARGS" => [
                              "p",
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const c <==
2	/Users/nnunley/parrot/examples/benchmarks/oo1.pl	54	170	
==>$o = new Foo();
}
my $o = new Foo();
print $o->[0], "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shi <==
2	/Users/nnunley/parrot/examples/benchmarks/oo2.pl	54	170	
==>$o = new Foo();
}
my $o = new Foo();
print $o->[0], "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	817573	817684	
==>"BODY" => "#line 610 \"src/ops/set.ops\"\n  Parrot_clear_p(interpreter);\n  {{+=1}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6204	6395	
==>ctions{DEFAULT})
                        ?   $$actions{DEFAULT}
                        :   undef;
        }
        else {
            $act=$$actions{DEFAULT};
#DBG>			$debug & 0x01
#D <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5914	6098	
==>ctions{DEFAULT})
                        ?   $$actions{DEFAULT}
                        :   undef;
        }
        else {
            $act=$$actions{DEFAULT};
#DBG>			$debug & 0x01
#D <==
2	/Users/nnunley/parrot/Configure.pl	9462	9576	
==>nal
    auto::socklen_t
    auto::env
    auto::aio
    auto::gmp
    auto::readline
    auto::gdbm
    auto::snpri <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11706	11833	
==>$name, $uid) = @_;
    return ".local pmc $uid";
}

sub output_call {
    my ($self, $name, $mode, $uid) = @_;
    return split( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630224	630511	
==>ne",
                  "CODE" => 706,
                  "ARGS" => [
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 81 \"src/ops/pmc.ops\"\n    PMC *class = {{\@2}};\n    INTVAL type = pmc_type_p(inter <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	271	374	
==>> is one or more related paths with some optional
descriptive text.

Directory paths will be expanded to <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101860	102112	
==>reter, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102631	102883	
==>reter, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	12388	12503	
==>ot ne $dont_expect.  This is
the string version.

=item B<isnt_num>

  $Test->is_num($got, $dont_expect, $name);

Li <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16826	16944	
==>)/'&#'.(ord($1)).';'/eg;
        # Leave out "- so that "--" won't make it thru in X-generated comments
        #  with <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10270	10380	
==>)/'&#'.(ord($1)).';'/eg;
    # Leave out "- so that "--" won't make it thru in X-generated comments
    #  with <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16514	16611	
==>n redistribute it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/p <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1728	1825	
==>n redistribute it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/p <==
2	/Users/nnunley/parrot/config/init/hints/cygwin.pm	118	239	
==>Z coke  $

package init::hints::cygwin;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    # cygwin's perl is co <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	51562	51668	
==>"less than" operator is interpreted as a closing delimiter.

But, by extracting the directive using
S<C<ext <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	16697	16850	
==>post_load(0);
	$pir .= "### post_load (typed eh)\n";
	$pir .= sub_meta($post_load, { %$mv, LOADREG => 'loadreg' }, "post_load for typed exception handler" <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	18748	18871	
==>bel\n}gc;
		$ld2pos = pos($$textref);
		return (
			$startpos,	$oppos-$startpos,	# PREFIX
			$oppos,		length($op),		# OPERAT <==
2	/Users/nnunley/parrot/tools/docs/write_docs.pl	131	327	
==>Z coke  $

=head1 NAME

tools/docs/write_docs.pl - Write HTML documentation

=head1 SYNOPSIS

    % perl tools/docs/write_docs.pl [--silent] [--delete]

=head1 DESCRIPTION

This script writes the H <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1265	1492	
==>c) );

    generate_regular($pattern);

    foreach ( @spec ) {
        process($_->{input}, $_->{output});
    }

    return 0;
}

sub generate_regular_pir {
    my ($filename, $pattern) = @_;
    my $PIR;
    open($PIR, '>', $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	1314	1427	
==>ss $kind eq 'module' or $kind eq 'sub' or $kind eq 'var' or $kind eq 'arg' or $kind eq 'const';

  my $self = bles <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	994	1086	
==>t*)cur_opcode - (opcode_t*)interpreter->code->prederef.code))
#define CUR_OPCODE ((opcode_t*) <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1124	1216	
==>t*)cur_opcode - (opcode_t*)interpreter->code->prederef.code))
#define CUR_OPCODE ((opcode_t*) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4606	4698	
==>_middle && $self->do_end;
}


#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3237	3328	
==>_middle && $self->do_end;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	4752	4945	
==>s. We'll store a 'reachable' flag in the
    # 3rd element of the labels.

    # But first, make *all* basic blocks begin with a label.
    $output2[0]->{label} ||= $self->{state}->genlabel("beg <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	119	288	
==>ct;
use warnings;

=head1 NAME

tools/build/headerizer.pl - Generates the function header parts of .h files from .c files

=head1 SYNOPSIS

Update the headers in F<includ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10646	10743	
==>n =~ tr/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
        $section = $self->unicode_escape_url($sec <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4027	4120	
==>n =~ tr/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
    $section = $self->unicode_escape_url($sec <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	1417	1537	
==>->get('pmc_names'));

    open(OUT, ">$file.tmp");

    print OUT <<"END_C";
/*
 * DO NOT EDIT THIS FILE
 *
 * Automatica <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5287	5392	
==>element({ Name => 'assign' });
  $dest->sax($handler);
  $handler->start_element({ Name => 'op', Attribute <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3350	3455	
==>element({ Name => 'assign' });
  $dest->sax($handler);
  $handler->start_element({ Name => 'op', Attribute <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573108	573385	
==>ass, name);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574018	574295	
==>ass, name);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newc <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	417	543	
==>urn () unless $self->{DEBUG};
    my $ctx = $self->{ctx};
    $what = "\%<<rx_pos>>: $what";

    my @ops;
    foreach my $part <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	26548	26721	
==>_name) = @_;

    my $cout = dont_edit($self->{file});
    if ($self->{flags}{dynpmc}) {
        $cout .= "#define PARROT_IN_EXTENSION\n";
    }
    $cout .= $self->line_dire <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	1900	2030	
==>os) {
        $typedefs->{$_}="#defined";
    }
    
    
    # post-process the file to find function declarations which would not <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	986	1084	
==>We'll emit a label for every single instruction. While we kinda find
	# basic blocks, we don't disc <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	918	1112	
==>ist of the files of a particular type.

C<$recursive> and C<$ignore> function as specified in C<files()>.

=cut

sub files_of_type
{
    my $self = shift;
    my $type = shift;
    
    return () <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4300	4411	
==>the run core function declaration.

=cut

sub run_core_func_decl
{
    my ($self, $core) = @_;

    return "opco <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2788	2899	
==>the run core function declaration.

=cut

sub run_core_func_decl
{
    my ($self, $core) = @_;

    return "opco <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653306	653437	
==>/ops/pmc.ops\"\n    opcode_t * resume = {{^+4}};\n    {{\@1}} = {{\@2}}->vtable->find_method(interpreter, {{\@2}}, {{\@3}});\n    if <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654467	654598	
==>/ops/pmc.ops\"\n    opcode_t * resume = {{^+4}};\n    {{\@1}} = {{\@2}}->vtable->find_method(interpreter, {{\@2}}, {{\@3}});\n    if <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6098	6285	
==>self->{'output_fh'}} 
                $self->{'Tagmap'}{$tagname} . esc($text);
        }
    }
    else
    {
        $self->unget_token($next);
        print {$self->{'output_fh'}} $self <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	894	1033	
==>=> 1,
            'result' => $parser->YYData->{_G},
            'arg1'   => '_G',
        );
    }
    return [ $parser->YYData->{_G}, <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33742	34006	
==>st_store($dest_reg);
		$pir .= "### post_store\n";
		$pir .= sub_meta($post_store, $mv, "post_store for rule $rule->{'name'}");
		$pir .= "### end post_store\n";

        # Now pop type off the stack types array.
		$pir .= "    type_trans = pop stypes\n";
	}

	# Br <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2690	2804	
==>rt {
	my($self)=shift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2569	2673	
==>rt {
	my($self)=shift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$s <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	3561	3663	
==>, $opcode, $arg, $rest) = ($1, $2, $3, $4, $5);
	$opcode =~ s/\+/_plus_/;
	## print STDERR "Op: '$opcod <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	7204	7365	
==>BER', $1 . ( $3 || q{} ) );

            s/^\"//
                and return $parser->_DoubleQuoteStringLexer();

            s/^\'//
                and ret <==
2	/Users/nnunley/parrot/tools/dev/gen_class.pl	1069	1194	
==>he Perl Foundation.
 *  SVN Info
 *     \$Id\$
 *  Overview:
 *     These are the vtable functions for the $classname base <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	315	431	
==>_/;
  ( $_[0]->can( 'start_' . $_[1] )
    || return
  )->(
    $_[0], $_[2]
  );
}

sub _handle_text {
  ( $_[0]->ca <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	319	421	
==>ister;
use strict;
use SRM::Base;
our @ISA = qw/SRM::Base/;

# Constructor. Just base this class on a h <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	225	327	
==>ister;
use strict;
use SRM::Base;
our @ISA = qw/SRM::Base/;

# Constructor. Just base this class on a h <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	2269	2389	
==>{ return shift->is('eof');           }
sub is_exfix_arith   { return shift->is('exfix-arith');   }
sub is_goto          { <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	57300	57513	
==>sing:

        @fields = extract_multiple($csv_text,
                                  [
                                        sub { extract_delimited($_[0],q{'"}) },
                                        qr/([ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	9320	9489	
==>t be too hard.
package Regex::Ops::Tree::call;
sub minlen { 0 }
sub maxlen { undef }
sub dfa_safe { 0 }
sub hasback { 1 }
sub startset { undef }

# Embedded code is truly <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	3741	3905	
==>close-bracket', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^([\{\}])(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, $1 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2998	3094	
==>nstruct::Type::String');
  $self->SYNTAX_ERROR("Can't do arithmetic on strings") if UNIVERSAL::is <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	3118	3214	
==>nstruct::Type::String');
  $self->SYNTAX_ERROR("Can't do arithmetic on strings") if UNIVERSAL::is <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369153	369478	
==>"i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 432,
                  "ARGS" => [
                              "s",
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 341 \"src/ops/i <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	4826	5154	
==>=> "",
     );

my $temp_cnt = 0;
my @put_pointer;
my %seen;

while (<>) {
    chomp;
    s/#.*$//;             # comment till end of line
    s/^\s*//;
    s/\s*$//;
    next unless $_;

    my ($ret, $args) = split /\s+/, $_;

    $args = '' if not defined $args;
    $args =~ s/^v$//
      and warn "Removed deprecated 'v' arg <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	3512	3611	
==>ess_code_start_token($token)>

Processes the code start token. If the code text is the name of a Par <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	168	253	
==>ved.
# $Id: /parrot/config/gen/makefiles/dynclasses_pl.in 15833 2006-01-13T18:59:41.27 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1092880	1093135	
==>eter, {{\@2}});\n    {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
2	/Users/nnunley/parrot/lib/Test/More.pm	25811	25947	
==>[ $this, $that ] }) );
    }
    else {			       		# both references
        local @Data_Stack = ();
        if( _deep_check($this, $that <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1083	1176	
==>left(((X1&X2)|(~X1&X3))+X0+X4+X6$MSK,X5)+X1$MSK;",
#	GG => "X0=rotate_left(((X1&X3)|(X2&(~X3)) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11945	12046	
==>ut_call_result {
    my ($self, $uid, $name, $fail) = @_;
    my $fail_label = $self->output_label_use <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	12611	12712	
==>ut_call_result {
    my ($self, $uid, $name, $fail) = @_;
    my $fail_label = $self->output_label_use <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2739	2839	
==>"
GOSUB Sub1
PRINT "ERR this line in main routine should be skipped"
Label1:
   PRINT "5 back in modu <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16706	16806	
==>"
GOSUB Sub1
PRINT "ERR this line in main routine should be skipped"
Label1:
   PRINT "5 back in modu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741871	742040	
==>,
                              "sc"
                            ],
                  "BODY" => "#line 169 \"src/ops/set.ops\"\n  {{\@1}} = string_copy(interpreter, {{\@2 <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	1606	1762	
==>leHandle->new($file, O_RDONLY) or
        die "Can't open $file for reading: $!\n";
    my $section = 'MAIN';

    while(<$fh>) {

        chomp;

        ne <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9619	9713	
==>}, ${PTEMP1}, ${PTEMP2}) = method_info_from_token(${ASSEMBLY}, ${ARG0})

# If it's a call to in <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7133	7227	
==>}, ${PTEMP1}, ${PTEMP2}) = method_info_from_token(${ASSEMBLY}, ${ARG0})

# If it's a call to in <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13601	13727	
==>evar/
				? "a <rulevar> (which acts like an unconditional <reject> during parsing)"
		         : $items[0]->describe =~ /<auto <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4466	4592	
==>@_;

    if (@{ $self->{args} } == 0) {
        delete $self->{name};
        delete $self->{args};
        return $self->op('n <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5603	5729	
==>@_;

    if (@{ $self->{args} } == 0) {
        delete $self->{name};
        delete $self->{args};
        return $self->op('n <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	58643	58773	
==>example, to properly ignore "empty" XML elements
(which might contain quoted strings):

        my $empty_tag = '<(' . gen_delimite <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	19855	19969	
==>ach (@rules) {
        if ($_->{'code'} =~ /\w\s+\w/) {
            die "Currently unable to build dispatch table f <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	54374	54491	
==>ly also return two further arguments: a string
representing the text left after extraction (like $' for a pattern
matc <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11103	11227	
==>ntf('%%%02X',ord($1))/eg;
        # Yes, stipulate the list without a range, so that this can work right on
        #  all ch <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4452	4574	
==>ntf('%%%02X',ord($1))/eg;
       # Yes, stipulate the list without a range, so that this can work right on
       #  all ch <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	8805	8949	
==>se(SOURCE);
open(SOURCE, "<$source") || die "Error re-reading $source: $!\n";
my $line = 0; while (<SOURCE>) { $line++; } $line+=2;
close(SOURCE) <==
2	/Users/nnunley/parrot/config/init/miniparrot.pm	155	245	
==>/init/miniparrot.pm - Miniparrot configuration

=head1 DESCRIPTION

Modifies settings to ma <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	12173	12290	
==>n index
specifying one element of the array; the second argument, if
present, is assigned to the array element.  If th <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104170	1104394	
==>_init(interpreter, type, {{\@3}});\n\t{{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105385	1105609	
==>_init(interpreter, type, {{\@3}});\n\t{{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0 <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	3541	3723	
==>lag) {
    $source  =~ s!src/ops/!!;
    $header = "${base}_ops${suffix}.h";
    $base =~ s!^.*[/\\]!!;
    $include = "${base}_ops${suffix}.h";
    $dynamic_flag = 1;
}

my $sym_expo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205571	205837	
==>, {{\@1}}, {{\@2}}, MMD_CMP) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	24511	24694	
==>_fh {
    my($file_or_fh) = shift;

    my $fh;
    if( _is_fh($file_or_fh) ) {
        $fh = $file_or_fh;
    }
    else {
        $fh = do { local *FH };
        open $fh, ">$file_or <==
2	/Users/nnunley/parrot/config/auto/bc.pm	469	570	
==>p::Base);

use Config;
use Parrot::Configure::Step ':auto', 'capture_output';

$description = 'Determi <==
2	/Users/nnunley/parrot/config/auto/m4.pm	443	544	
==>p::Base);

use Config;
use Parrot::Configure::Step ':auto', 'capture_output';

$description = 'Determi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	15664	15829	
==>n kind of block '%s'!", $peer_block->kind);
      }

      next;
    }

    #
    # Arithmetic Operators:
    #
    #   <var> = <value> <op> <value>;
    #
    # TODO <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36471	36587	
==>s}[$n], $line, $out_name);
    }
    my $decl = $self->decl($self->{class}, $method, 0);
    my $ret = gen_ret($metho <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88830	89096	
==>AME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89567	89833	
==>AME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2286	2404	
==>par(-3) }
sub end_head3       { $_[0]->emit_par(-2) }
sub end_head4       { $_[0]->emit_par(-1) }
sub end_Para        { <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1854	1972	
==>par(-3) }
sub end_head3       { $_[0]->emit_par(-2) }
sub end_head4       { $_[0]->emit_par(-1) }
sub end_Para        { <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	6783	6899	
==>l $arg_name, "${arg}_$d"
EOC
	}
	print <<EOC;
arg_ok:
EOC
    }
    $cur_func = $arg;
    %params = ();
    %lexicals <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	9595	9737	
==>th>Branch Coverage</th>
                  <th>Call Coverage</th>
    );

        my $outfile_base = $source_file; 
        $outfile_base =~ s/\ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1203	1289	
==>nstruct::Statement::Call;
use Jako::Construct::Statement::Concat;
use Jako::Construct:: <==
2	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	1196	1340	
==>on) > 4 ) {
        die "Too many components to VERSION file contents: '$parrot_version' (should be 3 or 4)!"
    }

    foreach (@parrot_version <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1476	1602	
==>ue,$check,$dotpos);
    my($self)={ ERROR => \&_Error,
				ERRST => \$errst,
                NBERR => \$nberr,
				TOKEN => <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1426	1548	
==>ue,$check,$dotpos);
    my($self)={ ERROR => \&_Error,
				ERRST => \$errst,
                NBERR => \$nberr,
				TOKEN => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	708780	709237	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 795,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 709 \"src/o <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1460	1558	
==>self->block->find_symbol($name);

  unless ($sym) {
#    $self->block->dump_symbols;
    $self->SYN <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	4262	4441	
==>ontinue ]) ]);
        return ($self->rewrite($testop, $lastback),
                $self->rewrite($dest, $lastback),
                $continue);
    }
}

# TODO: can_match_empty (s <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	12338	12476	
==>' => 'parrot',
             'testheader' => undef,
             'testheaders' => undef,
             'touch' => 'perl -MExtUtils::Command - <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	11855	11990	
==>lib' => 'ranlib',
             'readline' => 'define',
             'revision' => 0,
             'rm_f' => 'perl -MExtUtils::Command -e <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	333	551	
==>.
# R (scan, R) : scan for R at every position
# R (test, op1, check, op2, dest)
# R (alternate, R, S)
# R (multi_match, min, max, greedy, R)
#
# O (atend) : return whether at end of input string
# O (advance, n) : adva <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832511	832839	
==>GDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 942,
                  "ARGS" => [
                              "nc"
                            ],
                  "BODY" => "#line 192 \"src/ops/stack.ops\"\n  stack_push(inte <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	27599	27720	
==>') { #////////////////////////////////////////

      # TODO: fire off </item-number> or </item-bullet> or </item-text> ?? <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	28578	28758	
==>est.  Normal tests have a type
of ''.  Type can be one of the following:

    skip        see skip()
    todo        see todo()
    todo_skip   see todo_skip()
    unknown     see b <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	659	755	
==>UNSHIFT DELETE);
  @writes{@writes} = (1) x @writes;
}
use Text::Balanced 'extract_bracketed';

= <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59500	59604	
==>d, $line) or next;

			$prod->check_pending($line) if $prod;
			$prod = new Parse::RecDescent::Production <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59857	59959	
==>d,$line) or next;
			$prod->check_pending($line) if $prod;
			$prod = new Parse::RecDescent::Production <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022876	1023394	
==>"decodelocaltime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1143,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 210 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023725	1024174	
==>"decodelocaltime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1144,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 210 \"src/ops/sy <==
2	/Users/nnunley/parrot/languages/scheme/Scheme.pm	647	945	
==>ew_pad 0
END_HEADER

  while (@missing) {
    my $miss = shift @missing;

    my $link = Scheme::Builtins->generate($miss);
    $header .= << "END";
        newsub P16, .Sub, ${miss}_ENTRY
        store_lex 0, "$miss", P16
END

    push @function, $miss;

    if ($link->{functions}) {
      push @m <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1332	1448	
==>ype->imcc_pmc;
    my $temp_pmc = $compiler->temp_pmc();

    $compiler->emit("  $temp_pmc = new $pmc_type");
    $co <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	13737	13869	
==>c op1
    .param pmc op2

    # Convert the scalar into a vector and reshape it.
    $P1 = new 'APLVector'
    push $P1, op2
    $P1. <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	2762	2859	
==>ref);
Usage() unless $is_allowed{$class_name};
my $trans_class = "Parrot::OpTrans::" . $class_name <==
2	/Users/nnunley/parrot/config/auto/python.pm	6	96	
==>right (C) 2005, The Perl Foundation.
# $Id: /parrot/config/auto/python.pm 19593 2006-05-30T <==
2	/Users/nnunley/parrot/tools/dev/manicheck.pl	201	412	
==>20.183054Z coke  $
################################################################################

=head1 NAME

tools/dev/manicheck.pl - Check the MANIFEST file

=head1 SYNOPSIS

    % perl tools/dev/manicheck. <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15046	15307	
==>turn;
}

sub _op_cdr {
  my ($self, $node) = @_;

  _num_arg ($node, 1, 'cdr');

  my $return = $self->_generate (_get_arg($node,1));
  die "cdr: Element not pair\n" unless $return =~ /^P/;
  $self->_add_inst ('', 'set', [$return,$return.'[1]']);

  return $retu <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	44351	44478	
==>-op
      splice @$p,$i,1; # remove this line
      $i--; # don't consider next line
      next;
    }

    if( length($formatti <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1925	2035	
==>sing the test if
they do not match. The same pattern argument syntax above applies here.

=cut

sub p6rule_isnt <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3457	3557	
==>sing the test if
they do not match. The same pattern argument syntax above applies here.

=cut

sub p <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	11000	11125	
==>f events
similar to using any other class ( or Perl module ).

There is no significant speed gain between compile time and run <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6356	6610	
==>=> "load_bytecode",
                  "FLAGS" => ":load_file",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 9,
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5691	5922	
==>=> "load_bytecode",
                  "FLAGS" => ":load_file",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443635	443809	
==>patch_p_psp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444650	444824	
==>patch_p_psp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	5962	6067	
==>ffixes used in Parrot ignoring all SVN and ICU
files.

Note that if there are files with no suffix then th <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	44476	44575	
==>t is, the contents of
a quote, the regex of a match or substitution or the target list of a
translat <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	22667	22774	
==>r.y"
{ return [ $_[1], $_[3] ] }
	],
	[#Rule 42
		 'classpiece', 1,
sub
#line 177 "lib/Regex/Grammar.y"
{ re <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	35597	35706	
==>CODES

If all your tests passed, Test::Builder will exit with zero (which is
normal).  If anything failed it w <==
2	/Users/nnunley/parrot/lib/Test/More.pm	33668	33777	
==>CODES

If all your tests passed, Test::Builder will exit with zero (which is
normal).  If anything failed it w <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	75815	75916	
==>RD_TRACE
	or defined $::RD_HINT    and  $_[0] =~ /ERRORS|WARN|HINT/
	or defined $::RD_WARN    and  $_[ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	624529	624736	
==>02,
                  "ARGS" => [
                              "pc"
                            ],
                  "BODY" => "#line 247 \"src/ops/pic.ops\"\n    Parrot_MIC *mic;\n    Parrot_PIC_lru *lru;\n <==
2	/Users/nnunley/parrot/config/auto/env.pm	607	762	
==>get('verbose');

    my ($setenv, $unsetenv) = (0, 0);

    cc_gen('config/auto/env/test_setenv.in');
    eval { cc_build(); };
    unless ($@ || cc_run() ! <==
2	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	733	964	
==>ode_f   = Parrot::Test::per_test( '.code', $test_no );
  my $out_f    = Parrot::Test::per_test( '.out', $test_no );

  my $test_prog_args = $ENV{TEST_PROG_ARGS} || '';
  my $cmd = "$self->{parrot} languages/parrot_compiler/$test_pro <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4470	4596	
==>efix . "$base */\n\n";

    return $c;
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	6	99	
==>right (C) 2001-2005, The Perl Foundation.
# $Id: /parrot/config/inter/yacc.pm 19593 2006-05-30 <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	206	326	
==>percent	=> int(($1 / $2) * 100)
		};
	}
}

print <<HEADING;
Name & Done & Total & Percent \\\\
\\hline
HEADING
f <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	760	867	
==>n "match '$byte'";
}

sub output_classmatch {
    my ($class) = @_;
    return "classmatch '$class'";
}

sub <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058677	1059180	
==>global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1182,
                  "ARGS" => [
                              "p",
                              "kc",
                              "sc"
                            ],
                  "BODY" => "#line 194 \" <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	26080	26237	
==>like "
        . $fallbacks_one
      );
      return;
    }
    
    unless($elements_one =~ m/^[^ ,]+(,[^ ,]+)*$/s) { # like "B", "M,I", etc.
      $self->w <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7529	7692	
==>) {
	#	# Assignment statement
	#	my $var=$syms[CURR];
	#	feedme;  # Get the =
	#	#print "Going to expression with $syms[CURR]\n";
	#	EXPRESSION;		# Evaluate the exp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903944	904298	
==>i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1019,
                  "ARGS" => [
                              "s",
                              "ic",
                              "ic",
                              "sc"
                            ],
                  "BODY" => "#line 257 \"sr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43686	43885	
==>_push_mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44330	44529	
==>_push_mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	1748	1895	
==>",
       b => "void *",
       B => "void **",
       L => "long *",
       T => "char **",
     );

my %other_decl =
     ( p => "PMC *final_desti <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	1146	1262	
==>undef;
    open my $file, "<", $filename
        or die "can't open '$filename' for reading";

    return $file;
}

s <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	3317	3456	
==>e_checksum($to,   $ignorePattern);
        return if $from_sum == $to_sum;
    }

    File::Copy::copy($from, $to);

    # Make sure the tim <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	34929	35113	
==>y $lbl_end = new_label($parser);
    push @opcodes1, new BranchIfOp( $parser,
        'arg1'   => $nil->[0],
        'op'     => '==',
        'arg2'   => $var,
        'result' => <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4780	4900	
==>>scope eq 'global')) {
    my $pmc_type = $dest_ident->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();

    $com <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2843	2963	
==>>scope eq 'global')) {
    my $pmc_type = $dest_ident->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();

    $com <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	25620	25730	
==>~ ~ ~ ~ ~ ~ ~ ~ ~ ~

    if($para_type eq '=pod') { #//////////////////////////////////////////////
      $self <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231099	231249	
==>i"
                            ],
                  "BODY" => "#line 592 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232003	232153	
==>i"
                            ],
                  "BODY" => "#line 592 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{ <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	2040	2210	
==>-Z]\w*)/);
        my $op = $2;
        $op =~ s/\.//g;
        next if ($ops{$op});
        print "      <item>$op</item>\n";
        $ops{$op} = 1;
    }
}

for my $op ( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	394	511	
==>:Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected 5 args!" unless @_ == 5;

  my ($blo <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	394	511	
==>:Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected 5 args!" unless @_ == 5;

  my ($blo <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	5260	5359	
==>} elsif ($type eq 'classmatch') {
	return $R->{args}[0] eq $S->{args}[0];
    } elsif ($type eq 'sta <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031583	1031837	
==>} - enum_first_type].size;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032452	1032706	
==>} - enum_first_type].size;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41061	41503	
==>TART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 52,
                  "ARGS" => [
                              "ic",
                              "ic"
                            ],
                  "BODY" <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	1276	1380	
==>all {
	die "pre_call not implemented for current stack to register mapper\n";
}
sub post_call {
	die "pos <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712491	712587	
==>ter, \"%.12g\", (double){{\@1}});\n  PIO_putps(interpreter, io, s);\n  if (string_str_index(inter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713598	713694	
==>ter, \"%.12g\", (double){{\@1}});\n  PIO_putps(interpreter, io, s);\n  if (string_str_index(inter <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	83	317	
==>:Find;
use File::Spec;
use FindBin;
use Getopt::Long;
use Pod::Usage;
require POSIX;

=head1 NAME

parrotbench - Parrot benchmark

=head1 SYNOPSIS

parrotbench.pl [options]

 Options:
   -b -benchmarks     use benchmarks matching regex <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	7697	7819	
==>LDOUT if $out;
    local *OLDERR if $err;

    # Save the old filehandles; we must not let them get closed.
    open  OLDOU <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7748	7869	
==>LDOUT if $out;
    local *OLDERR if $err;

    # Save the old filehandles; we must not let them get closed.
    open OLDOU <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3356	3467	
==>->data->get('linkflags');
            $linkflags =~ s/-opt:\S+//;
            $conf->data->set(linkflags => $lin <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4860	4971	
==>->data->get('linkflags');
            $linkflags =~ s/-opt:\S+//;
            $conf->data->set(linkflags => $lin <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7848	7972	
==>e {
          ++$self->{'pod_para_count'};
          $self->_ponder_paragraph_buffer();
           # by now it's safe to cons <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	8207	8325	
==>e {
        ++$self->{'pod_para_count'};
        $self->_ponder_paragraph_buffer();
         # by now it's safe to cons <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	8946	9050	
==>d return "jit";
  /\b-C\b/ and return "cgp";
  /\b-S\b/ and return "switch";
  /\b-f\b/ and return "fast" <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	13647	13812	
==>><tmpl_var name=unexpect></td>
	    </tmpl_loop>
	    <td><span title="Details" class="expander" onclick="toggle_visibility('<tmpl_var name=id>')" id="expander_<tmpl_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	855683	855918	
==>=> [
                              "s",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 105 \"src/ops/string.ops\"\n  {{\@1}} = string_concat(interp <==
2	/Users/nnunley/parrot/config/init/manifest.pm	580	766	
==>($conf->options->get('nomanicheck')) {
        $self->set_result('skipped');
        return $self;
    }

    my @missing = ExtUtils::Manifest::manicheck();

    if (@missing) {
        p <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2827	2980	
==>_html .= $content->write_html($source, $target, $silent);
	}
	
	return $index_html;
}

=item C<contents_relative_to_source($source)>

Returns the contents <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	10992	11117	
==>( !defined $got || !defined $expect ) {
        # undef only matches undef and nothing else
        my $test = !defined $got & <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	11410	11535	
==>( !defined $got || !defined $expect ) {
        # undef only matches undef and nothing else
        my $test = !defined $got & <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33960	34072	
==>my $type = $method->{type};
        $ret_def = "$type ret_val;";
        $func_ret = $self->gen_ret($method->{typ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38922	39034	
==>my $type = $method->{type};
        $ret_def = "$type ret_val;";
        $func_ret = $self->gen_ret($method->{typ <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2912	3109	
==>_fn),
                       $output,
                       $desc );
        if ( ! $pass ) {
            my $diag = q{};
            my $test_prog = join( ' && ', @test_prog );
            if ( $e <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	7401	7507	
==>p$LOAD_EXT", @sources)) {
        run(partial_link_cmd("$group$LOAD_EXT", $libs, \@sources))
          or d <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7612	7718	
==>p$LOAD_EXT", @sources)) {
        run(partial_link_cmd("$group$LOAD_EXT", $libs, \@sources))
          or d <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15463	15581	
==>'nil' );
    push @opcodes, @{ $nil->[1] };
    $result = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19216	19334	
==>'nil' );
    push @opcodes, @{ $nil->[1] };
    $result = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411681	411957	
==>E" => 475,
                  "ARGS" => [
                              "i",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 552 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_send(interprete <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	35566	35779	
==>s,
  'tan'              => \&_op_tan,
  'asin'             => \&_op_asin,
  'acos'             => \&_op_acos,
  'atan'             => \&_op_atan,
  'sqrt'             => \&_op_sqrt,
  'expt'             => \&_op_ex <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	42112	42207	
==>ment (the text to
be extracted from).

In other words, the implementation of C<extract_tagged> i <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	25522	25694	
==>~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
    # ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~

    if($para_type eq '=pod') { #////////////////////// <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	25574	25717	
==>~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~

    if($para_type eq '=pod') { #///////////////////////////////////////////// <==
2	/Users/nnunley/parrot/config/gen/PodText.pm	1311	1430	
==>d};
        $parser->parse_from_file($pod, $plain);

        # append a header to the generated plain text
        open( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	8957	9136	
==>nless ($op->{nocheck});

    my @debugging;
    if ($self->{DEBUG}) {
        my $old_lastback = $lastback;
        $lastback = $self->genlabel('debug_matchback');
        @debuggi <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	852	1115	
==>pend;
			fetch;
			$numtype="FLO";
			goto NUMCONST;
		}
		if ($cur =~ /[eEdD]/ and $next =~/[-+\d]/) {
			append;
			fetch;
			append;	# Pick up next char too
			fetch;
			$numtype="FLO";
			goto NUMCONST;
		}
		# Falls through!
		if ($cur =~ /[#!&%]/) {
			appen <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	9759	9974	
==>mpiled = 0;
    if (!defined $body) {
        $precompiled = 1;
        $extern = 1;
        my $opbody = $op->body;
        # retranslate VTABLE_macro to the expanded form
        $opbody =~ s/
            \bVTABLE_ <==
2	/Users/nnunley/parrot/Configure.pl	7743	7840	
==>ICU headers without /unicode
   --icushared=(flags)  Full linker command to create shared librarie <==
2	/Users/nnunley/parrot/config/gen/icu.pm	3821	3918	
==>ICU headers without /unicode
   --icushared=(flags)  Full linker command to create shared librarie <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1298	1434	
==>a line
         [^\n\ ]{0,50}     #  and finish any current word
        )
        \x20{1,10}(?!\n)   # capture some spaces not at line-e <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1242	1378	
==>a line
         [^\n\ ]{0,50}     #  and finish any current word
        )
        \x20{1,10}(?!\n)   # capture some spaces not at line-e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721781	722107	
==>=> ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 809,
                  "ARGS" => [
                              "p",
                              "s <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	1127	1257	
==>*/ \n";
        $i++;
    }
    print OUT <<"END_H";
    enum_class_core_max
};

/* &end_gen */
END_H

    close OUT;

    move_if_ <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3352	3465	
==>tput
        # XXX This should be "print the last command". Which is harder.
        $body =~ s/^(\s*)([^\n]+)\s*\ <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4759	4872	
==>tput
        # XXX This should be "print the last command". Which is harder.
        $body =~ s/^(\s*)([^\n]+)\s*\ <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	5472	5569	
==>t keys %API;

my @NoParrotAPI = grep { !exists $API{$_} } sort keys %ParrotAPI;
my @NoParrotPrefix <==
2	/Users/nnunley/parrot/lib/Test/More.pm	1687	1785	
==>$test_name);

  cmp_ok($this, '==', $that, $test_name);

  is_deeply($complex_structure1, $complex_ <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	1644	1749	
==>ternal C<OPS> hash key to do its concatenation, and the way it
twiddles each op's C<CODE> hash key after t <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	475	594	
==>o power_ok
%% DOMAIN_ERROR %%
power_ok:
    $N1 = %1
    $N2 = %2
    $N1 = pow $N1, $N2
	%1 = $N1

END_PIR

    '\x{d7} <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	597	855	
==>=item * the number of M op/s.

=back

=cut

sub time_hires { time() }

$I2 = 0;                      # set    I2, 0
$I3 = 1;                      # set    I3, 1
$I4 = 10000000;              # set    I4, 10000000
                              #
print "Iteratio <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	595	803	
==>=item * the number of M op/s.

=back

=cut

sub time_hires { time() }

$I2 = 0;                      # set    I2, 0
$I3 = 1;                      # set    I3, 1
$I4 = 100000000;              # set    I4, 10000 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627304	627405	
==>, the continuation PMC\n   * needs to be in the destination register before its init method\n   * copi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628448	628549	
==>, the continuation PMC\n   * needs to be in the destination register before its init method\n   * copi <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	9361	9518	
==>0["value"]=0
	store_global "PRINTCOL", \$P0
	print "\\n"
PRINT
		}
	}

}
sub parse_print {
	my $eol=0;
	my $expr=0;
	my $c=0;
	my $fd="";
	my ($result, $type, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	3703	3812	
==>op1, $test, $op2, $dest, $lastback) = @_;
    my $continue = $self->genlabel('after_test');
    my $rev_test = <==
2	/Users/nnunley/parrot/tools/dev/mk_inno.pl	195	419	
==>:23:20.183054Z coke  $
################################################################################

=head1 TITLE

tools/dev/mk_inno.pl - Create a script for Inno Setup

=head1 SYNOPSIS

    % perl tools/dev/mk_inno.pl [o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421836	422101	
==>@1}} = (INTVAL)PIO_bind(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422729	422994	
==>@1}} = (INTVAL)PIO_bind(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2746	2851	
==>k in the alias

SHARING
		} 
	}
}

my $inputcounts=0;
sub input_read_assign {
	my($prompt,$filedesc,$norel <==
2	/Users/nnunley/parrot/config/auto/snprintf.pm	903	1045	
==>intf/) {
        $conf->data->set(HAS_OLD_SNPRINTF => 1);
    }
    print " ($res) " if $conf->options->get('verbose');

    return $self;
}

1 <==
2	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	478	668	
==>[$_] = buildarray();
    }

    my @arr2;
    foreach (1..20) {
	$arr2[$_] = buildarray();
    }
}

sub buildarray {
    my @foo;
    foreach (1..20000) {
	$foo[$_] = $_;
    }
    return \@f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826677	826776	
==>_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_num(entry->entry);\n  {{+=3}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827747	827846	
==>_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_num(entry->entry);\n  {{+=3}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683988	684246	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684882	685140	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i" <==
2	/Users/nnunley/parrot/config/gen/icu.pm	2718	2948	
==>f->data->set(
            has_icu    => 0,
            icu_shared => '', # used for generating src/dynpmc/Makefile
            icu_dir    => '',
        );
        $self->set_result("no") unless defined $self->result;
        retur <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2661	2760	
==>lf->right->sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ N <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2538	2637	
==>lf->right->sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_element({ N <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822343	822436	
==>type != STACK_ENTRY_INT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823411	823504	
==>type != STACK_ENTRY_INT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9399	9516	
==>f $new_code =~
          m/[\x00-\x2C\x2F\x39\x3B-\x40\x5B-\x5E\x60\x7B-\x7F]/
            # Characters under 0x80 tha <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10663	10780	
==>f $new_code =~
          m/[\x00-\x2C\x2F\x39\x3B-\x40\x5B-\x5E\x60\x7B-\x7F]/
            # Characters under 0x80 tha <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	10336	10468	
==>p_num";
    };
    /3/ && do {
        push @{$temps_ref}, "PMC *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	21200	21374	
==>($1)
            } @rules;
            $pir .= "B2_BRANCH_$_:\n";
            $pir .= "    cur_ic = bc.read_uint8()\n    next_pc += 1\n";
            $pir .= binary_dispatch_t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485463	485718	
==>RGS" => [
                              "n",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 455 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	73	167	
==>ase 'Regex::CodeGen';
use strict;

my $fail_label = Regex::Ops::Tree::mark('FAIL');

sub init_c <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	74	168	
==>ase 'Regex::CodeGen';
use strict;

my $fail_label = Regex::Ops::Tree::mark('FAIL');

sub init_c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692296	692656	
==>vtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 778,
                  "ARGS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693295	693655	
==>vtregister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 779,
                  "ARGS" = <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6840	6985	
==>R]}) {
	#	# Assignment statement
	#	my $var=$syms[CURR];
	#	feedme;  # Get the =
	#	#print "Going to expression with $syms[CURR]\n";
	#	print CODE <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	6919	7147	
==>turn 1;
}

sub addautoscore
{
	my ( $self, $code ) = @_;
	$self->{"autoscore"} = $code;
	$self->{"changed"} = 1;
	return 1;
}

sub nextoperator($)
{
	my $self = shift;
	my $prodcount = scalar @{$self->{"prods"}};
	my $opcount = + <==
2	/Users/nnunley/parrot/tools/docs/pod_errors.pl	74	194	
==>tools/docs/pod_errors.pl 19607 2006-05-30T15:23:20.183054Z coke  $

=head1 NAME

tools/docs/pod_errors.pl - Reports POD e <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	3736	3853	
==>less( defined $lines[-1] ) {
          DEBUG and print "That's it for that source fh!  Killing.\n";
          delete $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	513673	514113	
==>RGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 592,
                  "ARGS" => [
                              "n",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 708 \"src/ <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	148	246	
==>d1 NAME

tools/dev/parrot_api.pl - Verify Parrot API (symbols)

=head1 SYNOPSIS

    % perl tools/d <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3221	3324	
==>ffix($suffix)>

This is a class method that converts a file suffix to a description of
the type of files <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	397	534	
==>($_[0]))
    ? $_[0]
    : ( \( $_[0] ) )[0]
  ;
  $$x = '' unless defined $$x;
  
  #Pod::Simple::DEBUG and print "New $class handle on $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	23183	23287	
==>R, $lastback) = @_;

    my $loop = $self->genlabel('plus_loop');
    my $rfail = $self->genlabel('plus_r <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	13873	14045	
==>s B<does not match> the
given $regex.

=cut

sub like {
    my($self, $this, $regex, $name) = @_;

    local $Level = $Level + 1;
    $self->_regex_ok($this, $regex, '=~', $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146369	146590	
==>_pp(interpreter, {{\@1}}, {{\@2}}, MMD_EQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167595	167816	
==>_pp(interpreter, {{\@1}}, {{\@2}}, MMD_EQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5631	5880	
==>( {
                  "JUMP" => 0,
                  "NAME" => "load_bytecode",
                  "FLAGS" => ":load_file",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6296	6545	
==>( {
                  "JUMP" => 0,
                  "NAME" => "load_bytecode",
                  "FLAGS" => ":load_file",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453042	453202	
==>"
                            ],
                  "BODY" => "#line 230 \"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453781	453941	
==>"
                            ],
                  "BODY" => "#line 230 \"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213609	214006	
==>ase_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 251,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic" <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	3891	4101	
==>" goto $label\n";
    }
    $pir .= "goto FAIL\n";

    # Now build method dispatch table for each class.
    foreach (keys %classes) {
        # Stick label at top.
        my $label = "CLASS_$_";
        $labe <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2256	2499	
==>ister_num++;
		$push_num++;
	}

	# Return generated code.
	return $pir;
}

sub post_op($$) {
	my $self = shift;
	my ($pops, $pushes) = @_;
	my $pir = "";

	# Emit code to push stuff back onto the stack.
	for (1..$pushes) {
		$pir .= <<'PIR';
${ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	561	683	
==>lines gen_ret dont_edit dynext_load_code);

our %writes;
{
  my @writes = qw(STORE PUSH POP SHIFT UNSHIFT DELETE);
  @write <==
2	/Users/nnunley/parrot/config/init/defaults.pm	5424	5526	
==>to emulate GNU make's C<-C directory> option:  chdir
        # to C<directory> before executing $(MAKE) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	222	320	
==>ion.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako: <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	18381	18497	
==>son'};


Modified by Casey West, 2000-11-08, v0.59.

    Added the ability for compile time class creation.

Modified <==
2	/Users/nnunley/parrot/config/auto/headers.pm	2407	2528	
==>conf->data->set(testheader  => undef);

            eval { cc_build(); };
            if (!$@ && cc_run() =~ /^$header OK/ <==
2	/Users/nnunley/parrot/config/gen/icu.pm	4384	4488	
==>conf->data->set(testheader  => undef);
    eval { cc_build(); };
    if (!$@ && cc_run() =~ /^$header OK/ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	37946	38325	
==>ep ref($_)||length($_), @ell_content  ;
          @section_name = grep ref($_)||length($_), @section_name ;

          # Turn L<.../"foo"> into L<.../foo>
          if(@section_name
            and !ref($section_name[0]) and !ref($section_name[-1])
            and $section_name[ 0] =~ m/^\"/s
            and $section_name[-1] =~ m/\"$/s
            and !( # catch weird degenera <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4813	4912	
==>c_type = $dest_ident->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();

    $compiler->emit( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2876	2975	
==>c_type = $dest_ident->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();

    $compiler->emit( <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2125	2228	
==>, $offset);
}

=item C<goto_offset($offset)>

Transforms the C<goto OFFSET($offset)> macro in an ops fil <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	2405	2521	
==>turn 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'mo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937564	937778	
==>"inline",
                  "CODE" => 1054,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 460 \"src/ops/string.ops\"\n  string_titl <==
2	/Users/nnunley/parrot/config/auto/funcptr.pm	841	941	
==>andard,
Parrot requires the ability to cast from void pointers to function
pointers for its JIT suppo <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8978	9139	
==>ol() to locate a matching
symbol, and then returns that symbol's scope (global or local).

=cut

sub scope_of_ident
{
  my $self = shift; # Required: Jako::Constr <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14874	15054	
==>defined wantarray) { # void context: alter in-place!
    for(@_) {
      s/([F\x00-\x1F\-\\\{\}\x7F-\xFF])/$Escape{$1}/g;  # ESCAPER
      s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<3276 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	287420	287507	
==>ine 918 \"src/ops/cmp.ops\"\n  {{\@1}} = (mmd_dispatch_i_pp(interpreter, {{\@2}}, {{\@3} <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	4785	5017	
==>ir_item('', 'key'),
            $self->c_pair_item('', 'sub'),
            $self->c_header_item('', 'pobj'),
            $self->c_pair_item('', 'pmc_freeze'),
        ),
        $self->new_group(
            'Objects', 
            ' <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	2010	2224	
==>_pmcs), "\n";
    @sorted_pmcs;
}

sub runstep
{
    my ($self, $conf) = @_;

    my @pmc = (
        sort
            map { m{\./src/pmc/(.*)} } glob "./src/pmc/*.pmc"
    );

    @pmc = sort_pmcs(@pmc);

    my $p <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2744	2846	
==>offset)>.

=cut

sub restart_offset
{
    my ($self, $offset) = @_;

    return "interpreter->resume_of <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4079	4181	
==>offset)>.

=cut

sub restart_offset
{
    my ($self, $offset) = @_;

    return "interpreter->resume_of <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	14432	14699	
==>]),
                     aop('goto', [ $try_S ]),
            $next =>
                    );
}

# R|S|T ->       R or tryS
#                push 0
#                goto next
#          tryS: S or tryT
#                push 1
#                goto next
#          tryT <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	1336	1472	
==>c$="WRONG"
call mysub()


' Expect 10
sub second(b() )
	b(5)=10
end sub
sub first(a() )
	call second(a())
end sub
dim t(),f()
call first( <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	14653	14761	
==>h = $entry->{meth};
        next if exists $self->{super}{$meth};
        foreach my $pname (@{ $self->{paren <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	534	764	
==>ERSION = "0.4.5";

$preamble = "/*\n** core.ops\n*/\n\n#include \"parrot/dynext.h\"\n#include \"parrot/embed.h\"\n#include \"../interp_guts.h\"\n\n\n\n/*\n** bit.ops\n*/\n\n\n\n/*\n** cmp.ops\n*/\n\n\n\n/*\n** debug.ops\n*/\n\n\n\n <==
2	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	541	633	
==>t versions of Parrot, i.e. the
file F<DEVELOPING> exists. Releases include a non-dynamic fing <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87408	87499	
==>e 1215 \"src/ops/core.ops\"\n  {{\@1}} = Parrot_make_cb(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88410	88501	
==>e 1215 \"src/ops/core.ops\"\n  {{\@1}} = Parrot_make_cb(interpreter, {{\@2}}, {{\@3}}, {{\@4 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668904	669130	
==>8,
                  "ARGS" => [
                              "p",
                              "n"
                            ],
                  "BODY" => "#line 410 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->push_float(in <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	10996	11097	
==>lass, $method, $super, $super_table)>

Rewrites the method body performing the various macro substitut <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11398	11499	
==>lass, $method, $super, $super_table)>

Rewrites the method body performing the various macro substitut <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	1442	1543	
==>n(File::Spec->updir() x ($dir_count - 2));
    }

    my $lang_f = Parrot::Test::per_test('.tcl',$coun <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1698	1803	
==>s = new ResizablePMCArray
PIR
}

# Post translation hook.
sub post_translation() {
	# Nothing to do.
	retu <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6970	7071	
==>us$="not"
print "Found  (5): ", instr(s1$, found$)
print "Bogus  (0): ", instr(s1$, bogus$)
print "Nul <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18699	18800	
==>us$="not"
print "Found  (5): ", instr(s1$, found$)
print "Bogus  (0): ", instr(s1$, bogus$)
print "Nul <==
2	/Users/nnunley/parrot/lib/Test/More.pm	326	487	
==>quire Exporter;
use vars qw($VERSION @ISA @EXPORT %EXPORT_TAGS $TODO);
$VERSION = '0.60';
$VERSION = eval $VERSION;    # make the alpha version come out as a numb <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	12900	13144	
==>,
			   @values
			  ]};

  $return = $self->_generate($let);

  return $return;
}

sub _op_let_star {
}

sub _op_letrec {
}

sub _op_begin {
  my ($self, $node) = @_;
  my $temp = 'none';

  my @args = _get_args ($node);

  for (@args) {
    $s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	311992	312152	
==>\n    PDB_backtrace(interpreter);\n    {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/tools/dev/gen_class.pl	897	1091	
==>n/../../vtable.tbl");

my $classname = shift
	or die "No classname given!\n";


## emit file header
print <<EOF;
/* ${classname}.pmc
 *  Copyright (C) 2001-2003, The Perl Foundation.
 * <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	2147	2390	
==>"*/\n" if $inc =~ /\.h/;
                next;
            }
            if (/&end_gen/) {
                close INC;
                my $destfile = ($inc =~ m[/]) ? "$inc" : "$destdir/$inc";

                #move_if_diff("$inc.tmp", "$destdir <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	9552	9688	
==>.*)\.(.*)/);
        $filebase ||= $filename;
        $extension ||= '';
        if ($filebase =~ /\./) {
            error("MANIFEST", $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10815	10924	
==>my($class)=shift;
        ref($class)
    and $class=ref($class);

    my($self)=$class->SUPER::new( yyver <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11815	11920	
==>my($class)=shift;
        ref($class)
    and $class=ref($class);

    my($self)=$class->SUPER::new( yyver <==
2	/Users/nnunley/parrot/config/init/hints/irix.pm	34	208	
==>ndation.
# $Id: /parrot/config/init/hints/irix.pm 19593 2006-05-30T02:28:15.110975Z coke  $

package init::hinits::irix;

use strict;

sub runstep
{
    my ($self, $conf) = @_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	52121	52445	
==>b
#line 295 "Lua\lua51.yp"
{
            $_[2];
        }
	],
	[#Rule 50
		 'key', 2,
sub
#line 299 "Lua\lua51.yp"
{
            BuildLiteral( $_[0], $_[2], 'key' );
        }
	],
	[#Rule 51
		 'namelist', 3,
sub
#line 306 "Lua\lua51.yp"
{
            [
                @{ $_[1] },
                BuildL <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1210	1303	
==>>{builder}->is_eq( Parrot::Test::slurp_file($out_f), $output, $desc );
        $self->{builder <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1251	1344	
==>>{builder}->is_eq( Parrot::Test::slurp_file($out_f), $output, $desc );
        $self->{builder <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	15324	15461	
==>turn;
	}

	my $endpos = pos($$textref);
	return ( $startpos, $codepos-$startpos,
		 $codepos, $endpos-$codepos,
		 $endpos,  length($$text <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	8447	8578	
==>) /oes)
		{
			_failmsg "Unable to construct closing tag to match: $rdel",
				 pos $$textref;
			goto failed;
		}
	}
	else
	{
		$rd <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10511	10700	
==>locals
	$dest_locals
	\${AUTO_MAGICALS}

	# Type constants.
	.const int ELEMENT_TYPE_VOID = 0x01
	.const int ELEMENT_TYPE_BOOLEAN = 0x02
	.const int ELEMENT_TYPE_CHAR = 0x03
	.const int ELEM <==
2	/Users/nnunley/parrot/languages/APL/t/APL.pm	1318	1480	
==>odo tests not bother specifying an out.
                      # XXX also gives us a way to specify a blank output,
                      # Since we're converting a <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	1446	1557	
==>:slurp_file($py_out_f);
    my $pirate_file;

    $exit_code |= Parrot::Test::run_command($cmd, STDOUT => $pirat <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	1071	1173	
==>em C<new()>

Basic object constructor.

Accepts no arguments and returns a L<Parrot::Configure::Data> o <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1207	1306	
==>ed to do this.

=item $token->tag(...)

A shortcut for $token->tagname(...)

=item $token->is_tag(I< <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1637	1736	
==>ed
to do this.

=item $token->tag(...)

A shortcut for $token->tagname(...)

=item $token->is_tag(I< <==
2	/Users/nnunley/parrot/config/auto/readline.pm	1273	1423	
==>eneralized way for finding
    # where Fink lives.
    if ($osname =~ /darwin/) {
        if (-f "/sw/include/readline/readline.h") {
            $conf <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	1006	1248	
==>m('Instructions for Parrot in a Win32 environment.', 'README.win32.pod'),
            $self->new_item('This file lists what\'s new in each version.', 'NEWS'),
            $self->new_item('A plan for Parrot.', 'docs/ROADMAP.pod'),
            $ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22600	22705	
==>_0,1,"DONE_$label"]);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$la <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	235	337	
==>otbench.pl [options]

 Options:
   -b -benchmarks     use benchmarks matching regexes  (multiple)
   -c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032485	1032780	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_lex",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033582	1033877	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_lex",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14740	14842	
==>~~~~~
#-------------------------------------------------------------------------

use integer;
sub rtf_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16437	16655	
==>=> [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 293 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) {\n    {{+={{\@2}}}};\n  }\n  {{ <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	12055	12151	
==>xpected_type, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function currently on c <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	5127	5246	
==>ct files.

For a detailed Documentation see the C<Digest::MD5> module.

=head1 EXAMPLES

The simplest way to use this li <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	14606	14840	
==>ath.h
tanhl       math.h
tanl        math.h
tgamma      math.h
tgammaf     math.h
tgammal     math.h
time        time.h
tmpfile     stdio.h
tmpnam      stdio.h
tolower     ctype.h
toupper     ctype.h
trunc       math.h
truncf      math <==
2	/Users/nnunley/parrot/languages/lua/luac.pl	877	1092	
==>o} )
{
    my $nb = $parser->YYData->{nb_info};
    print "$nb info(s).\n";
}

unless ( exists $parser->YYData->{nb_error} ) {
    $parser->Generate();
}

__END__

=head1 NAME

luac - Lua compiler

=h <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679172	679398	
==>>unshift_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679951	680177	
==>>unshift_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	1794	1898	
==>ry of its choosing)

=item C<include>

Write this file to the location given by the C<--includedir> optio <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814532	814780	
==>/set.ops\"\n  {{\@1}} = 0;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	815782	816030	
==>/set.ops\"\n  {{\@1}} = 0;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672540	673002	
==>S" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 753,
                  "ARGS" => [
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 439 \"src/ops/pmc.ops\"\n    {{\@1}} = {{\@2}}->vtable->pop_integer(interpr <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	6097	6199	
==>_function($sig, $ret, $args, [@arg], $ret_type{$ret},
                 $ret_type_decl{$ret}, $func_call <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	3238	3423	
==>file;
        
        # beginning of function block
        if (/FUNCTION : (.*) \[(.*)\]/) {
            $function = $1;
            my $function_scope = $2;
            
            n <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29205	29320	
==>,
		"description" => "'$desc'",
	}, $class;
}


sub code($$$$)
{
	my ($self, $namespace, $rule, $check) = @_;
	
my $ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31303	31417	
==>,
		"description" => "'$desc'",
	}, $class;
}

sub code($$$$)
{
	my ($self, $namespace, $rule, $check) = @_;
	
my $ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	5144	5274	
==>y convention, each test is assigned a number in order.  This is
largely done automatically for you.  However, it's often very usefu <==
2	/Users/nnunley/parrot/lib/Test/More.pm	4563	4754	
==>leaned_plan, $item;
        }

        $idx++;
    }

    $Test->plan(@cleaned_plan);
}

sub import {
    my($class) = shift;

    my $caller = caller;

    $Test->exported_to($caller);

    m <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	13548	13665	
==>ne' => $m}, "Around line $line:"],
      map( ['~Para', {'start_line' => $m, '~cooked' => 1},
        #['~Top', {'star <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6967	7126	
==>token ne ''	#Don't eat the eof
				and	$$token=$$value=undef;
                next;
            };

            #reduce
            my($lhs,$len,$code,@se <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6642	6795	
==>token ne ''	#Don't eat the eof
				and	$$token=$$value=undef;
                next;
            };

            #reduce
            my($lhs,$len,$code,@se <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	990	1169	
==>$type,
    NAME   => $ident->value,
    PROPS  => $props,
    ARGS   => $args,

    DEBUG  => 1,
    FILE   => $ident->file,
    LINE   => $ident->line,
  }, $class;

  #
  # Check <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1040	1184	
==>$type,
    NAME  => $ident->value,
    PROPS => $props,
    ARGS  => $args,

    DEBUG => 1,
    FILE  => $ident->file,
    LINE  => $ident->line <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	616	832	
==>eturn $self;
}

sub cflags
{
    my ($self, $conf) = @_;

    genfile(
        'config/gen/makefiles/CFLAGS.in' => 'CFLAGS',
        commentType                      => '#'
    );

    open(CFLAGS, ">> CFLAGS") or die <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	29485	29593	
==>char_integer {
}

sub _op_integer_char {
}

sub _op_char_upcase {
}

sub _op_char_downcase {
}

sub _op_strin <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	12182	12310	
==>$self->diag(sprintf <<DIAGNOSTIC, $got, $expect);
         got: %s
    expected: %s
DIAGNOSTIC

}    

=item B<isnt_eq>

  $Test- <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	11194	11378	
==>{
               (undef, my $file, my $line) = caller();
               $desc = "($file line $line)";
            }

            # $test_no will be part of temporary file
            my <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	16679	16863	
==>{
               (undef, my $file, my $line) = caller();
               $desc = "($file line $line)";
            }

            # $test_no will be part of temporary file
            my <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4849	4949	
==>h {
    my ($self, $incexc, $failLabel) = @_;

    my $passLabel = $self->{state}->genlabel("pass_cha <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4513	4613	
==>h {
    my ($self, $incexc, $failLabel) = @_;

    my $passLabel = $self->{state}->genlabel("pass_cha <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	1332	1454	
==>TML.pm'),
            $self->new_item('', 'lib/Parrot/Docs/HTMLPage.pm'),
            $self->new_item('', 'lib/Parrot/Docs/ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3359	3461	
==>{
    my($self)=shift;

    keys %{$self->{STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
}

sub YYLexe <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3190	3286	
==>{
    my($self)=shift;

    keys %{$self->{STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
}

sub YYLexe <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	1720	1883	
==>p
      big=big
      small=small
      underline=u
      strikethrough=s
    ]  # no point in providing a way to get <q>...</q>, I think
  ),
  
  '/item-bullet' = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199561	199889	
==>":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 236,
                  "ARGS" => [
                              "n", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243969	244061	
==>_string(interpreter, {{\@2}});\n  {{\@1}} = string_compare(interpreter, l, {{\@3}});\n  {{+=4 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244901	244993	
==>_string(interpreter, {{\@2}});\n  {{\@1}} = string_compare(interpreter, l, {{\@3}});\n  {{+=4 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583929	584195	
==>EXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585003	585269	
==>EXT",
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fu <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	4477	4669	
==>date and stash it.
    if ($rule) {
        validate_rule($rule);
        push @rules, $rule;
    }

    # Close file and return parsed rules.
    close $fh;
    return @rules;
}


# Rule valid <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5500	5622	
==>s, "branch $fail";

    push @ops, $self->output_label_def($passLabel);
    return @ops;
}

sub output_initgroup {
    my ( <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	5599	5724	
==>asleftmost($ref);
	}

	return 0;
}

sub leftmostsubrules($)
{
	my $self = shift;
	my @subrules = ();

	my $prod;
	foreach $pro <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1976	2074	
==>dent'} }

sub   end_over_bullet  { --$_[0]{'Indent'} }
sub   end_over_number  { --$_[0]{'Indent'} } <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1544	1642	
==>dent'} }

sub   end_over_bullet  { --$_[0]{'Indent'} }
sub   end_over_number  { --$_[0]{'Indent'} } <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	2607	2787	
==>ot',
             'doublesize' => 8,
             'dquote' => '\\"',
             'encoding' => 'fixed_8.c ucs2.c utf16.c utf8.c',
             'exe' => '',
             'exec_prefi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	53561	53937	
==>x;
  my $out =
    # join ",\n" .
    join ", ",
    map {;
    if(!defined($_)) {
      "undef";
    } elsif(ref($_) eq 'ARRAY' or ref($_) eq 'Pod::Simple::LinkSection') {
      $x = "[ " . pretty(@$_) . " ]" ;
      $x;
    } elsif(ref($_) eq 'SCALAR') {
      $x = "\\" . pretty($$_) ;
      $x;
    } elsif(ref($_) eq 'HASH') {
      my $hr = $_;
      $x = "{" . join(", " <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8105	8214	
==>else
	print "All is not right"
end if

' Count from 9 to 0, print 5
dim y(10)
i=10
tloop:
	y(i)=i
	i=i-1
	prin <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	14707	14833	
==>pes;

        $template .= <<"END_PREAMBLE";


# $name
.sub unicode:"dyadic:$operator" :multi ( $type1, $type2 )
    .param pmc <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	8841	8933	
==>Docs::Directory>

=item C<Parrot::Docs::POD2HTML>

=item C<Pod::Simple::Checker>

=back

=cut <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14461	14712	
==>);

  $self->_add_inst ('', 'new', [$return,'.Array']);
  $self->_add_inst ('', 'set', [$return,2]);
  $self->_add_inst ('', 'set', [$return.'[0]',$car]);
  $self->_restore ($car);

  my $cdr = $self->_generate(_get_arg($node,2));
  $self->_add_inst (' <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	2970	3109	
==>);

  $self->_add_inst('', 'new', [$return,'.Array']);
  $self->_add_inst('', 'set', [$return, 2]);

  return $return;
}

#----------------- <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	17716	17821	
==>tempos]{'offset'}{'to'} = $prevoffset;
		$itempos[$#itempos]{'line'}{'to'}   = $prevline;
		$itempos[$#ite <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	16421	16530	
==>TY\s+(\S+)\s+"&#([^;]+);">/) {
      my($name, $value) = ($1,$2);
      next if $name eq 'quot' or $name eq 'a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667562	667784	
==>>vtable->push_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668336	668558	
==>>vtable->push_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	221	312	
==>perl examples/mops/mops.pl

=head1 DESCRIPTION

A Perl implementation of the F<examples/mops <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	217	308	
==>perl examples/mops/mops.pl

=head1 DESCRIPTION

A Perl implementation of the F<examples/mops <==
2	/Users/nnunley/parrot/config/auto/jit.pm	3457	3614	
==>O)'
        );

        if (   ($jitcpuarch eq 'i386')
            || ($jitcpuarch eq 'ppc')
            || ($jitcpuarch eq 'arm')) {
            $execcapable <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	619360	619499	
==>t);\n\tINTVAL c = a - b;\n\tif ((c^a) >= 0 || (c^~b) >= 0) {\n\t    if (lt == enum_class_Integer)\n\t\tPMC_int_val(left) = c;\n\t    else\n\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049850	1050202	
==>],
                  "TYPE" => "function",
                  "CODE" => 1173,
                  "ARGS" => [
                              "p",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 172 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6901	7017	
==>s.
sub pre_call {
    my $self = shift;
    return <<'PIR'
# See if we've got a return or something to call.
if ${ARG <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	8933	9134	
==>->{'Title'} = $title;

  esc($title);
  print {$self->{'output_fh'}}
   "<html><head>\n<title>$title</title>\n</head>\n<body>\n", 
   $self->version_tag_comment,
   "<!-- start doc -->\n",
  ;
   # TODO <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	1233	1319	
==>Wcast-qual -Wcast-align -Wwrite-strings -Waggregate-return -Winline -W -Wno-unused -Wsi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753549	753640	
==>Y" => "#line 261 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754337	754428	
==>Y" => "#line 261 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	839592	839854	
==>S" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rotate_up",
                  "FLAGS" => ":base_core",
                  "AR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840286	840548	
==>S" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rotate_up",
                  "FLAGS" => ":base_core",
                  "AR <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3488	3585	
==>'Thispara'} = '';
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3018	3115	
==>'Thispara'} = '';
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826662	826756	
==>exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_num(entry-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827732	827826	
==>exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_num(entry-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736708	736983	
==>TVAL){{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737454	737729	
==>TVAL){{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	43038	43171	
==>);
      $label = $row->[2];
      $self->{code} .= join ", ",@$label if $label;
    }
    $self->{code} .= "\n";
  }
}

sub new {
  m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127378	127676	
==>inline",
                  "CODE" => 157,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 271 \"src/ops/bit.op <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	23315	23418	
==>e;
			$type="FLO";
			my %th=( single => 'FLO', double => 'FLO', long => 'INT', integer => 'INT', string <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	1939	2075	
==>mcs[$n++] = $_;
        }
    }
    ## print "***\n", join(' ', @sorted_pmcs), "\n";
    @sorted_pmcs;
}

sub runstep
{
    my ($self, $c <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21232	21338	
==>f->{"code"} . ';
		' . ($self->{"lookahead"}<0?'if':'unless') . ' (defined $_tok)
		{'.($::RD_NO_TRACE?'':' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	153445	153948	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 186,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 127 \"src/ops/cmp.ops\"\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615031	615316	
==>n            \"Class not parent of object\");\n    }\n    {{\@1}} = offset;\n    {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616182	616467	
==>n            \"Class not parent of object\");\n    }\n    {{\@1}} = offset;\n    {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	828	954	
==>go down to get to
    # the tcl binary.

    # There are basically 3 choices: run in one of:
    #  languages
    #  languages/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653595	653851	
==>ing_to_cstring(interpreter, {{\@3}}));\n    {{=resume}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654756	655012	
==>ing_to_cstring(interpreter, {{\@3}}));\n    {{=resume}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105675	1105975	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "funct <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106650	1106950	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "funct <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	4320	4465	
==>mment = (
            "DO NOT EDIT THIS FILE",
            "Generated by " . __PACKAGE__ . " from $source"
        );

        if ($options{commen <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155292	155702	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 188,
                  "ARGS" => [
                              "sc",
                              "s",
                              "i <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	5582	5741	
==>temData name="TempRegister" defStyleNum="dsDecVal" />
      <itemData name="String" defStyleNum="dsString" color="#FF6C6C" selColor="#FF6C6C" bold="0" italic="0 <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	205	312	
==>he named library (or libraries). Its
format is simple, and looks like:

  [package]
  ncurses 

  [lib]
  li <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2506	2605	
==>cover backward branches until late to do
	# otherwise. Also, putting a label everywhere doesn't hurt <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1084	1183	
==>cover backward branches until late to do
	# otherwise. Also, putting a label everywhere doesn't hurt <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10441	10533	
==>EMP3}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = conc <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7825	7917	
==>EMP3}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = conc <==
2	/Users/nnunley/parrot/tools/dev/pbc_header.pl	157	323	
==>-update-fingerprint files ...

=head1 DESCRIPTION

The F<PBC_COMPAT> file is used to maintain Parrot bytecode
compatability. During release preparation (and other chan <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	12412	12541	
==>s is
the string version.

=item B<isnt_num>

  $Test->is_num($got, $dont_expect, $name);

Like Test::More's isnt().  Checks if $go <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856677	856815	
==>"sc"
                            ],
                  "BODY" => "#line 105 \"src/ops/string.ops\"\n  {{\@1}} = string_concat(interpreter, { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857567	857705	
==>"sc"
                            ],
                  "BODY" => "#line 105 \"src/ops/string.ops\"\n  {{\@1}} = string_concat(interpreter, { <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	6425	6639	
==>this is wrong, the default args should be evaluated once
	#     if this value depends on a global and that changes, this fails
	for ($i = $n; @{$def_args{$arg}}; $i--) {
	    my $reg = 4 + $i;
	    my $d = pop @{$de <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14431	14528	
==>) as first
u(2).foo=56
print u(2).foo

' Array assignment, 78
dim y(5)
y(1)=78
print y(1)

' Casti <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598179	598425	
==>{{\@2}} ));\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599226	599472	
==>{{\@2}} ));\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601692	602060	
==>leton",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 681,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 383 \"sr <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1920	2027	
==>++$_[0]{'Indent'} }
sub start_over_block   { ++$_[0]{'Indent'} }

sub   end_over_bullet  { --$_[0]{'Indent'} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1488	1595	
==>++$_[0]{'Indent'} }
sub start_over_block   { ++$_[0]{'Indent'} }

sub   end_over_bullet  { --$_[0]{'Indent'} <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	50150	50247	
==>se::RecDescent::Directive(
					'Text::Balanced::extract_codeblock($text,undef,$skip);
					', $lo <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	3587	3819	
==>ersion subroutines
    my %helpers = (
        # type     subroutine
        channel => '__channel',
        expr    => '__expr',
        int     => '__integer',
        list    => '__list',
        script  => '__script',
        var <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	14582	14705	
==>o: (int*)&something_not_int, one HAS to use temporary
        # variables.  We detect and collect those to "temp".
        m <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	18344	18491	
==>) {
	print "\t\t$cmt\n";
	$code_l++;
	JUMP_IF_TRUE($arg, $rest, "\t# JUMP_IF_FALSE");
    }
    else {
	my $tos = pop @stack;
	my $n = temp($tos->[2 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8105	8259	
==>DERR "Accept.\n";

				return($semval);
			};

                $$check eq 'ABORT'
            and	do {

#DBG>			$debug & 0x04
#DBG>		and	print STD <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7741	7886	
==>DERR "Accept.\n";

				return($semval);
			};

                $$check eq 'ABORT'
            and	do {

#DBG>			$debug & 0x04
#DBG>		and	print STD <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	667	798	
==>w_item('Ops to C Code Generation', 
			    'lib/Parrot/OpsFile.pm', 'lib/Parrot/Op.pm',
			    'lib/Parrot/OpLib',
			    'lib/Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921085	921415	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sprintf",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921978	922308	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sprintf",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/config/init/miniparrot.pm	701	802	
==>ription = 'Tweaking settings for miniparrot';

@args = qw(miniparrot);

sub runstep
{
    my ($self, $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	538798	539040	
==>h.ops\"\n  {{\@1}} = tan((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	3091	3218	
==>f->name =~ /\.([^.]+)$/;
    
    $self->{SUFFIX} = defined $suffix ? $suffix : '';
    
    return $self->{SUFFIX};
}

=item C< <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225018	225449	
==>ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 263,
                  "ARGS" => [
                              "p",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#li <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	20415	20608	
==>}\n";
                $byte2_todo{"$prefix$_->{'code'}"} = $_->{'group'};
            } else {
                # Not a group; jump straight to instruction.
                my $name = $_->{'name' <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	225	320	
==>rot::OpTrans::CSwitch> inherits from C<Parrot::OpTrans::CPrederef>
to provide a mixture of prede <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720226	720453	
==>r, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721426	721653	
==>r, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	525071	525361	
==>E" => "acos",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 606,
                  "AR <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6917	7017	
==>@_;
    my @ops;
    if ($self->{DEBUG}) {
	push @ops, (qq(print "PUSHED ).(@_>1?$_[1]:"mark").qq(\\n <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6567	6667	
==>@_;
    my @ops;
    if ($self->{DEBUG}) {
	push @ops, (qq(print "PUSHED ).(@_>1?$_[1]:"mark").qq(\\n <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	24	156	
==>e Perl Foundation.
# $Id: /parrot/lib/Parrot/Docs/Section/Perl.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14582	14722	
==>i"
                            ],
                  "BODY" => "#line 247 \"src/ops/core.ops\"\n  opcode_t * const loc = INTVAL2PTR(opcode_t * <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	14195	14306	
==>||= $body =~ s/\bgoto\s+ADDRESS\((.*?)\)/{{=$1}}/mg;
        $pop      ||= $body =~ s/\bgoto\s+POP\(\)/{{=*}}/mg <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	8972	9178	
==>s/\s*$//;
    s/^\s*//;
    next unless $_;
    ($name, $number) = split(/\s+/, $_);
    if ($prev + 1 != $number) {
	    die "hole in ops.num opcode # $number";
    }
    if (exists $ParrotOps::optable{$nam <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12961	13053	
==>NEXT_$foo->{num}\n";
	} elsif ($syms[NEXT] eq "function") {
		push @{$code{$seg}->{code}}, qq <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39122	39352	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41682	41912	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|P <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	18012	18120	
==>urr_Test});
    $self->{Curr_Test}++;

    $self->{Test_Results}[$self->{Curr_Test}-1] = &share({
        'ok <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	18877	18985	
==>urr_Test});
    $self->{Curr_Test}++;

    $self->{Test_Results}[$self->{Curr_Test}-1] = &share({
        'ok <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	285	406	
==>nctions for steps to
use.

Note that the actual configuration step itself is NOT an instance of this
class, rather it is d <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	3730	3875	
==>urn_data;\n    set_nci_S(interpreter, &st, final_destination);",
#      B => "PObj_bufstart(final_destination) = *return_data;\n    set_nci_S(inte <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89352	89624	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90090	90362	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core", <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1173	1283	
==>ernal_labels}{$fail_label} = 1;

    my $opt2 = Regex::Optimize->new(%options);
    $code->{code} = [ $opt2->op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	373045	373244	
==>s",
                              "p"
                            ],
                  "BODY" => "#line 395 \"src/ops/io.ops\"\n  STRING ** const s = &{{\@1}};\n\n  *s = NULL;\n  PIO_peek(interpreter, <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	24936	25072	
==>\n    next_pc += 4\n";
			$arg_name = "I_ARG_$arg_num";
		}

        # tmethod
		elsif (/^tmethod$/) {
			$out =  "    \${I_ARG_$arg_num} <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	3494	3593	
==>ad ops file '$file'!\n" unless defined $temp_ops;

    die "OPS invalid for $file" unless ref $temp_ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	35862	35960	
==>er run Test::Builder
will throw a warning and exit with 255.  If the test died, even after
having s <==
2	/Users/nnunley/parrot/lib/Test/More.pm	33933	34031	
==>er run Test::Builder
will throw a warning and exit with 255.  If the test died, even after
having s <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1269	1420	
==>SK,X5)+X1$MSK;",
	GG => "X0=rotate_left((X2^(X3&(X1^X2)))+X0+X4+X6$MSK,X5)+X1$MSK;",
	HH => "X0=rotate_left((X1^X2^X3)+X0+X4+X6$MSK,X5)+X1$MSK;",
	II => <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	2109	2280	
==>'S', $1);
      $text = $2;
      next;
    }

    #
    # Declarators:
    #

    if ($text =~ m{^(module)(?!\w)(.*)$}) {
      push @tokens, Jako::Token->new(
        $fi <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	2812	3029	
==>ype,
        NAME => $name,
        ARGS => [ @$args ],
        ARGDIRS => [ @$argdirs ],
        LABELS  => [ @$labels ],
        FLAGS   => $flags,
        BODY => '',
        JUMP => 0,
    };

    return bless $sel <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9295	9385	
==>= <<"EOC";
#include "parrot/parrot.h"
#include "parrot/extend.h"
#include "parrot/dynext.h" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088348	1088648	
==>ME" => "slice",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089295	1089595	
==>ME" => "slice",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
2	/Users/nnunley/parrot/lib/Test/More.pm	13346	13474	
==>$!
        my $rslt = eval { $object->isa($class) };
        if( $@ ) {
            if( $@ =~ /^Can't call method "isa" on unbles <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2428	2536	
==>]
	P0= P1["$var"]	# Pull the original
	P2= P10[I25]
	P3= P2["$stype"]
	P3["$var"]= P0	# Hack in the alias

SH <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2655	2763	
==>]
	P0= P1["$var"]	# Pull the original
	P2= P10[I25]
	P3= P2["$stype"]
	P3["$var"]= P0	# Hack in the alias

SH <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956804	957080	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_encoding",
                  "FLAGS" => ":ba <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957708	957984	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_encoding",
                  "FLAGS" => ":ba <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557381	557769	
==>" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 639,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 131 \"src/ops/object.ops\"\n  opcod <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21816	21956	
==>age Parse::RecDescent::Directive;

sub sethashname { $_[0]->{hashname} = '__DIRECTIVE' . ++$_[1]->{dircount} .  '__'; }

sub issubrule { unde <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	2580	2760	
==>my( $cmt, $name, $type, $elem );

    if( $base_type eq 'HASH' ){
        $out .= "    my(\$r) = {};\n";
        $cmt = '';
    }
    elsif( $base_type eq 'ARRAY' ){
        $out .= <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	6	107	
==>right (C) 2002, The Perl Foundation.
# $Id: /parrot/lib/Parrot/OpTrans.pm 20321 2006-06-20T20:02:00.17 <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5223	5381	
==>if ($^O eq 'hpux' or $^O eq 'cygwin') {
            chmod 0755, "$dest/$_$LOAD_EXT";
        }

    }
}
else {
    die "invalid command '$mode'\nmust be one of <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5434	5592	
==>if ($^O eq 'hpux' or $^O eq 'cygwin') {
            chmod 0755, "$dest/$_$LOAD_EXT";
        }

    }
}
else {
    die "invalid command '$mode'\nmust be one of <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2512	2631	
==>c
     * (gdb) disas l_ops_addr[1191] l_ops_addr[1192]
     */
#if defined(__GNUC__) && defined(I386) && defined(PARROT_ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	30550	30639	
==>extract_delimited> it can be simplified to:

	($extracted,$remainder) = extract_delimited( <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1611	1764	
==>lf->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = $op->{op} $op->{arg1}->{symbol}\n";
    }

    sub visitBinaryOp {
        my <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	7155	7369	
==>t(
            parrot_is_shared     => 1,
            has_dynamic_linking  => 1,
            ld_load_flags        => '-shared ',
            ld_share_flags       => '-shared ',
            libparrot_ldflags    => $c <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37468	37565	
==>ule->{"name"} . '})
					if defined $::RD_TRACE;').'
		$Parse::RecDescent::lastexpected = ' . ($ru <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39871	39968	
==>ule->{"name"} . '})
					if defined $::RD_TRACE;').'
		$Parse::RecDescent::lastexpected = ' . ($ru <==
2	/Users/nnunley/parrot/config/gen/icu.pm	983	1215	
==>fig parameter,\nICU autodetection disabled.\n" if $verbose;
        } elsif (!defined $icuconfig || !$icuconfig) {
            my (undef, undef, $ret) = capture_output("icu-config", "--exists");

            if (($ret == -1) || (($re <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	4853	4970	
==>s an external library.

=item C<hll HLL>

The High level language this PMC corresponds to.

=item C<maps Type>

The ba <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	39065	39179	
==>es C<extract_tagged> to immediately fail.

However, if the string value associated with <reject> is "MAX", then
C<e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	312014	312224	
==>terpreter);\n    {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getline",
                  "FLAGS" <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	6269	6403	
==>atch(c) or fail
#          match([dxy]) or fail
#          match(e) or fail
#
# Note that the placement of the checks is *not* always o <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	23755	24071	
==>tual end-document signal
      
      if(@$curr_open) { # Deal with things left open
        DEBUG and print "Stack is nonempty at end-document: (",
          $self->_dump_curr_open(), ")\n";
          
        DEBUG > 9 and print "Stack: ", pretty($curr_open), "\n";
        unshift @$paras, $self->_closers_for_all_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	41996	42141	
==>F for semi-processed L<>'s
        
        my $thing;
        foreach my $attrname ('section', 'to') {        
          if(defined($thing = $tre <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2099	2195	
==>->peer and $self->peer->prefix) {
    $self->prefix($self->peer->prefix);
  }

  if ($self->prefi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1976	2072	
==>->peer and $self->peer->prefix) {
    $self->prefix($self->peer->prefix);
  }

  if ($self->prefi <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	682	904	
==>p to be appended to the op body.

Note that F<tools/build/ops2c.pl> supplies either 'inline' or 'function'
as the op's type, depending on whether the C<inline> keyword is present
in the op definition. This has the effect of <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20341	20472	
==>t and $self->get(1)->is_assign) {
      my $block = $self->current_block();
      my $left = Jako::Construct::Expression::Value::Ide <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	946	1040	
==>ts no arguments and returns the value of C<$result> from the inheriting
classes namespace.

=cu <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9543	9660	
==>oken eq ''	# End of input: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	print STDERR "**At eof: aborting. <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9113	9227	
==>oken eq ''	# End of input: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	print STDERR "**At eof: aborting. <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	4448	4566	
==>REAMBLE};
$real_ops->version($ops->version);

# verify opcode numbers
my $seq = 0;
for(@{$ops->{OPS}}) {
    next if ($ <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	7997	8145	
==>my $outfile_base = $source_file;
        $outfile_base =~ s/\//_/g;
        
        print OUT qq(
           <tr>
             <td>$source_file</td> <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23413	23551	
==>{hashname} = '__DIRECTIVE' . ++$_[1]->{dircount} .  '__'; }

sub new ($$$;$)
{
	my $class = ref($_[0]) || $_[0];
	bless 
	{
		"lookahead" = <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4368	4478	
==>iled ($?)\n";
    }

    # Link non-grouped PMCs individually
    my @ungrouped_pmcs = grep { ! exists $pmc_gro <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4472	4582	
==>iled ($?)\n";
    }

    # Link non-grouped PMCs individually
    my @ungrouped_pmcs = grep { ! exists $pmc_gro <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	8822	8929	
==>fault",
  );

  $runcore{$_[0]};
}

sub runcore_from_args {
  local $_ = shift;

  /\b-g\b/ and return "goto <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670663	670888	
==>sh_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671436	671661	
==>sh_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2996	3138	
==>:Simple v$Pod::Simple::VERSION doesn't implement UTF16 yet."
        );
        splice @_;
        push @_, undef;
        next;

        # TOD <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3394	3536	
==>:Simple v$Pod::Simple::VERSION doesn't implement UTF16 yet."
        );
        splice @_;
        push @_, undef;
        next;

        # TOD <==
2	/Users/nnunley/parrot/config/auto/gdbm.pm	14	109	
==>) 2001-2005, The Perl Foundation.
# $Id: /parrot/config/auto/gdbm.pm 19593 2006-05-30T02:28:15.1 <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	14924	15104	
==>spatch
    }
    /* deinit - free resources */
    else {
    hop_deinit();
    }
    return NULL;
}

END_C

if ($dynamic_flag) {
    my $load_func = "Parrot_lib_${base}_ops${suffix <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	2690	2865	
==>encoding' => 'fixed_8.c ucs2.c utf16.c utf8.c',
             'exe' => '',
             'exec_prefix' => '/opt/local',
             'execcapable' => 1,
             'flex_versio <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11060	11190	
==>performing the various macro substitutions for
nci method bodies (see F<tools/build/pmc2c.pl>).

=cut

sub rewrite_nci_method ($$$) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	2493	2602	
==>rn a value.")
      unless defined $return_type;

    my $arg_type = $value->type;
    my $ret_val = $value->c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857422	857701	
==>CODE" => 973,
                  "ARGS" => [
                              "s",
                              "sc",
                              "sc"
                            ],
                  "BODY" => "#line 105 \"src/ops/string.ops\"\n  {{\@1}} = string_concat(interprete <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	14046	14248	
==>string.h
strcoll     string.h
strcpy      string.h
strcspn     string.h
strerror    string.h
strftime    time.h
strlen      string.h
strncat     string.h
strncmp     string.h
strncpy     string.h
strpbrk <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	268894	269317	
==>=> [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 313,
                  "ARGS" => [
                              "i",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 8 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	806	939	
==>nAborting");
  }

  if( defined &Pod::Simple::DEBUG ) {
    require Carp;
    Carp::croak("It's too late to call Pod::Simple::Debug -- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627052	627159	
==>" => "#line 53 \"src/ops/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628196	628303	
==>" => "#line 53 \"src/ops/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max) {\n    real_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	474	593	
==>d 5 args!" unless @_ == 5;

  my ($block, $prefix, $left, $op, $right) = @_;

  my $self = bless {
    BLOCK     => $blo <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	474	593	
==>d 5 args!" unless @_ == 5;

  my ($block, $prefix, $left, $op, $right) = @_;

  my $self = bless {
    BLOCK     => $blo <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	24057	24204	
==>DOUT' => $build_f,
                                     'STDERR' => $build_f);
            $builder->diag("'$cmd' failed with exit code $exit_code") <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	24818	24965	
==>DOUT' => $build_f,
                                     'STDERR' => $build_f);
            $builder->diag("'$cmd' failed with exit code $exit_code") <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	502	594	
==>($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Iden <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	502	594	
==>($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Iden <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	711	807	
==>_CATEGORY => 5,
};
$CGI::POST_MAX = MAX_SIZE;
chdir BASEDIR or die "Couldn't chdir into \"@{[ BAS <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	1889	2028	
==>o the
symbol name.

=item C<--help>

Show the help.

=item C<--version>

Show the version number.

=back

All the options can be shortened t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840557	840901	
==>> [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 953,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 272 \"src/ops/stack.ops\"\n  rotate_entries(interpreter, &CONTEXT(in <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	2398	2508	
==>n ops might fail!

END
    }

    if ($results{floatsize} == 4) {
        $conf->data->set(float4_t => 'float') <==
2	/Users/nnunley/parrot/config/auto/pack.pm	659	771	
==>ize  = $conf->data->get('intsize');
    my $longsize = $conf->data->get('longsize');
    my $ptrsize  = $conf->da <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	500	591	
==>($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Lef <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	491	582	
==>($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Lef <==
2	/Users/nnunley/parrot/config/auto/perldoc.pm	214	346	
==>etermines whether perldoc exists on the system.

=cut

package auto::perldoc;

use strict;
use vars qw($description @args);

use base <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	602391	602759	
==>=> [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 682,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 393 \"src/ops/objec <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	30543	30633	
==>with C<extract_delimited> it can be simplified to:

	($extracted,$remainder) = extract_deli <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	15584	15696	
==>my $self = $_[0];
  my $paras;
  return unless @{$paras = $self->{'paras'}};
  my $curr_open = ($self->{'curr_ope <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1547	1648	
==>0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Emit pop code.
${INS} = concat ${STACK$regi <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3257	3358	
==>0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Emit pop code.
${INS} = concat ${STACK$regi <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	2343	2449	
==>-30T15:23:20.183054Z $;

my $nm_cmd = 'nm';
my $nm_opt = '';
my $nm_try = qx(nm -V 2>&1);
my $nm_gnu;
my $n <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	13825	13951	
==>e);

Like Test::More's unlike().  Checks if $this B<does not match> the
given $regex.

=cut

sub like {
    my($self, $this, $r <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1174	1307	
==>s:
#
#     "Foo ", a, " ", b, "ar ", b, "\n"
#
# to effect string interpolation.
#

sub compile
{
  my $self = shift;
  my ($compiler) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	425389	425720	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FLAGS" => ":base_core",
                  "ARG <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	7446	7570	
==>t pos_one
    .local int not_found

    not_found = op1
    inc not_found

    .local pmc result
    result = new 'APLVector' <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	12520	12695	
==>isnt().  Checks if $got ne $dont_expect.  This is
the numeric version.

=cut

sub isnt_eq {
    my($self, $got, $dont_expect, $name) = @_;
    local $Level = $Level + 1;

    i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028033	1028134	
==>pcode_t *next = {{^+2}};\n  if ({{\@1}} < 0) {\n      real_exception(interpreter, next, NEG_SLEEP,\n\t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028884	1028985	
==>pcode_t *next = {{^+2}};\n  if ({{\@1}} < 0) {\n      real_exception(interpreter, next, NEG_SLEEP,\n\t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840202	840404	
==>XT(interpreter->ctx)->user_stack, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840897	841099	
==>XT(interpreter->ctx)->user_stack, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	66	180	
==>if (/^Translated (\d+) types out of (\d+) from .+?([\.\w]+)\n$/) {
		push @results, {
			name	=> $3,
			total	=> <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	66	180	
==>if (/^Translated (\d+) types out of (\d+) from .+?([\.\w]+)\n$/) {
		push @results, {
			name	=> $3,
			total	=> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024304	1024580	
==>er, &tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sysin <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	40929	41085	
==>y $backtrack;
		  # MATCH (LEFTARG OP)(s)
		  while ($repcount < ' . $self->{max} . ')
		  {
			$backtrack = 0;
			' . $leftarg->code(@_[1..2]) . '
			$repco <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302463	302949	
==>NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 352,
                  "ARGS" => [
                              "i",
                              "sc",
                              "s"
                            ],
                  "B <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	6967	7290	
==>\\$1}g;
        }
 
        print $out $line;
    }

    close($in)  or die "Can't close $source: $!";
    close($out) or die "Can't close $target: $!";

    move_if_diff("$target.tmp", $target, $options{ignorePattern});
}

=item C<_run_command($command, $out, $err)>

Runs the specified command. Output is directed to the f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949515	949691	
==>s",
                              "ic"
                            ],
                  "BODY" => "#line 535 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_charset(inte <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	177	267	
==>en;
use Pod::Simple::PullParserEndToken;
use Pod::Simple::PullParserTextToken;

BEGIN { *DE <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	7754	7915	
==>operates on the beginning instead of the end!
          
          if($to_unget[-1]->type eq 'text') {
            if( ($text_count_here += length ${$to_unget[-1] <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	13833	14033	
==>e)>

Returns the HTML for the specified file.

=cut

sub html_for_file
{
    my $self = shift;
    my $file = shift;
    my $string = "";
    
    $self->output_string(\$string);
    $self->parse_file( <==
2	/Users/nnunley/parrot/examples/benchmarks/addit.pl	17	167	
==>right (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/examples/benchmarks/addit.pl 19601 2006-05-30T13:32:26.641316Z coke  $

=head1 NAME

examples/ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6469	6566	
==>$self->get('verbose') && $self->get('verbose') == 2;

    print "Removing trigger $trigger on conf <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3515	3633	
==>2C --library $group --c " . join(" ",@pmcfiles))
              or die "pmc2c library creation failed ($?)\n";
        } <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3619	3737	
==>2C --library $group --c " . join(" ",@pmcfiles))
              or die "pmc2c library creation failed ($?)\n";
        } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224201	224526	
==>"
                               ],
                  "TYPE" => "function",
                  "CODE" => 262,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 516 \"src/ops/c <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	17176	17306	
==>tate 56
		DEFAULT => -22
	},
	{#State 57
		DEFAULT => -33
	},
	{#State 58
		ACTIONS => {
			"." => 66
		}
	},
	{#State 59
		DEFAULT <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	8629	8811	
==>. $name, 
    };
  return ();
}

sub runcore2human {
  my %runcore = (
	  goto => "computed goto",
	  jit => "JIT",
	  cgp =>  "CGP",
	  switch => "switch",
	  fast => "fast",
	  defa <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	352	452	
==>arp;

use Jako::Compiler;

use base qw(Jako::Construct::Block);

sub kind { return 'module'; }

sub n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	922346	922766	
==>DIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1038,
                  "ARGS" => [
                              "p",
                              "p",
                              "p"
                            ],
                  "BODY" = <==
2	/Users/nnunley/parrot/examples/benchmarks/oo4.pl	25	213	
==>y $o = new Foo();
for my $i (1 .. 500000) {
	$o->[0] = $i;
	$o->[1] = $i;
}
print $o->[0], "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift;
    return bless [ 10 <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18014	18141	
==>op_reverse {
}

sub _op_list_ref {
}

sub _op_memq {
}

sub _op_memv {
}

sub _op_member {
}

sub _op_assq {
}

sub _op_assv {
} <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	2291	2456	
==>, 'python.html', '', 'languages/python'),
        $self->new_section('Regex', 'regex.html', '', 'languages/regex'),
        $self->new_section('Scheme', 'scheme.html' <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	14269	14360	
==>parse_pmc($contents);
}

=head2 gen_super_meths($class, $vtable)

Generate a list of inherit <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	18259	18442	
==>->[2],
	$code[$code_l]->[3],$code[$code_l]->[4]);

    if ($opcode eq 'JUMP_IF_FALSE') {
	print "\t\t$cmt\n";
	$code_l++;
	JUMP_IF_TRUE($arg, $rest, "\t# JUMP_IF_FALSE");
    }
    els <==
2	/Users/nnunley/parrot/config/auto/jit.pm	1966	2092	
==>=> $osname
    );

    my $jitarchname = "$cpuarch-$osname";
    my ($jitcapable, $execcapable) = (0, 0);

    print(qq{-e "$ji <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62652	62917	
==>LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorsoff",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63297	63562	
==>LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorsoff",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	50112	50233	
==>aftererror,$line);
				$item = new Parse::RecDescent::Directive(
					'Text::Balanced::extract_codeblock($text,undef,$skip <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	50459	50556	
==>aftererror,$line);
				$item = new Parse::RecDescent::Directive(
					'Text::Balanced::extract_var <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	371560	371662	
==>LL, PIO_ERROR,\n\t\t\"Cannot read line from empty filehandle\");\n\n    if (!(io->flags & PIO_F_LINEBUF <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	38903	39103	
==>ile'  => \&_op_call_with_input_file,
  'call-with-output-file' => \&_op_call_with_output_file,
  'input-port?'           => \&_op_input_port_p,
  'output-port?'          => \&_op_output_port_p,
  'curr <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	1488	1614	
==>cut

sub get
{
    my $self = shift;

    my $c = $self->{c};

    return @$c{@_};
}

=item C<set($key => $val, ...)>

Modifies <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	9017	9168	
==>t]\" (should be \"$end_boilerplate[$mismatch_at]\")");
        }
    }

}


sub check_manifest {
    open(F, "<MANIFEST") || die "Unable to read MANIFES <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740883	741245	
==>IRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 833,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 164 \"sr <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2646	2785	
==>for
yourself, but if you want to, call
C<<
Pod::Simple::PullParserStartToken->new( I<tagname>, I<attrhash> )
>>

=head1 SEE ALSO

L<Pod::Sim <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1677	1774	
==>al_args = $sym->args;

  $self->SYNTAX_ERROR("Wrong number of arguments (expected %d, got %d) in c <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1377	1474	
==>al_args = $sym->args;

  $self->SYNTAX_ERROR("Wrong number of arguments (expected %d, got %d) in c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881314	881518	
==>,
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882419	882623	
==>,
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest) <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	28397	28534	
==>her or not the test literally
printed 'ok' or 'not ok'.  This is for examining the result of 'todo'
tests.  

'name' is the name of the te <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	5552	5770	
==>HERE WE CATCH =encoding EARLY!
    if( $line =~ m/^=encoding\s+\S+\s*$/s ) {
      $line = $self->_handle_encoding_line( $line );
    }

    if($line =~ m/^=cut/s) {
      # here ends the pod block, and therefore the pr <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	9677	9802	
==>s[CURR])
					and !isbuiltin($syms[CURR] ))));
		last if (not $parens and not $opts{ignorecomma} and 
			($syms[CURR] eq ',' a <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	4234	4406	
==>bosity
        if (defined $verbose_step) {

            # by step number
            if ($verbose_step =~ /^\d+$/ && $n == $verbose_step) {
                $self->options-> <==
2	/Users/nnunley/parrot/config/auto/perldoc.pm	361	471	
==>nfigure::Step::Base);

use Parrot::Configure::Step ':auto', 'capture_output';

$description = 'Determining whet <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	616	757	
==>elf;
}

sub generate_h
{
    my ($self, $conf) = @_;

    my $file = "include/parrot/core_pmcs.h";
    open(OUT, ">$file.tmp");

    print OUT <==
2	/Users/nnunley/parrot/tools/dev/as2c.pl	89	222	
==>also a test file

my ($src, $func, $out, $cmd, $func);

$src =  $ARGV[0];
$cmd  = "cc -c $src.c -Wall -O3 -fomit-frame-pointer -DNDEBU <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	5834	5951	
==>k(1)
#  match(a)
#  check(1)
#  match(b)
#  check(1)
#  match(c)
#
# where check(n) is "am I closer than n away from t <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	620	722	
==>fooX.h from fooX.dump files, also create libfoo.c
containing the initialization function for all fooX P <==
2	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	869	993	
==>tions.pasm"
.include "expr.pasm"


MAIN:
	new P20, .PerlHash     # PerlHash   # Numerics
	new P21, .PerlHash     # Alphabetic <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16129	16371	
==>( wantarray ) 
        {
            @_ = splice @_; # break aliasing
        } 
        else 
        {
            my $x = shift;
            # Pod::Simple::HTML didn't check this.
            return $x unless $x;
            $x =~ s/([^\n\t <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6888	7017	
==>)) {
        run("$PMC2C --c $pmc.pmc")
          or die "pmc2c code generation failed ($?)\n";
    }
}

sub compile {
    my ($sr <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7099	7228	
==>)) {
        run("$PMC2C --c $pmc.pmc")
          or die "pmc2c code generation failed ($?)\n";
    }
}

sub compile {
    my ($sr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432422	432510	
==>"#line 84 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433437	433525	
==>"#line 84 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827257	827511	
==>ion",
                  "CODE" => 936,
                  "ARGS" => [
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 146 \"src/ops/stack.ops\"\n  Stack_Entry_t * const <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	8522	8649	
==>n it into a boolean.
    $test = $test ? 1 : 0;

    unless( $self->{Have_Plan} ) {
        require Carp;
        Carp::croak("Y <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819528	819633	
==>k.ops\"\n  Stack_Entry_t * const entry =\n    stack_entry(interpreter, CONTEXT(interpreter->ctx)->user_sta <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820488	820593	
==>k.ops\"\n  Stack_Entry_t * const entry =\n    stack_entry(interpreter, CONTEXT(interpreter->ctx)->user_sta <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	1401	1622	
==>(
                m!
	        &gen_from_(enum|def|template)\((.*?)\)
		(\s+prefix\((\w+)\))?
		(\s+subst\((s/.*?/.*?/\w*)\))?
		!x
                ) {
                $inc = $2;
                print "$2 " if $conf->option <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11848	12095	
==>shift;
    my $section = shift;
    
    if ( $to =~ /^Parrot::/o )
    {
        my $href = $self->href_for_perl_module($to);
        
        # This gets corrupted somewhere down the line, with
        # Parrot/PackFile/ConstTable.pm.html being t <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	8641	8805	
==>ct call_state *st, INTVAL val)
{
    Parrot_init_ret_nci(interpreter, st, "I");
    UVal_int(st->val) = val;
    Parrot_convert_arg(interpreter, st);
    Parrot_stor <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	5419	5555	
==>ailmsg "Unmatched closing bracket: \"$found\"",
					 pos $$textref;
				pos $$textref = $startpos;
			        return;
			}
			my $expect <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14781	14892	
==>n $return;
}

sub _op_car {
  my ($self, $node) = @_;

  _num_arg ($node, 1, 'car');

  my $return = $self->_gen <==
2	/Users/nnunley/parrot/tools/dev/symlink.pl	1195	1303	
==>($toolsrcdir[-2]) eq 'tools';
my @topsrcdir = @toolsrcdir[0..$#toolsrcdir - 2];
my $topsrcdir = File::Spec->c <==
2	/Users/nnunley/parrot/examples/benchmarks/arriter.pl	958	1062	
==>ys(%ha), "\n";
print $ha{'AAAAA'};
print $ha{'ABCDE'};
print $ha{'BBBBB'};
print $ha{'CCCCC'};
print $ha{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	35437	35552	
==>l L<...> parsing stuff...
      # "With the ill behavior, with the ill behavior, with the ill behavior..."

      DE <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	959	1084	
==>::isa($type, 'Jako::Token')) {
    $token = $type;
    $type = $type->text;
  }
  else {
    $type = $types{$type};
  }

  ret <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	38864	38981	
==>opcodes2, @{ $param->[2] };
    }
    push @opcodes2, @{$block};
    push @opcodes2, new EndDir( $parser );
    fo <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1260	1371	
==>(\\\$var, STARTNUMVAL)\nAborting");
  }

  if( defined $variable ) {
    # make a not-really-constant
    *Pod:: <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	329	429	
==>ple program,
for speed comparisons.

Calculates a value for M ops/s (million operations per second) u <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	325	425	
==>ple program,
for speed comparisons.

Calculates a value for M ops/s (million operations per second) u <==
2	/Users/nnunley/parrot/lib/Test/More.pm	15495	15599	
==>ine 52)
    # Since there's no foo, check that /etc/bar is set up right.

You might remember C<ok() or di <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3663	3823	
==>. "_ops$core_suffix") foreach (@oplibs);
	}
} 
elsif ($mode eq 'linklibs') {
	# Convert X.o -> X.so
	my $core_suffix;
	foreach $core_suffix (values %cores) {
		p <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	12454	12568	
==>globals{$c})) {
	print <<EOC;
	# $p = global "$c" $cmt
EOC
    }
    elsif ($main_names{$c}) {
	$p = temp('P');
	pr <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1278	1407	
==>mand( 
            "./parrot languages/$pasm_f",
            CD => '..', # $self->{relpath}, 
            STDOUT => $out_f, STDERR <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	1474	1602	
==>, the test passed.  If it's false, it didn't.  That's about it.

ok() prints out either "ok" or "not ok" along with a test number <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5171	5294	
==>$tok)='>';
#DBG>		for (split('',$$token)) {
#DBG>			$tok.=		(ord($_) < 32 or ord($_) > 126)
#DBG>					?	sprintf('<%02X>', <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4922	5042	
==>$tok)='>';
#DBG>		for (split('',$$token)) {
#DBG>			$tok.=		(ord($_) < 32 or ord($_) > 126)
#DBG>					?	sprintf('<%02X>', <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	78131	78233	
==>tional <error>",$_[2])
		and
		_hint("An unconditional <error> always causes the
		       production co <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	321	425	
==>ter;
use strict;
use SRM::Base;
our @ISA = qw/SRM::Base/;

# Constructor. Just base this class on a hash. <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	227	331	
==>ter;
use strict;
use SRM::Base;
our @ISA = qw/SRM::Base/;

# Constructor. Just base this class on a hash. <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	12142	12335	
==>)\)$/) {
        $str = $1;
    }
    return "($str)";
}

# FIXME: Should render the _absence_ of this op differently!
sub Regex::Ops::Tree::scan::needparen { 0 }
sub Regex::Ops::Tree::scan::ren <==
2	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	119	247	
==>T03:57:27.771662Z petdance  $

=head1 NAME

tools/build/fingerprint_c.pl - Create fingerprint.c

=head1 SYNOPSIS

    % perl tool <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70855	70956	
==>ine 1150 \"src/ops/core.ops\"\n\n  {{\@1}} = Parrot_load_lib(interpreter, {{\@2}}, NULL);\n  {{+=3}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71624	71725	
==>ine 1150 \"src/ops/core.ops\"\n\n  {{\@1}} = Parrot_load_lib(interpreter, {{\@2}}, NULL);\n  {{+=3}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3337	3438	
==>_opcode = cur_op;
    char * _reg_base;
#endif

SWITCH_RELOAD:
    _reg_base = (char*)interpreter->ctx <==
2	/Users/nnunley/parrot/Configure.pl	10184	10290	
==>se `$make' to build your Parrot.
(NOTE: do not use `$make -j <n>'!)
After that, you can use `$make test' to <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	34490	34642	
==>rr_Test} - $self->{Expected_Tests};
            my $s = $self->{Expected_Tests} == 1 ? '' : 's';
            $self->diag(<<"FAIL");
Looks like you planne <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8149	8271	
==>acter_number) {
    if($] < 5.007  and  $number > 255) {
      $Name2character{$name} = $FAR_CHAR;
      # substitute for U <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11437	11753	
==>,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 15,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#li <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	9704	9843	
==>age
name as the class name.

An object of a class created by the first and third forms is
based on an array, whereas an object of a class cr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14732	15011	
==>);\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS",
                  "NAME" => "jump",
                  "FLA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	15419	15669	
==>);\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS",
                  "NAME" => " <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	356	465	
==>nguages.

=head2 Class Methods

=over

=cut

package Parrot::Docs::Section::Languages;

use strict;
use warnin <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	23358	23471	
==>_FLAG|PObj_external_FLAG);
        vt_clone->does_str = string_make(interp,
            "$does", @{[length($does)] <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	31839	32059	
==>int " Item is of type ", $para->[0], " under $over_type\n";
          
          my $expected_value = ++ $curr_open->[-1][1]{'~counter'};
          
          if($item_type eq 'bullet') {
            # Hm, it's not numeri <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9950	10060	
==>n::Value->new($block, $self->require_value);

      $self->require_close_paren;
      $self->require_open_brace <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25486	25596	
==>n::Value->new($block, $self->require_value);

      $self->require_close_paren;
      $self->require_open_brace <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	2184	2329	
==>int "\n    " unless $i % 8;
    }
    print "\n";
}

print << "EOF";
}; /* parrot_config */

void
Parrot_set_config_hash(void)
{
    Parrot_set_co <==
2	/Users/nnunley/parrot/config/gen/icu.pm	1150	1528	
==>("icu-config", "--exists");

            if (($ret == -1) || (($ret >> 8) != 0)) {
                undef $icuconfig;
                $autodetect = 0;
                $without    = 1;
            } else {
                $icuconfig = "icu-config";
                print "icu-config found... good!\n" if $verbose;
            }
        }

        if (!$without && $autodetect && $i <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	32530	32676	
==>($vtables{$c}) {
	$c = $vtables{$c};
    }
    my $cc;
    if ($c =~ /^\d+$/) {	# MMD
	$cc = "-$c";
    }
    else {
	$cc = qq!"$c"!;
    }
    pri <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	32905	33051	
==>($vtables{$c}) {
	$c = $vtables{$c};
    }
    my $cc;
    if ($c =~ /^\d+$/) {	# MMD
	$cc = "-$c";
    }
    else {
	$cc = qq!"$c"!;
    }
    pri <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	9011	9135	
==>it) {
				$symbol = $TypeLong ? "init" : "D";
			    } elsif ($uninit) {
				$symbol = $TypeLong ? "uninit" : "B";
			    } e <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	1381	1563	
==>ft;

    return if $text =~ /DO NOT EDIT THIS FILE/;

    # Strip blocks of comments
    $text =~ s[^/\*.*?\*/][]mxsg;

    # Strip # compiler directives (Thanks, Audrey!)
    $text = <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	6392	6512	
==>nteger - but if you set it to Integer or int, the program dies with
# 'Method not found.' or dispatches to the wrong meth <==
2	/Users/nnunley/parrot/config/init/hints/darwin.pm	546	853	
==>$ldflags =~ s/-flat_namespace\s*//;
    $ldflags .= " -flat_namespace ";

    $conf->data->set(
        darwin              => 1,
        ccflags             => $ccflags,
        ldflags             => $ldflags,
        ccwarn              => "-Wno-shadow",
        libs                => $libs,
        shar <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1270	1412	
==>{
  my $self = shift;
  my ($compiler) = @_;

  confess "No Compiler!" unless defined $compiler;

  my $type = $self->type;

#  $self->DEBUG(0, <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	14162	14259	
==>k($this, $regex, '!~', $name);
}

=item B<maybe_regex>

  $Test->maybe_regex(qr/$regex/);
  $Test- <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2440	2538	
==>gle instruction. While we kinda find
	# basic blocks, we don't discover backward branches until lat <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1018	1116	
==>gle instruction. While we kinda find
	# basic blocks, we don't discover backward branches until lat <==
2	/Users/nnunley/parrot/lib/Test/More.pm	10038	10168	
==>lows you to
compare two arguments using any binary perl operator.

    # ok( $this eq $that );
    cmp_ok( $this, 'eq', $that, 'thi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653368	653467	
==>= {{\@2}}->vtable->find_method(interpreter, {{\@2}}, {{\@3}});\n    if (!{{\@1}} || !VTABLE_defined( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654529	654628	
==>= {{\@2}}->vtable->find_method(interpreter, {{\@2}}, {{\@3}});\n    if (!{{\@1}} || !VTABLE_defined( <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2944	3109	
==>nfo (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # test result
              | " ((?:[^"\\]|\ <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4341	4506	
==>nfo (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # test result
              | " ((?:[^"\\]|\ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3389	3500	
==>y $fnlib;

    if (exists $props{fnlib} and $props{fnlib}) {
      $fnlib = $props{fnlib}->value; # TODO: We sho <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6053	6164	
==>y $fnlib;

    if (exists $props{fnlib} and $props{fnlib}) {
      $fnlib = $props{fnlib}->value; # TODO: We sho <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175927	176160	
==>RGS" => [
                              "s",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 240 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	32730	32833	
==>to inline the sort routine due to a threading/sort bug.
    # See [rt.cpan.org 6782]
    return eq_array <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841715	842003	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842479	842767	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	655	795	
==>_share_flags .= ' -fPIC';
    }

    if ($cc =~ /icc/) {

        # Intel C++ compiler has the same name as its C compiler
        $link = 'i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1702	1799	
==>f STDERR "%s: About to copy symbol table to parent block.\n", __PACKAGE__;

  foreach my $symbol_n <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	9860	9995	
==>dy = $op->body;
        # retranslate VTABLE_macro to the expanded form
        $opbody =~ s/
            \bVTABLE_(\w+)
            \s* <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	38456	38554	
==>eference contains one or more strings specifying patterns
that are I<not> be be treated as nested t <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	55936	56083	
==>subroutines succeeds, then one
character is extracted from the start of the text and the extraction
subroutines reapplied. Characters which are thus <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5704	5953	
==>code",
                  "FLAGS" => ":load_file",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8,
                  "ARGS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037774	1038051	
==>}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_glo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038555	1038832	
==>}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_glo <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1518	1617	
==>]{'Thispara'} = '' }
sub start_head4 {  $_[0]{'Thispara'} = '' }

sub start_Verbatim    { $_[0]{'Thi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1048	1147	
==>]{'Thispara'} = '' }
sub start_head4 {  $_[0]{'Thispara'} = '' }

sub start_Verbatim    { $_[0]{'Thi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066135	1066433	
==>\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539595	539891	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	13138	13248	
==>return $text;
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::Configure::RunSteps>

=item F<docs/configurat <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	20859	20989	
==>aphs\n";
      DEBUG > 1 and print " (Stack now: ", $self->_dump_curr_open(), ")\n";

      push @$curr_open, $para;
      if(!$don <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	3802	3983	
==>oto PARSE_NOFEED;
	}
	if ($syms[CURR] eq "data") {
		&parse_data($currline);
		$currline="";
		goto PARSE;
		
	}
	
	goto PARSE if ($syms[CURR] eq "let");  # ha ha
	
	# TEMP FIXME	
	i <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7871	8039	
==>turn]);
  $self->_add_inst('', 'set', [$return,$head]);
  $self->_add_inst("DONE_$label");

  $self->_restore($list, $copy, $head, $type);
  return $return;
}

sub _op_l <==
2	/Users/nnunley/parrot/config/inter/ops.pm	126	229	
==>=head1 NAME

config/inter/ops.pm - Ops Files

=head1 DESCRIPTION

Asks the user to select which ops file <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644747	644998	
==>[
                              "i",
                              "p",
                              "kic"
                            ],
                  "BODY" => "#line 199 \"src/ops/pmc.ops\"\n  {{\@1}} = {{\@2}}->vtable->type_keyed_int(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	1450	1583	
==>figuration', 'config.html', 'Parrot is configured by running
the <i>Configure.pl</i> script. This is essentially just a wrapper around <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1189	1479	
==>ted ops: "
                              # print  I5
                              # print  "\n"
                              #
$N1 = time_hires();           # time N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, I4, I3
go <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1189	1479	
==>ted ops: "
                              # print  I5
                              # print  "\n"
                              #
$N1 = time_hires();           # time N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, I4, I3
go <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	2125	2300	
==>steps.  Where each steps is represented by an
L<Parrot::Configure::Task> object.  Steps are returned in the order in which
they were registered in.

Accepts no arguments and re <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27270	27372	
==>mv, "pre-translate for $rule->{'name'}");

		# If we have PIR for the instruction, just take that. If n <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34409	34511	
==>mv, "pre-translate for $rule->{'name'}");

		# If we have PIR for the instruction, just take that. If n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677358	677639	
==>E" => "inline",
                  "CODE" => 759,
                  "ARGS" => [
                              "p",
                              "n"
                            ],
                  "BODY" => "#line 478 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_float(interpre <==
2	/Users/nnunley/parrot/languages/APL/t/APL.pm	1457	1654	
==>Since we're converting an explicit blank output to 0
    }
    if ($output =~ m/\n\n$/smx) {
      chomp $output;  # XXX Keep hackin' it up!
    }

    my $todo   = $block->todo;
    if (defined($to <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15940	16064	
==>(@expr);	# Get infix into RPN
		($result,$type,@stream)=generate_code(0, @stream);	# Generate PASM code stream

		@stream=bui <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	17091	17200	
==>(@expr);	# Get infix into RPN
		($result,$type,@stream)=generate_code(0, @stream);	# Generate PASM code stream <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5095	5208	
==>OAD_EXT failed ($?)\n";

        # Execute permissions on libraries is especially important on
        # some plat <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5306	5419	
==>OAD_EXT failed ($?)\n";

        # Execute permissions on libraries is especially important on
        # some plat <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	2915	3141	
==>le = "lib/Parrot/PMC.pm";
    my @pmcs = split(/ /, $conf->data->get('pmc_names'));

    open(OUT, ">$file.tmp");

    print OUT <<'END_PM';
# DO NOT EDIT THIS FILE
#
# Automatically generated by config/gen/core_pmcs.pm

packag <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	2656	2780	
==>$expected, $description)>

Runs the PAST code and passes the test if output matches the expected
result.

=item C<past_output <==
2	/Users/nnunley/parrot/config/auto/byteorder.pm	976	1112	
==>ta->set(
            byteorder => $byteorder,
            bigendian => 1
        );
        $self->set_result('big-endian');
    } else { <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17514	17656	
==>rs (not NOT)
print "      AND   OR    XOR   EQV   IMP"
for i = 0 to 1
for j = 0 to 1
print i; j;
if i and j then a$="True  " else a$="False "
i <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6642	6788	
==>sub(target)

            unless match goto match_fail
          match_success:
            print "matched"
            goto match_end
          mat <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7660	7805	
==>sub(target)
            unless match goto match_fail
          match_success:
            print "matched"
            goto match_end
          mat <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	1457	1589	
==>_flags,
        ld_load_flags  => $ld_share_flags,
        i_lib_pthread  => 1,              # XXX fake a header entry
        linkfl <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	11519	11728	
==>alanced($classblock);

        $methodblock = "" if $opt{nobody};
        if ($methodname eq 'class_init') {
            $class_init = {
                meth        => $methodname,
                body        = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	316367	316611	
==>_u1_ovf\");\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	3283	3409	
==>ttern);
        my $to_sum   = file_checksum($to,   $ignorePattern);
        return if $from_sum == $to_sum;
    }

    File::C <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	144	236	
==>NAME

Parrot::Docs::Section::Docs - Docs documentation section

=head1 SYNOPSIS

	use Parrot: <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	12804	12941	
==>->{'LABELNUM'} = 'label_num';
    $mv->{'EHANDLERS'} = 'ehs';

    # SRM pre translation code.
    $pir .= "### pre_translation\n";
    my <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	1340	1550	
==>ile (@files) {
        my $test = substr $file, 0, -3;
        # parrot's getopt dislikes filenames with - in them.
        $test =~ s/-/_/g;
        system("rm $test") if -e $test;

        open my $ffh, '<', $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307179	307438	
==>1031 \"src/ops/cmp.ops\"\n  if (!PMC_IS_NULL({{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	48130	48279	
==>_);
  
  Carp::croak "But $class->_duo is useful only in list context!"
   unless wantarray;

  my $mutor = shift(@_) if @_ and ref($_[0] || '') eq 'C <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2970	3087	
==>}
            "  $op->{result}->{symbol}\[$op->{arg1}->{symbol}\] = $op->{arg2}->{symbol}\n";
    }

    sub visit <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2923	3023	
==>path and $rel_path eq '') ? '.' : $rel_path;
}

=item C<parent()>

Returns the directory's parent dir <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19261	19482	
==>xlocals($op),
              );

    return ($back, @ops);
}

# R<0,max>? ->  $matchcount = 0
#               goto next
#        rfail: if $matchcount == 0 goto lastback
#               $matchcount--
#               goto R. <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	25448	25599	
==>Known_formatting_codes) {
      DEBUG > 2 and print " $new_letter isn't a good thing to extend, because known.\n";
      $self->whine(
        $para->[1 <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	1112	1208	
==>em C<CGoto>

Create the C<goto> run loop.

=item C<CGP>

Create the C<goto> and predereferenced r <==
2	/Users/nnunley/parrot/tools/dev/symlink.pl	2401	2505	
==>nt "$dstfile\n" if $v;
		if (defined $readlink) {
		    unless (unlink($dstfile)) {
			warn "$self: unlin <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2300	2433	
==>lse {
      $actual_arg_type = $args[$i]->type;
    }

    $self->INTERNAL_ERROR("Can't determine type of formal argument (%s)!", $for <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2000	2133	
==>lse {
      $actual_arg_type = $args[$i]->type;
    }

    $self->INTERNAL_ERROR("Can't determine type of formal argument (%s)!", $for <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632709	633015	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633751	634057	
==>{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	3646	3766	
==>urce)? lines executed in file (.*)/;
            if ($total_lines) {
                my $covered_lines = int(($percent/10 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12427	12518	
==>rently only F<lib/Parrot> modules are linkable.
Returns C<undef> if the current documentatio <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	981	1136	
==>e;
use Jako::Construct::Expression::Value::Identifier;

use Jako::Construct::Label;

use Jako::Construct::Statement::Arithmetic;
use Jako::Construct::Statem <==
2	/Users/nnunley/parrot/examples/benchmarks/oo1.pl	29	165	
==>y $i (1 .. 100000) {
	my $o = new Foo();
}
my $o = new Foo();
print $o->[0], "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? re <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33731	34007	
==>ll' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 119
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"," => 167,
			"%" => 76,
			"==" => 77 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12977	13098	
==>ll' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 11 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615026	615192	
==>ASS,\n            \"Class not parent of object\");\n    }\n    {{\@1}} = offset;\n    {{=next}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616177	616343	
==>ASS,\n            \"Class not parent of object\");\n    }\n    {{\@1}} = offset;\n    {{=next}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3078	3187	
==>e...FIXME.. I'm using $vars before it's set.
	$vars=1;
	if ($noreloop) {
		push @{$code{$seg}->{code}}, "\t#ne <==
2	/Users/nnunley/parrot/lib/Test/More.pm	719	886	
==>$TODO
             plan
             can_ok  isa_ok
             diag
            );

my $Test = Test::Builder->new;
my $Show_Diag = 1;


# 5.004's Exporter doesn't hav <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676371	676655	
==>unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 758,
                  "ARGS" => [ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39525	39918	
==>ll' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 162
		DEFAULT => -12
	},
	{#State 163
		DEFAULT => -4,
		GOTOS => {
			'block' => 183,
			'chunk' => 57
		}
	},
	{#State 164
		ACTIONS => {
			"(" => 123
		},
		GOTOS => {
			'funcbody' => 184
		}
	},
	{#State 165
		ACTIONS => {
			"," => 151
		},
		DE <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40537	40699	
==>ll' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 168
		DEFAULT => -24,
		GOTOS => {
			'@ <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	6980	7089	
==>f defined (_MSC_VER)
#pragma warning(disable: 4305)
#endif

/*
 *define default jit_funcs, if architecture doe <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43380	43501	
==>ll' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 19 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43969	44090	
==>ll' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 19 <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	24561	24802	
==>$expr;
}

sub BuildLocalVariable {
    my ( $parser, $idf ) = @_;
    my @opcodes = ();
    my $defn    = $parser->YYData->{symbtab}->LookupS($idf);
    unless ( defined $defn ) {
        my $name;
        $name = 'var_' . $parser->Y <==
2	/Users/nnunley/parrot/config/gen/config_h.pm	814	973	
==>',
        ignorePattern     => 'PARROT_CONFIG_DATE',
        conditioned_lines => 1
    );

    genfile(
        'config/gen/config_h/feature_h.in', 'include/p <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	509	609	
==>Parse::Yapp::Driver
#
# This module is part of the Parse::Yapp package available on your
# nearest <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	495	592	
==>Parse::Yapp::Driver
#
# This module is part of the Parse::Yapp package available on your
# nearest <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2706	2801	
==>eepn#\\sb60\\sa150\\fi-120\n",
 '/item-bullet' => "\n\\par}\n",
 'item-number'  => "\n{\\pard\\l <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7943	8074	
==>info_from_token(${ASSEMBLY}, ${ARG0})

# If there is a return type, need to push ${DEST0} onto the stack.
${ITEMP0} = ${PTEMP1}["typ <==
2	/Users/nnunley/parrot/Configure.pl	1446	1542	
==>ags> to the compiler flags.

=item C<--inline>

Tell Configure that the compiler supports C<inlin <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	3306	3459	
==>$self->type->imcc_pmc;

    my $reg = $compiler->temp_pmc();

    $compiler->emit("  $reg = new $pmc_type");
    $compiler->emit("  global \"$name\" = $re <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	57524	57731	
==>ub
#line 484 "Lua\lua51.yp"
{
            [];
        }
	],
	[#Rule 93
		 'args', 1,
sub
#line 488 "Lua\lua51.yp"
{
            [
                $_[1],
            ];
        }
	],
	[#Rule 94 <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	4861	4999	
==>nore blank lines

            if ($opt =~ /-mno-accumulate-outgoing-args/) {
                use Config;
                if ($Config{archna <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	548	657	
==>s part of the Parse::Yapp package available on your
# nearest CPAN
#
# Any use of this module in a standalo <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	532	638	
==>s part of the Parse::Yapp package available on your
# nearest CPAN
#
# Any use of this module in a standalo <==
2	/Users/nnunley/parrot/languages/APL/t/APL.pm	1669	1817	
==>f (! $todo) {
        $todo = "not implemented";
      }
      if ($ENV{APLDEV}) {
        TODO: {
          local $TODO = $todo;
          Parrot::T <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632428	632542	
==>],
                  "BODY" => "#line 91 \"src/ops/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtabl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633470	633584	
==>],
                  "BODY" => "#line 91 \"src/ops/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtabl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	463474	463822	
==>,
                  "TYPE" => "inline",
                  "CODE" => 531,
                  "ARGS" => [
                              "n",
                              "nc",
                              "n"
                            ],
                  "BODY" => "#line 322 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2438	2559	
==>SER}={};

	$$self{USER};
	
}

sub YYErrok {
	my($self)=shift;

	${$$self{ERRST}}=0;
    undef;
}

sub YYNberr <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2342	2450	
==>SER}={};

	$$self{USER};
	
}

sub YYErrok {
	my($self)=shift;

	${$$self{ERRST}}=0;
    undef;
}

sub YYNberr <==
2	/Users/nnunley/parrot/languages/scheme/Scheme.pm	111	235	
==>trict;

use Data::Dumper;

use Scheme::Tokenizer();
use Scheme::Parser();
use Scheme::Generator();
use Scheme::Builtins;

=he <==
2	/Users/nnunley/parrot/config/gen/platform.pm	1496	1601	
==>/parrot/platform.h"
        or die "Can't open include/parrot/platform.h: $!";

    print PLATFORM_H <<"EN <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388220	388672	
==>i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 452,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpret <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9789	9929	
==>xt->text . "\n";
        next;
      }

      defined($scratch = $self->{'Tagmap'}{$tagname}) or next;
      $scratch =~ s/\#([^\#]+)\#/${$se <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testrun.pl	4	145	
==>erl -w

no warnings 'once';
$parpath='../../../';

unlink "_test.pbc";

# XXX - This file should be generated at config time, so as to get
# t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784130	784361	
==>S" => [
                              "p",
                              "ki",
                              "p"
                            ],
                  "BODY" => "#line 392 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_pmc <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	4473	4701	
==>tr/g;
            $asm =~ s/CUR_OPCODE/jit_info->cur_op/g;
            $asm =~ s/cur_opcode/jit_info->cur_op/g;
            $asm =~ s/MAP\[(\d)\]/MAP($1)/g;
            # set extern if the code calls a function
            $exter <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	4278	4381	
==>$suffix{ $_ } = [ map quotemeta, $ini->val($_, 'type') ] for @section;
my $ticks = POSIX::sysconf( &POSI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627168	627266	
==>n(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n\n  /* W <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628312	628410	
==>n(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n\n  /* W <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349303	349566	
==>ew(interpreter, enum_class_Undef);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350305	350568	
==>ew(interpreter, enum_class_Undef);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	6396	6531	
==>un_core_func_decl($base);
    print SOURCE "\n{\n";
    print SOURCE $trans->run_core_func_start;
}

#
# Iterate over the ops, appending <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1484	1577	
==>his class for
yourself, but if you want to, call
C<<
Pod::Simple::PullParserEndToken->new( I<t <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1776	2030	
==>2\n"; # print  "Elapsed time:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 = $N1 / $N2;              # div    N1, N1, N2
$N2 = 10 <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1776	2030	
==>2\n"; # print  "Elapsed time:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 = $N1 / $N2;              # div    N1, N1, N2
$N2 = 10 <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	1496	1760	
==>}

    sub LookupU {
        my $self = shift;
        my ($symb) = @_;

        #    warn "LookupU $symb\n";
        my $parser = $self->{parser};
        for ( @{ $parser->YYData->{scopef} } ) {
            if ( ref $_ eq 'ARRAY' ) {
                for <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	2173	2533	
==>TO'
        );
        print " (yes) " if $verbose;
        $self->set_result('yes');
    } else {
        $conf->data->set(
            TEMP_cg_h => '',
            TEMP_cg_c => '',
            TEMP_cg_o => '',
            TEMP_cg_r => '',
            cg_flag   => ''
        );
        print " (no) " if $verbose;
        $self->set_result('no');
    }

    r <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	1226	1346	
==>de config information from Parrot tree.
	my %config = eval {
		require "$_[0]/lib/Parrot/Config.pm";
		%Parrot::Config <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	6827	6920	
==>$ini->val($sect, 'exe') . " " . File::Spec->catdir( $cfg{bench_path}, $name . $bench{$name}{$p <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3430	3529	
==>AX>


=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

Thi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3082	3181	
==>AX>


=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

Thi <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	3285	3438	
==>y $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = find_global \"$op <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	9666	9813	
==>ng,
            $next =>
               );

    return ($back, @ops);
}

sub rewrite_check {
    my ($self, $op, $amount, $R, $lastback) = @_;
    m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492780	493032	
==>intval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493541	493793	
==>intval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	14363	14462	
==>ect of the corresponding class,
or of one of it's subclasses, or a reference to a hash containing na <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	867	996	
==>le
        open LANG, "> $lang_f" or die "Unable to open '$lang_f'"; # JMG
        binmode LANG; # JMG
        print LANG $lang_co <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	779	908	
==>le
        open LANG, "> $lang_f" or die "Unable to open '$lang_f'"; # JMG
        binmode LANG; # JMG
        print LANG $lang_co <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28420	28533	
==>nt::_trace(q{>>Matched terminal<< (return value: [}
						. $& . q{])},
						  Parse::RecDescent::_tracefirst($te <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30496	30609	
==>nt::_trace(q{>>Matched terminal<< (return value: [}
						. $& . q{])},
						  Parse::RecDescent::_tracefirst($te <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	3499	3641	
==>y $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = find_l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13184	13403	
==>);\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS| <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14028	14247	
==>);\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS| <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	412608	412983	
==>YPE" => "function",
                  "CODE" => 476,
                  "ARGS" => [
                              "i",
                              "p",
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_pol <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	678	905	
==>refix is C<'Parrot_pred_'>.

This is used in C<Parrot::Op>'s C<func_name()>.

=cut

sub prefix
{
    return 'Parrot_pred_';
}

=item C<defines()>

Returns the C C<#define> macros required by the ops.

=cut

sub defines
{
    ret <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	318	468	
==>ckage Jako::Construct::Declaration::Constant;

use Carp;

use base qw(Jako::Construct::Declaration);

use Jako::Construct::Type;


#
# new()
#

sub new <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	6041	6143	
==>ext or _contains($next,@expected) )
		{
			push @expected, $next;
		}
	}

	return $self->{"expected"} = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221476	221726	
==>> 259,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 484 \"src/ops/cmp.ops\"\n  if (mmd_dispatch <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2747	2843	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub new {
  my $new = shift->SUPER::new(@_);
  #$new->nix_X_co <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3103	3197	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sub new {
  my $new = shift->SUPER::new(@_);
  $new->nix_X_co <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41459	41556	
==>lement_end($scratch=$name);
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	3617	3711	
==>f Ron Rivests MD5 Algorithm

=head1 DISCLAIMER

This is B<not> an interface (like C<Digest::MD5 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	278	370	
==>rict;
eval "use warnings";

package Jako::Construct::Statement;

use base qw(Jako::Construct) <==
2	/Users/nnunley/parrot/config/auto/gc.pm	1827	1924	
==>)/res_lea\$(O):	\$(GENERAL_H_FILES) \$(SRC_DIR)/res_lea.c
EOF
            TEMP_gc_o => "\$(SRC_DIR <==
2	/Users/nnunley/parrot/config/auto/gc.pm	2118	2215	
==>)/res_lea\$(O):	\$(GENERAL_H_FILES) \$(SRC_DIR)/res_lea.c
EOF
            TEMP_gc_o => "\$(SRC_DIR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945474	945695	
==>ot_charset_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946284	946505	
==>ot_charset_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	1712	1835	
==>urn $self;
}


=back

=head2 Instance Methods

=over 4

=item C<set_parent($parent)>

=item C<parent()>

Accessors for the c <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	8754	8863	
==>derr" if $err;

    open  STDOUT, ">&OLDOUT" or die "Can't restore  stdout" if $out;
    open  STDERR, ">&OLDE <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8274	8381	
==>derr" if $err;

    open STDOUT, ">&OLDOUT" or die "Can't restore  stdout" if $out;
    open STDERR, ">&OLDE <==
2	/Users/nnunley/parrot/lib/Test/More.pm	2411	2509	
==>for Test::Simple
which you can switch to once you get the hang of basic testing.

The purpose of th <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	2356	2509	
==>y written by:

Sebastian Riedel, C<sri@oook.de>

=cut

# Create Default Configuration 
my %cfg = (
    config_file  => File::Spec->catdir( $FindBin::Bin , <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	25200	25432	
==>2);
	my $ret_type = ret_val($attr);
	my $ret_string = "";
	if ($ret_type ne 'None') {
	    $t = temp($rett = $ret_type);
	    $ret_string = "$t = ";
	}
	if (!nci_method($attr)) {	# a method function
	    print <<EOC;
	P2 = $1   # obj <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	893	1000	
==>($tree, $ctx);
    }

    my $rewrite = Regex::Rewrite->new(%options);
    my $code = $rewrite->run($tree, $ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36709	36840	
==>C;
$l
${decl} {
	real_exception(interpreter, NULL, NULL_REG_ACCESS,
		"Null PMC access in $meth()");
        $ret
}

EOC
}

=back

= <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	972	1188	
==>print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, I1
                              #
print "Estimated ops: $I5\n"; # print  "Estima <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	972	1188	
==>print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, I1
                              #
print "Estimated ops: $I5\n"; # print  "Estima <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	15579	15685	
==>r->exported_to() || '';
            # die Dumper( $code, $expected, $desc, \%extra, $extra{todo}, $call_pkg <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	18130	18236	
==>r->exported_to() || '';
            # die Dumper( $code, $expected, $desc, \%extra, $extra{todo}, $call_pkg <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	931	1067	
==>f'"; # JMG
        binmode LANG; # JMG
        print LANG $lang_code; # JMG
        close LANG; # JMG

        Parrot::Test::run_command( <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	843	979	
==>f'"; # JMG
        binmode LANG; # JMG
        print LANG $lang_code; # JMG
        close LANG; # JMG

        Parrot::Test::run_command( <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	3386	3600	
==>es/amber.in' => 'languages/amber/Makefile',
        commentType                     => '#',
        replace_slashes                 => 1,
        conditioned_lines               => 1
    );
    genfile(
        'lan <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8590	8673	
==>MPUTER"
data "DAMAGES","DESTRUCT","DOCK","IDLE","IMPULSE","LRSCAN","NAVIGATE","PHASE <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21454	21537	
==>MPUTER"
data "DAMAGES","DESTRUCT","DOCK","IDLE","IMPULSE","LRSCAN","NAVIGATE","PHASE <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9573	9707	
==>/^[-\.0-9]/s
        or $new_code =~ m/:[-\.0-9]/s;
            # The legal under-0x80 Name characters that 
            #  an XML Name <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10837	10971	
==>/^[-\.0-9]/s
        or $new_code =~ m/:[-\.0-9]/s;
            # The legal under-0x80 Name characters that 
            #  an XML Name <==
2	/Users/nnunley/parrot/config/auto/jit.pm	3584	3782	
==>m')) {
            $execcapable = 1;
            unless (($osname eq 'openbsd')
                || ($osname eq 'freebsd')
                || ($osname eq 'netbsd')
                || ($osname eq 'linu <==
2	/Users/nnunley/parrot/config/auto/memalign.pm	679	795	
==>>set(memalign => '');
        $self->set_result('skipped');
        return $self;
    }

    if (defined $conf->data- <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	2618	2716	
==>ass";
}

sub convert_rx_oneof {
    die "unimplemented enumerated charclass";
}

sub convert_rx_ass <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76858	77038	
==>/2)
			. "...<$count>..."
			. substr($_[0],-$::RD_TRACE/2);
	}
	else
	{
		return $_[0];
	}
}

sub _tracefirst($)
{
	if (defined $::RD_TRACE
	    && $::RD_TRACE =~ /\d+/
	    && $:: <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	53948	54043	
==>matched substrings (see below) within the
text should be skipped or returned as fields. If the v <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4491	4615	
==>rgs} } == 0) {
        delete $self->{name};
        delete $self->{args};
        return $self->op('nop', [], %$self);
    } <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5628	5752	
==>rgs} } == 0) {
        delete $self->{name};
        delete $self->{args};
        return $self->op('nop', [], %$self);
    } <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	16165	16456	
==>q '=~' ? "doesn't match" : "matches";
        $self->diag(sprintf <<DIAGNOSTIC, $this, $match, $regex);
                  %s
    %13s '%s'
DIAGNOSTIC

    }

    return $ok;
}

=item B<cmp_ok>

  $Test->cmp_ok($this, $type, $that, $name);

Works just like Test::More's cmp_ok().

    $Test->c <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48368	48478	
==>$EXACTLY/gco)
					{ ($minrep, $maxrep) = ($1,$1) }
				elsif ($grammar =~ m/$BETWEEN/gco)
					{ ($minrep, $ma <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113947	114242	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114686	114981	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1792	1924	
==>aration of identifier '%s'. Previous declaration on line %d of file '%s'.",
      $name, $sym->line, $sym->file);
  }

  #
  # Now th <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	4136	4298	
==>]);
    } else {
        my $testop = rop('test', [ $op1, $rev_test, $op2,
                                   rop('goto', [ $continue ]) ]);
        return ($self- <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22351	22453	
==>ym();

  my $temp_0 = $self->_generate($node->{children}[1]);
  $return = $self->_constant(1);
  my $te <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22852	22954	
==>ym();

  my $temp_0 = $self->_generate($node->{children}[1]);
  $return = $self->_constant(1);
  my $te <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872892	873191	
==>=> 990,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542629	542942	
==>",
                  "CODE" => 627,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 1022 \"src/ops/math.ops\"\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@2}} <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10617	10747	
==>directory.

=cut

sub file_with_relative_path
{
    my $self = shift;
    my $path = $self->path_for_file_with_relative_path(shift) <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	5995	6150	
==>e_2d:
    inc pos 
    goto loop_2d
  loop_end_2d:
   .return(result)
 
  print_value:
    if value >= 0.0 goto print_value_1
    result .= unicode:"\u207b" <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	58688	58789	
==>nts
(which might contain quoted strings):

        my $empty_tag = '<(' . gen_delimited_pat(q{'"}) . ' <==
2	/Users/nnunley/parrot/config/inter/charset.pm	1706	1811	
==>rset_list,
        TEMP_charset_o     => $TEMP_charset_o,
        TEMP_charset_build => $TEMP_charset_buil <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	761	882	
==>ec->rel2abs($out_f);
    Parrot::Test::write_code_to_file( $code, $lang_f );

    my $cmd;
    my $exit_code = 0;
    my $ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	798	919	
==>ec->rel2abs($out_f);
    Parrot::Test::write_code_to_file( $code, $lang_f );

    my $cmd;
    my $exit_code = 0;
    my $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8699	8805	
==>ess "Extra arguments!" if @_;

  my $found = $self->find_symbol($name);

  return $found ? $found->kind : u <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10036	10142	
==>ess "Extra arguments!" if @_;

  my $found = $self->find_symbol($name);

  return $found ? $found->kind : u <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	10601	10704	
==>"") unless defined $$textref;
	my $pre  = defined $_[1] ? $_[1] : '\s*';

	my @match = _match_variable($ <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	8732	8827	
==>t(st->val) = val;
    Parrot_convert_arg(interpreter, st);
    Parrot_store_arg(interpreter, st) <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	23215	23355	
==>][0] = pop @dynasty;
        my $nugget;
        while(@dynasty) {
          DEBUG > 4 and printf
           "    Grafting a new %s node betw <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	5895	6040	
==>or (my $i = 0; $i < @params; ++$i) {
	    my $p = $params[$i];
	    print <<EOC;
	$p = find_lex -1, $i
EOC
	}
    }
    # XXX classes are store in <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3254	3374	
==>ug together.
        if ($conf->data->get('ld_debug') =~ /-debug/) {
            my $linkflags = $conf->data->get('linkfl <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4758	4878	
==>ug together.
        if ($conf->data->get('ld_debug') =~ /-debug/) {
            my $linkflags = $conf->data->get('linkfl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814827	815149	
==>e_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 920,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 567 \"src <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	10033	10170	
==>dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
<head>
  <title>Parrot Smoke Reports</title>
  <meta http-equiv="Content-T <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9367	9634	
==>ess "Extra arguments!" if @_;

  my $found = $self->find_symbol($name);

  return $found ? $found->scope : undef;
}


###############################################################################

=head2 BLOCK->access_of_ident(NAME)

This is a shortcut method that u <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3029	3166	
==>f->{'Thispara'} = '';
  
  return;
}

# . . . . . . . . . . And then off by its lonesome:

sub end_Verbatim  {
  return unless $_[0]{'Erra <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	13432	13551	
==>, $str) = @_;
    my $min = $op->minlen();
    my $max = $op->maxlen();
    $max = "INF" if ! defined $max;
    return " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	306647	306824	
==>' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless_null",
                  "FLAGS" => "",
                  "ARGDIRS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307440	307617	
==>' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless_null",
                  "FLAGS" => "",
                  "ARGDIRS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490372	490623	
==>MP" => 0,
                  "NAME" => "inc",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490993	491244	
==>MP" => 0,
                  "NAME" => "inc",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CO <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	74	187	
==>tools/build/parrot_config_c.pl 20350 2006-06-25T03:57:27.771662Z petdance  $
use strict;

my ($svnid) = '$Id: /par <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4235	4343	
==>?
		and	return;
	}
	my($fname)=__FILE__;
	my(@drv);
	open(DRV,"<$fname") or die "Report this as a BUG: C <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4020	4123	
==>?
		and	return;
	}
	my($fname)=__FILE__;
	my(@drv);
	open(DRV,"<$fname") or die "Report this as a BUG: C <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53770	53890	
==>co
				and do { ($code) = extract_bracketed($grammar,'<');
					  $code })
			{
				_parse("a resync with pattern marker" <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36602	36731	
==>ink that these will be out by one - NWC
    my $l = $self->line_directive($line, "null.c");
    return <<EOC;
$l
${decl} {
	real_e <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	11732	11847	
==>}

sub _is_diag {
    my($self, $got, $type, $expect) = @_;

    foreach my $val (\$got, \$expect) {
        if( def <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650117	650411	
==>JUMP" => 0,
                  "NAME" => "valid_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651038	651332	
==>JUMP" => 0,
                  "NAME" => "valid_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	10585	10713	
==>t
t=0
g=0
if t then
	' t is false, don't go here.
	print "Mistake"
elseif g then
	print "Also a mistake"
else 
	print "Correct"
e <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	14041	14223	
==>> 17
		}
	},
	{#State 23
		ACTIONS => {
			"?" => undef
		},
		DEFAULT => -17
	},
	{#State 24
		ACTIONS => {
			"?" => 43
		},
		DEFAULT => -15
	},
	{#State 25
		ACTIONS => {
			"?" = <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	13558	13747	
==>{#State 15
		DEFAULT => -11,
		GOTOS => {
			'@1-1' => 59
		}
	},
	{#State 16
		DEFAULT => -13,
		GOTOS => {
			'@2-1' => 60
		}
	},
	{#State 17
		ACTIONS => {
			'NAME' => 62, <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	478	605	
==>ength($_->{'done'})));
	print $_->{'total'} . (' ' x (10 - length($_->{'total'})));
	print $_->{'percent'} . "%\n"
}

my $d <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8224	8362	
==>ectory.

=cut

sub existing_directory_with_name
{
    my $self = shift;
    my $path = $self->path_for_directory_with_name(shift) || return <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19706	19832	
==>}
		else
		{
			$code .= $parser->{_AUTOTREE}{NODE}->code($namespace,$rule);
		}
		Parse::RecDescent::_warn(1,"Autogenerating t <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Compilers.pm	7	115	
==>ight (C) 2006, The Perl Foundation.
# $Id: Compilers.pm 11501 2006-02-10 18:27:13Z particle $

=head1 NAME <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	908	1010	
==>ch my $func ( keys %language_test_map ) {
    no strict 'refs';

    *{"Parrot::Test::Bc::$func"} = sub <==
2	/Users/nnunley/parrot/config/gen/platform.pm	1972	2119	
==>fig/gen/platform/$platform/$_";
        }

        if (-e $header_file) {
            local $/ = undef;
            print("\t$header_file\n") if def <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1477	1614	
==>guages
        #  languages/m4

        my $language = 'm4';
        my $path_to_parrot = Parrot::Test::path_to_parrot();
        my $dir_ <==
2	/Users/nnunley/parrot/config/init/miniparrot.pm	136	226	
==>=head1 NAME

config/init/miniparrot.pm - Miniparrot configuration

=head1 DESCRIPTION

Modi <==
2	/Users/nnunley/parrot/config/init/hints/cygwin.pm	1359	1473	
==>gwin.
    my $define = $conf->options->get('define');
    unless ($define) {
        $define = 'inet_aton';
    } e <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	18145	18499	
==>reach (sort keys %groups) {
        # If there is only a single element with a single code...
        if (@{$groups{$_}} == 1 && $groups{$_}->[0]->{'code'} =~ /^\w{2}$/) {
            # Just put that rule into the list, with no grouping.
            push @rules_grouped, $groups{$_}->[0];
        } else {
            # Strip first code from all the group <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	3240	3433	
==>excl'    , 161,
 'cent'     , 162,
 'pound'    , 163,
 'curren'   , 164,
 'yen'      , 165,
 'brvbar'   , 166,
 'sect'     , 167,
 'uml'      , 168,
 'copy'     , 169,
 'ordf'     , 170,
 'laquo <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	3562	3668	
==>For instance, any class using
C<PMC_data> will have C<need_ext>.

=item C<does interface>

The class 'does' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593584	593835	
==>73,
                  "ARGS" => [
                              "p",
                              "k",
                              "kc"
                            ],
                  "BODY" => "#line 325 \"src/ops/object.ops\"\n  PMC *class = Parr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	4266	4388	
==>"ARGS" => [],
                  "BODY" => "#line 129 \"src/ops/core.ops\"\n    opcode_t *pc = CUR_OPCODE;\n    DO_OP(pc, in <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33153	33331	
==>llOp') )
    {
        push @opcodes1, new AssignOp( $parser,
            'result' => $var,
            'arg1'   => $nil->[0],
        );
        push @return1, $var;
    } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630641	630763	
==>readable_name(interpreter, class));\n    {{\@1}} = pmc_new(interpreter, type);\n    {{+=3}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631631	631753	
==>readable_name(interpreter, class));\n    {{\@1}} = pmc_new(interpreter, type);\n    {{+=3}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	9286	9428	
==>al_ok' } = ( ( $todo ? 1 : 0 ), 0 );
    }
    else {
        @$result{ 'ok', 'actual_ok' } = ( 1, $test );
    }

    $out .= "ok";
    $out . <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	2765	2987	
==>cond eq '<=') {
        return "le $a, $b, $where";
    } elsif ($cond eq '>') {
        return "gt $a, $b, $where";
    } elsif ($cond eq '>=') {
        return "ge $a, $b, $where";
    } else {
        die "Huh? cond $con <==
2	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1172	1292	
==>Op;
use base qw(Lua::opcode);

package BinaryOp;
use base qw(Lua::opcode);

package RelationalOp;
use base qw(Lua: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039087	1039366	
==>on",
                  "CODE" => 1161,
                  "ARGS" => [
                              "s",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 120 \"src/ops/var.ops\"\n    Parrot_store <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1094	1275	
==>ent = '  ' x $_[0]{'indent'};
    my $text = $_[1];
    _perly_escape($text);
    $text =~  # A not-totally-brilliant wrapping algorithm:
      s/(
         [^\n]{55}         # Snare <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16868	17009	
==>ut "- so that "--" won't make it thru in X-generated comments
        #  with text in them.
        
        # Yes, stipulate the list without <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10308	10433	
==>ut "- so that "--" won't make it thru in X-generated comments
    #  with text in them.

    # Yes, stipulate the list without <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2994	3121	
==>e[%ld]",

    'i'  => "IREG(%ld)",
    'n'  => "NREG(%ld)",
    'p'  => "PREG(%ld)",
    's'  => "SREG(%ld)",
    'k'  => "PREG( <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1913	2035	
==>e[%ld]",

  'i'   => "IREG(%ld)",
  'n'   => "NREG(%ld)",
  'p'   => "PREG(%ld)",
  's'   => "SREG(%ld)",
  'k'   => "PREG( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	12491	12605	
==>head3;}
{\s34\ql \keepn\sb90\sa180\f2\fs%s\ul\sbasedon0 \snext0 pod-head4;}
}

END

   $_[0]->codeblock_halfpoint_s <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16077	16186	
==>y $return = $self->_save_1 ('I');
  my $label = $self->_gensym();

  _num_arg ($node, 1, 'null?');

  my $temp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969333	969918	
==>s_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1090,
                  "ARGS" => [
                              "i",
                              "ic",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 608 \"src/ops/s <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	217	313	
==>a copy of Parrot::Test::Tcl, which looks like it's
largely a copy of Parrot::Test::Python. Abstra <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	255	351	
==>a copy of Parrot::Test::Tcl, which looks like it's
largely a copy of Parrot::Test::Python. Abstra <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	770	879	
==>test.  (If we were to
    # wait till it's normally run, the linker question would have already
    # been ask <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	485	585	
==>cant;
}


# Internal routine to emit code to really do any moves we've done lazily.
sub _do_lazy_move <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971351	971931	
==>s_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1092,
                  "ARGS" => [
                              "i",
                              "ic",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 608 \"src <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35612	35712	
==>rn $_[0]->{"subrule"} }
sub isterminal { 0 }
sub sethashname { }

sub describe ($)
{
	my $desc = $_[0 <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33091	33190	
==>rn $_[0]->{"subrule"} }
sub isterminal { 0 }
sub sethashname {}

sub describe ($)
{
	my $desc = $_[0 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	598	702	
==>onditionally advance 1 char
# code : Embedded code, in some language

# Stuff that is used for optimizati <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26854	27134	
==>de}},<<CALLSUB;
@code
CALLSUB
}
sub parse_sub {
	# Deja-vu from functions.
	feedme;
	my $f;
	$funcname=$syms[CURR];
	my $englishname=english_func($funcname);
	$subs{$funcname}=$englishname;
	$functions{$funcname}=$englishname;

	$f="_USERFUNC_$funcname";
	$f=changename($f);
	$f=~s <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8579	8690	
==>_name
{
    my $self = shift;
    my $path = $self->path_for_file_with_name(shift) || return;
    
    return un <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575981	576431	
==>" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 658,
                  "ARGS" => [
                              "p",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 276 \"src/ops/object.ops\" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3189	3381	
==>L<Pod::Simple::DumpAsText> is rather like this class,
except that it doesn't dump with XML syntax.  Try them and see
which one you like best!

L<Pod::Simple>, L<Pod::Simple::DumpAsXML>

The old <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111648	112141	
==>bors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 139,
                  "ARGS" => [
                              "s",
                              "sc",
                              "s"
                            ],
                  "BODY" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110757	111153	
==>bors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 138,
                  "ARGS" => [
                              "s",
                              " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846720	847002	
==>});\n  {{\@1}} = s;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847516	847798	
==>});\n  {{\@1}} = s;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112540	113056	
==>bors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 140,
                  "ARGS" => [
                              "s",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 187 \"src/ops/b <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49244	49343	
==>ine, "<$1op:...>");
				$prod->adddirective($1, $line);
			}
			elsif ($grammar =~ m/$UNCOMMITMK/gco <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305156	305639	
==>,
                  "NAME" => "if_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 355,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 1005 \"src/ops/cmp.ops\"\n  i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305944	306361	
==>,
                  "NAME" => "if_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 356,
                  "ARGS" => [
                              "s",
                              "ic"
                            ] <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	906	1015	
==>s() {
	# No extra subs.
	return "";
}

# Label generation.
sub gen_label() {
	# We'll emit a label for every s <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	663	772	
==>s() {
	# No extra subs.
	return "";
}

# Label generation.
sub gen_label() {
	# We'll emit a label for every s <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	6467	6644	
==>=~ /jit_cpu.c/) ? 2 : 1;

open JITCPU, '>', $genfile or die;

print JITCPU <<"END_C";
/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated aut <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	6473	6587	
==>'Too many args to $name' if \@_ > 1;\n";
            $out .= "    \@_ ? ($pre\$r->$elem$sel = shift$pst) : $pre\$r- <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1755	1855	
==>_, $self );

		exists($$self{VERSION})
	and	$$self{VERSION} < $COMPATIBLE
	and	croak "Yapp driver <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1694	1790	
==>_, $self );

		exists($$self{VERSION})
	and	$$self{VERSION} < $COMPATIBLE
	and	croak "Yapp driver <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	4033	4213	
==>^\w+(?:::\w+)*$/ ){
            $out .= "    if (defined(\$init{'$name'})) {\n";
           $out .= "       if (ref \$init{'$name'} eq 'HASH')\n";
            $out .= "            { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	674016	674326	
==>" => 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 755,
                  "ARG <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	5402	5525	
==>0.
 *
 * Any changes made here will be lost!
 *
 */

END_C

my $mmp_v = "${major_version}_${minor_version}_${patch_version}" <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	7288	7471	
==>{No_Plan}   = 1;
    $self->{Have_Plan} = 1;
}

=item B<has_plan>

  $plan = $Test->has_plan

Find out whether a plan has been defined. $plan is either C<undef> (no plan has been set), <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	4639	4751	
==>e setting, why?
        $self->data->set(verbose => $verbose) if $n > 2;

        print "\n", $description, '...' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830700	830931	
==>k, &i, STACK_ENTRY_INT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831441	831672	
==>k, &i, STACK_ENTRY_INT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19178	19299	
==>k => aop('lt', [ $matchcount, $min, $local_back ]),
      $next => $self->op_save_rxlocals($op),
              );

    ret <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20768	20889	
==>k => aop('lt', [ $matchcount, $min, $local_back ]),
      $next => $self->op_save_rxlocals($op),
              );

    ret <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11259	11415	
==>all|branch)/ } );

    print OUT "</pre>";
    print OUT page_footer();

    close(OUT);
    close(IN);


    $outfile = "$outfile_base.branches.html";
    p <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7693	7796	
==>nation isn't a register, determine register name now.
	if (!$dest_reg) {
		$pir .= <<'PIR'
# Get type (s <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5811	5914	
==>nation isn't a register, determine register name now.
	if (!$dest_reg) {
		$pir .= <<'PIR'
# Get type (s <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11204	11294	
==>STEMP0} = ${PTEMP1}["reg_type_short"]
${DEST0} = concat ${STEMP0}
inc stack_depth
${STEMP0} <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8390	8480	
==>STEMP0} = ${PTEMP1}["reg_type_short"]
${DEST0} = concat ${STEMP0}
inc stack_depth
${STEMP0} <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	779	899	
==>rn Parrot::Docs::Section::Parrot->new;
}

=item C<new_section($name, $text, @items)>

Returns a new section. 

Use this w <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	12918	13192	
==>R) ->   scan: R or advance
#                    goto next
#           advance: pos++ or lastback
#                    goto scan
#              next:
#
# back is R.back
#
sub rewrite_scan {
    my ($self, $op, $R, $lastback) = @_;

    my $scan = $self->genlabel('scan_start') <==
2	/Users/nnunley/parrot/config/init/hints/darwin.pm	1250	1360	
==>dynamic libparrot installable_parrot records
        # the path to the blib version of the library
        parr <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6036	6152	
==>'open-bracket');  }
sub require_open_paren    { return shift->require('open-paren');    }
sub require_infix_rel     { <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	8019	8156	
==>)
            }
        }
    }
}


sub check_mandatory_boilerplate {
    my ($file, $source) = @_;

    my @end_boilerplate = split /\n\s <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	9018	9228	
==>($code,0,10), "...";

    while (/ (\{) | (\}) /gx) {
        if($1) {
            $balance++;
        } else { # $2
            $balance--;
            return substr($code, 0, pos, ""), $code
                if <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	34700	34998	
==>ven_p,
  'max'              => \&_op_max,
  'min'              => \&_op_min,
  '+'                => \&_op_plus,
  '-'                => \&_op_minus,
  '*'                => \&_op_times,
  '/'                => \&_op_divide,
  'abs'              => \&_op_abs,
  'quotient'         => \&_op_quotient, <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14018	14190	
==>nter as first
	number as integer
end type
function mine (a, b, q as first)
	q.foo=103
	mine=100
end function
dim z as second
z.number=13
z.pointer.foo=12
print mine(foo,20,z <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4630	4743	
==>ut

sub directory_exists_with_name
{
    my $self = shift;
    my $name = shift;
    
    return -d File::Spec->ca <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32417	32557	
==>_type eq 'text') {
            # Hm, it's not numeric.  Correct for this.
            $para->[1]{'number'} = $expected_value;
            $se <==
2	/Users/nnunley/parrot/lib/Test/More.pm	17997	18117	
==>pilation aborted at $filename line $line.}m;
        $Test->diag(<<DIAGNOSTIC);
    Tried to use '$module'.
    Error:  $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5565	5672	
==>ead1 SEE ALSO

=over 4

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans: <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	3029	3140	
==>g_names, %func_info);

sub decode_line {
    my $l = shift;
    my ($pc, $line ,$opcode, $arg, $rest);
    if ($ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7128	7233	
==>ed $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "No block kind!"  unless define <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	990452	991130	
==>ass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1109,
                  "ARGS" => [
                              "i",
                              "i",
                              "s",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Pa <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	4332	4528	
==>othing left, so the original alternation disappears
            return $opt;
        }

        # Something left: opt(aR|aS|T|...) -> a opt(R|S) | opt(T|...)
        my $leftovers = $self->pass1(ro <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	1270	1421	
==>mentedException"
$P1 = new "System.NotImplementedException"
$P0["obj"] = $P1
throw $P0
PIR

    # Return.
END:
    .return(body)
.end
PIR_OUT

# Write o <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	12309	12422	
==>>= 0 (found idx into info_table), -1 if not
 */

static int get_op(const char * name, int full);

static size_t ha <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4358	4468	
==>STEMP1}
${DEST$push_num} = ${STEMP0}

# Increment dtypes index.
inc ${ITEMP0}
PIR
		$pir =~ s/\$push_num/$push_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2774	2884	
==>STEMP1}
${DEST$push_num} = ${STEMP0}

# Increment dtypes index.
inc ${ITEMP0}
PIR
		$pir =~ s/\$push_num/$push_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741062	741284	
==>E" => 833,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 164 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	756	1023	
==>Test::More;

our @EXPORT = qw( plan skip );

my $lang = 'perl6';
my $streams = {
    output => sub{return ( STDOUT => $_[0], STDERR => $_[0] )},
    stdout => sub{return ( STDOUT => $_[0], STDERR => File::Spec->devnull )},
    stderr => sub{return ( STDOUT => File::Sp <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32017	32148	
==>le " .
				"$rule->{'name'}\n";
        } elsif ($rule->{'instruction'} =~ /\$\{STACK0\}/ &&
		    $rule->{'instruction'} =~ /\$\{ST <==
2	/Users/nnunley/parrot/examples/benchmarks/primes.pl	868	1041	
==>s/benchmarks/primes.pasm>,
F<examples/benchmarks/primes2_p.pasm>,
F<examples/benchmarks/primes2.c>,
F<examples/benchmarks/primes2.pasm>,
F<examples/benchmarks/primes2.py>.

= <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	932	1081	
==>->YYData->{_G},
            'arg1'   => '_G',
        );
    }
    return [ $parser->YYData->{_G}, \@opcodes ];
}

sub get_cond {
    my ( $pa <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	55710	55848	
==>, 

If the extractor fails to match (in the case of a regex extractor), or returns an empty list or an undefined value (in the case of a su <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955403	955647	
==>" => "encodingname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956214	956458	
==>" => "encodingname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	602269	602534	
==>P" => 0,
                  "NAME" => "class",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "i <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	12420	12546	
==>el('undo_charclass');
    my $next = $self->genlabel('after_charclass');

    my @ops = (          aop('advance', [ $howfar, $l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11205	11392	
==>1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE|PARROT_JUMP_ENEXT",
                  "NAME" => "bs <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64956	65141	
==>1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE|PARROT_JUMP_ENEXT",
                  "NAME" => " <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61386	61535	
==>terminal", $aftererror,$line,$code);
			$item = new Parse::RecDescent::Token(@components[3,2,8],
							     $lookahead,$line);
			$prod and $prod->ad <==
2	/Users/nnunley/parrot/config/auto/snprintf.pm	77	178	
==>printf.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/snprintf.pm - Test for s <==
2	/Users/nnunley/parrot/tools/dev/as2c.pl	1146	1283	
==>rc */\n";
	}
	elsif (/\.type\s+(\w+)\s*,\s*\@function/) {
	    $in_comment = 0;
	    $func = $1;
	    print " *\n */\n";
	    print "stati <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105601	105835	
==>/ops/bit.ops\"\n  {{\@1}} |= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	106339	106573	
==>/ops/bit.ops\"\n  {{\@1}} |= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605182	605486	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addattribute",
                  "FLAGS" => ":obje <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605972	606276	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addattribute",
                  "FLAGS" => ":obje <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231892	232125	
==>GS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 592 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	7777	7905	
==>urn;
  } elsif(ref( $_[0] ) eq 'ARRAY') {
    $self->{'source_arrayref'} = $_[0];
    DEBUG and print "$self 's source is array r <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	3311	3406	
==>ng="#.*\$" />
          <RegExpr attribute="Comment" context="pod" String="^\\=($pod_start_rx).* <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1939	2057	
==>ed to actually declare the sub, we will place its
  # definition into the block at the top of the block stack (which is <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	822	935	
==>a($ident, qw(Jako::Construct::Expression::Value::Identifier));
  confess "Value (" . ref($value) . ") is not!" unl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573076	573298	
==>interpreter, enum_class_ParrotClass, name);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573986	574208	
==>interpreter, enum_class_ParrotClass, name);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29066	29184	
==>\/\\\\/g;
	$desc=~s/}/\\}/g;
	$desc=~s/{/\\{/g;

	bless 
	{
		"pattern"     => $pattern,
		"lookahead"   => $_[2],
		"l <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31170	31284	
==>\/\\\\/g;
	$desc=~s/}/\\}/g;
	$desc=~s/{/\\{/g;

	bless 
	{
		"pattern"   => $pattern,
		"lookahead" => $_[2],
		"l <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18533	18697	
==>n( $parser, $fct, $args );
}

sub BuildCallFunction {
    my ( $parser, $fct, $args ) = @_;
    my $result;
    my @opcodes = ();
    my @params  = ();
    m <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	13405	13537	
==>x /$pre/ at"} .
			    substr($$textref,pos($$textref),20) .
			    q{..."},
		         pos $$textref;
		return; 
	}
	my $codepos = p <==
2	/Users/nnunley/parrot/tools/dev/symlink.pl	525	636	
==>f)
    unless File::Spec->file_name_is_absolute($self);

my $toolsrcdir  = dirname($self);
my $toolsrcbase = bas <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277426	277979	
==>NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 323,
                  "ARGS" => [
                              "i",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 881 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20202	20305	
==>h
  1035  Finnish
  1044  Norwegian (Bokmal)
  2068  Norwegian (Nynorsk)

=back

If you are particularly <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85508	85610	
==>et_pmc_keyed_int(interpreter,\n      interpreter->iglobals, IGLOBALS_COMPREG_HASH);\n  {{\@1}} = VTABLE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86415	86517	
==>et_pmc_keyed_int(interpreter,\n      interpreter->iglobals, IGLOBALS_COMPREG_HASH);\n  {{\@1}} = VTABLE <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6535	6679	
==>urce (@sources) {
        return 1 if modtime($source) > $target_mod;
    }

    return 0;
}

sub generate_dump {
    my ($pmc) = @_;

    if (ne <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6746	6890	
==>urce (@sources) {
        return 1 if modtime($source) > $target_mod;
    }

    return 0;
}

sub generate_dump {
    my ($pmc) = @_;

    if (ne <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	511	702	
==>t <O>;
		close(O);
		print "\n";
	}
	
}

__DATA__
input a$,
print a$

STOPPLEASE
' Expect 10
sub second(b() )
	b(5)=10
end sub
sub first(a() )
	call second(a())
end sub
dim t(),f()
call first( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	13857	14068	
==>ft;
    return annotated($op, "match(" . $op->render(@_) . ")");
}

sub Regex::Ops::Tree::charclass::reftree {
    my $op = shift;
    return annotated($op, "charclass " . $op->render(@_));
}

sub Regex::Ops::Tre <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	11924	12093	
==>.e., between the \n and the EOS).
    }
  }
  $self->parse_lines(undef); # to signal EOF
  return $self;
}

sub _init_fh_source {
  my($self, $source) = @_;

  #DEBUG > 1 <==
2	/Users/nnunley/parrot/lib/File/Which.pm	6030	6258	
==>e current directory to the front of PATH if on
Win32, VMS or MacOS. I have no knowledge of those so don't know if the
current directory is searced first or not. Could someone please tell
me?

=head1 Author

Per Einar Ellefsen, E< <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105587	105817	
==>line 162 \"src/ops/bit.ops\"\n  {{\@1}} |= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	106325	106555	
==>line 162 \"src/ops/bit.ops\"\n  {{\@1}} |= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	24010	24194	
==>($cmd,
                                     'STDOUT' => $build_f,
                                     'STDERR' => $build_f);
            $builder->diag("'$cmd' failed with exit code $e <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	24771	24955	
==>($cmd,
                                     'STDOUT' => $build_f,
                                     'STDERR' => $build_f);
            $builder->diag("'$cmd' failed with exit code $e <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	6644	6992	
==>',
        commentType                     => '#',
        replace_slashes                 => 1
    );
    genfile(
        'config/gen/makefiles/scheme.in' => 'languages/scheme/Makefile',
        commentType                      => '#',
        replace_slashes                  => 1
    );
    genfile(
        'languages/APL/config/root.in' => 'la <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	4244	4354	
==>iled test (t/film.t at line 14)
    ok 5 - NumExplodingSheep() get
    # Looks like you failed 1 tests of 5

In <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	513110	513327	
==>GS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 695 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}}->vtable->neg(interpreter, {{ <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	8889	9011	
==>magf      complex.h
cimagl      complex.h
clearerr    stdio.h
clock       time.h
clog        complex.h
clogf       complex. <==
2	/Users/nnunley/parrot/config/auto/env.pm	556	669	
==>(shift, shift);

    my $verbose = $conf->options->get('verbose');

    my ($setenv, $unsetenv) = (0, 0);

    cc_ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	13358	13476	
==>, '!=', $dont_expect) unless $test;
        return $test;
    }

    return $self->cmp_ok($got, '!=', $dont_expect, $na <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81956	82224	
==>_exception(1, \"don't use compile - just invoke the compiler\");\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82850	83118	
==>_exception(1, \"don't use compile - just invoke the compiler\");\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065128	1065223	
==>nterpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed_str(interpreter, ns_root, {{\@2} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066002	1066097	
==>nterpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed_str(interpreter, ns_root, {{\@2} <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34139	34241	
==>lf->describe.'}' ) . ';
		$Parse::RecDescent::lastunexpected = $text;
		' . ($self->{"lookahead"} ? '$_ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37611	37713	
==>lf->describe.'}' ) . ';
		$Parse::RecDescent::lastunexpected = $text;
		' . ($self->{"lookahead"} ? '$_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	444	604	
==>h
  DEBUG > 2 and print "Handling $_[1] start-event\n";
  my $x = [$_[1], $_[2]];
  if($_[0]{'_currpos'}) {
    push    @{ $_[0]{'_currpos'}[0] }, $x; # insert i <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28087	28208	
==>the name
of the output file we are generating.

=cut

sub gen_h() {
    my ($self, $out_name) = @_;

    my $hout = dont_e <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	13108	13237	
==>me, full ? p->info->full_name : p->info->name))
            return p->info - ${bs}op_lib.op_info_table;
    }
    return -1;
}
sta <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	35951	36111	
==>art,
  'magnitude'        => \&_op_magnitude,
  'angle'            => \&_op_angle,
  'exact->inexact'   => \&_op_exact_inexact,
  'inexact->exact'   => \&_op_ine <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	988	1190	
==>elf->block;
  my $ident = $self->ident->value;

  $compiler->emit("_LABEL_$ident:");

  return;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;
  
  $handler->start_element({ Name => <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	7906	8123	
==>die "Can't save     stderr" if $err;

    open  STDOUT, ">$out"    or die "Can't redirect stdout to $out" if $out;
    open  STDERR, ">$err"    or die "Can't redirect stderr to $err" if $err;

    # If $command isn't a <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Posix.pm	15	126	
==>languages/bc/lib/Parrot/Test/Bc/Posix.pm 16454 2006-02-01T20:44:27.448243Z bernhard  $

package Parrot::Test::Bc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1014213	1014309	
==>c/ops/sys.ops\"\n  const char * const tmp = strerror(errno);\n  {{\@1}} = string_make(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225439	225540	
==>DY" => "#line 523 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) >= {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226380	226481	
==>DY" => "#line 523 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) >= {{\@ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	4320	4429	
==>still in a heredoc, we got an error.
    if ($in_heredoc) {
        die "Unterminated heredoc runs to end of f <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	5410	5505	
==>re is any POD formatted documentation in the file.
Executable files are assumed not to contain P <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	859	962	
==>e labels related to the loop control statements,
and these are kept distinct by applying the prefix to t <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	432	539	
==>> $value1, $key2 => $value2);
    my @keys = $data->keys;
    my $serialized = $data->dump;
    $data->clean <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	61018	61274	
==>YData->{symbtab}     = new SymbTabVar($parser);
    $parser->YYData->{symbtab_cst} = new SymbTabConst($parser);
    $parser->YYData->{_G}          = undef;
    $parser->YYData->{self}        = undef;
    $parser->YYData->{idx_tmp}     = 0;
    $parser- <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	167	369	
==>> from
F<config/gen/config_pm/Config_pm.in>. It contains the C<%PConfig> hash which is
exported.

=cut

package Parrot::Config;

use strict;
use Exporter;

use vars qw(@ISA @EXPORT %PConfig);

@ISA=qw(Ex <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	315226	315719	
==>GDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 368,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 77 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (INTVAL)((unsigned char)({{\@1}}));\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49787	50159	
==>LAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 64,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 800 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	13579	13704	
==>$token->text, "\" to para-content.\n";
        $para_text_content .= $token->text;
        # and keep looking
        
      } <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26003	26111	
==>"argument read");
		$mv->{"ARG$arg_num"} = $mv->{$arg_name};
		push @localmv, "ARG$arg_num";
        $arg_num <==
2	/Users/nnunley/parrot/tools/dev/symlink.pl	274	463	
==>d with a relative path
#	- being called through a symlink
#
# jhi@iki.fi
#

use strict;

use File::Basename;
use File::Spec;
use Cwd;

my $self = $0;
my $cwd  = getcwd();

$self = readlink($ <==
2	/Users/nnunley/parrot/config/init/hints/aix.pm	118	227	
==>oke  $

package init::hints::aix;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    $conf->data->se <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6599	6755	
==>map'}{$tagname} || return;
    
    if ( $tagname eq 'item-text' )
    {
        $self->{IN_ITEM_TEXT} = 1;
    }
    
    my @to_unget;
    
    # Get all t <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	56989	57261	
==>ator (and removes it from $text):

        $quotelike = extract_multiple($text,
                                      [
                                        sub { extract_quotelike($_[0]) },
                                      ], undef, 1);

Finally, here is yet anoth <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Transcode.pm	503	636	
==>G and print "OK, loaded $class.\n";
    @ISA = ($class);
    last;
  }
}

sub _blorp { return; } # just to avoid any "empty class" war <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	3239	3372	
==>>{stream}->{data}->($f_out),
            };

            ## run the command and capture the exit code
            my $exit_code = Parr <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2618	2774	
==>itKeyedGetOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbo <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	54256	54354	
==>led in a list context and is
expected to return a list of a single element, namely the extracted
te <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	709299	709595	
==>{{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_mro",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
2	/Users/nnunley/parrot/config/gen/config_pm.pm	1885	2121	
==>>get($k);
                if (defined $v) {
                    $v =~ s/(["\\])/\\$1/g;
                    $v =~ s/\n/\\n/g;
                    print OUT qq(\tset P0["$k"], "$v"\n);
                } else {
                    print OU <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	13403	13629	
==>my $arg (@args) {
					next if $arg->[0] =~ /^\$P\d+$/;
					if ($arg->[2] eq "BARE") {
						push @return_params, $arg->[0]
					} else {
						push @return_params, "\$" .
						  optype_of($arg->[0], $arg) .
						  $retcount <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	13034	13295	
==>,
                        'arg2'   => $key->[0],
                    );
                    $result = $result2;
                    $key    = $key2;
                    push @opcodes, @{ $key->[1] };
                }
                my $assign = new Keye <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	3456	3688	
==>s+/) {
                    my $tbody = $body;
                    while ($asm =~ s/\b(s(.).+?\2.*?\2)(?:\s+)?//) {
                        eval "\$tbody =~ ${1}g";
                        if ($@) {
                            die "er <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	6829	6920	
==>{'accept_directives'} } if wantarray;
  return;
}

#---------------------------------------- <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5470	5585	
==>t stack height.
PRE_BRANCH_${CURIC}_CONT_$register_num:
dec stack_depth
PIR
		$pir =~ s/\$register_num/$register_num <==
2	/Users/nnunley/parrot/config/auto/jit.pm	53	161	
==>: /parrot/config/auto/jit.pm 20320 2006-06-20T19:26:31.775154Z bernhard  $

=head1 NAME

config/auto/jit - JI <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	7536	7730	
==>n',
             'jitcapable' => 1,
             'jitcpu' => 'PPC',
             'jitcpuarch' => 'ppc',
             'jitosname' => 'DARWIN',
             'ld' => 'c++',
             'ld_debug' = <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	672	787	
==>f->init();
    return $self;
}

sub init {
    my ($self, @args) = @_;
    $self->{_markers} = {};
    $self->{_temp <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3819	3974	
==>ment({ Name => 'block', Attributes => { kind => 'then' } });
  }

  $handler->start_element({ Name => 'return' });
  $value->sax($handler) if defined $value <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	3055	3182	
==>ment({ Name => 'block', Attributes => { kind => 'then' } });
  }

  $handler->start_element({ Name => 'goto', Attributes => { la <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1014	1147	
==>= @_;
	my $register_num = 0;
	my $push_num = 0;
	
	# Emit initial code.
	my $pir = <<'PIR';
# Get current stack types array size.
${IT <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10822	10962	
==>07
	.const int ELEMENT_TYPE_I4 = 0x08
	.const int ELEMENT_TYPE_U4 = 0x09
	.const int ELEMENT_TYPE_I8 = 0x0A
	.const int ELEMENT_TYPE_U8 = 0x0 <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	12544	12683	
==>s, @body) = _get_args ($node,1);
  my (@variables, @values);
  for (@{$locals->{children}}) {
    _num_arg ($_, 1, 'let locals');
    my ($v <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733498	733747	
==>823,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 134 \"src/ops/set.ops\"\n  {{\@1}} = string_to_int(interpreter, {{\@2}});\n  {{+ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	30503	30669	
==>($$e1, $$e2);
                pop @Data_Stack if $ok;
            }
            elsif( $type eq 'SCALAR' ) {
                push @Data_Stack, { type => 'REF', vals => <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	1535	1675	
==>s' => '',
             'cc_o_out' => '-o ',
             'cc_shared' => ' ',
             'ccflags' => '-I/opt/local/include -fno-common -no- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089496	1089836	
==>"i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1208,
                  "ARGS" => [
                              "p",
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 186 \"src/ops/experimental.ops <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	5840	5945	
==>);

\$VERSION = "$version";

END_C

print MODULE $preamble;
print MODULE Data::Dumper->Dump([ $real_ops->p <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	1562	1761	
==>enerate_makefile(%) {
	my %config = @_;

    # Generate class library make instructions.
    my $class_lib_make = generate_classlib_make($mono_lib_path);
	
	# Read in makefile template.
	my $fh <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2554	2664	
==>e => 'op', Attributes => { kind => 'infix', name => $self->op } });
    $self->left->sax($handler);
    $self-> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2431	2541	
==>e => 'op', Attributes => { kind => 'infix', name => $self->op } });
    $self->left->sax($handler);
    $self-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718044	718145	
==>\");\n  PIO_fprintf(interpreter, io, INTVAL_FMT, (INTVAL){{\@2}});\n  PIO_softspace(interpreter, io, 1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718976	719077	
==>\");\n  PIO_fprintf(interpreter, io, INTVAL_FMT, (INTVAL){{\@2}});\n  PIO_softspace(interpreter, io, 1 <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	20608	20859	
==>'};
                $name =~ s/\./_/g;
                $pir .= "    if cur_ic == 0x$_->{'code'} goto INS_TRANS_$name\n";
            }
        }
        
        # If we don't branch at any of them, we've got an unknown op.
        $pir .= "    goto IN <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31537	31644	
==>lt implementation to direct all unknown methods to
the thing referred to.

=cut

sub body
{
    my ($self, $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10005	10191	
==>ntname".  Then when we go re-mapping,
    #  a "W" in the treelet turns into "thatelementname".  We only
    #  remap once.
    # If we say we accept "W", then a "W" in the treelet simply <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180145	180643	
==>LAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 215,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 278 \"src/ops/cmp.ops\"\ <==
2	/Users/nnunley/parrot/Configure.pl	5399	5683	
==>installation prefix

   --ask                Have Configure ask for commonly-changed info

Compile Options:

   --debugging=0        Disable debugging, default = 1
   --inline             Compiler supports inline
   --optimize           Optimized compile
   --optimize=flags     Add gi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818901	819077	
==>rpreter);\n  {{=0,+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "en <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	76	176	
==>ple ();
BEGIN {@ISA = ('Pod::Simple')}

use strict;

use Carp ();

BEGIN { *DEBUG = \&Pod::Simple::DE <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	75	175	
==>ple ();
BEGIN {@ISA = ('Pod::Simple')}

use strict;

use Carp ();

BEGIN { *DEBUG = \&Pod::Simple::DE <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	61	174	
==>';
use Pod::Simple ();
BEGIN {@ISA = ('Pod::Simple')}

use strict;

use Carp ();

BEGIN { *DEBUG = \&Pod::Simple:: <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	60	173	
==>';
use Pod::Simple ();
BEGIN {@ISA = ('Pod::Simple')}

use strict;

use Carp ();

BEGIN { *DEBUG = \&Pod::Simple:: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	364	543	
==>base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $ident, @args) = @_;

  confess("Block (" . ref($block) . ") is not!") unless UNIVERSAL::isa($blo <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	4817	4997	
==>[2];
	my $line  = $_[3];
	my $replace = $_[4];

	if (defined $owner->{"rules"}{$name})
	{
		my $self = $owner->{"rules"}{$name};
		if ($replace && !$self->{"changed"})
		{
			$self- <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9276	9377	
==>d-enough check that it's good as an XML Name symbol:
      Carp::croak "\"$new_code\" isn't a valid el <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10540	10641	
==>d-enough check that it's good as an XML Name symbol:
      Carp::croak "\"$new_code\" isn't a valid el <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	5223	5358	
==>> \$Help,
		   'version|v'    => \$Version,
		  )) {
    show_help();
    exit(1);
}

if ($Const && !$nm_ro) {
    warn "$ME: the native <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14093	14204	
==>'', 'set', [$return,1]);
    $self->_add_inst ('', 'branch', ["DONE_$label"]);
    $self->_add_inst ("FAIL_$labe <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16363	16470	
==>'', 'set', [$return,1]);
  $self->_add_inst ('', 'branch', ["DONE_$label"]);
  $self->_add_inst ("FAIL_$labe <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	2667	2812	
==>s any .xyz suffix.

=cut

sub name_without_suffix
{
    my $self = shift;
    my $name = $self->name;
    
    $name =~ s/\.[^\.]*$//o;
    
    r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467425	467652	
==>GS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 376 \"src/ops/math.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exc <==
2	/Users/nnunley/parrot/lib/Test/More.pm	36811	36941	
==>is like XUnit but more perlish.

L<Test::Deep> gives you more powerful complex data structure testing.

L<Test::Unit> is XUnit styl <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1576	1694	
==>:expr_to_tree($pattern, $ctx, DEBUG => 0);

    my $driver = Regex::Driver->new('pir', emit_main => 1);

    print $PIR <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	951	1051	
==>..." line will give you
a start-token with the tagname of "head1", token(s) for its
content, and then <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1379	1479	
==>..." line will give you
a start-token with the tagname of "head1", token(s) for its
content, and then <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78902	79005	
==>"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  void * const p = Parrot_dlsym(P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80423	80526	
==>"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  void * const p = Parrot_dlsym(P <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	33905	34174	
==>delimiters passed as
C<extract_bracketed>'s second argument. Delimiter brackets are
specified by giving either the left or right (or both!) versions
of the required bracket(s). Note that the order in which
two or more delimiter brackets are specified is not significant. <==
2	/Users/nnunley/parrot/config/auto/msvc.pm	1486	1684	
==>('no');
        $conf->data->set(msvcversion => undef);
        return $self;
    }

    my $msvcversion = "$major.$minor";
    print " (yep: $msvcversion )" if $verbose;
    $self->set_result('yes') <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2216	2357	
==>rder=0 src="../resources/up.gif"></a></h2>\n\n) . $index_html;
	}
	
	return $index_html;
}

=item C<write_contents_html($source, $target, $sil <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	16327	16486	
==>lass->{super}{$meth} = 'default';
    }
}

=head2 dump_is_newer($file);

Return whether the dump of a file is newer than the PMC file.
(If it's not, then the PM <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	23027	23187	
==>pattern: $pattern\n";
    }
  }
  
  # Put it all back:
  $self->unget_token(@to_unget);
  
  if(DEBUG) {
    if(defined $title) { print "  Returing title <$titl <==
2	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	27	151	
==>The Perl Foundation.
# $Id: /parrot/lib/Parrot/BuildUtil.pm 20321 2006-06-20T20:02:00.179448Z bernhard  $

=head1 NAME

lib/P <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	551	993	
==>EWS                                            [devel]doc
    PBC_COMPAT                                      [devel]doc
    PLATFORMS                                       [devel]doc
    README                                          [devel]doc
    README.win32.pod                                [devel]doc
    README.win32.pod                                [devel]doc
    RESPONSIBLE_PARTIES                             [main]doc
    TODO <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	6	115	
==>re 5;
package Pod::Simple::Debug;
use strict;

sub import {
  my($value,$variable);
  
  if(@_ == 2) {
    $va <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14056	14152	
==>AIL_$label"]);
    $self->_add_inst ('', 'set', [$return,1]);
    $self->_add_inst ('', 'branch', <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16328	16420	
==>AIL_$label"]);
  $self->_add_inst ('', 'set', [$return,1]);
  $self->_add_inst ('', 'branch', <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	17175	17468	
==>el.
    gen_pir = concat ".get_results (cur_exception, $S1000000)\nsaved_ehs["
    tmp = i
    gen_pir = concat tmp
    gen_pir = concat "] = cur_exception\nFINALLY_"
    tmp = handler_offset
    gen_pir = concat tmp
    gen_pir = concat ": "
NOT_FINALLY_START:

    # Goto next handler.
    go <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19058	19159	
==>$parser->get_short_title on that document will return
"Hoo::Boy::Wowza".

But if the document starts o <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7130	7231	
==>) eq 'ARRAY' ? join('|', @{$options{reject}})
		    : defined($options{reject})	       ? $options{reje <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24132	24233	
==>) eq 'ARRAY' ? join('|', @{$options{reject}})
		    : defined($options{reject})	       ? $options{reje <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2081	2181	
==>left  = $left->compile($compiler);
    $right = $right->compile($compiler);

    if ($cond eq 'unless <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	5604	5758	
==>OD};
}

=item C<num_pod_errors()>

Tells you the number of POD errors in the file.

=cut

sub num_pod_errors
{
	my $self = shift;
	
	$self->check_pod;
	
	r <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	1072	1179	
==>ethod eq "output_";
    return $self->$method(@{ $op->{args} });
}

sub lookup_var {
    my ($self, $var, $c <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10738	10868	
==>l($section);
        # Turn char 1234 into "(1234)"
        $section = '_' unless length $section;
    }
    
    foreach my $it ($ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4115	4236	
==>l($section);
     # Turn char 1234 into "(1234)"
    $section = '_' unless length $section;
  }
  
  

  foreach my $it ($ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20871	20977	
==>isterminal { 0 }

sub code($$$$)
{
	my ($self, $namespace, $rule) = @_;
	
''.($::RD_NO_TRACE?'':'
		Parse:: <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	46	162	
==>ython/pie-thon.pl 17329 2006-02-27T07:57:10.879453Z bernhard  $

# This is a minimal and incomplete python bytecode t <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	573	683	
==>:Test::per_test('.out',$count);
    my $parrotdir = dirname $self->{parrot};

    my $args = $ENV{TEST_PROG_ARG <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	610	720	
==>:Test::per_test('.out',$count);
    my $parrotdir = dirname $self->{parrot};

    my $args = $ENV{TEST_PROG_ARG <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	13445	13680	
==>$next ]),
               $advance => $self->dbprint("scan advancing\n"),
                           aop('advance', [ 1, $lastback ]),
                           aop('goto', [ $scan ]),
                  $next =>
              );

    re <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	7612	7795	
==>b)=EXPRESSION();
		}
	}
	if (@codeb and @codef) {  	# F and B
		push @{$code{$seg}->{code}},<<FANDB;
@codeb	\$N100= $resultb
@codef	\$N101= $resultf
	_screen_color(\$N101,\$N100)
FANDB <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	8205	8333	
==>c)
	{
		_failmsg "Did not find opening tag: /$ldel/", pos $$textref;
		goto failed;
	}

	$textpos = pos($$textref);

	if (!define <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322363	322597	
==>= (UINTVAL)((Parrot_UInt4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323135	323369	
==>= (UINTVAL)((Parrot_UInt4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1230	1387	
==>:
      s/(
         [^\n]{55}         # Snare some characters from a line
         [^\n\ ]{0,50}     #  and finish any current word
        )
        \x20{1, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1174	1331	
==>:
      s/(
         [^\n]{55}         # Snare some characters from a line
         [^\n\ ]{0,50}     #  and finish any current word
        )
        \x20{1, <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	137	224	
==>e Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expression/Infi <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	7287	7383	
==>shift;
	my $prodcount = scalar @{$self->{"prods"}};
	my $impcount = ++$self->{"impcount"};
	retur <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	3319	3430	
==>et;

#  DEBUG(0, "Current position is $pos");
  $pos += $offset;
#  DEBUG(0, "Getting token at $pos");
  
  retu <==
2	/Users/nnunley/parrot/config/inter/progs.pm	4029	4277	
==>| $debug =~ /n/i) {
        $conf->data->set(
            cc_debug   => '',
            link_debug => '',
            ld_debug   => ''
        );
    }

    # This one isn't prompted for above.  I don't know why.
    $ccwarn = integrate($conf->data- <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59180	59374	
==>rse::RecDescent::Rule($rulename,$self,$line,$replace);
			$prod->check_pending($line) if $prod;
			$prod = $rule->addprod( new Parse::RecDescent::Production );
			$aftererror = 0;
		}
		elsif ($g <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	12013	12129	
==>il_label = $self->output_label_use($fail);
    my @ops;
    if (defined $name) {
        push @ops, "<rx_match>['$nam <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921011	921125	
==>.ops\"\n    {{\@1}}=Parrot_psprintf(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921904	922018	
==>.ops\"\n    {{\@1}}=Parrot_psprintf(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	10339	10461	
==>rname}{lc($filename)});
        }
        $files_in_dir_nocase{$dirname}{lc($filename)}=$_;
    }

    close(F);
}



sub i <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1775	1858	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _xml_escape { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605883	605973	
==>"src/ops/object.ops\"\n    Parrot_add_attribute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606674	606764	
==>"src/ops/object.ops\"\n    Parrot_add_attribute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3} <==
2	/Users/nnunley/parrot/languages/converter.pl	1219	1437	
==>(?) ";
		  $return .= $item[5][0] if defined $item[5][0];
		}
		| terminal(?) /<[^>]+>/  production(?)
		{ $return = '';
		  $return .= $item[1][0] if defined $item[1][0];
		  $return .= "# $item[2]\n";
		  $return .= $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955419	955746	
==>me",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1075,
                  "ARGS" => [
                              "s", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	533051	533431	
==>th",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 616,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#lin <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6062	6245	
==>0
do
	a=a+1
loop until a>4
print a


' Swap
a$="Hello"
b$="Goodbye"
print a$,b$
swap a$,b$
print a$,b$

' Bubble sort cities
TRUE=1
FALSE=0
DIM A$(4)
A$(1) = "New York"
A$(2) = "Boston <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3203	3334	
==>0];
    ${$$self{TOKEN}};
}

sub YYCurval {
	my($self)=shift;

        @_
    and ${$$self{VALUE}}=$_[0];
    ${$$self{VALU <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3046	3168	
==>0];
    ${$$self{TOKEN}};
}

sub YYCurval {
	my($self)=shift;

        @_
    and ${$$self{VALUE}}=$_[0];
    ${$$self{VALU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218820	218915	
==>(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) > 0) {\n    {{+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219799	219894	
==>(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) > 0) {\n    {{+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314926	315223	
==>{{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u1",
                  "FLAGS" => ":dotgnu_core",
                  " <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	5	187	
==>yright (C) 2001-2006, The Perl Foundation.
# $Id: /parrot/config/inter/pmc.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/inter/pmc.pm - PMC Files

=head1 DESCRIPTI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793819	794352	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 896,
                  "ARGS" => [
                              "p",
                              "kc",
                              "i"
                            ],
                  "BODY" => "#line 457 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	21883	21983	
==>";
    $class_init_code =~ s/INTERP/interp/g;
    my $enum_name = $self->{flags}{dynpmc} ? -1 : "enum <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	863	1078	
==>($meth, $section) = @_;

    warn "no $meth\n" unless $section;
    return exists $writes{$section} || $meth eq 'morph';
}

=item C<count_newlines($string)>

Returns the number of newlines (C<\n>) in C<$string>.

=cu <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	2556	2665	
==>d2 Op Body (Macro Substitutions)

In the following macro descriptions, C<PC> and C<PC'> are the current
and ne <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	15302	15509	
==>STDOUT => $out_f,
                                         STDERR => $out_f);
            }

            my $meth = $parrot_test_map{$func};
            my $real_output = slurp_file($out_f);

            # se <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292470	292665	
==>,
                              "nc"
                            ],
                  "BODY" => "#line 940 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} == {{\@3}};\n  {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	34678	34870	
==>t ran $num_extra extra.
FAIL
        }
        elsif ( $num_failed ) {
            my $s = $num_failed == 1 ? '' : 's';
            $self->diag(<<"FAIL");
Looks like you failed $num_failed test <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10355	10470	
==>ug & 0x10
#DBG>		and	print STDERR "**Shift \$error token and go to state ".
#DBG>						 $$states[$$stack[-1][0]]{A <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9888	10001	
==>ug & 0x10
#DBG>		and	print STDERR "**Shift \$error token and go to state ".
#DBG>						 $$states[$$stack[-1][0]]{A <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	13063	13205	
==>{local $/; <$fh>};
    close($fh) or die "Can't close $filename: $!";

    return $text;
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::Co <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	52763	52854	
==>of the string. Thus C<extract_multiple> is
a generalized form of Perl's C<split> subroutine. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196449	196723	
==>preter, {{\@1}}, {{\@2}}, MMD_NUMCMP) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	38443	38547	
==>line at the end.
	$ins .= "\n" unless $ins =~ /\n$/;

	# Escape some characters that will go into the out <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	5587	5847	
==>d =~ tr/({[</)}]>/;
			if ($expected ne $brackettype)
			{
				_failmsg qq{Mismatched closing bracket: expected "$expected" but found "$found"},
					 pos $$textref;
				pos $$textref = $startpos;
			        return;
			}
			last if $#nesting < 0;
		}
		elsif ($ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	458	594	
==>'SCALAR') {
      require Carp;
      Carp::croak("Usage:\n use Pod::Simple::Debug (NUMVAL)\nor"
                . "\n use Pod::Simple::D <==
2	/Users/nnunley/parrot/config/init/defaults.pm	1596	1728	
==>guess, but is otherwise currently
        # unset.  Ultimately, it should be set to whatever ICU figures
        # out, or parrot sho <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48273	48390	
==>ep) = (0,1) }
				elsif ($grammar =~ m/$ANY/gco)
					{ $minrep = 0 }
				elsif ($grammar =~ m/$EXACTLY/gco)
					{ ($ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	302	417	
==>ter Test::More);

sub import {
    my( $class, $plan, @args ) = @_;

    Test::More->import( $plan, @args );

    __ <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	219	334	
==>ter Test::More);

sub import {
    my( $class, $plan, @args ) = @_;

    Test::More->import( $plan, @args );

    __ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	483186	483665	
==>e_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 553,
                  "ARGS" => [
                              "n",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 455 \"src/ops/math.o <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1002	1098	
==>ame of "head1", token(s) for its
content, and then an end-token with the tagname of "head1".

=it <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1430	1526	
==>ame of "head1", token(s) for its
content, and then an end-token with the tagname of "head1".

=it <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824429	824529	
==>(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_STRING) {\n    internal_exceptio <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825500	825600	
==>(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_STRING) {\n    internal_exceptio <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1893	2018	
==>t, $expected, $depends);
}

## unlike

sub unlike (Str $got, Rule $expected, Str $desc?, :$todo, :$depends) returns Bool is ex <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	17946	18064	
==>s without a plan!  Gotta have a plan.");
    }

    lock($self->{Curr_Test});
    $self->{Curr_Test}++;

    $self->{Te <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	18811	18929	
==>s without a plan!  Gotta have a plan.");
    }

    lock($self->{Curr_Test});
    $self->{Curr_Test}++;

    $self->{Te <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430445	430660	
==>",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 74 \"src/ops/math.ops\"\n  mmd_dispatch_v_ps(interpreter, {{\@2}}, {{\@3}}, { <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	1397	1599	
==>08 if $chr =~ /^[[:digit:]]$/;  # CCLASS_NUMERIC        
    $ret |= 0x0010 if $chr =~ /^[[:xdigit:]]$/; # CCLASS_HEXADECIMAL    
    $ret |= 0x0020 if $chr =~ /^[[:space:]\x85\xa0]$/;  # CCLASS_WHITESPA <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	3815	3965	
==>'   , 191,
 'Agrave'   , 192,
 'Aacute'   , 193,
 'Acirc'    , 194,
 'Atilde'   , 195,
 'Auml'     , 196,
 'Aring'    , 197,
 'AElig'    , 198,
 'Ccedi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3003	3155	
==>f, $val1, $val2, $dest) = @_;
    $self->output_test('<=', $val1, $val2, $dest);
}

sub output_gt {
    my ($self, $val1, $val2, $dest) = @_;
    $self-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1392	1518	
==>elf->{PC} = shift;
    }
    else
    {
        return $self->{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/gets t <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1001	1127	
==>elf->{PC} = shift;
    }
    else
    {
        return $self->{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/gets t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168950	169439	
==>LAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 203,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 204 \"src/op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	174681	174978	
==>LAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 209,
                  "ARG <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	54466	54632	
==>like $' for a pattern
match), and a string representing any prefix skipped before the
extraction (like $` in a pattern match). Note that this is designed
to facilitate <==
2	/Users/nnunley/parrot/Configure.pl	7711	7817	
==>-icuheaders=(path)  Location of ICU headers without /unicode
   --icushared=(flags)  Full linker command to <==
2	/Users/nnunley/parrot/config/gen/icu.pm	3789	3895	
==>-icuheaders=(path)  Location of ICU headers without /unicode
   --icushared=(flags)  Full linker command to <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631209	631477	
==>inline",
                  "CODE" => 707,
                  "ARGS" => [
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 81 \"src/ops/pmc.ops\"\n    PMC *class = {{\@2}};\n    INTVAL <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2022	2138	
==>cmd = "$executable $lang_f";

    $exit_code = Parrot::Test::run_command($cmd, #CD => $self->{relpath},
					   STDOU <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	293	389	
==>s> and is
used by F<tools/build/pbc2c.pl> to transform Parrot bytecode to a C code
run loop.

=he <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	13962	14083	
==>$extra_preamble_ref});
    my $extra_postamble = join("\n    ", @{$extra_postamble_ref});
    my $return_data     = "$retu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176534	177039	
==>LAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 211,
                  "ARGS" => [
                              "sc",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 240 \"src/ops/cmp.ops\"\n  i <==
2	/Users/nnunley/parrot/lib/Test/More.pm	12074	12294	
==>ap "    $class->can('$_') failed\n", @nok);

    return $ok;
}

=item B<isa_ok>

  isa_ok($object, $class, $object_name);
  isa_ok($ref,    $type,  $ref_name);

Checks to see if the given C<< $object->isa($class) >>.  Als <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720802	721031	
==>> 808,
                  "ARGS" => [
                              "p",
                              "nc"
                            ],
                  "BODY" => "#line 133 \"src/ops/python.ops\"\n  PMC * const io = {{\@1}};\n <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10379	10480	
==>int STDERR "**Shift \$error token and go to state ".
#DBG>						 $$states[$$stack[-1][0]]{ACTIONS}{er <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9911	10011	
==>int STDERR "**Shift \$error token and go to state ".
#DBG>						 $$states[$$stack[-1][0]]{ACTIONS}{er <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956779	957070	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_encoding",
                  "FLAG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957683	957974	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_encoding",
                  "FLAG <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10920	11033	
==>es it.

Raises an exception if the delete fails.

=cut

sub delete
{
    # Use $_[0] so that we can undef the inst <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4754	4867	
==>es it.

Raises an exception if the delete fails.

=cut

sub delete
{
    # Use $_[0] so that we can undef the inst <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	97	197	
==>333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Section::PMCs - PMCs document <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830577	830687	
==>=> "#line 186 \"src/ops/stack.ops\"\n  INTVAL i = {{\@1}};\n  stack_push(interpreter, &CONTEXT(interpreter->ctx <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831318	831428	
==>=> "#line 186 \"src/ops/stack.ops\"\n  INTVAL i = {{\@1}};\n  stack_push(interpreter, &CONTEXT(interpreter->ctx <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	1818	1995	
==>arn "Warning! Unable to extract tests for $file\n";
        } else {
            warn "Extracting tests for $file\n";
            open my $tfh, '>>', $test;
            print {$t <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	6	110	
==>l -w

# Remember, this is BAD PERL later to be translated to PASM
# First tokenize the input stream into: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	3021	3133	
==>block' });
    $handler->start_element({ Name => 'block', Attributes => { kind => 'then' } });
  }

  $handler->s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3785	3897	
==>block' });
    $handler->start_element({ Name => 'block', Attributes => { kind => 'then' } });
  }

  $handler->s <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1819	1916	
==>hift];
}

=item C<goto_address($address)>

Transforms the C<goto ADDRESS($address)> macro in an op <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1434	1531	
==>hift];
}

=item C<goto_address($address)>

Transforms the C<goto ADDRESS($address)> macro in an op <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2191	2345	
==>,
  'F'      =>  "<em$Computerese>",     '/F'     =>  "</em>",
  'C'      =>  "<code$Computerese>",   '/C'     =>  "</code>",
  'L'  =>  "<a href='YOU_SHOU <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	16700	16805	
==>]->sethashname($self);
	    }
	}
}

sub prevwasreturn
{
	my ( $self, $line ) = @_;
	unless (@{$self->{item <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3516	3685	
==>FFSET(X)>

Transforms to C<PC' = 0> and restarts at C<PC + X>.

=item C<restart NEXT()>

Transforms to C<PC' = 0> and restarts at C<PC + S>.

=item C<$n>

Transforms to t <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1721	1823	
==>("Wrong number of arguments (expected %d, got %d) in call to '%s'.",
    scalar(@formal_args), scalar(@ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1421	1523	
==>("Wrong number of arguments (expected %d, got %d) in call to '%s'.",
    scalar(@formal_args), scalar(@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810999	811296	
==>LAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 915,
                  "ARGS" <==
2	/Users/nnunley/parrot/lib/Test/More.pm	33444	33550	
==>=over 4

=item B<builder>

    my $test_builder = Test::More->builder;

Returns the Test::Builder object un <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	7446	7544	
==>_link_cmd("$group$LOAD_EXT", $libs, \@sources))
          or die "partial link $group$LOAD_EXT fail <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7657	7755	
==>_link_cmd("$group$LOAD_EXT", $libs, \@sources))
          or die "partial link $group$LOAD_EXT fail <==
2	/Users/nnunley/parrot/tools/dev/cc_flags.pl	591	781	
==>for the transformation file format.

=head1 SEE ALSO

F<config/gen/cflags/root.in>.

=cut

################################################################################

use strict;

my $c <==
2	/Users/nnunley/parrot/examples/benchmarks/stress.pl	680	782	
==>enchmarks/stress1.pasm>, 
F<examples/benchmarks/stress1.pl>, 
F<examples/benchmarks/stress2.pasm>, 
F<e <==
2	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	624	726	
==>enchmarks/stress1.pasm>, 
F<examples/benchmarks/stress1.pl>, 
F<examples/benchmarks/stress2.pasm>, 
F<e <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14058	14160	
==>L_$label"]);
    $self->_add_inst ('', 'set', [$return,1]);
    $self->_add_inst ('', 'branch', ["DONE_ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16330	16428	
==>L_$label"]);
  $self->_add_inst ('', 'set', [$return,1]);
  $self->_add_inst ('', 'branch', ["DONE_ <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	3518	3862	
==>=> 1,
        conditioned_lines               => 1
    );
    genfile(
        'languages/bc/config/makefiles/root.in' => 'languages/bc/Makefile',
        commentType                             => '#',
        replace_slashes                         => 1
    );
    genfile(
        'config/gen/makefiles/befunge.in' => 'languages/befunge/Makef <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	3510	3621	
==>'pmc', $type );
        $parser->YYData->{symbtab_cst}->Insert( $type . $value, $defn );
        if ( $type eq <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	727	858	
==>= bless {
    BLOCK => $block,
    IDENT => $ident
  }, $class;

  $block->push_content($self);

  return $self;
}

sub ident  { ret <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	727	858	
==>= bless {
    BLOCK => $block,
    IDENT => $ident
  }, $class;

  $block->push_content($self);

  return $self;
}

sub ident  { ret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204103	204400	
==>LAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 241,
                  "ARG <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6419	6610	
==>Don't need token.\n";
        }

            defined($act)
        and do {

                $act > 0
            and do {        #shift

#DBG>				$debug & 0x04
#DBG>			and	print STD <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6122	6303	
==>Don't need token.\n";
        }

            defined($act)
        and do {

                $act > 0
            and do {        #shift

#DBG>				$debug & 0x04
#DBG>			and	print STD <==
2	/Users/nnunley/parrot/Configure.pl	7951	8099	
==>--maintainer         Create imcc's parser and lexer files. Needs a working
                        parser and lexer.
   --miniparrot         Build pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1745	1840	
==>_type()>

Implemented in subclasses to return the type of core created by the
transform. This de <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	2341	2462	
==>ments} } )
    {
        # --files indicates the 'languages/t/harness' wants a list of test files
        my $dir   = File <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3224	3318	
==>t CODE qq{\t\tfind_global _GLOBALS, "COMMON"\n};
		foreach(@saves) {
			print CODE qq{\t_GLOBAL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819630	819728	
==>_stack, {{\@2}});\n\n  if (!entry) {\n    internal_exception(99, \"Stack Depth wrong\");\n  }\n  {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820590	820688	
==>_stack, {{\@2}});\n\n  if (!entry) {\n    internal_exception(99, \"Stack Depth wrong\");\n  }\n  {{ <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	275	384	
==>l [--help] [--no-lines] input.ops [input2.ops ...]
 $ perl tools/build/ops2pm.pl [--renum]  input.ops [input2. <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	4842	5058	
==>' => undef,
             'i_netinetin' => 'define',
             'i_netinettcp' => 'define',
             'i_poll' => undef,
             'i_prot' => undef,
             'i_pthread' => 'define',
             'i_pwd' = <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8425	8534	
==>r i = 1 to 20 : read c$(i) : next
print
for i = 1 to 20 step 4
  print c$(i);tab$(12);c$(i+1);tab$(22);c$(i+2) <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21289	21398	
==>r i = 1 to 20 : read c$(i) : next
print
for i = 1 to 20 step 4
  print c$(i);tab$(12);c$(i+1);tab$(22);c$(i+2) <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	7028	7224	
==>gma} eq 'multi' ) {
                print {$FH} " :flat";
            }
            $first = 0;
        }
        print {$FH} ")\n";
    }

    sub visitBranchIfOp {
        my $self = shi <==
2	/Users/nnunley/parrot/lib/File/Which.pm	2372	2585	
==>k -e
                  ($Is_DOSish and grep { $file =~ /$_$/i } @path_ext[1..$#path_ext])
                                # DOSish systems don't pass -x on non-exe/bat/com files.
                                # s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54755	54892	
==>"
                            ],
                  "BODY" => "#line 864 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo(interpreter, {{\@2}}) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55515	55652	
==>"
                            ],
                  "BODY" => "#line 864 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo(interpreter, {{\@2}}) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7806	7940	
==>ko::Construct::Type->new($type_token->type) if $type_token;

      my $ident = Jako::Construct::Expression::Value::Identifier->new($blo <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	488	592	
==>op, $right) = @_;

  confess "Block is not defined!" unless defined $block;
  confess "Left is not define <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	500	604	
==>op, $right) = @_;

  confess "Block is not defined!" unless defined $block;
  confess "Left is not define <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	690781	691267	
==>haw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 776,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 626 \"src/ops/pmc.ops\"\n   {{\@1}} = Parrot_thaw(interpreter, {{\@2 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	58050	58323	
==>nction', 3,
sub
#line 508 "Lua\lua51.yp"
{
            $_[3];
        }
	],
	[#Rule 97
		 'funcbody', 5,
sub
#line 515 "Lua\lua51.yp"
{
            PopScopeF( $_[0] );
            BuildFunctionBody( $_[0], $_[2], $_[4] );
        }
	],
	[#Rule 98
		 'funcbo <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	6386	6527	
==>_global "RANDSEED", \$P0
EOR
		feedme();
	}
}
sub parse_locate {	# locate x,y   | locate x   | locate ,y  
	my($x,$y);
	my(@e2);
	my($resulty, <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	2038	2160	
==>ion in bytecode must be the leader of a block
    $leaders{$new_pc} = 1;

    # This loop tries to identify instructions th <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838712	838964	
==>op(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}),\n                  STACK_ENTRY_PMC);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	10099	10263	
==>those features. For more information see the FUTURE PLANS
section of this document.

= FUNCTIONS

- `plan (Int $number_of_tests) returns Void`

All tests need a plan <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	2388	2539	
==>t}     = $5;
        $arg->{repeating}   = $6 eq "+";

        die "Optionals need to be optional.\n"
            if $arg->{option} and not $arg->{optio <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	1184	1289	
==>oup P0, $n";
}

sub output_atend {
    my ($self, $failLabel) = @_;
    return ("rx_zwa_atend P0, ".$self- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847717	848010	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848496	848789	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	3727	3877	
==>rot/dynext.h"
EOC
    foreach my $pmc (values %{$self->{pmcs}}) {
        my $name = lc $pmc->{class};
        $cout .= <<"EOC";
#include "pmc_$name.h" <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1308	1432	
==>t.h"

/* proto is in embed.h, but we don't include anything here, which
 * could pull in some globals
 */
void Parrot_set_con <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	19094	19205	
==><Class::Struct> and modified by Jim Miner, 1997-04-02.

    members() function removed.
    Documentation correc <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32565	32708	
==>ne(
              $para->[1]{'start_line'},
              "Expected '=item $expected_value'"
            );
            # Text content will stil <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	2655	2833	
==>YData->{lex_num} ++;
##    warn "PushScope\n";
}

sub PopScope {
    my ($parser) = @_;

    my $symbtab = shift @{ $parser->YYData->{scope} };
    $parser->YYData->{symbt <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6064	6173	
==>rc/ops/core.ops\"\n    Parrot_load_bytecode(interpreter, {{\@1}});\n    {{+=2}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6730	6839	
==>rc/ops/core.ops\"\n    Parrot_load_bytecode(interpreter, {{\@1}});\n    {{+=2}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	18356	18618	
==>$out   .= " $why"       if length $why;
    $out   .= "\n";

    $self->_print($out);

    return 1;
}


=item B<todo_skip>

  $Test->todo_skip;
  $Test->todo_skip($why);

Like skip(), only it will declare the test as failing and TODO.  Similar
to

    print "not <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	10608	10797	
==>hash ref of attributes.

=cut

sub parse_pmc {
    my $code = shift;

    my $signature_re = qr{
    ^
    (?:                 #blank spaces and comments and spurious semicolons
      [;\n\s <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	1547	1715	
==>= new C::Scan 'filename' => $file,
                        'add_cppflags' => $ccflags;
    $c->set('includeDirs' => \@incdirs);
    $/="\n";  # i don't know why, but thi <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	570	681	
==>/* Need size_t  */
#include <stddef.h>

EOF

print OUT $protos;

print OUT <<'EOF';

#endif
EOF

close OUT or di <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846708	846967	
==>NTVAL){{\@2}});\n  {{\@1}} = s;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847504	847763	
==>NTVAL){{\@2}});\n  {{\@1}} = s;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	1570	1745	
==>'],
  ['',            'set', 'P16', 'P6'],
  ['',            'typeof', 'I16', 'P16'],
  ['',            'set', 'I1', 0],
  ['',            'set', 'I2', 0],
  ['',            'e <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	36	160	
==>Foundation.
# $Id: /parrot/lib/Parrot/Docs/Section/C.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::D <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	14034	14203	
==>{bs}op_lib = {
  "$base",		/* name */
  "$suffix",		/* suffix */
  $core_type,	        /* core_type = PARROT_XX_CORE */
  0,			/* flags */
  $major_version,	/* major_vers <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1566	1670	
==>hispara'} = '' }

sub start_Verbatim    { $_[0]{'Thispara'} = ''   }
sub start_item_bullet { $_[0]{'Thisp <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1096	1200	
==>hispara'} = '' }

sub start_Verbatim    { $_[0]{'Thispara'} = ''   }
sub start_item_bullet { $_[0]{'Thisp <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	11228	11334	
==>,-1); # trim out the { }

    my (@methods, %meth_hash, $class_init);

    while ($classblock =~ s/($signat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200669	200938	
==>"TYPE" => "inline",
                  "CODE" => 237,
                  "ARGS" => [
                              "nc",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 373 \"src/ops/c <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	8	250	
==>ACKAGE

Regex::Optimize

=head1 ABSTRACT

Optimize a sequence of list ops.

=head1 INTERNAL ROUTINES

=over 4

=cut

package Regex::Optimize;

use Regex::Ops::List;
use Regex::State;
use strict;
require 'Regex.pm';

sub new {
    my ($proto, % <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	18563	18689	
==>tos->[2]];

    }
}

sub UNARY_POSITIVE
{
    my (undef, $c, $cmt) = @_;
    my $t = pop @stack;
    my $p = $t->[1];
    print <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3198	3312	
==>data->get('ld'));

        # We can't use -opt: and -debug together.
        if ($conf->data->get('ld_debug') =~ /- <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4702	4816	
==>data->get('ld'));

        # We can't use -opt: and -debug together.
        if ($conf->data->get('ld_debug') =~ /- <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	35822	35918	
==>onsidered failures.  If no tests were ever run Test::Builder
will throw a warning and exit with 2 <==
2	/Users/nnunley/parrot/lib/Test/More.pm	33893	33989	
==>onsidered failures.  If no tests were ever run Test::Builder
will throw a warning and exit with 2 <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	274	386	
==>benchmarks     use benchmarks matching regexes  (multiple)
   -c -conf           path to configuration file
   -d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688159	688386	
==>}}->vtable->delprop(interpreter, {{\@1}}, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688931	689158	
==>}}->vtable->delprop(interpreter, {{\@1}}, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10303	10411	
==>def, $verbose);
    }

    my $output = _slurp('./test.out');

    return $output;
}

=item C<cc_run_capture( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1366	1460	
==>imple::Text>, L<Pod::Spell>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	899	1009	
==>sub subs() {
	# No extra subs.
	return "";
}

# Label generation.
sub gen_label() {
	# We'll emit a label for e <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	656	766	
==>sub subs() {
	# No extra subs.
	return "";
}

# Label generation.
sub gen_label() {
	# We'll emit a label for e <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	10892	11015	
==>shargs {
	my($code,$optype,$work)=@_;

	return unless @$work;
	my @args=();

	while($$work[-1]->[0] ne "STARTARG") {
		my $i <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	8862	8974	
==>print "No content seen in search for title.\n";
    return;
  }
  $self->{'Title'} = $title;

  esc($title);
  pr <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17780	17981	
==>thout a target?"
        );
        next;
      }
      DEBUG > 1 and
       print "Faking out a =for $target as a =begin $target / =end $target\n";
      
      $para->[0] = 'Data';
      
      unshif <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18518	18659	
==>32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 49
		ACTIONS => {
			'NAME' => 101
		}
	},
	{#State 50
		ACTIONS => {
			" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1239	1381	
==>ile
{
  my $self = shift;
  my ($compiler) = @_;

  my $dest_ident = $self->dest;

  my $dest  = $self->dest->value;
  my $name  = $self->name- <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12025	12134	
==>ture argument list
     /"interpreter->vtables[$supertype].$method(" . full_arguments($1) . ')'/xeg;

    # Re <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2863	2983	
==>7,
 'verbar' => 124,

 'lchevron' => 171, # legacy for laquo
 'rchevron' => 187, # legacy for raquo

 # Remember, grave l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924162	924446	
==>> "inline",
                  "CODE" => 1040,
                  "ARGS" => [
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 342 \"src/ops/string.ops\"\n  {{\@1}} = string_make_empty(interpreter, enu <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	7916	8138	
==>),
                        aop('setend', [ $group, '<pos>', -1 ]),
                        aop('goto', [ $next ]),
              $rfail => $self->dbprint("R in group failed\n"),
                        aop('popint', [ '<tmp <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	2548	2685	
==>c_list, $pc;
	$opcodes{$pc}->{op} = $op;
        $new_pc   = $pc + $op->size;

        @args = ();

        foreach (1 .. scalar($op->arg_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	7972	8171	
==>1; # Will be incremented next iteration
      $file = $3 if defined $3;
    }
    else {
      $self->scan_line($_, $file, $line);
    }
  }

  push @{$self->{TOKENS}}, Jako::Token->new_eof($file, $li <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3012	3148	
==>AM ################

my ($mode, @pmcs) = @ARGV;

if ($mode eq 'generate') {
    # Convert X.pmc -> X.dump and X.c and also create any lib <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3116	3252	
==>AM ################

my ($mode, @pmcs) = @ARGV;

if ($mode eq 'generate') {
    # Convert X.pmc -> X.dump and X.c and also create any lib <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	12382	12509	
==>inst(''           ,'set',[$return,0]);
  $self->_add_inst("DONE_$label");
  return $return;
}

sub _op_let {
  my ($self, $node) <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	338	446	
==>ories.  So far tested
with svn 1.2.0.

=cut

package main;

use strict;
use warnings;

use File::Find;

my @d <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4061	4184	
==>eter '".lc($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _DBLoad {
	{
		no strict 'refs';

			exi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3858	3969	
==>eter '".lc($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _DBLoad {
	{
		no strict 'refs';

			exi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5093	5210	
==>pass = $self->output_label_use($passLabel);

    while (@$incexc) {
        my $first = shift(@$incexc);
        my $l <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4768	4885	
==>pass = $self->output_label_use($passLabel);

    while (@$incexc) {
        my $first = shift(@$incexc);
        my $l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83793	83901	
==>t_pmc_keyed_str(interpreter, compreg_hash, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84699	84807	
==>t_pmc_keyed_str(interpreter, compreg_hash, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	1632	1733	
==>undefined symbol

Uppercase indicates that the symbol is global; lowercase indicates that
it is local. <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	46922	47078	
==>fore and aft delimiters),

=item [1]

" || die;\nexit;" (i.e. the remainder of the input text, concatenated),

=item [2]

"" (i.e. the prefix substring -- tr <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	91	188	
==>use vars qw( $ATTR_PAD @ISA $VERSION $SORT_ATTRS);
$VERSION = '2.02';
BEGIN {
  @ISA = ('Pod::Simp <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	92	189	
==>use vars qw( $ATTR_PAD @ISA $VERSION $SORT_ATTRS);
$VERSION = '2.02';
BEGIN {
  @ISA = ('Pod::Simp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682801	683068	
==>nline",
                  "CODE" => 766,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 517 \"src/ops/pmc.ops\"\n    {{\@1}} = {{\@2}}->vtable->shift_ <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	146	238	
==>ion.  All Rights Reserved.
# $Id: /parrot/config/gen/makefiles/dynclasses_pl.in 15833 2006-01 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2215	2334	
==>eval '$self->_DBParse()';#Do not create stab entry on compile
        $@ and die $@;
	}
	else {
		$retval = $self->_ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2132	2247	
==>eval '$self->_DBParse()';#Do not create stab entry on compile
        $@ and die $@;
	}
	else {
		$retval = $self->_ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	21156	21405	
==>t = '';
	if ($c eq 'is not' || $c eq 'not in') {
	    $isnot = qq!\n\t$res = not $res!;
	}
	if ($op eq 'exists') {
	    my $lk = $l->[1];
	    print <<EOC;
	$res = exists $r->[1]\[$lk\]
EOC
	}
	else {
	    my $lp = promote($l);
	    my $rp = promote( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864148	864375	
==>CODING_BYTES(interpreter, {{\@2}}));\n  }\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	865040	865267	
==>CODING_BYTES(interpreter, {{\@2}}));\n  }\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7585	7699	
==>"
    goto FIN
300 print "300!"
    goto FIN
oats:
	print "Oats",
	return
peas:
	print "Peas",
	return
beans:
	prin <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19868	19982	
==>"
    goto FIN
300 print "300!"
    goto FIN
oats:
	print "Oats",
	return
peas:
	print "Peas",
	return
beans:
	prin <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	5279	5390	
==>uns
language_output_like().  This I<does> set a description for you, so don't pass
one.

=item C<example_output_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	242	337	
==>:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block::Bare <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	6465	6554	
==>-lmsvcrt -lmoldname -lkernel32 -luser32 -lgdi32 -lwinspool -lcomdlg32 -ladvapi32 -lshell32 <==
2	/Users/nnunley/parrot/config/init/hints/msys.pm	356	445	
==>-lmsvcrt -lmoldname -lkernel32 -luser32 -lgdi32 -lwinspool -lcomdlg32 -ladvapi32 -lshell32 <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	20069	20369	
==>pe = (
        '-'   => 'number',
        '#'   => 'number',
        'not' => 'boolean',
    );
    my %opcode = (
        '-'   => 'neg',
        'not' => 'not',
    );
    my @opcodes = ();
    my $result = new_tmp( $parser, 'pmc', $type{$op} );
    push @opcodes, @{ $expr->[1] };
    p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1369	1571	
==>$self     = shift;
  my $compiler = shift; # Required
  my $options  = shift; # Optional

  my $namespace = "MODULE"; # TODO: Don't we need to do better than this?

#  printf STDERR "%s: Compiling module <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2779	2883	
==>ut_like;
}

=item C<pgeglob_is($target, $pattern, $description, @todo)>

Runs the target string against t <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	2717	2860	
==>hildren[0]]);
            } else {
                @{ $t->{args} } = @children;
                return rop('multi_match', [0,1,1,$self->pass1($t <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2812	2948	
==>CK}}='ACCEPT';
    undef;
}

sub YYError {
	my($self)=shift;

	${$$self{CHECK}}='ERROR';
    undef;
}

sub YYSemval {
	my($se <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2681	2805	
==>CK}}='ACCEPT';
    undef;
}

sub YYError {
	my($self)=shift;

	${$$self{CHECK}}='ERROR';
    undef;
}

sub YYSemval {
	my($se <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	37300	37415	
==>/s) {
        if(! @$curr_open) {  # usual case
          DEBUG and print "Treating $para_type paragraph as such bec <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	103	209	
==>:Test;

use strict;
use vars qw(@EXPORT @ISA);

use Parrot::Config;

require Exporter;
require Parrot::Test <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	20	126	
==>:Test;

use strict;
use vars qw(@EXPORT @ISA);

use Parrot::Config;

require Exporter;
require Parrot::Test <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24218	24381	
==>y' => 28
		}
	},
	{#State 76
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673763	674016	
==>at(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682298	682551	
==>at(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61517	61944	
==>UMP" => 0,
                  "NAME" => "errorson",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 80,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 951 \"src/ops/core.ops\"\n  PARROT_ERROR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62160	62564	
==>UMP" => 0,
                  "NAME" => "errorson",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 81,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 951 \"src/ops/co <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	26063	26204	
==>zeof(_temp_mmd_init[0]))
        Parrot_mmd_register_table(interp, entry,
            _temp_mmd_init, N_MMD_INIT);
EOC
    }

    $cout .= <<" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561799	561889	
==>ct.ops\"\n  opcode_t *next = {{^+4}};\n  {{\@1}} = VTABLE_find_method(interpreter, {{\@2}}, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562883	562973	
==>ct.ops\"\n  opcode_t *next = {{^+4}};\n  {{\@1}} = VTABLE_find_method(interpreter, {{\@2}}, <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	529	669	
==>n
  {
    I => { map { $_ => 0 } (0..31) },
    N => { map { $_ => 0 } (0..31) },
    S => { map { $_ => 0 } (0..31) },
    P => { map { $_ = <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	7800	7974	
==>( $parser,
            'arg1'   => $key->[0],
            'arg2'   => $val->[0],
            'result' => $result,
        );
    }
    push @opcodes1, @opcodes2;
    re <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6434	6541	
==>goto POST_BRANCH_switch_${CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0[i]
    ${ITEMP0} = ${NEXTPC} + j
    pr <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4372	4479	
==>goto POST_BRANCH_switch_${CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0[i]
    ${ITEMP0} = ${NEXTPC} + j
    pr <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	12561	12725	
==>e_ref}, "string_cstring_free(t_$temp_num);";
        return "t_$temp_num";
    };
    /b/ && do {
        push @{$temps_ref}, "STRING *t_$temp_num;";
        push @{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095210	1095433	
==>nterpreter, {{\@1}});\n  {{+=2}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095905	1096128	
==>nterpreter, {{\@1}});\n  {{+=2}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	2526	2623	
==>ebug will
throw a fatal error to the effect that
"it's s too late to call Pod::Simple::Debug".

No <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	4101	4209	
==>us here.  The next thing must be a quoted string or
	#   no prompting is done.  However, QB says that if no p <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	369	495	
==>table

Print a class tree for the specified PMCs:

    % perl tools/build/pmc2c.pl --tree src/pmc/*.pmc

Create F<src/pmc/foo.c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	486552	486826	
==>n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ceil",
                  "FLAGS" => ":base_core" <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	22833	22980	
==>we have a tuple argumen
    my $tupl = $stack[-1];
    print <<EOC;
    # tuple $tupl->[1] n = $tupl->[0]
EOC
    $n = $tupl->[0];
    UNPACK_SEQUEN <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650066	650368	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "valid_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650987	651289	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "valid_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	537039	537297	
==>,
                  "TYPE" => "inline",
                  "CODE" => 621,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 956 \"src/ops/math.op <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	1565	1649	
==>UILD_TOOLS_DIR)/ops2c.pl CGoto --core

$(INC_DIR)/oplib/core_ops_cgp.h: $(OPS_DIR)/co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319908	320044	
==>"
                            ],
                  "BODY" => "#line 124 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (INTVAL)((Parrot_Int4)({{\@2} <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3496	3650	
==>lf{LEX};
}


#################
# Private stuff #
#################


sub _CheckParams {
	my($mandatory,$checklist,$inarray,$outhash)=@_;
	my($pr <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3318	3461	
==>lf{LEX};
}


#################
# Private stuff #
#################


sub _CheckParams {
	my($mandatory,$checklist,$inarray,$outhash)=@_;
	my($pr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547610	547879	
==>NAME" => "fact",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548516	548785	
==>NAME" => "fact",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29309	29446	
==>truction'} =~ /\$\{LOADREG\}/) {
			$need_dest = 0;
			$mv->{'LOADREG'} = 'loadreg';
			push @localmv, 'LOADREG';
		} else {
			die "pir o <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	4642	4744	
==>bute="String Interp" lineEndContext="#pop">
          <HlCStringChar attribute="SpChar" context="#stay" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	622019	622140	
==>=n}};\n    }\n    /* no match redo plain opcode */\n    ((void**)cur_opcode)[0] =\n\tparrot_pic_opcode(interpreter, PARROT <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623872	623993	
==>=n}};\n    }\n    /* no match redo plain opcode */\n    ((void**)cur_opcode)[0] =\n\tparrot_pic_opcode(interpreter, PARROT <==
2	/Users/nnunley/parrot/lib/Test/More.pm	15545	15735	
==>c/bar is set up right.

You might remember C<ok() or diag()> with the mnemonic C<open() or
die()>.

All diag()s can be made silent by passing the "no_diag" option to
Test::More.  C<use Test:: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	959	1084	
==>,
    NAME   => $ident->value,
    FILE   => $ident->file,
    LINE   => $ident->line,
  }, $class;

  #
  # Check for a few b <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	7813	7912	
==>->{"name"} . '"};
	'.($::RD_NO_TRACE?'':'
	Parse::RecDescent::_trace(q{Trying rule: [' . $self->{"na <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	212343	212659	
==>ELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "le_num",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	2168	2286	
==>ght have changed for the test
        $conf->data->set('libs',      $libs);
        $conf->data->set('ccflags',   $ccfl <==
2	/Users/nnunley/parrot/config/auto/readline.pm	1968	2086	
==>ght have changed for the test
        $conf->data->set('libs',      $libs);
        $conf->data->set('ccflags',   $ccfl <==
2	/Users/nnunley/parrot/config/gen/revision.pm	184	280	
==>ision

=head1 DESCRIPTION

Determines parrot's SVN revision.  In a release, there are no .svn dir <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760707	761032	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setp_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761559	761884	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setp_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIR <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	973	1075	
==>and start_/end_ methods for whatever other events you want to catch.

=head1 DESCRIPTION

This class is <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8997	9213	
==>very.\n";

            $$check='';

        };

        #Error
            $$errstatus
        or   do {

            $$errstatus = 1;
            &$error($self);
                $$errstatus # if 0, then Y <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8594	8798	
==>very.\n";

            $$check='';

        };

        #Error
            $$errstatus
        or   do {

            $$errstatus = 1;
            &$error($self);
                $$errstatus # if 0, then Y <==
2	/Users/nnunley/parrot/lib/File/Which.pm	4064	4173	
==>iles, but uses special extensions such as C<.exe> and
C<.bat> to identify them, C<File::Which> takes extra ste <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109663	109892	
==>bitwise_or(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110442	110671	
==>bitwise_or(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	241	335	
==>Tcl, which looks like it's
largely a copy of Parrot::Test::Python. Abstraction needed.

=cut

s <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	279	373	
==>Tcl, which looks like it's
largely a copy of Parrot::Test::Python. Abstraction needed.

=cut

s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539887	540184	
==>S" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 625,
                  "ARGS <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	5356	5532	
==>'start' || $type eq 'end') {
	return 0;
    } else {
        my @Rargs = @{ $R->{args} };
        my @Sargs = @{ $S->{args} };
	return 0 if (@Rargs != @Sargs);
	for (0..$#Rargs) <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1246	1401	
==>h are not located on Pugs's default
search path.

= LIMITATIONS & CAVEATS

Currently this will only work during runtime since Pugs 
does not yet support `BE <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2516	2600	
==>ps.p6>,
F<examples/mops/mops.ps>,
F<examples/mops/mops.py>,
F<examples/mops/mops.rb>, <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	2516	2600	
==>ps.p6>,
F<examples/mops/mops.ps>,
F<examples/mops/mops.py>,
F<examples/mops/mops.rb>, <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2770	2878	
==>turn $pir;
}

# Pre and post stack operation (op class instructions) hooks.
sub pre_op($$) {
	my $self = shif <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1692	1800	
==>turn $pir;
}

# Pre and post stack operation (op class instructions) hooks.
sub pre_op($$) {
	my $self = shif <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	35839	35942	
==>s.  If no tests were ever run Test::Builder
will throw a warning and exit with 255.  If the test died, e <==
2	/Users/nnunley/parrot/lib/Test/More.pm	33910	34013	
==>s.  If no tests were ever run Test::Builder
will throw a warning and exit with 255.  If the test died, e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440262	440586	
==>" => "inline",
                  "CODE" => 504,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 104 \"src/ops/math.ops\"\n  {{\@2}} = mm <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37378	37482	
==>e: [' . $self->describe . ']},
				  Parse::RecDescent::_tracefirst($text),
				  q{' . $rule->{"name"} . <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	23971	24166	
==>";
            $exit_code = run_command($cmd,
                                     'STDOUT' => $build_f,
                                     'STDERR' => $build_f);
            $builder->diag("'$c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	622203	622423	
==>\n    {{+=0}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE", <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6452	6563	
==>witch_${CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0[i]
    ${ITEMP0} = ${NEXTPC} + j
    prop_type_state[${ITEMP0 <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4390	4501	
==>witch_${CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0[i]
    ${ITEMP0} = ${NEXTPC} + j
    prop_type_state[${ITEMP0 <==
2	/Users/nnunley/parrot/languages/converter.pl	1084	1211	
==>ction ']' production(?)
#		{[@item]}
		{ $return = '';
		  $return .= $item[1][0] if defined $item[1][0];
		  $return .= " ( $it <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	1400	1526	
==>ta->add(' ', ldflags   => '-L/sw/lib');
            $conf->data->add(' ', ccflags   => '-I/sw/include');
        }
    }

    c <==
2	/Users/nnunley/parrot/config/auto/readline.pm	1489	1615	
==>ta->add(' ', ldflags   => '-L/sw/lib');
            $conf->data->add(' ', ccflags   => '-I/sw/include');
        }
    }

    c <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	5527	5707	
==>undef,
             'i_sysdir' => 'define',
             'i_sysexit' => undef,
             'i_sysfile' => 'define',
             'i_sysfilio' => 'define',
             'i_sysin' => <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	1600	1724	
==>t in which the method is called.

    $contents = $file->read;
    @lines = $file->read;

=cut

sub read
{
    my $self = shi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	293	393	
==>SA = ('Pod::Simple::Methody');
BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG)
          ? \&Pod::Simpl <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	175	275	
==>SA = ('Pod::Simple::Methody');
BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG)
          ? \&Pod::Simpl <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	53829	53951	
==>eset to 1 (under C<-w>, a warning is issued if the argument 
has to be reset).

=item 4.

A value indicating whether unmatc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830691	830880	
==>user_stack, &i, STACK_ENTRY_INT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831432	831621	
==>user_stack, &i, STACK_ENTRY_INT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Test/More.pm	29855	30031	
==>else {
                $Refs_Seen{$e1} = "$e2";
            }

            my $type = _type($e1);
            $type = 'DIFFERENT' unless _type($e2) eq $type;

            if( $t <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	784	881	
==>pe (" . ref($type) . ") is not!"   if defined $type and not UNIVERSAL::isa($type, qw(Jako::Constru <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	667	761	
==>pe (". ref($type) . ") is not!" if defined $type and not UNIVERSAL::isa($type, qw(Jako::Constru <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23700	23830	
==>> <value>);
    #   last unless (<value> <op> <value>);
    #
    #   last <label>;
    #   last <label> if     (<value> <op> <valu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499499	499723	
==>\n  {{\@1}} = floatval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500262	500486	
==>\n  {{\@1}} = floatval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1014992	1015089	
==>77 \"src/ops/sys.ops\"\n  const char * const tmp = strerror({{\@2}});\n  {{\@1}} = string_make(int <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015816	1015913	
==>77 \"src/ops/sys.ops\"\n  const char * const tmp = strerror({{\@2}});\n  {{\@1}} = string_make(int <==
2	/Users/nnunley/parrot/config/gen/icu.pm	3303	3563	
==>rs) {
            $header = "$icuheaders/unicode/$header";
            unless (-e $header) {
                $ok = 0;
                warn "error: ICU header '$header' not found\n";
            }
        }
    }

    die <<"HELP" unless $ok; # this text is also <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835778	835870	
==>user_stack, string_copy(interpreter, {{\@1}}), STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836531	836623	
==>user_stack, string_copy(interpreter, {{\@1}}), STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	410	511	
==>my ($self, $distance, $failLabel) = @_;
    $failLabel = $self->output_label_use($failLabel);
    if ( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6443	6594	
==>> >= %<rx_len>?\n"),
            "goto $fail if <rx_pos> < <rx_len>; # at end?");
}

sub output_pushmark {
    my ($self) = @_;
    my @ops;
    if ($se <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774745	775213	
==>" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 875,
                  "ARGS" => [
                              "p",
                              "ki",
                              "ic"
                            ],
                  "BODY" => "#li <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9345	9456	
==>k "\"$new_code\" isn't a valid element name"
        if $new_code =~
          m/[\x00-\x2C\x2F\x39\x3B-\x40\x5B <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10609	10720	
==>k "\"$new_code\" isn't a valid element name"
        if $new_code =~
          m/[\x00-\x2C\x2F\x39\x3B-\x40\x5B <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775655	776179	
==>" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 876,
                  "ARGS" => [
                              "p",
                              "kic",
                              "ic"
                            ],
                  "BODY" => "#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_in <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2957	3062	
==>ode for C<restart ADDRESS($address)>.

=cut

sub restart_address
{
    my ($self, $addr) = @_;

    return <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3826	3931	
==>ode for C<restart ADDRESS($address)>.

=cut

sub restart_address
{
    my ($self, $addr) = @_;

    return <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695298	695655	
==>egister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 781,
                  "ARGS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605891	606002	
==>/object.ops\"\n    Parrot_add_attribute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606682	606793	
==>/object.ops\"\n    Parrot_add_attribute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/config/gen/PodText.pm	1175	1393	
==>79);

    my $count = 0; # number of processed files
    foreach my $pod (keys %docs) {
        $count++;

        my $plain = $docs{$pod};
        $parser->parse_from_file($pod, $plain);

        # append a header to t <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	11826	11935	
==>"  unless defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "No compiler!" unles <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10809	10910	
==>"        unless defined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "No co <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	7601	7765	
==>~ s/\.\w+$/\.dump/;

    my $vtd = open_file( ">", $dump );

    my %vtable = (
        flags   => {},
        pre     => '',
        post    => '',
    );
    my %m <==
2	/Users/nnunley/parrot/config/auto/jit.pm	2011	2142	
==>uarch-$osname";
    my ($jitcapable, $execcapable) = (0, 0);

    print(qq{-e "$jitbase/$cpuarch/core.jit" = }, -e "$jitbase/$cpuarc <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1420	1518	
==>my ($self, $distance, $failLabel) = @_;
    $failLabel = $self->output_label_use($failLabel);
    r <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1169	1267	
==>my ($self, $distance, $failLabel) = @_;
    $failLabel = $self->output_label_use($failLabel);
    r <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	4031	4173	
==>piler)

=item *

encrypting only small amounts of data (less than one million bytes). I use it to
hash passwords.

=item *

educational purpose <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	34677	34848	
==>'            => \&_op_even_p,
  'max'              => \&_op_max,
  'min'              => \&_op_min,
  '+'                => \&_op_plus,
  '-'                => \&_op_minus, <==
2	/Users/nnunley/parrot/lib/Test/More.pm	13136	13358	
==>( !ref $object ) {
        $diag = "$obj_name isn't a reference";
    }
    else {
        # We can't use UNIVERSAL::isa because we want to honor isa() overrides
        local($@, $!);  # eval sometimes resets $!
        my <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	7013	7126	
==>eturn if $name =~ /icu\Wsource/; # icu cleanup code above needs work
	return if -d $_;
	return if -B $_;
	push(@fi <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13513	13743	
==>SELF/pmc/g;
    s/\bINTERP\b/interpreter/g;

    # now use macros for all rewritten stuff
    s/\b(?:\w+)->vtable->(\w+)\(/ VTABLE_$1(/g;

    return $_;
}

=item C<body($method, $line, $out_name)>

Returns the C code for the metho <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	461	571	
==>t:

=over 4

=item * the number of look iterations, 

=item * the estimated number of ops performed,

=item * t <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	465	574	
==>t:

=over 4

=item * the number of look iterations,

=item * the estimated number of ops performed,

=item * t <==
2	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	867	1210	
==>],
                                          substitution => $_->[2],
                                        }
                                      } @{$item[1]}
                                }
                  }

# ignore comments
comment:            m/^#[^\n]*\n/

# TODO: What does this means???
V1:                 "V1\n"

# for each m <==
2	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	685	802	
==>s !~ /-laio/) {
        $libs .= ' -laio';
    }
    $conf->data->set(libs => $libs);

    for my $ldflags (qw(ld_load <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	15280	15410	
==>estart = 1;
        }

        $body =~ s/\$(\d+)/{{\@$1}}/mg;

        my $file_escaped = $file;
        $file_escaped =~ s|(\\)|$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	935590	935896	
==>1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "titlecase",
                  "FLAGS" => ":base_core",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/Revision.pm	286	508	
==>g;

=head1 DESCRIPTION

Get parrot's current and configure time revision.

=cut

package Parrot::Revision;

use strict;
use warnings;


our $svn_entries = undef;

sub __get_revision {
    return 0 unless (-e ".svn/entries") <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359374	359491	
==>(interpreter, s)) {\n    PIO_putps(interpreter, PIO_STDERR(interpreter), s);\n  }\n  {{+=2}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360122	360239	
==>(interpreter, s)) {\n    PIO_putps(interpreter, PIO_STDERR(interpreter), s);\n  }\n  {{+=2}};\n",
                  "L <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	14912	15083	
==>e {
			# Simple a=expr case.
			@ass=(
				@$rightexpr,
				"\t$left = $right",
				
			);
		}
	} else {
		s/INSERT NEW VALUE HERE/$right/g for @$leftexpr;
		s/--TYPE--/$ri <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	1875	1998	
==>ing it, they should
be changed to make the above operations explicitly supported.

Otherwise, the Parrot build and interpret <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19472	19569	
==>tically
					  appended.");
	}
	elsif ($parser->{_AUTOTREE} && defined($item) && !$item->isa("Pars <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	3389	3560	
==>following function declarations appear to contain a newline\n";
        print STDERR "between the return type and the function declaration.  This is not\n";
        print S <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	1	87	
==>!/usr/bin/perl

# $Id: /parrot/tools/dev/mk_manifest_and_skip.pl 19471 2006-05-15T19:40 <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	76	190	
==>slated (\d+) types out of (\d+) from .+?([\.\w]+)\n$/) {
		push @results, {
			name	=> $3,
			total	=> $2,
			d <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	76	190	
==>slated (\d+) types out of (\d+) from .+?([\.\w]+)\n$/) {
		push @results, {
			name	=> $3,
			total	=> $2,
			d <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5120	5285	
==>= @_;
        my $FH   = $self->{fh};
        print {$FH} "  ";
        if ( exists $op->{result} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(" <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6152	6317	
==>= @_;
        my $FH   = $self->{fh};
        print {$FH} "  ";
        if ( exists $op->{result} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088958	1089268	
==>}, 0);\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089906	1090216	
==>}, 0);\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	7443	7711	
==>) {
		    if ($type eq 'E') {
			$small = 1;
		    } elsif ($type =~ /^[RrQq]$/) {
			$const = 1;
			$init  = 1;
		    }
		}
		if ($^O eq 'darwin') {
		    $other = 1;
		}
		if ($nm_gnu) {
		    if ($type =~ /^[Rr]$/) {
			$const = 1;
			$init  = 1;
		    } elsif ($typ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70717	70927	
==>" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 1150 \"src/ops/core.ops\"\n\n  {{\@1}} = Parrot_load_lib(interpreter, <==
2	/Users/nnunley/parrot/config/inter/charset.pm	1684	1806	
==>set            => $charset_list,
        TEMP_charset_o     => $TEMP_charset_o,
        TEMP_charset_build => $TEMP_charset <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13338	13454	
==>$self->_save_1 ('I');
  $self->_generate(_get_arg($node,1));
  $self->_add_inst('','not',[$return,$return]);

  $retu <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1713	1813	
==>AX_ERROR("Wrong number of arguments (expected %d, got %d) in call to '%s'.",
    scalar(@formal_args) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1413	1513	
==>AX_ERROR("Wrong number of arguments (expected %d, got %d) in call to '%s'.",
    scalar(@formal_args) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093659	1093854	
==>LE_morph(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094462	1094657	
==>LE_morph(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	7424	7534	
==>>{_label_comments}, 'LABEL_COMMENTS'),
            map { ($_->{label} ? ($_->{label}) : ()), $_->{code} } @outp <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	3872	4068	
==>rn $self->parent eq '.SVN' or $self->name =~ /^\./o;
}

=item C<is_generated()>

Returns whether the file is generated.

=cut

sub is_generated
{
    my $self = shift;
    
    # CFLAGS
    # libpa <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	3589	3743	
==>ass'}}) {
            push @{$classes{$_->{'class'}}}, $_;
        } else {
            $classes{$_->{'class'}} = [$_];
        }
    }

    # Build classe <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	26578	26706	
==>s{$c} = $c;
	print <<EOC;
        \t $cmt
EOC
    }
    push @stack, [$n, $c, 'P'];
}

sub STORE_FAST
{
    my ($n, $c, $cmt) = @ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15550	15642	
==>hars, and 7f-ff.
    $x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-6553 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16729	16821	
==>hars, and 7f-ff.
    $x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-6553 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	34	122	
==>l Foundation.
# $Id: /parrot/lib/Parrot/Docs/Section/BigNum.pm 20333 2006-06-21T18:44:31. <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28592	28695	
==>RD_NO_HITEM ? ''
			       : '$item{'.$self->{hashname}.'}=') . '$&;
		' . ($self->{"lookahead"} ? '$tex <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30670	30773	
==>RD_NO_HITEM ? ''
			       : '$item{'.$self->{hashname}.'}=') . '$&;
		' . ($self->{"lookahead"} ? '$tex <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	23557	23666	
==>unkpos unless defined $firstpos;
			$lastpos = length $$textref;
		}
		last;
	}

	pos $$textref = $lastpos;
	r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623307	623459	
==>n    caller_ctx = cc->to_ctx;\n    interpreter->current_args = NULL;\n    dest_pc = caller_ctx->current_results;\n    if (dest_pc) {\n\tdest_pred = (void <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	366	479	
==>_quotelike
				&extract_codeblock
				&extract_variable
				&extract_tagged
				&extract_multiple

				&gen_delimi <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	6398	6533	
==>]*?)}}/  $trans->restart_offset(-$1) . "; {{=0}}"; /me;

    s/{{=\*}}/            $trans->goto_pop();       /me;

    s/{{\+=([^{]*?)}} <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	29433	29530	
==>f the input text is a read-only string (i.e. a literal),
no attempt is made to remove the extracte <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407465	407794	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "connect",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408363	408692	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "connect",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2781	2903	
==>ft in the t/* directories.
        # Let 'make clean' and 'svn:ignore' take care of them.

        return $pass;
    }
}

1 <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	3347	3469	
==>ft in the t/* directories.
        # Let 'make clean' and 'svn:ignore' take care of them.

        return $pass;
    }
}

1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	278304	278666	
==>NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 324,
                  "ARGS" => [
                              "i <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6181	6293	
==>->{lib} = 1;
        }
    }

    return (\%group_files, \%group_libs, \%pmc_group, \%pmc_libs);
}

sub modtime { <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6392	6504	
==>->{lib} = 1;
        }
    }

    return (\%group_files, \%group_libs, \%pmc_group, \%pmc_libs);
}

sub modtime { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333106	333403	
==>",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 391 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7229	7334	
==>(s1$);" Upper"
print lcase$(s1$);" Lower"
a$="   Flush   "
print ">";ltrim$(a$)
print rtrim$(a$);"<"
' A's <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18958	19063	
==>(s1$);" Upper"
print lcase$(s1$);" Lower"
a$="   Flush   "
print ">";ltrim$(a$)
print rtrim$(a$);"<"
' A's <==
2	/Users/nnunley/parrot/config/inter/charset.pm	1205	1318	
==>y 'config/inter/charset.pm'

E_NOTE

    foreach my $charset (split(/\s+/, $charset_list)) {
        $charset =~ s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334384	334709	
==>",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 392,
                  "ARGS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623187	623280	
==>->address) {\n\tinterpreter->current_returns = CUR_OPCODE;\n        n = PMC_int_val(mic->m.sig <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	304215	304699	
==>NAME" => "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 354,
                  "ARGS" => [
                              "i",
                              "p",
                              "p"
                            ],
                  " <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2140	2322	
==>in the
  # IDENT entry within the block.
  #

  $sym = Jako::Symbol->new(
    $self->block,
    'global',         # TODO: Should we support non-global subs?
    $self->kind,
    $self <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	112	227	
==>D5;
use strict;
use integer;
use Exporter;
use vars qw($VERSION @ISA @EXPORTER @EXPORT_OK);

@EXPORT_OK = qw(md5 md5 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	194	288	
==>b/Jako/Symbol.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings 'a <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	2764	2881	
==>_token($token);
    }
    elsif ($tagname eq 'item-text' or $tagname =~ m/^head\d$/s) 
    {
        $self->process_it <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	1189	1343	
==>tem('A plan for Parrot.', 'docs/ROADMAP.pod'),
            $self->new_item('Where to find or put things that need doing in Parrot.', 'TODO'),
            $ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28384	28596	
==>{dynpmc}) {
        $hout .= "#define PARROT_IN_EXTENSION\n";
    }

    $hout .= $self->hdecls();
    if ($self->{const}) {
        $self = $self->{const};
        $hout .= "\n/* Const */\n";
        $hout .= $se <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	23140	23301	
==>nored region\n";
        # And that may be because of this to-be-closed =for region, or some
        #  other one, but it doesn't matter.
      } else {
        $ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	4528	4711	
==>,9],			# REMAINDER
			  @match[0,1],			# PREFIX
			);
}

sub _match_bracketed($$$$$$)	# $textref, $pre, $ldel, $qdel, $quotelike, $rdel
{
	my ($textref, $pre, $ldel, $qdel, $quotelike, <==
2	/Users/nnunley/parrot/languages/converter.pl	2078	2183	
==>tem[1] . ::modifier($item[2]) }

mod		: '*' | '+' | '?'

_EOF_

my $parser = Parse::RecDescent->new($gramm <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	1776	1900	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

__PACKAGE__->_accessorize(
  'nbsp_for_S',        # Whether to <==
2	/Users/nnunley/parrot/config/gen/platform.pm	501	619	
==>place';
our @args        = qw(miniparrot verbose);

sub runstep {
    my ($self, $conf) = @_;

    my $verbose  = $conf <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149127	149215	
==>DY" => "#line 105 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150068	150156	
==>DY" => "#line 105 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736703	736974	
==>(FLOATVAL){{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737449	737720	
==>(FLOATVAL){{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	445516	445699	
==>",
                              "p"
                            ],
                  "BODY" => "#line 119 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_ppp(interpreter, {{\@3}}, {{ <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	10917	11040	
==>ath.h
frexpl      math.h
fscanf      stdio.h
fseek       stdio.h
fsetpos     stdio.h
ftell       stdio.h
fwrite      stdio.h <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	3189	3335	
==>ft in the t/* directories.
        # Let 'make clean' and 'svn:ignore' take care of them.

        return $pass;
        }
}

=head1 HISTORY <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30730	30926	
==>'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -54
	},
	{#State 101
		DEFAULT => -50
	},
	{#State 10 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41707	41847	
==>'OR' => 84,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -5 <==
2	/Users/nnunley/parrot/config/inter/charset.pm	1516	1751	
==>ies for link line in Makefile
    my $slash = $conf->data->get('slash');
    $TEMP_charset_o =~ s/^| / src${slash}charset${slash}/g;

    $conf->data->set(
        charset            => $charset_list,
        TEMP_charset_o     => $TEMP <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	14960	15107	
==>microseconds
    });

    struct( timeval => [
        tv_secs  => '$',
        tv_usecs => '$',
    ]);

        # create an object:
    my $t = ne <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	939	1080	
==>=> 1,
    map => 1,
    max => 'v',
    min => 'v',
    range => 1,
    xrange => 1,
    reduce => 1,
    str => 1,
    tuple => 1,
);

my %vt <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5271	5364	
==>expr_pop(@_));
}

=item C<expr_offset($offset)>

Implemented in subclasses to return the C cod <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017029	1017260	
==>",
                  "CODE" => 1136,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 108 \"src/ops/sys.ops\"\n  {{\@1}} = Parrot_floatval_time();\n  { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688991	689702	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "prophash",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 774,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 590 \"src/ops/pmc.ops\"\n   {{\@1 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	488	617	
==>ess @_ == 5;

  my ($block, $prefix, $left, $op, $right) = @_;

  my $self = bless {
    BLOCK     => $block,

    PREFIX    => $p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	488	617	
==>ess @_ == 5;

  my ($block, $prefix, $left, $op, $right) = @_;

  my $self = bless {
    BLOCK     => $block,

    PREFIX    => $p <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	3065	3180	
==>hift || 0;
    my $index_html = '';
    my @rel_paths = $self->contents_relative_to_source($source);
    my @short_d <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25815	26028	
==>function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 80
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	5641	5767	
==>& $a == $b) {
	warn "$ME: both --$sa and --$sb used\n";
    }
}

warn_if_both($Code,   $Data,    'code',   'data' );
warn_if_bo <==
2	/Users/nnunley/parrot/languages/javascript/bootstrap.pm	325	454	
==>("\n", <$fh>); 
	      close $fh; 
	      return $val;
	});

$context->bind_function(
	name => "debug",
	func => sub {
		warn Dump <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	2759	2881	
==>Configure> object.

=cut

sub add_step
{
    my ($self, $step, @params) = @_;

    push @{$self->{steps}},
        Parrot:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	290811	290973	
==>"n"
                            ],
                  "BODY" => "#line 940 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} == {{\@3}};\n  {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291657	291819	
==>"n"
                            ],
                  "BODY" => "#line 940 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} == {{\@3}};\n  {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5211	5348	
==>rms
        if ($^O eq 'hpux' or $^O eq 'cygwin') {
            chmod 0755, "$dest/$_$LOAD_EXT";
        }

    }
}
else {
    die "invali <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5422	5559	
==>rms
        if ($^O eq 'hpux' or $^O eq 'cygwin') {
            chmod 0755, "$dest/$_$LOAD_EXT";
        }

    }
}
else {
    die "invali <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034677	1034968	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_lex",
                  "FLA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035840	1036131	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_lex",
                  "FLA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905028	905337	
==>"inline",
                  "CODE" => 1020,
                  "ARGS" => [
                              "s",
                              "p",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 262 \"src/ops/string.ops\"\n  { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	933529	933825	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TY <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934303	934599	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TY <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288957	289209	
==>DE" => 336,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 935 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13074	13232	
==>t;
        $self->require_open_brace;
      }

      #
      # If we are not currently 'inside' a block, then we've got no business
      # seeing a close-brac <==
2	/Users/nnunley/parrot/config/init/hints/msys.pm	482	585	
==>d -lws2_32 -lmpr -lwinmm -lversion -lodbc32 ',
        ncilib_link_extra => 'src/libnci_test.def',
    ) <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	3741	3866	
==>( defined($btaste) && ref $btaste eq 'Film,     'new() works' );

    ok( $btaste->Title      eq 'Bad Taste',     'Title() get <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6638	6724	
==>_BRANCH_switch_${CURIC}_LOOP
POST_BRANCH_switch_${CURIC}_LOOP_EXIT:

POST_BRANCH_NOT_sw <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4576	4662	
==>_BRANCH_switch_${CURIC}_LOOP
POST_BRANCH_switch_${CURIC}_LOOP_EXIT:

POST_BRANCH_NOT_sw <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	1259	1384	
==>>{NAV_BAR};
    
    my $title = $self->{'Title'};
    esc($title);

    print {$self->{'output_fh'}}
        Parrot::Docs::HT <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	8108	8258	
==>q 'Para') 
    {
        $tagname = 'Para_item' 
            if @{$self->{STACK}} and $self->{STACK}->[-1] eq 'text';
    }
    
    print {$self->{'ou <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	8725	8848	
==>q 'Para' ) 
    {
        $tagname = 'Para_item' 
            if @{$self->{STACK}} and $self->{STACK}->[-1] eq 'text';
    } <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1555	1669	
==>turn shift->{IDENT}; }
sub cond  { return shift->{COND};  }
sub left  { return shift->{LEFT};  }
sub op    { return <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1691	1805	
==>turn shift->{IDENT}; }
sub cond  { return shift->{COND};  }
sub left  { return shift->{LEFT};  }
sub op    { return <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	8204	8424	
==>find_type
{
    my $type    = shift;

    my %typemap =
    (
        'STRING*'  => 'Parrot_STRING',
        'void*'    => 'void*',
        'INTVAL'   => 'Parrot_Int',
        'PMC*'     => 'Parrot_PMC',
        'FLOATVAL <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1194	1380	
==>interpreter->ctx)->constants[cur_opcode[i]]
END
}

=item C<pc($pc)>

=item C<pc()>

Sets/gets the current position in Parrot code.

=cut

sub pc
{
    my $self = shift;

    if (@_)
    { <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7391	7568	
==>n;

                unpack('A1',$lhs) eq '@'    #In line rule
            and do {
                    $lhs =~ /^\@[0-9]+\-([0-9]+)$/
                or  die "In line rule n <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7050	7222	
==>n;

                unpack('A1',$lhs) eq '@'    #In line rule
            and do {
                    $lhs =~ /^\@[0-9]+\-([0-9]+)$/
                or  die "In line rule n <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	5347	5548	
==>scratch =~ tr/\t\cb\cc/ /d;
      
      $self->{'no_proofing_exemptions'} or $scratch =~
       s/(?:
           ^
           |
           (?<=[\cm\cj\t "\[\<\(])
         )   # start on whitespace, se <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	751282	751533	
==>g_copy(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6098	6223	
==>C<deltrigger($key, $trigger)>

Removes the trigger on C<$key> named by C<$trigger>

Accepts a key name & a trigger name and re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475862	476140	
==>" => 545,
                  "ARGS" => [
                              "n",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 403 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	4325	4447	
==>the tokens.
#

sub dump
{
  my $self = shift;


  while (1) {
    my $tok = $self->forth;

    printf STDERR "%6d : %-30s : <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	1462	1618	
==>ACKAGE__->new->run(host => "192.168.2.249");

exit;

sub process_upload {
  my $CGI = shift;
  #print "HTTP/1.0 200 OK\n";
  print $CGI->header;

  limit_rat <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	4069	4256	
==>label = "CLASS_$_";
        $label =~ s/\./_/g;
        $pir .= "$label:\n";

        # Now do dispatch for each method.
        foreach (@{$classes{$_}}) {
            my $label = $_->{'u <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	5174	5335	
==>dir}, 'pkgconfig', $dest);
    } else {
        $dest =~ s/^runtime/lib/;
        $dest = File::Spec->catdir($options{prefix}, $dest);
    }

    $dest = File::Sp <==
2	/Users/nnunley/parrot/examples/benchmarks/primes2.pl	217	350	
==>ax,$i6,$i7);

sub isprime1
{
    my($input)=@_;
    my $n;

    if ($input < 1) {
	return 0;
    }
    $n = $input - 1;

    while ($n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1092950	1093344	
==>1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "morph",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093752	1094146	
==>1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "morph",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19421	19515	
==>This works like get_title except that it returns the contents of the
"=head1 AUTHOR\n\nParagrap <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	928	1024	
==>ple, parsing a "=head1 ..." line will give you
a start-token with the tagname of "head1", token(s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1356	1452	
==>ple, parsing a "=head1 ..." line will give you
a start-token with the tagname of "head1", token(s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720208	720318	
==>IO_puts(interpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721408	721518	
==>IO_puts(interpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6053	6264	
==>plicing
		};

  _num_arg ($node, 1, 'quote');

  my $item = _get_arg($node,1);

  __quoted ($self, $item, $return, $special);
}

# helper functions for quasiquote

sub _qq_unquote {
  my ($self, $node, $return) = <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41565	41684	
==>@item) { undef $_tok; last }' unless $self->{min}==0;

	$code .= '
		  $_tok = [ @item ];
		  last;
		} 

		unless ($rep <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9526	9631	
==>$tagname eq 'X';
}

=item C<process_text_token($token)>

Processes the specified text token. URLs which ar <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327054	327140	
==>e 154 \"src/ops/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327856	327942	
==>e 154 \"src/ops/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1} <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	12028	12142	
==>URIC}_LAZY_MOVE_RET:
${STEMP0} = pop lazy_moves

# Put in params array.
PRE_CALL_${CURIC}_LAZY_MOVE_RET_CONT:
${PAR <==
2	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	443	574	
==>for cxx, as it is for cc)
        $ccflags .= ' -D_XOPEN_SOURCE=500';
    }
    $conf->data->set(ccflags => $ccflags);

    my $libs <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	37742	37845	
==>d the opening tag 
C<"{{DATA}}">, then the constructed closing tag would be C<"{{/DATA}}">.

=item 4.

A <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	25758	25870	
==>{'start_line'},
        "=pod directives shouldn't be over one line long!  Ignoring all "
         . (@$para - 2) <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	508	666	
==>ce files have correct
indentation.

You will need to have C<C::Scan> installed to run this. Use the CPAN
shell:

    perl -MCPAN -e shell 
    cpan> install C: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307988	308313	
==>mp.ops\"\n  if ({{\@1}}) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "debug_init", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924379	924469	
==>src/ops/string.ops\"\n  {{\@1}} = string_make_empty(interpreter, enum_stringrep_one, {{\@2} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925170	925260	
==>src/ops/string.ops\"\n  {{\@1}} = string_make_empty(interpreter, enum_stringrep_one, {{\@2} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611951	612119	
==>"ic",
                              "p"
                            ],
                  "BODY" => "#line 491 \"src/ops/object.ops\"\n    VTABLE_set_attr(interpreter, {{ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	7689	7953	
==>),
                        aop('pushint', [ '<tmp>' ]),
                        aop('setstart', [ $group, '<pos>' ]),
                        @R_ops,
                        $self->dbprint("setting end[$group] := %<rx_pos>-1\n"),
                        aop('setend <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819516	819614	
==>src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n    stack_entry(interpreter, CONTEXT(interpre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820476	820574	
==>src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n    stack_entry(interpreter, CONTEXT(interpre <==
2	/Users/nnunley/parrot/languages/urm/urm-old.pl	345	461	
==>rint "Werte für $1: ";
	my $input = readline(STDIN);
	my @register = split (",", $1);
	chomp $input;
	my @input = sp <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	4675	4890	
==>ine}_data)
    }},
    (PObj_constant_FLAG|PObj_external_FLAG)
    GC_DEBUG_VERSION
  },
  sizeof(static_string_${line}_data),
  static_string_${line}_data,
  sizeof(static_string_${line}_data) - 1,
  1,
  $h
};

DAT <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	846	979	
==>n into same output file
        open LANG, "> $lang_f" or die "Unable to open '$lang_f'"; # JMG
        binmode LANG; # JMG
        pr <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	758	891	
==>n into same output file
        open LANG, "> $lang_f" or die "Unable to open '$lang_f'"; # JMG
        binmode LANG; # JMG
        pr <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	28000	28109	
==>bs {
  my ($self,$node) = @_;
  my $return;
  my $label     = $self->_gensym();

  $return = $self->_generate( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656437	656526	
==>{{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657361	657450	
==>{{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4 <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	1332	1466	
==>$from,$len);
		}
		if ($extralen) {	# CORRECT FILLET
			my $extra = substr($res[0], $extrapos-$startlen, $extralen, "\n");
			$res[1] = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1929	2214	
==>$class;
}


###############################################################################
###############################################################################
##
## The Block Stack
##
##   $block_count         The total number of blocks begun (used for labels)
##   @block_ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	3954	4064	
==>unless ($rdel =~ tr/[({</])}>/)
        {
		return _fail $wantarray, $textref,
			     "Did not find a suitable <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850398	850801	
==>"i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 965,
                  "ARGS" => [
                              "s",
                              "sc",
                              "i"
                            ],
                  "BODY" => "#line 83 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(inte <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9149	9345	
==>ring_free(label);\n    interpreter->resume_flag = 2;\n    {{=0}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10265	10461	
==>ring_free(label);\n    interpreter->resume_flag = 2;\n    {{=0}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1097504	1097652	
==>erpreter, ns, i);\n            key = key_new_string(interpreter, tmp);\n            key_append(interpreter, key_tail, key);\n            key_tail = k <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10374	10473	
==>nd	print STDERR "**Shift \$error token and go to state ".
#DBG>						 $$states[$$stack[-1][0]]{ACTI <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9906	10004	
==>nd	print STDERR "**Shift \$error token and go to state ".
#DBG>						 $$states[$$stack[-1][0]]{ACTI <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	7400	7671	
==>e)
        #   nc   Number constant index
        #   pc   PMC constant index
        #   sc   String constant index
        #   kc   Key constant index
        #   kic  Integer Key constant index (in-line)
        #

        if (/^(inline\s+)?op\s+([a-zA-Z]\w*)\s*\((.*)\ <==
2	/Users/nnunley/parrot/config/inter/progs.pm	4273	4364	
==>data->get('ccwarn'), $conf->options->get('ccwarn'));
    $conf->data->set(ccwarn => $ccwarn) <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15506	15601	
==>=~ /^P/;
  my $value = $self->_generate (_get_arg($node,2));
  $self->_add_inst ('', 'set', [$re <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15864	15959	
==>=~ /^P/;
  my $value = $self->_generate (_get_arg($node,2));
  $self->_add_inst ('', 'set', [$re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563937	564046	
==>ject.ops\"\n  VTABLE_add_method(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564835	564944	
==>ject.ops\"\n  VTABLE_add_method(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65364	65471	
==>elsif ($grammar =~ m/$ATLEAST/gco)
				{
					_parse("a $1-or-more subrule match", $aftererror,$line,"$code$ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	64057	64154	
==>ag (and the failure mode was not "MAX" or "PARA").

=item C<Did not find closing tag>

C<extract_t <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2655	2772	
==>$self{ERRST}} != 0;
}

sub YYAbort {
	my($self)=shift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccep <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2537	2644	
==>$self{ERRST}} != 0;
}

sub YYAbort {
	my($self)=shift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccep <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2274	2470	
==>nvalid class $_[0]";
    }
    $class = "${class}::$name";
    my $self = bless { name => $name,
                       args => $args || [],
                       %opts }, $class;

    return $sel <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7139	7268	
==>AY' ? join('|', @{$options{reject}})
		    : defined($options{reject})	       ? $options{reject}
		    :					 ''
		    ;
	my $igno <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24141	24270	
==>AY' ? join('|', @{$options{reject}})
		    : defined($options{reject})	       ? $options{reject}
		    :					 ''
		    ;
	my $igno <==
2	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	1179	1283	
==>NG') {

print "/* $fingerprint */\n";
print "static const unsigned char fingerprint[] = {\n";
for my $i ( <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	5160	5287	
==>rpreter;
    struct PackFile *          pf;
    INTVAL i;
    PMC *userargv;

    interpreter = Parrot_new(NULL);
    if (!inter <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1165	1305	
==>, # $self->{relpath}, 
            STDOUT => $pasm_f, STDERR => $pasm_f,
        );
        Parrot::Test::run_command( 
            "./parrot <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1074	1214	
==>, # $self->{relpath}, 
            STDOUT => $pasm_f, STDERR => $pasm_f,
        );
        Parrot::Test::run_command( 
            "./parrot <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2016	2162	
==>code
      return $FAR_CHAR;
    } else {
      return chr($in);
    }
  } else {
    return $Name2character{$in}; # returns undef if unknown
  }
} <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1992	2186	
==>nd
        $string =~ m/(^|^.*?[^\\])\$((([A-Za-z][A-Za-z0-9_]*)\b)|({[A-Za-z][A-Za-z0-9_]*}))(.*)$/;

      $compiler->emit("  concat $temp, \"$1\"")
        if defined $1 and $1 ne '';

      m <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3604	3723	
==>nd
          $string =~ m/(^|^.*?[^\\])\$((([A-Za-z][A-Za-z0-9_]*)\b)|({[A-Za-z][A-Za-z0-9_]*}))(.*)$/;

        if (def <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864071	864180	
==>}};\n  if (!s)\n    n = 0;\n  else {\n    n = s->bufused;\n    assert(n == ENCODING_BYTES(interpreter, {{\@2}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864963	865072	
==>}};\n  if (!s)\n    n = 0;\n  else {\n    n = s->bufused;\n    assert(n == ENCODING_BYTES(interpreter, {{\@2}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094215	1094471	
==>line",
                  "CODE" => 1213,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 209 \"src/ops/experimental.ops\"\n  VTABLE_morph(i <==
2	/Users/nnunley/parrot/lib/File/Which.pm	210	315	
==>e::Spec;

my $Is_VMS    = ($^O eq 'VMS');
my $Is_MacOS  = ($^O eq 'MacOS');
my $Is_DOSish = (($^O eq 'MSWi <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8703	8814	
==>h;
    
    return $self->file_with_path($path);
}

=item C<path_for_directory_with_relative_path($path)>

Retur <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644024	644114	
==>ine 199 \"src/ops/pmc.ops\"\n  {{\@1}} = {{\@2}}->vtable->type_keyed_int(interpreter, {{\@2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644917	645007	
==>ine 199 \"src/ops/pmc.ops\"\n  {{\@1}} = {{\@2}}->vtable->type_keyed_int(interpreter, {{\@2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93648	94096	
==>" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 116,
                  "ARGS" => [
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 58 \"src/ops <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92869	93136	
==>" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305440	305869	
==>355,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 1005 \"src/ops/cmp.ops\"\n  if (PMC_IS_NULL({{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2576	2775	
==>$name)>

Returns the C source file with the specified name.

=cut

sub c_source_file_with_name
{
    my $self = shift;
    my $name = shift || return;
    
    $name .= '.c' unless $name =~ /\.[Cc]$/o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685618	685928	
==>}});\n      {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getpr <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20110	20207	
==>ck, $back, $check, $next) =
      map { $self->genlabel("ngr_$_") } qw(rfail local_back back check <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	474	595	
==>=item * the number of look iterations, 

=item * the estimated number of ops performed,

=item * the elapsed time, and 

= <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	478	597	
==>=item * the number of look iterations,

=item * the estimated number of ops performed,

=item * the elapsed time, and

= <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6092	6227	
==>{$group} ||= {};
        foreach my $lib ( keys %libs ) {
            $group_libs{$group}->{lib} = 1;
        }
    }

    return (\%gro <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6303	6438	
==>{$group} ||= {};
        foreach my $lib ( keys %libs ) {
            $group_libs{$group}->{lib} = 1;
        }
    }

    return (\%gro <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	2800	3031	
==>);

      $string = $6;
    }

    $compiler->emit("  concat $temp, \"$string\"")
      if defined $string and $string ne '';

    return $temp;
  }
  else {
#    $self->DEBUG(0, "Compiling non-string literal: '%s'...", $self->value <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2300	2400	
==>rrot/include' . $PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/src/pmc' . $PAT <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	2095	2195	
==>rrot/include' . $PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/src/pmc' . $PAT <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	52512	52641	
==>od->additem($item)
				      or  _no_rule("<reject:$code>",$line);
			}
			elsif ($grammar =~ m/(?=$SCOREMK)/gco
				and do { ($co <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3204	3314	
==>get('ld'));

        # We can't use -opt: and -debug together.
        if ($conf->data->get('ld_debug') =~ /-de <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4708	4818	
==>get('ld'));

        # We can't use -opt: and -debug together.
        if ($conf->data->get('ld_debug') =~ /-de <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	56134	56259	
==>n:...> directive requires a list
					       of one or more strings representing possible
					       types of the specified t <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	11227	11361	
==>LOAD_LOCALS {
    my ($n, $c, $cmt) = @_;
    # TODO $cmt
    my $pad = temp('P');
    print <<EOC;
	peek_pad $pad      # ???
EOC
    p <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1645	1741	
==>->YYData->{symbtab_cst};
    $parser->YYData->{symbtab_cst} = new SymbTabConst($parser);
    un <==
2	/Users/nnunley/parrot/config/auto/python.pm	522	661	
==>on is installed';

@args = qw();

sub runstep
{
    my ($self, $conf) = @_;

    my ($out, $err) = capture_output('python', '-V');
    my $o <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	4767	4954	
==>{
                # no address of
                $asm =~ s/&([INSP])REG/$1REG/g;
                $asm =~ s/&CONST/CONST/g;
                # Use the macro
                $asm =~ s/CALL_F <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3486	3576	
==>>{'Thispara'} = '';
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3016	3106	
==>>{'Thispara'} = '';
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654771	655129	
==>interpreter, {{\@3}}));\n    {{=resume}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653610	653903	
==>interpreter, {{\@3}}));\n    {{=resume}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3149	3246	
==>{
		push @{$code{$seg}->{code}}, "\t#ne \$I0, $vars, ERR_INPFIELDS\n";
	} else {
		push @{$code{$s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2169	2278	
==>n't work right
    #  under non-ASCII charsets.  Something should be done about that.
  }
  return;
}

#@@@@@@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2272	2381	
==>n't work right
    #  under non-ASCII charsets.  Something should be done about that.
  }
  return;
}

#@@@@@@ <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	7163	7300	
==>Str $todo?, Str $got?, Str $expected?, Bool $negate?) returns Bool {
    if ($todo) {
        Test::diag("  Failed ($todo) test ($?CALLER: <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	49363	49576	
==>$lineage[-1] }, ' '; # That was a for-real space, too.
        pos($para) = pos($para) - length($3) + 2;
      } elsif($stack[-1] == length($3)) {
        # We found " >>>>", and it was exactly what we needed.  Com <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	18403	18554	
==>est, "\t# JUMP_IF_FALSE");
    }
    else {
	my $tos = pop @stack;
	my $n = temp($tos->[2]);
	print <<EOC;
	$n = not $tos->[1] $cmt
EOC
	push @stack, [- <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4191	4283	
==>ple::Text>, L<Pod::Checker>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Bur <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717272	717400	
==>\\n\");\n  PIO_softspace(interpreter, io, 0);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	533	718	
==>expr;
    }
    $count++;
  }
  elsif ($tokens->[$count] eq "'") {
    $temp = { children => [{ value => 'quote' }] };
    my $expr;
    $count++;
    ($count, $expr) = _build_tree ($tok <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35325	35427	
==>s cheats, assuming that all return types can be cast from zero.
        $ret = "return ($method->{type} <==
2	/Users/nnunley/parrot/lib/Test/More.pm	29105	29274	
==>efs_Seen;

    {
        # Quiet uninitialized value warnings when comparing undefs.
        local $^W = 0; 

        $Test->_unoverload(\$e1, \$e2);

        # Either th <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	9374	9491	
==>omplex.h
cprojl      complex.h
creal       complex.h
crealf      complex.h
creall      complex.h
csin        complex.h <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1524	1704	
==>Pod::Simple sees a "=head1 Hi there", for example, it basically does
this:

  $parser->_handle_element_start( "head1", \%attributes );
  $parser->_handle_text( "Hi there" );
  $pars <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	31942	32079	
==>+ $curr_open->[-1][1]{'~counter'};
          
          if($item_type eq 'bullet') {
            # Hm, it's not numeric.  Correct for this <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37645	37782	
==>_PUSH_LOOP_$name
type_trans = dtypes[0]
push stypes, type_trans
INS_TRANS_PUSH_LOOP_$name:
PIR

		# Finally, call post_call and append cod <==
2	/Users/nnunley/parrot/config/inter/ops.pm	923	1054	
==>t('ops');

    # ops selection disabled - until we can build and load
    # opcode subset libs
    if (0 && $conf->options->get('ask <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	25970	26075	
==>t_string$func($args)  $cmt
EOC
    }
    my $opcode = $code[$code_l]->[2];
    if ($opcode eq 'POP_TOP') { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93386	93659	
==>1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94166	94439	
==>1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands" <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	186	287	
==>RTER @EXPORT_OK);

@EXPORT_OK = qw(md5 md5_hex md5_base64);

@ISA = 'Exporter';
$VERSION = '1.5';

# I <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	6174	6410	
==>)]+)\):(.*)/s) {
                next if $conf->data->get($1);
                $line = $2;
            }
        }

        # interoplate @foo@ values
        $line =~ s{ \@ (\w+) \@ }{
            if(defined(my $val=$conf->data->get($1) <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	1425	1536	
==>08x %08x %08x %08x %s\n",
	    $constant_num, $_->flags, $_->encoding, $_->type,
            $_->size, $_->data) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8303	8453	
==>ire_literal);
        }

        $props{$prop} = $value;
      }

      #
      # Require there to be a formal arguments list:
      #

      $self->re <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9183	9337	
==>" ($db_desc)" : "";
        return ("\$dbg_tmp = \@<rx_stack>;",
                "$reg = pop \@<rx_stack>;",
                $self->dbprint("POPPED[\$dbg_t <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39744	39843	
==>_write,
  'display' => \&_op_display,
  'newline' => \&_op_newline,
  'write-char' => \&_op_write_ch <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	8565	8703	
==>) if $show;
		want_show(\$show, $Local,  $local ) if $show;
		want_show(\$show, $Undef,  $undef ) if $show;
		want_show(\$show, $File,   $f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917738	918038	
==>YPE" => "inline",
                  "CODE" => 1033,
                  "ARGS" => [
                              "i",
                              "sc",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 289 \"src/op <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1361	1459	
==>arameters
my(@params)=('LEX','RULES','STATES');

sub new {
    my($class)=shift;
	my($errst,$n <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1316	1409	
==>arameters
my(@params)=('LEX','RULES','STATES');

sub new {
    my($class)=shift;
	my($errst,$n <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	482	610	
==>t::Docs::Section );

=item C<config_groups()>

Dynamically creates the Configuration section's groups by studying the
contents of <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	31032	31176	
==>and before E<...> codes are expanded.


# For L<...> codes without a "name|" part, only E<...> and Z<> codes may
# occur -- no other formatting c <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	14464	14585	
==>struction.
    try_offset = eh.get_try_offset()
    try_length = eh.get_try_length()
    if try_offset != pc goto NOT_TRY_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16120	16406	
==>P_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16892	17178	
==>P_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	234	368	
==>self->{state} ||= Regex->global_state();
}

sub init_context {
}

# Convert "x%<foo>y" to
#   print "x"
#   print foo
#   print "y"
#
s <==
2	/Users/nnunley/parrot/lib/Test/More.pm	27522	27624	
==>The use of the following functions is discouraged as they are not
actually testing functions and produc <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1126	1274	
==>te op function names.

=cut

sub prefix 
{ 
    return 'Parrot_'; 
}

=item C<suffix()>

Implemented in subclasses to return a suffix with which to i <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10179	10326	
==>negate_incexc(_translate_classpieces($pieces->[1]));
    }

    # Convert "a-b" to [97,98] and "a" to [97,97]
    my @ranges;
    foreach (@$pieces) <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	7771	7991	
==>}
		if ($type =~ /^[ABCDFGQRSTU]$/i) {
		    unless ($undef || $code || $other || $absolute) {
			if ($init && $uninit) {
			    warn "$.:$_: both init and uninit?\n";
			} elsif (!$init && !$uninit) {
			    warn "$.:$_: <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1007	1105	
==>f "head1", token(s) for its
content, and then an end-token with the tagname of "head1".

=item $tok <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1435	1533	
==>f "head1", token(s) for its
content, and then an end-token with the tagname of "head1".

=item $tok <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	862	951	
==>[-L/usr/local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS = qq[-bundle -undefined suppress] <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	18786	18890	
==>+)
	{
		$item = ${$self->{items}}[$i];

		$code .= preitempos() if $parser->{_check}{itempos};

		$code . <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	19806	19941	
==>et_name} eq 'force_resolve';
        $dont_ignore = 1;
        $para->[1]{'target_matching'} = $target_name;
        last; # stop lookin <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	5078	5221	
==>) {
            if ($rule->{$_} =~ /^([0-9A-F]{2}\s+)*[0-9A-F]{2}$/) {
                if ($has_code) {
                    die "Duplicate value <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7965	8070	
==>f i then print "Should not happen (flo)"
i=55
if i then print "This is true" else print "Oops (flo)"

' Ex <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14952	15054	
==>f i then print "Should not happen (flo)"
i=55
if i then print "This is true" else print "Oops (flo)"

' <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	3584	3788	
==>um=0;
my %opsubs=(
	'+' => sub { 
		my ($a1, $a2, $result)=@_;
		if ($result=~/S/) {
			return("\tconcat $result, $a2, $a1", $result);
		} else {
			return("\t$result = $a1 + $a2", $result);
		}
	},
	'-' = <==
2	/Users/nnunley/parrot/config/auto/jit.pm	3083	3217	
==>ame => $jitarchname,
            jitcpuarch  => $jitcpuarch,
            jitcpu      => uc($jitcpuarch),
            jitosname   => uc( <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	43401	43527	
==>.
        next;
      }

      DEBUG > 1 and print "Ogling E<$content>\n";

      $charnum  = Pod::Escapes::e2charnum($content) <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	8442	8545	
==>----------------------------------------------------
sub unaccept_target         { shift->unaccept_targe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565168	565493	
==>" => 0,
                  "NAME" => "can",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566060	566385	
==>" => 0,
                  "NAME" => "can",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5391	5598	
==>art);
}

sub dfa_safe {
    my $op = shift;
    foreach (@{ $op->{args} }) {
        return 0 unless $_->dfa_safe();
    }
    return 1;
}

# R|S
package Regex::Ops::Tree::alternate;

sub init {
    my ($self <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	16422	16607	
==>oad(0);
	$pir .= "### pre_load (typed eh)\n";
	$pir .= sub_meta($pre_load, { %$mv, LOADREG => 'loadreg' }, "pre_load for typed exception handler");
	$pir .= "### end pre_load (typed eh)\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20050	20199	
==>odule's C<$VERSION>!!


=back

=head1 NOTE

You don't actually I<have> to define a C<run> method.  If you're
writing a Pod-formatter class, you should <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	8770	8965	
==>= "extern ";
	    $newl = " ";
	    $semi = ";";
        $interp = $pmc = "";
    }
    else {
	    $export = "";
	    $extern = "";
	    $newl = "\n";
	    $semi = "";
        $interp = ' interpr <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	1006	1100	
==>ed language, rather than in Parrot
bytecode) may access.

There is a deliberate distancing from <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	28271	28391	
==>orithm implemented iteratively!  Whee!

  while($treelet = shift @stack) {
    for($i = 2; $i < @$treelet; ++$i) { # iter <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1961	2104	
==>xpected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not($got ~~ $expected);
    Test::proclaim($test, $desc, $todo, <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Examples.pm	146	243	
==>1 NAME

Parrot::Docs::Section::Examples - Examples documentation section

=head1 SYNOPSIS

    use <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1582	1712	
==>= @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = $op->{op} $op->{arg1}->{symbo <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2242	2372	
==>= @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = $op->{op} $op->{arg1}->{symbo <==
2	/Users/nnunley/parrot/config/inter/encoding.pm	446	579	
==>ermining what encoding files should be compiled in';

@args = qw(ask encoding);

sub runstep
{
    my ($self, $conf) = @_;

    my @en <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1831	1954	
==>claration on line %d of file '%s'.",
      $name, $sym->line, $sym->file);
  }

  #
  # Now that we've decided to actually d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601888	602120	
==>,
                  "CODE" => 681,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 383 \"src/ops/object.ops\"\n  {{+=2}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5414	5528	
==>_num:
${STACK$register_num} = pop lazy_moves

# Decrement stack height.
PRE_BRANCH_${CURIC}_CONT_$register_num:
dec <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	33236	33360	
==>> \&_op_equalp,

###
### Pairs and Lists
###

  'pair?'    => \&_op_pair_p,
  'cons'     => \&_op_cons,
  'car'      => \&_op <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	13304	13554	
==>sh element.
The object reference is returned.

=item Class (C<'Class_Name'> or C<'*Class_Name'>)

The element's value must be a reference blessed to the named
class or to one of its subclasses. The element is not initialized
by default.

The accessor' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4514	4634	
==>delete $self->{name};
        delete $self->{args};
        return $self->op('nop', [], %$self);
    } elsif (@{ $self->{ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5651	5771	
==>delete $self->{name};
        delete $self->{args};
        return $self->op('nop', [], %$self);
    } elsif (@{ $self->{ <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	893	1030	
==>h()
  init_io()
  init_os()
  init_debug()
  
#
#  PBC loader does not support LuaFunction
#  
  
#  load_bytecode "languages/lua <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	15666	15797	
==>tring' goto bad_args
    goto got_args
  bad_args:
    %% DOMAIN_ERROR %%
  got_args:
END_PIR
   
     $template .= interpolate($cod <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645787	645883	
==>{{\@2}} < interpreter->n_vtable_max)\n\t\t{{\@1}} = interpreter->vtables[{{\@2}}]->whoami;\n    e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646684	646780	
==>{{\@2}} < interpreter->n_vtable_max)\n\t\t{{\@1}} = interpreter->vtables[{{\@2}}]->whoami;\n    e <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3241	3340	
==>nt me"
end sub
function foo$
	foo$="Right one"
	exit function
	foo$="Wrong one"
end function
call my <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17208	17307	
==>nt me"
end sub
function foo$
	foo$="Right one"
	exit function
	foo$="Wrong one"
end function
call my <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	20591	20693	
==>der>

    $Test->no_header($no_header);

If set to true, no "1..N" header will be printed.

=item B<no_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	997	1086	
==>C(cur_opcode[i])
#define SREG(i) REG_STR(cur_opcode[i])
#define CONST(i) CONTEXT(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1113	1202	
==>C(cur_opcode[i])
#define SREG(i) REG_STR(cur_opcode[i])
#define CONST(i) CONTEXT(interpret <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29135	29254	
==>n"     => $pattern,
		"lookahead"   => $_[2],
		"line"        => $_[3],
		"description" => "'$desc'",
	}, $class;
}


su <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31239	31351	
==>n"   => $pattern,
		"lookahead" => $_[2],
		"line"      => $_[3],
		"description" => "'$desc'",
	}, $class;
}

su <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	12460	12564	
==>for errors.
    if(! $self->{'encoding_command_statuses'} ) {
      DEBUG > 2 and print " CRAZY ERROR: It <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5306	5480	
==>irst = 1;
            foreach ( @{ $op->{result} } ) {
                print {$FH} ", " unless ($first);
                print {$FH} "$_->{symbol}";
                if ( e <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6338	6512	
==>irst = 1;
            foreach ( @{ $op->{result} } ) {
                print {$FH} ", " unless ($first);
                print {$FH} "$_->{symbol}";
                if ( e <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	31314	31415	
==>ound\\n"
	_platform_shutdown()
	end
RTBE
}
sub parse_data_setup {
	push @{$code{_data}->{code}},<<DATA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550167	550260	
==>TION;\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_method(interpreter, o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551468	551561	
==>TION;\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_method(interpreter, o <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	43256	43442	
==>.*\}\s*\Z/;
		$self->{_AUTOACTION}
			= new Parse::RecDescent::Action($sourcecode,0,-1)
	}
	
	bless $self, $class;
	shift;
	return $self->Replace(@_)
}

sub Compile($$$$) {

	die "Compila <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	32810	32923	
==>\s]\S*$/s
      ) {
        $treelet->[$i][1]{'type'} = 'url';
        $treelet->[$i][1]{'content-implicit'} = 'ye <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27398	27611	
==>f);
	$f=~s/\$/_string/g; $f=~tr/a-z/A-Z/;
	$seg=$f;
	CALL_BODY($englishname, "UF");
}

sub CALL_BODY {
	my($englishname, $prefix)=@_;		
	my @params;
	while(feedme()) {
		last if ($type[CURR] eq "STMT");
		last if ( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	10505	10613	
==>";

  } elsif( Pod::Simple::Transcode::->encoding_is_available($e) ) {

    die($enc_error = "WHAT? _transcod <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	17007	17168	
==>late a proper shell in the presence of a dumb one.

=cut

sub dump_pmc {
    my ($include, @files) = @_;
    # help these dumb 'shells' that are no shells
    @fi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	701	846	
==>{}}{ $_[1] } = $_[2];
  } else {
    require Carp;
    Carp::croak(
      'usage: $object->attr("val") or $object->attr("key", "newval")');
    re <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	20403	20520	
==>$targ = "pc_$1";
	}
	$op = $op_map{$c};
    }
    elsif ($opcode eq 'UNARY_NOT' && $code[$code_l+1]->[2] eq 'JUMP_IF_F <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	7915	8153	
==>ue = $obj->s;           # element value
    $obj->s('new value');               # assign to element

                                    # array type accessor:
    $ary_ref = $obj->a;                 # reference to whole array
    $ary_ele <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621438	621535	
==>->lru;\n    if (lru->u.signature == sig) {\n\tif (sig) {\n\t    n = ((arg_pass_f)lru->f.real_funct <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623607	623704	
==>->lru;\n    if (lru->u.signature == sig) {\n\tif (sig) {\n\t    n = ((arg_pass_f)lru->f.real_funct <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6079	6180	
==>already.
	$pir .= <<'PIR';
if 0x${CURIC} == 0x45 goto POST_BRANCH_switch_${CURIC}
${ITEMP0} = ${NEXTPC <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4017	4118	
==>already.
	$pir .= <<'PIR';
if 0x${CURIC} == 0x45 goto POST_BRANCH_switch_${CURIC}
${ITEMP0} = ${NEXTPC <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	3828	3951	
==>y $n = @args;
		$arg_count{$f} = $n;
		for (my $i = 0; $i < $n; $i++) {
		    my ($a, $def) = split(/=/, $args[$i]);
		    $ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	4327	4450	
==>y $n = @args;
		$arg_count{$f} = $n;
		for (my $i = 0; $i < $n; $i++) {
		    my ($a, $def) = split(/=/, $args[$i]);
		    $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	378	527	
==>::Identifier;

use Carp;

use base qw(Jako::Construct::Expression::Value);

sub new
{
  my $class = shift;
  my ($block, $token) = @_;

  confess "Blo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5664	5916	
==>,
                  "NAME" => "load_bytecode",
                  "FLAGS" => ":load_file",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6329	6581	
==>,
                  "NAME" => "load_bytecode",
                  "FLAGS" => ":load_file",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714525	714625	
==>on.ops\"\n  STRING * const s = {{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (s && stri <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715448	715548	
==>on.ops\"\n  STRING * const s = {{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (s && stri <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	707893	708235	
==>});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "registe <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	1801	2009	
==>back

=cut

################################################################################

use Regexp::Common qw/comment/;
use Getopt::Long;
use strict;

if(1) {
    my $show_full = 0;
    GetOptions('plus- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95020	95332	
==>, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95913	96225	
==>, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands", <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	8816	8902	
==>fo->cur_op[i] * sizeof(struct PackFile_Constant) + offsetof(struct PackFile_Constant, u <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441600	441746	
==>md_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442615	442761	
==>md_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	6390	6604	
==>));
    
    print OUT page_header("Parrot Test Coverage");
    print OUT qq(
            <ul>
              <li><a href="file_summary.html">File Summary</a>
              <li><a href="function_summary.html">Functio <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	10569	10663	
==>trymatch, $L_backup, $num_groups, $startup) = @_;

    my $trymatch = $self->output_label_use($ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	371	471	
==>ase qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $left, $right) = @_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	362	462	
==>ase qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $left, $right) = @_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561931	562035	
==>xception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", {{\@3}});\n  }\n  {{=nex <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563015	563119	
==>xception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", {{\@3}});\n  }\n  {{=nex <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22910	23093	
==>~ m<^\s*$>; # make sure it's contentful!
      last;
      
    } else {
      DEBUG and $pattern and print "Leading pattern: $pattern\n";
    }
  }
  
  # Put it all back:
  $self->un <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	35478	35588	
==>cketed( $text, '{([<' );

would fail, returning:

	( undef , "{ an '[irregularly :-(] {} parenthesized >:-)' st <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572989	573078	
==>g);\n  VTABLE_set_string_native(interpreter, name, {{\@2}});\n  {{\@1}} = pmc_new_init(int <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573899	573988	
==>g);\n  VTABLE_set_string_native(interpreter, name, {{\@2}});\n  {{\@1}} = pmc_new_init(int <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10758	11005	
==>clusion/exclusion list
    my @incexc;
    foreach (@ranges) {
        my ($first, $last) = @$_;
        if (@incexc && $first <= $incexc[-1]) {
            # Merge (1,10)=1..9 with [4,x]=4..x and [10,x]=10..x
            if ($incexc[-1] <= $last+1 <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	7280	7451	
==>todo) test ($?CALLER::CALLER::CALLER::POSITION)");
    }
    else {
        Test::diag("  Failed test ($?CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_tests_fa <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5829	5923	
==></runsteps()> method is largely based on code written by Brent
Royal-Gordon C<brent@brentdax.co <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	14263	14457	
==>me, $meth, $super,
                       $self->{super}, $body);
    }
    else {
        $total_body = rewrite_nci_method($classname, $meth, $body);
    }

    # now split into MMD if necessary <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5423	5551	
==>def);
	@$stack=( [ 0, undef ] );
	$$check='';

    while(1) {
        my($actions,$act,$stateno);

        $stateno=$$stac <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5163	5284	
==>def);
	@$stack=( [ 0, undef ] );
	$$check='';

    while(1) {
        my($actions,$act,$stateno);

        $stateno=$$stac <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	9264	9404	
==>ParrotOps::optable{$name} = $number;
    if ($number > $ParrotOps::max_op_num) {
      $ParrotOps::max_op_num = $number;
    }
  }
  close OP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714523	714623	
==>thon.ops\"\n  STRING * const s = {{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (s && st <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715446	715546	
==>thon.ops\"\n  STRING * const s = {{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (s && st <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	15189	15321	
==>$regex eq 'Regexp' ) {
        $usable_regex = $regex;
    }
    # Check for '/foo/' or 'm,foo,'
    elsif( ($re, $opts)        = $re <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1486	1633	
==>$dotpos);
    my($self)={ ERROR => \&_Error,
				ERRST => \$errst,
                NBERR => \$nberr,
				TOKEN => \$token,
				VALUE => \$value <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1436	1578	
==>$dotpos);
    my($self)={ ERROR => \&_Error,
				ERRST => \$errst,
                NBERR => \$nberr,
				TOKEN => \$token,
				VALUE => \$value <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	261	394	
==>c foo.pbc > foo.c

=head1 DESCRIPTION

Parse the Parrot PackFile listed on the command line, or from standard
input if no file is name <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	1368	1550	
==>uto/sizes/test_c.in');
    cc_build();
    my %results = eval cc_run();
    cc_clean();

    for (keys %results) {
        $conf->data->set($_ => $results{$_});
    }

    if ($result <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4173	4286	
==>';

			exists(${__PACKAGE__.'::'}{_DBParse})#Already loaded ?
		and	return;
	}
	my($fname)=__FILE__;
	my(@dr <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3960	4067	
==>';

			exists(${__PACKAGE__.'::'}{_DBParse})#Already loaded ?
		and	return;
	}
	my($fname)=__FILE__;
	my(@dr <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	980	1319	
==>\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, I1
                              #
print "Estimated ops: $I5\n"; # print  "Estimated ops: "
                              # print  I5
                              # print  "\n"
                              #
$N <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	980	1319	
==>\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, I1
                              #
print "Estimated ops: $I5\n"; # print  "Estimated ops: "
                              # print  I5
                              # print  "\n"
                              #
$N <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	751	856	
==>urn "re_match P0, ".ord($byte).$comment;
}

sub output_classmatch {
    my ($self, $class) = @_;
    retur <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627277	627378	
==>'re creating a continuation, the continuation PMC\n   * needs to be in the destination register before <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628421	628522	
==>'re creating a continuation, the continuation PMC\n   * needs to be in the destination register before <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111342	111673	
==>, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	112234	112565	
==>, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925268	925572	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stringinfo",
                  "FLAGS" => ":ba <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608875	609334	
==>ct_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 690,
                  "ARGS" => [
                              "p",
                              "p",
                              "s"
                            ],
                  "BODY" => "#l <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	14408	14601	
==>ly characters 32 to 126 are
defined.  This is meant for use by C<e2char($x)> when it senses
that it's running on a non-ASCII platform (where chr(32) doesn't
get you a space -- but $Code2USASCII{ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	1593	1699	
==>s_assign        { return shift->is('assign');        }
sub is_bit_assign    { return shift->is('bit-assign' <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	4343	4488	
==>'))\n";
            $out .= "            { \$r->$elem = \$init{'$name'} } $cmt\n";
            $out .= "       else { croak 'Initializer for $name <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	3	176	
==>perl -w
################################################################################
# Copyright (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/tools/dev/run_indent.p <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeDumb.pm	125	525	
==>se vars qw($VERSION %Supported);
$VERSION = '2.02';
# This module basically pretends it knows how to transcode, except
#  only for null-transcodings!  We use this when Encode isn't
#  available.

%Supported = (
  'ascii'       => 1,
  'ascii-ctrl'  => 1,
  'iso-8859-1'  => 1,
  'null'        => 1,
  'latin1'      => 1,
  'latin-1'     => 1,
  %Supported,
);

sub is_dumb  {1}
sub is_smart {0}

sub a <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1366	1490	
==>d_bytecode "languages/lua/lib/luaos.pbc"
#  load_bytecode "languages/lua/lib/luadebug.pbc"
  _main()
.end

};
        r <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1860	1971	
==>ub subs() {
	# No extra subs.
	return "";
}

# Label generation.
sub gen_label() {
	# This is a good place (as w <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	13178	13327	
==>l('scan_start');
    my $advance = $self->genlabel('scan_advance');
    my $next = $self->genlabel('after_scan');

    my ($R_back, @R_body) = $self-> <==
2	/Users/nnunley/parrot/languages/regex/test.pl	1760	2008	
==>ptimize/) {
        $tree_opt = 0;
        $list_opt = 0;
    } elsif (/--language=(.*)/) {
        $language = $1;
    } elsif (/--expr=(.*)/) {
        $pattern = $1;
    } elsif (/--optimize=(.*)/) {
        my $opts = $1;
        $tree_opt = ($o <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	40199	40343	
==>any number of terminal newlines
          $self->_verbatim_format($para);
        } else {
          push @$para, join "\n", splice(@$para, 2) if <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79316	79416	
==>mc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      /* At this point we have the symbol's ad <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80837	80937	
==>mc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      /* At this point we have the symbol's ad <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293805	294340	
==>q",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 342,
                  "ARGS" => [
                              "i",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 945 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	599	697	
==>lemented for current stack to register mapper\n";
}

# Label generation.
sub gen_label {
	die "gen_ <==
2	/Users/nnunley/parrot/config/init/defaults.pm	3461	3624	
==>g{so}",
        a        => $Config{_a},        # library or archive extension
        exe      => $Config{_exe},      # executable files extension
        cc_o_out <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135551	135862	
==>, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136445	136756	
==>, NULL);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	52517	52626	
==>.= $lol->[$i];
    }
  }
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	14389	14516	
==>ef = [ annotated($op, "alternate") ];
    push(@$ref, $_->reftree()) foreach (@{ $op->{args} });
    return $ref;
}

sub Regex:: <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	733	858	
==>----------
# nop : Do nothing (placeholder)
# check : Check to be sure we are n chars away from the end of the string

@Regex: <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	19403	19557	
==>e C source code file for each of the files passed in,
using the directories passed in to search for the PMC dump files.

=cut

sub gen_c {
    my ($include <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9575	9815	
==>n print "True!"
next t


' Expect OK
if 2 > 1 then
	print "Ok"
else
	print "All is not right"
end if

' Three random numbers
print str$(rnd)
print str$(rnd())
print str$(rnd(1))


' Expect Hello A World
print "Hello " + chr$(65);
print " Wor <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3546	3769	
==>n %tests;
}

##
## $preamble = extract_preamble($string)
##
## Extract the preamable for tests from the .test file.
## This consists of any procedures defined in the test file outside of a test,
## as well as any catch comma <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12572	12783	
==>@opcodes, @{ $key->[1] };
                my $result = $global->[0];
                foreach my $key2 ( @{$var} ) {
                    my $result2 = new_tmp( $parser, 'pmc' );
                    push @opcod <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	45952	46172	
==>(program)\n";
        }
	],
	[#Rule 3
		 'chunk', 3,
sub
#line 57 "Lua\lua51.yp"
{
            [ @{ $_[1] }, @{ $_[2] } ];
        }
	],
	[#Rule 4
		 'chunk', 0,
sub
#line 61 "Lua\lua51.yp"
{
            [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379210	379377	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 432 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval(int <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	219	372	
==>tree, lastback) -> (back, ops...)
#
# where $lastback is the previous backtracking point that we should
# jump to if matching $op fails; $back is the back <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3698	3793	
==>lso search (recursively) parent blocks'
symbol tables.

TODO: We should generate real compiler e <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1216	1339	
==>rn shift->{TYPE};      }
sub name      { return shift->{NAME};      }
sub props     { return %{shift->{PROPS}};  }


#
# com <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3111	3208	
==>config/gen/core_pmcs.pm

package Parrot::PMC;

use strict;
use warnings;

use vars qw(@ISA %pmc_ty <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	55	152	
==>config/gen/core_pmcs.pm

package Parrot::PMC;

use strict;
use warnings;

use vars qw(@ISA %pmc_ty <==
2	/Users/nnunley/parrot/config/gen/PodText.pm	664	872	
==>rce Pod document and the values being the
destination plain text file.

Accepts a L<Parrot::Configure> object followed by a flattened hash.

=back

=cut

package gen::PodText;

use strict;
use vars qw($descrip <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5710	5816	
==>DBG>		$debug & 0x08
#DBG>	and	print STDERR "Stack:[".
#DBG>					 join(',',map { $$_[0] } @$stack).
#DBG> <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5437	5540	
==>DBG>		$debug & 0x08
#DBG>	and	print STDERR "Stack:[".
#DBG>					 join(',',map { $$_[0] } @$stack).
#DBG> <==
2	/Users/nnunley/parrot/lib/Test/More.pm	3356	3459	
==>re qw(no_plan);

B<NOTE>: using no_plan requires a Test::Harness upgrade else it will
think everything h <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	1251	1454	
==>r == NULL) return NULL;
    offset_in_ops = prederef_addr - interpreter->code->prederef.code;
    return (opcode_t*) interpreter->code->base.data + offset_in_ops;
}

static void** opcode_to_prederef(Inter <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	839	1030	
==>YData->{scope} } ) {
                if ( $symbtab->isa('SymbTabVar') ) {
                    if ( exists $symbtab->{table}{$symb} ) {
                        my $defn = $symbtab->{table}{$ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	1801	1931	
==>$self->{regs}};

  for my $type (reverse keys %regs) {
    for (my $count=31; $count>=0; $count--) {
      $self->_add_inst ('','re <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	11447	11601	
==>,$4,$5);
        my ($methodblock, $rema)                    = extract_balanced($classblock);

        $methodblock = "" if $opt{nobody};
        if ($meth <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2739	2845	
==>_file;

    info($file, 0, ".dev file not found for $file.");
}

# ignore any leading or trailing whitespac <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	3315	3446	
==>$op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = find_global \"$op->{arg1} <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1397	1523	
==>{PC} = shift;
    }
    else
    {
        return $self->{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/gets the tr <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1006	1132	
==>{PC} = shift;
    }
    else
    {
        return $self->{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/gets the tr <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	13091	13207	
==>UNC_${extern}_run($ac$pir_args)";
				push @work, [ "result of $extern()", "RESULT",  "\$$optype$retcount"];
				$ret <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	8677	8823	
==>se    stdout" if $out;
    close STDERR             or die "Can't close    stderr" if $err;

    open  STDOUT, ">&OLDOUT" or die "Can't restore  st <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8209	8342	
==>se    stdout" if $out;
    close STDERR or die "Can't close    stderr" if $err;

    open STDOUT, ">&OLDOUT" or die "Can't restore  st <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	4069	4200	
==>($_[0]) || $_[0];
  if($class eq __PACKAGE__) {
    return "$class $VERSION";
  } else {
    my $v = $class->VERSION;
    return "$c <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1459	1596	
==>@_;

  my $dest_ident = $self->dest;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $sel <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1339	1476	
==>@_;

  my $dest_ident = $self->dest;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $sel <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	17124	17224	
==>Result->new();
}

sub additem
{
	my ( $self, $item ) = @_;
	$item->sethashname($self);
	push @{$self- <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	14265	14433	
==>ase}=$incase+1;
		return;
	}

	my $lambda=<<GL;
	
	P0= P10[I25]
	P1= P0["SELECTS"]
	P5= P1["$jump"]      # Stored value.
GL
	print CODE<<CASE_SETUP;
	goto CASE_${jump}_F <==
2	/Users/nnunley/parrot/languages/regex/regex.pl	360	499	
==>(.*)/) {
        my $opts = $1;
        $tree_opt = ($opts =~ /t/i);
        $list_opt = ($opts =~ /l/i);
    } elsif (/--main/ || $_ eq '-m <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21938	22069	
==>$/) {  # i.e., unless it's one word
        $self->whine(
          $para->[1]{'start_line'},
          "'=end $content' is invalid. <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	7473	7717	
==>e',
        commentType                        => '#',
        replace_slashes                    => 1
    );
    genfile(
        'config/gen/makefiles/urm.in' => 'languages/urm/Makefile',
        commentType                   => '#',
        r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122685	122934	
==>,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 248 \"src/ops/bit.ops\"\n  /*\n   * lvalue casts are evil, but this one isn't evil <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20483	20609	
==>_NO_TRACE;
	$code .=
'
		$_matched = 1;
		last;
	}

';
	return $code;
}

1;

package Parse::RecDescent::Action;

sub describe { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035642	1035745	
==>mc_keyed_str(interpreter, lex_pad, lex_name);\n    if (!result) {\n\treal_exception(interpreter, NULL, L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036806	1036909	
==>mc_keyed_str(interpreter, lex_pad, lex_name);\n    if (!result) {\n\treal_exception(interpreter, NULL, L <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	3177	3388	
==>sub process_link_start_token
{
    my $self = shift;
    my $token = shift;
    my $text = $self->do_link($token);
    
    esc($text);
    
    if ( defined $text and length $text ) 
    {
        print {$self-> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	177	310	
==>anguages/jako/lib/Jako/Construct/Label.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53340	53456	
==>n  else         { Interp_flags_CLEAR(interpreter, PARROT_GC_DEBUG_FLAG); }\n  {{+=2}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54096	54212	
==>n  else         { Interp_flags_CLEAR(interpreter, PARROT_GC_DEBUG_FLAG); }\n  {{+=2}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189759	189858	
==>\@1}}->vtable->get_integer(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190700	190799	
==>\@1}}->vtable->get_integer(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2507	2614	
==>nt "First line: [$source_line]\n";

      if( ($line = $source_line) =~ s/^\xEF\xBB\xBF//s ) {
        DEBUG <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	57521	57634	
==>kahead,$commitonly,$line);
				$prod and $prod->additem($item)
				      or  _no_rule("$code",$line);
				$afterer <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823857	824313	
==>":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 933,
                  "ARGS" => [
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 133 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23124	23230	
==>TEM ? ''
			       : '$item{'.$self->{hashname}.'}=').'$_tok;
		' . ($self->{"lookahead"} ? '$text = $_save <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32883	32986	
==>TEM ? ''
				 : '$item{'.$self->{hashname}.'}=') . '$_tok;
		' . ($self->{"lookahead"} ? '$text = $_save <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10273	10380	
==>n/a" ]}</a></td>
             <td><a href="$outfile_base.calls.html#$function">@{[$function_call_coverage{$s <==
2	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	302	391	
==>ng routines specific to 'ParrotCompiler'.

=head1 DESCRIPTION

Calls 'parrot_compiler.pbc' <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	5396	5663	
==>ontents' => ['src/encodings']
            ),
            $self->c_header_item('', 'unicode'),
            $self->c_item(
                'Miscellaneous, <code>sprintf</code> and utility functions.', 
                'pairs' => ['misc'],
                'sources' => [' <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3412	3542	
==>[$self->{STACK}[-1][0]]{ACTIONS}}
}

sub YYLexer {
    my($self)=shift;

	$$self{LEX};
}


#################
# Private s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3240	3359	
==>[$self->{STACK}[-1][0]]{ACTIONS}}
}

sub YYLexer {
    my($self)=shift;

	$$self{LEX};
}


#################
# Private s <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	17138	17319	
==>$got    ? "'$got'"    : 'undef';
    $expect = defined $expect ? "'$expect'" : 'undef';
    return $self->diag(sprintf <<DIAGNOSTIC, $got, $type, $expect);
    %s
        %s
    %s
D <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744607	745036	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 838,
                  "ARGS" => [
                              "s",
                              "nc"
                            ],
                  "BODY" => "#line 179 \ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860431	860606	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 118 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exceptio <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861436	861611	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 118 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exceptio <==
2	/Users/nnunley/parrot/lib/Test/More.pm	34308	34438	
==>If you fail more than 254 tests, it will be reported as 254.

B<NOTE>  This behavior may go away in future versions.


=head1 CAVEA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	410070	410168	
==>ops/io.ops\"\n    STRING *dest = {{\@3}};\n    {{\@1}} = (INTVAL)PIO_recv(interpreter, {{\@2}}, &de <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	2306	2445	
==>mbtab_cst} = $symbtab;
    my $g = pop @{ $parser->YYData->{scope} };
    $parser->YYData->{_G} = $g;
##    warn "PopScopeF\n";
    PopS <==
2	/Users/nnunley/parrot/config/inter/progs.pm	2282	2401	
==>onf->data->set(ld => $ld);

    $ccflags = $conf->data->get('ccflags');

    # Remove some perl5-isms.
    $ccflags =~ s <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	48827	48938	
==>--------------------------------------------------
1;
__END__

TODO:
A start_formatting_code and end_formatting_ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	15806	15922	
==>o};

            my $pass = $builder->$meth( $real_output, $expected, $desc );
            $builder->diag("'$cmd' fai <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	18357	18473	
==>o};

            my $pass = $builder->$meth( $real_output, $expected, $desc );
            $builder->diag("'$cmd' fai <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665047	665279	
==>,
                  "ARGS" => [
                              "p",
                              "ki"
                            ],
                  "BODY" => "#line 359 \"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delete_keyed_int(inte <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	4177	4341	
==>efine',
             'i_float' => 'define',
             'i_fp' => undef,
             'i_fp_class' => undef,
             'i_gdbm' => undef,
             'i_grp' => <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10405	10530	
==>r token and go to state ".
#DBG>						 $$states[$$stack[-1][0]]{ACTIONS}{error}.
#DBG>						 ".\n";

		push(@$stack, [ $$s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9937	10058	
==>r token and go to state ".
#DBG>						 $$states[$$stack[-1][0]]{ACTIONS}{error}.
#DBG>						 ".\n";

		push(@$stack, [ $$s <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2945	3042	
==>'') ? '.' : $rel_path;
}

=item C<parent()>

Returns the directory's parent directory. The root di <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819756	820158	
==>rpreter, entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "entrytype",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820716	821022	
==>rpreter, entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "depth",
                  "F <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931317	931526	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932087	932296	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	51063	51322	
==>Lua\lua51.yp"
{
            [
                @{ $_[1] },
                BuildLiteral( $_[0], $_[3], 'key' ),
            ];
        }
	],
	[#Rule 42
		 '_funcname', 1,
sub
#line 253 "Lua\lua51.yp"
{
            [ $_[1] ];
        }
	],
	[#Rul <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	7858	7977	
==>tdout" if $out;
    open  OLDERR, ">&STDERR" or die "Can't save     stderr" if $err;

    open  STDOUT, ">$out"    or di <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7908	8022	
==>tdout" if $out;
    open OLDERR, ">&STDERR" or die "Can't save     stderr" if $err;

    open STDOUT, ">$out" or di <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	5071	5197	
==>$o;
	}
    }
    close(NM);
} else {
    die "$0: nm.pl -Bgo '$Obj': $!\n";
}
for my $api (keys %API) {
    delete $API{$api} u <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4281	4399	
==>my(@drv);
	open(DRV,"<$fname") or die "Report this as a BUG: Cannot open $fname";
	while(<DRV>) {
                	/ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4062	4177	
==>my(@drv);
	open(DRV,"<$fname") or die "Report this as a BUG: Cannot open $fname";
	while(<DRV>) {
                	/ <==
2	/Users/nnunley/parrot/tools/build/list_unjitted.pl	406	530	
==>{
    next if /^\s*#/ or /^\s*$/;
    if (my ($op) = /(\S+)\s+\d+/){
        push @ops, $op;
    }
    else { die "Misformate <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	1486	1653	
==>"EOF", @_), "\n";

  my $paras = ($self->{'paras'} ||= []);
   # paragraph buffer.  Because we need to defer processing of =over
   # directives and verbatim paragraphs <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3105	3210	
==>mc -> X.dump and X.c and also create any lib-GROUP.c files

    generate_dump($_) foreach (@pmcs);
    gen <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3209	3314	
==>mc -> X.dump and X.c and also create any lib-GROUP.c files

    generate_dump($_) foreach (@pmcs);
    gen <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5965	6077	
==>MD_/);
    next if ($entry->[4] =~ /_INT$/);
    next if ($entry->[4] =~ /_STR$/);
    next if ($entry->[4] =~ /_ <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6383	6495	
==>MD_/);
    next if ($entry->[4] =~ /_INT$/);
    next if ($entry->[4] =~ /_STR$/);
    next if ($entry->[4] =~ /_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	11041	11143	
==>Transcode::->all_encodings;

    # Note unsupported, and complain
    DEBUG and print " Encoding [$e] i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	306744	307202	
==>E" => "unless_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 357,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 1031 \"src/ops/cmp.ops\" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307537	307867	
==>E" => "unless_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 358,
                  "ARGS" => [
                              "s <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	12970	13157	
==>O
    if ($names{$c}) {
	$p = $names{$c};
	print <<"EOC";
	# lexical $n '$c' := $p $cmt
EOC
    }
    elsif ($globals{$c}) {
	$p = $globals{$c};
	print <<"EOC";
	# $c = global "$c" $cmt
EO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360613	360823	
==>> "function",
                  "CODE" => 422,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 258 \"src/ops/io.ops\"\n  PMC * co <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	44962	45155	
==>f the operation (if any),

=item [10]

the trailing modifiers on the operation (if any).

=back

For each of the fields marked "(if any)" the default value on success is
an empty string.
On fail <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22080	22193	
==>st(''           ,'lt'    ,[$temp,0,"DONE_$label"]);
  $self->_restore($temp);
  $self->_add_inst(''           ,'se <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	2257	2413	
==>::Simple::PullParserTextToken';
  $self->{'end_token_class'}   ||= 'Pod::Simple::PullParserEndToken';

  DEBUG > 1 and print "New pullparser object: $self\n" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1922	2035	
==>KLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
    # Yes, stipulate the list without a range, so that this ca <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2025	2138	
==>KLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
    # Yes, stipulate the list without a range, so that this ca <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	4389	4512	
==>lock leader found, start new block
	if(exists $leaders{$instr_pc}) {
	    #substr($byte_code, $instr_pc, sizeof('op')) = $en <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19225	19352	
==>lf->get(2)->is_ident
      and $self->get(3)->is_open_paren
    ) {
      my $block = $self->current_block();
      my $left = J <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3727	3826	
==>RIC}_CONT_$register_num:
dec stack_depth
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$register <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5501	5600	
==>RIC}_CONT_$register_num:
dec stack_depth
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$register <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64924	65048	
==><leftop: $name $3 $name>($1..$2) ");

						pos $grammar = $pos;
					}
					else
					{
						$item = new Parse::RecDescent: <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	2230	2352	
==>ely after the last variable declared in the block
   making the calls into the interpreter, as it declares a variable
   an <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	1284	1400	
==>e_path($_))} @files);
    }
    
    return @groups;
}

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1942	2079	
==>L'    if $node->{value} =~
                                 /^[-]?\d+\.(\d+([-+]?[eE]\d+)?)?/;
    $node->{type} = 'REAL'    if $node->{va <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	9019	9142	
==>ref =~ m/\G($bad)/gcs)
		{
			pos($$textref) -= length($1);	# CUT OFF WHATEVER CAUSED THE SHORTNESS
			goto short if ($omode <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2186	2287	
==>0;
    goto *ops_addr[*(cur_opcode = (opcode_t *)$addr)]";
    }
}

=item C<expr_offset($offset)>

Tra <==
2	/Users/nnunley/parrot/tools/dev/cc_flags.pl	616	800	
==>le format.

=head1 SEE ALSO

F<config/gen/cflags/root.in>.

=cut

################################################################################

use strict;

my $cflags = shift;

ope <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13531	13644	
==>qual_p {
}

sub _op_pair_p {
  my ($self, $node) = @_;
  my $return;
  my $label = $self->_gensym();

  _num_arg ( <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	1925	2085	
==>t');
        print <<'END';

Can't find a int type with size 2, conversion ops might fail!

END
    }
    if ($results{shortsize} == 4) {
        $conf->data->se <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	12792	12910	
==>e
        my $test = defined $got || defined $dont_expect;

        $self->ok($test, $name);
        $self->_cmp_diag($ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	13236	13354	
==>e
        my $test = defined $got || defined $dont_expect;

        $self->ok($test, $name);
        $self->_cmp_diag($ <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	11374	11510	
==>PLVector'
    iter = new .Iterator, op1

loop:
    unless iter goto done
    $P1 = shift iter
    unshift result, $P1
    goto loop
done: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	7432	7652	
==>ps/core.ops\"\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8068	8288	
==>ps/core.ops\"\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
2	/Users/nnunley/parrot/config/inter/charset.pm	29	232	
==>e Perl Foundation.
# $Id: /parrot/config/inter/charset.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/inter/charset.pm - charset files

=head1 DESCRIPTION

Asks the user to select which <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	286	382	
==>$
#

use strict;
eval "use warnings";

use Carp;

package Jako::Construct::Expression::Value::Ide <==
2	/Users/nnunley/parrot/lib/Test/More.pm	27624	27720	
==>ce no diagnostics to help figure
out what went wrong.  They were written before is_deeply() exist <==
2	/Users/nnunley/parrot/tools/dev/symlink.pl	1683	1825	
==>@manifile);
	    unless (-f $srcfile) {
		warn "$self: cannot find $dstfile\n";
		next;
	    }
	    push @srcfiles, $srcfile;
	    if (@manifil <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2006	2106	
==>t  { --$_[0]{'Indent'} }
sub   end_over_number  { --$_[0]{'Indent'} }
sub   end_over_text    { --$_[0 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1574	1674	
==>t  { --$_[0]{'Indent'} }
sub   end_over_number  { --$_[0]{'Indent'} }
sub   end_over_text    { --$_[0 <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1816	1929	
==>rrot, 'parrot' . $PConfig{exe}
);

my $perl6 = File::Spec->catfile(
    $path_to_parrot, qw/ languages perl6 p6she <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319776	320021	
==>,
                  "CODE" => 374,
                  "ARGS" => [
                              "i",
                              "n"
                            ],
                  "BODY" => "#line 124 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (INTVA <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	1621	1726	
==>}

=back

=head2 Instance Methods

=over 4

=item C<is_root_section()>

Returns whether the section is the <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648858	649115	
==>,
                  "CODE" => 725,
                  "ARGS" => [
                              "i",
                              "k"
                            ],
                  "BODY" => "#line 234 \"src/ops/pmc.ops\"\n    {{\@1}} = pmc_type_p(interpre <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6406	6506	
==>elements are exchanged.
   Exchange=FALSE
   ' Compare the array elements by pairs. When two are exch <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16059	16159	
==>elements are exchanged.
   Exchange=FALSE
   ' Compare the array elements by pairs. When two are exch <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	37044	37225	
==>l = BuildLiteral( $parser, 'nil', 'nil' );
        push @opcodes2, @{ $nil->[1] };
        push @opcodes2, new LexDir( $parser,
            'prolog' => 1,
            'result' => <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	789	903	
==>le' or $kind eq 'until') {
    my $test = ($kind eq 'while') ? 'unless' : 'if';

    $compiler->emit("${prefix}_NEX <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	6261	6378	
==>));
    $totals{call_coverage}   = sprintf("%.2f", ($totals{calls}    ? ($totals{covered_calls} / $totals{calls} * 100 <==
2	/Users/nnunley/parrot/lib/Test/More.pm	29245	29509	
==>1, \$e2);

        # Either they're both references or both not.
        my $same_ref = !(!ref $e1 xor !ref $e2);
	my $not_ref  = (!ref $e1 and !ref $e2);

        if( defined $e1 xor defined $e2 ) {
            $ok = 0;
        }
        elsif ( $e1 == $DNE xor $e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443303	443603	
==>YPE" => "inline",
                  "CODE" => 507,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 114 \"src/ops/ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1456	1573	
==>f ($self->content) {
      $compiler->emit(".namespace ${namespace}_CONT");
      $compiler->indent;
      $self->SUPE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612947	613039	
==>" => "#line 496 \"src/ops/object.ops\"\n    VTABLE_set_attr_str(interpreter, {{\@1}}, {{\@2}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613854	613946	
==>" => "#line 496 \"src/ops/object.ops\"\n    VTABLE_set_attr_str(interpreter, {{\@1}}, {{\@2}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588927	589065	
==>kc"
                            ],
                  "BODY" => "#line 314 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590114	590252	
==>kc"
                            ],
                  "BODY" => "#line 314 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	251378	251520	
==>"BODY" => "#line 703 \"src/ops/cmp.ops\"\n  {{\@2}}->vtable->i_logical_not(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6441	6554	
==>=FALSE
   ' Compare the array elements by pairs. When two are exchanged,
   ' force another pass by setting Exchan <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16094	16207	
==>=FALSE
   ' Compare the array elements by pairs. When two are exchanged,
   ' force another pass by setting Exchan <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1594	1707	
==>= $self->block;
  my $value = $self->value;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3214	3327	
==>= $self->block;
  my $value = $self->value;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $s <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	16157	16409	
==>ethods
from the F<vtable.dump>.

=cut

sub add_defaulted {
    my ($class, $vt) = @_;

    foreach my $e ( @{$vt->{methods}} ) {
        my $meth = $e->{meth};
        $class->{super}{$meth} = 'default';
    }
}

=head2 dump_is_newer($file);

Return whe <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	164	268	
==>omputed C<goto>

=head1 DESCRIPTION

Determines whether the compiler supports computed C<goto>.

=cut

pa <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	48762	48892	
==>sub
#line 157 "Lua\lua51.yp"
{
            BuildForList( $_[0], $_[2], $_[4], $_[7] );
        }
	],
	[#Rule 26
		 '@8-1', 0 <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	6882	7190	
==>$indent$2 $3\")\n");
            }
            push @stack, "#$2 $3";

            next;
        }
        if (/^\s*\#(\s*)(else|elif)/) {
            # stay where we are, but indenting should be 
            # back even with the opening brace.
            my $indent = "  " x (@stack-1);
            if ($1 n <==
2	/Users/nnunley/parrot/config/gen/platform.pm	5513	5628	
==>>data->get('platform_asm')) {
        my $asm_file = "config/gen/platform/$platform/asm.s";
        if (-e $asm_file <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1623	1755	
==>epth = prop_stack_depth[${PC}]
NOWT_TO_PROPOGATE:
PIR

	# Return.
	return $pir;
}

# Pre and post stack operation (op class instructi <==
2	/Users/nnunley/parrot/lib/Test/More.pm	28298	28420	
==>_array  {
    my($a1, $a2) = @_;

    if( grep !_type($_) eq 'ARRAY', $a1, $a2 ) {
        warn "eq_array passed a non-arra <==
2	/Users/nnunley/parrot/config/inter/progs.pm	2081	2197	
==>f->data->set(link => $link);

    $ld = integrate($conf->data->get('ld'), $conf->options->get('ld'));
    $ld = promp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681242	681520	
==>PE" => "inline",
                  "CODE" => 764,
                  "ARGS" => [
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 507 \"src/ops/pmc.ops\"\n    {{\@1}} = {{\@2}}->vtable->shift_in <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	1608	1715	
==>s distributed.', 'LICENSES/Artistic', 'LICENSES/gpl.txt'),
        ),
        $self->new_group('Status', '', <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645756	645850	
==>.ops\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtable_max)\n\t\t{{\@1}} = interpreter- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646653	646747	
==>.ops\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtable_max)\n\t\t{{\@1}} = interpreter- <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6958	7062	
==>"longer"
bogus$="not"
print "Found  (5): ", instr(s1$, found$)
print "Bogus  (0): ", instr(s1$, bogus$)
p <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18687	18791	
==>"longer"
bogus$="not"
print "Found  (5): ", instr(s1$, found$)
print "Bogus  (0): ", instr(s1$, bogus$)
p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447888	448191	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	448714	449017	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_ <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3309	3441	
==>or my $num (0 .. $#pmcs) {
        my $id = $num + 1;
        print OUT "\t$pmcs[$num] => $id,\n";
    }

    print OUT <<'END_PM';
) <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	13231	13328	
==>reference
as the sole argument, this causes an assignment of the whole hash element.
The object re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170999	171319	
==>"
                               ],
                  "TYPE" => "function",
                  "CODE" => 205,
                  "ARGS" => [
                              "p",
                              "nc",
                              "ic"
                            ],
                  "BODY" => "#line 211 \"src/ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54390	54485	
==>pretty_form{$1} || '\\x'.(unpack("H2",$1))>eg;
         <$pretty_form{$1} || '\\x{'.sprintf("%x" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54658	54753	
==>pretty_form{$1} || '\\x'.(unpack("H2",$1))>eg;
         <$pretty_form{$1} || '\\x{'.sprintf("%x" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135932	136424	
==>RS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 167,
                  "ARGS" => [
                              "s",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 326 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_xor(interpret <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12012	12372	
==>codes, $assign ];
                }
                else {
                    my $assign = new StoreLexOp( $parser,
                        'arg1' => $defn,
                        'arg2' => undef,
                    );
                    return [ $defn, [], $assign ];
                }
            }
            else {

                # global <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427910	428005	
==>DY" => "#line 69 \"src/ops/math.ops\"\n  mmd_dispatch_v_pn(interpreter, {{\@2}}, {{\@3}}, {{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428797	428892	
==>DY" => "#line 69 \"src/ops/math.ops\"\n  mmd_dispatch_v_pn(interpreter, {{\@2}}, {{\@3}}, {{\@1} <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4051	4154	
==>(1..$pushes) {
		$pir .= <<'PIR';
# Increment stack depth.
inc stack_depth

# Get type (so we can find r <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2467	2570	
==>(1..$pushes) {
		$pir .= <<'PIR';
# Increment stack depth.
inc stack_depth

# Get type (so we can find r <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1639	1823	
==>in( ' ',
                    File::Spec->join($path_to_parrot,$self->{parrot}), 
                    File::Spec->join($path_to_language, 'HQ9plus.pbc'),
                    $lang_fn ) ) <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	604	738	
==>in( ' ',
                 File::Spec->join($path_to_parrot,$self->{parrot}), 
                 File::Spec->join($path_to_language, 'm4. <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	22100	22350	
==>_[3] ]; }
	],
	[#Rule 36
		 'charclass', 4,
sub
#line 165 "lib/Regex/Grammar.y"
{ push @{$_[3]}, '-'; return $_[3]; }
	],
	[#Rule 37
		 'charclass', 3,
sub
#line 166 "lib/Regex/Grammar.y"
{ return $_[2]; }
	],
	[#Rule 38
		 'charclass', 1,
sub
#line 1 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	25423	25643	
==>rker' ]),
                        aop('if', [ '<tmp>', $R_back ]),
                        aop('goto', [ $lastback ]),
              $rfail => aop('pushint', [ 0 ]),
               $next =>
              );

    return ($ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77826	77991	
==>,$_[3]);
	if ($_[2]<0)
	{
		_error("Can't negate \"$&\".",$_[3]);
		_hint("You can't negate $_[0]. Remove the \"...!\" before
		       \"$&\".");
		return 0;
	}
	retu <==
2	/Users/nnunley/parrot/examples/benchmarks/shared_ref.pl	78	269	
==>ples/benchmarks/shared_ref.pl 19601 2006-05-30T13:32:26.641316Z coke  $

=head1 NAME

examples/benchmarks/shared_ref.pl - Shared reference between threads

=head1 SYNOPSIS

    % time perl exa <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2361	2470	
==>ode.

=cut

sub expr_offset
{
    my ($self, $offset) = @_;

    return "cur_opcode + $offset";
}

=item C<got <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	44073	44209	
==>gs);
      }
    } else {
      my @args = map { $self->_generate($_); } _get_args($node, 0);
      $return = $self->_call_function_obj(@ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	2005	2174	
==>r->new;
  $Test->output('my_logfile');

  sub import {
      my($self) = shift;
      my $pack = caller;

      $Test->exported_to($pack);
      $Test->plan(@_);

      $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492735	492847	
==>"#line 585 \"src/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493496	493608	
==>"#line 585 \"src/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	625127	625314	
==>c[1]);\n        ASSERT_SIG_PMC(sig);\n        assert(SIG_ELEMS(sig) <= 1);\n        args[0] = SIG_ELEMS(sig) ? \n            (_reg_base + ((opcode_t*)pred_pc)[2]) : NULL;\n    }\n    else\ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3430	3532	
==>nd $props{fnlib}) {
      $fnlib = $props{fnlib}->value; # TODO: We should make sure its a string, some <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6094	6196	
==>nd $props{fnlib}) {
      $fnlib = $props{fnlib}->value; # TODO: We should make sure its a string, some <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11940	12039	
==>)

Given a name or number that could appear in a
C<EE<lt>name_or_numE<gt>> sequence, this returns th <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12437	12536	
==>)

Given a name or number that could appear in a
C<EE<lt>name_or_numE<gt>> sequence, this returns th <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9905	10015	
==>s[$$stack[-1][0]]{ACTIONS})
			        or  not exists($$states[$$stack[-1][0]]{ACTIONS}{error})
					or	$$sta <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9459	9567	
==>s[$$stack[-1][0]]{ACTIONS})
			        or  not exists($$states[$$stack[-1][0]]{ACTIONS}{error})
					or	$$sta <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	4446	4542	
==>st ('', 'set',[$return,$value]);
    }
    elsif ($value =~ /^[-+]?((\d+\.\d*)|(\.d+))([eE][-+]?\ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3465	3558	
==>st ('', 'set', [$return,$value]);
  }
  elsif ($value =~ /^[-+]?((\d+\.\d*)|(\.d+))([eE][-+]?\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832065	832152	
==>ne 192 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832793	832880	
==>ne 192 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	28400	28514	
==>back)
              unless $self->{DEBUG};
            return $self->wrap($op, $self->$method($op, @{ $op->{args} } <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	81	175	
==>rot/Op.pm 20321 2006-06-20T20:02:00.179448Z bernhard  $

=head1 NAME

Parrot::Op - Parrot Opera <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4041	4151	
==>\n";
	for (1..$pushes) {
		$pir .= <<'PIR';
# Increment stack depth.
inc stack_depth

# Get type (so we can fin <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2457	2567	
==>\n";
	for (1..$pushes) {
		$pir .= <<'PIR';
# Increment stack depth.
inc stack_depth

# Get type (so we can fin <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	5231	5400	
==>ason", :$depends);
        } else {
            Test::skip $reason, :$depends;
        }
    }
}

sub skip_rest (Str $reason?, :$depends) returns Bool is export {
    Tes <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958752	958996	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959553	959797	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 " <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2430	2528	
==>ainst the Perl 6 pattern, passing the test
if the output produced by the test code matches the C<$e <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3864	3962	
==>ainst the Perl 6 pattern, passing the test
if the output produced by the test code matches the C<$e <==
2	/Users/nnunley/parrot/tools/dev/cc_flags.pl	2011	2246	
==>($option->[1] eq '-') {
            @ARGV = grep { $_ ne $option->[2] } @ARGV;
        }
        else {
            foreach my $arg (@ARGV) {
                $arg =~ s/$option->[2]/$option->[3]/;
            }
        }
    }
}

# print <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	11131	11225	
==>ead2 BLOCK->compile(COMPILER, FILTER)

Compile the block's content using COMPILER. If FILTER is <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	316	448	
==>ibs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }
    if ($libs !~ /-lrt\b/) {
        $libs .= ' -lrt';    # Needed for sch <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	1930	2096	
==>is that the
   stack base pointer will be NULL. This is Very Bad.

   To deal with this there are two macros that are defined to handle
   the problem.

   PARROT_CALL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92791	93091	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93570	93870	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1168	1298	
==>t);
    $text =~  # A not-totally-brilliant wrapping algorithm:
      s/(
         [^\n]{55}         # Snare some characters from a <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1112	1242	
==>t);
    $text =~  # A not-totally-brilliant wrapping algorithm:
      s/(
         [^\n]{55}         # Snare some characters from a <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	12438	12581	
==>17
		}
	},
	{#State 4
		DEFAULT => -11
	},
	{#State 5
		DEFAULT => -28,
		GOTOS => {
			'rulename' => 18
		}
	},
	{#State 6
		DEFAULT => -26
	}, <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	14826	14990	
==>] = [ $1, $2 ];
                $args->[$i] = "&arg$i";
            }
        }
        my $call_params = join(",", @$args);
        my @tempi = grep { defined $temp <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	4171	4288	
==>class->VERSION;
    return "$class $v (" . __PACKAGE__ . " $VERSION)";
  }
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033235	1033335	
==>nterpreter->ctx);\n    STRING * const lex_name = {{\@1}};\n    PMC * const lex_pad = Parrot_find_pad( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034333	1034433	
==>nterpreter->ctx);\n    STRING * const lex_name = {{\@1}};\n    PMC * const lex_pad = Parrot_find_pad( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	388	494	
==>:Construct::Block::Conditional);

#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $left, $op, $ri <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	400	506	
==>:Construct::Block::Conditional);

#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $left, $op, $ri <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6369	6460	
==>i = elements P_arg_0
POST_BRANCH_switch_${CURIC}_LOOP:
if i == 0 goto POST_BRANCH_switch_${C <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4307	4398	
==>i = elements P_arg_0
POST_BRANCH_switch_${CURIC}_LOOP:
if i == 0 goto POST_BRANCH_switch_${C <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11753	11896	
==>gex::Ops::Tree->op(@_);
}

$::paren = 0;



sub new {
        my($class)=shift;
        ref($class)
    and $class=ref($class);

    my($self)=$ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	10934	11100	
==>es
	$c =~ s/"/\\"/g;	# XXX unescape
	my $u = defined $1 ? $1 : "";
	if ($c =~ /^(u|U)?'(.*)'/) {
	    my $u = defined $1 ? "u:" : "";
	    my $s = $2;
	    $c =~ s/.*/ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3507	3603	
==>t_symbol(NAME)

Attempt to get a symbol from this block's symbol table only. If there is no
local <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	2316	2508	
==>}
    
    return 1;
}

=item C<process_start_token($token)>

Process a start token.

=cut

sub process_start_token
{
    my $self = shift;
    my $token = shift;
    my $tagname = $token->tagn <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9899	9998	
==>$states[$$stack[-1][0]]{ACTIONS})
			        or  not exists($$states[$$stack[-1][0]]{ACTIONS}{error <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9453	9551	
==>$states[$$stack[-1][0]]{ACTIONS})
			        or  not exists($$states[$$stack[-1][0]]{ACTIONS}{error <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	893	1043	
==>t'} = 0;
  $new->{'Indentstring'} = '   ';
  $new->{'Errata_seen'} = 0;
  return $new;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5113	5246	
==>_label_use($passLabel);

    while (@$incexc) {
        my $first = shift(@$incexc);
        my $last = shift(@$incexc);
        if (d <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4788	4921	
==>_label_use($passLabel);

    while (@$incexc) {
        my $first = shift(@$incexc);
        my $last = shift(@$incexc);
        if (d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	264071	264413	
==>i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 307,
                  "ARGS" => [
                              "i",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 806 \"src/ops/cmp.ops\"\n    {{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	698	796	
==>ype is C<PARROT_CGOTO_CORE>.

=cut

sub core_type
{
    return 'PARROT_CGOTO_CORE';
}

=item C<defi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6111	6277	
==>type);

      $self->INTERNAL_ERROR("Could not determine type.") unless defined $type;

      $self->SYNTAX_ERROR("Cannot declare constants of type '%s'.", $type) # TO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61900	62017	
==>line 951 \"src/ops/core.ops\"\n  PARROT_ERRORS_on(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62544	62661	
==>line 951 \"src/ops/core.ops\"\n  PARROT_ERRORS_on(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15233	15378	
==>ay @got, Array @expected, Str $desc?) returns Bool;
  multi sub is_deeply (List  $got, List  $expected, Str $desc?) returns Bool;
  multi sub is_d <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3148	3268	
==>ld)",

    'ic' => "cur_opcode[%ld]",
    'nc' => "CONST(%ld)->u.number",
    'pc' => "CONST(%ld)->u.key",
    'sc' => "C <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2061	2177	
==>ld)",

  'ic'  => "cur_opcode[%ld]",
  'nc'  => "CONST(%ld)->u.number",
  'pc'  => "CONST(%ld)->u.key",
  'sc'  => "C <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	625587	625729	
==>TVAL:\n                args[1 + i] = (void*)*(INTVAL*)(_reg_base + cur_opcode[2 + i]);\n                break;\n            case PARROT_ARG_INT <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	297	429	
==>COMM" or $_[0] eq "DIRECTIVE") {
		$curtok=~tr/A-Z/a-z/;
	}
	push(@tokens, $curtok);
	push(@tokdsc, $_[0]);
	$curtok="";
}

sub token <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	657	749	
==>ocs::File';
}

=item C<directory_class()>

Returns C<Parrot::Docs::Directory>.

=cut

sub dir <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	5649	5860	
==>d)\)\);/load_nc(jit_info->native_ptr, ISR$1, ECONST($2));/g;
            }

            $asm =~ s/PUSH_MAPPED_REG\((\d)\)/Parrot_jit_push_registers(jit_info,$1)/g;
            $ops{$function} = [ $asm , $extern ] <==
2	/Users/nnunley/parrot/lib/Test/More.pm	26913	27081	
==>$val = $vals[$idx];
        $vals[$idx] = !defined $val ? 'undef'          :
                      $val eq $DNE  ? "Does not exist" :
	              ref $val      ? "$va <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	7101	7258	
==>gate) unless $cond;

    return $cond;
}

sub report_failure (Str $todo?, Str $got?, Str $expected?, Bool $negate?) returns Bool {
    if ($todo) {
        Te <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	533696	533980	
==>{
                  "JUMP" => 0,
                  "NAME" => "log10",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	533	628	
==>VERSAL::isa($block, 'Jako::Construct::Block');
  confess("Identifier (" . ref($ident) . ") is no <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	533	628	
==>VERSAL::isa($block, 'Jako::Construct::Block');
  confess("Identifier (" . ref($ident) . ") is no <==
2	/Users/nnunley/parrot/config/auto/headers.pm	2164	2277	
==>t(testheaders => join('', map { "#include <$_>\n" } @$use_headers));
            $conf->data->set(testheader  => $ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34153	34273	
==>}' ) . ';
		$Parse::RecDescent::lastunexpected = $text;
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' )
		. ($ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37625	37741	
==>}' ) . ';
		$Parse::RecDescent::lastunexpected = $text;
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) .' <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3303	3415	
==>E_$register_num

# No lazy move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5065	5177	
==>E_$register_num

# No lazy move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80153	80423	
==>"function",
                  "CODE" => 101,
                  "ARGS" => [
                              "p",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 1176 \"src/ops/core.ops\" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818104	818223	
==>ot_push_regs(interpreter);\n  /* these 2 opcodes change the register base pointer\n   * {{=0,+=1}} reloads cached base p <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	11645	11946	
==>head1_text_content =~ m/\($titlename_re\)/s
          # We accept "=head1 Nomen Modularis (NAME)" for sake of i18n
        ) {
          DEBUG and print "  Yup, it was $titlename.  Seeking next para-content...\n";
          ++$state;
        } elsif(
          $desperate_for_title
           # if we'r <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	13148	13266	
==>ny lines at a time
      local $/ = $NL;
      push @lines, scalar(<$source>);  # readline
      last unless defined $l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64746	64840	
==>_CODE_FLAG);\n  new_interp->code = interpreter->code;\n  runops(new_interp, REL_PC + {{\@2}});\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65697	65791	
==>_CODE_FLAG);\n  new_interp->code = interpreter->code;\n  runops(new_interp, REL_PC + {{\@2}});\ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	10520	10696	
==>s/\$$/_string/) {	
					$$optype="S";
				} else {
					$$optype="N";
				}
				$main::code{$main::seg}->{declarations}->{$sym}=1
					unless $main::code{$main::seg}->{declarati <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646217	646640	
==>peof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 722,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 211 \ <==
2	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	1621	1720	
==>ELOPING

  print << "EOF";
/* fingerprint checking is only enabled in development versions */

int
P <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4916	5014	
==>R' };
	my($errstatus,$nberror,$token,$value,$stack,$check,$dotpos)
     = @$self{ 'ERRST', 'NBERR <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4675	4771	
==>R' };
	my($errstatus,$nberror,$token,$value,$stack,$check,$dotpos)
     = @$self{ 'ERRST', 'NBERR <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	2282	2431	
==>@_;
    die "unimplemented meta $tree";
}

# FIXME!!!
sub convert_rx_beg {
    my ($self, $tree, $ctx) = @_;
    return $self->convert($tree, $ctx);
} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	896	1208	
==>= @_;
    return "start $n";
}

sub output_end {
    my ($n) = @_;
    return "end $n";
}

sub output_fail {
    return "fail";
}

sub output_if {
    my ($a, $cond, $b, $where) = @_;
    return "if $a $cond $b goto $where->[1]";
}

sub output_goto {
    my ($where) = @_;
    return "goto $where->[1]";
}

sub ou <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	12767	12878	
==>hes undef and nothing else
        my $test = defined $got || defined $dont_expect;

        $self->ok($test, $n <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	13211	13322	
==>hes undef and nothing else
        my $test = defined $got || defined $dont_expect;

        $self->ok($test, $n <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	48769	48949	
==>ine 157 "Lua\lua51.yp"
{
            BuildForList( $_[0], $_[2], $_[4], $_[7] );
        }
	],
	[#Rule 26
		 '@8-1', 0,
sub
#line 161 "Lua\lua51.yp"
{
            PushScop <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	11829	11955	
==>et_args($node)) {
    my $temp = $self->_generate($_);
    $self->_add_inst(''         ,'eq' ,[$temp,0,"DONE_$label"]);
    $se <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573114	573389	
==>ame);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574024	574299	
==>ame);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13199	13312	
==>_);
  }
  return $temp;
}

sub _op_do {
}

sub _op_delay {
}

#---- Section 6 ----

sub _op_not {
  my ($self,$nod <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Transcode.pm	29	129	
==>le::Transcode;

BEGIN {
  if(defined &DEBUG) {;} # Okay
  elsif( defined &Pod::Simple::DEBUG ) { *DEB <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2613	2717	
==>ed $cond) {
    $handler->start_element({ Name => 'cond', Attributes => { kind => $cond } });
    $handle <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3377	3481	
==>ed $cond) {
    $handler->start_element({ Name => 'cond', Attributes => { kind => $cond } });
    $handle <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	894	1107	
==>{$var};
    } else {
        return '$' . $var;
    }
}

############### SIMPLE OUTPUT ##############

sub output_goto {
    my ($self, $where) = @_;
    return "goto ".$self->output_label_use($where).";";
}

sub o <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	6002	6119	
==>and the EOS).
      } else { # that's the end.  Byebye
        $self->SUPER::parse_lines(undef);
        delete $self- <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8416	8588	
==>index");
    if ($self->{DEBUG}) {
        push @ops, 'print "POPPED: "', "print <rx_tmp>", 'print "\n"';
    }

    # FIXME: Still have extra copy in many cases
    push @o <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	26320	26451	
==>shift @$paras;
        next;
        
      } elsif($paras->[0][0] eq '~end') {
        $self->whine(
          $para->[1]{'start_li <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758302	758412	
==>/set.ops\"\n  {{\@1}} = string_set(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759075	759185	
==>/set.ops\"\n  {{\@1}} = string_set(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30899	31091	
==>n(WRITE_TO_CONSTCLASS,
		"$meth() in $classname");
        $ret
EOC
    }
    $cout .= <<"EOC";
}

EOC
    $cout;
}

=back

=head2 Parrot::Pmc2c::Ref Instance Methods

=over 4

=cut

package Pa <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3294	3408	
==>{$$self{VALUE}}=$_[0];
    ${$$self{VALUE}};
}

sub YYExpect {
    my($self)=shift;

    keys %{$self->{STAT <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3129	3236	
==>{$$self{VALUE}}=$_[0];
    ${$$self{VALUE}};
}

sub YYExpect {
    my($self)=shift;

    keys %{$self->{STAT <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5681	5773	
==>${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method_info_from_token(${ASSEMBLY}, ${ARG0})

# If there i <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7901	7993	
==>${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method_info_from_token(${ASSEMBLY}, ${ARG0})

# If there i <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	451	675	
==>"advance input <n> chars" ],
    [ "check(n)" => "require at least <n> chars remaining" ],
    [ "onfail(R)" ],
    [ "match(b)" => "return if start of input is b, advance 1 char" ],
    [ "classmatch(charclass)" => "return i <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9913	10012	
==>d->code($namespace,$self,$parser);

		$code .= $parser->{deferrable}
				? '		splice
				@{$thispars <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741221	741458	
==>"BODY" => "#line 164 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	47344	47490	
==>[0] );
        }
	],
	[#Rule 16
		 'stat', 5,
sub
#line 116 "Lua\lua51.yp"
{
            BuildRepeat( $_[0], $_[3], $_[5] );
        }
	] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656850	657367	
==>" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 734,
                  "ARGS" => [
                              "i",
                              "p",
                              "kic"
                            ],
                  "BODY" => "#line 324 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}} <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	3	146	
==>Id: /parrot/languages/regex/lib/Parrot/Test/Regex.pm 19034 2006-05-05T07:12:06.535041Z fperrad  $

require Parrot::Test;

package Parrot::Test:: <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12068	12165	
==>e/ConstTable.pm.html being turned into
        # Parrot/PackFile%2FConstTable.pm.html and thus bre <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	18456	18554	
==>for compile time class creation.

Modified by Damian Conway, 1999-03-05, v0.58.

    Added handling <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	6024	6190	
==>f '$dir'},
           map { 
               my $end = $dir_list{ $dir . $_} ? '$' : '/'; # ignore file or dir
               s/\./\\./g;                  # . is simply <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	1326	1449	
==>O'),
            $self->new_item('This is a description of the steps someone should follow when they have to prepare a new v <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732206	732461	
==>\@1}} = (INTVAL)({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732952	733207	
==>\@1}} = (INTVAL)({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	9213	9472	
==>de_t' => 'long',
             'opcode_t_size' => 4,
             'ops' => 'src/ops/core.ops src/ops/bit.ops src/ops/cmp.ops src/ops/debug.ops src/ops/dotgnu.ops src/ops/experimental.ops src/ops/io.ops src/ops/math.ops src/ops/object.ops src/ops/pic.ops src/ops <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	103	265	
==>ge SRM::Base;
use strict;

# Constructor always throws an exception, so we never instantiate this class.
sub new() {
	die "Attempt to instantiate abstract class SR <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	507	632	
==>e);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    my $cc        = $conf-> <==
2	/Users/nnunley/parrot/config/auto/readline.pm	519	644	
==>e);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    my $cc        = $conf-> <==
2	/Users/nnunley/parrot/languages/urm/urm-old.pl	1617	1745	
==>{
	$pos=$1 ;
    }
    else {
	print "Syntax error\n"; exit;
    }
}  

print "Output: $register{$outreg}\n";
#print Dumper %regi <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	12039	12193	
==>!\n";

    print OUT page_header("Call Coverage for $source_file");
    print OUT "<pre>";

    # filter out any branch coverage lines.
    do_filter(sub { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117905	118128	
==>\"src/ops/bit.ops\"\n  {{\@1}} >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118644	118867	
==>\"src/ops/bit.ops\"\n  {{\@1}} >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	855	1025	
==>isa($type, qw(Jako::Construct::Type));
  confess "Value (" . ref($value) . ") is not!"  if defined $value and not UNIVERSAL::isa($value, qw(Jako::Construct::Expression::Va <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	38023	38122	
==>ng options (see below)

=back

The various options that can be specified are:

=over 4

=item C<reje <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	95	203	
==>ent
# use of uninitialized value warnings in older perls.
$^C ||= 0;

use strict;
use vars qw($VERSION);
$VER <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	719	831	
==>y $self = bless {
    BLOCK => $block,
    IDENT => $ident
  }, $class;

  $block->push_content($self);

  return <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	719	831	
==>y $self = bless {
    BLOCK => $block,
    IDENT => $ident
  }, $class;

  $block->push_content($self);

  return <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	11186	11287	
==>k's content using COMPILER. If FILTER is provided, only
those Constructs in the content for which FILT <==
2	/Users/nnunley/parrot/lib/Test/More.pm	30637	30814	
==>a_Stack, { type => 'REF', vals => [$e1, $e2] };
                $ok = _deep_check($$e1, $$e2);
                pop @Data_Stack if $ok;
            }
	    else {
		_whoa(1, "No ty <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1357	1521	
==>such symbol '$ident_name'!" unless defined $sym;

  if (($kind eq 'var') and ($scope eq 'global')) {
    my $imcc_code = $type->code();
    my $temp_reg = $compiler- <==
2	/Users/nnunley/parrot/config/inter/progs.pm	2218	2374	
==>ou want to use to build shared libraries?", $ld) if $ask;
    $conf->data->set(ld => $ld);

    $ccflags = $conf->data->get('ccflags');

    # Remove some pe <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	44176	44293	
==>t);
        DEBUG > 1 and print " Replacing E<$content> with $replacer\n";
      }

      splice(@$treelet, $i, 1, $re <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	4543	4650	
==>ng the test if a string comparison of
output with the expected result it true.

=item C<c_output_like($code, <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	5859	5989	
==>a matching symbol is found or the root block is
encountered without a match (in which case we return undef).

See also: get_symbol( <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	28174	28435	
==>= temp('P');
    print <<EOC;
	$ar = new PerlHash $cmt
EOC
    push @stack, ["hash", $ar, 'P'];
}
sub RAISE_VARARGS
{
    my ($n, $c, $cmt) = @_;
    my $throw;
    if ($n == 0) {
	$throw = 'rethrow P5';
    }
    elsif ($n == 1) {
	my $x = (pop @stack)->[1];
	$ <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	7656	7770	
==>lines, %seen, %fixed, $fix);
    local *OP;
    $fix = 1;
    open OP, "< $file" or die "Can't open $file, error $! <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7945	8047	
==>{code}}, "IFBRANCH_$_:\n";
		}
=cut
UNK:	if (($type[CURR] eq "STMT" or $type[CURR] eq "COMM") and $sing <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2546	2647	
==>nt({ Name => 'op', Attributes => { kind => 'infix', name => $self->op } });
    $self->left->sax($hand <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2423	2524	
==>nt({ Name => 'op', Attributes => { kind => 'infix', name => $self->op } });
    $self->left->sax($hand <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661663	661991	
==>PE" => "inline",
                  "CODE" => 739,
                  "ARGS" => [
                              "i",
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 339 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable- <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	32268	32395	
==>"'", '');

	# Remove a single-quoted Pascalish substring (i.e. one in which
	# doubling the quote character escapes it) from the <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	37926	38078	
==>a->{self} = BuildParam( $parser, 'self' );
}

sub BuildFunctionBody {
    my ( $parser, $params, $block ) = @_;
    my @opcodes1 = ();
    my @opco <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	67528	67786	
==>AME" => "collect",
                  "FLAGS" => "",
                  "ARGDIRS" => [],
                  "TYPE" => "function",
                  "CODE" => 88,
                  "ARGS" => [],
                  "BODY" => "#line 1038 \"src/ops/core.ops\"\n  Parr <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	6485	6774	
==>{
                    $has_pop = 1;
                }
            } else {
                die "Invalid value for pop in rule $rule->{'name'}\n";
            }
        }

        # arguments
        elsif (/^arguments$/) {
            if ($has_args) {
                die "Duplicate value f <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	5734	5875	
==>talic="0" />
      <itemData name="String Interp" defStyleNum="dsString" />
      <itemData name="Identifier" defStyleNum="dsDataType" color=" <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	998	1106	
==>side effect of setting
    # content_seen.
    $self->get_short_title();
    
    return unless $self->conten <==
2	/Users/nnunley/parrot/Configure.pl	911	1029	
==>m C<--nomanicheck>

Tells Configure.pl not to run the MANIFEST check.

=item C<--prefix>

Sets the location where parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188822	188940	
==>spatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_CMP) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	4879	4989	
==>>\n";
    }
    
    return $index_html;
}

=item C<contents_relative_to_source($source)>

Returns the contents <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63328	63500	
==>}
				elsif ($grammar =~ m/$MANY/gco)
				{
					_parse("a one-or-more subrule match", $aftererror,$line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $gramm <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009620	1009871	
==>"TYPE" => "function",
                  "CODE" => 1126,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 659 \"src/ops/string.ops\"\n  { <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	5205	5331	
==>m C<jump($jump)>

=item C<jump()>

Sets/gets a string containing one or more C<op_jump_t> values joined with
C<|> (see F<includ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	3896	4028	
==>onfig'])->Dump();
        };
    }
}

=item C<clean()>

Deletes keys matching C</^TEMP_/>.  Keys using this naming convention are
int <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	40469	40576	
==>substring (if any),

=item [3]

the opening tag

=item [4]

the text between the opening and closing tags

= <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7629	7744	
==>, 2;
	
	return $desc;
}

=item C<short_description()>

Returns a short description of the file extracted from the C< <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	666	760	
==>::Simple::PullParser>, you might
get an object of this class.

This is a subclass of L<Pod::Sim <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	572	666	
==>::Simple::PullParser>, you might
get an object of this class.

This is a subclass of L<Pod::Sim <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129819	130102	
==>{\@1}} ^= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130558	130841	
==>{\@1}} ^= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxo <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2910	3092	
==>acy for laquo
 'rchevron' => 187, # legacy for raquo

 # Remember, grave looks like \ (as in virtu\)
 #           acute looks like / (as in re/sume/)
 #           circumflex looks lik <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832085	832174	
==>ck.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}), ST <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832813	832902	
==>ck.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}), ST <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210331	210604	
==>), {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211311	211584	
==>), {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	765	865	
==>d version, compiles the result and invokes it.

print <<"END_PIR";

.HLL 'Tcl', ''
.namespace ['']

E <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2858	3033	
==>I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P13', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['', <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62097	62244	
==>CIFIER (IF ANY)

			if ($grammar =~ m/\G[(]/gc)
			{
				pos($grammar)--;

				if ($grammar =~ m/$OPTIONAL/gco)
				{
					_parse("an zero-or-one su <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	1101	1247	
==>xecutable);
GetOptions("action=s"     => \$action,
           "executable=s" => \$executable);

if ($action) {
    &{$action}();
} else {
    (-d " <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15407	15522	
==>pected, Str $desc?) returns Bool;
  multi sub is_deeply (Pair  $got, Pair  $expected, Str $desc?) returns Bool;

Bec <==
2	/Users/nnunley/parrot/config/init/defaults.pm	571	684	
==>ofile verbose prefix);

sub runstep
{
    my ($self, $conf) = @_;

    # We need a Glossary somewhere!
    $conf-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719958	720061	
==>ter, \"%.12g\", (double){{\@2}});\n  PIO_putps(interpreter, io, s);\n  if (string_str_index(interpreter, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721158	721261	
==>ter, \"%.12g\", (double){{\@2}});\n  PIO_putps(interpreter, io, s);\n  if (string_str_index(interpreter, <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	5790	5962	
==>isters(jit_info,$1)/g;
            $ops{$function} = [ $asm , $extern ];
            $function = undef;
        }
        unless ($jit_cpu) {
            $line =~ s/emitm_pu <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	2805	2936	
==>oto NEXT()>

Transforms to C<PC' = PC + S>, where C<S> is the size of an op.

=item C<goto ADDRESS(X)>

Transforms to C<PC' = X>. Th <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	858062	858601	
==>":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 974,
                  "ARGS" => [
                              "s",
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 118 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(N <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	1579	1681	
==><language_output_isnt( $language, $code, $expected, $description)> 

Runs a langugage test and passes t <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9756	9897	
==>', $verbose)
        and confess "Linker failed (see test.ldo)";
}

=item C<cc_run()>

Calls the F<test> (or F<test.exe>) executable. Any outp <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2626	2747	
==>= @_;

    return "goto *ops_addr[*(cur_opcode += $offset)]";
}

=item C<goto_pop()>

Transforms the C<goto POP()> macro i <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37344	37467	
==>t::_trace(q{Trying repeated subrule: [' . $self->describe . ']},
				  Parse::RecDescent::_tracefirst($text),
				  q{' . $r <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	44813	44939	
==>in the excursion won't be an S node.
  my($treelet, $in_s) = @_;
  
  my $is_s = ('S' eq $treelet->[0]);
  $in_s ||= $is_s; # S <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549989	550119	
==>pcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+3}};\n  interpreter->current_object = objec <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551290	551420	
==>pcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+3}};\n  interpreter->current_object = objec <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	7404	7564	
==>n (OUT, ">$HTMLDIR/file_summary.html") or
      die "Can't open $HTMLDIR/file_summary.html for writing: $!\n";

    print OUT page_header("File Coverage Summary" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	12988	13083	
==>/core.ops\"\n  opcode_t * loc;\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->control_st <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13832	13927	
==>/core.ops\"\n  opcode_t * loc;\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->control_st <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	684	794	
==>f($_[0] || '')) { # most common case: one bare string
      return bless ['', {}, $_[0] ], $class;
    } elsif( <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3369	3475	
==>cess_arg($type, $num, $op)>

Returns the C code for the specified op argument type (see
C<Parrot::OpTrans>) <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3513	3619	
==>cess_arg($type, $num, $op)>

Returns the C code for the specified op argument type (see
C<Parrot::OpTrans>) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11599	11694	
==>~~~~~~~~~~~~~~~~~~~~~~~~

sub unicode_escape_url {
  my($self, $string) = @_;
  $string =~ s/([^ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2749	2873	
==>_element({ Name => 'block' });
  }

  $handler->start_element({ Name => 'block', Attributes => { kind => 'then' } });
  $_->s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2626	2739	
==>_element({ Name => 'block' });
  }

  $handler->start_element({ Name => 'block', Attributes => { kind => $self->ki <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	34223	34692	
==>MP" => 0,
                  "NAME" => "set_addr",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 43,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 632 \"src/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	33435	33892	
==>MP" => 0,
                  "NAME" => "set_addr",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 42,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#li <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206504	206654	
==>_integer(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207446	207596	
==>_integer(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	10621	10759	
==>s =~ s/ //g;

    # type method(interpreter, self, parameters...)
    my $ret = $calltype{$type or "void"};
    $ret .= "JO";
    $ret .= j <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	22923	23124	
==>est('.out', $test_no);
            my $build_f = per_test('.build', $test_no);
            my $pdb_f = per_test('.pdb', $test_no);
            my $ilk_f = per_test('.ilk', $test_no);

            open m <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	1383	1497	
==>erage, %file_call_coverage);
my (%function_line_coverage, %function_branch_coverage, %function_call_coverage);
my ( <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	1698	1848	
==>ill compile and run, but you may see a ton of warnings.
END
    }

    # set fixed sized types
    if ($results{shortsize} == 2) {
        $conf->data- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	213	339	
==>6 2006-05-30T15:08:05.048089Z coke  $
#
#

use strict;
eval "use warnings";

package Jako::Token;


#
# CONSTRUCTOR:
#

sub new <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	10663	10768	
==>ttom: 1px solid #313052; }
    .indent2 { padding-left: 40px; }
    .indent3 { padding-left: 80px; padding <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15282	15406	
==>1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # return a single scalar
    ($x = ((@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16463	16587	
==>1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # return a single scalar
    ($x = ((@ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	45319	45455	
==>LT => -20,
		GOTOS => {
			'@5-9' => 212
		}
	},
	{#State 211
		ACTIONS => {
			'END' => 213
		}
	},
	{#State 212
		DEFAULT => <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4118	4224	
==>nd_libs(@pmcs);

    # Convert lib-GROUP.so + A.so + B.so ... -> GROUP.so
    while (my ($group, $pmcs) = e <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4222	4328	
==>nd_libs(@pmcs);

    # Convert lib-GROUP.so + A.so + B.so ... -> GROUP.so
    while (my ($group, $pmcs) = e <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1659	1859	
==>parrot) {
    print "    0\n";
}
else {

    my $image_file = $install_parrot ?
        'install_config.fpmc' : 'runtime/parrot/include/config.fpmc';
    open F, $image_file or die "Can't read '$image_ <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	11471	11625	
==>_" + id);
      if(elem.className == "details") {
	elem.className = "";  /* hack? */
	expander.innerHTML = "&laquo;";
      } else {
	elem.className = "det <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	1518	1665	
==>self->new_item('', 'docs/running.pod'),
			$self->new_item('', 'docs/porting_intro.pod'),
			$self->new_item('', 'docs/debug.pod'),
			$self->new_it <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	669	767	
==>em C<exec_prefix>

The exec prefix. Defaults to '/usr'.

=item C<bindir>

The executables directory <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	898	996	
==>em C<exec_prefix>

The exec prefix. Defaults to '/usr'.

=item C<bindir>

The executables directory <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	60457	60562	
==>e("a literal terminal", $aftererror,$line,$1);
			$item = new Parse::RecDescent::Literal($code,$lookahead, <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	51179	51345	
==>e("an autostub marker", $aftererror,$line);
				$::RD_AUTOSTUB = 1;
			}
			elsif ($grammar =~ m/$AUTOTREEMK/gco)
			{
				_parse("an autotree marker", $aftererror,$li <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	8820	8982	
==>line;
      } else {
        # Unexpected case!
        die "Continuing a paragraph but \@\$paras is empty?";
      }
      $self->{'last_was_blank'} = $self->{'st <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	9921	10002	
==>><a href="$outfile_base.lines.html#$function">@{[$function_line_coverage{$source_f <==
2	/Users/nnunley/parrot/config/init/hints/darwin.pm	491	636	
==>-double ";
    $ccflags =~ s/-flat_namespace\s*//;
    $ldflags =~ s/-flat_namespace\s*//;
    $ldflags .= " -flat_namespace ";

    $conf->data-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937768	937975	
==>string_titlecase_inplace(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	93	191	
==>e vars qw( $ATTR_PAD @ISA $VERSION $SORT_ATTRS);
$VERSION = '2.02';
BEGIN {
  @ISA = ('Pod::Simple' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	94	192	
==>e vars qw( $ATTR_PAD @ISA $VERSION $SORT_ATTRS);
$VERSION = '2.02';
BEGIN {
  @ISA = ('Pod::Simple' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017694	1017985	
==>> "function",
                  "CODE" => 1137,
                  "ARGS" => [
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 182 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	10212	10331	
==>gpos,		# OPENING TAG
		$textpos,     $closetagpos-$textpos,		# TEXT
		$closetagpos, $endpos-$closetagpos,		# CLOSING TAG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	859292	859589	
==>e",
                  "CODE" => 975,
                  "ARGS" => [
                              "s",
                              "sc",
                              "i"
                            ],
                  "BODY" => "#line 118 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      inte <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	2149	2294	
==>{
        my $src = $obj;
        $src =~ s/\.o/\.c/g;
        copy_file($src, "miniparrot/$src");
    }
}

sub copy_src {
    print "** $0: copyi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1028	1147	
==>ft->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $left  = $self->left->v <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	1036	1155	
==>ft->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $left  = $self->left->v <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	209	360	
==>le;

=head1 DESCRIPTION

Use this to query and manipulate files and their contents.

=head2 Class Methods

=over

=cut

package Parrot::IO::File;

use s <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6681	6812	
==>concat ${STEMP1}

# Emit move.
${INS} = concat ${STOREREG}
${INS} = concat " = "
${INS} = concat ${STEMP0}
${INS} = concat "\n"

# D <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	751251	751487	
==>nterpreter, {{\@1}},\n    string_copy(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	2452	2629	
==>ris_cc_shared", $solaris_cc_shared_cb);

    ################################################################
    # Parrot usually aims for IEEE-754 compliance.
    # For Solaris <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	3552	3652	
==>it function. C<$base> is the same as for C<run_core_func_decl()>.

=item C<init_set_dispatch($base_su <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	493	802	
==>f these can probably be cleaned up
my %special = qw(
    NEWS                                            [devel]doc
    PBC_COMPAT                                      [devel]doc
    PLATFORMS                                       [devel]doc
    README                                          [devel]doc
    R <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	31303	31474	
==>e_rxlocals,
                     aop('goto' => [ $R_back ]),
        $trymatch => $self->startup($num_groups),
                     @R_ops,
                     @save_rxloc <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12873	12981	
==>tion consisting of a single
					  conditional <error?> directive would 
					  normally succeed (with the va <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1336	1435	
==>tement::Goto;
use Jako::Construct::Statement::Increment;
use Jako::Construct::Statement::LoopControl <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37312	37420	
==>'N' if ($char eq 'F');
    return 'v' if ($type eq 'void');
    return '?';
}

=item C<signature($params)>

R <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862882	863252	
==>IRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 979,
                  "ARGS" => [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 138 \"src/ops/s <==
2	/Users/nnunley/parrot/config/init/defaults.pm	2811	2937	
==>ules that can be dynamically loaded.  Flags to tell
        # ld to build a shared library, e.g.  -shared for GNU ld.
        l <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	36368	36501	
==>e.  The test
number is shared amongst all threads.  This means if one thread sets
the test number using current_test() they will all b <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	4966	5119	
==>).*\{\s*$/) {
            # note the beginning of a block, and its indent depth.
            $f=length($1);
            next;
        }

        if (/^\s* <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	530907	531204	
==>i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 613,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 851 \"src/ops/math.ops\"\ <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2669	2798	
==>e
{
    my $self = shift;
    my $name = shift || return;
    
    $name .= '.c' unless $name =~ /\.[Cc]$/o;
    
    foreach my $ <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	4260	4493	
==>sub arguments {
    my (@args) = @_;
    
    my %conversions =
    (
        channel => '__channel',
        expr    => '__expr',
        int     => '__integer',
        list    => '__list',
        script  => '__script',
        var <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7233	7361	
==>nget);

      } elsif ($tagname eq 'Data') {
        my $next = $self->get_token;
        next unless defined $next;
        unle <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64751	64875	
==>_FLAG);\n  new_interp->code = interpreter->code;\n  runops(new_interp, REL_PC + {{\@2}});\n  {{+=3}};\n",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65702	65826	
==>_FLAG);\n  new_interp->code = interpreter->code;\n  runops(new_interp, REL_PC + {{\@2}});\n  {{+=3}};\n",
                  " <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2296	2389	
==>claration of identifier '%s' within same block. Previous declaration on line %d of file '%s'." <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	28324	28463	
==>let = shift @stack) {
    for($i = 2; $i < @$treelet; ++$i) { # iterate over children
      next unless ref $treelet->[$i];  # text nodes ar <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	634	728	
==>SCII
);

$FAR_CHAR = "?" unless defined $FAR_CHAR;
$FAR_CHAR_NUMBER = ord($FAR_CHAR) unless def <==
2	/Users/nnunley/parrot/lib/Test/More.pm	943	1084	
==>= shift;
      my $level = shift;
      (undef) = shift;                  # redundant arg
      my $callpkg = caller($level);
      $pkg->expo <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2386	2487	
==>b end_Para        { $_[0]->emit_par( 0) }
sub end_item_bullet { $_[0]->emit_par( 0) }
sub end_item_num <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1954	2055	
==>b end_Para        { $_[0]->emit_par( 0) }
sub end_item_bullet { $_[0]->emit_par( 0) }
sub end_item_num <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	9244	9384	
==>_func_func
#

my ($op_info, $op_func, $getop);
$op_info = $op_func = 'NULL';
$getop = '( int (*)(const char *, int) )NULL';

if ($suffix eq ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81910	82017	
==>> "#line 1196 \"src/ops/core.ops\"\n  internal_exception(1, \"don't use compile - just invoke the compiler\" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82804	82911	
==>> "#line 1196 \"src/ops/core.ops\"\n  internal_exception(1, \"don't use compile - just invoke the compiler\" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	4807	4920	
==><= | >>= )(.*)$}x) {
      push @tokens, Jako::Token->new(
        $file, $line, 'bit-assign', undef, $1);
      $ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	52876	52993	
==>s up to four optional arguments:

=over 4

=item 1.

A string to be processed (C<$_> if the string is omitted or C<und <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2874	3003	
==>{ return shift->{NAME}; }

sub file { return shift->{FILE}; }
sub line { return shift->{LINE}; }

sub is_global
{
  my $self = shi <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	883	978	
==>ot APIs definitions their declarations), bad things are listed
with C<--->.

=over 4

=item Miss <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	1542	1662	
==>l
    F - file name symbol
    R - read-only data symbol
    T - code/text symbol
    U - undefined symbol

Uppercase ind <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	2151	2355	
==>>$op</item>\n";
        $ops{$op} = 1;
    }
}

for my $op (@imcc_oplike) {
    $op =~ s/\.//g;
    next if ($ops{$op});
    print "      <item>$op</item>\n";
    $ops{$op} = 1;
}

print <<END;
    </list> <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	1912	2073	
==>ometimes use C preprocessor defines to shorten the API names
but please do carefully contain the effect so that only the Parrot
itself sees those shortened defini <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	28410	28630	
==>$x = (pop @stack)->[1];
	$throw = "throw $x $cmt";
    }
    else {
	for (my $i = $n-1; $i > 0; $i--) {
	    my $p = pop @stack;
	    print <<EOC;
	# arg $p->[1]
EOC
	}
	my $x = (pop @stack)->[1];
	print <<EOC;
	$x\["_mes <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	7500	7608	
==>}
	push @stream, reverse @stack;	
	#print STDERR "Outta RPN convert\n";
	return(@stream);
}

sub fixup {
	my( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1149	1251	
==>pe eq 'global')) {
    my $pmc_type = $self->ident->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1143	1245	
==>pe eq 'global')) {
    my $pmc_type = $self->ident->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_p <==
2	/Users/nnunley/parrot/lib/Test/More.pm	32204	32345	
==>rical accident, this is not a true set comparision.
While the order of elements does not matter, duplicate elements do.

Test::Deep contains m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024018	1024244	
==>=> [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 210 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parr <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11518	11710	
==>) {
                    $state = 0;
                }
            }
            $tokens[-1] .= $c;
        }
    }

#    for (0..$#tokens) { print STDERR "  $tokens[$_] $types[$_]\n"; }

    re <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	7577	7766	
==>, 710,
 'tilde'    , 732,
 'ensp'     , 8194,
 'emsp'     , 8195,
 'thinsp'   , 8201,
 'zwnj'     , 8204,
 'zwj'      , 8205,
 'lrm'      , 8206,
 'rlm'      , 8207,
 'ndash'    , 8211,
 'md <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26480	26646	
==>econstructor' => 46,
			'args' => 135,
			'key' => 136
		}
	},
	{#State 82
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'N <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307613	307979	
==>DIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 358,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 1038 \"s <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2474	2578	
==>ock (.bb) files.
    my $cmd = "gcov -f -b -o $dirname $src_filename";
    print "Running $cmd\n" if $DEB <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6927	7095	
==>gister to load
	# into here. Note that we must clear up any lazy moves we have not
    # done first.
	if ($need_dest) {
        $pir = _do_lazy_moves('_${CURIC}');
		$pi <==
2	/Users/nnunley/parrot/languages/pugs/t/pmc.pm	519	629	
==>d $P1 
    if $I0 goto ok
    print "not "
ok:
    print "ok\n"
.end
CODE
ok
OUTPUT

main::pir_output_is(<< "CO <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1692	1797	
==>:= pos');
}

sub output_increment {
    my ($self, $distance, $failLabel) = @_;
    die "invalid distance" <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1445	1550	
==>:= pos');
}

sub output_increment {
    my ($self, $distance, $failLabel) = @_;
    die "invalid distance" <==
2	/Users/nnunley/parrot/config/auto/pack.pm	2096	2234	
==>e_n => ($conf->data->get('numvalsize') == 12 ? 'D' : 'd')
    );

    #
    # Find out what integer constant type we can use
    # for poin <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9467	9624	
==>8 */
GG,$a,$b,$c,$d,$_[17],5,0xa9e3e905,/* 29 */
GG,$d,$a,$b,$c,$_[6],9,0xfcefa3f8,/* 30 */
GG,$c,$d,$a,$b,$_[11],14,0x676f02d9,/* 31 */
GG,$b,$c,$d,$a,$_[16] <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	6522	6618	
==>l -lcomdlg32 -ladvapi32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid -lws2_32 -lmpr -lwinmm -lv <==
2	/Users/nnunley/parrot/config/init/hints/msys.pm	413	509	
==>l -lcomdlg32 -ladvapi32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid -lws2_32 -lmpr -lwinmm -lv <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24892	24990	
==>hildren}}) {
      my $temp = $self->_generate($node->{children}[$_]);
      $self->_add_inst('','a <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	16049	16196	
==>ar not needed if there are no params and a void return
        $call_state = '' if 'v' eq $return;
        print NCI << "HEADER";
static void
pcf_${ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	5237	5532	
==>ppa'    , 922,
 'Lambda'   , 923,
 'Mu'       , 924,
 'Nu'       , 925,
 'Xi'       , 926,
 'Omicron'  , 927,
 'Pi'       , 928,
 'Rho'      , 929,
 'Sigma'    , 931,
 'Tau'      , 932,
 'Upsilon'  , 933,
 'Phi'      , 934,
 'Chi'      , 935,
 'Psi'      , 936,
 'Omega'    , 937,
 'alpha'    , 9 <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	2634	2881	
==>' ) )
                    );
        print join( "\n", @files );
        print "\n" if @files;
        exit;
    }
    elsif (@{ $options{arguments} })
    {
        # Someone specified tests for me to run.
        return grep { -f $_ } @{ $options <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	2419	2572	
==>ut with the unexpected result is false.

=item C<past_output_is($code, $expected, $description)>

Runs the PAST code and passes the test if a string compa <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	17556	17679	
==>cmt
EOC
}

sub JUMP_ABSOLUTE()
{
    my ($n, $c, $cmt) = @_;
    my $targ = "pc_$n";
    print <<EOC;
	goto $targ $cmt
EOC
} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	306634	306789	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless_null",
                  "FLAGS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307427	307582	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless_null",
                  "FLAGS" <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	440	566	
==>files/dynclasses_pl.in>.  This script is used for building
dynamic PMCs.

=cut

use strict;

use File::Copy qw(copy);

# qq[] i <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	1166	1285	
==>="FLO";
			}
		}
		emit($numtype);
		goto MAIN;
	}
NOTNUM:
	#if ($cur eq "-" and $next =~ /[\d\.]/) {
	#	append;
	#	fetc <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	6423	6572	
==>_[0..2], "le") },
	'>=' => sub { &{$opsubs{"="}}(@_[0..2], "ge") },
	'<>' => sub { &{$opsubs{"="}}(@_[0..2], "ne") },
	'<' => sub { &{$opsubs{"="}}(@_ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	918	1031	
==>return undef unless defined $in and length $in;
  
  # Convert to decimal:
  if($in =~ m/^(0[0-7]*)$/s ) {
    $in <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2277	2390	
==>return undef unless defined $in and length $in;
  
  # Convert to decimal:
  if($in =~ m/^(0[0-7]*)$/s ) {
    $in <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	31926	32168	
==>rent tree node
      next unless ref $treelet->[$i];  # text nodes are uninteresting
      unless($treelet->[$i][0] eq 'L') {
        unshift @stack, $treelet->[$i]; # recurse
        next;
      }
      
      
      # By here, $treelet->[$i] <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	14000	14141	
==>=~ s/\bOP_SIZE\b/{{^$op_size}}/mg;

        $branch   ||= $body =~ s/\bgoto\s+OFFSET\((.*?)\)/{{+=$1}}/mg;
                      $body =~ s/\b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22050	22183	
==>],
                  "BODY" => "#line 356 \"src/ops/core.ops\"\n  if (!{{\@1}}->vtable->get_bool(interpreter, {{\@1}})) {\n    {{+={{\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1557	1660	
==>serEndToken->new( I<tagname> )
>>

=head1 SEE ALSO

L<Pod::Simple::PullParserToken>, L<Pod::Simple>, L<P <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4638	4745	
==>my ($self, $bs) = @_;

    return "static void *const* ${bs}ops_addr;\n\n";
}

=item C<run_core_func_start() <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10424	10536	
==>tate ".
#DBG>						 $$states[$$stack[-1][0]]{ACTIONS}{error}.
#DBG>						 ".\n";

		push(@$stack, [ $$states[ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9956	10064	
==>tate ".
#DBG>						 $$states[$$stack[-1][0]]{ACTIONS}{error}.
#DBG>						 ".\n";

		push(@$stack, [ $$states[ <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	2677	2781	
==>r $!";

# To start, save all the registers, just in case
print OUTPUT "saveall\n";


my @libs;
my ($cur_p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605810	605949	
==>"
                            ],
                  "BODY" => "#line 441 \"src/ops/object.ops\"\n    Parrot_add_attribute(interpreter, {{\@1} <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	32323	32440	
==>2
       or (@{$treelet->[$i]} == 3 and $treelet->[$i][2] eq '')
      ) {
        $self->whine( $start_line, "An empt <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	42725	42842	
==>2
       or (@{$treelet->[$i]} == 3 and $treelet->[$i][2] eq '')
      ) {
        $self->whine( $start_line, "An empt <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407669	407920	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "connect",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408567	408818	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "connect",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i", <==
2	/Users/nnunley/parrot/examples/benchmarks/shared_ref.pl	354	466	
==>s.

=cut

use strict;
use threads;
use threads::shared;

for my $i (0..99_999) {
    my $r :shared;
    my $j :sh <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506134	506572	
==>",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 582,
                  "ARGS" => [
                              "n",
                              "n",
                              "n"
                            ],
                  "B <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	172	275	
==>require Exporter;
require Parrot::Test;

@EXPORT = ( qw(output_is output_like output_isnt), @Test::More: <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	89	192	
==>require Exporter;
require Parrot::Test;

@EXPORT = ( qw(output_is output_like output_isnt), @Test::More: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	301	417	
==>gs";

package Jako::Construct::Expression::Call;

use Carp;

use base qw(Jako::Construct::Expression);

sub new
{
  m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450427	450710	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 516,
                  "ARGS" = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7001	7155	
==>value);

      foreach my $ident (@identifiers) {
        if ($access eq 'var') {
          my $var    = Jako::Construct::Declaration::Variable->new($block <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	240	354	
==>tput_like output_isnt), @Test::More::EXPORT );
@ISA = qw(Exporter Test::More);

sub import {
    my( $class, $plan, <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	157	271	
==>tput_like output_isnt), @Test::More::EXPORT );
@ISA = qw(Exporter Test::More);

sub import {
    my( $class, $plan, <==
2	/Users/nnunley/parrot/editor/ops2vim.pl	231	339	
==>rameter has been passed
@ARGV = @ARGV
    ? map {glob $_} @ARGV
    : die "usage: " . basename($0) . " FILE [ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	5422	5530	
==>ou're using this through
# perl6, then you can turn this on with the $RX_DEBUG environment
# variable)
#
# Ot <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	36959	37196	
==>har_lower_case_p,
  'char->integer'    => \&_op_char_integer,
  'integer->char'    => \&_op_integer_char,
  'char-upcase'      => \&_op_char_upcase,
  'char-downcase'    => \&_op_char_downcase,

###
### Strings
###

  'string?'       => \ <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	536	694	
==>$spec_fh>;
    chomp($pattern);

    $_ = <$spec_fh>;
    my @spec;
    while (1) {
         my ($input, $output);

         last if ! defined $_;
         die <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	16729	16895	
==>require lookahead.
    #   Actually, an "=item Foo" inside an <over type=text> region
    #   and any =item inside an <over type=block> region (rare)
    #   don't req <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767858	768247	
==>=> [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 867,
                  "ARGS" => [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 335 \"src/ops/set.ops\"\n    if ({{\@1} <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	514	651	
==>ource code files in the distribution pass in
C<all_source> instead of a list of files.

=head1 TODO

Make better use of CPAN modules.

=he <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35203	35327	
==>']<< (return value: [}
					. $_tok . q{]},
					  
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{"name" <==
2	/Users/nnunley/parrot/config/gen/platform.pm	1679	1855	
==>D

/*
** platform.h [$platform version]
**
** DO NOT EDIT THIS FILE
**
** Generated by config/gen/platform.pm
*/

END_HERE

    foreach (@headers) {
        my $header_file = "c <==
2	/Users/nnunley/parrot/config/gen/platform.pm	1820	1955	
==>ders) {
        my $header_file = "config/gen/platform/generic/$_";
        if (-e "config/gen/platform/$platform/$_") {
            $he <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775146	775284	
==>"ic"
                            ],
                  "BODY" => "#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776057	776195	
==>"ic"
                            ],
                  "BODY" => "#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_int( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606499	606740	
==>87,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 441 \"src/ops/object.ops\"\n    Parrot_add_attribute(interpreter, {{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504423	504887	
==>e",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 580,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 631 \"src <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	56103	56240	
==>lated and
eventually become the next field (unless the fourth argument is true, in which
case they are disgarded).

For example, the follo <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3314	3452	
==>ept_codes(@_to_accept);
  $new->accept_codes('VerbatimFormatted');
  DEBUG > 2 and print "To accept: ", join(' ',@_to_accept), "\n";
  $new <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878698	879141	
==>AGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 996,
                  "ARGS" => [
                              "s",
                              "s",
                              "i" <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	37521	37690	
==>ring_gt_p,
  'string<=?'     => \&_op_string_le_p,
  'string>=?'     => \&_op_string_ge_p,
  'string-ci=?'   => \&_op_string_ci_eq_p,
  'string-ci<?'   => \&_op_string_ci <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	5910	6024	
==>b,c)>

Same as above, but calls the current method.

=item C<OtherClass.SUPER(a,b,c)>

Calls the overridden impleme <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	41497	41610	
==>{
  my($self,@stack) = @_;

  my($i, $treelet, $content, $replacer, $charnum);
  my $start_line = $stack[0][1]{'st <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63218	63328	
==>$rule and $rule->addcall($name);

						_check_insatiable($name,$1,$grammar,$line) if $::RD_CHECK;
					}
				} <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63939	64049	
==>$rule and $rule->addcall($name);

						_check_insatiable($name,$1,$grammar,$line) if $::RD_CHECK;
					}
				} <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3555	3699	
==>cfiles))
              or die "pmc2c library creation failed ($?)\n";
        }
    }
} 
elsif ($mode eq 'compile') {
    my ($group_files, $grou <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3659	3803	
==>cfiles))
              or die "pmc2c library creation failed ($?)\n";
        }
    }
} 
elsif ($mode eq 'compile') {
    my ($group_files, $grou <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	34106	34215	
==>hich
two or more delimiter brackets are specified is not significant.

A "balanced-bracket-delimited substring <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13412	13527	
==>Reject/
		|| ($items[0]->describe||"") =~ /<autoscore/
		))
	{
		Parse::RecDescent::_warn(1,"Optimizing away product <==
2	/Users/nnunley/parrot/lib/Test/More.pm	17936	18057	
==>ompilation aborted at .*$}
                {BEGIN failed--compilation aborted at $filename line $line.}m;
        $Test->d <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3237	3408	
==>e
# format of this file.
# See docs/submissions.pod on how to recreate this file after SVN
# has been told about new or deleted files.
END_HEADER

open my $SKIP, '>', 'MANI <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3597	3692	
==>($mandatory,$checklist,$inarray,$outhash)=@_;
	my($prm,$value);
	my($prmlst)={};

	while(($p <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3409	3500	
==>($mandatory,$checklist,$inarray,$outhash)=@_;
	my($prm,$value);
	my($prmlst)={};

	while(($p <==
2	/Users/nnunley/parrot/config/auto/gc.pm	1441	1623	
==>@) {
      $test = cc_run();
    }
    cc_clean();
    # used size should be somewhere here
    unless ($test >= 128 && $test < 155) {
      # if not, use own copy of malloc
      $gc <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	8643	9029	
==>EY$/i)
                {
                    $type = "ki";
                }
                else
                {
                    $type = lc substr($type, 0, 1);
                }

                # convert e.g. "labelvar" to "invar" and remember labels

                if ($use =~ /label(\w*)/)
                {
                    push @labels, 1;
                    $use = "i <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8665	8795	
==>[NEXT] eq "COMM")) {  # Line number!
		create_label();
		$currline="$labels{$syms[CURR]}";
		label_defined($syms[CURR]);
		push @{$ <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	4918	5060	
==>e++;
        next unless $_;

        if (/^(\s*).*\{\s*$/) {
            # note the beginning of a block, and its indent depth.
            $f <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	12398	12537	
==>ay not want
    to link directly to a smoke.
  </p>
    
  <p> 
    Note: Timezone is UTC.<br />
  </p>

  <table>
    <tmpl_loop name=branc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196150	196458	
==>function",
                  "CODE" => 232,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 335 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	31311	31448	
==>kslash (C<\>).
If the prefix is not specified, the
pattern C<'\s*'> - optional whitespace - is used. If the delimiter set
is also not spec <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578377	578622	
==>ct.ops\"\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	3024	3194	
==>f->{SUFFIX} if exists $self->{SUFFIX};
    
    my ($suffix) = $self->name =~ /\.([^.]+)$/;
    
    $self->{SUFFIX} = defined $suffix ? $suffix : '';
    
    return $sel <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819752	820026	
==>interpreter, entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820712	820986	
==>interpreter, entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349275	349512	
==>@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350277	350514	
==>@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4140	4276	
==>m
	set $result, 0.0
EQ_$eqnum: noop
CODE
	},
	'and' => sub {
		my($a1,$a2,$result,$op,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5306	5454	
==>t, $fail"
              unless $first == 0;
            push @ops, "lt <rx_tmp>, $last, $pass";
        } else {
            push @ops, "ge <rx_tmp>, <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	469	599	
==>ap { $done += $_->{'done'}; $total += $_->{'total'}; } @results;
my $percent = int(($done / $total) * 100);
print "\\hline\nSumma <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	633	750	
==>ap { $done += $_->{'done'}; $total += $_->{'total'}; } @results;
my $percent = int(($done / $total) * 100);
print "S <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	9693	9801	
==>urrent package
name as the class name.

An object of a class created by the first and third forms is
based on <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1656	1804	
==>do its clever tricks.

=cut

sub opsarraytype 
{ 
    return 'opcode_t' 
};

=item C<core_type()>

Implemented in subclasses to return the type of co <==
2	/Users/nnunley/parrot/tools/build/list_unjitted.pl	503	633	
==>}
    else { die "Misformated line: $.";}
}

close OPS or die "Noo.. $!";

open JIT, '<', "jit/$ARGV[0]/core.jit" or die "Could not <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	173	286	
==>pl - Parser for .ops files

=head1 SYNOPSIS

    % perl tools/build/ops2c.pl trans [--help] [--no-lines] [--dynami <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	950	1085	
==>.D.  March 12, 2004
    if ($conf->data->get('cpuarch') =~ /sun4|sparc64/) {

        # CFLAGS entries must be left-aligned.
        pri <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24629	24782	
==>= (opcode_t *)p->vtable->invoke(interpreter, p, dest);\n  {{=dest}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34087	34202	
==>ret = "return ret_val;";
    }
    # I think that these will be out by one - NWC
    my $l = $self->line_directive($ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2617	2853	
==>($h = $file) =~ s/\.\w+$/.h/;
            $h =~ s/(\w+)\.h$/pmc_$1.h/;
            my $c;
            ($c = $file) =~ s/\.\w+$/.c/;

            _write_a_file($generator, $h, $c);
        }
    }
}

=item C<gen_h>

Writes the header file <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434502	434749	
==>patch_p_pnp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435517	435764	
==>patch_p_pnp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2222	2322	
==>f (defined $sym and $sym->block eq $block) {
    $self->SYNTAX_ERROR("Redeclaration of identifier '%s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1969	2069	
==>f (defined $sym and $sym->block eq $block) {
    $self->SYNTAX_ERROR("Redeclaration of identifier '%s <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30147	30264	
==>->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end translation\n";

		# Push load type onto the <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11940	12076	
==>yms[CURR]";
			}
		}
		if ($type[CURR] =~ /STRING|BARE|INT|FLO/) {
			push @ld, { type => "STRING", value => qq{"$syms[CURR]"} };
		} els <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30724	30853	
==>and append code it generates.
		my $post_load = $srm->post_load($need_dest);
		$pir .= "### post_load\n";
		$pir .= sub_meta($post <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	17106	17243	
==>no);

            my $opt = $code_f =~ m!opt(.)! ? "-O$1" : "-O1";
            my $args = $ENV{TEST_PROG_ARGS} || '';
            $args .= <==
2	/Users/nnunley/parrot/examples/benchmarks/arriter.pl	218	353	
==>d1 SYNOPSIS

    % time perl examples/benchmarks/arriter.pl

=head1 DESCRIPTION

Sets up an array and then loops over its contents, incr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427921	428007	
==>ne 69 \"src/ops/math.ops\"\n  mmd_dispatch_v_pn(interpreter, {{\@2}}, {{\@3}}, {{\@1}}) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428808	428894	
==>ne 69 \"src/ops/math.ops\"\n  mmd_dispatch_v_pn(interpreter, {{\@2}}, {{\@3}}, {{\@1}}) <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	17711	17890	
==>s and other things that make no sense in the
        # preamble.
        $_ = Parrot::Op->rewrite_body($_, $trans);
    }

    return $_;
}

=item C<version($major, $minor, $patch) <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	11247	11400	
==>e { }

    my (@methods, %meth_hash, $class_init);

    while ($classblock =~ s/($signature_re)//) {
        $lineno += count_newlines($1);
        my ($f <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Transcode.pm	475	595	
==>: $@\n";
  } else {
    DEBUG and print "OK, loaded $class.\n";
    @ISA = ($class);
    last;
  }
}

sub _blorp { return <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	9617	9745	
==>ore_opfunc[$i]}[0];
    $extern = $core_ops{$core_opfunc[$i]}[1];

    my $jit_func;
    my $op = $Parrot::OpLib::core::ops->[$i] <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	2335	2456	
==>rn shift->is('exfix-arith');   }
sub is_goto          { return shift->is('goto');          }
sub is_ident         { return <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131392	131718	
==>}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132247	132573	
==>}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	710	851	
==>abstract_items = ();
	
	foreach my $file ($dir->files_with_suffix('pmc'))
	{
	    my $code = $file->read;
	    
	    if ( $code =~ /^pmclass\s <==
2	/Users/nnunley/parrot/tools/dev/cc_flags.pl	178	464	
==>9607 2006-05-30T15:23:20.183054Z coke  $
################################################################################

=head1 NAME

tools/dev/cc_flags.pl - Process compiler flags

=head1 SYNOPSIS

    % perl tools/dev/cc_flags.pl transform compiler flags

=head1 DESCRIPTION

This sc <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	16857	16986	
==>else {
        push @norms, sprintf " %-10s , chr(%s),\n", "'$name'", $value;
      }
    } elsif(m/<!ENT/) {
      print "# Skipp <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	51647	51754	
==>TION};
					$self->{_AUTOTREE}{NODE}
						= new Parse::RecDescent::Action(q{{bless \%item, $item[0]}},0,-1) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109754	110050	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":base_core",
                  "ARGD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110533	110829	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":base_core",
                  "ARGD <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	42998	43130	
==>(my $i = $#$p; $i > 2; $i--) {
    # work backwards over the lines, except the first (#2)
    
    #next unless $p->[$i]   =~ m{^#:([ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11737	11863	
==>t them individually, as with
C<use Pod::Escapes qw(symbolname symbolname2...);>,
or you can do C<use Pod::Escapes qw(:ALL);> to <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1867	1991	
==>lear a temporary string register

    $compiler->emit("  $temp = \"\"");

    while (1) {
      last unless defined $string a <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	23068	23216	
==>pt{debug},
        "verbose+"      => \$opt{verbose},
        "library=s"     => \$opt{library},
    ) or exit(1);
    unshift @include, ".", "$FindB <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	13784	13924	
==>DDRESS\(\( (.*?) \)\)/{{=$1}}/mg;
                      $body =~ s/\bexpr\s+OFFSET\(\( (.*?) \)\)/{{^+$1}}/mg;
                      $body =~ <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6858	6965	
==>eds_build("$pmc.c", "$pmc.pmc")) {
        run("$PMC2C --c $pmc.pmc")
          or die "pmc2c code generatio <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7069	7176	
==>eds_build("$pmc.c", "$pmc.pmc")) {
        run("$PMC2C --c $pmc.pmc")
          or die "pmc2c code generatio <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	1636	1822	
==>tokens, Jako::Token->new(
        $file, $line, 'literal', 'I', $1);
      $text = $2;
      next;
    }

    #
    # String literals:
    #

=begin commented_out

    if ($text =~ m{^((? <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	28669	28806	
==>x # TODO create, args";
    }
    print <<EOC;
	$throw $cmt
EOC
}
sub GET_ITER
{
    my ($n, $c, $cmt) = @_;
    my $it = temp('P');
    m <==
2	/Users/nnunley/parrot/config/inter/shlibs.pm	1164	1256	
==>f->data->set(cc_shared => $cc_shared);
    $self->set_result(($cc_shared =~ m/^ ?$/) ? 'done' <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	332	445	
==><goto> run loop.

=head2 Instance Methods

=over 4

=cut

package Parrot::OpTrans::CGoto;

use strict;
use warning <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9320	9453	
==>s v%s, using %s v%s, under Perl v%s at %s GMT -->\n",
    # None of the following things should need escaping, I dare say!
    ref($se <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	7989	8248	
==>"
                            ],
                  "BODY" => "#line 171 \"src/ops/core.ops\"\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	150	253	
==>preter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm 19606 2006-05-30T15:08:05. <==
2	/Users/nnunley/parrot/lib/Test/More.pm	2028	2163	
==>);
      is( foo(42), 23, $test_name );
  };

  can_ok($module, @methods);
  isa_ok($object, $class);

  pass($test_name);
  fail($test_ <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	10298	10420	
==>op2 + $N2
    $N2 = ln $N2
    .return ($N2)
neg_seven: # arctanh(x) = .5 * (ln (1+x) - ln (1 -x))
    $N1 = op2 + 1
    $N <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	796	884	
==>/gettingstarted.pod'),
			$self->new_item('', 'docs/submissions.pod'),
			$self->new_item <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Examples.pm	3	108	
==>opyright (C) 2004, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Docs/Section/Examples.pm 20333 2006-06-2 <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	1784	1895	
==>tools/build/pmc2c.pl] . $PATHQUOTE;

# Actual commands
sub compile_cmd {
    my ($target, $source) = @_;

    re <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	1875	1986	
==>tools/build/pmc2c.pl] . $PATHQUOTE;

# Actual commands
sub compile_cmd {
    my ($target, $source) = @_;

    re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609346	609438	
==>rc/ops/object.ops\"\n    {{\@1}} = VTABLE_get_attr_str(interpreter, {{\@2}}, {{\@3}});\n    { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610254	610346	
==>rc/ops/object.ops\"\n    {{\@1}} = VTABLE_get_attr_str(interpreter, {{\@2}}, {{\@3}});\n    { <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	29638	29744	
==>ontext, except (of course) that the
extracted substring is not returned.

=head2 A note about prefixes

Pre <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	3978	4153	
==>}; # tagged_op
                if (! $dest_stmt) {
                    if ($ctx->{external_labels}{$dest->{label}}) {
                        # Mark external label as reachable <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408274	408367	
==>c/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_connect(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409173	409266	
==>c/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_connect(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}} <==
2	/Users/nnunley/parrot/config/init/hints/freebsd.pm	595	903	
==>version = `/usr/sbin/sysctl -n kern.osreldate`;
    }
    chomp $osversion;

    $libs .= ' -pthread';

    $conf->data->set(
        libs                    => $libs,
        link                    => 'g++',
        rpath                   => '-Wl,-R',

        has_dynamic_linking     => 1,
        parrot_ <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	7155	7288	
==>nt <<END_C;
    break;

default:
    return cur_opcode;
}
    return(0);
}
END_C

    return 0;
}


#
# compile_file()
#

sub compile_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	168	414	
==>tax error.\n";

    if ( exists $parser->YYData->{nb_error} ) {
        $parser->YYData->{nb_error}++;
    }
    else {
        $parser->YYData->{nb_error} = 1;
    }

    print STDOUT 'lua: ', $parser->YYData->{srcname}, ':',
        $p <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	1075	1329	
==>, $dir);
    my $exit_code = 0;

    $pycmd = "python  $lang_f";
    $cmd = "pirate $lang_f";

    # For some reason, if you redirect both STDERR and STDOUT here,
    # you get a 38M file of garbage. We'll temporarily assume everything
    # works and ign <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033190	1033293	
==>n    parrot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@1}};\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034288	1034391	
==>n    parrot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@1}};\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035384	1035483	
==>n    parrot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@2} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036548	1036647	
==>n    parrot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@2} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819581	819679	
==>ntry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n\n  if (!entry) {\n    internal <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820541	820639	
==>ntry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n\n  if (!entry) {\n    internal <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	22141	22328	
==>%$func)[0];
				$func = (values %$func)[0];
			}
			else
			{
				push @class, undef;
			}
		}

		FIELD: while (pos($$textref) < length($$textref))
		{
			my $field;
			my @bits;
			foreac <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	20334	20512	
==>nd add everything it exports to a list.
        my @exports = ();
        my $file = find_file($include, "pmc_$pmcname.h", 1);

        my $fh = open_file( "<", $file );
        w <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28086	28209	
==>Op( $parser,
        'arg1'   => $cond->[0],
        'result' => $l_break,
    );
    push @opcodes, new BranchOp( $pars <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	35031	35150	
==>f C<'{..}'> brackets are properly nested and evenly balanced.
(In a scalar context just the first element of the array w <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1108130	1108294	
==>=> "#line 361 \"src/ops/experimental.ops\"\n    INTVAL type;\n    switch ({{\@2}}->vtable->base_type)\n    {\n        case enum_class_String:\n\t        type = pmc_t <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	2193	2374	
==>on) {
            $conf->data->set(cc_shared => '-fPIC');
        } else {
            $conf->data->set(cc_shared => '-KPIC');
        }
        $conf->data->deltrigger("gccversion", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	817785	818057	
==>UMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "saveall",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 926,
                  "ARGS" => [],
                  "BO <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	43519	43635	
==>$content);
      DEBUG > 1 and print " Considering E<$content> with char ",
        defined($charnum) ? $charnum : "u <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288244	288390	
==>"i"
                            ],
                  "BODY" => "#line 935 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289100	289246	
==>"i"
                            ],
                  "BODY" => "#line 935 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+=4}} <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6879	7024	
==>0;
#DBG>				};
				};


                push(@$stack,[ $act, $$value ]);

					$$token ne ''	#Don't eat the eof
				and	$$token=$$value=un <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6561	6698	
==>0;
#DBG>				};
				};


                push(@$stack,[ $act, $$value ]);

					$$token ne ''	#Don't eat the eof
				and	$$token=$$value=un <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	329402	329664	
==>table->get_number(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	330880	331142	
==>table->get_number(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87908	88476	
==>IRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 109,
                  "ARGS" => [
                              "p",
                              "p",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 1215 \"src/ops/core.ops\"\n  {{\@1}} = Parrot_make_cb(interpreter <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	2782	2887	
==>bol
{
  my $self = shift; # Required: Jako::Construct::Block
  my $name = shift; # Required: string (TODO: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3866	3971	
==>bol
{
  my $self = shift; # Required: Jako::Construct::Block
  my $name = shift; # Required: string (TODO: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	275083	275392	
==>"inline",
                  "CODE" => 320,
                  "ARGS" => [
                              "i",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 876 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4} <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	11755	12218	
==>y($self, $got, $type, $expect) = @_;

    foreach my $val (\$got, \$expect) {
        if( defined $$val ) {
            if( $type eq 'eq' ) {
                # quote and force string context
                $$val = "'$$val'"
            }
            else {
                # force numeric context
                $$val = $$val+0;
            }
        }
        else {
            $$val = 'undef';
        }
    }

    return $self->diag(sprintf <<DIAGNOSTIC, $go <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4153	4276	
==>$needed eq "0") {
        return ();
    } else {
        return "sub <rx_tmp>, $lenvar, <rx_pos> # need $needed more chars" <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	1711	1838	
==>/^[[:graph:]]$/;  # CCLASS_GRAPHICAL      
    $ret |= 0x0100 if $chr =~ /^[[:blank:]]$/;  # CCLASS_BLANK  
    $ret |= 0x0200 i <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11527	11652	
==>ctorial(4)
end if

' Changed ref'd var from 5 to 12
function myfunc(a)
	print a
	a=12
        myfunc=80
end function
z=5
T=myf <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2039	2151	
==>d_over_number  { --$_[0]{'Indent'} }
sub   end_over_text    { --$_[0]{'Indent'} }
sub   end_over_block   { --$_[0 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1607	1719	
==>d_over_number  { --$_[0]{'Indent'} }
sub   end_over_text    { --$_[0]{'Indent'} }
sub   end_over_block   { --$_[0 <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	10851	10997	
==>rint SOURCE <<END_C;
  { /* $index */
    /* type $type, */
    "$name",
    "$full_name",
    "$func_name",
    /* "",  body */
    $jump,
    $ar <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1921	2023	
==>x[$1]/g;
	$c =~ s/(S\d{2})/$s{$1}/;
        $c =~ s/^(.*)=rotate_left\((.*),(.*)\)\+(.*)$//;

	#my $rot <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	13510	13605	
==>is not initialized
by default.

The accessor's argument, if any, is assigned to the element. The <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8878	8971	
==>try(interpreter,\n\t    enum_fixup_label, label);\n    if (!fe)\n\tinternal_exception(1, \"bra <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9994	10087	
==>try(interpreter,\n\t    enum_fixup_label, label);\n    if (!fe)\n\tinternal_exception(1, \"bra <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	12485	12773	
==>bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT",
                  "NAME" => "jsr",
                  "FLAGS" => ":base_core,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ], <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1027533	1027660	
==>bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT",
                  "NAME" => "sle <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7898	7996	
==>i%=54
if i% then print "This is true" else print "Oops (int)"
i=0
if i then print "Should not happe <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14885	14983	
==>i%=54
if i% then print "This is true" else print "Oops (int)"
i=0
if i then print "Should not happe <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	7295	7451	
==>oor'   , 8970,
 'rfloor'   , 8971,
 'lang'     , 9001,
 'rang'     , 9002,
 'loz'      , 9674,
 'spades'   , 9824,
 'clubs'    , 9827,
 'hearts'   , 9829,
 ' <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	8448	8571	
==>how, $Uninit, $uninit) if $show;
		want_show(\$show, $Const,  $const ) if $show;
		want_show(\$show, $Global, $global) if $s <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10827	10928	
==>g ($node, 1)->{value};
  my $temp = $self->_generate(_get_arg($node,2));
  if ($temp !~ /^P/) {
    my <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	12501	12735	
==>($_));
            
            my $atag="";
            if (/^\s*([^\(\s]+)\(/) {
                $atag="<a name=\"$1\"></a>";
            } 

            my ($initial) = substr($_, 0, 16);
            if ($initial =~ /^\s*\d+\s*$/) { <==
2	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1860	1948	
==>ource: "$options{prefix}\\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs
${icu <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2236	2364	
==>lf->path);
    }
    
    return -d $self->path;
}

=item C<relative_path($directory)>

=item C<relative_path($file)>

=item C<re <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	10937	11219	
==>me",
    "$func_name",
    /* "",  body */
    $jump,
    $arg_count,
    $arg_types,
    $arg_dirs,
    $labels,
    $flags
  },
END_C

        $index++;
    }
    print SOURCE <<END_C;
};

END_C
}

if ($suffix eq '' && !$dynamic_flag) {
    $getop = 'get_op';
    my $hash_size = 3 <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1799	1954	
==>t = "";
  while(<DATA>) {
	chomp;
	next unless /^[FGHI]/;
	my ($func,@x) = split /,/;
	my $c = $f{$func};
	$c =~ s/X(\d)/$x[$1]/g;
	$c =~ s/(S\d{2})/$s{$1}/ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7282	7446	
==>act." ($lhs,$len): ";

                $act
            or  $self->YYAccept();

            $$dotpos=$len;

                unpack('A1',$lhs) eq '@'    #In li <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6946	7103	
==>act." ($lhs,$len): ";

                $act
            or  $self->YYAccept();

            $$dotpos=$len;

                unpack('A1',$lhs) eq '@'    #In li <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	443	553	
==>{
  my $class = shift;
  my ($block, $left, $op, $right) = @_;

  confess "Block is not defined!" unless define <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	455	565	
==>{
  my $class = shift;
  my ($block, $left, $op, $right) = @_;

  confess "Block is not defined!" unless define <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16543	16707	
==>>[0] } @stream), "\n";
		($assignto, $type, @left)=generate_code($opts{lhs},@stream);	# Generate PASM code stream
		#print STDERR "Left: @left \n";
		if ($opts{choos <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	6196	6349	
==>ches} ? ($totals{covered_branches} / $totals{branches} * 100) : 0));
    $totals{call_coverage}   = sprintf("%.2f", ($totals{calls}    ? ($totals{covered_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	5	103	
==>ariable.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	4183	4356	
==>ystem.ServiceProcess
            System.Web.Services
            System.Web
            System.Xml
        /;
#             System.Windows.Forms ### XXX Removed - bugz0r <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	3306	3405	
==>h C<abstract>: No C<class_init> code is generated.

=item C<const_too>

Classes with this flag get 2 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	7434	7545	
==>ket  { return shift->skip('open-bracket');  }
sub skip_open_paren    { return shift->skip('open-paren');    }
su <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	5066	5217	
==>ix-bit', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^( == | >= | <= | != | < | > )(.*)$}x) {
      push @tokens, Jako::Token->n <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3765	3866	
==>$checklist{$prm})
		or	croak("Unknow parameter '$prm'");
			ref($value) eq $$checklist{$prm}
		or	c <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3571	3669	
==>$checklist{$prm})
		or	croak("Unknow parameter '$prm'");
			ref($value) eq $$checklist{$prm}
		or	c <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	2994	3212	
==>self->{'source_dead'}) {
      DEBUG and print "$self 's source is dead.\n";
      push @{ $self->{'token_buffer'} }, undef;
    } elsif(exists $self->{'source_fh'}) {
      my @lines;
      my $fh = $self->{'source_fh' <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	0	103	
==>package Class::Struct;

## See POD after __END__

use 5.005_03;

use strict;
# use warnings::register;
u <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	4777	4878	
==>@{$vtable}) {
    my $uc_meth = uc $entry->[1];
    $macros .= <<"EOM";
#define PARROT_VTABLE_${uc_met <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15474	15611	
==>r'} }, 
       $self->{'end_token_class'}->new(@_);
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1600	1887	
==>= time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
print "Elapsed time:  $N2\n"; # print  "Elapsed time:  "
                              # print  N2
                              # print <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1600	1887	
==>= time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
print "Elapsed time:  $N2\n"; # print  "Elapsed time:  "
                              # print  N2
                              # print <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29162	29260	
==>ir'} =~ /\$\{DEST0\}/ || $rule->{'instruction'} =~ /\$\{DEST0\}/) {
			$need_dest = 1;
		} elsif ($ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	10563	10659	
==>e, $L_trymatch, $L_backup, $num_groups, $startup) = @_;

    my $trymatch = $self->output_label_u <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	969	1110	
==>test) {
        $conf->data->set(
            TEMP_cg_h => '$(INC_DIR)/oplib/core_ops_cg.h $(INC_DIR)/oplib/core_ops_cgp.h',
            TEMP_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952156	952425	
==>YPE" => "function",
                  "CODE" => 1071,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 540 \"src/ops/s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1400	1515	
==>_text {
  DEBUG and print "== \"$_[1]\"\n";
  if(length $_[1]) {
    my $text = $_[1];
    _xml_escape($text);
    p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	996	1129	
==>$ident->file,
    LINE  => $ident->line
  }, $class;

  $block->push_content($self);

  return $self;
}


sub dest { return shift->{DE <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	5455	5714	
==>$ret$args", $., $seen{"$ret$args"}
        if $opt_warndups;
      next;
    }

    my @extra_preamble;
    my @extra_postamble;
    my @temps;
    my @arg;
    my $reg_num = 0;
    my $sig = '';

    if (defined $args and not $args =~ m/^\s*$/ ) {
        for <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	14442	14619	
==>($)
{
	my $item;
	foreach $item (@{$_[0]->{"items"}})
	{
		if (ref($item) =~ /Parse::RecDescent::(Action|Directive)/)
		{
			return 1 if $item->{code} =~ /\$skip/;
		}
	}
	return <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605921	606147	
==>attribute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606712	606938	
==>attribute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/tools/build/list_unjitted.pl	648	805	
==>V[0]/core.jit: $!";

while (<JIT>){
    if (my ($jit) = /^Parrot_(\S+)\s*\{\s*$/){
        push @jitted, $jit;
    }
}
close JIT or die "Noo.. $!";

my @not_j <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349128	349222	
==>= string_to_cstring(interpreter, {{\@2}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, \"+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350130	350224	
==>= string_to_cstring(interpreter, {{\@2}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, \"+ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1825	1979	
==>('sub');

  $self->SYNTAX_ERROR("Cannot use 'return' outside of subroutine.")
    unless (defined $sub_block);

  my $sub_name = $sub_block->name;

  my $r <==
2	/Users/nnunley/parrot/config/gen/config_pm.pm	190	282	
==>data

=head1 DESCRIPTION

Writes the C<Parrot::Config> Perl module, the
F<runtime/parrot/libr <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	808	933	
==>ted.pod'),
			$self->new_item('', 'docs/submissions.pod'),
			$self->new_item('', 'docs/glossary.pod'),
			$self->new_item('', <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048239	1048336	
==>ode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null global.\");\n\n    n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049163	1049260	
==>ode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null global.\");\n\n    n <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8679	8789	
==>,$d,$a,$b,$_[14],17,0xffff5bb1,/* 11 */
FF,$b,$c,$d,$a,$_[15],22,0x895cd7be,/* 12 */
FF,$a,$b,$c,$d,$_[16],7,0x <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54196	54445	
==>($grammar =~ m/(?=$SKIPMK)/gco
				and do { ($code) = extract_codeblock($grammar,'<');
					  $code })
			{
				_parse("a skip marker", $aftererror,$line);
				$code =~ /\A\s*<skip:(.*)>\Z/s;
				$item = new Parse::RecDescent::Directive(
					      ' <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	1376	1496	
==>ess $spec =~ /\[ (\w+) (?: \s+ (.+?) )? \]/x;

    my $cmd  = $1;
    my $args = $2;

    return $cmd, parse_usage($args) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	3366	3581	
==>Type::PMC');
  $self->SYNTAX_ERROR("Can't do arithmetic on PMCs") if UNIVERSAL::isa($left_type, 'Jako::Construct::Type::PMC');
  $self->SYNTAX_ERROR("Can't do arithmetic on PMCs") if UNIVERSAL::isa($right_type, 'Jako <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	17984	18097	
==>ndent way. Which is to say
       "here there be hacks" */
    UNUSED(pmc_nci);
    signature_len = string_length( <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1130	1234	
==>uctors

=over 4

=item * C<new()>

Basic constructor.

Accepts no arguments and returns a L<Parrot::Confi <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	667	771	
==>uctors

=over 4

=item * C<new()>

Basic constructor.

Accepts no arguments and returns a L<Parrot::Confi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	31210	31436	
==>art" ]),
                     aop('setstart', [ "0", '<tmp>' ]),
                     @restore_rxlocals,
                     aop('goto' => [ $R_back ]),
        $trymatch => $self->startup($num_groups),
                     @R <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	221	318	
==>to.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako: <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	162	296	
==>Recreate MANIFEST and MANIFEST.SKIP

=head1 SYNOPSIS

    % perl tools/dev/mk_manifest_and_skip.pl

=head1 DESCRIPTION

Recreates MANIF <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5450	5574	
==>B::single = 1;
    $value = value($value);
    return qq!<rx_match>{"$group"}->[0] = $value; # open group $group!;
}

sub out <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	4124	4234	
==>^| / src${slash}pmc${slash}/g;
    (my $TEMP_pmc_classes_pmc = $pmc_list)     =~ s/^| / src${slash}pmc${slash}/ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1877	1974	
==>$_[0]{'Indent'} }
sub start_over_text    { ++$_[0]{'Indent'} }
sub start_over_block   { ++$_[0]{'I <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1445	1542	
==>$_[0]{'Indent'} }
sub start_over_text    { ++$_[0]{'Indent'} }
sub start_over_block   { ++$_[0]{'I <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	667	932	
==>I2 = 0;                      # set    I2, 0
$I3 = 1;                      # set    I3, 1
$I4 = 100000000;              # set    I4, 100000000
                              #
print "Iterations:    $I4\n"; # print  "Iterations:    "
                              # pri <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	75512	75751	
==>||@                                      |^<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 $tracerulename, '|',				   $tracecontext
| ~~       |                                      |^<<<<<<<<<<<<<<<<<<<<<<<<<<<<
						   $tracecontext
.


select TRACECONTEX <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	418	546	
==>ct::Block);


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $kind        = $self->kind;
  my $p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	398	526	
==>ct::Block);


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $kind        = $self->kind;
  my $p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029897	1030096	
==>_event(interpreter, {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030739	1030938	
==>_event(interpreter, {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	311222	311400	
==>disabled\\n\");\n#else\n\t/*\n\t * XXX adjust register layout\n\t */\n        PDB_print_int(interpreter, &interpreter->int_reg, -1);\n        PDB_print_num(interpreter, &interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227126	227401	
==>> 265,
                  "ARGS" => [
                              "p",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 530 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541145	541619	
==>:advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 626,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 1022 \ <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	671	794	
==>ATED FILE! DO NOT EDIT!

.HLL '_dotnet', ''

.sub internal_method_body
    .param pmc class
    .param pmc meth
    .local s <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	10008	10268	
==>d body
(see F<src/call_list>).

=cut

my %calltype = (
  "char"     => "c",
  "short"    => "s",
  "char"     => "c",
  "short"    => "s",
  "int"      => "i",
  "INTVAL"   => "I",
  "float"    => "f",
  "FLOATVAL" => "N",
  "double"   => "d",
  "STRING*"  => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712474	712571	
==>printf_c(interpreter, \"%.12g\", (double){{\@1}});\n  PIO_putps(interpreter, io, s);\n  if (string <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713581	713678	
==>printf_c(interpreter, \"%.12g\", (double){{\@1}});\n  PIO_putps(interpreter, io, s);\n  if (string <==
2	/Users/nnunley/parrot/Configure.pl	1616	1728	
==>ccflags=(flags)>

Use the given compiler flags.

=item C<--ccwarn=(flags)>

Use the given compiler warning flags. <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	25372	25619	
==>(interp, "$dynpmc", 0));
EOC
    }
    # init MMD "right" slots with the dynpmc types
    foreach my $entry (@init_mmds) {
        if ($entry->[1] eq $classname) {
            $cout .= <<"EOC";
        _temp_mmd_init[$entry->[0]].right = entry;
EOC <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32258	32377	
==>$decl = $self->decl($self->{class}, $method, 0);
    # I think that these will be out by one - NWC
    my $l = $self->li <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40880	40999	
==>$decl = $self->decl($self->{class}, $method, 0);
    # I think that these will be out by one - NWC
    my $l = $self->li <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1827	1914	
==>s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABC <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1930	2017	
==>s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABC <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1552	1699	
==>lf = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = $op->{op} $op->{ <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2212	2359	
==>lf = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = $op->{op} $op->{ <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	5610	5751	
==>l_coverage{$source_file} = $percent;
                next;
            }
        }

        filter_gcov($gcov_file);
    }
}

write_file_cover <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	19	136	
==>ranslator
# Stack emulation stack to register mapper. Simple and stupid.
# Inherits from SRM::Base.

package SRM::Stac <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5260	5358	
==>>right;

  $handler->start_element({ Name => 'assign' });
  $dest->sax($handler);
  $handler->start <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3323	3421	
==>>right;

  $handler->start_element({ Name => 'assign' });
  $dest->sax($handler);
  $handler->start <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	6093	6197	
==>C<slurp_file($file_name)>

Read the whole file $file_name and return the content as a string.

=item C<co <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	10	109	
==>t (C) 2006, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Test/Harness.pm 19602 2006-05-30T13:40:58 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	586423	586686	
==>,
                  "ARGS" => [
                              "p",
                              "s",
                              "k"
                            ],
                  "BODY" => "#line 314 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18214	18346	
==>b _op_string_symbol {
}

sub _op_number_p {
}

sub _op_complex_p {
}

sub _op_real_p {
}

sub _op_rational_p {
}

sub _op_integer_p { <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	7037	7173	
==>ared' => '-lpthread -lm -L/opt/local/lib  -licuuc -licudata -lpthread -lm',
             'inc' => 'include/parrot',
             'include <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	30736	30845	
==>>rewrite($R, $back);

    # Set up the full preamble, including stuff gathered from
    # rewriting the expres <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	12	101	
==>(C) 2004-2006, The Perl Foundation.
# $Id: /parrot/lib/Parrot/IO/Path.pm 19602 2006-05-30T <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	14314	14420	
==>e.

The initializer for a class element is an object of the corresponding class,
or of one of it's subclass <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	8175	8277	
==>post_call_HAS_RETURN_${CURIC}
goto post_call_NO_RETURN_${CURIC}
post_call_HAS_RETURN_${CURIC}:
${INS} = <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7060	7166	
==>tions{fail} ? $options{fail} : '';
	my $bad     = ref($options{reject}) eq 'ARRAY' ? join('|', @{$options{r <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24062	24168	
==>tions{fail} ? $options{fail} : '';
	my $bad     = ref($options{reject}) eq 'ARRAY' ? join('|', @{$options{r <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9086	9213	
==>@_) } # alias

sub accept_codes {  # Add some codes
  my $this = shift;
  
  foreach my $new_code (@_) {
    next unless defined <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53338	53454	
==>}\n  else         { Interp_flags_CLEAR(interpreter, PARROT_GC_DEBUG_FLAG); }\n  {{+=2}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54094	54210	
==>}\n  else         { Interp_flags_CLEAR(interpreter, PARROT_GC_DEBUG_FLAG); }\n  {{+=2}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	2	106	
==>DO NOT EDIT THIS FILE
#
# Automatically generated by config/gen/core_pmcs.pm

package Parrot::PMC;

use s <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15786	15964	
==>d the caller information to the test's `$desc`.

= SEE ALSO

The Perl 5 Test modules

- Test

- Test::More

Information about the TAP protocol can be found in the Test::Harness
di <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10049	10164	
==>= $conf->options->get('verbose');

    if (defined($_[0]) && length($_[0])) {
        local $" = ' ';
        _run_c <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10630	10745	
==>= $conf->options->get('verbose');

    if (defined($_[0]) && length($_[0])) {
        local $" = ' ';
        _run_c <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10570	10700	
==>ve_1 ('P');
    $self->_morph ($pmc, $value);
    $self->_restore ($value);
    $value = $pmc;
  }

  $self->_new_lex ($symbol,$val <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	10808	10904	
==>ident = Jako::Construct::Expression::Value::Identifier->new($block, $token);
      my $op    = $s <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	9208	9485	
==>7',
   56, '8',
   57, '9',
   58, ':',
   59, ';',
   60, '<',
   61, '=',
   62, '>',
   63, '?',
   64, '@',
   65, 'A',
   66, 'B',
   67, 'C',
   68, 'D',
   69, 'E',
   70, 'F',
   71, 'G',
   72, 'H',
   73, 'I',
   74, 'J',
   75, 'K',
   76, 'L',
   77, 'M',
   78, 'N' <==
2	/Users/nnunley/parrot/tools/docs/pod_errors.pl	106	203	
==>006-05-30T15:23:20.183054Z coke  $

=head1 NAME

tools/docs/pod_errors.pl - Reports POD errors

=h <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	14235	14366	
==>ring.h
strpbrk     string.h
strrchr     string.h
strspn      string.h
strstr      string.h
strtod      stdlib.h
strtof      stdlib.h <==
2	/Users/nnunley/parrot/config/auto/inline.pm	1046	1293	
==>test = cc_run();
                chomp $test if $test;
            }
            cc_clean();
        }
        if ($test) {
            print " ($test) " if $verbose;
            $self->set_result('yes');
        } else {
            print " no " i <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21000	21166	
==>];
}

sub BuildBinop {
    my ( $parser, $expr1, $op, $expr2 ) = @_;
    my %type = (
        '+'  => 'number',
        '-'  => 'number',
        '*'  => 'numb <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	4793	4945	
==>1] =~ s{$}{\n */};    # ' */'
        } else {
            die "Unknown comment type '$options{commentType}'";
        }
        foreach my $line (@comme <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29571	29716	
==>=> {
			";" => 146,
			"," => 147
		},
		DEFAULT => -107,
		GOTOS => {
			'fieldsep' => 145
		}
	},
	{#State 94
		ACTIONS => {
			"-" = <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	5328	5437	
==>Parrot_exec_add_text_rellocation(jit_info->objfile, NULL, RTYPE_DATA, "const_table", 0);/g;
                $a <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5256	5359	
==>te
	# the name of the destination register emulating the stack position and
	# generate a move instructi <==
2	/Users/nnunley/parrot/lib/Test/More.pm	34590	34685	
==>ects are compared B<as strings>.  This prevents
Test::More from piercing an object's interface a <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	517	639	
==>l'}; } @results;
my $percent = int(($done / $total) * 100);
print "\\hline\nSummary & $done & $total & $percent\\% \\\\\n <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1364	1455	
==>truct::Statement::Increment;
use Jako::Construct::Statement::LoopControl;
use Jako::Construc <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8335	8464	
==>.local float value_at
    .local int not_there
    not_there = op1
    inc not_there
    .local pmc iter
    iter = new .Iterator, <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	847	940	
==>'/usr/lib'.

=item C<includedir>

The header directory. Defaults to '/usr/include'.

=back

=h <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	1076	1169	
==>'/usr/lib'.

=item C<includedir>

The header directory. Defaults to '/usr/include'.

=back

=h <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	14865	14987	
==>t $tn, $ti",
				"\t$left = $tn",
			);
		} else {
			# Simple a=expr case.
			@ass=(
				@$rightexpr,
				"\t$left = $righ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832105	832187	
==>sh(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}), STACK_ENTRY_FLO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832833	832915	
==>sh(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}), STACK_ENTRY_FLO <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	24598	24729	
==>, ', @args;
    my $t;
    $func = $tos->[1];
    # create argument tuple
    if ($builtins{$name} && $builtins{$name} eq 'v') {
	my <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100998	1101422	
==>ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1220,
                  "ARGS" => [
                              "n",
                              "n",
                              "ic"
                            ],
                  "BODY" = <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3408	3531	
==>s/-opt:\S+//;
            $conf->data->set(linkflags => $linkflags);
        }
    } elsif ($is_intel) {
        $conf->data <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	587	677	
==>en;

use Jako::Construct::Type::Integer;
use Jako::Construct::Type::Number;
use Jako::Const <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	36778	36943	
==>ero times at worst). 
					   Did you mean a single \"!$subrule\", 
					   instead?");
		}
	}
	bless 
	{
		"subrule"   => $subrule,
		"repspec"   => $repspec,
		"min <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48632	48742	
==>ammar =~ m/$MANY/gco)
					{ }
				elsif ($grammar =~ m/$BADREP/gco)
				{
					_parse("an invalid repetition s <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12576	12672	
==>}

sub checkleftmost($)
{
	my @items = @{$_[0]->{"items"}};
	if (@items==1 && ref($items[0]) =~ / <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650760	651037	
==>\n        {{\@1}} = 1;\n    else\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651682	651959	
==>\n        {{\@1}} = 1;\n    else\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/lib/Test/More.pm	36047	36181	
==>sting utility that's simple to learn,
quick to use and difficult to trip yourself up with while still
providing more flexibility than t <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6607	6714	
==>_inst('', 'set', [$return,$pair]);
  $self->_restore($item, $pair);

  return $return;
}

sub _qq_unquote_sp <==
2	/Users/nnunley/parrot/config/inter/make.pm	734	862	
==>>get('verbose');

    # undef means we don't have GNU make... default to not having it
    $conf->data->set(gmake_version => unde <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	94	194	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub handle_on { # some horrible frig <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807873	807965	
==>ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed(interpreter, {{\@2}}, {{\@3}});\n    { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808778	808870	
==>ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed(interpreter, {{\@2}}, {{\@3}});\n    { <==
2	/Users/nnunley/parrot/config/init/hints/darwin.pm	1720	1936	
==>all_name " .
                               $conf->data->get('lib_dir') .
                               $conf->data->get('slash') .
                               "libparrot" .
                               $conf->d <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	836	944	
==>.

=back

=head2 WARNING

Generating a C<Parrot::OpLib::core> module for a set of ops files that
you do not l <==
2	/Users/nnunley/parrot/lib/Test/More.pm	5727	5858	
==>ou're not ok.

The basic purpose of this module is to print out either "ok #" or "not
ok #" depending on if a given test succeeded o <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	25190	25347	
==>sh {
    my($fh) = shift;
    my $old_fh = select $fh;
    $| = 1;
    select $old_fh;
}


sub _dup_stdhandles {
    my $self = shift;

    $self->_open_testh <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3385	3471	
==>L<http://www.sysadminmag.com/tpj/issues/vol5_5/>

=head1 COPYRIGHT AND DISCLAIMERS

Cop <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1706	1927	
==>p_pmc = global \"$ident_name\"");
    $compiler->emit("  $temp_reg = $temp_pmc");

    return $temp_reg;
  }
  else {
    return $ident_name;
  }
}


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	3404	3622	
==>rsions will work but obviously not sorted
{
    my $dd_version;
    if ($Data::Dumper::VERSION =~ /([\d.]+)/) {
        $dd_version = $1;
    } else {
        $dd_version = $Data::Dumper::VERSION;
    }

    if ($dd_ver <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20117	20254	
==>ck, $check, $next) =
      map { $self->genlabel("ngr_$_") } qw(rfail local_back back check next);

    my $matchcount = $self->new_rxloca <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	2736	2915	
==>ram C<new> always returns the same
Test::Builder object.  No matter how many times you call new(), you're
getting the same object.  This is called a singleton.  This is done so tha <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	11248	11356	
==>the given command. The command's output (both stdout and stderr), and
its return status is returned as a 3-tu <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	9	147	
==>n/perl

# $Id: /parrot/tools/dev/mk_manifest_and_skip.pl 19471 2006-05-15T19:40:33.020324Z bernhard  $

=head1 NAME

tools/dev/mk_manifest_ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	3180	3344	
==>>{name} eq 'LABEL') {
	    $curlabel = $stmt;
	} else {
	    push @output2, { label => $curlabel, code => $stmt };
	    $labels{$curlabel->{label}} = $output2[-1] if <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	3151	3307	
==>') {

        $conf->data->set(int8_t => $type);
        eval {
            cc_gen('config/auto/sizes/test2_c.in');
            cc_build();
            %huge <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5880	6042	
==>etstart {
    my ($self, $reg, $group) = @_;
    $reg = value($reg);
    return qq!$reg = <rx_match>{"$group"}->[0]; # get group $group start!;
}

sub output_geten <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25991	26119	
==>[],
                  "BODY" => "#line 446 \"src/ops/core.ops\"\n  PMC * const p = CONTEXT(interpreter->ctx)->current_cont;\n  op <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9516	9609	
==>batim' or $tagname eq 'X';
}

=item C<process_text_token($token)>

Processes the specified tex <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411041	411301	
==>TVAL)PIO_send(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411934	412194	
==>TVAL)PIO_send(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2112	2200	
==>self->block->find_symbol($args[$i]->value);
      $self->SYNTAX_ERROR("Undefined identifi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1812	1900	
==>self->block->find_symbol($args[$i]->value);
      $self->SYNTAX_ERROR("Undefined identifi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22777	22923	
==>"
                            ],
                  "BODY" => "#line 409 \"src/ops/core.ops\"\n  opcode_t *dest;\n  PMC * const p = {{\@1}};\n  dest <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327098	327203	
==>ble->set_integer_native(interpreter, {{\@1}}, (INTVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327900	328005	
==>ble->set_integer_native(interpreter, {{\@1}}, (INTVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Compilers.pm	1090	1256	
==>x Tree',
            'compilers/past' ),
        $self->new_group( 'POST', 'the Parrot/Punie Opcode Syntax Tree',
            'compilers/post' ),
    );
}

=bac <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13773	13877	
==>]/) {
    $self->_add_inst ('', 'set', [$return,0]);
  }
  else {
    $self->_add_inst ('', 'typeof', [$r <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	17040	17170	
==>t
the end of the document.

=item $parser->unget_token( $token )

=item $parser->unget_token( $token1, $token2, ... )

This restore <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	14201	14308	
==>related stuff.
    $pir .= <<'PIRCODE';
    # Look through exception handlers.
    if null ehs goto END_EH_L <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	7679	7778	
==>t::eval_is &Test::isa_ok &Test::is_deeply &Test::todo_is &Test::todo_isnt &Test::todo_cmp_ok &Test:: <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15198	15330	
==>\x1F\-\\\{\}\x7F-\xFF])/$Escape{$1}/g;  # ESCAPER
      $x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).' <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	7206	7399	
==>truct( CLASS_NAME => { ELEMENT_NAME => ELEMENT_TYPE, ... });

    package CLASS_NAME;
    use Class::Struct;
            # declare struct, based on array, implicit class name:
    struct( ELEMEN <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6183	6367	
==>defined $type;

      $self->SYNTAX_ERROR("Cannot declare constants of type '%s'.", $type) # TODO: This can happen later.
        if ($access eq 'const' and $type->isa("Jako::Construct: <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	9432	9627	
==>X this isn't quite right. Need to be more clever with options.
        $max++ if $arg->{option} && $arg->{type};
        $is_repeating = $arg->{repeating};
    }

    $max = undef if $is_repeating <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37750	37920	
==>=> 41
		},
		DEFAULT => -106,
		GOTOS => {
			'exp' => 90,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	1136	1295	
==>C<goto> run loop.

=item C<CGP>

Create the C<goto> and predereferenced run loop.

=item C<CSwitch>

Create the C<switch>ed and predereferenced run loop.

=item <==
2	/Users/nnunley/parrot/config/auto/jit.pm	2692	2826	
==>uarch/asm.s", "src/asmfun.s");
        $conf->data->set(asmfun_o => 'src/asmfun$(O)');
    } else {
        $conf->data->set(asmfun_o = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4676	4821	
==>bel->new($block, $ident);
      next;
    }

    #
    # Modules:
    #
    #   module <ident> [:<prop>[=<value] ...] {
    #

    if ($token->is_ <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	6017	6186	
==>= $sig_char{$_};
            $_ eq 'J' && $reg_num--;
        }
    }

    print_function($sig, $ret, $args, [@arg], $ret_type{$ret},
                 $ret_type_decl{$ret <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23524	23621	
==>ensym();
    $self->_add_inst('','gt', [$return,$temp,"NEXT_$label"]);
    $self->_add_inst('','se <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	626375	626577	
==>_function)(interpreter, sig_bits, args);\n    {{=pc}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/examples/benchmarks/vpm.pl	41	148	
==>on Vienna-PM list
#
use strict;

my $big;
my $string="just another perl hacker";

for (0 .. 99999) {
    $bi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18832	18930	
==>for 10.5-point)
that codeblocks ("verbatim sections") will appear as.

=item $parser->header_halfpo <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	5637	5754	
==>rg) = @_;

    return unless $cmd;

    if( $self->{Have_Plan} ) {
        die sprintf "You tried to plan twice!  Seco <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1658	1756	
==>ate_subrule_pir($target, $pattern)
        : Parrot::Test::PGE::_generate_pir_for($target, $pattern <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2181	2279	
==>ate_subrule_pir($target, $pattern)
        : Parrot::Test::PGE::_generate_pir_for($target, $pattern <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	6593	6718	
==>umber of atoms we are currently guaranteed to have for
#      the current node (NOT for this node and everything following it) <==
2	/Users/nnunley/parrot/tools/dev/cc_flags.pl	1	209	
==>! perl -w
################################################################################
# Copyright (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/tools/dev/cc_flags.pl 19607 2006-05-30T15:23:20.183054Z <==
2	/Users/nnunley/parrot/lib/Test/More.pm	16604	16751	
==>e exported at compile-time and prototypes are
properly honored.

If @imports are given, they are passed through to the use.  So this:

   BEGIN { us <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	48956	49068	
==>, and a prefix to
match first. It also takes an optional fourth parameter, which allows the
outermost delimiter b <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2526	2629	
==>handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $self->op } });
    $sel <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2403	2506	
==>handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $self->op } });
    $sel <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	465	573	
==>the standards in
PDD 7.

To run it on all the C source code files in the distribution pass in
C<all_source> i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1005634	1005939	
==>=> [
                              "i",
                              "ic",
                              "s",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9726	9837	
==>and	print STDERR "**Dicard invalid token ".&$ShowCurToken.".\n";

			$$token=$$value=undef;
		};

        $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9288	9394	
==>and	print STDERR "**Dicard invalid token ".&$ShowCurToken.".\n";

			$$token=$$value=undef;
		};

        $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714595	714707	
==>(interpreter);\n  if (s && string_length(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715518	715630	
==>(interpreter);\n  if (s && string_length(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PI <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	7109	7284	
==>ceptions'),
            $self->c_pair_item('', 'events'),
        ),
        $self->new_group(
            'Memory', 
            '',
            $self->c_pair_item('', 'memory <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	11720	11895	
==>escent::Production;

sub describe ($;$)
{
	return join ' ', map { $_->describe($_[1]) or () } @{$_[0]->{items}};
}

sub new ($$;$$)
{
	my ($self, $line, $uncommit, $error) = @_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11365	11456	
==>tf <<'END',
{\stylesheet
{\snext0 Normal;}
{\*\cs10 \additive Default Paragraph Font;}
{\*\c <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	1574	1752	
==>p);
        } else {
            foreach my $line ($self->render($op)) {
                $line =~ s/<(\w+)>/$self->lookup_var($1, $ctx)/eg;
                if (length($label) >= 8 <==
2	/Users/nnunley/parrot/Configure.pl	2243	2389	
==>ne=val1[,val2]>

Generate "#define PARROT_DEF_VAL1 1" ... entries in has_header.h. Currently
needed to use inet_aton for systems that lack inet_pto <==
2	/Users/nnunley/parrot/config/auto/memalign.pm	915	1028	
==>f;
    }
    my $test = 0;

    if ($conf->data->get('i_malloc')) {
        $conf->data->set(malloc_header => 'mal <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837336	837606	
==>CK_ENTRY_INT);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  " <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19920	20062	
==>et_title except that it returns the contents of
the "=head1 VERSION\n\n[BIG BLOCK]\n" block.  Note that this does NOT
return the module's C<$VE <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2024	2125	
==>If the identifier is already defined at this lexical scope, we want to complain
  # about the redefini <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1771	1872	
==>If the identifier is already defined at this lexical scope, we want to complain
  # about the redefini <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	11120	11228	
==>xtract_balanced($code);

    my $lineno  = 1 + count_newlines($pre);
    $classblock = substr($classblock, 1, <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	26926	27093	
==>acted = extract_multiple($text,
				      [ \&extract_bracketed,
					\&extract_quotelike,
					\&some_other_extractor_sub,
					qr/[xyz]*/,
					'literal',
				      ] <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	3991	4365	
==>if /}}/;
                        $block .= $_;
                    }
                    next;
                }
                if (/$match/) {
                    select INC;
                    eval $block;
                    select STDOUT;
                    die $@ if $@;
                }
            }

        }
        if ($in_def ne '') {
            die "Missing <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645784	645868	
==>&& {{\@2}} < interpreter->n_vtable_max)\n\t\t{{\@1}} = interpreter->vtables[{{\@2}}]- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646681	646765	
==>&& {{\@2}} < interpreter->n_vtable_max)\n\t\t{{\@1}} = interpreter->vtables[{{\@2}}]- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653461	653566	
==>efined(interpreter, {{\@1}}))\n        real_exception(interpreter, resume, METH_NOT_FOUND,\n            \" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654622	654727	
==>efined(interpreter, {{\@1}}))\n        real_exception(interpreter, resume, METH_NOT_FOUND,\n            \" <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	3040	3269	
==>,
    'nobench=s'    => $cfg{skip_bench},
);

# Read Configuration File
die
    'Unable to access configuration file ',
    $cfg{config_file} unless -r $cfg{config_file};

my $ini = Config::IniFiles->new( -file => $cfg{config_file <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103912	1104013	
==>preter, class);\n\tif (!type) {\n\t\tParrot_autoload_class(interpreter, class);\n\t\ttype = pmc_type(i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105127	1105228	
==>preter, class);\n\tif (!type) {\n\t\tParrot_autoload_class(interpreter, class);\n\t\ttype = pmc_type(i <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	740	834	
==>&read_all;
open ALL, '>>', $outfile or die "Can't write '$outfile': $!";
process_cfile();
close <==
2	/Users/nnunley/parrot/config/inter/lex.pm	1372	1504	
==>defined $prog) {
        $conf->data->set($util => $prog);
        $self->set_result('yes');
        return $self;
    }

    $prog = <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	1369	1501	
==>defined $prog) {
        $conf->data->set($util => $prog);
        $self->set_result('yes');
        return $self;
    }

    $prog = <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	2335	2437	
==>tval => 1, -verbose => 0, -output => \*STDERR);
}

my ( $nolines_flag, $help_flag, $dynamic_flag, $core <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2656	2765	
==>pcode_t *cur_opcode asm ("esi") = cur_op;
    register char *   _reg_base   asm ("edi");
#else
    opcode_t *c <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3225	3334	
==>pcode_t *cur_opcode asm ("esi") = cur_op;
    register char *   _reg_base   asm ("edi");
#else
    opcode_t *c <==
2	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1563	1685	
==>p;
use base qw(Lua::opcode);

package FindLexOp;
use base qw(Lua::opcode);

package StoreLexOp;
use base qw(Lua::opc <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	108	260	
==>8:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Section::IMCC - IMCC documentation section

=head1 SYNOPSIS

	use Parrot::Docs::Section::IMCC;

= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353642	353738	
==>s = {{\@1}};\n  if (s && string_length(interpreter, s)) {\n    PIO_putps(interpreter, PIO_STDOUT( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354387	354483	
==>s = {{\@1}};\n  if (s && string_length(interpreter, s)) {\n    PIO_putps(interpreter, PIO_STDOUT( <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	3708	3869	
==>heses above)
--type=bsd|-B 	same as --t
--type=long|-L	append a long type (e.g. "global_const_init_data" versus "R")
--help|-h	show this help
--version|-v	show ve <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	3057	3476	
==>Otherwise, just append it to current method.
        } else {
            $cur_method->{'body'} .= "$line\n";
        }

        $line_count++;
    }

    # If we have another method, add it.
    if ($cur_method) {
        push @methods, $cur_method;
    }

    # Return methods.
    return @methods;
}


# Generate the lookup table.
# ##########################
sub generate_lookup {
    my @methods = @_;
    my $pir = <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	3392	3495	
==>2
# older versions will work but obviously not sorted
{
    my $dd_version;
    if ($Data::Dumper::VERSI <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21760	22061	
==>attern = join('',
         map {;
            ($_->type eq 'start') ? ("<" . $_->tagname .">")
          : ($_->type eq 'end'  ) ? ("</". $_->tagname .">")
          : ($_->type eq 'text' ) ? ($_->text =~ m<^([A-Z]+)$>s ? $1 : 'X')
          : "BLORP"
         } @to_unget
       )) =~ m{<head1>NAME</h <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033300	1033392	
==>C * const lex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n    if (PMC_IS_NULL(lex_pad <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034398	1034490	
==>C * const lex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n    if (PMC_IS_NULL(lex_pad <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	15941	16084	
==>> 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			"<=" => 85,
			'OR' => 84,
			")" => 8 <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	9309	9445	
==>1 : 0 ), 0 );
    }
    else {
        @$result{ 'ok', 'actual_ok' } = ( 1, $test );
    }

    $out .= "ok";
    $out .= " $self->{Curr_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025323	1025685	
==>AME" => "sysinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1146,
                  "ARGS" => [
                              "s",
                              "i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	690718	691030	
==>{
                  "JUMP" => 0,
                  "NAME" => "thaw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 7 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691474	691786	
==>{
                  "JUMP" => 0,
                  "NAME" => "thaw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 7 <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	22985	23099	
==>if ($self->{flags}{dynpmc}) {
        $cout .= <<"EOC";
        vt_clone->base_type = entry;
        vt_clone->whoa <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	8710	8843	
==>rantee);

        foreach my $kid (@{ $t->{args} }) {
            $kid_follow_min += $kid->minlen();
        }

        foreach my $ki <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	175	308	
==>ness for languages built on Parrot

=head1 SYNOPSIS

Tell the harness which language (and optionally, compiler) you want to use in a
f <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6593	6722	
==>entifiers, $ident;
        last unless $self->skip_comma;
      }

      my $value;

      if ($self->skip_assign) {
        $valu <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	1119	1227	
==>f means end-of-stream
  my $self = shift;

  my $code_handler = $self->{'code_handler'};
  my $cut_handler  = <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2521	2605	
==>>,
F<examples/mops/mops.ps>,
F<examples/mops/mops.py>,
F<examples/mops/mops.rb>,
F<ex <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	2521	2605	
==>>,
F<examples/mops/mops.ps>,
F<examples/mops/mops.py>,
F<examples/mops/mops.rb>,
F<ex <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	23256	23458	
==>sa_str = string_make(interp,
            "$isa", @{[length($isa)]}, "ascii",
            PObj_constant_FLAG|PObj_external_FLAG);
        vt_clone->does_str = string_make(interp,
            "$does", @{[l <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	8029	8158	
==>) 
				  and not isarray($prev->[0])) { 
				$unary=1;
			} elsif (iskeyword($syms[PREV]) and not isbuiltin($syms[PREV]) ) {
				$ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32087	32193	
==>f @args;
    $parameters = ", $parameters" if $parameters;
    my $body = "VTABLE_$meth(interpreter, PMC_pm <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33664	33770	
==>f @args;
    $parameters = ", $parameters" if $parameters;
    my $body = "VTABLE_$meth(interpreter, PMC_pm <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	419	593	
==>e ')') {
      my $expr;
      ($count, $expr) = _build_tree ($tokens, $count);
      push @{$temp->{children}}, $expr;
    }
    $count++;
  }
  elsif ($tokens->[$count] eq " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58925	59344	
==>P" => 0,
                  "NAME" => "warningson",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 76,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 901 \"src/ops/core.ops\"\n  PARR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59572	59827	
==>P" => 0,
                  "NAME" => "warningson",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 77 <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1324	1597	
==>time_hires();           # time N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1324	1597	
==>time_hires();           # time N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8871	8989	
==>3s, '\x25s',\n}, $_, chr($_) foreach (32 .. 126)"
   32, ' ',
   33, '!',
   34, '"',
   35, '#',
   36, '$',
   37, '% <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20929	21337	
==>GDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 28,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 349 \"src/ops/core.ops\"\n  if (!string_bool(inter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747098	747315	
==>841,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 194 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	487250	487527	
==>AL)ceil({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7166	7256	
==>reg_type_short"]
${DEST0} = concat ${STEMP0}
${STEMP0} = stack_depth
${DEST0} = concat ${ST <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4988	5078	
==>reg_type_short"]
${DEST0} = concat ${STEMP0}
${STEMP0} = stack_depth
${DEST0} = concat ${ST <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911761	912028	
==>e",
                  "CODE" => 1027,
                  "ARGS" => [
                              "i",
                              "sc",
                              "sc"
                            ],
                  "BODY" => "#line 284 \"src/ops/string.ops\"\n <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9710	9826	
==>e {
        return ($self-> popop . " $reg, <rx_stack> # popint");
    }
}

sub output_substr {
    my ($self, $dest, <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22172	22296	
==>inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$label");
  return $return;
}

sub _op_odd_p {
  my ($self <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	6055	6183	
==>y should do @output = (), but I hate doing a
                 # compiler's work for it.
    my $keeping = 1;
    foreach my $stmt <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	20888	21146	
==>print " (Stack now: ", $self->_dump_curr_open(), ")\n";

      push @$curr_open, $para;
      if(!$dont_ignore or scalar grep $_->[1]{'~ignore'}, @$curr_open) {
        DEBUG > 1 and print "Ignoring ignorable =begin\n";
      } else {
        $self->{'content <==
2	/Users/nnunley/parrot/config/inter/libparrot.pm	485	597	
==>figure::Step::Base);

use Parrot::Configure::Step ':inter';

$description = 'Determine if parrot should be li <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	20460	20591	
==>$_[1] ]); }
	],
	[#Rule 20
		 'expr', 3,
sub
#line 131 "lib/Regex/Grammar.y"
{ return op('multi_match' => [ $_[2]->{min}, $_[2]->{ma <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1172	1265	
==>rting with YY (leading YY will be discarded)
my(%params)=(YYLEX => 'CODE', 'YYERROR' => 'CODE <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1130	1222	
==>rting with YY (leading YY will be discarded)
my(%params)=(YYLEX => 'CODE', 'YYERROR' => 'CODE <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	12696	12809	
==>f( !defined $got || !defined $dont_expect ) {
        # undef only matches undef and nothing else
        my $test <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	13140	13253	
==>f( !defined $got || !defined $dont_expect ) {
        # undef only matches undef and nothing else
        my $test <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	8519	8771	
==>ext);  # reuse $type, why not
      $type =~ s/([\?\!\"\'\.\,]) /$1\n/g unless $dont_wrap;
      print $fh $type;
    }

  }
  return 1;
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

sub do_beginning {
  my $self = $_[0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	4351	4498	
==>_t *pc = CUR_OPCODE;\n    DO_OP(pc, interpreter);\n    {{=pc}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227429	227693	
==>nterpreter, {{\@1}}), {{\@2}}) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228409	228673	
==>nterpreter, {{\@1}}), {{\@2}}) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322308	322397	
==>"BODY" => "#line 134 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (UINTVAL)((Parrot_UInt4)({{\@2}}) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323080	323169	
==>"BODY" => "#line 134 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (UINTVAL)((Parrot_UInt4)({{\@2}}) <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	508	674	
==>t::Long;

# Parse command line.
our ($parrot_path, $mono_lib_path, $srm);
GetOptions(
	"parrot=s" => \$parrot_path,
	"srm=s" => \$srm,
	"monolib=s" => \$mono_li <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242037	242173	
==>cmp.ops\"\n  FLOATVAL l = VTABLE_get_number(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242986	243122	
==>cmp.ops\"\n  FLOATVAL l = VTABLE_get_number(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	3250	3406	
==>->{label};
    ($label = $label->{label}) =~ s/^@//; # FIXME: local labels?
    return "$label";
}

sub output_label_def {
    my ($self, $label, $reachable) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	3602	3764	
==>axlen { confess "unimplemented" }
sub startset { confess "unimplemented" }
sub hasback { 0 }
sub dfa_safe { 0 }

# Superclass for ops like scan(R) that contain a s <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20501	20624	
==>.=
'
		$_matched = 1;
		last;
	}

';
	return $code;
}

1;

package Parse::RecDescent::Action;

sub describe { undef }

sub s <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	24347	24490	
==>c += 4\n";
			$arg_name = "I_ARG_$arg_num";
		}

		# int32
		elsif (/^int32$/) {
			$out =  "    \${I_ARG_$arg_num} = bc.read_int32()\n    next_ <==
2	/Users/nnunley/parrot/config/auto/m4.pm	920	1182	
==>if ($m4_hangs{$osname}) {
        $has_gnu_m4 = 0;
    } else {

        # This seems to work for GNU m4 1.4.2
        my $output = capture_output('m4', '--version') || '';
        $has_gnu_m4 = ($output =~ m/^GNU [mM]4 /) ? 1 : 0;
    }

    $conf->data->set(has <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	316619	316904	
==>,
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 370,
                  "ARGS" => [
                              "i" <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5086	5288	
==>e
{
    my $self = shift;
    my $source = shift;
    my @contents = ();
    
    foreach my $content (@{$self->{CONTENTS}})
    {
        push @contents, 
            $self->file_paths_relative_to_sourc <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3078	3204	
==>e
{
	my $self = shift;
	my $source = shift;
	my @contents = ();
	
	foreach my $content (@{$self->{CONTENTS}})
	{
		if ( ref($co <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3550	3689	
==>he C code for C<restart ADDRESS($address)>.

=cut

sub restart_address
{
    my ($self, $addr) = @_;

    die "pbc2c.pl: Cannot handle RESUM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447878	448177	
==>2}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	448704	449003	
==>2}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20895	21251	
==>LAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 28,
                  "ARGS" => [
                              "s",
                              "ic"
                            ], <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	50809	50947	
==>deblock $text, "(){}", '[^(]*';


The ability to specify a different outermost delimiter bracket is useful
in some circumstances. For examp <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	28255	28370	
==>for the above (if any)
            };

'ok' is true if Test::Harness will consider the test to be a pass.

'actual_o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	489736	490109	
==>ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 561,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 517 \"src/ops/m <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13801	13904	
==>'', 'set', [$return,0]);
  }
  else {
    $self->_add_inst ('', 'typeof', [$return,$item]);
    $self->_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2540	2642	
==>um '$num' in opcode @{[$op->full_name]}"
        unless exists $arg_maps{$type};

    return sprintf($a <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4406	4508	
==>um '$num' in opcode @{[$op->full_name]}"
        unless exists $arg_maps{$type};

    return sprintf($a <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	10973	11139	
==>" else print "Correct"

' Expect correct
t=0
if t then
	print "Wrong"
else 
	print "Correct"
end if

' Expect correct
t=1
if t then
	print "Correct"
else 
	print "Wron <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77613	77734	
==>ntext)
		{
			$lastcontext = $tracecontext;
			$tracecontext = qq{"$tracecontext"};
		}
		else
		{
			$tracecontext = qq{< <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665265	665486	
==>_keyed_int(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666042	666263	
==>_keyed_int(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569296	569386	
==>bject.ops\"\n  {{\@1}} = {{\@2}}->vtable->isa(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570189	570279	
==>bject.ops\"\n  {{\@1}} = {{\@2}}->vtable->isa(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	15543	15784	
==>n, $t];
}

sub BINARY_AND
{
    my ($n, $c, $cmt) = @_;
    binary('&', $cmt);
}

sub BINARY_OR
{
    my ($n, $c, $cmt) = @_;
    binary('|', $cmt);
}

sub BINARY_XOR
{
    my ($n, $c, $cmt) = @_;
    binary_word('xor', $cmt);
}

sub BINARY_L <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2124	2265	
==>elf->{parrot} --no-gc languages/${pir_fn}",
            );
        }

        # This does not create byte code, but lua code
        my $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	309	497	
==>ree.

=cut

sub convert_p6tree {
    my ($self, $tree, $ctx) = @_;
    if (ref($tree) eq 'P6C::rx_beg') {
        return $self->convert($tree, $ctx);
    } else {
        return op('scan' = <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1081	1202	
==>arser, $expr )    = @_;
    my ( $defn,   $opcodes ) = @{$expr};
    if ( scalar( @{$opcodes} ) and $opcodes->[-1]->isa( <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	24370	24491	
==>arser, $expr )    = @_;
    my ( $defn,   $opcodes ) = @{$expr};
    if ( scalar( @{$opcodes} ) and $opcodes->[-1]->isa( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	7463	7675	
==>check', [ $t->minlen() + $follow_min, $newtree ]);
    }

    # Shortest possible subtree match is guaranteed.
    my $type = $t->{name};

    if ($type eq 'seq' && ! $t->{add_check_visited}) {
        # Split the <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	4010	4145	
==>)>

Returns the C C<#define> definitions for the elements in the referenced
vtable array.

=cut

sub vtbl_macros {
    my $vtable = shif <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5692	5827	
==>ass;
        require "$pmc.dump";
 
        # there can be many libs
        my %libs = %{ $class->{flags}{lib} || {} };
        $pmc_li <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5903	6038	
==>ass;
        require "$pmc.dump";
 
        # there can be many libs
        my %libs = %{ $class->{flags}{lib} || {} };
        $pmc_li <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21286	21393	
==>n}[1]);
  $self->_add_inst(''           ,'eq'    ,[$temp,0,"DONE_$label"]);
  $self->_restore($temp);
  $sel <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	2840	2962	
==>},
    'list'         => \$cfg{list_only},
    'time'         => \$cfg{use_times},
    'help|?'       => \$cfg{display_help <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	154	394	
==>006
# #############################################################################
# Configure Script
# ################
# This file detects various configuration settings and generates various files
# that will be used in the build pr <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2423	2523	
==>ype = $right->type;
  }

  $self->INTERNAL_ERROR("No type for dest!")  unless defined $dest_type;
  $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2345	2445	
==>ype = $right->type;
  }

  $self->INTERNAL_ERROR("No type for dest!")  unless defined $dest_type;
  $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665217	665301	
==>9 \"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delete_keyed_int(interpreter, {{\@1}}, {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665994	666078	
==>9 \"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delete_keyed_int(interpreter, {{\@1}}, {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2951	3059	
==>he C code for C<restart ADDRESS($address)>.

=cut

sub restart_address
{
    my ($self, $addr) = @_;

    ret <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3820	3928	
==>he C code for C<restart ADDRESS($address)>.

=cut

sub restart_address
{
    my ($self, $addr) = @_;

    ret <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	10802	10995	
==>roper `use()` builtin.

- `ok (Bool $cond, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `is (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `isnt ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78626	78950	
==>PE" => "function",
                  "CODE" => 100,
                  "ARGS" => [
                              "p",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 1176 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interp <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	8947	9066	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
#
# And now codes (not targets or directives)

sub accept_code { s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	8147	8281	
==>ne' => $self->{'line_count'}}, $line];
        }
      } else {
        ++$self->{'pod_para_count'};
        $self->_ponder_paragraph_b <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	4026	4140	
==>ext) = @_;
    my $desc;
    if($text =~ /^\#/) { # perl file (or sh)
	my($comment) = $text =~ /^(\#[^\n]*\n( *\n)? <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	104	205	
==>kage Parrot::Test::M4::PIR;

use strict;
use warnings;
use 5.006;

use base 'Parrot::Test::M4';
use Da <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3426	3556	
==>, 'I2'],
  ['',            'set', 'P17', 'P17[1]'],
  ['',            'typeof', 'I16', 'P17'],
  ['',            'branch', 'apply_C <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62908	63214	
==>ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 82,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 964 \"src/ops/core.ops <==
2	/Users/nnunley/parrot/config/auto/signal.pm	1973	2092	
==>ch $name (split(' ', $Config{sig_name})) {
        print O ".constant SIG$name\t$i\n" if $i;
        $i++;
    }
    clo <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	1859	2040	
==>local/bin/python
    type      = .py

    [benchmark ruby]
    exe       = /usr/bin/ruby
    type      = .rb

=head1 BUGS

While every effort was made to ensure this script is portab <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	329923	330140	
==>CODE" => 387,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 169 \"src/ops/dotgnu.ops\"\n  {{\@1}} =  (FLOATVAL)(Parrot_Float8)({{\@1}} <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	8230	8538	
==>nes;
		
				last if $line !~ /\S/o;
				
				push @abstract, $line;
			}
			
			my $desc = join ' ', @abstract;
			
			# Joining lines may have created a bit of extra whitespace.
			$desc =~ s/\s+/ /osg;
			$desc =~ s/^\s+//os;
			$desc =~ s/\s+$//os;
			
			# Remove any POD.
			# TODO - Decide whether we wa <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	896	1065	
==>LANG $lang_code; # JMG
        close LANG; # JMG

        Parrot::Test::run_command( 
            "$PConfig{perl} languages/urm/urmc -s languages/$lang_f",
            CD <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	984	1107	
==>LANG $lang_code; # JMG
        close LANG; # JMG

        Parrot::Test::run_command( 
            "$PConfig{perl} languages/ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1576	1678	
==>$b = Test::Builder->new();

my $path_to_parrot = $INC{"Parrot/Config.pm"};
$path_to_parrot =~ s:lib/Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840227	840470	
==>r_stack, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840922	841165	
==>r_stack, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41002	41137	
==>f->{max} . ')
		  {
			$backtrack = 0;
			' . $leftarg->code(@_[1..2]) . '
			$repcount++;
			$backtrack = 1;
			' . $op->code(@_[1..2]) <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	33396	33528	
==>ck;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   print <<EOC;
	$vv = $v->[1]
EOC
       }
    }
    my $ag = promo <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22991	23188	
==>>_add_inst(''           ,'mod'   ,[$temp_0,$temp_0,$temp_1]);
  $self->_add_inst(''           ,'eq'    ,[$temp_0,0,"DONE_$label"]);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22490	22602	
==>>_add_inst(''           ,'mod'   ,[$temp_0,$temp_0,$temp_1]);
  $self->_add_inst(''           ,'eq'    ,[$temp_0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	68118	68268	
==>E" => 89,
                  "ARGS" => [],
                  "BODY" => "#line 1049 \"src/ops/core.ops\"\n  Parrot_block_DOD(interpreter);\n  {{+=1}};\n" <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	2058	2189	
==>ION

The tokenizer takes a file and splits it into tokens.

=head1 AUTHOR

Jeffrey Goff, drforr@hargray.com

=head1 SEE ALSO

L<Sche <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	5466	5582	
==>ESTROY {}

sub hasleftmost($$)
{
	my ($self, $ref) = @_;

	my $prod;
	foreach $prod ( @{$self->{"prods"}} )
	{
		retu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641759	642075	
==>typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 717,
                  "ARGS" <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	23264	23433	
==>ogenerated test file */\n";
            print $SOURCE $source;
            close $SOURCE;

            my $libparrot_shared = "$PConfig{rpath_blib} -L$PConfig{blib_dir} - <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7090	7202	
==>E_$label"]);

  my $copy = $self->_new_pair;

  $self->_add_inst('', 'set', [$head, $copy]);

  # maybe ensure th <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	36705	36832	
==>" can never
					   succeed, since optional items always
					   match (zero times at worst). 
					   Did you mean a single \"! <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627194	627296	
==>,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n\n  /* Why?? If we're creating a conti <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628338	628440	
==>,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n\n  /* Why?? If we're creating a conti <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	212181	212268	
==>16 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_STRCM <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	690	779	
==>sa($ident, 'Jako::Construct::Expression::Value::Identifier');
  confess "Props are not has <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	769	858	
==>sa($ident, 'Jako::Construct::Expression::Value::Identifier');
  confess "Props are not has <==
2	/Users/nnunley/parrot/examples/benchmarks/oo1.pl	85	203	
==>oo();
print $o->[0], "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift;
    return bless [ 10 <==
2	/Users/nnunley/parrot/examples/benchmarks/oo2.pl	85	203	
==>oo();
print $o->[0], "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift;
    return bless [ 10 <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	199	295	
==>arrot::Test;

@EXPORT = ( qw(output_is output_like output_isnt), @Test::More::EXPORT );
@ISA = qw <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	116	212	
==>arrot::Test;

@EXPORT = ( qw(output_is output_like output_isnt), @Test::More::EXPORT );
@ISA = qw <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	766	1069	
==>00000;              # set    I4, 100000000
                              #
print "Iterations:    $I4\n"; # print  "Iterations:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113880	114161	
==>s\"\n  {{\@1}} <<= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114619	114900	
==>s\"\n  {{\@1}} <<= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	6	190	
==>rated by config/gen/config_pm.pm
=head1 NAME

Parrot::Config - Parrot Configuration Data

=head1 DESCRIPTION

This file is generated by F<config/gen/config_pm.pm> from
F<config/gen/conf <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	18650	18803	
==>);

    my $class;
    eval do { local $/; <$fh> };
    die $@ if $@;

    close $fh;
    $class;
}


=head2 print_tree( [$dir1, $dir2], 0, $file1, $file2 <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	2152	2246	
==>nce the superclass is determined, it is processed and its method names
are extracted and saved. <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2576	2696	
==>Pod formatters
based on Pod::Simple. It is useful for seeing exactly what events you
get out of some Pod that you feed in <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	11363	11622	
==>it     ctype.h
isfinite    math.h
isgraph     ctype.h
isgreater   math.h
isgreatereq math.h
isinf       math.h
isless      math.h
islessequal math.h
islessgreat math.h
islower     ctype.h
isnan       math.h
isnormal    math.h
isprint     ctype.h
ispunct     ct <==
2	/Users/nnunley/parrot/tools/dev/manicheck.pl	1103	1238	
==>nicheck();
my @extra     = ExtUtils::Manifest::filecheck();
# my @ignored   = ExtUtils::Manifest::skipcheck();

printf "Found %d distinc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40118	40280	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40965	41127	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	1510	1679	
==>t *",
       f => "float",
       d => "double",
       t => "char *",
       v => "void",
       J => "Interp *",
       P => "PMC *",
       O => "PMC *",      # object <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22056	22163	
==>n}[1]);
  $self->_add_inst(''           ,'lt'    ,[$temp,0,"DONE_$label"]);
  $self->_restore($temp);
  $sel <==
2	/Users/nnunley/parrot/lib/Parrot/Revision.pm	441	570	
==>undef;

sub __get_revision {
    return 0 unless (-e ".svn/entries");
    $svn_entries = ".svn/entries";

    # code taken from pu <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	289	398	
==>rot::Test::Python. Abstraction needed.

=cut

sub new {
    return bless {};
}

sub output_is() {
    my ($sel <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	327	436	
==>rot::Test::Python. Abstraction needed.

=cut

sub new {
    return bless {};
}

sub output_is() {
    my ($sel <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365219	365319	
==>Y" => "#line 303 \"src/ops/io.ops\"\n  if ({{\@2}} && {{\@1}}) {\n    PIO_putps(interpreter, {{\@1}}, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366059	366159	
==>Y" => "#line 303 \"src/ops/io.ops\"\n  if ({{\@2}} && {{\@1}}) {\n    PIO_putps(interpreter, {{\@1}}, <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	6182	6316	
==>ze|indentation|created (on|by)):.*//mg;
	$desc = $_;
    }
    if(!$desc) {
	s/^ *[a-z0-9_]+\.[chly]\s*\n//mi; # own filename - kludgy. <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10329	10449	
==>rror token

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Shift \$error token and go to state ".
#DBG>						 $$sta <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9864	9980	
==>rror token

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Shift \$error token and go to state ".
#DBG>						 $$sta <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6527	6643	
==>r my $source (@sources) {
        return 1 if modtime($source) > $target_mod;
    }

    return 0;
}

sub generate_du <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6738	6854	
==>r my $source (@sources) {
        return 1 if modtime($source) > $target_mod;
    }

    return 0;
}

sub generate_du <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	535	665	
==>] eq 'text'  }

1;
__END__

sub dump { '[' . _esc( @{ $_[0] } ) . ']' }

# JUNK:

sub _esc {
  return '' unless @_;
  my @out;
  fo <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	5369	5610	
==>svk';
   }

   # Find all directories in the Parrot distribution
   my %dir_list  = map { my $dir = ( File::Spec->splitpath( $_ ) )[1];
                         $dir =~ s!\.svn/$!!;
                         $dir => 1 
                       } <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	22341	22508	
==>ach my $func ( keys %c_test_map ) {
        push @EXPORT, $func;
        no strict 'refs';

        *{$package.'::'.$func} = sub {
            my ($source, $expected, $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871944	872182	
==>s",
                              "sc",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interprete <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	118	348	
==>ParserToken');
use strict;

sub new {  # Class->new(tagname, optional_attrhash);
  my $class = shift;
  return bless ['start', @_], ref($class) || $class;
}

# Purely accessors:

sub tagname   { (@_ == 2) ? ($_[0][1] = $_[1]) : $_[ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	794	926	
==>returning you
# the literal for you to use in other compilations. But, string
# literals are subject to interpolation, and so they go <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712762	712960	
==>io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713869	714067	
==>io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11302	11436	
==>e_node->label);
  unless(defined $text) {
    print "Unknown E sequence \"", $e_node->label, "\"!";
  }
  ...else print/interpolate $te <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	6584	6688	
==>_H_GUARD

typedef enum {
END_C

for(@{$real_ops->{OPS}}) {
    my $opname = $_->full_name;
    my $n = $_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	98913	99177	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnot",
                  "FLAGS" => " <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30784	30886	
==>oad($need_dest);
		$pir .= "### post_load\n";
		$pir .= sub_meta($post_load, $mv, "post_load for rule $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439560	439680	
==>{{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440575	440695	
==>{{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	399866	400369	
==>" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 463,
                  "ARGS" => [
                              "p",
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 527 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	27157	27486	
==>,
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 36,
                  "ARGS" => [
                              "pc"
                            ],
                  "BODY <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71979	72333	
==>unc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 96,
                  "ARGS" = <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	9851	10004	
==>UCKET ]}\": $!\n";

  exit if $exit;
}

__DATA__
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
  "http://www.w3 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	7313	7456	
==>if (! @stack) {
			push @stack, $item;
			next;
		}
		while(@stack and precedence($stack[-1]->[0]) >= precedence($item->[0])) {
			push @stream, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	958	1081	
==>ne will give you
a start-token with the tagname of "head1", token(s) for its
content, and then an end-token with the tagname <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1386	1509	
==>ne will give you
a start-token with the tagname of "head1", token(s) for its
content, and then an end-token with the tagname <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	17140	17382	
==>tream)=generate_code(0, @stream);	# Generate PASM code stream
	}
	s/$/\n/ for @stream;
	@stream=("\t#\n", "\t# Evaluating   $whole\n", "\t# Result in $result of type $type\n", @stream);		
	return($result, $type, @stream);
}
sub changename {
	m <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	4628	4757	
==>re, $ldel, $qdel, $quotelike, $rdel
{
	my ($textref, $pre, $ldel, $qdel, $quotelike, $rdel) = @_;
	my ($startpos, $ldelpos, $endpo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352292	352400	
==>c/ops/io.ops\"\n  PIO_printf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352950	353058	
==>c/ops/io.ops\"\n  PIO_printf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964587	964908	
==>ine",
                  "CODE" => 1085,
                  "ARGS" => [
                              "i",
                              "i",
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146361	146454	
==>spatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_EQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167587	167680	
==>spatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_EQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n", <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2364	2480	
==>f, $what) = @_;
    $what = value($what);
    return ("print $what;");
}

sub output_test {
    my ($self, $test, $va <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2681	2796	
==>f, $what) = @_;
    $what = value($what);
    return ("print $what");
}

sub output_test {
    my ($self, $test, $va <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	486698	486991	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ceil",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TY <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	487449	487742	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ceil",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TY <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	6774	6930	
==>g the algorithm is derived from that in the RFC and is
covered by the following copyright:

=over 4

=item *

Copyright (C) 1991-2, RSA Data Security, Inc. C <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11221	11319	
==>die "Expected ',': $syms[CURR]" unless $syms[CURR] eq ",";
	feedme();
	my($rightres, $righttype, @r <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	26543	26667	
==>fallbacks) {
      next if exists $Known_formatting_codes{$f} or $f eq '0' or $f eq '1';
      DEBUG > 2 and print "  Can't f <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8132	8290	
==>turn($semval);
			};

                $$check eq 'ABORT'
            and	do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Abort.\n";

				return(u <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7766	7915	
==>turn($semval);
			};

                $$check eq 'ABORT'
            and	do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Abort.\n";

				return(u <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	118	292	
==>arserToken');
use strict;

sub new {  # Class->new(text);
  my $class = shift;
  return bless ['text', @_], ref($class) || $class;
}

# Purely accessors:

sub text { (@_ == 2) <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	17686	17792	
==>O_$docounter:\n";
		my($result, $type, @code)=EXPRESSION();
		$false=qq{""} if $type eq "S";
		if ($which e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490401	490762	
==>NAME" => "inc",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 562,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#li <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	491022	491285	
==>NAME" => "inc",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 563,
                  "ARGS" => [ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22342	22440	
==>lf->_gensym();

  my $temp_0 = $self->_generate($node->{children}[1]);
  $return = $self->_constant <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22843	22941	
==>lf->_gensym();

  my $temp_0 = $self->_generate($node->{children}[1]);
  $return = $self->_constant <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	1909	2068	
==>mmon qw/comment/;
use Getopt::Long;
use strict;

if(1) {
    my $show_full = 0;
    GetOptions('plus-misses' => \$show_full)
	|| die ("Usage: $0 [--plus-misses] <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37425	37531	
==>Descent::_tracefirst($text),
				  q{' . $rule->{"name"} . '})
					if defined $::RD_TRACE;').'
		$Parse::R <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39828	39934	
==>Descent::_tracefirst($text),
				  q{' . $rule->{"name"} . '})
					if defined $::RD_TRACE;').'
		$Parse::R <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	27912	28064	
==>n
EOC
    for (my $i = $n-1; $i >= 0; $i--) {
	my $p = pop @stack;
	print <<EOC;
	$ar\[$i\] = $p->[1]
EOC
    }
    push @stack, [$n, $ar, 'P'];
}

sub B <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38115	38300	
==>." => 49,
			'STRING' => 44,
			"{" => 38
		},
		DEFAULT => -84,
		GOTOS => {
			'tableconstructor' => 46,
			'args' => 135,
			'key' => 136
		}
	},
	{#State 149
		DEFAULT => <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1399	1516	
==>e()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $dest_ident = $self->dest;

  my $block = $self- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1279	1396	
==>e()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $dest_ident = $self->dest;

  my $block = $self- <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1171	1289	
==>_to_parrot));
        my $path_to_language;
        if ($dir_count == 0) {
          $path_to_language = File::Spec->jo <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1656	1774	
==>_to_parrot));
        my $path_to_language;
        if ($dir_count == 0) {
          $path_to_language = File::Spec->jo <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	266	386	
==>bs');
    my $cflags    = $conf->data->get('ccflags');
    my $cc        = $conf->data->get('cc');
    my $linkflags = $c <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	943	1117	
==>}

  #Pod::Simple::DEBUG > 10 and print " appended to $$it = \"$$$it\"\n";

  return 1;
}

sub FETCH {
  return ${$_[0]};
}

sub PRINTF {
  my $it = shift;
  my $format = shif <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	29599	29764	
==>];
    print <<EOC;
	$cmt
EOC
    push @stack, $tos;
}

sub DUP_TOPX
{
    my ($n, $c, $cmt) = @_;
    foreach (1..$n) {
	my $thing = $stack[-$n];
	push @stack, $thin <==
2	/Users/nnunley/parrot/config/auto/m4.pm	771	893	
==>me, $cpuarch) = ($cpuarch, "");
    }

    my $has_gnu_m4;

    # Calling 'm4 --version' hangs under FreeBSD
    my %m4_han <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	453	795	
==>nd C<gcov> to be installed.

The reports start at F<parrot_coverage/index.html>.

=cut

use strict;

use Data::Dumper;
use File::Basename;
use File::Find;
use POSIX qw(strftime);


my $SRCDIR  = "./"; # with trailing /
my $HTMLDIR = "parrot_coverage";
my $DEBUG   = 1;

if ($ARGV[0] && $ARGV[0] =~ /recompile/) {

    # clean up remnants of pr <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	12394	12499	
==>ntent eq 'ALREADYDONE') {
    # It's already been handled.  Check for errors.
    if(! $self->{'encoding_c <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1386	1496	
==>ad source code as input.
  #

  $self->INTERNAL_ERROR("Undefined block!")
    unless defined $block;

  $self-> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1234	1344	
==>ad source code as input.
  #

  $self->INTERNAL_ERROR("Undefined block!")
    unless defined $block;

  $self-> <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	3127	3380	
==>e, $expected, $description)>

Runs the PIR code and passes the test if output matches the expected
result.

=item C<pir_output_isnt($code, $unexpected, $description)>

Runs the PIR code and passes the test if a string comparison of the output
with the un <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	5446	5586	
==>classes_o   => $TEMP_pmc_classes_o,
        TEMP_pmc_classes_str => $TEMP_pmc_classes_str,
        TEMP_pmc_classes_pmc => $TEMP_pmc_classes_ <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	14325	14431	
==>,		/* op_info_table */
  $op_func,		/* op_func_table */
  $getop		/* op_code() */
};

END_C

# generate ini <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	22311	22438	
==>e',
    );
    my @opcodes = ();
    my $flag = new_tmp( $parser, 'int' );
    push @opcodes, @{ $expr1->[1] };
    push @o <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	10717	10919	
==>tack> = <rx_match>{'!STACK'};
#     }
# END
        @ops = ("sub _rule_$name {", 'my ($rx_mode, $rx_input, $rx_pos, $rx_stack) = @_;');
#    }

    if ($self->{DEBUG}) {
        push @ops, qq(print "Call <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	6073	6245	
==>and something trickier like /ab|c[dxy]e/ compiles to
#
#          check(2)
#          match(a) or goto try_S
#          match(b) or goto try_S
#          goto next
#   try_S <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	37115	37488	
==>$nil->[1] };
        push @opcodes2, new LexDir( $parser,
            'prolog' => 1,
            'result' => $idf,
            'arg1'   => $defn,
        );
        my $lbl = new_label($parser);
        push @opcodes2, new BranchUnlessNullOp( $parser,
            'prolog' => 1,
            'arg1'   => $defn,
            'result' => $lbl,
        );
        pus <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/EditorPlugins.pm	579	680	
==>ub new
{
	my $self = shift;
	
	return $self->SUPER::new(
		'Editor Plugins', 'editor.html', '',
		$sel <==
2	/Users/nnunley/parrot/config/auto/isreg.pm	268	364	
==>g;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

us <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2689	2824	
==>ML.  This class is of
interest to people writing Pod formatters based on Pod::Simple.

Pod::Simple::DumpAsXML inherits methods from
L<Po <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15949	16065	
==>Test::Harness
distribution.

= AUTHORS

Audrey Tang <autrijus@autrijus.org>

Benjamin Smith

Norman Nunley

Steve Pet <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3917	4034	
==>uffix, failing that it
looks at the file's name. If it fails for both it returns 'Undefined'.

=cut

sub type
{
	my $s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666773	666880	
==>\"src/ops/pmc.ops\"\n  {{\@1}} = VTABLE_elements(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Test/More.pm	7040	7184	
==>$) {
    my($test, $name) = @_;
    $Test->ok($test, $name);
}

=item B<is>

=item B<isnt>

  is  ( $this, $that, $test_name );
  isnt( $this, $t <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	5134	5242	
==>he preamble for the MODULE file:
#

my $version = $real_ops->version();

# Hide the pod.

(my $pod = <<"END_P <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	442	566	
==>.

=cut

sub new {
    return bless {};
}

my %language_test_map = (
    output_is   => 'is_eq',
    output_like => <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	23756	23977	
==>does");
EOC
    }
    $cout .= <<"EOC";
        interp->vtables[entry] = vt_clone;
EOC
    $cout .= <<"EOC";
    } 
    else { /* pass */
EOC

   # To make use of the .HLL directive, register any mapping...
    if ($self-> <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	52393	52518	
==>'') and UNIVERSAL::isa($lol->[$i], 'ARRAY') ) {
      _stringify_lol( $lol->[$i], $to);  # recurse!
    } else {
      $$to .= <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	835	957	
==>be as qualified as
necessary for your platform--generally the full filename is required,
though the directory generally isn <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	289524	289887	
==>NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 337,
                  "ARGS" => [
                              "i" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7105	7204	
==>"Start (11): ", instr(6, s1$, " ")
print "Inval  (0): ", instr(4, bogus$, "t")
' instr() tests
s1$=" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18834	18933	
==>"Start (11): ", instr(6, s1$, " ")
print "Inval  (0): ", instr(4, bogus$, "t")
' instr() tests
s1$=" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441589	441678	
==>{{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442604	442693	
==>{{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n" <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	11633	11799	
==>=> 7
		}
	},
	{#State 3
		ACTIONS => {
			'' => 18
		}
	},
	{#State 4
		DEFAULT => -45
	},
	{#State 5
		DEFAULT => -15,
		GOTOS => {
			'@3-1' => 19
		} <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23381	23492	
==>rate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp = $self->_generate($node->{children}[ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23843	23954	
==>rate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp = $self->_generate($node->{children}[ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11059	11160	
==>m_groups
  length <rx_len>, <rx_input> # cache the length in <rx_len>

END

    push @ops, $self->outp <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	6843	7024	
==>$type =~ /^[DdGg]$/) ? 1 : 0;
		my $file     = ($type =~ /^[Ff]$/  ) ? 1 : 0;
		my $small    = ($type =~ /^[Gg]$/  ) ? 1 : 0;
		my $code     = ($type =~ /^[Tt]$/  ) ? 1 : 0;
		my $un <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	7696	7815	
==>cut

sub directory_with_name
{
    my $self = shift;
    my $path = $self->path_for_directory_with_name(shift) || return <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	3337	3470	
==>Current position is $pos");
  $pos += $offset;
#  DEBUG(0, "Getting token at $pos");
  
  return $self->at($pos, $count);
}


#
# fort <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	3300	3408	
==>:$depends) returns Bool is export {
    my $out := defined($desc) ?? $desc !! "The object is-a '$expected_typ <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	1944	2104	
==>_ops_cgp$(O)',
            TEMP_cg_r => '$(RM_F) $(INC_DIR)/oplib/core_ops_cg.h $(OPS_DIR)/core_ops_cg.c \
                    $(INC_DIR)/oplib/core_ops_cgp.h $( <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	5274	5395	
==>lass;
	}
}

sub reset($)
{
	@{$_[0]->{"prods"}} = ();
	@{$_[0]->{"calls"}} = ();
	$_[0]->{"changed"}  = 0;
	$_[0]->{"impco <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	8079	8176	
==>$str .= $_->{code}{name} . " " . join(", ", map { ref($_) ? $_->{label} : $_ } @{ $_->{code}{args} <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	977	1111	
==>dent->value,
    FILE   => $ident->file,
    LINE   => $ident->line,
  }, $class;

  #
  # Check for a few bad conditions.
  #
  # NOTE <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	47679	47844	
==>s(1);

  my $out = '';
  $parser->output_string( \$out );
  DEBUG and print " _out to ", \$out, "\n";
  
  $mutor->($parser) if $mutor;

  $parser->parse_string_docum <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	17384	17500	
==>ts
sub get_super_mmds {
    my ($self, $meth, $right, $func) = @_;
    ## use Data::Dumper;
    ## printf "******* $m <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	22130	22444	
==>next unless ref $treelet->[$i];  # text nodes are uninteresting
      
      DEBUG > 4 and print "  Noting child $i : $treelet->[$i][0]<...>\n";
      
      $is = $treelet->[$i][0] = $map->{ $was = $treelet->[$i][0] };
      if( DEBUG > 3 ) {
        if(!defined $is) {
          print "   Code $was<> is UNKNOWN!\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272288	272587	
==>NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 317, <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	2687	2820	
==>ME: $VERSION ( $RCS_DATE)\n";
}

sub show_help {
print <<__EOF__;
$ME: Usage: $ME [options] [ foo.o ... | bar.a | other_library_format <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6162	6366	
==>token}
                    :   exists($$actions{DEFAULT})
                        ?   $$actions{DEFAULT}
                        :   undef;
        }
        else {
            $act=$$actions{DEFAULT <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5873	6071	
==>token}
                    :   exists($$actions{DEFAULT})
                        ?   $$actions{DEFAULT}
                        :   undef;
        }
        else {
            $act=$$actions{DEFAULT <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	40000	40117	
==>f,

#--------------------
#
# Macros
#
#--------------------

  'let-syntax'          => \&_op_let_syntax,
  'letrec-s <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	9902	10021	
==>RR] ]);
		if ( (isbuiltin($syms[CURR]) or isuserfunc($syms[CURR]))
			and $syms[NEXT] ne "(" and $type[CURR] ne "STRING" <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2980	3084	
==>- ${$$self{DOTPOS}} - 1;

		$index < 0
	and	-$index <= @{$$self{STACK}}
	and	return $$self{STACK}[$in <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2836	2936	
==>- ${$$self{DOTPOS}} - 1;

		$index < 0
	and	-$index <= @{$$self{STACK}}
	and	return $$self{STACK}[$in <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	7932	8273	
==>t/local/lib -L/usr/local/lib -flat_namespace ',
             'lex' => 'echo',
             'lib_dir' => '/opt/local/lib',
             'libparrot' => 'libparrot.a',
             'libparrot_ldflags' => 'libparrot.a',
             'libparrot_shared' => 'libparrot.$(SOVERSION).dylib',
             'libparrot_shared_alias' => 'libparrot.dylib', <==
2	/Users/nnunley/parrot/examples/benchmarks/shared_ref.pl	359	506	
==>cut

use strict;
use threads;
use threads::shared;

for my $i (0..99_999) {
    my $r :shared;
    my $j :shared;
    $r = \$j;
    $$r = $i;
}

=he <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	27094	27327	
==>t
EOC
	    $lexicals{$c} = $p;
	}
    }
    else {
	$lexicals{$c} = promote($tos);
	print <<"EOC";
        \t $cmt
EOC
    }
}

sub UNARY_CONVERT
{
    my ($n, $c, $cmt) = @_;
    my $tos = pop @stack;
    my $p = promote($tos);
    m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048381	1048617	
==>bal(interpreter, NULL, {{\@2}}, next);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049305	1049541	
==>bal(interpreter, NULL, {{\@2}}, next);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30306	30418	
==>y
{
    my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};

    my $decl = $self->decl( <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	666	857	
==>item C<defines()>

Returns the C C<#define> macros for register access etc.

=cut

sub defines
{
    return <<END;
#undef CONST
#define REL_PC     ((size_t)(cur_opcode - interpreter->code->bas <==
2	/Users/nnunley/parrot/config/auto/pack.pm	1864	2010	
==>r %d bytes, but '$format' gave %d bytes.
AARGH
            }
        } else {
            $format = '?';
        }

        $conf->data->set($which <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	399	525	
==>:Block::Conditional);

#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $left, $op, $right) = @_;

  confess "Block is <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	411	537	
==>:Block::Conditional);

#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $left, $op, $right) = @_;

  confess "Block is <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1439	1639	
==>in a /first-come-first-served/ basis, so just be
sure (as with perl5 lib.pm) to use this module first.

= SEE ALSO

`perldoc lib`

= AUTHOR

Stevan Little <stevan@iinteractive.com>

= COPYRIGHT

Copyri <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	3550	3677	
==>$text)
	if $path =~ /\.([chlyC]|cpp|cola|xs|pmc)$|[_\.][ch]\.in$/;
    return &describe_perl_file($info,$text)
	if $path =~ /\.( <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	2745	2924	
==>ings'),
            $self->c_pair_item('', 'longopt'),
        ),
        $self->new_group(
            'Interpreter', 
            '',
            $self->c_pair_item('', 'embed'), <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853330	853417	
==>line 100 \"src/ops/string.ops\"\n  {{\@1}} = string_append(interpreter, {{\@1}}, {{\@2}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854112	854199	
==>line 100 \"src/ops/string.ops\"\n  {{\@1}} = string_append(interpreter, {{\@1}}, {{\@2}} <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5228	5355	
==>k.=		(ord($_) < 32 or ord($_) > 126)
#DBG>					?	sprintf('<%02X>',ord($_))
#DBG>					:	$_;
#DBG>		}
#DBG>		$tok.='<';
#DBG> <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4977	5099	
==>k.=		(ord($_) < 32 or ord($_) > 126)
#DBG>					?	sprintf('<%02X>',ord($_))
#DBG>					:	$_;
#DBG>		}
#DBG>		$tok.='<';
#DBG> <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3385	3510	
==>p_files) {
        my @pmcfiles = map { "$_.pmc" } @$pmcs;
        if (needs_build("$group.c", @pmcfiles)) {
            run(" <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3489	3614	
==>p_files) {
        my @pmcfiles = map { "$_.pmc" } @$pmcs;
        if (needs_build("$group.c", @pmcfiles)) {
            run(" <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	1712	1897	
==>s;
}
else {
    $jit_cpu = ($cpuarch eq 'i386') ? 0 : 1;
    push @jit_funcs, "Parrot_jit_fn_info_t op_exec[$core_numops] = {\n";
    $func_end = "_exec";
    $normal_op = "Parrot_exec_n <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6229	6355	
==>p_files, \%group_libs, \%pmc_group, \%pmc_libs);
}

sub modtime {
    my $ago = (-M shift);

    if (defined $ago) {
        re <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6440	6566	
==>p_files, \%group_libs, \%pmc_group, \%pmc_libs);
}

sub modtime {
    my $ago = (-M shift);

    if (defined $ago) {
        re <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	12436	12566	
==>name .": $jit_func $extern\n";
        }
        # some specials
        elsif ($op->full_name eq 'if_p_ic') {
            $jit_fun <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	73336	73438	
==>_[2] if @_ > 2;
	$_[0]->{offsetlinenum} = $_[0]->{lastlinenum};
	$_[0]->{fulltext} = $text;
	$_[0]->{fu <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25626	25737	
==>self->_restore($temp);
  } else {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27524	27635	
==>self->_restore($temp);
  } else {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2843	2971	
==>s.
sub pre_op($$) {
	my $self = shift;
	my ($pops, $pushes) = @_;
	my $register_num = 0;
	my $push_num = 0;
	my $pir = '';

	# Do <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1765	1893	
==>s.
sub pre_op($$) {
	my $self = shift;
	my ($pops, $pushes) = @_;
	my $register_num = 0;
	my $push_num = 0;
	my $pir = '';

	# Do <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	38445	38631	
==>ne at the end.
	$ins .= "\n" unless $ins =~ /\n$/;

	# Escape some characters that will go into the output.
	$ins =~ s/\\/\\\\/g;
	$ins =~ s/\n/\\n/g;
	$ins =~ s/"/\\"/g;

	# Substitute i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2011	2121	
==>e);

  #
  # If the identifier is already defined at this lexical scope, we want to complain
  # about the rede <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1758	1868	
==>e);

  #
  # If the identifier is already defined at this lexical scope, we want to complain
  # about the rede <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3185	3314	
==>$$self{TOKEN}}=$_[0];
    ${$$self{TOKEN}};
}

sub YYCurval {
	my($self)=shift;

        @_
    and ${$$self{VALUE}}=$_[0] <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3028	3149	
==>$$self{TOKEN}}=$_[0];
    ${$$self{TOKEN}};
}

sub YYCurval {
	my($self)=shift;

        @_
    and ${$$self{VALUE}}=$_[0] <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	1575	1696	
==>_DIR)/ops2c.pl CGoto --core

$(INC_DIR)/oplib/core_ops_cgp.h: $(OPS_DIR)/core_ops_cgp.c 

$(OPS_DIR)/core_ops_cgp.c : $(OP <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	21176	21354	
==>@{ $stack[0] } == 3 and !ref $stack[0][2]) {
    # VERY common case: abort it.
    DEBUG and print "Skipping _remap_sequences: formatless treelet.\n";
    return 0;
  }
  
  my $m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122106	122335	
==>ed.\n   */\n  LVALUE_CAST(UINTVAL, {{\@1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123018	123247	
==>ed.\n   */\n  LVALUE_CAST(UINTVAL, {{\@1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	25531	25687	
==>parser);
    my $l_next = new_label($parser);
    push @opcodes, new BranchUnlessOp( $parser,
        'arg1'   => $cond->[0],
        'result' => $l_next <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	4086	4244	
==>if ($^O eq 'hpux'    && $nm_try =~ /linker command|HP-UX/) { 
    $nm_opt = '-p';
} elsif ($^O eq 'aix'     && $nm_try =~ /illegal option/) {
    $nm_opt = '-B <==
2	/Users/nnunley/parrot/lib/Test/More.pm	14329	14571	
==>me);

Sometimes you just want to say that the tests have passed.  Usually
the case is you've got some complicated condition that is difficult to
wedge into an ok().  In this case, you can simply use pass() (to
declare the test ok) or fail (for <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3835	3957	
==>(@pmcs);

    # lib-GROUP.c
    for my $group (keys %$group_files) {
        compile("$group", "lib-$group")
          or d <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3939	4061	
==>(@pmcs);

    # lib-GROUP.c
    for my $group (keys %$group_files) {
        compile("$group", "lib-$group")
          or d <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	1163	1266	
==>d suffice for this test.
        Parrot::Configure::Step::_run_command("$cc -o test test.c", 'test.cco', <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	11040	11206	
==>if ($$flag eq '0')
    {
        $$flag = $value;
    }
    else
    {
        $$flag .= "|$value";
    }
}

=item C<make_op($code,
$type, $short_name, $body, $args, $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554012	554113	
==>nt = {{\@3}};\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_method(interpreter, o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555409	555510	
==>nt = {{\@3}};\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_method(interpreter, o <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	22104	22221	
==>erate over children
      next unless ref $treelet->[$i];  # text nodes are uninteresting
      
      DEBUG > 4 and p <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4017	4120	
==>(17);
  $new->normal_halfpoint_size(25);

  return $new;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	10780	10909	
==>sFile: File ended with incomplete op definition!\n";
    }

    close $OPS or die "Could not close ops file '$file' ($!)!";

    r <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	12807	12923	
==>og if $path;
    }

    return;
}

=item C<_slurp($filename)>

Slurps C<$filename> into memory and returns it as a st <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	13725	13855	
==>f->new unless ref($self); # so we tolerate being a class method
  
  if(!defined $source)             { $source = *STDIN{IO}
  } el <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	1902	2021	
==>oin($path_to_tcl, 'tcl.pbc');
    if (defined($ENV{PARROT_TCLSH})) {
      $executable = $ENV{PARROT_TCLSH};
    }
    $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	35587	35722	
==>my ($parser) = @_;
    my @opcodes = ();
    push @opcodes, new BranchOp( $parser,
        'result' => 'break',
    );
    return \ <==
2	/Users/nnunley/parrot/config/auto/jit.pm	4012	4177	
==>$conf->options->get('execcapable');
        if ($execcapable) {
            $conf->data->set(
                TEMP_exec_h =>
                    '$(SRC_DIR)/jit.h $(I <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	5122	5267	
==>ion.
        $dest = File::Spec->catdir($options{libdir}, 'pkgconfig', $dest);
    } else {
        $dest =~ s/^runtime/lib/;
        $dest = File <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10964	11076	
==>lsif($t->is_text) {
      $out .= $t->text;
    } elsif($t->is_start and $t->tag eq 'X') {
      # ignore until t <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	1197	1368	
==>l6 code back into APL.

.sub "__load_pirtable" :load
    $P0 = new .Hash
    store_global "APL", "%pirtable", $P0

    # these are the 'generic' forms of each op
    $P0['d <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	43659	43776	
==>(!defined( $charnum )) {
        DEBUG > 1 and print "I don't know how to deal with E<$content>.\n";
        $self->wh <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	9207	9422	
==>ch $char at %<rx_pos>\n"),
                      aop('goto', [ $old_lastback ]));
    }
    push @ops, (
                     aop('match', [ $char, $lastback ]),
                     aop('increment', [ 1, $lastback ] <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	22874	22986	
==>tack[-1];
    print <<EOC;
    # tuple $tupl->[1] n = $tupl->[0]
EOC
    $n = $tupl->[0];
    UNPACK_SEQUENCE($n, <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	594	704	
==>erl6;

use strict;
use warnings;

use File::Basename;
use File::Spec;
use Parrot::Config;

require Exporter;
re <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	62055	62161	
==>quoting or escaping.

=item  C<No block delimiter found after quotelike "%s">

C<extract_quotelike> or C<ex <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	329	479	
==>9plus.pbc

=head1 METHODS

=head2 new

=cut

sub new {
    return bless {};
}

my %language_test_map = (
    output_is         => 'is_eq',
    output_l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	618941	619057	
==>_MIC *) cur_opcode[1];\n    lt = left->vtable->base_type;\n    right = {{\@3}};\n    lru = &mic->lru;\n    rt = right <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1108595	1108771	
==>\n            type = pmc_type_p(interpreter, {{\@2}});\n            if (type <= 0)\n                real_exception(interpreter, NULL, NO_CLASS,\n                    \"Class '%Ss <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	245189	245362	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp_str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	28242	28429	
==>S" => [
                              "pc"
                            ],
                  "BODY" => "#line 502 \"src/ops/core.ops\"\n    opcode_t * const this = CUR_OPCODE;\n    PMC * co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733658	733751	
==>=> "#line 134 \"src/ops/set.ops\"\n  {{\@1}} = string_to_int(interpreter, {{\@2}});\n  {{+=3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734422	734515	
==>=> "#line 134 \"src/ops/set.ops\"\n  {{\@1}} = string_to_int(interpreter, {{\@2}});\n  {{+=3}} <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	1205	1364	
==>],
  ['',             'print', '" "'],
  ['',             'branch', 'write_NEXT'],
  ['write_DOT',    'print', '" . "'],
  ['',             'save', 'P1'],
  ['' <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	32986	33108	
==>called.  This is so "require Test::Simple" 
    # doesn't puke.
    if( ($self->{Original_Pid} != $$) or
	(!$self->{Have_Pl <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	10292	10471	
==>gin:           0;

      font-family: sans-serif;
      line-height: 1.3em;
      font-size:   95%;
    }

    h1, h2 {
      background-color: #313052;
      color:            whi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106326	1106422	
==>L, E_ValueError,\n\t\t\"type number out of range\");\n    {{\@1}} = interpreter->vtables[typ]->cl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107302	1107398	
==>L, E_ValueError,\n\t\t\"type number out of range\");\n    {{\@1}} = interpreter->vtables[typ]->cl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465830	466211	
==>,
                  "NAME" => "dec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 534,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465209	465588	
==>,
                  "NAME" => "dec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 533,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075880	1076228	
==>ODE" => 1197,
                  "ARGS" => [
                              "i",
                              "i",
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTV <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21874	22061	
==>5,
			'primary' => 28
		}
	},
	{#State 68
		ACTIONS => {
			"^" => 79
		},
		DEFAULT => -73
	},
	{#State 69
		ACTIONS => {
			"^" => 79
		},
		DEFAULT => -75
	},
	{#State 7 <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	9944	10089	
==>,     $parapos-$textpos,		# TEXT
		$parapos,     0,				# NO CLOSING TAG
		$parapos,     length($$textref)-$parapos,	# REMAINDER
	       );
	
match <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	51961	52120	
==>];
        }
	],
	[#Rule 48
		 'var', 2,
sub
#line 288 "Lua\lua51.yp"
{
            [ @{ $_[1] }, $_[2] ];
        }
	],
	[#Rule 49
		 'key', 3,
su <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	718	848	
==>ting $Parse::RecDescent::expected";
	}
	else
	{
		$Parse::RecDescent::unexpected =~ /\s*(.*)/;
		return "Was expecting $Parse::RecD <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8575	8717	
==>tests of $Test::num_of_tests_run");
    }
    if ($Test::num_of_tests_badpass) {
        $*ERR.say("# Looks like $Test::num_of_tests_badpass te <==
2	/Users/nnunley/parrot/languages/urm/urm-old.pl	828	986	
==>ram, $code ;
	}
}
close PROGRAM;

#print Dumper @program;

my $pos = 1;
while (1) {
    my $line = $program[$pos -1];
    if ($pos > @program) {last;}
    prin <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	7121	7214	
==>$resulty)
YNOTX
	} elsif (@codex and not @codey) {
	push @{$code{$seg}->{code}},<<XNOTY;
@code <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2989	3076	
==>'Jako::Construct::Type::String');
  $self->SYNTAX_ERROR("Can't do arithmetic on strings" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	3109	3196	
==>'Jako::Construct::Type::String');
  $self->SYNTAX_ERROR("Can't do arithmetic on strings" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243941	244033	
==>\"\n  STRING* l = VTABLE_get_string(interpreter, {{\@2}});\n  {{\@1}} = string_compare(interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244873	244965	
==>\"\n  STRING* l = VTABLE_get_string(interpreter, {{\@2}});\n  {{\@1}} = string_compare(interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45868	46249	
==>" => "pushaction",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 59,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 742 \"src/ops/core.ops\"\n <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	2501	2597	
==>p->vtables[pmc_id]->whoami;
    VTABLE_set_integer_keyed_str(interp, registry, key, pmc_id);
}

v <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9873	9964	
==>$d,$a,$b,$c,$_[8],11,0x4bdecfa9,/* 38 */
HH,$c,$d,$a,$b,$_[11],16,0xf6bb4b60,/* 39 */
HH,$b, <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1133	1286	
==>ser->YYData->{nb_info} ) {
        $parser->YYData->{nb_info}++;
    }
    else {
        $parser->YYData->{nb_info} = 1;
    }

    print STDOUT ' <==
2	/Users/nnunley/parrot/tools/dev/gen_class.pl	1291	1414	
==>ded entries.
 *  References:
 */

#include "parrot/parrot.h"

pmclass $classname {

EOF

## emit method bodies
fo <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64211	64402	
==>my $pos = pos $grammar;
						substr($grammar,$pos,0,
						       "<leftop: $name $2 $name>($1) ");

						pos $grammar = $pos;
					}
					else
					{
						$item = new Parse::RecDescent::Re <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	2788	2915	
==>code, $unexpected, $description)>

Runs the PAST code and passes the test if a string comparison of the output
with the unexpect <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	816633	816885	
==>23,
                  "ARGS" => [],
                  "BODY" => "#line 600 \"src/ops/set.ops\"\n  Parrot_clear_n(interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
2	/Users/nnunley/parrot/config/auto/memalign.pm	997	1261	
==>>data->set(malloc_header => 'malloc.h');
    } else {
        $conf->data->set(malloc_header => 'stdlib.h');
    }

    if ($conf->data->get('ptrsize') == $conf->data->get('intsize')) {
        $conf->data->set(ptrcast => 'int');
    } else {
        $conf->data->s <==
2	/Users/nnunley/parrot/config/auto/gc.pm	1202	1441	
==>>data->set(malloc_header => 'malloc.h');
        } else {
            $conf->data->set(malloc_header => 'stdlib.h');
        }

=for nothing

    cc_gen('config/auto/gc/test_c.in');
    eval { cc_build(); };
    my $test = 0;
    unless ($@ <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	10271	10372	
==>he key of each element is
prefixed with the class name (see I<Perl Cookbook>, Recipe 13.12).

A functi <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27209	27318	
==>code, if any.
        $pir .= sub_meta($pre_translate_code, $mv, "pre-translate for $rule->{'name'}");

		# If <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34348	34457	
==>code, if any.
        $pir .= sub_meta($pre_translate_code, $mv, "pre-translate for $rule->{'name'}");

		# If <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	18090	18320	
==>uper_meths($class, $vt, \%all);

        my $Dumper = Data::Dumper->new([$class], ['class']);
        $Dumper->Indent(1);

        my $fh = open_file( ">", $file );
        print $fh $Dumper->Dump;
        close $fh;
    }
}

=head <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10998	11211	
==>elf->_restore ($temp);
    $temp = $pmc;
  }
  $self->_store_lex ($symbol,$temp);

  return $temp;
}

sub _op_cond {
  my ($self, $node) = @_;

  my @clauses = _get_args($node);

  my $transnode;

  if ($clauses[-1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2536	2765	
==>n subclasses to return the C code for the ops
address declaration. C<$base_suffix> is the name of the main ops file minus
the .ops extension with C<suffix()> and an underscore appended.

=item C<run_core_func_decl($base)>

Optiona <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	5572	5671	
==>od;
	
	return $self->{CONTAINS_POD};
}

=item C<num_pod_errors()>

Tells you the number of POD error <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259189	259445	
==>E_is_same(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263543	263799	
==>E_is_same(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	14299	14405	
==>an never successfully match, so it was
					  optimized out of the final parser$caveat. $advice");
		return <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54485	54611	
==>skip',
					      $lookahead,$line,$code);
				$prod and $prod->additem($item)
				      or  _no_rule($code,$line);
			}
			els <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63203	63297	
==>$matchrule and $rule and $rule->addcall($name);

						_check_insatiable($name,$1,$grammar,$lin <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63924	64018	
==>$matchrule and $rule and $rule->addcall($name);

						_check_insatiable($name,$1,$grammar,$lin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066733	1066966	
==>[
                              "i",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 49 \"src/ops/experimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATV <==
2	/Users/nnunley/parrot/config/auto/pack.pm	68	183	
==>g/auto/pack.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/pack.pm - Packing

=head1 DESCRIP <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30854	30968	
==>InterpLit;

sub sethashname { $_[0]->{hashname} = '__STRING' . ++$_[1]->{strcount} . '__'; }

sub issubrule { undef <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2227	2320	
==>th
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Decrement stack height.
d <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3479	3572	
==>th
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Decrement stack height.
d <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	19206	19472	
==>$r->[1]
	$cmp = iseq $l, $r->[1]
EOC
    push @stack, [-1, $cmp, 'P'];
}

sub COMPARE_OP
{
    my ($n, $c, $cmt) = @_;
    my $r = pop @stack;
    my $l = pop @stack;
    if ($c =~ /exception match/) {
	return except_compare($l, $r);
    }
    my %rev_map = (
	'==' = <==
2	/Users/nnunley/parrot/languages/scheme/Scheme.pm	1327	1414	
==>ser::parse($self->{tokens});
  $self->{code}   = link_functions(Scheme::Generator::gener <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593327	593782	
==>asses",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 673,
                  "ARGS" => [
                              "p",
                              "k",
                              "kc"
                            ],
                  "BODY" => " <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	1494	1612	
==>nearg);
@Regex::Ops::Tree::rule::ISA         = qw(Regex::Ops::Tree::_onearg);
@Regex::Ops::Tree::scan::ISA         = qw <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9616	9738	
==>.= <<"EOC";
#include "$name.str"
EOC
    }
    "$cout\n";
}


=item C<full_arguments($args)>

Prepends C<INTERP, SELF> to C <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	36615	36763	
==>= 'Data';
        $para_type = '?Data';
      } elsif( $para_type =~ s/^=//s
        and defined( $para_type = $self->{'accept_directives'}{$para_typ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10859	10968	
==>mand(".${slash}test${exe}", './test.out', './test.out',
            $verbose);
    }

    my $output = _slurp( <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	41980	42173	
==>}
      }
      if ($moved) {
	$self->_add_inst ('', 'set',[$empty,"P$count"]);
	$empty = $moved;
      }
      $self->_add_inst ('','set',["P$count",$arg]);
    }
    $count++;
  }

  $self->_a <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	11975	12066	
==>it(/\n/, <<'END');
$rx_match{'!POS'} = $rx_pos;
$rx_match{'!RESULT'} = undef;
$rx_match{'0'} <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1846	1948	
==>app driver version $VERSION ".
			  "incompatible with version $$self{VERSION}:\n".
			  "Please reco <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1781	1881	
==>app driver version $VERSION ".
			  "incompatible with version $$self{VERSION}:\n".
			  "Please reco <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/State.pm	17	270	
==>ate;

sub new {
    my ($class, %options) = @_;
    my $self = bless { _markers => {},
                       %options
                     }, ref($class) || $class;
    return $self;
}

sub literal_label {
    my ($self, $label, $desc) = @_;
    $desc | <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320045	320340	
==>}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320815	321110	
==>}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  " <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25410	25497	
==>stepcode
	FORLOOP_STEP_$forloop= $stepexpr
FOR_$forloop:
	gt FORLOOP_STEP_$forloop, 0.0, <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1226	1358	
==>nds) returns Bool is export {
    # hack for now
    my $got_perl = $got.perl;
    my $expected_perl = $expected.perl;
    my $test : <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	796	906	
==>lock->push_content($self);

  return $self;
}

sub ident  { return shift->{IDENT};  }


#
# compile()
#

sub co <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	796	906	
==>lock->push_content($self);

  return $self;
}

sub ident  { return shift->{IDENT};  }


#
# compile()
#

sub co <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2138	2234	
==>args[$i]->value);
      $self->SYNTAX_ERROR("Undefined identifier '%s'.", $args[$i]->value) unles <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1838	1934	
==>args[$i]->value);
      $self->SYNTAX_ERROR("Undefined identifier '%s'.", $args[$i]->value) unles <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	21174	21305	
==>/Grammar.y"
{ return op('code' => [ $_[1] ]) }
	],
	[#Rule 27
		 'rulename', 2,
sub
#line 145 "lib/Regex/Grammar.y"
{ return $_[1] . <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	14618	14892	
==>tryS: S or tryT
#                push 1
#                goto next
#          tryT: T or lastback
#                push 2
#                goto next
#          back: popint -> I0
#                eq I0, 0, R.back
#                eq I0, 1, S.back
#                goto T.back <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	53976	54109	
==>, $_[2], $_[3] );
        }
	],
	[#Rule 65
		 'exp', 3,
sub
#line 369 "Lua\lua51.yp"
{
            BuildRelop( $_[0], $_[1], $ <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	688	782	
==>item C<--renum>

Renumber opcodes according to existing ops in ops/num and natural
order in the <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24296	24452	
==>g"]= \$P3
	store_global "BASICARR", \$P1
	#
DIMARR
			if ($syms[NEXT] eq ",") {
				feedme();
				goto &parse_dim;			
			}
		} elsif ($syms[CURR] eq "shared" <==
2	/Users/nnunley/parrot/config/inter/ops.pm	87	206	
==>3 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/inter/ops.pm - Ops Files

=head1 DESCRIPTION

Asks the user t <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	22464	22586	
==>rammar.y"
{ push @{$_[1]}, $_[2]; return $_[1]; }
	],
	[#Rule 40
		 'classpieces', 0,
sub
#line 171 "lib/Regex/Grammar.y"
{ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	4020	4209	
==>e_print;
		goto PARSE_NOFEED;
	}
	#
	# Handle all of the IF-THEN logic
	#
	my $false="0.0";
	if ($syms[CURR] eq "if") {
		($result, $type, @code)=EXPRESSION();
		$false=qq{""} if $type eq "S <==
2	/Users/nnunley/parrot/config/auto/m4.pm	79	240	
==>93 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/m4 - Check whether GNU m4 works

=head1 DESCRIPTION

Determines whether GNU m4 exists on the syst <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5085	5348	
==>n $self;
}

=item C<gettriggers($key)>

Get the names of all triggers set for C<$key>.

Accepts a key name and returns a list.

=cut

sub gettriggers
{
    my ($self, $key) = @_;

    return unless defined $self->{triggers}{$key};

    my $verbose = defined $self- <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	1298	1409	
==>ot implemented for current stack to register mapper\n";
}
sub post_call {
	die "post_call not implemented for cu <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	8089	8234	
==>file, $line);
    }
  }

  push @{$self->{TOKENS}}, Jako::Token->new_eof($file, $line);

#  $self->DEBUG(0, "Scanned %d tokens", scalar(@{$self->{ <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	2090	2193	
==>rpreter pointer is passed in

=item P

PMC.

=item 2

Pointer to short.

Taken from an I register.

=ite <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6114	6229	
==>$cut_handler;

      # TODO: add to docs: Note: this may cause cuts to be processed out
      #  of order relative t <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1345	1457	
==>translation() {
	# We need a stack depth and a string for label gen and some
	# storage for stack depths and stac <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	432	544	
==>translation() {
	# We need a stack depth and a string for label gen and some
	# storage for stack depths and stac <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	602	724	
==>text plain ));
  $new->nix_X_codes(1);
  $new->nbsp_for_S(1);
  $new->{'Thispara'} = '';
  $new->{'Indent'} = 0;
  $new->{' <==
2	/Users/nnunley/parrot/config/inter/types.pm	274	376	
==>e types should
be.

=cut

package inter::types;

use strict;
use vars qw($description @args);

use base <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15155	15291	
==>text {
  my $self = shift;   # leaving ($text)
  DEBUG > 2 and print "== $_[0]\n";
  push @{ $self->{'token_buffer'} },
       $self->{'t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022623	1022926	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodelocaltime",
                  "FLAGS" => "", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023472	1023775	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodelocaltime",
                  "FLAGS" => "", <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	3174	3353	
==>>{fh};
        print {$FH} "  inc $op->{result}->{symbol}\n";
    }

    sub visitFindGlobalOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	21643	21923	
==>hed a new feature:

    TODO: {
        local $TODO = "URI::Geller not finished";

        my $card = "Eight of clubs";
        is( URI::Geller->your_card, $card, 'Is THIS your card?' );

        my $spoon;
        URI::Geller->bend_spoon;
        is( $spoon, 'bent',    "Spoon ben <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	3758	3872	
==>)/) {
		my ($f, $args) = ($1, $2);
		my @args = split(/,/, $args);
		my $n = @args;
		$arg_count{$f} = $n;
		for (m <==
2	/Users/nnunley/parrot/tools/util/pirtidy.pl	1367	1463	
==>changes the input file.

=head1 BUGS

Missing all of the perltidy-ish geeknobs and options.

=cut <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944878	945092	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "charsetname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945687	945901	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "charsetname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
2	/Users/nnunley/parrot/lib/File/Which.pm	5941	6124	
==>haves a second would be very kind to send me a
report of how it went.

File::Spec adds the current directory to the front of PATH if on
Win32, VMS or MacOS. I have no knowledge of thos <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9363	9483	
==>popint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);
    if ($self->{DEBUG}) {
        my $desc = $db_de <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9057	9177	
==>popint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);
    if ($self->{DEBUG}) {
        my $desc = $db_de <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	836	974	
==>:Simple::HTML> method to add a header to the start
of the document.

=cut

sub do_beginning 
{
    my $self = shift;

    # We have to do t <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	1618	1723	
==>k of that for you).

  # This produces "ok 1 - Hell not yet frozen over" (or not ok)
  ok( get_temperature <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	7391	7603	
==>n or pir is allowed in rule " .
                    "$rule->{'name'}\n";
            } else {
                $has_trans = 1;
            }
        }

		# typeinfo
        elsif (/^typeinfo$/) {
            if ($h <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647545	647691	
==>c/ops/pmc.ops\"\n    {{\@1}} = pmc_type(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648306	648452	
==>c/ops/pmc.ops\"\n    {{\@1}} = pmc_type(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/config/init/hints/cygwin.pm	1363	1491	
==>.
    my $define = $conf->options->get('define');
    unless ($define) {
        $define = 'inet_aton';
    } elsif ($define !~ / <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	66556	66687	
==>ode);
						$prod and $prod->additem($item)
						      or  _no_rule("repetition",$line,"$code$argcode(..$1)");

						!$matchrule a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019083	1019401	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "localtime",
                  "FLAGS" => "",
                  "ARGDI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020013	1020331	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "localtime",
                  "FLAGS" => "",
                  "ARGDI <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5346	5467	
==><';
#DBG>	};

	$$errstatus=0;
	$$nberror=0;
	($$token,$$value)=(undef,undef);
	@$stack=( [ 0, undef ] );
	$$check=' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5091	5205	
==><';
#DBG>	};

	$$errstatus=0;
	$$nberror=0;
	($$token,$$value)=(undef,undef);
	@$stack=( [ 0, undef ] );
	$$check=' <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	13835	14167	
==>=> $out_f,
                                    STDERR => $out_f);
                        if ( -e $exe_f ) {
                            run_command($exe_f,
                                        CD     => $path_to_parrot,
                                        STDOUT => $out_f,
                                        STDERR => $ <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	4743	5028	
==>>{CODE}";
    }
    if ($seq != $_->{CODE}) {
	die "op sequence mismatch ops.num: $seq core.ops: $_->{CODE}";
    }
    push @{$real_ops->{OPS}}, $_;
    ++$seq;
}
 
# Open the output file:
if (! -d $moddir) {
    mkdir($moddir, 0755) or die "$0: Could not mkdir $moddir: $!!\n";
}
open <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3383	3478	
==>, $num, $op)>

Returns the C code for the specified op argument type (see
C<Parrot::OpTrans>) an <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3527	3622	
==>, $num, $op)>

Returns the C code for the specified op argument type (see
C<Parrot::OpTrans>) an <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	219	323	
==>', @_], ref($class) || $class;
}

# Purely accessors:

sub tagname { (@_ == 2) ? ($_[0][1] = $_[1]) : $_[ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92810	93129	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93589	93908	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	3651	3809	
==>l $N100
    %1 = $I100
END_PIR

    $P0[unicode:"monadic:\u230a"] =  <<"END_PIR"            # floor
    $N100 = %1
    $I100 = floor $N100
    %1 = $I100
END_P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802864	803270	
==>LAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 906,
                  "ARGS" => [
                              "p",
                              "kc",
                              "s <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32298	32412	
==>hod, 0);
    # I think that these will be out by one - NWC
    my $l = $self->line_directive($line, "ref.c");
    r <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40920	41034	
==>hod, 0);
    # I think that these will be out by one - NWC
    my $l = $self->line_directive($line, "ref.c");
    r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	249857	250068	
==>inline",
                  "CODE" => 290,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 693 \"src/ops/cmp.ops\"\n  {{\@1}} = ! { <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32045	32175	
==>it's not numeric.  Correct for this.
            $para->[1]{'number'} = $expected_value;
            $self->whine(
              $p <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32454	32584	
==>it's not numeric.  Correct for this.
            $para->[1]{'number'} = $expected_value;
            $self->whine(
              $p <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	35087	35377	
==>n;
        }

        _my_exit( $num_failed <= 254 ? $num_failed : 254  ) && return;
    }
    elsif ( $self->{Skip_All} ) {
        _my_exit( 0 ) && return;
    }
    elsif ( $self->{Test_Died} ) {
        $self->diag(<<'FAIL');
Looks like your test died before it could output anything.
FA <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	6866	7020	
==>r
# be correct to fail early (since failure can then be more dramatic!).
#
sub add_checks {
    my ($self, $t, $guarantee, $follow_min) = @_;

    if ($t-> <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	863	956	
==>em C<includedir>

The header directory. Defaults to '/usr/include'.

=back

=head2 MANIFEST Fo <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2523	2692	
==>/$2>\n" ) : die "Funky $_"
  } @_;
}
sub changes2 {
  return map {; m/^([-_:0-9a-zA-Z]+)=([-_:0-9a-zA-Z]+)$/s
     ? ( $1, => "<$2>", "/$1", => "</$2>" ) : die "Funky $_" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	8882	9102	
==>ontinuing a paragraph but \@\$paras is empty?";
      }
      $self->{'last_was_blank'} = $self->{'start_of_pod_block'} = 0;
    }
    
  } # ends the big while loop

  DEBUG > 1 and print(pretty(@$paras), "\n");
  return <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851158	851565	
==>LAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 966,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic" <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	18003	18107	
==>my $class = $all{$name};
        gen_parent_list($include, $name, \%all);
        gen_super_meths($class, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	121	399	
==>sion 1.05.
#
#        Don't edit this file, use source file instead.
#
#             ANY CHANGE MADE HERE WILL BE LOST !
#
####################################################################
package Regex::Grammar;
use vars qw ( @ISA );
use strict;

@ISA= qw ( Parse::Yapp::Driv <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	123	336	
==>sion 1.05.
#
#        Don't edit this file, use source file instead.
#
#             ANY CHANGE MADE HERE WILL BE LOST !
#
####################################################################
package Lua::pa <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	12914	13053	
==>nexttowardf math.h
nexttowardl math.h
perror      stdio.h
pow         math.h
printf      stdio.h
putc        stdio.h
putchar     stdio.h
put <==
2	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	3	131	
==>perl -w

# $Id: /parrot/languages/m4/tools/frozen2yaml.pl 4793 2005-05-31T14:22:35.671857Z svm  $

=head1 DESCRIPTION

=head1 SYN <==
2	/Users/nnunley/parrot/lib/File/Which.pm	4508	4647	
==>ually, it will contain a list in
the form C<.EXE;.BAT;.COM;.JS;.VBS> etc. If C<File::Which> finds such an
environment variable, it parses th <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	3174	3423	
==>exit code $exit_code."
            }
            if ( $diag ) {
                $self->{builder}->diag( $diag )
            }
        }

        # The generated files are left in the t/* directories.
        # Let 'make clean' and 'svn:ignore' take c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094723	1094984	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exec",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095417	1095678	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exec",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline", <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2650	2764	
==>ock handled by superclass?

sub kind  { return shift->{KIND};     }
sub type  { return shift->{TYPE};     }

sub na <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2767	2870	
==>ock handled by superclass?

sub kind { return shift->{KIND}; }
sub type { return shift->{TYPE}; }
sub na <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	27581	27695	
==>m.\n";
    } else {
      # We have to use the fallback(s), which might be '0', or '1'.
      $self->{'accept_codes <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837251	837351	
==>terpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}),\n                  STACK_ENTRY_INT);\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199789	200069	
==>e",
                  "CODE" => 236,
                  "ARGS" => [
                              "n",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 373 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= { <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	8663	8916	
==>c} ? 'PARROT_DYNEXT_EXPORT ' :
                                             'PARROT_API ';
        $extern = "extern ";
	    $newl = " ";
	    $semi = ";";
        $interp = $pmc = "";
    }
    else {
	    $export = "";
	    $extern = "";
	    $newl = " <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	6543	6693	
==>:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically by tools/build/nativecall.pl
 * from definitions in @$definit <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	14725	14846	
==>l_body, '{');
        die "Empty MMD body near '$total_body'"
            if (!$body_part);
        $body_part = substr($b <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	2981	3076	
==>kefile was built by 'config/inter/pmc.pm'

E_NOTE

    foreach my $pmc (split(/\s+/, $pmc_list)) <==
2	/Users/nnunley/parrot/lib/Test/More.pm	22183	22302	
==>ceed, it will report it as an unexpected success.
You then know the thing you had todo is done and can remove the
TODO f <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1610	1738	
==>re::$meth"}( @_ );
        # if( $ok ) { foreach my $meth ( $lang_f, $pasm_f, $by_f, $out_f ) { unlink $meth } } # JMG
    }
}

1 <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1526	1654	
==>re::$meth"}( @_ );
        # if( $ok ) { foreach my $meth ( $lang_f, $pasm_f, $by_f, $out_f ) { unlink $meth } } # JMG
    }
}

1 <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	3192	3321	
==>oreach (sort keys %$typedefs) {
        $cmd .= " -T $_";
    }
    $cmd .= " $file";
    
    print "Running \"$cmd\"\n";
    sys <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2372	2485	
==>st care if it failed, not howm
}

##
## my $var = choose(@vars)
##
## Select the first defined variable.
##
sub ch <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	2634	2786	
==>un Workshop Pro 4, both
    #    atan2( 0.0, -0.0) and atan2(-0.0, -0.0)
    # return 0, when they should return +PI and -PI respectively.
    # For Sun' <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34293	34424	
==>= "### end pre_branch\n";

        # Add pre-translate code, if any.
        $pir .= sub_meta($pre_translate_code, $mv, "pre-transla <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	30212	30385	
==>@_;
    my $x = pop @stack;
    my $v = pop @stack;
    my $w = pop @stack;
    my $key = $x->[1];
    if ($v->[0] eq 'hash') {
	if ($key =~ /^\d+$/) {
	    $key = qq!"$key"! <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	864	985	
==>),
			$self->new_item('', 'docs/glossary.pod'),
			$self->new_item('', 'docs/faq.pod'),
			$self->new_item('', 'docs/pract <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	22245	22370	
==>w P2, .PerlHash
	P2["name"]= '$_->[0]'
	P2["type"]= "USER"
	P5= P6		# Remember where we were...
	P4= P6["storage"]
	P6= P4["$_ <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	990	1287	
==>lsif (grep {$_ eq $test || "$_-old" eq $test } @a) {
    push @keep, $test
  } else {
    push @skip, $test
  }
}

my ($total_skipped, $clock_skipped, $deprecated);

for my $file (@skip) {
  my $path = "$teetcl/$file.t";
  next unless -f $path; # Might have a command that doesn't have a test file. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	31954	32134	
==>rpreter->ctx)->current_cont;\n    PMC *sig = NULL;\n    if (cc && PMC_cont(cc)->to_ctx) {\n\t/* caller context has results */\n        opcode_t * const results = PMC_cont(cc)->to_ct <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	1369	1483	
==>('', 'lib/Parrot/Docs/HTMLPage.pm'),
            $self->new_item('', 'lib/Parrot/Docs/File.pm'),
		    $self->new_i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2882	3027	
==>args  { return @{shift->{ARGS}};  }

sub file  { return shift->{FILE};     }
sub line  { return shift->{LINE};     }


#
# compile()
#

sub compil <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	2047	2168	
==>args   { return @{shift->{ARGS}}; }

sub file   { return shift->{FILE};     }
sub line   { return shift->{LINE};     }

su <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	277	409	
==>return bless {}, $invocant;
}

# Pre-translation hook.
sub pre_translation() {
	# We need to emit PIR that sets up a dummy stack.
	re <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61983	62094	
==>LIST (IF ANY)

			my ($argcode) = extract_codeblock($grammar, "[]",'') || '';

		# EXTRACT TRAILING REPETITION S <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2157	2278	
==>ytype()>

The ops array type is C<void *>.

=cut

sub opsarraytype
{
    return 'void *'
};

=item C<gen_goto($where)>

TO <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	3633	3910	
==>thin a rule and not a herdoc?
        elsif (!$in_heredoc && $rule && /^\s*(\w+)\s*=\s*(.+?)\s*$/) {
            # Stash key and value.
            $rule->{$1} = $2;
        }

        # Are we at the end of a heredoc?
        elsif ($in_heredoc && /^$heredoc_terminator\s*$/) { <==
2	/Users/nnunley/parrot/config/inter/encoding.pm	210	389	
==>s the user to select which encoding files to include.

=cut

package inter::encoding;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

us <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15073	15196	
==>uffer'} },
       $self->{'start_token_class'}->new(@_);
  return;
}

sub _handle_text {
  my $self = shift;   # leaving ($t <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	26871	26985	
==>t_results = $self->{Test_Results};
        if( $num > @$test_results ) {
            my $start = @$test_results ? @ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349249	349348	
==>_free(path); */\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350251	350350	
==>_free(path); */\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+ <==
2	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	388	556	
==>During the build process it is parsed by
F<fingerprint_c.pl> to produce a fingerprint of the state of Parrot.

Note that this is only done for development versions of Pa <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	12419	12521	
==>sub Regex::Ops::Tree::atend::render { '$' }

sub Regex::Ops::Tree::check::needparen { 0 }
sub Regex::Op <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2734	2868	
==>POP()> macro in an ops file into the relevant C
code.

=cut

sub goto_pop
{
    my ($self) = @_;

    return "opcode_t* pop_addr = (opc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650705	650964	
==>{{\@2}} >= enum_first_type && {{\@2}} < enum_last_type)\n        {{\@1}} = 1;\n    else\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651627	651886	
==>{{\@2}} >= enum_first_type && {{\@2}} < enum_last_type)\n        {{\@1}} = 1;\n    else\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492766	492992	
==>\n  {{\@1}} = intval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493527	493753	
==>\n  {{\@1}} = intval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	8633	8770	
==>ad_op_map_file {
  my $file = shift;

  if (!defined $file) {
    $file = "src/ops/ops.num";
  }

  my ($name, $number, $prev);

  if (!de <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	3443	3566	
==>o's until the
    # final destination of each is reached, then replace the original
    # reference.

    foreach my $stmt ( <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7635	7725	
==>[1]',$temp]);
  $self->_add_inst('', 'set', [$copy,$temp]);
  $self->_add_inst('', 'branch' <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	601	701	
==>SAL::isa($block, 'Jako::Construct::Block');
  confess "Ident is not!" unless UNIVERSAL::isa($ident, ' <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	489	589	
==>SAL::isa($block, 'Jako::Construct::Block');
  confess "Ident is not!" unless UNIVERSAL::isa($ident, ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499879	500284	
==>IRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 574,
                  "ARGS" => [
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 600 \"src/ops/math.ops\"\n  {{\@1}} = floatval_ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	10140	10250	
==>_ok( $this, 'eq', $that, 'this eq that' );

    # ok( $this == $that );
    cmp_ok( $this, '==', $that, 'this = <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7285	7400	
==>}

sub post_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If the register name to load fro <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5107	5222	
==>}

sub post_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If the register name to load fro <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	3081	3197	
==>arent
{
    my $self = shift;
    
    return unless $self->parent_path;
    
    return $self->directory_with_path($ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	4036	4157	
==>_DEBUG_INIT
	saveall
	\$P0=new .PerlArray
	find_global \$P1, "DEBUGGER"
FOO
	foreach(0..@main::basic-1) {
		my $line=$main <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20724	20837	
==>rserEndToken>.

L<HTML::TokeParser>, which inspired this.

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Se <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	23807	23908	
==>};
	return $fields[0];
}


sub gen_extract_tagged # ($opentag, $closetag, $pre, \%options)
{
	my $ldel <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	1898	2198	
==>ps that can be translated.
print "Currently able to translate " . scalar(@rules) . " out of 213 instructions.\n";


##############################################################################
# Subroutines.
##############################################################################

# Parse rul <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627236	627339	
==>, (int){{\@2}});\n  }\n\n  /* Why?? If we're creating a continuation, the continuation PMC\n   * needs t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628380	628483	
==>, (int){{\@2}});\n  }\n\n  /* Why?? If we're creating a continuation, the continuation PMC\n   * needs t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943275	943468	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944063	944256	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	33033	33216	
==>i",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/core.ops\"\n  {{\@1}} = PTR2OPCODE_T(CUR_OPCODE + {{\@2}});\n  {{ <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1574	1706	
==>y ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = $op->{op} $op->{arg1}-> <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2234	2366	
==>y ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = $op->{op} $op->{arg1}-> <==
2	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1521	1687	
==>.org/
AppUpdatesURL=http://www.parrotcode.org/
DefaultDirName={pf}\\parrot-$options{version}
DefaultGroupName=parrot
AllowNoIcons=yes
LicenseFile=$options{prefix}\\sha <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1963	2084	
==>ck;
  my $kind  = $self->kind;
  my $name  = $self->ident ? $self->ident->value : undef;
  my $cond  = $self->cond;
  my $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3079	3200	
==>ck;
  my $kind  = $self->kind;
  my $name  = $self->ident ? $self->ident->value : undef;
  my $cond  = $self->cond;
  my $ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4940	5068	
==>5)
print t(3)

' Unary minus goodness
Dim t7(1),w(10)
w=20
w(2)=5
t7(0)=0
w=w-(T7(0) * T7(0) * 12)
' Expect 20
print w
' Expect - <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21772	21894	
==>text = $_savetext;' : '' ) .'
'
}


1;

package Parse::RecDescent::Directive;

sub sethashname { $_[0]->{hashname} = '__DIR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911034	911172	
==>c"
                            ],
                  "BODY" => "#line 284 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	911932	912070	
==>c"
                            ],
                  "BODY" => "#line 284 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpreter <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	52255	52373	
==>');
					  $code })
			{
				_parse("a (conditional) reject marker", $aftererror,$line);
				$code =~ /\A\s*<reject:(.* <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14543	14706	
==>,
			'primary' => 28
		}
	},
	{#State 25
		DEFAULT => -78
	},
	{#State 26
		DEFAULT => -82
	},
	{#State 27
		ACTIONS => {
			"-" => 24,
			'NAME' => 4, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	49828	49970	
==>n we needed to close complex.\n";
        pos($para) = pos($para) - length($3) + $stack[-1];
      } else {
        # We saw " >>>>" but needed <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	3851	3995	
==>> sub {
		return("\t$_[2] = $_[0] * $_[1]", $_[2]);
	},
	'/' => sub {
		return("\t$_[2] = $_[1] / $_[0]", $_[2]);
	},
	'=' => sub {
		my ($a1, $a <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38244	38336	
==>D_TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched repea <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8218	8371	
==>TORE_${CURIC}_CONT

# Can do a lazy move.
PRE_STORE_${CURIC}_LAZY_MOVE:
${STACK0} = pop lazy_moves

# Decrement stack height.
PRE_STORE_${CURIC}_CONT:
dec <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3093	3222	
==>};
  return $new;
}

sub run {
  my $self = $_[0];
  return $self->do_middle if $self->bare_output;
  return
   $self->do_beginnin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449678	450075	
==>core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 515,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 195 \"src/ops <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77152	77329	
==>[0],0,$::RD_TRACE) . "...<+$count>";
	}
	else
	{
		return $_[0];
	}
}

my $lastcontext = '';
my $lastrulename = '';

sub _trace($;$$)
{
	$tracemsg      = $_[0];
	$tracecontext  = <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30104	30262	
==>RING' => 44
		},
		GOTOS => {
			'tableconstructor' => 46,
			'args' => 149
		}
	},
	{#State 97
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" = <==
2	/Users/nnunley/parrot/lib/File/Which.pm	1680	1853	
==>n the normal way
                return $file unless $all;
                push @results, $file;
                # we can stop this loop as if it finds more aliases matching, <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11655	11838	
==>ypes
j = 0
PTYPES_LOOP:
if j == i goto PTYPES_LOOP_END
type_trans = ptypes[j]
type = type_trans["type"]
printerr type
printerr " "
inc j
goto PTYPES_LOOP
PTYPES_LOOP_END:
printerr "\\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	330913	331190	
==>\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "close", <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	10079	10207	
==>_;
    return ("my \$$var;\n");
}

sub output_rule_def {
    my ($self, $name, $L_trymatch, $L_backup, $num_groups, $startup) = @ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	1073	1233	
==>{
    BLOCK     => $block,

    KIND      => 'if',
    LEFT      => $left,
    OP        => $op,
    RIGHT     => $right,

    CONTENT   => [ ]
  }, $class;

  $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4530	4650	
==>@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note that for loading debug <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4305	4416	
==>@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note that for loading debug <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758279	758374	
==>=> "#line 276 \"src/ops/set.ops\"\n  {{\@1}} = string_set(interpreter, {{\@1}}, {{\@2}});\n  {{+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759052	759147	
==>=> "#line 276 \"src/ops/set.ops\"\n  {{\@1}} = string_set(interpreter, {{\@1}}, {{\@2}});\n  {{+ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	15657	15789	
==>xtra, $extra{todo}, $call_pkg ) if ( keys %extra );
            local *{ $call_pkg . '::TODO' } = \$extra{todo}
                if de <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	18208	18340	
==>xtra, $extra{todo}, $call_pkg ) if ( keys %extra );
            local *{ $call_pkg . '::TODO' } = \$extra{todo}
                if de <==
2	/Users/nnunley/parrot/tools/dev/cc_flags.pl	656	954	
==>n/cflags/root.in>.

=cut

################################################################################

use strict;

my $cflags = shift;

open F, $cflags or die "open $cflags: $!\n";

my @options;

while (<F>) {
    chomp;
    s/#.*//;
    next unless /\S/;

    my $regex;
    if (s/^\{(.*?)\}\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	1965	2148	
==>'   => "</a></dt><p$Lame></p>\n",
  'Para_item'    => "\n<dd>",
  '/Para_item'   => "</dd><p$Lame></p>\n",

  'B'      =>  "<b>",                  '/B'     =>  "</b>",
  'I'      =>  " <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	5512	5631	
==>> instances representing the Parrot ops.

    =cut
END_POD

my $preamble = <<END_C;
#! perl -w
#
# !!!!!!!   DO NOT EDIT <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1076	1184	
==>ial code.
	my $pir = <<'PIR';
# Get current stack types array size.
${ITEMP0} = elements ${STYPES}
PIR

	# Do <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2786	2894	
==>ial code.
	my $pir = <<'PIR';
# Get current stack types array size.
${ITEMP0} = elements ${STYPES}
PIR

	# Do <==
2	/Users/nnunley/parrot/languages/APL/t/APL.pm	625	789	
==>y output the skipped test in the TAP output. It just
# fails to run the test.

# mark todo tests with TODO - but, unless an environment variable is set,
# skip the t <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	3706	3924	
==>*mro;                /* array PMC of [class, parents ... ] */
    /* Vtable Functions */

EOF
    for $entry (@{$vtable}) {
    next if ($entry->[4] =~ /MMD_/);
        $struct .= "    $entry->[1]_method_t $entry->[1];\ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	2	154	
==>Copyright (C) 2004, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Docs/Section/DynaPMCs.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

P <==
2	/Users/nnunley/parrot/examples/benchmarks/oo5.pl	184	312	
==>: shift;
    return bless [ 10, 20 ], $self;
}

sub i {
    my $self = shift;
    if (@_) { $self->[0] = shift } else { $self->[0 <==
2	/Users/nnunley/parrot/examples/benchmarks/oo6.pl	176	304	
==>: shift;
    return bless [ 10, 20 ], $self;
}

sub i {
    my $self = shift;
    if (@_) { $self->[0] = shift } else { $self->[0 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	842	963	
==>nd set as root.
  }
  DEBUG > 3 and print "Stack is now: ",
    join(">", map $_->[0], @{$_[0]{'_currpos'}}), "\n";
  retu <==
2	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	1489	1632	
==>t_version[2] = $parrot_version[2] . "_" . $parrot_version[3];
        $#parrot_version = 3;
    }
    $parrot_version = join('.', @parrot_versio <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	14772	14964	
==>$i] =~ /^\((.+)\*\)&(.+)$/) {
                $temp[$i] = [ $1, $2 ];
                $args->[$i] = "&arg$i";
            }
        }
        my $call_params = join(",", @$args);
        my @te <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2670	2819	
==>t with --plus-misses, and a second section will be "
	    ."included,\nwith the heads of these indescribable files.\n";
    }
    print "\n";
    my @ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077735	1078100	
==>advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1198,
                  "ARG <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4515	4703	
==>r j = 0 to 1
print i; j;
if i and j then a$="True  " else a$="False "
if i or  j then b$="True  " else b$="False "
if i eqv j then d$="True  " else d$="False "
if i imp j then e$="True  " e <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17586	17707	
==>r j = 0 to 1
print i; j;
if i and j then a$="True  " else a$="False "
if i or  j then b$="True  " else b$="False "
if i xo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667548	667659	
==>\n    {{\@1}}->vtable->push_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668322	668433	
==>\n    {{\@1}}->vtable->push_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	922	1033	
==>s are not hash!" if defined $args and ref($args) ne "ARRAY";

  my $self = bless {
    BLOCK => $block,

    TYP <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	19987	20120	
==>g) {
        if( $dont_ignore ) {
          $dont_ignore = '';
          delete $para->[1]{'target_matching'};
          DEBUG > 2 and <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149147	149232	
==>src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) == {{\@2}}) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150088	150173	
==>src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) == {{\@2}}) <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	934	1125	
==>ut

sub open_file {
    my $direction = shift;
    my $filename = shift;

    my %actions = (
        "<" => "Reading",
        ">" => "Writing",
        ">>" => "Appending",
    );

    my $a <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6597	6710	
==>(!$self->{'start_of_pod_block'} and !$self->{'last_was_blank'}) {
        DEBUG > 1 and print "Noting para ends wi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4235	4382	
==>($to, $section) {
    if( defined $it ) {
      $it =~ s/([^\x00-\xFF])/join '', map sprintf('%%%02X',$_), unpack 'C*', $1/eg;
      $it =~ s/([^\._ <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4529	4640	
==>{$_}, [ $_ ] ) foreach (@ungrouped_pmcs);
} 
elsif ($mode eq 'copy') {
    # Copy *.so -> destination, where des <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4633	4744	
==>{$_}, [ $_ ] ) foreach (@ungrouped_pmcs);
} 
elsif ($mode eq 'copy') {
    # Copy *.so -> destination, where des <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61681	61852	
==>bracketed($grammar,'<');
					 $code
				       }
		       or $grammar =~ m/$SUBRULE/gco
				and $code = $1)
		{
			my $name = $code;
			my $matchrule = 0;
			if (substr($n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302718	302986	
==>=> "inline",
                  "CODE" => 352,
                  "ARGS" => [
                              "i",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 980 \"src/ops/cmp.ops\ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	13654	13776	
==>>'s behavior under pre-5.7 Perls.

Note that this hash does not
include numerics (like "64" or "x981c").

=item $Latin1Code <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3110	3215	
==>'  => "PREG(%ld)",
    'ki' => "IREG(%ld)",

    'ic' => "cur_opcode[%ld]",
    'nc' => "CONST(%ld)->u.num <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2023	2126	
==>'   => "PREG(%ld)",
  'ki'  => "IREG(%ld)",

  'ic'  => "cur_opcode[%ld]",
  'nc'  => "CONST(%ld)->u.num <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	15502	15631	
==>opts)$re" : $re;
    }

    return $usable_regex;
};

sub _regex_ok {
    my($self, $this, $regex, $cmp, $name) = @_;

    local $ <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	20430	20554	
==>include, "pmc_$pmcname.h", 1);

        my $fh = open_file( "<", $file );
        while (<$fh>) {
            if (/^(?:extern <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	43	408	
==>se strict;
use Pod::Simple ();
use vars qw(@ISA $VERSION);
$VERSION = '2.02';
@ISA = ('Pod::Simple');

# Yes, we could use named variables, but I want this to be impose
# as little an additional performance hit as possible.

sub _handle_element_start {
  $_[1] =~ tr/-:./__/;
  ( $_[0]->can( 'start_' . $_[1] )
    || return
  )->(
    $_[0], $_[2]
  );
}

sub _hand <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9653	9767	
==>borting.\n";
				return(undef);
			};

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Dicard invalid token " <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9220	9329	
==>borting.\n";
				return(undef);
			};

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Dicard invalid token " <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5780	5898	
==>n(',',map { $$_[0] } @$stack).
#DBG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defined($$toke <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5505	5617	
==>n(',',map { $$_[0] } @$stack).
#DBG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defined($$toke <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	30	139	
==>use Regex::Ops::Tree (); # For mark()
use base 'Regex::CodeGen';
use strict;

my $fail_label = Regex::Ops::Tre <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	31	140	
==>use Regex::Ops::Tree (); # For mark()
use base 'Regex::CodeGen';
use strict;

my $fail_label = Regex::Ops::Tre <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	5876	6165	
==>and $parser->YYData->{lineno}++,
                last;
            s/^\]$level\]//
                and return;
            s/^.//
                and last;
        }
    }
}

sub _Lexer {
    my $parser = shift;

    while (1) {
        $parser->YYData->{INPUT}
            o <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	4773	4898	
==>code to set body and go to the end.
    my $pir = '';
    foreach (@_) {
        next if $_->{'unimplemented'};
        my $la <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597775	597995	
==>GS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 351 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, { <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9580	9718	
==>-9]/s
        or $new_code =~ m/:[-\.0-9]/s;
            # The legal under-0x80 Name characters that 
            #  an XML Name still can' <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10844	10982	
==>-9]/s
        or $new_code =~ m/:[-\.0-9]/s;
            # The legal under-0x80 Name characters that 
            #  an XML Name still can' <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6450	6556	
==>p;
  }
  my $pair = $self->_new_pair;
  $self->_add_inst('', 'set', [$pair.'[0]',$item]);
  $self->_add_ins <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	994	1093	
==>the tagname of "head1", token(s) for its
content, and then an end-token with the tagname of "head1". <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1422	1521	
==>the tagname of "head1", token(s) for its
content, and then an end-token with the tagname of "head1". <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760398	760643	
==>> "inline",
                  "CODE" => 858,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 286 \"src/ops/set.ops\"\n  {{\@1}} = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19169	19304	
==>ead1 NAME
  
  Hooboy, stuff B<wow> yeah!

then $parser->get_short_title on that document will return "Hooboy,
stuff wow yeah!".

If the <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	16232	16386	
==>ser);
 
 sub run {
   my $self = shift;
  Token:
   while(my $token = $self->get_token) {
     ...process each token...
   }
 }

=head1 DESCRIPTION

This c <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	46893	47058	
==>Scope( $_[0] );
        }
	],
	[#Rule 12
		 'stat', 4,
sub
#line 100 "Lua\lua51.yp"
{
            $_[3];
        }
	],
	[#Rule 13
		 '@2-1', 0,
sub
#lin <==
2	/Users/nnunley/parrot/lib/File/Which.pm	5680	5868	
==>t_exe_name)> in array context. Same as the
C<`where'> utility, will return an array containing all the path names
matching C<$short_exe_name>.


=head1 Bugs and Caveats

Not tested on VMS o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	619800	619905	
==>ter, left, enum_class_BigInt);\n\t    VTABLE_set_integer_native(interpreter, left, a);\n\t    mmd_dispatch <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401101	401509	
==>i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 464,
                  "ARGS" => [
                              "p",
                              "ic",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	977	1099	
==>egex::Ops::Tree::match::ISA        = qw(Regex::Ops::Tree::_atom);
@Regex::Ops::Tree::charclass::ISA    = qw(Regex::Ops::Tre <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1133	1291	
==>h
{
    my $self = shift;
    
    return $self->directory_class->new(@_);
}

=item C<file_with_path($path)>

Returns the file with the specified path. 

The f <==
2	/Users/nnunley/parrot/config/auto/env.pm	1347	1470	
==>elf->set_result('unsetenv');
    } else {
        print " (no) " if $verbose;
        $self->set_result('no');
    }

    re <==
2	/Users/nnunley/parrot/config/inter/progs.pm	3179	3336	
==>lags'));
    $ldflags = prompt("And your $ld for building shared libraries?", $ldflags)
        if $ask;
    $conf->data->set(ldflags => $ldflags);

    $libs <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2257	2370	
==>nd_head2       { $_[0]->emit_par(-3) }
sub end_head3       { $_[0]->emit_par(-2) }
sub end_head4       { $_[0]->em <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1825	1938	
==>nd_head2       { $_[0]->emit_par(-3) }
sub end_head3       { $_[0]->emit_par(-2) }
sub end_head4       { $_[0]->em <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	17333	17506	
==>"BODY" => "#line 300 \"src/ops/core.ops\"\n  if ({{\@1}} != 0.0) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5746	5865	
==>d, bitwise
   (and, or, xor, lshift, rshift), concat, logical (and, or, xor),
   repeat, eq, cmp */

/* &gen_from_enum(m <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Ops.pm	250	491	
==>ction::Ops;

=head1 DESCRIPTION

A documentation section describing the Parrot ops.

=head2 Class Methods

=over

=cut

package Parrot::Docs::Section::Ops;

use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Ret <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	627	799	
==>tions{d};

if (@ARGV) {
	open(D, $ARGV[0]) || die;
	@basic=<D>;
	chomp(@basic);
	seek D, 0, 0 or warn "Cannot reseek: $!";
} else {
	open(D, "<&DATA") || die;
}
shift(@ARGV) <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	3794	3942	
==>TH}, $_)
    } $self->file_and_directory_names;
}

=item C<file_paths()>

These are the full paths of all the files in the directory.

=cut

sub file <==
2	/Users/nnunley/parrot/config/inter/shlibs.pm	145	259	
==>nter/shlibs.pm - Flags for shared libraries.

=head1 DESCRIPTION

Asks the user which flags are needed for compilin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53344	53559	
==>lse         { Interp_flags_CLEAR(interpreter, PARROT_GC_DEBUG_FLAG); }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54100	54315	
==>lse         { Interp_flags_CLEAR(interpreter, PARROT_GC_DEBUG_FLAG); }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717937	718037	
==>"\n  PMC * const io = {{\@1}};\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718869	718969	
==>"\n  PMC * const io = {{\@1}};\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, i <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	1370	1549	
==>Ops::Tree::group::ISA        = qw(Regex::Ops::Tree::_onearg);
@Regex::Ops::Tree::call::ISA         = qw(Regex::Ops::Tree::_onearg);
@Regex::Ops::Tree::rule::ISA         = qw(Regex: <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12381	12510	
==>args...)
    s/SUPER             # Macro: SUPER
      \(\s*(.*?)\)      # capture argument list
     /"$supermethod(" . full_argum <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	177	294	
==>= ('Pod::Simple');
  *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG;
}

$ATTR_PAD = "\n" unless defined $ATTR_PAD <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	943	1118	
==>ar_out' => '',
             'archname' => 'darwin-2level',
             'as' => 'as',
             'asmfun_o' => 'src/asmfun.o',
             'bigendian' => 1,
             'bi <==
2	/Users/nnunley/parrot/config/inter/lex.pm	2181	2339	
==>y $0 so it will claim to be lex if invoked as `lex`
    if ($stdout =~ /f?lex .*? (\d+) \. (\d+) \. (\d+)/x) {
        $conf->data->set(flex_version => "$1.$2. <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	35224	35377	
==>rint <<EOC;
	\t $cmt
	delete $dest\[ $vv .. $ww ]
EOC
    #push @stack, [-1, $dest, 'P'];
}
sub DELETE_SLICE_plus_1 {
    return Del_Slice(@_, 1);
}
sub D <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	138	275	
==>r;
use Exporter;
use vars qw($VERSION @ISA @EXPORTER @EXPORT_OK);

@EXPORT_OK = qw(md5 md5_hex md5_base64);

@ISA = 'Exporter';
$VERSION = <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	6133	6246	
==>push @rel_paths, $source->relative_path($file->path);
        }
    }
    elsif ( $source->relative_path_is_file($ <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2982	3084	
==>. ':' . __LINE__ . ' File not found:' . $name ."\n";

    return;
}

=item C<c_header_file_directories( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8986	9090	
==>for '%s' not found\", label);\n    else {\n\tinterpreter->resume_offset = fe->offset;\n        Parrot_swi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10102	10206	
==>for '%s' not found\", label);\n    else {\n\tinterpreter->resume_offset = fe->offset;\n        Parrot_swi <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	1755	1839	
==>@ @
#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131100	131369	
==>line",
                  "CODE" => 161,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 306 \"src/ops/bit.ops\"\n  {{\ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8551	8653	
==>}->{code}}, "\t# $syms[CURR]\n";
		goto PARSE;
	}
	if ($type[CURR] eq "INT" and 
		($type[NEXT] eq "BAR <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2820	2913	
==>AD}{}d if Pod::Simple::ASCII;
  my $out = Text::Wrap::wrap($indent, $indent, $self->{'Thispara <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2354	2447	
==>AD}{}d if Pod::Simple::ASCII;
  my $out = Text::Wrap::wrap($indent, $indent, $self->{'Thispara <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	978	1112	
==>e (defined $text and $text ne '') {
    next if $text =~ s{^\s+}{};   # Skip all whitespace between tokens
    next if $text =~ s{^#.*? <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210285	210383	
==>\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211265	211363	
==>\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4 <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	12316	12460	
==>o.

=cut

sub check_progs
{
    my ($progs, $verbose) = @_;

    $progs = [$progs] unless ref $progs eq 'ARRAY';

    print "checking for program <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3094	3192	
==>Convert X.pmc -> X.dump and X.c and also create any lib-GROUP.c files

    generate_dump($_) foreac <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3198	3296	
==>Convert X.pmc -> X.dump and X.c and also create any lib-GROUP.c files

    generate_dump($_) foreac <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	1538	1772	
==>y @r;
    my $curlabel = "\t";
    for my $op (@_) {
	if (! ref($op)) {
	    push @r, $curlabel . $op;
	    $curlabel = "\t";
	} elsif ($op->[0] eq 'label') {
	    $curlabel = "$op->[1]:" . $curlabel;
	} elsif (my $outfunc = $OUTPUT{$o <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	1150	1295	
==>nation path:

    source_path <whitespace> [package]meta1,meta2,... <whitespace> destination

Additionally, there may be a * in front of the whole <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2833	2929	
==>e>.


=head1 SEE ALSO

L<Pod::Simple::XMLOutStream> is rather like this class.
Pod::Simple::XMLOu <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15637	15735	
==>es automatically (at least
that is what I hope).

= ENVIRONMENT

Setting the environment variable T <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2004	2127	
==>$class=ref($class);

    bless($self,$class);
}

sub YYParse {
    my($self)=shift;
    my($retval);

	_CheckParams <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1934	2048	
==>$class=ref($class);

    bless($self,$class);
}

sub YYParse {
    my($self)=shift;
    my($retval);

	_CheckParams <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995067	995674	
==>=> [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1113,
                  "ARGS" => [
                              "i",
                              "i",
                              "s",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} <==
2	/Users/nnunley/parrot/tools/dev/symlink.pl	1214	1571	
==>q 'tools';
my @topsrcdir = @toolsrcdir[0..$#toolsrcdir - 2];
my $topsrcdir = File::Spec->catdir(@topsrcdir);
my $manifest = File::Spec->catfile($topsrcdir, "MANIFEST");
my @srcfiles = ();
if (open(MANIFEST, $manifest)) {
    my %dstdir;
    while (<MANIFEST>) {
	next if /^\#/;
	if (/^(.+?)\s+\[/) {
	    my $manifile = $1;
	    my @manifile = split('/', $ma <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25977	26064	
==>push @{$code{$seg}->{code}}, <<NEXT;
	add $ps->{var}, $ps->{var}, FORLOOP_STEP_$ps->{num <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103903	1103988	
==>ype(interpreter, class);\n\tif (!type) {\n\t\tParrot_autoload_class(interpreter, class <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105118	1105203	
==>ype(interpreter, class);\n\tif (!type) {\n\t\tParrot_autoload_class(interpreter, class <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	372	462	
==>gure::Step::Base);

use Parrot::Configure::Step ':gen';

$description = 'Generating runtime <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7231	7356	
==>ect}
		    :					 ''
		    ;
	my $ignore  = ref($options{ignore}) eq 'ARRAY' ? join('|', @{$options{ignore}})
		    : defined( <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24233	24358	
==>ect}
		    :					 ''
		    ;
	my $ignore  = ref($options{ignore}) eq 'ARRAY' ? join('|', @{$options{ignore}})
		    : defined( <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	14604	14823	
==>eft, $leftexpr, $right, $rightexpr, $righttype)=@_;
	my(@ass);

	if ($left =~ /^\w+$/) {
		if ($left =~ /(_percent|_amp)$/) {
			my $ti="\$I" . ++$retcount;
			my $tn="\$N" . ++$retcount;
			@ass=(
				@$rightexpr,
				" <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	1352	1451	
==>eturn $self;
}

=back

=head3 Class Methods

=over 4

=item * C<description()>

Accepts no arguments <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29562	29660	
==>if (PObj_get_FLAGS(ccont) & SUB_FLAG_TAILCALL) {\n\tPObj_get_FLAGS(ccont) &= ~SUB_FLAG_TAILCALL;\n\ <==
2	/Users/nnunley/parrot/config/auto/alignptrs.pm	1587	1733	
==>> $align);
    }

    $self->set_result($self->result . " $align byte");
    $self->set_result($self->result . 's') unless $align == 1;

    return <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2874	2997	
==>escribe_file($_);
	if($info->{desc}) {
	    print "\n* $info->{path}\n\n$info->{desc}\n";
	} else {
	    print "( $info->{pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957521	957615	
==>ncoding_number(interpreter, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, NULL, 1,\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958426	958520	
==>ncoding_number(interpreter, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, NULL, 1,\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714527	714631	
==>.ops\"\n  STRING * const s = {{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (s && string_len <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715450	715554	
==>.ops\"\n  STRING * const s = {{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (s && string_len <==
2	/Users/nnunley/parrot/lib/Test/More.pm	36532	36761	
==>e.  Its main benefit is that it has
been distributed with Perl since 5.004_05.

L<Test::Harness> for details on how your test results are interpreted
by Perl.

L<Test::Differences> for more ways to test complex data structures.
An <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	37106	37228	
==>>[1]{'start_line'},
          "Unknown directive: $para->[0]"
        );

        # And maybe treat it as text instead of j <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033479	1033579	
==>d\", lex_name);\n    }\n    VTABLE_set_pmc_keyed_str(interpreter, lex_pad, lex_name, {{\@2}});\n    { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034577	1034677	
==>d\", lex_name);\n    }\n    VTABLE_set_pmc_keyed_str(interpreter, lex_pad, lex_name, {{\@2}});\n    { <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11812	11906	
==>unless defined $super_table->{$method};
    my $supermethod = "Parrot_" . $super_table->{$metho <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	3265	3360	
==>he class tree.

=item C<noinit>

Used with C<abstract>: No C<class_init> code is generated.

=it <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	962	1345	
==>defstr
				dim do loop double draw
			else elseif end endif environ erase error exit
			field files for next function
			get gosub goto
			if then input integer ioctl is
			key kill
			let line input list local locate lock unlock long loop
				lprint lset
			mid$ mkdir
			name next
			off on com error key pen play strig timer gosub goto com
				option base out open
			paint palette <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	6929	7064	
==>ar(@to_unget),
           " tokens as \"$name\".\n";
        } else {
          print $fh "<a\n>";  # Yes, an 'a' element with no attrib <==
2	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	174	270	
==>ss2.pl - GC stress-testing

=head1 SYNOPSIS

    % time perl examples/benchmarks/stress2.pl

=hea <==
2	/Users/nnunley/parrot/lib/Test/More.pm	12619	12820	
==>ript blowing up.

It works on references, too:

    isa_ok( $array_ref, 'ARRAY' );

The diagnostics of this test normally just refer to 'the object'.  If
you'd like them to be more specific, you can sup <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8789	8908	
==>b output_peekindex {
    my $self = shift;
    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('po <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8449	8568	
==>b output_peekindex {
    my $self = shift;
    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('po <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	7302	7493	
==>($self, $body, $trans) = @_;

    # use vtable macros
    $body =~ s!
        (?:
            {{\@\d+\}}
            |
            \b\w+(?:->\w+)*
        )->vtable->\s*(\w+)\(
        !VTABLE <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	273	399	
==>ines specific to 'HQ9plus'.

=head1 DESCRIPTION

Call HQ9plus.pbc

=head1 METHODS

=head2 new

=cut

sub new {
    return bless <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4406	4510	
==>t dtypes index.
inc ${ITEMP0}
PIR
		$pir =~ s/\$push_num/$push_num/g;
		$push_num++;
	}

	# Return genera <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2822	2926	
==>t dtypes index.
inc ${ITEMP0}
PIR
		$pir =~ s/\$push_num/$push_num/g;
		$push_num++;
	}

	# Return genera <==
2	/Users/nnunley/parrot/tools/dev/mk_inno.pl	337	457	
==>Create a script for Inno Setup

=head1 SYNOPSIS

    % perl tools/dev/mk_inno.pl [options]

=head1 DESCRIPTION

=head2 Op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490483	490991	
==>IRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 562,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 534 \"src/ops/math.ops\"\n  {{\@1}}++;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	5145	5287	
==>lazily
    while (my $line = <$in>) {
        # everything after the line starting with #perl is eval'ed
        if ($line =~ /^#perl/ && $opti <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	6132	6308	
==>(\x20{1,10})(?![\cm\cj\n]) # capture some spaces not at line-end
          /$1$2\n/gx     # and put a NL before those spaces
        if $WRAP;
        # This may wrap at well pa <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	394	626	
==>onstruct::Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected parent and peer blocks." unless @_ == 2;

  my ($block, $peer) = @_;

  my $self = bless {
    BLOCK     => $block,

    KIND      => 'continu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	297346	297771	
==>> "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 346,
                  "ARGS" => [
                              "i",
                              "ic",
                              " <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	45961	46108	
==>tern matching operation\n";
		}


=head2 C<extract_quotelike> and "here documents"

C<extract_quotelike> can successfully extract "here documents" f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035546	1035647	
==>_name, ctx);\n    PMC *result = NULL;\n\n    if (!PMC_IS_NULL(lex_pad))\n\tresult = VTABLE_get_pmc_key <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036710	1036811	
==>_name, ctx);\n    PMC *result = NULL;\n\n    if (!PMC_IS_NULL(lex_pad))\n\tresult = VTABLE_get_pmc_key <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	12359	12478	
==>tatic int get_op(const char * name, int full);

static size_t hash_str(const char * str) {
    size_t key = 0;
    const <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	659	760	
==>args = $ENV{TEST_PROG_ARGS} || '';

    $lang_f = File::Spec->rel2abs($lang_f);
    $out_f  = File::Sp <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	696	797	
==>args = $ENV{TEST_PROG_ARGS} || '';

    $lang_f = File::Spec->rel2abs($lang_f);
    $out_f  = File::Sp <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	2219	2393	
==>ope;
    my $symbtab = shift @{ $parser->YYData->{scopef} };
    $parser->YYData->{symbtab_cst} = $symbtab;
    my $g = pop @{ $parser->YYData->{scope} };
    $parser->YYD <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	27244	27350	
==>ef };
sub describe_group { "group $_[3]" }
sub describe_rule { undef }

sub wrap {
    my ($self, $op, $bac <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	16597	16740	
==>ref, pos($$textref), 20) .
			     q{..."},
		         pos $$textref;
		return; 
	}
	$oppos = pos($$textref);

	my $initial = substr($$textref,$ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8066	8265	
==>");
    if ($self->{DEBUG}) {
        push @ops, 'print "POPPED: <rx_tmp>\n";';
    }

    # FIXME: Still have extra copy in many cases
    my $L_fallback = $self->output_label_use($fallback);
    pus <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642307	642563	
==>ype_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643195	643451	
==>ype_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5520	5659	
==>result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		return(<<CODE, $result);
	# EQV $a1, $a2
	set $result, 0.0
	eq $a1, $o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746841	747286	
==>set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 841,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 194 \"src/ops/set.o <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	2826	3026	
==>} ) {
        pop @output;
    }

    # Compose the return string - skip any
    # adjancent blank lines.

    my $result;
    my $seen_blank;
    foreach my $item (@output) {
        my ( $type, $code <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	1531	1642	
==>is an integer constant (in-line).
    nc  The argument is a number constant index.
    pc  The argument is a PMC <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060089	1060202	
==>eption(1, \"Tried to get null name\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_name(interpreter, {{\@2}}) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060994	1061107	
==>eption(1, \"Tried to get null name\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_name(interpreter, {{\@2}}) <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12699	12802	
==>R]}"};
	} else {
		push @args, qq{""};
	}
	feedme();
	push @{$code{$seg}->{code}}, "\t_RESTORE(" . join( <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	7531	7727	
==>{
	    $in_info = 1;
	    $cur_f = $1;
	}
	elsif ($in_info) {
	    if (/^#/) {
		if (/# getargs\s+\(\[(.*)\], (.*?), (.*?)\)/) {
		    my ($args, $ar, $kw) = ($1, $2, $3);
		    $args =~ s/[\s']//g <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	3812	3934	
==>"CLASS_$_";
        $label =~ s/\./_/g;
        $pir .= "if class_name == \"$_\" goto $label\n";
    }
    $pir .= "goto FA <==
2	/Users/nnunley/parrot/config/inter/ops.pm	497	645	
==>b runstep
{
    my ($self, $conf) = @_;

    my @ops = (
        sort {
            if ($a =~ /core\.ops/) { return -1 }
            if ($b =~ /core\ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37600	37695	
==>ments dtypes
if pop_count == 0 goto INS_TRANS_PUSH_LOOP_$name
type_trans = dtypes[0]
push stypes <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666495	666788	
==>"i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 745,
                  "ARGS" => [
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 372 \"src/ops/pmc.op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	293315	293484	
==>",
                              "s"
                            ],
                  "BODY" => "#line 945 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@ <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6271	6418	
==>libs);
}

sub modtime {
    my $ago = (-M shift);

    if (defined $ago) {
        return $NOW - $ago;
    } else {
        return;
    }
}

sub nee <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6482	6629	
==>libs);
}

sub modtime {
    my $ago = (-M shift);

    if (defined $ago) {
        return $NOW - $ago;
    } else {
        return;
    }
}

sub nee <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	1339	1490	
==>s$/, readdir PARROT;
closedir PARROT;


print <<END;
<?xml version="1.0" encoding="UTF-8"?>
 <!DOCTYPE language SYSTEM "language.dtd">
 <!-- Created aut <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6744	6864	
==>t least) because the browser thinks it should
	# download the file.
	
	if ( $self->has_suffix )
	{
		return 0 if $self->s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19618	19733	
==>oft_decimal_language_code> )

This sets the language code to tag this document as being in. By
default, it is curren <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	7613	7734	
==>s/ops.num";
    }
    my ($name, $number, @lines, %seen, %fixed, $fix);
    local *OP;
    $fix = 1;
    open OP, "< $file <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4831	4956	
==>ITEMP0} = elements ${STYPES}
dec ${ITEMP0}
${PTEMP0} = ${STYPES}[${ITEMP0}]

# We'll use register $[INSP]0.
${STACK0} = "$"
${ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1223	1330	
==>turn()"); # Return to the previous inline chunk.
        $compiler->outdent;
        $compiler->emit(".end") <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	384641	384972	
==>",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 44 <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62058	62192	
==>';

		# EXTRACT TRAILING REPETITION SPECIFIER (IF ANY)

			if ($grammar =~ m/\G[(]/gc)
			{
				pos($grammar)--;

				if ($grammar =~ m <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	466	609	
==>S_C99_SNPRINTF' => 1,
             'HAS_GMP' => 1,
             'HAS_READLINE' => 1,
             'HAS_SNPRINTF' => 1,
             'HAS_aligned <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121941	122039	
==>248 \"src/ops/bit.ops\"\n  /*\n   * lvalue casts are evil, but this one isn't evil enough to kill.\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122853	122951	
==>248 \"src/ops/bit.ops\"\n  /*\n   * lvalue casts are evil, but this one isn't evil enough to kill.\ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11633	11801	
==>gth $out;
    
    return $out;  
}

=item C<resolve_pod_page_link($to, $section)>

Resolves the POD link. Perl modules are converted to paths.

=cut

sub resolve_pod_pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621376	621481	
==>n\tsrc_pred = NULL;\t/* just for gcc */\n    }\n    lru = &mic->lru;\n    if (lru->u.signature == sig) {\n <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	4620	4853	
==>@{$self->{LABELS}};
}

=item C<flags(@flags)>

=item C<flags()>

Sets/gets the op's flags.

=cut

sub flags
{
    my $self = shift;

    if (@_)
    {
        $self->{FLAGS} = shift;
    }

    return $self->{FLAGS};
}

=item C<arg_di <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	813	938	
==>t($self);

  return $self;
}

sub ident  { return shift->{IDENT};  }


#
# compile()
#

sub compile
{
  my $self = shift;
  my <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	813	938	
==>t($self);

  return $self;
}

sub ident  { return shift->{IDENT};  }


#
# compile()
#

sub compile
{
  my $self = shift;
  my <==
2	/Users/nnunley/parrot/Configure.pl	4431	4619	
==>rot_version();
our @parrot_version = Parrot::BuildUtil::parrot_version();

$OUTPUT_AUTOFLUSH = 1;

# Handle options
my %args;
for (@ARGV) {
  my($key, $value) = m/--([-\w]+)(?:=(.*))?/;
  $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910865	911156	
==>",
                  "CODE" => 1026,
                  "ARGS" => [
                              "i",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 284 \"src/ops/string.ops\"\n    {{\@1}} = string_str_i <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	3080	3176	
==>s" />
          <keyword attribute="Special Directive" context="#stay" String="special_directives <==
2	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	1051	1181	
==>/\* CHECKSUM: ([-\d+]+) \*/$!) {
        print "$output does not have a checksum line; remaking\n" if $Verbose;
        $up_to_date <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2320	2433	
==>tval = $self->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exists($$self{USER})
	or	$$se <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2233	2337	
==>tval = $self->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exists($$self{USER})
	or	$$se <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7372	7524	
==>ON({ lhs => 1, assign => 1});
	push @{$code{$seg}->{code}}, @code;
	goto PARSE;
	# Got a bareword.  
	# This should be an assignment
	#if ($syms[NEXT] eq <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	2073	2319	
==>E" => "noop",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 1,
                  "ARGS" => [],
                  "BODY" => "#line 104 \"src/ops/core. <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29086	29204	
==>}/\\}/g;
	$desc=~s/{/\\{/g;

	bless 
	{
		"pattern"     => $pattern,
		"lookahead"   => $_[2],
		"line"        => $_[3] <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31190	31302	
==>}/\\}/g;
	$desc=~s/{/\\{/g;

	bless 
	{
		"pattern"   => $pattern,
		"lookahead" => $_[2],
		"line"      => $_[3] <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	452	681	
==>> src/null_config.c
    % perl tools/build/parrot_config_c.pl --install > src/install_config.c
    % perl tools/build/parrot_config_c.pl > src/parrot_config.c

=head1 DESCRIPTION

Create F<src/parrot_config.c> with relevant runtim <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	23465	23563	
==>rrot_static  = $PConfig{blib_dir}.$PConfig{slash}.$PConfig{libparrot_static};

            my $libp <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16481	16633	
==>pU($idf);
            if ( defined $defn ) {
                $result = new_tmp( $parser, 'pmc' );
                push @opcodes, new LocalDir( $parser <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	7503	7631	
==>formation of <?([\w:]+)>?/) {
	    $in_info = 1;
	    $cur_f = $1;
	}
	elsif ($in_info) {
	    if (/^#/) {
		if (/# getargs\s+\(\ <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1149	1266	
==>::Spec->splitdir($path_to_parrot));
        my $path_to_language;
        if ($dir_count == 0) {
          $path_to_la <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1634	1751	
==>::Spec->splitdir($path_to_parrot));
        my $path_to_language;
        if ($dir_count == 0) {
          $path_to_la <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16019	16184	
==>e to silence a C<Pod::Simple::HTML> warning.

=cut

sub esc 
{
    if ( defined wantarray ) 
    {
        if ( wantarray ) 
        {
            @_ = splice @_; # b <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	14987	15100	
==>polate($code, 'op1', 'op2');
        } elsif ($type1 eq "APLVector" && $type2 eq "APLVector") {
          # vector <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	25909	26185	
==>open(TESTOUT, ">&STDOUT") or die "Can't dup STDOUT:  $!";
    open(TESTERR, ">&STDERR") or die "Can't dup STDERR:  $!";
    $Opened_Testhandles = 1;
}


=back


=head2 Test Status and Info

=over 4

=item B<current_test>

    my $curr_test = $Test->current_test;
    $Test->cur <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15550	15667	
==>hout even the implied warranty of
merchantability or fitness for a particular purpose.

Portions of the data tables in <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	30581	30844	
==>Test->caller;
    my($pack, $file, $line) = $Test->caller;
    my($pack, $file, $line) = $Test->caller($height);

Like the normal caller(), except it reports according to your level().

=cut

sub caller {
    my($self, $height) = @_;
    $height ||= 0;

    my @ca <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	391	509	
==>ct::Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected 5 args!" unless @_ == 5;

  my ($b <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	391	509	
==>ct::Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected 5 args!" unless @_ == 5;

  my ($b <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1547	1756	
==>:IMCC') {
      eval "use $options{module}";
      die $@ if $@;
    }

    $cgen = $options{module}->new(%options);
    $cgen->init_context($ctx);
    return $cgen->output($list_regex->{code}, $ctx);
}

sub co <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2522	2665	
==>ocument.  This class is of interest to people writing Pod formatters
based on Pod::Simple. It is useful for seeing exactly what events you
get o <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	4274	4561	
==>s' => undef,
             'i_gdbm' => undef,
             'i_grp' => 'define',
             'i_ieeefp' => undef,
             'i_inttypes' => 'define',
             'i_langinfo' => 'define',
             'i_libutil' => undef,
             'i_limits' => 'define',
             'i_locale' = <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	9625	9723	
==>y the name of the
class being created.  The third form assumes the current package
name as the clas <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	171	308	
==>er;
use vars qw( %code $seg $debug $runtime_jump );

require "COMP_parsefuncs.pm";

sub init {
        @type[0..2]=("","","");
        @sy <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3863	3979	
==>her!")
        unless $module_props{fnlib};

      $fnlib = $module_props{fnlib}->value;
    }

    my $fn = $props{f <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6527	6643	
==>her!")
        unless $module_props{fnlib};

      $fnlib = $module_props{fnlib}->value;
    }

    my $fn = $props{f <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1433	1578	
==>for stack depths and stack type states that we are
	# propogating.
	return <<'PIR';
.local string strPC
.local int stack_depth
.local pmc prop_typ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	520	665	
==>for stack depths and stack type states that we are
	# propogating.
	return <<'PIR';
.local string strPC
.local int stack_depth
.local pmc prop_typ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129849	130142	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130588	130881	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	709055	709303	
==>nction",
                  "CODE" => 795,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 709 \"src/ops/pmc.ops\"\n  dod_unregister_pmc(interpreter, {{\@1}});\n  {{+=2 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3989	4084	
==>nd function
function arrfunc(x())
	u=aftwo(x())
	arrfunc=55
end function
dim g(10)
g(5)=666
g(4) <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15262	15357	
==>nd function
function arrfunc(x())
	u=aftwo(x())
	arrfunc=55
end function
dim g(10)
g(5)=666
g(4) <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9880	10008	
==>ecutable. Any output is directed to
F<test.out>.

=cut

sub cc_run
{
    my $exe   = $conf->data->get('exe');
    my $slash = $co <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1216	1342	
==>->find_symbol($name);

  $self->SYNTAX_ERROR("Call to unknown sub '%s'.", $name) unless $sym;

  my %props = $sym->props;

  my <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	43176	43295	
==>!~ m{^#:[ \^\/\%]*\n?$}s;
     # look at a formatty line preceding a nonformatty one
    DEBUG > 5 and print "Scrutinizi <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	6794	6910	
==>const;
    my @methods = @{ $self->{methods} };
    # copy super
    $const->{super} = { %{ $self->{super} } };
    m <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	49204	49417	
==>are found in the input, or
under-E<32> E codes are found in the tree. And ditto \x7f-\x9f

Option to turn highbit characters into their compromised form? (applies
to E parsing too)

TODO: BOM/encoding things.

TODO <==
2	/Users/nnunley/parrot/config/gen/config_pm.pm	551	653	
==>iption = "Recording configuration data for later retrieval";

@args = ();

sub runstep
{
    my ($self, <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25837	25944	
==>,c]...]
	feedme();
	my($var,$vartype,$ovar);
	my $ps;
	$ps=pop @{$fors[$scopes]};
	
	if ($type[CURR] ne "BAR <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	6162	6506	
==>e you tried to ".
                "say how many tests you plan to run but made a mistake.\n";
        }
        elsif( !$arg ) {
            die "You said to run 0 tests!  You've got to run something.\n";
        }
    }
    else {
        require Carp;
        my @args = grep { defined } ($cmd, $arg);
        Carp::croak("plan() doesn't under <==
2	/Users/nnunley/parrot/languages/regex/test.pl	918	1030	
==>umber of pairs of INPUT and OUTPUT
  sections, where an INPUT: section begins with the string 'INPUT:' on
  a lin <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20731	20836	
==>add', [ $matchcount, 1 ]),
     $check => aop('lt', [ $matchcount, $min, $local_back ]),
      $next => $s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	532738	533043	
==>\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ln",
                  "FLAGS" => ": <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5077	5190	
==>Label);
    my $pass = $self->output_label_use($passLabel);

    while (@$incexc) {
        my $first = shift(@$in <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4752	4865	
==>Label);
    my $pass = $self->output_label_use($passLabel);

    while (@$incexc) {
        my $first = shift(@$in <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4976	5113	
==>= $dest");
    $compiler->emit("  global \"$dest_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3039	3176	
==>= $dest");
    $compiler->emit("  global \"$dest_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2484	2757	
==>@_;
        my $FH   = $self->{fh};
        print {$FH} "  $op->{result}->{symbol} = $op->{arg1}->{symbol}\n";
    }

    sub visitKeyedGetOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op- <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	4930	5122	
==>@_;
        my $FH   = $self->{fh};
        print {$FH} "  $op->{result}->{symbol} = $op->{arg1}->{symbol}\n";
    }

    sub visitCallOp {
        my $self = shift;
        my ($op) = @ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	5239	5400	
==>m = $self->block->find_symbol($name);

  my %props = $sym->props;

  if (exists $props{op}) {
    my $oplib = $props{oplib} ? $props{oplib}->value : 'CORE'; # TOD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632682	632947	
==>nit(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633724	633989	
==>nit(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Test/More.pm	32936	33046	
==>f $b ? 1 : $a cmp $b } @$a2]
    );
}

=back


=head2 Extending and Embedding Test::More

Sometimes the Test::M <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5394	5508	
==>ompile, linklibs, or copy\n";
}

sub run {
    print join(" ", @_), "\n";

    return system(@_) == 0;
}

# XXX: or <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5605	5719	
==>ompile, linklibs, or copy\n";
}

sub run {
    print join(" ", @_), "\n";

    return system(@_) == 0;
}

# XXX: or <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717946	718045	
==>* const io = {{\@1}};\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718878	718977	
==>* const io = {{\@1}};\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \" <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	26548	26673	
==>c;
	$lexicals{$c} = $c;
	$names{$c} = $c;
	print <<EOC;
        \t $cmt
EOC
    }
    push @stack, [$n, $c, 'P'];
}

sub STORE <==
2	/Users/nnunley/parrot/lib/Test/More.pm	2204	2330	
==>s = Test::More::status;

  # UNIMPLEMENTED!!!
  BAIL_OUT($why);


=head1 DESCRIPTION

B<STOP!> If you're just getting started w <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	123	242	
==>ptions, (ref($proto) || $proto);
    $self->init();
    return $self;
}

sub init {
    my $self = shift;
    $self->{st <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	290	409	
==>ptions, (ref($proto) || $proto);
    $self->init();
    return $self;
}

sub init {
    my $self = shift;
    $self->{st <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	531998	532328	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exp",
                  "FLAGS" => ":base_math",
                  "ARGD <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	12651	12976	
==>$extern = vtable_num($1);
            #print "$jit_func $extern\n";
        }
        elsif ($op->full_name eq 'unless_p_ic') {
            $jit_func = "Parrot_jit_vtable_unlessp_op";
            $opbody =~ /vtable->(\w+)/;
            $extern = vtable_num($1);
            #print "$jit_func $extern\n";
        }

        els <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	3298	3496	
==>rgs\n"
            if $max;
    }
    
    return $code;
}

sub helpers {
    my (@args) = @_;
    
    # types present in this command
    my %types = ();
    for my $arg (@args) {
        next unle <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	31954	32052	
==>NE
}
sub typeof {
	my($var)=@_;
	return "FLO" if ($var=~/[!#%&]$/);
	return "STRING" if ($var=~/\$$ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	9774	9963	
==>_name );

Works exactly as like(), only it checks if $this B<does not> match the
given pattern.

=cut

sub unlike ($$;$) {
    $Test->unlike(@_);
}


=item B<cmp_ok>

  cmp_ok( $this, $op, $ <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	1752	1970	
==>-comment blank line elimination; pod
handling;

=back

=cut

################################################################################

use Regexp::Common qw/comment/;
use Getopt::Long;
use strict;

if(1) {
    m <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4900	5008	
==>EMP0}]

# We'll use register $[INSP]0.
${STACK0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STACK0} = co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64777	65013	
==>e = interpreter->code;\n  runops(new_interp, REL_PC + {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65728	65964	
==>e = interpreter->code;\n  runops(new_interp, REL_PC + {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	15583	15764	
==>ompiler error.
      #

      else {
        $self->INTERNAL_ERROR("End of unknown kind of block '%s'!", $peer_block->kind);
      }

      next;
    }

    #
    # Arithmetic Operat <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27334	27516	
==>,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 84
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'S <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	2045	2174	
==>ed across rule calls
        push @{ $self->{rxlocals} }, @{ $op->{rxlocals} };
        return ();
    } else {
        my $rxloca <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2727	2845	
==>CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHECK}}='ACCEPT';
    undef;
}

s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2603	2710	
==>CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHECK}}='ACCEPT';
    undef;
}

s <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64757	64935	
==>("a $1-to-$2 subrule match", $aftererror,$line,"$code$argcode($1..$2)");
					if ($3)
					{
						my $pos = pos $grammar;
						substr($grammar,$pos,0,
						       "<leftop: $na <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48530	48633	
==>\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_BOUNDS_FLAG); }\n  else         { Interp_f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49320	49423	
==>\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_BOUNDS_FLAG); }\n  else         { Interp_f <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	1924	2032	
==>pe="ARRAY"; 
		} else {
			$var=~s/\W$//g;
		}
		#print "Type: $stype  User: $user Var: $var  Array: $array\n <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	2181	2441	
==>bin}) {
        $entry = "$options{bindir}/$dest";
    } elsif ($meta{include}) {
        $entry = "$options{includedir}/$dest";
    } else {
        $entry = "$options{prefix}/$dest";
    }

    push @{ $FILES{$package} }, $entry;
}

while (my ($package, $file <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065112	1065213	
==>PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed_str(interpreter, ns_ro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065986	1066087	
==>PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed_str(interpreter, ns_ro <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38670	38779	
==>'$text = $_savetext;' : '' ) .'

'
}

package Parse::RecDescent::Result;

sub issubrule { 0 }
sub isterminal { <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2377	2575	
==>/s ) {
    $in = oct $in;
  } elsif($in =~ m/^0x([0-9a-fA-F]+)$/s ) {
    $in = hex $1;
  } # else it's decimal, or named

  if($in =~ m/^\d+$/s) {
    return 0 + $in;
  } else {
    return $Name2cha <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	1018	1149	
==>/s ) {
    $in = oct $in;
  } elsif($in =~ m/^0x([0-9a-fA-F]+)$/s ) {
    $in = hex $1;
  } # else it's decimal, or named

  if($NOT <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732214	732491	
==>(INTVAL)({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732960	733237	
==>(INTVAL)({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	7745	7871	
==>ves, and operates on the beginning instead of the end!
          
          if($to_unget[-1]->type eq 'text') {
            if( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5577	5699	
==>eturn @ops;
}

sub output_initgroup {
    my ($self, $group) = @_;
    return ("new <rx_ptmp>, \"MatchRange\" # new group \ <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	1246	1368	
==>ub makefiles
{
    my ($self, $conf) = @_;

    genfile(
        'config/gen/makefiles/root.in' => 'Makefile',
        comm <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103930	1104016	
==>tif (!type) {\n\t\tParrot_autoload_class(interpreter, class);\n\t\ttype = pmc_type(inte <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105145	1105231	
==>tif (!type) {\n\t\tParrot_autoload_class(interpreter, class);\n\t\ttype = pmc_type(inte <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256849	257346	
==>> [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 299,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 740 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? {{\@2}} : ({{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53255	53362	
==>ps\"\n  if ({{\@1}} != 0) { Interp_flags_SET(interpreter,   PARROT_GC_DEBUG_FLAG); }\n  else         { Inter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54011	54118	
==>ps\"\n  if ({{\@1}} != 0) { Interp_flags_SET(interpreter,   PARROT_GC_DEBUG_FLAG); }\n  else         { Inter <==
2	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	936	1053	
==>PerlHash   # Numerics
	new P21, .PerlHash     # Alphabetics.
	new P22, .PerlHash     # ??
	new P23, .PerlHash     # ?? <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	13924	14061	
==>> {
			'NUM' => 40,
			"?" => 16,
			"." => 41
		},
		DEFAULT => -28,
		GOTOS => {
			'number' => 39,
			'rulename' => 17
		}
	},
	{#State <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	2572	2738	
==>yadic:\u2371"]  = <<"END_PIR"             # nor
    $I100 = %1
    $I101 = %2
    $I100 = or $I100, $I101
    $I100 = not $I100
    %1 = $I100
END_PIR

    $P0[unicode <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43208	43450	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pushmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ], <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43851	44093	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pushmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ], <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	4781	4921	
==>ave'   , 242,
 'oacute'   , 243,
 'ocirc'    , 244,
 'otilde'   , 245,
 'ouml'     , 246,
 'divide'   , 247,
 'oslash'   , 248,
 'ugrave'   , <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5629	5878	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "load_bytecode",
                  "FLAGS" => ":load_file",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TY <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6294	6543	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "load_bytecode",
                  "FLAGS" => ":load_file",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TY <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	40983	41116	
==>'', {}, @ell_content]
        );
        DEBUG > 3 and print "L-to content: ", pretty($ell->[1]{'to'}), "\n";
      }
      
      # A <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285427	285739	
==>"inline",
                  "CODE" => 332,
                  "ARGS" => [
                              "i",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 913 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@ <==
2	/Users/nnunley/parrot/config/init/optimize.pm	1436	1558	
==>e what was passed to --optimize on the CLI
            $conf->data->add(' ', ccflags => $optimize);
            # record wh <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	813	964	
==>,
    output_like       => 'like',
    output_isnt       => 'isnt_eq',
                        );

foreach my $func ( keys %language_test_map ) {
    no <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	546	667	
==>,
    output_like => 'like',
    output_isnt => 'isnt_eq',
);

foreach my $func ( keys %language_test_map ) {
    no <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	7919	8074	
==>Parrot_jit_normal_op

#define Parrot_jit_restart_op Parrot_jit_cpcf_op

#include"jit_emit.h"

#undef CONST
#ifndef MAP
# define MAP(i) jit_info->optimizer-> <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	96	188	
==>1 2006-06-20T20:02:00.179448Z bernhard  $

=pod

=head1 NAME

Parrot::Configure::Data - Confi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23087	23308	
==>\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PAR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25526	25747	
==>\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PAR <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	22901	23054	
==>ith B::Deparse
    return if $^C;

    my $msg = join '', @msgs;

    local($\, $", $,) = (undef, ' ', '');
    my $fh = $self->output;

    # Escape each <==
2	/Users/nnunley/parrot/config/init/hints/freebsd.pm	108	244	
==>8:15.110975Z coke  $

package init::hints::freebsd;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    my $libs = $conf->data-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5774	5924	
==>=cut

sub init_func_init1
{
    my ($self, $base) = @_;
    my $cg_func = $self->core_prefix . $base;
    my $bs = $base . $self->suffix . '_';

    re <==
2	/Users/nnunley/parrot/lib/File/Which.pm	3757	3850	
==>' program wasn't implemented in the shell.

C<File::Which> searches the directories of the use <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	698	800	
==>'Jako::Construct::Type');
  confess "Ident is not!" unless UNIVERSAL::isa($ident, 'Jako::Construct::Exp <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	747	886	
==>ck, $token) if $token->kind eq 'ident';
  return Jako::Construct::Expression::Value::Literal->new($block, $token)    if $token->kind eq 'lit <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	520	615	
==>ule provides a basic test harness for Parrot-hosted languages.  Right
now it parameterizes the t <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	366	459	
==>standards.pl all_source

=head1 DESCRIPTION

This script checks that the C source code conform <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	330590	330828	
==>E" => "inline",
                  "CODE" => 388,
                  "ARGS" => [
                              "n",
                              "p"
                            ],
                  "BODY" => "#line 174 \"src/ops/dotgnu.ops\ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62666	62775	
==>parse("a zero-or-more subrule match", $aftererror,$line,"$code$argcode($1)");
					if ($2)
					{
						my $po <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23673	23824	
==>bel");
    $self->_restore($temp);
  }
  return $return;
}

sub _op_min {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $ret <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32719	32856	
==>f ($rule->{'typeinfo'}) {
		    $pir .= "### typeinfo\n";
		    $pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			    "typeinfo for rule $rul <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8037	8201	
==>rue" else print "Oops (flo)"

' Expect OK
if 2 > 1 then
	print "Ok"
else
	print "All is not right"
end if

' Count from 9 to 0, print 5
dim y(10)
i=10
tloop:
	y(i)=i <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	3108	3222	
==>,$opcode, $arg, $rest);
    if ($l =~ /Disassembly of <?([\w:]+)>?/) {
	push @code, [ 0, 0, "New_func", 0, $1, unde <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5480	5661	
==>exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                    print {$FH} " :slurpy";
                }
                $first = 0;
            }
            print {$F <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6512	6693	
==>exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                    print {$FH} " :slurpy";
                }
                $first = 0;
            }
            print {$F <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3941	4049	
==>rm);
		$$outhash{$prm}=$value;
	}
	for (@$mandatory) {
			exists($$outhash{$_})
		or	croak("Missing mand <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3743	3846	
==>rm);
		$$outhash{$prm}=$value;
	}
	for (@$mandatory) {
			exists($$outhash{$_})
		or	croak("Missing mand <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2556	2708	
==>addr[1192]
     */
#if defined(__GNUC__) && defined(I386) && defined(PARROT_CGP_REGS)
    register opcode_t *cur_opcode asm ("esi") = cur_op;
    registe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724247	724366	
==>python.ops\"\n  PMC * const p = {{\@2}};\n  PMC * const io = {{\@1}}; /* TODO Can this be localized? */\n  STRING *s = ( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	2690	2826	
==>} elsif ($cond eq '<') {
        return "lt $a, $b, $where";
    } elsif ($cond eq '<=') {
        return "le $a, $b, $where";
    } elsi <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	1797	1909	
==>group('Development Documentation', '', 'docs/dev'),
		$self->new_group('PMC Documentation', '', 'docs/pmc'),
		$s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7957	8062	
==>t's safe to consider the previous paragraph as done.
          DEBUG > 1 and print "Starting verbatim para <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669104	669334	
==>@1}}->vtable->push_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669876	670106	
==>@1}}->vtable->push_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	31744	31882	
==>escription and
a note to contact the author.

=cut

sub _whoa {
    my($check, $desc) = @_;
    if( $check ) {
        die <<WHOA;
WHOA!  $ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	55330	55588	
==>$1/s;
				if ($code =~ /\A\s*[^{]|[^}]\s*\Z/)
				{
					$code = "{ $code }"
				}

				$item = new Parse::RecDescent::Directive(
					      "push \@{\$thisparser->{deferred}}, sub $code;",
					      $lookahead,$line,"<defer:$code>");
				$prod and $prod->ad <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	2222	2485	
==>ond = 'if';
    }

    $anon = $compiler->anon_lbl();

    $compiler->emit("  $cond $left $op $right goto $anon");
  }

  #
  # Compile the return value, if any:
  #

  if (defined $value) {
    $self->SYNTAX_ERROR("'return' with argument in subroutine that does n <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	20361	20517	
==>ack_returns;
    REG_INT(1) = $int_returns;
    REG_INT(2) = $string_returns;
    REG_INT(3) = $pmc_returns;
    REG_INT(4) = $num_returns;
    return;
}

=c <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	11850	12100	
==>->[0],
                        'arg2'   => undef,
                        'result' => $result,
                    );
                    return [ $defn, \@opcodes, $assign ];
                }
                else {
                    my $ass <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10046	10268	
==>->[0],
                    'arg2'   => undef,
                    'result' => $result,
                );
                return [ $defn, \@opcodes, $assign ];
            }
            else {
                my $ass <==
2	/Users/nnunley/parrot/config/init/manifest.pm	367	485	
==>arrot::Configure::Step::Base);

use Parrot::Configure::Step;
use ExtUtils::Manifest qw(manicheck);

$description = 'Che <==
2	/Users/nnunley/parrot/config/init/headers.pm	342	458	
==>arrot::Configure::Step::Base);

use Parrot::Configure::Step;
use ExtUtils::Manifest qw(maniread);

our $description = <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59146	59244	
==>arsers).");
			}
			$rule = new Parse::RecDescent::Rule($rulename,$self,$line,$replace);
			$prod-> <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	11648	11792	
==>Array Slice Super Undef',
             'pod' => undef,
             'prefix' => '/opt/local',
             'ptr_alignment' => 1,
             'pt <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20314	20399	
==>->_generate($node->{children}[$_]);
    $self->_add_inst('','gt',[$temp_0,$temp_1,"DON <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5266	5433	
==>urn);
            next;
          }
        }
      }
      my $item = $self->_save_1 ('P');

      __quoted ($self, $_, $item, $special);

      my $pair = $self->_new <==
2	/Users/nnunley/parrot/config/inter/progs.pm	2049	2167	
==>nker?", $link) if $ask;
    $conf->data->set(link => $link);

    $ld = integrate($conf->data->get('ld'), $conf->option <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	3209	3476	
==>in' => 'languages/Makefile',
        commentType                         => '#',
        replace_slashes                     => 1
    );
    genfile(
        'config/gen/makefiles/amber.in' => 'languages/amber/Makefile',
        commentType                     => '#', <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	8674	8863	
==>nil'      => 'NIL',
        'not'      => 'NOT',
        'or'       => 'OR',
        'repeat'   => 'REPEAT',
        'return'   => 'RETURN',
        'then'     => 'THEN',
        'true <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240129	240226	
==>16 \"src/ops/cmp.ops\"\n  INTVAL l = VTABLE_get_integer(interpreter, {{\@2}});\n  {{\@1}} = l < {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241077	241174	
==>16 \"src/ops/cmp.ops\"\n  INTVAL l = VTABLE_get_integer(interpreter, {{\@2}});\n  {{\@1}} = l < {{ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	58244	58340	
==>e optimized regex that matches a string delimited
by any one of the characters in the single argu <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	1541	1792	
==>t ops here
    $P0['dyadic:<']       =  <<"END_PIR"            # less than
    $I100 = islt %1, %2
    %1 = $I100
END_PIR

    $P0['dyadic:>']       =  <<"END_PIR"            # greater than
    $I100 = isgt %1, %2
    %1 = $I100
END_PIR

    $P0['dyadi <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	29956	30113	
==>ack, $v;
    push @stack, $x;
    push @stack, $w;
}

sub ROT_TWO
{
    my ($n, $c, $cmt) = @_;
    print "\t\t$cmt\n";
    my $v = pop @stack;
    my $w = po <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688122	688208	
==>ine 576 \"src/ops/pmc.ops\"\n   {{\@1}}->vtable->delprop(interpreter, {{\@1}}, {{\@2}}) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688894	688980	
==>ine 576 \"src/ops/pmc.ops\"\n   {{\@1}}->vtable->delprop(interpreter, {{\@1}}, {{\@2}}) <==
2	/Users/nnunley/parrot/config/inter/libparrot.pm	843	991	
==>t('parrot_is_shared'),
            $parrot_is_shared);

    $parrot_is_shared = 0 unless $conf->data->get('has_dynamic_linking');

    if ($conf <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	6957	7093	
==>tokens as \"$name\".\n";
        } else {
          print $fh "<a\n>";  # Yes, an 'a' element with no attributes!
          DEBUG and pri <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6214	6312	
==>(1) = "New York"
A$(2) = "Boston"
A$(3) = "Chicago"
A$(4) = "Seattle"
Max = 4 'UBOUND(A$)
Exchange= <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15867	15965	
==>(1) = "New York"
A$(2) = "Boston"
A$(3) = "Chicago"
A$(4) = "Seattle"
Max = 4 'UBOUND(A$)
Exchange= <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20735	20952	
==>|| $_[0];
	bless 
	{
		"code"      => $_[1],
		"lookahead" => $_[2],
		"line"      => $_[3],
	}, $class;
}

sub issubrule { undef }
sub isterminal { 0 }

sub code($$$$)
{
	my ($self, $namespace, $rule) = @_;
	
''.($::R <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2777	2880	
==>et
{
    my ($self, $offset) = @_;

    return "interpreter->resume_offset = REL_PC + $offset; interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4112	4215	
==>et
{
    my ($self, $offset) = @_;

    return "interpreter->resume_offset = REL_PC + $offset; interpret <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32383	32554	
==>rective($line, "ref.c");
    return <<EOC;
$l
$decl {
    $ret
}

EOC
}

=back

=head2 Parrot::Pmc2c::SharedRef Instance Methods

C<SharedRef> is like C<Ref> but with locki <==
2	/Users/nnunley/parrot/config/auto/headers.pm	1619	1732	
==>are present
    if ($^O eq "msys") {
        push @extra_headers, qw(sysmman.h netdb.h);
    }
    my @found_heade <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	1540	1652	
==>ssembler code',
	'imc' => 'IMC code',
	'in' => 'Configuration file',
	'jako' => 'Jako code',
	'jit' => 'JIT file' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4973	5091	
==>t_token) {
  
    if( ($type = $token->type) eq 'text' ) {
      if( $self->{'rtfverbatim'} ) {
        DEBUG > 1 and p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	2017	2130	
==>at that absolute position. If a count is given, then that many tokens
# (at most, given the possibilitiy of runnin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495868	496133	
==>,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 590 \"src/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@2}}, {{\@3 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1236	1387	
==>ub start_item_number { $_[0]{'Thispara'} = $FREAKYMODE ? '' : "$_[1]{'number'}. "  }
sub start_item_text   { $_[0]{'Thispara'} = ''   }

sub start_over_ <==
2	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	109	202	
==>2006-06-25T03:57:27.771662Z petdance  $

=head1 NAME

tools/build/fingerprint_c.pl - Create fi <==
2	/Users/nnunley/parrot/tools/build/vtable_h.pl	589	747	
==>* !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
**
** This file is generated automatically from 'vtable.tbl' by vtable_h.pl
*/

#if !defined(PARROT_VTABLE_H_GUARD) <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	209	324	
==>* !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
**
** This file is generated automatically from 'vtable.tbl' by
** tools <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	28717	28836	
==>s(  @{$treelet->[$i]} == 2
           or (@{$treelet->[$i]} == 3 and $treelet->[$i][2] eq '')
      ) {
        $self->w <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1114	1316	
==>ps\n*/\n\n#define DEPRECATED internal_exception(UNIMPLEMENTED, \"you shouldn't see this\")\n\n#include \"parrot/oplib/ops.h\"\n\ntypedef opcode_t* (*interface_f)(Interp*, INTVAL*, void **);\n\n\n\n/*\n** <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971	1110	
==>ps\n*/\n\n#define DEPRECATED internal_exception(UNIMPLEMENTED, \"you shouldn't see this\")\n\n\n\n\n/*\n** object.ops\n*/\n\n\n\n\n/*\n** pi <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11071	11168	
==>LMNOPQRSTUVWXYZ0123456789])/sprintf('%%%02X',ord($1))/eg;
        # Yes, stipulate the list withou <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4420	4516	
==>LMNOPQRSTUVWXYZ0123456789])/sprintf('%%%02X',ord($1))/eg;
       # Yes, stipulate the list withou <==
2	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	1995	2080	
==>"../../../parrot -o basic.pbc merged_basic.pasm");
system("../../../parrot basic.pbc") <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722263	722364	
==>/* TODO Can this be localized? */\n  if (s && string_length(interpreter, s)) {\n    if (PIO_softspace( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723292	723393	
==>/* TODO Can this be localized? */\n  if (s && string_length(interpreter, s)) {\n    if (PIO_softspace( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1604	1749	
==>bel # past end of input?",
            'set <rx_match>["0";0], <rx_pos> # group 0 start := pos');
}

sub output_increment {
    my ($self, $distan <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	2082	2222	
==>rce files to miniparrot directory\n";

    foreach my $obj (@ARGV) {
        my $src = $obj;
        $src =~ s/\.o/\.c/g;
        copy_file($ <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6033	6203	
==>] =~ /_STR$/);
    next if ($entry->[4] =~ /_FLOAT$/);
    $macros .= <<"EOM";
        $entry->[4],
EOM
    }
    $macros .=<<"EOM";
        MMD_USER_FIRST
} parrot_mmd_fu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568803	569269	
==>"FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 650,
                  "ARGS" => [
                              "i",
                              "p",
                              "s"
                            ],
                  "BODY" <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	2930	3141	
==>or undefined idenfiers in #if
            # ? -Wbad-function-cast
            #   Warn whenever a function call is cast to a non-matching type
            # ? -Wmissing-declarations
            #   Warn if a glob <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	3231	3358	
==>croak('You have to call set_source before you can call get_token');
       
      DEBUG and print "$self 's source is filehandle <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	9114	9273	
==>to neg_three
    if $I1 == -4 goto neg_four
    if $I1 == -5 goto neg_five
    if $I1 == -6 goto neg_six
    if $I1 == -7 goto neg_seven

# XXX this right?
%% D <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	2603	2709	
==>while (<$file>) {
        next if defined($ignorePattern) && /$ignorePattern/;
        $sum += unpack("%32C <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13679	13810	
==>sing)"
		         : $items[0]->describe =~ /<autoscore/
				? "an <autoscore> (which acts like an unconditional <reject> during pars <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	28204	28305	
==>The extracted string, including the specified delimiters.
If the extraction fails an empty string is r <==
2	/Users/nnunley/parrot/lib/File/Which.pm	1355	1477	
==>$alias (@aliases) {
            # This has not been tested!!
            # PPT which says MPW-Perl cannot resolve `Alias $a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570588	571049	
==>"FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 652,
                  "ARGS" => [
                              "i",
                              "p",
                              "k"
                            ],
                  " <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	3782	3982	
==>on.
# By default, all calls are propagated to the subexpression.
package Regex::Ops::Tree::_onearg;
sub minlen { my ($op) = @_; $op->{args}->[0]->minlen() }
sub maxlen { my ($op) = @_; $op->{args}->[0] <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	5897	6084	
==>1 ) {
            $val = $field->[0];
            if ( defined $num_key ) {
                my $incr = new IncrOp( $parser,
                    'result' => $num_key,
                ) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18628	18733	
==>ren) {
        while (1) {
          push @args, Jako::Construct::Expression::Value->new($block, $self->re <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19654	19759	
==>ren) {
        while (1) {
          push @args, Jako::Construct::Expression::Value->new($block, $self->re <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10042	10152	
==>S}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Pop state $$stack[-1][0].\n";

			pop <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9594	9699	
==>S}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Pop state $$stack[-1][0].\n";

			pop <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	28106	28277	
==>ate($node->{children}[1]);
  $self->_add_inst('',           'gt', [$return,0,"DONE_$label"]);
  my $temp = $self->_constant(-1);
  $self->_add_inst('',           'mul',[$re <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45826	45955	
==>s*<error(\??):';
my $UNCOMMITPROD	= $PROD.'\s*<uncommit';
my $ERRORPROD		= $PROD.'\s*<error';
my $LONECOLON		= '\G\s*:';
my $OTHER <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27691	27845	
==>ser,
        'arg1' => $l_continue,
    );
    foreach my $op ( @{$block} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{res <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29657	29820	
==>sub body
{
    my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    my $n = $self->{has_method}{$meth};
    return $self->SUPER::body($s <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	5564	5767	
==>devel]' :
        m[^runtime/]      ? '[library]' :
        m[^tools/docs/]   ? '[devel]' :
        m[^tools/dev/]    ? '[devel]' :
        '[]';
    }
    printf $MANI "%- 49s %s\n", $File::Find::name, $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	98900	99143	
==>er, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bno <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103344	103587	
==>er, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bno <==
2	/Users/nnunley/parrot/tools/dev/pbc_header.pl	791	894	
==>ompat_file = 'PBC_COMPAT';
    open IN, $compat_file or die "Can't read $compat_file";
    my @lines = < <==
2	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	721	816	
==>ompat_file = 'PBC_COMPAT';
open IN, $compat_file or die "Can't read $compat_file";
my @lines = < <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131401	131732	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":ba <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132256	132587	
==>+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":ba <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	466900	467210	
==>er, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "div",
                  "FLAGS" => ":base_core",
                  "AR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	933368	933612	
==>er, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "down <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	42528	42734	
==>stack, $treelet->[$i]; # recurse
        next;
      }
      
      DEBUG > 1 and print "Ogling E node ", pretty($treelet->[$i]), "\n";

      # bitch if it's empty
      if(  @{$treelet->[$i]} == 2
       o <==
2	/Users/nnunley/parrot/config/init/miniparrot.pm	216	326	
==>PTION

Modifies settings to match miniparrot (ANSI C Parrot)'s needs.  This step
primarily  overwrites a lot of <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	1700	1810	
==>now why, but this is necessary.
    
    my $errors = 0;
    local $SIG{__WARN__} = sub { $errors++; $all_error <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	1797	1920	
==><footer($navigation, $resources)>

Returns the page footer.

C<$navigation> is currently unused.

C<$resources> should be th <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	5531	5642	
==>n is working correctly.  The same
checksum can also be calculated in OO style:

    use Digest::MD5;

    $md5 = <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	32791	32905	
==>ding {
    my $self = shift;

    $self->_sanity_check();

    # Don't bother with an ending if this is a forked co <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	4356	4470	
==>.=qq{\tnoop  # No ?\n};
		} elsif ($syms[CURR] eq ";") {
			$promptcode.=qq{\tprint "?"\n};
		} else {
			die "Synt <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	12096	12211	
==>n smoke is easy,
  </p>
    
  <pre class="indent2">$ make smoke
</pre>
    
  <p>
    should suffice. To test the l <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	29110	29208	
==>Quoting perlpodspec:

# In parsing an L<...> code, Pod parsers must distinguish at least four
# att <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582709	583199	
==>asses",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 664,
                  "ARGS" => [
                              "p",
                              "sc",
                              "sc"
                            ],
                  "BODY" => "#line 289 \"src/ops/object.ops\"\n <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	7407	7532	
==>the specified name in the directory.

=cut

sub path_for_file_with_name
{
    my $self = shift;
    my $name = shift || return <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	6674	6949	
==>nitions in @$definitions
 *
 * Any changes made here will be lost!
 *
 */

/* nci.c
 *  Copyright (C) 2001-2005, The Perl Foundation.
 *  SVN Info
 *     \$Id\$
 *  Overview:
 *     Native Call Interface routines. The code needed to build a
 *     parrot to C call frame is in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449360	449550	
==>\@1}}->vtable->i_absolute(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	1752	1905	
==>');           }
sub is_close_brace   { return shift->is('close-brace');   }
sub is_close_bracket { return shift->is('close-bracket'); }
sub is_close_paren <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492071	492383	
==>er, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mod",
                  "FLAGS" => ":base_core",
                  "ARGD <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	18975	19120	
==>are
{
    my ($l, $r) = @_;
    my $cmp = temp('I');
    if ($l && $l->[1]) {
	$l = $l->[1];
    }
    else {
	$l = 'P5';
    }
    push @stack, [ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	22060	22194	
==>for blame transfer
Mark Fowler <mark@twoshortplanks.com>

=cut

sub diag {
    my($self, @msgs) = @_;
    return unless @msgs;

    # P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	251462	251736	
==>er, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "not",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510328	510595	
==>er, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FL <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13360	13465	
==>pect: 99, 1, "user-type first"
type first
	foo as integer
	bar as string
end type
type second
	other as fi <==
2	/Users/nnunley/parrot/Configure.pl	9481	9624	
==>en_t
    auto::env
    auto::aio
    auto::gmp
    auto::readline
    auto::gdbm
    auto::snprintf
    auto::perldoc
    auto::python
    auto: <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	7038	7164	
==>while(@stack and $stack[-1]->[0] ne "(");
			pop @stack;
			next;
		}

		if (	$type eq "STRING" or
			not precedence($sym, exis <==
2	/Users/nnunley/parrot/tools/util/pirtidy.pl	559	670	
==>fh>) {
      $formatter->add_pir( $line );
    }

    my $output = $formatter->get_formatted();
    print {$ofh} <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	5343	5475	
==>dir($options{buildprefix}, $dest)
      if $options{buildprefix};

    $directories{dirname($dest)} = 1;
    push(@files, [ $src => $ <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	10350	10634	
==>ne-height: 1.3em;
      font-size:   95%;
    }

    h1, h2 {
      background-color: #313052;
      color:            white;
      padding:          10px;
    }

    th       { text-align: left; }
    .indent0 { padding-top:  30px; border-bottom: 2px solid #313052; }
    .indent1 { p <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	58721	58952	
==>1', 1,
sub
#line 537 "Lua\lua51.yp"
{
            [
                BuildParam( $_[0], $_[1] ),
            ];
        }
	],
	[#Rule 102
		 'parlist', 3,
sub
#line 546 "Lua\lua51.yp"
{
            [
                @{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22448	22579	
==>e it's contentful!
      last;

    } elsif ($pattern =~ m{<head(\d)>(.+)</head\d>$}
      and !( $1 eq '1' and $2 eq 'NAME' )
    ) <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	8713	8819	
==>f ($this->[1] eq "BARE") {
			$this->[0]=changename($this->[0]);
		}

		push(@expr, $foo[$t]);
		
		# Funct <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	2315	2446	
==>reter, as it declares a variable
   and has some code.

   PARROT_CALLIN_END(interpreter) will put the stack anchor back to
   the w <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	865767	866187	
==>er, {{\@1}});\n   {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unpin",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	708633	708875	
==>er, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "un <==
2	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	1249	1371	
==>"$output was built from different version of $input; remaking\n"
          if $Verbose;
        $up_to_date = 0;
        la <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3758	3875	
==>is;
}

=item C<pgeglob_like($target, $pattern, $expected, $description, @todo)>

Runs the target string against the Pe <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5542	5649	
==>eno=$$stack[-1][0];
        $actions=$$states[$stateno];

#DBG>	print STDERR ('-' x 40),"\n";
#DBG>		$de <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5275	5378	
==>eno=$$stack[-1][0];
        $actions=$$states[$stateno];

#DBG>	print STDERR ('-' x 40),"\n";
#DBG>		$de <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11238	11332	
==>t"]
${DEST0} = concat ${STEMP0}
inc stack_depth
${STEMP0} = stack_depth
${DEST0} = concat ${STE <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8424	8518	
==>t"]
${DEST0} = concat ${STEMP0}
inc stack_depth
${STEMP0} = stack_depth
${DEST0} = concat ${STE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	230712	231131	
==>re",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 269,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ], <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33166	33342	
==>ue of $expected_value\n";
            $self->whine(
              $para->[1]{'start_line'},
              "You have '=item " . $para->[1]{'number'} .
              "' instead of <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122103	122331	
==>igned.\n   */\n  LVALUE_CAST(UINTVAL, {{\@1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123015	123243	
==>igned.\n   */\n  LVALUE_CAST(UINTVAL, {{\@1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596750	597097	
==>i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 676,
                  "ARGS" => [
                              "p",
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 337 \"src/ops/object.ops\"\n  {{\@1}} = <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	3226	3382	
==>");
		fetch;
		goto MAIN;
	}
	if ($cur eq ":") {
		append;
		emit("COMP");
		fetch;
		goto MAIN;
	}
	if ($cur eq "") { goto END };
	die "unknown: $cur at sou <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19942	20170	
==>tree> was specified,
                                          so any production not ending
                                          in an explicit action has
                                          some parse-tree building co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	142170	142657	
==>AGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 174,
                  "ARGS" => [
                              "n",
                              "nc",
                              "ic"
                            ],
                  "BODY" => "#line 77 \"src/ops/ <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5401	5552	
==>ses */
    "",     /* class */
    "",     /* mro */

    /* Vtable Functions */
EOM
    for my $entry (@{$vtable}) {
    next if ($entry->[4] =~ /MMD_/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	33128	33508	
==>=> "#line 622 \"src/ops/core.ops\"\n  {{\@1}} = PTR2OPCODE_T(CUR_OPCODE + {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set_addr",
                  "FLAGS <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	8589	8736	
==>ame,
      link          => BASEHTTPDIR . $name, 
    };
  return ();
}

sub runcore2human {
  my %runcore = (
	  goto => "computed goto",
	  jit => <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15446	15557	
==>rint i,
next i
print
for i = 10 to 3 step -1
	print i
next i
print

' For loops.  3..6 nested in 1..3
function f <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	11824	11964	
==>de.org/">Parrot</a> smoke reports. These smokes are
    automatically generated and show how various runcores are functioning across
    a va <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	8487	8722	
==>'class'} ne 'calling') {
		die "typeinfo only valid for rules of class op, calling or load in " . 
		    "$rule->{'name'}\n";
	} elsif (!$has_typeinfo && ($rule->{'class'} eq 'op' ||
	         $rule->{'class'} eq 'load' || $rule->{'clas <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	2824	2991	
==>.get_from_HLL(compiler, '_tcl', 'compile_dispatch')
        
  .local int argc
  .local string pir
  pir = ''
  argc = elements argv
END_PIR
    
    return $code;
}

s <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12586	12759	
==>ckleftmost($)
{
	my @items = @{$_[0]->{"items"}};
	if (@items==1 && ref($items[0]) =~ /\AParse::RecDescent::Error/
	    && $items[0]->{commitonly} )
	{
		Parse::RecDescent::_ <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	9924	10106	
==>ex = 0;

    foreach my $op ($ops->ops) {
        my $type       = sprintf("PARROT_%s_OP", uc $op->type);
        my $name       = $op->name;
        $names{$name} = 1;
        my $fu <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	14248	14351	
==>selects[-1]->{incase}=$incase+1;
		return;
	}

	my $lambda=<<GL;
	
	P0= P10[I25]
	P1= P0["SELECTS"]
	P5= <==
2	/Users/nnunley/parrot/tools/docs/write_docs.pl	241	334	
==>/docs/write_docs.pl [--silent] [--delete]

=head1 DESCRIPTION

This script writes the HTML doc <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16493	16593	
==>free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See htt <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1707	1807	
==>free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See htt <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936290	936535	
==>@1}} = string_titlecase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937067	937312	
==>@1}} = string_titlecase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
2	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	543	724	
==>ted;

my %request = (upload => 1, version => VERSION, smokes => []);

{
  my $file = shift @ARGV;
  debug "Reading smoke \"$file\" to upload... ";

  open my $fh, "<", $file or die " <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	7316	7603	
==>$type ) . ' ' . $name;
               push @args, $name;
            };
        }

        next if $@;

        my $signature = join( ', ', @sig  );
        my $arguments = join( ', ', @args );

        my $ret_type  = find_type( $return_type );

        $protos .= sprintf "extern %s Par <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8533	8706	
==>ter
    if value_at == op2 goto got_it
    inc pos
    goto loop_begin
got_it:
    inc pos
    push result, pos
    .return (result)
no_gots:
    push result, not_there
    . <==
2	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	1356	1467	
==>f->{builder}->diag( $diag ) if $diag;
  
  return Parrot::Test::slurp_file($out_f);
}


=head2 output_is

This g <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	6862	6952	
==>ray;
  return;
}

#------------------------------------------------------------------------ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	8401	8491	
==>ray;
  return;
}

#------------------------------------------------------------------------ <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2224	2325	
==>fn = $self->get_out_fn( $count );
        my @test_prog   = $self->get_test_prog( $path_to_parrot, $pa <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	7619	7703	
==>_jit_vtable_1r223_op Parrot_jit_normal_op
#define Parrot_jit_vtable_1r332_op Parrot_j <==
2	/Users/nnunley/parrot/lib/Test/More.pm	2941	3058	
==>any tests your script is going to run to protect against premature
failure.

The preferred way to do this is to declar <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	10355	10550	
==>iler errors
        my $arg_types  = "{ " . join(", ", scalar $op->arg_types
            ? map { sprintf("PARROT_ARG_%s", uc $_) } $op->arg_types
            : 0
        ) . " }";
        my $arg_ <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2380	2489	
==>arrot/src/pmc' . $PATHQUOTE . " " .
        $source;
};

sub partial_link_cmd {
    my ($target, $libs, $sourc <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	2175	2284	
==>arrot/src/pmc' . $PATHQUOTE . " " .
        $source;
};

sub partial_link_cmd {
    my ($target, $libs, $sourc <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	1412	1525	
==>en an expression (in this case C<$foo eq $bar>).  If it's
true, the test passed.  If it's false, it didn't.  That' <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2465	2569	
==>n};
				foreach(@saves) {
					$edit.=qq{\t_GLOBALS["$_"]=$_\n};
				}
				$edit.=qq{\tstore_global "COMM <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	575	664	
==>ibution;

use Parrot::Docs::Section::Info;
use Parrot::Docs::Section::Docs;
use Parrot::Do <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	1723	1874	
==>my $offset=0;
    my $op_code;
    my $op;
    my %leaders;
    my @pc_list;
    my @blocks;
    my %opcodes;

    print <<END_C;
#include "parrot/parro <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	39511	39670	
==>e, suppose the start tag "/para" introduces a paragraph, which then
continues until the next "/endpara" tag or until another "/para" tag is
encountered:

	$text <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1097330	1097570	
==>ew_string(interpreter, tmp);\n        max = VTABLE_elements(interpreter, ns);\n        for (i = 2; i < max; i++)\n        {\n            tmp = VTABLE_get_string_keyed_int(interpreter, ns, i);\n            key = key_new_string(interpreter, tm <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	26826	27065	
==>rot_new_closure(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	2091	2215	
==>4_t => 'short');
    } elsif ($results{intsize} == 4) {
        $conf->data->set(int4_t => 'int');
    } elsif ($results{long <==
2	/Users/nnunley/parrot/lib/Test/More.pm	15386	15510	
==>s set up right");

which would produce:

    not ok 42 - There's a foo user
    #     Failed test (foo.t at line 52)
    # Si <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835690	835777	
==>"#line 215 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836443	836530	
==>"#line 215 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)-> <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8376	8504	
==>$(15);"More"
print "Hello","Again",d
dim c$(1)
for i = 1 to 20 : read c$(i) : next
print
for i = 1 to 20 step 4
  print c$(i);tab <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21240	21368	
==>$(15);"More"
print "Hello","Again",d
dim c$(1)
for i = 1 to 20 : read c$(i) : next
print
for i = 1 to 20 step 4
  print c$(i);tab <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	13444	13568	
==>_;
    my $tos = pop @stack;
    print <<"EOC";
	print_item $tos->[1] $cmt
EOC
}

sub PRINT_NEWLINE
{
    my ($n, $c, $cmt) = <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	4716	4887	
==>bute="SpChar" context="#stay" />
          <RegExpr attribute="String Interp" context="#pop" String="&quot;" />
      </context>

    </contexts>

END

print <<END;
    <it <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1767	1884	
==>my $x (@_) {
    # Escape things very cautiously:
    $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1870	1987	
==>my $x (@_) {
    # Escape things very cautiously:
    $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1221	1339	
==>ou may find
some other use for it.

This is a subclass of L<Pod::Simple> and inherits all its methods.

=head1 SEE ALSO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296736	297005	
==>E" => "inline",
                  "CODE" => 345,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 970 \"src/ops/cmp.ops <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	6293	6479	
==>er, 0);
/*
    run_compiled(interpreter, (opcode_t *)program_code, (opcode_t *)program_code);
    */
    exit(0);
}

static opcode_t* run_compiled(Interp *interpreter, opcode_t *cur_opcod <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	22898	23056	
==>e 44
		 'classpiece', 1,
sub
#line 181 "lib/Regex/Grammar.y"
{ return $_[1]; }
	]
],
                                  @_);
    bless($self,$class);
}

#line 1 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	824	946	
==>r');

  my $self = bless {
    BLOCK => $block,
    LEFT  => $left,
    RIGHT => $right
  }, $class;

  $block->push_conten <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	1854	2050	
==>ink
  ),
  
  '/item-bullet' => "</li><p$Lame></p>\n",
  '/item-number' => "</li><p$Lame></p>\n",
  '/item-text'   => "</a></dt><p$Lame></p>\n",
  'Para_item'    => "\n<dd>",
  '/Para_item'   => "< <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	11668	11784	
==>(/,/,$variant);
        my $op = Parrot::Op->new($code++, $type, $short_name,
            [ @fixedargs ], [ @$argdirs <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	11226	11330	
==>cept the code $new_code<...>.\n";
  }
  
  return;
}


#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672969	673191	
==>\@2}}->vtable->pop_integer(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16056	16168	
==>f(!defined wantarray) { # void context: alter in-place!
    for(@_) {
      s/([F\x00-\x1F\\\{\}\x7F-\xFF])/$Esca <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946583	946845	
==>> "find_charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947484	947746	
==>> "find_charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	34	135	
==>l Foundation.
# $Id: /parrot/lib/Parrot/IO/Path.pm 19602 2006-05-30T13:40:58.862833Z coke  $

=head1 N <==
2	/Users/nnunley/parrot/config/auto/msvc.pm	2082	2226	
==>ATE. See online help
        # for details.
        $conf->data->add(" ", "ccflags", "-D_CRT_SECURE_NO_DEPRECATE");
    }

    return $self;
}

1 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20841	20956	
==>(5),
print lot$(2),
print narf.first,
print poit(4).first

' ADD bug, Return OK
function foo$
	foo$="Return OK"
	a$= <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	6850	7022	
==><a name=\"", esc($name), "\"\n>";
          DEBUG and print "Linearized ", scalar(@to_unget),
           " tokens as \"$name\".\n";
        } else {
          print $fh "<a\ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37479	37576	
==>"} . '})
					if defined $::RD_TRACE;').'
		$Parse::RecDescent::lastexpected = ' . ($rule->hasleft <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39882	39979	
==>"} . '})
					if defined $::RD_TRACE;').'
		$Parse::RecDescent::lastexpected = ' . ($rule->hasleft <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	46999	47104	
==>OUT{IO});
  
  if(ref($source || '') eq 'SCALAR') {
    $new->parse_string_document( $$source );
  } elsif <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443576	443671	
==>DY" => "#line 114 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444591	444686	
==>DY" => "#line 114 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\ <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	6187	6329	
==>ib";
if (! -d $inc_dir) {
    mkdir($inc_dir, 0755) or die "ops2pm.pl: Could not mkdir $inc_dir: $!\n";
}
open OUT, ">$inc_f" or die "Can't wri <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3415	3578	
==>elf->{STACK}[-1][0]]{ACTIONS}}
}

sub YYLexer {
    my($self)=shift;

	$$self{LEX};
}


#################
# Private stuff #
#################


sub _ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3243	3391	
==>elf->{STACK}[-1][0]]{ACTIONS}}
}

sub YYLexer {
    my($self)=shift;

	$$self{LEX};
}


#################
# Private stuff #
#################


sub _ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	3140	3388	
==>ompiler) = @_;

  confess "No compiler!" unless $compiler;

  my $type  = $self->type->imcc;
  my $name  = $self->name;

  if ($self->is_global) {
    my $pmc_type = $self->type->imcc_pmc;

    my $reg = $compiler->temp_pmc();

    $compiler->emit(" <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	25652	25769	
==>d->[0],
        'result' => $l_next,
    );
    push @opcodes, @{$then};
    push @opcodes, new BranchOp( $parser, <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4469	4579	
==>num/g;
		$push_num++;
	}

	# Return generated code.
	return $pir;
}

sub post_op($$) {
	# Nothing to do.
	retur <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2885	2995	
==>num/g;
		$push_num++;
	}

	# Return generated code.
	return $pir;
}

sub post_op($$) {
	# Nothing to do.
	retur <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	5472	5803	
==>d_out         => '-e',
            cc_ldflags     => '',
            ld_debug       => '-v',
            ld_share_flags => '-WD',
            ld_load_flags  => '-WD',
            libs           => 'import32.lib cw32.lib',

            link      => ${cc},
            linkflags => '',

            ar       => 'tlib',
            ar_ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6638	6773	
==>rulesub(target)

            unless match goto match_fail
          match_success:
            print "matched"
            goto match_en <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7656	7790	
==>rulesub(target)
            unless match goto match_fail
          match_success:
            print "matched"
            goto match_en <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	809	986	
==>> [ @args ],

    DEBUG => 1,
    LINE  => $ident->line,
    FILE  => $ident->file
  }, $class;

  $block->push_content($self);

  return $self;
}

sub name { return shift->{NAME <==
2	/Users/nnunley/parrot/languages/regex/regex.pl	1862	1994	
==>parse' || $operation eq 'render') {
    print $_->render(), "\n" foreach (@$trees);
    exit;
} elsif ($operation eq 'dump') {
    pr <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	516	708	
==>self->generate_h($conf);
    $self->generate_c($conf);
    $self->generate_pm($conf);

    return $self;
}

sub generate_h
{
    my ($self, $conf) = @_;

    my $file = "include/parrot/core_pmc <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	34749	34895	
==>!

          next;
        }
        if($it =~ m/^[^\/\|,\$\%\@\ \"\<\>\:\#\&\*\{\}\[\]\(\)]+(\:\:[^\/\|,\$\%\@\ \"\<\>\:\#\&\*\{\}\[\]\(\)]+)*$/s) <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4650	4772	
==>y $self = shift;
	my $pops = shift;
	my $register_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3066	3188	
==>y $self = shift;
	my $pops = shift;
	my $register_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730564	730921	
==>" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 124 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	11984	12154	
==>sh @{$temps_ref}, "double t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = (double)GET_NCI_N($reg_num);";
        return "t_$temp_num";
    } <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	1107	1223	
==>f->$method(@{ $op->{args} });
}

sub lookup_var {
    my ($self, $var, $ctx) = @_;
    return $ctx->{$var} || $var;
} <==
2	/Users/nnunley/parrot/lib/Test/More.pm	27897	28004	
==>at) );

C<is_deeply()> can do that better and with diagnostics.  

    is_deeply( \@this, \@that );

They ma <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1090	1229	
==>MPATIBLE = '0.07';
$FILENAME=__FILE__;

use Carp;

#Known parameters, all starting with YY (leading YY will be discarded)
my(%params)= <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1053	1186	
==>MPATIBLE = '0.07';
$FILENAME=__FILE__;

use Carp;

#Known parameters, all starting with YY (leading YY will be discarded)
my(%params)= <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	7301	7604	
==>d+)		# 10 duration
               --(\d+)		# 11	total
                -(\d+)		# 12	ok
                -(\d+)		# 13	failed
                -(\d+)		# 14	todo
                -(\d+)		# 15	skipped
                -(\d+)		# 16	unexpected
               --([a-f0-9]+)	# 17    harness_args
               --([a- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	816411	816629	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "clearn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" = <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	6165	6321	
==>LINE\(([^)]+)\):(.*)/s) {
                next if $conf->data->get($1);
                $line = $2;
            }
        }

        # interoplate @foo@ valu <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	4597	4760	
==>Executable
files, and F<*.dump> files are assumed not to contain POD and therefore
not checked.

Note that the results are cached and the POD will only be rechecked <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	69338	69533	
==>> "",
                  "ARGDIRS" => [],
                  "TYPE" => "function",
                  "CODE" => 92,
                  "ARGS" => [],
                  "BODY" => "#line 1082 \"src/ops/c <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	2413	2547	
==>put' |");

    local $/;
    my $actual_output = <$TEST>;
    close $TEST;
    Test::More::is($actual_output, $output); 

    return;
} <==
2	/Users/nnunley/parrot/editor/ops2vim.pl	88	208	
==>efix = 'syn keyword pirOp';

my %seen;

## make sure files have been globbed on non-globbing OSes
## and make sure at lea <==
2	/Users/nnunley/parrot/languages/scheme/Scheme.pm	9	95	
==>arrot/languages/scheme/Scheme.pm 13993 2005-11-29T22:06:21.880912Z bernhard  $

package <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	13194	13427	
==>rt, $end) = @$val;
        $end = $rx_pos if $key eq '0';
        if (defined($start) && defined($end) && $start != -2 && $end != -2) {
            $MATCH{$key} = substr($rx_match{'!INPUT'}, $start, $end - $start);
        }
    } els <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2628	2785	
==>r seeing exactly what events you
get out of some Pod that you feed in.

This is a subclass of L<Pod::Simple> and inherits all its methods.

=head1 SEE ALSO

L <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	3782	3915	
==>ntext="#stay" String="\\\$[INSP]\\d+" />
          <RegExpr attribute="String" context="string" String="'" />
          <RegExpr attri <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600109	600214	
==>_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601185	601290	
==>_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(interpreter, {{\@2}});\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10470	10609	
==>ndent'} -= pop @indent_stack;
        pop @stack;
      } elsif( $tagname eq 'Verbatim' or $tagname eq 'VerbatimFormatted') {
        --$sel <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1494	1630	
==>ERR "pbcc: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
        return "return (0);"
    }
    else
    {
        return "if ((opc <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2019	2154	
==>ERR "pbcc: map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
        return "return (0);"
    }
    else
    {
  	    return "if ((opc <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4511	4619	
==>ted code.
	return $pir;
}

sub post_op($$) {
	# Nothing to do.
	return "";
}

# Pre and post branch operation <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2927	3035	
==>ted code.
	return $pir;
}

sub post_op($$) {
	# Nothing to do.
	return "";
}

# Pre and post branch operation <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4077	4191	
==><'PIR';
# Increment stack depth.
inc stack_depth

# Get type (so we can find register type).
${PTEMP0} = ${DTYPES}[ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2493	2607	
==><'PIR';
# Increment stack depth.
inc stack_depth

# Get type (so we can find register type).
${PTEMP0} = ${DTYPES}[ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	17123	17371	
==>xtref;
			pos $$textref = $startpos;
			return;
		}
		$modpos= pos($$textref);
		$rd1pos = $modpos-1;

		if ($initial eq '/' || $initial eq '?') 
		{
			$$textref =~ m/\G$mods{none}/gc
		}

		my $endpos = pos($$textref);
		return (
			$startpos,	$op <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	506	623	
==>snt like) ) {
    no strict 'refs';

    *{"Scheme::Test::output_$meth"} = sub ($$;$) {
        my( $lang_code, $outpu <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	7706	7849	
==>= $self->{fh};
        if ( exists $op->{op} ) {
            print {$FH}
                "  unless $op->{arg1}->{symbol} $op->{op} $op->{arg2 <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	6251	6372	
==>'~$Test::num_of_tests_run~' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') {
            $context = $ <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	685	804	
==>o a a TAP-style
protocol that can then use Test::Harness to run and report results.

=head1 SYNOPSIS

  tcl-test.pl [-c] <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	15937	16122	
==>b BINARY_ADD
{
    my ($n, $c, $cmt) = @_;
    binary('+', $cmt);
}

sub BINARY_SUBTRACT
{
    my ($n, $c, $cmt) = @_;
    binary('-', $cmt);
}

sub BINARY_MODULO
{
    my ($n, $c, $cmt) <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	1623	1743	
==>or current stack to register mapper\n";
}

# Pre and post store operation hooks.
sub pre_store {
	die "pre_store not impl <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	3269	3430	
==>$name} || die "Requested unallocated temporary!";
}

######################## Default rewrite rules #######################

sub rewrite_terminate {
    my ($self <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	2322	2422	
==>ompare files.

Any lines matching the regular expression specified by C<$ignorePattern> are
not inclu <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	22324	22427	
==>'charclass', 1,
sub
#line 167 "lib/Regex/Grammar.y"
{ return [ 'neg', [] ]; }
	],
	[#Rule 39
		 'classpi <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	33015	33212	
==>Test::Simple" 
    # doesn't puke.
    if( ($self->{Original_Pid} != $$) or
	(!$self->{Have_Plan} && !$self->{Test_Died}) )
    {
	_my_exit($?);
	return;
    }

    # Figure out if we passed or fail <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6479	6571	
==>abel_defined($syms[CURR]);
		push @{$code{$seg}->{code}}, "$labels{$syms[CURR]}:   # For user <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8759	8851	
==>abel_defined($syms[CURR]);
		push @{$code{$seg}->{code}}, "$labels{$syms[CURR]}:   # For user <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	6887	7066	
==>efine JIT_EMIT $jit_emit_n

/* Disable "truncation from 'const int' to 'char'" warning. */
#if defined (_MSC_VER)
#pragma warning(disable: 4305)
#endif

/*
 *define default jit_fun <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	10040	10142	
==>_dir_8dot3{$dirname}{$filename_8dot3} ($filename_8dot3)");
        }
        $files_in_dir_8dot3{$dirna <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	7322	7455	
==>in!"
     if exists $Known_directives{$d};
    delete $this->{'accept_directives'}{$d};
    DEBUG > 2 and print "OK, won't accept \"=$ <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	4163	4308	
==>defined $Obj;
die "$0: '$Obj': No such file\n" unless -f $Obj;

my %ParrotAPI;

$| = 1;

my @H = qw(include/parrot/embed.h include/parrot/extend.h <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1601	1715	
==>FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = $op->{op} $op->{arg1}->{symbol}\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710786	710882	
==>rintf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711620	711716	
==>rintf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}} <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	14415	14547	
==>optype$retcount" ];
			$retcount++;
		}
	}

	if (@work) {
		$_=pop @work;
		$result=pushthing(\@code, \$optype, @$_);
	}

	return( $r <==
2	/Users/nnunley/parrot/Configure.pl	123	302	
==>oke  $

=head1 NAME

Configure.pl - Parrot's Configuration Script

=head1 SYNOPSIS

    % perl Configure.pl [options]

=head1 DESCRIPTION

This is Parrot's configuration script. It <==
2	/Users/nnunley/parrot/config/init/defaults.pm	621	732	
==>f, $conf) = @_;

    # We need a Glossary somewhere!
    $conf->data->set(
        debugging => $conf->options-> <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8014	8140	
==>t_popindex {
    my $self = shift;

    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7667	7793	
==>t_popindex {
    my $self = shift;

    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', @_);
    } <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2130	2351	
==>parrot} --no-gc languages/${pir_fn}",
            );
        }

        # This does not create byte code, but lua code
        my $parrotdir = dirname( $self->{parrot} );
        Parrot::Test::write_code_to_file( $co <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	19519	19630	
==>es.

=cut

sub gen_c {
    my ($include, @files) = @_;
    my %pmcs = map { $_, read_dump($include, $_) } @files <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	15864	16036	
==>_RSHIFT
{
    my ($n, $c, $cmt) = @_;
    binary_word('shr', $cmt);
}

sub BINARY_ADD
{
    my ($n, $c, $cmt) = @_;
    binary('+', $cmt);
}

sub BINARY_SUBTRACT
{
    my ($ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	14330	14429	
==>not implemented?";
			}
			push @work, [ "($op1->[0] $sym $op2->[0])", "RESULT", "\$$optype$retcount <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	10876	11091	
==>{DEBUG}) {
        push @ops, qq(print "Calling $name at \$rx_pos for ";);
        push @ops, qq(print \$rx_mode ? "MATCH" : "BACKTRACK", "\\n";);
        push @ops, qq(print "INPUT:\$rx_input\\n";);
        push @op <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	22392	22548	
==>XPORT, $func;
        no strict 'refs';

        *{$package.'::'.$func} = sub {
            my ($source, $expected, $desc) = @_;

            # $test_no will <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	4439	4638	
==>mbol}, $op->{arg1}\n";
        }
    }

    sub visitNewClosureOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{r <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	37864	37993	
==>ub PrepareMethod {
    my ($parser) = @_;
    $parser->YYData->{self} = BuildParam( $parser, 'self' );
}

sub BuildFunctionBo <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	13337	13594	
==>e's no point in linking to the file you are already in.
    return if $file == $self->{DOCS_FILE};
    
    return $self->href_path($self->{DOCS_FILE}->parent->relative_path($file));
}

=item C<do_end()>

Reimplements the C<Pod::Simple::HTML> method to add a <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	1118	1227	
==>re. Don't go
peeking inside -- you've as much access as bytecode does, but no more,
so we can provide backward <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	25382	25499	
==>= bc.read_tstring()\n    next_pc += 4\n";
			$arg_name = "I_ARG_$arg_num";
		}

        # jumptable
		elsif (/^jumptab <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	36400	36546	
==>my ( $parser, $idf ) = @_;
    my @opcodes1 = ();
    my @opcodes2 = ();
    my $defn;
    if ( $idf eq '...' ) {
        $defn = new defn( 'v <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182231	182473	
==>GS" => [
                              "i",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 278 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	9043	9153	
==>loat, $expfloat, $frac, $exp);
    $exp = qr/[eE][-+]?\d+/;
    $frac = qr/\.\d+/;
    $pointfloat = qr/(?:(?:\ <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	3608	3711	
==>text="#stay" />
END

print <<END;
          <RegExpr attribute="Register" context="#stay" String="[INSP] <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	13600	13733	
==>[0], $arg) .
						  $retcount++;
					}
				}
				if (@return_params) {
					push @code, sprintf ($calling_code, join(",",@return_par <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1123	1233	
==>ss ($pass) {
        my $file = Parrot::Test::slurp_file($out_f);
        $pass =$self->{builder}->is_eq( Parro <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1164	1274	
==>ss ($pass) {
        my $file = Parrot::Test::slurp_file($out_f);
        $pass =$self->{builder}->is_eq( Parro <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	257	353	
==>s.h>.

=cut

package gen::core_pmcs;

use strict;
use warnings;

use base qw(Parrot::Configure::S <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	14522	14703	
==>ngth = eh.get_try_length()
    if try_offset != pc goto NOT_TRY_START
    gen_pir = concat "push_eh LAB"
    handler_offset = eh.get_handler_offset()
    tmp = handler_offset
    gen <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1211	1435	
==>p') ) {
        my $tobool = pop @{$opcodes};
        my $new    = pop @{$opcodes};
        my $loc    = pop @{$opcodes};
        $defn = $opcodes->[-1]->{result};
    }
    return [ $defn, $opcodes ];
}

sub PushSco <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	230	372	
==>:Section;

=head1 DESCRIPTION

A documentation I<section> is an HTML page containing links to one or
more, grouped or ungrouped items.

C<Parro <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1127	1225	
==>structors

=over 4

=item * C<new()>

Basic constructor.

Accepts no arguments and returns a L<Parr <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	664	762	
==>structors

=over 4

=item * C<new()>

Basic constructor.

Accepts no arguments and returns a L<Parr <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	7860	8011	
==>*$//m or $line =~ s/a_$name/temp/;
            }
        }
        
        # $R
        $line =~ s/\$R\b/\$P%1/g;

        $code .= emit($line, 'loop_n <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	5797	5945	
==>ody = $self->body;

    $body .= sprintf("  {{+=%d}};\n", $self->size) if $self->type eq 'auto';

    return $body;
}

# Called from rewrite_body() t <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28608	28834	
==>);
    }
    $hout .= <<"EOH";

#endif

EOH
    $hout;
}

=item C<implements($method)>

True if this class generates code for the method C<$method>.

=cut

sub implements
{
    my ($self, $meth) = @_;

    return 0 unless exist <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	558	686	
==>p );

use Parrot::Docs::Item;
use Parrot::Docs::Directory;
use Parrot::Docs::HTMLPage;

=item C<root_section()>

Returns the root <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3983	4078	
==>y(4)
end function
function arrfunc(x())
	u=aftwo(x())
	arrfunc=55
end function
dim g(10)
g(5)=66 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15256	15351	
==>y(4)
end function
function arrfunc(x())
	u=aftwo(x())
	arrfunc=55
end function
dim g(10)
g(5)=66 <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	31675	31817	
==>ue, something
has gone horribly wrong.  It will die with the given $description and
a note to contact the author.

=cut

sub _whoa {
    my($ch <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	89	217	
==>rs qw(@ISA %Tagmap $Computerese $Lame $Linearization_Limit $VERSION);
@ISA = ('Pod::Simple::PullParser');
$VERSION = '2.02';

use <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	625440	625574	
==>SIG_ELEMS(sig);\n    sig_bits = SIG_ARRAY(sig);\n    for (i = 0; i < n_args; ++i) {\n        switch (sig_bits[i]) {\n            case P <==
2	/Users/nnunley/parrot/examples/benchmarks/addit.pl	116	214	
==>-30T13:32:26.641316Z coke  $

=head1 NAME

examples/benchmarks/addit.pl - Variable Argument Subrout <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	2085	2184	
==>print STDERR "precompiling grammar from file '$sourcefile'\n",
			     "to class $class in module fi <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	270	414	
==>:Languages;

=head1 DESCRIPTION

A documentation section describing Parrot's client languages.

=head2 Class Methods

=over

=cut

package Parrot <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	5438	5753	
==>YYData->{keyword}{$idf} ) {
        return ( $parser->YYData->{keyword}{$idf}, $idf );
    }
    return ( 'NAME', $idf );
}

sub _LongCommentLexer {
    my $parser = shift;
    my ($level) = @_;

    while (1) {
        $parser->YYData->{INPUT}
            or $parser->YYData->{INPUT} = readline $parser- <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4723	4823	
==>C<run_core_func_start()>

Returns the C code prior to the run core function.

=cut

sub run_core_func <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3011	3111	
==>C<run_core_func_start()>

Returns the C code prior to the run core function.

=cut

sub run_core_func <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	893	981	
==>ent is not!" if defined $ident and not UNIVERSAL::isa($ident, 'Jako::Construct::Expressio <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	921	1009	
==>ent is not!" if defined $ident and not UNIVERSAL::isa($ident, 'Jako::Construct::Expressio <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	918	1149	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@

sub parse_line { shift->parse_lines(@_) } # alias

# - - -  Turn back now!  Run away!  - - -

sub parse_lines {             # Usage: $parser->parse_lines(@lines)
  # an undef means end-of-stream
  my $sel <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	759	976	
==>lue);
  DEBUG and print "++ $_[1]\n";
  print $fh "<", $_[1];
  if($SORT_ATTRS) {
    foreach my $key (sort keys %{$_[2]}) {
      unless($key =~ m/^~/s) {
        next if $key eq 'start_line' and $_[0]{'hide_line_numb <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	355	540	
==>st->plan(@_);
}


=head1 NAME

Test::Simple - Basic utilities for writing tests.

=head1 SYNOPSIS

  use Test::Simple tests => 1;

  ok( $foo eq $bar, 'foo is bar' );


=head1 DESCRIPTIO <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4437	4548	
==>@ungrouped_pmcs = grep { ! exists $pmc_group->{$_} } @pmcs;
    partial_link($_, $pmc_libs->{$_}, [ $_ ] ) forea <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4541	4652	
==>@ungrouped_pmcs = grep { ! exists $pmc_group->{$_} } @pmcs;
    partial_link($_, $pmc_libs->{$_}, [ $_ ] ) forea <==
2	/Users/nnunley/parrot/languages/regex/test.pl	557	710	
==>) = @_;
    $status = 1 if ! defined $status;

    print $msg . "\n" if $msg;

    print <<"END";
Usage: $0 [-c|--compile] [--language=LANGUAGE] [--optimi <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9638	9747	
==>MP2}) = method_info_from_token(${ASSEMBLY}, ${ARG0})

# If it's a call to instantiate, need to knock off first <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7152	7261	
==>MP2}) = method_info_from_token(${ASSEMBLY}, ${ARG0})

# If it's a call to instantiate, need to knock off first <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	861	957	
==>onstruct::Block');
  confess "Ident is not!" if defined $ident and not UNIVERSAL::isa($ident, 'Ja <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	889	985	
==>onstruct::Block');
  confess "Ident is not!" if defined $ident and not UNIVERSAL::isa($ident, 'Ja <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	2726	2846	
==>$1;
    $type =~ s/\./\&046;/g;
    print "      <item>$type</item>\n";
    $types{$type} = 1;
}

print <<END;
    </list <==
2	/Users/nnunley/parrot/lib/Test/More.pm	9276	9378	
==>on.  It may be given as a
regex reference (i.e. C<qr//>) or (for better compatibility with older
perls) <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5138	5238	
==>n core C code for section after the address table.

=cut

sub run_core_after_addr_table
{
    my ($se <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1571	1661	
==>RNAL_ERROR("Type is not a Jako::Construct::Type instance!")
    unless UNIVERSAL::isa($type <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1419	1509	
==>RNAL_ERROR("Type is not a Jako::Construct::Type instance!")
    unless UNIVERSAL::isa($type <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	56590	56791	
==>d
parts are also blessed to identify them (the "anything else" is unblessed):

        @fields = extract_multiple($text,
                   [
                        { Delim => sub { extract_delimited($ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	3907	3999	
==>_2_pasm_is($code, $expected, $description)>

Compile the Parrot Intermediate Representation a <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1114	1314	
==>T => $pasm_f, STDERR => $pasm_f,
        );
        Parrot::Test::run_command( 
            "./parrot languages/$pasm_f @other",
            CD => '..', # $self->{relpath}, 
            STDOUT => $out_ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1205	1386	
==>T => $pasm_f, STDERR => $pasm_f,
        );
        Parrot::Test::run_command( 
            "./parrot languages/$pasm_f",
            CD => '..', # $self->{relpath}, 
            STD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	282603	282924	
==>NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 329,
                  "AR <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	6522	6622	
==>itself.

 Copyright 2000 Christian Lackas, Imperia Software Solutions
 Copyright 1998-1999 Gisle Aas. <==
2	/Users/nnunley/parrot/config/inter/libparrot.pm	17	133	
==>005, The Perl Foundation.
# $Id: /parrot/config/inter/libparrot.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=hea <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	3112	3234	
==>t the return type on the same line.
        $cmd =~ s/-psl/-npsl/g;	
    }
    foreach (sort keys %$typedefs) {
        $cm <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	633	743	
==>prefix;
  }
  else {
    $prefix = $self->peer ? $peer->prefix : $compiler->block_label($kind);
    $self->pref <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	613	723	
==>prefix;
  }
  else {
    $prefix = $self->peer ? $peer->prefix : $compiler->block_label($kind);
    $self->pref <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2347	2586	
==>Test::slurp_file($out_fn),
                       $output,
                       $desc
                                                  );
        unless ( $pass ) {
            my $diag = '';
            my $test_prog = join ' && ', @tes <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	2358	2584	
==>Test::slurp_file($out_fn),
                          $output,
                          $desc
                      );
           unless ( $pass ) {
               my $diag = '';
               my $test_prog = join ' && ', @tes <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	794	933	
==>stants:

BEGIN {
  if(defined &ASCII)    { }
  elsif(chr(65) eq 'A') { *ASCII = sub () {1}  }
  else                  { *ASCII = sub () {''} <==
2	/Users/nnunley/parrot/config/inter/libparrot.pm	1369	1540	
==>ibparrot => $parrot_is_shared         
            ? '$(LIBPARROT_SHARED)'      
            : '$(LIBPARROT_STATIC)',
    );                       

    $conf->data->s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664786	665111	
==>ME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 743,
                  "ARGS" => [
                              "p" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	2498	2597	
==>rt_element({ Name => 'module', Attributes => { name => $self->name } });
  $_->sax($handler) foreach <==
2	/Users/nnunley/parrot/config/gen/platform.pm	3031	3186	
==>e == 2;
            open IN_H, "< $_" or die "Can't open $_: $!";
            print PLATFORM_H <<"END_HERE";
/*
** $_
*/
#line 1 "$_"
END_HERE
            p <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5697	5792	
==>MP1}, ${PTEMP2}) = method_info_from_token(${ASSEMBLY}, ${ARG0})

# If there is a return type, ne <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7917	8012	
==>MP1}, ${PTEMP2}) = method_info_from_token(${ASSEMBLY}, ${ARG0})

# If there is a return type, ne <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	67153	67372	
==>a subrule match", $aftererror,$line,$code);
				my $desc;
				if ($name=~/\A_alternation_\d+_of_production_\d+_of_rule/)
					{ $desc = $self->{"rules"}{$name}->expected }
				$item = new Parse::RecDescent::Subrule($name <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	17973	18082	
==>ve a plan.");
    }

    lock($self->{Curr_Test});
    $self->{Curr_Test}++;

    $self->{Test_Results}[$self- <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	18838	18947	
==>ve a plan.");
    }

    lock($self->{Curr_Test});
    $self->{Curr_Test}++;

    $self->{Test_Results}[$self- <==
2	/Users/nnunley/parrot/lib/Test/More.pm	25083	25220	
==>ck %Refs_Seen);
my $DNE = bless [], 'Does::Not::Exist';
sub is_deeply {
    unless( @_ == 2 or @_ == 3 ) {
        my $msg = <<WARNING;
is <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	2999	3109	
==>ift;
    
    return $self->{SUFFIX} if exists $self->{SUFFIX};
    
    my ($suffix) = $self->name =~ /\.([^.] <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12755	12868	
==>sh @{$code{$seg}->{code}}, "\t_RESTORE(" . join(",",@args) . ")\n";
}


sub parse_exit {
	if ($syms[NEXT] eq "for" <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4064	4167	
==>{
		$pir .= <<'PIR';
# Increment stack depth.
inc stack_depth

# Get type (so we can find register type) <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2480	2583	
==>{
		$pir .= <<'PIR';
# Increment stack depth.
inc stack_depth

# Get type (so we can find register type) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1451	1554	
==>sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'op', Attributes => <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1445	1548	
==>sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'op', Attributes => <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3388	3498	
==>rint the last command". Which is harder.
        $body =~ s/^(\s*)([^\n]+)\s*\Z/$1puts [$2]/m;

        $tests{ <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4795	4905	
==>rint the last command". Which is harder.
        $body =~ s/^(\s*)([^\n]+)\s*\Z/$1puts [$2]/m;

        $tests{ <==
2	/Users/nnunley/parrot/config/auto/socklen_t.pm	55	144	
==>ot/config/auto/socklen_t.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4635	4765	
==>ot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot::OpTrans::Compiled>

=back

= <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	2847	3038	
==>-folding.


=head1 GUTS

Doing this:

  use Pod::Simple::Debug (5);  # or some integer

is basically equivalent to:

  BEGIN { sub Pod::Simple::DEBUG () {5} }  # or some integer
  use Pod::Sim <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	1173	1333	
==>nt a$,
next i
close #5
print

' Expect 5, 0, "Hello"
common i, a$
sub mysub
	print "In the sub\n"
	print i
	print j
	print a$
	print c$
end sub
j=2
i=5
a$="Hello <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	9003	9221	
==>onvert_arg(interpreter, st);
    Parrot_store_arg(interpreter, st);
}

static void
set_nci_S(Interp *interpreter, struct call_state *st, STRING *val)
{
    Parrot_init_ret_nci(interpreter, st, "S");
    UVal_str(st->val <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	82	182	
==>x::CodeGen';
use strict;

my $fail_label = Regex::Ops::Tree::mark('FAIL');

sub init_context {
    my <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	83	183	
==>x::CodeGen';
use strict;

my $fail_label = Regex::Ops::Tree::mark('FAIL');

sub init_context {
    my <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2543	2655	
==>ual argument (%s)!", ref $args[$i])
      unless defined $actual_arg_type;

    if ($formal_arg_type->name ne $ac <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2243	2355	
==>ual argument (%s)!", ref $args[$i])
      unless defined $actual_arg_type;

    if ($formal_arg_type->name ne $ac <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	4589	4700	
==>{ /* pobj_t */
    {{
      static_string_${line}_data,
      sizeof(static_string_${line}_data)
    }},
    (PO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149104	149210	
==>,
                  "BODY" => "#line 105 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150045	150151	
==>,
                  "BODY" => "#line 105 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	14783	14953	
==>sub addscore
{
	my ( $self, $code, $lookahead, $line ) = @_;
	$self->additem(Parse::RecDescent::Directive->new(
			      "local \$^W;
			       my \$thisscore = do { $code <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6464	6575	
==>C}_LOOP_EXIT
    dec i
    j = P_arg_0[i]
    ${ITEMP0} = ${NEXTPC} + j
    prop_type_state[${ITEMP0}] = ${STYPE <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4402	4513	
==>C}_LOOP_EXIT
    dec i
    j = P_arg_0[i]
    ${ITEMP0} = ${NEXTPC} + j
    prop_type_state[${ITEMP0}] = ${STYPE <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	291	382	
==>of the F<examples/mops/mops.pasm> example program,
for speed comparisons.

Calculates a valu <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	287	378	
==>of the F<examples/mops/mops.pasm> example program,
for speed comparisons.

Calculates a valu <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2591	2723	
==>e',
	'ChangeLog' => 'Project info',
	'Changes' => 'Project info',
	'CREDITS' => 'Project info',
	'DEVELOPING' => 'Project info',
	'ha <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4321	4438	
==>ub maxlen { 1 }
sub dfa_safe { 1 }
sub hasback { 1 }

# Sequences of regexes like RS
package Regex::Ops::Tree::seq;

s <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6774	6944	
==>s, including the end token.
    
    while ( 1 )
    {
        push @to_unget, $self->get_token;
        
        last if $to_unget[-1]->is_end
            and $to_unget[- <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	3116	3323	
==>f;
    } elsif(exists $self->{'source_fh'}) {
      my @lines;
      my $fh = $self->{'source_fh'}
       || Carp::croak('You have to call set_source before you can call get_token');
       
      DEBUG and p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397748	398222	
==>,
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 461,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 527 \"src/ops/io. <==
2	/Users/nnunley/parrot/tools/util/pirtidy.pl	1099	1228	
==>lms about converting your script to use a maximal amount of
syntactic sugar.

Inspired by perltidy.

=head1 EXAMPLES

 perl pirtid <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4860	4960	
==>,$error)
     = @$self{ 'RULES', 'STATES', 'LEX', 'ERROR' };
	my($errstatus,$nberror,$token,$value, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4620	4718	
==>,$error)
     = @$self{ 'RULES', 'STATES', 'LEX', 'ERROR' };
	my($errstatus,$nberror,$token,$value, <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9571	9693	
==>ile($path, $name);
    
    return $path;
}

=item C<relative_path_is_directory($path)>

Returns whether the specified rela <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	344	464	
==>) {
    $temp->{children} = [];
    $count++;
    while($tokens->[$count] ne ')') {
      my $expr;
      ($count, $expr) <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	2638	2745	
==>through a real API that takes care of synchronization, data
as such is not a good API unless it's constant). <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	588530	589062	
==>ct_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 669,
                  "ARGS" => [
                              "p",
                              "s",
                              "kc"
                            ],
                  "BODY" => "#line 314 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(int <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	507	623	
==>eate_c_include;
    exit;
};
$do_init and do {
    unlink $outfile;
    exit;
};

$file = shift @ARGV;
$file =~ s/\.c <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	1198	1329	
==>if $chr =~ /^[[:upper:]]$/;  # CCLASS_UPPERCASE
    $ret |= 0x0002 if $chr =~ /^[[:lower:]]$/;  # CCLASS_LOWERCASE
    $ret |= 0x000 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4902	5027	
==>lt);
	# FIXME
	eq $a1, $ot1, TRUE_${eqnum}
	set $result, 0.0
	branch NOT_${eqnum}
TRUE_${eqnum}: set $result, 1.0
NOT_${eqnum} <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	27837	27992	
==>lbacks @fallbacks.\n";
    }

  } else {
    DEBUG > 2 and print "Extensor has bad syntax.\n";
    $self->whine(
      $para->[1]{'start_line'},
      "Unkn <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714440	714594	
==>"
                            ],
                  "BODY" => "#line 75 \"src/ops/python.ops\"\n  STRING * const s = {{\@1}};\n  PMC * const io = PIO_STDOUT <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104084	1104172	
==>eter, NULL, NO_CLASS,\n\t\t\t\t\"Class '%Ss' not found\", class);\n\t{{\@1}} = pmc_new_in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105299	1105387	
==>eter, NULL, NO_CLASS,\n\t\t\t\t\"Class '%Ss' not found\", class);\n\t{{\@1}} = pmc_new_in <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	6479	6777	
==>and $parser->YYData->{lineno}++,
                    last;
            }

            s/^[ \r\t\f\013]+//;    # Whitespace
            s/^\n//
                and $parser->YYData->{lineno}++,
                last;

            s/^\-\-\[(=*)\[//       # LongComment
                and $par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861300	861606	
==>e",
                  "CODE" => 977,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 118 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exc <==
2	/Users/nnunley/parrot/examples/benchmarks/freeze.pl	733	848	
==>);
printf "  thaw time %.6f\n", $e-$s;

#$s = time();
#my $c = dclone \@a;
#$e = time();
#printf " clone time %.6f\n <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	306	426	
==>base this class on a hash.
sub new() {
	my $invocant = shift;
	return bless {}, $invocant;
}

# Pre-translation hook.
sub <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	214	334	
==>base this class on a hash.
sub new() {
	my $invocant = shift;
	return bless {}, $invocant;
}

# Pre-translation hook.
sub <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	44807	44931	
==>_END__

=head1 NAME

Scheme::Generator - The Scheme code generator

=head1 SYNOPSIS

  use Scheme:Generator;

  my @code = Sc <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37531	37637	
==>RecDescent::lastexpected = ' . ($rule->hasleftmost($self) ? 'q{}'
				: 'q{'.$self->describe.'}' ) . ';
		$ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39934	40040	
==>RecDescent::lastexpected = ' . ($rule->hasleftmost($self) ? 'q{}'
				: 'q{'.$self->describe.'}' ) . ';
		$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560807	560917	
==>->current_object = object;\n  interpreter->current_method = VTABLE_get_string(interpreter, method_pmc);\n  dest <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32156	32282	
==>,length($_tok)) = ""; 1; }
		)
		{
			'.($self->{"lookahead"} ? '$text = $_savetext;' : '').'
			if ($Parse::RecDescent::lastex <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048286	1048394	
==>ception(1, \"Tried to get null global.\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_global(interprete <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049210	1049318	
==>ception(1, \"Tried to get null global.\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_global(interprete <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	31013	31147	
==>eeds doing for 'text'
          } elsif($item_type eq 'number' or $item_type eq 'bullet') {
            die "Unknown item type $item_ty <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	4918	5103	
==>runstep($self, @step_params);
            } else {
                $ret = $step->runstep($self);
            }
        };
        if ($@) {
            carp "\nstep $step_name died durin <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	60210	60302	
==>ot necessarily where it occurred!)
Printing C<$@> directly produces the error message, with t <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1673	1790	
==>PIR

	# Return.
	return $pir;
}

# Pre and post stack operation (op class instructions) hooks.
sub pre_op($$) {
	my $s <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	444	554	
==>ce, %may_be_none);
$DIS = 'python mydis.py';
$DEFVAR = 'PerlInt';

getopts('dnD', \%opt);
$file = $ARGV[0];
$la <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062306	1062528	
==>86,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 246 \"src/ops/var.ops\"\n    PMC *ns_root = interprete <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8365	8474	
==>n STDERR, ">&OLDERR" or die "Can't restore  stderr" if $err;

    if ($verbose) {
        foreach ($out, $err) <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	15092	15325	
==>55
	},
	{#State 29
		DEFAULT => -80
	},
	{#State 30
		DEFAULT => -76
	},
	{#State 31
		ACTIONS => {
			":" => 42,
			"[" => 47,
			"(" => 48,
			"." => 49,
			'STRING' => 44,
			"{" => 38
		},
		DEFAULT => -57,
		GOT <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	14302	14413	
==>TDOUT|1)$/i
  ) {
    $self->output_fh( *STDOUT{IO} );
  } else {
    require Symbol;
    my $out_fh = Symbol::g <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	20160	20413	
==>ow: ", $i-1, ":[$treelet->[$i-1]]\n";
        --$i;
        next; 
        # since we just pulled the possibly last node out from under
        #  ourselves, we can't just redo()

      } elsif( ref $treelet->[$i] ) {
        DEBUG > 4 and print "  Enque <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	5873	6043	
==>}[0]  <=> $a->{timestamp}[0]
        } @{ $branches{$branch}{$cat} }
      ];
    }

    $branches{$branch} = [
      map {{
        catname => $_,
        smokes  => $bra <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	255	356	
==>6-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

use Carp;

package Jako::Constru <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4472	4630	
==>do {
                	s/^#DBG>//;
                	push(@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note th <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4249	4396	
==>do {
                	s/^#DBG>//;
                	push(@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note th <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	1143	1312	
==>arrot));
    my $path_to_tcl;
    if ($dir_count == 0) {
      $path_to_tcl = File::Spec->join('languages','tcl');
    } elsif ($dir_count == 1) {
      $path_to_tcl = 't <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	33896	34039	
==>fined $test_results->[$idx];
        }

        my $num_failed = grep !$_->{'ok'}, 
                              @{$test_results}[0..$self->{Ex <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	2171	2295	
==>locals = ($op->{rxlocals} ||= []);
        return (aop(comment => [ "save rxlocals for op" ]),
                map { aop('pus <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	21144	21327	
==>flag) goto R.back
#               goto lastback
#         next:
#
# R*? ->        pushindex
#               goto next
#        rfail: popint -> tmp or R.back
#               goto lastb <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39491	39623	
==>l},
        'type'   => 'Sub',
    );
    push @opcodes1, new NewClosureOp( $parser,
        'result' => $result,
        'arg1' <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3260	3368	
==>s, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    while (my ($group, $pmc <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3364	3472	
==>s, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    while (my ($group, $pmc <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22476	22588	
==>t(2);
  $self->_add_inst(''           ,'mod'   ,[$temp_0,$temp_0,$temp_1]);
  $self->_add_inst(''           ,'eq' <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22977	23089	
==>t(2);
  $self->_add_inst(''           ,'mod'   ,[$temp_0,$temp_0,$temp_1]);
  $self->_add_inst(''           ,'eq' <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2324	2509	
==>c, $todo, "eval was fatal: $!", :$depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use eval_ok()";
        &Test::ok.goto($result, $desc, :$todo, :$dep <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2792	2880	
==>ive_to_source($source))
	{
		$index_html .= $content->write_html($source, $target, $silen <==
2	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	1316	1441	
==>ubstr ($fingerprint, $i*2, 2), ",\n";
}
print "};\n";

print << "EOF";

int
PackFile_check_fingerprint (void *cursor)
{
    re <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2359	2457	
==>C code for the run
core function declaration. C<$base> is the name of the main ops file minus
the . <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	8898	9063	
==>hile (<SOURCE>) { $line++; } $line+=2;
close(SOURCE);
open(SOURCE, ">>$source") || die "Error appending to $source: $!\n";
unless ($nolines_flag) {
    my $source_esc <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	4445	4583	
==>PER::parse_lines(@lines);
      
    } elsif(exists $self->{'source_arrayref'}) {
      DEBUG and print "$self 's source is arrayref $self- <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11534	11656	
==>eop=0;
	my $optype="N";
	my $result="";
	foreach my $token (@stream) {
		my($sym,$type,$op)=@$token;
		#print "Dealing with <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4020	4125	
==>'linklibs') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs( <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4124	4229	
==>'linklibs') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs( <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	1895	2122	
==>fest();

exit 0;

###############################################################################

sub check_source {
    my ($file, $source) = @_;

    print "Checking $file..\n";
    trim_whitespace($file, $source);

    # The <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2992	3100	
==>OTPOS}} - 1;

		$index < 0
	and	-$index <= @{$$self{STACK}}
	and	return $$self{STACK}[$index][1];

	und <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2848	2950	
==>OTPOS}} - 1;

		$index < 0
	and	-$index <= @{$$self{STACK}}
	and	return $$self{STACK}[$index][1];

	und <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133862	134090	
==>ring_bitwise_xor(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134643	134871	
==>ring_bitwise_xor(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10490	10630	
==>BG>						 ".\n";

		push(@$stack, [ $$states[$$stack[-1][0]]{ACTIONS}{error}, undef ]);

    }

    #never reached
	croak("Error in dr <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10020	10153	
==>BG>						 ".\n";

		push(@$stack, [ $$states[$$stack[-1][0]]{ACTIONS}{error}, undef ]);

    }

    #never reached
	croak("Error in dr <==
2	/Users/nnunley/parrot/config/auto/perldoc.pm	846	1095	
==>, old version');
        } else {
            if (open FH, "< c99da7c4.tmp") {
                local $/;
                $a = <FH>;
                close FH;
                $version = 2;
                $self->set_result('yes');
            } else { <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	30396	30493	
==>ct a single-quote delimited string, the
following code is typically used:

	($remainder = $text) = <==
2	/Users/nnunley/parrot/config/gen/config_h.pm	976	1113	
==>rot/feature.h',
        commentType   => '/*',
        ignorePattern => 'PARROT_CONFIG_DATE',
        feature_file  => 1
    );

    my $h <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10199	10386	
==>./test.out', undef, $verbose);
    } else {
        _run_command(".${slash}test${exe}", './test.out', undef, $verbose);
    }

    my $output = _slurp('./test.out');

    return $output;
} <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	2928	3040	
==>f) = @_;
  my $return = $self->_save_1('P');

  $self->_add_inst('', 'new', [$return,'.Array']);
  $self->_add_in <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	7343	7490	
==>rom $self
            $const->{super}{$meth} = $self->{class};
        }
    }
    # copy parent(s), prepend self as parrent
    $const->{parents} = <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	344	472	
==>ract_file_descriptions.pl - Extract descriptions from files

=head1 SYNOPSIS

    % perl tools/dev/extract_file_descriptions.pl [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129831	130134	
==>\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130570	130873	
==>\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	6550	6780	
==>harness_args});

  #                           1       2          3        4         5        6         7      8           9        10          ...
  my $str = "parrot-smoke-<VERSION>-<DEVEL>-r<revision>-<branch>--<cpuarch>-<osname <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	11513	11696	
==>T => -1,
		GOTOS => {
			'functioncall' => 9,
			'var' => 11,
			'_if_then' => 14,
			'varlist1' => 13,
			'stat' => 7
		}
	},
	{#State 3
		ACTIONS => {
			'' => 18
		}
	} <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4545	4698	
==>ring = substr($string, 1, -1); # Without the surrounding quotes.

      $handler->start_element({ Name => 'literal', Attributes => { type => $type->name } <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	11672	12151	
==>os $$textref = $startpos;
		return;
	    }
	}

	while (1)
	{
		next if _match_codeblock($textref,
					 qr/\s*->\s*(?:[_a-zA-Z]\w+\s*)?/,
					 qr/[({[]/, qr/[)}\]]/,
					 qr/[({[]/, qr/[)}\]]/, 0);
		next if _match_codeblock($textref,
					 qr/\s*/, qr/[{[]/, qr/[}\]]/,
					 qr/[{[]/, qr/[}\]]/, 0);
		next if _match_variable($textref,'\s*->\s*');
		next if $$textref =~ m/\G\s*->\s*\w+(?![{([])/gc;
		last;
	}
	
	my $endpos = pos($$textref);
	return ($startpos, $varpos-$star <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11411	11543	
==>ne about that.
    }
    
    # Pod::Simple::HTML bug was here.
    my $out;
    
    $out = $to if defined $to and length $to;
    $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1020	1117	
==>ken(s) for its
content, and then an end-token with the tagname of "head1".

=item $token->tagname( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1448	1545	
==>ken(s) for its
content, and then an end-token with the tagname of "head1".

=item $token->tagname( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428564	428851	
==>> "inline",
                  "CODE" => 492,
                  "ARGS" => [
                              "ic",
                              "p",
                              "nc"
                            ],
                  "BODY" => "#line 69 \"src/ops/math.ops\"\n  mmd_dispatch_v <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3781	3892	
==>onvert X.c -> X.o for all X.c
    compile($_) foreach (@pmcs);

    # lib-GROUP.c
    for my $group (keys %$grou <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3885	3996	
==>onvert X.c -> X.o for all X.c
    compile($_) foreach (@pmcs);

    # lib-GROUP.c
    for my $group (keys %$grou <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113392	113680	
==>UMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114130	114418	
==>UMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2644	2807	
==>le,
    $self->line
  );

  $block->set_symbol($self->name, $sym);

  $block->push_content($self);

  return $self;
}

# block handled by superclass?

sub kind { re <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2921	3052	
==>le,
    $self->line
  );

  $block->set_symbol($self->name, $sym);

  $block->push_content($self);

  return $self;
}


#
# ACCESSOR <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2059	2159	
==>_[0]{'Indent'} }
sub   end_over_text    { --$_[0]{'Indent'} }
sub   end_over_block   { --$_[0]{'Inden <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1627	1727	
==>_[0]{'Indent'} }
sub   end_over_text    { --$_[0]{'Indent'} }
sub   end_over_block   { --$_[0]{'Inden <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5843	5974	
==>if  (exists($$actions{ACTIONS})) {

				defined($$token)
            or	do {
				($$token,$$value)=&$lex($self);
#DBG>				$debu <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5564	5690	
==>if  (exists($$actions{ACTIONS})) {

				defined($$token)
            or	do {
				($$token,$$value)=&$lex($self);
#DBG>				$debu <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	1884	1988	
==>ption)>

Runs the Parrot Assembler code and passes the test if a string comparison
of the output with the <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	2325	2429	
==>ption)>

Runs the Parrot Assembler code and passes the test
if a string comparison of the output with the <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	9304	9452	
==>ead2 my ($pre, $class_name, $flags) = parse_flags(\$code);

Extract a class signature from the code ref and return (a) the
code found before the sign <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	50621	50778	
==>);
                }

        # Remove the first round-bracketed list (which may include
        # round- or curly-bracketed code blocks or quotelike operator <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653303	653398	
==>src/ops/pmc.ops\"\n    opcode_t * resume = {{^+4}};\n    {{\@1}} = {{\@2}}->vtable->find_method( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654464	654559	
==>src/ops/pmc.ops\"\n    opcode_t * resume = {{^+4}};\n    {{\@1}} = {{\@2}}->vtable->find_method( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20055	20188	
==>$min, $max, $lastback) = @_;

    my ($rfail, $local_back, $back, $check, $next) =
      map { $self->genlabel("ngr_$_") } qw(rfail lo <==
2	/Users/nnunley/parrot/config/auto/env.pm	412	552	
==>uto';

$description = 'Determining if your C library has setenv / unsetenv';
@args        = qw(verbose);

sub runstep
{
    my ($self, $conf) <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	20691	20814	
==>f = $startpos; return };
		}
		$rd2pos = pos($$textref)-1;
	}
	else
	{
		$ld2pos = $str2pos = $rd2pos = $rd1pos;
	}

	$modpo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628060	628282	
==>"ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 53 \"src/ops/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vta <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	47153	47277	
==>>parse_file($source);
  } else {  # it's a filename
    $new->parse_file($source);
  }
  
  return $new;
}


#--------------- <==
2	/Users/nnunley/parrot/config/inter/lex.pm	1538	1675	
==>rbose);

    unless ($prog) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    if ($conf- <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	1552	1689	
==>rbose);

    unless ($prog) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    if ($conf- <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	8962	9280	
==>} "\n";
    }

    sub visitEndDir {
        my $self  = shift;
        my ($dir) = @_;
        my $FH    = $self->{fh};
        print {$FH} ".end\n";
        print {$FH} "\n";
    }

    sub visitParamDir {
        my $self  = shift;
        my ($dir) = @_;
        my $FH    = $self->{fh};
        if ( <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	3954	4094	
==>", $_[2]);
	},
	'=' => sub {
		my ($a1, $a2, $result, $op)=@_;
		$op="eq" unless $op;
		$result=~s/S/N/;
		$eqnum++;
		return(<<CODE, $result <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2975	3107	
==>'',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P14', 'P16[0]'],
  ['',            'bsr', 'apply_HELP' <==
2	/Users/nnunley/parrot/languages/regex/test.pl	2389	2497	
==>ile: $!";
    $pattern = <SPEC>;
    chomp($pattern);
}

generate_regular($pattern);
exit(0) if $compile;

my <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	1881	2090	
==>m t

Paramter is a char *, presumably a C string

Taken from an S register

=item v

Void. Only valid as a return type, noting that the function returns no data.

=item I

Interpreter pointer. The current inter <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5905	6045	
==>my $group = $class->{flags}{group}
          or next;
        ($group) = keys %$group;
        $pmc_group{$pmc} = $group;
        push @{ $gr <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6116	6256	
==>my $group = $class->{flags}{group}
          or next;
        ($group) = keys %$group;
        $pmc_group{$pmc} = $group;
        push @{ $gr <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10081	10191	
==>>path_for_file_with_relative_path(shift);
    
    return unless $path;
    
    return -f $path;
}

=item C<di <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	1213	1340	
==>for finding
    # where Fink lives.
    if ($osname =~ /darwin/) {
        if (-f "/sw/include/gmp.h") {
            $conf->data <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4444	4550	
==>E
	},
	'or' => sub {
		my($a1,$a2,$result,$op,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($o <==
2	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	824	952	
==>ould not open VERSION file!";
    $parrot_version = <$VERSION>;
    close $VERSION;

    chomp $parrot_version;
    $parrot_versi <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2661	2787	
==>--------------------------------------------

%Name2character_number = (
 # General XML/XHTML:
 'lt'   => 60,
 'gt'   => 62,
 ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488646	488915	
==>th.ops\"\n  {{\@1}} = floor( {{\@1}} );\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "flo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103954	1104046	
==>t_autoload_class(interpreter, class);\n\t\ttype = pmc_type(interpreter, class);\n\t}\n\tif (t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105169	1105261	
==>t_autoload_class(interpreter, class);\n\t\ttype = pmc_type(interpreter, class);\n\t}\n\tif (t <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	10327	10443	
==>ight);
      }
      elsif ($kind eq 'until') {
        $loop = Jako::Construct::Block::Loop::Until->new($block, $pre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511024	511334	
==>{{\@1}} = - {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511762	512072	
==>{{\@1}} = - {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLA <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7075	7218	
==>"

# Next parameter.
goto pre_call_PLOOP_${CURIC}

# Finished.
goto PRE_CALL_END_${CURIC}

# It's a return. See if we have a return value.
PRE_C <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	11898	12036	
==>> 'define',
             'revision' => 0,
             'rm_f' => 'perl -MExtUtils::Command -e rm_f',
             'rm_rf' => 'perl -MExtUti <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	63879	64050	
==>re mode was not "MAX" or "PARA").

=item C<Found unbalanced nested tag: %s>

C<extract_tagged> found a nested opening tag that was not matched by a
corresponding nested clo <==
2	/Users/nnunley/parrot/Configure.pl	7181	7321	
==>ig=/path/to/icu-config
                        Location of the script used for ICU autodetection.
                        You just need to sp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	330968	331396	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "close",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836610	836851	
==>P_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restor <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259184	259442	
==>VTABLE_is_same(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/config/gen/platform.pm	1240	1356	
==>\n") if defined $verbose && $verbose == 2;

    # headers are merged into platform.h
    my @headers = qw/
        io <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	330	433	
==>h.
sub new() {
	my $invocant = shift;
	return bless {}, $invocant;
}

# Pre-translation hook.
sub pre_tr <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	238	341	
==>h.
sub new() {
	my $invocant = shift;
	return bless {}, $invocant;
}

# Pre-translation hook.
sub pre_tr <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4204	4324	
==>n;
  }
  
  

  foreach my $it ($to, $section) {
    if( defined $it ) {
      $it =~ s/([^\x00-\xFF])/join '', map sprin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488023	488313	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":ba <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	489416	489706	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":ba <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	23227	23346	
==>al_FLAG);
        vt_clone->isa_str = string_make(interp,
            "$isa", @{[length($isa)]}, "ascii",
            PO <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	2193	2325	
==>\.o/\.c/g;
        copy_file($src, "miniparrot/$src");
    }
}

sub copy_src {
    print "** $0: copying source files to miniparrot d <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7988	8134	
==>len,$len);

                $$check eq 'ACCEPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Accept.\n";

				retur <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7630	7768	
==>len,$len);

                $$check eq 'ACCEPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Accept.\n";

				retur <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6932	7262	
==>ype, $name, $params, $section, $mmd) = @$entry;
        next unless $mmd eq '-1';

        my @params    = parse_params( $params );
        my @sig       = ( 'Parrot_INTERP interp', 'Parrot_PMC pmc' );
        my @args      = ( 'interp', 'pmc' );

        while (my ($type, $name) = splice( @params, 0, 2 ))
        {
           ev <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	12548	12767	
==>" CRAZY ERROR: It wasn't really handled?!\n";
    } elsif( $self->{'encoding_command_statuses'}[-1] ) {
      $self->whine( $para->[1]{'start_line'},
        sprintf "Couldn't do %s: %s",
          $self->{'encoding_comm <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	23637	23986	
==>c;

            my $iculibs = "";
            if ($PConfig{'has_icu'}) {
                $iculibs = $PConfig{icu_shared};
            }

            my ($cmd, $exit_code);
            $cmd = "$PConfig{cc} $PConfig{ccflags} $PConfig{cc_debug} " .
                " -I./include -c " .
                "$PConfig{cc_o_out}$obj_f $source_f";
            $ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	10939	11059	
==>, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # undef only matches <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	11357	11477	
==>, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # undef only matches <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	10384	10582	
==>rn (".return $retval",
            "ret");
}

sub output_declare {
    my ($self, $var, $type) = @_;
    return (".local $type $var");
}

sub output_rule_def {
    my ($self, $name, $L_trymatch, $L_b <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19713	19829	
==>default, it is currently the value of the environment variable
C<RTFDEFLANG>, or if that's not set, then the value
10 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937291	937500	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "titlecase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io" <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5594	5709	
==>my ( %group_files, %group_libs, %pmc_group, %pmc_libs );
    for my $pmc (@pmcs) {
        our $class;
        requi <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5805	5920	
==>my ( %group_files, %group_libs, %pmc_group, %pmc_libs );
    for my $pmc (@pmcs) {
        our $class;
        requi <==
2	/Users/nnunley/parrot/tools/docs/pod_errors.pl	204	365	
==>ead1 SYNOPSIS

    % perl tools/docs/pod_errors.pl [dir] [files-to-ignore-regex]

=head1 DESCRIPTION

This script reports on any POD errors found in the files.

= <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	14100	14437	
==>TDOUT => $out_f,
                                        STDERR => $out_f);
                        }
                    }
                }
            }

            if ( $func =~ /^pbc_output_/ && $args =~ /-r / ) {
                # native tests with --run-pbc don't make sense
                return $builder->skip( "no native tests <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946619	946882	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1065,
                  "ARGS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44399	44663	
==>LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "popmark",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45040	45304	
==>LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "popmark",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6239	6390	
==>nd\n";
		goto PARSE;
	}
	die "Unknown keyword $syms[CURR]/$type[CURR] source line $sourceline";
	goto UNK;

BARE:	# Check for user-subroutine
	if (users <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23394	23507	
==>thashname { $_[0]->{hashname} = '__DIRECTIVE' . ++$_[1]->{dircount} .  '__'; }

sub new ($$$;$)
{
	my $class = ref <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7154	7241	
==>{LOADTYPE}["reg_type_short"]
${DEST0} = concat ${STEMP0}
${STEMP0} = stack_depth
${DEST0 <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4976	5063	
==>{LOADTYPE}["reg_type_short"]
${DEST0} = concat ${STEMP0}
${STEMP0} = stack_depth
${DEST0 <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	7800	7959	
==>h
atanh       math.h
atanhf      math.h
atanhl      math.h
atanl       math.h
atexit      stdlib.h
atof        stdlib.h
atoi        stdlib.h
atol        stdlib. <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20464	20565	
==>), then there's no reason to
bother subclassing to add a C<run> method.

=head1 SEE ALSO

L<Pod::Simpl <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	16300	16445	
==>n(IN, "<$dir$file") or die "can't read-open $dir$file: $!";
  print "Reading $file...\n";
  while(<IN>) {
    if(m/<!ENTITY\s+(\S+)\s+"&#([^;]+);" <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5184	5327	
==>nt on
        # some platforms
        if ($^O eq 'hpux' or $^O eq 'cygwin') {
            chmod 0755, "$dest/$_$LOAD_EXT";
        }

    }
}
e <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5395	5538	
==>nt on
        # some platforms
        if ($^O eq 'hpux' or $^O eq 'cygwin') {
            chmod 0755, "$dest/$_$LOAD_EXT";
        }

    }
}
e <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	26590	26706	
==>ting_codes{$f} or $f eq '0' or $f eq '1';
      DEBUG > 2 and print "  Can't fall back on unknown code $f\n";
      $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19801	19930	
==>=> 5,
			'BREAK' => 110,
			'FOR' => 6,
			"(" => 8,
			'RETURN' => 112,
			'IF' => 10,
			'FUNCTION' => 12,
			'DO' => 15, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363534	363637	
==>ble){{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364437	364540	
==>ble){{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\ <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	1738	1866	
==>efile template.
	my $fh;
	open $fh, "< config/Makefile.in" or die "Unable to open config/Makefile.in\n";
	my $makefile = join( <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	17619	17739	
==>Bail out!  $reason");
    exit 255;
}

=item B<skip>

    $Test->skip;
    $Test->skip($why);

Skips the current test, re <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5639	5785	
==>pmc_libs );
    for my $pmc (@pmcs) {
        our $class;
        require "$pmc.dump";
 
        # there can be many libs
        my %libs = %{ $cl <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5850	5996	
==>pmc_libs );
    for my $pmc (@pmcs) {
        our $class;
        require "$pmc.dump";
 
        # there can be many libs
        my %libs = %{ $cl <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	275	404	
==>bal_state();
}

# R (seq, R, S, ...) : return R && S && ...
# R (scan, R) : scan for R at every position
# R (test, op1, check, op <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	1636	1848	
==>elf->{parser};
        for ( @{ $parser->YYData->{scopef} } ) {
            if ( ref $_ eq 'ARRAY' ) {
                for my $symbtab ( @{$_} ) {
                    if ( defined($symbtab) and $symbtab->isa(' <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	15454	15587	
==>ock->kind eq 'module') {
        # DO NOTHING
      }

      #
      # If there is any other kind of block, we have an internal compil <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	487	597	
==>-----
{
#
# Module Parse::Yapp::Driver
#
# This module is part of the Parse::Yapp package available on you <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	476	581	
==>-----
{
#
# Module Parse::Yapp::Driver
#
# This module is part of the Parse::Yapp package available on you <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392709	393156	
==>i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 456,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 464 \"src/ops/io.ops\"\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722166	722268	
==>=> "#line 149 \"src/ops/python.ops\"\n  STRING * const s = {{\@2}};\n  PMC * const io = {{\@1}}; /* TOD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723195	723297	
==>=> "#line 149 \"src/ops/python.ops\"\n  STRING * const s = {{\@2}};\n  PMC * const io = {{\@1}}; /* TOD <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28982	29103	
==>ll' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 89 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	267703	267794	
==>"BODY" => "#line 811 \"src/ops/cmp.ops\"\n    {{\@1}} = VTABLE_get_bool(interpreter, {{\@2}} <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	16084	16208	
==>FIX
			@match[2..17],				# THE BITS
			@match[20,21],				# ANY FILLET?
		       );
};

sub _match_quotelike($$$$)	# ($textref <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563399	563678	
==>"NAME" => "addmethod",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564296	564575	
==>"NAME" => "addmethod",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1735	1892	
==>d::Simple uses this class for representing the value of the
"section" attribute of "L" start-element events.  Most applications
can just use the normal string <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	13601	13757	
==>r to the end
of the document.

=cut

sub do_end 
{
    my $self = shift;
    
    print {$self->{'output_fh'}} 
        Parrot::Docs::HTMLPage->footer('', $s <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1109	1422	
==>1
                              #
print "Estimated ops: $I5\n"; # print  "Estimated ops: "
                              # print  I5
                              # print  "\n"
                              #
$N1 = time_hires();           # time N1
                              #
REDO:                         # R <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1109	1422	
==>1
                              #
print "Estimated ops: $I5\n"; # print  "Estimated ops: "
                              # print  I5
                              # print  "\n"
                              #
$N1 = time_hires();           # time N1
                              #
REDO:                         # R <==
2	/Users/nnunley/parrot/config/init/hints/darwin.pm	14	132	
==>) 2005, The Perl Foundation.
# $Id: /parrot/config/init/hints/darwin.pm 19593 2006-05-30T02:28:15.110975Z coke  $

pack <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	24409	24584	
==>fined $fh ) {
        $self->{Todo_FH} = _new_fh($fh);
    }
    return $self->{Todo_FH};
}


sub _new_fh {
    my($file_or_fh) = shift;

    my $fh;
    if( _is_fh($file_or_fh <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34788	34918	
==>, $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "### end translation\n";

		# Now emit code to fix up the stack type arr <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	180	347	
==>rrot::Configure::Step qw(cc_gen cc_run);

sub runstep
{
    my ($self, $conf) = @_;

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $l <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6952	7084	
==>ma');         }
sub skip_close_brace   { return shift->skip('close-brace');   }
sub skip_close_bracket { return shift->skip('close-br <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20209	20330	
==>ots and sgn
print 10,sqr(10)
print 32767,sqr(32767)
print 0,sqr(0)
print 0.5,sqr(0.5)
print 2,sqr(2)
for i = -1 to 1
	prin <==
2	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	667	777	
==>PUT, $input) or die "open $input: $!";
    $checksum = unpack("%32C*", <INPUT>);
    close INPUT;
}

my $up_to_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719946	720038	
==>f_c(interpreter, \"%.12g\", (double){{\@2}});\n  PIO_putps(interpreter, io, s);\n  if (string <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721146	721238	
==>f_c(interpreter, \"%.12g\", (double){{\@2}});\n  PIO_putps(interpreter, io, s);\n  if (string <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	74	165	
==>Configure/Data.pm 20321 2006-06-20T20:02:00.179448Z bernhard  $

=pod

=head1 NAME

Parrot:: <==
2	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	1399	1510	
==>ive mode
	set S0, ""
	
	set S0, ""
	read S0, 256
	length I1, S0
	eq I1, 1, MAINLOOPR
	save S0
	bsr STRIPSPACE
	r <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11234	11328	
==>short"]
${DEST0} = concat ${STEMP0}
inc stack_depth
${STEMP0} = stack_depth
${DEST0} = concat $ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8420	8514	
==>short"]
${DEST0} = concat ${STEMP0}
inc stack_depth
${STEMP0} = stack_depth
${DEST0} = concat $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44527	44674	
==>=> 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"<=" => 85,
			">" => 86
		},
		DEFAULT => -110
	},
	{ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2802	2928	
==>$$self{CHECK}}='ACCEPT';
    undef;
}

sub YYError {
	my($self)=shift;

	${$$self{CHECK}}='ERROR';
    undef;
}

sub <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2671	2786	
==>$$self{CHECK}}='ACCEPT';
    undef;
}

sub YYError {
	my($self)=shift;

	${$$self{CHECK}}='ERROR';
    undef;
}

sub <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7858	7964	
==>i% then print "Should not happen (int)"
i%=54
if i% then print "This is true" else print "Oops (int)"
i=0
i <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14845	14951	
==>i% then print "Should not happen (int)"
i%=54
if i% then print "This is true" else print "Oops (int)"
i=0
i <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	23403	23539	
==>elet->[0], $treelet->[$i][0], 
          ;
          
          #$nugget = ;
          splice @$treelet, $i, 1, [pop(@dynasty), {}, $tree <==
2	/Users/nnunley/parrot/lib/Test/More.pm	36692	36807	
==>L<Test::Differences> for more ways to test complex data structures.
And it plays well with Test::More.

L<Test::Clas <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	28009	28119	
==>ax: $content"
    )
  }
  return;
}


#:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:. <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	2276	2463	
==>/\(/) {
	    $bad_fdecls{$fdecl} = $secondline;
        }
    }
    
    # now a little trick.  Weed out the ones we know aren't used in this file.
    open(F, "<$file") || die "Can't read <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	36127	36243	
==>ation, then that type of quote will be correctly handled.
for example, if C<$text> is:

	$text = '<A HREF=">>>>">link <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2201	2305	
==>Gunzip($CGI->param("smoke")) ||
    Compress::Bzip2::memBunzip($CGI->param("smoke")) ||
    $CGI->param(" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	54	171	
==>ct;
use Carp ();
use Pod::Simple ();
use vars qw( $ATTR_PAD @ISA $VERSION $SORT_ATTRS);
$VERSION = '2.02';
BEGIN {
  @ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	55	172	
==>ct;
use Carp ();
use Pod::Simple ();
use vars qw( $ATTR_PAD @ISA $VERSION $SORT_ATTRS);
$VERSION = '2.02';
BEGIN {
  @ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16362	16544	
==>,
			"[" => 88,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 90,
			'function' => 26,
			'primary' => 28,
			'fieldlist' => 92,
			'functioncall' => 31,
			'tableconstruc <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	1148	1319	
==>the file(name) symbols.

=back

If more than one of all the above options are given, they are C<AND>ed.
They can also be negated with a "no", for example C<--noconst>.

=ov <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182852	183305	
==>",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 218,
                  "ARGS" => [
                              "n",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	18803	18909	
==>atch_version()>

Returns the patch version number.

=cut

sub patch_version
{
    my $self = shift;

    $s <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5973	6102	
==>p) = keys %$group;
        $pmc_group{$pmc} = $group;
        push @{ $group_files{$group} }, $pmc;
        $group_libs{$group} || <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6184	6313	
==>p) = keys %$group;
        $pmc_group{$pmc} = $group;
        push @{ $group_files{$group} }, $pmc;
        $group_libs{$group} || <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	4970	5226	
==>ops
{
    my ($self, $file, $nolines) = @_;

    my $ops_file = "src/" . $file;


    die "Parrot::OpFunc::init(): No file specified!\n" unless defined $file;

    $self->{FILE} .= $file . ', ';

    my $orig = $file;

    open my $OPS, '<', $file or die "C <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	12937	13092	
==>ing-head1-content mode...\n";
        }
      }
    }
    
    elsif($state == 2) {
      # seeking start of para (which must immediately follow)
      if($ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2394	2516	
==>ift;

		exists($$self{USER})
	or	$$self{USER}={};

	$$self{USER};
	
}

sub YYErrok {
	my($self)=shift;

	${$$se <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2301	2411	
==>ift;

		exists($$self{USER})
	or	$$self{USER}={};

	$$self{USER};
	
}

sub YYErrok {
	my($self)=shift;

	${$$se <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	444	564	
==>"perl testrun.pl > _output2");
		open(O, "_output2") || die;
		print <O>;
		close(O);
		print "\n";
	}
	
}

__DATA__
inpu <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	47720	47852	
==>);
        }
	],
	[#Rule 19
		 'stat', 4,
sub
#line 128 "Lua\lua51.yp"
{
            BuildIf( $_[0], $_[1], $_[2], $_[3], und <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423630	423913	
==>(INTVAL)PIO_listen(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	424527	424810	
==>(INTVAL)PIO_listen(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	620	792	
==>t;

  my $inline = 0;
  my $last_seen = 'sub';

  $compiler->emit(".sub ___MAIN");
  $compiler->indent;
  $compiler->emit("__INLINE_0()");
  $compiler->emit("end");
  $compi <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	4746	4880	
==>hape'()
    $I0 = shape
    if $I0 == 2 goto print_2D
    # XXX assume 1d otherwise.
    unless iter goto iter_end
  iter_loop:
    old <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	1147	1265	
==>self and run them
through your compiler itself.  If you can load PIR libraries from your
language, you can even use the <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23209	23397	
==>ad"} ? '$text = $_savetext;' : '' ) .'
'
}

1;

package Parse::RecDescent::UncondReject;

sub issubrule { undef }
sub isterminal { 0 }
sub describe { $_[1] ? '' : $_[0]->{name} }
sub sethas <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6126	6265	
==>int CODE "CASE_$s->{jump}_FIN:\n";
			goto PARSE;
		}
		push @{$code{$seg}->{code}}, "\t_platform_shutdown()\n\tend\n";
		goto PARSE;
	}
	di <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	625	728	
==>$type;

  return '$' . $type . $self->{REG_COUNT}{$type}++;
}

sub temp_int { return shift->temp_reg('I' <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	1544	1677	
==>le'");

		my $grammar = join '', <IN>;

		Parse::RecDescent->Precompile($grammar, $class, $sourcefile);
		exit;
	}
}
		
sub Save
{
	my <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3740	3836	
==>lock->props;

      $self->SYNTAX_ERROR("Sub declaration has no fnlib property, and parent module <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6404	6500	
==>lock->props;

      $self->SYNTAX_ERROR("Sub declaration has no fnlib property, and parent module <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104098	1104191	
==>_CLASS,\n\t\t\t\t\"Class '%Ss' not found\", class);\n\t{{\@1}} = pmc_new_init(interpreter, typ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105313	1105406	
==>_CLASS,\n\t\t\t\t\"Class '%Ss' not found\", class);\n\t{{\@1}} = pmc_new_init(interpreter, typ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	1914	2017	
==>t labeled line before a "data" statement.
	my $singleif=0;
	my $elsetag=0;
	my $elsestack;
	my $ifline=" <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	2422	2589	
==>block_end ) {
                push @output, [ 1, q{} ];
            }
        }
    }
    # Badly formatted pir might end in the middle of a verbatim chunk.
    if ($ve <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	2799	2951	
==>=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_J <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	36871	37023	
==>=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_J <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	18296	18406	
==>close $fh;
    }
}

=head2 read_dump( [$dir1, $dir2], $file );

Read in the class definition found in $file (wh <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	5011	5134	
==><EOC;
pc_$n:
EOC
}

sub New_func {
    my ($n, $arg, $cmt) = @_;
    my $nst = "";
    my $ns = $namespace{$arg};
    my $re <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2056	2165	
==>Expression::Value::Identifier')) {
      my $arg_sym = $self->block->find_symbol($args[$i]->value);
      $sel <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1756	1865	
==>Expression::Value::Identifier')) {
      my $arg_sym = $self->block->find_symbol($args[$i]->value);
      $sel <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3098	3205	
==>exists $props{op}) {
    my $op = $props{op};

#    $self->DEBUG(0, "Calling %s%s...", $name, ($op ? ' (op $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2635	2742	
==>exists $props{op}) {
    my $op = $props{op};

#    $self->DEBUG(0, "Calling %s%s...", $name, ($op ? ' (op $ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	3688	3892	
==>t;
            Data::Dumper->new([$self->{c}], ['*PConfig'])->Sortkeys(1)->Dump();
        };
    } else {
        *dump = sub {
            my $self = shift;
            Data::Dumper->new([$self->{c}], [' <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	6891	7003	
==>y $file ($self->files($recursive, $ignore))
    {
        next unless $file->has_suffix($suffix);
        push @f <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9330	9462	
==>[\$dbg_tmp] INT: \%<$reg>$desc\n"),
                );
    } else {
        return ("$reg = pop \@<rx_stack>; # popint");
    }
}

su <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2978	3080	
==>-text'   => "\n\\par}\n",

 # we don't need any styles for over-* and /over-*
);


#~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369528	369813	
==>}}, (size_t){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	370413	370698	
==>}}, (size_t){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6297	6399	
==>epth
goto POST_BRANCH_NOT_switch_${CURIC}

POST_BRANCH_switch_${CURIC}:
i = elements P_arg_0
POST_BRANC <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4235	4337	
==>epth
goto POST_BRANCH_NOT_switch_${CURIC}

POST_BRANCH_switch_${CURIC}:
i = elements P_arg_0
POST_BRANC <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158275	158576	
==>=> 191,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 141 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	2271	2384	
==>ails.
        mkpath($self->parent_path);
    }
    
    return -e $self->parent_path;
}

=item C<path()>

Returns <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	4340	4455	
==>Comment" context="#pop" String="^\\=cut\\s*\$" />
      </context>

END

print <<END;
      <context name="string" a <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	8542	8649	
==>_P(interpreter, &st, n)

/*
 * set return value
 */
static void
set_nci_I(Interp *interpreter, struct call_s <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	8806	8926	
==>",
						   $thisrule);
	$Parse::RecDescent::lastunexpected = $_[1];
	'. ($parser->{_check}{thisoffset}?'
	my $thisoffset <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	428	547	
==>) { 0xFFFFFFFF }

# padd a message to a multiple of 64
sub padding($) {
    my $l = length (my $msg = shift() . chr(128) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	910	1022	
==>s) {
        next if $key eq 'start_line' and $_[0]{'hide_line_numbers'};
        _xml_escape($value = $_[2]{$key <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	729	837	
==>s) {
      next if $key eq 'start_line' and $_[0]{'hide_line_numbers'};
      _xml_escape($value = $_[2]{$key <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	725593	725981	
==>"FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 813,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BOD <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	8140	8244	
==>],
      duration      => sprintf("%.02f", Time::Seconds->new($10)->minutes) . "&nbsp;min",
      summary <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044547	1044745	
==>"k",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interpre <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	842	1018	
==>define> macros required by the ops.

=cut

sub defines
{
    return <<END;
#define REL_PC ((size_t)(cur_opcode - interpreter->code->prederef.code))
#define CUR_OPCODE ((opcode_t <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	250	375	
==>089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block::Sub;

use Carp;

use base qw(Jako::Construct <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	35876	35978	
==>uilder
will throw a warning and exit with 255.  If the test died, even after
having successfully comple <==
2	/Users/nnunley/parrot/lib/Test/More.pm	33947	34049	
==>uilder
will throw a warning and exit with 255.  If the test died, even after
having successfully comple <==
2	/Users/nnunley/parrot/languages/scheme/Scheme.pm	848	1049	
==>e_lex 0, "$miss", P16
END

    push @function, $miss;

    if ($link->{functions}) {
      push @missing, $link->{functions};
    }

    # XXX: Move Generator::_format_columns to own class
    Scheme::G <==
2	/Users/nnunley/parrot/lib/Test/More.pm	23807	23929	
==>W = 0;
    last TODO;
}

=item When do I use SKIP vs. TODO?

B<If it's something the user might not be able to do>, use SKI <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	2176	2280	
==>PARROT_ARGDIR_IN',
    'o'  => 'PARROT_ARGDIR_OUT',
    'io' => 'PARROT_ARGDIR_INOUT'
);

#
# Look at the <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	23103	23259	
==>= string_make(interp,
            "$classname", @{[length($classname)]}, "ascii",
            PObj_constant_FLAG|PObj_external_FLAG);
        vt_clone->isa_s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847730	848018	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848509	848797	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044431	1044711	
==>"TYPE" => "function",
                  "CODE" => 1167,
                  "ARGS" => [
                              "k",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 130 \"src/ops/var.ops\"\n <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	13660	13874	
==>ize_t i;
        for (i = 0; i < OP_HASH_SIZE; i++)
            for (p = hop[i]; p; ) {
                next = p->next;
                free(p);
                p = next;
        }
        free(hop);
    }
    hop = <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	29934	30164	
==>[ $handle ]),
                 $next =>
              );
    return ($back, @ops);
}

# Handle a rule definition. $lastback is ignored; perhaps I should
# warn if it's defined at all.
sub rewrite_rule {
    my ($self, $op, $name, $ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19556	19664	
==>rse_type {
		my(@types);
		feedme;
		my $typename=$syms[CURR];
		feedme;
		$sourceline++;
		feedme;
		while($ <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6008	6135	
==>up{$pmc} = $group;
        push @{ $group_files{$group} }, $pmc;
        $group_libs{$group} ||= {};
        foreach my $lib ( k <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6219	6346	
==>up{$pmc} = $group;
        push @{ $group_files{$group} }, $pmc;
        $group_libs{$group} ||= {};
        foreach my $lib ( k <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	2144	2269	
==>embler code and passes the test if
the  output matches the expected result.

=item C<pasm_output_isnt($code, $unexpected, $des <==
2	/Users/nnunley/parrot/config/auto/m4.pm	565	674	
==>is installed';

@args = qw();

sub runstep
{
    my ($self, $conf) = @_;

    my $archname = $Config{archname} <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	4980	5097	
==>"
    or die "ops2c.pl: Cannot open header file '$header' for writing: $!!\n";

open SOURCE, ">$source"
    or die "op <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3395	3495	
==>s
{
    my ($self, $addr) = @_;
    return "return opcode_to_prederef(interpreter,  (opcode_t *)$addr <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	631	789	
==>n = $self->{table}{$symb};
##        warn "\tfound 1 in $self\n";
            return $defn;
        }
        else {
            my $parser = $self->{pars <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	14667	14796	
==>, $line ) = @_;
	push @{$self->{op}},
		{ type=>$whichop, line=>$line,
		  offset=> scalar(@{$self->{items}}) };
}

sub addscore
{ <==
2	/Users/nnunley/parrot/config/auto/jit.pm	241	339	
==>g system, and whether there is JIT
capability available.

=cut

package auto::jit;

use strict;
use <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	18642	18774	
==>, $file );

    my $class;
    eval do { local $/; <$fh> };
    die $@ if $@;

    close $fh;
    $class;
}


=head2 print_tree( [$di <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13027	13158	
==>)->is_else) {
        $cont = $self->forth->text;
        $self->require_open_brace;
      }

      #
      # If we are not currentl <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9958	10053	
==>s($$states[$$stack[-1][0]]{ACTIONS}{error})
					or	$$states[$$stack[-1][0]]{ACTIONS}{error} <= <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9511	9605	
==>s($$states[$$stack[-1][0]]{ACTIONS}{error})
					or	$$states[$$stack[-1][0]]{ACTIONS}{error} <= <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	30685	30848	
==>C
    push @stack, [-1, $x, 'P'];
}
# exceptions
sub SETUP_EXCEPT
{
    my ($n, $c, $cmt) = @_;
    my $targ = "pc_xxx";
    if ($c =~ /to (\d+)/) {
	$targ = "pc_$1 <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27309	27419	
==>);

		# If we have PIR for the instruction, just take that. If not, we need
		# to generate it from the "to gen <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34448	34558	
==>);

		# If we have PIR for the instruction, just take that. If not, we need
		# to generate it from the "to gen <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1651	1808	
==>0]{'output_fh'}}
   '  ' x --$_[0]{'indent'}, "--", $_[1], "\n";
  return;
}

# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	12272	12452	
==>codelbock-bold-ital;}

{\s31\ql \keepn\sb90\sa180\f2\fs%s\ul\sbasedon0 \snext0 pod-head1;}
{\s32\ql \keepn\sb90\sa180\f2\fs%s\ul\sbasedon0 \snext0 pod-head2;}
{\s33\ql \keepn\sb90\s <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8590	8706	
==>g to do here.
	if ($dest_reg) {
		$pir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[st <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6410	6526	
==>g to do here.
	if ($dest_reg) {
		$pir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYPES}[st <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5764	5918	
==>foreach ( @{ $op->{arg2} } ) {
            print {$FH} ", " unless ($first);
            print {$FH} "$_->{symbol}";
            if ( exists $_->{pragma <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	5521	5679	
==>type) {
      $handler->start_element({
        Name       => 'sub',
        Attributes => {
          name  => $name,
          type  => $type,
          kind <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6770	6928	
==>type) {
      $handler->start_element({
        Name       => 'sub',
        Attributes => {
          name  => $name,
          type  => $type,
          kind <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787924	788017	
==>"BODY" => "#line 422 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed_int( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788834	788927	
==>"BODY" => "#line 422 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed_int( <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10807	10954	
==>= '_' unless length $section;
    }
    
    foreach my $it ($to, $section) 
    {
        next unless defined $it;

        $it =~ s/([^\x00-\xFF]) <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	6810	6905	
==>ort keys %{ $this->{'accept_directives'} } if wantarray;
  return;
}

#------------------------- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	5535	5749	
==>$handler->start_element({
        Name       => 'sub',
        Attributes => {
          name  => $name,
          type  => $type,
          kind  => 'op',
          oplib => $oplib,
          op    => $op
        } <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6784	6935	
==>$handler->start_element({
        Name       => 'sub',
        Attributes => {
          name  => $name,
          type  => $type,
          kind  => 'f <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	5890	6021	
==>ED_LINE(var):..." are skipped if
            # the "var" condition is true.
            if ($line =~ m/^#CONDITIONED_LINE\(([^)]+)\) <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21543	21750	
==>QUIT"
data "SHIELDS","SOS","SRSCAN","STATUS","TORPEDO","TRANSFER","VISUAL","WARP"

' Nested if/else bug
bump=1
LOOPY:
	if bump < -1 then goto LAST
	if bump < 1 then
		if bump = 0 then
			print "Second"
		else <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8679	8784	
==>QUIT"
data "SHIELDS","SOS","SRSCAN","STATUS","TORPEDO","TRANSFER","VISUAL","WARP"

' Random number distrib <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	67009	67276	
==>[
                              "ic"
                            ],
                  "BODY" => "#line 1023 \"src/ops/core.ops\"\n  if ({{\@1}})\n    Parrot_do_dod_run(interpreter, 0);\n  else\n    if (interpreter->arena_base->num_early_DOD_PMCs)\n      Parrot_do_dod_ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	16260	16406	
==>my ($n, $c, $cmt) = @_;
    binary('//', $cmt);
}
sub BINARY_DIVIDE
{
    my ($n, $c, $cmt) = @_;
    binary('/', $cmt);
}
sub BINARY_POWER
{
    m <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	1623	1782	
==>s::Tree::_onearg);
@Regex::Ops::Tree::atend::ISA        = qw(Regex::Ops::Tree);
@Regex::Ops::Tree::advance::ISA      = qw(Regex::Ops::Tree::_atom);

@Regex::Ops <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9353	9471	
==>ub output_popint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);
    if ($self->{DEBUG}) {
        my $d <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9047	9165	
==>ub output_popint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);
    if ($self->{DEBUG}) {
        my $d <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3963	4069	
==>ent
.end 	# End outer segment
EOD
}
if ($debug) {
	print CODE<<FOO;
.sub _DEBUG_INIT
	saveall
	\$P0=new .Pe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	866929	867236	
==>",
                  "CODE" => 984,
                  "ARGS" => [
                              "s",
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 232 \"src/ops/string.ops\"\n  INTVAL len;\n  len = string_length(interpr <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7907	8035	
==>MP0} = concat ${STEMP1}

# Put it in the parameter register list.
${PARAMS}[${ITEMP0}] = ${STEMP0}

# Next parameter.
dec stack_d <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6889	6998	
==>MP0} = concat ${STEMP1}

# Put it in the parameter register list.
${PARAMS}[${ITEMP0}] = ${STEMP0}

# Emit cod <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3343	3515	
==>e of an op.

=item C<HALT()>

Transforms to C<PC' = 0>. Halts run loop, and resets the current
position to the start of the Parrot code, without resuming.

=item C<restart O <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	34287	34597	
==>ser,
            'result' => $result,
        );
        push @opcodes1, new AssignOp( $parser,
            'result' => $result,
            'arg1'   => $nil->[0],
        );
        push @return2,  $result;
        push @opcodes2, new AssignOp( $parser,
            'result' => $_->[0],
            ' <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	25714	25918	
==>extract_delimited($text,$delim);


 # Extract the initial substring of $text that is bracketed
 # with a delimiter(s) specified by $delim (where the string
 # in $delim contains one or more of '(){}[]<>'). <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565024	565280	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "can",
                  "FLAGS" => ":object_base",
                  "ARGDIR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565916	566172	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "can",
                  "FLAGS" => ":object_base",
                  "ARGDIR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009193	1009489	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compose",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009957	1010253	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compose",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	12587	12831	
==>mcpy      string.h
memmove     string.h
memset      string.h
mktime      time.h
modf        math.h
modff       math.h
modfl       math.h
nan         math.h
nanf        math.h
nanl        math.h
nearbyint   math.h
nearbyintf  math.h
nearbyintl  m <==
2	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	1380	1497	
==>g ) if $diag;
  
  return Parrot::Test::slurp_file($out_f);
}


=head2 output_is

This gets called when language_outpu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59647	59962	
==>" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 77,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 90 <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	17563	17721	
==>L    signature_len;

    void       *result        = NULL;
    Hash       *known_frames  = NULL;
    PMC        *HashPointer   = NULL;

#if defined(CAN_BUILD_C <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	3733	3914	
==>$hugeintval{hugeintvalsize})
        || $hugeintval{hugeintvalsize} == $intvalsize) {

        # Could not find anything bigger than intval.
        $conf->data->set(
            hug <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	34534	34641	
==>ds, each type of bracket specified as a delimiter must be
balanced and correctly nested within the substring <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	257	424	
==>5.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statement::Bitwise;

use Carp;

use base qw(Jako::Construct::Statement);

sub new
{
  my <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	8490	8597	
==>p_funcs; $i++) {
    if ($i && $i % $CORE_SPLIT == 0 && $trans->can("run_core_split")) {
        print SOURC <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	5358	5563	
==>/* TODO make also a shared variant of PackFile_new */
    pf          = PackFile_new(0);

    if( !PackFile_unpack(interpreter, pf, (opcode_t *)program_code,
			    sizeof(program_code)) ) {
	printf( "Can't <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	1266	1389	
==>anch', 'write_NEXT'],
  ['write_DOT',    'print', '" . "'],
  ['',             'save', 'P1'],
  ['',             'invokecc'] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	512740	513015	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32928	33038	
==>end typeinfo\n";
        }

		# Now call pre_store and append code that it generates.
		my $pre_store = $srm->p <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1078	1215	
==>($x || '') eq 'ARRAY') {
      $x = $class->new($x); # recurse
    } elsif(ref($x || '') eq 'HASH') {
      $x = { %$x };
    }
     # oth <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1643	1762	
==>TPOS => \$dotpos,
				STACK => [],
				DEBUG => 0,
				CHECK => \$check };

	_CheckParams( [], \%params, \@_, $self <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1587	1701	
==>TPOS => \$dotpos,
				STACK => [],
				DEBUG => 0,
				CHECK => \$check };

	_CheckParams( [], \%params, \@_, $self <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	6706	6816	
==>$arg_name} = 1;
	    print <<EOC;
	if argcP >= $i goto arg_ok
	    find_global $arg_name, "${arg}_$d"
EOC
	}
	p <==
2	/Users/nnunley/parrot/languages/perms.pl	223	367	
==>ile (++$prefix[$i] > $#$things ) {
      $prefix[$i] = 0;
      $i++;
      last if $i > @prefix;
    }
    
    if ( $prefix[-1] >= @$things ) { <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	14701	14858	
==>->{super}{$meth};
        foreach my $pname (@{ $self->{parents} } ) {
            if (exists ($self->{has_parent}{$pname}{$meth} )) {
                $self-> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	396	510	
==>ct::Block::Conditional);

#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $left, $op, $right) = @_;

  co <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	408	522	
==>ct::Block::Conditional);

#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $left, $op, $right) = @_;

  co <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1135	1229	
==>I/opt/local/include -pipe -fno-common -Wno-long-double  -I /opt/local/include   -g -Wall -Wstri <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	1139	1233	
==>I/opt/local/include -pipe -fno-common -Wno-long-double  -I /opt/local/include   -g -Wall -Wstri <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	2712	2928	
==>el");
  } else {
    if ($cond eq 'unless') {
      $op = $compiler->invert_relop($op);
      $cond = 'if';
    }

    $left  = $left->compile($compiler);
    $right = $right->compile($compiler);

    $compiler->emit( <==
2	/Users/nnunley/parrot/Configure.pl	5590	5701	
==>piler supports inline
   --optimize           Optimized compile
   --optimize=flags     Add given optimizer flag <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30538	30652	
==>value: [}
						. $& . q{])},
						  Parse::RecDescent::_tracefirst($text))
							if defined $::RD_TRACE;').'
		p <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28462	28574	
==>value: [}
						. $& . q{])},
						  Parse::RecDescent::_tracefirst($text))
					if defined $::RD_TRACE;').'
		p <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4768	4871	
==>prior to the run core function.

=cut

sub run_core_func_start
{
    return <<END_C;
#if defined(__GNUC_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3056	3159	
==>prior to the run core function.

=cut

sub run_core_func_start
{
    return <<END_C;
#if defined(__GNUC_ <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	11654	11966	
==>Slice Super Undef',
             'pod' => undef,
             'prefix' => '/opt/local',
             'ptr_alignment' => 1,
             'ptrconst' => 'u',
             'ptrsize' => 4,
             'ranlib' => 'ranlib',
             'readline' => 'define',
             'revision' => 0,
             'rm_f' => 'per <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	4742	4840	
==>the
universe, and perl does horrible mangling to them that gets in my way,
it works like this on VM <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	26280	26419	
==>ts.  TODO: make this an option?
        shift @$paras;
        next;
        
      } elsif($paras->[0][0] eq '~end') {
        $self->whine <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	4160	4352	
==>comment detected.");
        }

        if (/XXX/) {
            info($file, $line, "To-Do (XXX) noticed.");
        }
    }
}


sub check_cuddled_else {
    my ($file, $source) = @_;

    my $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320054	320346	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320824	321116	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	936	1090	
==>()
  
#
#  PBC loader does not support LuaFunction
#  
  
#  load_bytecode "languages/lua/lib/luabasic.pbc"
#  load_bytecode "languages/lua/lib/luac <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	22917	23187	
==>"tree"          => \$action{tree},

        "no-body"       => \$opt{nobody},
        "no-lines"      => \$opt{nolines},
        "debug+"        => \$opt{debug},
        "verbose+"      => \$opt{verbose},
        "library=s"     => \$opt{library},
    ) or exit(1);
    u <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106399	1106641	
==>preter->vtables[typ]->class;\n    {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107375	1107617	
==>preter->vtables[typ]->class;\n    {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	5907	6076	
==>hashes{$name} ){
                $out .= "    my \$i;\n";
                $out .= "    \@_ ? (\$i = shift) : return \$r->$elem;\n";
                $out .= "    if (ref(\ <==
2	/Users/nnunley/parrot/config/auto/readline.pm	1860	1972	
==>AS_READLINE => $has_readline,
	);
    }
    unless ($has_readline) {

        # The Config::Data settings might h <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6076	6168	
==>re already.
	$pir .= <<'PIR';
if 0x${CURIC} == 0x45 goto POST_BRANCH_switch_${CURIC}
${ITEMP0 <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4014	4106	
==>re already.
	$pir .= <<'PIR';
if 0x${CURIC} == 0x45 goto POST_BRANCH_switch_${CURIC}
${ITEMP0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368880	369210	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369764	370094	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "T <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeDumb.pm	427	608	
==>latin1'      => 1,
  'latin-1'     => 1,
  %Supported,
);

sub is_dumb  {1}
sub is_smart {0}

sub all_encodings {
  return sort keys %Supported;
}

sub encoding_is_available {
  retu <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2429	2541	
==>the vtable call and _reg_base is clobbered
     * # if 1191 := PARROT_OP_set_args_pc
     * (gdb) disas l_ops_add <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	1556	1757	
==>ests;
    if ($file eq 'clock') {
      $clock_skipped = $num_tests;
    } elsif ($file eq 'case') {
      $deprecated = $num_tests;
    }
    last READLINE;
  }
  close $test_h
}

my @tests = map {"$te <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	13733	13935	
==>e {
    my ($self, $op, $R, $S, $lastback) = @_;

    my $nextalt = $self->genlabel('nextalt');
    my $back = $self->genlabel('alt_back');
    my $try_S = $self->genlabel('alt_S');
    my $next = $self- <==
2	/Users/nnunley/parrot/languages/pugs/t/pmc.pm	463	625	
==>sub _main
    loadlib $P1, "pugs_group"
    $I0 = defined $P1 
    if $I0 goto ok
    print "not "
ok:
    print "ok\n"
.end
CODE
ok
OUTPUT

main::pir_output_is(<< <==
2	/Users/nnunley/parrot/tools/build/list_unjitted.pl	916	1013	
==>push @not_jitted, $op;
}

print foreach @not_jitted;

print 'Not jitted: ', scalar @not_jitted;
pr <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	12542	12853	
==>r, $lastback ]),
                         aop('goto', [ $next ]),
                $back => aop('increment', [ -$howfar ]),
                         aop('goto', [ $lastback ]),
                $next =>
              );
    return ($back, @ops);
}

sub rewrite_other {
    my ($self, $op, $lastback) = @_;
    retu <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	3131	3310	
==>> [ $_, "rxlocal $_" ]) }
                reverse @$rxlocals);
}

sub get_temp {
    my ($self, $name) = @_;
    return $self->{_temps}->{$name} || die "Requested unallocated tempo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059575	1060085	
==>ME" => "find_name",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1183,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 208 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060479	1060844	
==>ME" => "find_name",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1184,
                  "ARGS" => [
                              "p",
                              "s <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12910	13019	
==>nditional <error?> directive would 
					  normally succeed (with the value zero) if the
					  rule is not 'c <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19365	19479	
==>lse> );

Set this value to true if you don't want the formatter to try
putting a hidden code on all Perl symbols (a <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	51030	51231	
==>'_funcname', 3,
sub
#line 246 "Lua\lua51.yp"
{
            [
                @{ $_[1] },
                BuildLiteral( $_[0], $_[3], 'key' ),
            ];
        }
	],
	[#Rule 42
		 '_func <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	1837	2030	
==>ck{$in} # Fallback.
        || $FAR_CHAR; # Fall further back
  }
  
  # Normal handling:
  if($in =~ m/^\d+$/s) {
    if($] < 5.007  and  $in > 255) { # can't be trusted with Unicode
      retu <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9244	9414	
==>ecified with the specified path
taken relative to the directory.

=cut

sub path_for_file_with_relative_path
{
    my $self = shift;
    my $path = shift || return;
    my <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10145	10267	
==>ift;
    my $link = shift;
    my $to = $link->attr('to');
    my $section = $link->attr('section');
    
    return unless <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	11042	11154	
==>undef only matches undef and nothing else
        my $test = !defined $got && !defined $expect;

        $self->o <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	11460	11572	
==>undef only matches undef and nothing else
        my $test = !defined $got && !defined $expect;

        $self->o <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3887	4024	
==>ess
{
    my ($self, $addr) = @_;

    return "interpreter->resume_offset = $addr; interpreter->resume_flag = 1";
}

=item C<restart_offse <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3018	3144	
==>ess
{
    my ($self, $addr) = @_;

    return "interpreter->resume_offset = $addr; interpreter->resume_flag = 1";
}

=back

=he <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23017	23131	
==>UATION;\n  dest = (opcode_t *)p->vtable->invoke(interpreter, p, dest);\n  {{=dest}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	608	713	
==>use warnings;

use base qw( Pod::Simple::HTML );

# This is just here to keep Pod::Simple::HTML's version_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106191	1106299	
==>ops/experimental.ops\"\n    int typ = {{\@2}};\n    if (typ < 1 || typ >= interpreter->n_vtable_max)\n\treal_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107167	1107275	
==>ops/experimental.ops\"\n    int typ = {{\@2}};\n    if (typ < 1 || typ >= interpreter->n_vtable_max)\n\treal_ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	254	378	
==>state} ||= Regex->global_state();
}

# R (seq, R, S, ...) : return R && S && ...
# R (scan, R) : scan for R at every position <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	6027	6134	
==>e { # that's the end.  Byebye
        $self->SUPER::parse_lines(undef);
        delete $self->{'source_scala <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43659	43859	
==>rc/ops/core.ops\"\n  Parrot_push_mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44303	44503	
==>rc/ops/core.ops\"\n  Parrot_push_mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	190	357	
==>File::Basename;
use File::Spec::Functions;
use Parrot::Config;


=head1 NAME

Test/Regex.pm - Testing routines specific to 'regex'.

=head1 DESCRIPTION

Does the same a <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	4848	4989	
==>ss $opt; # Ignore blank lines

            if ($opt =~ /-mno-accumulate-outgoing-args/) {
                use Config;
                if ($Con <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	3413	3550	
==>abel references and follow goto's until the
    # final destination of each is reached, then replace the original
    # reference.

    fo <==
2	/Users/nnunley/parrot/config/auto/jit.pm	1838	2040	
==>arch =~ s/i[456]86/i386/i;

    $conf->data->set(
        archname => $archname,
        cpuarch  => $cpuarch,
        osname   => $osname
    );

    my $jitarchname = "$cpuarch-$osname";
    my ($jitca <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	17264	17386	
==>able in the generated file

sub interpolate {
    my $code = shift;
    my $op1  = shift;
    my $op2  = shift;
    $code = <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	478	711	
==>his file generates a set of F<MANIFEST.*> files that give the final
locations in the file system for all the installable files listed in
F<MANIFEST> and F<MANIFEST.generated>.

It does NOT generate the F<MANIFEST> file that F<Configur <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	21918	22013	
==>g() is often used in conjunction with
a failing test (C<ok() || diag()>) it "passes through" the <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28443	28601	
==>) = @_;
    my @opcodes = ();
    unless ( defined $e_step ) {
        $e_step = BuildLiteral( $parser, 1, 'number' );
    }
    push @opcodes, @{ $e_star <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	452	608	
==>arrot::Docs::Section );

use Parrot::Docs::Item;

=item C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shift;
    
    return $self->SUPER: <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7453	7561	
==>MP0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP0} = concat "0"
${PARA <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	9208	9355	
==>l .= "_data" if $TypeLong;
			} elsif ($undef) {
			    $symbol = $TypeLong ? "undef" : "U";
			} else {
			    $symbol = $TypeLong ? "unknown" : "? <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	5735	5874	
==>>catfile( $DIR, '*.t' ) ;

    if (@files) {
        return runtests(@files);
    } else {  
        return;
    }
}

##
## my $string = une <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	32036	32167	
==>CTIONS => {
			"-" => 24,
			'TRUE' => 25,
			'NOT' => 27,
			'STRING' => 29,
			'NIL' => 30,
			'FALSE' => 33,
			'FUNCTION' <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37502	37633	
==>CTIONS => {
			"-" => 24,
			'TRUE' => 25,
			'NOT' => 27,
			'STRING' => 29,
			'NIL' => 30,
			'FALSE' => 33,
			'FUNCTION' <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7205	7338	
==>ct})	       ? $options{reject}
		    :					 ''
		    ;
	my $ignore  = ref($options{ignore}) eq 'ARRAY' ? join('|', @{$options{ignore}} <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24207	24340	
==>ct})	       ? $options{reject}
		    :					 ''
		    ;
	my $ignore  = ref($options{ignore}) eq 'ARRAY' ? join('|', @{$options{ignore}} <==
2	/Users/nnunley/parrot/examples/benchmarks/stress.pl	759	843	
==>arks/stress2.pasm>, 
F<examples/benchmarks/stress2.pl>, 
F<examples/benchmarks/stress <==
2	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	820	904	
==>arks/stress2.pasm>, 
F<examples/benchmarks/stress2.pl>, 
F<examples/benchmarks/stress <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	12061	12238	
==>test_no);
            }
            elsif ( $func =~ m/^pbc_output_/ ) {
                $code_f = per_test('.pbc', $test_no);
            }
            else {
                di <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2923	3071	
==>tional test harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # test <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4320	4468	
==>tional test harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # test <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Compilers.pm	1080	1190	
==>ract Syntax Tree',
            'compilers/past' ),
        $self->new_group( 'POST', 'the Parrot/Punie Opcode <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676010	676099	
==>ne 473 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_integer(interpreter, {{\@1}}, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676790	676879	
==>ne 473 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_integer(interpreter, {{\@1}}, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611178	611325	
==>\"\n    VTABLE_set_attr(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612081	612228	
==>\"\n    VTABLE_set_attr(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	604554	604874	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "removeparent",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
2	/Users/nnunley/parrot/lib/Test/More.pm	29091	29206	
==>Refs_Seen = %Refs_Seen;

    {
        # Quiet uninitialized value warnings when comparing undefs.
        local $^W <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11654	11841	
==>currline="" unless defined $currline;
	my @ld=();
	feedme();
OUTDATA:while($type[CURR] !~ /COMP|COMM|STMT/) {
		if ($syms[CURR] eq ",") {
			feedme();
			next;
		}
		if ($type[CURR] eq "PU <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13706	13809	
==>pect:  100, 12 and 103
type first
	foo as integer
	bar as string
end type
function mine (a, b, c as firs <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028023	1028123	
==>ops\"\n  opcode_t *next = {{^+2}};\n  if ({{\@1}} < 0) {\n      real_exception(interpreter, next, NEG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028874	1028974	
==>ops\"\n  opcode_t *next = {{^+2}};\n  if ({{\@1}} < 0) {\n      real_exception(interpreter, next, NEG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656459	656600	
==>->vtable->defined_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657383	657524	
==>->vtable->defined_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	725276	725566	
==>nterpreter, io, \"\\n\");\n  PIO_softspace(interpreter, io, 0);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	1467	1590	
==>ges2(
    map {; m/^([-a-z]+)/s && push @_to_accept, $1; $_ }
    qw[
      sample=samp
      definition=dfn
      kbd=keybo <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	3	135	
==>opyright (C) 2004, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Docs/Directory.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=h <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6215	6341	
==>* &end_gen */

#ifdef PARROT_IN_OBJECTS_C
static const char * const Parrot_mmd_func_names[] = {
EOM

    for my $entry (@{$vtab <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32521	32629	
==>t::_trace(q{<<Didn\'t match terminal>>},
						  Parse::RecDescent::_tracefirst($text))
							if defined $:: <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28246	28352	
==>t::_trace(q{<<Didn\'t match terminal>>},
						  Parse::RecDescent::_tracefirst($text))
					if defined $:: <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1549	1691	
==>$self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = $op->{op <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2209	2351	
==>$self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = $op->{op <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	25864	26060	
==>tring
 # in $delim contains one or more of '(){}[]<>').

	($extracted, $remainder) = extract_bracketed($text,$delim);


 # Extract the initial substring of $text that is bounded by
 # an HTML/XML t <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	212	338	
==>me_jump );

require "COMP_parsefuncs.pm";

sub init {
        @type[0..2]=("","","");
        @syms[0..2]=("","","");
	$seg="_b <==
2	/Users/nnunley/parrot/lib/Test/More.pm	28959	29172	
==>tack.  This avoids picking up
    # the same referenced used twice (such as [\$a, \$a]) to be considered
    # circular.
    local %Refs_Seen = %Refs_Seen;

    {
        # Quiet uninitialized value warnings when c <==
2	/Users/nnunley/parrot/config/auto/msvc.pm	1250	1439	
==>ion => undef);
        return $self;
    }

    my $major = int($msvc{_MSC_VER} / 100);
    my $minor = $msvc{_MSC_VER} % 100;
    unless (defined $major && defined $minor) {
        print " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642925	643203	
==>CODE" => 718,
                  "ARGS" => [
                              "i",
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 194 \"src/ops/pmc.ops\"\n  {{\@1}} = {{\@2}}->vtable->type_keyed <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2991	3248	
==>\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # test result
              | " ((?:[^"\\]|\\.)+) "   #" (keep my editor happy)
              | (\w+) )
    ]sx;

    while ($source =~ m[$regex]go) {
        my ($name, $expl, $body, <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4388	4593	
==>\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # test result
              | " ((?:[^"\\]|\\.)+) "   #" (keep my editor happy)
              | (\w+) )
        )
    }sx;

    whi <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37421	37525	
==>:RecDescent::_tracefirst($text),
				  q{' . $rule->{"name"} . '})
					if defined $::RD_TRACE;').'
		$Pa <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39824	39928	
==>:RecDescent::_tracefirst($text),
				  q{' . $rule->{"name"} . '})
					if defined $::RD_TRACE;').'
		$Pa <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	580	698	
==>raries', 'libs.html', '',
		$self->new_group('Parrot Core Libraries', '', 'runtime/parrot/library'),
		$self->new_group <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	57985	58195	
==>se characters will eventually
					be used to specify pre-lexed tokens
					in a grammar. That functionality is not
					yet implemented. Or did you misspell
					\"$code\"?");
				}
				else
				{
					_error(" <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32681	32812	
==>Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
						. $_tok . q{])},
						  Parse::RecDescent::_tracefirst($te <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	3368	3484	
==>nst_too>

Classes with this flag get 2 vtables and 2 enums, one pair with
read/write set methods, and one with read-o <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	18282	18403	
==>]),
					  q{' . $rule ->{name}. '})
						if defined $::RD_TRACE;').'
		my $thisprod = $thisrule->{"prods"}[' . $self->{" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047771	1048284	
==>ME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1171,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 162 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048694	1048961	
==>ME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 117 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133396	133850	
==>E" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 164,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 321 \"src/ops/bit. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134176	134444	
==>E" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 16 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367877	368131	
==>interpreter), (size_t){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368669	368923	
==>interpreter), (size_t){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8535	8742	
==>FIXME: Still have extra copy in many cases
    push @ops, "eq <rx_tmp>, -1, ".$self->output_label_use($fallback)." # was a mark?";
    push @ops, "set $reg, <rx_tmp> # nope, set pos := popped index"
      unl <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	5277	5459	
==>_list,
        pmc_names            => join(" ", @names),
        TEMP_pmc_o           => $TEMP_pmc_o,
        TEMP_pmc_build       => $TEMP_pmc_build,
        TEMP_pmc_classes_o   => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687611	687907	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "T <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688382	688678	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "T <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	6966	7144	
==>->c_pair_item('', 'tsq'),
        ),
        $self->new_group(
            'Exceptions',
            '',
            $self->c_pair_item('', 'exceptions'),
            $self->c_pai <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060064	1060168	
==>!{{\@2}})\n\tinternal_exception(1, \"Tried to get null name\");\n\n    next = {{^+3}};\n    {{\@1}} = Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060969	1061073	
==>!{{\@2}})\n\tinternal_exception(1, \"Tried to get null name\");\n\n    next = {{^+3}};\n    {{\@1}} = Par <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	45783	46029	
==>otelike operation from $text

		($op,$pat) = (extract_quotelike $text)[3,5];
		if ($op =~ /[ms]/)
		{
			print "search pattern: $pat\n";
		}
		else
		{
			print "$op is not a pattern matching operation\n";
		}


=head2 C<extract_quotelike> and "he <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	5395	5557	
==>t

sub jump
{
    my $self = shift;

    if (@_)
    {
        $self->{JUMP} = shift;
    }

    return $self->{JUMP};
}

=item C<full_body()>

For manual ops, C<f <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	28366	28475	
==>EBUG > 1 and print "=back found without a matching =over.  Stack: (",
            join(', ', map $_->[0], @$cu <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	372	485	
==>y $self = shift;
    my ( $path_to_parrot, $path_to_language, $count ) = @_;
 
    
    my $test_prog_args = $ENV{ <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	390	497	
==>y $self = shift;
    my ( $path_to_parrot, $path_to_language, $count ) = @_;

    my $test_prog_args = $ENV{ <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3919	4184	
==>n the line
        (                               # then contain one of...
        catch {                       # a catch statement

        |                               # or
        proc                            # a procedure definition
        test \s+ (\S+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	135903	136344	
==>re",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 167,
                  "ARGS" => [
                              "s",
                              "sc",
                              "s"
                            ],
                  "B <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	61144	61238	
==>bracketed>, C<extract_quotelike> or C<extract_codeblock> encountered
a closing bracket where no <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	25382	25518	
==>, $else ) = @_;
    my @opcodes = ();
    my $cond = get_cond( $parser, $expr );
    push @opcodes, @{ $cond->[1] };
    my $l_end  = <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8757	8864	
==>f return value and build code to pop it.
${ITEMP1} = elements ${STYPES}
dec ${ITEMP1}
${PTEMP0} = ${STYPES}[ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7329	7436	
==>f return value and build code to pop it.
${ITEMP1} = elements ${STYPES}
dec ${ITEMP1}
${PTEMP0} = ${STYPES}[ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	28775	28881	
==>start using $para_type for our own twisted purposes, to
      #  mean how it should get treated, not as wha <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6732	6845	
==>em (for me at least) because the browser thinks it should
	# download the file.
	
	if ( $self->has_suffix )
	{
		r <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	4133	4358	
==>ep->description();
        $description = "" unless defined $description;

        # set per step verbosity
        if (defined $verbose_step) {

            # by step number
            if ($verbose_step =~ /^\d+$/ && $n == $ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39992	40099	
==>cript_off,

#--------------------
#
# Macros
#
#--------------------

  'let-syntax'          => \&_op_let_s <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16632	16831	
==>er,
                    'result' => $result,
                );
                push @opcodes, new FindLexOp( $parser,
                    'result' => $result,
                    'arg1'   => $de <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10808	10981	
==>er, 'result' => $result, );
                    push @opcodes, new FindLexOp( $parser,
                        'result' => $result,
                        'arg1'   => $de <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	49812	49953	
==>s as the last opening bracket, return the substring to that
point. If the bracket was mismatched, return an error.

=item 2.

Try to match a q <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	3142	3300	
==>ko::Token->new(
        $file, $line, 'colon', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^([;])(.*)$}) {
      push @tokens, Jako::To <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5546	5654	
==>$$stack[-1][0];
        $actions=$$states[$stateno];

#DBG>	print STDERR ('-' x 40),"\n";
#DBG>		$debug & <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5279	5383	
==>$$stack[-1][0];
        $actions=$$states[$stateno];

#DBG>	print STDERR ('-' x 40),"\n";
#DBG>		$debug & <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	15716	15917	
==>,
			"*" => 27,
			"[" => 14,
			")" => 56,
			"." => 15
		},
		GOTOS => {
			'expr' => 28,
			'charclass' => 12,
			'range' => 25
		}
	},
	{#State 39
		ACTIONS => {
			'NUM' => 57,
			"." => 58,
			">" <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	24962	25138	
==>$arg_name = "I_ARG_$arg_num";
		}

        # tmethod
		elsif (/^tmethod$/) {
			$out =  "    \${I_ARG_$arg_num} = bc.read_tmethod()\n    next_pc += 4\n";
			$arg_name = "I_ARG_$ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	15811	16063	
==>e something in our buffer.  So apparently the document has started.
  unless($self->{'doc_has_started'}) {
    $self->{'doc_has_started'} = 1;
    
    my $starting_contentless;
    $starting_contentless =
     (
       !@$curr_open  
       and @$paras <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	593	678	
==>ot::Docs::Section::Info;
use Parrot::Docs::Section::Docs;
use Parrot::Docs::Section::E <==
2	/Users/nnunley/parrot/languages/regex/regex.pl	88	211	
==>ion;
my $expr;
my $expr_file;
my $tree_opt = 1;
my $list_opt = 1;
my $debug = 0;
my $output;
my $subname;
my $language = "pi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	840	928	
==>BUG unless defined &DEBUG
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	17823	18082	
==>eelet {
  my $self = shift;  # and ($para, $start_line)
  my $treelet;
  if(!@_) {
    return [''];
  } if(ref $_[0] and ref $_[0][0] and $_[0][0][0] eq '~Top') {
    # Hack so we can pass in fake-o pre-cooked paragraphs:
    #  just have the first line be a r <==
2	/Users/nnunley/parrot/config/auto/byteorder.pm	740	955	
==>if ($byteorder =~ /^1234/) {
        $conf->data->set(
            byteorder => $byteorder,
            bigendian => 0
        );
        $self->set_result('little-endian');
    } elsif ($byteorder =~ /^(8765|4321)/) <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	26292	26426	
==>t for third =extend parameter: like foo or bar,Baz,qu:ux but not like "
        . $elements_one
      );
      return;
    }

    my @f <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10287	10455	
==>{\$?}, qq{Y=}, qq{|}, 'SS', qq{"}, qq{(c)}, 'a', qq{<<}, qq{!}, "", qq{(r)}, qq{-},
'deg', qq{+-}, '2', '3', qq{'}, 'u', 'P', qq{*}, qq{,}, '1', 'o', qq{>>}, qq{1/4}, qq <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638530	638891	
==>nstantiate",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "function",
                  "CODE" => 714,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 128 \"src <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	14524	14632	
==>e Example 3 below for an example of initialization.

=head1 EXAMPLES

=over 4

=item Example 1

Giving a stru <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	11947	12116	
==>following notations:
        #
        #   .ops file          Op body  Meaning       Comment
        #   -----------------  -------  ------------  ----------------------- <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	11	93	
==>rot/languages/regex/lib/Regex/CodeGen/Re.pm 18978 2006-04-30T14:02:48.452322Z bernh <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	3038	3182	
==>to do global (once) setup
 * whatever is needed to get this extension running
 */

EOC
    $cout .= <<"EOC";

PARROT_DYNEXT_EXPORT extern Parrot_ <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	636	823	
==>.dump files, also create libfoo.c
containing the initialization function for all fooX PMCs.

    % perl tools/build/pmc2c.pl --library libfoo -c \
           src/pmc/foo1.pmc src/pmc/foo2. <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3161	3261	
==>So you can test C<ref($node)> to see whather you have
an element node or just a text node.

The top n <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4418	4519	
==>rget, $pattern, $captures) = @_;
    $target = _parrot_stringify($target);
    $pattern = _parrot_stri <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6923	7024	
==>rget, $pattern, $captures) = @_;
    $target = _parrot_stringify($target);
    $pattern = _parrot_stri <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	2346	2503	
==>g_c.pl'),
            $self->new_item('', 'tools/build/pmc2c.pl'),
            $self->new_item('', 'tools/build/revision_c.pl'),
            $self->new_item(' <==
2	/Users/nnunley/parrot/lib/Test/More.pm	25968	26200	
==>k = $Test->ok(1, $name);
        }
        else {
            $ok = $Test->ok(0, $name);
            $Test->diag(_format_stack(@Data_Stack));
        }
    }

    return $ok;
}

sub _format_stack {
    my(@Stack) = @_;

    my $var = <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	97	296	
==>2006-06-20T20:02:00.179448Z bernhard  $

=head1 NAME

Parrot::Op - Parrot Operation

=head1 SYNOPSIS

  use Parrot::Op;

=head1 DESCRIPTION

C<Parrot::Op> represents a Parrot operation (op, for short) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	6422	6542	
==>) {
#printf STDERR "IDENT [%s:%d]: '%s'\n", $file, $line, $1;
      push @tokens, Jako::Token->new(
        $file, $line, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845352	845859	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 959,
                  "ARGS" => [
                              "i",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 45 \"src/ops/string.ops\"\n  { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191428	191658	
==>S" => [
                              "p",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 313 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	44455	44633	
==>rn $return;
}

sub generate {
  my $tree = shift;

  my $self = Scheme::Generator->new({});
  my $temp;

  $self->{scope} = {};

  $temp = $self->_generate($tree);

  $self->_rest <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	6640	6871	
==>][^{]*?)}}/  $trans->goto_address($1); /me;

    s/{{\^(-?\d+)}}/      $1                        /me;
    s/{{\^\+([^{]*?)}}/   $trans->expr_offset($1);  /me;
    s/{{\^-([^{]*?)}}/    $trans->expr_offset(-$1); /me;
    s/{{\^([^{]* <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64715	64820	
==>ammar =~ m/$BETWEEN/gco)
				{
					_parse("a $1-to-$2 subrule match", $aftererror,$line,"$code$argcode($1 <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3100	3276	
==>';

    while ( $parser->YYData->{INPUT} ) {

        for ( $parser->YYData->{INPUT} ) {

            s/^'//
                and return ( $type, $str );

            s/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105457	1105869	
==>perimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	23362	23479	
==>tref =~ /\G(.)/gcs)
			{
				$unkpos = pos($$textref)-1
					unless $igunk || defined $unkpos;
			}
		}
		
		if (defin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50212	50396	
==>se         { Interp_flags_CLEAR(interpreter, PARROT_PROFILE_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51005	51189	
==>se         { Interp_flags_CLEAR(interpreter, PARROT_PROFILE_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4249	4350	
==>run_core_func_decl($core)>

Returns the C code for the run core function declaration.

=cut

sub run_c <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2737	2838	
==>run_core_func_decl($core)>

Returns the C code for the run core function declaration.

=cut

sub run_c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650571	650681	
==>Y" => "#line 247 \"src/ops/pmc.ops\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtable_max)\n        {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651493	651603	
==>Y" => "#line 247 \"src/ops/pmc.ops\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtable_max)\n        {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	459	563	
==>nd using the
Parrot house-style provided by C<Parrot::HTMLPage>.

=head2 Instance Methods

=over

=cut

p <==
2	/Users/nnunley/parrot/config/auto/msvc.pm	1434	1599	
==>rint " (no) " if $verbose;
        $self->set_result('no');
        $conf->data->set(msvcversion => undef);
        return $self;
    }

    my $msvcversion = "$major <==
2	/Users/nnunley/parrot/config/inter/make.pm	2034	2135	
==>if ($stdout =~ /GNU \s+ Make \s+ (\d+) \. (\d+)/x) {
        $conf->data->set(gmake_version => "$1.$2" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656440	656528	
==>@2}}) ? 0 : {{\@2}}->vtable->defined_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657364	657452	
==>@2}}) ? 0 : {{\@2}}->vtable->defined_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}} <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5742	5886	
==>rint STDERR "Stack:[".
#DBG>					 join(',',map { $$_[0] } @$stack).
#DBG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				de <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5468	5605	
==>rint STDERR "Stack:[".
#DBG>					 join(',',map { $$_[0] } @$stack).
#DBG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				de <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736712	736985	
==>){{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737458	737731	
==>){{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "se <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17330	17479	
==>> 36
		},
		GOTOS => {
			'exp' => 95,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5413	5545	
==>=(undef,undef);
	@$stack=( [ 0, undef ] );
	$$check='';

    while(1) {
        my($actions,$act,$stateno);

        $stateno= <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5153	5278	
==>=(undef,undef);
	@$stack=( [ 0, undef ] );
	$$check='';

    while(1) {
        my($actions,$act,$stateno);

        $stateno= <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	5819	5933	
==>xit(0);


sub write_index {
    print "Writing $HTMLDIR/index.html..\n" if $DEBUG;
    open (OUT, ">$HTMLDIR/index. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853418	853716	
==>, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854200	854498	
==>, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLA <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	1654	1766	
==>tref) = $remainderpos-$extralen+1; # RESET \G
		}
		else {
			pos($$textref) = $remainderpos;		    # RESET \G
		} <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	6383	6483	
==>e);
    */
    exit(0);
}

static opcode_t* run_compiled(Interp *interpreter, opcode_t *cur_opcode, o <==
2	/Users/nnunley/parrot/config/auto/format.pm	1011	1244	
==>f-style format specifier for type \"$iv\"\n";
    }

    $nvsize = $floatsize;
    if ($nv eq "double") {
        $nvsize   = $doublesize;
        $nvformat = "%f";
    } elsif ($nv eq "long double") {

        # Stay way from long do <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	5601	5930	
==>lDir( $parser, 
        'result' => $result,
    );
    push @opcodes1, new NewOp( $parser,
        'result' => $result,
        'arg1'   => '.LuaTable',
    );
    my $num_key;
    while ( my $field = shift @{$fields} ) {
        my ( $val, $key );
        if ( scalar( @{$field} ) == 1 ) {
            $val = $field-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	34951	35476	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_addr",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 44,
                  "ARGS" => [
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 637 \"src/ops/ <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	407	734	
==>his doesn't ever seem to be used...
use Test::Harness;

$|=1;

our ($opt_u, $opt_h, $opt_c);
getopts('uhc');

=head1 NAME

tcl-test.pl

=head1 DESCRIPTION

Run the tests from the Tcl distribution. This script will download
the tests from the Tcl CVS repository, convert them into a a TAP-style
protocol that can then use Test::H <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	50467	50561	
==>or,$line);
				$item = new Parse::RecDescent::Directive(
					'Text::Balanced::extract_variable <==
2	/Users/nnunley/parrot/config/init/defaults.pm	5521	5639	
==>(MAKE)
        make_c => '$(PERL) -e \'chdir shift @ARGV; system q{$(MAKE)}, @ARGV; exit $$? >> 8;\'',

        # if pl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151015	151113	
==>"#line 112 \"src/ops/cmp.ops\"\n  if (0 == string_equal(interpreter,\n      {{\@1}}->vtable->get_st <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151993	152091	
==>"#line 112 \"src/ops/cmp.ops\"\n  if (0 == string_equal(interpreter,\n      {{\@1}}->vtable->get_st <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	32683	32946	
==>t_delimited $text, q{"'};


	# Delete the substring delimited by the first '/' in $text:

		$text = join '', (extract_delimited($text,'/','[^/]*')[2,1];

Note that this last example is I<not> the same as deleting the first
quote-like pattern. For instance, if C<$t <==
2	/Users/nnunley/parrot/lib/Test/More.pm	6071	6174	
==>$this eq $that, $test_name);

This simply evaluates any expression (C<$this eq $that> is just a
simple e <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1646	1740	
==>ERSAL::isa($type, "Jako::Construct::Type");

  my $type_name = $type->name;

  $self->INTERNAL_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1494	1588	
==>ERSAL::isa($type, "Jako::Construct::Type");

  my $type_name = $type->name;

  $self->INTERNAL_ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	47971	48103	
==>s,0,$implicit);
			pos $grammar = $pos;;
		}
		elsif ($grammar =~ m/$ENDDIRECTIVEMK/gco)
		{

		# EXTRACT TRAILING REPETITION SPECIFI <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	2175	2306	
==>se vars qw($VERSION);

require 5.005;

$VERSION = sprintf "%d.%d", q$Revision: 19607 $ =~ /(\d+)/g; # jhi@iki.fi;

my $ME = basename <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	983	1109	
==>=> [ map { $self->convert($_, $ctx) } @{ $tree->branches } ]);
}

sub convert_rx_seq {
    my ($self, $tree, $ctx) = @_;
    re <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	4553	4757	
==>>{fulltextlen}-length(${$_[0]->{text}})+$_[0]->{prev};
}

sub STORE
{
	die "Can't set current offset via \$thisoffset or \$prevoffset\n";
}



package Parse::RecDescent::Rule;

sub new ($$$$$)
{
	my $class <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9253	9365	
==>concat ${STEMP0}
${INS} = concat "\n"

# Decrement stack height.
dec stack_depth
PIR
	}

	return $pir;
}

# Pre a <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6771	6883	
==>concat ${STEMP0}
${INS} = concat "\n"

# Decrement stack height.
dec stack_depth
PIR
	}

	return $pir;
}

# Pre a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59319	59495	
==>src/ops/core.ops\"\n  PARROT_WARNINGS_on(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59967	60143	
==>src/ops/core.ops\"\n  PARROT_WARNINGS_on(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ] <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2410	2508	
==>'ll emit a label for every single instruction. While we kinda find
	# basic blocks, we don't discov <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	988	1086	
==>'ll emit a label for every single instruction. While we kinda find
	# basic blocks, we don't discov <==
2	/Users/nnunley/parrot/config/auto/jit.pm	5697	5845	
==>itcpuarch  => $cpuarch,
            jitcpu      => $cpuarch,
            jitosname   => $osname,
            jitcapable  => 0,
            execcapabl <==
2	/Users/nnunley/parrot/config/auto/gdbm.pm	1721	1884	
==>t eq "gdbm is working.\n") {
            $has_gdbm = 1;
            print " (yes) " if $verbose;
            $self->result('yes');
        }
    }
    unless ($has_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2858	2984	
==>$) {
	my $self = shift;
	my ($pops, $pushes) = @_;
	my $register_num = 0;
	my $push_num = 0;
	my $pir = '';

	# Do code for eac <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1780	1906	
==>$) {
	my $self = shift;
	my ($pops, $pushes) = @_;
	my $register_num = 0;
	my $push_num = 0;
	my $pir = '';

	# Do code for eac <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864164	864426	
==>erpreter, {{\@2}}));\n  }\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	865056	865318	
==>erpreter, {{\@2}}));\n  }\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	13321	13502	
==>{
                print OUT qq($atag<font color="red">$_</font>)
            } else {
                print OUT $_;
            }
        }
    }
}


sub page_header {
    my ($title <==
2	/Users/nnunley/parrot/Configure.pl	7411	7574	
==>fig=none    can be used to disable the autodetection feature.
                        It will also be disabled if you specify any other
                        of t <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1126	1222	
==>>text_r()

This returns a scalar reference to the string that this token holds.
This can be usefu <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2959	3084	
==>> "IREG(%ld)",

    'ic' => "%ld",
    'nc' => "CONST(%ld)->u.number",
    'pc' => "CONST(%ld)->u.key",
    'sc' => "CONST(%ld <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	13236	13408	
==>= $p = $type_map{$c};
	    $type = 'NCI';
	}
	$globals{$c} = $c;
	print <<"EOC";
	.local $type $c $cmt
	$c = global "$c"
EOC
    }
    push @stack, [$c, $p, 'P'];
}

sub PRI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684615	684735	
==>BODY" => "#line 550 \"src/ops/pmc.ops\"\n      {{\@1}}->vtable->setprop(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n      { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685510	685630	
==>BODY" => "#line 550 \"src/ops/pmc.ops\"\n      {{\@1}}->vtable->setprop(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n      { <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	3573	3727	
==>by underscore-separated argument types
are appended to the name.

=cut

sub full_name
{
    my $self = shift;
    my $name = $self->name;
    my @arg_types <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221508	221737	
==>=> [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 484 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(inter <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	929	1051	
==>S => $props,
    ARGS  => undef,

    DEBUG => 1,
    FILE  => $ident->file,
    LINE  => $ident->line
  }, $class;

  $blo <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	2085	2421	
==>andle->new('>' . $self->path) or 
        die 'Failed to open ' . $self->path . ": $!";
    
    print $fh @_;
    
    $fh->close;
}

=item C<append(@lines)>

Writes the specified lines to the file.

=cut

sub append
{
    my $self = shift;
    
    return unless @_;
    
    my $fh = FileHandle->new('>>' . $self->path) or 
        di <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33737	33863	
==>para, splice @{shift @$paras},2;
            } else {
              DEBUG and print "Can't assimilate following ", $paras->[0][ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35550	35676	
==>para, splice @{shift @$paras},2;
            } else {
              DEBUG and print "Can't assimilate following ", $paras->[0][ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679142	679259	
==>mc.ops\"\n    {{\@1}}->vtable->unshift_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679921	680038	
==>mc.ops\"\n    {{\@1}}->vtable->unshift_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	568	678	
==>leaving out the archname, version_dir, version_arch_dir
# and inc_version_list code from lib.pm because I am ho <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7086	7182	
==>str(s1$, "")
print "Start (11): ", instr(6, s1$, " ")
print "Inval  (0): ", instr(4, bogus$, "t") <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18815	18911	
==>str(s1$, "")
print "Start (11): ", instr(6, s1$, " ")
print "Inval  (0): ", instr(4, bogus$, "t") <==
2	/Users/nnunley/parrot/lib/Test/More.pm	24884	25007	
==>tures are different, it
will display the place where they start differing.

Test::Differences and Test::Deep provide more in <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	44837	45053	
==>enerator - The Scheme code generator

=head1 SYNOPSIS

  use Scheme:Generator;

  my @code = Scheme::Generator->new($code_tree)->generate();

=head1 DESCRIPTION

The code generator reads in a tree structure, and walks <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683602	683825	
==>"CODE" => 767,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 522 \"src/ops/pmc.ops\"\n    {{\@1}} = {{\@2 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1664	1823	
==>Ops->new,
        Parrot::Docs::Section::IMCC->new,
        Parrot::Docs::Section::Perl->new,
        Parrot::Docs::Section::Libs->new,
        Parrot::Docs::Se <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608995	609425	
==>,
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 690,
                  "ARGS" => [
                              "p",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 478 \"src/ops/object.ops\"\n    {{\@1}} = VTABLE_get_attr_str(interpreter, {{\@2}}, {{\ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	119	238	
==>';
@ISA       = qw(Exporter);
@EXPORT_OK = qw(tokenize);

use Data::Dumper;

sub tokenize {
  my $file = shift;
  my $te <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	2395	2562	
==>nctions {
    my( $package ) = @_;

    for my $func ( keys %$test_map ) {
        no strict 'refs';

        *{ $package . '::' . $func } = sub ($$;$%) {
            m <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21889	22043	
==>t;
      }
      
      unless($content =~ m/^\S+$/) {  # i.e., unless it's one word
        $self->whine(
          $para->[1]{'start_line'},
          "' <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10818	10916	
==>[10],15,0xa3014314,/* 59 */
II,$b,$c,$d,$a,$_[17],21,0x4e0811a1,/* 60 */
II,$a,$b,$c,$d,$_[8],6,0xf <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5504	5604	
==>rn <<'PIR';
# See if we've got a return or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETUR <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6949	7048	
==>rn <<'PIR'
# See if we've got a return or something to call.
if ${ARGCOUNT} == 0 goto PRE_CALL_RETUR <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4260	4390	
==>calls{$1}{"$file:$function"}++ 
                  unless ($variable_visible{$file}{$1} || 
                          $variable_visi <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4525	4653	
==>calls{$1}{"$file:$function"}++
                  unless ($variable_visible{$file}{$1} ||
                          $variable_visi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656425	656515	
==>PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed_int(interpreter, {{\@2}}, {{\@3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657349	657439	
==>PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed_int(interpreter, {{\@2}}, {{\@3}} <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	6098	6402	
==>0.0 goto print_value_1
    result .= unicode:"\u207b"
    value = abs value
  print_value_1:
    $S0 = value
    result .= $S0
    ret
.end

.sub 'aplprint'
    .param pmc arg

    $S0 = aplformat(arg)
    say $S0
.end

# XXX - the first argument to this multi sub should be some variant of
# integer - bu <==
2	/Users/nnunley/parrot/lib/Test/More.pm	36768	36876	
==>lays well with Test::More.

L<Test::Class> is like XUnit but more perlish.

L<Test::Deep> gives you more powe <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	5394	5499	
==>t
EOC
    my (@params, $k, $v, $params);
    while ( ($k, $v) = each(%{$def_arg_names{$arg}})) {
	$k =~ s/ <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	115	289	
==>st::Bc;

use strict;
use warnings;

use Data::Dumper;
use File::Basename;

use Parrot::Test;
use Parrot::Test::Bc::Antlr2;
use Parrot::Test::Bc::Antlr3;
use Parrot::Test::Bc:: <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6150	6348	
==>{ACTIONS}{$$token}
                    :   exists($$actions{DEFAULT})
                        ?   $$actions{DEFAULT}
                        :   undef;
        }
        else {
            $act <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5861	6053	
==>{ACTIONS}{$$token}
                    :   exists($$actions{DEFAULT})
                        ?   $$actions{DEFAULT}
                        :   undef;
        }
        else {
            $act <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238176	238412	
==>" => [
                              "i",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 606 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpr <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12570	12711	
==>s...)
    s/DYNSELF           # Macro: DYNSELF
      \.(\w+)           # other_method
      \(\s*(.*?)\)      # capture argument list
     /"p <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30871	31007	
==>.= <<EOC;
	internal_exception(WRITE_TO_CONSTCLASS,
		"$meth() in $classname");
        $ret
EOC
    }
    $cout .= <<"EOC";
}

EOC
    $c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118211	118493	
==>shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 147,
                  "A <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	1625	1773	
==>gicals($pir, $metavars);

# Append any custom subs that the SRM wants.
my $csubs = $srm->subs();
$pir .= sub_meta($csubs, {}, 'custom subs');

# Fina <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24655	24763	
==>r var = start to finish [step increment]
	my($endexpr, $stepexpr, @stepcode);

	$forloop++;
	feedme();

	# Th <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12325	12450	
==>ll' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 9
		A <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	4665	4775	
==>escription)>

Compiles and runs the C code, passing the test if output matches the
expected result.

=item C<c_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046937	1047368	
==>IRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1170,
                  "ARGS" => [
                              "kc",
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476562	476890	
==>"fdiv",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 546,
                  "ARGS" => [
                              "i", <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	13989	14148	
==>-28,
		GOTOS => {
			'number' => 39,
			'rulename' => 17
		}
	},
	{#State 23
		ACTIONS => {
			"?" => undef
		},
		DEFAULT => -17
	},
	{#State 24
		ACTIONS => { <==
2	/Users/nnunley/parrot/tools/util/pirtidy.pl	1046	1144	
==>beral about how it formats your file -- it has
no qualms about converting your script to use a maxi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576580	576870	
==>ass(interpreter, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577592	577882	
==>ass(interpreter, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	5321	5423	
==>set a description for you, so don't pass
one.

=item C<example_output_isnt( $example_f, $expected, @tod <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2765	2880	
==>is line in main routine should be skipped"
Label1:
   PRINT "5 back in module-level code"
   END
Sub1:
   PRINT "2 i <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16732	16847	
==>is line in main routine should be skipped"
Label1:
   PRINT "5 back in module-level code"
   END
Sub1:
   PRINT "2 i <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	35063	35199	
==>_my_exit( 255 ) && return;
        }

        _my_exit( $num_failed <= 254 ? $num_failed : 254  ) && return;
    }
    elsif ( $self->{Sk <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	6060	6297	
==>->{'name'}\n";
                } else {
                    $has_push = 1;
                }
            } else {
                die "Invalid value for push in rule $rule->{'name'}\n";
            }
        }

        # pop
        elsif <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16001	16169	
==>value);

  return $return;
}

sub _op_null_p {
  my ($self, $node) = @_;
  my $return = $self->_save_1 ('I');
  my $label = $self->_gensym();

  _num_arg ($node, 1, 'nul <==
2	/Users/nnunley/parrot/config/gen/icu.pm	208	309	
==>ropriate targets to the Makefile.

=cut

package gen::icu;

use strict;
use vars qw($description @args <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	9103	9282	
==>);
        if ( defined $defn ) {

            # local variable
            if ( scalar( @{$var} ) ) {
                my $result   = $defn;
                my $last_key = po <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798392	798834	
==>S" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 901,
                  "ARGS" => [
                              "p",
                              "k",
                              "nc"
                            ],
                  "BODY" => "#line 462 \"src/ops/se <==
2	/Users/nnunley/parrot/config/inter/libparrot.pm	542	676	
==>er';

$description = 'Determine if parrot should be linked against a shared library';

@args = qw(ask parrot_is_shared);

sub run <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	8889	9041	
==>'some_memalign',
             'mkdir' => 'perl -MExtUtils::Command -e mkpath',
             'msvcversion' => undef,
             'ncilib_link_extra' => ' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3001	3142	
==>le v$Pod::Simple::VERSION doesn't implement UTF16 yet."
        );
        splice @_;
        push @_, undef;
        next;

        # TODO: i <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3399	3540	
==>le v$Pod::Simple::VERSION doesn't implement UTF16 yet."
        );
        splice @_;
        push @_, undef;
        next;

        # TODO: i <==
2	/Users/nnunley/parrot/config/auto/pack.pm	827	1010	
==>_t_size') {
        my $which = $_ eq 'intvalsize' ? 'packtype_i' : 'packtype_op';
        my $size = $conf->data->get($_);
        my $format;
        if (($] >= 5.006) && ($size == $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3319	3512	
==>nodes...> ]>


=head1 SEE ALSO

L<Pod::Simple>

L<perllol>

L<The "Tree" subsubsection in XML::Parser|XML::Parser/"Tree">

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  Al <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	328	479	
==>1 DESCRIPTION

Does the same a 'languages/regex/test.pl'

=cut

my $PARROT_EXE = File::Spec->catfile( File::Spec->updir(), $PConfig{test_prog} );

sub r <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16520	16627	
==>stribute it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artisti <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1734	1841	
==>stribute it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artisti <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9235	9350	
==>at " = "
${INS} = concat ${STEMP0}
${INS} = concat "\n"

# Decrement stack height.
dec stack_depth
PIR
	}

	return $ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6753	6868	
==>at " = "
${INS} = concat ${STEMP0}
${INS} = concat "\n"

# Decrement stack height.
dec stack_depth
PIR
	}

	return $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	8981	9164	
==>inlen() }
sub maxlen { my ($op) = @_; $op->{args}->[1]->maxlen() }
sub startset { my ($op) = @_; $op->{args}->[1]->startset() }
sub hasback { my ($op) = @_; $op->{args}->[1]->hasback() <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744293	744515	
==>{{\@1}} = string_from_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745059	745281	
==>{{\@1}} = string_from_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	615	803	
==>print OUT $protos;

print OUT <<'EOF';

#endif
EOF

close OUT or die $!;

open OUT, ">src/extend_vtable.c" or die $!;

print OUT $header, <<'EOF';

/*
Copyright (C) 2001-2003, 2005, The Per <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	625966	626106	
==>(_reg_base + cur_opcode[2 + i]);\n                break;\n            default:\n                internal_exception(1, \"unhandled sig_bits\") <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6922	7109	
==>k
{
  my $self = shift;  # Required: Jako::Construct::Block
  my $kind = shift;  # Required: string (TODO: domain)
  my $label = shift; # Optional: string (TODO: domain)

  confess "No blo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557730	557831	
==>line 131 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next = {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559114	559215	
==>line 131 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next = {{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2738	2839	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub new {
  my $new = shift->SUPER::new(@_);
  #$new->nix_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3094	3193	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sub new {
  my $new = shift->SUPER::new(@_);
  $new->nix_ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1449	1630	
==>data => $tests->{$t},   },
        };
    }
}


push @EXPORT => keys %{$test_map};

use base qw( Parrot::Test Exporter );


my $b = Test::Builder->new();

my $path_to_parrot = $INC{" <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	2934	3059	
==>sed
my $prefix  = $trans->prefix();
my $suffix  = $trans->suffix();
# Used as ${defines}
my $defines = $trans->defines();
my $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5079	5178	
==>debug)=$$self{DEBUG};
#DBG>	my($dbgerror)=0;

#DBG>	my($ShowCurToken) = sub {
#DBG>		my($tok)='> <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4834	4929	
==>debug)=$$self{DEBUG};
#DBG>	my($dbgerror)=0;

#DBG>	my($ShowCurToken) = sub {
#DBG>		my($tok)='> <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5816	5953	
==>>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defined($$token)
            or	do {
				($$token,$$value)=&$lex($s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5540	5670	
==>>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defined($$token)
            or	do {
				($$token,$$value)=&$lex($s <==
2	/Users/nnunley/parrot/config/init/hints/vms.pm	434	556	
==>warnings on redefinition

        *Parrot::Configure::Step::cc_build = sub {
            my ($cc, $ccflags) = $conf->data-> <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12428	12530	
==>ift;

	if ( $#{$self->{"items"}} >= 0 )
	{
		my $subrule = $self->{"items"}[0]->issubrule();
		return $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921573	921950	
==>"i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1037,
                  "ARGS" => [
                              "s",
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line 316 \"src/ops/string.ops\"\n    {{\@1}}=Parrot_psprintf(interpreter <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6656	6749	
==>Generate name of register to hold value we pop off the stack.
${PTEMP1} = ${STYPES}[${ITEMP2}] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879140	879312	
==>i",
                              "i"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880244	880416	
==>i",
                              "i"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\n <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	8905	8994	
==>ay;
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	7545	7633	
==>ay;
  return
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/config/auto/inline.pm	2	199	
==>Copyright (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/config/auto/inline.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/inline.pm - Inline Compiler Support

=head1 DES <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	794	940	
==>ct::Expression::Value::Identifier');
  confess "Props are not hash!" if defined $props and ref($props) ne "HASH";
  confess "Args are not hash!" if <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	715	826	
==>ct::Expression::Value::Identifier');
  confess "Props are not hash!" if defined $props and ref($props) ne "HASH" <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	666	779	
==>_;

    my $file = "include/parrot/core_pmcs.h";
    open(OUT, ">$file.tmp");

    print OUT <<"END_H";
/*
 * DO N <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	4	145	
==>erl -w
# Copyright (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/tools/build/parrot_config_c.pl 20350 2006-06-25T03:57:27.771662Z petdanc <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5096	5205	
==>UG};
#DBG>	my($dbgerror)=0;

#DBG>	my($ShowCurToken) = sub {
#DBG>		my($tok)='>';
#DBG>		for (split('',$$ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4851	4955	
==>UG};
#DBG>	my($dbgerror)=0;

#DBG>	my($ShowCurToken) = sub {
#DBG>		my($tok)='>';
#DBG>		for (split('',$$ <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	1792	1965	
==>: : ($types) )? # optional type
        (?: = ([^?]*)  )? # optional default value

        (\+?)             # is this repeating?

        (\??)             # optional closi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	266	368	
==>89Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block::Loop::Continue;

use C <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	14396	14576	
==>k before perl 5.005.

Takes a quoted regular expression produced by qr//, or a string
representing a regular expression.

Returns a Perl value which may be used instead of the corre <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	210	335	
==>ead1 SYNOPSIS

	use Parrot::Docs::Section::Perl;

=head1 DESCRIPTION

A documentation section describing Perl modules in Parro <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	2971	3073	
==>y $suffix  = $trans->suffix();
# Used as ${defines}
my $defines = $trans->defines();
my $opsarraytype = <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	44	148	
==>s qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

$VERSION   = '0.01';
@ISA       = qw(Exporter);
@EX <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	47	151	
==>s qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

$VERSION   = '0.01';
@ISA       = qw(Exporter);
@EX <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	2143	2269	
==>fy instructions that may be the target
    # of control flow changing opcodes including the possible targets of ret
    # opcod <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11557	11663	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub unicode_escape_url {
  my($self, $s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107711	1108037	
==>,
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1226,
                  "ARGS" => [
                              "p" <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2221	2312	
==>smoke")) ||
    Compress::Bzip2::memBunzip($CGI->param("smoke")) ||
    $CGI->param("smoke") <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21684	21834	
==>>[-1][0] eq '=for' )
            ? ( " (Should be \"=end " . $curr_open->[-1][1]{'target'} . '")' )
            : ''
          )
        );
        DEB <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	769	865	
==>is creates a second section, with the heads of any files which had
familiar types, but from which <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	89	213	
==>593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/gen/makefiles.pm - Build files

=head1 DESCRIPTION

Generates th <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3584	3770	
==>ff => "\$X99", choose => 1 });
		push @{$code{$seg}->{code}}, "@code";
		feedme();
		if ($syms[CURR] eq ",") {
			feedme();
			next;
		}
	}

}
sub parse_input {
	feedme();
	my $promptcode <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	6481	6587	
==>KET
		$ldelpos+1, $endpos-$ldelpos-2,		# CONTENTS
		$endpos-1,  1,				# CLOSING BRACKET
		$endpos,    lengt <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	970	1063	
==>generate_lookup(@methods);

# Generate method code suppliers.
$output .= generate_bodies(@meth <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957946	958392	
==>ing",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1078,
                  "ARGS" => [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 581 \"src/ops/st <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600740	601097	
==>[
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 680,
                  "ARGS" => [
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 363 \"src/ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	7478	7611	
==>self = shift;
    my $token = shift;
    my $next = $self->get_token;
        
    return unless defined $next;
        
    unless( $ <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	3680	3780	
==>'';
}

=item C<parent_path()>

Returns the path of the containing directory.

=cut

sub parent_path
{ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	35045	35321	
==>esting functions for
complex data structures.


=item Threads

Test::More will only be aware of threads if "use threads" has been done
I<before> Test::More is loaded.  This is ok:

    use threads;
    use Test::More;

This may cause problems:

    use Test::More
    use threa <==
2	/Users/nnunley/parrot/config/auto/jit.pm	1407	1611	
==>== 1234) {
            $cpuarch = 'i386';
        } else {
            $cpuarch = 'ppc';
        }
    } elsif ($cpuarch =~ /MSWin32/) {
        $cpuarch = 'i386';
        $osname  = 'MSWin32';
    } elsif <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	340	502	
==>igure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining some sizes';

@args = qw(miniparrot);

sub runstep
{
    my ($self, $conf) = <==
2	/Users/nnunley/parrot/config/auto/signal.pm	324	423	
==>igure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining some signal s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	61	224	
==>his program is free software. It is subject to the same license
# as the Parrot interpreter.
#
# $Id: $
#

use strict;
eval "use warnings";

package Jako::Construct <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1619	1722	
==>nt;
      $compiler->emit(".endnamespace ${namespace}_CONT");
    }

    $compiler->emit("  goto ${prefi <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5989	6121	
==>ry->[4] =~ /_INT$/);
    next if ($entry->[4] =~ /_STR$/);
    next if ($entry->[4] =~ /_FLOAT$/);
    $macros .= <<"EOM";
        $e <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6407	6527	
==>ry->[4] =~ /_INT$/);
    next if ($entry->[4] =~ /_STR$/);
    next if ($entry->[4] =~ /_FLOAT$/);
    $macros .= <<"EOM" <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	328	440	
==>adds a few documentation-related
methods to do with POD and file type.

It's used by the documentation tools in F <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	13500	13736	
==>hs = new .FixedPMCArray\nsaved_ehs = "
    tmp = i
    gen_pir = concat tmp
    gen_pir = concat "\n"
NO_EH_HEADER:
    gen_pir = concat "pushmark 0\n"

    # Translation loop.
    ss_propogate = new .Hash
TRANS_LOOP:
    pc = bc.get_pos <==
2	/Users/nnunley/parrot/Configure.pl	9251	9376	
==>es
    auto::byteorder
    auto::va_ptr
    auto::pack
    auto::format
    auto::isreg
    auto::jit
    gen::cpu
    auto::f <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	806	994	
==>ethods

=over 4

=cut

package Parrot::OpTrans;

use strict;
use warnings;

=item C<new()>

Returns a new instance.

=cut

sub new
{ 
    return bless { }, shift; 
}

=back

=head2 Instance <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	14025	14154	
==>ar name=id>">
            <td colspan="12" class="indent3">
              <tmpl_loop name=summary>
                <span class="te <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2695	2800	
==>$cond } });
    $handler->start_element({ Name => 'block', Attributes => { kind => 'test' } });
    $handl <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3459	3564	
==>$cond } });
    $handler->start_element({ Name => 'block', Attributes => { kind => 'test' } });
    $handl <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	3152	3267	
==>lf->html_navigation, '../resources'));
    $index->append($index_html);
    $index->append(Parrot::Docs::HTMLPage->f <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2136	2225	
==>urns undef if unknown
  }
}

#------------------------------------------------------------ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2601	2690	
==>urns undef if unknown
  }
}

#------------------------------------------------------------ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	4971	5221	
==>ew_group(
            'Objects', 
            '',
            $self->c_pair_item('', 'objects'),
        ),
        $self->new_group(
            'Strings', 
            '',
            $self->c_item(
                '', 
                'pairs' => [' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	5501	5619	
==>"\[\<\(])
         )   # start on whitespace, sequence-start, or quote
         ( # something looking like a Perl token <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2067	2157	
==>n{\\pard\\li#rtfindent#\\s31\\keepn\\sb90\\sa180\\f2\\fs#head1_halfpoint_size#\\ul{\n",
 '/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035578	1035673	
==>NULL;\n\n    if (!PMC_IS_NULL(lex_pad))\n\tresult = VTABLE_get_pmc_keyed_str(interpreter, lex_pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036742	1036837	
==>NULL;\n\n    if (!PMC_IS_NULL(lex_pad))\n\tresult = VTABLE_get_pmc_keyed_str(interpreter, lex_pa <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4933	5038	
==>mc_type");
    $compiler->emit("  $pmc_reg = $dest");
    $compiler->emit("  global \"$dest_name\" = $pmc_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2996	3101	
==>mc_type");
    $compiler->emit("  $pmc_reg = $dest");
    $compiler->emit("  global \"$dest_name\" = $pmc_ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	9041	9158	
==>);
  $self->_add_inst("DONE_$label");

  $self->{regs} = pop @{$self->{frames}};
  $self->{scope} = $self->{scope}->{' <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39045	39210	
==>,
  'output-port?'          => \&_op_output_port_p,
  'current-input-port'    => \&_op_current_input_port,
  'current-output-port'   => \&_op_current_output_port,
  ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363443	363538	
==>.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, \"%f\", (double){ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364346	364441	
==>.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, \"%f\", (double){ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	1574	1685	
==>-assign');  }
sub is_assign        { return shift->is('assign');        }
sub is_bit_assign    { return shift->i <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7446	7551	
==>s stack.
	if (!$need_dest) {
		$pir .= <<'PIR'
inc stack_depth
lazy_moves = push ${LOADREG}
PIR
	}

	retur <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3217	3312	
==>pe = $self->type;

  if (UNIVERSAL::isa($type, 'Jako::Construct::Type::String')) {
    my $strin <==
2	/Users/nnunley/parrot/languages/lua/luac.pl	486	586	
==>rser->Run(@ARGV);

if ( exists $parser->YYData->{nb_error} ) {
    my $nb = $parser->YYData->{nb_e <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	19018	19210	
==>emp('I');
    if ($l && $l->[1]) {
	$l = $l->[1];
    }
    else {
	$l = 'P5';
    }
    push @stack, [-1, 'P5', 'P'];   # simulate the DUP_TOP
    print <<EOC;
	# except compare '$l' <=> $r->[ <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	10323	10435	
==>n_dir_nocase{$dirname}{lc($filename)});
        }
        $files_in_dir_nocase{$dirname}{lc($filename)}=$_;
    } <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	1870	2119	
==>le
            my $exit_code = Parrot::Test::run_command( 
                                \@test_prog, 
                                CD     => $self->{relpath}, 
                                STDOUT => $out_fn,
                                S <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2418	2599	
==>le
        my $exit_code = Parrot::Test::run_command(
            \@test_prog,
            CD     => $self->{relpath},
            STDOUT => $lua_out_fn,
            STDERR => $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2426	2650	
==>what;");
}

sub output_test {
    my ($self, $test, $val1, $val2, $dest) = @_;
    $val1 = value($val1);
    $val2 = value($val2);
    return "goto " . $self->output_label_use($dest) . " if $val1 $test $val2;";
}

sub output_ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2743	2884	
==>what");
}

sub output_test {
    my ($self, $test, $val1, $val2, $dest) = @_;
    $val1 = value($val1);
    $val2 = value($val2);
    return " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687609	687852	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688380	688623	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169907	170365	
==>_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 204,
                  "ARGS" => [
                              "p",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#li <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	669	839	
==>! defined $_;
         die "INPUT: expected" if ! /^INPUT:/;

         # Gather input, look for OUTPUT:
         $input = q{};
         undef $output;
         while (<$sp <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	8892	9110	
==>ode" : "T";
			} elsif ($data) {
			    if ($const) {
				$symbol = $TypeLong ? "const_init" : "R";
			    } elsif ($init) {
				$symbol = $TypeLong ? "init" : "D";
			    } elsif ($uninit) {
				$symbol = $TypeLong ? " <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	3125	3217	
==>patible changes to Parrot that invalidate existing bytecode files. This is the new experiment <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869639	870091	
==>=> [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 987,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 232 \"src/ops/string.ops\"\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701288	701640	
==>mdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 787,
                  "A <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	17176	17303	
==>print("matching dynalt[%<$counter>]\n"),
                 @R_ops,
		 aop('pushint', [ $counter, "dynamic alt counter" ]),
		 aop <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	5787	6096	
==>s %{$system_include{$include}}) {
                print "        $file\n";
            }
        }
    }
}


sub do_object {
    foreach my $obj (@files) {
        open(F, "nm -a $obj|") || die "Can't run nm on $obj\n";
        
        while(<F>) {
            chomp;
            
            my ($type, $symb <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	2608	2713	
==>acro descriptions, C<PC> and C<PC'> are the current
and next position within the Parrot code.

=over 4

=i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563313	563490	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addmethod",
                  "FLAGS" => ":object_classes",
                  "AR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564210	564387	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addmethod",
                  "FLAGS" => ":object_classes",
                  "AR <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	2460	2607	
==>onals need to be optional.\n"
            if $arg->{option} and not $arg->{optional};
            
        push @results, $arg;
    }
    
    retur <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	1116	1259	
==>'bin_dir' => '/opt/local/bin',
             'bison_version' => undef,
             'blib_dir' => 'blib/lib',
             'build_dir' => '/Users <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	11662	11922	
==>xc, $lastback) = @_;

    my @ops;
    push @ops, aop('check', [ 1, $lastback ])
      unless ($op->{nocheck});

    my $back = $self->genlabel('undo_charclass');
    my $next = $self->genlabel('after_charclass');

    push @ops, (
                         $sel <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	1495	1703	
==>containing a branch offset or address
    labelconst    an invar argument containing a branch offset or address
    labelvar      an inconst argument containing a branch offset or address

Argument direction i <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19598	19705	
==>ypename=$syms[CURR];
		feedme;
		$sourceline++;
		feedme;
		while($syms[CURR] ne "end") {
			my($name,$type) <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1526	1675	
==>sform's arguments.

=cut

sub args
{
    my $self = shift;

    if (@_)
    {
        $self->{ARGS} = [ @_ ];
    }
    else
    {
        return $sel <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1135	1284	
==>sform's arguments.

=cut

sub args
{
    my $self = shift;

    if (@_)
    {
        $self->{ARGS} = [ @_ ];
    }
    else
    {
        return $sel <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	21089	21259	
==>w{2})/;
                my $x = $1;
                $b->{'code'} =~ /^(\w{2})/;
                hex($x) <=> hex($1)
            } @rules;
            $pir .= "B2_BRANCH_$_ <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	2951	3142	
==>s+(-?\w+)/) {
                    local $_;
                    if (defined($values{$2})) {
                        $_        = "$prefix$1\t" . $values{$2};
                        $last_val = <==
2	/Users/nnunley/parrot/lib/Test/More.pm	29583	29968	
==>d ($e1 eq $e2) ) {
            $ok = 1;
        }
	elsif ( $not_ref ) {
	    push @Data_Stack, { type => '', vals => [$e1, $e2] };
	    $ok = 0;
	}
        else {
            if( $Refs_Seen{$e1} ) {
                return $Refs_Seen{$e1} eq $e2;
            }
            else {
                $Refs_Seen{$e1} = "$e2";
            }

            my $type = _type($e1);
            $typ <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	3807	3948	
==>but it works without C-Code.
You should use C<Digest::MD5> instead of this module if it is available.
This module is only usefull for

=over 4 <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	843	956	
==>CRIPTION

Benchmark Parrot against other interpreters.

=head1 CONFIGURATION

You must specify paths to executable <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954258	954346	
==>line 571 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_encoding_number_of_str(interpreter, { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955049	955137	
==>line 571 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_encoding_number_of_str(interpreter, { <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39196	39300	
==>unshift @{ $parser->YYData->{functs} }, \@opcodes2;
    my $result = new_tmp( $parser, 'pmc', 'function' <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	5388	5581	
==>f ($total_calls) {
                my $covered_calls = int(($percent/100) * $total_calls);
                $totals{calls} += $total_calls;
                $totals{covered_calls} += $covered_call <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20527	20633	
==>st;
	}

';
	return $code;
}

1;

package Parse::RecDescent::Action;

sub describe { undef }

sub sethashnam <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921079	921386	
==>n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sprintf", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921972	922279	
==>n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sprintf", <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15574	15664	
==>=~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
    return <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16753	16843	
==>=~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
    return <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12801	13012	
==>alue);
      next;
    }

    #
    # Block Termination:
    #
    #   }
    #   } continue {
    #   } else {
    #
 
    if ($token->is_close_brace) {
      my $cont;
    
      if ($self->get(1)->is_continue o <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11680	11775	
==>dctlpar\f1\fs%s\lang1024\noproof\sbasedon0 \snext0 pod-codeblock;}
{\*\cs21 \additive \lang1024\ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	2280	2397	
==>r->emit("  .return()"); # Fallthrough return() in case the code in the sub doesn't return anything
  $compiler->emit(" <==
2	/Users/nnunley/parrot/config/init/hints/netbsd.pm	83	207	
==>e strict;

sub runstep
{
    my ($self, $conf) = @_;

    my $ccflags = $conf->data->get('ccflags');
    if ($ccflags !~ /-pt <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	4099	4256	
==>'    , 206,
 'Iuml'     , 207,
 'ETH'      , 208,
 'Ntilde'   , 209,
 'Ograve'   , 210,
 'Oacute'   , 211,
 'Ocirc'    , 212,
 'Otilde'   , 213,
 'Ouml'     , <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	798	890	
==>ype) . ") is not!"   if defined $type and not UNIVERSAL::isa($type, qw(Jako::Construct::Type) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	680	770	
==>ype) . ") is not!" if defined $type and not UNIVERSAL::isa($type, qw(Jako::Construct::Type) <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7716	7952	
==>ext;
        }

        next unless @stack;

        if (/^\s*\#(\s*)(.*)/) {
            my $indent = "  " x (@stack);
            if ($1 ne $indent) {
                error($file, $line, "Improper indenting for \"$_\"\n(should be \"#$i <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	704	801	
==>ead1 SYNOPSIS

 require 5;
 use strict;
 package SomePodFormatter;
 use base qw(Pod::Simple::Metho <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2784	2885	
==>b new {
  my $new = shift->SUPER::new(@_);
  #$new->nix_X_codes(1);
  $new->nbsp_for_S(1);
  $new->acc <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3139	3239	
==>b new {
  my $new = shift->SUPER::new(@_);
  $new->nix_X_codes(1);
  $new->nbsp_for_S(1);
  $new->acc <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4215	4344	
==>self->file_and_directory_paths;
}

=item C<file_exists_with_name($name)>

Returns whether a file with the specified name exists in <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	564	680	
==>[\<\>\w]+\>)|[^\%]+)/g) {
        if ($part =~ /^\%/) {
            push @ops, $self->output_print(substr($part, 2, - <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	10760	10885	
==>rint <<EOC;
	$pmc = new .BigInt $cmt
	$pmc = "$c"
EOC
	push @stack, [$n, $pmc, 'P'];
	return;
    }
    elsif ($typ =~ /[US]/) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206214	206499	
==>on",
                  "CODE" => 243,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 394 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable- <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	327	431	
==>ted
				&extract_bracketed
				&extract_quotelike
				&extract_codeblock
				&extract_variable
				&extra <==
2	/Users/nnunley/parrot/config/init/optimize.pm	746	976	
==>ad. 
    my $optimize = $conf->options->get('optimize');
    if (defined $optimize) {
        $self->set_result('yes');
        # disable debug flags
        $conf->data->set(cc_debug => '');
        $conf->data->add(' ', ccflags = <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	3099	3491	
==>{
                $seen_blank = 1;
                next;
            }
            if ($seen_blank) {

                # Add in our one blank line.
                $seen_blank = 0;
                $result .= "\n";
            }
            $result .= $code;
            $result .= "\n";
        }
        else {
            if ($seen_blank) {
              $result .= "\n";
              $seen <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	17738	17889	
==>to', [ $R_back ]),
	$next => $self->op_save_rxlocals($op),
		 );

    return ($back, @ops);
}

# R<min,max> -> $matchcount = 0
#         loop: if $match <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	5400	5604	
==>fail
          match_success:
            print "matched"
            $captures
            goto end
          match_fail:
            print "failed"
            goto end
          rule_fail:
            p <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	14215	14316	
==>mp}_${incase}:\t# Default\n";
		$selects[-1]->{incase}=$incase+1;
		return;
	}

	my $lambda=<<GL;
	
	P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324693	324782	
==>s/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}},{{\@2}});\n  {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325486	325575	
==>s/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}},{{\@2}});\n  {{ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3393	3524	
==>ift;
	my $suffix = shift;
	
	return $type_for_suffix{$suffix} if exists $type_for_suffix{$suffix};

	return $UNDEFINED;
}

=item C<t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40191	40453	
==>P_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41038	41300	
==>P_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	36337	36555	
==>_exception(interpreter, eh);\n  {{+=2}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	9591	9693	
==>ode   and   perldoc Encode::Supported

  require Pod::Simple::Transcode;

  if( $self->{'encoding'} ) { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117411	117722	
==>{
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118149	118460	
==>{
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4375	4483	
==>sh_num} = ${STEMP0}

# Increment dtypes index.
inc ${ITEMP0}
PIR
		$pir =~ s/\$push_num/$push_num/g;
		$push_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2791	2899	
==>sh_num} = ${STEMP0}

# Increment dtypes index.
inc ${ITEMP0}
PIR
		$pir =~ s/\$push_num/$push_num/g;
		$push_ <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11984	12099	
==>open (OUT, ">$outfile") or die "Can't write $outfile: $!\n";

    print OUT page_header("Call Coverage for $source_f <==
2	/Users/nnunley/parrot/config/init/hints.pm	158	269	
==>pm - Platform Hints

=head1 DESCRIPTION

Loads the platform and local hints files, modifying the defaults set up <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1452	1567	
==>nguage = '.';
        } elsif ($dir_count >2) {
          $path_to_language = File::Spec->join(File::Spec->updir() x <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1937	2052	
==>nguage = '.';
        } elsif ($dir_count >2) {
          $path_to_language = File::Spec->join(File::Spec->updir() x <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6062	6157	
==>propogated there already.
	$pir .= <<'PIR';
if 0x${CURIC} == 0x45 goto POST_BRANCH_switch_${CURI <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4000	4095	
==>propogated there already.
	$pir .= <<'PIR';
if 0x${CURIC} == 0x45 goto POST_BRANCH_switch_${CURI <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29159	29275	
==>ookahead"   => $_[2],
		"line"        => $_[3],
		"description" => "'$desc'",
	}, $class;
}


sub code($$$$)
{
	my ($ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31261	31372	
==>ookahead" => $_[2],
		"line"      => $_[3],
		"description" => "'$desc'",
	}, $class;
}

sub code($$$$)
{
	my ($ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	67646	67815	
==>nction",
                  "CODE" => 88,
                  "ARGS" => [],
                  "BODY" => "#line 1038 \"src/ops/core.ops\"\n  Parrot_go_collect(interpreter);\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599975	600085	
==>,
                  "BODY" => "#line 363 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601051	601161	
==>,
                  "BODY" => "#line 363 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688147	688292	
==>\"\n   {{\@1}}->vtable->delprop(interpreter, {{\@1}}, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688919	689064	
==>\"\n   {{\@1}}->vtable->delprop(interpreter, {{\@1}}, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864185	864464	
==>n  }\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	865077	865356	
==>n  }\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465646	465905	
==>n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dec",
                  "FLAGS" => ":base_cor <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	466267	466526	
==>n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dec",
                  "FLAGS" => ":base_cor <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10059	10159	
==>lements ${STYPES}
pre_call_PLOOP_${CURIC}:
if ${ITEMP0} == 0 goto PRE_CALL_PLOOP_END_${CURIC}
dec ${I <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7573	7673	
==>lements ${STYPES}
pre_call_PLOOP_${CURIC}:
if ${ITEMP0} == 0 goto PRE_CALL_PLOOP_END_${CURIC}
dec ${I <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1062373	1062543	
==>,
                              "p"
                            ],
                  "BODY" => "#line 246 \"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root_namespa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002292	1002524	
==>,
                              "sc",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003431	1003663	
==>,
                              "sc",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10096	10231	
==>d	print STDERR "**Pop state $$stack[-1][0].\n";

			pop(@$stack);
		}

			@$stack
		or	do {

#DBG>			$debug & 0x10
#DBG>		and	p <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9645	9771	
==>d	print STDERR "**Pop state $$stack[-1][0].\n";

			pop(@$stack);
		}

			@$stack
		or	do {

#DBG>			$debug & 0x10
#DBG>		and	p <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	48801	48914	
==>2] }, $lineage[-1];
      
    } elsif(defined $3) {
      DEBUG > 3 and print "Found apparent complex end-text co <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11438	11540	
==>ewrites the method body performing the various macro substitutions for
vtable method bodies (see F<tool <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	1202	1340	
==>ument is incoming
    o   The argument is outgoing
    io  The argument is both incoming and outgoing

Op Type:

    i   The argument is an <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	445	577	
==>piler => 'perl6.pbc';

That's it.  Seriously.

=head1 DESCRIPTION

This module provides a basic test harness for Parrot-hosted langua <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	897	1020	
==>st::proclaim($cond, $desc, $todo, :$depends);
}

## is

sub is (Str $got, Str $expected, Str $desc?, :$todo, :$depends) retu <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	281	377	
==>::Library is a wrapper around a collection of PMCs linked in the
same dynamic library. A degenera <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	20678	20819	
==>rname}) and ref $thing) {
              unshift @stack, $thing;
              DEBUG > 4 and print "  +Enqueuing ",
               pretty( $tre <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7890	7986	
==>e lazy moves stack?
${ITEMP0} = elements lazy_moves
if ${ITEMP0} > 0 goto PRE_STORE_${CURIC}_LAZY <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033445	1033543	
==>UND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    VTABLE_set_pmc_keyed_str(interpreter, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034543	1034641	
==>UND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    VTABLE_set_pmc_keyed_str(interpreter, <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	500	637	
==>nshift(@type, $type);
        unshift(@syms,  $sym);
        $#type=3;
        $#syms=3;
}
sub barf {
	unshift(@tokdsc, shift(@type));
	un <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936964	937108	
==>sc"
                            ],
                  "BODY" => "#line 455 \"src/ops/string.ops\"\n  {{\@1}} = string_titlecase(interpreter, {{\@2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	982922	983230	
==>S" => [
                              "i",
                              "ic",
                              "s",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	897	1006	
==>e::Yapp module for use and distribution rights)
#

package Parse::Yapp::Driver;

require 5.004;

use st <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	872	974	
==>e::Yapp module for use and distribution rights)
#

package Parse::Yapp::Driver;

require 5.004;

use st <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5749	5862	
==>r) = @_;

    return
        unless defined $self->{triggers}{$key}
        and defined $self->{triggers}{$key}{$t <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6319	6432	
==>r) = @_;

    return
        unless defined $self->{triggers}{$key}
        and defined $self->{triggers}{$key}{$t <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6372	6477	
==>shift->require('ident', 'literal'); }


#
# skip()
#
# Skips the token type specified if it is present. Re <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	1931	2089	
==>ons explicitly supported.

Otherwise, the Parrot build and interpreter start-up logic should be
modified so that it doesn't need to concatenate separate ops fi <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	39240	39373	
==>failure.
If the string is "PARA", C<extract_tagged> returns only the first paragraph
after the tag (up to the first line that is eithe <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	18705	18813	
==>check}{itempos};

	my $item;
	my $i;

	for ($i = 0; $i < @{$self->{"items"}}; $i++)
	{
		$item = ${$self->{it <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	5112	5256	
==>die "$0: nm.pl -Bgo '$Obj': $!\n";
}
for my $api (keys %API) {
    delete $API{$api} unless exists $Code{$api}; # Not ours.
}

printf "+++ Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	18190	18392	
==>(wantarray)
        {
            return split(/\./, $self->{VERSION});
        }
        else
        {
            return $self->{VERSION};
        }
    }
    else
    {
        die "Parrot::OpsFile:: <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2298	2413	
==>b end_head3       { $_[0]->emit_par(-2) }
sub end_head4       { $_[0]->emit_par(-1) }
sub end_Para        { $_[0]->e <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1866	1981	
==>b end_head3       { $_[0]->emit_par(-2) }
sub end_head4       { $_[0]->emit_par(-1) }
sub end_Para        { $_[0]->e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	339968	340287	
==>"CODE" => 398,
                  "ARGS" => [
                              "i",
                              "p",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 128 \"src/ops/io.ops\"\n  {{\@1}} = PIO_pioctl(interpreter, {{\@2}}, { <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	30818	31020	
==>~ /to (\d+)/) {
	$targ = "pc_$1";
    }
    my $eh = temp('P');
    print <<EOC;
	newsub $eh, .Exception_Handler, $targ $cmt
	set_eh $eh
EOC
}
sub SETUP_FINALLY
{
    my ($n, $c, $cmt) = @_;
    SETUP_EX <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	30491	30610	
==>) =~ s/\A('(\\.|[^'])*')//s;
	$extracted = $1;

but with C<extract_delimited> it can be simplified to:

	($extracted,$re <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1453	1554	
==>>{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/gets the transform's arguments.

=cut

sub <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1062	1163	
==>>{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/gets the transform's arguments.

=cut

sub <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9239	9363	
==>w_code;
    if(ASCII) {
      # A good-enough check that it's good as an XML Name symbol:
      Carp::croak "\"$new_code\" is <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10503	10627	
==>w_code;
    if(ASCII) {
      # A good-enough check that it's good as an XML Name symbol:
      Carp::croak "\"$new_code\" is <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2472	2590	
==>r_pop()>

Addresses on the stack are pointers into the bytecode array, and so
must be converted to pointers into the pr <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	7040	7201	
==>+ $pc)/mg;

	    printf("\n    /* %s */\n    {\n%s}\n", $op->full_name, $source);
	}

	print "}\n\n";
    }
    print <<END_C;
    break;

default:
    return cur <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327114	327355	
==>_native(interpreter, {{\@1}}, (INTVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327916	328157	
==>_native(interpreter, {{\@1}}, (INTVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500999	501223	
==>21 \"src/ops/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501738	501962	
==>21 \"src/ops/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	6275	6404	
==>sh @rel_paths, $rel_path;
    }
    else
    {
        warn "Failed to process $rel_path.\n";
    }

    return @rel_paths;
}

=ba <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	754	1063	
==>SVN_ENTRIES' => undef,
             'VERSION' => '0.4.5',
             'a' => '.a',
             'ar' => 'ar',
             'ar_extra' => '',
             'ar_flags' => 'cr',
             'ar_out' => '',
             'archname' => 'darwin-2level',
             'as' => 'as',
             'asmfun_o' => 'src/asm <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	3358	3511	
==>reted as DIM\n";
	}
	# General purpose keyword dispatch.
	if ($syms[CURR] =~ /^(	
		while | wend | dim | type | exit | function | for | next |
		do | loop <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1826	1929	
==>{
  foreach my $x (@_) {
    $x =~ s/([^\x00-\xFF])/sprintf'\x{%X}',ord($1)/eg;
    # Escape things very <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	3530	3632	
==>scribe_c_file($info,$text)
	if $path =~ /\.([chlyC]|cpp|cola|xs|pmc)$|[_\.][ch]\.in$/;
    return &desc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324699	324785	
==>nu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}},{{\@2}});\n  {{+=3 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325492	325578	
==>nu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}},{{\@2}});\n  {{+=3 <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	7254	7398	
==>d_flags        => '-shared ',
            ld_share_flags       => '-shared ',
            libparrot_ldflags    => $conf->data->get('build_dir') . <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	612	756	
==>C<@Parrot::Configure::steps>.

=cut

sub config_groups
{
    my $self = shift;
    my $dist = Parrot::Distribution->new;
    
    my @groups = () <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	425357	425610	
==>ept(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	15116	15245	
==>ore: $code>") )
		unless $self->{items}[-1]->describe =~ /<score/;
	return 1;
}

sub check_pending
{
	my ( $self, $line ) = @_;
	i <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9830	9961	
==>ust so that when we
    #  see "=extend W [whatever] thatelementname", we say that W maps
    #  to whatever $this->{accept_codes}{t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	625232	625395	
==>ig) ? \n            (_reg_base + ((opcode_t*)pred_pc)[2]) : NULL;\n    }\n    else\n        args[0] = NULL;\n    /* set_args */\n    n_args = 0;\n    sig = mic->m.s <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	3088	3238	
==>uction; Misc functions; Run Ops and Methods.', 
                'pairs' => ['interpreter'], 
                'sources' => [
                    'inter_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	8248	8444	
==>my $parser = shift;

    my %keywords = (
        'and'      => 'AND',
        'break'    => 'BREAK',
        'do'       => 'DO',
        'else'     => 'ELSE',
        'elseif'   => 'ELSEIF' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670376	670644	
==>],
                  "TYPE" => "inline",
                  "CODE" => 750,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 415 \"src/ops/pmc.ops\"\n    { <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	14033	14148	
==>urce = *STDIN{IO};
  }

  if(!defined $to) {             $self->output_fh( *STDOUT{IO}   );
  } elsif(ref(\$to) eq ' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3420	3554	
==>abel_use($dest) . " if $reg;";
}

sub output_unless {
    my ($self, $reg, $dest) = @_;
    $reg = value($reg);
    return "goto " . $s <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35222	35342	
==>>decl($self->{class}, $method, 0);
    my $ret = "";
    if ($method->{type} ne 'void') {
        # This cheats, assuming <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	821900	822138	
==>E" => "function",
                  "CODE" => 931,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 120 \"src/ops/stack.ops <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	5687	5851	
==>_space_2d
    if old_type != value_type goto print_space_2d
    goto print_newline

  print_space_2d:  # don't print a space if we're about to end a row
    if newli <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	3057	3147	
==>output
with the expected result is true.

=item C<pir_output_like($code, $expected, $descri <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	638	780	
==>L::isa($token, 'Jako::Token');

  return bless {
    BLOCK  => $block,

    TOKEN  => $token,
    VALUE  => $token->text,
    SCOPE  => $block- <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	37523	37763	
==>,
            'prolog' => 1,
            'result' => $defn,
            'arg1'   => $nil->[0],
        );
        push @opcodes2, new LabelOp( $parser,
            'prolog' => 1,
            'arg1'   => $lbl,
        );
        $par <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	5585	5822	
==>racket { return shift->require('close-bracket'); }
sub require_close_paren   { return shift->require('close-paren');   }
sub require_comma         { return shift->require('comma');         }
sub require_ident         { return shift->requi <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	6275	6488	
==>ush @{$code{$seg}->{code}},<<EOR;
@code	find_global \$P0, "RANDSEED"
	\$I0= $result
	\$P0["value"]= \$I0
	store_global "RANDSEED", \$P0
EOR
		feedme();
	}
}
sub parse_locate {	# locate x,y   | locate x   | locate , <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3053	3162	
==>';
# DO NOT EDIT THIS FILE
#
# Automatically generated by config/gen/core_pmcs.pm

package Parrot::PMC;

use s <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4451	4556	
==>s = grep { ! exists $pmc_group->{$_} } @pmcs;
    partial_link($_, $pmc_libs->{$_}, [ $_ ] ) foreach (@ung <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4555	4660	
==>s = grep { ! exists $pmc_group->{$_} } @pmcs;
    partial_link($_, $pmc_libs->{$_}, [ $_ ] ) foreach (@ung <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056110	1056531	
==>"o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1179,
                  "ARGS" => [
                              "p",
                              "k",
                              "s"
                            ],
                  "BODY" => "#line 194 \"src/ops/var.ops\"\n    {{\@1 <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	3871	4007	
==>ryServices
            System.Drawing.Design
            System.Drawing
            System.EnterpriseServices
            System.Mana <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126019	126529	
==>DIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 156,
                  "ARGS" => [
                              "i",
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 271 \"sr <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59281	59455	
==>rod = $rule->addprod( new Parse::RecDescent::Production );
			$aftererror = 0;
		}
		elsif ($grammar =~ m/$UNCOMMITPROD/gco)
		{
			pos($grammar)-=9;
			_parseunneg("a new (un <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	1609	1706	
==>ll be lost!
 *
 */

#define CONCAT(a,b) a##b
#define _CONST_STRING(i, l) (i)->const_cstring_table[ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	20955	21075	
==>de written.  For that you
use TODO.  Read on.

=cut

#'#
sub skip {
    my($why, $how_many) = @_;

    unless( defined $h <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	6505	6738	
==>t']
            ),
        ),
        $self->new_group(
            'IO', 
            '',
            $self->c_item(
                'Parrot\'s layer-based I/O subsystem.', 
                'headers' => ['io'], 
                'cont <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2453	2557	
==>n, passing the test
if the output produced by the test code matches the C<$expected>
parameter.  Note tha <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3887	3991	
==>n, passing the test
if the output produced by the test code matches the C<$expected>
parameter.  Note tha <==
2	/Users/nnunley/parrot/config/auto/format.pm	424	601	
==>= 'Figuring out what formats should be used for sprintf';

@args = ();

sub runstep
{
    my ($self, $conf) = @_;

    my ($ivformat, $nvformat, $nvsize);
    my ($iv,       $nv, <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	50447	50543	
==>e marker", $aftererror,$line);
				$item = new Parse::RecDescent::Directive(
					'Text::Balanced <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	1340	1467	
==>a->add(' ', linkflags => '-L/sw/lib');
            $conf->data->add(' ', ldflags   => '-L/sw/lib');
            $conf->data->add <==
2	/Users/nnunley/parrot/config/auto/readline.pm	1429	1556	
==>a->add(' ', linkflags => '-L/sw/lib');
            $conf->data->add(' ', ldflags   => '-L/sw/lib');
            $conf->data->add <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	13311	13436	
==>=> {
			"-" => 31,
			"^" => 32
		},
		DEFAULT => -40,
		GOTOS => {
			'classpieces' => 30
		}
	},
	{#State 15
		DEFAULT => -3 <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	6643	6784	
==>o accept \"=$d\" as directive of type $type\n";
  }
  DEBUG > 6 and print "$this\'s accept_directives : ",
   pretty($this->{'accept_directive <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	2671	2792	
==>ass = shift;
    my ($code, $type, $name, $args, $argdirs, $labels, $flags) = @_;

    my $self = {
        CODE => $code, <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	21374	21605	
==>table($_, @rules);
        }
    } else {
        # Otherwise, split the rules into two groups.
        my $split_point = int(@rules / 2);
        my @r1 = @rules[0 .. $split_point - 1];
        my @r2 = @rules[$split_point .. $#rul <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46951	47057	
==>f ({{\@1}} != 0) { Interp_debug_SET(interpreter,   {{\@1}}); }\n  else         { Interp_debug_CLEAR(interpr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47734	47840	
==>f ({{\@1}} != 0) { Interp_debug_SET(interpreter,   {{\@1}}); }\n  else         { Interp_debug_CLEAR(interpr <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	10950	11069	
==>@_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # undef only matches undef and <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	11368	11487	
==>@_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # undef only matches undef and <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	1166	1275	
==>he API is implemented but has no C<Parrot_> prefix (or prefix deemed
Parroty enough, like C<PDB_>, C<PF_>, C<P <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	287	444	
==>);
        }
        if (-e $path && !-d $path) {
            $*ERR.say("Parameter to lib.import() must be directory, not file");
        }
        # add to t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	98210	98552	
==>\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnot",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	28925	29034	
==>unless ref($tree) eq 'Regex::Ops::Tree::rule';

    my (undef, @ops) = $self->rewrite($tree, undef);

#    ret <==
2	/Users/nnunley/parrot/config/gen/icu.pm	3715	3811	
==>ot without ICU support
   --icu-config=(file)  Location of icu-config
   --icuheaders=(path)  Loc <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4524	4636	
==>lf->{name};
        delete $self->{args};
        return $self->op('nop', [], %$self);
    } elsif (@{ $self->{ar <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5661	5773	
==>lf->{name};
        delete $self->{args};
        return $self->op('nop', [], %$self);
    } elsif (@{ $self->{ar <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104026	1104112	
==>class);\n\t}\n\tif (type <= 0)\n\t\treal_exception(interpreter, NULL, NO_CLASS,\n\t\t\t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105241	1105327	
==>class);\n\t}\n\tif (type <= 0)\n\t\treal_exception(interpreter, NULL, NO_CLASS,\n\t\t\t <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	5781	5915	
==>re char '$_' on line $. of $ARGV"
                unless exists $sig_char{$_};
            push @arg, make_arg($_, $reg_num++, \$temp_c <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	4521	4612	
==>m C<check_pod()>

Runs C<Pod::Simple::Checker> on the contents of the file. Executable
files <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	16	127	
==>Copyright (C) 2003-2005, The Perl Foundation.
# This program is free software. It is subject to the same license <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	18	129	
==>Copyright (C) 2003-2005, The Perl Foundation.
# This program is free software. It is subject to the same license <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1287	1392	
==>eg = new $pmc_type");
    $compiler->emit("  $pmc_reg = $ident");
    $compiler->emit("  global \"$ident_n <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1281	1386	
==>eg = new $pmc_type");
    $compiler->emit("  $pmc_reg = $ident");
    $compiler->emit("  global \"$ident_n <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3217	3325	
==>, 'N' ],
  COMPLEX  => [ 2, 'I' ],
  STRING   => [ 1, 'S' ],
};

#------------------------------------

sub _ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9081	9189	
==>Parrot_switch_to_cs(interpreter, fe->seg, 1);\n    }\n    string_cstring_free(label);\n    interpreter->resum <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10197	10305	
==>Parrot_switch_to_cs(interpreter, fe->seg, 1);\n    }\n    string_cstring_free(label);\n    interpreter->resum <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21727	21872	
==>q 'Para'
        #and
        ($pattern = join('',
         map {;
            ($_->type eq 'start') ? ("<" . $_->tagname .">")
          : ($_->t <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1401	1530	
==>!")
    unless defined $block;

  #
  # Lookup the identifier:
  #

  my $name = $self->name;

  my $sym = $block->find_symbol($na <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	3863	4026	
==>eturns the C<File::stat> object. Used by subclasses to get information
about the path.

=cut

sub stat
{
    my $self = shift;
    
    return File::stat::stat($sel <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	338071	338310	
==>ops/io.ops\"\n  {{\@1}} = PIO_STDIN(interpreter);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	17871	18061	
==>$textref, pos($$textref), 20) .
			     q{..."},
		         pos $$textref;
		pos $$textref = $startpos;
		return;
	}

	my $op = $1;
	$preld1pos = pos($$textref);
	if ($op eq '<<') {
		$ld1pos <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	13698	13822	
==>$textref,pos($$textref),20) .
			     q{..."},
		         pos $$textref;
		pos $$textref = $startpos;
		return;
	}
	my $closi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478897	479022	
==>E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479789	479914	
==>E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	11768	11874	
==>the element (after
assignment) is returned. If the element type is C<'*$'>, a reference
to the element is r <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	35159	35256	
==>returned. In
a void context, C<$text> would be replaced by an empty string.)

Likewise the call in <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4063	4177	
==>libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert lib-GROUP.so + A.so + B.so .. <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4167	4281	
==>libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert lib-GROUP.so + A.so + B.so .. <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23105	23221	
==>tem, '.($::RD_NO_HITEM ? ''
			       : '$item{'.$self->{hashname}.'}=').'$_tok;
		' . ($self->{"lookahead"} ? '$text <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32862	32977	
==>tem, ' . ($::RD_NO_HITEM ? ''
				 : '$item{'.$self->{hashname}.'}=') . '$_tok;
		' . ($self->{"lookahead"} ? '$text <==
2	/Users/nnunley/parrot/lib/Test/More.pm	9462	9565	
==>orted):

    like( $this, '/that/', 'this is like that' );

Regex options may be placed on the end (C<'/ <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	7732	7852	
==>= 0 # parrot's 0 == APL's 1
loop_one:
    unless iter_one goto loop_one_end
    item_one = shift iter_one 
    inc pos_on <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	565	672	
==>ame }
;

use Jako::Token;

use Jako::Construct::Type::Integer;
use Jako::Construct::Type::Number;
use Jako:: <==
2	/Users/nnunley/parrot/config/auto/pack.pm	1241	1528	
==>ng, and this won't work unless sizeof(UV) >= 8
            $format = 'q';
        }
        warn "Configure.pl:  Unable to find a suitable packtype for $_.\n"
            unless $format;

        my $test = eval { pack $format, 0 };
        unless (defined $test) {
            warn <<"AA <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6679	6781	
==>self, $failLabel) = @_;
    my $fail = $self->output_label_use($failLabel);
    return ($self->dbprint( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6323	6425	
==>self, $failLabel) = @_;
    my $fail = $self->output_label_use($failLabel);
    return ($self->dbprint( <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	2632	2809	
==>n->new;

    $dist->delete_html_docs if $delete;

    $self->write_html($dist, $dist->html_docs_directory, $silent);
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::Docs::Sec <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	8958	9065	
==>hat means
		# "Push the top of the stack onto the function's call stack"
		# No-arg funcs are simply left al <==
2	/Users/nnunley/parrot/config/inter/progs.pm	487	616	
==>:Step::Base);

use Parrot::Configure::Step ':inter';

$description = 'Determining what C compiler and linker to use';

@args = qw( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616469	616869	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "pic_infix__",
                  "FLAGS" => ":pic",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	12472	12606	
==>('after_charclass');

    my @ops = (          aop('advance', [ $howfar, $lastback ]),
                         aop('goto', [ $next ]), <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	399	604	
==>class of C<Parrot::Docs::Group>.

=head2 Class Methods

=over

=cut

package Parrot::Docs::Section;

use strict;
use warnings;

use base qw( Parrot::Docs::Group );

use Parrot::Docs::Item;
use Parrot::Docs: <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7931	8023	
==>{$code{$seg}->{code}}, "IFBRANCH_$_:\n";
		}
=cut
UNK:	if (($type[CURR] eq "STMT" or $type[CU <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	4017	4240	
==>see if $lines[-1] is =encoding, and if so,
        # do horribly magic things

      }
      
      if(DEBUG > 8) {
        print "* I've gotten ", scalar(@lines), " lines:\n";
        foreach my $l (@lines) {
          if(d <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	5349	5571	
==>ibe_c_file {
    my($info,$text) = @_;
    my $comment_is_at_beginning = $text =~ /^\/\*/;
    my($first_comment) = $text =~ /($RE{comment}{C})/;
      ($first_comment) = $text =~ /(($RE{comment}{'C++'}\s*)+)/
	  if !$first <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	4306	4482	
==>name($dest));
    } elsif ($meta{bin}) {
        my $copy = $dest;
        $dest =~ s/^installable_//; # parrot with different config
        $dest = File::Spec->catdir($options <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015079	1015303	
==>ng_make(interpreter, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015903	1016127	
==>ng_make(interpreter, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	3373	3472	
==>c !! "The object is-a '$expected_type'";
    my $test := $ref.isa($expected_type);
    Test::proclai <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6623	6768	
==>nd go to state $act.\n";

					$$errstatus
				and	do {
					--$$errstatus;

#DBG>					$debug & 0x10
#DBG>				and	$dbgerror
#DBG>				and	$ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6316	6453	
==>nd go to state $act.\n";

					$$errstatus
				and	do {
					--$$errstatus;

#DBG>					$debug & 0x10
#DBG>				and	$dbgerror
#DBG>				and	$ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	16216	16338	
==>:Simple::PullParser);
 
 sub run {
   my $self = shift;
  Token:
   while(my $token = $self->get_token) {
     ...process e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	448367	448656	
==>> "inline",
                  "CODE" => 513,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 180 \"src/ops/math.ops\"\n  if ({{\@2}} < 0) {\n    {{\@1}} = - (FLOATVAL){{\@2} <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	512	624	
==>se::Yapp::Driver
#
# This module is part of the Parse::Yapp package available on your
# nearest CPAN
#
# Any <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	498	605	
==>se::Yapp::Driver
#
# This module is part of the Parse::Yapp package available on your
# nearest CPAN
#
# Any <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	7838	7941	
==>} = $self->{vtable};
    # set parentname
    $const->{parentname} = $self->{class};

}

=item C<init($c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	622012	622115	
==>\n\t{{+=n}};\n    }\n    /* no match redo plain opcode */\n    ((void**)cur_opcode)[0] =\n\tparrot_pic_o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369212	369486	
==>PE" => "function",
                  "CODE" => 432,
                  "ARGS" => [
                              "s",
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 341 \"src/ops/io.ops\"\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3093	3251	
==>ing",
    'kc' => "CONST(%ld)->u.key",
    'kic' => "%ld",
);

=item C<access_arg($type, $value, $op)>

Returns the C code for the specified op argument type ( <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9023	9196	
==>h'}} 
            " <a href='#_top'><img alt='^' border=0 src='$self->{RESOURCES_URL}/up.gif'></a>";
    }
    elsif ( $tagname eq 'C' )
    {
        # See the note in proce <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	5132	5231	
==>ct 3 also
print 5+-2
' Expect 0
print 6-abs(-6)


' Some register confusion, expect .PTFCDR
Dim c(10 <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	9527	9680	
==>< $file_name" ) or die "open '$file_name': $!";
    local $/ = undef;
    my $file = <SLURP> . '';
    $file =~ s/\cM\cJ/\n/g;
    close SLURP;

    retur <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24603	24726	
==>urn);
      $return = $temp;
    }
  } else {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26502	26625	
==>urn);
      $return = $temp;
    }
  } else {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	7235	7390	
==>n";
    }
    else {
        1;
    }
}

sub partial_link {
    my ($group, $libs, $stems) = @_;

    my @sources = map { "$_$O" } @$stems;
    if (needs_bu <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7446	7601	
==>n";
    }
    else {
        1;
    }
}

sub partial_link {
    my ($group, $libs, $stems) = @_;

    my @sources = map { "$_$O" } @$stems;
    if (needs_bu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	27513	27617	
==>core.ops\"\n    opcode_t * const this = CUR_OPCODE;\n    PMC * const signature = {{\@1}};\n    INTVAL arg <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	28365	28469	
==>core.ops\"\n    opcode_t * const this = CUR_OPCODE;\n    PMC * const signature = {{\@1}};\n    INTVAL arg <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2184	2293	
==>ndefined identifier '%s'.", $args[$i]->value) unless $arg_sym;
      $actual_arg_type = $arg_sym->type; 
    } <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1884	1993	
==>ndefined identifier '%s'.", $args[$i]->value) unless $arg_sym;
      $actual_arg_type = $arg_sym->type; 
    } <==
2	/Users/nnunley/parrot/lib/Test/More.pm	3186	3308	
==>hand how many tests
your script is going to run.  In this case, you can declare that you
have no plan.  (Try to avoid using <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16923	17063	
==>mments
        #  with text in them.
        
        # Yes, stipulate the list without a range, so that this can work right on
        #  al <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10363	10483	
==>mments
    #  with text in them.

    # Yes, stipulate the list without a range, so that this can work right on
    #  al <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	769487	769911	
==>i_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 869,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#li <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	23754	23849	
==>e_output($fh);
    $Test->failure_output($file);

Where diagnostic output on test failures and d <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	833	976	
==>mp, # vtable.dump
          pmc1        => $pmc1_dump,
          pmc2        => $pmc2_dump,
          ... );

Creates a new library object. If t <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19915	20096	
==>self->require_semicolon;
     
      #
      # TODO: Call is really an expression, but here its treated as a statment with the assign.
      #

      my $call = Jako::Construct::Expr <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	3344	3456	
==>a heredoc?
        elsif (!$in_heredoc && $rule && /^\s*(\w+)\s*=\s*<<(\w+)\s*$/) {
            # Initialize here <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	638	735	
==>=head2 Methods

=head3 Constructors

=over 4

=item * C<new()>

Basic constructor.

Accepts no arg <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	13380	13606	
==>=> 54
		}
	},
	{#State 13
		ACTIONS => {
			"," => 55,
			"=" => 56
		}
	},
	{#State 14
		DEFAULT => -4,
		GOTOS => {
			'block' => 58,
			'chunk' => 57
		}
	},
	{#State 15
		DEFAULT => -11,
		GOTOS => {
			' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	462	644	
==>k {
#      my ($label) = @_;
#      return "fork $label->[1]";
#  }

#  sub output_reverse_fork {
#      my ($label) = @_;
#      return "reverse_fork $label->[1]";
#  }

sub output_o <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	3272	3551	
==>f ($? >> 8) {
        die "Error " . ($? >>8). " running $command\n";
    }
}

sub copy_file {
    my ($from, $to) = @_;

    my $directory = dirname($to);

    if (! -d $directory) {
        print "- mkpath $directory\n";
        mkpath($directory);
    }

    print "- copy $fro <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	830	925	
==>= qq[-L/opt/local/lib -L/usr/local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS = qq[-bundle -unde <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	834	929	
==>= qq[-L/opt/local/lib -L/usr/local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS = qq[-bundle -unde <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420574	420869	
==>S" => [
                              "i",
                              "p",
                              "ic",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764485	764866	
==>i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 863,
                  "ARGS" => [
                              "i",
                              "nc"
                            ],
                  "BODY" => "#line 320 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTE <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	30053	30186	
==>age -- is
# "perlfunc". In "L</CAVEATS>", the name is undef.)
# 

############# The "section" attribute (which might be next, or a tre <==
2	/Users/nnunley/parrot/config/gen/config_h.pm	1402	1694	
==>sort($conf->data->keys())) {
        next unless /i_(\w+)/;
        if ($conf->data->get($_)) {
            print HH "#define PARROT_HAS_HEADER_\U$1 1\n";
        } else {
            print HH "#undef  PARROT_HAS_HEADER_\U$1\n";
        }
    }

    print HH "\n#define BUILD_OS_NAME \"$^O\"\n <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	44198	44359	
==>s),

=item [1]

the remainder of the input text,

=item [2]

the prefix substring (if any),

=item [3]

the name of the quotelike operator (if any),

=item [4]

t <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	40397	40540	
==>s),

=item [1]

the remainder of the input text,

=item [2]

the prefix substring (if any),

=item [3]

the opening tag

=item [4]

the text bet <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	6750	7042	
==>code .= emit($1."_%0:", 'loop_num');
            next;
        }
        
        # rename locals (during declaration)
        if ($line =~ /^\s* \.local \s+ (\w+) \s+ (.+)$/mx) {
            my @vars = split /\s*,\s*/, $2;
            
            $locals{$_} = 1 for @vars;
            $code <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106418	1106700	
==>]->class;\n    {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107394	1107676	
==>]->class;\n    {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	619352	619454	
==>er, right);\n\tINTVAL c = a - b;\n\tif ((c^a) >= 0 || (c^~b) >= 0) {\n\t    if (lt == enum_class_Intege <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11032	11151	
==>0D
	.const int ELEMENT_TYPE_STRING = 0x0E
	.const int ELEMENT_TYPE_PTR = 0x0F
	.const int ELEMENT_TYPE_BYREF = 0x10
	.co <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	7576	7792	
==>ss_args
               --([a-f0-9]+)	# 18	id
   .html$/x
    and return {
	  VERSION       => $1,
	  DEVEL         => $2,
      revision      => $3,
	  branch		=> $4,
	  cpuarch       => $5,
      osname        => $6, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	2997	3115	
==>_;
    my $rxlocals = ($self->{rxlocals} ||= []);
    return (aop(comment => [ "restore rxlocals" ]),
            map { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826694	826880	
==>\"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_num(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827764	827950	
==>\"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_num(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	44033	44168	
==>_hint("You need to define a rule for the $_[0] $desc
	       to be part of.");
}

my $NEGLOOKAHEAD	= '\G(\s*\.\.\.\!)';
my $POSLOOKAHEAD <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2502	2606	
==>self->DEBUG(0, "Remembering symbol '$name' as sub...");

  $block->set_symbol($name, $sym);

  $block->pu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	916801	917069	
==>S" => [
                              "i",
                              "s",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_in <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	6211	6318	
==>LF>.

=item C<DYNSUPER(a,b,c)>

As above, but uses the actual dynamic type of C<SELF>.

=back

=head1 AUTHOR <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2372	2477	
==>=cut

sub gen_goto
{
    my ($self, $where_str) = @_;
    return "return $where_str";
}

=item C<expr_pop( <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	15213	15364	
==>_func(Parrot_Interp interpreter)
{
    PMC *lib = pmc_new(interpreter, enum_class_ParrotLibrary);
    PMC_struct_val(lib) = (void *) $init_func;
    dyn <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3496	3607	
==>e should make sure its a string, somewhere.
    }
    else {
      $self->SYNTAX_ERROR("Sub declaration has no f <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6160	6271	
==>e should make sure its a string, somewhere.
    }
    else {
      $self->SYNTAX_ERROR("Sub declaration has no f <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4451	4569	
==>core_pmcs|exec_(?:cpu|dep)|fingerprint|jit_(?:cpu|emit)|nci|platform(?:_interface)?)\.[ch]|(?:charclass|feature)\.h)$/o <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	17917	18030	
==>:croak("You tried to run tests without a plan!  Gotta have a plan.");
    }

    lock($self->{Curr_Test});
    $se <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	18782	18895	
==>:croak("You tried to run tests without a plan!  Gotta have a plan.");
    }

    lock($self->{Curr_Test});
    $se <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2889	3022	
==>',
	'MANIFEST' => 'Manifest file',
	'NEWS' => 'Project info',
	'PBC_COMPAT' => 'Bytecode compatibility file',
	'PLATFORMS' => 'Project <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691853	692023	
==>",
                              "sc"
                            ],
                  "BODY" => "#line 626 \"src/ops/pmc.ops\"\n   {{\@1}} = Parrot_thaw(interpreter, {{\@ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	36854	36985	
==>ep> gives you more powerful complex data structure testing.

L<Test::Unit> is XUnit style testing.

L<Test::Inline> shows the idea o <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	48846	49025	
==>e initial three parameters as C<extract_bracketed>:
a text to process, a set of delimiter brackets to look for, and a prefix to
match first. It also takes an optional fourth parame <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736453	736712	
==>" => "inline",
                  "CODE" => 827,
                  "ARGS" => [
                              "n",
                              "i"
                            ],
                  "BODY" => "#line 144 \"src/ops/set.ops\"\n  {{\@1}} = (FLOATVAL) <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	16700	16934	
==>s resets $!
        $test = eval "\$got $type \$expect";
    }
    local $Level = $Level + 1;
    my $ok = $self->ok($test, $name);

    unless( $ok ) {
        if( $type =~ /^(eq|==)$/ ) {
            $self->_is_diag($got, $type, $exp <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2837	2952	
==>ouldn't rename $1 to $dirname/$1.");
            $path =~ s/\Q$SRCDIR\E//g;
            $generated_files{$path} = $t <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	7653	7759	
==>cted_Tests};
    return('no_plan') if $self->{No_Plan};
    return(undef);
};


=item B<skip_all>

  $Test- <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	57058	57282	
==>ple($text,
                                      [
                                        sub { extract_quotelike($_[0]) },
                                      ], undef, 1);

Finally, here is yet another way to do comma-se <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067780	1068100	
==>"i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1192,
                  "ARGS" => [
                              "i",
                              "nc",
                              "n"
                            ],
                  "BODY" => "#line 49 \"src/o <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	6953	7105	
==>split /\s*,\s*/, $2;
            
            $locals{$_} = 1 for @vars;
            $code .= inline("  .local $1 ");
            $code .= emit(join(",", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216938	217050	
==>able->get_number(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217878	217990	
==>able->get_number(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	20318	20431	
==>et_reg  = return_data;
    REG_INT(0) = $stack_returns;
    REG_INT(1) = $int_returns;
    REG_INT(2) = $string_re <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	1028	1176	
==>'$(INC_DIR)/oplib/core_ops_cg.h $(INC_DIR)/oplib/core_ops_cgp.h',
            TEMP_cg_c => <<'EOF',
$(OPS_DIR)/core_ops_cg$(O): $(GENERAL_H_FILES) $( <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37451	37553	
==>),
				  q{' . $rule->{"name"} . '})
					if defined $::RD_TRACE;').'
		$Parse::RecDescent::lastexpecte <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39854	39956	
==>),
				  q{' . $rule->{"name"} . '})
					if defined $::RD_TRACE;').'
		$Parse::RecDescent::lastexpecte <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	12481	12773	
==>nteger
	pnext as first
end type
type third
	number as integer
	start as second
end type
dim t as first
dim u as second
dim v as third
' Results in 6, 15, and "Hello"
t.foo=6
print t.foo
u.other.foo=15
print u.other.foo
v.start.pnext.bar="Hello"
print v.start.pnext.bar

' Member functions, giv <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407642	407841	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "connect",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408540	408739	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "connect",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	619155	619257	
==>AL a = lt == enum_class_Integer ? PMC_int_val(left) :\n\t    VTABLE_get_integer(interpreter, left);\n\t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621817	622069	
==>CALL;\n\t    --ctx->recursion_depth;\n\t    ctx->caller_ctx = caller_ctx->caller_ctx;\n\t    Parrot_free_context(interpreter, caller_ctx, 0);\n            interpreter->current_args = NULL;\n\t}\n\n\t{{+=n}};\n    }\n    /* no match redo plain opcode */\ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	827	937	
==>= Regex::TreeOptimize->new();
        $tree = $opt1->optimize_tree($tree, $ctx);
    }

    my $rewrite = Regex <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	907	997	
==>f defined $ident and not UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	935	1025	
==>f defined $ident and not UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1900	2028	
==>expr, $ctx, %options);
    for my $tree (@$trees) {
        my $code = tree_to_list($tree, $ctx, $pass_label, $fail_label, %optio <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	256	379	
==>089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Declaration::Sub;

use Carp;

use base qw(Jako::C <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	5045	5228	
==>.
            $f=length($1);
            next;
        }

        if (/^\s*([\#\}])/) {
            # skip the last line of the func or cpp directives.
            $f = undef if ($1 eq <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914888	915057	
==>c",
                              "i"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915900	916069	
==>c",
                              "i"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpr <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2029	2129	
==>e identifier is already defined at this lexical scope, we want to complain
  # about the redefinition <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1776	1876	
==>e identifier is already defined at this lexical scope, we want to complain
  # about the redefinition <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5194	5310	
==>$_ --dynamic $oplib.ops")
	          or die "ops2c code generation failed ($?)\n";
		}
	}
}

sub compile {
    my ($s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060072	1060171	
==>)\n\tinternal_exception(1, \"Tried to get null name\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060977	1061076	
==>)\n\tinternal_exception(1, \"Tried to get null name\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	96	220	
==>rated using Parse::Yapp version 1.05.
#
#        Don't edit this file, use source file instead.
#
#             ANY CHANG <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	94	214	
==>rated using Parse::Yapp version 1.05.
#
#        Don't edit this file, use source file instead.
#
#             ANY CHANG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819334	819562	
==>DE" => 928,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 79 \"src/ops/stack.ops\"\n  Stack_Entry_t * const en <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307765	308034	
==>ction",
                  "CODE" => 358,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 1038 \"src/ops/cmp.ops\"\n  if ({{\@1}}) {\n    {{+={{\@2}}}};\ <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	4115	4228	
==>ined $Obj;
$Obj = 'blib/lib/libparrot.a' unless defined $Obj;
die "$0: '$Obj': No such file\n" unless -f $Obj;

my <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	25533	25770	
==>e $exit_code") if $exit_code and not $pass;

            unless($ENV{POSTMORTEM}) {
                unlink $out_f;
                unlink $build_f;
                unlink $exe_f;
                unlink $obj_f;
                unlink $pdb_ <==
2	/Users/nnunley/parrot/config/auto/jit.pm	4065	4199	
==>capable) {
            $conf->data->set(
                TEMP_exec_h =>
                    '$(SRC_DIR)/jit.h $(INC_DIR)/exec.h $(SRC_D <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743875	744319	
==>:base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 837,
                  "ARGS" => [
                              "s",
                              "n"
                            ],
                  "BODY" => "#line 179 \"src/ops/set.ops\"\n  {{\@1}} = string_from_num(i <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	2022	2177	
==>?[eE]\d+)?)?/;
    $node->{type} = 'REAL'    if $node->{value} =~
                                 /^[-]?\.(\d+([-+]?[eE]\d+)?)/;
    $node->{type} ||= 'EXP <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15578	15699	
==>lDir( $parser,
        'result' => $result,
    );
    push @opcodes, new AssignOp( $parser,
        'result' => $resu <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19331	19452	
==>lDir( $parser,
        'result' => $result,
    );
    push @opcodes, new AssignOp( $parser,
        'result' => $resu <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	382	567	
==>sub new
{
  my $class = shift;
  my ($token) = @_;

  return bless {
    TOKEN    => $token,
    CODE     => 'S',
    NAME     => 'str',
    IMCC     => 'string',
    IMCC_PMC => 'String <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934164	934455	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":base_core",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934939	935230	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":base_core",
                  " <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9273	9538	
==>0,0xe7d3fbc8,/* 24 */
GG,$a,$b,$c,$d,$_[13],5,0x21e1cde6,/* 25 */
GG,$d,$a,$b,$c,$_[18],9,0xc33707d6,/* 26 */
GG,$c,$d,$a,$b,$_[7],14,0xf4d50d87,/* 27 */
GG,$b,$c,$d,$a,$_[12],20,0x455a14ed,/* 28 */
GG,$a,$b,$c,$d,$_[17],5,0xa9e3e905,/* 29 */
GG,$d,$a,$b,$c,$_[6],9, <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3902	4021	
==>{
        compile("$group", "lib-$group")
          or die "compile $group.c failed ($?)\n";
    }
} 
elsif ($mode eq 'l <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4006	4125	
==>{
        compile("$group", "lib-$group")
          or die "compile $group.c failed ($?)\n";
    }
} 
elsif ($mode eq 'l <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35776	35901	
==>sc>" if $_[0]->{"matchrule"};
	return $desc;
}

sub callsyntax($$)
{
	if ($_[0]->{matchrule})
		{ return "sub { goto &{''.qq{$ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34765	34880	
==>e> is the name of the output file we are
generating.

Overrides the default implementation to throw an execption for <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9689	9837	
==>l_arguments($args)>

Prepends C<INTERP, SELF> to C<$args>.

=cut

sub full_arguments {
    my $args = shift;

    if ($args =~ m/\S/) {
        retur <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	7493	7664	
==>s make things pretty.
        #
        while(1) {
          push @to_unget, $self->get_token;
          pop(@to_unget), last unless defined $to_unget[-1];
           # Err <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	1380	1641	
==>ue.
      $in = $Name2character{$in};
      return undef unless defined $in;  # (if there's no such name)
      $in = ord $in; # (All ents must be one character long.)
        # ...So $in holds the char's US-ASCII numeric value, which we'll
        #  now go get <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	1929	2051	
==>/;
                print INC <<"EOF";
# DO NOT EDIT THIS FILE.
#
# This file is generated automatically from
# $f by config <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	1098	1193	
==>t stack to register mapper\n";
}
sub post_branch {
	die "post_branch not implemented for current <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	42780	42934	
==>cognize, extract, and segment any
one of the various Perl quotes and quotelike operators (see
L<perlop(3)>) Nested backslashed delimiters, embedded balance <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	61568	61667	
==>, but
failed to find a closing quote to match it.

=item C<Did not find closing delimiter to match ' <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	8468	8576	
==>arg =        ($#arg & 01) ? @arg : (@arg, undef);
	my $text;
	my $lastsep="";
	local ($Parse::RecDescent::fai <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83735	83829	
==>nterpreter->iglobals, IGLOBALS_COMPREG_HASH);\n  VTABLE_set_pmc_keyed_str(interpreter, compreg_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84641	84735	
==>nterpreter->iglobals, IGLOBALS_COMPREG_HASH);\n  VTABLE_set_pmc_keyed_str(interpreter, compreg_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	19518	19624	
==>dering whether =begin $content matches $target_name\n";
        next unless $self->{'accept_targets'}{$targ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	4667	4778	
==>less defined $arg;
	$rest = '' unless defined $rest;
    }
    else {  # program output from import - really ugl <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7109	7209	
==>rt (11): ", instr(6, s1$, " ")
print "Inval  (0): ", instr(4, bogus$, "t")
' instr() tests
s1$="Mixed <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18838	18938	
==>rt (11): ", instr(6, s1$, " ")
print "Inval  (0): ", instr(4, bogus$, "t")
' instr() tests
s1$="Mixed <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	24061	24289	
==>sh @opcodes, @{ $expr2->[1] };
    push @opcodes, new AssignOp( $parser,
        'result' => $result,
        'arg1'   => $expr2->[0],
    );
    push @opcodes, new LabelOp( $parser,
        'arg1' => $lbl2,
    );
    re <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	1519	1619	
==>is file is generated automatically from '$infile'
 * by $0.
 *
 * Any changes made here will be lost! <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	3808	3908	
==>is file is generated automatically from '$infile'
 * by $0.
 *
 * Any changes made here will be lost! <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	13599	13703	
==>'s like().  Checks if $this matches the given $regex.

You'll want to avoid qr// if you want your tests t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403333	403633	
==>tion",
                  "CODE" => 466,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	4587	4694	
==>->emit("  .local pmc __func");
    $compiler->emit("  dlfunc __func, __lib, $fn_name, \"$sig\"");

    if ($ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77524	77704	
==>= qq{$tracerulename};
	write TRACE;
	if ($tracecontext ne $lastcontext)
	{
		if ($tracecontext)
		{
			$lastcontext = $tracecontext;
			$tracecontext = qq{"$tracecontext"};
		}
		el <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6430	6619	
==>token.\n";
        }

            defined($act)
        and do {

                $act > 0
            and do {        #shift

#DBG>				$debug & 0x04
#DBG>			and	print STDERR "Shif <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6133	6312	
==>token.\n";
        }

            defined($act)
        and do {

                $act > 0
            and do {        #shift

#DBG>				$debug & 0x04
#DBG>			and	print STDERR "Shif <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	2363	2530	
==>ce, $target, $silent)>

C<$source> is the directory in which the section's contents will be
looked for.

C<$target> is directory into which the section's output will be <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	1268	1376	
==>::ISA    = qw(Regex::Ops::Tree);
@Regex::Ops::Tree::multi_match::ISA  = qw(Regex::Ops::Tree);
@Regex::Ops::Tr <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	16789	16885	
==>e of a formatter
that uses Pod::Simple::PullParser.

=head1 METHODS

=over

=item my $token = $pa <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	6295	6444	
==>pi (@UnParrotAPI) {
	printf "%s\t%s\tNO_API\n", $api, $API{$api};
    }
}

if (keys %DataB) {
    printf "--- Uninitialized Modifiable Data: %d ---\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605167	605450	
==>1}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addattribute", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122058	122166	
==>sting a signed integral to the equivalent unsigned.\n   */\n  LVALUE_CAST(UINTVAL, {{\@1}}) >>= {{\@2}};\n  { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122970	123078	
==>sting a signed integral to the equivalent unsigned.\n   */\n  LVALUE_CAST(UINTVAL, {{\@1}}) >>= {{\@2}};\n  { <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	28706	28833	
==>eg}->{code}}, qq{\t.param $t $_\n};
			push @{$code{$seg}->{args}}, $_;
		} else {
			s/\(\)//g;
			$_=changename($_);
			#print <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3079	3199	
==>RN Label2   'Cannot return from here to main
                   'program - only to SUB1.
' Exit tests
sub mysub(b,c)
	pri <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17046	17166	
==>RN Label2   'Cannot return from here to main
                   'program - only to SUB1.
' Exit tests
sub mysub(b,c)
	pri <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24717	24828	
==>$textref, $pre, $ldel, $rdel, $omode, $bad, $ignore);

		return _fail(wantarray, $textref) unless @match;
		retu <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7551	7660	
==>$textref, $pre, $ldel, $rdel, $omode, $bad, $ignore);

	return _fail(wantarray, $textref) unless @match;
	retu <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28634	28736	
==>f->{hashname}.'}=') . '$&;
		' . ($self->{"lookahead"} ? '$text = $_savetext;' : '' ) .'
';

	return $c <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30712	30814	
==>f->{hashname}.'}=') . '$&;
		' . ($self->{"lookahead"} ? '$text = $_savetext;' : '' ) .'
';

	return $c <==
2	/Users/nnunley/parrot/lib/Test/More.pm	9066	9194	
==><qr/that/>.

So this:

    like($this, qr/that/, 'this is like that');

is similar to:

    ok( $this =~ /that/, 'this is like th <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47009	47108	
==>); }\n  else         { Interp_debug_CLEAR(interpreter, PARROT_ALL_DEBUG_FLAGS); }\n  {{=0,+=2}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47792	47891	
==>); }\n  else         { Interp_debug_CLEAR(interpreter, PARROT_ALL_DEBUG_FLAGS); }\n  {{=0,+=2}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5928	6176	
==>f->get('verbose') == 2;

    print "Looking up trigger $trigger on configuration key $key\n"
        if $verbose;

    return $self->{triggers}{$key}{$trigger};
}

=item C<deltrigger($key, $trigger)>

Removes the trigger on C<$key> named by C<$trigg <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	984	1080	
==>, or some other compiled language, rather than in Parrot
bytecode) may access.

There is a delibe <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	28510	28659	
==>p_denominator {
}

sub _op_floor {
}

sub _op_ceiling {
}

sub _op_truncate {
}

sub _op_round {
}

sub _op_rationalize {
}

sub _op_exp {
}

sub _op_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	38253	38545	
==>rn generated code.
	return $pir;
}


# Instruction to PIR routine.
# ###########################
sub ins_to_pir($$) {
	my $ins = shift;
	my $mv = shift;
	my $output;

	# Ensure we have a newline at the end.
	$ins .= "\n" unless $ins =~ /\n$/;

	# Escape some characters that will go into the o <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	18654	18772	
==>derivation from created classes.

    Added classname prefixes to keys in hash-based classes
    (refer to "Perl Cookbo <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	25688	25864	
==>///////////////////////////////
      $self->whine(
        $para->[1]{'start_line'},
        "=pod directives shouldn't be over one line long!  Ignoring all "
         . (@$par <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	7821	7967	
==>{symbol} $op->{op} $op->{arg2}->{symbol} goto $op->{result}->{symbol}\n";
        }
        else {
            print {$FH}
                "  u <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	7382	7525	
==>{symbol} $op->{op} $op->{arg2}->{symbol} goto $op->{result}->{symbol}\n";
        }
        else {
            print {$FH}
                " <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	878	979	
==>print "Stack is now: ",
    join(">", map $_->[0], @{$_[0]{'_currpos'}}), "\n";
  return;
}

sub _hand <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1111	1212	
==>print "Stack is now: ",
    join(">", map $_->[0], @{$_[0]{'_currpos'}}), "\n";
  return;
}

sub _hand <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8967	9062	
==>\"branch_cs: fixup for '%s' not found\", label);\n    else {\n\tinterpreter->resume_offset = fe- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10083	10178	
==>\"branch_cs: fixup for '%s' not found\", label);\n    else {\n\tinterpreter->resume_offset = fe- <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	10748	10959	
==>t, expect 7
a=0
b=7
a=b
print a

' Expect rough PI
print 22/7

' Expect 6.00000
t=6
print t

' Expect -7
t%=-7
print t%

' Expect 7
t%=7
print t%*1

' Also expect 7
t%=7
print 1*t%

' Expect correct
t=0
if t then <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	18372	18498	
==>ie "Parrot::OpsFile::version(): Illegal argument count" . scalar(@_) . "!";
    }
}

=item C<major_version()>

Returns the majo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14922	15170	
==>JUMP" => "PARROT_JUMP_ADDRESS",
                  "NAME" => "jump",
                  "FLAGS" => ":base_loop",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inlin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213649	214120	
==>> [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 251,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 448 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_p <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	11089	11246	
==>vtable_num($1);
            #print $op->full_name .": $jit_func $extern\n";
        }
        # *) $X->vtable->{vtable}(interp, $Y, $Z)
        elsif ($opbody <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24070	24199	
==>ue>);
    #   redo <label> unless (<value> <op> <value>);
    #

    if ($token->is_loop_control) {
      my $block = $self->curre <==
2	/Users/nnunley/parrot/config/gen/config_pm.pm	500	647	
==>enfile);
use Data::Dumper;
use Cwd qw(cwd);

$description = "Recording configuration data for later retrieval";

@args = ();

sub runstep
{
    my ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92915	93364	
==>ase_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 115,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 58 \"src/ops/bit.ops\"\n  string_bitwise_and(interpreter, {{ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	7083	7234	
==>s($t->{args}->[1], 0, 0);
        return $t;
    }

    # Have enough for any possible match of this subtree?
    return $t if (defined($t->maxlen()) && <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15869	16000	
==>P/;
  my $value = $self->_generate (_get_arg($node,2));
  $self->_add_inst ('', 'set', [$return.'[1]',$value]);
  $self->_restore ($ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15511	15627	
==>P/;
  my $value = $self->_generate (_get_arg($node,2));
  $self->_add_inst ('', 'set', [$return.'[0]',$value]);
  $se <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	1347	1483	
==>ags = join ' ', map { "-I$_" } @incdirs;

my %all_errors;
foreach my $file (@ARGV) {    
    next unless ($file =~ /\.[ch]$/);
    my %ba <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	40106	40375	
==>l => MAX );

	# EXTRACTED: "/para line 1\n"

Note that the specified C<fail> behaviour applies to nested tags as well.

=back

On success in a list context, an array of 6 elements is returned. The elements are:

=over 4

=item [0]

the extracted tagged substring (includ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	50718	50859	
==>1] }, ' ';
        } elsif( 2 == @{ $lineage[-1] } ) { # Closing a childless element
          push @{ $lineage[-1] }, ''; # keep it from bein <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913635	914027	
==>"i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1029,
                  "ARGS" => [
                              "i",
                              "sc",
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = strin <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	3939	4045	
==>file_paths()
{
    my $self = shift;

    return sort grep {-f} $self->file_and_directory_paths;
}

=item C <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	4856	4962	
==>xt if $_->{'unimplemented'};
        my $label = "BODY_$_->{'class'}___$_->{'method'}";
        $label =~ s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2759	2856	
==>\\par}\n",
 'item-number'  => "\n{\\pard\\li#rtfindent##rtfitemkeepn#\\sb60\\sa150\\fi-120\n",
 '/ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3187	3292	
==>sub(b,c)
	print "Print me"
	exit sub
	print "Don't print me"
end sub
function foo$
	foo$="Right one"
	exit <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17154	17259	
==>sub(b,c)
	print "Print me"
	exit sub
	print "Don't print me"
end sub
function foo$
	foo$="Right one"
	exit <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	6701	6809	
==>G > 6 and print "$this\'s accept_directives : ",
   pretty($this->{'accept_directives'}), "\n";
  
  return s <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	23	122	
==>(C) 2001-2003, The Perl Foundation.
# $Id: /parrot/examples/mops/mops.pl 19601 2006-05-30T13:32:26.6 <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	661	765	
==>gs = $ENV{TEST_PROG_ARGS} || '';

    $lang_f = File::Spec->rel2abs($lang_f);
    $out_f  = File::Spec->r <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	698	802	
==>gs = $ENV{TEST_PROG_ARGS} || '';

    $lang_f = File::Spec->rel2abs($lang_f);
    $out_f  = File::Spec->r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478951	479205	
==>{{\@1}} = floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479843	480097	
==>{{\@1}} = floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16821	16941	
==>6789])/'&#'.(ord($1)).';'/eg;
        # Leave out "- so that "--" won't make it thru in X-generated comments
        #  w <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10265	10377	
==>6789])/'&#'.(ord($1)).';'/eg;
    # Leave out "- so that "--" won't make it thru in X-generated comments
    #  w <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	622057	622197	
==>in opcode */\n    ((void**)cur_opcode)[0] =\n\tparrot_pic_opcode(interpreter, PARROT_OP_get_params_pc);\n    ((void**)cur_opcode)[1] = mic->m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623910	624031	
==>in opcode */\n    ((void**)cur_opcode)[0] =\n\tparrot_pic_opcode(interpreter, PARROT_OP_set_returns_pc);\n    ((void**)cur <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	17446	17558	
==>rser->set_source( \$document_source )

=item $parser->set_source( \@document_lines )

=back

Or you can call thes <==
2	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1795	1917	
==>sion=lzma
SolidCompression=yes
ChangesAssociations=yes

[Files]
Source: "$options{prefix}\\*"; DestDir: "{app}"; Flags: ign <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8924	9061	
==>int "*";
	next j
	print 
next i

' Trig
w=15
dim a$(w)
for i = 0 to (22/7)*2 step 0.40
	for j = 1 to w*2
		a$(j)=" "
	next j
	a$(w+w*sin(i <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	3038	3130	
==>ring comparison of output
with the expected result is true.

=item C<pir_output_like($code, $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4285	4407	
==>ps::Tree::_atom;

sub minlen { 1 }
sub maxlen { 1 }
sub dfa_safe { 1 }
sub hasback { 1 }

# Sequences of regexes like RS
pa <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	4542	4687	
==>, \@children), $ctx);
        @{ $t->{args} } = ($opt, $leftovers);
        return $t;
    } else {
        # Find all subtrees, and recurse throu <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	13140	13238	
==>a test is broken because something is not implemented yet. So
in order to still allow that to be te <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	197	313	
==>o/Construct/Block/File.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	3	110	
==>Id: /parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm 18930 2006-04-24T19:32:28.634218Z bernhard  $

package Pa <==
2	/Users/nnunley/parrot/config/auto/funcptr.pm	198	302	
==>DESCRIPTION

Verifies that the compiler supports function pointer casts.

=cut

package auto::funcptr;

u <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023391	1023507	
==>Parrot_localtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024241	1024357	
==>Parrot_localtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	26028	26245	
==>e[$code_l]->[2];
    if ($opcode eq 'POP_TOP') {
	print "# POP_TOP\n";
	$code_l++;
    }
    else {
	if (!$t) {
	    $t = temp('P');
	    print <<EOC;
	$t = P5
EOC
	}
	push @stack, [$name, $t, $rett];
    }
}

sub POP_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1862	1982	
==>== @args;

  for (my $i = 0; $i < @args; $i++) {
    my ($formal_arg_type, $formal_arg_name) = @{$formal_args[$i]};
    m <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1562	1682	
==>== @args;

  for (my $i = 0; $i < @args; $i++) {
    my ($formal_arg_type, $formal_arg_name) = @{$formal_args[$i]};
    m <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	422	558	
==>Block);


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $kind        = $self->kind;
  my $peer        = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	402	538	
==>Block);


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $kind        = $self->kind;
  my $peer        = <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	42035	42162	
==>ed). It returns
a reference to a subroutine which in turn takes a single argument (the text to
be extracted from).

In other wor <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	97	198	
==>yright (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/tools/dev/extract_file_descriptions.pl 19607 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495683	496115	
==>"o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 569,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 590 \"src/ops/math.ops\"\n  {{\@1}} = intval_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41012	41134	
==>)
      $self->{'content_seen'} ||= 1;
      $self->_traverse_treelet_bit(@$para);
    }
  }
  
  return;
}

sub _traverse_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10019	10120	
==>[$$stack[-1][0]]{ACTIONS}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Pop sta <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9571	9669	
==>[$$stack[-1][0]]{ACTIONS}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Pop sta <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225959	226400	
==>RGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 264,
                  "ARGS" => [
                              "p",
                              "nc",
                              "ic"
                            ],
                  "BODY" => "#line 523 \"s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759875	760112	
==>e->set_pmc(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	24724	24907	
==>Ogling extensor: =extend $content\n";

  if($content =~
    m/^
      (\S+)         # 1 : new item
      \s+
      (\S+)         # 2 : fallback(s)
      (?:\s+(\S+))? # 3 : element nam <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	49814	49931	
==>hat's more than we needed to close complex.\n";
        pos($para) = pos($para) - length($3) + $stack[-1];
      } els <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	38539	38677	
==>r ($fors[-1][1]{'target'}) is a non-resolver\n";
            $para->[0] = $para_type = 'Data';
          }
        }
      }

      #~~~~~~ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	229784	230236	
==>_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 268,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" = <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	7308	7418	
==>truct;
            # declare struct, based on array, implicit class name:
    struct( ELEMENT_NAME => ELEMENT_T <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	3652	3767	
==>o,$text)
	if $path =~ /\.(pl|pm|t|PL|pod|pasm)$|_pm\.in$/
	    or $text =~ /^\#/;
    return &describe_misc_file($in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009837	1009926	
==>ine 659 \"src/ops/string.ops\"\n  {{\@1}} = string_compose(interpreter, {{\@2}});\n  {{+=3 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010602	1010691	
==>ine 659 \"src/ops/string.ops\"\n  {{\@1}} = string_compose(interpreter, {{\@2}});\n  {{+=3 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	7899	8055	
==>:= %<rx_pos>-1\n"),
                        aop('setend', [ $group, '<pos>', -1 ]),
                        aop('goto', [ $next ]),
              $rfail => $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeSmart.pm	180	334	
==>Simple;
require Encode;

sub is_dumb  {0}
sub is_smart {1}

sub all_encodings {
  return Encode::->encodings(':all');
}

sub encoding_is_available {
  retu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22670	22878	
==>=> "inline",
                  "CODE" => 30,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 409 \"src/ops/core.ops\"\n  opcode <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758015	758311	
==>"i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 855,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 276 \"src/ops/set.ops\" <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	4196	4342	
==>ngs to muck with line could be done here:

 o remove extraneous spaces.
 o add in "proper" spacing (after commas, etc.)
 o heredocs could be treate <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	252184	252424	
==>logical_not(interpreter, {{\@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	478	667	
==>eturns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new(
		'IMCC', 'imcc.html', '', 
		$self->new_group('Documentation', '', 'docs/imcc'),
		$self->new_group('E <==
2	/Users/nnunley/parrot/config/inter/lex.pm	413	513	
==>use Parrot::Configure::Step qw( :inter capture_output check_progs );

$util        = 'lex';
$descript <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2846	3035	
==>ub visitKeyedSetOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol}\[$op->{arg1}->{symbol}\] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439223	439597	
==>,
                  "TYPE" => "inline",
                  "CODE" => 503,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 104 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658241	658328	
==>rc/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659160	659247	
==>rc/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed( <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	1842	1940	
==>ator->gen_h($h_name);
    print $hout if $opt->{debug};
    print "Writing $h_name\n" if $opt->{ver <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	603021	603305	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "classname",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1096127	1096411	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "classname",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540825	541148	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":adv <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542077	542400	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":adv <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	8170	8313	
==>lse {  # It's a filename!
    DEBUG and print "$self 's source is filename $_[0]\n";
    {
      local *PODSOURCE;
      open(PODSOURCE, "<$_[0] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936418	936673	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "titlecase",
                  "FLAGS" => ":base_core",
                  "A <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937195	937450	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "titlecase",
                  "FLAGS" => ":base_core",
                  "A <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737021	737435	
==>base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 828,
                  "ARGS" => [
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 144 \"src/ops/set.ops\"\ <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	1660	1841	
==>ettrigger("cc", "solaris_link", $solaris_link_cb);

    ################################################################
    # cc_shared:  Flags to instruct the compiler to use posit <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	5446	5545	
==>preamble for inclusion in C code,
    and an array of C<Parrot::Op> instances representing the Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	339	434	
==>preamble for inclusion in C code,
and an array of C<Parrot::Op> instances representing the Parro <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	4540	4673	
==>.= <<"EOM";
#define VTABLE_$entry->[1]($args) \\
    (pmc)->vtable->$entry->[1]($args)
EOM
    }
    $macros .= <<"EOM";

/*
 * vtable <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2996	3118	
==>(as in virtu\)
 #           acute looks like / (as in re/sume/)
 #           circumflex looks like ^ (as in papier ma^che/) <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	1396	1499	
==>ts) {
        printf("%04x: %08x %08x %08x %08x %s\n",
	    $constant_num, $_->flags, $_->encoding, $_-> <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5722	5864	
==>p";
 
        # there can be many libs
        my %libs = %{ $class->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There s <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5933	6075	
==>p";
 
        # there can be many libs
        my %libs = %{ $class->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621421	621524	
==>}\n    lru = &mic->lru;\n    if (lru->u.signature == sig) {\n\tif (sig) {\n\t    n = ((arg_pass_f)lru->f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623590	623693	
==>}\n    lru = &mic->lru;\n    if (lru->u.signature == sig) {\n\tif (sig) {\n\t    n = ((arg_pass_f)lru->f <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	3727	3885	
==>86,
 'raquo'    , 187,
 'frac14'   , 188,
 'frac12'   , 189,
 'frac34'   , 190,
 'iquest'   , 191,
 'Agrave'   , 192,
 'Aacute'   , 193,
 'Acirc'    , 194,
 'A <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411048	411318	
==>O_send(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411941	412211	
==>O_send(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	14069	14198	
==>n its prefix, etc.
      # correct by virtue of initializing itself based on its peer block's info
      # (available by passing $ <==
2	/Users/nnunley/parrot/config/gen/platform.pm	2098	2227	
==>header_file\n") if defined $verbose && $verbose == 2;
            open IN_H, "< $header_file" or die "Can't open $header_file: $!" <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	898	1063	
==>t> method and exports no
I<symbols>.

=cut

package Parrot::Configure::Data;

use strict;
use warnings;

use Data::Dumper;

=head2 Methods

=head3 Constructors

=over <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	881	982	
==>struct::Expression::Value');
  confess "Op is not scalar!" if ref $op;
  confess "Right is not Value!" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	893	994	
==>struct::Expression::Value');
  confess "Op is not scalar!" if ref $op;
  confess "Right is not Value!" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584718	584975	
==>er, class, NULL);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585793	586050	
==>er, class, NULL);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6462	6660	
==>t is present. Returns undef if nothing
# was skipped, otherwise returns the token skipped.
#
# If more than one type is specified, the semantics are "or".
#

sub skip
{
  my $self = shift;
  my ($kin <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	6393	6660	
==>onf->data->get($1))) {
                #use Data::Dumper;warn Dumper("val for $1 is ",$val);
                $val;
            } else {
                warn "value for '$1' in $source is undef";
                '';
            }
        }egx;

        if ($options{rep <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31297	31459	
==>= ();
    my @opcodes3 = ();
    my @params1  = ();
    my @return1  = ();
    my $var1     = ${$vars}[0];
    my $nil      = BuildLiteral( $parser, 'nil', 'n <==
2	/Users/nnunley/parrot/tools/dev/as2c.pl	597	724	
==>$s = shift;
    open IN, "<$s" or die "Can't read '$s': $1";
    my ($in_comment);
    $in_comment = 1;
    print "/*\n";
    wh <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115063	115417	
==>i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 143,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 209 \"src <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	41080	41219	
==>to'}), "\n";
      }
      
      # And update children to be the link-text:
      @$ell = (@$ell[0,1], defined($link_text) ? splice(@$link_ <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	11986	12091	
==>ndividual languages targetting parrot (e.g. tcl),
    are also available.
  </p>

  <p>
    Submitting you <==
2	/Users/nnunley/parrot/config/auto/m4.pm	733	864	
==>if (!defined $osname) {
        ($osname, $cpuarch) = ($cpuarch, "");
    }

    my $has_gnu_m4;

    # Calling 'm4 --version' hangs <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	3481	3717	
==>==\n";
        my @funcs = extract_functions( $source );

        for my $func ( @funcs ) {
            push( @{$files{$hfile}}, function_components( $func ) );
            ++$nfuncs;
        }
    } # for @cfiles
    my $nfiles = scalar <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	1024	1254	
==>Ops::Tree::_atom);
@Regex::Ops::Tree::charclass::ISA    = qw(Regex::Ops::Tree::_atom);
@Regex::Ops::Tree::classpieces::ISA  = qw(Regex::Ops::Tree::_atom);
@Regex::Ops::Tree::seq::ISA          = qw(Regex::Ops::Tree);
@Regex::Ops::Tr <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10980	11238	
==>) {
      $out .= $t->text;
    } elsif($t->is_start and $t->tag eq 'X') {
      # ignore until the end of this X<...> sequence
      my $x_open = 1;
      while($x_open) {
        next if( ($t = shift @_)->is_text );
        if(   $t->is_start and $t->tag eq <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788671	788904	
==>S" => [
                              "n",
                              "p",
                              "kic"
                            ],
                  "BODY" => "#line 422 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	7293	7421	
==>kip_new           { return shift->skip('new');           }
sub skip_open_brace    { return shift->skip('open-brace');    }
sub sk <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	619862	620056	
==>e(interpreter, left, a);\n\t    mmd_dispatch_p_pip(interpreter, left, b, left, MMD_SUBTRACT);\n\t}\n    }\n    else {\n        ((void**)cur_opcode)[0] =\n            parrot_pic_opcode(interpreter <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	2723	2838	
==>le_save_rxlocals {
    my ($self) = @_;

    my $rxlocals = ($self->{rxlocals} ||= []);
    return (aop(comment => [ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4918	5113	
==>elf->{state}->genlabel("pass_charclass");
    my @ops = ("ord <rx_tmp>, <rx_input>, <rx_pos> # tmp = INPUT[pos]");
    my $fail = $self->output_label_use($failLabel);
    my $pass = $self->output_ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	4982	5306	
==>})
		{
			$self->reset;
		}
		return $self;
	}
	else
	{
		return $owner->{"rules"}{$name} =
			bless
			{
				"name"     => $name,
				"prods"    => [],
				"calls"    => [],
				"changed"  => 0,
				"line"     => $line,
				"impcount" => 0,
				"opcount"  => 0,
				"vars"	   => "",
			}, $class;
	}
}

sub reset($)
{
	@{$_[ <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	3383	3540	
==>ile (my($t, $body) = each(%templates)) {
                if ($asm =~ /$t\s+/) {
                    my $tbody = $body;
                    while ($asm =~ s/\b <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	49158	49310	
==>0], [$var], [ $_[4] ] );
        }
	],
	[#Rule 28
		 '@9-2', 0,
sub
#line 171 "Lua\lua51.yp"
{
            PushScopeF( $_[0] );
            Push <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	4842	4954	
==>now packed PBC
    $byte_code = $pf->pack();

    $offset = 0;
    while($offset < length($byte_code)){
	print jo <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2320	2445	
==>ed_else($file, $source);
    check_comments($file, $source);
    check_mandatory_boilerplate($file, $source);

    # The follo <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33458	33582	
==>($$$$;$$$)
{
	my $class = ref($_[0]) || $_[0];
	bless 
	{
		"subrule"   => $_[1],
		"lookahead" => $_[2],
		"line"      => $_ <==
2	/Users/nnunley/parrot/config/auto/gc.pm	45	198	
==>n.
# $Id: /parrot/config/auto/gc.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/gc.pm - Garbage Collection

=head1 DESCRIPTION

Ch <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298202	298519	
==>> "isne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 347,
                  "ARGS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569704	570238	
==>> ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 651,
                  "ARGS" => [
                              "i",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 218 \"src/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->isa(inte <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	5880	6026	
==>ack;
  my $dont_wrap = 0;
  while($token = $self->get_token) {

    # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    if( <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	20493	20614	
==>' if ($func =~ s/_FLOAT$//);
            $right = 'enum_type_STRING'   if ($func =~ s/_STR$//);
            if (exists $se <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	311396	311533	
==>rpreter->num_reg, -1);\n        PDB_print_string(interpreter,&interpreter->string_reg, -1);\n        PDB_print_pmc(interpreter,&interprete <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	60216	60316	
==>essarily where it occurred!)
Printing C<$@> directly produces the error message, with the offset appe <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4376	4484	
==>failLabel) = @_;
    my $comment = Regex::Ops::Tree::isplain($code) ? " # match '".chr($code)."'" : "";
    m <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4063	4171	
==>failLabel) = @_;
    my $comment = Regex::Ops::Tree::isplain($code) ? " # match '".chr($code)."'" : "";
    m <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	6363	6522	
==>"$nm_cmd $nm_opt $f |")) {
	my $o = "?";
	$o = $f if $f =~ /\.o$/;
	my $file;
	while(<NM>) {
	    chomp;
	    if (m/^(.+\.o):$/ || m/\[(.+\.o)\]:$/ || m/\((.+\. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439076	439528	
==>,
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 503,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "i"
                            ],
                  "BODY" => "#li <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1587	1722	
==>represent "section" attributes of L codes

=head1 SYNOPSIS

 # a long story

=head1 DESCRIPTION

This class is not of interest to genera <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	3557	3671	
==>) {
            my ($percent, $total_lines, $real_filename) = /\s*([^%]+)% of (\d+)(?: source)? lines executed in f <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9187	9280	
==>0x2441453,/* 22 */
GG,$c,$d,$a,$b,$_[19],14,0xd8a1e681,/* 23 */
GG,$b,$c,$d,$a,$_[8],20,0xe7d3 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20080	20238	
==>00
	b=rnd*max+1
	a(b)=a(b)+1
next i
for i = 1 to max
	print ,
	for j = 0 to a(i)
		print "*";
	next j
	print 
next i

' Square roots and sgn
print 10,sqr(10)
p <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8839	8959	
==>00
	b=rnd*max+1
	a(b)=a(b)+1
next i
for i = 1 to max
	print ,
	for j = 0 to a(i)
		print "*";
	next j
	print 
next i

' T <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	6207	6564	
==>/$1$2\n/gx     # and put a NL before those spaces
        if $WRAP;
        # This may wrap at well past the 65th column, but not past the 120th.
      
      print $fh $scratch;

    } elsif( $type eq 'start' ) {
      DEBUG > 1 and print "  +$type ",$token->tagname,
        " (", map("<$_> ", %{$token->attr_hash}), ")\n";

      if( ($tagname = $token->t <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	6324	6599	
==>return ",
   Pod::Simple::pretty( @{$self->{'token_buffer'}}
     ? $self->{'token_buffer'}[-1] : undef
   ), "\n";
  return shift @{$self->{'token_buffer'}}; # that's an undef if empty
}

use UNIVERSAL ();
sub unget_token {
  my $self = shift;
  DEBUG and print "Ungetting ", <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3935	4034	
==>$failLabel, $lenvar) = @_;
    $lenvar ||= "<rx_len>";
    my $fail = $self->output_label_use($failL <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3649	3748	
==>$failLabel, $lenvar) = @_;
    $lenvar ||= "<rx_len>";
    my $fail = $self->output_label_use($failL <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	45106	45354	
==>pos($formatting)-length($1), length($1));
      } else {
        #print "SNARING $+\n";
        push @new_line, [
          (
            $3 ? 'VerbatimB'  :
            $4 ? 'VerbatimI'  :
            $5 ? 'VerbatimBI' : die("Should never get calle <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	32384	32582	
==>'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 113
		ACTIONS => {
			'ELSE' => 159,
			'ELSEIF' => 161,
			'END' => 160
		}
	},
	{#Sta <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	530	675	
==>s_label {
    return UNIVERSAL::isa(shift(), 'Regex::Ops::Label');
}

=item method label_indices(op)

Figure out which arguments of an op are labe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78986	79094	
==>t p = Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? NULL : PMC_data({{\@2}}), name);\n  string_cstring_free(name);\n  i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80507	80615	
==>t p = Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? NULL : PMC_data({{\@2}}), name);\n  string_cstring_free(name);\n  i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432427	432517	
==>e 84 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433442	433532	
==>e 84 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054350	1054442	
==>l_exception(1, \"Tried to get from null namespace.\");\n    if (!{{\@3}})\n\tinternal_excepti <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055477	1055569	
==>l_exception(1, \"Tried to get from null namespace.\");\n    if (!{{\@3}})\n\tinternal_excepti <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5865	6071	
==>e> <ident>, <ident>, ... = <value>; # TODO: SHOULD BE LIMITED TO LITERAL?
    #

    if ($token->is_var or $token->is_const) {
      my $access = $token->text; # 'const' or 'var'.

      my $type       = Jak <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9246	9376	
==>my $self = shift;

    my $cout = "";
    $cout .= <<"EOC";
#include "parrot/parrot.h"
#include "parrot/extend.h"
#include "parrot/ <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1303	1496	
==>rot.
        # And, conversely, how many levels we have to go down to get to
        # the tcl binary.

        # There are basically 2 choices: run in one of:
        #  languages
        #  la <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	773	897	
==>rot.
    # And, conversely, how many levels we have to go down to get to
    # the tcl binary.

    # There are basically 3 c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641819	642301	
==>"ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 717,
                  "ARGS" => [
                              "i",
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 194 \"src/ops/pmc.ops\"\n  {{\@1}} = {{\@2}}->vtab <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	5038	5302	
==>t =~ s/-mno-accumulate-outgoing-args//;
                }
            }
            $warns .= " $opt";
        }

        # if the user overwrites the warnings remove it from $warns
        if ($ccwarn) {
            my @warns = split ' ', $warns;
            forea <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	46257	46449	
==>emicolon_opt', 0, undef
	],
	[#Rule 7
		 'block', 1,
sub
#line 75 "Lua\lua51.yp"
{
            PopScope( $_[0] );
            $_[1];
        }
	],
	[#Rule 8
		 'block', 3,
sub
#li <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15770	15937	
==>s.
  # We don't want to change the "-" to hard-hyphen, because we want to
  #  be able to paste this into a file and run it without there being
  #  dire screaming abou <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	18541	18703	
==>k, $next) =
     map { $self->genlabel("gr_$_") } qw(loop back local_back check next);

    my $matchcount = $self->new_rxlocal($op, "matchcount");

    my ($R_bac <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	5761	6033	
==>->{fh}
            or return;

        for ( $parser->YYData->{INPUT} ) {
            s/^\n//
                and $parser->YYData->{lineno}++,
                last;
            s/^\]$level\]//
                and return;
            s/^.//
                and las <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441143	441561	
==>,
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 505,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "n"
                            ],
                  "BODY" => "#line 1 <==
2	/Users/nnunley/parrot/lib/Test/More.pm	22233	22439	
==>You then know the thing you had todo is done and can remove the
TODO flag.

The nice part about todo tests, as opposed to simply commenting out a
block of tests, is it's like having a programmatic todo list. <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	12647	12767	
==>name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $dont_expect ) {
        # undef only match <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	13091	13211	
==>name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $dont_expect ) {
        # undef only match <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	392584	393064	
==>AGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 456,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic",
                              "ic <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103882	1103970	
==>\tINTVAL type = pmc_type(interpreter, class);\n\tif (!type) {\n\t\tParrot_autoload_class( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105097	1105185	
==>\tINTVAL type = pmc_type(interpreter, class);\n\tif (!type) {\n\t\tParrot_autoload_class( <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	339	489	
==>arious Parrot-specific formatting features, such as linking
C<CE<lt>Parrot::I<Module>E<gt>> and C<FE<lt>I<file>E<gt>>, and using the
Parrot house-style <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	43385	43513	
==>nd print "  It's a formatty line.  ",
       "Peeking at previous line ", $i-1, ": $$p[$i-1]: \n";
      
      if( $p->[$i-1] =~ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6077	6179	
==>nstruct::Type->new($self->require_type);

      $self->INTERNAL_ERROR("Could not determine type.") unle <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7166	7276	
==>$code)=@{$$rules[-$act]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print STDERR "Reduce using rule <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6834	6940	
==>$code)=@{$$rules[-$act]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print STDERR "Reduce using rule <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	2889	3008	
==>line in an unimplemented method?
        } elsif ($cur_method->{'unimplemented'}) {
            die "Unimplemented metho <==
2	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	872	1013	
==>a smoke; aborting.\n";
    exit 1;
  }

  $request{smoke} = $compress->($smoke) || $smoke;
  debug "ok.\n";
}

{
  debug "Sending data to smok <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7993	8139	
==>len);

                $$check eq 'ACCEPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Accept.\n";

				return($se <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7635	7773	
==>len);

                $$check eq 'ACCEPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Accept.\n";

				return($se <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1523	1786	
==>DO
                              #
DONE:                         # DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
print "Elapsed time:  $N2\n"; # pri <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1523	1786	
==>DO
                              #
DONE:                         # DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
print "Elapsed time:  $N2\n"; # pri <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	14064	14216	
==>, $c, $cmt) = @_;
    my $tos = pop @stack;
    my $f;
    $tos->[1] =~ /<code> (\S+)/;
    $f = $1;
    print "\t\t$cmt $f\n";
    if ($n) {
	for (my $i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012986	1013280	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "err",
                  "FLAGS" => "" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015137	1015431	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "err",
                  "FLAGS" => "" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79464	79567	
==>th it so we can get and set the value */\n      {{\@1}} = pmc_new(interpreter, enum_class_UnManagedStruc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80985	81088	
==>th it so we can get and set the value */\n      {{\@1}} = pmc_new(interpreter, enum_class_UnManagedStruc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756756	756980	
==>sign_string_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757546	757770	
==>sign_string_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2806	2941	
==>Invalid escape sequence $_ .\n"),
                last;
        }
    }

    $parser->Error("Untermined string.\n");
    $parser-> <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4321	4456	
==>Invalid escape sequence $_ .\n"),
                last;
        }
    }

    $parser->Error("Untermined string.\n");
    $parser-> <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	5316	5439	
==>al_calls) = /\s*([^%]+)% of (\d+) calls executed in file/;
            if ($total_calls) {
                my $covered_calls <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	35364	35554	
==>lock};
    push @opcodes1, new BranchOp( $parser,
        'result' => $lbl_loop,
    );
    push @opcodes1, new LabelOp( $parser,
        'arg1' => $lbl_end,
    );
    return \@opcode <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	3418	3561	
==>)?   # optional line
	(\d+)\s+        # PC
	([\w+]+)\s+      # opcode e.g. SLICE+3
	(?:(\d+)(?:\s+\((.*)\))?)? # oparg rest
	/x) {
	($line, $pc, <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	8907	9102	
==>nerate($_);
  }

  $self->_add_inst('', 'set', ['P5', $temp]);

  $self->_add_inst('', '# pop_pad');
  $self->_add_inst('', 'returncc');
  $self->_add_inst("DONE_$label");

  $self->{regs} = pop @ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	257	358	
==>9Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Type::String;

use base qw(Ja <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	166	277	
==>ns::CSwitch - C Switch Transform

=head1 DESCRIPTION

C<Parrot::OpTrans::CSwitch> inherits from C<Parrot::OpTran <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	16896	17063	
==>r TRUTH
	ne I1, 1, CASE_${jump}_${incase}
ENDCASE
	$selects[-1]->{incase}=$incase;
}



my $false;
my $whilecounter=0;
sub parse_while {
	$whilecounter++;
	push(@whiles <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	58	188	
==>rrot/lib/Parrot/OpTrans/Compiled.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::OpTrans::Compiled - Transfo <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	5786	5915	
==>$ParrotPrefix) {
	push @UnParrotAPI, $api;
    }
}

if (@NoParrotAPI) {
    printf "--- Missing Parrot API: %d ---\n", scalar @NoP <==
2	/Users/nnunley/parrot/config/inter/progs.pm	156	318	
==>ogs.pm - C Compiler and Linker

=head1 DESCRIPTION

Asks the user which compiler, linker, shared library builder, C libraries,
lexical analyzer generator and parse <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8700	8811	
==>f ${ITEMP0} == 0 goto PRE_CALL_END_${CURIC}

# Get type of return value and build code to pop it.
${ITEMP1} = el <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7272	7383	
==>f ${ITEMP0} == 0 goto PRE_CALL_END_${CURIC}

# Get type of return value and build code to pop it.
${ITEMP1} = el <==
2	/Users/nnunley/parrot/languages/regex/regex.pl	37	173	
==>e Regex;
use Regex::Driver;
use strict;

my $operation;
my $expr;
my $expr_file;
my $tree_opt = 1;
my $list_opt = 1;
my $debug = 0;
my $o <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	1722	1881	
==>l'),
		$self->config_groups,
        $self->new_group('Documentation', '',
		    $self->new_item('How to add new configuration steps.', 
		        'docs/configu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656395	656496	
==>rc/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed_int(interprete <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657319	657420	
==>rc/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed_int(interprete <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9995	10101	
==>rror})
					or	$$states[$$stack[-1][0]]{ACTIONS}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	prin <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9548	9650	
==>rror})
					or	$$states[$$stack[-1][0]]{ACTIONS}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	prin <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40518	40631	
==>85,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' = <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	3025	3124	
==>TORY

Initial version by Dan Sugalski.

=cut

*/

/*
 * Local variables:
 * c-indentation-style: bsd <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	19641	19799	
==>58, "ascii", 0);
#else
    ns = string_make(interpreter, ".\\nCAN_BUILD_CALL_FRAMES is disabled, add the signature to src/call_list.txt", 75, "ascii", 0);
#end <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	269	371	
==>ntax highlighting file for Parrot IMCC.\n",
        "Supply the path to your Parrot directory as the on <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	38935	39056	
==>!ref($ell_content[0]) and !ref($ell_content[-1])
         and $ell_content[ 0] =~ m/^\"/s
         and $ell_content[-1] =~ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11335	11554	
==>LATIVE|PARROT_JUMP_ENEXT",
                  "NAME" => "bsr",
                  "FLAGS" => ":base_core,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ], <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3339	3574	
==>ccess_arg
{
    my ($self, $type, $num, $op) = @_;

    #print STDERR "pbcc: map_arg($type, $num)\n";

    return sprintf($arg_maps{$type}, $self->arg($num - 1));
}

=item C<restart_address($address)>

Returns the C code for C<restart A <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	6156	6412	
==>evnull) or die "Unable to redirect STDOUT";
select COPYOUT;
$| = 1;

my @max = $cfg{method} == 1 ? (5) x @program : (6) x @program;
Longest( $max[0], length $_ ) for 'Benchmark', keys %bench;
Longest( $max[ $_ + 1 ] , length $program[$_] ) for 0 .. $#progra <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7170	7334	
==>o::Construct::Block");
  confess "No block kind!"  unless defined $kind;
  confess "Extra arguments!" if @_;

  if ($self->kind eq $kind) {
    if (defined $label) { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56361	56585	
==>ops\"\n  {{\@1}} = interpinfo_p(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57123	57347	
==>ops\"\n  {{\@1}} = interpinfo_p(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	38101	38250	
==>parser->YYData->{self} ) {
        unshift @{$params}, $parser->YYData->{self};
        $parser->YYData->{self} = undef;
    }
    my $fct = new_f <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1055	1165	
==>m = 0;
	
	# Emit initial code.
	my $pir = <<'PIR';
# Get current stack types array size.
${ITEMP0} = elements $ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2765	2875	
==>m = 0;
	
	# Emit initial code.
	my $pir = <<'PIR';
# Get current stack types array size.
${ITEMP0} = elements $ <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	540	639	
==>nlined versions more declarative, this
lets us do this work B<once> instead of many times, which B<s <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42657	42883	
==>rs qw ( $AUTOLOAD $VERSION );

my $ERRORS = 0;

$VERSION = '1.80';

# BUILDING A PARSER

my $nextnamespace = "namespace000001";

sub _nextnamespace()
{
	return "Parse::RecDescent::" . $nextnamespace++;
}

sub new ($$)
{
	my $cl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477685	477968	
==>e",
                  "CODE" => 547,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 428 \"src/ops/math.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848260	848485	
==>@1}} = string_chopn(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849040	849265	
==>@1}} = string_chopn(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8858	8951	
==>ckFile_find_fixup_entry(interpreter,\n\t    enum_fixup_label, label);\n    if (!fe)\n\tinterna <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9974	10067	
==>ckFile_find_fixup_entry(interpreter,\n\t    enum_fixup_label, label);\n    if (!fe)\n\tinterna <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	944	1083	
==>:per_test( '.HQ9plus', $count );
        my $out_fn         = Parrot::Test::per_test( '.out', $count );
        my $path_to_parrot = Parrot: <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	45895	46022	
==>on't render it
       # at all.  But if you do want to implement hyphenation, I guess
       # that you'd better have nbsp_for_S <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	6725	6854	
==>e  = $op->func_name($trans);
    my $arg_types  = "$opsarraytype *, Interp *";
    my $prototype  = "$sym_export $opsarraytype * $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	311656	311856	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "backtrace",
                  "FLAGS" => ":base_debug",
                  "ARGDIRS" => [],
                  "TYPE" => "f <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	25990	26204	
==>d =extend parameter must be like"
        . " M or 1 or 0 or M,N or M,N,O but you have it like "
        . $fallbacks_one
      );
      return;
    }
    
    unless($elements_one =~ m/^[^ ,]+(,[^ ,]+)*$/s) { # lik <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	28302	28599	
==>ame}_ARGOK
	print "Function $englishname received "
	print argc
	print " arguments expected $_\\n"
	_platform_shutdown()
	end
${englishname}_ARGOK:
EOH
	$main::code{$main::seg}->{declarations}->{$englishname}=1;
	
	foreach (@params) {
		unless (/\(\)/) {
			my $t=typeof($_);
			$t="string" if $t e <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	5250	5352	
==>epository snapshot" : "release",
	  runcore2human($_[0]->{runcore}),
	  $_[0]->{cpuarch},
      $_[0]-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170114	170415	
==>TYPE" => "function",
                  "CODE" => 204,
                  "ARGS" => [
                              "p",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 211 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411825	411977	
==>"
                            ],
                  "BODY" => "#line 552 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_send(interpreter, {{\@2}}, {{\@3}}) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	13262	13477	
==>$class = ref($self) || $self;

   my $tag = __PACKAGE__ . ' ' . $VERSION;
   
   unless($class eq __PACKAGE__) {
     $tag = " ($tag)";
     $tag = " v" . $self->VERSION . $tag   if   defined $self->VERSION;
     $ta <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	839052	839387	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 951,
                  "ARGS" => [
                              "s"
                            ],
                  "BO <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	1175	1301	
==>00 doesn't work with glibc 2.1.3
        # _XOPEN_SOURCE=500 gives 2 undefined warns (setenv, unsetenv) on 2.1.3
        $cflag <==
2	/Users/nnunley/parrot/config/auto/isreg.pm	517	692	
==>self, $conf) = @_;

    my $test = 0;

    cc_gen('config/auto/isreg/test_c.in');
    eval { cc_build(); };
    unless ($@ || cc_run() !~ /ok/) {
        $test = 1;
    }
    c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724330	724455	
==>his be localized? */\n  STRING *s = (VTABLE_get_string(interpreter, p));\n  if (s) {\n    if (PIO_softspace(interpreter, io, 0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736663	736892	
==>ne 144 \"src/ops/set.ops\"\n  {{\@1}} = (FLOATVAL){{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737409	737638	
==>ne 144 \"src/ops/set.ops\"\n  {{\@1}} = (FLOATVAL){{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	13883	14022	
==>s_method} }};
            push @todo, $parent;
            push @{ $class->{parents} }, $parent;
        }
    }
}

=head2 dump_1_pmc($file) <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	3570	3773	
==>);
}
if ( ! defined $cfg{display_help} ) {
    $cfg{display_help} = $ini->val( global => 'help' );
}

pod2usage 1 if $cfg{display_help};

if ( ! defined $cfg{method} ) {
    $cfg{method} = $ini->val( glob <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	8013	8154	
==>self->{Skip_All} = 1;

    $self->_print($out) unless $self->no_header;
    exit(0);
}

=back

=head2 Running tests

These actually run the te <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5714	5846	
==>p @ifstack;
			if ($_ < 0 ) {
				# print "Else was done, skipping...\n";
			} else {
				push @{$code{$seg}->{code}}, "IFBRANCH_$_:\ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8064	8192	
==>p @ifstack;
		if ($_ < 0 ) {
			# print "Else was done, skipping...\n";
		} else {
			push @{$code{$seg}->{code}}, "IFBRANCH_$_:\ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	624	725	
==>:Construct::Block));
  confess "Type (" . ref($type) . ") is not!"  unless UNIVERSAL::isa($type, qw(Ja <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	615	714	
==>:Construct::Block));
  confess "Type (". ref($type) . ") is not!" unless UNIVERSAL::isa($type, qw(Ja <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8762	8880	
==>ctedly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_tests_badpass <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	59817	59977	
==>1 "Lua\lua51.yp"
{
            [ $_[2], $_[5] ];
        }
	],
	[#Rule 111
		 'field', 3,
sub
#line 595 "Lua\lua51.yp"
{
            [ BuildLiteral( $_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86753	87066	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new_callback",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87754	88067	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new_callback",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i" <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	2146	2319	
==>e same
executable, the last one will be used.  For instance, with the
configuration file above, foo.pir would be selected over foo.pasm

=head1 AUTHOR

Joshua Gatcomb, C<Limb <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348868	349136	
==>,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 162 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char * const path = string_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6305	6404	
==>nfess "Extra arguments!" if @_;

  my $sym = $self->get_symbol($name); # Return the identifier if de <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	9480	9644	
==>= fileparse($_);

        my ($filebase, $extension) = ($filename =~ /^(.*)\.(.*)/);
        $filebase ||= $filename;
        $extension ||= '';
        if ($filebas <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	9146	9244	
==>gs}->[1]->hasback() }
sub dfa_safe { my ($op) = @_; $op->{args}->[1]->dfa_safe() }

# Rule calls ar <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2509	2628	
==>will place its
  # definition into the block at the top of the block stack. We fill in the
  # IDENT entry within the bl <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2256	2375	
==>will place its
  # definition into the block at the top of the block stack. We fill in the
  # IDENT entry within the bl <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3316	3438	
==>e the test print the last line of output
        # XXX This should be "print the last command". Which is harder.
        $b <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4723	4845	
==>e the test print the last line of output
        # XXX This should be "print the last command". Which is harder.
        $b <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3	100	
==>opyright (C) 2001-2004, The Perl Foundation.
# $Id: /parrot/lib/Parrot/OpTrans/Compiled.pm 20333 2 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19700	19862	
==>tchcount == 0 goto lastback
#                 $matchcount--
#                 goto R.back
#           back: if $matchcount >= max goto rfail
#                 R or <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19402	19556	
==>tchcount == 0 goto lastback
#               $matchcount--
#               goto R.back
#         back: if $matchcount >= max goto rfail
#               R or <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33052	33157	
==>t_reg);
		$pir .= "### pre_store\n";
		$pir .= sub_meta($pre_store, $mv, "pre_store for rule $rule->{'name <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	137	302	
==>e Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnin <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	543	688	
==>ctives       = qw(head1 head2 head3 head4 item over back); 
%Known_directives       = map(($_=>'Plain'), @Known_directives);
$NL = $/ unless defin <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	3281	3475	
==>ion block
        if (/FUNCTION : (.*) \[(.*)\]/) {
            $function = $1;
            my $function_scope = $2;
            
            next;
        }
        
        # end of function bl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007741	1008212	
==>",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1124,
                  "ARGS" => [
                              "i",
                              "ic",
                              "sc",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_strin <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	5558	5716	
==>${base}${suffix}_$mmp_v";

print HEADER $preamble;
if ($dynamic_flag) {
    print HEADER "#define PARROT_IN_EXTENSION\n";
}
print HEADER <<END_C;
#include "par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093607	1093696	
==>" => "#line 209 \"src/ops/experimental.ops\"\n  VTABLE_morph(interpreter, {{\@1}}, {{\@2}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094410	1094499	
==>" => "#line 209 \"src/ops/experimental.ops\"\n  VTABLE_morph(interpreter, {{\@1}}, {{\@2}} <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	313	455	
==>g IMCC.

=head2 Class Methods

=over

=cut

package Parrot::Docs::Section::IMCC;

use strict;
use warnings;

use base qw( Parrot::Docs::Section <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	59487	59688	
==>, undef
	],
	[#Rule 107
		 'fieldlist', 1, undef
	],
	[#Rule 108
		 '_field_plus', 3,
sub
#line 580 "Lua\lua51.yp"
{
            [ @{ $_[1] }, $_[3] ];
        }
	],
	[#Rule 109
		 '_field <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33306	33430	
==>ush @return1, $var;
    }
    else {
        push @opcodes2, @{ $expr->[1] };
        push @opcodes3, new AssignOp( $pars <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10695	10801	
==>er {
    die;
}

sub Regex::Ops::Tree::classpieces::render {
    die;
}

sub Regex::Ops::Tree::seq::needpar <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712742	712944	
==>O_puts(interpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713849	714051	
==>O_puts(interpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883524	883729	
==>,
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884630	884835	
==>,
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest)\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803103	803391	
==>,
                  "CODE" => 906,
                  "ARGS" => [
                              "p",
                              "kc",
                              "sc"
                            ],
                  "BODY" => "#line 467 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_st <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22144	22265	
==>DEBUG and print "Ignoring mistargetted =end $content\n";
        next;
      }
      
      unless(@$curr_open and $curr_o <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	788	891	
==>hanged.
#
# (c) Copyright 1998-2001 Francois Desarmenien, all rights reserved.
# (see the pod text in <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	766	866	
==>hanged.
#
# (c) Copyright 1998-2001 Francois Desarmenien, all rights reserved.
# (see the pod text in <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9211	9306	
==>the path for the file with the specified with the specified path
taken relative to the directory <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367836	367952	
==>\@1}} = PIO_reads(interpreter, PIO_STDIN(interpreter), (size_t){{\@2}});\n  {{+=3}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368628	368744	
==>\@1}} = PIO_reads(interpreter, PIO_STDIN(interpreter), (size_t){{\@2}});\n  {{+=3}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21783	21931	
==>>new($block, $value_token) if defined $value_token;

      my ($cond, $left, $op, $right);

      if ($self->get(1)->is_if or $self->get(1)->is_unles <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27691	27810	
==>);
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end translation\n";

		# Emit code to fix up the stack type a <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37240	37359	
==>);
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end translation\n";

		# Emit code to fix up the stack type a <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	33669	33776	
==>b SLICE_plus_0 {
    return Slice(@_, 0);
}
sub SLICE_plus_1 {
    return Slice(@_, 1);
}
sub SLICE_plus_2 { <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8785	8901	
==>st::num_of_tests_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_tests_badpass = 0;
    $Test::num_ <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	188	292	
==>st::num_of_tests_run    = 0;
$Test::num_of_tests_failed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665239	665389	
==>n  {{\@1}}->vtable->delete_keyed_int(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666016	666166	
==>n  {{\@1}}->vtable->delete_keyed_int(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	13014	13156	
==>"+" => 24,
			'CODE' => 6,
			"(" => 10,
			"|" => 26,
			"*" => 27,
			"\$" => 29,
			"[" => 14,
			"." => 15
		},
		DEFAULT => -7,
		GOTOS => <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	17805	17953	
==>{No quotelike operator found after prefix at "} .
			     substr($$textref, pos($$textref), 20) .
			     q{..."},
		         pos $$textref;
		pos $$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2286	2423	
==>t C code.

=cut

sub goto_offset
{
    my ($self, $offset) = @_;
    return "{ cur_opcode += $offset; goto SWITCH_AGAIN; }";
}

=item C<go <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4434	4529	
==>my @ungrouped_pmcs = grep { ! exists $pmc_group->{$_} } @pmcs;
    partial_link($_, $pmc_libs->{ <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4538	4633	
==>my @ungrouped_pmcs = grep { ! exists $pmc_group->{$_} } @pmcs;
    partial_link($_, $pmc_libs->{ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9580	9685	
==>>

Processes the specified text token. URLs which are not in link tags
are linked here for convenience.

= <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2025	2130	
==>t'} }
sub   end_over_number  { --$_[0]{'Indent'} }
sub   end_over_text    { --$_[0]{'Indent'} }
sub   end_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1593	1698	
==>t'} }
sub   end_over_number  { --$_[0]{'Indent'} }
sub   end_over_text    { --$_[0]{'Indent'} }
sub   end_ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	46901	47014	
==>ative lookahead",$aftererror,$line);
			$lookahead = $lookahead ? -$lookahead : -1;
			$lookaheadspec .= $1;
			ne <==
2	/Users/nnunley/parrot/Configure.pl	7579	7713	
==>ollowing ICU options.

   If you do not have a full ICU installation:

   --without-icu        Build parrot without ICU support
   --ic <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	7452	7704	
==>={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "branc <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	7263	7385	
==>if it returns NULL, the hardcoded version will do the job
 */

#if defined(HAS_JIT) && defined(I386)
#  include "parrot/exe <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	5926	6093	
==>ine:
    if newline==0 goto continue_2d
    result .= "\n"

  continue_2d:
    inc pos 
    goto loop_2d
  loop_end_2d:
   .return(result)
 
  print_value:
    if value <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	32187	32323	
==>L node
      DEBUG > 1 and print "Ogling L node $treelet->[$i]\n";
        
      # bitch if it's empty
      if(  @{$treelet->[$i]} == 2 <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	7253	7388	
==>$type =~ /^[Ss]$/) {
			$small  = 1;
			$uninit = 1;
		    }
		    $zeroed = 1;
		}
		if ($^O eq 'irix' && $type =~ /^[Rr]$/) {
		    $c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64071	64200	
==>( {
                  "JUMP" => "PARROT_JUMP_RELATIVE|PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT",
                  "NAME" => "runinterp <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	22165	22398	
==>filename = shift;

    my $action =
        ($direction eq "<") ? "Reading" :
        ($direction eq ">>") ? "Appending" : "Writing";

    print "$action $filename\n" if $opt{verbose};
    open my $fh, $direction, $filename or die "$a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1016582	1016784	
==>ops\"\n  {{\@1}} = Parrot_intval_time();\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	17954	18080	
==>mt
EOC
}

sub JUMP_IF_TRUE
{
    my ($n, $c, $cmt) = @_;
    my $tos = pop @stack;
    my $targ = "pc_xxx";
    if ($c =~ /to ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743110	743489	
==>base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 836,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	4258	4354	
==>ribute="Comment" context="#stay" String="[^\=]*" />
          <RegExpr attribute="Comment" contex <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	6111	6378	
==>, $ret, $args, [@arg], $ret_type{$ret},
                 $ret_type_decl{$ret}, $func_call_assign{$ret},
                 $other_decl{$ret}, $ret_assign{$ret},
                 \@temps,
                 \@extra_preamble, \@extra_postamble,
                 \@put_pointe <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	3208	3612	
==>ed, mostly in TreeOptimize.pm.
############################################################################

sub order_startset {
    my $start = shift;

    # Must maintain invariant that '' comes first, if it exists.
    my @null;
    push(@null, '') if exists $start->{''};
    delete $start->{''};
    return (@null, keys %$start);
}

# Defaults
sub minlen { confess "unimplemented" }
sub maxlen { con <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954985	955123	
==>c"
                            ],
                  "BODY" => "#line 571 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_encoding_number_of_str( <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	26905	27301	
==>backs <%s> Elements <%s>.\n",
     @fallbacks, @elements;

    my $canonical_form;
    foreach my $e (@elements) {
      if(exists $self->{'accept_codes'}{$e}) {
        DEBUG > 1 and print " Mapping '$new_letter' to known extension '$e'\n";
        $canonical_form = $e;
        last; # first acceptable elementname wins!
      } else {
        DEBUG > 1 and print " Can't map '$new_letter' to un <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1684	1791	
==>pattern)
        : Parrot::Test::PGE::_generate_pir_for($target, $pattern)
    );

    goto &Parrot::Test::p <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2207	2314	
==>pattern)
        : Parrot::Test::PGE::_generate_pir_for($target, $pattern)
    );

    goto &Parrot::Test::p <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9573	9709	
==>hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	print STDERR "**At eof: aborting.\n";
				return(undef);
			};

#DBG>			$debug <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9143	9272	
==>hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	print STDERR "**At eof: aborting.\n";
				return(undef);
			};

#DBG>			$debug <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6157	6263	
==>t a$,b$

' Bubble sort cities
TRUE=1
FALSE=0
DIM A$(4)
A$(1) = "New York"
A$(2) = "Boston"
A$(3) = "Chicago <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1299	1403	
==>(i, op)   (op ? \\
     (void**) (op   - CONTEXT(i->ctx)->pred_offset) : NULL)


#define OP_AS_OFFS(o) (_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623686	623884	
==>f)lru->f.real_function)(interpreter, mic->m.sig,\n\t\t    _reg_base, (void**)cur_opcode, \n\t\t    (char*)caller_ctx->bp.regs_i, dest_pred);\n\t}\n        else\n            n = 2;\n\t{{+=n}};\n    }\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	331370	331577	
==>ne",
                  "CODE" => 389,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 40 \"src/ops/io.ops\"\n  PIO_close(inter <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	2269	2424	
==>nt) = @_;
    $amount = 1 if ! defined($amount);
    return "add $var, $amount";
}

sub output_assign {
    my ($self, $var, $val) = @_;
    return "set $va <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19317	19513	
==>a$,t$,d$
for i=1 to 5
	read h
	print h,
next i
print
restore 20
for i=1 to 5
	read h
	print h,
next i
print 
data 56, -78, 12.3, "Foo", lol, +#^
20 data 10,20,30,40,50

' basic I/O  1..5
open "_tes <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557833	557934	
==>+3}};\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  interpreter->current_cont = CONTEX <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559217	559318	
==>+3}};\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  interpreter->current_cont = CONTEX <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	16104	16274	
==>ding the XHTML .ent files:

use strict;
my(@norms, @good, @bad);
my $dir = 'c:/sgml/docbook/';
my %escapes;
foreach my $file (qw(
  xhtml-symbol.ent
  xhtml-lat1.ent
  xht <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12334	12440	
==>turns the path to the Perl module's HTML file relative to the current
documentation page. Currently only F< <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	981	1105	
==>nt LANG $lang_code; # JMG
        close LANG; # JMG

        Parrot::Test::run_command( 
            "$PConfig{perl} language <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	893	1017	
==>nt LANG $lang_code; # JMG
        close LANG; # JMG

        Parrot::Test::run_command( 
            "$PConfig{perl} language <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2991	3083	
==>ako::Construct::Type::String');
  $self->SYNTAX_ERROR("Can't do arithmetic on strings") if UN <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	3111	3203	
==>ako::Construct::Type::String');
  $self->SYNTAX_ERROR("Can't do arithmetic on strings") if UN <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	37810	38156	
==>,
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 48,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 715 \"sr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	617215	617420	
==>arrot_MIC *) cur_opcode[1];\n    left = {{\@2}};\n    right = {{\@3}};\n    lru = &mic->lru;\n    lr_types = (left->vtable->base_type << 16) | right->vtable->base_type;\n    if (lru->u.type == lr_types) {\n <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	907	1076	
==>ned $path;
    
    $path = File::Spec->rel2abs($path);
    
    # Clean up any /foo/../ stuff.
    while ( $path =~ s|/[^/]+/\.\.|| ) {}

    if ( exists $instance_for_p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1624	1738	
==>$self->value;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->r <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3244	3358	
==>$self->value;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->r <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	347	461	
==>::File;

use strict;
use warnings;

use base qw( Parrot::IO::Path );

use FileHandle;
use Parrot::IO::Directory;

= <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7853	7996	
==>g");
}

sub output_refresh {
    my ($self, $reg) = @_;
    $reg = value($reg);
    return ("restore $reg", "save $reg");
}

use vars qw($DEBUG_ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6234	6447	
==>n) {
        my ($name, $subpat) = @$ruleRow;
        $subpat = _parrot_stringify($subpat);

        $pirCode .= qq(
            name = "$name"
            subpat = "$subpat"
            rulesub = p6rule_compile(su <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78976	79074	
==>oid * const p = Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? NULL : PMC_data({{\@2}}), name);\n  string_cstr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80497	80595	
==>oid * const p = Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? NULL : PMC_data({{\@2}}), name);\n  string_cstr <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4278	4374	
==>ort"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${DEST$pu <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2694	2790	
==>ort"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${DEST$pu <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19826	20080	
==>max goto rfail
#                 R or rfail
#                 $matchcount++
#          check: if $matchcount < min goto back
#           next:

# [ab]<1,2>?: a aa ab b ba bb

sub rewrite_nongreedy_range {
    my ($self, $op, $R, $min, $max, $lastback) = @ <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	10	147	
==>Copyright (C) 2001-2006, The Perl Foundation.
# $Id: pmc2c.pl 12524 2006-05-05 21:50:26Z petdance $

use strict;
use warnings;

=head1 NAM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56340	56450	
==>e 869 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo_p(interpreter, {{\@2}});\n  {{+=3}};\n",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57102	57212	
==>e 869 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo_p(interpreter, {{\@2}});\n  {{+=3}};\n",
                  " <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19793	19887	
==>dren}}) {
    my $temp_1 = $self->_generate($node->{children}[$_]);
    $self->_add_inst('','le <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6917	7036	
==>{
    my $self = shift;
    return <<'PIR'
# See if we've got a return or something to call.
if ${ARGCOUNT} == 0 goto PR <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	141	259	
==>e Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm 19606 2006-05-30T15:08: <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4939	5033	
==>nberror,$token,$value,$stack,$check,$dotpos)
     = @$self{ 'ERRST', 'NBERR', 'TOKEN', 'VALUE' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4697	4790	
==>nberror,$token,$value,$stack,$check,$dotpos)
     = @$self{ 'ERRST', 'NBERR', 'TOKEN', 'VALUE' <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11575	11734	
==>d $section and length $section;
    
    return unless length $out;
    
    return $out;  
}

=item C<resolve_pod_page_link($to, $section)>

Resolves the POD l <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	6150	6304	
==>SE_CONDITIONED_LINE\(([^)]+)\):(.*)/s) {
                next if $conf->data->get($1);
                $line = $2;
            }
        }

        # inter <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	8769	8918	
==>tem' 
            if @{$self->{STACK}} and $self->{STACK}->[-1] eq 'text';
    }
    elsif ( $tagname =~ /head[12]/o )
    {
        # Put the up arro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78168	78492	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlvar",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79688	80012	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlvar",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
2	/Users/nnunley/parrot/Configure.pl	216	308	
==>l Configure.pl [options]

=head1 DESCRIPTION

This is Parrot's configuration script. It shoul <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	5959	6104	
==>e;
}

sub emit {
    my ($code, @args) = @_;
    
    chomp $code;
    
    my $pir = '';
    while ($code =~ s/^([^%]*)%(\d+)//)
    {
        $p <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	2037	2230	
==>handled in the Tree -> List rewrite??

=cut

sub optimize {
    my ($self, $ops, $ctx) = @_;
    die "Wrong #args" if @_ != 3;

    my @equivs; # (labels)
    my @output; # (ops)

    # Merge ad <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	564	696	
==>onfiguration steps.  Please see
F<docs/configuration.pod> for further details about the configuration
framework.

=head1 USAGE

=head <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	60263	60427	
==>->addprod(new Parse::RecDescent::Production($line))
			or  _no_rule("production",$line);
			$aftererror = 0;
		}
		elsif ($grammar =~ m/$LITERAL/gco)
		{
			($code = <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	9827	9948	
==>emps_ref,
        $extra_preamble_ref, $extra_postamble_ref) = @_;

    local $_ = $argtype;
    my $temp_num = ${$temp_cn <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	10157	10269	
==>uiv="Content-Type" content="text/html; charset=utf-8" />

  <style type="text/css">
    body {
      background-c <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11823	11912	
==>turn split(/\n/, <<"END");
$uid = _$name($mode, <rx_input>, <rx_pos>, <rx_stack>)
<rx_pos> <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	88	216	
==>3Z bernhard  $

package Parrot::Test::Bc::Antlr2;

use strict;

use base 'Parrot::Test::Bc';

sub get_out_fn {
    my $self = shi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7244	7356	
==>g);
}

sub output_pushint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);

    if ($self->{DEBUG}) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6886	6998	
==>g);
}

sub output_pushint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);

    if ($self->{DEBUG}) <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30130	30257	
==>ir for rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end translation\n";

		# Push load type o <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	4279	4377	
==>_;

  die "$name: Unknown builtin\n" unless exists $built_ins{$name};

  my $self = Scheme::Builtin <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54068	54207	
==>{''} # empty string
    } elsif(
      $_ eq '0' # very common case
      or(
         m/^-?(?:[123456789]\d*|0)(?:\.\d+)?$/s
         and $ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12	171	
==>ECURSIVE DESCENT PARSER OBJECTS FROM A GRAMMARC
# SEE RecDescent.pod FOR FULL DETAILS

use 5.005;
use strict;

package Parse::RecDescent;

use Text::Balanced qw <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	35600	35785	
==>= @_;
    my @opcodes = ();
    push @opcodes, new BranchOp( $parser,
        'result' => 'break',
    );
    return \@opcodes;
}

sub BuildReturn {
    my ( $parser, $exprs ) = <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	55550	55755	
==>ext extracted field and pushed onto the list of fields.
If the extractor was specified in a hash reference, the field is also
blessed into the appropriate class, 

If the extractor fails to match (in the ca <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7939	8073	
==>turn ("restore $reg", "save $reg");
}

use vars qw($DEBUG_LABEL);
sub output_popindex {
    my $self = shift;

    my ($reg, $fallback) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10003	10127	
==>::Ops::Tree; # Won't get used much

sub needparen { 0 }

# Nonportable
sub isplain {
    my $ord = shift;
    return 1 if $or <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1589	1679	
==>s not a Jako::Construct::Type instance!")
    unless UNIVERSAL::isa($type, "Jako::Construct <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1437	1527	
==>s not a Jako::Construct::Type instance!")
    unless UNIVERSAL::isa($type, "Jako::Construct <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	460	553	
==>:expected
	    = $Parse::RecDescent::defexpected->expected()
	    unless $Parse::RecDescent::e <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	5202	5530	
==>-stream

    } elsif(exists $self->{'source_scalar_ref'}) {

      DEBUG and print "$self 's source is scalarref $self->{'source_scalar_ref'}, with ",
        length(${ $self->{'source_scalar_ref'} }) -
        (pos(${ $self->{'source_scalar_ref'} }) || 0),
        " characters left to parse.\n";

      DEBUG > 3 and print " Fe <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	341	574	
==>nsform Parrot bytecode to a C code
run loop.

=head2 Instance Methods

=over 4

=cut


package Parrot::OpTrans::Compiled;

use strict;
use warnings;

use base qw( Parrot::OpTrans );

=item C<defines()>

Returns the C C<#define> macros <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1519	1669	
==>Construct::Type");

  my $type_name = $type->name;

  $self->INTERNAL_ERROR("Variable definition involves undefined type name!")
    unless defined $ty <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	24302	24493	
==>$arg = pop @stack;
	    my $arg_name = $arg->[1];
	    $j = $def_arg_names{$name}{$arg_name};
	    print <<EOC;
	# func $name named arg $j name $arg_name val $val->[1]
EOC
	    $args[$pushed_a <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	410	502	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_element_start {
  # ($self, $element_nam <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	409	501	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_element_start {
  # ($self, $element_nam <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1540	1660	
==>ub start_head4 {  $_[0]{'Thispara'} = '' }

sub start_Verbatim    { $_[0]{'Thispara'} = ''   }
sub start_item_bullet { $_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1070	1190	
==>ub start_head4 {  $_[0]{'Thispara'} = '' }

sub start_Verbatim    { $_[0]{'Thispara'} = ''   }
sub start_item_bullet { $_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627438	627523	
==>= pmc_new_noinit(interpreter, {{\@2}});\n  {{\@1}}->vtable->init(interpreter, {{\@1}}) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628582	628667	
==>= pmc_new_noinit(interpreter, {{\@2}});\n  {{\@1}}->vtable->init(interpreter, {{\@1}}) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2182	2313	
==>} = 1;
      $self->_ponder_paragraph_buffer;
      next;
    }


    if( $self->{'line_count'}++ ) {
      ($line = $source_line) = <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	69261	69416	
==>ng code (", length($code),") to RD_TRACE\n";
			open TRACE_FILE, ">RD_TRACE"
			and print TRACE_FILE "my \$ERRORS;\n$code"
			and close TRACE_FILE;
		}

		u <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16077	16224	
==>->is_value
      and $self->get(3)->is_infix_arith
      and $self->get(4)->is_value
    ) {
      my $block = $self->current_block();
      my $ide <==
2	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	384	490	
==>Added autorun.bas, removed LOAD message, renamed intermediate compile files
#
# Revision 1.7  2002/05/24 03 <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	23929	24103	
==>rst two (non-child) items)
        );
        --$i;  # back up for new stuff
      } else {
        # otherwise it's unremarkable
        unshift @stack, $treelet->[$i];  # ju <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1651	1763	
==>, S21 => 5, S22 => 9, S23 => 14,
	S24 => 20, S31 => 4, S32 => 11, S33 => 16, S34 => 23, S41 => 6, S42 => 10,
	S43 <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1865	2018	
==>_rule($PIR, '_regex', $tree, $ctx, DEBUG => 0);
    }

    close $PIR;
}

sub generate_pbc {
    my ($pir, $pbc) = @_;
    my $status = system($PARROT_EXE <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4144	4259	
==>Load {
	{
		no strict 'refs';

			exists(${__PACKAGE__.'::'}{_DBParse})#Already loaded ?
		and	return;
	}
	my <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3933	4041	
==>Load {
	{
		no strict 'refs';

			exists(${__PACKAGE__.'::'}{_DBParse})#Already loaded ?
		and	return;
	}
	my <==
2	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	762	866	
==>e VERSION file.
    open my $VERSION, '<', 'VERSION' or die "Could not open VERSION file!";
    $parrot_v <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	283	389	
==>rot::Configure->new;
    my $data = $conf->data;
    my $options = $conf->options;
    my @steps = $conf->s <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	4224	4373	
==>tion}}, [@_];
}

sub generate {
  my ($code, $name) = @_;

  die "$name: Unknown builtin\n" unless exists $built_ins{$name};

  my $self = Scheme::Bui <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	603019	603283	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "classname",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1096125	1096389	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "classname",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3949	4078	
==>envar) = @_;
    $lenvar ||= "<rx_len>";
    my $fail = $self->output_label_use($failLabel);
    if ($needed eq "1") {
        ret <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3663	3792	
==>envar) = @_;
    $lenvar ||= "<rx_len>";
    my $fail = $self->output_label_use($failLabel);
    if ($needed eq "1") {
        ret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934158	934432	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":base_cor <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934933	935207	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":base_cor <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11420	11687	
==>') {
                ++$depth;
            } elsif ($c eq '}') {
                if (--$depth == 0) {
                    $state = 0;
                }
            }
            $tokens[-1] .= $c;
        }
    }

#    for (0..$#tokens) { print STDERR "  $tokens[$_] $ <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	3180	3396	
==>refs{$name}++;
            $type = $1;
        }
        my $init = "defined(\$init{'$name'}) ? \$init{'$name'} :";
        if( $type eq '@' ){
            $out .= "    croak 'Initializer for $name must be array refer <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	193	304	
==>eturn $self;
}

sub init {
    my $self = shift;
    $self->{state} ||= Regex->global_state();
}

# R (seq, R, S <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18009	18141	
==>> 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 48
		ACTIONS => { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110204	110480	
==>ne",
                  "CODE" => 137,
                  "ARGS" => [
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 182 \"src/ops/bit.ops\"\n  string_bitwise_or(interpreter, {{\@1}}, {{\@2} <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	2979	3104	
==>, '',
            $self->new_item('Provide a timeline of changes made to the project.', 'ChangeLog'),
            $self->new_i <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	5	95	
==>yright (C) 2005, The Perl Foundation.
# $Id: /parrot/config/init/hints/linux.pm 19593 2006- <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	8218	8342	
==>ode);

END_C
} elsif ($suffix =~ /cg/) {
    print SOURCE <<END_C;
goto *${bs}ops_addr[*cur_opcode];

END_C
}



print SOURCE <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5420	5545	
==>u;
        return (opcode_t *)const_cast(${bs}ops_addr);
    }
END_C
}

=item C<run_core_finish($base)>

Returns the C code fo <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	8070	8192	
==>e @_,0,2;
  foreach my $t (@_) {
    next unless defined $t and length $t;
    # TODO: enforce some limitations on what a t <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	4132	4348	
==>h passwords.

=item *

educational purposes

=back

=head1 SYNOPSIS

 # Functional style
 use Digest::MD5  qw(md5 md5_hex md5_base64);

 $hash = md5 $data;
 $hash = md5_hex $data;
 $hash = md5_base64 $data;


 # OO st <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26726	26836	
==>ll $sub\n";
	($result, $type, @code)=EXPRESSION({ignorecomma => 1});
#	print STDERR "Got back @code\n";
	push @ <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	11601	11962	
==>_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_P($reg_num);";
        return "(short*)&PMC_int_val(t_$temp_num)";
    };
    /f/ && do {
        push @{$temps_ref}, "float t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = (float)GET_NCI_N($reg_num);";
        return "t_$temp_num";
    };
    / <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	3380	3485	
==>ight use this instead of C<new()> if you're testing
a Test::Builder based module, but otherwise you probab <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58193	58611	
==>ME" => "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 75,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "B <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	8718	8852	
==>w;
		if ($show) {
		    $show = $ObjectName ? "$o\t$name" : $name;
		    if (defined $Type) {
			$show .= "\t";
			my $symbol;
			if ($ <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	6003	6319	
==>mingw) {
        my $make = $conf->data->get(qw(make));
        if ($make =~ /nmake/i) {

            # ActiveState Perl or PXPerl
            $conf->data->set(
                a              => '.a',
                ar             => 'ar',
                cc             => 'gcc',
                ccflags        => ' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	7915	8219	
==>n";
    return;
  } elsif(ref $_[0]) {
    $self->{'source_filename'} = '' . ($handle = $_[0]);
    DEBUG and print "$self 's source is fh-obj $_[0]\n";
  } elsif(!length $_[0]) {
    Carp::croak("Can't use empty-string as a source for set_source");
  } else {  # It's a filename!
    DEBUG and print "$se <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29006	29137	
==>' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 89
		DEFAULT => -109
	},
	{#State <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	5755	5941	
==>et);

    # Beginning of the pir code
    my $pirCode = qq(
        .sub _PGE_Test
            .local pmc p6rule_compile
            load_bytecode "PGE.pbc"
            p6rule_compile = c <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26399	26518	
==>ext;
			}
			last;
		}
	}
}
sub parse_call {
	# Subroutines are disguised as user-defined functions,
	# except that ther <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	14622	14751	
==>umented here just in case you might find it useful.

=back

=head1 CAVEATS

On Perl versions before 5.7, Unicode characters with a <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1472	1753	
==>4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
pr <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1472	1753	
==>4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
pr <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	15156	15259	
==>b load function - called once
 */

$sym_export PMC*
$load_func(Parrot_Interp interpreter)
{
    PMC *lib <==
2	/Users/nnunley/parrot/lib/Test/More.pm	7428	7593	
==>timate_answer(), 42,          "Meaning of Life" );

    # $foo isn't empty
    isnt( $foo, '',     "Got some foo" );

are similar to these:

    ok( ultimate_answer() <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	45531	45765	
==>'t assume that \xA0 == nbsp.)
       
       # Note that if you apply nbsp_for_S to text, and so turn
       # "foo S<bar baz> quux" into "foo bar&#160;faz quux", you
       # end up with something that fails to say "and don't hyphenat <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	8812	8920	
==>SO

=over 4

=item C<Parrot::Docs::Directory>

=item C<Parrot::Docs::POD2HTML>

=item C<Pod::Simple::Checker> <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7320	7459	
==>@{$options{ignore}})
		    : defined($options{ignore})	       ? $options{ignore}
		    :					 ''
		    ;

	if (!defined $ldel) { $ldel = '<\ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24322	24461	
==>@{$options{ignore}})
		    : defined($options{ignore})	       ? $options{ignore}
		    :					 ''
		    ;

	if (!defined $ldel) { $ldel = '<\ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15919	16014	
==>stream=convert_to_rpn(@expr);	# Get infix into RPN
		($result,$type,@stream)=generate_code(0, @s <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	17070	17165	
==>stream=convert_to_rpn(@expr);	# Get infix into RPN
		($result,$type,@stream)=generate_code(0, @s <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	9507	9630	
==>nfo_t *jit_info, Interp * interpreter)';

for ( my $i = 0; $i < $core_numops; $i++) {
    $body = $core_ops{$core_opfunc[$i] <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	11443	11625	
==>reamble_ref},
            "t_$temp_num = (char)GET_NCI_I($reg_num);";
        return "t_$temp_num";
    };
    /2/ && do {
        push @{$temps_ref}, "PMC* t_$temp_num;";
        pus <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627414	627505	
==>egisters. */\n  {{\@1}} = pmc_new_noinit(interpreter, {{\@2}});\n  {{\@1}}->vtable->init(int <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628558	628649	
==>egisters. */\n  {{\@1}} = pmc_new_noinit(interpreter, {{\@2}});\n  {{\@1}}->vtable->init(int <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	2527	2630	
==>, Attributes => { name => $self->name } });
  $_->sax($handler) foreach $self->content;
  $handler->end_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747662	748062	
==>base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 842,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 194 \"src/ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	34544	34789	
==>rser,
            'result' => $_->[0],
            'arg1'   => $result,
        );
    }
    push @opcodes1, new CallOp( $parser,
        'result' => \@return2,
        'arg1'   => $iter,
        'arg2'   => \@params2,
    );
    push @ <==
2	/Users/nnunley/parrot/config/inter/progs.pm	820	953	
==>lags, $libs, $lex, $yacc);

    # Find a working version of a program:
    # Try each alternative, until one works.
    # If none work <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7988	8086	
==>MOVE

# No lazy move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}[" <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8845	8943	
==>MOVE

# No lazy move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}[" <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	13457	13563	
==>number{'eacute'}> is 201, and
C<$Name2character_number{'eacute'}> is 8364.  You get the correct
Unicode val <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11125	11352	
==>={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE|PARROT_JUMP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472964	473168	
==>"i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 394 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	2443	2554	
==>if ($count > 1) {
    return map { $self->at($index + $_) } (0..$count);
  }

  my $pos = $self->pos;

  $self-> <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7067	7259	
==>ub _PGE_Test
            .local pmc glob_compile
            load_bytecode "PGE.pbc"
            load_bytecode "PGE/Glob.pir"
            load_bytecode "PGE/Dumper.pir"
            load_bytecod <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106801	1107180	
==>" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1225,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 352 \"src/ops/experiment <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	6990	7093	
==>'icu_dir' => '/opt/local',
             'icu_shared' => '-lpthread -lm -L/opt/local/lib  -licuuc -licuda <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	38692	38912	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      if($para_type eq 'Plain') {
        DEBUG and print " giving plain treatment...\n";
        unless( @$para == 2 or ( @$para == 3 and $para->[2] eq '' )
          or $ <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8850	8979	
==>ero
    if $I1 == 1 goto one
    if $I1 == 2 goto two
    if $I1 == 3 goto three
    if $I1 == 4 goto four
    if $I1 == 5 goto fi <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	5425	5526	
==>rrot version info, a preamble for inclusion in C code,
    and an array of C<Parrot::Op> instances rep <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	318	415	
==>rrot version info, a preamble for inclusion in C code,
and an array of C<Parrot::Op> instances rep <==
2	/Users/nnunley/parrot/config/gen/icu.pm	4390	4572	
==>data->set(testheader  => undef);
    eval { cc_build(); };
    if (!$@ && cc_run() =~ /^$header OK/) {

        # Ok, we don't need anything more.
        print "Your compiler found t <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	2366	2490	
==>($self->kind eq 'var') or ($self->kind eq 'arg'); }
sub is_sub      { my $self = shift; return $self->kind eq 'sub'; }
sub is <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	2308	2465	
==>($symb) = @_;
        if ( exists $self->{table}{$symb} ) {
            my $defn = $self->{table}{$symb};
            return $defn;
        }
        ret <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	2688	2845	
==>($symb) = @_;
        if ( exists $self->{table}{$symb} ) {
            my $defn = $self->{table}{$symb};
            return $defn;
        }
        els <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	3644	3820	
==>s now removed: it gives too many false positives
            #    e.g. when accessing registers - this is all aligned
     
            2.7  => "",
            2.8  => "-Wsign-c <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	6707	6829	
==>y changes made here will be lost!
 *
 */

#include<parrot/parrot.h>
#if HAVE_COMPUTED_GOTO
#  include<parrot/oplib/core_ops <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	51296	51619	
==>{
				_parse("an autotree marker", $aftererror,$line);
				if ($rule)
				{
					_error("<autotree> directive not at start of grammar", $line);
					_hint("The <autotree> directive can only
					       be specified at the start of a
					       grammar (before the first rule 
					       is defined.");
				}
				else
				{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822331	822419	
==>ntry->entry_type != STACK_ENTRY_INT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823399	823487	
==>ntry->entry_type != STACK_ENTRY_INT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616241	616549	
==>{\@1}} = offset;\n    {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615090	615388	
==>{\@1}} = offset;\n    {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3278	3380	
==>s/(^")|("$)//g; # Delete leading and trailing quotes;

    $name =~ s/^.*:://; # Delete namespaces from <==
2	/Users/nnunley/parrot/tools/build/list_unjitted.pl	579	699	
==>pen JIT, '<', "jit/$ARGV[0]/core.jit" or die "Could not open jit/$ARGV[0]/core.jit: $!";

while (<JIT>){
    if (my ($jit <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	26395	26555	
==>') {
        $self->whine(
          $para->[1]{'start_line'},
          "=over is the last thing in the document?!"
        );
        next; # But feh, ignore i <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	45335	45480	
==>TOS => {
			'@5-9' => 212
		}
	},
	{#State 211
		ACTIONS => {
			'END' => 213
		}
	},
	{#State 212
		DEFAULT => -4,
		GOTOS => {
			'b <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2339	2456	
==>_to_file( $code, $lang_fn );

        # STDERR is written into same output file
        my $exit_code = Parrot::Tes <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1859	1973	
==>_to_file( $code, $lang_fn );

        # STDERR is written into same output file
        my $exit_code = Parrot::Tes <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	5854	6066	
==>S+
          )
         )
        /\cb$1\cc/xsg
      ;
      
      rtf_esc($scratch);
      $scratch =~
         s/(
            [^\cm\cj\n]{65}        # Snare 65 characters from a line
            [^\cm\cj\n\x2 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	1524	1807	
==>N></TD>
            </TR>
            <TR>
                <TD WIDTH="100%" COLSPAN="2"  ID="NAV" STYLE="border-bottom: 1px solid #191970;">
                    $navigation
                </TD>
            </TR>
        </TABLE>
        <DIV CLASS="pod">
HEADER
}

=item C<footer($na <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	4166	4313	
==>ode : 'v';

    foreach my $arg ($self->args) {
      my ($arg_type, $arg_name) = @$arg;
      my $imcc_type = $arg_type->imcc;

      $compiler->em <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018448	1018837	
==>,
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1138,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 182 \" <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	12352	12451	
==>ent value.  If the
element type is C<'*@'>, a reference to the array element is
returned.

As a spec <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033552	1033831	
==>, lex_name, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034650	1034929	
==>, lex_name, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	617491	617588	
==>ight);\n\t{{+=4}};\n    }\n    if (mic->pic) {\n\tlru = mic->pic->lru;\n\tif (lru->u.type == lr_ty <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	39735	39883	
==>nd 8th wins.
              s/^([^\t]*)(\t+)/$1.(" " x ((length($2)<<3)-(length($1)&7)))/e
            ) {}

            # TODO: whinge about (or othe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470663	470992	
==>=> ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 540,
                  "ARGS" => [
                              "i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18778	18988	
==>" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 314 \"src/ops/core.ops\"\n  if ({{\@1}}->vtable->get_bool(interprete <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095237	1095494	
==>+=2}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095932	1096189	
==>+=2}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	2153	2266	
==>ata settings might have changed for the test
        $conf->data->set('libs',      $libs);
        $conf->data->se <==
2	/Users/nnunley/parrot/config/auto/readline.pm	1953	2066	
==>ata settings might have changed for the test
        $conf->data->set('libs',      $libs);
        $conf->data->se <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	767	924	
==>ubclass of C<Parrot::OpTrans>. These subclasses all have full names of
the form C<Parrot::OpTrans::*>. An instance of the class is created and
later consulted <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671988	672443	
==>> 752,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 420 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->push_pmc(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	619236	619329	
==>nterpreter, left);\n\tINTVAL b = rt == enum_class_Integer ? PMC_int_val(right) :\n\t    VTABLE <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	34581	34680	
==>re_Slice(@_, 2);
}
sub STORE_SLICE_plus_3 {
    return Store_Slice(@_, 3);
}

sub DELETE_SLICE_plus_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59853	60021	
==>" => [
                              "ic"
                            ],
                  "BODY" => "#line 901 \"src/ops/core.ops\"\n  PARROT_WARNINGS_on(interpreter, { <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15284	15385	
==>elf->{'text_token_class'}->new(@_);
  return;
}

sub _handle_element_end {
  my $self = shift;   # lea <==
2	/Users/nnunley/parrot/config/auto/bc.pm	233	441	
==>sic calculator, exists on the system. It is OK
when it doesn't exist. Currently GNU bc is only used for doublechecking Parrot
bc.

=cut

package auto::bc;

use strict;
use vars qw($description @args);

use bas <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	2672	2783	
==>functions after the various
directives have been replaced.

=head2 PMC File Syntax

The basic syntax of a PMC fi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	39777	40016	
==>)/$1.(" " x ((length($2)<<3)-(length($1)&7)))/e
            ) {}

            # TODO: whinge about (or otherwise treat) unindented or overlong lines

          }
        }
        
        # Now the VerbatimFormatted hoodoo...
        if( $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4296	4431	
==>BLOCK->symbol_names()

Returns the names of the symbols defined locally in this block.

=cut

sub symbol_names
{
  my $self = shift; # R <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13373	13496	
==>"JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "jsr",
                  "FLAGS" => ":base_co <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	47895	48003	
==>parser), "\n";
  return $out;
}


sub _duo {
  # For use in testing: Class->_duo($source1, $source2)
  #  ret <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	15970	16075	
==>mps) && ($fixedargs[@fixedargs - 1]) && ($fixedargs[@fixedargs - 1] eq 'i'));
        or_flag(\$jumps, "PA <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	2498	2610	
==>! iskeyword($syms[CURR]));

	# The "unimplementeds"
	# Eat tokens until we get to the next statement of some kind <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	843617	844140	
==>e",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 957,
                  "ARGS" => [
                              "i",
                              "sc",
                              "i"
                            ],
                  "BODY" => "#line 45 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2} <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	140	240	
==>rot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm 19606 2006-05-30T15: <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	4356	4569	
==>>[4] =~ /MMD_/);
    my @args = split /,\s*/, $entry->[2];
    unshift @args, "i interp", "p pmc";
    my $args = join ', ', map { (split / /, $args[$_])[1] } (0..$#args);
    $macros .= <<"EOM";
#define VTABLE_$en <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2397	2502	
==>y)
	P0= P10[0]
	P1= P0["$stype"]
	P0= P1["$var"]	# Pull the original
	P2= P10[I25]
	P3= P2["$stype"]
	P3[" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2624	2729	
==>y)
	P0= P10[0]
	P1= P0["$stype"]
	P0= P1["$var"]	# Pull the original
	P2= P10[I25]
	P3= P2["$stype"]
	P3[" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152440	152737	
==>IVE",
                  "NAME" => "eq_str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fu <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	19965	20082	
==>ined $level ) {
        $Level = $level;
    }
    return $Level;
}


=item B<use_numbers>

    $Test->use_numbers($on <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	1276	1540	
==>ore_global "APL", "%pirtable", $P0

    # these are the 'generic' forms of each op
    $P0['dyadic:']  =  "    $P0 = find_global 'APL', %0\n    %1 = $P0(%1, %2)"
    $P0['monadic:'] =  "    $P0 = find_global 'APL', %0\n    %1 = $P0(%1)"

    # special-purpose parro <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	4732	4873	
==>$comment[0]  =~ s{^}{/*\n};     # '/*'
            $comment[-1] =~ s{$}{\n */};    # ' */'
        } else {
            die "Unknown comment t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802186	802468	
==>" => "inline",
                  "CODE" => 905,
                  "ARGS" => [
                              "p",
                              "k",
                              "sc"
                            ],
                  "BODY" => "#line 467 \"src/ops/set.ops\"\n    {{\@1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516657	516884	
==>DY" => "#line 729 \"src/ops/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517396	517623	
==>DY" => "#line 729 \"src/ops/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	1150	1251	
==>rotish Prefix

The API is implemented but has no C<Parrot_> prefix (or prefix deemed
Parroty enough, l <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	2911	3089	
==>\s*\[([\w\.]+)\]\s*$/) {
            # If we have a current rule...
            my $name = $1;
            if ($rule) {
                # Validate it.
                validate_rul <==
2	/Users/nnunley/parrot/config/auto/funcptr.pm	230	389	
==>ompiler supports function pointer casts.

=cut

package auto::funcptr;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base) <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2416	2519	
==>rget string against the Perl 6 pattern, passing the test
if the output produced by the test code matches <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3850	3953	
==>rget string against the Perl 6 pattern, passing the test
if the output produced by the test code matches <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	6202	6300	
==>e of C<SELF>.

=item C<DYNSUPER(a,b,c)>

As above, but uses the actual dynamic type of C<SELF>.

=b <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2186	2351	
==>$pir .= <<'PIR';
${PTEMP0} = prop_type_state[${PC}]
if ${PTEMP0} == "" goto NOWT_TO_PROPOGATE
PIR
    $pir .= _do_lazy_moves('_BDEST');
    $pir .= <<'PIR';
stack_dep <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7301	7413	
==>($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If the register name to load from was supplie <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5123	5235	
==>($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If the register name to load from was supplie <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	19831	20013	
==>ge);

                # make sure TODO will work, by telling Test::Builder which
                # package the .t file is in (one more than usual, due to the
                # extra l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	3943	4096	
==>LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS",
                  "NAME" => "wrapper <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683784	683876	
==>2 \"src/ops/pmc.ops\"\n    {{\@1}} = {{\@2}}->vtable->shift_pmc(interpreter, {{\@2}});\n    { <==
2	/Users/nnunley/parrot/config/auto/headers.pm	2370	2524	
==>(testheaders => undef);
            $conf->data->set(testheader  => undef);

            eval { cc_build(); };
            if (!$@ && cc_run() =~ /^$header <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	2516	2640	
==>e, or for inclusion in miniparrot.

=head2 Op Body (Macro Substitutions)

In the following macro descriptions, C<PC> and C<PC <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361700	361808	
==>t_sprintf_c(interpreter, INTVAL_FMT, {{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    / <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362599	362707	
==>t_sprintf_c(interpreter, INTVAL_FMT, {{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    / <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	7471	7596	
==>not_found

    not_found = op1
    inc not_found

    .local pmc result
    result = new 'APLVector'

    iter_two = new .Iter <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	8249	8452	
==>ea or nay.
            $self->{'rtfitemkeepn'} = '\keepn' if 
              $to_unget[-1]->type eq 'start' and
              $to_unget[-1]->tagname eq 'Para';

            DEBUG > 1 and printf "    item-* <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	22529	22721	
==>ys the same.\n";
        } else  {
          print "   Code $was<> maps to ",
           ref($is)
            ? ( "tags ", map("$_<", @$is), '...', map('>', @$is), "\n" )
            : "tag $is <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2951	3068	
==>\\sa150\\fi-120\n",
 '/item-text'   => "\n\\par}\n",

 # we don't need any styles for over-* and /over-*
);


#~~~~~~~ <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3202	3301	
==>ll_files.pl for documentation on the
# format of this file.
# See docs/submissions.pod on how to rec <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	26766	26971	
==>//g;
	$pattern =~ s/(\A|[^\\])\\G/$1/g;

	bless 
	{
		"pattern"   => $pattern,
		"ldelim"      => $ldel,
		"rdelim"      => $rdel,
		"mod"         => $mod,
		"lookahead"   => $_[4],
		"line"        => $_[5] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	922829	922933	
==>string_native(interpreter, {{\@1}},\n        Parrot_psprintf(interpreter, {{\@2}}->vtable->get_string(int <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	32528	32668	
==>push @opcodes1, new AssignOp( $parser,
            'result' => $state,
            'arg1'   => $nil->[0],
        );
        push @return <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213117	213217	
==>" => "#line 423 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_NUMCM <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	46818	46967	
==>$line);
			next;
		}
		elsif ($grammar =~ m/$NEGLOOKAHEAD/gco)
		{
			_parse("a negative lookahead",$aftererror,$line);
			$lookahead = $lookahead ? - <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	12881	13003	
==>e);
        $self->_cmp_diag($got, 'ne', $dont_expect) unless $test;
        return $test;
    }

    return $self->cmp_ok( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33813	33930	
==>d print "Can't assimilate following ", $paras->[0][0], "\n";
              push @$para, '';  # Just so it's not conten <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35626	35743	
==>d print "Can't assimilate following ", $paras->[0][0], "\n";
              push @$para, '';  # Just so it's not conten <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	26670	26969	
==>open, $para;
       # yes, we reuse the paragraph as a stack item
      
      my $content = join ' ', splice @$para, 2;
      my $overness;
      if($content =~ m/^\s*$/s) {
        $para->[1]{'indent'} = 4;
      } elsif($content =~ m/^\s*((?:\d*\.)?\d+)\s*$/s) {
        no integer;
        $para- <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	258	382	
==>Check each of these builtins to see if they are just a stub, and skippable.

my (@keep,@skip);
foreach my $file (@commands) { <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22406	22550	
==>,
		GOTOS => {
			'exp' => 124,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	132	231	
==>nd @tokdsc
# Then compile.
use strict;
use Getopt::Std;
use vars qw( @tokens @tokdsc);
use vars qw(% <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	458	566	
==>confess "Expected 5 args!" unless @_ == 5;

  my ($block, $prefix, $left, $op, $right) = @_;

  my $self = bl <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	458	566	
==>confess "Expected 5 args!" unless @_ == 5;

  my ($block, $prefix, $left, $op, $right) = @_;

  my $self = bl <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38500	38616	
==>d, 0);
    my $parameters = $method->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} split / /, $p <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1264	1370	
==>{code} = [ $opt2->optimize($code->{code}, $ctx) ];
    return $code;
}

sub list_to_pasm {
    my ($list_re <==
2	/Users/nnunley/parrot/config/inter/types.pm	314	407	
==>:types;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Ba <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	2805	2914	
==>t; # Required: Jako::Construct::Block
  my $name = shift; # Required: string (TODO: domain)
  my $sym  = shift <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	711	823	
==>_[1] | $_[0] >> (32 - $_[1]);
	#my $right = $_[0] >> (32 - $_[1]);
	#my $rmask = (1 << $_[1]) - 1;
	($_[0] << $_[ <==
2	/Users/nnunley/parrot/tools/dev/mk_inno.pl	374	536	
==>1 SYNOPSIS

    % perl tools/dev/mk_inno.pl [options]

=head1 DESCRIPTION

=head2 Options

=over 4

=item C<prefix>

The install prefix.

=item C<version>

The par <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	5880	5992	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
#
# And now directives (not targets)

su <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1612	1709	
==>::Type instance!")
    unless UNIVERSAL::isa($type, "Jako::Construct::Type");

  my $type_name = $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1460	1557	
==>::Type instance!")
    unless UNIVERSAL::isa($type, "Jako::Construct::Type");

  my $type_name = $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2413	2512	
==>emit_par( 0) }
sub end_item_bullet { $_[0]->emit_par( 0) }
sub end_item_number { $_[0]->emit_par( 0) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1981	2080	
==>emit_par( 0) }
sub end_item_bullet { $_[0]->emit_par( 0) }
sub end_item_number { $_[0]->emit_par( 0) <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	5387	5518	
==>obarbaz'), "\n";

The above example would print out the message

    Digest is 6df23dc03f9b54cc38a0fc1483df6e21

provided that the i <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	13225	13374	
==>{#State 12
		DEFAULT => -12
	},
	{#State 13
		DEFAULT => -4
	},
	{#State 14
		ACTIONS => {
			"-" => 31,
			"^" => 32
		},
		DEFAULT => -40,
		GOTOS = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355120	355221	
==>* const p = {{\@1}};\n  STRING * const s = (VTABLE_get_string(interpreter, p));\n  if (s) {\n    PIO_p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360820	360921	
==>* const p = {{\@1}};\n  STRING * const s = (VTABLE_get_string(interpreter, p));\n  if (s) {\n    PIO_p <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	404	505	
==>::Docs::Section::Info;

use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060114	1060214	
==>null name\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_name(interpreter, {{\@2}});\n    {{+=3 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061019	1061119	
==>null name\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_name(interpreter, {{\@2}});\n    {{+=3 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6105	6326	
==>{$$token})
                    ?   $$actions{ACTIONS}{$$token}
                    :   exists($$actions{DEFAULT})
                        ?   $$actions{DEFAULT}
                        :   undef;
        }
        el <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5817	6032	
==>{$$token})
                    ?   $$actions{ACTIONS}{$$token}
                    :   exists($$actions{DEFAULT})
                        ?   $$actions{DEFAULT}
                        :   undef;
        }
        el <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16712	16887	
==>{
			$opts{stuff}=~s/X/$type/g;
		}
		# The rhs was passed in
		@stream=build_assignment($assignto, \@left, $opts{stuff}, [], $type);
		
		$result=$assignto;
	} else {
		#print <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2569	2714	
==>f,            # No properties
    undef,            # No args
    $self->file,
    $self->line
  );

  $block->set_symbol($self->name, $sym);

  $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2848	2991	
==>f,           # No properties
    undef,           # No args
    $self->file,
    $self->line
  );

  $block->set_symbol($self->name, $sym);

  $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913771	914034	
==>> [
                              "i",
                              "sc",
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_i <==
2	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	248	465	
==>hmarks/stress2.pl

=head1 DESCRIPTION

Creates 200 arrays of 10000 elements each.

=cut

foreach (1..20) {
    my @arr;
    foreach (1..10) {
	$arr[$_] = buildarray();
    }
}

sub buildarray {
    my @foo;
    foreach <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	30332	30492	
==>pack = $pack || $self->exported_to || $self->caller($Level);
    return 0 unless $pack;

    no strict 'refs';
    return defined ${$pack.'::TODO'} ? ${$pack.':: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	631	735	
==>->prefix;
  }
  else {
    $prefix = $self->peer ? $peer->prefix : $compiler->block_label($kind);
    $se <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	611	715	
==>->prefix;
  }
  else {
    $prefix = $self->peer ? $peer->prefix : $compiler->block_label($kind);
    $se <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5763	5893	
==>.
#DBG>					 join(',',map { $$_[0] } @$stack).
#DBG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defined($ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5489	5612	
==>.
#DBG>					 join(',',map { $$_[0] } @$stack).
#DBG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defined($ <==
2	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	2036	2135	
==>e Compress::Bzip2; debug "Bzip2 compression on\n" } and
    return $compress = sub { Compress::Bzip2 <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	5517	5670	
==>eturns Bool is export {
    Test::proclaim(1, $desc);
}

sub flunk (Str $desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim(0, $desc, $ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	2480	2853	
==>"No target\n";
    my $silent = shift || 0;
    my $index_html = $self->write_contents_html($source, $target, $silent);
    
    print "\n", $self->{INDEX_PATH} unless $silent;
    
    return '' unless $index_html;
    
    if ( $self->{TEXT} )
    {
        $index_html = "<p>$self->{TEXT}</p>\n\n" . $index_html;
    }
    elsif ( $index_html !~ /<DIV CLASS="pod">[^<]*<[ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355887	356197	
==>* const p = {{\@1}};\n  STRING * const s = (VTABLE_get_string(interpreter, p));\n  if (s) {\n    PIO_write(interpreter, PIO_STDOUT(interpreter), s->strstart, s->bufused);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	21598	21797	
==>$self->{parents} });
    $isa =~ s/\s?default$//;
    my $does = join(" ", keys(%{ $self->{flags}{does} }));
    my $n = exists $self->{has_method}{class_init} ?
                   $self->{has_method} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	16121	16308	
==>er->run;

And elsewhere:

 require 5;
 package SomePodProcessor;
 use strict;
 use base qw(Pod::Simple::PullParser);
 
 sub run {
   my $self = shift;
  Token:
   while(my $token = $self-> <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1696	1800	
==>os');
}

sub output_increment {
    my ($self, $distance, $failLabel) = @_;
    die "invalid distance" if <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1449	1553	
==>os');
}

sub output_increment {
    my ($self, $distance, $failLabel) = @_;
    die "invalid distance" if <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2480	2598	
==>C<ops_addr_decl($base_suffix)>

Optionally implemented in subclasses to return the C code for the ops
address declarati <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	7357	7456	
==>"$_$O" } @$stems;
    if (needs_build("$group$LOAD_EXT", @sources)) {
        run(partial_link_cmd(" <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7568	7667	
==>"$_$O" } @$stems;
    if (needs_build("$group$LOAD_EXT", @sources)) {
        run(partial_link_cmd(" <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	2374	2490	
==>ets Test::Harness know how many tests you plan on running in
case something goes horribly wrong.

If all your tests p <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	3808	3964	
==>at source fh!  Killing.\n";
          delete $self->{'source_fh'}; # so it can be GC'd
          last;
        }
         # but pass thru the undef, which wi <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7685	7790	
==>he destination isn't a register, determine register name now.
	if (!$dest_reg) {
		$pir .= <<'PIR'
# Get t <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5803	5908	
==>he destination isn't a register, determine register name now.
	if (!$dest_reg) {
		$pir .= <<'PIR'
# Get t <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	45072	45169	
==>he fields marked "(if any)" the default value on success is
an empty string.
On failure, all of th <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	1311	1501	
==>e:

    i   The argument is an integer register index.
    n   The argument is a number register index.
    p   The argument is a PMC register index.
    s   The argument is a string register <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761437	761552	
==>@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_PMC({{\@1}}) = {{\@2}};\n    {{+=3 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762290	762405	
==>@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_PMC({{\@1}}) = {{\@2}};\n    {{+=3 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499042	499523	
==>> "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 573,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 600 \"src/ops/math.ops\"\n  {{\@1}} = floatval_mo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499804	500098	
==>> "mod",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 574,
                  "ARGS" => <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	18684	18825	
==>hy) = @_;
    $why ||= '';

    unless( $self->{Have_Plan} ) {
        require Carp;
        Carp::croak("You tried to run tests without a pla <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	23530	23651	
==>"Popping $curr_open->[-1][0] $curr_open->[-1][1]{'target'} because of =end $content\n";
      pop @$curr_open;

      next <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2145	2239	
==>bnameE<gt>.c and pmc_E<lt>libnameE<gt>.h if his object
represents a named library.

=cut

sub w <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	38722	38827	
==>ed($text, undef, undef, undef, {ignore => ['<[^>]*/>']} );

(also see L<"gen_delimited_pat"> below).


=it <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	315582	315851	
==>));\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u1_ovf",
                  "FLAGS" <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11938	12032	
==>nt)

Given a name or number that could appear in a
C<EE<lt>name_or_numE<gt>> sequence, this ret <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12435	12529	
==>nt)

Given a name or number that could appear in a
C<EE<lt>name_or_numE<gt>> sequence, this ret <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8442	8586	
==>q "STMT"
		  or
	    $type[CURR] eq "COMP") { goto PARSE; }
	if ($type[CURR] eq 'COMM') {
		push @{$code{$seg}->{code}}, "\t# $syms[CURR]\n";
		g <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826668	826764	
==>ion(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_num(entry->entry);\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827738	827834	
==>ion(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_num(entry->entry);\ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	2594	2738	
==>op" ]),
                map { aop('popint' => [ $_, "op rxlocal $_" ]) }
                    reverse @$rxlocals);
    }
}

sub rule_save_rxlocals <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	533	633	
==>fined!" unless defined $block;
  confess "Left is not defined!" unless defined $left;
  confess "Op i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	545	645	
==>fined!" unless defined $block;
  confess "Left is not defined!" unless defined $left;
  confess "Op i <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	4583	4852	
==>n/, $ignore{$dir}) {
        s/\./\\./g; s/\*/.*/g;
        print $SKIP
            $dir ne '.' ?
            "^$dir/$_\$\n^$dir/$_/\n" :
            "^$_\$\n^$_/\n";
    }
}


sub wanted {

    return if $File::Find::name =~ m[/\.svn|blib|debian];

    # This is curren <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	1107	1209	
==>o register mapper\n";
}
sub post_branch {
	die "post_branch not implemented for current stack to regist <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176835	177071	
==>=> [
                              "sc",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 240 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	19458	19598	
==>+ 2 );
                my $test_func = "${package}::${prefix}_${meth}";
                $test_func->( @remaining );
                $builder- <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2836	2963	
==>es the header file for the library.

=cut

sub gen_h {
    my ($self) = @_;
    my $hout = dont_edit('various files');
    my $l <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8428	8541	
==>ry_with_path($path);
}

=item C<existing_file_with_name($name)>

Returns a file with the specified name in the dir <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1943	2078	
==>hey do not match. The same pattern argument syntax above applies here.

=cut

sub p6rule_isnt {
    my ($target, $pattern) = (shift, shi <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	1285	1391	
==>no", for example C<--noconst>.

=over 4

=item C<--objectname>

=item C<-o>

Prepend the object name before <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116650	116979	
==>=> ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 145,
                  "ARGS" => [
                              "i <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8189	8295	
==>$number > 255) {
      $Name2character{$name} = $FAR_CHAR;
      # substitute for Unicode characters, for p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	1048	1203	
==>t->{VALUE}; }


#
# compile()
#
# Essentially a no-op for values (except string literals... q.v.).
#

sub compile
{
  my $self = shift;
  my ($compiler) = @ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37799	37978	
==>xt, '
		. $self->callsyntax($namespace.'::')
		. ', ' . $min . ', ' . $max . ', '
		. ($self->{"lookahead"}?'1':'$_noactions')
		. ($self->{argcode} ? ", sub { return $self->{argco <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	186	279	
==>/jako/lib/Jako/Symbol.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use wa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888758	889352	
==>o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1005,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic",
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpr <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	27	121	
==>The Perl Foundation.
# $Id: /parrot/lib/Parrot/OpTrans/Compiled.pm 20333 2006-06-21T18:44:31.11 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Compilers.pm	645	770	
==>w(
        'Compilers', 'compilers.html', '',
        $self->new_group( 'IMCC', 'the Intermediate Code Compiler for Parrot', <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093635	1093745	
==>perimental.ops\"\n  VTABLE_morph(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "experimenta <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094438	1094548	
==>perimental.ops\"\n  VTABLE_morph(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "experimenta <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3166	3289	
==>$conf->data->set(link => $conf->data->get('ld'));

        # We can't use -opt: and -debug together.
        if ($conf->data <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4670	4793	
==>$conf->data->set(link => $conf->data->get('ld'));

        # We can't use -opt: and -debug together.
        if ($conf->data <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	51359	51613	
==>there's a problem.

A deferred action like this:

                        <defer: {if ($count>10) {$count--}} >

will be incorrectly parsed as:

                        <defer: {if ($count>

because the "less than" operator is interpreted as a closing del <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	2233	2518	
==>de, $num) = @_;
  $node->{children}->[$num];
}

sub _get_args {
  my ($node, $num) = @_;
  $num = 1 unless defined $num;

  my @args = splice @{$node->{children}}, $num;

  return @args;
}

# until there is a working find_lex/store_lex
sub _find_lex {
  my ($self, $symbol) = @_;
  my $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5339	5494	
==>irst == 0;
            push @ops, "lt <rx_tmp>, $last, $pass";
        } else {
            push @ops, "ge <rx_tmp>, $first, $pass";
        }
    }
    pus <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2683	2785	
==>> { kind => $cond } });
    $handler->start_element({ Name => 'block', Attributes => { kind => 'test' } <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3447	3549	
==>> { kind => $cond } });
    $handler->start_element({ Name => 'block', Attributes => { kind => 'test' } <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	7915	8027	
==>e!
BNOTF
	} elsif (@codef and not @codeb) {
		push @{$code{$seg}->{code}},<<FNOTB;
@codef	noop
	_screen_color($re <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	8733	8845	
==>yms[CURR] eq "#";
	feedme();
	$fd=$syms[CURR];
	push @{$code{$seg}->{code}},<<OPEN;
@code	noop
	_OPEN($result,"$m <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10709	11051	
==>types, 'CODE';
                $state = 2;
                $depth = 1;
            } else {
                if ($c =~ /\d/) {
                    push @tokens, $c;
                    push @types, 'NUM';
                } elsif ($c =~ /\w/) {
                    push @tokens, $c;
                    push @types, 'CHAR';
                } els <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363485	363581	
==>st s = Parrot_sprintf_c(interpreter, \"%f\", (double){{\@2}});\n    PIO_putps(interpreter, {{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364388	364484	
==>st s = Parrot_sprintf_c(interpreter, \"%f\", (double){{\@2}});\n    PIO_putps(interpreter, {{\@1} <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	1304	1397	
==>]/lib/Parrot/Config.pm";
		%Parrot::Config::PConfig
	} or die "Unable to locate Parrot::Conf <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	6498	6930	
==>> ", %{$token->attr_hash}), ")\n";

      if( ($tagname = $token->tagname) eq 'Verbatim'
          or $tagname eq 'VerbatimFormatted'
      ) {
        ++$self->{'rtfverbatim'};
        my $next = $self->get_token;
        next unless defined $next;
        my $line_count = 1;
        if($next->type eq 'text') {
          my $t = $next->text_r;
          while( $$t =~ m/$/mg ) {
            last if  ++$line_count  > 15; # no poin <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	3202	3313	
==>>append($index_html);
    $index->append(Parrot::Docs::HTMLPage->footer('', '../resources'));
    
    return $s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733710	733962	
==>g_to_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734474	734726	
==>g_to_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853357	853571	
==>ps\"\n  {{\@1}} = string_append(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854139	854353	
==>ps\"\n  {{\@1}} = string_append(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	5	101	
==>quite dimwitted pod2plaintext that need only know how to format whatever
# text comes out of Pod: <==
2	/Users/nnunley/parrot/lib/Test/More.pm	31057	31155	
==>m B<eq_hash>

  my $is_eq = eq_hash(\%this, \%that);

Determines if the two hashes contain the same <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	20247	20445	
==>t depend on the test output order, such as
when threads or forking is involved.

Test::Harness will accept either, but avoid mixing the two styles.

Defaults to on.

=cut

sub use_numbers {
    my($s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028015	1028118	
==>ops/sys.ops\"\n  opcode_t *next = {{^+2}};\n  if ({{\@1}} < 0) {\n      real_exception(interpreter, next <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028866	1028969	
==>ops/sys.ops\"\n  opcode_t *next = {{^+2}};\n  if ({{\@1}} < 0) {\n      real_exception(interpreter, next <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	5897	6032	
==>q 'skip_all' ) {
        return $self->skip_all($arg);
    }
    elsif( $cmd eq 'tests' ) {
        if( $arg ) {
            return $sel <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	33329	33450	
==>&_op_cons,
  'car'      => \&_op_car,
  'cdr'      => \&_op_cdr,
  'set-car!' => \&_op_set_car_bang,
  'set-cdr!' => \&_op <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1560	1659	
==>des access to a L<Parrot::Configure::Data> object intended to contain
initial and discovered configu <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	5082	5212	
==>ame="Special Directive" defStyleNum="dsKeyword" />
      <itemData name="Type" defStyleNum="dsDataType" />
      <itemData name="Co <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	3620	3791	
==>c2c.pm \\
		src/pmc/$pmc.pmc
	\$(PMC2CD) src/pmc/$pmc.pmc 

src/pmc/pmc_$pmc.h: src/pmc/$pmc.c

src/pmc/$pmc\$(O): src/pmc/$pmc.str \$(NONGEN_HEADERS) \\
        $parent_he <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	10479	10565	
==>array.pmc hash.pmc orderedhash.pmc tqueue.pmc parrotclass.pmc parrotobject.pmc os.pmc f <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	1846	1970	
==>independent
    # code for use in shared libraries.  -KPIC for Sun's compiler, -fPIC for
    # gcc.  We don't know which comp <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	3160	3414	
==>rn the run core C code for
section after the address table. C<$base_suffix> is the same as for 
C<ops_addr_decl()>.

=item C<run_core_finish($base)>

Implemented in subclasses to return the C code following the run core
function. C<$base> is the same as f <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	9599	9803	
==>se_flags {
    my $c = shift;

    $$c =~ s/^(.*?^\s*)pmclass ([\w]*)//ms;
    my ($pre, $classname) = ($1, $2);

    # flags that have values passed with them
    my %has_value = map { $_ => 1 } qw(does e <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	1839	2053	
==>l',
        commentType                             => '#',
        replace_slashes                         => 0,
        conditioned_lines                       => 1
    );
    genfile(
        'config/gen/makefile <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	1581	1792	
==>l',
        commentType                             => '#',
        replace_slashes                         => 0,
        conditioned_lines                       => 1
    );
	genfile(
        'config/gen/makefile <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	134	260	
==>d1 NAME

config/gen/makefiles.pm - Build files

=head1 DESCRIPTION

Generates the various F<Makefile>s and other files needed t <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	15630	15740	
==>code, $expected, $desc, \%extra, $extra{todo}, $call_pkg ) if ( keys %extra );
            local *{ $call_pkg . <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	18181	18291	
==>code, $expected, $desc, \%extra, $extra{todo}, $call_pkg ) if ( keys %extra );
            local *{ $call_pkg . <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	4223	4397	
==>s ( $next->type eq 'text' )
    {
        $self->unget_token($next);
        return;
    }
    
    my $text = $next->text;
                    
    if ( $text =~ /^Parrot::/o <==
2	/Users/nnunley/parrot/lib/Test/More.pm	27767	27984	
==>y a useful diff of two
arbitrary data structures.

These functions are usually used inside an ok().

    ok( eq_array(\@this, \@that) );

C<is_deeply()> can do that better and with diagnostics.  

    is_deeply( \@this <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	7445	7583	
==>ests_failed++;
    }
    my $wanted = $negate ?? "Unwanted" !! "Expected";

    # As PIL2JS doesn't support junctions yet, skip the junctio <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	23537	23703	
==>tic};

            my $libparrot = $PConfig{parrot_is_shared} ? $libparrot_shared : $libparrot_static;

            my $iculibs = "";
            if ($PConfig{'has_icu <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	3881	4026	
==>ps) {
	if($cur_op->full_name eq 'enternative'){
	    $enternative = pack_op($cur_op->code);
	    last FINDENTERN;
	}
    }
    die "Could not loca <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	14711	14862	
==>mp;
        for my $i (0..$#$args) {
            if ($args->[$i] =~ /^\((.+)\*\)&(.+)$/) {
                $temp[$i] = [ $1, $2 ];
                $args <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16038	16152	
==>t(1)->is_assign
      and $self->get(2)->is_value
      and $self->get(3)->is_infix_arith
      and $self->get(4)-> <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4504	4606	
==>tial_link($_, $pmc_libs->{$_}, [ $_ ] ) foreach (@ungrouped_pmcs);
} 
elsif ($mode eq 'copy') {
    # C <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4608	4710	
==>tial_link($_, $pmc_libs->{$_}, [ $_ ] ) foreach (@ungrouped_pmcs);
} 
elsif ($mode eq 'copy') {
    # C <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3059	3183	
==>d	return $$self{STACK}[$index][1];

	undef;	#Invalid index
}

sub YYCurtok {
	my($self)=shift;

        @_
    and $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2911	3026	
==>d	return $$self{STACK}[$index][1];

	undef;	#Invalid index
}

sub YYCurtok {
	my($self)=shift;

        @_
    and $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629546	629669	
==>erpreter, class);\n    }\n    if (type <= 0)\n        real_exception(interpreter, NULL, NO_CLASS,\n            \"Class '%Ss' <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3218	3353	
==>lf{TOKEN}};
}

sub YYCurval {
	my($self)=shift;

        @_
    and ${$$self{VALUE}}=$_[0];
    ${$$self{VALUE}};
}

sub YYEx <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3060	3184	
==>lf{TOKEN}};
}

sub YYCurval {
	my($self)=shift;

        @_
    and ${$$self{VALUE}}=$_[0];
    ${$$self{VALUE}};
}

sub YYEx <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	17618	17900	
==>k just like Pod::Simple's same-named methods:

=over

=item $parser->parse_file(...)

=item $parser->parse_string_document(...)

=item $parser->filter(...)

=item $parser->parse_from_file(...)

=back

For those to work, the Pod-processing subclass of
Pod::Simple::PullParser has to h <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6626	6753	
==>rying to work out which files
	# it's sensible to link directly to. Suffixes other than txt are a
	# problem (for me at least) b <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	39669	39762	
==>xt = "/para line 1\n\nline 3\n/para line 4";

	extract_tagged($text, '/para', '/endpara', unde <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	39983	40076	
==>xt = "/para line 1\n\nline 3\n/para line 4";

	extract_tagged($text, '/para', '/endpara', unde <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359938	360124	
==>> [
                              "sc"
                            ],
                  "BODY" => "#line 250 \"src/ops/io.ops\"\n  STRING * const s = {{\@1}};\n  if (s && string_length(in <==
2	/Users/nnunley/parrot/lib/File/Which.pm	5089	5214	
==>C<.com> (in that order).

=head1 Functions

=head2 which($short_exe_name)

Exported by default.

C<$short_exe_name> is the nam <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4073	4190	
==>_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert lib-GROUP.so + A.so + B.so ... -> GROUP.so <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4177	4294	
==>_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert lib-GROUP.so + A.so + B.so ... -> GROUP.so <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	1085	1213	
==>fail P0";
}

sub output_match_succeeded {
    return "re_succeeded P0";
}

sub output_match_failed {
    return "re_failed P0";
} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	2236	2538	
==>[0,1,0,$children[0]]);
            } else {
                @{ $t->{args} } = @children;
                return rop('multi_match', [0,1,0,$self->pass1($t, $ctx)]);
            }
        }

        # opt(R|) -> opt(R)?
        # opt(R|S|) -> opt(R|S)?
        # opt(R|S||) -> opt(R|S)?
        if ($child <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645886	645993	
==>e\n\t\t{{\@1}} = Parrot_get_datatype_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646783	646890	
==>e\n\t\t{{\@1}} = Parrot_get_datatype_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	3524	3642	
==>\n", $generated_files{$gcov_file}) {
            my ($percent, $total_lines, $real_filename) = /\s*([^%]+)% of (\d+)(?: <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	1294	1551	
==>ntation',
	'dump' => 'Dump file',
	'el' => 'eMacs Lisp code',
	'exp' => 'Perl6 expected parse tree',
	'flag' => 'Some kind of IMCC file',
	'generated' => 'MANIFEST generated file',
	'h' => 'C header',
	'hacking' => 'README file',
	'il' => 'MSIL assembler cod <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499516	499767	
==>atval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500279	500530	
==>atval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	20350	20470	
==>e
		{
			$ldel2 = $rdel2 = $ldel1;
		}
		$str2pos = $ld2pos+1;

		if ($ldel2 =~ /[[(<{]/)
		{
			pos($$textref)--;	# OVER <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1812	1925	
==>ck = $self->block;
  my $name  = $self->ident ? $self->ident->value : undef;
  my $cond  = $self->cond;
  my $left <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2417	2530	
==>ck = $self->block;
  my $name  = $self->ident ? $self->ident->value : undef;
  my $cond  = $self->cond;
  my $left <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299099	299537	
==>,
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 348,
                  "ARGS" => [
                              "i",
                              "n",
                              "n"
                            ],
                  "BO <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8718	8942	
==>ery.\n";
#DBG>				$dbgerror=0;
#DBG>			};

			    push(@$stack,
                     [ $$states[$$stack[-1][0]]{GOTOS}{$lhs}, $semval ]);
                $$check='';
                next;
            };

#DBG>			$de <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8326	8540	
==>ery.\n";
#DBG>				$dbgerror=0;
#DBG>			};

			    push(@$stack,
                     [ $$states[$$stack[-1][0]]{GOTOS}{$lhs}, $semval ]);
                $$check='';
                next;
            };

#DBG>			$de <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740248	740511	
==>" => "inline",
                  "CODE" => 832,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 159 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}}->vtabl <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	6965	7340	
==>$Get_Time{ $cfg{method} }->();
            my $used = $stop - $start;
            $base ||= $used;
            printf("%-$max[$_ + 1]s  ", $cfg{use_times}
                 ? sprintf("%.3f", $used)
                 : sprintf( "%d%%", $used / ($base / 100) )
            );
        }
        else {
            printf ("%-$max[$_ + 1]s  ", '-');
        }
    }
}

sub Longest { <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1418	1620	
==>ose_info}
        and $parser->YYData->{verbose_info} );
}

sub _DoubleQuoteStringLexer {
    my $parser = shift;
    my $str    = q{};
    my $type   = 'STRING';

    while ( $parser->YYData->{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936377	936652	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "titlecase",
                  "FLAGS" => ":base_core", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937154	937429	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "titlecase",
                  "FLAGS" => ":base_core", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197924	198244	
==>i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 234,
                  "ARGS" => [
                              "ic",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 366 \"src/o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8523	8803	
==>],
                  "TYPE" => "inline",
                  "CODE" => 12,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 182 \"src/ops/core.ops\"\n    char * const label = string_to_cstring(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554965	555236	
==>637,
                  "ARGS" => [
                              "p",
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line 94 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, * <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721959	722249	
==>PE" => "function",
                  "CODE" => 809,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 149 \"src/ops/python.ops\"\n  STRING * const s = {{\@2}};\n  PMC * const i <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	16	178	
==>2004, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Docs/Section/Libs.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Libs - Parrot l <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	496	638	
==>ke',
    output_isnt       => 'isnt_eq'
                        );

foreach my $func ( keys %language_test_map ) {
    no strict 'refs';

    * <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	835	977	
==>ke',
    output_isnt       => 'isnt_eq'
                        );

foreach my $func ( keys %language_test_map ) {
    no strict 'refs';

    * <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	1169	1297	
==><<"END_H";
    enum_class_core_max
};

/* &end_gen */
END_H

    close OUT;

    move_if_diff("$file.tmp", $file);

    return;
} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9265	9362	
==>BUG and print "Indenting over $indent_stack[-1] twips.\n";
        $self->{'rtfindent'} += $indent <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	24505	24669	
==>_[1],
		"lookahead"  => $_[2],
		"commitonly" => $_[3],
		"line"       => $_[4],
	}, $class;
}

sub code($$$$)
{
	my ($self, $namespace, $rule, $check) = @_;
	
	my $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3434	3593	
==>ent
position to the start of the Parrot code, without resuming.

=item C<restart OFFSET(X)>

Transforms to C<PC' = 0> and restarts at C<PC + X>.

=item C<restar <==
2	/Users/nnunley/parrot/lib/Test/More.pm	27349	27449	
==>my $type (qw(ARRAY HASH REF SCALAR GLOB Regexp)) {
        return $type if UNIVERSAL::isa($thing, $ty <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	42625	42718	
==>ir performance is typically twice as good as the more general-purpose
C<extract_tagged>.


=he <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	500	604	
==>{IO};
  #$new->accept_codes('VerbatimFormatted');
  return $new;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834611	834972	
==>=> "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 945,
                  "ARGS" => [
                              "sc"
                            ],
                  "BODY" => "#line 20 <==
2	/Users/nnunley/parrot/lib/Test/More.pm	13938	14118	
==>t ) {
            my $ref = ref $object;
            $diag = "$obj_name isn't a '$class' it's a '$ref'";
        }
    }
            
      

    my $ok;
    if( $diag ) {
        $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1765	1850	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _xml_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640961	641424	
==>> 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 716,
                  "ARGS" => [
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 189 \"src/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640207	640591	
==>> 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 715,
                  "ARGS" => [
                              "s",
                              " <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2978	3127	
==>(?:\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # test result
              | " ((?:[^"\\]|\\.)+) "   #" (keep <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4375	4524	
==>(?:\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # test result
              | " ((?:[^"\\]|\\.)+) "   #" (keep <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89355	89648	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90093	90386	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGD <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1590	1704	
==>ock = $self->block;
  my $value = $self->value;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3210	3324	
==>ock = $self->block;
  my $value = $self->value;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $op    = <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2003	2102	
==>"
if 5<5 then print "Wrong" else print "Ok"
if 6<5 then print "Wrong" else print "OK"
if 4<=5 then p <==
2	/Users/nnunley/parrot/config/inter/charset.pm	1218	1425	
==>er/charset.pm'

E_NOTE

    foreach my $charset (split(/\s+/, $charset_list)) {
        $charset =~ s/\.c$//;
        $TEMP_charset_build .= <<END
src/charset/$charset\$(O): src/charset/$charset.h src/charset <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377371	377601	
==>=> [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 432 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_in <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2491	2593	
==>uced by the test code matches the C<$expected>
parameter.  Note that C<$expected> is a I<Perl 5> patter <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3925	4027	
==>uced by the test code matches the C<$expected>
parameter.  Note that C<$expected> is a I<Perl 5> patter <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	120	215	
==>he Perl Foundation.
# $Id: /parrot/tools/dev/extract_file_descriptions.pl 19607 2006-05-30T15:23 <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	1439	1547	
==><<"HEADER";
/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automati <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20501	20677	
==>ubclassing to add a C<run> method.

=head1 SEE ALSO

L<Pod::Simple>

L<Pod::Simple::PullParserToken> -- and its subclasses
L<Pod::Simple::PullParserStartToken>,
L<Pod::Simple::P <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3083	3210	
==>to be link.exe, not cl.exe.
        # This makes 'link' and 'ld' the same.
        $conf->data->set(link => $conf->data->get('ld <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8042	8190	
==>ies:
      #

      my %props;

      while ($self->skip_colon) {
        my $prop = $self->require_ident->text;
      
        my $value;

        i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5048	5190	
==>ies:
      #

      my %props;

      while ($self->skip_colon) {
        my $prop = $self->require_ident->text;

        my $value;

        i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25778	26075	
==>TART",
                  "NAME" => "returncc",
                  "FLAGS" => "",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 34,
                  "ARGS" => [],
                  "BODY" => "#line 446 \"src/ops/core.ops\"\n  PMC * const p = CO <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	9946	10086	
==>userfunc($syms[CURR]))
			and $syms[NEXT] ne "(" and $type[CURR] ne "STRING") {
			push(@expr, [ "(", "PUN" ]); # Make sure no-arg funcs have <==
2	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1310	1429	
==>age AssignOp;
use base qw(Lua::opcode);

package KeyedGetOp;
use base qw(Lua::opcode);

package KeyedSetOp;
use b <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8934	9101	
==>BG>			$debug & 0x04
#DBG>		and	print STDERR "Forced Error recovery.\n";

            $$check='';

        };

        #Error
            $$errstatus
        or <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8532	8690	
==>BG>			$debug & 0x04
#DBG>		and	print STDERR "Forced Error recovery.\n";

            $$check='';

        };

        #Error
            $$errstatus
        or <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	17894	18132	
==>t >= max goto next
#               R or check
#               $matchcount++
#               goto loop
#         back: if $matchcount == 0 goto lastback
#               $matchcount--
#               goto R.back
#        check: if $matchcoun <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	1044	1207	
==>2>",  #  ''
  'head3' => "\n<h3>",  #  ''
  'head4' => "\n<h4>",  #  ''
  '/head1' => "</a></h1>\n",
  '/head2' => "</a></h2>\n",
  '/head3' => "</a></h3>\n",
  '/h <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	6186	6351	
==>DLINE
	bsr CHOMP
	I12= S0
PROMPTRND
	} else {
		($result, $type, @code)=EXPRESSION();
		push @{$code{$seg}->{code}},<<EOR;
@code	find_global \$P0, "RANDSEED"
	\$I0= $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1467	1572	
==>p;
use base qw(Lua::opcode);

package NoOp;
use base qw(Lua::opcode);

package FindGlobalOp;
use ba <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2511	2666	
==>P0	# Hack in the alias

SHARING
		} else {
			print CODE<<SHARING;
	# Sharing $stype $var with main  (array=$array)
	P0= P10[0]
	P1= P0["$stype"]
	P0= P1["$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82000	82315	
==>oke the compiler\");\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82894	83209	
==>oke the compiler\");\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	246184	246480	
==>mp_num",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	483	603	
==>module Pod::Simple::BlackBox is doing the dirty work
# of parsing Pod into treelets (generally one per non-verbatim parag <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	8815	8939	
==>elsif ($$textref =~ m/\G($rdelspec)/gc )
		{
			$closetagpos = pos($$textref)-length($1);
			goto matched;
		}
		elsif ($igno <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	619088	619223	
==>ypes = (lt << 16) | rt;\n    if (lru->u.type == lr_types) {\n\tINTVAL a = lt == enum_class_Integer ? PMC_int_val(left) :\n\t    VTABLE_g <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	53645	53830	
==>ub
#line 357 "Lua\lua51.yp"
{
            BuildBinop( $_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 63
		 'exp', 3,
sub
#line 361 "Lua\lua51.yp"
{
            BuildBinop <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22919	23124	
==>a->[1]{'start_line'}\n";
        next;
      }

      # Else it's okay to close...
      if(grep $_->[1]{'~ignore'}, @$curr_open) {
        DEBUG > 1 and print "Not firing any event for this =end $content b <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	1952	2293	
==>d" action for now.
        
        @files = ();
        File::Find::find({wanted => sub {
                              /^.*\.[ch]\z/s &&
                                push @files, $File::Find::name;
                          }}, '.');
    }

    # note: need to run this a second time so the database is built.
    # should just use the b <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	53226	53387	
==>e list:

        [
                sub { extract_variable($_[0], '') },
                sub { extract_quotelike($_[0],'') },
                sub { extract_codeblo <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	42486	42597	
==>agged> to create extraction functions for specific tags 
is a good idea if those functions are going to be calle <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	46803	46912	
==>("a comment",0,$line);
			next;
		}
		elsif ($grammar =~ m/$NEGLOOKAHEAD/gco)
		{
			_parse("a negative lookah <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054457	1054554	
==>to get null global.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055584	1055681	
==>to get null global.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2180	2284	
==>Now the actual formatters:

sub end_head1       { $_[0]->emit_par(-4) }
sub end_head2       { $_[0]->emit <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1748	1852	
==>Now the actual formatters:

sub end_head1       { $_[0]->emit_par(-4) }
sub end_head2       { $_[0]->emit <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32304	32430	
==>);
    # I think that these will be out by one - NWC
    my $l = $self->line_directive($line, "ref.c");
    return <<EOC;
$l
$d <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40926	41052	
==>);
    # I think that these will be out by one - NWC
    my $l = $self->line_directive($line, "ref.c");
    return <<EOC;
$l
$d <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeDumb.pm	1	213	
==>require 5;
## This module is to be use()'d only by Pod::Simple::Transcode

package Pod::Simple::TranscodeDumb;
use strict;
use vars qw($VERSION %Supported);
$VERSION = '2.02';
# This module basically pretends it k <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4581	4682	
==>do_beginning && $self->do_middle && $self->do_end;
}


#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3212	3312	
==>do_beginning && $self->do_middle && $self->do_end;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846282	846641	
==>" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 960,
                  "ARGS" => [
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 56 \"src <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	3091	3243	
==>ntent
 'errors_seen',       # TODO: document.  whether we've seen any errors (fatal or not)

 'code_handler',      # coderef to call when a code (non-pod <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	2372	2492	
==>tents);
}

=item C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shift;
    
    return $self->SUPER::ne <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	3274	3591	
==>ou can call get_token');
       
      DEBUG and print "$self 's source is filehandle $fh.\n";
      # Read those many lines at a time
      for(my $i = Pod::Simple::MANY_LINES; $i--;) {
        DEBUG > 3 and print " Fetching a line from source filehandle $fh...\n";
        local $/ = $Pod::Simple::NL;
        push @ <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	7296	7429	
==>ector, APLVector) # index of
    .param pmc op1
    .param pmc op2
 
    .local pmc iter_one, iter_two
    .local pmc item_one, item_t <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1644	1819	
==>_item_bullet { $_[0]{'Thispara'} = '* ' }
sub start_item_number { $_[0]{'Thispara'} = "$_[1]{'number'}. "  }
sub start_item_text   { $_[0]{'Thispara'} = ''   }

sub start_over_ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23454	23551	
==>p = $self->_generate($node->{children}[$_]);
    my $label = $self->_gensym();
    $self->_add_ins <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23916	24013	
==>p = $self->_generate($node->{children}[$_]);
    my $label = $self->_gensym();
    $self->_add_ins <==
2	/Users/nnunley/parrot/lib/Test/More.pm	18392	18542	
==>een given a module name or file.
    # Module names must be barewords, files not.
    $module = qq['$module'] unless _is_module_name($module);

    loc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87433	87551	
==>\"\n  {{\@1}} = Parrot_make_cb(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88435	88553	
==>\"\n  {{\@1}} = Parrot_make_cb(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	3763	3929	
==>in the core's init function.
C<$base_suffix> is the same as for C<ops_addr_decl()>.

=back

B<Macro Substitutions>

The following methods are called by C<Parrot::OpFil <==
2	/Users/nnunley/parrot/config/init/manifest.pm	785	891	
==>, some files were missing!  I can't continue running
without everything here.  Please try to find the above <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033208	1033318	
==>t_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@1}};\n    PMC * const lex_pad = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034306	1034416	
==>t_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@1}};\n    PMC * const lex_pad = <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	2848	3009	
==>locals" ]),
            map { aop('pushint' => [ $_, "rxlocal $_" ]) }
                @$rxlocals);
}

sub rule_restore_rxlocals {
    my ($self) = @_;
    my $rx <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	970	1074	
==>ngArray => 43,
	MultiArray => 44,
	Hash => 45,
	OrderedHash => 46,
	TQueue => 47,
	ParrotClass => 48,
	Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50228	50420	
==>erp_flags_CLEAR(interpreter, PARROT_PROFILE_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51021	51213	
==>erp_flags_CLEAR(interpreter, PARROT_PROFILE_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160023	160343	
==>TYPE" => "inline",
                  "CODE" => 193,
                  "ARGS" => [
                              "ic",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 176 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3 <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	4994	5147	
==>odo )>

Determine the language from the extension of C<$example_f> and runs
language_output_is().  This I<does> set a description for you, so don't pass
o <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	5422	5533	
==>odo )>

Determine the language from the extension of C<$example_f> and runs
language_output_isnt().  This I<does <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44507	44798	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "popmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45148	45439	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "popmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093345	1093691	
==>i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1212,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 209 \"src/ops/experimental.ops\"\n  VTABLE_morph(interpreter, {{\@1}}, {{ <==
2	/Users/nnunley/parrot/config/init/hints/irix.pm	151	259	
==>ix;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    my $ccflags = $conf->data->get('ccflags') || <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93939	94159	
==>RGS" => [
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 58 \"src/ops/bit.ops\"\n  string_bitwise_and(interpreter, {{\@1}}, {{\@2}}, <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	199	316	
==>nd report

=head1 SYNOPSIS

    % mkdir parrot_coverage
    % perl tools/dev/parrot_coverage.pl recompile
    % perl t <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	1649	1892	
==>parent_path if $parent_path eq $path;
    
    $self = bless {
        PATH => $path,
        NAME => $name,
        PARENT_PATH => $parent_path,
    }, $self;
    
    return unless $self->create_path;
    
    return $instance_for_path{$path} <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6351	6461	
==>ugh the array.
WHILE Exchange          ' Sort until no elements are exchanged.
   Exchange=FALSE
   ' Compare t <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16004	16114	
==>ugh the array.
WHILE Exchange          ' Sort until no elements are exchanged.
   Exchange=FALSE
   ' Compare t <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	2712	2903	
==>00
END_PIR

    $P0[unicode:"dyadic:\u2372"]  =  <<"END_PIR"            # nand
    $I100 = %1
    $I101 = %2
    $I100 = and $I100, $I101
    $I100 = not $I100
    %1 = $I100
END_PIR

    $P0[ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3203	3315	
==>item C<type_for_suffix($suffix)>

This is a class method that converts a file suffix to a description of
the type <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5964	6089	
==>G>				$debug & 0x01
#DBG>			and	print STDERR "Need token. Got ".&$ShowCurToken."\n";
			};

            $act=   exists($$a <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5680	5801	
==>G>				$debug & 0x01
#DBG>			and	print STDERR "Need token. Got ".&$ShowCurToken."\n";
			};

            $act=   exists($$a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035597	1035696	
==>MC_IS_NULL(lex_pad))\n\tresult = VTABLE_get_pmc_keyed_str(interpreter, lex_pad, lex_name);\n    if ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036761	1036860	
==>MC_IS_NULL(lex_pad))\n\tresult = VTABLE_get_pmc_keyed_str(interpreter, lex_pad, lex_name);\n    if ( <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	507	651	
==>tput_isnt       => 'isnt_eq'
                        );

foreach my $func ( keys %language_test_map ) {
    no strict 'refs';

    *{"Parrot::Tes <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	846	990	
==>tput_isnt       => 'isnt_eq'
                        );

foreach my $func ( keys %language_test_map ) {
    no strict 'refs';

    *{"Parrot::Tes <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615028	615261	
==>S,\n            \"Class not parent of object\");\n    }\n    {{\@1}} = offset;\n    {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616179	616412	
==>S,\n            \"Class not parent of object\");\n    }\n    {{\@1}} = offset;\n    {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	3032	3153	
==>elf;
}


#
# ACCESSORS:
#

# block handled by superclass?
# access handled by superclass?
sub type  { return shift->{TYPE} <==
2	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	772	858	
==>k.pasm"
.include "tokenize.pasm"
.include "basicvar.pasm"
.include "basic.pasm"
.includ <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	2285	2409	
==>ep { defined $_ } @pmc);

    if ($conf->options->get('ask')) {
        print <<"END";


The following PMC files are availabl <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34484	34703	
==>y_para_hack'};
            }

          } elsif($item_type eq 'number') {
            $self->whine(
              $para->[1]{'start_line'},
              "Expected '=item *'"
            );
            push @$para, $para <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	13590	13704	
==>add a footer to the end
of the document.

=cut

sub do_end 
{
    my $self = shift;
    
    print {$self->{'output <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	1419	1520	
==>ation?

=item * Fragment describe_file() - it shouldn't both `cat` and dispatch
on file suffix.

=item <==
2	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	1341	1458	
==>) {
        die "Illegal version component: '$_' in VERSION file!" unless m/^[1-9]*\w*$/;
    }

    if (@parrot_versi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	697303	697855	
==>ter",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 783,
                  "ARGS" => [
                              "ic",
                              "i",
                              "ic",
                              "p"
                            ],
                  "BODY <==
2	/Users/nnunley/parrot/config/init/defaults.pm	7296	7443	
==>>get('profile')) {
        $conf->data->set(
            cc_debug => " -pg ",
            ld_debug => " -pg ",
        );
    }

    return $self;
} <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	25088	25191	
==>t like getting undef
           UNIVERSAL::can((tied($maybe_fh) || ''), 'TIEHANDLE');
}


sub _autoflush <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955398	955642	
==>"NAME" => "encodingname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "funct <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956209	956453	
==>"NAME" => "encodingname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "funct <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	16543	16732	
==>emp($t = 'N');
	print <<"EOC";
	$n = pow $l->[1], $r->[1] $cmt
EOC
    }
    else {
	my $nl = temp('N');
	my $nr = temp('N');
	$n = temp($t = 'N');
	print <<"EOC";
	$nl = $l->[1]
	$nr = $r-> <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9858	9991	
==>gs";
    } else {
        return "INTERP, SELF";
    }
}

=item C<proto($type,$parameters)>

Determines the prototype (argument signat <==
2	/Users/nnunley/parrot/config/auto/va_ptr.pm	395	499	
==>rot::Configure::Step ':auto';

$description = 'Test the type of va_ptr (this test is likely to segfault)' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806031	806121	
==>Y" => "#line 497 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed(inte <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806937	807027	
==>Y" => "#line 497 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed(inte <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	848	954	
==>cversion to undef.  This will also trigger any hints-file
    # callbacks that depend on knowing whether or <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	341	457	
==>w {
    return bless {};
}

sub output_is() {
    my ($self, $code, $output, $desc) = @_;
  
    my $count = $self->{ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	379	495	
==>w {
    return bless {};
}

sub output_is() {
    my ($self, $code, $output, $desc) = @_;
  
    my $count = $self->{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5598	5773	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "load_bytecode",
                  "FLAGS" => ":load_file",
                  "A <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6263	6438	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "load_bytecode",
                  "FLAGS" => ":load_file",
                  "A <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	369	483	
==>qw(Jako::Construct::Statement);

my %block_types = (
  'while'    => { PREFIX => "_W", NEXT => 'CONT', REDO => 'RED <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	390	504	
==>qw(Jako::Construct::Statement);

my %block_types = (
  'while'    => { PREFIX => "_W", NEXT => 'CONT', REDO => 'RED <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	54400	54567	
==>],
	[#Rule 68
		 'exp', 3,
sub
#line 381 "Lua\lua51.yp"
{
            BuildRelop( $_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 69
		 'exp', 3,
sub
#l <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	5655	5821	
==>ok.in' => 'languages/ook/Makefile',
        commentType                   => '#',
        replace_slashes               => 1
    );
    genfile(
        'config/gen/ma <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20175	20279	
==>French
  3084  Canada French
  1035  Finnish
  1044  Norwegian (Bokmal)
  2068  Norwegian (Nynorsk)

=bac <==
2	/Users/nnunley/parrot/languages/regex/test.pl	2386	2488	
==>stfile: $!";
    $pattern = <SPEC>;
    chomp($pattern);
}

generate_regular($pattern);
exit(0) if $com <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	8459	8560	
==>rint JITCPU <<'END_C';
#define IREG(i) REG_INT(jit_info->cur_op[i])
#define NREG(i) REG_NUM(jit_info-> <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	4380	4494	
==>rate Parrot Assembler Code.
Pass unless the generated PASM is $expected.

=item C<c_output_is($code, $expected, $de <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13323	13500	
==>\w+)           # other_method
      \(\s*(.*?)\)      # capture argument list
     /"Parrot_${class}_$1(".full_arguments($2).")"/xeg;

    # Rewrite SELF -> pmc, INTERP -> interp <==
2	/Users/nnunley/parrot/config/auto/signal.pm	1348	1476	
==>test_itimer.in');
    eval { cc_build(); };
    unless ($@ || cc_run() !~ /ok/) {
        $conf->data->set(
            has_setit <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	6402	6494	
==>=back

=head1 SEE ALSO

=over 4

=item C<Parrot::Docs::Section>

=item C<Parrot::Docs::Group> <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	12333	12459	
==>te_advance {
    my ($self, $op, $howfar, $lastback) = @_;
    my $back = $self->genlabel('undo_charclass');
    my $next = $se <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	1305	1473	
==>WERCASE
    $ret |= 0x0004 if $chr =~ /^[[:alpha:]]$/;  # CCLASS_ALPHABETIC
    $ret |= 0x0008 if $chr =~ /^[[:digit:]]$/;  # CCLASS_NUMERIC        
    $ret |= 0x0010 i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89283	89538	
==>t.ops\"\n  {{\@1}} &= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90021	90276	
==>t.ops\"\n  {{\@1}} &= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	2273	2380	
==>_num );
    $f_code = File::Spec->rel2abs( $f_code );

    return( $next_test_num, $f_out, $f_code );
}


su <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	153041	153357	
==>, {{\@1}}, {{\@2}}, MMD_STREQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8102	8194	
==>]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK0} <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6056	6148	
==>]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK0} <==
2	/Users/nnunley/parrot/examples/benchmarks/addit.pl	796	921	
==>(@args);
}
print "$result\n";

=head1 SEE ALSO

F<examples/benchmarks/addit.pasm>, F<examples/benchmarks/addit.pir>,
F<example <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	772	898	
==>($out_f);
    Parrot::Test::write_code_to_file( $code, $lang_f );

    my $cmd;
    my $exit_code = 0;
    my $pass = 0;

    $ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	809	935	
==>($out_f);
    Parrot::Test::write_code_to_file( $code, $lang_f );

    my $cmd;
    my $exit_code = 0;
    my $pass = 0;

    $ <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	180	333	
==>A = qw(Exporter);
@EXPORT = qw(struct);

$VERSION = '0.61';
}
## Tested on 5.002 and 5.003 without class membership tests:
my $CHECK_CLASS_MEMBERSHIP = ($ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28792	28894	
==>lf, $meth) = @_;

    return 0 unless exists $self->{has_method}{$meth};
    my $n = $self->{has_method <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	32	134	
==>his SRM algorithm keeps track of the current stack depth and assigns to
# virtual registers numbered by <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	32	134	
==>his SRM algorithm keeps track of the current stack depth and assigns to
# virtual registers numbered by <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22332	22433	
==>abel = $self->_gensym();

  my $temp_0 = $self->_generate($node->{children}[1]);
  $return = $self->_c <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22833	22934	
==>abel = $self->_gensym();

  my $temp_0 = $self->_generate($node->{children}[1]);
  $return = $self->_c <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2931	3035	
==>ut =~ tr{\xA0}{ } if Pod::Simple::ASCII;
  print {$self->{'output_fh'}} $out,
    #"\n"
  ;
  $self->{'Th <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2465	2561	
==>ut =~ tr{\xA0}{ } if Pod::Simple::ASCII;
  print {$self->{'output_fh'}} $out, "\n";
  $self->{'Th <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	6915	7247	
==>ta->{lineno}++,
                last;

            s/^(0[Xx])([0-9A-Fa-f]+)//
                and return ( 'NUMBER', hex($2) );

            s/^(\d+(\.\d*)?|\.\d+)([Ee][+\-]?\d+)?//

#                and return ('NUMBER', new Math::BigFloat($1));
                and return ( 'NUMBER', $1 . ( $3 || q{} ) );

            s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1775	1883	
==>s undefined type name!")
    unless defined $type_name;

  $self->INTERNAL_ERROR("Constant definition involve <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605862	605954	
==>BODY" => "#line 441 \"src/ops/object.ops\"\n    Parrot_add_attribute(interpreter, {{\@1}}, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606653	606745	
==>BODY" => "#line 441 \"src/ops/object.ops\"\n    Parrot_add_attribute(interpreter, {{\@1}}, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255861	256159	
==>> "xor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256768	257066	
==>> "xor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 2 <==
2	/Users/nnunley/parrot/languages/lua/luac.pl	860	976	
==>->YYData->{nb_info} )
{
    my $nb = $parser->YYData->{nb_info};
    print "$nb info(s).\n";
}

unless ( exists <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	27907	28060	
==>nsor has bad syntax.\n";
    $self->whine(
      $para->[1]{'start_line'},
      "Unknown =extend syntax: $content"
    )
  }
  return;
}


#:.:.:.:.:.:.: <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	3344	3457	
==>0: Could not find ops file '$file'!\n" unless -e $file;
    my $temp_ops = Parrot::OpsFile->new( [ $file ], $nolin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376313	376726	
==>"i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 440,
                  "ARGS" => [
                              "i",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(int <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	51102	51235	
==>CHECK = 1;
				}
			}
			elsif ($grammar =~ m/$AUTOSTUBMK/gco)
			{
				_parse("an autostub marker", $aftererror,$line);
				$::RD_AUT <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	719	819	
==>n.
sub gen_label() {
	# We'll emit a label for every single instruction.
	return <<'PIR';
strPC = ${P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	270596	270918	
==>"NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 315,
                  "AR <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2640	2758	
==>()> macro in an ops file into the relevant C
code.

=cut

sub goto_pop
{
    my ($self) = @_;

    return "cur_opcode = <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5217	5388	
==>lt} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $first = 1;
            foreach ( @{ $op->{result} } ) {
                print {$FH <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6249	6420	
==>lt} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $first = 1;
            foreach ( @{ $op->{result} } ) {
                print {$FH <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	55237	55337	
==>e of that element is one of the
above extractor types (subroutine reference, regular expression, or s <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2312	2424	
==>(undef, $desc, $todo, "eval was fatal: $!", :$depends);
    }
    else {
        #diag "'$desc' was non-fatal and <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273133	273626	
==>"NAME" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 318,
                  "ARGS" => [
                              "i",
                              "n",
                              "n"
                            ],
                  "BODY" => <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	38549	38901	
==>ply'                           => \&_op_apply,
  'map'                             => \&_op_map,
  'for-each'                        => \&_op_for_each,
  'force'                           => \&_op_force,
  'call-with-currrent-continuation' => \&_op_call_with_current_continuation,

###
### Input and Output
###

####
#### Ports
####

  'call-with-input- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167444	167671	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 197 \"src/ops/cmp.ops\"\n  if (! mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_EQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	31543	31771	
==>pen
          }
          
          # =item-text thingies don't need any assimilation, it seems.

        } elsif($over_type eq 'number') {
          my $item_type = $self->_get_item_type($para);
            # That kills the con <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	1061	1159	
==>ble.
my $metavars = {};

# Generate initial translator code and populate metafields.
my $pir = gene <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	1360	1493	
==>mechanism for building a bigger
virtual ops file from multiple physical ops files.

This code does half of that job (the other half is <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11567	11670	
==>k, $self->forth);

      $self->require_semicolon;

      my $arith = Jako::Construct::Statement::Arithm <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16512	16615	
==>k, $self->forth);

      $self->require_semicolon;

      my $arith = Jako::Construct::Statement::Arithm <==
2	/Users/nnunley/parrot/config/gen/config_pm.pm	800	929	
==>m.in") or die "Can't open Config_pm.in: $!";
    open(OUT, ">lib/Parrot/Config.pm")             or die "Can't open lib/Parrot/Conf <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	10162	10324	
==>Op onto our op array, and forget the op so we can start the next
        # one.
        #

        if (/^}\s*$/)
        {
            $count += $self->make_op($co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	153746	153997	
==>" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 127 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\ <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2317	2437	
==>PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/src/pmc' . $PATHQUOTE . " " .
        $source;
};

s <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	2112	2232	
==>PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/src/pmc' . $PATHQUOTE . " " .
        $source;
};

s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	25607	25947	
==>xt =>
              );

    return ($back, @ops);
}

# R?? ->       pushindex
#              goto next
#        back: popindex or R.back
#              R or lastback
#              pushmark
#        next:
#
sub rewrite_nongreedy_optional {
    my ($self, $op, $R, $lastback) = @_;

    my $back = $self->genlabel('nongreedy_opt_back');
    m <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25265	25429	
==>main::code{$main::seg}->{declarations}->{"FORLOOP_STEP_$forloop"}=1;
	push @{$code{$seg}->{code}}, <<COND;
@code	FORLOOP_END_$forloop= $endexpr
@stepcode
	FORLOOP_ST <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840102	840210	
==>,
                  "BODY" => "#line 272 \"src/ops/stack.ops\"\n  rotate_entries(interpreter, &CONTEXT(interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840797	840905	
==>,
                  "BODY" => "#line 272 \"src/ops/stack.ops\"\n  rotate_entries(interpreter, &CONTEXT(interp <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10477	10577	
==>}{error}.
#DBG>						 ".\n";

		push(@$stack, [ $$states[$$stack[-1][0]]{ACTIONS}{error}, undef ]) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10008	10105	
==>}{error}.
#DBG>						 ".\n";

		push(@$stack, [ $$states[$$stack[-1][0]]{ACTIONS}{error}, undef ]) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	790	970	
==>ut_classmatch {
    my ($class) = @_;
    return "classmatch '$class'";
}

sub output_start {
    my ($n) = @_;
    return "start $n";
}

sub output_end {
    my ($n) = @_;
    retu <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	4785	4960	
==>e}) {
    my $uc_meth = uc $entry->[1];
    $macros .= <<"EOM";
#define PARROT_VTABLE_${uc_meth}_METHNAME \"__$entry->[1]\"
EOM

    }
    $macros .= <<"EOM";
/* &end_gen */

E <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758305	758548	
==>t.ops\"\n  {{\@1}} = string_set(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759078	759321	
==>t.ops\"\n  {{\@1}} = string_set(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	20558	20762	
==>arrot;
                $obj->$meth(@remaining);

                # restore prior level, just in case.
                $builder->level($level);
            }
        }
    }

    # XXX this is broken WRT to <==
2	/Users/nnunley/parrot/lib/Test/More.pm	31937	32099	
==>eq_array(), except the order of the elements is B<not>
important.  This is a deep check, but the irrelevancy of order only
applies to the top level.

    ok( eq_se <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11603	11698	
==>~~~~~~~~~~~~~~~~~~~~

sub unicode_escape_url {
  my($self, $string) = @_;
  $string =~ s/([^\x00 <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19351	19484	
==>ode->{children}[$_]);
    $self->_add_inst('','ge',[$temp_0,$temp_1,"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	923295	923705	
==>FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1039,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 337 \"src/ops/string.ops\"\n  {{\@1}} = string_make_empty(interpreter, enum_string <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	754	846	
==>unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Left is not Value!" unles <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	766	858	
==>unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Left is not Value!" unles <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2974	3141	
==>d')) {
            $conf->data->set(libparrot_ldflags => 'libparrot$(A)');
        }

        # 'link' needs to be link.exe, not cl.exe.
        # This makes 'link' and <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20328	20434	
==>ode->{children}[$_]);
    $self->_add_inst('','gt',[$temp_0,$temp_1,"DONE_$label"]);
    $self->_restore($t <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	20049	20154	
==>i_match' => [ 1, -1, FALSE, $_[1] ]); }
	],
	[#Rule 17
		 'expr', 2,
sub
#line 125 "lib/Regex/Grammar.y"
{ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1476	1626	
==>p_file( "$out_f" );

        @_ = ( $prog_output, $output, $desc );
        #goto &{"Test::More::$meth"};
        my $ok = &{"Test::More::$meth"}( @_ ) <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1392	1542	
==>p_file( "$out_f" );

        @_ = ( $prog_output, $output, $desc );
        #goto &{"Test::More::$meth"};
        my $ok = &{"Test::More::$meth"}( @_ ) <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1418	1541	
==>, 
        );
        my $prog_output = Parrot::Test::slurp_file( "$out_f" );

        @_ = ( $prog_output, $output, $desc ) <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1334	1457	
==>, 
        );
        my $prog_output = Parrot::Test::slurp_file( "$out_f" );

        @_ = ( $prog_output, $output, $desc ) <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	263	423	
==>code) ) {
        $pir = [ split "\n", $code ];
    }
    $self->{raw_pir} = $pir;

    bless $self, $class;
    return $self;
}

sub add_pir {
    my $self = sh <==
2	/Users/nnunley/parrot/config/gen/cpu.pm	834	969	
==>ints = '$hints') " if $verbose;

    eval "use $hints";
    unless ($@) {
        $hints->runstep($conf, @_);
    } else {
        print <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688088	688202	
==>],
                  "BODY" => "#line 576 \"src/ops/pmc.ops\"\n   {{\@1}}->vtable->delprop(interpreter, {{\@1}}, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688860	688974	
==>],
                  "BODY" => "#line 576 \"src/ops/pmc.ops\"\n   {{\@1}}->vtable->delprop(interpreter, {{\@1}}, {{ <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	803	908	
==>son... default to not having bison
    $conf->data->set(bison_version => undef);

    unless ($conf->optio <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1125	1222	
==>onstructors

=over 4

=item * C<new()>

Basic constructor.

Accepts no arguments and returns a L<P <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	662	759	
==>onstructors

=over 4

=item * C<new()>

Basic constructor.

Accepts no arguments and returns a L<P <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2297	2402	
==>l($base)>

Optionally implemented in subclasses to return the C code for the run
core function declaration <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2748	2853	
==>l($base)>

Optionally implemented in subclasses to return the C code for the run
core function declaration <==
2	/Users/nnunley/parrot/config/init/defaults.pm	5237	5379	
==>g{ranlib},
        rpath         => '',
        make          => $Config{make},
        make_set_make => $Config{make_set_make},
        make_a <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	1075	1228	
==>ig.pm$::;
    my $dir_count = scalar(File::Spec->splitdir($path_to_parrot));
    my $path_to_tcl;
    if ($dir_count == 0) {
      $path_to_tcl = File::Sp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630438	630548	
==>s/pmc.ops\"\n    PMC *class = {{\@2}};\n    INTVAL type = pmc_type_p(interpreter, class);\n    if (type <= 0)\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631428	631538	
==>s/pmc.ops\"\n    PMC *class = {{\@2}};\n    INTVAL type = pmc_type_p(interpreter, class);\n    if (type <= 0)\n <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4059	4165	
==>hes) {
		$pir .= <<'PIR';
# Increment stack depth.
inc stack_depth

# Get type (so we can find register typ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2475	2581	
==>hes) {
		$pir .= <<'PIR';
# Increment stack depth.
inc stack_depth

# Get type (so we can find register typ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478785	478880	
==>7 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exception(int <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479677	479772	
==>7 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exception(int <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	15712	15881	
==>stuff => '%' } );

    # override the default accessor method for 'count'
    sub count {
        my $self = shift;
        if ( @_ ) {
            die 'count must be non <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352590	352937	
==>nt",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 411,
                  "ARGS" => [
                              "nc"
                            ],
                  "BODY" => "#l <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1045	1178	
==>\"$_[1]\"\n";
  
  if(length $_[1]) {
    my $indent = '  ' x $_[0]{'indent'};
    my $text = $_[1];
    _perly_escape($text);
    $te <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718412	718834	
==>rint_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 806,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" = <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28815	28915	
==>hname} = '__STRING' . ++$_[1]->{strcount} . '__'; }

sub issubrule { undef }
sub isterminal { 1 }
sub <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30895	30995	
==>hname} = '__STRING' . ++$_[1]->{strcount} . '__'; }

sub issubrule { undef }
sub isterminal { 1 }
sub <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	908	1099	
==>@static_cmds;
for my $cmd (@dynamic_cmds) {
    # skip if there's a static version
    next if $static_cmds{$cmd};
    
    print <<"END_PIR";
.sub "&$cmd"
  .param pmc argv :slurpy
  .local p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383913	384200	
==>DE" => 448,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 455 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	42144	42356	
==>don't have targets
    }
    
    DEBUG and print "Queuing up fake-o event: ", pretty(\@copy), "\n";
    unshift @closers, \@copy;
  }
  return @closers;
}

#------------------------------------------------------- <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7532	7629	
==>ch = _match_tagged($textref, $pre, $ldel, $rdel, $omode, $bad, $ignore);

	return _fail(wantarray, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189754	189846	
==>f ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190695	190787	
==>f ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9326	9441	
==>l:
      Carp::croak "\"$new_code\" isn't a valid element name"
        if $new_code =~
          m/[\x00-\x2C\x2F\x <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10590	10705	
==>l:
      Carp::croak "\"$new_code\" isn't a valid element name"
        if $new_code =~
          m/[\x00-\x2C\x2F\x <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	13222	13371	
==>qq{\tgoto END_$seg\n};
		feedme();
		#print CODE "\tgoto SUB_EXIT_$subname\n";
	} elsif ($syms[NEXT] eq "do") {
		feedme();
		$foo=$dos[-1];
		push @{ <==
2	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	2299	2471	
==>r;
use base qw(Lua::opcode);

package ReturnDir;
use base qw(Lua::opcode);

package ParamDir;
use base qw(Lua::opcode);

package LocalDir;
use base qw(Lua::opcode) <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31021	31142	
==>ranchOp( $parser,
        'result' => $lbl_loop,
    );
    push @opcodes, new LabelOp( $parser,
        'arg1' => $lb <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	253	344	
==>e-name> src/jit_cpu.c

=head1 DESCRIPTION

This script creates F<src/jit_cpu.c>. It parses t <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1972	2070	
==>e call gen_label before translating
	# every instruction) to see if we need to instate a stack type <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1371	1469	
==>e call gen_label before translating
	# every instruction) to see if we need to instate a stack type <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3290	3422	
==>($5), $6));

        # make the test print the last line of output
        # XXX This should be "print the last command". Which is ha <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4697	4829	
==>($5), $6));

        # make the test print the last line of output
        # XXX This should be "print the last command". Which is ha <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106357	1106634	
==>mber out of range\");\n    {{\@1}} = interpreter->vtables[typ]->class;\n    {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107333	1107610	
==>mber out of range\");\n    {{\@1}} = interpreter->vtables[typ]->class;\n    {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447811	448053	
==>1}} = - (INTVAL){{\@2}};\n  }\n  else {\n    {{\@1}} = (INTVAL){{\@2}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	22679	22819	
==>p('>', @$is), "\n" )
            : "tag $is<...>.\n";
        }
      }
      
      if(!defined $is) {
        $self->whine($start_line, "De <==
2	/Users/nnunley/parrot/config/auto/isreg.pm	501	618	
==>step
{
    my ($self, $conf) = @_;

    my $test = 0;

    cc_gen('config/auto/isreg/test_c.in');
    eval { cc_build( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6364	6542	
==>uct::Type::PMC"));

      my @identifiers = ();

      my $block = $self->current_block();

      while (1) {
        my $ident = Jako::Construct::Expression::Value::Identifier->n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663707	663929	
==>vtable->delete_keyed(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664479	664701	
==>vtable->delete_keyed(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	59	173	
==>ript to generate the instruction translator from a rules file and a
# stack to register mapping algorithm.

use str <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37047	37165	
==>lf, $meth) = @_;
    $self->implements_vtable($meth);
}

=item C<trans($type)>

Used in C<signature()> to normalize arg <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	8974	9112	
==>ed on the front.
        print {$self->{'output_fh'}} 
            " <a href='#_top'><img alt='^' border=0 src='$self->{RESOURCES_URL}/up.g <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6825	6929	
==>ht  2-9, 1-5, 6-0
t$="1234567890"
print mid$(t$, 2, 8)
print left$(t$, 5)
print right$(t$, 5)
' instr
s1$ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18554	18658	
==>ht  2-9, 1-5, 6-0
t$="1234567890"
print mid$(t$, 2, 8)
print left$(t$, 5)
print right$(t$, 5)
' instr
s1$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21983	22149	
==>p",
                              "ic"
                            ],
                  "BODY" => "#line 356 \"src/ops/core.ops\"\n  if (!{{\@1}}->vtable->get_bool(int <==
2	/Users/nnunley/parrot/Configure.pl	3850	4083	
==>tainer>

Use this option if you want imcc's parser and lexer files to be generated.
Needs a working parser and lexer.

=item C<--miniparrot>

Build parrot assuming only pure ANSI C is available.

=back

=head1 SEE ALSO

F<config/init/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	619225	619313	
==>t_integer(interpreter, left);\n\tINTVAL b = rt == enum_class_Integer ? PMC_int_val(right) <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	1178	1381	
==>rt the tests to a usable form.
##
sub convert_tests {
    print "Converting tests\n";
    my @files = glob( File::Spec->catfile( $DIR, "*.test" ) );
    for my $file (@files) {
        my $test = substr $ <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	7860	7955	
==>atic STRING*
get_nci_S(Interp *interpreter, struct call_state *st, int n)
{
    assert(n < st->s <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26700	26808	
==>inue = new_label($parser);
    my $l_break    = new_label($parser);
    push @opcodes, new LabelOp( $parser <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27585	27693	
==>inue = new_label($parser);
    my $l_break    = new_label($parser);
    push @opcodes, new LabelOp( $parser <==
2	/Users/nnunley/parrot/languages/regex/test.pl	2646	2854	
==>UT:/;

    # Gather input, look for OUTPUT:
    $input = '';
    undef $output;
    while (<SPEC>) {
        $output = '', last if /^OUTPUT:/;
        $input .= $_;
    }
    chomp($input);
    die "EOF during <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9832	9982	
==>thing
Dim A(10)
z=3
c=c+a(z)

' String function, whoa
function a$
	a$="Whoa"
end function
print a$


' Changed ref'd var from 5 to 12
function myfunc(a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584691	584913	
==>= VTABLE_subclass(interpreter, class, NULL);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585766	585988	
==>= VTABLE_subclass(interpreter, class, NULL);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2672	2780	
==>ttributes => { kind => $cond } });
    $handler->start_element({ Name => 'block', Attributes => { kind => 'te <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3436	3544	
==>ttributes => { kind => $cond } });
    $handler->start_element({ Name => 'block', Attributes => { kind => 'te <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	29427	29588	
==>arser,
        'arg1' => $lbl_loop,
    );
    my $lbl_or = new_label($parser);
    my $zero = BuildLiteral( $_[0], 0, 'number' );
    push @opcodes, @{ $zer <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21682	21892	
==>er,
        'result' => $result,
    );
    push @opcodes, new NewOp( $parser,
        'result' => $result,
        'arg1'   => ".Lua" . ucfirst( $type{$op} ),
    );
    push @opcodes, new BinaryOp( $par <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	2067	2164	
==>tion)> or C<output_like($code, $expected, $description)>

Runs the Parrot Assembler code and passe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710640	710749	
==>ython.ops\"\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_pu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711474	711583	
==>ython.ops\"\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_pu <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	56696	56867	
==>ultiple($text,
                   [
                        { Delim => sub { extract_delimited($_[0],q{'"}) } },
                        { Brack => sub { extract_bracketed( <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42797	42921	
==>mespace()
{
	return "Parse::RecDescent::" . $nextnamespace++;
}

sub new ($$)
{
	my $class = ref($_[0]) || $_[0];
	local $Par <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	4292	4400	
==>eate opsfile with valid ops from ops.num
# or from experimental

my $real_ops = Parrot::OpsFile->new( [ ], $n <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	52774	52964	
==>ng. Thus C<extract_multiple> is
a generalized form of Perl's C<split> subroutine.

The subroutine takes up to four optional arguments:

=over 4

=item 1.

A string to be processed (C<$_> if t <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1895	2016	
==>e with version $$self{VERSION}:\n".
			  "Please recompile parser module.";

        ref($class)
    and $class=ref($c <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1829	1946	
==>e with version $$self{VERSION}:\n".
			  "Please recompile parser module.";

        ref($class)
    and $class=ref($c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964758	964925	
==>s",
                              "i"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965766	965933	
==>s",
                              "i"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955910	956156	
==>r, Parrot_encoding_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956722	956968	
==>r, Parrot_encoding_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2142	2298	
==>es index.
inc ${ITEMP0}
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$pir =~ s/\$push_num/$push_num/g;
		$register_num++;
		$push_num++;
	}

	# Return g <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	4000	4122	
==>ument
		    $def_arg_names{$f}{$a} = $i;
		    # print STDERR "def $f($a = $i)\n";
		}
		push @code, [$line, $pc, "ARG_coun <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	4499	4621	
==>ument
		    $def_arg_names{$f}{$a} = $i;
		    # print STDERR "def $f($a = $i)\n";
		}
		push @code, [$line, $pc, "ARG_coun <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	1379	1497	
==>e E<lt>libnameE<gt>.c and
pmc_E<lt>libnameE<gt>.h. The initialization function will be named
after libname and will ini <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	1420	1615	
==>YExpect)
				    ." got `".$parser->YYCurtok."', rest=".join(" ", @$types)."\nfrom ".join(" ", @$vals)."\n";
			    },
#			    yydebug => 0x1f,
			    yydebug => 0,
                           );
} <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	1440	1535	
==>ent describe_file() - it shouldn't both `cat` and dispatch
on file suffix.

=item * Finish makin <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1749	1849	
==>(expected %d, got %d) in call to '%s'.",
    scalar(@formal_args), scalar(@args), $name)
    unless @ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1449	1549	
==>(expected %d, got %d) in call to '%s'.",
    scalar(@formal_args), scalar(@args), $name)
    unless @ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18472	18595	
==>type[NEXT] ne "BARE") {
		push @{$code{$seg}->{code}}, <<RETURN1;
	JUMPLABEL= ""
	ret
RETURN1
	} else {
		feedme();   # Spec <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1661	1773	
==>t) = @_;

    return "cur_opcode + $offset";
}

=item C<expr_pop()>

Returns the C code for C<POP()>. Called by C <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33823	33981	
==>an't assimilate following ", $paras->[0][0], "\n";
              push @$para, '';  # Just so it's not contentless
            }
          }


        } elsif($ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35636	35790	
==>an't assimilate following ", $paras->[0][0], "\n";
              push @$para, '';  # Just so it's not contentless
            }
          }

        } else <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	6529	6668	
==>t .= "    \@_ ? ($pre\$r->$elem$sel = shift$pst) : $pre\$r->$elem$sel$pst;\n";
            $out .= "  }\n";
        }
    }
    $out .= "}\n <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9838	9932	
==>f $self->{autoscore};
		next unless $prod->checkleftmost();
		$code .= $prod->code($namespace,$ <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4319	4456	
==>s ] )
          or die "partial link of $group failed ($?)\n";
    }

    # Link non-grouped PMCs individually
    my @ungrouped_pmcs = gr <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4423	4560	
==>s ] )
          or die "partial link of $group failed ($?)\n";
    }

    # Link non-grouped PMCs individually
    my @ungrouped_pmcs = gr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1006413	1007033	
==>=> "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1123,
                  "ARGS" => [
                              "i",
                              "i",
                              "sc",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1008	1113	
==>->right->compile($compiler);
    $compiler->emit("  $test $left $op $right goto ${prefix}_LAST");

    $co <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	1598	1850	
==>nt "$2 " if $conf->options->get('verbose');
                $prefix = ($4 || '');
                $subst  = ($6 || '');
                $in_def = $1;
                $last_val = -1;
                %values   = ();
                open INC, ">$inc.tmp" o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822753	823257	
==>back",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 932,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 120 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entr <==
2	/Users/nnunley/parrot/languages/converter.pl	36	132	
==>l - convert BNF grammar to a Parse::RecDescent grammar

=head1 DESCRIPTION

An early attempt at P <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	20525	20658	
==>= (! $dont_ignore) || 0;
      $para->[1]{'~resolve'}  = $to_resolve || 0;

      DEBUG > 1 and print " Making note to ", $dont_ignore <==
2	/Users/nnunley/parrot/config/inter/progs.pm	2650	2869	
==>eive?", $ccflags)
        if $ask;
    $conf->data->set(ccflags => $ccflags);

    $linkflags = $conf->data->get('linkflags');
    $linkflags =~ s/-libpath:\S+//g; # XXX No idea why.
    $linkflags = integrate($linkflags <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	265	356	
==>Digest::MD5 qw<md5_hex>;
use HTML::Template;
use Algorithm::TokenBucket;
use Time::Piece;
us <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	2231	2386	
==>the possible targets of ret
    # opcodes
    while ($offset + sizeof('op') <= $length) {
	my ($src, $is_branch);

        $pc       = $new_pc;
	$op_code  = <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	2808	2970	
==>sif ( $index_html !~ /<DIV CLASS="pod">[^<]*<[Hh]/o )
    {
        # If there is no heading or text then we have to bump it down a bit.
        $index_html = "<BR <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	20566	20731	
==>{'~resolve'}  = $to_resolve || 0;

      DEBUG > 1 and print " Making note to ", $dont_ignore ? 'not ' : '',
        "ignore contents of this region\n";
      DEBUG > <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	15315	15455	
==>y =~ s/\$(\d+)/{{\@$1}}/mg;

        my $file_escaped = $file;
        $file_escaped =~ s|(\\)|$1$1|g; # escape backslashes
        $op->body <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	53729	54045	
==>);
        }
	],
	[#Rule 63
		 'exp', 3,
sub
#line 361 "Lua\lua51.yp"
{
            BuildBinop( $_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 64
		 'exp', 3,
sub
#line 365 "Lua\lua51.yp"
{
            BuildBinop( $_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 65
		 'exp', 3,
sub
#lin <==
2	/Users/nnunley/parrot/lib/Test/More.pm	25379	25505	
==>ip off newline so carp() will put in line/file

        _carp sprintf $msg, scalar @_;

	return $Test->ok(0);
    }

    my($th <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	16192	16467	
==>] or goto fail
#                push $counter
#                goto next
#          fail: $counter++
#                if $counter >= @R goto lastback
#                goto try
#          back: pop $counter
#                goto R[].back
#          next:
#
# The code below doe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1907	2121	
==>/core.ops\"\n  {{=0}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "noop",
                  "FLAGS" => ":base <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	14509	14633	
==>ters and expect things to magically align.  Instead
        # of trying to: (int*)&something_not_int, one HAS to use temporar <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2633	2766	
==>namic_linking  => 1,
            parrot_is_shared     => 1,

            sym_export => '__declspec(dllexport)',
            sym_import <==
2	/Users/nnunley/parrot/config/init/hints/cygwin.pm	1163	1281	
==>namic_linking => 1,
        parrot_is_shared    => 1,
        sym_export => '__declspec(dllexport)',
        sym_import <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629658	629848	
==>"Class '%Ss' not found\", class);\n  {{\@1}} = pmc_new(interpreter, type);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	6615	6760	
==>2

    if op1 == 0 goto nothing
    if op1 <  0 goto neg
pos:
    unless op1 goto done
    # shift off the beginning and push onto the end.
    $P <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	532	624	
==>, and
coordinating one or more Configuration steps.  Please see
F<docs/configuration.pod> for <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17746	17841	
==>'', 'set',[$list,$list.'[1]']);
  $self->_add_inst ('', 'branch',["NEXT_$label"]);
  # XXX Use e <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	3612	3826	
==>( $type eq 'key' ) {
            push @opcodes, new ConstDir( $parser,
                'prolog' => 1,
                'result' => $defn,
                'arg1'   => $value,
                'type'   => 'LuaStrin <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	12459	12628	
==>> 
    Note: Timezone is UTC.<br />
  </p>

  <table>
    <tmpl_loop name=branches>
      <tr><th colspan="11" class="indent0"><tmpl_var name=name></th></tr>
      <tmpl_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924359	924450	
==>DY" => "#line 342 \"src/ops/string.ops\"\n  {{\@1}} = string_make_empty(interpreter, enum_st <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925150	925241	
==>DY" => "#line 342 \"src/ops/string.ops\"\n  {{\@1}} = string_make_empty(interpreter, enum_st <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	710	815	
==>'lib/Parrot/OpsFile.pm', 'lib/Parrot/Op.pm',
			    'lib/Parrot/OpLib',
			    'lib/Parrot/OpTrans.pm', 'l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760463	760663	
==>RGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 286 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}}->vtable->ge <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676003	676094	
==>=> "#line 473 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_integer(interpreter, {{\@1}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676783	676874	
==>=> "#line 473 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_integer(interpreter, {{\@1}} <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1551	1657	
==>ck_depth
.local pmc prop_type_state, prop_stack_depth, lazy_moves
stack_depth = -1
prop_type_state = new Ha <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	3165	3372	
==>et  { return shift->is('open-bracket');  }
sub is_open_paren    { return shift->is('open-paren');    }
sub is_redo          { return shift->is('redo');          }
sub is_return        { return shift->is('retu <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	62625	62735	
==>entifier.

=item C<Did not find expected opening bracket at %s>

C<extract_codeblock> failed to find any of the <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	20752	20848	
==>::Builder does some extra diagnostics when the test
ends.  It also changes the exit code as descr <==
2	/Users/nnunley/parrot/config/init/hints/hpux.pm	23	231	
==>he Perl Foundation.
# $Id: /parrot/config/init/hints/hpux.pm 19593 2006-05-30T02:28:15.110975Z coke  $

package init::hints::hpux;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    my $libs = $conf- <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	14553	14818	
==>yS
#                push 0
#                goto next
#          tryS: S or tryT
#                push 1
#                goto next
#          tryT: T or lastback
#                push 2
#                goto next
#          back: popint -> I0
#                eq I0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	372408	372682	
==>st s = &{{\@1}};\n\n  *s = NULL;\n  PIO_peek(interpreter, PIO_STDIN(interpreter), s);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
2	/Users/nnunley/parrot/config/inter/types.pm	489	608	
==>es Parrot should use';

@args = qw(ask intval opcode floatval);

sub runstep
{
    my ($self, $conf) = @_;

    my $intv <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	1324	1432	
==>,1) eq '-' && $line == 0)
	{
		_die("Usage: perl -MLocalTest - <grammarfile> <classname>")
			unless @ARGV == <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2898	2993	
==>lf->content;
  $handler->end_element({ Name => 'block' });

  $handler->end_element({ Name => $s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2780	2875	
==>lf->content;
  $handler->end_element({ Name => 'block' });

  $handler->end_element({ Name => $s <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	43077	43184	
==>OACTION" => undef,
		"_AUTOTREE"   => undef,
	};
	if ($::RD_AUTOACTION)
	{
		my $sourcecode = $::RD_AUTOACTI <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	13663	13797	
==>b unicode:"dyadic:\u2374" :multi (APLVector,Float) # reshape
    .param pmc op1
    .param pmc op2

    # Convert the scalar into a vec <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	69804	70058	
==>dstartcode($$)
{
	my ($self, $code) = @_;
	$code =~ s/\A\s*\{(.*)\}\Z/$1/s;

	$self->{"startcode"} .= "$code;\n";
}

# CHECK FOR GRAMMAR PROBLEMS....

sub _check_insatiable($$$$)
{
	my ($subrule,$repspec,$grammar,$line) = @_;
	pos($grammar)=pos($_[2]);
	r <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	2749	2965	
==>($self) = @_;

    my $rxlocals = ($self->{rxlocals} ||= []);
    return (aop(comment => [ "save rxlocals" ]),
            map { aop('pushint' => [ $_, "rxlocal $_" ]) }
                @$rxlocals);
}

sub rule_restor <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	66000	66119	
==>me);
						_check_insatiable($name,"$1..",$grammar,$line) if $::RD_CHECK;
					}
				}
				elsif ($grammar =~ m/$ATMOST/ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	36022	36208	
==>UG > 3 and
         print "  Peering at L content for a '|' ...\n";
      for(my $j = 0; $j < @ell_content; ++$j) {
        next if ref $ell_content[$j];
        DEBUG > 3 and
         pr <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5898	5989	
==>Gordon C<brent@brentdax.com>.

=head1 AUTHOR

Joshua Hoblitt C<jhoblitt@cpan.org>

=head1 SE <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6747	6838	
==>Gordon C<brent@brentdax.com>.

=head1 AUTHOR

Joshua Hoblitt C<jhoblitt@cpan.org>

=head1 SE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	817448	817646	
==>[],
                  "TYPE" => "inline",
                  "CODE" => 925,
                  "ARGS" => [],
                  "BODY" => "#line 610 \"src/ops/set.ops\"\n  Parrot_clear_p(interpreter);\n <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	942	1130	
==>{_G},
            'arg1'   => '_G',
        );
    }
    return [ $parser->YYData->{_G}, \@opcodes ];
}

sub get_cond {
    my ( $parser, $expr )    = @_;
    my ( $defn,   $opcode <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	5949	6040	
==>n shift->require('open-brace');    }
sub require_open_bracket  { return shift->require('open <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10839	10998	
==>URIC}:
PIR

    $pir .= _do_lazy_moves('_${CURIC}');

    $pir .= <<'PIR';
# If there is a return type, need to supply a ${DEST0}.
${ITEMP0} = ${PTEMP1}["type"] <==
2	/Users/nnunley/parrot/config/auto/snprintf.pm	718	847	
==>s =~ /snprintf/) {
        $conf->data->set(HAS_SNPRINTF => 1);
    }
    if ($res =~ /^C99 snprintf/) {
        $conf->data->set( <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3985	4086	
==>ot go into release tarballs
^debian$
^debian/
END_HEADER

find(\&wanted, '.');

my $svnignore = `svn p <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2248	2503	
==>st;
            s/^\\n//
                and $str .= "\n",      # new line
                last;
            s/^\\r//
                and $str .= "\r",      # carriage return
                last;
            s/^\\t//
                and $str .= "\ <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3762	4017	
==>st;
            s/^\\n//
                and $str .= "\n",      # new line
                last;
            s/^\\r//
                and $str .= "\r",      # carriage return
                last;
            s/^\\t//
                and $str .= "\ <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	1506	1602	
==>e Parrot core opcode library.

=item C<--no-lines>

Do not generate C<#line> directives in the ge <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	19742	19905	
==>all_files;
}

=head2 gen_def( [$dir1, $dir2], \%pmc )

Generate a .def file for symbols to export for dynamic PMCs.
Currently unused, but retained for being a basis <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	693	786	
==>} = (1) x @writes;
}
use Text::Balanced 'extract_bracketed';

=item C<does_write($method, $sec <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	407	517	
==>, $output, $desc) = @_;
  
    my $count = $self->{builder}->current_test + 1;

    my $lang_f    = Parrot::Tes <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	445	555	
==>, $output, $desc) = @_;
  
    my $count = $self->{builder}->current_test + 1;

    my $lang_f    = Parrot::Tes <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16442	16561	
==>vwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
            return $x;
        }
    }

    foreach m <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9985	10089	
==>vwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
      return $x;
    }
  }
  foreach m <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	22298	22422	
==>USER"
	P5= P6		# Remember where we were...
	P4= P6["storage"]
	P6= P4["$_->[0]"]
	bsr COPY_$_->[1]
	P2["storage"]= P1
	P6= P5 <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1905	2011	
==>qw/ languages perl6 p6shell.pir /,
);


sub import {
    my($class, $plan, @args) = @_;
    $b->plan( $plan <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	46665	46795	
==>[3] );
        }
	],
	[#Rule 10
		 'stat', 1,
sub
#line 92 "Lua\lua51.yp"
{
            BuildVoidFunctionCall( $_[0], $_[1] <==
2	/Users/nnunley/parrot/config/init/manifest.pm	853	971	
==>ing here.  Please try to find the above
files and then try running Configure again.

END

        return;
    }

    re <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	5160	5275	
==>r($options{libdir}, 'pkgconfig', $dest);
    } else {
        $dest =~ s/^runtime/lib/;
        $dest = File::Spec-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	839465	839588	
==>EXT(interpreter->ctx)->user_stack, &({{\@1}}),\n                  STACK_ENTRY_STRING);\n  {{+=2}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	200	322	
==>eturn bless ['text', @_], ref($class) || $class;
}

# Purely accessors:

sub text { (@_ == 2) ? ($_[0][1] = $_[1]) : $_[0][ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	11173	11335	
==>[][&`'+*./|,";%=~:?!\@<>()-]|\^[a-z]?)}gci)
	{
	    unless ($$textref =~ m/\G((\$#?|[*\@\%]|\\&)+)/gc)
	    {
		_failmsg "Did not find leading dereferencer", pos $ <==
2	/Users/nnunley/parrot/config/auto/m4.pm	472	628	
==>rrot::Configure::Step ':auto', 'capture_output';

$description = 'Determining whether GNU m4 is installed';

@args = qw();

sub runstep
{
    my ($self, $con <==
2	/Users/nnunley/parrot/config/auto/bc.pm	498	599	
==>rrot::Configure::Step ':auto', 'capture_output';

$description = 'Determining whether GNU bc is instal <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	17132	17232	
==>new();
}

sub additem
{
	my ( $self, $item ) = @_;
	$item->sethashname($self);
	push @{$self->{"items <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	22099	22219	
==>oshortplanks.com>

=cut

sub diag {
    my($self, @msgs) = @_;
    return unless @msgs;

    # Prevent printing headers w <==
2	/Users/nnunley/parrot/config/auto/memalign.pm	1353	1487	
==>uild(); };
    unless ($@ || cc_run_capture() !~ /ok/) {
        $test = 1;
    }
    cc_clean();

    my $test2 = 0;

    cc_gen('conf <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1604	1735	
==>",
 'L=man' => '{\cs24\i'."\n",
 '/L' => '}',

 'Data'  => "\n",
 '/Data' => "\n",

 'Verbatim'  => "\n{\\pard\\li#rtfindent##rtfkee <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	24922	25050	
==>.read_tfield()\n    next_pc += 4\n";
			$arg_name = "I_ARG_$arg_num";
		}

        # tmethod
		elsif (/^tmethod$/) {
			$out =  " <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49903	50005	
==>ead,$line,"<perl_quotelike>");
				$prod and $prod->additem($item)
				      or  _no_rule("<perl_quotel <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9699	9840	
==>fix = $last_token->text;
      }

      $self->require_open_paren;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->r <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	458	569	
==>XT => 'CONT', REDO => 'REDO', LAST => 'LAST' },
  'if'       => { PREFIX => "_I", NEXT => 'TEST', REDO => 'THEN' <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	479	590	
==>XT => 'CONT', REDO => 'REDO', LAST => 'LAST' },
  'if'       => { PREFIX => "_I", NEXT => 'TEST', REDO => 'THEN' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397958	398268	
==>DE" => 461,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\ <==
2	/Users/nnunley/parrot/tools/dev/manicheck.pl	1010	1101	
==>ead();
my $file_list = ExtUtils::Manifest::manifind();
my @missing   = ExtUtils::Manifest::m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9152	9366	
==>g_free(label);\n    interpreter->resume_flag = 2;\n    {{=0}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10268	10482	
==>g_free(label);\n    interpreter->resume_flag = 2;\n    {{=0}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	969651	969962	
==>"CODE" => 1090,
                  "ARGS" => [
                              "i",
                              "ic",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cc <==
2	/Users/nnunley/parrot/config/inter/make.pm	598	748	
==>y like 'gmake' or 'make'?";
@args        = qw( make ask );

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose') <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3286	3411	
==>, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    while (my ($group, $pmcs) = each %$group_files) {
        my @pmcf <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3390	3515	
==>, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    while (my ($group, $pmcs) = each %$group_files) {
        my @pmcf <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	836	955	
==>less {
    BLOCK => $block,
    LEFT  => $left,
    RIGHT => $right
  }, $class;

  $block->push_content($self);

  retu <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	844	963	
==>less {
    BLOCK => $block,
    LEFT  => $left,
    RIGHT => $right
  }, $class;

  $block->push_content($self);

  retu <==
2	/Users/nnunley/parrot/lib/Test/More.pm	22043	22182	
==>ts normally, but print out special flags indicating
they are "todo".  Test::Harness will interpret failures as being ok.
Should anything suc <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	410	516	
==>by all configuration steps.

=head1 USAGE

=head2 Import Parameters

This module accepts no arguments to it <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	40980	41115	
==>t well be just one string scalar)
      $self->{'content_seen'} ||= 1;
      $self->_traverse_treelet_bit(@$para);
    }
  }
  
  return <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	7186	7337	
==>:
    return cur_opcode;
}
    return(0);
}
END_C

    return 0;
}


#
# compile_file()
#

sub compile_file {
    my ($file_name) = @_;

    my $pf = Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807909	808174	
==>->get_number_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808814	809079	
==>->get_number_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	6015	6147	
==>ion.pod>, L<Parrot::Configure::Data>,
L<Parrot::Configure::Step>, L<Parrot::Configure::Step::Base>

=cut

# vim: expandtab shiftwidth <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093641	1093783	
==>ntal.ops\"\n  VTABLE_morph(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094444	1094586	
==>ntal.ops\"\n  VTABLE_morph(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	25280	25394	
==>imited text sequences from strings.


=head1 SYNOPSIS

 use Text::Balanced qw (
			extract_delimited
			extract_bra <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	262	428	
==>HEADING;
NAME                                              DONE      TOTAL     PERCENT
HEADING
foreach (@results) {
	print $_->{'name'} . (' ' x (50 - length($_->{ <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	3064	3222	
==>ce Methods

=over 4

=item C<code()>

Returns the op code.

=cut

sub code
{
    my $self = shift;

    return $self->{CODE};
}

=item C<type()>

The type of t <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	7372	7472	
==>s;
    if (needs_build("$group$LOAD_EXT", @sources)) {
        run(partial_link_cmd("$group$LOAD_EXT" <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7583	7683	
==>s;
    if (needs_build("$group$LOAD_EXT", @sources)) {
        run(partial_link_cmd("$group$LOAD_EXT" <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	2662	2889	
==>d
written to a file in C<$target> and an HTML link is created to it.

Alternatively, if a file responds true to C<is_docs_link()> then an HTML
link is created to the file itself.

Some HTML-formatted text describing the files li <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	3916	4038	
==>h} } = @regexes ? @regexes : '[\d\D]';
}
if ( ! @{ $cfg{skip_bench} } ) {
    my @regexes = grep defined, $ini->val( regexe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	922853	923054	
==>r, {{\@1}},\n        Parrot_psprintf(interpreter, {{\@2}}->vtable->get_string(interpreter, {{\@2}}), {{\@3}})\n    );\n    {{+=4}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	23562	23677	
==>rr_open->[-1][1]{'target'} because of =end $content\n";
      pop @$curr_open;

      next;
      
    } elsif($para <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	15595	15743	
==>00000 goto TYPED_EH_FOUND_"
    tmp = handler_offset
    gen_pir = concat tmp
    gen_pir = concat "\nthrow $P1000000\nTYPED_EH_FOUND_"
    gen_pir = <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	59430	59599	
==>0], [] );
        }
	],
	[#Rule 106
		 'fieldlist', 2, undef
	],
	[#Rule 107
		 'fieldlist', 1, undef
	],
	[#Rule 108
		 '_field_plus', 3,
sub
#line 580 "Lua\ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4020	4141	
==>$_})
		or	croak("Missing mandatory parameter '".lc($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3818	3930	
==>$_})
		or	croak("Missing mandatory parameter '".lc($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _ <==
2	/Users/nnunley/parrot/config/init/hints/freebsd.pm	2	117	
==>Copyright (C) 2005, The Perl Foundation.
# $Id: /parrot/config/init/hints/freebsd.pm 19593 2006-05-30T02:28:15.11097 <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6869	6981	
==>eturn $pirCode;
}

sub _generate_glob_for {
    my($target, $pattern, $captures) = @_;
    $target = _parrot_stri <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	39716	39827	
==>extract_tagged($text, '/para', '/endpara', undef,
				{reject => '/para', fail => MAX );

	# EXTRACTED: "/para l <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	40030	40140	
==>extract_tagged($text, '/para', '/endpara', undef,
			{reject => '/para', fail => MAX );

	# EXTRACTED: "/para l <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2536	2638	
==>tart_element({ Name => 'op', Attributes => { kind => 'infix', name => $self->op } });
    $self->left-> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2413	2515	
==>tart_element({ Name => 'op', Attributes => { kind => 'infix', name => $self->op } });
    $self->left-> <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	13433	13644	
==>sult,
                );
                return [ $result, \@opcodes, $assign ];
            }
        }
    }
}

sub BuildAssigns {
    my ( $parser, $vars, $exprs ) = @_;
    my @opcodes1 = ();
    m <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	1747	1994	
==>tring Arrays, expect "One"
dim g$()
g$(5)="One"
g$(6)="Two"
print g$(5)

' Evil BASIC bug, expect 55
dim B(1), z(1)
Z(54,6)=54
B(54)=1
Z1= 54
Z(Z1,6)= 54
B(Z(Z1,6))= 55
print B(Z(Z1,6))


' Comparison operator tests
if 4<5 then print "Ok" else prin <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4021	4197	
==>bel_use($failLabel);
    if ($needed eq "1") {
        return "ge <rx_pos>, $lenvar, $fail # need $needed more chars";
    } elsif ($needed eq "0") {
        return ();
    } el <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514035	514173	
==>n"
                            ],
                  "BODY" => "#line 708 \"src/ops/math.ops\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514915	515053	
==>n"
                            ],
                  "BODY" => "#line 708 \"src/ops/math.ops\"\n   {{\@1}} = pow((FLOATVAL){{\@2}}, (FLOATVA <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32679	32806	
==>te that it has no obligations.
        if ($rule->{'typeinfo'}) {
		    $pir .= "### typeinfo\n";
		    $pir .= sub_meta($rule-> <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	12849	13032	
==>"  Didn't look titular ($head1_text_content).\n",
            "\n  Dropping back to seeking-head1-content mode...\n";
        }
      }
    }
    
    elsif($state == 2) {
      # seek <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	965	1153	
==>ON_LABEL_' . ++$self->{ANON_LBL_COUNT};
}


#
# invert_relop()
#

my %inverted_ops = (
  '==' => '!=',
  '!=' => '==',
  '<=' => '>',
  '<'  => '>=',
  '>=' => '<',
  '>'  => '<='
);

sub i <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	13733	13991	
==>content_containers{ $token->tagname } ) {
        DEBUG and print "  Found end of Para.  Considering content: ",
          $para_text_content, "\n";

        if( $para_text_content =~ m/\S/
          and ($max_content_length
           ? (length($para_text_co <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3447	3607	
==>}

sub YYLexer {
    my($self)=shift;

	$$self{LEX};
}


#################
# Private stuff #
#################


sub _CheckParams {
	my($mandatory <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3274	3419	
==>}

sub YYLexer {
    my($self)=shift;

	$$self{LEX};
}


#################
# Private stuff #
#################


sub _CheckParams {
	my($mandatory <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	91	180	
==>.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Section::Lan <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7614	7788	
==>glob_compile(pattern)
            match = rulesub(target)
            unless match goto match_fail
          match_success:
            print "matched"
            goto match_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2741	2908	
==>ast;

            s/^\\//
                and $parser->Error("Invalid escape sequence $_ .\n"),
                last;
        }
    }

    $parser->Error("Unter <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4256	4423	
==>ast;

            s/^\\//
                and $parser->Error("Invalid escape sequence $_ .\n"),
                last;
        }
    }

    $parser->Error("Unter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044550	1044751	
==>,
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interpreter, { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045444	1045645	
==>,
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interpreter, { <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	2416	2546	
==>::Token->new(
        $file, $line, 'sub', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^(var|const)(?!\w)(. <==
2	/Users/nnunley/parrot/config/init/hints/aix.pm	35	123	
==>dation.
# $Id: /parrot/config/init/hints/aix.pm 19593 2006-05-30T02:28:15.110975Z coke  $ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	42679	42808	
==>>{instruction};
  my @max_len = __max_lengths($colref);

  $self->{code} = '';

  for my $row(@$colref) {
    my $label;
    $labe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400228	400428	
==>",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{ <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3839	3961	
==>cs);

    # lib-GROUP.c
    for my $group (keys %$group_files) {
        compile("$group", "lib-$group")
          or die " <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3943	4065	
==>cs);

    # lib-GROUP.c
    for my $group (keys %$group_files) {
        compile("$group", "lib-$group")
          or die " <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2321	2442	
==>::Test::write_code_to_file( $code, $lang_fn );

        # STDERR is written into same output file
        my $exit_code <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1841	1959	
==>::Test::write_code_to_file( $code, $lang_fn );

        # STDERR is written into same output file
        my $exit_code <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832124	832212	
==>NTEXT(interpreter->ctx)->user_stack, &({{\@1}}), STACK_ENTRY_FLOAT, STACK_CLEANUP_NULL);\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832852	832940	
==>NTEXT(interpreter->ctx)->user_stack, &({{\@1}}), STACK_ENTRY_FLOAT, STACK_CLEANUP_NULL);\ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1444	1551	
==>efined block!")
    unless defined $block;

  $self->INTERNAL_ERROR("Undefined type!")
    unless defined $t <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1292	1399	
==>efined block!")
    unless defined $block;

  $self->INTERNAL_ERROR("Undefined type!")
    unless defined $t <==
2	/Users/nnunley/parrot/config/gen/icu.pm	4574	4731	
==>e icu headers... good!\n" if $verbose;
    } else {
        print "Adding -I $icuheaders to ccflags for icu headers.\n" if $verbose;
        $conf->data->add( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1578	1757	
==>b name      { return shift->{NAME};      }
sub props     { return %{shift->{PROPS}};  }
sub args      { return @{shift->{ARGS}};   }


#
# compile()
#

sub compile
{
  my $self = s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041507	1041934	
==>obal",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1164,
                  "ARGS" => [
                              "sc",
                              "sc",
                              "p <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	133	300	
==>@_;
    my $idf = 'tmp_' . $parser->YYData->{idx_tmp}++;
    return new defn( $idf, 'tmp', $type, $subtype );
}

sub new_label {
    my ($parser) = @_;
    my $i <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	403	521	
==>6rule_isnt('abc', '^bc', 'BOS bc');
  p6rule_like('abcdef', 'bcd', qr/0: <bcd @ 1>/, '$0 capture');

=head1 DESCRIPTION <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1839	1969	
==>nts.  Most applications
can just use the normal stringification of objects of this class;
they stringify to just the text content o <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12669	12937	
==>=~ /\AParse::RecDescent::Error/
	    && $items[0]->{commitonly} )
	{
		Parse::RecDescent::_warn(2,"Lone <error?> in production treated
					    as <error?> <reject>");
		Parse::RecDescent::_hint("A production consisting of a single
					  conditional <error?> directive <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	23347	23495	
==>node between %s and %s\n",
           $dynasty[-1], $treelet->[0], $treelet->[$i][0], 
          ;
          
          #$nugget = ;
          splice <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22058	22219	
==>E</head1><Para>(X|</?[BCIFLS]>)+</Para>$}s
    ) {
      # Whee, it fits the pattern
      DEBUG and print "Seems to match =head1 NAME pattern.\n";
      $title = <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11052	11155	
==>stuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/sprintf('%%%02X',ord($1))/eg;
        # Yes, stipulate th <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4401	4503	
==>stuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/sprintf('%%%02X',ord($1))/eg;
       # Yes, stipulate th <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1027998	1028098	
==>"#line 295 \"src/ops/sys.ops\"\n  opcode_t *next = {{^+2}};\n  if ({{\@1}} < 0) {\n      real_excepti <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028849	1028949	
==>"#line 295 \"src/ops/sys.ops\"\n  opcode_t *next = {{^+2}};\n  if ({{\@1}} < 0) {\n      real_excepti <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	404	551	
==>&extract_variable
				&extract_tagged
				&extract_multiple

				&gen_delimited_pat
				&gen_extract_tagged

				&delimited_pat
			       ) ] );

Ex <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1973	2170	
==>$N1 = $N1 / $N2;              # div    N1, N1, N2
$N2 = 1000000.0;              # set    N2, 1000000.0
$N1 = $N1 / $N2;              # div    N1, N1, N2
                              #
print "M op/s <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1973	2170	
==>$N1 = $N1 / $N2;              # div    N1, N1, N2
$N2 = 1000000.0;              # set    N2, 1000000.0
$N1 = $N1 / $N2;              # div    N1, N1, N2
                              #
print "M op/s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670577	670689	
==>],
                  "BODY" => "#line 415 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->push_string(interpreter, {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671350	671462	
==>],
                  "BODY" => "#line 415 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->push_string(interpreter, {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	1481	1655	
==>);
}

=item C<read()>

This reads the contents of the file and returns it as an array or string
depending on the context in which the method is called.

    $contents = $file- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031624	1031980	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sizeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109728	110018	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":bas <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110507	110797	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":bas <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835299	835532	
==>"JUMP" => 0,
                  "NAME" => "savec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836051	836284	
==>"JUMP" => 0,
                  "NAME" => "savec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline", <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	9024	9289	
==>the translator initialization code.
# ############################################
sub generate_initial_pir($$$) {
    my $srm = shift;
	my $rules = shift;
	my $mv = shift;

	# Get number of locals we need for ${STACKn} and ${DESTm} and set up
	# their meta-variable <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	4311	4513	
==>rg_type
{
    my $self = shift;

    return $self->{ARGS}[shift];
}

=item C<arg_dirs()>

Returns the directions of the op's arguments.

=cut

sub arg_dirs
{
    my $self = shift;

    return @{$self->{A <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10351	10516	
==>scope}->{$symbol}) {
    die "define: $symbol is already defined\n";
  }
  else {
    $self->{scope}->{$symbol} = '*unknown*';
  }

  $value = $self->_generate($lambd <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	10828	10948	
==>d $return;'.($::RD_NO_TRACE?'':'
	if (defined $::RD_TRACE)
	{
		Parse::RecDescent::_trace(q{>>Matched rule<< (return valu <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3564	3788	
==>x([a-fA-F0-9]{1,10})$/s ? hex($1)
                                      # yes, tolerate hex!
    : ($ENV{'RTFDEFLANG'} || '') =~ m/^([a-fA-F0-9]{4})$/s ? hex($1)
                                      # yes, tolerate even more <==
2	/Users/nnunley/parrot/lib/Test/More.pm	23865	24008	
==>?

B<If it's something the user might not be able to do>, use SKIP.
This includes optional modules that aren't installed, running under
an OS th <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	7580	7722	
==>e     time.h
asin        math.h
asinf       math.h
asinh       math.h
asinhf      math.h
asinhl      math.h
asinl       math.h
atan        math <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	14026	14160	
==>ze}}/mg;

        $branch   ||= $body =~ s/\bgoto\s+OFFSET\((.*?)\)/{{+=$1}}/mg;
                      $body =~ s/\bgoto\s+NEXT\(\)/{{+ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	2295	2520	
==>File::Spec->rel2abs( $f_code );

    return( $next_test_num, $f_out, $f_code );
}


sub _generate_functions {
    my( $package ) = @_;

    for my $func ( keys %$test_map ) {
        no strict 'refs';

        *{ $package . ': <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	6732	6919	
==>>
                 <th></th><th>Lines</th><th>Branches</th><th>Calls</th>
                 </tr>
                 <tr>
                 <td>Totals:</td>
                 <td>$totals{covere <==
2	/Users/nnunley/parrot/config/gen/PodText.pm	3	127	
==>opyright (C) 2001-2004, The Perl Foundation.
# $Id: /mirror/trunk/config/gen/cpu.pm 10933 2006-01-06T01:43:24.870411Z particl <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9676	9762	
==>return 1;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	71	292	
==>71662Z petdance  $

=head1 NAME

tools/build/c2str.pl - constant string support

=cut 

use lib 'lib';
use Text::Balanced qw(extract_delimited);
use Math::BigInt;
use Getopt::Long;
use strict;

my $outfile = 'all_cstring.s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32079	32229	
==>s.
            $para->[1]{'number'} = $expected_value;
            $self->whine(
              $para->[1]{'start_line'},
              "Expected '=item <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32488	32638	
==>s.
            $para->[1]{'number'} = $expected_value;
            $self->whine(
              $para->[1]{'start_line'},
              "Expected '=item <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	410456	410789	
==>P" => 0,
                  "NAME" => "send",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411348	411681	
==>P" => 0,
                  "NAME" => "send",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	235222	235673	
==>:base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 274,
                  "ARGS" => [
                              "i",
                              "n",
                              "nc"
                            ],
                  "BOD <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	1445	1558	
==>age, $code, $expected, $description)> 

Runs a langugage test and passes the test
if the  output matches the expec <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	5049	5288	
==>bjectname|o' => \$ObjectName,
		   't'            => \$Type,
		   'bsd|B'        => \$BSD,
		   'long|L'       => \$Long,
		   'type:s'       => \$Type,
		   'help|h'       => \$Help,
		   'version|v'    => \$Version,
		  )) {
    show_help <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	46180	46281	
==>) and !ref($p->[$i + 1]) ) {
      DEBUG > 5 and print "_verbatim_format merges {$p->[$i]} and {$p->[$ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1892	2030	
==>routine.")
    unless (defined $sub_block);

  my $sub_name = $sub_block->name;

  my $return_type = $sub_block->type;

  my $anon;

  if ( <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	5329	5521	
==>s/is used at the output filehandle in eval'ed scripts
            # e.g. feature.pl or feature_h.in 
            local *OUT = $out;
            my $text = do {local $/; <$in>};
            # in <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	39853	40014	
==>se instead, that if no matching "/endpara" tag is found, the "/para"
tag refers only to the immediately following paragraph:

	$text = "/para line 1\n\nline 3\n/p <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	118	235	
==>is file is generated by F<config/gen/config_pm.pm> from
F<config/gen/config_pm/Config_pm.in>. It contains the C<%PConf <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	1440	1562	
==>E:
foreach my $file (@files) {
    $file =~ s/^\.\///g;
    if (!open(F, "<$file")) {
        error($file, 0, "Unable to op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759621	759881	
==>" => "inline",
                  "CODE" => 857,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 281 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	21108	21317	
==>E
		foreach(@types) {
			my %val=( INT => 0, FLO => '0.0', STRING => '""' );
			if ($_->[2] ne "USER") {
				print CODE<<NOTUSER;
	new P1, .PerlHash
	P1["name"]= '$_->[0]'
	P1["type"]= '$_->[2]'
	P1["value"]= $ <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	3271	3366	
==>ss tree.

=item C<noinit>

Used with C<abstract>: No C<class_init> code is generated.

=item C<c <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	4788	4924	
==>->emit("  __result = __func(" . join(", ", map({ $_->[1]} $self->args)) . ")");
      $compiler->emit("  .return(__result)");
    }
    e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653541	653654	
==>NOT_FOUND,\n            \"Method '%s' not found\", string_to_cstring(interpreter, {{\@3}}));\n    {{=resume}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654702	654815	
==>NOT_FOUND,\n            \"Method '%s' not found\", string_to_cstring(interpreter, {{\@3}}));\n    {{=resume}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10719	10852	
==>->unicode_escape_url($section);
        # Turn char 1234 into "(1234)"
        $section = '_' unless length $section;
    }
    
    f <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4096	4220	
==>->unicode_escape_url($section);
     # Turn char 1234 into "(1234)"
    $section = '_' unless length $section;
  }
  
  

  f <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	1750	1858	
==>_name or die "Can't write '$c_name";
    print $C $cout;
    close $C;
    my $hout = $generator->gen_h($h_na <==
2	/Users/nnunley/parrot/examples/benchmarks/oo2.pl	3	115	
==>perl -w
use strict;

for my $i (1 .. 500000) {
	my $o = new Foo();
}
my $o = new Foo();
print $o->[0], "\n";

pac <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033158	1033258	
==>> "#line 41 \"src/ops/var.ops\"\n    parrot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    S <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034256	1034356	
==>> "#line 41 \"src/ops/var.ops\"\n    parrot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    S <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	736	844	
==>IN VARIOUS CONTEXTS

sub _failmsg {
	my ($message, $pos) = @_;
	$@ = bless { error=>$message, pos=>$pos }, "T <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	3028	3137	
==>ii
    .local int valid_flag
    set num_groups, result["!GROUPS"]
    set match_num, 0
printLoop:
    ge matc <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3978	4097	
==>size(18);
  $new->header_halfpoint_size(17);
  $new->normal_halfpoint_size(25);

  return $new;
}

#~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447867	448140	
==>INTVAL){{\@2}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101829	102056	
==>\"\n  string_bitwise_not(interpreter, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102600	102827	
==>\"\n  string_bitwise_not(interpreter, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	3862	3975	
==>ir .= "if class_name == \"$_\" goto $label\n";
    }
    $pir .= "goto FAIL\n";

    # Now build method dispatch t <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	37034	37161	
==>utine takes up to five optional arguments:

=over 4

=item 1.

A string to be processed (C<$_> if the string is omitted or C<und <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	2227	2358	
==>ent_path )
    {
        # This dies if it fails.
        mkpath($self->parent_path);
    }
    
    return -e $self->parent_path;
} <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1984	2227	
==>a//
                and $str .= "\a",      # bell
                last;
            s/^\\b//
                and $str .= "\b",      # backspace
                last;
            s/^\\f//
                and $str .= "\f",      # form feed <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3498	3741	
==>a//
                and $str .= "\a",      # bell
                last;
            s/^\\b//
                and $str .= "\b",      # backspace
                last;
            s/^\\f//
                and $str .= "\f",      # form feed <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	565	700	
==>tem * the elapsed time, and 

=item * the number of M op/s.

=back

=cut

sub time_hires { time() }

$I2 = 0;                      # set <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	568	702	
==>tem * the elapsed time, and

=item * the number of M op/s.

=back

=cut

sub time_hires { time() }

$I2 = 0;                      # set <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	80	192	
==>ed (\d+) types out of (\d+) from .+?([\.\w]+)\n$/) {
		push @results, {
			name	=> $3,
			total	=> $2,
			don <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	80	192	
==>ed (\d+) types out of (\d+) from .+?([\.\w]+)\n$/) {
		push @results, {
			name	=> $3,
			total	=> $2,
			don <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662555	662907	
==>,
                  "TYPE" => "inline",
                  "CODE" => 740,
                  "ARGS" => [
                              "i",
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 339 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable- <==
2	/Users/nnunley/parrot/config/init/defaults.pm	3408	3531	
==>oadable module extension
        load_ext => ".$Config{so}",
        a        => $Config{_a},        # library or archive ex <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	4017	4124	
==>arg_names{$f}{$a} = $i;
		    # print STDERR "def $f($a = $i)\n";
		}
		push @code, [$line, $pc, "ARG_count" <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	4516	4623	
==>arg_names{$f}{$a} = $i;
		    # print STDERR "def $f($a = $i)\n";
		}
		push @code, [$line, $pc, "ARG_count" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	27876	27994	
==>doesn't take any parameters, but you said =back $content"
        );
      }

      if(@$curr_open and $curr_open->[-1] <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	75864	76035	
==>/ERRORS|WARN|HINT/
	or defined $::RD_WARN    and  $_[0] =~ /ERRORS|WARN/
	or defined $::RD_ERRORS  and  $_[0] =~ /ERRORS/
}

sub _error($;$)
{
	$ERRORS++;
	return 0 if ! _v <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1174	1272	
==>ing with YY (leading YY will be discarded)
my(%params)=(YYLEX => 'CODE', 'YYERROR' => 'CODE', YYVE <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1132	1229	
==>ing with YY (leading YY will be discarded)
my(%params)=(YYLEX => 'CODE', 'YYERROR' => 'CODE', YYVE <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2646	2761	
==>oduced.
	$pir .= <<'PIR';
strPC = ${PC}
${INS} = concat "LAB"
${INS} = concat strPC
${INS} = concat ": "
PIR

	# Ret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1002047	1002462	
==>i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1119,
                  "ARGS" => [
                              "i",
                              "i",
                              "sc",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#li <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	4331	4696	
==>label $dest->{label}";
                    }
                }
                last if $dest_stmt->{code}->{name} ne 'goto';
                $dest = $dest_stmt->{code}->{args}->[0];
            }
            $actual->{args}->[$pos] = $dest;
        }
    }

    # At this point, every basic block but the first begins with a
    # labelled statement. Next, do a reac <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	246	353	
==>arrot::Configure;

    my $conf = Parrot::Configure->new;
    my $data = $conf->data;
    my $options = $con <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1281	1435	
==>compiler->outdent;
        $compiler->emit(".end");

        $last_seen = 'sub';
      }
    }
    else {
      if ($last_seen ne 'inline') {
        $comp <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	51683	51901	
==>var', 1,
sub
#line 276 "Lua\lua51.yp"
{
            [ $_[1] ];
        }
	],
	[#Rule 46
		 'var', 4,
sub
#line 280 "Lua\lua51.yp"
{
            [ $_[2], $_[4] ];
        }
	],
	[#Rule 47
		 'var', 2,
su <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27893	28013	
==>ms[NEXT] eq "(") {
				feedme();
				while($syms[CURR] ne ")") {
					feedme();
				}
				push(@params, "()$a");
			} els <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7741	7853	
==>ocal *OLDOUT if $out;
    local *OLDERR if $err;

    # Save the old filehandles; we must not let them get closed <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	7690	7802	
==>ocal *OLDOUT if $out;
    local *OLDERR if $err;

    # Save the old filehandles; we must not let them get closed <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3396	3511	
==>b;

    if (exists $props{fnlib} and $props{fnlib}) {
      $fnlib = $props{fnlib}->value; # TODO: We should make su <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6060	6175	
==>b;

    if (exists $props{fnlib} and $props{fnlib}) {
      $fnlib = $props{fnlib}->value; # TODO: We should make su <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	7109	7265	
==>f -B $_;
	push(@files,$name);
    }, ".");
    return @files;
}

sub clip_excess_lines {
    my $cnt = defined $_[1] ? $_[1] : 20;
    $_[0] =~ s/(([^\n]*\n) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1321	1412	
==>r $token->is_tagname(I<somestring>)

These are shortcuts for C<< $token->tag() eq I<somestri <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1751	1842	
==>r $token->is_tagname(I<somestring>)

These are shortcuts for C<< $token->tag() eq I<somestri <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	13496	13602	
==>ss="num tests_todo"><tmpl_var name=todo>,</td>
	      <td class="num tests_skipped"><tmpl_var name=skipped> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	207	304	
==>t/Type.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package J <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1846	1973	
==>efined $path and ! -f $path;
    
    return $self->SUPER::new($path);
}

=back

=head2 Instance Methods

=over 4

=item C<creat <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	18413	18589	
==>ack.)

sub rewrite_greedy_range {
    my ($self, $op, $R, $min, $max, $lastback) = @_;

    my ($loop, $back, $local_back, $check, $next) =
     map { $self->genlabel("gr_$_") } <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	15288	15480	
==>ort)' : '' )
                                . "$temp[$_]->[1];"
                        } @tempi);
        my $temp_out  = join("\n    ", map { "$temp[$_]->[1] = arg$_;"} @tempi);
        prin <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	1408	1535	
==>' ', ldflags   => '-L/sw/lib');
            $conf->data->add(' ', ccflags   => '-I/sw/include');
        }
    }

    cc_gen('co <==
2	/Users/nnunley/parrot/config/auto/readline.pm	1497	1624	
==>' ', ldflags   => '-L/sw/lib');
            $conf->data->add(' ', ccflags   => '-I/sw/include');
        }
    }

    cc_gen('co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120686	121160	
==>AGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 150,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 2 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4989	5090	
==>(10)
w=20
w(2)=5
t7(0)=0
w=w-(T7(0) * T7(0) * 12)
' Expect 20
print w
' Expect -20
print -w
' Expect - <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8376	8539	
==>ack[-1][0], then ";

                $$check eq 'ERROR'
            or  do {
#DBG>				$debug & 0x04
#DBG>			and	print STDERR 
#DBG>				    "go to state $$stat <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7996	8153	
==>ack[-1][0], then ";

                $$check eq 'ERROR'
            or  do {
#DBG>				$debug & 0x04
#DBG>			and	print STDERR 
#DBG>				    "go to state $$stat <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	2110	2220	
==>ame: Wrong number of arguments (expected $expected, got $args).\n"
    if ($args != $expected);
}

sub _get_arg <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	8217	8344	
==>ort grep { !/^\./ && /\.ops$/ } readdir OPS;
        closedir OPS;

        my $pod = join " ", map { my $t = $_; $t =~ s/\.ops$ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77486	77601	
==>context =~ s/\s+/ /g;
	$tracerulename = qq{$tracerulename};
	write TRACE;
	if ($tracecontext ne $lastcontext)
	{
		i <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2917	3035	
==>ister_num = 0;
	my $push_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop stuff off the st <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1839	1957	
==>ister_num = 0;
	my $push_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop stuff off the st <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7087	7198	
==>} : '';
	my $bad     = ref($options{reject}) eq 'ARRAY' ? join('|', @{$options{reject}})
		    : defined($option <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24089	24200	
==>} : '';
	my $bad     = ref($options{reject}) eq 'ARRAY' ? join('|', @{$options{reject}})
		    : defined($option <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	2410	2545	
==>{
        printf "0x%.4x, ", classify($char);
        print "/* @{[$char-$len+1]}-$char */\n" if $char % $len == $len-1;
    }
    print <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	753	914	
==>feedme();
		next if $var eq ",";
		my $array=0;
		if ($syms[CURR] eq "(") {
			$array=1;
			while($syms[CURR] ne ")") {
				feedme;
			}
			feedme;
		}
		$var=~s/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349143	349239	
==>ring(interpreter, {{\@2}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, \"+<\");\n  /* strin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350145	350241	
==>ring(interpreter, {{\@2}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, \"+<\");\n  /* strin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	30289	30689	
==>S" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 39,
                  "ARGS" => [
                              "pc"
                            ],
                  "BODY" => "#line 537 \"src/ops/core.ops\"\n    opcode_t * const this = CUR_OPCODE;\n    parrot_context_t *ctx;\n    PMC *ccont;\n    PMC <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161723	162103	
==>i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 195,
                  "ARGS" => [
                              "n",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 183 \"src/ops/cmp.ops\"\n  if ({{\ <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	16432	16691	
==>e is newer than the PMC file.
(If it's not, then the PMC file has changed and the dump has
not been updated.)

=cut

sub dump_is_newer {
    my $file = shift;
    my $pmc = $file;
    $pmc =~ s/\.\w+$/.pmc/;

    ($pmc ne $file) or die "$pmc is the same as the <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	3417	3545	
==>d 2 enums, one pair with
read/write set methods, and one with read-only set methods.

=item C<need_ext>

The class needs a C<PMC_ <==
2	/Users/nnunley/parrot/languages/regex/test.pl	2532	2668	
==>$_ = <SPEC>;
while (1) {
    my ($input, $output);

    last if ! defined $_;
    die "INPUT: expected" if ! /^INPUT:/;

    # Gather inp <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	13233	13360	
==>dline
      last unless defined $lines[-1];
       # but pass thru the undef, which will set source_dead to true
    }
    $self <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6148	6243	
==>tch_${CURIC}
${ITEMP0} = ${NEXTPC} + I_arg_0 # XXX Can't use ${ARG0} :-(
prop_type_state[${ITEMP <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4086	4181	
==>tch_${CURIC}
${ITEMP0} = ${NEXTPC} + I_arg_0 # XXX Can't use ${ARG0} :-(
prop_type_state[${ITEMP <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	4975	5104	
==>parrot PMC type that this PMC correspond to for C<.HLL> usage. For example:

    pmcclass TclInt hll Tcl maps Integer

allows this <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	7776	7885	
==>st->skip_all($reason);

Skips all the tests, using the given $reason.  Exits immediately with 0.

=cut

sub sk <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9381	9540	
==>";
#DBG>			++$dbgerror;
#DBG>		};

            ++$$nberror;

        };

			$$errstatus == 3	#The next token is not valid: discard it
		and	do {
				$ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8961	9110	
==>";
#DBG>			++$dbgerror;
#DBG>		};

            ++$$nberror;

        };

			$$errstatus == 3	#The next token is not valid: discard it
		and	do {
				$ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11051	11147	
==>-----------------------------------------------------------
1;
__END__

=head1 NAME

Pod::Escapes <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11044	11210	
==>block, $ident);
      }
      else {
        my $dec = Jako::Construct::Statement::Decrement->new($block, $ident);
      }

      next;
    }

    #
    # Arithmetic a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574714	574811	
==>ODY" => "#line 249 \"src/ops/object.ops\"\n    {{\@1}} = pmc_new_init(interpreter, enum_class_Parr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575518	575615	
==>ODY" => "#line 249 \"src/ops/object.ops\"\n    {{\@1}} = pmc_new_init(interpreter, enum_class_Parr <==
2	/Users/nnunley/parrot/config/auto/funcptr.pm	983	1080	
==>port this behavior with the
flags you have specified.  You must adjust your settings in order
to u <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26762	26918	
==>=EXPRESSION({ignorecomma => 1});
#	print STDERR "Got back @code\n";
	push @{$code{$seg}->{code}},<<CALLSUB;
@code
CALLSUB
}
sub parse_sub {
	# Deja-vu from f <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	1450	1566	
==>be_file() - it shouldn't both `cat` and dispatch
on file suffix.

=item * Finish making this usable as a library.

=i <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	7496	7639	
==>$pf, $file_name);

    undef $pf;

    return;
}

#
# MAIN PROGRAM:
#

@ARGV = qw(-) unless @ARGV;

foreach (@ARGV) {
    compile_file($_)
}

ex <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	1404	1626	
==>file from multiple physical ops files.

This code does half of that job (the other half is getting them to
compile together instead of separately in a F<*_ops.c> file).

You can see evidence of this by the way this code rea <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	3223	3426	
==>$prefix$1\t$2";
                        $last_val = $2;
                    }
                    $values{$1} = $2;
                    eval $subst if ($subst ne '');
                    print INC ".const <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	723	868	
==>, otherwise it is
created and cached. A relative path is made absolute.

=cut

sub new
{
    my $self = ref $_[0] ? ref shift : shift;
    my $pat <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	27739	28044	
==>");
    return ( $db_back,
                       aop('goto', [ $db_start ]),
           $db_back => $self->dbprint("<- $desc BACK\n"),
                       aop('goto', [ $back ]),
          $db_start => $self->dbprint("-> $desc ENTER\n"),
                       @ops,
                       $self->dbpri <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407506	407810	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "connect",
                  "FLAGS" => ":base_network" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408404	408708	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "connect",
                  "FLAGS" => ":base_network" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1577	1697	
==>@_;

  my $block = $self->block;
  my $value = $self->value;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3197	3317	
==>@_;

  my $block = $self->block;
  my $value = $self->value;
  my $cond  = $self->cond;
  my $left  = $self->left;
  my $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653504	653603	
==>_exception(interpreter, resume, METH_NOT_FOUND,\n            \"Method '%s' not found\", string_to_cs <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654665	654764	
==>_exception(interpreter, resume, METH_NOT_FOUND,\n            \"Method '%s' not found\", string_to_cs <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2307	2423	
==>d3       { $_[0]->emit_par(-2) }
sub end_head4       { $_[0]->emit_par(-1) }
sub end_Para        { $_[0]->emit_par( 0 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1875	1991	
==>d3       { $_[0]->emit_par(-2) }
sub end_head4       { $_[0]->emit_par(-1) }
sub end_Para        { $_[0]->emit_par( 0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150554	151017	
==>":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 183,
                  "ARGS" => [
                              "p",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#l <==
2	/Users/nnunley/parrot/tools/dev/cc_flags.pl	851	990	
==>ions;

while (<F>) {
    chomp;
    s/#.*//;
    next unless /\S/;

    my $regex;
    if (s/^\{(.*?)\}\s*//) {
	next unless $1;
	$regex = q <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3068	3193	
==>wo"
   RETURN Label2   'Cannot return from here to main
                   'program - only to SUB1.
' Exit tests
sub mysub(b,c <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17035	17160	
==>wo"
   RETURN Label2   'Cannot return from here to main
                   'program - only to SUB1.
' Exit tests
sub mysub(b,c <==
2	/Users/nnunley/parrot/examples/benchmarks/arriter.pl	165	287	
==>ples/benchmarks/arriter.pl - Iterator Benchmark

=head1 SYNOPSIS

    % time perl examples/benchmarks/arriter.pl

=head1 DE <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	18443	18549	
==>ectories) and recreate the data structure.

=cut

sub read_dump {
    my ($include, $file) = @_;

    $file <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	1875	2043	
==>ocals} }, $var;
    return $var;
}

sub op_save_rxlocals {
    my ($self, $op) = @_;
    if ($op->{non_reentrant}) {
        # Mark this variable as needing to be preser <==
2	/Users/nnunley/parrot/config/gen/cpu/i386/auto.pm	231	358	
==>ates these Config entries

 TEMP_generated => 'files ...'   for inclusion in platform.c or platform.h
 i386_has_mmx   => 1

=cut <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	5677	5892	
==>>YYData->{INPUT}
            or $parser->YYData->{INPUT} = readline $parser->YYData->{fh}
            or return;

        for ( $parser->YYData->{INPUT} ) {
            s/^\n//
                and $parser->YYDa <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	6135	6282	
==>>YYData->{INPUT}
            or $parser->YYData->{INPUT} = readline $parser->YYData->{fh}
            or return ( q{}, undef );

        for ( $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560324	560544	
==>ODE" => 641,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 152 \"src/ops/object.ops\"\n  opcode_t *des <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	635168	635680	
==>" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 711,
                  "ARGS" => [
                              "p",
                              "ic",
                              "s"
                            ],
                  "BODY" => "#line 107 \"src/ops/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	524063	524367	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sqrt",
                  "FLAGS" => ":base_ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1253	1353	
==>($out_f), $output, $desc );
        $self->{builder}->diag("'$cmd' failed with exit code $exit_code") <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1294	1394	
==>($out_f), $output, $desc );
        $self->{builder}->diag("'$cmd' failed with exit code $exit_code") <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	2789	3038	
==>d
    $I100 = %1
    $I101 = %2
    $I100 = and $I100, $I101
    $I100 = not $I100
    %1 = $I100
END_PIR

    $P0['monadic:+']      =  "    noop"             # conjugate
    $P0['monadic:|']      =  "    %1 = abs %1"      # magnitude
    $P0['monadi <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	2136	2239	
==>l_destination = new_buffer_header(interpreter);\nPObj_external_SET(final_destination)",
     );

my %ret <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	2023	2109	
==>l_destination = new_buffer_header(interpreter);\nPObj_external_SET(final_destination)", <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4422	4607	
==>>end_element({ Name => 'literal' });
      }

      $handler->end_element({ Name => 'concat' });
    }
    else {
      $string = substr($string, 1, -1); # Without the surrounding quotes <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	2291	2379	
==>t some generic term.  Currently acceptable prefixes are
C</^(Parrot|PDB|PF|PIO|PackFile)_ <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4627	4734	
==>x =~ /^(?:c|pod)$/;
    
    return 0;
}

=item C<delete()>

Deletes the file, removes the instance from the <==
2	/Users/nnunley/parrot/config/inter/lex.pm	1563	1708	
==>g) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    if ($conf->options->get('ask')) {
        $ <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	1577	1722	
==>g) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    if ($conf->options->get('ask')) {
        $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324678	324765	
==>ne 144 \"src/ops/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	325471	325558	
==>ne 144 \"src/ops/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1} <==
2	/Users/nnunley/parrot/config/init/hints/netbsd.pm	242	357	
==>thread';
    }
    $conf->data->set(ccflags => $ccflags);

    my $libs = $conf->data->get('libs');
    if ($libs !~ <==
2	/Users/nnunley/parrot/config/init/hints/openbsd.pm	334	449	
==>thread';
    }
    $conf->data->set(ccflags => $ccflags);

    my $libs = $conf->data->get('libs');
    if ($libs !~ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	370093	370362	
==>"TYPE" => "function",
                  "CODE" => 433,
                  "ARGS" => [
                              "s",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 341 \"src/ops/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	935825	936299	
==>tlecase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1052,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 455 \"src/ops/string.ops\"\n  {{\@1}} = str <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936601	936864	
==>tlecase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 105 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2233	2377	
==>$sym and $sym->block eq $block) {
    $self->SYNTAX_ERROR("Redeclaration of identifier '%s' within same block. Previous declaration on line %d of <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	7063	7361	
==>file) {
        return $file;
    }

    foreach my $dir ( @$include ) {
        my $path = File::Spec->catfile( $dir, $file );
        return $path if -e $path;
    }

    die "can't find file '$file' in path '", join("', '", @$include), "'"
        if $die_unless_found;

    undef;
}

=head2 dump <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	3378	3539	
==>String="^\\=($pod_start_rx).*" />
          <HlCOct attribute="Octal" context="#stay" />
          <HlCHex attribute="Hex" context="#stay" />
          <Float att <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31144	31248	
==>arrot::Pmc2c qw( gen_ret );

=item C<implements($method)>

Always true for vtables.

=cut

sub implements <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39764	39868	
==>arrot::Pmc2c qw( gen_ret );

=item C<implements($method)>

Always true for vtables.

=cut

sub implements <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146397	146697	
==>\@2}}, MMD_EQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167623	167923	
==>\@2}}, MMD_EQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2292	2398	
==>unley/parrot/include' . $PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/src/pmc' . $P <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	2087	2193	
==>unley/parrot/include' . $PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/src/pmc' . $P <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	212	309	
==>S

    % perl examples/mops/mops.pl

=head1 DESCRIPTION

A Perl implementation of the F<examples/m <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	208	305	
==>S

    % perl examples/mops/mops.pl

=head1 DESCRIPTION

A Perl implementation of the F<examples/m <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	1028	1148	
==>dent_re);
my $arglist_re = make_re('(?:'.$param_re.'(?:\s*,\s*'.$param_re.')*)?');
my $method_re = make_re('^\s*('.$type_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1079522	1079990	
==>tal" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27905	28039	
==>$return,$return,$temp]);
      $self->_restore($temp);
    }
  }
  return $return;
}

sub _op_abs {
  my ($self,$node) = @_;
  my $retu <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9037	9247	
==>l back...
        $self->unget_token(@to_unget);

      } elsif( $tagname =~ m/^over-/s ) {
        push @stack, $1;
        push @indent_stack,
         int($token->attr('indent') * 4 * $self->normal_halfpoint_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30153	30304	
==>ctor' => 46,
			'args' => 149
		}
	},
	{#State 97
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578789	579266	
==>ect_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 661,
                  "ARGS" => [
                              "p",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 289 \"src/o <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10733	10827	
==>TEMP0}] = ${STEMP0}

# Next parameter.
dec stack_depth
goto pre_call_PLOOP_${CURIC}
PRE_CALL_PL <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7986	8080	
==>TEMP0}] = ${STEMP0}

# Next parameter.
dec stack_depth
goto pre_call_PLOOP_${CURIC}
PRE_CALL_PL <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1853	1946	
==>-MData::Dumper -e \
     "print Dumper(Pod::Simple::SimpleTree->new->parse_file(shift)->root)" <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	12521	12659	
==>p('advance', [ $howfar, $lastback ]),
                         aop('goto', [ $next ]),
                $back => aop('increment', [ -$howfar <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830302	830612	
==>RGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 939,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 186 \"src/ops/stack.ops\"\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	803768	804326	
==>FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 907,
                  "ARGS" => [
                              "p",
                              "k",
                              "p"
                            ],
                  "BODY" => "#line 472 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_pmc_keyed(interpreter, {{\@1}}, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	2448	2617	
==>t

sub file_checksum
{
    my ($filename, $ignorePattern) = @_;
    open(my $file, '<', $filename) or die "Can't open $filename: $!";
    my $sum = 0;
    while (<$file>) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	935072	935314	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ] <==
2	/Users/nnunley/parrot/languages/regex/test.pl	2008	2200	
==>opts =~ /t/i);
        $list_opt = ($opts =~ /l/i);
    } elsif (/^(-d|--debug)$/) {
        $DEBUG = 1;
    } elsif (! defined $testfile) {
        $testfile = $_;
    } else {
        usage " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210269	210364	
==>reter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) <= 0) {\n    {{+={{\@3 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211249	211344	
==>reter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) <= 0) {\n    {{+={{\@3 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7468	7641	
==>and do {
                    $lhs =~ /^\@[0-9]+\-([0-9]+)$/
                or  die "In line rule name '$lhs' ill formed: ".
                        "report it as a BUG.\n <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7124	7294	
==>and do {
                    $lhs =~ /^\@[0-9]+\-([0-9]+)$/
                or  die "In line rule name '$lhs' ill formed: ".
                        "report it as a BUG.\n <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6091	6191	
==>ir .= <<'PIR';
if 0x${CURIC} == 0x45 goto POST_BRANCH_switch_${CURIC}
${ITEMP0} = ${NEXTPC} + I_arg_0 <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4029	4129	
==>ir .= <<'PIR';
if 0x${CURIC} == 0x45 goto POST_BRANCH_switch_${CURIC}
${ITEMP0} = ${NEXTPC} + I_arg_0 <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	2035	2154	
==>ir);
    if (! defined($status) || $status) {
        die "assemble failed with status " . ($? >> 8);
    }
}

sub gener <==
2	/Users/nnunley/parrot/languages/regex/test.pl	3709	3828	
==>ir);
    if (! defined($status) || $status) {
        die "assemble failed with status " . ($? >> 8);
    }
}

sub gener <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	10417	10519	
==>intlist.pmc iterator.pmc sarray.pmc fixedstringarray.pmc multiarray.pmc hash.pmc orderedhash.pmc tqueue <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56959	57177	
==>GS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 869 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo_p(interpreter, {{\@2}});\ <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	7652	7814	
==>$dump );

    my %vtable = (
        flags   => {},
        pre     => '',
        post    => '',
    );
    my %meth_hash;
    my $i = 0;
    foreach my $entry (@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206501	206614	
==>get_integer(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207443	207556	
==>get_integer(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8426	8555	
==>'ERROR'
            or  do {
#DBG>				$debug & 0x04
#DBG>			and	print STDERR 
#DBG>				    "go to state $$states[$$stack[-1][0 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8044	8169	
==>'ERROR'
            or  do {
#DBG>				$debug & 0x04
#DBG>			and	print STDERR 
#DBG>				    "go to state $$states[$$stack[-1][0 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	48813	48937	
==>ge[-1];
      
    } elsif(defined $3) {
      DEBUG > 3 and print "Found apparent complex end-text code \"$3\"\n";
      # T <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	31048	31146	
==>{
}

sub _op_input_port_p {
}

sub _op_output_port_p {
}

sub _op_current_input_port {
}

sub _op_c <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4697	4796	
==>tion=DIRECTORY
    shift(@pmcs) =~ /--destination=(.*)/
      or die "copy command requires destinat <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4801	4900	
==>tion=DIRECTORY
    shift(@pmcs) =~ /--destination=(.*)/
      or die "copy command requires destinat <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	14131	14232	
==>ody =~ s/\bgoto\s+NEXT\(\)/{{+=$op_size}}/mg;
        $absolute ||= $body =~ s/\bgoto\s+ADDRESS\((.*?) <==
2	/Users/nnunley/parrot/config/inter/libparrot.pm	520	627	
==>:Configure::Step ':inter';

$description = 'Determine if parrot should be linked against a shared library' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194252	194513	
==>E" => 230,
                  "ARGS" => [
                              "p",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 320 \"src/ops/cmp.ops\"\n  if (string_compare(int <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1229	1345	
==>=(YYLEX => 'CODE', 'YYERROR' => 'CODE', YYVERSION => '',
			 YYRULES => 'ARRAY', YYSTATES => 'ARRAY', YYDEBUG => '') <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1186	1301	
==>=(YYLEX => 'CODE', 'YYERROR' => 'CODE', YYVERSION => '',
			 YYRULES => 'ARRAY', YYSTATES => 'ARRAY', YYDEBUG => '') <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	14551	14704	
==>(\w+)/) {   ## XXX && $f ne '__new__'
	$namespace{$f} = $classes{$1};
	if ($vtables{$f}) {
	    print <<EOC;
	# $namespace{$f} => $vtables{$f}
EOC
	    #$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840243	840506	
==>);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rotate_up",
                  "FLA <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	8014	8122	
==>{'name'}\n";
    }
    unless ($has_class) {
        die "Mandatory entry class missing in rule $rule->{'name <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1027937	1028096	
==>"
                            ],
                  "BODY" => "#line 295 \"src/ops/sys.ops\"\n  opcode_t *next = {{^+2}};\n  if ({{\@1}} < 0) {\n      real_excep <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936649	937045	
==>re",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1053,
                  "ARGS" => [
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 455 \"src/op <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	769	893	
==>> $ident
  }, $class;

  $block->push_content($self);

  return $self;
}

sub ident  { return shift->{IDENT};  }


#
# compil <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	769	893	
==>> $ident
  }, $class;

  $block->push_content($self);

  return $self;
}

sub ident  { return shift->{IDENT};  }


#
# compil <==
2	/Users/nnunley/parrot/lib/Test/More.pm	9398	9513	
==>ooks like a regex (alternative delimiters are
currently not supported):

    like( $this, '/that/', 'this is like th <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	12800	12973	
==>) any `$!`
value with the `$expected` value.

- `dies_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `lives_ok (Code &code, Str $desc?, Bool :$todo, <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	6003	6121	
==>lative to the first one. (lower is better)\n";
}
print "\n";

open (COPYOUT, ">&STDOUT") or die "Unable to copy STDOUT" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6752	6915	
==>for a Block with the
specified kind (such as a while loop) and label (if given).

This is used to find the target blocks for loop control statements.

=cut

sub fin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369530	369843	
==>, (size_t){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	370415	370728	
==>, (size_t){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	486	605	
==>,'eq', 'I0', '.Array', 'write_ARRAY'],
  ['',             'print', 'P5'],
  ['',             'branch', 'write_RET'],
  [ <==
2	/Users/nnunley/parrot/Configure.pl	6827	7074	
==>oto core - recommended when short of mem
   --jitcapable         Use JIT
   --execcapable        Use JIT to emit a native executable
   --gc=(type)          Determine the type of garbage collection
                        type=(gc|libc|malloc|mallo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	312562	312651	
==>"\n  struct Parrot_Context_info info;\n  Parrot_Context_info(interpreter, CONTEXT(interpre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	313294	313383	
==>"\n  struct Parrot_Context_info info;\n  Parrot_Context_info(interpreter, CONTEXT(interpre <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8836	8939	
==>s_failed = 0;
    $Test::num_of_tests_badpass = 0;
    $Test::num_of_tests_planned = undef;
    $Test::f <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2747	2850	
==>current working directory.  In order to be
    # compatible with both pre/post version 3.13 we're normal <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29188	29303	
==>"        => $_[3],
		"description" => "'$desc'",
	}, $class;
}


sub code($$$$)
{
	my ($self, $namespace, $rule, $ch <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31288	31400	
==>"      => $_[3],
		"description" => "'$desc'",
	}, $class;
}

sub code($$$$)
{
	my ($self, $namespace, $rule, $ch <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	4	103	
==>Value.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is su <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	30957	31119	
==>C
}
sub SETUP_FINALLY
{
    my ($n, $c, $cmt) = @_;
    SETUP_EXCEPT($n, $c, $cmt);
}
sub END_FINALLY
{
    my ($n, $c, $cmt) = @_;
    print <<EOC;
	throw P5 $cmt <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127089	127669	
==>> "rot",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 157,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 271 \"src/ops <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	283520	284006	
==>DIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 330,
                  "ARGS" => [
                              "i",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 908 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}};\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	617917	618256	
==>\n    /* rerun this opcode */\n    {{+=0}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  " <==
2	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1133	1268	
==>urn undef;
    }

}

package UnaryOp;
use base qw(Lua::opcode);

package BinaryOp;
use base qw(Lua::opcode);

package Relatio <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	288	381	
==>arameters specifying argument types and
subcommands can be specified, the build tool takes thi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2149	2241	
==>{\n",
 '/head1'  => "\n}\\par}\n",
 'head2'   => "\n{\\pard\\li#rtfindent#\\s32\\keepn\\sb90\ <==
2	/Users/nnunley/parrot/config/inter/ops.pm	477	611	
==>s = qw(ask ops);

sub runstep
{
    my ($self, $conf) = @_;

    my @ops = (
        sort {
            if ($a =~ /core\.ops/) { return <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7186	7290	
==>reg) ? $reg : 'pos');
    return $self->output_pushint($reg);
}

sub output_pushint {
    my ($self, $reg <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6828	6932	
==>reg) ? $reg : 'pos');
    return $self->output_pushint($reg);
}

sub output_pushint {
    my ($self, $reg <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714590	714685	
==>TDOUT(interpreter);\n  if (s && string_length(interpreter, s)) {\n    if (PIO_softspace(interpre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715513	715608	
==>TDOUT(interpreter);\n  if (s && string_length(interpreter, s)) {\n    if (PIO_softspace(interpre <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	3263	3375	
==>ame of the structure is
C<PConfig>.

Accepts no arguments and returns a string.

=cut

# Data::Dumper supports So <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	4025	4136	
==>text="#stay" String="[a-zA-Z_][\\w_]*" />
      </context>

END

print <<END;
      <context name="pod" attribut <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	69959	70446	
==>=> 93,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 1094 \"src/ops/core.ops\"\n   PObj_needs_early_DOD_SET({{\@1}});\n   ++interpreter->arena_base->num_early_DOD_PMCs;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "loadlib" <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	14336	14484	
==>_LOOP:
    dec i
    if i < 0 goto END_EH_LOOP
    eh = ehs[i]
    
    # If this is the start of a try block, emit a push_eh instruction.
    try_of <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	367	470	
==>e type of an object
sub dump { Pod::Simple::pretty( [ @{ $_[0] } ] ) }

sub is_start { $_[0][0] eq 'star <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	239	384	
==>arsefuncs.pm";

sub init {
        @type[0..2]=("","","");
        @syms[0..2]=("","","");
	$seg="_basicmain";
}
sub feedme {
	my $type=shift @tok <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035531	1035637	
==>nterpreter, lex_name, ctx);\n    PMC *result = NULL;\n\n    if (!PMC_IS_NULL(lex_pad))\n\tresult = VTABLE_g <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036695	1036801	
==>nterpreter, lex_name, ctx);\n    PMC *result = NULL;\n\n    if (!PMC_IS_NULL(lex_pad))\n\tresult = VTABLE_g <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11567	11676	
==>tfile: $!\n";

    print OUT page_header("Branch Coverage for $source_file");
    print OUT "<pre>";

    # fi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305128	305398	
==>P" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305916	306186	
==>P" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705255	705605	
==>vtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 791,
                  "A <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	9541	9717	
==>$textref;
				goto failed;
			}
		}
		else { $$textref =~ m/./gcs }
	}

short:
	$closetagpos = pos($$textref);
	goto matched if $omode eq 'MAX';
	goto failed unless $omode eq 'P <==
2	/Users/nnunley/parrot/config/auto/headers.pm	1760	1917	
==>(@extra_headers) {
        my $pass = 0;

        # First try with just the header. If that fails, try with all the
        # headers we found so far. This is <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	75246	75336	
==>&STDERR");
format TRACE =
|@|||||||||@^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<|
$tracerulenam <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1113	1261	
==>int "Stack is now: ",
    join(">", map $_->[0], @{$_[0]{'_currpos'}}), "\n";
  return;
}

sub _handle_text { # self, text
  DEBUG > 2 and print "Han <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	880	982	
==>int "Stack is now: ",
    join(">", map $_->[0], @{$_[0]{'_currpos'}}), "\n";
  return;
}

sub _handle_ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	270	430	
==>tion I<group> is a number of items with some optional
descriptive text.

C<Parrot::Docs::Group> is a subclass of C<Parrot::Docs::Item>.

=head2 Class Methods

=o <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6576	6781	
==>pe is specified, the semantics are "or".
#

sub skip
{
  my $self = shift;
  my ($kind) = @_;
  
  return undef unless grep { $self->get(1)->kind eq $_ } @_;

  return $self->forth;
}


#
# SKIPS:
#

sub sk <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	29	153	
==>e Perl Foundation.
# $Id: /parrot/lib/Parrot/Pmc2c/Library.pm 19602 2006-05-30T13:40:58.862833Z coke  $

=head1 NAME

Parrot: <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	9902	10105	
==>LE_macro to the expanded form
        $opbody =~ s/
            \bVTABLE_(\w+)
            \s*\(
            interpreter,\s*
            {{\@(\d)}}/
            {{\@$2}}->vtable->$1(interpreter, {{\@$2}}/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042909	1043032	
==>ar.ops\"\n    VTABLE_set_pmc_keyed_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043806	1043929	
==>ar.ops\"\n    VTABLE_set_pmc_keyed_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/languages/scheme/Scheme.pm	17	129	
==>nguages/scheme/Scheme.pm 13993 2005-11-29T22:06:21.880912Z bernhard  $

package Scheme;

use strict;

use Data::D <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9744	9842	
==>d,$a,$b,$_[15],16,0x6d9d6122,/* 35 */
HH,$b,$c,$d,$a,$_[18],23,0xfde5380c,/* 36 */
HH,$a,$b,$c,$d,$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500982	501215	
==>BODY" => "#line 621 \"src/ops/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501721	501954	
==>BODY" => "#line 621 \"src/ops/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	8659	8888	
==>ng/ the current para
      if(@$paras) {
        DEBUG > 2 and print "Line ${$self}{'line_count'} continues current paragraph\n";
        push @{$paras->[-1]}, $line;
      } else {
        # Unexpected case!
        die "Continui <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4823	4925	
==>dest_ident->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();

    $compiler->emit("  $pmc_reg = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2886	2988	
==>dest_ident->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();

    $compiler->emit("  $pmc_reg = <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	24360	24537	
==>e($build_f));
                unlink $build_f;
                $builder->ok(0,$desc);
                return 0;
            }

        my $cfg = "src$PConfig{slash}parrot_config$ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7906	8026	
==>->_ponder_paragraph_buffer();
           # by now it's safe to consider the previous paragraph as done.
          DEBUG > <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	2	130	
==>Copyright (C) 2001-2006, The Perl Foundation.
# $Id: /parrot/config/gen/core_pmcs.pm 19593 2006-05-30T02:28:15.110975Z coke  $

= <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2239	2338	
==>one about that.
  }
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2342	2441	
==>one about that.
  }
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719557	719867	
==>"TYPE" => "inline",
                  "CODE" => 807,
                  "ARGS" => [
                              "p",
                              "n"
                            ],
                  "BODY" => "#line 133 \"src/ops/python.ops\"\n  PMC * const io = {{\@1}};\n  STRING *s;\n  if (PIO_softspace(in <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	630	747	
==>AME

Pod::Simple::Methody -- turn Pod::Simple events into method calls

=head1 SYNOPSIS

 require 5;
 use strict;
 pac <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2686	2788	
==>ffix()> and an underscore appended.

=item C<run_core_func_decl($base)>

Optionally implemented in subc <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	1843	1965	
==>label . $outfunc->(@args);
	    $curlabel = "\t";
	} else {
	    die "Unable to output $op->[0]";
	}
    }
    return @r;
} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684196	684644	
==>"ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 768,
                  "ARGS" => [
                              "p",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 550 \"src/ops/ <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	492	585	
==>specified C source files have correct
indentation.

You will need to have C<C::Scan> installed <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	8154	8299	
==>w, $Got, $got) = @_;
		    if (defined $Got) {
			if ($Got == $got) {
			    $$show++;
			} else {
			    $$show = 0;
			}
		    }
		}
		want_show <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	1676	1804	
==>ative_path($dist->c_header_file_with_name($name));
        }
    }
    
    if ( exists $contents{'sources'} )
    {
        fore <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85618	85840	
==>c_keyed_str(interpreter, compreg_hash, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86525	86747	
==>c_keyed_str(interpreter, compreg_hash, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/tools/dev/symlink.pl	611	755	
==>lf);
my $toolsrcbase = basename($self);

use vars qw($v);

if ($toolsrcdir ne '' && -d $toolsrcdir && lc $toolsrcbase eq 'symlink.pl') {
    my $ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	20024	20250	
==>code_l++;
	($opcode, $rest) = ($code[$code_l]->[2],$code[$code_l]->[4]);
    }
    if ($opcode eq 'JUMP_IF_FALSE') {
	print "\t\t$cmt\n";
	$code_l++;
	$cmt ="\t\t# $opcode\t $rest";
	if ($rest =~ /to (\d+)/) {
	    $targ = "pc_ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17910	18033	
==>se t
case 10
	print "Wrong"
case 50
	select case g
	case 6
		print "Wrong again!"
	case 0
		print "Right (nest)!"
	end selec <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	5334	5454	
==>e) {
        my $file_escaped = $file;
        $file_escaped =~ s|(\\)|$1$1|g; # escape backslashes
        return qq{#li <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	4454	4581	
==>*\{/) {
            error($file, $line, "Cuddled else (\"} else {\") found.");
        }
    }
}


# for now just try to catch g <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15094	15272	
==>rfunc(x())
	print x(4)
	arrfunc=55
end function
dim g(10)
g(5)=666
g(4)=12
a=g(5)+0
y=arrfunc(g())

' Passing arrays, twice, expect 12
function aftwo(y())
	print y(4)
end function <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11215	11325	
==>all coverage lines.
    do_filter(sub { /^(call|branch)/ } );

    print OUT "</pre>";
    print OUT page_foote <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10089	10296	
==>OP_${CURIC}:
if ${ITEMP0} == 0 goto PRE_CALL_PLOOP_END_${CURIC}
dec ${ITEMP0}
dec ${ITEMP2}

# Do we have anything on the lazy moves stack?
${ITEMP3} = elements lazy_moves
if ${ITEMP3} > 0 goto PRE_CALL_${CUR <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7603	7699	
==>OP_${CURIC}:
if ${ITEMP0} == 0 goto PRE_CALL_PLOOP_END_${CURIC}
dec ${ITEMP0}
dec ${ITEMP2}

# Ge <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462331	462773	
==>[
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 530,
                  "ARGS" => [
                              "n",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 322 \"src/ops/math.ops\ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	14734	14912	
==>th($rel_path);
    
    $self->{DOCS_FILE} = $docs_file;

    $rel_path = $self->href_path(
        $docs_file->parent->relative_path($target->parent_path));

    my $name = $targ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227095	227365	
==>on",
                  "CODE" => 265,
                  "ARGS" => [
                              "p",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 530 \"src/ops/cmp.ops\"\n  if (s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	12739	13036	
==>"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 17,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 231 \"src/ops/core.ops\"\n  opcode_t * loc;\n  stack_push(inte <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	31171	31314	
==>_op for rule $rule->{'name'} value type clone");
            my $post_op = $srm->post_op(1, 1);
		    $post_op = sub_meta($post_op, $mv, "post_o <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2840	2957	
==>}

sub YYError {
	my($self)=shift;

	${$$self{CHECK}}='ERROR';
    undef;
}

sub YYSemval {
	my($self)=shift <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2707	2814	
==>}

sub YYError {
	my($self)=shift;

	${$$self{CHECK}}='ERROR';
    undef;
}

sub YYSemval {
	my($self)=shift <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4766	4871	
==>"copy command requires destination";
    my $dest = $1;

    my ($group_files, $group_libs, $pmc_group, $p <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4870	4975	
==>"copy command requires destination";
    my $dest = $1;

    my ($group_files, $group_libs, $pmc_group, $p <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8596	8794	
==>elf = shift;
    my $path = $self->path_for_file_with_name(shift) || return;
    
    return unless -f $path;
    
    return $self->file_with_path($path);
}

=item C<path_for_directory_with_relative <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809707	809972	
==>2}}->vtable->get_string_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810612	810877	
==>2}}->vtable->get_string_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7158	7254	
==>DTYPE}["reg_type_short"]
${DEST0} = concat ${STEMP0}
${STEMP0} = stack_depth
${DEST0} = concat ${ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4980	5076	
==>DTYPE}["reg_type_short"]
${DEST0} = concat ${STEMP0}
${STEMP0} = stack_depth
${DEST0} = concat ${ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11623	11743	
==>r "    PTYPES: "
i = elements ptypes
j = 0
PTYPES_LOOP:
if j == i goto PTYPES_LOOP_END
type_trans = ptypes[j]
type = type <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	1175	1270	
==>e preceeding library. The definition of
the function is:

  return_type name [param [param [para <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	2974	3296	
==>_steps()>

Registers a new step to be run at the end of the execution queue.

Accepts a list and returns a L<Parrot::Configure> object.

=cut

sub add_steps
{
    my ($self, @new_steps) = @_;

    foreach my $step (@new_steps) {
        $self->add_step($step);
    }

    return $self;
}

=item * C<runsteps()>

Sequentiall <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19880	20012	
==>s};
    my $decl = pop @{$opcodes};
    delete $call->{result};
    push @{$opcodes}, $call;
    return $opcodes;
}

sub Build <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	3027	3187	
==>ents

 'content_seen',      # whether we've seen any real Pod content
 'errors_seen',       # TODO: document.  whether we've seen any errors (fatal or not)

 'co <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	8421	8535	
==>ethod->{type};
    my $meth= $method->{meth};
    my $args= $method->{parameters};
    $args = ", $args" if $args = <==
2	/Users/nnunley/parrot/config/gen/icu.pm	3663	3791	
==>CU installation:

   --without-icu        Build parrot without ICU support
   --icu-config=(file)  Location of icu-config
   --ic <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786111	786201	
==>> "#line 417 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed_int(inte <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787022	787112	
==>> "#line 417 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed_int(inte <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	12425	12563	
==>ccepting things like =head1 Thingy Thongy (DESCRIPTION)
          and ($max_content_length
            ? (length($head1_text_content) <= $m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423047	423347	
==>" => 0,
                  "NAME" => "listen",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423943	424243	
==>" => 0,
                  "NAME" => "listen",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => " <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4379	4597	
==>{
                	/^\s*sub\s+_Parse\s*{\s*$/ .. /^\s*}\s*#\s*_Parse\s*$/
        	and     do {
                	s/^#DBG>//;
                	push(@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	e <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4158	4366	
==>{
                	/^\s*sub\s+_Parse\s*{\s*$/ .. /^\s*}\s*#\s*_Parse\s*$/
        	and     do {
                	s/^#DBG>//;
                	push(@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	e <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	15547	15710	
==>gex;
};

sub _regex_ok {
    my($self, $this, $regex, $cmp, $name) = @_;

    local $Level = $Level + 1;

    my $ok = 0;
    my $usable_regex = $self->maybe_regex( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679113	679206	
==>DY" => "#line 483 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_string(interpreter, {{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679892	679985	
==>DY" => "#line 483 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_string(interpreter, {{\@1} <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7298	7503	
==>): ";

                $act
            or  $self->YYAccept();

            $$dotpos=$len;

                unpack('A1',$lhs) eq '@'    #In line rule
            and do {
                    $lhs = <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6962	7158	
==>): ";

                $act
            or  $self->YYAccept();

            $$dotpos=$len;

                unpack('A1',$lhs) eq '@'    #In line rule
            and do {
                    $lhs = <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	22474	22604	
==>const ";
    if (scalar @mmds) {
        $cout .= <<"EOC";

   $const MMD_init _temp_mmd_init[] = {
        $mmd_list
    };
    /* <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805543	805840	
==>"set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 90 <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28536	28782	
==>ral( $parser, 1, 'number' );
    }
    push @opcodes, @{ $e_start->[1] };
    push @opcodes, @{ $e_limit->[1] };
    push @opcodes, @{ $e_step->[1] };
    my $_var = new_tmp( $parser, 'pmc', 'number' );
    push @opcodes, new LocalDir( $pars <==
2	/Users/nnunley/parrot/config/auto/memalign.pm	1371	1606	
==>ess ($@ || cc_run_capture() !~ /ok/) {
        $test = 1;
    }
    cc_clean();

    my $test2 = 0;

    cc_gen('config/auto/memalign/test_c2.in');
    eval { cc_build(); };
    unless ($@ || cc_run_capture() !~ /ok/) {
        $test2 = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25687	25854	
==>nditional::If->new($block, $left, $op, $right);
      }
      elsif ($kind eq 'unless') {
        $cond = Jako::Construct::Block::Conditional::Unless->new($block, $left <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	161	310	
==>porter');
$VERSION = '1.03';
@EXPORT_OK = qw(
  %Code2USASCII
  %Name2character
  %Name2character_number
  %Latin1Code_to_fallback
  %Latin1Char_to_fa <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2371	2462	
==>head1 SEE ALSO

F<examples/benchmarks/mops.pasm>,
F<examples/mops/mops.c>,
F<examples/mops/m <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	2371	2462	
==>head1 SEE ALSO

F<examples/benchmarks/mops.pasm>,
F<examples/mops/mops.c>,
F<examples/mops/m <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	1999	2098	
==>the options can be shortened to their unique prefixes, and one
leading dash ("-") can be used instea <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	3880	3979	
==>the options can be shortened to their unique prefixes,
and one leading dash ("-") can be used instea <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	5687	5796	
==>-computed return value. See the note on op types above.

=cut

sub full_body
{
    my $self = shift;
    my $b <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	3153	3236	
==>T_DYNEXT_EXPORT extern Parrot_PMC Parrot_lib_${lc_libname}_load(Parrot_INTERP interp <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49477	49647	
==>okahead,$line,"<uncommit>");
				$prod and $prod->additem($item)
				      or  _no_rule("<uncommit>",$line);
			}
			elsif ($grammar =~ m/$QUOTELIKEMK/gco)
			{
				_parse <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	32902	33032	
==>if ($vtables{$c}) {
	$c = $vtables{$c};
    }
    my $cc;
    if ($c =~ /^\d+$/) {	# MMD
	$cc = "-$c";
    }
    else {
	$cc = qq!" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1077	1220	
==>onstruct::Statement::Arithmetic;
use Jako::Construct::Statement::Assign;
use Jako::Construct::Statement::Bitwise;
use Jako::Construct::Statement <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	8812	8972	
==>$self->{STACK}->[-1] eq 'text';
    }
    elsif ( $tagname =~ /head[12]/o )
    {
        # Put the up arrow on the end of a heading. 
        # The space is nee <==
2	/Users/nnunley/parrot/languages/APL/t/APL.pm	804	978	
==>hings up for end users, give developers the ability
# to easily see if anything new is passing.

sub run_apl_is() {
  foreach my $block (blocks) {
    my $apl    = $block->APL <==
2	/Users/nnunley/parrot/lib/Test/More.pm	2534	2659	
==>a wide range of testing
utilities.  Various ways to say "ok" with better diagnostics,
facilities to skip tests, test future fe <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	1633	1739	
==>$c_name);
    print $cout if $opt->{debug};
    print "Writing $c_name\n" if $opt->{verbose};
    open my $ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	34756	34856	
==>text = "{ an '[irregularly :-(] {} parenthesized >:-)' string }";

then a call to C<extract_bracketed <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	1335	1446	
==>or $kind eq 'sub' or $kind eq 'var' or $kind eq 'arg' or $kind eq 'const';

  my $self = bless {
    BLOCK  => $ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	919	1124	
==>arks can follow an identifier
      $token .= $ch;
    } elsif($ch eq '=' and
            $token =~ /^[<>]/) {  # Equal sign can follow '<','>'
      $token .= $ch;
    } elsif($ch eq '.' and
            $t <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	2804	3081	
==>ne '');
                    print INC ".constant $_\n";
                }
            } elsif ($in_def eq 'enum') {
                if (/(\w+)\s+=\s+(-?\w+)/) {
                    local $_;
                    if (defined($values{$2})) {
                        $_        = "$p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2143	2254	
==>>prefix($self->peer->prefix);
  }

  if ($self->prefix) {
    $handler->start_element({ Name => 'cond', Attribut <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3806	4043	
==>t it gives up on making a link
     # (I pass it the section value, but I don't see a
     #  particular reason it'd use it.)
  }
  
  if(defined $section and length($section .= '')) {
    $section =~ tr/ /_/;
    $section =~ tr/\x00-\x1F <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	336	463	
==>tatement::Return;

use Carp;

use base qw(Jako::Construct::Statement);


#
# new()
#

sub new
{
  my $class = shift;
  my ($bloc <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2504	2613	
==>, we will place its
  # definition into the block at the top of the block stack. We fill in the
  # IDENT entr <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2251	2360	
==>, we will place its
  # definition into the block at the top of the block stack. We fill in the
  # IDENT entr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231866	232117	
==>270,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 592 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083842	1084148	
==>"experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splic <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	43986	44154	
==>DEBUG > 1 and print "This Perl version can't handle ", 
          "E<$content> (chr $charnum), so replacing with $replacer\n";
      } else {
        $replacer = Pod::Es <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8316	8424	
==>uses find_symbol() to locate a matching
symbol, and then returns that symbol's kind.

=cut

sub kind_of_ident <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6491	6610	
==>hen two are exchanged,
   ' force another pass by setting Exchange to TRUE.
   FOR I = 2 TO Max
      IF A$(I-1) > A$(I) <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16144	16263	
==>hen two are exchanged,
   ' force another pass by setting Exchange to TRUE.
   FOR I = 2 TO Max
      IF A$(I-1) > A$(I) <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	4367	4473	
==>:sysconf( &POSIX::_SC_CLK_TCK );
my %Get_Time = (
    1 => sub { my @times = times();  return $times[2] + $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824918	825326	
==>LAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 934,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 133 \ <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	5800	5991	
==>\s*;\s*$/)
            {
                if (exists $self->{VERSION})
                {
                    #die "VERSION MULTIPLY DEFINED!";
                }

                $self->version( <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	2306	2511	
==>e> is true then the contents of C<$target> will be deleted
before any HTML is written. This argument is intended to be used only
once by the root section, it is not passed to subsections.

=cut

sub write_d <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	521	646	
==>=~ tr/-:./__/;
  ( $_[0]->can( 'end_' . $_[1] )
    || return
  )->(
    $_[0]
  );
}

1;


__END__

=head1 NAME

Pod::Simple: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	459685	459866	
==>",
                              "i"
                            ],
                  "BODY" => "#line 282 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    rea <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	460673	460854	
==>",
                              "i"
                            ],
                  "BODY" => "#line 282 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    rea <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	4904	5014	
==>value = shift iter
    bsr print_value
    unless iter goto iter_end
    value_type = typeof value
    if value <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	11111	11287	
==>expected );

            # set up default description
            unless ( $desc ) {
               (undef, my $file, my $line) = caller();
               $desc = "($file line $ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	16596	16772	
==>expected );

            # set up default description
            unless ( $desc ) {
               (undef, my $file, my $line) = caller();
               $desc = "($file line $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3600	3726	
==>has no fnlib property, and parent block is not a module!")
        unless $self->block->kind eq 'module';

      my %module_pro <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6264	6390	
==>has no fnlib property, and parent block is not a module!")
        unless $self->block->kind eq 'module';

      my %module_pro <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	560	685	
==>)\(/>), then finds
out the visible symbols in the Parrot lib (by default
F<blib/lib/libparrot.a>), and then cross-references t <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	3076	3259	
==>rules for the various
	# forms of goto recognized by Parrot/OpsFile.pm and Parrot/Op.pm

	# absolute address goto
	while($src =~ /{{=(.*?)}}/g){
	    my $offset = $1;
	    $is_branch = <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15317	15420	
==>y $type="";

	if ($opts{assign}) {
		#print STDERR "Assign\n";
		$opts{lhs}=1;
		@expr=get_expression(%o <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2726	2834	
==>le-level code"
GOSUB Sub1
PRINT "ERR this line in main routine should be skipped"
Label1:
   PRINT "5 back in <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16693	16801	
==>le-level code"
GOSUB Sub1
PRINT "ERR this line in main routine should be skipped"
Label1:
   PRINT "5 back in <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	190	385	
==>_PIR';
    .sym pmc throwable
    throwable = new .Exception
    throwable[0] = "DOMAIN ERROR\n"
    throw throwable
END_OF_PIR

my %scalar = (
    '+' => [ 'Add', '%1 = %1 + %2' ],
	'*' => [ 'Pow <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937952	938199	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "join",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938841	939088	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "join",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10864	11134	
==>class=ref($class);

    my($self)=$class->SUPER::new( yyversion => '1.05',
                                  yystates =>
[
	{#State 0
		ACTIONS => {
			'' => -4,
			'NAME' => -4,
			'REPEAT' => -4,
			'FOR' => -4,
			"(" => -4,
			'IF' => -4,
			'error' => 1 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11862	12017	
==>class=ref($class);

    my($self)=$class->SUPER::new( yyversion => '1.05',
                                  yystates =>
[
	{#State 0
		DEFAULT => -2,
		GOT <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	554	653	
==>for Parrot-hosted languages.  Right
now it parameterizes the two parameters that at least three lang <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4821	4935	
==>ops;
}

sub output_classmatch {
    my ($self, $incexc, $failLabel) = @_;

    my $passLabel = $self->{state}->genl <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4485	4599	
==>ops;
}

sub output_classmatch {
    my ($self, $incexc, $failLabel) = @_;

    my $passLabel = $self->{state}->genl <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	1675	1802	
==>foo=1
end function
dim fool$()
fool$(10)="Hello"
a=foo(99, fool$())

' String Arrays, expect "One"
dim g$()
g$(5)="One"
g$(6)="T <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	7541	7793	
==>copy flags, set is_const
    $const->{flags} = {is_const => 1, %{ $self->{flags} } };
    delete $const->{flags}{const_too};
    # set const in does
    $const->{flags}{does}{const} = 1;
    # set classname
    $const->{class} = "Const" . $self->{class} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	12739	12932	
==>t_size(),
  ;
}

###########################################################################
# Override these as necessary for further customization

sub font_table {
  return <<'END';  # text f <==
2	/Users/nnunley/parrot/tools/util/pirtidy.pl	137	254	
==>close );

use lib 'lib';

use Parrot::PIR::Formatter;

my $extension = 'tdy';
my $verbose   = 'that is SO true.';

# l <==
2	/Users/nnunley/parrot/lib/Test/More.pm	16793	16951	
==>ike doing this:

   use Some::Module qw(foo bar);

Version numbers can be checked like so:

   # Just like "use Some::Module 1.02"
   BEGIN { use_ok('Some::Mod <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943856	944031	
==>\@1}} = Parrot_charset_number_of_str(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944645	944820	
==>\@1}} = Parrot_charset_number_of_str(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	1871	1967	
==>ocs/configuration.pod')
		),
		$self->new_group('Library', '',
		    $self->new_item('PASM/IMC ac <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	2613	2794	
==>sults;
}

sub header {
    my ($cmd, @args) = @_;
    
    my $code = <<"END_PIR";
.HLL '_Tcl', ''
.namespace [ 'builtins' ]
        
.sub '$cmd'
  .param int register
  .param pmc a <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	5631	6100	
==>> $name,
          type  => $type,
          kind  => 'op',
          oplib => $oplib,
          op    => $op
        }
      });
    }
    else {
      $handler->start_element({
        Name       => 'sub',
        Attributes => {
          name  => $name,
          kind  => 'op',
          oplib => $oplib,
          op    => $op
        }
      });
    }
  }
  elsif (exists $props{fn} or exists $props{fnlib}) {
    my $fnlib;

    if (exists $props{fnlib} and $pro <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2296	2389	
==>same implementation as in C<Parrot::OpTrans>. It
should not be duplicated.

=cut

sub gen_goto <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6479	6679	
==>q!set $reg, <rx_match>["$group";1] # get group $group end!;
}

sub output_delete {
    my ($self, $n) = @_;
    return qq!set <rx_match>["$n";1], -2 # delete group $n!;
}

sub output_atend {
    my ($s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2034	2139	
==>ntifier is already defined at this lexical scope, we want to complain
  # about the redefinition. Otherwis <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1781	1886	
==>ntifier is already defined at this lexical scope, we want to complain
  # about the redefinition. Otherwis <==
2	/Users/nnunley/parrot/config/init/miniparrot.pm	939	1087	
==>nf->data->set(
        miniparrot         => 1,
        DEVEL              => $conf->data->get('DEVEL') . '-miniparrot',
        TEMP_cg_h          = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054392	1054483	
==>mespace.\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to get null global.\");\n\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055519	1055610	
==>mespace.\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to get null global.\");\n\n <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10616	10735	
==>rtable
    } else {
        die;
    }
}

sub Regex::Ops::Tree::charclass::render {
    die;
}

sub Regex::Ops::Tree::cl <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	40295	40404	
==>ll_content[0])
         and $ell_content[0] =~ m/^[-a-zA-Z0-9]+\([-a-zA-Z0-9]+\)$/s
      ) {
        $ell->[1 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	137	260	
==>he Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm 19606 2006-05-30T15:08:05.048 <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42630	42741	
==>cDescent;

use Carp;
use vars qw ( $AUTOLOAD $VERSION );

my $ERRORS = 0;

$VERSION = '1.80';

# BUILDING A PARS <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	12599	12720	
==>ub isnt_eq {
    my($self, $got, $dont_expect, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defi <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	21793	21960	
==>thod}{class_init} : -1;
    my $class_init_code = $n >= 0 ? $self->{methods}[$n]{body} : "";
    $class_init_code =~ s/INTERP/interp/g;
    my $enum_name = $self->{flag <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359445	359689	
==>, s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printer <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360193	360437	
==>, s);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "printer <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27156	27300	
==>41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 138,
			'functioncall' => 31,
			'function' => <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15487	15584	
==>\n" unless $return =~ /^P/;
  my $value = $self->_generate (_get_arg($node,2));
  $self->_add_inst <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15845	15942	
==>\n" unless $return =~ /^P/;
  my $value = $self->_generate (_get_arg($node,2));
  $self->_add_inst <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22222	22330	
==>>_add_inst("DONE_$label");
  return $return;
}

sub _op_odd_p {
  my ($self,$node) = @_;
  my $return;
  my $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1391	1518	
==>he only treelets
# that are exposed to the user.

1;

__END__

# TODO: let it be an option whether a given subclass even wants l <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24715	24808	
==>d($textref, $pre, $ldel, $rdel, $omode, $bad, $ignore);

		return _fail(wantarray, $textref) u <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7549	7641	
==>d($textref, $pre, $ldel, $rdel, $omode, $bad, $ignore);

	return _fail(wantarray, $textref) u <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	45357	45513	
==>lure). In a scalar or
void context, the input text has the same substring (and any specified
prefix) removed.

Examples:

	# Remove the first quotelike liter <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	45599	45700	
==>ne or more leading whitespace-separated quotelike
	# literals in $_ with "<QLL>"

		do { $_ = join '<Q <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	20447	20593	
==>cname.h", 1);

        my $fh = open_file( "<", $file );
        while (<$fh>) {
            if (/^(?:extern\s+)?\w+\*?\s+\*?(\w+)\s*\([^)]+\)\s*;/ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33984	34102	
==>e};
        $ret_def = "$type ret_val;";
        $func_ret = $self->gen_ret($method->{type});
        $ret = "return re <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38946	39064	
==>e};
        $ret_def = "$type ret_val;";
        $func_ret = $self->gen_ret($method->{type});
        $ret = "return re <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	34015	34161	
==>op_string_symbol,

###
### Numerics
###

  'number?'          => \&_op_number_p,
  'complex?'         => \&_op_complex_p,
  'real?'            => \ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	1562	1689	
==>contents,
                $dist->relative_path($dist->c_source_file_with_name($name)), 
                $dist->relative_path($di <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	25081	25181	
==>text)
{
	&{$_[0]}($_[1]);
}

package Text::Balanced::ErrorMsg;

use overload '""' => sub { "$_[0]->{e <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	3102	3226	
==>nsion running
 */

EOC
    $cout .= <<"EOC";

PARROT_DYNEXT_EXPORT extern Parrot_PMC Parrot_lib_${lc_libname}_load(Parrot_INT <==
2	/Users/nnunley/parrot/languages/converter.pl	797	914	
==>production(?)
#		{[@item]}
		{ $return = '';
		  $return .= $item[1][0] if defined $item[1][0];
		  $return .= " ( $it <==
2	/Users/nnunley/parrot/lib/Test/More.pm	10388	10607	
==>the test fails you'll know what $this
and $that were:

    not ok 1
    #     Failed test (foo.t at line 12)
    #     '23'
    #         &&
    #     undef

It's also useful in those cases where you are comparing number <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27762	27891	
==>init decl
    if ($self->{flags}->{dynpmc}) {
        $hout .= 'PARROT_DYNEXT_EXPORT ';
    }
    $hout .= <<"EOC";
void Parrot_${ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5896	5985	
==>l-Gordon C<brent@brentdax.com>.

=head1 AUTHOR

Joshua Hoblitt C<jhoblitt@cpan.org>

=head <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6745	6834	
==>l-Gordon C<brent@brentdax.com>.

=head1 AUTHOR

Joshua Hoblitt C<jhoblitt@cpan.org>

=head <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	4787	4912	
==>se_lines(
        splice @{ $self->{'source_arrayref'} },
        0,
        Pod::Simple::MANY_LINES
      );
      unless( @{ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	334	498	
==>b pre_translation() {
	# We need to emit PIR that sets up a dummy stack.
	return <<'PIR';
.local string strPC
${INS} = concat <<"CODE"
    .local pmc s
    s = new R <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3352	3450	
==>]"
);

=item C<access_arg($type, $num, $op)>

Returns the C code for the specified op argument type <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	3525	3653	
==>he specified name.

=cut

sub c_header_file_with_name
{
    my $self = shift;
    my $name = shift || return;
    
    $name .= ' <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15492	15589	
==>nless $return =~ /^P/;
  my $value = $self->_generate (_get_arg($node,2));
  $self->_add_inst ('', <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15850	15947	
==>nless $return =~ /^P/;
  my $value = $self->_generate (_get_arg($node,2));
  $self->_add_inst ('', <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914570	915055	
==>"i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1030,
                  "ARGS" => [
                              "i",
                              "s",
                              "sc",
                              "i"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(inter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382681	383124	
==>GDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 447,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 455 \"src/o <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	439	551	
==>e1, $key2 => $value2);
    my @keys = $data->keys;
    my $serialized = $data->dump;
    $data->clean;
    $data- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	12981	13071	
==>src/ops/core.ops\"\n  opcode_t * loc;\n  stack_push(interpreter, &CONTEXT(interpreter->ctx) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13825	13915	
==>src/ops/core.ops\"\n  opcode_t * loc;\n  stack_push(interpreter, &CONTEXT(interpreter->ctx) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	625834	625984	
==>s[1 + i] = (void**)cur_opcode[2 + i];\n                break;\n            case PARROT_ARG_FLOATVAL:\n                args[1 + i] = (_reg_base + cur_op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	17653	17917	
==>> "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18448	18712	
==>> "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1809	1951	
==>ebug (5);  # or some integer

Or:

 my $debuglevel;
 use Pod::Simple::Debug (\$debuglevel, 0);
 ...some stuff that uses Pod::Simple to do stuff <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	20388	20508	
==>2_BRANCH_$prefix$_->{'code'}\n";
                $byte2_todo{"$prefix$_->{'code'}"} = $_->{'group'};
            } else { <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9828	9934	
==>ock, $self->require_value);
      my $op    = $self->require_infix_rel->text;
      my $right = Jako::Const <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25364	25470	
==>ock, $self->require_value);
      my $op    = $self->require_infix_rel->text;
      my $right = Jako::Const <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11907	12308	
==>j == i goto LTYPES_LOOP_END
type_trans = ltypes[j]
type = type_trans["type"]
printerr type
printerr " "
inc j
goto LTYPES_LOOP
LTYPES_LOOP_END:
printerr "\\n"
NO_IN_TRACE:
    
    # Get bytecode and initialize pc.
    bc = meth.get_bytecode()
    bc_length = bc.get_length()
    pc = 0

	# Initialize stack types array.
	stypes = new ResizablePMCArray

    # Instantiate a bytecode escaper.
    escape <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9747	9883	
==>~~~~~~~~~~~~~~~~~
sub esc {
  if(defined wantarray) {
    if(wantarray) {
      @_ = splice @_; # break aliasing
    } else {
      my $x <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16107	16375	
==>> "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16879	17147	
==>> "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11948	12049	
==>call_result {
    my ($self, $uid, $name, $fail) = @_;
    my $fail_label = $self->output_label_use($f <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	12614	12715	
==>call_result {
    my ($self, $uid, $name, $fail) = @_;
    my $fail_label = $self->output_label_use($f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563781	563985	
==>"p",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 183 \"src/ops/object.ops\"\n  VTABLE_add_method(interpreter, {{\@ <==
2	/Users/nnunley/parrot/languages/urm/urm-old.pl	1130	1228	
==>d) *= *(\d) *goto *(\d+)/) {
	$register{$1} = 0 unless defined $register{$1};
	if ($register{$1} == <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	4247	4432	
==>ss defined $offset;

  return $self->forth(-$offset);
}


#
# dump()
#
# Dump the tokens.
#

sub dump
{
  my $self = shift;


  while (1) {
    my $tok = $self->forth;

    printf STDERR <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	537	648	
==>have them in the
correct order.

=head2 package

Declares the package that all subsequent sub PMCs will be put
i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355130	355229	
==>= {{\@1}};\n  STRING * const s = (VTABLE_get_string(interpreter, p));\n  if (s) {\n    PIO_putps(int <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360830	360929	
==>= {{\@1}};\n  STRING * const s = (VTABLE_get_string(interpreter, p));\n  if (s) {\n    PIO_putps(int <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549974	550078	
==>, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+3} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551275	551379	
==>, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+3} <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5602	5749	
==>oup_files, %group_libs, %pmc_group, %pmc_libs );
    for my $pmc (@pmcs) {
        our $class;
        require "$pmc.dump";
 
        # there can be <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5813	5960	
==>oup_files, %group_libs, %pmc_group, %pmc_libs );
    for my $pmc (@pmcs) {
        our $class;
        require "$pmc.dump";
 
        # there can be <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	29349	29520	
==>ok => 0,   # in absolute terms, it failed
        name      => 'hole count',
        type      => 'todo',
        reason    => 'insufficient donuts'
      };

=cut

sub det <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3113	3234	
==>re to main
                   'program - only to SUB1.
' Exit tests
sub mysub(b,c)
	print "Print me"
	exit sub
	print "Don <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17080	17201	
==>re to main
                   'program - only to SUB1.
' Exit tests
sub mysub(b,c)
	print "Print me"
	exit sub
	print "Don <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553837	553942	
==>, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+4}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555234	555339	
==>, *object;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+4}} <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	9083	9285	
==>er) {
	    die "hole in ops.num opcode # $number";
    }
    if (exists $ParrotOps::optable{$name}) {
	    die "duplicate opcode $name and $number";
    }
    $prev = $number;
    $ParrotOps::optable{$na <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	106713	107230	
==>S" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 133,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 167 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	33898	33987	
==>ist of delimiters passed as
C<extract_bracketed>'s second argument. Delimiter brackets are <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	168	348	
==>::Test::Bc';

sub get_out_fn {
    my $self = shift;
    my ( $count, $options ) = @_;

    return $options->{with_past} ?
               Parrot::Test::per_test( '_antlr2.out', $cou <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	24182	24306	
==>rn $self->{Out_FH};
}

sub failure_output {
    my($self, $fh) = @_;

    if( defined $fh ) {
        $self->{Fail_FH} = _new <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103320	103550	
==>i_bitwise_nots(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/config/inter/libparrot.pm	2106	2232	
==>parrot'
            : $conf->data->get('libparrot')
        );
    }

    $self->set_result($parrot_is_shared ? 'yes' : 'n <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	4474	4635	
==>($options{bindir}, $dest);
        if ($copy =~ /^installable/) {
            push @installable_exe, [$src, $dest];
            next;
        }
    } elsif ($meta <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	3690	3826	
==>ingSheep => 1
                           });
    ok( defined($btaste) && ref $btaste eq 'Film,     'new() works' );

    ok( $btaste->Tit <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5461	5578	
==>${bs}ops_addr);
    }
END_C
}

=item C<run_core_finish($base)>

Returns the C code following the run core function.

= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553968	554072	
==>_object = object;\n  interpreter->current_cont = {{\@3}};\n  interpreter->current_method = meth;\n  metho <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555365	555469	
==>_object = object;\n  interpreter->current_cont = {{\@3}};\n  interpreter->current_method = meth;\n  metho <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	389	496	
==>paths within the
directory and any subdirectories recursively (see the C<files()> method
in C<Parrot::IO::Di <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	15544	15770	
==>nnegative, so we redefine the C<count>
accessor accordingly.

    package MyObj;
    use Class::Struct;

    # declare the struct
    struct ( 'MyObj', { count => '$', stuff => '%' } );

    # override the default accessor meth <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	13724	13942	
==>sr DEREF		       # De-reference variables and whatnot.
	P0= P10[I25]
	P1= P0["SELECTS"]
	P1["$selectcounter"]= P6   # Store for later.
	goto CASE_${selectcounter}_0
	
SELECTSTART
	# Honestly the next thing needs to be a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650756	651015	
==>ype)\n        {{\@1}} = 1;\n    else\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651678	651937	
==>ype)\n        {{\@1}} = 1;\n    else\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
2	/Users/nnunley/parrot/lib/Test/More.pm	9647	9803	
==>ter
diagnostics on failure.

=cut

sub like ($$;$) {
    $Test->like(@_);
}


=item B<unlike>

  unlike( $this, qr/that/, $test_name );

Works exactly as lik <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	7029	7120	
==>d transform,
correctly handling nested substitions, and repeating over the whole string
unti <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563957	564211	
==>_add_method(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564855	565109	
==>_add_method(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819681	819773	
==>exception(99, \"Stack Depth wrong\");\n  }\n  {{\@1}} = get_entry_type(interpreter, entry);\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820641	820733	
==>exception(99, \"Stack Depth wrong\");\n  }\n  {{\@1}} = get_entry_type(interpreter, entry);\n <==
2	/Users/nnunley/parrot/tools/util/pirtidy.pl	544	651	
==>h my $line (<$ifh>) {
      $formatter->add_pir( $line );
    }

    my $output = $formatter->get_formatted( <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	6757	6867	
==>cal\s+([%@\$]\w+)/)
	{
		$parser->{localvars} .= " $1";
		$self->{"vars"} .= "$var;\n" }
	else 
		{ $self->{"va <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	372679	372976	
==>"JUMP" => 0,
                  "NAME" => "peek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
2	/Users/nnunley/parrot/config/inter/progs.pm	3698	3805	
==>t('cxx'), $conf->options->get('cxx'));
    $cxx = prompt("What C++ compiler do you want to use?", $cxx) if $ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	3362	3447	
==>n::Config>

=item C<Parrot::Docs::Section::Tests>

=item C<Parrot::Docs::Section::Edit <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49960	50064	
==>em($item)
				      or  _no_rule("<perl_quotelike>",$line);
			}
			elsif ($grammar =~ m/$CODEBLOCKMK/gco <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565719	565807	
==>s/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->can(interpreter, {{\@2}}, {{\@3}});\n  {{+=4 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566612	566700	
==>s/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->can(interpreter, {{\@2}}, {{\@3}});\n  {{+=4 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	819	937	
==>event!  set to stack, and set as root.
  }
  DEBUG > 3 and print "Stack is now: ",
    join(">", map $_->[0], @{$_[0]{' <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11482	11597	
==>$out;
    
    $out = $to if defined $to and length $to;
    $out .= "#" . $section if defined $section and length $ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39422	39526	
==>$maxrep,
		"rightarg"  => $rightarg,
		"expected"  => "<${type}op: ".$leftarg->describe." ".$op->describe <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	11879	12013	
==>lib.h
llrint      math.h
llrintf     math.h
llrintl     math.h
llround     math.h
llroundf    math.h
llroundl    math.h
localeconv  loc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826571	826668	
==>99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_FLOAT) {\n    internal_excepti <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827641	827738	
==>99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_FLOAT) {\n    internal_excepti <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3782	3918	
==>{ Name => 'literal', Attributes => { type => $type->name } });
          $handler->characters({ Data => $1 });
          $handler->end_el <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897023	897221	
==>,
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898041	898239	
==>,
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter <==
2	/Users/nnunley/parrot/languages/regex/test.pl	3572	3711	
==>G => $DEBUG);
    }

    close PIR;
}

sub generate_pbc {
    my ($pir, $pbc) = @_;
    my $status = system("$PARROT_EXE", "-o", $pbc, $pir) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55914	56197	
==>> "interpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 72,
                  "AR <==
2	/Users/nnunley/parrot/config/init/hints/freebsd.pm	433	552	
==>be assumed to do the right thing.

    my $osversion;
    if (-e "/sbin/sysctl") {
        $osversion = `/sbin/sysctl -n <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	1223	1441	
==>ation
        my $out_fn    = $self->get_out_fn( $count, \%options );
        my @test_prog = $self->get_test_prog( $count, \%options );

        # This does not create byte code, but bc code
        {
            my $p <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	1243	1428	
==>est test.c", 'test.cco', 'test.cco')
            and confess "C compiler failed (see test.cco)";
        %gnuc = eval cc_run() or die "Can't run the test program: $!";
        if (define <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584686	584911	
==>@1}} = VTABLE_subclass(interpreter, class, NULL);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585761	585986	
==>@1}} = VTABLE_subclass(interpreter, class, NULL);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/Configure.pl	1954	2122	
==>linker flags

=item C<--ld=(linker)>

Specify which loader to use for shared libraries.

=item C<--ldflags=(flags)>

Use the given loader flags for shared libraries

=it <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3942	4053	
==>->sax($handler) if defined $value;
  $handler->end_element({ Name => 'return' });

  if (defined $cond) {
    $h <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	30143	30343	
==>rser,
        'arg1' => $lbl_or,
    );
    push @opcodes, new BranchUnlessOp( $parser,
        'arg1'   => $_var,
        'op'     => '>=',
        'arg2'   => $_limit,
        'result' => $lbl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	251110	251404	
==>RGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 292,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 703 \"src/ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	9380	9655	
==>{
			$max_pop = $_->{'pop'};
		}
		if ($_->{'push'} > $max_push) {
			$max_push = $_->{'push'};
		}
	}
	my $stack_locals = "";
	for (0..$max_pop - 1) {
		$stack_locals .= $stack_locals ? ', ' : '.local string ';
		$stack_locals .= "stack$_";
		$mv->{"STACK$_"} = "stack$_";
	} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48819	49010	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "bounds",
                  "FLAGS" => "",
                  "A <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	346	463	
==>ment::Decrement;

use Carp;

use base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $i <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1434	1528	
==>ass)=shift;
	my($errst,$nberr,$token,$value,$check,$dotpos);
    my($self)={ ERROR => \&_Erro <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1385	1477	
==>ass)=shift;
	my($errst,$nberr,$token,$value,$check,$dotpos);
    my($self)={ ERROR => \&_Erro <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4750	4859	
==>.
#So, DO NOT remove comment at end of sub !!!
sub _Parse {
    my($self)=shift;

	my($rules,$states,$lex <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4515	4619	
==>.
#So, DO NOT remove comment at end of sub !!!
sub _Parse {
    my($self)=shift;

	my($rules,$states,$lex <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	10448	10612	
==>y $string_meth = overload::Method($$thing, '""') ) {
                    $$thing = $$thing->$string_meth();
                }
            }
        };
    }
}


=ite <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6945	7150	
==>ession with $syms[CURR]\n";
	#	print CODE EXPRESSION;		# Evaluate the expression all queued up.
	#	ASSIGNMENT_FUNC($var);
	#	goto PARSE_NOFEED;
	#}

	if ($syms[CURR] eq "_startasm") {
		feedme;
		#$syms[CUR <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	27820	27930	
==>e(
          $para->[1]{'start_line'},
          "=back doesn't take any parameters, but you said =back $conten <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	437	538	
==>alarref we're reading from
  'source_arrayref',   # the arrayref we're reading from
);

#@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5088	5206	
==>{
  my $self = shift;
  my ($handler) = @_;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $self <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3151	3269	
==>{
  my $self = shift;
  my ($handler) = @_;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $self <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	2931	3074	
==>return shift->is('literal');       }
sub is_module        { return shift->is('module');        }
sub is_next          { return shift->is('next') <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6093	6321	
==>_load_bytecode(interpreter, {{\@1}});\n    {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6759	6987	
==>_load_bytecode(interpreter, {{\@1}});\n    {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9839	9949	
==>>require_value);
      my $op    = $self->require_infix_rel->text;
      my $right = Jako::Construct::Expressio <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25375	25485	
==>>require_value);
      my $op    = $self->require_infix_rel->text;
      my $right = Jako::Construct::Expressio <==
2	/Users/nnunley/parrot/tools/util/pirtidy.pl	521	642	
==>ormatter();

    foreach my $line (<$ifh>) {
      $formatter->add_pir( $line );
    }

    my $output = $formatter->get_f <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1203	1336	
==>urn () unless $self->{DEBUG};
    return () unless $self->{DEBUG_SUPPORT};
    return ("bsr $label");
}

############### SIMPLE OUTPUT <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104080	1104170	
==>erpreter, NULL, NO_CLASS,\n\t\t\t\t\"Class '%Ss' not found\", class);\n\t{{\@1}} = pmc_new_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105295	1105385	
==>erpreter, NULL, NO_CLASS,\n\t\t\t\t\"Class '%Ss' not found\", class);\n\t{{\@1}} = pmc_new_ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	2350	2505	
==>}

sub output_assign {
    my ($self, $var, $val) = @_;
    return "set $var, $val";
}

sub output_if {
    my $self = shift;
    my ($a, $cond, $b, $where) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	14644	14877	
==>k allowed.");
        }
      }

      #
      # 'if' blocks:
      #
      # Continuation of 'if' blocks happens by $continue being 'else'.
      #

      elsif ($peer_block->kind eq 'if' or $peer_block->kind eq 'unless') {
        m <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	10401	10541	
==>toms left in the input before looking at the next atom. This
# routine disables all of those checks. So you should call
# add_checks() to put <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563098	563445	
==>\@3}});\n  }\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addmethod",
                  "FLAGS <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	5498	5616	
==>branch}}{$category->($_)} }, $_ for @smokes;

  foreach my $branch (keys %branches) {
    foreach my $cat   (keys %{ $b <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	47570	47723	
==>input variable would be set to
"exit;" (i.e. I<after> the closing delimiter of the here document),
which would cause the earlier " || die;\nexit;" to be s <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	40674	40898	
==>_name ) {
        $ell->[1]{'section'} = Pod::Simple::LinkSection->new(
          ['', {}, @$section_name]
        );
        DEBUG > 3 and print "L-section content: ", pretty($ell->[1]{'section'}), "\n";
      }

      if( @ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	17594	17721	
==>y ($n, $c, $cmt) = @_;
    my $targ = "pc_$n";
    print <<EOC;
	goto $targ $cmt
EOC
}

sub JUMP_IF_FALSE
{
    my ($n, $c, $cmt <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804669	805137	
==>LAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 908,
                  "ARGS" => [
                              "p",
                              "kc",
                              "p"
                            ],
                  "BODY" => " <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	39602	39768	
==>red in that
              # tabs are at every EIGHTH column.  For portability, it has to be
              # one setting everywhere, and 8th wins.
              s/^([^\ <==
2	/Users/nnunley/parrot/config/auto/format.pm	81	206	
==>.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/format.pm - Sprintf Formats

=head1 DESCRIPTION

Figur <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5170	5301	
==>cially important on
        # some platforms
        if ($^O eq 'hpux' or $^O eq 'cygwin') {
            chmod 0755, "$dest/$_$LOAD_ <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5381	5512	
==>cially important on
        # some platforms
        if ($^O eq 'hpux' or $^O eq 'cygwin') {
            chmod 0755, "$dest/$_$LOAD_ <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	5556	5660	
==>less iter goto loop_end_2d
    value_type = typeof value
    if newline goto print_newline
    if value_t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50554	50883	
==>le",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 65,
                  "ARGS" => [
                              "ic"
                            ],
                  "BOD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210322	210592	
==>, {{\@1}}), {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211302	211572	
==>, {{\@1}}), {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19911	20093	
==>ent::_hint("The directive <autotree> was specified,
                                          so any production not ending
                                          in an explicit act <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	2459	2598	
==>$class, \%init) = \@_;\n";
    $out .= "    \$class = __PACKAGE__ unless \@_;\n";

    my $cnt = 0;
    my $idx = 0;
    my( $cmt, $name, $t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	725978	726071	
==>"BODY" => "#line 29 \"src/ops/set.ops\"\n  {{\@1}} = string_copy(interpreter, {{\@2}});\n  {{+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726740	726833	
==>"BODY" => "#line 29 \"src/ops/set.ops\"\n  {{\@1}} = string_copy(interpreter, {{\@2}});\n  {{+ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	14233	14334	
==>duction starts with $what. That means that the
					  production can never successfully match, so it w <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	217	326	
==>SKIP

=head1 SYNOPSIS

    % perl tools/dev/gen_manifest_skip.pl > MANIFEST.SKIP

=head1 DESCRIPTION

Goes thr <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	585	683	
==>efix. Defaults to ''.

=item C<prefix>

The install prefix. Defaults to '/usr'.

=item C<exec_prefi <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	814	912	
==>efix. Defaults to ''.

=item C<prefix>

The install prefix. Defaults to '/usr'.

=item C<exec_prefi <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	7891	7976	
==>arrot_jit_vtable_newp_ic_op Parrot_jit_normal_op

#define Parrot_jit_restart_op Parrot <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	9137	9348	
==>ng = ($lastback =>
                      $self->dbprint("failed to match $char at %<rx_pos>\n"),
                      aop('goto', [ $old_lastback ]));
    }
    push @ops, (
                     aop('match', [ $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	7601	7825	
==>, 'Regex::Ops::List')) {
        map {
            if ($_->{name} eq 'LABEL') {
                "$_->{label}: ";
            } else {
                $_->{name} . " " . join(", ", map { ref($_) ? $_->{label} : $_ } @{ $_->{ar <==
2	/Users/nnunley/parrot/lib/Test/More.pm	32783	32947	
==>g.
    # See [rt.cpan.org 6782]
    return eq_array(
           [sort { ref $a ? -1 : ref $b ? 1 : $a cmp $b } @$a1],
           [sort { ref $a ? -1 : ref $b ? 1 : $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2791	2945	
==>t, $val1, $val2, $dest) = @_;
    $val1 = value($val1);
    $val2 = value($val2);
    return "$test $val1, $val2, " . $self->output_label_use($dest);
}

su <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	427	518	
==>@@@@@@@@@@@@@@@@@@@@@@

sub _handle_element_start {
  # ($self, $element_name, $attr_hash_r) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	426	517	
==>@@@@@@@@@@@@@@@@@@@@@@

sub _handle_element_start {
  # ($self, $element_name, $attr_hash_r) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93904	94124	
==>"CODE" => 116,
                  "ARGS" => [
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 58 \"src/ops/bit.ops\"\n  string_bitwise <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	48272	48395	
==>') eq 'CODE';

  Carp::croak "But $class->_duo takes two parameters, not: @_"
   unless @_ == 2;

  my(@out);
  
  while( @_ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76748	76850	
==>::RD_TRACE+10<length($_[0]))
	{
		my $count = length($_[0]) - $::RD_TRACE;
		return substr($_[0],0,$::R <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77059	77161	
==>::RD_TRACE+10<length($_[0]))
	{
		my $count = length($_[0]) - $::RD_TRACE;
		return substr($_[0],0,$::R <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	13328	13530	
==>. "  ") foreach (@children);
    } else {
        print $ref, "\n";
    }
}

sub annotated {
    my ($op, $str) = @_;
    my $min = $op->minlen();
    my $max = $op->maxlen();
    $max = "INF" if ! defin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93301	93392	
==>ine 58 \"src/ops/bit.ops\"\n  string_bitwise_and(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94081	94172	
==>ine 58 \"src/ops/bit.ops\"\n  string_bitwise_and(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684038	684379	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684932	685273	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1299	1449	
==>t $fh $ATTR_PAD, $key, '="', $value, '"';
      }
    }
  }
  print $fh ">";
  return;
}

sub _handle_text {
  DEBUG and print "== \"$_[1]\"\n";
  if(l <==
2	/Users/nnunley/parrot/tools/build/revision_c.pl	292	402	
==>and config rev number of last
Parrot configure run.

=head1 SEE ALSO

F<config/gen/revision.pl>,
F<lib/Parrot/R <==
2	/Users/nnunley/parrot/examples/benchmarks/arriter.pl	682	940	
==>H I J )
for my $e (0..3) {
    for ($i = 0; $i < 10; $i++) {
	for $s (@k) {
	    my $nk = $s . chr(65 + $i);
	    push @nk, $nk;
	}
    }
    @k = @nk;
    @nk = ();
}

my $j = 0;
for $s (@k) {
    ++$j;
    $ha{$s} = 1;
}
print scalar(@k), "\n";
print "$j\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5514	5615	
==>h($base)>

Returns the C code following the run core function.

=cut

sub run_core_finish
{
    my ($s <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3850	3951	
==>h($base)>

Returns the C code following the run core function.

=cut

sub run_core_finish
{
    my ($s <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12238	12343	
==>Macro: SUPER
      \(\s*(.*?)\)      # capture argument list
     /"Parrot_${1}_$method(" . full_arguments <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	13829	13940	
==>++;
		} else {
			my($op1,$op2)=(pop @work, pop @work);
			my($a1, $a2, $ot1, $ot2);
			$ot1=$ot2=$optype;
			$a <==
2	/Users/nnunley/parrot/config/auto/memalign.pm	1801	1925	
==>n => $f);
    print($test ? " (Yep:$f) " : " (no) ") if $verbose;
    $self->set_result($test ? 'yes' : 'no');

    return $s <==
2	/Users/nnunley/parrot/config/auto/byteorder.pm	249	357	
==>'s wordsize.

=cut

package auto::byteorder;

use strict;
use vars qw($description @args);

use Parrot::Confi <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	20333	20454	
==>l++;
	$cmt ="\t\t# $opcode\t $rest";
	if ($rest =~ /to (\d+)/) {
	    $targ = "pc_$1";
	}
	$op = $op_map{$c};
    }
    el <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101856	102110	
==>terpreter, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102627	102881	
==>terpreter, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	5594	5702	
==>}
    Parrot_loadbc(interpreter, pf);

    /* setup P0, stolen from embed.c */
    userargv = pmc_new(interpr <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2971	3224	
==>return shift->{LINE};     }


#
# compile()
#

sub compile
{
  my $self     = shift; # Required
  my $compiler = shift; # Required
  my $options  = shift; # Optional

  my $name  = $self->name;

  if ($self->block->kind eq 'module') {
    $name = $self-> <==
2	/Users/nnunley/parrot/config/inter/types.pm	668	834	
==>loatval = $conf->options->get('floatval') || 'double';
    my $opcode   = $conf->options->get('opcode')   || 'long';

    if ($conf->options->get('ask')) {
        $in <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	1633	1843	
==>an I register

=item i

Parameter is an int

Taken from an I register

=item l

Parameter is a long

Taken from an I register

=item f

Paramter is a float

Taken from an N register.

=item d

Parameter is a dou <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	13745	13943	
==>p($include, lc("$parent.pmc"))
                if not $all->{$parent};

            $class->{has_parent}{$parent} = { %{$all->{$parent}{has_method} }};
            push @todo, $parent;
            pu <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	21740	21847	
==>'range', 5,
sub
#line 157 "lib/Regex/Grammar.y"
{ return { min => $_[2], max => -1 }; }
	],
	[#Rule 33
		 'n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761507	761766	
==>);\n    REG_PMC({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762360	762619	
==>);\n    REG_PMC({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4984	5085	
==>pe_short"]
${STACK0} = concat ${STEMP1}
${STACK0} = concat "0"

# Emit pop code.
${INS} = concat ${STA <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	2630	2800	
==>pe eq 'HASH' ){
        $out .= "    my(\$r) = {};\n";
        $cmt = '';
    }
    elsif( $base_type eq 'ARRAY' ){
        $out .= "    my(\$r) = [];\n";
    }
    while( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731747	732030	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 821,
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736236	736519	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 827,
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742305	742807	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 835,
                  "ARGS" => [
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 174 \"src/ops/set.ops\"\n  {{\@1}} = string_from_int(interpreter, {{\@2}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743836	744163	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 837,
                  "ARGS" => [
                              "s" <==
2	/Users/nnunley/parrot/lib/Test/More.pm	8653	8759	
==>these cases, use ok().

  ok( exists $brooklyn{tree},    'A tree grows in Brooklyn' );

For those grammatic <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749974	750257	
==>> "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 845,
                  " <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2079	2244	
==>ys be the file block at the time subs are declared). We fill in the
  # IDENT entry within the block.
  #

  $sym = Jako::Symbol->new(
    $self->block,
    'global', <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570885	571143	
==>ARGS" => [
                              "i",
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 223 \"src/ops/object.ops\"\n    PMC *class = Parrot_class_lookup_p(interpreter <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	1485	1650	
==>>encoding, $_->type,
            $_->size, $_->data);

	$constant_num++;
    }
}


#
# compile_byte_code()
#

my @args = ();

sub compile_byte_code {
    my ($pf, $fi <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5935	6037	
==>ng it is unconditional, so next instruction needs to
	# have an empty stack type state propogated to it <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3873	3975	
==>ng it is unconditional, so next instruction needs to
	# have an empty stack type state propogated to it <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806056	806163	
==>s/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806962	807069	
==>s/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	6	109	
==>re 5;
package Pod::Simple::LinkSection;
  # Based somewhat dimly on Array::Autojoin

use strict;
use Pod <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	27620	27724	
==>use the fallback(s), which might be '0', or '1'.
      $self->{'accept_codes'}{$new_letter}
        = (@f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	602309	602741	
==>ass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 682,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 3 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600655	601075	
==>ass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 680,
                  "ARGS" => [
                              "p",
                              "kc"
                            ],
                  "BODY <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	8661	8969	
==>ced {} can be used in them in PMCs, being careful to
    # preserve string length.
    local $_ = $code;
    s[
        ( ' (?: \\. | [^'] )* '     # remove ' strings
        | " (?: \\. | [^"] )* "     # remove " strings
        | /\* .*? \*/ )             # remove C comments
    ]
    [ "-" x length $1 ]se <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24976	25080	
==>$closure, 'Text::Balanced::Extractor';
}

package Text::Balanced::Extractor;

sub extract($$)	# ($self, $ <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	3359	3462	
==>$desc) ?? $desc !! "The object is-a '$expected_type'";
    my $test := $ref.isa($expected_type);
    Tes <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8967	9070	
==>f = shift;
    my $path = shift || return;
    my ($volume, $directories, $name) = File::Spec->splitpath <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9366	9469	
==>f = shift;
    my $path = shift || return;
    my ($volume, $directories, $name) = File::Spec->splitpath <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	11290	11448	
==>the delete fails.

=cut

sub delete_contents
{
    my $self = shift;

    foreach my $file ($self->files)
    {
        $file->delete;
    }
    
    foreach m <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	79	201	
==>/build/pmc2c.pl 19607 2006-05-30T15:23:20.183054Z coke  $

=head1 NAME

tools/build/pmc2c.pl - PMC definition to C compiler <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	9803	9929	
==>g_num, $temp_cnt_ref, $temps_ref,
        $extra_preamble_ref, $extra_postamble_ref) = @_;

    local $_ = $argtype;
    my $te <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	9359	9483	
==>h
cprojf      complex.h
cprojl      complex.h
creal       complex.h
crealf      complex.h
creall      complex.h
csin        c <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	842	940	
==>nien, all rights reserved.
# (see the pod text in Parse::Yapp module for use and distribution righ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	818	915	
==>nien, all rights reserved.
# (see the pod text in Parse::Yapp module for use and distribution righ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	14779	14944	
==>p = $I0
    gen_pir = concat tmp
    gen_pir = concat "\n"
NOT_TRY_START:

    # If this is the start of a typed exception handler...
    handler_offset = eh.get_hand <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	35442	35673	
==>LICE_plus_3 {
    return Del_Slice(@_, 3);
}
sub DELETE_FAST {
    my ($n, $c, $cmt) = @_;
    print <<EOC;
	\t $cmt
EOC
}

sub IMPORT_NAME {
    my ($n, $c, $cmt) = @_;
    pop @stack;
    print <<EOC;
	\t $cmt XXX
EOC
}
sub IMPORT <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	1613	1719	
==>pflags' => $ccflags;
    $c->set('includeDirs' => \@incdirs);
    $/="\n";  # i don't know why, but this is <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10725	10822	
==>AMS}[${ITEMP0}] = ${STEMP0}

# Next parameter.
dec stack_depth
goto pre_call_PLOOP_${CURIC}
PRE_CA <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7978	8075	
==>AMS}[${ITEMP0}] = ${STEMP0}

# Next parameter.
dec stack_depth
goto pre_call_PLOOP_${CURIC}
PRE_CA <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	9991	10096	
==>"(" and $type[CURR] ne "STRING") {
			push(@expr, [ "(", "PUN" ]); # Make sure no-arg funcs have at
			pus <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5184	5294	
==>n("$OPS2C $_ --dynamic $oplib.ops")
	          or die "ops2c code generation failed ($?)\n";
		}
	}
}

sub comp <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	935	1040	
==>@_;

    my $count = $pf->const_table->const_count;

    if ($count < 1) {
	warn "Disassembling without op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421298	421595	
==>"bind",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422190	422487	
==>"bind",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
2	/Users/nnunley/parrot/config/auto/gc.pm	715	828	
==>re::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining what allocator to use';

# val <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	58219	58367	
==>ountered: \"$code\"",
					       $line);
					_hint("Did you misspell \"$code\"
						   or forget to comment it out?");
				}
			}
		}
		elsif ($gr <==
2	/Users/nnunley/parrot/examples/benchmarks/arriter.pl	273	698	
==>r.pl

=head1 DESCRIPTION

Sets up an array and then loops over its contents, incrementing a
variable and setting hash values.

=cut

use strict;
use warnings;

use Data::Dumper;

# declaration of lexicals
my (%ha, , $i, @k, @nk, $s);

# same as @k = qw( A B C D E F G H I J ); 
for ($i = 0; $i < 10; $i++) {
    $s = chr(65 + $i);
    push @k, $s;
}


# set up all 5 element permutations of qw( A B C D E F G H I J )
for my $e <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7373	7497	
==>)	       ? $options{ignore}
		    :					 ''
		    ;

	if (!defined $ldel) { $ldel = '<\w+(?:' . gen_delimited_pat(q{'"}) . '| <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24375	24499	
==>)	       ? $options{ignore}
		    :					 ''
		    ;

	if (!defined $ldel) { $ldel = '<\w+(?:' . gen_delimited_pat(q{'"}) . '| <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	130	250	
==>ernhard  $

=head1 NAME

Parrot::Docs::Section::Languages - Languages documentation section

=head1 SYNOPSIS

    use Par <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	1473	1688	
==>xt =~ s[^/\*.*?\*/][]mxsg;

    # Strip # compiler directives (Thanks, Audrey!)
    $text =~ s[^#(\\\n|.)*][]mg;

    # Strip code blocks
    $text =~ s[^{.+?^}][]msg;

    # Split on paragraphs
    my @funcs = split <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	1354	1471	
==>nkflags => '-L/sw/lib');
            $conf->data->add(' ', ldflags   => '-L/sw/lib');
            $conf->data->add(' ' <==
2	/Users/nnunley/parrot/config/auto/readline.pm	1443	1560	
==>nkflags => '-L/sw/lib');
            $conf->data->add(' ', ldflags   => '-L/sw/lib');
            $conf->data->add(' ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209023	209340	
==>PE" => "function",
                  "CODE" => 246,
                  "ARGS" => [
                              "p",
                              "nc",
                              "ic"
                            ],
                  "BODY" => "#line 401 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(inter <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	10092	10199	
==>at the earlier one went okay
    } else {
      $enc_error = "Encoding is already set to " . $self->{'encodi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920991	921079	
==>316 \"src/ops/string.ops\"\n    {{\@1}}=Parrot_psprintf(interpreter, {{\@2}}, {{\@3}});\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921884	921972	
==>316 \"src/ops/string.ops\"\n    {{\@1}}=Parrot_psprintf(interpreter, {{\@2}}, {{\@3}});\n <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	31371	31499	
==>EOC
}
sub POP_BLOCK
{
    my ($n, $c, $cmt) = @_;
    if (@loops) {
	my $pc = pop @loops;
	print <<EOC;
	# $pc  $cmt
	clear_eh
EO <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	7819	8112	
==>='$kw'\n";
		    $func_info{$cur_f}{'args'} = $args;
		    $func_info{$cur_f}{'ar'} = $ar;
		    $func_info{$cur_f}{'kw'} = $kw;
		    #if ($cur_f =~ /^Build::(\w+)/) {
		    # $classes{$cur_f} = 1;
		    # }
		}
		elsif (/# flags\s+(\S*)/) {
		    my $f = eval($1);
		    $func_info{$cur_f}{fl <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	1787	1889	
==>akefile.in" or die "Unable to open config/Makefile.in\n";
	my $makefile = join('', <$fh>);
	close $fh <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	1948	2139	
==>ug\b/ )
    {
        $ENV{TEST_PROG_ARGS} .= " --gc-debug";
    }
}

sub get_files
{
    my %options = @_;

=pod

Conformant to a recent post on p6i, if called with a single argument of
C<--f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787970	788063	
==>{{\@1}} = {{\@2}}->vtable->get_number_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788880	788973	
==>{{\@1}} = {{\@2}}->vtable->get_number_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\ <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	713	838	
==>de "languages/lua/lib/luadebug.pir"

.sub __start :main
#  print "start Lua\n"
  init_basic()
  init_coroutine()
  init_ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19887	20030	
==>)
		and
		Parse::RecDescent::_hint("The directive <autotree> was specified,
                                          so any production not endi <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	2818	2992	
==>yntax error at line $line_count\n";

        # Have we got a non-blank line in an unimplemented method?
        } elsif ($cur_method->{'unimplemented'}) {
            die "Uni <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	4253	4396	
==>XX) noticed.");
        }
    }
}


sub check_cuddled_else {
    my ($file, $source) = @_;

    my $line = 0;
    foreach (@$source) {
        $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227439	227703	
==>, {{\@1}}), {{\@2}}) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228419	228683	
==>, {{\@1}}), {{\@2}}) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	46365	46546	
==>SG' || die;
        This is the message.
        EOMSG
	exit;

Given this as an input string in a scalar context, C<extract_quotelike>
would correctly return the string "<<'EOMSG'\nT <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	34314	34465	
==>t I<within> the substring is also matched by an opposite
(right or left) delimiter bracket I<at the same level of nesting>. Any
type of bracket not in t <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	40771	40888	
==>---------------

sub __max_lengths {
  my $colref = shift;
  my @max_len=(0)x3;
  for my $row(@$colref) {
    for(0..$ <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3177	3276	
==>nings;

use vars qw(@ISA %pmc_types @EXPORT_OK);

@ISA = qw( Exporter );
@EXPORT_OK = qw( %pmc_types <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	121	220	
==>nings;

use vars qw(@ISA %pmc_types @EXPORT_OK);

@ISA = qw( Exporter );
@EXPORT_OK = qw( %pmc_types <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37494	37584	
==>f defined $::RD_TRACE;').'
		$Parse::RecDescent::lastexpected = ' . ($rule->hasleftmost($se <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39897	39987	
==>f defined $::RD_TRACE;').'
		$Parse::RecDescent::lastexpected = ' . ($rule->hasleftmost($se <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	411	506	
==>r\n";
}
sub post_translation {
	die "post_translation not implemented for current stack to regis <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	2586	2681	
==>el(?:[^$del]*(?:(?:$del$del)[^$del]*)*)$del";
		}
		else
		{
			push @pat, "$del(?:[^$esc$del]*( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956966	957263	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "find_encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957870	958167	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "find_encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fu <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2011	2159	
==>{STEMP0} = concat ${STEMP1}
${STEMP1} = "$register_num"
${STEMP0} = concat ${STEMP1}
${DEST$push_num} = ${STEMP0}

# Increment dtypes index.
inc ${IT <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	3723	3857	
==>sk));

    my $n = 0; # step number
    foreach my $task ($self->steps) {
        my $step_name   = $task->step;
        my @step_param <==
2	/Users/nnunley/parrot/lib/Test/More.pm	97	220	
==>ht cause use_ok() to accidentally succeed
# even though the module being used forgot to use Carp.  Yes, this
# actually happ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860323	860579	
==>" => 976,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 118 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6457	6560	
==>ue($reg);
    return qq!set $reg, <rx_match>["$group";1] # get group $group end!;
}

sub output_delete { <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8724	8809	
==>,$c,$d,$a,$_[15],22,0x895cd7be,/* 12 */
FF,$a,$b,$c,$d,$_[16],7,0x6b901122,/* 13 */
FF <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1586	1690	
==>d';
    unshift @_ => ( ref $pattern
        ? Parrot::Test::PGE::_generate_subrule_pir($target, $pattern <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2109	2213	
==>d';
    unshift @_ => ( ref $pattern
        ? Parrot::Test::PGE::_generate_subrule_pir($target, $pattern <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351012	351237	
==>NTVAL_FMT, (INTVAL){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351674	351899	
==>NTVAL_FMT, (INTVAL){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
2	/Users/nnunley/parrot/config/auto/signal.pm	805	934	
==>t_result('skipped');
        return $self;
    }

    cc_gen('config/auto/signal/test_1.in');
    eval { cc_build(); };
    unless <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/EditorPlugins.pm	311	453	
==>TION

A documentation section describing Parrot-related editor plugins.

=head2 Class Methods

=over

=cut

package Parrot::Docs::Section::Edit <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8746	8850	
==>ath);
}

=item C<path_for_directory_with_relative_path($path)>

Returns the path for the subdirectory wit <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6992	7112	
==>mit code to pop the register.
${INS} = concat ${STEMP0}
${INS} = concat " = pop s\n"

# Next parameter.
goto pre_call_PLO <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	10987	11095	
==>($N2)
zero_LHS:
    if op2 < 0 goto neg_RHS
    .return(op2) 
neg_RHS:
    %% DOMAIN_ERROR %%
.end

.sub 'mon <==
2	/Users/nnunley/parrot/languages/converter.pl	1679	1794	
==>tion# mod(?)
#		{[@item]}
		{ my $lhs = ::strip_quotes($item[1]);
		  my $rhs = ::strip_quotes($item[3]);
		  "/[$lh <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	17266	17375	
==>e you can parse anything.  The lowest-level
way is to call C<set_source>:

=over

=item $parser->set_source( $ <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	158	260	
==>currently alarmingly similar to the generated subs in Parrot::Test.
Perhaps someone can do a better job <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	256	358	
==>currently alarmingly similar to the generated subs in Parrot::Test.
Perhaps someone can do a better job <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76680	76796	
==>D_TRACE
	    && $::RD_TRACE =~ /\d+/
	    && $::RD_TRACE>1
	    && $::RD_TRACE+10<length($_[0]))
	{
		my $count = len <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76991	77107	
==>D_TRACE
	    && $::RD_TRACE =~ /\d+/
	    && $::RD_TRACE>1
	    && $::RD_TRACE+10<length($_[0]))
	{
		my $count = len <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	34587	34699	
==>ce(@_, 2);
}
sub STORE_SLICE_plus_3 {
    return Store_Slice(@_, 3);
}

sub DELETE_SLICE_plus_0 {
    my ($n, $c, <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1938	2065	
==>Please recompile parser module.";

        ref($class)
    and $class=ref($class);

    bless($self,$class);
}

sub YYPa <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1871	1990	
==>Please recompile parser module.";

        ref($class)
    and $class=ref($class);

    bless($self,$class);
}

sub YYPa <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2455	2558	
==>. While we kinda find
	# basic blocks, we don't discover backward branches until late to do
	# otherwise <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1033	1136	
==>. While we kinda find
	# basic blocks, we don't discover backward branches until late to do
	# otherwise <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	615	743	
==>S => { map { $_ => 0 } (0..31) },
    P => { map { $_ => 0 } (0..31) },
  };
};

sub _save {
  my $self  = shift;
  my $count = s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	18494	18616	
==>= @_;

    my ($loop, $back, $local_back, $check, $next) =
     map { $self->genlabel("gr_$_") } qw(loop back local_back ch <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3639	3742	
==>xtContent>, L<Pod::Text>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All right <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1057	1159	
==>y $path_to_parrot = Parrot::Test::path_to_parrot();
        my $dir_count      = scalar(File::Spec->spl <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1547	1644	
==>y $path_to_parrot = Parrot::Test::path_to_parrot();
        my $dir_count = scalar(File::Spec->spl <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	12897	13053	
==>_table {
  return <<'END';  # text font, code font, heading font
{\fonttbl
{\f0\froman Times New Roman;}
{\f1\fmodern Courier New;}
{\f2\fswiss Arial;}
}

EN <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64678	64766	
==>p *)PMC_data({{\@1}});\n  Interp_flags_SET(new_interp, PARROT_EXTERN_CODE_FLAG);\n  new_i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65629	65717	
==>p *)PMC_data({{\@1}});\n  Interp_flags_SET(new_interp, PARROT_EXTERN_CODE_FLAG);\n  new_i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196404	196517	
==>/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_NUMCMP) < 0) {\n    {{+={{\@3}}}};\n  } <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5570	5842	
==>um/$register_num/g;
		$register_num++;
	}

    # Need to emit code to do any lazy moves that we've not done.
    $pir .= _do_lazy_moves('_${CURIC}');

	# Return generated code.
	return $pir;
}

sub post_branch($) {
	my $self = shift;
	my $pops = shift;
	my $pir = '';

	# B <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43220	43482	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pushmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43863	44125	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pushmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "in <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	12575	12724	
==>$optype="P";
				}
				push @code, qq{\t\$$optype$retcount = _ARRAY_LOOKUP_$optype("$extern$seg",$ac$pir_args)};
				push @work, [ "result of $extern( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	377	601	
==>king point that
# can be returned to within the processing of the current $op to fix
# up the partial state and possibly attempt another match, or just
# abort and return to $lastback.
#

sub new {
    my ($proto, %options) = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3577	3678	
==>ERROR("Sub declaration has no fnlib property, and parent block is not a module!")
        unless $self <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6241	6342	
==>ERROR("Sub declaration has no fnlib property, and parent block is not a module!")
        unless $self <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	13639	13897	
==>}
				}
				if (@return_params) {
					push @code, sprintf ($calling_code, join(",",@return_params));
				} else {
					push @code, sprintf ($calling_code, '');
				}
			}
					
			$retcount++;
		} else {
			my($op1,$op2)=(pop @work, pop @work);
			my($a1, $a <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26068	26256	
==>ush @opcodes, new BranchUnlessOp( $parser,
            'arg1'   => $cond->[0],
            'result' => $l_next,
        );
        push @opcodes, @{ $elseif->[1] };
        push @opcod <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	25584	25766	
==>ush @opcodes, new BranchUnlessOp( $parser,
        'arg1'   => $cond->[0],
        'result' => $l_next,
    );
    push @opcodes, @{$then};
    push @opcodes, new BranchOp( $pars <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74035	74158	
==>AN ARRAY OF MATCHES
{
	my ($parser, $text, $prod, $min, $max, $_noactions, $argcode) = @_;

	my @tokens = ();
	my $reps;
	my <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	319	440	
==>:Construct::Block::Module;

use Carp;

use Jako::Compiler;

use base qw(Jako::Construct::Block);

sub kind { return 'modul <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	11809	12066	
==>);
        my $op_size = $op->size;
        my $jumps = "0";

        #
        # Macro substitutions:
        #
        # We convert the following notations:
        #
        #   .ops file          Op body  Meaning       Comment
        #   --------------- <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	35401	35581	
==>next_pc + I_arg_0
ss = clone stypes
ss_propogate[sp_dest] = ss
PIRCODE
        }

		# Finally, call post_branch and append code it generates.
		my $post_branch = $srm->post_branch($ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25864	26075	
==>ight);
      }

      push @{$self->{BLOCKS}}, $cond;
      next;
    }

=begin commented_out

    #
    # Bare Blocks:
    #
    #   <label>: {
    #   {
    #

    if ($token->is_open_brace) {
      my $label = <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	5263	5415	
==>intf("Of these, %d are not defined by ANSI C89:\n", scalar(@non_ansi_external_calls));
    
    foreach (@non_ansi_external_calls) {
        print "    $ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23317	23434	
==>eturn;
  my $label = $self->_gensym();

  $return = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{childr <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23779	23896	
==>eturn;
  my $label = $self->_gensym();

  $return = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{childr <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11228	11368	
==>n(scalar @args, @args);
}
sub optype_of {
	my($func, $extra)=@_;
	if ($extra and $extra->[2] eq "STRING") {
		return "S";
	}
	if ($func=~/\$$ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	35208	35316	
==>placed by an empty string.)

Likewise the call in:

	@result = extract_bracketed( $text, '{[' );

would retur <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24735	24838	
==>del, $rdel, $omode, $bad, $ignore);

		return _fail(wantarray, $textref) unless @match;
		return _succee <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7569	7670	
==>del, $rdel, $omode, $bad, $ignore);

	return _fail(wantarray, $textref) unless @match;
	return _succee <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3769	3868	
==>NTAX_ERROR("Sub declaration has no fnlib property, and parent module has no fnlib property either!") <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6433	6532	
==>NTAX_ERROR("Sub declaration has no fnlib property, and parent module has no fnlib property either!") <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	7408	7511	
==>use empty-string as a source for set_source");
  } elsif(ref(\( $_[0] )) eq 'GLOB') {
    $self->{'sourc <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	11237	11424	
==>, $flags, $nolines)>

Returns a new C<Parrot::Op> instance for the specified arguments.

=cut

sub make_op
{
    my ($self, $code, $type, $short_name, $body, $args, $argdirs,
        $line <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38377	38521	
==>. ']<< (}
					. @$_tok . q{ times)},
					  
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{"name"} .'})
						if defined $: <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2703	2870	
==>ch($) {
	my $self = shift;
	my $pops = shift;
	my $register_num = 0;
	
	# Emit initial code.
	my $pir = <<'PIR';
# Get current stack types array size.
${ITEMP0} = eleme <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563925	564016	
==>\"src/ops/object.ops\"\n  VTABLE_add_method(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564823	564914	
==>\"src/ops/object.ops\"\n  VTABLE_add_method(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+= <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	433	540	
==>core

    % perl tools/build/ops2c.pl C --dynamic myops.ops

=head1 DESCRIPTION

This script uses a supplied <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Transcode.pm	355	488	
==>print "About to try loading $class...\n";
  eval "require $class;";
  if($@) {
    DEBUG and print "Couldn't load $class: $@\n";
  } e <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	864	966	
==>f.  This will also trigger any hints-file
    # callbacks that depend on knowing whether or not we're u <==
2	/Users/nnunley/parrot/config/auto/msvc.pm	800	902	
==>f.  This will also trigger any hints-file
    # callbacks that depend on knowing whether or not we're u <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	294154	294360	
==>i",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 945 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30268	30440	
==>ack types array.
		$pir .= "    stypes = push loadtype\n";

        # Emit code to clone value types for the need_dest set case.
        if ($need_dest) {
            my $la <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3970	4085	
==>t fails for both it returns 'Undefined'.

=cut

sub type
{
	my $self = shift;
	my $type = $self->type_for_suffix($se <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	5344	5493	
==>EMP_pmc_o           => $TEMP_pmc_o,
        TEMP_pmc_build       => $TEMP_pmc_build,
        TEMP_pmc_classes_o   => $TEMP_pmc_classes_o,
        TEMP <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11356	11458	
==>_${CURIC}:

# Finished.
goto PRE_CALL_END_${CURIC}

# It's a return. See if we have a return value.
PRE <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8542	8644	
==>_${CURIC}:

# Finished.
goto PRE_CALL_END_${CURIC}

# It's a return. See if we have a return value.
PRE <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1645	1774	
==>{shift->{PROPS}};  }
sub args      { return @{shift->{ARGS}};   }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($comp <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	17101	17270	
==>ext_load_code($classname, $classname => {});
}

=item C<pmc_is_dynpmc>

Determines if a given PMC type is dynamically loaded or not.

=cut

sub pmc_is_dynpmc {
    # sure <==
2	/Users/nnunley/parrot/tools/docs/write_docs.pl	405	574	
==>rot::Docs::Section::Parrot;

my ($silent, $delete);

die unless GetOptions('silent' => \$silent, 'delete' => \$delete);

my $docs = Parrot::Docs::Section::Parrot->new;

$ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8560	8698	
==>OTOS}{$lhs}.\n";

#DBG>				$debug & 0x10
#DBG>			and	$dbgerror
#DBG>			and	$$errstatus == 0
#DBG>			and	do {
#DBG>				print STDERR "* <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8174	8306	
==>OTOS}{$lhs}.\n";

#DBG>				$debug & 0x10
#DBG>			and	$dbgerror
#DBG>			and	$$errstatus == 0
#DBG>			and	do {
#DBG>				print STDERR "* <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16183	16472	
==>) {
        $result = $idf->[0];
        push @opcodes, @{ $idf->[1] };
    }
    else {
        my $defn = $parser->YYData->{symbtab}->Lookup($idf);
        if ( defined $defn ) {
            $result = $defn;
        }
        else {
            $defn = $parser->YYData->{symbtab <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	48903	49074	
==>_formatting_code and end_formatting_code methods, which in the
base class call start_L, end_L, start_C, end_C, etc., if they are
defined.

have the POD FORMATTING ERRORS se <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	160	256	
==>up - Group of documentation items

=head1 SYNOPSIS

	use Parrot::Docs::Group;

=head1 DESCRIPTION <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8127	8259	
==>$self->require_ident->text;
      
        my $value;

        if ($self->skip_assign) {
          $value = Jako::Construct::Expressi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5133	5259	
==>$self->require_ident->text;

        my $value;

        if ($self->skip_assign) {
          $value = Jako::Construct::Expressi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	12530	12709	
==>|| <rx_match>{'$uid'});
# \$rx_pos = \$$uid\->{'!POS'};
# END
#     }
}

sub output_call_result {
    my ($self, $uid, $name, $fail) = @_;
    my $fail_label = $self->output_label_ <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4373	4581	
==>',
            blib_dir             => 'blib\\lib',
            ccflags              => $ccflags,
            ccwarn               => '',
            has_dynamic_linking  => 1
        );

        # 'link' need <==
2	/Users/nnunley/parrot/config/auto/jit.pm	873	975	
==>e path for jit sources
    my $archname = $Config{archname};
    my ($cpuarch, $osname) = split(/-/, $a <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1102	1199	
==>f->ident->kind eq 'var') and ($self->ident->scope eq 'global')) {
    my $pmc_type = $self->ident- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1096	1193	
==>f->ident->kind eq 'var') and ($self->ident->scope eq 'global')) {
    my $pmc_type = $self->ident- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510161	510348	
==>" => [
                              "p"
                            ],
                  "BODY" => "#line 675 \"src/ops/math.ops\"\n  {{\@1}}->vtable->i_neg(interpreter, {{\@1}});\n  {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938291	938602	
==>"TYPE" => "function",
                  "CODE" => 1055,
                  "ARGS" => [
                              "s",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 481 \"src/ops/string.ops\"\n    {{\@1}} = string_join(in <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	23803	23947	
==>index -> junk or lastback
#               goto R.back
#
sub rewrite_nongreedy_plus {
    my ($self, $op, $R, $lastback) = @_;

    my $back = $se <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8341	8511	
==>s{$prop} = $value;
      }

      #
      # Require there to be a formal arguments list:
      #

      $self->require_open_paren;

      my @formal_args;

      unless ($ <==
2	/Users/nnunley/parrot/config/inter/progs.pm	2345	2472	
==>flags');

    # Remove some perl5-isms.
    $ccflags =~ s/-D((PERL|HAVE)_\w+\s*|USE_PERLIO)//g;
    $ccflags =~ s/-fno-strict-al <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	1650	1775	
==>4

=item F<tools/build/ops2pm.pl>

=item C<Parrot::OpsFile>

=item C<Parrot::Op>

=item C<Parrot::OpTrans>

=item C<Parrot::Op <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11983	12083	
==>filter(shift)->errors_seen" \
   thingy.pod


=head1 DESCRIPTION

This class is for TODO.
This is a s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2416	2514	
==>ument (%s)!", $formal_arg_name) 
      unless defined $formal_arg_type;

    $self->INTERNAL_ERROR( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2116	2214	
==>ument (%s)!", $formal_arg_name) 
      unless defined $formal_arg_type;

    $self->INTERNAL_ERROR( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	302825	303032	
==>i",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 980 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter, {{\@2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	379701	380238	
==>> "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 444,
                  "ARGS" => [
                              "i",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 432 \"src/ops/io.ops\"\n  {{\@1}} = Parr <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1050	1161	
==>Test::run_command( 
            "$PConfig{perl} languages/scheme/schemec languages/$lang_f",
            CD => ' <==
2	/Users/nnunley/parrot/config/auto/pack.pm	1021	1161	
==>&& ($size == $Config{longsize})) {
            $format = 'l!';
        } elsif ($size == 4) {
            $format = 'l';
        } elsif ($si <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	44395	44548	
==>. . . . . . . . . . . . . . . . . . . .

sub _treat_Ss {
  my($self,$treelet) = @_;
  
  _change_S_to_nbsp($treelet,0) if $self->{'nbsp_for_S'};

  # TODO <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	7722	7832	
==>me
{
    my $self = shift;
    my $path = $self->path_for_directory_with_name(shift) || return;
    
    return <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8269	8379	
==>me
{
    my $self = shift;
    my $path = $self->path_for_directory_with_name(shift) || return;
    
    return <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	529	618	
==>VerbatimFormatted');
  return $new;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1802	1895	
==>}

sub start_over_bullet  { ++$_[0]{'Indent'} }
sub start_over_number  { ++$_[0]{'Indent'} }
s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1370	1463	
==>}

sub start_over_bullet  { ++$_[0]{'Indent'} }
sub start_over_number  { ++$_[0]{'Indent'} }
s <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	21547	21678	
==>_\n" foreach @exports;
        close $fh;
    }

    # Generate .def file for groups.
    for my $group (keys %groups) {
        # G <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	7299	7484	
==>'arg1'   => $fct,
                    'arg2'   => [ $result, $num_key, $callop->{result}[0] ],
                );
                push @opcodes2, new NoOp($parser);
                p <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22019	22166	
==>tart_line'},
          "'=end $content' is invalid.  (Stack: "
          . $self->_dump_curr_open() . ')'
        );
        DEBUG and print "Ignori <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50114	50205	
==>ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_PROFILE_FLAG); } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50907	50998	
==>ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_PROFILE_FLAG); } <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	412	546	
==>tional);

#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $left, $op, $right) = @_;

  confess "Block is not defined!" unless <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	424	558	
==>tional);

#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $left, $op, $right) = @_;

  confess "Block is not defined!" unless <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	26991	27097	
==>.= $self->{const}->methods($l, $out_name);
        $cout .= $self->{const}->init_func;
    }
    $cout .= $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	554	671	
==>rld
    $_[1] =~ tr/\xAD//d;
    $_[1] =~ tr/\xA0/ /;
  }
  print {$_[0]{'output_fh'}} $_[1];
  return;
}

sub _handle <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18769	18906	
==>lf->get(1)->is_close_paren;
          $self->require_comma;
        }
      }

      $self->require_close_paren;
      $self->require_semi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19795	19932	
==>lf->get(1)->is_close_paren;
          $self->require_comma;
        }
      }

      $self->require_close_paren;
      $self->require_semi <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21481	21585	
==>return $return;
}

sub _op_positive_p {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gens <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	38071	38237	
==>ating Data paragraph as Plain/Verbatim because the containing =for ($fors[-1][1]{'target'}) is a resolver\n";
              $para->[0] = 'Para';
              $para_ty <==
2	/Users/nnunley/parrot/lib/File/Which.pm	1984	2089	
==>Spec->path();
    unshift @path, File::Spec->curdir if $Is_DOSish or $Is_VMS or $Is_MacOS;

    for my $ba <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356052	356294	
==>sed);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print <==
2	/Users/nnunley/parrot/config/auto/jit.pm	3390	3571	
==>)/jit_cpu$(O) $(SRC_DIR)/jit_debug$(O) $(SRC_DIR)/jit_debug_xcoff$(O)'
        );

        if (   ($jitcpuarch eq 'i386')
            || ($jitcpuarch eq 'ppc')
            || ($jitcp <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	1718	1840	
==>self->{'pod_para_count'} ||= 0;

  my $line;
  foreach my $source_line (@_) {
    if( $self->{'source_dead'} ) {
      DEBU <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	10894	11032	
==>_I($reg_num);";
        return "t_$temp_num";
    };
    /4/ && do {
        push @{$temps_ref}, "PMC *t_$temp_num;";
        push @{$extra <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567551	567817	
==>oes(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568446	568712	
==>oes(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2614	2723	
==>nless ($file =~ /^[^\/]*\.c$/);

    my $dev_file = $file; $dev_file =~ s/(.*)\.c$/docs\/dev\/$1.dev/g;
    re <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1634	1849	
==>iler->emit(".endnamespace ${namespace}_CONT");
    }

    $compiler->emit("  goto ${prefix}_NEXT");
    $compiler->emit("${prefix}_LAST:");
  }
  else {
    $self->INTERNAL_ERROR("Unrecognized kind of block '%s'", $k <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1450	1552	
==>lf->{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/gets the transform's arguments.

=cut

s <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1059	1161	
==>lf->{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/gets the transform's arguments.

=cut

s <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	22834	22990	
==>os $$textref
							if length($pref) && !defined($unkpos);
						if (defined $unkpos)
						{
							push @fields, substr($$textref, $unkpos, $lastpos-$unkpo <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2658	2829	
==>_file = $file; $dev_file =~ s/(.*)\.c$/docs\/dev\/$1.dev/g;
    return if -f $dev_file;

    info($file, 0, ".dev file not found for $file.");
}

# ignore any leading or tr <==
2	/Users/nnunley/parrot/lib/Test/More.pm	29816	29993	
==>$e1} eq $e2;
            }
            else {
                $Refs_Seen{$e1} = "$e2";
            }

            my $type = _type($e1);
            $type = 'DIFFERENT' unless _t <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	12081	12199	
==>p_num = (double)GET_NCI_N($reg_num);";
        return "t_$temp_num";
    };
    /N/ && do {
        push @{$temps_ref}, <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	18266	18394	
==>splice @$treelet, 0, 2;  # lop the top off
    return $treelet;
  } else {
    $treelet = $self->_treelet_from_formatting_codes(@ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	32552	32897	
==>gnOp( $parser,
            'result' => $state,
            'arg1'   => $nil->[0],
        );
        push @return1, $state;
    }
    else {
        push @opcodes2, @{ $expr->[1] };
        push @opcodes3, new AssignOp( $parser,
            'result' => $state,
            'arg1'   => $expr->[0],
        );
        $expr = shift @{$e <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	5957	6086	
==>n't open $HTMLDIR/index.html for writing: $!\n";

    $totals{line_coverage}   = sprintf("%.2f", ($totals{lines}    ? ($totals{cov <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	17938	18046	
==>y_errata_seen" \
   thingy.pod > thingy.rtf

=head1 DESCRIPTION

This class is a formatter that takes Pod and <==
2	/Users/nnunley/parrot/config/auto/alignptrs.pm	468	722	
==>nimum pointer alignment';

@args = qw(miniparrot);

sub runstep
{
    my ($self, $conf) = (shift, shift);

    if ($conf->options->get('miniparrot')) {
        $self->set_result('skipped');
        return $self;
    }

    $self->set_result('');
    my $a <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	2703	2908	
==>ONST_STRING_$line $n\n";
	    }
	    $this_file_seen{$str} = $line;
	    next;
	}
	my $len = length $str;
	my $hashval = hash_val($str);
	push @all_strings, [$len, $hashval, $str];
	$n = scalar @all_strings <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6600	6689	
==>${ITEMP0}] = stack_depth
    goto POST_BRANCH_switch_${CURIC}_LOOP
POST_BRANCH_switch_${CU <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4538	4627	
==>${ITEMP0}] = stack_depth
    goto POST_BRANCH_switch_${CURIC}_LOOP
POST_BRANCH_switch_${CU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64773	64885	
==>>code = interpreter->code;\n  runops(new_interp, REL_PC + {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65724	65836	
==>>code = interpreter->code;\n  runops(new_interp, REL_PC + {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7789	7882	
==>est to the end of list
  $self->_add_inst("FINISH_$label", 'set', [$copy.'[1]',$return]);
  $s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	40877	40987	
==>s/^[~=]//s;

      DEBUG and print "\n", pretty($para), "\n";

      # traverse the treelet (which might well b <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7105	7198	
==>IR'
inc stack_depth 
${DEST0} = "$"
${STEMP0} = ${LOADTYPE}["reg_type_short"]
${DEST0} = conca <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4927	5020	
==>IR'
inc stack_depth 
${DEST0} = "$"
${STEMP0} = ${LOADTYPE}["reg_type_short"]
${DEST0} = conca <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	9214	9329	
==>', $code_f or die "Unable to open '$code_f'";
    binmode $CODE;
    print $CODE $code;
    close $CODE;

    return <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	1561	1700	
==>buffer.  Because we need to defer processing of =over
   # directives and verbatim paragraphs.  We call _ponder_paragraph_buffer
   # to pro <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	58567	58746	
==>$_[1] },
                BuildParam( $_[0], $_[3] ),
            ];
        }
	],
	[#Rule 100
		 'parlist1', 1, undef
	],
	[#Rule 101
		 'parlist1', 1,
sub
#line 537 "Lu <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	6428	6647	
==>ax[0]s  ", 'Benchmark');
printf("%-$max[$_ + 1]s  ", $program[$_]) for 0 .. $#program;

for my $name ( sort keys %bench ) {
    my $base = 0;
    printf("\n%-$max[0]s  ", $name);
    for ( 0 .. $#section ) {
        my ( <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5645	5756	
==>$step =~ m{^inter/} && $ask;

        # reset verbose value for the next step
        $self->options->set(verbos <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23959	24137	
==>lf->{"lookahead"} ? '$_savetext = $text;' : '' ) .'

		$_tok = undef;
		' . ($self->{"lookahead"} ? '$text = $_savetext and ' : '' ) .'
		last '
		. ($self->{"lookahead"}<0?'if':' <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5847	5950	
==>/* &gen_from_enum(mmd.pasm) */

typedef enum {
EOM
    for my $entry (@{$vtable}) {
    next unless ($en <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	1497	1597	
==>@_;
    my $opt = $generator->{opt};

    print Data::Dumper->Dump([$generator]) if $opt->{debug} > 1 <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36053	36150	
==>accumulate
the number of lines, C<$out_name> is the name of the output file we are
generating.

Th <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37998	38095	
==>accumulate
the number of lines, C<$out_name> is the name of the output file we are
generating.

Th <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	32316	32398	
==>----------------------------------------------------------------------

my %global_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	404	515	
==>);

sub new
{
  my $class = shift;
  my ($block, $left, $right) = @_;

  confess("Block (" . ref($block) . ") no <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	395	506	
==>);

sub new
{
  my $class = shift;
  my ($block, $left, $right) = @_;

  confess("Block (" . ref($block) . ") no <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	10839	10943	
==>can src/call_list.txt if the generated signature is available
    # TODO report errors for "?"
    # --le <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	9132	9246	
==>yntax', $format, @args);
}


#
# INTERNAL_ERROR()
#

sub INTERNAL_ERROR
{
  my ($self, $format, @args) = @_;
  $sel <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10506	10632	
==>UMP" => "PARROT_JUMP_RELATIVE|PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT",
                  "NAME" => "bsr",
                  "FLAGS <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	13082	13318	
==>= $op->reftree();
    return dump_ref($ref);
}

sub dump_ref {
    my ($ref, $indent) = @_;
    $indent ||= "";
    print $indent;
    if (ref $ref) {
        my ($name, @children) = @$ref;
        print $name, "\n";
        dump_ref($_, <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	9574	9775	
==>'.local string ';
		$stack_locals .= "stack$_";
		$mv->{"STACK$_"} = "stack$_";
	}
	my $dest_locals = "";
	for (0..$max_push - 1) {
		$dest_locals .= $dest_locals ? ', ' : '.local string ';
		$dest_loca <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	3275	3383	
==>ree.

=item C<noinit>

Used with C<abstract>: No C<class_init> code is generated.

=item C<const_too>

Classe <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	4025	4140	
==>s{$f}{$a} = $i;
		    # print STDERR "def $f($a = $i)\n";
		}
		push @code, [$line, $pc, "ARG_count", $n, $f, $sourc <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	4524	4639	
==>s{$f}{$a} = $i;
		    # print STDERR "def $f($a = $i)\n";
		}
		push @code, [$line, $pc, "ARG_count", $n, $f, $sourc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605918	606142	
==>dd_attribute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606709	606933	
==>dd_attribute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2605	2725	
==>push_content($self);

  return $self;
}

# block handled by superclass?

sub kind  { return shift->{KIND};     }
sub type <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2722	2837	
==>push_content($self);

  return $self;
}

# block handled by superclass?

sub kind { return shift->{KIND}; }
sub type <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	8943	9065	
==>b temp {
    my $t = $_[0];
    "\$$t" . ++$temp;
}

sub is_num {
    my $c = $_[0];
    my ($pointfloat, $expfloat, $frac, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698729	698926	
==>c",
                              "ic",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699731	699928	
==>c",
                              "ic",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20818	21086	
==>OT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21618	21886	
==>OT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	968	1078	
==>pp::Driver;

require 5.004;

use strict;

use vars qw ( $VERSION $COMPATIBLE $FILENAME );

$VERSION = ' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	940	1042	
==>pp::Driver;

require 5.004;

use strict;

use vars qw ( $VERSION $COMPATIBLE $FILENAME );

$VERSION = ' <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	10643	10752	
==>hat name is explicitly defined; in the latter case, a
warning is issued if the warning flag (B<-w>) is set.

= <==
2	/Users/nnunley/parrot/config/inter/encoding.pm	1686	1811	
==>>set(
        encoding            => $encoding_list,
        TEMP_encoding_o     => $TEMP_encoding_o,
        TEMP_encoding_bu <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	36861	36976	
==>o: C<"extract_quotelike"> and C<"extract_codeblock">.


=head2 C<extract_tagged>

C<extract_tagged> extracts and seg <==
2	/Users/nnunley/parrot/config/auto/env.pm	672	1009	
==>n('config/auto/env/test_setenv.in');
    eval { cc_build(); };
    unless ($@ || cc_run() !~ /ok/) {
        $setenv = 1;
    }
    cc_clean();
    cc_gen('config/auto/env/test_unsetenv.in');
    eval { cc_build(); };
    unless ($@ || cc_run() !~ /ok/) {
        $unsetenv = 1;
    }
    cc_clean();

    $conf->data->set(
        setenv <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	11129	11446	
==>node) = @_;

  my @clauses = _get_args($node);

  my $transnode;

  if ($clauses[-1]->{children}->[0]->{value} eq 'else') {
    my $elseclause = pop @clauses;
    $transnode = { children => [ { value => 'begin'},
				 _get_args($elseclause) ] };
  }
  else {
    $transnode = { value => '#f' };
  }

  for my $clause ( <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3648	3780	
==>num++;
	}

	# Return generated code.
	return $pir;
}

sub post_branch($) {
	my $self = shift;
	my $pops = shift;
	my $pir = '';

	# B <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	3564	3681	
==>@@@@@@@

sub any_errata_seen {  # good for using as an exit() value...
  return shift->{'errors_seen'} || 0;
}

#@@@@@ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	14613	14725	
==>es{$1};
	if ($vtables{$f}) {
	    print <<EOC;
	# $namespace{$f} => $vtables{$f}
EOC
	    #$namespace{$f} => $vta <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	445719	446097	
==>});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_c <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	7904	8002	
==>->run_core_after_addr_table($bs);
}

if ($suffix =~ /cgp/) {
    print SOURCE <<END_C;
#ifdef __GNU <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	2298	2502	
==>rate Config.pm.
# ###################
sub generate_config_pm(%) {
	my %config = @_;
	
	# Read in template.
	my $fh;
	open $fh, "< config/N2PConfig.pm.in" or die "Unable to open config/N2PConfig.pm.i <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	3745	3889	
==>nked to.

=cut

sub process_code_start_token
{
    my $self = shift;
    my $token = shift;
    my $tagname = $token->tagname;

    # We make the <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5290	5414	
==>2X>',ord($_))
#DBG>					:	$_;
#DBG>		}
#DBG>		$tok.='<';
#DBG>	};

	$$errstatus=0;
	$$nberror=0;
	($$token,$$value)=( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5038	5154	
==>2X>',ord($_))
#DBG>					:	$_;
#DBG>		}
#DBG>		$tok.='<';
#DBG>	};

	$$errstatus=0;
	$$nberror=0;
	($$token,$$value)=( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3083	3195	
==>TODO: Convert escapes. For example, "\n" should be an actual newline.
#

sub sax
{
  my $self = shift;
  my ($han <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	1539	1676	
==>s]
    include   = ^gc 
    include   = ^oo 
    exclude   = header
    exclude   = waves

    [benchmark parrotj]
    exe       = ../../p <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	6727	6849	
==>to RPN
	my (@stack,@stream);
	my $i=-1;
	foreach my $item (@expr) {
		die "Expression too complex at line $sourceline" if $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629744	630035	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":obje <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630733	631024	
==>\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":obje <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	801	892	
==>ocs::Section::Ops;
use Parrot::Docs::Section::IMCC;
use Parrot::Docs::Section::Perl;
use Par <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	2834	2931	
==>ST code and passes the test if a string comparison of the output
with the unexpected result is fal <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16257	16397	
==>-65536)).'?'/eg;
    }
    return;
  } elsif(wantarray) {  # return an array
    return map {; ($x = $_) =~
      s/([F\x00-\x1F\\\{\}\x7F-\x <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15074	15204	
==>-65536)).'?'/eg;
    }
    return;
  } elsif(wantarray) {  # return an array
    return map {; ($x = $_) =~
      s/([F\x00-\x1F\-\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	306508	306785	
==>S" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless_null",
                  "FL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307301	307578	
==>S" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless_null",
                  "FL <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	174	304	
==>OpTrans::CPrederef - C Predereferenced Transform

=head1 DESCRIPTION

C<Parrot::OpTrans::CPrederef> inherits from C<Parrot::OpTrans <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	33318	33443	
==>else {
          # It's a URL but complex (like "L<foo:bazE<123>bar>").  Feh.
          #$treelet->[$i][1]{'to'} = [ @{$treele <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060052	1060158	
==>t;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null name\");\n\n    next = {{^+3}};\n    {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060957	1061063	
==>t;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null name\");\n\n    next = {{^+3}};\n    {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	24548	24674	
==>";
        $cmd =   "$PConfig{link} $PConfig{linkflags} $PConfig{ld_debug} "
               . "$obj_f $cfg $PConfig{ld_out}$exe <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	4330	4434	
==>sub curr_open { # read-only list accessor
#  return @{ $_[0]{'curr_open'} || return() };
#}
#sub _curr_op <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	38417	38586	
==>or-fill!'  => \&_op_vector_fill_bang,

###
### Control features
###

  'procedure?'                      => \&_op_procedure_p,
  'apply'                           => \&_o <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1067	1224	
==>i) CONTEXT(interpreter->ctx)->constants[cur_opcode[i]]
END
}

=item C<gen_goto($where)>

Reimplements the superclass method so that C<$where> is suitably cast <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2343	2468	
==>modules {
  no strict 'refs';
  eval { require Compress::Zlib } or
    *Compress::Zlib::memGunzip = sub { return };
  eval { r <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	5000	5101	
==>te;
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::IO::Directory>

=item C<Parrot::IO::Path>

=ba <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660003	660143	
==>"
                            ],
                  "BODY" => "#line 334 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}-> <==
2	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1870	2099	
==>print STDERR "* " and $fresh++ unless $fresh;
    print STDERR $msg;
    $fresh = 0 if substr($msg, -1) eq "\n";
    1;
  }
}

sub setup_compression {
  eval { require Compress::Bzip2; debug "Bzip2 compression on\n" } and
    retu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756734	756821	
==>n  {{\@1}}->vtable->assign_string_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757524	757611	
==>n  {{\@1}}->vtable->assign_string_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n", <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	44150	44488	
==>';
my $POSLOOKAHEAD	= '\G(\s*\.\.\.)';
my $RULE		= '\G\s*(\w+)[ \t]*:';
my $PROD		= '\G\s*([|])';
my $TOKEN		= q{\G\s*/((\\\\/|[^/])*)/([cgimsox]*)};
my $MTOKEN		= q{\G\s*(m\s*[^\w\s])};
my $LITERAL		= q{\G\s*'((\\\\['\\\\]|[^'])*)'};
my $INTERPLIT		= q{\G\s*"((\\\\["\\\\]|[^"])*)"};
my $SUBRULE		= '\G\s*(\w+)';
my $MATCHRULE		= '\G(\s*< <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3101	3212	
==>",
    'k'  => "PREG(%ld)",
    'ki' => "IREG(%ld)",

    'ic' => "cur_opcode[%ld]",
    'nc' => "CONST(%ld)->u. <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2016	2123	
==>",
  'k'   => "PREG(%ld)",
  'ki'  => "IREG(%ld)",

  'ic'  => "cur_opcode[%ld]",
  'nc'  => "CONST(%ld)->u. <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	3031	3180	
==>ma', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^([:])(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	577	744	
==>re_prefix()>

The core prefix is C<'cg_'>.

=cut

sub core_prefix
{
    return "cg_";
}

=item C<core_type()>

The core type is C<PARROT_CGOTO_CORE>.

=cut

sub core_ty <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7724	7855	
==>me = 'Para_item' if @stack and $stack[-1] eq 'text';
        }
        print $fh $self->{'Tagmap'}{$tagname} || next;
        ++$don <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	31255	31492	
==>t_op(1, 1);
		    $post_op = sub_meta($post_op, $mv, "post_op for rule $rule->{'name'} value type clone");
            $pir .= <<PIR
\$I1000000 = loadtype["type"]
if \$I1000000 != ELEMENT_TYPE_VALUETYPE goto $label
dtypes = new ResizableP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761510	761796	
==>n    REG_PMC({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762363	762649	
==>n    REG_PMC({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1332	1444	
==>ook.
sub pre_translation() {
	# We need a stack depth and a string for label gen and some
	# storage for stack de <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	419	531	
==>ook.
sub pre_translation() {
	# We need a stack depth and a string for label gen and some
	# storage for stack de <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	8466	8604	
==>atanh      complex.h
catanhf     complex.h
catanhl     complex.h
catanl      complex.h
cbrt        math.h
cbrtf       math.h
cbrtl       ma <==
2	/Users/nnunley/parrot/config/auto/pack.pm	314	422	
==>ase qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step;
use Config;

$description = q{Figuring o <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	40445	40555	
==>and print "Considering this ($ell_content[0]) a man link.\n";
      } else {
        $ell->[1]{'type'}    = 'po <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	30179	30299	
==>ake_vector {
}

sub _op_vector {
}

sub _op_vector_length {
}

sub _op_vector_ref {
}

sub _op_vector_set_bang {
}

sub _ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	49877	50031	
==>ra) = pos($para) - length($3) + $stack[-1];
      } else {
        # We saw " >>>>" but needed " >>>>>>".  So this is all just stuff!
        DEBUG > 4 and <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	6577	6731	
==>/s; s/\s*$/\n/s; # trim (and ends with a newline)
    s/^ {0,1}(\S)/  $1/mg; # minimum indent
    s/^\s*$//s;            # normalize emptiness
    &clip_ex <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	252160	252397	
==>@1}} = {{\@2}}->vtable->logical_not(interpreter, {{\@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30016	30127	
==>onst;
use base 'Parrot::Pmc2c::Standard';
import Parrot::Pmc2c qw( gen_ret );

=item C<body($method, $line, $out <==
2	/Users/nnunley/parrot/config/init/defaults.pm	2593	2818	
==>s, but apparently sometimes
        # it's ld.
        ld      => $Config{ld},
        ldflags => $Config{ldflags},

        # Some operating systems (e.g. Darwin) distinguish between shared
        # libraries and modules tha <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225492	225587	
==>>vtable->get_number(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226433	226528	
==>>vtable->get_number(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n", <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	856	975	
==>uild/SRM/$srm.pm";
my %config = get_parrot_config($parrot_path, $srm);

# Generate makefile.
generate_makefile(%conf <==
2	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	94	211	
==>19601 2006-05-30T13:32:26.641316Z coke  $

=head1 NAME

examples/benchmarks/stress2.pl - GC stress-testing

=head1 SYN <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	16466	16625	
==>interface based on a stream of token objects,
instead of based on events.

This is a subclass of L<Pod::Simple> and inherits all its methods.

A subclass of Pod <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	23058	23277	
==>ne after the first with a # so we don't
    # confuse Test::Harness.
    $msg =~ s/\n(.)/\n# $1/sg;

    # Stick a newline on the end if it needs it.
    $msg .= "\n" unless $msg =~ /\n\Z/;

    print $fh $msg;
}


=item <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	6759	6956	
==>ch>--<cpuarch>-<osname>-<cc>-<runcore>--<timestamp>-<duration>--$summary--$args--<id>.html";

  $str =~ s/<(.+?)>/$smoke{$1}/g;

  $str;
}

sub unpack_smoke {
  my $name = shift;

  /^parrot-smoke-( <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	1890	2004	
==>array\n";
		if ($array) { 
			$stype="ARRAY"; 
		} else {
			$var=~s/\W$//g;
		}
		#print "Type: $stype  User: $use <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	4529	4770	
==>lass_init>
routine suitable for dynamic loading at runtime. See the F<src/dynpmc>
directory for an example.

=item C<group GROUP>

The class is part of a group of interrelated PMCs that should be
compiled together into a single shared library <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10436	10556	
==>] twips.\n";
        $self->{'rtfindent'} -= pop @indent_stack;
        pop @stack;
      } elsif( $tagname eq 'Verbatim' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78929	79026	
==>ring_to_cstring(interpreter, ({{\@3}}));\n\n  void * const p = Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80450	80547	
==>ring_to_cstring(interpreter, ({{\@3}}));\n\n  void * const p = Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	16133	16370	
==>($jumps);
        $self->push_op($op);
        $counter++;
    }

    return $counter;
}

=item C<expand_args(@args)>

Given an argument list, returns a list of all the possible argument
combinations.

=cut

sub expand_args
{
    my (@arg <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	5744	5972	
==>th($1) or length($2)
          or pos(     ${ $self->{'source_scalar_ref'} })
           != length( ${ $self->{'source_scalar_ref'} });
         # I.e., unless it's a zero-length "empty line" at the very
         #  end of "foo\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627511	627787	
==>ter, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628655	628931	
==>ter, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	5595	5780	
==>pe = typeof value
    if newline goto print_newline
    if value_type != 'String' goto print_space_2d
    if old_type != value_type goto print_space_2d
    goto print_newline

  print_sp <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1156	1262	
==>elements ${STYPES}
PIR

	# Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we're m <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2866	2972	
==>elements ${STYPES}
PIR

	# Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we're m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514563	514994	
==>[
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 593,
                  "ARGS" => [
                              "n",
                              "nc",
                              "n"
                            ],
                  "BODY" => "#line 708 \"src/o <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6675	6828	
==>G > 1 and print "Noting para ends with blank line at ${$self}{'line_count'}\n"; 
      }
      
      $self->{'last_was_blank'} = 1;
      
    } elsif($s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853189	853389	
==>ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 100 \"src/ops/string.ops\"\n  {{\@1}} = string_append(i <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2715	2818	
==>ndent||0) );
   # Yes, 'STRING' x NEGATIVE gives '', same as 'STRING' x 0

  $self->{'Thispara'} =~ tr{\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2249	2352	
==>ndent||0) );
   # Yes, 'STRING' x NEGATIVE gives '', same as 'STRING' x 0

  $self->{'Thispara'} =~ tr{\ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	242	368	
==>:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Type::PMC;

use base qw(Jako::Construct::Type <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	414	559	
==>_group'
.namespace ['']

END_PIR

print "  .include 'languages/tcl/$static_dir/$_.pir'\n"
    for @static_cmds;
print "  .include 'languages/tcl/$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	410278	410572	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "send",
                  "FLAGS" => ":base_network",
                  "ARGDIRS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411170	411464	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "send",
                  "FLAGS" => ":base_network",
                  "ARGDIRS <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	1373	1556	
==>}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self- <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	6325	6430	
==>= $_;
	$desc = ""  # it's only emacs variables at the end of the file
	    if(!$comment_is_at_beginning && <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	666	783	
==>arrot::Test::Bc::Antlr2';
                
    return bless {}, $test_module;
}

my %language_test_map = (
    output_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	1946	2115	
==>G > 4 and print "# Undef-line seen.\n";

      push @$paras, ['~end', {'start_line' => $self->{'line_count'}}];
      push @$paras, $paras->[-1], $paras->[-1];
       # S <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6532	6647	
==>$source (@sources) {
        return 1 if modtime($source) > $target_mod;
    }

    return 0;
}

sub generate_dump { <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6743	6858	
==>$source (@sources) {
        return 1 if modtime($source) > $target_mod;
    }

    return 0;
}

sub generate_dump { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832165	832357	
==>\@1}}), STACK_ENTRY_FLOAT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832893	833085	
==>\@1}}), STACK_ENTRY_FLOAT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	425383	425676	
==>\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "infix",
                  "FL <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	354	456	
==>ineCounter}, $thisline->[0],
	    $thisline->[1];
	$tlc;
}

sub expectation_message
{
	$Parse::RecDesce <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	7391	7602	
==>$op->{op} $op->{arg2}->{symbol} goto $op->{result}->{symbol}\n";
        }
        else {
            print {$FH}
                "  if $op->{arg1}->{symbol} goto $op->{result}->{symbol}\n";
        }
    } <==
2	/Users/nnunley/parrot/lib/Test/More.pm	23032	23190	
==>ometimes this isn't possible.
Often a failing test will cause the whole program to die or hang, even
inside an C<eval BLOCK> with and using C<alarm>.  In these <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	968	1200	
==>@_;
    my $type = $t->{name};
    if ($type eq 'seq') {
        # R.(S.T) => R.S.T
        # Or parenthetically, seq(R,seq(\alpha)) => seq(R, \alpha)
        #
	my @pre_pieces = map { $self->pass1($_, $ctx) } @{ $t->{args} };
	my @p <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20771	20872	
==>for $typename
	new P0, .PerlArray
TYPE
		foreach(@types) {
			print CODE<<ADDT;
	new P1, .PerlHash
	P1 <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	47585	47772	
==>arse source: {{\n$_[0]\n}}\n\n";
  
  
  my $parser = $class->new;
  $parser->hide_line_numbers(1);

  my $out = '';
  $parser->output_string( \$out );
  DEBUG and print " _out to ", \$out <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885322	885867	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1002,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic",
                              "ic"
                            ],
                  "BODY" => " <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	75308	75425	
==><<<<<<<<<<<<<<|
$tracerulename, '|', $tracemsg
| ~~       |^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<|
	    $tracemsg
.

s <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	75285	75384	
==><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<|
$tracerulename, '|', $tracemsg
| ~~       |^<<<<<<<<<<<<<<<<< <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	886428	886761	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1003,
                  " <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	5571	5676	
==>ng);
			$expected =~ tr/({[</)}]>/;
			if ($expected ne $brackettype)
			{
				_failmsg qq{Mismatched clos <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470703	471124	
==>IRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 540,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => " <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30040	30189	
==>ss over in stack, starting at line "
           . $over->[1]{'start_line'};

        } elsif($over_type eq 'block') {
          unless($curr_open->[-1 <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	22570	22677	
==>ump, $gen_c, $tree, @include);
    # initialization to prevent warnings
    %opt = map { $_ => 0 } qw(nobody <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511009	511267	
==>/math.ops\"\n  {{\@1}} = - {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511747	512005	
==>/math.ops\"\n  {{\@1}} = - {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4952	5082	
==>$source (@sources) {
        return 1 if modtime($source) > $target_mod;
    }

    return 0;
}

sub generate_c {
    my ($oplib) = <==
2	/Users/nnunley/parrot/Configure.pl	1455	1559	
==>he compiler flags.

=item C<--inline>

Tell Configure that the compiler supports C<inline>.

=item C<--cc <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31141	31237	
==>t Parrot::Pmc2c qw( gen_ret );

=item C<implements($method)>

Always true for vtables.

=cut

sub <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39761	39857	
==>t Parrot::Pmc2c qw( gen_ret );

=item C<implements($method)>

Always true for vtables.

=cut

sub <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4084	4336	
==>\v//
                and $str .= "\x0b",    # vertical tab
                last;
            s/^\\([0-9]{1,3})//
                and $str .= chr $1, 
                last;

            s/^\\//
                and $parser->Error("Invalid escape s <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2570	2821	
==>\v//
                and $str .= "\x0b",    # vertical tab
                last;
            s/^\\([0-9]{1,3})//
                and $str .= chr $1,
                last;

            s/^\\//
                and $parser->Error("Invalid escape s <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	12552	12723	
==>f(ref $source) {
    $self->{'source_filename'} = '' . ($source);
  } elsif(!length $source) {
    Carp::croak("Can't use empty-string as a source for parse_file");
  } els <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1719	1842	
==>it(".return()");
  $compiler->outdent;
  $compiler->emit(".end");

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	840	1195	
==>ete(n)" => "delete record of n-th paren match" ],

    [ "goto(label)" => "unconditional jump to label" ],
    [ "label(name)" => "declare a label" ],
    [ "assign(name, val)" => "???" ],
    [ "if(a, condition, b, label)" => "if (A) CONDITION (B) goto LABEL" ],
    [ "fail()" ],
    [ "nop()" ],

    [ "push_reg(r)" ],
    [ "pop_reg(r)" ],

    [ "pus <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5278	5405	
==>sprintf('<%02X>',ord($_))
#DBG>					:	$_;
#DBG>		}
#DBG>		$tok.='<';
#DBG>	};

	$$errstatus=0;
	$$nberror=0;
	($$token,$ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5026	5145	
==>sprintf('<%02X>',ord($_))
#DBG>					:	$_;
#DBG>		}
#DBG>		$tok.='<';
#DBG>	};

	$$errstatus=0;
	$$nberror=0;
	($$token,$ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	675	794	
==>[0]{'indent'}++;
  while(($key,$value) = each %{$_[2]}) {
    unless($key =~ m/^~/s) {
      next if $key eq 'start_line <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692335	692868	
==>=> "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 778,
                  "ARGS" => [
                              "i",
                              "i",
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 659 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509032	509277	
==>n  {{\@1}} = - {{\@1}};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509663	509908	
==>n  {{\@1}} = - {{\@1}};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	14175	14301	
==>ex, '!~', $name);
}

=item B<maybe_regex>

  $Test->maybe_regex(qr/$regex/);
  $Test->maybe_regex('/$regex/');

Convenience met <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7024	7175	
==>[$type, $list]);
  $self->_add_inst('', 'eq', [$type,'.Undef',"DONE_$label"]);

  my $copy = $self->_new_pair;

  $self->_add_inst('', 'set', [$head, $c <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	240	333	
==>ION

Generate character set tables.

=cut


my ($svnid) = '$Id: /parrot/tools/dev/gen_charset_ <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	4044	4233	
==>t || return;

    my @path = split '::', $module;
    
    $module = pop @path;
    $module .= '.pm';
    
    my $dir = $self->existing_directory_with_name('lib');
    
    foreach my $name <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	13197	13352	
==>, then double the
        # enclosing parentheses and add a space around the argument,
        # like so:
        #
        #    goto OFFSET(( (void*)interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3865	3982	
==>, then double the enclosing
parentheses and add a space around the argument, like so:

    goto OFFSET(( (void*)interp <==
2	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	581	931	
==>) = each(%attr) ) {
            if ( defined $value ) {
                $self->{$key} = $value;
            }
        }
        return $self;
    }

    sub visit {
        my $self    = shift;
        my $class   = ref $self;
        my $visitor = shift;
        no strict "refs";
        my $func = 'visit' . $class;
        if ( $visi <==
2	/Users/nnunley/parrot/config/auto/msvc.pm	833	1057	
==>nts-file
    # callbacks that depend on knowing whether or not we're using Visual C++.

    # This key should always exist unless the program couldn't be run,
    # which should have been caught by the 'die' above.
    # Ther <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75403	75756	
==>"
                               ],
                  "TYPE" => "function",
                  "CODE" => 98,
                  "ARGS" => [
                              "p",
                              "p",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 1156 \"src <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	15995	16102	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _get_initial_item_type {
  # A hack-wrapper here for w <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	6273	6428	
==>les($recursive, $ignore))
    {
        $suffixes{$file->suffix} = 1;
    }
    
    return sort keys %suffixes;
}

=item C<files_with_suffix($suffix, $recu <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5790	5896	
==>e');

  my $item = _get_arg($node,1);

  return __quoted ($self, $item, $return, {});
}

sub _op_quasiquote <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	10837	10972	
==>, 'P'];
	return;
    }
    elsif ($typ =~ /[US]/) {   # strings
	# parrot has double quoted escapes
	$c =~ s/"/\\"/g;	# XXX unescape
	my <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	13195	13346	
==>ve_path($file));
    
    # This is the docs file for the module.
    $file = $self->{TARGET}->file_with_relative_path($path);
    
    # There's no poi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	1287	1405	
==>lf->output_label_use($failLabel));
}

sub output_pushmark {
    my ($self) = @_;
    return "rx_pushmark P0";
}

sub ou <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	2440	2665	
==>ngth $dels; $i++)
	{
		my $del = quotemeta substr($dels,$i,1);
		my $esc = quotemeta substr($escs,$i,1);
		if ($del eq $esc)
		{
			push @pat, "$del(?:[^$del]*(?:(?:$del$del)[^$del]*)*)$del";
		}
		else
		{
			push @pat, "$del <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5518	5643	
==>ateno);

        $stateno=$$stack[-1][0];
        $actions=$$states[$stateno];

#DBG>	print STDERR ('-' x 40),"\n";
#DBG <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5253	5372	
==>ateno);

        $stateno=$$stack[-1][0];
        $actions=$$states[$stateno];

#DBG>	print STDERR ('-' x 40),"\n";
#DBG <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15106	15210	
==>me}> and
C<chr($Name2character_number{$name})>.

=head1 SEE ALSO

L<perlpod|perlpod>

L<perlpodspec|perlp <==
2	/Users/nnunley/parrot/config/init/hints/hpux.pm	3	99	
==>opyright (C) 2005, The Perl Foundation.
# $Id: /parrot/config/init/hints/hpux.pm 19593 2006-05-30 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	446124	446687	
==>RGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 510,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 160 \"src/ops/math.ops\"\n  {{\@1}} = abs( {{\@1}} );\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	36699	36824	
==>spec)\" can never
					   succeed, since optional items always
					   match (zero times at worst). 
					   Did you mean a si <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168474	168563	
==>" => "#line 204 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169416	169505	
==>" => "#line 204 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2788	2897	
==>w {
  my $new = shift->SUPER::new(@_);
  #$new->nix_X_codes(1);
  $new->nbsp_for_S(1);
  $new->accept_targets( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3143	3251	
==>w {
  my $new = shift->SUPER::new(@_);
  $new->nix_X_codes(1);
  $new->nbsp_for_S(1);
  $new->accept_targets( <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	1915	2131	
==>age eq "";
    my %meta;
    @meta{split(/,/, $meta)} = ();
    $meta{$_} = 1 for (keys %meta); # Laziness

    my $entry;

    if ($meta{doc}) {
        $entry = "%doc $dest";
    } elsif ($meta{lib}) {
        $entr <==
2	/Users/nnunley/parrot/config/gen/cpu/i386/auto.pm	83	172	
==>auto.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/gen/cpu/i386/auto.p <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	677	784	
==>op_stack_depth
stack_depth = -1
prop_type_state = new Hash
prop_stack_depth = new Hash
PIR
}

# Post transla <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1717	1817	
==>PGE::_generate_pir_for($target, $pattern)
    );

    goto &Parrot::Test::pir_output_is;
}

=item C<p <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2240	2340	
==>PGE::_generate_pir_for($target, $pattern)
    );

    goto &Parrot::Test::pir_output_is;
}

=item C<p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1592	1685	
==>ot a Jako::Construct::Type instance!")
    unless UNIVERSAL::isa($type, "Jako::Construct::Type <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1440	1533	
==>ot a Jako::Construct::Type instance!")
    unless UNIVERSAL::isa($type, "Jako::Construct::Type <==
2	/Users/nnunley/parrot/config/auto/headers.pm	39	129	
==>ndation.
# $Id: /parrot/config/auto/headers.pm 19593 2006-05-30T02:28:15.110975Z coke  $

= <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	12203	12384	
==><DIAGNOSTIC, $got, $expect);
         got: %s
    expected: %s
DIAGNOSTIC

}    

=item B<isnt_eq>

  $Test->isnt_eq($got, $dont_expect, $name);

Like Test::More's isnt().  Checks if <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1826	1943	
==>TIBLE
	and	croak "Yapp driver version $VERSION ".
			  "incompatible with version $$self{VERSION}:\n".
			  "Please <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1762	1876	
==>TIBLE
	and	croak "Yapp driver version $VERSION ".
			  "incompatible with version $$self{VERSION}:\n".
			  "Please <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1808	1997	
==>el, %options) = @_;

    $options{state} ||= global_state();

    my $trees = expr_to_tree($expr, $ctx, %options);
    for my $tree (@$trees) {
        my $code = tree_to_list($tree, $ctx, $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	12896	13040	
==>",
            "\n  Dropping back to seeking-head1-content mode...\n";
        }
      }
    }
    
    elsif($state == 2) {
      # seeking star <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	3826	3946	
==>>{PARENT_PATH};
}

=item C<stat()>

Returns the C<File::stat> object. Used by subclasses to get information
about the pat <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	3972	4063	
==>ntermediate Representation and generate Parrot Assembler Code.
Pass if the generated PASM is <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89317	89615	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":ba <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90055	90353	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":ba <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7119	7211	
==>depth 
${DEST0} = "$"
${STEMP0} = ${LOADTYPE}["reg_type_short"]
${DEST0} = concat ${STEMP0}
$ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4941	5033	
==>depth 
${DEST0} = "$"
${STEMP0} = ${LOADTYPE}["reg_type_short"]
${DEST0} = concat ${STEMP0}
$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557822	557922	
==>*next = {{^+3}};\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  interpreter->current_c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559206	559306	
==>*next = {{^+3}};\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  interpreter->current_c <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6380	6547	
==>equire('ident', 'literal'); }


#
# skip()
#
# Skips the token type specified if it is present. Returns undef if nothing
# was skipped, otherwise returns the token skip <==
2	/Users/nnunley/parrot/lib/Test/More.pm	35744	35853	
==>ergent evolution with Joshua Pritikin's Test
module.  I was largely unaware of its existence when I'd first
wr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830635	830735	
==>\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &i, STACK_ENTRY_INT, STACK_CLEANU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831376	831476	
==>\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &i, STACK_ENTRY_INT, STACK_CLEANU <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11184	11412	
==>s, $c;
                    push @types, $c;
                }
            }
        } elsif ($state == 1) {
            push @tokens, $c;
            push @types, 'CHAR';
            $state = 0;
        } else {
            if ($ <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5176	5331	
==>FH} "  ";
        if ( exists $op->{result} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $first = 1;
            for <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6208	6363	
==>FH} "  ";
        if ( exists $op->{result} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $first = 1;
            for <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	25	172	
==>ct;
use warnings;

use Fatal qw{open};

# get a list of all the builtins we have.

my @commands = ((glob 'src/builtin/*.pir'), (glob 'runtime/builti <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	977	1126	
==>nie/punie.pbc $lang_f";

    $exit_code = Parrot::Test::run_command($cmd, CD => $self->{relpath},
                                           STDOUT => <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63210	63308	
==>ule and $rule and $rule->addcall($name);

						_check_insatiable($name,$1,$grammar,$line) if $::RD <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63931	64029	
==>ule and $rule and $rule->addcall($name);

						_check_insatiable($name,$1,$grammar,$line) if $::RD <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	3971	4058	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub version_report {
  my $c <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	1250	1422	
==>h @tokens, Jako::Token->new(
        $file, $line, 'literal', 'N', $1);
      $text = $2;
      next;
    }

    #
    # Integer literals:
    #

    if ($text =~ m{^( 0 | ( <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	18564	18684	
==>de E and S
    $self->_treat_Es($treelet);
    $self->_treat_Ss($treelet);  # S has to come after E

    $self->_wrap_up( <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	148	248	
==>eliminates the need for a stack.
# Inherits from SRM::Base.

package SRM::Register;
use strict;
use S <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	26887	26989	
==>tions
 # or regular expressions

	@extracted = extract_multiple($text,
				      [ \&extract_bracketed, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	536044	536441	
==>" => 0,
                  "NAME" => "sech",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 620,
                  "ARGS" => [
                              "n",
                              "n" <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2172	2275	
==>$self{DEBUG}) {
		_DBLoad();
		$retval = eval '$self->_DBParse()';#Do not create stab entry on compile <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2091	2192	
==>$self{DEBUG}) {
		_DBLoad();
		$retval = eval '$self->_DBParse()';#Do not create stab entry on compile <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	796	888	
==>an"
B$("Hi Mom!")="interesting"
B$(0)="development.
keys a$(), b$()
i=0
do
	t$=a$(i)
	print t <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	3542	3709	
==>= <<"EOC";
    int pass;

    /*
     * create a library PMC
     */
    pmc = pmc_new(interpreter, enum_class_ParrotLibrary);
    /*
     * TODO stuff some info into t <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8952	9178	
==>four
    if $I1 == 5 goto five
    if $I1 == 6 goto six
    if $I1 == 7 goto seven
    if $I1 == -1 goto neg_one
    if $I1 == -2 goto neg_two
    if $I1 == -3 goto neg_three
    if $I1 == -4 goto neg_four
    if $I1 == -5 goto <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196397	196483	
==>5 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_NUMCM <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6	95	
==>right (C) 2001-2005, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Configure/Data.pm 2032 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780219	780709	
==>,
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 881,
                  "ARGS" => [
                              "p",
                              "ki",
                              "s"
                            ],
                  "BODY" => "#line 387 \"src/ops/set.ops\"\n    {{\@1}}- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037176	1037471	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037956	1038251	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	21899	22000	
==>xample_test_map{$func} );
                $test_func->( $lang_for_extension{$extension}, $code, $expec <==
2	/Users/nnunley/parrot/lib/Test/More.pm	26568	26739	
==>x]";
        }
        elsif( $type eq 'REF' ) {
            $var = "\${$var}";
        }
    }

    my @vals = @{$Stack[-1]{vals}}[0,1];
    my @vars = ();
    ($vars[0] = <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39183	39332	
==>>{dircount} .  '__'; }


sub new
{
	my ($class, $type, $minrep, $maxrep, $leftarg, $op, $rightarg) = @_;

	bless 
	{
		"type"      => "${type}op",
		" <==
2	/Users/nnunley/parrot/config/init/manifest.pm	499	614	
==>T';

@args = qw(nomanicheck);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('nomanicheck') <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	329400	329620	
==>>vtable->get_number(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	330878	331098	
==>>vtable->get_number(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	12342	12475	
==>s PIR code
    return ("# START EMBEDDED PIR CODE",
            split(/\n/, substr($code, 1, -1)),
            "# END EMBEDDED PIR COD <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1842	2069	
==>turn "<rx_pos> -= $distance;";
    }
}

sub output_add {
    my ($self, $var, $arg1, $arg2) = @_;
    my $realvar = value($var);
    return "$realvar = $arg1 + $arg2;" if defined($arg2);
    return "$realvar += $arg1;";
}

sub o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	12607	12838	
==>> "jsr",
                  "FLAGS" => ":base_core,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13450	13681	
==>> "jsr",
                  "FLAGS" => ":base_core,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	57933	58081	
==>e
					brackets enclosing a sequence of
					uppercase characters will eventually
					be used to specify pre-lexed tokens
					in a grammar. That fu <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6390	6555	
==>urns whether the file is suitable for inclusion in a documentation link.

If a file contains plain text rather than POD it may be directly linked to.

=cut

sub is_do <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	643	758	
==>r->get_token on a L<Pod::Simple::PullParser>, you might
get an object of this class.

This is a subclass of L<Pod::S <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	549	664	
==>r->get_token on a L<Pod::Simple::PullParser>, you might
get an object of this class.

This is a subclass of L<Pod::S <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	2629	2787	
==>/parrot.small.png" 
                        ALT="parrot">
                </TD>
            </TR>
        </TABLE>
    </BODY>
</HTML>
FOOTER
}

=back

=cut

1 <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	4392	4598	
==>et(
            hugefloatval     => 'long double',
            hugefloatvalsize => $size
        );
        } else {
        $conf->data->set(
            hugefloatval     => 'double',
            hugefloatv <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	1428	1559	
==>** opcode_to_prederef(Interp* interpreter,
                                        opcode_t* opcode_addr)
{
    INTVAL offset_in_ops <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094867	1095219	
==>IRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1214,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 223 \"src/ops/experimental.ops\"\n  Parrot_Exec_OS_Command(interpreter <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	138	230	
==>Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm 19606 20 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	991	1099	
==>5.004;

use strict;

use vars qw ( $VERSION $COMPATIBLE $FILENAME );

$VERSION = '1.05';
$COMPATIBLE = <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	961	1062	
==>5.004;

use strict;

use vars qw ( $VERSION $COMPATIBLE $FILENAME );

$VERSION = '1.05';
$COMPATIBLE = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	11615	11749	
==>es not appear as it should, because its ",
      "\"=encoding $e\" line calls for an unsupported encoding.",
      $suggestion, "  [$en <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129805	130066	
==>bit.ops\"\n  {{\@1}} ^= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130544	130805	
==>bit.ops\"\n  {{\@1}} ^= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835303	835553	
==>P" => 0,
                  "NAME" => "savec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836055	836305	
==>P" => 0,
                  "NAME" => "savec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	5498	5606	
==>ok all the hard work out of testing and was really, really easy
to learn.  Paul Johnson simultaneously had th <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2126	2228	
==>, or colon, the corresponding method name will have a underscore
in its place.  For example, "foo.bar:b <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4580	4678	
==>th the specified name exists in the
directory.

=cut

sub directory_exists_with_name
{
    my $self <==
2	/Users/nnunley/parrot/languages/urm/urm-old.pl	1163	1315	
==>gister{$1} = 0 unless defined $register{$1};
	if ($register{$1} == $2) {$pos = $3;} else {$pos++}
    }
    elsif ($line =~ /(r\d) *<- *(\d+)/) {
	$regis <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7265	7372	
==>s*[\n\r]+([^\n\r]+)/smo;
	
	$text = $1;
	# Tidy it up a bit.
	$text =~ s/^\s+//o;
	$text =~ s/\s+$//o;
	$tex <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	1135	1262	
==>local/bin',
             'bison_version' => undef,
             'blib_dir' => 'blib/lib',
             'build_dir' => '/Users/nn <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	29224	29316	
==>. Thus, the following code also processes
each quote-like operation, but actually removes the <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	8514	8636	
==>ie "random file i/o not implemented yet at $sourceline"
	} else {
		die "Expected input/output/random at $sourceline"
	}
	f <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	5844	5972	
==>y($token, $type, $tagname);
  my @stack;
  my $dont_wrap = 0;
  while($token = $self->get_token) {

    # - - - - - - - - - - - - <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1218	1354	
==>ng algorithm:
      s/(
         [^\n]{55}         # Snare some characters from a line
         [^\n\ ]{0,50}     #  and finish any curre <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1162	1298	
==>ng algorithm:
      s/(
         [^\n]{55}         # Snare some characters from a line
         [^\n\ ]{0,50}     #  and finish any curre <==
2	/Users/nnunley/parrot/tools/dev/as2c.pl	438	559	
==>s.s
 * by '$0 $s'
 */

EOT
}
sub create_s {
    my $cmd = shift;
    my $r = system($cmd);
    if ($r) {
	die "$cmd failed <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	1955	2068	
==>ATION    
    $ret |= 0x0800 if $chr =~ /^[[:alnum:]]$/;  # CCLASS_ALPHANUMERIC   
    $ret |= 0x1000 if $chr =~ / <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19559	19740	
==>},
		GOTOS => {
			'exp' => 100,
			'functioncall' => 31,
			'explist1' => 109,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	}, <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	10175	10431	
==>amespace unless defined $prefix;

      if ($kind eq 'while') {
        $loop = Jako::Construct::Block::Loop::While->new($block, $prefix, $left, $op, $right);
      }
      elsif ($kind eq 'until') {
        $loop = Jako::Construct::Block::Loop::Until->new( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717909	718009	
==>ne 124 \"src/ops/python.ops\"\n  PMC * const io = {{\@1}};\n  if (PIO_softspace(interpreter, io, 0))\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718841	718941	
==>ne 124 \"src/ops/python.ops\"\n  PMC * const io = {{\@1}};\n  if (PIO_softspace(interpreter, io, 0))\ <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	1309	1454	
==>ories, $name) = File::Spec->splitpath($path);
    
    # Needs '' to avoid a warning.
    my $parent_path = File::Spec->catpath($volume, $director <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11082	11187	
==>----------------------------
1;
__END__

=head1 NAME

Pod::Escapes -- for resolving Pod EE<lt>...E<gt> seq <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	2279	2383	
==>s, @{$contents{'contents'}};
    }
    
    return $self->new_item($text, grep {defined} @contents);
}

= <==
2	/Users/nnunley/parrot/config/gen/platform.pm	4809	4945	
==>pl_file" or die "Can't open $impl_file: $!";
            print PLATFORM_C <<"END_HERE";
/*
** $impl_file:
*/
#line 1 "$impl_file"
END_HER <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5240	5438	
==>f, $bs) = @_;

    return <<END_C;

    if (!${bs}ops_addr)
	${bs}ops_addr = l_ops_addr;
    if (cur_opcode == 0) {
	union {
	    const void * __c_ptr;
	    void * __ptr;
	} __ptr_u;
        return ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1214	1332	
==>itably cast.

=cut

sub gen_goto
{
    my ($self, $where_str) = @_;

    return "return (opcode_t *)$where_str";
}

=it <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25710	25884	
==>FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 132,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736265	736681	
==>LAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 827,
                  "ARGS" => [
                              "n",
                              "i"
                            ],
                  "BODY" => "#line 144 \"src/ops/se <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26140	26307	
==>d->[0],
            'result' => $l_next,
        );
        push @opcodes, @{ $elseif->[1] };
        push @opcodes, new BranchOp( $parser,
            'result' => <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5634	5752	
==>\n";
#DBG>		$debug & 0x2
#DBG>	and	print STDERR "In state $stateno:\n";
#DBG>		$debug & 0x08
#DBG>	and	print STDERR <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5364	5478	
==>\n";
#DBG>		$debug & 0x2
#DBG>	and	print STDERR "In state $stateno:\n";
#DBG>		$debug & 0x08
#DBG>	and	print STDERR <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	26297	26447	
==>his an option?
        shift @$paras;
        next;
        
      } elsif($paras->[0][0] eq '~end') {
        $self->whine(
          $para->[1]{'star <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	5882	6028	
==>on = undef;
        }
        unless ($jit_cpu) {
            $line =~ s/emitm_pushl_i/emitm_pushl_m/ if ($line =~ /string/);
        }
        $as <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	668	755	
==>!" unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');
  co <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	747	834	
==>!" unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');
  co <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	2	94	
==>ckage Scheme::Parser;

use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	787	897	
==>d(n)" => "mark end of n-th paren match" ],
    [ "delete(n)" => "delete record of n-th paren match" ],

    [ " <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	8082	8200	
==>complex.h
cacosf      complex.h
cacosh      complex.h
cacoshf     complex.h
cacoshl     complex.h
cacosl      complex.h <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	1270	1417	
==>self, $conf) = @_;

    genfile(
        'config/gen/makefiles/root.in' => 'Makefile',
        commentType                    => '#',
        replac <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2815	2949	
==>scape sequence $_ .\n"),
                last;
        }
    }

    $parser->Error("Untermined string.\n");
    $parser->YYData-> <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4330	4464	
==>scape sequence $_ .\n"),
                last;
        }
    }

    $parser->Error("Untermined string.\n");
    $parser->YYData-> <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	2343	2504	
==>op @{ $parser->YYData->{scope} };
    $parser->YYData->{_G} = $g;
##    warn "PopScopeF\n";
    PopScope($parser);
}

sub PushScope {
    my ($parser) = @_ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	17237	17345	
==>$self->diag(sprintf <<DIAGNOSTIC, $got, $type, $expect);
    %s
        %s
    %s
DIAGNOSTIC
}

=item B<BAILO <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	14874	15010	
==>i",
				"\t$left = $tn",
			);
		} else {
			# Simple a=expr case.
			@ass=(
				@$rightexpr,
				"\t$left = $right",
				
			);
		}
	} e <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2786	2895	
==>ntent;
  $handler->end_element({ Name => 'block' });

  $handler->end_element({ Name => $self->kind });
}



1 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2904	3012	
==>ntent;
  $handler->end_element({ Name => 'block' });

  $handler->end_element({ Name => $self->kind });
}


1 <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	1588	1722	
==>then the above will make parent the same as path.
    undef $parent_path if $parent_path eq $path;
    
    $self = bless {
        PAT <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632569	632665	
==>on(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633611	633707	
==>on(interpreter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13587	13708	
==>g the 'while' block, we might be beginning the 'continue'
      # block, so we check for that case.
      #
      # We *al <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	52246	52363	
==>,undef,'<');
					  $code })
			{
				_parse("a (conditional) reject marker", $aftererror,$line);
				$code =~ /\A\s*< <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	848	1031	
==>es, but from which descriptions were not obtained.

=back

=head1 TO DO

=over

=item * Given a directory argument, should recursively descend.

=item * Should create descriptive hashe <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38091	38256	
==>.

The C<delegate> PMC redirects all methods to bytecode.

=cut

sub body
{
    my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # exi <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	4833	4935	
==>hods

=over 4

=item C<read_ops($file,$nolines)>

Reads in the specified .ops file, gathering informati <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	20155	20278	
==>mt\n";
	$code_l++;
	$cmt ="\t\t# $opcode\t $rest";
	if ($rest =~ /to (\d+)/) {
	    $targ = "pc_$1";
	}
    }
    elsif ($op <==
2	/Users/nnunley/parrot/Configure.pl	3771	3868	
==>E.g.

--icuheaders='/home/lt/icu/'

=back

Other Options

=over

=item C<--maintainer>

Use this o <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4187	4386	
==>SYMBOLS}{$name};
}


###############################################################################

=head2 BLOCK->symbol_names()

Returns the names of the symbols defined locally in this block.

=cu <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	291	416	
==>ON

Displays the API (the visible symbols, code or data) of the Parrot lib.

First lists the Parrot public embedding API as de <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	1569	1725	
==>e eq 'ResizablePMCArray') {
        $R = op('external' => [ 'array', [ $atom, $ctx ] ]);
    } elsif ($atom->isa('P6C::sv_literal') && is_string($atom->type) <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	73606	73765	
==>namespace}/;
	no strict "refs";
	
	croak "Unknown starting rule ($AUTOLOAD) called\n"
		unless defined &$AUTOLOAD;
	my $retval = &{$AUTOLOAD}($_[0],$text,undef, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973826	974193	
==>",
                  "CODE" => 1094,
                  "ARGS" => [
                              "i",
                              "ic",
                              "s",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_c <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18647	18945	
==>ldren}[$_]);
    if (substr ($temp_0, 0, 1) ne substr ($temp_1, 0, 1)) {
      my $temp_2 = $self->_save_1(substr ($temp_0, 0, 1));
      $self->_morph($temp_2, $temp_1);
      $self->_restore ($temp_1);
      $temp_1 = $temp_2;
    }
    $self->_add_inst ('', 'ne', [$temp_0,$temp_1,"DONE_$label"]) <==
2	/Users/nnunley/parrot/config/auto/funcptr.pm	988	1160	
==>this behavior with the
flags you have specified.  You must adjust your settings in order
to use the JIT code.

If you wish to continue without JIT support, please re-run thi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	8980	9098	
==>->_get_titled_section(
  'NAME', max_token => 50, desperate => 1, @_)
}
sub get_version     { shift->_get_titled_sectio <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	6750	6847	
==>\A\s*local\s+([%@\$]\w+)/)
	{
		$parser->{localvars} .= " $1";
		$self->{"vars"} .= "$var;\n" }
	e <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1478	1654	
==>k->push_content($self);

  return $self;
}


#
# ACCESSORS:
#

sub ident { return shift->{IDENT}; }
sub cond  { return shift->{COND};  }
sub left  { return shift->{LEFT};  }
sub <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12329	12446	
==>}}[0] eq $ref  if scalar @{$self->{"items"}};
	return 0;
}

sub leftmostsubrule($)
{
	my $self = shift;

	if ( $#{$sel <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1796	1975	
==>onfig.fpmc';
    open F, $image_file or die "Can't read '$image_file': $!";
    my $image;
    local $/;
    binmode F;
    $_ = <F>;
    close F;

    my @c = split '';
    die "' <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	441	562	
==>ect or archive files.

=head2 Command-Line Options

The following options can be used to limit the symbols:

=over 4

=ite <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921001	921119	
==>ops/string.ops\"\n    {{\@1}}=Parrot_psprintf(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921894	922012	
==>ops/string.ops\"\n    {{\@1}}=Parrot_psprintf(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	4	130	
==>pyright (C) 2001-2005, The Perl Foundation.
# $Id: /parrot/config/gen/makefiles.pm 19593 2006-05-30T02:28:15.110975Z coke  $

= <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	4485	4586	
==>ected, $description)>

Compiles and runs the C code, passing the test if a string comparison of
output <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	4801	4902	
==>ected, $description)>

Compiles and runs the C code, passing the test if a string comparison of
output <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26424	26616	
==>}
    if ( defined $else ) {
        push @opcodes, @{$else};
    }
    push @opcodes, new LabelOp( $parser,
        'arg1' => $l_end,
    );
    return \@opcodes;
}

sub BuildWhile { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	12051	12289	
==>rot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_POP",
                  "NAME" => "ret",
                  "FLAGS" => "",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CO <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42845	42942	
==>tnamespace++;
}

sub new ($$)
{
	my $class = ref($_[0]) || $_[0];
	local $Parse::RecDescent::compi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746132	746534	
==>LAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 840,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 18 <==
2	/Users/nnunley/parrot/lib/Test/More.pm	8872	9052	
==>st->is_eq(@_);
}

sub isnt ($$;$) {
    $Test->isnt_eq(@_);
}

*isn't = \&isnt;


=item B<like>

  like( $this, qr/that/, $test_name );

Similar to ok(), like() matches $this agains <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953787	954056	
==>JUMP" => 0,
                  "NAME" => "encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "func <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954577	954846	
==>JUMP" => 0,
                  "NAME" => "encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "func <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837629	837976	
==>,
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 949,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 240 \"src/ops/stack.ops\"\n  (void)stack_ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	46335	46601	
==>prevline prevoffset prevcolumn))
	{
		$self->{_check}{$_} =
			($grammar =~ /\$$_/) || $self->{_check}{itempos}
				unless $self->{_check}{$_};
	}
	my $line;

	my $rule = undef;
	my $prod = undef;
	my $item = undef;
	my $lastgreedy = '';
	pos $grammar = 0;
	study $gr <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	16825	16949	
==>e part of temporary file
            my $test_no = $builder->current_test() + 1;

            # Name of the file with test co <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	5672	5938	
==>er', 'spf_vtable', 'utils']
            ),
        ),
        $self->new_group(
            'Multi-methods', 
            '',
            $self->c_pair_item('', 'mmd'),
        ),
        $self->new_group(
            'Extensions', 
            '',
            $self- <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	21	112	
==>t (C) 2001-2004, The Perl Foundation.
# $Id: /parrot/lib/Parrot/OpTrans/CPrederef.pm 20333 2 <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4624	4730	
==>nation, where destination is the first
    # argument, given as --destination=DIRECTORY
    shift(@pmcs) =~ <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4728	4834	
==>nation, where destination is the first
    # argument, given as --destination=DIRECTORY
    shift(@pmcs) =~ <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4783	4902	
==>uires destination";
    my $dest = $1;

    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_grou <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4887	5006	
==>uires destination";
    my $dest = $1;

    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_grou <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	36721	36860	
==>char_ci_ge_p,
  'char-alphabetic?' => \&_op_char_alphabetic_p,
  'char-numeric?'    => \&_op_char_numeric_p,
  'char-whitespace?' => \&_op_c <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	26065	26191	
==>ng = shift;
    if ($warning =~ /Odd number of elements in hash assignment/) {
        require Carp;
        my @args = DB::upl <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	4568	4696	
==>, $min, $max, $greedy, $R, @rest) = @_;

    if (($min == 0) && defined($max) && ($max == 1)) {
        return $self->rewrite_opt <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712323	712425	
==>MC * const io = PIO_STDOUT(interpreter);\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0))\n    P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713430	713532	
==>MC * const io = PIO_STDOUT(interpreter);\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0))\n    P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695625	695925	
==>781,
                  "ARGS" => [
                              "ic",
                              "ic",
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{ <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	862	971	
==>{ local $/; <DATA> };

my $CGI = new CGI;

#sub handle_request {
	#my ($self, $CGI) = @_;

	if ($CGI->url(-pat <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	6274	6406	
==>ing.  This is
    # comparitively easy.  Each level of the hierarchy should be
    # indented two spaces.

    # there are two except <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	225	321	
==>Constant.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

packag <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	15550	15773	
==>th} },
                [ $right_type, $sub_meth_name ];
        }

    }
    ## $cout .= $header_decls;
    $cout .= $self->decl($classname, $method, 0);
    # This is the part that comes from the PMC file.
    $cout .= $sel <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	21334	21491	
==>\[$lk\]
EOC
	}
	else {
	    my $lp = promote($l);
	    my $rp = promote($r);
	    print <<EOC;
	$res = $op $lp, $rp $cmt$isnot
EOC
	}
	print <<EOC;
	$pres = n <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	981	1089	
==>("",$$textref,"") if $wantarray;
	return undef;
}

sub _succeed
{
	$@ = undef;
	my ($wantarray,$textref) = sp <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36153	36339	
==>as ret will
        # never have a method to call, thus no argument, but we still want to use
        # this mechanism. Ugly, huh?
        unless ($mv->{'ARG0'}) {
            $mv->{'ARG0 <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	6567	6712	
==>e;
    s/{{-=([^{]*?)}}/     $trans->goto_offset(-$1); /me;
    s/{{=([^*][^{]*?)}}/  $trans->goto_address($1); /me;

    s/{{\^(-?\d+)}}/      $1 <==
2	/Users/nnunley/parrot/lib/Test/More.pm	24945	25081	
==>rt differing.

Test::Differences and Test::Deep provide more in-depth functionality
along these lines.

=back

=cut

use vars qw(@Data_St <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506166	506603	
==>> [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 582,
                  "ARGS" => [
                              "n",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 636 \"src/ops/ma <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	5399	5593	
==>stmt
	my $prev;
	do {
	    if (ref $stmt->{code}) {
                my @labels = $self->label_indices($stmt->{code});
                foreach my $pos (@labels) {
                    push @Q, $lab <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	6209	6346	
==>ing>=0)
	{
		_failmsg "Unmatched opening bracket(s): "
				. join("..",@nesting)."..",
		         pos $$textref;
		pos $$textref = $startp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175205	175319	
==>p(interpreter, {{\@1}}, {{\@2}}, MMD_NUMCMP) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	67808	68010	
==>eter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sweepoff",
                  "FLAG <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18786	18880	
==>method sets the size (in half-points, like 21 for 10.5-point)
that codeblocks ("verbatim sectio <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	3105	3361	
==>files) {
        my $source_file = $gcov_file;
        $source_file =~ s/\.gcov$//g;

        # avoid collisions where multiple files are generated from the 
        # same back-end file (core.ops, for example)
        if (exists($file_line_coverage{$source <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6332	6467	
==>ss_item_text_or_head_start_token($token)>

Process the item text or head start token.

=cut

sub process_item_text_or_head_start_token
{ <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2930	3059	
==>$FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol}\[$op->{arg1}->{symbol}\] = $op->{arg2}->{symbol} <==
2	/Users/nnunley/parrot/lib/Test/More.pm	1435	1549	
==>hat, $test_name);

  is  ($this, $that,    $test_name);
  isnt($this, $that,    $test_name);

  # Rather than print <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	1686	1901	
==>ize

     B1: sub x, 1
         goto S0
     B2: sub x, 1
         goto B1
     B3: sub x, 1
         goto B2

 to

     B1: sub x, 1
         goto S0
     B2: sub x, 2
         goto S0
     B3: sub x, 3
         got <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	61515	61651	
==>eted> attempted to match an embedded quoted substring, but
failed to find a closing quote to match it.

=item C<Did not find closing deli <==
2	/Users/nnunley/parrot/lib/Test/More.pm	19450	19585	
==>but will work in the future (a todo test).

For more details on the mechanics of skip and todo tests see
L<Test::Harness>.

The way Test <==
2	/Users/nnunley/parrot/languages/lua/luac.pl	358	491	
==>ror}   = 1;    # 0, 1
$parser->YYData->{verbose_warning} = 1;    # 0, 1
$parser->YYData->{verbose_info}    = 1;    # 0, 1
$parser-> <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	4975	5187	
==>code .= "  .local int    r_$name \n";
        $code .= "  (r_$name, \$S0) = compiler(register, \$P0) \n";
        $code .= "  register = r_$name + 1 \n";
        $code .= "  pir .= \$S0 \n";
        $code .= emit( <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	6436	6558	
==>ile;
	while(<NM>) {
	    chomp;
	    if (m/^(.+\.o):$/ || m/\[(.+\.o)\]:$/ || m/\((.+\.o)\):$/) {
		$o = $1;
	    } elsif ( <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	1626	1746	
==>alled.

    $contents = $file->read;
    @lines = $file->read;

=cut

sub read
{
    my $self = shift;
    my $fh = FileH <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838363	838712	
==>,
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 950,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 246 \"src/ops/stack.ops\"\n  (void)stack_po <==
2	/Users/nnunley/parrot/lib/Test/More.pm	7141	7320	
==>this, $that, $test_name );
  isnt( $this, $that, $test_name );

Similar to ok(), is() and isnt() compare their two arguments
with C<eq> and C<ne> respectively and use the result of <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	3004	3170	
==>irtu\)
 #           acute looks like / (as in re/sume/)
 #           circumflex looks like ^ (as in papier ma^che/)
 #           umlaut/dieresis looks like " (as in na <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9103	9201	
==>terpreter, fe->seg, 1);\n    }\n    string_cstring_free(label);\n    interpreter->resume_flag = 2;\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10219	10317	
==>terpreter, fe->seg, 1);\n    }\n    string_cstring_free(label);\n    interpreter->resume_flag = 2;\ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	36778	36870	
==>ic_p,
  'char-numeric?'    => \&_op_char_numeric_p,
  'char-whitespace?' => \&_op_char_whites <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11880	12031	
==>ype[NEXT] =~ /INT|FLO/) {
				feedme();
				$syms[CURR]="-$syms[CURR]";
			}
		}
		if ($type[CURR] =~ /STRING|BARE|INT|FLO/) {
			push @ld, { type => "S <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1405	1530	
==>_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Nam <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1399	1524	
==>_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Nam <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	1095	1299	
==>build/vtable_h.pl");
    my @generated = ();
    for my $f (@files) {
        my $in_def = ''; # in #define='def', in enum='enum'
        my ($inc, $prefix, $last_val, $subst, %values);
        my (%var, $ <==
2	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	1375	1477	
==>t << "EOF";

int
PackFile_check_fingerprint (void *cursor)
{
    return memcmp (cursor, fingerprint, $l <==
2	/Users/nnunley/parrot/languages/converter.pl	257	358	
==>urn '' unless defined $modifier->[0];
  return '(?)'  if $modifier->[0] eq '?';
  return '(s)'  if $mo <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	251	447	
==>$
#

use strict;
eval "use warnings 'all';";

package Jako::Symbol;

use Carp;


#
# CONSTRUCTOR:
#

sub new
{
  my $class = shift;

  confess "Expected 10 args" unless @_ == 10;

  my ($block, $sc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50242	50431	
==>R(interpreter, PARROT_PROFILE_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51035	51224	
==>R(interpreter, PARROT_PROFILE_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5473	5735	
==>ep->result || 'done';

        print "..." if $verbose && $verbose == 2;
        print "." x (71 - length($description) - length($result));
        print "$result." unless $step =~ m{^inter/} && $ask;

        # reset verbose value for the next step
        $self <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	692	815	
==>n array of
their indices.

=cut

sub label_indices {
    my ($self, $op) = @_;
    my @indices;
    for my $i (0..$#{ $op->{ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	8387	8491	
==>to find out if something is
true or false!

  # XXX BAD!
  is( exists $brooklyn{tree}, 1, 'A tree grows i <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4812	4918	
==>is gives you an array of C<Parrot::IO::File> instances.

Set C<$recursive> to true if you want all files in <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	79	180	
==>on/DynaPMCs.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Section::Dyna <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613389	613728	
==>S" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 695,
                  "ARGS" => [
                              "p", <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	1651	1781	
==>lighting>

    <list name="special_directives">
END

my %ops;
for my $dir (@imcc_spdirec) {
    $dir =~ s/\.//g;
    print "      < <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	1772	1910	
==>op->[0]}) {
	    my @args = @$op;
	    shift(@args);
	    push @r, $curlabel . $outfunc->(@args);
	    $curlabel = "\t";
	} else {
	    die <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807433	807856	
==>> [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 911,
                  "ARGS" => [
                              "n",
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 50 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8219	8363	
==>BG>			$debug & 0x04
#DBG>		and	print STDERR "Abort.\n";

				return(undef);

			};

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Back t <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7847	7983	
==>BG>			$debug & 0x04
#DBG>		and	print STDERR "Abort.\n";

				return(undef);

			};

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Back t <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1504	1600	
==>L_ERROR("Undefined type!")
    unless defined $type;

  $self->INTERNAL_ERROR("Type is not a Jako <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1352	1448	
==>L_ERROR("Undefined type!")
    unless defined $type;

  $self->INTERNAL_ERROR("Type is not a Jako <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	3722	3976	
==>src\n";
    }

    # Parse out metadata
    die "Malformed line in MANIFEST: $_" if not defined $meta;
    my $generated = $meta =~ s/^\*//;
    my ($package) = $meta =~ /^\[(.*?)\]/;
    $meta =~ s/^\[(.*?)\]//;
    next unless $package; # Skip if this f <==
2	/Users/nnunley/parrot/lib/Test/More.pm	21428	21618	
==>: {
        local $TODO = $why if $condition;

        ...normal testing code goes here...
    }

Declares a block of tests you expect to fail and $why.  Perhaps it's
because you haven't fixe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321113	321522	
==>AGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 376,
                  "ARGS" => [
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 129 \"sr <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	23375	23499	
==>al_FLAG);
        vt_clone->does_str = string_make(interp,
            "$does", @{[length($does)]}, "ascii",
            PObj <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	2911	3089	
==>'merge_text',        # whether to avoid breaking a single piece of
                       #  text up into several events

 'content_seen',      # whether we've seen any real Pod c <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	11507	11732	
==>) {
        DEBUG and print "  Found end of head1.  Considering content...\n";
        if($head1_text_content eq $titlename
          or $head1_text_content =~ m/\($titlename_re\)/s
          # We accept "=head1 Nomen Modulari <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	5004	5176	
==>LL("$1")/g;
                # The ->u.(string|float) is unnecessary.
                $asm =~ s/\)->u\.(\w+)/)/g;
                $asm =~ s/CONST\((\d)\)\s*([><=!]=?)\s*CONST <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	87	181	
==>nguages/tcl/tools/gen_inline.pl src/builtins/foo.tmt > src/builtins/foo.pir

=head1 DESCRIPTION <==
2	/Users/nnunley/parrot/config/auto/memalign.pm	384	546	
==>e Parrot::Configure::Step ':auto';

$description = 'Determining if your C library supports memalign';

@args = qw(miniparrot verbose);

sub runstep
{
    my ($self <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	4740	4882	
==>[0]  =~ s{^}{/*\n};     # '/*'
            $comment[-1] =~ s{$}{\n */};    # ' */'
        } else {
            die "Unknown comment type '$opt <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1326	1418	
==>ken->is_tagname(I<somestring>)

These are shortcuts for C<< $token->tag() eq I<somestring> >> <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1756	1848	
==>ken->is_tagname(I<somestring>)

These are shortcuts for C<< $token->tag() eq I<somestring> >> <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10090	10212	
==>G>		and	print STDERR "**Pop state $$stack[-1][0].\n";

			pop(@$stack);
		}

			@$stack
		or	do {

#DBG>			$debug & <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9639	9753	
==>G>		and	print STDERR "**Pop state $$stack[-1][0].\n";

			pop(@$stack);
		}

			@$stack
		or	do {

#DBG>			$debug & <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	786	974	
==>y.

=cut

sub header
{
    my $self = shift;
    # Default values to keep warnings quiet in tests.
    my $title = shift || 'Untitled';
    my $navigation = shift || '';
    my $resources = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1457	1595	
==>{'output_fh'}} $indent, $text, "\n";
  }
  return;
}

sub _handle_element_end {
  DEBUG and print "-- $_[1]\n";
  print {$_[0]{'output_fh'} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	274060	274551	
==>[
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 319,
                  "ARGS" => [
                              "i",
                              "nc",
                              "n"
                            ],
                  "BODY" => "#line 876 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54480	54617	
==>f("%x", ord($1)).'}'>eg;
      } else {
        # We're in some crazy non-ASCII world!
        s<([^abcdefghijklmnopqrstuvwxyzABCDEFGHIJKL <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5050	5173	
==>}{$key}{$trigger} = $cb;

    return $self;
}

=item C<gettriggers($key)>

Get the names of all triggers set for C<$key>.

A <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10791	10928	
==>y', 'th', 'y',

);

{
  # Now stuff %Latin1Char_to_fallback:
  %Latin1Char_to_fallback = ();
  my($k,$v);
  while( ($k,$v) = each %Latin1C <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	1708	1836	
==>f $opt->{verbose};
    open my $C, '>', $c_name or die "Can't write '$c_name";
    print $C $cout;
    close $C;
    my $hout = $ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	3234	3445	
==>ule = {
                name    => $name
            };
        }

        # Is it a value within a rule with a heredoc?
        elsif (!$in_heredoc && $rule && /^\s*(\w+)\s*=\s*<<(\w+)\s*$/) {
            # Init <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	18521	18705	
==>string if the PMC has a C<no_init> flag.

=cut

sub init_func() {
    my $self = shift;

    my $cout = "";
    return "" if exists $self->{flags}{noinit};

    # TODO gen C line commen <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215747	216018	
==>> 253,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 455 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(int <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	4109	4204	
==>ss defined $Obj;
$Obj = 'blib/lib/libparrot.a' unless defined $Obj;
die "$0: '$Obj': No such fil <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2120	2226	
==>ock->find_symbol($args[$i]->value);
      $self->SYNTAX_ERROR("Undefined identifier '%s'.", $args[$i]->valu <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1820	1926	
==>ock->find_symbol($args[$i]->value);
      $self->SYNTAX_ERROR("Undefined identifier '%s'.", $args[$i]->valu <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	14394	14556	
==>l      stdlib.h
strtold     stdlib.h
strtoll     stdlib.h
strtoul     stdlib.h
strtoull    stdlib.h
strxfrm     string.h
system      stdlib.h
tan         math.h
ta <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3125	3243	
==>output_test('ne', $val1, $val2, $dest);
}

sub output_lt {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18506	18644	
==>code{$seg}->{code}}, <<RETURN1;
	JUMPLABEL= ""
	ret
RETURN1
	} else {
		feedme();   # Special "Return Label"
		push @{$code{$seg}->{code}}, <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	62028	62144	
==>but may indicate incorrect quoting or escaping.

=item  C<No block delimiter found after quotelike "%s">

C<extract_q <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	2531	2751	
==>"middle" ALIGN="center">
                    <IMG BORDER=0
                        SRC="$resources/parrot.small.png" 
                        ALT="parrot">
                </TD>
            </TR>
        </TABLE>
    </BO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	17656	17950	
==>PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18451	18745	
==>PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
2	/Users/nnunley/parrot/config/init/defaults.pm	1068	1221	
==>ccwarn  => exists($Config{ccwarn}) ? $Config{ccwarn} : '',

        # Flags used to indicate this object file is to be compiled
        # with position-in <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	42579	42763	
==>i]\n";
    $p->[$i] .= "\n";
     # Unlike with simple Verbatim blocks, we don't end up just doing
     # a join("\n", ...) on the contents, so we have to append a
     # newline to eve <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	848	1043	
==>shift->temp_reg('S'); }


#
# anon_lbl()
#

my $anon_lbl_count = 0;

sub anon_lbl
{
  my $self = shift;
  return '_ANON_LABEL_' . ++$self->{ANON_LBL_COUNT};
}


#
# invert_relop()
#

my %inverted_ <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	10171	10556	
==>lag eq 'extends' ? ++$parent_nr : 1;
        }
        else {
            $flags{$flag} = 1;
        }
    }

    # setup some defaults
    if ($classname ne 'default') {
        $flags{extends}{default} = 1 unless $flags{extends};
        $flags{does}{scalar}     = 1 unless $flags{does};
    }

    return $pre, $classname, \%flags;
}

=head2 my ($name, $attributes) = parse_pmc($code <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6686	6791	
==>failLabel) = @_;
    my $fail = $self->output_label_use($failLabel);
    return ($self->dbprint("At end: % <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6330	6435	
==>failLabel) = @_;
    my $fail = $self->output_label_use($failLabel);
    return ($self->dbprint("At end: % <==
2	/Users/nnunley/parrot/config/init/hints/freebsd.pm	761	985	
==>,
        link                    => 'g++',
        rpath                   => '-Wl,-R',

        has_dynamic_linking     => 1,
        parrot_is_shared        => 1,
        libparrot_shared        => 'libparrot$(SHARE_EXT).$ <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	12883	13044	
==>ool :$todo, Str :$depends) returns Bool`

- `lives_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These functions both take blocks of code <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	1792	2067	
==>e {
        $R = op('external' => [ 'string', [ $atom, $ctx ] ]);
    }

    if ($tree->capture) {
        return op('group' => [ $R, ++$PAREN ]); # FIXME!!!
    } else {
        return $R;
    }
}

sub convert_rx_repeat {
    my ($self, $tree, $ctx) = @_;
    die "Huh?" if $ <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	4148	4290	
==>} = find_op_number($_->full_name, $_->{experimental});
    }

    @{$ops->{OPS}} = sort { $a->{CODE} <=> $b->{CODE} } (@{$ops->{OPS}} );
}

# c <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	26	114	
==>imple::PullParserEndToken;
use Pod::Simple::PullParserToken ();
@ISA = ('Pod::Simple::Pul <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	16125	16257	
==>}} - $op->{offset};
	if ($op->{type} =~ /left|right/)
	{
	    if ($span != 3)
	    {
		Parse::RecDescent::_error(
			"Incorrect <$op- <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	8833	8984	
==>DEBUG > 4) ? (q<: >, map($_->dump, @to_unget)) : (),
              ") to be keepn'd.\n";
            last; # give up
          }
          # else keep w <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	47990	48093	
==>rce2)
  #  returns the parse trees of $source1 and $source2.
  # Good in things like: &ok( Class->duo(.. <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	7002	7231	
==>$/  ) ? 1 : 0;
		my $undef    = ($type =~ /^[Uu]$/  ) ? 1 : 0;
		my $zeroed   = 0;
		my $const    = 0;
		my $local    = $type eq lc $type ? 1 : 0;
		my $other    = 0;
		if (($^O eq 'irix' || $^O eq 'dec_osf') &&
		    $type =~ /^[ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	7443	7609	
==>]),
                        $self->dbprint("pushing start[$group]: "),
                        aop('pushint', [ '<tmp>' ]),
                        aop('getend', [ '<t <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	15479	15620	
==>HTML anchor with the specified "href".

=cut

sub html_link
{
    my $self = shift;
    my $href = $self->href_path(shift);
    my $text = shi <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	1868	1999	
==>e opcode_to_prederef(i, op)   (op ? \\
     (void**) (op   - CONTEXT(i->ctx)->pred_offset) : NULL)
#endif

#define OP_AS_OFFS(o) (_r <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	4301	4468	
==>eturn;
    }
    
    my $text = $next->text;
                    
    if ( $text =~ /^Parrot::/o )
    {
        # TODO - C<Perl::Module> should really be L<Perl::Modu <==
2	/Users/nnunley/parrot/examples/benchmarks/fib.pl	271	405	
==>head1 DESCRIPTION

Calculates the Fibonacci Number for C<n> (defaults to 28 if
unspecified).

=cut

use strict;

sub fib {
	my $n = shi <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13037	13147	
==>is
					  tried. Since you almost certainly wanted
					  '<error?> <reject>' Parse::RecDescent
					  supplied <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465609	465858	
==>math.ops\"\n  {{\@1}}--;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	466230	466479	
==>math.ops\"\n  {{\@1}}--;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2324	2443	
==>ue;";
}

sub output_print {
    my ($self, $what) = @_;
    $what = value($what);
    return ("print $what;");
}

sub ou <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2642	2759	
==>ue";
}

sub output_print {
    my ($self, $what) = @_;
    $what = value($what);
    return ("print $what");
}

sub ou <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	8185	8308	
==>s+\((.*)\)/) {
		    my $vars = $1;
		    $vars =~ s/[\s']//g;
		    $func_info{$cur_f}{varnames} = $vars;
		    print "# $c <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	2230	2354	
==>lse');          }
sub is_eof           { return shift->is('eof');           }
sub is_exfix_arith   { return shift->is('exfix- <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	2857	2956	
==>odule  = "$moddir/core.pm";

my $file = shift @ARGV;
die "$0: Could not find ops file '$file'!\n" un <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	6114	6386	
==>e.
##
sub update_tests {
    print "Updating tests from CVS\n";
    system "(cd $DIR && cvs -Q up *.test)";
    
    return;
}

##
## usage()
##
## Print the usage message.
##
sub usage {
    print <<'END_USAGE';
Usage: tcl-test.pl [-cu]
    -c Convert the .test files to . <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023955	1024212	
==>n",
                  "CODE" => 1144,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 210 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	22660	22836	
==>n entry to class_init.
    */
EOC
    }

    $cout .= <<"EOC";
    if (pass == 0) {
EOC
    $cout .= <<"EOC";
        /*
         * create vtable - clone it - we have to set a f <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	3077	3308	
==>ibs = qw/
            mscorlib
            System
            Accessibility
            I18N.CJK
            I18N.MidEast
            I18N.Other
            I18N.Rare
            I18N.West
            I18N
            ICSh <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	6965	7182	
==>ptimize => '-O2');
            }
        } elsif ($make =~ /dmake/i) {

            # mingw Perl
        } else {
            warn "unknown configuration";
        }

        $conf->data->set(
            parrot_is_sha <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761382	761484	
==>ine 305 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762235	762337	
==>ine 305 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of b <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	18568	18687	
==>/;
    $file = find_file($include, $file, 1);

    my $fh = open_file( "<", $file );

    my $class;
    eval do { local <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	5774	5889	
==>rot_jit_push_registers(jit_info,$1)/g;
            $ops{$function} = [ $asm , $extern ];
            $function = und <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	6714	6959	
==>nstalled libraries.
# (see Parrot_get_runtime_prefix in src/library.c).
$ENV{PARROT_TEST} = 1 unless defined $ENV{PARROT_TEST};

my $builder = Test::Builder->new();

sub import {
    my ($class, $plan, @args) = @_;

    $builder->plan( $plan, @ar <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	12722	12848	
==>ed $dont_expect ) {
        # undef only matches undef and nothing else
        my $test = defined $got || defined $dont_expect <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	13166	13292	
==>ed $dont_expect ) {
        # undef only matches undef and nothing else
        my $test = defined $got || defined $dont_expect <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10361	10597	
==>, label_num, sp_dest
    .local int i, j, type, try_offset, try_length, try_end, handler_offset, eh_flags
    .local int class_type, class_id
	$stack_locals
	$dest_locals
	\${AUTO_MAGICALS}

	# Type constants.
	.const int ELEMENT_TYPE_VO <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6973	7112	
==>eq 'const' and not defined $value);

      foreach my $ident (@identifiers) {
        if ($access eq 'var') {
          my $var    = Jako::C <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2433	2525	
==>nd_item_bullet { $_[0]->emit_par( 0) }
sub end_item_number { $_[0]->emit_par( 0) }
sub end_it <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2001	2093	
==>nd_item_bullet { $_[0]->emit_par( 0) }
sub end_item_number { $_[0]->emit_par( 0) }
sub end_it <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54768	54896	
==>>eg;
      }
      qq{"$_"};
    }
  } @stuff;
  # $out =~ s/\n */ /g if length($out) < 75;
  return $out;
}

#@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	374	467	
==>o all the file paths within the
directory and any subdirectories recursively (see the C<files( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	14897	15080	
==>8
		}
	},
	{#State 31
		DEFAULT => -40,
		GOTOS => {
			'classpieces' => 51
		}
	},
	{#State 32
		DEFAULT => -40,
		GOTOS => {
			'classpieces' => 52
		}
	},
	{#State 33
		ACTIONS => { <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	10764	10875	
==>re()` since Pugs does not yet have
a proper `use()` builtin.

- `ok (Bool $cond, Str $desc?, Bool :$todo, Str :$ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7044	7160	
==>abel = shift; # Optional: string (TODO: domain)

  confess "No block!"  unless defined $self and ref $self and $self- <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	624	736	
==>s;

use File::Basename;
use File::Spec;
use Parrot::Config;

require Exporter;
require Parrot::Test;
require Test <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	1584	1769	
==>d=keyboard
      variable=var
      citation=cite
      abbreviation=abbr
      acronym=acronym
      subscript=sub
      superscript=sup
      big=big
      small=small
      underline= <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	14485	14642	
==>and
		<span class="tests_unexpect"><tmpl_var name=unexpect> unexpectedly succeeded</span>
              </tmpl_loop><br />
              <a href="<tmpl_var na <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	6799	7101	
==>s</th>
                 </tr>
                 <tr>
                 <td>Totals:</td>
                 <td>$totals{covered_lines} of $totals{lines} ($totals{line_coverage} %)</td>
                 <td>$totals{covered_branches} of $totals{branches} ($totals{branch_coverage} %)</td>
                 <td> <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13633	13775	
==>acts like an unconditional <reject> during parsing)"
		         : $items[0]->describe =~ /<autoscore/
				? "an <autoscore> (which acts like an <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	246782	247108	
==>P);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "and",
                  "F <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24577	24721	
==>_/ if $_ }
	pos = $posbug;

	my $closure = sub
	{
		my $textref = defined $_[0] ? \$_[0] : \$_;
		my @match = Text::Balanced::_match_tagged($text <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	46192	46403	
==>p->[$i + 1]) ) {
      DEBUG > 5 and print "_verbatim_format merges {$p->[$i]} and {$p->[$i+1]}\n";
      $p->[$i] .= splice @$p, $i+1, 1; # merge
      --$i;  # and back up
    }
  }

  # Now look for the last t <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	1114	1240	
==>_$_,\t/*  $i */ \n";
        $i++;
    }
    print OUT <<"END_H";
    enum_class_core_max
};

/* &end_gen */
END_H

    close O <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3194	3301	
==>)
	print "Print me"
	exit sub
	print "Don't print me"
end sub
function foo$
	foo$="Right one"
	exit function <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17161	17268	
==>)
	print "Print me"
	exit sub
	print "Don't print me"
end sub
function foo$
	foo$="Right one"
	exit function <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	4254	4402	
==>{'unimplemented'} ? 'UNIMPLEMENTED' : 
                        "BODY_$_->{'class'}___$_->{'method'}";
            $label =~ s/\./_/g;
            $pi <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	857	971	
==>OpTrans::*>. An instance of the class is created and
later consulted for various bits of information needed to gene <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	826	974	
==>like       => 'like',
    output_isnt       => 'isnt_eq',
                        );

foreach my $func ( keys %language_test_map ) {
    no strict 'r <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	560	677	
==>like => 'like',
    output_isnt => 'isnt_eq',
);

foreach my $func ( keys %language_test_map ) {
    no strict 'r <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4054	4172	
==>y parameter '".lc($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _DBLoad {
	{
		no strict 'refs <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3851	3959	
==>y parameter '".lc($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _DBLoad {
	{
		no strict 'refs <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	20294	20520	
==>2 and print " But the leading ! means that this IS a match!\n";
        }
      }

      $para->[0] = '=for';  # Just what we happen to call these, internally
      $para->[1]{'~really'} ||= '=begin';
      $para->[1]{'~ignore' <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	35421	35528	
==>, here's the real L<...> parsing stuff...
      # "With the ill behavior, with the ill behavior, with the il <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34953	35060	
==>expected
				   = $Parse::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = $Parse::RecD <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42063	42170	
==>expected
				   = $Parse::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = $Parse::RecD <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39114	39233	
==>ed"} }
sub sethashname { $_[0]->{hashname} = '__DIRECTIVE' . ++$_[1]->{dircount} .  '__'; }


sub new
{
	my ($class, $ty <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	798	921	
==>odule.pm";
my $srm = "SRM::$srm_module"->new();

# Ensure rules file exists and parse it.
my @rules = ();
if (-e $rules_file <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	56826	57061	
==>kahead,$line,"<commit>");
				$prod and $prod->additem($item)
				      or  _no_rule("<commit>",$line);
			}
			elsif ($grammar =~ m/$AUTOERRORMK/gco)
			{
				$commitonly = $1;
				_parse("an error marker", $aftererror,$line);
				$ite <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	8951	9044	
==>mplements
a "struct-like" data structure.

The new class is given a constructor method, C<new> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171072	171342	
==>",
                  "CODE" => 205,
                  "ARGS" => [
                              "p",
                              "nc",
                              "ic"
                            ],
                  "BODY" => "#line 211 \"src/ops/cmp.ops\"\n  if ({{ <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	7129	7233	
==>tory with the specified name in the
directory.

=cut

sub path_for_directory_with_name
{
    my $self = s <==
2	/Users/nnunley/parrot/tools/dev/pbc_header.pl	702	889	
==>Perl::MD5 qw(md5);
my %opt;
&main;

sub get_fp {
    # s. also fingerprint_c.pl
    my $compat_file = 'PBC_COMPAT';
    open IN, $compat_file or die "Can't read $compat_file";
    my @line <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	6324	6428	
==>);
}
if ($trans->can("run_core_func_decl")) {
    print SOURCE $trans->run_core_func_decl($base);
    pri <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	29204	29360	
==>> [ $_var,         $_limit,       $_step ],
        'arg1'   => $fct,
        'arg2'   => [ $e_start->[0], $e_limit->[0], $e_step->[0] ],
    );
    my $ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	13487	13609	
==>OC";
	print_item $tos->[1] $cmt
EOC
}

sub PRINT_NEWLINE
{
    my ($n, $c, $cmt) = @_;
    print <<"EOC";
	print_newline $c <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	16338	16463	
==>n handler");
	$pir .= "### end pop_all (typed eh)\n";
    my $pre_load = $srm->pre_load(0);
	$pir .= "### pre_load (typed eh)\ <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	92	225	
==>06-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/yacc.pm - parser generator

=head1 DESCRIPTION

Determines whether C<yacc> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	910792	911125	
==>"i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1026,
                  "ARGS" => [
                              "i",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 284 \"src/ops/string.op <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	961	1130	
==>b file
{
  my $self = shift;
  return defined $self->{FILE} ? $self->{FILE} : '<NO FILE>';
}

sub line
{
  my $self = shift;
  return defined $self->{LINE} ? $self->{LINE <==
2	/Users/nnunley/parrot/examples/benchmarks/oo5.pl	277	397	
==>self->[0] = shift } else { $self->[0] }
}

sub j {
    my $self = shift;
    if (@_) { $self->[1] = shift } else { $self- <==
2	/Users/nnunley/parrot/examples/benchmarks/oo6.pl	269	389	
==>self->[0] = shift } else { $self->[0] }
}

sub j {
    my $self = shift;
    if (@_) { $self->[1] = shift } else { $self- <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1102	1335	
==>, I4, I1
                              #
print "Estimated ops: $I5\n"; # print  "Estimated ops: "
                              # print  I5
                              # print  "\n"
                              #
$N1 = time_hires() <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1102	1335	
==>, I4, I1
                              #
print "Estimated ops: $I5\n"; # print  "Estimated ops: "
                              # print  I5
                              # print  "\n"
                              #
$N1 = time_hires() <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117684	117942	
==>TYPE" => "inline",
                  "CODE" => 146,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 226 \"src/ops/bit.ops\"\n  {{\@1}} >>= {{\ <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	262	356	
==>e auto::gcc;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step <==
2	/Users/nnunley/parrot/config/init/hints.pm	576	692	
==>f) = @_;

    my $verbose = $conf->options->get('verbose');

    my $hints_used = 0;

    my $hints = "init::hints::" <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	17534	17664	
==>int Dumper($self);
    ## exit 0;
    my (@mmds, $found);
    for my $super_mmd (@{ $self->{super_mmd} }) {
        my ($super, $va <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10786	10919	
==>e_with_path($path);
}

=item C<delete()>

Deletes the directory and all its contents, removes the instance from
the cache, and undefin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46884	46997	
==>],
                  "BODY" => "#line 770 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Interp_debug_SET(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47667	47780	
==>],
                  "BODY" => "#line 770 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Interp_debug_SET(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	37569	37808	
==>,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS",
                  "NAME" => "rethrow <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	2592	2783	
==>airs and
returns a L<Parrot::Configure::Data> object.

=cut

sub add
{
    my $self = shift;
    my $delim = shift;
    
    while (my ($key, $val) = splice @_, 0, 2) {
        my ($old) = $se <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	1474	1650	
==>> $name,
                       args => $args || [],
                       %opts }, (ref($class) || $class);

    $self->init();
    return $self;
}

sub init {
    # Nothing t <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	1895	2029	
==>ination = pmc_new(interpreter, enum_class_UnManagedStruct);",
       t => "STRING *final_destination;"
#      b => "Buffer *final_desti <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720230	720473	
==>o, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721430	721673	
==>o, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7744	7861	
==>l *OLDOUT if $out;
    local *OLDERR if $err;

    # Save the old filehandles; we must not let them get closed.
    op <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	7693	7810	
==>l *OLDOUT if $out;
    local *OLDERR if $err;

    # Save the old filehandles; we must not let them get closed.
    op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320130	320386	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" => ":dotgnu_core",
                  "A <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320900	321156	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" => ":dotgnu_core",
                  "A <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	17000	17382	
==>=> [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 23,
                  "ARGS" => [
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 300 \"src/ops/core.ops\"\n  if ({ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583953	584202	
==>"NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585027	585276	
==>"NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function" <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	47922	48057	
==>t;
}


sub _duo {
  # For use in testing: Class->_duo($source1, $source2)
  #  returns the parse trees of $source1 and $source2.
  # Goo <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	2585	2755	
==>lete $typedefs->{$_} unless ($contents =~ /\Q$_\E/);	    
	}
	
	foreach (keys %bad_fdecls) {
	    my ($function_maybe) = ($bad_fdecls{$_} =~ /^\s*(\S+)\(/);
	    delete $b <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5517	5622	
==>f libs might be crucial
sub gather_groups_and_libs {
    my @pmcs = @_;

    my ( %group_files, %group_lib <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5728	5833	
==>f libs might be crucial
sub gather_groups_and_libs {
    my @pmcs = @_;

    my ( %group_files, %group_lib <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	4580	4705	
==>lf->{Skip_All}   = 0;

    $self->{Use_Nums}   = 1;

    $self->{No_Header}  = 0;
    $self->{No_Ending}  = 0;

    $self->_du <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	16482	16639	
==>ostamble
}
HEADER
    }

    my ($key, $value) = (defined $params ?
        ( "$return$params", "pcf_${return}_$params" ) :
        ( "$return", "pcf_${return <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819575	819661	
==>tack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n\n  if (!entr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820535	820621	
==>tack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n\n  if (!entr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	639532	639691	
==>eter, NULL, E_ValueError,\n\t\t      \"Illegal PMC enum (%d) in instantiate\", typ);\n\t  }\n\t  class = interpreter->vtables[typ]->class;\n\t  break;\n      ca <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447870	448150	
==>VAL){{\@2}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	448696	448976	
==>VAL){{\@2}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "a <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	1389	1645	
==>= ();
    my $dist = Parrot::Distribution->new;
    
    if ( exists $contents{'pairs'} )
    {
        foreach my $name (@{$contents{'pairs'}})
        {
            push @contents,
                $dist->relative_path($dist->c_source_file_with_name($name) <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41587	41779	
==>last }' unless $self->{min}==0;

	$code .= '
		  $_tok = [ @item ];
		  last;
		} 

		unless ($repcount>='.$self->{min}.')
		{'.($::RD_NO_TRACE?'':'
			Parse::RecDescent::_trace(q{<<Didn\'t mat <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	40486	40610	
==>[0]) a man link.\n";
      } else {
        $ell->[1]{'type'}    = 'pod';
        DEBUG > 3 and print "Considering this a pod <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeSmart.pm	61	266	
==>This module is to be use()'d only by Pod::Simple::Transcode

package Pod::Simple::TranscodeSmart;
use strict;
use Pod::Simple;
require Encode;

sub is_dumb  {0}
sub is_smart {1}

sub all_encodings {
  retur <==
2	/Users/nnunley/parrot/config/auto/gc.pm	502	602	
==>lloc in F<src/res_lea.c>.

=item C<malloc-trace>

Use the malloc in F<src/res_lea.c> with tracing ena <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	11111	11395	
==>RCE <<END_C;
};

END_C
}

if ($suffix eq '' && !$dynamic_flag) {
    $getop = 'get_op';
    my $hash_size = 3041;
    $tot = $index + scalar keys(%names);
    if ($hash_size < $tot * 1.2) {
        print STDERR
            "please increase hash_size ($hash_size) in tools/build/ops2c.p <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	21836	21983	
==>le_f);
                my $test_func = join( '::', $package, $example_test_map{$func} );
                $test_func->( $lang_for_extension{$extensio <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	142	331	
==>arrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	145	231	
==>arrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expression/Value/ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	21565	21837	
==>nd capture the extension
                                                 \z                          # at end of string
                                               }ixms or Usage();
            if ( defined $extension ) { 
                my $code = slurp_file($example <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	1447	1581	
==>s.

Accepts a list and returns a list.

=cut

sub get
{
    my $self = shift;

    my $c = $self->{c};

    return @$c{@_};
}

=item C< <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7593	7750	
==>$indent$2\" because it is inside of " . (join ' > ', @stack) . ")\n")
            }

            pop @stack;

            next;
        }

        next unless <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2305	2426	
==>include' . $PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/src/pmc' . $PATHQUOTE . " " .
        $so <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	2100	2221	
==>include' . $PATHQUOTE . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/src/pmc' . $PATHQUOTE . " " .
        $so <==
2	/Users/nnunley/parrot/config/auto/jit.pm	1101	1245	
==>9000/800 to 9000_800 on HP-UX
    $cpuarch =~ s|/|_|g;

    # On OS X if you are using the Perl that shipped with the system
    # the above spli <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366896	367074	
==>ODY" => "#line 313 \"src/ops/io.ops\"\n  if ({{\@2}} && {{\@1}}) {\n    STRING * const s = VTABLE_get_string(interpreter, {{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	5449	5598	
==>ket: \"$found\"",
					 pos $$textref;
				pos $$textref = $startpos;
			        return;
			}
			my $expected = pop(@nesting);
			$expected =~ tr/({[< <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	9968	10101	
==>$out .= "\n";

    $self->_print($out);

    unless( $test ) {
        my $msg = $todo ? "Failed (TODO)" : "Failed";
        $self->_p <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	821	1069	
==>ntually be compiled
open NCI, ">", "src/nci.c" or die "Can't open nci.c!";

print_head(\@ARGV);

my %ret_type =
     ( p => "void *",
       i => "int",
       3 => "int *",
       l => "long",
       4 => "long *",
       c => "char",
       s => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64675	64763	
==>terp *)PMC_data({{\@1}});\n  Interp_flags_SET(new_interp, PARROT_EXTERN_CODE_FLAG);\n  ne <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65626	65714	
==>terp *)PMC_data({{\@1}});\n  Interp_flags_SET(new_interp, PARROT_EXTERN_CODE_FLAG);\n  ne <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	2042	2141	
==>my (@ifstack);
	my(@lhs, @rhs);
	my($result, $type, @code);

	if ($debug) {
		push @{$code{$seg}->{c <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10656	10772	
==>00-\x1F\x80-\x9F//d if 'A' eq chr(65);
        $section = $self->unicode_escape_url($section);
        # Turn char 12 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4037	4146	
==>00-\x1F\x80-\x9F//d if 'A' eq chr(65);
    $section = $self->unicode_escape_url($section);
     # Turn char 12 <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	6339	6505	
==>arg_count{$arg};
	$defs = @{$def_args{$arg}};
	print "# @{$def_args{$arg}}\n";
	# XXX this is wrong, the default args should be evaluated once
	#     if this value dep <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	23728	23842	
==>output>

    $Test->failure_output($fh);
    $Test->failure_output($file);

Where diagnostic output on test failure <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2148	2243	
==>f unknown
  }
}

#--------------------------------------------------------------------------
sub <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2613	2704	
==>f unknown
  }
}

#-------------------------------------------------------------------------- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175970	176176	
==>,
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 240 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176874	177080	
==>,
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 240 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	1172	1325	
==>things } ]);
}

use vars qw($PAREN); # FIXME!!!
sub convert_rx_atom {
    my ($self, $tree, $ctx) = @_;
    my $atom = $tree->atom;

    my $R;
    if (UN <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22113	22231	
==>n  if (!{{\@1}}->vtable->get_bool(interpreter, {{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  " <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	224	354	
==>0350 2006-06-25T03:57:27.771662Z petdance  $' =~ /^\$[iI][dD]:\s(.*)\$$/;

=head1 NAME

tools/build/parrot_config_c.pl - Create src <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2179	2276	
==>OR("Undefined identifier '%s'.", $args[$i]->value) unless $arg_sym;
      $actual_arg_type = $arg_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1879	1976	
==>OR("Undefined identifier '%s'.", $args[$i]->value) unless $arg_sym;
      $actual_arg_type = $arg_ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7267	7365	
==>er"
a$="   Flush   "
print ">";ltrim$(a$)
print rtrim$(a$);"<"
' A's and -'s
print string$(10,75-10 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18996	19094	
==>er"
a$="   Flush   "
print ">";ltrim$(a$)
print rtrim$(a$);"<"
' A's and -'s
print string$(10,75-10 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	281159	281444	
==>=> "inline",
                  "CODE" => 327,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 903 \"src/ops/cmp.ops\"\n  {{\@1}} = ({ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18946	19075	
==>fpoint_integer> );

This method sets the size (in half-points, like 15 for 7.5-point)
that the header on each page will appear in. <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4451	4575	
==>as a new instance.

C<$self> is a hash reference C<eval>-ed from a F<*.dump> file generated
by F<tools/build/pmc2c.pl> from a <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5890	6010	
==>ed($$token)
            or	do {
				($$token,$$value)=&$lex($self);
#DBG>				$debug & 0x01
#DBG>			and	print STDERR " <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5609	5725	
==>ed($$token)
            or	do {
				($$token,$$value)=&$lex($self);
#DBG>				$debug & 0x01
#DBG>			and	print STDERR " <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	796	900	
==>ub output_classmatch {
    my ($self, $class) = @_;
    return "re_match_class P0, $class";
}

sub output <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	2205	2405	
==>n_delimited_pat($;$)  # ($delimiters;$escapes)
{
	my ($dels, $escs) = @_;
	return "" unless $dels =~ /\S/;
	$escs = '\\' unless $escs;
	$escs .= substr($escs,-1) x (length($dels)-length($escs));
	my @p <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	6859	7053	
==>s.
    $out ~~ s:P5:g/#/\\#/;

    my $context_out = $context.defined ?? " # $context" !! "";

    print "not " unless $cond;
    say "ok ", $Test::num_of_tests_run, $out, $context_out;

    Test <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	15969	16119	
==>? 1 : 0;
        $test = !$test if $cmp eq '!~';
        $ok = $self->ok( $test, $name );
    }

    unless( $ok ) {
        $this = defined $this ? "' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1301	1457	
==>");
}

############### SIMPLE OUTPUT ##############

sub output_terminate {
    return "";
}

sub output_advance {
    my ($self, $distance, $failLabel) = @_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607284	607553	
==>" => "inline",
                  "CODE" => 688,
                  "ARGS" => [
                              "p",
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 473 \"src/ops/object.o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570635	571086	
==>RGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 652,
                  "ARGS" => [
                              "i",
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 223 \"src/ops/object. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873603	874117	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 991,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic",
                              "i"
                            ], <==
2	/Users/nnunley/parrot/languages/lua/luac.pl	496	601	
==>@ARGV);

if ( exists $parser->YYData->{nb_error} ) {
    my $nb = $parser->YYData->{nb_error};
    pri <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	4911	5076	
==>dler!

        if( $line =~ m/^#\s*line\s+(\d+)\s*(?:\s"([^"]+)")?\s*$/ ) {
          # That RE is from perlsyn, section "Plain Old Comments (Not!)",
          #$fnam <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033304	1033396	
==>const lex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n    if (PMC_IS_NULL(lex_pad)) { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034402	1034494	
==>const lex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n    if (PMC_IS_NULL(lex_pad)) { <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	382	519	
==>e::BlackBox');
$VERSION = '2.05';

@Known_formatting_codes = qw(I B C L E F S X Z); 
%Known_formatting_codes = map(($_=>1), @Known_formatt <==
2	/Users/nnunley/parrot/lib/Test/More.pm	20264	20419	
==>rors, 0, "No errors found in HTML" );
    }

If the user does not have HTML::Lint installed, the whole block of
code I<won't be run at all>.  Test::More wil <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6426	6534	
==>ed.
   Exchange=FALSE
   ' Compare the array elements by pairs. When two are exchanged,
   ' force another pa <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16079	16187	
==>ed.
   Exchange=FALSE
   ' Compare the array elements by pairs. When two are exchanged,
   ' force another pa <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16066	16262	
==>var ) = @_;
    my $result;
    my @opcodes = ();
    my $idf     = shift @{$var};
    if ( ref($idf) eq 'ARRAY' ) {
        $result = $idf->[0];
        push @opcodes, @{ $idf->[1] };
    } <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	2650	2759	
==>elf->process_file_start_token($token);
    }
    elsif ( $tagname eq 'C' )
    {
        $self->process_code_s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9303	9540	
==>stack[-1] twips.\n";
        $self->{'rtfindent'} += $indent_stack[-1];
        
      } elsif ($tagname eq 'L') {
        $tagname .= '=' . ($token->attr('type') || 'pod');
        
      } elsif ($tagname eq 'Data') {
        my $next = <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10083	10194	
==>thatelementname".  We only
    #  remap once.
    # If we say we accept "W", then a "W" in the treelet simply tu <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	10833	10969	
==>y $para_text_content;

  while(
    ++$token_count <= ($max_token || 1_000_000)
    and defined(my $token = $self->get_token)
  ) {
    p <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6959	7070	
==>RAMS}[${ITEMP0}] = ${STEMP0}

# Emit code to pop the register.
${INS} = concat ${STEMP0}
${INS} = concat " = pop <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	10728	10847	
==>turn "t_$temp_num";
    };
    /I/ && do {
        push @{$temps_ref}, "INTVAL t_$temp_num;";
        push @{$extra_prea <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3206	3317	
==>t('ld'));

        # We can't use -opt: and -debug together.
        if ($conf->data->get('ld_debug') =~ /-debug <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4710	4821	
==>t('ld'));

        # We can't use -opt: and -debug together.
        if ($conf->data->get('ld_debug') =~ /-debug <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	6999	7134	
==>Tt]$/  ) ? 1 : 0;
		my $undef    = ($type =~ /^[Uu]$/  ) ? 1 : 0;
		my $zeroed   = 0;
		my $const    = 0;
		my $local    = $type eq lc $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	7705	7809	
==>$greedy, $R) = @{ $op->{args} };
    my $sublen = $R->maxlen();
    if (defined($max) && $max !~ /^-?\d+/ <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	351	558	
==>ss,
    # inter/progs.pl will merge the command-line overrides with the defaults.
    # We do one bit of its work early here, because we need the result now.
    $cc = $conf->options->get('cc') if defined $co <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	12674	13045	
==>rgs} };
    my $expr = $tree->render;
    if ($name eq 'default') {
        return $expr;
    } else {
        return "rule $name { $expr }";
    }
}

########################################################################
# Dumping trees, for debugging only
########################################################################

package Regex::Ops::Tree;

sub dump_tr <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35653	35898	
==>ead2 Parrot::Pmc2c::Null Instance Methods

=over 4

=cut

package Parrot::Pmc2c::Null;
use base 'Parrot::Pmc2c';
import Parrot::Pmc2c qw( gen_ret );

=item C<implements($method)>

True for vtable methods.

=cut

sub implements
{

    my ($self, $ <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	1818	1934	
==>return unless $self->create_path;
    
    return $instance_for_path{$path} = $self;
}

=back

=head2 Instance Method <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955878	955966	
==>{{\@1}} = string_copy(interpreter, Parrot_encoding_name(interpreter, {{\@2}}));\n  {{+=3} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956690	956778	
==>{{\@1}} = string_copy(interpreter, Parrot_encoding_name(interpreter, {{\@2}}));\n  {{+=3} <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	19853	20034	
==>MCs.
Currently unused, but retained for being a basis for supporting
platforms that need a symbol export list.

sub gen_def {
    my ($include, $pmcs) = @_;

    my ($pmcfilename, $p <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	14889	15052	
==>int CODE<<OP;
	push P14, "$op"
@a	bsr DEREF
	push P14, P6
OP
			$ops++;
			next;
		}
		@a=EXPRESSION();   # CURR = "to", "," or EOL.
		feedme();
		if ($syms[CURR] e <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	41172	41290	
==>cope->{$symbol}) {
    $scope = $scope->{'*UP*'};
  }
  if (!$scope) {
    push @{$self->{functions}}, $symbol
      un <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	3	305	
==>Id$

=head1 NAME

Parrot::Test::Perl6 -- testing routines for languages/perl6

=head1 SYNOPSIS

    use Parrot::Test::Perl6 tests => 3;

    perl6_output_is(<<'CODE', <<'OUTPUT', 'hello, world!');
    say 'hello, world!';
    CODE
    hello, world!
    OUTPUT

    perl6_stderr_like($code, qr/$expected/ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5400	5523	
==>oken,$$value)=(undef,undef);
	@$stack=( [ 0, undef ] );
	$$check='';

    while(1) {
        my($actions,$act,$stateno) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5140	5258	
==>oken,$$value)=(undef,undef);
	@$stack=( [ 0, undef ] );
	$$check='';

    while(1) {
        my($actions,$act,$stateno) <==
2	/Users/nnunley/parrot/config/auto/bc.pm	86	185	
==>-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/bc.pm - Check whether GNU bc works

=head1 <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	897	1005	
==>t};

    $TEST_PROG_ARGS = $ENV{TEST_PROG_ARGS} || '-j -Oc';
    my $args = $TEST_PROG_ARGS;

    Parrot::Tes <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649088	649328	
==>{\@1}} = pmc_type_p(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649851	650091	
==>{\@1}} = pmc_type_p(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/config/init/defaults.pm	17	124	
==>001-2005, The Perl Foundation.
# $Id: /parrot/config/init/defaults.pm 19593 2006-05-30T02:28:15.110975Z coke <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	13910	14061	
==>URCE <<END_C;
static void hop_deinit(void) {}
END_C
}

print SOURCE <<END_C;

/*
** op lib descriptor:
*/

static op_lib_t ${bs}op_lib = {
  "$base",		/ <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	9304	9415	
==>{slash}ops${slash}$ops > ops${slash}$pod\n";
                print MAKEFILE "\t\$(CHMOD) 0644 ..${slash}ops${sla <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14271	14428	
==>nd print "  Doesn't look at all contentworthy!\n  Giving up.\n";
          undef $title;
          last;
        }
      }
    }
    
    else {
      die "IM <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	10918	11038	
==>ry other class in
Perl.  Creating your class at compile time will make the order of events
similar to using any other cla <==
2	/Users/nnunley/parrot/config/inter/lex.pm	913	1027	
==>s->get('maintainer')) {
        $conf->data->set($util => 'echo');
        $self->set_result('skipped');
        re <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	910	1024	
==>s->get('maintainer')) {
        $conf->data->set($util => 'echo');
        $self->set_result('skipped');
        re <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	60736	60850	
==>cname_size}  = $st[7];
    $parser->YYData->{srcname_mtime} = $st[9];
    $parser->_InitLexico();
    $parser->Y <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	819	915	
==>_t)(cur_opcode - interpreter->code->base.data))
#define CUR_OPCODE cur_opcode
#define IREG(i) REG <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	935	1031	
==>_t)(cur_opcode - interpreter->code->base.data))
#define CUR_OPCODE cur_opcode
#define IREG(i) REG <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	247	345	
==>08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statement;

use <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	410	541	
==>rcent'}\\% \\\\ \n";
}

my $done = 0;
my $total = 0;
map { $done += $_->{'done'}; $total += $_->{'total'}; } @results;
my $per <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7764	7860	
==>goto PARSE;

=begin wrongway

UNK:	if (($type[CURR] eq "STMT" or $type[CURR] eq "COMM" or $type[C <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10036	10138	
==>ACTIONS}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Pop state $$stack[-1][0]. <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9588	9687	
==>ACTIONS}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Pop state $$stack[-1][0]. <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5278	5380	
==>p(@_));
}

=item C<expr_offset($offset)>

Implemented in subclasses to return the C code for C<OFFSET($ <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	5812	5927	
==>& ! -d $dir ); 

       my $patterns = capture_output( "$svn_cmd propget svn:ignore $dir" );
       # TODO: escape c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	728946	729390	
==>" => 817,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 64 \"src/ops/set.ops\"\n   FLOATVAL temp = {{\@1}};\n   {{\@1}} = {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	16398	16565	
==>R
{
    my ($op, $cmt) = @_;
    my $r = pop @stack;
    my $l = pop @stack;
    my ($t, $n);
    if ($r->[2] eq 'I' && $l->[2] eq 'I') {
	$n = temp($t = 'N');
	print < <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710796	710907	
==>rpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711630	711741	
==>rpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924429	924667	
==>y(interpreter, enum_stringrep_one, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925220	925458	
==>y(interpreter, enum_stringrep_one, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	22745	22846	
==>177 "lib/Regex/Grammar.y"
{ return $_[1]; }
	],
	[#Rule 43
		 'classpiece', 3,
sub
#line 179 "lib/Rege <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	562	680	
==>elf->peer;

  my $prefix;

  if ($self->prefix) {
    $prefix = $self->prefix;
  }
  else {
    $prefix = $self->peer ? <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	542	660	
==>elf->peer;

  my $prefix;

  if ($self->prefix) {
    $prefix = $self->prefix;
  }
  else {
    $prefix = $self->peer ? <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42816	43035	
==>YPE" => "inline",
                  "CODE" => 54,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 727 \"src/ops/core.ops\"\n  do_exceptio <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	141	229	
==>rot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Type.pm 19606 2006-05 <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	14714	14809	
==>-------------------------------------------------------------------------

sub whine {
  #my($se <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4193	4418	
==>faultlib',
            ar                   => 'xilib',
            ar_flags             => '',
            ar_out               => '-out:',
            slash                => '\\',
            blib_dir             => 'blib\\ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	22654	22811	
==>$$textref =~ m/\G$func/gc )
					{ @bits = $field = defined($1) ? $1 : $& }
				$pref ||= "";
				if (defined($field) && length($field))
				{
					if (!$igun <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	649	804	
==>oken->attr('attrname', 'newval')
    ${$_[0][2] ||= {}}{ $_[1] } = $_[2];
  } else {
    require Carp;
    Carp::croak(
      'usage: $object->attr("val") o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841656	841932	
==>,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "or <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842420	842696	
==>,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "or <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	20517	20685	
==>rot;
                $obj->{parrot}  = $parrot;
                $obj->$meth(@remaining);

                # restore prior level, just in case.
                $builder-> <==
2	/Users/nnunley/parrot/config/auto/jit.pm	679	798	
==>nf->options->get('miniparrot')) {
        $self->set_result('skipped');
        return $self;
    }

    my $verbose = $ <==
2	/Users/nnunley/parrot/config/gen/cpu.pm	591	710	
==>nf->options->get('miniparrot')) {
        $self->set_result('skipped');
        return $self;
    }

    my $verbose = $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	8311	8420	
==>rget of type $type\n";
  }    
  return sort keys %{ $this->{'accept_targets'} } if wantarray;
  return;
}

#- <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	3222	3342	
==>lternative to the fingerprint produced by tools/build/fingerprint_c.pl.', 'PBC_COMPAT'),
        ),
    );
}

=back

=cut <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29165	29284	
==>ad"   => $_[2],
		"line"        => $_[3],
		"description" => "'$desc'",
	}, $class;
}


sub code($$$$)
{
	my ($self, $na <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31267	31381	
==>ad" => $_[2],
		"line"      => $_[3],
		"description" => "'$desc'",
	}, $class;
}

sub code($$$$)
{
	my ($self, $na <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	18040	18225	
==>_Test}++;

    $self->{Test_Results}[$self->{Curr_Test}-1] = &share({
        'ok'      => 1,
        actual_ok => 1,
        name      => '',
        type      => 'skip',
        reason <==
2	/Users/nnunley/parrot/tools/dev/cc_flags.pl	988	1147	
==>= qr/$1/;
    }
    elsif (s/^(\S+)\s*//) {
	$regex = qr/^\Q$1\E$/;
    }
    else {
	die "syntax error in $cflags: line $., $_\n";
    }

    for (;;) {
	if (s <==
2	/Users/nnunley/parrot/lib/Test/More.pm	26339	26538	
==>'};
        if( $type eq 'HASH' ) {
            $var .= "->" unless $did_arrow++;
            $var .= "{$idx}";
        }
        elsif( $type eq 'ARRAY' ) {
            $var .= "->" unless $did_arrow <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1205	1341	
==>lliant wrapping algorithm:
      s/(
         [^\n]{55}         # Snare some characters from a line
         [^\n\ ]{0,50}     #  and fin <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1149	1285	
==>lliant wrapping algorithm:
      s/(
         [^\n]{55}         # Snare some characters from a line
         [^\n\ ]{0,50}     #  and fin <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	11008	11132	
==>}
    .expander { color: blue; cursor: pointer; }  /* hack? */

    .tests_ok       { color: #050; }
    .tests_failed   { co <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	458	647	
==>g{test_prog} );

sub run_spec {
    my ( $spec_fh ) = @_;

    my $pattern = <$spec_fh>;
    chomp($pattern);

    $_ = <$spec_fh>;
    my @spec;
    while (1) {
         my ($input, $output <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	11051	11188	
==>Strange Win line endings
            convert_line_endings( $expected );

            # set up default description
            unless ( $de <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	16536	16673	
==>Strange Win line endings
            convert_line_endings( $expected );

            # set up default description
            unless ( $de <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	55030	55140	
==>abled. The extracted value is either
$1 if that variable is defined after the match, or else the
complete match <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	7092	7184	
==>->{'token_buffer'}}), " items in it.\n";
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	18030	18175	
==>e $line.}m;
        $Test->diag(<<DIAGNOSTIC);
    Tried to use '$module'.
    Error:  $@
DIAGNOSTIC

    }

    return $ok;
}

=item B<require_ok <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	8571	8683	
==>de =~ s/^\s+//;

    # create a copy and remove strings and comments so that
    # unbalanced {} can be used in t <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	21959	22128	
==>g_for_extension{$extension}, $code, $expected, $example_f, @options );
            }
            else {
                fail( defined $extension, "no extension recognized <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10951	11040	
==>"BODY" => "#line 206 \"src/ops/core.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11740	11829	
==>"BODY" => "#line 206 \"src/ops/core.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter- <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	44581	44806	
==>malizing nbsp's to S is harder: for each text node, make S content
  #  out of anything matching m/([^ \xA0]*(?:\xA0+[^ \xA0]*)+)/


  return;
}


sub _change_S_to_nbsp { #  a recursive function
  # Sanely assumes that the top <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	653	792	
==>::HQ9plus::$func"} = sub ($$;$) {
        my $self = shift;
        my ( $code, $output, $desc ) = @_;
  
        my $count = $self->{builde <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9855	9967	
==>$args";
    } else {
        return "INTERP, SELF";
    }
}

=item C<proto($type,$parameters)>

Determines the pr <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	4383	4497	
==>add_inst ('', 'new',[$return,'.Integer']);
      $self->_add_inst ('', 'set',[$return,$value]);
    }
    elsif ($v <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	2887	3035	
==>less( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "check_events",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	4814	4967	
==>comment = $_;
	$desc = $info->{perl_comment} = $comment;
    }
    if(!$desc && $text =~ /^=head1/m) { # try an embedded pod
	my($doc) = $text =~ /(?:^|\n <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37547	37647	
==>expected = ' . ($rule->hasleftmost($self) ? 'q{}'
				: 'q{'.$self->describe.'}' ) . ';
		$Parse::Rec <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39950	40050	
==>expected = ' . ($rule->hasleftmost($self) ? 'q{}'
				: 'q{'.$self->describe.'}' ) . ';
		$Parse::Rec <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	3671	3893	
==>If so, ignore them.  C::Scan is imperfect.\n\n";
    
        foreach my $fdecl (sort keys %bad_fdecls) {
            $fdecl =~ s/^[\n\s]*//gm; $fdecl =~ s/[\n\s]*$//gm;
            print Text::Wrap::wrap("    ", "    ", $f <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6608	6740	
==>STDERR "Shift and go to state $act.\n";

					$$errstatus
				and	do {
					--$$errstatus;

#DBG>					$debug & 0x10
#DBG>				a <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6301	6426	
==>STDERR "Shift and go to state $act.\n";

					$$errstatus
				and	do {
					--$$errstatus;

#DBG>					$debug & 0x10
#DBG>				a <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	1091	1315	
==>tem C<includedir>

The header directory. Defaults to '/usr/include'.

=back

=head1 SEE ALSO

F<install_files.pl>

=cut

################################################################################

my %options = ( prefix <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5167	5329	
==>ift;
	my $pir = "";

	# If the register name to load from was supplied, we need to generate
	# the name of the destination register emulating the stack position an <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	2109	2234	
==>$description)>

Runs the Parrot Assembler code and passes the test if
the  output matches the expected result.

=item C<pasm_o <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	2624	2898	
==>}

sub convert_rx_oneof {
    die "unimplemented enumerated charclass";
}

sub convert_rx_assertion {
    die "unimplemented assertion";
}

sub convert_rx_call {
    die "unimplemented rule calling";
}

sub convert_sv_literal {
    use Data::Dumper;
    my ($self, $tree, $ct <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	8590	8741	
==>p, $pmc);
    if ($for_header) {
        $export = $self->{flags}->{dynpmc} ? 'PARROT_DYNEXT_EXPORT ' :
                                             'PA <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	7281	7470	
==>page_footer();
}


sub write_file_coverage_summary {

    print "Writing $HTMLDIR/file_summary.html..\n" if $DEBUG;
    open (OUT, ">$HTMLDIR/file_summary.html") or
      die "Can't open $HT <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807892	808005	
==>= {{\@2}}->vtable->get_number_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808797	808910	
==>= {{\@2}}->vtable->get_number_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712771	712973	
==>");\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713878	714080	
==>");\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	1000	1104	
==>create this file after SVN
# has been told about new generated files.
# 
# Ignore the SVN directories
\B\ <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3855	3958	
==>create this file after SVN
# has been told about new generated files.
#
# Ignore the SVN directories
\B\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	246760	247080	
==>}}, {{\@3}}, MMD_NUMCMP);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	23063	23239	
==>= "USER"
	P1["storage"]= P0
	P2["$var"]= P1
DIMTYPE
			if ($syms[NEXT] eq ",") {
				feedme();
				goto &parse_dim;
			}
		} elsif ($syms[NEXT] eq "(")  {
			my $var=$syms[CURR] <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41453	41583	
==>ack;

		  # MATCH RIGHTARG
		  ' . $rightarg->code(@_[1..2]) . '
		  $repcount++;
		  ';
	}

	$code .= 'unless (@item) { undef $_to <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	195	433	
==>urn 'rx_allocinfo P0, S0';
}

sub output_match_succeeded {
    return 'rx_succeed P0';
}

sub output_match_failed {
    return 'rx_fail P0';
}

############### SIMPLE OUTPUT ##############

sub output_advance {
    my ($self, $distance, $f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85651	85928	
==>hash, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86558	86835	
==>hash, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	56417	56779	
==>$return = { text => $item[-1] };
						       @{$return->{type}}{'.$code.'} = (1..'.$types.');',
						      $lookahead,$line,"<token:$code>");
					$prod and $prod->additem($item)
					      or  _no_rule("<token:$code>",$line);
				}
			}
			elsif ($grammar =~ m/$COMMITMK/gco)
			{
				_parse("an commit marker", $aftererror,$line);
				$item = new Parse::RecDe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035399	1035501	
==>text_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@2}};\n    PMC * cons <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036563	1036665	
==>text_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@2}};\n    PMC * cons <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	4407	4527	
==>turn,'.Integer']);
      $self->_add_inst ('', 'set',[$return,$value]);
    }
    elsif ($value =~ /^[-+]?((\d+\.\d*)|(\. <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	70015	70109	
==>r,$line) = @_;
	pos($grammar)=pos($_[2]);
	return if $grammar =~ m/$OPTIONAL/gco || $grammar =~ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	99	192	
==>30T13:40:58.862833Z coke  $

=head1 NAME

Parrot::Test::Harness - a test harness for languages <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21742	21949	
==>d"
		else 
			print "Third"
		end if
	end if
	print "First, and every"
	bump=bump-1
	goto LOOPY
LAST:
	print "All done"

' Mystery typeshift bug (OK)
type foo
	first as integer
end type
dim a as foo
print a.f <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	429	538	
==>ew
{
  my $class = shift;

  confess "Expected 5 args!" unless @_ == 5;

  my ($block, $prefix, $left, $op, $r <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	429	538	
==>ew
{
  my $class = shift;

  confess "Expected 5 args!" unless @_ == 5;

  my ($block, $prefix, $left, $op, $r <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	2391	2547	
==>dir2 =~ s/\[$//;
    my @dir1 = split(/,/, $dir1);
    my @dir2 = split(/,/, $dir2);
    my (%dir1, %dir2);
    @dir1{@dir1} = (1) x scalar @dir1;
    @dir2{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	17403	17709	
==>{{+=$1}}/mg;
        #s/goto\s+NEXT\(\)/{{+=$op_size}}/mg;	#not supported--dependent on op size
        s/goto\s+ADDRESS\((.*)\)/{{=$1}}/mg;
        s/goto\s+POP\(\)/{{=*}}/mg;
        s/HALT\(\)/{{=0}}/mg;

        # FIXME: This ought to throw errors when attempting to rewrite $n
        # argument access <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547651	548101	
==>" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 631,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 1094 \"src/ops/math.ops\"\n  /* Coercing a negativ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711936	712286	
==>int_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 799,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088921	1089086	
==>e->slice(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089869	1090034	
==>e->slice(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2561	2739	
==>file, $generator) = @fc;
            my $h;
            ($h = $file) =~ s/\.\w+$/.h/;
            $h =~ s/(\w+)\.h$/pmc_$1.h/;
            my $c;
            ($c = $file) =~ s/\.\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	604	716	
==>{ $_[1] };
  } elsif(@_ > 2) {  # Writing: $token->attr('attrname', 'newval')
    ${$_[0][2] ||= {}}{ $_[1] } = $ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9522	9684	
==>, $thisparser, 1;
	':'') . ($parser->{_check}{itempos} ? '
	my $thisline;
	tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;

	' : '
	my $this <==
2	/Users/nnunley/parrot/config/gen/config_pm.pm	656	787	
==>conf) = @_;

    $conf->data->clean;

    genfile('config/gen/config_pm/myconfig.in', 'myconfig');

    open(IN,  "config/gen/config <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	284	399	
==>);
@ISA = qw(Exporter Test::More);

sub import {
    my( $class, $plan, @args ) = @_;

    Test::More->import( $plan <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	201	316	
==>);
@ISA = qw(Exporter Test::More);

sub import {
    my( $class, $plan, @args ) = @_;

    Test::More->import( $plan <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3415	3550	
==>ch is harder.
        $body =~ s/^(\s*)([^\n]+)\s*\Z/$1puts [$2]/m;

        $tests{$name} = [$expl, $body, $out];
    }

    return %te <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4822	4957	
==>ch is harder.
        $body =~ s/^(\s*)([^\n]+)\s*\Z/$1puts [$2]/m;

        $tests{$name} = [$expl, $body, $out];
    }

    return %te <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	6332	6432	
==>ifiers:
    #

    if ($text =~ m{^([a-zA-Z][a-zA-Z0-9_]*(::[a-zA-Z][a-zA-Z0-9_]*)*)(.*)$}) {
#printf <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113878	114132	
==>ops\"\n  {{\@1}} <<= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114617	114871	
==>ops\"\n  {{\@1}} <<= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6383	6470	
==>_arg_0
POST_BRANCH_switch_${CURIC}_LOOP:
if i == 0 goto POST_BRANCH_switch_${CURIC}_LOOP <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4321	4408	
==>_arg_0
POST_BRANCH_switch_${CURIC}_LOOP:
if i == 0 goto POST_BRANCH_switch_${CURIC}_LOOP <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	2405	2646	
==>c.pl'),
            $self->new_item('', 'tools/build/revision_c.pl'),
            $self->new_item('', 'tools/dev/gen_manifest_skip.pl'),
            $self->new_item('', 'tools/dev/install_files.pl'),
            $self->new_item('', 'tools/dev <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64714	64806	
==>gs_SET(new_interp, PARROT_EXTERN_CODE_FLAG);\n  new_interp->code = interpreter->code;\n  runo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65665	65757	
==>gs_SET(new_interp, PARROT_EXTERN_CODE_FLAG);\n  new_interp->code = interpreter->code;\n  runo <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9443	9557	
==>9\x3B-\x40\x5B-\x5E\x60\x7B-\x7F]/
            # Characters under 0x80 that aren't legal in an XML Name.
        or <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10707	10821	
==>9\x3B-\x40\x5B-\x5E\x60\x7B-\x7F]/
            # Characters under 0x80 that aren't legal in an XML Name.
        or <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548997	549161	
==>g a negative to a UINT can get pretty ugly\n   * in this situation. */\n  INTVAL i = {{\@2}};\n  FLOATVAL q = 1;\n  while(i>0) {\n    q = q*i;\n    i--;\n  }\n  {{\@ <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	12993	13133	
==>t OUT qq($atag<font color="red">$_</font>)
            } elsif ($_ =~ /^call \d+ never executed/) {
                print OUT qq($atag<font c <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	2066	2202	
==>leader of a block
    $leaders{$new_pc} = 1;

    # This loop tries to identify instructions that may be the target
    # of control flow <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819578	819665	
==>k_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n\n  if (!entry) { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820538	820625	
==>k_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n\n  if (!entry) { <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	30760	30945	
==>el().

=cut

sub caller {
    my($self, $height) = @_;
    $height ||= 0;

    my @caller = CORE::caller($self->level + $height + 1);
    return wantarray ? @caller : $caller[0];
}

=bac <==
2	/Users/nnunley/parrot/Configure.pl	3787	3897	
==>rs='/home/lt/icu/'

=back

Other Options

=over

=item C<--maintainer>

Use this option if you want imcc's pars <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834805	835044	
==>,
                  "CODE" => 945,
                  "ARGS" => [
                              "sc"
                            ],
                  "BODY" => "#line 202 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter- <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	946	1051	
==>self) = @_;
   ...
 }
 
...and start_/end_ methods for whatever other events you want to catch.

=head1 DE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20082	20367	
==>" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 27,
                  "ARGS" = <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	24042	24196	
==>>{"lookahead"} ? '$text = $_savetext and ' : '' ) .'
		last '
		. ($self->{"lookahead"}<0?'if':'unless') . ' defined $_tok;
'
}

1;

package Parse::RecDesc <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22972	23120	
==>>{"lookahead"} ? '$text = $_savetext and ' : '' ) .'
		last '
		. ($self->{"lookahead"}<0?'if':'unless') . ' defined $_tok;
		push @item, '.($::RD_NO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760865	761148	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setp_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ], <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761717	762000	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setp_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ], <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10801	10920	
==>ew {
        my($class)=shift;
        ref($class)
    and $class=ref($class);

    my($self)=$class->SUPER::new( y <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11802	11916	
==>ew {
        my($class)=shift;
        ref($class)
    and $class=ref($class);

    my($self)=$class->SUPER::new( y <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	630	776	
==>ILE} ? $self->{FILE} : '<NO FILE>';
}


#
# line()
#

sub line
{
  my $self = shift;

  if (@_) { $self->{LINE} = shift; }

  return defined $self- <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	294	424	
==>st translation hooks.
sub pre_translation {
	die "pre_translation not implemented for current stack to register mapper\n";
}
sub po <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	4442	4545	
==>ft: opt(aR|aS|T|...) -> a opt(R|S) | opt(T|...)
        my $leftovers = $self->pass1(rop('alternate', \@ <==
2	/Users/nnunley/parrot/config/init/hints/openbsd.pm	5	95	
==>yright (C) 2005, The Perl Foundation.
# $Id: /parrot/config/init/hints/openbsd.pm 19593 200 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	31604	31707	
==>$line) {
			push @{$code{_data}->{code}}, qq{\t\$P1["$line"]= $counter\n};
		}
		foreach (@{$ld->{data}} <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	1051	1289	
==>p one - indent, and add in extra blank lines.

    my @output;
    my $verbatim_chunk;

    foreach my $line ( @{ $self->{raw_pir} } ) {
        if ( $line =~ $verbatim_begin ) {
            $verbatim = 1;
        }
        if ( $line =~ $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1982	2082	
==>block->find_symbol($self->name);

  #
  # If the identifier is already defined at this lexical scope, <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1729	1829	
==>block->find_symbol($self->name);

  #
  # If the identifier is already defined at this lexical scope, <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	7714	7824	
==>codeb	\$N100= $resultb
@codef	\$N101= $resultf
	_screen_color(\$N101,\$N100)
FANDB
	} elsif (@codeb and not @co <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	10188	10295	
==>texpr=join(' ', map { $_->[0] } @expr);
	return(@expr);
}
sub pushthing {
	my($code, $optype, $sym, $type, $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19977	20136	
==>e 16
		 'expr', 3,
sub
#line 123 "lib/Regex/Grammar.y"
{ return op('multi_match' => [ 1, -1, FALSE, $_[1] ]); }
	],
	[#Rule 17
		 'expr', 2,
sub
#line 125 "lib/ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	2348	2504	
==>EndToken';

  DEBUG > 1 and print "New pullparser object: $self\n";

  return $self;
}

# ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314883	315150	
==>flow exception for conv_i1_ovf\");\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "c <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	24796	25131	
==>eturn $fh;
}


sub _is_fh {
    my $maybe_fh = shift;

    return 1 if ref \$maybe_fh eq 'GLOB'; # its a glob

    return UNIVERSAL::isa($maybe_fh,               'GLOB')       ||
           UNIVERSAL::isa($maybe_fh,               'IO::Handle') ||

           # 5.5.4's tied() and can() doesn't like getting undef
           UNIVERSAL::c <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	189	520	
==>ct;

sub output_preamble {
    my $self = shift;

    return (
            'new P0, PerlRegex',
            're_bind P0, S0'
           );
}

############### SIMPLE OUTPUT ##############

sub output_advance {
    my $self = shift;
    my $distance = shift || 1;
    return "re_advance P0, $distance";
}

sub output_onfail {
    my ( <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	8209	8310	
==>is always optional.

=over 4

=item B<ok>

  $Test->ok($test, $name);

Your basic test.  Pass if $test <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2927	3039	
==>ub YYSemval {
	my($self)=shift;
	my($index)= $_[0] - ${$$self{DOTPOS}} - 1;

		$index < 0
	and	-$index <= @{ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2785	2892	
==>ub YYSemval {
	my($self)=shift;
	my($index)= $_[0] - ${$$self{DOTPOS}} - 1;

		$index < 0
	and	-$index <= @{ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	30450	30549	
==>_arg ($node, 1, 'procedure?');

  $return = $self->_constant(0);

  my $temp = $self->_generate(_get <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	3124	3302	
==>es                  => 1
    );
    genfile(
        'config/gen/makefiles/languages.in' => 'languages/Makefile',
        commentType                         => '#',
        repla <==
2	/Users/nnunley/parrot/languages/converter.pl	1035	1133	
==>]' mod(?) production(?)
		| terminal(?) '[' production ']' production(?)
#		{[@item]}
		{ $return = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550159	550253	
==>CONTINUATION;\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_method(interpr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551460	551554	
==>CONTINUATION;\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_method(interpr <==
2	/Users/nnunley/parrot/config/inter/ops.pm	608	780	
==>turn -1 }
            if ($b =~ /core\.ops/) { return 1 }
            return ($a cmp $b)
            }
            grep {
            !/vtable\.ops/
            } glob "src/ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2309	2463	
==>ind,
    $self->type,
    $name,
    undef,            # No value
    $props,           # Parsed Properties
    $args,            # Parsed Properties
    $ <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	350	446	
==>e::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining if your C comp <==
2	/Users/nnunley/parrot/config/auto/msvc.pm	370	466	
==>e::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining if your C comp <==
2	/Users/nnunley/parrot/config/gen/config_h.pm	281	367	
==>n
values, F<include/parrot/has_header.h> with platform-specific header
information, and <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34146	34268	
==>rm->pre_branch($rule->{'pop'});
		$pir .= "### pre_branch\n";
		$pir .= sub_meta($pre_branch, $mv, "pre_branch for rule $ru <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	5228	5478	
==>log' => 1,
                    'arg1'   => $expr,
                    'result' => $defn,
                );
            }
        }
        return [ $defn, \@opcodes ];
    }
}

sub BuildTable {
    my ( $parser, $fields ) = @_;
    my @op <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	72913	73130	
==>>code($self->{"namespace"},$self);
			$rule->{"changed"} = 0;
		}
	}

	return $code;
}


# EXECUTING A PARSE....

sub AUTOLOAD	# ($parser, $text; $linenum, @args)
{
	croak "Could not find method: $AUTOLOAD\n" unless re <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	1810	2072	
==>passed into an
op a register is read from, when it's passed out of an op a register is
written to.

Argument type is one of:

    INT       the argument is an integer
    NUM       the argument is an numeric
    STR       the argument is an string
    PMC       t <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2021	2138	
==>);

    bless($self,$class);
}

sub YYParse {
    my($self)=shift;
    my($retval);

	_CheckParams( \@params, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1951	2059	
==>);

    bless($self,$class);
}

sub YYParse {
    my($self)=shift;
    my($retval);

	_CheckParams( \@params, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665263	665484	
==>te_keyed_int(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666040	666261	
==>te_keyed_int(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561875	561968	
==>reter, {{\@2}}, {{\@3}});\n  if (!{{\@1}}) {\n    real_exception(interpreter, next, METH_NOT_F <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562959	563052	
==>reter, {{\@2}}, {{\@3}});\n  if (!{{\@1}}) {\n    real_exception(interpreter, next, METH_NOT_F <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2899	3059	
==>fo->{desc}) {
	    print "\n* $info->{path}\n\n$info->{desc}\n";
	} else {
	    print "( $info->{path} )\n";
	    push(@no_descriptions,$info);
	}
    }
    prin <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27120	27284	
==>a('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $l_break;
            }
        }
    }
    push @opcodes, @{$b <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27801	27965	
==>a('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $l_break;
            }
        }
    }
    push @opcodes, @{$b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	312521	312641	
==>"BODY" => "#line 157 \"src/ops/debug.ops\"\n  struct Parrot_Context_info info;\n  Parrot_Context_info(interpreter, CONTEX <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71208	71629	
==>oadlib",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 95,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 11 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	807	940	
==>ruct::Expression::Value::Literal->new($block, $token)    if $token->kind eq 'literal';

  return undef;
}

sub block { return shift->{ <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	617	749	
==>or yacc?";
@args        = qw( yacc ask maintainer );

sub runstep
{
    my ($self, $conf) = @_;
    
    my $verbose = $conf->options <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2546	2750	
==>";
  $self->{'Thispara'} = '';
  
  return;
}

# . . . . . . . . . . And then off by its lonesome:

sub end_Verbatim  {
  my $self = shift;
  if(Pod::Simple::ASCII) {
    $self->{'Thispara'} =~ tr{\xA0}{ } <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3017	3138	
==>"
  ;
  $self->{'Thispara'} = '';
  
  return;
}

# . . . . . . . . . . And then off by its lonesome:

sub end_Verbatim  { <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	1965	2098	
==>y $line (split(/\n/, $input)) {
        # Is this the start of a new method?
        if ($line =~ /^\[([\w\.]+)\s*\:\:\s*(\w+)\s*(\:un <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688439	688860	
==>=> 0,
                  "NAME" => "delprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 773,
                  "ARGS" => [
                              "p",
                              "sc"
                            ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687668	688058	
==>=> 0,
                  "NAME" => "delprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 772,
                  "ARGS" => [
                              "p",
                              "s" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2657	2853	
==>dled by superclass?

sub kind  { return shift->{KIND};     }
sub type  { return shift->{TYPE};     }

sub name
{
  my $self = shift;
  my $name = $self->{NAME};

  return $name;
}

sub props { retu <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2774	2891	
==>dled by superclass?

sub kind { return shift->{KIND}; }
sub type { return shift->{TYPE}; }
sub name { return shift->{N <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	6658	6767	
==>y $brack = reverse $_[0];
	$brack =~ tr/[({</])}>/;
	return $brack;
}

my $XMLNAME = q{[a-zA-Z_:][a-zA-Z0-9_:. <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21790	21909	
==>t(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$label");
  return $return;
}

sub _op_negative_p {
  my <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	1130	1276	
==>ed later.

=cut

sub combineLabels {
    my $self = shift;
    my @names = map { $_->{label} =~ /(\w+)/; $1 } @_;
    my %names;
    @names{@names} <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	253	366	
==>:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Declaration;

use base qw(Jako:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106259	1106343	
==>yp >= interpreter->n_vtable_max)\n\treal_exception(interpreter, NULL, E_ValueError,\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107235	1107319	
==>yp >= interpreter->n_vtable_max)\n\treal_exception(interpreter, NULL, E_ValueError,\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710724	710817	
==>reter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_printf(interpreter, INTVAL_FMT, ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711558	711651	
==>reter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_printf(interpreter, INTVAL_FMT, ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	304333	304736	
==>",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 354,
                  "ARGS" => [
                              "i",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 985 \"src/ops/cmp.ops <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	12036	12307	
==>thods;
            my @mmds = ($methodblock =~ /MMD_(\w+):/g);
            push @methods,
                {
                    meth        => $methodname,
                    body        => $methodblock,
                    line        => $lineno,
                    typ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	44770	44909	
==>ction
  # Sanely assumes that the top node in the excursion won't be an S node.
  my($treelet, $in_s) = @_;
  
  my $is_s = ('S' eq $treelet <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	3621	3876	
==>[2]"}!;
    }
    print OUT join(",\n", @all);
    print OUT <<HEADER;

};

HEADER
    close OUT;
}

=for never

print <<"HEADER";
/*
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically from '$infile'
 * by $0.
 *
 * Any <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1071340	1071869	
==>o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1195,
                  "ARGS" => [
                              "i",
                              "i",
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\ <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	533	671	
==>($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    my $cc        = $conf->data->get('cc');
    my $libs      = $c <==
2	/Users/nnunley/parrot/config/auto/readline.pm	545	683	
==>($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    my $cc        = $conf->data->get('cc');
    my $libs      = $c <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	7175	7454	
==>lib => $fnlib,
          fn    => $fn
        }
      });
    }
  }
  else {
    return;
  }

  foreach my $arg ($self->args) {
    my ($arg_type_name, $arg_name) = @$arg;

    $handler->start_element({
      Name       => 'arg',
      Attributes => {
        type => $arg_type_na <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	57894	58026	
==>("Items like $code that consist of angle
					brackets enclosing a sequence of
					uppercase characters will eventually
					be used <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2093	2208	
==>1}
${DEST$push_num} = ${STEMP0}

# Increment dtypes index.
inc ${ITEMP0}
PIR
		$pir =~ s/\$register_num/$register_nu <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	16877	16998	
==>rig_content'} = $content;
    return $para->[1]{'~type'} = 'bullet';

  } elsif($content =~ m/^\s*\*\s+(.+)/s) {  # tolera <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	10989	11085	
==>thod($class, $method, $super, $super_table)>

Rewrites the method body performing the various mac <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11391	11487	
==>thod($class, $method, $super, $super_table)>

Rewrites the method body performing the various mac <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	6936	7122	
==>ue anyway; I think that'll only come in for
# situations like (R)*, which are silly anyway. Then again, I'm
# probably wrong.)
#
sub rewrite_group {
    my ($self, $op, $R, $group, $lastb <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11059	11284	
==>=~ /\s/) {
                    # Skip whitespace, unless backslashed
                } else {
                    push @tokens, $c;
                    push @types, $c;
                }
            }
        } elsif ($state = <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	1377	1486	
==>onst_table->constants) {
        printf("%04x: %08x %08x %08x %08x %s\n",
	    $constant_num, $_->flags, $_->e <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	281	419	
==>se warnings";

package Jako::Construct::Type;

use Carp;

use overload
  "=="  => sub { $_[0]->code eq $_[0]->code },
  "!="  => sub { $_[0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784317	784404	
==>c/ops/set.ops\"\n    {{\@1}}->vtable->set_pmc_keyed_int(interpreter, {{\@1}}, {{\@2}}, { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785223	785310	
==>c/ops/set.ops\"\n    {{\@1}}->vtable->set_pmc_keyed_int(interpreter, {{\@1}}, {{\@2}}, { <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	52069	52241	
==>[2] ];
        }
	],
	[#Rule 49
		 'key', 3,
sub
#line 295 "Lua\lua51.yp"
{
            $_[2];
        }
	],
	[#Rule 50
		 'key', 2,
sub
#line 299 "Lua\lua51.y <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5565	5670	
==>ter_num/$register_num/g;
		$register_num++;
	}

    # Need to emit code to do any lazy moves that we've no <==
2	/Users/nnunley/parrot/languages/regex/regex.pl	1938	2050	
==>trees);
    exit;
} elsif ($operation eq 'dump') {
    print $_->dump_tree(), "\n" foreach (@$trees);
    exit;
} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	2387	2492	
==>for
5 minutes.

Add the salt and chick peas and cook, stirring, until heated through.

Stir in the lime ju <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421826	422010	
==>"\n    {{\@1}} = (INTVAL)PIO_bind(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422719	422903	
==>"\n    {{\@1}} = (INTVAL)PIO_bind(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51739	51839	
==>\@1}} != 0) { Parrot_set_trace(interpreter,   {{\@1}}); }\n  else         { Parrot_clear_trace(interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52522	52622	
==>\@1}} != 0) { Parrot_set_trace(interpreter,   {{\@1}}); }\n  else         { Parrot_clear_trace(interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691211	691355	
==>ps/pmc.ops\"\n   {{\@1}} = Parrot_thaw(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691968	692112	
==>ps/pmc.ops\"\n   {{\@1}} = Parrot_thaw(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2694	2820	
==>/i) {
            $liblist =~ s/gdbm\.lib/-llibgdbm/i;
        }
        my $extraLibs = '-lm -lgmp -lreadline -lpthread -lm -L <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	2489	2615	
==>/i) {
            $liblist =~ s/gdbm\.lib/-llibgdbm/i;
        }
        my $extraLibs = '-lm -lgmp -lreadline -lpthread -lm -L <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5339	5523	
==>'no result returned';
            carp "\nstep $step_name failed: " . $result;
            return;
        }

        my $result = $step->result || 'done';

        print "..." if $verb <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	3834	4079	
==>end of a heredoc?
        elsif ($in_heredoc && /^$heredoc_terminator\s*$/) {
            # Stash key/value pair away and unset heredoc flag.
            $rule->{$heredoc_key} = $heredoc_value;
            $in_heredoc = 0;
        }

        # Is <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	15612	15745	
==>s;
  return unless @{$paras = $self->{'paras'}};
  my $curr_open = ($self->{'curr_open'} ||= []);

  my $scratch;

  DEBUG > 10 and pr <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39392	39506	
==>'      => \&_op_open_output_file,
  'close-input-port'      => \&_op_close_input_port,
  'close-output-port'     => <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	7285	7502	
==>h (@output4) {
        delete $_->{label} if ($_->{label} && ! $AMDEST{$_->{label}->{label}});
    }

    return (
            bless($self->{_label_comments}, 'LABEL_COMMENTS'),
            map { ($_->{label} ? ($_->{l <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	7833	8000	
==>ctor

                                    # scalar type accessor:
    $element_value = $obj->s;           # element value
    $obj->s('new value');               # assi <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	551	673	
==>->settrigger($key, $trigger, $cb);
    $data->gettriggers($key);
    $data->gettrigger($key, $trigger);
    $data->deltrigg <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	902	1012	
==>ub compile
{
  my $self = shift;
  my ($compiler) = @_;
  
  my $ident_name = $self->ident->value;

  my $ident <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	902	1010	
==>ub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $ident_name = $self->ident->value;

  my $ident <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	414	511	
==>build/vtable_h.pl>, F<tools/dev/gen_class.pl>, and
F<src/pmc/null.pl>.

=head2 Functions

The foll <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30471	30589	
==>DISP
	}
	print CODE <<DISP2;
	print "Structure type of "
	print S0
	print " not found\\n"
	_platform_shutdown()
	end
DI <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30804	30922	
==>DISP
	}
	print CODE <<DISP2;
	print "Structure type of "
	print S0
	print " not found\\n"
	_platform_shutdown()
	end
DI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295622	296058	
==>=> [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 344,
                  "ARGS" => [
                              "i",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 950 \"src/ops/ <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	2538	2630	
==>each argument direction was prefixed by 'C<label>'.

C<$flags> is one or more (comma-separate <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	652253	652740	
==>> 729,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 264 \"src/ops/pmc.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_repr(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	856	1041	
==>config/auto/cgoto/test_c.in');
        $test = eval { cc_build(); 1; } || 0;
        cc_clean();
    }

    if ($test) {
        $conf->data->set(
            TEMP_cg_h => '$(INC_DIR)/op <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	3620	3747	
==>line
        DEBUG > 3 and print "  Line is: ",
          defined($lines[-1]) ? $lines[-1] : "<undef>\n";
        unless( define <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	7286	7409	
==>le_file {
    my ($file_name) = @_;

    my $pf = Parrot::PackFile->new;
    $pf->unpack_file($file_name)
      or die "Unab <==
2	/Users/nnunley/parrot/lib/Test/More.pm	133	301	
==>cceed
# even though the module being used forgot to use Carp.  Yes, this
# actually happened.
sub _carp {
    my($file, $line) = (caller(1))[1,2];
    warn @_, " at $fil <==
2	/Users/nnunley/parrot/Configure.pl	4976	5104	
==>t Configure 2.0

General Options:

   --help               Show this text
   --version            Show version information
   --v <==
2	/Users/nnunley/parrot/config/gen/icu.pm	1793	2038	
==>ldflags");
            if (defined $icushared) {
                chomp $icushared;
                $icushared =~ s/-licui18n\w*//; # "-licui18n32" too
                $without = 1 if length $icushared == 0;
            }

            # location o <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	31449	31635	
==>ub _op_char_ready_p {
}

sub _op_write {
  my ($self,$node) = @_;
  my $temp = 'none';

  for(_get_args($node)) {
    $self->_restore ($temp);
    $temp = $self->_generate($_);
    if ($t <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	5644	5859	
==>_;

    return unless $cmd;

    if( $self->{Have_Plan} ) {
        die sprintf "You tried to plan twice!  Second plan at %s line %d\n",
          ($self->caller)[1,2];
    }

    if( $cmd eq 'no_plan' ) {
        $s <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	3974	4089	
==>p_name->new;

        # XXX This works. but is probably not a good design.
        # Using $step->description() woul <==
2	/Users/nnunley/parrot/tools/dev/pbc_header.pl	1688	1829	
==>r
	    intvalsize floattype );
	print "$f\n";
	for my $i (0..5) {
	    my $c = substr $header, $i, 1;
	    $c = unpack 'c', $c;
	    printf "\ <==
2	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	5	182	
==>trict;

package Lua::opcode;
{

    sub new {
        my $proto  = shift;
        my $class  = ref($proto) || $proto;
        my $parser = shift;
        my %attr   = @_ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	6207	6363	
==>ne if the test succeeded or
failed.  A true expression passes, a false one fails.  Very simple.

For example:

    ok( $exp{9} == 81,                   'simp <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	3664	3823	
==>is not the file for that
module, then the documentation file for the module is linked to.

=cut

sub process_code_start_token
{
    my $self = shift;
    my $to <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23189	23283	
==>add_inst("DONE_$label");
  $self->_restore($temp_0,$temp_1);
  return $return;
}

sub _op_max { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676015	676104	
==>3 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_integer(interpreter, {{\@1}}, {{\@2}}) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676795	676884	
==>3 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_integer(interpreter, {{\@1}}, {{\@2}}) <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	40169	40286	
==>if ($self->{type} eq "leftop" )
	{
		$code .= '
		  # MATCH LEFTARG
		  ' . $leftarg->code(@_[1..2]) . '

		  $repcoun <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1506	1750	
==>g.ops\n*/\n\n\n\n/*\n** sys.ops\n*/\n\n\n\n/*\n** var.ops\n*/\n\n\n";
$ops = [
         bless( {
                  "JUMP" => 0,
                  "NAME" => "end",
                  "FLAGS" => ":base_core,check_event",
                  "ARGDIRS" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1850	1994	
==>d of file '%s'.",
      $name, $sym->line, $sym->file);
  }

  #
  # Now that we've decided to actually declare the sub, we will place its
  # de <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	16618	16761	
==>ir .= <<'PIRCODE';
    loadreg = "$P1000001"
PIRCODE
    my $post_load = $srm->post_load(0);
	$pir .= "### post_load (typed eh)\n";
	$pir .= sub <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	9467	9622	
==>x < 0) { $guarantee = 0; }
        else { $guarantee /= $max; }
        $t->{args}->[3] = $self->add_checks($R, int($guarantee), $follow_min);
        retur <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	9252	9390	
==>ly unpredictable -- for now. I think some static
# analysis might not be too hard.
package Regex::Ops::Tree::call;
sub minlen { 0 }
sub max <==
2	/Users/nnunley/parrot/languages/urm/urm-old.pl	195	370	
==>or die "Couldn't get file";
foreach my $line (<PROGRAM>) {
    chomp $line;
    next if ($line =~ /^ *\#/);
    if ($line =~ /in *\(([r\d,]+)\)/) {
	print "Werte für $1: ";
	m <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	13463	13583	
==>->minlen();
    my $max = $op->maxlen();
    $max = "INF" if ! defined $max;
    return "$str [$min..$max]";
}

# Default <==
2	/Users/nnunley/parrot/config/auto/headers.pm	2176	2284	
==>s => join('', map { "#include <$_>\n" } @$use_headers));
            $conf->data->set(testheader  => $header) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	68214	68406	
==>.ops\"\n  Parrot_block_DOD(interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1442	1558	
==>ass as the base class for a Pod formatter/processor.

=head1 METHOD CALLING

When Pod::Simple sees a "=head1 Hi there <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	3077	3286	
==>t a sequence)
        my $R = shift(@children);

        # opt(R|...) -> (opt(R)|opt(...)) (R is not a sequence)
        if ($R->{name} ne 'seq') {
            my $subtree = $self->pass1(rop('alternate', \@chil <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	8701	8895	
==>textref =~ m/\G(\n[ \t]*\n)/gc )
		{
			$parapos = pos($$textref) - length($1)
				unless defined $parapos;
		}
		elsif ($$textref =~ m/\G($rdelspec)/gc )
		{
			$closetagpos = pos($$textref)-len <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2613	2761	
==>,
            has_dynamic_linking  => 1,
            parrot_is_shared     => 1,

            sym_export => '__declspec(dllexport)',
            sym_i <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	942	1062	
==>ned $in and length $in;
  
  # Convert to decimal:
  if($in =~ m/^(0[0-7]*)$/s ) {
    $in = oct $in;
  } elsif($in =~ m/ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2301	2421	
==>ned $in and length $in;
  
  # Convert to decimal:
  if($in =~ m/^(0[0-7]*)$/s ) {
    $in = oct $in;
  } elsif($in =~ m/ <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	3925	4169	
==>4
            #      where the argument is used as a power of 2
            # 3.x  does not align functions per default, its turned on with
            #      -O2 and -O3
            #      -falign-functions=16 is the real alignment, no exponent <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	18922	19032	
==>x/Grammar.y"
{ return op('scan' => [ $_[1] ]); }
	],
	[#Rule 7
		 'regex1', 1,
sub
#line 103 "lib/Regex/Grammar <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	21290	21396	
==>p_sequences: formatless treelet.\n";
    return 0;
  }
  
  my $map = ($self->{'accept_codes'} || die "NO a <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	58369	58488	
==>mmar =~ m/$RULE/gco)
		{
			_parseunneg("a rule declaration", 0,
				    $lookahead,$line) or next;
			my $rulename = $1 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	40881	41042	
==>~=]//s;

      DEBUG and print "\n", pretty($para), "\n";

      # traverse the treelet (which might well be just one string scalar)
      $self->{'content_seen'} <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	990	1099	
==>>get('cpuarch') =~ /sun4|sparc64/) {

        # CFLAGS entries must be left-aligned.
        print CFLAGS <<"E <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	33664	33837	
==>$treelet->[$i][1]{'to'} = Pod::Simple::LinkSection->new(
            $treelet->[$i]  # yes, clone the whole content as a treelet
          );
          $treelet->[$i][1]{'to' <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	8038	8260	
==>ry->[0],
                section     => $entry->[3],
                mmd         => $entry->[4]
            };
    }
    $vtable{'has_method'} = \%meth_hash;

    my $Dumper = Data::Dumper->new([\%vtable], ['class']);
    $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009150	1009445	
==>}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compose",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009914	1010209	
==>}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compose",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	11275	11437	
==>($file line $line)";
            }

            # $test_no will be part of temporary file
            my $test_no = $builder->current_test() + 1;

            # Na <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	16760	16922	
==>($file line $line)";
            }

            # $test_no will be part of temporary file
            my $test_no = $builder->current_test() + 1;

            # Na <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9127	9333	
==>n    }\n    string_cstring_free(label);\n    interpreter->resume_flag = 2;\n    {{=0}};\n",
                  "LABELS" => [
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10243	10449	
==>n    }\n    string_cstring_free(label);\n    interpreter->resume_flag = 2;\n    {{=0}};\n",
                  "LABELS" => [
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	3447	3566	
==>em C<init_func_init1($base)>

Optionally implemented in subclasses to return the C code for the core's
init function. C< <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	669	790	
==>eturn if start of input is charclass, advance 1" ],

    [ "start(n)" => "mark start of n-th paren match" ],
    [ "end(n) <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7122	7221	
==>th 
${DEST0} = "$"
${STEMP0} = ${LOADTYPE}["reg_type_short"]
${DEST0} = concat ${STEMP0}
${STEMP0} = <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4944	5043	
==>th 
${DEST0} = "$"
${STEMP0} = ${LOADTYPE}["reg_type_short"]
${DEST0} = concat ${STEMP0}
${STEMP0} = <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	4746	4868	
==>/embed.h"

static char program_code[] = {
END_C

    $pf->byte_code($byte_code);

    # this is now packed PBC
    $byte_co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	195478	195788	
==>mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_STRCMP) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9088	9214	
==>y move.
POST_STORE_${CURIC}_LAZY_MOVE:
${STEMP0} = pop lazy_moves

# Emit move.
POST_STORE_${CURIC}_CONT:
${INS} = concat ${STO <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	58901	59223	
==>"Lua\lua51.yp"
{
            [
                @{ $_[1] },
                BuildParam( $_[0], $_[3] ),
            ];
        }
	],
	[#Rule 103
		 'parlist', 1,
sub
#line 553 "Lua\lua51.yp"
{
            [
                BuildParam( $_[0], $_[1] ),
            ];
        }
	],
	[#Rule 104
		 'tablecons <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738192	738427	
==>= string_to_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738956	739191	
==>= string_to_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	668	798	
==>c"} = sub ($$;$) {
        my $self = shift;
        my ( $code, $output, $desc ) = @_;
  
        my $count = $self->{builder}->cu <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1035	1165	
==>c"} = sub ($$;$) {
        my $self = shift;
        my ( $code, $output, $desc ) = @_;
  
        my $count = $self->{builder}->cu <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	41528	41636	
==>y($i, $treelet, $content, $replacer, $charnum);
  my $start_line = $stack[0][1]{'start_line'};

  # A recursi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653405	653505	
==>reter, {{\@2}}, {{\@3}});\n    if (!{{\@1}} || !VTABLE_defined(interpreter, {{\@1}}))\n        real_e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654566	654666	
==>reter, {{\@2}}, {{\@3}});\n    if (!{{\@1}} || !VTABLE_defined(interpreter, {{\@1}}))\n        real_e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025687	1025830	
==>"
                            ],
                  "BODY" => "#line 275 \"src/ops/sys.ops\"\n   {{\@1}} = sysinfo_s(interpreter, {{\@2}});\n   { <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9810	9947	
==>_param {
    my ($self, $name, $type, $reg) = @_;
    $reg = value($reg);
    return "$reg, ";
}


sub output_return {
    my ($self, $ret <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	3504	3661	
==>eee/;
        }
        $conf->data->deltrigger("gccversion", "solaris_ieee");
    };
    $conf->data->settrigger("gccversion", "solaris_ieee", $solaris_ieee_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	400262	400430	
==>i",
                              "ic"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401343	401511	
==>i",
                              "ic"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@ <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1071	1328	
==>* $I1;              # mul    I5, I4, I1
                              #
print "Estimated ops: $I5\n"; # print  "Estimated ops: "
                              # print  I5
                              # print  "\n"
                              #
$N1 = time_ <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1071	1328	
==>* $I1;              # mul    I5, I4, I1
                              #
print "Estimated ops: $I5\n"; # print  "Estimated ops: "
                              # print  I5
                              # print  "\n"
                              #
$N1 = time_ <==
2	/Users/nnunley/parrot/tools/dev/symlink.pl	2672	2826	
==>n "$self: could not find any files to symlink\n" unless @srcfiles;
    close(MANIFEST);
} else {
    die "$self: Failed to open $manifest: $!\n";
}

exit(0 <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9163	9276	
==>foreach my $new_code (@_) {
    next unless defined $new_code and length $new_code;
    if(ASCII) {
      # A good <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10427	10540	
==>foreach my $new_code (@_) {
    next unless defined $new_code and length $new_code;
    if(ASCII) {
      # A good <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7499	7716	
==>s '$access'.");
        }
      }

      next;
    }

    #
    # Subroutines:
    #
    #   sub [<type>] <ident> [:<prop>[=<value] ...] (<arg>, <arg>, ...) {
    #

    if ($token->is_sub) {
      my $block = $self->c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576527	576627	
==>nterpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, name);\n  {{+=4}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577539	577639	
==>nterpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, name);\n  {{+=4}};\n", <==
2	/Users/nnunley/parrot/lib/Test/More.pm	21630	21748	
==>haven't finished a new feature:

    TODO: {
        local $TODO = "URI::Geller not finished";

        my $card = "Eig <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2531	2636	
==>ntil late to do
	# otherwise. Also, putting a label everywhere doesn't hurt the final
	# Parrot bytecode t <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1109	1214	
==>ntil late to do
	# otherwise. Also, putting a label everywhere doesn't hurt the final
	# Parrot bytecode t <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2246	2375	
==>t create stab entry on compile
        $@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $retval
}

sub YYDat <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2163	2283	
==>t create stab entry on compile
        $@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $retval
}

sub YYDat <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	42447	42662	
==>> 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"," => 195,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"^" => 79,
			"*" => 80,
			"/" => 82,
			'AND' => 83,
			'OR' => 84,
			"<= <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	47067	47313	
==>ull of scary tokenizing code.
  #  Like [ '~Top', {'start_line' => $start_line},
  #            "I like ",
  #            [ 'B', {}, "pie" ],
  #            "!"
  #       ]
  
  my($self, $para, $start_line) = @_;
  my $treelet = ['~Top', {'start_ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77361	77468	
==>lename = $_[2]||$lastrulename;
	if ($tracerulename) { $lastrulename = $tracerulename }

	$tracecontext =~ s/ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	44970	45120	
==>rate();

=head1 DESCRIPTION

The code generator reads in a tree structure, and walks that to generate the
output.

=head1 AUTHOR

Jeffrey Goff, drforr@ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49312	49441	
==>f ($grammar =~ m/$UNCOMMITMK/gco)
			{
				_parse("an uncommit marker", $aftererror,$line);
				$item = new Parse::RecDescent::Dir <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	296	402	
==>tor. Just base this class on a hash.
sub new() {
	my $invocant = shift;
	return bless {}, $invocant;
}

# P <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	204	310	
==>tor. Just base this class on a hash.
sub new() {
	my $invocant = shift;
	return bless {}, $invocant;
}

# P <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4617	4790	
==>>new($block, $token);
      my $label = Jako::Construct::Label->new($block, $ident);
      next;
    }

    #
    # Modules:
    #
    #   module <ident> [:<prop>[=<value] .. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705401	705860	
==>"i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 791,
                  "ARGS" => [
                              "p",
                              "ic",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1}} = m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019861	1019956	
==>];\n  Parrot_localtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = string_f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020792	1020887	
==>];\n  Parrot_localtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = string_f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848258	848481	
==>{\@1}} = string_chopn(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849038	849261	
==>{\@1}} = string_chopn(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	11332	11481	
==>.local pmc result,iter
    result = new 'APLVector'
    iter = new .Iterator, op1

loop:
    unless iter goto done
    $P1 = shift iter
    unshift re <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	3751	3864	
==>if ($syms[CURR] eq "select") {
		&parse_select;
		goto PARSE_NOFEED;
	}
	if ($syms[CURR] eq "data") {
		&parse_dat <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	7134	7283	
==>hitecture can build some or all of these signatures
 * enable the define below
 * - the JITed function will be called first
 * - if it returns NULL, t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326659	327065	
==>=> ":dotgnu_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 383,
                  "ARGS" => [
                              "p",
                              "n"
                            ],
                  "BODY" => "#line 154 \"src/ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	38339	38659	
==>"> !
              @section_name == 1 and $section_name[0] eq '"'
            )
          ) {
            $section_name[ 0] =~ s/^\"//s;
            $section_name[-1] =~ s/\"$//s;
            DEBUG > 3 and
             print "     Quotes removed: ", pretty(@section_name), "\n";
          } else {
            DEBUG > 3 a <==
2	/Users/nnunley/parrot/lib/File/Which.pm	175	305	
==>::Which::VERSION = '0.05';

use File::Spec;

my $Is_VMS    = ($^O eq 'VMS');
my $Is_MacOS  = ($^O eq 'MacOS');
my $Is_DOSish = (($^ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	72386	72478	
==>strict;
use vars qw(\$skip \$AUTOLOAD $self->{localvars} );
\$skip = '$skip';
$self->{startco <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	3606	3752	
==>_filename) = /\s*([^%]+)% of (\d+)(?: source)? lines executed in file (.*)/;
            if ($total_lines) {
                my $covered_lines = in <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11384	11572	
==>int ELEMENT_TYPE_FNPTR = 0x1B
	.const int ELEMENT_TYPE_OBJECT = 0x1C
	.const int ELEMENT_TYPE_SZARRAY = 0x1D
	.const int ELEMENT_TYPE_INTERNAL = 0x21
    
    # Trace info - param and local <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46973	47074	
==>erp_debug_SET(interpreter,   {{\@1}}); }\n  else         { Interp_debug_CLEAR(interpreter, PARROT_ALL_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47756	47857	
==>erp_debug_SET(interpreter,   {{\@1}}); }\n  else         { Interp_debug_CLEAR(interpreter, PARROT_ALL_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478937	479179	
==>y zero\");\n  {{\@1}} = floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479829	480071	
==>y zero\");\n  {{\@1}} = floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33543	33662	
==>es where we /didn't/ push to @$para
            if($paras->[0][0] eq '~Para') {
              DEBUG and print "Assimilat <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35356	35475	
==>es where we /didn't/ push to @$para
            if($paras->[0][0] eq '~Para') {
              DEBUG and print "Assimilat <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	21033	21210	
==>$init_mmds{$variant->[0]} = 1;
                }
                else {
                    $right = "enum_class_$variant->[0]";
                }
                $meth_name = $v <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	50860	51167	
==>PrepareMethod( $_[0] );
            [
                @{ $_[1] },
                BuildLiteral( $_[0], $_[3], 'key' ),
            ];
        }
	],
	[#Rule 41
		 '_funcname', 3,
sub
#line 246 "Lua\lua51.yp"
{
            [
                @{ $_[1] },
                BuildLiteral( $_[0], $_[3], <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	53858	53983	
==>ning is issued if the argument 
has to be reset).

=item 4.

A value indicating whether unmatched substrings (see below) withi <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	19356	19470	
==>int " Considering children of this $treelet->[0] node...\n";
    for($i = 2; $i < @$treelet; ++$i) { # iterate over <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	21999	22113	
==>int " Considering children of this $treelet->[0] node...\n";
    for($i = 2; $i < @$treelet; ++$i) { # iterate over <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20559	20719	
==>UMBER' => 36
		},
		GOTOS => {
			'exp' => 115,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' = <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	25428	25537	
==>$new_letter eq $_, @Known_formatting_codes) {
      DEBUG > 2 and print " $new_letter isn't a good thing to ex <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	4349	4444	
==>hen at $sourceline --  $syms[CURR]" if ($syms[CURR] ne "then");
		$singleif=1 if ($type[NEXT] ne <==
2	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	911	1038	
==>new P20, .PerlHash     # PerlHash   # Numerics
	new P21, .PerlHash     # Alphabetics.
	new P22, .PerlHash     # ??
	new P23, .Pe <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	2234	2396	
==>nt Data::Dumper->Dump([$mini],["*CAPTURES"]);
END
}

package Regex::Driver::PIR;
our @ISA = qw(Regex::Driver);

sub output_header {
    my ($self, $fh) = @_;
    $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	881	1068	
==>self = bless {
    BLOCK  => $block,

    KIND   => 'var',
    TYPE   => $type,
    NAME   => $ident->value,
    FILE   => $ident->file,
    LINE   => $ident->line,
  }, $class;

  #
  # C <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2819	2934	
==>EBUG and print "Big-endian UTF-16 BOM seen.  Aborting parsing.\n";
        $self->scream(
          $self->{'line_co <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	49753	49862	
==>osing delimiter bracket. If the bracket was the same
species as the last opening bracket, return the substring <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30420	30523	
==>types) {
		print CODE<<DISP;
	eq S0, "$_", COPY_$_
DISP
	}
	print CODE <<DISP2;
	print "Structure type o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605894	606045	
==>ject.ops\"\n    Parrot_add_attribute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606685	606836	
==>ject.ops\"\n    Parrot_add_attribute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27126	27287	
==>nchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $l_break;
            }
        }
    }
    push @opcodes, @{$bloc <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27807	27968	
==>nchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $l_break;
            }
        }
    }
    push @opcodes, @{$bloc <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	1667	1901	
==>fset or address

Argument direction is used to determine the life times of symbols and
their related register allocations. When an argument is passed into an
op a register is read from, when it's passed out of an op a register is
writt <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	9183	9283	
==>my(%opts)=@_;
	my $parens;
	my @expr;

	goto PROCEXP_NOFEED if $opts{lhs};
	goto PROCEXP_NOFEED if $o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129782	130009	
==>> "#line 301 \"src/ops/bit.ops\"\n  {{\@1}} ^= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130521	130748	
==>> "#line 301 \"src/ops/bit.ops\"\n  {{\@1}} ^= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2626	2727	
==>ARROT_CGP_REGS)
    register opcode_t *cur_opcode asm ("esi") = cur_op;
    register char *   _reg_bas <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	843	949	
==>";
}

=item C<defines()>

Returns the C C<#define> macros required by the ops.

=cut

sub defines
{
    ret <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	1711	1882	
==>aving} = 1;
	$self->Precompile(undef,$class);
	$self->{saving} = 0;
}

sub Precompile
{
		my ($self, $grammar, $class, $sourcefile) = @_;

		$class =~ /^(\w+::)*\w+$/ or cr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	388062	388592	
==>=> ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 452,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic",
                              "i"
                            ],
                  "BODY <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	19207	19342	
==>to_resolve;  # whether to process formatting codes
      $to_resolve = 1 if $content =~ s/^://s;
      
      my $dont_ignore; # whether <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	5268	5382	
==>l_name = $vtables{$arg};
	}
    }
    print <<EOC;
.end		# $cur_func
.namespace [""]

$nst
.sub $real_name prototyp <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3578	3691	
==>, $op) = @_;

    #print STDERR "pbcc: map_arg($type, $num)\n";

    die "Unrecognized type '$type' for num '$num' <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	7589	7746	
==>lf = shift;

    return($self->{Expected_Tests}) if $self->{Expected_Tests};
    return('no_plan') if $self->{No_Plan};
    return(undef);
};


=item B<skip_a <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	325	446	
==>fe for ithreads.
BEGIN {
    use Config;
    # Load threads::shared when threads are turned on
    if( $] >= 5.008 && $Con <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79539	79723	
==>er, enum_class_UnManagedStruct);\n      PMC_data({{\@1}}) = p;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81060	81244	
==>er, enum_class_UnManagedStruct);\n      PMC_data({{\@1}}) = p;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	6849	7098	
==>pe * $func_name ($arg_types)";
    my $args       = "$opsarraytype *cur_opcode, Interp * interpreter";
    my $definition;
    my $comment    = '';
    my $one_op     = "";

    if ($suffix =~ /cg/) {
	$definition = "PC_$index:";
	$comment    = "/* " <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/EditorPlugins.pm	419	512	
==>package Parrot::Docs::Section::EditorPlugins;

use strict;
use warnings;

use base qw( Parrot: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	378	488	
==>Jako::Construct::Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected 5 args!" unle <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	378	488	
==>Jako::Construct::Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected 5 args!" unle <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	55234	55485	
==>yp"
{
            BuildUnop( $_[0], $_[1], $_[2] );
        }
	],
	[#Rule 75
		 'exp', 2,
sub
#line 409 "Lua\lua51.yp"
{
            BuildUnop( $_[0], $_[1], $_[2] );
        }
	],
	[#Rule 76
		 'primary', 1,
sub
#line 416 "Lua\lua51.yp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6788	7009	
==>{\@1}});\n    {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63899	64118	
==>{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_REL <==
2	/Users/nnunley/parrot/languages/regex/test.pl	148	248	
==>nfig;
use strict;

# Running this with perl5.005 produces:
# Can't locate object method "new" via pac <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	2305	2401	
==>(so "1..5" means you're going to run 5 tests).  This strange
format lets Test::Harness know how m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46533	46992	
==>JUMP_RESTART",
                  "NAME" => "debug",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 60,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 770 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Interp_debug_SET(interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47315	47765	
==>JUMP_RESTART",
                  "NAME" => "debug",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 61,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 770 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Interp_debug_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	2035	2133	
==>osition. If a count is given, then that many tokens
# (at most, given the possibilitiy of running o <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	4232	4369	
==>filename\": $!\n";
}

sub clean_obsolete_smokes {
  my $category = sub {
    return join "-",
      (map { $_[0]->{$_} } qw<branch cpuarch <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175142	175246	
==>BODY" => "#line 233 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_NUMCM <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8236	8319	
==>ATA__
FF,$a,$b,$c,$d,$_[4],7,0xd76aa478,/* 1 */
FF,$d,$a,$b,$c,$_[5],12,0xe8c7b756,/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704725	704894	
==>"i",
                              "ic"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	705717	705886	
==>"i",
                              "ic"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	4532	4630	
==>code, passing the test if a string comparison of
output with the expected result it true.

=item C< <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3479	3608	
==>y ($self, $reg, $dest) = @_;
    $reg = value($reg);
    return "goto " . $self->output_label_use($dest) . " unless $reg;";
}

sub <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3331	3438	
==>y ($self, $reg, $dest) = @_;
    $reg = value($reg);
    return "goto " . $self->output_label_use($dest) . " <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32101	32207	
==>parameters = ", $parameters" if $parameters;
    my $body = "VTABLE_$meth(interpreter, PMC_pmc_val(pmc)$arg <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33678	33784	
==>parameters = ", $parameters" if $parameters;
    my $body = "VTABLE_$meth(interpreter, PMC_pmc_val(pmc)$arg <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083851	1084208	
==>ntal" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "splice",
                  "FLAGS" => "",
                  "ARGD <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8995	9124	
==>]);

      unless ($self->skip_open_brace) { # DEFINITION
        $self->require_semicolon;
      }
      else {
        my $sub = <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	6225	6396	
==>f); /me;

    s/{{=0,=([^{]*?)}}/   $trans->restart_address($1) . "; {{=0}}"; /me;
    s/{{=0,\+=([^{]*?)}}/ $trans->restart_offset($1)  . "; {{=0}}"; /me;
    s/{{=0,-=([^ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363528	363628	
==>, (double){{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364431	364531	
==>, (double){{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1080169	1080442	
==>> 1199,
                  "ARGS" => [
                              "p",
                              "i",
                              "k"
                            ],
                  "BODY" => "#line 145 \"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	68	188	
==>/Docs/Section/Docs.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Section::Docs - Docs docu <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	345	437	
==>tted');
  return $new;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	344	436	
==>tted');
  return $new;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	127	323	
==>utput_terminate {
    return "terminate";
}

sub output_increment {
    my $var = shift;
    return "$var++";
}

sub output_assign {
    my ($var, $val) = @_;
    return "$var := $val";
}

sub outp <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	21050	21217	
==>int "Dimensioning $typename\\n"
	pushp
	P2= .PerlHash
TYPEE
		foreach(@types) {
			my %val=( INT => 0, FLO => '0.0', STRING => '""' );
			if ($_->[2] ne "USER") {
				p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1313	1417	
==>my %props = $sym->props;

  my @args  = $self->args;

  my @formal_args = $sym->args;

  $self->SYNTAX_ER <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11404	11513	
==>tput_rule_pass {
    my ($self, $name) = @_;
    return ($self->output_match_succeeded(),
            ".return <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194286	194535	
==>" => [
                              "p",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 320 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781478	781649	
==>c",
                              "s"
                            ],
                  "BODY" => "#line 387 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed_int(i <==
2	/Users/nnunley/parrot/config/init/miniparrot.pm	1520	1722	
==>pable         => 0,
        execcapable        => 0,
        cc_hasjit          => '',
        TEMP_jit_o         => '',
        TEMP_exec_h        => '',
        TEMP_exec_o        => '',
        asmfun <==
2	/Users/nnunley/parrot/config/auto/jit.pm	5811	6008	
==>pable  => 0,
            execcapable => 0,
            cc_hasjit   => '',
            TEMP_jit_o  => '',
            TEMP_exec_h => '',
            TEMP_exec_o => ''
        );
    }

    return $se <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	23738	23938	
==>pes{$syms[CURR]}) {
					$type="USER";
					$ut=qq{\tP2["usertype"]= "$syms[CURR]"\n};
				} else {
					die "Unknown type $syms[CURR]";
				}
			} else {
				$_=substr($var, -1, 1);
				if (exists $si <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	553	698	
==>rectory.

=cut

sub tmp_file
{
    my $self = shift;
    
    return $self->new(File::Spec->catfile(File::Spec->tmpdir, @_));
}

=item C<new($path <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	48752	48884	
==>tat', 8,
sub
#line 157 "Lua\lua51.yp"
{
            BuildForList( $_[0], $_[2], $_[4], $_[7] );
        }
	],
	[#Rule 26
		 ' <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	12715	12811	
==>f $extern()", "RESULT",  "\$$optype$retcount"];
			} elsif (isbuiltin($sym)) {
				$extern=~s/\$/ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29371	29485	
==>vior.

=over 4

=cut

package Parrot::Pmc2c::Standard;
use base 'Parrot::Pmc2c';

=item C<body($method, $line, $out <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	35592	35690	
==>EXIT CODES

If all your tests passed, Test::Builder will exit with zero (which is
normal).  If anyt <==
2	/Users/nnunley/parrot/lib/Test/More.pm	33663	33761	
==>EXIT CODES

If all your tests passed, Test::Builder will exit with zero (which is
normal).  If anyt <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616652	617090	
==>GDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 698,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 44 \"src <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	19989	20113	
==>$Level = $level;
    }
    return $Level;
}


=item B<use_numbers>

    $Test->use_numbers($on_or_off);

Whether or not the t <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11288	11415	
==>erpreter
    s/SELF/pmc/g;
    s/\bINTERP\b/interpreter/g;

    return $_;
}

=item C<rewrite_vtable_method($class, $method, $su <==
2	/Users/nnunley/parrot/config/init/miniparrot.pm	2110	2269	
==>rt complex ctype errno locale math setjmp signal stdarg
        stdio stdlib string time)
        ) {
        $conf->data->set("i_$_" => 1);
    }

    return $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869923	870126	
==>s",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 232 \"src/ops/string.ops\"\n  INTVAL len;\n  len = string_lengt <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	10416	10556	
==>else {
	    my $typ = $DEFVAR;
	    if (is_imag($c)) {
		$typ = '.Complex';
		$c = qq!"$c"!;
	    }
	    my $pmc = temp('P');
	    print <<EO <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3438	3570	
==>f->data->set(linkflags => $linkflags);
        }
    } elsif ($is_intel) {
        $conf->data->set(
            share_ext  => '.dll' <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10843	10942	
==>ref $self and $self->isa("Jako::Construct::Block");
  confess "No content!"      unless @_;
  confes <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	15813	15967	
==>$self = shift;
        if ( @_ ) {
            die 'count must be nonnegative' if $_[0] < 0;
            $self->{'count'} = shift;
            warn "Too ma <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	48305	48702	
==>ushScope( $_[0] );
            my $var = BuildLocalVariable( $_[0], $_[2] );
            Insert( $_[0], $var );
        }
	],
	[#Rule 23
		 'stat', 10,
sub
#line 148 "Lua\lua51.yp"
{
            BuildForNum( $_[0], $_[8], $_[4], $_[6], undef, $_[9] );
        }
	],
	[#Rule 24
		 '@7-5', 0,
sub
#line 152 "Lua\lua51.yp"
{
            PushScope( $_[0] );
            InsertList( $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	47950	48132	
==>ushScope( $_[0] );
            my $var = BuildLocalVariable( $_[0], $_[2] );
            Insert( $_[0], $var );
        }
	],
	[#Rule 21
		 'stat', 12,
sub
#line 138 "Lua\lua5 <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	11408	11543	
==>_test() + 1;

            # Name of the file where output is written.
            # Switch to a different extension when we are generati <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	3550	3708	
==>se {
        $dd_version = $Data::Dumper::VERSION;
    }

    if ($dd_version >= 2.12) {
        *dump = sub {
            my $self = shift;
            Data:: <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64017	64131	
==>ine) if $::RD_CHECK;
					}
				}
				elsif ($grammar =~ m/$EXACTLY/gco)
				{
					_parse("an exactly-$1-times sub <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tests.pm	563	704	
==>f->SUPER::new(
		'Tests', 'tests.html', '',
		$self->new_group('Tools', '', 't/harness'),
		$self->new_group('Native Bytecode Tests', '', 't/n <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4191	4404	
==>{1,3})//
                and $str .= chr $1, 
                last;

            s/^\\//
                and $parser->Error("Invalid escape sequence $_ .\n"),
                last;
        }
    }

    $p <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2677	2889	
==>{1,3})//
                and $str .= chr $1,
                last;

            s/^\\//
                and $parser->Error("Invalid escape sequence $_ .\n"),
                last;
        }
    }

    $p <==
2	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	808	914	
==>@outputs) {
    if (! open(OUTPUT, $output)) {
        print "$output does not exist; remaking\n" if $Verbo <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	1891	2015	
==>)\]//;
    next if $package eq "";
    my %meta;
    @meta{split(/,/, $meta)} = ();
    $meta{$_} = 1 for (keys %meta); # Laz <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	1302	1519	
==>ent($path)>

Returns the file's parent directory.    

=cut

sub parent
{
    my $self = shift;
    my $path = shift;
    
    return Parrot::IO::Directory->new($self->parent_path);
}

=item C<read()>

This reads the c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51691	51790	
==>DY" => "#line 815 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_trace(interpreter,   {{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52474	52573	
==>DY" => "#line 815 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_trace(interpreter,   {{\@1} <==
2	/Users/nnunley/parrot/config/auto/jit.pm	4734	4951	
==>verbose;
            cc_gen("config/auto/jit/test_exec_$osname.in");
            eval { cc_build(); };
            if ($@) {
                print " $@) " if $verbose;
            } else {
                if (cc_run(0) <==
2	/Users/nnunley/parrot/config/gen/config_pm.pm	622	729	
==>);

sub runstep
{
    my ($self, $conf) = @_;

    $conf->data->clean;

    genfile('config/gen/config_pm/my <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	16000	16131	
==>ar, or a
			 problem inside the previous directive.");
		return;
	}
	my $op = pop @{$self->{op}};
	my $span = @{$self->{items}} - $o <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	513	679	
==>either I<auto> or I<manual>. Manual ops are responsible for
having explicit next-op C<RETURN()> statements, while auto ops can count
on an automatically generated next <==
2	/Users/nnunley/parrot/config/gen/config_h.pm	695	843	
==>_;

    genfile(
        'config/gen/config_h/config_h.in', 'include/parrot/config.h',
        commentType       => '/*',
        ignorePattern     = <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	3220	3349	
==>es are shown with lower
case class names in the class tree.

=item C<noinit>

Used with C<abstract>: No C<class_init> code is gene <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1394	1526	
==>ring for label gen and some
	# storage for stack depths and stack type states that we are
	# propogating.
	return <<'PIR';
.local str <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	481	613	
==>ring for label gen and some
	# storage for stack depths and stack type states that we are
	# propogating.
	return <<'PIR';
.local str <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	4450	4668	
==>m_ro  = 1;
} elsif ($^O eq 'darwin'  && $nm_try =~ /invalid argument/) {
    $nm_opt = '';
} elsif ($nm_try =~ /GNU nm/) {
    $nm_opt = '';
    $nm_gnu = 1;
    $nm_ro  = 1;
} else {
    # Hope for BSD-style nm output. <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	669	777	
==>CONTENT   => [ ]
  }, $class;

  $block->push_content($self);

  return $self;
}

sub peer { return shift->{P <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	660	768	
==>CONTENT   => [ ]
  }, $class;

  $block->push_content($self);

  return $self;
}

sub peer { return shift->{P <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	11404	11560	
==><'*'>.

The accessor method provided by C<struct> for an element depends
on the declared type of the element.

=over 4

=item Scalar (C<'$'> or C<'*$'>)

The <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3381	3490	
==>group_files) {
        my @pmcfiles = map { "$_.pmc" } @$pmcs;
        if (needs_build("$group.c", @pmcfiles)) <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3485	3594	
==>group_files) {
        my @pmcfiles = map { "$_.pmc" } @$pmcs;
        if (needs_build("$group.c", @pmcfiles)) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206474	206564	
==>\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207416	207506	
==>\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}} <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5783	5915	
==>,',map { $$_[0] } @$stack).
#DBG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defined($$token)
            o <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5508	5633	
==>,',map { $$_[0] } @$stack).
#DBG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defined($$token)
            o <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	35741	35878	
==>_sqrt,
  'expt'             => \&_op_expt,
  'make-rectangular' => \&_op_make_rectangular,
  'make-polar'       => \&_op_make_point,
  're <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	17895	17993	
==>izes nested object attributes to undef, rather
   than calling object constructor without args
   O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931949	932221	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932720	932992	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6843	6953	
==>1} = ${ITEMP0} + 1
${STEMP1} = ${ITEMP1}
${STEMP0} = concat ${STEMP1}

# Put it in the parameter register list. <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63207	63301	
==>chrule and $rule and $rule->addcall($name);

						_check_insatiable($name,$1,$grammar,$line) i <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63928	64022	
==>chrule and $rule and $rule->addcall($name);

						_check_insatiable($name,$1,$grammar,$line) i <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	1023	1129	
==>/O  1..5
open "_testfile" for output as #3
for i=1 to 5
	print #3, i
next i
close #3
open "_testfile" for i <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19495	19601	
==>/O  1..5
open "_testfile" for output as #3
for i=1 to 5
	print #3, i
next i
close #3
open "_testfile" for i <==
2	/Users/nnunley/parrot/config/init/optimize.pm	261	360	
==>he local platform to
the C<CCFLAGS>. Should this be part of config/inter/progs.pm ? XXX

=cut

packa <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	15801	16052	
==>=> 28,
			'charclass' => 12,
			'range' => 25
		}
	},
	{#State 39
		ACTIONS => {
			'NUM' => 57,
			"." => 58,
			">" => 59
		}
	},
	{#State 40
		DEFAULT => -34
	},
	{#State 41
		ACTIONS => {
			"." => 60
		}
	},
	{#State 42
		DEFAULT => -18
	},
	{#Sta <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16854	17054	
==>41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 94,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			' <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	29615	29759	
==>_string {
}

sub _op_string {
}

sub _op_string_length {
}

sub _op_string_ref {
}

sub _op_string_set_bang {
}

sub _op_string_eq_p {
}

sub _op <==
2	/Users/nnunley/parrot/config/gen/icu.pm	3831	3952	
==>s without /unicode
   --icushared=(flags)  Full linker command to create shared libraries
HELP

    #'

    my $icudir = d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963556	963900	
==>],
                  "TYPE" => "function",
                  "CODE" => 1084,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 595 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(int <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441548	441641	
==>Y" => "#line 109 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442563	442656	
==>Y" => "#line 109 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	8598	8760	
==>item.
			$desc =~ s/[CFL]<([^>]+)>/$1/osg;
			
			return $desc;
		}
	}
	
	# TODO - The abstract section above was added later. The two searches 
	# could be combin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035352	1035456	
==>> "#line 64 \"src/ops/var.ops\"\n    parrot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRIN <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036516	1036620	
==>> "#line 64 \"src/ops/var.ops\"\n    parrot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRIN <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	3131	3228	
==>=item C<Parrot::Docs::Section::Libs>

=item C<Parrot::Docs::Section::Tools>

=item C<Parrot::Docs: <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	232	388	
==>tic_cmds  = pir_cmds_in_dir($static_dir);
# subroutines that generate the PIR for Tcl commands
my @dynamic_cmds = pir_cmds_in_dir($dynamic_dir);

print <<"EN <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	7809	7931	
==>open  OLDOUT, ">&STDOUT" or die "Can't save     stdout" if $out;
    open  OLDERR, ">&STDERR" or die "Can't save     stderr <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7860	7980	
==>open OLDOUT, ">&STDOUT" or die "Can't save     stdout" if $out;
    open OLDERR, ">&STDERR" or die "Can't save     stderr <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	31150	31344	
==>$backup =>   aop('popint', [ '<tmp>', "restore rule $name start" ]),
                     aop('setstart', [ "0", '<tmp>' ]),
                     @restore_rxlocals,
                     aop('goto <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	39688	39790	
==>n\nline 3\n/para line 4";

	extract_tagged($text, '/para', '/endpara', undef,
				{reject => '/para', f <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	40002	40103	
==>n\nline 3\n/para line 4";

	extract_tagged($text, '/para', '/endpara', undef,
			{reject => '/para', f <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	4297	4446	
==>a = ",
       P => "return_data = ",
       S => "return_data = ",
       I => "return_data = ",
       N => "return_data = ",
#      B => "return_dat <==
2	/Users/nnunley/parrot/config/auto/headers.pm	1326	1673	
==>robe list, and have 2 goes at getting
    # the header.
    my @extra_headers = qw(malloc.h fcntl.h setjmp.h pthread.h signal.h
        sys/types.h sys/socket.h netinet/in.h arpa/inet.h
        sys/stat.h sysexit.h limits.h);

    # more extra_headers needed on mingw/msys; *BSD fails if they are present
    if ($^O eq "msys") {
        push @extr <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	19972	20117	
==>ate/;
        $defaulted = 1 if $class =~ /^[A-Z]/;
        # MMD method
        if ($method->{mmd} =~ /MMD_/ && !$defaulted) {
            my ($f <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2261	2410	
==>{ kind => $self->kind, name => $self->prefix } });
  }
  else {
    $handler->start_element({ Name => 'cond', Attributes => { kind => $self->kind } }) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	69814	70119	
==>RS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 93,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 1094 \"src/ops/core.ops\ <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	3468	3682	
==>TDERR "between the return type and the function declaration.  This is not\n";
        print STDERR "correctable by indent.  Some of these could even be in system header\n";
        print STDERR "files.  If so, ignor <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227413	227529	
==>le->get_string(interpreter, {{\@1}}), {{\@2}}) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228393	228509	
==>le->get_string(interpreter, {{\@1}}), {{\@2}}) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LA <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	7804	7933	
==>:undef),
			$foo[$t], 
			(($t+1 <= $#foo)?$foo[$t+1]:undef) );
		if ($this->[0] eq '-' and $this->[1] eq "PUN") {
			if (! define <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	78	279	
==>irectory.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::IO::Directory - Directory

=head1 SYNOPSIS

    use Parrot::IO::Directory;

=head1 DESCRIPTION

Use this to query and mani <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	988243	988684	
==>ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1107,
                  "ARGS" => [
                              "i",
                              "i",
                              "sc <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1139	1257	
==>turn $name;
}

sub dbgoto {
    my ($self, $label) = @_;
    return () unless $self->{DEBUG};
    return () unless $sel <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	629	747	
==>turn $name;
}

sub dbgoto {
    my ($self, $label) = @_;
    return () unless $self->{DEBUG};
    return () unless $sel <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999610	1000173	
==>ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1117,
                  "ARGS" => [
                              "i",
                              "i",
                              "s",
                              "i",
                              "ic"
                            ],
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	10250	10416	
==>,
  "STRING*"  => "S",
  "char*"    => "t",
  "PMC*"     => "P",
  "short*"   => "2",
  "int*"     => "3",
  "long*"    => "4",
  "void"     => "v",
  "void*"    => "b <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	2345	2453	
==><'END';

Can't find a int type with size 4, conversion ops might fail!

END
    }

    if ($results{floatsize <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3001	3115	
==>. 'Id' . '$' . "\n";  # confuse SVN
print $MANI "#\n"; 
print $MANI '# generated by tools/dev/mk_manifest_and_skip. <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11867	11966	
==>c,@args)=pushargs(\@code, \$optype, \@work);
			$pir_args = join(",", map {$_->[0]} (reverse @args)) <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	12277	12376	
==>c,@args)=pushargs(\@code, \$optype, \@work);
			$pir_args = join(",", map {$_->[0]} (reverse @args)) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	4458	4582	
==>...) -> a opt(R|S) | opt(T|...)
        my $leftovers = $self->pass1(rop('alternate', \@children), $ctx);
        @{ $t->{arg <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	1321	1568	
==>.pod                          [devel]doc
    docs/debug.pod                                  [devel]doc
    docs/dev/dod.pod                                [devel]doc
    docs/dev/events.pod                             [devel]doc
    docs/dev/fhs.p <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	62138	62350	
==>tract_quotelike> or C<extract_codeblock> found one of the
quotelike operators C<q>, C<qq>, C<qw>, C<qx>, C<s>, C<tr> or C<y>
without a suitable block after it.

=item C<Did not find leading dereferencer>

C<extrac <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	1133	1317	
==>gh me. And when it has gone past I will
	#  turn the inner eye to see its path. Where the fear has gone there
	#  will be nothing. Only I will remain.
	#                      Bene Gesse <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	21864	21983	
==>line 160 "lib/Regex/Grammar.y"
{ return $_[1] * 10 + $_[2]; }
	],
	[#Rule 34
		 'number', 1,
sub
#line 161 "lib/Regex/Gr <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40101	40373	
==>=> 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -16
	},
	{#State 167
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 2 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	34019	34194	
==>=> 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			"<=" => 85,
			'OR' => 84,
			">" => 86
		}
	},
	{#State 120
		DEFAULT => -51
	},
	{#State 121
		ACTIONS => { <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	701	855	
==>{
            $part =~ s/(["'\\])/\\$1/g;
            $part =~ s/\n/\\n/g;
            push @ops, $self->output_print("\"$part\"");
        }
    }
    ret <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	5045	5221	
==>ax Error is raised.
#
# If more than one type is specified, the semantics are "or".
#

sub require
{
  my $self = shift;

#  DEBUG(0, "Requiring '$kind'");
  
  $self->SYNTAX_ER <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	805	958	
==>out) ); # JMG

        # STDERR is written into same output file
        open LANG, "> $lang_f" or die "Unable to open '$lang_f'"; # JMG
        binmode L <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	717	870	
==>out) ); # JMG

        # STDERR is written into same output file
        open LANG, "> $lang_f" or die "Unable to open '$lang_f'"; # JMG
        binmode L <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	23388	23596	
==>'INT', integer => 'INT', string => 'STRING');
			my %sigilmap=( '%' => 'integer', '&' => 'long',
				       '!' => 'single',  '#' => 'double',
				       '$' => 'string'  );
			my $ut="";
			if ($syms[NEXT] eq <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688166	688388	
==>ble->delprop(interpreter, {{\@1}}, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688938	689160	
==>ble->delprop(interpreter, {{\@1}}, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10438	10607	
==>okens;
    my @types;
    my $state = 0;
    my $depth = 0;
    for my $c (split(//, $data)) {
        if ($state == 0) {
            if ($c eq '\\') {
                $s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943820	943915	
==>ine 516 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_charset_number_of_str(interpreter, {{\@2}});\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944609	944704	
==>ine 516 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_charset_number_of_str(interpreter, {{\@2}});\ <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1791	2055	
==>"Elapsed time:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 = $N1 / $N2;              # div    N1, N1, N2
$N2 = 1000000.0;              # s <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1791	2055	
==>"Elapsed time:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 = $N1 / $N2;              # div    N1, N1, N2
$N2 = 1000000.0;              # s <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	19408	19614	
==>lf->implements($meth)) {
            $meth_name = "Parrot_${classname}_$meth";
        }
        elsif (exists $self->{super}{$meth}) {
            $class = $self->{super}{$meth};
            $meth_name = "P <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	7420	7521	
==>}
    # copy parent(s), prepend self as parrent
    $const->{parents} = [ $self->{class}, @{ $self->{p <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28864	28969	
==>e one of \${DEST0} or \${LOADREG} in rule " .
				"$rule->{'name'}\n";
        } elsif ($rule->{'instructi <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	12079	12186	
==>Put in params array.
PRE_CALL_${CURIC}_LAZY_MOVE_RET_CONT:
${PARAMS}[0] = ${STEMP0}
dec stack_depth

PRE_CAL <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4949	5075	
==>kid (@{ $op->{args} }) {
        my $kidmax = $kid->maxlen();
        return undef if ! defined $kidmax;
        $maxlen += $ki <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	1147	1344	
==>ion,
           "executable=s" => \$executable);

if ($action) {
    &{$action}();
} else {
    (-d "miniparrot") || mkdir("miniparrot");

    print "** $0: reconfiguring parrot for miniparrot build <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215034	215141	
==>ps\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215975	216082	
==>ps\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+= <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2989	3139	
==>]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # test result
              | " ((?:[^"\\]|\\.)+) "   #" (keep my editor h <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4386	4536	
==>]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # test result
              | " ((?:[^"\\]|\\.)+) "   #" (keep my editor h <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995497	995696	
==>"s",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	996635	996834	
==>"s",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	15741	15838	
==>tests => 1, 'no_diag'>.  This is useful
if you have diagnostics for personal testing but then wish <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	503	602	
==>RIPTION

This module provides a basic test harness for Parrot-hosted languages.  Right
now it parame <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948398	948851	
==>rset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1067,
                  "ARGS" => [
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 535 \"src/ops/string.ops\"\n  {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132945	133119	
==>i",
                              "ic"
                            ],
                  "BODY" => "#line 306 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	487	606	
==>me="...">

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
my @_to_accept;

%Tagmap = (
  'V <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953761	954046	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954551	954836	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	39923	40084	
==>plicit'} = 'yes';
        $link_text = [];
        push @$link_text, '"', @$section_name, '"' if $section_name;

        if(@ell_content) {
          $link_text-> <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	994	1107	
==>rently MANIFEST and MANIFEST.generated
are used) is:

    source_path <whitespace> [package]meta1,meta2,...

or yo <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	20512	20627	
==>d($textref,"",$ldel2,"","",$rdel2)
			|| do { pos $$textref = $startpos; return };
		}
		else
		{
			$$textref =~ /[ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426113	426246	
==>],
                  "BODY" => "#line 64 \"src/ops/math.ops\"\n  mmd_dispatch_v_pi(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427000	427133	
==>],
                  "BODY" => "#line 64 \"src/ops/math.ops\"\n  mmd_dispatch_v_pi(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088886	1088980	
==>ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089834	1089928	
==>ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681389	681722	
==>"
                            ],
                  "BODY" => "#line 507 \"src/ops/pmc.ops\"\n    {{\@1}} = {{\@2}}->vtable->shift_integer(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2321	2511	
==>s}::$name";
    my $self = bless { name => $name,
                       args => $args || [],
                       %opts }, $class;

    return $self->init();
}

# Default initialization, t <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	2500	2620	
==>s the name part of the path.

=cut

sub name
{
    my $self = shift;
    
    return $self->{NAME};
}

=item C<name_witho <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	16983	17086	
==>::PullParserToken>), or undef if the parser-stream has hit
the end of the document.

=item $parser->unge <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	488	737	
==>bs => $libs);

    ################################################################
    # If we're going to be using ICU (or any other C++-compiled library) we
    # need to use the c++ compiler as a linker.  As soon as the user
    # selects a compi <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7554	7763	
==>"In line rule name '$lhs' ill formed: ".
                        "report it as a BUG.\n";
                $$dotpos = $1;
            };

            @sempar =       $$dotpos
                        ?   ma <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7208	7411	
==>"In line rule name '$lhs' ill formed: ".
                        "report it as a BUG.\n";
                $$dotpos = $1;
            };

            @sempar =       $$dotpos
                        ?   ma <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	840	985	
==>rg = $op->{args}->[$i];
        push(@indices, $i) if is_label($arg);
    }
    return @indices;
}

=item method combineLabels(label1, label2, ... <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	2839	2957	
==>e the
epoch.

=cut

sub modified_since
{
    my $self = shift;
    my $time = shift;
    
    return $self->stat->mtime <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	728	870	
==>e.pm', 'lib/Parrot/Op.pm',
			    'lib/Parrot/OpLib',
			    'lib/Parrot/OpTrans.pm', 'lib/Parrot/OpTrans'),
		),
		$self->new_group('PMCs', '' <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	6381	6639	
==>Dir( $parser,
                    'result' => $num_key,
                );
                push @opcodes3, new CloneOp( $parser,
                    'arg1'   => $unit->[0],
                    'result' => $num_key,
                );
                $k <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	312807	313105	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getfile",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline", <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2957	3075	
==>('parrot_is_shared')) {
            $conf->data->set(libparrot_ldflags => 'libparrot$(A)');
        }

        # 'link' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1724	1832	
==>a'} = "$_[1]{'number'}. "  }
sub start_item_text   { $_[0]{'Thispara'} = ''   }

sub start_over_bullet  { ++$ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	25492	25660	
==>~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
    # ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~

    if($para_type eq <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	30137	30244	
==>_bang {
}

sub _op_vector_p {
}

sub _op_make_vector {
}

sub _op_vector {
}

sub _op_vector_length {
}

sub <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6909	7006	
==>t$(t$, 5)
' instr
s1$="The longer string"
found$="longer"
bogus$="not"
print "Found  (5): ", instr <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18638	18735	
==>t$(t$, 5)
' instr
s1$="The longer string"
found$="longer"
bogus$="not"
print "Found  (5): ", instr <==
2	/Users/nnunley/parrot/config/auto/format.pm	746	894	
==>") {
        $ivformat = "%d";
    } elsif (($iv eq "long") || ($iv eq "long int")) {
        $ivformat = "%ld";
    } elsif (($iv eq "long long") || <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	46522	46722	
==>, even the first
    if( !ref($p->[$i]) ) {
      if($p->[$i] =~ s/\n$//s) {
        DEBUG > 5 and print "_verbatim_format killed the terminal newline on #$i: {$p->[$i]}, after {$p->[$i-1]}\n";
      } <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	21325	21482	
==>_pc += 1\n";
            $pir .= binary_dispatch_table($_, @rules);
        }
    } else {
        # Otherwise, split the rules into two groups.
        my $s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759482	759850	
==>" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 857,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 281 \"src/ops/set <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12396	12518	
==>tmostsubrule($)
{
	my $self = shift;

	if ( $#{$self->{"items"}} >= 0 )
	{
		my $subrule = $self->{"items"}[0]->issubrule() <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	1193	1364	
==>s_cg.c
$(OPS_DIR)/core_ops_cgp$(O): $(GENERAL_H_FILES) $(OPS_DIR)/core_ops_cgp.c
$(SRC_DIR)/runops_cores.c: $(INC_DIR)/oplib/core_ops_cgp.h

$(INC_DIR)/oplib/core_ops_cg.h: <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	3641	3770	
==>ffix;
    }
    
    return $suffix ne '';
}

=item C<parent_path()>

Returns the path of the containing directory.

=cut

sub par <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	397	537	
==>1 SYNOPSIS

    % perl tools/dev/mk_manifests.pl [options]

=head1 DESCRIPTION

This file generates a set of F<MANIFEST.*> files that give th <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	99612	99843	
==>}->vtable->bitwise_not(interpreter, {{\@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2177	2296	
==>>{code}}) {
		s/#RTJ// if $runtime_jump;
		if (/#SAVECOMMON/) {
			@saves=();
			$edit="";
			foreach my $var (keys %{$c <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	17706	17813	
==>my($result, $type, @code)=EXPRESSION();
		$false=qq{""} if $type eq "S";
		if ($which eq "while") {
			$_="@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714148	714516	
==>rint_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 801,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 75 \"src/ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	13541	13736	
==>lass) ) {
                    my $ref = ref $object;
                    $diag = "$obj_name isn't a '$class' it's a '$ref'";
                }
            } else {
                die <<WHOA;
WHOA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693628	693924	
==>,
                  "ARGS" => [
                              "ic",
                              "i",
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{ <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	11148	11301	
==>";
    };
    /s/ && do {
        push @{$temps_ref}, "short t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = (short)GET_NCI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133872	134094	
==>se_xor(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134653	134875	
==>se_xor(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	7138	7335	
==>esig|valuetype|method|field|type)$/;
                }
                $has_args = 1;
            }
        }

        # instruction or pir
        elsif (/^(instruction|pir)$/) {
            if ($h <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	4872	4981	
==>ne
        #  by time we call $code_handler!

        if( $line =~ m/^#\s*line\s+(\d+)\s*(?:\s"([^"]+)")?\s*$/ <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	2707	2807	
==>e makefile, which is probably the only time this
# script will ever be used, all of these defaults wi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	18695	18970	
==>y ($R_back, @R_ops) = $self->rewrite($R, $check);
    my @ops = (
               aop('set', [ $matchcount, 0 ]),
      $loop => aop('ge', [ $matchcount, $max, $next ]),
               @R_ops,
               aop('add', [ $matchcount, 1 ]),
               aop('goto', [ $loop ]) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20900	20982	
==>ht = Jako::Construct::Expression::Value::Identifier->new($block, $self->require_ide <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	252970	253191	
==>e->logical_not(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4428	4570	
==>ogical Operators 
print "      AND   OR    XOR   EQV   IMP   a & ! b"
for i = 0 to 1
for j = 0 to 1
print i; j;
if i and j then a$="True  " els <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059497	1059734	
==>less( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_name",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060401	1060638	
==>less( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_name",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6299	6396	
==>ype[CURR] source line $sourceline";
	goto UNK;

BARE:	# Check for user-subroutine
	if (usersub($sy <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88502	88909	
==>}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "AR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181935	182341	
==>FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 217,
                  "ARGS" => [
                              "i",
                              "ic",
                              " <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	2333	2463	
==>$escs;
	$escs .= substr($escs,-1) x (length($dels)-length($escs));
	my @pat = ();
	my $i;
	for ($i=0; $i<length $dels; $i++)
	{
		m <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	198	330	
==>-- testing routines for languages/punie

This is largely a copy of Parrot::Test::Tcl, which looks like it's
largely a copy of Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	830	953	
==>u might find on the command line).

If you don't pass a C<compiler> argument pair, the harness will run the tests
with C<per <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2198	2354	
==>e {
    $handler->start_element({ Name => 'loop', Attributes => { kind => $self->kind } });
  }

  if ($self->op) {
    $handler->start_element({ Name => 'bl <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	259	422	
==>_of_tests_badpass = 0;
$Test::num_of_tests_planned;

# a Junction to hold our FORCE_TODO tests
$Test::force_todo_test_junction;

# for running the test suite multip <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	246	341	
==>0;
$Test::num_of_tests_badpass = 0;
$Test::num_of_tests_planned;

# a Junction to hold our FORCE <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	30627	30738	
==>romote($v);
    print <<EOC;
	$x = $agg\[$w->[1]\] $cmt
EOC
    push @stack, [-1, $x, 'P'];
}
# exceptions
sub S <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	20933	21105	
==>t' => $result,
        );
    }
    return [ $result, \@opcodes ];
}

sub BuildBinop {
    my ( $parser, $expr1, $op, $expr2 ) = @_;
    my %type = (
        '+'  = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552113	552531	
==>=> ":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 635,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 77 \"src/ops/object. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43688	43908	
==>ush_mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44332	44552	
==>ush_mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	42092	42197	
==>$self->_add_inst ('','set',["P$count",$arg]);
    }
    $count++;
  }

  $self->_add_inst('', 'set', ['P0' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199526	199823	
==>"le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 236 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4544	4653	
==>delete $self->{args};
        return $self->op('nop', [], %$self);
    } elsif (@{ $self->{args} } == 1 && 2 = <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5681	5790	
==>delete $self->{args};
        return $self->op('nop', [], %$self);
    } elsif (@{ $self->{args} } == 1 && 2 = <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	23453	23619	
==>, @{[length($does)]}, "ascii",
            PObj_constant_FLAG|PObj_external_FLAG);
EOC
    }
    else {
        $cout .= <<"EOC";
        vt_clone->whoami = CONST_STRI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	201319	201811	
==>"le",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 238,
                  "ARGS" => [
                              "n",
                              "nc",
                              "ic"
                            ],
                  "BODY" = <==
2	/Users/nnunley/parrot/config/inter/lex.pm	1627	1748	
==>no');
        return $self;
    }

    if ($conf->options->get('ask')) {
        $prog = prompt($prompt, $prog ? $prog : $ <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	1641	1762	
==>no');
        return $self;
    }

    if ($conf->options->get('ask')) {
        $prog = prompt($prompt, $prog ? $prog : $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2049	2151	
==>ady defined at this lexical scope, we want to complain
  # about the redefinition. Otherwise, we assume <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1796	1898	
==>ady defined at this lexical scope, we want to complain
  # about the redefinition. Otherwise, we assume <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	1684	1839	
==>te it here.
    else {
        *share = sub { return $_[0] };
        *lock  = sub { 0 };
    }
}


=head1 NAME

Test::Builder - Backend for building test l <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	6788	6938	
==>so nevermind
          $name =~ tr/ /_/;
          print $fh "<a name=\"", esc($name), "\"\n>";
          DEBUG and print "Linearized ", scalar(@to_ung <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	5371	5621	
==>5,"D",900,"R",20000

' Read/data  Hello World -
10 read a$
print a$
if a$ = "-" then end
goto 10
100 data "Hello", "World", "-", 56.6

' Compilation bug, expect "Ok"
i$="N"
if i$="N" then goto 35
end
35 print "Ok"
end

' Compilation bug, expect "Ok"
d <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26033	26164	
==>pcodes, @{ $cond->[1] };
        push @opcodes, new BranchUnlessOp( $parser,
            'arg1'   => $cond->[0],
            'res <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26907	27026	
==>pcodes, @{ $cond->[1] };
    push @opcodes, new BranchUnlessOp( $parser,
        'arg1'   => $cond->[0],
        'res <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1218	1325	
==>(".return()"); # Return to the previous inline chunk.
        $compiler->outdent;
        $compiler->emit(". <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627505	627778	
==>terpreter, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628649	628922	
==>terpreter, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	7243	7387	
==>in ops.num\n"
	    if -e "DEVELOPING" and exists $ENV{PARROT_OPS_DEBUG};
	return -1;
    } else {
	my $n = $ParrotOps::optable{$opname} = ++$Parr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89252	89480	
==>BODY" => "#line 38 \"src/ops/bit.ops\"\n  {{\@1}} &= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89990	90218	
==>BODY" => "#line 38 \"src/ops/bit.ops\"\n  {{\@1}} &= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	374	479	
==>ut if no file is named, and turn it into a C implementation file.

=cut

use strict;

use lib 'lib';
use P <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	24054	24186	
==>UT.

=cut

sub output {
    my($self, $fh) = @_;

    if( defined $fh ) {
        $self->{Out_FH} = _new_fh($fh);
    }
    return $s <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	704	830	
==>$token .= $ch;
    } elsif($ch eq '?' and
            $token =~ /^[a-z]/) { # Question marks can follow an identifier
      $to <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34018	34115	
==>stexpected = ' . ($rule->hasleftmost($self) ? 'q{}'
				# WAS : 'qq{'.$self->describe.'}' ) . ')-> <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	28821	28969	
==>poses, to
      #  mean how it should get treated, not as what the element name
      #  should be.

      DEBUG > 1 and print "Pondering non-magical <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5091	5190	
==>foreach (keys %cores) {
		if (needs_build($oplib . "_ops$cores{$_}.c", "$oplib.ops")) {
			run("$OPS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073412	1074004	
==>[
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1196,
                  "ARGS" => [
                              "i",
                              "i",
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 65 \"src/ops/experimental <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	26	122	
==>-02-27 11:53:00Z bernhard $

package Parrot::Test::APL;

use strict;
use warnings;

use File::Bas <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470918	471178	
==>ODE" => 540,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 394 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566292	566684	
==>"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 647,
                  "ARGS" => [
                              "i",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 194 \"src/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->can(interpreter, {{\@2}}, {{ <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2280	2417	
==>ned $!) {
        Test::proclaim(undef, $desc, $todo, "eval was fatal: $!", :$depends);
    }
    else {
        #diag "'$desc' was non-fa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615892	616046	
==>sc"
                            ],
                  "BODY" => "#line 508 \"src/ops/object.ops\"\n    opcode_t *next = {{^+4}};\n    INTVAL offset;\n    of <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10015	10110	
==>,$d,$_[17],4,0x289b7ec6,/* 41 */
HH,$d,$a,$b,$c,$_[4],11,0xeaa127fa,/* 42 */
HH,$c,$d,$a,$b,$_[7 <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	43857	43961	
==>text to be processed and
a prefix to be matched at the very beginning of the text. If no prefix 
is speci <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	6620	6738	
==>edme();
		($resulty, $typey, @codey)=EXPRESSION();   # Y (only)
	} else {
	    	($resultx, $typex, @codex)=EXPRESSION() <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6029	6141	
==>RIC}:
${DEST0} = "$"
${STEMP0} = ${PTEMP1}["reg_type_short"]
${DEST0} = concat ${STEMP0}
${DEST0} = concat "0"
pr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615024	615157	
==>CLASS,\n            \"Class not parent of object\");\n    }\n    {{\@1}} = offset;\n    {{=next}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616175	616308	
==>CLASS,\n            \"Class not parent of object\");\n    }\n    {{\@1}} = offset;\n    {{=next}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10212	10336	
==>T remove comment

1;

}
#End of include--------------------------------------------------


#line 1 "lib/Regex/Grammar.y"


u <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	12588	12778	
==>t result, $P1

    inc op1
    goto neg_loop

pos_loop:
    if op1 == 0 goto done
    unless iter goto done
    
    $P1 = shift iter
    push result, $P1

    dec op1
    goto pos_loop

done <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2724	2830	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub new {
  my $new = shift->SUPER::new(@_);
  #$ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3080	3184	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sub new {
  my $new = shift->SUPER::new(@_);
  $ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2418	2521	
==>0["$stype"]
	P0= P1["$var"]	# Pull the original
	P2= P10[I25]
	P3= P2["$stype"]
	P3["$var"]= P0	# Hack i <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2645	2748	
==>0["$stype"]
	P0= P1["$var"]	# Pull the original
	P2= P10[I25]
	P3= P2["$stype"]
	P3["$var"]= P0	# Hack i <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_assignments.pm	83	304	
==>INT
#    ! #   FLO
#    $     STRING
#    
# Type must be one of INT FLO STRING
#    INT  is in   I0
#    FLO  is in   N0
#    STRING is in S0
#
# No implicit conversions into/from STRING
sub ASSIGNMENT_FUNC {
	my($varname <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	35766	35902	
==>EFAULT => -85
	},
	{#State 136
		DEFAULT => -46
	},
	{#State 137
		ACTIONS => {
			"^" => 79
		},
		DEFAULT => -61
	},
	{#Stat <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	11605	11768	
==>ck);
}

sub rewrite_charclass {
    my ($self, $op, $incexc, $lastback) = @_;

    my @ops;
    push @ops, aop('check', [ 1, $lastback ])
      unless ($op->{nochec <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710738	710829	
==>\n    PIO_puts(interpreter, io, \" \");\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711572	711663	
==>\n    PIO_puts(interpreter, io, \" \");\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3540	3669	
==>ur_opcode)
        break;
    switch (*cur_opcode) {
END_C
}

=item C<run_core_split($base)>

If defined return code to split e.g. <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	44714	44820	
==>ed any more
  $self->{instruction} = undef;
  $self->{regs} = undef;

  return $self;
}

1;
__END__

=head1 <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3874	4035	
==>.
${DEST0} = "$"
${STEMP0} = ${LOADTYPE}["reg_type_short"]
${DEST0} = concat ${STEMP0}
${DEST0} = concat "0"
PIR
	}

	return $pir;
}

sub post_load($) {
	my $self <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	8639	8740	
==>n { 0 }
sub startset { return () }
sub hasback { 0 }
sub dfa_safe { 1 }

package Regex::Ops::Tree::nop <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39682	39889	
==>[
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 720 \"src/ops/core.ops\"\n  if ({{\@1}} == EXCEPT_doomed)\n    _exit({ <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8482	8652	
==>e($name)>

Returns a file with the specified name in the directory.

=cut

sub existing_file_with_name
{
    my $self = shift;
    my $path = $self->path_for_file_with_nam <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	47601	47749	
==>k;
  my @lineage = ($treelet);

  DEBUG > 4 and print "Paragraph:\n$para\n\n";
  
  while($para =~  # Here begins our frightening tokenizer RE.
    m <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2213	2453	
==>"
                              # print  N1
                              # print  "\n"
                              #
exit(0);                      # end

=head1 SEE ALSO

F<examples/benchmarks/mops.pasm>,
F<examples/mops/mops.c>,
F<exampl <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	2213	2453	
==>"
                              # print  N1
                              # print  "\n"
                              #
exit(0);                      # end

=head1 SEE ALSO

F<examples/benchmarks/mops.pasm>,
F<examples/mops/mops.c>,
F<exampl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39129	39360	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41689	41920	
==>> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1016637	1016913	
==>,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "time",
                  "FLAGS" => "",
                  "ARGDI <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1925	2147	
==><F>;
    close F;

    my @c = split '';
    die "'$image_file' is truncated. Remove it and rerun make\n" if !@c;

    print '    ';
    my $i;
    for (@c) {
        printf "0x%02x", ord($_);
        ++$i;
        print ', <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	4	103	
==>Assign.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is s <==
2	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	740	906	
==>NPUT>);
    close INPUT;
}

my $up_to_date = 1;
foreach my $output (@outputs) {
    if (! open(OUTPUT, $output)) {
        print "$output does not exist; remaking\n" i <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	15315	15442	
==>-57,
		GOTOS => {
			'tableconstructor' => 46,
			'args' => 43,
			'key' => 45
		}
	},
	{#State 32
		DEFAULT => -83
	}, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015097	1015353	
==>r, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015921	1016177	
==>r, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6071	6256	
==>oup) = @_;
    $reg = value($reg);
    return qq!$reg = <rx_match>{"$group"}->[1]; # get group $group end!;
}

sub output_delete {
    my ($self, $n) = @_;
    return qq!<rx_match>{"$n"} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21144	21391	
==>S" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 349 \"src/ops/core.ops\"\n  if (!string_bool(interpreter, {{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3} <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	7007	7164	
==>ave_Plan}      = 1;

        $self->_print("1..$max\n") unless $self->no_header;
    }
    return $self->{Expected_Tests};
}


=item B<no_plan>

  $Test->no_p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1108	1219	
==>new module '%s'.\n", __PACKAGE__, $ident->value;

  return $self;
}


#
# ACCESSORS:
#

sub type      { return s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	2384	2519	
==>ew pullparser object: $self\n";

  return $self;
}

# ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~

sub get <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2297	2421	
==>$@;
	}
	else {
		$retval = $self->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exists($$self{USER <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2213	2326	
==>$@;
	}
	else {
		$retval = $self->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exists($$self{USER <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	12692	12801	
==>her.foo
v.start.pnext.bar="Hello"
print v.start.pnext.bar

' Member functions, give 0 and 3 (modified)
type fi <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3329	3455	
==>ibs(@pmcs);

    while (my ($group, $pmcs) = each %$group_files) {
        my @pmcfiles = map { "$_.pmc" } @$pmcs;
        if ( <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3433	3559	
==>ibs(@pmcs);

    while (my ($group, $pmcs) = each %$group_files) {
        my @pmcfiles = map { "$_.pmc" } @$pmcs;
        if ( <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	3202	3467	
==>rt keys %$typedefs) {
        $cmd .= " -T $_";
    }
    $cmd .= " $file";
    
    print "Running \"$cmd\"\n";
    system($cmd);
    
    if (%bad_fdecls) {
        print STDERR "\nThe following function declarations appear to contain a newline\n";
        print S <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596163	596260	
==>ne 337 \"src/ops/object.ops\"\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, {{\@3}});\n  {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597056	597153	
==>ne 337 \"src/ops/object.ops\"\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, {{\@3}});\n  {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563326	563536	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addmethod",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564223	564433	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addmethod",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104070	1104161	
==>eption(interpreter, NULL, NO_CLASS,\n\t\t\t\t\"Class '%Ss' not found\", class);\n\t{{\@1}} = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105285	1105376	
==>eption(interpreter, NULL, NO_CLASS,\n\t\t\t\t\"Class '%Ss' not found\", class);\n\t{{\@1}} = <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35111	35283	
==>NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched subrule: ['
					. $self->{subrule} . ']<< (return value: [}
					. $_tok . q{]},
					  
					  Parse::RecDescent::_tr <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	22581	22772	
==>, $tree, @include);
    # initialization to prevent warnings
    %opt = map { $_ => 0 } qw(nobody nolines debug verbose);

    my %action;

    GetOptions(
        "include=s"     => \@include <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	23100	23229	
==>args;
    if ($make_f) {
	$make_f = 0;
	print <<EOC;
	# make_f \t$cmt
EOC
	# pop @stack;
	return;
    }
    my $func;
    my $nfix <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363531	363632	
==>double){{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364434	364535	
==>double){{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612711	613030	
==>" => "inline",
                  "CODE" => 694,
                  "ARGS" => [
                              "p",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 496 \"src/ops/object.ops\"\n    VTABLE_set_attr_str(interpreter, {{\@1}} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	22383	22489	
==>n [ 'neg', [] ]; }
	],
	[#Rule 39
		 'classpieces', 2,
sub
#line 170 "lib/Regex/Grammar.y"
{ push @{$_[1]}, <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	290	533	
==>irectory> subclass creates C<Parrot::Docs::Files>.

It's used by the documentation tools in F<tools/docs>.

=head2 Class Methods

=over

=cut

package Parrot::Docs::Directory;

use strict;
use warnings;

use base qw( Parrot::IO::Directory );

u <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6649	6808	
==>->_restore($item, $pair);

  return $return;
}

sub _qq_unquote_splicing {
  my ($self, $node, $return) = @_;

  my $list = $self->_generate($node);

  die "unq <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	13735	13829	
==>e><i>Last Updated: @{[ scalar(localtime) . strftime(' (%Z)', localtime(time)) ]} </i>
     </bo <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1734	1880	
==>enerated by $0
# Pattern >>$pattern<<

END

    $driver->output_header($PIR);

    for my $tree (@$trees) {
        $driver->output_rule($PIR, '_re <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23787	23924	
==>production<< (found '
					 . $self->describe . ')},
					 Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644050	644143	
==>"\n  {{\@1}} = {{\@2}}->vtable->type_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644943	645036	
==>"\n  {{\@1}} = {{\@2}}->vtable->type_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n", <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	5736	5893	
==>ccwarn     => "-ansi -pedantic",
            gccversion => undef
        );

        return $self;
    }

    $conf->data->set(
        ccwarn              => <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	37200	37320	
==>p_string_p,
  'make-string'   => \&_op_make_string,
  'string'        => \&_op_string,
  'string-length' => \&_op_string_ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20836	20953	
==>self->op_save_rxlocals($op),
              );

    return ($back, @ops);
}

# ( [ [aaaaa|aaaaaaa]<2,3> ]<1,2> )
# 30,4 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4361	4459	
==>$self, $code, $failLabel) = @_;
    my $comment = Regex::Ops::Tree::isplain($code) ? " # match '".c <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4048	4146	
==>$self, $code, $failLabel) = @_;
    my $comment = Regex::Ops::Tree::isplain($code) ? " # match '".c <==
2	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	1539	1661	
==>ub output_is 
{
  my $self = shift;
  my ( $code, $expected, $desc ) = @_;
  
  my $test_no = $self->{builder}->current_tes <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	1834	1977	
==>untime_init;
	feedme;
	$branchseq=0;
	$sourceline=1;
	my $currline="";	# The last labeled line before a "data" statement.
	my $singleif=0;
	my $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035482	1035583	
==>2}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n    PMC *result = NULL;\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036646	1036747	
==>2}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n    PMC *result = NULL;\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	53282	53400	
==>m or \cj
  '"' => '\"',
  '\\' => '\\\\',
  '$' => '\\$',
  '@' => '\\@',
  '%' => '\\%',
  '#' => '\\#',
);

sub prett <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	16370	16520	
==>p_ok($this, $type, $that, $name);

Works just like Test::More's cmp_ok().

    $Test->cmp_ok($big_num, '!=', $other_big_num);

=cut

sub cmp_ok {
    m <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1049	1160	
==>E $FILENAME );

$VERSION = '1.05';
$COMPATIBLE = '0.07';
$FILENAME=__FILE__;

use Carp;

#Known paramete <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1015	1118	
==>E $FILENAME );

$VERSION = '1.05';
$COMPATIBLE = '0.07';
$FILENAME=__FILE__;

use Carp;

#Known paramete <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	554	699	
==>e input <n> chars
# O (fork, R)
# O (reverse_fork, R)
# O (match, b) : return if start of input is b, advance 1 char
# O (classmatch, charclass) : <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18612	18718	
==>(1)->is_close_paren) {
        while (1) {
          push @args, Jako::Construct::Expression::Value->new($b <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19638	19744	
==>(1)->is_close_paren) {
        while (1) {
          push @args, Jako::Construct::Expression::Value->new($b <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	21946	22058	
==>_func->( $lang_for_extension{$extension}, $code, $expected, $example_f, @options );
            }
            els <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2883	2997	
==>{$$self{CHECK}}='ERROR';
    undef;
}

sub YYSemval {
	my($self)=shift;
	my($index)= $_[0] - ${$$self{DOTPOS} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2745	2853	
==>{$$self{CHECK}}='ERROR';
    undef;
}

sub YYSemval {
	my($self)=shift;
	my($index)= $_[0] - ${$$self{DOTPOS} <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	3945	4127	
==>always part of function and arguments, or constants listings
    #and should stand out.
    
    print {$self->{'output_fh'}} '<b>' if $self->{IN_ITEM_TEXT};
    
    print {$self->{ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2290	2391	
==>n $index_html;
}

=item C<write_contents_html($source, $target, $silent)>

Iterates over the group's c <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	535	723	
==>e Parrot::Docs::File;

=item C<file_class()>

Returns C<Parrot::Docs::File>.

=cut

sub file_class
{
    return 'Parrot::Docs::File';
}

=item C<directory_class()>

Returns C<Parrot::Docs:: <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9500	9612	
==>rs under 0x80 that aren't legal in an XML Name.
        or $new_code =~ m/^[-\.0-9]/s
        or $new_code =~ m/: <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10764	10876	
==>rs under 0x80 that aren't legal in an XML Name.
        or $new_code =~ m/^[-\.0-9]/s
        or $new_code =~ m/: <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62679	62789	
==>-or-more subrule match", $aftererror,$line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $gramm <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	3045	3180	
==>ist.

=cut

sub keys
{
    my $self = shift;

    return keys %{$self->{c}};
}

=item C<dump()>

Provides a L<Data::Dumper> serialized s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088317	1088621	
==>MP" => 0,
                  "NAME" => "slice",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089264	1089568	
==>MP" => 0,
                  "NAME" => "slice",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	31412	31544	
==>t) = @_;
    if (@loops) {
	my $pc = pop @loops;
	print <<EOC;
	# $pc  $cmt
	clear_eh
EOC
    }
    else {
	print <<EOC;
	\t\t$cmt
EO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81337	81680	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compile",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82230	82573	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compile",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	12108	12313	
==>h_blib' => '',
             'setenv' => 1,
             'share_ext' => '.dylib',
             'shortsize' => 2,
             'slash' => '/',
             'sym_export' => '',
             'sym_import' => '', <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453111	453336	
==>30 \"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453850	454075	
==>30 \"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028134	1028230	
==>t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_event(interpreter, (FLOATVAL) {{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028985	1029081	
==>t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_event(interpreter, (FLOATVAL) {{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89798	90036	
==>inline",
                  "CODE" => 111,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 38 \"src/ops/bit.ops\"\n  {{\@1 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2841	2942	
==>=> { kind => 'then' } });
  $_->sax($handler) foreach $self->content;
  $handler->end_element({ Name = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1865	1969	
==>number  { ++$_[0]{'Indent'} }
sub start_over_text    { ++$_[0]{'Indent'} }
sub start_over_block   { ++$_[ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1433	1537	
==>number  { ++$_[0]{'Indent'} }
sub start_over_text    { ++$_[0]{'Indent'} }
sub start_over_block   { ++$_[ <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	4954	5088	
==>abel =~ s/\./_/g;
        $pir .= "$label:\nbody = <<\"___BUILTIN_CODE___\"\n";
        $pir .= $_->{'body'};
        $pir .= "___BUILT <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	261	503	
==>089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expression::Prefix;

use base qw(Jako::Construct::Expression);

sub new
{
  my $class = shift;
  my ($op, $right);

  return bless {
    OP    => $op,
    RIGHT => $rig <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	11220	11331	
==>Float Integer BigInt Complex String Boolean Ref SharedRef Array FixedIntegerArray IntList Iterator SArray ConstS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732853	733019	
==>nc"
                            ],
                  "BODY" => "#line 129 \"src/ops/set.ops\"\n  {{\@1}} = (INTVAL)({{\@2}});\n  {{+=3}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/config/inter/make.pm	2254	2547	
==>>get('gmake_version')) {
        $conf->data->set(make_c => "$prog -C");
    } else {

        # get the default value
        my $make_c = $conf->data->get('make_c');

        # FIXME this is an ugly hack
        # replace the value for $(MAKE) with the actual path or we'll end up
        # w <==
2	/Users/nnunley/parrot/config/inter/make.pm	2049	2170	
==>/GNU \s+ Make \s+ (\d+) \. (\d+)/x) {
        $conf->data->set(gmake_version => "$1.$2");
    }

    $conf->data->set($uti <==
2	/Users/nnunley/parrot/lib/Test/More.pm	37250	37463	
==>tar.co.uk, chromatic, Fergal Daly and
the perl-qa gang.


=head1 BUGS

See F<http://rt.cpan.org> to report and view bugs.


=head1 COPYRIGHT

Copyright 2001, 2002, 2004 by Michael G Schwern E<lt>schwern@pobox.comE< <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3021	3146	
==>]);
  $self->_add_inst('', 'set', [$return, 2]);

  return $return;
}

#------------------------------------

my $type_map = { <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1140	1258	
==>alar(File::Spec->splitdir($path_to_parrot));
        my $path_to_language;
        if ($dir_count == 0) {
          $pa <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1625	1743	
==>alar(File::Spec->splitdir($path_to_parrot));
        my $path_to_language;
        if ($dir_count == 0) {
          $pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2898	2986	
==>=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGoto>

= <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	1732	1820	
==>=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGoto>

= <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	917	1054	
==>$verbatim_end   = qr{ ^=cut }smx;

sub get_formatted {
    my ($self) = shift;

    my $level    = 0;
    my $verbatim = 0;

    # Step on <==
2	/Users/nnunley/parrot/examples/benchmarks/oo5.pl	269	387	
==>(@_) { $self->[0] = shift } else { $self->[0] }
}

sub j {
    my $self = shift;
    if (@_) { $self->[1] = shift } els <==
2	/Users/nnunley/parrot/examples/benchmarks/oo6.pl	261	379	
==>(@_) { $self->[0] = shift } else { $self->[0] }
}

sub j {
    my $self = shift;
    if (@_) { $self->[1] = shift } els <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6703	6818	
==><rx_stack>, -1; # pushmark";
    return @ops;
}

sub output_pushindex {
    my ($self, $reg) = @_;
    $reg = value( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7062	7176	
==><rx_stack>, -1 # pushmark";
    return @ops;
}

sub output_pushindex {
    my ($self, $reg) = @_;
    $reg = value( <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	2544	2731	
==>ing' => 1,
             'doc_dir' => '/opt/local/share/doc/parrot',
             'doublesize' => 8,
             'dquote' => '\\"',
             'encoding' => 'fixed_8.c ucs2.c utf16.c utf <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	4000	4091	
==>__PARROT_STATIC_STR(line) CONCAT(&static_string_, line)

#if ! DISABLE_GC_DEBUG
#  define GC <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265983	266183	
==>",
                              "sc"
                            ],
                  "BODY" => "#line 806 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} != {{\@3}};\n    {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037698	1037794	
==>src/ops/var.ops\"\n    Parrot_store_global(interpreter, NULL, {{\@1}}, {{\@2}});\n    {{+=3}};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038479	1038575	
==>src/ops/var.ops\"\n    Parrot_store_global(interpreter, NULL, {{\@1}}, {{\@2}});\n    {{+=3}};\n" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	2734	2905	
==>ur eq "_" and $next =~ /\w/) {	# Directive
		append;
		fetch;
		while($cur =~ /\w/) {
			append;
			fetch;
		}
		emit("BARE");
		until($cur eq "\n" and $next eq "_" and $af <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	527	638	
==>h;
}

print "SKIPPING @skip\n";

# get a list of all the tests in the harness.

my $teetcl = 't_tcl';

my @b= ma <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359089	359342	
==>],
                  "TYPE" => "function",
                  "CODE" => 420,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 250 \"src/ops/io.ops\"\n  STRING * const s = {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046869	1047188	
==>re_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1170,
                  "AR <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2868	3042	
==>1.");
            $path =~ s/\Q$SRCDIR\E//g;
            $generated_files{$path} = $tmp;
            $tmp = '';
        } else {
            $tmp .= $_;
        }
    }
    cl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	903132	903330	
==>,
                              "ic",
                              "sc"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	904152	904350	
==>,
                              "ic",
                              "sc"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	4320	4508	
==>if ($verbose_step =~ /^\d+$/ && $n == $verbose_step) {
                $self->options->set(verbose => 2);
            }

            # by description
            elsif ($description =~ /$ve <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	965450	965867	
==>",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1086,
                  "ARGS" => [
                              "i",
                              "ic",
                              "s",
                              "i"
                            ],
                  "BODY" => "#lin <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	5769	6139	
==>th($indent) . " spaces)");
                }
            }
            $f = undef;
        }
    }
}


# tabs are bad, mmkay?
sub check_tabs {
    my ($file, $source) = @_;

    my $line = 0;
    foreach (@$source) {
        $line++;
        next unless defined $_;

        if (/\t/) {
            s/\t/\[TAB\]/g;
            warning($file, $line, "Tab character in sour <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	1708	1808	
==>usertypes );
use vars qw( $funcname );
use vars qw( $branchseq @selects $sourceline );
sub parse {
	$ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	22848	23071	
==>de $was<>");
        $is = $treelet->[$i][0] = '1';  # But saving the children!
        # I could also insert a leading "$was<" and tailing ">" as
        # children of this node, but something about that seems icky.
      } <==
2	/Users/nnunley/parrot/config/auto/headers.pm	1229	1415	
==>.h>
    #include <netinet/in.h>
    #include <arpa/inet.h>
    # hence add sys/types.h to the reprobe list, and have 2 goes at getting
    # the header.
    my @extra_headers = qw(malloc. <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	1573	1714	
==>e   = ^oo 
    exclude   = header
    exclude   = waves

    [benchmark parrotj]
    exe       = ../../parrot -j
    type      = .pasm
    typ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	21191	21324	
==>ow_many tests are in the block"
          unless $Test->has_plan eq 'no_plan';
        $how_many = 1;
    }

    for( 1..$how_many ) { <==
2	/Users/nnunley/parrot/lib/Test/More.pm	23621	23754	
==>ow_many tests are in the block"
          unless $Test->has_plan eq 'no_plan';
        $how_many = 1;
    }

    for( 1..$how_many ) { <==
2	/Users/nnunley/parrot/config/init/hints/hpux.pm	142	293	
==>ints::hpux;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $l <==
2	/Users/nnunley/parrot/Configure.pl	5286	5404	
==>e for step matching description
   --nomanicheck        Don't check the MANIFEST
   --prefix             Set the instal <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	3253	3426	
==>cs::HTMLPage->footer('', '../resources'));
    
    return $self->html_link . "<br>\n";
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::Docs::Group>

=item C<Parrot::Docs <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	933	1088	
==>"; # JMG
        binmode LANG; # JMG
        print LANG $lang_code; # JMG
        close LANG; # JMG

        Parrot::Test::run_command( 
            "$PConf <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	845	1000	
==>"; # JMG
        binmode LANG; # JMG
        print LANG $lang_code; # JMG
        close LANG; # JMG

        Parrot::Test::run_command( 
            "$PConf <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	10682	10854	
==>...)
    my $ret = $calltype{$type or "void"};
    $ret .= "JO";
    $ret .= join('', map {$calltype{$_} or "?"} split(/,/, $parameters));
    # TODO
    # scan src/call_lis <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	1492	1615	
==>d EOF (missing quote?)" if ( $cur eq -1 or $cur eq "\n");
			append;
			fetch;
		}
		append;
		$curtok=~s/^"|"$//g;    # Rem <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	2207	2522	
==>t_map{$func};
           # That's the reason for:   no strict 'refs';
           my $pass = $self->{builder}->$meth(
                          Parrot::Test::slurp_file($out_fn),
                          $output,
                          $desc
                      );
           unless ( $pass ) {
               m <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1916	2015	
==>EFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
    # Yes, stipulate the list without a ra <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2019	2118	
==>EFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
    # Yes, stipulate the list without a ra <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953832	954095	
==>ding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1073 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028199	1028403	
==>t(interpreter, (FLOATVAL) {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029050	1029254	
==>t(interpreter, (FLOATVAL) {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954622	955104	
==>ding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1074,
                  "ARGS" => [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 571 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_enco <==
2	/Users/nnunley/parrot/config/inter/progs.pm	2271	2380	
==>ask;
    $conf->data->set(ld => $ld);

    $ccflags = $conf->data->get('ccflags');

    # Remove some perl5-is <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	3081	3235	
==>d)
--uninit|-u	uninitialised data symbols (Bb)
--local|-l	local symbols (tdbruf)
--global|-g	global symbols (TDBRUF)
--const|-C	const (read-only) data symb <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20424	20556	
==>y $left = Jako::Construct::Expression::Value::Identifier->new($block, $token);

      my @left = ($left);

      $self->require_assig <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	431	552	
==>~~~~~~~~~~~~~~~~~~~~~

sub new {
  my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	12609	12755	
==>r (@{$locals->{children}}) {
    _num_arg ($_, 1, 'let locals');
    my ($var, $val) = _get_args ($_, 0);
    push @variables, $var;
    push @valu <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	3801	3979	
==>ces are:

    array    : container PMC with numerically-keyed elements
    event    : PMC that can be used with event queue
    hash     : container PMC with string-keyed elements <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957041	957489	
==>ding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1077,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 581 \"src/ops/stri <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	6015	6185	
==>als{line_coverage}   = sprintf("%.2f", ($totals{lines}    ? ($totals{covered_lines} / $totals{lines} * 100)       : 0));
    $totals{branch_coverage} = sprintf("%.2f", ($t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11052	11161	
==>rol_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  {{+={{\@1}}}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11841	11950	
==>rol_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  {{+={{\@1}}}};\n",
                  "LA <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	11810	11954	
==>o_charclass');
    my $next = $self->genlabel('after_charclass');

    push @ops, (
                         $self->dbprint("trying classmatch\n" <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	8270	8403	
==>e} %" : "n/a" ]}</a></td>
             <td><a href="$outfile_base.branches.html">@{[$file_branch_coverage{$source_file} ? "$file_branc <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	30764	30937	
==>Set up the full preamble, including stuff gathered from
    # rewriting the expression. Then write out the rest of the
    # expression.
    my $def = aop('rule_def', [ $name <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	1228	1372	
==>anguages|examples)$: ) {
            $File::Find::prune = 1;	
            return;
        }
        return if /malloc/;

        /^.*\.[ch]\z/s & <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854548	855033	
==>> [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 970,
                  "ARGS" => [
                              "s",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 105 \"src/ops/string.ops\"\n  {{\@1}} = string_concat(interprete <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1320	1419	
==>nfess "No Compiler!" unless defined $compiler;

  my $type = $self->type;

#  $self->DEBUG(0, "Compi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669078	669168	
==>src/ops/pmc.ops\"\n    {{\@1}}->vtable->push_float(interpreter, {{\@1}}, {{\@2}});\n    {{+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669850	669940	
==>src/ops/pmc.ops\"\n    {{\@1}}->vtable->push_float(interpreter, {{\@1}}, {{\@2}});\n    {{+ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	138	244	
==>PORT @ISA);

use Parrot::Config;

require Exporter;
require Parrot::Test;

@EXPORT = ( qw(output_is output_ <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	55	161	
==>PORT @ISA);

use Parrot::Config;

require Exporter;
require Parrot::Test;

@EXPORT = ( qw(output_is output_ <==
2	/Users/nnunley/parrot/config/auto/inline.pm	1248	1422	
==>);
        } else {
            print " no " if $verbose;
            $self->set_result('no');
            $test   = '';
        }
    }

    $conf->data->set(inline => $test) <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	17774	17897	
==>ack empty\n";
	return;
    }
    my $tos = pop @stack;
    my $targ = "pc_xxx";
    if ($c =~ /to (\d+)/) {
	$targ = "pc_$1" <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	12879	13028	
==>ments, the first argument is a key specifying
one element of the hash; the second argument, if present, is
assigned to the hash element.  If the eleme <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	15869	15980	
==>ft;

    $path =~ s|\\+|/|go;

    return $path;
}

=back

=head2 Functions

=over 4

=item C<esc(@strings)>

=i <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5469	5660	
==>stem.c"))
          or die "compile $src_stem.c failed ($?)\n";
    }
    else {
        1;
    }
}

sub partial_link {
    my ($libs, $stem) = @_;

    if (needs_build("$stem$LOAD_EXT", "$ste <==
2	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	524	680	
==>ould be in BEGIN block
my ( $parrot_version, @parrot_version );

sub parrot_version
{
    if (defined $parrot_version) {
        return wantarray ? @parrot_v <==
2	/Users/nnunley/parrot/lib/File/Which.pm	1123	1345	
==>$exec`;
        chomp($symbol);
        if (!$?) {
            return $symbol unless $all;
            push @results, $symbol;
        }
    }
    if ($Is_MacOS) {
        my @aliases = split /\,/, $ENV{Aliases};
        fo <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	2022	2114	
==>e C<Parrot::Pmc2c> subclass for the PMC
(C<< $self->{class} >>). C<$self> is the hash referen <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1579	1713	
==>> \$nberr,
				TOKEN => \$token,
				VALUE => \$value,
				DOTPOS => \$dotpos,
				STACK => [],
				DEBUG => 0,
				CHECK => \$ch <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1526	1654	
==>> \$nberr,
				TOKEN => \$token,
				VALUE => \$value,
				DOTPOS => \$dotpos,
				STACK => [],
				DEBUG => 0,
				CHECK => \$ch <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	150	246	
==>est::Harness - a test harness for languages built on Parrot

=head1 SYNOPSIS

Tell the harness wh <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	25046	25289	
==>om the .pmc file
    $cout .= <<"EOC";
        /* class_init */
    $class_init_code
EOC

    # declare auxiliary variables for dyncpmc IDs
    foreach my $dynpmc (keys %init_mmds) {
        next if $dynpmc eq $classname;
        $cout .= <<"EO <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	31559	31690	
==>) {
    $self->_restore ($temp);
    $temp = $self->_generate($_);
    if ($temp =~ /[INS]/) {
      $self->_add_inst('','print',[$t <==
2	/Users/nnunley/parrot/lib/Test/More.pm	2647	2801	
==>est future features and compare complicated
data structures.  While you can do almost anything with a simple
C<ok()> function, it doesn't provide good diag <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	75054	75170	
==><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                       $errortext
.

select ERROR;
$| = 1;

# T <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	910	1046	
==>le
{
  my $self = shift;
  my ($compiler) = @_;
  
  my $ident_name = $self->ident->value;

  my $ident = $self->ident->compile($compiler <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	910	1044	
==>le
{
  my $self = shift;
  my ($compiler) = @_;

  my $ident_name = $self->ident->value;

  my $ident = $self->ident->compile($compiler <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	8290	8446	
==>*${bs}ops_addr[*cur_opcode];

END_C
}



print SOURCE <<END_C;
/*
** Op Function Definitions:
*/

END_C

#
# Finish the SOURCE file's array initializer:
#
my <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	24163	24283	
==>gs;
	#
	# that's wrong, works only for all or none named arguments
	#
	for ($i = 0; $i < $nk; $i+=2,) {
	    my $val = po <==
2	/Users/nnunley/parrot/lib/Test/More.pm	23138	23262	
==>e an C<eval BLOCK> with and using C<alarm>.  In these extreme
cases you have no choice but to skip over the broken tests enti <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27103	27267	
==>( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $l_break;
            }
        }
    }
    pu <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27784	27948	
==>( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $l_break;
            }
        }
    }
    pu <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	8940	9047	
==>nterpreter, st, "N");
    UVal_num(st->val) = val;
    Parrot_convert_arg(interpreter, st);
    Parrot_store <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	371507	371597	
==>pio);\n    if (!io)\n\treal_exception(interpreter, NULL, PIO_ERROR,\n\t\t\"Cannot read line <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	29186	29303	
==>e_p {
}

sub _op_char_ci_eq_p {
}

sub _op_char_ci_lt_p {
}

sub _op_char_ci_gt_p {
}

sub _op_char_ci_le_p {
}

sub _ <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	5320	5457	
==>$svn_cmd = 'svn';
   } else {
       $svn_cmd = 'svk';
   }

   # Find all directories in the Parrot distribution
   my %dir_list  = map { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727529	727799	
==>\"src/ops/set.ops\"\n   const INTVAL temp = {{\@1}};\n   {{\@1}} = {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	11552	11687	
==>me .": $jit_func $extern\n";
        }
        # *) $R = $X->vtable->{vtable}(interp, $Y, $Z)
        elsif ($opbody =~ /
        ^(?:.* <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	8464	8585	
==>------------------------------
sub unaccept_target         { shift->unaccept_targets(@_) }

sub unaccept_targets {
  my $t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947175	947406	
==>rset '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948077	948308	
==>rset '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943846	943956	
==>ps\"\n  {{\@1}} = Parrot_charset_number_of_str(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944635	944745	
==>ps\"\n  {{\@1}} = Parrot_charset_number_of_str(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34971	35066	
==>$Parse::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = $Parse::RecDescent <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42081	42176	
==>$Parse::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = $Parse::RecDescent <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	356	445	
==>eturn $new;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	355	444	
==>eturn $new;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8551	8670	
==>-1][0]]{GOTOS}{$lhs}.\n";

#DBG>				$debug & 0x10
#DBG>			and	$dbgerror
#DBG>			and	$$errstatus == 0
#DBG>			and	do <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8165	8279	
==>-1][0]]{GOTOS}{$lhs}.\n";

#DBG>				$debug & 0x10
#DBG>			and	$dbgerror
#DBG>			and	$$errstatus == 0
#DBG>			and	do <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39519	39637	
==>h");
    PMC *sub = find_or_die(interpreter, pmc, meth);
    ${func_ret}Parrot_run_meth_fromc_args$ret_type(interpreter <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8357	8470	
==>ymbol, and then returns that symbol's kind.

=cut

sub kind_of_ident
{
  my $self = shift; # Required: Jako::Const <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	12062	12162	
==>to search the current C<PATH> for.  The first matching
program name is returned or C<undef> on failur <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	3261	3383	
==>est = Test::Builder->create;

Ok, so there can be more than one Test::Builder object and this is how
you get it.  You might <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79297	79407	
==>\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      /* At this point we have the sy <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80818	80928	
==>\n      {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      /* At this point we have the sy <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	8297	8414	
==>ODSOURCE, "<$_[0]") || Carp::croak "Can't open $_[0]: $!";
      $handle = *PODSOURCE{IO};
    }
    $self->{'source_f <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	11360	11487	
==>ft @$incexc;
    $incexc->[0]++;
    return $incexc;
}

sub rewrite_classpieces {
    my ($self, $op, $classpieces, $lastback) = <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	886	982	
==>s
and without leading/trailing pattern delimiters.

(Hint: if you try using qr// for the $pattern <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2984	3080	
==>s
and without leading/trailing pattern delimiters.

(Hint: if you try using qr// for the $pattern <==
2	/Users/nnunley/parrot/lib/File/Which.pm	6421	6515	
==>ith slight modifications
by Stas Bekman, then extracted to create C<File::Which>.

Version 0.04 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	31343	31462	
==>)
	end
RTBE
}
sub parse_data_setup {
	push @{$code{_data}->{code}},<<DATAPREP;
	# Prepare the Read/Data stuff
	find_glob <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	914441	914983	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1030,
                  "ARGS" => [
                              "i",
                              "s",
                              "sc",
                              "i"
                            ],
                  "BODY" => <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	112	215	
==>33Z coke  $

=head1 NAME

Parrot::Test - testing routines for Parrot and language implementations

=head <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	918487	919002	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1034,
                  "ARGS" => [
                              "i",
                              "s",
                              "sc",
                              "ic"
                            ], <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919499	919811	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1035 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8958	9090	
==>-1; # was a mark?",
            "$reg = <rx_tmp>; # nope, set pos := popped index");
}

sub output_popint {
    my ($self, $reg, $db_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442025	442600	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 506,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "nc"
                            ],
                  "BODY" => "#line 109 \"src/ops/math.ops\"\ <==
2	/Users/nnunley/parrot/config/auto/python.pm	859	1059	
==>on = $python ? 1 : 0;

    $conf->data->set(has_python => $has_python);

    my $has_python_2_4 = 0;
    if ($has_python) {
        $has_python_2_4 = ($major eq '2' && $minor eq '4') ? 1 : 0;
        $ <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	3620	3837	
==>omponents( $func ) );
            ++$nfuncs;
        }
    } # for @cfiles
    my $nfiles = scalar keys %files;
    print Dumper( \%files );
    print "$nfuncs funcs in $nfiles files\n";
}

# vim: expandtab shiftwidth= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955882	955996	
==>1}} = string_copy(interpreter, Parrot_encoding_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956694	956808	
==>1}} = string_copy(interpreter, Parrot_encoding_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18580	18757	
==>edme();   # Special "Return Label"
		push @{$code{$seg}->{code}}, <<RETURN2;
	JUMPLABEL= "$labels{$syms[CURR]}"  # Return $syms[CURR]
	ret
RETURN2
		if (! $runtime_jump) {
			war <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1526	1644	
==>e: $!";

    my $ctx = { };
    my $trees = Regex::expr_to_tree($pattern, $ctx, DEBUG => 0);

    my $driver = Regex::D <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113858	114083	
==>e 204 \"src/ops/bit.ops\"\n  {{\@1}} <<= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114597	114822	
==>e 204 \"src/ops/bit.ops\"\n  {{\@1}} <<= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1195	1312	
==>ut => $output };
    }
    
    Test::More::plan( tests => scalar(@spec) );

    generate_regular($pattern);

    fore <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2904	3027	
==>al2, $dest) = @_;
    $self->output_test('<', $val1, $val2, $dest);
}

sub output_le {
    my ($self, $val1, $val2, $dest) = <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	6590	6871	
==>y.html">Function Summary</a>
              <li>Overall Summary:<br>

            <table border="1">
              <tbody>
                 <tr>
                 <th></th><th>Lines</th><th>Branches</th><th>Calls</th>
                 </tr>
                 <tr>
                 <td> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	939	1042	
==>AL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');
  confess "Left is not Value!" if def <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	967	1070	
==>AL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');
  confess "Left is not Value!" if def <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784241	784378	
==>"
                            ],
                  "BODY" => "#line 392 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_pmc_keyed_int(interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785147	785284	
==>"
                            ],
                  "BODY" => "#line 392 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_pmc_keyed_int(interp <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	14301	14443	
==>y $source = shift;
    my $target = shift;
    my $rel_path = shift;
    my $item = shift;
    my $file = $source->file_with_relative_path($rel <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	4075	4254	
==>moting
            System.Runtime.Serialization.Formatters.Soap
            System.Security
            System.ServiceProcess
            System.Web.Services
            Syste <==
2	/Users/nnunley/parrot/tools/dev/pbc_header.pl	276	409	
==>lity. During release preparation (and other changes to
PBC_COMPAT) the fingerprint of existing bytecode files is invalidated.

This ut <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196990	197405	
==>i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 233,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 366 \"src/ops/cmp.ops\"\n  if ({{\@1}} <= {{\@2}}) {\n    {{+={{\@3}} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	12008	12200	
==>ntent as a title
          and $head1_text_content =~ m/\S/
          and $head1_text_content !~ m/^[ A-Z]+$/s
          and $head1_text_content !~
            m/\((?:
             NAME | TITLE <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	17431	17543	
==>p('add', [ $counter, 1 ]),
		 aop('ge', [ $counter, $N, $lastback ]),
		 aop('goto', [ $try ]),
	$back => $self-> <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6485	6603	
==>ain text rather than POD it may be directly linked to.

=cut

sub is_docs_link
{
	my $self = shift;

	# TODO - This nee <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2636	2731	
==>' => 'Project info',
	'CREDITS' => 'Project info',
	'DEVELOPING' => 'Project info',
	'harness' = <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	5150	5446	
==>/
                and $str .= $1,
                last;
        }
    }

    $parser->Error("Untermined raw string.\n");
    $parser->YYData->{lineno}++;
    return ( $type, $str );
}

sub _Identifier {
    my $parser = shift;
    my ($idf) = @_;

    if ( exists $parser->YYData->{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549899	549994	
==>" => "#line 56 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551200	551295	
==>" => "#line 56 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27201	27400	
==>hods for inclusion
in the PMC's C header file.

TODO include MMD variants.

=cut

sub hdecls() {
    my $self = shift;

    my $hout;
    my $classname = $self->{class};
    # generat decls for all me <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	264	535	
==>gical enum fixup.
our @need_enum_fix = (
    qw/2E 2F 30 31 32 33 34 35 36 37 3B 3C 3D 3E 3F 40 41 42 43 44/, # branch
    qw/58 59 5A 5B 5C 5D 5E 5F 60 61/, # arithmetic and logical
    'FE01', 'FE02', 'FE03', 'FE04', 'FE05' # compare
);

# Grab parameters.
my ($rules_fi <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	59468	59564	
==>ar
is used for the remaining delimiters.
If no escape char is specified for a given specified del <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	19954	20080	
==>th_name =~ /_delegate/;
        $defaulted = 1 if $class =~ /^[A-Z]/;
        # MMD method
        if ($method->{mmd} =~ /MMD_/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797444	797953	
==>" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 900,
                  "ARGS" => [
                              "p",
                              "kc",
                              "n"
                            ],
                  "BODY" => "#line 462 \"src/ops/set.ops\"\n    {{\@1}}->v <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	798348	798678	
==>" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 901,
                  "ARGS" => [
                              " <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	221	352	
==>($1 / $2) * 100)
		};
	}
}

print <<HEADING;
Name & Done & Total & Percent \\\\
\\hline
HEADING
foreach (@results) {
	prin <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9593	9713	
==>DBG>				$debug & 0x10
#DBG>			and	print STDERR "**At eof: aborting.\n";
				return(undef);
			};

#DBG>			$debug & 0 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9161	9276	
==>DBG>				$debug & 0x10
#DBG>			and	print STDERR "**At eof: aborting.\n";
				return(undef);
			};

#DBG>			$debug & 0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181015	181499	
==>lt",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 216,
                  "ARGS" => [
                              "ic",
                              "i",
                              "ic"
                            ],
                  " <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	1780	1996	
==>LINE__)

HEADER
    print ALL "# $infile\n";
    my %this_file_seen;
    # There is a chance that the same __LINE__ will reoccur if #line directives
    # are used.
    my %lines_seen;
    while (<IN>) {
	if (m/^\s*#\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23030	23220	
==>st = (opcode_t *)p->vtable->invoke(interpreter, p, dest);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25469	25659	
==>st = (opcode_t *)p->vtable->invoke(interpreter, p, dest);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	7449	7658	
==>, nongreedy variants of those
package Regex::Ops::Tree::multi_match;

sub minlen {
    my $op = shift;
    return 0 if $op->{args}->[0] <= 0;
    return $op->{args}->[0] * $op->{args}->[3]->minlen();
}

sub max <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	812	1113	
==>=> 'p',
    STRING_REG   => 's',
    STR_REG      => 's',
);

my $core_numops = scalar @{$Parrot::OpLib::core::ops};
my @core_opfunc = map { $_->func_name($trans) } @{$Parrot::OpLib::core::ops};
my %opcodes;

for ( @{$Parrot::OpLib::core::ops} ) {
    my $name = join( '_', $_->{NAME}, @{$_->{ARGS}}[0. <==
2	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1441	1592	
==>n
AppPublisherURL=http://www.parrotcode.org/
AppSupportURL=http://www.parrotcode.org/
AppUpdatesURL=http://www.parrotcode.org/
DefaultDirName={pf}\\parr <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	11326	11524	
==>contents
{
    my $self = shift;

    foreach my $file ($self->files)
    {
        $file->delete;
    }
    
    foreach my $dir ($self->directories)
    {
        $dir->delete;
    }
}

=back

=hea <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27298	27416	
==>ush @opcodes, new BranchOp( $parser,
        'result' => $l_continue,
    );
    push @opcodes, new LabelOp( $parser <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28177	28295	
==>ush @opcodes, new BranchOp( $parser,
        'result' => $l_continue,
    );
    push @opcodes, new LabelOp( $parser <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25062	25337	
==>"inline",
                  "CODE" => 33,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 436 \"src/ops/core.ops\"\n  opcode_t *dest;\n  PMC * const p = {{\@1}};\n  dest = {{^+2}};\n  interprete <==
2	/Users/nnunley/parrot/config/init/defaults.pm	5709	5875	
==>=> 0,
        as           => 'as',    # assembler

        cp    => '$(PERL) -MExtUtils::Command -e cp',
        lns   => $Config{lns},                          # sof <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	13400	13568	
==>unctions is a way
to provide a comment that refers to another file or test which must be
made to pass before this test can pass (or before an implementation
could be sta <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	494	608	
==>th ( qw(is isnt like) ) {
    no strict 'refs';

    *{"Scheme::Test::output_$meth"} = sub ($$;$) {
        my( $la <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1749	1857	
==>e()>

Implemented in subclasses to return the type of core created by the
transform. This default implementat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023399	1023510	
==>ocaltime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024249	1024360	
==>ocaltime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	35948	36092	
==>=> 74,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36206	36350	
==>=> 74,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611050	611220	
==>i",
                              "p"
                            ],
                  "BODY" => "#line 491 \"src/ops/object.ops\"\n    VTABLE_set_attr(interpreter, {{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9079	9209	
==>*$interp, PMC*$pmc$args)$semi
EOC
}

=item C<includes()>

Returns the C C<#include> for the header file of each of the PMC's
superc <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	5182	5325	
==>s'       => \$Type,
		   'help|h'       => \$Help,
		   'version|v'    => \$Version,
		  )) {
    show_help();
    exit(1);
}

if ($Const && !$n <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	40377	40507	
==>] =~ s/\n+$//s; # Kill any number of terminal newlines
        }
        
      } elsif($para_type eq 'Data') {
        DEBUG and p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2886	2974	
==>t_type, 'Jako::Construct::Type::Integer');
  $self->SYNTAX_ERROR("Can only do bitwise ops <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	29874	29983	
==>goto UF_DISPATCH_END
UF_DISPATCH_END:
	#print "Ending user function, stack depth now "
	#print I25
	#print "\\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	36931	37126	
==>@ell_content);
          last;
        }
      }
      
      
      # Now look for the "/" -- only in CHILDREN (not all underlings!)
      # And afterward, anything left in @ell_content will be t <==
2	/Users/nnunley/parrot/config/auto/isreg.pm	7	151	
==>ight (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/config/auto/isreg.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	310046	310165	
==>*command;\n\n    if (!(interpreter->pdb->state & PDB_BREAK)) {\n        interpreter->pdb->state |= PDB_BREAK;\n        i <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19088	19271	
==>do->{needstmt}) {
		my $false="0.0";
		feedme();
		my $which=$syms[CURR];
		my($result, $type, @code)=EXPRESSION();
		$false=qq{""} if $type eq "S";
		if ($which eq "while") {
			$_="@ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7215	7324	
==>"
print ucase$(s1$);" Upper"
print lcase$(s1$);" Lower"
a$="   Flush   "
print ">";ltrim$(a$)
print rtrim$(a$) <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18944	19053	
==>"
print ucase$(s1$);" Upper"
print lcase$(s1$);" Lower"
a$="   Flush   "
print ">";ltrim$(a$)
print rtrim$(a$) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2984	3120	
==>nd; but Pod::Simple v$Pod::Simple::VERSION doesn't implement UTF16 yet."
        );
        splice @_;
        push @_, undef;
        ne <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3382	3518	
==>nd; but Pod::Simple v$Pod::Simple::VERSION doesn't implement UTF16 yet."
        );
        splice @_;
        push @_, undef;
        ne <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79016	79122	
==>({{\@2}}) ? NULL : PMC_data({{\@2}}), name);\n  string_cstring_free(name);\n  if (p == NULL) {\n      const <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80537	80643	
==>({{\@2}}) ? NULL : PMC_data({{\@2}}), name);\n  string_cstring_free(name);\n  if (p == NULL) {\n      const <==
2	/Users/nnunley/parrot/config/auto/funcptr.pm	1196	1375	
==>argument.
END
            exit(-1);
        }
        cc_clean();
        print " (yes) " if $conf->options->get('verbose');
        $self->set_result('yes');
    }

    return $se <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	63433	63547	
==>e to construct closing tag to match: /%s/>

C<extract_tagged> matched the specified opening tag and tried to
modify <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	1182	1336	
==>mcs.h";
my $date = localtime(time);


opendir PARROT, "$parrot" or die "Supply Parrot directory as argument!";
my @ops_files = map { "$parrot/$_"} grep /\. <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	12540	12754	
==>THOR

Gregor N. Purdy E<lt>gregor@focusresearch.comE<gt>

=head1 COPYRIGHT

Copyright (C) 2002-2005, The Perl Foundation.

=head1 LICENSE

THIS PROGRAM IS FREE SOFTWARE. ITS USE IS SUBJECT TO THE SAME LICENSE AS
THE <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	7684	7843	
==>THOR

Gregor N. Purdy E<lt>gregor@focusresearch.comE<gt>

=head1 COPYRIGHT

Copyright (C) 2001-2005, The Perl Foundation.
This program is free software. It is s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	726	876	
==>t = $self->maptree($t, sub { delete shift->{nocheck} });
    return $t;
}

# Perform a few simple optimizations:
#
# 1. R(ST)    -> RST
# 2. aR|aS    - <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	1585	1688	
==>=~ m{^( 0x[0-9a-fA-F]+ )($|\W.*$)}x) {
      push @tokens, Jako::Token->new(
        $file, $line, 'lite <==
2	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	544	704	
==>ersions of Parrot, i.e. the
file F<DEVELOPING> exists. Releases include a non-dynamic fingerprint.c.

=cut


use strict;
use lib 'lib';
use Digest::Perl::MD5 qw( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178391	178827	
==>" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 213,
                  "ARGS" => [
                              "sc",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 240 \"s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15335	15503	
==>g;
      $x;
    } @_;
  } else { # return a single scalar
    ($x = ((@_ == 1) ? $_[0] : join '', @_)
    ) =~ s/([F\x00-\x1F\-\\\{\}\x7F-\xFF])/$Escape{$1}/g;  # ESCAP <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3124	3248	
==>tate much easier, and makes it clearer
into which context the data belongs.

For APIs purely internal to Parrot, try using C< <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	6072	6218	
==>rp_flags_TEST(interpreter, PARROT_DEBUG_FLAG)) {
            fprintf(stderr, "\t" INTVAL_FMT ": %s\n", i, argv[i]);
        }

        userargv->vt <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7329	7467	
==>nless defined $next;
        unless( $next->type eq 'text' ) {
          $self->unget_token($next);
          next;
        }
        DEBUG <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9574	9712	
==>nless defined $next;
        unless( $next->type eq 'text' ) {
          $self->unget_token($next);
          next;
        }
        DEBUG <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	60766	60906	
==>,$line);
			$item = new Parse::RecDescent::InterpLit($1,$lookahead,$line);
			$prod and $prod->additem($item)
			      or  _no_rule("interpol <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	702	817	
==>oper nesting

my $block_begin = qr{ ( ^ \.sub | ^push_eh) }smx;

my $block_end = qr{
  (
    ^\.end$
    |
    ^clea <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33601	33707	
==>>[0][0] eq '~Para') {
              DEBUG and print "Assimilating following ~Para content into $over_type i <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35414	35520	
==>>[0][0] eq '~Para') {
              DEBUG and print "Assimilating following ~Para content into $over_type i <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	45	143	
==>ree ();
use base 'Regex::CodeGen';
use strict;

my $fail_label = Regex::Ops::Tree::mark('FAIL');

s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	43050	43198	
==>over the lines, except the first (#2)
    
    #next unless $p->[$i]   =~ m{^#:([ \^\/\%]*)\n?$}s
    #        and $p->[$i-1] !~ m{^#:[ \^\/\%]*\n?$} <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5838	5944	
==>ANCH_$_:\n";
			}
			while($_=pop(@{$elsestack->{$elsetag}})) {
				push @{$code{$seg}->{code}}, "ELSEBRANC <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8184	8287	
==>ANCH_$_:\n";
		}
		while($_=pop(@{$elsestack->{$elsetag}})) {
			push @{$code{$seg}->{code}}, "ELSEBRANC <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	12497	12636	
==>als
        elsif ($op->full_name eq 'if_p_ic') {
            $jit_func = "Parrot_jit_vtable_ifp_op";
            $opbody =~ /vtable->(\w+)/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047723	1047988	
==>P" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TY <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048646	1048911	
==>P" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TY <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	3160	3324	
==>k 'V16', substr $message,$i*64,64;	
		($a,$b,$c,$d) = round($a,$b,$c,$d,@X);
	}
	pack 'V4',$a,$b,$c,$d;
}


sub md5_hex(@) {  
  unpack 'H*', &md5;
}

sub md5_base64 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367824	367920	
==>.ops\"\n  {{\@1}} = PIO_reads(interpreter, PIO_STDIN(interpreter), (size_t){{\@2}});\n  {{+=3}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368616	368712	
==>.ops\"\n  {{\@1}} = PIO_reads(interpreter, PIO_STDIN(interpreter), (size_t){{\@2}});\n  {{+=3}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	11059	11213	
==>Win line endings
            convert_line_endings( $expected );

            # set up default description
            unless ( $desc ) {
               (un <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	16544	16698	
==>Win line endings
            convert_line_endings( $expected );

            # set up default description
            unless ( $desc ) {
               (un <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10543	10821	
==>kupU($idf);
            if ( defined $defn ) {

                # upvariable
                if ( scalar( @{$var} ) ) {
                    my $result = new_tmp( $parser, 'pmc' );
                    push @opcodes,
                        new LocalDir( $parser, 'result' = <==
2	/Users/nnunley/parrot/languages/regex/regex.pl	885	1162	
==>eq '-o') {
        $output = shift;
    } elsif (! defined $expr) {
        $expr = $_;
    } elsif (! defined $operation) {
        $operation = $_;
    } else {
        die "too many args!";
    }
}

if (! defined $expr && ! defined $expr_file) {
    die "need expression!";
} <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	19236	19354	
==>truct() in a subclass prohibited.
    User definition of accessor allowed.
    Treatment of '*' in element types correc <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	2519	2623	
==>->whoami;
    VTABLE_set_integer_keyed_str(interp, registry, key, pmc_id);
}

void
Parrot_register_core_p <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22073	22206	
==>$_[0];
	bless 
	{
		"code"      => $_[1],
		"lookahead" => $_[2],
		"line"      => $_[3],
		"name"      => $_[4],
	}, $class;
}

sub c <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10296	10415	
==>.

=cut

sub content
{
  my $self = shift; # Required: Jako::Construct::Block

  confess "No block!" unless defined $sel <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	6343	6521	
==>$api, $API{$api};
    }
}

if (keys %DataB) {
    printf "--- Uninitialized Modifiable Data: %d ---\n", scalar keys %DataB;
    for my $api (sort keys %DataB) {
	printf "%s\t%s\tU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688134	688253	
==>c/ops/pmc.ops\"\n   {{\@1}}->vtable->delprop(interpreter, {{\@1}}, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688906	689025	
==>c/ops/pmc.ops\"\n   {{\@1}}->vtable->delprop(interpreter, {{\@1}}, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5833	5946	
==>y @rel_paths = ();
    
    if ( $source->relative_path_is_directory($rel_path) )
    {
        my $dir = $source- <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	7357	7467	
==>ay, implicit class name:
    struct( ELEMENT_NAME => ELEMENT_TYPE, ... );

    # Declare struct at compile time <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	2311	2434	
==>a->set('linkflags', $linkflags);
        print " (no) " if $verbose;
        $self->set_result('no');
    }

    return $sel <==
2	/Users/nnunley/parrot/config/auto/readline.pm	2111	2234	
==>a->set('linkflags', $linkflags);
        print " (no) " if $verbose;
        $self->set_result('no');
    }

    return $sel <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7093	7337	
==>int "Linearized ", scalar(@to_unget),
           " tokens, but it was too long, so nevermind.\n";
        }
        $self->unget_token(@to_unget);

      } elsif ($tagname eq 'Data') {
        my $next = $self->get_token;
        next unless def <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	152	324	
==>terpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package J <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2806	2900	
==>_is($target, $pattern, $description, @todo)>

Runs the target string against the Perl 6 pattern <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25107	25253	
==>tep") {
		($stepexpr, $type, @stepcode)=EXPRESSION();
	} else {
		$stepexpr="1.0";
	}
	$main::code{$main::seg}->{declarations}->{"FORLOOP_END_$forl <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	1874	2104	
==>for_S',        # Whether to map S<...>'s to \xA0 characters
  'source_filename',   # Filename of the source, for use in warnings
  'source_dead',       # Whether to consider this parser's source dead

  'output_fh',         # The f <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	16514	16671	
==>pe);
  while(@$paras) {
    last if @$paras == 1 and
      ( $paras->[0][0] eq '=over' or $paras->[0][0] eq '~Verbatim'
        or $paras->[0][0] eq '=item' ) <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	2663	2789	
==>def,
    run_bench    => [],
    skip_bench   => [],
);

# Read Command Line Options
GetOptions(
    'conf=s'       => \$cfg{co <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	7575	7723	
==>f->path, $name);
}

=item C<directory_with_name($name)>

Returns a directory with the specified name in the directory.

=cut

sub directory_with_name <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	47116	47232	
==>_parse("a positive lookahead",$aftererror,$line);
			$lookahead = $lookahead ? $lookahead : 1;
			$lookaheadspec .= $ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15352	15483	
==>node) = @_;

  _num_arg ($node, 2, 'set-car!');

  my $return = $self->_generate (_get_arg($node,1));
  die "set-car!: Element not p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036960	1037266	
==>x_name);\n    }\n    {{\@1}} = result;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stor <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035796	1036098	
==>x_name);\n    }\n    {{\@1}} = result;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
2	/Users/nnunley/parrot/lib/Test/More.pm	6300	6486	
==>e.

For example:

    ok( $exp{9} == 81,                   'simple exponential' );
    ok( Film->can('db_Main'),            'set_db()' );
    ok( $p->tests == 4,                  'saw tes <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	9203	9481	
==>{
        # R<min,max>: R is guaranteed to have 1/max as many available
        # as the whole thing does. If max is unknown, we cannot
        # guarantee anything.
        my $R = $t->{args}->[3];
        my $max = $t->maxlen();
        if (!defined($max) || $max < 0) { $guara <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	27546	27655	
==>rformance on
# repeated calls, so it only works under Perl 5.005 or later.

	$extract_head = gen_extract_tagge <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	3862	4083	
==>RECATED/);

    return $name;
}

=item C<func_name()>

The same as C<full_name()>, but with 'C<Parrot_>' prefixed.

=cut

sub func_name
{
    my ($self, $trans) = @_;

    return $trans->prefix . $self->full_name;
}

=item <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	9865	10053	
==>tpos,		# PREFIX
		$opentagpos,  $textpos-$opentagpos,		# OPENING TAG
		$textpos,     $parapos-$textpos,		# TEXT
		$parapos,     0,				# NO CLOSING TAG
		$parapos,     length($$textref)-$par <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	6745	6891	
==>"," : "";
    $opname = "PARROT_OP_$opname$comma";

    printf OUT "\t%-30s\t/* %4d */\n", $opname, $n;
}

print OUT <<END_C;
} parrot_opcode_enums <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	7518	7631	
==>d

    .local pmc result
    result = new 'APLVector'

    iter_two = new .Iterator, op2
loop_two:
    unless iter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	97735	98197	
==>E" => "bnot",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 121,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 91 \"src/ops/bit.ops\"\n  {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	99134	99400	
==>E" => "bnot",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 12 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	49760	49900	
==>>>".  Back pos up.
        DEBUG > 4 and print " And that's more than we needed to close complex.\n";
        pos($para) = pos($para) - lengt <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028047	1028155	
==>= {{^+2}};\n  if ({{\@1}} < 0) {\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back in t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028898	1029006	
==>= {{^+2}};\n  if ({{\@1}} < 0) {\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back in t <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	333	469	
==>rot's configuration system.

=head2 Class Methods

=over

=cut

package Parrot::Docs::Section::Config;

use strict;
use warnings;

use ba <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	16928	17058	
==>rs (bullets
    #   and numbers) do.

# TODO: winge about many kinds of directives in non-resolving =for regions?
# TODO: many?  li <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	5160	5330	
==>_sfio' => undef,
             'i_sgtty' => undef,
             'i_shadow' => undef,
             'i_signal' => 'define',
             'i_socks' => undef,
             'i_s <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	17572	17723	
==>my (@mmds, $found);
    for my $super_mmd (@{ $self->{super_mmd} }) {
        my ($super, $variants);
        $found = 0;
        @mmds = ();
        wh <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	2293	2468	
==>set(cc_shared => '-KPIC');
        }
        $conf->data->deltrigger("gccversion", "solaris_cc_shared");
    };
    $conf->data->settrigger("gccversion", "solaris_cc_shared", $ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9262	9386	
==>STEMP0}
${INS} = concat "\n"

# Decrement stack height.
dec stack_depth
PIR
	}

	return $pir;
}

# Pre and post call hooks.
s <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6780	6904	
==>STEMP0}
${INS} = concat "\n"

# Decrement stack height.
dec stack_depth
PIR
	}

	return $pir;
}

# Pre and post call hooks.
s <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	1061	1239	
==>my $self = shift;

    return $self->{result};
}

=item * C<set_result()>

Accepts a scalar values and assigns it to the inheriting classes C<$result>
variable.  Returns the inher <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	3478	3566	
==>andler;
  
);

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563402	563684	
==>ME" => "addmethod",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564299	564581	
==>ME" => "addmethod",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	837	985	
==>reeOptimize->new();
        $tree = $opt1->optimize_tree($tree, $ctx);
    }

    my $rewrite = Regex::Rewrite->new(%options);
    my $code = $rewrit <==
2	/Users/nnunley/parrot/config/auto/pack.pm	798	925	
==>oreach ('intvalsize', 'opcode_t_size') {
        my $which = $_ eq 'intvalsize' ? 'packtype_i' : 'packtype_op';
        my $size <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104154	104496	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	2570	2707	
==>q ">" or $cur eq "<" or $cur eq "=") { 
		append;
		if ($next eq "=" or $next eq ">") {
			fetch;
			append;
		}
		emit("Compare");
		fetc <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	1848	2098	
==>? # optional default value

        (\+?)             # is this repeating?

        (\??)             # optional closing ?
    }xo;
    
    while ($usage) {
        $usage =~ s/^\s+//;
        next unless $usage;
        die "invalid usage: '$usage'\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327052	327136	
==>ine 154 \"src/ops/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327854	327938	
==>ine 154 \"src/ops/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	6646	6860	
==>urn all
the files with no suffix.

=cut

sub files_with_suffix
{
    my $self = shift;
    my $suffix = shift;
    
    return unless defined $suffix;
    
    my $recursive = shift;
    my $ignore = shift;
    my @ <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5741	5866	
==>re can be many libs
        my %libs = %{ $class->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There sho <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5952	6077	
==>re can be many libs
        my %libs = %{ $class->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There sho <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	1592	1763	
==>undef local $/;<$ffh>} );
        close $ffh;

	# Only generate output test file if we can find tests...
        my $output;
        eval {
            $output = format_tes <==
2	/Users/nnunley/parrot/config/auto/aio.pm	521	670	
==>t, shift);

    my $test;
    my $verbose = $conf->options->get('verbose');
    my $libs    = $conf->data->get('libs');
    $conf->data->add(' ', libs <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	96	194	
==>d  $

package Regex::CodeGen::Re;
use Regex::RegexOps ();
use base 'Regex::CodeGen';
use strict;

s <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1536	1638	
==>um"
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Emit pop code.
${INS} = concat ${ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3246	3348	
==>um"
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Emit pop code.
${INS} = concat ${ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1029	1191	
==>{_G}, \@opcodes ];
}

sub get_cond {
    my ( $parser, $expr )    = @_;
    my ( $defn,   $opcodes ) = @{$expr};
    if ( scalar( @{$opcodes} ) and $opcodes- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113400	113685	
==>0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114138	114423	
==>0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
2	/Users/nnunley/parrot/languages/regex/test.pl	3525	3669	
==>->output_rule(*PIR, '_regex', $tree, $ctx, DEBUG => $DEBUG);
    }

    close PIR;
}

sub generate_pbc {
    my ($pir, $pbc) = @_;
    my $status <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121764	121995	
==>DE" => 151,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 248 \"src/ops/bit.ops\"\n  /*\n   * lvalue casts are ev <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	13212	13310	
==><tmpl_var name=percentage>&nbsp;%&nbsp;ok</td>
	    <tmpl_loop name=summary>
	      <td class="left <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954274	954395	
==>ps/string.ops\"\n  {{\@1}} = Parrot_encoding_number_of_str(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955065	955186	
==>ps/string.ops\"\n  {{\@1}} = Parrot_encoding_number_of_str(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	7614	7799	
==>dump/;

    my $vtd = open_file( ">", $dump );

    my %vtable = (
        flags   => {},
        pre     => '',
        post    => '',
    );
    my %meth_hash;
    my $i = 0;
    forea <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5825	5933	
==>y $pir = '';

	# Branches mean we need to deal with basic block-ish stuff. If the branch
	# did not pop anyth <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3763	3871	
==>y $pir = '';

	# Branches mean we need to deal with basic block-ish stuff. If the branch
	# did not pop anyth <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	2555	2690	
==>llowed by a list of C<key => value> pairs and
returns a L<Parrot::Configure::Data> object.

=cut

sub add
{
    my $self = shift;
    my <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	5118	5281	
==>e + 1 \n";
        $code .= "  pir .= \$S0 \n";
        $code .= emit("a_$name = \$P%0", "r_$name");
        
        # convert the argument, if necessary
        m <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	11398	11522	
==>tsubrules();
	my $next;
	foreach $next ( @left )
	{
		next unless defined $rules->{$next}; # SKIP NON-EXISTENT RULES
		return <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615784	616032	
==>" => [
                              "i",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 508 \"src/ops/object.ops\"\n    opcode_t *next = {{^+4}};\n    INTVAL o <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2129	2256	
==>s;
    while (1) {
        last if UNIVERSAL::isa("${class}::$name", 'Regex::Ops::Tree');
        $class =~ s/::\w+$// or confes <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6953	7072	
==>ode generation failed ($?)\n";
    }
}

sub compile {
    my ($src_stem, $dest_stem) = @_;

    $dest_stem ||= $src_stem <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7164	7283	
==>ode generation failed ($?)\n";
    }
}

sub compile {
    my ($src_stem, $dest_stem) = @_;

    $dest_stem ||= $src_stem <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819653	819750	
==>if (!entry) {\n    internal_exception(99, \"Stack Depth wrong\");\n  }\n  {{\@1}} = get_entry_type <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820613	820710	
==>if (!entry) {\n    internal_exception(99, \"Stack Depth wrong\");\n  }\n  {{\@1}} = get_entry_type <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	2814	2958	
==>_format ]
Portable frontend for nm(1); by default lists all the code and data symbols
in the object or archive files.  The options can be used to <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11213	11313	
==>g tag...
	return(scalar @args, @args);
}
sub optype_of {
	my($func, $extra)=@_;
	if ($extra and $extr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657242	657382	
==>ic"
                            ],
                  "BODY" => "#line 324 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}} <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	38058	38160	
==>various options that can be specified are:

=over 4

=item C<reject =E<gt> $listref>

The list referenc <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	36352	36450	
==>er is thread-safe.  The test
number is shared amongst all threads.  This means if one thread sets
t <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	25332	25475	
==>tring = "$t = ";
	}
	if (!nci_method($attr)) {	# a method function
	    print <<EOC;
	P2 = $1   # obj '$obj' attr '$attr'
	${ret_string}$func($a <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14972	15077	
==>ld not happen (flo)"
i=55
if i then print "This is true" else print "Oops (flo)"

' Passing arrays (expect <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83274	83663	
==>ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 104,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 1201 \"src/ops/core.ops\"\n  PM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	245192	245771	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp_str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 285,
                  "ARGS" => [
                              "i",
                              "p",
                              "p"
                            ],
                  "B <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	890	987	
==>mpiler> argument pair, the harness will run the tests
with C<perl>.  If you I<do> pass the pair, t <==
2	/Users/nnunley/parrot/config/auto/jit.pm	994	1145	
==>(!defined $osname) {
        ($osname, $cpuarch) = ($cpuarch, q{});
    }

    # This was added to convert 9000/800 to 9000_800 on HP-UX
    $cpuarch =~ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	365	545	
==>(Jako::Construct::Expression);

sub new
{
  my $class = shift;
  my ($left, $op, $right);

  return bless {
    LEFT  => $left,
    OP    => $op,
    RIGHT => $right,
  }, $class;
} <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	988	1114	
==>mal:
  if($in =~ m/^(0[0-7]*)$/s ) {
    $in = oct $in;
  } elsif($in =~ m/^0x([0-9a-fA-F]+)$/s ) {
    $in = hex $1;
  } # els <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2347	2473	
==>mal:
  if($in =~ m/^(0[0-7]*)$/s ) {
    $in = oct $in;
  } elsif($in =~ m/^0x([0-9a-fA-F]+)$/s ) {
    $in = hex $1;
  } # els <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	3659	3790	
==>ddot'   , 183,
 'cedil'    , 184,
 'sup1'     , 185,
 'ordm'     , 186,
 'raquo'    , 187,
 'frac14'   , 188,
 'frac12'   , 189,
 'f <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27257	27364	
==>slate_code, $mv, "pre-translate for $rule->{'name'}");

		# If we have PIR for the instruction, just take th <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34396	34503	
==>slate_code, $mv, "pre-translate for $rule->{'name'}");

		# If we have PIR for the instruction, just take th <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	30083	30212	
==>t' => $lbl_blk,
    );
    push @opcodes, new LabelOp( $parser,
        'arg1' => $lbl_or,
    );
    push @opcodes, new Bran <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6166	6283	
==>by C<$trigger>

Accepts a key name & a trigger name and returns a L<Parrot::Configure::Data>
object.

=cut

sub deltri <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033426	1033521	
==>r, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    VTABLE_set_pmc_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034524	1034619	
==>r, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    VTABLE_set_pmc_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6291	6382	
==>tack_depth
goto POST_BRANCH_NOT_switch_${CURIC}

POST_BRANCH_switch_${CURIC}:
i = elements P <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4229	4320	
==>tack_depth
goto POST_BRANCH_NOT_switch_${CURIC}

POST_BRANCH_switch_${CURIC}:
i = elements P <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	3356	3552	
==>ard_off = $2;

	    # Substitute constant branch values
	    if($forward_off =~ /\@(\d+)/){
		$forward_off = $args[$1 - 1]
		    if $op->arg_type($1) eq 'ic';
	    }

	    if($forward_off =~ /^-?\d <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	1525	1692	
==>_ }
    qw[
      sample=samp
      definition=dfn
      kbd=keyboard
      variable=var
      citation=cite
      abbreviation=abbr
      acronym=acronym
      subscri <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	8233	8361	
==>nd opening tag: /$ldel/", pos $$textref;
		goto failed;
	}

	$textpos = pos($$textref);

	if (!defined $rdel)
	{
		$rdelspec = $& <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	32554	32924	
==>vtables{$c};
    }
    my $cc;
    if ($c =~ /^\d+$/) {	# MMD
	$cc = "-$c";
    }
    else {
	$cc = qq!"$c"!;
    }
    print <<EOC;
	$attr = getattribute $obj, $cc $cmt
EOC
    push @stack, ["obj $obj attr $a", $attr, 'P'];
}

sub STORE_ATTR
{
    my ($n, $c, $cmt) = @_;
    my $obj = pop @stack;  # object
    my $val = promote(pop @stack);
    if ($vtables{$c}) {
	$c <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	1985	2089	
==>o carefully contain the effect so that only the Parrot
itself sees those shortened definitions, the defin <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	10837	10967	
==>}

    close $OPS or die "Could not close ops file '$file' ($!)!";

    return;
}

# Extends a string containing an or expression " <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	10297	10399	
==>ollision with " . $files_in_dir_nocase{$dirname}{lc($filename)});
        }
        $files_in_dir_nocas <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	3292	3435	
==>ymb, $klass, $type, $subtype, $name ) = @_;
        $self->{symbol}  = $symb;
        $self->{class}   = $klass;
        $self->{type}    = $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032650	1032925	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_lex",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033747	1034022	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_lex",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ] <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	2912	3029	
==>ion:

    pmclass PMCNAME [flags] {

where C<flags> are:

=over 4

=item C<extends PMCPARENT>

All methods not defined <==
2	/Users/nnunley/parrot/lib/Test/More.pm	7817	7916	
==>testing for (beyond the name), but is() and
isnt() know what the test was and why it failed.  For ex <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	8711	8833	
==>TDERR             or die "Can't close    stderr" if $err;

    open  STDOUT, ">&OLDOUT" or die "Can't restore  stdout" if $ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8243	8352	
==>TDERR or die "Can't close    stderr" if $err;

    open STDOUT, ">&OLDOUT" or die "Can't restore  stdout" if $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470670	471093	
==>se_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 540,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ] <==
2	/Users/nnunley/parrot/config/auto/pack.pm	2122	2304	
==>numvalsize') == 12 ? 'D' : 'd')
    );

    #
    # Find out what integer constant type we can use
    # for pointers.
    #

    if ($intsize == $ptrsize) {
        $conf->data->set( <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4355	4456	
==>here_str) = @_;

    return "return $where_str";
}

=item C<restart_address($address)>

Implemented in <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	26486	26653	
==>rn$rdel" and $@)
	{
		Parse::RecDescent::_warn(3, "Token pattern \"m$ldel$pattern$rdel\"
					     may not be a valid regular expression",
					   $_[5]);
		$@ =~ s/ at <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719800	719908	
==>"\n  PMC * const io = {{\@1}};\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721000	721108	
==>"\n  PMC * const io = {{\@1}};\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954272	954359	
==>/ops/string.ops\"\n  {{\@1}} = Parrot_encoding_number_of_str(interpreter, {{\@2}});\n  { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955063	955150	
==>/ops/string.ops\"\n  {{\@1}} = Parrot_encoding_number_of_str(interpreter, {{\@2}});\n  { <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	3999	4158	
==>g($type, $value, $op)>

Implemented in subclasses to return the C code for the specified op
argument type and value. C<$op> is an instance of C<Parrot::Op>.

=i <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	864	983	
==>) returns Bool is export {
    Test::proclaim($cond, $desc, $todo, :$depends);
}

## is

sub is (Str $got, Str $expected <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	8701	8986	
==>ile = "src/ops/ops.num";
  }

  my ($name, $number, $prev);

  if (!defined $ParrotOps::max_op_num) {
    $ParrotOps::max_op_num = 0;
  }

  local *OP;
  open OP, "< $file" or die "Can't open $file, error $!";
  $prev = -1;

  while (<OP>) {
    chomp;
    s/#.*$//;
    s/\s*$//;
    s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208385	208571	
==>et_number(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209326	209512	
==>et_number(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	8425	8986	
==>> aop('setend', [ $group, -2 ]),
                        aop('goto', [ $R_back ]),
               $next =>

              );

    return ($back, @ops);
}

# Cost: 4 + 2ff (insanely high!) if we need to check the length
#       3 + 2ff otherwise
# 1 of that is a goto that could be eliminated pretty easily.
sub rewrite_match {
    my ($self, $op, $char, $lastback) = @_;

    my $back = $self->genlabel('undo_match');
    my $next = $self->genlabel('after_match');

    my @ops;
    push @ops, aop('check', [ 1, $lastback ])
      unless ($op->{nocheck});

    m <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	3503	3629	
==>subclasses to return the C code for the core's
init function. C<$base> is the same as for C<run_core_func_decl()>.

=item C<ini <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	1595	1719	
==>ps to the following address.
 5. Eliminate unused labels.

TODO:

 1. I would like to optimize

     B1: sub x, 1
         go <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	5342	5503	
==>for my $jumps (@onlab) {
		push @{$code{$seg}->{code}}, "\tne $result, $i.0, ON_${ons}_$i\n";
		if ($branch eq "gosub") {
			push @{$code{$seg}->{code}}, qq{\tbsr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	31388	31699	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "result_info",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	816473	816695	
==>" => "clearn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 923,
                  "ARGS" => [],
                  "BODY" => <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	7761	7959	
==>od'),
            $self->c_source_item('', 'cpu_dep'),
        ),
        $self->new_group(
            'Debugging', 
            '',
            $self->c_item(
                '', 
                ' <==
2	/Users/nnunley/parrot/Configure.pl	3257	3395	
==>-config=none to disable the autodetect feature. Parrot will then be
build without ICU.

B<Note:> If you specify another ICU option than --i <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39635	39733	
==>p_peek_char,
  'eof-object?' => \&_op_eof_object_p,
  'char-ready?' => \&_op_char_ready_p,
  'write <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10304	10444	
==>cut

sub directory_with_relative_path
{
    my $self = shift;
    my $path = $self->path_for_directory_with_relative_path(shift);
    
    re <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7753	7912	
==>im para at line ${$self}{'line_count'}\n";
          push @{$paras->[-1]}, $line;
        } else {
          ++$self->{'pod_para_count'};
          $self->_pond <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4542	4647	
==>$self->bare_output;
  return
   $self->do_beginning && $self->do_middle && $self->do_end;
}


#~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3173	3277	
==>$self->bare_output;
  return
   $self->do_beginning && $self->do_middle && $self->do_end;
}

#~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	4581	4713	
==>output with the expected result it true.

=item C<c_output_like($code, $expected, $description)>

Compiles and runs the C code, passi <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	1857	2035	
==>r->{"const$_"}] = "const$_";
            #}
        } else {
            $sorted_pmcs[$n++] = $_;
        }
    }
    ## print "***\n", join(' ', @sorted_pmcs), "\n";
    @sorted_ <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	2409	2550	
==>dump;
  #print "$dump\n";
  #exit 0;
}

gen_code();


# object part of this module
sub new {
	my $class = shift;
	bless {}, ref($class) || $cl <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1469	1614	
==>lass;

    return $self;
}

=back

=head3 Object Methods

=over 4

=item * C<data()>

Provides access to a L<Parrot::Configure::Data> object inten <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3821	3961	
==>of using
die() and warn().

=cut

sub get_symbol
{
  my $self = shift; # Required: Jako::Construct::Block
  my $name = shift; # Required: str <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	709560	709934	
==>> "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 796,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	13354	13524	
==>m/\G($pre)/gc)
	{
		_failmsg qq{Did not match prefix /$pre/ at"} .
			    substr($$textref,pos($$textref),20) .
			    q{..."},
		         pos $$textref;
		return; 
	}
	my <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2930	3047	
==>s line in subroutine one should be skipped"
Label2:
   PRINT "4 back in subroutine one"
   RETURN Label1
Sub2:
   PRIN <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16897	17014	
==>s line in subroutine one should be skipped"
Label2:
   PRINT "4 back in subroutine one"
   RETURN Label1
Sub2:
   PRIN <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6087	6291	
==>Parrot_load_bytecode(interpreter, {{\@1}});\n    {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6753	6957	
==>Parrot_load_bytecode(interpreter, {{\@1}});\n    {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	40863	40974	
==>$para->[0] =~ s/^[~=]//s;

      DEBUG and print "\n", pretty($para), "\n";

      # traverse the treelet (which <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	1757	1871	
==>s not a func
    @funcs = grep /^\S/, @funcs;

    # Typedefs and structs are no good
    @funcs = grep !/^(typedef <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436239	436527	
==>DE" => 500,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 94 \"src/ops/math.ops\"\n  {{\@2}} = mmd_ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	946	1057	
==>ft || '';
    my $resources = shift || '';
    
    <<"HEADER";
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Tran <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	7203	7390	
==>a name="), esc($name), qq("\n>);
    
    } 
    else 
    {
        print {$self->{'output_fh'}} "<a\n>";
    }
    
    $self->unget_token(@to_unget);
}

=item C<process_data_start_token <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	685	840	
==>in $self\n";
            return $defn;
        }
        else {
            my $parser = $self->{parser};
            for my $symbtab ( @{ $parser->YYD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835740	835835	
==>erpreter, &CONTEXT(interpreter->ctx)->user_stack, string_copy(interpreter, {{\@1}}), STACK_ENTRY <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836493	836588	
==>erpreter, &CONTEXT(interpreter->ctx)->user_stack, string_copy(interpreter, {{\@1}}), STACK_ENTRY <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	7708	7870	
==>eedy, $R) = @{ $op->{args} };
    my $sublen = $R->maxlen();
    if (defined($max) && $max !~ /^-?\d+/) {
        return undef;
    } elsif (!defined($max) || $max <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8827	8915	
==>ct PackFile_FixupEntry *fe = PackFile_find_fixup_entry(interpreter,\n\t    enum_fixup_lab <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9943	10031	
==>ct PackFile_FixupEntry *fe = PackFile_find_fixup_entry(interpreter,\n\t    enum_fixup_lab <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61646	61788	
==>gco
				and do { ($code) = extract_bracketed($grammar,'<');
					 $code
				       }
		       or $grammar =~ m/$SUBRULE/gco
				and $code = $1) <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	7059	7258	
==>ck[-1]->[0] ne "(");
			pop @stack;
			next;
		}

		if (	$type eq "STRING" or
			not precedence($sym, exists $expr[$i+1]?$expr[$i+1]->[0]:"NOTARR")) {
			push @stream, $item;  # Operands, etc..
			nex <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095972	1096278	
==>al" => 1,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "classname",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" = <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	4475	4687	
==>cript',
        var     => '__read',
    );
    
    my $code = "";
    for my $i (0..$#args)
    {
        my $arg  = $args[$i];
        my $name = $arg->{name};
        
        $code .= emit("  .local pmc a_$na <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2513	2618	
==>matches the C<$expected>
parameter.  Note that C<$expected> is a I<Perl 5> pattern.

=cut

sub p6rule_like <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10649	10746	
==>~ tr/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
        $section = $self->unicode_escape_url($sectio <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4030	4123	
==>~ tr/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
    $section = $self->unicode_escape_url($sectio <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	131	235	
==>RT_ATTRS);
$VERSION = '2.02';
BEGIN {
  @ISA = ('Pod::Simple');
  *DEBUG = \&Pod::Simple::DEBUG unless de <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	132	236	
==>RT_ATTRS);
$VERSION = '2.02';
BEGIN {
  @ISA = ('Pod::Simple');
  *DEBUG = \&Pod::Simple::DEBUG unless de <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	22003	22140	
==>d, $example_f, @options );
            }
            else {
                fail( defined $extension, "no extension recognized for $exampl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	188773	188881	
==>" => "#line 299 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_CMP) < 0) {\n <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	44126	44288	
==>{
        $replacer = Pod::Escapes::e2char($content);
        DEBUG > 1 and print " Replacing E<$content> with $replacer\n";
      }

      splice(@$treelet, $i, 1 <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	20007	20159	
==>ass =~ /^[A-Z]/;
        # MMD method
        if ($method->{mmd} =~ /MMD_/ && !$defaulted) {
            my ($func, $left, $right);
            $func = $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	13207	13378	
==>dent;
    if (ref $ref) {
        my ($name, @children) = @$ref;
        print $name, "\n";
        dump_ref($_, $indent . "  ") foreach (@children);
    } else {
        p <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8289	8411	
==>LVector'
 
    .local int pos
    pos = 0
    .local float value_at
    .local int not_there
    not_there = op1
    inc no <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	568	688	
==>2c.pl -c src/pmc/foo.pmc ...

Create fooX.c and pmc_fooX.h from fooX.dump files, also create libfoo.c
containing the init <==
2	/Users/nnunley/parrot/config/auto/gc.pm	2124	2312	
==>lea\$(O):	\$(GENERAL_H_FILES) \$(SRC_DIR)/res_lea.c
EOF
            TEMP_gc_o => "\$(SRC_DIR)/res_lea\$(O)",
            gc_flag   => '-DGC_IS_MALLOC',
        );
    } else {
        $gc = <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7483	7615	
==>pat(q{'"}) . '|[^>])*>'; }
	$@ = undef;

	my @match = _match_tagged($textref, $pre, $ldel, $rdel, $omode, $bad, $ignore);

	return _f <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	13981	14093	
==>est aproximates
it (like "e").  You may find this useful if you are rendering
POD in a format that you think deal <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	21394	21515	
==>fies sutff.
        $file =~ s/\.c$/.def/;
        $fh = open_file( ">", $file );
        print $fh "LIBRARY $pmcname\nEXP <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2423	2599	
==>nd maybe shouldn't use eval_ok()";
        &Test::ok.goto($result, $desc, :$todo, :$depends);
    }
}

## eval_is

sub eval_is (Str $code, Str $expected, Str $desc?, :$todo, :$d <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10118	10244	
==>state $$stack[-1][0].\n";

			pop(@$stack);
		}

			@$stack
		or	do {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR " <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9667	9784	
==>state $$stack[-1][0].\n";

			pop(@$stack);
		}

			@$stack
		or	do {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR " <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23878	24023	
==>text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;
		') . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) .'

		$_tok = un <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	402	514	
==>RIPTION

This script checks that the C source code conforms to the standards in
PDD 7.

To run it on all the C so <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	7548	7696	
==>'::' . $self->{"name"} unless $parser->{saving};

	my $code =
'
# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub ' . $namespace . ': <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10181	10299	
==>k
		or	do {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**No state left on stack: aborting.\n";

			return(un <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9725	9837	
==>k
		or	do {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**No state left on stack: aborting.\n";

			return(un <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	14108	14244	
==>op code yet for $sym\n";
				} else {
					my($code, $return)=&{$opsubs{$sym}}($a1, $a2, "\$$optype$retcount", "", $ot1, $ot2);
					($op <==
2	/Users/nnunley/parrot/lib/Test/More.pm	20773	20879	
==>ock must have
the label C<SKIP>, or Test::More can't work its magic.

You don't skip tests which are failin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	622141	622318	
==>_OP_get_params_pc);\n    ((void**)cur_opcode)[1] = mic->m.sig;\n    {{+=0}};\n",
                  "LABELS" => [
                                0
                              ] <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2973	3444	
==>ed $source->[0] and $source->[0] !~ /\S/);
    pop @$source while (defined $source->[-1] and $source->[-1] !~ /\S/);
}


sub check_returns {
    my ($file, $source) = @_;

    my $line = 0;
    foreach (@$source) {
        $line++;
        next unless $_;

        if (/return\(/) {
            warning($file, $line, "possible use of return(foo); rather than return foo;");
        }
    }
}


sub check_line_length {
    my ($file, $source) = @_;

    my $line = 0;
    f <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1568	1714	
==>y $self = shift;

    if (@_)
    {
        $self->{ARGS} = [ @_ ];
    }
    else
    {
        return $self->{ARGS};
    }
}

=item C<arg($index) <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1177	1323	
==>y $self = shift;

    if (@_)
    {
        $self->{ARGS} = [ @_ ];
    }
    else
    {
        return $self->{ARGS};
    }
}

=item C<arg($index) <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	2801	3004	
==>ults will get overridden.
my %options = ( buildprefix => '',
                prefix      => '/usr',
                destdir     => '',
                exec_prefix => '/usr',
                bindir      => <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2465	2559	
==>ined $formal_arg_type;

    $self->INTERNAL_ERROR("Can't determine type of actual argument (%s) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2165	2259	
==>ined $formal_arg_type;

    $self->INTERNAL_ERROR("Can't determine type of actual argument (%s) <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	4439	4539	
==>_add_inst ('', 'set',[$return,$value]);
    }
    elsif ($value =~ /^[-+]?((\d+\.\d*)|(\.d+))([eE][-+ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3458	3555	
==>_add_inst ('', 'set', [$return,$value]);
  }
  elsif ($value =~ /^[-+]?((\d+\.\d*)|(\.d+))([eE][-+ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	5088	5288	
==>us($op, $R, @rest);
        }
    } else {
        if ($greedy) {
            return $self->rewrite_greedy_range($op, $R, $min, $max, @rest);
        } else {
            return $self->rewrite_nongreed <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7903	8000	
==>{STEMP0} = concat ${STEMP1}

# Put it in the parameter register list.
${PARAMS}[${ITEMP0}] = ${STE <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6885	6982	
==>{STEMP0} = concat ${STEMP1}

# Put it in the parameter register list.
${PARAMS}[${ITEMP0}] = ${STE <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	5930	6071	
==>_compile = compreg "PGE::P6Regex"

            .local string target
            .local pmc rulesub
            .local pmc match
            .l <==
2	/Users/nnunley/parrot/config/auto/bc.pm	999	1125	
==>> 1,
    );

    if ($bc_does_not_hang{$osname}) {

        # This seems to work for GNU bc 1.06
        my $answer = capture_o <==
2	/Users/nnunley/parrot/config/auto/jit.pm	3387	3492	
==>DIR)/jit_cpu$(O) $(SRC_DIR)/jit_debug$(O) $(SRC_DIR)/jit_debug_xcoff$(O)'
        );

        if (   ($jit <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1090	1197	
==>$pir = <<'PIR';
# Get current stack types array size.
${ITEMP0} = elements ${STYPES}
PIR

	# Do code for eac <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2800	2907	
==>$pir = <<'PIR';
# Get current stack types array size.
${ITEMP0} = elements ${STYPES}
PIR

	# Do code for eac <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650201	650627	
==>",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 727,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 247 \"src/ops/pmc.ops\"\n    if ({{\@2}} > 0 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	518	627	
==>eturns a new section.

=cut

sub new
{
	my $self = shift;
	my $dist = Parrot::Distribution->new;
    my $dir = <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	4708	4832	
==>each my $arg (@{ $t->{args} }) {
            if (UNIVERSAL::isa($arg, 'Regex::Ops::Tree')) {
                # $arg is a refe <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	10058	10182	
==>each my $arg (@{ $t->{args} }) {
            if (UNIVERSAL::isa($arg, 'Regex::Ops::Tree')) {
                # $arg is a refe <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19030	19161	
==>ck => aop('unless', [ $matchcount, $lastback ]),
               aop('add', [ $matchcount, -1 ]),
               aop('goto', [ $R_bac <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	17622	17752	
==>f->{super_mmd} }) {
        my ($super, $variants);
        $found = 0;
        @mmds = ();
        while (($super, $variants) = ea <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	591023	591384	
==>,
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 671,
                  "ARGS" => [
                              "p",
                              "k",
                              "k"
                            ],
                  "BODY" => "#line 325 \"src/ops/ob <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16951	17065	
==>94,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710706	710801	
==>O_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_printf(interprete <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711540	711635	
==>O_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_printf(interprete <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574774	575015	
==>_new_init(interpreter, enum_class_ParrotClass, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575578	575819	
==>_new_init(interpreter, enum_class_ParrotClass, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	486695	486989	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ceil",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	487446	487740	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ceil",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	30926	31051	
==>dler, $targ $cmt
	set_eh $eh
EOC
}
sub SETUP_FINALLY
{
    my ($n, $c, $cmt) = @_;
    SETUP_EXCEPT($n, $c, $cmt);
}
sub END_F <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8484	8620	
==>ormal_args;

      unless ($self->skip_close_paren) {
        while (1) {
          my $arg_type  = Jako::Construct::Type->new($self->req <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	3433	3532	
==>de, $expected, $description)>

Runs the Parrot Bytecode and passes the test if a string comparison o <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5103	5236	
==>@list_to_process) = (@ungrouped_pmcs, keys %$group_files);

    die "nothing found to copy" unless @list_to_process;

    foreach (@li <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	18003	18104	
==>$self->{Curr_Test});
    $self->{Curr_Test}++;

    $self->{Test_Results}[$self->{Curr_Test}-1] = &sha <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	18868	18969	
==>$self->{Curr_Test});
    $self->{Curr_Test}++;

    $self->{Test_Results}[$self->{Curr_Test}-1] = &sha <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4299	4416	
==>$comment);
    if ($self->{DEBUG}) {
        push @ops, 'print "matched('.chr($code).') at ";';
        push @ops, 'pr <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	2831	2971	
==>g_name) = @$arg;

    $handler->start_element({ Name => 'arg', Attributes => { name => $arg_name, type => $arg_type } });
    $handler->end_e <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4725	4835	
==>cs) =~ /--destination=(.*)/
      or die "copy command requires destination";
    my $dest = $1;

    my ($grou <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4829	4939	
==>cs) =~ /--destination=(.*)/
      or die "copy command requires destination";
    my $dest = $1;

    my ($grou <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	635	742	
==>ck in
    $t = $self->add_checks($t, 0, 0);
    # Delete the no-implicit-check marker
    $t = $self->maptre <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1987	2104	
==>is is called from C<new()> to create the path if necessary.

=cut

sub create_path
{
    my $self = shift;
    
    re <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	964	1081	
==>is is called from C<new()> to create the path if necessary.

=cut

sub create_path
{
    my $self = shift;
    
    re <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4142	4241	
==>onvert lib-GROUP.so + A.so + B.so ... -> GROUP.so
    while (my ($group, $pmcs) = each %$group_files <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4246	4345	
==>onvert lib-GROUP.so + A.so + B.so ... -> GROUP.so
    while (my ($group, $pmcs) = each %$group_files <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3440	3598	
==>,            'set', 'P17', 'P17[1]'],
  ['',            'typeof', 'I16', 'P17'],
  ['',            'branch', 'apply_COUNT'],
  ['apply_ARRAY', 'new', 'P3', '.A <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	582	892	
==>1,
             'HAS_aligned_funcptr' => 1,
             'MAJOR' => '0',
             'MINOR' => '4',
             'PATCH' => '5',
             'PQ' => '\'',
             'SVN_ENTRIES' => undef,
             'VERSION' => '0.4.5',
             'a' => '.a',
             'ar' => 'ar',
             'ar_extra' => ' <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	3845	4005	
==>anything bigger than intval.
        $conf->data->set(
            hugeintval     => $intval,
            hugeintvalsize => $intvalsize,
        );
    }

    cc <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	21667	21862	
==>->{$_}) ? join(",", @{$map->{$_}}) : $map->{$_}
      ),
      sort keys %$map ),
    ("B~C~E~F~I~L~S~X~Z" eq join '~', sort keys %$map)
     ? "  (all normal)\n" : "\n"
  ;

  # A recursive algor <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	23863	24018	
==>_ARG_$arg_num} = bc.read_int8()\n    next_pc += 1\n";
			$arg_name = "I_ARG_$arg_num";
		}

		# uint16
		elsif (/^uint16$/) {
			$out =  "    \${I_ARG_$arg_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5797	5910	
==>shift;
	my $pops = shift;
	my $pir = '';

	# Branches mean we need to deal with basic block-ish stuff. If the bran <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3735	3848	
==>shift;
	my $pops = shift;
	my $pir = '';

	# Branches mean we need to deal with basic block-ish stuff. If the bran <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	2119	2297	
==>it's got a semicolon, it's not a function header
    @funcs = grep !/;/, @funcs;

    chomp @funcs;

    return @funcs;
}

sub function_components {
    my $proto = shift;

    my <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547531	547778	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fact",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548437	548684	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fact",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845650	845893	
==>S" => [
                              "i",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 45 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	20423	20647	
==>retty($treelet->[$i]), " for traversal.\n";
        push @stack, $treelet->[$i];

        if($treelet->[$i][0] eq 'L') {
          my $thing;
          foreach my $attrname ('section', 'to') {        
            if(defined($ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2336	2428	
==>using this class.

=head1 SEE ALSO

L<Pod::Simple>, L<Pod::Simple::Subclassing>

=head1 COPYR <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	38958	39130	
==>dDir( $parser );
    foreach my $op (@opcodes2) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $parser->Er <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	11316	11472	
==>gex::Ops::Tree::multi_match::render {
    my $op = shift;
    my ($min, $max, $greedy, $R) = @{ $op->{args} };
    my $base = $R->render();
    $base = "(?:$ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10396	10515	
==>ft \$error token and go to state ".
#DBG>						 $$states[$$stack[-1][0]]{ACTIONS}{error}.
#DBG>						 ".\n";

		push <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9928	10043	
==>ft \$error token and go to state ".
#DBG>						 $$states[$$stack[-1][0]]{ACTIONS}{error}.
#DBG>						 ".\n";

		push <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	6160	6270	
==>ds}{$group} = 1;
}

sub rewrite_try {
    my ($self, $op, $R, $lastback) = @_;
    return $self->rewrite($R, $l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244032	244347	
==>rpreter, l, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244964	245279	
==>rpreter, l, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
2	/Users/nnunley/parrot/lib/File/Which.pm	1767	1907	
==>s, $file;
                # we can stop this loop as if it finds more aliases matching,
                # it'll just be the same result anywa <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9512	9637	
==>discard it
		and	do {
				$$token eq ''	# End of input: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	print STDE <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9084	9204	
==>discard it
		and	do {
				$$token eq ''	# End of input: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	print STDE <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	10923	11045	
==>f, $got, $expect, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # unde <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	11341	11463	
==>f, $got, $expect, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # unde <==
2	/Users/nnunley/parrot/lib/Test/More.pm	24182	24310	
==>>, use TODO.  This
is for any code you haven't written yet, or bugs you have yet to fix,
but want to put tests in your testing sc <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27806	27915	
==>ype array.
		for (1..$rule->{'pop'}) {
			$pir .= "    type_trans = pop stypes\n";
		}
		for (1..$rule->{'push <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17985	18098	
==>97,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' = <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3678	3782	
==>rms to the op function's nth argument. C<$0> is the opcode itself.

=back

Note that, for ease of parsing <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	661	814	
==>=> 'ELSE' }, # TODO: fix these
);


#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $ident, $cond, $left, $op, $right) = @_;

  confess "Block i <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	8826	8937	
==>t",
  );

  $runcore{$_[0]};
}

sub runcore_from_args {
  local $_ = shift;

  /\b-g\b/ and return "goto";
  /\b <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	395	494	
==>es the
actual compiler for that command.

Many builtins need to use the same type of code, and do th <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	10264	10403	
==>(/^}\s*$/)
        {
            $count += $self->make_op($count, $type, $short_name, $body, \@args,
                \@argdirs, $line, $orig <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377058	377555	
==>,
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 441,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 432 \"src/ <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	22420	22558	
==>";
    return $fh;
}

#
#   main()
#
# Get and set the correct options and execute the runmode
# specified in @ARGS.
#
sub main {
    my ($ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86569	86912	
==>}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new_callback",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	16636	16729	
==>PullParser should define a C<run> method
that calls C<< $token = $parser->get_token >> to pull <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	33564	33778	
==>s and elements which aren't explicitly
        # filled in with a shared reference will puke under 5.8.0
        # ithreads.  So we have to fill them in by hand. :(
        my $empty_result = &share({});
        for <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	24652	24808	
==>eck) = @_;
	
	my $action = '';
	
	if ($self->{"msg"})  # ERROR MESSAGE SUPPLIED
	{
		#WAS: $action .= "Parse::RecDescent::_error(qq{$self->{msg}}" .  ',$this <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	11174	11362	
==>te;
        $head1_text_content = '';
      }
    }

    elsif($state == 1) { # accumulating text until end of head1
      if( $token->is_text ) {
        DEBUG and print "   Adding \"", $t <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3605	3699	
==>ory,$checklist,$inarray,$outhash)=@_;
	my($prm,$value);
	my($prmlst)={};

	while(($prm,$val <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3417	3507	
==>ory,$checklist,$inarray,$outhash)=@_;
	my($prm,$value);
	my($prmlst)={};

	while(($prm,$val <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	3615	3790	
==>repend the object name before the symbol name
--t		append the short BSD-style type (in parentheses above)
--type=bsd|-B 	same as --t
--type=long|-L	append a long type (e.g. "gl <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5796	5923	
==>s}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There should be at most a single group
        my $group = $class- <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6007	6134	
==>s}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There should be at most a single group
        my $group = $class- <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	40165	40329	
==>break' ) {
                    $parser->Error("no loop to break\n");
                }
            }
        }
        unshift @{ $parser->YYData->{functs} }, \ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39092	39236	
==>break' ) {
                $parser->Error("no loop to break\n");
            }
        }
    }
    unshift @{ $parser->YYData->{functs} }, \ <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	420	531	
==>sub MAX() { 0xFFFFFFFF }

# padd a message to a multiple of 64
sub padding($) {
    my $l = length (my $msg = sh <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15310	15431	
==>1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # return a single scalar
    ($x = ((@_ == 1) ? $_[0] : join '' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16491	16612	
==>1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # return a single scalar
    ($x = ((@_ == 1) ? $_[0] : join '' <==
2	/Users/nnunley/parrot/tools/util/pirtidy.pl	151	259	
==>lib 'lib';

use Parrot::PIR::Formatter;

my $extension = 'tdy';
my $verbose   = 'that is SO true.';

# loop o <==
2	/Users/nnunley/parrot/config/inter/lex.pm	284	387	
==>package inter::lex;

use strict;

use vars qw( $description @args $prompt $util );

use base qw(Parrot:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47013	47174	
==>\n  else         { Interp_debug_CLEAR(interpreter, PARROT_ALL_DEBUG_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47796	47957	
==>\n  else         { Interp_debug_CLEAR(interpreter, PARROT_ALL_DEBUG_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035565	1035663	
==>MC *result = NULL;\n\n    if (!PMC_IS_NULL(lex_pad))\n\tresult = VTABLE_get_pmc_keyed_str(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036729	1036827	
==>MC *result = NULL;\n\n    if (!PMC_IS_NULL(lex_pad))\n\tresult = VTABLE_get_pmc_keyed_str(interpret <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	9	154	
==>b-0.0.1;
use v6;

our @ORIG_INC = @*INC;  # take a copy of the original

sub import (Str $pkg: *@_paths) returns Void {
    my @paths = @_paths.re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367447	367827	
==>ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 430,
                  "ARGS" => [
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 336 \"src/ops/io.ops <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	626208	626369	
==>CODE + 2 + n_args + 3 + 3 + 2;    \n    args[1 + n_args] = pc;\n    lru = &mic->lru;\n    /* TODO verify {{\@1}} didn't change */\n    (void) ((interface_f)lru->f <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	4940	5073	
==>->suffix eq 'dump';
	
	if ( ! exists $self->{POD_ERRORS_TIME} or 
		$self->modified_since($self->{POD_ERRORS_TIME}) )
	{
		my $checker <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2990	3091	
==>{DOTPOS}} - 1;

		$index < 0
	and	-$index <= @{$$self{STACK}}
	and	return $$self{STACK}[$index][1] <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2846	2943	
==>{DOTPOS}} - 1;

		$index < 0
	and	-$index <= @{$$self{STACK}}
	and	return $$self{STACK}[$index][1] <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	22221	22348	
==>en compiling (i.e. -c)
    return if $^C;

    # Smash args together like print does.
    # Convert undef to 'undef' so its read <==
2	/Users/nnunley/parrot/lib/File/Which.pm	6501	6594	
==>.

Version 0.04 had some significant platform-related changes, taken from
the Perl Power Tools <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465317	465610	
==>=> [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 533,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 343 \"src/ops/ma <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2129	2344	
==>rg2}->{symbol}\n";
        }
    }

    sub visitRelationalOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = $ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	36077	36198	
==>matchrule, $argcode) = @_;
	my $class = ref($self) || $self;
	($max, $min) = ( $min, $max) if ($max<$min);

	my $desc;
	if <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	45247	45405	
==>? 'VerbatimB'  :
            $4 ? 'VerbatimI'  :
            $5 ? 'VerbatimBI' : die("Should never get called")
          ), {},
          substr($p->[$i-1], p <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	10713	10833	
==>tree {
    my ($self, $t, $sub) = @_;
    $sub->($t);
    foreach my $arg (@{ $t->{args} }) {
        if (UNIVERSAL::isa( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320024	320278	
==>((Parrot_Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320794	321048	
==>((Parrot_Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	25965	26068	
==>te PIR.
		$pir .= sub_meta($out, $mv, "argument read");
		$mv->{"ARG$arg_num"} = $mv->{$arg_name};
		pus <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122036	122148	
==>ll.\n   * it's just casting a signed integral to the equivalent unsigned.\n   */\n  LVALUE_CAST(UINTVAL, {{\@1}}) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122948	123060	
==>ll.\n   * it's just casting a signed integral to the equivalent unsigned.\n   */\n  LVALUE_CAST(UINTVAL, {{\@1}}) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	683	884	
==>> 'ELSE' }, # TODO: fix these
);


#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $kind, $ident, $cond, $left, $op, $right) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jak <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26419	26529	
==>PES}, ${STACK0}, ${STACK1})
${INS} = concat ${STEMP0}
PIR
    }
	
	# Now we split based upon the class.
	# Oper <==
2	/Users/nnunley/parrot/lib/File/Which.pm	3772	3908	
==>t implemented in the shell.

C<File::Which> searches the directories of the user's C<PATH> (as returned by
C<File::Spec-E<gt>path()>), lo <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	942	1054	
==>s)
#

package Parse::Yapp::Driver;

require 5.004;

use strict;

use vars qw ( $VERSION $COMPATIBLE $FIL <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	917	1020	
==>s)
#

package Parse::Yapp::Driver;

require 5.004;

use strict;

use vars qw ( $VERSION $COMPATIBLE $FIL <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	18438	18703	
==>f->{"error"} ? '' : '$text = $_[1];' ) . '
		my $_savetext;
		@item = (q{' . $rule->{"name"} . '});'.
		    ($::RD_NO_HITEM ? '' : '
		%item = (__RULE__ => q{' . $rule->{"name"} . '});') . '
		my $repcount = 0;

';
	$code .= 
'		my @itempos = ({});
'			if $parser->{ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8469	8570	
==>i = 1 to 20 step 4
  print c$(i);tab$(12);c$(i+1);tab$(22);c$(i+2);tab$(32);c$(i+3)
next
print
data "A <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21333	21434	
==>i = 1 to 20 step 4
  print c$(i);tab$(12);c$(i+1);tab$(22);c$(i+2);tab$(32);c$(i+3)
next
print
data "A <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958172	958416	
==>on",
                  "CODE" => 1078,
                  "ARGS" => [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 581 \"src/ops/string.ops\"\n  INTVAL n = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	2714	2815	
==>rectly.
      my $temp = $compiler->temp_reg($return_type);
      $compiler->emit("  $temp = $ret_val" <==
2	/Users/nnunley/parrot/Configure.pl	10250	10359	
==>)
After that, you can use `$make test' to run the test suite.

Happy Hacking,
        The Parrot Team

END

ex <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11047	11195	
==>->stylesheet,
    $self->color_table,
    $self->doc_info,
    $self->doc_start,
    "\n"
  ;
}

sub do_end {
  my $self = $_[0];
  my $fh = $self->{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78862	78966	
==>BODY" => "#line 1176 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80383	80487	
==>BODY" => "#line 1176 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}) <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26756	26929	
==>el($parser);
    push @opcodes, new LabelOp( $parser,
        'arg1' => $l_continue,
    );
    my $cond = get_cond( $parser, $expr );
    push @opcodes, @{ $cond->[1] } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632042	632521	
==>> [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 708,
                  "ARGS" => [
                              "p",
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 91 \"src/ops/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	25355	25583	
==>qw (
			extract_delimited
			extract_bracketed
			extract_quotelike
			extract_codeblock
			extract_variable
			extract_tagged
			extract_multiple

			gen_delimited_pat
			gen_extract_tagged
		       );

 # Extract the initial su <==
2	/Users/nnunley/parrot/config/auto/socklen_t.pm	220	378	
==>hether there is a socklen_t

=cut

package auto::socklen_t;

use strict;
use warnings;

use base qw(Parrot::Configure::Step::Base);

use Config;

use Parrot::C <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	3471	3598	
==>nction.  -Wlong-long
            # Ha. this is the default! with -pedantic.
            # -Wno-long-long for the nicest bit of C <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	4667	4794	
==>space separated list of opsfile name
    if ($self->{FILE}) {
	$self->{FILE}=~s/, $//;
	$self->{FILE}=~s/, $//;
    }

    retur <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	23676	23854	
==>NST_STRING(interp, "$isa");
        vt_clone->does_str = CONST_STRING(interp, "$does");
EOC
    }
    $cout .= <<"EOC";
        interp->vtables[entry] = vt_clone;
EOC
    $cout .= <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	482	610	
==>s = shift;

  my ($block, $type, $ident) = @_;

  confess "Block (". ref($block) . ") is not!" unless UNIVERSAL::isa($block, qw(J <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	751277	751508	
==>string_copy(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1177	1294	
==>ut => $input, output => $output };
    }
    
    Test::More::plan( tests => scalar(@spec) );

    generate_regular($p <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	35979	36128	
==>=> 77,
			">=" => 78,
			"*" => 80,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79,
			"/" => 82
		}, <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36237	36386	
==>=> 77,
			">=" => 78,
			"*" => 80,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79,
			"/" => 82
		}, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841625	841890	
==>{\@1}} = string_ord(interpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842389	842654	
==>{\@1}} = string_ord(interpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584665	584907	
==>\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, NULL);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585740	585982	
==>\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, NULL);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970624	970924	
==>YPE" => "inline",
                  "CODE" => 1091,
                  "ARGS" => [
                              "i",
                              "i",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 608 \"src/op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957034	957298	
==>nd_encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957938	958202	
==>nd_encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
2	/Users/nnunley/parrot/config/init/hints/irix.pm	635	766	
==>set(libs => $libs);

    my $cc   = $conf->data->get('cc');
    my $cxx  = $conf->data->get('cxx');
    my $ld   = $conf->data->get( <==
2	/Users/nnunley/parrot/Configure.pl	4066	4188	
==>SO

F<config/init/data.pl>, F<lib/Parrot/Configure/RunSteps.pm>,
F<lib/Parrot/Configure/Step.pm>, F<docs/configuration.pod> <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4853	4997	
==>ed $cb;

    my $verbose = defined $self->get('verbose') && $self->get('verbose') == 2;

    print "Setting trigger $trigger on configuration key <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	6830	6948	
==>ess op1 goto done
    # pop off the end and unshift onto the beginning
    $P1 = pop op2
    unshift op2, $P1
    inc o <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	3994	4140	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub version_report {
  my $class = ref($_[0]) || $_[0];
  if($class eq __PACKAGE__) {
    return "$class $VERS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	821910	822183	
==>ction",
                  "CODE" => 931,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 120 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstac <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	1410	1517	
==>em('', 'tools/docs/pod_errors.pl'),
            $self->new_item('', 'tools/dev/manicheck.pl'),
            $ <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	1532	1638	
==>=back

=head2 Internals

To see the internal data structures please run:

    % perl tools/build/pmc2c.pl - <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3062	3195	
==>tput_ne {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_test('ne', $val1, $val2, $dest);
}

sub output_lt {
    my ($sel <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	1301	1399	
==>item('', 'lib/Parrot/Docs/POD2HTML.pm'),
            $self->new_item('', 'lib/Parrot/Docs/HTMLPage. <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	15490	15668	
==>body_part\n}";
            push @{ $self->{mmd_variants}{$meth} },
                [ $right_type, $sub_meth_name ];
        }

    }
    ## $cout .= $header_decls;
    $cout .= $s <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	3210	3337	
==>tem C<Parrot::Docs::Section::BigNum>

=item C<Parrot::Docs::Section::Compilers>

=item C<Parrot::Docs::Section::Languages>

=ite <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41623	41729	
==>$_[0];
  my @closers;
  foreach my $still_open (@{  $self->{'curr_open'} || return  }) {
    my @copy = @$s <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	23021	23119	
==>PerlHash
	P1["_type"]= '$type'
	P1["type"]= "USER"
	P1["storage"]= P0
	P2["$var"]= P1
DIMTYPE
			if <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	106	209	
==>imple::PullParserToken');
use strict;

sub new {  # Class->new(text);
  my $class = shift;
  return bles <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715141	715451	
==>"ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 802,
                  "ARGS" => [
                              "sc"
                            ],
                  "BODY" => "#line 75 \"src/ops/python.o <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	7449	7582	
==>L_COMMENTS'),
            map { ($_->{label} ? ($_->{label}) : ()), $_->{code} } @output4
           );
}

sub dbg_render {
    if (UN <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	34784	35073	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_addr",
                  "FL <==
2	/Users/nnunley/parrot/config/auto/inline.pm	237	332	
==>iler supports C<inline>.

=cut

package auto::inline;

use strict;
use vars qw($description @arg <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561866	561959	
==>od(interpreter, {{\@2}}, {{\@3}});\n  if (!{{\@1}}) {\n    real_exception(interpreter, next, M <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562950	563043	
==>od(interpreter, {{\@2}}, {{\@3}});\n  if (!{{\@1}}) {\n    real_exception(interpreter, next, M <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24700	24796	
==>d::_match_tagged($textref, $pre, $ldel, $rdel, $omode, $bad, $ignore);

		return _fail(wantarray, <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	18949	19110	
==>hPointer);

$put_pointer

    }

    b = VTABLE_get_pmc_keyed_str(interpreter, HashPointer, signature);

    if (b && b->vtable->base_type == enum_class_UnManaged <==
2	/Users/nnunley/parrot/config/init/defaults.pm	3145	3315	
==>Config{libs},

        cc_inc     => "-I./include",
        cc_debug   => '-g',
        link_debug => '',

        o         => $Config{_o},       # object files extension <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	176	272	
==>iles

=head1 DESCRIPTION

Generates the various F<Makefile>s and other files needed to build Parr <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6528	6657	
==>ther pass by setting Exchange to TRUE.
   FOR I = 2 TO Max
      IF A$(I-1) > A$(I) THEN
         Exchange = TRUE
         B$=A$(I <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16181	16310	
==>ther pass by setting Exchange to TRUE.
   FOR I = 2 TO Max
      IF A$(I-1) > A$(I) THEN
         Exchange = TRUE
         B$=A$(I <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	172	306	
==>- PMC definition to C compiler

=head1 SYNOPSIS

Create F<src/pmc/foo.dump>:

    % perl tools/build/pmc2c.pl --dump src/pmc/foo.pmc .. <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1010	1109	
==>ent = $self->ident->compile($compiler);
  
  $compiler->emit("  dec $ident");
  
  if (($self->ident <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2032	2242	
==>rint {$FH}
                "  $op->{result}->{symbol} = $op->{op} $op->{arg1}->{symbol}, $op->{arg2}->{symbol}\n";
        }
    }

    sub visitRelationalOp {
        my $self = shift;
        my ($op) = <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2291	2461	
==>rint {$FH}
            "  $op->{result}->{symbol} = $op->{op} $op->{arg1}->{symbol}, $op->{arg2}->{symbol}\n";
    }

    sub visitAssignOp {
        my $self = shift <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	2258	2413	
==>rated file

  languages/snorkfest/snork-compile        [main]bin

and the --bindir=/usr/parroty/bin, then the generated
parrot-<VERSION>-1.<arch>.rpm file w <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4257	4353	
==>_func_decl($core)>

Returns the C code for the run core function declaration.

=cut

sub run_core <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2745	2841	
==>_func_decl($core)>

Returns the C code for the run core function declaration.

=cut

sub run_core <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805041	805227	
==>",
                              "p"
                            ],
                  "BODY" => "#line 472 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_pmc_keyed(interpreter, {{\@1}}, {{ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8961	9069	
==>at uses find_symbol() to locate a matching
symbol, and then returns that symbol's scope (global or local).

= <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3349	3440	
==><Pod::Simple::DumpAsXML>

The older libraries L<Pod::PXML>, L<Pod::XML>, L<Pod::SAX>


=head <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3001	3092	
==><Pod::Simple::DumpAsXML>

The older libraries L<Pod::PXML>, L<Pod::XML>, L<Pod::SAX>


=head <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040761	1041134	
==>",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1163,
                  "ARGS" => [
                              "s",
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line 120 \"src/ops/var.ops\"\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356290	356725	
==>printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 416,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 240 \"src/ops/io.ops\"\n  PIO_eprintf(interpreter, INTVAL_FMT, {{\@1}});\n  { <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1056	1148	
==>end-token with the tagname of "head1".

=item $token->tagname(I<somestring>)

This changes th <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1484	1576	
==>end-token with the tagname of "head1".

=item $token->tagname(I<somestring>)

This changes th <==
2	/Users/nnunley/parrot/lib/Test/More.pm	30672	30882	
==>$e1, $e2] };
                $ok = _deep_check($$e1, $$e2);
                pop @Data_Stack if $ok;
            }
	    else {
		_whoa(1, "No type in _deep_check");
	    }
        }
    }

    return $ok;
}


sub <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	244	335	
==>.pl

=head1 DESCRIPTION

A Perl implementation of the F<examples/mops/mops.pasm> example pro <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	240	331	
==>.pl

=head1 DESCRIPTION

A Perl implementation of the F<examples/mops/mops.pasm> example pro <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	12237	12333	
==>ted, we will add it here, and
maintain backwards compatibility as well.

- `eval_ok (Str $code, S <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	16037	16198	
==>lar, @order);
           if ($type1 eq 'APLVector') {
               $vector = "op1";
               $scalar = "op2";
			   @order = qw/ $P1 $P2 /;
           } e <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	20695	20881	
==>c file and add everything it exports to a list.
        $file = find_file($include, "$pmcname.c", 1);

        $fh = open_file( "<", $file );
        while (<$fh>) {
            if (/^(?: <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	6486	6586	
==>lkernel32 -luser32 -lgdi32 -lwinspool -lcomdlg32 -ladvapi32 -lshell32 -lole32 -loleaut32 -lnetapi32 - <==
2	/Users/nnunley/parrot/config/init/hints/msys.pm	377	477	
==>lkernel32 -luser32 -lgdi32 -lwinspool -lcomdlg32 -ladvapi32 -lshell32 -lole32 -loleaut32 -lnetapi32 - <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	98631	98862	
==>,
                  "TYPE" => "inline",
                  "CODE" => 122,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 96 \"src/ops/bit.ops\"\n  {{\ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	3691	3792	
==>rse::RecDescent::_linecount(${$self->{text}})
			 + 1;

	$parser->{offsetlinenum} += $parser->{lastlin <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	71953	72054	
==>$rule->isleftrec($rules))
		{
			_error("Rule \"$rule->{name}\" is left-recursive.");
			_hint("Redesi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15473	15599	
==>-\xFF])/$Escape{$1}/g;  # ESCAPER
             # Escape \, {, }, -, control chars, and 7f-ff.
    $x =~ s/([^\x00-\xFF])/'\\uc1 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16652	16778	
==>-\xFF])/$Escape{$1}/g;  # ESCAPER
             # Escape \, {, }, -, control chars, and 7f-ff.
    $x =~ s/([^\x00-\xFF])/'\\uc1 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	913	1039	
==>each my $x (@_) { $$$it .= $x }

  #Pod::Simple::DEBUG > 10 and print " appended to $$it = \"$$$it\"\n";

  return 1;
}

sub FE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59310	59422	
==>ne 901 \"src/ops/core.ops\"\n  PARROT_WARNINGS_on(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59958	60070	
==>ne 901 \"src/ops/core.ops\"\n  PARROT_WARNINGS_on(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818196	818291	
==>,+=1}} reloads cached base pointers, and works with\n   * arbitrary branch opcodes too. While it <==
2	/Users/nnunley/parrot/lib/Test/More.pm	3575	3774	
==>e Test::More skip_all => $skip_reason;

Your script will declare a skip with the reason why you skipped and
exit immediately with a zero (success).  See L<Test::Harness> for
details.

If you want to c <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	2274	2500	
==>utput, [ 1, q{} ];
                    $level++;
                }
            }
            push @output, [ 1, $line ];
            if ( $line =~ $block_end ) {
                push @output, [ 1, q{} ];
            }
        } <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	13404	13537	
==>tag = " v" . $self->VERSION . $tag   if   defined $self->VERSION;
     $tag = $class . $tag;
   }

   return sprintf <<'END',
{\info{\ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	1033	1147	
==>}

# Create metavariables table.
my $metavars = {};

# Generate initial translator code and populate metafields.
my <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2577	2697	
==>EBUG;
    open (GCOVSUMMARY, "$cmd |") or die "Error invoking '$cmd': $!";
    my $tmp;
    my %generated_files;
    whil <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	18028	18143	
==>$self->{Curr_Test}++;

    $self->{Test_Results}[$self->{Curr_Test}-1] = &share({
        'ok'      => 1,
        ac <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	18893	19008	
==>$self->{Curr_Test}++;

    $self->{Test_Results}[$self->{Curr_Test}-1] = &share({
        'ok'      => 1,
        ac <==
2	/Users/nnunley/parrot/languages/APL/t/APL.pm	886	1050	
==>w is passing.

sub run_apl_is() {
  foreach my $block (blocks) {
    my $apl    = $block->APL;
    my $output;
    if (defined($block->out)) {
      $output = $block <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr3.pm	206	317	
==>et_out_fn {
    my $self = shift;
    my ( $count, $options ) = @_;

    return Parrot::Test::per_test( '_antlr3 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2781	2899	
==>r{\xAD}{}d;
  }

  my $i = ' ' x ( 2 * $self->{'Indent'} + 4);
  #my $i = ' ' x (4 + $self->{'Indent'});
  
  $self->{' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760506	760673	
==>,
                              "p"
                            ],
                  "BODY" => "#line 286 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}}->vtable->get_pmc(inte <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20514	20612	
==>ype[CURR] eq "STMT" or $type[CURR] eq "COMM") {
				print CODE "\t# $syms[CURR]\n" if $type[CURR] e <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5247	5354	
==>ight = $self->right;

  $handler->start_element({ Name => 'assign' });
  $dest->sax($handler);
  $handler->s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3310	3417	
==>ight = $self->right;

  $handler->start_element({ Name => 'assign' });
  $dest->sax($handler);
  $handler->s <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1202	1352	
==>nts and returns a L<Parrot::Configure> object.

=cut

sub new
{
    my $class = shift;

    my $self = {
        steps   => [],
        data    => Parr <==
2	/Users/nnunley/parrot/config/auto/pack.pm	1542	1682	
==>e.pl:  Unable to find a functional packtype for $_.
               '$format' failed: $@
AARGH
        }
        if ($test) {
            unle <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683800	683914	
==>ops\"\n    {{\@1}} = {{\@2}}->vtable->shift_pmc(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	567	713	
==>$count;
        my( $lang_f, $pasm_f, $by_f, $out_f ) = map { # JMG
            my $t = $0; $t =~ s/\.t$/_$count\.$_/; $t
        } ( qw(urm pasm p <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	652	788	
==>$count;
        my( $lang_f, $pasm_f, $by_f, $out_f ) = map { # JMG
            my $t = $0; $t =~ s/\.t$/_$count\.$_/; $t
        } ( qw( <==
2	/Users/nnunley/parrot/config/auto/headers.pm	2519	2733	
==>header OK/) {
                $pass = 1;
                push @found_headers, $header;
            }
            cc_clean();
            last if $pass;
        }

        my $flag = "i_$header";
        $flag =~ s/\ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	14098	14375	
==>s/^[ ]{4}//mg;
    my $super = $self->{super}{$meth};

    my $total_body;
    if ($method->{loc} eq 'vtable') {
        $total_body = rewrite_vtable_method($classname, $meth, $super,
                       $self->{super}, $body);
    }
    else {
        $total_body = rewrite_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3416	3576	
==>:VERSION doesn't implement UTF16 yet."
        );
        splice @_;
        push @_, undef;
        next;

        # TODO: implement somehow?
        
      } e <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3018	3170	
==>:VERSION doesn't implement UTF16 yet."
        );
        splice @_;
        push @_, undef;
        next;

        # TODO: implement somehow?

      } e <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	6511	6623	
==>"*"s.
    s/\n( *\n){2,}/\n\n/sg; # excess blank lines
    s/^\s*//s; s/\s*$/\n/s; # trim (and ends with a newlin <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	552	654	
==>T_FUNCTION_CORE';
}

=item C<core_prefix()>

Returns an empty string.

=cut

sub core_prefix
{
    retu <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	24006	24382	
==>abel('plus_rfail');
    my $next = $self->genlabel('plus_next');
    my ($R_back, @R_ops) = $self->rewrite($R, $rfail);
    my @ops = (
                        aop('pushmark', [ "+" ]),
               $back => @R_ops,
                        aop('pushint', [ 0 ]),
                        aop('goto', [ $next ]),
              $rfail => aop('popindex', [ '<tmp>', $lastback ]), <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	8362	8461	
==>>cur_op[x])
#define ROFFS_PMC(x) REG_OFFS_PMC(jit_info->cur_op[x])
#
END_C

if ($jit_cpu) {
    prin <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	44317	44493	
==>a-zA-Z]/) {
      $return = $self->_find_lex($value);
    }
    else {
      $return = $self->_constant($node->{value});
    }
  }

  return $return;
}

sub generate {
  my $tre <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	5420	5568	
==>tories{dirname($dest)} = 1;
    push(@files, [ $src => $dest ]);
} continue {
    close ARGV if eof; # Reset line numbering for each input file
}

un <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	55	144	
==>e::Step from config/gen/makefiles/dynclasses_pl.in

# Copyright: 2001-2005 The Perl Founda <==
2	/Users/nnunley/parrot/languages/regex/regex.pl	1788	1932	
==>trees = Regex::expr_to_tree($expr, $ctx, %options);

if ($operation eq 'unparse' || $operation eq 'render') {
    print $_->render(), "\n" foreac <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10583	10715	
==>on .= '') ) 
    {
        $section =~ tr/ /_/;
        $section =~ tr/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
        $section = $s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3978	4092	
==>on .= '')) {
    $section =~ tr/ /_/;
    $section =~ tr/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
    $section = $s <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	9351	9556	
==>\]\w*/) {
            error("MANIFEST", $line, "malformed entry for filename ($_)");
        }

        my ($filename, $dirname) = fileparse($_);

        my ($filebase, $extension) = ($filename =~ /^(.*)\. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	338133	338390	
==>n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getstdout",
                  "FLAGS" => ": <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	13598	13702	
==>ps::Tree::reftree {
    my $op = shift;
    return $op->{name};
}

sub Regex::Ops::Tree::_onearg::reftree <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	14526	14621	
==>a Perl value which may be used instead of the corresponding
regular expression, or undef if it's <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3012	3139	
==>on't need any styles for over-* and /over-*
);


#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sub <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	17624	17760	
==>>{super_mmd} }) {
        my ($super, $variants);
        $found = 0;
        @mmds = ();
        while (($super, $variants) = each %{ $s <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	7862	7968	
==><<BNOTF;
@codeb  noop
	_screen_color($resultb)	# Broke!
BNOTF
	} elsif (@codef and not @codeb) {
		push @{$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6144	6405	
==>\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "load_bytecode",
                  "FLAGS" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	639393	639539	
==>{\n      case PARROT_ARG_IC:\n\t  typ = arg_op[2];\n\t  if (typ <= 1 || typ >= interpreter->n_vtable_max) {\n\t      real_exception(interpreter, NU <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	356	532	
==>SCRIPTION

This script runs a coverage test and then generates HTML reports. It requires
C<gcc> and C<gcov> to be installed.

The reports start at F<parrot_coverage/index.html>. <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	136	249	
==>b new {
    my ($class, $language, %options) = @_;

    if ($language eq 'perl5') {
        $class = 'Regex::Drive <==
2	/Users/nnunley/parrot/lib/Test/More.pm	36466	36569	
==>later (it's forward
compatible).

L<Test> is the old testing module.  Its main benefit is that it has
be <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	450	572	
==>tput, $desc) = @_;
  
    my $count = $self->{builder}->current_test + 1;

    my $lang_f    = Parrot::Test::per_test('.p1' <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	412	531	
==>tput, $desc) = @_;
  
    my $count = $self->{builder}->current_test + 1;

    my $lang_f    = Parrot::Test::per_test('. <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	10056	10167	
==>ue) = @_;
    $value = value($value);
    $DB::single = 1 unless length($value);
    return ".arg $value";
}

su <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	31019	31121	
==>ub _op_call_with_output_file {
}

sub _op_input_port_p {
}

sub _op_output_port_p {
}

sub _op_current_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6437	6624	
==>n";
        }

            defined($act)
        and do {

                $act > 0
            and do {        #shift

#DBG>				$debug & 0x04
#DBG>			and	print STDERR "Shift and <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6140	6317	
==>n";
        }

            defined($act)
        and do {

                $act > 0
            and do {        #shift

#DBG>				$debug & 0x04
#DBG>			and	print STDERR "Shift and <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	4060	4267	
==>unk =~ s/::/__/g;

    $compiler->emit(".sub $thunk");

    my $sig = defined $self->type ? $self->type->code : 'v';

    foreach my $arg ($self->args) {
      my ($arg_type, $arg_name) = @$arg;
      my $imc <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1882	1981	
==>ug (\$debuglevel, 0);
 ...some stuff that uses Pod::Simple to do stuff, but which
  you don't want d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20121	20572	
==>" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 27,
                  "ARGS" => [
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 342 \"src/ops/core.ops\"\n  if ({{\@1}} == 0.0) {\n    {{+={{\@2} <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4057	4164	
==>group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert lib-GROUP.so + A <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4161	4268	
==>group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert lib-GROUP.so + A <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	2456	2712	
==>ned to a non-strict
        # environment -- especially since we are using perl5 compilation flags
        # determined in a non-strict environment.  An example is Solaris 8.

        my @opt_and_vers = (
            0 =>
                "-Wall -Wstrict-pro <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	8004	8171	
==>to element

                                    # array type accessor:
    $ary_ref = $obj->a;                 # reference to whole array
    $ary_element_value = $obj- <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	5505	5681	
==><'TCL', <<'OUT', <<'DESC');
$body
TCL
$out
OUT
$name - $expl
DESC

END

        $counter++;
    }

    return $string;
}

##
## run_tests(@globs)
##
## Run the tests.
##
sub run <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3957	4116	
==>e C<$expected>
parameter.  Note that C<$expected> is a I<Perl 5> pattern.

=cut

sub pgeglob_like {
    my ($target, $pattern) = (shift, shift);

    unshift @_ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4559	4669	
==>args};
        return $self->op('nop', [], %$self);
    } elsif (@{ $self->{args} } == 1 && 2 == keys %$self) { <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5696	5806	
==>args};
        return $self->op('nop', [], %$self);
    } elsif (@{ $self->{args} } == 1 && 2 == keys %$self) { <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	3312	3441	
==>label->{label}} = $output2[-1] if $curlabel;
	    undef $curlabel;
	}
    }

    # Second, scan for label references and follow go <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2273	2388	
==>arg_sym->type; 
    }
    else {
      $actual_arg_type = $args[$i]->type;
    }

    $self->INTERNAL_ERROR("Can't d <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1973	2088	
==>arg_sym->type; 
    }
    else {
      $actual_arg_type = $args[$i]->type;
    }

    $self->INTERNAL_ERROR("Can't d <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	559	703	
==>$msg .= "\0" x (($l%64<=56?56:120)-$l%64);
    $l = ($l-1)*8;
    $msg .= pack 'VV', $l & MAX , ($l >> 16 >> 16);
}


sub rotate_left($$) {
	#$_[ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038045	1038456	
==>ore_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1160,
                  "ARGS" => [
                              "sc",
                              "p"
                            ],
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947789	947996	
==>[
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 526 \"src/ops/string.ops\"\n  INTVAL n = Parrot_charset_number(interpr <==
2	/Users/nnunley/parrot/lib/Test/More.pm	16660	16761	
==>onored.

If @imports are given, they are passed through to the use.  So this:

   BEGIN { use_ok('Some <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109414	109656	
==>PE" => "inline",
                  "CODE" => 136,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 182 \"src/ops/bit.ops\"\n  s <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	893	1026	
==>begin = qr{ ^= }smx;
my $verbatim_end   = qr{ ^=cut }smx;

sub get_formatted {
    my ($self) = shift;

    my $level    = 0;
    my $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324504	324738	
==>DE" => 380,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 144 \"src/ops/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	26239	26336	
==>$ldel$pattern$rdel$mod" }
	else		  { $desc = "m$ldel$pattern$rdel$mod" }
	$desc =~ s/\\/\\\\/g;
	$ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1950	2062	
==>ted' => "\n\\par}\n",
 'Para'    => "\n{\\pard\\li#rtfindent#\\sa180\n",
 '/Para'   => "\n\\par}\n",
 'head1'   = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56327	56422	
==>ODY" => "#line 869 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo_p(interpreter, {{\@2}});\n  {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57089	57184	
==>ODY" => "#line 869 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo_p(interpreter, {{\@2}});\n  {{+= <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	14874	15025	
==>ent::Directive->new(
			      "local \$^W;
			       my \$thisscore = do { $code } + 0;
			       if (!defined(\$score) || \$thisscore>\$score)
					{ \ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539906	540387	
==>th",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 625,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 1022 \"src/ops/math.ops\"\ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13789	13893	
==>mine (a, b, c as first)
	a=12
	b=99
	c.foo=103
	mine=100
end function
dim z as first
z.foo=13
print mine( <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	18826	18982	
==>!
  }
  
  splice @$treelet, 0, 2;  # lop the top off

  return $treelet;
}

#:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.

s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837	925	
==>Parrot_NameSpace_name(Interp* interpreter, PMC* pmc);\n\n\n\n/*\n** io.ops\n*/\n\n#includ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065533	1065886	
==>espace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1190,
                  "ARGS" => [
                              "p",
                              " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222702	222964	
==>@2}}, MMD_CMP) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/config/inter/progs.pm	2799	2930	
==>ibpath:\S+//g; # XXX No idea why.
    $linkflags = integrate($linkflags, $conf->options->get('linkflags'));
    $linkflags = prompt( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeSmart.pm	1	108	
==>require 5;
use 5.008;
## Anything before 5.8.0 is GIMPY!
## This module is to be use()'d only by Pod::Simple <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79342	79458	
==>lass_Undef);\n  }\n  else {\n      /* At this point we have the symbol's address. We just need to build\n         a P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80863	80979	
==>lass_Undef);\n  }\n  else {\n      /* At this point we have the symbol's address. We just need to build\n         a P <==
2	/Users/nnunley/parrot/config/gen/platform.pm	5152	5377	
==>$_) {
            local $/ = undef;
            print("\t$_\n") if defined $verbose && $verbose == 2;
            open IN_C, "< $_" or die "Can't open $_: $!";
            print PLATFORM_C <<"END_HERE";
/*
** $_:
*/
#line 1 "$ <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	8611	8938	
==>cos        complex.h
ccosf       complex.h
ccosh       complex.h
ccoshf      complex.h
ccoshl      complex.h
ccosl       complex.h
ceil        math.h
ceilf       math.h
ceill       math.h
cexp        complex.h
cexpf       complex.h
cexpl       complex.h
cimag       complex.h
cimagf      complex.h
cimagl      complex.h
clearerr <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	7248	7374	
==>bel}} = 1;
        }
    }
    foreach (@output4) {
        delete $_->{label} if ($_->{label} && ! $AMDEST{$_->{label}->{label <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832467	832802	
==>LAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 942,
                  "ARGS" => [
                              "nc"
                            ],
                  "BODY" => "#line 192 \"s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52379	52561	
==>S" => [
                              "ic"
                            ],
                  "BODY" => "#line 815 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_trace(interpret <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9649	9848	
==>turn ("$dest = length $string;");
}

sub output_arg {
    my ($self, $name, $type, $value) = @_;
    $value = value($value);
    return "$value, ";
}

sub output_param {
    my ($self, $name, $type, $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	66523	66764	
==>INTERPRETER);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
2	/Users/nnunley/parrot/languages/APL/t/APL.pm	1822	1968	
==>:language_output_is('APL', $apl, $output, $block->name);
        }
      } else {
        SKIP: {
          skip("not implemented", 1);
          P <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1689	1835	
==>};
    for(@{$node->{children}}) {
      $cur_type = $_->{type} if $_->{type} eq 'REAL';
    }
    $node->{type} = $cur_type;#$node->{children}[0]{ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21466	21588	
==>=> 'concat',
    );
    my @opcodes = ();
    my $result = new_tmp( $parser, 'pmc', $type{$op} );
    push @opcodes, @{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340944	341244	
==>e",
                  "CODE" => 399,
                  "ARGS" => [
                              "i",
                              "p",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 128 \"src/ops/io.ops\"\n  {{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	8536	8682	
==>cept_targets(@_) }

sub unaccept_targets {
  my $this = shift;
  foreach my $t (@_) {
    next unless defined $t and length $t;
    # TODO: enforce <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	13639	13783	
==>s not an appropriate object
reference.

If the element type does not start with a C<'*'>, the accessor
returns the element value (after assignmen <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	792	884	
==>pected =~ /\s*(.*)/;
		return "Was expecting $Parse::RecDescent::expected but found \"$1\" in <==
2	/Users/nnunley/parrot/config/auto/snprintf.pm	400	501	
==>onfigure::Step qw(cc_gen cc_build cc_clean cc_run);

$description = 'Testing snprintf';

@args = qw(ve <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5705	5830	
==>require "$pmc.dump";
 
        # there can be many libs
        my %libs = %{ $class->{flags}{lib} || {} };
        $pmc_libs{ <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5916	6041	
==>require "$pmc.dump";
 
        # there can be many libs
        my %libs = %{ $class->{flags}{lib} || {} };
        $pmc_libs{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	252410	252929	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_not",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 294,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 713 \"src/o <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1445	1543	
==>n $self->{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/gets the transform's arguments. <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1054	1152	
==>n $self->{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/gets the transform's arguments. <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	23816	23959	
==>n $fields[0];
}


sub gen_extract_tagged # ($opentag, $closetag, $pre, \%options)
{
	my $ldel    = $_[0];
	my $rdel    = $_[1];
	my $pre     = d <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15873	15966	
==>->set_source( $some_filehandle_object );
 $parser->run;

Or:

 my $parser = SomePodProcessor-> <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	1325	1509	
==>kefiles/root.in' => 'Makefile',
        commentType                    => '#',
        replace_slashes                => 1,
        conditioned_lines              => 1
    );
    genfil <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1138	1312	
==>$_[0]{'Thispara'} = ''   }
sub start_item_bullet { $_[0]{'Thispara'} = $FREAKYMODE ? '' : '* ' }
sub start_item_number { $_[0]{'Thispara'} = $FREAKYMODE ? '' : "$_[1]{'number' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432901	433465	
==>=> ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 497,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 84 \"src/ops/math.ops\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352299	352500	
==>o.ops\"\n  PIO_printf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352957	353158	
==>o.ops\"\n  PIO_printf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/config/gen/icu.pm	308	480	
==>gs);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Cwd qw(cwd);
use File::Basename;
use Parrot::Configure::Step qw(capture_output cc_gen cc_clean);

$descrip <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	491	602	
==>t verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    m <==
2	/Users/nnunley/parrot/config/gen/platform.pm	540	651	
==>t verbose);

sub runstep {
    my ($self, $conf) = @_;

    my $verbose  = $conf->options->get('verbose');
    m <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5487	5599	
==>C
}

=item C<run_core_finish($base)>

Returns the C code following the run core function.

=cut

sub run_core_fin <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3823	3935	
==>C
}

=item C<run_core_finish($base)>

Returns the C code following the run core function.

=cut

sub run_core_fin <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11904	11989	
==>24\noproof\sbasedon10 pod-L-url;}
{\*\cs24 \additive \i\lang1024\noproof\sbasedon10 po <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	15295	15486	
==>nd HTML file suffix added.

=cut

sub append_html_suffix
{
    my $self = shift;
    my $path = shift;
    
    return $path . '.html';
}

=item C<html_link($href, $text)>

Returns an HTML anc <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	7571	7706	
==>turn shift->skip('infix-rel');     }
sub skip_semicolon     { return shift->skip('semicolon');     }
sub skip_type          { return shi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1751	1861	
==>ape {
  foreach my $x (@_) {
    # Escape things very cautiously:
    $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\: <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1854	1964	
==>ape {
  foreach my $x (@_) {
    # Escape things very cautiously:
    $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\: <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	16635	16752	
==>= temp('N');
	my $nr = temp('N');
	$n = temp($t = 'N');
	print <<"EOC";
	$nl = $l->[1]
	$nr = $r->[1]
	$n = pow $nl, $ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5920	6018	
==>x.com>.

=head1 AUTHOR

Joshua Hoblitt C<jhoblitt@cpan.org>

=head1 SEE ALSO

F<docs/configuration. <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6769	6867	
==>x.com>.

=head1 AUTHOR

Joshua Hoblitt C<jhoblitt@cpan.org>

=head1 SEE ALSO

F<docs/configuration. <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3586	3697	
==>l X.c
	my $core_suffix;
	foreach $core_suffix (values %cores) {
		compile($_ . "_ops$core_suffix") foreach (@opl <==
2	/Users/nnunley/parrot/config/auto/alignptrs.pm	229	366	
==>um pointer alignment.

=cut

package auto::alignptrs;

use strict;
use vars qw($description $result @args);

use base qw(Parrot::Configure <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	17206	17311	
==>se. It takes the function
   signature for a C function we want to call and returns a pointer
   to a func <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1861	1955	
==>ver_number  { ++$_[0]{'Indent'} }
sub start_over_text    { ++$_[0]{'Indent'} }
sub start_over_b <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1429	1523	
==>ver_number  { ++$_[0]{'Indent'} }
sub start_over_text    { ++$_[0]{'Indent'} }
sub start_over_b <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	135	303	
==>e Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

packa <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	2064	2211	
==>sult('no');
        return $self;
    }

    # if '--version' returns a string assume that this is bison.
    # if this is bison pretending to be ya <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	20505	20729	
==>2] eq 'JUMP_IF_FALSE') {
	$code_l++;
	print "\t\t\t# UNARY_NOT\n\t\t\t# JUMP_IF_FALSE\n";
        ($opcode, $rest) = ($code[$code_l]->[2],$code[$code_l]->[4]);
	if ($rest =~ /to (\d+)/) {
	    $targ = "pc_$1";
	}
	$cmt ="\t\t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62631	62907	
==>,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorsoff",
                  "FLAGS" => "",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63276	63552	
==>,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorsoff",
                  "FLAGS" => "",
                  " <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	2434	2616	
==>elf->{PREFIX};
}


###############################################################################

=head2 BLOCK->set_symbol(NAME, VALUE)

Set a symbol in this block's symbol table. I <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571162	571421	
==>{\@1}} = Parrot_object_isa(interpreter, {{\@2}}, class);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572117	572376	
==>{\@1}} = Parrot_object_isa(interpreter, {{\@2}}, class);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	188	284	
==>o/Parser.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

packag <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	9665	9784	
==>d \"@{[ BUCKET ]}\": $!\n";
  truncate $fh, 0     or die "Couldn't truncate \"@{[ BUCKET ]}\": $!\n";

  store_fd [$buck <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	2117	2227	
==>compile
{
  my $self = shift;

  my ($root, $fh) = @_;

  $fh = FileHandle->new(">-") unless defined $fh;

  $s <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	32247	32408	
==>that's your job.

=cut

sub _my_exit {
    $? = $_[0];

    return 1;
}


=back

=end _private

=cut

$SIG{__DIE__} = sub {
    # We don't want to muck with death <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9484	9590	
==>ibs)
    );

    _run_command("$cc $ccflags $cc_args -I./include -c test.c", 'test.cco', 'test.cco', $verbo <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4828	4933	
==>array of C<Parrot::IO::File> instances.

Set C<$recursive> to true if you want all files in subdirectories <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642184	642322	
==>"
                            ],
                  "BODY" => "#line 194 \"src/ops/pmc.ops\"\n  {{\@1}} = {{\@2}}->vtable->type_keyed(interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643072	643210	
==>"
                            ],
                  "BODY" => "#line 194 \"src/ops/pmc.ops\"\n  {{\@1}} = {{\@2}}->vtable->type_keyed(interp <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	1895	2060	
==>'.Undef', 'apply_CALL'],
  ['',            'set', 'P6', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2294	2389	
==>decl($base)>

Optionally implemented in subclasses to return the C code for the run
core functio <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2745	2840	
==>decl($base)>

Optionally implemented in subclasses to return the C code for the run
core functio <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	16791	17019	
==><over type=text> region
    #   and any =item inside an <over type=block> region (rare)
    #   don't require any lookahead, but all others (bullets
    #   and numbers) do.

# TODO: winge about many kinds of directives in non-re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	821690	822128	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 931,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 120 \"src/ops <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	34903	35047	
==>2,
			"%" => 76,
			"*" => 80,
			".." => 71,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -65
	},
	{#State 128
		ACTION <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2491	2576	
==>s.il>,
F<examples/mops/mops.p6>,
F<examples/mops/mops.ps>,
F<examples/mops/mops.py>,
F <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	2491	2576	
==>s.il>,
F<examples/mops/mops.p6>,
F<examples/mops/mops.ps>,
F<examples/mops/mops.py>,
F <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	14975	15186	
==>.get_flags()
    if eh_flags != 0 goto NOT_TYPED_EH_START
    if handler_offset != pc goto NOT_TYPED_EH_START

    # Emit code to get the .NET exception object and check if it's of the type that
    # is accepted <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39142	39275	
==>p to break\n");
            }
        }
    }
    unshift @{ $parser->YYData->{functs} }, \@opcodes2;
    my $result = new_tmp( $ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	14033	14134	
==>($file->path);
    
    return $string;
}

=item C<write_html($source, $target, $rel_path, $item)>

Wr <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	16079	16228	
==>the object is OK, we'll not have re-thrown and will need to put it on
    # the stack. Emit code to deal with that.
PIRCODE
    my $pop_all = $srm->po <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	29795	29918	
==>and Test::Harness for
details).  Returns the reason (ie. the value of $TODO) if running as
todo tests, false otherwise.

tod <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	553	726	
==>lf = shift;

  if (@_) { $self->{FILE} = shift; }

  return defined $self->{FILE} ? $self->{FILE} : '<NO FILE>';
}


#
# line()
#

sub line
{
  my $self = shift;

  if (@_) { <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	47769	47910	
==>"an implicit subrule", $aftererror, $line,
				"( $code )");
			my $implicit = $rule->nextimplicit;
			$self->_generate("$implicit : $code",$r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	27698	27911	
==>= this;\n    argc = SIG_ELEMS(signature);\n    {{+=argc + 2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	28523	28736	
==>= this;\n    argc = SIG_ELEMS(signature);\n    {{+=argc + 2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	15463	15610	
==>lass isa delegate
            #
            # delegate has everything autogenerated, so these
            # methods aren't seen and not inherited pr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710657	710751	
==>C * const io = PIO_STDOUT(interpreter);\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711491	711585	
==>C * const io = PIO_STDOUT(interpreter);\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4051	4168	
==>tory parameter '".lc($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _DBLoad {
	{
		no strict ' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3848	3955	
==>tory parameter '".lc($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _DBLoad {
	{
		no strict ' <==
2	/Users/nnunley/parrot/config/inter/lex.pm	202	362	
==>TION

Determines whether C<lex> is installed and if it's actually C<flex>.

=cut

package inter::lex;

use strict;

use vars qw( $description @args $prompt $util <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	907	995	
==>ref($value) . ") is not!" unless UNIVERSAL::isa($value, qw(Jako::Construct::Expression::V <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	1971	2310	
==>@rules) . " out of 213 instructions.\n";


##############################################################################
# Subroutines.
##############################################################################

# Parse rules file and build a data structure.
# ############################################
sub parse_rules($) {
    # Ge <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	374	535	
==>mmands) {
  open my $fh, '<', $file;
  my $line = <$fh>;
  if ($line =~ /XXX Stub/i) {
    $file =~ m{.*/(.*)[.]pir$};
    push @skip, $1;
  }
  close $fh;
}

pri <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22352	22464	
==>ext . $title if $t->type eq 'text';
      }
      undef $title if $title =~ m<^\s*$>; # make sure it's contentful <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22836	22948	
==>ext . $title if $t->type eq 'text';
      }
      undef $title if $title =~ m<^\s*$>; # make sure it's contentful <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	922	1052	
==>at Parrot extensions (that is, Parrot subroutines
written in C, or some other compiled language, rather than in Parrot
bytecode) ma <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	2042	2166	
==>ubclass for the PMC
(C<< $self->{class} >>). C<$self> is the hash reference passed to
C<new()>, and C<$class> is C<Parrot::Pm <==
2	/Users/nnunley/parrot/config/auto/jit.pm	1959	2068	
==>name   => $osname
    );

    my $jitarchname = "$cpuarch-$osname";
    my ($jitcapable, $execcapable) = (0, 0 <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	70251	70362	
==>/$BETWEEN/gco && do { $min=$2; 1 }
	  || $grammar =~ m/$ATLEAST/gco && do { $min=$2; 1 }
	  || $grammar =~ m/$SU <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	69687	69889	
==>s")
		       for hints on fixing these problems.');
	}
	if ($ERRORS) { $ERRORS=0; return }
	return $self;
}


sub _addstartcode($$)
{
	my ($self, $code) = @_;
	$code =~ s/\A\s*\{(.*)\}\Z/$1/s;

	$self->{ <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	280	538	
==>d automatically from 'vtable.tbl' by
** tools/build/vtable_extend.pl
*/
EOH

open OUT, ">include/parrot/extend_vtable.h" or die $!;

print OUT $header, <<'EOF';

/*
Copyright (C) 2005, The Perl Foundation.
*/
#if !defined(PARROT_EXTEND_VTABLE_H_GUARD)
#define <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	10777	11044	
==>micolons
      [;\n\s]*
      (?:/\*.*?\*/)?    # C-like comments
    )*

    (METHOD\s+)?        #method flag

    (\w+\**)            #type
      \s+
        (\w+)           #method name
      \s*
        \( ([^\(]*) \)  #parameters
    }sx;

    my ($pre, $classnam <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	9701	9912	
==>'packtype_i' => 'l!',
             'packtype_n' => 'd',
             'packtype_op' => 'l!',
             'parrot_is_shared' => 0,
             'perl' => 'perl',
             'platform_asm' => 0,
             'pmc <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	21439	21547	
==>}','') },
];

sub extract_multiple (;$$$$)	# ($text, $functions_ref, $max_fields, $ignoreunknown)
{
	my $text <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765444	765685	
==>line",
                  "CODE" => 864,
                  "ARGS" => [
                              "ic",
                              "nc"
                            ],
                  "BODY" => "#line 320 \"src/ops/set.ops\"\n    if ({{ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	4197	4327	
==>n $type unless $type eq $UNDEFINED;
	
	return 'Executable' if $self->is_executable;
		
	return $UNDEFINED;
}

=item C<is_of_type($t <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	15595	15732	
==>@ops, aop('pushint', [ $i ]);
        push @ops, aop('goto', [ $next ]);
    }

    push @ops, $back => aop('popint', [ '<tmp>', 'branch m <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	10092	10242	
==>ter, {{\@$2}}/x;

        if ($op->full_name eq 'new_p_ic') {
            $jit_func = "Parrot_jit_vtable_newp_ic_op";
            $opbody =~ /vtable->( <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	80	202	
==>s/CSwitch.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::OpTrans::CSwitch - C Switch Transform

=he <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1253	1406	
==>\n]{55}         # Snare some characters from a line
         [^\n\ ]{0,50}     #  and finish any current word
        )
        \x20{1,10}(?!\n)   # captu <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1197	1350	
==>\n]{55}         # Snare some characters from a line
         [^\n\ ]{0,50}     #  and finish any current word
        )
        \x20{1,10}(?!\n)   # captu <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	60152	60245	
==>riginal string at
which the error was detected (although not necessarily where it occurred!)
P <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	6984	7135	
==>ate(\$N101,\$N100)
XANDY
	} elsif (@codey and not @codex) {
	push @{$code{$seg}->{code}},<<YNOTX;
@codey	noop			# Broke!
	_screen_locate($resulty)
YNOTX <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	8232	8353	
==>targets'}{$t} = $type;
    DEBUG > 2 and print "Learning to accept \"$t\" as target of type $type\n";
  }    
  return sor <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21957	22087	
==>pr1->[0],
        'arg2'   => $expr2->[0],
        'result' => $result,
    );
    return [ $result, \@opcodes ];
}

sub Bui <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	2663	2784	
==>print "diff @diff\n" if $opt{d};
    @diff;
}

sub get_dis {
    my ($cmd, $f) = @_;
    @dis = qx($cmd $f);
    print @di <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	894790	895019	
==>,
                              "i",
                              "ic",
                              "sc"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(i <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	213	455	
==>my $file = shift;
  my $text;
  my $tokref;
  my $token = '';

  open SOURCE,"<$file";
  while(<SOURCE>) {
    next if /^\s*;/;
    s/;.*$//;
    $text .= $_;
  }
  close SOURCE;

  for my $ch (split //,$text) {
    if($ch eq '(' or
       $ch <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	5239	5517	
==>ine, 'infix-rel', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^( = )(.*)$}x) {
      push @tokens, Jako::Token->new(
        $file, $line, 'assign', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^( \+\+ | -- )(.*)$}x) {
      push @t <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	1288	1375	
==>>new_item('', 'docs/memory_internals.pod'),
			$self->new_item('', 'docs/parrotbyte.pod' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5490	5720	
==>s $_->dfa_safe();
    }
    return 1;
}

# R|S
package Regex::Ops::Tree::alternate;

sub init {
    my ($self) = @_;

    if (@{ $self->{args} } == 0) {
        delete $self->{name};
        delete $self->{args};
        return $se <==
2	/Users/nnunley/parrot/config/init/defaults.pm	5686	5834	
==>d
        platform_asm => 0,
        as           => 'as',    # assembler

        cp    => '$(PERL) -MExtUtils::Command -e cp',
        lns   => $Co <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9673	9803	
==>nvenience.

=cut

sub process_text_token
{
    my $self = shift;
    my $token = shift;
    my $text = $token->text;
    
    esc($ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452904	453142	
==>nline",
                  "CODE" => 519,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 230 \"src/ops/math.ops\"\n  {{\@1 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	20504	20619	
==>ra->[1]{'~ignore'}   = (! $dont_ignore) || 0;
      $para->[1]{'~resolve'}  = $to_resolve || 0;

      DEBUG > 1 and <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46942	47046	
==>ps\"\n  if ({{\@1}} != 0) { Interp_debug_SET(interpreter,   {{\@1}}); }\n  else         { Interp_debug_CL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47725	47829	
==>ps\"\n  if ({{\@1}} != 0) { Interp_debug_SET(interpreter,   {{\@1}}); }\n  else         { Interp_debug_CL <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	11337	11493	
==>n'},
				 _get_args($elseclause) ] };
  }
  else {
    $transnode = { value => '#f' };
  }

  for my $clause ( reverse @clauses ) {
    $transnode = { childr <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	163	248	
==>Reserved.
# $Id: /parrot/config/gen/makefiles/dynclasses_pl.in 15833 2006-01-13T18:59: <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	21532	21637	
==>tr_t) $_->[3] }" } @mmds);
    my $isa = join(" ", $classname, @{ $self->{parents} });
    $isa =~ s/\s?de <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	4989	5171	
==>nfig{archname} !~ /86/) {
                    $opt =~ s/-mno-accumulate-outgoing-args//;
                }
            }
            $warns .= " $opt";
        }

        # if the use <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2405	2560	
==>f, $where_str) = @_;
    return "return $where_str";
}

=item C<expr_pop()>

Addresses on the stack are pointers into the bytecode array, and so
must be con <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	2254	2362	
==>onf->data->set('ccflags',   $ccflags);
        $conf->data->set('linkflags', $linkflags);
        print " (no <==
2	/Users/nnunley/parrot/config/auto/readline.pm	2054	2162	
==>onf->data->set('ccflags',   $ccflags);
        $conf->data->set('linkflags', $linkflags);
        print " (no <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	3706	3813	
==>final_destination) = return_data;\n    set_nci_S(interpreter, &st, final_destination);",
#      B => "PObj_b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427952	428160	
==>md_dispatch_v_pn(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428839	429047	
==>md_dispatch_v_pn(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
2	/Users/nnunley/parrot/languages/urm/urm-old.pl	6	214	
==>l -w
# urm.pl 
# 2003 (c) by Marcus Thiesen
# Maybe you can use it for debugging

use warnings;
use strict;
use Data::Dumper;

my @program;
my %register;
my $outreg;
open PROGRAM, $ARGV[0] or die "Couldn't get <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	666	800	
==>( '_antlr2.pir', $count )
                    :
                    Parrot::Test::per_test( '_antlr2_no_past.pir', $count );

    retur <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1505	1638	
==>map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
        return "return (0);"
    }
    else
    {
        return "if ((opcode_t *) <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2030	2162	
==>map_ret_abs($addr)\n";

    if ($addr eq '0')
    {
        return "return (0);"
    }
    else
    {
  	    return "if ((opcode_t *) <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	6757	6897	
==>TION>" if $Test::ALWAYS_CALLER;
    # message like "test #1 # TODO" confuse the harness. Escape desc #s.
    $out ~~ s:P5:g/#/\\#/;

    my $ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	16136	16299	
==>st->diag(@_);
}


=back

=head2 Module tests

You usually want to test if the module you're testing loads ok, rather
than just vomiting if its load fails.  For such <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	2716	2831	
==>e, which is probably the only time this
# script will ever be used, all of these defaults will get overridden.
my %o <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3629	3727	
==>$outhash)=@_;
	my($prm,$value);
	my($prmlst)={};

	while(($prm,$value)=splice(@$inarray,0,2)) { <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3441	3535	
==>$outhash)=@_;
	my($prm,$value);
	my($prmlst)={};

	while(($prm,$value)=splice(@$inarray,0,2)) { <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2046	2158	
==>y ($handler) = @_;

  if (not $self->prefix and $self->peer and $self->peer->prefix) {
    $self->prefix($self->p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1923	2035	
==>y ($handler) = @_;

  if (not $self->prefix and $self->peer and $self->peer->prefix) {
    $self->prefix($self->p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518458	518912	
==>sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 598,
                  "ARGS" => [
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 734 \"src/ops/math.ops\"\n <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6842	6986	
==>ack_depth
PIR
	}

	return $pir;
}

# Pre and post call hooks.
sub pre_call {
    my $self = shift;
    return <<'PIR'
# See if we've got a return <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	23874	23991	
==>setag, $pre, \%options)
{
	my $ldel    = $_[0];
	my $rdel    = $_[1];
	my $pre     = defined $_[2] ? $_[2] : '\s*';
	m <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	525	613	
==>less UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Identifier (" . ref($id <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	525	613	
==>less UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Identifier (" . ref($id <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	9740	9900	
==>e();	# "####"
		feedme();	# ;
	}
	while(1) {
		if ($type[CURR] eq "STMT" or $type[CURR] eq "COMP" or $type[CURR] eq "COMM") {
			last;
		}
		last if (iskeyword($ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	1313	1405	
==>Gesserit Litany Against Fear
	# Compiler version @{[VERSION]}@{[ grep $_=sprintf("\n\t#%22s % <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5947	6085	
==>$lex($self);
#DBG>				$debug & 0x01
#DBG>			and	print STDERR "Need token. Got ".&$ShowCurToken."\n";
			};

            $act=   exists <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5664	5797	
==>$lex($self);
#DBG>				$debug & 0x01
#DBG>			and	print STDERR "Need token. Got ".&$ShowCurToken."\n";
			};

            $act=   exists <==
2	/Users/nnunley/parrot/config/inter/lex.pm	990	1116	
==>elf->set_result('skipped');
        return $self;
    }

    my $prog;

    # precedence of sources for the program:
    # defa <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	987	1113	
==>elf->set_result('skipped');
        return $self;
    }

    my $prog;

    # precedence of sources for the program:
    # defa <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6427	6534	
==>i == 0 goto POST_BRANCH_switch_${CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0[i]
    ${ITEMP0} = ${NEXTPC} + j <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4365	4472	
==>i == 0 goto POST_BRANCH_switch_${CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0[i]
    ${ITEMP0} = ${NEXTPC} + j <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	4629	4750	
==>Wunreachable-code might be useful in a non debugging version
        );
        $warns = "";
        while (my ($vers, $op <==
2	/Users/nnunley/parrot/config/auto/gdbm.pm	1296	1522	
==>include');
        }
    }

    cc_gen('config/auto/gdbm/gdbm.in');
    if ($^O =~ /mswin32/i) {
        if ($cc =~ /^gcc/i) {
            eval { cc_build('', '-llibgdbm'); };
        } else {
            eval { cc_build('', 'g <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	28380	28504	
==>$op->{args} }, $lastback)
              unless $self->{DEBUG};
            return $self->wrap($op, $self->$method($op, @{ $op <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	1215	1361	
==>', 'docs/mmd.pod'),
			$self->new_item('', 'docs/strings.pod'),
			$self->new_item('', 'docs/memory_internals.pod'),
			$self->new_item('', 'docs/p <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3395	3494	
==>%{$self->{STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
}

sub YYLexer {
    my($self)=shift;

	$$s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3223	3316	
==>%{$self->{STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
}

sub YYLexer {
    my($self)=shift;

	$$s <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	8048	8231	
==>->{deferrable}
		? 'my $def_at = @{$thisparser->{deferred}};'
		: '') .
	'
	my $err_at = @{$thisparser->{errors}};

	my $score;
	my $score_return;
	my $_tok;
	my $return = undef;
	my $ <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	2795	2901	
==>loat8_t => 'double');
        print <<'END';

Can't find a float type with size 8, conversion ops might fai <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	8475	8579	
==>CI_N(n) get_nci_N(interpreter, &st, n)
#define GET_NCI_P(n) get_nci_P(interpreter, &st, n)

/*
 * set ret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	622533	622855	
==>DIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 701,
                  "ARGS" => [
                              "pc"
                            ],
                  "BODY" => "#line 189 \"src/ops/pic.ops\"\n    Parrot_MIC <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	18711	18858	
==>{itempos};

	my $item;
	my $i;

	for ($i = 0; $i < @{$self->{"items"}}; $i++)
	{
		$item = ${$self->{items}}[$i];

		$code .= preitempos() if $parse <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	2387	2498	
==>@_;
    return $self->convert($tree, $ctx);
}

sub convert_rx_end {
    my ($self, $tree, $ctx) = @_;
    return <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20728	20832	
==>p('add', [ $matchcount, 1 ]),
     $check => aop('lt', [ $matchcount, $min, $local_back ]),
      $next = <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4300	4419	
==>V,"<$fname") or die "Report this as a BUG: Cannot open $fname";
	while(<DRV>) {
                	/^\s*sub\s+_Parse\s*{ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4080	4197	
==>V,"<$fname") or die "Report this as a BUG: Cannot open $fname";
	while(<DRV>) {
                	/^\s*sub\s+_Parse\s*{ <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1330	1600	
==>ires();           # time N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1330	1600	
==>ires();           # time N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19870	20001	
==>priately is useful if you want to use the RTF
to spellcheck, and/or if you want it to hyphenate right.

Here are some notable values <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2923	3045	
==>num = 0;
	my $push_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we' <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1845	1967	
==>num = 0;
	my $push_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we' <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6604	6732	
==>int STDERR "Shift and go to state $act.\n";

					$$errstatus
				and	do {
					--$$errstatus;

#DBG>					$debug & 0x10
#D <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6297	6418	
==>int STDERR "Shift and go to state $act.\n";

					$$errstatus
				and	do {
					--$$errstatus;

#DBG>					$debug & 0x10
#D <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	4480	4579	
==>s exit
code.  If this is a problem, you probably have a huge test script.
Split it into multiple fil <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	43095	43219	
==>", ",@$label if $label;
    }
    $self->{code} .= "\n";
  }
}

sub new {
  my $class = shift;
  my $tree  = shift;
  my $sel <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1183	1315	
==>~  # A not-totally-brilliant wrapping algorithm:
      s/(
         [^\n]{55}         # Snare some characters from a line
         [^ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1127	1259	
==>~  # A not-totally-brilliant wrapping algorithm:
      s/(
         [^\n]{55}         # Snare some characters from a line
         [^ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	865	1028	
==>uc $code};
}

sub new
{
  my $class = shift;
  my ($type) = @_;

  my $token;

  if (UNIVERSAL::isa($type, 'Jako::Token')) {
    $token = $type;
    $type = $type-> <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19424	19634	
==>tback
#               $matchcount--
#               goto R.back
#         back: if $matchcount >= max goto rfail
#               R or rfail
#               $matchcount++
#         next:
#

# R<min,max>? ->  $mat <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19722	19913	
==>tback
#                 $matchcount--
#                 goto R.back
#           back: if $matchcount >= max goto rfail
#                 R or rfail
#                 $matchcount++
#          c <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	3071	3205	
==>$a,$b,$c,$d) = (A,B,C,D);
	my $i;
	for $i (0 .. (length $message)/64-1) {
		my @X = unpack 'V16', substr $message,$i*64,64;	
		($a,$b,$ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	2126	2283	
==>s);

  pass($test_name);
  fail($test_name);

  # UNIMPLEMENTED!!!
  my @status = Test::More::status;

  # UNIMPLEMENTED!!!
  BAIL_OUT($why);


=head1 DESCRIP <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3439	3550	
==>{fnlib}) {
      $fnlib = $props{fnlib}->value; # TODO: We should make sure its a string, somewhere.
    }
    e <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6103	6214	
==>{fnlib}) {
      $fnlib = $props{fnlib}->value; # TODO: We should make sure its a string, somewhere.
    }
    e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029735	1029837	
==>code_t *next = {{^+2}};\n  if ({{\@1}} < 0.0) {\n      real_exception(interpreter, next, NEG_SLEEP,\n\t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030577	1030679	
==>code_t *next = {{^+2}};\n  if ({{\@1}} < 0.0) {\n      real_exception(interpreter, next, NEG_SLEEP,\n\t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	317037	317312	
==>@1}}));\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i2_ovf",
                  "FLAGS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314117	314357	
==>@1}}));\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	3986	4212	
==>>c_header_item('', 'op'),
            $self->c_header_item('', 'oplib'),
        ),
        $self->new_group(
            'Bytecode', 
            '',
            $self->c_item(
                'Parrot Packfile API and utilitie <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	636	775	
==>} (0..31) },
    P => { map { $_ => 0 } (0..31) },
  };
};

sub _save {
  my $self  = shift;
  my $count = shift;
  my $type  = shift || 'I' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647321	647568	
==>E" => "function",
                  "CODE" => 723,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 229 \"src/ops/pmc.ops\"\n    {{\ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1107	1203	
==>ent->kind eq 'var') and ($self->ident->scope eq 'global')) {
    my $pmc_type = $self->ident->typ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1101	1197	
==>ent->kind eq 'var') and ($self->ident->scope eq 'global')) {
    my $pmc_type = $self->ident->typ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	24039	24134	
==>like fork() or symlinks), or maybe
you need an Internet connection and one isn't available.

B<I <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	14626	14891	
==>op reading now stop reading now stop reading now stop reading now stop
##
##############################################################################

sub _ponder_paragraph_buffer {

  # Para-token types as found in the buffer.
  #   ~Verbatim, ~Para, ~end, =head <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499511	499765	
==>= floatval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500274	500528	
==>= floatval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82309	82830	
==>AME" => "compile",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 103,
                  "ARGS" => [
                              "p",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 1196 \"src/ops/cor <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81416	81907	
==>AME" => "compile",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 102,
                  "ARGS" => [
                              "p",
                              "p",
                              "s"
                            ],
                  "BODY" <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1591	1706	
==>UOTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as they may contain spaces.
    $PATHQUOTE = '"';

    u <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	1595	1710	
==>UOTE = '';
if ($^O eq 'MSWin32') {
    # Paths need quoting as they may contain spaces.
    $PATHQUOTE = '"';

    u <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	328658	328974	
==>@1}}));\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_r4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6622	6714	
==>th
    goto POST_BRANCH_switch_${CURIC}_LOOP
POST_BRANCH_switch_${CURIC}_LOOP_EXIT:

POST_BRA <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4560	4652	
==>th
    goto POST_BRANCH_switch_${CURIC}_LOOP
POST_BRANCH_switch_${CURIC}_LOOP_EXIT:

POST_BRA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831747	832111	
==>> ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 941,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 192 \"src/ops/stack.ops\"\n  stack_push(inte <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	2186	2399	
==>.');
    }

    # note: need to run this a second time so the database is built.
    # should just use the build process to do it the first time.
    my $devnull = File::Spec->devnull;
    my $cmd = "cxref -raw -Ii <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	21980	22125	
==>ble($prefix, @r1);
        $pir .= "INS_BRANCH_$prefix$r2[0]->{'code'}:\n";
        $pir .= binary_dispatch_table($prefix, @r2);
    }

    # Retu <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32048	32187	
==>s not numeric.  Correct for this.
            $para->[1]{'number'} = $expected_value;
            $self->whine(
              $para->[1]{'st <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32457	32596	
==>s not numeric.  Correct for this.
            $para->[1]{'number'} = $expected_value;
            $self->whine(
              $para->[1]{'st <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227231	227423	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 530 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get_str <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228211	228403	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 530 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get_str <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	1900	2072	
==>arn "Extracting tests for $file\n";
            open my $tfh, '>>', $test;
            print {$tfh} $output;
            close $tfh;
        };
    }
    return;
}
##
## che <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673484	673744	
==>YPE" => "inline",
                  "CODE" => 754,
                  "ARGS" => [
                              "n",
                              "p"
                            ],
                  "BODY" => "#line 444 \"src/ops/pmc.ops\"\n    {{\@1}} = {{\@2} <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	1473	1603	
==>ld_load_flags  => $ld_share_flags,
        i_lib_pthread  => 1,              # XXX fake a header entry
        linkflags      => $l <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37484	37581	
==>'})
					if defined $::RD_TRACE;').'
		$Parse::RecDescent::lastexpected = ' . ($rule->hasleftmost( <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39887	39984	
==>'})
					if defined $::RD_TRACE;').'
		$Parse::RecDescent::lastexpected = ' . ($rule->hasleftmost( <==
2	/Users/nnunley/parrot/lib/Test/More.pm	6612	6750	
==>description of the test that will be printed
out.  It makes it very easy to find a test in your script when it fails
and gives others an id <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27019	27131	
==>p($rule->{'pop'}, $rule->{'push'});
		$pir .= "### pre_op\n";
		$pir .= sub_meta($pre_op, $mv, "pre_op for rule $ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	16643	16797	
==>ep, splice(@{$self->{"items"}}, -3));
		$self->{items}[-1]->sethashname($self);
	    }
	}
}

sub prevwasreturn
{
	my ( $self, $line ) = @_;
	unless (@{$sel <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	20122	20260	
==>0];
        DEBUG > 4 and print "    Now: ", $i-1, ":[$treelet->[$i-1]]\n";
        --$i;
        next; 
        # since we just pulled the <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	50989	51177	
==>f a
					       grammar (before the first rule 
					       is defined.");
				}
				else
				{
					local $::RD_CHECK = 1;
				}
			}
			elsif ($grammar =~ m/$AUTOSTUBMK/gco)
			{
				_par <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3156	3255	
==>lf->do_middle if $self->bare_output;
  return
   $self->do_beginning && $self->do_middle && $self->d <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4525	4624	
==>lf->do_middle if $self->bare_output;
  return
   $self->do_beginning && $self->do_middle && $self->d <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	3819	3988	
==>{TEXT};
            
            my $short_desc = $file->short_description;
            
            next unless $short_desc;
            
            next if grep {$_ eq <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	317	533	
==>/nm.pl parrot

=head1 DESCRIPTION

Portable frontend for C<nm(1)>; by default lists all the code and data
symbols in the object or archive files.

=head2 Command-Line Options

The following options can be used to limi <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	7782	7907	
==>ter_one goto loop_one_end
    item_one = shift iter_one 
    inc pos_one
    if item_one != item_two goto loop_one
    push re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649717	649903	
==>",
                              "kc"
                            ],
                  "BODY" => "#line 234 \"src/ops/pmc.ops\"\n    {{\@1}} = pmc_type_p(interpreter, {{\@2}});\n    {{+=3 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113908	114203	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114647	114942	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088925	1089210	
==>lice(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089873	1090158	
==>lice(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	9807	9960	
==>$N1 = atan op2
    .return ($N1)
neg_four:
    $N1 = op2 * op2
    $N1 = 1 - $N1
    $N1 = sqrt $N1
    .return ($N1)
# These next three are implemented i <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	292	546	
==>ptmp} ||= 'rx_ptmp';
    $ctx->{rx_tmp} ||= 'rx_itmp';
    $ctx->{rx_pos} ||= 'rx_pos';
    $ctx->{rx_len} ||= 'rx_len';
    $ctx->{rx_input} ||= 'rx_input';
    $self->SUPER::init_context($ctx);
}

sub pushop { "push" };
sub popop { "pop" };

sub output_ <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4306	4438	
==>group", @$pmcs ] )
          or die "partial link of $group failed ($?)\n";
    }

    # Link non-grouped PMCs individually
    my @u <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4410	4542	
==>group", @$pmcs ] )
          or die "partial link of $group failed ($?)\n";
    }

    # Link non-grouped PMCs individually
    my @u <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	15196	15389	
==>DE" => 20,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 247 \"src/ops/core.ops\"\n  opcode_t * const loc = I <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	7202	7422	
==>d / ($base / 100) )
            );
        }
        else {
            printf ("%-$max[$_ + 1]s  ", '-');
        }
    }
}

sub Longest {
    $_[0] = $_[1] and return if ! defined $_[0];
    $_[0] = $_[1] if $_[1] > $_[ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361625	361720	
==>line 281 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362524	362619	
==>line 281 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpret <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	24483	24606	
==>elf->{Todo_FH};
}


sub _new_fh {
    my($file_or_fh) = shift;

    my $fh;
    if( _is_fh($file_or_fh) ) {
        $fh = $f <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	2003	2111	
==>ub props  { return %{shift->{PROPS}}; }
sub args   { return @{shift->{ARGS}}; }

sub file   { return shift->{ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2839	2945	
==>ub props { return %{shift->{PROPS}}; }
sub args  { return @{shift->{ARGS}};  }

sub file  { return shift->{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009321	1009599	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compose",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010085	1010363	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compose",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3195	3324	
==>5', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            ' <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	6780	6941	
==>anches</th><th>Calls</th>
                 </tr>
                 <tr>
                 <td>Totals:</td>
                 <td>$totals{covered_lines} of $totals{li <==
2	/Users/nnunley/parrot/config/init/hints/aix.pm	2	108	
==>Copyright (C) 2005, The Perl Foundation.
# $Id: /parrot/config/init/hints/aix.pm 19593 2006-05-30T02:28:15. <==
2	/Users/nnunley/parrot/lib/Test/More.pm	31661	31864	
==>} : $DNE;

        push @Data_Stack, { type => 'HASH', idx => $k, vals => [$e1, $e2] };
        $ok = _deep_check($e1, $e2);
        pop @Data_Stack if $ok;

        last unless $ok;
    }

    return $ok <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3575	3688	
==>last unless defined $string and
          $string =~ m/(^|^.*?[^\\])\$((([A-Za-z][A-Za-z0-9_]*)\b)|({[A-Za-z][A-Za <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1963	2074	
==>last unless defined $string and
        $string =~ m/(^|^.*?[^\\])\$((([A-Za-z][A-Za-z0-9_]*)\b)|({[A-Za-z][A-Za <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20550	20653	
==>e;
}

1;

package Parse::RecDescent::Action;

sub describe { undef }

sub sethashname { $_[0]->{hashname <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	252	344	
==>int join("\n", @c), "\n====================== $tn\n" if @c;
	$tn++;
	open(OF, ">_testsuite.ba <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16083	16219	
==>e <stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vincent <jesse@bestpractical.com>

Yuval Kogman <nothingmuch@woobling. <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4402	4506	
==>ement dtypes index.
inc ${ITEMP0}
PIR
		$pir =~ s/\$push_num/$push_num/g;
		$push_num++;
	}

	# Return ge <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2818	2922	
==>ement dtypes index.
inc ${ITEMP0}
PIR
		$pir =~ s/\$push_num/$push_num/g;
		$push_num++;
	}

	# Return ge <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	1814	2020	
==>'PLATFORMS'),
            $self->new_item('Contains the version number of the distribution.', 'VERSION'),
            $self->new_item('The presence of this file indicates that the distribution is a developme <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	1129	1260	
==>ode',
	'cola' => 'Cola code',
	'cs' => 'C# code',
	'declarations' => 'Library declarations file',
	'def' => 'Library definitions fil <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724321	724420	
==>ODO Can this be localized? */\n  STRING *s = (VTABLE_get_string(interpreter, p));\n  if (s) {\n    i <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24789	24896	
==>ntarray, $textref) unless @match;
		return _succeed wantarray, $textref,
				$match[2], $match[3]+$match[5]+ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7622	7727	
==>ntarray, $textref) unless @match;
	return _succeed wantarray, $textref,
			$match[2], $match[3]+$match[5]+ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	33904	34036	
==>AILURE" if $treelet->[0] eq ''; # should never happen!
          DEBUG > 1 and print
           qq{Catching "$treelet->[$i][1]{'to'}" <==
2	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	717	803	
==>ress.pasm>, 
F<examples/benchmarks/stress.pl>, 
F<examples/benchmarks/stress1.pasm>, 
F <==
2	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	564	650	
==>ress.pasm>, 
F<examples/benchmarks/stress.pl>, 
F<examples/benchmarks/stress1.pasm>, 
F <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321900	322390	
==>,
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 377,
                  "ARGS" => [
                              "i",
                              "n"
                            ],
                  "BODY" => "#line 134 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (UINTVAL)((Parrot_UInt4)({ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	30478	30645	
==>xt that's
# introduced by the heading or item whose text is "Foo".)
# 
# Pod parsers may also note additional attributes including:
#

############# The "type" attribut <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661923	662010	
==>ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(inter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662839	662926	
==>ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(inter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396950	397179	
==>"p",
                              "ic",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpr <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17389	17504	
==>s wrong"
	t=t+1
loop until t>1

' Function test:  A, 3, 90
print chr$(65)
print int(3.1415)
print asc("Z")

' Logica <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2572	2703	
==>tStream -e \
   "exit Pod::Simple::XMLOutStream->filter(shift)->any_errata_seen" \
   thingy.pod

=head1 DESCRIPTION

Pod::Simple::X <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824588	824845	
==>n  {{\@1}} = UVal_str(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825659	825916	
==>n  {{\@1}} = UVal_str(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1359	1471	
==>is a subclass of L<Pod::Simple> and inherits all
its methods.)

You can use this class as the base class for a Po <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9493	9633	
==>db_desc)" : "";
        return ("set <rx_tmp>, <rx_stack>",
                $self->popop . " $reg, <rx_stack>",
                $self->dbprin <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	7432	7704	
==>\bops_addr\b/${bs}ops_addr/g;

    if ($suffix =~ /cg/) {
	push @cg_jump_table, "        &&PC_$index,\n";
    }
    elsif ($suffix eq '') {
        push @op_func_table, sprintf("  %-50s /* %6ld */\n",
            "$func_name,", $index);
    }
    $one_op .= "$definition $c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	306664	306962	
==>ss( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307457	307755	
==>ss( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	935740	935983	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "titlecase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936516	936759	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "titlecase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	4274	4565	
==>mokes {
  my $category = sub {
    return join "-",
      (map { $_[0]->{$_} } qw<branch cpuarch osname cc runcore harness_args>),
      $_[0]->{DEVEL} eq "devel" ? "dev" : "release",
  };

  my %cats;
  my @smokes = map { unpack_smoke($_) } glob "parrot-smoke-*.html";
  push @{ $cats{$categ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2631	2739	
==>andler->start_element({ Name => 'cond', Attributes => { kind => $cond } });
    $handler->start_element({ Nam <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3395	3503	
==>andler->start_element({ Name => 'cond', Attributes => { kind => $cond } });
    $handler->start_element({ Nam <==
2	/Users/nnunley/parrot/config/gen/config_h.pm	1714	1997	
==>= $conf->options->get('define');

    if ($define) {
        my @vals = split /,/, $define;
        print HH <<EOF;

/*
 * defines from commandline
 */

EOF
        for (@vals) {
            print HH "#define PARROT_DEF_" . uc($_), " 1\n";
        }

    }

    print HH <<EOF;

/*
 * <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	14737	14909	
==>rep|map|return
					)#gcx)
		{
			$patvalid = 1;
			next;
		}

		if ( _match_codeblock($textref, '\s*', $ldel_inner, $rdel_inner, $ldel_inner, $rdel_inner, $rd) )
		{
			$pa <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1100	1215	
==>lse { # faster
    while(($key,$value) = each %{$_[2]}) {
      unless($key =~ m/^~/s) {
        next if $key eq 'st <==
2	/Users/nnunley/parrot/lib/Test/More.pm	25035	25173	
==>these lines.

=back

=cut

use vars qw(@Data_Stack %Refs_Seen);
my $DNE = bless [], 'Does::Not::Exist';
sub is_deeply {
    unless( @_ == 2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243882	243991	
==>],
                  "BODY" => "#line 632 \"src/ops/cmp.ops\"\n  STRING* l = VTABLE_get_string(interpreter, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244814	244923	
==>],
                  "BODY" => "#line 632 \"src/ops/cmp.ops\"\n  STRING* l = VTABLE_get_string(interpreter, {{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	20754	20934	
==>d print " Making note to treat contents as ",
        ($to_resolve ? 'verbatim/plain' : 'data'), " paragraphs\n";
      DEBUG > 1 and print " (Stack now: ", $self->_dump_curr_open() <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	13446	13623	
==>op1.'get_shape'()
.end

.sub unicode:"dyadic:\u2374" :multi (APLVector,APLVector) # reshape
    .param pmc op1
    .param pmc op2

    # XXX is a clone needed here?
    op2.'set_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549978	550085	
==>bject;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+3}};\n  i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551279	551386	
==>bject;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+3}};\n  i <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7353	7492	
==>to consider the previous paragraph as done.
                
        push @$paras, $new; # the new incipient paragraph
        DEBUG > 1 and <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19886	19978	
==>le',[$temp_0,$temp_1,"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326784	327117	
==>"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 383,
                  "ARGS" => [
                              "p",
                              "n"
                            ],
                  "BODY" => "#line 154 \"src/ops/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_nat <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	419	556	
==>output_isnt       => 'isnt_eq'
                        );

foreach my $func ( keys %language_test_map ) {

  *{"Parrot::Test::Tcl::$func"} <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	796	922	
==>->outdent;
  $compiler->emit(".end");

  foreach my $construct ($self->content) {
    if (
         $construct->isa("Jako::Cons <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	15757	15879	
==>c Operators:
    #
    #   <var> = <value> <op> <value>;
    #
    # TODO: Can't really support shift amount as arg until s <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2735	2850	
==>ded,\nwith the heads of these indescribable files.\n";
    }
    print "\n";
    my @no_descriptions;
    foreach (@ <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	428	589	
==>'$'.'id $';
my $charset_dir = File::Spec->catdir(qw/ src charset /);

#
# charset tables to create
#
my %table = (
    "en_US.iso88591" => "Parrot_iso_8859_1_type <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	3703	3814	
==>ntrol  { return shift->is('next', 'last', 'redo'); }
sub is_value         { return shift->is('ident', 'literal') <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	910	1205	
==>ailing pattern delimiters.

(Hint: if you try using qr// for the $pattern then you're misreading
what this does.)

subrules: In addition to a simple scalar string, the pattern can be a
reference to an array of arrays. Containing subrules that refer to each
other. In this form:

    [
        [ n <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3008	3180	
==>ailing pattern delimiters.

(Hint: if you try using qr// for the $pattern then you're misreading
what this does.)

=cut

sub pgeglob_is {
    my ($target, $pattern) = (shift <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	11235	11501	
==>ALS {
    my ($n, $c, $cmt) = @_;
    # TODO $cmt
    my $pad = temp('P');
    print <<EOC;
	peek_pad $pad      # ???
EOC
    push @stack, [-1, $pad, 'P'];
}

sub STORE_NAME {
    my ($n, $c, $cmt) = @_;
    if ($make_f) {
	$make_f = 0;
	print_stack();
	print "# make <==
2	/Users/nnunley/parrot/lib/Test/More.pm	4675	4837	
==>ass) = shift;

    my $caller = caller;

    $Test->exported_to($caller);

    my $idx = 0;
    my @plan;
    my @imports;
    while( $idx <= $#_ ) {
        my $i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4144	4324	
==>Extra arguments!" if @_;

  return $self->{SYMBOLS}{$name};
}


###############################################################################

=head2 BLOCK->symbol_names()

Return <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	318459	318737	
==>.ops\"\n  {{\@1}} = (INTVAL)((Parrot_UInt2)({{\@1}}));\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	4063	4160	
==>->full_name;
}

=item C<arg_types()>

Returns the types of the op's arguments.

=cut

sub arg_type <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19023	19130	
==>5-point)
that the header on each page will appear in.  The header
is usually just "I<modulename> p. I<pagenu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054460	1054559	
==>get null global.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055587	1055686	
==>get null global.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global_p(interpreter, {{\@2}}, <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	5556	5739	
==>n-ansi system includes are used:\n";
    foreach my $include (sort keys %system_include) {
        if (! exists($ansi_c89_header{$include})) {
            print "    $include, included <==
2	/Users/nnunley/parrot/config/gen/icu.pm	1768	1907	
==>ure_output("$icuconfig --ldflags");
            if (defined $icushared) {
                chomp $icushared;
                $icushared =~ s/ <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1809	1928	
==>ort {
    my $test := $got ~~ $expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## unlik <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17554	17747	
==>t]);
  $self->_add_inst ('', 'eq',[$type,'.Undef', "DONE_$label"]);
  $self->_add_inst ('', 'ne',[$type,'.Array', "ERR_$label"]);
  $self->_add_inst ('', 'inc',[$return]);
  $self->_add_inst ('' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19579	19672	
==>.

(This method tolerates "AUTHORS" instead of "AUTHOR" too.)

=item $description_name = $pars <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	795	889	
==>anscript of the svn:ignore properties
# of the directories in the Parrot subversion repository. <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3650	3744	
==>anscript of the svn:ignore properties
# of the directories in the Parrot subversion repository. <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	25375	25512	
==>ter\""
      );
      return;
    }
    
    if(grep $new_letter eq $_, @Known_formatting_codes) {
      DEBUG > 2 and print " $new_letter <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10269	10409	
==>: aborting.\n";

			return(undef);
		};

		#shift the error token

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Shift \$error tok <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9809	9941	
==>: aborting.\n";

			return(undef);
		};

		#shift the error token

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Shift \$error tok <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	1307	1418	
==>l;
my %ansi_c89_header;

my ($mode, @files) = @ARGV;

if ($mode !~ /^(source|object)$/ || ! @files) {
    die "U <==
2	/Users/nnunley/parrot/config/inter/encoding.pm	1371	1543	
==>coding_build .= <<END
src/encodings/$encoding\$(O): src/encodings/$encoding.h src/encodings/$encoding.c \$(NONGEN_HEADERS)


END
    }

    # build list of libraries for lin <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	21	136	
==>r;

use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

$VERSION   = '0.01';
@ISA       = qw(Ex <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	24	139	
==>r;

use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

$VERSION   = '0.01';
@ISA       = qw(Ex <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326123	326322	
==>S" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 149 \"src/ops/dotgnu.ops\"\n  {{\@1}}->vtable->set_intege <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92308	92584	
==>CODE" => 114,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 43 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2592	2734	
==>File::Spec->abs2rel($path, $self->path);

    # some (all?) versions of File::Spec->abs2rel() prior to 3.13 return ''
    # instead of '.' to i <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2406	2498	
==>$_[0]->emit_par( 0) }
sub end_item_bullet { $_[0]->emit_par( 0) }
sub end_item_number { $_[0] <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1974	2066	
==>$_[0]->emit_par( 0) }
sub end_item_bullet { $_[0]->emit_par( 0) }
sub end_item_number { $_[0] <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	8493	8596	
==>G(i) REG_INT(jit_info->cur_op[i])
#define NREG(i) REG_NUM(jit_info->cur_op[i])
#define PREG(i) REG_PMC(j <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	6059	6202	
==>of name clash
    #     namespace <=> classname
    # TODO mange class namespace
    print <<EOC;
	# new_pad 0
	.local pmc None
	None = new .Non <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	918	1015	
==>.
For example, parsing a "=head1 ..." line will give you
a start-token with the tagname of "head1" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1346	1443	
==>.
For example, parsing a "=head1 ..." line will give you
a start-token with the tagname of "head1" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18244	18360	
==>t# Goto $syms[CURR]\n";
}
sub parse_gosub {
	feedme;
	create_label();

	push @{$code{$seg}->{code}}, <<GOSUB;	
	bsr $ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	1599	1771	
==>tement, if the body is empty then
make a cast if needed.

This method is imported by subclasses.

=cut

sub gen_ret {
    my ($method, $body) = @_;

    my $ret;
    if ($bo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113339	113550	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114077	114288	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io" <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39570	39696	
==>eth);
    ${func_ret}Parrot_run_meth_fromc_args$ret_type(interpreter, sub,
        pmc, meth, "$sig"$arg);
    $ret
}

EOC
}

p <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	20453	20645	
==>se_nums) = @_;

    if( defined $use_nums ) {
        $self->{Use_Nums} = $use_nums;
    }
    return $self->{Use_Nums};
}

=item B<no_header>

    $Test->no_header($no_header);

If set to true <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936306	936559	
==>tlecase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937083	937336	
==>tlecase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20764	20930	
==>8,
		GOTOS => {
			'@9-2' => 116
		}
	},
	{#State 62
		DEFAULT => -52
	},
	{#State 63
		ACTIONS => {
			"," => 66,
			"=" => 117
		},
		DEFAULT => -31
	} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	17553	17696	
==>\~",        # Latin-1 non-breaking space
  "\xAD" => "\\-",        # Latin-1 soft (optional) hyphen

  # CRAZY HACKS:
  "\n" => "\\line\n",
  "\ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	36110	36212	
==>elimiter specification, then that type of quote will be correctly handled.
for example, if C<$text> is: <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	599	739	
==>f ($part =~ /^\%/) {
            push @ops, $self->output_print(substr($part, 2, -1));
        } else {
            $part =~ s/(["'\\])/\\$1/ <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	8135	8261	
==>@args) = @_;
    
    my $usage = create_usage(@args);
    my $code  = "bad_args: \n"
              . ".throw('wrong # args: sh <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	597	774	
==>Docs::Section::Info;
use Parrot::Docs::Section::Docs;
use Parrot::Docs::Section::Examples;
use Parrot::Docs::Section::PMCs;
use Parrot::Docs::Section::DynaPMCs;
use Parrot::Docs: <==
2	/Users/nnunley/parrot/config/init/hints/freebsd.pm	232	339	
==>$conf->data->get('libs');

    # get rid of old pthread-stuff, if any
    $libs =~ s/(-lpthreads|-lc_r)\b\s* <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	2724	2823	
==>ocs_directory, $silent);
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::Docs::Section::Info>

= <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Compilers.pm	267	466	
==>PTION

A documentation section describing all compilers in Parrot.

=head2 Class Methods

=over

=cut

package Parrot::Docs::Section::Compilers;

use strict;
use warnings;

use base qw( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	257	364	
==>8089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expression;

use base qw(Jako::C <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	385	476	
==>$DEFVAR, $cur_func, $lambda_count,
   %main_names, %namespace, %may_be_none);
$DIS = 'python <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	672	822	
==>mon {
	feedme();
	while($type[CURR] !~ /COMP|COMM|STMT/) {
		$var=$syms[CURR];
		feedme();
		next if $var eq ",";
		my $array=0;
		if ($syms[CURR] eq " <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	1402	1532	
==>->add(' ', ldflags   => '-L/sw/lib');
            $conf->data->add(' ', ccflags   => '-I/sw/include');
        }
    }

    cc_gen( <==
2	/Users/nnunley/parrot/config/auto/readline.pm	1491	1621	
==>->add(' ', ldflags   => '-L/sw/lib');
            $conf->data->add(' ', ccflags   => '-I/sw/include');
        }
    }

    cc_gen( <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2040	2178	
==>lf,$class);
}

sub YYParse {
    my($self)=shift;
    my($retval);

	_CheckParams( \@params, \%params, \@_, $self );

	if($$self{D <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1968	2097	
==>lf,$class);
}

sub YYParse {
    my($self)=shift;
    my($retval);

	_CheckParams( \@params, \%params, \@_, $self );

	if($$self{D <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	15563	15666	
==>lude/parrot/op.h
        or_flag(\$jumps, "PARROT_JUMP_RELATIVE")   if ($branch);
        or_flag(\$jump <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048348	1048468	
==>}};\n    {{\@1}} = Parrot_get_global(interpreter, NULL, {{\@2}}, next);\n    {{+=3}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049272	1049392	
==>}};\n    {{\@1}} = Parrot_get_global(interpreter, NULL, {{\@2}}, next);\n    {{+=3}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566737	567060	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "does",
                  "FLAGS" => ":object_base",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567631	567954	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "does",
                  "FLAGS" => ":object_base",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2859	2975	
==>e current
    # working dir to be '.'.
    return (defined $rel_path and $rel_path eq '') ? '.' : $rel_path;
}

=item <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	16321	16515	
==>DIVIDE
{
    my ($n, $c, $cmt) = @_;
    binary('/', $cmt);
}
sub BINARY_POWER
{
    my ($op, $cmt) = @_;
    my $r = pop @stack;
    my $l = pop @stack;
    my ($t, $n);
    if ($r->[2] eq 'I' & <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9634	9748	
==>uses find_symbol() to locate a matching
symbol, and then returns that symbol's access (const or not).

=cut

sub ac <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79559	79839	
==>agedStruct);\n      PMC_data({{\@1}}) = p;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81080	81360	
==>agedStruct);\n      PMC_data({{\@1}}) = p;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4546	4669	
==>ck();
      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $token);
      my $label = Jako::Constru <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	10792	10894	
==>ck();
      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $token);
      my $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6179	6296	
==>fix-rel');     }
sub require_semicolon     { return shift->require('semicolon');     }
sub require_type          { ret <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3472	3579	
==>{
    my ($self, $reg, $dest) = @_;
    $reg = value($reg);
    return "goto " . $self->output_label_use($de <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	531	617	
==>'overflow';
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	365	451	
==>'overflow';
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	3118	3341	
==>est::proclaim($test, $desc, $todo, $got, "&compare_func.name() $expected", $depends);
}

## isa_ok

sub isa_ok (Any|Junction|Pair $ref is rw, Str $expected_type, Str $desc?, :$todo, :$depends) returns Bool is export {
    my <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	2612	2738	
==>file>) {
        next if defined($ignorePattern) && /$ignorePattern/;
        $sum += unpack("%32C*", $_);
    }
    close($fil <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549902	550000	
==>> "#line 56 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *nex <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551203	551301	
==>> "#line 56 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *nex <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	223	394	
==>sub get_out_fn {
    my $self = shift;
    my ( $count ) = @_;

    return Parrot::Test::per_test( '.gnu_out', $count );
}

sub get_test_prog {
    my $self = shift;
    my <==
2	/Users/nnunley/parrot/tools/dev/as2c.pl	1372	1730	
==>, " /* $1: */\n";
	}
	elsif ($in_comment) {
	    print " * $_\n";
	}
    }
    print "    0x00\n";
    print "};\n";
    close IN;
}

sub add_glue {
    my $s = shift;
    open IN, "<$s" or die "Can't read '$s': $1";
    while (<IN>) {
	if (/\/\*INTERFACE/) {
	    my $text = "";
	    while (<IN>) {
		last if (/INTERFACE\*\//);
		$text .= $_;
	    }
	    $te <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	25611	25957	
==>M}) {
                unlink $out_f;
                unlink $build_f;
                unlink $exe_f;
                unlink $obj_f;
                unlink $pdb_f;
                unlink $ilk_f;
            }

            return $pass;
        }
    }
}

Parrot::Test::_generate_functions();

=head1 SEE ALSO

=over 4

=item F<t/harness>

=item F<d <==
2	/Users/nnunley/parrot/config/auto/jit.pm	341	447	
==>warnings;

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Configure::Step qw(copy_if_ <==
2	/Users/nnunley/parrot/config/auto/socklen_t.pm	297	392	
==>warnings;

use base qw(Parrot::Configure::Step::Base);

use Config;

use Parrot::Configure::Step <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	124	338	
==>C) Jonathan Worthington 2005-2006
# #############################################################################
# Configure Script
# ################
# This file detects various configuration settings and gene <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5106	5327	
==>execution: $@\n";
            return;
        }

        # did the step return itself?
        eval { $ret->can('result'); };
        # if not, report the result and return
        if ($@) {
            my $result = $step- <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	21108	21283	
==>_flag
#               if (haveTries_flag) goto R.back
#               goto lastback
#         next:
#
# R*? ->        pushindex
#               goto next
#        rfail: popint <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	12158	12272	
==>>_apply_binmode($source, ':raw');
  #binmode($source, ":raw");

  return;
}

#:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.: <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3588	3701	
==>', $val1, $val2, $dest);
}

sub output_if {
    my ($self, $reg, $dest) = @_;
    $reg = value($reg);
    return " <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3282	3395	
==>', $val1, $val2, $dest);
}

sub output_if {
    my ($self, $reg, $dest) = @_;
    $reg = value($reg);
    return " <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	5377	5478	
==>ototyped$meth $cmt
EOC
    my (@params, $k, $v, $params);
    while ( ($k, $v) = each(%{$def_arg_names <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	30641	30899	
==>nd $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $lbl_end;
            }
        }
    }
    push @opcodes, @{$block};
    push @opcodes, new BinaryOp(
        $parser,
        'op'     => 'add <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	35188	35356	
==>nd $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $lbl_end;
            }
        }
    }
    push @opcodes <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	1264	1427	
==>e, $expected, $description)> 

Runs a langugage test and passes the test if a string comparison
of the output with the expected result it true.

=item C<language_ou <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	15666	15773	
==>$curr_open = ($self->{'curr_open'} ||= []);

  my $scratch;

  DEBUG > 10 and print "# Paragraph buffer: <<" <==
2	/Users/nnunley/parrot/config/init/defaults.pm	3572	3792	
==>},      # executable files extension
        cc_o_out => '-o ',              # cc object output file

        # cc executable output file (different on Win32)
        cc_exe_out => '-o ',

        # prefix for ldflags (ne <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	35976	36131	
==>Like L<I like the strictness|strict>
      DEBUG > 3 and
         print "  Peering at L content for a '|' ...\n";
      for(my $j = 0; $j < @ell_content; ++ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921023	921282	
==>{{\@1}}=Parrot_psprintf(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921916	922175	
==>{{\@1}}=Parrot_psprintf(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2412	2529	
==>sym->line, $sym->file);
  }

  #
  # Now that we've decided to actually declare the constant, we will place its
  # de <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2159	2276	
==>sym->line, $sym->file);
  }

  #
  # Now that we've decided to actually declare the constant, we will place its
  # de <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	7031	7148	
==>EBUG > 1 and print "Token buffer now has ",
   scalar(@{$self->{'token_buffer'}}), " items in it.\n";
  return;
}

#@@ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5100	5257	
==>lse {
            push @ops, "goto $pass if <rx_tmp> >= $first;";
        }
    }
    push @ops, "goto $fail;";

    push @ops, $self->output_label_def($passL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846629	846720	
==>line 56 \"src/ops/string.ops\"\n  STRING *s;\n  s = string_chr(interpreter, (UINTVAL){{\@2}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847425	847516	
==>line 56 \"src/ops/string.ops\"\n  STRING *s;\n  s = string_chr(interpreter, (UINTVAL){{\@2}} <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	6833	7074	
==>($len%2 ? $slash : '');
            }eg;
            # replace \* with \\*, so make will not eat the \
            $line =~ s{(\\\*)}{\\$1}g;
        }
 
        print $out $line;
    }

    close($in)  or die "Can't close $source: $!";
    c <==
2	/Users/nnunley/parrot/config/auto/signal.pm	1051	1166	
==>t)" if $verbose;
    }
    cc_clean();

    cc_gen('config/auto/signal/test_2.in');
    eval { cc_build(); };
    un <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	6117	6275	
==>"Got an undefined number of tests.  Looks like you tried to ".
                "say how many tests you plan to run but made a mistake.\n";
        }
        el <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6655	6796	
==>$(I-1)
         A$(I-1)=A$(I)
         A$(I)=B$
         ' SWAP A$(I - 1), A$(I)
      END IF
   NEXT
WEND
 ' CLS
FOR I = 1 TO 4
   PRINT A$(I <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16308	16449	
==>$(I-1)
         A$(I-1)=A$(I)
         A$(I)=B$
         ' SWAP A$(I - 1), A$(I)
      END IF
   NEXT
WEND
 ' CLS
FOR I = 1 TO 4
   PRINT A$(I <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1326	1519	
==>[],
        data    => Parrot::Configure::Data->new,
        options => Parrot::Configure::Data->new,
    };

    bless $self, ref $class || $class;

    return $self;
}

=back

=head3 Object Me <==
2	/Users/nnunley/parrot/tools/dev/symlink.pl	428	535	
==>cwd  = getcwd();

$self = readlink($self) while -l $self;

$self = File::Spec->catfile($cwd, $self)
    unle <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	128	349	
==>2Z petdance  $

=head1 NAME

tools/build/ops2pm.pl - Generate Perl module from operation definitions

=head1 SYNOPSIS

 $ perl tools/build/ops2pm.pl [--help] [--no-lines] input.ops [input2.ops ...]
 $ perl tools/build/ops2 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1781	1896	
==>ctx, $pass_label, $fail_label, %options) = @_;

    $options{state} ||= global_state();

    my $trees = expr_to_tre <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3	176	
==>perl -w
# Copyright (C) 2001-2006, The Perl Foundation.
# $Id: /parrot/lib/Parrot/OpsFile.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::OpsFile - Ops <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	12555	12703	
==>h colspan="11" class="indent0"><tmpl_var name=name></th></tr>
      <tmpl_loop name=categories>
        <tr><th colspan="12" class="indent1"><tmpl_va <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2500	2610	
==>tant, we will place its
  # definition into the block at the top of the block stack. We fill in the
  # IDENT e <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2247	2357	
==>tant, we will place its
  # definition into the block at the top of the block stack. We fill in the
  # IDENT e <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7297	7427	
==>eq 'ARRAY' ? join('|', @{$options{ignore}})
		    : defined($options{ignore})	       ? $options{ignore}
		    :					 ''
		    ;

	i <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24299	24429	
==>eq 'ARRAY' ? join('|', @{$options{ignore}})
		    : defined($options{ignore})	       ? $options{ignore}
		    :					 ''
		    ;

	i <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2820	2964	
==>f, $addr) = @_;
    return "opcode_to_prederef(interpreter, $addr)";
}

=item C<expr_offset($offset)>

=item C<goto_offset($offset)>

=item C<got <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	736	918	
==>=> 'sc',
    INT_REG      => 'i',
    NUM_REG      => 'n',
    PMC_REG      => 'p',
    STRING_REG   => 's',
    STR_REG      => 's',
);

my $core_numops = scalar @{$Parrot::OpLib::co <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	950	1041	
==>rrot/Vtable.pm'),
		),
		$self->new_group('IO', '',
			'lib/Parrot/Distribution.pm', 'lib/Pa <==
2	/Users/nnunley/parrot/lib/Test/More.pm	14288	14404	
==>ail>

  pass($test_name);
  fail($test_name);

Sometimes you just want to say that the tests have passed.  Usually
th <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	350	447	
==>d comparisons.

Calculates a value for M ops/s (million operations per second) using
integer arith <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	346	443	
==>d comparisons.

Calculates a value for M ops/s (million operations per second) using
integer arith <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4389	4491	
==>n $where_str";
}

=item C<restart_address($address)>

Implemented in subclasses to return the C code fo <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	463	579	
==>d
F<src/pmc/null.pl>.

=head2 Functions

The following functions are exported:

=over 4

=cut

package Parrot::Vtable <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	1566	1684	
==>n holds the char's US-ASCII numeric value, which we'll
        #  now go get the local equivalent for.
    }

    # It' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846652	846749	
==>g.ops\"\n  STRING *s;\n  s = string_chr(interpreter, (UINTVAL){{\@2}});\n  {{\@1}} = s;\n  {{+=3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847448	847545	
==>g.ops\"\n  STRING *s;\n  s = string_chr(interpreter, (UINTVAL){{\@2}});\n  {{\@1}} = s;\n  {{+=3}} <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4018	4119	
==>$pir .= "\${ITEMP0} = 0\n";
	for (1..$pushes) {
		$pir .= <<'PIR';
# Increment stack depth.
inc stack_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2434	2535	
==>$pir .= "\${ITEMP0} = 0\n";
	for (1..$pushes) {
		$pir .= <<'PIR';
# Increment stack depth.
inc stack_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	29694	29941	
==>item' outside of any '=over'"
          );
          unshift @$paras,
            ['=over', {'start_line' => $para->[1]{'start_line'}}, ''],
            $para
          ;
          next;
        }
        
        
        my $over_type = $over->[1 <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12825	12958	
==>LF           # Macro: DYNSELF
      \(\s*(.*?)\)      # capture argument list
     /"pmc->vtable->$method(" . full_arguments($1) . ')' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	288667	289186	
==>"NAME" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 336,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 935 \"src/ops/cmp <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	2	124	
==>$Id: /parrot/languages/scheme/Scheme/Test.pm 4793 2005-05-31T14:22:35.671857Z svm  $

package Scheme::Test;

use strict;
us <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	713	814	
==>y $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->nix <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	179	280	
==>y $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->nix <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862540	862890	
==>2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "length",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [ <==
2	/Users/nnunley/parrot/tools/dev/cc_flags.pl	1026	1150	
==>//) {
	$regex = qr/^\Q$1\E$/;
    }
    else {
	die "syntax error in $cflags: line $., $_\n";
    }

    for (;;) {
	if (s/^( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	12242	12556	
==>1;

__END__

###############################################################################
###############################################################################

=head1 VERSION

$Id: /parrot/languages/jako/lib/Jako/Construct/Block.pm 19606 2006-05-30T15:08:05.048089Z coke  $

=head1 AUTHOR

Gregor N. P <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	422	515	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_element_start {
  # ($self, $element_name, $attr_hash <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	421	514	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_element_start {
  # ($self, $element_name, $attr_hash <==
2	/Users/nnunley/parrot/lib/Test/More.pm	18083	18267	
==>ied to use '$module'.
    Error:  $@
DIAGNOSTIC

    }

    return $ok;
}

=item B<require_ok>

   require_ok($module);
   require_ok($file);

Like use_ok(), except it requires the $mod <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147991	148278	
==>=> 180,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 98 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567355	567565	
==>",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 213 \"src/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->does(interpreter <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	15060	15200	
==>usable_regex = undef;

    return $usable_regex unless defined $regex;

    my($re, $opts);

    # Check for qr/foo/
    if( ref $regex eq 'R <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8400	8513	
==>o","Again",d
dim c$(1)
for i = 1 to 20 : read c$(i) : next
print
for i = 1 to 20 step 4
  print c$(i);tab$(12);c$( <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21264	21377	
==>o","Again",d
dim c$(1)
for i = 1 to 20 : read c$(i) : next
print
for i = 1 to 20 step 4
  print c$(i);tab$(12);c$( <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	12609	12772	
==>h></tr>
      <tmpl_loop name=categories>
        <tr><th colspan="12" class="indent1"><tmpl_var name=catname></th></tr>
        <tmpl_loop name=smokes>
          < <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	673	777	
==>e::PullParser>, you might
get an object of this class.

This is a subclass of L<Pod::Simple::PullParserTo <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	579	683	
==>e::PullParser>, you might
get an object of this class.

This is a subclass of L<Pod::Simple::PullParserTo <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5652	5796	
==>T", "$stem$O")) {
        run(partial_link_cmd("$stem$LOAD_EXT", $libs, [ "$stem$O" ]))
          or die "partial link $stem$LOAD_EXT failed ($?) <==
2	/Users/nnunley/parrot/tools/dev/pbc_header.pl	1422	1555	
==>k "cc", $major, $minor;
	seek F, 6, 0;	# pos 6: pad = finger_print
	print F $fp;
	close F;
    }
}

sub pbc_info {
    for my $f (@ARG <==
2	/Users/nnunley/parrot/config/auto/socklen_t.pm	81	303	
==>m 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/socklen_t.pm - Is there a socklen_t

=head1 DESCRIPTION

Determines whether there is a socklen_t

=cut

package auto::socklen_t;

use strict;
use warning <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	6512	6680	
==>file_summary.html">File Summary</a>
              <li><a href="function_summary.html">Function Summary</a>
              <li>Overall Summary:<br>

            <table bor <==
2	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	630	725	
==>$output = `mcs -out:$file_name $kind $opt $file_name.cs`;
	if ($output) {
		print "compile_cs fa <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	2620	2824	
==>STDERR <<_EOF_;
usage: $0 [--help] [--no-lines] input.ops [input2.ops ...]
_EOF_
    exit;
}

Usage() if $help_flag;
Usage() unless @ARGV;


#
# Read in the first ops file.
#

my $package = "core";
my $mod <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	530	632	
==>( Parrot::Docs::Section );

use Parrot::Distribution;

use Parrot::Docs::Section::Info;
use Parrot::Doc <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35898	36031	
==>para_type = 'Plain';
        $para->[0] .= '-' . $over_type;
        # Whew.  Now fall thru and process it.


      } elsif($para_type <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2904	3014	
==>SUB Sub2
   PRINT "ERR this line in subroutine one should be skipped"
Label2:
   PRINT "4 back in subroutine on <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16871	16981	
==>SUB Sub2
   PRINT "ERR this line in subroutine one should be skipped"
Label2:
   PRINT "4 back in subroutine on <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	5841	6085	
==>if (exists $self->{VERSION})
                {
                    #die "VERSION MULTIPLY DEFINED!";
                }

                $self->version($1);
                $_ = '';
            }
            elsif (m/^\s*VERSION\s*=\s*PARROT_VERS <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	8104	8303	
==>ess $ret_type eq 'void';
        $funcs .= ";\n}\n\n";

    }

    return ($funcs, $protos);
}

sub find_type
{
    my $type    = shift;

    my %typemap =
    (
        'STRING*'  => 'Parrot_STRING', <==
2	/Users/nnunley/parrot/config/init/hints/irix.pm	553	700	
==>if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }
    $conf->data->set(libs => $libs);

    my $cc   = $conf->data->get('cc');
    my <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	3466	3615	
==>num
    print ": "
    print match_start
    print ".."
    print match_end
    print "\n"
skipPrint:
    set valid_flag, 1
    ret
.end
END
}

sub ou <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	750	858	
==>:Construct::Block));
  confess "Type (" . ref($type) . ") is not!"   if defined $type and not UNIVERSAL::isa( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	633	738	
==>:Construct::Block));
  confess "Type (". ref($type) . ") is not!" if defined $type and not UNIVERSAL::isa( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017416	1017730	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "gmtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018340	1018654	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "gmtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	570	682	
==>ile;
    exit;
};

$file = shift @ARGV;
$file =~ s/\.c$//;
my $infile = $file . '.c';
die "$0: $infile: $!" unles <==
2	/Users/nnunley/parrot/lib/File/Which.pm	6651	6803	
==>from Peter Prymmer. See
http://www.perl.com/language/ppt/src/which/index.html for more
information.

=head1 License

This library is free software; you c <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	12311	12468	
==>>isnt_eq($got, $dont_expect, $name);

Like Test::More's isnt().  Checks if $got ne $dont_expect.  This is
the string version.

=item B<isnt_num>

  $Test->is_ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	3539	3679	
==>1;
    } else {
        $dd_version = $Data::Dumper::VERSION;
    }

    if ($dd_version >= 2.12) {
        *dump = sub {
            my $sel <==
2	/Users/nnunley/parrot/languages/regex/test.pl	1521	1659	
==>le;
my $pattern;

# Hm. What versions of perl provide Getopt::Long as a builtin?
foreach (@ARGV) {
    if (/^(-h|--help)$/) {
        usage <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	1632	1718	
==>p.h: $(OPS_DIR)/core_ops_cgp.c 

$(OPS_DIR)/core_ops_cgp.c : $(OPS_FILES) $(BUILD_TOOLS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734364	734511	
==>"
                            ],
                  "BODY" => "#line 134 \"src/ops/set.ops\"\n  {{\@1}} = string_to_int(interpreter, {{\@2}});\n  {{+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946551	946817	
==>=> 0,
                  "NAME" => "find_charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fun <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947452	947718	
==>=> 0,
                  "NAME" => "find_charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fun <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	815796	816110	
==>{{\@1}} = 0;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cleari",
                  "FLAGS" => ":base_core",
                  "ARGD <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	1043	1146	
==>he loop was labeled.

TODO: Do we really need KIND, since we have subclasses?

=cut

sub new
{
  my $cla <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103835	1103922	
==>xperimental.ops\"\n\tSTRING *class = {{\@2}};\n\tINTVAL type = pmc_type(interpreter, cla <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105050	1105137	
==>xperimental.ops\"\n\tSTRING *class = {{\@2}};\n\tINTVAL type = pmc_type(interpreter, cla <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9083	9177	
==>c,$d,$a,$_[4],20,0xe9b6c7aa,/* 20 */
GG,$a,$b,$c,$d,$_[9],5,0xd62f105d,/* 21 */
GG,$d,$a,$b,$c, <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	5682	5848	
==>*  */
    s/^ *\/\///mg;   # //
    s/^ ?\*\*//mg;   # |**
    s/^ {0,2}\*//mg; # | *

    s/^ *(\$I[d]: .+)\n//m; $info->{Id} = $1;

    my $desc;
    if(/Overview:/) <==
2	/Users/nnunley/parrot/config/init/headers.pm	209	417	
==>ON

Uses C<ExtUtils::Manifest> to determine which headers are nongenerated.

=cut

package init::headers;

use strict;

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step;
use ExtUtils::M <==
2	/Users/nnunley/parrot/config/init/hints.pm	565	682	
==>$self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    my $hints_used = 0;

    my $hints = "init <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	1108	1363	
==>create_path;
    
    # Just to touch the file.
    # Make sure write() doesn't dismiss this as a noop.
    $self->write('') unless -e $self->path;
    
    return -f $self->path;
}

=item C<parent($path)>

Returns the file's parent directory.    

=cut

s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924389	924480	
==>ring.ops\"\n  {{\@1}} = string_make_empty(interpreter, enum_stringrep_one, {{\@2}});\n  {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925180	925271	
==>ring.ops\"\n  {{\@1}} = string_make_empty(interpreter, enum_stringrep_one, {{\@2}});\n  {{+= <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	32323	32419	
==>---------------------------------------------------------------

my %global_ops = (

#----------- <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	10806	10913	
==>or $sym? in expression '$currentexpr'";
		}
	} else {
		return $oldresult;
	}
}
sub pushargs {
	my($code,$op <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	7737	7834	
==>m B<skip_all>

  $Test->skip_all;
  $Test->skip_all($reason);

Skips all the tests, using the give <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	2605	2741	
==>) { 
		append;
		if ($next eq "=" or $next eq ">") {
			fetch;
			append;
		}
		emit("Compare");
		fetch;
		goto MAIN;
	}
	if ($cur eq "_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018519	1018859	
==>,
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1138,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 182 \"src/ops/sys.ops\"\n  s <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	1655	1784	
==>sing
			view
			wait while wend width window write
			keys
		);

sub dumpq {
	print "Upcoming: $type[0] $syms[0]\n";
	print "Curre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	3984	4211	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS",
                  "NAME" => "wrapper__",
                  "FLAGS" => ":internal",
                  "ARGDIRS" => [],
                  "TYPE" => "inli <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5214	5354	
==>esult} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $first = 1;
            foreach ( @{ $op->{result} <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6246	6386	
==>esult} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $first = 1;
            foreach ( @{ $op->{result} <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	5016	5112	
==>ead1 SEE ALSO

=over 4

=item C<Parrot::IO::Directory>

=item C<Parrot::IO::Path>

=back

=cut

1 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2445	2573	
==>riginal source line!
    
    } else {
      DEBUG > 2 and print "First line: [$source_line]\n";

      if( ($line = $source_line <==
2	/Users/nnunley/parrot/config/auto/env.pm	567	677	
==>ft);

    my $verbose = $conf->options->get('verbose');

    my ($setenv, $unsetenv) = (0, 0);

    cc_gen('con <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1941	2201	
==>e
                last;
            s/^\\a//
                and $str .= "\a",      # bell
                last;
            s/^\\b//
                and $str .= "\b",      # backspace
                last;
            s/^\\f//
                and $str <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3455	3715	
==>e
                last;
            s/^\\a//
                and $str .= "\a",      # bell
                last;
            s/^\\b//
                and $str .= "\b",      # backspace
                last;
            s/^\\f//
                and $str <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	9308	9468	
==>$max_push) = (0, 0);
	foreach (@$rules) {
		if ($_->{'pop'} > $max_pop) {
			$max_pop = $_->{'pop'};
		}
		if ($_->{'push'} > $max_push) {
			$max_push = $_->{'p <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2305	2415	
==>ead3       { $_[0]->emit_par(-2) }
sub end_head4       { $_[0]->emit_par(-1) }
sub end_Para        { $_[0]->emi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1873	1983	
==>ead3       { $_[0]->emit_par(-2) }
sub end_head4       { $_[0]->emit_par(-1) }
sub end_Para        { $_[0]->emi <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	67348	67518	
==>RecDescent::Subrule($name,
								       $lookahead,
								       $line,
								       $desc,
								       $matchrule,
								       $argcode);
	 
				$prod and $pr <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	3401	3596	
==>ss, $info) = each %classes) {
	next if $info->{flags}->{noinit};
        $cout .= <<"EOC";
    Parrot_Int type${class};
EOC
    }
    $cout .= <<"EOC";
    int pass;

    /*
     * create a librar <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5233	5384	
==>e}->($self, _get_arg($_, 1), $return);
            next;
          }
        }
      }
      my $item = $self->_save_1 ('P');

      __quoted ($self, $_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4278	4382	
==>eturns the C code for the run core function declaration.

=cut

sub run_core_func_decl
{
    my ($self, $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2766	2870	
==>eturns the C code for the run core function declaration.

=cut

sub run_core_func_decl
{
    my ($self, $ <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	891	1048	
==>definitions their declarations), bad things are listed
with C<--->.

=over 4

=item Missing Parrot API

The API is listed in the public headers but not define <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	2900	3100	
==>iled\n"
    goto done
printResults:
    print "Match found\n"
    .local int num_groups
    .local int match_num
    .local int ii
    .local int valid_flag
    set num_groups, result["!GROUPS"]
    se <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	16387	16546	
==>eturn $self->_get_item_type($para);
}



sub _get_item_type {       # mutates the item!!
  my($self, $para) = @_;
  return $para->[1]{'~type'} if $para->[1]{'~t <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	50047	50211	
==>3
		 '@10-4', 0,
sub
#line 203 "Lua\lua51.yp"
{
            PushScope( $_[0] );
        }
	],
	[#Rule 34
		 '_elseif_star', 6,
sub
#line 207 "Lua\lua51.yp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009853	1009960	
==>s/string.ops\"\n  {{\@1}} = string_compose(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010618	1010725	
==>s/string.ops\"\n  {{\@1}} = string_compose(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	5205	5401	
==>const;
    }

    $conf->data->set(
        pmc                  => $pmc_list,
        pmc_names            => join(" ", @names),
        TEMP_pmc_o           => $TEMP_pmc_o,
        TEMP_pmc_build <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	20391	20500	
==>$str2pos = $ld2pos+1;

		if ($ldel2 =~ /[[(<{]/)
		{
			pos($$textref)--;	# OVERCOME BROKEN LOOKAHEAD 
			_mat <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	19509	19609	
==>skips once and terminates the
test.

=end _unimplemented

=back


=head2 Test style

=over 4

=item B <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	13794	13912	
==>) ];
}

sub Regex::Ops::Tree::match::reftree {
    my $op = shift;
    return annotated($op, "match(" . $op->render(@_) <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	307	420	
==>he Parrot PackFile listed on the command line, or from standard
input if no file is named, and turn it into a C im <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1706	1887	
==>unless ($CC =~ /gcc/i) {
        $LIBPARROT = '/Users/nnunley/parrot/libparrot.a';
    }
}

# OPS2C Config
our $OPS2C = "$PERL -I $PATHQUOTE" . 
             q[/Users/nnunley/parrot/ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	309	483	
==>e_RET'],
  ['write_N_UNDEF','ne', 'I0', '.Scratchpad', 'write_N_LAMBDA'],
  ['',             'print', '"lambda"'],
  ['',             'branch', 'write_RET'],
  ['write_N_LAMBD <==
2	/Users/nnunley/parrot/lib/Test/More.pm	31401	31553	
==>f";
        return 0;
    }

    return 1 if $a1 eq $a2;

    my $ok = 1;
    my $bigger = keys %$a1 > keys %$a2 ? $a1 : $a2;
    foreach my $k (keys %$b <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	411	509	
==>iption = 'Determining if your C compiler is actually gcc';

@args = qw(miniparrot verbose);

sub ru <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100220	100442	
==>> [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 106 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}}->vtable->bitwise_not(interpreter, {{\@2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	7922	8340	
==>name = $2;
            $args       = _trim(lc $3);
            $flags      = $4 ? _trim(lc $4) : "";
            @args       = split(/\s*,\s*/, $args);
            @argdirs    = ();
            @labels     = ();
            $body       = '';
            $seen_op    = 1;
            $line	      = $.+1;

            my @temp = ();

            foreach my $arg (@args)
            {
                my ($use, $type) = $a <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	8974	9107	
==>lt = join " ", @results;
    $result = " $result" if @results;
    return $result;
}

sub footer {
    return ".end\n";
}

=head1 Util <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5813	5912	
==>ode{$seg}->{code}}, "IFBRANCH_$_:\n";
			}
			while($_=pop(@{$elsestack->{$elsetag}})) {
				push @{ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8159	8255	
==>ode{$seg}->{code}}, "IFBRANCH_$_:\n";
		}
		while($_=pop(@{$elsestack->{$elsetag}})) {
			push @{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564010	564342	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addmethod",
                  "FLAGS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241819	242099	
==>81,
                  "ARGS" => [
                              "i",
                              "p",
                              "n"
                            ],
                  "BODY" => "#line 624 \"src/ops/cmp.ops\"\n  FLOATVAL l = VTABLE_get_number(interpreter, {{\@2} <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	722	943	
==>reg('I'); }
sub temp_num { return shift->temp_reg('N'); }
sub temp_pmc { return shift->temp_reg('P'); }
sub temp_str { return shift->temp_reg('S'); }


#
# anon_lbl()
#

my $anon_lbl_count = 0;

sub anon_lbl
{
  my $self = <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	5250	5370	
==>f, $line, $file) = @_;

    return '' if $self->{opt}{nolines};
    if (defined $file) {
        my $file_escaped = $file <==
2	/Users/nnunley/parrot/config/init/hints/vms.pm	612	747	
==>est.c") and die "C compiler died!";
            system("link/exe=test test")        and die "Link failed!";
        };

        *Parrot: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2538	2641	
==>f actual argument (%s)!", ref $args[$i])
      unless defined $actual_arg_type;

    if ($formal_arg_typ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2238	2341	
==>f actual argument (%s)!", ref $args[$i])
      unless defined $actual_arg_type;

    if ($formal_arg_typ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15992	16224	
==>am)=generate_code(0, @stream);	# Generate PASM code stream

		@stream=build_assignment($assignto, \@left, $result, \@stream, $type);
		$result=$assignto;
	} elsif ($opts{stuff}) {
		#print STDERR "Stuff\n";
		$opts{lhs}=1;
		feedme() <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	1084	1210	
==>x_path, @contents)>

Returns a new section.

C<$name> and C<$index_path> are required, though C<$index_path> defaults
to F<inde <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	7104	7231	
==>oplib/ops.h"

/*
 * if the architecture can build some or all of these signatures
 * enable the define below
 * - the JITed func <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	117	213	
==>:20.183054Z coke  $

=head1 NAME

tools/build/pmc2c.pl - PMC definition to C compiler

=head1 SYN <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	18480	18766	
==>~ m{.*?\n(?=$label\n)}gc) {
			_failmsg qq{Missing here doc terminator ('$label') after "} .
				     substr($$textref, $startpos, 20) .
				     q{..."},
				 pos $$textref;
			pos $$textref = $startpos;
			return;
		}
		$rd1pos = pos($$textref);
		$$textref =~ m{$label\n}gc;
		$ld2pos <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	3580	3746	
==>$depends) is export {
    my $caller = caller().package;

    eval "package $caller; require $module";

    #try {
    #    &::($module)::import.goto();
    #};

    i <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9159	9350	
==>5, 9);

  use_ok('Some::Module');
  use_ok('Some::Other::Module', todo => 1);

  ok(2 + 2 == 4, '2 and 2 make 4');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List');

  ok(2 + 2 == <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	4323	4465	
==>, 'type') ] for @section;
my $ticks = POSIX::sysconf( &POSIX::_SC_CLK_TCK );
my %Get_Time = (
    1 => sub { my @times = times();  return $time <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	8217	8337	
==>lib.h
carg        complex.h
cargf       complex.h
cargl       complex.h
casin       complex.h
casinf      complex.h
casin <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	804	899	
==>ing()> 

Reimplements the C<Pod::Simple::HTML> method to add a header to the start
of the docume <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	508864	509102	
==>ODE" => 585,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 665 \"src/ops/math.ops\"\n  {{\@1}} = - {{\@1}};\n  {{+=2}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	14059	14343	
==>ruct. 

Each initializer is a pair of values: I<element name>C< =E<gt> >I<value>.
The initializer value for a scalar element is just a scalar value. The 
initializer for an array element is an array reference. The initializer
for a hash is a hash reference.

The initializer for a clas <==
2	/Users/nnunley/parrot/config/auto/headers.pm	1010	1136	
==>for by perl 5, or might not be
    # properly reflected in %Config (i_fcntl seems to be wrong on my machine,
    # for instance <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	10225	10394	
==>own " . ((1 == keys %options) ? "option: " : "options: ")
    . join " ", map "[$_]", sort keys %options
  )
   if keys %options;

  my %content_containers;
  $content_co <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2494	2591	
==>we don't discover backward branches until late to do
	# otherwise. Also, putting a label everywher <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1072	1169	
==>we don't discover backward branches until late to do
	# otherwise. Also, putting a label everywher <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	316289	316515	
==>1}}));\n  }\n  else {\n    internal_exception(1, \"Overflow exception for conv_u1_ovf\");\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5150	5260	
==>) = sub {
#DBG>		my($tok)='>';
#DBG>		for (split('',$$token)) {
#DBG>			$tok.=		(ord($_) < 32 or ord($_) > 1 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4902	5009	
==>) = sub {
#DBG>		my($tok)='>';
#DBG>		for (split('',$$token)) {
#DBG>			$tok.=		(ord($_) < 32 or ord($_) > 1 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3586	3700	
==>b (props = %s)...", $name, join(", ", %props));

    $name =~ s/::/__/g;

    if (exists $props{fn} or exists $prop <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	3021	3135	
==>b (props = %s)...", $name, join(", ", %props));

    $name =~ s/::/__/g;

    if (exists $props{fn} or exists $prop <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103388	1103872	
==>DIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1222,
                  "ARGS" => [
                              "p",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 332 \"src/ops/experimental.ops\"\n\tSTRING *class = { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244505	244889	
==>i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 284,
                  "ARGS" => [
                              "i",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 632 \"src/ops/cmp.ops\"\n  STRING* l = <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7077	7177	
==>1): ", instr(s1$, "")
print "Start (11): ", instr(6, s1$, " ")
print "Inval  (0): ", instr(4, bogus$, <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18806	18906	
==>1): ", instr(s1$, "")
print "Start (11): ", instr(6, s1$, " ")
print "Inval  (0): ", instr(4, bogus$, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563962	564221	
==>method(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564860	565119	
==>method(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1557	1686	
==>turn;
}

sub _handle_element_end {
  DEBUG and print "-- $_[1]\n";
  print {$_[0]{'output_fh'}} "</", $_[1], ">";
  return;
}

# . <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	19060	19271	
==>S_SINGLETON';
    }
    if (exists $self->{flags}{is_shared}) {
        $vtbl_flag .= '|VTABLE_IS_SHARED_FLAG';
    }
    my (@meths, @mmds, @init_mmds, %init_mmds);
    foreach my $method (@{ $self->{vtable}{met <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	7096	7256	
==>ver the whole string
until no more substitutions can be made.

C<VTABLE_> macros are enforced by converting C<<< I<< x >>->vtable->I<<
method >> >>> to C<VTABLE_ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	22106	22235	
==>$_->[2]}
	#print "-> Copied value for "
	#print $val{$_->[2]}
	#print "\\n"
	P3["$_->[0]"]= P2
NOTUSER
		} else {
				print CODE<< <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	29358	29700	
==>' before '$para_type'"
        );
        unshift @$paras, ['=back', {}, ''], $para;   # close the =over
        next;
      }


      if($para_type eq '=item') {

        my $over;
        unless(@$curr_open and ($over = $curr_open->[-1])->[0] eq '=over') {
          $self->whine(
            $para->[1]{'start_line'},
            "'=item' o <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	2672	2771	
==>name> is the name of the dynamic library to be created.

C<%classes> is a map from the PMC names for <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363496	363592	
==>ot_sprintf_c(interpreter, \"%f\", (double){{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364399	364495	
==>ot_sprintf_c(interpreter, \"%f\", (double){{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  } <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	31101	31283	
==>EOC;
	throw P5 $cmt
EOC
}

sub SETUP_LOOP
{
    my ($n, $c, $cmt) = @_;
    my $targ = "pc_xxx";
    if ($c =~ /to (\d+)/) {
	$targ = "pc_$1";
    }
    push @loops, $targ;
    my $eh <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	5594	5734	
==>?, :$todo, :$depends) returns Bool is export {
    Test::proclaim(0, $desc, $todo, :$depends);
}

sub diag (Str $diag) is export {
    for (s <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	2923	3027	
==>::Section::PMCs>

=item C<Parrot::Docs::Section::DynaPMCs>

=item C<Parrot::Docs::Section::C>

=item C<Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1455	1559	
==>PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/gets the transform's arguments.

=cut

sub args <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1064	1168	
==>PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/gets the transform's arguments.

=cut

sub args <==
2	/Users/nnunley/parrot/config/inter/libparrot.pm	1766	1944	
==>et('blib_dir')
        : ''
    );

    unless (defined($conf->data->get('libparrot_ldflags'))) {
        $conf->data->set(
            libparrot_ldflags => ($parrot_is_shar <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	938	1036	
==>es
{
    return <<END;
#define REL_PC ((size_t)((opcode_t*)cur_opcode - (opcode_t*)interpreter->cod <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1068	1166	
==>es
{
    return <<END;
#define REL_PC ((size_t)((opcode_t*)cur_opcode - (opcode_t*)interpreter->cod <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26667	26794	
==>@opcodes    = ();
    my $l_continue = new_label($parser);
    my $l_break    = new_label($parser);
    push @opcodes, new La <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27552	27679	
==>@opcodes    = ();
    my $l_continue = new_label($parser);
    my $l_break    = new_label($parser);
    push @opcodes, new La <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	436	569	
==>se warnings;

use base qw( Parrot::OpTrans );

=item C<suffix()>

The suffix is C<'_cg'>.

=cut

sub suffix
{
    return "_cg";
}

=it <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	624311	624678	
==>callr__",
                  "FLAGS" => ":pic",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 702,
                  "ARGS" => [
                              "pc"
                            ],
                  "BODY" => "#line 247 \"src/ops/p <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	2339	2445	
==>the Parrot Assembler code and passes the test
if a string comparison of the output with the unexpected resu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807888	807997	
==>1}} = {{\@2}}->vtable->get_number_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808793	808902	
==>1}} = {{\@2}}->vtable->get_number_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	6341	6513	
==>{covered_calls} / $totals{calls} * 100)       : 0));
    
    print OUT page_header("Parrot Test Coverage");
    print OUT qq(
            <ul>
              <li><a href="fi <==
2	/Users/nnunley/parrot/languages/regex/test.pl	2238	2438	
==>enough args: testfile required"
  if ! defined $testfile && ! defined $pattern;

if (defined $testfile) {
    open(SPEC, $testfile) or die "open $testfile: $!";
    $pattern = <SPEC>;
    chomp($patter <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40582	40743	
==>nstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 168
		DEFAULT => -24,
		GOTOS => {
			'@7-5' => 186
		}
	},
	{#State 169
		ACTIO <==
2	/Users/nnunley/parrot/languages/APL/t/APL.pm	34	179	
==>ore gracefully for those without Test::Base installed.

BEGIN {
  eval {
    require Test::Base;
    import Test::Base qw/ -Base /;
  };
  if ($@) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	2214	2332	
==>";
}

sub output_increment {
    my ($self, $var, $amount) = @_;
    $amount = 1 if ! defined($amount);
    return "add <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21187	21307	
==>.'

		$_tok = ($_noactions) ? 0 : do ' . $self->{"code"} . ';
		' . ($self->{"lookahead"}<0?'if':'unless') . ' (defined $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	15464	15740	
==>" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS",
                  "NAME" => "enternative",
                  "FLAGS" => "",
                  "ARGDI <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	11160	11281	
==>ool is export`
- `unlike (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export`

These <==
2	/Users/nnunley/parrot/config/gen/icu.pm	1507	1646	
==>t && $autodetect && $icuconfig && $icuconfig ne "none") {
            my $slash = $conf->data->get('slash');

            # icu-config scrip <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	4255	4346	
==>s $known_strings{$text}) {
    <<"DATA";
#define static_string_${line} static_string_$known_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5244	5372	
==>32 or ord($_) > 126)
#DBG>					?	sprintf('<%02X>',ord($_))
#DBG>					:	$_;
#DBG>		}
#DBG>		$tok.='<';
#DBG>	};

	$$errstat <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4993	5114	
==>32 or ord($_) > 126)
#DBG>					?	sprintf('<%02X>',ord($_))
#DBG>					:	$_;
#DBG>		}
#DBG>		$tok.='<';
#DBG>	};

	$$errstat <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	7980	8289	
==>:
##
###############################################################################
###############################################################################


#
# DEBUG()
#

sub DEBUG
{
  my ($self, $level, $format, @args) = @_;

  return unless defined $self->debug and $self->debug >= $level;

  my $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	7177	7325	
==>f->DEBUG(0, "Scanning file '$file'...");

  my $line = 0;

  my @lines = $self->slurp_file($file);
  unshift @lines, "#line 1 \"$file\"\n";

  while( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3133	3238	
==>f = $_[0];
  return $self->do_middle if $self->bare_output;
  return
   $self->do_beginning && $self->do_m <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4502	4607	
==>f = $_[0];
  return $self->do_middle if $self->bare_output;
  return
   $self->do_beginning && $self->do_m <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3794	3891	
==>("Unknow parameter '$prm'");
			ref($value) eq $$checklist{$prm}
		or	croak("Invalid value for p <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3599	3694	
==>("Unknow parameter '$prm'");
			ref($value) eq $$checklist{$prm}
		or	croak("Invalid value for p <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	31071	31228	
==>ks to make sure reality came
through ok.  If anything is wrong it will die with a fairly friendly
error message.

=cut

#'#
sub _sanity_check {
    my $self = <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5964	6114	
==>eedme;
			$elsetag--;
			goto PARSE;
		}
		if ($syms[NEXT] eq "select") {
			my $s=pop @selects;
			feedme;
			print CODE "CASE_$s->{jump}_$s->{incase} <==
2	/Users/nnunley/parrot/config/gen/PodText.pm	920	1103	
==>gure::Step::Base);

use Pod::Text;

$description = 'Generating plain text docs from Pod';

@args = qw(verbose);

sub runstep
{
    my ($self, $conf, %docs) = @_;

    my $verbose = $co <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15501	15614	
==>CAPER
             # Escape \, {, }, -, control chars, and 7f-ff.
    $x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)< <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16680	16793	
==>CAPER
             # Escape \, {, }, -, control chars, and 7f-ff.
    $x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)< <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	2459	2608	
==>y $self = shift;
    my ($a, $cond, $b, $where) = @_;
    $where = $self->output_label_use($where);
    if ($cond eq '==') {
        return "eq $a, $b <==
2	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1915	2016	
==>(Lua::opcode);

package CallMethOp;
use base qw(Lua::opcode);

package LabelOp;
use base qw(Lua: <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	44539	44631	
==>:\\\\.[^/\\\\]*)*/)?)';
my $OPTIONAL		= '\G\((\?)'.$SIMPLEPAT.'\)';
my $ANY			= '\G\((s\?)'.$ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	2140	2236	
==>moderate heat, warm the oil until hot.

Add the puree and the balsamic vinegar, and cook, stirrin <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	2154	2282	
==>a list of files to process.  This list is one per line, and
is relative to the languages dir.

If called with no args, run the su <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	32046	32154	
==>t/* caller context has results */\n        opcode_t * const results = PMC_cont(cc)->to_ctx->current_results;\ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	2393	2521	
==>w()>

Returns a new section.

=cut

sub new
{
    my $self = shift;
    
    return $self->SUPER::new(
        'C', 'c.html', '', <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	2792	2910	
==>c argv

  .local pmc compiler
  .get_from_HLL(compiler, '_tcl', 'compile_dispatch')
        
  .local int argc
  .local <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	692	786	
==>ion::Value');
  confess "Left is not Value!" if defined $left and not UNIVERSAL::isa($left, 'Ja <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665177	665285	
==>],
                  "BODY" => "#line 359 \"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delete_keyed_int(interprete <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665954	666062	
==>],
                  "BODY" => "#line 359 \"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delete_keyed_int(interprete <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	15066	15265	
==>}) {
                    ##print "** @{ $super_mmd } **\n";
                    push @{ $self->{super_mmd} },
                        { $pname => $super_mmd,
                          'meth' => $meth} <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	459	572	
==>is ok
    OUTPUT

=head1 DESCRIPTION

This module provides various Parrot-specific test functions.

=head2 Functio <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	54162	54267	
==>ing each extractor in
sequence to the text string.

If the extractor is a subroutine it is called in a lis <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	2341	2482	
==>s are
C</^(Parrot|PDB|PF|PIO|PackFile)_/>.

If the API is not meant to be public, considering making it private
(file static, and prefix it wi <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	1080	1202	
==>tation', '', 
            $self->new_item('', 'lib/Parrot/Docs/Item.pm'),
            $self->new_item('', 'lib/Parrot/Docs/ <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	1646	1809	
==>$conf->data->settrigger("cc", "solaris_link", $solaris_link_cb);

    ################################################################
    # cc_shared:  Flags to in <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	516	665	
==>y @ops;
    foreach my $part ($what =~ /((?:\%\<[\<\>\w]+\>)|[^\%]+)/g) {
        if ($part =~ /^\%/) {
            push @ops, $self->output_print(sub <==
2	/Users/nnunley/parrot/lib/Test/More.pm	26955	27166	
==>!defined $val ? 'undef'          :
                      $val eq $DNE  ? "Does not exist" :
	              ref $val      ? "$val"           :
                                      "'$val'";
    }

    $out .= "$v <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	41033	41179	
==>s the matched substring (and
any specified prefix) removed.


=head2 C<gen_extract_tagged>

(Note: This subroutine is only available under Perl5.00 <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	237	333	
==>ps/mops.pl

=head1 DESCRIPTION

A Perl implementation of the F<examples/mops/mops.pasm> example p <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	233	329	
==>ps/mops.pl

=head1 DESCRIPTION

A Perl implementation of the F<examples/mops/mops.pasm> example p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1108893	1109043	
==>k;\n        default:\n            real_exception(interpreter, NULL, NO_CLASS,\n                \"Can only use a Key or String PMC with new\");\n    }\n <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	4385	4492	
==>$known_strings{$text} = $line;
    my $h = hash_val($text);
    <<"DATA";
static /*const*/ char static_strin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	448574	448713	
==>ne 180 \"src/ops/math.ops\"\n  if ({{\@2}} < 0) {\n    {{\@1}} = - (FLOATVAL){{\@2}};\n  }\n  else {\n    {{\@1}} = (FLOATVAL){{\@2}};\n  }\ <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	10763	10923	
==>adding-bottom: 10px; }

    p, dl, pre, table { margin:      15px; }
    dt    { font-weight: bold; }
    dd+dt { margin-top:  1em;  }
    .leftsep  { padding-le <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407761	408059	
==>ect",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408659	408957	
==>ect",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323922	324026	
==>ot_UInt4) ({{\@2}}->vtable->get_integer(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596129	596245	
==>,
                  "BODY" => "#line 337 \"src/ops/object.ops\"\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597022	597138	
==>,
                  "BODY" => "#line 337 \"src/ops/object.ops\"\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, {{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	52556	52668	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _dump_curr_open { # return a stri <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	7762	8088	
==>= $self->path_for_directory_with_name(shift) || return;
    
    return $self->directory_with_path($path);
}

=item C<file_with_name($name)>

Returns a file with the specified name in the directory.

=cut

sub file_with_name
{
    my $self = shift;
    my $path = $self->path_for_file_with_name(shift) || return;
    
    retur <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	149	262	
==>tools/dev/nm.pl - Display symbol table information

=head1 SYNOPSIS

    % perl tools/dev/nm.pl [options] file

To <==
2	/Users/nnunley/parrot/config/auto/gdbm.pm	1090	1239	
==>f (-f "/sw/include/gdbm.h") {
            $conf->data->add(' ', linkflags => '-L/sw/lib');
            $conf->data->add(' ', dflags    => '-L/sw/lib') <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10584	10723	
==>ub _ranges_to_incexc {
    my @ranges = @{ shift() };

    # Sort those pairs by their first element
    @ranges = sort { $a->[0] <=> $b->[0 <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	1437	1574	
==>>.  If it is not an MMD method, C<MMD_type> is -1.

=cut

sub parse_vtable {

    my $file = defined $_[0] ? shift() : 'vtable.tbl';
    m <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2892	3022	
==>\s+ (?:\S+ \s+)? \{ \n     # optional test harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \} \ <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4289	4419	
==>\s+ (?:\S+ \s+)? \{ \n     # optional test harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \} \ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	27723	27853	
==>@fallbacks == 1) ? $fallbacks[0] : \@fallbacks;
      DEBUG > 2 and print
       "Extensor maps $new_letter => fallbacks @fallbacks <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15186	15289	
==>c(g())

' Passing arrays, twice, expect 12
function aftwo(y())
	print y(4)
end function
function arrfunc <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	1522	1643	
==>if ( y > 0 ) and (x > 0) then
	print "OK"
end if



' Passing string arrays, expect 99 and "Hello"
function foo(i, thing$( <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2317	2457	
==>rrot, $path_to_language, $count );

        # This does nor create byte code, but m4 code
        Parrot::Test::write_code_to_file( $code, $l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104179	1104499	
==>erpreter, type, {{\@3}});\n\t{{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105394	1105714	
==>erpreter, type, {{\@3}});\n\t{{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	280903	281390	
==>"NAME" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 327,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "B <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	145	319	
==>: /parrot/tools/dev/extract_file_descriptions.pl 19607 2006-05-30T15:23:20.183054Z coke  $
################################################################################

=h <==
2	/Users/nnunley/parrot/config/gen/platform.pm	2706	2836	
==>er than creating the
        # correct one from the above list in their $platform/ dir (e.g. misc.c).
    }

    # finally append g <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21069	21174	
==>Expression::Value->new($block, $self->require_value);
      }

      $self->require_semicolon;

      fore <==
2	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	2081	2308	
==>kage BranchIfOp;
use base qw(Lua::opcode);

package BranchUnlessOp;
use base qw(Lua::opcode);

package BranchUnlessNullOp;
use base qw(Lua::opcode);

package SubDir;
use base qw(Lua::opcode);

package EndDir;
use ba <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367862	368090	
==>ter, PIO_STDIN(interpreter), (size_t){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368654	368882	
==>ter, PIO_STDIN(interpreter), (size_t){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	7245	7398	
==>ded
that such works are identified as "derived from the RSA Data
Security, Inc. MD5 Message-Digest Algorithm" in all material
mentioning or referencing th <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5051	5164	
==>b generate_c {
    my ($oplib) = @_;
	
	foreach (keys %cores) {
		if (needs_build($oplib . "_ops$cores{$_}.c", "$o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117380	117683	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118118	118421	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  " <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6248	6333	
==>= ${STYPES}
prop_stack_depth[${ITEMP0}] = stack_depth
goto POST_BRANCH_NOT_switch_${CU <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4186	4271	
==>= ${STYPES}
prop_stack_depth[${ITEMP0}] = stack_depth
goto POST_BRANCH_NOT_switch_${CU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621181	621304	
==>C *) cur_opcode[1];\n    caller_ctx = ctx->caller_ctx;\n    if (src_pc) {\n\tsrc_pred = (void**) src_pc - caller_ctx->pred_o <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	9683	9895	
==>": $!\n";
  truncate $fh, 0     or die "Couldn't truncate \"@{[ BUCKET ]}\": $!\n";

  store_fd [$bucket->state] => $fh or
    die "Couldn't serialize bucket to \"@{[ BUCKET ]}\": $!\n";

  exit if $exit;
}

__DAT <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	981	1120	
==>sic.html', '', 'languages/BASIC'),
        $self->new_section('bc', 'bc.html', '', 'languages/bc'),
        $self->new_section('Befunge', 'b <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	799	909	
==>de',
	'Log' => 'SVN Entries file',   # probably obsolete
	'PL' => 'Perl script',
	'SKIP' => 'MANIFEST skip file <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6197	6320	
==>oup $group!;
    return @ops;
}

sub output_getstart {
    my ($self, $reg, $group) = @_;
    $reg = value($reg);
    return <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5835	5958	
==>oup $group!;
    return @ops;
}

sub output_getstart {
    my ($self, $reg, $group) = @_;
    $reg = value($reg);
    return <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85578	85676	
==>OMPREG_HASH);\n  {{\@1}} = VTABLE_get_pmc_keyed_str(interpreter, compreg_hash, {{\@2}});\n  {{+=3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86485	86583	
==>OMPREG_HASH);\n  {{\@1}} = VTABLE_get_pmc_keyed_str(interpreter, compreg_hash, {{\@2}});\n  {{+=3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49661	49791	
==>UMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "profile",
                  "FLAGS" <==
2	/Users/nnunley/parrot/config/inter/charset.pm	1190	1285	
==>ile was built by 'config/inter/charset.pm'

E_NOTE

    foreach my $charset (split(/\s+/, $chars <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2016	2106	
==>ERSAL::isa($args[$i], 'Jako::Construct::Expression::Value::Identifier')) {
      my $arg_sy <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1716	1806	
==>ERSAL::isa($args[$i], 'Jako::Construct::Expression::Value::Identifier')) {
      my $arg_sy <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6520	6714	
==>turn $self->block->find_symbol($name); # Recurse
}


###############################################################################

=head2 BLOCK->find_block(KIND [, LABEL])

Search this block a <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3341	3448	
==>sub( 78, 80)
t$=foo$
print t$
t=0
do
	print "This is right"
	exit do
	print "This is wrong"
	t=t+1
loop unti <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64668	64758	
==>p = (Interp *)PMC_data({{\@1}});\n  Interp_flags_SET(new_interp, PARROT_EXTERN_CODE_FLAG);\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65619	65709	
==>p = (Interp *)PMC_data({{\@1}});\n  Interp_flags_SET(new_interp, PARROT_EXTERN_CODE_FLAG);\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477145	477372	
==>ero\");\n  {{\@1}} = (INTVAL)floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478041	478268	
==>ero\");\n  {{\@1}} = (INTVAL)floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	9425	9532	
==>:More::skip;

# What about File::Slurp?
sub slurp_file {
    my ($file_name) = @_;

    open( SLURP, "< $fil <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	865384	865759	
==>"FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "function",
                  "CODE" => 982,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 167 \"src/ops/string.ops\"\n   string_pin(in <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	1762	1862	
==>/Users/nnunley/parrot/tools/build/pmc2c.pl] . $PATHQUOTE;

# Actual commands
sub compile_cmd {
    my <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	1853	1953	
==>/Users/nnunley/parrot/tools/build/pmc2c.pl] . $PATHQUOTE;

# Actual commands
sub compile_cmd {
    my <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	1122	1263	
==>ection is one of:

    in            the argument passes a value into the op
    out           the argument passes a value out of the op
    i <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	416	540	
==>path_to_language, $count ) = @_;
 
    
    my $test_prog_args = $ENV{TEST_PROG_ARGS} || q{};
    my $lang_fn        = Parrot <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	434	552	
==>path_to_language, $count ) = @_;

    my $test_prog_args = $ENV{TEST_PROG_ARGS} || q{};
    my $lang_fn        = Parrot <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8244	8369	
==>>		and	print STDERR "Abort.\n";

				return(undef);

			};

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Back to stat <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7871	7989	
==>>		and	print STDERR "Abort.\n";

				return(undef);

			};

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Back to stat <==
2	/Users/nnunley/parrot/Configure.pl	7123	7273	
==>ng a system ICU, these options can be used:

   --icu-config=/path/to/icu-config
                        Location of the script used for ICU autodetect <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	17391	17517	
==>to the Test::Harness that things are going so badly all
testing should terminate.  This includes running any additional test
sc <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	5027	5142	
==>r MANIFEST.SKIP.

=cut

sub gen_manifest_skip {

   # manicheck.pl is probably only useful for checked out revisions <==
2	/Users/nnunley/parrot/config/gen/icu.pm	4725	4835	
==>a->add(' ', ccflags => "-I $icuheaders");
    }
    cc_clean();

    $self->set_result("yes");

    return $sel <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812101	812448	
==>,
                  "TYPE" => "inline",
                  "CODE" => 916,
                  "ARGS" => [
                              "p",
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 512 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed(inte <==
2	/Users/nnunley/parrot/languages/perms.pl	12	130	
==>use warnings;
my @things = qw(d i f p s t v);

sub deeper {
	my ($stop, $things) = @_;
	my @prefix = (0,0);
	
	return s <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7797	7894	
==>he end of list
  $self->_add_inst("FINISH_$label", 'set', [$copy.'[1]',$return]);
  $self->_add_in <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	11566	11692	
==>ent is a scalar, and by default is initialized to C<undef>
(but see L<Initializing with new>).

The accessor's argument, if any <==
2	/Users/nnunley/parrot/config/inter/shlibs.pm	18	165	
==>05, The Perl Foundation.
# $Id: /parrot/config/inter/shlibs.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/inter/shlibs.pm - Flag <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	8685	8808	
==>eq "as";
	feedme();
	die "Expecting #" unless $syms[CURR] eq "#";
	feedme();
	$fd=$syms[CURR];
	push @{$code{$seg}->{code}}, <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1898	2012	
==>rgs; $i++) {
    my ($formal_arg_type, $formal_arg_name) = @{$formal_args[$i]};
    my $actual_arg_type;

    if (U <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1598	1712	
==>rgs; $i++) {
    my ($formal_arg_type, $formal_arg_name) = @{$formal_args[$i]};
    my $actual_arg_type;

    if (U <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	12043	12139	
==>ay ref of programs to search the current C<PATH> for.  The first matching
program name is returne <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	11725	11844	
==>= shift; # Required: Jako::Compiler
  my $options  = shift; # Optional: Hashref

  confess "No block!"  unless defined $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742750	742981	
==>et.ops\"\n  {{\@1}} = string_from_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743516	743747	
==>et.ops\"\n  {{\@1}} = string_from_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088024	1088383	
==>rimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice",
                  "F <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090978	1091337	
==>rimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice",
                  "F <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1521	1627	
==>dataflow {
  my $node = shift;

  if(exists $node->{children}) {
    for(@{$node->{children}}) {
      _dat <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	12497	12611	
==>6-05-30T15:08:05.048089Z coke  $

=head1 AUTHOR

Gregor N. Purdy E<lt>gregor@focusresearch.comE<gt>

=head1 COPYRIG <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	698	833	
==>n .local .const .globalconst
    end goto if unless call branch jump jsr ret invoke invokecc throw 
    rethrow die_hard .emit .eom .sub <==
2	/Users/nnunley/parrot/config/gen/config_pm.pm	1397	1494	
==>Can't open '$template': $!";
    open(OUT, ">config_lib.pasm") or die "Can't open config_lib.pasm: <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	15505	15707	
==>("Trying alternative $i of 0..$#args\n");
        push @ops, @{ $iops[$i] };
        push @ops, aop('pushint', [ $i ]);
        push @ops, aop('goto', [ $next ]);
    }

    push @ops, $back => aop('popi <==
2	/Users/nnunley/parrot/examples/benchmarks/vpm.pl	18	125	
==>Thomas Klausner posted on Vienna-PM list
#
use strict;

my $big;
my $string="just another perl hacker";

for <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1435	1702	
==>I4 - $I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # s <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1435	1702	
==>I4 - $I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # s <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	22299	22424	
==>'~=' => 'isne',
    );
    my @opcodes = ();
    my $flag = new_tmp( $parser, 'int' );
    push @opcodes, @{ $expr1->[1] } <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3253	3378	
==>my($self)=shift;

        @_
    and ${$$self{VALUE}}=$_[0];
    ${$$self{VALUE}};
}

sub YYExpect {
    my($self)=shi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3091	3208	
==>my($self)=shift;

        @_
    and ${$$self{VALUE}}=$_[0];
    ${$$self{VALUE}};
}

sub YYExpect {
    my($self)=shi <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6253	6362	
==>rint {$self->{'output_fh'}} $self->{'Tagmap'}{$tagname};
    }
}

=item C<process_item_text_or_head_start_toke <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	23281	23479	
==>rep { $action{$_} } keys %action ) {
        die "No action specified!\n";
    }

    if ($action{default}) {
        dump_default();
        exit;
    }

    # All other actions require files
    if <==
2	/Users/nnunley/parrot/config/inter/progs.pm	4237	4330	
==>why.
    $ccwarn = integrate($conf->data->get('ccwarn'), $conf->options->get('ccwarn'));
    $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	47198	47309	
==>lename
    $new->parse_file($source);
  }
  
  return $new;
}


#----------------------------------------------- <==
2	/Users/nnunley/parrot/lib/Test/More.pm	631	836	
==>todo todo_skip
             pass fail
             eq_array eq_hash eq_set
             $TODO
             plan
             can_ok  isa_ok
             diag
            );

my $Test = Test::Builder->new;
m <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4051	4167	
==>eft = $left->compile($compiler);
  }

  unless ($right_type->name eq $calc_type->name) {
#    $self->DEBUG(0, "   ... <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9980	10126	
==>c(a)
	print a
	a=12
        myfunc=80
end function
z=5
T=myfunc(z)
print z

' Basic Hello
a$="Hello"
print a$

' Simplest function, return 10
funct <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11593	11704	
==>c(a)
	print a
	a=12
        myfunc=80
end function
z=5
T=myfunc(z)
print z

' Basic Hello
a$="Hello"
print a$

' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578778	579076	
==>S" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 661,
                  "AR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	536552	536816	
==>ATVAL)1) / cosh((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	44669	44839	
==>\.\.)'.$SIMPLEPAT.'\)';
my $EXACTLY		= '\G\(([1-9]\d*)'.$SIMPLEPAT.'\)';
my $BETWEEN		= '\G\((\d+)\.\.([1-9]\d*)'.$SIMPLEPAT.'\)';
my $ATLEAST		= '\G\((\d+)\.\.'.$SIMPLEPA <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25658	25823	
==>'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 132,
			'functioncall' => 31,
			'function' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2026	2229	
==>mit_par( 0) }
sub end_item_number { $_[0]->emit_par( 0) }
sub end_item_text   { $_[0]->emit_par(-2) }

sub emit_par {
  my($self, $tweak_indent) = splice(@_,0,2);
  my $indent = ' ' x ( 2 * $self->{'Inden <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2458	2586	
==>mit_par( 0) }
sub end_item_number { $_[0]->emit_par( 0) }
sub end_item_text   { $_[0]->emit_par(-2) }

sub emit_par {
  return un <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581387	581727	
==>S" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 663,
                  "ARGS" => [
                              "p" <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	30163	30316	
==>v;
}

sub STORE_SUBSCR
{
    my ($n, $c, $cmt) = @_;
    my $x = pop @stack;
    my $v = pop @stack;
    my $w = pop @stack;
    my $key = $x->[1];
    if <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	881165	881515	
==>YPE" => "inline",
                  "CODE" => 998,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!de <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	371389	371482	
==>\n\treal_exception(interpreter, NULL, PIO_ERROR,\n\t\t\"Cannot read line from empty filehandle <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	371526	371619	
==>\n\treal_exception(interpreter, NULL, PIO_ERROR,\n\t\t\"Cannot read line from empty filehandle <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022283	1022547	
==>ODE" => 1142,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 202 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Par <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	1293	1410	
==>s => 23;

You must have a plan.


=over 4

=item B<ok>

  ok( $foo eq $bar, $name );
  ok( $foo eq $bar );

ok() is gi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5157	5275	
==>ck;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  $hand <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3220	3338	
==>ck;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  $hand <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	2602	2710	
==>symbol table. If the symbol already exists,
we throw an error.

TODO: We should generate real compiler errors <==
2	/Users/nnunley/parrot/config/inter/make.pm	78	212	
==>ke.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/make.pm - make utility

=head1 DESCRIPTION

Determines whethe <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	1059	1213	
==>ut as long as you
just run these tools in the standard build process via C<make> there
shouldn't be a problem.

=head1 TODO

The original design of the ops <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	1963	2163	
==>le (my ($name, $match) = each %$m) {
    push @$res, minimatch($match, $name) if $name !~ /^\d+$/;
  }
  return $res;
}
my $m = match($ARGV[0]);
$Data::Dumper::Sortkeys = 1;
use Data::Dumper;
print Dat <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10682	10821	
==>ift;
    my $path = $self->path_for_file_with_relative_path(shift) || return;
    
    return $self->file_with_path($path);
}

=item C<delet <==
2	/Users/nnunley/parrot/config/init/hints.pm	378	475	
==>e base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step;

$description = 'Loading p <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	5158	5418	
==>pi (keys %API) {
    delete $API{$api} unless exists $Code{$api}; # Not ours.
}

printf "+++ Parrot API: %d +++\n", scalar @ParrotAPI;
if (@ParrotAPI) {
    for my $api (@ParrotAPI) {
	printf "%s\t%s\tOK\n", $api, $API{$api} || "-";
    }
}

printf "=== $Obj: % <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59326	59516	
==>/core.ops\"\n  PARROT_WARNINGS_on(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59974	60164	
==>/core.ops\"\n  PARROT_WARNINGS_on(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	206	310	
==>Test;

@EXPORT = ( qw(output_is output_like output_isnt), @Test::More::EXPORT );
@ISA = qw(Exporter Test: <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	123	227	
==>Test;

@EXPORT = ( qw(output_is output_like output_isnt), @Test::More::EXPORT );
@ISA = qw(Exporter Test: <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11681	11814	
==>o
a$="Hello"
print a$

' Concatenation greeting
a$="Hello,"
b$=" world!"
c$=a$+b$
print c$

' String function, whoa
function a$
	a$="W <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262085	262401	
==>issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 305,
                  "ARGS" <==
2	/Users/nnunley/parrot/config/gen/PodText.pm	439	632	
==>r plain text equivalents.

=head1 USAGE

=head2 Methods

=head3 Class Methods

=over

=item * C<runstep()>

Converts Pod documents into plain text.  Documents to be converted as specified
as a h <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3219	3329	
==>$_) foreach (@pmcs);

    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_li <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3323	3433	
==>$_) foreach (@pmcs);

    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_li <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	912	1018	
==>0];
  return undef unless defined $in and length $in;
  
  # Convert to decimal:
  if($in =~ m/^(0[0-7]*)$/ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2271	2377	
==>0];
  return undef unless defined $in and length $in;
  
  # Convert to decimal:
  if($in =~ m/^(0[0-7]*)$/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189738	189829	
==>s/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190679	190770	
==>s/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+= <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3586	3723	
==>r, remember that you need two consts:

  const char* const foo[] = { "foo", "bar" };

=head1 DEPENDENCIES

Uses F<tools/dev/nm.pl> to list <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	2540	2663	
==>ch_path   => undef,
    list_only    => undef,
    use_times    => undef,
    display_help => undef,
    method       => und <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2976	3100	
==>Mark found; but Pod::Simple v$Pod::Simple::VERSION doesn't implement UTF16 yet."
        );
        splice @_;
        push @ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3374	3498	
==>Mark found; but Pod::Simple v$Pod::Simple::VERSION doesn't implement UTF16 yet."
        );
        splice @_;
        push @ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	4854	4973	
==>rgs)) . ")");
      $compiler->emit("  .return(__result)");
    }
    else {
      $compiler->emit("  __func(" . join(", <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	10862	10973	
==>nt t%

' Expect 7
t%=7
print t%*1

' Also expect 7
t%=7
print 1*t%

' Expect correct
t=0
if t then print "Wrong" <==
2	/Users/nnunley/parrot/lib/Test/More.pm	7319	7446	
==>of that to
determine if the test succeeded or failed.  So these:

    # Is the ultimate answer 42?
    is( ultimate_answer(), 42 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	4520	4638	
==>>pass1(rop('alternate', \@children), $ctx);
        @{ $t->{args} } = ($opt, $leftovers);
        return $t;
    } else <==
2	/Users/nnunley/parrot/config/auto/msvc.pm	707	836	
==>run() or die "Can't run the test program: $!";
    cc_clean();

    # Set msvcversion to undef.  This will also trigger any hints- <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	10391	10536	
==>st not be explicitly defined in a class
created by C<struct>.

The I<ELEMENT_LIST> has the form

    NAME => TYPE, ...

Each name-type pair declar <==
2	/Users/nnunley/parrot/Configure.pl	7836	7983	
==>raries
   --icudatadir=(path)  Directory to locate ICU's data file(s)

Other Options (may not be implemented):

   --maintainer         Create imcc' <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15502	15599	
==>urn =~ /^P/;
  my $value = $self->_generate (_get_arg($node,2));
  $self->_add_inst ('', 'set', [$ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15860	15957	
==>urn =~ /^P/;
  my $value = $self->_generate (_get_arg($node,2));
  $self->_add_inst ('', 'set', [$ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16253	16487	
==>9,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			"[" => 88,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 90,
			'function' => 26,
			'primary' => 28,
			'field <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1235	1324	
==>->tag(...)

A shortcut for $token->tagname(...)

=item $token->is_tag(I<somestring>) or $t <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1665	1754	
==>->tag(...)

A shortcut for $token->tagname(...)

=item $token->is_tag(I<somestring>) or $t <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	504	594	
==>ock) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Left ( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	495	585	
==>ock) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Left ( <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	4846	5091	
==>($result, $type, @code)=EXPRESSION();
		$false=qq{""} if $type eq "S";
		push @{$code{$seg}->{code}}, <<CODE;
	branch ELSEBRANCH_$elseline
IFBRANCH_$c:
@code	eq $result, $false, IFBRANCH_$ifline
CODE
		feedme();
		push(@ifstack, $ifline);
		$ifli <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	4142	4263	
==>($result, $type, @code)=EXPRESSION();
		$false=qq{""} if $type eq "S";
		push @{$code{$seg}->{code}},<<EXPR;
@code	eq $res <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	5102	5224	
==>f'}; # so it can be GC'd
      }
       # to make sure that an undef is always sent to signal end-of-stream

    } elsif(ex <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	951	1044	
==>rn <<END;
#define REL_PC ((size_t)((opcode_t*)cur_opcode - (opcode_t*)interpreter->code->prede <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1081	1174	
==>rn <<END;
#define REL_PC ((size_t)((opcode_t*)cur_opcode - (opcode_t*)interpreter->code->prede <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	27902	28058	
==>'goto', [ $back ]),
          $db_start => $self->dbprint("-> $desc ENTER\n"),
                       @ops,
                       $self->dbprint(".. $desc N <==
2	/Users/nnunley/parrot/config/init/hints/vms.pm	8	115	
==>ght (C) 2005, The Perl Foundation.
# $Id: /parrot/config/init/hints/vms.pm 19593 2006-05-30T02:28:15.110975Z <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	4924	5035	
==>ource_arrayref'} } ) {
        DEBUG and print "That's it for that source arrayref!  Killing.\n";
        $self- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205303	205600	
==>> 242,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 387 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_CMP) < <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336629	337165	
==>t\n   */\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getfd",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	15171	15289	
==>ies, $lastback);

    my (@ibacks, @iops);
    foreach (@args) {
        my ($iback, @ops) = $self->rewrite($_, shift(@ <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	6260	6352	
==>ichael G Schwern
E<lt>schwern@pobox.comE<gt>, wardrobe by Calvin Klein.


=head1 COPYRIGHT

C <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5506	5751	
==>ELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "load_bytecode",
                  "FLAGS" => ":load_file" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6171	6416	
==>ELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "load_bytecode",
                  "FLAGS" => ":load_file" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423016	423337	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "listen",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423912	424233	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "listen",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	14374	14489	
==>e all variants for scalar dyadic ops.
my @type_pairs = (
  [ 'Float', 'Float' ],
  [ 'Float', 'APLVector' ], 
  [ 'A <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	12524	12624	
==>eturn;

  my ($locals, @body) = _get_args ($node,1);
  my (@variables, @values);
  for (@{$locals->{c <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4125	4364	
==>);
        $handler->end_element({ Name => 'ident' });

        $string = $6;
      }

      if (defined $string and $string ne '') {
        $handler->start_element({ Name => 'literal', Attributes => { type => $type->name } });
        $ha <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	3309	3447	
==>his for gcc.
        } else {
            my $linkflags = $conf->data->get('linkflags');
            $conf->data->add(' ', linkflags => '-x <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15588	15731	
==>hantability or fitness for a particular purpose.

Portions of the data tables in this module are derived from the
entity declarations in the W3C <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	2562	2676	
==>uld skip over?
        } elsif ($line eq "" && (!$cur_method || $cur_method->{'unimplemented'})) {
            # Do <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015041	1015141	
==>= strerror({{\@2}});\n  {{\@1}} = string_make(interpreter, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=3} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015865	1015965	
==>= strerror({{\@2}});\n  {{\@1}} = string_make(interpreter, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=3} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	9420	9568	
==>k ]),
                     aop('goto', [ $next ]),
            $back => $self->dbprint("Unmatching $char\n"),
                     aop('increment', [ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	11591	11814	
==>}->leftmostsubrules() )
		{
		    push(@left, $child)
			if ! _contains($child, @left) ;
		}
	}
	return 0;
}

package Parse::RecDescent::Production;

sub describe ($;$)
{
	return join ' ', map { $_->describe($_[1]) or () } @ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	30389	30619	
==>l);
    return 0 unless $pack;

    no strict 'refs';
    return defined ${$pack.'::TODO'} ? ${$pack.'::TODO'}
                                     : 0;
}

=item B<caller>

    my $package = $Test->caller;
    my($pack, $file, $lin <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	2428	2563	
==>open(F, "<$file") || die "Can't read $file: $!\n";
    {
        local $/=undef;
        my $contents = <F>;
    
	foreach (keys %$typed <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31195	31317	
==>dForList {
    my ( $parser, $vars, $exprs, $block ) = @_;
    my @opcodes1 = ();
    my @opcodes2 = ();
    my @opcode <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	25155	25280	
==>/s or $new_letter) {
      DEBUG > 2 and print " $new_letter isn't a valid thing to entend.\n";
      $self->whine(
        $p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237880	238214	
==>AGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 277,
                  "ARGS" => [
                              "i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	5550	5664	
==>se-brace');   }
sub require_close_bracket { return shift->require('close-bracket'); }
sub require_close_paren   { r <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	358	458	
==>:Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining if your C compiler is actu <==
2	/Users/nnunley/parrot/config/auto/msvc.pm	378	478	
==>:Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining if your C compiler is actu <==
2	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	505	602	
==>hat this is only done for development versions of Parrot, i.e. the
file F<DEVELOPING> exists. Rele <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	17231	17337	
==>ippet, convert it to something usable in the generated file

sub interpolate {
    my $code = shift;
    my <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	395	531	
==>ments;
use COMP_expressions;

our @basic=();


$SIG{__DIE__}=sub {
	print "At BASIC source line $main::sourceline:\n";
	$_=$_[0];
	s/^(.{ <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2809	2946	
==>alid escape sequence $_ .\n"),
                last;
        }
    }

    $parser->Error("Untermined string.\n");
    $parser->YYDat <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4324	4461	
==>alid escape sequence $_ .\n"),
                last;
        }
    }

    $parser->Error("Untermined string.\n");
    $parser->YYDat <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	4197	4391	
==>ain() {
    long double foo;
    printf("%u", sizeof(foo));
    return 0;
}
END
            close TEST;

            cc_build();
            cc_run();
        }
        ) {
        $conf->data->s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1052797	1053251	
==>IRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1176,
                  "ARGS" => [
                              "p",
                              "sc",
                              "sc"
                            ],
                  "BODY" => "#line 172 \"src/ops/var.ops\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030193	1030445	
==>E" => "sleep",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1152,
                  "ARGS" => [ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	15079	15267	
==>q "STMT" or $type[CURR] eq "COMP") {
			print CODE<<EQ;
@a	bsr DEREF
	push P12, P6   # Save result for later.
EQ
			$ors++;
		}
		if ($syms[CURR] eq "to") {
			my @b=EXPRESSION();
			feedme <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	1163	1346	
==>>{_temps}{$name}) {
        $name .= ++$self->{_temp_int_count};
    }
    $self->{_temps}{$name} = 'int';
    return "<$name>";
}

# This implementation should be overridden by the ho <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4794	4912	
==>nation";
    my $dest = $1;

    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_lib <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4898	5016	
==>nation";
    my $dest = $1;

    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_lib <==
2	/Users/nnunley/parrot/config/auto/inline.pm	374	550	
==>:Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining if your compiler supports inline';

@args = qw(inline verbose);

sub runstep
{
    my ($self, $conf) = <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	55052	55253	
==>alue is either
$1 if that variable is defined after the match, or else the
complete match (i.e. $&).

If the extractor is a hash reference, it must contain exactly one element.
The value of that element <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	312583	312674	
==>ntext_info info;\n  Parrot_Context_info(interpreter, CONTEXT(interpreter->ctx), &info);\n  { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	313315	313406	
==>ntext_info info;\n  Parrot_Context_info(interpreter, CONTEXT(interpreter->ctx), &info);\n  { <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	690	790	
==>ext under the same copyright as the Parse::Yapp module itself.
#
# This notice should remain unchan <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	670	768	
==>ext under the same copyright as the Parse::Yapp module itself.
#
# This notice should remain unchan <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129774	129985	
==>"BODY" => "#line 301 \"src/ops/bit.ops\"\n  {{\@1}} ^= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130513	130724	
==>"BODY" => "#line 301 \"src/ops/bit.ops\"\n  {{\@1}} ^= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	24793	24919	
==>, $method->{parameters});
      $cout .= <<"EOC";
        enter_nci_method(interp, entry,
                F2DPTR(Parrot_${class <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34795	34904	
==>->{"name"} .'})
							if defined $::RD_TRACE;').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse:: <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41905	42014	
==>->{"name"} .'})
							if defined $::RD_TRACE;').'
			if ($Parse::RecDescent::lastexpected
			    && !$Parse:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749230	749678	
==>base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 844,
                  "ARGS" => [
                              "p",
                              "nc"
                            ],
                  "BODY" => "#line 199 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_number_nat <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	738	847	
==>';
}

=item C<file_class()>

Returns the class used in the various file creation methods. This default
impleme <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	2230	2330	
==>tf "%d.%d", q$Revision: 19607 $ =~ /(\d+)/g; # jhi@iki.fi;

my $ME = basename($0);
my $RCS_DATE = q$D <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2895	3053	
==>s/\Q$SRCDIR\E//g;
            $generated_files{$path} = $tmp;
            $tmp = '';
        } else {
            $tmp .= $_;
        }
    }
    close(GCOVSUM <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10516	10665	
==>C', 'E', 'E', 'E', 'E', 'I', 'I', 'I', 'I',
'D', 'N', 'O', 'O', 'O', 'O', 'O', 'x', 'O', 'U', 'U', 'U', 'U', 'U', 'Th', 'ss',
'a', 'a', 'a', 'a', 'a', <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1039	1130	
==>s the default 'C<Parrot_>' prefix.

Used by C<Parrot::Op>'s C<func_name()> to individuate op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944886	945187	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "charsetname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945695	945996	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "charsetname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	519	775	
==>script uses a supplied transform to create a pair of C header and
implementation files from the operation definitions found in one or more
F<*.ops> files.

=head2 Transforms

The first command-line argument is the last package name component of a
subclass o <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	29922	30105	
==>ver_type = $over->[1]{'~type'};
        
        if(!$over_type) {
          # Shouldn't happen1
          die "Typeless over in stack, starting at line "
           . $over->[1]{'star <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	1133	1267	
==>ne of:

    in            the argument passes a value into the op
    out           the argument passes a value out of the op
    inout <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670191	670599	
==>" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 750,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "B <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51430	51723	
==>> [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 66,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 815 \"src/ops/core. <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	51547	51681	
==>r (before the first rule 
					       is defined.");
				}
				else
				{
					undef $self->{_AUTOACTION};
					$self->{_AUTOTREE}{NODE <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	22016	22205	
==>{
    my $a = shift;
    my %rets = (
	'id'       => 'I',
    );
    return $rets{$a} if defined $rets{$a};
    return 'P';
}
sub OPC_isinstance
{
    my ($n, $c, $cmt) = @_;
    my $i = tem <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	2530	2643	
==>ork together>.

=head2 Construction

=over 4

=item B<new>

  my $Test = Test::Builder->new;

Returns a Test::Buil <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10587	10705	
==>}

    #never reached
	croak("Error in driver logic. Please, report it as a BUG");

}#_Parse
#DO NOT remove comme <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10113	10225	
==>}

    #never reached
	croak("Error in driver logic. Please, report it as a BUG");

}#_Parse
#DO NOT remove comme <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225508	225688	
==>ber(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226449	226629	
==>ber(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	68046	68167	
==>tered",
			       $line);
			_hint("Did you forget the closing curly bracket
			       or is there a syntax error in the a <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	15576	15681	
==>lder->exported_to() || '';
            # die Dumper( $code, $expected, $desc, \%extra, $extra{todo}, $call <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	18127	18232	
==>lder->exported_to() || '';
            # die Dumper( $code, $expected, $desc, \%extra, $extra{todo}, $call <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806106	806364	
==>teger_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807012	807270	
==>teger_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9752	9853	
==>e_open_paren;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->require_value) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25288	25389	
==>e_open_paren;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->require_value) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026092	1026521	
==>info",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1147,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 280 \"src/o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670963	671318	
==>" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 751,
                  "ARGS" => [
                              "p",
                              "s <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38821	38999	
==>';
    my $func_ret = '(void) ';
    my $ret_type = '';
    if ($method->{type} ne 'void') {
        my $type = $method->{type};
        $ret_def = "$type ret_val;";
        $func <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660103	660210	
==>}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->exists_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661025	661132	
==>}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->exists_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}} <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	21164	21322	
==>})/;
                hex($x) <=> hex($1)
            } @rules;
            $pir .= "B2_BRANCH_$_:\n";
            $pir .= "    cur_ic = bc.read_uint8()\n    ne <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	1925	2149	
==>OLS => { },     # Identifiers
    CONTENT => [ ]      # Constructs
  }, $class;
}


###############################################################################

#
# ACCESSORS:
#

sub peer      { return shift->{PEER};  }
s <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2949	3059	
==>e one should be skipped"
Label2:
   PRINT "4 back in subroutine one"
   RETURN Label1
Sub2:
   PRINT "3 in subr <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16916	17026	
==>e one should be skipped"
Label2:
   PRINT "4 back in subroutine one"
   RETURN Label1
Sub2:
   PRINT "3 in subr <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	14057	14203	
==>ub unlike {
    my($self, $this, $regex, $name) = @_;

    local $Level = $Level + 1;
    $self->_regex_ok($this, $regex, '!~', $name);
}

=item B< <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210942	211269	
==>YPE" => "function",
                  "CODE" => 248,
                  "ARGS" => [
                              "p",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 408 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}} <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	23032	23205	
==><<"EOC";
        vt_clone->base_type = entry;
        vt_clone->whoami = string_make(interp,
            "$classname", @{[length($classname)]}, "ascii",
            PObj_cons <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2516	2614	
==>ward branches until late to do
	# otherwise. Also, putting a label everywhere doesn't hurt the fina <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1094	1192	
==>ward branches until late to do
	# otherwise. Also, putting a label everywhere doesn't hurt the fina <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	21680	21796	
==>c = defined $_[1] ? @{$_[1]} : @{$def_func};
		my $max  = defined $_[2] && $_[2]>0 ? $_[2] : 1_000_000_000;
		my $igu <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	3512	3703	
==>ft;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = find_lex \"$op->{arg1}->{symbol}\"\n";
    }

    sub visitStoreL <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	26998	27179	
==>extract_quotelike,
					\&some_other_extractor_sub,
					qr/[xyz]*/,
					'literal',
				      ]);

# Create a string representing an optimized pattern (a la Friedl)
# that matches a <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	18351	18470	
==>///////////////

      my $content = join ' ', splice @$para, 2;
      $content =~ s/^\s+//s;
      $content =~ s/\s+$// <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21321	21440	
==>///////////////

      my $content = join ' ', splice @$para, 2;
      $content =~ s/^\s+//s;
      $content =~ s/\s+$// <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434491	434600	
==>} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435506	435615	
==>} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LA <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	1703	1815	
==>$chr =~ /^[[:graph:]]$/;  # CCLASS_GRAPHICAL      
    $ret |= 0x0100 if $chr =~ /^[[:blank:]]$/;  # CCLASS_BLANK <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	920	1014	
==>rectory;
use base qw(Parrot::Docs::Directory);

=item C<new()>

Searches up the file system tre <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1676	1818	
==>IPTION

This class is not of interest to general users.

Pod::Simple uses this class for representing the value of the
"section" attribute of " <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7893	8072	
==>)
                            : @sempar ? $sempar[0] : undef;

            splice(@$stack,-$len,$len);

                $$check eq 'ACCEPT'
            and do {

#DBG>			$d <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7538	7709	
==>)
                            : @sempar ? $sempar[0] : undef;

            splice(@$stack,-$len,$len);

                $$check eq 'ACCEPT'
            and do {

#DBG>			$d <==
2	/Users/nnunley/parrot/lib/Test/More.pm	11592	11741	
==>'    can_ok() called with no methods');
        return $ok;
    }

    my @nok = ();
    foreach my $method (@methods) {
        local($!, $@);  # don <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	3319	3450	
==>f UNIVERSAL::isa($dest_type, 'Jako::Construct::Type::PMC');
  $self->SYNTAX_ERROR("Can't do arithmetic on PMCs") if UNIVERSAL::isa($ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1376	1490	
==>input?",
            '<rx_match>{0}->[0] = <rx_pos>; # group 0 start := pos');
}

sub output_increment {
    my ($s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812778	813220	
==>one",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 917,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 524 \"src/ops/set <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9511	9883	
==>":base_loop,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 13,
                  "ARGS" => [
                              "sc"
                            ],
                  "BODY" => "#line 182 \"src/ops/core.ops\"\n    char * const <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	4656	4764	
==>evision} ||
      $b->{timestamp}[0]  <=> $a->{timestamp}[0]
    } @{ $cats{$_} })
    [0..MAX_SMOKES_OF_SAME <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	1978	2184	
==>mage and CSS file directory.

=cut

sub footer
{
    my $self = shift;
    my $navigation = shift || '';
    my $resources = shift || '';
    
    <<"FOOTER";
        </DIV>
        <P>
        <TABLE BORDER <==
2	/Users/nnunley/parrot/config/auto/perldoc.pm	566	715	
==>version = 0;
    my $a       = capture_output('perldoc -ud c99da7c4.tmp perldoc') || undef;

    if (defined $a) {
        if ($a =~ m/^Unknown option <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4145	4244	
==>ert lib-GROUP.so + A.so + B.so ... -> GROUP.so
    while (my ($group, $pmcs) = each %$group_files) { <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4249	4348	
==>ert lib-GROUP.so + A.so + B.so ... -> GROUP.so
    while (my ($group, $pmcs) = each %$group_files) { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40	139	
==>S FILE   !!!!!!!
#
# This file is generated automatically from 'src/ops/core.ops'.
# Any changes mad <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5203	5343	
==>sts $op->{result} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $first = 1;
            foreach ( @{ $o <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6235	6375	
==>sts $op->{result} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $first = 1;
            foreach ( @{ $o <==
2	/Users/nnunley/parrot/lib/Test/More.pm	4475	4654	
==>q 'no_diag' ) {
            $Show_Diag = 0;
        }
        else {
            push @cleaned_plan, $item;
        }

        $idx++;
    }

    $Test->plan(@cleaned_plan);
}

sub <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	513250	513457	
==>ine 695 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}}->vtable->neg(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	1762	1862	
==>h ENDMAINLOOPNR

DOLINE:
	save S0
	bsr RUNLINE
	restore I0
	branch ENDMAINLOOP
	end

ENDMAINLOOP:
	br <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	19281	19378	
==>}


=begin _unimplemented

=item B<skip_rest>

  $Test->skip_rest;
  $Test->skip_rest($reason);

L <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	3413	3534	
==>argument to each steps
C<runstep()> method followed by any parameters that were registered for that
step.

Accepts no argu <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5485	5580	
==>D_C
}

=item C<run_core_finish($base)>

Returns the C code following the run core function.

=cu <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3821	3916	
==>D_C
}

=item C<run_core_finish($base)>

Returns the C code following the run core function.

=cu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	7617	8068	
==>{
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "branch",
                  "FLAGS" => ":base_loop",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 11,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 171 \"src/op <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11354	11460	
==>ose(IN);


    $outfile = "$outfile_base.branches.html";
    print "Writing $outfile..\n" if $DEBUG;
    op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363537	363641	
==>){{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364440	364544	
==>){{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error here */\n  }\n  { <==
2	/Users/nnunley/parrot/config/gen/icu.pm	4512	4619	
==>on't need anything more.
        print "Your compiler found the icu headers... good!\n" if $verbose;
    } e <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	45677	45805	
==>&#160;faz quux", you
       # end up with something that fails to say "and don't hyphenate
       # any part of 'bar baz'".  Howe <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	5108	5236	
==>} =~ /^([0-9A-F]{2}\s+)*[0-9A-F]{2}$/) {
                if ($has_code) {
                    die "Duplicate value for code in ru <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	660	846	
==>map { $_ => 0 } (0..31) },
  };
};

sub _save {
  my $self  = shift;
  my $count = shift;
  my $type  = shift || 'I';

  die "No registers to save"
    unless $count and $count>0;
  die " <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	1769	1962	
==>_val = -1;
                %values   = ();
                open INC, ">$inc.tmp" or die "Can't write $inc.tmp";
                print INC "/*\n" if $inc =~ /\.h/;
                print INC <<"EO <==
2	/Users/nnunley/parrot/tools/dev/pbc_header.pl	1854	2036	
==>i],$c;
	}
    }
}

sub main {
    my ($result, $upd_fp);
    $result = GetOptions(
	"update-fingerprint"     => \$upd_fp,
    );

    $upd_fp and do {
	update_fp;
	exit;
    };

    p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	229052	229385	
==>function",
                  "CODE" => 267,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 538 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_STRCM <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18123	18267	
==>' );
    push @opcodes, @{ $key->[1] };
    my $result = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	6008	6130	
==>ext is now the raw TODO, so we have to check it
    my $context;

    # Check if we have to forcetodo this test
    # becau <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15435	15544	
==>Bool;
  multi sub is_deeply (Pair  $got, Pair  $expected, Str $desc?) returns Bool;

Because these functions w <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	8	192	
==>Parrot::Test::Tcl;

use File::Basename;

require Parrot::Test;

=head1 Parrot::Test::Tcl

Provide language specific testing routines here...

This is currently alarmingly similar to the <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660101	660187	
==>@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->exists_keyed_int(interpreter, {{\@2} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661023	661109	
==>@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->exists_keyed_int(interpreter, {{\@2} <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	9518	9716	
==>, @CODE);
	feedme();
	if ($syms[CURR] eq "#" and $type[CURR] eq "PUN") { 
		feedme();
		$fd=$syms[CURR];
		feedme();
		feedme();
	}
	if ($syms[CURR] eq "using") {
		print "WARNING: PRINT USING not ye <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	17676	17785	
==>OC
}

sub JUMP_IF_FALSE
{
    my ($n, $c, $cmt) = @_;
    if (!@stack) {
	print "#XXX\t\t$cmt - stack empty\n" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4580	4701	
==>r->emit("  $temp = $left $op $right");
    $compiler->emit("  $dest = $temp");
  }
  else {
    $compiler->emit("  $dest = <==
2	/Users/nnunley/parrot/config/inter/lex.pm	642	762	
==>gs        = qw( lex ask maintainer );

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get(' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	4754	4883	
==>f (UNIVERSAL::isa($arg, 'Regex::Ops::Tree')) {
                # $arg is a reference variable, remember.
                $arg = $s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	10104	10233	
==>f (UNIVERSAL::isa($arg, 'Regex::Ops::Tree')) {
                # $arg is a reference variable, remember.
                $arg = $s <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	7229	7346	
==>)
    .local pmc __name__
    __name__ = new $DEFVAR
    __name__ = '__main__'
    global '__name__' = __name__
    .l <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	1554	1712	
==>string => 'STRING');
			if (exists $th{$stype}) {
				$stype=$th{$stype};
			} else {
				unless (exists $usertypes{$stype}) {
					die "User type $stype not f <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	18204	18317	
==>ked treelet hack to $_[0][0]\n";
    $treelet = $_[0][0];
    splice @$treelet, 0, 2;  # lop the top off
    retur <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	1184	1296	
==>d** prederef_addr)
{
    INTVAL offset_in_ops;
    if (prederef_addr == NULL) return NULL;
    offset_in_ops = pr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	619575	619671	
==>f (PARROT_ERRORS_test(interpreter,PARROT_ERRORS_OVERFLOW_FLAG)) {\n\t\treal_exception(interpreter <==
2	/Users/nnunley/parrot/config/gen/config_pm.pm	731	876	
==>onfig.in', 'myconfig');

    open(IN,  "config/gen/config_pm/Config_pm.in") or die "Can't open Config_pm.in: $!";
    open(OUT, ">lib/Parrot/Confi <==
2	/Users/nnunley/parrot/config/auto/gc.pm	620	733	
==>t

package auto::gc;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

u <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203395	203685	
==>YPE" => "function",
                  "CODE" => 240,
                  "ARGS" => [
                              "sc",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 380 \"src/ops/cmp.ops\"\n  if (strin <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	16738	16880	
==>= P1
	bsr RUNTIME_PUSH
	P0= P5
	bsr RUNTIME_PUSH
	dec I5
	gt I5, 0, CASE_${jump}_${incase}_STARTOPS
OPS
	}
	$incase++;
	print CODE<<ENDCASE;
	b <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	4592	4803	
==>$pass;
    for my $regex ( @{ $cfg{run_bench} } ) {
        $pass++ and last if /$regex/;
    }
    return if ! $pass;
    my $fail;
    for my $regex ( @{ $cfg{skip_bench} } ) {
        $fail++ and last if /$reg <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	3594	3735	
==>RSION;
    }

    if ($dd_version >= 2.12) {
        *dump = sub {
            my $self = shift;
            Data::Dumper->new([$self->{c}], [ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24385	24511	
==>rget_token) if $target_token;

      my ($cond, $left, $op, $right);

      if ($self->get(1)->is_if or $self->get(1)->is_unles <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	11205	11349	
==>[$n, $c, $typ];
}
sub LOAD_LOCALS {
    my ($n, $c, $cmt) = @_;
    # TODO $cmt
    my $pad = temp('P');
    print <<EOC;
	peek_pad $pad      # ? <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754173	754421	
==>E" => 850,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 261 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_integer_native(interpret <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	23309	23413	
==>y $type;
			$type="FLO";
			my %th=( single => 'FLO', double => 'FLO', long => 'INT', integer => 'INT', s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43262	43513	
==>"JUMP" => 0,
                  "NAME" => "pushmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43905	44156	
==>"JUMP" => 0,
                  "NAME" => "pushmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2407	2608	
==>en" \
   thingy.pod

=head1 DESCRIPTION

This class is for dumping, as text, the events gotten from parsing a Pod
document.  This class is of interest to people writing Pod formatters
based on Pod::Simp <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	26267	26437	
==>n't
have to set this.

If set forward, the details of the missing tests are filled in as 'unknown'.
if set backward, the details of the intervening tests are deleted.  You <==
2	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1612	1715	
==>ts the path to the smoke server.
  --version
    Outputs the version of this program and exits.
  --help <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89264	89492	
==>ine 38 \"src/ops/bit.ops\"\n  {{\@1}} &= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90002	90230	
==>ine 38 \"src/ops/bit.ops\"\n  {{\@1}} &= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11361	11464	
==>RIC}:

# Finished.
goto PRE_CALL_END_${CURIC}

# It's a return. See if we have a return value.
PRE_CALL_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8547	8650	
==>RIC}:

# Finished.
goto PRE_CALL_END_${CURIC}

# It's a return. See if we have a return value.
PRE_CALL_ <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	12367	12539	
==>testheader' => undef,
             'testheaders' => undef,
             'touch' => 'perl -MExtUtils::Command -e touch',
             'unsetenv' => 1,
             'va_ptr_ty <==
2	/Users/nnunley/parrot/lib/Test/More.pm	36272	36447	
==>l cases and
magic side-effects are kept to a minimum.  WYSIWYG.


=head1 SEE ALSO

L<Test::Simple> if all this confuses you and you just want to write
some tests.  You can upgr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676021	676113	
==>c/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_integer(interpreter, {{\@1}}, {{\@2}});\n    {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676801	676893	
==>c/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_integer(interpreter, {{\@1}}, {{\@2}});\n    {{ <==
2	/Users/nnunley/parrot/languages/lua/luac.pl	1031	1301	
==>e();
}

__END__

=head1 NAME

luac - Lua compiler

=head1 SYNOPSIS

 luac [options] I<source>.lua

=head1 OPTIONS

=over 8

=item B<-h>

Display help.

=item B<-v>

Display version.

=back

=head1 DESCRIPTION

=head1 AUTHOR

Francois Perrad <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	52975	53088	
==>ock($grammar,'{',undef,'<');
					 $code;
				       } )
			{
				_parse("an autoscore specifier", $aftererror,$li <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	30020	30165	
==>er);
    push @opcodes, new BranchOp( $parser,
        'result' => $lbl_blk,
    );
    push @opcodes, new LabelOp( $parser,
        'arg1' = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151055	151143	
==>== string_equal(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152033	152121	
==>== string_equal(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	28229	28330	
==>[0][1]{'start_line'};

  # A recursive algorithm implemented iteratively!  Whee!

  while($treelet = s <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	31730	31831	
==>[0][1]{'start_line'};

  # A recursive algorithm implemented iteratively!  Whee!

  while($treelet = s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4141	4283	
==>har 1234 into "(1234)"
    $section = '_' unless length $section;
  }
  
  

  foreach my $it ($to, $section) {
    if( defined $it ) {
      $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	935758	936046	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "titlecase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936534	936822	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "titlecase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	144	239	
==>t interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm 19606 2006 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6484	6594	
==>shift;
    my $token = shift;
    my $tagname = $token->tagname;
    
    print {$self->{'output_fh'}} $self->{ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10767	10933	
==>har 1234 into "(1234)"
        $section = '_' unless length $section;
    }
    
    foreach my $it ($to, $section) 
    {
        next unless defined $it;

        $i <==
2	/Users/nnunley/parrot/lib/File/Which.pm	4036	4148	
==>ion of
directly executable files, but uses special extensions such as C<.exe> and
C<.bat> to identify them, C<Fil <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6970	7113	
==>eg);

    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        return ("\$dbg_tmp = \@<rx_stack>;",
                " <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9122	9264	
==>eg);
    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        return ("\$dbg_tmp = \@<rx_stack>;",
                " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	604777	605188	
==>i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 685,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 430 \"src/ops/object.ops\"\n    Parrot_remove_parent(interpreter, {{\@2}}, {{\@1}});\n    {{+=3}};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426191	426449	
==>v_pi(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427078	427336	
==>v_pi(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	15424	15527	
==>", map { "$temp[$_]->[1] = arg$_;"} @tempi);
        print NCI << "HEADER";
static void
pcf_${return}_$p <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	30466	30566	
==>ed:

	($remainder = $text) =~ s/\A('(\\.|[^'])*')//s;
	$extracted = $1;

but with C<extract_delimited <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	489	611	
==>TIONS

## plan

sub plan (Int $number_of_tests) returns Void is export {
    $Test::testing_started = 1;
    $Test::num_of_ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	2654	2888	
==>arser - The Scheme token parser

=head1 SYNOPSIS

  use Scheme::Parser qw(parse);

  my @code = parse($tokens);

=head1 DESCRIPTION

The parser reads a list of tokens and turns it into a tree structure.

=head1 AUTHOR

Jeffrey Goff, dr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054383	1054475	
==>m null namespace.\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to get null global. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055510	1055602	
==>m null namespace.\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to get null global. <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1029	1126	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub handle_text {  $_[0]{'Errata_seen'} and $_[0]{'Thispara'} .= $_ <==
2	/Users/nnunley/parrot/config/inter/lex.pm	1034	1159	
==>self;
    }

    my $prog;

    # precedence of sources for the program:
    # default -> probe -> environment -> option -> as <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	1031	1156	
==>self;
    }

    my $prog;

    # precedence of sources for the program:
    # default -> probe -> environment -> option -> as <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	5426	5577	
==>psilon'  , 933,
 'Phi'      , 934,
 'Chi'      , 935,
 'Psi'      , 936,
 'Omega'    , 937,
 'alpha'    , 945,
 'beta'     , 946,
 'gamma'    , 947,
 'd <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	112	453	
==>02:00.179448Z bernhard  $

=pod

=head1 NAME

Parrot::Configure::Data - Configuration data container

=head1 SYNOPSIS

    use Parrot::Configure::Data;

    my $data = Parrot::Configure::Data->new;
    my @values = $data->get(@keys);
    $data->set($key1 => $value1, $key2 => $value2);
    $data->add($delimiter, $key1 => $value1, $key2 => $v <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	21765	21883	
==>L~S~X~Z" eq join '~', sort keys %$map)
     ? "  (all normal)\n" : "\n"
  ;

  # A recursive algorithm implemented iter <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2237	2343	
==>$push_num/g;
		$register_num++;
		$push_num++;
	}

	# Return generated code.
	return $pir;
}

sub post_op($ <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	9905	10041	
==>er for flags such as noinit
    while ($$c =~ s/^\s*(\w+)//s) {
        my $flag = $1;
        if ($has_value{$flag}) {
            $$c = <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10323	10423	
==>name of register to hold value we pop off the stack.
${PTEMP3} = ${STYPES}[${ITEMP2}]
${STEMP0} = "$" <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7707	7807	
==>name of register to hold value we pop off the stack.
${PTEMP3} = ${STYPES}[${ITEMP2}]
${STEMP0} = "$" <==
2	/Users/nnunley/parrot/config/init/manifest.pm	236	341	
==>heck that the distribution is complete.

=cut

package init::manifest;

use strict;
use vars qw($descripti <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3067	3165	
==>d::Simple::Debug (\$debug_level,0);  # or some integer

is basically equivalent to this:

  my $deb <==
2	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	554	713	
==>o compile.
	my $kind = $file_name =~ /\.dll$/ ? '-target:library' : '';
	my $output = `mcs -out:$file_name $kind $opt $file_name.cs`;
	if ($output) {
		print "c <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	6889	6999	
==>>expr_address($1); /me;

    return $_;
}

=item C<rewrite_body($body, $trans)>

Performs the various macro sub <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	648	741	
==>CHAR = "?" unless defined $FAR_CHAR;
$FAR_CHAR_NUMBER = ord($FAR_CHAR) unless defined $FAR_CHA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206312	206522	
==>"p",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 394 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interprete <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	12129	12361	
==>me'] = $uid";
    }
    return (@ops,
            "<rx_tmp> = $uid\['!RESULT']",
            "unless <rx_tmp>, $fail_label");
}

sub output_code {
    my ($self, $code) = @_;
    # Assume, for now, that the code is PIR code
    retur <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121945	122051	
==>\"src/ops/bit.ops\"\n  /*\n   * lvalue casts are evil, but this one isn't evil enough to kill.\n   * it's j <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122857	122963	
==>\"src/ops/bit.ops\"\n  /*\n   * lvalue casts are evil, but this one isn't evil enough to kill.\n   * it's j <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5823	5919	
==>>{code}}, "IFBRANCH_$_:\n";
			}
			while($_=pop(@{$elsestack->{$elsetag}})) {
				push @{$code{$ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8169	8262	
==>>{code}}, "IFBRANCH_$_:\n";
		}
		while($_=pop(@{$elsestack->{$elsetag}})) {
			push @{$code{$ <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	1791	1943	
==>uild/pmc2c.pl] . $PATHQUOTE;

# Actual commands
sub compile_cmd {
    my ($target, $source) = @_;

    return
        "$CC $CFLAGS " .
        "-o " . $t <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	1882	2034	
==>uild/pmc2c.pl] . $PATHQUOTE;

# Actual commands
sub compile_cmd {
    my ($target, $source) = @_;

    return
        "$CC $CFLAGS " .
        "-o " . $t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146221	146388	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 91 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1064	1165	
==>CUR_OPCODE ((opcode_t*)cur_opcode + CONTEXT(interpreter->ctx)->pred_offset)

#  define opcode_to_prede <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1194	1295	
==>CUR_OPCODE ((opcode_t*)cur_opcode + CONTEXT(interpreter->ctx)->pred_offset)

#  define opcode_to_prede <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16502	16602	
==>ware; you can redistribute it and/or modify it
under the same terms as Perl itself.

See http://www.p <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1716	1816	
==>ware; you can redistribute it and/or modify it
under the same terms as Perl itself.

See http://www.p <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	8624	8742	
==>ef="function_summary.html#$source_file">function detail</a>]</td>
          </tr>
       );
    }
    
    print OUT qq <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	7597	7722	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
#
# And now targets (not directives)

sub accept_target         { shift->accept_tar <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	2617	2714	
==>les> array.

The .c file is generated by appending the functions after the various
directives have <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350999	351200	
==>nterpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351661	351862	
==>nterpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/examples/benchmarks/primes.pl	138	304	
==>coke  $

=head1 NAME

examples/benchmarks/primes.pl - Calculate prime numbers < 10000

=head1 SYNOPSIS

    % time perl examples/benchmarks/primes.pl

=head1 DESCRIPTI <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	118	229	
==>e strict;

use Carp ();

BEGIN { *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG }

sub new {
  my $self = s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	117	228	
==>e strict;

use Carp ();

BEGIN { *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG }

sub new {
  my $self = s <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	1355	1474	
==>RGV;

if ($mode !~ /^(source|object)$/ || ! @files) {
    die "Usage: $0 object <object files..>\n" .
        "       $0 <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	774	873	
==>ults to '/usr/bin'.

=item C<libdir>

The library directory. Defaults to '/usr/lib'.

=item C<includ <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	1003	1102	
==>ults to '/usr/bin'.

=item C<libdir>

The library directory. Defaults to '/usr/lib'.

=item C<includ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33592	33703	
==>f($paras->[0][0] eq '~Para') {
              DEBUG and print "Assimilating following ~Para content into $over_ty <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35405	35516	
==>f($paras->[0][0] eq '~Para') {
              DEBUG and print "Assimilating following ~Para content into $over_ty <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7907	8008	
==>i% then print "This is true" else print "Oops (int)"
i=0
if i then print "Should not happen (flo)"
i=5 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14894	14995	
==>i% then print "This is true" else print "Oops (int)"
i=0
if i then print "Should not happen (flo)"
i=5 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225483	225582	
==>({{\@1}}->vtable->get_number(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226424	226523	
==>({{\@1}}->vtable->get_number(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}} <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	2473	2574	
==>o_file = $from_file;
  $to_file =~ s/\..*$//;
  $to_file .= ".pasm";
}

open INPUT, "<$from_file" or d <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	29576	29701	
==>ndfunc;
}

sub parse_function_dispatch {
	return;
			print FUNC<<FUNCDISP;
				
	#
	# User function dispatch routine
	#
UF_DIS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627366	627465	
==>gister before its init method\n   * copies the registers. */\n  {{\@1}} = pmc_new_noinit(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628510	628609	
==>gister before its init method\n   * copies the registers. */\n  {{\@1}} = pmc_new_noinit(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	10131	10236	
==>y $path_to_parrot = path_to_parrot();
    my $parrot = File::Spec->join(File::Spec->curdir(), 'parrot' . $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506944	507260	
==>l",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 583,
                  " <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	6844	6968	
==>one
    # pop off the end and unshift onto the beginning
    $P1 = pop op2
    unshift op2, $P1
    inc op1
    goto neg

don <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	12826	12977	
==>ue => 'lambda' },
					   { children => [ @variables ] },
					   @body ]},
			   @values
			  ]};

  $return = $self->_generate($let);

  return $retur <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854541	854961	
==>DIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 970,
                  "ARGS" => [
                              "s",
                              "s",
                              "s"
                            ],
                  "BODY" => <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	36755	36850	
==>SO

Test::Simple, Test::More, Test::Harness

=head1 AUTHORS

Original code by chromatic, maintai <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9396	9560	
==>dbgerror;
#DBG>		};

            ++$$nberror;

        };

			$$errstatus == 3	#The next token is not valid: discard it
		and	do {
				$$token eq ''	# End o <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8975	9130	
==>dbgerror;
#DBG>		};

            ++$$nberror;

        };

			$$errstatus == 3	#The next token is not valid: discard it
		and	do {
				$$token eq ''	# End o <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4815	4924	
==>turn @ops;
}

sub output_classmatch {
    my ($self, $incexc, $failLabel) = @_;

    my $passLabel = $self->{s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4479	4588	
==>turn @ops;
}

sub output_classmatch {
    my ($self, $incexc, $failLabel) = @_;

    my $passLabel = $self->{s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1425	1537	
==>INTERNAL_ERROR("Undefined block!")
    unless defined $block;

  $self->INTERNAL_ERROR("Undefined type!")
    unl <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1273	1385	
==>INTERNAL_ERROR("Undefined block!")
    unless defined $block;

  $self->INTERNAL_ERROR("Undefined type!")
    unl <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9913	10010	
==>m C<relative_path_is_file($path)>

Returns whether the specified relative path is a file.

=cut

s <==
2	/Users/nnunley/parrot/tools/build/revision_c.pl	432	584	
==>/config.h>

=cut

use strict;
use Parrot::Revision;

print <<"EOF";
/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is genera <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	681	932	
==>CH {
        my ($self, $index) = @_;
        $self->[$index];
    }

    sub FETCHSIZE {
        my $self = shift;
        return scalar(@$self);
    }

    sub DESTROY { }
}

sub import {
    my $self = shift;

    if ( @_ == 0 ) {
      $self->expor <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	4911	5081	
==>} ||= $self->{state}->genlabel("beginning");

    # Stick in a next_stmt ref in every statement to make it easier to
    # move around.
    my $next;
    for my $stmt (rev <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2508	2606	
==>code matches the C<$expected>
parameter.  Note that C<$expected> is a I<Perl 5> pattern.

=cut

sub <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3942	4040	
==>code matches the C<$expected>
parameter.  Note that C<$expected> is a I<Perl 5> pattern.

=cut

sub <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28433	28536	
==>>>Matched terminal<< (return value: [}
						. $& . q{])},
						  Parse::RecDescent::_tracefirst($text) <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30509	30612	
==>>>Matched terminal<< (return value: [}
						. $& . q{])},
						  Parse::RecDescent::_tracefirst($text) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666798	667020	
==>\@1}} = VTABLE_elements(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	2529	2649	
==>$!";
    while ( my $line = <IN>) {
        if ($line =~ m/^#define/) {
            $line =~ s/PREV_OP\s(..?)\s(\w+)/(jit <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	6061	6234	
==>then the empty string will
be included in this list.

=cut

sub file_suffixes
{
    my $self = shift;
    my $recursive = shift;
    my $ignore = shift;
    my %suffixes = () <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	370	478	
==>base qw(Jako::Construct::Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected 5 a <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	370	478	
==>base qw(Jako::Construct::Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected 5 a <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4361	4488	
==>ecl
{
    my ($self, $core) = @_;

    return "opcode_t * " .
        $self->core_prefix .
        "$core(opcode_t *cur_op, Parr <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2849	2976	
==>ecl
{
    my ($self, $core) = @_;

    return "opcode_t * " .
        $self->core_prefix .
        "$core(opcode_t *cur_op, Parr <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11011	11121	
==>$super, $super_table)>

Rewrites the method body performing the various macro substitutions for
nci method bodi <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11413	11523	
==>$super, $super_table)>

Rewrites the method body performing the various macro substitutions for
vtable method b <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	30151	30246	
==>n, using the C<(?s)> directive: '(?s).*?(?=<H1>)'


=head2 C<extract_delimited>

The C<extract_d <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	22708	22869	
==>fined($1) ? $1 : $& }
				$pref ||= "";
				if (defined($field) && length($field))
				{
					if (!$igunk) {
						$unkpos = pos $$textref
							if length($pref) <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	1337	1447	
==>}
my $i_flags = join ' ', map { "-I$_" } @incdirs;

my %all_errors;
foreach my $file (@ARGV) {    
    next unl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516240	516504	
==>> "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 595, <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	17508	17624	
==>or_defs.pl - Generate the definitions for all the various
APL operators in all possible configurations.

=head1 LICEN <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	665	815	
==>n()>

Returns the root section.

=cut

sub root_section
{
    require Parrot::Docs::Section::Parrot;
    
    return Parrot::Docs::Section::Parrot->new <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	7436	7522	
==>_op
#define Parrot_jit_vtable_1121_op Parrot_jit_normal_op
#define Parrot_jit_vtable_11 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	3128	3280	
==>pe  { return shift->{TYPE}; }
sub name  { return shift->{NAME}; }
sub value { return shift->{VALUE}; }
# file handled by superclass?
# line handled by su <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	1885	2024	
==>pe   { return shift->{TYPE};     }
sub name   { return shift->{NAME};     }
sub value  { return shift->{VALUE};    }
sub props  { return %{s <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	39672	39779	
==>= "/para line 1\n\nline 3\n/para line 4";

	extract_tagged($text, '/para', '/endpara', undef,
				{reject => <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	39986	40092	
==>= "/para line 1\n\nline 3\n/para line 4";

	extract_tagged($text, '/para', '/endpara', undef,
			{reject => <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	352	516	
==>w(Jako::Construct);

1;

#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $ident) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Cons <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	35733	36177	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push_eh",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 45,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 697 \"s <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	22299	22567	
==>m = shift;
	my $rule = shift;
	my $mv = shift;
	my @localmv = ();
	my $pir = "";
	
	# Make current instruction code meta-variable.
	$mv->{'CURIC'} = $rule->{'code'};
	push @localmv, 'CURIC';

	# Emit dispatch label.
	my $name = $rule->{'name'};
	$pir .= "    # Translat <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	4321	4535	
==>t = '-B';
    $nm_ro = 1;
} elsif ($^O eq 'dec_osf' && $nm_try =~ /Alpha/) { # aka Tru64 aka DEC OSF/1
    $nm_opt = '-B';
    $nm_ro  = 1;
} elsif ($^O eq 'darwin'  && $nm_try =~ /invalid argument/) {
    $nm_opt = <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5252	5408	
==>$key) = @_;

    return unless defined $self->{triggers}{$key};

    my $verbose = defined $self->get('verbose') && $self->get('verbose') == 2;

    print "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87415	87512	
==>\"src/ops/core.ops\"\n  {{\@1}} = Parrot_make_cb(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88417	88514	
==>\"src/ops/core.ops\"\n  {{\@1}} = Parrot_make_cb(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4837	4959	
==>h @{ $op->{args} };
    return $minlen;
}

sub maxlen {
    my $op = shift;
    my $maxlen = 0;
    foreach my $kid (@{ $op <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	35966	36116	
==>76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79,
			"/" <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36224	36374	
==>76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79,
			"/" <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	10532	10678	
==>eclares one element of the struct. Each
element name will be defined as an accessor method unless a
method by that name is explicitly defined; in t <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	3612	3859	
==>$forward_off != $op->size){
		    $leaders{$forward_off + $pc} = 1;
		    $is_branch = 1;
		}
	    }
	    else {
		$is_branch = 1;
	    }
	}

	$leaders{$new_pc} = 1 if $is_branch;
    }

    my $enternative;

FINDENTERN:
    foreach my $cur_op (@$P <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Compilers.pm	432	594	
==>ict;
use warnings;

use base qw( Parrot::Docs::Section );

use Parrot::Distribution;

=item C<new()>

Returns a new section.

=cut

sub new
{
    my <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	30995	31097	
==>y_check>

  $self->_sanity_check();

Runs a bunch of end of test sanity checks to make sure reality cam <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	445964	446173	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	446600	446809	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io" <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	515	675	
==>g information about the ops.

=head2 Options

=over 4

=item C<--help>

Print synopsis.

=item C<--no-lines>

Do not generate C<#line> directives in the generate <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	3904	4002	
==>ile" ], $nolines_flag );
    $ops->{OPS} = $Parrot::OpLib::core::ops;
    $ops->{PREAMBLE} = $Parro <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2597	2724	
==>ERR}};
}

sub YYRecovering {
	my($self)=shift;

	${$$self{ERRST}} != 0;
}

sub YYAbort {
	my($self)=shift;

	${$$sel <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2485	2600	
==>ERR}};
}

sub YYRecovering {
	my($self)=shift;

	${$$self{ERRST}} != 0;
}

sub YYAbort {
	my($self)=shift;

	${$$sel <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	2577	2807	
==>akefiles/dynpmc.in' => 'src/dynpmc/Makefile',
        commentType                          => '#',
        replace_slashes                      => 1,
        conditioned_lines                    => 1
    );
    genfile(
        'co <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	5751	5880	
==>,2}\*//mg; # | *

    s/^ *(\$I[d]: .+)\n//m; $info->{Id} = $1;

    my $desc;
    if(/Overview:/) { # normal parrot code files
	m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138027	138234	
==>",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 70 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}} <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	299	420	
==>=> [ qw(
				&extract_delimited
				&extract_bracketed
				&extract_quotelike
				&extract_codeblock
				&extract_variable <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6408	6511	
==>_${CURIC}_LOOP:
if i == 0 goto POST_BRANCH_switch_${CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0[i]
    ${ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4346	4449	
==>_${CURIC}_LOOP:
if i == 0 goto POST_BRANCH_switch_${CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0[i]
    ${ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	13625	13780	
==>'~cooked' => 1},
        #['~Top', {'start_line' => $m},
        $_
        #]
        ],
        @{$self->{'errata'}{$line}}
      )
    ;
  }
  
  # TODO: <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	1659	1782	
==>ifiable Data

Data symbol that is not initialized with any data.

See L</"Data is not an API">.

=item Initialized Modifiabl <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	33855	34022	
==>v,
  'assoc'    => \&_op_assoc,

###
### Symbols
###

  'symbol?'        => \&_op_symbol_p,
  'symbol->string' => \&_op_symbol_string,
  'string->symbol' => \&_op_strin <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	1356	1472	
==>$kind eq 'var' or $kind eq 'arg' or $kind eq 'const';

  my $self = bless {
    BLOCK  => $block,

    SCOPE  => $sco <==
2	/Users/nnunley/parrot/lib/Parrot/Revision.pm	150	266	
==>ion - SVN Revision

=head1 SYNOPSIS

    use Parrot::Revision;

    print $Parrot::Revision::current;
    print $Parr <==
2	/Users/nnunley/parrot/config/gen/PodText.pm	269	405	
==>>runstep($conf,
        "source1.pod" => "dest1.pod"
        "source2.pod" => "dest2.pod"
    );

=head1 DESCRIPTION

Uses L<Pod::Text> t <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4320	4442	
==>"Report this as a BUG: Cannot open $fname";
	while(<DRV>) {
                	/^\s*sub\s+_Parse\s*{\s*$/ .. /^\s*}\s*#\s*_ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4100	4220	
==>"Report this as a BUG: Cannot open $fname";
	while(<DRV>) {
                	/^\s*sub\s+_Parse\s*{\s*$/ .. /^\s*}\s*#\s*_ <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	3874	3991	
==>es($top,15);
    $top =~ s/^ {0,1}(\S)/  $1/mg; # minimum indent
    $info->{desc} = $top;
    return $info;
}

sub de <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11118	11242	
==>d($1))/eg;
        # Yes, stipulate the list without a range, so that this can work right on
        #  all charsets that thi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4467	4589	
==>d($1))/eg;
       # Yes, stipulate the list without a range, so that this can work right on
       #  all charsets that thi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359286	359382	
==>> "#line 250 \"src/ops/io.ops\"\n  STRING * const s = {{\@1}};\n  if (s && string_length(interpre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360034	360130	
==>> "#line 250 \"src/ops/io.ops\"\n  STRING * const s = {{\@1}};\n  if (s && string_length(interpre <==
2	/Users/nnunley/parrot/config/gen/platform.pm	1093	1253	
==>$generated = $conf->data->get('TEMP_generated');
    $generated = '' unless defined $generated;
    print " ($generated) " if $verbose;
    print("\n") if define <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	13082	13277	
==>mp) {
            $jit_func = $cpcf_op;
        } else {
            $jit_func = $normal_op;
        }
    }
    else
    {
        $jit_func = "$core_opfunc[$i]$func_end";
    }

    unless($prec <==
2	/Users/nnunley/parrot/lib/Test/More.pm	22827	23026	
==>DO: {
        todo_skip $why, $how_many if $condition;

        ...normal testing code...
    }

With todo tests, it's best to have the tests actually run.  That way
you'll know when they start passin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191647	191766	
==>vtable->get_number(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192587	192706	
==>vtable->get_number(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	14398	14528	
==>DE<<CASE_SETUP;
	goto CASE_${jump}_FIN
CASE_${jump}_${incase}:
	new P12, .PerlArray   # OR
	new P13, .PerlArray   # TO
	new P14, .P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40499	40719	
==>,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 720 \"src/ops/core.ops\"\n  if ({{\@1}} == EXCEPT_doo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034717	1035143	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_lex",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035880	1036306	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_lex",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	620	767	
==>n spc sqr
			stick str$ strig string$
		    tab$ tan timer
		    ubound ucase$ val varptr varptr$ varseg
		   );
@keywords=qw(	access alias any appe <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19077	19167	
==>escent::Action"))
	{
		$code .= $parser->{_AUTOACTION}->code($namespace,$rule);
		Parse::Re <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	6503	6716	
==>d unexpect>);
  my $args = unpack("H*", $smoke{harness_args});

  #                           1       2          3        4         5        6         7      8           9        10          ...
  my $str = "parrot <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24438	24579	
==>RR] eq "shared") {
			print "WARNING: SHARED keyword currently ignored\n";
			goto &parse_dim;
		} else  {
			die "Unknown dim type: $syms[CUR <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1672	1901	
==>gs      { return @{shift->{ARGS}};   }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $type  = $self->type;
  my $name  = $self->name;
  my %props = $self->props;
  my @args  = $self->args;

  my <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841593	841703	
==>e 40 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},0);\n  {{+=3}};\n",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842357	842467	
==>e 40 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},0);\n  {{+=3}};\n",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	2267	2358	
==>lf->new_section('Python', 'python.html', '', 'languages/python'),
        $self->new_section <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	73	228	
==>6-02-27T07:57:10.879453Z bernhard  $

# This is a minimal and incomplete python bytecode to PIR translator
# It's purpose is just to investigate missing pyt <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	1212	1367	
==>if (@_) {
    $self->{TOKENS} = [ @_ ];
  }
  else {
    return @{$self->{TOKENS}};
  }
}


#
# token_count()
#
# Returns the number of tokens.
#

sub count <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2666	2817	
==>moke-*-$id.html") {
    print "The submitted smoke was already submitted!";
    exit;
  }

  my %smoke;
  $html =~ /revision: (\d+)/       and $smoke{re <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	29823	29936	
==>func($_), qq{\n};
			}
		}
		print FUNC<<FUNCEND;
	goto UF_DISPATCH_END
UF_DISPATCH_END:
	#print "Ending user func <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	700	799	
==>ver 4

=cut

package Parrot::Distribution;

use strict;
use warnings;

use Data::Dumper;
use ExtUtil <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	457	588	
==>use warnings;

use Parrot::OpTrans;
use base qw( Parrot::OpTrans::C );

=item C<core_type()>

The core type is C<PARROT_PREDEREF_COR <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	442	642	
==>1 SYNOPSIS

  use Test::Simple tests => 1;

  ok( $foo eq $bar, 'foo is bar' );


=head1 DESCRIPTION

** If you are unfamiliar with testing B<read Test::Tutorial> first! **

This is an extremely simple <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	481	608	
==>--------------------

sub _new_regs {
     return
  {
    I => { map { $_ => 0 } (0..31) },
    N => { map { $_ => 0 } (0..31) } <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	5795	5964	
==>ative_path($path);
    
            print {$self->{'output_fh'}} 
                $self->{'Tagmap'}{$tagname} . 
                $self->html_link(
                    $se <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21476	21610	
==>67
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 2 <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65195	65311	
==>and $prod->additem($item)
						      or  _no_rule("repetition",$line,"$code$argcode($1..$2)");

						!$matchrule an <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404153	404661	
==>se_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 467,
                  "ARGS" => [
                              "s",
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 535 \"src/ops/io.ops\"\n    {{\@1}} = PIO_s <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	32871	33023	
==>th an ending if this is a forked copy.  Only the parent
    # should do the ending.
    # Exit if plan() was never called.  This is so "require Test::Sim <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733687	733919	
==>ps\"\n  {{\@1}} = string_to_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734451	734683	
==>ps\"\n  {{\@1}} = string_to_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	16882	17000	
==>s, sprintf " %-10s , chr(%s),\n", "'$name'", $value;
      }
    } elsif(m/<!ENT/) {
      print "# Skipping $_";
    } <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	832	918	
==>onstruct::Declaration::Sub;
use Jako::Construct::Declaration::Variable;

use Jako::Cons <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	1736	1886	
==>ion marker

        (\w+)             # name

        (?: : ($types) )? # optional type
        (?: = ([^?]*)  )? # optional default value

        (\+ <==
2	/Users/nnunley/parrot/config/gen/PodText.pm	538	756	
==>step()>

Converts Pod documents into plain text.  Documents to be converted as specified
as a hash with the keys being the source Pod document and the values being the
destination plain text file.

Accepts a L<Parrot::C <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	20515	20635	
==>"lib/Regex/Grammar.y"
{ return op('multi_match' => [ $_[2]->{min}, $_[2]->{max}, FALSE, $_[1] ]); }
	],
	[#Rule 21
		 '@1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	337663	337896	
==>JUMP" => 0,
                  "NAME" => "getstdin",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline", <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	5476	5582	
==>~ m{^( \+\+ | -- )(.*)$}x) {
      push @tokens, Jako::Token->new(
        $file, $line, 'exfix-arith', und <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	586	692	
==>rans::Compiled;
use Parrot::OpLib::core;
use Parrot::Config;
use Parrot::Key;

my $trans = Parrot::OpTrans: <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	183	288	
==>y ($self, $ctx) = @_;
    $ctx->{rx_match} ||= '$rx_match';
    $ctx->{rx_stack} ||= '$rx_stack';
    $ctx <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	174026	174297	
==>"ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 226 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_STRCM <==
2	/Users/nnunley/parrot/config/auto/inline.pm	718	938	
==>gen('config/auto/inline/test_1.in');
        eval { cc_build(); };
        if (!$@) {
            $test = cc_run();
            chomp $test if $test;
        }
        cc_clean();
        if (!$test) {
            cc_gen( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	402	511	
==>nt);

sub new
{
  my $class = shift;
  my ($block, $left, $right) = @_;

  confess("Block (" . ref($block) . " <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	393	502	
==>nt);

sub new
{
  my $class = shift;
  my ($block, $left, $right) = @_;

  confess("Block (" . ref($block) . " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593718	593857	
==>"kc"
                            ],
                  "BODY" => "#line 325 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(inte <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594929	595068	
==>"kc"
                            ],
                  "BODY" => "#line 325 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(inte <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6783	6903	
==>p failed ($?)\n";
    }
}

sub generate_c {
    my ($pmc) = @_;

    if (needs_build("$pmc.c", "$pmc.pmc")) {
        run <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6994	7114	
==>p failed ($?)\n";
    }
}

sub generate_c {
    my ($pmc) = @_;

    if (needs_build("$pmc.c", "$pmc.pmc")) {
        run <==
2	/Users/nnunley/parrot/lib/Test/More.pm	32263	32369	
==>he order of elements does not matter, duplicate elements do.

Test::Deep contains much better set compariso <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	632	743	
==>tall prefix. Defaults to '/usr'.

=item C<exec_prefix>

The exec prefix. Defaults to '/usr'.

=item C<bindir>

T <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	861	972	
==>tall prefix. Defaults to '/usr'.

=item C<exec_prefix>

The exec prefix. Defaults to '/usr'.

=item C<bindir>

T <==
2	/Users/nnunley/parrot/config/init/hints/vms.pm	54	144	
==>rot/config/init/hints/vms.pm 19593 2006-05-30T02:28:15.110975Z coke  $

package init::hints <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3979	4073	
==>int y(4)
end function
function arrfunc(x())
	u=aftwo(x())
	arrfunc=55
end function
dim g(10)
g( <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15252	15346	
==>int y(4)
end function
function arrfunc(x())
	u=aftwo(x())
	arrfunc=55
end function
dim g(10)
g( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902111	902312	
==>ic",
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interprete <==
2	/Users/nnunley/parrot/config/inter/lex.pm	873	975	
==>on => undef);

    unless ($conf->options->get('maintainer')) {
        $conf->data->set($util => 'echo <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	870	972	
==>on => undef);

    unless ($conf->options->get('maintainer')) {
        $conf->data->set($util => 'echo <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17522	17680	
==>> {
			'NAME' => 96
		}
	},
	{#State 43
		DEFAULT => -89
	},
	{#State 44
		DEFAULT => -94
	},
	{#State 45
		DEFAULT => -47
	},
	{#State 46
		DEFA <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	7244	7488	
==>filename'} = $source;

sub set_source {
  my $self = shift @_;
  return $self->{'source_fh'} unless @_;
  my $handle;
  if(!defined $_[0]) {
    Carp::croak("Can't use empty-string as a source for set_source");
  } elsif(ref(\( $_[0] )) eq 'GLOB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149129	149223	
==>" => "#line 105 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) == <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150070	150164	
==>" => "#line 105 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) == <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	11978	12179	
==>s::Command -e rm_f',
             'rm_rf' => 'perl -MExtUtils::Command -e rm_rf',
             'rpath' => '-L',
             'rpath_blib' => '',
             'setenv' => 1,
             'share_ext' => ' <==
2	/Users/nnunley/parrot/lib/Test/More.pm	2345	2499	
==>have a look at
Test::Simple first.  This is a drop in replacement for Test::Simple
which you can switch to once you get the hang of basic testing.

The pur <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233380	233955	
==>mp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 272,
                  "ARGS" => [
                              "i",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 599 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1667	1769	
==><rx_pos> # group 0 start := pos');
}

sub output_increment {
    my ($self, $distance, $failLabel) = @_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319997	320221	
==>ops\"\n  {{\@1}} = (INTVAL)((Parrot_Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320767	320991	
==>ops\"\n  {{\@1}} = (INTVAL)((Parrot_Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	23185	23322	
==>r2 ) = @_;
    my @opcodes = ();
    my $result = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	3303	3442	
==>the command and capture the exit code
            my $exit_code = Parrot::Test::run_command(
                $cmd,
                %{$run_op <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	10682	10800	
==>latter case, a
warning is issued if the warning flag (B<-w>) is set.

=head2 Class Creation at Compile Time

C<Class::S <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30803	30910	
==>$pir .= "### post_load\n";
		$pir .= sub_meta($post_load, $mv, "post_load for rule $rule->{'name'}");
		$pir <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	46252	46449	
==>$attrname =~ m/::/; # a hack
    *{caller() . '::' . $attrname} = sub {
      use strict;
      $Carp::CarpLevel = 1,  Carp::croak(
       "Accessor usage: \$obj->$attrname() or \$obj->$attrname(\$n <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	480	587	
==>qw(
  %Code2USASCII
  %Name2character
  %Name2character_number
  %Latin1Code_to_fallback
  %Latin1Char_to_fa <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	24567	24770	
==>er Schmidt
  
  my($self, $para) = @_;
  my $content = join ' ', splice @$para, 2;
  $content =~ s/^\s+//s;
  $content =~ s/\s+$//s;

  DEBUG > 2 and print "Ogling extensor: =extend $content\n";

  if($co <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	2703	2804	
==>step()> method.

Accepts a list and returns a L<Parrot::Configure> object.

=cut

sub add_step
{
    m <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	14011	14153	
==>f->_regex_ok($this, $regex, '=~', $name);
}

sub unlike {
    my($self, $this, $regex, $name) = @_;

    local $Level = $Level + 1;
    $self-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	33221	33537	
==>};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set_addr",
                  "FLAGS" => "",
                  "A <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	34009	34325	
==>};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set_addr",
                  "FLAGS" => "",
                  "A <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	63622	63880	
==>ified). It failed to generate the closing tag, almost
certainly because the opening tag did not start with a
bracket of some kind.

=item C<Found invalid nested tag: %s>

C<extract_tagged> found a nested tag that appeared in the "reject" list
(and the failure <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828801	828898	
==>ception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_pmc(entry->entry <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829869	829966	
==>ception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_pmc(entry->entry <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	1013	1306	
==>symbtab->{table}{$symb};
##                    warn "\tfound 2 in $symbtab\n";
                        return $defn;
                    }
                }
            }
            return undef;
        }
    }

    sub Insert {
        my $self   = shift;
        my ($defn) = @_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	36377	36809	
==>\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clear_eh",
                  "FLAGS" => "",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 46,
                  "ARGS" => [],
                  "BODY" => "#line 7 <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28568	28693	
==>).'
		push @item, '.($::RD_NO_HITEM ? ''
			       : '$item{'.$self->{hashname}.'}=') . '$&;
		' . ($self->{"lookahead"} ? '$t <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30646	30771	
==>).'
		push @item, '.($::RD_NO_HITEM ? ''
			       : '$item{'.$self->{hashname}.'}=') . '$&;
		' . ($self->{"lookahead"} ? '$t <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	2804	2926	
==>-Waggregate-return -Winline -W -Wno-unused",

            # others; ones we might like marked with ?
            # ? -Wunde <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548525	548821	
==>"fact",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 632,
                  "ARGS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547619	547906	
==>"fact",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 631,
                  "A <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1172	1280	
==>~X3)))+X0+X4+X6$MSK,X5)+X1$MSK;",
  my %f = (
	FF => "X0=rotate_left((X3^(X1&(X2^X3)))+X0+X4+X6$MSK,X5)+X1$MS <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	56962	57082	
==>TOERRORMK/gco)
			{
				$commitonly = $1;
				_parse("an error marker", $aftererror,$line);
				$item = new Parse::RecDes <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806708	807003	
==>nline",
                  "CODE" => 910,
                  "ARGS" => [
                              "i",
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 497 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	32933	33045	
==>tance, if C<$text> contained the string:

	"if ('./cmd' =~ m/$UNIXCMD/s) { $cmd = $1; }"
	
then after the deletio <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32330	32459	
==>e will be out by one - NWC
    my $l = $self->line_directive($line, "ref.c");
    return <<EOC;
$l
$decl {
    $ret
}

EOC
}

=bac <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	13393	13541	
==>mp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_S($reg_num);";
        return "t_$temp_num";
    };
}

sub print_fu <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	669	783	
==>ake the included
# text under the same copyright as the Parse::Yapp module itself.
#
# This notice should remain <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	650	761	
==>ake the included
# text under the same copyright as the Parse::Yapp module itself.
#
# This notice should remain <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938581	938863	
==>\@1}} = string_join(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939471	939753	
==>\@1}} = string_join(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	5508	5685	
==>UMP};
}

=item C<full_body()>

For manual ops, C<full_body()> is the same as C<body()>. For auto ops
this method adds a final C<goto NEXT()> line to the code to represent
the aut <==
2	/Users/nnunley/parrot/tools/dev/gen_class.pl	476	651	
==>o Parrot.

To see what a minimal PMC looks like, create a PMC template and compile
it to C.

	% perl tools/dev/gen_class.pl Foo > src/pmc/foo.pmc
	% perl tools/build/pmc2 <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	6857	7043	
==>p->size;
	    $source =~ s/^\s*goto PC_$new_pc;\s*$//mg if defined($new_pc);
	    $source =~ s/\n/\n    /mg;
	    $source =~ s/#line.*\n//mg;
	    $source =~ s/CUR_OPCODE/(start_code + $p <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	16663	16842	
==>C<run> method
that calls C<< $token = $parser->get_token >> to pull tokens.

See the source for Pod::Simple::RTF for an example of a formatter
that uses Pod::Simple::PullParser.

= <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	7154	7315	
==>:BigFloat($1));
                and return ( 'NUMBER', $1 . ( $3 || q{} ) );

            s/^\"//
                and return $parser->_DoubleQuoteStringLexer( <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	58182	58279	
==>takes a single (string) argument and
   > builds a Friedl-style optimized regex that matches a str <==
2	/Users/nnunley/parrot/tools/util/pirtidy.pl	650	769	
==>d();
    print {$ofh} $output;

    close $ifh;
    close $ofh;
}

__END__

=head1 NAME

tools/util/pirtidy.pl - a PIR s <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	973	1088	
==>orithms:
 *  History:
 *  Notes:
 *  References:
 */
HEADER

=over

=item B<classify>( $chr )

Character classificat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	603589	604087	
==>{{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addparent",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605953	606240	
==>{{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addattribute", <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	24085	24220	
==>$self, $fh) = @_;

    if( defined $fh ) {
        $self->{Out_FH} = _new_fh($fh);
    }
    return $self->{Out_FH};
}

sub failure_outp <==
2	/Users/nnunley/parrot/config/gen/config_h.pm	1336	1474	
==>onfigure.pl
*/

/*
 * i_(\\w+) header includes
 */

EOF

    for (sort($conf->data->keys())) {
        next unless /i_(\w+)/;
        if ($ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	2337	2556	
==>\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cpu_ret",
                  "FLAGS" => "",
                  "ARGDIRS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	153941	154038	
==>.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_NUMEQ)) {\n    {{+={{\@3}}}};\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953566	953878	
==>LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "encoding",
                  "FLAGS" => ":base_core <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	25395	25500	
==>e plain prints to STDOUT will
    # come out in the wrong order from our own prints.
    _autoflush(\*TEST <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	5434	5645	
==>->{args} };
        my @Sargs = @{ $S->{args} };
	return 0 if (@Rargs != @Sargs);
	for (0..$#Rargs) { return 0 if $Rargs[$_] ne $Sargs[$_] };
	return 1;
    }
}

# sub add_checks
#
# Augments the tree with length <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	9268	9394	
==>p[i] * sizeof(struct PackFile_Constant) + 8)\n";
}


my %core_ops = readjit("src/jit/$cpuarch/core.jit");

print JITCPU $header <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	7011	7500	
==>f items from this table of argument
        # types (even if no formal args are specified, there will be a single 'o'
        # entry):
        #
        #   op   The opcode
        #
        #   i    Integer register index
        #   n    Number register index
        #   p    PMC register index
        #   s    String register index
        #
        #   ic   Integer constant (in-line)
        #   nc   Number constant index
        #   pc   PMC constant index
        #   sc   String <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	375	525	
==>n",
        "argument. The XML file will be written to the standard\n",
        "output.\n\n";
    exit;
}

$parrot =~ s/\/$//;

my @imcc_oplike = qw(. <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9221	9355	
==>has been called
            or  next;       # so continue parsing

#DBG>			$debug & 0x10
#DBG>		and	do {
#DBG>			print STDERR "**E <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8806	8935	
==>has been called
            or  next;       # so continue parsing

#DBG>			$debug & 0x10
#DBG>		and	do {
#DBG>			print STDERR "**E <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	24492	24636	
==>_args + $j] = promote($val);
	}
	$n = $nfix + $nk/2;
    }
    my $tos = pop @stack;
    my $args = join ', ', @args;
    my $t;
    $func = $tos <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	195	284	
==>/Jako/Construct/Statement/Return.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use stric <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2306	2396	
==>::Test::pir_output_is;
}

=item C<p6rule_like($target, $pattern, $expected, $description, @ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	902	1018	
==>s;

  $block->push_content($self);

  return $self;
}

sub name { return shift->{NAME};  }
sub args { return @{shift- <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	5060	5169	
==>" />
      <itemData name="Special Directive" defStyleNum="dsKeyword" />
      <itemData name="Type" defStyleN <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	53454	53574	
==>brilliant routine, but passable.
  # Don't give it a cyclic data structure!
  my @stuff = @_; # copy
  my $x;
  my $out = <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13870	13967	
==>rst
z.foo=13
print mine(foo,20,z)
print foo
print z.foo

' Should print 100, 103
type first
	foo a <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	809	932	
==>o NUMCONST;
		}
		if ($cur eq '.' ) {
			append;
			fetch;
			$numtype="FLO";
			goto NUMCONST;
		}
		if ($cur =~ /[eEdD]/ a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841610	841834	
==>ring.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842374	842598	
==>ring.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	325	446	
==>d.

=cut

sub new {
    return bless {};
}

sub output_is() {
    my ($self, $code, $output, $desc) = @_;
  
    my $count <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	363	484	
==>d.

=cut

sub new {
    return bless {};
}

sub output_is() {
    my ($self, $code, $output, $desc) = @_;
  
    my $count <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801030	801429	
==>set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 904,
                  "ARGS" => [
                              "p",
                              "kc", <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	56759	56911	
==>elim => sub { extract_delimited($_[0],q{'"}) } },
                        { Brack => sub { extract_bracketed($_[0],'{}') } },
                   ]);

Thi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2320	2438	
==>'%s' within same block. Previous declaration on line %d of file '%s'.",
      $self->name, $sym->line, $sym->file);
  } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015085	1015309	
==>e(interpreter, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015909	1016133	
==>e(interpreter, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818866	818990	
==>stack.ops\"\n  Parrot_pop_regs(interpreter);\n  {{=0,+=1}};\n",
                  "LABELS" => []
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1244	1344	
==>lurp_file($out_f), $output, $desc );
        $self->{builder}->diag("'$cmd' failed with exit code $ex <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1285	1385	
==>lurp_file($out_f), $output, $desc );
        $self->{builder}->diag("'$cmd' failed with exit code $ex <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27047	27141	
==>unctions{$funcname}=$englishname;

	$f="_USERFUNC_$funcname";
	$f=changename($f);
	$f=~s/\$/_st <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27320	27414	
==>unctions{$funcname}=$englishname;

	$f="_USERFUNC_$funcname";
	$f=changename($f);
	$f=~s/\$/_st <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12073	12306	
==>stTable.pm.html being turned into
        # Parrot/PackFile%2FConstTable.pm.html and thus breaking 
        # the CSS and images somehow.
        
        return $href if defined $href;
    }
    
    return 'TODO';
}

=item C<href_fo <==
2	/Users/nnunley/parrot/config/auto/headers.pm	2160	2262	
==>->set(testheaders => join('', map { "#include <$_>\n" } @$use_headers));
            $conf->data->set(t <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	5151	5241	
==>me="Type" defStyleNum="dsDataType" />
      <itemData name="Comment" defStyleNum="dsComment <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	47840	47964	
==>licit = $rule->nextimplicit;
			$self->_generate("$implicit : $code",$replace,1);
			my $pos = pos $grammar;
			substr($gramm <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12174	12272	
==>because C<EE<lt>solE<gt>>, C<EE<lt>47E<gt>>, C<EE<lt>0x2fE<gt>>,
and C<EE<lt>057E<gt>>, all mean "/ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12697	12795	
==>because C<EE<lt>solE<gt>>, C<EE<lt>47E<gt>>, C<EE<lt>0x2fE<gt>>,
and C<EE<lt>057E<gt>>, all mean "/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121581	121945	
==>"ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 151,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 248 \ <==
2	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1692	1903	
==>gram and exits.
  --help
    Show this help.

Options may be abbreviated to uniqueness.
USAGE

# Nice debugging output.
{
  my $fresh;
  sub debug($) {
    my $msg = shift;

    print STDERR "* " and $fresh++ unl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627431	627518	
==>{\@1}} = pmc_new_noinit(interpreter, {{\@2}});\n  {{\@1}}->vtable->init(interpreter, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628575	628662	
==>{\@1}} = pmc_new_noinit(interpreter, {{\@2}});\n  {{\@1}}->vtable->init(interpreter, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	768	870	
==>::Docs::Section::C;
use Parrot::Docs::Section::Ops;
use Parrot::Docs::Section::IMCC;
use Parrot::Docs:: <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4851	4954	
==>File> instances.

Set C<$recursive> to true if you want all files in subdirectories to be
included. To i <==
2	/Users/nnunley/parrot/tools/dev/symlink.pl	565	698	
==>bsolute($self);

my $toolsrcdir  = dirname($self);
my $toolsrcbase = basename($self);

use vars qw($v);

if ($toolsrcdir ne '' && -d $ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27714	27826	
==>BARE") {   # Variable name parameter
			$a=$syms[CURR];
			if ($syms[NEXT] eq "as") {
				feedme();  # Get the as <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	3864	4017	
==>r;

sub TIESCALAR	# ($classname, \$text, $thisparser, $prevflag)
{
	bless {
		text    => $_[1],
		parser  => $_[2],
		prev    => $_[3]?1:0,
	      }, $_[0 <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	2867	3018	
==>r;


sub TIESCALAR	# ($classname, \$text, $thisparser, $prevflag)
{
	bless {
		text    => $_[1],
		parser  => $_[2],
		prev	=> $_[3]?1:0,
	      }, $_[0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947141	947305	
==>ion(interpreter, NULL, 1,\n\t\"charset '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948043	948207	
==>ion(interpreter, NULL, 1,\n\t\"charset '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	17335	17549	
==>TIONS => {
			'NUM' => 40
		},
		GOTOS => {
			'number' => 67
		}
	},
	{#State 61
		ACTIONS => {
			'CHAR' => 68
		}
	},
	{#State 62
		ACTIONS => {
			'NUM' => 69
		}
	},
	{#State 63
		DEFAULT => -36
	},
	{#State 64 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	230208	230334	
==>],
                  "BODY" => "#line 545 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_NUMCM <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	2605	2947	
==>0: writing parrot build scripts\n";

    ## GCC ##

    print "- miniparrot/build_gcc.sh\n";
    open(F, ">miniparrot/build_gcc.sh") ||
        die "Unable to write miniparrot/build_gcc.sh: $!\n";
    print F "#!/bin/sh\n";
    print F "\nset -x -e\n";
    foreach (@compiled_files) {
	print F "gcc -DMINIPARROT -I./include -c $_->[0] -o $_->[ <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	8557	8704	
==>> $18,
      filename      => $name,
      link          => BASEHTTPDIR . $name, 
    };
  return ();
}

sub runcore2human {
  my %runcore = (
	  go <==
2	/Users/nnunley/parrot/languages/pugs/t/pmc.pm	322	424	
==>or die "malformed file: $file";
    my $type = "Pugs\u$1";

    main::pir_output_is(<< 'CODE', << 'OUTP <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11564	11666	
==>lock, $self->forth);

      $self->require_semicolon;

      my $arith = Jako::Construct::Statement::Ar <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16509	16611	
==>lock, $self->forth);

      $self->require_semicolon;

      my $arith = Jako::Construct::Statement::Ar <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19448	19563	
==>r.y"
{ return op('match' => [ ord($_[1]) ]); }
	],
	[#Rule 12
		 'expr', 1,
sub
#line 115 "lib/Regex/Grammar.y"
{ re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048384	1048652	
==>(interpreter, NULL, {{\@2}}, next);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049308	1049576	
==>(interpreter, NULL, {{\@2}}, next);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => " <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	9605	9711	
==>ype[CURR] eq "COMM"
				or
			($type[CURR] eq "BARE" and (iskeyword($syms[CURR])
					and !isbuiltin($syms[ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826382	826474	
==>=> "#line 146 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827452	827544	
==>=> "#line 146 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpr <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	6128	6276	
==>lude/parrot/oplib/ops.h";
my $inc_dir = "include/parrot/oplib";
if (! -d $inc_dir) {
    mkdir($inc_dir, 0755) or die "ops2pm.pl: Could not mkdir $in <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	4790	4995	
==>lines(
        splice @{ $self->{'source_arrayref'} },
        0,
        Pod::Simple::MANY_LINES
      );
      unless( @{ $self->{'source_arrayref'} } ) {
        DEBUG and print "That's it for that sourc <==
2	/Users/nnunley/parrot/config/inter/progs.pm	4228	4319	
==>n't know why.
    $ccwarn = integrate($conf->data->get('ccwarn'), $conf->options->get('ccwar <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	7960	8239	
==>and print "    item-* is too long to be keepn'd.\n";
              last;
            }
          } elsif (@to_unget > 1 and
            $to_unget[-2]->type eq 'end' and
            $to_unget[-2]->tagname =~ m/^item-/s
          ) {
            # Bail out here, after setting rtfit <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	34270	34373	
==>diag(<<"FAIL");
Looks like you planned $self->{Expected_Tests} test$s but only ran $self->{Curr_Test}.
F <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3090	3197	
==>map};
  return $new;
}

sub run {
  my $self = $_[0];
  return $self->do_middle if $self->bare_output;
  ret <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	727	832	
==>s charclass, advance 1
# O (start, n) : mark start of n-th paren match
# O (end, n) : mark end of n-th par <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	24607	24766	
==>try);
EOC
    # declare each nci method for this class
    foreach my $method (@{ $self->{methods} }) {
      next unless $method->{loc} eq 'nci';
      my $pro <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	26094	26200	
==>extract_tagged($text);


 # Extract the initial substring of $text that is bounded by
 # a C<BEGIN>...C<END <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507013	507513	
==>DIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 583,
                  "ARGS" => [
                              "n",
                              "nc",
                              "n"
                            ],
                  "BODY" => "#line 636 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n" <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	147	273	
==>EXPORT_OK = qw(parse);

use Data::Dumper;

my $ind = 0;
sub _build_tree {
  my ($tokens,$count) = @_;
  my $temp   = {};

  die <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846729	847041	
==>\@1}} = s;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chr",
                  "FLAGS" => ":bas <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30760	30978	
==>ame");
    else
        Parrot_${parentname}_$meth(interpreter, pmc, type);
EOC
    }
    else {
        $cout .= <<EOC;
	internal_exception(WRITE_TO_CONSTCLASS,
		"$meth() in $classname");
        $ret
EOC
    }
    $c <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6319	6426	
==>rguments!" if @_;

  my $sym = $self->get_symbol($name); # Return the identifier if defined here.
  return $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2891	2987	
==>ach $self->content;
  $handler->end_element({ Name => 'block' });

  $handler->end_element({ Name <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2773	2869	
==>ach $self->content;
  $handler->end_element({ Name => 'block' });

  $handler->end_element({ Name <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	4511	4620	
==>ption thrown", :$depends);
    }
}

## lives ok

sub lives_ok (Code &code, Str $desc?, :$todo, :$depends) retu <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	2263	2356	
==>hod body is processed with various directives (see below)
getting replaced by their appropriat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841924	842360	
==>E" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 955,
                  "ARGS" => [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 40 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841161	841426	
==>E" => "ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 95 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876710	877209	
==>> [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 994,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 239 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631107	631440	
==>,
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 707,
                  "ARGS" => [
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 81 \"src/ops/pmc.ops\"\n <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	5085	5298	
==>within the %d supplied source files.\n", scalar(@internal_calls), scalar(@files));
    printf("Found %d external functions which were called.\n", scalar(@external_calls));
    printf("Of these, %d are not defined b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957479	957596	
==>rc/ops/string.ops\"\n  INTVAL n = Parrot_encoding_number(interpreter, {{\@2}});\n  if (n < 0)\n    real_exception(inte <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958384	958501	
==>rc/ops/string.ops\"\n  INTVAL n = Parrot_encoding_number(interpreter, {{\@2}});\n  if (n < 0)\n    real_exception(inte <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492727	492824	
==>ODY" => "#line 585 \"src/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493488	493585	
==>ODY" => "#line 585 \"src/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143072	143402	
==>> ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 175,
                  "ARGS" => [
                              "s <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	34205	34305	
==>d substring" is a substring bounded by
matched brackets, such that any other (left or right) delimite <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144927	145428	
==>> ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 177,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 84 \"src/ops/cmp.ops\"\n  if (s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146790	147120	
==>> ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 179,
                  "ARGS" => [
                              "p <==
2	/Users/nnunley/parrot/lib/Test/More.pm	22098	22233	
==>y are "todo".  Test::Harness will interpret failures as being ok.
Should anything succeed, it will report it as an unexpected success.
Y <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	32342	32560	
==>my $arg = temp('P');
	    print <<EOC;
	$arg = new FixedPMCArray
EOC
	    $args = $arg;
	}
	print <<EOC;
	$o = $obj($args) 		# postponed LOAD_
EOC
	$obj = $o;
    }
    my $a = $c;
    if ($vtables{$c}) {
	$c = $vtables <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1077745	1078427	
==>ath",
                  "ARGDIRS" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1198,
                  "ARGS" => [
                              "i",
                              "i",
                              "i",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\@4 <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	16818	17003	
==>load for typed exception handler");
	$pir .= "### end post_load (typed eh)\n";
    $pir .= <<'PIRCODE';
NOT_TYPED_EH_START:

    # If this is the start of a finally handler...
    if eh_ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	44106	44214	
==>nts are:

=over 4

=item [0]

the extracted quotelike substring (including trailing modifiers),

=item [1]

t <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	36501	36887	
==>idf eq '...' ) {
        $defn = new defn( 'vararg', 'local', 'pmc' );
        push @opcodes1, new ParamDir( $parser,
            'prolog' => 1,
            'result' => $defn,
            'pragma' => ':slurpy',
        );
    }
    else {
        my $name
            = 'var_' . scalar( @{ $parser->YYData->{scope} } ) . '_' . $idf;
        $defn = new defn( $name, 'local', ' <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	33246	33392	
==>ualp,

###
### Pairs and Lists
###

  'pair?'    => \&_op_pair_p,
  'cons'     => \&_op_cons,
  'car'      => \&_op_car,
  'cdr'      => \&_op_cdr, <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	48734	48853	
==>a::Dumper; print Dumper($parser), "\n";
  }

  return @out;
}



#------------------------------------------------------ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	4413	4595	
==>as_blank'}     = 1;
          # And fall thru to the pod-mode block further down
        }
      } else {
        DEBUG > 5 and print "# It's a code-line.\n";
        $code_handler->( <==
2	/Users/nnunley/parrot/lib/Test/More.pm	17370	17550	
==>ports;

    my($pack,$filename,$line) = caller;

    local($@,$!);   # eval sometimes interferes with $!

    if( @imports == 1 and $imports[0] =~ /^\d+(?:\.\d+)?$/ ) {
        # pr <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	105	200	
==>58.862833Z coke  $

=head1 NAME

Parrot::Test - testing routines for Parrot and language impleme <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6376	6490	
==>ange          ' Sort until no elements are exchanged.
   Exchange=FALSE
   ' Compare the array elements by pairs. W <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16029	16143	
==>ange          ' Sort until no elements are exchanged.
   Exchange=FALSE
   ' Compare the array elements by pairs. W <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493099	493578	
==>AGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 566,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 585 \"src/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@1}}, {{\@2}});\n  {{+=3 <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	1206	1299	
==>y be useful for debugging.

=item C<--include=/path/to/pmc>

Specify include path where to fin <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1507	1601	
==>MP1}
${STEMP1} = "$register_num"
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0} <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3217	3311	
==>MP1}
${STEMP1} = "$register_num"
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0} <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12208	12351	
==>> "STRING", value=> qq{"$s"}};
					redo OUTDATA;
				}
				if ($type[CURR] =~ /COMP|COMM|STMT/) {
					push @ld, { type => "STRING", value=> qq <==
2	/Users/nnunley/parrot/tools/dev/cc_flags.pl	1627	1790	
==>ject_point, $where);

foreach (@ARGV) {
  last if $_ eq '';
  ++$where;
}
if ($where) {
  # Found a "" - remove it
  splice @ARGV, $where, 1;
  $inject_point = $whe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727524	727625	
==>e 50 \"src/ops/set.ops\"\n   const INTVAL temp = {{\@1}};\n   {{\@1}} = {{\@2}};\n   {{\@2}} = temp;\n <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16534	16707	
==>$self->_restore ($temp);

  return $return;
}

sub _op_list_p {
}

sub _op_list {
  my ($self, $node) = @_;
  my $label = $self->_gensym ();
  my $return = $self->_save_1 ('P <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	1257	1645	
==>t") || mkdir("miniparrot");

    print "** $0: reconfiguring parrot for miniparrot build\n";
    run_command("perl Configure.pl --miniparrot --floatval=double");

    print "** $0: initiating parrot prebuild\n";
    run_command("make miniparrot-prebuild");
}

print "\n\n";
exit(0);

###########################################################################

sub prebuild_classes {
    m <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	9455	9589	
==>w(@$data);

  my $exit;
  unless($bucket->conform(1)) {
    print "Rate limiting -- please wait a bit and try again, thanks.";
    $exi <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1812	1912	
==>SION} < $COMPATIBLE
	and	croak "Yapp driver version $VERSION ".
			  "incompatible with version $$s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1748	1846	
==>SION} < $COMPATIBLE
	and	croak "Yapp driver version $VERSION ".
			  "incompatible with version $$s <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	743	859	
==>$out_f  = File::Spec->rel2abs($out_f);
    Parrot::Test::write_code_to_file( $code, $lang_f );

    my $cmd;
    my $ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	780	896	
==>$out_f  = File::Spec->rel2abs($out_f);
    Parrot::Test::write_code_to_file( $code, $lang_f );

    my $cmd;
    my $ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	18529	18659	
==>ike skip(), only it will declare the test as failing and TODO.  Similar
to

    print "not ok $tnum # TODO $why\n";

=cut

sub todo <==
2	/Users/nnunley/parrot/tools/dev/pbc_header.pl	1405	1526	
==>inor
	print F pack "cc", $major, $minor;
	seek F, 6, 0;	# pos 6: pad = finger_print
	print F $fp;
	close F;
    }
}

sub p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79073	79190	
==>tring_free(name);\n  if (p == NULL) {\n      const char * const err = Parrot_dlerror();\n      Parrot_warn(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80594	80711	
==>tring_free(name);\n  if (p == NULL) {\n      const char * const err = Parrot_dlerror();\n      Parrot_warn(interpreter <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2928	3150	
==>.]+)/    and $smoke{VERSION}      = $1;
  $html =~ /branch: ([\w\-]+)/     and $smoke{branch}       = $1;
  $html =~ /cpuarch: ([\w\d]+)/    and $smoke{cpuarch}      = $1;
  $html =~ /osname: ([\w\d]+)/     and $smoke{osnam <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	436	615	
==>->{DEBUG};
    my $ctx = $self->{ctx};
    $what = "\%<<rx_pos>>: $what";

    my @ops;
    foreach my $part ($what =~ /((?:\%\<[\<\>\w]+\>)|[^\%]+)/g) {
        if ($part =~ /^\%/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	690687	690985	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "thaw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691443	691741	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "thaw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	10344	10492	
==>encoding to $e\n";
      $self->{'encoding'} = $e;
      1;
    }
    and $e eq 'HACKRAW'
  ) {
    DEBUG and print " Putting in HACKRAW (no-op) enco <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	18165	18264	
==>u haven't started pulling tokens
from yet:

=over

=item my $title_string = $parser->get_title

This <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1165	1396	
==>h
other. In this form:

    [
        [ name1 => 'pattern 1' ],
        [ name2 => 'pattern 2' ],
        [ name3 => '<name1> pattern 3' ],
        [ _MASTER => '<name1> <name2> <name3>' ],
    ],

The last rule, labelled with _MAST <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	4048	4163	
==>/Solaris/) {
    $nm_opt = '-p';
} elsif ($^O eq 'hpux'    && $nm_try =~ /linker command|HP-UX/) { 
    $nm_opt = '- <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	12121	12227	
==>Y_MOVE_RET_CONT:
${PARAMS}[0] = ${STEMP0}
dec stack_depth

PRE_CALL_END_${CURIC}:
PIR
    return $pir;
}

s <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32953	33097	
==>}

		# Now call pre_store and append code that it generates.
		my $pre_store = $srm->pre_store($dest_reg);
		$pir .= "### pre_store\n";
		$pir .= <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2883	2982	
==>er) foreach $self->content;
  $handler->end_element({ Name => 'block' });

  $handler->end_element({ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2765	2864	
==>er) foreach $self->content;
  $handler->end_element({ Name => 'block' });

  $handler->end_element({ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	579009	579283	
==>> "function",
                  "CODE" => 661,
                  "ARGS" => [
                              "p",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 289 \"src/ops/object.ops\"\n <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1677	1837	
==>g{perl} $FindBin::RealBin$PConfig{slash}..$PConfig{slash}urmc";
my $compile = "-c -s";
my $run = "-s";

sub compile_test {
    my $file = shift;

    my $ret = s <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	6680	6835	
==>s test to run and prints out
the appropriate headers.

=cut

sub expected_tests {
    my $self = shift;
    my($max) = @_;

    if( @_ ) {
        die "Numb <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	45973	46086	
==>I guess
       # that you'd better have nbsp_for_S off.
    }
  }

  return $is_s;
}

#--------------------------- <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	903	1043	
==>ion of paths to @*INC

= SYNOPSIS

  require lib;
  import('lib': @paths);
  
  # no load your other modules ...

= DESCRIPTION

This is a sm <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	5732	5827	
==>include "parrot/oplib.h"

$sym_export extern op_lib_t *$init_func(long init);

END_C
my $cg_func <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	8007	8191	
==>ur_f} = 1;
		    # }
		}
		elsif (/# flags\s+(\S*)/) {
		    my $f = eval($1);
		    $func_info{$cur_f}{flags} = $f;
		    print "# $cur_f; flags=$f\n";
		}
		elsif (/# varnames\s+\((.* <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113692	113914	
==>1,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 204 \"src/ops/bit.ops\"\n  {{\@1}} <<= {{\@2}};\n  {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033350	1033439	
==>ex_name, ctx);\n    if (PMC_IS_NULL(lex_pad)) {\n\treal_exception(interpreter, NULL, LEX_N <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034448	1034537	
==>ex_name, ctx);\n    if (PMC_IS_NULL(lex_pad)) {\n\treal_exception(interpreter, NULL, LEX_N <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7659	7772	
==>thod that uses find_symbol() to locate a matching
symbol, and then returns that symbol's type.

=cut

sub type_of_ <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2736	2851	
==>-llibgdbm/i;
        }
        my $extraLibs = '-lm -lgmp -lreadline -lpthread -lm -L/opt/local/lib  -licuuc -licuda <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	2531	2646	
==>-llibgdbm/i;
        }
        my $extraLibs = '-lm -lgmp -lreadline -lpthread -lm -L/opt/local/lib  -licuuc -licuda <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3080	3260	
==>nction.

=cut

sub run_core_func_start
{
    return <<END_C;
#if defined(__GNUC__) && defined(I386) && defined(PARROT_SWITCH_REGS)
    register opcode_t *cur_opcode asm ("esi") = cu <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4792	4890	
==>nction.

=cut

sub run_core_func_start
{
    return <<END_C;
#if defined(__GNUC__) && defined(I386) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420613	420887	
==>i",
                              "p",
                              "ic",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpre <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	55313	55437	
==>s*<defer:(.*)>\Z/$1/s;
				if ($code =~ /\A\s*[^{]|[^}]\s*\Z/)
				{
					$code = "{ $code }"
				}

				$item = new Parse::R <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	15103	15302	
==>@{ $super_mmd } **\n";
                    push @{ $self->{super_mmd} },
                        { $pname => $super_mmd,
                          'meth' => $meth};
                }
                l <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	608	731	
==>ke bison or yacc?";
@args        = qw( yacc ask maintainer );

sub runstep
{
    my ($self, $conf) = @_;
    
    my $verbos <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1880	1994	
==>my $i = 0; $i < @args; $i++) {
    my ($formal_arg_type, $formal_arg_name) = @{$formal_args[$i]};
    my $actual_ar <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1580	1694	
==>my $i = 0; $i < @args; $i++) {
    my ($formal_arg_type, $formal_arg_name) = @{$formal_args[$i]};
    my $actual_ar <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6575	6675	
==>ES}
    prop_stack_depth[${ITEMP0}] = stack_depth
    goto POST_BRANCH_switch_${CURIC}_LOOP
POST_BRAN <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4513	4613	
==>ES}
    prop_stack_depth[${ITEMP0}] = stack_depth
    goto POST_BRANCH_switch_${CURIC}_LOOP
POST_BRAN <==
2	/Users/nnunley/parrot/config/init/hints/netbsd.pm	5	115	
==>yright (C) 2006, The Perl Foundation.
# $Id$

package init::hints::netbsd;

use strict;

sub runstep
{
    my ( <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	6263	6406	
==>*[a-z0-9_]+\.[chly]\s*\n//mi; # own filename - kludgy.
	$desc = $_;
	$desc = ""  # it's only emacs variables at the end of the file
	    if(!$co <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	23564	23679	
==>_open->[-1][1]{'target'} because of =end $content\n";
      pop @$curr_open;

      next;
      
    } elsif($para_t <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	29020	29134	
==>_string {
}

sub _op_string_number {
}

sub _op_char_p {
}

sub _op_char_eq_p {
}

sub _op_char_lt_p {
}

sub _op_c <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	282	410	
==>rict;
eval "use warnings";

package Jako::Construct::Declaration;

use base qw(Jako::Construct);

sub access { return shift->{ACC <==
2	/Users/nnunley/parrot/config/auto/m4.pm	780	927	
==>rch) = ($cpuarch, "");
    }

    my $has_gnu_m4;

    # Calling 'm4 --version' hangs under FreeBSD
    my %m4_hangs = (freebsd => 1);

    if ($m4_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	195264	195535	
==>"ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 328 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_STRCM <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	1307	1437	
==>C<$new> into C<$orig>.  Returns C<$orig> if C<$new> is undefined.

=cut

sub integrate
{
    my ($orig, $new) = @_;

    # Rather t <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	4216	4324	
==>$r->$elem = $type->new(\%{\$init{'$name'}}) } $cmt\n";
           $out .= "       elsif (UNIVERSAL::isa(\$ini <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	320	418	
==>describing Parrot's project info.

=head2 Class Methods

=over

=cut

package Parrot::Docs::Section <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	891	1181	
==>:isa($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block,

    VALUE => $value,
    COND  => $cond,
    LEFT  => $left,
    OP    => $op,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => defined $value ? $value->file : undef, # TODO: YUCK!
    LINE  => <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26246	26404	
==>push @opcodes, new BranchOp( $parser,
            'result' => $l_end,
        );
        push @opcodes, new LabelOp( $parser,
            'arg1' => $l_next <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	25733	25875	
==>push @opcodes, new BranchOp( $parser,
        'result' => $l_end,
    );
    push @opcodes, new LabelOp( $parser,
        'arg1' => $l_next <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25608	25721	
==>p,$return]);
    $self->_restore($temp);
  } else {
    $return = $self->_generate($node->{children}[1]);
    if ( <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27506	27619	
==>p,$return]);
    $self->_restore($temp);
  } else {
    $return = $self->_generate($node->{children}[1]);
    if ( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	848	949	
==>= @_;

  $handler->start_element({ Name => 'block', Attributes => { kind => $self->kind } });
  $_->sa <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1861	1962	
==>= @_;

  $handler->start_element({ Name => 'block', Attributes => { kind => $self->kind } });
  $_->sa <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8534	8633	
==>);tab$(32);c$(i+3)
next
print
data "ABANDON","CHART","COMPUTER"
data "DAMAGES","DESTRUCT","DOCK","ID <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21398	21497	
==>);tab$(32);c$(i+3)
next
print
data "ABANDON","CHART","COMPUTER"
data "DAMAGES","DESTRUCT","DOCK","ID <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	655	812	
==>tions', 'languages.html', '',
        $self->new_item('', 'languages/LANGUAGES.STATUS.pod'),
        $self->new_item('', 'languages/t/harness'),
        $self <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	31304	31430	
==>_close_input_port {
}

sub _op_close_output_port {
}

sub _op_read {
}

sub _op_read_char {
}

sub _op_peek_char {
}

sub _op_e <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	246	382	
==>le::BlackBox::stringify_lol,
  # '.='   => \&tack_on,  # grudgingly support
  
  'fallback' => 1,         # turn on cleverness
);

sub ta <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53315	53423	
==>PARROT_GC_DEBUG_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_GC_DEBUG_FLAG); }\n  {{+=2} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54071	54179	
==>PARROT_GC_DEBUG_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_GC_DEBUG_FLAG); }\n  {{+=2} <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5758	5885	
==>bs
        my %libs = %{ $class->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There should be at most a si <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5969	6096	
==>bs
        my %libs = %{ $class->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There should be at most a si <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	652113	652436	
==>",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 729,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 264 \"src/op <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	20017	20269	
==>) {
          $dont_ignore = '';
          delete $para->[1]{'target_matching'};
          DEBUG > 2 and print " But the leading ! means that this is a NON-match!\n";
        } else {
          $dont_ignore = 1;
          $para->[1]{'target_matching'} = <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3604	3714	
==>ks.
sub pre_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If we need a destination, e <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	8160	8341	
==>->{fh};
        print {$FH}
            "  unless_null $op->{arg1}->{symbol}, $op->{result}->{symbol}\n";
    }

    sub visitBranchOp {
        my $self = shift;
        my ( <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4255	4382	
==>x$LOAD_EXT";
	        copy($src, $dest)
			    or die "Copy $src failed ($?)\n";
	
		    # Execute permissions on libraries is e <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23046	23177	
==>{"lookahead"}<0?'if':'unless') . ' defined $_tok;
		push @item, '.($::RD_NO_HITEM ? ''
			       : '$item{'.$self->{hashname}.'}='). <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	7552	7690	
==>elf->c_pair_item('', 'smallobject'),
            $self->c_pair_item('', 'headers'),
        ),
        $self->new_group(
            'Garba <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	3	124	
==>opyright (C) 2004, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Docs/Section/Docs.pm 20333 2006-06-21T18:44:31.111564Z b <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	10948	11051	
==>l Env Key Random UnManagedStruct ManagedStruct delegate CSub Compiler Exception Version VtableCache Parr <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	440	545	
==>d on the command line and outputs a
C<Parrot::OpLib::core> module containing information about the ops.

= <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	1836	1954	
==>efile) = @_;

		$class =~ /^(\w+::)*\w+$/ or croak("Bad class name: $class");

		my $modulefile = $class;
		$modulefile <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042885	1042979	
==>> "#line 125 \"src/ops/var.ops\"\n    VTABLE_set_pmc_keyed_str(interpreter, {{\@1}}, {{\@2}}, { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043782	1043876	
==>> "#line 125 \"src/ops/var.ops\"\n    VTABLE_set_pmc_keyed_str(interpreter, {{\@1}}, {{\@2}}, { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959717	960076	
==>S" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1080,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 59 <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27668	27790	
==>r rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end translation\n";

		# Emit code to fix <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37217	37339	
==>r rule $rule->{'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end translation\n";

		# Emit code to fix <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	3382	3498	
==>UARD
#include "parrot/cclass.h"
#define WHITESPACE  enum_cclass_whitespace
#define WORDCHAR    enum_cclass_word
#defi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3428	3542	
==>, $val2, $dest) = @_;
    $self->output_test('gt', $val1, $val2, $dest);
}

sub output_ge {
    my ($self, $val1, $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9135	9294	
==>s = 1;
            &$error($self);
                $$errstatus # if 0, then YYErrok has been called
            or  next;       # so continue parsing

#DBG <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8722	8876	
==>s = 1;
            &$error($self);
                $$errstatus # if 0, then YYErrok has been called
            or  next;       # so continue parsing

#DBG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789776	789906	
==>t.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_string_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790686	790816	
==>t.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_string_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	2108	2246	
==>lf, $ops, $ctx) = @_;
    die "Wrong #args" if @_ != 3;

    my @equivs; # (labels)
    my @output; # (ops)

    # Merge adjacent (equivale <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4169	4294	
==>pmcs.h
    # include/parrot/feature.h
    # include/parrot/platform.h
    
    # runtime/parrot/include/* (all?)

    # lib/Pa <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	154	256	
==>terpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm 19606 2006-05-30 <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	1091	1244	
==>dir = BASEHTTPDIR;
	    $file =~ s!^$basehttpdir!!;
	    die "Invalid File"
		if $file =~ m!/|\.\.!;
	    if (-e BASEDIR . "/" . $file) {
		open my $f, "< <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	24484	24650	
==>}

        my $cfg = "src$PConfig{slash}parrot_config$PConfig{o}";
        $cmd =   "$PConfig{link} $PConfig{linkflags} $PConfig{ld_debug} "
               . "$obj_f $ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	54	177	
==>s track of the current stack depth and assigns to
# virtual registers numbered by depth. This eliminates the need for a stac <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	54	177	
==>s track of the current stack depth and assigns to
# virtual registers numbered by depth. This eliminates the need for a stac <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8354	8503	
==>RR "Back to state $$stack[-1][0], then ";

                $$check eq 'ERROR'
            or  do {
#DBG>				$debug & 0x04
#DBG>			and	print STDER <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7974	8118	
==>RR "Back to state $$stack[-1][0], then ";

                $$check eq 'ERROR'
            or  do {
#DBG>				$debug & 0x04
#DBG>			and	print STDER <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	3801	4151	
==>n function definitions, the name starts in column 0, with the
    # return type on the previous line
    
    # XXX C::Scan, perhaps.
}

sub check_comments {
    my ($file, $source) = @_;

    my $line = 0;
    foreach (@$source) {
        $line++;
        next unless $_;

        if (/\/\// && ! /http:\/\//) {
            error($file, $line, "Possi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	6640	6749	
==>ave for
#      the current node (NOT for this node and everything following it)
#  follow_min - The minimum nu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407787	408287	
==>LAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 471,
                  "ARGS" => [
                              "i",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 540 \"src/ops/io.ops\" <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	1200	1307	
==>print "$action $filename\n" if $opt{verbose};
    open my $fh, $direction, $filename or die "$action $filena <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	22304	22411	
==>print "$action $filename\n" if $opt{verbose};
    open my $fh, $direction, $filename or die "$action $filena <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	92	201	
==>ISA = ('Pod::Simple')}

use strict;

use Carp ();

BEGIN { *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	91	200	
==>ISA = ('Pod::Simple')}

use strict;

use Carp ();

BEGIN { *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	1670	1779	
==>that the symbol is global; lowercase indicates that
it is local.

=item C<--type=bsd>

=item C<-B>

The same a <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	20335	20451	
==>data;
    REG_INT(0) = $stack_returns;
    REG_INT(1) = $int_returns;
    REG_INT(2) = $string_returns;
    REG_INT(3 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423113	423410	
==>LAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 486,
                  " <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6794	6904	
==>ks.
sub pre_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If we need a destination, w <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4732	4842	
==>ks.
sub pre_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If we need a destination, w <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2999	3104	
==>in subroutine one"
   RETURN Label1
Sub2:
   PRINT "3 in subroutine two"
   RETURN Label2   'Cannot return <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16966	17071	
==>in subroutine one"
   RETURN Label1
Sub2:
   PRINT "3 in subroutine two"
   RETURN Label2   'Cannot return <==
2	/Users/nnunley/parrot/config/auto/gc.pm	2097	2198	
==>> <<"EOF",
\$(SRC_DIR)/res_lea\$(O):	\$(GENERAL_H_FILES) \$(SRC_DIR)/res_lea.c
EOF
            TEMP_gc <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1311	1450	
==>uage);
        } elsif ($dir_count == 1) {
          $path_to_language = $language;
        } elsif ($dir_count == 2) {
          $path_to_l <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1796	1935	
==>uage);
        } elsif ($dir_count == 1) {
          $path_to_language = $language;
        } elsif ($dir_count == 2) {
          $path_to_l <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	342	445	
==>class, $plan, @args ) = @_;

    Test::More->import( $plan, @args );

    __PACKAGE__->_export_to_level( <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	259	362	
==>class, $plan, @args ) = @_;

    Test::More->import( $plan, @args );

    __PACKAGE__->_export_to_level( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	1096	1251	
==>ck,

    KIND      => 'if',
    LEFT      => $left,
    OP        => $op,
    RIGHT     => $right,

    CONTENT   => [ ]
  }, $class;

  $block->push_conten <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	3861	3962	
==>ature = join("", @params);
  print OUTPUT "dlfunc P2, P1, '$name', '$signature'\n";
  print OUTPUT "st <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	763	1019	
==>library libfoo -c \
           src/pmc/foo1.pmc src/pmc/foo2.pmc ...

=head1 DESCRIPTION

The job of the PMC compiler is to take .pmc files and create C files
that can be compiled for use with the Parrot interpreter.

=head1 COMMAND-LINE OPTIONS

=over 4

= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509014	509219	
==>rc/ops/math.ops\"\n  {{\@1}} = - {{\@1}};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509645	509850	
==>rc/ops/math.ops\"\n  {{\@1}} = - {{\@1}};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	10220	10353	
==>= @_;
    $reg = value($reg);
    return ".param $type $reg";
}


sub output_return {
    my ($self, $rettype, $retval) = @_;
    $ret <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21737	21850	
==>> {
			'exp' => 100,
			'functioncall' => 31,
			'explist1' => 121,
			'function' => 26,
			'tableconstructor <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2367	2528	
==>me,
                       args => $args || [],
                       %opts }, $class;

    return $self->init();
}

# Default initialization, to be overridden i <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	6706	6813	
==>ad1 FUNCTIONS

=head2 my $path = find_file( [$dir1, $dir2], $file, $die_unless_found_flag );

Return the ful <==
2	/Users/nnunley/parrot/languages/regex/regex.pl	702	930	
==>} elsif (/--language=(.*)/) {
        $language = lc($1);
        $language = 'perl5' if $language eq 'perl';
    } elsif (/--sub-name=(.*)/) {
        $subname = $1;
    } elsif ($_ eq '-o') {
        $output = shift;
    } elsi <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27796	27916	
==>) {
				feedme();  # Get the as
				feedme();
				push(@params, $syms[CURR], $a);
			} elsif ($syms[NEXT] eq "(") {
				f <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	17859	18000	
==>$self->{Have_Plan} ) {
        require Carp;
        Carp::croak("You tried to run tests without a plan!  Gotta have a plan.");
    }

    loc <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	18724	18865	
==>$self->{Have_Plan} ) {
        require Carp;
        Carp::croak("You tried to run tests without a plan!  Gotta have a plan.");
    }

    loc <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	8661	8789	
==>~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~

sub get_title_short {  shift->get_short_title(@_)  } # alias

sub get_short_title {
  my $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1098	1194	
==>$self->ident->kind eq 'var') and ($self->ident->scope eq 'global')) {
    my $pmc_type = $self->i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1092	1188	
==>$self->ident->kind eq 'var') and ($self->ident->scope eq 'global')) {
    my $pmc_type = $self->i <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	13603	13843	
==>RR => $out_f);
                    if ( -e $o_f ) {
                        run_command(qq{$PConfig{make} EXEC=$exec_f exec},
                                    CD     => $path_to_parrot,
                                    STDOUT => $out_f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	239096	239306	
==>i",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 611 \"src/ops/cmp.ops\"\n  {{\@1}} = mmd_dispatch_i_pp(interpreter, {{\@ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	36761	36903	
==>'<q>' );

would correctly match something like this:

	$text = '<leftop: conj /and/ conj>';

See also: C<"extract_quotelike"> and C<"extract_co <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2054	2153	
==>{ --$_[0]{'Indent'} }
sub   end_over_text    { --$_[0]{'Indent'} }
sub   end_over_block   { --$_[0]{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1622	1721	
==>{ --$_[0]{'Indent'} }
sub   end_over_text    { --$_[0]{'Indent'} }
sub   end_over_block   { --$_[0]{ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	3386	3495	
==>ect is passed as the first argument to each steps
C<runstep()> method followed by any parameters that were reg <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	11607	11744	
==>ant (expand_args(@$args))
    {
        my (@fixedargs)=split(/,/,$variant);
        my $op = Parrot::Op->new($code++, $type, $short_name, <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	13294	13389	
==>r_number{I<name>}

Maps from names (as in C<EE<lt>I<name>E<gt>>) like "eacute" or "sol"
to the U <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2457	2574	
==>ed text describing the files linked to is returned.

=cut

sub write_contents_html
{
	my $self = shift;
    my $source <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	1681	1952	
==>the SRM wants.
my $csubs = $srm->subs();
$pir .= sub_meta($csubs, {}, 'custom subs');

# Finally, write generated PIR to output file.
open my $fh, "> $output_file";
print $fh $pir;
close $fh;

# And display count of ops that can be translated.
print "Currently able to tra <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	975	1119	
==>f course,
the prefix could come explicitly from the source code if the loop was labeled.

TODO: Do we really need KIND, since we have subclasses? <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	3133	3276	
==>, 
                'pairs' => ['interpreter'], 
                'sources' => [
                    'inter_cb', 'inter_create', 'inter_misc', 'in <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36579	36725	
==>State 141
		ACTIONS => {
			"-" => 72,
			"%" => 76,
			"*" => 80,
			".." => 71,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	5607	5719	
==>keys %{ $branches{$branch} }) {
      $branches{$branch}{$cat} = [
        map  {{ %$_, timestamp => $_->{timesta <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263293	263546	
==>"i",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 798 \"src/ops/cmp.ops\"\n    if ({{\@2}} == {{\@3}})\n        {{\@1}} = 0;\n    else\n        {{\@1}} = !VTABLE_is <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4099	4318	
==>on) {
            if (/Calls (.*) : (.*)/) {                                
                # calling another function within parrot.
                $internal_calls{$1}{"$file:$function"}++ 
                  unless ($ <==
2	/Users/nnunley/parrot/config/auto/memalign.pm	152	249	
==>to/memalign.pm - Memory Alignment

=head1 DESCRIPTION

Determines if the C library supports C<mema <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	3607	3733	
==>/dev/gen_charset_tables.pl'),
            $self->new_item('', 'tools/dev/rebuild_miniparrot.pl'),
        ),
    );
}

=back

= <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	5496	5697	
==>*)$}x) {
      push @tokens, Jako::Token->new(
        $file, $line, 'exfix-arith', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^( \+= | \*= | -= | /= | %= )(.*)$}x) {
      push <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	405	505	
==>e Parrot::Docs::Section::BigNum;

use strict;
use warnings;

use base qw( Parrot::Docs::Section );

= <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	12342	12442	
==>f, $source) = (@_);

  if(!defined $source) {
    Carp::croak("Can't use empty-string as a source for <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	7644	7752	
==>dy;
    }

    return $body;
}

=item C<source($trans)>

Returns the L<C<full_body()>> of the op with substit <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2286	2386	
==>ype, $value, $op)>

Returns the C code for the specified op argument type (see
C<Parrot::OpTrans>) an <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3177	3277	
==>ype, $value, $op)>

Returns the C code for the specified op argument type (see
C<Parrot::OpTrans>) an <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27925	28030	
==>rp, int, int);
EOC
    $self->{hdecls} .= $hout;
    $self->{hdecls};
}

=item C<gen_h($out_name)>

Genera <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	658	789	
==>}

sub _handle_element_end {
  print {$_[0]{'output_fh'}} "\n"  unless $_[1] =~ m/^[A-Z]$/s;
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453676	453897	
==>> 520,
                  "ARGS" => [
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 230 \"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17364	17474	
==>"
	exit do
	print "This is wrong"
	t=t+1
loop until t>1

' Function test:  A, 3, 90
print chr$(65)
print int(3. <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	913	1026	
==>RATION

You must specify paths to executables in a configuration file.
That file may be placed as parrotbench.conf <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1281	1417	
==>ock,

    IDENT => $ident,
    COND  => $cond,
    LEFT  => $left,
    OP    => $op,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => $ <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	1557	1694	
==>m '$infile'
 * by $0.
 *
 * Any changes made here will be lost!
 *
 */

#define CONCAT(a,b) a##b
#define _CONST_STRING(i, l) (i)->const_cs <==
2	/Users/nnunley/parrot/lib/Test/More.pm	12907	13037	
==>object, $class, $obj_name) = @_;

    my $diag;
    $obj_name = 'The object' unless defined $obj_name;
    my $name = "$obj_name is <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1661	1765	
==>INS} = concat " = pop s\n"
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$register_num++;
	}

	# Do c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601604	601850	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "singleton",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i"
                               ], <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	900	1079	
==>x()>

The suffix is C<'_switch'>.

=cut

sub suffix
{
    return "_switch";
}

=item C<defines()>

Returns the C C<#define> macros required by the ops.

=cut

sub defines
{
    ret <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	35520	35695	
==>l_end,
    );
    return \@opcodes1;
}

sub BuildBreak {
    my ($parser) = @_;
    my @opcodes = ();
    push @opcodes, new BranchOp( $parser,
        'result' => 'br <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722201	722315	
==>"\n  STRING * const s = {{\@2}};\n  PMC * const io = {{\@1}}; /* TODO Can this be localized? */\n  if (s && string_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723230	723344	
==>"\n  STRING * const s = {{\@2}};\n  PMC * const io = {{\@1}}; /* TODO Can this be localized? */\n  if (s && string_ <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	291	515	
==>g routines specific to 'lua'.

=head1 DESCRIPTION

Call 'Parrot lua' and 'original lua'.

=head1 METHODS

=head2 new

Yet another constructor.

=cut

sub new {
    return bless {};
}

my %language_test_map = <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8560	8644	
==>int
data "ABANDON","CHART","COMPUTER"
data "DAMAGES","DESTRUCT","DOCK","IDLE","IMPULS <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21424	21508	
==>int
data "ABANDON","CHART","COMPUTER"
data "DAMAGES","DESTRUCT","DOCK","IDLE","IMPULS <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	4411	4510	
==>data);
 $ctx->addfile(*FILE);

 $digest = $ctx->digest;
 $digest = $ctx->hexdigest;
 $digest = $ctx- <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27827	27926	
==>ARROT_DYNEXT_EXPORT ';
    }
    $hout .= <<"EOC";
void Parrot_${classname}_class_init(Parrot_Interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710782	710867	
==>IO_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  PIO_softspace(interpreter, io, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711616	711701	
==>IO_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  PIO_softspace(interpreter, io, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	745	883	
==>over

=item $token->text

This returns the text that this token holds.  For example, parsing
CZ<><foo> will return a C start-token, a text- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57884	58116	
==>ops\"\n  {{\@1}} = interpinfo_s(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58646	58878	
==>ops\"\n  {{\@1}} = interpinfo_s(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	386065	386410	
==>ction",
                  "CODE" => 450,
                  "ARGS" => [
                              "p",
                              "ic",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interprete <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28160	28263	
==>expected
				   = ($lastsep||"").$text;
			}'.($::RD_NO_TRACE?'':'
			Parse::RecDescent::_trace(q{<<Didn <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32435	32538	
==>expected
				   = ($lastsep||"").$text;
			}'.($::RD_NO_TRACE?'':'
			Parse::RecDescent::_trace(q{<<Didn <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1595	1758	
==>y C<goto_offset()>.

=cut

sub expr_offset
{
    my ($self, $offset) = @_;

    return "cur_opcode + $offset";
}

=item C<expr_pop()>

Returns the C code for C<POP( <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	957	1047	
==>UM(cur_opcode[i])
#define PREG(i) REG_PMC(cur_opcode[i])
#define SREG(i) REG_STR(cur_opcode <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1073	1163	
==>UM(cur_opcode[i])
#define PREG(i) REG_PMC(cur_opcode[i])
#define SREG(i) REG_STR(cur_opcode <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	27494	27600	
==>($self->can($method)) {
        $desc = $self->$method($op, @{ $op->{args} });
        return ($back, @ops) <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	6925	7072	
==>dr' => 'stdarg.h',
             'i_vfork' => undef,
             'icu_dir' => '/opt/local',
             'icu_shared' => '-lpthread -lm -L/opt/local <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	15016	15464	
==>bc_f"},
                    ];
                } else {
                    $cmd = qq{$parrot $args "$code_f"};
                }
                $exit_code = run_command($cmd,
                                         CD     => $path_to_parrot,
                                         STDOUT => $out_f,
                                         STDERR => $out_f);
            }

            my $meth = $parrot_test_map{$func};
            my $real_o <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	13782	13989	
==>ent). If the element type
starts with a C<'*'>, a reference to the element itself is returned.

=back

=head2 Initializing with C<new>

C<struct> always creates a constructor called C<new>. That constructor
m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788004	788260	
==>ber_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788914	789170	
==>ber_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	311451	311650	
==>reter,&interpreter->string_reg, -1);\n        PDB_print_pmc(interpreter,&interpreter->pmc_reg, -1, NULL);\n#endif\n    }\n    {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	701	844	
==>}

sub init {
    my ($self, @args) = @_;
    $self->{_markers} = {};
    $self->{_temp_int_count} = 3;
    $self->{state} ||= Regex->global_sta <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1464	1568	
==>elf = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'op', Attributes => { kind => 'po <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1458	1562	
==>elf = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'op', Attributes => { kind => 'po <==
2	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	887	1010	
==>de "expr.pasm"


MAIN:
	new P20, .PerlHash     # PerlHash   # Numerics
	new P21, .PerlHash     # Alphabetics.
	new P22, .Per <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	6000	6151	
==>@_;
    
    chomp $code;
    
    my $pir = '';
    while ($code =~ s/^([^%]*)%(\d+)//)
    {
        $pir .= inline($1) if $1;
        $pir .= "  \$S0 <==
2	/Users/nnunley/parrot/config/auto/headers.pm	1163	1312	
==>ts this order:
    #include <sys/types.h>
    #include <sys/socket.h>
    #include <netinet/in.h>
    #include <arpa/inet.h>
    # hence add sys/types <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46120	46287	
==>> [
                              "p"
                            ],
                  "BODY" => "#line 742 \"src/ops/core.ops\"\n  Parrot_push_action(interpreter, {{\@ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41384	41559	
==>$1;' : "" ) . '
		  }
		  $text = $savetext;
		  pop @item if $backtrack;

		  # MATCH RIGHTARG
		  ' . $rightarg->code(@_[1..2]) . '
		  $repcount++;
		  ';
	}

	$code .= 'unl <==
2	/Users/nnunley/parrot/lib/Test/More.pm	24313	24462	
==>pt (always a good idea).


=back

=head2 Complex data structures

Not everything is a simple eq check or regex.  There are times you
need to see if tw <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	16699	17011	
==>piece' => 48
		}
	},
	{#State 52
		ACTIONS => {
			'NUM' => 49,
			'CHAR' => 47,
			"]" => 64
		},
		GOTOS => {
			'classpiece' => 48
		}
	},
	{#State 53
		DEFAULT => -25
	},
	{#State 54
		DEFAULT => -3
	},
	{#State 55
		ACTIONS => {
			"?" => 23,
			'CHAR' => 4,
			"<" => 22,
			"+" => 24,
			'CODE' => 6,
			"( <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1026	1176	
==>uction.
    ${INS} = concat "set $"
    ${INS} = concat ${STEMP0}
    ${INS} = concat ", "
    ${STEMP0} = pop lazy_moves
    ${INS} = concat ${STEMP0} <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9226	9341	
==>nd length $new_code;
    if(ASCII) {
      # A good-enough check that it's good as an XML Name symbol:
      Carp::c <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10490	10605	
==>nd length $new_code;
    if(ASCII) {
      # A good-enough check that it's good as an XML Name symbol:
      Carp::c <==
2	/Users/nnunley/parrot/lib/Test/More.pm	31212	31330	
==>ash {
    local @Data_Stack;
    return _deep_check(@_);
}

sub _eq_hash {
    my($a1, $a2) = @_;

    if( grep !_type( <==
2	/Users/nnunley/parrot/lib/Test/More.pm	608	814	
==>p_ok
             skip todo todo_skip
             pass fail
             eq_array eq_hash eq_set
             $TODO
             plan
             can_ok  isa_ok
             diag
            );

my $Test = <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20163	20274	
==>print "*";
	next j
	print 
next i

' Square roots and sgn
print 10,sqr(10)
print 32767,sqr(32767)
print 0,sqr(0) <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	43001	43100	
==>} == 3 and !ref($content = $treelet->[$i][2])) {
        $self->whine( $start_line, "An E<...> surro <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	3339	3505	
==>tring comparison of the output
with the unexpected result is false.

=item C<pbc_output_is($code, $expected, $description)>

Runs the Parrot Bytecode and passes the te <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1440	1559	
==>])

/*
 * if we are using CHECK_EVENTS elsewhere this macro should (again)
 * be in includes/parrot/event.h
 *
 * This g <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	14367	14551	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

##############################################################################
##
##  stop reading now stop reading now stop reading now stop reading now <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1296	1403	
==>$pmc_type");
    $compiler->emit("  $pmc_reg = $ident");
    $compiler->emit("  global \"$ident_name\" = $pm <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1290	1397	
==>$pmc_type");
    $compiler->emit("  $pmc_reg = $ident");
    $compiler->emit("  global \"$ident_name\" = $pm <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30865	31053	
==>UG and print " Item is of type ", $para->[0], " under $over_type\n";
          
          if($item_type eq 'text') {
            # Nothing special needs doing for 'text'
          } elsif($ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670646	670822	
==>\@1}}->vtable->push_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671419	671595	
==>\@1}}->vtable->push_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	12283	12437	
==>.  If the element type
is C<'@'>, the accessor returns the array element value.  If the
element type is C<'*@'>, a reference to the array element is
return <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8009	8172	
==>Next parameter.
dec stack_depth
goto pre_call_PLOOP_${CURIC}
PRE_CALL_PLOOP_END_${CURIC}:

# If there is a return type, need to supply a ${DEST0}.
${ITEMP0} = ${PTE <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10756	10846	
==>Next parameter.
dec stack_depth
goto pre_call_PLOOP_${CURIC}
PRE_CALL_PLOOP_END_${CURIC}:
P <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	23339	23552	
==>R, $rfail);
    my @ops = (
                        aop('pushmark', [ "+" ]),
               $loop => @R_ops,
                        aop('pushint', [ 0, 'plus matched marker' ]),
                        aop('goto' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85621	85845	
==>eyed_str(interpreter, compreg_hash, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86528	86752	
==>eyed_str(interpreter, compreg_hash, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	8759	8991	
==>+;
    }

    if (! $ok) {
        if ($mismatch_at >= 0) {
            error($file, 0, "Ending boilerplate is missing.");
        } else {
            error($file, (@$source+$mismatch_at), "Ending boilerplate incorrect.\n(mismatch a <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2130	2241	
==>\@params, \%params, \@_, $self );

	if($$self{DEBUG}) {
		_DBLoad();
		$retval = eval '$self->_DBParse()';#D <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2051	2158	
==>\@params, \%params, \@_, $self );

	if($$self{DEBUG}) {
		_DBLoad();
		$retval = eval '$self->_DBParse()';#D <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	23494	23624	
==>plus matched marker' ]),
                        aop('goto', [ $loop ]),
              $rfail => aop('popindex', [ '<tmp>', $lastba <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	4542	4633	
==>s C<Pod::Simple::Checker> on the contents of the file. Executable
files, and F<*.dump> files <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646422	646743	
==>" => "inline",
                  "CODE" => 722,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 211 \"src/ops/pmc.ops\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtable_max)\n\t\t{{\@1}} = interpre <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	12191	12304	
==>mps_ref}, "FLOATVAL t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_N($reg_ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	2374	2476	
==>s indicates the 'languages/t/harness' wants a list of test files
        my $dir   = File::Spec->catfil <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	1772	1961	
==>{builder}->skip( $skip_why );
        } else {
            # STDERR is written into same output file
            my $exit_code = Parrot::Test::run_command( 
                                \ <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	475	625	
==>put_like       => 'like',
    output_isnt       => 'isnt_eq'
                        );

foreach my $func ( keys %language_test_map ) {
    no strict ' <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	814	964	
==>put_like       => 'like',
    output_isnt       => 'isnt_eq'
                        );

foreach my $func ( keys %language_test_map ) {
    no strict ' <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	1993	2252	
==>->set(
                gmp     => 'define',
                HAS_GMP => $has_gmp,
            );
        }
    }
    unless ($has_gmp) {

        # The Config::Data settings might have changed for the test
        $conf->data->set('libs',      $libs);
        $ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	17765	17875	
==>skip {
    my($self, $why) = @_;
    $why ||= '';
    $self->_unoverload(\$why);

    unless( $self->{Have_Plan <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	41	144	
==>ts = ();
while (<>) {
	if (/^Translated (\d+) types out of (\d+) from .+?([\.\w]+)\n$/) {
		push @res <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	41	144	
==>ts = ();
while (<>) {
	if (/^Translated (\d+) types out of (\d+) from .+?([\.\w]+)\n$/) {
		push @res <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	14627	14754	
==>ef="<tmpl_var name=link>" title="Full smoke report">View full smoke report</a>
            </td>
          </tr>
        </tmpl_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	295	388	
==>e warnings";

package Jako::Construct::Block::Loop::Until;

use Carp;

use base qw(Jako::Const <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25297	25386	
==>{{\@1}};\n  dest = {{^+2}};\n  interpreter->current_cont = CONTEXT(interpreter->ctx)->curr <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	15391	15696	
==>.
    .local pmc iter1, iter2
    iter1 = new .Iterator, op1
    iter2 = new .Iterator, op2
  loop:    
    unless iter1 goto loop_done
    $P1 = shift iter1
    $P2 = shift iter2
    $S1 = typeof $P1
    if $S1 == 'String' goto bad_args
    $S2 = typeof $P2
    if $S2 == 'String' goto bad_args
    goto g <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876963	877243	
==>> 994,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834278	834361	
==>k_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}}, STACK_ENTRY_STR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835004	835087	
==>k_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}}, STACK_ENTRY_STR <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	1223	1449	
==>efix deemed
Parroty enough, like C<PDB_>, C<PF_>, C<PIO_>, and C<PackFile>).

If code: see L</"Public or Private">.

If data: at least consider limiting its scope by making it file
static or function static, but see L</"Data is <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7183	7341	
==>Glob.pir"
            load_bytecode "PGE/Dumper.pir"
            load_bytecode "PGE/Text.pir"
            glob_compile = compreg "PGE::Glob"

            .loca <==
2	/Users/nnunley/parrot/lib/Test/More.pm	3178	3277	
==>w beforehand how many tests
your script is going to run.  In this case, you can declare that you
hav <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11099	11372	
==>itespace, unless backslashed
                } else {
                    push @tokens, $c;
                    push @types, $c;
                }
            }
        } elsif ($state == 1) {
            push @tokens, $c;
            push @types, 'CHAR';
            $state <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	17076	17195	
==>c {
    my ($include, @files) = @_;
    # help these dumb 'shells' that are no shells
    @files = glob $files[0] if $fi <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1851	1950	
==>scription, @todo)>

Runs the target string against the Perl 6 pattern, passing the test if
they do n <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3383	3482	
==>scription, @todo)>

Runs the target string against the Perl 6 pattern, passing the test if
they do n <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11092	11195	
==>6789])/sprintf('%%%02X',ord($1))/eg;
        # Yes, stipulate the list without a range, so that this can <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4441	4543	
==>6789])/sprintf('%%%02X',ord($1))/eg;
       # Yes, stipulate the list without a range, so that this can <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905237	905374	
==>"i"
                            ],
                  "BODY" => "#line 262 \"src/ops/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_str( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906256	906393	
==>"i"
                            ],
                  "BODY" => "#line 262 \"src/ops/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_str( <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6285	6436	
==>HTML} = $formatter->html_for_file($self);
	}
	
	return $self->{POD_HTML};
}

=item C<is_docs_link()>

Returns whether the file is suitable for inclusion <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	7990	8217	
==>ion.bt.co.uk>).

C<Digest::MD5> was made by Gisle Aas <gisle@aas.no> (I took his Interface
and part of the documentation)

Thanks to Guido Flohr for his 'use integer'-hint.

This release was made by Christian Lackas <delta@clack <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	1180	1289	
==>tant(0)->data ne $opcode_fingerprint;

=cut

    print "# Constants: $count entries\n";
    print "# ID  Flags <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	2293	2425	
==>{'contents'}};
    }
    
    return $self->new_item($text, grep {defined} @contents);
}

=item C<new()>

Returns a new section.

=cu <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26085	26189	
==>urn;
}

sub _op_times {
  my ($self,$node) = @_;
  my $return;
  my $num_children = defined $node->{child <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	29175	29473	
==>uld
result in this structure:

    $tests[22] =    # 23 - 1, since arrays start from 0.
      { ok        => 1,   # logically, the test passed since it's todo
        actual_ok => 0,   # in absolute terms, it failed
        name      => 'hole count',
        type      => 'todo',
        reason    = <==
2	/Users/nnunley/parrot/Configure.pl	6442	6556	
==>efine=inet_aton   Quick hack to use inet_aton instead of inet_pton

Parrot Options:

   --intval=(type)      Use th <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	23566	23840	
==>less defined $firstpos;
			$lastpos = length $$textref;
		}
		last;
	}

	pos $$textref = $lastpos;
	return @fields if wantarray;

	$firstpos ||= 0;
	eval { substr($$textref,$firstpos,$lastpos-$firstpos)="";
	       pos $$textref = $firstpos };
	return $fields[0];
}


sub gen <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	12850	13012	
==>return aop($op->{name}, [ @{ $op->{args} }, $lastback ]);
}

# scan(R) ->   scan: R or advance
#                    goto next
#           advance: pos++ or lastbac <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18867	18990	
==>erbatim sections") will appear as.

=item $parser->header_halfpoint_size( I<halfpoint_integer> );

This method sets the size <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847218	847505	
==>=> "inline",
                  "CODE" => 961,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 56 \"src/ops/string.ops\"\n  STRING *s;\n  s = string_chr(interpreter, (UINT <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6688	6800	
==>ABEL])

Search this block and recursively through parent Blocks for a Block with the
specified kind (such as a wh <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	6954	7106	
==>data->set(optimize => '-O2');
            }
        } elsif ($make =~ /dmake/i) {

            # mingw Perl
        } else {
            warn "unknown co <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	3698	3819	
==>GV:$.: Duplicate entry $src\n";
    }

    # Parse out metadata
    die "Malformed line in MANIFEST: $_" if not defined $m <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	1496	1616	
==>-like
#  languages which happens to contain Pod -- it is just for Pod, plus possibly
#  some extensions.

# @ @ @ @ @ @ @ <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	4513	4612	
==>} (0..$#args);
    $macros .= <<"EOM";
#define VTABLE_$entry->[1]($args) \\
    (pmc)->vtable->$entr <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	1303	1439	
==>docs/memory_internals.pod'),
			$self->new_item('', 'docs/parrotbyte.pod'),
			$self->new_item('', 'docs/parrotbyte.pod'),
			$self->new_ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	19956	20120	
==>opcode eq 'Label') {
	$label = "pc_" . $code[$code_l]->[3] . ":";
	$code_l++;
	($opcode, $rest) = ($code[$code_l]->[2],$code[$code_l]->[4]);
    }
    if ($opcode eq <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11170	11307	
==>rite_nci_method ($$$) {
    my ($class, $method) = @_;

    local $_ = $_[2];
    # Rewrite SELF -> pmc, INTERP -> interpreter
    s/SELF/ <==
2	/Users/nnunley/parrot/config/gen/platform.pm	18	118	
==>01-2006, The Perl Foundation.
# $Id: /parrot/config/gen/platform.pm 19593 2006-05-30T02:28:15.110975Z <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	147	313	
==>nterpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

packa <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	6645	6763	
==>y ($prog, $sect) = ($program[$_], $section[$_]);
        if ( $bench{ $name }{ $prog } ) {
            my $start = $Get <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732190	732426	
==>/set.ops\"\n  {{\@1}} = (INTVAL)({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732936	733172	
==>/set.ops\"\n  {{\@1}} = (INTVAL)({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	7157	7288	
==>any possible match of this subtree?
    return $t if (defined($t->maxlen()) && $guarantee >= $t->maxlen());

    # Need more for eve <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	3292	3530	
==>ation
if ( ! defined $cfg{bench_path} ) {
    $cfg{bench_path} = $ini->val( global => 'directory' );
}
if ( ! defined $cfg{list_only} ) {
    $cfg{list_only} = $ini->val( global => 'list' );
}
if ( ! defined $cfg{use_times} ) {
    $cfg{us <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	2510	2624	
==>\..*$//;
  $to_file .= ".pasm";
}

open INPUT, "<$from_file" or die "Can't open up $from_file, error $!";
open OUTP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738189	738412	
==>}} = string_to_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738953	739176	
==>}} = string_to_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1373	1586	
==>get to
        # the tcl binary.

        # There are basically 2 choices: run in one of:
        #  languages
        #  languages/m4

        my $language = 'm4';
        my $path_to_parrot = Parrot::Test::path_t <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	13323	13422	
==>eq "do") {
		feedme();
		$foo=$dos[-1];
		push @{$code{$seg}->{code}}, "\tgoto AFTERDO_$foo->{jump}\ <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	13561	13665	
==>d be started).  This is most useful when writing modules and you
find there is some language feature miss <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11261	11359	
==>ion
T=factorial(5)
print T!

' Correct and factorial of 4 is 24
function factorial(a)
	if a then fa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411009	411102	
==>/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_send(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411902	411995	
==>/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_send(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n" <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	34705	34918	
==>) = @_;
    my $agg = pop @stack;
    print <<EOC;
	$agg->[1] = 0
EOC
}

sub Del_Slice
{
    my ($n, $c, $cmt, $sl_n) = @_;
    my ($v, $w, $vv, $ww);
    $vv = 0;
    $ww =  "";
    if ($sl_n & 2) {
	$w = pop @sta <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Examples.pm	199	323	
==>cumentation section

=head1 SYNOPSIS

    use Parrot::Docs::Section::Examples;

=head1 DESCRIPTION

A documentation section d <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1353	1498	
==>$opcodes->[-1]->{result};
    }
    return [ $defn, $opcodes ];
}

sub PushScopeF {
    my ($parser) = @_;

    PushScope($parser);
    p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51297	51533	
==>_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "trace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	212873	213142	
==>"TYPE" => "function",
                  "CODE" => 250,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 423 \"src/ops/ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	28332	28520	
==>w;
    if ($n == 0) {
	$throw = 'rethrow P5';
    }
    elsif ($n == 1) {
	my $x = (pop @stack)->[1];
	$throw = "throw $x $cmt";
    }
    else {
	for (my $i = $n-1; $i > 0; $i--) {
	    my <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848223	848311	
==>line 78 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@1}}, {{\@2}}, 1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849003	849091	
==>line 78 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@1}}, {{\@2}}, 1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191595	191686	
==>" => "#line 313 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192535	192626	
==>" => "#line 313 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) <==
2	/Users/nnunley/parrot/languages/regex/test.pl	3116	3234	
==>ename, $pattern) = @_;
    open(PIR, ">$filename") or die "create $filename: $!";

    my $ctx = { };
    my $trees = R <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	13425	13539	
==>it can be GC'd
  return $self;
}

#:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.

su <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4438	4612	
==>cflags              => $ccflags,
            ccwarn               => '',
            has_dynamic_linking  => 1
        );

        # 'link' needs to be xilink.exe, not icl.exe <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	17029	17185	
==>o bar baz";
    $para->[1]{'~orig_content'}      = $content;
    $para->[1]{'~_freaky_para_hack'} = $1;
    DEBUG > 2 and print " Tolerating $$para[2] as =it <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	347	487	
==>ig/gen/makefiles.pm> from
F<config/gen/makefiles/dynopslibs_pl.in>.  This script is used for building
dynamic op libraries.

=cut

use strict <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	2477	2638	
==>.

This class takes Pod and parses it, returning a parse tree made just
of arrayrefs, and hashrefs, and strings.

This is a subclass of L<Pod::Simple> and inherit <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	12435	12625	
==>Tree::atend::render { '$' }

sub Regex::Ops::Tree::check::needparen { 0 }
sub Regex::Ops::Tree::check::render { $_[0]->{args}->[1]->render() }

sub Regex::Ops::Tree::rule::render {
    my $se <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	43912	44017	
==>lf, $node);
      } else {
	my @args = map { $self->_generate($_); } _get_args($node);
	$return = $self->_ <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	431	544	
==>rrot::IO::Path );

use DirHandle;
use File::Path;
use File::Spec;
use Parrot::IO::File;

=item C<directory_class() <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8772	8865	
==>el = string_to_cstring(interpreter, {{\@1}});\n    struct PackFile_FixupEntry *fe = PackFile_f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9888	9981	
==>el = string_to_cstring(interpreter, {{\@1}});\n    struct PackFile_FixupEntry *fe = PackFile_f <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	7811	7914	
==>he tests, using the given $reason.  Exits immediately with 0.

=cut

sub skip_all {
    my($self, $reaso <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	3800	3941	
==>eturn("\t$_[2] = $_[1] - $_[0]", $_[2]);
	},
	'*' => sub {
		return("\t$_[2] = $_[0] * $_[1]", $_[2]);
	},
	'/' => sub {
		return("\t$_[2] = $ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	6750	6876	
==>ted_tests {
    my $self = shift;
    my($max) = @_;

    if( @_ ) {
        die "Number of tests must be a postive integer.  Y <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	11645	11853	
==>t code.
            # This depends on which kind of code we are testing.
            my $code_f;
            if ( $func =~ m/^pir_output/ ) {
                $code_f = per_test('.pir', $test_no);
            } <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12452	12557	
==>]/$syms[CURR] in DATA";
		}
		feedme();
	}
	push(@data, { line => $currline, data => \@ld });
}
sub parse_ <==
2	/Users/nnunley/parrot/config/init/defaults.pm	6497	6651	
==>,

    );

    my $prefix = $conf->options->get('prefix');
    unless (defined $prefix) {
        my $VERSION = $conf->data->get('VERSION');
        my $DE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	618430	618792	
==>,
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 699,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 84 \"src/ops/pic.o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527038	527261	
==>c/ops/math.ops\"\n  {{\@1}} = asin((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15529	15723	
==>hese functions will be mutually recursive, they will easily be
able handle arbitrarily complex data structures automatically (at least
that is what I hope).

= ENVIRONMENT

Setting the environmen <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	2302	2404	
==>sub start_L { print Dumper($_[1]{'section'} ) }
     __PACKAGE__->new->parse_string_document('=head1 L< <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146387	146652	
==>{\@1}}, {{\@2}}, MMD_EQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167613	167878	
==>{\@1}}, {{\@2}}, MMD_EQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34195	34312	
==>ective($line, "sharedref.c");
    return <<EOC;
$l
$decl {
    $ret_def
    LOCK_PMC(interpreter, pmc);
    $func_ret$ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43988	44138	
==>ction' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 196
		DEFAULT => -22,
		GOTOS => {
			'@6-7' => <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20576	20755	
==>ck ]),
      $back => $self->op_restore_rxlocals($op),
$local_back => aop('ge', [ $matchcount, $max, $rfail ]),
               @R_ops,
               aop('add', [ $matchcount, 1 ]) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2509	2623	
==>ERROR("Can't determine type of actual argument (%s)!", ref $args[$i])
      unless defined $actual_arg_type;

    i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2209	2323	
==>ERROR("Can't determine type of actual argument (%s)!", ref $args[$i])
      unless defined $actual_arg_type;

    i <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	4669	4841	
==>if ($n != $_->{CODE}) {
	die "op number mismatch ops.num: $n core.ops: $_->{CODE}";
    }
    if ($seq != $_->{CODE}) {
	die "op sequence mismatch ops.num: $seq core.ops: $_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	27596	27720	
==>\@1}};\n    INTVAL argc;\n\n    /* for now just point to the opcode */\n    interpreter->current_args = this;\n    argc = SIG <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	603	722	
==>HAR
  $FAR_CHAR_NUMBER
  $NOT_ASCII
);

$FAR_CHAR = "?" unless defined $FAR_CHAR;
$FAR_CHAR_NUMBER = ord($FAR_CHAR) unle <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073697	1074025	
==>E" => 1196,
                  "ARGS" => [
                              "i",
                              "i",
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1* <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3513	3628	
==>l, $body, $out];
    }

    return %tests;
}

##
## $preamble = extract_preamble($string)
##
## Extract the preamabl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017952	1018048	
==>onst time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_gmtime_r(&t, &tm);\n  Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018877	1018973	
==>onst time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_gmtime_r(&t, &tm);\n  Parro <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2759	2862	
==>~~~~~~~~~~~~~~~~~~~~~

sub new {
  my $new = shift->SUPER::new(@_);
  #$new->nix_X_codes(1);
  $new->nbs <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3115	3216	
==>~~~~~~~~~~~~~~~~~~~~~
sub new {
  my $new = shift->SUPER::new(@_);
  $new->nix_X_codes(1);
  $new->nbs <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103991	1104077	
==>\n\t\ttype = pmc_type(interpreter, class);\n\t}\n\tif (type <= 0)\n\t\treal_exception(i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105206	1105292	
==>\n\t\ttype = pmc_type(interpreter, class);\n\t}\n\tif (type <= 0)\n\t\treal_exception(i <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	20184	20415	
==>anguage implementation
                require "Parrot/Test/$language.pm";
                my $class = "Parrot::Test::${language}";

                # set the builder object, and parrot config.
                my $obj         = $cla <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37527	37682	
==>,
			'TRUE' => 25,
			'NOT' => 27,
			'STRING' => 29,
			'NIL' => 30,
			'FALSE' => 33,
			'FUNCTION' => 34,
			"[" => 88,
			'NUMBER' => 36,
			'N <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	32171	32270	
==>ults) {\n\t    /* get results PMC index and get PMC. */\n\t    sig = PF_CONST(PMC_cont(cc)->seg, res <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	2736	2832	
==>Test::Simple
will throw a warning and exit with 255.  If the test died, even after
having success <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	5552	5750	
==>abels) {
                    push @Q, $labels{$stmt->{code}->{args}->[$pos]->{label}};
                    pop @Q if ! defined $Q[-1]; # External label
                }
                if ($stmt->{c <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2357	2454	
==>et, $pattern, $expected, $description, @todo)>

Runs the target string against the Perl 6 pattern, <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3791	3888	
==>et, $pattern, $expected, $description, @todo)>

Runs the target string against the Perl 6 pattern, <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32515	32616	
==>Descent::_trace(q{<<Didn\'t match terminal>>},
						  Parse::RecDescent::_tracefirst($text))
							i <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28240	28339	
==>Descent::_trace(q{<<Didn\'t match terminal>>},
						  Parse::RecDescent::_tracefirst($text))
					i <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1349	1443	
==>ype).
dec ${ITEMP0}
${PTEMP0} = ${STYPES}[${ITEMP0}]

# Assign register name.
${STEMP0} = "$"
$ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3059	3153	
==>ype).
dec ${ITEMP0}
${PTEMP0} = ${STYPES}[${ITEMP0}]

# Assign register name.
${STEMP0} = "$"
$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93382	93655	
==>{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ba <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94162	94435	
==>{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ba <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	5353	5512	
==>le_escaped = $file;
        $file_escaped =~ s|(\\)|$1$1|g; # escape backslashes
        return qq{#line $line "$file_escaped"\n};
    }
    return qq{#line $li <==
2	/Users/nnunley/parrot/tools/build/list_unjitted.pl	613	728	
==>it" or die "Could not open jit/$ARGV[0]/core.jit: $!";

while (<JIT>){
    if (my ($jit) = /^Parrot_(\S+)\s*\{\s*$/) <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	36029	36145	
==>gle,
  'exact->inexact'   => \&_op_exact_inexact,
  'inexact->exact'   => \&_op_inexact_exact,

###
### Numerical inp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122019	122123	
==>evil enough to kill.\n   * it's just casting a signed integral to the equivalent unsigned.\n   */\n  LVAL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122931	123035	
==>evil enough to kill.\n   * it's just casting a signed integral to the equivalent unsigned.\n   */\n  LVAL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101824	101968	
==>t.ops\"\n  string_bitwise_not(interpreter, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102595	102739	
==>t.ops\"\n  string_bitwise_not(interpreter, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1609	1722	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1;
__END__

=head1 NAME

Pod::Simple::SimpleTree -- parse Pod into a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054298	1054401	
==>_t * next;\n    if (PMC_IS_NULL({{\@2}}))\n\tinternal_exception(1, \"Tried to get from null namespace.\" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055425	1055528	
==>_t * next;\n    if (PMC_IS_NULL({{\@2}}))\n\tinternal_exception(1, \"Tried to get from null namespace.\" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	24553	24824	
==>erating errata section, if applicable
      unless($self->{'~tried_gen_errata'}) {
        $self->{'~tried_gen_errata'} = 1;
        my @extras = $self->_gen_errata();
        if(@extras) {
          unshift @$paras, @extras;
          DEBUG and print "Generated errata... <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	17978	18102	
==>UE
{
    my ($n, $c, $cmt) = @_;
    my $tos = pop @stack;
    my $targ = "pc_xxx";
    if ($c =~ /to (\d+)/) {
	$targ = "pc_ <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	1237	1443	
==>erbose};
    open my $fh, $direction, $filename or die "$action $filename: $!\n";
    return $fh;
}


sub extract_functions {
    my $text = shift;

    return if $text =~ /DO NOT EDIT THIS FILE/;

    # Str <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	9044	9229	
==>astback = $lastback;
        $lastback = $self->genlabel('debug_matchback');
        @debugging = ($lastback =>
                      $self->dbprint("failed to match $char at %<rx_pos>\n <==
2	/Users/nnunley/parrot/config/inter/encoding.pm	18	190	
==>01-2003, The Perl Foundation.
# $Id: /parrot/config/inter/encoding.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/inter/encoding.pm - encoding files

=hea <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10095	10188	
==>$c,$d,$a,$b,$_[7],16,0xd4ef3085,/* 43 */
HH,$b,$c,$d,$a,$_[10],23,0x4881d05,/* 44 */
HH,$a,$b, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	864	969	
==>f->output_label_use($failLabel);
}

sub output_classmatch {
    my ($self, $class, $failLabel) = @_;
    r <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	10682	10899	
==>my $signature_re = qr{
    ^
    (?:                 #blank spaces and comments and spurious semicolons
      [;\n\s]*
      (?:/\*.*?\*/)?    # C-like comments
    )*

    (METHOD\s+)?        #method flag

    (\w+\** <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93388	93693	
==>});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94168	94473	
==>});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	901752	902235	
==>=> [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1017,
                  "ARGS" => [
                              "s",
                              "ic",
                              "i",
                              "sc"
                            ],
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	942529	942997	
==>" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1060,
                  "ARGS" => [
                              "p",
                              "sc",
                              "sc"
                            ],
                  "BODY" => " <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	24000	24170	
==>stuff
      } else {
        # otherwise it's unremarkable
        unshift @stack, $treelet->[$i];  # just recurse
      }
    }
  }
  
  DEBUG > 2 and print "End of _rema <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48642	48843	
==>AR(interpreter, PARROT_BOUNDS_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49432	49633	
==>AR(interpreter, PARROT_BOUNDS_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7274	7411	
==>) {
        my $next = $self->get_token;
        next unless defined $next;
        unless( $next->type eq 'text' ) {
          $self->ung <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9519	9656	
==>) {
        my $next = $self->get_token;
        next unless defined $next;
        unless( $next->type eq 'text' ) {
          $self->ung <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	17018	17142	
==>iter to match '$initial' at "} .
				     substr($$textref, $oppos, 20) .
				     q{..."},
				 pos $$textref;
			pos $$text <==
2	/Users/nnunley/parrot/languages/pugs/t/pmc.pm	338	577	
==>d file: $file";
    my $type = "Pugs\u$1";

    main::pir_output_is(<< 'CODE', << 'OUTPUT', "check sanity for pugs_group");
.sub _main
    loadlib $P1, "pugs_group"
    $I0 = defined $P1 
    if $I0 goto ok
    print "not "
ok:
    print "o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101877	102175	
==>{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102648	102946	
==>{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	5281	5424	
==>urn '' if $self->{opt}{nolines};
    if (defined $file) {
        my $file_escaped = $file;
        $file_escaped =~ s|(\\)|$1$1|g; # escape bac <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	717	826	
==>_;
  $self = $self->new unless ref $self;

  $source = *STDIN{IO} unless defined $source;
  $self->set_source( <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16898	17025	
==>it thru in X-generated comments
        #  with text in them.
        
        # Yes, stipulate the list without a range, so tha <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10338	10449	
==>it thru in X-generated comments
    #  with text in them.

    # Yes, stipulate the list without a range, so tha <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109706	110005	
==>{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110485	110784	
==>{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FL <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9893	9993	
==>t();
		$code .= $prod->code($namespace,$self,$parser);

		$code .= $parser->{deferrable}
				? '		spl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819624	819723	
==>->user_stack, {{\@2}});\n\n  if (!entry) {\n    internal_exception(99, \"Stack Depth wrong\");\n  }\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820584	820683	
==>->user_stack, {{\@2}});\n\n  if (!entry) {\n    internal_exception(99, \"Stack Depth wrong\");\n  }\ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	350	453	
==>rs qw ( @ISA );
use strict;

@ISA= qw ( Parse::Yapp::Driver );
#Included Parse/Yapp/Driver.pm file-- <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	343	442	
==>rs qw ( @ISA );
use strict;

@ISA= qw ( Parse::Yapp::Driver );
#Included Parse/Yapp/Driver.pm file-- <==
2	/Users/nnunley/parrot/config/auto/python.pm	562	691	
==>nstep
{
    my ($self, $conf) = @_;

    my ($out, $err) = capture_output('python', '-V');
    my $output = join('', $out || '', $ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	44162	44274	
==>bstring (including trailing modifiers),

=item [1]

the remainder of the input text,

=item [2]

the prefix subst <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	1982	2095	
==>t "***\n", join(' ', @sorted_pmcs), "\n";
    @sorted_pmcs;
}

sub runstep
{
    my ($self, $conf) = @_;

    my @ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26028	26137	
==>}, $ps->{var}, FORLOOP_STEP_$ps->{num}
	goto FOR_$ps->{num}
AFTER_NEXT_$ps->{num}: noop
NEXT
	} else {    # ne <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26213	26313	
==>}, $ps->{var}, FORLOOP_STEP_$ps->{num}
	goto FOR_$ps->{num}
AFTER_NEXT_$ps->{num}: noop
NEXT
			if ($ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	23267	23412	
==>>> 8);
    my $name = $stack[-1 - $nfix-$nk]->[0];
    print "\t\t $cmt $name\n";
    if ($builtin_ops{$name} && $builtin_ops{$name} eq 's') {
	no <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	43116	43276	
==>extract_quotelike '  "You said, \"Use sed\"."  '

	extract_quotelike ' s{([A-Z]{1,8}\.[A-Z]{3})} /\L$1\E/; '

	extract_quotelike ' tr/\\\/\\\\/\\\//ds; '

the fu <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29218	29315	
==>DEST0\}/) {
			$need_dest = 1;
		} elsif ($rule->{'pir'} =~ /\$\{LOADREG\}/ || $rule->{'instructio <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	44528	44636	
==>or substitution or the target list of a
translation),

=item [6]

the right delimiter of the first block of t <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	3577	3682	
==>self = shift;
    my $cout = "";
    $cout .= <<"EOC";
#define PARROT_IN_EXTENSION
#include "parrot/parrot <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	44494	44621	
==>rule:)';
my $SIMPLEPAT		= '((\\s+/[^/\\\\]*(?:\\\\.[^/\\\\]*)*/)?)';
my $OPTIONAL		= '\G\((\?)'.$SIMPLEPAT.'\)';
my $ANY			= '\G <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64071	64177	
==>=~ m/$EXACTLY/gco)
				{
					_parse("an exactly-$1-times subrule match", $aftererror,$line,"$code$argcode( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133911	134211	
==>{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134692	134992	
==>{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FL <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3378	3480	
==>ould be "print the last command". Which is harder.
        $body =~ s/^(\s*)([^\n]+)\s*\Z/$1puts [$2]/m <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4785	4887	
==>ould be "print the last command". Which is harder.
        $body =~ s/^(\s*)([^\n]+)\s*\Z/$1puts [$2]/m <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4201	4296	
==>mp = $compiler->temp_reg($calc_type);
    $right = $right->compile($compiler);
    $compiler->em <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27281	27406	
==>@{$block};
    push @opcodes, new BranchOp( $parser,
        'result' => $l_continue,
    );
    push @opcodes, new LabelO <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10257	10386	
==>eft on stack: aborting.\n";

			return(undef);
		};

		#shift the error token

#DBG>			$debug & 0x10
#DBG>		and	print STDE <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9797	9918	
==>eft on stack: aborting.\n";

			return(undef);
		};

		#shift the error token

#DBG>			$debug & 0x10
#DBG>		and	print STDE <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	21434	21696	
==>y (not implemented this way; only for
# comparison with <n,m>? above.)
#
# R*? ->        $matchcount = 0
#               goto next
#        rfail: if $matchcount == 0 goto lastback
#               $matchcount--
#               goto R.back
#         back: R or rfa <==
2	/Users/nnunley/parrot/config/auto/bc.pm	13	168	
==>C) 2005, The Perl Foundation.
# $Id: /parrot/config/auto/bc.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/bc.pm - Check whether GNU <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	6672	6908	
==>}++,
                last;

            s/^\-\-\[(=*)\[//       # LongComment
                and $parser->_LongCommentLexer($1),
                last;
            s/^\-\-(.*)\n//         # ShortComment
                and $parser <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	2242	2394	
==>//g;
    next if ($ops{$op});
    print "      <item>$op</item>\n";
    $ops{$op} = 1;
}

print <<END;
    </list>

    <list name="types">
END

my %type <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33953	34132	
==>.
		$pir .= "    type_trans = pop stypes\n";
	}

	# Branches (branch class).
	elsif ($rule->{'class'} eq 'branch') {
		# Call pre_branch and append code that it generates.
		my $pr <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5483	5605	
==>(1) {
        my($actions,$act,$stateno);

        $stateno=$$stack[-1][0];
        $actions=$$states[$stateno];

#DB <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5219	5335	
==>(1) {
        my($actions,$act,$stateno);

        $stateno=$$stack[-1][0];
        $actions=$$states[$stateno];

#DB <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	513	634	
==>os' if $name eq '<pos>';
    return '$rx_tmp' if $name eq '<tmp>';
    return '$rx_tmp' if $name eq '<ptmp>';
    return $ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	3134	3240	
==>mlaut/dieresis looks like " (as in nai"ve, Chloe")

 # From the XHTML 1 .ent files:
 'nbsp'     , 160,
 'ie <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	6511	6629	
==>|| m/\((.+\.o)\):$/) {
		$o = $1;
	    } elsif (/ ([A-Za-z]) \.?(\w+)$/) {
		# Especially text symbols are sometimes pr <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	866	987	
==>ft->{IDENT};  }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;
  
  my $ident_name = $self->i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	866	985	
==>ft->{IDENT};  }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $ident_name = $self->i <==
2	/Users/nnunley/parrot/config/auto/format.pm	932	1083	
==>$ivformat = "%lld";
    } else {
        die "Configure.pl:  Can't find a printf-style format specifier for type \"$iv\"\n";
    }

    $nvsize = $float <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1545	1674	
==>shift, shift);

    unshift @_ => 'matched';
    unshift @_ => ( ref $pattern
        ? Parrot::Test::PGE::_generate_subrule_pir($ <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	518	635	
==>nstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    my $cc        = $conf->dat <==
2	/Users/nnunley/parrot/config/auto/readline.pm	530	647	
==>nstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    my $cc        = $conf->dat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946988	947104	
==>,
                  "BODY" => "#line 526 \"src/ops/string.ops\"\n  INTVAL n = Parrot_charset_number(interpreter, {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947890	948006	
==>,
                  "BODY" => "#line 526 \"src/ops/string.ops\"\n  INTVAL n = Parrot_charset_number(interpreter, {{\@ <==
2	/Users/nnunley/parrot/config/init/defaults.pm	6549	6664	
==>fix');
    unless (defined $prefix) {
        my $VERSION = $conf->data->get('VERSION');
        my $DEVEL   = $conf <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	1152	1291	
==>SCII) {
    # We're in bizarro world of not-ASCII!
    # Cope with US-ASCII codes, use fallbacks for Latin-1, or use FAR_CHAR.
    unless($i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	68248	68642	
==>eter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sweepon",
                  "FLAGS" => "",
                  "ARGDIRS" => [],
                  "TYPE" => "function",
                  "CODE" => 90,
                  "ARGS" => [],
                  "BODY" => "#line 1060 \"sr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614303	614601	
==>fset",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615453	615751	
==>fset",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	28504	28711	
==>)->current_results = this;\n    argc = SIG_ELEMS(signature);\n    {{+=argc + 2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730707	730931	
==>24 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731443	731667	
==>24 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3042	3229	
==>le tree dump in the Synopsis, above.

Every text node in the tree is represented by a simple (non-ref)
string scalar.  So you can test C<ref($node)> to see whather you have
an element node <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23636	23777	
==>emp]);
    $self->_add_inst("NEXT_$label");
    $self->_restore($temp);
  }
  return $return;
}

sub _op_min {
  my ($self,$node) = @_;
  my $ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24098	24227	
==>emp]);
    $self->_add_inst("NEXT_$label");
    $self->_restore($temp);
  }
  return $return;
}

sub _op_plus {
  my ($self,$node) <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35379	35628	
==>rom zero.
        $ret = "return ($method->{type})0;";
    }
    # I think that these will be out by one - NWC
    my $l = $self->line_directive($line, "default.c");
    return <<EOC;
$l
${decl}\{
    cant_do_method(interpreter, pmc, "$meth");
    ${ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22354	22474	
==>t . $title if $t->type eq 'text';
      }
      undef $title if $title =~ m<^\s*$>; # make sure it's contentful!
      la <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22838	22958	
==>t . $title if $t->type eq 'text';
      }
      undef $title if $title =~ m<^\s*$>; # make sure it's contentful!
      la <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30130	30242	
==>if($over_type eq 'block') {
          unless($curr_open->[-1][1]{'~bitched_about'}) {
            $curr_open->[-1 <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	24598	24713	
==>}

sub code($$$$)
{
	my ($self, $namespace, $rule, $check) = @_;
	
	my $action = '';
	
	if ($self->{"msg"})  # ERROR <==
2	/Users/nnunley/parrot/languages/converter.pl	2453	2603	
==>_;
    }
    else {
      $rules[-1] .= "\n$_";
    }
  }
  else {
    if(/::=/) {
      push @rules,$_;
      $in_rule = 1;
    }
  }
}

for(@rules) { <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3103	3217	
==>terpreter->resume_flag = 1";
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832061	832147	
==>"#line 192 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832789	832875	
==>"#line 192 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)- <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	4188	4311	
==>lf = shift;
  push @{$self->{instruction}}, [@_];
}

sub generate {
  my ($code, $name) = @_;

  die "$name: Unknown builtin <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	1153	1358	
==>tance, it is nice to see where the .pbc's land.

=item * Allow indescribable heads to be mixed in with rest, for when
exploring a location is more important than big-picture browsing.

=item * Is absense of <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10122	10394	
==>nd ? $found->kind : undef;
}


###############################################################################

=head2 BLOCK->content()

Return the content list for the Block.

=cut

sub content
{
  my $self = shift; # Required: Jako::Construct::Block

  confess "No block! <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	391	534	
==>s::Section::Tools;

use strict;
use warnings;

use base qw( Parrot::Docs::Section );

use Parrot::Docs::Item;

=item C<new()>

Returns a new sec <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76694	76800	
==>& $::RD_TRACE =~ /\d+/
	    && $::RD_TRACE>1
	    && $::RD_TRACE+10<length($_[0]))
	{
		my $count = length( <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77005	77111	
==>& $::RD_TRACE =~ /\d+/
	    && $::RD_TRACE>1
	    && $::RD_TRACE+10<length($_[0]))
	{
		my $count = length( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21554	21737	
==>elf->whine(
          $para->[1]{'start_line'},
          "'=end' without a target?" . (
            ( @$curr_open and $curr_open->[-1][0] eq '=for' )
            ? ( " (Should be \"=e <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19997	20096	
==>> 'FLO', double => 'FLO', long => 'INT', integer => 'INT', string => 'STRING');
			die "Unknown type <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	10346	10500	
==>lc($filename)});
        }
        $files_in_dir_nocase{$dirname}{lc($filename)}=$_;
    }

    close(F);
}



sub info {
    my ($file, $line, $message) = <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1280	1411	
==>= shift;

    my $self = {
        steps   => [],
        data    => Parrot::Configure::Data->new,
        options => Parrot::Config <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2433	2533	
==>ht->type;
  }

  $self->INTERNAL_ERROR("No type for dest!")  unless defined $dest_type;
  $self->INTE <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2355	2455	
==>ht->type;
  }

  $self->INTERNAL_ERROR("No type for dest!")  unless defined $dest_type;
  $self->INTE <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	16061	16436	
==>ink $out_f;
            }

            return $pass;
        };
    }

    my %pir_2_pasm_test_map = (
        pir_2_pasm_is      => 'is_eq',
        pir_2_pasm_isnt    => 'isnt_eq',
        pir_2_pasm_like    => 'like',
                              );

    foreach my $func ( keys %pir_2_pasm_test_map ) {
        push @EXPORT, $func;
        no strict 'refs';

        *{$p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	306639	306818	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless_null",
                  "FLAGS" => "",
                  "AR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307432	307611	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "unless_null",
                  "FLAGS" => "",
                  "AR <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	11524	11685	
==>1 if $next eq $root;
		my $child;
		foreach $child ( $rules->{$next}->leftmostsubrules() )
		{
		    push(@left, $child)
			if ! _contains($child, @left) ;
		}
	} <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3302	3416	
==>bug') =~ /-debug/) {
            my $linkflags = $conf->data->get('linkflags');
            $linkflags =~ s/-opt:\S <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4806	4920	
==>bug') =~ /-debug/) {
            my $linkflags = $conf->data->get('linkflags');
            $linkflags =~ s/-opt:\S <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1946	2205	
==>_code>, because that
interpretation is global across all runops cores.

=cut

sub expr_offset
{
    my ($self, $offset) = @_;

    return sprintf("start_code + %d + %s", $self->pc, $offset);
}

=item C<goto_offset($offset)>

Transforms the C<goto OFFSET($offse <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	4197	4332	
==>$instance_for_path{$_[0]->path});
    
    undef $_[0];
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::IO::Directory>

=item C<Parr <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2754	2933	
==>$regex = qr[
        test \s+ (\S+)                  # test ident
             \s+ \{ ([^}]+) \}          # test description
             \s+ (?:\S+ \s+)? \{ \n     # optional test <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	677	802	
==>the instance for C<$path> if it already exists, otherwise it is
created and cached. A relative path is made absolute.

=cut

s <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	9089	9231	
==>',
   46, '.',
   47, '/',
   48, '0',
   49, '1',
   50, '2',
   51, '3',
   52, '4',
   53, '5',
   54, '6',
   55, '7',
   56, '8',
   57, ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167070	167367	
==>FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 201,
                  "AR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223092	223589	
==>FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 261,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 516 \"src/ops/cmp.op <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	6333	6433	
==>, $a2, $a1
CODE
	},
	'^' => "POW",	
);
%opsubs=(%opsubs, 
	'<=' => sub { &{$opsubs{"="}}(@_[0..2], "l <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	35222	35320	
==>mpty string.)

Likewise the call in:

	@result = extract_bracketed( $text, '{[' );

would return th <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2269	2417	
==>o_bar_baz.

See the source for Pod::Simple::Text for an example of using this class.

=head1 SEE ALSO

L<Pod::Simple>, L<Pod::Simple::Subclassing>

= <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3349	3458	
==>ops{fn} or exists $props{fnlib}) {
    my $fnlib;

    if (exists $props{fnlib} and $props{fnlib}) {
      $fn <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6013	6122	
==>ops{fn} or exists $props{fnlib}) {
    my $fnlib;

    if (exists $props{fnlib} and $props{fnlib}) {
      $fn <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	3142	3246	
==>escriptions were not obtained:\n\n";
	foreach (@no_descriptions) {
	    my $top = $_->{top};
	    $top =~ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2538	2639	
==>te to do
	# otherwise. Also, putting a label everywhere doesn't hurt the final
	# Parrot bytecode that <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1116	1217	
==>te to do
	# otherwise. Also, putting a label everywhere doesn't hurt the final
	# Parrot bytecode that <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	11124	11391	
==>un time
class creation, there is just a new, more standard order of events.

=head2 Element Types and Accessor Methods

The four element types -- scalar, array, hash, and class -- are
represented by strings -- C<'$'>, C<'@'>, C<'%'>, and a class name --
optionally pre <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	6185	6344	
==>{INPUT} = readline $parser->YYData->{fh}
            or return ( q{}, undef );

        for ( $parser->YYData->{INPUT} ) {

            if ( $parser->YYDat <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	1965	2175	
==>T => [ ]      # Constructs
  }, $class;
}


###############################################################################

#
# ACCESSORS:
#

sub peer      { return shift->{PEER};  }
sub kind      { return shif <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	6300	6424	
==>ntf("%.2f", ($totals{calls}    ? ($totals{covered_calls} / $totals{calls} * 100)       : 0));
    
    print OUT page_header( <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1623	1723	
==>nlink $meth } } # JMG
    }
}

1;

my $urmc = "$PConfig{perl} $FindBin::RealBin$PConfig{slash}..$PCon <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	4718	4831	
==>ferent than the rest of the
universe, and perl does horrible mangling to them that gets in my way,
it works like t <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	361	593	
==>tag { shift->tagname(@_) }

sub is_tagname { $_[0][1] eq $_[1] }
sub is_tag { shift->is_tagname(@_) }


sub attr_hash { $_[0][2] ||= {} }

sub attr      {
  if(@_ == 2) {      # Reading: $token->attr('attrname')
    ${$_[0][2] || ret <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2276	2386	
==>[0]->emit_par(-3) }
sub end_head3       { $_[0]->emit_par(-2) }
sub end_head4       { $_[0]->emit_par(-1) }
sub <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1844	1954	
==>[0]->emit_par(-3) }
sub end_head3       { $_[0]->emit_par(-2) }
sub end_head4       { $_[0]->emit_par(-1) }
sub <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3572	3671	
==>ltime() ), "\n";
print $SKIP <<'END_HEADER';
#
# This file should contain a transcript of the svn:ig <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10306	10441	
==>-----
sub unaccept_code { shift->unaccept_codes(@_) }

sub unaccept_codes { # remove some codes
  my $this = shift;
  
  foreach my $new <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	13770	14068	
==>onvert the scalar into a vector and reshape it.
    $P1 = new 'APLVector'
    push $P1, op2
    $P1.'set_shape'(op1)
    .return ($P1)
.end


.sub unicode:"monadic:\u2355" #format
    .param pmc op1

    $S0 = aplformat(op1)
    .local pmc result
    result = new 'APLVector'
    $I0 = 0
    $I1 = l <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43573	43726	
==>> -33,
		GOTOS => {
			'@10-4' => 204
		}
	},
	{#State 194
		DEFAULT => -14
	},
	{#State 195
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			' <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13566	13662	
==>what = $items[0]->describe =~ /<rulevar/
				? "a <rulevar> (which acts like an unconditional <re <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	774	872	
==>a($block, 'Jako::Construct::Block');
  confess "Left is not Value!" unless UNIVERSAL::isa($left, 'J <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	786	884	
==>a($block, 'Jako::Construct::Block');
  confess "Left is not Value!" unless UNIVERSAL::isa($left, 'J <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3670	3761	
==>} = pop lazy_moves

# Decrement stack height.
PRE_OP_${CURIC}_CONT_$register_num:
dec stack_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717968	718066	
==>n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_fprintf(int <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718900	718998	
==>n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_fprintf(int <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	1051	1174	
==>args($cmd, @args);
print    footer();

sub open_tmt {
    my ($filename) = @_;

    local $/ = undef;
    open my $file, "<" <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1099	1208	
==>s>.


=cut

sub directory_with_path
{
    my $self = shift;
    
    return $self->directory_class->new(@_);
} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826684	826800	
==>ACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_num(entry->entry);\n  {{+=3}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827754	827870	
==>ACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_num(entry->entry);\n  {{+=3}};\n",
                  "L <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1253	1386	
==>c();
    $compiler->emit("  $pmc_reg = new $pmc_type");
    $compiler->emit("  $pmc_reg = $ident");
    $compiler->emit("  global \"$i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1247	1380	
==>c();
    $compiler->emit("  $pmc_reg = new $pmc_type");
    $compiler->emit("  $pmc_reg = $ident");
    $compiler->emit("  global \"$i <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	27538	27690	
==>$new_letter => known element $canonical_form.\n";
    } else {
      # We have to use the fallback(s), which might be '0', or '1'.
      $self->{'accept_ <==
2	/Users/nnunley/parrot/config/inter/progs.pm	115	229	
==>75Z coke  $

=head1 NAME

config/inter/progs.pm - C Compiler and Linker

=head1 DESCRIPTION

Asks the user which co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	33969	34296	
==>@1}}, (CUR_OPCODE + {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set_addr",
                  "FLAGS <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	7518	7656	
==>nteger (the number of expected tests).

=cut

sub has_plan {
    my $self = shift;

    return($self->{Expected_Tests}) if $self->{Expected <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	14768	14870	
==>ex::Ops::Tree::check::reftree {
    my $op = shift;
    return [ annotated($op, "check($op->{args}->[0] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934115	934389	
==>2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "downcas <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934890	935164	
==>2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "downcas <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3198	3325	
==>}=$_[0];
    ${$$self{TOKEN}};
}

sub YYCurval {
	my($self)=shift;

        @_
    and ${$$self{VALUE}}=$_[0];
    ${$$ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3041	3159	
==>}=$_[0];
    ${$$self{TOKEN}};
}

sub YYCurval {
	my($self)=shift;

        @_
    and ${$$self{VALUE}}=$_[0];
    ${$$ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17169	17288	
==>that won't work right
        #  under non-ASCII charsets.  Something should be done about that.
    }
    
    return @ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10585	10691	
==>that won't work right
    #  under non-ASCII charsets.  Something should be done about that.
  }
  return @ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	35218	35384	
==>{#State 130
		ACTIONS => {
			"-" => 72,
			"%" => 76,
			"*" => 80,
			".." => 71,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -69
	},
	{#S <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32583	32693	
==>Parrot::Pmc2c::SharedRef;
use base 'Parrot::Pmc2c';

=item C<implements($method)>

Always true for vtables.

=c <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	2955	3305	
==>The regular expression specified by C<$ignorePattern> is passed to
C<file_checksum()> when comparing the files.

=cut

sub copy_if_diff
{
    my ($from, $to, $ignorePattern) = @_;

    # Don't touch the file if it didn't change (avoid unnecessary rebuilds)
    if (-r $to) {
        my $from_sum = file_checksum($from, $ignorePattern);
        my $to_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	487257	487555	
==>({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ceil",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	495	610	
==>e vars qw($VERSION $ops $preamble);

$VERSION = "0.4.5";

$preamble = "/*\n** core.ops\n*/\n\n#include \"parrot/dyne <==
2	/Users/nnunley/parrot/config/gen/icu.pm	884	1063	
==>(undef);
    unless ($without) {
        if (!$autodetect) {
            print "specified a icu config parameter,\nICU autodetection disabled.\n" if $verbose;
        } elsif (!def <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488000	488299	
==>({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  " <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1396	1498	
==>code as input.
  #

  $self->INTERNAL_ERROR("Undefined block!")
    unless defined $block;

  $self->IN <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1244	1346	
==>code as input.
  #

  $self->INTERNAL_ERROR("Undefined block!")
    unless defined $block;

  $self->IN <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	778	877	
==>ss "Type (" . ref($type) . ") is not!"   if defined $type and not UNIVERSAL::isa($type, qw(Jako::Con <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	661	757	
==>ss "Type (". ref($type) . ") is not!" if defined $type and not UNIVERSAL::isa($type, qw(Jako::Con <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	397666	398067	
==>se_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 461,
                  "ARGS" => [
                              "p",
                              "i" <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74949	75065	
==><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$errorprefix,          $errortext
~~                     ^<<<<<<<<<<<<< <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74972	75088	
==><<<<<<<<<<<<<<<<<<<<<<
$errorprefix,          $errortext
~~                     ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105575	105810	
==>"BODY" => "#line 162 \"src/ops/bit.ops\"\n  {{\@1}} |= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	106313	106548	
==>"BODY" => "#line 162 \"src/ops/bit.ops\"\n  {{\@1}} |= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227437	227700	
==>er, {{\@1}}), {{\@2}}) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228417	228680	
==>er, {{\@1}}), {{\@2}}) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	1264	1522	
==>own_strings{$3} = scalar @all_strings;
	    }
	}
	close(IN);
    }
}

sub process_cfile {
    open IN, $infile or die "Can't read '$infile': $!";

    my $line = 0;
    print <<"HEADER";
/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This f <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	2034	2188	
==>!@c;

    print '    ';
    my $i;
    for (@c) {
        printf "0x%02x", ord($_);
        ++$i;
        print ', ', if ($i < scalar(@c));
        print " <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	5119	5313	
==>his
        # order
        push @names, $name;
        push @names, "Const$name" if $const;
    }

    $conf->data->set(
        pmc                  => $pmc_list,
        pmc_names            = <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	5727	5847	
==>to get an array of the file type suffixes used for files in the
directory.

C<$recursive> and C<$ignore> function as spec <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18761	18891	
==>t if $self->get(1)->is_close_paren;
          $self->require_comma;
        }
      }

      $self->require_close_paren;
      $sel <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19787	19917	
==>t if $self->get(1)->is_close_paren;
          $self->require_comma;
        }
      }

      $self->require_close_paren;
      $sel <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	97	200	
==>rs qw( $ATTR_PAD @ISA $VERSION $SORT_ATTRS);
$VERSION = '2.02';
BEGIN {
  @ISA = ('Pod::Simple');
  *DEB <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	98	201	
==>rs qw( $ATTR_PAD @ISA $VERSION $SORT_ATTRS);
$VERSION = '2.02';
BEGIN {
  @ISA = ('Pod::Simple');
  *DEB <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18012	18126	
==>t => 0 });
	} else {
		push @{$code{$seg}->{code}}, "DO_$docounter:\n";
		push(@dos, { jump => $docounter, needstmt <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8946	9060	
==>ve_path
{
    my $self = shift;
    my $path = shift || return;
    my ($volume, $directories, $name) = File::Spec- <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9345	9459	
==>ve_path
{
    my $self = shift;
    my $path = shift || return;
    my ($volume, $directories, $name) = File::Spec- <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	18788	18910	
==>t-tracked.\n";
     # Very common case!
  }
  
  splice @$treelet, 0, 2;  # lop the top off

  return $treelet;
}

#:.:.:.: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4738	4912	
==>=> $string });
      $handler->end_element({ Name => 'literal' });
    }
  }
  else {
    $handler->start_element({ Name => 'literal', Attributes => { type => $type->name } }) <==
2	/Users/nnunley/parrot/lib/Test/More.pm	8980	9080	
==>is, qr/that/, $test_name );

Similar to ok(), like() matches $this against the regex C<qr/that/>.

So <==
2	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	1446	1560	
==>erbose;
}

exit 0 if $up_to_date;

print "$command\n";
my $status = system($command);
exit 1 if (! defined $status) <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	5919	6104	
==>/
        STRING *arg = string_make(interpreter, argv[i], strlen(argv[i]),
                                  0, PObj_external_FLAG, 0);

        if (Interp_flags_TEST(interpreter, PARROT <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509011	509214	
==>\"src/ops/math.ops\"\n  {{\@1}} = - {{\@1}};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	5232	5345	
==>ision::svn_entries 
            && $Parrot::Revision::svn_entries =~ m/\.svn/) {
       $svn_cmd = 'svn';
   } els <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30156	30249	
==>ATCH_END
SUB_DISPATCH_END:
	ret
SUBEND
}
sub parse_struct_copy_dispatch {
	goto RTJUMP;
	print <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679123	679228	
==>ine 483 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_string(interpreter, {{\@1}}, {{\@2}});\n    {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679902	680007	
==>ine 483 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_string(interpreter, {{\@1}}, {{\@2}});\n    {{+= <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	8186	8352	
==>efined $Got) {
			if ($Got == $got) {
			    $$show++;
			} else {
			    $$show = 0;
			}
		    }
		}
		want_show(\$show, $Code,   $code  ) if $show;
		want_show(\$sh <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4434	4543	
==>full_name]}"
        unless exists $arg_maps{$type};

    return sprintf($arg_maps{$type}, $num);
}

=back

=h <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	292	436	
==>pl recompile
    % perl tools/dev/parrot_coverage.pl 

=head1 DESCRIPTION

This script runs a coverage test and then generates HTML reports. It r <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	2875	3041	
==>piled_files) {
	print F "gcc -DMINIPARROT -I./include -c $_->[0] -o $_->[1]\n";
    }
    my @obj_files = map { $_->[1] } @compiled_files;
    print F "gcc -lm -o parr <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1200	1309	
==>mespace ${namespace}");
      $compiler->indent;
      $self->SUPER::compile($compiler);
      $compiler->outd <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	608	711	
==>mespace ${namespace}");
    $compiler->indent;
    $self->SUPER::compile($compiler);
    $compiler->outd <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	3151	3281	
==>me => 'goto', Attributes => { label => $name } });
  $handler->end_element({ Name => 'goto' });

  if (defined $cond) {
    $handle <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	15188	15366	
==>~ s/\brestart\s+ADDRESS\((.*?)\)/{{=$1}}/mg)
        {
            $next = 0;
            $restart = 1;
        }

        $body =~ s/\$(\d+)/{{\@$1}}/mg;

        my $file_escape <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	2453	2549	
==>he a
building block upon which to write your own test libraries I<which can
work together>.

=hea <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	48831	48926	
==>> takes the same initial three parameters as C<extract_bracketed>:
a text to process, a set of d <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11912	12043	
==>> = $uid\['!POS']
END
}

sub output_call_result {
    my ($self, $uid, $name, $fail) = @_;
    my $fail_label = $self->output_label_ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	21496	21656	
==>Boolean
	$pres = $res # ugly
EOC
	push @stack, [-1, $pres, 'P'];
	return;

    }
    # XXX the label may be wrong, if the JUMP_IF_x got rewritten
    if ($r->[2] <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	6824	6918	
==>re_ops_cgp.h>
#endif
#include"parrot/exec.h"
#include"jit.h"
#define JIT_EMIT $jit_emit_n

/* D <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167375	167608	
==>[
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 197 \"src/ops/cmp.ops\"\n  if (! mmd_dispatch_i_pp(interprete <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28557	28672	
==>:RD_TRACE;').'
		push @item, '.($::RD_NO_HITEM ? ''
			       : '$item{'.$self->{hashname}.'}=') . '$&;
		' . ($self <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30635	30750	
==>:RD_TRACE;').'
		push @item, '.($::RD_NO_HITEM ? ''
			       : '$item{'.$self->{hashname}.'}=') . '$&;
		' . ($self <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	46	182	
==>Id: /parrot/lib/Parrot/Test/Harness.pm 19602 2006-05-30T13:40:58.862833Z coke  $

=head1 NAME

Parrot::Test::Harness - a test harness for <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	1200	1385	
==>ee its path. Where the fear has gone there
	#  will be nothing. Only I will remain.
	#                      Bene Gesserit Litany Against Fear
	# Compiler version @{[VERSION]}@{[ grep $_= <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	11257	11379	
==>umulating text until end of head1
      if( $token->is_text ) {
        DEBUG and print "   Adding \"", $token->text, "\" t <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	214	303	
==>fig_c.pl 20350 2006-06-25T03:57:27.771662Z petdance  $' =~ /^\$[iI][dD]:\s(.*)\$$/;

=head <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	3965	4180	
==>y ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = clone $op->{arg1}->{symbol}\n";
    }

    sub visitNewOp {
        my $self = shift;
        my ($op <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76535	76749	
==>HINT;
	$errortext = "$_[0])";
	$errorprefix = "(Hint";
	$errortext =~ s/\s+/ /g;
	write ERROR;
	return 1;
}

sub _tracemax($)
{
	if (defined $::RD_TRACE
	    && $::RD_TRACE =~ /\d+/
	    && $::RD_TRACE>1
	    && $:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488875	489164	
==>P" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	489628	489917	
==>P" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1291	1551	
==>{
    BLOCK => $block,

    KIND  => $kind,
    IDENT => $ident,
    COND  => $cond,
    LEFT  => $left,
    OP    => $op,
    RIGHT => $right,

    DEBUG => 1,
    FILE  => $ident ? $ident->file : undef,  # TODO: YUCK!!!
    LINE  => $ident ? $ident->line : un <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	2204	2392	
==>urn '';
    
    return join ' | ', 
        grep {length} 
            $parent->html_navigation($path), $parent->html_link($path);
}

=item C<write_html($source, $target, $silent)>

C<$sou <==
2	/Users/nnunley/parrot/config/gen/PodText.pm	171	340	
==>generate plain text docs from Pod files

=head1 SYNOPSIS

    use gen::PodText;

    gen::PodText->runstep($conf,
        "source1.pod" => "dest1.pod"
        "source2.po <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	5853	5953	
==>until a matching symbol is found or the root block is
encountered without a match (in which case we r <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3524	3637	
==>ing, somewhere.
    }
    else {
      $self->SYNTAX_ERROR("Sub declaration has no fnlib property, and parent bloc <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6188	6301	
==>ing, somewhere.
    }
    else {
      $self->SYNTAX_ERROR("Sub declaration has no fnlib property, and parent bloc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718098	718342	
==>AL){{\@2}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719030	719274	
==>AL){{\@2}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	1120	1268	
==>y ($chr) = @_;
    my $ret = 0;
    
    $chr = chr($chr);
    $ret |= 0x0001 if $chr =~ /^[[:upper:]]$/;  # CCLASS_UPPERCASE
    $ret |= 0x0002 if $ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6519	6638	
==>force another pass by setting Exchange to TRUE.
   FOR I = 2 TO Max
      IF A$(I-1) > A$(I) THEN
         Exchange = TR <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16172	16291	
==>force another pass by setting Exchange to TRUE.
   FOR I = 2 TO Max
      IF A$(I-1) > A$(I) THEN
         Exchange = TR <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1995	2101	
==>ymbol($self->name);

  #
  # If the identifier is already defined at this lexical scope, we want to complai <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1742	1848	
==>ymbol($self->name);

  #
  # If the identifier is already defined at this lexical scope, we want to complai <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	1729	1824	
==>(99, fool$())

' String Arrays, expect "One"
dim g$()
g$(5)="One"
g$(6)="Two"
print g$(5)

' Evi <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	3162	3428	
==>linenum} = $parser->{offsetlinenum}
			   - Parse::RecDescent::_linecount(substr($parser->{fulltext},$from))
			   + 1;
}

sub STORE
{
	my $parser = $_[0]->{parser};
	$parser->{offsetlinenum} -= $parser->{lastlinenum} - $_[1];
	return undef;
}

sub resync       # ($l <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	588	683	
==>unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Ident is not!" unless UNIVER <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	476	571	
==>unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Ident is not!" unless UNIVER <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327690	327928	
==>,
                  "ARGS" => [
                              "p",
                              "nc"
                            ],
                  "BODY" => "#line 154 \"src/ops/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_native(inter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616301	616585	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "pic_in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	617988	618272	
==>LS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "pic_in <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	34298	34497	
==>ou planned $self->{Expected_Tests} test$s but only ran $self->{Curr_Test}.
FAIL
        }
        elsif( $self->{Curr_Test} > $self->{Expected_Tests} ) {
            my $num_extra = $self->{Curr_Test} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	998520	999050	
==>",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1116,
                  "ARGS" => [
                              "i",
                              "ic",
                              "sc",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#lin <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14113	14212	
==>1]);
    $self->_add_inst ('', 'branch', ["DONE_$label"]);
    $self->_add_inst ("FAIL_$label", 'set <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16383	16478	
==>1]);
  $self->_add_inst ('', 'branch', ["DONE_$label"]);
  $self->_add_inst ("FAIL_$label", 'set <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	97661	97997	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnot",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	99060	99396	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnot",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	11246	11402	
==>[ 0 ] if (@$incexc == 0);
    return [ 0, @$incexc ] if $incexc->[0] > 0;
    return [ ] if @$incexc == 1;
    shift @$incexc;
    $incexc->[0]++;
    return <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	17466	17597	
==>2
		ACTIONS => {
			'NUM' => 69
		}
	},
	{#State 63
		DEFAULT => -36
	},
	{#State 64
		DEFAULT => -35
	},
	{#State 65
		DEFAULT => - <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	19822	19957	
==>ne
    # byte at a time.
    foreach (@rules) {
        if ($_->{'code'} =~ /\w\s+\w/) {
            die "Currently unable to build disp <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2032	2134	
==>ub   end_over_number  { --$_[0]{'Indent'} }
sub   end_over_text    { --$_[0]{'Indent'} }
sub   end_over <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1600	1702	
==>ub   end_over_number  { --$_[0]{'Indent'} }
sub   end_over_text    { --$_[0]{'Indent'} }
sub   end_over <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2571	2670	
==>gs[$i])
      unless defined $actual_arg_type;

    if ($formal_arg_type->name ne $actual_arg_type-> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2271	2370	
==>gs[$i])
      unless defined $actual_arg_type;

    if ($formal_arg_type->name ne $actual_arg_type-> <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	47812	47902	
==>ounters a here document whilst
extracting from a modifiable string, C<extract_quotelike> si <==
2	/Users/nnunley/parrot/lib/File/Which.pm	832	976	
==>EXT, so needs hardcoded.
    }
}
elsif ($Is_VMS) { 
    push @path_ext, qw(.exe .com);
}

sub which {
    my ($exec) = @_;

    return undef unle <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27798	27938	
==>},
	{#State 85
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRIN <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5909	6033	
==>$entry (@{$vtable}) {
    next unless ($entry->[4] =~ /MMD_/);
    next if ($entry->[4] =~ /_INT$/);
    next if ($entry->[4] <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6327	6451	
==>$entry (@{$vtable}) {
    next unless ($entry->[4] =~ /MMD_/);
    next if ($entry->[4] =~ /_INT$/);
    next if ($entry->[4] <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	3302	3433	
==>t;
    }
    $seen{$file} = 1;

    die "$0: Could not find ops file '$file'!\n" unless -e $file;
    my $temp_ops = Parrot::OpsFile <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	620678	620894	
==>"ARGS" => [
                              "pc"
                            ],
                  "BODY" => "#line 138 \"src/ops/pic.ops\"\n    Parrot_MIC *mic;\n    Parrot_PIC_lru *lru;\n    PMC *sig, *ccont;\n    opco <==
2	/Users/nnunley/parrot/lib/Test/More.pm	12596	12696	
==>rd against your test script blowing up.

It works on references, too:

    isa_ok( $array_ref, 'ARRAY <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2162	2276	
==>that won't work right
    #  under non-ASCII charsets.  Something should be done about that.
  }
  return;
}

#@@@@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2265	2379	
==>that won't work right
    #  under non-ASCII charsets.  Something should be done about that.
  }
  return;
}

#@@@@ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	568	687	
==>N', LAST => 'ELSE' },
  'sub'      => { PREFIX => "_S", NEXT => 'TEST', REDO => 'THEN', LAST => 'ELSE' }, # TODO: fix th <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	589	708	
==>N', LAST => 'ELSE' },
  'sub'      => { PREFIX => "_S", NEXT => 'TEST', REDO => 'THEN', LAST => 'ELSE' }, # TODO: fix th <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	1338	1453	
==>$file (@files) {
        my $test = substr $file, 0, -3;
        # parrot's getopt dislikes filenames with - in them <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46116	46284	
==>S" => [
                              "p"
                            ],
                  "BODY" => "#line 742 \"src/ops/core.ops\"\n  Parrot_push_action(interpreter, { <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2334	2474	
==>Trans>. It
should not be duplicated.

=cut

sub gen_goto
{
    my ($self, $where_str) = @_;
    return "return $where_str";
}

=item C<expr_p <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	9123	9269	
==>";
			    } else {
				$symbol = $TypeLong ? "unknown" : "D?";
			    }
			    $symbol .= "_data" if $TypeLong;
			} elsif ($undef) {
			    $symbo <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	4376	4492	
==>int "* end of ", scalar(@lines), " lines\n";
      }

      $self->SUPER::parse_lines(@lines);
      
    } elsif(exi <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	2250	2344	
==>";
}; /* parrot_config */

void
Parrot_set_config_hash(void)
{
    Parrot_set_config_hash_inter <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6673	6806	
==>and	do {
					--$$errstatus;

#DBG>					$debug & 0x10
#DBG>				and	$dbgerror
#DBG>				and	$$errstatus == 0
#DBG>				and	do {
#D <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6363	6489	
==>and	do {
					--$$errstatus;

#DBG>					$debug & 0x10
#DBG>				and	$dbgerror
#DBG>				and	$$errstatus == 0
#DBG>				and	do {
#D <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852865	853160	
==>UMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853646	853941	
==>UMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741586	742013	
==>e_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 834,
                  "ARGS" => [
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 169 \"src/ops/set.ops\"\n  {{\@1}} = str <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	5685	5856	
==>gs =~ m/^\s*$/ ) {
        foreach (split //, $args) {
            die "Invalid argument signature char '$_' on line $. of $ARGV"
                unless exists $sig_char{$_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788391	788888	
==>core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 890,
                  "ARGS" => [
                              "n",
                              "p",
                              "kic"
                            ],
                  "BODY" => "#line 422 \"src/ops/set.ops\"\n    {{\@1}} = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	866	1001	
==>y, '="', $value, '"';
    }
  }


  print $fh ">\n";
  $_[0]{'indent'}++;
  return;
}

sub _handle_text {
  DEBUG and print "== \"$_[1]\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81166	81490	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compile",
                  "FLAGS" => "",
                  "ARGD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82059	82383	
==>ELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compile",
                  "FLAGS" => "",
                  "ARGD <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	4016	4202	
==>3"]  =  <<"END_PIR"            # index of
    #XXX hack all the _1's need the same, generated unique number.
    $P100 = new 'APLVector'
    $I100 = 1
    $I101 = 0
    $I102 = %1
  loop_ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	9107	9323	
==>eg}->{code}}, <<PRINT;
	_WRITE($fd,1,"$string")
PRINT
	} else {
		if ($string ne "\\n") {
			push @{$code{$seg}->{code}}, <<PRINT;
	_BUILTIN_DISPLAY(1,"$string")
PRINT
		} else {
			push @{$code{$seg}->{code}}, <<PRIN <==
2	/Users/nnunley/parrot/config/auto/inline.pm	245	383	
==>ports C<inline>.

=cut

package auto::inline;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

u <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	174	292	
==>eneration

=head1 SYNOPSIS

    use Parrot::Pmc2c;

=head1 DESCRIPTION

C<Parrot::Pmc2c> (and the L<subclasses|/SUBCLAS <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	19335	19495	
==>_name;
        my $defaulted = 0;
        my $class = '';
        if ($self->implements($meth)) {
            $meth_name = "Parrot_${classname}_$meth";
        } <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	16386	16499	
==>ve argument!

=item Example 3

The constructor of a generated class can be passed a list
of I<element>=>I<value> p <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2935	3045	
==>r[*(pop_addr)]";
}

my %arg_maps = (
    'op' => "cur_opcode[%ld]",

    'i'  => "IREG(%ld)",
    'n'  => "NREG <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45798	45891	
==>?)>';
my $MSGERRORMK		= '\G\s*<error(\??):';
my $UNCOMMITPROD	= $PROD.'\s*<uncommit';
my $ERRO <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	267	367	
==>DESCRIPTION

A documentation section describing all the POD documentation in F<docs>.

=head2 Class M <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	491	638	
==>foo.c> and C<pmc_foo.h> from F<src/pmc/foo.dump>:

    % perl tools/build/pmc2c.pl -c src/pmc/foo.pmc ...

Create fooX.c and pmc_fooX.h from fooX.du <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeSmart.pm	310	410	
==>ing_is_available {
  return Encode::resolve_alias($_[1]);
}

sub encmodver {
  return "Encode.pm v" . <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254253	254710	
==>o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 296,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 726 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@2}} : {{\@3}};\n  {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	3050	3165	
==>elf = shift;
    my $content = $self->read;
    # Break up the $Id to prevent svn messing with it.
    my ($id) = $c <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	200	333	
==>ON

Generates the core PMC list F<include/parrot/core_pmcs.h>.

=cut

package gen::core_pmcs;

use strict;
use warnings;

use base qw( <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	2050	2187	
==>ize} == 4) {
        $conf->data->set(int4_t => 'short');
    } elsif ($results{intsize} == 4) {
        $conf->data->set(int4_t => 'int') <==
2	/Users/nnunley/parrot/Configure.pl	536	718	
==>s out the version number of Configure.pl and exits.

=item C<--verbose>

Tells Configure.pl to output extra information about the configuration data it
is setting.

=item C<--verbose= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562355	562939	
==>AME" => "fetchmethod",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 643,
                  "ARGS" => [
                              "p",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 167 \"src/ops/object.ops\"\n  opcode_t *next = {{^+4}};\n  {{\@1}} = VTABLE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561272	561855	
==>AME" => "fetchmethod",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 642,
                  "ARGS" => [
                              "p",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 167 \"src/ops/object.ops\"\n  opcode_t *next = {{^+4}};\n  {{\@1}} = VTABLE <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	1556	1765	
==>n-line).
    nc  The argument is a number constant index.
    pc  The argument is a PMC constant index.
    sc  The argument is a string constant index.
    kc  The argument is a key constant index.
    ki  The <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	35099	35305	
==>2] eq 'P') {
	   $vv = temp('I');
	   print <<EOC;
	$vv = $v->[1]
EOC
       }
    }
    my $dest =  (pop @stack)->[1];
    print <<EOC;
	\t $cmt
	delete $dest\[ $vv .. $ww ]
EOC
    #push @stack, [-1, $dest <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	419	513	
==>ds defined here supply various default values and behaviour common
to all transforms.

The subc <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	5072	5211	
==>code$/) {
            if ($rule->{$_} =~ /^([0-9A-F]{2}\s+)*[0-9A-F]{2}$/) {
                if ($has_code) {
                    die "Dupli <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	17	126	
==>004-2006, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Distribution.pm 19602 2006-05-30T13:40:58.862833Z cok <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2002	2121	
==>om C<new()> to create the path if necessary.

=cut

sub create_path
{
    my $self = shift;
    
    return unless $self <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	979	1098	
==>om C<new()> to create the path if necessary.

=cut

sub create_path
{
    my $self = shift;
    
    return unless $self <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6859	7010	
==>A non-blank line starting a new para...
      
      if($line =~ m/^(=[a-zA-Z][a-zA-Z0-9]*)(?:\s+|$)(.*)/s) {
        # THIS IS THE ONE PLACE WHERE WE C <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	9250	9376	
==>lse {
                print MAKEFILE "\tperldoc -u ..${slash}ops${slash}$ops > ops${slash}$pod\n";
                print MAKEFI <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37572	37833	
==>ING' => 29,
			'NIL' => 30,
			'FALSE' => 33,
			'FUNCTION' => 34,
			"[" => 88,
			'NUMBER' => 36,
			'NAME' => 91,
			"{" => 38,
			"..." => 39,
			"(" => 40,
			"#" => 41
		},
		DEFAULT => -106,
		GOTOS => {
			'exp' => 90,
			'functioncall' => <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	10129	10265	
==>value);
    return ".arg $value";
}

sub output_param {
    my ($self, $name, $type, $reg) = @_;
    $reg = value($reg);
    return ".par <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	226	360	
==>Attempt to instantiate abstract class SRM::Base.\n";
}

# Pre and post translation hooks.
sub pre_translation {
	die "pre_translation n <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	2111	2212	
==>_num} = $lex_num;
    my $scope = shift @{ $parser->YYData->{scopef} };
    $parser->YYData->{scope} <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	3956	4100	
==>urns whether the file is generated.

=cut

sub is_generated
{
    my $self = shift;
    
    # CFLAGS
    # libparrot.def
    # Makefile
    # my <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807509	807898	
==>i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 911,
                  "ARGS" => [
                              "n",
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 502 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879071	879310	
==>",
                              "s",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest) <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	4710	4893	
==>";
        }
        $idx += 2;
    }
    $out .= "    bless \$r, \$class;\n  }\n";

    # Create accessor methods.

    my( $pre, $pst, $sel );
    $cnt = 0;
    foreach $name (@metho <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102963	103289	
==>_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 128,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 135 \"src/ops/ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1415	1536	
==>t_f, 
        );
        my $prog_output = Parrot::Test::slurp_file( "$out_f" );

        @_ = ( $prog_output, $output, $d <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1331	1452	
==>t_f, 
        );
        my $prog_output = Parrot::Test::slurp_file( "$out_f" );

        @_ = ( $prog_output, $output, $d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357953	358048	
==>ODY" => "#line 245 \"src/ops/io.ops\"\n  PIO_eprintf(interpreter, \"%f\", (double){{\@1}});\n  { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358617	358712	
==>ODY" => "#line 245 \"src/ops/io.ops\"\n  PIO_eprintf(interpreter, \"%f\", (double){{\@1}});\n  { <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	7396	7545	
==>1;
		    $init  = 1;
		}
		if ($^O eq 'dec_osf') {
		    if ($type eq 'E') {
			$small = 1;
		    } elsif ($type =~ /^[RrQq]$/) {
			$const = 1;
			$i <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	114	294	
==>30T15:23:20.183054Z coke  $

=head1 NAME

tools/dev/gen_manifest_skip.pl - generated the file MANIFEST.SKIP

=head1 SYNOPSIS

    % perl tools/dev/gen_manifest_skip.pl > MANIFEST.SK <==
2	/Users/nnunley/parrot/Configure.pl	1481	1571	
==>C<--inline>

Tell Configure that the compiler supports C<inline>.

=item C<--cc=(compiler)> <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	3653	4067	
==>@$stmt{'label','code'};

        # Find statements that can branch to a label
        my @labels;
        @labels = $self->label_indices($actual) if ref $actual;

        foreach my $pos (@labels) {
            my $dest = $actual->{args}->[$pos];
            while (1) {
                my $dest_stmt = $labels{$dest->{label}}; # tagged_op
                if (! $dest_stmt) {
                    if ($ctx->{external <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1012	1112	
==>ad1", token(s) for its
content, and then an end-token with the tagname of "head1".

=item $token->tag <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1440	1540	
==>ad1", token(s) for its
content, and then an end-token with the tagname of "head1".

=item $token->tag <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	6968	7078	
==>, 'type');
  }
  
  unshift @{$self->{'token_buffer'}}, @_;
  DEBUG > 1 and print "Token buffer now has ",
   s <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	801	985	
==>$("Hi Mom!")="interesting"
B$(0)="development.
keys a$(), b$()
i=0
do
	t$=a$(i)
	print t$,
	print tab$(10),b$(t$)
	i=i+1
loop while t$ <> ""

' 5 and PI
dim a$(), m()
a$(1)="5"
print a$ <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	8947	9043	
==>t_table->constants[jit_info->cur_op[i]]
#define CALL(f) Parrot_exec_add_text_rellocation_func(jit <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4627	4725	
==>e that for loading debugging version of the driver,
#this file will be parsed from 'sub _Parse' up <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4393	4490	
==>e that for loading debugging version of the driver,
#this file will be parsed from 'sub _Parse' up <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	8702	8825	
==>$file  ) if $show;
		if ($show) {
		    $show = $ObjectName ? "$o\t$name" : $name;
		    if (defined $Type) {
			$show .= "\ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	1888	2101	
==>ix, if given in source code.
    SYMBOLS => { },     # Identifiers
    CONTENT => [ ]      # Constructs
  }, $class;
}


###############################################################################

#
# ACCESSOR <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	8984	9172	
==>@@@@@@@@@@@@@@@@
#
# And now codes (not targets or directives)

sub accept_code { shift->accept_codes(@_) } # alias

sub accept_codes {  # Add some codes
  my $this = shift;
  
  foreach my <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	10036	10147	
==>th($$textref)-$parapos,	# REMAINDER
	       );
	
matched:
	$endpos = pos($$textref);
	return (
		$startpos,    $ <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	492	719	
==>MC_PARENTS;

# Return the (lowercased) name of the immediate parent of the given
# (lowercased) pmc name.
sub pmc_parent
{
    my ($pmc) = @_;

    return $PMC_PARENTS{$pmc} if defined $PMC_PARENTS{$pmc};

    local $/;
    open <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517717	518003	
==>> "sub",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 597,
                  "AR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	99211	99577	
==>RGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 123,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 101 \"src <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	13087	13264	
==>END';
{\rtf1\ansi\deff0

END
}

sub color_table {
   return <<'END';
{\colortbl;\red255\green0\blue0;\red0\green0\blue255;}
END
}


sub doc_info {
   my $self = $_[0];

   my $cl <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	46507	46633	
==>ndef;
	my $prod = undef;
	my $item = undef;
	my $lastgreedy = '';
	pos $grammar = 0;
	study $grammar;

	while (pos $grammar < l <==
2	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	1069	1185	
==>lArray    # Line numbers
	time I24  	       # Seed the random number generator

	save 0  # Initialize the runtime sta <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567536	567799	
==>@2}}->vtable->does(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568431	568694	
==>@2}}->vtable->does(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	1857	1957	
==>=item C<html_link($path)>

Returns the HTML link for the section.

=cut

sub html_link
{
    my $self <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350963	351081	
==>0 \"src/ops/io.ops\"\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  {{+=2}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351625	351743	
==>0 \"src/ops/io.ops\"\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  {{+=2}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	2779	2883	
==>symbol
{
  my $self = shift; # Required: Jako::Construct::Block
  my $name = shift; # Required: string (T <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3863	3967	
==>symbol
{
  my $self = shift; # Required: Jako::Construct::Block
  my $name = shift; # Required: string (T <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2182	2312	
==>G}) {
		_DBLoad();
		$retval = eval '$self->_DBParse()';#Do not create stab entry on compile
        $@ and die $@;
	}
	else { <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2101	2226	
==>G}) {
		_DBLoad();
		$retval = eval '$self->_DBParse()';#Do not create stab entry on compile
        $@ and die $@;
	}
	else { <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2407	2516	
==>e {
    $right_type = $right->type;
  }

  $self->INTERNAL_ERROR("No type for dest!")  unless defined $dest_ty <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2329	2438	
==>e {
    $right_type = $right->type;
  }

  $self->INTERNAL_ERROR("No type for dest!")  unless defined $dest_ty <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	64	185	
==>EXPORT @EXPORT_OK %EXPORT_TAGS);

$VERSION   = '0.01';
@ISA       = qw(Exporter);
@EXPORT_OK = qw(parse);

use Data::Dumpe <==
2	/Users/nnunley/parrot/lib/File/Which.pm	4606	4702	
==>such an
environment variable, it parses the list and uses it as the different extensions.

=head2 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2234	2361	
==>ON/) {
			@saves=();
			$edit="";
			foreach my $var (keys %{$code{$seg}->{declarations}}) {
				if (exists $main::common{$var}) <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2643	2770	
==>ON/) {
			@saves=();
			$edit="";
			foreach my $var (keys %{$code{$seg}->{declarations}}) {
				if (exists $main::common{$var}) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677602	677834	
==>{\@1}}->vtable->unshift_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678380	678612	
==>{\@1}}->vtable->unshift_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	655	760	
==>Number;
use Jako::Construct::Type::PMC;
use Jako::Construct::Type::String;

my %types = ( 'I' => 'int', 'N <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	44081	44177	
==>ts is returned. The elements are:

=over 4

=item [0]

the extracted quotelike substring (includi <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6446	6583	
==>subpat)\n);

        last if $name eq '_MASTER';

        $pirCode .= qq(
            store_global name, rulesub\n\n);
    }

    # End of <==
2	/Users/nnunley/parrot/languages/dotnet/tools/fail_analysis.pl	62	213	
==>\*\*FAILED\*\*\s*\(//;
	s/\)$//;
	
	# Remove instruction code
	s/ \(code \d+\)//;
	
	$res{$_}++;
}

print "$_ & $res{$_} \\\\\n" foreach keys % <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598172	598409	
==>reter, {{\@2}} ));\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599219	599456	
==>reter, {{\@2}} ));\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564905	565235	
==>);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "can",
                  "FLAGS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565797	566127	
==>);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "can",
                  "FLAGS" <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61571	61695	
==>"pattern terminal",$line,$code);
		}
		elsif ($grammar =~ m/(?=$MATCHRULE)/gco
				and do { ($code) = extract_bracketed($gram <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	19488	19601	
==>EBUG > 3 and print " Considering child at $i ", pretty($treelet->[$i]), "\n";
      if($nixx and ref $treelet->[$i <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	1254	1358	
==>$ops, $ctx) = @_;

    if (ref($ops->[0]) eq 'LABEL_COMMENTS') {
        $self->{_label_comments} = shift <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	15568	15738	
==>I5, 1, CASE_${jump}_${incase}_NO_OR
	push P9, "or"
	push P9, "OP"
CASE_${jump}_${incase}_NO_OR:
	push P9, "="
	push P9, "OP"
	P0= P5		# The "constant"
	bsr RUNTIME_PUSH
	p <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7501	7626	
==>$text unless $text =~ /-/o;
	
	# There has to be some space each side of the dash.
	my ($path, $desc) = split /\s+--?\s+/, $te <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22859	22957	
==>core.ops\"\n  opcode_t *dest;\n  PMC * const p = {{\@1}};\n  dest = {{^+2}};\n  interpreter->curren <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25248	25346	
==>core.ops\"\n  opcode_t *dest;\n  PMC * const p = {{\@1}};\n  dest = {{^+2}};\n  interpreter->curren <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326271	326375	
==>"src/ops/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_same(interpreter, {{\@1}},{{\@2}});\n  {{+=3}};\n", <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	613	790	
==>) = @_;
        Class::Struct::_subclass_error();
    }

    sub FETCH {
        my ($self, $index) = @_;
        $self->[$index];
    }

    sub FETCHSIZE {
        my $self = s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065083	1065180	
==>260 \"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065957	1066054	
==>260 \"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get <==
2	/Users/nnunley/parrot/config/inter/progs.pm	1294	1440	
==>Okay, I'm going to start by asking you a couple questions about your
    compiler and linker.  Default values are in square brackets; you can
    h <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712470	712556	
==>ot_sprintf_c(interpreter, \"%.12g\", (double){{\@1}});\n  PIO_putps(interpreter, io, s) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713577	713663	
==>ot_sprintf_c(interpreter, \"%.12g\", (double){{\@1}});\n  PIO_putps(interpreter, io, s) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3367	3471	
==>$val1, $val2, $dest);
}

sub output_gt {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_test <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3062	3166	
==>$val1, $val2, $dest);
}

sub output_gt {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_test <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	2676	2792	
==>t OUT "    register_pmc(interp, registry, enum_class_$_);\n" foreach (@pmcs);
    print OUT <<'END_C';
}
END_C

    c <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	22338	22518	
==>t{verbose};
    open my $fh, $direction, $filename or die "$action $filename: $!\n";
    return $fh;
}

#
#   main()
#
# Get and set the correct options and execute the runmode
# sp <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1393	1483	
==>+X6$MSK,X5)+X1$MSK;",
	II => "X0=rotate_left((X2^(X1|(~X3)))+X0+X4+X6$MSK,X5)+X1$MSK;",
  ) <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	4422	4553	
==>tcode.=qq{\tprint "?"\n};
		} else {
			die "Syntax error, expected ',' or ';'";
		}
		feedme();
	} else {
		$promptcode.=qq{\tprint <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7156	7260	
==>$lhs,$len,$code)=@{$$rules[-$act]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print STDERR "R <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6824	6924	
==>$lhs,$len,$code)=@{$$rules[-$act]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print STDERR "R <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	884	989	
==>: "
PIR
}

# Pre and post stack operation (op class instructions) hooks.
sub pre_op($$) {
	my $self = shif <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30756	30860	
==>ookahead"} ? '$text = $_savetext;' : '' ) .'
';

	return $code;
}

1;

package Parse::RecDescent::InterpL <==
2	/Users/nnunley/parrot/lib/Parrot/Revision.pm	559	674	
==>aken from pugs/util/version_h.pl rev 859
    if (-r $svn_entries) {
        open my $FH, '<', $svn_entries or die $! <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	227	347	
==>$self = shift;
    $self->{state} ||= Regex->global_state();
}

# R (seq, R, S, ...) : return R && S && ...
# R (scan, R) <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	37137	37292	
==>_char_downcase,

###
### Strings
###

  'string?'       => \&_op_string_p,
  'make-string'   => \&_op_make_string,
  'string'        => \&_op_string,
  'str <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	619193	619284	
==>int_val(left) :\n\t    VTABLE_get_integer(interpreter, left);\n\tINTVAL b = rt == enum_class <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25993	26098	
==>g}->{code}}, <<NEXT;
	add $ps->{var}, $ps->{var}, FORLOOP_STEP_$ps->{num}
	goto FOR_$ps->{num}
AFTER_NEXT_ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26178	26283	
==>g}->{code}}, <<NEXT;
	add $ps->{var}, $ps->{var}, FORLOOP_STEP_$ps->{num}
	goto FOR_$ps->{num}
AFTER_NEXT_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	1629	1803	
==>I' => 0, 'N' => 0, 'P' => 0, 'S' => 0 },
    ANON_LBL_COUNT => 0,
    BLOCK_COUNT    => 0
  }, $class;
}


#
# indent()
#

sub indent
{
  my $self = shift;
  $self->{INDENT} + <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719937	720029	
==>ot_sprintf_c(interpreter, \"%.12g\", (double){{\@2}});\n  PIO_putps(interpreter, io, s);\n  i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721137	721229	
==>ot_sprintf_c(interpreter, \"%.12g\", (double){{\@2}});\n  PIO_putps(interpreter, io, s);\n  i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	653	760	
==>s "Type (" . ref($type) . ") is not!"  unless UNIVERSAL::isa($type, qw(Jako::Construct::Type));
  confess "I <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	644	749	
==>s "Type (". ref($type) . ") is not!" unless UNIVERSAL::isa($type, qw(Jako::Construct::Type));
  confess "I <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	17228	17368	
==>a', 'Kenneth'],
                        markings => { socks=>1, blaze=>"white" },
                        breed    => Breed->new(name=>'short <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	150	335	
==>rrot/tools/dev/mk_manifests.pl 19607 2006-05-30T15:23:20.183054Z coke  $
################################################################################

=head1 TITLE

tools/dev/mk_mani <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	1840	1968	
==>\n";
}
my $cmd = "$^X t/harness @tests";
print "$cmd\n";
system $cmd;

print "we are skipping $total_skipped total tests.\n";
pri <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	8109	8298	
==>}{flags} = $f;
		    print "# $cur_f; flags=$f\n";
		}
		elsif (/# varnames\s+\((.*)\)/) {
		    my $vars = $1;
		    $vars =~ s/[\s']//g;
		    $func_info{$cur_f}{varnames} = $vars;
		    p <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	60492	60585	
==>vided to C<extract_bracketed> was not one of
C<'()[]E<lt>E<gt>{}'>.

=item  C<Did not find pre <==
2	/Users/nnunley/parrot/lib/Test/More.pm	36255	36352	
==>kept tiny, special cases and
magic side-effects are kept to a minimum.  WYSIWYG.


=head1 SEE ALSO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369493	369779	
==>@1}} = PIO_reads(interpreter, {{\@2}}, (size_t){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	370378	370664	
==>@1}} = PIO_reads(interpreter, {{\@2}}, (size_t){{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7359	7547	
==>t();

            $$dotpos=$len;

                unpack('A1',$lhs) eq '@'    #In line rule
            and do {
                    $lhs =~ /^\@[0-9]+\-([0-9]+)$/
                or <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7020	7201	
==>t();

            $$dotpos=$len;

                unpack('A1',$lhs) eq '@'    #In line rule
            and do {
                    $lhs =~ /^\@[0-9]+\-([0-9]+)$/
                or <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761842	762171	
==>" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 860,
                  "ARGS" => [
                              "ic",
                              "p" <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	20	114	
==>, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Docs/File.pm 20333 2006-06-21T18:44:31.111564Z <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	6500	6594	
==>er32 -lgdi32 -lwinspool -lcomdlg32 -ladvapi32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid -l <==
2	/Users/nnunley/parrot/config/init/hints/msys.pm	391	485	
==>er32 -lgdi32 -lwinspool -lcomdlg32 -ladvapi32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid -l <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	2515	2724	
==>adly formatted pir might end in the middle of a verbatim chunk.
    if ($verbatim) {
      die "POD unclosed at end of file\n";
    }

    # Remove leading and final blank lines.
    while ( $output[0][0] && $o <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	9173	9269	
==>fa_safe { my ($op) = @_; $op->{args}->[1]->dfa_safe() }

# Rule calls are totally unpredictable - <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2345	2446	
==>e;
    }

    $self->INTERNAL_ERROR("Can't determine type of formal argument (%s)!", $formal_arg_name) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2045	2146	
==>e;
    }

    $self->INTERNAL_ERROR("Can't determine type of formal argument (%s)!", $formal_arg_name) <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	2121	2222	
==>s loop tries to identify instructions that may be the target
    # of control flow changing opcodes in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718081	718320	
==>INTVAL_FMT, (INTVAL){{\@2}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719013	719252	
==>INTVAL_FMT, (INTVAL){{\@2}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9768	9914	
==>opint");
    }
}

sub output_substr {
    my ($self, $dest, $src, $offset, $len) = @_;
    return ("substr $dest, $src, $offset, $len");
}

sub out <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	15107	15232	
==>ew rusage;

        # $t->ru_utime and $t->ru_stime are objects of type timeval.
        # set $t->ru_utime to 100.0 sec and $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	403	506	
==>rict;
use warnings;

use base qw( Parrot::OpTrans );

=item C<core_type()>

Returns C<PARROT_FUNCTION_CO <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	22195	22412	
==>elating to a rule.
# #############################################
sub generate_rule_code($$$) {
	my $srm = shift;
	my $rule = shift;
	my $mv = shift;
	my @localmv = ();
	my $pir = "";
	
	# Make current instruction cod <==
2	/Users/nnunley/parrot/lib/Test/More.pm	14864	14966	
==>when it failed.  But sometimes it doesn't work out
that way.  So here we have ways for you to write you <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574749	574841	
==>.ops\"\n    {{\@1}} = pmc_new_init(interpreter, enum_class_ParrotClass, {{\@2}});\n    {{+=3} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575553	575645	
==>.ops\"\n    {{\@1}} = pmc_new_init(interpreter, enum_class_ParrotClass, {{\@2}});\n    {{+=3} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035443	1035550	
==>x);\n    STRING * const lex_name = {{\@2}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036607	1036714	
==>x);\n    STRING * const lex_name = {{\@2}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	763	891	
==>relative path is made absolute.

=cut

sub new
{
    my $self = ref $_[0] ? ref shift : shift;
    my $path = shift;
    
    ret <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	1021	1243	
==>eg\n";
	if (exists $code{$seg}->{declarations}) {
		print CODE <<'END_PIR';

	.local pmc _GLOBALS
	.local string JUMPLABEL
	JUMPLABEL=''
END_PIR
		foreach my $var (sort keys %{$code{$seg}->{declarations}}) {
			if ($var=~/_ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	22431	22606	
==>$next =>
                  );

        return ($back, @ops);
    } else {
        my $rfail = $self->genlabel('nongreedy_star_fail');
        my ($R_back, @R_ops) = $self->rewr <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41809	41919	
==>lf->describe
						  . ']>>},
						  Parse::RecDescent::_tracefirst($text),
						  q{' . $rule->{"name"} .'}) <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38118	38220	
==>lf->describe . ']>>},
						  Parse::RecDescent::_tracefirst($text),
						  q{' . $rule->{"name"} .'}) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948382	948650	
==>E" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 10 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949181	949449	
==>E" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 10 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920193	920532	
==>LS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sprintf",
                  "FLAGS" => ":base_c <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16601	16775	
==>h @opcodes, new LocalDir( $parser,
                    'result' => $result,
                );
                push @opcodes, new FindLexOp( $parser,
                    ' <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10752	10921	
==>h @opcodes,
                        new LocalDir( $parser, 'result' => $result, );
                    push @opcodes, new FindLexOp( $parser,
                        ' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	48327	48490	
==>k = (@stack)\n";
    if(defined $1) {
      if(defined $2) {
        DEBUG > 3 and print "Found complex start-text code \"$1\"\n";
        push @stack, length($1) - <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7072	7186	
==>? $options{fail} : '';
	my $bad     = ref($options{reject}) eq 'ARRAY' ? join('|', @{$options{reject}})
		    : def <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24074	24188	
==>? $options{fail} : '';
	my $bad     = ref($options{reject}) eq 'ARRAY' ? join('|', @{$options{reject}})
		    : def <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5732	6057	
==>AGS" => ":load_file",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 1 <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	10728	10812	
==>pmc none.pmc pair.pmc resizablebooleanarray.pmc resizablefloatarray.pmc resizableinte <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	15906	16027	
==>ely here
    $cout .= $self->line_directive(2 + $line + count_newlines($cout),
				   $out_name);
    $cout .= $additional <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	890	1105	
==>{$_[0]};
            }
            elsif( $type eq 'ARRAY' ) {
                @$data = @{$_[0]};
            }
            elsif( $type eq 'SCALAR' ) {
                $$data = ${$_[0]};
            }
            el <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	3871	3978	
==>in("", @params);
  print OUTPUT "dlfunc P2, P1, '$name', '$signature'\n";
  print OUTPUT "store_global '${cu <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2596	2700	
==>, name => $self->op } });
    $self->left->sax($handler);
    $self->right->sax($handler);
    $handler-> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2473	2577	
==>, name => $self->op } });
    $self->left->sax($handler);
    $self->right->sax($handler);
    $handler-> <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27517	27658	
==>h})) {
            $hout .= $self->decl($classname, $meth, 1);
        }
    }
    foreach my $method (@{ $self->{methods}} ) {
        next u <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24673	24782	
==>inish [step increment]
	my($endexpr, $stepexpr, @stepcode);

	$forloop++;
	feedme();

	# The initial assignmen <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28186	28276	
==>p||"").$text;
			}'.($::RD_NO_TRACE?'':'
			Parse::RecDescent::_trace(q{<<Didn\'t match ter <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32461	32551	
==>p||"").$text;
			}'.($::RD_NO_TRACE?'':'
			Parse::RecDescent::_trace(q{<<Didn\'t match ter <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7869	7969	
==>nt "Should not happen (int)"
i%=54
if i% then print "This is true" else print "Oops (int)"
i=0
if i t <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14856	14956	
==>nt "Should not happen (int)"
i%=54
if i% then print "This is true" else print "Oops (int)"
i=0
if i t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833159	833582	
==>AME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 943,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 197 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEX <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10960	11067	
==>fh'};
  return print $fh join '',
    $self->doc_init,
    $self->font_table,
    $self->stylesheet,
    $se <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	655	741	
==>_group('Loading', '', 'src/dynpmc'),
		$self->new_group('Runtime', '', 'runtime/parrot/ <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3039	3214	
==>apsulating data like this is good: it allows passing,
synchronzing, and duplicating state much easier, and makes it clearer
into which context the data belongs.

For APIs purel <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	897	1001	
==>ros required by the ops.

=cut

sub defines
{
    return <<END;
#define REL_PC ((size_t)((opcode_t*)cur_o <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1027	1131	
==>ros required by the ops.

=cut

sub defines
{
    return <<END;
#define REL_PC ((size_t)((opcode_t*)cur_o <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2491	2688	
==>{
    for (@_) {
        return $_ if defined $_;
    }
    return;
}

##
## %tests = extract_tests($string)
##
## Extract the tests from the .test file. (test_name => [ $expl, $source, $out ])
##
s <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	413	522	
==>, $path_to_language, $count ) = @_;
 
    
    my $test_prog_args = $ENV{TEST_PROG_ARGS} || q{};
    my $lang_ <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	431	534	
==>, $path_to_language, $count ) = @_;

    my $test_prog_args = $ENV{TEST_PROG_ARGS} || q{};
    my $lang_ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15910	16185	
==>ww.w3.org/TR/xhtml1/DTD/xhtml-symbol.ent

=head1 AUTHOR

Sean M. Burke C<sburke@cpan.org>

=cut

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# What I used for reading the XHTML .ent files:

use strict;
my(@norms, @good, @bad);
my $dir = 'c:/sgm <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16304	16448	
==>ntarray) {  # return an array
    return map {; ($x = $_) =~
      s/([F\x00-\x1F\\\{\}\x7F-\xFF])/$Escape{$1}/g;  # ESCAPER
      $x =~ s/([^\x0 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	559	660	
==>truct::Block');
  confess("Ident (" . ref($ident) . ") is not!") unless UNIVERSAL::isa($ident, 'Jako:: <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	18052	18196	
==>"pc_xxx";
    if ($c =~ /to (\d+)/) {
	$targ = "pc_$1";
    }
    print <<EOC;
	if $tos->[1] goto $targ $cmt
EOC
}

sub UNARY_NOT
{
    my ($n, $ <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	1803	1904	
==>ts, and
   suchlike things. This is perfectly legal -- in fact it's what
   we've documented should be <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	8966	9135	
==>[0];
    "\$$t" . ++$temp;
}

sub is_num {
    my $c = $_[0];
    my ($pointfloat, $expfloat, $frac, $exp);
    $exp = qr/[eE][-+]?\d+/;
    $frac = qr/\.\d+/;
    $point <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	287883	288386	
==>RGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 335,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 935 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 1 : 0;\n  {{+ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	1133	1302	
==>b post_branch {
	die "post_branch not implemented for current stack to register mapper\n";
}

# Pre and post calling operation hooks.
sub pre_call {
	die "pre_call not im <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeDumb.pm	522	638	
==>ub all_encodings {
  return sort keys %Supported;
}

sub encoding_is_available {
  return exists $Supported{lc $_[1]} <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	60803	60934	
==>cular kind of bracket at the start of the text, and didn't find it.

=item  C<No quotelike operator found after prefix: "%s">

C<ext <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	7801	7914	
==>rint SOURCE @cg_jump_table;
    print SOURCE <<END_C;
        NULL
    };
END_C
    print SOURCE $trans->run_core_ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8241	8368	
==>have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg = value($reg);

    my @ops <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7894	8021	
==>have fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg = value($reg);

    my @ops <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225469	225567	
==>p.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226410	226508	
==>p.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\ <==
2	/Users/nnunley/parrot/lib/File/Which.pm	3864	3993	
==>as returned by
C<File::Spec-E<gt>path()>), looking for executable files having the name specified
as a parameter to C<which()>. Un <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5096	5208	
==>self = shift;
  my ($handler) = @_;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $self-> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3159	3271	
==>self = shift;
  my ($handler) = @_;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $self-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117442	117725	
==>,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118180	118463	
==>,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
2	/Users/nnunley/parrot/tools/dev/mk_inno.pl	953	1065	
==>g;
$options{icudir} =~ s/\//\\/g;

my $icu_section = '';
if ($options{icudir}) {
	$icu_section = qq{
Source: "$op <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	1974	2081	
==>ok);

  my $Test = Test::Builder->new;
  $Test->output('my_logfile');

  sub import {
      my($self) = shif <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4340	4488	
==>t_size',
 'normal_halfpoint_size',
 'no_proofing_exemptions',
);


#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sub ru <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549843	549990	
==>"
                            ],
                  "BODY" => "#line 56 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opc <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	40627	40852	
==>e(@$para, 2) if @$para > 3;
        
      } else {
        die "\$para type is $para_type -- how did that happen?";
        # Shouldn't happen.
      }

      #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	59	148	
==>ib/Parrot/Docs/Directory.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Pa <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	7663	7776	
==>t directives)

sub accept_target         { shift->accept_targets(@_)         } # alias
sub accept_target_as_text { <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	206	357	
==>ntation section

=head1 SYNOPSIS

    use Parrot::Docs::Section::Languages;

=head1 DESCRIPTION

A documentation section describing Parrot's client lang <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	2936	3045	
==>if ($text =~ m{^([,])(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, 'comma', undef, $1) <==
2	/Users/nnunley/parrot/examples/benchmarks/stress.pl	750	840	
==>es/benchmarks/stress2.pasm>, 
F<examples/benchmarks/stress2.pl>, 
F<examples/benchmarks/str <==
2	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	811	901	
==>es/benchmarks/stress2.pasm>, 
F<examples/benchmarks/stress2.pl>, 
F<examples/benchmarks/str <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4471	4628	
==>t_stringify($target);
    $pattern = _parrot_stringify($pattern);
    my $unicode = ($target =~ /\\u/) ? "unicode:" : "";
    if ($captures) { 
        $captu <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11673	11892	
==>ic->new($block, $ident, $ident, $op, $value);
      next;
    }

    #
    # Concat assign:
    #
    #   <var> <op> <value>;
    #

    if ($token->is_ident and $self->get(1)->is_concat_assign) {
      my $block = $self <==
2	/Users/nnunley/parrot/config/auto/bc.pm	564	758	
==>Determining whether GNU bc is installed';

@args = qw();

sub runstep
{
    my ($self, $conf) = @_;

    my $has_gnu_bc;
    my $osname = $Config{osname};

    # There were some problems with a h <==
2	/Users/nnunley/parrot/config/inter/shlibs.pm	180	289	
==>ibraries.

=head1 DESCRIPTION

Asks the user which flags are needed for compiling position-independent code
fo <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17247	17433	
==>'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 95,
			'functioncall' => 31,
			'function' => 26,
			'tablecons <==
2	/Users/nnunley/parrot/lib/Test/More.pm	5573	5667	
==>simply search for "simple
exponential".

All test functions take a name argument.  It's optiona <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609382	609663	
==>TABLE_get_attr_str(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610290	610571	
==>TABLE_get_attr_str(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20438	20547	
==>YPE not supported yet for $name\n";
				feedme;
				feedme;
			}
			while($type[CURR] eq "STMT" or $type[CURR] <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3388	3490	
==>e with an unescaped '$'.
      $string = substr($string, 1, -1); # Without the surrounding double quote <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1707	1808	
==>e with an unescaped '$'.

    $string = substr($string, 1, -1); # Without the surrounding double quote <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	3778	3910	
==>h
{
    my $self = shift;
    
    return $self->{PARENT_PATH};
}

=item C<stat()>

Returns the C<File::stat> object. Used by subclas <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	659	752	
==>self->new_item('Ops to C Code Generation', 
			    'lib/Parrot/OpsFile.pm', 'lib/Parrot/Op.pm' <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	2750	2914	
==>_, 0, 2) {
        my ($old) = $self->{c}{$key};
        if (defined $old) {
            $self->set($key, "$old$delim$val");
        } else {
            $self->set( <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	233	349	
==>THIS FILE   !!!!!!!
**
** This file is generated automatically from 'vtable.tbl' by
** tools/build/vtable_extend.pl
* <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9562	9679	
==>w_code =~ m/^[-\.0-9]/s
        or $new_code =~ m/:[-\.0-9]/s;
            # The legal under-0x80 Name characters that <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10826	10943	
==>w_code =~ m/^[-\.0-9]/s
        or $new_code =~ m/:[-\.0-9]/s;
            # The legal under-0x80 Name characters that <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7603	7730	
==>e =
	#	#print "Going to expression with $syms[CURR]\n";
	#	EXPRESSION;		# Evaluate the expression all queued up.
	#	ASSIGNMENT($ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835768	835859	
==>er->ctx)->user_stack, string_copy(interpreter, {{\@1}}), STACK_ENTRY_STRING, STACK_CLEANUP_N <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836521	836612	
==>er->ctx)->user_stack, string_copy(interpreter, {{\@1}}), STACK_ENTRY_STRING, STACK_CLEANUP_N <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	8119	8240	
==>and not isbuiltin($syms[PREV]) ) {
				$unary=1;
			}
		}
		if (
			$this->[0] eq "("    and 
			hasargs($prev->[0])	# Thi <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4073	4261	
==>%ld))",

        'ic' => "((INTVAL)cur_opcode[%ld])",
        'kic' => "((INTVAL)cur_opcode[%ld])",
        'nc' => "(*(FLOATVAL *)cur_opcode[%ld])",
        'sc' => "((STRING *)cur_opcode[ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36327	36525	
==>~=" => 73,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -72
	},
	{#State 140
		ACTIONS => {
			"-" => 72,
			"%" => 76,
			"*" => 80,
			".." => 71,
			"+" => 75,
			"^" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943906	944183	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "charse <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944695	944972	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "charse <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423089	423385	
==>n",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423985	424281	
==>n",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	4	115	
==>erl 
# Copyright (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/examples/benchmarks/mops.pl 19601 2006-05-30 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733235	733501	
==>" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 823, <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	6243	6395	
==>ef,
             'i_sysstatvfs' => 'define',
             'i_systime' => 'define',
             'i_systimek' => undef,
             'i_systimes' => 'defi <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	4912	5050	
==>file;

my $line = 0;
while (<IN>) {
  $line++;
  next if m/^\s*#/; # ignore preprocessor
  next unless s/.*\b_S\b//;

  my $str = extract_b <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	953	1093	
==>mode LANG; # JMG
        print LANG $lang_code; # JMG
        close LANG; # JMG

        Parrot::Test::run_command( 
            "$PConfig{pe <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	865	1005	
==>mode LANG; # JMG
        print LANG $lang_code; # JMG
        close LANG; # JMG

        Parrot::Test::run_command( 
            "$PConfig{pe <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	11880	12078	
==>automatically generated and show how various runcores are functioning across
    a variety of platforms. Individual languages targetting parrot (e.g. tcl),
    are also available.
  </p>

  <p>
    S <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	602813	603172	
==>{{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "classname",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726056	726329	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cl <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	33093	33296	
==>as ho-hum L<URL> link.\n},
            $treelet->[$i][2]
          ;
          $treelet->[$i][1]{'to'} = Pod::Simple::LinkSection->new(
            $treelet->[$i][2]
          );                   # its o <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	5198	5343	
==>kefiles/root.in' => 'languages/pugs/Makefile',
        commentType                   => '#',
        replace_slashes               => 1,
        c <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	52904	53302	
==>55
		 'exp', 1, undef
	],
	[#Rule 56
		 'exp', 1,
sub
#line 335 "Lua\lua51.yp"
{
            BuildCallVariable( $_[0], $_[1] );
        }
	],
	[#Rule 57
		 'exp', 1, undef
	],
	[#Rule 58
		 'exp', 3,
sub
#line 341 "Lua\lua51.yp"
{
            BuildBinop( $_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 59
		 'exp', 3,
sub
#line 345 "Lua\lua51.yp"
{
            BuildB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	622242	622676	
==>ABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "pic_set_returns__",
                  "FLAGS" => ":pic",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	31116	31234	
==>ed.
The final argument specifies the escape character to be used for each
delimiter.

All arguments are optional. If th <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	644	777	
==>} else {
    require Carp;
    Carp::croak("Usage:\n use Pod::Simple::Debug (NUMVAL)\nor"
                    . "\n use Pod::Simple::D <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	35795	36058	
==>136
		DEFAULT => -46
	},
	{#State 137
		ACTIONS => {
			"^" => 79
		},
		DEFAULT => -61
	},
	{#State 138
		ACTIONS => {
			"-" => 72,
			"<" => 74,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			"<=" => 85,
			">" => 86,
			".." => <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	15833	15976	
==>: '\s*';

	my @match = _match_quotelike($textref,$pre,1,0);
	return _fail($wantarray, $textref) unless @match;
	return _succeed($wantarray, $tex <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	623	725	
==>ger;
use Jako::Construct::Type::Number;
use Jako::Construct::Type::PMC;
use Jako::Construct::Type::Stri <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3519	3646	
==>-library $group --c " . join(" ",@pmcfiles))
              or die "pmc2c library creation failed ($?)\n";
        }
    }
} 
els <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3623	3750	
==>-library $group --c " . join(" ",@pmcfiles))
              or die "pmc2c library creation failed ($?)\n";
        }
    }
} 
els <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	754	879	
==>ing regexes (multiple)
   -time              show times instead of percentage

=head1 DESCRIPTION

Benchmark Parrot against ot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818081	818176	
==>ops/stack.ops\"\n  Parrot_push_regs(interpreter);\n  /* these 2 opcodes change the register base <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6751	6875	
==>mc")
          or die "pmc2c dump failed ($?)\n";
    }
}

sub generate_c {
    my ($pmc) = @_;

    if (needs_build("$pmc.c" <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6962	7086	
==>mc")
          or die "pmc2c dump failed ($?)\n";
    }
}

sub generate_c {
    my ($pmc) = @_;

    if (needs_build("$pmc.c" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	8001	8132	
==>edence($prev->[0],$next->[0]) 
				  and not isarray($prev->[0])) { 
				$unary=1;
			} elsif (iskeyword($syms[PREV]) and not isbuil <==
2	/Users/nnunley/parrot/lib/Test/More.pm	3729	3969	
==><Test::Harness> for
details.

If you want to control what functions Test::More will export, you
have to use the 'import' option.  For example, to import everything
but 'fail', you'd do:

  use Test::More tests => 23, import => ['!fail'];

Al <==
2	/Users/nnunley/parrot/config/auto/byteorder.pm	689	826	
==>: $!";
    cc_clean();

    chomp $byteorder;

    if ($byteorder =~ /^1234/) {
        $conf->data->set(
            byteorder => $byteor <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1157	1283	
==>escape($text);
    $text =~  # A not-totally-brilliant wrapping algorithm:
      s/(
         [^\n]{55}         # Snare some ch <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1101	1227	
==>escape($text);
    $text =~  # A not-totally-brilliant wrapping algorithm:
      s/(
         [^\n]{55}         # Snare some ch <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	1212	1373	
==>e with US-ASCII codes, use fallbacks for Latin-1, or use FAR_CHAR.
    unless($in =~ m/^\d+$/s) {
      # It's a named character reference.  Get its numeric Unico <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10149	10267	
==>ccept "W", then a "W" in the treelet simply turns
    #  into "W".
  }
  
  return;
}

#------------------------------- <==
2	/Users/nnunley/parrot/config/auto/python.pm	294	445	
==>DO

Store version of Python.

=cut

package auto::python;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

us <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	630	735	
==>Op is not defined!" unless defined $op;
  confess "Right is not defined!" unless defined $right;

  confes <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	642	747	
==>Op is not defined!" unless defined $op;
  confess "Right is not defined!" unless defined $right;

  confes <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106306	1106399	
==>ion(interpreter, NULL, E_ValueError,\n\t\t\"type number out of range\");\n    {{\@1}} = interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107282	1107375	
==>ion(interpreter, NULL, E_ValueError,\n\t\t\"type number out of range\");\n    {{\@1}} = interp <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	60068	60181	
==>r diagnostics listed
below.
Accessing C<$@-E<gt>{pos}> returns the offset into the original string at
which the er <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	7285	7396	
==>al_link {
    my ($group, $libs, $stems) = @_;

    my @sources = map { "$_$O" } @$stems;
    if (needs_build("$ <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7496	7607	
==>al_link {
    my ($group, $libs, $stems) = @_;

    my @sources = map { "$_$O" } @$stems;
    if (needs_build("$ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	1438	1537	
==>'lib/Parrot/Docs/File.pm'),
		    $self->new_item('', 'lib/Parrot/Docs/Directory.pm'),
		    $self-> <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	64518	64636	
==>tanding a great deal
more about Perl than they really do. 

Bug reports and other feedback are most welcome.


=head1 C <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2565	2670	
==>Attributes => { kind => 'infix', name => $self->op } });
    $self->left->sax($handler);
    $self->right- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2442	2547	
==>Attributes => { kind => 'infix', name => $self->op } });
    $self->left->sax($handler);
    $self->right- <==
2	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	181	346	
==>tandard perl modules

# Modules from CPAN
use Parse::RecDescent;
use YAML;

# local Modules


# Create a parser that outputs an Array
$::RD_ERRORS = 1;
$::RD_WARN   = <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	22586	22694	
==>ypename\\n"
	save P3
	popp
	restore P1
	ret
OUTOF_$typename: 

OUTOF

}

sub parse_dim {
		feedme;
ANOTHERDIM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842737	843262	
==>core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 956,
                  "ARGS" => [
                              "i",
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 45 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2} <==
2	/Users/nnunley/parrot/Configure.pl	4041	4129	
==>le.

=back

=head1 SEE ALSO

F<config/init/data.pl>, F<lib/Parrot/Configure/RunSteps.pm>, <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	6121	6291	
==>ead the whole file $file_name and return the content as a string.

=item C<convert_line_endings($text)>

Convert Win32 style line endins with Unix style line endings.

=it <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	2790	2901	
==>@{ $self->{'token_buffer'} } ? '' : '       (no tokens)',
   "\n"
  ;

  until( @{ $self->{'token_buffer'} } ) { <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	45953	46068	
==>lement hyphenation, I guess
       # that you'd better have nbsp_for_S off.
    }
  }

  return $is_s;
}

#--------- <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	686	785	
==>ss Methods

=over 4

=cut

package Parrot::Distribution;

use strict;
use warnings;

use Data::Dumpe <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	13557	13654	
==>could be started).  This is most useful when writing modules and you
find there is some language f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840183	840292	
==>interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840878	840987	
==>interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682939	683083	
==>"
                            ],
                  "BODY" => "#line 517 \"src/ops/pmc.ops\"\n    {{\@1}} = {{\@2}}->vtable->shift_string(interpre <==
2	/Users/nnunley/parrot/tools/dev/pbc_header.pl	1331	1471	
==>pen F, "+<$f" or die "Can't open $f: $!";
	seek F, 2, 0;	# pos 2: major, minor
	print F pack "cc", $major, $minor;
	seek F, 6, 0;	# pos 6: pa <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	26321	26590	
==>: like foo or bar,Baz,qu:ux but not like "
        . $elements_one
      );
      return;
    }

    my @fallbacks  = split ',', $fallbacks_one,  -1;
    my @elements   = split ',', $elements_one, -1;

    foreach my $f (@fallbacks) {
      next if exists $Known_formatt <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181262	181553	
==>TYPE" => "inline",
                  "CODE" => 216,
                  "ARGS" => [
                              "ic",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 278 \"src/ops/cmp.ops\"\n  if ({{\@1}} <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5862	5965	
==>ased on code written by Brent
Royal-Gordon C<brent@brentdax.com>.

=head1 AUTHOR

Joshua Hoblitt C<jhobl <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2900	3051	
==>S+ \s+)? \{ \n     # optional test harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+ <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4297	4448	
==>S+ \s+)? \{ \n     # optional test harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+ <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	1533	1959	
==>if /^\s*#/; chomp;
    my ($symbol, $file) = /(\S+)\s+(\S+)/;
    $ansi_c89_symbol{$symbol} = $file unless ($symbol eq "UNDEF");
    push @{$ansi_c89_header{$file}}, $symbol;
}

if ($mode eq "object") {
    do_object();
} else {
    do_source();
}

exit(0);

##############################################################################

sub do_source {

    if ($files[0] eq "all_source") {
        # do a little "find" actio <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	11270	11422	
==>)/gc)
	    {
		_failmsg "Did not find leading dereferencer", pos $$textref;
		pos $$textref = $startpos;
		return;
	    }
	    my $deref = $1;

	    unle <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	8395	8609	
==>print {$FH} "  goto $op->{result}->{symbol}\n";
    }

    sub visitLabelOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH} "\n";
        print {$FH} "$ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1141	1250	
==>each %{$_[2]}) {
      unless($key =~ m/^~/s) {
        next if $key eq 'start_line' and $_[0]{'hide_line_numb <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	716	821	
==>each %{$_[2]}) {
    unless($key =~ m/^~/s) {
      next if $key eq 'start_line' and $_[0]{'hide_line_numb <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	14384	14535	
==>'#' character appended to it, this is
ignored by the TAP protocol.

= FUTURE PLANS

This module is still a work in progress. As Pugs grows, so will it's <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967389	967888	
==>> [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1088,
                  "ARGS" => [
                              "i",
                              "ic",
                              "sc",
                              "i"
                            ],
                  "BODY" => "#line 60 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11605	11727	
==>[-1] .= $c;
        }
    }

#    for (0..$#tokens) { print STDERR "  $tokens[$_] $types[$_]\n"; }

    return \@tokens, \@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	2719	2871	
==>(
     "    " . $_->dump . "\n", @{ $self->{'token_buffer'} }
   ),
   @{ $self->{'token_buffer'} } ? '' : '       (no tokens)',
   "\n"
  ;

  until( @{ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21474	21612	
==>at',
    );
    my @opcodes = ();
    my $result = new_tmp( $parser, 'pmc', $type{$op} );
    push @opcodes, @{ $expr1->[1] };
    pus <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5862	5982	
==>ns{ACTIONS})) {

				defined($$token)
            or	do {
				($$token,$$value)=&$lex($self);
#DBG>				$debug & 0x01 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5583	5698	
==>ns{ACTIONS})) {

				defined($$token)
            or	do {
				($$token,$$value)=&$lex($self);
#DBG>				$debug & 0x01 <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	876	1029	
==>r => 1,
    filter => 1,
    list => 1,
    long => 1,
    int => 1,
    map => 1,
    max => 'v',
    min => 'v',
    range => 1,
    xrange => 1,
    re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81930	82030	
==>ops/core.ops\"\n  internal_exception(1, \"don't use compile - just invoke the compiler\");\n  {{+=4}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82824	82924	
==>ops/core.ops\"\n  internal_exception(1, \"don't use compile - just invoke the compiler\");\n  {{+=4}} <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8595	8680	
==>R"
data "DAMAGES","DESTRUCT","DOCK","IDLE","IMPULSE","LRSCAN","NAVIGATE","PHASERS","QU <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21459	21544	
==>R"
data "DAMAGES","DESTRUCT","DOCK","IDLE","IMPULSE","LRSCAN","NAVIGATE","PHASERS","QU <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	228	326	
==>lse.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako: <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	788	896	
==>bin'.

=item C<libdir>

The library directory. Defaults to '/usr/lib'.

=item C<includedir>

The header direc <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	1017	1125	
==>bin'.

=item C<libdir>

The library directory. Defaults to '/usr/lib'.

=item C<includedir>

The header direc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	491250	491612	
==>> 563,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 539 \"src/ops/math.ops\"\n  {{\@1}}++;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	28788	28935	
==>reelet->[$i][2] eq '')
      ) {
        $self->whine( $start_line, "A non-empty Z<>" );
      }      # but kill it anyway
        
      splice(@$t <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	45769	45956	
==>', 1,
sub
#line 46 "Lua\lua51.yp"
{
            BuildMain( $_[0], $_[1] );
        }
	],
	[#Rule 2
		 'program', 1,
sub
#line 50 "Lua\lua51.yp"
{
            print "Error (prog <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	2403	2561	
==>vailable:
  @pmc
END
        {
            $pmc_list = prompt('Which PMC files would you like?', $pmc_list);
        }
    }

    # XXX:leo do we really need a <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1041	1132	
==>_opcode[i])
#define CONST(i) CONTEXT(interpreter->ctx)->constants[cur_opcode[i]]
END
}

=ite <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1157	1248	
==>_opcode[i])
#define CONST(i) CONTEXT(interpreter->ctx)->constants[cur_opcode[i]]
END
}

=ite <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60465	60683	
==>"CODE" => 78,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 914 \"src/ops/core.ops\"\n  PARROT_WARNINGS_off(interpreter, {{\@1}});\n  { <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4275	4408	
==>interpreter, type$class, pass);
EOC
    }
    $cout .= <<"EOC";
    }
    return pmc;
}

EOC
}

=back

=head2 Class Methods

=over

=i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	797739	797969	
==>=> [
                              "p",
                              "kc",
                              "n"
                            ],
                  "BODY" => "#line 462 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_numbe <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	8571	8686	
==>kflags' => '-L/opt/local/lib -L/usr/local/lib',
             'lns' => '/bin/ln -s',
             'load_ext' => '.bun <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	28920	29038	
==>gnitude {
}

sub _op_angle {
}

sub _op_exact_inexact {
}

sub _op_inexact_exact {
}

sub _op_number_string {
}

sub _o <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2631	2725	
==>->left->sax($handler);
    $self->right->sax($handler);
    $handler->end_element({ Name => 'op <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2508	2602	
==>->left->sax($handler);
    $self->right->sax($handler);
    $handler->end_element({ Name => 'op <==
2	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	495	645	
==>ed.\n";

setup_compression() if $compression_wanted;

my %request = (upload => 1, version => VERSION, smokes => []);

{
  my $file = shift @ARGV;
  deb <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3164	3283	
==>r NEXT()>

Transforms to C<PC + S>, the position of the next op.

=item C<expr ADDRESS(X)>

Transforms to C<X>, an absol <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2442	2538	
==>rl 6 pattern, passing the test
if the output produced by the test code matches the C<$expected>
p <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3876	3972	
==>rl 6 pattern, passing the test
if the output produced by the test code matches the C<$expected>
p <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops.pm	66	185	
==>e = shift || '';
    my $number = ++$MARKERS{$name};
    $number = '' if ($number == 1) && ($name ne '');
    return ble <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2698	2817	
==>e = shift || '';
    my $number = ++$MARKERS{$name};
    $number = '' if ($number == 1) && ($name ne '');
    return ble <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	12409	12658	
==>&amp;/g;
            s/</&lt;/g;
            s/>/&gt;/g;

            next if (&{$skip_func}($_));
            
            my $atag="";
            if (/^\s*([^\(\s]+)\(/) {
                $atag="<a name=\"$1\"></a>";
            } 

            my <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62013	62124	
==>) = extract_codeblock($grammar, "[]",'') || '';

		# EXTRACT TRAILING REPETITION SPECIFIER (IF ANY)

			if ($gra <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	5119	5411	
==>9A-F]{2}\s+)*[0-9A-F]{2}$/) {
                if ($has_code) {
                    die "Duplicate value for code in rule $rule->{'name'}\n";
                } else {
                    $has_code = 1;
                }
            } else {
                die "Invalid value for code in rule $ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	1018	1125	
==>ch operation hooks.
sub pre_branch {
	die "pre_branch not implemented for current stack to register mapper\n <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5489	5595	
==>shift;
    return <<'PIR';
# See if we've got a return or something to call.
if ${ARGCOUNT} == 0 goto PRE_C <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6934	7039	
==>shift;
    return <<'PIR'
# See if we've got a return or something to call.
if ${ARGCOUNT} == 0 goto PRE_C <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10742	10849	
==>file =~ s/\.gcov$//g;

    my $outfile_base = $source_file; 
    $outfile_base =~ s/\//_/g;
    $outfile_bas <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29782	29884	
==>meth};
    return $self->SUPER::body($self->{methods}[$n], $line, $out_name);
}

=back

=head2 Parrot:: <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	8945	9049	
==>ry operator that means
		# "Push the top of the stack onto the function's call stack"
		# No-arg funcs ar <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243910	244006	
==>=> "#line 632 \"src/ops/cmp.ops\"\n  STRING* l = VTABLE_get_string(interpreter, {{\@2}});\n  {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244842	244938	
==>=> "#line 632 \"src/ops/cmp.ops\"\n  STRING* l = VTABLE_get_string(interpreter, {{\@2}});\n  {{\@ <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	228	359	
==>rom .c files

=head1 SYNOPSIS

Update the headers in F<include/parrot> with the function declarations in
the F<*.pmc> or F<*.c> file <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4003	4123	
==>= $self->output_label_use($failLabel);
    if ($needed eq "1") {
        return "ge <rx_pos>, $lenvar, $fail # need $need <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	516	626	
==>) unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Ident (" . ref($ident) . ") is not!") unl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954086	954332	
==>E" => 1073,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 571 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_encoding_number_of_str( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938630	939008	
==>);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "join",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	5090	5269	
==>os;
		return;
	}

	my @nesting = ( $1 );
	my $textlen = length $$textref;
	while (pos $$textref < $textlen)
	{
		next if $$textref =~ m/\G\\./gcs;

		if ($$textref =~ m/\G($ldel)/g <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	67400	67575	
==>,
								       $line,
								       $desc,
								       $matchrule,
								       $argcode);
	 
				$prod and $prod->additem($item)
				      or  _no_rule("(sub)rule",$li <==
2	/Users/nnunley/parrot/lib/Test/More.pm	9434	9561	
==>iters are
currently not supported):

    like( $this, '/that/', 'this is like that' );

Regex options may be placed on the end ( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	78	172	
==>Regex::CodeGen';
use strict;

my $fail_label = Regex::Ops::Tree::mark('FAIL');

sub init_contex <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	79	173	
==>Regex::CodeGen';
use strict;

my $fail_label = Regex::Ops::Tree::mark('FAIL');

sub init_contex <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6573	6679	
==>lf = shift;

	# TODO - This needs more thought. I'm trying to work out which files
	# it's sensible to link <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	187	289	
==>jako/lib/Jako/Construct/Block/Module.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval " <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	8261	8362	
==>Dumper->Indent(3);
    print $vtd $Dumper->Dump();
    close $vtd;
}

=head2 my ($balanced, $remaining <==
2	/Users/nnunley/parrot/config/auto/jit.pm	4260	4424	
==>_exec_o =>
                    '$(SRC_DIR)/exec$(O) $(SRC_DIR)/exec_cpu$(O) $(SRC_DIR)/exec_save$(O)',
                execcapable => 1
            );
        } else <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops.pm	77	200	
==>| '';
    my $number = ++$MARKERS{$name};
    $number = '' if ($number == 1) && ($name ne '');
    return bless([ 'label', " <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2709	2832	
==>| '';
    my $number = ++$MARKERS{$name};
    $number = '' if ($number == 1) && ($name ne '');
    return bless([ 'label', " <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	6968	7189	
==>elf, $t, $guarantee, $follow_min) = @_;

    if ($t->{name} eq 'rule') {
        $t->{args}->[1] = $self->add_checks($t->{args}->[1], 0, 0);
        return $t;
    }

    # Have enough for any possible match of this subtre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409457	409808	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "recv",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "o"
                               ],
                  "TYP <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	1331	1487	
==>ne ")") {
				feedme;
			}
			feedme;
		}
		$stype="";
		$user=0;
		if ($syms[CURR] eq "as") {
			feedme;
			$stype=$syms[CURR];
			feedme; # N
			my %th=( s <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	148	253	
==>the information needed to
generate a parrot wrapper for the named library (or libraries). Its
format is si <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	31424	31550	
==>b _op_eof_object_p {
}

sub _op_char_ready_p {
}

sub _op_write {
  my ($self,$node) = @_;
  my $temp = 'none';

  for(_get_arg <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2401	2509	
==>>kind } });
  }

  if ($self->op) {
    $handler->start_element({ Name => 'block', Attributes => { kind => 't <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2278	2386	
==>>kind } });
  }

  if ($self->op) {
    $handler->start_element({ Name => 'block', Attributes => { kind => 't <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	2354	2590	
==>le}{$symb} ) {
            my $defn = $self->{table}{$symb};
            return $defn;
        }
        return undef;
    }

}

################################################################################

package SymbTab <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3462	3587	
==>build("$group.c", @pmcfiles)) {
            run("$PMC2C --library $group --c " . join(" ",@pmcfiles))
              or die "pm <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3566	3691	
==>build("$group.c", @pmcfiles)) {
            run("$PMC2C --library $group --c " . join(" ",@pmcfiles))
              or die "pm <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2657	2794	
==>eys %$libs );
        if ($CC =~ /gcc/i) {
            $liblist =~ s/gdbm\.lib/-llibgdbm/i;
        }
        my $extraLibs = '-lm -lgmp - <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	2452	2589	
==>eys %$libs );
        if ($CC =~ /gcc/i) {
            $liblist =~ s/gdbm\.lib/-llibgdbm/i;
        }
        my $extraLibs = '-lm -lgmp - <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11229	11327	
==>.const int ELEMENT_TYPE_ARRAY= 0x14
	.const int ELEMENT_TYPE_TYPEDBYREF = 0x16
	.const int ELEMENT_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649910	650201	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "valid_type",
                  "FLAGS" => "" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650831	651122	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "valid_type",
                  "FLAGS" => "" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86768	87167	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "new_callback",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87769	88168	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "new_callback",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667511	667611	
==>DY" => "#line 405 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->push_integer(interpreter, {{\@1}}, {{\@2} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668285	668385	
==>DY" => "#line 405 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->push_integer(interpreter, {{\@1}}, {{\@2} <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1829	2018	
==>t;

            s/^\\([\\"'])//
                and $str .= $1,        # backslash, quotation mark, apostrophe
                last;
            s/^\\a//
                and $str .= "\ <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3343	3532	
==>t;

            s/^\\([\\"'])//
                and $str .= $1,        # backslash, quotation mark, apostrophe
                last;
            s/^\\a//
                and $str .= "\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	686	780	
==>>, you might
get an object of this class.

This is a subclass of L<Pod::Simple::PullParserToken <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	592	686	
==>>, you might
get an object of this class.

This is a subclass of L<Pod::Simple::PullParserToken <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32626	32887	
==>pected '=item $expected_value'"
            );
            # Text content will still be there and will block next ~Para

          } elsif($item_type ne 'number') {
            die "Unknown item type $item_type"; # should never happen

          } elsif($expecte <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145824	146152	
==>q",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 178,
                  "ARGS" => [ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1342	1472	
==>=> '..', # $self->{relpath}, 
            STDOUT => $out_f, STDERR => $out_f, 
        );
        my $prog_output = Parrot::Test::s <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1258	1388	
==>=> '..', # $self->{relpath}, 
            STDOUT => $out_f, STDERR => $out_f, 
        );
        my $prog_output = Parrot::Test::s <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33679	33779	
==>store and append code it generates.
		my $post_store = $srm->post_store($dest_reg);
		$pir .= "### po <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411021	411239	
==>"\n    {{\@1}} = (INTVAL)PIO_send(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411914	412132	
==>"\n    {{\@1}} = (INTVAL)PIO_send(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8806	8944	
==>)>

Returns the path for the subdirectory with the specified path taken
relative to the directory.

=cut

sub path_for_directory_with_relat <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	3144	3300	
==>ill after the gccversion test.
    my $solaris_ieee_cb = sub {
        my ($key, $gccversion) = @_;

        if ($gccversion) {

            # Don't know how <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8057	8246	
==>= @_;
    my @opcodes = ();
    my $idf     = shift @{$var};
    if ( ref($idf) eq 'ARRAY' ) {
        my $defn = $idf->[0];
        push @opcodes, @{ $idf->[1] };
        my $last_key <==
2	/Users/nnunley/parrot/config/auto/bc.pm	482	577	
==>e Config;
use Parrot::Configure::Step ':auto', 'capture_output';

$description = 'Determining wh <==
2	/Users/nnunley/parrot/config/auto/m4.pm	456	551	
==>e Config;
use Parrot::Configure::Step ':auto', 'capture_output';

$description = 'Determining wh <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3943	4052	
==>el, $lenvar) = @_;
    $lenvar ||= "<rx_len>";
    my $fail = $self->output_label_use($failLabel);
    if ($ne <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3657	3766	
==>el, $lenvar) = @_;
    $lenvar ||= "<rx_len>";
    my $fail = $self->output_label_use($failLabel);
    if ($ne <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33136	33251	
==>ides the default implementation to perform locking.

=cut

sub body
{
    my ($self, $method, $line, $out_name) = @_ <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2134	2288	
==>MUST apply.
    check_tabs($file, $source);
    check_cpp_indents($file, $source);
    check_code_indents($file, $source);
    check_function_definitions($ <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	4631	4732	
==>terp" attribute="String Interp" lineEndContext="#pop">
          <HlCStringChar attribute="SpChar" con <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	427	568	
==>rn $_[0][2] .= $_[1];
}

sub as_string {
  goto &Pod::Simple::BlackBox::stringify_lol;
}
sub stringify {
  goto &Pod::Simple::BlackBox::string <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12929	13065	
==>directive would 
					  normally succeed (with the value zero) if the
					  rule is not 'commited' when it is
					  tried. Since you al <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32292	32478	
==>ra->[1]{'~orig_content'};
              # restore the bullet, blocking the assimilation of next para

          } elsif($item_type eq 'text') {
            # Hm, it's not numeric.  Correc <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2274	2369	
==>n_definitions($file, $source);
    check_cuddled_else($file, $source);
    check_comments($file, <==
2	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	657	764	
==>strict;
use lib 'lib';
use Digest::Perl::MD5 qw(md5_hex);

my $compat_file = 'PBC_COMPAT';
open IN, $compat_ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	3914	4014	
==>_is($code, $expected, $description)>

Compile the Parrot Intermediate Representation and generate Par <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1178	1467	
==>nt  "Estimated ops: "
                              # print  I5
                              # print  "\n"
                              #
$N1 = time_hires();           # time N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1178	1467	
==>nt  "Estimated ops: "
                              # print  I5
                              # print  "\n"
                              #
$N1 = time_hires();           # time N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	12714	12874	
==>ns Bool`

This function takes a block of code and runs it. It then smart-matches (`~~`) any `$!`
value with the `$expected` value.

- `dies_ok (Code &code, Str $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643562	644036	
==>FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 719,
                  "ARGS" => [
                              "i",
                              "p",
                              "ki"
                            ],
                  "BODY" => "#line 199 \"src <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	7094	7334	
==>f->{'rtfkeep'} = ($line_count > 15) ? '' : '\keepn' ;     

      } elsif( $tagname =~ m/^item-/s ) {
        my @to_unget;
        my $text_count_here = 0;
        $self->{'rtfitemkeepn'} = '';
        # Some heuristics to stop item-*'s fun <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657769	658269	
==>FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 735,
                  "ARGS" => [
                              "i",
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 329 \"src/ops/pmc.ops\"\n  {{\@1}} = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218868	219115	
==>(interpreter, {{\@1}}), {{\@2}}) > 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219847	220094	
==>(interpreter, {{\@1}}), {{\@2}}) > 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ] <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	1900	2004	
==>ing.h"
END_C

    print $trans->defines;
    print $ops->preamble($trans);

    my $length = length($pf-> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5229	5325	
==>lue = Jako::Construct::Expression::Value::Literal->new($block, $self->require_literal);
        } <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8229	8325	
==>lue = Jako::Construct::Expression::Value::Literal->new($block, $self->require_literal);
        } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	329415	329667	
==>mber(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	330893	331145	
==>mber(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	572	738	
==>tatement), opcode functions are in the format:

    inline op opname (args) :class,flags {
        ... body of function ...
    }

Note that currently the C<inline> op <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	6160	6458	
==>nless ($vtable) {
        $vtable = parse_vtable();
    }
    my $i = 0;
    $vjit++;
    for my $entry (@{$vtable}) {
        next if  $entry->[4] =~ /MMD_/;  # TODO all
        return $i if ($entry->[1] eq $meth);
        $i++;
    }
    die("vtable not found for $meth\n");
}

my $jit_emit_n = ($ <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	2196	2341	
==>arg->{optional}    = !!$1;
        $arg->{option}      = !!$2;
        $arg->{name}        = $3;
        $arg->{type}        = $4 || ( $arg->{opti <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	21292	21427	
==>INDER
	       );
}

my $def_func = 
[
	sub { extract_variable($_[0], '') },
	sub { extract_quotelike($_[0],'') },
	sub { extract_codeblo <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35353	35498	
==>return types can be cast from zero.
        $ret = "return ($method->{type})0;";
    }
    # I think that these will be out by one - NWC
    my $l <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	6787	6931	
==>et('slash');
                '/' x ($len/2) . ($len%2 ? $slash : '');
            }eg;
            # replace \* with \\*, so make will not eat th <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28902	29016	
==>ule " .
				"$rule->{'name'}\n";
        } elsif ($rule->{'instruction'} =~ /\$\{DEST0\}/ &&
		         $rule->{'in <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	132	299	
==>op = *Regex::Rewrite::rop;

# The basic method signature used here:
#
# rewrite_X : (optree, lastback) -> (back, ops...)
#
# where $lastback is the previous backtrackin <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	43888	44014	
==>0);
	return _generate(@_);
}

sub _no_rule ($$;$)
{
	_error("Ruleless $_[0] at start of grammar.",$_[1]);
	my $desc = $_[2] ? " <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	7878	7989	
==>open  OLDERR, ">&STDERR" or die "Can't save     stderr" if $err;

    open  STDOUT, ">$out"    or die "Can't red <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7928	8034	
==>open OLDERR, ">&STDERR" or die "Can't save     stderr" if $err;

    open STDOUT, ">$out" or die "Can't red <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8007	8128	
==>b output_popindex {
    my $self = shift;

    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7660	7781	
==>b output_popindex {
    my $self = shift;

    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos' <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	6052	6211	
==>}
    if($info->{path} =~ /\Wicu\Wsource/) {
	s/Copyright \(C\) [^\n]+\n *Corporation [^\n]+\n//;
	s/^ *(file name|encoding|tab size|indentation|created (on|by) <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	12906	13116	
==>temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_S($reg_num);";
        return "&PObj_bufstart(t_$temp_num)";
    };
    /J/ && do {
        return "interpreter";
    };
    /[ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	8207	8305	
==>okos'

So you can figure out what went wrong without rerunning the test.

You are encouraged to use <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	806	988	
==>stuff is for, so if it is, I invite 
# others to fix it.

=kwid

= NAME

lib - A pragma for addition of paths to @*INC

= SYNOPSIS

  require lib;
  import('lib': @paths);
  
  # no l <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10605	10712	
==>ached
	croak("Error in driver logic. Please, report it as a BUG");

}#_Parse
#DO NOT remove comment

1 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10129	10230	
==>ached
	croak("Error in driver logic. Please, report it as a BUG");

}#_Parse
#DO NOT remove comment

1 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	13492	13630	
==>lename' => 33
		}
	},
	{#State 17
		ACTIONS => {
			'CHAR' => 34,
			">" => 35
		}
	},
	{#State 18
		ACTIONS => {
			'CHAR' => 34,
			"=" = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	830	944	
==>lf = bless {
    BLOCK => $block,
    LEFT  => $left,
    RIGHT => $right
  }, $class;

  $block->push_content($sel <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	838	952	
==>lf = bless {
    BLOCK => $block,
    LEFT  => $left,
    RIGHT => $right
  }, $class;

  $block->push_content($sel <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653229	653387	
==>"
                            ],
                  "BODY" => "#line 292 \"src/ops/pmc.ops\"\n    opcode_t * resume = {{^+4}};\n    {{\@1}} = {{\@2}}->vtable->f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654390	654548	
==>"
                            ],
                  "BODY" => "#line 292 \"src/ops/pmc.ops\"\n    opcode_t * resume = {{^+4}};\n    {{\@1}} = {{\@2}}->vtable->f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021684	1021786	
==>ime_t) {{\@2}};\n  Parrot_gmtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022526	1022628	
==>ime_t) {{\@2}};\n  Parrot_gmtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	686	829	
==>thmetic', '',
			$self->new_item('', 'src/bignum.c', 'src/bignum.h'),
		),
		$self->new_group('Testing', '',
			$self->new_item('', 't/pmc/bignu <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	1214	1329	
==>uages/bf'),
        $self->new_section('Cola', 'cola.html', '', 'languages/cola'),
        $self->new_section('Commu <==
2	/Users/nnunley/parrot/config/inter/encoding.pm	407	511	
==>re::Step ':inter';

$description = 'Determining what encoding files should be compiled in';

@args = qw(a <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	6291	6421	
==>($def_args{$arg}) {
	my ($i, $n, $defs);
	$n = $arg_count{$arg};
	$defs = @{$def_args{$arg}};
	print "# @{$def_args{$arg}}\n";
	# X <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	52914	53121	
==>->[1]{'target'})
             : $_->[0]
        }
    @$curr_open
  ;
}

###########################################################################
my %pretty_form = (
  "\a" => '\a', # ding!
  "\b" => '\b', <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	6051	6172	
==>yebye
        $self->SUPER::parse_lines(undef);
        delete $self->{'source_scalar_ref'};
        DEBUG and print "That <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	9713	9952	
==>ctanh       complex.h
ctanhf      complex.h
ctanhl      complex.h
ctanl       complex.h
ctime       time.h
difftime    time.h
div         stdlib.h
erf         math.h
erfc        math.h
erfcf       math.h
erfcl       math.h
erff        math. <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2373	2597	
==>";
}

sub output_sub {
    my ($self, $var, $amount) = @_;
    $amount = 1 if ! defined $amount;
    my $realvar = value($var);
    return "sub $realvar, $amount";
}

sub output_set {
    my ($self, $reg, $value) = @_;
    $r <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2059	2222	
==>";
}

sub output_sub {
    my ($self, $var, $amount) = @_;
    $amount = 1 if ! defined $amount;
    my $realvar = value($var);
    return "$realvar -= $amount;";
} <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3646	3749	
==>sif ($mode eq 'compile') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_g <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3750	3853	
==>sif ($mode eq 'compile') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_g <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	24183	24311	
==>=> $expr2->[0],
    );
    push @opcodes, new LabelOp( $parser,
        'arg1' => $lbl2,
    );
    return [ $result, \@opco <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	670	827	
==>o::Construct::Type::PMC;
use Jako::Construct::Type::String;

my %types = ( 'I' => 'int', 'N' => 'num', 'P' => 'pmc', 'S' => 'str');

sub CODE_TO_NAME {
  my ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	213140	213237	
==>ps/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_NUMCMP) <= 0) {\n    {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38414	38523	
==>thods}[$n], $line, $out_name);
    }
    my $decl = $self->decl($self->{class}, $method, 0);
    my $parameter <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22379	22498	
==>>_generate($node->{children}[1]);
  $return = $self->_constant(1);
  my $temp_1 = $self->_constant(2);
  $self->_add_ins <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22880	22999	
==>>_generate($node->{children}[1]);
  $return = $self->_constant(1);
  my $temp_1 = $self->_constant(2);
  $self->_add_ins <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	5015	5197	
==>, @rest);
        } else {
            return $self->rewrite_nongreedy_plus($op, $R, @rest);
        }
    } else {
        if ($greedy) {
            return $self->rewrite_greedy_ran <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2601	2709	
==>e => $self->op } });
    $self->left->sax($handler);
    $self->right->sax($handler);
    $handler->end_eleme <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2478	2586	
==>e => $self->op } });
    $self->left->sax($handler);
    $self->right->sax($handler);
    $handler->end_eleme <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	318044	318298	
==>> 0,
                  "NAME" => "conv_u2",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	3642	3792	
==>irectories in the directory.

=cut

sub file_and_directory_paths()
{
    my $self = shift;
    
    return map  {
        File::Spec->catfile($self->{P <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	38959	39121	
==>rate_final_pir($$) {
    my $srm = shift;
    my $mv = shift;
    
    # Emit complete label.
    my $pir .= "COMPLETE:\n";

    # SRM post translation code
    $p <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	19578	19676	
==>.\\nCAN_BUILD_CALL_FRAMES is enabled, this should not happen", 58, "ascii", 0);
#else
    ns = stri <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	5973	6090	
==>ned_funcptr => 1
    );

    $conf->data->set(HAS_aligned_funcptr => 0)
        if $^O eq 'hpux';

    return $self;
} <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	287	412	
==>trict;
eval "use warnings";

package Jako::Construct::Declaration::Variable;

use Carp;

use base qw(Jako::Construct::Declarat <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26390	26507	
==>]};
				next;
			}
			last;
		}
	}
}
sub parse_call {
	# Subroutines are disguised as user-defined functions,
	# excep <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6096	6193	
==>0} = concat ${STEMP0}
${DEST0} = concat "0"
pre_call_NO_RETURN_${CURIC}:

# If it's a call to inst <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	241	337	
==>/parrot/core_pmcs.h>.

=cut

package gen::core_pmcs;

use strict;
use warnings;

use base qw(Parr <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21396	21603	
==>28
		}
	},
	{#State 66
		ACTIONS => {
			'NAME' => 120
		}
	},
	{#State 67
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRIN <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638781	638960	
==>[
                              "p"
                            ],
                  "BODY" => "#line 128 \"src/ops/pmc.ops\"\n  opcode_t* arg_op;\n  PMC *sig, *class;\n  int typ;\ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	23	111	
==>05, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Configure/Step/Base.pm 20321 2006-06-2 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	23516	23728	
==>' => 'double',
				       '$' => 'string'  );
			my $ut="";
			if ($syms[NEXT] eq "as") {
				feedme;	# "as"
				feedme; # type...
				if (exists $th{$syms[CURR]}) {
					$type=$th{$syms[CURR]};
				} elsif (exist <==
2	/Users/nnunley/parrot/lib/Test/More.pm	15005	15161	
==>fer than just C<print STDERR>.

=over 4

=item B<diag>

  diag(@diagnostic_message);

Prints a diagnostic message which is guaranteed not to interfere with
t <==
2	/Users/nnunley/parrot/tools/docs/write_docs.pl	15	209	
==>pyright (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/tools/docs/write_docs.pl 19607 2006-05-30T15:23:20.183054Z coke  $

=head1 NAME

tools/docs/write_docs.pl - Write HTML documentation

=h <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8291	8393	
==>(15);"World"
print "Foo";tab$(15);"Stuff"
print "I am the very model of a modern";tab$(15);"More"
print <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21155	21257	
==>(15);"World"
print "Foo";tab$(15);"Stuff"
print "I am the very model of a modern";tab$(15);"More"
print <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	1184	1351	
==>}
  elsif($] >= 5.008)   { *UNICODE = sub() {1}  }
  else                 { *UNICODE = sub() {''} }
}
if(DEBUG > 2) {
  print "# We are ", ASCII ? '' : 'not ', "in ASCI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	32208	32318	
==>ex and get PMC. */\n\t    sig = PF_CONST(PMC_cont(cc)->seg, results[1])->u.key;\n\t}\n    }\n\n    /* If no ele <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	344	458	
==>r;

use base qw(Jako::Construct::Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  return bless {
    T <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	341	455	
==>r;

use base qw(Jako::Construct::Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  return bless {
    T <==
2	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	773	926	
==>ile.
    open my $VERSION, '<', 'VERSION' or die "Could not open VERSION file!";
    $parrot_version = <$VERSION>;
    close $VERSION;

    chomp $parrot_ <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	16575	16704	
==>", "pcf_${return}_$params" ) :
        ( "$return", "pcf_${return}" ));

    push @{$put_pointer_ref}, << "PUT_POINTER";
        t <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3236	3355	
==>$expl, $body, $out) = ($1, $2, $3, choose($4, unescape($5), $6));

        # make the test print the last line of output <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4643	4762	
==>$expl, $body, $out) = ($1, $2, $3, choose($4, unescape($5), $6));

        # make the test print the last line of output <==
2	/Users/nnunley/parrot/config/init/hints/freebsd.pm	924	1041	
==>1,
        libparrot_shared        => 'libparrot$(SHARE_EXT).$(SOVERSION)',
        libparrot_shared_alias  => 'libpar <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	1762	1879	
==>1,
        libparrot_shared        => 'libparrot$(SHARE_EXT).$(SOVERSION)',
        libparrot_shared_alias  => 'libpar <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	13022	13178	
==>oth take blocks of code, run the code, and test whether they live or die.

=== A Note about TODO-ing tests

Sometimes a test is broken because something is n <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	12894	13072	
==>$lastback ]);
}

# scan(R) ->   scan: R or advance
#                    goto next
#           advance: pos++ or lastback
#                    goto scan
#              next:
#
# ba <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	29	202	
==>ckage Lua::parser;

use strict;

#use Math::BigFloat;

sub Error {
    my $parser = shift;
    my ($msg) = @_;

    $msg ||= "Syntax error.\n";

    if ( exists $ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	17208	17420	
==>);
	push @{$self->{"items"}}, $item;
	return $item;
}


sub preitempos
{
	return q
	{
		push @itempos, {'offset' => {'from'=>$thisoffset, 'to'=>undef},
				'line'   => {'from'=>$thisline,   'to'=>undef},
				'colu <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	816	909	
==>d of percentage

=head1 DESCRIPTION

Benchmark Parrot against other interpreters.

=head1 CONF <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	257	380	
==>e value given to lib.import()");
        }
        if (-e $path && !-d $path) {
            $*ERR.say("Parameter to lib.impo <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	1339	1481	
==>arrot will die a horrible and bizarre death
   if the stack start pointer's not set and a DOD run is
   triggered. The pointer *will* be set by <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49718	50092	
==>RESTART",
                  "NAME" => "profile",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 64,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50510	50762	
==>RESTART",
                  "NAME" => "profile",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 6 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778400	778895	
==>,
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 879,
                  "ARGS" => [
                              "p",
                              "ki",
                              "nc"
                            ],
                  "BODY" => "#line 382 \"src/ops/set.ops\"\n    {{\@1}}->vta <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7990	8089	
==>VE

# No lazy move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8847	8946	
==>VE

# No lazy move available - need to refer to register.
${STEMP0} = "$"
${STEMP1} = ${PTEMP0}["reg <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	499	607	
==>urn map {;
   m/^([-A-Za-z]+)=(\w[^\=]*)$/s or die "what's <$_>?";
   ( $1,  "{\\$2\n",   "/$1",  "}" );
 } @ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959278	959362	
==>"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, {{\@1}}, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960080	960164	
==>"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, {{\@1}}, <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9784	9883	
==>"Hello " + chr$(65);
print " World"

' Expect nothing
Dim A(10)
z=3
c=c+a(z)

' String function, who <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	7196	7338	
==>{
    my $cnt = defined $_[1] ? $_[1] : 20;
    $_[0] =~ s/(([^\n]*\n){0,$cnt}).*/$1   [...]\n/s
	if $_[0] =~ tr/\n/\n/ > $cnt;
    return unde <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	9380	9648	
==>$self->_restore($cond);
  $return = $self->_save_1 ('P');

  my $true = $self->_generate(_get_arg($node,2));
  $self->_morph($return,$true);
  $self->_add_inst('','branch',["DONE_$label"]);
  $self->_restore($true);

  $self->_add_inst("FALSE_$label");
  my $false = $s <==
2	/Users/nnunley/parrot/languages/urm/urm-old.pl	1405	1591	
==>1 ne $2) {print "Syntax error: Registers don't match!\n"; exit 1;}
	$register{$1} = eval( "$register{$2} $3 1;");
	if ($register{$1} < 0) { $register{$1} = 0 }
	$pos++;
    }
    elsif ($ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714534	714634	
==>n  STRING * const s = {{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (s && string_length <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715457	715557	
==>n  STRING * const s = {{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (s && string_length <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	13962	14104	
==>." => 41
		},
		DEFAULT => -28,
		GOTOS => {
			'number' => 39,
			'rulename' => 17
		}
	},
	{#State 23
		ACTIONS => {
			"?" => undef
		},
		D <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	14727	14848	
==>body, '{');
        die "Empty MMD body near '$total_body'"
            if (!$body_part);
        $body_part = substr($bod <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	860	1002	
==>nless') {
    $left  = $self->left->compile($compiler);
    $op    = $self->op;
    $right = $self->right->compile($compiler);
  }

  if ($kind <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	13	101	
==>C) 2001-2005, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Configure/Step/Base.pm 20321 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547582	547848	
==>P" => 0,
                  "NAME" => "fact",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548488	548754	
==>P" => 0,
                  "NAME" => "fact",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inli <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1809	1901	
==>iously:
    $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnop <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1912	2004	
==>iously:
    $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnop <==
2	/Users/nnunley/parrot/Configure.pl	2059	2226	
==>s=(flags)>

Use the given loader flags for shared libraries

=item C<--lex=(lexer)>

Specify which lexer to use.

=item C<--yacc=(parser)>

Specify which parser to use. <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1358	1457	
==>y parameters
my(@params)=('LEX','RULES','STATES');

sub new {
    my($class)=shift;
	my($errst, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1313	1407	
==>y parameters
my(@params)=('LEX','RULES','STATES');

sub new {
    my($class)=shift;
	my($errst, <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	4883	4981	
==>(Str $reason?, :$depends) returns Bool is export {
    Test::proclaim(1, "", "skip $reason", :$depe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78303	78639	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlvar",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79823	80159	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlvar",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	16600	16716	
==>ethods.

A subclass of Pod::Simple::PullParser should define a C<run> method
that calls C<< $token = $parser->get_tok <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	14513	14649	
==>g now stop reading now stop reading now stop
##
##                         HERE IT BECOMES REALLY SCARY
##
##  stop reading now stop read <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	1156	1402	
==>ribute '" . $scope . "'.")
    unless $scope eq 'global' or $scope eq 'local';
 
  confess("Unrecognized identifier kind attribute '" . $kind . "'.")
    unless $kind eq 'module' or $kind eq 'sub' or $kind eq 'var' or $kind eq 'arg' or $kind eq 'c <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3271	3387	
==>foo$="Right one"
	exit function
	foo$="Wrong one"
end function
call mysub( 78, 80)
t$=foo$
print t$
t=0
do
	print "Th <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2790	2902	
==>teger');
  $self->SYNTAX_ERROR("Can only do bitwise ops on integers") unless UNIVERSAL::isa($left_type, 'Jako::Co <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2920	3028	
==>teger');
  $self->SYNTAX_ERROR("Can only do bitwise ops on integers") unless UNIVERSAL::isa($right_type, 'Jak <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	8500	8625	
==>ml">@{[$file_call_coverage{$source_file} ? "$file_call_coverage{$source_file} %" : "n/a" ]}</a></td>
             <td>[<a href <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	7825	7938	
==>&STDOUT" or die "Can't save     stdout" if $out;
    open  OLDERR, ">&STDERR" or die "Can't save     stderr" if $e <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7875	7987	
==>&STDOUT" or die "Can't save     stdout" if $out;
    open OLDERR, ">&STDERR" or die "Can't save     stderr" if $e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	267006	267328	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "istrue",
                  "F <==
2	/Users/nnunley/parrot/languages/APL/t/APL.pm	1794	1916	
==>odo;
          Parrot::Test::language_output_is('APL', $apl, $output, $block->name);
        }
      } else {
        SKIP: <==
2	/Users/nnunley/parrot/config/auto/msvc.pm	207	313	
==>Determines whether the C compiler is actually C<Visual C++>.

=cut

package auto::msvc;

use strict;
use va <==
2	/Users/nnunley/parrot/config/auto/pack.pm	1688	1888	
==>ength $test == $size) {
                warn sprintf <<"AARGH", $size, length $test;
Configure.pl:  Unable to find a functional packtype for $_.
               Need a format for %d bytes, but '$format' <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	692	804	
==>::Value::Identifier');

  my $self = bless {
    BLOCK => $block,
    IDENT => $ident
  }, $class;

  $block->pus <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	692	804	
==>::Value::Identifier');

  my $self = bless {
    BLOCK => $block,
    IDENT => $ident
  }, $class;

  $block->pus <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	1520	1681	
==>on -v -y', 'yacc', 'byacc'], $verbose);

    unless ($prog) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    if <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822295	822388	
==>99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_INT) {\n    internal_excep <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823363	823456	
==>99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_INT) {\n    internal_excep <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	1238	1342	
==>reate the C<switch>ed and predereferenced run loop.

=item C<CPrederef>

Create the predereferenced run l <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15565	15692	
==>des, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new AssignOp( $parser,
        'result' = <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19318	19445	
==>des, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new AssignOp( $parser,
        'result' = <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	4752	4868	
==>or gosub
	push @{$code{$seg}->{code}}, "\t# On X $branch...\n";
	feedme();
	$loop=0;
	@onlab=();
	while($type[CURR] ! <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6482	6583	
==>l_defined($syms[CURR]);
		push @{$code{$seg}->{code}}, "$labels{$syms[CURR]}:   # For user branch ($sy <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8762	8863	
==>l_defined($syms[CURR]);
		push @{$code{$seg}->{code}}, "$labels{$syms[CURR]}:   # For user branch ($sy <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	6562	6682	
==>t ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically from 'src/jit/$cpuarch/core <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	23636	23775	
==>pen;

      next;
      
    } elsif($para_type eq '~end') { #/////////////////////////////////////////
      # The virtual end-document sig <==
2	/Users/nnunley/parrot/config/auto/jit.pm	1933	2055	
==>h  => $cpuarch,
        osname   => $osname
    );

    my $jitarchname = "$cpuarch-$osname";
    my ($jitcapable, $execcap <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	974	1176	
==>mmand( 
            "$PConfig{perl} languages/urm/urmc -s languages/$lang_f",
            CD => '..', # $self->{relpath}, 
            STDOUT => $pasm_f, STDERR => $pasm_f,
        );
        Parrot::Tes <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10514	10690	
==>tack;
      } elsif( $tagname eq 'Verbatim' or $tagname eq 'VerbatimFormatted') {
        --$self->{'rtfverbatim'};
      }
      defined($scratch = $self->{'Tagmap'}{"/$tagname <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1252	1359	
==>atement::Concat;
use Jako::Construct::Statement::Decrement;
use Jako::Construct::Statement::Goto;
use Jako:: <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	16691	16927	
==>alue > 255) {
        push @good , sprintf "   %-10s , chr(%s),\n", "'$name'", $value;
        push @bad  , sprintf "   %-10s , \$bad,\n", "'$name'", $value;
      } else {
        push @norms, sprintf " %-10s , chr(%s),\n", "'$name'", $ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	1615	1724	
==>main()
		#ret
	#.end
#INIT
	my($edit,@saves);
	#print CODE "\t.sub ${seg}_main\n\t\tsaveall\n";

	# If any "co <==
2	/Users/nnunley/parrot/languages/converter.pl	1049	1154	
==>uction(?)
		| terminal(?) '[' production ']' production(?)
#		{[@item]}
		{ $return = '';
		  $return .= $ <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	337	441	
==>ram,
for speed comparisons.

Calculates a value for M ops/s (million operations per second) using
integer <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	333	437	
==>ram,
for speed comparisons.

Calculates a value for M ops/s (million operations per second) using
integer <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5099	5223	
==>EXT failed ($?)\n";

        # Execute permissions on libraries is especially important on
        # some platforms
        i <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5310	5434	
==>EXT failed ($?)\n";

        # Execute permissions on libraries is especially important on
        # some platforms
        i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	567	662	
==>ct::Block');
  confess("Identifier (" . ref($ident) . ") is not!") unless UNIVERSAL::isa($ident, <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	567	662	
==>ct::Block');
  confess("Identifier (" . ref($ident) . ") is not!") unless UNIVERSAL::isa($ident, <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	37949	38074	
==>hitespace is skipped.

=item 5.

A hash reference containing various parsing options (see below)

=back

The various options t <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	1	100	
==>! perl -w
use strict;
use lib qw(lib);

my $static_dir  = "runtime/builtin";
my $dynamic_dir = "src/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497459	497863	
==>i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 571,
                  "ARGS" => [
                              "n",
                              "nc",
                              "n"
                            ],
                  "BODY" => "#line 595 \"src/ops/math.ops\"\n  {{\@1}} = floatval_mod({{\@2 <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	22541	22665	
==>b main {
    my ($default, $dump, $gen_c, $tree, @include);
    # initialization to prevent warnings
    %opt = map { $_ => 0 <==
2	/Users/nnunley/parrot/config/auto/jit.pm	673	790	
==>f ($conf->options->get('miniparrot')) {
        $self->set_result('skipped');
        return $self;
    }

    my $ver <==
2	/Users/nnunley/parrot/config/gen/cpu.pm	585	702	
==>f ($conf->options->get('miniparrot')) {
        $self->set_result('skipped');
        return $self;
    }

    my $ver <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	338159	338468	
==>ELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getstdout",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	8211	8414	
==>ars = $1;
		    $vars =~ s/[\s']//g;
		    $func_info{$cur_f}{varnames} = $vars;
		    print "# $cur_f; vars=$vars\n";
		}
	    }
	    else {
		$in_info = 0;
	    }
	}
	else {
	    next if /^\s*$/;
	    d <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	587	772	
==>f ($conf->options->get('miniparrot')) {
        $self->set_result('skipped');
        return $self;
    }

    my ($cgoto, $verbose) = $conf->options->get(qw(cgoto verbose));

    my $te <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1000688	1001386	
==>lass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1118,
                  "ARGS" => [
                              "i",
                              "ic",
                              "s",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	6490	6612	
==>dy a reserved Pod directive name"
     if exists $Known_directives{$d};
    $this->{'accept_directives'}{$d} = $type;
    D <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	49477	49753	
==>lsif($stack[-1] == length($3)) {
        # We found " >>>>", and it was exactly what we needed.  Commonest case.
        DEBUG > 4 and print " And that's exactly what we needed to close complex.\n";
      } elsif($stack[-1] < length($3)) {
        # We saw " >>>>" but needed o <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3232	3367	
==>', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P17', 'P16'],
  ['apply_COUNT', 'ne' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	31375	31598	
==>ROPER item-number element is allowed
             #  to have a number attribute.
          } else {
            die "Unhandled item type $item_type"; # should never happen
          }
          
          # =item-text thingi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572980	573074	
==>ass_String);\n  VTABLE_set_string_native(interpreter, name, {{\@2}});\n  {{\@1}} = pmc_new_init <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573890	573984	
==>ass_String);\n  VTABLE_set_string_native(interpreter, name, {{\@2}});\n  {{\@1}} = pmc_new_init <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	12284	12416	
==>h
logf        math.h
logl        math.h
longjmp     setjmp.h
lrint       math.h
lrintf      math.h
lrintl      math.h
lround      mat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700624	700928	
==>> 786,
                  "ARGS" => [
                              "p",
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	39751	39913	
==>^([INSP])_ARG_(\d+)$/ || /^([INSP])TEMP(\d+)$/) {
			my $type = $1 eq 'I' ? 'int' :
			           $1 eq 'N' ? 'num' :
					   $1 eq 'S' ? 'string' : 'pmc';
			$dec <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	11205	11335	
==>', $expect) unless $test;
        return $test;
    }

    return $self->cmp_ok($got, 'eq', $expect, $name);
}

sub is_num {
    my <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9554	9675	
==>e) {
      my $block = $self->current_block();
      my $kind = $token->text;

      my $prefix;

      if ($last_token->i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478767	478867	
==>BODY" => "#line 437 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479659	479759	
==>BODY" => "#line 437 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501531	501770	
==>line",
                  "CODE" => 576,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 621 \"src/ops/math.ops\"\n  {{\@1} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	13863	13996	
==>t_back');
    my $try_S = $self->genlabel('alt_S');
    my $next = $self->genlabel('next');

    my ($R_back, @R_ops) = $self->rewrite <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	3595	3747	
==>se are the full paths of all the files and subdirectories in the directory.

=cut

sub file_and_directory_paths()
{
    my $self = shift;
    
    return <==
2	/Users/nnunley/parrot/config/auto/funcptr.pm	157	269	
==>cptr.pm - Function Pointer Casts

=head1 DESCRIPTION

Verifies that the compiler supports function pointer casts. <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	15147	15440	
==>p_in   = join("\n    ", map {
                                "arg$_ = "
                                . ( 'short' eq $temp[$_]->[0] ? '(short)' : '' )
                                . "$temp[$_]->[1];"
                        } @tempi);
        my $temp_out  = join("\n    ", map { "$temp[$ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6988	7089	
==>e|info|docu|Text|TODO|status|MANIFEST|README/;
}

=item C<title()>

Returns the title of the file.

=c <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	13593	13728	
==>e=skipped>,</td>
	      <td class="num tests_unexpect"><tmpl_var name=unexpect></td>
	    </tmpl_loop>
	    <td><span title="Details" cl <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6302	6411	
==>es[] = {
EOM

    for my $entry (@{$vtable}) {
    next unless ($entry->[4] =~ /MMD_/);
    next if ($entry->[ <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	914	1257	
==>RING
                     Parrot_CharType Parrot_Encoding Parrot_String);

die "Usage: $0 <c source files>\n" unless @ARGV;

$|=1;
use strict;
use lib 'lib';

use Parrot::Config;
use C::Scan;
use Text::Wrap;

my @incdirs;
my $cc_inc  = $PConfig{'cc_inc'};
my $ccflags = $PConfig{'ccflags'} . " -DPARROT_IN_CORE";
while ($cc_inc  =~ s/-I(\S+)//g <==
2	/Users/nnunley/parrot/tools/dev/pbc_header.pl	806	945	
==>BC_COMPAT';
    open IN, $compat_file or die "Can't read $compat_file";
    my @lines = <IN>;
    close IN;

    my $len = 10;
    my $finge <==
2	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	736	855	
==>BC_COMPAT';
open IN, $compat_file or die "Can't read $compat_file";
my @lines = <IN>;
close IN;

my $len = 10;
my $finge <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	1170	1413	
==>instructions);
}

sub output_footer {
    my ($self, $fh) = @_;
    return 1 unless $self->{emit_main};

    print $fh <<'END';
sub reduce {
    my ($m, $input) = @_;
    return if ! $m->{'!RESULT'};
    my %r;
    while (my ($k, $v) = each %$m <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	10902	11094	
==>->vtable->
        (\w+)
        \(interpreter,
        \s*
        {{\@2}}
        \);
        \s+{{\+=\d}}/xm) {
            $jit_func = 'Parrot_jit_vtable1r_op';
            $extern = vtable <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	12954	13076	
==>my $filename = shift;

    open(my $fh, '<', $filename) or die "Can't open $filename: $!";
    my $text = do {local $/; <$f <==
2	/Users/nnunley/parrot/config/inter/progs.pm	2956	3094	
==>flags) if $ask;
    $conf->data->set(linkflags => $linkflags);

    $ldflags = $conf->data->get('ldflags');
    $ldflags =~ s/-libpath:\S+/ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10077	10190	
==>se');

    if (defined($_[0]) && length($_[0])) {
        local $" = ' ';
        _run_command(".${slash}test${exe <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10658	10771	
==>se');

    if (defined($_[0]) && length($_[0])) {
        local $" = ' ';
        _run_command(".${slash}test${exe <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	6987	7115	
==>or. Unable to open file '$file' for reading.\n"
    unless $fh;

  my @lines = <$fh>;

  return @lines;
}


#
# scan_file()
#

su <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	4764	4875	
==>f") {
		my $c;
		$c=pop @ifstack;
		push(@{$elsestack->{$elsetag}}, $elseline);
		($result, $type, @code)=EXPRES <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5154	5315	
==>= $first;";
        }
    }
    push @ops, "goto $fail;";

    push @ops, $self->output_label_def($passLabel);
    return @ops;
}

sub output_initgroup {
    my ( <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4947	5084	
==>' . $_[0]->path . ": $!";
    
    $_[0]->SUPER::delete;
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::IO::Directory>

=item C<Parro <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	68656	68849	
==>("Multiple positive and/or negative lookaheads
			       are simply multiplied together to produce a
			       single positive or negative lookahead
			       specification. In this case the seq <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	63460	63589	
==>to match: /%s/>

C<extract_tagged> matched the specified opening tag and tried to
modify the matched text to produce a matching cl <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	32281	32396	
==>t's empty
      if(  @{$treelet->[$i]} == 2
       or (@{$treelet->[$i]} == 3 and $treelet->[$i][2] eq '')
      ) { <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	42683	42798	
==>t's empty
      if(  @{$treelet->[$i]} == 2
       or (@{$treelet->[$i]} == 3 and $treelet->[$i][2] eq '')
      ) { <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1003	1088	
==>code - (opcode_t*)interpreter->code->prederef.code))
#define CUR_OPCODE ((opcode_t*)cu <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1133	1218	
==>code - (opcode_t*)interpreter->code->prederef.code))
#define CUR_OPCODE ((opcode_t*)cu <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	760	870	
==>'PARROT_SWITCH_CORE';
}

=item C<core_prefix()>

The prefix is C<'switch_'>.

=cut

sub core_prefix
{
    retur <==
2	/Users/nnunley/parrot/examples/benchmarks/stress.pl	527	648	
==>ray {
    my @foo;
    foreach (1..10000) {
	$foo[$_] = $_;
    }
    return \@foo;
}

=head1 SEE ALSO

F<examples/benchma <==
2	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	436	557	
==>ray {
    my @foo;
    foreach (1..10000) {
	$foo[$_] = $_;
    }
    return \@foo;
}

=head1 SEE ALSO

F<examples/benchma <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	7192	7338	
==>act $I3

    $N2 /= $N3 
    $N2 /= $N1 
    .return($N2)
.end

.sub unicode:"dyadic:\u2373" :multi(APLVector, APLVector) # index of
    .param pmc <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	4497	4598	
==>, $args[$_])[1] } (0..$#args);
    $macros .= <<"EOM";
#define VTABLE_$entry->[1]($args) \\
    (pmc)- <==
2	/Users/nnunley/parrot/Configure.pl	8496	8603	
==>nd prod your system to figure out
how to build Parrot. The process is completely automated, unless you passe <==
2	/Users/nnunley/parrot/examples/benchmarks/addit.pl	228	327	
==>SYNOPSIS

    % time perl examples/benchmarks/addit.pl

=head1 DESCRIPTION

Joe Wilson's original Pe <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4266	4363	
==>l($core)>

Returns the C code for the run core function declaration.

=cut

sub run_core_func_decl <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2754	2851	
==>l($core)>

Returns the C code for the run core function declaration.

=cut

sub run_core_func_decl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	315847	316207	
==>LAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 369,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 82 \"src/ops/dotgnu.ops\"\n  i <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	18079	18228	
==>might not be called 'new'
       * the class might not have a hash-like-arguments constructor
       * the class might not have a no-argument construc <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	136	237	
==>e Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm 19606 2006-05-3 <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41488	41680	
==>$rightarg->code(@_[1..2]) . '
		  $repcount++;
		  ';
	}

	$code .= 'unless (@item) { undef $_tok; last }' unless $self->{min}==0;

	$code .= '
		  $_tok = [ @item ];
		  last;
		} 

		unless ( <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	16484	16640	
==><$op->{type}op:leftarg /op/ rightarg>");
	    }
	    else
	    {
		push @{$self->{items}},
			Parse::RecDescent::Operator->new(
				$op->{type}, $minrep, $ma <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	38124	38261	
==>tion.
	$pir .= "    goto TRANS_LOOP\n\n";

	# Clean up meta-variables hash.
	foreach (@localmv) {
		delete $mv->{$_};
	}

	# Return genera <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840147	840232	
==>c/ops/stack.ops\"\n  rotate_entries(interpreter, &CONTEXT(interpreter->ctx)->user_stac <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840842	840927	
==>c/ops/stack.ops\"\n  rotate_entries(interpreter, &CONTEXT(interpreter->ctx)->user_stac <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	21784	21961	
==>', sort keys %$map)
     ? "  (all normal)\n" : "\n"
  ;

  # A recursive algorithm implemented iteratively!  Whee!
  
  my($is, $was, $i, $treelet); # scratch
  while($treelet = <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1820	1919	
==>ule_isnt($target, $pattern, $description, @todo)>

Runs the target string against the Perl 6 pattern <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	72	275	
==>environment
$Test::ALWAYS_CALLER = %*ENV<TEST_ALWAYS_CALLER>;

### GLOBALS

# globals to keep track of our tests
$Test::num_of_tests_run    = 0;
$Test::num_of_tests_failed = 0;
$Test::num_of_tests_badpass <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14146	14245	
==>ranch', ["DONE_$label"]);
    $self->_add_inst ("FAIL_$label", 'set', [$return,0]);
    $self->_add_ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16414	16509	
==>ranch', ["DONE_$label"]);
  $self->_add_inst ("FAIL_$label", 'set', [$return,0]);
  $self->_add_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710825	711019	
==>{{\@1}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711659	711853	
==>{{\@1}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	5373	5505	
==>jfile, NULL, RTYPE_DATA, "const_table", 0);/g;
                $asm =~ s/jit_emit_end/exec_emit_end/;
            }
            if (( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10047	10173	
==>/eg;
      return $x;
    }
  }
  foreach my $x (@_) {
    # Escape things very cautiously:
    $x =~ s/([^\n\t !\#\$\%\(\)\*\+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196910	197337	
==>S" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 233,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 3 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	4132	4249	
==>UNDEFINED;
	
	$type = $self->type_for_name($self->name);
	
	return $type unless $type eq $UNDEFINED;
	
	return 'Execut <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	974	1070	
==>xpression::Value::Identifier');
  confess "Left is not Value!" if defined $left and not UNIVERSAL <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1002	1098	
==>xpression::Value::Identifier');
  confess "Left is not Value!" if defined $left and not UNIVERSAL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51313	51568	
==>OT_JUMP_RESTART",
                  "NAME" => "trace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52095	52350	
==>OT_JUMP_RESTART",
                  "NAME" => "trace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86749	87026	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new_callback",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87750	88027	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new_callback",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3924	4097	
==>cut found outside a pod block.  Skipping to next block."
          );
          
          ## Before there were errata sections in the world, it was
          ## least-pessim <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615064	615341	
==>f object\");\n    }\n    {{\@1}} = offset;\n    {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616215	616492	
==>f object\");\n    }\n    {{\@1}} = offset;\n    {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527349	528028	
==>" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 609,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 833 \"src/ops/math.ops\"\n  {{\@1}} = atan((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	885	989	
==>ref($props) ne "HASH";
  confess "Args are not hash!" if defined $args and ref($args) ne "ARRAY";

  my $ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	10335	10442	
==>Expect Correct
DIM A(1,1)
RO=1
IF A(RO,5)=0 THEN GOSUB 20: REM GOO
   end
20 print "Correct"
   return


' E <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9151	9257	
==>Expect Correct
DIM A(1,1)
RO=1
IF A(RO,5)=0 THEN GOSUB 20: REM GOO
   end
20 print "Correct"
   return

' E <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	195826	195969	
==>"JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt_num",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	3785	4034	
==>d1 DESCRIPTION

Primarily intended to be used by C<pirtidy.pl>. Given some ugly PIR,
format it nicely.

=head2 SUBROUTINES/METHODS

=over 4

=item $obj = C<new([code])>

Returns C<$obj> as a new instance.

=item C<$obj->add_pir($code, $code, ...)>

A <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1297	1389	
==>>is_tag(I<somestring>) or $token->is_tagname(I<somestring>)

These are shortcuts for C<< $tok <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1727	1819	
==>>is_tag(I<somestring>) or $token->is_tagname(I<somestring>)

These are shortcuts for C<< $tok <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	16449	16597	
==>$func} = sub {
            my ( $code, $expected, $desc, %extra ) = @_;

            # Strange Win line endings
            convert_line_endings( $ex <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3272	3433	
==>types);

%pmc_types = (
END_PM

    for my $num (0 .. $#pmcs) {
        my $id = $num + 1;
        print OUT "\t$pmcs[$num] => $id,\n";
    }

    print OUT <<'EN <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	11287	11418	
==>ad1
      if( $token->is_text ) {
        DEBUG and print "   Adding \"", $token->text, "\" to head1-content.\n";
        $head1_tex <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	246222	246829	
==>":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 286,
                  "ARGS" => [
                              "i",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 643 \"src/ops/cmp.ops\"\n  {{\@1}} = mmd_dispatch_i_pp(interpreter, {{\@2}}, {{\@3}}, MMD_NUMCMP);\n  {{+=4}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	42393	42549	
==>y implemented that way, in order
to preserve pre-5.005 compatibility).

Using C<gen_extract_tagged> to create extraction functions for specific tags 
is a go <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19551	19655	
==>ammar.y"
{ return op('classpieces' => [ $_[1] ]); }
	],
	[#Rule 13
		 'expr', 2,
sub
#line 117 "lib/Regex <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2505	2616	
==>$in =~ m/^\d+$/s) {
    return 0 + $in;
  } else {
    return $Name2character_number{$in}; # returns undef if un <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	10813	10914	
==>] unless defined $return;'.($::RD_NO_TRACE?'':'
	if (defined $::RD_TRACE)
	{
		Parse::RecDescent::_tra <==
2	/Users/nnunley/parrot/config/init/hints/aix.pm	128	312	
==>ckage init::hints::aix;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    $conf->data->set(
        cc           => 'cc_r',
        link         => 'cc_r',
        platform_a <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	5187	5302	
==>k
   my $svn_cmd;
   if (defined $Parrot::Revision::svn_entries 
            && $Parrot::Revision::svn_entries =~ m/ <==
2	/Users/nnunley/parrot/config/auto/readline.pm	260	386	
==>e.

=cut

package auto::readline;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

u <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	426	537	
==>ass = shift;
  my ($block, $left, $right) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	417	528	
==>ass = shift;
  my ($block, $left, $right) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL: <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	360	472	
==>e build tool takes this and generates the
actual compiler for that command.

Many builtins need to use the same t <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	11784	12032	
==>er
assignment) is returned. If the element type is C<'*$'>, a reference
to the element is returned.

=item Array (C<'@'> or C<'*@'>)

The element is an array, initialized by default to C<()>.

With no argument, the accessor returns a reference to th <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	4732	4893	
==>',[$return,'.String']);
      $self->_add_inst ('', 'set',[$return,"\"$value\""]);
    }
  }
  elsif (exists $node->{children}) {
    my $children = $node->{child <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	993	1114	
==>004;

use strict;

use vars qw ( $VERSION $COMPATIBLE $FILENAME );

$VERSION = '1.05';
$COMPATIBLE = '0.07';
$FILE <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	963	1076	
==>004;

use strict;

use vars qw ( $VERSION $COMPATIBLE $FILENAME );

$VERSION = '1.05';
$COMPATIBLE = '0.07';
$FILE <==
2	/Users/nnunley/parrot/config/init/hints/darwin.pm	1095	1272	
==>=> '-bundle -undefined suppress',
        memalign            => 'some_memalign',
        has_dynamic_linking     => 1,
        # XXX when built against a dynamic libparrot insta <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322742	323103	
==>RS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 378,
                  "ARGS" => [
                              "i",
                              "nc"
                            ],
                  "BODY" => "#line 134 \"s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	394199	394473	
==>er, {{\@2}});\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722774	723188	
==>t_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 810,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	6410	6549	
==>};
    foreach my $entry (@{ $vt->{methods} } ) {
	$self->{all}{$entry->{meth}} = $entry->{section};
    }
}

=item C<make_const($class)>

I <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21533	21693	
==>ubroutine Return Statements:
    #
    #   return;
    #   return <value>;
    #

    if ($token->is_return) {
      my $block = $self->current_block();

      m <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	17616	17751	
==>NULL;
    Hash       *known_frames  = NULL;
    PMC        *HashPointer   = NULL;

#if defined(CAN_BUILD_CALL_FRAMES)

    /* Try if JIT <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2606	2713	
==>"$cmd |") or die "Error invoking '$cmd': $!";
    my $tmp;
    my %generated_files;
    while (<GCOVSUMMARY> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021707	1021888	
==>ot_gmtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022549	1022730	
==>ot_gmtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6044	6201	
==>"\n";
			};

            $act=   exists($$actions{ACTIONS}{$$token})
                    ?   $$actions{ACTIONS}{$$token}
                    :   exists($ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5759	5911	
==>"\n";
			};

            $act=   exists($$actions{ACTIONS}{$$token})
                    ?   $$actions{ACTIONS}{$$token}
                    :   exists($ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	674	902	
==>>peer ? $peer->prefix : $compiler->block_label($kind);
    $self->prefix($prefix);
  }

  my $namespace = $prefix;

  my $left;
  my $op;
  my $right;

  if ($kind eq 'if' or $kind eq 'unless') {
    $left  = $self->left->compile <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	654	766	
==>>peer ? $peer->prefix : $compiler->block_label($kind);
    $self->prefix($prefix);
  }

  my $namespace = $prefix <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2746	2844	
==>end_element({ Name => 'block' });
  }

  $handler->start_element({ Name => 'block', Attributes => { <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2623	2721	
==>end_element({ Name => 'block' });
  }

  $handler->start_element({ Name => 'block', Attributes => { <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	192	376	
==>ory

=head1 SYNOPSIS

    use Parrot::Docs::Directory;

=head1 DESCRIPTION

This C<Parrot::Docs::Directory> subclass creates C<Parrot::Docs::Files>.

It's used by the documentation tool <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	405	564	
==>urn $self;
}

sub init {
}

sub optimize_tree {
    my ($self, $t, $ctx) = @_;
    $t = $self->pass1($t, $ctx);
    # Disable implicit checks
    $t = $self->ma <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7794	7982	
==>s .. -1 ]
                        :   ();

            $semval = $code ? &$code( $self, @sempar )
                            : @sempar ? $sempar[0] : undef;

            splice(@$sta <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7442	7624	
==>s .. -1 ]
                        :   ();

            $semval = $code ? &$code( $self, @sempar )
                            : @sempar ? $sempar[0] : undef;

            splice(@$sta <==
2	/Users/nnunley/parrot/lib/Test/More.pm	8095	8287	
==>e same as bar?
    #     Failed test (foo.t at line 139)
    #          got: 'waffle'
    #     expected: 'yarblokos'

So you can figure out what went wrong without rerunning the test.

You are <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	3300	3415	
==>0 = cmp_num $N100, 0.0
    %1 = $I100
END_PIR
    $P0[unicode:"monadic:\x{f7}"] =  <<"END_PIR"            # reciproc <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	58464	58679	
==>],
	[#Rule 99
		 'parlist1', 3,
sub
#line 528 "Lua\lua51.yp"
{
            [
                @{ $_[1] },
                BuildParam( $_[0], $_[3] ),
            ];
        }
	],
	[#Rule 100
		 'parlist1' <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15978	16092	
==>= AUTHORS

Audrey Tang <autrijus@autrijus.org>

Benjamin Smith

Norman Nunley

Steve Peters

Stevan Little <stevan@ <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	12495	12658	
==>or(s=str; *s; s++)
        key = key * 65599 + *s;
    return key;
}

static void store_op(op_info_t *info, int full) {
    HOP * const p = mem_sys_allocate(sizeof( <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	29969	30067	
==>e. (E.g., in "L<Perl
# Functions|perlfunc>", the name -- also sometimes called the page -- is
# "pe <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	298	511	
==>hrowable
END_OF_PIR

my %scalar = (
    '+' => [ 'Add', '%1 = %1 + %2' ],
	'*' => [ 'Power', << 'END_PIR' ],
	# XXX This is too restrictive. Need better tests
    if %1 >= 0 goto power_ok
%% DOMAIN_ERROR %%
power_o <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	515	638	
==>h_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBUG and print "++ $_[1]\n";
  
  print $fh   '  ' x ($_[0]{'inde <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	514	637	
==>h_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBUG and print "++ $_[1]\n";
  
  print $fh   '  ' x ($_[0]{'inde <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	4538	4659	
==>d will harm
            # us -Wpadded may prove interesting, or even noisy.
            # -Wunreachable-code might be usef <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	687	790	
==>") is not!" if defined $type and not UNIVERSAL::isa($type, qw(Jako::Construct::Type));
  confess "Identi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	805	904	
==>") is not!"   if defined $type and not UNIVERSAL::isa($type, qw(Jako::Construct::Type));
  confess " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85340	85515	
==>p",
                              "s"
                            ],
                  "BODY" => "#line 1208 \"src/ops/core.ops\"\n  PMC * const compreg_hash = VTABLE_get_pmc_k <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	535	642	
==>e },
  q{""} => sub { $_[0]->name }
;

use Jako::Token;

use Jako::Construct::Type::Integer;
use Jako::Const <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738487	738942	
==>" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 830,
                  "ARGS" => [
                              "n",
                              "sc"
                            ],
                  "BODY" => "#line 149 \"src/ops/set.ops\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	739251	739699	
==>" => "set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 831,
                  "ARGS" => [
                              "n",
                              "p"
                            ],
                  "BODY" => "#line 154 \"src/ops/se <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3904	4023	
==>y moves
    # beneath this point.
    $pir .= _do_lazy_moves('_${CURIC}') if $pushes;

	# Do code for each push.
	$pir . <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4413	4534	
==>$handler->end_element({ Name => 'literal' });
      }

      $handler->end_element({ Name => 'concat' });
    }
    else { <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28505	28622	
==>> 141,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	2311	2525	
==>ops/core.ops\"\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cpu_ret",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684093	684395	
==>"JUMP" => 0,
                  "NAME" => "setprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684987	685289	
==>"JUMP" => 0,
                  "NAME" => "setprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function" <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4126	4258	
==>nts and returns a L<Parrot::Configure::Data> object.

=cut

sub clean
{
    my $self = shift;

    delete $self->{c}{$_} for grep { / <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103837	1103938	
==>erimental.ops\"\n\tSTRING *class = {{\@2}};\n\tINTVAL type = pmc_type(interpreter, class);\n\tif (!typ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105052	1105153	
==>erimental.ops\"\n\tSTRING *class = {{\@2}};\n\tINTVAL type = pmc_type(interpreter, class);\n\tif (!typ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	63083	63239	
==>operators C<s>, C<tr> or C<y> followed by only one block.

=item C<No match found for opening bracket>

C<extract_codeblock> failed to find a closing bracket <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934111	934386	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "down <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934886	935161	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "down <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4434	4599	
==>}\s*#\s*_Parse\s*$/
        	and     do {
                	s/^#DBG>//;
                	push(@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eva <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4212	4368	
==>}\s*#\s*_Parse\s*$/
        	and     do {
                	s/^#DBG>//;
                	push(@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eva <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32042	32150	
==>"' . $self->{"pattern"} . '"; 1 } and
		     substr($text,0,length($_tok)) eq $_tok and
		     do { substr($t <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11232	11354	
==>ed ',': $syms[CURR]" unless $syms[CURR] eq ",";
	feedme();
	my($rightres, $righttype, @right)=EXPRESSION({lhs => 1});
	push <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	4519	4620	
==>ut output_fh.  Simplifies our code.
  #
  my $this = shift;
  return $this->{'output_string'} unless @ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8564	8652	
==>data "ABANDON","CHART","COMPUTER"
data "DAMAGES","DESTRUCT","DOCK","IDLE","IMPULSE","LRSC <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21428	21516	
==>data "ABANDON","CHART","COMPUTER"
data "DAMAGES","DESTRUCT","DOCK","IDLE","IMPULSE","LRSC <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	20892	21021	
==>ge_output_like',
        example_output_isnt => 'language_output_isnt',
                           );

    foreach my $func ( keys <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	35890	36276	
==>RS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 45,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 697 \"src/ops/core.ops\"\n  PMC * const eh = pmc_new(interpreter, enum_class_Exception_Handler);\n  VTABLE <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	3142	3319	
==>Accessibility
            I18N.CJK
            I18N.MidEast
            I18N.Other
            I18N.Rare
            I18N.West
            I18N
            ICSharpCode.Sha <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305138	305401	
==>ROT_JUMP_RELATIVE",
                  "NAME" => "if_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305926	306189	
==>ROT_JUMP_RELATIVE",
                  "NAME" => "if_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7102	7204	
==>d     = ref($options{reject}) eq 'ARRAY' ? join('|', @{$options{reject}})
		    : defined($options{reje <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24104	24206	
==>d     = ref($options{reject}) eq 'ARRAY' ? join('|', @{$options{reject}})
		    : defined($options{reje <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685882	686182	
==>"JUMP" => 0,
                  "NAME" => "getprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functio <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686771	687071	
==>"JUMP" => 0,
                  "NAME" => "getprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functio <==
2	/Users/nnunley/parrot/examples/benchmarks/oo3.pl	8	120	
==>-w
use strict;

my $o = new Foo();
for my $i (1 .. 500000) {
	my $x = $o->[0];
	my $y = $o->[1];
}
print $o->[0], <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	2149	2374	
==>is an existing one, stash it.
            if ($cur_method) {
                push @methods, $cur_method;
            }

            # Initiate new method info.
            $cur_method = {
                class           => $1, <==
2	/Users/nnunley/parrot/config/init/defaults.pm	2532	2723	
==>ally loadable
        # modules. Often $cc on Unix-ish systems, but apparently sometimes
        # it's ld.
        ld      => $Config{ld},
        ldflags => $Config{ldflags},

        # Some <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668833	669093	
==>],
                  "TYPE" => "inline",
                  "CODE" => 748,
                  "ARGS" => [
                              "p",
                              "n"
                            ],
                  "BODY" => "#line 410 \"src/ops/pmc.ops\ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	59325	59541	
==>],
	[#Rule 105
		 'tableconstructor', 2,
sub
#line 566 "Lua\lua51.yp"
{
            BuildTable( $_[0], [] );
        }
	],
	[#Rule 106
		 'fieldlist', 2, undef
	],
	[#Rule 107
		 'fieldlist', 1, undef
	] <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	688	785	
==>s not defined!" unless defined $right;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'J <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	700	797	
==>s not defined!" unless defined $right;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'J <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	5638	5728	
==>th($_)} $self->directory_paths;
}

=item C<file_suffixes($recursive, $ignore)>

Use this to <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51701	51813	
==>ine 815 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_trace(interpreter,   {{\@1}}); }\n  else         { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52484	52596	
==>ine 815 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_trace(interpreter,   {{\@1}}); }\n  else         { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050670	1051151	
==>",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1174,
                  "ARGS" => [
                              "p",
                              "sc",
                              "s"
                            ],
                  "BODY" = <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	3941	4066	
==>'AElig'    , 198,
 'Ccedil'   , 199,
 'Egrave'   , 200,
 'Eacute'   , 201,
 'Ecirc'    , 202,
 'Euml'     , 203,
 'Igrave'   , <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822116	822207	
==>120 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CON <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823184	823275	
==>120 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CON <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948119	948397	
==>}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_cha <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958571	958846	
==>}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063796	1064143	
==>",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1188,
                  "ARGS" => [
                              "p",
                              " <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2421	2555	
==>R})
	or	$$self{USER}={};

	$$self{USER};
	
}

sub YYErrok {
	my($self)=shift;

	${$$self{ERRST}}=0;
    undef;
}

sub YYN <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2326	2446	
==>R})
	or	$$self{USER}={};

	$$self{USER};
	
}

sub YYErrok {
	my($self)=shift;

	${$$self{ERRST}}=0;
    undef;
}

sub YYN <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	5073	5248	
==>stmt (reverse @output2) {
	$stmt->{'next'} = $next;
	$next = $stmt;
    }

    # Push first statement on the queue
    my @Q = ($output2[0]);

  BBLOCK:
    while (my $stmt = s <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	1587	1702	
==>[];
    my $fh = FileHandle->new($file, O_RDONLY) or
        die "Can't open $file for reading: $!\n";
    my $secti <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	5672	5787	
==>leNum="dsString" color="#FF6C6C" selColor="#FF6C6C" bold="0" italic="0" />
      <itemData name="String Interp" defS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023383	1023498	
==>2}};\n  Parrot_localtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024233	1024348	
==>2}};\n  Parrot_localtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  " <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2996	3109	
==>S}} - 1;

		$index < 0
	and	-$index <= @{$$self{STACK}}
	and	return $$self{STACK}[$index][1];

	undef;	#Inva <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2852	2959	
==>S}} - 1;

		$index < 0
	and	-$index <= @{$$self{STACK}}
	and	return $$self{STACK}[$index][1];

	undef;	#Inva <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	6820	7083	
==>g, $closetag, $pre, \%options)
{
	my $textref = defined $_[0] ? \$_[0] : \$_;
	my $ldel    = $_[1];
	my $rdel    = $_[2];
	my $pre     = defined $_[3] ? $_[3] : '\s*';
	my %options = defined $_[4] ? %{$_[4]} : ();
	my $omode   = defined $options{fail} ? $options{f <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	1710	1896	
==>:Ops::Tree::advance::ISA      = qw(Regex::Ops::Tree::_atom);

@Regex::Ops::Tree::nop::ISA          = qw(Regex::Ops::Tree);
@Regex::Ops::Tree::check::ISA        = qw(Regex::Ops::Tree);

@R <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951269	951519	
==>ARGS" => [
                              "s",
                              "sc",
                              "i"
                            ],
                  "BODY" => "#line 540 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interp <==
2	/Users/nnunley/parrot/lib/Test/More.pm	20477	20570	
==>kipped, but passing, tests.

It's important that $how_many accurately reflects the number of t <==
2	/Users/nnunley/parrot/config/gen/platform.pm	3724	3894	
==>rm.c" or die "Can't open src/platform.c: $!";

    print PLATFORM_C <<"END_HERE";
/*
** platform.c [$platform version]
**
** DO NOT EDIT THIS FILE
**
** Generated by confi <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	433	524	
==>use Parrot::IO::Directory;

=item C<tmp_file($path)>

Returns the file for C<$path> relative <==
2	/Users/nnunley/parrot/examples/benchmarks/addit.pl	645	764	
==>0] = 1000;
$args[1] = 7.100;
$args[2] = 87;
$args[3] = "3.87";
$args[4] = "21000000";
for (my $x = 500000; $x >= 0; --$x <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943304	943616	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fun <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944092	944404	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fun <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	37358	37472	
==>DEBUG and print "Treating $para_type paragraph as such because stack is empty.\n";
        } else {
          my @f <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	5788	6014	
==>he
directory.

C<$recursive> and C<$ignore> function as specified above for C<files()>.

For example:

    $parrot->file_suffixes(1, '^(SVN|icu)$');

will give you all the suffixes used in Parrot ignoring all SVN and ICU
files. <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11222	11314	
==>}["reg_type_short"]
${DEST0} = concat ${STEMP0}
inc stack_depth
${STEMP0} = stack_depth
${DES <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8408	8500	
==>}["reg_type_short"]
${DEST0} = concat ${STEMP0}
inc stack_depth
${STEMP0} = stack_depth
${DES <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	1902	2012	
==>eoccur if #line directives
    # are used.
    my %lines_seen;
    while (<IN>) {
	if (m/^\s*#\s*line\s+(\d+)/) <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	1792	1950	
==>es/dynoplibs_pl.in' => 'tools/build/dynoplibs.pl',
        commentType                             => '#',
        replace_slashes                         => 0 <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	23551	23708	
==>rgs;
    push @localmv, 'ARGCOUNT';
	my $arg_num = 0;
	my $arg_size = 0;
	foreach (@args) {
		my $out;
		my $arg_name;

		# uint8
		if (/^uint8$/) {
			$out = <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	487	596	
==>nd do the same kind
of optimizations. By making the inlined versions more declarative, this
lets us do this wo <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18314	18438	
==>FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36,
			")" => 99
		},
		GOTOS => {
			'exp' => 100,
			'functioncall <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18647	18745	
==>e (1) {
          push @args, Jako::Construct::Expression::Value->new($block, $self->require_value) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19673	19771	
==>e (1) {
          push @args, Jako::Construct::Expression::Value->new($block, $self->require_value) <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	13981	14122	
==>q '-' or $source =~ m/^<&(STDIN|0)$/i
  ) { 
    $source = *STDIN{IO};
  }

  if(!defined $to) {             $self->output_fh( *STDOUT{IO}   ) <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1268	1383	
==>n is not available in the
        # standard edition compiler' warning each time we compile.
        # The logo gets <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058965	1059224	
==>> 1182,
                  "ARGS" => [
                              "p",
                              "kc",
                              "sc"
                            ],
                  "BODY" => "#line 194 \"src/ops/var.ops\"\n    {{\@1}} = Parrot_get_ <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	4589	4722	
==>$(RM_F) $_.pir\n";
        }
        return $code;
    } else {
        # Just say that we weren't configured with mono path, so n <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	8419	8649	
==>= 1;
    my $idx = -@end_boilerplate;
    my $mismatch_at = 0;
    while ($idx < 0) {
        next unless defined $source->[$idx];

        if ($source->[$idx] !~ /\Q$end_boilerplate[$idx]\E/) {
            if ($ok == 2) { $mismatc <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16290	16436	
==>ML didn't check this.
            return $x unless $x;
            $x =~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnop <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322369	322631	
==>TVAL)((Parrot_UInt4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323141	323403	
==>TVAL)((Parrot_UInt4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
2	/Users/nnunley/parrot/lib/Test/More.pm	37118	37311	
==>@pobox.comE<gt> with much inspiration
from Joshua Pritikin's Test module and lots of help from Barrie
Slaymaker, Tony Bowden, blackstar.co.uk, chromatic, Fergal Daly and
the perl-qa gang.


=hea <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	6462	6581	
==>{=\*}}/            $trans->goto_pop();       /me;

    s/{{\+=([^{]*?)}}/    $trans->goto_offset($1);  /me;
    s/{{-=([ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	2922	3024	
==>t
# many tokens (at most, given the possibility of running of the end) are
# returned. If a count is no <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2044	2215	
==>are_flags       => '-dll',
            ld_load_flags        => '-dll',
            ld_out               => '-out:',
            ldflags              => '-nologo -nodefaultl <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4027	4198	
==>are_flags       => '-dll',
            ld_load_flags        => '-dll',
            ld_out               => '-out:',
            ldflags              => '-nologo -nodefaultl <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	518	643	
==>::Docs::Item );

=item C<new_group($name, $text, @items)>

Returns a new group.

Use this when creating groups within a C<Parr <==
2	/Users/nnunley/parrot/config/auto/snprintf.pm	2	102	
==>Copyright (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/config/auto/snprintf.pm 19593 2006-05-30 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5784	5884	
==>, qq!<rx_match>{"$group"}->[1] = $value; # close group $group!;
    return @ops;
}

sub output_getsta <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	707668	707867	
==>",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51306	51539	
==>XT|PARROT_JUMP_RESTART",
                  "NAME" => "trace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52088	52321	
==>XT|PARROT_JUMP_RESTART",
                  "NAME" => "trace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	36422	36550	
==>';
        $para_type = '?Verbatim';
      } elsif($para_type eq '~Para') {
        $para->[0] = 'Para';
        $para_type = '?P <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	3189	3339	
==>iler->emit("  _${name}(" . join(", ", @args) . ")");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler- <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	29053	29157	
==>r {
}

sub _op_char_p {
}

sub _op_char_eq_p {
}

sub _op_char_lt_p {
}

sub _op_char_gt_p {
}

sub _op_c <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1453	1558	
==>x
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'op', Attributes => { k <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1447	1552	
==>x
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'op', Attributes => { k <==
2	/Users/nnunley/parrot/languages/regex/test.pl	89	234	
==>iver;
# use lib "$FindBin::Bin/../../lib";
# use Parrot::Config;
use strict;

# Running this with perl5.005 produces:
# Can't locate object method <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1290	1429	
==>RGS};
    }
}

=item C<arg($index)>

Returns the argument at index C<$index>.

=cut

sub arg
{
    my $self = shift;

    return $self->{ARG <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19061	19168	
==>p}:\n";
		return;
	}
	if ($do->{needstmt}) {
		my $false="0.0";
		feedme();
		my $which=$syms[CURR];
		my($r <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	8189	8350	
==>Seconds->new($10)->minutes) . "&nbsp;min",
      summary       => [{
        total       => $11,
        ok          => $12,
        failed      => $13,
        t <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	892	1023	
==>ister mapper\n";
}
sub post_op {
	die "post_op not implemented for current stack to register mapper\n";
}

# Pre and post branch ope <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115272	115500	
==>,
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 209 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} << {{\@3}};\n  {{+=4}};\n",
                  " <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1916	2030	
==>y ($formal_arg_type, $formal_arg_name) = @{$formal_args[$i]};
    my $actual_arg_type;

    if (UNIVERSAL::isa($arg <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1616	1730	
==>y ($formal_arg_type, $formal_arg_name) = @{$formal_args[$i]};
    my $actual_arg_type;

    if (UNIVERSAL::isa($arg <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	54869	55001	
==>BuildLogop( $_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 72
		 'exp', 3,
sub
#line 397 "Lua\lua51.yp"
{
            Bu <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5610	5846	
==>r the name C<$trigger>

Accepts a key name & a trigger name and returns a C<CODE> ref.

=cut

sub gettrigger
{
    my ($self, $key, $trigger) = @_;

    return
        unless defined $self->{triggers}{$key}
        and defined $self->{tr <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23265	23489	
==>to = Jako::Construct::Statement::Goto->new($block, $ident, $cond, $left, $op, $right);
      next;
    }

    #
    # Loop Control Statements:
    #
    #   next;
    #   next if     (<value> <op> <value>);
    #   next unles <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5485	5608	
==>m(@_) == 0;
}

# XXX: ordering of libs might be crucial
sub gather_groups_and_libs {
    my @pmcs = @_;

    my ( %group_fil <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5696	5819	
==>m(@_) == 0;
}

# XXX: ordering of libs might be crucial
sub gather_groups_and_libs {
    my @pmcs = @_;

    my ( %group_fil <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	5061	5197	
==>g, $cmt) = @_;
    my $nst = "";
    my $ns = $namespace{$arg};
    my $real_name = $arg;
    my $meth = '';
    if ($ns) {
	$meth = ', m <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	31138	31290	
==>ill die with a fairly friendly
error message.

=cut

#'#
sub _sanity_check {
    my $self = shift;

    _whoa($self->{Curr_Test} < 0,  'Says here you ran <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5805	5921	
==>up"}->[1] = $value; # close group $group!;
    return @ops;
}

sub output_getstart {
    my ($self, $reg, $group) = @ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	461	610	
==>x, greedy, R)
#
# O (atend) : return whether at end of input string
# O (advance, n) : advance input <n> chars
# O (fork, R)
# O (reverse_fork, R)
# O <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	28625	28755	
==>["_message"\] = "Foo"
EOC
	$throw = "throw $x # TODO create, args";
    }
    print <<EOC;
	$throw $cmt
EOC
}
sub GET_ITER
{
    my <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203438	203712	
==>" => 240,
                  "ARGS" => [
                              "sc",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 380 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter, {{\@ <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	6610	6744	
==>f "case %d: PC_%d: {\n", $cur_blk->[0], $cur_blk->[0];

	foreach $pc (@{$cur_blk}) {
	    $op = $opcodes{$pc}->{op};
	    $trans->pc($p <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	3167	3379	
==>sr printGroup
    inc match_num
    goto printLoop
done:
    .return ()

printGroup:
    .local int match_start
    .local int match_end
    set match_start, result[match_num;0]
    set match_end, result[match_num <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	3501	3630	
==>s the same as C<name()>. For ops with
arguments, an underscore followed by underscore-separated argument types
are appended to the <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985119	985468	
==>line",
                  "CODE" => 1104,
                  "ARGS" => [
                              "i",
                              "ic",
                              "sc",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122144	122417	
==>@1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123056	123329	
==>@1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	69430	69547	
==>"$code 1" )
		{
			_error("Internal error in generated parser code!");
			$@ =~ s/at grammar/in grammar at/;
			_hint( <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27736	28001	
==>{itempos}? 'do {'.Parse::RecDescent::Production::incitempos().' 1} and ' : '')
		. '  $text =~ s' . $ldel . '\A(?:' . $self->{"pattern"} . ')'
				 . $rdel . $sdel . $mod . ')
		{
			'.($self->{"lookahead"} ? '$text = $_savetext;' : '').'
			if ($Parse::RecDescent:: <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29846	29953	
==>{itempos}? 'do {'.Parse::RecDescent::Production::incitempos().' 1} and ' : '')
		. '  $text =~ s/\A' . quote <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	1270	1405	
==>= @_;
    my $atom = $tree->atom;

    my $R;
    if (UNIVERSAL::can($atom, 'rx_val')) {
        $R = $self->convert($atom);
    } elsif <==
2	/Users/nnunley/parrot/config/inter/shlibs.pm	398	490	
==>arate unit from config/inter/progs.pm because the answers depend
on which compiler is in use. <==
2	/Users/nnunley/parrot/examples/benchmarks/addit.pl	91	196	
==>ks/addit.pl 19601 2006-05-30T13:32:26.641316Z coke  $

=head1 NAME

examples/benchmarks/addit.pl - Variabl <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13199	13318	
==>siness
      # seeing a close-brace.
      #

      $self->SYNTAX_ERROR("Closing brace without open block.")
        unl <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	6541	6727	
==>=> 'define',
             'i_sysvfs' => undef,
             'i_syswait' => 'define',
             'i_termio' => undef,
             'i_termios' => 'define',
             'i_time' => undef <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	821213	821411	
==>=> 930,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 98 \"src/ops/stack.ops\"\n  {{\@1}} = stack_height(interprete <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	5649	5767	
==>(a,b,c)>

Calls the vtable method 'method' using the static type of C<SELF> (in
other words, calls another method defin <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15718	15847	
==>the =
		$whole.=" = ";

		$opts{lhs}=0;
		@expr=get_expression(%opts);	# Get expression tokens
		$whole.=join(' ', map { $_->[0] } <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	4723	5133	
==>$str .= '\"';
                        }
                        else {
                            $str .= $_;
                        }
                    }
                    $value = "\"$str\"";
                }
                elsif ( $type eq 'boolean' ) {
                    $value = ( $value eq 'true' ) ? 1 : 0;
                }
                my $expr = new defn( $value, 'literal', 'p <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8779	8957	
==>stack,
                     [ $$states[$$stack[-1][0]]{GOTOS}{$lhs}, $semval ]);
                $$check='';
                next;
            };

#DBG>			$debug & 0x04
#DB <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8383	8554	
==>stack,
                     [ $$states[$$stack[-1][0]]{GOTOS}{$lhs}, $semval ]);
                $$check='';
                next;
            };

#DBG>			$debug & 0x04
#DB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	543640	544126	
==>AGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 628,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 1056 \"src <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	696373	696891	
==>[
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 782,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	5143	5326	
==>le for the MODULE file:
#

my $version = $real_ops->version();

# Hide the pod.

(my $pod = <<"END_POD") =~ s/^    //osmg;
    =head1 NAME

    Parrot::OpLib::$package - Parrot Op Info <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34569	34770	
==>head"} ? '$text = $_savetext;' : '')
			    .($::RD_NO_TRACE?'':'
			Parse::RecDescent::_trace(q{<<Didn\'t match subrule: ['
			    . $self->{subrule} . ']>>},
						  Parse::RecDescent::_tracefirst($te <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22905	23027	
==>t at line $para->[1]{'start_line'}\n";
        next;
      }

      # Else it's okay to close...
      if(grep $_->[1]{'~ig <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	28835	28937	
==>ter the
extracted text. That means that in a list context the various
subroutines can be used much like <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	30363	30519	
==>l_bang {
}

sub _op_procedure_p {
  my ($self, $node) = @_;
  my $return;

  _check_num_arg ($node, 1, 'procedure?');

  $return = $self->_constant(0);

  my <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1266	1369	
==>', YYVERSION => '',
			 YYRULES => 'ARRAY', YYSTATES => 'ARRAY', YYDEBUG => '');
#Mandatory parameters <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1223	1324	
==>', YYVERSION => '',
			 YYRULES => 'ARRAY', YYSTATES => 'ARRAY', YYDEBUG => '');
#Mandatory parameters <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	603	695	
==>erl.html', '',
		$self->new_group('Operations', '',
			$self->new_item('Ops to C Code Generat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	373297	373587	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	55216	55358	
==>ne 405 "Lua\lua51.yp"
{
            BuildUnop( $_[0], $_[1], $_[2] );
        }
	],
	[#Rule 75
		 'exp', 2,
sub
#line 409 "Lua\lua51.yp <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	10859	11000	
==>EFIX
}

sub _match_variable($$)
{
#  $#
#  $^
#  $$
	my ($textref, $pre) = @_;
	my $startpos = pos($$textref) = pos($$textref)||0;
	unless ($$ <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5231	5430	
==>( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $first = 1;
            foreach ( @{ $op->{result} } ) {
                print {$FH} ", " unless ($first);
                p <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6263	6462	
==>( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $first = 1;
            foreach ( @{ $op->{result} } ) {
                print {$FH} ", " unless ($first);
                p <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2255	2367	
==>{
  my $in = $_[0];
  return undef unless defined $in and length $in;
  
  # Convert to decimal:
  if($in =~ m/^( <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	2705	2799	
==>e generated files, i.e. the files that will be added to the distribution after configuration an <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	10379	10526	
==>THEN GOSUB 20: REM GOO
   end
20 print "Correct"
   return


' Expect Correct
t=0
g=0
if t then
	print "Wrong"
else 
	if g then
		print "Wrong again <==
2	/Users/nnunley/parrot/tools/dev/as2c.pl	45	187	
==>sember listing to i386 code array
# creates also a test file

my ($src, $func, $out, $cmd, $func);

$src =  $ARGV[0];
$cmd  = "cc -c $src.c -Wa <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	7156	7260	
==>>genlabel("group_iback");
    my $back = $self->genlabel("group_back");
    my $next = $self->genlabel("g <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009673	1009911	
==>6,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 659 \"src/ops/string.ops\"\n  {{\@1}} = string_compose(interpreter, {{\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10796	11026	
==>{  # self, tokens
  my $self = shift;
  my $out = '';
  
  my $t;
  while($t = shift @_) {
    if(!ref $t or !UNIVERSAL::can($t, 'is_text')) {
      $out .= $t;
    } elsif($t->is_text) {
      $out .= $t->text;
    } elsif($t->is_ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	20225	20357	
==>->parse( $html );
        is( $lint->errors, 0, "No errors found in HTML" );
    }

If the user does not have HTML::Lint installed, t <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	40601	40734	
==>h @$para, join "\n", splice(@$para, 2) if @$para > 3;
        
      } else {
        die "\$para type is $para_type -- how did that h <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1502	1597	
==>sa($type, "Jako::Construct::Type");

  my $type_name = $type->name;

  $self->INTERNAL_ERROR("Va <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1654	1748	
==>sa($type, "Jako::Construct::Type");

  my $type_name = $type->name;

  $self->INTERNAL_ERROR("C <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	501	610	
==>e, $line) = @_;

  $props = { } unless defined $props;
  $args  = [ ] unless defined $args;

  confess("Undefi <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2302	2406	
==>$self->directory_with_name('src'),
        $self->directory_with_name('src/encodings'),
        $self->di <==
2	/Users/nnunley/parrot/lib/Test/More.pm	25558	25712	
==>his and !ref $that ) {  		# neither is a reference
        $ok = $Test->is_eq($this, $that, $name);
    }
    elsif( !ref $this xor !ref $that ) {  	# one' <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	12717	12834	
==>defined $dont_expect ) {
        # undef only matches undef and nothing else
        my $test = defined $got || define <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	13161	13278	
==>defined $dont_expect ) {
        # undef only matches undef and nothing else
        my $test = defined $got || define <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	18327	18437	
==>///////////////////////////////////////

      my $content = join ' ', splice @$para, 2;
      $content =~ s/^\ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	23767	23874	
==>)="";
	       pos $$textref = $firstpos };
	return $fields[0];
}


sub gen_extract_tagged # ($opentag, $clos <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702601	702912	
==>E" => 788,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	1559	1706	
==>tiated.', 
	        @abstract_items
	    ),
		$self->new_group(
	        'Concrete PMCs', 
	        'These PMCs are instantiated.', 
	        @concr <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	3797	3958	
==>ze} == $intvalsize) {

        # Could not find anything bigger than intval.
        $conf->data->set(
            hugeintval     => $intval,
            hugeintv <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	8961	9074	
==>space is needed on the front.
        print {$self->{'output_fh'}} 
            " <a href='#_top'><img alt='^' bor <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	11438	11574	
==>utine declarations and definitions, while
the second pass compiles any other content. This is how we collect all the
non-sub stuff into t <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	515	628	
==>ot!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Left (" . ref($left) . ") is not Value") <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	506	619	
==>ot!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Left (" . ref($left) . ") is not Value") <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	270267	270610	
==>rpreter, {{\@2}}, {{\@3}}, MMD_CMP) >= 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isle <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	652063	652420	
==>"ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 729,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#l <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Ops.pm	394	500	
==>ction::Ops;

use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a ne <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28147	28268	
==>n_h() {
    my ($self, $out_name) = @_;

    my $hout = dont_edit($self->{file});
    my $name = uc $self->{class};
    $h <==
2	/Users/nnunley/parrot/editor/ops2vim.pl	243	502	
==>been passed
@ARGV = @ARGV
    ? map {glob $_} @ARGV
    : die "usage: " . basename($0) . " FILE [ FILE [ ... ] ]\n";

while (<>) {
    if (/\bop \s+ (\w+) \s* \(/x) {
        next if $seen{$1}++;
        if (length($1) + length($cline) > 72) {
            prin <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30363	30507	
==>types for the need_dest set case.
        if ($need_dest) {
            my $label = "LD_VALTYPE_$name";
            $pir .= <<PIR
\$I1000000 = lo <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	60168	60273	
==>t
which the error was detected (although not necessarily where it occurred!)
Printing C<$@> directly produ <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	8806	8926	
==>ub $dir->{result}->{symbol} :anon";
        if ( exists $dir->{outer} ) {
            print {$FH} " :outer($dir->{outer <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	5526	5772	
==>em C<line_directive_here($self,$output,$file)>

Generates the C pre processor string for a #line directive to reset the
compiler's line number to the next physical line in the output.

=cut

sub line_directive_here {
    my ($self, $output, $file) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755747	755991	
==>E" => 852,
                  "ARGS" => [
                              "p",
                              "nc"
                            ],
                  "BODY" => "#line 266 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_number_native(interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344914	345383	
==>:filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 403,
                  "ARGS" => [
                              "p",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 14 <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39012	39137	
==>->gen_ret($method->{type});
        $ret = "return ret_val;";
        if ($type !~ /\*/) {
            $ret_type = "_ret" . lc <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5770	5912	
==>type> <ident> = <value>;               # TODO: SHOULD BE LIMITED TO LITERAL?
    #   const <type> <ident>, <ident>, ... = <value>; # TODO: SHOU <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	933	1035	
==>content($self);

  return $self;
}

sub left  { return shift->{LEFT};  }
sub right { return shift->{RIG <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	941	1043	
==>content($self);

  return $self;
}

sub left  { return shift->{LEFT};  }
sub right { return shift->{RIG <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	2961	3105	
==>PIR
    
    return $code;
}

sub arg_check {
    my (@args) = @_;
    
    my ($min, $max) = num_args(@args);
    my $code = "";
    
    if ($m <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	18499	18625	
==>n method, or an empty
string if the PMC has a C<no_init> flag.

=cut

sub init_func() {
    my $self = shift;

    my $cout = " <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1634	1753	
==>ths need quoting as they may contain spaces.
    $PATHQUOTE = '"';

    unless ($CC =~ /gcc/i) {
        $LIBPARROT = '/ <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	1638	1757	
==>ths need quoting as they may contain spaces.
    $PATHQUOTE = '"';

    unless ($CC =~ /gcc/i) {
        $LIBPARROT = '/ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	31739	31872	
==>ction_sym('write',$temp);
    }
  }
  return $temp; # We need to return something
}

sub _op_display {
}

sub _op_newline {
}

sub _op <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3768	3889	
==>cs);

    # Convert X.c -> X.o for all X.c
    compile($_) foreach (@pmcs);

    # lib-GROUP.c
    for my $group (keys %$g <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3872	3993	
==>cs);

    # Convert X.c -> X.o for all X.c
    compile($_) foreach (@pmcs);

    # lib-GROUP.c
    for my $group (keys %$g <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	1	147	
==>require 5;
package Pod::Simple;
use strict;
use Carp ();
BEGIN           { *DEBUG = sub () {0} unless defined &DEBUG }
use integer;
use Pod::Escape <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	10003	10122	
==>nd not $fd and
			( $type[NEXT] eq "STMT" or $type[NEXT] eq "COMP" or $type[NEXT] eq "COMM" ) ) {
			$eol=0;
			fdprint( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23828	24043	
==>alue>);
    #   last <label> unless (<value> <op> <value>);
    #
    #   redo;
    #   redo if     (<value> <op> <value>);
    #   redo unless (<value> <op> <value>);
    #
    #   redo <label>;
    #   redo <label> <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2720	3043	
==>o strict 'refs';
        my $pass = $self->{builder}
            ->$builder_func( Parrot::Test::slurp_file($lua_out_fn),
            $output, $desc );
        unless ($pass) {
            my $diag = q{};
            my $test_prog = join ' && ', @test_prog;
            $diag .= "'$test_prog' failed with exit code $ex <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2786	3056	
==>o strict 'refs';
        my $pass = $self->{builder}->$builder_func(
                       Parrot::Test::slurp_file($lang_out_fn),
                       $output,
                       $desc );
        if ( ! $pass ) {
            my $diag = q{};
            my $test_p <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	4166	4361	
==>"return_data = ",
       f => "return_data = ",
       d => "return_data = ",
       b => "return_data = ",
       t => "return_data = ",
       P => "return_data = ",
       S => "return_data = " <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	503	614	
==>ected->expected()
	    unless $Parse::RecDescent::expected;
	$Parse::RecDescent::expected =~ s/_/ /g;
	if (!$Par <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	4011	4178	
==>eys %classes) {
        # Stick label at top.
        my $label = "CLASS_$_";
        $label =~ s/\./_/g;
        $pir .= "$label:\n";

        # Now do dispatch for ea <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	5430	5538	
==>version info, a preamble for inclusion in C code,
    and an array of C<Parrot::Op> instances representing th <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323	427	
==>version info, a preamble for inclusion in C code,
and an array of C<Parrot::Op> instances representing th <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	2614	2817	
==>S+/ || ($_ eq "...") || ($_ eq "void") || /theINTERP/ or die "Bad parms in $proto";
    }

    my $static;
    $returntype =~ s/^((static)\s+)?//i;
    $static = $2 || "";

    return [$static, $returntyp <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	5871	6026	
==>au',
            slash    => '\\',
            blib_dir => 'blib\\lib',
            make_and => "\n\t",
        );
    } elsif ($is_mingw) {
        my $mak <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	3079	3292	
==>=> [],
                  "TYPE" => "inline",
                  "CODE" => 3,
                  "ARGS" => [],
                  "BODY" => "#line 117 \"src/ops/core.ops\"\n  opcode_t *next = {{^+1}};\n  next = CHECK_E <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	37687	37827	
==>attern
is specified as C<'{{\w+}}'> and actually matched the opening tag 
C<"{{DATA}}">, then the constructed closing tag would be C<"{{/DATA <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	11997	12164	
==>h', [ $incexc, $lastback ]),
                         aop('increment', [ 1, $lastback ]),
                         aop('goto', [ $next ]),
                $back => aop( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1108321	1108461	
==>al({{\@2}}));\n            if (type <= 0)\n                real_exception(interpreter, NULL, NO_CLASS,\n                    \"Class '%Ss' not <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4753	4881	
==>my ($self, $key, $trigger, $cb) = @_;

    return unless defined $key and defined $trigger and defined $cb;

    my $verbose = de <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158052	158474	
==>DIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 191,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811404	811546	
==>k"
                            ],
                  "BODY" => "#line 512 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed(inte <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490189	490482	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inc",
                  "FLAGS" => ":base_core",
                  "ARGD <==
2	/Users/nnunley/parrot/lib/Test/More.pm	32896	33034	
==>a1],
           [sort { ref $a ? -1 : ref $b ? 1 : $a cmp $b } @$a2]
    );
}

=back


=head2 Extending and Embedding Test::More

Sometimes <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	4395	4526	
==>es taken at least once in file/;
            if ($total_branches) {
                my $covered_branches = int(($percent/100) * $tot <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	3335	3478	
==>$file_line_coverage{$source_file})) {
            $source_file = "$source_file (from $da_file)";
        }

        print "Processing $gcov_file <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	7497	7664	
==>y $token = shift;
    my $next = $self->get_token;
        
    return unless defined $next;
        
    unless( $next->type eq 'text' )
    {
        $self->unget_tok <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	23169	23318	
==>me)]}, "ascii",
            PObj_constant_FLAG|PObj_external_FLAG);
        vt_clone->isa_str = string_make(interp,
            "$isa", @{[length($isa <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	10172	10356	
==>er->{deferrable}
			? '		splice @{$thisparser->{deferred}}, $def_at;
			  '
			: '') . '

		$_[1] = $text;	# NOT SURE THIS IS NEEDED
'.($::RD_NO_TRACE? '':'
		Parse::RecDescent::_trace( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10250	10379	
==>&& $ord <= ord('9');
    return 1 if $ord =~ /^[~!@#%&_'":;>,<]$/;
#    return 1 if $ord =~ /^[`~!@#$%^&*()\-_+{}\[\]\\|'":;\/?.>, <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36144	36308	
==>ng.

The C<Null> PMC throws an execption for all methods.

=cut

sub body
{
    my ($self, $method, $line, $out_name) = @_;

    my $meth = $method->{meth};
    # ex <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	1360	1609	
==>$new_op;
}
 

#
# new()
#

sub new
{
  my $class = shift;

  return bless {
    FILE           => undef,
    LINE           => undef,
    LABELS         => [ ],
    COMMENTS       => [ ],
    LAST_OP        => 'noop',
    INDENT         => 0,
    REG <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	1873	2009	
==>e',
	'pl' => 'Perl script',
	'pm' => 'Perl module',
	'pmc' => 'PMC code',
	'pod' => 'POD documentation',
	'prd' => 'Parse::RecDescent gra <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	3010	3117	
==>d>.

=head1 HISTORY

Initial version by Dan Sugalski.

=cut

*/

/*
 * Local variables:
 * c-indentation-sty <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712501	712598	
==>2g\", (double){{\@1}});\n  PIO_putps(interpreter, io, s);\n  if (string_str_index(interpreter, s,\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713608	713705	
==>2g\", (double){{\@1}});\n  PIO_putps(interpreter, io, s);\n  if (string_str_index(interpreter, s,\ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	376	485	
==>t;

@ISA= qw ( Parse::Yapp::Driver );
#Included Parse/Yapp/Driver.pm file---------------------------------- <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	368	474	
==>t;

@ISA= qw ( Parse::Yapp::Driver );
#Included Parse/Yapp/Driver.pm file---------------------------------- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838809	839050	
==>Y_PMC);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	9496	9607	
==>*
** Op Function Table:
*/

static op_func${suffix}_t ${op_func}\[$num_entries] = {
END_C

    print SOURCE @op_ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54663	54786	
==>{ ($code) = extract_codeblock($grammar,'{',undef,'<');
					 $code;
				       } )
			{
				_parse("a rule variable specifie <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356954	357327	
==>err",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 417,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 240 \"src/ops/io.op <==
2	/Users/nnunley/parrot/config/inter/lex.pm	877	990	
==>> undef);

    unless ($conf->options->get('maintainer')) {
        $conf->data->set($util => 'echo');
        $se <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	874	987	
==>> undef);

    unless ($conf->options->get('maintainer')) {
        $conf->data->set($util => 'echo');
        $se <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	3468	3647	
==>+)\s+      # opcode e.g. SLICE+3
	(?:(\d+)(?:\s+\((.*)\))?)? # oparg rest
	/x) {
	($line, $pc, $opcode, $arg, $rest) = ($1, $2, $3, $4, $5);
	$opcode =~ s/\+/_plus_/;
	## print STD <==
2	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	1567	1739	
==>($status >> 8) if $status != 0;

foreach my $output (@outputs) {
    open(OUTPUT, ">>$output") or die "open $output for append: $!";
    print OUTPUT "/* CHECKSUM: $checksum <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320643	320814	
==>,
                              "nc"
                            ],
                  "BODY" => "#line 124 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (INTVAL)((Parrot_Int4)({{\@2} <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	1106	1259	
==>or.

Accepts no arguments and returns a L<Parrot::Configure::Data> object.

=cut

sub new
{
    my $class = shift;

    my $self = {
        c        => { <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	1689	1792	
==>riting $c_name\n" if $opt->{verbose};
    open my $C, '>', $c_name or die "Can't write '$c_name";
    pr <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	4295	4409	
==>ng="[^\=]*" />
          <RegExpr attribute="Comment" context="#pop" String="^\\=cut\\s*\$" />
      </context>

EN <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576604	576915	
==>, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subcla <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577616	577927	
==>, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subcla <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	17022	17116	
==>rser-stream has hit
the end of the document.

=item $parser->unget_token( $token )

=item $pars <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8865	8960	
==>find_fixup_entry(interpreter,\n\t    enum_fixup_label, label);\n    if (!fe)\n\tinternal_excepti <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9981	10076	
==>find_fixup_entry(interpreter,\n\t    enum_fixup_label, label);\n    if (!fe)\n\tinternal_excepti <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1064	1205	
==>rgs,

    DEBUG  => 1,
    FILE   => $ident->file,
    LINE   => $ident->line,
  }, $class;

  #
  # Check for a few bad conditions.
  #
  # N <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3397	3489	
==>Pod::PXML>, L<Pod::XML>, L<Pod::SAX>


=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 S <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3049	3141	
==>Pod::PXML>, L<Pod::XML>, L<Pod::SAX>


=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 S <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	2804	2971	
==>meone specified tests for me to run.
        return grep { -f $_ } @{ $options{arguments} };
    }
    else
    {
        # I must be running out of languages/$language <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1960	2122	
==>alue} =~
                                 /^[-]?\d+\.(\d+([-+]?[eE]\d+)?)?/;
    $node->{type} = 'REAL'    if $node->{value} =~
                                 /^ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41145	41272	
==>t {  # for use only by the routine above
  my($self, $name) = splice @_,0,2;

  my $scratch;
  $self->_handle_element_start(($sc <==
2	/Users/nnunley/parrot/config/gen/platform.pm	4942	5095	
==>_HERE
            print PLATFORM_C <IN_C>, "\n\n";
            close IN_C;
        }
    }

    # append generated c files
    @impls = grep { /\.c$/ } sp <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	489	687	
==>lf, $fh, $subname, $rule, $ctx, %options) = @_;

    my $code = Regex::tree_to_list($rule, $ctx, 'regex_done', 'regex_done',
                                   %options);

    my @asm = Regex::list_t <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	1907	2007	
==>The last labeled line before a "data" statement.
	my $singleif=0;
	my $elsetag=0;
	my $elsestack;
	my <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Examples.pm	678	852	
==>mples', 'examples.html', '',
            $self->new_group('PASM and PIR',         '', 'examples/pasm'),
            $self->new_group('PIR',                  '', 'examples/pir' <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	1096	1218	
==>level

=item C<--no-lines>

Omit source line info

=item C<--no-body>

Emit an empty body in the dump. This may be useful f <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	13703	13819	
==>}

sub rewrite_simple_or_simple {
    my ($self, $op, $R, $S, $lastback) = @_;

    my $nextalt = $self->genlabel('ne <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	16091	16316	
==>Y_MODULO
{
    my ($n, $c, $cmt) = @_;
    binary('%', $cmt);
}
sub BINARY_MULTIPLY
{
    my ($n, $c, $cmt) = @_;
    binary('*', $cmt);
}
sub BINARY_FLOOR_DIVIDE
{
    my ($n, $c, $cmt) = @_;
    binary('//', $cmt);
}
sub BIN <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	5386	5510	
==>$self->whine("Typeless L!?", $token->attr('start_line'));
  } elsif( $type eq 'pod') { return $self->do_pod_link($token);
  } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	625635	625787	
==>TVAL*)(_reg_base + cur_opcode[2 + i]);\n                break;\n            case PARROT_ARG_INTVAL|PARROT_ARG_CONSTANT:\n            case PARROT_ARG_FLOA <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4363	4475	
==>up failed ($?)\n";
    }

    # Link non-grouped PMCs individually
    my @ungrouped_pmcs = grep { ! exists $pmc_ <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4467	4579	
==>up failed ($?)\n";
    }

    # Link non-grouped PMCs individually
    my @ungrouped_pmcs = grep { ! exists $pmc_ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	28709	28854	
==><<EOC;
	$throw $cmt
EOC
}
sub GET_ITER
{
    my ($n, $c, $cmt) = @_;
    my $it = temp('P');
    my $tos = pop @stack;
    my $var = promote($tos) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791623	791767	
==>}}->vtable->get_pmc_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792530	792674	
==>}}->vtable->get_pmc_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	36433	36561	
==>y @opcodes1 = ();
    my @opcodes2 = ();
    my $defn;
    if ( $idf eq '...' ) {
        $defn = new defn( 'vararg', 'local' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762669	763110	
==>,
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 861,
                  "ARGS" => [
                              "i",
                              "n"
                            ],
                  "BODY" => "#line 320 \"src/ops/set.op <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1212	1347	
==>wrapping algorithm:
      s/(
         [^\n]{55}         # Snare some characters from a line
         [^\n\ ]{0,50}     #  and finish an <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1156	1291	
==>wrapping algorithm:
      s/(
         [^\n]{55}         # Snare some characters from a line
         [^\n\ ]{0,50}     #  and finish an <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	9149	9275	
==>mbol = $TypeLong ? "unknown" : "D?";
			    }
			    $symbol .= "_data" if $TypeLong;
			} elsif ($undef) {
			    $symbol = $T <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083369	1083643	
==>,
                  "ARGS" => [
                              "p",
                              "ic",
                              "kc"
                            ],
                  "BODY" => "#line 145 \"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= inte <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	11555	11663	
==>d $line_group and length $line_group;
    pos($line_group) = 0;
    while($line_group =~
      m/([^\n\r]*)(( <==
2	/Users/nnunley/parrot/tools/dev/symlink.pl	939	1054	
==>rydir) && (-f $tryfile && ! -l $tryfile);
} else {
    die "$0: I am very confused.\n";
}

my @toolsrcdir = File::Sp <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	953	1073	
==>ckage Parse::Yapp::Driver;

require 5.004;

use strict;

use vars qw ( $VERSION $COMPATIBLE $FILENAME );

$VERSIO <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	925	1037	
==>ckage Parse::Yapp::Driver;

require 5.004;

use strict;

use vars qw ( $VERSION $COMPATIBLE $FILENAME );

$VERSIO <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	16	110	
==>o::Construct::Block - Abstract superclass for Jako Blocks.

=head1 SYNOPSIS

TODO

=head1 DESCR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506518	506680	
==>"n"
                            ],
                  "BODY" => "#line 636 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	507373	507535	
==>"n"
                            ],
                  "BODY" => "#line 636 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931101	931438	
==>ak;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAG <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	3529	3668	
==>eCounter\n"
                unless $self =~ /Parse::RecDescent::LineCounter/;
	
	my $parser = $self->{parser};
	my $apparently = $parser->{o <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	5415	5516	
==>.0, ON_${ons}_$i\n";
		if ($branch eq "gosub") {
			push @{$code{$seg}->{code}}, qq{\tbsr $labels{$jum <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Compilers.pm	942	1052	
==>lf->new_group( 'TGE', 'the Tree Grammar Engine',
            'compilers/tge' ),
        $self->new_group( 'PA <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6267	6392	
==>ub require_type          { return shift->require('type');          }

sub require_value         { return shift->require('ident <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	13828	13955	
==>dio.h
sqrt        math.h
sqrtf       math.h
sqrtl       math.h
srand       stdlib.h
sscanf      stdio.h
stderr      stdio.h
stdi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	557	715	
==>ND__

sub dump { '[' . _esc( @{ $_[0] } ) . ']' }

# JUNK:

sub _esc {
  return '' unless @_;
  my @out;
  foreach my $in (@_) {
    push @out, '"' . $in . '"' <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2900	3008	
==>tem C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	1734	1842	
==>tem C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382939	383174	
==>> [
                              "p",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 455 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(in <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	15438	15578	
==>,sx
         )
    {
        $usable_regex = length $opts ? "(?$opts)$re" : $re;
    }

    return $usable_regex;
};

sub _regex_ok {
    my( <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	7190	7301	
==>h_for_directory_with_name
{
    my $self = shift;
    my $name = shift || return;
    
    return File::Spec->ca <==
2	/Users/nnunley/parrot/lib/Test/More.pm	16869	17150	
==>ecked like so:

   # Just like "use Some::Module 1.02"
   BEGIN { use_ok('Some::Module', 1.02) }

Don't try to do this:

   BEGIN {
       use_ok('Some::Module');

       ...some code that depends on the use...
       ...happening at compile time...
   }

because the notion of "com <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	6390	6560	
==>re are two exceptions.  The outermost "GUARD" ifdef doesn't increase
    # the indenting level.  Neither does PARROT_IN_CORE.

    my @stack;
    my $line = 0;
    foreach <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9335	9447	
==>pped index");
}

sub output_popint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);
    if ($self-> <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9029	9141	
==>pped index");
}

sub output_popint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);
    if ($self-> <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	12169	12402	
==>rement', [ -1, $lastback ]),
                         aop('goto', [ $lastback ]),
                $next =>
               );

    return ($back, @ops);
}

sub rewrite_advance {
    my ($self, $op, $howfar, $lastback) = @_;
    my $bac <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4107	4319	
==>!"  unless defined $name;
  confess "Extra arguments!" if @_;

  return $self->{SYMBOLS}{$name};
}


###############################################################################

=head2 BLOCK->symbol_names()

R <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	3535	3733	
==>output
with the expected result is true.

=item C<pbc_output_like($code, $expected, $description)>

Runs the Parrot Bytecode and passes the test if output matches the expected
result.

=item C<pbc_ou <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	33568	33673	
==>list'     => \&_op_list,
  'length'   => \&_op_length,
  'append'   => \&_op_append,
  'reverse'  => \&_op <==
2	/Users/nnunley/parrot/config/inter/progs.pm	3049	3152	
==>et('ldflags');
    $ldflags =~ s/-libpath:\S+//g;   # XXX No idea why.
    $ldflags = integrate($ldflags <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634339	634594	
==>" => 710,
                  "ARGS" => [
                              "p",
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 107 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ( <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10115	10239	
==>op state $$stack[-1][0].\n";

			pop(@$stack);
		}

			@$stack
		or	do {

#DBG>			$debug & 0x10
#DBG>		and	print STD <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9664	9779	
==>op state $$stack[-1][0].\n";

			pop(@$stack);
		}

			@$stack
		or	do {

#DBG>			$debug & 0x10
#DBG>		and	print STD <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	6611	6774	
==>'notin'    , 8713,
 'ni'       , 8715,
 'prod'     , 8719,
 'sum'      , 8721,
 'minus'    , 8722,
 'lowast'   , 8727,
 'radic'    , 8730,
 'prop'     , 8733,
 'inf <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1200	1322	
==>type      { return shift->{TYPE};      }
sub name      { return shift->{NAME};      }
sub props     { return %{shift->{PROP <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1535	1657	
==>type      { return shift->{TYPE};      }
sub name      { return shift->{NAME};      }
sub props     { return %{shift->{PROP <==
2	/Users/nnunley/parrot/lib/Test/More.pm	5411	5554	
==>simple exponential
  ok 6 - force == mass * acceleration

The later gives you some idea of what failed.  It also makes it easier
to find the tes <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11961	12060	
==>mber that could appear in a
C<EE<lt>name_or_numE<gt>> sequence, this returns the string that
it stan <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	763	950	
==>line' and $_[0]{'hide_line_numbers'};
      _xml_escape($value = $_[2]{$key});
      print $fh ' ', $key, '="', $value, '"';
    }
  }


  print $fh ">\n";
  $_[0]{'indent'}++;
  return;
} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11098	11339	
==>c_info,
    $self->doc_start,
    "\n"
  ;
}

sub do_end {
  my $self = $_[0];
  my $fh = $self->{'output_fh'};
  return print $fh '}'; # that should do it
}

###########################################################################

sub st <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	23612	23736	
==>NST_STRING(interp, "$classname");
        vt_clone->isa_str = CONST_STRING(interp, "$isa");
        vt_clone->does_str = CONS <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	10059	10225	
==>on.pmc vtablecache.pmc parrotio.pmc parrotlibrary.pmc parrotinterpreter.pmc parrotthread.pmc lexpad.pmc timer.pmc pointer.pmc sub.pmc closure.pmc continuation.pmc retc <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	25094	25205	
==>[0]}($_[1]);
}

package Text::Balanced::ErrorMsg;

use overload '""' => sub { "$_[0]->{error}, detected at offse <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	5879	5992	
==>pod'} = 0;
      # ++$self->{'pod_para_count'};
      $self->_ponder_paragraph_buffer();
       # by now it's safe <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	24589	24693	
==>ate_mro(interp, entry);
EOC
    # declare each nci method for this class
    foreach my $method (@{ $self <==
2	/Users/nnunley/parrot/tools/build/list_unjitted.pl	433	558	
==>\s*$/;
    if (my ($op) = /(\S+)\s+\d+/){
        push @ops, $op;
    }
    else { die "Misformated line: $.";}
}

close OPS o <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21615	21734	
==>nstant(1);
  my $temp = $self->_generate($node->{children}[1]);
  $self->_add_inst(''           ,'gt'    ,[$temp,0,"DONE <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	17336	17454	
==>isoffset, 'to'=>undef},
				'line'   => {'from'=>$thisline,   'to'=>undef},
				'column' => {'from'=>$thiscolumn, 'to'= <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	5349	5453	
==>rellocation(jit_info->objfile, NULL, RTYPE_DATA, "const_table", 0);/g;
                $asm =~ s/jit_emit <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9156	9309	
==>$error($self);
                $$errstatus # if 0, then YYErrok has been called
            or  next;       # so continue parsing

#DBG>			$debug & 0x <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8742	8891	
==>$error($self);
                $$errstatus # if 0, then YYErrok has been called
            or  next;       # so continue parsing

#DBG>			$debug & 0x <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	10698	10841	
==>somewhat convoluted based the description from the old APL/360 manual
.sub 'dyadic:|'               # logarithm
    .param num op1
    .param nu <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	14550	14687	
==>e($out_fh)
     if $self->can('write_with_binmode') and $self->write_with_binmode;
    $self->output_fh($out_fh);
  }

  return $self->par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173746	174248	
==>e_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 208,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 226 \"src/ops/cmp.ops\"\n  if (mmd_dispa <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	333	495	
==>is file is generated by F<config/gen/makefiles.pl> from
F<config/gen/makefiles/dynpmc_pl.in>.  This script is used for building
dynamic PMCs.

=cut

use strict;

u <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8251	8342	
==>$c,$d,$_[4],7,0xd76aa478,/* 1 */
FF,$d,$a,$b,$c,$_[5],12,0xe8c7b756,/* 2 */
FF,$c,$d,$a,$b,$ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1138	1255	
==>ine,
  }, $class;

  #
  # Check for a few bad conditions.
  #
  # NOTE: These are compiler internal consistency check <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1041	1158	
==>ine,
  }, $class;

  #
  # Check for a few bad conditions.
  #
  # NOTE: These are compiler internal consistency check <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2964	3070	
==>n a way
that's better for sending to an XML processor (that is, it has
no ignoreable whitespace). But
Pod:: <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	16387	16559	
==>cal pmc result 
    result = new 'APLVector'
    # Loop through each vector, doing the ops.
    .local pmc iter1
    iter1 = new .Iterator, $vector
  loop:    
    unless it <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	15301	15434	
==>cal pmc result 
    result = new 'APLVector'
    # Loop through each vector, doing the ops.
    .local pmc iter1, iter2
    iter1 = ne <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	37448	37544	
==>g is omitted (or C<undef>) then the closing
tag is constructed by inserting a C</> after any lead <==
2	/Users/nnunley/parrot/config/auto/msvc.pm	159	253	
==>rosoft Visual C++ Compiler

=head1 DESCRIPTION

Determines whether the C compiler is actually C <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	5629	5744	
==>defined $b && $a == $b) {
	warn "$ME: both --$sa and --$sb used\n";
    }
}

warn_if_both($Code,   $Data,    'code', <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	322	448	
==>ands
my @dynamic_cmds = pir_cmds_in_dir($dynamic_dir);

print <<"END_PIR";

.HLL 'tcl', 'tcl_group'
.namespace ['']

END_PIR

p <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	39570	39696	
==>b insert_automagicals($$) {
	my $pir = shift;
	my $mv = shift;

	# Loop over keys to look for automagicals and build up declara <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30925	31212	
==>ost_load\n";

        # Emit code to clone value types for the need_dest not set case.
        if (!$need_dest) {
            my $label = "LD_VALTYPE_$name";
            my $pre_op = $srm->pre_op(1, 1);
		    $pre_op = sub_meta($pre_op, $mv, "pre_op for rule $rule->{'name'} value type cl <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	666	783	
==>ec = qw(.pcc_call .result .return .local .const .globalconst
    end goto if unless call branch jump jsr ret invoke in <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	4394	4540	
==>lf->options->set(verbose => 2);
            }

            # by description
            elsif ($description =~ /$verbose_step/) {
                $ <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	3847	3971	
==>oke{runcore}   = runcore_from_args($smoke{harness_args});
  $smoke{revision}  ||= 0;
  $smoke{timestamp} = time;
  $smoke{id} <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1599	1704	
==>ft @_ => ( ref $pattern
        ? Parrot::Test::PGE::_generate_subrule_pir($target, $pattern)
        : Pa <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2122	2227	
==>ft @_ => ( ref $pattern
        ? Parrot::Test::PGE::_generate_subrule_pir($target, $pattern)
        : Pa <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	8	124	
==>rl -*-

package Regex;

use base 'Exporter';
BEGIN {
    @Regex::EXPORT_OK = qw(expr_to_tree tree_to_list list_to_pas <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2196	2303	
==>vious definition.
  #

  if (defined $sym and $sym->block eq $block) {
    $self->SYNTAX_ERROR("Redeclaratio <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1943	2050	
==>vious definition.
  #

  if (defined $sym and $sym->block eq $block) {
    $self->SYNTAX_ERROR("Redeclaratio <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1296	1417	
==>@{ $_[0]{'_currpos'}[0] }, $_[1];
  return;
}


# A bit of evil from the black box...  please avert your eyes, kind souls. <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	6	98	
==>right (C) 2001-2005, The Perl Foundation.
# $Id: /parrot/config/auto/cgoto.pm 19593 2006-05-3 <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	444	590	
==>s were
based on ast2past and versions before that on pie-thon.

=cut

sub new {
    return bless {};
}

sub output_is() {
    my ($self, $code, $ou <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021617	1021714	
==>ine 202 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_gmtim <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022459	1022556	
==>ine 202 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_gmtim <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576523	576616	
==>ve(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, name);\n  { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577535	577628	
==>ve(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, name);\n  { <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22523	22631	
==>,[$temp_0,$temp_0,$temp_1]);
  $self->_add_inst(''           ,'eq'    ,[$temp_0,1,"DONE_$label"]);
  $self->_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130424	130621	
==>"i",
                              "ic"
                            ],
                  "BODY" => "#line 301 \"src/ops/bit.ops\"\n  {{\@1}} ^= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/config/init/hints/netbsd.pm	209	329	
==>read/) {
        $ccflags .= ' -pthread';
    }
    $conf->data->set(ccflags => $ccflags);

    my $libs = $conf->data->g <==
2	/Users/nnunley/parrot/config/init/hints/openbsd.pm	301	421	
==>read/) {
        $ccflags .= ' -pthread';
    }
    $conf->data->set(ccflags => $ccflags);

    my $libs = $conf->data->g <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7371	7498	
==>ext =~ s/\s*-$//o;
	
	# There was not text, just another POD command (=head2 probably).
	return '' if $text =~ /^=\w/o;
	
	retur <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	16803	16922	
==>tems}})
	{
		Parse::RecDescent::_error(
			"Incorrect <return:...> specification:
			expected item missing", $line);
		P <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	8972	9102	
==>ike" data structure.

The new class is given a constructor method, C<new>, for creating
struct objects.

Each element in the struct <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862519	862773	
==>gth(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863288	863542	
==>gth(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	140	239	
==>oke  $

=head1 NAME

examples/benchmarks/stress1.pl - GC stress-testing

=head1 SYNOPSIS

    % time <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	183	264	
==>guages/jako/lib/Jako/Construct/Statement/Decrement.pm 19606 2006-05-30T15:08:05.04 <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	32666	32775	
==>bstring) = extract_delimited $text, q{"'};


	# Delete the substring delimited by the first '/' in $text:

		$ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	2115	2218	
==>} = $lex_num;
    my $scope = shift @{ $parser->YYData->{scopef} };
    $parser->YYData->{scope} = $sc <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	26325	26494	
==>)\s*\)\s*{$/) {
      $self->begin_block(undef, $1, $2);
      # TODO
      next;
    }

    #
    # PMC Construction:
    #
    # a = new Foo;
    #

    if (m/^([A-Za-z <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663655	663746	
==>BODY" => "#line 354 \"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delete_keyed(interpreter, {{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664427	664518	
==>BODY" => "#line 354 \"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delete_keyed(interpreter, {{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527041	527275	
==>ps/math.ops\"\n  {{\@1}} = asin((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	2385	2490	
==>if a string comparison of the output with the unexpected result is false.

=item C<past_output_is($code, $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	690300	690501	
==>" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 621 \"src/ops/pmc.ops\"\n   {{\@1}} = Parrot_freeze(interpre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649939	650228	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "valid_type",
                  "FLAGS" => "",
                  "ARGDIR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650860	651149	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "valid_type",
                  "FLAGS" => "",
                  "ARGDIR <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5841	5972	
==>f->{triggers}{$key}{$trigger};

    my $verbose = defined $self->get('verbose') && $self->get('verbose') == 2;

    print "Looking u <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6411	6533	
==>f->{triggers}{$key}{$trigger};

    my $verbose = defined $self->get('verbose') && $self->get('verbose') == 2;

    print " <==
2	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	2212	2390	
==>se base qw(Lua::opcode);

package SubDir;
use base qw(Lua::opcode);

package EndDir;
use base qw(Lua::opcode);

package ReturnDir;
use base qw(Lua::opcode);

package Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	377	475	
==>p.

=head2 Instance Methods

=over 4

=cut

package Parrot::OpTrans::CSwitch;

use strict;
use warn <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	11765	11877	
==>r
    my $out_err = _slurp('./test.err');

    # cleanup
    unlink "test.err";

    return ($output, $out_err, $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1796	1887	
==>ngs very cautiously:
    $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}ab <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1899	1990	
==>ngs very cautiously:
    $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}ab <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	3156	3262	
==>ect just created.
#

my %seen;

for $file (@ARGV) {
    if ($seen{$file}) {
	print STDERR "$0: Ops file '$f <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Examples.pm	992	1330	
==>mples/io'),
            $self->new_group('Streams',              '', 'examples/streams'),
            $self->new_group('Benchmarking',         '', 'examples/benchmarks'),
            $self->new_group('Speed Comparison',     '', 'examples/mops'),
            $self->new_group('Native Call Interface','', 'examples/nci'),
    );
}

=back

=c <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3047	3187	
==>NT "3 in subroutine two"
   RETURN Label2   'Cannot return from here to main
                   'program - only to SUB1.
' Exit tests
sub mys <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17014	17154	
==>NT "3 in subroutine two"
   RETURN Label2   'Cannot return from here to main
                   'program - only to SUB1.
' Exit tests
sub mys <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	2282	2551	
==>os unless defined $index;

  $count = 1 unless defined $count;

  $self->INTERNAL_ERROR("Attempt to get fewer than 1 token (%s)!", $count)
    if $count < 1;

  if ($count > 1) {
    return map { $self->at($index + $_) } (0..$count);
  }

  my $pos = $self->pos;

  $sel <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351003	351228	
==>preter, INTVAL_FMT, (INTVAL){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351665	351890	
==>preter, INTVAL_FMT, (INTVAL){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	9	195	
==>w
################################################################################
# Copyright (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/tools/dev/lib_deps.pl 19607 2006-05-30T15 <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	1488	1681	
==>=> $ld_share_flags,
        i_lib_pthread  => 1,              # XXX fake a header entry
        linkflags      => $linkflags,
        link           => $link,
        rpath          => '-Wl,-rpa <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	14614	14745	
==>s/\bHALT\(\)/{{=0}}/mg;

        $branch ||= $short_name =~ /runinterp/;
        $next   ||= $short_name =~ /runinterp/;

        if <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	10483	10702	
==>($$) {
    my ($type, $parameters) = @_;

    # reduce to a comma separated set of types
    $parameters =~ s/\w+(,|$)/,/g;
    $parameters =~ s/ //g;

    # type method(interpreter, self, parameters...)
    my $ret = $c <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	2544	2741	
==>es the test if a string comparison of output
with the expected result is true.

=item C<past_output_like($code, $expected, $description)>

Runs the PAST code and passes the test if output matches th <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6881	6992	
==>de;
}

sub _generate_glob_for {
    my($target, $pattern, $captures) = @_;
    $target = _parrot_stringify($targ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5369	5478	
==>status=0;
	$$nberror=0;
	($$token,$$value)=(undef,undef);
	@$stack=( [ 0, undef ] );
	$$check='';

    w <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5111	5214	
==>status=0;
	$$nberror=0;
	($$token,$$value)=(undef,undef);
	@$stack=( [ 0, undef ] );
	$$check='';

    w <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	2316	2446	
==>nc" : "$destdir/$inc";

                #move_if_diff("$inc.tmp", "$destdir/$inc");
                #push(@generated, "$destdir/$in <==
2	/Users/nnunley/parrot/examples/benchmarks/addit.pl	429	573	
==>oop and
prints the result (21001097.97).

=cut

use strict;
sub varargs_adder {
    my $sum = 0;
    for (my $a = $#_; $a >= 0; --$a) {
        $ <==
2	/Users/nnunley/parrot/lib/File/Which.pm	6902	6989	
==>:Spec>, L<which(1)>, Perl Power Tools:
http://www.perl.com/language/ppt/index.html .

=c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768639	769070	
==>,
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 868,
                  "ARGS" => [
                              "ic",
                              "sc"
                            ],
                  "BODY" => "#line 335 \"sr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791566	791660	
==>Y" => "#line 432 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed_int(interpre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792473	792567	
==>Y" => "#line 432 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed_int(interpre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	236972	237403	
==>mp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 276,
                  "ARGS" => [
                              "i",
                              "sc",
                              "s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2084	2212	
==>andler->start_element({ Name => 'loop', Attributes => { kind => $self->kind, name => $self->prefix } });
  }
  else {
    $handle <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	26658	26872	
==>emit_code('end');
      next;
    }

=cut


    #
    # TODO: Implement other stuff and put it before this.
    #

    $self->SYNTAX_ERROR("Don't know what to do with token '%s'.", $token->text);
  }

  return $root <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7833	7933	
==>happen (string)"
i%=0
if i% then print "Should not happen (int)"
i%=54
if i% then print "This is true <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14820	14920	
==>happen (string)"
i%=0
if i% then print "Should not happen (int)"
i%=54
if i% then print "This is true <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	8914	9082	
==>'d.\n";
            last; # give up
          }
          # else keep while'ing along
        }
        # Now put it aaaaall back...
        $self->unget_token(@to_unget <==
2	/Users/nnunley/parrot/Configure.pl	6555	6661	
==>the given type for INTVAL
   --floatval=(type)    Use the given type for FLOATVAL
   --opcode=(type)      U <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53516	53691	
==>irective(
					      'if ($text =~ s/\A[^\n]*\n//) { $return = 0; $& } else { undef }',
					      $lookahead,$line,"<resync>");
				$prod and $prod->additem($item)
				      o <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1169	1305	
==>mes and info
my $test_map = {};
for my $t ( keys %{$tests} ) {
    for my $s ( keys %$streams ) {
        $test_map->{join( '_' => $lang, <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	1827	1968	
==>ion = $1;
    }
        elsif (m/^\s*
            ($type_re)\s+
            ($ident_re)\s*
        \(($arglist_re)\)
        (?:\s+(MMD_\w+))? <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22067	22172	
==>self->_add_inst(''           ,'lt'    ,[$temp,0,"DONE_$label"]);
  $self->_restore($temp);
  $self->_add_i <==
2	/Users/nnunley/parrot/config/auto/headers.pm	296	404	
==>@args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';
use Config;

$desc <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	2735	2861	
==>return $self->{BLOCKS}[shift];
}


#
# block_depth()
#
# Block depth zero is when the only block on the block stack is the file <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147257	147362	
==>ne 98 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) == {{\@2}}) {\n    {{+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148198	148303	
==>ne 98 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) == {{\@2}}) {\n    {{+ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19890	19999	
==>get_version

This works like get_title except that it returns the contents of
the "=head1 VERSION\n\n[BIG BLOC <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061585	1062004	
==>"CODE" => 1185,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 241 \"src/ops/var.ops\"\n    {{\@1}} = CONTEXT(interpreter->ctx)->current_namespace;\n    {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	348	542	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub _handle_element_start { # self, tagname, attrhash
  DEBUG > 2 and print "Handling $_[1] start-event\n";
  my $x = [$_[1], $_[2]];
  if($_[0]{'_curr <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	5525	5702	
==>oplate @foo@ values
            $text =~ s{ \@ (\w+) \@ }{\$conf->data->get("$1")}gx;
            eval $text;
            die $@ if $@;
            last;
        }
        if ($o <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	40174	40337	
==>{
                    $parser->Error("no loop to break\n");
                }
            }
        }
        unshift @{ $parser->YYData->{functs} }, \@opcodes <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39101	39256	
==>{
                $parser->Error("no loop to break\n");
            }
        }
    }
    unshift @{ $parser->YYData->{functs} }, \@opcodes2;
    my $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	24491	24659	
==>o a more comfortable place"
  #  -- /Oblique Strategies/,  Brian Eno and Peter Schmidt
  
  my($self, $para) = @_;
  my $content = join ' ', splice @$para, 2;
  $content <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1570	1730	
==>>YYData->{_G} = undef;
    unshift @{ $parser->YYData->{scopef} }, $parser->YYData->{symbtab_cst};
    $parser->YYData->{symbtab_cst} = new SymbTabConst($parse <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	429	523	
==>/lib/luacoroutine.pir"
.include "languages/lua/lib/luapackage.pir"
.include "languages/lua/li <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	11414	11541	
==>1_text_content .= $token->text;
      } elsif( $token->is_end and $token->tagname eq 'head1' ) {
        DEBUG and print "  Foun <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	999	1113	
==>T};  }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	1007	1121	
==>T};  }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	47154	47262	
==>ror,$line);
			$lookahead = $lookahead ? $lookahead : 1;
			$lookaheadspec .= $1;
			next;	# SKIP LOOKAHEAD R <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	3805	3929	
==>nfig/gen/makefiles/befunge.in' => 'languages/befunge/Makefile',
        commentType                       => '#',
        rep <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	29581	29689	
==>sub _op_string_p {
}

sub _op_make_string {
}

sub _op_string {
}

sub _op_string_length {
}

sub _op_string_ <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	12531	12653	
==>op op2  # have to pop when iterating from end.
    unshift result, $P1

    inc op1
    goto neg_loop

pos_loop:
    if op1 <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	4714	4826	
==>rdel) = @_;
	my ($startpos, $ldelpos, $endpos) = (pos $$textref = pos $$textref||0);
	unless ($$textref =~ m/\G$p <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27778	27917	
==>imary' => 28
		}
	},
	{#State 85
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			". <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	277790	277988	
==>,
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 881 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpret <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10388	10473	
==>244,/* 49 */
II,$d,$a,$b,$c,$_[11],10,0x432aff97,/* 50 */
II,$c,$d,$a,$b,$_[18],15,0xa <==
2	/Users/nnunley/parrot/lib/File/Which.pm	3716	3823	
==>rograms
on systems under which the `which' program wasn't implemented in the shell.

C<File::Which> searches <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	973	1095	
==>table_h.pl'),
            $self->new_item('', 'tools/build/vtable_extend.pl'),
        ),
        $self->new_group('Bytecod <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	331	451	
==>t::Expression::Infix;

use base qw(Jako::Construct::Expression);

sub new
{
  my $class = shift;
  my ($left, $op, $right <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722177	722283	
==>49 \"src/ops/python.ops\"\n  STRING * const s = {{\@2}};\n  PMC * const io = {{\@1}}; /* TODO Can this be l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723206	723312	
==>49 \"src/ops/python.ops\"\n  STRING * const s = {{\@2}};\n  PMC * const io = {{\@1}}; /* TODO Can this be l <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7533	7644	
==>nt
end
100 print "100!"
    goto FIN
200 print "200!"
    goto FIN
300 print "300!"
    goto FIN
oats:
	print "O <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19816	19927	
==>nt
end
100 print "100!"
    goto FIN
200 print "200!"
    goto FIN
300 print "300!"
    goto FIN
oats:
	print "O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065098	1065196	
==>ar.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed_str(i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065972	1066070	
==>ar.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed_str(i <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	780	889	
==>n> and inherits all its methods,
and adds these methods:

=over

=item $token->tagname

This returns the tagna <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1206	1315	
==>n> and inherits all its methods,
and adds these methods:

=over

=item $token->tagname

This returns the tagna <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	445990	446244	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	446626	446880	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20234	20330	
==>ian (Bokmal)
  2068  Norwegian (Nynorsk)

=back

If you are particularly interested in customizin <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	769	897	
==>^[a-z]/) { # Question marks can follow an identifier
      $token .= $ch;
    } elsif($ch eq '!' and
            $token =~ /^[a-z <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	762	1008	
==>VerbatimB'  => "<b>",
  '/VerbatimB' => "</b>",
  'VerbatimI'  => "<i>",
  '/VerbatimI' => "</i>",
  'VerbatimBI'  => "<b><i>",
  '/VerbatimBI' => "</i></b>",


  'Data'  => "\n",
  '/Data' => "\n",
  
  'head1' => "\n<h1>",  # And also stick in a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305151	305435	
==>TIVE",
                  "NAME" => "if_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305939	306223	
==>TIVE",
                  "NAME" => "if_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	16334	16476	
==>.= << "END_PIR";
    # Create a result vector
    .local pmc result 
    result = new 'APLVector'
    # Loop through each vector, doing the ops <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	5	108	
==>yright (C) 2004-2006, The Perl Foundation.
# $Id: /parrot/lib/Parrot/IO/Directory.pm 20333 2006-06-21T18 <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	4836	4962	
==>tput_fh'} = Pod::Simple::TiedOutFH->handle_on($_[0]);
  return $this->{'output_string'} = ${ $this->{'output_fh'} };
}

#@@@@@@ <==
2	/Users/nnunley/parrot/config/inter/encoding.pm	1705	1827	
==>ing            => $encoding_list,
        TEMP_encoding_o     => $TEMP_encoding_o,
        TEMP_encoding_build => $TEMP_enc <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28921	29021	
==>ribe ($) { shift->{'description'} }

sub new ($$$$)
{
	my $class = ref($_[0]) || $_[0];

	my $pattern <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31001	31101	
==>ribe ($) { shift->{'description'} }

sub new ($$$$)
{
	my $class = ref($_[0]) || $_[0];

	my $pattern <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631273	631501	
==>S" => [
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 81 \"src/ops/pmc.ops\"\n    PMC *class = {{\@2}};\n    INTVAL type = pmc_type_p(inter <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	4665	4843	
==>k "'$type' is not a valid struct element type";
        }
        $idx += 2;
    }
    $out .= "    bless \$r, \$class;\n  }\n";

    # Create accessor methods.

    my( $pre, $ps <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1620	1721	
==>rn
        ? Parrot::Test::PGE::_generate_subrule_pir($target, $pattern)
        : Parrot::Test::PGE:: <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2143	2244	
==>rn
        ? Parrot::Test::PGE::_generate_subrule_pir($target, $pattern)
        : Parrot::Test::PGE:: <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	611	719	
==>CPAN
#
# Any use of this module in a standalone parser make the included
# text under the same copyright a <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	594	699	
==>CPAN
#
# Any use of this module in a standalone parser make the included
# text under the same copyright a <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	499	641	
==>,
    output_isnt       => 'isnt_eq'
                        );

foreach my $func ( keys %language_test_map ) {
    no strict 'refs';

    *{"P <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	838	980	
==>,
    output_isnt       => 'isnt_eq'
                        );

foreach my $func ( keys %language_test_map ) {
    no strict 'refs';

    *{"P <==
2	/Users/nnunley/parrot/config/auto/gdbm.pm	1529	1685	
==>b'); };
        }
    } else {
        eval { cc_build('', '-lgdbm'); };
    }
    my $has_gdbm = 0;
    if (!$@) {
        my $test = cc_run();
        unli <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	11100	11239	
==>=cut

sub cc_clean
{
    unlink map "test$_", qw( .c .cco .ldo .out), $conf->data->get(qw( o exe ));
}

=item C<capture_output($command)>

E <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	250036	250238	
==>rc/ops/cmp.ops\"\n  {{\@1}} = ! {{\@1}};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054226	1054341	
==>,
                  "BODY" => "#line 182 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (PMC_IS_NULL({{\@2}}))\n\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055353	1055468	
==>,
                  "BODY" => "#line 182 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (PMC_IS_NULL({{\@2}}))\n\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	2993	3099	
==>\%attributes, I<...subnodes...> ]>.
See the example tree dump in the Synopsis, above.

Every text node in t <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	2430	2625	
==>er->Dump ([$count, $tree]);
    push @tree, $tree;
  }

  # Implicit begin at toplevel
  if (@tree > 1) {
    $tree = { children => [ { value => 'begin' }, @tree ] };
  }
  return $tree;
}

1;
__E <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	5380	5622	
==>efine',
             'i_stdlib' => 'define',
             'i_string' => 'define',
             'i_sunmath' => undef,
             'i_sysaccess' => undef,
             'i_sysdir' => 'define',
             'i_sysexit' => undef,
             'i_s <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	21041	21147	
==>,	# STR/PAT
		$rd1pos,	1,			# RIGHT DEL
		$ld2pos,	$second_arg,		# 2ND LDEL (MAYBE)
		$str2pos,	$rd2pos-$st <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	2620	2851	
==>tions, C<PC> and C<PC'> are the current
and next position within the Parrot code.

=over 4

=item C<goto OFFSET(X)>

Transforms to C<PC' = PC + X>. This is used for branches.

=item C<goto NEXT()>

Transforms to C<PC' = PC + S>, whe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630573	630672	
==>nterpreter, NULL, NO_CLASS,\n            \"Class '%Ss' not found\", readable_name(interpreter, class <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631563	631662	
==>nterpreter, NULL, NO_CLASS,\n            \"Class '%Ss' not found\", readable_name(interpreter, class <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	7369	7477	
==>$op->{arg1}->{symbol} $op->{op} $op->{arg2}->{symbol} goto $op->{result}->{symbol}\n";
        }
        el <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	7808	7916	
==>$op->{arg1}->{symbol} $op->{op} $op->{arg2}->{symbol} goto $op->{result}->{symbol}\n";
        }
        el <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954346	954667	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "encoding",
                  "FLAGS" => ":base_cor <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955137	955422	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "encodingname", <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	4183	4313	
==>k
{
  my $self = shift;
  my ($offset) = @_;

  $offset = 1 unless defined $offset;

  return $self->forth(-$offset);
}


#
# dump( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718026	718130	
==>terpreter, io, \" \");\n  PIO_fprintf(interpreter, io, INTVAL_FMT, (INTVAL){{\@2}});\n  PIO_softspace(int <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718958	719062	
==>terpreter, io, \" \");\n  PIO_fprintf(interpreter, io, INTVAL_FMT, (INTVAL){{\@2}});\n  PIO_softspace(int <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19299	19397	
==>my $block = $self->current_block();
      my $left = Jako::Construct::Expression::Value::Identifier <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20381	20479	
==>my $block = $self->current_block();
      my $left = Jako::Construct::Expression::Value::Identifier <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4563	4673	
==>ing to do.
	return "";
}

# Pre and post branch operation hooks.
sub pre_branch($) {
	my $self = shift;
	my $po <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2979	3089	
==>ing to do.
	return "";
}

# Pre and post branch operation hooks.
sub pre_branch($) {
	my $self = shift;
	my $po <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	4464	4610	
==>entType} eq '#') {
            foreach my $line (@comment) {
                $line = "# $line\n";
            }
        } elsif ($options{commentTy <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3551	3653	
==>lse {
      $self->SYNTAX_ERROR("Sub declaration has no fnlib property, and parent block is not a modul <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6215	6317	
==>lse {
      $self->SYNTAX_ERROR("Sub declaration has no fnlib property, and parent block is not a modul <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	7622	7776	
==>anchUnlessOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        if ( exists $op->{op} ) {
            print {$ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	12035	12133	
==>r
an array ref of programs to search the current C<PATH> for.  The first matching
program name is r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103997	1104085	
==>type = pmc_type(interpreter, class);\n\t}\n\tif (type <= 0)\n\t\treal_exception(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105212	1105300	
==>type = pmc_type(interpreter, class);\n\t}\n\tif (type <= 0)\n\t\treal_exception(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726818	727097	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exchange <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	531985	532258	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ex <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10296	10411	
==>n(undef);
		};

		#shift the error token

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Shift \$error token <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9834	9943	
==>n(undef);
		};

		#shift the error token

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Shift \$error token <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21686	21842	
==>UNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 100,
			'functioncall' => 31,
			'explist1' => 121,
			'function' => 26,
			'tablecon <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	34587	34696	
==>t be
balanced and correctly nested within the substring, and any other kind of
("non-delimiter") bracket in th <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19097	19230	
==>ly just "I<modulename> p. I<pagenumber>".

=item $parser->normal_halfpoint_size( I<halfpoint_integer> );

This method sets the size (i <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26878	27013	
==>n' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 83
		ACTIONS => {
			"-" => 24,
			' <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	1345	1465	
==>rence.  Get its numeric Unicode value.
      $in = $Name2character{$in};
      return undef unless defined $in;  # (if th <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	624	722	
==>fess "Op is not defined!" unless defined $op;
  confess "Right is not defined!" unless defined $rig <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	636	734	
==>fess "Op is not defined!" unless defined $op;
  confess "Right is not defined!" unless defined $rig <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77677	77918	
==>q{"$tracecontext"};
		}
		else
		{
			$tracecontext = qq{<NO TEXT LEFT>};
		}
		write TRACECONTEXT;
	}
}

sub _parseunneg($$$$)
{
	_parse($_[0],$_[1],$_[3]);
	if ($_[2]<0)
	{
		_error("Can't negate \"$&\".",$_[3]);
		_hint("You can't negate $ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22495	22607	
==>_inst(''           ,'mod'   ,[$temp_0,$temp_0,$temp_1]);
  $self->_add_inst(''           ,'eq'    ,[$temp_0,1,"DO <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26027	26146	
==>ush @opcodes, @{ $cond->[1] };
        push @opcodes, new BranchUnlessOp( $parser,
            'arg1'   => $cond->[0], <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26901	27012	
==>ush @opcodes, @{ $cond->[1] };
    push @opcodes, new BranchUnlessOp( $parser,
        'arg1'   => $cond->[0], <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9800	9928	
==>oken=$$value=undef;
		};

        $$errstatus=3;

		while(	  @$stack
			  and (		not exists($$states[$$stack[-1][0]]{ACTION <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9360	9482	
==>oken=$$value=undef;
		};

        $$errstatus=3;

		while(	  @$stack
			  and (		not exists($$states[$$stack[-1][0]]{ACTION <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3788	4160	
==>t_preamble {
    my ($source) = @_;
    my $preamble;

    my $regex = qr{
        ^                               # preambles begin the line
        (                               # then contain one of...
        catch {                       # a catch statement

        |                               # or
        proc                            # a procedure definiti <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22263	22395	
==>rn;
}

sub _op_odd_p {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  my $temp_0 = $self->_generate($node- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2488	2591	
==>are the constant, we will place its
  # definition into the block at the top of the block stack. We fill <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2235	2338	
==>are the constant, we will place its
  # definition into the block at the top of the block stack. We fill <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319991	320218	
==>otgnu.ops\"\n  {{\@1}} = (INTVAL)((Parrot_Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320761	320988	
==>otgnu.ops\"\n  {{\@1}} = (INTVAL)((Parrot_Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33657	33825	
==>,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 166,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' = <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	1094	1205	
==>ng from the internals here. Don't go
peeking inside -- you've as much access as bytecode does, but no more,
so w <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	360	466	
==>arp;

use base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $left, $right) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	351	457	
==>arp;

use base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $left, $right) <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3998	4109	
==>'Undefined'.

=cut

sub type
{
	my $self = shift;
	my $type = $self->type_for_suffix($self->suffix);
	
	return $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19186	19312	
==>('lt', [ $matchcount, $min, $local_back ]),
      $next => $self->op_save_rxlocals($op),
              );

    return ($back, @ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20776	20902	
==>('lt', [ $matchcount, $min, $local_back ]),
      $next => $self->op_save_rxlocals($op),
              );

    return ($back, @ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2898	3059	
==>>{code}}, $prompt; 
	my $sf=1;
	$sf=0 if ($filedesc);

	push @{$code{$seg}->{code}},<<INP1;
	\$S0 = _READLINE($filedesc)
	\$P99 = _SPLITLINE(\$S0,$sf)
	\$I0= \$P9 <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	71369	71667	
==>herwise
					       it will be treated as an 
					       immediate <reject>.");
					eval "sub $self->{namespace}::$call {undef}";
				}
				else	# EXPERIMENTAL
				{
					_warn(1,"Autogenerating rule: $call")
					and
					_hint("A call was made to a subrule
					       named \"$call\", but no su <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	15094	15225	
==>$method, 1);
            $sub_meth_decl =~ /(\w+)\(/;
            my $sub_meth_name = $1;
            my $sub_meth =  $sub_meth_decl <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	53551	53686	
==>opy
  my $x;
  my $out =
    # join ",\n" .
    join ", ",
    map {;
    if(!defined($_)) {
      "undef";
    } elsif(ref($_) eq 'ARRA <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	689	784	
==>"  unless UNIVERSAL::isa($type, qw(Jako::Construct::Type));
  confess "Identifier (" . ref($iden <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	679	772	
==>" unless UNIVERSAL::isa($type, qw(Jako::Construct::Type));
  confess "Identifier (". ref($iden <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4672	4792	
==>pops = shift;
	my $register_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop stuff off the s <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3088	3208	
==>pops = shift;
	my $register_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop stuff off the s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	11701	11849	
==>nsupported encoding.",
      $suggestion, "  [$encmodver\'s supported encodings are: @supported]"
    ;

    $self->scream( $self->{'line_count'}, $e <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	5374	5469	
==>type) {
    $self->whine("Typeless L!?", $token->attr('start_line'));
  } elsif( $type eq 'pod') <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18576	18700	
==>args = ();

      unless ($self->get(1)->is_close_paren) {
        while (1) {
          push @args, Jako::Construct::Express <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19602	19726	
==>args = ();

      unless ($self->get(1)->is_close_paren) {
        while (1) {
          push @args, Jako::Construct::Express <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	56322	56509	
==>t_multiple($text,
                                   [ sub { extract_variable($_[0]) } ],
                                   undef, 1);

This example separates a text into fields which are <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30219	30354	
==>dispatch {
	goto RTJUMP;
	print CODE <<SCOPYDIS;
	
	#
	# Structure copy dispatch routine
	# Call with S0 set to the type
	# Source in P6 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	15955	16191	
==>E, interpreter->code->base.data)}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "if",
                  "FLAGS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	326304	326557	
==>>vtable->set_integer_same(interpreter, {{\@1}},{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/config/auto/pack.pm	608	729	
==>orks for perl 5.6.x or greater.
    #

    my $intsize  = $conf->data->get('intsize');
    my $longsize = $conf->data->get <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	619	764	
==>hare_flags !~ /-fPIC/) {
        $ld_share_flags .= ' -fPIC';
    }

    if ($cc =~ /icc/) {

        # Intel C++ compiler has the same name as it <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1671	1767	
==>DESCRIPTION

This class is not of interest to general users.

Pod::Simple uses this class for rep <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686435	686529	
==>mc.ops\"\n   {{\@1}} = {{\@3}}->vtable->getprop(interpreter, {{\@3}}, {{\@2}});\n   {{+=4}};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687325	687419	
==>mc.ops\"\n   {{\@1}} = {{\@3}}->vtable->getprop(interpreter, {{\@3}}, {{\@2}});\n   {{+=4}};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	532	672	
==>$lang_f    = Parrot::Test::per_test('.p1',$count);
    my $out_f     = Parrot::Test::per_test('.out',$count);
    my $parrotdir = dirname $se <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16804	17004	
==>signto, \@left, $opts{stuff}, [], $type);
		
		$result=$assignto;
	} else {
		#print STDERR "Extract\n";
		@expr=get_expression(%opts);	# Get expression tokens
		$whole.=join(' ', map { $_->[0] } @expr <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	2050	2162	
==>defined($status) || $status) {
        die "assemble failed with status " . ($? >> 8);
    }
}

sub generate_regu <==
2	/Users/nnunley/parrot/languages/regex/test.pl	3724	3836	
==>defined($status) || $status) {
        die "assemble failed with status " . ($? >> 8);
    }
}

sub generate_regu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23920	24030	
==>\@2}};\n  dest = (opcode_t *)p->vtable->invoke(interpreter, p, {{^+3}});\n  {{=dest}};\n",
                  "L <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	188	394	
==>05-30T15:23:20.183054Z coke  $
################################################################################

=head1 NAME

tools/dev/lib_deps.pl - List libc dependencies

=head1 SYNOPSIS

    % perl tools <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	50160	50264	
==>cent::Directive(
					'Text::Balanced::extract_codeblock($text,undef,$skip);
					', $lookahead,$line,"<p <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3731	3867	
==>= 
        gather_groups_and_libs(@pmcs);

    # Convert X.c -> X.o for all X.c
    compile($_) foreach (@pmcs);

    # lib-GROUP.c
    f <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3835	3971	
==>= 
        gather_groups_and_libs(@pmcs);

    # Convert X.c -> X.o for all X.c
    compile($_) foreach (@pmcs);

    # lib-GROUP.c
    f <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	17962	18103	
==>= $startpos;
		return;
	}

	my $op = $1;
	$preld1pos = pos($$textref);
	if ($op eq '<<') {
		$ld1pos = pos($$textref);
		my $label;
		if ($$te <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1833	2106	
==>le($compiler);
      $compiler->outdent;
      $compiler->emit(".endnamespace ${namespace}_ELSE");
    }

    $compiler->emit("${prefix}_LAST:");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  if (not $self->prefix and $self->peer a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1016910	1017234	
==>RGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1136,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 108 \"src/ops/sys.ops\"\n  {{\@1}} = Pa <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27233	27343	
==>ir .= sub_meta($pre_translate_code, $mv, "pre-translate for $rule->{'name'}");

		# If we have PIR for the inst <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34372	34482	
==>ir .= sub_meta($pre_translate_code, $mv, "pre-translate for $rule->{'name'}");

		# If we have PIR for the inst <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	4963	5112	
==>urce_file}{$function} = $percent;
                next;
            }

            ($percent, my $total_calls, $function) = /\s*([^%]+)% of (\d+) call <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9821	9948	
==>) {
        return "INTERP, SELF, $args";
    } else {
        return "INTERP, SELF";
    }
}

=item C<proto($type,$parameters)> <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	40546	40723	
==>the opening and closing tags

=item [5]

the closing tag (or "" if no closing tag was found)

=back

On failure, all of these values (except the remaining text) are C<undef>.

In <==
2	/Users/nnunley/parrot/config/inter/shlibs.pm	852	946	
==>y $cc_shared = $conf->options->get('cc_shared');
    $cc_shared = integrate($conf->data->get('c <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	20308	20434	
==>$1";
			$rdel2 =~ tr/[({</])}>/;
		}
		else
		{
			$ldel2 = $rdel2 = $ldel1;
		}
		$str2pos = $ld2pos+1;

		if ($ldel2 =~ /[[(< <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583961	584223	
==>> "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585035	585297	
==>> "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
2	/Users/nnunley/parrot/config/init/hints/hpux.pm	192	307	
==>elf, $conf) = @_;

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpth <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	246	361	
==>elf, $conf) = @_;

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpth <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	13575	13683	
==>$name);

Like Test::More's like().  Checks if $this matches the given $regex.

You'll want to avoid qr// if y <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	7198	7392	
==>fig/root.in' => 'languages/tcl/Makefile',
        commentType                    => '#',
        replace_slashes                => 1,
        conditioned_lines              => 1
    );
    genfil <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033533	1033801	
==>nterpreter, lex_pad, lex_name, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034631	1034899	
==>nterpreter, lex_pad, lex_name, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
2	/Users/nnunley/parrot/languages/urm/urm-old.pl	374	588	
==>input = readline(STDIN);
	my @register = split (",", $1);
	chomp $input;
	my @input = split(",", $input);
	foreach my $reg (@register) {
	    $register{$reg} = shift @input;
	}
    }
    if ($line =~ /(r\d+)/) { $re <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	7056	7220	
==>rong.)
#
sub rewrite_group {
    my ($self, $op, $R, $group, $lastback) = @_;
    my $rfail = $self->genlabel("group_iback");
    my $back = $self->genlabel("group_b <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	2929	3152	
==>ls ],
        FLAGS   => $flags,
        BODY => '',
        JUMP => 0,
    };

    return bless $self, $class;
}

=back

=head2 Instance Methods

=over 4

=item C<code()>

Returns the op code.

=cut

sub code
{
    my $self <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670256	670627	
==>ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 750,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 415 \"src/ops <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664941	665236	
==>i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 743,
                  "ARGS" => [
                              "p",
                              "ki"
                            ],
                  "BODY" => "#line 359 \"src/ops/pmc.ops\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650791	651075	
==>e\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651713	651997	
==>e\n        {{\@1}} = 0;\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787989	788096	
==>vtable->get_number_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788899	789006	
==>vtable->get_number_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	5789	5914	
==>d
5030 print "Ok"
	end

' Equals bug, should print = greeting
dim a$(1)
a$(2)="World"
a$="Hello"
A$ = A$ + "=" + A$(2)
print a <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	1519	1643	
==>hift;

    my $c = $self->{c};

    return @$c{@_};
}

=item C<set($key => $val, ...)>

Modifies or creates a new value.

Acc <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	404	518	
==>:Declaration);

use Jako::Construct::Type;


#
# new()
#

sub new
{
  my $class = shift;

  my ($block, $type, $ide <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	404	518	
==>:Declaration);

use Jako::Construct::Type;


#
# new()
#

sub new
{
  my $class = shift;

  my ($block, $type, $ide <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	32180	32284	
==>NLY be called from inside an END block.  It
doesn't actually exit, that's your job.

=cut

sub _my_exit { <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	2781	2953	
==>eval $subst if ($subst ne '');
                    print INC ".constant $_\n";
                }
            } elsif ($in_def eq 'enum') {
                if (/(\w+)\s+=\s+( <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3818	3912	
==>cessor: also in that
namespace, Parrot should only present Parrot_ (and similar) symbols to
the <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784001	784358	
==>"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 885,
                  "ARGS" => [
                              "p",
                              "ki",
                              "p"
                            ],
                  "BODY" => "#line 392 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	320	431	
==>he POD documentation in F<docs>.

=head2 Class Methods

=over

=cut

package Parrot::Docs::Section::Docs;

use s <==
2	/Users/nnunley/parrot/config/auto/va_ptr.pm	75	166	
==>va_ptr.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/va_ptr.pm - va <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1186	1329	
==>and remove the -O1 option if it does.
        # This will prevent the 'optimization is not available in the
        # standard edition compiler' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	626637	627055	
==>ME" => "new",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 703,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	5980	6098	
==>rot ignoring all SVN and ICU
files.

Note that if there are files with no suffix then the empty string will
be included <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25683	25812	
==>Y_$forloop:
COND
	debug() if $debug;
	
	push @{$fors[$scopes]}, { var => $result, num => $forloop, inc => $stepexpr };
}
sub parse <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1036	1133	
==>IPTION

When you do $parser->get_token on a L<Pod::Simple::PullParser> object, you might
get an ob <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	3067	3175	
==>h the expected result is true.

=item C<pir_output_like($code, $expected, $description)>

Runs the PIR code a <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	10331	10459	
==>pty to prevent msvc compiler errors
        my $arg_types  = "{ " . join(", ", scalar $op->arg_types
            ? map { sprintf( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7293	7416	
==>t = $self->get_token;
        next unless defined $next;
        unless( $next->type eq 'text' ) {
          $self->unget_to <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9538	9661	
==>t = $self->get_token;
        next unless defined $next;
        unless( $next->type eq 'text' ) {
          $self->unget_to <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	12971	13158	
==>se it's a syntax error
    $self->whine( $para->[1]{'start_line'},
      "Invalid =encoding syntax: $content"
    );
  }
  
  return;
}

#~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~` <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2504	2603	
==>RNAL_ERROR("Can't determine type of actual argument (%s)!", ref $args[$i])
      unless defined $act <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2204	2303	
==>RNAL_ERROR("Can't determine type of actual argument (%s)!", ref $args[$i])
      unless defined $act <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	11229	11404	
==>:$todo, Str :$depends) returns Bool is export`

These functions should work with most reg-exps, but given that they are still a
somewhat experimental feature in Pugs, it is sug <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	26020	26134	
==>e = $code[$code_l]->[2];
    if ($opcode eq 'POP_TOP') {
	print "# POP_TOP\n";
	$code_l++;
    }
    else {
	if (!$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841654	841925	
==>er,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842418	842689	
==>er,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122134	122394	
==>NTVAL, {{\@1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123046	123306	
==>NTVAL, {{\@1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	17963	18169	
==>y.pod > thingy.rtf

=head1 DESCRIPTION

This class is a formatter that takes Pod and renders it as RTF, good for
viewing/printing in MSWord, WordPad/write.exe, TextEdit, etc.

This is a subclass of L<Pod::Si <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10520	10623	
==>tem C<file_with_relative_path($path)>

Returns a file with the specified relative path below the directo <==
2	/Users/nnunley/parrot/config/inter/libparrot.pm	1527	1642	
==>$conf->data->set(
        rpath_blib => ($parrot_is_shared && $conf->data->get('rpath'))
        ? $conf->data->ge <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	20412	20540	
==>i_match' => [ $_[2]->{min}, $_[2]->{max}, TRUE, $_[1] ]); }
	],
	[#Rule 20
		 'expr', 3,
sub
#line 131 "lib/Regex/Grammar.y"
{ re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615016	615154	
==>ext, NO_CLASS,\n            \"Class not parent of object\");\n    }\n    {{\@1}} = offset;\n    {{=next}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616167	616305	
==>ext, NO_CLASS,\n            \"Class not parent of object\");\n    }\n    {{\@1}} = offset;\n    {{=next}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	13878	13989	
==>ns Bool`
- `skip (Int $count, Str $reason?) returns Bool`

If for some reason a test is to be skipped, you can u <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	985	1096	
==>od on how to recreate this file after SVN
# has been told about new generated files.
# 
# Ignore the SVN directo <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3840	3950	
==>od on how to recreate this file after SVN
# has been told about new generated files.
#
# Ignore the SVN directo <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	10630	10791	
==>input> = <rx_match>{'!INPUT'};
#         <rx_pos> = <rx_match>{'!POS'};
#         <rx_stack> = <rx_match>{'!STACK'};
#     }
# END
        @ops = ("sub _rule_$nam <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218844	218937	
==>@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) > 0) {\n    {{+={{\@3}}}};\n  }\n  {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219823	219916	
==>@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) > 0) {\n    {{+={{\@3}}}};\n  }\n  {{ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	8617	8774	
==>e = $? >> 8;

    close STDOUT             or die "Can't close    stdout" if $out;
    close STDERR             or die "Can't close    stderr" if $err;

    o <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8161	8294	
==>e = $? >> 8;

    close STDOUT or die "Can't close    stdout" if $out;
    close STDERR or die "Can't close    stderr" if $err;

    o <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	793	1037	
==>rks can follow an identifier
      $token .= $ch;
    } elsif($ch eq '!' and
            $token =~ /^[a-z]/) { # Exclamation marks can follow an identifier
      $token .= $ch;
    } elsif($ch eq '=' and
            $token =~ /^[<>]/) {  # Equal <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088852	1088940	
==>"#line 186 \"src/ops/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089800	1089888	
==>"#line 186 \"src/ops/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	16415	16623	
==>goto R[].back
#          next:
#
# The code below does not assume the alternatives are coming from an
# array; instead, a callback is given that should rewrite the
# alternative that corresponds to the (dynami <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1636	1767	
==>] = {
EOF
;

if ($mini_parrot) {
    print "    0\n";
}
else {

    my $image_file = $install_parrot ?
        'install_config.fpmc' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176510	176807	
==>r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 211 <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	1962	2097	
==>Scheme:Tokenizer;

  my @code = Scheme::Tokenizer->new($file_name)->tokenize();

=head1 DESCRIPTION

The tokenizer takes a file and spli <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	3717	3810	
==>t(${$self->{text}})
			 + 1;

	$parser->{offsetlinenum} += $parser->{lastlinenum} - $apparentl <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	5707	5828	
==>lColor="#FF6C6C" bold="0" italic="0" />
      <itemData name="String Interp" defStyleNum="dsString" />
      <itemData nam <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8141	8236	
==>s 'use integer'-hint.

This release was made by Christian Lackas <delta@clackas.de>.

=cut

__DA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178318	178714	
==>r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 213,
                  "ARGS" => [
                              "sc",
                              " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691564	691920	
==>AGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 777,
                  "ARGS" => [
                              "p",
                              "sc"
                            ], <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	26007	26159	
==>= <<"EOC";
#define N_MMD_INIT (sizeof(_temp_mmd_init)/sizeof(_temp_mmd_init[0]))
        Parrot_mmd_register_table(interp, entry,
            _temp_mmd_i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179223	179770	
==>r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 214,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 247 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415079	415250	
==>"ic",
                              "i"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416207	416378	
==>"ic",
                              "i"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009847	1009957	
==>src/ops/string.ops\"\n  {{\@1}} = string_compose(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010612	1010722	
==>src/ops/string.ops\"\n  {{\@1}} = string_compose(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	22048	22153	
==>"
	case 2
		print "Two"
	case 3
		print "Correct"
	case else
		print "WRONG!"
end select
print "All done." <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	636	788	
==>t least three language
implementations need.

If you really want, you can pass a third option to the C<use> line.
C<arguments> should be an array referen <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	8544	8706	
==>ented yet at $sourceline"
	} else {
		die "Expected input/output/random at $sourceline"
	}
	feedme();
	die "Expecting AS" unless $syms[CURR] eq "as";
	feedme();
	d <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19170	19266	
==>t_size( I<halfpoint_integer> );

This method sets the size (in half-points, like 26 for 13-point) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11791	11960	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

1;
__END__

=head1 NAME

TODO - TODO

=head1 SYNOPSIS

 TODO

  perl -MPod::Simple::HTML -e \
   "ex <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1586	1677	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1;
__END__

=head1 NAME <==
2	/Users/nnunley/parrot/config/gen/icu.pm	3867	4258	
==>lags)  Full linker command to create shared libraries
HELP

    #'

    my $icudir = dirname($icuheaders);

    $conf->data->set(
        has_icu    => 1,
        icu_shared => $icushared,
        icu_dir    => $icudir,
    );

    # Add -I $Icuheaders if necessary
    my $header = "unicode/ucnv.h";
    $conf->data->set(testheaders => "#include <$header>\n");
    $conf->data->set(testheade <==
2	/Users/nnunley/parrot/config/auto/readline.pm	187	299	
==>lib

=head1 DESCRIPTION

Determines whether the platform supports readline.

=cut

package auto::readline;

use s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	233809	233960	
==>"n"
                            ],
                  "BODY" => "#line 599 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234713	234864	
==>"n"
                            ],
                  "BODY" => "#line 599 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > {{ <==
2	/Users/nnunley/parrot/config/auto/byteorder.pm	511	691	
==>runstep
{
    my ($self, $conf) = @_;

    cc_gen('config/auto/byteorder/test_c.in');
    cc_build();
    my $byteorder = cc_run() or die "Can't run the byteorder testing program: $ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	35780	35875	
==>planned, the missing (or extras)
will be considered failures.  If no tests were ever run Test::B <==
2	/Users/nnunley/parrot/lib/Test/More.pm	33851	33946	
==>planned, the missing (or extras)
will be considered failures.  If no tests were ever run Test::B <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	18449	18547	
==>bility for compile time class creation.

Modified by Damian Conway, 1999-03-05, v0.58.

    Added h <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	698	845	
==>h)>

Returns the instance for C<$path>.

=cut

sub new
{
    my $self = shift;
    my $path = shift;
    
    return unless defined $path and ! -d $ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64848	65041	
==>{
						my $pos = pos $grammar;
						substr($grammar,$pos,0,
						       "<leftop: $name $3 $name>($1..$2) ");

						pos $grammar = $pos;
					}
					else
					{
						$item = new Parse::RecD <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35164	35323	
==>thods}[$n], $line, $out_name);
    }
    my $decl = $self->decl($self->{class}, $method, 0);
    my $ret = "";
    if ($method->{type} ne 'void') {
        # Th <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36467	36572	
==>thods}[$n], $line, $out_name);
    }
    my $decl = $self->decl($self->{class}, $method, 0);
    my $ret = <==
2	/Users/nnunley/parrot/lib/File/Which.pm	3153	3283	
==>turn undef;
    }
}

sub where {
    my @res = which($_[0]); # force wantarray
    return @res;
}

1;
__END__

=head1 NAME

File::W <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447576	447856	
==>CODE" => 512,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 170 \"src/ops/math.ops\"\n  if ({{\@2}} < 0) {\n    {{\@1}} = - (INTVAL){{\@2}};\n  }\n  else {\n    { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710823	711014	
==>L){{\@1}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711657	711848	
==>L){{\@1}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	506	695	
==>f->convert($tree, $ctx) ]);
    }
}

sub convert {
    my ($self, $tree, $ctx) = @_;

    my $type = ref($tree);

    my ($stem) = $type =~ /^P6C::(\w+)$/
      or confess "Unrecognized type <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	12325	12460	
==>ongjmp     setjmp.h
lrint       math.h
lrintf      math.h
lrintl      math.h
lround      math.h
lroundf     math.h
lroundl     math.h
ma <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259192	259449	
==>s_same(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263546	263803	
==>s_same(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	31223	31366	
==>ional. If the escape characters are not specified,
every delimiter is escaped with a backslash (C<\>).
If the prefix is not specified, the
patte <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	329	429	
==>tes the Native Call Interface file F<src/nci.c>. It
parses a file of function signatures of the form: <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	8603	8707	
==>o->cur_op[i])
#define SREG(i) REG_STR(jit_info->cur_op[i])
#define CONST(i) interpreter->code->const_tabl <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	6371	6648	
==>: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically from '$file'
 * by $0.
 *
 * Any changes made here will be lost!
 */

#ifndef PARROT_OPS_H_GUARD
#define PARROT_OPS_H_GUARD

typedef enum {
END_C

for(@{$real_ops->{OPS}}) {
    my <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	5251	5360	
==>: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically from '$file' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	11054	11198	
==>_start and $token->tagname eq 'head1' ) {
        DEBUG and print "  Found head1.  Seeking content...\n";
        ++$state;
        $head1_text_c <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	24579	24889	
==>ink} $PConfig{linkflags} $PConfig{ld_debug} "
               . "$obj_f $cfg $PConfig{ld_out}$exe_f "
               . "$libparrot $iculibs $PConfig{libs}";
            $exit_code = run_command($cmd,
                                     'STDOUT' => $build_f,
                                     'STDERR' => $bui <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820298	820551	
==>> 929,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 79 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n    stack_entry(interp <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	4891	4989	
==>L>

The High level language this PMC corresponds to.

=item C<maps Type>

The basic parrot PMC type <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20374	20602	
==>ared" Whoa, 66666, Goodbye, 909090, 101010
type struct
	first as integer
end type
sub foo
	shared thing$
	shared narf as struct
	shared bar()
	shared lot$()
	shared poit() as struct
	thing$="Whoa"
	bar(5)=66666
	lot$(2)="Goodbye" <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	1712	1829	
==>_path);
	
	# Read in makefile template.
	my $fh;
	open $fh, "< config/Makefile.in" or die "Unable to open config/M <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	12375	12583	
==>(const char * name, int full);

static size_t hash_str(const char * str) {
    size_t key = 0;
    const char * s;
    for(s=str; *s; s++)
        key = key * 65599 + *s;
    return key;
}

static void store_o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168510	168602	
==>n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169452	169544	
==>n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701319	701683	
==>LAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 787,
                  "ARGS" => [
                              "p" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3929	4139	
==>ting ," unless $syms[CURR] eq ",";
		feedme();
		input_read_assign($promptcode, $fd, 'noreprompt');
		return;
	}
	$promptcode="INPUT_$inputcounts:\n";
	# BASIC is unambiguous here.  The next thing must be a quot <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26605	26753	
==>e->{'class'} eq 'op') {
		# Init destination types array.
		$pir .= "    dtypes = new ResizablePMCArray\n";

		# Insert typeinfo code (sets up dtypes <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2946	3051	
==>tine one should be skipped"
Label2:
   PRINT "4 back in subroutine one"
   RETURN Label1
Sub2:
   PRINT "3 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16913	17018	
==>tine one should be skipped"
Label2:
   PRINT "4 back in subroutine one"
   RETURN Label1
Sub2:
   PRINT "3 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2511	2734	
==>emp = $value");
      $args[$i] = $temp;
    }
    else {
      $args[$i] = $args[$i]->compile($compiler);
    }
  }

  if (exists $props{op}) {
    my $op = $props{op};

#    $self->DEBUG(0, "Calling %s%s...", $name, ($op ? <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	1217	1345	
==>'),
        ),
        $self->new_group('QA', '',
            $self->new_item('', 'parrotbug'),
            $self->new_item('', ' <==
2	/Users/nnunley/parrot/lib/File/Which.pm	5029	5159	
==>ble.

=head2 VMS

Same case as Windows 9x: uses C<.exe> and C<.com> (in that order).

=head1 Functions

=head2 which($short_exe_nam <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	1058	1265	
==>_[0]};
}

sub PRINTF {
  my $it = shift;
  my $format = shift;
  $$$it .= sprintf $format, @_;
  return 1;
}

sub FILENO { ${ $_[0] } + 100 } # just to produce SOME number

sub CLOSE { 1 }

#~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	7996	8170	
==>ss.

=cut

sub init() {
    my ($self, $class) = @_;

    $self->get_vtable_section();
    $self->make_const($class) if $self->{flags}{const_too};

}

=item C<decl($classname, <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	20812	20977	
==>_l-- if ($label ne '');
	# plain compare, no branch
	my %is_map = (
	    '==' => 'iseq',
	    '!=' => 'isne',
	    '>' => 'isgt',
	    '>=' => 'isge',
	    '<' => 'is <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	2567	2689	
==>r eq ">" or $cur eq "<" or $cur eq "=") { 
		append;
		if ($next eq "=" or $next eq ">") {
			fetch;
			append;
		}
		emit( <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	16042	16163	
==>i'));
        or_flag(\$jumps, "PARROT_JUMP_RESTART")     if ($restart);

        $op->jump($jumps);
        $self->push_o <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	3621	3804	
==>pmc_new(interpreter, enum_class_ParrotLibrary);
    /*
     * TODO stuff some info into this PMCs props
     */

    /*
     * for all PMCs we want to register:
     */
EOC
    while ( <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1208	1325	
==>/parrot languages/$pasm_f @other",
            CD => '..', # $self->{relpath}, 
            STDOUT => $out_f, STDERR = <==
2	/Users/nnunley/parrot/config/inter/progs.pm	3288	3420	
==>$conf->data->set(ldflags => $ldflags);

    $libs = $conf->data->get('libs');
    $libs = join ' ', grep { $^O =~ /VMS|MSWin/ || !/^- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490801	491062	
==>++;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inc",
                  "FLAGS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	491422	491683	
==>++;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inc",
                  "FLAGS" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	7114	7262	
==>en   { return shift->skip('close-paren');   }
sub skip_ident         { return shift->skip('ident');         }
sub skip_literal       { return shift-> <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	180	278	
==>ls $branchseq @selects);
use vars qw( @data $sourceline %common );
use vars qw( %code $debug $runti <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7942	8089	
==>tpos, $parapos, $closetagpos, $endpos) = ( pos($$textref) = pos($$textref)||0 );

	unless ($$textref =~ m/\G($pre)/gc)
	{
		_failmsg "Did not find p <==
2	/Users/nnunley/parrot/Configure.pl	2136	2246	
==>exer)>

Specify which lexer to use.

=item C<--yacc=(parser)>

Specify which parser to use.

=item C<--define=v <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2105	2214	
==>[0]{'Indent'} }
sub   end_over_block   { --$_[0]{'Indent'} }


# . . . . . Now the actual formatters:

sub end <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1673	1782	
==>[0]{'Indent'} }
sub   end_over_block   { --$_[0]{'Indent'} }


# . . . . . Now the actual formatters:

sub end <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	2700	2876	
==>ection' ),
                   'baz'
                 ], 'Pod::Simple::LinkSection' );
  
But stringify it and you get just the text content:

  % perl -MData::Dumper -e
    "use <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1734	1853	
==>mpile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $block = $self->block;
  my $name  = $self->id <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	4158	4280	
==>ow do dispatch for each method.
        foreach (@{$classes{$_}}) {
            my $label = $_->{'unimplemented'} ? 'UNIMPL <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	2107	2201	
==>o tokens.

=head1 AUTHOR

Jeffrey Goff, drforr@hargray.com

=head1 SEE ALSO

L<Scheme>, L<Schem <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	12987	13084	
==>s) returns Bool`

These functions both take blocks of code, run the code, and test whether they li <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	166	262	
==>tory - Docs-Related Directory

=head1 SYNOPSIS

    use Parrot::Docs::Directory;

=head1 DESCRIPT <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	24314	24433	
==>...>' : '<error...>' }
sub sethashname { $_[0]->{hashname} = '__DIRECTIVE' . ++$_[1]->{dircount} .  '__'; }

sub new ($$ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	22365	22479	
==>Grammar.y"
{ return [ 'neg', [] ]; }
	],
	[#Rule 39
		 'classpieces', 2,
sub
#line 170 "lib/Regex/Grammar.y"
{ push <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6264	6358	
==>_stack_depth[${ITEMP0}] = stack_depth
goto POST_BRANCH_NOT_switch_${CURIC}

POST_BRANCH_switch_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4202	4296	
==>_stack_depth[${ITEMP0}] = stack_depth
goto POST_BRANCH_NOT_switch_${CURIC}

POST_BRANCH_switch_ <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	1415	1634	
==>devel]doc
    docs/dev/dod.pod                                [devel]doc
    docs/dev/events.pod                             [devel]doc
    docs/dev/fhs.pod                                [devel]doc
    docs/dev/infant.p <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	94	264	
==>ins we have.

my @commands = ((glob 'src/builtin/*.pir'), (glob 'runtime/builtin/*.pir'));
my @a = map {my $a = $_; $a =~ s{.*/(.*)[.]pir}{$1}; $a} (@commands);

# Check e <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4880	5030	
==>fined(I386) /* && defined(NO_DYNOPS) */
    register opcode_t *cur_opcode asm ("esi") = cur_op;
#else
    opcode_t *cur_opcode = cur_op;
#endif

    st <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	31467	31691	
==>ve_rxlocals,
                     aop('getstart', [ '<tmp>', "0" ]),
                     aop('pushint', [ '<tmp>', "save rule $name start" ]),
                     aop('rule_pass', [ $name ]),
            $back => aop('rule_ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5248	5348	
==>1, $a2
	set $result, 0.0
	eq $a1, $ot1, EQ_${eqnum}_a
	inc $result
EQ_${eqnum}_a:
	eq $a2, $ot2, EQ_$ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5624	5724	
==>1, $a2
	set $result, 0.0
	eq $a1, $ot1, EQ_${eqnum}_a
	inc $result
EQ_${eqnum}_a:
	eq $a2, $ot2, EQ_$ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	138	224	
==>Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expression/Call. <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	4	93	
==>pyright (C) 2004, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Docs/Section/IMCC.pm 2033 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14805	14911	
==>---------------

use integer;
sub rtf_esc {
  my $x; # scratch
  if(!defined wantarray) { # void context: a <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7900	8002	
==>=54
if i% then print "This is true" else print "Oops (int)"
i=0
if i then print "Should not happen (flo <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14887	14989	
==>=54
if i% then print "This is true" else print "Oops (int)"
i=0
if i then print "Should not happen (flo <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6848	6943	
==><docs/configuration.pod>, L<Parrot::Configure>, L<Parrot::Configure::Step>,
L<Parrot::Configure: <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	2906	3068	
==>>

Transforms to C<PC' = X>. This is used for absolute jumps.

=item C<goto POP()>

Transforms to C<< PC' = <pop> >>. Pops the address off control stack.

=item C< <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561964	562241	
==>NOT_FOUND,\n        \"Method '%Ss' not found\", {{\@3}});\n  }\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563048	563325	
==>NOT_FOUND,\n        \"Method '%Ss' not found\", {{\@3}});\n  }\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243930	244029	
==>ops/cmp.ops\"\n  STRING* l = VTABLE_get_string(interpreter, {{\@2}});\n  {{\@1}} = string_compare(in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244862	244961	
==>ops/cmp.ops\"\n  STRING* l = VTABLE_get_string(interpreter, {{\@2}});\n  {{\@1}} = string_compare(in <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26898	27089	
==>constructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 83
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 3 <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6375	6467	
==>ements P_arg_0
POST_BRANCH_switch_${CURIC}_LOOP:
if i == 0 goto POST_BRANCH_switch_${CURIC}_L <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4313	4405	
==>ements P_arg_0
POST_BRANCH_switch_${CURIC}_LOOP:
if i == 0 goto POST_BRANCH_switch_${CURIC}_L <==
2	/Users/nnunley/parrot/config/auto/signal.pm	1147	1279	
==>c_build(); };
    unless ($@ || cc_run() !~ /ok/) {
        $conf->data->set(has_sigaction => 'define');
        print " (sigaction)" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20449	20590	
==>ported yet for $name\n";
				feedme;
				feedme;
			}
			while($type[CURR] eq "STMT" or $type[CURR] eq "COMM") {
				print CODE "\t# $syms[CUR <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	460	570	
==>my $test_prog_args = $ENV{TEST_PROG_ARGS} || q{};
    my $lang_fn        = Parrot::Test::per_test( '.m4', $coun <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	472	582	
==>my $test_prog_args = $ENV{TEST_PROG_ARGS} || q{};
    my $lang_fn        = Parrot::Test::per_test( '.m4', $coun <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829975	830265	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "save",
                  "FLAGS" = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	6495	6630	
==>my @to_unget;
        while(1) {
          push @to_unget, $self->get_token;
          last if $to_unget[-1]->is_end
              and $ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27353	27476	
==>, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    my $temp = $self->_constant(1);
    $self->_ad <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	1441	1651	
==>f shift : shift;
    my $text = shift;
    my @contents = @_;
    
    # TODO - Items should only contain paths.
    
    die "No contents ($text).\n" unless @contents;
    
    $self = bless {
        TEXT => $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	932	1079	
==>hash!" if defined $args and ref($args) ne "ARRAY";

  my $self = bless {
    BLOCK => $block,

    TYPE  => $type,
    NAME  => $ident->value,
    P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934351	934670	
==>0,
                  "NAME" => "downcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1050,
                  "A <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	933577	933875	
==>0,
                  "NAME" => "downcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1049, <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18631	18740	
==>) {
        while (1) {
          push @args, Jako::Construct::Expression::Value->new($block, $self->require_v <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19657	19766	
==>) {
        while (1) {
          push @args, Jako::Construct::Expression::Value->new($block, $self->require_v <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377937	378490	
==>tat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 442,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 432 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fstat_info_intval( <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	5173	5391	
==>codes, new AssignOp( $parser,
                    'prolog' => 1,
                    'arg1'   => $expr,
                    'result' => $defn,
                );
            }
        }
        return [ $defn, \@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783150	783431	
==>" => "inline",
                  "CODE" => 884,
                  "ARGS" => [
                              "p",
                              "kic",
                              "sc"
                            ],
                  "BODY" => "#line 387 \"src/ops/set.ops\"\n    {{ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	11541	11782	
==>fined $expect;

        $self->ok($test, $name);
        $self->_is_diag($got, '==', $expect) unless $test;
        return $test;
    }

    return $self->cmp_ok($got, '==', $expect, $name);
}

sub _is_diag {
    my($self, $got, $type, $expec <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	2816	2943	
==>ated to the file itself.

Some HTML-formatted text describing the files linked to is returned.

=cut

sub write_html
{
    my $s <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	52043	52256	
==>d,$line,"<reject>");
				$prod and $prod->additem($item)
				      or  _no_rule("<reject>",$line);
			}
			elsif ($grammar =~ m/(?=$CONDREJECTMK)/gco
				and do { ($code) = extract_codeblock($grammar,'{',undef,'<') <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3352	3513	
==>) = @_;
    $reg = value($reg);
    return "goto " . $self->output_label_use($dest) . " if $reg;";
}

sub output_unless {
    my ($self, $reg, $dest) = @_;
    $r <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	5636	5794	
==>ub leftmostsubrules($)
{
	my $self = shift;
	my @subrules = ();

	my $prod;
	foreach $prod ( @{$self->{"prods"}} )
	{
		push @subrules, $prod->leftmostsubrule( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	545	674	
==>es
# atend : At the end of the input?
# advance : Unconditionally advance 1 char
# code : Embedded code, in some language

# Stuff <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	841	1007	
==>ocumentation', '',
            $self->new_item('General information about licences, prerequisites, and building instructions.', 'README'),
            $self->new_item( <==
2	/Users/nnunley/parrot/config/init/defaults.pm	1020	1139	
==>},
        ccflags => $Config{ccflags},
        ccwarn  => exists($Config{ccwarn}) ? $Config{ccwarn} : '',

        # Fl <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1838	1991	
==>text", or the string "end".

Once you know what the type of an object is, you then know what
subclass it belongs to, and therefore what methods it support <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	1308	1432	
==>$failLabel));
}

sub output_pushmark {
    my ($self) = @_;
    return "rx_pushmark P0";
}

sub output_pushindex {
    my ($s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	11128	11347	
==>first, ($last+1);
        }
    }

    return \@incexc;
}

sub _negate_incexc ($) {
    my ($incexc) = @_;
    return [ 0 ] if (@$incexc == 0);
    return [ 0, @$incexc ] if $incexc->[0] > 0;
    return [ ] if @$incexc = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	3396	3549	
==>LS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS",
                  "NAME" => "check_event <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	11197	11379	
==>pped  { color: #555; }
    .tests_unexpect { color: #550; }
  </style>

  <script type="text/javascript">//<![CDATA[[
    function toggle_visibility (id) {
      var elem     = docume <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1290	1448	
==>L*, void **);\n\n\n\n/*\n** pmc.ops\n*/\n\n\n\n/*\n** python.ops\n*/\n\n/* XXX in io/io.c */\nint PIO_softspace(theINTERP, PMC *pmc, int new);\n\n\n\n/*\n** se <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957544	957641	
==>ter, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\"encoding '%Ss' not fou <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958449	958546	
==>ter, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\"encoding '%Ss' not fou <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5967	6070	
==>instruction needs to
	# have an empty stack type state propogated to it if nothing has been
	# propogate <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3905	4008	
==>instruction needs to
	# have an empty stack type state propogated to it if nothing has been
	# propogate <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1183	1301	
==>t_f);
        $pass =$self->{builder}->is_eq( Parrot::Test::slurp_file($out_f), $output, $desc );
        $self->{build <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1224	1342	
==>t_f);
        $pass =$self->{builder}->is_eq( Parrot::Test::slurp_file($out_f), $output, $desc );
        $self->{build <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	22989	23106	
==>$self->{flags}{dynpmc}) {
        $cout .= <<"EOC";
        vt_clone->base_type = entry;
        vt_clone->whoami = st <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9096	9197	
==>o_cs(interpreter, fe->seg, 1);\n    }\n    string_cstring_free(label);\n    interpreter->resume_flag = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10212	10313	
==>o_cs(interpreter, fe->seg, 1);\n    }\n    string_cstring_free(label);\n    interpreter->resume_flag = <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	37768	37928	
==>] + section [$2...]\n";

          push @section_name, splice @ell_content, 1+$j;
            # leaving only things before and including J
          
          @ <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	15988	16086	
==>s[@fixedargs - 1]) && ($fixedargs[@fixedargs - 1] eq 'i'));
        or_flag(\$jumps, "PARROT_JUMP_R <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	7262	7655	
==>Y
	}
}
sub parse_color {
	my($f,$b);
	my($resultb, $typeb, @codeb);
	my($resultf, $typef, @codef);

	if ($type[NEXT] =~ /PUN/) {  # Back only
		feedme();
		($resultb, $typeb, @codeb)=EXPRESSION();   # Back (only)
	} else {
	    	($resultf, $typef, @codef)=EXPRESSION();    # Fore
		if ($type[NEXT] =~ /PUN/) {
			feedme();
			($resultb, $typeb, @codeb)=EXPRESSION();
		}
	}
	if (@codeb and @cod <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223594	223696	
==>n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224536	224638	
==>n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	339	439	
==>w() {
	my $invocant = shift;
	return bless {}, $invocant;
}

# Pre-translation hook.
sub pre_translat <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	247	347	
==>w() {
	my $invocant = shift;
	return bless {}, $invocant;
}

# Pre-translation hook.
sub pre_translat <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	17847	17947	
==>head1 SYNOPSIS

  perl -MPod::Simple::RTF -e \
   "exit Pod::Simple::RTF->filter(shift)->any_errata_s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9164	9263	
==>>, <rx_stack>[-1\] # peekindex",
            "eq <rx_tmp>, -1, ".$self->output_label_use($fallback). <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	1145	1258	
==>::Test::per_test(
            $lua_test eq 'lua' ? '.orig_out' : '.parrot_out', $count );
        my $test_prog_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	902	991	
==>ne IREG(i) REG_INT(cur_opcode[i])
#define NREG(i) REG_NUM(cur_opcode[i])
#define PREG(i) R <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1018	1107	
==>ne IREG(i) REG_INT(cur_opcode[i])
#define NREG(i) REG_NUM(cur_opcode[i])
#define PREG(i) R <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556098	556395	
==>":object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 638,
                  "ARGS" => [ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	36518	36697	
==>ink</A>', "" )

In addition to the quote delimiters C<'>, C<">, and C<`>, full Perl quote-like
quoting (i.e. q{string}, qq{string}, etc) can be specified by including the
letter 'q <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6923	7038	
==>mc")
          or die "pmc2c code generation failed ($?)\n";
    }
}

sub compile {
    my ($src_stem, $dest_stem) = <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7134	7249	
==>mc")
          or die "pmc2c code generation failed ($?)\n";
    }
}

sub compile {
    my ($src_stem, $dest_stem) = <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6940	7124	
==>act, $$value ]);

					$$token ne ''	#Don't eat the eof
				and	$$token=$$value=undef;
                next;
            };

            #reduce
            my($lhs,$len,$code,@ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6617	6793	
==>act, $$value ]);

					$$token ne ''	#Don't eat the eof
				and	$$token=$$value=undef;
                next;
            };

            #reduce
            my($lhs,$len,$code,@ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5539	5640	
==>f->output_label_def($passLabel);
    return @ops;
}

sub output_initgroup {
    my ($self, $group) = @ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5232	5333	
==>f->output_label_def($passLabel);
    return @ops;
}

sub output_initgroup {
    my ($self, $group) = @ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322321	322414	
==>ine 134 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (UINTVAL)((Parrot_UInt4)({{\@2}}));\n  {{+=3}};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323093	323186	
==>ine 134 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (UINTVAL)((Parrot_UInt4)({{\@2}}));\n  {{+=3}};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2903	3054	
==>t * " .
        $self->core_prefix .
        "$core(opcode_t *cur_op, Parrot_Interp interpreter)";
}

=item C<run_core_func_start()>

Returns the C code <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4415	4524	
==>t * " .
        $self->core_prefix .
        "$core(opcode_t *cur_op, Parrot_Interp interpreter)";
}

=item C< <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41220	41389	
==>' . (ref($op) eq 'Parse::RecDescent::Token' ? 'do { push @item, '
			     . ($::RD_NO_HITEM ? ''
				: '$item{'.$self->{hashname}.'}=')
			     . '$1; } if defined $1;' : <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720625	721017	
==>> [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 808,
                  "ARGS" => [
                              "p",
                              "nc"
                            ],
                  "BODY" => "#line 133 \"src/ops/python.ops\"\n  PMC * const i <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10024	10142	
==>unction_line_coverage{$source_file}{$function} %" : "n/a" ]}</a></td>
             <td><a href="$outfile_base.branches. <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2870	2986	
==>=shift;

	${$$self{CHECK}}='ERROR';
    undef;
}

sub YYSemval {
	my($self)=shift;
	my($index)= $_[0] - ${$$s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2734	2842	
==>=shift;

	${$$self{CHECK}}='ERROR';
    undef;
}

sub YYSemval {
	my($self)=shift;
	my($index)= $_[0] - ${$$s <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	8303	8427	
==>pmc(st->val) = NULL;

    return UVal_pmc(st->val);
}

#define GET_NCI_I(n) get_nci_I(interpreter, &st, n)
#define GET_NCI_S( <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	19923	20042	
==>p) {
	goto plain;
    }
    if ($opcode eq 'Label') {
	$label = "pc_" . $code[$code_l]->[3] . ":";
	$code_l++;
	($opcode <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11494	11607	
==>{\*\cs17 \additive \i\lang1024\noproof \sbasedon10 pod-F;}
{\*\cs18 \additive \b \sbasedon10 pod-B;}
{\*\cs19 \add <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963445	963839	
==>"o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1084,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 595 \ <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	33	232	
==>lib/Parrot/Test/HQ9plus.pm 18633 2006-04-17T12:24:11.541561Z bernhard  $

package Parrot::Test::HQ9plus;

use strict;
use warnings;

use Data::Dumper;
use File::Basename;

use Parrot::Test;

=head1 NA <==
2	/Users/nnunley/parrot/config/gen/revision.pm	46	169	
==>Id: /parrot/config/gen/revision.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/gen/revision.pm - Parrot's <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	2009	2194	
==>/;  # CCLASS_ALPHANUMERIC   
    $ret |= 0x1000 if $chr =~ /^[\n\r\f\x85]$/; # CCLASS_NEWLINE
    $ret |= 0x2000 if $chr =~ /^[[:alnum:]_]$/; # CCLASS_WORD

    return $ret;
}


=item B< <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	509	611	
==>E"; # TODO: Don't we need to do better than this?

  if ($self->content) {
    $compiler->emit(".namesp <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34753	34860	
==>t::_tracefirst($text),
						  q{' . $rule->{"name"} .'})
							if defined $::RD_TRACE;').'
			if ($Parse:: <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41863	41970	
==>t::_tracefirst($text),
						  q{' . $rule->{"name"} .'})
							if defined $::RD_TRACE;').'
			if ($Parse:: <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4913	5033	
==>]->path) or die 'Failed to unlink ' . $_[0]->path . ": $!";
    
    $_[0]->SUPER::delete;
}

=back

=head1 SEE ALSO

=ov <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	13169	13280	
==>and print "  Found start of Para.  Accumulating content...\n";
        $para_text_content = '';
        ++$state <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6854	6948	
==>890"
print mid$(t$, 2, 8)
print left$(t$, 5)
print right$(t$, 5)
' instr
s1$="The longer string <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18583	18677	
==>890"
print mid$(t$, 2, 8)
print left$(t$, 5)
print right$(t$, 5)
' instr
s1$="The longer string <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2030	2185	
==>', '.Undef', 'apply_CALL'],
  ['',            'set', 'P7', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'appl <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	2248	2398	
==>ng subclasses: whether to pointedly
                       # suppress the start_line attribute
                      
  'line_count',        # the curr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956455	956693	
==>on",
                  "CODE" => 1076,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 576 \"src/ops/string.ops\"\n  {{\@ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	209	307	
==>ub new() {
	die "Attempt to instantiate abstract class SRM::Base.\n";
}

# Pre and post translation <==
2	/Users/nnunley/parrot/config/inter/types.pm	200	295	
==>RIPTION

Asks the user which size integer, floating-point number and opcode types should
be.

=c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72199	72580	
==>i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 96,
                  "ARGS" => [
                              "p",
                              "p",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 1156 \"src/ops/core.ops\"\n  char * co <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	696	864	
==>code, $ctx, %options);

    $self->output_rule_body($fh, $subname, $rule, $ctx, \@asm);
}

sub output_footer {
}

package Regex::Driver::Perl5;
our @ISA = qw(Regex::Driv <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	36928	37067	
==>des1, new ParamDir( $parser,
            'prolog' => 1,
            'result' => $defn,
        );
        my $nil = BuildLiteral( $parse <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	1522	1658	
==>cess_upload {
  my $CGI = shift;
  #print "HTTP/1.0 200 OK\n";
  print $CGI->header;

  limit_rate();
  validate_params($CGI);
  add_smok <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2926	3043	
==>d\.]+)/    and $smoke{VERSION}      = $1;
  $html =~ /branch: ([\w\-]+)/     and $smoke{branch}       = $1;
  $html =~ <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	102	207	
==>ated automatically by '$0'

END_OF_HEADER

my %macros;
$macros{DOMAIN_ERROR} = <<'END_OF_PIR';
    .sym pm <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363522	363626	
==>\"%f\", (double){{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error he <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364425	364529	
==>\"%f\", (double){{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\n  }\n  else {\n    /* Handle error he <==
2	/Users/nnunley/parrot/config/gen/cpu.pm	185	385	
==>ESCRIPTION

Runs C<&run_cpu()> in F<config/gen/cpu/${cpuarch}/auto.pm> if it exists.

=cut

package gen::cpu;

use strict;
use warnings;
use vars qw($description @args);

use base qw(Parrot::Configure: <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3072	3161	
==>generated by tools/dev/mk_manifest_and_skip.pl ', scalar( localtime() ), "\n";
print $MANI <==
2	/Users/nnunley/parrot/tools/dev/manicheck.pl	1	178	
==>! perl -w
################################################################################
# Copyright (C) 2001-2005, The Perl Foundation.
# $Id: /parrot/tools/dev/manicheck.pl 1 <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	3493	3591	
==>passes the test if a string comparison of output
with the expected result is true.

=item C<pbc_out <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	494	612	
==>my ($block, $type, $ident, $props, $args) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Constru <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623963	624140	
==>_pic_opcode(interpreter, PARROT_OP_set_returns_pc);\n    ((void**)cur_opcode)[1] = mic->m.sig;\n    {{+=0}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16701	16814	
==>e_1 ('P');

  $self->_add_inst ('', 'new',[$return,'.Undef']);

  my @reverse = reverse _get_args($node);

  for ( <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Posix.pm	137	245	
==>use strict;

use base 'Parrot::Test::Bc';

sub get_out_fn {
    my $self = shift;
    my ( $count, $options ) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	5350	5737	
==>lock = $block->block; # Collect symbols from the parent block next
    $level++;
  }

  printf STDERR "%-30s  %s\n", "SYMBOL", "LEVEL";
  printf STDERR "%-30s  %s\n", ("-" x 30), "-----";

  foreach my $symbol (sort keys %table) {
    printf STDERR "%-30s: %d\n", $symbol, $table{$symbol};
  }
}


###############################################################################

=head2 BL <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7515	7714	
==>+\-([0-9]+)$/
                or  die "In line rule name '$lhs' ill formed: ".
                        "report it as a BUG.\n";
                $$dotpos = $1;
            };

            @sempar <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7170	7363	
==>+\-([0-9]+)$/
                or  die "In line rule name '$lhs' ill formed: ".
                        "report it as a BUG.\n";
                $$dotpos = $1;
            };

            @sempar <==
2	/Users/nnunley/parrot/config/auto/jit.pm	4790	4962	
==>osname.in");
            eval { cc_build(); };
            if ($@) {
                print " $@) " if $verbose;
            } else {
                if (cc_run(0) !~ /ok/ && <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27122	27281	
==>e($f);
	$f=~s/\$/_string/g; $f=~tr/a-z/A-Z/;
	$seg=$f;
	CALL_BODY($englishname, "SUB");
}

sub parse_function {
	feedme;
	my $f;
	$funcname=$syms[CURR];
	my $en <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	42323	42450	
==>-----------------------------------------------------

sub _verbatim_format {
  my($it, $p) = @_;
  
  my $formatting;

  for(my <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295810	296154	
==>,
                  "CODE" => 344,
                  "ARGS" => [
                              "i",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 950 \"src/ops/cmp.ops\"\n  if (&{{\@2}} == &{{\@3}})\n    {{\@1}} = 1;\n  else\n    {{\@1}} = mmd_dispatch_i_p <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	8287	8428	
==>ars;
		    print "# $cur_f; vars=$vars\n";
		}
	    }
	    else {
		$in_info = 0;
	    }
	}
	else {
	    next if /^\s*$/;
	    decode_line($_) <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	15674	15800	
==>}, $call_pkg ) if ( keys %extra );
            local *{ $call_pkg . '::TODO' } = \$extra{todo}
                if defined $extr <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	18225	18351	
==>}, $call_pkg ) if ( keys %extra );
            local *{ $call_pkg . '::TODO' } = \$extra{todo}
                if defined $extr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569307	569415	
==>\n  {{\@1}} = {{\@2}}->vtable->isa(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570200	570308	
==>\n  {{\@1}} = {{\@2}}->vtable->isa(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	879	994	
==>eft,
    RIGHT => $right
  }, $class;

  $block->push_content($self);

  return $self;
}

sub left  { return shift-> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	887	1002	
==>eft,
    RIGHT => $right
  }, $class;

  $block->push_content($self);

  return $self;
}

sub left  { return shift-> <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	42124	42355	
==>> 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			'THEN' => 193,
			"<=" => 85,
			'OR' => 84,
			">" => 86
		}
	},
	{#State 183
		ACTIONS => {
			'END' => <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	23230	23399	
==>asty;
        my $nugget;
        while(@dynasty) {
          DEBUG > 4 and printf
           "    Grafting a new %s node between %s and %s\n",
           $dynasty[-1], $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103967	1104060	
==>ass(interpreter, class);\n\t\ttype = pmc_type(interpreter, class);\n\t}\n\tif (type <= 0)\n\t\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105182	1105275	
==>ass(interpreter, class);\n\t\ttype = pmc_type(interpreter, class);\n\t}\n\tif (type <= 0)\n\t\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	68236	68413	
==>_DOD(interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	68677	68854	
==>_DOD(interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209753	210236	
==>se_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 247,
                  "ARGS" => [
                              "p",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 408 \"src/ops/cmp.op <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	241	377	
==>$class;
}

# Purely accessors:

sub text { (@_ == 2) ? ($_[0][1] = $_[1]) : $_[0][1] }

sub text_r { \ $_[0][1] }

1;

__END__

=head1 NA <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8331	8427	
==>"
print "I am the very model of a modern";tab$(15);"More"
print "Hello","Again",d
dim c$(1)
for i <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21195	21291	
==>"
print "I am the very model of a modern";tab$(15);"More"
print "Hello","Again",d
dim c$(1)
for i <==
2	/Users/nnunley/parrot/config/inter/libparrot.pm	1986	2224	
==>t('build_dir')
                   . $conf->data->get('slash')
                   . $conf->data->get('blib_dir') . ' -lparrot'
            : $conf->data->get('libparrot')
        );
    }

    $self->set_result($parrot_is_shared ? 'y <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2382	2506	
==>OWT_TO_PROPOGATE:
PIR

	# We'll emit a label for every single instruction. While we kinda find
	# basic blocks, we don't disc <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2790	2902	
==>hould be skipped"
Label1:
   PRINT "5 back in module-level code"
   END
Sub1:
   PRINT "2 in subroutine one"
   G <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16757	16869	
==>hould be skipped"
Label1:
   PRINT "5 back in module-level code"
   END
Sub1:
   PRINT "2 in subroutine one"
   G <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2777	2951	
==>st \s+ (\S+)                  # test ident
             \s+ \{ ([^}]+) \}          # test description
             \s+ (?:\S+ \s+)? \{ \n     # optional test harness info (ign <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4174	4348	
==>st \s+ (\S+)                  # test ident
             \s+ \{ ([^}]+) \}          # test description
             \s+ (?:\S+ \s+)? \{ \n     # optional test harness info (ign <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4740	4848	
==>tart()>

Returns the C code prior to the run core function.

=cut

sub run_core_func_start
{
    return <<END <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3028	3136	
==>tart()>

Returns the C code prior to the run core function.

=cut

sub run_core_func_start
{
    return <<END <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2317	2416	
==>_output_is;
}

=item C<p6rule_like($target, $pattern, $expected, $description, @todo)>

Runs the tar <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51841	52064	
==>eter, PARROT_ALL_TRACE_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52624	52847	
==>eter, PARROT_ALL_TRACE_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/config/auto/gdbm.pm	1206	1373	
==>add(' ', dflags    => '-L/sw/lib');
            $conf->data->add(' ', cflags    => '-I/sw/include');
        }
    }

    cc_gen('config/auto/gdbm/gdbm.in');
    if ($^ <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	865	970	
==>END_PIR

my %static_cmds = map { $_ => 1 } @static_cmds;
for my $cmd (@dynamic_cmds) {
    # skip if there <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	31181	31300	
==>. That is, authors should not use
# "L<B<Foo::Bar>>".
#
# Note, however, that formatting codes and Z<>'s can occur in an <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	4147	4270	
==>+1;
	substr($parser->{fulltext},0,$missing) =~ m/^(.*)\Z/m;
	return length($1);
}

sub STORE
{
	die "Can't set column number <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488847	489131	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	489600	489884	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	11850	12011	
==>typedef struct hop {
    op_info_t * info;
    struct hop *next;
} HOP;
static HOP **hop;

static void hop_init(void);
static size_t hash_str(const char * str);
s <==
2	/Users/nnunley/parrot/Configure.pl	876	983	
==>C<N> or matching description.

=item C<--nomanicheck>

Tells Configure.pl not to run the MANIFEST check.

=i <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8671	8769	
==>ay("# Looks like $Test::num_of_tests_badpass tests of $Test::num_of_tests_run passed unexpectedly") <==
2	/Users/nnunley/parrot/config/inter/encoding.pm	720	827	
==>ns->get('encoding')
        || join(' ', grep { defined $_ } @encoding);

    if ($conf->options->get('ask') <==
2	/Users/nnunley/parrot/config/auto/gc.pm	12	116	
==>(C) 2001-2005, The Perl Foundation.
# $Id: /parrot/config/auto/gc.pm 19593 2006-05-30T02:28:15.110975Z co <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3493	3653	
==>elsif ($is_intel) {
        $conf->data->set(
            share_ext  => '.dll',
            load_ext   => '.dll',
            a          => '.lib',
            o <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	24869	25020	
==>/^tfield$/) {
			$out =  "    \${I_ARG_$arg_num} = bc.read_tfield()\n    next_pc += 4\n";
			$arg_name = "I_ARG_$arg_num";
		}

        # tmethod
		elsi <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25938	26102	
==>->_generate($node->{children}[$_]);
      $self->_add_inst('','sub',[$return,$return,$temp]);
      $self->_restore($temp);
    }
  }
  return $return;
}

sub _op_ti <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	1030	1162	
==>ain::seg}->{declarations}->{$var}="COMMON";
			$common{$var}=1;
		}

	}
}

sub parse_shared {		# Keyword only
	feedme();
	$loop=0;
	w <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6486	6600	
==>rs. When two are exchanged,
   ' force another pass by setting Exchange to TRUE.
   FOR I = 2 TO Max
      IF A$(I- <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16139	16253	
==>rs. When two are exchanged,
   ' force another pass by setting Exchange to TRUE.
   FOR I = 2 TO Max
      IF A$(I- <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	519	646	
==>};
    my $lang_fn        = Parrot::Test::per_test( '.m4', $count );

    return ( join( ' ',
                 File::Spec->join( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490785	491033	
==>ops\"\n  {{\@1}}++;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	491406	491654	
==>ops\"\n  {{\@1}}++;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "in <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	7984	8253	
==>}->{symbol} goto $op->{result}->{symbol}\n";
        }
    }

    sub visitBranchUnlessNullOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  unless_null $op->{arg1}->{symbol}, $op->{result}- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	952208	952476	
==>,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 540 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(int <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7555	7691	
==>H_$label"]);

  $temp = $self->_new_pair;
  $self->_add_inst('', 'set', [$copy.'[1]',$temp]);
  $self->_add_inst('', 'set', [$copy,$temp] <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1342	1498	
==>ount, $expr) = _build_tree ($tokens, $count);
    push @{$temp->{children}}, $expr;
  }
  else {
    $temp->{value} = $tokens->[$count++];
  }
  
  return ($ <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	9392	9533	
==>der if ($header);

my $njit = scalar keys(%core_ops);

my $jit_fn_retn = 'void';
my $jit_fn_params = '(Parrot_jit_info_t *jit_info, Interp * i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957609	957844	
==>L, 1,\n\t\"encoding '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958514	958749	
==>L, 1,\n\t\"encoding '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492530	492817	
==>> "function",
                  "CODE" => 565,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 585 \"src/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@1}}, {{\@2}});\n  {{+=3 <==
2	/Users/nnunley/parrot/config/init/defaults.pm	4120	4274	
==>import => '',

        # Library build directory
        blib_dir      => 'blib/lib',

        # libparrot library names
        libparrot_static => 'libpa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710422	710680	
==>],
                  "TYPE" => "inline",
                  "CODE" => 797,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 50 \"src/ops/python.ops\"\n  PMC * const io = PIO_STDOU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967598	967938	
==>YPE" => "inline",
                  "CODE" => 1088,
                  "ARGS" => [
                              "i",
                              "ic",
                              "sc",
                              "i"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_strin <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35405	35548	
==>'$item{q{' . $self->{subrule} . '}} = $_tok;') . '
		push @item, $_tok;
		' . ($self->{"lookahead"} ? '$text = $_savetext;' : '' ) .'
		}
'
}

p <==
2	/Users/nnunley/parrot/config/auto/jit.pm	5497	5840	
==>/ok/) {
                $conf->data->set(jit_i386 => 'fcomip');
            }
            cc_clean();
        }
    } else {
        $conf->data->set(
            jitarchname => 'nojit',
            jitcpuarch  => $cpuarch,
            jitcpu      => $cpuarch,
            jitosname   => $osname,
            jitcapable  => 0,
            execc <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3009	3110	
==>tart_address
{
    my ($self, $addr) = @_;

    return "interpreter->resume_offset = $addr; interprete <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3878	3979	
==>tart_address
{
    my ($self, $addr) = @_;

    return "interpreter->resume_offset = $addr; interprete <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2272	2374	
==><access_arg($type, $value, $op)>

Returns the C code for the specified op argument type (see
C<Parrot:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3163	3265	
==><access_arg($type, $value, $op)>

Returns the C code for the specified op argument type (see
C<Parrot:: <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	44085	44216	
==>eplacing with $replacer\n";
      } else {
        $replacer = Pod::Escapes::e2char($content);
        DEBUG > 1 and print " Replaci <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42215	42474	
==>$::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched operator: ['
					  . $self->describe
					  . ']<< (return value: [}
					  . qq{@{$_tok||[]}} . q{]},
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{"name"} .'})
						if defined <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5605	5712	
==>BG>	print STDERR ('-' x 40),"\n";
#DBG>		$debug & 0x2
#DBG>	and	print STDERR "In state $stateno:\n";
#DBG <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5335	5439	
==>BG>	print STDERR ('-' x 40),"\n";
#DBG>		$debug & 0x2
#DBG>	and	print STDERR "In state $stateno:\n";
#DBG <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	36632	36814	
==>ated optional
					   repetitions (such as
					   \"!$subrule($repspec)\" can never
					   succeed, since optional items always
					   match (zero times at worst). 
					   Did you <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	903	1013	
==>($compiler);
    $op    = $self->op;
    $right = $self->right->compile($compiler);
  }

  if ($kind eq 'if') { <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	24258	24432	
==>nt', [ 0 ]),
                        aop('goto', [ $next ]),
              $rfail => aop('popindex', [ '<tmp>', $lastback ]),
                        aop('goto', [ $R_back ]), <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	1053	1261	
==>t anything else than 'struct'...?
      $self->export_to_level( 1, $self, @_ );
    } else {
      &struct;
    }
}

sub struct {

    # Determine parameter list structure, one of:
    #   struct( class => [ e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650594	650702	
==>ops/pmc.ops\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtable_max)\n        {{\@1}} = 1;\n    else if <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651516	651624	
==>ops/pmc.ops\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtable_max)\n        {{\@1}} = 1;\n    else if <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	1906	2131	
==>ttempts to find the
class being declared.

Once the class is found, all of its superclasses are scanned and their
methods added to the methods of the current PMC. PMCs default to
inheriting from 'default'. Only single inherita <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	61774	61918	
==>ike operation.

=item  C<Mismatched closing bracket: expected "%c" but found "%s">

C<extract_bracketed>, C<extract_quotelike> or C<extract_codeb <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350946	351048	
==>ODY" => "#line 190 \"src/ops/io.ops\"\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  {{+=2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351608	351710	
==>ODY" => "#line 190 \"src/ops/io.ops\"\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  {{+=2 <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	321	460	
==>&& !-d $path) {
            $*ERR.say("Parameter to lib.import() must be directory, not file");
        }
        # add to the @*INC, but do <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	903	1095	
==>oo late to call Pod::Simple::Debug -- "
              . "Pod::Simple has already loaded\nAborting");
  }
  
  $value = 0 unless defined $value;

  unless($value =~ m/^-?\d+$/) {
    require Car <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	2255	2370	
==>his dies if it fails.
        mkpath($self->parent_path);
    }
    
    return -e $self->parent_path;
}

=item C<pa <==
2	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	1246	1420	
==>RSION file contents: '$parrot_version' (should be 3 or 4)!"
    }

    foreach (@parrot_version) {
        die "Illegal version component: '$_' in VERSION file!" unless m/^[1- <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	9156	9286	
==>d(\$todo);

    my $out;
    my $result = &share({});

    unless( $test ) {
        $out .= "not ";
        @$result{ 'ok', 'actua <==
2	/Users/nnunley/parrot/languages/urm/urm-old.pl	652	759	
==>out\((r\d+)/) { $outreg = $1 }
    if ($line =~ /^\d+:(.+)/) { 
	my $code = $1;
	# Some beautification!
	$co <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	8042	8171	
==>fine MAP(i) jit_info->optimizer->map_branch[jit_info->op_i + (i)]
#endif

extern PARROT_API char **Parrot_exec_rel_addr;
extern PA <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20764	20894	
==>->{children}}) {
    my $temp_1 = $self->_generate($node->{children}[$1]);
    $self->_add_inst('','lt',[$temp_0,$temp_1,"DONE_$lab <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	16520	16643	
==>->[2] eq 'I') {
	$n = temp($t = 'N');
	print <<"EOC";
	$n = pow $l->[1], $r->[1] $cmt
EOC
    }
    else {
	my $nl = temp('N <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3198	3312	
==>mcs);
    generate_c($_) foreach (@pmcs);

    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gat <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3302	3416	
==>mcs);
    generate_c($_) foreach (@pmcs);

    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932541	932679	
==>"
                            ],
                  "BODY" => "#line 415 \"src/ops/string.ops\"\n  {{\@1}} = string_upcase(interpreter, {{\@ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	49874	49976	
==>int. If the bracket was mismatched, return an error.

=item 2.

Try to match a quote or quotelike opera <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	40083	40277	
==>->[-1] .= ' in ' if $section_name;
          push @$link_text, @ell_content;
        }
      }


      # And the E resolver will have to deal with all our treeletty things:

      if(@ell_content <==
2	/Users/nnunley/parrot/config/init/optimize.pm	20	144	
==>-2005, The Perl Foundation.
# $Id: /parrot/config/init/optimize.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

co <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2375	2479	
==>ibutes => { kind => $self->kind } });
  }

  if ($self->op) {
    $handler->start_element({ Name => 'bloc <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2252	2356	
==>ibutes => { kind => $self->kind } });
  }

  if ($self->op) {
    $handler->start_element({ Name => 'bloc <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1509	1659	
==>)={ ERROR => \&_Error,
				ERRST => \$errst,
                NBERR => \$nberr,
				TOKEN => \$token,
				VALUE => \$value,
				DOTPOS => \$dotpos, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1458	1603	
==>)={ ERROR => \&_Error,
				ERRST => \$errst,
                NBERR => \$nberr,
				TOKEN => \$token,
				VALUE => \$value,
				DOTPOS => \$dotpos, <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	2111	2218	
==>bug) {
		push @{$code{$seg}->{code}},"\t_DEBUG_INIT()\n";
		debug();
	}

	
PARSE:
	1;
PARSE_NOFEED:
	if ($ty <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6561	6719	
==>TRUE.
   FOR I = 2 TO Max
      IF A$(I-1) > A$(I) THEN
         Exchange = TRUE
         B$=A$(I-1)
         A$(I-1)=A$(I)
         A$(I)=B$
         ' SWAP A <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16214	16372	
==>TRUE.
   FOR I = 2 TO Max
      IF A$(I-1) > A$(I) THEN
         Exchange = TRUE
         B$=A$(I-1)
         A$(I-1)=A$(I)
         A$(I)=B$
         ' SWAP A <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	42478	42623	
==>5']) unless $return eq 'P5';
  $self->_restore_set;

  $return =~ /(\w)(\d+)/;
  $self->{regs}->{$1}->{$2} = 1;

  return $return;
}

sub _format_ <==
2	/Users/nnunley/parrot/config/init/optimize.pm	970	1109	
==>flags => "-DDISABLE_GC_DEBUG=1 -DNDEBUG");
        if ($optimize eq "1") {
            # use perl5's value
	    # gcc 4.1 doesn't like -mcpu <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	4879	4998	
==>iler->emit("  .return(__result)");
    }
    else {
      $compiler->emit("  __func(" . join(", ", map({ $_->[1]} $self- <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3067	3207	
==>'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P15', 'P16[0]'] <==
2	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	721	850	
==>btain the official version number from the VERSION file.
    open my $VERSION, '<', 'VERSION' or die "Could not open VERSION file! <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	1162	1301	
==>dler->start_element({ Name => 'label', Attributes => { name => $self->ident->value } });
  $handler->end_element({ Name => 'label' });
}


1 <==
2	/Users/nnunley/parrot/lib/Test/More.pm	30081	30281	
==>_Stack, { type => $type, vals => [$e1, $e2] };
                $ok = 0;
            }
            elsif( $type eq 'ARRAY' ) {
                $ok = _eq_array($e1, $e2);
            }
            elsif( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1321	1423	
==>c_type = $type->imcc_pmc;
    my $temp_pmc = $compiler->temp_pmc();

    $compiler->emit("  $temp_pmc = <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12523	12688	
==>l( $parser, $idf, 'key' );
                push @opcodes, @{ $key->[1] };
                my $result = $global->[0];
                foreach my $key2 ( @{$var} ) { <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	1351	1460	
==>eference is:

=over 4

=item p

Parameter is a void pointer, taken from the PMC's data pointer. PMC is
assumed <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	4530	4624	
==>_pod()>

Runs C<Pod::Simple::Checker> on the contents of the file. Executable
files, and F<*.du <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	53965	54097	
==>_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 65
		 'exp', 3,
sub
#line 369 "Lua\lua51.yp"
{
            BuildRelop( $_[ <==
2	/Users/nnunley/parrot/examples/benchmarks/vpm.pl	5	109	
==>l program by Thomas Klausner posted on Vienna-PM list
#
use strict;

my $big;
my $string="just another pe <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	15568	15679	
==>ectives
  # 

  my $self = $_[0];
  my $paras;
  return unless @{$paras = $self->{'paras'}};
  my $curr_open = ( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5017	5121	
==>= INPUT[pos]");
    my $fail = $self->output_label_use($failLabel);
    my $pass = $self->output_label_us <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4692	4796	
==>= INPUT[pos]");
    my $fail = $self->output_label_use($failLabel);
    my $pass = $self->output_label_us <==
2	/Users/nnunley/parrot/tools/dev/cc_flags.pl	1702	1812	
==>f ($where) {
  # Found a "" - remove it
  splice @ARGV, $where, 1;
  $inject_point = $where;
} else {
  $inject <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34258	34384	
==>or rule $rule->{'name'}");
		$pir .= "### end pre_branch\n";

        # Add pre-translate code, if any.
        $pir .= sub_met <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	16719	16994	
==>mc_dt  = (stat $pmc)[9];
    my $dump_dt = (stat $file)[9];

    return $dump_dt > $pmc_dt;
}

=head2 dump_pmc( [$dir1, $dir2], $file1, $file2, ... );

Create a .dump file for each of the passed files (which can be
found in the given directories). A '*.pmc' glob may also be p <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6819	6973	
==>t STDERR "**End of Error recovery.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push(@$stack,[ $act, $$value ]);

					$$token n <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6502	6648	
==>t STDERR "**End of Error recovery.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push(@$stack,[ $act, $$value ]);

					$$token n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035752	1035880	
==>_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    {{\@1}} = result;\n    {{+=3}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036916	1037044	
==>_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    {{\@1}} = result;\n    {{+=3}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	9601	9748	
==>my $file = <SLURP> . '';
    $file =~ s/\cM\cJ/\n/g;
    close SLURP;

    return $file;
}

sub convert_line_endings {
    my ( $text ) = @_;

    $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	17787	17911	
==>----------------------

sub _make_treelet {
  my $self = shift;  # and ($para, $start_line)
  my $treelet;
  if(!@_) {
    re <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	1165	1287	
==>->{KIND}; }
sub type { return shift->{TYPE}; }
sub text { return shift->{TEXT}; }


#
# dump()
#

sub dump
{
  my $self = s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818274	818505	
==>odes too. While it's a bit of overkill,\n   * we don't have an opcode annotation to reload just the base pointers\n   * TODO OPTIMIZE later\n   */\n  {{=0,+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3065	3247	
==>2]);

  return $return;
}

#------------------------------------

my $type_map = {
  INTEGER  => [ 1, 'I' ],
  RATIONAL => [ 2, 'I' ],
  REAL     => [ 1, 'N' ],
  COMPLEX  => [ 2, 'I' <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	888	998	
==>y. (Needed for
# distributions or in general when svn is not available).
# See docs/submissions.pod on how to r <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3743	3853	
==>y. (Needed for
# distributions or in general when svn is not available).
# See docs/submissions.pod on how to r <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	42742	42992	
==>reelet->[$i]} == 3 and $treelet->[$i][2] eq '')
      ) {
        $self->whine( $start_line, "An empty E<>" );
        $treelet->[$i] = 'E<>'; # splice in a literal
        next;
      }
        
      # bitch if content is weird
      unless(@{$treel <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25569	25770	
==>S" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT|PARROT_J <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	4433	4531	
==>open_listref { $_[0]{'curr_open'} ||= [] }


sub output_string {
  # Works by faking out output_fh. <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1268	1372	
==>)

#  define opcode_to_prederef(i, op)   (op ? \\
     (void**) (op   - CONTEXT(i->ctx)->pred_offset) : N <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	35711	35849	
==>alanced. (In a scalar context, this call would
return an empty string. In a void context, C<$text> would be unchanged.)

Note that the embe <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2224	2336	
==>s/\$push_num/$push_num/g;
		$register_num++;
		$push_num++;
	}

	# Return generated code.
	return $pir;
}

sub po <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	1167	1271	
==>};
my $ccflags = $PConfig{'ccflags'} . " -DPARROT_IN_CORE";
while ($cc_inc  =~ s/-I(\S+)//g) { push @incd <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947162	947391	
==>, 1,\n\t\"charset '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948064	948293	
==>, 1,\n\t\"charset '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	4929	5017	
==>C<contents_relative_to_source($source)>

Returns the contents of the item interpreted rel <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54587	54721	
==>hijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])>
         #<$pretty_form{$1} || '\\x'.(unpack("H2",$1))>eg;
         <$pretty <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1575	1703	
==>RR => \$nberr,
				TOKEN => \$token,
				VALUE => \$value,
				DOTPOS => \$dotpos,
				STACK => [],
				DEBUG => 0,
				CHE <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1522	1644	
==>RR => \$nberr,
				TOKEN => \$token,
				VALUE => \$value,
				DOTPOS => \$dotpos,
				STACK => [],
				DEBUG => 0,
				CHE <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	2601	2733	
==>adlib "match_group"

    .local pmc regex_sub
    .local pmc result
    .local int matched
    .local pmc stack
    stack = new .Resi <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	22793	22983	
==>msgs) = @_;

    # Prevent printing headers when only compiling.  Mostly for when
    # tests are deparsed with B::Deparse
    return if $^C;

    my $msg = join '', @msgs;

    local($\, $", <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	36903	37012	
==>rective!
        DEBUG > 1 and printf "Unhandled directive %s (Handled: %s)\n",
         $para->[0], join(' ', <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15043	15163	
==>ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
    }
    return;
  } elsif(wantarray) {  # return an array
    return ma <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16226	16346	
==>ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
    }
    return;
  } elsif(wantarray) {  # return an array
    return ma <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	1347	1516	
==>0)
	{
		_die("Usage: perl -MLocalTest - <grammarfile> <classname>")
			unless @ARGV == 2;

		my ($sourcefile, $class) = @ARGV;

		open IN, $sourcefile
			or _die("Can't o <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	2012	2109	
==>is the start of a new method?
        if ($line =~ /^\[([\w\.]+)\s*\:\:\s*(\w+)\s*(\:unimplemented <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	10129	10322	
==>expm1       math.h
expm1f      math.h
expm1l      math.h
fabs        math.h
fabsf       math.h
fabsl       math.h
fclose      stdio.h
fdim        math.h
fdimf       math.h
fdiml       math.h
feo <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	5111	5273	
==>e{$seg}->{code}},<<ON;
@code	lt $result, 0.0, ONERR_${ons}
	gt $result, 255.0, ONERR_${ons}
	goto ONOK_${ons}
ONERR_${ons}:
	print "On...goto/gosub out of range at <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085547	1085831	
==>ARGS" => [
                              "p",
                              "p",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 163 \"src/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interp <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	17943	18056	
==>ests without a plan!  Gotta have a plan.");
    }

    lock($self->{Curr_Test});
    $self->{Curr_Test}++;

    $s <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	18808	18921	
==>ests without a plan!  Gotta have a plan.");
    }

    lock($self->{Curr_Test});
    $self->{Curr_Test}++;

    $s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621750	621841	
==>SUB_FLAG_TAILCALL) {\n\t    PObj_get_FLAGS(ccont) &= ~SUB_FLAG_TAILCALL;\n\t    --ctx->recur <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29590	29673	
==>SUB_FLAG_TAILCALL) {\n\tPObj_get_FLAGS(ccont) &= ~SUB_FLAG_TAILCALL;\n\t--ctx->recur <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35849	35978	
==>($_[0]->{matchrule})
		{ return "sub { goto &{''.qq{$_[1]$_[0]->{subrule}}} }"; }
	else
		{ return "\\&$_[1]$_[0]->{subrule}"; }
} <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	2822	2952	
==>f (($line =~ m/^;/) || ($line =~ m/^\s*$/));
        if (!defined($function) && !defined($template)) {
            if ($line =~ m/T <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1071	1185	
==>IGHT => $right,

    DEBUG => 1,
    FILE  => defined $value ? $value->file : undef, # TODO: YUCK!
    LINE  => def <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8958	9276	
==>result,
        );
        return [ $defn, \@opcodes, $assign ];
    }
    else {
        my $defn = $parser->YYData->{symbtab}->Lookup($idf);
        if ( defined $defn ) {

            # local variable
            if ( scalar( @{$var} ) ) {
                my $result   = $defn;
                my $last_ke <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43676	43882	
==>\n  Parrot_push_mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44320	44526	
==>\n  Parrot_push_mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	35736	35883	
==>t = @$ell;
      splice @ell_content,0,2; # Knock off the 'L' and {} bits

      DEBUG > 3 and print " Ell content to start: ",
       pretty(@ell_c <==
2	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	295	385	
==>- Testing routines specific to 'ParrotCompiler'.

=head1 DESCRIPTION

Calls 'parrot_compile <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2438	2710	
==>>dump

This returns a handy stringified value of this object.  This
is useful for debugging, as in:

  while(my $token = $parser->get_token) {
    $DEBUG and print "Token: ", $token->dump, "\n";
    ...
  }

=back

=head1 SEE ALSO

My subclasses:
L<Pod::Simple::PullParserS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170377	170471	
==>c/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171318	171412	
==>c/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3974	4123	
==>> that formats only the "Pod Errors" section
(if Pod::Simple even generates one for the given document).

This is a subclass of L<Pod::Simple> and inh <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	1699	1844	
==>_error() if @_;
    }
    else {
        $base_type = 'ARRAY';
        $class = (caller())[0];
        @decls = @_;
    }

    _usage_error() if @ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149149	149244	
==>c/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) == {{\@2}}) {\n    {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150090	150185	
==>c/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) == {{\@2}}) {\n    {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	189	295	
==>ynamic PMCs documentation section

=head1 SYNOPSIS

	use Parrot::Docs::Section::DynaPMCs;

=head1 DESCRIPTI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661993	662252	
==>exists_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662909	663168	
==>exists_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	402027	402561	
==>" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 465,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1}} <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	573	779	
==>:Vtable;

use strict;
use warnings;

use base qw( Exporter );

use FileHandle;

our @EXPORT = qw(parse_vtable vtbl_defs vtbl_struct vtbl_macros vtbl_embed);

sub make_re {
    my $re = shift;

    my $comp_r <==
2	/Users/nnunley/parrot/examples/benchmarks/primes.pl	53	139	
==>tion.
# $Id: /parrot/examples/benchmarks/primes.pl 19601 2006-05-30T13:32:26.641316Z co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970529	970914	
==>i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1091,
                  "ARGS" => [
                              "i",
                              "i",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 60 <==
2	/Users/nnunley/parrot/config/gen/cpu/i386/auto.pm	191	308	
==>ION

Test for MMX/SSE functionality. Creates these Config entries

 TEMP_generated => 'files ...'   for inclusion in p <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	10612	10748	
==>LAY(1,$result)
PRINT
		}
		#print "After Expression have $type[CURR] $syms[CURR]\n";
		$eol=0;
		$expr=1;
		next;
	}
	unless ($eol) {
		f <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	2122	2246	
==>^[-]?\.(\d+([-+]?[eE]\d+)?)/;
    $node->{type} ||= 'EXPRESSION';
  }
}

sub parse {
  my $tokens = shift;
  my @tree;
  my $ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	17666	17781	
==>e{$seg}->{code}}, "DO_$docounter:\n";
		my($result, $type, @code)=EXPRESSION();
		$false=qq{""} if $type eq "S";
		i <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3865	4047	
==>->scream(
            $self->{'line_count'},
            "=cut found outside a pod block.  Skipping to next block."
          );
          
          ## Before there were errata secti <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4415	4542	
==>sult, 1.0
EQ_$eqnum: noop
CODE
	},
	'or' => sub {
		my($a1,$a2,$result,$op,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1= <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	18642	18848	
==>S has to come after E

    $self->_wrap_up($treelet); # Nix X's and merge texties
    
  } else {
    DEBUG and print "Formatless treelet gets fast-tracked.\n";
     # Very common case!
  }
  
  splice @$tre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975791	976440	
==>,
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1096,
                  "ARGS" => [
                              "i",
                              "ic",
                              "sc",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_s <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9835	10009	
==>'\.\,]) /$1\n/g unless $self->{DONT_WRAP};
    
    # URLs not in L<>.
    $text =~ s|(http://[^\s)]+)|<a href="$1">$1</a>|gs;

    print {$self->{'output_fh'}} $text;
}

=ite <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	103	237	
==>3:40:58.862833Z coke  $

=head1 NAME

Parrot::Test::Harness - a test harness for languages built on Parrot

=head1 SYNOPSIS

Tell the h <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	20914	21041	
==>'isne',
	    '>' => 'isgt',
	    '>=' => 'isge',
	    '<' => 'islt',
	    '<=' => 'isle',
	    'is' => 'issame',
	    'is not' = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	98883	99107	
==>ise_not(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6747	6857	
==>ression::Value->new($block, $self->require_literal);
      }

      $self->require_semicolon;

      $self->SYN <==
2	/Users/nnunley/parrot/lib/Test/More.pm	35208	35331	
==>ed.  This is ok:

    use threads;
    use Test::More;

This may cause problems:

    use Test::More
    use threads;


=ite <==
2	/Users/nnunley/parrot/lib/Test/More.pm	33287	33520	
==>ther in the
same program>.

If you simply want to do a little tweaking of how the tests behave,
you can access the underlying Test::Builder object like so:

=over 4

=item B<builder>

    my $test_builder = Test::More->builder;

Retur <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1014	1271	
==>value = 0 unless defined $value;

  unless($value =~ m/^-?\d+$/) {
    require Carp;
    Carp::croak( "$value isn't a numeric value."
            . "\nUsage:\n use Pod::Simple::Debug (NUMVAL)\nor"
                    . "\n use Pod::Simple::Debug (\\\$var, ST <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7258	7362	
==>TITEL)\s*[\n\r]+([^\n\r]+)/smo;
	
	$text = $1;
	# Tidy it up a bit.
	$text =~ s/^\s+//o;
	$text =~ s/\s+$ <==
2	/Users/nnunley/parrot/config/auto/memalign.pm	453	576	
==>ur C library supports memalign';

@args = qw(miniparrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbos <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	1566	1668	
==>item * It would be nice to have a ParrotSourceFile class of course. ;)
(a jest - sort of.)

=item * Mis <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	14515	14626	
==>n't write-open $to: $!";
    binmode($out_fh)
     if $self->can('write_with_binmode') and $self->write_with_bin <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	14488	14607	
==>t @{$def_args{$f}}, $gn;
	}
    }
    if ($cur_func =~ /Build::(\w+)/) {   ## XXX && $f ne '__new__'
	$namespace{$f} = $ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3440	3652	
==>uffix{$suffix} if exists $type_for_suffix{$suffix};

	return $UNDEFINED;
}

=item C<type_for_name($name)>

This is a class method that converts a file name to a description of the
type of files which have this nam <==
2	/Users/nnunley/parrot/tools/util/pirtidy.pl	470	579	
==>, $outfile;

    my $formatter = new Parrot::PIR::Formatter();

    foreach my $line (<$ifh>) {
      $formatt <==
2	/Users/nnunley/parrot/examples/benchmarks/fib.pl	447	564	
==>n-1) + fib($n-2);
}
my $N = shift || 28;

print "fib($N) = ", fib($N), "\n";

=head1 SEE ALSO

F<examples/benchmarks/f <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	9763	9922	
==>= acos op2
    .return ($N1)
neg_three:
    $N1 = atan op2
    .return ($N1)
neg_four:
    $N1 = op2 * op2
    $N1 = 1 - $N1
    $N1 = sqrt $N1
    .return ($N1 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2230	2354	
==>BParse()';#Do not create stab entry on compile
        $@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $r <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2147	2265	
==>BParse()';#Do not create stab entry on compile
        $@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423052	423381	
==>0,
                  "NAME" => "listen",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423948	424277	
==>0,
                  "NAME" => "listen",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	37368	37529	
==>ell_content[$j];
        DEBUG > 3 and
         print "    Peering at L-content text bit \"$ell_content[$j]\" for a '/'.\n";

        if($ell_content[$j] =~ m/^([ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	36159	36313	
==>ell_content[$j];
        DEBUG > 3 and
         print "    Peering at L-content text bit \"$ell_content[$j]\" for a '|'.\n";

        if($ell_content[$j] = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	360	477	
==>ft;
  my ($file, $line, $kind, $type, $text) = @_;

  return bless {
    FILE => $file,
    LINE => $line,
    KIND => <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	2911	3025	
==>$step, params => \@params);

    return $self;
}

=item * C<add_steps()>

Registers a new step to be run at the end <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20469	20586	
==>:Identifier->new($block, $token);

      my @left = ($left);

      $self->require_assign;

      while ($self->get()- <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	1656	1761	
==>ase indicates that the symbol is global; lowercase indicates that
it is local.

=item C<--type=bsd>

=item <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7158	7269	
==>hs,$len,$code)=@{$$rules[-$act]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print STDERR "Reduce usi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6826	6933	
==>hs,$len,$code)=@{$$rules[-$act]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print STDERR "Reduce usi <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	1536	1705	
==>my $ffh, '<', $file;
        %tests = extract_tests( do{undef local $/;<$ffh>} );
        close $ffh;

	# Only generate output test file if we can find tests...
        m <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	729	957	
==>ort {
     $Test::force_todo_test_junction = join ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim($cond, $desc, $todo, :$depends);
}

## is

sub i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162539	162969	
==>S" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 196,
                  "ARGS" => [
                              "nc",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 183 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2494	2590	
==>else print "Wrong"
if 5>=5 then print "Ok" else print "Wrong"
if 4>=5 then print "Wrong" else pri <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	22528	22638	
==>lf->genlabel('nongreedy_star_fail');
        my ($R_back, @R_ops) = $self->rewrite($R, $rfail);
        my @ops <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	2054	2161	
==>nything non-whitespace
    @funcs = grep /\S/, @funcs;

    # If it's got a semicolon, it's not a function h <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	312574	312666	
==>Parrot_Context_info info;\n  Parrot_Context_info(interpreter, CONTEXT(interpreter->ctx), &inf <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	313306	313398	
==>Parrot_Context_info info;\n  Parrot_Context_info(interpreter, CONTEXT(interpreter->ctx), &inf <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561151	561291	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "fetchmethod <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562234	562374	
==>arrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "fetchmethod <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	12801	13026	
==>ndent2">Parrot&nbsp;<tmpl_var name=VERSION></td>
            <td>
              <tmpl_if name=revision>
                r<tmpl_var name=revision>
              </tmpl_if>
            </td>
            <td class="leftsep"><tmpl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813003	813470	
==>",
                  "CODE" => 917,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 524 \"src/ops/set.ops\"\n  {{\@1}} = VTABLE_clone(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840192	840385	
==>er, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840887	841080	
==>er, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060075	1060185	
==>\tinternal_exception(1, \"Tried to get null name\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_name(inte <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060980	1061090	
==>\tinternal_exception(1, \"Tried to get null name\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_name(inte <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5007	5104	
==>, 'NBERR', 'TOKEN', 'VALUE', 'STACK', 'CHECK', 'DOTPOS' };

#DBG>	my($debug)=$$self{DEBUG};
#DB <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4764	4858	
==>, 'NBERR', 'TOKEN', 'VALUE', 'STACK', 'CHECK', 'DOTPOS' };

#DBG>	my($debug)=$$self{DEBUG};
#DB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	373521	374018	
==>stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 437,
                  "ARGS" => [
                              "i",
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 427 \ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	10481	10615	
==>@_;
    return (".local $type $var");
}

sub output_rule_def {
    my ($self, $name, $L_trymatch, $L_backup, $num_groups, $startup) = @ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	544975	545483	
==>AGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 629,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 1056 \"src/ops/math.ops\"\n INT <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	136	383	
==>on.
# $Id: /parrot/tools/dev/install_files.pl 19607 2006-05-30T15:23:20.183054Z coke  $
################################################################################

=head1 TITLE

tools/dev/install_files.pl - Copy files to their correct locatio <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1203	1472	
==>ew section.

=cut

sub new
{
    my $self = shift;

    return $self->SUPER::new(
        'Contents', 
        'index.html', 
        'What\'s in the Parrot distribution?',
        Parrot::Docs::Section::Info->new,
        Parrot::Docs::Section::Docs->new,
        Parro <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	521	695	
==>ix, $left, $op, $right) = @_;

  my $self = bless {
    BLOCK     => $block,

    PREFIX    => $prefix,
    KIND      => 'while',
    LEFT      => $left,
    OP        => $op, <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	2768	2894	
==>r-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wno-unused",

            # others; ones we might like mark <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6319	6407	
==>NOT_switch_${CURIC}

POST_BRANCH_switch_${CURIC}:
i = elements P_arg_0
POST_BRANCH_switch <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4257	4345	
==>NOT_switch_${CURIC}

POST_BRANCH_switch_${CURIC}:
i = elements P_arg_0
POST_BRANCH_switch <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	926	1088	
==>type =
     ( p => "void *",
       i => "int",
       3 => "int *",
       l => "long",
       4 => "long *",
       c => "char",
       s => "short",
       2 => <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	1341	1503	
==>type =
     ( p => "void *",
       i => "int",
       3 => "int *",
       l => "long",
       4 => "long *",
       c => "char",
       s => "short",
       2 => <==
2	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	950	1067	
==>) || $smoke;
  debug "ok.\n";
}

{
  debug "Sending data to smokeserver \"$smokeserv\"... ";
  my $ua = LWP::UserAgent <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	2999	3350	
==>check {
    my (@args) = @_;
    
    my ($min, $max) = num_args(@args);
    my $code = "";
    
    if ($max == $min) {
        $code .= "  if argc != $max goto bad_args\n";
    }
    else {
        $code .= "  if argc < $min goto bad_args\n";
        
        $code .= "  if argc > $max goto bad_args\n"
            if $max;
    }
    
    return $co <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11600	11706	
==>equire_semicolon;

      my $arith = Jako::Construct::Statement::Arithmetic->new($block, $ident, $ident, $o <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16545	16644	
==>equire_semicolon;

      my $arith = Jako::Construct::Statement::Arithmetic->new($block, $ident, $le <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1197	1366	
==>nderline=uldashd    dot-dot-dash-underline=uldashdd     
       double-underline=uldb         thick-underline=ulth
       word-underline=ulw            wave-underline=ulw <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3718	3830	
==>, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert X.c -> X.o for all X.c
    compile($_) fore <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3822	3934	
==>, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert X.c -> X.o for all X.c
    compile($_) fore <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441283	441623	
==>inline",
                  "CODE" => 505,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "n"
                            ],
                  "BODY" => "#line 109 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pnp(interp <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	30920	31055	
==>ller : $caller[0];
}

=back

=cut

=begin _private

=over 4

=item B<_sanity_check>

  $self->_sanity_check();

Runs a bunch of end of t <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6904	7019	
==>("$PMC2C --c $pmc.pmc")
          or die "pmc2c code generation failed ($?)\n";
    }
}

sub compile {
    my ($src_ <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7115	7230	
==>("$PMC2C --c $pmc.pmc")
          or die "pmc2c code generation failed ($?)\n";
    }
}

sub compile {
    my ($src_ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7663	7810	
==>:
	print "Peas",
	return
beans:
	print "Beans",
	return

' Truth
s$="Hello"
if s$ then print "This is true" else print "Oops (string)"
s$=""
if s$ t <==
2	/Users/nnunley/parrot/examples/benchmarks/freeze.pl	78	204	
==>ples/benchmarks/freeze.pl 19601 2006-05-30T13:32:26.641316Z coke  $

=head1 NAME

examples/benchmarks/freeze.pl - Freeze/Thaw B <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37465	37599	
==>FAULT => -104
	},
	{#State 145
		ACTIONS => {
			"-" => 24,
			'TRUE' => 25,
			'NOT' => 27,
			'STRING' => 29,
			'NIL' => 30, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7438	7550	
==>= @_;
    $reg = value($reg);
    return ("$reg = pop \@::STATESTACK;");
}

sub output_refresh {
    my ($self, $ <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	7323	7440	
==>s) = @_;

    my @sources = map { "$_$O" } @$stems;
    if (needs_build("$group$LOAD_EXT", @sources)) {
        run(pa <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7534	7651	
==>s) = @_;

    my @sources = map { "$_$O" } @$stems;
    if (needs_build("$group$LOAD_EXT", @sources)) {
        run(pa <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2816	2994	
==>less([ 'label', "\@$name$number" ], 'asm_op');
}

############################################################################
# OPTIMIZATION INFORMATION
#
# All of this is only f <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	5101	5211	
==>w;
	
		$self->{POD_ERRORS_TIME} = time;
		$self->{POD_ERRORS} = '';
		$checker->output_string(\$self->{POD_ERRO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	622933	623088	
==>c;\n    void **dest_pred;\n    parrot_context_t *caller_ctx, *ctx;\n    parrot_cont_t cc;\n    int n;\n\n    ctx = CONTEXT(interpreter->ctx);\n    mic = (Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667527	667654	
==>5 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->push_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668301	668428	
==>5 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->push_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	9134	9261	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_encoding_line {
  my($self, $line) = @_;
  
  # The point o <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9104	9210	
==>ffsetCounter}, \$text, $thisparser, 1;
	':'') . ($parser->{_check}{thiscolumn}?'
	my $thiscolumn;
	tie $thi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	27502	27706	
==>can($method)) {
        $desc = $self->$method($op, @{ $op->{args} });
        return ($back, @ops) if ! defined $desc;
    }

    my $db_back = $self->genlabel($op->{name}."_back");
    my $db_start = $se <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208266	208403	
==>ic"
                            ],
                  "BODY" => "#line 401 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209207	209344	
==>ic"
                            ],
                  "BODY" => "#line 401 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2219	2312	
==>ld)->u.key",
  'kic' => "cur_opcode[%ld]"
);

=item C<access_arg($type, $value, $op)>

Returns <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	329525	329783	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_r8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGD <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	1974	2073	
==>urn shift->is('colon');         }
sub is_concat_assign { return shift->is('concat-assign'); }
sub is <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	29824	30022	
==>next ]),
                 $back => aop('call' => [ $name, 0, $uid ]),
                          aop('goto' => [ $handle ]),
                 $next =>
              );
    return ($back, @ops);
}

# H <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3887	4130	
==>ng the run core function.

=cut

sub run_core_finish
{
    my ($self, $base) = @_;
    my $bs = $base . $self->suffix . '_';
    my $c = <<END_C;
	default:
	    if (*cur_opcode >= 0 && *cur_opcode < (opcode_t)${bs}op_lib.op_count) {
		*cur_opco <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6191	6288	
==>=1
FALSE=0
DIM A$(4)
A$(1) = "New York"
A$(2) = "Boston"
A$(3) = "Chicago"
A$(4) = "Seattle"
Max = <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15844	15941	
==>=1
FALSE=0
DIM A$(4)
A$(1) = "New York"
A$(2) = "Boston"
A$(3) = "Chicago"
A$(4) = "Seattle"
Max = <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	13562	13718	
==>g, $return, $params, $args, $ret_type, $ret_type_decl,
        $return_assign, $other_decl, $final_assign,
        $temps_ref,
        $extra_preamble_ref, $ <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	162	274	
==>sToBrowser>;
use Fcntl       qw<:DEFAULT :flock>;
use Storable    qw<store_fd fd_retrieve freeze>;
use Digest::MD <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	3108	3231	
==>_;

  $offset = 0 unless defined $offset;

  my $pos = $self->pos;

  $self->INTERNAL_ERROR("Position is not defined") unles <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	1844	1961	
==>nd   { return shift->{KIND};     }
sub type   { return shift->{TYPE};     }
sub name   { return shift->{NAME};     }
s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2801	2901	
==>nd { return shift->{KIND}; }
sub type { return shift->{TYPE}; }
sub name { return shift->{NAME}; }

s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	531186	531408	
==>src/ops/math.ops\"\n  {{\@1}} = cos((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8888	9048	
==>c");
}

=item C<cc_build($cc_args, $link_args)>

These items are used from current config settings:

  $cc, $ccflags, $ldout, $o, $link, $linkflags, $cc_exe_out, <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11033	11124	
==>_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/sprintf('%%%02X',ord($1))/ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4382	4473	
==>_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/sprintf('%%%02X',ord($1))/ <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	4731	4877	
==>tent' => undef,
             'i_ndbm' => 'define',
             'i_netdb' => 'define',
             'i_neterrno' => undef,
             'i_netineti <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	17749	17836	
==>------------------------------------------------------------

sub _make_treelet {
  my $ <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	685	793	
==>in32 paths have \'s in, which qq[] treats as escape sequences.
# Config stuff
our $CC = qq[/usr/bin/gcc-4.0 - <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	689	797	
==>in32 paths have \'s in, which qq[] treats as escape sequences.
# Config stuff
our $CC = qq[/usr/bin/gcc-4.0 - <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	1375	1609	
==>ger literals:
    #

    if ($text =~ m{^( 0 | (-?[1-9][0-9]*))($|\W.*$)}x) {
      push @tokens, Jako::Token->new(
        $file, $line, 'literal', 'I', $1);
      $text = $3;
      next;
    }

    if ($text =~ m{^( 0x[0-9a-fA-F]+ )( <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	152	242	
==>rrot::Docs::Section::Docs - Docs documentation section

=head1 SYNOPSIS

	use Parrot::Docs: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82632	82893	
==>RGS" => [
                              "p",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 1196 \"src/ops/core.ops\"\n  internal_exception(1, \"don't use compile - just inv <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	1666	1793	
==>they are performed.',
		$self->new_item('', 'Configure.pl'),
		$self->config_groups,
        $self->new_group('Documentation', ' <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	19239	19351	
==>to
      see which signature has an unknown type. I am sure someone can come up
      with a neater way to do thi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818620	818985	
==>=> "restoreall",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 927,
                  "ARGS" => [],
                  "BODY" => "#line 51 \"src/ops/stack.ops\"\n  Parrot_pop_regs(interpreter);\n  {{=0,+=1}};\n",
                  "LABELS" => []
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1141	1299	
==>>get_token) {
    $DEBUG and print "Token: ", $token->dump, "\n";
    if($token->is_start) {
      ...access $token->tagname, $token->attr, etc...

    } elsif <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	19251	19376	
==>own instruction (code "
	str_ic = cur_ic
	err = concat str_ic
	err = concat ")"
    ex["_message"] = err 
    throw ex

PIRCOD <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	4363	4491	
==>st, $lastback),
                $continue);
    }
}

# TODO: can_match_empty (so s/a*/x/g doesn't go into infinite loop)
# This i <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	8377	8549	
==>) get_nci_I(interpreter, &st, n)
#define GET_NCI_S(n) get_nci_S(interpreter, &st, n)
#define GET_NCI_N(n) get_nci_N(interpreter, &st, n)
#define GET_NCI_P(n) get_nci_P(inter <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	611	710	
==>ines
{
    return <<END;
#define REL_PC (cur_opcode - start_code)
#define IREG(i) REG_INT(i)
#define <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226150	226466	
==>nction",
                  "CODE" => 264,
                  "ARGS" => [
                              "p",
                              "nc",
                              "ic"
                            ],
                  "BODY" => "#line 523 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, { <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	45038	45153	
==>cture, and walks that to generate the
output.

=head1 AUTHOR

Jeffrey Goff, drforr@hargray.com

=head1 SEE ALSO

L<S <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11548	11638	
==>-F;}
{\*\cs18 \additive \b \sbasedon10 pod-B;}
{\*\cs19 \additive \f1\lang1024\noproof\sbas <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1553	1694	
==>,
                NBERR => \$nberr,
				TOKEN => \$token,
				VALUE => \$value,
				DOTPOS => \$dotpos,
				STACK => [],
				DEBUG => 0, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1501	1636	
==>,
                NBERR => \$nberr,
				TOKEN => \$token,
				VALUE => \$value,
				DOTPOS => \$dotpos,
				STACK => [],
				DEBUG => 0, <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27739	27905	
==>e parameter
			$a=$syms[CURR];
			if ($syms[NEXT] eq "as") {
				feedme();  # Get the as
				feedme();
				push(@params, $syms[CURR], $a);
			} elsif ($syms[NEXT] eq " <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1519	1638	
==>lement({ Name => 'op', Attributes => { kind => 'postfix', name => '--' } });
  $self->ident->sax($handler);
  $handler-> <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28887	29019	
==>ef }
sub isterminal { 1 }
sub describe ($) { shift->{'description'} }

sub new ($$$$)
{
	my $class = ref($_[0]) || $_[0];

	my $patte <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30967	31099	
==>ef }
sub isterminal { 1 }
sub describe ($) { shift->{'description'} }

sub new ($$$$)
{
	my $class = ref($_[0]) || $_[0];

	my $patte <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	36686	36923	
==>^=//s
        and defined( $para_type = $self->{'accept_directives'}{$para_type} )
      ) {
        DEBUG > 1 and print " Pondering known directive ${$para}[0] as $para_type\n";
      } else {
        # An unknown directive!
        DEBU <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10145	10252	
==>--

%Latin1Code_to_fallback = ();
@Latin1Code_to_fallback{0xA0 .. 0xFF} = (
# Copied from Text/Unidecode/x00 <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2790	2919	
==>$parser->Error("Invalid escape sequence $_ .\n"),
                last;
        }
    }

    $parser->Error("Untermined strin <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4305	4434	
==>$parser->Error("Invalid escape sequence $_ .\n"),
                last;
        }
    }

    $parser->Error("Untermined strin <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	20172	20301	
==>o test the language implementation
                require "Parrot/Test/$language.pm";
                my $class = "Parrot::Test:: <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	2586	2694	
==>>'.

C<$flags> is one or more (comma-separated) I<hints>.

=cut

sub new
{
    my $class = shift;
    my ($co <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	13919	14111	
==>my $next = $self->genlabel('next');

    my ($R_back, @R_ops) = $self->rewrite($R, $nextalt);
    my ($S_back, @S_ops) = $self->rewrite($S, $back);

    return $S_back, (
                     a <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	3422	3583	
==>his command
    my %types = ();
    for my $arg (@args) {
        next unless $arg->{type};
        
        $types{ $arg->{type} } = 1;
    }
    
    # helper c <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9324	9438	
==>bol:
      Carp::croak "\"$new_code\" isn't a valid element name"
        if $new_code =~
          m/[\x00-\x2C\x2 <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10588	10702	
==>bol:
      Carp::croak "\"$new_code\" isn't a valid element name"
        if $new_code =~
          m/[\x00-\x2C\x2 <==
2	/Users/nnunley/parrot/config/inter/progs.pm	541	671	
==>$description = 'Determining what C compiler and linker to use';

@args = qw(ask cc cxx link ld ccflags ccwarn linkflags ldflags lib <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	7781	7908	
==>ot let them get closed.
    open  OLDOUT, ">&STDOUT" or die "Can't save     stdout" if $out;
    open  OLDERR, ">&STDERR" or die <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7832	7957	
==>ot let them get closed.
    open OLDOUT, ">&STDOUT" or die "Can't save     stdout" if $out;
    open OLDERR, ">&STDERR" or die <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	3054	3158	
==>join'',@_);
	my ($a,$b,$c,$d) = (A,B,C,D);
	my $i;
	for $i (0 .. (length $message)/64-1) {
		my @X = unpa <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	4704	4983	
==>dup_stdhandles unless $^C;

    return undef;
}

=back

=head2 Setting up tests

These methods are for setting up tests and declaring how many there
are.  You usually only want to call one of these methods.

=over 4

=item B<exported_to>

  my $pack = $Test->exported_to;
  $Test- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1179	1289	
==>y the next one.
        $compiler->emit(".return()"); # Return to the previous inline chunk.
        $compiler- <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4836	4996	
==>0] so that we can undef the instance in SUPER::delete().
    
    unlink($_[0]->path) or die 'Failed to unlink ' . $_[0]->path . ": $!";
    
    $_[0]->SUPER::d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	329392	329618	
==>{{\@2}}->vtable->get_number(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	330870	331096	
==>{{\@2}}->vtable->get_number(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191604	191691	
==>ne 313 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) < {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192544	192631	
==>ne 313 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) < {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936268	936376	
==>ps/string.ops\"\n  {{\@1}} = string_titlecase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937045	937153	
==>ps/string.ops\"\n  {{\@1}} = string_titlecase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8788	8880	
==>o pop it.
${ITEMP1} = elements ${STYPES}
dec ${ITEMP1}
${PTEMP0} = ${STYPES}[${ITEMP1}]
${STE <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7360	7452	
==>o pop it.
${ITEMP1} = elements ${STYPES}
dec ${ITEMP1}
${PTEMP0} = ${STYPES}[${ITEMP1}]
${STE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	27721	27944	
==>_ELEMS(signature);\n    {{+=argc + 2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	28546	28769	
==>_ELEMS(signature);\n    {{+=argc + 2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => " <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4498	4621	
==>== 0) {
        delete $self->{name};
        delete $self->{args};
        return $self->op('nop', [], %$self);
    } elsif <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5635	5758	
==>== 0) {
        delete $self->{name};
        delete $self->{args};
        return $self->op('nop', [], %$self);
    } elsif <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	12451	12617	
==>num>

  $Test->is_num($got, $dont_expect, $name);

Like Test::More's isnt().  Checks if $got ne $dont_expect.  This is
the numeric version.

=cut

sub isnt_eq {
    my <==
2	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1578	1681	
==>http://path/to/smokeserv.pl
    Sets the path to the smoke server.
  --version
    Outputs the version o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035664	1035760	
==>er, lex_pad, lex_name);\n    if (!result) {\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036828	1036924	
==>er, lex_pad, lex_name);\n    if (!result) {\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1373	1485	
==>lf->name->value;

#  $self->DEBUG(0, "Searching for symbol '$name'...");

  my $sym = $self->block->find_symbol($ <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	76	180	
==>inal

sub import (Str $pkg: *@_paths) returns Void {
    my @paths = @_paths.reverse();
    for @paths -> <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	4660	4802	
==>p" lineEndContext="#pop">
          <HlCStringChar attribute="SpChar" context="#stay" />
          <RegExpr attribute="String Interp" context=" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3083	3206	
==>abel2   'Cannot return from here to main
                   'program - only to SUB1.
' Exit tests
sub mysub(b,c)
	print "Pri <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17050	17173	
==>abel2   'Cannot return from here to main
                   'program - only to SUB1.
' Exit tests
sub mysub(b,c)
	print "Pri <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165305	165723	
==>,
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 199,
                  "ARGS" => [
                              "sc",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 190 \"src/ops/cmp.ops\"\n  if (st <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2927	3031	
==>FILE}; }
sub line { return shift->{LINE}; }

sub is_global
{
  my $self = shift;

  return defined($self- <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19982	20116	
==>: a aa ab b ba bb

sub rewrite_nongreedy_range {
    my ($self, $op, $R, $min, $max, $lastback) = @_;

    my ($rfail, $local_back, $ba <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19717	19897	
==>o lastback
#                 $matchcount--
#                 goto R.back
#           back: if $matchcount >= max goto rfail
#                 R or rfail
#                 $matchcoun <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19419	19589	
==>o lastback
#               $matchcount--
#               goto R.back
#         back: if $matchcount >= max goto rfail
#               R or rfail
#               $matchcoun <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	13232	13379	
==>l_outer, $ldel_inner, $rdel_inner, $rd) = @_;
	my $startpos = pos($$textref) = pos($$textref) || 0;
	unless ($$textref =~ m/\G($pre)/gc)
	{
		_failm <==
2	/Users/nnunley/parrot/config/auto/format.pm	1503	1657	
==>"$nv\"\n";
    }

    $conf->data->set(
        intvalfmt   => $ivformat,
        floatvalfmt => $nvformat,
        nvsize      => $nvsize
    );

    retu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94759	95001	
==>" => [
                              "s",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 63 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_and(interpreter <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	425	552	
==>anguage, $count ) = @_;
 
    
    my $test_prog_args = $ENV{TEST_PROG_ARGS} || q{};
    my $lang_fn        = Parrot::Test::per_ <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	443	564	
==>anguage, $count ) = @_;

    my $test_prog_args = $ENV{TEST_PROG_ARGS} || q{};
    my $lang_fn        = Parrot::Test::per_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2195	2300	
==>else {
    $handler->start_element({ Name => 'loop', Attributes => { kind => $self->kind } });
  }

  if ( <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	6514	6639	
==>ive name"
     if exists $Known_directives{$d};
    $this->{'accept_directives'}{$d} = $type;
    DEBUG > 2 and print "Learnin <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1285	1389	
==>pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
dec ${ITEMP0}
${PTEMP0} = ${STYPES} <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2995	3099	
==>pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
dec ${ITEMP0}
${PTEMP0} = ${STYPES} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	603557	603799	
==>@1}} = VTABLE_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640691	640931	
==>@1}} = VTABLE_name(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614977	615099	
==>\n        real_exception(interpreter, next, NO_CLASS,\n            \"Class not parent of object\");\n    }\n    {{\@1}} = o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616128	616250	
==>\n        real_exception(interpreter, next, NO_CLASS,\n            \"Class not parent of object\");\n    }\n    {{\@1}} = o <==
2	/Users/nnunley/parrot/lib/Test/More.pm	23501	23624	
==>ow_many ) {
        # $how_many can only be avoided when no_plan is in use.
        _carp "todo_skip() needs to know \$how_m <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1049	1206	
==>eturn "goto ".$self->output_label_use($where).";";
}

sub output_terminate {
    return "";
}

sub output_advance {
    my ($self, $distance, $failLabel) = @_ <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	13349	13452	
==>The `:depends("string")` parameter to most of the functions is a way
to provide a comment that refers to <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14638	14740	
==>Y" => "#line 247 \"src/ops/core.ops\"\n  opcode_t * const loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	15325	15427	
==>Y" => "#line 247 \"src/ops/core.ops\"\n  opcode_t * const loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{= <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	489	603	
==>mkd$ mkdmbf$ mki$ mkl$ mks$ mksmbf$
		    peek pen play pmap point pos
		    right$ rnd rtrim$
		    sadd screen se <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4232	4372	
==><"EOC";
        Parrot_${class}_class_init(interpreter, type$class, pass);
EOC
    }
    $cout .= <<"EOC";
    }
    return pmc;
}

EOC
}

=b <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	17679	17784	
==>d Modification History

Modified by Damian Conway, 2001-09-10, v0.62.

   Modified implicit construction o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129295	129581	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130033	130319	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	5694	5817	
==>Make full path to the directory $dir
	    my @dirs;
	    while (! -d $dir) { # Scan up to nearest existing ancestor
		unshif <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9487	9615	
==>e::RecDescent::LineCounter}, \$text, $thisparser, 1;
	':'') . ($parser->{_check}{itempos} ? '
	my $thisline;
	tie $thisline, q{Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40217	40650	
==>T",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 51,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	267760	268024	
==>TABLE_get_bool(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	268524	268788	
==>TABLE_get_bool(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	11965	12138	
==>($a, $b) { ?($a gt $b) }, 'me', '... testing gt on two strings');

- `isa_ok ($ref, Str $expected_type, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function c <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	1732	1855	
==>/TR>
        </TABLE>
        <DIV CLASS="pod">
HEADER
}

=item C<footer($navigation, $resources)>

Returns the page footer. <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	32040	32214	
==>le with exiting inside an END block.  5.005_03
and 5.6.1 both seem to do odd things.  Instead, this function edits $?
directly.  It should ONLY be called from inside an END bl <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	2019	2228	
==>hortened to their unique prefixes, and one
leading dash ("-") can be used instead of two ("--").

=cut

use strict;
use Getopt::Long;
use File::Basename;

use vars qw($VERSION);

require 5.005;

$VERSION = spri <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	3900	4002	
==>hortened to their unique prefixes,
and one leading dash ("-") can be used instead of two ("--").
__EOF_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314359	314613	
==>_ovf",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 367,
                  "ARGS" => <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	18932	19148	
==>_Results}[$self->{Curr_Test}-1] = &share({
        'ok'      => 1,
        actual_ok => 0,
        name      => '',
        type      => 'todo_skip',
        reason    => $why,
    });

    my $out = "not ok";
    $ou <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11876	11979	
==>pushargs(\@code, \$optype, \@work);
			$pir_args = join(",", map {$_->[0]} (reverse @args));
			$pir_arg <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	12286	12389	
==>pushargs(\@code, \$optype, \@work);
			$pir_args = join(",", map {$_->[0]} (reverse @args));
			$pir_arg <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	988	1155	
==>> method.

=cut

sub new_item
{
    my $self = shift;
    
    return Parrot::Docs::Item->new(@_);
}

=item C<new($text, @contents)>

Returns a new item. If there is no <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	23012	23107	
==>1 = new .PerlHash
	P1["_type"]= '$type'
	P1["type"]= "USER"
	P1["storage"]= P0
	P2["$var"]= P1
D <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	18080	18234	
==>lf->{Curr_Test}-1] = &share({
        'ok'      => 1,
        actual_ok => 1,
        name      => '',
        type      => 'skip',
        reason    => $w <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	143116	143568	
==>=> [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 175,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 84 \"src/ops/cmp.ops\"\n  i <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	23137	23278	
==>y=s"     => \$opt{library},
    ) or exit(1);
    unshift @include, ".", "$FindBin::Bin/../..", "$FindBin::Bin/../../src/pmc/";

    if ( 0 == <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	16156	16281	
==>type} =~ /left|right/)
	{
	    if ($span != 3)
	    {
		Parse::RecDescent::_error(
			"Incorrect <$op->{type}op:...> specifica <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2423	2521	
==>0) }
sub end_item_bullet { $_[0]->emit_par( 0) }
sub end_item_number { $_[0]->emit_par( 0) }
sub en <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1991	2089	
==>0) }
sub end_item_bullet { $_[0]->emit_par( 0) }
sub end_item_number { $_[0]->emit_par( 0) }
sub en <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4738	4929	
==>res = "";
    }
    return qq(
        .sub _PGE_Test
            .local pmc p6rule_compile
            load_bytecode "PGE.pbc"
            load_bytecode "PGE/Dumper.pir"
            load_byte <==
2	/Users/nnunley/parrot/config/auto/headers.pm	236	344	
==>ackage auto::headers;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Bas <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113850	114078	
==>=> "#line 204 \"src/ops/bit.ops\"\n  {{\@1}} <<= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114589	114817	
==>=> "#line 204 \"src/ops/bit.ops\"\n  {{\@1}} <<= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	1086	1216	
==>if ($output) {
		print "translate failed:\n$output";
		return 0;
	}
	$output = `$N2PConfig::parrot -o $out_name $out_name.pir`;
	un <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095278	1095639	
==>l" => 1,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "exec",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ] <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	5125	5294	
==>a'    , 916,
 'Epsilon'  , 917,
 'Zeta'     , 918,
 'Eta'      , 919,
 'Theta'    , 920,
 'Iota'     , 921,
 'Kappa'    , 922,
 'Lambda'   , 923,
 'Mu'       , 924,
 'Nu' <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	1674	1782	
==>gument is a string constant index.
    kc  The argument is a key constant index.
    ki  The argument is a ke <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	1605	1732	
==>Parrot_jit_cpcf_op';
    $restart_op = 'Parrot_jit_restart_op';
    %argmaps = %Parrot::OpTrans::C::arg_maps;
}
else {
    $jit_ <==
2	/Users/nnunley/parrot/config/auto/readline.pm	116	266	
==>975Z coke  $

=head1 NAME

config/auto/readline.pm - Test for readline lib

=head1 DESCRIPTION

Determines whether the platform supports readline.

=cu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882313	882595	
==>> 999,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719942	720034	
==>rintf_c(interpreter, \"%.12g\", (double){{\@2}});\n  PIO_putps(interpreter, io, s);\n  if (st <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721142	721234	
==>rintf_c(interpreter, \"%.12g\", (double){{\@2}});\n  PIO_putps(interpreter, io, s);\n  if (st <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6305	6544	
==>reg);
    return qq!set $reg, <rx_match>["$group";0] # get group $group start!;
}

sub output_getend {
    my ($self, $reg, $group) = @_;
    $reg = value($reg);
    return qq!set $reg, <rx_match>["$group";1] # get group $group end!;
}

sub <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	2737	2876	
==>RRAY' ){
        $out .= "    my(\$r) = [];\n";
    }
    while( $idx < @decls ){
        $name = $decls[$idx];
        $type = $decls[$idx+ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	1416	1513	
==>rs);
}

# Generate final translator code.
$pir .= generate_final_pir($srm, $metavars);

# Finally, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898957	899257	
==>4,
                  "ARGS" => [
                              "s",
                              "i",
                              "ic",
                              "s"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	840	983	
==>dRef => 36,
	Array => 37,
	FixedIntegerArray => 38,
	IntList => 39,
	Iterator => 40,
	SArray => 41,
	ConstSArray => 42,
	FixedStringArray => 43, <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	21455	21574	
==>R"
	bsr DIM_$_->[1]
	P1["storage"]= P0
	P1["_type"], '$_->[1]'
	P2["$_->[0]"]= P1
USERTYPE
			}
		}
	
		print CODE<<FIND <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498539	498743	
==>",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 595 \"src/ops/math.ops\"\n  {{\@1}} = floatval_mod({{\@2}}, {{\@3} <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	251	344	
==><Parrot::OpTrans> to provide a
function-based (slow or fast core) run loop.

=head2 Instance M <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	3563	3691	
==>up2'     , 178,
 'sup3'     , 179,
 'acute'    , 180,
 'micro'    , 181,
 'para'     , 182,
 'middot'   , 183,
 'cedil'    , 184, <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	5630	5727	
==>=item C<SELF.method(a,b,c)>

Calls the vtable method 'method' using the static type of C<SELF> (in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031496	1031604	
==>= enum_last_type)\n        {{\@1}} = -1;\n    else\n        {{\@1}} = data_types[{{\@2}} - enum_first_type].s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032365	1032473	
==>= enum_last_type)\n        {{\@1}} = -1;\n    else\n        {{\@1}} = data_types[{{\@2}} - enum_first_type].s <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	22016	22212	
==>, @options );
            }
            else {
                fail( defined $extension, "no extension recognized for $example_f" );
            }
        }
    }

    my %c_test_map = (
         c <==
2	/Users/nnunley/parrot/lib/Test/More.pm	22166	22278	
==>ould anything succeed, it will report it as an unexpected success.
You then know the thing you had todo is done a <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	1941	2045	
==>$type$count"])
	if $regs{$type}->{$count};
    }
  }
}

sub _num_arg {
  my ($node, $expected, $name) = @ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168383	168552	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 204 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169325	169494	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 204 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpr <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	12894	13065	
==>eanup and svn:ignore more simple
                my $exec_f = per_test( '_pbcexe', $test_no);  # Make cleanup and svn:ignore more simple
                $exe_f =~ s@[\\/:]@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	995030	995533	
==>" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1113,
                  "ARGS" => [
                              "i",
                              "i",
                              "s",
                              "i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837033	837288	
==>nline",
                  "CODE" => 948,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 234 \"src/ops/stack.ops\"\n  (void)stack_pop(interpreter, &CONTEXT(interpreter->ctx)- <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	11107	11248	
==>ined $got && !defined $expect;

        $self->ok($test, $name);
        $self->_is_diag($got, 'eq', $expect) unless $test;
        return $te <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	24921	25234	
==>ag("'$cmd' failed with exit code $exit_code")
        if $exit_code;

            if (! -e $exe_f) {
                $builder->diag("Failed to build '$exe_f': " . slurp_file($build_f));
                unlink $build_f;
                $builder->ok(0,$desc);

                return 0;
            }

            $c <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	3000	3119	
==>nt match_num
    .local int ii
    .local int valid_flag
    set num_groups, result["!GROUPS"]
    set match_num, 0
prin <==
2	/Users/nnunley/parrot/languages/regex/test.pl	441	546	
==>ames
my $PARROT_EXE = catfile(catdir($FindBin::Bin, updir(), updir()), "parrot");

sub usage {
    my ($ms <==
2	/Users/nnunley/parrot/config/gen/icu.pm	1787	1926	
==>fig --ldflags");
            if (defined $icushared) {
                chomp $icushared;
                $icushared =~ s/-licui18n\w*//; # " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	619554	619653	
==>t}\n\telse {\n\t    if (PARROT_ERRORS_test(interpreter,PARROT_ERRORS_OVERFLOW_FLAG)) {\n\t\treal_exc <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13435	13625	
==>d type
type second
	other as first
	narf as integer
	pnext as first
end type
dim x as second
dim y as second
dim t as first
x.other.foo=1
x.other.bar="one"
x.narf=99
x.pnext.foo=2
x.pnext.bar <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	15033	15192	
==>ock($cond) if defined $cont;;
      }
      elsif ($peer_block->kind eq 'else') {
        if (defined $cont) {
          $self->SYNTAX_ERROR("No more than one e <==
2	/Users/nnunley/parrot/lib/File/Which.pm	3220	3489	
==>e wantarray
    return @res;
}

1;
__END__

=head1 NAME

File::Which - Portable implementation of the `which' utility

=head1 SYNOPSIS

  use File::Which;                  # exports which()
  use File::Which qw(which where);  # exports which() and where()
  
  my $exe_p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035637	1035728	
==>get_pmc_keyed_str(interpreter, lex_pad, lex_name);\n    if (!result) {\n\treal_exception(int <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036801	1036892	
==>get_pmc_keyed_str(interpreter, lex_pad, lex_name);\n    if (!result) {\n\treal_exception(int <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	13165	13294	
==>pend_html_suffix($dist->relative_path($file));
    
    # This is the docs file for the module.
    $file = $self->{TARGET}->file_ <==
2	/Users/nnunley/parrot/config/init/defaults.pm	5902	6132	
==>',

        VERSION => $main::parrot_version,
        MAJOR   => $main::parrot_version[0],
        MINOR   => $main::parrot_version[1],
        PATCH   => $main::parrot_version[2],
        DEVEL   => (-e 'DEVELOPING' ? '-devel' : ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423620	423763	
==>{{\@1}} = (INTVAL)PIO_listen(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	424517	424660	
==>{{\@1}} = (INTVAL)PIO_listen(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3797	3914	
==>witch (*cur_opcode) {
END_C
}

=item C<run_core_finish($base)>

Returns the C code following the run core function.

= <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	22519	22619	
==>nc->($$textref) }
				elsif (ref($func) eq 'Text::Balanced::Extractor')
					{ @bits = $field = $func <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367874	368106	
==>IN(interpreter), (size_t){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368666	368898	
==>IN(interpreter), (size_t){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	331	471	
==>s Methods

=over 4

=cut

package Parrot::IO::Directory;

use strict;
use warnings;

use base qw( Parrot::IO::Path );

use DirHandle;
use Fil <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8937	9046	
==>th_relative_path
{
    my $self = shift;
    my $path = shift || return;
    my ($volume, $directories, $name) <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9336	9445	
==>th_relative_path
{
    my $self = shift;
    my $path = shift || return;
    my ($volume, $directories, $name) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1027198	1027346	
==>ic"
                            ],
                  "BODY" => "#line 280 \"src/ops/sys.ops\"\n   {{\@1}} = sysinfo_i(interpreter, {{\@2}});\n   {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25959	26090	
==>34,
                  "ARGS" => [],
                  "BODY" => "#line 446 \"src/ops/core.ops\"\n  PMC * const p = CONTEXT(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	2982	3092	
==>POP()>

Transforms to C<< PC' = <pop> >>. Pops the address off control stack.

=item C<expr OFFSET(X)>

Transfo <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	4728	4921	
==>P",
       S => "S",
       I => "I",
       N => "N",
       B => "S",
       v => "v",
       J => "",
     );

my $temp_cnt = 0;
my @put_pointer;
my %seen;

while (<>) {
    chomp;
    s/#.*$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426186	426442	
==>atch_v_pi(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427073	427329	
==>atch_v_pi(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	57293	57464	
==>lue parsing:

        @fields = extract_multiple($csv_text,
                                  [
                                        sub { extract_delimited($_[0],q{'"}) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1097575	1097725	
==>n            key_append(interpreter, key_tail, key);\n            key_tail = key;\n        }\n    }    \n    {{+=3}};\n",
                  "experiment <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	78	197	
==>Page.pm 20321 2006-06-20T20:02:00.179448Z bernhard  $

=head1 NAME

Parrot::Docs::HTMLPage - HTML Documentation Page

=h <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11596	11765	
==>page_header("Branch Coverage for $source_file");
    print OUT "<pre>";

    # filter out any call coverage lines.
    do_filter(sub { /^call/ } );

    print OUT "</pre> <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	14537	14709	
==>an         math.h
tanf        math.h
tanh        math.h
tanhf       math.h
tanhl       math.h
tanl        math.h
tgamma      math.h
tgammaf     math.h
tgammal     math.h
tim <==
2	/Users/nnunley/parrot/config/inter/charset.pm	682	788	
==>arset_list = $conf->options->get('charset')
        || join(' ', grep { defined $_ } @charset);

    if ($c <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	1912	2026	
==>/core_ops_cg$(O) $(OPS_DIR)/core_ops_cgp$(O)',
            TEMP_cg_r => '$(RM_F) $(INC_DIR)/oplib/core_ops_cg.h $(O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18927	19063	
==>src/ops/core.ops\"\n  if ({{\@1}}->vtable->get_bool(interpreter, {{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	191	316	
==>NOPSIS

	use Parrot::Docs::File;
	my $file = Parrot::Docs::File->new('MANIFEST');

=head1 DESCRIPTION

This C<Parrot::IO::File <==
2	/Users/nnunley/parrot/config/init/hints/cygwin.pm	839	1002	
==>t be worth revisiting.
    # A. Dougherty 9/9/2002
    $conf->data->set(
        build_dir           => $build_dir,
        ld                  => 'gcc',
        ld <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20142	20352	
==>ists $th{$type} or
							  exists $usertypes{$type});
			my $marker;
			if (exists $th{$type}) {
				$marker=$th{$type};
			} else {
				$marker='USER';
			}
			push(@types, [ $name, $type, $marker ]);
			feedm <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127384	127727	
==>",
                  "CODE" => 157,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 271 \"src/ops/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2672	2773	
==>ame) {
      my $temp = $compiler->temp_reg($formal_arg_type);
      my $value = $args[$i]->compile($c <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2372	2473	
==>ame) {
      my $temp = $compiler->temp_reg($formal_arg_type);
      my $value = $args[$i]->compile($c <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	21204	21444	
==>xt:
#
# R*? ->        pushindex
#               goto next
#        rfail: popint -> tmp or R.back
#               goto lastback
#         back: R or rfail
#               pushmark
#         next:
#
# conversion to using a temporary (not impl <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	1617	1740	
==>'ll
        #  now go get the local equivalent for.
    }

    # It's numeric, whether by origin or by mutation from a known <==
2	/Users/nnunley/parrot/config/auto/aio.pm	51	144	
==>Id: /parrot/config/auto/aio.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/ <==
2	/Users/nnunley/parrot/config/gen/PodText.pm	389	483	
==>es L<Pod::Text> to convert Pod documents into their plain text equivalents.

=head1 USAGE

=hea <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18107	18221	
==>ser, $meth, 'key' );
    push @opcodes, @{ $key->[1] };
    my $result = new_tmp( $parser, 'pmc' );
    push @op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920999	921089	
==>c/ops/string.ops\"\n    {{\@1}}=Parrot_psprintf(interpreter, {{\@2}}, {{\@3}});\n    {{+=4} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921892	921982	
==>c/ops/string.ops\"\n    {{\@1}}=Parrot_psprintf(interpreter, {{\@2}}, {{\@3}});\n    {{+=4} <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12889	13052	
==>argument list
     /"pmc->vtable->$method(" . full_arguments($1) . ')'/xeg;

    # Rewrite OtherClass.SELF.other_method(args...)
    s/(\w+)             # OtherClas <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24193	24304	
==>$P3 = new .PerlHash
	\$P3["index"]=\$P2
	\$P3["hash"]=\$P0
	find_global \$P1, "BASICARR"
	\$P1["$var$seg"]= \$P3 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	30103	30232	
==>efined at all.
sub rewrite_rule {
    my ($self, $op, $name, $R, $num_groups, $lastback) = @_;

    # Generate code for saving/res <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	974655	975322	
==>" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1095,
                  "ARGS" => [
                              "i",
                              "i",
                              "sc",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_c <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	7457	7700	
==>acosf       math.h
acosh       math.h
acoshf      math.h
acoshl      math.h
acosl       math.h
arg         complex.h
asctime     time.h
asin        math.h
asinf       math.h
asinh       math.h
asinhf      math.h
asinhl      math.h
asinl       m <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	2176	2272	
==>termined, it is processed and its method names
are extracted and saved.

Next, each method body i <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	28890	29020	
==>ement name
      #  should be.

      DEBUG > 1 and print "Pondering non-magical $para_type\n";

      my $i;

      # Enforce some <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447352	447786	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 512,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 170 \"src/ops/math.ops\"\n  if ( <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6862	6970	
==>${STEMP1} = ${ITEMP1}
${STEMP0} = concat ${STEMP1}

# Put it in the parameter register list.
${PARAMS}[${ITEM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238736	239058	
==>mp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 278,
                  "ARGS" <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	6307	6481	
==>) {
            if ($rule->{$_} =~ /^\d+$/) {
                if ($has_pop) {
                    die "Duplicate value for pop in rule $rule->{'name'}\n";
                } el <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272554	272860	
==>,
                  "CODE" => 317,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 871 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	31157	31264	
==>, qq|\teq JUMPLABEL, "$labels{$_}", $labels{$_}\n|;
		}
	}

	push @{$code{$seg}->{code}}, <<RTBE;
	print "Ru <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	536878	537290	
==>GS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 621,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 956 \"src/ops/ <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	7304	7425	
==>group, $libs, $stems) = @_;

    my @sources = map { "$_$O" } @$stems;
    if (needs_build("$group$LOAD_EXT", @sources)) { <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7515	7636	
==>group, $libs, $stems) = @_;

    my @sources = map { "$_$O" } @$stems;
    if (needs_build("$group$LOAD_EXT", @sources)) { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24330	24538	
==>> "",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 32,
                  "ARGS" => [],
                  "BODY" => "#line 429 \"src/ops/core.ops\"\n  opc <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	11646	11765	
==>}

  $self->_generate($transnode);
}

sub _op_case {
}

sub _op_and {
  my ($self,$node) = @_;
  my $return;
  my $label <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	10926	11021	
==>cted, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `isnt (Str $got, Str $expected, S <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4036	4143	
==>("Missing mandatory parameter '".lc($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _DB <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3833	3932	
==>("Missing mandatory parameter '".lc($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _DB <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2742	2853	
==>address)>

Same logic as C<expr_pop()>.

=cut

sub expr_address
{
    my ($self, $addr) = @_;
    return "opcode <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1716	1815	
==>vious definition.
  #

  if (defined $sym) {
    $self->SYNTAX_ERROR("Redeclaration of identifier '% <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	602124	602383	
==>> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "class",
                  "FLAGS" => ":object_classes",
                  "AR <==
2	/Users/nnunley/parrot/config/auto/inline.pm	499	621	
==>ine verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $test;
    my ($inline, $verbose) = $conf->options->get(qw <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	647	779	
==>e, in some language

# Stuff that is used for optimization
# -----------------------------------
# nop : Do nothing (placeholder)
# c <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1785	1918	
==>head1 PIE
  
  I like B<pie>!
  
  % perl -MPod::Simple::SimpleTree -MData::Dumper -e \
     "print Dumper(Pod::Simple::SimpleTree->ne <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	26531	26643	
==>int on failure. So this threads all the
# fallback points together.
sub rewrite_seq {
    my $self = shift;
    m <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	9081	9323	
==>rn ".end\n";
}

=head1 Utility Methods

=head2 (min,max) = num_args($template)

Given an argset, figure out the minimum and maximum number of args required
for this builtin.

=cut

sub num_args {
    my @args = @_;

    my $min = my $max = @ar <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	1788	1918	
==>on', '',
		    $self->new_item('How to add new configuration steps.', 
		        'docs/configuration.pod')
		),
		$self->new_group( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718486	718924	
==>GDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 806,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 124 \"src/ops/python.ops\"\n  PMC * const io = {{\@1}};\n  if (PIO_softspace(inte <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	4994	5258	
==>"; # extra newline after header
    }

    # this loop can not be implemented as a foreach loop as the body
    # is dependant on <IN> being evaluated lazily
    while (my $line = <$in>) {
        # everything after the line starting with #perl is eval'ed
        i <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	4	185	
==>ckage Lua::parser;

use strict;

use Lua::opcode;
use Lua::symbtab;

sub new_tmp {
    my ( $parser, $type, $subtype ) = @_;
    my $idf = 'tmp_' . $parser->YYData->{idx_tmp <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	10043	10153	
==>xtref)-$parapos,	# REMAINDER
	       );
	
matched:
	$endpos = pos($$textref);
	return (
		$startpos,    $openta <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	17082	17205	
==>7f .. 0xFF, 0x46),

  # We get to escape out 'F' so that we can send RTF files thru the mail
  # without the slightest worry <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4948	5088	
==>k, $self->require_ident);
      my $name = $ident->value;

      #
      # Allow there to be Properties:
      #

      my %props;

      whi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7942	8082	
==>k, $self->require_ident);
      my $name = $ident->value;

      #
      # Allow there to be Properties:
      #

      my %props;

      whi <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1320	1421	
==>_str";
}

=item C<expr_address($address)>

Returns the C code for C<ADDRESS($address)>. Called by C<go <==
2	/Users/nnunley/parrot/config/auto/env.pm	1260	1448	
==>etenv');
    } elsif ($unsetenv) {
        print " (unsetenv) " if $verbose;
        $self->set_result('unsetenv');
    } else {
        print " (no) " if $verbose;
        $self->set_resul <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	10135	10233	
==>title>
  <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

  <style type="text <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	7860	8074	
==>} goto $op->{result}->{symbol}\n";
        }
        else {
            print {$FH}
                "  unless $op->{arg1}->{symbol} goto $op->{result}->{symbol}\n";
        }
    }

    sub visitBranchUnless <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	4668	4796	
==>tus).

Because VMS's exit codes are much, much different than the rest of the
universe, and perl does horrible mangling to them t <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2221	2346	
==>cation',
	't' => 'Test file',
	'tbl' => 'Vtable file',
	'tcl' => 'TCL code',
	'txt' => 'Text file',
	'urm' => 'URM code',
	'vi <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1881	1978	
==>>new,
        Parrot::Docs::Section::Compilers->new,
        Parrot::Docs::Section::Languages->new <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	3041	3230	
==>r/Makefile',
        commentType                      => '#',
        replace_slashes                  => 1
    );
    genfile(
        'config/gen/makefiles/languages.in' => 'languages/Make <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	2362	2491	
==>@ARGV) {
        copy_file($file, "miniparrot/$file");
    }
}

sub write_buildscripts {
    my @compiled_files;
    foreach my $o <==
2	/Users/nnunley/parrot/lib/Test/More.pm	34597	34689	
==>e compared B<as strings>.  This prevents
Test::More from piercing an object's interface allow <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1520	1704	
==>= %{$CODES{'32bit'}} }
  #else { %f = %{$CODES{'64bit'}} }

  my %s = (  # shift lengths
	S11 => 7, S12 => 12, S13 => 17, S14 => 22, S21 => 5, S22 => 9, S23 => 14,
	S24 => 20, S31 => 4, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	1804	1921	
==>{
  use Carp ();
  Carp::croak "Use set_source with ", __PACKAGE__,
    " and subclasses, not parse_line";
}

#~~~~~~~ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	1859	1974	
==>ource($file);
exit if $opt{D};
gen_code();

sub nci_method {
    my $m = shift;
    return 1 if $vtables{$m};
    re <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	2086	2245	
==>b file   { return shift->{FILE};     }
sub line   { return shift->{LINE};     }

sub is_global   { return shift->scope eq 'global'; }
sub is_local    { return s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	385	496	
==>onstruct::Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected 5 args!" unless @_ == <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	385	496	
==>onstruct::Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected 5 args!" unless @_ == <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28874	28983	
==>subrule { undef }
sub isterminal { 1 }
sub describe ($) { shift->{'description'} }

sub new ($$$$)
{
	my $clas <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30954	31063	
==>subrule { undef }
sub isterminal { 1 }
sub describe ($) { shift->{'description'} }

sub new ($$$$)
{
	my $clas <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6495	6670	
==>Terminate recursion

  return $self->block->find_symbol($name); # Recurse
}


###############################################################################

=head2 BLOCK->fin <==
2	/Users/nnunley/parrot/languages/scheme/Scheme.pm	93	194	
==>age Scheme;

use strict;

use Data::Dumper;

use Scheme::Tokenizer();
use Scheme::Parser();
use Scheme <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28852	28949	
==>hod}{$meth};
    my $n = $self->{has_method}{$meth};
    return $self->{methods}[$n]{'loc'} ne 'nc <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29366	29503	
==>v->{'LOADREG'} = 'loadreg';
			push @localmv, 'LOADREG';
		} else {
			die "pir or instruction must use one of \${DEST0} or \${LOADREG} in <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36028	36163	
==>RAMS'} = 'c_params';
        push @localmv, 'PARAMS';

        # If we don't have an ARG0, we'll fake it out. This is needed as ret will <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	5606	5727	
==>int "rule error"
          end:
        .end\n);
}

sub _generate_subrule_pir {
    my($target, $pattern) = @_;
    $targe <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	14655	14810	
==>e that is also a struct is how
structs are nested.  Here, C<timeval> represents a time (seconds and
microseconds), and C<rusage> has two elements, each of w <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	254	386	
==>048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expression::Call;

use Carp;

use base qw(Jako::Constru <==
2	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	716	841	
==>"stackops.pasm"
.include "alpha.pasm"
.include "dumpstack.pasm"
.include "tokenize.pasm"
.include "basicvar.pasm"
.include "ba <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191395	191646	
==>E" => 227,
                  "ARGS" => [
                              "p",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 313 \"src/ops/cmp.ops\"\n  if ({{\@1}}-> <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1578	1938	
==>'STRING';

    while ( $parser->YYData->{INPUT} ) {

        for ( $parser->YYData->{INPUT} ) {

            s/^\"//
                and return ( $type, $str );

            s/^([^"\\]+)//
                and $str .= $1,
                last;

            s/^\\([\\"'])//
                and $str .= $1,        # backslash, quotation mark, apostro <==
2	/Users/nnunley/parrot/config/init/miniparrot.pm	1624	1827	
==>o         => '',
        TEMP_exec_h        => '',
        TEMP_exec_o        => '',
        asmfun_o           => '',
        has___sighandler_t => undef,
        has_sigatomic_t    => undef,
        has <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	5610	5826	
==>"rule error"
          end:
        .end\n);
}

sub _generate_subrule_pir {
    my($target, $pattern) = @_;
    $target = _parrot_stringify($target);

    # Beginning of the pir code
    my $pirCode = qq(
        .sub <==
2	/Users/nnunley/parrot/config/inter/ops.pm	750	984	
==>\.ops/
            } glob "src/ops/*.ops"
    );

    my $ops = join ' ', grep { !/obscure\.ops/ } @ops;

    $ops = $conf->options->get('ops') if defined $conf->options->get('ops');

    # ops selection disabled - until we can build a <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6491	6593	
==>j = P_arg_0[i]
    ${ITEMP0} = ${NEXTPC} + j
    prop_type_state[${ITEMP0}] = ${STYPES}
    prop_stack_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4429	4531	
==>j = P_arg_0[i]
    ${ITEMP0} = ${NEXTPC} + j
    prop_type_state[${ITEMP0}] = ${STYPES}
    prop_stack_ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	38694	38811	
==>ty" elements:

	extract_tagged($text, undef, undef, undef, {ignore => ['<[^>]*/>']} );

(also see L<"gen_delimited_pat <==
2	/Users/nnunley/parrot/tools/dev/gen_class.pl	325	538	
==>o generate a template PMC file with stubs for all the
methods you need to fill in. See F<docs/vtables.pod> for more
information on adding a new PMC to Parrot.

To see what a minimal PMC looks like, create a PMC <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79311	79413	
==>} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      /* At this point we have the symbol's <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80832	80934	
==>} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      /* At this point we have the symbol's <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20566	20676	
==>rn;
}

sub _op_geq {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038115	1038566	
==>RS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1160,
                  "ARGS" => [
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line 115 \"src/ops/var.ops\"\n    Parrot_store_global(interpreter, NULL, {{\@1}}, {{\@2}});\n    {{ <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	9219	9306	
==>JITCPU "#define ECONST(i) (int *)(jit_info->cur_op[i] * sizeof(struct PackFile_Constant) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432458	432573	
==>\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433473	433588	
==>\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13111	13223	
==>s ($node);

  for (@args) {
    $self->_restore ($temp);
    $temp = $self->_generate ($_);
  }
  return $temp;
} <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	5744	5939	
==>wice!  Second plan at %s line %d\n",
          ($self->caller)[1,2];
    }

    if( $cmd eq 'no_plan' ) {
        $self->no_plan;
    }
    elsif( $cmd eq 'skip_all' ) {
        return $self->skip <==
2	/Users/nnunley/parrot/config/auto/bc.pm	749	954	
==>s with a hanging bc reported.
    # So check for bc only on selected platforms.
    # Linux should be a safe bet.
    # For Win32 bc is available on http://gnuwin32.sourceforge.net/
    my %bc_does_not_hang <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	992	1095	
==>nce Methods

=over 4

=item C<prefix()>

Returns the default 'C<Parrot_>' prefix.

Used by C<Parrot::Op> <==
2	/Users/nnunley/parrot/lib/Test/More.pm	17360	17464	
==>unless @imports;

    my($pack,$filename,$line) = caller;

    local($@,$!);   # eval sometimes interfere <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	13460	13596	
==>:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.

sub parse_from_file {
  # An emulation of Pod::Parser's int <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	12236	12326	
==>:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.
#

sub parse_f <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26603	26742	
==>ie "Subroutine $syms[CURR] not found at line $sourceline\n"
	}
	my $sub=$syms[CURR];
	barf();
#	print STDERR "Processing call $sub\n";
	($re <==
2	/Users/nnunley/parrot/lib/Test/More.pm	2018	2125	
==>test_name );
      is( foo(42), 23, $test_name );
  };

  can_ok($module, @methods);
  isa_ok($object, $clas <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	17388	17662	
==>", "=item    123412"
    
    $para->[1]{'~orig_content'} = $content;
    $para->[1]{'number'} = $1;  # Yes, stores the number there!

    splice @$para, 2; # so it ends up just being ['=item', { attrhash } ]
    return $para->[1]{'~type'} = 'number';
    
  } else {
    # I <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	6446	6551	
==>T [%s:%d]: '%s'\n", $file, $line, $1;
      push @tokens, Jako::Token->new(
        $file, $line, 'ident', <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	1413	1520	
==>the argument passes a variable value into the op
    label         an in argument containing a branch offset <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	2993	3178	
==>T) -> (a opt(R|S) | opt(bT))
        # opt(R|...) -> (opt(R)|opt(...)) (when R is not a sequence)
        my $R = shift(@children);

        # opt(R|...) -> (opt(R)|opt(...)) (R is not a <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63168	63275	
==>line,"$code$argcode($1)");

						!$matchrule and $rule and $rule->addcall($name);

						_check_insatiable( <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63889	63996	
==>line,"$code$argcode($1)");

						!$matchrule and $rule and $rule->addcall($name);

						_check_insatiable( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	415	586	
==>sub new
{
  my $class = shift;

  confess "Expected 5 args!" unless @_ == 5;
  my ($block, $type, $ident, $props, $args) = @_;

  confess "Block is not!" unless UNIVERSAL:: <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4633	4732	
==>ps = ("<rx_tmp> = ord(substr(<rx_input>, <rx_pos>)); # tmp = INPUT[pos]");
    my $fail = $self->out <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	15791	15913	
==>ined $extra{todo};

            my $pass = $builder->$meth( $real_output, $expected, $desc );
            $builder->diag("' <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	18342	18464	
==>ined $extra{todo};

            my $pass = $builder->$meth( $real_output, $expected, $desc );
            $builder->diag("' <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	56	159	
==>parrot/lib/Parrot/Vtable.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Vtable - <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1438	1548	
==>sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'op', Attribu <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1432	1542	
==>sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'op', Attribu <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	4621	4745	
==>d uses this verbose setting, why?
        $self->data->set(verbose => $verbose) if $n > 2;

        print "\n", $description, <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	2697	2799	
==>ompiler errors and warnings instead of using
confess() and warn().

=cut

sub set_symbol
{
  my $self = <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7730	7833	
==>gister name now.
	if (!$dest_reg) {
		$pir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5848	5951	
==>gister name now.
	if (!$dest_reg) {
		$pir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	31063	31181	
==>put_port_p {
}

sub _op_output_port_p {
}

sub _op_current_input_port {
}

sub _op_current_output_port {
}

sub _op_wit <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14195	14511	
==>( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_GNEXT",
                  "NAME" => "jump",
                  "FLAGS" => ":base_loop",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048359	1048587	
==>\@1}} = Parrot_get_global(interpreter, NULL, {{\@2}}, next);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049283	1049511	
==>\@1}} = Parrot_get_global(interpreter, NULL, {{\@2}}, next);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	3216	3341	
==>'seq') {
            my $subtree = $self->pass1(rop('alternate', \@children), $ctx);
            @{ $t->{args} } = ($R, $subtr <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	2214	2344	
==>-e $self->parent_path )
    {
        # This dies if it fails.
        mkpath($self->parent_path);
    }
    
    return -e $self-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18116	18212	
==>=> "#line 307 \"src/ops/core.ops\"\n  if (string_bool(interpreter, {{\@1}})) {\n    {{+={{\@2}}}} <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	4428	4599	
==>umentation directory.

=cut

sub docs_directory
{
    my $self = shift;
    
    return $self->existing_directory_with_name('docs');
}

=item C<html_docs_directory()>

Retu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669391	669698	
==>> 0,
                  "NAME" => "push",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 749,
                  "AR <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8777	8944	
==>@$stack,
                     [ $$states[$$stack[-1][0]]{GOTOS}{$lhs}, $semval ]);
                $$check='';
                next;
            };

#DBG>			$debu <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8381	8542	
==>@$stack,
                     [ $$states[$$stack[-1][0]]{GOTOS}{$lhs}, $semval ]);
                $$check='';
                next;
            };

#DBG>			$debu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	315558	315802	
==>((unsigned char)({{\@1}}));\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87425	87540	
==>core.ops\"\n  {{\@1}} = Parrot_make_cb(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88427	88542	
==>core.ops\"\n  {{\@1}} = Parrot_make_cb(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "L <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10062	10298	
==>lue};
    $lambda = { children => [ { value => 'lambda' },
                              { children => [ @formals ] },
                              _get_args ($node, 2) ] };
  }
  else {
    $symbol = _get_arg($node,1)->{value};
    $la <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	8895	8995	
==>(); }

package Regex::Ops::Tree::rule;
sub minlen { my ($op) = @_; $op->{args}->[1]->minlen() }
sub m <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	4675	4827	
==>$prevoffset\n";
}



package Parse::RecDescent::Rule;

sub new ($$$$$)
{
	my $class = ref($_[0]) || $_[0];
	my $name  = $_[1];
	my $owner = $_[2];
	my $l <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	1082	1204	
==>@_);
}

=item C<new($text, @contents)>

Returns a new item. If there is no descriptive text then C<$text> should
be an empt <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	8740	8890	
==>kid (@{ $t->{args} }) {
            $kid_follow_min += $kid->minlen();
        }

        foreach my $kid (@{ $t->{args} }) {
            $kid_follow_m <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2258	2383	
==>ilder_func = $language_test_map{$func};
    
      {
        no strict 'refs';

        $pass = $self->{builder}->$builder_fun <==
2	/Users/nnunley/parrot/tools/util/pirtidy.pl	1186	1322	
==>by perltidy.

=head1 EXAMPLES

 perl pirtidy.pl somefile.pir

This will produce a file somefile.pir.tdy containing the pir file
reformatt <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	3233	3399	
==>hift;
    
    return
        $self->directory_with_relative_path('compilers/ast'),
        $self->directory_with_relative_path('compilers/imcc'),
        $self->direc <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	696	795	
==>g the way.

=back

=head1 COMMAND-LINE ARGUMENTS

=over 4

=item C<OBJFILES>

One or more object fil <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760432	760658	
==>E" => 858,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 286 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}}->vtabl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	751020	751316	
==>,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 209 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_string_native(interpreter, {{\@1}},\n    string_copy(interpreter, {{\@2}}));\n  { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243489	243988	
==>RGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 283,
                  "ARGS" => [
                              "i",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 632 \"src/ops/cmp.ops\"\n  STRING* l = VTABLE_get_string(interpreter, <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	47	165	
==>);
while (<>) {
	if (/^Translated (\d+) types out of (\d+) from .+?([\.\w]+)\n$/) {
		push @results, {
			name	=> $ <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	47	165	
==>);
while (<>) {
	if (/^Translated (\d+) types out of (\d+) from .+?([\.\w]+)\n$/) {
		push @results, {
			name	=> $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2319	2413	
==>$token->type() eq "text" >>

=item $token->is_end

This is a shortcut for C<< $token->type() eq <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	304	396	
==>.ops [input2.ops ...]
 $ perl tools/build/ops2pm.pl [--renum]  input.ops [input2.ops ...]

=h <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	1216	1311	
==>rocessing code was intended to be
a read-only representation of what was in a particular ops fil <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	67361	67531	
==>ubrule($name,
								       $lookahead,
								       $line,
								       $desc,
								       $matchrule,
								       $argcode);
	 
				$prod and $prod->additem($ <==
2	/Users/nnunley/parrot/languages/regex/test.pl	2878	3020	
==>fined($output);

    # Gather output
    while (<SPEC>) {
        last if /^INPUT:/;
        $output .= $_;
    }

    $status &&= process($inp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172241	172337	
==>> "#line 218 \"src/ops/cmp.ops\"\n  if (0 != string_equal(interpreter,\n      {{\@1}}->vtable->ge <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173219	173315	
==>> "#line 218 \"src/ops/cmp.ops\"\n  if (0 != string_equal(interpreter,\n      {{\@1}}->vtable->ge <==
2	/Users/nnunley/parrot/languages/m4/tools/scrutinize.pl	77	174	
==>1 DESCRIPTION

This is not below 't', in order to not interfere with regression testing.

=head1 T <==
2	/Users/nnunley/parrot/config/init/hints/netbsd.pm	199	316	
==>s !~ /-pthread/) {
        $ccflags .= ' -pthread';
    }
    $conf->data->set(ccflags => $ccflags);

    my $libs = $ <==
2	/Users/nnunley/parrot/config/init/hints/openbsd.pm	291	408	
==>s !~ /-pthread/) {
        $ccflags .= ' -pthread';
    }
    $conf->data->set(ccflags => $ccflags);

    my $libs = $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547316	547697	
==>d_var2;\n {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fact",
                  "FLAGS" => ":advanced_math",
                  "ARGDI <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	5113	5231	
==>t can be GC'd
      }
       # to make sure that an undef is always sent to signal end-of-stream

    } elsif(exists $s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710733	710827	
==>, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711567	711661	
==>, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{\ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31006	31198	
==>$cout;
}

=back

=head2 Parrot::Pmc2c::Ref Instance Methods

=over 4

=cut

package Parrot::Pmc2c::Ref;
use base 'Parrot::Pmc2c';
import Parrot::Pmc2c qw( gen_ret );

=item C<implements($method <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	4654	4745	
==>compiled(Interp *interpreter, opcode_t *cur_opcode, opcode_t *start_code);

#include "parrot <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17198	17400	
==>calDir( $parser,
                    'result' => $result,
                );
                push @opcodes, new KeyedGetOp( $parser,
                    'result' => $result,
                    'arg <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18235	18377	
==>calDir( $parser,
        'result' => $result,
    );
    push @opcodes, new KeyedGetOp( $parser,
        'result' => $result,
        'arg <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	45679	45817	
==>alar(@nixed), "\n";
    
    DEBUG > 6 and print "New version of the above line is these tokens (",
      scalar(@new_line), "):",
      ma <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	39003	39144	
==>ontent[ 0] =~ m/^\"/s
         and $ell_content[-1] =~ m/\"$/s
         and !( # catch weird degenerate case of L<"> !
           @ell_content <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5864	5969	
==>to deal with basic block-ish stuff. If the branch
	# did not pop anything it is unconditional, so next ins <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3802	3907	
==>to deal with basic block-ish stuff. If the branch
	# did not pop anything it is unconditional, so next ins <==
2	/Users/nnunley/parrot/config/gen/config_h.pm	302	424	
==>arrot/has_header.h> with platform-specific header
information, and F<include/parrot/feature.h> with information on optional <==
2	/Users/nnunley/parrot/config/gen/config_h.pm	661	790	
==>unstep
{
    my ($self, $conf) = @_;

    genfile(
        'config/gen/config_h/config_h.in', 'include/parrot/config.h',
        c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875937	876230	
==>"CODE" => 993,
                  "ARGS" => [
                              "s",
                              "sc",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = st <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	35846	35957	
==>no tests were ever run Test::Builder
will throw a warning and exit with 255.  If the test died, even after
havin <==
2	/Users/nnunley/parrot/lib/Test/More.pm	33917	34028	
==>no tests were ever run Test::Builder
will throw a warning and exit with 255.  If the test died, even after
havin <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	957	1062	
==>able.pm'),
		),
		$self->new_group('IO', '',
			'lib/Parrot/Distribution.pm', 'lib/Parrot/IO'),
		$self->n <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4436	4720	
==>.\n");
    $parser->YYData->{lineno}++;
    return ( $type, $str );
}

sub _LongStringLexer {
    my $parser  = shift;
    my ($level) = @_;
    my $str     = q{};
    my $type    = 'STRING';

    $_ = $parser->YYData->{INPUT};
    s/^\n//
        and $parser->YYData->{li <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	2015	2135	
==>_, " " x $self->{INDENT});
  
  my $fh = $self->{FH};

  print $fh @_, "\n";
}


#
# compile()
#

sub compile
{
  my $sel <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	4414	4557	
==>rom $source"
        );

        if ($options{commentType} eq '#') {
            foreach my $line (@comment) {
                $line = "# $line\ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	31771	31916	
==>ntact the author.

=cut

sub _whoa {
    my($check, $desc) = @_;
    if( $check ) {
        die <<WHOA;
WHOA!  $desc
This should never happen!  Pl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	672502	672786	
==>AME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 753,
                  "ARGS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548057	548172	
==>\"src/ops/math.ops\"\n  /* Coercing a negative to a UINT can get pretty ugly\n   * in this situation. */\n  INTVAL i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	4515	4673	
==>c __lib");
    $compiler->emit("  loadlib __lib, $fnlib");
    $compiler->emit("  .local pmc __func");
    $compiler->emit("  dlfunc __func, __lib, $fn_name, \ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830265	830574	
==>=> ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 939,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	15613	15896	
==>xt = shift || $href;
    
    return "<a href=\"$href\">$text</a>";
}

=item href_path($path)

Converts the path for use in an "href".

Sequences of backslashes are converted to forward slash.

=cut

sub href_path
{
    my $self = shift;
    my $path = shift;

    $path =~ s|\\+|/|go <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090323	1090897	
==>RS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1209,
                  "ARGS" => [
                              "p",
                              "p",
                              "k",
                              "ic"
                            ],
                  "BODY" => "#line 191 \"src/ops/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(in <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	6498	6612	
==>rue if at most one subexpression can ever hold at a given
# point in the input string. (Return value is conservativ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766932	767418	
==>",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 866,
                  "ARGS" => [
                              "ic",
                              "s"
                            ],
                  "BODY" => "#line 335 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	23117	23241	
==>a will create
	# the .local declarations for arguments, but it needs to know the argument
	# type. Thus we assign to meta-var <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730283	730697	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 819,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	10741	10992	
==>_num";
    };
    /I/ && do {
        push @{$temps_ref}, "INTVAL t_$temp_num;";
        push @{$extra_preamble_ref},
             "t_$temp_num = GET_NCI_I($reg_num);";
        return "t_$temp_num";
    };
    /4/ && do {
        push @{$temps_ref}, "P <==
2	/Users/nnunley/parrot/languages/lua/luac.pl	516	666	
==>ts $parser->YYData->{nb_error} ) {
    my $nb = $parser->YYData->{nb_error};
    print "$nb error(s).\n";
}
if ( $parser->YYData->{verbose_warning} <==
2	/Users/nnunley/parrot/tools/docs/write_docs.pl	293	485	
==>SCRIPTION

This script writes the HTML documentation for Parrot.

=cut

use lib 'lib';
use Getopt::Long;
use Parrot::Docs::Section::Parrot;

my ($silent, $delete);

die unless GetOptions('silen <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172252	172348	
==>8 \"src/ops/cmp.ops\"\n  if (0 != string_equal(interpreter,\n      {{\@1}}->vtable->get_string(in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173230	173326	
==>8 \"src/ops/cmp.ops\"\n  if (0 != string_equal(interpreter,\n      {{\@1}}->vtable->get_string(in <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	7105	7375	
==>ux and Win2k )
# An alternative is using Test::Output
sub run_command {
    my ($command, %options) = @_;

    # To run the command in a different directory.
    my $chdir = delete $options{CD};

    while (my($key, $value) = each %options) {
        $key =~ m/^STD(OUT|E <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569243	569355	
==>],
                  "BODY" => "#line 218 \"src/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->isa(interpreter, { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570136	570248	
==>],
                  "BODY" => "#line 218 \"src/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->isa(interpreter, { <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	3131	3254	
==>C<dump()>

Provides a L<Data::Dumper> serialized string of the objects key/value pairs
suitable for being C<eval>ed.  The va <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	388	495	
==>description = 'Determining what pmc files should be compiled in';
our @args        = qw(ask pmc);

my %PMC_P <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	47009	47156	
==>t text, concatenated),

=item [2]

"" (i.e. the prefix substring -- trivial in this case),

=item [3]

"<<" (i.e. the "name" of the quotelike operat <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20885	20980	
==>poit(4).first

' ADD bug, Return OK
function foo$
	foo$="Return OK"
	a$="Blah"
end function
prin <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2706	2817	
==>=shift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHECK}}=' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2584	2686	
==>=shift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHECK}}=' <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	492	584	
==>of Parrot::Test::Bc.
XXX: Do not configure with environment variables.
Use Antlr2 in smoke te <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	1695	1994	
==>ists $pmc_order->{$_}) {
            $sorted_pmcs[$pmc_order->{$_}] = $_;

            #if (exists $pmc_order->{"const$_"}) {
            #	$sorted_pmcs[$pmc_order->{"const$_"}] = "const$_";
            #}
        } else {
            $sorted_pmcs[$n++] = $_;
        }
    }
    ## print "***\n", jo <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	34629	34783	
==>return Store_Slice(@_, 3);
}

sub DELETE_SLICE_plus_0 {
    my ($n, $c, $cmt) = @_;
    my $agg = pop @stack;
    print <<EOC;
	$agg->[1] = 0
EOC
}

sub De <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7146	7240	
==>"Inval  (0): ", instr(4, bogus$, "t")
' instr() tests
s1$="Mixed case"
print ucase$(s1$);" Uppe <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18875	18969	
==>"Inval  (0): ", instr(4, bogus$, "t")
' instr() tests
s1$="Mixed case"
print ucase$(s1$);" Uppe <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4679	4778	
==>given as --destination=DIRECTORY
    shift(@pmcs) =~ /--destination=(.*)/
      or die "copy command <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4783	4882	
==>given as --destination=DIRECTORY
    shift(@pmcs) =~ /--destination=(.*)/
      or die "copy command <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	2769	2989	
==>{ $t->{args} } = @children;
                return rop('multi_match', [0,1,1,$self->pass1($t, $ctx)]);
            }
        }

        # opt(aR|aS) -> a opt(R|S)
        # opt(aR|aS|aT) -> a opt(R|S|T)
        # opt(aR|a <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	29372	29521	
==>) )
	{
		# process next quote-like (in $next)
	}

Note that if the input text is a read-only string (i.e. a literal),
no attempt is made to remove the <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	11103	11246	
==>dings( $expected );

            # set up default description
            unless ( $desc ) {
               (undef, my $file, my $line) = caller <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	16588	16731	
==>dings( $expected );

            # set up default description
            unless ( $desc ) {
               (undef, my $file, my $line) = caller <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29808	29974	
==>=> 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			"<=" => 85,
			'OR' => 84,
			")" => 148,
			">" => 86
		}
	},
	{#State <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755120	755208	
==>"BODY" => "#line 266 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_number_native(interprete <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755907	755995	
==>"BODY" => "#line 266 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_number_native(interprete <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314429	314757	
==>"ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 367,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 67 \"src/ops/dotgnu.ops\"\n  if({{\@1}} > <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	7013	7198	
==>a} and $_->{pragma} eq 'multi' ) {
                print {$FH} " :flat";
            }
            $first = 0;
        }
        print {$FH} ")\n";
    }

    sub visitBranchIfOp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561945	562064	
==>preter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", {{\@3}});\n  }\n  {{=next}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563029	563148	
==>preter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", {{\@3}});\n  }\n  {{=next}};\n",
                  "L <==
2	/Users/nnunley/parrot/config/gen/cpu/i386/auto.pm	885	1064	
==>f $verbose;
        } else {
            if (cc_run() =~ /ok/) {
                $conf->data->set(
                    "i386_has_$suffix" => '1',
                    "HAS_i386_$suf <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3514	3624	
==><Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) = @_;

    #print STDERR "pbcc: map_arg( <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3313	3423	
==><Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) = @_;

    #print STDERR "pbcc: map_arg( <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	1922	2025	
==>re skipping $total_skipped total tests.\n";
print "(-clock ($clock_skipped) -deprecated ($deprecated))\n <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	1057	1203	
==>my $pir_fn  = Parrot::Test::per_test( '.pir', $count );
        my $lua_out_fn = Parrot::Test::per_test(
            $lua_test eq 'lua' ? '.orig_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	1	147	
==>se strict;

package Lua::symbtab;
{

    sub new {
        my $proto    = shift;
        my $class    = ref($proto) || $proto;
        my ( <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2552	2733	
==>ng"
if 4>=5 then print "Wrong" else print "OK"

' Exit for, count 1-3
for i=1 to 5
  if i=4 then exit for
  print i
next i

' Branch test, all OK in sequence
PRINT "1 in module-level <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	67	156	
==>Parrot/Distribution.pm 19602 2006-05-30T13:40:58.862833Z coke  $

=head1 NAME

Parrot::Dis <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	7006	7272	
==>});
    }
    else {
      $handler->start_element({
        Name       => 'sub',
        Attributes => {
          name  => $name,
          kind  => 'fn',
          fnlib => $fnlib,
          fn    => $fn
        }
      });
    }
  }
  else {
    return;
  }

  fo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65020	65180	
==>' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE|PARROT_JUMP_ENEXT",
                  "NAME" => "runinterp",
                  "FLAGS" = <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5150	5354	
==>my %start;
    foreach (@{ $op->{args} }) {
        my @next = $_->startset();
        @start{@next} = ();
        # Stop unless NULLABLE.
        last unless (@next && $next[0] eq '');
    }

    return R <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048320	1048436	
==>bal.\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_global(interpreter, NULL, {{\@2}}, next);\n    {{+=3}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049244	1049360	
==>bal.\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_global(interpreter, NULL, {{\@2}}, next);\n    {{+=3}};\n", <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	12336	12445	
==>able), -1 if not
 */

static int get_op(const char * name, int full);

static size_t hash_str(const char * str <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	21536	21692	
==>) $_->[3] }" } @mmds);
    my $isa = join(" ", $classname, @{ $self->{parents} });
    $isa =~ s/\s?default$//;
    my $does = join(" ", keys(%{ $self->{flag <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	127	219	
==>e
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Type.pm 196 <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	2836	3176	
==>ate class library.
# ##########################################################
sub generate_classlib_make($) {
    my $mono_class_lib = shift;
    if ($mono_class_lib) {
        # Generate code to translate each library.
        my @libs = qw/
            mscorlib
            System
            Accessibility
            I18N.CJK <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756287	756760	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 853,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 271 \"src/ops/set.ops\"\n  {{\@1}}->vtable->assign_ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	16823	16947	
==>d,\n", "'$name'", $value;
      } else {
        push @norms, sprintf " %-10s , chr(%s),\n", "'$name'", $value;
      }
    } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846993	847418	
==>AME" => "chr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 961,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846198	846487	
==>AME" => "chr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 960,
                  " <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	4559	4773	
==>_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = newclosure $op->{arg1}->{symbol}\n";
    }

    sub visitNoOp {
        my $self = shift;
        my ($op) = @_ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	8884	9038	
==>ch');

    my @ops;
    push @ops, aop('check', [ 1, $lastback ])
      unless ($op->{nocheck});

    my @debugging;
    if ($self->{DEBUG}) {
        my $ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2365	2476	
==>ype $var with main  (array=$array)
	P0= P10[0]
	P1= P0["$stype"]
	P0= P1["$var"]	# Pull the original
	P2= P10[I2 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2592	2703	
==>ype $var with main  (array=$array)
	P0= P10[0]
	P1= P0["$stype"]
	P0= P1["$var"]	# Pull the original
	P2= P10[I2 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	11015	11136	
==>\\n";);
        push @ops, qq(print "INPUT:\$rx_input\\n";);
        push @ops, qq(print "      " . (" " x \$rx_pos) . "^\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2921	3031	
==>\n");
  $out =~ tr{\xA0}{ } if Pod::Simple::ASCII;
  print {$self->{'output_fh'}} $out,
    #"\n"
  ;
  $self-> <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2455	2557	
==>\n");
  $out =~ tr{\xA0}{ } if Pod::Simple::ASCII;
  print {$self->{'output_fh'}} $out, "\n";
  $self-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835256	835522	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "savec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836008	836274	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "savec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22843	23009	
==>title if $t->type eq 'text';
      }
      undef $title if $title =~ m<^\s*$>; # make sure it's contentful!
      last;
      
    } else {
      DEBUG and $pattern an <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22359	22516	
==>title if $t->type eq 'text';
      }
      undef $title if $title =~ m<^\s*$>; # make sure it's contentful!
      last;

    } elsif ($pattern =~ m{<head(\d)> <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	13098	13267	
==>e_scan {
    my ($self, $op, $R, $lastback) = @_;

    my $scan = $self->genlabel('scan_start');
    my $advance = $self->genlabel('scan_advance');
    my $next = $self-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29784	30165	
==>ely, but not if the\n\t   sub created a closure (or continuation, or . . .).  */\n\tParrot_free_context(interpreter, caller_ctx, 0);\n        interpreter->current_args = NULL;\n    }\n    {{=pc}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "P <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	14087	14238	
==>oes not fit into one of the standard
testing functions. In that case, you can use the rather blunt pass()
functions and its compliment the flunk() funct <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	46468	46647	
==>p"
{
            PopScope( $_[0] );
            [ @{ $_[1] }, @{ $_[2] } ];
        }
	],
	[#Rule 9
		 'stat', 3,
sub
#line 88 "Lua\lua51.yp"
{
            BuildAssigns( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356049	356291	
==>ufused);\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357977	358083	
==>/ops/io.ops\"\n  PIO_eprintf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358641	358747	
==>/ops/io.ops\"\n  PIO_eprintf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12291	12407	
==>s no known value (as with a name of "qacute") or is
syntactally invalid (as with a name of "1/4"), this returns undef <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12842	12958	
==>s no known value (as with a name of "qacute") or is
syntactally invalid (as with a name of "1/4"), this returns undef <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	50780	51102	
==>hecking marker", $aftererror,$line);
				if ($rule)
				{
					_error("<nocheck> directive not at start of grammar", $line);
					_hint("The <nocheck> directive can only
					       be specified at the start of a
					       grammar (before the first rule 
					       is defined.");
				}
				else
				{
					local $::RD_C <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	8232	8349	
==>ng rtfitemkeepn yea or nay.
            $self->{'rtfitemkeepn'} = '\keepn' if 
              $to_unget[-1]->type eq 's <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	19075	19268	
==>c ( keys %language_test_map ) {
        push @EXPORT, $func;
        no strict 'refs';

        *{$package.'::'.$func} = sub {
            my ( $language, @remaining ) = @_;

            my $met <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76699	76804	
==>RD_TRACE =~ /\d+/
	    && $::RD_TRACE>1
	    && $::RD_TRACE+10<length($_[0]))
	{
		my $count = length($_[0 <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77010	77115	
==>RD_TRACE =~ /\d+/
	    && $::RD_TRACE>1
	    && $::RD_TRACE+10<length($_[0]))
	{
		my $count = length($_[0 <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23374	23467	
==>->_generate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp = $self->_ge <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23836	23929	
==>->_generate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp = $self->_ge <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	697	791	
==>ined!" unless defined $right;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::C <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	709	803	
==>ined!" unless defined $right;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::C <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	1109	1198	
==>->new_item('', 'docs/configuration.pod'),
			$self->new_item('', 'docs/vtables.pod'),
			$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018764	1018910	
==>"
                            ],
                  "BODY" => "#line 182 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\ <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	16	135	
==>yright (C) 2001-2006, The Perl Foundation.
# $Id: /parrot/tools/build/pmc2c.pl 19607 2006-05-30T15:23:20.183054Z coke  $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	16948	17155	
==><op($index)>

Returns the op at C<$index>.

=cut

sub op
{
    my ($self, $index) = @_;

    return $self->{OPS}[$index];
}

=item C<preamble()>

=item C<preamble($trans)>

Returns any lines found prior to fi <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	9059	9167	
==>rn "default";
}

# Rate limiting
sub limit_rate {
  # Open the DB and lock it exclusively. See perldoc -q loc <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	449	607	
==>$parser->YYData->{idx_fct}++;
    return new defn( $idf, 'fct' );
}

sub get_global {
    my ($parser) = @_;
    my @opcodes = ();
    unless ( $parser- <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	9415	9552	
==>n"
PRINT
		}
	}

}
sub parse_print {
	my $eol=0;
	my $expr=0;
	my $c=0;
	my $fd="";
	my ($result, $type, @CODE);
	feedme();
	if ($syms[CUR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177711	177984	
==>2,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 240 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}} <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	598	727	
==>eg}->{code}}, <<KEYS;
	_ARRAY_KEYS("$source","$targ")
KEYS
}
sub parse_common {
	feedme();
	while($type[CURR] !~ /COMP|COMM|STMT/) <==
2	/Users/nnunley/parrot/tools/dev/cc_flags.pl	1489	1610	
==>f (/\S/) {
	    die "syntax error in $cflags: line $., $_\n";
	}
	else {
	    last;
	}
    }
}

my ($cfile) = grep /\.c$/, <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	631	726	
==>er details about the configuration
framework.

=head1 USAGE

=head2 Import Parameters

This modu <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1303	1404	
==>crement;
use Jako::Construct::Statement::Goto;
use Jako::Construct::Statement::Increment;
use Jako::Co <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5325	5452	
==>-separated list of interfaces */
    "",     /* space-separated list of classes */
    "",     /* class */
    "",     /* mro */ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753129	753633	
==>> "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 849,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 261 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_integer_native(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752350	752796	
==>> "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 848,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 256 \"src/ops/ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20634	20723	
==>ple::PullParserStartToken>,
L<Pod::Simple::PullParserTextToken>, and
L<Pod::Simple::PullPa <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2695	2784	
==>ple::PullParserStartToken>,
L<Pod::Simple::PullParserTextToken>, and
L<Pod::Simple::PullPa <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6478	6598	
==>t('verbose') && $self->get('verbose') == 2;

    print "Removing trigger $trigger on configuration key $key\n"
        if <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088140	1088428	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice",
                  "FLAGS" => ":base_core",
                  "ARG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089087	1089375	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice",
                  "FLAGS" => ":base_core",
                  "ARG <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	5895	6010	
==>, unless it's a zero-length "empty line" at the very
         #  end of "foo\nbar\n" (i.e., between the \n and the E <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	11839	11952	
==>, unless it's a zero-length "empty line" at the very
       #  end of "foo\nbar\n" (i.e., between the \n and the E <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	18918	19062	
==>output_is',
        language_output_like => 'output_like',
        language_output_isnt => 'output_isnt',
                            );

    for <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193964	194456	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 230,
                  "ARGS" => [
                              "p",
                              "sc",
                              "ic"
                            ],
                  "BODY" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	203149	203469	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 240,
                  "ARG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863462	863655	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bytelength",
                  "FLAGS" => ":base_mem",
                  "ARGDI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864353	864546	
==>]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bytelength",
                  "FLAGS" => ":base_mem",
                  "ARGDI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021630	1021733	
==>/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_gmtime_r(&t, &tm);\n  {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022472	1022575	
==>/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_gmtime_r(&t, &tm);\n  {{ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	7279	7387	
==>re for even the shortest match of this subtree?
    if (($t->minlen() || 0) > $guarantee) {
        my $newtr <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	10549	10742	
==>ject.pmc os.pmc file.pmc addrregistry.pmc bound_nci.pmc deleg_pmc.pmc enumerate.pmc fixedbooleanarray.pmc fixedfloatarray.pmc fixedpmcarray.pmc lexinfo.pmc multisub.pmc namespace.pmc none.pmc pa <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11644	11748	
==>0 pod-C;}
{\s20\ql \li0\ri0\sa180\widctlpar\f1\fs%s\lang1024\noproof\sbasedon0 \snext0 pod-codeblock;}
{\ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	5132	5272	
==>art_token
{
    my $self = shift;
    my $token = shift;
    my $tagname = $token->tagname;
    my $next = $self->get_token;
    
    if ( $n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772162	772508	
==>i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 872,
                  "ARGS" => [
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 350 \"src/ops/set.ops\"\n    if ({ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	50242	50422	
==>ge[-1] }, '' if 2 == @{ $lineage[-1] };
      # Keep the element from being childless
      
      pop @stack;
      pop @lineage;
      
    } elsif(defined $4) {
      DEBUG > 3 a <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	6772	6895	
==>: 0;
		my $uninit   = ($type =~ /^[BbCc]$/) ? 1 : 0;
		my $init     = ($type =~ /^[DdGg]$/) ? 1 : 0;
		my $file     = ($type <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811513	811623	
==>{\@2}}->vtable->get_pmc_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812415	812525	
==>{\@2}}->vtable->get_pmc_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9067	9158	
==>/* 19 */
GG,$b,$c,$d,$a,$_[4],20,0xe9b6c7aa,/* 20 */
GG,$a,$b,$c,$d,$_[9],5,0xd62f105d,/* 21 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	435	586	
==>ss defined $type;
         $sym="" unless defined $sym;
        unshift(@type, $type);
        unshift(@syms,  $sym);
        $#type=3;
        $#syms=3 <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3180	3288	
==>gs;

use vars qw(@ISA %pmc_types @EXPORT_OK);

@ISA = qw( Exporter );
@EXPORT_OK = qw( %pmc_types);

%pmc_typ <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	124	232	
==>gs;

use vars qw(@ISA %pmc_types @EXPORT_OK);

@ISA = qw( Exporter );
@EXPORT_OK = qw( %pmc_types);

%pmc_typ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5564	5683	
==>1);
		$ot2=false($ot2);
		return(<<CODE, $result);
	# EQV $a1, $a2
	set $result, 0.0
	eq $a1, $ot1, EQ_${eqnum}_a
	inc $ <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	14282	14406	
==>', map { $proto_type_ref->{$_} } split( '', $params );
        # This is an after-the-fact hack: real fix would be in make_ar <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	14966	15096	
==>per_mmd = $all->{$pname}{methods}[$n]{mmds};
                if ($super_mmd && scalar @{ $super_mmd }) {
                    ##prin <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2704	2845	
==>erpreter))";
}

=item C<expr_address($address)>

Same logic as C<expr_pop()>.

=cut

sub expr_address
{
    my ($self, $addr) = @_;
    return <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	12005	12155	
==>e:
    push result, $P1
    goto outer_loop

outer_done:
    .return(result)
.end

.sub unicode:"monadic:\u2191" # first
    .param pmc op1
    $P1 = s <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	45554	45688	
==>extract_quotelike($text,'.*?');

	# Replace one or more leading whitespace-separated quotelike
	# literals in $_ with "<QLL>"

		do { $ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17762	17870	
==>,$list.'[1]']);
  $self->_add_inst ('', 'branch',["NEXT_$label"]);
  # XXX Use exceptions here
  $self->_add_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	1109	1258	
==>_opcode(Interp* interpreter,
                                           void** prederef_addr)
{
    INTVAL offset_in_ops;
    if (prederef_addr == NUL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510599	510980	
==>" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 588,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "B <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023318	1023433	
==>/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_localtime_r(&t, &tm);\n  {{\@1}} = t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024168	1024283	
==>/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_localtime_r(&t, &tm);\n  {{\@1}} = t <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5281	5419	
==>o do the store.
	# Otherwise, there's nothing to do here.
	if ($dest_reg) {
		$pir .= <<'PIR'
${INS} = concat ${STOREREG}
${INS} = concat " <==
2	/Users/nnunley/parrot/tools/dev/manicheck.pl	1188	1386	
==>s::Manifest::skipcheck();

printf "Found %d distinct files among MANIFEST and directory contents.\n\n",
  scalar( keys %{$file_list} );

printf "  %5d missing\n",  scalar @missing;
printf "  %5d extr <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	47544	47667	
==>em)
			      or  $self->_addstartcode($code);
		}
		elsif ($grammar =~ m/(?=$IMPLICITSUBRULE)/gco
			and do { ($code) = extr <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3653	3757	
==>TACK$register_num} = pop lazy_moves

# Decrement stack height.
PRE_OP_${CURIC}_CONT_$register_num:
dec st <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	3667	3810	
==>n";
	if ($line) {
	    $source = $source[$line-1];
	    if ($source =~ /def (\w+)\s*\((.*)\)/) {
		my ($f, $args) = ($1, $2);
		my @args = split <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716483	716589	
==>et_string(interpreter, p));\n  if (s) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724375	724481	
==>et_string(interpreter, p));\n  if (s) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpr <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	39992	40430	
==>\$\{AUTO_MAGICALS\}/$decls/;
	return $pir;
}


# Substiture meta variables.
# ##########################
sub sub_meta($$) {
    my $pir = shift;
    my $mv = shift;
    my $code_source = shift;
	$code_source ||= "(unknown)";

    # Substiture in known meta-variables.
    for (keys %$mv) {
        $pir =~ s/\${$_}/$mv->{$_}/g;
    }

	# We need to automagically instantiate [INSP]_ARG_\d+ and [INSP]TEMP\d+.
	while ($pir =~ /\$\{([INSP])_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3143	3299	
==>ent to this:

  my $debug_level;
  BEGIN { $debug_level = 0 }
  BEGIN { sub Pod::Simple::DEBUG () { $debug_level }
  use Pod::Simple ();

=head1 SEE ALSO

L< <==
2	/Users/nnunley/parrot/config/auto/byteorder.pm	150	286	
==>/auto/byteorder.pm - Native Byteorder

=head1 DESCRIPTION

Computes the native byteorder for Parrot's wordsize.

=cut

package auto::byte <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	2818	3036	
==>: Jako::Construct::Block
  my $name = shift; # Required: string (TODO: domain)
  my $sym  = shift; # Required: TODO: type

  confess "No symbol name!"  unless defined $name;
  confess "No symbol value!" unless defined $ <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	4413	4521	
==>directions of the op's arguments.

=cut

sub arg_dirs
{
    my $self = shift;

    return @{$self->{ARGDIRS}} <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1844	1945	
==>ERNAL_ERROR("Constant definition involves undefined value!")
    unless defined $value;

  #
  # Looku <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5796	5934	
==>0] } @$stack).
#DBG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defined($$token)
            or	do {
				($$toke <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5521	5651	
==>0] } @$stack).
#DBG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defined($$token)
            or	do {
				($$toke <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	531004	531357	
==>E" => 613,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 851 \"src/ops/math.ops\"\n  {{\@1}} = cos((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	21817	21938	
==>$textref ||= 0;

		unless (wantarray)
		{
			use Carp;
			carp "extract_multiple reset maximal count to 1 in scalar contex <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786180	786437	
==>integer_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787091	787348	
==>integer_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	1692	1964	
==>and the way it
twiddles each op's C<CODE> hash key after that.

If the op and oplib Perl modules are going to be used for modifying
information read from ops files in addition to reading it, they should
be changed to make the above operations explicitly supported.

Otherwi <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8691	8825	
==>TDERR "**End of Error recovery.\n";
#DBG>				$dbgerror=0;
#DBG>			};

			    push(@$stack,
                     [ $$states[$$stack <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8299	8428	
==>TDERR "**End of Error recovery.\n";
#DBG>				$dbgerror=0;
#DBG>			};

			    push(@$stack,
                     [ $$states[$$stack <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	7081	7288	
==>umptable)$/ ||
                      /^t(string|standalonesig|valuetype|method|field|type)$/;
                }
                $has_args = 1;
            }
        }

        # instruction or pir
        els <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	790	913	
==>cheme pasm pbc out) ); # JMG

        # STDERR is written into same output file
        open LANG, "> $lang_f" or die "Unabl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	69410	69658	
==>nction",
                  "CODE" => 92,
                  "ARGS" => [],
                  "BODY" => "#line 1082 \"src/ops/core.ops\"\n  Parrot_unblock_GC(interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321582	321804	
==>}}->vtable->get_integer(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323938	324160	
==>}}->vtable->get_integer(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	6420	6635	
==>ode_t* run_compiled(Interp *interpreter, opcode_t *cur_opcode, opcode_t *start_code){

switch_label:
    switch(cur_opcode - start_code) {

END_C


    foreach my $cur_blk (@blocks) {
	printf "case %d: PC_%d: {\n", $ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3269	3399	
==>erts a file suffix to a description of
the type of files which have this suffix.

=cut

sub type_for_suffix
{
	my $self = shift;
	m <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4570	4675	
==>do.
	return "";
}

# Pre and post branch operation hooks.
sub pre_branch($) {
	my $self = shift;
	my $pops <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2986	3091	
==>do.
	return "";
}

# Pre and post branch operation hooks.
sub pre_branch($) {
	my $self = shift;
	my $pops <==
2	/Users/nnunley/parrot/tools/dev/symlink.pl	1716	1983	
==>ile) {
		warn "$self: cannot find $dstfile\n";
		next;
	    }
	    push @srcfiles, $srcfile;
	    if (@manifile > 1) {
		for my $i (0..$#manifile-1) {
		    my $dstdir  = File::Spec->catdir(@manifile[0..$i]);
		    if (!-d $dstdir && !$dstdir{$dstdir}++) {
			unless ( <==
2	/Users/nnunley/parrot/lib/Test/More.pm	5953	6053	
==>ng on if the test
succeeded or failed.  They all also return true or false,
respectively.

=over 4

= <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	80	259	
==>bution.pm 19602 2006-05-30T13:40:58.862833Z coke  $

=head1 NAME

Parrot::Distribution - Parrot Distribution Directory

=head1 SYNOPSIS

    use Parrot::Distribution;

    my $dist <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73865	74206	
==>"function",
                  "CODE" => 97,
                  "ARGS" => [
                              "p",
                              "p",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 1156 \"src/ops/core.ops\"\n  char * const name = string_to_cst <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	940973	941275	
==>function",
                  "CODE" => 1058,
                  "ARGS" => [
                              "p",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 486 \"src/ops/string.ops\"\n    {{\@1}} = string_split(in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228510	229044	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge_str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	229459	229742	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge_ <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	20486	20614	
==>le( "<", $file );
        while (<$fh>) {
            if (/^(?:extern\s+)?\w+\*?\s+\*?(\w+)\s*\([^)]+\)\s*;/) {
                p <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	20819	20947	
==>le( "<", $file );
        while (<$fh>) {
            if (/^(?:extern\s+)?\w+\*?\s+\*?(\w+)\s*\([^)]+\)\s*;/) {
                p <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6152	6267	
==>RETURN_${CURIC}:

# If it's a call to instantiate, need to knock off first arg.
if "${CURIC}" != "73" goto pre_call_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7020	7183	
==>ue=undef;
                next;
            };

            #reduce
            my($lhs,$len,$code,@sempar,$semval);
            ($lhs,$len,$code)=@{$$rules[- <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6694	6851	
==>ue=undef;
                next;
            };

            #reduce
            my($lhs,$len,$code,@sempar,$semval);
            ($lhs,$len,$code)=@{$$rules[- <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2323	2439	
==>OTE . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/src/pmc' . $PATHQUOTE . " " .
        $source;
};

sub <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	2118	2234	
==>OTE . " " .
        "-I" . $PATHQUOTE . '/Users/nnunley/parrot/src/pmc' . $PATHQUOTE . " " .
        $source;
};

sub <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712351	712456	
==>nterpreter);\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \") <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713458	713563	
==>nterpreter);\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \") <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	1850	2024	
==>n_h($h_name);
    print $hout if $opt->{debug};
    print "Writing $h_name\n" if $opt->{verbose};
    open my $H, '>', $h_name or die "Can't write '$h_name";
    print $H $hou <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	2907	3203	
==>eating table: '$table{$name}' (charset: $name)\n";
    setlocale(LC_CTYPE, $name);
    create_table($table{$name});
}
close STDOUT;



#
# create 'src/charset/tables.h'
#
###########################################################################
my $h_file= File::Spec->catfile($charset_dir, 'tab <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	7940	8116	
==>);
    genfile(
        'config/gen/makefiles/parrot.pc.in' => 'parrot.pc'
    );

    if ($conf->data->get('has_perldoc')) {

        # set up docs/Makefile, partly based on th <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	5378	5485	
==>ature '%s' on line %d (previously seen on line %d) of $ARGV",
              "$ret$args", $., $seen{"$ret$arg <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20763	20865	
==>inition for $typename
	new P0, .PerlArray
TYPE
		foreach(@types) {
			print CODE<<ADDT;
	new P1, .PerlH <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	986	1094	
==>cimal:
  if($in =~ m/^(0[0-7]*)$/s ) {
    $in = oct $in;
  } elsif($in =~ m/^0x([0-9a-fA-F]+)$/s ) {
    $in <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2345	2453	
==>cimal:
  if($in =~ m/^(0[0-7]*)$/s ) {
    $in = oct $in;
  } elsif($in =~ m/^0x([0-9a-fA-F]+)$/s ) {
    $in <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16730	17025	
==>new FindLexOp( $parser,
                    'result' => $result,
                    'arg1'   => $defn,
                );
            }
            else {
                my $global = get_global($parser);
                push @opcodes, @{ $global->[1] };
                my $key = BuildL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1098291	1098447	
==>int3\");       /* opcode 0xcc */\n#endif\n    {{+=1}};\n",
                  "experimental" => 1,
                  "LABELS" => []
                }, 'Parrot <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8957	9094	
==>t"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
goto POST_STORE_${CURIC}_CONT

# Can do a lazy move. <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2036	2213	
==>tart-token
with a "to" attribute with the value "Foo", a "type" attribute with the
value "pod", and a "section" attribute with the value "Bar".

=item $token->attr(I<attrname>, I <==
2	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	1395	1504	
==>ractive mode
	set S0, ""
	
	set S0, ""
	read S0, 256
	length I1, S0
	eq I1, 1, MAINLOOPR
	save S0
	bsr STRIPSP <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	1641	1736	
==>ent containing a branch offset or address

Argument direction is used to determine the life time <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	12103	12243	
==>t "Declaring $source as :raw for starters\n";
  #$self->_apply_binmode($source, ':raw');
  #binmode($source, ":raw");

  return;
}

#:.:.:.:. <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10461	10567	
==>t"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
goto PRE_CALL_${CURIC <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11865	11971	
==>t"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
goto PRE_CALL_${CURIC <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	1947	2097	
==>truct);",
       t => "STRING *final_destination;"
#      b => "Buffer *final_destination = new_buffer_header(interpreter);\nPObj_external_SET(final_de <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	11363	11445	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4447	4563	
==>" /* " . $self->core_prefix . "$base */\n\n";

    return $c;
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::OpT <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	23	338	
==>(C) 2001-2006, The Perl Foundation.
# $Id: /parrot/tools/build/jit2c.pl 20350 2006-06-25T03:57:27.771662Z petdance  $

=head1 NAME

tools/build/jit2c.pl - JIT to C

=head1 SYNOPSIS

    % perl tools/build/jit2c.pl <cpu-architecture-name> src/jit_cpu.c

=head1 DESCRIPTION

This script creates F<src/jit_cpu.c>. It pa <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	411	605	
==>ons(
    "all" => \$do_all,
    "init" => \$do_init,
);

$do_all and do {
    &read_all;
    &create_c_include;
    exit;
};
$do_init and do {
    unlink $outfile;
    exit;
};

$file = shift @AR <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	18765	18896	
==>VE
{
    my (undef, $c, $cmt) = @_;
    my $t = pop @stack;
    my $n = temp('P');
    my $p = $t->[1];
    print <<EOC;
	$n = new $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947059	947152	
==>AL n = Parrot_charset_number(interpreter, {{\@2}});\n  if (n < 0)\n    real_exception(interpre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947961	948054	
==>AL n = Parrot_charset_number(interpreter, {{\@2}});\n  if (n < 0)\n    real_exception(interpre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168486	168589	
==>204 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169428	169531	
==>204 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12124	12514	
==>parser,
                        'arg1' => $defn,
                        'arg2' => undef,
                    );
                    return [ $defn, [], $assign ];
                }
            }
            else {

                # global variable
                my $global = get_global($parser);
                push @opcodes, @{ $global->[1] };
                my $key = Bui <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7925	8051	
==>for \"$_\"\n(should be \"#$indent$2\" because it is inside of " . (join ' > ', @stack) . ")\n")
            }
        }
    }
} <==
2	/Users/nnunley/parrot/config/init/defaults.pm	3216	3408	
==>=> '-g',
        link_debug => '',

        o         => $Config{_o},       # object files extension
        share_ext => ".$Config{so}",    # shared library extension

        # dynamically lo <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2314	2478	
==>ectory)>

=item C<relative_path($file)>

=item C<relative_path($path)>

Returns the specified path relative to the directory.    

=cut

sub relative_path
{
    my $ <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2593	2781	
==>OUT => $lang_out_fn,
                            STDERR => $lang_out_fn 
                        );
  
        my $builder_func = $language_test_map{$func};
        # That's the reason for: <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	2946	3229	
==>t;
    my $seen_blank;
    foreach my $item (@output) {
        my ( $type, $code ) = ( @{$item} );
        if ($type) {
            if ( $code eq q{} ) {
                $seen_blank = 1;
                next;
            }
            if ($seen_blank) {

                # Add in our <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	569	807	
==>REFIX)

If BLOCK is defined, it is the new Block's parent.

The KIND tells what kind of block we are dealing with (sub, while, bare, etc.).

The TYPE tells the return type of the block.

The PREFIX tells the prefix that will be used for bl <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	22358	22491	
==>make op or function
    print <<EOC;
        $s = classname $cl->[1]
	$i = isa $ob, $s
	$b = new Boolean
	$b = $i
EOC
    push @stack, <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	4999	5101	
==>and push @dirs, $File::Find::name;
    -f and -e ".svn/text-base/$_.svn-base" and MANIFEST();
}

sub MA <==
2	/Users/nnunley/parrot/lib/Parrot/Revision.pm	22	145	
==>The Perl Foundation.
# $Id: /parrot/lib/Parrot/Revision.pm 19602 2006-05-30T13:40:58.862833Z coke  $

=head1 NAME

Parrot::R <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1738	1858	
==>opcode = (opcode_t *)
	opcode_to_prederef(interpreter, $addr)))";
  }
}

=item C<goto_offset($offset)>

Transforms the C< <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2806	2896	
==>::Simple::PullParser> and L<Pod::Simple>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2 <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5985	6094	
==>$entry->[4] =~ /_INT$/);
    next if ($entry->[4] =~ /_STR$/);
    next if ($entry->[4] =~ /_FLOAT$/);
    $ma <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6403	6512	
==>$entry->[4] =~ /_INT$/);
    next if ($entry->[4] =~ /_STR$/);
    next if ($entry->[4] =~ /_FLOAT$/);
    $ma <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172247	172340	
==>ne 218 \"src/ops/cmp.ops\"\n  if (0 != string_equal(interpreter,\n      {{\@1}}->vtable->get_s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173225	173318	
==>ne 218 \"src/ops/cmp.ops\"\n  if (0 != string_equal(interpreter,\n      {{\@1}}->vtable->get_s <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	6698	6800	
==>ps->ops) {
    my $func_name  = $op->func_name($trans);
    my $arg_types  = "$opsarraytype *, Interp * <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	798	895	
==>$source;
  $self->set_source($source);
  $self->output_fh(*STDOUT{IO});

  $self->run; # define ru <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2393	2502	
==>ype;
  }
  else {
    $right_type = $right->type;
  }

  $self->INTERNAL_ERROR("No type for dest!")  unless de <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2315	2424	
==>ype;
  }
  else {
    $right_type = $right->type;
  }

  $self->INTERNAL_ERROR("No type for dest!")  unless de <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	507	600	
==>ck) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Identifier <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	507	600	
==>ck) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  confess("Identifier <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	2736	2893	
==>,
             'exe' => '',
             'exec_prefix' => '/opt/local',
             'execcapable' => 1,
             'flex_version' => undef,
             'f <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	56354	56523	
==>{
            BuildParenthesedExpression( $_[0], $_[2] );
        }
	],
	[#Rule 85
		 'functioncall', 4,
sub
#line 451 "Lua\lua51.yp"
{
            BuildCallFunc <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3971	4083	
==>ar ||= "<rx_len>";
    my $fail = $self->output_label_use($failLabel);
    if ($needed eq "1") {
        return " <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3685	3797	
==>ar ||= "<rx_len>";
    my $fail = $self->output_label_use($failLabel);
    if ($needed eq "1") {
        return " <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	27960	28075	
==>y $p = pop @stack;
	print <<EOC;
	$ar\[$i\] = $p->[1]
EOC
    }
    push @stack, [$n, $ar, 'P'];
}

sub BUILD_LIST
{ <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	7798	7932	
==>h.h
atanh       math.h
atanhf      math.h
atanhl      math.h
atanl       math.h
atexit      stdlib.h
atof        stdlib.h
atoi        s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	5726	6036	
==>each my $part ($what =~ /((?:\%\<\w+\>)|[^\%]+)/g) {
        if ($part =~ /^%/) {
            push @ops, aop('print', [ substr($part, 1) ]);
        } else {
            $part =~ s/(["'\\])/\\$1/g;
            $part =~ s/\n/\\n/g;
            push @ops, aop('print', [ "\"$part\"" ]);
        }
    }
    return <==
2	/Users/nnunley/parrot/tools/dev/cc_flags.pl	2085	2254	
==>RGV;
        }
        else {
            foreach my $arg (@ARGV) {
                $arg =~ s/$option->[2]/$option->[3]/;
            }
        }
    }
}

# print "@ARGV\ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10612	10710	
==>', 'U', 'U', 'U', 'Th', 'ss',
'a', 'a', 'a', 'a', 'a', 'a', 'ae', 'c', 'e', 'e', 'e', 'e', 'i', 'i' <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	12689	12909	
==>val) = _get_args ($_, 0);
    push @variables, $var;
    push @values, $val;
  }

  my $let = { children => [
			   { children => [ { value => 'lambda' },
					   { children => [ @variables ] },
					   @body ]},
			   @v <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	3298	3395	
==>="#stay" String="#.*\$" />
          <RegExpr attribute="Comment" context="pod" String="^\\=($pod_ <==
2	/Users/nnunley/parrot/config/inter/make.pm	436	537	
==>w( :inter capture_output check_progs );

$util        = 'make';
$description = "Determining whether $u <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800449	800683	
==>S" => [
                              "p",
                              "k",
                              "s"
                            ],
                  "BODY" => "#line 467 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	5512	5859	
==>gs;
    my @args;
    my @argdirs;
    my $seen_pod;
    my $seen_op;
    my $line;
    my $flags;
    my @labels;

    while (<$OPS>)
    {
        $seen_pod = 1 if m|^=|;

        unless ($seen_op or m|^(inline\s+)?op\s+|)
        {
            if (m/^\s*VERSION\s*=\s*"(\d+\.\d+\.\d+)"\s*;\s*$/)
            {
                if (exists $self->{ <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	11223	11378	
==>)>

Deletes the contents of the directory.

Raises an exception if the delete fails.

=cut

sub delete_contents
{
    my $self = shift;

    foreach my $fil <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10875	10984	
==>MENT_TYPE_U4 = 0x09
	.const int ELEMENT_TYPE_I8 = 0x0A
	.const int ELEMENT_TYPE_U8 = 0x0B
	.const int ELEMENT_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62807	63189	
==>" => 0,
                  "NAME" => "errorsoff",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 82,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#li <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63452	63824	
==>" => 0,
                  "NAME" => "errorsoff",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 83,
                  "ARGS" => [
                              "ic"
                            ],
                  "BO <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15547	15636	
==>l chars, and 7f-ff.
    $x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16726	16815	
==>l chars, and 7f-ff.
    $x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	28918	29113	
==>e.

      DEBUG > 1 and print "Pondering non-magical $para_type\n";

      my $i;

      # Enforce some =headN discipline
      if($para_type =~ m/^=head\d$/s
         and ! $self->{'accept_heads_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	36244	36436	
==>';
        }
    }
    push @opcodes, new ReturnDir( $parser,
        'result' => \@returns,
    );
    return \@opcodes;
}

sub BuildParam {
    my ( $parser, $idf ) = @_;
    my @o <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33590	33761	
==>'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 166,
			'functioncall' => 31,
			'function' => 26 <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1641	1756	
==>x::Driver->new('pir', emit_main => 1);

    print $PIR <<"END";
# Regular expression test
# Generated by $0
# Patter <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32897	32997	
==>: '$item{'.$self->{hashname}.'}=') . '$_tok;
		' . ($self->{"lookahead"} ? '$text = $_savetext;' : '' <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23143	23241	
==>: '$item{'.$self->{hashname}.'}=').'$_tok;
		' . ($self->{"lookahead"} ? '$text = $_savetext;' : '' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5772	6073	
==>"ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 144 \"src/ops/cor <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	618065	618427	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "pic_inline_sub__",
                  "FLAGS" => ":pic",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4924	5068	
==>ster $[INSP]0.
${STACK0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_short"]
${STACK0} = concat ${STEMP1}
${STACK0} = concat "0"

# Emit pop code.
${IN <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	10048	10178	
==>p:
        #
        # We stash the accumulated body of source code in the Parrot::Op, push the
        # Parrot::Op onto our op ar <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32790	32898	
==><gen_ret($type)>

Generate the C code for a C<return> statement.

=cut

sub gen_ret
{
    my ($self, $type) = <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37677	37785	
==><gen_ret($type)>

Generate the C code for a C<return> statement.

=cut

sub gen_ret
{
    my ($self, $type) = <==
2	/Users/nnunley/parrot/tools/dev/gen_class.pl	1177	1396	
==>he $classname base class
 *  Data Structure and Algorithms:
 *  History:
 *  Notes:
 *     Please remove unneeded entries.
 *  References:
 */

#include "parrot/parrot.h"

pmclass $classname {

EOF

## emit <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	3	110	
==>opyright (C) 2001-2006, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Configure.pm 20321 2006-06-20T20:02:0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090854	1090978	
==>s\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "exper <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1091914	1092038	
==>s\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "exper <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117729	117989	
==>> 146,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 226 \"src/ops/bit.ops\"\n  {{\@1}} >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352047	352312	
==>"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 410,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 195 \"src/ops/io.ops\"\n  PIO <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6436	6550	
==>to POST_BRANCH_switch_${CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0[i]
    ${ITEMP0} = ${NEXTPC} + j
    prop_type_s <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4374	4488	
==>to POST_BRANCH_switch_${CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0[i]
    ${ITEMP0} = ${NEXTPC} + j
    prop_type_s <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	2390	2532	
==>onfig/gen/makefiles/tge.in' => 'compilers/tge/Makefile',
        commentType                   => '#',
        replace_slashes               => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	195890	196186	
==>t_num",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	342	432	
==>rmatted');
  return $new;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	341	431	
==>rmatted');
  return $new;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	34242	34448	
==>State 122
		DEFAULT => -96
	},
	{#State 123
		ACTIONS => {
			'NAME' => 171,
			"..." => 172,
			")" => 170
		},
		GOTOS => {
			'parlist' => 169,
			'parlist1' => 173
		}
	},
	{#State 124
		A <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614889	615016	
==>n    offset = Parrot_class_offset(interpreter, {{\@2}}, {{\@3}});\n    if (offset < 0) {\n        real_exception(interpreter, ne <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616040	616167	
==>n    offset = Parrot_class_offset(interpreter, {{\@2}}, {{\@3}});\n    if (offset < 0) {\n        real_exception(interpreter, ne <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	306	406	
==>es/mops/mops.pasm> example program,
for speed comparisons.

Calculates a value for M ops/s (million o <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	302	402	
==>es/mops/mops.pasm> example program,
for speed comparisons.

Calculates a value for M ops/s (million o <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	2138	2276	
==>ckend-neutral translations ##############

sub output_nop {
    return "noop";
}

sub output_increment {
    my ($self, $var, $amount) = @_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18744	18877	
==>e);
          last if $self->get(1)->is_close_paren;
          $self->require_comma;
        }
      }

      $self->require_close_par <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19770	19903	
==>e);
          last if $self->get(1)->is_close_paren;
          $self->require_comma;
        }
      }

      $self->require_close_par <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1616	1712	
==>pe instance!")
    unless UNIVERSAL::isa($type, "Jako::Construct::Type");

  my $type_name = $typ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1464	1560	
==>pe instance!")
    unless UNIVERSAL::isa($type, "Jako::Construct::Type");

  my $type_name = $typ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	27081	27192	
==>,
				      ]);

# Create a string representing an optimized pattern (a la Friedl)
# that matches a substring de <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	2238	2339	
==>n_class'}  ||= 'Pod::Simple::PullParserTextToken';
  $self->{'end_token_class'}   ||= 'Pod::Simple::Pu <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	2259	2374	
==>data->set('ccflags',   $ccflags);
        $conf->data->set('linkflags', $linkflags);
        print " (no) " if $verb <==
2	/Users/nnunley/parrot/config/auto/readline.pm	2059	2174	
==>data->set('ccflags',   $ccflags);
        $conf->data->set('linkflags', $linkflags);
        print " (no) " if $verb <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	11823	11942	
==>);
       # I.e., unless it's a zero-length "empty line" at the very
       #  end of "foo\nbar\n" (i.e., between the \n <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	43252	43341	
==>s*\{.*\}\s*\Z/;
		$self->{_AUTOACTION}
			= new Parse::RecDescent::Action($sourcecode,0,-1 <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	136	230	
==>nings;

use File::Basename;

=head1 NAME

Parrot::Test::Punie -- testing routines for languages <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786126	786212	
==>src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed_int(interpreter, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787037	787123	
==>src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed_int(interpreter, {{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1255	1347	
==>t, and
_handle_element_end methods so that parser events are turned into method
calls. (Other <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2226	2365	
==>3["$var"]= P0	# Hack in the alias

SHARINGU
		} elsif ( $user and $array) {
			# TODO TODO TODO TODO
			print CODE<<SHARING;
	# Sharing $sty <==
2	/Users/nnunley/parrot/config/gen/revision.pm	36	126	
==>ation.
# $Id: /parrot/config/gen/revision.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=he <==
2	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	669	758	
==>oo;
}

=head1 SEE ALSO

F<examples/benchmarks/stress.pasm>, 
F<examples/benchmarks/stress. <==
2	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	516	605	
==>oo;
}

=head1 SEE ALSO

F<examples/benchmarks/stress.pasm>, 
F<examples/benchmarks/stress. <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	5087	5303	
==>($_[0]) || $_[0];
  #Carp::croak(__PACKAGE__ . " is a virtual base class -- see perldoc "
  #  . __PACKAGE__ );
  return bless {
    'accept_codes'      => { map( ($_=>$_), @Known_formatting_codes ) },
    'accept_dir <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	107	215	
==>'vtable.tbl' );

my ($funcs, $protos) = vtbl_embed( $vtable );

my $header = <<'EOH';
/* ex: set ro:
** !!!!! <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	32510	32637	
==>s

C<SharedRef> is like C<Ref> but with locking.

=over 4

=cut

package Parrot::Pmc2c::SharedRef;
use base 'Parrot::Pmc2c';

=i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8764	8861	
==>onst label = string_to_cstring(interpreter, {{\@1}});\n    struct PackFile_FixupEntry *fe = PackFi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9880	9977	
==>onst label = string_to_cstring(interpreter, {{\@1}});\n    struct PackFile_FixupEntry *fe = PackFi <==
2	/Users/nnunley/parrot/lib/Test/More.pm	2445	2573	
==>tch to once you get the hang of basic testing.

The purpose of this module is to provide a wide range of testing
utilities.  Vari <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426163	426274	
==>/math.ops\"\n  mmd_dispatch_v_pi(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427050	427161	
==>/math.ops\"\n  mmd_dispatch_v_pi(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3442	3599	
==>$code{$seg}->{code}}, "\tpop \$S99, \$P99\n";
		push @{$code{$seg}->{code}}, "\t\$N99= \$S99\n";

		my($result, $type, @code)=EXPRESSION({ stuff => "\$X99", c <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	10399	10556	
==>tch;
#     if (<rx_mode>) {
#         (<rx_input>, <rx_pos>, <rx_stack>) = \@_;
#         \$rx_match{'!INPUT'} = <rx_input>;
#         \$rx_match{'!GROUPS'} | <==
2	/Users/nnunley/parrot/examples/benchmarks/stress.pl	607	696	
==>oo;
}

=head1 SEE ALSO

F<examples/benchmarks/stress.pasm>, 
F<examples/benchmarks/stress1 <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	4238	4451	
==>_coverage{$source_file}{$function} = $percent;
                next;
            }

            ($percent, my $total_branches) = /\s*([^%]+)% of (\d+) branches taken at least once in file/;
            if ($total_b <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	1200	1378	
==>s
to F<index.html> if undefined or an empty string is supplied.

C<@contents> is one or more sections, groups and/or items.

=cut

sub new
{
    my $self = ref $_[0] ? ref shift : <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27067	27160	
==>$englishname;

	$f="_USERFUNC_$funcname";
	$f=changename($f);
	$f=~s/\$/_string/g; $f=~tr/a-z/ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27340	27433	
==>$englishname;

	$f="_USERFUNC_$funcname";
	$f=changename($f);
	$f=~s/\$/_string/g; $f=~tr/a-z/ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5818	5917	
==>seg}->{code}}, "IFBRANCH_$_:\n";
			}
			while($_=pop(@{$elsestack->{$elsetag}})) {
				push @{$code <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8164	8260	
==>seg}->{code}}, "IFBRANCH_$_:\n";
		}
		while($_=pop(@{$elsestack->{$elsetag}})) {
			push @{$code <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7888	8066	
==>mpar )
                            : @sempar ? $sempar[0] : undef;

            splice(@$stack,-$len,$len);

                $$check eq 'ACCEPT'
            and do {

#DBG <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7533	7703	
==>mpar )
                            : @sempar ? $sempar[0] : undef;

            splice(@$stack,-$len,$len);

                $$check eq 'ACCEPT'
            and do {

#DBG <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	29067	29209	
==>$P1
PUSHARR
			# push @{$code{$seg}->{args}}, $_;
		}
	}
	return;
}

sub parse_endfunc {
	feedme;
	my $t=$seg;
	$seg=~s/^_//;       # Remove th <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	854	1073	
==>me (args) :class,flags {
        ... body of function ...
    }

There may be more than one C<return>.

In both cases the closing brace B<must> be on its own line.

=head2 Op Arguments

Op arguments are a comma-separated <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	3375	3460	
==>item C<Parrot::Docs::Section::Tests>

=item C<Parrot::Docs::Section::EditorPlugins>

= <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	3116	3249	
==>.. (length $message)/64-1) {
		my @X = unpack 'V16', substr $message,$i*64,64;	
		($a,$b,$c,$d) = round($a,$b,$c,$d,@X);
	}
	pack 'V4' <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	3688	3812	
==>stuff some info into this PMCs props
     */

    /*
     * for all PMCs we want to register:
     */
EOC
    while (my ($cla <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	33942	34031	
==>l_p,
  'symbol->string' => \&_op_symbol_string,
  'string->symbol' => \&_op_string_symbol, <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	6022	6115	
==>m  { shift->_accept_directives('Verbatim', @_) }
sub accept_directive_as_data      { shift->_a <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	75760	75892	
==>1;

select STDOUT;

sub _verbosity($)
{
	   defined $::RD_TRACE
	or defined $::RD_HINT    and  $_[0] =~ /ERRORS|WARN|HINT/
	or define <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6399	6531	
==>[0] eq '~Verbatim') {
        DEBUG > 1 and print "Saving blank line at line ${$self}{'line_count'}\n";
        push @{$paras->[-1]}, <==
2	/Users/nnunley/parrot/config/inter/libparrot.pm	917	1010	
==>shared = 0 unless $conf->data->get('has_dynamic_linking');

    if ($conf->options->get('ask <==
2	/Users/nnunley/parrot/config/gen/icu.pm	2641	2825	
==>uheaders'\n"  if defined $icuheaders;
    }

    if ($without) {
        $conf->data->set(
            has_icu    => 0,
            icu_shared => '', # used for generating src/dynpmc/Ma <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10943	11051	
==>tion if the delete fails.

=cut

sub delete
{
    # Use $_[0] so that we can undef the instance in SUPER::del <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4777	4885	
==>tion if the delete fails.

=cut

sub delete
{
    # Use $_[0] so that we can undef the instance in SUPER::del <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772896	773448	
==>set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 873,
                  "ARGS" => [
                              "p",
                              "ki",
                              "i"
                            ],
                  "BODY" => "#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_in <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	2249	2355	
==>tart by printing number of tests run in the form
"1..M" (so "1..5" means you're going to run 5 tests).  Thi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19474	19573	
==>ols (as best as it can
notice them) that labels them as being not in English, and
so not worth spell <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149070	149208	
==>"ic"
                            ],
                  "BODY" => "#line 105 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150011	150149	
==>"ic"
                            ],
                  "BODY" => "#line 105 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpret <==
2	/Users/nnunley/parrot/config/auto/isreg.pm	99	236	
==>0T02:28:15.110975Z coke  $

=head1 NAME

config/auto/isreg - S_ISREG

=head1 DESCRIPTION

Determines if the C library has a working C<S_IS <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7271	7403	
==>ta') {
        my $next = $self->get_token;
        next unless defined $next;
        unless( $next->type eq 'text' ) {
          $s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9516	9648	
==>ta') {
        my $next = $self->get_token;
        next unless defined $next;
        unless( $next->type eq 'text' ) {
          $s <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7172	7281	
==>=@{$$rules[-$act]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print STDERR "Reduce using rule ".-$ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6840	6945	
==>=@{$$rules[-$act]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print STDERR "Reduce using rule ".-$ <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1813	1972	
==>out   => '-Fo',
            cc_exe_out => '-out:',
            cc_ldflags => '/link',

            # ZI messes with __LINE__
            cc_debug             => <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3692	3851	
==>out   => '-Fo',
            cc_exe_out => '-out:',
            cc_ldflags => '/link',

            # ZI messes with __LINE__
            cc_debug             => <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1189	1515	
==>'; 
}

=item C<suffix()>

Implemented in subclasses to return a suffix with which to individuate
variable names. This default implementation returns an empty string.

=cut

sub suffix 
{ 
    return ''; 
}

=item C<defines()>

Implemented in subclasses to return the C C<#define> macros required.

=item C<opsarraytype()>

Retu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	445633	445959	
==>math.ops\"\n  {{\@2}} = mmd_dispatch_p_ppp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	13363	13505	
==>sequent start-Para.  Reseeking H1\n";
        $state = 0;
      }
    }
    
    elsif($state == 3) {
      # accumulating text until end of Pa <==
2	/Users/nnunley/parrot/config/inter/make.pm	2120	2309	
==>rsion => "$1.$2");
    }

    $conf->data->set($util => $prog);
    $self->set_result('yes');

    # setup make_C
    if ($conf->data->get('gmake_version')) {
        $conf->data->set(make_c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552526	552622	
==>bject.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n\n  object = {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556582	556678	
==>bject.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n\n  object = {{\@ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	19234	19390	
==>sn't implemented
(such as fork() on MacOS), some resource isn't available (like a 
net connection) or a module isn't available.  In these cases it's
necessar <==
2	/Users/nnunley/parrot/lib/Test/More.pm	30590	30720	
==>$type eq 'SCALAR' ) {
                push @Data_Stack, { type => 'REF', vals => [$e1, $e2] };
                $ok = _deep_check($$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627243	627343	
==>{{\@2}});\n  }\n\n  /* Why?? If we're creating a continuation, the continuation PMC\n   * needs to be <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628387	628487	
==>{{\@2}});\n  }\n\n  /* Why?? If we're creating a continuation, the continuation PMC\n   * needs to be <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33194	33317	
==>{"implicit"} || $_[0]->{"subrule"};
	$desc = "<matchrule:$desc>" if $_[0]->{"matchrule"};
	return $desc;
}

sub callsyntax($ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	21670	21828	
==>ck
#         back: R or rfail
#               $matchcount++
#         next:
#
sub rewrite_star {
    my ($self, $op, $R, $greedy, $lastback) = @_;

    my $nex <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3283	3419	
==>efined $cond) {
    $handler->start_element({ Name => 'cond', Attributes => { kind => $kind } });
    $handler->start_element({ Name => ' <==
2	/Users/nnunley/parrot/lib/File/Which.pm	4182	4284	
==>sure that you
will find the correct file (so for example, you might be searching for C<perl>,
it'll try <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	4874	5021	
==>elf = shift;
    
    return $self->html_docs_directory->delete();
}

=item C<gen_manifest_skip>

Query the svn:ignore property and generate the lin <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8374	8498	
==>tack_depth
PIR
	}

	return $pir;
}

sub post_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If desti <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6194	6318	
==>tack_depth
PIR
	}

	return $pir;
}

sub post_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If desti <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	21765	21880	
==>ewline will be put on the end if there isn't one
already.

We encourage using this rather than calling print directl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973823	974152	
==>ine",
                  "CODE" => 1094,
                  "ARGS" => [
                              "i",
                              "ic",
                              "s",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/strin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928770	929042	
==>44,
                  "ARGS" => [
                              "i",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 385 \"src/ops/string.ops\"\n  switch ({{\@3}}) {\n    case STRINGINF <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	817	945	
==>= $cgoto;
    } else {
        cc_gen('config/auto/cgoto/test_c.in');
        $test = eval { cc_build(); 1; } || 0;
        cc_cl <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	46313	46509	
==>ice @$p, $i+1, 1; # merge
      --$i;  # and back up
    }
  }

  # Now look for the last text token, and remove the terminal newline
  for( my $i = $#$p; $i >= 2; $i-- ) {
    # work backwards ove <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5164	5280	
==>y $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  $handler-> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3227	3343	
==>y $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self->op;
  my $right = $self->right;

  $handler-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066429	1066766	
==>S" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1191,
                  "ARGS" => [
                              "i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067614	1068075	
==>S" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1192,
                  "ARGS" => [
                              "i",
                              "nc",
                              "n"
                            ],
                  "B <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374585	374962	
==>"i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 438,
                  "ARGS" => [
                              "i",
                              "sc",
                              "i"
                            ],
                  "BODY" => "#line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interp <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	60236	60400	
==>curred!)
Printing C<$@> directly produces the error message, with the offset appended.
On success, the C<$@> variable is guaranteed to be C<undef>.

The available di <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16564	16878	
==>DY" => "#line 293 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948618	948891	
==>",
                  "CODE" => 1067,
                  "ARGS" => [
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 535 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_charset(inte <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	550	642	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
#
#  And here is how we implement a pul <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	2767	3033	
==>ubstr($1, 0, 1);
      push @tokens, Jako::Token->new(
        $file, $line, 'type', $type, $1);
      $text = $2;
      next;
    }

    #
    # Separating:
    #

    if ($text =~ m{^([,])(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, 'comma' <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5528	5630	
==>urns the C code following the run core function.

=cut

sub run_core_finish
{
    my ($self, $base) = @ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3864	3966	
==>urns the C code following the run core function.

=cut

sub run_core_finish
{
    my ($self, $base) = @ <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	306	431	
==>Test::per_test( '.gnu_out', $count );
}

sub get_test_prog {
    my $self = shift;
    my ( $path_to_parrot, $path_to_language <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	12737	12850	
==>($ldel_inner, $ldel_outer, $rdel_inner, $rdel_outer)
	{
		$_ = '('.join('|',map { quotemeta $_ } split('',$_)).')' <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1769	1903	
==>) in call to '%s'.",
    scalar(@formal_args), scalar(@args), $name)
    unless @formal_args == @args;

  for (my $i = 0; $i < @args; $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1469	1603	
==>) in call to '%s'.",
    scalar(@formal_args), scalar(@args), $name)
    unless @formal_args == @args;

  for (my $i = 0; $i < @args; $ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4686	4846	
==>s a
L<Parrot::Configure::Data> object.

=cut

sub settrigger
{
    my ($self, $key, $trigger, $cb) = @_;

    return unless defined $key and defined $trigger and <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3084	3181	
==>Automatically generated by config/gen/core_pmcs.pm

package Parrot::PMC;

use strict;
use warnings <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	28	125	
==>Automatically generated by config/gen/core_pmcs.pm

package Parrot::PMC;

use strict;
use warnings <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13494	13626	
==>_block = $self->pop_block;

      #
      # 'while' blocks:
      #
      # When we are ending the 'while' block, we might be beginni <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	749	857	
==>/pre>\n",
  'VerbatimB'  => "<b>",
  '/VerbatimB' => "</b>",
  'VerbatimI'  => "<i>",
  '/VerbatimI' => "</i> <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3215	3319	
==>e_c($_) foreach (@pmcs);

    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_gro <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3319	3423	
==>e_c($_) foreach (@pmcs);

    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_gro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645830	645930	
==>{\@1}} = interpreter->vtables[{{\@2}}]->whoami;\n    else\n\t\t{{\@1}} = Parrot_get_datatype_name(int <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646727	646827	
==>{\@1}} = interpreter->vtables[{{\@2}}]->whoami;\n    else\n\t\t{{\@1}} = Parrot_get_datatype_name(int <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	3360	3495	
==>ck.
#

sub push_block
{
  my $self = shift;

  push @{$self->{BLOCKS}}, shift;
}


#
# pop_block()
#
# Pop the top block off the block s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	2062	2229	
==>do stuff, but which
  you DO want debug output from...

 $debug_level = 0;

=head1 DESCRIPTION

This is an internal module for controlling the debug level (a.k.a. trace <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547537	547813	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fact",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548443	548719	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fact",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18450	18577	
==>_size( I<halfpoint_integer> );

=item $parser->head3_halfpoint_size( I<halfpoint_integer> );

=item $parser->head4_halfpoint_siz <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1618	1735	
==>ction::C->new,
        Parrot::Docs::Section::Ops->new,
        Parrot::Docs::Section::IMCC->new,
        Parrot::Docs <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	4804	4909	
==>(@{$elsestack->{$elsetag}}, $elseline);
		($result, $type, @code)=EXPRESSION();
		$false=qq{""} if $type e <==
2	/Users/nnunley/parrot/tools/build/revision_c.pl	252	365	
==>from
F<.svn/entries> or F<.svk/entries> and config rev number of last
Parrot configure run.

=head1 SEE ALSO

F<co <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41987	42181	
==>=> 192,
			'chunk' => 57
		}
	},
	{#State 182
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			"> <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39489	39626	
==>utput-port'     => \&_op_close_output_port,

####
#### Input
####

  'read' => \&_op_read,
  'read-char' => \&_op_read_char,
  'peek-char' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954253	954340	
==>=> "#line 571 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_encoding_number_of_str(interpre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955044	955131	
==>=> "#line 571 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_encoding_number_of_str(interpre <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2763	2864	
==>this line in main routine should be skipped"
Label1:
   PRINT "5 back in module-level code"
   END
Sub <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16730	16831	
==>this line in main routine should be skipped"
Label1:
   PRINT "5 back in module-level code"
   END
Sub <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6529	6814	
==>int "Removing trigger $trigger on configuration key $key\n"
        if $verbose;

    delete $self->{triggers}{$key}{$trigger};

    return $self;
}

=back

=head1 CREDITS

Based largely on code written by Brent Royal-Gordon C<brent@brentdax.com>.

=head1 AUTHOR

Joshua Hoblitt C<jhobl <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5077	5226	
==>em C<run_core_after_addr_table($base_suffix)>

Returns the run core C code for section after the address table.

=cut

sub run_core_after_addr_table
{ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44698	44873	
==>> -18
	},
	{#State 204
		DEFAULT => -4,
		GOTOS => {
			'block' => 209,
			'chunk' => 57
		}
	},
	{#State 205
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	3238	3481	
==>arious files');

    $cout .= $self->includes;
    $cout .= dynext_load_code($self->{opt}{library},
                              map { $_->{class} => $_ }
                              values %{$self->{pmcs}} );

    return $cout;
}

=item C<i <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	2078	2232	
==>ted;
    return op('multi_match' => [ $tree->min, $tree->max, $tree->greedy,
                                 $self->convert($tree->thing, $ctx) ]);
}

sub <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5939	6271	
==>t_setend {
    my ($self, $group, $value, $adj) = @_;
    $value = value($value);
    my @ops;
    if ($adj) {
        push @ops, "add <rx_tmp>, $value, $adj";
        $value = "<rx_tmp>";
    }
    push @ops, qq!set <rx_match>["$group";1], $value # close group $group!;
    return @ops;
}

sub output_getstart {
    my ($self, $reg, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5577	5852	
==>t_setend {
    my ($self, $group, $value, $adj) = @_;
    $value = value($value);
    my @ops;
    if ($adj) {
        push @ops, "<rx_tmp> = $value + $adj;";
        $value = "<rx_tmp>";
    }
    push @ops, qq!<rx_match>{"$group"}->[1] = $value; # close group $group!;
    r <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2735	2844	
==>,
 '/item-bullet' => "\n\\par}\n",
 'item-number'  => "\n{\\pard\\li#rtfindent##rtfitemkeepn#\\sb60\\sa150\\fi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	37111	37409	
==>'start_line'},
          "Unknown directive: $para->[0]"
        );

        # And maybe treat it as text instead of just letting it go?
        next;
      }

      if($para_type =~ s/^\?//s) {
        if(! @$curr_open) {  # usual case
          DEBUG and print "Treating $para_type paragraph as su <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	53069	53190	
==>etty_form = (
  "\a" => '\a', # ding!
  "\b" => '\b', # BS
  "\e" => '\e', # ESC
  "\f" => '\f', # FF
  "\t" => '\t', # ta <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614796	614901	
==>ODY" => "#line 508 \"src/ops/object.ops\"\n    opcode_t *next = {{^+4}};\n    INTVAL offset;\n    offset = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615947	616052	
==>ODY" => "#line 508 \"src/ops/object.ops\"\n    opcode_t *next = {{^+4}};\n    INTVAL offset;\n    offset = <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	94	209	
==>Str $pkg: *@_paths) returns Void {
    my @paths = @_paths.reverse();
    for @paths -> $path {
        if ($path eq <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	1118	1215	
==>hod_re = make_re('^\s*('.$type_re.')\s+('.$ident_re.')\s*\(('.$arglist_re.')\)\s*$');


=item C<pa <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	14037	14305	
==>";
    my $srm_label = $srm->gen_label();
    $pir .= sub_meta($srm_label, $mv, 'gen_label');
    $pir .= "### end gen_label\n\n";

    # Emit code to do exception related stuff.
    $pir .= <<'PIRCODE';
    # Look through exception handlers.
    if null ehs goto END_E <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6936	7109	
==>,[ $act, $$value ]);

					$$token ne ''	#Don't eat the eof
				and	$$token=$$value=undef;
                next;
            };

            #reduce
            my($l <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6613	6778	
==>,[ $act, $$value ]);

					$$token ne ''	#Don't eat the eof
				and	$$token=$$value=undef;
                next;
            };

            #reduce
            my($l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115788	116123	
==>FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 144,
                  "ARGS" => [
                              " <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	7726	7879	
==>nt "$self 's source is scalar ref $_[0]\n";
    return;
  } elsif(ref( $_[0] ) eq 'ARRAY') {
    $self->{'source_arrayref'} = $_[0];
    DEBUG and print " <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42847	42952	
==>amespace++;
}

sub new ($$)
{
	my $class = ref($_[0]) || $_[0];
	local $Parse::RecDescent::compiling = $_[ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	814	925	
==>rectory;
use Parrot::Docs::POD2HTML;

=item C<new_item($text, @paths)>

Returns a new item.

Use this when creat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684389	684697	
==>nction",
                  "CODE" => 768,
                  "ARGS" => [
                              "p",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 550 \"src/ops/pmc.ops\"\n      {{\@1}}->vtable->setprop(interpreter <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4349	4489	
==>h the value in the
		# load register onto to the stack.
		$pir .= <<'PIR'
${INS} = concat "push s, "
${INS} = concat ${LOADREG}
${INS} = conc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50186	50289	
==>ROT_PROFILE_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_PROFILE_FLAG); }\n  {{=0,+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50979	51082	
==>ROT_PROFILE_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_PROFILE_FLAG); }\n  {{=0,+ <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	8626	8807	
==>n $typemap{ $type };
}

sub parse_params
{
    my $params = shift;

    my @params;

    while ($params =~ m/(\w+\*?) (\w+)/g)
    {
        push @params, $1, $2;
    }

    return @ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030196	1030510	
==>=> "sleep",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1152,
                  "ARGS" => [
                              "nc"
                            ] <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4020	4122	
==>ir .= "\${ITEMP0} = 0\n";
	for (1..$pushes) {
		$pir .= <<'PIR';
# Increment stack depth.
inc stack_dep <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2436	2538	
==>ir .= "\${ITEMP0} = 0\n";
	for (1..$pushes) {
		$pir .= <<'PIR';
# Increment stack depth.
inc stack_dep <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	23695	23809	
==>{ #/////////////////////////////////////////
      # The virtual end-document signal
      
      if(@$curr_open) { <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3481	3591	
==>alue; # TODO: We should make sure its a string, somewhere.
    }
    else {
      $self->SYNTAX_ERROR("Sub decl <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6145	6255	
==>alue; # TODO: We should make sure its a string, somewhere.
    }
    else {
      $self->SYNTAX_ERROR("Sub decl <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37209	37410	
==>lf, $type) = @_;

    my $char = substr $type, 0, 1;
    return $1 if ($char =~ /([ISP])/);
    return 'N' if ($char eq 'F');
    return 'v' if ($type eq 'void');
    return '?';
}

=item C<signature($p <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10438	10526	
==>{PTEMP3}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7822	7910	
==>{PTEMP3}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	3337	3594	
==>ode
            my $exit_code = Parrot::Test::run_command(
                $cmd,
                %{$run_options},
            );

            ## read in the command output
            my $actual_output = Parrot::Test::slurp_file( $f_out );

            ## te <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	692040	692332	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "mmdvtregister",
                  "FLAGS <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35025	35133	
==>nt::unexpected
				   = $Parse::RecDescent::lastunexpected;
			}
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse:: <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42135	42243	
==>nt::unexpected
				   = $Parse::RecDescent::lastunexpected;
			}
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088888	1089012	
==>s\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "experimenta <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089836	1089960	
==>s\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "experimenta <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	391	538	
==>er

=cut

package Parrot::Docs::Section::Languages;

use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	17059	17214	
==>$l = pop @stack;
    print <<"EOC";
	$op $l->[1], $r->[1] $cmt
EOC
    push @stack, [-1, $l->[1], $l->[2]];
}
sub INPLACE_MODULO
{
    my ($n, $c, $cmt) = @ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	7	196	
==>file is rotting and needs a cleanup desperately.

package Regex::Ops::List;
use Regex::Grammar;
use base 'Exporter';
use strict;

use vars qw(@AsmOps @EXPORT);

@Regex::Ops::Label::ISA = qw( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938573	938836	
==>\n    {{\@1}} = string_join(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939463	939726	
==>\n    {{\@1}} = string_join(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2660	2836	
==>file into the relevant C
code.

=cut

sub goto_pop
{
    my ($self) = @_;

    return "cur_opcode = pop_dest(interpreter);\ngoto switch_label";
}

my %arg_maps = (
    'i'  => " <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	78	183	
==>e ();
BEGIN {@ISA = ('Pod::Simple')}

use strict;

use Carp ();

BEGIN { *DEBUG = \&Pod::Simple::DEBUG unl <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	77	182	
==>e ();
BEGIN {@ISA = ('Pod::Simple')}

use strict;

use Carp ();

BEGIN { *DEBUG = \&Pod::Simple::DEBUG unl <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	8172	8289	
==>"$outfile_base.lines.html">@{[$file_line_coverage{$source_file} ? "$file_line_coverage{$source_file} %" : "n/a" ]}</a> <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7872	7993	
==>iption
{
	my $self = shift;

	return '' unless $self->contains_pod;
	
	my @lines = $self->read;
	
	while ( @lines )
	{
		m <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	7477	7590	
==>rg_name
      }
    });
    $handler->end_element({ Name => 'arg' });
  }

  $handler->end_element({ Name => 'sub' <==
2	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	936	1107	
==>te = 0;
        last;
    }
    my $checksum_line = (<OUTPUT>)[-1];
    close OUTPUT;
    if ($checksum_line !~ m!^/\* CHECKSUM: ([-\d+]+) \*/$!) {
        print "$output d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	467169	467573	
==>GS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 536,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 376 \ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126753	127116	
==>} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rot",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127888	128251	
==>} = d;\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rot",
                  " <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	5350	5455	
==>N

    This is an autogenerated file, created by F<$0>.

    It contains Parrot version info, a preamble f <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34755	34858	
==>ns_to_pir($rule->{'instruction'}), $mv, 
				"pir for rule $rule->{'name'}");
		}
		$pir .= "### end tra <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12479	12667	
==>rns C<undef> if the current documentation file is the file for the 
module.

=cut

sub href_for_perl_module
{
    my $self = shift;
    my $module = shift;
    
    # This is not very obvio <==
2	/Users/nnunley/parrot/examples/benchmarks/addit.pl	457	582	
==>1001097.97).

=cut

use strict;
sub varargs_adder {
    my $sum = 0;
    for (my $a = $#_; $a >= 0; --$a) {
        $sum += $_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63197	63305	
==>\"src/ops/core.ops\"\n  PARROT_ERRORS_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63843	63951	
==>\"src/ops/core.ops\"\n  PARROT_ERRORS_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/config/gen/PodText.pm	1820	1995	
==>of the file so we don't end up just
        # appending to the end of the file.
        seek $fh, 0, 0;
        print $fh $text;
        close($fh) or die "can not close file $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	199570	200014	
==>re",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 236,
                  "ARGS" => [
                              "n",
                              "n",
                              "ic"
                            ],
                  "BODY <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7205	7313	
==>EMP0}
${STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
PIR
	}

	return $pir;
}

sub post_load($) {
	my $se <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5027	5135	
==>EMP0}
${STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
PIR
	}

	return $pir;
}

sub post_load($) {
	my $se <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27731	27860	
==>$method, 1);
    }
    # class init decl
    if ($self->{flags}->{dynpmc}) {
        $hout .= 'PARROT_DYNEXT_EXPORT ';
    }
    $ <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	2313	2450	
==>5" means you're going to run 5 tests).  This strange
format lets Test::Harness know how many tests you plan on running in
case something g <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15593	15693	
==>@@@@@@@@@@@@@@@@@@@@@@@@

1;


__END__

=head1 NAME

Pod::Simple::PullParser -- a pull-parser interfa <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	24728	24855	
==>( defined $defn ) {
        my $name;
        $name = 'var_' . $parser->YYData->{lex_num} . '_' . $idf;
        $defn = new d <==
2	/Users/nnunley/parrot/lib/Test/More.pm	4398	4567	
==>hile( $idx <= $#plan ) {
        my $item = $plan[$idx];

        if( $item eq 'no_diag' ) {
            $Show_Diag = 0;
        }
        else {
            push @cleane <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	1542	1721	
==>uto/gmp/gmp.in');
    eval { cc_build(); };
    my $has_gmp = 0;
    if (!$@) {
        my $test = cc_run();
        if ($test eq
            "6864797660130609714981900799081393217 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710661	710754	
==>const io = PIO_STDOUT(interpreter);\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711495	711588	
==>const io = PIO_STDOUT(interpreter);\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(in <==
2	/Users/nnunley/parrot/config/init/hints/freebsd.pm	921	1028	
==>=> 1,
        libparrot_shared        => 'libparrot$(SHARE_EXT).$(SOVERSION)',
        libparrot_shared_alia <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	1759	1866	
==>=> 1,
        libparrot_shared        => 'libparrot$(SHARE_EXT).$(SOVERSION)',
        libparrot_shared_alia <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6625	6758	
==>(print "PUSHED ).(@_>1?$_[1]:"mark").qq(\\n";));
    }
    push @ops, "push \@<rx_stack>, -1; # pushmark";
    return @ops;
}

sub out <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	704	801	
==>l its methods,
and adds these methods:

=over

=item $token->text

This returns the text that this <==
2	/Users/nnunley/parrot/config/init/hints/vms.pm	632	800	
==>ompiler died!";
            system("link/exe=test test")        and die "Link failed!";
        };

        *Parrot::Configure::Step::cc_run = sub {
            `mcr []t <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	23200	23416	
==>o-be-closed =for region, or some
        #  other one, but it doesn't matter.
      } else {
        $curr_open->[-1][1]{'start_line'} = $para->[1]{'start_line'};
          # what's that for?
        
        $self->{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75207	75608	
==>FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 98,
                  "ARGS" => [
                              "p",
                              "p" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7247	7351	
==>nt lcase$(s1$);" Lower"
a$="   Flush   "
print ">";ltrim$(a$)
print rtrim$(a$);"<"
' A's and -'s
print st <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18976	19080	
==>nt lcase$(s1$);" Lower"
a$="   Flush   "
print ">";ltrim$(a$)
print rtrim$(a$);"<"
' A's and -'s
print st <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4402	4507	
==>n-grouped PMCs individually
    my @ungrouped_pmcs = grep { ! exists $pmc_group->{$_} } @pmcs;
    partial <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4506	4611	
==>n-grouped PMCs individually
    my @ungrouped_pmcs = grep { ! exists $pmc_group->{$_} } @pmcs;
    partial <==
2	/Users/nnunley/parrot/languages/converter.pl	1111	1233	
==>{[@item]}
		{ $return = '';
		  $return .= $item[1][0] if defined $item[1][0];
		  $return .= " ( $item[3] )(?) ";
		  $ret <==
2	/Users/nnunley/parrot/languages/converter.pl	814	921	
==>{[@item]}
		{ $return = '';
		  $return .= $item[1][0] if defined $item[1][0];
		  $return .= " ( $item[3] ) <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	42616	42707	
==>since
their performance is typically twice as good as the more general-purpose
C<extract_tag <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	2005	2108	
==>tions can be shortened to their unique prefixes, and one
leading dash ("-") can be used instead of two ( <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	3886	3989	
==>tions can be shortened to their unique prefixes,
and one leading dash ("-") can be used instead of two ( <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	7610	7745	
==>h
asinf       math.h
asinh       math.h
asinhf      math.h
asinhl      math.h
asinl       math.h
atan        math.h
atan2       math.h
a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211679	212002	
==>r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 249,
                  "ARGS" <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	4390	4488	
==>n _fail ($wantarray, $textref) unless @match;

	return _succeed ( $wantarray, $textref,
			  $match <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	15899	15991	
==>n _fail($wantarray, $textref) unless @match;
	return _succeed($wantarray, $textref,
			$match <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	13009	13137	
==>n _fail($wantarray, $textref) unless @match;
	return _succeed($wantarray, $textref,
			@match[2..3,4..5,0..1]	# MATCH, REMAINDER, <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	17103	17262	
==>]{'~_freaky_para_hack'} = $1;
    DEBUG > 2 and print " Tolerating $$para[2] as =item *\\n\\n$1\n";
    splice @$para, 2; # so it ends up just being ['=item', { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593321	593649	
==>ect_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 673,
                  "ARGS" => [
                              "p <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3231	3334	
==>(@pmcs);

    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@p <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3335	3438	
==>(@pmcs);

    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@p <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7596	7743	
==>e::Spec->devnull
            if $_ and $_ eq '/dev/null';
    }

    if ($out and $err and $out eq $err) {
        $err = "&STDOUT";
    }

    loca <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	14744	14953	
==>AMBLE";


# $name
.sub unicode:"dyadic:$operator" :multi ( $type1, $type2 )
    .param pmc op1
    .param pmc op2
END_PREAMBLE

        if ($type1 eq "Float" && $type2 eq "Float") {
          # scalar to scalar <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	909	1012	
==>en object.
For example, parsing a "=head1 ..." line will give you
a start-token with the tagname of "hea <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1337	1440	
==>en object.
For example, parsing a "=head1 ..." line will give you
a start-token with the tagname of "hea <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	27724	27849	
==>urse, test #1 is $tests[0], etc...

=cut

sub summary {
    my($self) = shift;

    return map { $_->{'ok'} } @{ $self->{Test_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	386	492	
==>o::Construct::Block::Conditional);

#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $left, $op, $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	398	504	
==>o::Construct::Block::Conditional);

#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $left, $op, $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	4729	4875	
==>{args} }) {
            if (UNIVERSAL::isa($arg, 'Regex::Ops::Tree')) {
                # $arg is a reference variable, remember.
                $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	10079	10225	
==>{args} }) {
            if (UNIVERSAL::isa($arg, 'Regex::Ops::Tree')) {
                # $arg is a reference variable, remember.
                $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931842	931952	
==>\"src/ops/string.ops\"\n  {{\@1}} = string_upcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932613	932723	
==>\"src/ops/string.ops\"\n  {{\@1}} = string_upcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/config/init/defaults.pm	6228	6407	
==>\\\"",

        # yacc = Automatic parser generator
        # lex  = Automatic lexer  generator
        # Some systems may lack these
        yacc => 'bison -v -y',
        lex  => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607532	607622	
==>473 \"src/ops/object.ops\"\n    {{\@1}} = VTABLE_get_attr(interpreter, {{\@2}}, {{\@3}});\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608436	608526	
==>473 \"src/ops/object.ops\"\n    {{\@1}} = VTABLE_get_attr(interpreter, {{\@2}}, {{\@3}});\n <==
2	/Users/nnunley/parrot/config/auto/jit.pm	2469	2623	
==>rchname.s") {
        copy_if_diff("$jitbase/$cpuarch/$jitarchname.s", "src/asmfun.s");
        $conf->data->set(asmfun_o => 'src/asmfun$(O)');
    } elsif <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1755	1923	
==>[],
                  "TYPE" => "inline",
                  "CODE" => 0,
                  "ARGS" => [],
                  "BODY" => "#line 50 \"src/ops/core.ops\"\n  {{ <==
2	/Users/nnunley/parrot/config/gen/config_pm.pm	196	461	
==>=head1 DESCRIPTION

Writes the C<Parrot::Config> Perl module, the
F<runtime/parrot/library/config.fpmc> generator program, and the F<myconfig>
file.

=cut

package gen::config_pm;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Ba <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3828	3972	
==>so in that
namespace, Parrot should only present Parrot_ (and similar) symbols to
the outside world.  Be careful to only scan Parrot's defines, n <==
2	/Users/nnunley/parrot/config/inter/libparrot.pm	775	918	
==>red');

    $parrot_is_shared =
        integrate($conf->data->get('parrot_is_shared'),
            $parrot_is_shared);

    $parrot_is_sh <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630425	630537	
==>e 81 \"src/ops/pmc.ops\"\n    PMC *class = {{\@2}};\n    INTVAL type = pmc_type_p(interpreter, class);\n    if (t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631415	631527	
==>e 81 \"src/ops/pmc.ops\"\n    PMC *class = {{\@2}};\n    INTVAL type = pmc_type_p(interpreter, class);\n    if (t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364129	364369	
==>,
                  "CODE" => 426,
                  "ARGS" => [
                              "p",
                              "nc"
                            ],
                  "BODY" => "#line 292 \"src/ops/io.ops\"\n  if ({{\@1}}) { <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2758	2979	
==>mber = '' if ($number == 1) && ($name ne '');
    return bless([ 'label', "\@$name$number" ], 'asm_op');
}

############################################################################
# OPTIMIZATION INFORMATION
#
# All of <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops.pm	126	231	
==>mber = '' if ($number == 1) && ($name ne '');
    return bless([ 'label', "\@$name$number" ], 'asm_op');
} <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10224	10414	
==>ack?
${ITEMP3} = elements lazy_moves
if ${ITEMP3} > 0 goto PRE_CALL_${CURIC}_LAZY_MOVE

# Generate name of register to hold value we pop off the stack.
${PTEMP3} = ${STYPES}[${ITEMP2}]
${STEM <==
2	/Users/nnunley/parrot/tools/dev/as2c.pl	446	583	
==>y '$0 $s'
 */

EOT
}
sub create_s {
    my $cmd = shift;
    my $r = system($cmd);
    if ($r) {
	die "$cmd failed: $r";
    }
}

sub pars <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2687	2784	
==>st, all OK in sequence
PRINT "1 in module-level code"
GOSUB Sub1
PRINT "ERR this line in main rout <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16654	16751	
==>st, all OK in sequence
PRINT "1 in module-level code"
GOSUB Sub1
PRINT "ERR this line in main rout <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	14442	14562	
==>${jump}_${incase}:
	new P12, .PerlArray   # OR
	new P13, .PerlArray   # TO
	new P14, .PerlArray   # Operators.  Op first, <==
2	/Users/nnunley/parrot/config/gen/config_h.pm	1599	1717	
==>def  PARROT_HAS_HEADER_\U$1\n";
        }
    }

    print HH "\n#define BUILD_OS_NAME \"$^O\"\n";

    my $define = $c <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	835	946	
==>y ($handler) = @_;

  $handler->start_element({ Name => 'block', Attributes => { kind => $self->kind } });
  $_- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1848	1959	
==>y ($handler) = @_;

  $handler->start_element({ Name => 'block', Attributes => { kind => $self->kind } });
  $_- <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	47656	47826	
==>.yp"
{
            BuildIf( $_[0], $_[1], $_[2], $_[3], $_[6] );
        }
	],
	[#Rule 19
		 'stat', 4,
sub
#line 128 "Lua\lua51.yp"
{
            BuildIf( $_[0] <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	1033	1138	
==>are used) is:

    source_path <whitespace> [package]meta1,meta2,...

or you may optionally specify a diff <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1058	1155	
==>arser->get_token on a L<Pod::Simple::PullParser> object, you might
get an object of this class.

T <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	43435	43645	
==>limiter will cause the regex to be
immediately terminated. In other words:

	'm /
		(?i)		# CASE INSENSITIVE
		[a-z_]		# LEADING ALPHABETIC/UNDERSCORE
		[a-z0-9]*	# FOLLOWED BY ANY NUMBER OF ALPHANUMERICS
	   /x <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1005	1121	
==>imple::TextContent->filter(shift)->any_errata_seen" \
   thingy.pod

=head1 DESCRIPTION

This class is that parses Po <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10182	10547	
==>defn, \@opcodes, $assign ];
            }
            else {
                my $assign = new AssignOp( $parser,
                    'arg1'   => undef,
                    'result' => $defn,
                );
                return [ $defn, [], $assign ];
            }
        }
        else {
            my $defn = $parser->YYData->{symbtab}->LookupU( <==
2	/Users/nnunley/parrot/Configure.pl	9287	9484	
==>ptr
    auto::pack
    auto::format
    auto::isreg
    auto::jit
    gen::cpu
    auto::funcptr
    auto::cgoto
    auto::inline
    auto::gc
    auto::memalign
    auto::signal
    auto::socklen_t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468910	469344	
==>GS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 538,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 385 \"src/ops/math.ops\"\n  FLOATVA <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	35451	35600	
==>80,
			".." => 71,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -68
	},
	{#State 132
		ACTIONS => {
			"^" => 79
		},
		DEFA <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	2923	3178	
==>{
            if ($line =~ m/TEMPLATE\s+(\w+)\s*{/) { #}
                $template = $1;
                $asm = q{};
                next;
            }
            else {
                $line =~ m/(extern\s*)?(\w+)\s*{/; #}
                $extern = (def <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660500	661009	
==>ists",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 738,
                  "ARGS" => [
                              "i",
                              "p",
                              "kic"
                            ],
                  "BODY" => "#line 334 \"src/ops/pmc <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	52626	52839	
==>_[0], $_[1] ),
            ];
        }
	],
	[#Rule 53
		 'explist1', 3,
sub
#line 322 "Lua\lua51.yp"
{
            [ @{ $_[1] }, $_[3] ];
        }
	],
	[#Rule 54
		 'explist1', 1,
sub
#line 326 "Lu <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2862	3106	
==>else {
      $args[$i] = $args[$i]->compile($compiler);
    }
  }

  if (($dest_ident->kind eq 'var') and ($dest_ident->scope eq 'global')) {
    $dest = $dest_ident->compile($compiler);
  }

  #
  # For built-in subs (ops):
  #

  if (exists $p <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	21667	21788	
==>s used.

Output will be indented and marked with a # so as not to interfere
with test output.  A newline will be put on th <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	56159	56283	
==>ourth argument is true, in which
case they are disgarded).

For example, the following extracts substrings that are valid Per <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	8133	8329	
==>tin($syms[PREV]) ) {
				$unary=1;
			}
		}
		if (
			$this->[0] eq "("    and 
			hasargs($prev->[0])	# This works, but damned if I know why. 
			#and $next->[0] ne ")"  
			){
#			print "Argthing <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	15611	15731	
==>ng' goto bad_args
    $S2 = typeof $P2
    if $S2 == 'String' goto bad_args
    goto got_args
  bad_args:
    %% DOMAIN_E <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5897	5996	
==>d $self->get('verbose') && $self->get('verbose') == 2;

    print "Looking up trigger $trigger on co <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1561	1788	
==>E:                         # DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
print "Elapsed time:  $N2\n"; # print <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1561	1788	
==>E:                         # DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
print "Elapsed time:  $N2\n"; # print <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18856	18946	
==>eblocks ("verbatim sections") will appear as.

=item $parser->header_halfpoint_size( I<half <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21481	21640	
==>t = $left;
      }

      next;
    }

    #
    # Subroutine Return Statements:
    #
    #   return;
    #   return <value>;
    #

    if ($token->is_return) <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	20468	20602	
==>VERCOME BROKEN LOOKAHEAD 
			_match_bracketed($textref,"",$ldel2,"","",$rdel2)
			|| do { pos $$textref = $startpos; return };
		}
		el <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	304	457	
==>th some optional
descriptive text.

Directory paths will be expanded to all the file paths within the
directory and any subdirectories recursively (see th <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	16404	16509	
==>rs)) {
		print CODE qq{\tunshift P9, "OP"\n};
		print CODE qq{\tunshift P9, "or"\n};
	}
	if ($ops) {
		pri <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32380	32489	
==>le->{'instruction'}" =~ /\$\{STOREREG\}/) {
			$dest_reg = 1;
			$mv->{'STOREREG'} = 'storereg';
			push @loca <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	5593	5714	
==>ol; 
        print "\n";
    }
    exit;
}

# Run The Benchmarks With Pretty Output
if ( ! $cfg{use_times} && @program < 2 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4372	4533	
==><DRV>) {
                	/^\s*sub\s+_Parse\s*{\s*$/ .. /^\s*}\s*#\s*_Parse\s*$/
        	and     do {
                	s/^#DBG>//;
                	push(@drv <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4151	4308	
==><DRV>) {
                	/^\s*sub\s+_Parse\s*{\s*$/ .. /^\s*}\s*#\s*_Parse\s*$/
        	and     do {
                	s/^#DBG>//;
                	push(@drv <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	12477	12605	
==>st char * s;
    for(s=str; *s; s++)
        key = key * 65599 + *s;
    return key;
}

static void store_op(op_info_t *info, int <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	7173	7335	
==>iback");
    my $back = $self->genlabel("group_back");
    my $next = $self->genlabel("group_next");

    $self->need_group_setup($group);

    my ($R_back, @R_ops <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	1402	1733	
==>d
PIR_OUT

# Write output.
open $fh, "> $output_file" or die "Cannot open $output_file: $!\n";
print $fh $output;
close $fh;


##############################################################################
# Subroutines.
##############################################################################

# This parses the input file, e <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3920	4028	
==>"$group", "lib-$group")
          or die "compile $group.c failed ($?)\n";
    }
} 
elsif ($mode eq 'linklibs <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4024	4132	
==>"$group", "lib-$group")
          or die "compile $group.c failed ($?)\n";
    }
} 
elsif ($mode eq 'linklibs <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3374	3477	
==>)=shift;

    keys %{$self->{STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
}

sub YYLexer {
    my($sel <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3204	3301	
==>)=shift;

    keys %{$self->{STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
}

sub YYLexer {
    my($sel <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	10968	11103	
==>ds) returns Bool`

- `isnt (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `like (Str $got, Rule $exp <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4720	4833	
==>t(@pmcs) =~ /--destination=(.*)/
      or die "copy command requires destination";
    my $dest = $1;

    my ($gr <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4824	4937	
==>t(@pmcs) =~ /--destination=(.*)/
      or die "copy command requires destination";
    my $dest = $1;

    my ($gr <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	995	1112	
==>{ITEMP1}

    # Build set instruction.
    ${INS} = concat "set $"
    ${INS} = concat ${STEMP0}
    ${INS} = concat " <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4190	4302	
==>parrot/feature.h
    # include/parrot/platform.h
    
    # runtime/parrot/include/* (all?)

    # lib/Parrot/Con <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	2476	2573	
==>ir in the lime juice, and optionally one or two teaspoons of tahini.
You can let it simmer longer, <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3133	3255	
==>m

package Parrot::PMC;

use strict;
use warnings;

use vars qw(@ISA %pmc_types @EXPORT_OK);

@ISA = qw( Exporter );
@EXPOR <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	77	199	
==>m

package Parrot::PMC;

use strict;
use warnings;

use vars qw(@ISA %pmc_types @EXPORT_OK);

@ISA = qw( Exporter );
@EXPOR <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13295	13417	
==>{
  my ($self,$node) = @_;

  my $return = $self->_save_1 ('I');
  $self->_generate(_get_arg($node,1));
  $self->_add_inst( <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	12803	12903	
==>.join('|',map { quotemeta $_ } split('',$_)).')'
	}
	pos = $posbug;

	my @match = _match_codeblock($t <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	204	297	
==>::Test;

@EXPORT = ( qw(output_is output_like output_isnt), @Test::More::EXPORT );
@ISA = qw(E <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	121	214	
==>::Test;

@EXPORT = ( qw(output_is output_like output_isnt), @Test::More::EXPORT );
@ISA = qw(E <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2144	2251	
==>e assume the programmer wanted to shadow the
  # previous definition.
  #

  if (defined $sym and $sym->bloc <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1891	1998	
==>e assume the programmer wanted to shadow the
  # previous definition.
  #

  if (defined $sym and $sym->bloc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84983	85269	
==>UMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85889	86175	
==>UMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	626184	626316	
==>cc_p */\n    pc = CUR_OPCODE + 2 + n_args + 3 + 3 + 2;    \n    args[1 + n_args] = pc;\n    lru = &mic->lru;\n    /* TODO verify {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	604698	605072	
==>t_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 685,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "B <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4510	4630	
==>ink($_, $pmc_libs->{$_}, [ $_ ] ) foreach (@ungrouped_pmcs);
} 
elsif ($mode eq 'copy') {
    # Copy *.so -> destination, <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4614	4734	
==>ink($_, $pmc_libs->{$_}, [ $_ ] ) foreach (@ungrouped_pmcs);
} 
elsif ($mode eq 'copy') {
    # Copy *.so -> destination, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614919	615031	
==>set(interpreter, {{\@2}}, {{\@3}});\n    if (offset < 0) {\n        real_exception(interpreter, next, NO_CLASS,\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616070	616182	
==>set(interpreter, {{\@2}}, {{\@3}});\n    if (offset < 0) {\n        real_exception(interpreter, next, NO_CLASS,\n <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1062	1165	
==>th_to_parrot = Parrot::Test::path_to_parrot();
        my $dir_count      = scalar(File::Spec->splitdir( <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1552	1650	
==>th_to_parrot = Parrot::Test::path_to_parrot();
        my $dir_count = scalar(File::Spec->splitdir( <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	17242	17373	
==>re for a C function we want to call and returns a pointer
   to a function that can call it. */
void *
build_call_func(Interp *inter <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	14575	14822	
==>-pbc// || $args =~ s/-r // ) {
                    my $pbc_f = per_test('.pbc', $test_no);
                    $args = qq{$args -o "$pbc_f"};

                    # In this case, we need to execute more than one
                    # command. Inste <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	148641	149203	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 181,
                  "ARGS" => [
                              "p",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 105 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(inte <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	1730	1990	
==>ARRAY' ) {
                for my $symbtab ( @{$_} ) {
                    if ( defined($symbtab) and $symbtab->isa('SymbTabVar') ) {
                        if ( exists $symbtab->{table}{$symb} ) {
                            my $defn = $symbtab->{table}{$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113900	114197	
==>{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114639	114936	
==>{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLA <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	5481	5754	
==>mple_f> and runs
language_output_isnt().  This I<does> set a description for you, so don't pass
one.

=item C<skip($why, $how_many)>

Use within a C<SKIP: { ... }> block to indicate why and how many tests to skip,
just like in Test::More.

=item C<run_command($command, %opt <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	8967	9080	
==>it_info->cur_op[i]]
#define CALL(f) Parrot_exec_add_text_rellocation_func(jit_info->objfile, jit_info->native_ptr, <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	19351	19540	
==>is.
     */
    ns = string_make(interpreter, " is an unknown signature type", 29, "ascii", 0);
    message = string_concat(interpreter, signature, ns, 0);

#if defined(CAN_BUILD_CALL_FRAMES <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	11388	11756	
==>];
}

sub STORE_NAME {
    my ($n, $c, $cmt) = @_;
    if ($make_f) {
	$make_f = 0;
	print_stack();
	print "# make_f \t$cmt\n";
	return;
    }
    my $tos = pop @stack;
    my $p = $tos->[1];
    if ($names{$c}) {
	my $pmc = $names{$c};
	print <<EOC;
	set $pmc, $p $cmt
EOC
	$p = $pmc;
    }
    else {
	$p = promote($tos);
	if ($cur_func eq 'test::main') {
	    $main_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1486	1594	
==>\n\n\n\n/*\n** string.ops\n*/\n\n\n\n/*\n** sys.ops\n*/\n\n\n\n/*\n** var.ops\n*/\n\n\n";
$ops = [
         b <==
2	/Users/nnunley/parrot/config/auto/aio.pm	467	583	
==>verbose);

sub runstep
{
    my ($self, $conf) = (shift, shift);

    my $test;
    my $verbose = $conf->options->get <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3068	3174	
==>T THIS FILE
#
# Automatically generated by config/gen/core_pmcs.pm

package Parrot::PMC;

use strict;
use w <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	12	118	
==>T THIS FILE
#
# Automatically generated by config/gen/core_pmcs.pm

package Parrot::PMC;

use strict;
use w <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	2517	2639	
==>file $file: $!";
    while ( my $line = <IN>) {
        if ($line =~ m/^#define/) {
            $line =~ s/PREV_OP\s(..?)\s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414653	415205	
==>",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 478,
                  "ARGS" => [
                              "i",
                              "p",
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	741	851	
==>pod'),
        $self->new_item('', 'languages/t/harness'),
        $self->new_section('amber', 'amber.html', '' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497308	497670	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 571,
                  "ARGS" => [
                              "n", <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15350	15459	
==>666
g(4)=12
a=g(5)+0
y=arrfunc(g())

' For loops, by two and backwards
for i = 0 to 10 step 2
	print i,
next i <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	32936	33092	
==>{$c};
    }
    my $cc;
    if ($c =~ /^\d+$/) {	# MMD
	$cc = "-$c";
    }
    else {
	$cc = qq!"$c"!;
    }
    print <<EOC;
	setattribute $obj->[1], $cc, $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1295	1450	
==>rent position in Parrot code.

=cut

sub pc
{
    my $self = shift;

    if (@_)
    {
        $self->{PC} = shift;
    }
    else
    {
        return $sel <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	904	1059	
==>rent position in Parrot code.

=cut

sub pc
{
    my $self = shift;

    if (@_)
    {
        $self->{PC} = shift;
    }
    else
    {
        return $sel <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	1321	1483	
==>~~
1;
__END__

Chole

 * 1 large red onion
 * 2 tomatillos
 * 4 or 5 roma tomatoes (optionally with the pulp discarded)
 * 1 tablespoons chopped ginger root (or mo <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	13091	13228	
==>one
    $P1 = pop op2 # ignore p1, we're discarding it
    inc op1
    goto neg_loop

done:
    .return (op2)
.end

.sub unicode:"monadic: <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	3721	3998	
==>del = "";
	my $quotelike;
	$ldel =~ s/'//g and $qdel .= q{'};
	$ldel =~ s/"//g and $qdel .= q{"};
	$ldel =~ s/`//g and $qdel .= q{`};
	$ldel =~ s/q//g and $quotelike = 1;
	$ldel =~ tr/[](){}<>\0-\377/[[(({{<</ds;
	my $rdel = $ldel;
	unless ($rdel =~ tr/[({</])}>/)
        {
		r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429733	429989	
==>tch_v_ps(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430620	430876	
==>tch_v_ps(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	18017	18153	
==>opsis above, or the source for Pod::Simple::RTF.

Authors of formatter subclasses might find these methods useful to
call on a parser obj <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15574	15695	
==>LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new AssignOp( $parser,
        'result' => $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19327	19448	
==>LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new AssignOp( $parser,
        'result' => $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193533	193632	
==>nterpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) < 0) {\n    {{+={{\@3 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194512	194611	
==>nterpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) < 0) {\n    {{+={{\@3 <==
2	/Users/nnunley/parrot/languages/scheme/Scheme.pm	1140	1248	
==>e;
}


=head2 compile

This is called in schemec.

=cut

sub compile {
  my $self = shift;

  $self->{tokens} <==
2	/Users/nnunley/parrot/lib/Test/More.pm	9292	9458	
==>iven as a
regex reference (i.e. C<qr//>) or (for better compatibility with older
perls) as a string that looks like a regex (alternative delimiters are
currently not s <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2841	2951	
==>'re normalizing the current
    # working dir to be '.'.
    return (defined $rel_path and $rel_path eq '') ? ' <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3485	3633	
==>t;

	$$self{LEX};
}


#################
# Private stuff #
#################


sub _CheckParams {
	my($mandatory,$checklist,$inarray,$outh <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3309	3445	
==>t;

	$$self{LEX};
}


#################
# Private stuff #
#################


sub _CheckParams {
	my($mandatory,$checklist,$inarray,$outh <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	4987	5095	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub new {
  # takes no parameters
  my $class = ref($_[0]) | <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	2366	2456	
==>argument direction
descriptors. Element I<x> is the direction of argument C<< $args->[I<x>] <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30243	30360	
==>ush load type onto the stack types array.
		$pir .= "    stypes = push loadtype\n";

        # Emit code to clone valu <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	36618	36721	
==>ng (i.e. q{string}, qq{string}, etc) can be specified by including the
letter 'q' as a delimiter. Hence: <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11089	11316	
==>MENT_TYPE_PTR = 0x0F
	.const int ELEMENT_TYPE_BYREF = 0x10
	.const int ELEMENT_TYPE_VALUETYPE = 0x11
	.const int ELEMENT_TYPE_CLASS = 0x12
	.const int ELEMENT_TYPE_ARRAY= 0x14
	.const int ELEMENT_TYPE_TYPEDBYREF = 0x16
	.const i <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	6130	6228	
==>STDOUT, '>', File::Spec->devnull) or die "Unable to redirect STDOUT";
select COPYOUT;
$| = 1;

my @ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049634	1050089	
==>bal",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1173,
                  "ARGS" => [
                              "p",
                              "s",
                              "s"
                            ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633161	633557	
==>,
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 709,
                  "ARGS" => [
                              "p",
                              "ic",
                              "p"
                            ],
                  "BODY" => "#line 91 \"src/ops/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11971	12080	
==>self, $uid, $name, $fail) = @_;
    my $fail_label = $self->output_label_use($fail);
    my @ops;
    if (defi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	12637	12746	
==>self, $uid, $name, $fail) = @_;
    my $fail_label = $self->output_label_use($fail);
    my @ops;
    if (defi <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	11704	11864	
==>\n"),
      $self->parse_lines($1)
       if length($1) or length($2)
        or pos($line_group) != length($line_group);
       # I.e., unless it's a zero-lengt <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	1599	1735	
==>p('Documentation', '',
            $self->new_item('', 'tools/dev/extract_file_descriptions.pl'),
            $self->new_item('', 'tools/ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	287	400	
==>l "use warnings";

package Jako::Construct::Block::Module;

use Carp;

use Jako::Compiler;

use base qw(Jako::Cons <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	1483	1634	
==>_tag_comment;

    return 1;
}

=item C<do_middle()>

Does the middle of the document. This splits up the long C<do_middle()>
method in C<Pod:Simple::HT <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063306	1063419	
==>],
                  "BODY" => "#line 253 \"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064176	1064289	
==>],
                  "BODY" => "#line 253 \"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	17243	17463	
==>>diag(sprintf <<DIAGNOSTIC, $got, $type, $expect);
    %s
        %s
    %s
DIAGNOSTIC
}

=item B<BAILOUT>

    $Test->BAILOUT($reason);

Indicates to the Test::Harness that things are going so badly all
testing should te <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	11184	11279	
==>t_name, $body, $args, $argdirs, $line, $file, $labels, $flags, $nolines)>

Returns a new C<Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960694	960963	
==>YPE" => "function",
                  "CODE" => 1081,
                  "ARGS" => [
                              "s",
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 595 \"src/ops/st <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1156	1350	
==>0]{'Thispara'} = '' }

sub start_head1 {
  if($_[0]{'Errata_seen'}) {
    $_[0]{'Thispara'} = '';
  } else {
    if($_[1]{'errata'}) { # start of errata!
      $_[0]{'Errata_seen'} = 1;
      $_[ <==
2	/Users/nnunley/parrot/config/auto/aio.pm	130	257	
==>1 NAME

config/auto/aio.pm - Test for AIO

=head1 DESCRIPTION

Determines whether the platform supports AIO.

=cut

package auto <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	337886	338111	
==>> "inline",
                  "CODE" => 395,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 103 \"src/ops/io.ops\"\n  {{\@1}} = PIO_STDIN(inter <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	12969	13073	
==>todo, Str :$depends) returns Bool`

These functions both take blocks of code, run the code, and test whet <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5203	5466	
==>ENTS}})
    {
        push @contents, 
            $self->file_paths_relative_to_source($source, $content);
        
    }
    
    return @contents;
}

=item C<file_paths_relative_to_source($source, $path)>

If C<$path> is an immediate subdirectory of C<$source>, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	10824	10937	
==>$rx_pos, $rx_stack) = @_;');
#    }

    if ($self->{DEBUG}) {
        push @ops, qq(print "Calling $name at \$rx_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34395	34546	
==>g '=item * Foo' tolerance hack.\n";
              push @$para, delete $para->[1]{'~_freaky_para_hack'};
            }

          } elsif($item_type eq ' <==
2	/Users/nnunley/parrot/config/auto/pack.pm	1437	1613	
==>my $test = eval { pack $format, 0 };
        unless (defined $test) {
            warn <<"AARGH"
Configure.pl:  Unable to find a functional packtype for $_.
               '$for <==
2	/Users/nnunley/parrot/config/auto/jit.pm	17	105	
==>001-2006, The Perl Foundation.
# $Id: /parrot/config/auto/jit.pm 20320 2006-06-20T19:26:3 <==
2	/Users/nnunley/parrot/config/auto/gc.pm	266	385	
==>ure.pl>
and sets the memory allocator accordingly.

C<--gc> can take the values:

=over

=item C<gc>

The default. Use t <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38455	38576	
==>first($text),
					  q{' . $rule->{"name"} .'})
						if defined $::RD_TRACE;
		') . ($::RD_NO_HITEM ? ''
		     : '$item{ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10608	10729	
==>ed
	croak("Error in driver logic. Please, report it as a BUG");

}#_Parse
#DO NOT remove comment

1;

}
#End of i <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10132	10244	
==>ed
	croak("Error in driver logic. Please, report it as a BUG");

}#_Parse
#DO NOT remove comment

1;

}
#End of i <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	29988	30143	
==>l
# Functions|perlfunc>", the name -- also sometimes called the page -- is
# "perlfunc". In "L</CAVEATS>", the name is undef.)
# 

############# The "sectio <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7998	8121	
==>ABEL);
sub output_popindex {
    my $self = shift;

    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7651	7774	
==>ABEL);
sub output_popindex {
    my $self = shift;

    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	49211	49340	
==>ument (delimiter brackets) indicates that only C<'{'> is to be used.
Omitting the third argument (prefix argument) implies optiona <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678954	679198	
==>=> 761,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 483 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_string(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39252	39380	
==>meth;
    my $delegate_meth = "PARROT_VTABLE_${umeth}_METHNAME";
    # I think that these will be out by one - NWC
    my $l = $s <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	8729	8879	
==>rans->run_core_finish($base);
}


#
# reset #line in the SOURCE file.
#

close(SOURCE);
open(SOURCE, "<$source") || die "Error re-reading $source: $!\n <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1157	1441	
==>ed ops: $I5\n"; # print  "Estimated ops: "
                              # print  I5
                              # print  "\n"
                              #
$N1 = time_hires();           # time N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1157	1441	
==>ed ops: $I5\n"; # print  "Estimated ops: "
                              # print  I5
                              # print  "\n"
                              #
$N1 = time_hires();           # time N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1675	1791	
==>me = $self->name;

#  printf STDERR "%s: About to copy symbol table to parent block.\n", __PACKAGE__;

  foreach my $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572930	573025	
==>.ops\"\n  PMC *name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native(inter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573840	573935	
==>.ops\"\n  PMC *name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_native(inter <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28553	28723	
==>peinfo for rule $rule->{'name'}");
		$pir .= "\n" if $pir !~ /\n$/;
		$pir .= "### end typeinfo\n";

		# Does the translator code actually load a value or just give back a <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1800	1946	
==>f->{data};
}

=item * C<options()>

Provides access to a L<Parrot::Configure::Data> object intended to contain CLI
option data.

Accepts no argumen <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	711	823	
==>ich qq[] treats as escape sequences.
# Config stuff
our $CC = qq[/usr/bin/gcc-4.0 -c];
our $LD = qq[c++];
our $LD <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	715	827	
==>ich qq[] treats as escape sequences.
# Config stuff
our $CC = qq[/usr/bin/gcc-4.0 -c];
our $LD = qq[c++];
our $LD <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10021	10126	
==>$stack[-1][0]]{ACTIONS}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Pop state $$s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9573	9675	
==>$stack[-1][0]]{ACTIONS}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Pop state $$s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23153	23277	
==>equire_value);

        $self->require_close_paren;
      }

      $self->require_semicolon;
      
      my $goto = Jako::Co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957506	957604	
==>AL n = Parrot_encoding_number(interpreter, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958411	958509	
==>AL n = Parrot_encoding_number(interpreter, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	1533	1844	
==>'.bc', $count );
            Parrot::Test::write_code_to_file( $code, $lang_fn );
        }

        # set a TODO for Test::Builder to find
        my $skip_why = $self->skip_why( \%options );
        if ( $skip_why ) {
            $self->{builder}->skip( $skip_why );
        } else {
            # STDERR is wr <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	32360	32532	
==>_} = sub {
    # We don't want to muck with death in an eval, but $^S isn't
    # totally reliable.  5.005_03 and 5.6.1 both do the wrong thing
    # with it.  Instead, we u <==
2	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	1166	1447	
==>d, 
						    CD     => $self->{relpath},
						    STDOUT => $out_f, 
						    STDERR => $out_f );
  $diag .= "'$cmd' failed with exit code $parrot_exit_code." if $parrot_exit_code;
  $self->{builder}->diag( $diag ) if $diag;
  
  return Parrot::Test::slurp_file($out_f);
}


=hea <==
2	/Users/nnunley/parrot/languages/javascript/bootstrap.pm	22	123	
==>se strict;

use JavaScript;

my $runtime = new JavaScript::Runtime;
my $context = $runtime->create_con <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218895	219189	
==>@2}}) > 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219874	220168	
==>@2}}) > 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/lib/Test/More.pm	9744	9840	
==>unlike( $this, qr/that/, $test_name );

Works exactly as like(), only it checks if $this B<does n <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10911	11026	
==>d undefines it.

Raises an exception if the delete fails.

=cut

sub delete
{
    # Use $_[0] so that we can undef t <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4745	4860	
==>d undefines it.

Raises an exception if the delete fails.

=cut

sub delete
{
    # Use $_[0] so that we can undef t <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	2702	2800	
==>($time)>

Use this to find out whether the file has been modified since the
specified time. C<$time <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548213	548485	
==>>0) {\n    q = q*i;\n    i--;\n  }\n  {{\@1}} = q;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549120	549392	
==>>0) {\n    q = q*i;\n    i--;\n  }\n  {{\@1}} = q;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1477	1575	
==>S elsewhere this macro should (again)
 * be in includes/parrot/event.h
 *
 * This gives +50 % perfo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103936	1104023	
==>type) {\n\t\tParrot_autoload_class(interpreter, class);\n\t\ttype = pmc_type(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105151	1105238	
==>type) {\n\t\tParrot_autoload_class(interpreter, class);\n\t\ttype = pmc_type(interpreter <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22194	22298	
==>ass;
}

sub code($$$$)
{
	my ($self, $namespace, $rule) = @_;
	
'
		' . ($self->{"lookahead"} ? '$_savete <==
2	/Users/nnunley/parrot/config/auto/readline.pm	1015	1141	
==>', libs => 'readline.lib');
        }
    } else {
        $conf->data->add(' ', libs => '-lreadline');
    }

    my $osname = <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	661	889	
==>();
$rules_file = shift @ARGV;
usage() if !$rules_file || @ARGV;

# Attempt to laod stack to register mapping module.
require "SRM/$srm_module.pm";
my $srm = "SRM::$srm_module"->new();

# Ensure rules file exists and parse it.
my <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571815	572098	
==>653,
                  "ARGS" => [
                              "i",
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 223 \"src/ops/object.ops\"\n    PMC *class = Parrot_class_lookup_p(interpreter <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	3247	3380	
==>"END_PIR"            # signum
    $N100 = %1
    $I100 = cmp_num $N100, 0.0
    %1 = $I100
END_PIR
    $P0[unicode:"monadic:\x{f7}"] = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	413734	414069	
==>YPE" => "function",
                  "CODE" => 477,
                  "ARGS" => [
                              "i",
                              "p",
                              "ic",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 557 \"src/op <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	7801	7912	
==>ed.
    open  OLDOUT, ">&STDOUT" or die "Can't save     stdout" if $out;
    open  OLDERR, ">&STDERR" or die "Ca <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7852	7961	
==>ed.
    open OLDOUT, ">&STDOUT" or die "Can't save     stdout" if $out;
    open OLDERR, ">&STDERR" or die "Ca <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907132	907411	
==>" => [
                              "s",
                              "p",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 262 \"src/ops/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_str <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	23837	23943	
==>$/) {
			$out =  "    \${I_ARG_$arg_num} = bc.read_int8()\n    next_pc += 1\n";
			$arg_name = "I_ARG_$arg_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	23851	23961	
==>=  "    \${I_ARG_$arg_num} = bc.read_int8()\n    next_pc += 1\n";
			$arg_name = "I_ARG_$arg_num";
		}

		# uin <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5256	5450	
==>{
            print {$FH} "(";
            my $first = 1;
            foreach ( @{ $op->{result} } ) {
                print {$FH} ", " unless ($first);
                print {$FH} "$_->{sym <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6288	6482	
==>{
            print {$FH} "(";
            my $first = 1;
            foreach ( @{ $op->{result} } ) {
                print {$FH} ", " unless ($first);
                print {$FH} "$_->{sym <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	1549	1830	
==>"double",
       t => "char *",
       v => "void",
       J => "Interp *",
       P => "PMC *",
       O => "PMC *",      # object
       S => "STRING *",
       I => "INTVAL",
       N => "FLOATVAL",
       b => "void *",
       B => "void **",
       L => "long *",
       T => " <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7426	7680	
==>);
          next;
        }
        DEBUG and print "    raw text ", $next->text, "\n";
        printf $fh "\n" . $next->text . "\n";
        next;
       
      } else {
        if( $tagname =~ m/^over-(.+)$/s ) {
          push @stack, $1;
        } el <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9671	9898	
==>);
          next;
        }
        DEBUG and print "    raw text ", $next->text, "\n";
        printf $fh "\n" . $next->text . "\n";
        next;
      }

      defined($scratch = $self->{'Tagmap'}{$tagname}) or next;
      $ <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2410	2496	
==>ops.pasm>,
F<examples/mops/mops.c>,
F<examples/mops/mops.cs>,
F<examples/mops/mops.il>, <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	2410	2496	
==>ops.pasm>,
F<examples/mops/mops.c>,
F<examples/mops/mops.cs>,
F<examples/mops/mops.il>, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147944	148213	
==>"TYPE" => "function",
                  "CODE" => 180,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 98 \"src/ops/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732221	732494	
==>)({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732967	733240	
==>)({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38157	38294	
==>cDescent::_tracefirst($text),
						  q{' . $rule->{"name"} .'})
							if defined $::RD_TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		P <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6431	6537	
==>ocess_item_text_or_head_start_token
{
    my $self = shift;
    my $token = shift;
    my $tagname = $token <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4100	4228	
==>or {
	print "Parse error.\n";
}

sub _DBLoad {
	{
		no strict 'refs';

			exists(${__PACKAGE__.'::'}{_DBParse})#Already l <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3893	4013	
==>or {
	print "Parse error.\n";
}

sub _DBLoad {
	{
		no strict 'refs';

			exists(${__PACKAGE__.'::'}{_DBParse})#Already l <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	5119	5232	
==>ocess_file_start_token
{
    my $self = shift;
    my $token = shift;
    my $tagname = $token->tagname;
    my $n <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	10209	10317	
==>Spec->curdir(), 'parrot' . $PConfig{exe});

    my %parrot_test_map = (
        pbc_output_is      => 'is_eq' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104060	1104154	
==>\treal_exception(interpreter, NULL, NO_CLASS,\n\t\t\t\t\"Class '%Ss' not found\", class);\n\t{{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105275	1105369	
==>\treal_exception(interpreter, NULL, NO_CLASS,\n\t\t\t\t\"Class '%Ss' not found\", class);\n\t{{ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	28523	28692	
==>ack));
        } else {
            return ($lastback, $self->rewrite_other($op, $lastback));
        }
    } elsif (UNIVERSAL::isa($op, "Regex::Ops::List")) {
        re <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	712	803	
==>efined $right;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Bl <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	724	815	
==>efined $right;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Bl <==
2	/Users/nnunley/parrot/config/inter/ops.pm	542	689	
==>my @ops = (
        sort {
            if ($a =~ /core\.ops/) { return -1 }
            if ($b =~ /core\.ops/) { return 1 }
            return ($a c <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2839	3059	
==>e$number" ], 'asm_op');
}

############################################################################
# OPTIMIZATION INFORMATION
#
# All of this is only for computing information that may be useful in
# optimizing gener <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5947	6140	
==>RGS" => [
                              "s"
                            ],
                  "BODY" => "#line 144 \"src/ops/core.ops\"\n    Parrot_load_bytecode(interpreter, {{\@1}});\n    {{+=2 <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	11498	11624	
==>or _match_codeblock($textref, "", '\{', '\}', '\{', '\}', 0)
		or $deref eq '$#' or $deref eq '$$' )
	    {
		_failmsg "Bad ide <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	8745	8967	
==>> 'OR',
        'repeat'   => 'REPEAT',
        'return'   => 'RETURN',
        'then'     => 'THEN',
        'true'     => 'TRUE',
        'until'    => 'UNTIL',
        'while'    => 'WHILE',
    );

    $parser- <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5678	5768	
==>}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method_info_from_token(${ASSEMBLY}, ${ARG0})

# If th <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7898	7988	
==>}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method_info_from_token(${ASSEMBLY}, ${ARG0})

# If th <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	909740	910227	
==>:base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1025,
                  "ARGS" => [
                              "i",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 284 \"src/ops/string.o <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7983	8131	
==>ck,-$len,$len);

                $$check eq 'ACCEPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Accept.\n";

				re <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7625	7765	
==>ck,-$len,$len);

                $$check eq 'ACCEPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Accept.\n";

				re <==
2	/Users/nnunley/parrot/Configure.pl	8456	8579	
==>ello, I'm Configure. My job is to poke and prod your system to figure out
how to build Parrot. The process is completely aut <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1778	1873	
==>= File::Spec->catfile(
    $path_to_parrot, 'parrot' . $PConfig{exe}
);

my $perl6 = File::Spec- <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	377	633	
==>nfigure::Step::Base);

use Parrot::Configure::Step ':gen';

$description = 'Generating makefiles and other build files';

@args = ();

sub runstep
{
    my ($self, $conf) = @_;

    $self->makefiles($conf);
    $self->cflags($conf);

    return $self;
}

su <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	7401	7534	
==>g',
      Attributes => {
        type => $arg_type_name,
        name => $arg_name
      }
    });
    $handler->end_element({ Name = <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	4417	4602	
==>d_name == \"$_->{'method'}\" goto $label\n";
        }
        $pir .= "goto FAIL\n";
    }

    # Add failure.
    $pir .= <<'PIR'
FAIL:
    $P0 = new .Exception
    $P0["_message"] = " <==
2	/Users/nnunley/parrot/examples/benchmarks/oo5.pl	220	362	
==>, $self;
}

sub i {
    my $self = shift;
    if (@_) { $self->[0] = shift } else { $self->[0] }
}

sub j {
    my $self = shift;
    if (@_) { <==
2	/Users/nnunley/parrot/examples/benchmarks/oo6.pl	212	354	
==>, $self;
}

sub i {
    my $self = shift;
    if (@_) { $self->[0] = shift } else { $self->[0] }
}

sub j {
    my $self = shift;
    if (@_) { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938534	938630	
==>Y" => "#line 481 \"src/ops/string.ops\"\n    {{\@1}} = string_join(interpreter, {{\@2}}, {{\@3}}) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939424	939520	
==>Y" => "#line 481 \"src/ops/string.ops\"\n    {{\@1}} = string_join(interpreter, {{\@2}}, {{\@3}}) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	47198	47328	
==>, "pie" ],
  #            "!"
  #       ]
  
  my($self, $para, $start_line) = @_;
  my $treelet = ['~Top', {'start_line' => $start <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1091711	1091957	
==>,
                              "p",
                              "kc",
                              "ic"
                            ],
                  "BODY" => "#line 191 \"src/ops/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(in <==
2	/Users/nnunley/parrot/config/gen/config_pm.pm	1043	1182	
==>IN>) {
	if (/<<HERE>>/) {
       	    s/<<HERE>>/$data->dump()/e;
	    s/(\$\(([A-Za-z_]+)\))/$data->get(lc $2) || $1/eg;
	}
        print O <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	7788	7961	
==>source_item('', 'cpu_dep'),
        ),
        $self->new_group(
            'Debugging', 
            '',
            $self->c_item(
                '', 
                'pa <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	127	222	
==>nse
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Type/Number. <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20046	20215	
==>081  Australia English
  4105  Canada English
  1034  Spain Spanish
  2058  Mexico Spanish
  1031  Germany German
  1036  France French
  3084  Canada French
  1035  Finn <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897868	898208	
==>,
                  "TYPE" => "inline",
                  "CODE" => 1013,
                  "ARGS" => [
                              "s",
                              "ic",
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	180409	180688	
==>" => 215,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 278 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	8855	9067	
==>ap($_->dump, @to_unget)) : (),
              ") to be keepn'd.\n";
            last; # give up
          }
          # else keep while'ing along
        }
        # Now put it aaaaall back...
        $self->unget_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	1519	1643	
==>"  if defined $block and not (ref $block and $block->isa("Jako::Construct::Block"));
  confess "Extra arguments!" if @_;

  r <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	52501	52607	
==>rod and $prod->additem($item)
				      or  _no_rule("<reject:$code>",$line);
			}
			elsif ($grammar =~ m/ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	15228	15385	
==>e));
}

=item C<append_html_suffix($path)>

Returns C<$path> with and HTML file suffix added.

=cut

sub append_html_suffix
{
    my $self = shift;
    my $pa <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	21953	22095	
==>R;
	new P2, .PerlHash
	P2["name"]= '$_->[0]'
	P2["type"]= '$_->[2]'
	P4= P6["storage"]
	P5= P4["$_->[0]"]
	$val{$_->[2]}= P5["value"]
	P2["valu <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	1855	1965	
==>=> 'Parrot bytecode',
	'pl' => 'Perl script',
	'pm' => 'Perl module',
	'pmc' => 'PMC code',
	'pod' => 'POD docu <==
2	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	356	454	
==>hecking for that line
before rerunning the build script.

=head1 EXAMPLE

See parrot/config/gen/mak <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6820	6911	
==>pan.org>

=head1 SEE ALSO

F<docs/configuration.pod>, L<Parrot::Configure>, L<Parrot::Config <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	2107	2198	
==>pan.org>

=head1 SEE ALSO

F<docs/configuration.pod>, L<Parrot::Configure>, L<Parrot::Config <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	1005	1191	
==>tatic_cmds{$cmd};
    
    print <<"END_PIR";
.sub "&$cmd"
  .param pmc argv :slurpy
  .local pmc inlined, pir_compiler, invokable
  .get_from_HLL(inlined, '_tcl';'builtins', '$cmd')
  .l <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	26087	26297	
==>arning =~ /Odd number of elements in hash assignment/) {
        require Carp;
        my @args = DB::uplevel_args();
        shift @args;
        my $func = ( caller() )[2];

        Carp::carp(
            "Od <==
2	/Users/nnunley/parrot/lib/Test/More.pm	14899	14997	
==>oesn't work out
that way.  So here we have ways for you to write your own diagnostic
messages which <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	14952	15166	
==>$parrot $args "$code_f"},
                        qq{$parrot "$pbc_f"},
                    ];
                } else {
                    $cmd = qq{$parrot $args "$code_f"};
                }
                $exit <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	8635	8741	
==>}
    print SOURCE $op_funcs[$i];
}

if ($trans->can("run_core_finish")) {
    print SOURCE $trans->run_cor <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	1252	1358	
==>hift; # Required: string (TODO: domain?)
  my $type   = shift; # Optional: TODO: type?
  my $prefix = shift <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947091	947187	
==>erpreter, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\"charset '%Ss' no <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947993	948089	
==>erpreter, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\"charset '%Ss' no <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607031	607551	
==>,
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 688,
                  "ARGS" => [
                              "p",
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 473 \"src/ops/object <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607934	608295	
==>,
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 689,
                  "ARGS" => [
                              " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572872	572990	
==>],
                  "BODY" => "#line 242 \"src/ops/object.ops\"\n  PMC *name = pmc_new(interpreter, enum_class_String) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573782	573900	
==>],
                  "BODY" => "#line 242 \"src/ops/object.ops\"\n  PMC *name = pmc_new(interpreter, enum_class_String) <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	1192	1420	
==>a' ? '.orig_out' : '.parrot_out', $count );
        my $test_prog_args = $ENV{TEST_PROG_ARGS} || q{};
        my @test_prog;
        if ( $lua_test eq 'lua' ) {
            @test_prog = (
                "$ENV{PARROT_LUA_TES <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608838	609164	
==>,
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 690,
                  "ARGS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609745	610042	
==>,
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 69 <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	4521	4618	
==>runs the C code, passing the test if a string comparison of
output with the expected result it tru <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	407	491	
==><tools/build/vtable_h.pl>, F<tools/dev/gen_class.pl>, and
F<src/pmc/null.pl>.

=head2 <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	782	906	
==>de absolute.

=cut

sub new
{
    my $self = ref $_[0] ? ref shift : shift;
    my $path = shift;
    
    return unless defi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216931	217029	
==>1}}->vtable->get_number(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217871	217969	
==>1}}->vtable->get_number(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n", <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	321	493	
==>tx->{rx_pos} ||= '$rx_pos';
    $ctx->{rx_len} ||= '$rx_len';
    $ctx->{rx_input} ||= '$rx_input';
    $self->SUPER::init_context($ctx);
}

sub value {
    my $name = shift <==
2	/Users/nnunley/parrot/lib/Test/More.pm	20651	20798	
==>ur plan is C<no_plan> $how_many is optional and will default to 1.

It's perfectly safe to nest SKIP blocks.  Each SKIP block must have
the label C< <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	7041	7156	
==>r_functions);

sub gen_code {
    $cur_func = 'test::main';
    print <<EOC;
.sub $cur_func :main
    .param pmc sys <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	341	472	
==>Step::Base> module contains utility methods that
should be inherited by all configuration steps.

=head1 USAGE

=head2 Import Parame <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	20605	20699	
==>t->no_header($no_header);

If set to true, no "1..N" header will be printed.

=item B<no_ending <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26438	26622	
==>STACK1})
${INS} = concat ${STEMP0}
PIR
    }
	
	# Now we split based upon the class.
	# Operations (op class).
	$rule->{'pop'} ||= 0;
	$rule->{'push'} ||= 0;
	if ($rule->{'class'} eq 'o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	3880	4043	
==>}};\t/* force this being a branch op */\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARRO <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	418	528	
==>_pl.in>.  This script is used for building
dynamic PMCs.

=cut

use strict;

use File::Copy qw(copy);

# qq[] i <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	52311	52467	
==>],
	[#Rule 51
		 'namelist', 3,
sub
#line 306 "Lua\lua51.yp"
{
            [
                @{ $_[1] },
                BuildLocalVariable( $_[0], $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1831	1924	
==>m. This default implementation raises an exception indicating
that the core type is missing. S <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3367	3467	
==>XXX This should be "print the last command". Which is harder.
        $body =~ s/^(\s*)([^\n]+)\s*\Z/ <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4774	4874	
==>XXX This should be "print the last command". Which is harder.
        $body =~ s/^(\s*)([^\n]+)\s*\Z/ <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	1512	1675	
==>ps] = {\n";
    $func_end = '_jit';
    $normal_op = 'Parrot_jit_normal_op';
    $cpcf_op = 'Parrot_jit_cpcf_op';
    $restart_op = 'Parrot_jit_restart_op';
    %ar <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227433	227698	
==>preter, {{\@1}}), {{\@2}}) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228413	228678	
==>preter, {{\@1}}), {{\@2}}) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	10450	10700	
==>een_op = 0;

            next;
        }

        #
        # Accumulate the code into the op's body:
        #

        if ($seen_op)
        {
            $body .= $_;
        }
        else
        {
            die "Parrot::OpsFile: Unrecognized l <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9261	9475	
==>ct Hello A World
print "Hello " + chr$(65);
print " World"

' Expect 21 and "Correct"
print 1+int(20)
if t = 6 then 
	print "Hi"
elseif t=1 then
	print "Wrong"
else
	print "Correct"
end if
if p$ = "Hello" then print <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	4741	4954	
==>ndef,
             'i_ndbm' => 'define',
             'i_netdb' => 'define',
             'i_neterrno' => undef,
             'i_netinetin' => 'define',
             'i_netinettcp' => 'define',
             'i_poll <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	3570	3748	
==>nadic:\u2308"] =  <<"END_PIR"            # ceiling
    $N100 = %1
    $I100 = ceil $N100
    %1 = $I100
END_PIR

    $P0[unicode:"monadic:\u230a"] =  <<"END_PIR"            # floo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832655	832872	
==>" => 942,
                  "ARGS" => [
                              "nc"
                            ],
                  "BODY" => "#line 192 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ct <==
2	/Users/nnunley/parrot/config/gen/config_h.pm	205	300	
==>ON

Generates F<include/parrot/config.h> with platform-specific configuration
values, F<include/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026237	1026589	
==>i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1147,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 280 \"src/ops/sys.ops\"\n   {{\@1}} = sysinfo_i(interpreter, {{\@2}});\n   {{+= <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	14249	14379	
==>s) {
        my $proto = join ', ', map { $proto_type_ref->{$_} } split( '', $params );
        # This is an after-the-fact hack: r <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	11503	11607	
==>e element.

=over 4

=item Scalar (C<'$'> or C<'*$'>)

The element is a scalar, and by default is initial <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	1370	1489	
==>w/lib');
            $conf->data->add(' ', ldflags   => '-L/sw/lib');
            $conf->data->add(' ', ccflags   => '-I <==
2	/Users/nnunley/parrot/config/auto/readline.pm	1459	1578	
==>w/lib');
            $conf->data->add(' ', ldflags   => '-L/sw/lib');
            $conf->data->add(' ', ccflags   => '-I <==
2	/Users/nnunley/parrot/lib/Test/More.pm	2711	2807	
==>ile you can do almost anything with a simple
C<ok()> function, it doesn't provide good diagnostic <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	2544	2709	
==>p('atend') ]);
}

sub convert_rx_charclass {
    die "unimplemented charclass";
}

sub convert_rx_oneof {
    die "unimplemented enumerated charclass";
}

sub convert <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	775	888	
==>e prefix that will be used for block-related labels. For
example, B<while> loops have labels related to the loop c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	230742	231184	
==>S" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 269,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 592 \"src/ops/cmp <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	1250	1434	
==>ses name.

=cut

sub set_result
{
    my ($self, $result) = @_;

    $self->{result} = $result;

    return $self;
}

=back

=head3 Class Methods

=over 4

=item * C<description()>

Acc <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	5170	5347	
==>atch = $token->text);
        print $fh $scratch;
        next;
      }

      DEBUG > 1 and print "  $type " , $token->text, "\n";
      
      $scratch = $token->text;
      $s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648633	649082	
==>find_type",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 725,
                  "ARGS" => [
                              "i",
                              "k"
                            ],
                  "BODY" => "#line 234 \"src/ops/pmc.ops\"\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826563	826662	
==>ception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_FLOAT) {\n    internal_e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827633	827732	
==>ception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_FLOAT) {\n    internal_e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9060	9161	
==>fe->offset;\n        Parrot_switch_to_cs(interpreter, fe->seg, 1);\n    }\n    string_cstring_free(lab <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10176	10277	
==>fe->offset;\n        Parrot_switch_to_cs(interpreter, fe->seg, 1);\n    }\n    string_cstring_free(lab <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	779262	779559	
==>set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 880 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781080	781544	
==>set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 882,
                  "ARGS" => [
                              "p",
                              "kic",
                              "s"
                            ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	987	1072	
==>opcode_t*)cur_opcode - (opcode_t*)interpreter->code->prederef.code))
#define CUR_OPCOD <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1117	1202	
==>opcode_t*)cur_opcode - (opcode_t*)interpreter->code->prederef.code))
#define CUR_OPCOD <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	33580	33781	
==>'{}()[]E<lt>E<gt>'> (see below).

C<extract_bracketed> extracts a balanced-bracket-delimited
substring (using any one (or more) of the user-specified delimiter
brackets: '(..)', '{..}', '[..]', or '<..> <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	6945	7099	
==>) {
			push @stack, $item;
			next;
		}
		if ($sym eq ")") {
			push @stream, pop @stack
				while(@stack and $stack[-1]->[0] ne "(");
			pop @stack;
			ne <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783808	784207	
==>set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 885,
                  "ARGS" => [
                              "p",
                              "ki", <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5273	5396	
==>teral->new($block, $self->require_literal);
        }

        $props{$prop} = $value;
      }

      $self->require_open_br <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	267788	268269	
==>{{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isfalse",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	268552	268857	
==>{{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isgt",
                  "FLAGS" <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28183	28272	
==>tsep||"").$text;
			}'.($::RD_NO_TRACE?'':'
			Parse::RecDescent::_trace(q{<<Didn\'t match <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32458	32547	
==>tsep||"").$text;
			}'.($::RD_NO_TRACE?'':'
			Parse::RecDescent::_trace(q{<<Didn\'t match <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	759	895	
==>e_prefix()>

The core prefix is C<'cgp_'>.

=cut

sub core_prefix
{
    return "cgp_";
}

=item C<defines()>

Returns the C C<#define> ma <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	3501	3725	
==>>SYNTAX_ERROR("Can't do arithmetic on PMCs") if UNIVERSAL::isa($right_type, 'Jako::Construct::Type::PMC');

  my $calc_type = $left_type;
  $calc_type = $right_type if UNIVERSAL::isa($right_type, 'Jako::Construct::Type::Numbe <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35221	35347	
==>: [}
					. $_tok . q{]},
					  
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{"name"} .'})
						if defi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2765	2896	
==>ompile($compiler);
      $compiler->emit("  $temp = $value");
      $args[$i] = $temp;
    }
    else {
      $args[$i] = $args[$i]- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2465	2596	
==>ompile($compiler);
      $compiler->emit("  $temp = $value");
      $args[$i] = $temp;
    }
    else {
      $args[$i] = $args[$i]- <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	6110	6199	
==>ft->_accept_directives('Data',     @_) }
sub accept_directive_as_processed { shift->_accep <==
2	/Users/nnunley/parrot/config/gen/platform.pm	894	1110	
==>, $Config{archname}))[0] eq 'ia64') {
        $platform = 'ia64';
    }

    $platform = 'generic' unless -d "config/gen/platform/$platform";

    print " platform='$platform' " if $verbose;

    my $generated = $conf <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	1479	1638	
==>[1]";
			eval { substr($$textref,$remainderpos,0) = $extra;
			       substr($$textref,$extrapos,$extralen,"\n")} ;
				#REARRANGE HERE DOC AND FILLET IF POSSIB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	526269	526565	
==>ops/math.ops\"\n  {{\@1}} = acos(((FLOATVAL)1) / ((FLOATVAL){{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2944	3188	
==>timFormatted');
  $new->accept_codes(@_to_accept);
  DEBUG > 2 and print "To accept: ", join(' ',@_to_accept), "\n";
  
  $new->{'Tagmap'} = {%Tagmap};
  return $new;
}

sub run {
  my $self = $_[0];
  return $self->do_middle if $self->bare_outp <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4533	4647	
==>_decl($base_suffix)>

Returns the C code for the ops address declaration.

=cut

sub ops_addr_decl
{
    my ($self, <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5	108	
==>arser.pm
#
# Copyright (C) 2001-2005, The Perl Foundation.
# This program is free software. It is subjec <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	209	313	
==>ited);
use Math::BigInt;
use Getopt::Long;
use strict;

my $outfile = 'all_cstring.str';
my $string_priva <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37160	37294	
==>y ($self, $namespace, $rule) = @_;
	
	my ($subrule, $repspec, $min, $max, $lookahead) =
		@{$self}{ qw{subrule repspec min max lookahea <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	355	449	
==>ep::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining if your C compile <==
2	/Users/nnunley/parrot/config/auto/msvc.pm	375	469	
==>ep::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining if your C compile <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	30634	30783	
==>( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $lbl_end;
            }
        } <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	35181	35330	
==>( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $lbl_end;
            }
        } <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	5093	5238	
==>dbm' => undef,
             'i_setjmp' => 'define',
             'i_sfio' => undef,
             'i_sgtty' => undef,
             'i_shadow' => un <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	4998	5171	
==>R') {
		$DataR{$s} = $o;
	    }
	} elsif ($v eq 'U') {
	    $Undef{$s} = $o;
	}
    }
    close(NM);
} else {
    die "$0: nm.pl -Bgo '$Obj': $!\n";
}
for my $api (keys %API) <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27605	27733	
==>CTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 139,
			'functioncall' => 31,
			'function' => 26,
			'table <==
2	/Users/nnunley/parrot/languages/regex/regex.pl	1577	1766	
==>age eq 'pir') {
  $options{module} = "Regex::CodeGen::IMCC";
} elsif ($language eq 'perl5') {
  $options{module} = "Regex::CodeGen::Perl5";
} else {
  die "unknown language '$language'\n";
} <==
2	/Users/nnunley/parrot/config/auto/msvc.pm	744	890	
==>ram: $!";
    cc_clean();

    # Set msvcversion to undef.  This will also trigger any hints-file
    # callbacks that depend on knowing whether or <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3296	3511	
==>y_CALL'],
  ['',            'set', 'P17', 'P16'],
  ['apply_COUNT', 'ne', 'I16', '.Undef', 'apply_ARRAY'],
  ['',            'inc', 'I2'],
  ['',            'set', 'P17', 'P17[1]'],
  ['',            'typeof', 'I16', <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38601	38833	
==>0} split / /, $parameters;
    my $arg = '';
    $arg = ", ". join(' ', @args) if @args;
    my $sig = $self->signature($parameters);
    $sig = $self->trans($method->{type}) . $sig;
    my $ret = '';
    my $ret_def = '';
    my $fu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210210	210301	
==>"#line 408 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->ge <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211190	211281	
==>"#line 408 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->ge <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	2262	2443	
==>aming them
    for my $stmt (@$ops) {
	if (ref $stmt && $stmt->{name} eq 'LABEL') {
	    push @equivs, $stmt;
	} else {
	    if (@equivs) {
		my $megalabel = $self->combineLabels(@eq <==
2	/Users/nnunley/parrot/languages/regex/test.pl	1557	1726	
==>s of perl provide Getopt::Long as a builtin?
foreach (@ARGV) {
    if (/^(-h|--help)$/) {
        usage(0);
    } elsif (/^(-c|--compile)$/) {
        $compile = 1; # Com <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717284	717526	
==>IO_softspace(interpreter, io, 0);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_item",
                  "FLAGS" => ":bas <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4584	4697	
==>$self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If the destination is not going to be a register, the tra <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4015	4118	
==>e eq 'linklibs') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_an <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4119	4222	
==>e eq 'linklibs') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_an <==
2	/Users/nnunley/parrot/config/auto/gdbm.pm	871	1036	
==>= $Config{osname};

    # On OS X check the presence of the gdbm header in the standard
    # Fink location. TODO: Need a more generalized way for finding
    # where <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931952	932224	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_cor <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932723	932995	
==>BELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_cor <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	2862	2981	
==>$$)
{
	my $textref = defined $_[0] ? \$_[0] : \$_;
	my $wantarray = wantarray;
	my $del  = defined $_[1] ? $_[1] : qq{\' <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	1232	1348	
==>'),
            $self->new_item('Where to find or put things that need doing in Parrot.', 'TODO'),
            $self- <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9514	9647	
==>scard it
		and	do {
				$$token eq ''	# End of input: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	print STDERR "**At e <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9086	9214	
==>scard it
		and	do {
				$$token eq ''	# End of input: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	print STDERR "**At e <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	15735	15839	
==>es from the PMC file.
    $cout .= $self->line_directive($method->{line}, $self->{file});
    $cout .= "{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2064	2180	
==>'Indent'} }
sub   end_over_text    { --$_[0]{'Indent'} }
sub   end_over_block   { --$_[0]{'Indent'} }


# . . . . . N <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1632	1748	
==>'Indent'} }
sub   end_over_text    { --$_[0]{'Indent'} }
sub   end_over_block   { --$_[0]{'Indent'} }


# . . . . . N <==
2	/Users/nnunley/parrot/config/auto/headers.pm	2509	2695	
==>n() =~ /^$header OK/) {
                $pass = 1;
                push @found_headers, $header;
            }
            cc_clean();
            last if $pass;
        }

        my $fl <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	987	1100	
==>tall_parrot);

$mini_parrot = 1    if @ARGV && $ARGV[0] =~ /mini/;
$install_parrot = 1 if @ARGV && $ARGV[0] =~ /in <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	14658	14756	
==>ample, a version of like(), sans the useful diagnostic messages,
could be written as:

  sub laconi <==
2	/Users/nnunley/parrot/config/inter/libparrot.pm	633	829	
==>@args = qw(ask parrot_is_shared);

sub runstep {
    my ($self, $conf) = @_;
    my $parrot_is_shared = $conf->options->get('parrot_is_shared');

    $parrot_is_shared =
        integrate($c <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16829	16957	
==>&#'.(ord($1)).';'/eg;
        # Leave out "- so that "--" won't make it thru in X-generated comments
        #  with text in them <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10273	10393	
==>&#'.(ord($1)).';'/eg;
    # Leave out "- so that "--" won't make it thru in X-generated comments
    #  with text in them <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	20637	20797	
==>->[2],$code[$code_l]->[4]);
	if ($rest =~ /to (\d+)/) {
	    $targ = "pc_$1";
	}
	$cmt ="\t\t# $opcode\t $rest";
	$code_l++;
	$op = $op_map{$c};
    }
    else { <==
2	/Users/nnunley/parrot/config/auto/isreg.pm	87	180	
==>93 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/isreg - S_ISREG

=head1 DESCR <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	26124	26238	
==>= $_[2];
	my $rdel = $ldel;
	$rdel =~ tr/{[(</}])>/;

	my $mod = $_[3];

	my $desc;

	if ($ldel eq '/') { $desc = " <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	463	574	
==>-----------------------------
{
#
# Module Parse::Yapp::Driver
#
# This module is part of the Parse::Yapp p <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	452	558	
==>-----------------------------
{
#
# Module Parse::Yapp::Driver
#
# This module is part of the Parse::Yapp p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630628	630727	
==>not found\", readable_name(interpreter, class));\n    {{\@1}} = pmc_new(interpreter, type);\n    {{+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631618	631717	
==>not found\", readable_name(interpreter, class));\n    {{\@1}} = pmc_new(interpreter, type);\n    {{+ <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	4555	4692	
==>he labels.

=cut

sub labels
{
    my $self = shift;

    return @{$self->{LABELS}};
}

=item C<flags(@flags)>

=item C<flags()>

Sets/get <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	23881	24065	
==>w_label($parser);
    push @opcodes, new BranchOp( $parser,
        'result' => $lbl2,
    );
    push @opcodes, new LabelOp( $parser,
        'arg1' => $lbl1,
    );
    push @o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569101	569336	
==>RGS" => [
                              "i",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 218 \"src/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	382	489	
==>e qw(Jako::Construct::Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected paren <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	28	148	
==>/Digest/Perl/MD5.pm 4793 2005-05-31T14:22:35.671857Z svm  $

package Digest::Perl::MD5;
use strict;
use integer;
use Expo <==
2	/Users/nnunley/parrot/config/inter/lex.pm	918	1073	
==>t('maintainer')) {
        $conf->data->set($util => 'echo');
        $self->set_result('skipped');
        return $self;
    }

    my $prog;

    # preced <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	915	1070	
==>t('maintainer')) {
        $conf->data->set($util => 'echo');
        $self->set_result('skipped');
        return $self;
    }

    my $prog;

    # preced <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	3738	3852	
==>");
        }
    }
}

sub check_function_definitions {
    # In function definitions, the name starts in column 0, <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1514	1627	
==>ate $filename: $!";

    my $ctx = { };
    my $trees = Regex::expr_to_tree($pattern, $ctx, DEBUG => 0);

    my $ <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	4930	5060	
==>e:
if (! -d $moddir) {
    mkdir($moddir, 0755) or die "$0: Could not mkdir $moddir: $!!\n";
}
open MODULE, ">$module"
  or die "$0 <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	51720	51817	
==>n(q{{bless \%item, $item[0]}},0,-1);
					$self->{_AUTOTREE}{TERMINAL}
						= new Parse::RecDesce <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1134	1275	
==>lang_f",
            CD => '..', # $self->{relpath}, 
            STDOUT => $pasm_f, STDERR => $pasm_f,
        );
        Parrot::Test::run_c <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1043	1184	
==>lang_f",
            CD => '..', # $self->{relpath}, 
            STDOUT => $pasm_f, STDERR => $pasm_f,
        );
        Parrot::Test::run_c <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41191	41288	
==>$self, $name) = splice @_,0,2;

  my $scratch;
  $self->_handle_element_start(($scratch=$name), sh <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86136	86394	
==>E" => "inline",
                  "CODE" => 107,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 1208 \"src/ops/core.ops\"\n  PMC * const com <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10018	10120	
==>,
  123, '{',
  124, '|',
  125, '}',
  126, '~',
);

#------------------------------------------------ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4368	4521	
==>D_C
    }
	$c .= <<END_C;
    } while (1);
    return NULL;
}
END_C

    $c .= " /* " . $self->core_prefix . "$base */\n\n";

    return $c;
}

=back

=he <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	23712	23853	
==>esult' => $lbl1,
        );
    }
    push @opcodes, new AssignOp( $parser,
        'result' => $result,
        'arg1'   => $expr1->[0], <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	306	399	
==>PIR for Tcl commands
my @dynamic_cmds = pir_cmds_in_dir($dynamic_dir);

print <<"END_PIR";

.H <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	3349	3598	
==>$path) = @_;
    my $info = {};
    $info->{path} = $path;
    my $text = `cat $info->{path}`;
    my($top) = $text =~ /^(([^\n]*\n){1,15})/;
    $info->{top} = $top;
    return &describe_c_file($info,$text)
	if $path =~ /\.([chlyC]|cpp|cola|xs|pmc)$ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	11491	11599	
==>y @lines;
  foreach my $line_group (@_) {
    next unless defined $line_group and length $line_group;
    pos <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	12267	12523	
==>$f = shift;
    return $builtin_ops{$f};
}

sub LOAD_GLOBAL {
    my ($n, $c, $cmt) = @_;
    if (is_opcode($c) || $builtins{$c}) {
	return LOAD_NAME(@_);
    }
    my $p;
    if (($p = $globals{$c})) {
	print <<EOC;
	# $p = global "$c" $cmt
EOC
    }
    e <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	904	1198	
==>labels}{'fail'} = $FAIL;
}


sub aop {
    Regex::Ops::List->op(@_);
}

sub genlabel {
    my ($self, $desc) = @_;
    return $self->{state}->genlabel($desc);
}

sub alloc_temp_int {
    my ($self, $name) = @_;
    $name ||= "_temp_int";
    if (exists $self->{_temps}{$name}) {
        $name .= <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	2826	3007	
==>($f) = @_;
    open IN, $f or die "can't read $f: $!";
    @source = <IN>;
    close(IN);
}

my ($code_l, %params, %lexicals, %names, %def_args, %arg_count,
    @code, %globals, %cla <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	15570	15927	
==>rrot/op.h
        or_flag(\$jumps, "PARROT_JUMP_RELATIVE")   if ($branch);
        or_flag(\$jumps, "PARROT_JUMP_ADDRESS")    if ($absolute);
        or_flag(\$jumps, "PARROT_JUMP_POP")        if ($pop);
        or_flag(\$jumps, "PARROT_JUMP_ENEXT")      if ($next);
        # I'm assuming the op branches to the value in the last argument.
        or_flag(\ <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	587	713	
==>do this work B<once> instead of many times, which B<should> make it
easier to inline more builtins accurately.

Currently suppo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	617338	617437	
==>>base_type << 16) | right->vtable->base_type;\n    if (lru->u.type == lr_types) {\nrunit_v_pp:\n\t(( <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2970	3091	
==>hared')) {
            $conf->data->set(libparrot_ldflags => 'libparrot$(A)');
        }

        # 'link' needs to be lin <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	7666	7762	
==>ITIONAL

=head1 AUTHOR

Gregor N. Purdy E<lt>gregor@focusresearch.comE<gt>

=head1 COPYRIGHT

Cop <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819687	819807	
==>ion(99, \"Stack Depth wrong\");\n  }\n  {{\@1}} = get_entry_type(interpreter, entry);\n  {{+=3}};\n",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820647	820767	
==>ion(99, \"Stack Depth wrong\");\n  }\n  {{\@1}} = get_entry_type(interpreter, entry);\n  {{+=3}};\n",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116882	117176	
==>",
                  "CODE" => 145,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 209 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} << {{\@3}};\n <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	1351	1447	
==>ps::Tree);
@Regex::Ops::Tree::group::ISA        = qw(Regex::Ops::Tree::_onearg);
@Regex::Ops::Tre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945389	945479	
==>BODY" => "#line 521 \"src/ops/string.ops\"\n  {{\@1}} = string_copy(interpreter, Parrot_cha <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946199	946289	
==>BODY" => "#line 521 \"src/ops/string.ops\"\n  {{\@1}} = string_copy(interpreter, Parrot_cha <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	8378	8564	
==>ions:
*/

END_C

#
# Finish the SOURCE file's array initializer:
#
my $CORE_SPLIT = 300;
for (my $i = 0; $i < @op_funcs; $i++) {
    if ($i && $i % $CORE_SPLIT == 0 && $trans->can("run_co <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59692	59800	
==>e);
			$aftererror = 0;
		}
		elsif ($grammar =~ m/$ERRORPROD/gco)
		{
			pos($grammar)-=6;
			_parseunneg("a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	424418	424584	
==>"ic"
                            ],
                  "BODY" => "#line 567 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_listen(interpreter, {{\@2}}, {{\@3}});\n    {{ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6486	6608	
==>ift;
    my $token = shift;
    my $tagname = $token->tagname;
    
    print {$self->{'output_fh'}} $self->{'Tagmap'}{$tag <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	5409	5638	
==>params, $k, $v, $params);
    while ( ($k, $v) = each(%{$def_arg_names{$arg}})) {
	$k =~ s/[\*"]//g;
	$params[$v] = $k;
    }
    my $self;
    if ($meth ne '') {
	$self = shift @params;
	#shift @{$def_args{$arg}};
	$arg_count{$ar <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	5332	5431	
==>erl::MD5 'md5_hex';
    print 'Digest is ', md5_hex('foobarbaz'), "\n";

The above example would pri <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	531	634	
==>mated number of ops performed,

=item * the elapsed time, and 

=item * the number of M op/s.

=back

=c <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	534	636	
==>mated number of ops performed,

=item * the elapsed time, and

=item * the number of M op/s.

=back

=c <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7627	7728	
==>IN
oats:
	print "Oats",
	return
peas:
	print "Peas",
	return
beans:
	print "Beans",
	return

' Truth
s <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	773	891	
==>reates a second section, with the heads of any files which had
familiar types, but from which descriptions were not obt <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1108261	1108384	
==>ss_String:\n\t        type = pmc_type(interpreter, PMC_str_val({{\@2}}));\n            if (type <= 0)\n                real_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	5176	5284	
==>ges somewhere URL-accessible.

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

s <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	13304	13436	
==>al stuff emitted.
    ehs = bc.get_eh()
    if null ehs goto NO_EH_HEADER
    i = elements ehs
    gen_pir = concat ".local pmc cur_e <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	3527	3746	
==>tual_output = Parrot::Test::slurp_file( $f_out );

            ## tell Test::Builder if the test is marked TODO
            my $call_pkg = $b->exported_to() || '';
            local *{ $call_pkg . '::TODO' } = \$extra{to <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	5709	5812	
==>am < 2 ) {
    print "WARNING: Switching percentage to time - not enough executables\n";
    $cfg{use_ti <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	8729	8827	
==>s::Tree::nop;
sub minlen { 0 }
sub maxlen { 0 }

package Regex::Ops::Tree::check;
sub minlen { $_[0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139533	140019	
==>=> [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 171,
                  "ARGS" => [
                              "i",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 70 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={ <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	1400	1700	
==>id pointer, taken from the PMC's data pointer. PMC is
assumed to be an unmanagedstruct or child class.

Taken from a P register

=item c

Parameter is a character.

Taken from an I register

=item s

Parameter is a short

Taken from an I register

=item i

Parameter is an int

Taken from an I registe <==
2	/Users/nnunley/parrot/config/inter/charset.pm	744	858	
==>', grep { defined $_ } @charset);

    if ($conf->options->get('ask')) {
        print <<"END";


The following cha <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	205	300	
==>uct/Statement/Call.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warning <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	23820	24155	
==>s, $t->[1];
	}
	for (my $i = 0; $i < $nf; $i++) {
	    my $arg = pop @stack;
	    unshift @args, promote($arg);
	}
    }
    else {
	# arguments = $n & 0xff
	# named args: = ($n >> 8) *2
	for (my $i = 0; $i < $nfix; $i++) {
	    my $arg = pop @stack;
	    unshift @args, promote($arg);
	}
	my ($i, $j, $arg_name);
	my $pushed_args = sca <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786163	786273	
==>2}}->vtable->get_integer_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787074	787184	
==>2}}->vtable->get_integer_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	39728	39833	
==>ed($text, '/para', '/endpara', undef,
				{reject => '/para', fail => MAX );

	# EXTRACTED: "/para line 1\ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	40042	40146	
==>ed($text, '/para', '/endpara', undef,
			{reject => '/para', fail => MAX );

	# EXTRACTED: "/para line 1\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	45474	45592	
==>ormatting <$new_line[-1][-1]> as $new_line[-1][0]\n";
      }
    }
    my @nixed =    
      splice @$p, $i-1, 2, @new <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3786	3890	
==>eclaration has no fnlib property, and parent module has no fnlib property either!")
        unless $modul <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6450	6554	
==>eclaration has no fnlib property, and parent module has no fnlib property either!")
        unless $modul <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	2866	3003	
==>ot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "check_event <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	14170	14361	
==>t_fh( $to );
  } elsif(ref($to)) {            $self->output_fh( $to );
  } elsif(!length $to
     or $to eq '-' or $to =~ m/^>&?(?:STDOUT|1)$/i
  ) {
    $self->output_fh( *STDOUT{IO} );
  } e <==
2	/Users/nnunley/parrot/tools/build/revision_c.pl	279	373	
==>svk/entries> and config rev number of last
Parrot configure run.

=head1 SEE ALSO

F<config/gen <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3550	3681	
==>",@pmcfiles))
              or die "pmc2c library creation failed ($?)\n";
        }
    }
} 
elsif ($mode eq 'compile') {
    my ($ <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3654	3785	
==>",@pmcfiles))
              or die "pmc2c library creation failed ($?)\n";
        }
    }
} 
elsif ($mode eq 'compile') {
    my ($ <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	15352	15459	
==>Loop through each vector, doing the ops.
    .local pmc iter1, iter2
    iter1 = new .Iterator, op1
    iter <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	3312	3397	
==>:Section::Languages>

=item C<Parrot::Docs::Section::Config>

=item C<Parrot::Docs::Se <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	389	636	
==>e instance for each path.

=head2 Class Methods

=over

=cut

package Parrot::IO::Path;

use strict;
use warnings;

use File::Path;
use File::Spec;
# qw() to avoid the export because we have a stat() method.
use File::stat qw();

my %instance_for_p <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	2957	3077	
==>G: $syms[CURR] is unimplemented, skipping.\n";
		push @{$code{$seg}->{code}}, "\t# Unimplemented '$syms[CURR] ";
		while( <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	13018	13246	
==>n->new;
    my $file = $dist->file_for_perl_module($module);
    
    return if not $file or not $file->contains_pod;
    
    my $path = $self->append_html_suffix($dist->relative_path($file));
    
    # This is the docs file fo <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2081	2180	
==>->prefix and $self->peer and $self->peer->prefix) {
    $self->prefix($self->peer->prefix);
  }

  i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1958	2057	
==>->prefix and $self->peer and $self->peer->prefix) {
    $self->prefix($self->peer->prefix);
  }

  i <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	221	344	
==>od::Simple::PullParser ();
BEGIN {@ISA = ('Pod::Simple::PullParser')}

use Carp ();
BEGIN { *DEBUG = \&Pod::Simple::DEBUG un <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	37621	37894	
==>-ci=?'   => \&_op_string_ci_eq_p,
  'string-ci<?'   => \&_op_string_ci_lt_p,
  'string-ci>?'   => \&_op_string_ci_gt_p,
  'string-ci<=?'  => \&_op_string_ci_le_p,
  'string-ci>=?'  => \&_op_string_ci_ge_p,
  'substring'     => \&_op_substring,
  'string-append' => \&_op_str <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	7011	7129	
==>('close-brace');   }
sub skip_close_bracket { return shift->skip('close-bracket'); }
sub skip_close_paren   { return sh <==
2	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1831	1920	
==>esAssociations=yes

[Files]
Source: "$options{prefix}\\*"; DestDir: "{app}"; Flags: ignore <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	17867	18009	
==>rl -MPod::Simple::RTF -e \
   "exit Pod::Simple::RTF->filter(shift)->any_errata_seen" \
   thingy.pod > thingy.rtf

=head1 DESCRIPTION

This cl <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	5054	5182	
==>.
##
sub format_tests {
    my (%tests) = @_;

    my $count = scalar keys %tests;
    die unless $count;

    my $string = <<"EN <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	347	511	
==>alue;

use base qw(Jako::Construct::Expression);

use Jako::Token;

use Jako::Construct::Expression::Value::Literal;
use Jako::Construct::Expression::Value::Identifi <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	592	694	
==>ops.

=cut

sub defines
{
    return <<END;
#define REL_PC (cur_opcode - start_code)
#define IREG(i) RE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818058	818155	
==>DY" => "#line 40 \"src/ops/stack.ops\"\n  Parrot_push_regs(interpreter);\n  /* these 2 opcodes cha <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	1173	1362	
==>({wanted => sub {
        if ( $File::Find::dir =~ m:(languages|examples)$: ) {
            $File::Find::prune = 1;	
            return;
        }
        return if /malloc/;

        /^.*\. <==
2	/Users/nnunley/parrot/tools/dev/manicheck.pl	1505	1687	
==>reach (@missing) {
        print "  $_\n";
    }
}

if (@extra) {
    print "\n";
    print "Extra files:\n";
    foreach (@extra) {
        print "  $_\n";
    }
}

exit scalar(@miss <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	4252	4349	
==>pr attribute="Comment" context="#stay" String="[^\=]*" />
          <RegExpr attribute="Comment" c <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8621	8783	
==>);
                print <$out>;
                close $out;
            }
        }
    }

    return $exit_code;
}

=item C<cc_gen($source)>

Generates F<test.c> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2667	2768	
==>d', Attributes => { kind => $cond } });
    $handler->start_element({ Name => 'block', Attributes => { <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3431	3532	
==>d', Attributes => { kind => $cond } });
    $handler->start_element({ Name => 'block', Attributes => { <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	1885	2051	
==>k("Bad class name: $class");

		my $modulefile = $class;
		$modulefile =~ s/.*:://;
		$modulefile .= ".pm";

		open OUT, ">$modulefile"
			or croak("Can't write to new <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	8053	8245	
==>.return(register, pir) \n";
    
    return $code;
}

sub badargs {
    my ($cmd, @args) = @_;
    
    my $usage = create_usage(@args);
    my $code  = "bad_args: \n"
              . ".throw(' <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	3637	3773	
==>O
            my $call_pkg = $b->exported_to() || '';
            local *{ $call_pkg . '::TODO' } = \$extra{todo}
                if defi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11344	11463	
==>out =~ tr/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
  return undef if length $out > $Linearization_Limit;
  
  $out = $se <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	55477	55582	
==>actor returns a defined value, that value is immediately
treated as the next extracted field and pushed on <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	2919	3084	
==>nterpreter, &st, return_data);",
       s => "set_nci_I(interpreter, &st, return_data);",
       c => "set_nci_I(interpreter, &st, return_data);",
       4 => "set_nc <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	31790	31942	
==>f it's a number or bullet.
          DEBUG and print " Item is of type ", $para->[0], " under $over_type\n";
          
          my $expected_value = ++ <==
2	/Users/nnunley/parrot/config/auto/signal.pm	143	294	
==>nfig/auto/signal.pm - Signals

=head1 DESCRIPTION

Determines some signal stuff.

=cut

package auto::signal;

use strict;
use vars qw($description @arg <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2104	2210	
==>etval);

	_CheckParams( \@params, \%params, \@_, $self );

	if($$self{DEBUG}) {
		_DBLoad();
		$retva <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2027	2127	
==>etval);

	_CheckParams( \@params, \%params, \@_, $self );

	if($$self{DEBUG}) {
		_DBLoad();
		$retva <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	7769	7885	
==>s; we must not let them get closed.
    open  OLDOUT, ">&STDOUT" or die "Can't save     stdout" if $out;
    open  OL <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7820	7934	
==>s; we must not let them get closed.
    open OLDOUT, ">&STDOUT" or die "Can't save     stdout" if $out;
    open OL <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	1238	1378	
==>m {
    my ($self, $tree, $ctx) = @_;
    my $atom = $tree->atom;

    my $R;
    if (UNIVERSAL::can($atom, 'rx_val')) {
        $R = $self-> <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	2520	2628	
==>>convert($tree, $ctx), op('atend') ]);
}

sub convert_rx_charclass {
    die "unimplemented charclass";
}

su <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	37444	37590	
==>ent text bit \"$ell_content[$j]\" for a '/'.\n";

        if($ell_content[$j] =~ m/^([^\/]*)\/(.*)$/s) {
          my @section_name = ($2); # might <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5530	5642	
==>be crucial
sub gather_groups_and_libs {
    my @pmcs = @_;

    my ( %group_files, %group_libs, %pmc_group, %pmc_ <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5741	5853	
==>be crucial
sub gather_groups_and_libs {
    my @pmcs = @_;

    my ( %group_files, %group_libs, %pmc_group, %pmc_ <==
2	/Users/nnunley/parrot/config/auto/jit.pm	3184	3410	
==>h),
            jitosname   => uc($jitosname),
            jitcapable  => 1,
            cc_hasjit   => " -DHAS_JIT -D\U$jitcpuarch",
            TEMP_jit_o  =>
                '$(SRC_DIR)/jit$(O) $(SRC_DIR)/jit_cpu$(O) $(SRC_D <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035324	1035439	
==>,
                  "BODY" => "#line 64 \"src/ops/var.ops\"\n    parrot_context_t * const ctx = CONTEXT(interpreter- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036488	1036603	
==>,
                  "BODY" => "#line 64 \"src/ops/var.ops\"\n    parrot_context_t * const ctx = CONTEXT(interpreter- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	69210	69508	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "collecton",
                  "FLAGS" => "",
                  "ARGDIRS" => [],
                  "TYPE" => "function",
                  "CODE" => 92,
                  "ARGS" => [],
                  "BODY" = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1904	2001	
==>stuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
    # Yes, stipulate the lis <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2007	2104	
==>stuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
    # Yes, stipulate the lis <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	14088	14209	
==>*?)\)/{{+=$1}}/mg;
                      $body =~ s/\bgoto\s+NEXT\(\)/{{+=$op_size}}/mg;
        $absolute ||= $body =~ s/ <==
2	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1894	2042	
==>Dir: "{app}"; Flags: ignoreversion recursesubdirs
${icu_section}

[Icons]
Name: "{group}\\{cm:UninstallProgram,parrot}"; Filename: "{uninstallexe}"
} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565738	565881	
==>{\@1}} = {{\@2}}->vtable->can(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566631	566774	
==>{\@1}} = {{\@2}}->vtable->can(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1960	2075	
==>er:
  #

  my $sym = $block->find_symbol($self->name);

  #
  # If the identifier is already defined at this lexical <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1707	1822	
==>er:
  #

  my $sym = $block->find_symbol($self->name);

  #
  # If the identifier is already defined at this lexical <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9810	9918	
==>on::Value->new($block, $self->require_value);
      my $op    = $self->require_infix_rel->text;
      my $rig <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25346	25454	
==>on::Value->new($block, $self->require_value);
      my $op    = $self->require_infix_rel->text;
      my $rig <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	1051	1162	
==>ests() if $opt_u;
    convert_tests() if $opt_c;
    return run_tests(grep {-f $_} @ARGV);
}

##
## convert_test <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	34464	34565	
==>ore_Slice(@_, 0);
}
sub STORE_SLICE_plus_1 {
    return Store_Slice(@_, 1);
}
sub STORE_SLICE_plus_2 { <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	21681	21786	
==>]->{'code'} goto INS_BRANCH_$prefix$r2[0]->{'code'}\n";
        $pir .= "    if cur_ic < 0x$r2[0]->{'code' <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	43537	43752	
==>EBUG > 1 and print " Considering E<$content> with char ",
        defined($charnum) ? $charnum : "undef", ".\n";

      if(!defined( $charnum )) {
        DEBUG > 1 and print "I don't know how to deal with E<$content <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	306221	306639	
==>DE" => 356,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 1012 \"src/ops/cmp.ops\"\n  if (!{{\@1}}) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	19963	20099	
==>table for instructions of " .
                "more than 2 bytes in rule $_->{'name'}\n";
        }
    }

    # If we have 3 or less rul <==
2	/Users/nnunley/parrot/config/auto/gdbm.pm	1983	2140	
==>set(libs      => $libs);
        $conf->data->set(ccflags   => $ccflags);
        $conf->data->set(linkflags => $linkflags);
        print " (no) " if $verbos <==
2	/Users/nnunley/parrot/Configure.pl	1353	1446	
==>e>

Add perl5's $Config{optimize} to the compiler flags.

=item C<--optimize=flags>

Add C<fla <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649942	650230	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "valid_type",
                  "FLAGS" => "",
                  "ARGDIRS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650863	651151	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "valid_type",
                  "FLAGS" => "",
                  "ARGDIRS" <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	4378	4481	
==>POSIX::_SC_CLK_TCK );
my %Get_Time = (
    1 => sub { my @times = times();  return $times[2] + $times[3] <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	6450	6555	
==>s:%d]: '%s'\n", $file, $line, $1;
      push @tokens, Jako::Token->new(
        $file, $line, 'ident', und <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	967	1156	
==>file',
	'txt' => 'Text file',
	'a' => 'Library file',
	'bas' => 'BACIC code',
	'bef' => 'Befunge code',
	'bf' => 'BF code',
	'bnf' => 'Grammar file',
	'c' => 'C code',
	'cola' => 'Cola code' <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	6787	6893	
==>($1);  /me;
    s/{{\^-([^{]*?)}}/    $trans->expr_offset(-$1); /me;
    s/{{\^([^{]*?)}}/     $trans->expr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042433	1042970	
==>=> "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1165,
                  "ARGS" => [
                              "p",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 125 \"src/ops/var.ops\"\n    VTABLE_set_pmc_keyed_str(interpreter, {{\@1}}, { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23884	23977	
==>L;\n  interpreter->current_cont = {{\@2}};\n  dest = (opcode_t *)p->vtable->invoke(interpreter <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7252	7341	
==>_1('P');
  $self->_add_inst("ITER_$label", 'set', [$temp,$list.'[0]']);
  $self->_add_inst <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	280	378	
==>eval "use warnings";

package Jako::Construct::Block::Bare;

use Carp;

use Jako::Compiler;

use ba <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	639879	640026	
==>ULL; /* just for cc */\n\t  break;\n  }\n  {{\@1}} = VTABLE_instantiate(interpreter, class, sig);\n  interpreter->current_args = NULL;\n  {{+=2}};\n <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	984	1256	
==>elf, $fh, $subname, $rule, $ctx, $instructions) = @_;

    if ($subname) {
        print $fh <<"END";
sub $subname {
    my (\$rx_input) = \@_;
END
    }
    print $fh "$_\n" foreach (@$instructions);
}

sub output_footer {
    my ($self, $fh) = @_;
    return 1 unless $se <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4290	4410	
==>my $token      = $self->at(-1);

  while(1) {
    $token      = $self->forth;
    $last_token = $self->get(-1);

    last <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	5928	6416	
==>d->[0];
            if ( defined $num_key ) {
                my $incr = new IncrOp( $parser,
                    'result' => $num_key,
                );
                $key = [ $num_key, [$incr] ];
            }
            else {
                my $unit = BuildLiteral( $parser, 1, 'number' );
                my @opcodes3 = @{ $unit->[1] };
                $num_key = new_tmp( $parser, 'pmc' );
                push @opcodes3, new LocalDir( $parser,
                    ' <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	16600	16816	
==>mc = $file;
    $pmc =~ s/\.\w+$/.pmc/;

    ($pmc ne $file) or die "$pmc is the same as the original name";

    my $pmc_dt  = (stat $pmc)[9];
    my $dump_dt = (stat $file)[9];

    return $dump_dt > $pmc_dt;
}

=he <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	23574	23674	
==>=item B<output>

    $Test->output($fh);
    $Test->output($file);

Where normal "ok/not ok" test out <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	8335	8498	
==>: expandtab shiftwidth=4:
        */
    );
    shift @end_boilerplate;

    my $ok = 1;
    my $idx = -@end_boilerplate;
    my $mismatch_at = 0;
    while ($idx < <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	1790	2089	
==>'', 'languages/m4'),
        $self->new_section('Ook!', 'ook.html', '', 'languages/ook'),
        $self->new_section('Parakeet', 'parakeet.html', '', 'languages/parakeet'),
        $self->new_section('Perl6', 'perl6.html', '', 'languages/perl6'),
        $self->new_section('pheme', 'pheme.html', '', <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	5911	6047	
==>my $self = shift;
	
	$self->check_pod;

	return $self->{POD_ERRORS};
}

=item C<pod_as_html()>

Runs C<Parrot::Docs::POD2HTML> on the con <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	5332	5452	
==>pe = $token->attr('type');
  if(!defined $type) {
    $self->whine("Typeless L!?", $token->attr('start_line'));
  } elsif <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550037	550148	
==>\@1}};\n  meth = {{\@2}};\n  next = {{^+3}};\n  interpreter->current_object = object;\n  interpreter->current_co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551338	551449	
==>\@1}};\n  meth = {{\@2}};\n  next = {{^+3}};\n  interpreter->current_object = object;\n  interpreter->current_co <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	2302	2402	
==>e, $unexpected, $description)>

Runs the Parrot Assembler code and passes the test
if a string compar <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91169	91566	
==>nd",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 113,
                  "ARGS" => [
                              "i",
                              "ic" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	2683	2921	
==>>EOF if $index >= @{$self->{TOKENS}};

  return $self->{TOKENS}[$index];
}


#
# get()
#
# Without an argument, gives the current token. With an argument, gives the
# token at that offset from the current one. If a count is given, then tha <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8148	8299	
==>>text;
      
        my $value;

        if ($self->skip_assign) {
          $value = Jako::Construct::Expression::Value::Literal->new($block, $self->r <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5154	5299	
==>>text;

        my $value;

        if ($self->skip_assign) {
          $value = Jako::Construct::Expression::Value::Literal->new($block, $self->r <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19111	19300	
==>rammar.y"
{ return op('seq' => [ $_[1], op('atend') ]); }
	],
	[#Rule 9
		 'expr', 3,
sub
#line 109 "lib/Regex/Grammar.y"
{ return op('alternate' => [ $_[1], $_[3] ]); }
	],
	[#Rule 10
		 'e <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	9408	9520	
==>o.ops src/ops/math.ops src/ops/object.ops src/ops/pic.ops src/ops/pmc.ops src/ops/python.ops src/ops/set.ops src/ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19386	19485	
==>ue to true if you don't want the formatter to try
putting a hidden code on all Perl symbols (as best <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	7838	7969	
==>_arrayref'} = $_[0];
    DEBUG and print "$self 's source is array ref $_[0]\n";
    return;
  } elsif(ref $_[0]) {
    $self->{'sou <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	4553	4808	
==>rint_value
    .return (result)

  print_vector:
    .local pmc shape, iter
    .local string value_type, old_type
    value_type = 'String'
    iter = new .Iterator, arg
    shape = arg.'get_shape'()
    $I0 = shape
    if $I0 == 2 goto print_2D
    # XXX <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	7065	7176	
==>ode {
    $cur_func = 'test::main';
    print <<EOC;
.sub $cur_func :main
    .param pmc sys::argv
    new_pad 0 <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	36402	36549	
==>as an embedded quoter:

	@result = extract_bracketed( $text, '<>' );

the result would be:

	( '<A HREF=">', '>>>">link</A>', "" )

In addition to t <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	6403	6529	
==>("vtable not found for $meth\n");
}

my $jit_emit_n = ($genfile =~ /jit_cpu.c/) ? 2 : 1;

open JITCPU, '>', $genfile or die;

p <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	2243	2485	
==>ettrigger($key, $trigger);

            &$cb($key, $val);
        }
    }

    print ");\n" if $verbose;

    return $self;
}

=item C<add($delim, $key => $val, ...)>

Either creates a new key or appends to an existing key, with the previous/n <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8800	8968	
==>param num op2
    $I1 = op1
    if $I1 == 0 goto zero
    if $I1 == 1 goto one
    if $I1 == 2 goto two
    if $I1 == 3 goto three
    if $I1 == 4 goto four
    if $I1 = <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4998	5120	
==>_offset 
{
    my $self = shift;

    return $self->gen_goto($self->expr_offset(@_));
}

=item C<goto_pop()>

Transforms th <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	818	911	
==>ur $LDFLAGS = qq[-L/opt/local/lib -L/usr/local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS = qq <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	822	915	
==>ur $LDFLAGS = qq[-L/opt/local/lib -L/usr/local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS = qq <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4001	4308	
==>ir;
}

sub post_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	if ($need_dest) {
		# Translator needs to emit an instruction to push the loaded value onto
		# the stack.
		$pir .= <<'PIR'
${INS} = concat "push s, "
${INS} = concat ${DEST0}
${INS} = concat "\n"
PIR
	} else {
		# Transl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834342	834531	
==>1}}, STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835068	835257	
==>1}}, STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	43116	43391	
==>content" );
        $replacer = $treelet->[$i]; # scratch
        splice(@$treelet, $i, 1,   # fake out a literal
          'E<',
          splice(@$replacer,2), # promote its content
          '>'
        );
        # Don't need to do --$i, as the 'E<' we just added isn't in <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7752	7881	
==>atch[8..9,0..1,2..7];				# REM, PRE, BITS
}

sub _match_tagged	# ($$$$$$$)
{
	my ($textref, $pre, $ldel, $rdel, $omode, $bad, $ign <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	2539	2708	
==>ow a fatal error to the effect that
"it's s too late to call Pod::Simple::Debug".

Note that the C<use Pod::Simple::Debug (\$x, I<somenum>)> mode will make
Pod::Simple (e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167986	168535	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 202,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 204 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->ge <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83457	83712	
==>E" => 104,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 1201 \"src/ops/core.ops\"\n  PMC * const compreg_hash = VTABLE_get_pmc_keyed_int <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	177415	177878	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 212,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic"
                            ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	186425	186987	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 222,
                  "ARGS" => [
                              "sc",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 292 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter, {{\ <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	200	319	
==>yte code compiler

=head1 SYNOPSIS

    perl tools/build/pbc2c foo.pbc > foo.c

=head1 DESCRIPTION

Parse the Parrot Pac <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	17	115	
==>arser;

use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

$VERSION   = '0.01 <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	1112	1232	
==>xtrapos, $extralen) = @_>18 ? splice(@_, -2, 2) : (0,0);
	my ($startlen) = $_[5];
	my $remainderpos = $_[2];
	if ($wantar <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	14427	14666	
==>(\)/{{^+$op_size}}/mg;
                      $body =~ s/\bexpr\s+ADDRESS\((.*?)\)/{{^$1}}/mg;
                      $body =~ s/\bexpr\s+POP\(\)/{{^*}}/mg;

                      $body =~ s/\bHALT\(\)/{{=0}}/mg;

        $branch ||= $short_n <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	853	974	
==>he tcl binary.

    # There are basically 3 choices: run in one of:
    #  languages
    #  languages/tcl
    #  languages <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	6237	6391	
==>,c)>

As above, but uses the actual dynamic type of C<SELF>.

=back

=head1 AUTHOR

Leopold Toetsch.

Cleaned up by Matt Diephouse.

Many thanks to the aut <==
2	/Users/nnunley/parrot/config/init/defaults.pm	6370	6490	
==>yacc => 'bison -v -y',
        lex  => 'flex',

        # Extra flags needed for libnci_test.so
        ncilib_link_extra <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	7532	7733	
==>w+)/a_$1/)
        {
            my $name = $1;
            my $arg  = $args{$name};
            
            if ($arg->{type} eq 'script' or $arg->{type} eq 'expr') {
                $code .= emit("tem <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	288	382	
==>ols/build/dynclasses.pl - Build script for dynamic PMCs

=head1 DESCRIPTION

This file is gener <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557341	557718	
==>object_base",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 639,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	807	933	
==>internal complexity the
format is:

    op opname (args) :class,flags {
        ... body of function ...
    }

There may be mo <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	19715	19946	
==>Module
                #       that would open the door for Scheme::Test
                $language = ucfirst($language);

                # make sure TODO will work, by telling Test::Builder which
                # package the .t fi <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	8275	8491	
==>}
		    }
		}
		want_show(\$show, $Code,   $code  ) if $show;
		want_show(\$show, $Data,   $data  ) if $show;
		want_show(\$show, $Init,   $init  ) if $show;
		want_show(\$show, $Uninit, $uninit) if $show;
		want_show <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7259	7376	
==>P0}
PIR
	}

	return $pir;
}

sub post_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If the r <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5081	5198	
==>P0}
PIR
	}

	return $pir;
}

sub post_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If the r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	513300	513542	
==>>vtable->neg(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764415	764793	
==>",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 863,
                  "ARGS" => [
                              "i",
                              "nc"
                            ],
                  "BODY" => "#li <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760630	760915	
==>"\n  {{\@1}} = {{\@2}}->vtable->get_pmc(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	7506	7754	
==>}
                "  if $op->{arg1}->{symbol} goto $op->{result}->{symbol}\n";
        }
    }

    sub visitBranchUnlessOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        if ( exists $op->{op} ) { <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	9581	9697	
==>ND_C

    print SOURCE @op_func_table;

    print SOURCE <<END_C;
  (op_func${suffix}_t)0  /* NULL function pointer * <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28037	28178	
==>e C header file code for the PMC. C<$out_name> is the name
of the output file we are generating.

=cut

sub gen_h() {
    my ($self, $out_name <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	735	833	
==>cription, @todo)>

Runs the target string against the Perl 6 pattern, passing the test
if they matc <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2833	2931	
==>cription, @todo)>

Runs the target string against the Perl 6 pattern, passing the test
if they matc <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	25922	26037	
==>ass_$dynpmc != enum_class_default);
EOC
    }
    if (scalar @mmds) {
        $cout .= <<"EOC";
#define N_MMD_INIT ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614852	614949	
==>*next = {{^+4}};\n    INTVAL offset;\n    offset = Parrot_class_offset(interpreter, {{\@2}}, {{\@3 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616003	616100	
==>*next = {{^+4}};\n    INTVAL offset;\n    offset = Parrot_class_offset(interpreter, {{\@2}}, {{\@3 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	11664	11781	
==>"\"=encoding $e\" line calls for an unsupported encoding.",
      $suggestion, "  [$encmodver\'s supported encodings a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853436	853733	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854218	854515	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2370	2486	
==>ne %d of file '%s'.",
      $self->name, $sym->line, $sym->file);
  }

  #
  # Now that we've decided to actually dec <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2117	2233	
==>ne %d of file '%s'.",
      $self->name, $sym->line, $sym->file);
  }

  #
  # Now that we've decided to actually dec <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20616	20709	
==>is_assign) {
        my $left = Jako::Construct::Expression::Value::Identifier->new($block, $s <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	59866	59984	
==>y returning C<undef>
(in this case the input text is not modified in any way).

In addition, on failure in I<any> conte <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	929972	930491	
==>S" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1045,
                  "ARGS" => [
                              "i",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 385 \"src/ops/string.ops\"\n  switch ({{\@3}}) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	1903	2247	
==>$file, $line, 'literal', 'S', $1);
      $text = $2;
      next;
    }

=cut

    if ($text =~ m{^((?:\"(?:\\\"|(?!\").)*\"))(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, 'literal', 'S', $1);
      $text = $2;
      next;
    }

    #
    # Declarators:
    #

    if ($text =~ m{^(module)(?!\w)(.*)$}) {
      push @toke <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	821	979	
==>}
${INS} = concat "LAB"
${INS} = concat strPC
${INS} = concat ": "
PIR
}

# Pre and post stack operation (op class instructions) hooks.
sub pre_op($$) {
	my $s <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1446	1554	
==>_to_language = '.';
        } elsif ($dir_count >2) {
          $path_to_language = File::Spec->join(File::Sp <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1931	2039	
==>_to_language = '.';
        } elsif ($dir_count >2) {
          $path_to_language = File::Spec->join(File::Sp <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1447	1550	
==>int {$_[0]{'output_fh'}} $indent, $text, "\n";
  }
  return;
}

sub _handle_element_end {
  DEBUG and pr <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	916	1166	
==>vel]doc
    RESPONSIBLE_PARTIES                             [main]doc
    TODO                                            [main]doc
    parrot-config                                   [main]bin
    docs/BROKEN.pod                                 [deve <==
2	/Users/nnunley/parrot/config/inter/encoding.pm	553	713	
==>f, $conf) = @_;

    my @encoding = (
        sort
            map { m{\./src/encodings/(.*)} } glob "./src/encodings/*.c"
    );

    my $encoding_list = $conf- <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	1059	1286	
==>itional//EN"
    "http://www.w3.org/TR/REC-html40/loose.dtd">
<HTML>  
    <HEAD>
        <TITLE>$title</TITLE>
        <LINK REL="stylesheet" TYPE="text/css" 
            HREF="$resources/perl.css" 
            TITLE="Default C <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6529	6629	
==>C} + j
    prop_type_state[${ITEMP0}] = ${STYPES}
    prop_stack_depth[${ITEMP0}] = stack_depth
    g <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4467	4567	
==>C} + j
    prop_type_state[${ITEMP0}] = ${STYPES}
    prop_stack_depth[${ITEMP0}] = stack_depth
    g <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	2404	2529	
==>rot/$file");
    }
}

sub write_buildscripts {
    my @compiled_files;
    foreach my $obj (@ARGV) {
	my $src = $obj;
	$src =~ <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	411	506	
==>perl tools/dev/install_files.pl [options]

=head1 DESCRIPTION

Use a detailed MANIFEST to instal <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	373777	374079	
==>n",
                  "CODE" => 437,
                  "ARGS" => [
                              "i",
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 427 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_stat_info_intval(interp <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	1956	2068	
==>=~ s/.*:://;
		$modulefile .= ".pm";

		open OUT, ">$modulefile"
			or croak("Can't write to new module file '$mo <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	5011	5120	
==>alue_type != 'String' goto print_space
    if old_type != value_type goto print_space
    goto iter_loop
  pri <==
2	/Users/nnunley/parrot/tools/dev/as2c.pl	859	1001	
==>.*)/) {
	    if ($in_comment) {
		print " */\n";
	    }
	    my ($bytes, $src) = ($1, $2);
	    $src =~ s/\t/ /g;
	    my $len = length($bytes) <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	1089	1194	
==>49,
	OS => 50,
	File => 51,
	AddrRegistry => 52,
	Bound_NCI => 53,
	deleg_pmc => 54,
	Enumerate => 55,
	Fi <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	14288	14552	
==>s+POP\(\)/{{=*}}/mg;
                      $body =~ s/\bexpr\s+OFFSET\((.*?)\)/{{^+$1}}/mg;
        $next     ||= $body =~ s/\bexpr\s+NEXT\(\)/{{^+$op_size}}/mg;
                      $body =~ s/\bexpr\s+ADDRESS\((.*?)\)/{{^$1}}/mg;
                      $body =~ s <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	1209	1351	
==>self->SUPER::new($text, @contents);
	$self->{NAME} = $name;
	
	return $self;
}

=back

=head2 Instance Methods

=over 4

=item C<name()>

Retur <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	46748	46858	
==>s = ();
		if ($grammar =~ m/$COMMENT/gco)
		{
			_parse("a comment",0,$line);
			next;
		}
		elsif ($grammar =~ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	30583	30882	
==>onal attributes including:
#

############# The "type" attribute.
# Fifth:
# A flag for whether item 3 (if present) is a URL (like
# "http://lists.perl.org" is), in which case there should be no section
# attribute; a Pod name (like "perldoc" and "Getopt::Std" are); or
# possibly a man page name (li <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	4732	4838	
==>able_methods.pasm) */
EOM
    for my $entry (@{$vtable}) {
    my $uc_meth = uc $entry->[1];
    $macros .= <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26011	26101	
==>T;
	add $ps->{var}, $ps->{var}, FORLOOP_STEP_$ps->{num}
	goto FOR_$ps->{num}
AFTER_NEXT_$ps <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26196	26286	
==>T;
	add $ps->{var}, $ps->{var}, FORLOOP_STEP_$ps->{num}
	goto FOR_$ps->{num}
AFTER_NEXT_$ps <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30183	30317	
==>ess $pir =~ /\n$/;
		$pir .= "### end translation\n";

		# Push load type onto the stack types array.
		$pir .= "    stypes = push load <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2789	2890	
==>lgmp -lreadline -lpthread -lm -L/opt/local/lib  -licuuc -licudata -lpthread -lm';
        $extraLibs = <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	2584	2685	
==>lgmp -lreadline -lpthread -lm -L/opt/local/lib  -licuuc -licudata -lpthread -lm';
        $extraLibs = <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	2789	2970	
==>}
    while( $idx < @decls ){
        $name = $decls[$idx];
        $type = $decls[$idx+1];
        push( @methods, $name );
        if( $base_type eq 'HASH' ){
            $elem = " <==
2	/Users/nnunley/parrot/Configure.pl	1548	1662	
==>=item C<--cc=(compiler)>

Specify which compiler to use.

=item C<--ccflags=(flags)>

Use the given compiler flags. <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1742	1849	
==>C<$index>.

=cut

sub arg
{
    my $self = shift;

    return $self->{ARGS}[shift];
}

=item C<goto_address( <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13441	13621	
==>rn]);

  $return;
}

sub _op_boolean_p {
}

sub _op_eqv_p {
}

sub _op_eq_p {
}

sub _op_equal_p {
}

sub _op_pair_p {
  my ($self, $node) = @_;
  my $return;
  my $label = $self->_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33821	33932	
==>"Can't assimilate following ", $paras->[0][0], "\n";
              push @$para, '';  # Just so it's not contentl <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35634	35745	
==>"Can't assimilate following ", $paras->[0][0], "\n";
              push @$para, '';  # Just so it's not contentl <==
2	/Users/nnunley/parrot/config/inter/progs.pm	1354	1539	
==>out your
    compiler and linker.  Default values are in square brackets; you can
    hit ENTER to accept them.  If you don't understand a question, the
    default will usually work--th <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320064	320364	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" => ":dotgnu_core" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320834	321134	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i4",
                  "FLAGS" => ":dotgnu_core" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931859	932084	
==>ops\"\n  {{\@1}} = string_upcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932630	932855	
==>ops\"\n  {{\@1}} = string_upcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26136	26269	
==>' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 133,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructo <==
2	/Users/nnunley/parrot/config/init/defaults.pm	2432	2587	
==>ccdlflags},    # e.g. -Wl,-E on HP-UX

        # ld: Tool used to build shared libraries and dynamically loadable
        # modules. Often $cc on Unix-ish s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561879	561972	
==>r, {{\@2}}, {{\@3}});\n  if (!{{\@1}}) {\n    real_exception(interpreter, next, METH_NOT_FOUND <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562963	563056	
==>r, {{\@2}}, {{\@3}});\n  if (!{{\@1}}) {\n    real_exception(interpreter, next, METH_NOT_FOUND <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	15206	15310	
==>ru_utime to 100.0 sec and $t->ru_stime to 5.0 sec.
    $t->ru_utime->tv_secs(100);
    $t->ru_utime->tv_u <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	305	433	
==>al "use warnings";

use Carp;

package Jako::Construct::Expression::Value::Identifier;

use Carp;

use base qw(Jako::Construct::E <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	34626	34719	
==>in the substring, and any other kind of
("non-delimiter") bracket in the substring is ignored. <==
2	/Users/nnunley/parrot/languages/regex/test.pl	632	730	
==>g;

    print <<"END";
Usage: $0 [-c|--compile] [--language=LANGUAGE] [--optimize=PASSES|--nooptimi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710342	710642	
==>GDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 797,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 50 \"src/ops/pyth <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	30676	30791	
==>] $cmt
EOC
    push @stack, [-1, $x, 'P'];
}
# exceptions
sub SETUP_EXCEPT
{
    my ($n, $c, $cmt) = @_;
    my $tar <==
2	/Users/nnunley/parrot/lib/Test/More.pm	15400	15574	
==>");

which would produce:

    not ok 42 - There's a foo user
    #     Failed test (foo.t at line 52)
    # Since there's no foo, check that /etc/bar is set up right.

You mi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122122	122360	
==>ALUE_CAST(UINTVAL, {{\@1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123034	123272	
==>ALUE_CAST(UINTVAL, {{\@1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	14074	14190	
==>o\s+OFFSET\((.*?)\)/{{+=$1}}/mg;
                      $body =~ s/\bgoto\s+NEXT\(\)/{{+=$op_size}}/mg;
        $absol <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	448654	448935	
==>@2}};\n  }\n  else {\n    {{\@1}} = (FLOATVAL){{\@2}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	344038	344217	
==>,
                              "s"
                            ],
                  "BODY" => "#line 148 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const cha <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	345280	345459	
==>,
                              "s"
                            ],
                  "BODY" => "#line 148 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const cha <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	1833	1989	
==>|(?!\').)*\'))(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, 'literal', 'S', $1);
      $text = $2;
      next;
    }

=cut

    if ($ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10197	10317	
==>lback{0xA0 .. 0xFF} = (
# Copied from Text/Unidecode/x00.pm:

' ', qq{!}, qq{C/}, 'PS', qq{\$?}, qq{Y=}, qq{|}, 'SS', qq{ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	22774	22919	
==>est_no);
            my $exe_f = per_test($PConfig{exe}, $test_no);  
            $exe_f =~ s@[\\/:]@$PConfig{slash}@g;
            my $out_f = pe <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	7161	7268	
==>) = @_;

#  $self->DEBUG(0, "Scanning file '$file'...");

  my $line = 0;

  my @lines = $self->slurp_file($ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2285	2392	
==>STEMP0}

# Decrement stack height.
dec stack_depth
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$regist <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3537	3644	
==>STEMP0}

# Decrement stack height.
dec stack_depth
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$regist <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389487	389790	
==>ODE" => 453,
                  "ARGS" => [
                              "p",
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_s <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13423	13528	
==>as string
end type
type second
	other as first
	narf as integer
	pnext as first
end type
dim x as second
d <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	2115	2209	
==>egistered steps.  Where each steps is represented by an
L<Parrot::Configure::Task> object.  Ste <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28666	28812	
==>05
	},
	{#State 88
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	35642	35742	
==>r will exit with zero (which is
normal).  If anything failed it will exit with how many failed.  If
y <==
2	/Users/nnunley/parrot/lib/Test/More.pm	33713	33813	
==>r will exit with zero (which is
normal).  If anything failed it will exit with how many failed.  If
y <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600186	600293	
==>_name(interpreter, {{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n         \"Class '%Ss' doesn <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601262	601369	
==>_name(interpreter, {{\@2}});\n    real_exception(interpreter, next, NO_CLASS, \n         \"Class '%Ss' doesn <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	15414	15546	
==>hack to get the inheritance
            # ParrotClass isa delegate
            #
            # delegate has everything autogenerated, <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	7	99	
==>ight (C) 2005-2006, The Perl Foundation.
# $Id: /parrot/languages/lua/t/Parrot/Test/Lua.pm 1 <==
2	/Users/nnunley/parrot/config/init/hints/netbsd.pm	197	312	
==>ags !~ /-pthread/) {
        $ccflags .= ' -pthread';
    }
    $conf->data->set(ccflags => $ccflags);

    my $libs <==
2	/Users/nnunley/parrot/config/init/hints/openbsd.pm	289	404	
==>ags !~ /-pthread/) {
        $ccflags .= ' -pthread';
    }
    $conf->data->set(ccflags => $ccflags);

    my $libs <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	890951	891316	
==>_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1007,
                  "ARGS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	6081	6355	
==>se_suffix)>

Returns the C code to initialize the dispatch mechanism within the core's
initialization function.

=cut

sub init_set_dispatch
{
    my ($self, $bs) = @_;

    return <<END_C;
        ${bs}ops_addr = (void**) init;
END_C
}

=back

=head1 SEE ALSO

=over 4

=ite <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	408	576	
==>return <<'PIR';
.local string strPC
${INS} = concat <<"CODE"
    .local pmc s
    s = new ResizablePMCArray
CODE
PIR
}

# Post translation hook.
sub post_translation() { <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5789	5908	
==><rx_match>{"$group"}->[1] = $value; # close group $group!;
    return @ops;
}

sub output_getstart {
    my ($self, $reg <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349235	349328	
==>string_cstring_free(path); */\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350237	350330	
==>string_cstring_free(path); */\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	28586	28898	
==>n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS",
                  "NAME" => "get_params",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	175	282	
==>ntation section

=head1 SYNOPSIS

    use Parrot::Docs::Section;

=head1 DESCRIPTION

A documentation I<sect <==
2	/Users/nnunley/parrot/config/gen/revision.pm	186	305	
==>ion

=head1 DESCRIPTION

Determines parrot's SVN revision.  In a release, there are no .svn directories,
so this field i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421974	422264	
==>0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bind",
                  "FLAGS" => ":base_network",
                  "AR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	617664	617761	
==>runit_v_pp;\n\tif (++lru->u.type == lr_types)\n\t    goto runit_v_pp;\n\tmic->pic->miss_count++;\n <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	11893	12043	
==>f(
          $desperate_for_title
           # if we're so desperate we'll take the first
           #  =head1's content as a title
          and $head <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	2029	2141	
==>ination = new_buffer_header(interpreter);\nPObj_external_SET(final_destination)",
#      B => "Buffer *final_dest <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	397	505	
==>atement);

sub new
{
  my $class = shift;
  my ($block, $left, $right) = @_;

  confess("Block (" . ref($bloc <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	388	496	
==>atement);

sub new
{
  my $class = shift;
  my ($block, $left, $right) = @_;

  confess("Block (" . ref($bloc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490841	491105	
==>ABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inc",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	491462	491726	
==>ABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inc",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	8979	9080	
==>er}, \$text, $thisparser;
	':'') . ($parser->{_check}{prevoffset}?'
	my $prevoffset;
	tie $prevoffset, <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27683	27800	
==>'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end translation\n";

		# Emit code to fix up the st <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37232	37349	
==>'name'}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end translation\n";

		# Emit code to fix up the st <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16072	16290	
==>ub esc 
{
    if ( defined wantarray ) 
    {
        if ( wantarray ) 
        {
            @_ = splice @_; # break aliasing
        } 
        else 
        {
            my $x = shift;
            # Pod::Simple::HTM <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9766	9922	
==>ub esc {
  if(defined wantarray) {
    if(wantarray) {
      @_ = splice @_; # break aliasing
    } else {
      my $x = shift;
      $x =~ s/([^\n\t !\#\$\% <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259195	259462	
==>ame(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263549	263816	
==>ame(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	248925	249312	
==>"o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 289,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 67 <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	8339	8467	
==>E ALSO

=over 4

=item C<Parrot::OpsFile>

=item C<Parrot::OpTrans>

=item F<tools/build/ops2c.pl>

=item F<tools/build/ops2pm.pl <==
2	/Users/nnunley/parrot/lib/Test/More.pm	25397	25606	
==>carp() will put in line/file

        _carp sprintf $msg, scalar @_;

	return $Test->ok(0);
    }

    my($this, $that, $name) = @_;

    my $ok;
    if( !ref $this and !ref $that ) {  		# neither is a referenc <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	43567	43693	
==>HABETIC/UNDERSCORE
		[a-z0-9]*	# FOLLOWED BY ANY NUMBER OF ALPHANUMERICS
	   /x'

will be extracted as if it were:

	'm /
		(?i <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	6	212	
==>right (C) 2004, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Docs/Item.pm 20321 2006-06-20T20:02:00.179448Z bernhard  $

=head1 NAME

Parrot::Docs::Item - Documentation item

=head1 SYNOPSIS

    use Parro <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	2310	2418	
==>t(int4_t => 'int');
        print <<'END';

Can't find a int type with size 4, conversion ops might fail!

EN <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	1342	1463	
==>_;

    my $file = "src/core_pmcs.c";
    my @pmcs = split(/ /, $conf->data->get('pmc_names'));

    open(OUT, ">$file.tmp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863349	863626	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bytelength",
                  "FLAGS" => ":base_m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864240	864517	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bytelength",
                  "FLAGS" => ":base_m <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Posix.pm	162	298	
==>rrot::Test::Bc';

sub get_out_fn {
    my $self = shift;
    my ( $count, $options ) = @_;

    return Parrot::Test::per_test( '_posix.ou <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	8985	9153	
==>or die "bad block open: ", substr($code,0,10), "...";

    while (/ (\{) | (\}) /gx) {
        if($1) {
            $balance++;
        } else { # $2
            $balanc <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	3175	3540	
==>previous
            #   declaration -Wmissing-noreturn
            # ? -Wredundant-decls
            #    Warn if anything is declared more than once in the same scope,
            # ? -Wnested-externs
            #    Warn if an `extern' declaration is encountered within an
            #    function.  -Wlong-long
            # Ha. this is the default! with -peda <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	147	311	
==>d1 NAME

Parrot::OpsFile - Ops To C Code Generation

=head1 SYNOPSIS

  use Parrot::OpsFile;

=head1 DESCRIPTION

C<Parrot::OpsFile> takes one or more files of op fu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670625	670715	
==>ops/pmc.ops\"\n    {{\@1}}->vtable->push_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671398	671488	
==>ops/pmc.ops\"\n    {{\@1}}->vtable->push_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3} <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7386	7500	
==>ptions{ignore}
		    :					 ''
		    ;

	if (!defined $ldel) { $ldel = '<\w+(?:' . gen_delimited_pat(q{'"}) . '|[^> <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24388	24502	
==>ptions{ignore}
		    :					 ''
		    ;

	if (!defined $ldel) { $ldel = '<\w+(?:' . gen_delimited_pat(q{'"}) . '|[^> <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	5108	5208	
==>gconfigdir option.
        $dest = File::Spec->catdir($options{libdir}, 'pkgconfig', $dest);
    } el <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17186	17356	
==>odes, new LocalDir( $parser,
                    'result' => $result,
                );
                push @opcodes, new KeyedGetOp( $parser,
                    'r <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18223	18345	
==>odes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new KeyedGetOp( $parser,
        'r <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17628	17779	
==>get = $1;
          last;
        }
      }
      unless(defined $target) {
        $self->whine(
          $para->[1]{'start_line'},
          "=for wi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641753	642071	
==>" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 717,
                  "A <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	543	679	
==>UMVAL)\nor"
                . "\n use Pod::Simple::Debug (\\\$var, STARTNUMVAL)\nAborting");
    }
  } else {
    require Carp;
    Carp: <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41791	41917	
==>: ['
						  . $self->describe
						  . ']>>},
						  Parse::RecDescent::_tracefirst($text),
						  q{' . $rule->{"name"} .' <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38105	38218	
==>: ['
			. $self->describe . ']>>},
						  Parse::RecDescent::_tracefirst($text),
						  q{' . $rule->{"name"} .' <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	289	410	
==>ts.

=head2 Class Methods

=over

=cut

package Parrot::IO::File;

use strict;
use warnings;

use base qw( Parrot::IO::Pat <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6906	6999	
==>ight$(t$, 5)
' instr
s1$="The longer string"
found$="longer"
bogus$="not"
print "Found  (5): " <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18635	18728	
==>ight$(t$, 5)
' instr
s1$="The longer string"
found$="longer"
bogus$="not"
print "Found  (5): " <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4656	4788	
==>ubstr(<rx_input>, <rx_pos>)); # tmp = INPUT[pos]");
    my $fail = $self->output_label_use($failLabel);
    my $pass = $self->output_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1188	1282	
==>($compiler, $block, $ident_name, $kind, $scope, $type) = @_;

  confess "No \$compiler!" unless <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	5283	5378	
==>mplicated feature into the new Testing module.  He observed that the
main problem is not dealing <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11812	11916	
==>ern, $pir_args);
		if (isarray($sym) and $lhs) {
			($ac,@args)=pushargs(\@code, \$optype, \@work);
			$p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732704	732947	
==>"TYPE" => "inline",
                  "CODE" => 822,
                  "ARGS" => [
                              "i",
                              "nc"
                            ],
                  "BODY" => "#line 129 \"src/ops/set.ops\"\n <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19679	19849	
==>tructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 57
		ACTIONS => {
			'NAME' => 4,
			'REPEAT' => 5,
			'BREAK' => 110,
			'FOR' => 6,
			"(" <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	3710	3857	
==>ine-1];
	    if ($source =~ /def (\w+)\s*\((.*)\)/) {
		my ($f, $args) = ($1, $2);
		my @args = split(/,/, $args);
		my $n = @args;
		$arg_count{$f} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465356	465799	
==>io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 533,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 343 \"src/ops/math.ops\"\n  {{\@1}}--;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364157	364401	
==>> 426,
                  "ARGS" => [
                              "p",
                              "nc"
                            ],
                  "BODY" => "#line 292 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	1580	1692	
==>icences under which Parrot is distributed.', 'LICENSES/Artistic', 'LICENSES/gpl.txt'),
        ),
        $self-> <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	7987	8297	
==>id->maxlen()) xor $havemax) {
                # Change
                push @chunks, [];
                $havemax = 1 - $havemax;
            }
            push @{ $chunks[-1] }, $kid;
        }
        shift(@chunks) if @{ $chunks[0] } == 0;

        # If there were things with different types, create a new s <==
2	/Users/nnunley/parrot/config/init/defaults.pm	5246	5498	
==>,
        rpath         => '',
        make          => $Config{make},
        make_set_make => $Config{make_set_make},
        make_and      => '&&',

        # make_c: Command to emulate GNU make's C<-C directory> option:  chdir
        # to C<directo <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	2954	3175	
==>e {
#    $self->DEBUG(0, "Compiling non-string literal: '%s'...", $self->value);

    return $self->value;
  }
}


#
# sax()
#
# TODO: Convert escapes. For example, "\n" should be an actual newline.
#

sub sax
{
  my $self <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	6468	6597	
==>agname,
        " (", map("<$_> ", %{$token->attr_hash}), ")\n";

      if( ($tagname = $token->tagname) eq 'Verbatim'
          o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	928872	929045	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 385 \"src/ops/string.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO_H <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	930343	930516	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 385 \"src/ops/string.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO_H <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28003	28120	
==>ser, $expr );
    push @opcodes, @{ $cond->[1] };
    push @opcodes, new BranchIfOp( $parser,
        'arg1'   => $ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4357	4483	
==>mc;
}

EOC
}

=back

=head2 Class Methods

=over

=item C<new($self, $opt)>

Returns C<$self> as a new instance.

C<$self> is a <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	7844	8054	
==>sif (!defined($max) || $max == -1) {
        return undef if ! defined($sublen); # [m..INF]*
        return undef if $sublen > 0;        # [m..sublen]*
        return 0;                           # [0..0]*
    } <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	1292	1412	
==>int a$
	print c$
end sub
j=2
i=5
a$="Hello"
c$="WRONG"
call mysub()


' Expect 10
sub second(b() )
	b(5)=10
end sub
sub f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722294	722394	
==>*/\n  if (s && string_length(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723323	723423	
==>*/\n  if (s && string_length(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\n      PI <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4885	5011	
==>]/m;

        $tests{$name} = [$expl, $body, $out];
    }

    return %tests;
}

##
## $string = format_tests(%tests)
##
## Cre <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	54187	54347	
==>uence to the text string.

If the extractor is a subroutine it is called in a list context and is
expected to return a list of a single element, namely the extra <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	13077	13174	
==>that each stands for.  Note that this does not
include numerics (like "64" or "x981c").  Under old <==
2	/Users/nnunley/parrot/config/auto/jit.pm	89	189	
==>006-06-20T19:26:31.775154Z bernhard  $

=head1 NAME

config/auto/jit - JIT Capability

=head1 DESCRIP <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	24	134	
==>strict;

=head1 NAME

gen_inline.pl

=head1 SYNOPSIS

 %perl languages/tcl/tools/gen_inline.pl src/builtins/foo <==
2	/Users/nnunley/parrot/config/auto/signal.pm	1818	1937	
==>is generated automatically by config/auto/signal.pm
#
# Any changes made here will be lost.
#
EOF
    use Config;
    my <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	3845	3963	
==>arg_count{$f} = $n;
		for (my $i = 0; $i < $n; $i++) {
		    my ($a, $def) = split(/=/, $args[$i]);
		    $a =~ s/\s//g <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	4344	4462	
==>arg_count{$f} = $n;
		for (my $i = 0; $i < $n; $i++) {
		    my ($a, $def) = split(/=/, $args[$i]);
		    $a =~ s/\s//g <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	3348	3481	
==>elf->block and not defined $self->block->block;
}


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $t <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5549	5756	
==>$return]);
      $self->_add_inst ('', 'set', [$return,$pair]);
      $self->_restore ($item, $pair);
    }
  }

  return $return;
}

sub _op_quote {
  my ($self, $node) = @_;
  my $return = $self->_save_1 (' <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17096	17212	
==>$return]);
    $self->_add_inst ('', 'set',[$return,$pair]);

    $self->_restore($item, $pair);
  }

  return $retur <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	13464	13576	
==>xtern }, \t" .
            "/* op $i: $core_opfunc[$i] */\n";
}

print JITCPU @jit_funcs, "};\n";

if ($genfile = <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7339	7471	
==>f ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        return ("set <rx_tmp>, <rx_stack>",
                $s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9438	9570	
==>f ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        return ("set <rx_tmp>, <rx_stack>",
                $s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	26103	26281	
==>index'),
                        aop('goto', [ $next ]),
               $back => aop('popindex', [ $R_back ]),
                        @R_ops,
                        aop('pushmar <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	3408	3756	
==>Microsoft.VisualC
            Microsoft.Vsa
            Mono.CompilerServices.SymbolWriter
            Mono.Data.SqliteClient
            Mono.Data.SybaseClient
            Mono.Data.Tds
            Mono.Data.TdsClient
            Mono.Data
            Mono.GetOptions
            Mono.Http
            Mono.Posix
            Mono.Securit <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	22076	22231	
==>shint', [ 0 ]),
          $loop => @R_ops,
                   aop('pushint', [ 1 ]),
                   aop('goto', [ $loop ]),
          $back => $self->db <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643774	644105	
==>"TYPE" => "inline",
                  "CODE" => 719,
                  "ARGS" => [
                              "i",
                              "p",
                              "ki"
                            ],
                  "BODY" => "#line 199 \"src/ops/pmc.ops\"\n  {{\@1}} = {{\@2}}->vtable->type_keyed_int(interpret <==
2	/Users/nnunley/parrot/config/auto/funcptr.pm	1088	1197	
==>JIT code.

If you wish to continue without JIT support, please re-run this script
With the '--jitcapable=0' ar <==
2	/Users/nnunley/parrot/config/init/optimize.pm	1298	1533	
==>ts);
            # record what optimization was enabled
            $conf->data->set(optimize => $opts);
        } else {
            # use what was passed to --optimize on the CLI
            $conf->data->add(' ', ccflags => $optimize) <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	8281	8457	
==>eedme();
	die "Expecting FOR at $sourceline" unless $syms[CURR] eq "for";
	feedme();
	my $mode="";
	if ($syms[CURR] eq "input") {
		$mode="<";
	} elsif ($syms[CURR] eq "output") <==
2	/Users/nnunley/parrot/config/init/hints/cygwin.pm	709	838	
==>e override the
    # perl5 Configure defaults and use 'gcc -shared' instead of 'ld2'.
    # If this later causes problems, it migh <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	102	197	
==>ide language specific testing routines here...

This is currently alarmingly similar to the gene <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	200	295	
==>ide language specific testing routines here...

This is currently alarmingly similar to the gene <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23560	23801	
==>40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 127,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3332	3487	
==>_;
    return "return cur_opcode + $offset";
}

sub goto_address
{
    my ($self, $addr) = @_;
    return "return opcode_to_prederef(interpreter,  (opcode_t <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23979	24163	
==>> <op> <value>);
    #
    #   redo <label>;
    #   redo <label> if     (<value> <op> <value>);
    #   redo <label> unless (<value> <op> <value>);
    #

    if ($token->is_loop_contr <==
2	/Users/nnunley/parrot/lib/Test/More.pm	34771	34888	
==>s instead of
bare strings your tests won't notice the difference.  This is good.

However, it does mean that functions <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	3683	3835	
==>el',
        expr    => '__expr',
        int     => '__integer',
        list    => '__list',
        script  => '__script',
        var     => '__read' <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	4357	4509	
==>el',
        expr    => '__expr',
        int     => '__integer',
        list    => '__list',
        script  => '__script',
        var     => '__read' <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	4867	5029	
==>'unimplemented'};
        my $label = "BODY_$_->{'class'}___$_->{'method'}";
        $label =~ s/\./_/g;
        $pir .= "$label:\nbody = <<\"___BUILTIN_CODE___\"\ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	11817	11957	
==>_[0]->{items}};
}

sub new ($$;$$)
{
	my ($self, $line, $uncommit, $error) = @_;
	my $class = ref($self) || $self;

	bless
	{
		"items"    => <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3417	3554	
==>, join(", ", $dest, @args));
  }

  #
  # For regular (user-defined) and NCI (Native Call Interface) subs:
  #

  else {
#    $self->DEBUG <==
2	/Users/nnunley/parrot/lib/Test/More.pm	9108	9304	
==>that/, 'this is like that');

is similar to:

    ok( $this =~ /that/, 'this is like that');

(Mnemonic "This is like that".)

The second argument is a regular expression.  It may be given as a
reg <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	1742	1936	
==>HICAL      
    $ret |= 0x0100 if $chr =~ /^[[:blank:]]$/;  # CCLASS_BLANK  
    $ret |= 0x0200 if $chr =~ /^[[:cntrl:]]$/;  # CCLASS_CONTROL        
    $ret |= 0x0400 if $chr =~ /^[[:punct:]]$/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243973	244089	
==>ing(interpreter, {{\@2}});\n  {{\@1}} = string_compare(interpreter, l, {{\@3}});\n  {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244905	245021	
==>ing(interpreter, {{\@2}});\n  {{\@1}} = string_compare(interpreter, l, {{\@3}});\n  {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	603006	603249	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "classname",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1096112	1096355	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "classname",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156249	156683	
==>=> [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 189,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 134 \"sr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38171	38416	
==>\"\n  opcode_t * const dest = (opcode_t *)rethrow_exception(interpreter, {{\@1}});\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	5144	5278	
==>self->{POD_ERRORS} = '';
		$checker->output_string(\$self->{POD_ERRORS});
		$checker->parse_file($self->path);
		$self->{POD_ERRORS_COU <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	2529	2631	
==>table()>

This tells you whether the file is executable.

=cut

sub is_executable
{
    my $self = shif <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3877	3988	
==>lf->_add_inst ('', 'clone',[$to,$from]);
    } elsif ($from =~ /I/) {
      $self->_add_inst ('', 'new',[$to,'.I <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	8312	8474	
==>y $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  goto $op->{result}->{symbol}\n";
    }

    sub visitLabelOp { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511557	511779	
==>DE" => 589,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 685 \"src/ops/math.ops\"\n  {{\@1}} = - {{\@2} <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	20070	20261	
==>e_numbers($on_or_off);

Whether or not the test should output numbers.  That is, this if true:

  ok 1
  ok 2
  ok 3

or this if false

  ok
  ok
  ok

Most useful when you can't depend on the <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19761	19982	
==>xpr )    = @_;
    my ( $defn,   $opcodes ) = @{$expr};
    my $call = pop @{$opcodes};
    my $ass  = pop @{$opcodes};
    my $decl = pop @{$opcodes};
    delete $call->{result};
    push @{$opcodes}, $call;
    re <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	3136	3266	
==>g;
        }

        # The generated files are left in the t/* directories.
        # Let 'make clean' and 'svn:ignore' take c <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2731	2857	
==>g;
        }

        # The generated files are left in the t/* directories.
        # Let 'make clean' and 'svn:ignore' take c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551043	551291	
==>4,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 56 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opc <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1348	1481	
==>, $token->text_r, etc...
    
    } elsif($token->is_end) {
      ...access $token->tagname...
    
    }
  }

(Also see L<Pod::Simple <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17956	18159	
==>Data';
      
      unshift @$paras,
        ['=begin',
          {'start_line' => $para->[1]{'start_line'}, '~really' => '=for'},
          $target,
        ],
        $para,
        ['=end',
          { <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	902	1051	
==>r die "Unable to open '$lang_f'"; # JMG
        binmode LANG; # JMG
        print LANG $lang_code; # JMG
        close LANG; # JMG

        Parrot::Te <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	814	963	
==>r die "Unable to open '$lang_f'"; # JMG
        binmode LANG; # JMG
        print LANG $lang_code; # JMG
        close LANG; # JMG

        Parrot::Te <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3369	3505	
==>al1, $val2, $dest);
}

sub output_gt {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_test('gt', $val1, $val2, $dest);
}

su <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3064	3175	
==>al1, $val2, $dest);
}

sub output_gt {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_test('>', $va <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Ops.pm	609	717	
==>->new_group('Tools', '',
			$self->new_item('', 'tools/build/ops2c.pl'),
			$self->new_item('', 'src/ops/ops. <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4334	4500	
==>e exists in the directory.

=cut

sub file_exists_with_name
{
    my $self = shift;
    my $name = shift;
    
    return -f File::Spec->catfile($self->path, $name);
} <==
2	/Users/nnunley/parrot/tools/dev/as2c.pl	818	925	
==>\s*\d+\s[\da-fA-F]{4}\s([\dA-F]{2,8})\s+(.*)/) {
	    if ($in_comment) {
		print " */\n";
	    }
	    my ($b <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10949	11167	
==>x and [10,x]=10..x
            if ($incexc[-1] <= $last+1) {
                $incexc[-1] = $last+1;
            }
        } else {
            # Append
            push @incexc, $first, ($last+1);
        }
    }

    r <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	2175	2291	
==>BLE BORDER="0" WIDTH="730" CELLSPACING="0" CELLPADDING="0">
            <TR ALIGN="RIGHT">
                <TD WIDTH= <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13685	13785	
==>ssing structures
' Expect:  100, 12 and 103
type first
	foo as integer
	bar as string
end type
functi <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	10704	10835	
==>0;
		$expr=1;
		next;
	}
	unless ($eol) {
		fdprint($fd, "\\n");
	}
	barf();
}
sub parse_read {
	while($type[CURR] !~ /COMP|COMM|STM <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	1858	1988	
==>YNOPSIS

  package My::Test::Module;
  use Test::Builder;
  require Exporter;
  @ISA = qw(Exporter);
  @EXPORT = qw(ok);

  my $Tes <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	409	565	
==>pu-architecture-name/core.jit>).

=cut

use strict;
use warnings;
use lib 'lib';

use Parrot::OpLib::core;
use Parrot::Op;
use Parrot::OpTrans::C;

my $trans <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10073	10176	
==>ES}
pre_call_PLOOP_${CURIC}:
if ${ITEMP0} == 0 goto PRE_CALL_PLOOP_END_${CURIC}
dec ${ITEMP0}
dec ${ITEM <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7587	7690	
==>ES}
pre_call_PLOOP_${CURIC}:
if ${ITEMP0} == 0 goto PRE_CALL_PLOOP_END_${CURIC}
dec ${ITEMP0}
dec ${ITEM <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	733	849	
==>> $ident->file,
    LINE  => $ident->line
  }, $class;

  $block->push_content($self);

  return $self;
}


#
# ACCES <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1415	1531	
==>> $ident->file,
    LINE  => $ident->line
  }, $class;

  $block->push_content($self);

  return $self;
}


#
# ACCES <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	58799	59047	
==>Param( $_[0], $_[1] ),
            ];
        }
	],
	[#Rule 102
		 'parlist', 3,
sub
#line 546 "Lua\lua51.yp"
{
            [
                @{ $_[1] },
                BuildParam( $_[0], $_[3] ),
            ];
        }
	],
	[#Rule <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	2775	2889	
==>t.

=cut

sub add_step
{
    my ($self, $step, @params) = @_;

    push @{$self->{steps}},
        Parrot::Configur <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	1386	1487	
==>eq ref($_[0]) || $_[0]) { # I'm not being subclassed!
    Carp::croak "You can call run() only on subc <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	1308	1500	
==>configuration.pod                          [devel]doc
    docs/debug.pod                                  [devel]doc
    docs/dev/dod.pod                                [devel]doc
    docs/dev/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1241	1327	
==>\ntypedef opcode_t* (*interface_f)(Interp*, INTVAL*, void **);\n\n\n\n/*\n** pmc.ops\n* <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4586	4692	
==>P/_DBP/;
	eval join('',@drv);
}

#Note that for loading debugging version of the driver,
#this file wi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4356	4457	
==>P/_DBP/;
	eval join('',@drv);
}

#Note that for loading debugging version of the driver,
#this file wi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	2143	2262	
==>g #args" if @_ != 3;

    my @equivs; # (labels)
    my @output; # (ops)

    # Merge adjacent (equivalent) labels, rena <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724054	724299	
==>CODE" => 811,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 161 \"src/ops/python.ops\"\n  PMC * const p = {{\@2}};\n  PMC * con <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034671	1034945	
==>\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_lex", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035834	1036108	
==>\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_lex", <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	1089	1239	
==>cur =~ /[#!&%]/) {
			append;
			fetch;
			if ($cur =~ /[!#]/) {
				$numtype="FLO";
			}
		}
		emit($numtype);
		goto MAIN;
	}
NOTNUM:
	#if ($cur eq " <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16676	16771	
==>ry cautiously:
        $x =~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10124	10215	
==>ry cautiously:
    $x =~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghi <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2162	2270	
==>) $addr == 0)
	  return 0;
    goto *ops_addr[*(cur_opcode = (opcode_t *)$addr)]";
    }
}

=item C<expr_offs <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	837260	837397	
==>, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}),\n                  STACK_ENTRY_INT);\n  {{+=2}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	37239	37366	
==>make_string,
  'string'        => \&_op_string,
  'string-length' => \&_op_string_length,
  'string-ref'    => \&_op_string_ref, <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33065	33210	
==>r .= "### pre_store\n";
		$pir .= sub_meta($pre_store, $mv, "pre_store for rule $rule->{'name'}");
		$pir .= "### end pre_store\n";

		# If we hav <==
2	/Users/nnunley/parrot/config/inter/lex.pm	601	740	
==>nalyzer generator like flex or lex?";
@args        = qw( lex ask maintainer );

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	4961	5085	
==>n";
}

sub Label {
   my ($n, $c) = @_;
   print <<EOC;
pc_$n:
EOC
}

sub New_func {
    my ($n, $arg, $cmt) = @_;
    my $ns <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796511	796839	
==>set",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 899,
                  "ARGS" => [ <==
2	/Users/nnunley/parrot/config/init/optimize.pm	1088	1194	
==>4.1 doesn't like -mcpu=xx, i.e. it's deprecated
	    # XXX do we know compiler (version) already?
	    my $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	1380	1487	
==>b gather {
    foreach (keys %Regex::Generate::) {
	next unless /^output_(\w+)$/;
	$OUTPUT{$1} = $Regex::Gen <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	977	1105	
==>INES = sub () {20} }
  DEBUG > 4 and print "MANY_LINES is ", MANY_LINES(), "\n";
  unless(MANY_LINES() >= 1) {
    die "MANY_LINE <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9872	9983	
==>k
			  and (		not exists($$states[$$stack[-1][0]]{ACTIONS})
			        or  not exists($$states[$$stack[-1][0]] <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9427	9536	
==>k
			  and (		not exists($$states[$$stack[-1][0]]{ACTIONS})
			        or  not exists($$states[$$stack[-1][0]] <==
2	/Users/nnunley/parrot/config/auto/inline.pm	1161	1331	
==>$test) {
            print " ($test) " if $verbose;
            $self->set_result('yes');
        } else {
            print " no " if $verbose;
            $self->set_res <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	39372	39494	
==>n(gen_pir)
.end
TRANSPIR

    # Return generated code.
    return $pir;
}


# Inserts auto-magically instantiated meta-vari <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2614	2752	
==>type};

    return sprintf($arg_maps{$type}, $num);
}

=item C<restart_offset($offset)>

Returns the C code for C<restart OFFSET($offset)>. <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3257	3378	
==>al1, $val2, $dest);
}

sub output_le {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_test('le', $val1, $val2 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2952	3072	
==>al1, $val2, $dest);
}

sub output_le {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_test('<=', $val1, $val <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	3406	3532	
==>_type");
    $compiler->emit("  global \"$name\" = $reg");
  }
  else {
    $compiler->emit("  .local $type $name");
  }

  ret <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	742	840	
==>G(i) REG_PMC(i)
#define SREG(i) REG_STR(i)
#define CONST(i) interpreter->code->const_table->constan <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	9752	9880	
==>can operate in sequence
    #
    my ($argtype, $reg_num, $temp_cnt_ref, $temps_ref,
        $extra_preamble_ref, $extra_postambl <==
2	/Users/nnunley/parrot/lib/Test/More.pm	22644	22740	
==>n the block is empty, delete it.

B<NOTE>: TODO tests require a Test::Harness upgrade else it wil <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	692	792	
==>exec prefix. Defaults to '/usr'.

=item C<bindir>

The executables directory. Defaults to '/usr/bin'. <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	921	1021	
==>exec prefix. Defaults to '/usr'.

=item C<bindir>

The executables directory. Defaults to '/usr/bin'. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103874	1103963	
==>\@2}};\n\tINTVAL type = pmc_type(interpreter, class);\n\tif (!type) {\n\t\tParrot_autoload <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105089	1105178	
==>\@2}};\n\tINTVAL type = pmc_type(interpreter, class);\n\tif (!type) {\n\t\tParrot_autoload <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21055	21273	
==>p, $expr2 ) = @_;
    my %type = (
        '+'  => 'number',
        '-'  => 'number',
        '*'  => 'number',
        '/'  => 'number',
        '^'  => 'number',
        '%'  => 'number',
        '..' => 'str <==
2	/Users/nnunley/parrot/config/init/hints/cygwin.pm	1024	1248	
==>'-shared',
        ld_load_flags       => '-shared',
        libs                => $libs,
        has_static_linking  => 0,
        has_dynamic_linking => 1,
        parrot_is_shared    => 1,
        sym_export => '__declspe <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	219	330	
==>ry (or libraries). Its
format is simple, and looks like:

  [package]
  ncurses 

  [lib]
  libform.so

  [defs] <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	40449	40640	
==>=?'   => \&_op_bound_identifier_eq_p,
  'identifier->symbol'  => \&_op_identifier_symbol,
  'free-identfier=?'    => \&_op_free_identifier_eq_p,
  'generate-identfier'  => \&_op_generate_ident <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	2604	2706	
==>ld deactivate vital PMCs like SArray
    # so there would be tests needed, that check for vital classes <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	8465	8627	
==>g, making not a binary op
				[ "not", "PUN"] );
			next;
		}

		if ($unary) {
			push(@expr, [ "-1.0", "INT" ],
				    [ "*", "PUN"] );
			next;
		}
		# Sadly, I <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	118	262	
==>2:00.179448Z bernhard  $

=pod

=head1 NAME

Parrot::Configure::Step::Base - Configuration Step Base Class

=head1 SYNOPSIS
    
    use base qw( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259816	260119	
==>> 302,
                  "ARGS" => [
                              "i",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 793 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} == {{\@3}};\n    {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	32342	32495	
==>er,
        'result' => $state,
    );
    if (    scalar( @{$exprs} ) == 0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	370103	370376	
==>"function",
                  "CODE" => 433,
                  "ARGS" => [
                              "s",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 341 \"src/ops/io.ops\"\n  {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047229	1047429	
==>kc",
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	5511	5640	
==>i_sysaccess' => undef,
             'i_sysdir' => 'define',
             'i_sysexit' => undef,
             'i_sysfile' => 'define <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2648	2754	
==>ock' });
  }

  $handler->start_element({ Name => 'block', Attributes => { kind => $self->kind } });
  $_-> <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	28669	28857	
==>/////////////////////////////////////////////////
      # All non-magical codes!!!
      
      # Here we start using $para_type for our own twisted purposes, to
      #  mean how it should <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	958	1079	
==>s = @ARGV;

if (! @files) {
    die "Usage: $0 <source files>\n" .
        "       $0 all_source\n";
}

if ($files[0] eq " <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	1202	1428	
==>my $class = shift;

    my $self = {
        c        => {},
        triggers => {},
    };

    bless $self, ref $class || $class;
    return $self;
}

=back

=head3 Object Methods

=over 4

=item C<get($key, ...)>

Provides a <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2729	2861	
==>al1, $val2, $dest);
}

sub output_ne {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_test('!=', $val1, $val2, $dest);
} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3033	3138	
==>al1, $val2, $dest);
}

sub output_ne {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_test('n <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	43282	43433	
==>rl quotelike operations are all extracted correctly.

Note too that, when using the /x modifier on a regex, any comment
containing the current pattern d <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	238	382	
==>ned &DEBUG;
}

__PACKAGE__->_accessorize(
  'root',   # root of the tree
);

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	339	457	
==>($GLOBAL_STATE);
sub global_state {
    return $GLOBAL_STATE ||= Regex::State->new();
}

sub expr_to_tree {
    my ($ex <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	555	658	
==>n "_cg";
}

=item C<core_prefix()>

The core prefix is C<'cg_'>.

=cut

sub core_prefix
{
    return "cg <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	675798	676081	
==>PE" => "inline",
                  "CODE" => 757,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 473 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_integer(interpr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22987	23098	
==>er->current_cont = NEED_CONTINUATION;\n  dest = (opcode_t *)p->vtable->invoke(interpreter, p, dest);\n  {{=dest} <==
2	/Users/nnunley/parrot/lib/Test/More.pm	4654	4778	
==>b import {
    my($class) = shift;

    my $caller = caller;

    $Test->exported_to($caller);

    my $idx = 0;
    my @plan <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948884	949119	
==>set(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949684	949919	
==>set(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27249	27346	
==>pre_translate_code, $mv, "pre-translate for $rule->{'name'}");

		# If we have PIR for the instruc <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34388	34485	
==>pre_translate_code, $mv, "pre-translate for $rule->{'name'}");

		# If we have PIR for the instruc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488091	488346	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARGD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	489484	489739	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARGD <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1030	1196	
==>rint "Handling $_[1] end-event\n";
  shift @{$_[0]{'_currpos'}};
  DEBUG > 3 and print "Stack is now: ",
    join(">", map $_->[0], @{$_[0]{'_currpos'}}), "\n";
  retu <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	35	144	
==>6, The Perl Foundation.
# $Id: /parrot/tools/dev/check_source_standards.pl 19607 2006-05-30T15:23:20.183054Z c <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5202	5334	
==>',$$token)) {
#DBG>			$tok.=		(ord($_) < 32 or ord($_) > 126)
#DBG>					?	sprintf('<%02X>',ord($_))
#DBG>					:	$_;
#DBG>		}
#DB <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4952	5079	
==>',$$token)) {
#DBG>			$tok.=		(ord($_) < 32 or ord($_) > 126)
#DBG>					?	sprintf('<%02X>',ord($_))
#DBG>					:	$_;
#DBG>		}
#DB <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4610	4727	
==>C<restart
OFFSET($offset)>.

=item C<goto_address($address)>

Transforms the C<goto ADDRESS($address)> macro in an ops <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45723	45885	
==>fer:';
my $TOKENPATMK		= '\G\s*<token:';
my $AUTOERRORMK		= '\G\s*<error(\??)>';
my $MSGERRORMK		= '\G\s*<error(\??):';
my $UNCOMMITPROD	= $PROD.'\s*<uncommit';
my <==
2	/Users/nnunley/parrot/config/auto/signal.pm	911	1060	
==>c_build(); };
    unless ($@ || cc_run() !~ /ok/) {
        $conf->data->set(has___sighandler_t => 'define');
        print " (__sighandler_t)" if $ve <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	1319	1443	
==>$syms[CURR] ne ")") {
				feedme;
			}
			feedme;
		}
		$stype="";
		$user=0;
		if ($syms[CURR] eq "as") {
			feedme;
			$sty <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	31966	32097	
==>ir must use one of \${STACK0} or \${STOREREG} in rule " .
				"$rule->{'name'}\n";
        } elsif ($rule->{'instruction'} =~ /\$\{S <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	976	1078	
==>define PREG(i) REG_PMC(cur_opcode[i])
#define SREG(i) REG_STR(cur_opcode[i])
#define CONST(i) CONTEXT(i <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1092	1194	
==>define PREG(i) REG_PMC(cur_opcode[i])
#define SREG(i) REG_STR(cur_opcode[i])
#define CONST(i) CONTEXT(i <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2987	3088	
==>=> "\n\\par}\n",

 # we don't need any styles for over-* and /over-*
);


#~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	39202	39322	
==>pir .= sub_meta($srm_pt, $mv, 'post_translation');
    $pir .= "### end post_translation\n";

    # Emit the end of the t <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	672	802	
==>= sub ($$;$) {
        my $self = shift;
        my ( $code, $output, $desc ) = @_;
  
        my $count = $self->{builder}->curren <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1039	1169	
==>= sub ($$;$) {
        my $self = shift;
        my ( $code, $output, $desc ) = @_;
  
        my $count = $self->{builder}->curren <==
2	/Users/nnunley/parrot/config/gen/config_h.pm	1665	1815	
==>define BUILD_OS_NAME \"$^O\"\n";

    my $define = $conf->options->get('define');

    if ($define) {
        my @vals = split /,/, $define;
        pr <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16448	16591	
==>BCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
            return $x;
        }
    }

    foreach my $x (@_) 
    {
        # Pod <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9991	10122	
==>BCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
      return $x;
    }
  }
  foreach my $x (@_) {
    # Escape things v <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	6246	6370	
==>abel}->{reachable}; # Keep if reachable
	}
	push @output3, $stmt if $keeping;
    }

    # Reset the 'next' pointers
    unde <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28148	28286	
==>' => $l_break,
    );
    push @opcodes, new BranchOp( $parser,
        'result' => $l_continue,
    );
    push @opcodes, new LabelOp <==
2	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	1657	1760	
==>t_test + 1;

  my $output = $self->gen_output( $code, $test_no ); 
  
  my $pass = $self->{builder}->is_ <==
2	/Users/nnunley/parrot/languages/converter.pl	1064	1174	
==>erminal(?) '[' production ']' production(?)
#		{[@item]}
		{ $return = '';
		  $return .= $item[1][0] if define <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	25084	25194	
==>mt
EOC
    }
    elsif ($name =~/^obj (\S+) attr (\w+)/) {  # convert to meth call syntax
	my ($obj, $attr) = ( <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	712	821	
==>s = $conf->data->get('linkflags');
    my $ccflags   = $conf->data->get('ccflags');
    if ($^O =~ /mswin32/i) <==
2	/Users/nnunley/parrot/config/auto/readline.pm	724	833	
==>s = $conf->data->get('linkflags');
    my $ccflags   = $conf->data->get('ccflags');
    if ($^O =~ /mswin32/i) <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2272	2433	
==>nf->data->get('a'),
            libparrot_shared     => 'libparrot$(SHARE_EXT)',
            ar_flags             => '',
            ar_out               => '-out <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	6074	6187	
==>_value:
    if value >= 0.0 goto print_value_1
    result .= unicode:"\u207b"
    value = abs value
  print_value_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22477	22624	
==>on' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 72
		ACTIONS => {
			"-" => 24,
			'NAME' => 4, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841645	841896	
==>interpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842409	842660	
==>interpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2811	2917	
==>ined $left_type;
  $self->INTERNAL_ERROR("No type for right!") unless defined $right_type;

  $self->SYNTAX <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2577	2683	
==>ined $left_type;
  $self->INTERNAL_ERROR("No type for right!") unless defined $right_type;

  $self->SYNTAX <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15295	15409	
==>1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # return a single scalar
    ($x = ((@_ = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16476	16590	
==>1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # return a single scalar
    ($x = ((@_ = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	268273	268577	
==>> "inline",
                  "CODE" => 312,
                  "ARGS" => [
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 816 \"src/ops/cmp.ops\"\n    {{\@1}} = !VTABLE_get_bool(interpreter, {{\@2}});\n    {{+=3}};\n" <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	763	951	
==>tch_failed {
    return ('set <rx_match>["!POS"], <rx_pos>',
            'set <rx_match>["!RESULT"], 0',
            'set <rx_match>["0";1], -2');
}

sub value {
    my $name = shift;
    r <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	2139	2265	
==>ount         The total number of blocks begun (used for labels)
##   @block_stack         The stack of active blocks. We keep a <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	158	269	
==>::HTMLPage - HTML Documentation Page

=head1 DESCRIPTION

C<Parrot::Docs::HTMLPage> gives Parrot documentation p <==
2	/Users/nnunley/parrot/config/inter/progs.pm	3711	3818	
==>nf->options->get('cxx'));
    $cxx = prompt("What C++ compiler do you want to use?", $cxx) if $ask;
    $con <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	23374	23530	
==>c filehandle.

=cut

sub _print_diag {
    my $self = shift;

    local($\, $", $,) = (undef, ' ', '');
    my $fh = $self->todo ? $self->todo_output : $self <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	615	759	
==>1) {
         my ($input, $output);

         last if ! defined $_;
         die "INPUT: expected" if ! /^INPUT:/;

         # Gather input, look <==
2	/Users/nnunley/parrot/languages/regex/test.pl	2552	2676	
==>1) {
    my ($input, $output);

    last if ! defined $_;
    die "INPUT: expected" if ! /^INPUT:/;

    # Gather input, look <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74187	74296	
==>$reps<$max;)
	{
		$_savetext = $text;
		my $prevtextlen = length $text;
		my $_tok;
		if (! defined ($_tok = & <==
2	/Users/nnunley/parrot/config/gen/platform.pm	3841	4042	
==>]
**
** DO NOT EDIT THIS FILE
**
** Generated by config/gen/platform.pm
*/
END_HERE

    # We need to put things from begin.c before the parrot.h include.
    if (-e "config/gen/platform/$platform/begin <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	4913	5112	
==>ete $delete{$_->{filename}};
  }

  unlink keys %delete;
}

sub process_list {
  my $CGI = shift;
  my $tmpl = HTML::Template->new(scalarref => \$t, die_on_bad_params => 0);

  #print "HTTP/1.0 200 OK <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152503	153000	
==>FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 185,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 120 \"src/ops/cmp.op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436482	436574	
==>line 94 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437497	437589	
==>line 94 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, { <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5936	6060	
==>tput_setend {
    my ($self, $group, $value, $adj) = @_;
    $value = value($value);
    my @ops;
    if ($adj) {
        pus <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5574	5698	
==>tput_setend {
    my ($self, $group, $value, $adj) = @_;
    $value = value($value);
    my @ops;
    if ($adj) {
        pus <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	4010	4235	
==>lename;
                next;
            }

            ($percent, $total_lines, my $function) = /\s*([^%]+)% of (\d+)(?: source)? lines executed in function (.*)/;
            if ($total_lines) {
                $function_li <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	692	874	
==>ucase$ val varptr varptr$ varseg
		   );
@keywords=qw(	access alias any append as
			base beep binary bload bsave byval
			call calls absolute interrupt base chain circle clear
				cl <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	1690	1913	
==>de numbering file',
	'o' => 'Compiled file',
	'ook' => 'Ook! code',
	'ops' => 'Parrot opcode file',
	'p6' => 'Perl6 code',
	'pasm' => 'Parrot assembly code',
	'pbc' => 'Parrot bytecode',
	'pl' => 'Perl script',
	'pm' => 'Per <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476988	477086	
==>ine 428 \"src/ops/math.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(inte <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477884	477982	
==>ine 428 \"src/ops/math.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(inte <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	4415	4568	
==>ot with different config
        $dest = File::Spec->catdir($options{bindir}, $dest);
        if ($copy =~ /^installable/) {
            push @installable <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4999	5154	
==>) } @external_calls;
    
    printf("Found %d functions which are defined and called within the %d supplied source files.\n", scalar(@internal_calls), scal <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	435	633	
==>{
    no strict 'refs';

    *{"URM::Test::output_$meth"} = sub {
        my( $lang_code, $output, $desc, @other ) = @_;

        ++$count;
        my( $lang_f, $pasm_f, $by_f, $out_f ) = map { # JMG <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	3181	3326	
==>(int8_t => $type);
        eval {
            cc_gen('config/auto/sizes/test2_c.in');
            cc_build();
            %hugeintval = eval cc_ru <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8130	8275	
==>stem $command;
    my $exit_code = $? >> 8;

    close STDOUT or die "Can't close    stdout" if $out;
    close STDERR or die "Can't close    stde <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21584	21684	
==>nsym();

  $return = $self->_constant(1);
  my $temp = $self->_generate($node->{children}[1]);
  $sel <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21969	22069	
==>nsym();

  $return = $self->_constant(1);
  my $temp = $self->_generate($node->{children}[1]);
  $sel <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	14630	14727	
==>t is not recognised.

For example, a version of like(), sans the useful diagnostic messages,
could <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5116	5247	
==>op) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  ";
        if ( exists $op->{result} and scalar( @{ $op->{result <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6148	6279	
==>op) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  ";
        if ( exists $op->{result} and scalar( @{ $op->{result <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	8245	8565	
==>lf->_add_inst ('', 'branch',["DONE_$label"]);
  $self->_add_inst ("LAMBDA_$label");

  # caller saved => start a new frame
  push @{$self->{frames}}, $self->{regs};
  $self->{regs} = _new_regs;
  # P1 is the return contination
  $self->{regs}{P}{1} = 1;
  
  # expand the lexical scope
  $self->_add_inst('', '# new_pad', <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	11203	11326	
==>k = substr($classblock, 1,-1); # trim out the { }

    my (@methods, %meth_hash, $class_init);

    while ($classblock =~ s/ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	39378	39490	
==>pty or contains
only whitespace characters).
If the string is "", the the default behaviour (i.e. failure) is rei <==
2	/Users/nnunley/parrot/lib/Test/More.pm	3025	3125	
==>ferred way to do this is to declare a plan when you C<use Test::More>.

  use Test::More tests => $Nu <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	34922	35226	
==>e,
  'abs'              => \&_op_abs,
  'quotient'         => \&_op_quotient,
  'remainder'        => \&_op_remainder,
  'modulo'           => \&_op_modulo,
  'gcd'              => \&_op_gcd,
  'lcm'              => \&_op_lcm,
  'numerator'        => \&_op_numerator,
  'denominator'      => \&_op_denomin <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	800	945	
==>d for block-related labels. For
example, B<while> loops have labels related to the loop control statements,
and these are kept distinct by applyin <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9319	9449	
==>ame eq 'item-text' )
    {
        $self->{IN_ITEM_TEXT} = 0;
    }
    
    print {$self->{'output_fh'}} $self->{'Tagmap'}{"/$tagn <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571183	571451	
==>t_isa(interpreter, {{\@2}}, class);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572138	572406	
==>t_isa(interpreter, {{\@2}}, class);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	23659	23756	
==>one->isa_str = CONST_STRING(interp, "$isa");
        vt_clone->does_str = CONST_STRING(interp, "$d <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2785	2885	
==>lm -lgmp -lreadline -lpthread -lm -L/opt/local/lib  -licuuc -licudata -lpthread -lm';
        $extraL <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	2580	2680	
==>lm -lgmp -lreadline -lpthread -lm -L/opt/local/lib  -licuuc -licudata -lpthread -lm';
        $extraL <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10936	11095	
==>ith [4,x]=4..x and [10,x]=10..x
            if ($incexc[-1] <= $last+1) {
                $incexc[-1] = $last+1;
            }
        } else {
            # Ap <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1393	1546	
==>?
        "$_[0]{'source_filename'} -- " : ''
    }
  }
}
sub start_head2 {  $_[0]{'Thispara'} = '' }
sub start_head3 {  $_[0]{'Thispara'} = '' }
sub star <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	18383	18517	
==>nt = join ' ', splice @$para, 2;
      $content =~ s/^\s+//s;
      $content =~ s/\s+$//s;
      unless(length($content)) {
        $se <==
2	/Users/nnunley/parrot/config/auto/jit.pm	252	406	
==>nd whether there is JIT
capability available.

=cut

package auto::jit;

use strict;
use warnings;

use base qw(Parrot::Configure::Step::Base);

use Config <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	53808	53912	
==>t is 
automatically reset to 1 (under C<-w>, a warning is issued if the argument 
has to be reset).

=ite <==
2	/Users/nnunley/parrot/tools/dev/as2c.pl	1351	1486	
==>{
	    print " " x 26, " /* $1: */\n";
	}
	elsif ($in_comment) {
	    print " * $_\n";
	}
    }
    print "    0x00\n";
    print "};\n" <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36006	36134	
==>\n";
        $mv->{'PARAMS'} = 'c_params';
        push @localmv, 'PARAMS';

        # If we don't have an ARG0, we'll fake it ou <==
2	/Users/nnunley/parrot/Configure.pl	3014	3132	
==>should be one
of: C<gc>, C<libc>, C<malloc> or C<malloc-trace>. The default is C<gc>.

=back

ICU Options

=over

=item <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	313	429	
==>tools/build/pbc2c.pl> to transform Parrot bytecode to a C code
run loop.

=head2 Instance Methods

=over 4

=cut


pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029748	1029855	
==>= {{^+2}};\n  if ({{\@1}} < 0.0) {\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030590	1030697	
==>= {{^+2}};\n  if ({{\@1}} < 0.0) {\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back i <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1079	1274	
==>at ${STEMP0}
    ${INS} = concat ", "
    ${STEMP0} = pop lazy_moves
    ${INS} = concat ${STEMP0}
    ${INS} = concat "\n"
    goto SRM_LMKILL$suffix
SRM_LMKILL_EXIT$suffix:
PIR
    $pir =~ s/\$s <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	967	1062	
==>ode[i])
#define PREG(i) REG_PMC(cur_opcode[i])
#define SREG(i) REG_STR(cur_opcode[i])
#define CO <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1083	1178	
==>ode[i])
#define PREG(i) REG_PMC(cur_opcode[i])
#define SREG(i) REG_STR(cur_opcode[i])
#define CO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82927	83281	
==>n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	537070	537326	
==>inline",
                  "CODE" => 621,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 956 \"src/ops/math.ops\"\n  {{\@1}} = sin((FLOATVA <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	877	980	
==>ub runtime_init {
	push @{$code{$seg}->{code}}, <<INIT;
	#
	# Program Begins Here
	# I must not fear. Fe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305646	305885	
==>_IS_NULL({{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307215	307454	
==>_IS_NULL({{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059572	1059838	
==>"NAME" => "find_name",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060476	1060742	
==>"NAME" => "find_name",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1493	1652	
==>'Jako::Construct::Type::String')) {
    my $string = $self->value;

#    $self->DEBUG(0, "Compiling string literal: '%s'...", $self->value);

    return $string <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	454351	454751	
==>i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 521,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 235 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17479	17576	
==>elf->_save_1 ('I');
  $self->_add_inst ("NEXT_$label", 'typeof',[$type,$list]);
  $self->_add_inst <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	324	419	
==>onstruct::Expression::Infix;

use base qw(Jako::Construct::Expression);

sub new
{
  my $class = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661981	662243	
==>}}->vtable->exists_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662897	663159	
==>}}->vtable->exists_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3230	3356	
==>can't use -opt: and -debug together.
        if ($conf->data->get('ld_debug') =~ /-debug/) {
            my $linkflags = $conf- <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4734	4860	
==>can't use -opt: and -debug together.
        if ($conf->data->get('ld_debug') =~ /-debug/) {
            my $linkflags = $conf- <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	6714	6824	
==>ult = eval $out;
    carp $@ if $@;
}

sub _usage_error {
    confess "struct usage error";
}

sub _subclass_er <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	2358	2587	
==>}

=item C<path()>

Returns the actual path.

=cut

sub path
{
    my $self = shift;
    
    return $self->{PATH};
}

=item C<name()>

Returns the name part of the path.

=cut

sub name
{
    my $self = shift;
    
    return $se <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	2974	3076	
==>d, $description)>

Runs the PIR code and passes the test if a string comparison of output
with the expe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	538081	538806	
==>){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "tan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 623,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 982 \"src/ops/math.ops\"\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	538832	539520	
==>){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "tanh",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 624,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	9443	9584	
==>is = shift;
  # Max_token is so high because these are
  #  typically at the end of the document:
  $this->_get_titled_section('AUTHOR' , max_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	48575	48695	
==>er->{'output_string'}\n";

    $parser->hide_line_numbers(1);
    $mutor->($parser) if $mutor;
    $parser->parse_string_ <==
2	/Users/nnunley/parrot/config/auto/jit.pm	697	813	
==>miniparrot')) {
        $self->set_result('skipped');
        return $self;
    }

    my $verbose = $conf->options-> <==
2	/Users/nnunley/parrot/config/gen/cpu.pm	609	725	
==>miniparrot')) {
        $self->set_result('skipped');
        return $self;
    }

    my $verbose = $conf->options-> <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	505	625	
==>lePMCArray
CODE
PIR
}

# Post translation hook.
sub post_translation() {
	# Nothing to do.
	return "";
}

# Extra subrout <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189658	189801	
==>"
                            ],
                  "BODY" => "#line 306 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190599	190742	
==>"
                            ],
                  "BODY" => "#line 306 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	919	1076	
==>Thispara'} = '' }
sub start_head1 {  $_[0]{'Thispara'} = '' }
sub start_head2 {  $_[0]{'Thispara'} = '' }
sub start_head3 {  $_[0]{'Thispara'} = '' }
sub star <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6354	6446	
==>itch_${CURIC}:
i = elements P_arg_0
POST_BRANCH_switch_${CURIC}_LOOP:
if i == 0 goto POST_BRA <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4292	4384	
==>itch_${CURIC}:
i = elements P_arg_0
POST_BRANCH_switch_${CURIC}_LOOP:
if i == 0 goto POST_BRA <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	591	794	
==>un this. Use the CPAN
shell:

    perl -MCPAN -e shell 
    cpan> install C::Scan 
    ...

=cut

################################################################################

# the following #defined <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7295	7410	
==>t_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If the register name to load from was supp <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5117	5232	
==>t_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If the register name to load from was supp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449355	449544	
==>n  {{\@1}}->vtable->i_absolute(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	20316	20458	
==>pe{$op} );
    push @opcodes, @{ $expr->[1] };
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627207	627303	
==>llegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n\n  /* Why?? If we're creating a continuation <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628351	628447	
==>llegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n\n  /* Why?? If we're creating a continuation <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5464	5615	
==>able Functions */
EOM
    for my $entry (@{$vtable}) {
    next if ($entry->[4] =~ /MMD_/);
    $macros .= <<"EOM";
        \"__$entry->[1]\",
EOM
    } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52892	53294	
==>bug",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 68,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 829 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Interp_flags <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605099	605369	
==>ps/object.ops\"\n    Parrot_remove_parent(interpreter, {{\@2}}, {{\@1}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	194	292	
==>Jako/Construct/Block/Loop.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use war <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	9779	9924	
==>_op' => 'l!',
             'parrot_is_shared' => 0,
             'perl' => 'perl',
             'platform_asm' => 0,
             'pmc' => 'defaul <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	968	1102	
==>s) ne "ARRAY";

  my $self = bless {
    BLOCK => $block,

    TYPE  => $type,
    NAME  => $ident->value,
    PROPS => $props,
    ARG <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3978	4087	
==>"<rx_len>";
    my $fail = $self->output_label_use($failLabel);
    if ($needed eq "1") {
        return "ge < <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632364	632538	
==>,
                              "p"
                            ],
                  "BODY" => "#line 91 \"src/ops/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_v <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633406	633580	
==>,
                              "p"
                            ],
                  "BODY" => "#line 91 \"src/ops/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_v <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	3286	3414	
==>s{$1} = $2;
    } else {
        push @manifests, $_;
    }
}

# We'll report multiple occurrences of the same file
my %seen;

my <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85407	85517	
==>,
                  "BODY" => "#line 1208 \"src/ops/core.ops\"\n  PMC * const compreg_hash = VTABLE_get_pmc_key <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86314	86424	
==>,
                  "BODY" => "#line 1208 \"src/ops/core.ops\"\n  PMC * const compreg_hash = VTABLE_get_pmc_key <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456118	456412	
==>PE" => "inline",
                  "CODE" => 523,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 235 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2} <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39071	39180	
==>minal { 0 }

sub describe { $_[0]->{"expected"} }
sub sethashname { $_[0]->{hashname} = '__DIRECTIVE' . ++$_[1 <==
2	/Users/nnunley/parrot/config/init/hints.pm	1076	1192	
==>ss ($@) {
        $hints->runstep($conf, @_) if $hints->can('runstep');
        $hints_used++;
    }

    if ($hints_ <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	14032	14191	
==>s the class structure from I<$file> for a .dump file.

=cut

sub dump_1_pmc {
    my $file = shift;
    $file =~ s/\.\w+$/.pmc/;

    my $fh = open_file( "<", $ <==
2	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	1151	1283	
==>un_command( $cmd, 
						    CD     => $self->{relpath},
						    STDOUT => $out_f, 
						    STDERR => $out_f );
  $diag .= "'$cmd <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	360	467	
==>op-level section for the HTML documentation for Parrot.

=head2 Class Methods

=over

=cut

package Parrot:: <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	676	790	
==>desc = $language unless $desc;

    # Figure out how many levels we have to go back to get to parrot.
    # And, co <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3178	3301	
==>ext the data belongs.

For APIs purely internal to Parrot, try using C<const> in function
prototypes as often as possible to <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	4721	4856	
==>iuml'     , 239,
 'eth'      , 240,
 'ntilde'   , 241,
 'ograve'   , 242,
 'oacute'   , 243,
 'ocirc'    , 244,
 'otilde'   , 245,
 'oum <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	48700	48840	
==>ons. That is, C<extract_codeblock>
is like a combination of C<"extract_bracketed"> and
C<"extract_quotelike">.

C<extract_codeblock> takes th <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	4590	4779	
==>gen/makefiles/jako.in' => 'languages/jako/Makefile',
        commentType                    => '#',
        replace_slashes                => 1
    );
    genfile(
        'config/gen/makefi <==
2	/Users/nnunley/parrot/config/init/miniparrot.pm	1058	1618	
==>,
        TEMP_cg_h          => '',
        TEMP_cg_c          => '',
        TEMP_cg_o          => '',
        TEMP_cg_r          => '',
        cg_flag            => '',
        archname           => 'miniparrot',
        cpuarch            => 'unknown',
        osname             => 'ANSI',
        jitarchname        => 'nojit',
        jitcpuarch         => 'i386',
        jitcpu             => 'I386',
        jitosname          => 'nojit',
        jitcapable         => 0,
        execcapable        => 0,
        cc_hasjit          => '',
        TEMP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	7853	8122	
==>],
                  "TYPE" => "inline",
                  "CODE" => 11,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 171 \"src/ops/core.ops\"\n  {{+={{\@1}}}};\n",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888019	888218	
==>",
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpr <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3433	3538	
==>$props{fnlib}) {
      $fnlib = $props{fnlib}->value; # TODO: We should make sure its a string, somewhere. <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6097	6202	
==>$props{fnlib}) {
      $fnlib = $props{fnlib}->value; # TODO: We should make sure its a string, somewhere. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151050	151139	
==>f (0 == string_equal(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152028	152117	
==>f (0 == string_equal(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	1119	1272	
==>ND      => 'unless',
    LEFT      => $left,
    OP        => $op,
    RIGHT     => $right,

    CONTENT   => [ ]
  }, $class;

  $block->push_content($se <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	29164	29315	
==>curr_open->[-1][0] eq '=over'
      ) {
        DEBUG > 2 and print "'=$para_type' inside an '=over'!\n";
        $self->whine(
          $para->[1]{'st <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	8685	8843	
==>undle',
             'longsize' => 4,
             'make' => 'gmake',
             'make_and' => '&&',
             'make_c' => 'gmake -C',
             'make_ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	52772	52875	
==>~ /\A\s*<score:(.*)>\Z/s;
				$prod and $prod->addscore($1, $lookahead, $line)
				      or  _no_rule($c <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9671	9784	
==>ASSEMBLY}, ${ARG0})

# If it's a call to instantiate, need to knock off first arg.
if "${CURIC}" != "73" goto pre_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7185	7298	
==>ASSEMBLY}, ${ARG0})

# If it's a call to instantiate, need to knock off first arg.
if "${CURIC}" != "73" goto pre_ <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	10033	10131	
==>er.pmc exception.pmc version.pmc vtablecache.pmc parrotio.pmc parrotlibrary.pmc parrotinterpreter.p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864016	864146	
==>src/ops/string.ops\"\n  UINTVAL n;\n  STRING *s = {{\@2}};\n  if (!s)\n    n = 0;\n  else {\n    n = s->bufused;\n    assert(n == E <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864908	865038	
==>src/ops/string.ops\"\n  UINTVAL n;\n  STRING *s = {{\@2}};\n  if (!s)\n    n = 0;\n  else {\n    n = s->bufused;\n    assert(n == E <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	850	1059	
==>nsure rules file exists and parse it.
my @rules = ();
if (-e $rules_file) {
    @rules = parse_rules($rules_file);
} else {
    die "Error: Cannot load rules file $rules_file: $!\n";
}

# Create metavariables t <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	1449	1564	
==>elf = shift;

  die "Nothing to restore"
    unless defined @_;
  foreach my $reg (@_) {
    next if grep { $_ eq $r <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8323	8419	
==>);"Stuff"
print "I am the very model of a modern";tab$(15);"More"
print "Hello","Again",d
dim c$( <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21187	21283	
==>);"Stuff"
print "I am the very model of a modern";tab$(15);"More"
print "Hello","Again",d
dim c$( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18347	18459	
==>t:

=over

=item $parser->head1_halfpoint_size( I<halfpoint_integer> );

=item $parser->head2_halfpoint_size( I<h <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	49074	49186	
==>ts to be specified separately (see below).

Omitting the first argument (input text) means process C<$_> instead. <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45512	45608	
==>*<skip:';
my $OPMK		= '\G\s*<(left|right)op:';
my $ENDDIRECTIVEMK	= '\G\s*>';
my $RESYNCMK		= '\G <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83695	83785	
==>_get_pmc_keyed_int(interpreter,\n      interpreter->iglobals, IGLOBALS_COMPREG_HASH);\n  VT <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84601	84691	
==>_get_pmc_keyed_int(interpreter,\n      interpreter->iglobals, IGLOBALS_COMPREG_HASH);\n  VT <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	14434	14600	
==>nd print "Write-opening to $to\n";
    open($out_fh, ">$to")  or  Carp::croak "Can't write-open $to: $!";
    binmode($out_fh)
     if $self->can('write_with_binmode') <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	1299	1436	
==>value into and out of the op
    inconst       the argument passes a constant value into the op
    invar         the argument passes a va <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	26034	26195	
==>te($R, $lastback);

    my @ops = (
                        aop('pushindex'),
                        aop('goto', [ $next ]),
               $back => aop('popinde <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	10617	10721	
==>eters =~ s/ //g;

    # type method(interpreter, self, parameters...)
    my $ret = $calltype{$type or "v <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	9935	10413	
==>_->{pragma} eq 'multi' ) {
                print {$FH} " :flat";
            }
            $first = 0;
        }
        print {$FH} ")\n";
    }

    sub visitLocalDir {
        my $self  = shift;
        my ($dir) = @_;
        my $FH    = $self->{fh};
        print {$FH}
            "  .local $dir->{result}->{type} $dir->{result}->{symbol}\n";
    }

    sub visitLexDir {
        my $self  = shift;
        my ($dir) = @_;
        my $FH    = $self->{fh} <==
2	/Users/nnunley/parrot/config/auto/gc.pm	1940	2114	
==>SRC_DIR)/res_lea\$(O)",
            gc_flag   => '-DGC_IS_MALLOC',
        );
    } elsif ($gc eq 'libc') {
        $conf->data->set(
            TEMP_gc_c => <<"EOF",
\$(SRC_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	622113	622219	
==>c_opcode(interpreter, PARROT_OP_get_params_pc);\n    ((void**)cur_opcode)[1] = mic->m.sig;\n    {{+=0}};\n" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19000	19103	
==>-points, like 15 for 7.5-point)
that the header on each page will appear in.  The header
is usually just <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	415	508	
==>-- text-tokens from Pod::Simple::PullParser

=head1 SYNOPSIS

(See L<Pod::Simple::PullParser>) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	52340	52485	
==>i = 2; $i < @$lol; ++$i) {
    if( ref($lol->[$i] || '') and UNIVERSAL::isa($lol->[$i], 'ARRAY') ) {
      _stringify_lol( $lol->[$i], $to);  # re <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	28234	28336	
==>]{'start_line'};

  # A recursive algorithm implemented iteratively!  Whee!

  while($treelet = shift @ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	31735	31837	
==>]{'start_line'};

  # A recursive algorithm implemented iteratively!  Whee!

  while($treelet = shift @ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13228	13333	
==>y as third
dim k as second
x.fwd.link.foo=34
y.fwd=x.fwd
x.fwd.link.foo=99
print y.fwd.link.foo

' Structu <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	15818	15957	
==>ref_path
{
    my $self = shift;
    my $path = shift;

    $path =~ s|\\+|/|go;

    return $path;
}

=back

=head2 Functions

=over 4

=it <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	13772	14064	
==>1Code_to_fallback{I<integer>}

For numbers in the range 160 (0x00A0) to 255 (0x00FF), this maps
from the character code for a Latin-1 character (like 233 for
lowercase e-acute) to the US-ASCII character that best aproximates
it (like "e").  You may find this useful if you are rendering
POD in <==
2	/Users/nnunley/parrot/config/inter/lex.pm	956	1087	
==>->set($util => 'echo');
        $self->set_result('skipped');
        return $self;
    }

    my $prog;

    # precedence of source <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	953	1084	
==>->set($util => 'echo');
        $self->set_result('skipped');
        return $self;
    }

    my $prog;

    # precedence of source <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23264	23386	
==>rn;
}

sub _op_max {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_generate($ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501307	501756	
==>"mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 576,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 621 \"src/ops/math.o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	502046	502496	
==>"mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 577,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 626 \"src/ops/math.ops <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	35477	35622	
==>" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -68
	},
	{#State 132
		ACTIONS => {
			"^" => 79
		},
		DEFAULT => -62
	},
	{#St <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	66679	66838	
==>tchrule and $rule and $rule->addcall($name);
					}
				}
				elsif ($grammar =~ m/$BADREP/gco)
				{
					_parse("an subrule match with invalid repetition spec <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36422	36549	
==>code (sets up dtypes as needed).
		$pir .= "### typeinfo\n";
		$pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	3268	3373	
==>pr attribute="Comment" context="#stay" String="#.*\$" />
          <RegExpr attribute="Comment" context="p <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	30333	30440	
==>vector {
}

sub _op_vector_fill_bang {
}

sub _op_procedure_p {
  my ($self, $node) = @_;
  my $return;

  _ <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	4194	4443	
==>block;
                    select STDOUT;
                    die $@ if $@;
                }
            }

        }
        if ($in_def ne '') {
            die "Missing '&end_gen' in $f\n";
        }
        close(F);
    }
    $conf->data->set(T <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	1713	1875	
==>ext = $2;
      next;
    }

    #
    # String literals:
    #

=begin commented_out

    if ($text =~ m{^((?:\'(?:\\\'|(?!\').)*\'))(.*)$}) {
      push @tokens, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	880207	880414	
==>"sc",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (!dest) <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30062	30216	
==>=> {
			"(" => 48,
			"{" => 38,
			'STRING' => 44
		},
		GOTOS => {
			'tableconstructor' => 46,
			'args' => 149
		}
	},
	{#State 97
		ACTIONS <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	325	416	
==>_cpu.c>. It parses the JIT file for the
specified CPU architecture type (F<src/jit/cpu-archi <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	22932	23171	
==>C;

    my $msg = join '', @msgs;

    local($\, $", $,) = (undef, ' ', '');
    my $fh = $self->output;

    # Escape each line after the first with a # so we don't
    # confuse Test::Harness.
    $msg =~ s/\n(.)/\n# $1/sg;

    # Stick a <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	1357	1487	
==>lags => '-L/sw/lib');
            $conf->data->add(' ', ldflags   => '-L/sw/lib');
            $conf->data->add(' ', ccflags   => ' <==
2	/Users/nnunley/parrot/config/auto/readline.pm	1446	1576	
==>lags => '-L/sw/lib');
            $conf->data->add(' ', ldflags   => '-L/sw/lib');
            $conf->data->add(' ', ccflags   => ' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6656	6766	
==>utput_atend {
    my ($self, $failLabel) = @_;
    my $fail = $self->output_label_use($failLabel);
    return ( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6300	6410	
==>utput_atend {
    my ($self, $failLabel) = @_;
    my $fail = $self->output_label_use($failLabel);
    return ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172753	173250	
==>S" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 207,
                  "ARGS" => [
                              "p",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 218 \"src/ops/cmp.ops\" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173735	174033	
==>S" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 208,
                  "ARGS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621737	621832	
==>AGS(ccont) & SUB_FLAG_TAILCALL) {\n\t    PObj_get_FLAGS(ccont) &= ~SUB_FLAG_TAILCALL;\n\t    --c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29577	29664	
==>AGS(ccont) & SUB_FLAG_TAILCALL) {\n\tPObj_get_FLAGS(ccont) &= ~SUB_FLAG_TAILCALL;\n\t--c <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	7581	7699	
==>[0] <= 0;
    return $op->{args}->[0] * $op->{args}->[3]->minlen();
}

sub maxlen {
    my $op = shift;
    my ($min, $ <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	6157	6264	
==>elease.
    $context = "TODO for release"
        if index($Test::force_todo_test_junction, ' '~$Test::num_o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048404	1048663	
==>{{\@2}}, next);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049328	1049587	
==>{{\@2}}, next);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3385	3516	
==>pmcs[$num] => $id,\n";
    }

    print OUT <<'END_PM';
);

1;
END_PM

    close OUT;

    move_if_diff("$file.tmp", $file);

    re <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1650	1853	
==>ata->set(
            share_ext  => '.dll',
            load_ext   => '.dll',
            a          => '.lib',
            o          => '.obj',
            cc_o_out   => '-Fo',
            cc_exe_out => <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3529	3732	
==>ata->set(
            share_ext  => '.dll',
            load_ext   => '.dll',
            a          => '.lib',
            o          => '.obj',
            cc_o_out   => '-Fo',
            cc_exe_out => <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	5468	5626	
==>require('assign');        }
sub require_close_brace   { return shift->require('close-brace');   }
sub require_close_bracket { return shift->require('close-brac <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6483	6596	
==>pairs. When two are exchanged,
   ' force another pass by setting Exchange to TRUE.
   FOR I = 2 TO Max
      IF A <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16136	16249	
==>pairs. When two are exchanged,
   ' force another pass by setting Exchange to TRUE.
   FOR I = 2 TO Max
      IF A <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	14531	14658	
==>ame=unexpect> unexpectedly succeeded</span>
              </tmpl_loop><br />
              <a href="<tmpl_var name=link>" title= <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	25937	26045	
==>ion'}}


# ARGS ARE: $self, $pattern, $left_delim, $modifiers, $lookahead, $linenum
sub new ($$$$$$)
{
	my $c <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	10264	10504	
==>extpos,		# TEXT
		$closetagpos, $endpos-$closetagpos,		# CLOSING TAG
		$endpos,      length($$textref)-$endpos,	# REMAINDER
	       );

failed:
	_failmsg "Did not find closing tag", pos $$textref unless $@;
	pos($$textref) = $startpos;
	retu <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33677	33773	
==>t_store and append code it generates.
		my $post_store = $srm->post_store($dest_reg);
		$pir .= " <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	312	434	
==>More);

sub import {
    my( $class, $plan, @args ) = @_;

    Test::More->import( $plan, @args );

    __PACKAGE__->_expor <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	229	351	
==>More);

sub import {
    my( $class, $plan, @args ) = @_;

    Test::More->import( $plan, @args );

    __PACKAGE__->_expor <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	1011	1194	
==>f necessary.

=cut

sub create_path
{
    my $self = shift;
    
    return unless $self->SUPER::create_path;
    
    # Just to touch the file.
    # Make sure write() doesn't dismiss <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2034	2166	
==>f necessary.

=cut

sub create_path
{
    my $self = shift;
    
    return unless $self->SUPER::create_path;
    
    unless ( -e $s <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1850	1950	
==>driver version $VERSION ".
			  "incompatible with version $$self{VERSION}:\n".
			  "Please recomp <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1785	1883	
==>driver version $VERSION ".
			  "incompatible with version $$self{VERSION}:\n".
			  "Please recomp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	249585	250047	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "not",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 290,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 693 \"src/ops/cmp.o <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16908	17076	
==>my $global = get_global($parser);
                push @opcodes, @{ $global->[1] };
                my $key = BuildLiteral( $parser, $idf, 'key' );
                pu <==
2	/Users/nnunley/parrot/config/gen/platform.pm	4016	4184	
==>en/platform/$platform/begin.c") {
        local $/ = undef;
        open IN_C, "< config/gen/platform/$platform/begin.c" or die "Can't open begin.c: $!";
        print P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671772	672190	
==>S" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 752,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 420 \"src/ops/pmc.ops\"\n    {{ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	7604	7766	
==>p->{args}->[0] * $op->{args}->[3]->minlen();
}

sub maxlen {
    my $op = shift;
    my ($min, $max, $greedy, $R) = @{ $op->{args} };
    my $sublen = $R->maxlen() <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5317	5455	
==>_${eqnum}_a:
	eq $a2, $ot2, EQ_$eqnum
	inc $result
EQ_$eqnum: ne $result, 2.0, EQ_${eqnum}_end
	set $result, 0.0
EQ_${eqnum}_end: noop
CODE <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6375	6475	
==>cs_link()>

Returns whether the file is suitable for inclusion in a documentation link.

If a file co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85506	85595	
==>_get_pmc_keyed_int(interpreter,\n      interpreter->iglobals, IGLOBALS_COMPREG_HASH);\n  { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86413	86502	
==>_get_pmc_keyed_int(interpreter,\n      interpreter->iglobals, IGLOBALS_COMPREG_HASH);\n  { <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4194	4395	
==>n
{
    my $self = shift;

    delete $self->{c}{$_} for grep { /^TEMP_/ } CORE::keys %{$self->{c}};

    return $self;
}

=item C<settrigger($key, $trigger, $cb)>

Set a callback on C<$key> named C<$tr <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8944	9106	
==>ug & 0x04
#DBG>		and	print STDERR "Forced Error recovery.\n";

            $$check='';

        };

        #Error
            $$errstatus
        or   do <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8542	8695	
==>ug & 0x04
#DBG>		and	print STDERR "Forced Error recovery.\n";

            $$check='';

        };

        #Error
            $$errstatus
        or   do <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	2167	2393	
==>er(interpreter);\nPObj_external_SET(final_destination)",
     );

my %ret_type_decl =
     ( p => "void *",
       i => "int",
       3 => "int *",
       l => "long",
       4 => "long *",
       c => "char",
       s => "shor <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	4924	5055	
==>stalled under libdir
        # as it is typically donw with automake installed packages.  If there
        # is a use case to make t <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	2715	2819	
==>elf], [qw(self)]);

		print OUT "}";

		close OUT
			or croak("Can't write to new module file '$modulefil <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	5794	5984	
==>.\d+)"\s*;\s*$/)
            {
                if (exists $self->{VERSION})
                {
                    #die "VERSION MULTIPLY DEFINED!";
                }

                $self->v <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	7194	7483	
==>]+)	#  7 cc
                -(\w+)		#  8 runcore
               --(\d+)		#  9 timestamp
                -(\d+)		# 10 duration
               --(\d+)		# 11	total
                -(\d+)		# 12	ok
                -(\d+)		# 13	failed
                -(\d+)		# 14	todo
                -(\d+)		# 1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	202245	202734	
==>S" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 239,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 380 \"src/ops/cm <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571181	571438	
==>ect_isa(interpreter, {{\@2}}, class);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572136	572393	
==>ect_isa(interpreter, {{\@2}}, class);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527134	527426	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527887	528179	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARG <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	11219	11378	
==>, $Z)
        elsif ($opbody =~ /
        ^(?:.*\.ops")\s+
        {{\@(\d)}}->vtable->
        (\w+)
        \(interpreter,
        \s*
        {{\@(\d)}},\s*{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605344	605521	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addattribute",
                  "FLAGS" => ":object_classes",
                  "ARG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606134	606311	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addattribute",
                  "FLAGS" => ":object_classes",
                  "ARG <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	2554	2649	
==>T, "<$from_file" or die "Can't open up $from_file, error $!";
open OUTPUT, ">$to_file" or die "C <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27948	28053	
==>$self->{hdecls} .= $hout;
    $self->{hdecls};
}

=item C<gen_h($out_name)>

Generates the C header file c <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2332	2468	
==>ndler->start_element({ Name => 'cond', Attributes => { kind => $self->kind } });
  }

  if ($self->op) {
    $handler->start_element({ Na <==
2	/Users/nnunley/parrot/config/inter/ops.pm	1186	1422	
==>de files would you like?', $ops);

            if ($ops !~ m{\bcore\.ops}) {
                print "core.ops must be the first selection.\n";
                redo;
            }
        }
    }

    $conf->data->set(ops => $ops);

    re <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	37810	38029	
==>ould be C<"{{/DATA}}">.

=item 4.

A string specifying a pattern to be matched as a prefix (which is to be
skipped). If omitted, optional whitespace is skipped.

=item 5.

A hash reference containing various parsing opti <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3601	3725	
==>reation failed ($?)\n";
        }
    }
} 
elsif ($mode eq 'compile') {
    my ($group_files, $group_libs, $pmc_group, $pmc_l <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3705	3829	
==>reation failed ($?)\n";
        }
    }
} 
elsif ($mode eq 'compile') {
    my ($group_files, $group_libs, $pmc_group, $pmc_l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089302	1089791	
==>"slice",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1208,
                  "ARGS" => [
                              "p",
                              "p",
                              "kc"
                            ],
                  "B <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088355	1088687	
==>"slice",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1207,
                  "ARGS" => [ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	19	121	
==>pyright (C) 2006, The Perl Foundation.
# This program is free software. It is subject to the same licen <==
2	/Users/nnunley/parrot/tools/util/pirtidy.pl	947	1053	
==>PTION

pirtidy reads a pir file and writes an indented, reformatted script.

pirtidy is somewhat liberal ab <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	29056	29173	
==>ype =~ m/^=head\d$/s
         and ! $self->{'accept_heads_anywhere'}
         and @$curr_open
         and $curr_open- <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	14919	15028	
==>ndler_offset = eh.get_handler_offset()
    eh_flags = eh.get_flags()
    if eh_flags != 0 goto NOT_TYPED_EH_ST <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2346	2457	
==>d_head4       { $_[0]->emit_par(-1) }
sub end_Para        { $_[0]->emit_par( 0) }
sub end_item_bullet { $_[0]->e <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1914	2025	
==>d_head4       { $_[0]->emit_par(-1) }
sub end_Para        { $_[0]->emit_par( 0) }
sub end_item_bullet { $_[0]->e <==
2	/Users/nnunley/parrot/config/init/hints/darwin.pm	307	473	
==>Vers = `uname -r`;
    chomp $OSVers;
    {
        local $^W;
        if ($OSVers >= 7) {
            $libs =~ s/-ldl//;
        }
    }

    $ccflags .= " -pipe -fno <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	29158	29408	
==>eedme;
	my $t=$seg;
	$seg=~s/^_//;       # Remove the _
	$seg=~tr/A-Z/a-z/;  # lowercase
	$seg=~s/userfunc_//;
	push @{$code{$t}->{code}}, "END_$t:\n";
	if (exists $code{$t}->{args}) {
		foreach(@{$code{$t}->{args}}) {
			push @{$code{$t}->{code}}, "\ <==
2	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	332	483	
==>ents each.

=cut

foreach (1..10) {
    my @arr;
    foreach (1..10) {
	$arr[$_] = buildarray();
    }

    my @arr1;
    foreach (1..20) {
	$arr1[$_] = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	193	289	
==>ib/Jako/Construct/Block/Conditional/Unless.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use st <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	26187	26358	
==>ent_test($num);

Gets/sets the current test number we're on.  You usually shouldn't
have to set this.

If set forward, the details of the missing tests are filled in as 'un <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931961	932249	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_core",
                  "AR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932732	933020	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_core",
                  "AR <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	5453	5664	
==>t_end/exec_emit_end/;
            }
            if (($cpuarch eq 'ppc') && ($genfile ne "src/jit_cpu.c")) {
                $asm =~ s/jit_emit_mov_ri_i\(jit_info->native_ptr, ISR([12]), &CONST\((\d)\)\);/load_nc( <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3147	3257	
==>ib-GROUP.c files

    generate_dump($_) foreach (@pmcs);
    generate_c($_) foreach (@pmcs);

    my ($group_fi <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3251	3361	
==>ib-GROUP.c files

    generate_dump($_) foreach (@pmcs);
    generate_c($_) foreach (@pmcs);

    my ($group_fi <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5017	5122	
==>lative to the source
directory.

=cut

sub contents_relative_to_source
{
    my $self = shift;
    my $sou <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3009	3108	
==>lative to the source
directory.

=cut

sub contents_relative_to_source
{
	my $self = shift;
	my $sou <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	3381	3812	
==>.t file for the fictional Film module.

    use Test::Simple tests => 5;

    use Film;  # What you're testing.

    my $btaste = Film->new({ Title    => 'Bad Taste',
                             Director => 'Peter Jackson',
                             Rating   => 'R',
                             NumExplodingSheep => 1
                           });
    ok( defined($btaste) && ref $btaste eq 'Film,     'new() works' );

    ok <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	47127	47240	
==>"name" of the quotelike operator)

=item [4]

"'EOMSG'" (i.e. the left delimiter of the here document, including a <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	1020	1121	
==>le bit silly:
	# do we ever export anything else than 'struct'...?
      $self->export_to_level( 1, $s <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	3847	4023	
==>: $!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$module imported OK", :$todo, :$depends);
    }
}

## throws ok

sub throws_ok (Code &code, Any $match, Str $desc? <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	5737	5908	
==>ded by:\n";
            foreach my $file (sort keys %{$system_include{$include}}) {
                print "        $file\n";
            }
        }
    }
}


sub do_object <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2181	2269	
==>pilers')->directory_with_name('imcc'),
        $self->directory_with_name('examples')->di <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	780	1005	
==>, 'tools/dev/cc_flags.pl'),
            $self->new_item('', 'tools/build/nativecall.pl'),
            $self->new_item('', 'tools/build/jit2c.pl'),
            $self->new_item('', 'tools/build/vtable_h.pl'),
            $self-> <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	49523	49676	
==>ce the prefix an dthe outermost opening delimiter bracket have been
recognized, code blocks are extracted by stepping through the input text and
trying th <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	337009	337402	
==>GDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 394,
                  "ARGS" => [
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 81 \"src/ops/io.ops\"\n  {{\@1}} = (I <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	7263	7461	
==>ruction or pir
        elsif (/^(instruction|pir)$/) {
            if ($has_trans) {
                die "Only one of instruction or pir is allowed in rule " .
                    "$rule->{'name'}\n" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	12156	12312	
==>ave been acted one.
  my($self, $para) = @_;
  my @x = @$para;
  my $content = join ' ', splice @x, 2;
  $content =~ s/^\s+//s;
  $content =~ s/\s+$//s;

  D <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	12093	12186	
==>1 and print "Declaring $source as :raw for starters\n";
  #$self->_apply_binmode($source, ':ra <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548210	548460	
==>e(i>0) {\n    q = q*i;\n    i--;\n  }\n  {{\@1}} = q;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549117	549367	
==>e(i>0) {\n    q = q*i;\n    i--;\n  }\n  {{\@1}} = q;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8523	8628	
==>o to state $$states[$$stack[-1][0]]{GOTOS}{$lhs}.\n";

#DBG>				$debug & 0x10
#DBG>			and	$dbgerror
#D <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8137	8238	
==>o to state $$states[$$stack[-1][0]]{GOTOS}{$lhs}.\n";

#DBG>				$debug & 0x10
#DBG>			and	$dbgerror
#D <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	5839	5966	
==>_plan' ) {
        $self->no_plan;
    }
    elsif( $cmd eq 'skip_all' ) {
        return $self->skip_all($arg);
    }
    elsif <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7771	7879	
==>RSE;

=begin wrongway

UNK:	if (($type[CURR] eq "STMT" or $type[CURR] eq "COMM" or $type[CURR] eq "STMT") and <==
2	/Users/nnunley/parrot/config/inter/encoding.pm	1650	1783	
==>codings${slash}/g;

    $conf->data->set(
        encoding            => $encoding_list,
        TEMP_encoding_o     => $TEMP_encoding <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20361	20476	
==>re, see the source and/or write to me.

=head1 SEE ALSO

L<Pod::Simple>, L<RTF::Writer>, L<RTF::Cookbook>, L<RTF::Do <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	14371	14491	
==>tok      string.h
strtol      stdlib.h
strtold     stdlib.h
strtoll     stdlib.h
strtoul     stdlib.h
strtoull    stdlib. <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	18743	18880	
==>, unless it's one word
        $self->whine(
          $para->[1]{'start_line'},
          "'=begin' only takes one parameter, not several <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226860	227346	
==>S" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 265,
                  "ARGS" => [
                              "p",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 530 \"src/ops <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822422	822666	
==>g type on stack!\");\n  }\n\n  {{\@1}} = UVal_int(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823490	823734	
==>g type on stack!\");\n  }\n\n  {{\@1}} = UVal_int(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	23868	24011	
==>te_nongreedy_plus {
    my ($self, $op, $R, $lastback) = @_;

    my $back = $self->genlabel('plus_backloop');
    my $rfail = $self->genlabel(' <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	14	130	
==>e strict;
use constant VERSION => 2.3;

use constant PREV => 2;
use constant CURR => 1;
use constant NEXT => 0;
use s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	3598	3734	
==>.
#

sub pop_block
{
  my $self = shift;

  $self->INTERNAL_ERROR("Attempt to pop file-scope block off block stack!")
    if scalar($self <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819599	819690	
==>CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n\n  if (!entry) {\n    internal_exception( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820559	820650	
==>CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n\n  if (!entry) {\n    internal_exception( <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	6063	6153	
==>t_set_dispatch($base_suffix)>

Returns the C code to initialize the dispatch mechanism with <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623824	623968	
==>);\n\t}\n        else\n            n = 2;\n\t{{+=n}};\n    }\n    /* no match redo plain opcode */\n    ((void**)cur_opcode)[0] =\n\tparrot_pic_o <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1735	1834	
==>]{'number'}. "  }
sub start_item_text   { $_[0]{'Thispara'} = ''   }

sub start_over_bullet  { ++$_[ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1303	1402	
==>]{'number'}. "  }
sub start_item_text   { $_[0]{'Thispara'} = ''   }

sub start_over_bullet  { ++$_[ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	800	897	
==>e) . ") is not!"   if defined $type and not UNIVERSAL::isa($type, qw(Jako::Construct::Type));
  co <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	682	777	
==>e) . ") is not!" if defined $type and not UNIVERSAL::isa($type, qw(Jako::Construct::Type));
  co <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	263	370	
==>ot::OpTrans::CGoto> inherits from C<Parrot::OpTrans> to provide a
C C<goto> run loop.

=head2 Instance Metho <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	11852	11994	
==>amble_ref},
            "t_$temp_num = (float)GET_NCI_N($reg_num);";
        return "t_$temp_num";
    };
    /d/ && do {
        push @{$temps <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	2203	2371	
==>the control statement to:
  #

  my $loop_block = $block->find_block('while', $name);

  unless (defined $loop_block) {
    if (defined $name) {
      $self->SYNTAX_ERRO <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	8970	9066	
==>gs}->[1]->minlen() }
sub maxlen { my ($op) = @_; $op->{args}->[1]->maxlen() }
sub startset { my ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892200	892754	
==>o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1008,
                  "ARGS" => [
                              "s",
                              "s",
                              "i",
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interp <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27009	27181	
==>s;
}


sub code($$$$)
{
	my ($self, $namespace, $rule, $check) = @_;
	my $ldel = $self->{"ldelim"};
	my $rdel = $self->{"rdelim"};
	my $sdel = $ldel;
	my $mod  = $self->{"mo <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	513	620	
==>)>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new(
		'Dynamic PMCs' <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	15931	16101	
==>egate' :
                'default';
        }
    }
}


=head2 add_defaulted($class_structure, $vtable);

Add methods to the class structure for each method found in the
v <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	47	142	
==>IONAL section at end of file.
# $Id: /parrot/tools/build/pbc2c.pl 19607 2006-05-30T15:23:20.1830 <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	31055	31166	
==>test sanity checks to make sure reality came
through ok.  If anything is wrong it will die with a fairly friendl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38253	38479	
==>\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUM <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1777	1959	
==>";

sub compile_test {
    my $file = shift;

    my $ret = system ("$urmc $compile $FindBin::RealBin$PConfig{slash}$file");
    if ($ret) {
	print STDERR "TEST FAILED: $file ($ret)\n <==
2	/Users/nnunley/parrot/config/init/defaults.pm	4228	4359	
==>ibrary names
        libparrot_static => 'libparrot'.$Config{_a},
        libparrot_shared => 'libparrot.'.$Config{so},

        # d <==
2	/Users/nnunley/parrot/tools/dev/gen_class.pl	440	549	
==>e
information on adding a new PMC to Parrot.

To see what a minimal PMC looks like, create a PMC template a <==
2	/Users/nnunley/parrot/config/auto/snprintf.pm	118	242	
==>5Z coke  $

=head1 NAME

config/auto/snprintf.pm - Test for snprintf

=head1 DESCRIPTION

Tests if snprintf is present and if <==
2	/Users/nnunley/parrot/lib/Test/More.pm	11007	11177	
==>e saying:

    ok( Foo->can('this') && 
        Foo->can('that') && 
        Foo->can('whatever') 
      );

only without all the typing and with a better interface.  Hand <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	510	629	
==>$_[0]->code ne $_[0]->code },
  q{""} => sub { $_[0]->name }
;

use Jako::Token;

use Jako::Construct::Type::Integer;
us <==
2	/Users/nnunley/parrot/config/gen/cpu/i386/auto.pm	91	201	
==>19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/gen/cpu/i386/auto.pm

=head1 DESCRIPTION

Test f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824603	824879	
==>al_str(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825674	825950	
==>al_str(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	2272	2406	
==>is processed with various directives (see below)
getting replaced by their appropriate values.

Finally, the .c and .h files are genera <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	1358	1460	
==>ce.

Here is an example parrotbench.conf:
    [global]
    directory = ../../examples/benchmarks
    li <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5971	6079	
==>ruction needs to
	# have an empty stack type state propogated to it if nothing has been
	# propogated there a <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3909	4017	
==>ruction needs to
	# have an empty stack type state propogated to it if nothing has been
	# propogated there a <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	14567	14807	
==>body;
    my $header_decls = '';
    while ($total_body =~ s/\bMMD_(\w+):\s*//) {
        my $right_type = $1;
        my $body_part = extract_bracketed($total_body, '{');
        die "Empty MMD body near '$total_body'"
            if (!$bod <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	30973	31098	
==>);

    my @declarations;
    while (my ($var, $type) = each %{ $self->{_temps} }) {
        push @declarations, aop('declare' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	491076	491411	
==>re",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 563,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 539 \"src/ops/math.ops\"\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906799	907362	
==>S" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1022,
                  "ARGS" => [
                              "s",
                              "p",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 262 \"src/ops/stri <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	23995	24118	
==>options = defined $_[3] ? %{$_[3]} : ();
	my $omode   = defined $options{fail} ? $options{fail} : '';
	my $bad     = ref($op <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	8184	8378	
==>re_return;
	my $_tok;
	my $return = undef;
	my $_matched=0;
	my $commit=0;
	my @item = ();'.($::RD_NO_HITEM ? '' :'
	my %item = ();') . '
	my $repeating =  defined($_[2]) && $_[2];
	my $_noaction <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5669	5845	
==>ype> <ident>, <ident>, ...;
    #   var <type> <ident>, <ident>, ... = <value>;
    #
    #   const <type> <ident> = <value>;               # TODO: SHOULD BE LIMITED TO LITERAL? <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	5921	6108	
==>h "empty line" at the very
         #  end of "foo\nbar\n" (i.e., between the \n and the EOS).
      } else { # that's the end.  Byebye
        $self->SUPER::parse_lines(undef);
        de <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	7182	7330	
==>'}} 
            qq(<a name="), esc($name), qq("\n>);
    
    } 
    else 
    {
        print {$self->{'output_fh'}} "<a\n>";
    }
    
    $self- <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	12421	12546	
==>d\->{'!POS'};
END
#     } else {
#         return split(/\n/, <<"END");
# \$$uid = _rule_$name($mode, \$$uid || <rx_match>{'$u <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10623	10743	
==>tim'};
      }
      defined($scratch = $self->{'Tagmap'}{"/$tagname"}) or next;
      $scratch =~ s/\#([^\#]+)\#/${$self <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	3348	3570	
==>lf->{symbol}  = $symb;
        $self->{class}   = $klass;
        $self->{type}    = $type if ( defined $type );
        $self->{subtype} = $subtype if ( defined $subtype );
        $self->{name}    = $name if ( defined <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	19469	19669	
==>oncat(interpreter, signature, ns, 0);

#if defined(CAN_BUILD_CALL_FRAMES)
    ns = string_make(interpreter, ".\\nCAN_BUILD_CALL_FRAMES is enabled, this should not happen", 58, "ascii", 0);
#else
    ns <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019151	1019446	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "localtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020081	1020376	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "localtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	1563	1728	
==>c> file).

You can see evidence of this by the way this code reaches in to the
internal C<OPS> hash key to do its concatenation, and the way it
twiddles each op's C<C <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511380	511774	
==>RS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 589,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 685 \"src/ops/math.ops\"\n  {{\@1}} = - { <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	4478	4593	
==>', map { (split / /, $args[$_])[1] } (0..$#args);
    $macros .= <<"EOM";
#define VTABLE_$entry->[1]($args) \\
    ( <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	1904	2048	
==>$ident_re)\s*
        \(($arglist_re)\)
        (?:\s+(MMD_\w+))?\s*$/x) {
        my $mmd = defined $4 ? $4 : -1;
            push @{$vtable}, [ <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	20192	20341	
==>};

        # Get copy of name without extension.
        $pmcname = $pmcfilename;
        $pmcname =~ s/\.pmc$//;

        # Locate .h file and add e <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12789	12941	
==>hen we append the HTML suffix and get the
    # docs file. Once we have that all we need is the relative
    # path from the current directory to the fil <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	392	504	
==>54_76 }

# for internal use
sub MAX() { 0xFFFFFFFF }

# padd a message to a multiple of 64
sub padding($) {
    m <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2322	2426	
==>]->emit_par(-2) }
sub end_head4       { $_[0]->emit_par(-1) }
sub end_Para        { $_[0]->emit_par( 0) } <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1890	1994	
==>]->emit_par(-2) }
sub end_head4       { $_[0]->emit_par(-1) }
sub end_Para        { $_[0]->emit_par( 0) } <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7779	7880	
==>nt "Oops (string)"
s$=""
if s$ then print "Should not happen (string)"
i%=0
if i% then print "Should n <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14766	14867	
==>nt "Oops (string)"
s$=""
if s$ then print "Should not happen (string)"
i%=0
if i% then print "Should n <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1656	1755	
==>h: $desc", $todo, $got, $expected, $depends, :negate);
}

## like

sub like (Str $got, Rule $expecte <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1406	1543	
==>s}, },
            test   => { name => $t, data => $tests->{$t},   },
        };
    }
}


push @EXPORT => keys %{$test_map};

use base qw <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	973718	974136	
==>,
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1094,
                  "ARGS" => [
                              "i",
                              "ic",
                              "s",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 622 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	3453	3598	
==>s_unless        { return shift->is('unless');        }
sub is_until         { return shift->is('until');         }
sub is_var           { return s <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	42637	42767	
==>tty($treelet->[$i]), "\n";

      # bitch if it's empty
      if(  @{$treelet->[$i]} == 2
       or (@{$treelet->[$i]} == 3 and $tr <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	33183	33308	
==>igure out if we passed or failed and print helpful messages.
    my $test_results = $self->{Test_Results};
    if( @$test_resu <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	2810	2995	
==>ol::qualify($fh, scalar caller);
	}
	$self->{data} .= do{local$/;<$fh>};
	$self
}

sub digest {
	md5(shift->{data})
}

sub hexdigest {
	md5_hex(shift->{data})
}

sub b64digest {
	md5_bas <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361641	361738	
==>ps/io.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, INTVAL_FMT, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362540	362637	
==>ps/io.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, INTVAL_FMT, {{ <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	111	218	
==>age specific testing routines here...

This is currently alarmingly similar to the generated subs in Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	209	316	
==>age specific testing routines here...

This is currently alarmingly similar to the generated subs in Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6652	6789	
==>vtable)>

Returns the C function definitions to call the vtable methods on a PMC for the
elements in the referenced vtable array.

=cut

s <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3966	4077	
==>value;
	}
	for (@$mandatory) {
			exists($$outhash{$_})
		or	croak("Missing mandatory parameter '".lc($_)."' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3767	3874	
==>value;
	}
	for (@$mandatory) {
			exists($$outhash{$_})
		or	croak("Missing mandatory parameter '".lc($_)."' <==
2	/Users/nnunley/parrot/languages/regex/test.pl	2077	2210	
==>d|--debug)$/) {
        $DEBUG = 1;
    } elsif (! defined $testfile) {
        $testfile = $_;
    } else {
        usage "too many a <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18123	18259	
==>TextEdit, etc.

This is a subclass of L<Pod::Simple> and inherits all its methods.

=head1 FORMAT CONTROL ATTRIBUTES

You can set these a <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	5117	5249	
==>es Of Benchmarks With Pretty Output
if ( $cfg{list_only} ) {
    my @rows;
    push @rows, [ 'Benchmark', @program ];
    for my $nam <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774168	774372	
==>,
                              "kic",
                              "i"
                            ],
                  "BODY" => "#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed_in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	310769	310978	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "debug_print",
                  "FLAGS" => ":base_debug",
                  "ARGDIRS" => [],
                  "TYPE" = <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	184	310	
==>tion Directory

=head1 SYNOPSIS

    use Parrot::Distribution;

    my $dist = Parrot::Distribution->new();

=head1 DESCRIPTION <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2591	2706	
==>elf{NBERR}};
}

sub YYRecovering {
	my($self)=shift;

	${$$self{ERRST}} != 0;
}

sub YYAbort {
	my($self)= <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2479	2584	
==>elf{NBERR}};
}

sub YYRecovering {
	my($self)=shift;

	${$$self{ERRST}} != 0;
}

sub YYAbort {
	my($self)= <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	3303	3629	
==>/FUNCTION : (.*) \[(.*)\]/) {
            $function = $1;
            my $function_scope = $2;
            
            next;
        }
        
        # end of function block
        if ($function && /^\s*$/) {
            undef $function;
            next;
        }

        # beginning of variable block
        if (/VARIA <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3316	3423	
==>lf, $offset) = @_;
    return "return cur_opcode + $offset";
}

sub goto_address
{
    my ($self, $addr) = @ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286312	286587	
==>,
                  "CODE" => 333,
                  "ARGS" => [
                              "i",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 913 \"src/ops/cmp.ops\"\n  {{\@1}} = str <==
2	/Users/nnunley/parrot/config/auto/headers.pm	111	261	
==>.110975Z coke  $

=head1 NAME

config/auto/headers.pm - C headers

=head1 DESCRIPTION

Probes for various C headers.

=cut

package auto::headers;

use <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23978	24118	
==>40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 128,
			'fu <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	19214	19390	
==>my ( $language, @remaining ) = @_;

            my $meth = $language_test_map{$func};
            if ( my $prefix = $builtin_language_prefix{$language} ) { 
                my $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571597	572030	
==>=> [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 653,
                  "ARGS" => [
                              "i",
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 223 \"src/ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	17595	17722	
==>he bare number
        # for it to work with non-Exporter based modules.
        eval <<USE;
package $pack;
use $module $imports <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	16541	16657	
==>r typed exception handler");
	$pir .= "### end pre_load (typed eh)\n";
    $pir .= <<'PIRCODE';
    loadreg = "$P1000 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3995	4191	
==>ction
function arrfunc(x())
	u=aftwo(x())
	arrfunc=55
end function
dim g(10)
g(5)=666
g(4)=12
a=g(5)+0
y=arrfunc(g())

' Passing arrays (expect 12)
function arrfunc(x())
	print x(4)
	arrfunc=55
end <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15268	15401	
==>ction
function arrfunc(x())
	u=aftwo(x())
	arrfunc=55
end function
dim g(10)
g(5)=666
g(4)=12
a=g(5)+0
y=arrfunc(g())

' For loops, by <==
2	/Users/nnunley/parrot/tools/dev/manicheck.pl	325	437	
==>manicheck.pl - Check the MANIFEST file

=head1 SYNOPSIS

    % perl tools/dev/manicheck.pl

=head1 DESCRIPTION

C <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	22718	22840	
==>ag,
    );
    my $result = new_tmp( $parser, 'pmc', 'boolean' );
    push @opcodes, new LocalDir( $parser,
        're <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1209	1343	
==>nt wrapping algorithm:
      s/(
         [^\n]{55}         # Snare some characters from a line
         [^\n\ ]{0,50}     #  and finis <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1153	1287	
==>nt wrapping algorithm:
      s/(
         [^\n]{55}         # Snare some characters from a line
         [^\n\ ]{0,50}     #  and finis <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8792	8911	
==>utput_peekindex {
    my $self = shift;
    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8452	8571	
==>utput_peekindex {
    my $self = shift;
    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('pos', <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	14207	14411	
==>$retcount", "", $ot1, $ot2);
					($optype)=$return=~/([N|S])/;
					push @code, $code;
				}
			} else {
				die "Op $sym not implemented?";
			}
			push @work, [ "($op1->[0] $sym $op2->[0])", "RESULT", " <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	214	314	
==>OpTrans> is the abstract superclass for the Parrot op to C
transforms. Each transform contains variou <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7799	7984	
==>-1 ]
                        :   ();

            $semval = $code ? &$code( $self, @sempar )
                            : @sempar ? $sempar[0] : undef;

            splice(@$stack <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7447	7626	
==>-1 ]
                        :   ();

            $semval = $code ? &$code( $self, @sempar )
                            : @sempar ? $sempar[0] : undef;

            splice(@$stack <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	7390	7498	
==>or the file with the specified name in the directory.

=cut

sub path_for_file_with_name
{
    my $self = shi <==
2	/Users/nnunley/parrot/config/auto/isreg.pm	393	572	
==>auto';

$description = 'Determining if your C library has a working S_ISREG';

@args = qw(verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $test = 0;

    cc_gen('confi <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14335	14555	
==>0,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 68,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primar <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9644	9871	
==>ectory($path)>

Returns whether the specified relative path is a directory.

=cut

sub relative_path_is_directory
{
    my $self = shift;
    my $path = $self->path_for_directory_with_relative_path(shift);
    
    return unless <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	385	565	
==>'Parrot bc' and 'POSIX bc'.

=head1 METHODS

=head2 new

A kind of factory, that finds the proper subclass of Parrot::Test::Bc.
XXX: Do not configure with environment variables.
Use <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	7192	7306	
==>for_directory_with_name
{
    my $self = shift;
    my $name = shift || return;
    
    return File::Spec->catdir( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5030	5130	
==>);
    my $fail = $self->output_label_use($failLabel);
    my $pass = $self->output_label_use($passLa <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4705	4805	
==>);
    my $fail = $self->output_label_use($failLabel);
    my $pass = $self->output_label_use($passLa <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	5159	5360	
==>', ';

    my $orig = $file;

    open my $OPS, '<', $file or die "Can't open $file, $!/$^E";

    if ( ! ($file =~ s/\.ops$/.c/) )
    {
        $file .= ".c";
    }

    #
    # Read through the file, <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24699	24852	
==>($endexpr, $stepexpr, @stepcode);

	$forloop++;
	feedme();

	# The initial assignment.  Type of course will be a float.
	($result, $type, @code)=EXPRESSIO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23073	23297	
==>ter, p, dest);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25512	25736	
==>ter, p, dest);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ <==
2	/Users/nnunley/parrot/config/inter/progs.pm	4206	4303	
==>mpted for above.  I don't know why.
    $ccwarn = integrate($conf->data->get('ccwarn'), $conf->opt <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349264	349379	
==>\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=3}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350266	350381	
==>\n  if(!{{\@1}}) {\n    {{\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=3}};\n",
                  "LA <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1969	2068	
==>s we call gen_label before translating
	# every instruction) to see if we need to instate a stack ty <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1368	1467	
==>s we call gen_label before translating
	# every instruction) to see if we need to instate a stack ty <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4256	4376	
==>d $needed more chars",
               "lt <rx_tmp>, $needed, $fail";
    }
}

sub output_match {
    my ($self, $code, $f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21693	22119	
==>"FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 29,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 356 \"src/ops/core.ops\"\n  if ( <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19348	19447	
==>, $false, DO_$do->{jump}";
		}
		push @{$code{$seg}->{code}}, "\t$_\n";
	} else {
		push @{$code{$se <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	10055	10300	
==>pos,	# REMAINDER
	       );
	
matched:
	$endpos = pos($$textref);
	return (
		$startpos,    $opentagpos-$startpos,		# PREFIX
		$opentagpos,  $textpos-$opentagpos,		# OPENING TAG
		$textpos,     $closetagpos-$textpos,		# TEXT
		$closetagpos, $endp <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1930	2045	
==>) = @_;

  my $block = $self->block;
  my $kind  = $self->kind;
  my $name  = $self->ident ? $self->ident->value : u <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3046	3161	
==>) = @_;

  my $block = $self->block;
  my $kind  = $self->kind;
  my $name  = $self->ident ? $self->ident->value : u <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	37472	37590	
==>fors = grep $_->[0] eq '=for', @$curr_open;
          DEBUG > 1 and print "Containing fors: ",
            join(',', ma <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132629	133078	
==>[
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 163,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 306 \"src/ops/bit.ops\"\n  {{ <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3449	3601	
==>t(linkflags => $linkflags);
        }
    } elsif ($is_intel) {
        $conf->data->set(
            share_ext  => '.dll',
            load_ext   => '.d <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	5477	5642	
==>ody;
    my $short_name;
    my $args;
    my @args;
    my @argdirs;
    my $seen_pod;
    my $seen_op;
    my $line;
    my $flags;
    my @labels;

    while (<$OP <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	11205	11313	
==>d print "OK, won't accept the code $new_code<...>.\n";
  }
  
  return;
}


#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	6501	6595	
==>ub { &{$opsubs{"="}}(@_[0..2], "ne") },
	'<' => sub { &{$opsubs{"="}}(@_[0..2], "lt") },
	'>' = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1616	1760	
==>mp_pmc();

    $compiler->emit("  $temp_pmc = new $pmc_type");
    $compiler->emit("  $temp_pmc = global \"$ident_name\"");
    $compiler->emit(" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48565	48664	
==>flag(interpreter,   PARROT_BOUNDS_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49355	49454	
==>flag(interpreter,   PARROT_BOUNDS_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393	569	
==>rrot::Op> instances representing the Parrot ops.

=cut


use strict;

package Parrot::OpLib::core;

use vars qw($VERSION $ops $preamble);

$VERSION = "0.4.5";

$preamble = "/*\n <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14383	14481	
==>noproof ' . $title
   if $is_obviously_module_name;

  return sprintf <<'END', 
\deflang%s\plain\la <==
2	/Users/nnunley/parrot/Configure.pl	2835	2985	
==>-jitcapable>

Use JIT system.

=item C<--execcapable>

Use JIT to emit a native executable.

=item C<--gc=(type)>

Determine the type of garbage collec <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5588	5700	
==>[$stateno];

#DBG>	print STDERR ('-' x 40),"\n";
#DBG>		$debug & 0x2
#DBG>	and	print STDERR "In state $staten <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5320	5428	
==>[$stateno];

#DBG>	print STDERR ('-' x 40),"\n";
#DBG>		$debug & 0x2
#DBG>	and	print STDERR "In state $staten <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23105	23206	
==>,"DONE_$label"]);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$la <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	799	924	
==>$self->output_print("\"$part\"");
        }
    }
    return @ops;
}

sub render {
    my ($self, $op) = @_;

    die if ! ref <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	10074	10194	
==>$names{$name} = 1;
        my $full_name  = $op->full_name;
        my $func_name  = $op->func_name($trans);
        my $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	17169	17293	
==>},
	{#State 56
		DEFAULT => -22
	},
	{#State 57
		DEFAULT => -33
	},
	{#State 58
		ACTIONS => {
			"." => 66
		}
	},
	{#State <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6900	7129	
==>ype  => $type,
          kind  => 'fn',
          fnlib => $fnlib,
          fn    => $fn
        }
      });
    }
    else {
      $handler->start_element({
        Name       => 'sub',
        Attributes => {
          name  => <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	899	1255	
==>>) to extract information from
the program source about what functions are being called, what includes
are used, etc.  This mode is potentially more thorough, but a bit more
magical and therefore less conclusive.

=back

=cut

################################################################################

use strict;
use File::Find;
use File::Spec;


my <==
2	/Users/nnunley/parrot/config/gen/config_pm.pm	1519	1691	
==>END";
# Generated by config/gen/config_pm.pm from the template
# '$template' and \%PConfig
# This file should be the last thing run during
# the make process, after Parrot i <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	19954	20052	
==>($opcode eq 'Label') {
	$label = "pc_" . $code[$code_l]->[3] . ":";
	$code_l++;
	($opcode, $rest) = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3454	3562	
==>spara'},
    "\n\n"
  ;
  $self->{'Thispara'} = '';
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2984	3092	
==>spara'},
    "\n\n"
  ;
  $self->{'Thispara'} = '';
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834305	834392	
==>T(interpreter->ctx)->user_stack, {{\@1}}, STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835031	835118	
==>T(interpreter->ctx)->user_stack, {{\@1}}, STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6031	6138	
==>d to it if nothing has been
	# propogated there already.
	$pir .= <<'PIR';
if 0x${CURIC} == 0x45 goto POST_B <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3969	4076	
==>d to it if nothing has been
	# propogated there already.
	$pir .= <<'PIR';
if 0x${CURIC} == 0x45 goto POST_B <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	235	368	
==>PSIS

	use Parrot::Docs::Section::DynaPMCs;

=head1 DESCRIPTION

A documentation section describing all the dynamic PMCs.

=head2 Clas <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	25672	25773	
==>elf->{hashname};
	return $dir->code($namespace, $rule, 0);
}

1;

package Parse::RecDescent::Token;

s <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6358	6449	
==>_${CURIC}:
i = elements P_arg_0
POST_BRANCH_switch_${CURIC}_LOOP:
if i == 0 goto POST_BRANCH <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4296	4387	
==>_${CURIC}:
i = elements P_arg_0
POST_BRANCH_switch_${CURIC}_LOOP:
if i == 0 goto POST_BRANCH <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21599	21694	
==>urn = $self->_constant(1);
  my $temp = $self->_generate($node->{children}[1]);
  $self->_add_in <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21984	22079	
==>urn = $self->_constant(1);
  my $temp = $self->_generate($node->{children}[1]);
  $self->_add_in <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	6612	6722	
==>ble Data: %d ---\n", scalar keys %DataD;
    for my $api (sort keys %DataD) {
	printf "%s\t%s\tIMD\n", $api, $D <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3132	3254	
==>Curtok {
	my($self)=shift;

        @_
    and ${$$self{TOKEN}}=$_[0];
    ${$$self{TOKEN}};
}

sub YYCurval {
	my <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2979	3092	
==>Curtok {
	my($self)=shift;

        @_
    and ${$$self{TOKEN}}=$_[0];
    ${$$self{TOKEN}};
}

sub YYCurval {
	my <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627215	627326	
==>MC enum (%d) in new\", (int){{\@2}});\n  }\n\n  /* Why?? If we're creating a continuation, the continuation PMC\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628359	628470	
==>MC enum (%d) in new\", (int){{\@2}});\n  }\n\n  /* Why?? If we're creating a continuation, the continuation PMC\ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38609	38724	
==>tok;'). '
		push @item, $_tok;
		' . ($self->{"lookahead"} ? '$text = $_savetext;' : '' ) .'

'
}

package Parse::Re <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1193	1336	
==>-totally-brilliant wrapping algorithm:
      s/(
         [^\n]{55}         # Snare some characters from a line
         [^\n\ ]{0,50}     #  an <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1137	1280	
==>-totally-brilliant wrapping algorithm:
      s/(
         [^\n]{55}         # Snare some characters from a line
         [^\n\ ]{0,50}     #  an <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133962	134255	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134743	135036	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	917483	918023	
==>=> ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1033,
                  "ARGS" => [
                              "i",
                              "sc",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#li <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	315772	316043	
==>JUMP" => 0,
                  "NAME" => "conv_u1_ovf",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 3 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	311705	312107	
==>,
                  "NAME" => "backtrace",
                  "FLAGS" => ":base_debug",
                  "ARGDIRS" => [],
                  "TYPE" => "function",
                  "CODE" => 363,
                  "ARGS" => [],
                  "BODY" => "#line 144 \"src/ops/debug.ops\"\n    PDB_backtrace(interpreter);\n    {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	10064	10411	
==>2
    inc $N1
    $N1 = sqrt $N1
    $N1 += op2
    $N1 = ln $N1
    .return ($N1)
neg_six:   # arccosh(x) = ln(x+sqrt(x-1)*sqrt(x+1))
    $N1 = op2 + 1
    $N1 = sqrt $N1
    $N2 = op2 - 1
    $N2 = sqrt $N2
    $N2 *= $N1
    $N2 = op2 + $N2
    $N2 = ln $N2
    .return ($N2)
neg_seven: # arctanh(x) = .5 * (ln (1+x) - ln (1 -x))
    $N1 = op2 + <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12537	12705	
==>> 48,
			"." => 49
		},
		DEFAULT => -10,
		GOTOS => {
			'tableconstructor' => 46,
			'args' => 43,
			'key' => 45
		}
	},
	{#State 10
		ACTIONS => {
			"-" <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	14798	15006	
==>{
    my $op = shift;
    return [ annotated($op, "check($op->{args}->[0])"),
             $op->{args}->[1]->reftree() ];
}

sub Regex::Ops::Tree::rule::reftree {
    my $op = shift;
    my ($rule, $tree) = @{ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12205	12328	
==>ehow.
        
        return $href if defined $href;
    }
    
    return 'TODO';
}

=item C<href_for_perl_module($module) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11283	11489	
==>turn @ops;
}

sub output_rule_end {
    my ($self, $name) = @_;
    return ("end", ".end # End of rule $name");
}

sub output_rule_pass {
    my ($self, $name) = @_;
    return ($self->output_match_succeeded <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	3625	3739	
==>rt_element({ Name => 'var', Attributes => { type => $self->type->name, name => $self->name } });
  $handler->end_el <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	31817	31957	
==>le($treelet = shift @stack) {
    for(my $i = 2; $i < @$treelet; ++$i) {
      # iterate over children of current tree node
      next unless <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	426	548	
==>ure::Step qw( :inter capture_output check_progs );

$util        = 'yacc';
$description = "Determining whether $util is ins <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015423	1015876	
==>GS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1134,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 77 \"src/ops/sys.ops\"\n  const char * const tmp = strerror({ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	984820	985438	
==>AGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1104,
                  "ARGS" => [
                              "i",
                              "ic",
                              "sc",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 622 \" <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1764	1940	
==>) = @_;
    die "invalid distance" if $distance =~ /[^\d\-]/;
    return () if $distance == 0;

    my $comment;
    if ($distance == 1) {
        $comment = "pos++";
    } elsi <==
2	/Users/nnunley/parrot/config/inter/shlibs.pm	415	613	
==>onfig/inter/progs.pm because the answers depend
on which compiler is in use.  Thus it should come after the gccversion test.

=cut

package inter::shlibs;

use strict;
use vars qw($description @args) <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1948	2045	
==>ds

=over 4

=item C<create_path()>

This is called from C<new()> to create the path if necessary. <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	925	1022	
==>ds

=over 4

=item C<create_path()>

This is called from C<new()> to create the path if necessary. <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1145	1254	
==>!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically by $0.
 *
 * Any changes m <==
2	/Users/nnunley/parrot/tools/build/revision_c.pl	519	628	
==>!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically by $0.
 *
 * Any changes m <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	9918	10014	
==>(exists _get_arg($node,1)->{children}) {
    my @formals;
    ($symbol, @formals) = @{_get_arg($n <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2440	2565	
==>R}={};

	$$self{USER};
	
}

sub YYErrok {
	my($self)=shift;

	${$$self{ERRST}}=0;
    undef;
}

sub YYNberr {
	m <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2344	2455	
==>R}={};

	$$self{USER};
	
}

sub YYErrok {
	my($self)=shift;

	${$$self{ERRST}}=0;
    undef;
}

sub YYNberr {
	m <==
2	/Users/nnunley/parrot/languages/urm/urm-old.pl	484	617	
==>each my $reg (@register) {
	    $register{$reg} = shift @input;
	}
    }
    if ($line =~ /(r\d+)/) { $register{$1} = 0 unless defined <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40145	40315	
==>ess( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40992	41162	
==>ess( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1949	2052	
==>name) = @{$formal_args[$i]};
    my $actual_arg_type;

    if (UNIVERSAL::isa($args[$i], 'Jako::Construc <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1649	1752	
==>name) = @{$formal_args[$i]};
    my $actual_arg_type;

    if (UNIVERSAL::isa($args[$i], 'Jako::Construc <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	584	794	
==>x_match>["!POS"], <rx_pos>',
            'set <rx_match>["!RESULT"], 1',
            'add <rx_tmp>, <rx_pos>, -1',
            'set <rx_match>["0";1], <rx_tmp>');
}

sub output_match_failed {
    return ('set <r <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	38472	38656	
==>features
###

  'procedure?'                      => \&_op_procedure_p,
  'apply'                           => \&_op_apply,
  'map'                             => \&_op_map,
  'for-each <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	11492	11712	
==>ass compiles any other content. This is how we collect all the
non-sub stuff into the main sub at the end of the script's compiled code.

=cut


sub compile
{
  my $self     = shift; # Required: Jako::Construct::Block
  m <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	268	371	
==>x_stack';
    $ctx->{rx_ptmp} ||= 'rx_ptmp';
    $ctx->{rx_tmp} ||= 'rx_itmp';
    $ctx->{rx_pos} ||= 'r <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	13895	14151	
==>d       stdlib.h
sscanf      stdio.h
stderr      stdio.h
stdin       stdio.h
stdout      stdio.h
strcat      string.h
strchr      string.h
strcmp      string.h
strcoll     string.h
strcpy      string.h
strcspn     string.h
strerror    string.h
strftime    t <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2755	2855	
==>VE gives '', same as 'STRING' x 0

  $self->{'Thispara'} =~ tr{\xAD}{}d if Pod::Simple::ASCII;
  my $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2289	2389	
==>VE gives '', same as 'STRING' x 0

  $self->{'Thispara'} =~ tr{\xAD}{}d if Pod::Simple::ASCII;
  my $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095156	1095243	
==>src/ops/experimental.ops\"\n  Parrot_Exec_OS_Command(interpreter, {{\@1}});\n  {{+=2}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095851	1095938	
==>src/ops/experimental.ops\"\n  Parrot_Exec_OS_Command(interpreter, {{\@1}});\n  {{+=2}};\ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	68	164	
==>use base 'Regex::CodeGen';
use strict;

my $fail_label = Regex::Ops::Tree::mark('FAIL');

sub ini <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	69	165	
==>use base 'Regex::CodeGen';
use strict;

my $fail_label = Regex::Ops::Tree::mark('FAIL');

sub ini <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7408	7537	
==>! and then Oats..
t=2
on t goto 100, 200, 300
print "No match\n"
FIN:
for i = 1 to 3
	on i gosub oats, peas, beans
next i
print
en <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19691	19820	
==>! and then Oats..
t=2
on t goto 100, 200, 300
print "No match\n"
FIN:
for i = 1 to 3
	on i gosub oats, peas, beans
next i
print
en <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	3499	3628	
==>pe($1) eq 'ic';
	    }

	    if($forward_off =~ /^-?\d+$/){
		$forward_off = -$forward_off if $dir eq '-';

		if($forward_off != $ <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	1369	1648	
==>s an example parrotbench.conf:
    [global]
    directory = ../../examples/benchmarks
    list      = 0
    help      = 0
    method    = 2
    time      = 1

    [regexes]
    include   = ^gc 
    include   = ^oo 
    exclude   = header
    exclude   = waves

    [benchmark parr <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	896	991	
==>out leading/trailing pattern delimiters.

(Hint: if you try using qr// for the $pattern then you <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2994	3089	
==>out leading/trailing pattern delimiters.

(Hint: if you try using qr// for the $pattern then you <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	880	1051	
==>'.INTERPINFO_CURRENT_SUB'],
  ['',             'invokecc'],
  ['',             'restore', 'P1'],
  ['',             'restore', 'P6'],
  ['',             'set', 'P5', 'P6[1] <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	531	664	
==>nshift(@syms,  $sym);
        $#type=3;
        $#syms=3;
}
sub barf {
	unshift(@tokdsc, shift(@type));
	unshift(@tokens, shift(@syms) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450874	451143	
==>\n  {{\@1}} = {{\@2}}->vtable->absolute(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15912	16058	
==>],
        'arg1'   => $fct,
        'arg2'   => [$argv],
    );
    return [ $result, \@opcodes ];
}

sub BuildCallVariable {
    my ( $pa <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	23363	23466	
==>double => 'FLO', long => 'INT', integer => 'INT', string => 'STRING');
			my %sigilmap=( '%' => 'integer <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	2415	2592	
==>n' => 'compilers/tge/Makefile',
        commentType                   => '#',
        replace_slashes               => 1
    );
    genfile(
        'config/gen/makefiles/dynpmc. <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	20535	20781	
==>right = 'enum_type_STRING'   if ($func =~ s/_STR$//);
            if (exists $self->{super}{$meth}) {
                push @mmds, $self->get_super_mmds($meth, $right, $func);
            }
            push @mmds, [ $func, $left, $right, $meth_name <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	24541	24677	
==>/2;
    }
    my $tos = pop @stack;
    my $args = join ', ', @args;
    my $t;
    $func = $tos->[1];
    # create argument tuple
    if <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1765	1865	
==>t %d) in call to '%s'.",
    scalar(@formal_args), scalar(@args), $name)
    unless @formal_args == @ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1465	1565	
==>t %d) in call to '%s'.",
    scalar(@formal_args), scalar(@args), $name)
    unless @formal_args == @ <==
2	/Users/nnunley/parrot/config/gen/cpu.pm	116	227	
==>oke  $

=head1 NAME

config/gen/cpu.pm - CPU specific Files

=head1 DESCRIPTION

Runs C<&run_cpu()> in F<config/ <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	6027	6201	
==>it>

Elaborate unit testing.

=item L<Test::Inline>, L<SelfTest>

Embed tests in your code!

=item L<Test::Harness>

Interprets the output of your test program.

=back


=head <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1564	1722	
==>\n";
  print {$_[0]{'output_fh'}}
   '  ' x --$_[0]{'indent'}, "</", $_[1], ">\n";
  return;
}

# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	26185	26420	
==>DB::uplevel_args();
        shift @args;
        my $func = ( caller() )[2];

        Carp::carp(
            "Odd $func invocation; probably missing description for TODO test"
        );
    } else {
        warn $warning;
    }
}

pac <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	254	375	
==>]

 Options:
   -b -benchmarks     use benchmarks matching regexes  (multiple)
   -c -conf           path to configuration <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349322	349643	
==>m_class_Undef);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350324	350606	
==>m_class_Undef);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	817715	817879	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "saveall",
                  "FLAGS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033221	1033324	
==>tx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@1}};\n    PMC * const lex_pad = Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034319	1034422	
==>tx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@1}};\n    PMC * const lex_pad = Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	17121	17253	
==>Returns any lines found prior to first op definition.

If C<$trans> (an C<Parrot::OpTrans> subclass) is supplied then
substitutions a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242624	243048	
==>"i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 282,
                  "ARGS" => [
                              "i",
                              "p",
                              "nc"
                            ],
                  "BODY" => "#line 624 \"src/ops/cmp.ops\"\n  FLOATVAL l = VTABLE_get_number(interpreter, {{\@2} <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3040	3172	
==>$$self{STACK}}
	and	return $$self{STACK}[$index][1];

	undef;	#Invalid index
}

sub YYCurtok {
	my($self)=shift;

        @_ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2893	3016	
==>$$self{STACK}}
	and	return $$self{STACK}[$index][1];

	undef;	#Invalid index
}

sub YYCurtok {
	my($self)=shift;

        @_ <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	1026	1121	
==>erated
are used) is:

    source_path <whitespace> [package]meta1,meta2,...

or you may optional <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70822	70931	
==>,
                  "BODY" => "#line 1150 \"src/ops/core.ops\"\n\n  {{\@1}} = Parrot_load_lib(interpreter, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71591	71700	
==>,
                  "BODY" => "#line 1150 \"src/ops/core.ops\"\n\n  {{\@1}} = Parrot_load_lib(interpreter, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51823	52017	
==>lear_trace(interpreter, PARROT_ALL_TRACE_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52606	52800	
==>lear_trace(interpreter, PARROT_ALL_TRACE_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5081	5204	
==>source
{
    my $self = shift;
    my $source = shift;
    my @contents = ();
    
    foreach my $content (@{$self->{CONTEN <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3073	3181	
==>source
{
	my $self = shift;
	my $source = shift;
	my @contents = ();
	
	foreach my $content (@{$self->{CONTEN <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	11010	11217	
==>ompiler Exception Version VtableCache ParrotIO ParrotLibrary ConstParrotLibrary ParrotInterpreter ParrotThread LexPad Timer Pointer Sub Closure Continuation RetContinuation Exception_Handler Coroutine Eval NC <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38577	38692	
==>q{' . $self->describe . '}} = $_tok;'). '
		push @item, $_tok;
		' . ($self->{"lookahead"} ? '$text = $_savetext;' : <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4546	4654	
==>_op($$) {
	# Nothing to do.
	return "";
}

# Pre and post branch operation hooks.
sub pre_branch($) {
	my $se <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2962	3070	
==>_op($$) {
	# Nothing to do.
	return "";
}

# Pre and post branch operation hooks.
sub pre_branch($) {
	my $se <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62540	62733	
==>de$argcode($1)");

					!$matchrule and $rule and $rule->addcall($name);
				}
				elsif ($grammar =~ m/$ANY/gco)
				{
					_parse("a zero-or-more subrule match", $aftererror,$line,"$code$argco <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1908	2047	
==>:Section::Compilers->new,
        Parrot::Docs::Section::Languages->new,
        Parrot::Docs::Section::Config->new,
        Parrot::Docs::S <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	5456	5589	
==>934,
 'Chi'      , 935,
 'Psi'      , 936,
 'Omega'    , 937,
 'alpha'    , 945,
 'beta'     , 946,
 'gamma'    , 947,
 'delta'    , 9 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349108	349202	
==>t char * const path = string_to_cstring(interpreter, {{\@2}});\n\n  {{\@1}} = PIO_open(interpre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350110	350204	
==>t char * const path = string_to_cstring(interpreter, {{\@2}});\n\n  {{\@1}} = PIO_open(interpre <==
2	/Users/nnunley/parrot/config/auto/jit.pm	4043	4187	
==>e');
        if ($execcapable) {
            $conf->data->set(
                TEMP_exec_h =>
                    '$(SRC_DIR)/jit.h $(INC_DIR)/ex <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	4459	4562	
==>ibute="String" lineEndContext="#pop">
          <RegExpr attribute="String" context="#stay" String="'" / <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	8723	8829	
==>s'} eq 'calling')) {
		die "typeinfo must be supplied for rule $rule->{'name'}\n";
	}

    # pop and push f <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9451	9579	
==>40\x5B-\x5E\x60\x7B-\x7F]/
            # Characters under 0x80 that aren't legal in an XML Name.
        or $new_code =~ m/^[-\.0 <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10715	10843	
==>40\x5B-\x5E\x60\x7B-\x7F]/
            # Characters under 0x80 that aren't legal in an XML Name.
        or $new_code =~ m/^[-\.0 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	891	1005	
==>bel);
}

sub output_classmatch {
    my ($self, $class, $failLabel) = @_;
    return "rx_oneof P0, $class, ".$self- <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	2319	2441	
==>linkflags', $linkflags);
        print " (no) " if $verbose;
        $self->set_result('no');
    }

    return $self;
}

1 <==
2	/Users/nnunley/parrot/config/auto/readline.pm	2119	2241	
==>linkflags', $linkflags);
        print " (no) " if $verbose;
        $self->set_result('no');
    }

    return $self;
}

1 <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	1817	1945	
==>E;

# Actual commands
sub compile_cmd {
    my ($target, $source) = @_;

    return
        "$CC $CFLAGS " .
        "-o " . $tar <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	1908	2036	
==>E;

# Actual commands
sub compile_cmd {
    my ($target, $source) = @_;

    return
        "$CC $CFLAGS " .
        "-o " . $tar <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	55	180	
==>/parrot/lib/Parrot/Configure.pm 20321 2006-06-20T20:02:00.179448Z bernhard  $

=pod

=head1 NAME

Parrot::Configure - Conducts <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661950	662034	
==>PMC_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(interpreter, {{\@2}}, {{\@3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662866	662950	
==>PMC_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(interpreter, {{\@2}}, {{\@3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	239	388	
==>CSwitch> inherits from C<Parrot::OpTrans::CPrederef>
to provide a mixture of predereferenced register addressing and a
C<switch>ed run loop.

=head2 I <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2667	2818	
==>var"]	# Pull the original
	P2= P10[I25]
	P3= P2["$stype"]
	P3["$var"]= P0	# Hack in the alias

SHARING
		} 
	}
}

my $inputcounts=0;
sub input_read_assi <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2440	2582	
==>var"]	# Pull the original
	P2= P10[I25]
	P3= P2["$stype"]
	P3["$var"]= P0	# Hack in the alias

SHARING
		} else {
			print CODE<<SHARING;
	# Sh <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12978	13144	
==>e value zero) if the
					  rule is not 'commited' when it is
					  tried. Since you almost certainly wanted
					  '<error?> <reject>' Parse::RecDescent
					  suppl <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	12191	12317	
==>." => 15
		},
		GOTOS => {
			'charclass' => 12,
			'expr' => 11,
			'regex' => 13,
			'rule' => 8,
			'regex1' => 7
		}
	},
	{ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3893	4009	
==>ub output_check {
    my ($self, $needed, $failLabel, $lenvar) = @_;
    $lenvar ||= "<rx_len>";
    my $fail = $self <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3607	3723	
==>ub output_check {
    my ($self, $needed, $failLabel, $lenvar) = @_;
    $lenvar ||= "<rx_len>";
    my $fail = $self <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1506	1614	
==>ead3 {  $_[0]{'Thispara'} = '' }
sub start_head4 {  $_[0]{'Thispara'} = '' }

sub start_Verbatim    { $_[0]{' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1036	1144	
==>ead3 {  $_[0]{'Thispara'} = '' }
sub start_head4 {  $_[0]{'Thispara'} = '' }

sub start_Verbatim    { $_[0]{' <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	1772	1864	
==>m C<set_parent($parent)>

=item C<parent()>

Accessors for the containing section/group for t <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	5642	5797	
==>e) {
        if (! exists($ansi_c89_header{$include})) {
            print "    $include, included by:\n";
            foreach my $file (sort keys %{$system <==
2	/Users/nnunley/parrot/config/auto/msvc.pm	635	736	
==>n("config/auto/msvc/test_c.in");
    cc_build();
    my %msvc = eval cc_run() or die "Can't run the te <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	29	142	
==>tax highlighting XML file for IMCC
# Language:	Parrot IMCC
# Maintainer:	Andy Bussey <andybussey@yahoo.co.uk>
# La <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	18010	18170	
==>pfulness was fraught with problems:
       * the class's constructor might not be called 'new'
       * the class might not have a hash-like-arguments constructo <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	9937	10080	
==>ode,1)->{children}) {
    my @formals;
    ($symbol, @formals) = @{_get_arg($node,1)->{children}};
    $symbol = $symbol->{value};
    $lambda = <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35236	35356	
==>class}, $method, 0);
    my $ret = "";
    if ($method->{type} ne 'void') {
        # This cheats, assuming that all retu <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77386	77575	
==>name;
	if ($tracerulename) { $lastrulename = $tracerulename }

	$tracecontext =~ s/\n/\\n/g;
	$tracecontext =~ s/\s+/ /g;
	$tracerulename = qq{$tracerulename};
	write TRACE;
	if ($traceconte <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	410	530	
==>$parser) = @_;
    my $idf = 'fct_' . $parser->YYData->{idx_fct}++;
    return new defn( $idf, 'fct' );
}

sub get_g <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	4822	4943	
==><br>\n";
        $index_html = '<p>' . $index_html . "</p>\n";
    }
    
    return $index_html;
}

=item C<contents_rela <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9637	9735	
==>n', :todo(1));

  diag('some misc comments and documentation');

= DESCRIPTION

This module was bui <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	5590	5746	
==>arg->{type} eq 'int' ? ''       : "'";
            my $default = $arg->{default};
            
            $code .= "  goto done_$name \n";
            $code <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22004	22109	
==>nt(1);
  my $temp = $self->_generate($node->{children}[1]);
  $self->_add_inst(''           ,'lt'    ,[$te <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11089	11290	
==>INATION, STACK_CLEANUP_NULL);\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11878	12079	
==>INATION, STACK_CLEANUP_NULL);\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	533	629	
==>s) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  co <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3249	3347	
==>st::PGE::_generate_glob_for($target, $pattern);

    goto &Parrot::Test::pir_output_is;
}

=item C< <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3674	3772	
==>st::PGE::_generate_glob_for($target, $pattern);

    goto &Parrot::Test::pir_output_is;
}

=item C< <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13124	13318	
==>STACK_CLEANUP_NULL);\n  loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13968	14162	
==>STACK_CLEANUP_NULL);\n  loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937629	937804	
==>GS" => [
                              "s"
                            ],
                  "BODY" => "#line 460 \"src/ops/string.ops\"\n  string_titlecase_inplace(interpreter, <==
2	/Users/nnunley/parrot/config/init/defaults.pm	4262	4373	
==>tic => 'libparrot'.$Config{_a},
        libparrot_shared => 'libparrot.'.$Config{so},

        # does the system <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3183	3318	
==>defined(PARROT_SWITCH_REGS)
    register opcode_t *cur_opcode asm ("esi") = cur_op;
    register char *   _reg_base   asm ("edi");
#else <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	537	702	
==>em($text, @names)>

Returns a C header files documentation item.

=cut

sub c_header_item
{
    my $self = shift;
    
    return $self->c_item(shift, 'headers' => [@ <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	8934	9062	
==>(<OP>) {
    chomp;
    s/#.*$//;
    s/\s*$//;
    s/^\s*//;
    next unless $_;
    ($name, $number) = split(/\s+/, $_);
    if <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	779	913	
==>);
    Parrot::Test::write_code_to_file( $code, $lang_f );

    my $cmd;
    my $exit_code = 0;
    my $pass = 0;

    $cmd = "$self->{ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	816	950	
==>);
    Parrot::Test::write_code_to_file( $code, $lang_f );

    my $cmd;
    my $exit_code = 0;
    my $pass = 0;

    $cmd = "$self->{ <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	1223	1359	
==>ebugging.

=item C<--include=/path/to/pmc>

Specify include path where to find PMCs.

=item C<--library=libname>

Specifiy the library na <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	909	1004	
==>ributions or in general when svn is not available).
# See docs/submissions.pod on how to recreat <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3764	3859	
==>ributions or in general when svn is not available).
# See docs/submissions.pod on how to recreat <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	4986	5118	
==>$0: Could not mkdir $moddir: $!!\n";
}
open MODULE, ">$module"
  or die "$0: Could not open module file '$module' for writing: $!!\n" <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	20294	20414	
==>F_TRUE') {
	print "\t\t$cmt\n";
	$code_l++;
	$cmt ="\t\t# $opcode\t $rest";
	if ($rest =~ /to (\d+)/) {
	    $targ = "pc_ <==
2	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	1849	1976	
==>DMAINLOOP:
	branch MAINLOOPR 
ENDMAINLOOPNR:
	branch MAINLOOPNR

EOF

# Includes and constant substitutions
close(T);

unlink "b <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	955	1058	
==>'Jako::Construct::Expression::Value::Identifier');
  confess "Left is not Value!" if defined $left and n <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	983	1086	
==>'Jako::Construct::Expression::Value::Identifier');
  confess "Left is not Value!" if defined $left and n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314873	315082	
==>(1, \"Overflow exception for conv_i1_ovf\");\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	16578	16671	
==>a particular element, its default
initialization is performed instead. Initializers for non-ex <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1286	1432	
==>orting");
  }

  if( defined $variable ) {
    # make a not-really-constant
    *Pod::Simple::DEBUG = sub () { $$variable } ;
    $$variable = $val <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	55865	56001	
==>or), it is
assumed to have failed to extract.
If none of the extractor subroutines succeeds, then one
character is extracted from the sta <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	10060	10239	
==>) {
		$n = $1;
		return $n;
	    }
	}
	$n = temp('P');
	print <<"EOC";
	$n = new $DEFVAR
	$n = $v->[1]
EOC
    }
    $n;
}

sub LOAD_CONST {
    my ($n, $c, $cmt) = @_;
    my $typ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848305	848583	
==>@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849085	849363	
==>@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn", <==
2	/Users/nnunley/parrot/config/gen/icu.pm	232	353	
==>Makefile.

=cut

package gen::icu;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Bas <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4842	4940	
==>rules,$states,$lex,$error)
     = @$self{ 'RULES', 'STATES', 'LEX', 'ERROR' };
	my($errstatus,$nb <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4602	4698	
==>rules,$states,$lex,$error)
     = @$self{ 'RULES', 'STATES', 'LEX', 'ERROR' };
	my($errstatus,$nb <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	69005	69215	
==>> 91,
                  "ARGS" => [],
                  "BODY" => "#line 1071 \"src/ops/core.ops\"\n  Parrot_block_GC(interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	31740	31887	
==>46,
			'args' => 52,
			'key' => 53
		}
	},
	{#State 109
		ACTIONS => {
			"," => 151
		},
		DEFAULT => -9
	},
	{#State 110
		DEFAULT => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614861	614990	
==>{^+4}};\n    INTVAL offset;\n    offset = Parrot_class_offset(interpreter, {{\@2}}, {{\@3}});\n    if (offset < 0) {\n        real <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616012	616141	
==>{^+4}};\n    INTVAL offset;\n    offset = Parrot_class_offset(interpreter, {{\@2}}, {{\@3}});\n    if (offset < 0) {\n        real <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	4742	4928	
==>wn : $!", :$depends);
    }
    else {
        &Test::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. test utilities

multi sub skip (Str $reason?, :$depends) returns Bool is expo <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	2317	2426	
==>ck) {
    if (defined $name) {
      $self->SYNTAX_ERROR("No loop '%s' in loop control.", $name);
    } else { <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9378	9520	
==>.\n";
#DBG>			++$dbgerror;
#DBG>		};

            ++$$nberror;

        };

			$$errstatus == 3	#The next token is not valid: discard i <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8958	9092	
==>.\n";
#DBG>			++$dbgerror;
#DBG>		};

            ++$$nberror;

        };

			$$errstatus == 3	#The next token is not valid: discard i <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	2420	2545	
==>rection of argument C<< $args->[I<x>]
>>.

C<$labels> is a reference to an array of boolean values indicating
whether each arg <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	613	707	
==>ock, 'Jako::Construct::Block');
  confess "Ident is not!" unless UNIVERSAL::isa($ident, 'Jako:: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	501	595	
==>ock, 'Jako::Construct::Block');
  confess "Ident is not!" unless UNIVERSAL::isa($ident, 'Jako:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627359	627458	
==>tion register before its init method\n   * copies the registers. */\n  {{\@1}} = pmc_new_noinit(inte <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628503	628602	
==>tion register before its init method\n   * copies the registers. */\n  {{\@1}} = pmc_new_noinit(inte <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	3710	4153	
==>ck!")
    if scalar($self->blocks) == 1;

  return pop @{$self->{BLOCKS}};
}


###############################################################################
###############################################################################
##
## MAIN PROGRAM
##
###############################################################################
###############################################################################


#
# Tokenize the inpu <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	3354	3526	
==>heck templates
            while (my($t, $body) = each(%templates)) {
                if ($asm =~ /$t\s+/) {
                    my $tbody = $body;
                    while <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	49900	50006	
==>smatched, return an error.

=item 2.

Try to match a quote or quotelike operator. If found, call
C<extract_ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	3018	3208	
==>get->file_with_name($self->{INDEX_PATH});
    
    $index->write(
        Parrot::Docs::HTMLPage->header(
            $self->name, $self->html_navigation, '../resources'));
    $index->append <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	6300	6433	
==>{
    print <<'END_USAGE';
Usage: tcl-test.pl [-cu]
    -c Convert the .test files to .t files
    -u Update the tests from CVS.
END_U <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	2102	2254	
==>right->compile($compiler);

    if ($cond eq 'if') {
      $op = $compiler->invert_relop($op);
    }
    else {
      $cond = 'if';
    }

    $anon = $c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	485394	485663	
==>E" => "inline",
                  "CODE" => 555,
                  "ARGS" => [
                              "n",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 455 \"src/ops/math.o <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	3107	3291	
==>[CURR];
			last unless $_;
			last if $_ =~ /STMT|COMM|COMP/;
			push @{$code{$seg}->{code}}, "$syms[CURR] ";
		}
		push @{$code{$seg}->{code}}, "'\n";
		goto PARSE;
	}
	if ($syms[CURR] <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	4802	4936	
==>ml .= "$self->{TEXT}<br>\n";
        $index_html = '<p>' . $index_html . "</p>\n";
    }
    
    return $index_html;
}

=item C<conten <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1992	2105	
==>pScopeF {
    my ($parser) = @_;

    my $lex_num = shift @{ $parser->YYData->{scopef} };
    $parser->YYData- <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8389	8493	
==>d $path;
    
    return $self->directory_with_path($path);
}

=item C<existing_file_with_name($name)>

R <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	2258	2552	
==>Ref deleg_pmc );

sub class_name {
    my ($self, $class) = @_;

    my $classname = $self->{class};
    my $nclass = $class;
    # bless object into different classes inheriting from Parrot::Pmc2c
    if ($special_class_name{$classname}) {
        $nclass .= "::" . $classname;
    }
    else { <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3267	3384	
==>$3, choose($4, unescape($5), $6));

        # make the test print the last line of output
        # XXX This should be <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4674	4791	
==>$3, choose($4, unescape($5), $6));

        # make the test print the last line of output
        # XXX This should be <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	3858	4014	
==>g" context="string" String="'" />
          <RegExpr attribute="String Interp" context="string_interp" String="&quot;" />
          <RegExpr attribute="Ident <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	22122	22326	
==>Return generated code.
    return $pir;
}


# Generate translation code relating to a rule.
# #############################################
sub generate_rule_code($$$) {
	my $srm = shift;
	my $rule = shift <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	4032	4209	
==>a} = $i;
		    # print STDERR "def $f($a = $i)\n";
		}
		push @code, [$line, $pc, "ARG_count", $n, $f, $source];
	    }
	    elsif ($source =~ /lambda\s(.*?):/) {
		my $f = "lamb <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	4531	4655	
==>a} = $i;
		    # print STDERR "def $f($a = $i)\n";
		}
		push @code, [$line, $pc, "ARG_count", $n, $f, $source];
	    }
	}
	$ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	6373	6502	
==>rarr'    , 8629,
 'lArr'     , 8656,
 'uArr'     , 8657,
 'rArr'     , 8658,
 'dArr'     , 8659,
 'hArr'     , 8660,
 'forall'   , <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	31237	31429	
==>c_$1";
    }
    push @loops, $targ;
    my $eh = temp('P');
    print <<EOC;
	newsub $eh, .Exception_Handler, $targ $cmt
	set_eh $eh
EOC
}
sub POP_BLOCK
{
    my ($n, $c, $cmt) = @_;
    if (@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	37328	37436	
==>en) {  # usual case
          DEBUG and print "Treating $para_type paragraph as such because stack is empty.\ <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	6882	6984	
==>ith an error message if that file cannot be found.

=cut

sub find_file {
    my ($include, $file, $die <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49366	49485	
==>uncommit marker", $aftererror,$line);
				$item = new Parse::RecDescent::Directive('$commit=0;1',
								  $lookahead,$ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	5435	5564	
==>re_assign        { return shift->require('assign');        }
sub require_close_brace   { return shift->require('close-brace');   } <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	498	610	
==>base qw( Parrot::IO::Directory );

use Parrot::Docs::File;

=item C<file_class()>

Returns C<Parrot::Docs::File>. <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	490	636	
==>, 
    TYPE => $type,
    TEXT => $text
  }, $class;
}

sub new_bof
{
  my $class = shift;
  my ($file, $line) = @_;

  return $class->new($file, $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15041	15142	
==>((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
    }
    return;
  } elsif(wantarray) {  # return a <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16224	16325	
==>((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
    }
    return;
  } elsif(wantarray) {  # return a <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	15209	15396	
==>ps);
    foreach (@args) {
        my ($iback, @ops) = $self->rewrite($_, shift(@fails));
        push @ibacks, $iback;
        push @iops, \@ops;
    }

    my @ops;
    for my $i (0..$#a <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4304	4419	
==>teral', Attributes => { type => $type->name } });
        $handler->characters({ Data => $string });
        $handle <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4654	4765	
==>teral', Attributes => { type => $type->name } });
      $handler->characters({ Data => $string });
      $handle <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4888	4989	
==>STYPES}[${ITEMP0}]

# We'll use register $[INSP]0.
${STACK0} = "$"
${STEMP1} = ${PTEMP0}["reg_type_sho <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216396	216859	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 254,
                  "ARGS" => [
                              "p",
                              "n",
                              "ic"
                            ], <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17760	17907	
==>,
          "=for without a target?"
        );
        next;
      }
      DEBUG > 1 and
       print "Faking out a =for $target as a =begin $targe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441607	441904	
==>atch_p_pnp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442622	442919	
==>atch_p_pnp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6875	6978	
==>, 8)
print left$(t$, 5)
print right$(t$, 5)
' instr
s1$="The longer string"
found$="longer"
bogus$="not" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18604	18707	
==>, 8)
print left$(t$, 5)
print right$(t$, 5)
' instr
s1$="The longer string"
found$="longer"
bogus$="not" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	3234	3359	
==>. ")");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Nam <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	619721	619875	
==>);\n\t    }\n\t    /* TODO preserve type system */\n\t    VTABLE_morph(interpreter, left, enum_class_BigInt);\n\t    VTABLE_set_integer_native(interpreter, <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/PMC.pm	332	446	
==>C;

use base qw(Jako::Construct::Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  return bless {
    T <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	210	306	
==>lock/Loop.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

packa <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	3509	3623	
==>c : src/pmc/$pmc.dump
	\$(PMC2CC) src/pmc/$pmc.pmc

src/pmc/$pmc.dump : vtable.dump $parent_dumps lib/Parrot/Pmc2c. <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	58622	58721	
==>extract_tagged>. For example, to properly ignore "empty" XML elements
(which might contain quoted st <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83126	83528	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 104,
                  "ARGS" => [
                              " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84031	84433	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 105,
                  "ARGS" => [
                              " <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1615	1814	
==>{'indent'}, "</", $_[1], ">\n";
  return;
}

# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

sub _xml_escape {
  foreach my $x (@_) {
    # Escape things very cautiously <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	69	202	
==>pl 12524 2006-05-05 21:50:26Z petdance $

use strict;
use warnings;

=head1 NAME

tools/build/headerizer.pl - Generates the function h <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	5040	5184	
==>e case to make this configurable we'll add a seperate
        # --pkgconfigdir option.
        $dest = File::Spec->catdir($options{libdir}, 'pkgc <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8119	8272	
==>n";

				return($semval);
			};

                $$check eq 'ABORT'
            and	do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Abort.\n <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7755	7899	
==>n";

				return($semval);
			};

                $$check eq 'ABORT'
            and	do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Abort.\n <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19710	19893	
==>= 0 goto lastback
#                 $matchcount--
#                 goto R.back
#           back: if $matchcount >= max goto rfail
#                 R or rfail
#                 $match <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19412	19585	
==>= 0 goto lastback
#               $matchcount--
#               goto R.back
#         back: if $matchcount >= max goto rfail
#               R or rfail
#               $match <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	816957	817359	
==>=> ":base_core",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 924,
                  "ARGS" => [],
                  "BODY" => "#line 605 \"src/ops/set.ops\"\n  Parrot_clear_s(interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	34137	34271	
==>pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   print <<EOC;
	$vv = $v->[1]
EOC
       }
    }
    my $dest <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	35061	35195	
==>pop @stack;
	$vv = $v->[1];
	if ($v->[2] eq 'P') {
	   $vv = temp('I');
	   print <<EOC;
	$vv = $v->[1]
EOC
       }
    }
    my $dest <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033200	1033307	
==>t_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@1}};\n    PMC * cons <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034298	1034405	
==>t_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@1}};\n    PMC * cons <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	4486	4660	
==>sion);

# verify opcode numbers
my $seq = 0;
for(@{$ops->{OPS}}) {
    next if ($_->{CODE} < 0);	# skip
    my $opname = $_->full_name;
    my $n = $ParrotOps::optable{$opname <==
2	/Users/nnunley/parrot/lib/Test/More.pm	1902	2100	
==>est_name );
      is( foo(42), 23, $test_name );
  };

  TODO: {
      local $TODO = $why;

      ok( foo(),       $test_name );
      is( foo(42), 23, $test_name );
  };

  can_ok($module, @methods) <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	15432	15579	
==>production ended without completing the
			 <$next->{type}op:...> directive that started near line
			 $next->{line}. Did you forget the closing '>' <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6510	6622	
==>ft;
    my $tagname = $token->tagname;
    
    print {$self->{'output_fh'}} $self->{'Tagmap'}{$tagname} || retur <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	1879	2054	
==>ND_PIR

    $P0[unicode:"dyadic:\u2227"]  =  <<"END_PIR"            # and
    $I100 = %1
    $I101 = %2
    $I100 = and $I100, $I101
    %1 = $I100
END_PIR

    $P0[unicode:"dy <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	750	968	
==>nd report results.

=head1 SYNOPSIS

  tcl-test.pl [-c] [-u]

  -c Convert the .test files to .t files
  -u Update the tests from CVS.

=cut

main();

##
## main()
##
sub main {
    usage() and exit if $opt_h;
    check <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469306	469406	
==>ine 385 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exception(in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470181	470281	
==>ine 385 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exception(in <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5692	5871	
==>";
}

=item C<init_func_init1($base)>

Returns the C code for the init function.

=cut

sub init_func_init1
{
    my ($self, $base) = @_;
    my $cg_func = $self->core_prefix . $ba <==
2	/Users/nnunley/parrot/lib/Test/More.pm	27239	27391	
==>s/^/    /msg;
    return $out;
}


sub _type {
    my $thing = shift;

    return '' if !ref $thing;

    for my $type (qw(ARRAY HASH REF SCALAR GLOB Reg <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	677	775	
==>C<$resources> should be the relative path from the page to
F<docs/resources>, the image and CSS fil <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	1895	1993	
==>C<$resources> should be the relative path from the page to
F<docs/resources>, the image and CSS fil <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8033	8191	
==>lse {
        Test::diag("    Actual: " ~ ($got.defined ?? $got !! "undef"));
    }
}


sub test_ends {
    return unless $Test::testing_started;
    if (!defi <==
2	/Users/nnunley/parrot/tools/build/addopstags.pl	488	598	
==>sting tags
open T, '<', 'tags';
push @tags, <T>;
close T;

# Spit 'em out sorted
open T, '>', 'tags';
print T s <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	30448	30573	
==>sense means the part of the text that's
# introduced by the heading or item whose text is "Foo".)
# 
# Pod parsers may also no <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	7525	7679	
==>|R\b)(\w+)/a_$1/)
        {
            my $name = $1;
            my $arg  = $args{$name};
            
            if ($arg->{type} eq 'script' or $arg-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682023	682273	
==>> "inline",
                  "CODE" => 765,
                  "ARGS" => [
                              "n",
                              "p"
                            ],
                  "BODY" => "#line 512 \"src/ops/pmc.ops\"\n    {{\@1}} = {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633404	633576	
==>c",
                              "p"
                            ],
                  "BODY" => "#line 91 \"src/ops/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter- <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2802	2910	
==>pped"
Label1:
   PRINT "5 back in module-level code"
   END
Sub1:
   PRINT "2 in subroutine one"
   GOSUB Sub <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16769	16877	
==>pped"
Label1:
   PRINT "5 back in module-level code"
   END
Sub1:
   PRINT "2 in subroutine one"
   GOSUB Sub <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	719	838	
==>ce P0, $failLabel") x $distance;
    }
}

sub output_match {
    my ($self, $byte, $failLabel) = @_;
    return "rx_lite <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3482	3604	
==>mcfiles)) {
            run("$PMC2C --library $group --c " . join(" ",@pmcfiles))
              or die "pmc2c library creat <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3586	3708	
==>mcfiles)) {
            run("$PMC2C --library $group --c " . join(" ",@pmcfiles))
              or die "pmc2c library creat <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1054	1162	
==>LENAME );

$VERSION = '1.05';
$COMPATIBLE = '0.07';
$FILENAME=__FILE__;

use Carp;

#Known parameters <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1020	1120	
==>LENAME );

$VERSION = '1.05';
$COMPATIBLE = '0.07';
$FILENAME=__FILE__;

use Carp;

#Known parameters <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	8216	8405	
==>ided in rule " .
            "$rule->{'name'}\n";
    }

	# typeinfo must be supplied with op, load and calling, but not with
    # anything else.
	if ($has_typeinfo && $rule->{'class'} ne ' <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	533	685	
==>ts) returns Void is export {
    $Test::testing_started = 1;
    $Test::num_of_tests_planned = $number_of_tests;
    say "1..$number_of_tests";
}

sub fo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227848	228361	
==>ase_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 266,
                  "ARGS" => [
                              "p",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 530 \"src/ops/cmp.ops\"\n  if (string_compare(in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	639524	639619	
==>(interpreter, NULL, E_ValueError,\n\t\t      \"Illegal PMC enum (%d) in instantiate\", typ);\n\t <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	25082	25461	
==>. slurp_file($build_f));
                unlink $build_f;
                $builder->ok(0,$desc);

                return 0;
            }

            $cmd       = ".$PConfig{slash}$exe_f";
            $exit_code = run_command($cmd, 'STDOUT' => $out_f, 'STDERR' => $out_f);

            my $meth = $c_test_map{$func};
            my $pass = $builder->$meth(slurp_file($out_f), $ex <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11185	11305	
==>op @$work;  # REmove startarg tag...
	return(scalar @args, @args);
}
sub optype_of {
	my($func, $extra)=@_;
	if ($extra a <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3296	3389	
==>m and see
which one you like best!

L<Pod::Simple>, L<Pod::Simple::DumpAsXML>

The older libra <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	975753	976141	
==>lass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1096,
                  "AR <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	16663	16907	
==>'N');
	$n = temp($t = 'N');
	print <<"EOC";
	$nl = $l->[1]
	$nr = $r->[1]
	$n = pow $nl, $nr $cmt
EOC
    }
    push @stack, [-1, $n, $t];
}
sub inplace
{
    my ($op, $cmt) = @_;
    my $r = pop @stack;
    my $l = pop @stack;
    print <<"EOC" <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	54141	54238	
==>rocess works by applying each extractor in
sequence to the text string.

If the extractor is a sub <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	39917	40086	
==>ng lines

          }
        }
        
        # Now the VerbatimFormatted hoodoo...
        if( $self->{'accept_codes'} and
            $self->{'accept_codes'}{'Verbat <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3773	3877	
==>eturn @contents;
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::Docs::Section>

=item C<Parrot::Docs <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	160	266	
==>PORT_OK);

@ISA = qw( Exporter );
@EXPORT_OK = qw( %pmc_types);

%pmc_types = (
	Null => 1,
	Env => 2,
	Key <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	12398	12489	
==>end::needparen { 0 }
sub Regex::Ops::Tree::atend::render { '$' }

sub Regex::Ops::Tree::chec <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	462	567	
==>n F<include/parrot/op.h>.

=head2 Op Type

Ops are either I<auto> or I<manual>. Manual ops are responsible <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	5415	5564	
==>rsion) {
    show_version();
    exit(0);
}

if ($Help) {
    show_help();
    exit(0);
}

unless (@ARGV) {
    show_help();
    exit(1);
}

sub warn_ <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	3740	3956	
==>able_scope eq "Local") {
                $variable_visible{$file}{$1}++;
            } else {
                $variable_visible{"ALL"}{$1}++;
            }
            
            next;
        }
        
        # e <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	2379	2533	
==>out = "{\n  package $class;\n  use Carp;\n  sub new {\n";
    $out .= "    my (\$class, \%init) = \@_;\n";
    $out .= "    \$class = __PACKAGE__ unless \@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	618811	618935	
==>IC *mic;\n    Parrot_PIC_lru *lru;\n    PMC *left, *right;\n    INTVAL lr_types, lt, rt;\n\n    left = {{\@2}};\n    mic = (P <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	2423	2566	
==>->new(
        $file, $line, 'sub', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^(var|const)(?!\w)(.*)$}) {
      push @ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141532	141797	
==>"CODE" => 173,
                  "ARGS" => [
                              "nc",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 77 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20879	20973	
==>ing = 1;
        $right = Jako::Construct::Expression::Value::Identifier->new($block, $self->re <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1811	1907	
==>{ARGS}[shift];
}

=item C<goto_address($address)>

Transforms the C<goto ADDRESS($address)> macro <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1426	1522	
==>{ARGS}[shift];
}

=item C<goto_address($address)>

Transforms the C<goto ADDRESS($address)> macro <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11279	11610	
==>tate == 1) {
            push @tokens, $c;
            push @types, 'CHAR';
            $state = 0;
        } else {
            if ($c eq '{') {
                ++$depth;
            } elsif ($c eq '}') {
                if (--$depth == 0) {
                    $state = 0;
                }
            }
            $tokens[-1] . <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	6017	6302	
==>(.*)$}x) {
      push @tokens, Jako::Token->new(
        $file, $line, 'concat-assign', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^( ~ )(.*)$}x) {
      push @tokens, Jako::Token->new(
        $file, $line, 'infix-concat', undef, $1);
      $text = $2;
      n <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	13185	13295	
==>NS_LOOP after translating the instruction.
    $pir .= <<'PIRCODE';
    # If we have exception handlers, need s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981832	982100	
==>i",
                              "i",
                              "s",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	16989	17084	
==>alse;
my $whilecounter=0;
sub parse_while {
	$whilecounter++;
	push(@whiles, { jump => $whilecou <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	17469	17566	
==>, [ $counter, $N, $lastback ]),
		 aop('goto', [ $try ]),
	$back => $self->op_restore_rxlocals($op <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2774	2908	
==>ol} = $op->{arg1}->{symbol}\[$op->{arg2}->{symbol}\]\n";
    }

    sub visitKeyedSetOp {
        my $self = shift;
        my ($o <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	6144	6345	
==>$_\n");
        }
    }
}


sub check_cpp_indents {
    my ($file, $source) = @_;

    # check for C preprocessor directive indenting.  This is
    # comparitively easy.  Each level of the hierarchy sho <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	2370	2515	
==>my ($self, $fh) = @_;
    $self->SUPER::output_header($fh);
    return 1 unless $self->{emit_main};

    print $fh <<'END';
.sub main :main
    .p <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2149	2418	
==>mount;
    my $realvar = value($var);
    return "$realvar -= $amount;";
}

sub output_set {
    my ($self, $reg, $value) = @_;
    $reg = value($reg);
    return "$reg = $value;";
}

sub output_print {
    my ($self, $what) = @_;
    $what = value($what);
    return (" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15004	15099	
==>hen print "This is true" else print "Oops (flo)"

' Passing arrays (expect 12)
function arrfunc( <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3464	3634	
==>MP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}
goto PRE_OP_${CURIC}_CONT_$register_num

# Can do a lazy move.
PRE_OP_${CURIC}_LAZY_MOVE_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5226	5375	
==>MP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}
goto PRE_BRANCH_${CURIC}_CONT_$register_num

# Can do a lazy move.
P <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	716	864	
==>,
	NCI => 28,
	Float => 29,
	Integer => 30,
	BigInt => 31,
	Complex => 32,
	String => 33,
	Boolean => 34,
	Ref => 35,
	SharedRef => 36,
	Array => 37, <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	52755	52869	
==>ine);
				$code =~ /\A\s*<score:(.*)>\Z/s;
				$prod and $prod->addscore($1, $lookahead, $line)
				      or  _no_r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	535536	535810	
==>line",
                  "CODE" => 619,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 930 \"src/ops/math.ops\"\n  {{\@1}} = ((FLOATVAL)1) / cos((FLOATVAL){{ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	49	148	
==>rator
# Script to generate the instruction translator from a rules file and a
# stack to register ma <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1323	1448	
==>at ": "
PIR
	
	# This is also a good place (as we call gen_label before translating
	# every instruction) to see if we need to <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1560	1659	
==>nd => 'postfix', name => '--' } });
  $self->ident->sax($handler);
  $handler->end_element({ Name => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645891	646127	
==>\t{{\@1}} = Parrot_get_datatype_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646788	647024	
==>\t{{\@1}} = Parrot_get_datatype_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4081	4265	
==>cified op
argument type and value. C<$op> is an instance of C<Parrot::Op>.

=item C<gen_goto($where)>

The various C<goto_I<X>> methods below call this method with the return
value of a <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4314	4430	
==>r die "Report this as a BUG: Cannot open $fname";
	while(<DRV>) {
                	/^\s*sub\s+_Parse\s*{\s*$/ .. /^ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4094	4208	
==>r die "Report this as a BUG: Cannot open $fname";
	while(<DRV>) {
                	/^\s*sub\s+_Parse\s*{\s*$/ .. /^ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	13431	13541	
==>xample,
C<$Name2character_number{'eacute'}> is 201, and
C<$Name2character_number{'eacute'}> is 8364.  You get t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243987	244204	
==>r, {{\@2}});\n  {{\@1}} = string_compare(interpreter, l, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244919	245136	
==>r, {{\@2}});\n  {{\@1}} = string_compare(interpreter, l, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Test/More.pm	1076	1189	
==>pkg->export($callpkg, @_);
}


=head1 NAME

Test::More - yet another framework for writing test scripts

=head1 SY <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	19376	19501	
==>ildren of this $treelet->[0] node...\n";
    for($i = 2; $i < @$treelet; ++$i) { # iterate over children
      DEBUG > 3 and p <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	22019	22122	
==>ildren of this $treelet->[0] node...\n";
    for($i = 2; $i < @$treelet; ++$i) { # iterate over children <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	8172	8306	
==>or die "opendir ops: $!";
        my @ops = sort grep { !/^\./ && /\.ops$/ } readdir OPS;
        closedir OPS;

        my $pod = join <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	3752	3853	
==>ern) = @_;
    copy_if_diff($from, $to, $ignorePattern);
    unlink $from;
}

=item C<genfile($source, <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	349	458	
==>c PMCs.

=head2 Class Methods

=over

=cut

package Parrot::Docs::Section::DynaPMCs;

use strict;
use warnings <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	266507	266955	
==>"ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 310,
                  "ARGS" => [
                              "i",
                              "sc",
                              "sc"
                            ],
                  "BODY" => "#line 806 \"src/ops/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38418	38541	
==>s( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39282	39405	
==>s( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die <==
2	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1693	1780	
==>oc\\parrot\\LICENSES\\Artistic
OutputDir=.\\
OutputBaseFilename=setup-parrot-$options{ve <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908881	909309	
==>RS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1024,
                  "ARGS" => [
                              "i",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 2 <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22464	22571	
==>lf->_constant(2);
  $self->_add_inst(''           ,'mod'   ,[$temp_0,$temp_0,$temp_1]);
  $self->_add_inst(' <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22965	23072	
==>lf->_constant(2);
  $self->_add_inst(''           ,'mod'   ,[$temp_0,$temp_0,$temp_1]);
  $self->_add_inst(' <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	11950	12087	
==>ized by default to C<()>.

With no argument, the accessor returns a reference to the
element's whole array (whether or not the element was <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	12687	12791	
==>ized by default to C<()>.

With no argument, the accessor returns a reference to the
element's whole hash <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018658	1018884	
==>> 1138,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 182 \"src/ops/sys.ops\"\n  struct tm tm;\n  const tim <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	17519	17700	
==>try ]),
	$back => $self->op_restore_rxlocals($op),
                 aop('popint', [ $counter, 'dynamic alt counter' ]),
                 $self->dbprint("backtracking into dynalt's in <==
2	/Users/nnunley/parrot/lib/Test/More.pm	26495	26684	
==>{
            $var .= "->" unless $did_arrow++;
            $var .= "[$idx]";
        }
        elsif( $type eq 'REF' ) {
            $var = "\${$var}";
        }
    }

    my @vals = @{$St <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	165	279	
==>mops/mops.c - Calculate M ops/s

=head1 SYNOPSIS

    % perl examples/mops/mops.pl

=head1 DESCRIPTION

A Perl impl <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	161	275	
==>mops/mops.c - Calculate M ops/s

=head1 SYNOPSIS

    % perl examples/mops/mops.pl

=head1 DESCRIPTION

A Perl impl <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	21469	21604	
==>turn { min => $_[2], max => $_[5] }; }
	],
	[#Rule 30
		 'range', 5,
sub
#line 153 "lib/Regex/Grammar.y"
{ return { min => 0, max => $_[ <==
2	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	386	511	
==>oreach (1..10) {
	$arr[$_] = buildarray();
    }

    my @arr1;
    foreach (1..20) {
	$arr1[$_] = buildarray();
    }

    my <==
2	/Users/nnunley/parrot/examples/benchmarks/stress.pl	345	456	
==>oreach (1..10) {
    $arr[$_] = buildarray();
}

my @arr1;
foreach (1..20) {
    $arr1[$_] = buildarray();
}

my <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	52654	52795	
==>t_codeblock($grammar,'{',undef,'<');
					  $code })
			{
				_parse("a score marker", $aftererror,$line);
				$code =~ /\A\s*<score:(.*)>\Z/s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4874	5037	
==>n;
}

sub maxlen {
    my $op = shift;
    my $maxlen = 0;
    foreach my $kid (@{ $op->{args} }) {
        my $kidmax = $kid->maxlen();
        return undef if ! d <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	27362	27474	
==>@_;
    return ($back, @ops) unless $self->{DEBUG};

    my $method = "describe_" . $op->{name};
    my $desc = $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	1530	1635	
==>vegetable oil)
 
 * 1 tablespoon garam masala
 * 1/2 teaspoon red chili powder, or to taste
 * Salt, to ta <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	3415	3561	
==>_dir}    = $1;
  $html =~ /summary="(\d+) test cases: (\d+) ok, (\d+) failed, (\d+) todo, (\d+) skipped and (\d+) unexpectedly succeeded"/    and $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	26879	26979	
==>and printf "Extensor: Fallbacks <%s> Elements <%s>.\n",
     @fallbacks, @elements;

    my $canonica <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34812	34974	
==>ting.

Overrides the default implementation to throw an execption for unknown
methods.

=cut

sub body
{
    my ($self, $method, $line, $out_name) = @_;

    my $m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828810	828901	
==>RROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_pmc(entry->entry);\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829878	829969	
==>RROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_pmc(entry->entry);\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612995	613259	
==>LE_set_attr_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613902	614166	
==>LE_set_attr_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Test/More.pm	31153	31307	
==>ame keys and values.  This
is a deep check.

=cut

sub eq_hash {
    local @Data_Stack;
    return _deep_check(@_);
}

sub _eq_hash {
    my($a1, $a2) = @_ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Compilers.pm	248	355	
==>s;

=head1 DESCRIPTION

A documentation section describing all compilers in Parrot.

=head2 Class Meth <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	20719	20951	
==>$name\n";
            }
        }
        
        # If we don't branch at any of them, we've got an unknown op.
        $pir .= "    goto INS_NOT_FOUND_ERROR\n";

        # We may need to bulid second byte dispatch tables.
        f <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	13537	13640	
==>e an implementation
could be started).  This is most useful when writing modules and you
find there is s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449315	449408	
==>ODY" => "#line 190 \"src/ops/math.ops\"\n  {{\@1}}->vtable->i_absolute(interpreter, {{\@1}});\ <==
2	/Users/nnunley/parrot/config/auto/gc.pm	1627	1782	
==>'malloc';
    }

=cut

    }

    if ($gc =~ /^malloc(?:-trace)?$/) {
        $conf->data->set(
            TEMP_gc_c => <<"EOF",
\$(SRC_DIR)/$gc\$(O):	\$(G <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12257	12420	
==>sub hasleftmost ($$)
{
	my ($self, $ref) = @_;
	return ${$self->{"items"}}[0] eq $ref  if scalar @{$self->{"items"}};
	return 0;
}

sub leftmostsubrule($)
{
	my $se <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	13949	14047	
==>("\n    ", @{$extra_preamble_ref});
    my $extra_postamble = join("\n    ", @{$extra_postamble_ref <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359857	360104	
==>"TYPE" => "function",
                  "CODE" => 421,
                  "ARGS" => [
                              "sc"
                            ],
                  "BODY" => "#line 250 \"src/ops/io.ops\"\n  STRING * const s = {{\@1}};\n  if (s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	481432	481712	
==>=> 551,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 446 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934055	934165	
==>/string.ops\"\n  {{\@1}} = string_downcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934830	934940	
==>/string.ops\"\n  {{\@1}} = string_downcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2006	2106	
==>ould probably do the same thing with code like
$token->isa('Pod::Simple::PullParserEndToken'), but th <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	10462	10580	
==>ym=qq{"$sym"};
			}
			if ($type=~/BARE/) {
				if ($sym=~s/\$$/_string/) {	
					$$optype="S";
				} else {
					$$opt <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	6631	6736	
==>gt") });

sub convert_to_rpn {
	my(@expr)=@_;

	#print STDERR "In RPN Convert...\n";
	# Convert to RPN
	my <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	29731	29825	
==>s.  If set, all tests
will be considered 'todo' (see Test::More and Test::Harness for
details). <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/State.pm	275	458	
==>';
    return bless { name => 'LABEL',
                   label => $label,
                 }, 'Regex::Ops::Label';
}

sub genlabel {
    my ($self, $desc) = @_;
    my $number = ++$se <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	54227	54359	
==>_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 67
		 'exp', 3,
sub
#line 377 "Lua\lua51.yp"
{
            BuildRelop( $_[ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12099	12215	
==>count   => 0,
	}, $class;
}

sub expected ($)
{
	my $itemcount = scalar @{$_[0]->{"items"}};
	return ($itemcount) ? $ <==
2	/Users/nnunley/parrot/config/inter/progs.pm	2306	2412	
==>);

    $ccflags = $conf->data->get('ccflags');

    # Remove some perl5-isms.
    $ccflags =~ s/-D((PERL|H <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	680	904	
==>nb_warning} ) {
        $parser->YYData->{nb_warning}++;
    }
    else {
        $parser->YYData->{nb_warning} = 1;
    }

    print STDOUT 'lua: ', $parser->YYData->{srcname}, ':',
        $parser->YYData->{lineno}, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	5582	5704	
==>{ $self->{'source_scalar_ref'} } =~
        m/([^\n\r]*)((?:\r?\n)?)/g
      ) {
        #print(">> $1\n"),
        $self-> <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	3520	3639	
==>less defined $temp_ops;

    die "OPS invalid for $file" unless ref $temp_ops->{OPS};

    my $experimental = $file =~ / <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	6046	6265	
==>"--- No Parrot prefix: %d ---\n", scalar @NoParrotPrefix;
    for my $api (@NoParrotPrefix) {
	printf "%s\t%s\tBAD_PREFIX\n", $api, $API{$api};
    }
}

if (@UnParrotAPI) {
    printf "--- No Parrot API: %d ---\n", scala <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3719	3814	
==>ly) parent blocks'
symbol tables.

TODO: We should generate real compiler errors and warnings in <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	48013	48291	
==>5: stuff containing no start-codes or end-codes
          (?:
            [^A-Z\ >]+
            |
            (?:
              [A-Z](?!<)
            )
            |
            (?:
              \ (?!>)
            )
          )+
        )
      )
    /xgo
  ) {
    DEBUG > 4 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2657	2784	
==>"/$1", => "</$2>" ) : die "Funky $_"
  } @_;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	1911	2081	
==>all_source") {
        # do a little "find" action for now.
        
        @files = ();
        File::Find::find({wanted => sub {
                              /^.*\.[ch <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	1080	1212	
==>all_source") {
    # do a little "find" action for now.
    @files = ();
    File::Find::find({wanted => sub {
        if ( $File::Fi <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	832	965	
==>s=>$pos }, "Text::Balanced::ErrorMsg";
}

sub _fail
{
	my ($wantarray, $textref, $message, $pos) = @_;
	_failmsg $message, $pos if $me <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921454	921885	
==>IRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1037,
                  "ARGS" => [
                              "s",
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line 31 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065141	1065236	
==>oot_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed_str(interpreter, ns_root, {{\@2}});\n    {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066015	1066110	
==>oot_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed_str(interpreter, ns_root, {{\@2}});\n    {{\@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	12223	12353	
==>| DESCRIPTION | SYNOPSIS
             | COPYRIGHT | LICENSE | NOTES? | FUNCTIONS? | METHODS?
             | CAVEATS? | BUGS? | SEE\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	23155	23331	
==>enaming $was node to $dynasty[-1]\n"; 
        $treelet->[$i][0] = pop @dynasty;
        my $nugget;
        while(@dynasty) {
          DEBUG > 4 and printf
           "    Gra <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79008	79107	
==>_IS_NULL({{\@2}}) ? NULL : PMC_data({{\@2}}), name);\n  string_cstring_free(name);\n  if (p == NULL) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80529	80628	
==>_IS_NULL({{\@2}}) ? NULL : PMC_data({{\@2}}), name);\n  string_cstring_free(name);\n  if (p == NULL) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4459	4590	
==>chr($code)."'" : "";
    my @ops =
      (
       "ord <rx_tmp>, <rx_input>, <rx_pos> # tmp = INPUT[pos]",
       "ne <rx_tmp>, $cod <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	637	737	
==>ib/lib/libparrot.a>), and then cross-references the dubious API
symbols according to the below catego <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	6667	6840	
==>l_name;
    my $n = $_->{CODE};
    my $comma = $n < @{$real_ops->{OPS}} -1 ? "," : "";
    $opname = "PARROT_OP_$opname$comma";

    printf OUT "\t%-30s\t/* %4d */\n", $opna <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	45933	46038	
==>{
			print "$op is not a pattern matching operation\n";
		}


=head2 C<extract_quotelike> and "here docume <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	892083	892589	
==>ase_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1008,
                  "ARGS" => [
                              "s",
                              "s",
                              "i",
                              "i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	371596	371686	
==>ne from empty filehandle\");\n\n    if (!(io->flags & PIO_F_LINEBUF))\n\tPIO_setlinebuf(int <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	534241	534594	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "log2",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	533486	533835	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "log10",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" <==
2	/Users/nnunley/parrot/config/inter/charset.pm	1473	1584	
==>RS)


END
    }

    # build list of libraries for link line in Makefile
    my $slash = $conf->data->get('slash <==
2	/Users/nnunley/parrot/config/inter/encoding.pm	1490	1601	
==>RS)


END
    }

    # build list of libraries for link line in Makefile
    my $slash = $conf->data->get('slash <==
2	/Users/nnunley/parrot/lib/Test/More.pm	18014	18123	
==>at $filename line $line.}m;
        $Test->diag(<<DIAGNOSTIC);
    Tried to use '$module'.
    Error:  $@
DIAG <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7582	7727	
==>.
	my ($path, $desc) = split /\s+--?\s+/, $text, 2;
	
	return $desc;
}

=item C<short_description()>

Returns a short description of the file extr <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1579	1734	
==>hift;

    if (@_)
    {
        $self->{ARGS} = [ @_ ];
    }
    else
    {
        return $self->{ARGS};
    }
}

=item C<arg($index)>

Returns the argum <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1188	1343	
==>hift;

    if (@_)
    {
        $self->{ARGS} = [ @_ ];
    }
    else
    {
        return $self->{ARGS};
    }
}

=item C<arg($index)>

Returns the argum <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	40155	40318	
==>sult} eq 'break' ) {
                    $parser->Error("no loop to break\n");
                }
            }
        }
        unshift @{ $parser->YYData->{f <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39082	39225	
==>sult} eq 'break' ) {
                $parser->Error("no loop to break\n");
            }
        }
    }
    unshift @{ $parser->YYData->{f <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	51261	51387	
==>($grammar =~ m/$AUTOTREEMK/gco)
			{
				_parse("an autotree marker", $aftererror,$line);
				if ($rule)
				{
					_error("<au <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	42	129	
==>rot::Configure::Step from config/gen/makefiles/dynoplibs_pl.in

# Copyright (C) 2001-200 <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	1428	1548	
==>end the short BSD-style type to the symbol name.

    B - uninitialised data symbol
    D - initialised data symbol
    F <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	4901	4998	
==>0]->{label} ||= $self->{state}->genlabel("beginning");

    # Stick in a next_stmt ref in every st <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	11767	11923	
==>= $self->_gensym();

  $return = $self->_constant(0);
  for(_get_args($node)) {
    my $temp = $self->_generate($_);
    $self->_add_inst(''         ,'eq' ,[ <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	18263	18430	
==>ctures didn't work well:
                 package Person;
                 struct { mother => 'Person', father => 'Person'};


Modified by Casey West, 2000-11-08, v0.59 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427948	428090	
==>n  mmd_dispatch_v_pn(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428835	428977	
==>n  mmd_dispatch_v_pn(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	14680	14811	
==>OTOS => {
			'expr' => 28,
			'charclass' => 12,
			'range' => 25
		}
	},
	{#State 29
		DEFAULT => -8
	},
	{#State 30
		ACTIONS => { <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	9358	9467	
==>0,"FALSE_$label"]);
  $self->_restore($cond);
  $return = $self->_save_1 ('P');

  my $true = $self->_generate <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553560	553829	
==>CODE" => 636,
                  "ARGS" => [
                              "p",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 94 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *met <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	459	563	
==>---------------------------------
{
#
# Module Parse::Yapp::Driver
#
# This module is part of the Pa <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	448	547	
==>---------------------------------
{
#
# Module Parse::Yapp::Driver
#
# This module is part of the Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	817892	818128	
==>core",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 926,
                  "ARGS" => [],
                  "BODY" => "#line 40 \"src/ops/stack.ops\"\n  Parrot_push_regs(interpreter) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	2716	2921	
==>oncat');  }
sub is_infix_rel     { return shift->is('infix-rel');     }
sub is_label         { return shift->is('label');         }
sub is_last          { return shift->is('last');          }
sub is_literal <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1092	1198	
==>ry_class>.


=cut

sub directory_with_path
{
    my $self = shift;
    
    return $self->directory_class-> <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17355	17486	
==>it out as a begin/end
      my $target;

      if(grep $_->[1]{'~ignore'}, @$curr_open) {
        DEBUG > 1 and print "Ignoring igno <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	1663	1828	
==>,
    'locase' => 'locase',
    'next' => 'next',
    'sort' => 'sort',
);

my %rev_type_map;

while (my ($k, $v) =  each (%type_map)) {
    $rev_type_map{$v} = $k;
} <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2717	2812	
==>1 in module-level code"
GOSUB Sub1
PRINT "ERR this line in main routine should be skipped"
Label <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16684	16779	
==>1 in module-level code"
GOSUB Sub1
PRINT "ERR this line in main routine should be skipped"
Label <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760606	760699	
==>e 286 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}}->vtable->get_pmc(interpreter, {{\@2}});\n  {{+= <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	1257	1380	
==>y $array=0;
		if ($syms[CURR] eq "(") {
			$array=1;
			while($syms[CURR] ne ")") {
				feedme;
			}
			feedme;
		}
		$stype <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227418	227608	
==>et_string(interpreter, {{\@1}}), {{\@2}}) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228398	228588	
==>et_string(interpreter, {{\@1}}), {{\@2}}) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5832	5925	
==>ined $self->{triggers}{$key}{$trigger};

    my $verbose = defined $self->get('verbose') && $s <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6402	6495	
==>ined $self->{triggers}{$key}{$trigger};

    my $verbose = defined $self->get('verbose') && $s <==
2	/Users/nnunley/parrot/config/inter/progs.pm	3116	3224	
==>hy.
    $ldflags = integrate($ldflags, $conf->options->get('ldflags'));
    $ldflags = prompt("And your $ld f <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	12109	12260	
==>" => 3,
			"&" => 5,
			'CODE' => 6,
			"^" => 9,
			"(" => 10,
			"[" => 14,
			"." => 15
		},
		GOTOS => {
			'charclass' => 12,
			'expr' => 11,
			' <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	6033	6153	
==>print SOURCE $preamble;
print SOURCE <<END_C;
#include "$include"

${defines}
static op_lib_t ${bs}op_lib;

END_C

my $te <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	14045	14170	
==>N{IO};
  }

  if(!defined $to) {             $self->output_fh( *STDOUT{IO}   );
  } elsif(ref(\$to) eq 'GLOB') { $self->output <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	380591	381145	
==>ek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 445,
                  "ARGS" => [
                              "p",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 455 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_se <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	480163	480649	
==>FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 550,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 446 \"src/op <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	10706	10875	
==>adding-left: 40px; }
    .indent3 { padding-left: 80px; padding-bottom: 10px; }

    p, dl, pre, table { margin:      15px; }
    dt    { font-weight: bold; }
    dd+dt { <==
2	/Users/nnunley/parrot/lib/Test/More.pm	30337	30510	
==>, $e2);
            }
            elsif( $type eq 'REF' ) {
                push @Data_Stack, { type => $type, vals => [$e1, $e2] };
                $ok = _deep_check($$e1, $ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	2130	2327	
==>$dist->relative_path($dist->c_header_file_with_name($name));
        }
    }
    
    if ( exists $contents{'contents'} )
    {
        push @contents, @{$contents{'contents'}};
    }
    
    retur <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	1666	1776	
==>$dist->relative_path($dist->c_header_file_with_name($name));
        }
    }
    
    if ( exists $contents{'so <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1081	1183	
==>ent");
  
  if (($self->ident->kind eq 'var') and ($self->ident->scope eq 'global')) {
    my $pmc_type <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1077	1177	
==>ent");

  if (($self->ident->kind eq 'var') and ($self->ident->scope eq 'global')) {
    my $pmc_type <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8312	8404	
==>c7b756,/* 2 */
FF,$c,$d,$a,$b,$_[6],17,0x242070db,/* 3 */
FF,$b,$c,$d,$a,$_[7],22,0xc1bdceee, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	826	1004	
==>elf, $var, $ctx) = @_;
    if ($ctx->{$var}) {
        return $ctx->{$var};
    } else {
        return '$' . $var;
    }
}

############### SIMPLE OUTPUT ##############

sub outp <==
2	/Users/nnunley/parrot/config/inter/ops.pm	958	1071	
==>bled - until we can build and load
    # opcode subset libs
    if (0 && $conf->options->get('ask')) {
        pri <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	2528	2653	
==>unc } = sub ($$;$%) {
            my( $code, $expected, $desc, %extra ) = @_;

            Parrot::Test::convert_line_endings( <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4169	4305	
==>core_suffix (values %cores) {
		foreach (@oplibs) {
			my $src = $_ . "_ops$core_suffix$LOAD_EXT";
	        copy($src, $dest)
			    or d <==
2	/Users/nnunley/parrot/languages/regex/test.pl	3343	3455	
==>> 1);

    print PIR <<"END";
# Regular expression test
# Generated by $0
# Pattern >>$pattern<<

END

    $drive <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2389	2502	
==>nd => $self->kind } });
  }

  if ($self->op) {
    $handler->start_element({ Name => 'block', Attributes => { kin <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2266	2379	
==>nd => $self->kind } });
  }

  if ($self->op) {
    $handler->start_element({ Name => 'block', Attributes => { kin <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	6	105	
==>mbol.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is sub <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	36279	36574	
==>\n";

        if($ell_content[$j] =~ m/^([^\|]*)\|(.*)$/s) {
          my @link_text = ($1);   # might be 0-length
          $ell_content[$j] = $2;  # might be 0-length

          DEBUG > 3 and
           print "     FOUND a '|' in it.  Splitting into [$1] + [$2]\n";

          unshift @link_tex <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122026	122126	
==>ough to kill.\n   * it's just casting a signed integral to the equivalent unsigned.\n   */\n  LVALUE_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122938	123038	
==>ough to kill.\n   * it's just casting a signed integral to the equivalent unsigned.\n   */\n  LVALUE_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	2445	2541	
==>ended to facilitate the selection of
suitable ops for a Parrot safe mode, or for inclusion in min <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	25444	25553	
==>new Parse::RecDescent::Directive('if (' .
		($self->{"commitonly"} ? '$commit' : '1') . 
		") { do {$action} u <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	43735	43847	
==>y $func = _get_arg ($node, 0);
    if (exists $func->{value}) {
      my $symbol = $func->{value};
      if (exis <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7226	7341	
==>output_pushint($reg);
}

sub output_pushint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);

    if ( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6868	6983	
==>output_pushint($reg);
}

sub output_pushint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);

    if ( <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	2455	2586	
==>>]
>>.

C<$labels> is a reference to an array of boolean values indicating
whether each argument direction was prefixed by 'C<label> <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	14483	14688	
==>$exit_code, $cmd );
            unless ( $run_exec ) {
                if ( $args =~ s/--run-pbc// || $args =~ s/-r // ) {
                    my $pbc_f = per_test('.pbc', $test_no);
                    $ar <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	6474	6601	
==>nings;

use FindBin;
use lib "$FindBin::Bin/../..";
use lib "$FindBin::Bin/../../lib";
use Parrot::Vtable;
use Parrot::Pmc2c qw( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	446941	447288	
==>=> [
                              "n"
                            ],
                  "BODY" => "#line 165 \"src/ops/math.ops\"\n  {{\@1}} = fabs( {{\@1}} );\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	7342	7491	
==>arg;

    $handler->start_element({
      Name       => 'arg',
      Attributes => {
        type => $arg_type_name,
        name => $arg_name
      } <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	105	224	
==>RT = qw(rop);

# Tree operators
#
# This package defines operators that can be used to construct a
# syntax tree for a r <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	170	287	
==>1 NAME

Parrot::Test::Punie -- testing routines for languages/punie

This is largely a copy of Parrot::Test::Tcl, whic <==
2	/Users/nnunley/parrot/examples/benchmarks/oofib.pl	135	264	
==>elf->fibB($n-2);
}
sub fibA {
    my $self = shift;
    my $n = shift;
    return $n if ($n < 2);
    return $self->fib($n-1) + $s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931343	931632	
==>( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932113	932402	
==>( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inl <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15447	15578	
==>e,1));
  die "set-car!: Element not pair\n" unless $return =~ /^P/;
  my $value = $self->_generate (_get_arg($node,2));
  $self->_ad <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009668	1009888	
==>> 1126,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 659 \"src/ops/string.ops\"\n  {{\@1}} = string_c <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2339	2462	
==>e();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exists($$self{USER})
	or	$$self{USER}={};

	$$self{USER} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2252	2364	
==>e();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exists($$self{USER})
	or	$$self{USER}={};

	$$self{USER} <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	926	1021	
==>eneral when svn is not available).
# See docs/submissions.pod on how to recreate this file after <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3781	3876	
==>eneral when svn is not available).
# See docs/submissions.pod on how to recreate this file after <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	35824	35936	
==>sidered failures.  If no tests were ever run Test::Builder
will throw a warning and exit with 255.  If the test d <==
2	/Users/nnunley/parrot/lib/Test/More.pm	33895	34007	
==>sidered failures.  If no tests were ever run Test::Builder
will throw a warning and exit with 255.  If the test d <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	58592	58795	
==>y method
				       Parse::RecDescent::$rulename",$line)
				and
				_hint("The rule named \"$rulename\" cannot be directly
                                       called through the Parse::RecDescent obje <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5142	5355	
==>URR] eq "else") {   #  and $singleif) {
		my $c=pop @ifstack;
		push(@ifstack, -1);
		if (! $c) { 
			die "ELSE without corresponding IF at line $sourceline\n";
		}
		push(@{$elsestack->{$elsetag}}, $elseline);
		p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171772	172237	
==>FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 206,
                  "ARGS" => [
                              "p",
                              "s",
                              "ic"
                            ],
                  "BODY <==
2	/Users/nnunley/parrot/config/inter/lex.pm	1499	1667	
==>prog = check_progs(['flex', 'lex'], $verbose);

    unless ($prog) {

        # fall back to default
        $self->set_result('no');
        return $self;
    }

    if <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	8138	8243	
==>ile</td>
             <td><a href="$outfile_base.lines.html">@{[$file_line_coverage{$source_file} ? "$file <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	9107	9307	
==>8,
             'nv' => 'double',
             'nvsize' => 8,
             'o' => '.o',
             'opcode_t' => 'long',
             'opcode_t_size' => 4,
             'ops' => 'src/ops/core.ops src <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	18255	18378	
==>n && 'v' == string_index(interpreter, signature, 1)) {
       Parrot_warn(interpreter, PARROT_WARNINGS_ALL_FLAG, "function s <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	19100	19222	
==>=> $why,
    });

    my $out = "not ok";
    $out   .= " $self->{Curr_Test}" if $self->use_numbers;
    $out   .= " # TODO <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	22892	23002	
==>t <<EOC;
    # tuple $tupl->[1] n = $tupl->[0]
EOC
    $n = $tupl->[0];
    UNPACK_SEQUENCE($n, '', "\t\t #unpa <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2818	2979	
==>pe sequence $_ .\n"),
                last;
        }
    }

    $parser->Error("Untermined string.\n");
    $parser->YYData->{lineno}++;
    return ( $typ <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4333	4494	
==>pe sequence $_ .\n"),
                last;
        }
    }

    $parser->Error("Untermined string.\n");
    $parser->YYData->{lineno}++;
    return ( $typ <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1986	2276	
==>nd( 
                            \@test_prog, 
                            STDOUT => $out_fn,
                            STDERR => $out_fn 
                        );
  
        my $builder_func = $language_test_map{$func};
        # That's the reason for:   no strict 'refs';
        my $p <==
2	/Users/nnunley/parrot/config/init/hints.pm	606	714	
==>onf->options->get('verbose');

    my $hints_used = 0;

    my $hints = "init::hints::" . lc($^O);

    print <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2339	2441	
==><p6rule_like($target, $pattern, $expected, $description, @todo)>

Runs the target string against the Pe <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7712	7823	
==>ster, determine register name now.
	if (!$dest_reg) {
		$pir .= <<'PIR'
# Get type (so we can find register type <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5830	5941	
==>ster, determine register name now.
	if (!$dest_reg) {
		$pir .= <<'PIR'
# Get type (so we can find register type <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509882	510131	
==>0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	38788	39075	
==>"
	/ge;
	$ins = "\${INS} = concat \"$ins\"\n";
		
	# Return PIR.
	return $ins;
}


# Generate the translator trailer code.
# #####################################
sub generate_final_pir($$) {
    my $srm = shift;
    my $mv = shift;
    
    # Emit complete label.
    my $pir .= "COMPLET <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2096	2215	
==>{
    return $Name2character{$in}; # returns undef if unknown
  }
}

#-------------------------------------------------- <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	5913	6130	
==>])/\\$1/g;
            $part =~ s/\n/\\n/g;
            push @ops, aop('print', [ "\"$part\"" ]);
        }
    }
    return @ops;
}

sub need_group_setup {
    my ($self, $group) = @_;
    $self->{_setup_starts}{$grou <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	28350	28459	
==>put string (i.e. the characters after the
extracted string). On failure, the entire string is returned.

=item <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088934	1089223	
==>rpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089882	1090171	
==>rpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	3088	3224	
==>?
# access handled by superclass?
sub type  { return shift->{TYPE}; }
sub name  { return shift->{NAME}; }
sub value { return shift->{VALU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	376165	376654	
==>=> "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 440,
                  "ARGS" => [
                              "i",
                              "sc",
                              "ic"
                            ],
                  "BODY" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438962	439315	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 503,
                  "A <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	3952	4083	
==>my ($op) = @_; $op->{args}->[0]->maxlen() }
sub startset { my ($op) = @_; $op->{args}->[0]->startset() }
sub hasback { my ($op) = @_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	9068	9192	
==>TAX_ERROR
{
  my ($self, $format, @args) = @_;
  $self->ERROR('Syntax', $format, @args);
}


#
# INTERNAL_ERROR()
#

sub INTE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528705	529036	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529587	529918	
==>",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math" <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6866	6975	
==>d("$pmc.c", "$pmc.pmc")) {
        run("$PMC2C --c $pmc.pmc")
          or die "pmc2c code generation failed ( <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7077	7186	
==>d("$pmc.c", "$pmc.pmc")) {
        run("$PMC2C --c $pmc.pmc")
          or die "pmc2c code generation failed ( <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	36086	36232	
==>n";
      for(my $j = 0; $j < @ell_content; ++$j) {
        next if ref $ell_content[$j];
        DEBUG > 3 and
         print "    Peering at L-co <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	37295	37441	
==>n";
      for(my $j = 0; $j < @ell_content; ++$j) {
        next if ref $ell_content[$j];
        DEBUG > 3 and
         print "    Peering at L-co <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	797	922	
==>asm pbc out) ); # JMG

        # STDERR is written into same output file
        open LANG, "> $lang_f" or die "Unable to open <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	709	834	
==>asm pbc out) ); # JMG

        # STDERR is written into same output file
        open LANG, "> $lang_f" or die "Unable to open <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	286	507	
==>mentation section describing Perl modules in Parrot.

=head2 Class Methods

=over

=cut

package Parrot::Docs::Section::Perl;

use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558976	559179	
==>" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 131 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207009	207396	
==>,
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 244,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 39 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4990	5124	
==>f, $to) = @_;
  
  return 'TODO';
}

sub do_url_link { return $_[1]->attr('to') }

sub do_man_link { return undef }
 # But subclasses a <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	20519	20663	
==>eelet->[$i][0] eq 'L') {
          my $thing;
          foreach my $attrname ('section', 'to') {        
            if(defined($thing = $treelet <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	445049	445648	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 509,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 119 \"src/ops/math.ops\"\n  {{ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	7422	7546	
==>redirect '$key' yet!";
        $value = File::Spec->devnull
            if $value eq '/dev/null';
    }

    my $out = $optio <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27402	27622	
==>abelOp( $parser,
        'arg1' => $l_break,
    );
    return \@opcodes;
}

sub BuildRepeat {
    my ( $parser, $block, $expr ) = @_;
    my @opcodes    = ();
    my $l_continue = new_label($parser);
    my $l_ <==
2	/Users/nnunley/parrot/Configure.pl	4643	4763	
==>efined $key;
  $value = 1      unless defined $value;

  for ($key) {
    m/version/ && do {
      my $svnid = '$Id: /par <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	29555	29696	
==>eturn @{ $self->{Test_Results} };
}

=item B<todo>

    my $todo_reason = $Test->todo;
    my $todo_reason = $Test->todo($pack);

todo() looks <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11424	11654	
==>> ":base_core,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 15,
                  "ARGS" => [ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	11284	11408	
==>($got, 'eq', $expect, $name);
}

sub is_num {
    my($self, $got, $expect, $name) = @_;
    local $Level = $Level + 1;

    i <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2040	2166	
==>index_html . "</p>\n\n";
		}
		
		$index_html = "<p>$self->{TEXT}</p>\n\n" . $index_html if $self->{TEXT};
		$index_html = qq(< <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	6728	6864	
==>ly so that $n within R does not return a
# now-abandoned match. I suppose it should restore $n to its previous
# value, but I'm not going <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39229	39336	
==>, $type, $minrep, $maxrep, $leftarg, $op, $rightarg) = @_;

	bless 
	{
		"type"      => "${type}op",
		"left <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6294	6470	
==>:   undef;
        }
        else {
            $act=$$actions{DEFAULT};
#DBG>			$debug & 0x01
#DBG>		and	print STDERR "Don't need token.\n";
        }

            defi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6002	6170	
==>:   undef;
        }
        else {
            $act=$$actions{DEFAULT};
#DBG>			$debug & 0x01
#DBG>		and	print STDERR "Don't need token.\n";
        }

            defi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033513	1033657	
==>_set_pmc_keyed_str(interpreter, lex_pad, lex_name, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034611	1034755	
==>_set_pmc_keyed_str(interpreter, lex_pad, lex_name, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	3979	4083	
==>value in the configuration system's data,
and writes the results to specified target file.

=cut

sub gen <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54286	54419	
==>else {
      if( chr(65) eq 'A' ) {
        s<([^\x20\x21\x23\x27-\x3F\x41-\x5B\x5D-\x7E])>
         #<$pretty_form{$1} || '\\x'.(unpa <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	15169	15323	
==>e result for later.
EQ
			$ors++;
		}
		if ($syms[CURR] eq "to") {
			my @b=EXPRESSION();
			feedme();
			print CODE<<TO;
# From
@a	bsr DEREF
	push P13, P6 <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	6778	6935	
==>{
		$parser->{localvars} .= " $1";
		$self->{"vars"} .= "$var;\n" }
	else 
		{ $self->{"vars"} .= "my $var;\n" }
	$self->{"changed"} = 1;
	return 1;
}

sub ad <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19514	19643	
==>expr', 1,
sub
#line 115 "lib/Regex/Grammar.y"
{ return op('classpieces' => [ $_[1] ]); }
	],
	[#Rule 13
		 'expr', 2,
sub
#line 11 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3071	3169	
==>imple::Debug (\$debug_level,0);  # or some integer

is basically equivalent to this:

  my $debug_l <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	1659	1834	
==>C<key => value> pairs and returns a
L<Parrot::Configure::Data> object.

=cut

sub set
{
    my $self = shift;

    my $verbose = defined $self->get('verbose') && $self->get('ve <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10862	10975	
==>d(".${slash}test${exe}", './test.out', './test.out',
            $verbose);
    }

    my $output = _slurp('./test <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	4778	4942	
==>ode[] = {
END_C

    $pf->byte_code($byte_code);

    # this is now packed PBC
    $byte_code = $pf->pack();

    $offset = 0;
    while($offset < length($byte_code) <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	35326	35513	
==>"^" => 79,
			"/" => 82
		},
		DEFAULT => -69
	},
	{#State 131
		ACTIONS => {
			"-" => 72,
			"%" => 76,
			"*" => 80,
			".." => 71,
			"+" => 75,
			"^" => 79,
			"/" => 82 <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	7067	7379	
==>int {$FH} " :flat";
            }
            $first = 0;
        }
        print {$FH} ")\n";
    }

    sub visitBranchIfOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        if ( exists $op->{op} ) {
            print {$FH}
                "  if $op->{arg1} <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	2000	2104	
==>}
sub props  { return %{shift->{PROPS}}; }
sub args   { return @{shift->{ARGS}}; }

sub file   { return s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2835	2938	
==>}

sub props { return %{shift->{PROPS}}; }
sub args  { return @{shift->{ARGS}};  }

sub file  { return s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1108	1213	
==>->tagname(I<somestring>)

This changes the tagname for this end-token object.
You probably won't need to d <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	402	517	
==>::Configure::Step ':gen';

$description = 'Generating runtime/parrot/include';

my @files = qw(
    include/parrot/c <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	4244	4413	
==>one_1 
    $P100[$I101] = $I100
    inc $I101
    inc $I100
    goto loop_begin_1
  loop_done_1:
    %1 = $P100
END_PIR

.end

.sub 'aplformat'
    .param pmc arg

    .l <==
2	/Users/nnunley/parrot/config/gen/platform.pm	4935	5079	
==>le"
END_HERE
            print PLATFORM_C <IN_C>, "\n\n";
            close IN_C;
        }
    }

    # append generated c files
    @impls = gr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	508348	508724	
==>\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	31957	32243	
==>_groups) {
        push @ops, aop('initgroup' => [ $group ]);
    }

    push @ops, aop('setstart' => [ "0", '<rx_pos>' ]);

    foreach $group (sort keys %{ $self->{_setup_starts} || {} }) {
        push @ops, aop('setstart' => [ $group, -2 ]);
    }

    foreach $group (sort keys %{ $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	51616	51760	
==>h;
        $x = $code . ("<" x $ender_length) . " $x " . (">" x $ender_length);
      } else {
        $x = $code . "<$x>";
      }
    }
    DEB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231066	231246	
==>,
                              "i"
                            ],
                  "BODY" => "#line 592 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231970	232150	
==>,
                              "i"
                            ],
                  "BODY" => "#line 592 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	370804	371202	
==>RGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 434,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 353 \"src/ops/io.ops\"\n    PMC * const p <==
2	/Users/nnunley/parrot/lib/Test/More.pm	7379	7547	
==>ese:

    # Is the ultimate answer 42?
    is( ultimate_answer(), 42,          "Meaning of Life" );

    # $foo isn't empty
    isnt( $foo, '',     "Got some foo" );

ar <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2638	2771	
==>_linking  => 1,
            parrot_is_shared     => 1,

            sym_export => '__declspec(dllexport)',
            sym_import => ' <==
2	/Users/nnunley/parrot/config/init/hints/cygwin.pm	1168	1286	
==>_linking => 1,
        parrot_is_shared    => 1,
        sym_export => '__declspec(dllexport)',
        sym_import => ' <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	2155	2377	
==>UG_INIT()\n";
		debug();
	}

	
PARSE:
	1;
PARSE_NOFEED:
	if ($type[CURR] eq "STMT" or $type[CURR] eq "COMM") {
		$sourceline++;
		unless ($type[PREV] eq "STMT") {
			#print CODE "set .LINE, $sourceline\n";
			debug() if $de <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24950	25044	
==>EM, PRE, BITS
	};

	bless $closure, 'Text::Balanced::Extractor';
}

package Text::Balanced::Ext <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	5724	5986	
==>od ( @{$self->{"prods"}} )
	{
		push @subrules, $prod->leftmostsubrule();
	}

	return @subrules;
}

sub expected($)
{
	my $self = shift;
	return $self->{"expected"} if exists($self->{"expected"});
	my @expected = ();

	my $prod;
	foreach $prod ( @{$self->{"prods" <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	2450	2559	
==>efined $to_file) {
  $to_file = $from_file;
  $to_file =~ s/\..*$//;
  $to_file .= ".pasm";
}

open INPUT, "<$ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4561	4681	
==>gs};
        return $self->op('nop', [], %$self);
    } elsif (@{ $self->{args} } == 1 && 2 == keys %$self) {
        ret <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5698	5818	
==>gs};
        return $self->op('nop', [], %$self);
    } elsif (@{ $self->{args} } == 1 && 2 == keys %$self) {
        ret <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	8723	8832	
==>t_info->cur_op[i]]
END_C
}
else {
    print JITCPU <<'END_C';
#define CONST(i) (int *)(jit_info->cur_op[i] * s <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	33224	33334	
==>t helpful messages.
    my $test_results = $self->{Test_Results};
    if( @$test_results ) {
        # The plan <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	32150	32265	
==>dits $?
directly.  It should ONLY be called from inside an END block.  It
doesn't actually exit, that's your job.

= <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	1653	1806	
==>';

    $LIBPARROT = '/Users/nnunley/parrot/parrot.a';
}

# PMC2C Config
our $PMC2C = "$PERL $PATHQUOTE" . q[/Users/nnunley/parrot/tools/build/pmc2c.pl] . <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2321	2438	
==>value;";
}

sub output_print {
    my ($self, $what) = @_;
    $what = value($what);
    return ("print $what;");
}

s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2639	2754	
==>value";
}

sub output_print {
    my ($self, $what) = @_;
    $what = value($what);
    return ("print $what");
}

s <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	28386	28487	
==>ion of whether or not the test literally
printed 'ok' or 'not ok'.  This is for examining the result o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48510	48599	
==>\"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_BOUNDS_F <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49300	49389	
==>\"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_BOUNDS_F <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	683	806	
==>ANIFEST> file that F<Configure.pl> checks
and the manifest checks use.

=head2 Options

=over 4

=item C<buildprefix>

The b <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	31023	31186	
==>PT($n, $c, $cmt);
}
sub END_FINALLY
{
    my ($n, $c, $cmt) = @_;
    print <<EOC;
	throw P5 $cmt
EOC
}

sub SETUP_LOOP
{
    my ($n, $c, $cmt) = @_;
    my $targ = <==
2	/Users/nnunley/parrot/languages/regex/test.pl	3327	3453	
==>ir', emit_main => 1);

    print PIR <<"END";
# Regular expression test
# Generated by $0
# Pattern >>$pattern<<

END

    $dri <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1028	1127	
==>mpiler->invert_relop($op); # Invert the test, since we jump *unless* the condition is true
  }
  els <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5020	5120	
==>OKEN', 'VALUE', 'STACK', 'CHECK', 'DOTPOS' };

#DBG>	my($debug)=$$self{DEBUG};
#DBG>	my($dbgerror) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4777	4874	
==>OKEN', 'VALUE', 'STACK', 'CHECK', 'DOTPOS' };

#DBG>	my($debug)=$$self{DEBUG};
#DBG>	my($dbgerror) <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	9146	9267	
==>"Unable to read MANIFEST: $!\n";

    my %files_in_dir_nocase;
    my %files_in_dir_8dot3;
    my $line = 0;
    while (<F <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22092	22236	
==>. $self->_dump_curr_open() . ')'
        );
        DEBUG and print "Ignoring mistargetted =end $content\n";
        next;
      }
      
      u <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22421	22565	
==>. $self->_dump_curr_open() . ')'
        );
        DEBUG and print "Ignoring mistargetted =end $content\n";
        next;
      }
      
      u <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	5645	5766	
==>e Benchmarks With Pretty Output
if ( ! $cfg{use_times} && @program < 2 ) {
    print "WARNING: Switching percentage to tim <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	398	521	
==>ct::Block);


#
# compile()
#

sub compile
{
  my $self     = shift; # Required:
  my $compiler = shift; # Required

#  my $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	1492	1656	
==>,
    LABELS         => [ ],
    COMMENTS       => [ ],
    LAST_OP        => 'noop',
    INDENT         => 0,
    REG_COUNT      => {  'I' => 0, 'N' => 0, 'P' => 0, <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3711	3822	
==>c_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert X.c -> X.o for all X.c
    compile( <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3815	3926	
==>c_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert X.c -> X.o for all X.c
    compile( <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1459	1594	
==>arrot::Test::slurp_file( "$out_f" );

        @_ = ( $prog_output, $output, $desc );
        #goto &{"Test::More::$meth"};
        my $o <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1375	1510	
==>arrot::Test::slurp_file( "$out_f" );

        @_ = ( $prog_output, $output, $desc );
        #goto &{"Test::More::$meth"};
        my $o <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48729	48866	
==>d repetition specifier", 0,$line);
					_error("Incorrect specification of a repeated directive",
					       $line);
					_hint("Repeated <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2114	2232	
==>nt'} }
sub   end_over_block   { --$_[0]{'Indent'} }


# . . . . . Now the actual formatters:

sub end_head1       { $_[ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1682	1800	
==>nt'} }
sub   end_over_block   { --$_[0]{'Indent'} }


# . . . . . Now the actual formatters:

sub end_head1       { $_[ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	527271	527565	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "atan",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28749	28869	
==>ethod>.

=cut

sub implements
{
    my ($self, $meth) = @_;

    return 0 unless exists $self->{has_method}{$meth};
    m <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	50126	50225	
==>3.

Try to match an opening delimiter bracket. If found, call
C<extract_codeblock> recursively to ea <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	2613	2764	
==>re (comma-separated) I<hints>.

=cut

sub new
{
    my $class = shift;
    my ($code, $type, $name, $args, $argdirs, $labels, $flags) = @_;

    my $sel <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	1418	1521	
==>$self->new_item('', 'lib/Parrot/Docs/File.pm'),
		    $self->new_item('', 'lib/Parrot/Docs/Directory.pm' <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	20256	20380	
==>$startpos;
				return;
			}
			$ldel2 = $rdel2 = "\Q$1";
			$rdel2 =~ tr/[({</])}>/;
		}
		else
		{
			$ldel2 = $rdel2 = $lde <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20758	20885	
==>$self->require_assign;
      }

      my $constructing;
      my $right;

      if ($self->skip_new) {
        $constructing = 1 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3684	3854	
==>| '') =~ m/^([a-fA-F0-9]{4})$/s ? hex($1)
                                      # yes, tolerate even more hex!
    : '1033'
  );

  $new->head1_halfpoint_size(32);
  $new- <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	12797	12993	
==>.h
nearbyintf  math.h
nearbyintl  math.h
nextafter   math.h
nextafterf  math.h
nextafterl  math.h
nexttoward  math.h
nexttowardf math.h
nexttowardl math.h
perror      stdio.h
pow         math.h
pri <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	2557	2681	
==>eed an interactive step for this
    # user could deactivate vital PMCs like SArray
    # so there would be tests needed, tha <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3604	3703	
==>ove.
PRE_OP_${CURIC}_LAZY_MOVE_$register_num:
${STACK$register_num} = pop lazy_moves

# Decrement st <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3853	3973	
==>operty either!")
        unless $module_props{fnlib};

      $fnlib = $module_props{fnlib}->value;
    }

    my $fn = $p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6517	6637	
==>operty either!")
        unless $module_props{fnlib};

      $fnlib = $module_props{fnlib}->value;
    }

    my $fn = $p <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2304	2397	
==>t stack height.
dec stack_depth
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$register_nu <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3556	3649	
==>t stack height.
dec stack_depth
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$register_nu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321243	321567	
==>"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 376,
                  "ARGS" => [
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 129 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (INTVAL)(Parr <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5387	5592	
==>cat ${STOREREG}
${INS} = concat " = pop s\n"
PIR
	}

	return $pir;
}

sub pre_call() {
    my $self = shift;
    return <<'PIR';
# See if we've got a return or something to call.
if ${ARGCOUNT} == 0 goto PR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152481	152778	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 185, <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9322	9475	
==>nd	do {
#DBG>			print STDERR "**Entering Error recovery.\n";
#DBG>			++$dbgerror;
#DBG>		};

            ++$$nberror;

        };

			$$errstatus <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8903	9047	
==>nd	do {
#DBG>			print STDERR "**Entering Error recovery.\n";
#DBG>			++$dbgerror;
#DBG>		};

            ++$$nberror;

        };

			$$errstatus <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	214	332	
==>SION   = '0.01';
@ISA       = qw(Exporter);
@EXPORT_OK = qw(generate);

use Data::Dumper;
use Scheme::Builtins;

sub _g <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	11162	11291	
==>ypotf      math.h
hypotl      math.h
ilogb       math.h
ilogbf      math.h
ilogbl      math.h
imag        complex.h
isalnum     ct <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	23379	23483	
==>ut to me. We also keep track of the fact that ARG0 should
	# only exist inside this rule.
	my @args = spl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170809	171239	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 205,
                  "ARGS" => [
                              "p",
                              "nc",
                              " <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2999	3129	
==>'}} $out,
    #"\n"
  ;
  $self->{'Thispara'} = '';
  
  return;
}

# . . . . . . . . . . And then off by its lonesome:

sub end_Ve <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2533	2655	
==>'}} $out, "\n";
  $self->{'Thispara'} = '';
  
  return;
}

# . . . . . . . . . . And then off by its lonesome:

sub end_Ve <==
2	/Users/nnunley/parrot/config/init/hints/netbsd.pm	193	309	
==>ccflags !~ /-pthread/) {
        $ccflags .= ' -pthread';
    }
    $conf->data->set(ccflags => $ccflags);

    my $l <==
2	/Users/nnunley/parrot/config/init/hints/openbsd.pm	285	401	
==>ccflags !~ /-pthread/) {
        $ccflags .= ' -pthread';
    }
    $conf->data->set(ccflags => $ccflags);

    my $l <==
2	/Users/nnunley/parrot/config/auto/headers.pm	360	456	
==>::Configure::Step ':auto';
use Config;

$description = 'Probing for C headers';

@args = qw(minip <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556111	556530	
==>",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 638,
                  "ARGS" => [
                              "p",
                              "p",
                              "p"
                            ], <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19330	19434	
==>k();
      my $left = Jako::Construct::Expression::Value::Identifier->new($block, $token);

      $self-> <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	14195	14365	
==>te 25
		ACTIONS => {
			"?" => 44
		},
		DEFAULT => -19
	},
	{#State 26
		ACTIONS => {
			"(" => 10,
			'CHAR' => 4,
			"<" => 3,
			"[" => 14,
			'CODE' => 6,
			"." => 1 <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7489	7579	
==>g_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP0} = concat "0"
${PARAMS}[0] = ${STEMP0} <==
2	/Users/nnunley/parrot/config/auto/byteorder.pm	309	457	
==>e vars qw($description @args);

use Parrot::Configure::Step qw(:auto);
use base qw(Parrot::Configure::Step::Base);

$description = q{Computing native <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939827	940145	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1057,
                  " <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	4131	4378	
==>/) {
                    select INC;
                    eval $block;
                    select STDOUT;
                    die $@ if $@;
                }
            }

        }
        if ($in_def ne '') {
            die "Missing '&end_gen' i <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	65	258	
==>se Pod::Simple ();
BEGIN {@ISA = ('Pod::Simple')}

use strict;
use Carp ();

use Pod::Simple::PullParserStartToken;
use Pod::Simple::PullParserEndToken;
use Pod::Simple::PullParserTextToken;

BE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258581	259071	
==>" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 301,
                  "ARGS" => [
                              "i",
                              "p",
                              "p"
                            ],
                  "BODY" => <==
2	/Users/nnunley/parrot/config/inter/progs.pm	2452	2608	
==>s =~ s/-fno-strict-aliasing//g;
    $ccflags =~ s/-fnative-struct//g;
    $ccflags = integrate($ccflags, $conf->options->get('ccflags'));
    $ccflags = prom <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	533	636	
==>sub suffix
{
    return "_cg";
}

=item C<core_prefix()>

The core prefix is C<'cg_'>.

=cut

sub core_p <==
2	/Users/nnunley/parrot/lib/Test/More.pm	25803	25939	
==>vals => [ $this, $that ] }) );
    }
    else {			       		# both references
        local @Data_Stack = ();
        if( _deep_check($thi <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	22689	22889	
==>s), "\n" )
            : "tag $is<...>.\n";
        }
      }
      
      if(!defined $is) {
        $self->whine($start_line, "Deleting unknown formatting code $was<>");
        $is = $treelet->[$i][ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	465	587	
==>CONT', REDO => 'REDO', LAST => 'LAST' },
  'if'       => { PREFIX => "_I", NEXT => 'TEST', REDO => 'THEN', LAST => 'ELSE' } <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	486	608	
==>CONT', REDO => 'REDO', LAST => 'LAST' },
  'if'       => { PREFIX => "_I", NEXT => 'TEST', REDO => 'THEN', LAST => 'ELSE' } <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	29046	29160	
==>if($para_type =~ m/^=head\d$/s
         and ! $self->{'accept_heads_anywhere'}
         and @$curr_open
         an <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	6729	6866	
==>ers.

=cut

sub expected_tests {
    my $self = shift;
    my($max) = @_;

    if( @_ ) {
        die "Number of tests must be a postive i <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	2964	3074	
==>, '>', 'MANIFEST';
print $MANI '# $' . 'Id' . '$' . "\n";  # confuse SVN
print $MANI "#\n"; 
print $MANI '# gen <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	329	469	
==>mk_manifests.pl - Generate MANIFEST.* files for building RPMs

=head1 SYNOPSIS

    % perl tools/dev/mk_manifests.pl [options]

=head1 DESCRI <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	295	442	
==>tion::Parrot->new->write_html;

=head1 DESCRIPTION

This is the top-level section for the HTML documentation for Parrot.

=head2 Class Methods

=ove <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	20344	20461	
==>="\t\t# $opcode\t $rest";
	if ($rest =~ /to (\d+)/) {
	    $targ = "pc_$1";
	}
	$op = $op_map{$c};
    }
    elsif ($o <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	18839	19193	
==>gin' only takes one parameter, not several as in '=begin $content'"
        );
        DEBUG and print "Ignoring unintelligible =begin $content\n";
        next;
      }


      $para->[1]{'target'} = $content;  # without any ':'

      $content =~ s/^:!/!:/s;
      my $neg;  # whether this is a negation-match
      $neg = 1        if $content =~ s/^!// <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	408	531	
==>ned $Linearization_Limit;
 # headings/items longer than that won't get an <a name="...">

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/config/gen/config_pm.pm	1600	1993	
==>\%PConfig
# This file should be the last thing run during
# the make process, after Parrot is built.
END

    while (<IN>) {
        if (/<<HERE>>/) {
            my $k;
            for $k (sort { lc $a cmp lc $b || $a cmp $b } $conf->data->keys) {
                my $v = $conf->data->get($k);
                if (defined $v) {
                    $v =~ s/(["\\])/\\$1/g;
                    $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	350	439	
==>);
  return $new;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	349	438	
==>);
  return $new;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3957	4066	
==>nvar - <rx_pos> < $needed; # need $needed more chars";
    }
}

sub output_match {
    my ($self, $code, $fail <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4057	4160	
==>ushes) {
		$pir .= <<'PIR';
# Increment stack depth.
inc stack_depth

# Get type (so we can find registe <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2473	2576	
==>ushes) {
		$pir .= <<'PIR';
# Increment stack depth.
inc stack_depth

# Get type (so we can find registe <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	5537	5698	
==>? 'TclInt' : 'TclString';
            my $quote   = $arg->{type} eq 'int' ? ''       : "'";
            my $default = $arg->{default};
            
            $c <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	1141	1344	
==>et_repr',
    __str__ => '__get_string',
    __cmp__ => 41,		# MMD_CMP
);

# the new way type system
my %type_map = (
    bool  => 'Py_bool',
    complex  => 'Py_complex',
    float => 'Py_float',
    int <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650514	650659	
==>"i"
                            ],
                  "BODY" => "#line 247 \"src/ops/pmc.ops\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vta <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	313345	313477	
==>text_info(interpreter, CONTEXT(interpreter->ctx), &info);\n  {{\@1}} = string_from_cstring(interpreter, info.file, 0);\n  {{+=2}};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	11973	12128	
==>ms> may be either a scalar with the name of a single program or
an array ref of programs to search the current C<PATH> for.  The first matching
program name <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216927	217021	
==>{{\@1}}->vtable->get_number(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217867	217961	
==>{{\@1}}->vtable->get_number(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	15853	15980	
==>eal_output, $expected, $desc );
            $builder->diag("'$cmd' failed with exit code $exit_code")
                  if $exit <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	18404	18531	
==>eal_output, $expected, $desc );
            $builder->diag("'$cmd' failed with exit code $exit_code")
                  if $exit <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745593	746023	
==>ine",
                  "CODE" => 839,
                  "ARGS" => [
                              "p",
                              "pc"
                            ],
                  "BODY" => "#line 184 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	1691	1799	
==>);
use vars qw( %usertypes );
use vars qw( $funcname );
use vars qw( $branchseq @selects $sourceline );
sub p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	708	804	
==>Construct::Expression::Value::Identifier');
  confess "Props are not hash!" if defined $props and <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	787	883	
==>Construct::Expression::Value::Identifier');
  confess "Props are not hash!" if defined $props and <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215709	215986	
==>"function",
                  "CODE" => 253,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 455 \"src/ops/cmp.ops\"\n  if ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	175221	175539	
==>{\@1}}, {{\@2}}, MMD_NUMCMP) != 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/config/auto/va_ptr.pm	682	924	
==>un() !~ /^ok/) {
        eval { cc_build('-DVA_TYPE_PPC'); };
        if ($@ || cc_run() !~ /^ok/) {
            die "Unknown va_ptr type";
        }
        $va_type = 'ppc';
    } else {
        $va_type = 'x86';
    }
    cc_clean();
    $s <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	52414	52511	
==>ntexts
C<extract_multiple> starts at the current C<pos> of the string, and
sets that C<pos> approp <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	751	866	
==>block,
    IDENT => $ident
  }, $class;

  $block->push_content($self);

  return $self;
}

sub ident  { return shif <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	751	866	
==>block,
    IDENT => $ident
  }, $class;

  $block->push_content($self);

  return $self;
}

sub ident  { return shif <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6871	6965	
==>$, 2, 8)
print left$(t$, 5)
print right$(t$, 5)
' instr
s1$="The longer string"
found$="longer" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18600	18694	
==>$, 2, 8)
print left$(t$, 5)
print right$(t$, 5)
' instr
s1$="The longer string"
found$="longer" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20246	20364	
==>arker=$th{$type};
			} else {
				$marker='USER';
			}
			push(@types, [ $name, $type, $marker ]);
			feedme();
			if ( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2266	2381	
==>ype = $arg_sym->type; 
    }
    else {
      $actual_arg_type = $args[$i]->type;
    }

    $self->INTERNAL_ERROR(" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1966	2081	
==>ype = $arg_sym->type; 
    }
    else {
      $actual_arg_type = $args[$i]->type;
    }

    $self->INTERNAL_ERROR(" <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	601	801	
==>parrot=s" => \$parrot_path,
	"srm=s" => \$srm,
	"monolib=s" => \$mono_lib_path
);

# Get Parrot configuration.
$parrot_path ||= "../..";
$parrot_path =~ s|/|\\|g if $^O =~ /win32/i;
$srm ||= "O <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	12067	12308	
==>([])/gc;
		last;
	}
	
	my $endpos = pos($$textref);
	return ($startpos, $varpos-$startpos,
		$varpos,   $endpos-$varpos,
		$endpos,   length($$textref)-$endpos
		);
}

sub extract_codeblock (;$$$$$)
{
	my $textref = defined $_[0] ? \$_[0] : \ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	6877	7007	
==>ith that for now. (It'll rarely
# have a valid previous value anyway; I think that'll only come in for
# situations like (R)*, whic <==
2	/Users/nnunley/parrot/config/gen/platform.pm	179	316	
==>es

=head1 DESCRIPTION

Moves the various platform-specific files into place.

=cut

package gen::platform;

use strict;
use warnings;

us <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1105	1193	
==>rrot::Docs::Section::Tests;
use Parrot::Docs::Section::EditorPlugins;

=item C<new()>

Re <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14111	14206	
==>n,1]);
    $self->_add_inst ('', 'branch', ["DONE_$label"]);
    $self->_add_inst ("FAIL_$label" <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16381	16472	
==>n,1]);
  $self->_add_inst ('', 'branch', ["DONE_$label"]);
  $self->_add_inst ("FAIL_$label" <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	2524	2651	
==>$tagname eq 'L' ) 
    {
        $self->process_link_start_token($token);
    }
    elsif ( $tagname eq 'F' )
    {
        $sel <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	59415	59534	
==>s than escape chars are specified, the last escape char
is used for the remaining delimiters.
If no escape char is speci <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3191	3385	
==>ix_X_codes(1);
  $new->nbsp_for_S(1);
  $new->accept_targets( 'rtf', 'RTF' );

  $new->{'Tagmap'} = {%Tagmap};

  $new->accept_codes(@_to_accept);
  $new->accept_codes('VerbatimFormatted');
  DEB <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	9319	9509	
==>sh}$ops > ops${slash}$pod\n";
                print MAKEFILE "\t\$(CHMOD) 0644 ..${slash}ops${slash}$pod\n\n";
            }
        }

    } else {
        print "\nNo Perldoc, not generatin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104035	1104120	
==>\t}\n\tif (type <= 0)\n\t\treal_exception(interpreter, NULL, NO_CLASS,\n\t\t\t\t\"Clas <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105250	1105335	
==>\t}\n\tif (type <= 0)\n\t\treal_exception(interpreter, NULL, NO_CLASS,\n\t\t\t\t\"Clas <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	396	516	
==>lock::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected 5 args!" unless @_ == 5;

  my ($block, $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	396	516	
==>lock::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected 5 args!" unless @_ == 5;

  my ($block, $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2377	2487	
==>utes => { kind => $self->kind } });
  }

  if ($self->op) {
    $handler->start_element({ Name => 'block', Attr <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2254	2364	
==>utes => { kind => $self->kind } });
  }

  if ($self->op) {
    $handler->start_element({ Name => 'block', Attr <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23164	23290	
==>e);

        $self->require_close_paren;
      }

      $self->require_semicolon;
      
      my $goto = Jako::Construct::Stat <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4329	4433	
==>n instruction to push the value in the
		# load register onto to the stack.
		$pir .= <<'PIR'
${INS} = co <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	1615	1735	
==>move quote marks!
		emit("STRING");
		fetch;
		goto MAIN;
	}
	if ( ($cur eq "'") or 
	     ($cur=~/[Rr]/ and $next=~/[Ee] <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1384	1480	
==>r C<ADDRESS($address)>. Called by C<goto_address()>.

=cut

sub expr_address
{
    my ($self, $ad <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	13336	13509	
==>C<EE<lt>I<name>E<gt>>) like "eacute" or "sol"
to the Unicode value that each stands for.  For example,
C<$Name2character_number{'eacute'}> is 201, and
C<$Name2character_numbe <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	4499	4643	
==>def, $1);
      $text = $2;
      next;
    }

    #
    # (Prefix) Ops:
    #

    if ($text =~ m{^(new)(?!\w)(.*)$}) {
      push @tokens, Jako <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64790	65015	
==>er->code;\n  runops(new_interp, REL_PC + {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65741	65966	
==>er->code;\n  runops(new_interp, REL_PC + {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Test/More.pm	27459	27586	
==>}

    return '';
}


=head2 Discouraged comparison functions

The use of the following functions is discouraged as they are not <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	1788	1905	
==>n on various platforms.', 'PLATFORMS'),
            $self->new_item('Contains the version number of the distribution.' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	486687	486968	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ceil",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	487438	487719	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ceil",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
2	/Users/nnunley/parrot/config/auto/snprintf.pm	792	927	
==>if ($res =~ /^C99 snprintf/) {
        $conf->data->set(HAS_C99_SNPRINTF => 1);
    } elsif ($res =~ /^old snprintf/) {
        $conf->d <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	34534	34653	
==>\&_op_zero_p,
  'positive?'        => \&_op_positive_p,
  'negative?'        => \&_op_negative_p,
  'odd?'             = <==
2	/Users/nnunley/parrot/examples/benchmarks/stress.pl	699	791	
==>asm>, 
F<examples/benchmarks/stress1.pl>, 
F<examples/benchmarks/stress2.pasm>, 
F<examples/b <==
2	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	643	735	
==>asm>, 
F<examples/benchmarks/stress1.pl>, 
F<examples/benchmarks/stress2.pasm>, 
F<examples/b <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4197	4310	
==>TVAL *)cur_opcode[%ld])",
        'sc' => "((STRING *)cur_opcode[%ld])",
        'pc' => "((PMC *)cur_opcode[%ld]) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955857	955944	
==>/ops/string.ops\"\n  {{\@1}} = string_copy(interpreter, Parrot_encoding_name(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956669	956756	
==>/ops/string.ops\"\n  {{\@1}} = string_copy(interpreter, Parrot_encoding_name(interpreter <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3712	3811	
==>ht.
PRE_OP_${CURIC}_CONT_$register_num:
dec stack_depth
PIR
		$pir =~ s/\$register_num/$register_num <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	1116	1218	
==>tionally specify a different destination path:

    source_path <whitespace> [package]meta1,meta2,... < <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	494026	494385	
==>"
                               ],
                  "TYPE" => "function",
                  "CODE" => 567,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 590 \"src/ops/math.ops\"\n  {{\@1}} = intval_mod({{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936827	937067	
==>line",
                  "CODE" => 1053,
                  "ARGS" => [
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 455 \"src/ops/string.ops\"\n  {{\@ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1190	1326	
==>s->[-1]->isa('ToBoolOp') ) {
        my $tobool = pop @{$opcodes};
        my $new    = pop @{$opcodes};
        my $loc    = pop @{$o <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	1307	1481	
==>al', 'N', $1);
      $text = $2;
      next;
    }

    #
    # Integer literals:
    #

    if ($text =~ m{^( 0 | (-?[1-9][0-9]*))($|\W.*$)}x) {
      push @tokens, Jako::Tok <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355165	355311	
==>TABLE_get_string(interpreter, p));\n  if (s) {\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	29749	29886	
==>foreach(keys %functions) {
				print FUNC qq{\teq S0, "$_", UF_}, english_func($_), qq{\n};
			}
		}
		print FUNC<<FUNCEND;
	goto UF_DISPA <==
2	/Users/nnunley/parrot/lib/Test/More.pm	17643	17764	
==>-Exporter based modules.
        eval <<USE;
package $pack;
use $module $imports[0];
USE
    }
    else {
        eval <<U <==
2	/Users/nnunley/parrot/config/gen/PodText.pm	878	1013	
==>$result @args);

use base qw(Parrot::Configure::Step::Base);

use Pod::Text;

$description = 'Generating plain text docs from Pod';

@ar <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	9650	9794	
==>rtl      complex.h
ctan        complex.h
ctanf       complex.h
ctanh       complex.h
ctanhf      complex.h
ctanhl      complex.h
ctanl       comp <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	5062	5180	
==>necessary.
                $asm =~ s/\)->u\.(\w+)/)/g;
                $asm =~ s/CONST\((\d)\)\s*([><=!]=?)\s*CONST\((\ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	764	926	
==>s
    unless ($options{'no-tree-optimize'}) {
        my $opt1 = Regex::TreeOptimize->new();
        $tree = $opt1->optimize_tree($tree, $ctx);
    }

    my $rewr <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	6686	6784	
==>brack =~ tr/[({</])}>/;
	return $brack;
}

my $XMLNAME = q{[a-zA-Z_:][a-zA-Z0-9_:.-]*};

sub extrac <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3442	3553	
==>lib}) {
      $fnlib = $props{fnlib}->value; # TODO: We should make sure its a string, somewhere.
    }
    else <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6106	6217	
==>lib}) {
      $fnlib = $props{fnlib}->value; # TODO: We should make sure its a string, somewhere.
    }
    else <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	13856	13984	
==>mt
EOC
    }
}

sub YIELD_VALUE
{
    my ($n, $c, $cmt) = @_;
    my $tos = promote(pop @stack);
    print <<EOC;
    	.pcc_begin <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	2234	2367	
==>tack of active blocks. We keep a block on the
##                          stack for the file scope.
##
## NOTE: Do NOT access the bloc <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	15892	16052	
==>eq 'ParrotClass' ?
                'delegate' :
                'default';
        }
    }
}


=head2 add_defaulted($class_structure, $vtable);

Add methods to t <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4474	4596	
==>: "";
    my @ops =
      (
       "ord <rx_tmp>, <rx_input>, <rx_pos> # tmp = INPUT[pos]",
       "ne <rx_tmp>, $code, ".$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053016	1053303	
==>E" => 1176,
                  "ARGS" => [
                              "p",
                              "sc",
                              "sc"
                            ],
                  "BODY" => "#line 172 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tintern <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20027	20150	
==>e {
    my ($self, $op, $R, $min, $max, $lastback) = @_;

    my ($rfail, $local_back, $back, $check, $next) =
      map { $ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	28871	28998	
==>when current_test() is changed.
In these cases, Test::Builder doesn't know the result of the test, so
it's type is 'unkown'.  Th <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	532478	532745	
==>nline",
                  "CODE" => 615,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 877 \"src/ops/math.ops\"\n  {{\@1}} = exp((FLOATVAL){{\@2}});\ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4513	4624	
==>for j = 0 to 1
print i; j;
if i and j then a$="True  " else a$="False "
if i or  j then b$="True  " else b$="Fal <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17584	17695	
==>for j = 0 to 1
print i; j;
if i and j then a$="True  " else a$="False "
if i or  j then b$="True  " else b$="Fal <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060004	1060104	
==>line 208 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Trie <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060909	1061009	
==>line 208 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Trie <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	411	639	
==>ary with just
one PMC, which is the case used by the Parrot core. See L<Parrot::Pmc2c>

=head2 Instance Methods

=over 4

=cut

package Parrot::Pmc2c::Library;

use strict;
use warnings;

use Parrot::Pmc2c qw(dynext_load_code don <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035393	1035492	
==>ot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@2}};\n    P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036557	1036656	
==>ot_context_t * const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@2}};\n    P <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1739	1841	
==>en->type

This returns the type of the token.  This will be either the string
"start", the string "text <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1349	1509	
==>self = shift;

    if (@_)
    {
        $self->{PC} = shift;
    }
    else
    {
        return $self->{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Se <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	958	1118	
==>self = shift;

    if (@_)
    {
        $self->{PC} = shift;
    }
    else
    {
        return $self->{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Se <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	5569	5677	
==>ksum can also be calculated in OO style:

    use Digest::MD5;

    $md5 = Digest::MD5->new;
    $md5->add('f <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	38813	39002	
==>last;
        }
      }

      # Turn L<"Foo Bar"> into L</Foo Bar>
      if(!$section_name and @ell_content
         and !ref($ell_content[0]) and !ref($ell_content[-1])
         and $ell_c <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4641	4779	
==>} == 1 && 2 == keys %$self) {
        return $self->{args}->[0];
    } else {
        return $self;
    }
}

sub minlen {
    my $op = shif <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5778	5916	
==>} == 1 && 2 == keys %$self) {
        return $self->{args}->[0];
    } else {
        return $self;
    }
}

sub minlen {
    my $op = shif <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	753	860	
==>rguments> should be an array reference containing additional arguments (as
you might find on the command lin <==
2	/Users/nnunley/parrot/config/inter/types.pm	1030	1186	
==>What's your native opcode type?",                 $opcode);
        print "\n";
    }

    $conf->data->set(
        iv       => $intval,
        nv       => <==
2	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1599	1770	
==>kage FindLexOp;
use base qw(Lua::opcode);

package StoreLexOp;
use base qw(Lua::opcode);

package NewOp;
use base qw(Lua::opcode);

package NewClosureOp;
use base <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	7071	7191	
==>al/lib  -licuuc -licudata -lpthread -lm',
             'inc' => 'include/parrot',
             'include_dir' => '/opt/loc <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	49120	49241	
==>itting the first argument (input text) means process C<$_> instead.
Omitting the second argument (delimiter brackets) indi <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5613	5726	
==>@_;

    if (needs_build("$stem$LOAD_EXT", "$stem$O")) {
        run(partial_link_cmd("$stem$LOAD_EXT", $libs, [ " <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	22585	22758	
==>tor')
					{ @bits = $field = $func->extract($$textref) }
				elsif( $$textref =~ m/\G$func/gc )
					{ @bits = $field = defined($1) ? $1 : $& }
				$pref ||= "";
				if (def <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	1190	1325	
==>$numtype);
		goto MAIN;
	}
NOTNUM:
	#if ($cur eq "-" and $next =~ /[\d\.]/) {
	#	append;
	#	fetch;
	#	goto NUMCONST;
	#}
	if ($cur eq '" <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4582	4694	
==>self->op('nop', [], %$self);
    } elsif (@{ $self->{args} } == 1 && 2 == keys %$self) {
        return $self->{a <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5719	5831	
==>self->op('nop', [], %$self);
    } elsif (@{ $self->{args} } == 1 && 2 == keys %$self) {
        return $self->{a <==
2	/Users/nnunley/parrot/lib/Test/More.pm	31509	31682	
==>%$a2 ? $a1 : $a2;
    foreach my $k (keys %$bigger) {
        my $e1 = exists $a1->{$k} ? $a1->{$k} : $DNE;
        my $e2 = exists $a2->{$k} ? $a2->{$k} : $DNE;

        pus <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2627	2750	
==>{
	my($self)=shift;

	${$$self{ERRST}} != 0;
}

sub YYAbort {
	my($self)=shift;

	${$$self{CHECK}}='ABORT';
    un <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2512	2625	
==>{
	my($self)=shift;

	${$$self{ERRST}} != 0;
}

sub YYAbort {
	my($self)=shift;

	${$$self{CHECK}}='ABORT';
    un <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2581	2681	
==>ft;
  my $html = $CGI->param("smoke");

  my $id = md5_hex $html;
  if(glob "parrot-smoke-*-$id.html" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	690526	690840	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "thaw",
                  "FLAGS" => "",
                  "AR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691282	691596	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "thaw",
                  "FLAGS" => "",
                  "AR <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	35774	35889	
==>,2; # Knock off the 'L' and {} bits

      DEBUG > 3 and print " Ell content to start: ",
       pretty(@ell_content <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3361	3472	
==>a->get('linkflags');
            $linkflags =~ s/-opt:\S+//;
            $conf->data->set(linkflags => $linkflag <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4865	4976	
==>a->get('linkflags');
            $linkflags =~ s/-opt:\S+//;
            $conf->data->set(linkflags => $linkflag <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	2833	2977	
==>eft  = $left->compile($compiler);
    $right = $right->compile($compiler);

    $compiler->emit("  $cond $left $op $right goto $label");
  }

  r <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	3090	3221	
==>eft  = $left->compile($compiler);
  $right = $right->compile($compiler);

  $compiler->emit("  $dest = $left $op $right");

  return <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2698	2797	
==>ompiler->temp_reg($formal_arg_type);
      my $value = $args[$i]->compile($compiler);
      $compile <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2398	2497	
==>ompiler->temp_reg($formal_arg_type);
      my $value = $args[$i]->compile($compiler);
      $compile <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	17631	17765	
==>ndpos-$modpos,	# MODIFIERS
			$endpos, 	$textlen-$endpos,	# REMAINDER
		       );
	}

	unless ($$textref =~ m{\G((?:m|s|qq|qx|qw|q|qr|t <==
2	/Users/nnunley/parrot/config/inter/encoding.pm	1514	1660	
==>uild list of libraries for link line in Makefile
    my $slash = $conf->data->get('slash');
    $TEMP_encoding_o =~ s/^| / src${slash}encodings${sl <==
2	/Users/nnunley/parrot/config/inter/charset.pm	1497	1601	
==>uild list of libraries for link line in Makefile
    my $slash = $conf->data->get('slash');
    $TEMP_cha <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561774	561872	
==>"#line 167 \"src/ops/object.ops\"\n  opcode_t *next = {{^+4}};\n  {{\@1}} = VTABLE_find_method(inte <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562858	562956	
==>"#line 167 \"src/ops/object.ops\"\n  opcode_t *next = {{^+4}};\n  {{\@1}} = VTABLE_find_method(inte <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	17070	17182	
==>ump_pmc {
    my ($include, @files) = @_;
    # help these dumb 'shells' that are no shells
    @files = glob $fi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79420	79535	
==>ss. We just need to build\n         a PMC with it so we can get and set the value */\n      {{\@1}} = pmc_new(interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80941	81056	
==>ss. We just need to build\n         a PMC with it so we can get and set the value */\n      {{\@1}} = pmc_new(interp <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	50103	50200	
==>arker", $aftererror,$line);
				$item = new Parse::RecDescent::Directive(
					'Text::Balanced::ex <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	50450	50547	
==>arker", $aftererror,$line);
				$item = new Parse::RecDescent::Directive(
					'Text::Balanced::ex <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	8496	8691	
==>s; $i++) {
    if ($i && $i % $CORE_SPLIT == 0 && $trans->can("run_core_split")) {
        print SOURCE $trans->run_core_split($base);
    }
    print SOURCE $op_funcs[$i];
}

if ($trans->can("run <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	97966	98298	
==>ine",
                  "CODE" => 121,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 91 \"src/ops/bit.ops\"\n  {{\@1}} = ~ {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9024	9157	
==>xport$extern$ret${newl}Parrot_${classname}_$meth(Interp*$interp, PMC*$pmc$args)$semi
EOC
}

=item C<includes()>

Returns the C C<#incl <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	21429	21654	
==>/.def/;
        $fh = open_file( ">", $file );
        print $fh "LIBRARY $pmcname\nEXPORTS\n";
        print $fh "\t$_\n" foreach @exports;
        close $fh;
    }

    # Generate .def file for groups.
    for my $group (key <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	941931	942181	
==>GS" => [
                              "p",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 486 \"src/ops/string.ops\"\n    {{\@1}} = string_split(interpreter, {{\ <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	11550	11653	
==>e OP_HASH_SIZE $hash_size

/* we could calculate a prime somewhat bigger than
 * n of fullnames + n of n <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4509	4610	
==>r)";
}

=item C<ops_addr_decl($base_suffix)>

Returns the C code for the ops address declaration.

=cu <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	3565	3707	
==>pcode, $arg, $rest) = ($1, $2, $3, $4, $5);
	$opcode =~ s/\+/_plus_/;
	## print STDERR "Op: '$opcode'\n";
	if ($line) {
	    $source = $source[ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	4029	4217	
==>ef,
			     "Did not find a suitable bracket in delimiter: \"$_[1]\"",
			     0;
	}
	my $posbug = pos;
	$ldel = join('|', map { quotemeta $_ } split('', $ldel));
	$rdel = join('|', map { q <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	524	633	
==>urns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new(
		'Big Number Arithmetic' <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9201	9304	
==>= concat ${STOREREG}
${INS} = concat " = "
${INS} = concat ${STEMP0}
${INS} = concat "\n"

# Decrement s <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6719	6822	
==>= concat ${STOREREG}
${INS} = concat " = "
${INS} = concat ${STEMP0}
${INS} = concat "\n"

# Decrement s <==
2	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	1326	1450	
==>@parrot_version) {
        die "Illegal version component: '$_' in VERSION file!" unless m/^[1-9]*\w*$/;
    }

    if (@parr <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	116	221	
==>bl' );

my ($funcs, $protos) = vtbl_embed( $vtable );

my $header = <<'EOH';
/* ex: set ro:
** !!!!!!!   D <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5170	5324	
==>the address table.

=cut

sub run_core_after_addr_table
{
    my ($self, $bs) = @_;

    return <<END_C;

    if (!${bs}ops_addr)
	${bs}ops_addr = l_ops_ad <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4255	4370	
==>fpoint_size',
 'head4_halfpoint_size',
 'codeblock_halfpoint_size',
 'header_halfpoint_size',
 'normal_halfpoint_siz <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	279198	279694	
==>E" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 325,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	30490	30619	
==>}

sub BINARY_SUBSCR
{
    my ($n, $c, $cmt) = @_;
    my $w = pop @stack;
    my $v = pop @stack;
    my $x = temp('P');
    my $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33566	33685	
==>sh to @$para
            if($paras->[0][0] eq '~Para') {
              DEBUG and print "Assimilating following ~Para con <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35379	35498	
==>sh to @$para
            if($paras->[0][0] eq '~Para') {
              DEBUG and print "Assimilating following ~Para con <==
2	/Users/nnunley/parrot/config/auto/isreg.pm	218	339	
==>as a working C<S_ISREG>.

=cut

package auto::isreg;

use strict;
use vars qw($description @args);

use base qw(Parrot::Co <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24828	24938	
==>urn _succeed wantarray, $textref,
				$match[2], $match[3]+$match[5]+$match[7],	# MATCH
				@match[8..9,0..1,2. <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7660	7768	
==>urn _succeed wantarray, $textref,
			$match[2], $match[3]+$match[5]+$match[7],	# MATCH
			@match[8..9,0..1,2. <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	42528	42632	
==>specific tags 
is a good idea if those functions are going to be called more than once, since
their perfo <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33016	33147	
==>my $pre_store = $srm->pre_store($dest_reg);
		$pir .= "### pre_store\n";
		$pir .= sub_meta($pre_store, $mv, "pre_store for rule $ru <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	935340	935575	
==>" => "inline",
                  "CODE" => 1051,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 440 \"src/ops/string.ops\"\n  string_downcase_inplace(int <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2244	2344	
==>cur_opcode[%ld]"
);

=item C<access_arg($type, $value, $op)>

Returns the C code for the specified op <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16324	16520	
==>A$(I-1)=A$(I)
         A$(I)=B$
         ' SWAP A$(I - 1), A$(I)
      END IF
   NEXT
WEND
 ' CLS
FOR I = 1 TO 4
   PRINT A$(I)
NEXT I
END

' Do/While/Loop stuff.  All 5
a=0
do while a<5
	a=a+1
loo <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6671	6811	
==>A$(I-1)=A$(I)
         A$(I)=B$
         ' SWAP A$(I - 1), A$(I)
      END IF
   NEXT
WEND
 ' CLS
FOR I = 1 TO 4
   PRINT A$(I)
NEXT I
END

' <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17669	17813	
==>e 46
		DEFAULT => -93
	},
	{#State 47
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			". <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	22875	23009	
==>|gen-c"       => \$action{gen_c},
        "tree"          => \$action{tree},

        "no-body"       => \$opt{nobody},
        "no-lin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	269043	269402	
==>],
                  "TYPE" => "inline",
                  "CODE" => 313,
                  "ARGS" => [
                              "i",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 835 \"src/ops/cmp.ops\"\n  {{\@1}} = (mmd_dispatch_i_pp(interpreter, {{\@2}}, {{\@3}}, <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	874	977	
==>ko::Construct::Expression::Value');
  confess "Op is not scalar!" if ref $op;
  confess "Right is not Va <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	886	989	
==>ko::Construct::Expression::Value');
  confess "Op is not scalar!" if ref $op;
  confess "Right is not Va <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	1456	1612	
==>rx_pushindex P0";
}

sub output_popindex {
    my ($self, $fallback) = @_;
    die "Must always have fallback defined!" if ! $fallback;
    return "rx_popind <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	7684	7786	
==>irectory.

=cut

sub directory_with_name
{
    my $self = shift;
    my $path = $self->path_for_directo <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	18032	18145	
==>f->{Curr_Test}++;

    $self->{Test_Results}[$self->{Curr_Test}-1] = &share({
        'ok'      => 1,
        actu <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	18897	19010	
==>f->{Curr_Test}++;

    $self->{Test_Results}[$self->{Curr_Test}-1] = &share({
        'ok'      => 1,
        actu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	310739	310936	
==>" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "debug_print",
                  "FLAGS" => ":base_debug",
                  " <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	897	1000	
==>label($arg);
    }
    return @indices;
}

=item method combineLabels(label1, label2, ...)

Creates a ne <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	10279	10455	
==>f each element is
prefixed with the class name (see I<Perl Cookbook>, Recipe 13.12).

A function named C<new> must not be explicitly defined in a class
created by C<struct>.

Th <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	15413	15510	
==>nction can be redefined in order to provide
additional checking of values, etc.  Here, we want the <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops.pm	96	209	
==>r = ++$MARKERS{$name};
    $number = '' if ($number == 1) && ($name ne '');
    return bless([ 'label', "\@$name$n <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2728	2841	
==>r = ++$MARKERS{$name};
    $number = '' if ($number == 1) && ($name ne '');
    return bless([ 'label', "\@$name$n <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	15110	15279	
==>3
		}
	},
	{#State 34
		DEFAULT => -27
	},
	{#State 35
		DEFAULT => -24
	},
	{#State 36
		ACTIONS => {
			"^" => 9,
			"(" => 10,
			'CHAR' => 4,
			"<" => 3,
			"[" => 1 <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	12747	12863	
==>IZE;
    p->info = info;
    p->next = hop[hidx];
    hop[hidx] = p;
}
static int get_op(const char * name, int full) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	513339	513671	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  " <==
2	/Users/nnunley/parrot/lib/Test/More.pm	21202	21338	
==>ts are in the block"
          unless $Test->has_plan eq 'no_plan';
        $how_many = 1;
    }

    for( 1..$how_many ) {
        $Test <==
2	/Users/nnunley/parrot/lib/Test/More.pm	23632	23768	
==>ts are in the block"
          unless $Test->has_plan eq 'no_plan';
        $how_many = 1;
    }

    for( 1..$how_many ) {
        $Test <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1707	1807	
==>arrot = File::Spec->curdir()
    if $path_to_parrot eq '';

my $parrot = File::Spec->catfile(
    $pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432450	432540	
==>\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433465	433555	
==>\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434479	434573	
==>\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435494	435588	
==>\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436508	436598	
==>\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437523	437613	
==>\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	10570	10686	
==>? \$_[0] : \$_;
	return ("","","") unless defined $$textref;
	my $pre  = defined $_[1] ? $_[1] : '\s*';

	my @match = <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	946	1075	
==>smx;

sub get_formatted {
    my ($self) = shift;

    my $level    = 0;
    my $verbatim = 0;

    # Step one - indent, and add i <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	39156	39347	
==>or any reason I can see.
        # And precooked paragraphs already have a treelet.
        
      } elsif($para_type eq 'Verbatim') {
        DEBUG and print " giving verbatim treatment...\n" <==
2	/Users/nnunley/parrot/lib/Parrot/Revision.pm	582	724	
==>sion_h.pl rev 859
    if (-r $svn_entries) {
        open my $FH, '<', $svn_entries or die $!;
        while (<$FH>) {
            /^ *committe <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	5663	5764	
==>ons\n};
		} elsif ($branch eq "goto") {
			push @{$code{$seg}->{code}}, qq{\tgoto $labels{$jumps}\t# $ <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	7953	8221	
==>->src.n);
    Parrot_fetch_arg_nci(interpreter, st);

    return UVal_str(st->val);
}

static PMC*
get_nci_P(Interp *interpreter, struct call_state *st, int n)
{
    /*
     * exessive args are passed as NULL
     * used by e.g. MMD infix like __add
     */
    if (n < <==
2	/Users/nnunley/parrot/languages/pugs/t/pmc.pm	530	800	
==>if $I0 goto ok
    print "not "
ok:
    print "ok\n"
.end
CODE
ok
OUTPUT

main::pir_output_is(<< "CODE", << "OUTPUT", "check sanity for creation");
.HLL "Perl6", "pugs_group"
.sub _main
    .local pmc pmc1
    .local string typ
    pmc1 = new .$type
    typ = typeof pmc1 <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	23802	23991	
==>esult' => $result,
        'arg1'   => $expr1->[0],
    );
    my $lbl2 = new_label($parser);
    push @opcodes, new BranchOp( $parser,
        'result' => $lbl2,
    );
    push @opc <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	12231	12388	
==>gb        math.h
logbf       math.h
logbl       math.h
logf        math.h
logl        math.h
longjmp     setjmp.h
lrint       math.h
lrintf      math.h
lrintl <==
2	/Users/nnunley/parrot/config/inter/shlibs.pm	703	926	
==>escription = 'Determining flags for building shared libraries';

@args = qw(ask verbose cc_shared);

sub runstep
{
    my ($self, $conf) = @_;

    my $cc_shared = $conf->options->get('cc_shared');
    $cc_shared = integrate <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1036	1179	
==>e($compiler);
  
  $compiler->emit("  dec $ident");
  
  if (($self->ident->kind eq 'var') and ($self->ident->scope eq 'global')) {
    my $pmc_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	268490	268736	
==>rc/ops/cmp.ops\"\n    {{\@1}} = !VTABLE_get_bool(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45219	45311	
==>= '\G\s*<perl_variable>';
my $NOCHECKMK		= '\G\s*<nocheck>';
my $AUTOTREEMK		= '\G\s*<autotre <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1561	1701	
==>t;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = $op->{op} $op->{ar <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2221	2361	
==>t;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = $op->{op} $op->{ar <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4106	4230	
==>stination";
    my $dest = $1;

	my $core_suffix;
    foreach $core_suffix (values %cores) {
		foreach (@oplibs) {
			my $src <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	2587	2730	
==>elsif ($line eq "" && (!$cur_method || $cur_method->{'unimplemented'})) {
            # Do nothing.

        # Have we got a non-blank line when <==
2	/Users/nnunley/parrot/config/auto/signal.pm	872	984	
==>g/auto/signal/test_1.in');
    eval { cc_build(); };
    unless ($@ || cc_run() !~ /ok/) {
        $conf->data->s <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	17814	17919	
==>code eq $result, $false, AFTERDO_$docounter";
		} else {
			$_="@code ne $result, $false, AFTERDO_$docount <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	2797	2932	
==>$tagname eq 'item-text' or $tagname =~ m/^head\d$/s) 
    {
        $self->process_item_text_or_head_start_token($token);
    } 
    els <==
2	/Users/nnunley/parrot/config/auto/gc.pm	1690	1809	
==>?$/) {
        $conf->data->set(
            TEMP_gc_c => <<"EOF",
\$(SRC_DIR)/$gc\$(O):	\$(GENERAL_H_FILES) \$(SRC_DIR) <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5993	6110	
==>and	print STDERR "Need token. Got ".&$ShowCurToken."\n";
			};

            $act=   exists($$actions{ACTIONS}{$$tok <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5708	5822	
==>and	print STDERR "Need token. Got ".&$ShowCurToken."\n";
			};

            $act=   exists($$actions{ACTIONS}{$$tok <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	12983	13080	
==>is
assigned to the hash element.  If the element type is C<'%'>, the
accessor returns the hash ele <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	34078	34250	
==><=" => 85,
			'OR' => 84,
			">" => 86
		}
	},
	{#State 120
		DEFAULT => -51
	},
	{#State 121
		ACTIONS => {
			"," => 151,
			'DO' => 168
		}
	},
	{#State 122 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	7391	7557	
==>EOF__\s*$/;

    if (m/^\s*use\s+([a-zA-Z_][a-zA-Z0-9_]*(::[a-zA-Z_][a-zA-Z0-9_]*)*)\s*;\s*(.*?)\s*$/) {

      my $use_file = $1;
      my $leftover = $3;

#print STD <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	3719	3861	
==>' ? 'open-bracket' : 'close-bracket', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^([\{\}])(.*)$}) {
      push @tokens <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	10786	10880	
==>loatarray.pmc resizableintegerarray.pmc resizablepmcarray.pmc resizablestringarray.pmc scalar.p <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	12068	12222	
==>nd_level {
  # By time this is called, the encoding (if well formed) will already
  #  have been acted one.
  my($self, $para) = @_;
  my @x = @$para;
  my <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	443	633	
==>=~ /XXX Stub/i) {
    $file =~ m{.*/(.*)[.]pir$};
    push @skip, $1;
  }
  close $fh;
}

print "SKIPPING @skip\n";

# get a list of all the tests in the harness.

my $teetcl = 't_tcl';

my @ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64403	64582	
==>petition($name,$1,$1,$1,
										   $lookahead,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714519	714620	
==>s/python.ops\"\n  STRING * const s = {{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (s && <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715442	715543	
==>s/python.ops\"\n  STRING * const s = {{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (s && <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1165	1312	
==>n $self;
}


#
# ACCESSORS:
#

sub type      { return shift->{TYPE};      }
sub name      { return shift->{NAME};      }
sub props     { return %{sh <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1500	1647	
==>n $self;
}


#
# ACCESSORS:
#

sub type      { return shift->{TYPE};      }
sub name      { return shift->{NAME};      }
sub props     { return %{sh <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	3104	3401	
==>HARED_FLAG   = 0x20,
    VTABLE_IS_CONST_PMC_FLAG = 0x40
} vtable_flags_t;

struct _vtable {
    PMC * _namespace;        /* Pointer to namespace for this class */
    INTVAL base_type;        /* 'type' value for MMD */
    STRING* whoami;          /* Name of class this vtable is for */
    UINTVA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677578	677664	
==>src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_float(interpreter, {{\@1}}, {{\@2}});\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	678356	678442	
==>src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_float(interpreter, {{\@1}}, {{\@2}});\n <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32537	32649	
==>ruction must use one of \${STACK0} or \${STOREREG} in rule " .
				"$rule->{'name'}\n";
		}

        # Insert typ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20288	20443	
==>(q{>>Matched production: ['
					  . $self->describe . ']<<},
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if define <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	31344	31518	
==>07
		ACTIONS => {
			":" => 42,
			"(" => 48,
			"{" => 38,
			"[" => 47,
			"." => 49,
			'STRING' => 44
		},
		GOTOS => {
			'tableconstructor' => 46,
			'args' = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1656	1768	
==>ubclasses will add methods, and will also inherit these methods:

=over

=item $token->type

This returns the typ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2371	2469	
==>$expected, $description, @todo)>

Runs the target string against the Perl 6 pattern, passing the te <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3805	3903	
==>$expected, $description, @todo)>

Runs the target string against the Perl 6 pattern, passing the te <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2722	2825	
==>($target, $pattern, 1);

    goto &Parrot::Test::pir_output_like;
}

=item C<pgeglob_is($target, $patter <==
2	/Users/nnunley/parrot/config/auto/format.pm	589	743	
==>v,       $nv,       $floatsize, $doublesize, $ldsize) = $conf->data->get(
        qw(iv nv floatsize doublesize hugefloatvalsize)
    );

    if ($iv eq "i <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4612	4719	
==>rv);
}

#Note that for loading debugging version of the driver,
#this file will be parsed from 'sub _Par <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4381	4484	
==>rv);
}

#Note that for loading debugging version of the driver,
#this file will be parsed from 'sub _Par <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	218	353	
==>06 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Compiler;

use Carp;
use FileHandle;

use base <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8568	8690	
==>erwise, there's nothing to do here.
	if ($dest_reg) {
		$pir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0 <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6388	6510	
==>erwise, there's nothing to do here.
	if ($dest_reg) {
		$pir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	1003	1138	
==>ass\s+[a-z]/smo )
	    {
	        push(@abstract_items, 
	            $self->new_item('', $dist->relative_path($file)));
	    }
	}
	
	re <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	923	1085	
==>R??
#
sub pass1 {
    my ($self, $t, $ctx) = @_;
    my $type = $t->{name};
    if ($type eq 'seq') {
        # R.(S.T) => R.S.T
        # Or parenthetically, seq( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	555	650	
==>to treelets (generally one per non-verbatim paragraph), and
# to call the proper callbacks on th <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1636	1757	
==>rray of C<void*> to
do its clever tricks.

=cut

sub opsarraytype 
{ 
    return 'opcode_t' 
};

=item C<core_type()>

Imp <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	2967	3131	
==>ty of running of the end) are
# returned. If a count is not given, 1 is inferred.
#

sub get
{
  my $self = shift;
  my ($offset, $count) = @_;

  $offset = 0 unless <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	4905	5008	
==>rdcoded as being installed under libdir
        # as it is typically donw with automake installed packag <==
2	/Users/nnunley/parrot/config/auto/pack.pm	1498	1619	
==>$test) {
            warn <<"AARGH"
Configure.pl:  Unable to find a functional packtype for $_.
               '$format' f <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3632	3735	
==>VE_$register_num:
${STACK$register_num} = pop lazy_moves

# Decrement stack height.
PRE_OP_${CURIC}_CONT <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4900	5064	
==>roups_and_libs(@pmcs);
    my @ungrouped_pmcs = grep { ! exists $pmc_group->{$_} } @pmcs;

    foreach (@ungrouped_pmcs, keys %$group_files) {
        copy("$_$LOAD_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	55608	55740	
==>lua51.yp"
{
            BuildLiteral( $_[0], $_[1], 'boolean' );
        }
	],
	[#Rule 78
		 'primary', 1,
sub
#line 424 "Lua <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6839	6947	
==>$need_dest = shift;
	my $pir = "";

	# If we need a destination, we simply supply the register to load
	# int <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4777	4885	
==>$need_dest = shift;
	my $pir = "";

	# If we need a destination, we simply supply the register to load
	# int <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	14525	14739	
==>it_func_init1($base);
}

my $init_set_dispatch = "";
if ($trans->can("init_set_dispatch")) {
    $init_set_dispatch = $trans->init_set_dispatch($bs);
}

print SOURCE <<END_C;
op_lib_t *
$init_func(long init) {
    / <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	56198	56327	
==>hey are disgarded).

For example, the following extracts substrings that are valid Perl variables:

        @fields = extract_mult <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20563	20663	
==>="Whoa"
	bar(5)=66666
	lot$(2)="Goodbye"
	narf.first=909090
	poit(4).first=101010
end sub
dim narf as <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1232	1379	
==>[0]{'hide_line_numbers'};
        _xml_escape($value);
        print $fh $ATTR_PAD, $key, '="', $value, '"';
      }
    }
  }
  print $fh ">";
  re <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2987	3092	
==>e {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_test('<=', $val1, $val2, $dest);
}

sub ou <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	229	364	
==>raries). Its
format is simple, and looks like:

  [package]
  ncurses 

  [lib]
  libform.so

  [defs]
  p new_field i i i i i i

  [lib <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	959	1166	
==>If you I<do> pass the pair, the harness will run the tests with
C<parrot>, calling the C<compiler> file as the first argument.

This means that you can write your tests in your language itself and run them
th <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	16625	16880	
==>h my $l (@list)
        {
            foreach my $v (@var)
            {
                push(@results,"$v,$l");
            }
        }

        return @results;
    }
}

=item C<ops()>

Returns the C<Parrot::Op> instances found in the file(s).

=cut

sub <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5288	5409	
==>$dest/$_$LOAD_EXT";
        }

    }
}
else {
    die "invalid command '$mode'\nmust be one of generate, compile, linklibs <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5499	5620	
==>$dest/$_$LOAD_EXT";
        }

    }
}
else {
    die "invalid command '$mode'\nmust be one of generate, compile, linklibs <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1410	1532	
==>> $out_f, 
        );
        my $prog_output = Parrot::Test::slurp_file( "$out_f" );

        @_ = ( $prog_output, $output <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1326	1448	
==>> $out_f, 
        );
        my $prog_output = Parrot::Test::slurp_file( "$out_f" );

        @_ = ( $prog_output, $output <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	7829	7953	
==>s with and without maximum lengths
        my $havemax = 0;
        my @chunks = ([]);

        foreach my $kid (@{ $t->{args <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20912	21003	
==>self, $namespace, $rule) = @_;
	
''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Tryin <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33717	33808	
==>self, $namespace, $rule) = @_;
	
''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Tryin <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	1346	1475	
==>E="_top"></A>
        <TABLE CELLSPACING="0" WIDTH="730">
            <TR>
                <TD WIDTH="100%" COLSPAN="2" CLASS="BAN <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15413	15524	
==>ckwards
for i = 0 to 10 step 2
	print i,
next i
print
for i = 10 to 3 step -1
	print i
next i
print

' For loops <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6868	7018	
==>n;
        
        last if $to_unget[-1]->is_end
            and $to_unget[-1]->tagname eq $tagname;
    }
    
    # Convert them into an anchor name <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	36905	37046	
==>eblock">.


=head2 C<extract_tagged>

C<extract_tagged> extracts and segments text between (balanced)
specified tags. 

The subroutine takes u <==
2	/Users/nnunley/parrot/config/gen/config_pm.pm	562	724	
==>ecording configuration data for later retrieval";

@args = ();

sub runstep
{
    my ($self, $conf) = @_;

    $conf->data->clean;

    genfile('config/gen/config_ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9887	10039	
==>unction a$
	a$="Whoa"
end function
print a$


' Changed ref'd var from 5 to 12
function myfunc(a)
	print a
	a=12
        myfunc=80
end function
z=5
T=myf <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	2180	2287	
==>dule for controlling the debug level (a.k.a. trace
level) of Pod::Simple.  This is of interest only to Pod:: <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	32409	32542	
==>----------------------
#
# Section 4 Expressions
#
#----------------------

  'quote'      => \&_op_quote,
  'lambda'     => \&_op_lam <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	20480	20663	
==>group'};
            } else {
                # Not a group; jump straight to instruction.
                my $name = $_->{'name'};
                $name =~ s/\./_/g;
                $ <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	1425	1510	
==>_FILES) $(BUILD_TOOLS_DIR)/ops2c.pl lib/Parrot/OpsFile.pm lib/Parrot/Op.pm lib/Parrot/ <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	1698	1783	
==>_FILES) $(BUILD_TOOLS_DIR)/ops2c.pl lib/Parrot/OpsFile.pm lib/Parrot/Op.pm lib/Parrot/ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	2993	3207	
==>lf->c_item(
                'Parrot Interpreter: Callback Function Handling; Creation and Destruction; Misc functions; Run Ops and Methods.', 
                'pairs' => ['interpreter'], 
                'sources' = <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	996	1087	
==>.pod'),
			$self->new_item('', 'docs/parrot.pod'),
		),
		$self->new_group('Specific Documen <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	12555	12705	
==>en iterating from end.
    unshift result, $P1

    inc op1
    goto neg_loop

pos_loop:
    if op1 == 0 goto done
    unless iter goto done
    
    $ <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9625	9718	
==>elative_path_is_directory($path)>

Returns whether the specified relative path is a directory. <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9868	9971	
==>less $path;
    
    return -d $path;
}

=item C<relative_path_is_file($path)>

Returns whether the spec <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189782	189962	
==>ger(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190723	190903	
==>ger(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	2064	2231	
==>C       the argument is an PMC
    KEY       the argument is an aggregate PMC key
    INTKEY    the argument is an aggregate PMC integer key

The size of the return off <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	2017	2120	
==>func $_[0] and $funcname..";
	return 0 unless defined $_[0];
	return 0 if $funcname and $funcname eq $_[ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76668	76775	
==>defined $::RD_TRACE
	    && $::RD_TRACE =~ /\d+/
	    && $::RD_TRACE>1
	    && $::RD_TRACE+10<length($_[0])) <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76979	77086	
==>defined $::RD_TRACE
	    && $::RD_TRACE =~ /\d+/
	    && $::RD_TRACE>1
	    && $::RD_TRACE+10<length($_[0])) <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	57608	57712	
==>The list in the second argument means:
I<"Try and extract a ' or " delimited string, otherwise extract an <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1264	1349	
==>oken->tagname(...)

=item $token->is_tag(I<somestring>) or $token->is_tagname(I<somest <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1694	1779	
==>oken->tagname(...)

=item $token->is_tag(I<somestring>) or $token->is_tagname(I<somest <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	6671	6805	
==>'sum'      , 8721,
 'minus'    , 8722,
 'lowast'   , 8727,
 'radic'    , 8730,
 'prop'     , 8733,
 'infin'    , 8734,
 'ang'      , 87 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	1190	1306	
==>[ "pushmark()" ],
    [ "popmark()" ],
    [ "pushindex()" ],
    [ "popindex()" ],

    [ "preamble()" ],
    [ "mat <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2529	2654	
==>efinition into the block at the top of the block stack. We fill in the
  # IDENT entry within the block.
  #

  $sym = Jako::S <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2276	2401	
==>efinition into the block at the top of the block stack. We fill in the
  # IDENT entry within the block.
  #

  $sym = Jako::S <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5917	6019	
==>did not pop anything it is unconditional, so next instruction needs to
	# have an empty stack type stat <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3855	3957	
==>did not pop anything it is unconditional, so next instruction needs to
	# have an empty stack type stat <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	8073	8335	
==>:
    $ary_ref = $obj->a;                 # reference to whole array
    $ary_element_value = $obj->a(2);    # array element value
    $obj->a(2, 'new value');            # assign to array element

                                    # hash type accessor:
    $ha <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22442	22558	
==>1);
  my $temp_1 = $self->_constant(2);
  $self->_add_inst(''           ,'mod'   ,[$temp_0,$temp_0,$temp_1]);
  $self <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22943	23059	
==>1);
  my $temp_1 = $self->_constant(2);
  $self->_add_inst(''           ,'mod'   ,[$temp_0,$temp_0,$temp_1]);
  $self <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	16297	16402	
==>en = $self->get_token) {
     ...process each token...
   }
 }

=head1 DESCRIPTION

This class is for usin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	580092	580421	
==>ject_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 662,
                  "ARGS" => [
                              "p <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	265	362	
==>nd the L<subclasses|/SUBCLASSES> defined in this
file) is used by F<tools/build/pmc2c.pl> to gener <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582702	583030	
==>ject_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 664,
                  "ARGS" => [
                              " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	389598	389802	
==>,
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	390730	390934	
==>,
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 464 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpre <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	9293	9419	
==>ie "Couldn't flock \"@{[ BUCKET ]}\": $!\n";

  my $data   = eval { fd_retrieve $fh };
  $data    ||= [MAX_RATE, BURST];
  my $ <==
2	/Users/nnunley/parrot/config/inter/progs.pm	367	484	
==>d be enabled.

=cut

package inter::progs;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configur <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11838	11948	
==>utfile = "$outfile_base.calls.html";
    print "Writing $outfile..\n" if $DEBUG;
    open (IN, "<$infile") or d <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	4385	4603	
==>_SC_CLK_TCK );
my %Get_Time = (
    1 => sub { my @times = times();  return $times[2] + $times[3] },
    2 => sub { return ( POSIX::times() )[0] / $ticks },
);

# Find And Build Benchmarks
find sub {
    my $pass;
    f <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3406	3589	
==>ANIFEST.SKIP';
print $SKIP '# $' . 'Id' . '$' . "\n";  # confuse SVN
print $SKIP "#\n"; 
print $SKIP '# generated by tools/dev/mk_manifest_and_skip.pl ', scalar( localtime() ), "\n";
p <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	15622	15797	
==>> 48,
			"." => 49,
			'STRING' => 44,
			"{" => 38
		},
		DEFAULT => -56,
		GOTOS => {
			'tableconstructor' => 46,
			'args' => 52,
			'key' => 53
		}
	},
	{#Stat <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	2366	2484	
==>hints which provide
information about the op.

The classification of ops is intended to facilitate the selection of
sui <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2228	2384	
==>) ||
    Compress::Bzip2::memBunzip($CGI->param("smoke")) ||
    $CGI->param("smoke"));
}

sub require_compression_modules {
  no strict 'refs';
  eval { req <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822449	822711	
==>\n  {{\@1}} = UVal_int(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823517	823779	
==>\n  {{\@1}} = UVal_int(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887840	888206	
==>=> "inline",
                  "CODE" => 1004,
                  "ARGS" => [
                              "s",
                              "s",
                              "i",
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_rep <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5030	5156	
==>" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  my $block = $self->blo <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3093	3219	
==>" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  my $block = $self->blo <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	1747	1847	
==>PATHQUOTE" . q[/Users/nnunley/parrot/tools/build/pmc2c.pl] . $PATHQUOTE;

# Actual commands
sub compi <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	1838	1938	
==>PATHQUOTE" . q[/Users/nnunley/parrot/tools/build/pmc2c.pl] . $PATHQUOTE;

# Actual commands
sub compi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567526	567668	
==>@1}} = {{\@2}}->vtable->does(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568421	568563	
==>@1}} = {{\@2}}->vtable->does(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	2087	2191	
==>m = match($ARGV[0]);
$Data::Dumper::Sortkeys = 1;
use Data::Dumper;
print Data::Dumper->Dump([$m],["*MATC <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	12401	12620	
==>args" if $pir_args;
			$extern=$sym;
			$optype=optype_of($extern);
			my ($calling_code,@return_params);
			if (isarray($sym)) {
NEST_ARRAY_ASSIGN:
				if ($ac == 0) {
					$optype="P";
				}
				push @code, qq{\t\$$opt <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11191	11307	
==>al(a)
	if a then factorial=a*factorial(a-1) else factorial=1
end function
T=factorial(5)
print T!

' Correct and fact <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102363	102611	
==>PE" => "inline",
                  "CODE" => 127,
                  "ARGS" => [
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 130 \"src/ops/bit.ops\"\n  string <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623212	623318	
==>er->current_returns = CUR_OPCODE;\n        n = PMC_int_val(mic->m.sig);\n\t{{+=n + 2}};\n    }\n    caller_ <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	663	759	
==>th)>

Returns the instance for C<$path> if it already exists, otherwise it is
created and cached. <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2029	2139	
==>ath if necessary.

=cut

sub create_path
{
    my $self = shift;
    
    return unless $self->SUPER::create_pa <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	1006	1116	
==>ath if necessary.

=cut

sub create_path
{
    my $self = shift;
    
    return unless $self->SUPER::create_pa <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2330	2453	
==>rite_code_to_file( $code, $lang_fn );

        # STDERR is written into same output file
        my $exit_code = Parrot:: <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1850	1970	
==>rite_code_to_file( $code, $lang_fn );

        # STDERR is written into same output file
        my $exit_code = Parrot:: <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	15502	15640	
==>= (
		'none'	=> '[cgimsox]*',
		'm'	=> '[cgimsox]*',
		's'	=> '[cegimsox]*',
		'tr'	=> '[cds]*',
		'y'	=> '[cds]*',
		'qq'	=> '',
		'qx'	=> <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2391	2494	
==>=$array)
	P0= P10[0]
	P1= P0["$stype"]
	P0= P1["$var"]	# Pull the original
	P2= P10[I25]
	P3= P2["$stype <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2618	2721	
==>=$array)
	P0= P10[0]
	P1= P0["$stype"]
	P0= P1["$var"]	# Pull the original
	P2= P10[I25]
	P3= P2["$stype <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740494	740749	
==>} = {{\@2}}->vtable->get_string(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
2	/Users/nnunley/parrot/editor/ops2vim.pl	459	609	
==>1) + length($cline) > 72) {
            print "$cline\n";
            $cline = $prefix;
        }
        $cline .= " $1";
    }
}

###
print "$cline\n <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2486	2620	
==>{
	my($self)=shift;

	${$$self{ERRST}}=0;
    undef;
}

sub YYNberr {
	my($self)=shift;

	${$$self{NBERR}};
}

sub YYRecov <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2384	2505	
==>{
	my($self)=shift;

	${$$self{ERRST}}=0;
    undef;
}

sub YYNberr {
	my($self)=shift;

	${$$self{NBERR}};
}

sub YYRecov <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	30849	30972	
==>n. Then write out the rest of the
    # expression.
    my $def = aop('rule_def', [ $name, $trymatch, $backup, $num_groups ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	625869	626036	
==>];\n                break;\n            case PARROT_ARG_FLOATVAL:\n                args[1 + i] = (_reg_base + cur_opcode[2 + i]);\n                break;\n            d <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	19128	19309	
==>m Miner, 1997-04-02.

    members() function removed.
    Documentation corrected and extended.
    Use of struct() in a subclass prohibited.
    User definition of accessor allowed. <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	10111	10209	
==>arrot::Test';

    my $path_to_parrot = path_to_parrot();
    my $parrot = File::Spec->join(File::S <==
2	/Users/nnunley/parrot/lib/Test/More.pm	12979	13108	
==>ect' unless defined $obj_name;
    my $name = "$obj_name isa $class";
    if( !defined $object ) {
        $diag = "$obj_name isn' <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	8160	8264	
==>analogous to the functions in
Test::More.

$name is always optional.

=over 4

=item B<ok>

  $Test->ok($ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	163	271	
==>s::Section::C - C source code documentation section

=head1 SYNOPSIS

    use Parrot::Docs::Section::C;

=hea <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	713	900	
==>:Debug (NUMVAL)\nor"
                    . "\n use Pod::Simple::Debug (\\\$var, STARTNUMVAL)\nAborting");
  }

  if( defined &Pod::Simple::DEBUG ) {
    require Carp;
    Carp::croak("It's <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1190	1335	
==>:Debug (NUMVAL)\nor"
                    . "\n use Pod::Simple::Debug (\\\$var, STARTNUMVAL)\nAborting");
  }

  if( defined $variable ) {
    # m <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4603	4713	
==>oin('',@drv);
}

#Note that for loading debugging version of the driver,
#this file will be parsed from 'su <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4372	4478	
==>oin('',@drv);
}

#Note that for loading debugging version of the driver,
#this file will be parsed from 'su <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	3515	3671	
==>, a warning will be given if not.
    You can try GNU nm if you want this feature.
--objectname|-o	prepend the object name before the symbol name
--t		append <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	6391	6593	
==>xecutable subsystem.', 
                'pairs' => ['exec', 'exec_save'],
                'sources' => ['exec_start']
            ),
        ),
        $self->new_group(
            'IO', 
            '' <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	2044	2158	
==>if (! defined($status) || $status) {
        die "assemble failed with status " . ($? >> 8);
    }
}

sub generate_ <==
2	/Users/nnunley/parrot/languages/regex/test.pl	3718	3832	
==>if (! defined($status) || $status) {
        die "assemble failed with status " . ($? >> 8);
    }
}

sub generate_ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35891	35996	
==>o &{''.qq{$_[1]$_[0]->{subrule}}} }"; }
	else
		{ return "\\&$_[1]$_[0]->{subrule}"; }
}

sub new ($$$$$$$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920995	921087	
==>\"src/ops/string.ops\"\n    {{\@1}}=Parrot_psprintf(interpreter, {{\@2}}, {{\@3}});\n    {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921888	921980	
==>\"src/ops/string.ops\"\n    {{\@1}}=Parrot_psprintf(interpreter, {{\@2}}, {{\@3}});\n    {{+= <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	14851	14979	
==>mc op2
END_PREAMBLE

        if ($type1 eq "Float" && $type2 eq "Float") {
          # scalar to scalar..
            $template . <==
2	/Users/nnunley/parrot/lib/Test/More.pm	16734	16844	
==>is:

   BEGIN { use_ok('Some::Module', qw(foo bar)) }

is like doing this:

   use Some::Module qw(foo bar);

V <==
2	/Users/nnunley/parrot/config/inter/make.pm	170	380	
==>lity

=head1 DESCRIPTION

Determines whether C<make> is installed and if it's actually GNU C<make>.

=cut

package inter::make;

use strict;

use vars qw( $description @args $prompt $util );

use base qw(Parrot: <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	809	963	
==>,
    float => 1,
    hash => 1,
    hex => 1,
    id => 1,
    iter => 1,
    filter => 1,
    list => 1,
    long => 1,
    int => 1,
    map => 1,
    m <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	459	559	
==>out:

=over 4

=item * the number of look iterations, 

=item * the estimated number of ops performed <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	463	562	
==>out:

=over 4

=item * the number of look iterations,

=item * the estimated number of ops performed <==
2	/Users/nnunley/parrot/config/auto/signal.pm	377	530	
==>to';

$description = 'Determining some signal stuff';

@args = qw(miniparrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	388	513	
==>ions from files

=head1 SYNOPSIS

    % perl tools/dev/extract_file_descriptions.pl [--plus-misses] [files ...]

=head1 DESCRI <==
2	/Users/nnunley/parrot/config/inter/encoding.pm	146	273	
==>nfig/inter/encoding.pm - encoding files

=head1 DESCRIPTION

Asks the user to select which encoding files to include.

=cut

pac <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4999	5120	
==>r->emit("  global \"$dest_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($hand <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3062	3183	
==>r->emit("  global \"$dest_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($hand <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23401	23508	
==>n}[1]);
  for(2..$#{$node->{children}}) {
    my $temp = $self->_generate($node->{children}[$_]);
    my $la <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23863	23970	
==>n}[1]);
  for(2..$#{$node->{children}}) {
    my $temp = $self->_generate($node->{children}[$_]);
    my $la <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	11175	11288	
==>nuation Exception_Handler Coroutine Eval NCI Float Integer BigInt Complex String Boolean Ref SharedRef Array Fixed <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2396	2577	
==>C<$op> is an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) = @_;

    die "Unrecognized type '$type' for num '$num' in opcode @{[$op->full_name] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434461	434558	
==>\"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435476	435573	
==>\"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1 <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12246	12376	
==>UPER
      \(\s*(.*?)\)      # capture argument list
     /"Parrot_${1}_$method(" . full_arguments($2) . ')'/xeg;

    # Rewrite SU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54404	54881	
==>info",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 70,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 864 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo(interprete <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	992	1182	
==>e "Usage: $0 <source files>\n" .
        "       $0 all_source\n";
}

if ($files[0] eq "all_source") {
    # do a little "find" action for now.
    @files = ();
    File::Find::find({wanted = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710806	711004	
==>NTVAL_FMT, (INTVAL){{\@1}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711640	711838	
==>NTVAL_FMT, (INTVAL){{\@1}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	43810	44070	
==>n";
      next;
    }

    # A formatty line has to have #: in the first two columns, and uses
    # "^" to mean bold, "/" to mean underline, and "%" to mean bold italic.
    # Example:
    #   What do you want?  i like pie. [or whatever]
    # #:^^^^^^^^^^^^^^ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7497	7619	
==>hort"]
${STEMP0} = concat ${STEMP1}
${STEMP0} = concat "0"
${PARAMS}[0] = ${STEMP0}
${INS} = concat ${STEMP0}
${INS} = conc <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	6444	6583	
==>ftware; you can redistribute it and/or
modify it under the same terms as Perl itself.

 Copyright 2000 Christian Lackas, Imperia Software So <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682584	683015	
==>=> "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 766,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 517 \"src <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	3165	3299	
==>e.ops' : shift @ARGV;

my $base = $file;
$base =~ s/\.ops$//;

my $incdir  = "include/parrot/oplib";
my $include = "parrot/oplib/${base <==
2	/Users/nnunley/parrot/lib/Test/More.pm	36493	36595	
==>ble).

L<Test> is the old testing module.  Its main benefit is that it has
been distributed with Perl s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58451	58691	
==>E" => 75,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 874 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo_s(interpreter, { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42137	42377	
==>nline",
                  "CODE" => 53,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 727 \"src/ops/core.ops\"\n  do_exception(interpreter, EXCEPT_exit, {{\@ <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	540	732	
==>y $input = join('', <$fh>);
close $fh;
my @methods = parse($input);

# Start of output.
my $output = <<'PIR_OUT';
# THIS IS A GENERATED FILE! DO NOT EDIT!

.HLL '_dotnet', ''

.sub internal_met <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	35529	35761	
==>_pointer(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3488	3597	
==>C<$op> is an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) = @_;

    #p <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3287	3396	
==>C<$op> is an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) = @_;

    #p <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	783	875	
==>/usr/bin'.

=item C<libdir>

The library directory. Defaults to '/usr/lib'.

=item C<included <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	1012	1104	
==>/usr/bin'.

=item C<libdir>

The library directory. Defaults to '/usr/lib'.

=item C<included <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10907	11016	
==>, and undefines it.

Raises an exception if the delete fails.

=cut

sub delete
{
    # Use $_[0] so that we c <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4741	4850	
==>, and undefines it.

Raises an exception if the delete fails.

=cut

sub delete
{
    # Use $_[0] so that we c <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	30497	30647	
==>'}
                                     : 0;
}

=item B<caller>

    my $package = $Test->caller;
    my($pack, $file, $line) = $Test->caller;
    my($ <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2018	2144	
==>y ($file, $source) = @_;

    print "Checking $file..\n";
    trim_whitespace($file, $source);

    # The following MUST apply. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122649	122891	
==>ne",
                  "CODE" => 152,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 248 \"src/ops/bit.ops\"\n  /*\n   * lva <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8094	8193	
==>IC}:

# If there is a return type, need to supply a ${DEST0}.
${ITEMP0} = ${PTEMP1}["type"]
if ${ITE <==
2	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	1082	1276	
==>w components to VERSION file contents: '$parrot_version' (should be 3 or 4)!"
    }

    if ( scalar(@parrot_version) > 4 ) {
        die "Too many components to VERSION file contents: '$parrot_v <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787959	788050	
==>ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed_int(interpreter, {{\@2}}, {{\@3}});\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788869	788960	
==>ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed_int(interpreter, {{\@2}}, {{\@3}});\n <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	4418	4554	
==>f = shift;
	my $type = shift;
	
	return 0 unless defined $type;
	
	return $self->type eq $type;
}

=item C<check_pod()>

Runs C<Pod::Simp <==
2	/Users/nnunley/parrot/config/init/hints/darwin.pm	3	95	
==>opyright (C) 2005, The Perl Foundation.
# $Id: /parrot/config/init/hints/darwin.pm 19593 2006 <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10466	10606	
==>s are also directed to
F<test.out>.

=cut

sub cc_run_capture
{
    my $exe   = $conf->data->get('exe');
    my $slash = $conf->data->get('sl <==
2	/Users/nnunley/parrot/config/gen/config_pm.pm	830	1009	
==>ig_pm.in: $!";
    open(OUT, ">lib/Parrot/Config.pm")             or die "Can't open lib/Parrot/Config.pm: $!";

    print OUT "# Generated by config/gen/config_pm.pm\n";

    my $ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8553	8639	
==>next
print
data "ABANDON","CHART","COMPUTER"
data "DAMAGES","DESTRUCT","DOCK","IDLE","I <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21417	21503	
==>next
print
data "ABANDON","CHART","COMPUTER"
data "DAMAGES","DESTRUCT","DOCK","IDLE","I <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	2486	2636	
==>ctory into which the section's output will be written.

If C<$silent> is true then progress is not reported.

Any POD-formatted text in the item's file <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41888	42118	
==>ver') {
      $copy[0] = '=back';
    } else {
      die "I don't know how to auto-close an open $copy[0] region";
    }

    unless( @copy > 2 ) {
      push @copy, $copy[1]{'target'};
      $copy[-1] = '' unless defined $copy[-1] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034901	1035190	
==>=> 0,
                  "NAME" => "find_lex",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036064	1036353	
==>=> 0,
                  "NAME" => "find_lex",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10347	10493	
==>t TRUE => "TRUE";
use constant FALSE => 0;

sub tokenize {
    my $data = shift;

    my @tokens;
    my @types;
    my $state = 0;
    my $depth = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	528507	528677	
==>,
                              "n"
                            ],
                  "BODY" => "#line 838 \"src/ops/math.ops\"\n  {{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOAT <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529389	529559	
==>,
                              "n"
                            ],
                  "BODY" => "#line 838 \"src/ops/math.ops\"\n  {{\@1}} = atan2((FLOATVAL){{\@2}}, (FLOAT <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	145192	145457	
==>77,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 84 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	215	312	
==>tion

=head1 SYNOPSIS

    use Parrot::Docs::Section::Info;

=head1 DESCRIPTION

A documentation s <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	547	704	
==>avoid the export because we have a stat() method.
use File::stat qw();

my %instance_for_path = ();

=item C<new($path)>

Returns the instance for C<$path> if <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	3881	4018	
==>", "    ", $fdecl) . "\n\n";
        }
    }    
}   

if (%all_errors) {
#    print STDERR "The following C::Scan parse errors occurred.\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2314	2414	
==>n as in C<Parrot::OpTrans>. It
should not be duplicated.

=cut

sub gen_goto
{
    my ($self, $where_ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20964	21166	
==>end function
print foo$()

' Some assembly required
print "Hello, world"
_STARTASM
	print "Include me in the assembly.\n"
_ENDASM
print "Goodbye, world"

' Column alignment
print "Hello";tab$(15);"World" <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2810	2926	
==>C code for the run
core function declaration. C<$base> is the same as for
C<run_core_func_decl()>.

=item C<run_core_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13383	13536	
==>"PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "jsr",
                  "FLAGS" => ":base_core,check_event",
                  "ARGD <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1613	1814	
==>self->{ARGS} = [ @_ ];
    }
    else
    {
        return $self->{ARGS};
    }
}

=item C<arg($index)>

Returns the argument at C<$index>.

=cut

sub arg
{
    my $self = shift;

    return $self->{ARG <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1222	1349	
==>self->{ARGS} = [ @_ ];
    }
    else
    {
        return $self->{ARGS};
    }
}

=item C<arg($index)>

Returns the argument at <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106279	1106374	
==>_vtable_max)\n\treal_exception(interpreter, NULL, E_ValueError,\n\t\t\"type number out of range\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107255	1107350	
==>_vtable_max)\n\treal_exception(interpreter, NULL, E_ValueError,\n\t\t\"type number out of range\ <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	6820	6967	
==>ODO" confuse the harness. Escape desc #s.
    $out ~~ s:P5:g/#/\\#/;

    my $context_out = $context.defined ?? " # $context" !! "";

    print "not <==
2	/Users/nnunley/parrot/languages/regex/test.pl	304	443	
==>:Functions;	# In perl core only for >= 5.6.

# FIXME: This is still probably unix-only, because the parrot binary
# will have different name <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4929	5060	
==>ecode "PGE/Text.pir"
            load_bytecode "PGE/Util.pir"
            p6rule_compile = compreg "PGE::P6Regex"

            .loca <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9986	10105	
==>');
    my $slash = $conf->data->get('slash');
    my $verbose = $conf->options->get('verbose');

    if (defined($_[0]) <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10567	10686	
==>');
    my $slash = $conf->data->get('slash');
    my $verbose = $conf->options->get('verbose');

    if (defined($_[0]) <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	1845	2027	
==>$dirname      = dirname($da_file) || '.';
    my $filename     = basename($da_file);
    my $src_filename = $da_file;
    $src_filename =~ s/\.da$/.c/;
    
    # gcov must be run fro <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	34698	34844	
==>> \@return2,
        'arg1'   => $iter,
        'arg2'   => \@params2,
    );
    push @opcodes1, @opcodes2;
    push @opcodes1, new AssignOp( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792270	792553	
==>CODE" => 894,
                  "ARGS" => [
                              "p",
                              "p",
                              "kic"
                            ],
                  "BODY" => "#line 432 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keye <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	514	656	
==>h> relative to the default temporary
directory.

=cut

sub tmp_file
{
    my $self = shift;
    
    return $self->new(File::Spec->catfile(File <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2857	3003	
==><$base> is the same as for
C<run_core_func_decl()>.

=item C<run_core_func_start()>

Implemented in subclasses, if C<run_core_func_decl()> is imple <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353648	353756	
==>\@1}};\n  if (s && string_length(interpreter, s)) {\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354393	354501	
==>\@1}};\n  if (s && string_length(interpreter, s)) {\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\ <==
2	/Users/nnunley/parrot/config/auto/bc.pm	544	660	
==>';

$description = 'Determining whether GNU bc is installed';

@args = qw();

sub runstep
{
    my ($self, $conf) = @ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028010	1028110	
==>"src/ops/sys.ops\"\n  opcode_t *next = {{^+2}};\n  if ({{\@1}} < 0) {\n      real_exception(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028861	1028961	
==>"src/ops/sys.ops\"\n  opcode_t *next = {{^+2}};\n  if ({{\@1}} < 0) {\n      real_exception(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65748	66337	
==>e;\n  runops(new_interp, REL_PC + {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getinterp",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "function",
                  "CODE" => 86,
                  "ARGS" => [
                              "p" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64797	65084	
==>e;\n  runops(new_interp, REL_PC + {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	338527	338750	
==>E" => "inline",
                  "CODE" => 396,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 108 \"src/ops/io.ops\"\n  {{\@1}} = PIO_STDOU <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	25308	25449	
==>trings.


=head1 SYNOPSIS

 use Text::Balanced qw (
			extract_delimited
			extract_bracketed
			extract_quotelike
			extract_codeblock
			ext <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	949	1054	
==>t;
  return '_ANON_LABEL_' . ++$self->{ANON_LBL_COUNT};
}


#
# invert_relop()
#

my %inverted_ops = (
  ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46945	47048	
==>"\n  if ({{\@1}} != 0) { Interp_debug_SET(interpreter,   {{\@1}}); }\n  else         { Interp_debug_CLEA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47728	47831	
==>"\n  if ({{\@1}} != 0) { Interp_debug_SET(interpreter,   {{\@1}}); }\n  else         { Interp_debug_CLEA <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	8041	8214	
==>my $data = ($uninit || $init) && !$code;
		my $global = !$local;
		my $show = 1;
		sub want_show {
		    my ($show, $Got, $got) = @_;
		    if (defined $Got) {
			if ($Got == <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	8052	8263	
==>=> $self->dbprint("R in group failed\n"),
                        aop('popint', [ '<tmp>', 'group end' ]),
                        aop('setend', [ $group, '<tmp>' ] ),
                        aop('popint', [ '<tm <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6276	6371	
==>lf->{POD_HTML} = $formatter->html_for_file($self);
	}
	
	return $self->{POD_HTML};
}

=item C<is <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605866	605971	
==>" => "#line 441 \"src/ops/object.ops\"\n    Parrot_add_attribute(interpreter, {{\@1}}, {{\@2}});\n    {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606657	606762	
==>" => "#line 441 \"src/ops/object.ops\"\n    Parrot_add_attribute(interpreter, {{\@1}}, {{\@2}});\n    {{+= <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	22257	22410	
==>line 166 "lib/Regex/Grammar.y"
{ return $_[2]; }
	],
	[#Rule 38
		 'charclass', 1,
sub
#line 167 "lib/Regex/Grammar.y"
{ return [ 'neg', [] ]; }
	],
	[#Ru <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9051	9185	
==>lobal or local).

=cut

sub scope_of_ident
{
  my $self = shift; # Required: Jako::Construct::Block
  my $name = shift; # Required: str <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	13827	14041	
==>"." => 15
		},
		GOTOS => {
			'expr' => 38,
			'charclass' => 12
		}
	},
	{#State 22
		ACTIONS => {
			'NUM' => 40,
			"?" => 16,
			"." => 41
		},
		DEFAULT => -28,
		GOTOS => {
			'number' => 39,
			'rulename' => <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1507	1605	
==>SCRIPTION

When you do $parser->get_token on a L<Pod::Simple::PullParser>, you should
get an object <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	5679	5795	
==>run_tests {
    my (@files) = @_ ? @_ : glob File::Spec->catfile( $DIR, '*.t' ) ;

    if (@files) {
        return r <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	163	250	
==>.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm 19606 2006-05- <==
2	/Users/nnunley/parrot/config/init/miniparrot.pm	384	497	
==>tch ANSI  characteristics.

Centralizing these settings will (hopefully) allow for an eventual move away
from usin <==
2	/Users/nnunley/parrot/config/gen/icu.pm	2574	2701	
==>='$icushared'\n" if defined $icushared;
        print "headers='$icuheaders'\n"  if defined $icuheaders;
    }

    if ($without <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	8776	8905	
==>$kid_follow_min += $kid->minlen();
        }

        foreach my $kid (@{ $t->{args} }) {
            $kid_follow_min -= $kid->min <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	1282	1406	
==>.

=cut

sub dont_edit {
    my ($pmcfile) = @_;

    return <<"EOC";
/*
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * T <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	1743	1855	
==>$self->convert_sv_literal($atom, $ctx);
    } else {
        $R = op('external' => [ 'string', [ $atom, $ctx ] ]) <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8715	8831	
==>0 goto PRE_CALL_END_${CURIC}

# Get type of return value and build code to pop it.
${ITEMP1} = elements ${STYPES}
dec <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7287	7403	
==>0 goto PRE_CALL_END_${CURIC}

# Get type of return value and build code to pop it.
${ITEMP1} = elements ${STYPES}
dec <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24934	25057	
==>ted at source line $sourceline" unless ($syms[CURR] ne "to");

	feedme();
	# The destination value
	($endexpr, $type, @code) <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34959	35063	
==>ed
				   = $Parse::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = $Parse::RecDesc <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42069	42173	
==>ed
				   = $Parse::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = $Parse::RecDesc <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	5644	5830	
==>nabling
        # support for GCC-specific features.

        $conf->data->set(
            ccwarn     => "-ansi -pedantic",
            gccversion => undef
        );

        return $se <==
2	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	64	187	
==>3 2005-05-31T14:22:35.671857Z svm  $

=head1 DESCRIPTION

=head1 SYNTAX

=cut

# pragmata
use strict;
use 5.005;

# standard <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365279	365389	
==>}) {\n    PIO_putps(interpreter, {{\@1}}, {{\@2}});\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366119	366229	
==>}) {\n    PIO_putps(interpreter, {{\@1}}, {{\@2}});\n  }\n  else {\n    /* Handle error here */\n  }\n  {{+=3}} <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	3900	4025	
==>);
	},
	'/' => sub {
		return("\t$_[2] = $_[1] / $_[0]", $_[2]);
	},
	'=' => sub {
		my ($a1, $a2, $result, $op)=@_;
		$op="eq <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2852	2983	
==>le for the library.

=cut

sub gen_h {
    my ($self) = @_;
    my $hout = dont_edit('various files');
    my $lc_libname = lc $self <==
2	/Users/nnunley/parrot/config/init/hints/freebsd.pm	997	1116	
==>',
        libparrot_shared_alias  => 'libparrot$(SHARE_EXT)',
        libparrot_soname        => '-Wl,-soname=libparrot <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	1835	1954	
==>',
        libparrot_shared_alias  => 'libparrot$(SHARE_EXT)',
        libparrot_soname        => '-Wl,-soname=libparrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955371	955640	
==>P" => 0,
                  "NAME" => "encodingname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fun <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956182	956451	
==>P" => 0,
                  "NAME" => "encodingname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fun <==
2	/Users/nnunley/parrot/config/gen/platform.pm	4	94	
==>pyright (C) 2001-2006, The Perl Foundation.
# $Id: /parrot/config/gen/platform.pm 19593 200 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	52946	53152	
==>$_->[0]
        }
    @$curr_open
  ;
}

###########################################################################
my %pretty_form = (
  "\a" => '\a', # ding!
  "\b" => '\b', # BS
  "\e" => '\e', # ESC
  " <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	10275	10411	
==>= shift;

    local($@,$!);

    eval { require overload } || return;

    foreach my $thing (@_) {
        eval { 
            if( defin <==
2	/Users/nnunley/parrot/config/inter/progs.pm	2941	3048	
==>linker?", $linkflags) if $ask;
    $conf->data->set(linkflags => $linkflags);

    $ldflags = $conf->data->g <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644425	644741	
==>"typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 720,
                  "ARGS <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	4765	4882	
==>$_[0]) || $_[0];
	my $name  = $_[1];
	my $owner = $_[2];
	my $line  = $_[3];
	my $replace = $_[4];

	if (defined $owne <==
2	/Users/nnunley/parrot/config/auto/snprintf.pm	222	321	
==>ntf is present and if it's C99 compliant.

=cut

package auto::snprintf;

use strict;
use vars qw($d <==
2	/Users/nnunley/parrot/config/inter/progs.pm	3724	3830	
==>get('cxx'));
    $cxx = prompt("What C++ compiler do you want to use?", $cxx) if $ask;
    $conf->data->set <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	28654	28826	
==>b _op_log {
}

sub _op_sin {
}

sub _op_cos {
}

sub _op_tan {
}

sub _op_asin {
}

sub _op_acos {
}

sub _op_atan {
}

sub _op_sqrt {
}

sub _op_expt {
}

sub _op_make_rect <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785034	785281	
==>GS" => [
                              "p",
                              "kic",
                              "p"
                            ],
                  "BODY" => "#line 392 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_pmc_keyed_int(int <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352633	352954	
==>",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 411,
                  "ARGS" => [
                              "nc"
                            ],
                  "BODY" => "#line 195 \"src/ops <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	35512	35621	
==>il, returning:

	( undef , "{ an '[irregularly :-(] {} parenthesized >:-)' string }"  );

because the embedded <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7456	7613	
==>if (!$need_dest) {
		$pir .= <<'PIR'
inc stack_depth
lazy_moves = push ${LOADREG}
PIR
	}

	return $pir;
}

# Pre and post store operation hooks.
sub pre_store <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10956	11041	
==>10,0xbd3af235,/* 62 */
II,$c,$d,$a,$b,$_[6],15,0x2ad7d2bb,/* 63 */
II,$b,$c,$d,$a,$_[1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255396	255570	
==>i",
                              "ic"
                            ],
                  "BODY" => "#line 726 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@2}} : {{\@3}};\n  { <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4645	4757	
==>st = $temp");
  }
  else {
    $compiler->emit("  $dest = $left $op $right");
  }

  if (($dest_ident->kind eq 'v <==
2	/Users/nnunley/parrot/config/inter/progs.pm	1615	1861	
==>et each variable individually so that hints files can use them as
    # triggers to help pick the correct defaults for later answers.

    $cc = integrate($conf->data->get('cc'), $conf->options->get('cc'));
    $cc = prompt("What C compiler do you <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	32977	33081	
==>e,

#----------------------
#
# Section 6 Expressions
#
#----------------------

###
### Logical expressi <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	11268	11406	
==>esc = "($file line $line)";
            }

            # $test_no will be part of temporary file
            my $test_no = $builder->curren <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	16753	16891	
==>esc = "($file line $line)";
            }

            # $test_no will be part of temporary file
            my $test_no = $builder->curren <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14458	14553	
==>'P');

  $self->_add_inst ('', 'new', [$return,'.Array']);
  $self->_add_inst ('', 'set', [$retu <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	2967	3060	
==>'P');

  $self->_add_inst('', 'new', [$return,'.Array']);
  $self->_add_inst('', 'set', [$retu <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	146	247	
==>NAME

Parrot::Docs::Section::Config - Configuration documentation section

=head1 SYNOPSIS

	use Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958809	959095	
==>0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959610	959896	
==>0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	16573	16692	
==>ir .= "### end pre_load (typed eh)\n";
    $pir .= <<'PIRCODE';
    loadreg = "$P1000001"
PIRCODE
    my $post_load = $s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7630	7735	
==>lf->{'start_of_pod_block'} and @$paras and $paras->[-1][0] eq '~Verbatim') {
          DEBUG > 1 and print <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6344	6447	
==>lf->{'start_of_pod_block'} and @$paras and $paras->[-1][0] eq '~Verbatim') {
        DEBUG > 1 and print <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44940	45136	
==>7 \"src/ops/core.ops\"\n  Parrot_pop_mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45582	45778	
==>7 \"src/ops/core.ops\"\n  Parrot_pop_mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841664	841969	
==>,0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":ba <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842428	842733	
==>,0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":ba <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	937	1042	
==>q 'start_line' and $_[0]{'hide_line_numbers'};
        _xml_escape($value = $_[2]{$key});
        print $f <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	754	855	
==>q 'start_line' and $_[0]{'hide_line_numbers'};
      _xml_escape($value = $_[2]{$key});
      print $f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736629	736760	
==>,
                  "BODY" => "#line 144 \"src/ops/set.ops\"\n  {{\@1}} = (FLOATVAL){{\@2}};\n  {{+=3}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737375	737506	
==>,
                  "BODY" => "#line 144 \"src/ops/set.ops\"\n  {{\@1}} = (FLOATVAL){{\@2}};\n  {{+=3}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	2229	2388	
==>the languages dir.

If called with no args, run the suite.

=cut

    if ( grep { /^--files$/ } @{ $options{arguments} } )
    {
        # --files indicates the <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2977	3147	
==>ddress)>

CPrederef is funky in that expr OFFSET(n) uses a pointer to the
original bytecode, but goto OFFSET(n) returns a pointer into the
prederef array. (see expr_pop(), <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16840	16982	
==>)).';'/eg;
        # Leave out "- so that "--" won't make it thru in X-generated comments
        #  with text in them.
        
        # Yes, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10284	10406	
==>)).';'/eg;
    # Leave out "- so that "--" won't make it thru in X-generated comments
    #  with text in them.

    # Yes, <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36	133	
==>anslator Generator
# Script to generate the instruction translator from a rules file and a
# stack <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3811	4023	
==>INE__
            cc_debug             => '-Zi',
            libs                 => "$libs libircmt.lib",
            ld                   => 'xilink',
            ld_debug             => '-debug',
            ld <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	3284	3385	
==>$desc?, :$todo, :$depends) returns Bool is export {
    my $out := defined($desc) ?? $desc !! "The obj <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035559	1035653	
==>n    PMC *result = NULL;\n\n    if (!PMC_IS_NULL(lex_pad))\n\tresult = VTABLE_get_pmc_keyed_str <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036723	1036817	
==>n    PMC *result = NULL;\n\n    if (!PMC_IS_NULL(lex_pad))\n\tresult = VTABLE_get_pmc_keyed_str <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	47759	47907	
==>ut to ", \$out, "\n";
  
  $mutor->($parser) if $mutor;

  $parser->parse_string_document( $_[0] );
  # use Data::Dumper; print Dumper($parser), "\n" <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	14625	14820	
==>if ($$textref =~ m#\G\s*( [-+*x/%^&|.]=?
					| [!=]~
					| =(?!>)
					| (\*\*|&&|\|\||<<|>>)=?
					| split|grep|map|return
					)#gcx)
		{
			$patvalid = 1;
			next;
		}

		if ( _match_codeblo <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	1733	1887	
==>ation calls
   them to do stuff with PMCs, STRINGS, interpreter contents, and
   suchlike things. This is perfectly legal -- in fact it's what
   we've doc <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	2559	2666	
==>fs, and hashrefs, and strings.

This is a subclass of L<Pod::Simple> and inherits all its methods.

This cla <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1958	2061	
==>4

=item C<create_path()>

This is called from C<new()> to create the path if necessary.

=cut

sub crea <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	935	1038	
==>4

=item C<create_path()>

This is called from C<new()> to create the path if necessary.

=cut

sub crea <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	31	181	
==>(C) 2004, The Perl Foundation.
# $Id: /parrot/tools/dev/parrot_api.pl 19607 2006-05-30T15:23:20.183054Z coke  $

=head1 NAME

tools/dev/parrot_api.pl - <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658315	658570	
==>defined_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659234	659489	
==>defined_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	20699	20898	
==>targ = "pc_$1";
	}
	$cmt ="\t\t# $opcode\t $rest";
	$code_l++;
	$op = $op_map{$c};
    }
    else {
plain:
	$code_l-- if ($label ne '');
	# plain compare, no branch
	my %is_map = (
	    '==' => 'iseq' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114459	114762	
==>> [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 204 \"src/ops/bit.ops\"\n  {{\@1}} <<= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	31214	31359	
==>h_output_from_file {
}

sub _op_open_input_file {
}

sub _op_open_output_file {
}

sub _op_close_input_port {
}

sub _op_close_output_port {
}

su <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	2239	2362	
==>ft      { return shift->{LEFT};  }
sub op        { return shift->{OP};    }
sub right     { return shift->{RIGHT}; }

sub pr <==
2	/Users/nnunley/parrot/config/init/headers.pm	72	195	
==>it/headers.pm 20700 2006-06-26T19:26:45.696181Z bernhard  $

=head1 NAME

config/init/headers.pm - Nongenerated Headers

=he <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503640	504092	
==>o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 579,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 631 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+=4}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2817	2933	
==>return "interpreter->resume_offset = REL_PC + $offset; interpreter->resume_flag = 1";
}

=item C<restart_address($add <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4152	4264	
==>return "interpreter->resume_offset = REL_PC + $offset; interpreter->resume_flag = 1";
}

=item C<run_core_func_de <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	546310	546780	
==>LAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 630,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9145	9314	
==>ack, $1;
        push @indent_stack,
         int($token->attr('indent') * 4 * $self->normal_halfpoint_size);
        DEBUG and print "Indenting over $indent_stack[-1] tw <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	794	902	
==>tch
# O (end, n) : mark end of n-th paren match
# O (goto, label)
# O (label, name)
# O (increment, name [, a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034895	1035182	
==>JUMP" => 0,
                  "NAME" => "find_lex",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036058	1036345	
==>JUMP" => 0,
                  "NAME" => "find_lex",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CO <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1299	1384	
==>::Decrement;
use Jako::Construct::Statement::Goto;
use Jako::Construct::Statement::Inc <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	2098	2195	
==>$expected, $description)>

Runs the Parrot Assembler code and passes the test if
the  output match <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	4214	4366	
==>able methods might get moved around internally
 * these macros hide the details
 */

EOM
    for my $entry (@{$vtable}) {
    next if ($entry->[4] =~ /MM <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25646	25758	
==>);
  } else {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27544	27656	
==>);
  } else {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $temp = $ <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	5733	5847	
==>,    'code',   'data' );
warn_if_both($Global, $Local,   'global', 'local');
warn_if_both($Init,   $Uninit,  'init' <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8262	8354	
==>,7,0xd76aa478,/* 1 */
FF,$d,$a,$b,$c,$_[5],12,0xe8c7b756,/* 2 */
FF,$c,$d,$a,$b,$_[6],17,0x24 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14261	14406	
==>integer
	bar as string
end type
dim y(5)
y(3)=66
dim u(5) as first
print y(3)*2

' Array structure access, 56/0
type first
	foo as integer
	bar as <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	8447	8623	
==>t = rop('seq', \@children);
        }

        $t->{add_check_visited} = 1;
        return $self->add_checks($t, $guarantee, $follow_min);

    } elsif ($type eq 'seq' && $t->{a <==
2	/Users/nnunley/parrot/lib/Test/More.pm	36722	36829	
==>ways to test complex data structures.
And it plays well with Test::More.

L<Test::Class> is like XUnit but m <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6314	6428	
==>RUE           ' Force first pass through the array.
WHILE Exchange          ' Sort until no elements are exchanged. <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15967	16081	
==>RUE           ' Force first pass through the array.
WHILE Exchange          ' Sort until no elements are exchanged. <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	22557	22758	
==>p_mmd_init[] = {
        $mmd_list
    };
    /*  Dynamic PMCs need the runtime type
	which is passed in entry to class_init.
    */
EOC
    }

    $cout .= <<"EOC";
    if (pass == 0) {
EOC
    $cout . <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	8993	9260	
==>' => undef,
             'ncilib_link_extra' => '',
             'new_perldoc' => 1,
             'numvalsize' => 8,
             'nv' => 'double',
             'nvsize' => 8,
             'o' => '.o',
             'opcode_t' => 'long',
             'opcode_t_size' => <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26827	26968	
==>=> $l_continue,
    );
    my $cond = get_cond( $parser, $expr );
    push @opcodes, @{ $cond->[1] };
    push @opcodes, new BranchUnlessO <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	462	582	
==>log lpos ltrim$
		    mid$ mkd$ mkdmbf$ mki$ mkl$ mks$ mksmbf$
		    peek pen play pmap point pos
		    right$ rnd rtrim$ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	3192	3488	
==>t_lib_${lc_libname}_load(Parrot_INTERP interpreter); /* don't warn */
Parrot_PMC Parrot_lib_${lc_libname}_load(Parrot_INTERP interpreter)
{
    Parrot_STRING whoami;
    Parrot_PMC pmc;
EOC
    while (my ($class, $info) = each %classes) {
	next if $info->{flags}->{noinit};
        $cout .= <<"EOC <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4945	5039	
==>r,$token,$value,$stack,$check,$dotpos)
     = @$self{ 'ERRST', 'NBERR', 'TOKEN', 'VALUE', 'STA <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4703	4796	
==>r,$token,$value,$stack,$check,$dotpos)
     = @$self{ 'ERRST', 'NBERR', 'TOKEN', 'VALUE', 'STA <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	1921	2095	
==>ub name   { return shift->{NAME};     }
sub value  { return shift->{VALUE};    }
sub props  { return %{shift->{PROPS}}; }
sub args   { return @{shift->{ARGS}}; }

sub file   { <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	2525	2693	
==>sh(@generated, "$destfile");
                $in_def = '';
                next;
            }
            if ($in_def eq 'def') {
                if (/#define\s+(\w+)\s <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	31598	31702	
==>emp = $self->_generate($_);
    if ($temp =~ /[INS]/) {
      $self->_add_inst('','print',[$temp]);
    } <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	26257	26365	
==>if (<value> <op> <value>) {
    #

    if (m/^}\s*(elsif)\s*\(\s*(.*)\s*\)\s*{$/) {
      $self->begin_block( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	827	926	
==>unless UNIVERSAL::isa($ident, qw(Jako::Construct::Expression::Value::Identifier));

  my $self = ble <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	791	890	
==>unless UNIVERSAL::isa($ident, qw(Jako::Construct::Expression::Value::Identifier));

  my $self = ble <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	26553	26710	
==>m$ldel$pattern$rdel\"
					     may not be a valid regular expression",
					   $_[5]);
		$@ =~ s/ at \(eval.*/./;
		Parse::RecDescent::_hint($@);
	}

	# QUIE <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	1461	1581	
==>m'),
		    $self->new_item('', 'lib/Parrot/Docs/Directory.pm'),
		    $self->new_item('Documentation Sections', 'lib/Parr <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	1568	1689	
==>t pass back the original in that case.  Don't
    # bother warning.  --AD, 12 Sep 2005
    # warn "String to be integrated <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32523	32621	
==>e "pir or instruction must use one of \${STACK0} or \${STOREREG} in rule " .
				"$rule->{'name'}\n <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28965	29257	
==>y $_step = new_tmp( $parser, 'pmc', 'number' );
    push @opcodes, new LocalDir( $parser,
        'result' => $_step,
    );
    my $fct = new defn( 'checkforloop', 'util' );
    push @opcodes, new CallOp( $parser,
        'result' => [ $_var,         $_limit,       $_step ],
        ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	12101	12235	
==>---------------------------
        #   goto OFFSET(X)     {{+=X}}  PC' = PC + X  Used for branches
        #   goto NEXT()        {{+= <==
2	/Users/nnunley/parrot/config/init/defaults.pm	2905	3026	
==>g.  -shared for GNU ld.
        ld_share_flags => $Config{lddlflags},

        # Flags to tell ld to build a dynamically l <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	12033	12148	
==>omment
        #   -----------------  -------  ------------  ----------------------------------
        #   goto OFF <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	3008	3228	
==>iles;
    print F "gcc -lm -o parrot " . (join ' ', @obj_files) . "\n";
    close(F);
}


############################################################################
sub run_command {
    my ($command) = @_;

    print " <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	10373	10572	
==>h rule>>},
					 Parse::RecDescent::_tracefirst($_[1]),
					 q{' . $self->{"name"} .'})
					if defined $::RD_TRACE;').'
		return undef;
	}
	if (!defined($return) && defined($score))
	{'.($::RD_NO_TR <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2243	2391	
==>en->type() eq "start" >>

=item $token->is_text

This is a shortcut for C<< $token->type() eq "text" >>

=item $token->is_end

This is a shortcut for <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	11291	11474	
==>ort)GET_NCI_I($reg_num);";
        return "t_$temp_num";
    };
    /c/ && do {
        push @{$temps_ref}, "char t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$te <==
2	/Users/nnunley/parrot/lib/Test/More.pm	32645	32755	
==>rt them, as long as both arrays are sorted
    # with the same algorithm.
    # Have to inline the sort routine <==
2	/Users/nnunley/parrot/Configure.pl	6397	6523	
==>)      Use the given parser generator

   --define=inet_aton   Quick hack to use inet_aton instead of inet_pton

Parrot Options <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	1	221	
==>ackage Regex::Generate;
use strict;

############### SIMPLE OUTPUT ##############

sub output_nop {
    return "nop";
}

sub output_terminate {
    return "terminate";
}

sub output_increment {
    my $var = shift;
    re <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	49169	49287	
==>ess C<$_> instead.
Omitting the second argument (delimiter brackets) indicates that only C<'{'> is to be used.
Omitting <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	2958	3068	
==>ollowing part of the Makefile was built by 'config/inter/pmc.pm'

E_NOTE

    foreach my $pmc (split(/\s+/, $pm <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	2782	2933	
==>tents =~ /\Q$function_maybe\E/);
        }
	
    }
    close(F);

    print STDERR "$errors parse errors.  " if ($errors);
    print STDERR "Found " . s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4811	4928	
==>$token->is_module) {
      my $block = $self->current_block;

      my $ident = Jako::Construct::Expression::Value::Id <==
2	/Users/nnunley/parrot/config/auto/gc.pm	217	328	
==><--gc> command-line option was passed to F<Configure.pl>
and sets the memory allocator accordingly.

C<--gc> can <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	9273	9398	
==>cpow        complex.h
cpowf       complex.h
cpowl       complex.h
cproj       complex.h
cprojf      complex.h
cprojl      comp <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	1413	1526	
==>ntf("%04x: %08x %08x %08x %08x %s\n",
	    $constant_num, $_->flags, $_->encoding, $_->type,
            $_->size, <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	15033	15151	
==>rectory - but it works.
    
    $self->{NAV_BAR} = $item->html_navigation("$rel_path/$name");
    $self->{RESOURCES_UR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	337636	337889	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "getstdin",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "i <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	4319	4431	
==>opt = '-B';
    $nm_ro = 1;
} elsif ($^O eq 'dec_osf' && $nm_try =~ /Alpha/) { # aka Tru64 aka DEC OSF/1
    $nm_ <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	6148	6544	
==>onf->data->set(
                a              => '.a',
                ar             => 'ar',
                cc             => 'gcc',
                ccflags        => '-DWIN32 ',
                ld             => 'g++',
                ldflags        => '',
                libs           =>
                    '-lmsvcrt -lmoldname -lkernel32 -luser32 -lgdi32 -lwinspool -lcomdlg32 -ladvapi32 <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	4024	4227	
==>data = ",
       2 => "return_data = ",
       4 => "return_data = ",
       l => "return_data = ",
       c => "return_data = ",
       s => "return_data = ",
       f => "return_data = ",
       d => "r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645849	645950	
==>r->vtables[{{\@2}}]->whoami;\n    else\n\t\t{{\@1}} = Parrot_get_datatype_name(interpreter, {{\@2}});\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646746	646847	
==>r->vtables[{{\@2}}]->whoami;\n    else\n\t\t{{\@1}} = Parrot_get_datatype_name(interpreter, {{\@2}});\ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	51	149	
==>eeps track of the current stack depth and assigns to
# virtual registers numbered by depth. This el <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	51	149	
==>eeps track of the current stack depth and assigns to
# virtual registers numbered by depth. This el <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	6835	6961	
==>OKENS}}, @tokens;
}


#
# slurp_file()
#

sub slurp_file
{
  my $self = shift;
  my ($file) = @_;

  my $fh = FileHandle->new($ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3570	3676	
==>SYNTAX_ERROR("Sub declaration has no fnlib property, and parent block is not a module!")
        unless $se <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6234	6340	
==>SYNTAX_ERROR("Sub declaration has no fnlib property, and parent block is not a module!")
        unless $se <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	87	255	
==>19593 2006-05-30T02:28:15.110975Z coke  $

package init::hints::mswin32;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    my ($cc, $ccflags, $libs) = $conf-> <==
2	/Users/nnunley/parrot/examples/benchmarks/oo5.pl	216	339	
==>20 ], $self;
}

sub i {
    my $self = shift;
    if (@_) { $self->[0] = shift } else { $self->[0] }
}

sub j {
    my $self <==
2	/Users/nnunley/parrot/examples/benchmarks/oo6.pl	208	331	
==>20 ], $self;
}

sub i {
    my $self = shift;
    if (@_) { $self->[0] = shift } else { $self->[0] }
}

sub j {
    my $self <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	4917	5070	
==>, $c, $cmt) = @_;
   print "#Unknown '$cmt'\n";
}

sub Label {
   my ($n, $c) = @_;
   print <<EOC;
pc_$n:
EOC
}

sub New_func {
    my ($n, $arg, $cmt) = <==
2	/Users/nnunley/parrot/languages/regex/test.pl	3661	3771	
==>y $status = system("$PARROT_EXE", "-o", $pbc, $pir);
    if (! defined($status) || $status) {
        die "asse <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10077	10200	
==>g & 0x10
#DBG>		and	print STDERR "**Pop state $$stack[-1][0].\n";

			pop(@$stack);
		}

			@$stack
		or	do {

#DBG <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9627	9741	
==>g & 0x10
#DBG>		and	print STDERR "**Pop state $$stack[-1][0].\n";

			pop(@$stack);
		}

			@$stack
		or	do {

#DBG <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	1579	1693	
==>along with a test number (it
keeps track of that for you).

  # This produces "ok 1 - Hell not yet frozen over" (or <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	20144	20278	
==>and print "    Now: ", $i-1, ":[$treelet->[$i-1]]\n";
        --$i;
        next; 
        # since we just pulled the possibly last nod <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811532	811791	
==>_pmc_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812434	812693	
==>_pmc_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	2076	2175	
==>e->{children}} - 1;

  confess "$name: Wrong number of arguments (expected $expected, got $args).\n" <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	3407	3517	
==>y are ANDed.
They can also be negated with a "no", for example --noconst.
[1] Not all platforms support this, a <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	7304	7409	
==>match of this subtree?
    if (($t->minlen() || 0) > $guarantee) {
        my $newtree = $self->add_checks <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6706	6848	
==>) {
        $value = Jako::Construct::Expression::Value->new($block, $self->require_literal);
      }

      $self->require_semicolon;

      $ <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	6343	6468	
==>ned up by Matt Diephouse.

Many thanks to the author of F<pmc2c.pl>, many useful code pieces got
reused.

=cut

use strict;
us <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	2196	2324	
==>t
        $conf->data->set('libs',      $libs);
        $conf->data->set('ccflags',   $ccflags);
        $conf->data->set('linkfl <==
2	/Users/nnunley/parrot/config/auto/readline.pm	1996	2124	
==>t
        $conf->data->set('libs',      $libs);
        $conf->data->set('ccflags',   $ccflags);
        $conf->data->set('linkfl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787931	788020	
==>=> "#line 422 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed_int(int <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788841	788930	
==>=> "#line 422 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed_int(int <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	10750	10865	
==>lL]$//;
	print <<EOC;
	$pmc = new .BigInt $cmt
	$pmc = "$c"
EOC
	push @stack, [$n, $pmc, 'P'];
	return;
    }
    el <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	7785	7897	
==>->{class};
    # and alias vtable
    $const->{vtable} = $self->{vtable};
    # set parentname
    $const->{paren <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	4316	4487	
==>em.Windows.Forms ### XXX Removed - bugz0r
        my $code = "";
        foreach (@libs) {
            $code .= "\t\$(PARROT) -G net2pbc.pbc -f -p \"$mono_class_lib/$_.d <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16515	16690	
==>all' => 31,
			'tableconstructor' => 32,
			'var' => 35,
			'_field_plus' => 93,
			'field' => 89
		}
	},
	{#State 39
		DEFAULT => -81
	},
	{#State 40
		ACTIONS => { <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	51544	51771	
==>line 267 "Lua\lua51.yp"
{
            [
                BuildVariable( $_[0], $_[1] ),
            ];
        }
	],
	[#Rule 45
		 'var', 1,
sub
#line 276 "Lua\lua51.yp"
{
            [ $_[1] ];
        }
	],
	[#Ru <==
2	/Users/nnunley/parrot/languages/APL/t/APL.pm	304	440	
==>t::Test;

our @EXPORT = qw(run_apl_is);

BEGIN {
  # APL *really* needs unicode to function, bail out if we don't have it.
  if (!$PConfi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211795	212216	
==>,
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 249,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 416 \"src/ops/cmp.ops\"\n  if (mmd_di <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	19828	19933	
==>s to export for dynamic PMCs.
Currently unused, but retained for being a basis for supporting
platforms th <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	632	732	
==>ct::Block));
  confess "Type (" . ref($type) . ") is not!"  unless UNIVERSAL::isa($type, qw(Jako::Con <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	623	721	
==>ct::Block));
  confess "Type (". ref($type) . ") is not!" unless UNIVERSAL::isa($type, qw(Jako::Con <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627516	627812	
==>{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628660	628956	
==>{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  " <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	800	904	
==>ent = 0;

my $ops = new Parrot::OpsFile (split(' ', $PConfig{ops}));


#
# dump_const_table()
#

sub dump <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	451	549	
==>eaderizer.pl OBJFILES

=head1 DESCRIPTION

=head1 TODO

* Tell if there are funcs without docs

* G <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	4928	5021	
==>e
C<Digest::Perl::MD5>.

You can also install the Perl part of Digest::MD5 together with Diges <==
2	/Users/nnunley/parrot/config/gen/PodText.pm	1013	1224	
==>rgs = qw(verbose);

sub runstep
{
    my ($self, $conf, %docs) = @_;

    my $verbose = $conf->options->get('verbose');

    my $parser = Pod::Text->new(width => 79);

    my $count = 0; # number of processed fil <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	28613	28739	
==>));
        }
    } elsif (UNIVERSAL::isa($op, "Regex::Ops::List")) {
        return ($lastback, $op);
    } else {
        $DB <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	5256	5379	
==>ub out of range at $sourceline\\n"
	_platform_shutdown()
	end
ONOK_${ons}:
ON
	$i=1;
	for my $jumps (@onlab) {
		push @{$cod <==
2	/Users/nnunley/parrot/examples/benchmarks/freeze.pl	221	431	
==>1 SYNOPSIS

    % time perl examples/benchmarks/freeze.pl

=head1 DESCRIPTION

Freeze/thaw a C<ResizablePMCArray>. Uses C<Storable> to archive the array.

=cut

use strict;
use warnings;

use Storable qw( freeze <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	1823	2084	
==>hitespace
            $line =~ s{ ^ \s+ }{}xms;
            $line =~ s{ \s+ $ }{}xms;

            if ( $line =~ $blank_before ) {
                push @output, [ 1, q{} ];
            }

            if ( $line ne q{} ) {
                if ( $line =~ $block_end <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	16809	16935	
==>nplace
{
    my ($op, $cmt) = @_;
    my $r = pop @stack;
    my $l = pop @stack;
    print <<"EOC";
	$l->[1] $op= $r->[1] $cmt <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6320	6441	
==>e');          }

sub require_value         { return shift->require('ident', 'literal'); }


#
# skip()
#
# Skips the token <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	3715	3849	
==>reg {
    my ($self, $reg) = @_;
    return "restore $reg";
}

sub output_comment {
    my ($self, $string) = @_;
    return map { "# $ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/EditorPlugins.pm	379	478	
==>ns.

=head2 Class Methods

=over

=cut

package Parrot::Docs::Section::EditorPlugins;

use strict;
u <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955871	955961	
==>s\"\n  {{\@1}} = string_copy(interpreter, Parrot_encoding_name(interpreter, {{\@2}}));\n  { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956683	956773	
==>s\"\n  {{\@1}} = string_copy(interpreter, Parrot_encoding_name(interpreter, {{\@2}}));\n  { <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2399	2537	
==>owm
}

##
## my $var = choose(@vars)
##
## Select the first defined variable.
##
sub choose {
    for (@_) {
        return $_ if defined $ <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	5678	5882	
==>ne',
             'i_sysin' => undef,
             'i_sysioctl' => 'define',
             'i_syslog' => 'define',
             'i_sysmman' => 'define',
             'i_sysmode' => undef,
             'i_sy <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106267	1106351	
==>terpreter->n_vtable_max)\n\treal_exception(interpreter, NULL, E_ValueError,\n\t\t\"ty <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107243	1107327	
==>terpreter->n_vtable_max)\n\treal_exception(interpreter, NULL, E_ValueError,\n\t\t\"ty <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	2230	2368	
==>entation.

If C<$silent> is true then progress is not reported.

If C<$delete> is true then the contents of C<$target> will be deleted
befo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627491	627753	
==>table->init(interpreter, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628635	628897	
==>table->init(interpreter, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/lib/Test/More.pm	19939	20113	
==>are, $why and under what $condition to skip them.  An example is
the easiest way to illustrate:

    SKIP: {
        eval { require HTML::Lint };

        skip "HTML::Lint not <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	880	986	
==>=head1 NAME

Pod::Simple::PullParserStartToken -- start-tokens from Pod::Simple::PullParser

=head1 SYNOPSI <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	7033	7208	
==>cu\Wsource/; # icu cleanup code above needs work
	return if -d $_;
	return if -B $_;
	push(@files,$name);
    }, ".");
    return @files;
}

sub clip_excess_lines {
    my $cnt <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	793	989	
==>ExtUtils::Manifest;
use File::Spec;
use Parrot::Revision;
use Parrot::Configure::Step qw(capture_output);

use Parrot::Docs::Directory;
use base qw(Parrot::Docs::Directory);

=item C<new()>

Search <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719982	720075	
==>{{\@2}});\n  PIO_putps(interpreter, io, s);\n  if (string_str_index(interpreter, s,\n\tconst_s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721182	721275	
==>{{\@2}});\n  PIO_putps(interpreter, io, s);\n  if (string_str_index(interpreter, s,\n\tconst_s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864170	864437	
==>er, {{\@2}}));\n  }\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	865062	865329	
==>er, {{\@2}}));\n  }\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33673	33932	
==>'CallOp') )
    {
        push @opcodes2, @{ $expr->[1] };
        my $callop = pop @opcodes2;
        my $ass    = pop @opcodes2;
        my $decl   = pop @opcodes2;
        $callop->{result} = \@return1;
        push @opcodes2, $callop;
    }
    pu <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	42250	42353	
==>ged
	{
		my $text = shift;
		$extractor = gen_extract_tagged(@_);
		return $extractor->($text);
	}

(alt <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20609	20749	
==>R] eq "COMM";
				feedme;
			}
			$sourceline++;
		}
		feedme;   # Collect the "type"
		$usertypes{$typename}=[ @types ];
		print CODE <<TYPE <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	5101	5266	
==>undef,
             'i_setjmp' => 'define',
             'i_sfio' => undef,
             'i_sgtty' => undef,
             'i_shadow' => undef,
             'i_signal' <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	5244	5335	
==>lf->path);
		$self->{POD_ERRORS_COUNT} = $checker->errors_seen;
		$self->{CONTAINS_POD} = $c <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	1110	1249	
==>Request visibility of all POSIX symbols
        # _XOPEN_SOURCE=600 doesn't work with glibc 2.1.3
        # _XOPEN_SOURCE=500 gives 2 undefi <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	44208	44341	
==>(@args);
      $self->_restore(@args);
    }
  } else {
    my $value = $node->{value};
    if ($value =~ /^[a-zA-Z]/) {
      $return <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	670	863	
==>confess "Unrecognized type '$type' (tree=$tree)";
    my $function = "convert_$stem";
    return $self->$function($tree, $ctx);
}

sub convert_rule {
    my ($self, $tree, $ctx) = @_;
    return <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18065	18198	
==>{
}

sub _op_memv {
}

sub _op_member {
}

sub _op_assq {
}

sub _op_assv {
}

sub _op_assoc {
}

sub _op_symbol_p {
}

sub _op_symbol <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	1198	1319	
==>elf->{RESOURCES_URL};
    $self->{NAV_BAR} = '' unless $self->{NAV_BAR};
    
    my $title = $self->{'Title'};
    esc($t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061802	1062119	
==>nt_namespace;\n    {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_namespace",
                  "FLAGS" => "",
                  "ARGDIRS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357133	357385	
==>"function",
                  "CODE" => 417,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 240 \"src/ops/io.ops\"\n  PIO_eprintf(interpreter, INTVAL_FMT, {{\@1}});\n  { <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	2910	3002	
==><Parrot::Docs::Section::PMCs>

=item C<Parrot::Docs::Section::DynaPMCs>

=item C<Parrot::Docs <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14729	14888	
==>^\s+//;
  return $title;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
#
#  Methods that actually do work at parse-time:

su <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16796	16961	
==>nd $self->get(1)->is_assign
      and $self->get(2)->is_value
      and $self->get(3)->is_infix_concat
      and $self->get(4)->is_value
    ) {
      my $block = $se <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2905	3021	
==>@_;
	my $register_num = 0;
	my $push_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop st <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1827	1943	
==>@_;
	my $register_num = 0;
	my $push_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and pop st <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	876	1012	
==>rom CVS.

=cut

main();

##
## main()
##
sub main {
    usage() and exit if $opt_h;
    checkout_tests() and convert_tests() if not -d $D <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824247	824342	
==>ine 133 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CON <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825318	825413	
==>ine 133 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CON <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38449	38597	
==>> "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "A <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39313	39461	
==>> "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "A <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946147	946284	
==>"
                            ],
                  "BODY" => "#line 521 \"src/ops/string.ops\"\n  {{\@1}} = string_copy(interpreter, Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1068803	1069299	
==>=> ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1193,
                  "ARGS" => [
                              "i",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 49 \"src/ops/experiment <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	1073	1293	
==>oatvalsize => 8,
            int2_t           => 'int',
            int4_t           => 'int',
            float4_t         => 'double',
            float8_t         => 'double',
        );
        $self->set_result('usin <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2976	3135	
==>$type, $str );
}

sub _SingleQuoteStringLexer {
    my $parser = shift;
    my $str    = q{};
    my $type   = 'STRING';

    while ( $parser->YYData->{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	42667	42782	
==>just doing
     # a join("\n", ...) on the contents, so we have to append a
     # newline to ever line, and then ni <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2648	2765	
==>";
    my $silent = shift || 0;
	my $index_html = '';
	
	print "\n\n", $self->name unless $silent;
	
	foreach my $cont <==
2	/Users/nnunley/parrot/lib/Test/More.pm	20191	20328	
==>nt, "HTML::Lint" );

        $lint->parse( $html );
        is( $lint->errors, 0, "No errors found in HTML" );
    }

If the user does not <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9505	9620	
==>der 0x80 that aren't legal in an XML Name.
        or $new_code =~ m/^[-\.0-9]/s
        or $new_code =~ m/:[-\.0-9] <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10769	10884	
==>der 0x80 that aren't legal in an XML Name.
        or $new_code =~ m/^[-\.0-9]/s
        or $new_code =~ m/:[-\.0-9] <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	3691	3889	
==>esult, $a2, $a1", $result);
		} else {
			return("\t$result = $a1 + $a2", $result);
		}
	},
	'-' => sub {
		return("\t$_[2] = $_[1] - $_[0]", $_[2]);
	},
	'*' => sub {
		return("\t$_[2] = $_[0] * $_[ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	30623	30742	
==>= CUR_OPCODE;\n    parrot_context_t *ctx;\n    PMC *ccont;\n    PMC *signature = {{\@1}};\n    INTVAL argc;\n\n    inter <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	8006	8131	
==>bs        complex.h
cabsf       complex.h
cabsl       complex.h
cacos       complex.h
cacosf      complex.h
cacosh      comple <==
2	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1175	1285	
==>rv => \%request);
  if($resp->is_success) {
    if($resp->content =~ /^ok/) {
      debug "success!\n";
      e <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	6622	6789	
==>nguages/regex/Makefile',
        commentType                     => '#',
        replace_slashes                 => 1
    );
    genfile(
        'config/gen/makefiles/ <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1378	1468	
==>X1^X2^X3)+X0+X4+X6$MSK,X5)+X1$MSK;",
	II => "X0=rotate_left((X2^(X1|(~X3)))+X0+X4+X6$MSK,X5 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596856	597128	
==>,
                  "ARGS" => [
                              "p",
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 337 \"src/ops/object.ops\"\n  {{\@1}} = VTABLE_subclass(interpreter, { <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	10692	10788	
==>tr :$depends) returns Bool`

*NOTE:* This function currently uses `require()` since Pugs does not <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	4024	4176	
==>ocate enternative op!\n" unless defined $enternative;

    # Copy original bytecode to edit it
    $byte_code = $pf->byte_code;

    # First block
    pu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760923	761186	
==>0,
                  "NAME" => "setp_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761775	762038	
==>0,
                  "NAME" => "setp_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
2	/Users/nnunley/parrot/lib/Test/More.pm	34272	34388	
==>iled (including missing or extras)

If you fail more than 254 tests, it will be reported as 254.

B<NOTE>  This behav <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	29937	30059	
==>> tag. Such a prefix
pattern will only succeed if the <H1> tag is on the current line, since
. normally doesn't match newli <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	10689	10885	
==>match_variable($textref,$pre);

	return _fail wantarray, $textref unless @match;

	return _succeed wantarray, $textref,
			@match[2..3,4..5,0..1];		# MATCH, REMAINDER, PREFIX
}

sub _match_variable <==
2	/Users/nnunley/parrot/config/inter/progs.pm	693	828	
==>acc maintainer);

sub runstep
{
    my ($self, $conf) = @_;

    my ($cc, $cxx, $link, $ld, $ccflags, $ccwarn, $linkflags, $ldflags, $li <==
2	/Users/nnunley/parrot/tools/dev/symlink.pl	664	950	
==>$v);

if ($toolsrcdir ne '' && -d $toolsrcdir && lc $toolsrcbase eq 'symlink.pl') {
    my $trydir  = File::Spec->catdir("include", "parrot");
    my $tryfile = File::Spec->catfile("src", "parrot.c");
    die "$0: Do not run this under the original Parrot tree.\n"
	if (-d $trydir) && (- <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1428	1549	
==>en->tagname...
    
    }
  }

(Also see L<Pod::Simple::PullParser>)

=head1 DESCRIPTION

When you do $parser->get_token o <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Continue.pm	185	327	
==>ges/jako/lib/Jako/Construct/Block/Loop/Continue.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako: <==
2	/Users/nnunley/parrot/examples/benchmarks/addit.pl	582	695	
==>_[$a];
    }
    return $sum
}
my $result = 0;
my @args;
$args[0] = 1000;
$args[1] = 7.100;
$args[2] = 87;
$args[3 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	61663	61990	
==>reduces, accept...)
        #    0x08         Parse Stack dump
        #    0x10         Error Recovery tracing
    );

    close $parser->YYData->{fh};
    delete $parser->{RULES};
    delete $parser->{STATES};
    delete $parser->{STACK};
}

sub Generate {
    my $parser = shift;

    my $filename = $parser->YY <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	2265	2510	
==>ether to pointedly
                       # suppress the start_line attribute
                      
  'line_count',        # the current line number
  'pod_para_count',    # count of pod paragraphs seen so far

  'no_whining',        # whether t <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	499	625	
==>ST' },
  'if'       => { PREFIX => "_I", NEXT => 'TEST', REDO => 'THEN', LAST => 'ELSE' },
  'sub'      => { PREFIX => "_S", NE <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	520	646	
==>ST' },
  'if'       => { PREFIX => "_I", NEXT => 'TEST', REDO => 'THEN', LAST => 'ELSE' },
  'sub'      => { PREFIX => "_S", NE <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	11495	11612	
==>$command = join " ", @_;

    # disable STDERR
    open OLDERR, ">&STDERR";
    open STDERR, ">test.err";

    my $out <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	5983	6093	
==>pe{qw(bsd long)} = ();
$Type = 'bsd' if $BSD ||
		 (defined $Type && $Type eq '1'); # So they used --t.
$Type = <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	10457	10644	
==>_meth = overload::Method($$thing, '""') ) {
                    $$thing = $$thing->$string_meth();
                }
            }
        };
    }
}


=item B<is_eq>

  $Test->is_eq($got, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	31362	31523	
==>,
        $trymatch => $self->startup($num_groups),
                     @R_ops,
                     @save_rxlocals,
                     aop('getstart', [ '<tmp <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr3.pm	645	853	
==>s/${pir_fn}" );
}
 

sub skip_why {
    my $self = shift;
    my ( $options ) = @_;

    if ( $options->{with_antlr3} ) {
        return;
    } else {
        return 'Not implemented with ANTLR3';
    }
}
 

1 <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	682	849	
==>init>

=item C<-i>

List the initialised data symbols.

=item C<--uninit>

=item C<-u>

List the uninitialised data symbols.

=item C<--const>

=item C<-C>

List the co <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	11715	12043	
==>EFAULT => -45
	},
	{#State 5
		DEFAULT => -15,
		GOTOS => {
			'@3-1' => 19
		}
	},
	{#State 6
		ACTIONS => {
			'NAME' => 20
		},
		GOTOS => {
			'namelist' => 21
		}
	},
	{#State 7
		ACTIONS => {
			";" => 22
		},
		DEFAULT => -6,
		GOTOS => {
			'_semicolon_opt' => 23
		}
	},
	{#State 8
		ACTIONS => <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15141	15233	
==>er{$name})>.

=head1 SEE ALSO

L<perlpod|perlpod>

L<perlpodspec|perlpodspec>

L<Text::Unidec <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	30559	30696	
==>elimited> it can be simplified to:

	($extracted,$remainder) = extract_delimited($text, "'");

C<extract_delimited> takes up to four scala <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	13362	13481	
==>40,
		GOTOS => {
			'classpieces' => 30
		}
	},
	{#State 15
		DEFAULT => -38
	},
	{#State 16
		DEFAULT => -28,
		GOTOS = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	13899	14037	
==>a_text_content =~ m/\S/
          and ($max_content_length
           ? (length($para_text_content) <= $max_content_length)
           : 1) <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	7734	7910	
==>s &Test::todo_isnt &Test::todo_cmp_ok &Test::todo_eval_is &Test::todo_isa_ok ', $?CALLER::CALLER::SUBNAME ~ ' ') >= 0) {
        Test::diag("  $wanted: '" ~ ($expected.defined ? <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	20171	20355	
==>N-match!\n";
        } else {
          $dont_ignore = 1;
          $para->[1]{'target_matching'} = '!';
          DEBUG > 2 and print " But the leading ! means that this IS a match!\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365028	365312	
==>ion",
                  "CODE" => 427,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 303 \"src/ops/io.ops\"\n  if ({{\@2}} && {{\@1}}) {\n    PIO_putps(interpreter, { <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	1416	1553	
==>s())
        {
            next if defined $ignore and $dir->name =~ /$ignore/;
            
            push @files, $dir->files_of_type( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1152	1272	
==>if ($self->content) {
      $compiler->emit(".namespace ${namespace}");
      $compiler->indent;
      $self->SUPER::comp <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	381	482	
==>lue for M ops/s (million operations per second) using
integer arithmetic.

Prints out:

=over 4

=item <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	377	478	
==>lue for M ops/s (million operations per second) using
integer arithmetic.

Prints out:

=over 4

=item <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615577	615985	
==>,
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 697,
                  "ARGS" => [
                              "i",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 508 \"src/ops/object.ops <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85521	85616	
==>int(interpreter,\n      interpreter->iglobals, IGLOBALS_COMPREG_HASH);\n  {{\@1}} = VTABLE_get_p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86428	86523	
==>int(interpreter,\n      interpreter->iglobals, IGLOBALS_COMPREG_HASH);\n  {{\@1}} = VTABLE_get_p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549054	549179	
==>situation. */\n  INTVAL i = {{\@2}};\n  FLOATVAL q = 1;\n  while(i>0) {\n    q = q*i;\n    i--;\n  }\n  {{\@1}} = q;\n  {{+=3} <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15328	15487	
==>xpected, Str $desc?) returns Bool;
  multi sub is_deeply (Hash  %got, Hash  %expected, Str $desc?) returns Bool;
  multi sub is_deeply (Pair  $got, Pair  $expec <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	14894	15045	
==>"Float" && $type2 eq "Float") {
          # scalar to scalar..
            $template .= interpolate($code, 'op1', 'op2');
        } elsif ($type1 eq "AP <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1768	1961	
==>T:");
  }
  else {
    $self->INTERNAL_ERROR("Unrecognized kind of block '%s'", $kind);
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  if (not $self->pr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	66272	66461	
==>6,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 989 \"src/ops/core.ops\"\n  {{\@1}} = VTABLE_get_pmc_keye <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	23018	23181	
==>pdb_f = per_test('.pdb', $test_no);
            my $ilk_f = per_test('.ilk', $test_no);

            open my $SOURCE, '>', $source_f or die "Unable to open '$source <==
2	/Users/nnunley/parrot/config/auto/socklen_t.pm	593	705	
==>len_t = $Config{d_socklen_t};
    my $has_socklen_t = ( $d_socklen_t && $d_socklen_t ne 'undef' ) ? 1 : 0; 
    $ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	53708	53816	
==>ing has been completely 
processed.

Note that in scalar and void contexts the value of this argument is 
aut <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556759	556878	
==>t = object;\n  interpreter->current_cont = {{\@3}};\n  interpreter->current_method = VTABLE_get_string(interpreter, meth <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	512729	512945	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o", <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	11392	11479	
==>rrotClass ParrotObject OS File AddrRegistry Bound_NCI deleg_pmc Enumerate FixedBooleanAr <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8252	8443	
==>um_of_tests_run");
    }
    elsif ($Test::num_of_tests_planned != $Test::num_of_tests_run) {
        $*ERR.say("# Looks like you planned $Test::num_of_tests_planned tests, but ran $Test::num_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	5966	6076	
==>.

See also: get_symbol(), which searches only locally.

=cut

sub find_symbol
{
  my $self = shift; # Required <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	21097	21239	
==>.:.:.

sub _remap_sequences {
  my($self,@stack) = @_;
  
  if(@stack == 1 and @{ $stack[0] } == 3 and !ref $stack[0][2]) {
    # VERY common c <==
2	/Users/nnunley/parrot/config/init/hints/darwin.pm	689	971	
==>gs             => $ccflags,
        ldflags             => $ldflags,
        ccwarn              => "-Wno-shadow",
        libs                => $libs,
        share_ext           => '.dylib',
        load_ext            => '.bundle',
        link                => 'c++',
        l <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	1858	1963	
==>ude "parrot/parrot.h"
#include "parrot/string.h"
END_C

    print $trans->defines;
    print $ops->preambl <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15297	15412	
==><32768)?ord($1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # return a single scalar
    ($x = ((@_ == 1 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16478	16593	
==><32768)?ord($1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # return a single scalar
    ($x = ((@_ == 1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	375286	375787	
==>stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 439,
                  "ARGS" => [
                              "i",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 427 \"sr <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	3160	3258	
==>::Libs>

=item C<Parrot::Docs::Section::Tools>

=item C<Parrot::Docs::Section::BigNum>

=item C<Par <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	73436	73562	
==>{fulltextlen} = length $text;
	$_[0]->{deferred} = [];
	$_[0]->{errors} = [];
	my @args = @_[3..$#_];
	my $args = sub { [ @args <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	19084	19252	
==>h_table('', @rules_grouped);

    # Emit unknown instruction code.
    $pir .= <<PIRCODE;
INS_NOT_FOUND_ERROR:
    ex = new Exception
	err = "Attempt to translate unknow <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	4552	4696	
==>xpected_Tests} = 0;

    $self->{Skip_All}   = 0;

    $self->{Use_Nums}   = 1;

    $self->{No_Header}  = 0;
    $self->{No_Ending}  = 0;

    $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131723	132285	
==>S" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 162,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 306 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  " <==
2	/Users/nnunley/parrot/config/auto/gc.pm	1817	1914	
==>\$(SRC_DIR)/res_lea\$(O):	\$(GENERAL_H_FILES) \$(SRC_DIR)/res_lea.c
EOF
            TEMP_gc_o => " <==
2	/Users/nnunley/parrot/config/auto/gc.pm	2108	2205	
==>\$(SRC_DIR)/res_lea\$(O):	\$(GENERAL_H_FILES) \$(SRC_DIR)/res_lea.c
EOF
            TEMP_gc_o => " <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28883	28989	
==>or \${LOADREG} in rule " .
				"$rule->{'name'}\n";
        } elsif ($rule->{'instruction'} =~ /\$\{DEST0\} <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	4036	4347	
==>dingSheep == 1,        'NumExplodingSheep() get' );

It will produce output like this:

    1..5
    ok 1 - new() works
    ok 2 - Title() get
    ok 3 - Director() get
    not ok 4 - Rating() get
    #    Failed test (t/film.t at line 14)
    ok 5 - NumExplodingSheep() get
    # Looks like you failed 1 tests o <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	13375	13500	
==>> {
			'classpieces' => 30
		}
	},
	{#State 15
		DEFAULT => -38
	},
	{#State 16
		DEFAULT => -28,
		GOTOS => {
			'rulename' = <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	7158	7280	
==>tware
or this function.

License is also granted to make and use derivative works provided
that such works are identified a <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25179	25322	
==>xpr="1.0";
	}
	$main::code{$main::seg}->{declarations}->{"FORLOOP_END_$forloop"}=1;
	$main::code{$main::seg}->{declarations}->{"FORLOOP_STEP_$fo <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21135	21320	
==>f->{'content_seen'} ||= 1;
        $self->_handle_element_start(($scratch='for'), $para->[1]);
      }

      next;
      
    } elsif($para_type eq '=end') { #////////////////////////// <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	1191	1336	
==>pes} # lots of noise!
EOF
    }

    close CFLAGS;
}

sub makefiles
{
    my ($self, $conf) = @_;

    genfile(
        'config/gen/makefiles/root <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6842	6951	
==>ed_dest = shift;
	my $pir = "";

	# If we need a destination, we simply supply the register to load
	# into he <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4780	4889	
==>ed_dest = shift;
	my $pir = "";

	# If we need a destination, we simply supply the register to load
	# into he <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	624005	624219	
==>urns_pc);\n    ((void**)cur_opcode)[1] = mic->m.sig;\n    {{+=0}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	7674	7808	
==>ed, $fix);
    local *OP;
    $fix = 1;
    open OP, "< $file" or die "Can't open $file, error $!";
    while (<OP>) {
        push @li <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6492	6585	
==>$syms[CURR]);
		push @{$code{$seg}->{code}}, "$labels{$syms[CURR]}:   # For user branch ($syms <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8772	8865	
==>$syms[CURR]);
		push @{$code{$seg}->{code}}, "$labels{$syms[CURR]}:   # For user branch ($syms <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214059	214404	
==>ODY" => "#line 448 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_CMP) > 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	1362	1556	
==>"$var\"]=$var\n";
			} else {
				print CODE "\t.local float $var\n";
				push @init, qq{\t\t$var=0.0\n};
				push @debdecl, "\t\t\$S0=$var\n\t\t\$P1[\"$var\"]= \$S0\n";
			}

		}
	}
	#print CODE <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	7703	7834	
==>label}: ";
            } else {
                $_->{name} . " " . join(", ", map { ref($_) ? $_->{label} : $_ } @{ $_->{args} || [] <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54338	54482	
==>0\x21\x23\x27-\x3F\x41-\x5B\x5D-\x7E])>
         #<$pretty_form{$1} || '\\x'.(unpack("H2",$1))>eg;
         <$pretty_form{$1} || '\\x{'.sprintf(" <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	31536	31790	
==>\t$cmt
EOC
    }
}

sub BREAK_LOOP
{
    my ($n, $c, $cmt) = @_;
    my $pc = pop @loops;
    print <<EOC;
	goto $pc $cmt
EOC
}

sub BUILD_CLASS
{
    my ($n, $c, $cmt) = @_;
    my $parent_tuple = pop @stack;
    my $tos = pop @stack;
    my $cl = temp(' <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36687	36839	
==>" => 79,
			"/" => 82
		},
		DEFAULT => -67
	},
	{#State 142
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	622454	622823	
==>pic_set_returns__",
                  "FLAGS" => ":pic",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 701,
                  "ARGS" => [
                              "pc"
                            ],
                  "BODY" => "#line 189 \"s <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	16632	16778	
==>content = join "\n", @{$para}[2 .. $#$para];

  if($content =~ m/^\s*\*\s*$/s or $content =~ m/^\s*$/s) {
    # Like: "=item *", "=item   *   ", "= <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	5745	5883	
==>extref;
				pos $$textref = $startpos;
			        return;
			}
			last if $#nesting < 0;
		}
		elsif ($qdel && $$textref =~ m/\G([$qdel])/g <==
2	/Users/nnunley/parrot/lib/Test/More.pm	27436	27547	
==>sa($thing, $type);
    }

    return '';
}


=head2 Discouraged comparison functions

The use of the following f <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2411	2523	
==>eturn ("print $what;");
}

sub output_test {
    my ($self, $test, $val1, $val2, $dest) = @_;
    $val1 = value($ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2728	2839	
==>eturn ("print $what");
}

sub output_test {
    my ($self, $test, $val1, $val2, $dest) = @_;
    $val1 = value($ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3102	3236	
==>f;	#Invalid index
}

sub YYCurtok {
	my($self)=shift;

        @_
    and ${$$self{TOKEN}}=$_[0];
    ${$$self{TOKEN}};
}

s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2952	3075	
==>f;	#Invalid index
}

sub YYCurtok {
	my($self)=shift;

        @_
    and ${$$self{TOKEN}}=$_[0];
    ${$$self{TOKEN}};
}

s <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1984	2090	
==>abel before translating
	# every instruction) to see if we need to instate a stack type state
	# that was p <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1383	1489	
==>abel before translating
	# every instruction) to see if we need to instate a stack type state
	# that was p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50132	50234	
==>if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_PROFILE_FLAG); }\n  else         { Interp_fla <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50925	51027	
==>if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_PROFILE_FLAG); }\n  else         { Interp_fla <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	944	1167	
==>)
# O (nop)

sub compile {
    my ($self, $expr, $ctx) = @_;
    my ($vals, $types) = Regex::Grammar::tokenize($expr);
    my $lexer = sub {
#        print "TOK($vals->[0]) TYPE($types->[0])\n" if @$vals;
        return shif <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	4909	5094	
==>lf->c_pair_item('', 'pmc_freeze'),
        ),
        $self->new_group(
            'Objects', 
            '',
            $self->c_pair_item('', 'objects'),
        ),
        $self->n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022845	1023128	
==>0,
                  "NAME" => "decodelocaltime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023694	1023977	
==>0,
                  "NAME" => "decodelocaltime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9196	9331	
==>om do_beginning...\n";
  return 1;
}

sub version_tag_comment {
  my $self = shift;
  return sprintf
   "<!-- generated by %s v%s, using <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	1044	1169	
==>e_branch {
	die "pre_branch not implemented for current stack to register mapper\n";
}
sub post_branch {
	die "post_branch not <==
2	/Users/nnunley/parrot/Configure.pl	5856	5970	
==>en compiler
   --ccflags=(flags)    Use the given compiler flags
   --ccwarn=(flags)     Use the given compiler war <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6511	6629	
==>t may be directly linked to.

=cut

sub is_docs_link
{
	my $self = shift;

	# TODO - This needs more thought. I'm tryin <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4394	4501	
==>2, EQ_$eqnum
	set $result, 1.0
EQ_$eqnum: noop
CODE
	},
	'or' => sub {
		my($a1,$a2,$result,$op,$ot1,$ot2)=@ <==
2	/Users/nnunley/parrot/tools/dev/pbc_header.pl	1097	1353	
==>n IN, $version_file or die "Can't read $version_file";
    my $v = <IN>;
    close IN;
    $v =~ /^(\d+)\.(\d+)/;
    ($1, $2);
}

sub update_fp {
    my $fp = get_fp;
    my ($major, $minor)  = get_version;
    for my $f (@ARGV) {
	open F, "+<$f" or die "C <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	10749	10861	
==>dprint($fd, "\\n");
	}
	barf();
}
sub parse_read {
	while($type[CURR] !~ /COMP|COMM|STMT/) {
		push @{$code{$seg} <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	31536	31777	
==>r = concat dest0
gen_pir = concat " = clone "
gen_pir = concat stack0
gen_pir = concat "\\n"
$post_op
$label:
PIR
        }
	}
	
	# Stores (store class).
	elsif ($rule->{'class'} eq 'store') {
		# Does the translator code actually store a val <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	35454	35575	
==>stuff...
      # "With the ill behavior, with the ill behavior, with the ill behavior..."

      DEBUG > 1 and print "Runn <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11178	11278	
==>ction factorial(a)
	if a then factorial=a*factorial(a-1) else factorial=1
end function
T=factorial(5) <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	11248	11343	
==>e<...>.\n";
  }
  
  return;
}


#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/config/auto/isreg.pm	71	165	
==>uto/isreg.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/isreg - S_ISRE <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	2394	2575	
==>thod          => $2,
                unimplemented   => $3 ? 1 : 0,
                body            => ''
            };

        # Have we got a blank line that we should skip over? <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2177	2287	
==>{DEBUG}) {
		_DBLoad();
		$retval = eval '$self->_DBParse()';#Do not create stab entry on compile
        $@ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2096	2203	
==>{DEBUG}) {
		_DBLoad();
		$retval = eval '$self->_DBParse()';#Do not create stab entry on compile
        $@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3596	3737	
==>NEXT()>

Transforms to C<PC' = 0> and restarts at C<PC + S>.

=item C<$n>

Transforms to the op function's nth argument. C<$0> is the opcode i <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	5218	5324	
==>d $Parrot::Revision::svn_entries 
            && $Parrot::Revision::svn_entries =~ m/\.svn/) {
       $svn_ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	32285	32455	
==>P');
	my $args = "";
	if ($builtins{$obj} eq 'v') {
	    my $arg = temp('P');
	    print <<EOC;
	$arg = new FixedPMCArray
EOC
	    $args = $arg;
	}
	print <<EOC;
	$o = $ob <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	16530	16703	
==>$got, $type, $expect, $name) = @_;

    my $test;
    {
        local $^W = 0;
        local($@,$!);   # don't interfere with $@
                        # eval() sometimes re <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	12216	12334	
==>$$uid;";
}

sub output_call {
    my ($self, $name, $mode, $uid) = @_;
#    if ($mode) {
        return split(/\n/, <<" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121929	122035	
==>" => "#line 248 \"src/ops/bit.ops\"\n  /*\n   * lvalue casts are evil, but this one isn't evil enough to ki <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122841	122947	
==>" => "#line 248 \"src/ops/bit.ops\"\n  /*\n   * lvalue casts are evil, but this one isn't evil enough to ki <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824595	824852	
==>1}} = UVal_str(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825666	825923	
==>1}} = UVal_str(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	9608	9793	
==>oc Encode::Supported

  require Pod::Simple::Transcode;

  if( $self->{'encoding'} ) {
    my $norm_current = $self->{'encoding'};
    my $norm_e = $e;
    foreach my $that ($norm_curren <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	14025	14255	
==>useless) items after the leading "
				  . $items[0]->describe
				  . ", so you may have been expecting some other behaviour."
				: "You can safely ignore this message.";
		Parse::RecDescent::_hint("The production starts with $wh <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	790	892	
==>:Construct::Block');
  confess "Left is not Value!" unless UNIVERSAL::isa($left, 'Jako::Construct::Expr <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	802	904	
==>:Construct::Block');
  confess "Left is not Value!" unless UNIVERSAL::isa($left, 'Jako::Construct::Expr <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	42150	42248	
==>ount++;
  }

  $self->_add_inst('', 'set', ['P0', $func_obj]) unless $func_obj eq 'P0';
  $self->_a <==
2	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	255	435	
==>ata->get('ccflags');
    if ($ccflags !~ /-pthread/) {
        $ccflags .= ' -pthread';
    }
    if ($ccflags !~ /-D_XOPEN_SOURCE=/) {

        # Request all POSIX visible (not aut <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	9339	9514	
==>_repeating; 

    foreach my $arg (@args) {
        $min-- if $arg->{optional};

        # XXX this isn't quite right. Need to be more clever with options.
        $max++ if $a <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	2316	2436	
==>\n/, $proto, 2 );
    my $returntype = $parts[0];
    my $parms = $parts[1];

    $parms =~ s/\s+/ /g;
    $parms =~ s/([ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	5902	6102	
==>, 
            '',
            $self->c_pair_item('', 'extend'),
        ),
        $self->new_group(
            'JIT', 
            '',
            $self->c_item(
                'Parrot\'s JIT subsy <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16412	16546	
==>HT

Copyright (c) 2005, 2006. Audrey Tang. All rights reserved.

This program is free software; you can redistribute it and/or modify i <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	1344	1783	
==>exec_prefix => '/usr',
                bindir => '/usr/bin',
                libdir => '/usr/lib',
                includedir => '/usr/include',
              );

my $manifest;
foreach (@ARGV) {
    if (/^--([^=]+)=(.*)/) {
        $options{$1} = $2;
    } else {
        $manifest = $_;
    }
}

my %FILES; # { package => file }
@ARGV = ($manifest);
while(<>) {
    chomp;
    my ($file, $meta, $dest) = split(/\s+/, $_);
    $dest ||= $fi <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	2952	3180	
==>exec_prefix => '/usr',
                bindir      => '/usr/bin',
                libdir      => '/usr/lib',
                includedir  => '/usr/include',
                docdir      => '/usr/share/doc',
                'dry-run <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	124210	124743	
==>lsr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 154,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 257 \"src/ops/bit.ops\"\n  {{\@1} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops.pm	51	165	
==>k {
    my $name = shift || '';
    my $number = ++$MARKERS{$name};
    $number = '' if ($number == 1) && ($name ne <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2683	2797	
==>k {
    my $name = shift || '';
    my $number = ++$MARKERS{$name};
    $number = '' if ($number == 1) && ($name ne <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	735	890	
==>not need it. Althoug this may be a 
# niave understanding of what this stuff is for, so if it is, I invite 
# others to fix it.

=kwid

= NAME

lib - A prag <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	10898	11046	
==>pe $type, */
    "$name",
    "$full_name",
    "$func_name",
    /* "",  body */
    $jump,
    $arg_count,
    $arg_types,
    $arg_dirs,
    $labe <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	2425	2555	
==>YNTAX_ERROR("'return' with argument in subroutine that does not return a value.")
      unless defined $return_type;

    my $arg_t <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	11875	12007	
==>ine" at the very
       #  end of "foo\nbar\n" (i.e., between the \n and the EOS).
    }
  }
  $self->parse_lines(undef); # to signal <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	778672	778922	
==>ARGS" => [
                              "p",
                              "ki",
                              "nc"
                            ],
                  "BODY" => "#line 382 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_keyed_int(i <==
2	/Users/nnunley/parrot/lib/Test/More.pm	17777	17933	
==>$pack;
use $module \@imports;
USE
    }

    my $ok = $Test->ok( !$@, "use $module;" );

    unless( $ok ) {
        chomp $@;
        $@ =~ s{^BEGIN failed- <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	1344	1506	
==>ub {
				my $parser = shift;
				die "Error: expected ".join(" ", $parser->YYExpect)
				    ." got `".$parser->YYCurtok."', rest=".join(" ", @$types)."\nfrom ".jo <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9781	9914	
==>en.".\n";

			$$token=$$value=undef;
		};

        $$errstatus=3;

		while(	  @$stack
			  and (		not exists($$states[$$stack[ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9343	9468	
==>en.".\n";

			$$token=$$value=undef;
		};

        $$errstatus=3;

		while(	  @$stack
			  and (		not exists($$states[$$stack[ <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3027	3136	
==>nfuse SVN
print $MANI "#\n"; 
print $MANI '# generated by tools/dev/mk_manifest_and_skip.pl ', scalar( localti <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663990	664443	
==>0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 742,
                  "ARGS" => [
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 3 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	53403	53514	
==>{ # adopted from Class::Classless
  # Not the most brilliant routine, but passable.
  # Don't give it a cyclic d <==
2	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	1535	1729	
==>rot_version[3];
        $#parrot_version = 3;
    }
    $parrot_version = join('.', @parrot_version);

    return wantarray ? @parrot_version : $parrot_version;
}

=back

=head1 AUTHOR

Gregor N. <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	48993	49162	
==>o takes an optional fourth parameter, which allows the
outermost delimiter brackets to be specified separately (see below).

Omitting the first argument (input text) mean <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	22569	22766	
==>y file
            my $test_no = $builder->current_test() + 1;

            $expected =~ s/\cM\cJ/\n/g;
            my $source_f = per_test('.c', $test_no);
            my $obj_f = per_test($PConfig <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	21999	22182	
==>oop = $self->genlabel('loop');
        my @ops = (
                   aop('pushint', [ 0 ]),
          $loop => @R_ops,
                   aop('pushint', [ 1 ]),
                   aop <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932504	932671	
==>s",
                              "sc"
                            ],
                  "BODY" => "#line 415 \"src/ops/string.ops\"\n  {{\@1}} = string_upcase(interpret <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54541	54666	
==>me crazy non-ASCII world!
        s<([^abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])>
         #<$pretty_fo <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	1110	1296	
==>it finds it.
The search is only performed once.

The criterion is that there should be a F<README> file beginning with
the words "This is Parrot" in the directory.

Raises an exception if <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	40368	40538	
==>0-9]+\)$/s
      ) {
        $ell->[1]{'type'}    = 'man';
        DEBUG > 3 and print "Considering this ($ell_content[0]) a man link.\n";
      } else {
        $ell->[1] <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	905	997	
==>IREG(i) REG_INT(cur_opcode[i])
#define NREG(i) REG_NUM(cur_opcode[i])
#define PREG(i) REG_PMC <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1021	1113	
==>IREG(i) REG_INT(cur_opcode[i])
#define NREG(i) REG_NUM(cur_opcode[i])
#define PREG(i) REG_PMC <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3902	4054	
==>',[$to,$from]);
    } elsif ($from =~ /I/) {
      $self->_add_inst ('', 'new',[$to,'.Integer']);
      $self->_add_inst ('', 'set',[$to,$from]);
    } e <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13341	13506	
==>();

      #
      # Remember the block we just closed, in case its the peer of a continuation
      # we are about to introduce.
      #

      my $peer_block = $sel <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	29171	29302	
==>turned, having first been
removed from the input text. Thus, the following code also processes
each quote-like operation, but actual <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	808	939	
==>In C<source> mode, it uses a the C<cxref> program
(L<http://www.gedanken.demon.co.uk/cxref/>) to extract information from
the progra <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1712	1818	
==>check };

	_CheckParams( [], \%params, \@_, $self );

		exists($$self{VERSION})
	and	$$self{VERSION} < <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1653	1754	
==>check };

	_CheckParams( [], \%params, \@_, $self );

		exists($$self{VERSION})
	and	$$self{VERSION} < <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	15681	15828	
==>l_pkg ) if ( keys %extra );
            local *{ $call_pkg . '::TODO' } = \$extra{todo}
                if defined $extra{todo};

            my $pa <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	18232	18379	
==>l_pkg ) if ( keys %extra );
            local *{ $call_pkg . '::TODO' } = \$extra{todo}
                if defined $extra{todo};

            my $pa <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	2728	2973	
==>_$_);\n" foreach (@pmcs);
    print OUT <<'END_C';
}
END_C

    close OUT;

    move_if_diff("$file.tmp", $file);

    return;
}

sub generate_pm
{
    my ($self, $conf) = @_;

    my $file = "lib/Parrot/PMC.pm";
    my @pmcs = split(/ /, $conf-> <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	3206	3392	
==>s[CURR] ";
		}
		push @{$code{$seg}->{code}}, "'\n";
		goto PARSE;
	}
	if ($syms[CURR] eq "redim") {
		$syms[CURR]="dim";
		print "WARNING: REDIM interpreted as DIM\n";
	}
	# General purp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838775	839033	
==>}}),\n                  STACK_ENTRY_PMC);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	591	713	
==>pts('d', \%options);
$debug=1 if $options{d};

if (@ARGV) {
	open(D, $ARGV[0]) || die;
	@basic=<D>;
	chomp(@basic);
	seek D <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2366	2463	
==>INTERNAL_ERROR("Can't determine type of formal argument (%s)!", $formal_arg_name) 
      unless de <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2066	2163	
==>INTERNAL_ERROR("Can't determine type of formal argument (%s)!", $formal_arg_name) 
      unless de <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28195	28303	
==>ext;
			}'.($::RD_NO_TRACE?'':'
			Parse::RecDescent::_trace(q{<<Didn\'t match terminal>>},
						  Parse::Re <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32470	32578	
==>ext;
			}'.($::RD_NO_TRACE?'':'
			Parse::RecDescent::_trace(q{<<Didn\'t match terminal>>},
						  Parse::Re <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	28047	28189	
==>y $label     = $self->_gensym();

  $return = $self->_generate($node->{children}[1]);
  $self->_add_inst('',           'gt', [$return,0,"DONE_$ <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	9356	9506	
==>.return ($N1)
one:
    $N1 = sin op2
    .return ($N1)
two:
    $N1 = cos op2
    .return ($N1)
three:
    $N1 = tan op2
    .return ($N1)
four:
    $N <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11174	11401	
==>];
  my $fh = $self->{'output_fh'};
  return print $fh '}'; # that should do it
}

###########################################################################

sub stylesheet {
  return sprintf <<'END',
{\stylesheet
{\snext0 Nor <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636360	636806	
==>> [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 712,
                  "ARGS" => [
                              "p",
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 107 \"src/ops/pmc.ops\ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3096	3242	
==>'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P15', 'P16[0]'],
  ['',            'bsr', 'apply_H <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	13740	13855	
==>r
returns the element value (after assignment). If the element type
starts with a C<'*'>, a reference to the element <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	40470	40626	
==>_type eq 'Data') {
        DEBUG and print " giving data treatment...\n";
        $para->[1]{'xml:space'} = 'preserve';
        push @$para, join "\n", splic <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299064	299484	
==>e",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 348,
                  "ARGS" => [
                              "i",
                              "n",
                              "n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	506117	506451	
==>S" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 582,
                  "ARGS" => [
                              "n", <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12173	12344	
==>$_[0]->{"items"}};
	return ($itemcount) ? $_[0]->{"items"}[0]->describe(1) : '';
}

sub hasleftmost ($$)
{
	my ($self, $ref) = @_;
	return ${$self->{"items"}}[0] eq $ref  i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	513633	514001	
==>S" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 592,
                  "ARGS" => [
                              "n",
                              "n" <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	4393	4571	
==>e_path($file->path));
                    
            $index_html .= "<br>\n";
        }
    }
    
    return '' unless $index_html;
    
    if ( ! $self->{TEXT} and @short_des <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11341	11437	
==>_call_NO_RETURN_${CURIC}:

# Finished.
goto PRE_CALL_END_${CURIC}

# It's a return. See if we hav <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8527	8623	
==>_call_NO_RETURN_${CURIC}:

# Finished.
goto PRE_CALL_END_${CURIC}

# It's a return. See if we hav <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1805	1918	
==>re created by the
transform. This default implementation raises an exception indicating
that the core type is miss <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	6710	6905	
==>ift off the beginning and push onto the end.
    $P1 = shift op2
    push op2, $P1
    dec op1
    goto pos
neg:
    unless op1 goto done
    # pop off the end and unshift onto the beginning
    $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	15234	15382	
==>$self = shift(@_);
  ++$self->{'errors_seen'};
  return $self->_complain_warn(@_) if $self->{'complain_stderr'};
  return $self->_complain_errata(@_) <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4635	4738	
==>re destination is the first
    # argument, given as --destination=DIRECTORY
    shift(@pmcs) =~ /--dest <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4739	4842	
==>re destination is the first
    # argument, given as --destination=DIRECTORY
    shift(@pmcs) =~ /--dest <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	2017	2186	
==>function returns no data.

=item I

Interpreter pointer. The current interpreter pointer is passed in

=item P

PMC.

=item 2

Pointer to short.

Taken from an I register <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12375	12503	
==>t and $self->get(1)->is_bit_assign) {
      my $block = $self->current_block;

      my $ident = Jako::Construct::Expression::Val <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2865	2974	
==>right!") unless defined $right_type;

  $self->SYNTAX_ERROR("Can't do arithmetic on strings") if UNIVERSAL::is <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	11178	11304	
==>nes($pre);
    $classblock = substr($classblock, 1,-1); # trim out the { }

    my (@methods, %meth_hash, $class_init);

    wh <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436473	436565	
==>DY" => "#line 94 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437488	437580	
==>DY" => "#line 94 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, { <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops.pm	74	187	
==>t || '';
    my $number = ++$MARKERS{$name};
    $number = '' if ($number == 1) && ($name ne '');
    return bless <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2706	2819	
==>t || '';
    my $number = ++$MARKERS{$name};
    $number = '' if ($number == 1) && ($name ne '');
    return bless <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4029	4143	
==>{ITEMP0} = 0\n";
	for (1..$pushes) {
		$pir .= <<'PIR';
# Increment stack depth.
inc stack_depth

# Get type (so we <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2445	2559	
==>{ITEMP0} = 0\n";
	for (1..$pushes) {
		$pir .= <<'PIR';
# Increment stack depth.
inc stack_depth

# Get type (so we <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	977239	977555	
==>E" => 1097,
                  "ARGS" => [
                              "i",
                              "i",
                              "s",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@ <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	440	552	
==>building
dynamic op libraries.

=cut

use strict;

use File::Copy qw(copy);

# qq[] isn't guaranteed to work, but <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13187	13411	
==>n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_J <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14031	14255	
==>n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_J <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6413	6518	
==>RIC}_LOOP:
if i == 0 goto POST_BRANCH_switch_${CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0[i]
    ${ITEMP0} <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4351	4456	
==>RIC}_LOOP:
if i == 0 goto POST_BRANCH_switch_${CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0[i]
    ${ITEMP0} <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5827	5924	
==>de}}, "IFBRANCH_$_:\n";
			}
			while($_=pop(@{$elsestack->{$elsetag}})) {
				push @{$code{$seg}- <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8173	8267	
==>de}}, "IFBRANCH_$_:\n";
		}
		while($_=pop(@{$elsestack->{$elsetag}})) {
			push @{$code{$seg}- <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	5842	5951	
==>e_prefix . $base;


if ($trans->can("run_core_func_decl")) {
    my $run_core_func = $trans->run_core_func_dec <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	9225	9405	
==>or die "Unable to open '$code_f'";
    binmode $CODE;
    print $CODE $code;
    close $CODE;

    return;
}

# We can inherit from Test::More, so we do it.
*plan = \&Test::More::pl <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37767	37873	
==>my ($self, $type) = @_;

    #return "ret_val = *($1*) " if ($type =~ /((?:INT|FLOAT)VAL)/);
    return "re <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2337	2437	
==>$i]->type;
    }

    $self->INTERNAL_ERROR("Can't determine type of formal argument (%s)!", $formal_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2037	2137	
==>$i]->type;
    }

    $self->INTERNAL_ERROR("Can't determine type of formal argument (%s)!", $formal_ <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	4639	4736	
==>data,
      sizeof(static_string_${line}_data)
    }},
    (PObj_constant_FLAG|PObj_external_FLAG) <==
2	/Users/nnunley/parrot/config/auto/gc.pm	255	349	
==>to F<Configure.pl>
and sets the memory allocator accordingly.

C<--gc> can take the values:

=o <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	955	1067	
==>->new_section('BASIC', 'basic.html', '', 'languages/BASIC'),
        $self->new_section('bc', 'bc.html', '', 'lan <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	403	512	
==>ds are turned on
    if( $] >= 5.008 && $Config{useithreads} && $INC{'threads.pm'}) {
        require threads: <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	15820	15945	
==>e});
    $cout .= "{$standard_body\n}\n";
    # We are back to generated code immediately here
    $cout .= $self->line_direct <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7700	7811	
==>isn't a register, determine register name now.
	if (!$dest_reg) {
		$pir .= <<'PIR'
# Get type (so we can find r <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5818	5929	
==>isn't a register, determine register name now.
	if (!$dest_reg) {
		$pir .= <<'PIR'
# Get type (so we can find r <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7573	7752	
==>STEMP0}
${INS} = concat ${STEMP0}
${INS} = concat " = pop s\n"

PRE_CALL_END_${CURIC}:
PIR
}

sub post_call() {
    my $self = shift;
    my $pir = <<'PIR';
# See if we've got a re <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	30745	30875	
==>tern to be skipped, and any escape characters)
and extracts the initial substring of the text that
is appropriately delimited. If t <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	6035	6237	
==>line;
    }
    return %ops;
}

use Parrot::Vtable;
my $vtable;
my $vjit = 0;
sub vtable_num($) {
    my $meth = shift;
    unless ($vtable) {
        $vtable = parse_vtable();
    }
    my $i = 0;
    $ <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	4767	4949	
==>es horrible mangling to them that gets in my way,
it works like this on VMS.

    0     SS$_NORMAL        all tests successful
    4     SS$_ABORT         something went wrong

Unfort <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9546	9691	
==>st = substr($src, $offset, $len);");
}

sub output_length {
    my ($self, $dest, $string) = @_;
    return ("$dest = length $string;");
}

sub ou <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	40201	40369	
==>olver will have to deal with all our treeletty things:

      if(@ell_content == 1 and !ref($ell_content[0])
         and $ell_content[0] =~ m/^[-a-zA-Z0-9]+\([-a-zA-Z0- <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2985	3089	
==>$self{DOTPOS}} - 1;

		$index < 0
	and	-$index <= @{$$self{STACK}}
	and	return $$self{STACK}[$index][ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2841	2941	
==>$self{DOTPOS}} - 1;

		$index < 0
	and	-$index <= @{$$self{STACK}}
	and	return $$self{STACK}[$index][ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	23183	23340	
==>In these extreme
cases you have no choice but to skip over the broken tests entirely.

The syntax and behavior is similar to a C<SKIP: BLOCK> except the
tests <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605889	605999	
==>ps/object.ops\"\n    Parrot_add_attribute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606680	606790	
==>ps/object.ops\"\n    Parrot_add_attribute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  " <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14965	15073	
==>\{\}\x7F-\xFF])/$Escape{$1}/g;  # ESCAPER
      s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16148	16256	
==>\{\}\x7F-\xFF])/$Escape{$1}/g;  # ESCAPER
      s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627378	627474	
==>e its init method\n   * copies the registers. */\n  {{\@1}} = pmc_new_noinit(interpreter, {{\@2}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628522	628618	
==>e its init method\n   * copies the registers. */\n  {{\@1}} = pmc_new_noinit(interpreter, {{\@2}} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	16948	17234	
==>al("counter");
    my ($N, @N_ops) = $sizer->($self, $op);
    my ($R_back, @R_ops) = $chooser->($self, $op, $counter, $fail);

    my @ops =  ( aop('assign', [ $counter, 0 ]),
                 @N_ops,
         $try => $self->dbprint("matching dynalt[%<$counter>]\n"),
                 @ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	7122	7316	
==>name  => $name,
          kind  => 'fn',
          fnlib => $fnlib,
          fn    => $fn
        }
      });
    }
  }
  else {
    return;
  }

  foreach my $arg ($self->args) {
    my ($arg_t <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8901	9007	
==>d2 BLOCK->scope_of_ident(NAME)

This is a shortcut method that uses find_symbol() to locate a matching
symb <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45505	45599	
==>= '\G\s*<skip:';
my $OPMK		= '\G\s*<(left|right)op:';
my $ENDDIRECTIVEMK	= '\G\s*>';
my $RESYNC <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11702	11788	
==>24\noproof\sbasedon0 \snext0 pod-codeblock;}
{\*\cs21 \additive \lang1024\noproof \sbas <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10896	11011	
==>m
the cache, and undefines it.

Raises an exception if the delete fails.

=cut

sub delete
{
    # Use $_[0] so that <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4730	4845	
==>m the cache, and undefines it.

Raises an exception if the delete fails.

=cut

sub delete
{
    # Use $_[0] so that <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	174	326	
==>e;
use Regex::TreeOptimize;
use Regex::Optimize;

use Regex::Rewrite;
use Regex::CodeGen::IMCC;

use strict;

# Class method to get a global state object <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	52253	52384	
==>ringify_lol {  # the real recursor
  my($lol, $to) = @_;
  use UNIVERSAL ();
  for(my $i = 2; $i < @$lol; ++$i) {
    if( ref($lol-> <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	13919	14102	
==>";
  $title .= ' ' if length $title;
  
  $title =~ s/ *$/ /s;
  $title =~ s/^ //s;
  $title =~ s/ $/, /s;
   # make sure it ends in a comma and a space, unless it's 0-length

  my $is <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	20928	21079	
==>>' => 'isgt',
	    '>=' => 'isge',
	    '<' => 'islt',
	    '<=' => 'isle',
	    'is' => 'issame',
	    'is not' => 'issame',
	    'in'   => 'exists'
	) <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5202	5373	
==>amic $oplib.ops")
	          or die "ops2c code generation failed ($?)\n";
		}
	}
}

sub compile {
    my ($src_stem, $dest_stem) = @_;

    $dest_stem ||= $src_stem;
    i <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2084	2204	
==>d_over_text    { --$_[0]{'Indent'} }
sub   end_over_block   { --$_[0]{'Indent'} }


# . . . . . Now the actual formatters <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1652	1772	
==>d_over_text    { --$_[0]{'Indent'} }
sub   end_over_block   { --$_[0]{'Indent'} }


# . . . . . Now the actual formatters <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	4744	4921	
==>~s/, $//;
	$self->{FILE}=~s/, $//;
    }

    return $self;
}

=back

=head2 Instance Methods

=over 4

=item C<read_ops($file,$nolines)>

Reads in the specified .ops file, gathe <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Examples.pm	90	200	
==>.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Section::Examples - Examples docu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	272359	272818	
==>GDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 317,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 871 \"src/ops/cmp.ops\"\n  {{ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2160	2263	
==>grammer wanted to shadow the
  # previous definition.
  #

  if (defined $sym and $sym->block eq $block) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1907	2010	
==>grammer wanted to shadow the
  # previous definition.
  #

  if (defined $sym and $sym->block eq $block) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	1564	1773	
==>aram masala
 * 1/2 teaspoon red chili powder, or to taste
 * Salt, to taste (probably quite a bit)
 * 2 (15-ounce) cans chick peas or garbanzo beans, drained and rinsed
 * juice of one smallish lime
 * a dash o <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	9203	9306	
==>encoding_line {
  my($self, $line) = @_;
  
  # The point of this routine is to set $self->{'_transcoder <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	31197	31305	
==>b _sanity_check {
    my $self = shift;

    _whoa($self->{Curr_Test} < 0,  'Says here you ran a negative num <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	3508	3626	
==>rite_goto {
    my ($self, $op, $R, $lastback) = @_;
    return aop('goto', [ $R ]) if $R->{name} eq 'LABEL';
    retur <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	14714	14980	
==>k
#                push 2
#                goto next
#          back: popint -> I0
#                eq I0, 0, R.back
#                eq I0, 1, S.back
#                goto T.back
#          next:
#
sub rewrite_alternate {
    my ($self, $op, @args) = @_;
    my $las <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	12775	12900	
==>f and nothing else
        my $test = defined $got || defined $dont_expect;

        $self->ok($test, $name);
        $self->_ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	13219	13344	
==>f and nothing else
        my $test = defined $got || defined $dont_expect;

        $self->ok($test, $name);
        $self->_ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14323	14479	
==>irst
print y(3)*2

' Array structure access, 56/0
type first
	foo as integer
	bar as string
end type
dim u(5) as first
u(2).foo=56
print u(2).foo

' Array as <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4329	4437	
==>}
}

sub output_match {
    my ($self, $code, $failLabel) = @_;
    my $comment = Regex::Ops::Tree::isplain($ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4016	4124	
==>}
}

sub output_match {
    my ($self, $code, $failLabel) = @_;
    my $comment = Regex::Ops::Tree::isplain($ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8065	8253	
==>BG>			$debug & 0x04
#DBG>		and	print STDERR "Accept.\n";

				return($semval);
			};

                $$check eq 'ABORT'
            and	do {

#DBG>			$debug & 0x04
#DBG>		and	pri <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7702	7880	
==>BG>			$debug & 0x04
#DBG>		and	print STDERR "Accept.\n";

				return($semval);
			};

                $$check eq 'ABORT'
            and	do {

#DBG>			$debug & 0x04
#DBG>		and	pri <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104041	1104130	
==>tif (type <= 0)\n\t\treal_exception(interpreter, NULL, NO_CLASS,\n\t\t\t\t\"Class '%Ss' no <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105256	1105345	
==>tif (type <= 0)\n\t\treal_exception(interpreter, NULL, NO_CLASS,\n\t\t\t\t\"Class '%Ss' no <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	533	636	
==>ted number of ops performed,

=item * the elapsed time, and 

=item * the number of M op/s.

=back

=cut <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	536	638	
==>ted number of ops performed,

=item * the elapsed time, and

=item * the number of M op/s.

=back

=cut <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34076	34190	
==>WAS : 'qq{'.$self->describe.'}' ) . ')->($text);
				: 'q{'.$self->describe.'}' ) . ';
		$Parse::RecDescent::lastun <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19671	19783	
==>URR] ne "end") {
			my($name,$type);
			die "Syntax error in type $type[CURR]/$syms[CURR] (source line $sourcelin <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	436	625	
==>t;
use warnings;

use base qw( Parrot::Docs::Section );

use Parrot::Distribution;

=item C<header_item($text, @names)>

Returns a C header files documentation item.

=cut

sub c_header_item <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70911	71145	
==>_lib(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71680	71914	
==>_lib(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
2	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	982	1111	
==>$func( $self, @_ );
        }
        warn "Please implement a function 'visit", ref $self, "' in '",
            ref $visitor, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	394966	395097	
==>ODY" => "#line 495 \"src/ops/io.ops\"\n  if ({{\@3}}) {\n    PIOOFF_T pos;\n    pos = PIO_tell(interpreter, {{\@3}});\n    {{\@1}} = <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20815	21128	
==>ate 62
		DEFAULT => -52
	},
	{#State 63
		ACTIONS => {
			"," => 66,
			"=" => 117
		},
		DEFAULT => -31
	},
	{#State 64
		ACTIONS => {
			'UNTIL' => 118
		}
	},
	{#State 65
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRIN <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	75	182	
==>/solaris.pm 19593 2006-05-30T02:28:15.110975Z coke  $

package init::hints::solaris;

use strict;

use Parro <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	6907	6997	
==>urn if $name =~ /\.svn|core|\.[oa]|\.(so|brk|dsp|tmp)$/;
	return if $name =~ /locales\W[a-z <==
2	/Users/nnunley/parrot/config/init/defaults.pm	4404	4522	
==>king?
        has_static_linking => 1,
        has_dynamic_linking => 0,

        # default behaviour for linking parro <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	242	350	
==>=cut

package auto::sizes;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	21499	21716	
==>(@rules / 2);
        my @r1 = @rules[0 .. $split_point - 1];
        my @r2 = @rules[$split_point .. $#rules];

        # Emit branch code.
        $pir .= "    if cur_ic >= 0x$r2[0]->{'code'} goto INS_BRANCH_$prefix$ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4320	4424	
==>1} = stack_depth
${STEMP0} = concat ${STEMP1}
${DEST$push_num} = ${STEMP0}

# Increment dtypes index.
inc <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2736	2840	
==>1} = stack_depth
${STEMP0} = concat ${STEMP1}
${DEST$push_num} = ${STEMP0}

# Increment dtypes index.
inc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	415701	416064	
==>_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 479,
                  "ARGS" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	404	497	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_element_start {
  # ($self, $elemen <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	403	496	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_element_start {
  # ($self, $elemen <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	3398	3603	
==>dy) = each(%templates)) {
                if ($asm =~ /$t\s+/) {
                    my $tbody = $body;
                    while ($asm =~ s/\b(s(.).+?\2.*?\2)(?:\s+)?//) {
                        eval "\$t <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	36472	36631	
==>:RecDescent::_error("Not symbol (\"!\") before
				            \"$subrule\" doesn't make
					    sense.",$line);
			Parse::RecDescent::_hint("Lookahead for neg <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	542435	542891	
==>GDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 627,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 1022 \"src/ops/math.ops\"\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731774	732109	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 821,
                  "ARGS" => [
                              "i",
                              "n" <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36717	36950	
==>re_call();
		$pir .= "### pre_call\n";
		$pir .= sub_meta($pre_call, $mv, "pre_call for rule $rule->{'name'}");
		$pir .= "### end pre_call\n";

		# If we have PIR for the instruction, just take that. If not, we need
		# to generate i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106263	1106346	
==>= interpreter->n_vtable_max)\n\treal_exception(interpreter, NULL, E_ValueError,\n\t\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107239	1107322	
==>= interpreter->n_vtable_max)\n\treal_exception(interpreter, NULL, E_ValueError,\n\t\ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3725	3856	
==>) {
        $prm=uc($prm);
			exists($$checklist{$prm})
		or	croak("Unknow parameter '$prm'");
			ref($value) eq $$checklist{$pr <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3533	3660	
==>) {
        $prm=uc($prm);
			exists($$checklist{$prm})
		or	croak("Unknow parameter '$prm'");
			ref($value) eq $$checklist{$pr <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2962	3090	
==>eturns the contents of the group interpreted relative to the source
directory.

=cut

sub contents_relative_to_source
{
	my $self <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29089	29216	
==>\}/g;
	$desc=~s/{/\\{/g;

	bless 
	{
		"pattern"     => $pattern,
		"lookahead"   => $_[2],
		"line"        => $_[3],
		"descrip <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31193	31314	
==>\}/g;
	$desc=~s/{/\\{/g;

	bless 
	{
		"pattern"   => $pattern,
		"lookahead" => $_[2],
		"line"      => $_[3],
		"descrip <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33617	33788	
==>ef,
		"matchrule" => $_[5],
		"argcode"   => $_[6] || undef,
	}, $class;
}


sub code($$$$)
{
	my ($self, $namespace, $rule) = @_;
	
''.($::RD_NO_TRACE?'':'
		Parse::RecDes <==
2	/Users/nnunley/parrot/config/init/hints.pm	209	303	
==>platform and local hints files, modifying the defaults set up in
F<config/init/default.pm>.

=c <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	360	481	
==>f about the contents of
the distribution.

This is a subclass of C<Parrot::Docs::Directory> so that it can be used
to buil <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2385	2496	
==>cut for C<< $token->type() eq "end" >>

=item $token->dump

This returns a handy stringified value of this objec <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4952	5058	
==>al_calls = grep { ! exists($ansi_c89_symbol{$_}) } @external_calls;
    
    printf("Found %d functions whi <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	5626	5783	
==>(1)
goto 10
INPUT S(0, 1), S(0, 2), S(0, 3), S(0, 4)
10 print "Ok"
end

' Odd bug in static strings.  Expect "Ok"
dim O(1)
IF E$ <> "O" THEN 5030
print "Wrong <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1600	1749	
==>c const unsigned char parrot_config[] = {
EOF
;

if ($mini_parrot) {
    print "    0\n";
}
else {

    my $image_file = $install_parrot ?
        'in <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	144	243	
==>head1 NAME

examples/mops/mops.c - Calculate M ops/s

=head1 SYNOPSIS

    % perl examples/mops/mops <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	140	239	
==>head1 NAME

examples/mops/mops.c - Calculate M ops/s

=head1 SYNOPSIS

    % perl examples/mops/mops <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	1648	1760	
==>graphs.  We call _ponder_paragraph_buffer
   # to process this.
  
  $self->{'pod_para_count'} ||= 0;

  my $line <==
2	/Users/nnunley/parrot/config/auto/pack.pm	1037	1183	
==>nfig{longsize})) {
            $format = 'l!';
        } elsif ($size == 4) {
            $format = 'l';
        } elsif ($size == 8 || $Config{use <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	22688	22809	
==>trace != 2 goto NO_TRACE_$name
printerr "    $name STS: "
i = elements stypes
j = 0
STS_LOOP_$name:
if j == i goto STS_LOO <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	272	450	
==>ie "EOF reached" if $count >= $#$tokens;

  if ($tokens->[$count] eq '(') {
    $temp->{children} = [];
    $count++;
    while($tokens->[$count] ne ')') {
      my $expr;
      ( <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9138	9242	
==>9],5,0xd62f105d,/* 21 */
GG,$d,$a,$b,$c,$_[14],9,0x2441453,/* 22 */
GG,$c,$d,$a,$b,$_[19],14,0xd8a1e681,/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876669	877031	
==>base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 994,
                  "ARGS" => [
                              "s <==
2	/Users/nnunley/parrot/tools/dev/mk_inno.pl	366	465	
==>p

=head1 SYNOPSIS

    % perl tools/dev/mk_inno.pl [options]

=head1 DESCRIPTION

=head2 Options

= <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	47371	47672	
==>pse and trim all whitespace first.
  $para =~ s/ $//g;
  $para =~ s/^ //g;
  
  # Only apparent problem the above code is that N<<  >> turns into
  # N<< >>.  But then, word wrapping does that too!  So don't do that!
  
  my @stack;
  my @lineage = ($treelet);

  DEBUG > 4 and print "Paragraph:\n$para <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	4925	5114	
==>= $o;
	    } elsif ($v eq 'D') {
		$DataD{$s} = $o;
	    } elsif ($v eq 'R') {
		$DataR{$s} = $o;
	    }
	} elsif ($v eq 'U') {
	    $Undef{$s} = $o;
	}
    }
    close(NM);
} else {
    die <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	34199	34374	
==>->[$i]} == 3 and ! ref $treelet->[$i][2]) {
        my $it = $treelet->[$i][2];
        if($it =~ m/^[-a-zA-Z0-9]+\([-a-zA-Z0-9]+\)$/s) { # man sections
          # Hopefully n <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2200	2304	
==>_with_name('imcc'),
        $self->directory_with_name('examples')->directory_with_name('c'),
        $se <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686466	686727	
==>>vtable->getprop(interpreter, {{\@3}}, {{\@2}});\n   {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687356	687617	
==>>vtable->getprop(interpreter, {{\@3}}, {{\@2}});\n   {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	3104	3231	
==>->{builder}->diag($diag) if $diag;
        }

        # The generated files are left in the t/* directories.
        # Let ' <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2697	2822	
==>->{builder}->diag( $diag ) if $diag;
        }

        # The generated files are left in the t/* directories.
        # Let ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822305	822404	
==>k depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_INT) {\n    internal_exception(ERROR_BAD_S <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823373	823472	
==>k depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_INT) {\n    internal_exception(ERROR_BAD_S <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	19350	19459	
==>= err 
    throw ex

PIRCODE

    # Restore original instruction codes, but remove spaces.
    foreach (@rules <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	25041	25228	
==>back');
    my $next = $self->genlabel('after_greedy_optional');
    my $rfail = $self->genlabel('greedy_optional_fail');
    my ($R_back, @R_ops) = $self->rewrite($R, $rfail);

    my @op <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	2253	2401	
==>_HINT = 1;
		$self = Parse::RecDescent->new($grammar,1)
			|| croak("Can't compile bad grammar")
				if $grammar;

		foreach ( keys %{$self->{rules}} <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	8684	8834	
==>f->{STACK}};
    }
    elsif ( $tagname eq 'Para' ) 
    {
        $tagname = 'Para_item' 
            if @{$self->{STACK}} and $self->{STACK}->[-1] eq <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	1398	1518	
==>as struct name.

    my ($class, @decls);
    my $base_type = ref $_[1];
    if ( $base_type eq 'HASH' ) {
        $class <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31471	31574	
==>he name of the output file we are
generating.

Overrides the default implementation to direct all unknow <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40091	40194	
==>he name of the output file we are
generating.

Overrides the default implementation to direct all unknow <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	40898	41162	
==>te 171
		DEFAULT => -103
	},
	{#State 172
		DEFAULT => -101
	},
	{#State 173
		ACTIONS => {
			")" => 189
		}
	},
	{#State 174
		ACTIONS => {
			"(" => 48,
			"{" => 38,
			'STRING' => 44
		},
		GOTOS => {
			'tableconstructor' => 46,
			'args' = <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	4914	5015	
==>ns Bool is export {
    Test::proclaim(1, "", "skip $reason", :$depends);
}

multi sub skip (Int $coun <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	9531	9677	
==>ir->{result}->{symbol} :optional\n";
        }
    }

    sub visitReturnDir {
        my $self  = shift;
        my ($dir) = @_;
        my <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	67704	67801	
==>r("Unexpected colon encountered", $line);
			_hint("Did you mean \"|\" (to start a new production) <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	1223	1413	
==>afiles;
File::Find::find({wanted => sub {
                  /\.da$/ && push @dafiles, $File::Find::name }}, $SRCDIR);

my (%file_line_coverage, %file_branch_coverage, %file_call_coverage);
my <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1763	1866	
==>';

my $parrot = File::Spec->catfile(
    $path_to_parrot, 'parrot' . $PConfig{exe}
);

my $perl6 = File <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	12480	12598	
==>'ASSEMBLY'} = 'assembly';
    $mv->{'BC'} = 'bc';
    $mv->{'INS'} = 'gen_pir';
    $mv->{'PC'} = 'pc';
	$mv->{'NEXTPC' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11627	11740	
==>b unicode_escape_url {
  my($self, $string) = @_;
  $string =~ s/([^\x00-\xFF])/'('.ord($1).')'/eg;
    #  Turn ch <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	22693	22830	
==>3] ] }
	],
	[#Rule 42
		 'classpiece', 1,
sub
#line 177 "lib/Regex/Grammar.y"
{ return $_[1]; }
	],
	[#Rule 43
		 'classpiece', 3,
sub
#li <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	2066	2170	
==>f->new_item('The status of the Parrot test suite.', 't/TESTS.STATUS.pod'),
        ),
        $self->new_ <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	751	874	
==>my $ccflags   = $conf->data->get('ccflags');
    if ($^O =~ /mswin32/i) {
        if ($cc =~ /^gcc/i) {
            $conf->d <==
2	/Users/nnunley/parrot/config/auto/readline.pm	763	886	
==>my $ccflags   = $conf->data->get('ccflags');
    if ($^O =~ /mswin32/i) {
        if ($cc =~ /^gcc/i) {
            $conf->d <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1449	1565	
==>output = Parrot::Test::slurp_file( "$out_f" );

        @_ = ( $prog_output, $output, $desc );
        #goto &{"Test: <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1365	1481	
==>output = Parrot::Test::slurp_file( "$out_f" );

        @_ = ( $prog_output, $output, $desc );
        #goto &{"Test: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790323	790753	
==>",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 892,
                  "ARGS" => [
                              "s",
                              "p",
                              "kic"
                            ],
                  "BODY" => "#line 427 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_string_keyed_int(interpr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734028	734292	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 824,
                  "ARGS" => <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	5861	5980	
==>>size) if $self->type eq 'auto';

    return $body;
}

# Called from rewrite_body() to perform the actual substitutions. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017941	1018041	
==>tm tm;\n  const time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_gmtime_r(&t, &tm);\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018866	1018966	
==>tm tm;\n  const time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_gmtime_r(&t, &tm);\n <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	13153	13270	
==>nes at a time
      local $/ = $NL;
      push @lines, scalar(<$source>);  # readline
      last unless defined $lines <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2749	2851	
==>b1
PRINT "ERR this line in main routine should be skipped"
Label1:
   PRINT "5 back in module-level cod <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16716	16818	
==>b1
PRINT "ERR this line in main routine should be skipped"
Label1:
   PRINT "5 back in module-level cod <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6728	6860	
==>-O!
	#     Don't go looking for lhs expression, please.
	#if ($syms[NEXT] eq "=" and exists $functions{$syms[CURR]}) {
	#	# Assignmen <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	18818	18931	
==>}[$i];

		$code .= preitempos() if $parser->{_check}{itempos};

		$code .= $item->code($namespace,$rule,$parser->{ <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	2490	2694	
==>";
    my $funcname = $1;
    $parms = $2;
    my @parms = split( /\s*,\s*/, $parms );
    for ( @parms ) {
        /\S+\s+\S+/ || ($_ eq "...") || ($_ eq "void") || /theINTERP/ or die "Bad parms in $proto <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	5092	5198	
==>rint "HTTP/1.0 200 OK\n";
  print $CGI->header;

  my $category = sub {
    return sprintf "%s / %s runcore <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1326	1433	
==>tion hook.
sub pre_translation() {
	# We need a stack depth and a string for label gen and some
	# storage f <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	413	520	
==>tion hook.
sub pre_translation() {
	# We need a stack depth and a string for label gen and some
	# storage f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	33960	34194	
==>eter, {{\@1}}, (CUR_OPCODE + {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36673	36773	
==>ve($line, "null.c");
    return <<EOC;
$l
${decl} {
	real_exception(interpreter, NULL, NULL_REG_ACCES <==
2	/Users/nnunley/parrot/config/auto/m4.pm	173	272	
==>ks

=head1 DESCRIPTION

Determines whether GNU m4 exists on the system. It is OK when it doesn't exi <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	13393	13536	
==>'P'];
}

sub PRINT_ITEM
{
    my ($n, $c, $cmt) = @_;
    my $tos = pop @stack;
    print <<"EOC";
	print_item $tos->[1] $cmt
EOC
}

sub PRINT_N <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	15706	15853	
==>);
            local *{ $call_pkg . '::TODO' } = \$extra{todo}
                if defined $extra{todo};

            my $pass = $builder->$meth( $re <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	18257	18404	
==>);
            local *{ $call_pkg . '::TODO' } = \$extra{todo}
                if defined $extra{todo};

            my $pass = $builder->$meth( $re <==
2	/Users/nnunley/parrot/lib/Test/More.pm	33597	33739	
==>t

sub builder {
    return Test::Builder->new;
}

=back


=head1 EXIT CODES

If all your tests passed, Test::Builder will exit with zero (whic <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	67392	67559	
==>ookahead,
								       $line,
								       $desc,
								       $matchrule,
								       $argcode);
	 
				$prod and $prod->additem($item)
				      or  _no_rule <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	2221	2359	
==>dline) = split /\n/, $fdecl;
        if ($firstline !~ /\(/) {
	    $bad_fdecls{$fdecl} = $secondline;
        }
    }
    
    # now a lit <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3927	4030	
==>type->imcc_pmc();
    my $temp_pmc = $compiler->temp_pmc();

    $compiler->emit("  $temp_pmc = new $pmc <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	43030	43158	
==>"startcode" => '',
		"localvars" => '',
		"_AUTOACTION" => undef,
		"_AUTOTREE"   => undef,
	};
	if ($::RD_AUTOACTION)
	{
		my $s <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	678	849	
==>n $self;
    }

    my ($cgoto, $verbose) = $conf->options->get(qw(cgoto verbose));

    my $test;
    if (defined $cgoto) {
        $test = $cgoto;
    } else {
        cc <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	42676	42827	
==>'DO' => 196,
			">" => 86
		}
	},
	{#State 186
		DEFAULT => -4,
		GOTOS => {
			'block' => 197,
			'chunk' => 57
		}
	},
	{#State 187
		ACTI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576546	576693	
==>{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577558	577705	
==>{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26506	26702	
==>opcodes, new LabelOp( $parser,
        'arg1' => $l_end,
    );
    return \@opcodes;
}

sub BuildWhile {
    my ( $parser, $expr, $block ) = @_;
    my @opcodes    = ();
    my $l_continu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	726404	726827	
==>" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 814,
                  "ARGS" => [
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 29 \"src/ops/set.ops\"\n  {{\@1}} = string_copy(interpreter, {{\@2}});\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031514	1031651	
==>n        {{\@1}} = -1;\n    else\n        {{\@1}} = data_types[{{\@2}} - enum_first_type].size;\n  {{+=3}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032383	1032520	
==>n        {{\@1}} = -1;\n    else\n        {{\@1}} = data_types[{{\@2}} - enum_first_type].size;\n  {{+=3}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	639	742	
==>ck));
  confess "Type (" . ref($type) . ") is not!"  unless UNIVERSAL::isa($type, qw(Jako::Construct::Ty <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	630	731	
==>ck));
  confess "Type (". ref($type) . ") is not!" unless UNIVERSAL::isa($type, qw(Jako::Construct::Ty <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	30842	30963	
==>ion_sym('apply');

  return $return;
}

sub _op_map {
}

sub _op_for_each {
}

sub _op_force {
}

sub _op_call_with_curren <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557795	557897	
==>_pmc, *object;\n  opcode_t *next = {{^+3}};\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559179	559281	
==>_pmc, *object;\n  opcode_t *next = {{^+3}};\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	53130	53250	
==>"\e" => '\e', # ESC
  "\f" => '\f', # FF
  "\t" => '\t', # tab
  "\cm" => '\cm',
  "\cj" => '\cj',
  "\n" => '\n', # prob <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244643	244909	
==>=> 284,
                  "ARGS" => [
                              "i",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 632 \"src/ops/cmp.ops\"\n  STRING* l = VTABLE_get_string(i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019793	1019892	
==>tm tm;\n  const time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_localtime_r(&t, &tm <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020724	1020823	
==>tm tm;\n  const time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_localtime_r(&t, &tm <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	6704	6793	
==>ching of installed libraries.
# (see Parrot_get_runtime_prefix in src/library.c).
$ENV{PAR <==
2	/Users/nnunley/parrot/tools/docs/pod_errors.pl	602	710	
==>>num_pod_errors;
	
	my $errors = $file->pod_errors;
	
	print "\n",
		$file->path, 
		' has ', 
		$file->num_p <==
2	/Users/nnunley/parrot/lib/Test/More.pm	19580	19727	
==>y Test::More handles this is with a named block.  Basically, a
block of tests which can be skipped over or made todo.  It's best if I
just show you. <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	2066	2207	
==>whitespace
    @funcs = grep /\S/, @funcs;

    # If it's got a semicolon, it's not a function header
    @funcs = grep !/;/, @funcs;

    cho <==
2	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	778	866	
==>"
.include "tokenize.pasm"
.include "basicvar.pasm"
.include "basic.pasm"
.include "instr <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	2326	2463	
==>n_version => $3 ? "$1.$2$3" : "$1.$2");
    }

    $conf->data->set($util => $prog);
    $self->set_result('yes');

    return $self;
}

1 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	9908	10021	
==>ng but seq tries to match its children at the same
        # starting point in the string -- think of alternation, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717121	717359	
==>ARGS" => [],
                  "BODY" => "#line 100 \"src/ops/python.ops\"\n  PMC * const io = PIO_STDOUT(interpreter);\n  PIO_puts(interpreter, io, \"\\n\");\n  PIO_softspace(interpreter, io, 0);\n  {{+=1}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	49106	49199	
==>ee below).

Omitting the first argument (input text) means process C<$_> instead.
Omitting the <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	1466	1572	
==>f);
    my $pirate_file;

    $exit_code |= Parrot::Test::run_command($cmd, STDOUT => $pirate_out_f);
    $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1959	2054	
==>$formal_args[$i]};
    my $actual_arg_type;

    if (UNIVERSAL::isa($args[$i], 'Jako::Construct: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1659	1754	
==>$formal_args[$i]};
    my $actual_arg_type;

    if (UNIVERSAL::isa($args[$i], 'Jako::Construct: <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14847	14959	
==>{
  my $x; # scratch
  if(!defined wantarray) { # void context: alter in-place!
    for(@_) {
      s/([F\x00-\x1 <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2012	2193	
==>N1, N1, N2
$N2 = 1000000.0;              # set    N2, 1000000.0
$N1 = $N1 / $N2;              # div    N1, N1, N2
                              #
print "M op/s:        $N1\n"; # prin <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	2012	2193	
==>N1, N1, N2
$N2 = 1000000.0;              # set    N2, 1000000.0
$N1 = $N1 / $N2;              # div    N1, N1, N2
                              #
print "M op/s:        $N1\n"; # prin <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	394	631	
==>}


#
# debug()
#

sub debug
{
  my $self = shift;

  if (@_) {
    $self->{DEBUG} = shift;
  }

  return $self->{DEBUG};
}


#
# file()
#

sub file
{
  my $self = shift;

  if (@_) { $self->{FILE} = shift; }

  return defined $self->{FIL <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	4255	4360	
==>@H = qw(include/parrot/embed.h include/parrot/extend.h);

for my $h (@H) {
    if (open(H, $h)) {
	while ( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	12170	12266	
==>ALSO

L<Pod::Simple>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All ri <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	3088	3184	
==>ALSO

L<Pod::Simple>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All ri <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2434	2525	
==>SIS

  perl -MPod::Simple::DumpAsXML -e \
   "exit Pod::Simple::DumpAsXML->filter(shift)->an <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	13545	13645	
==>correct
Unicode value, regardless of the version of Perl you're using --
which differs from C<%Name2c <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	45434	45633	
==>d any specified
prefix) removed.

Examples:

	# Remove the first quotelike literal that appears in text

		$quotelike = extract_quotelike($text,'.*?');

	# Replace one or more leading whitespace-separ <==
2	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1453	1604	
==>ub usage { print STDERR <<USAGE; exit }
Usage: $0 [options] -- smoke1.html smoke2.html ...

Available options:
  --smokeserv=http://path/to/smokeserv.pl <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14139	14239	
==>('', 'branch', ["DONE_$label"]);
    $self->_add_inst ("FAIL_$label", 'set', [$return,0]);
    $self- <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16407	16503	
==>('', 'branch', ["DONE_$label"]);
  $self->_add_inst ("FAIL_$label", 'set', [$return,0]);
  $self- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947050	947150	
==>"\n  INTVAL n = Parrot_charset_number(interpreter, {{\@2}});\n  if (n < 0)\n    real_exception(interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947952	948052	
==>"\n  INTVAL n = Parrot_charset_number(interpreter, {{\@2}});\n  if (n < 0)\n    real_exception(interp <==
2	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	723	1128	
==>acros:             macro(s)
                  { my $dummy = { map { $_->[0] => 
                                        { flag         => $_->[1],
                                          substitution => $_->[2],
                                        }
                                      } @{$item[1]}
                                }
                  }

# ignore comments
comment:            m/^#[ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	31480	31665	
==><name/sec>
  # L</"sec"> or L</sec> or L<"sec">
  # L<text|name>
  # L<text|name/"sec"> or L<text|name/sec>
  # L<text|/"sec"> or L<text|/sec> or L<text|"sec">
  # L<scheme:...>

  my($s <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	810	943	
==>r my $symbtab ( @{ $parser->YYData->{scope} } ) {
                if ( $symbtab->isa('SymbTabVar') ) {
                    if ( exis <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650601	650708	
==>.ops\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtable_max)\n        {{\@1}} = 1;\n    else if ({{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651523	651630	
==>.ops\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtable_max)\n        {{\@1}} = 1;\n    else if ({{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	1226	1331	
==>file copy_if_diff move_if_diff)]
);

=item C<integrate($orig, $new)>

Integrates C<$new> into C<$orig>.  R <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	765	863	
==>ck (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Construct::Block');

  my $sel <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	1448	1614	
==>*",
       c => "char",
       s => "short",
       2 => "short *",
       f => "float",
       d => "double",
       t => "char *",
       v => "void",
       J => "I <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	1033	1195	
==>*",
       c => "char",
       s => "short",
       2 => "short *",
       f => "float",
       d => "double",
       t => "char *",
       v => "void",
#      b = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711348	711520	
==>ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 50 \"src/ops/python.ops\"\n  PMC * const io = PIO_STDOUT(inte <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	3260	3391	
==>e 
        # same back-end file (core.ops, for example)
        if (exists($file_line_coverage{$source_file})) {
            $source <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	6458	6619	
==>%s'\n", $file, $line, $1;
      push @tokens, Jako::Token->new(
        $file, $line, 'ident', undef, $1);
      $text = $3;
      next;
    }
   
    #
    # Any <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10636	10755	
==>logic. Please, report it as a BUG");

}#_Parse
#DO NOT remove comment

1;

}
#End of include-------------------- <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10159	10270	
==>logic. Please, report it as a BUG");

}#_Parse
#DO NOT remove comment

1;

}
#End of include-------------------- <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	7000	7179	
==>into an anchor name;
    
    my $name = $self->linearize_tokens(@to_unget);
    
    if ( defined $name ) 
    {
        $name =~ tr/ /_/;
        
        print {$self->{'output_ <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	7486	7603	
==>ary.html for writing: $!\n";

    print OUT page_header("File Coverage Summary");
    print OUT qq(
            <i>You <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	724	887	
==>>> (32 - $_[1]);
	#my $right = $_[0] >> (32 - $_[1]);
	#my $rmask = (1 << $_[1]) - 1;
	($_[0] << $_[1]) | (( $_[0] >> (32 - $_[1])  )  & ((1 << $_[1]) - 1));
	#$_[0 <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	19302	19429	
==>nted

=item B<skip_rest>

  $Test->skip_rest;
  $Test->skip_rest($reason);

Like skip(), only it skips all the rest of the tests <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	71	168	
==>cs/Directory.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Director <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429706	429818	
==>ops/math.ops\"\n  mmd_dispatch_v_ps(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430593	430705	
==>ops/math.ops\"\n  mmd_dispatch_v_ps(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11781	11880	
==>able method '$method'\n"
      unless defined $super_table->{$method};
    my $supermethod = "Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660153	660411	
==>xists_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661075	661333	
==>xists_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	10737	10895	
==>eturn;
	}
	splice @{$thisparser->{errors}}, $err_at;
	$return = $item[$#item] unless defined $return;'.($::RD_NO_TRACE?'':'
	if (defined $::RD_TRACE)
	{
		Pars <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	14448	14665	
==>eftree()) foreach (@{ $op->{args} });
    return $ref;
}

sub Regex::Ops::Tree::multi_match::reftree {
    my $op = shift;

    my ($min, $max, $greedy, $R) = @{ $op->{args} };
    my $ref = [ annotated($op, "multi_mat <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	1877	2001	
==>ug
    if ( $ENV{TEST_PROG_ARGS} && $ENV{TEST_PROG_ARGS} !~ /\b--gc-debug\b/ )
    {
        $ENV{TEST_PROG_ARGS} .= " --gc-d <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	14566	14681	
==>d</span>
              </tmpl_loop><br />
              <a href="<tmpl_var name=link>" title="Full smoke report">Vie <==
2	/Users/nnunley/parrot/lib/File/Which.pm	6187	6372	
==>ot. Could someone please tell
me?

=head1 Author

Per Einar Ellefsen, E<lt>per.einar (at) skynet.beE<gt>

Originated in I<modperl-2.0/lib/Apache/Build.pm>. Changed for use in DocSet
(for <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2650	2750	
==>nt({ Name => 'cond', Attributes => { kind => $cond } });
    $handler->start_element({ Name => 'block <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3414	3514	
==>nt({ Name => 'cond', Attributes => { kind => $cond } });
    $handler->start_element({ Name => 'block <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	6205	6356	
==>ne',
             'i_sysstatfs' => undef,
             'i_sysstatvfs' => 'define',
             'i_systime' => 'define',
             'i_systimek' => un <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	1913	2411	
==>{table}{$symb} ) {
                            my $defn = $symbtab->{table}{$symb};

                        #                        warn "\tfound in $symbtab\n";
                            return $defn;
                        }
                    }
                }
            }
        }
        return undef;
    }

    sub LookupS {
        my $self = shift;
        my ($symb) = @_;
        if ( exists $self->{table}{$symb} ) {
            my $defn = $self->{table}{$sym <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40131	40285	
==>),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40978	41132	
==>),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "die",
                  "FLAGS" => " <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	9698	9877	
==>) = ($1, $2);

    # flags that have values passed with them
    my %has_value = map { $_ => 1 } qw(does extends group lib hll maps);

    my (%flags, $parent_nr);
    # look throu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	96812	97185	
==>);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnot",
                  "FLAGS" => ":base_core",
                  "ARGDI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847711	847956	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848490	848735	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i" <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4986	5164	
==>t($class);
    $self;
}

=back

=head2 Instance Methods

=over

=item C<line_directive($self,$line,$file)>

Generates the C pre processor string for a #line directive, or an empty <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	27143	27245	
==>=> [ $extname, $extargs, $lastback ]));
    }
}

sub describe_seq { undef };
sub describe_check { undef <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Posix.pm	144	270	
==>ict;

use base 'Parrot::Test::Bc';

sub get_out_fn {
    my $self = shift;
    my ( $count, $options ) = @_;

    return Parrot <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	146	265	
==>ict;

use base 'Parrot::Test::Bc';

sub get_out_fn {
    my $self = shift;
    my ( $count, $options ) = @_;

    return <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5461	5584	
==>check='';

    while(1) {
        my($actions,$act,$stateno);

        $stateno=$$stack[-1][0];
        $actions=$$sta <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5199	5316	
==>check='';

    while(1) {
        my($actions,$act,$stateno);

        $stateno=$$stack[-1][0];
        $actions=$$sta <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095965	1096224	
==>erimental" => 1,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "classname",
                  "F <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340714	341222	
==>DIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 399,
                  "ARGS" => [
                              "i",
                              "p",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 128 \" <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	2187	2305	
==>);
    } elsif ($results{longsize} == 4) {
        $conf->data->set(int4_t => 'long');
    } else {
        $conf->data <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46947	47050	
==>n  if ({{\@1}} != 0) { Interp_debug_SET(interpreter,   {{\@1}}); }\n  else         { Interp_debug_CLEAR( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47730	47833	
==>n  if ({{\@1}} != 0) { Interp_debug_SET(interpreter,   {{\@1}}); }\n  else         { Interp_debug_CLEAR( <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	37117	37264	
==>ssed (C<$_> if the string is omitted or C<undef>)

=item 2.

A string specifying a pattern to be matched as the opening tag.
If the pattern string i <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	22392	22498	
==>>[1]
	P2["storage"]= P1
	P6= P5		# Go back to where we were!
	P2["_type"]= '$_->[1]'
	P3["$_->[0]"]= P2
	#p <==
2	/Users/nnunley/parrot/config/gen/platform.pm	4766	4889	
==>verbose == 2;
            open IN_C, "< $impl_file" or die "Can't open $impl_file: $!";
            print PLATFORM_C <<"END_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33589	33731	
==>== 0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcodes2, @{ $expr->[1] } <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	30879	31040	
==>the
    # expression.
    my $def = aop('rule_def', [ $name, $trymatch, $backup, $num_groups ]);

    my @declarations;
    while (my ($var, $type) = each %{ $sel <==
2	/Users/nnunley/parrot/config/auto/signal.pm	1469	1603	
==>as_setitimer    => 'define',
            has_sig_atomic_t => 'define'
        );
        print " (setitimer) " if $verbose;
    }
    c <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	1419	1572	
==>ist;
    
    my $path = '.';
    
    while ( $self = $self->SUPER::new($path) ) {
        return $dist = $self if $self->file_exists_with_name('README') <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57867	58019	
==>4 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo_s(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58629	58781	
==>4 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo_s(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518681	518947	
==>line",
                  "CODE" => 598,
                  "ARGS" => [
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 734 \"src/ops/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1471	1611	
==>cros required.

=item C<opsarraytype()>

Returns the type for the array of opcodes. By default here it's an array
C<opcode_t>, but the preder <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	18008	18192	
==>ted =~ s/[\t ]+/ /gm;
            }

            # set a TODO for Test::Builder to find
            my $call_pkg = $builder->exported_to() || '';
            # die Dumper( $code, $expec <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6309	6499	
==>source line $sourceline";
	goto UNK;

BARE:	# Check for user-subroutine
	if (usersub($syms[CURR])) {
		die "User Sub";
	}
	if ($syms[NEXT] eq ":") {
		create_label();
		label_defined($syms[CU <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	3586	3722	
==>scent::LineCounter/;
	
	my $parser = $self->{parser};
	my $apparently = $parser->{offsetlinenum}
			 - Parse::RecDescent::_linecount(${$s <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	21231	21399	
==>TUSER;
	new P1, .PerlHash
	P1["name"]= '$_->[0]'
	P1["type"]= '$_->[2]'
	P1["value"]= $val{$_->[2]}
	P2["$_->[0]"]= P1
NOTUSER
			} else {
				print CODE<<USERTYPE;
	new <==
2	/Users/nnunley/parrot/Configure.pl	8348	8517	
==>print <<"END";
Parrot Version $parrot_version Configure 2.0
Copyright (C) 2001-2006, The Perl Foundation.

Hello, I'm Configure. My job is to poke and prod your system to <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477100	477196	
==>, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@1}} / den);\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477996	478092	
==>, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@1}} / den);\n <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	46982	47085	
==>w->output_fh(*STDOUT{IO});
  
  if(ref($source || '') eq 'SCALAR') {
    $new->parse_string_document( $$ <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	15340	15473	
==>id *) $init_func;
    dynop_register(interpreter, lib);
    return lib;
}
END_C

}

close SOURCE;
my $final = $source;
$final =~ s/\.t <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	1399	1520	
==>} elsif (ref($atom) eq 'ARRAY') {
        # Codeblock
        $R = op('external' => [ 'code', [ $atom, $ctx ] ]);
    } el <==
2	/Users/nnunley/parrot/languages/urm/urm-old.pl	692	831	
==>line =~ /^\d+:(.+)/) { 
	my $code = $1;
	# Some beautification!
	$code =~ s/ +/ /g;
	$code =~ s/\#.*//g;
	next unless $code;
	push @program, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015010	1015107	
==>ps\"\n  const char * const tmp = strerror({{\@2}});\n  {{\@1}} = string_make(interpreter, tmp, str <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015834	1015931	
==>ps\"\n  const char * const tmp = strerror({{\@2}});\n  {{\@1}} = string_make(interpreter, tmp, str <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811505	811617	
==>@1}} = {{\@2}}->vtable->get_pmc_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812407	812519	
==>@1}} = {{\@2}}->vtable->get_pmc_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/File/Which.pm	2162	2315	
==>@path_ext) {
            my $file = $base.$ext;
# print STDERR "$file\n";

            if ((-x $file or    # executable, normal case
                 ($Is <==
2	/Users/nnunley/parrot/tools/dev/gen_class.pl	52	368	
==>ion.
# $Id: /parrot/tools/dev/gen_class.pl 19607 2006-05-30T15:23:20.183054Z coke  $

=head1 NAME

tools/dev/gen_class.pl - Create a template PMC file

=head1 SYNOPSIS

	% perl tools/dev/gen_class.pl Foo > src/pmc/Foo.pmc

=head1 DESCRIPTION

Use this script to generate a template PMC file with stubs fo <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	949	1061	
==>r) = @_;
  
  my $ident_name = $self->ident->value;

  my $ident = $self->ident->compile($compiler);
  
  $compil <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	949	1057	
==>r) = @_;

  my $ident_name = $self->ident->value;

  my $ident = $self->ident->compile($compiler);

  $compil <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	20016	20172	
==>er of package indirection
                my $level = $builder->level();
                $builder->level(2);

                # Load module that knows how to <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10354	10559	
==>est.out');

    return $output;
}

=item C<cc_run_capture()>

Same as C<cc_run()> except that warnings and errors are also directed to
F<test.out>.

=cut

sub cc_run_capture
{
    my $exe   = $conf->data->g <==
2	/Users/nnunley/parrot/tools/build/revision_c.pl	678	879	
==>onfig.h"

/* also in "parrot/embed.h" */
PARROT_API int Parrot_revision(void);
/* also in "parrot/misc.h" */
PARROT_API int Parrot_config_revision(void);

int Parrot_revision(void)
{
    return ${Parrot <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	59	177	
==>rot/config/auto/gmp.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/gmp.pm - Test for GNU MP (GM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032594	1032891	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_lex",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033691	1033988	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_lex",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i <==
2	/Users/nnunley/parrot/config/auto/jit.pm	2641	2760	
==>puarch/asm.s") {
        copy_if_diff("$jitbase/$cpuarch/asm.s", "src/asmfun.s");
        $conf->data->set(asmfun_o => ' <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16167	16266	
==>ate
the number of lines, C<$out_name> is the name of the output file we are
generating.

=cut

sub m <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	5533	5647	
==>ing the Parrot ops.

    =cut
END_POD

my $preamble = <<END_C;
#! perl -w
#
# !!!!!!!   DO NOT EDIT THIS FILE   !!! <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	2372	2476	
==>if $debug;
		}
	}
	feedme;
	#print "Type $type[CURR] Sym $syms[CURR]\n";
	goto UNK if ($type[CURR] ne 'BA <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2505	2666	
==>tion, to be overridden in subclasses.
sub init { return shift(); };

# Exportable convenience function
sub rop {
    return __PACKAGE__->op(@_);
}

use vars qw(%M <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936333	936606	
==>});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "titlecas <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937110	937383	
==>});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "titlecas <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	320	412	
==>mmands
my @dynamic_cmds = pir_cmds_in_dir($dynamic_dir);

print <<"END_PIR";

.HLL 'tcl', 'tc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292320	292600	
==>TYPE" => "inline",
                  "CODE" => 340,
                  "ARGS" => [
                              "i",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 940 \"src/ops/cmp.ops\"\n  { <==
2	/Users/nnunley/parrot/languages/scheme/Scheme.pm	1240	1331	
==>>{tokens} = Scheme::Tokenizer::tokenize($self->{file});
  $self->{tree}   = Scheme::Parser:: <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	3510	3616	
==>der file with the specified name.

=cut

sub c_header_file_with_name
{
    my $self = shift;
    my $name = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20287	20420	
==>ou are particularly interested in customizing this module's output
even more, see the source and/or write to me.

=head1 SEE ALSO

L<P <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28603	28740	
==>35,
			'primary' => 28
		}
	},
	{#State 87
		DEFAULT => -105
	},
	{#State 88
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'T <==
2	/Users/nnunley/parrot/config/auto/python.pm	424	629	
==>gure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining whether python is installed';

@args = qw();

sub runstep
{
    my ($self, $conf) = @_;

    my ($out, $err) = capture_o <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	360	518	
==>gure::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining whether your compiler supports computed goto';
@args        = qw(cgoto mi <==
2	/Users/nnunley/parrot/languages/lua/luac.pl	576	691	
==>Data->{nb_error};
    print "$nb error(s).\n";
}
if ( $parser->YYData->{verbose_warning}
    and exists $parser- <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	5954	6203	
==>n(F, "nm -a $obj|") || die "Can't run nm on $obj\n";
        
        while(<F>) {
            chomp;
            
            my ($type, $symbol) = /^........ (\S) (.*)/;
            
            if ($type eq 'U') {
                $defined_in{$symb <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	19868	20044	
==>{
        if ($_->{'code'} =~ /\w\s+\w/) {
            die "Currently unable to build dispatch table for instructions of " .
                "more than 2 bytes in rule $_->{'nam <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194078	194484	
==>",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 230,
                  "ARGS" => [
                              "p",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 320 \"src/ops/cmp.op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115459	115767	
==>\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116314	116622	
==>\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl", <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	3097	3239	
==>nd => 'then' } });
  }

  $handler->start_element({ Name => 'goto', Attributes => { label => $name } });
  $handler->end_element({ Name => 'got <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	11442	11672	
==>f the file where output is written.
            # Switch to a different extension when we are generating code.
            my $out_f = per_test('.out', $test_no);

            # Name of the file with test code.
            # This d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242035	242127	
==>s/cmp.ops\"\n  FLOATVAL l = VTABLE_get_number(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242984	243076	
==>s/cmp.ops\"\n  FLOATVAL l = VTABLE_get_number(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4427	4553	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sub run {
  my $self = $_[0];
  return $self->do_middle if $self->bare_ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	1312	1440	
==>if ($cur eq '"') {   # String constants
		append;
		fetch;
		while($cur ne '"') {
			if ($cur eq "\n") {
				$cur=q{"};  # EOL is <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	4479	5005	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "prederef__",
                  "FLAGS" => ":internal",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 6,
                  "ARGS" => [],
                  "BODY" => "#line 135 \"src/ops/core.ops\"\n    do_prederef((void**)cur_opcode, interpreter, op_lib.core_type);\n    {{+=0}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	1935	2031	
==>DIR)/core_ops_cgp$(O)',
            TEMP_cg_r => '$(RM_F) $(INC_DIR)/oplib/core_ops_cg.h $(OPS_DI <==
2	/Users/nnunley/parrot/config/auto/va_ptr.pm	186	291	
==>version test

=head1 DESCRIPTION

Tests which kind of PARROT_VA_TO_VAPTR to use.

=cut

package auto::va_p <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7300	7424	
==>lf->get_token;
        next unless defined $next;
        unless( $next->type eq 'text' ) {
          $self->unget_token($nex <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9545	9669	
==>lf->get_token;
        next unless defined $next;
        unless( $next->type eq 'text' ) {
          $self->unget_token($nex <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	73777	73988	
==>);

	if (defined $retval)
	{
		foreach ( @{$_[0]->{deferred}} ) { &$_; }
	}
	else
	{
		foreach ( @{$_[0]->{errors}} ) { _error(@$_); }
	}

	if (ref $_[1]) { ${$_[1]} = $text }

	$ERRORS = 0;
	return $retval;
}

s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019820	1019913	
==>(time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_localtime_r(&t, &tm);\n  Parrot_asctime_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020751	1020844	
==>(time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_localtime_r(&t, &tm);\n  Parrot_asctime_ <==
2	/Users/nnunley/parrot/config/inter/charset.pm	1200	1293	
==>ilt by 'config/inter/charset.pm'

E_NOTE

    foreach my $charset (split(/\s+/, $charset_list) <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	418	665	
==>ings;

use File::Find;

my @dirs;  # will be filled in wanted

# XXX Most of these can probably be cleaned up
my %special = qw(
    NEWS                                            [devel]doc
    PBC_COMPAT                                      [deve <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60167	60444	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "warningsoff",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60816	61093	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "warningsoff",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline" <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	2232	2385	
==>iparrot/$src");
    }
}

sub copy_src {
    print "** $0: copying source files to miniparrot directory\n";

    foreach my $file (@ARGV) {
        copy_fi <==
2	/Users/nnunley/parrot/examples/benchmarks/fib.pl	45	151	
==>l Foundation.
# $Id: /parrot/examples/benchmarks/fib.pl 19601 2006-05-30T13:32:26.641316Z coke  $

=head1 N <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	17289	17419	
==>lf->forth);

      $self->require_semicolon;

      my $arith = Jako::Construct::Statement::Concat->new($block, $ident, $left, $op, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8643	8893	
==>ack)." # was a mark?";
    push @ops, "set $reg, <rx_tmp> # nope, set pos := popped index"
      unless $reg eq '<rx_tmp>';
    return @ops;
}

sub output_peekindex {
    my $self = shift;
    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $f <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	4252	4383	
==>le' if $self->is_executable;
		
	return $UNDEFINED;
}

=item C<is_of_type($type)>

Returns whether the file is of the specified type <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	8397	8670	
==>ve a balanced {} construct from the beginning of $code.
Return it and the remaining code.

=cut

sub extract_balanced {
    my $code    = shift;
    my $balance = 0;

    $code =~ s/^\s+//;

    # create a copy and remove strings and comments so that
    # unbalanced {} can <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	2399	2505	
==>w many tests you plan on running in
case something goes horribly wrong.

If all your tests passed, Test::Si <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	15119	15286	
==>$sub_meth_decl =~ /(\w+)\(/;
            my $sub_meth_name = $1;
            my $sub_meth =  $sub_meth_decl;   # no "static ." ...
            $sub_meth =~ s/\(/_$right <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321586	321806	
==>vtable->get_integer(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323942	324162	
==>vtable->get_integer(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	13569	13675	
==>ine $line:"],
      map( ['~Para', {'start_line' => $m, '~cooked' => 1},
        #['~Top', {'start_line' => <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	22034	22177	
==>$treelet->[0] node...\n";
    for($i = 2; $i < @$treelet; ++$i) { # iterate over children
      next unless ref $treelet->[$i];  # text nodes ar <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	5841	6019	
==>(@NoParrotAPI) {
    printf "--- Missing Parrot API: %d ---\n", scalar @NoParrotAPI;
    for my $api (@NoParrotAPI) {
	printf "%s\t%s\tMISSING_API\n", $api, "-";
    }
}

if (@NoP <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1162	1276	
==>ts ${STYPES}
PIR

	# Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	f <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2872	2986	
==>ts ${STYPES}
PIR

	# Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863026	863263	
==>=> "inline",
                  "CODE" => 979,
                  "ARGS" => [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 138 \"src/ops/string.ops\" <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6121	6263	
==>erefore not formatted.

=cut

sub pod_as_html
{
	my $self = shift;
	
	if ( $self->contains_pod )
	{
		my $formatter = Parrot::Docs::POD2HTML->n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10955	11042	
==>Y" => "#line 206 \"src/ops/core.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11744	11831	
==>Y" => "#line 206 \"src/ops/core.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->c <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	543	666	
==>[(),]/);
	$targ.=$seg;
	$source.=$seg;
	push @{$code{$seg}->{code}}, <<KEYS;
	_ARRAY_KEYS("$source","$targ")
KEYS
}
sub pars <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	310	402	
==>";

package Jako::Construct::Block::Conditional::Else;

use Carp;

use base qw(Jako::Construc <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	5829	5993	
==>'', 'mmd'),
        ),
        $self->new_group(
            'Extensions', 
            '',
            $self->c_pair_item('', 'extend'),
        ),
        $self->n <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	10013	10221	
==>h
exp         math.h
exp2        math.h
exp2f       math.h
exp2l       math.h
expf        math.h
expl        math.h
expm1       math.h
expm1f      math.h
expm1l      math.h
fabs        math.h
fabsf       math. <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	15624	15733	
==>per( $code, $expected, $desc, \%extra, $extra{todo}, $call_pkg ) if ( keys %extra );
            local *{ $cal <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	18175	18284	
==>per( $code, $expected, $desc, \%extra, $extra{todo}, $call_pkg ) if ( keys %extra );
            local *{ $cal <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	778	1017	
==>If we were to
    # wait till it's normally run, the linker question would have already
    # been asked.)
    my $solaris_link_cb = sub {
        use Carp;
        my ($key, $cc) = @_;
        my %gnuc;
        my $link = $conf->data->get( <==
2	/Users/nnunley/parrot/config/auto/headers.pm	1853	1978	
==>ails, try with all the
        # headers we found so far. This is somewhat a hack, but makes probing
        # work on *BSD wh <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	9323	9435	
==>T ]}\": $!\n";

  my $data   = eval { fd_retrieve $fh };
  $data    ||= [MAX_RATE, BURST];
  my $bucket = Algorit <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	53361	53519	
==>le 60
		 'exp', 3,
sub
#line 349 "Lua\lua51.yp"
{
            BuildBinop( $_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 61
		 'exp', 3,
sub
#l <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32964	33166	
==>ead"} ? '$text = $_savetext;' : '' ) .'
';

	return $code;
}

1;

package Parse::RecDescent::Subrule;

sub issubrule ($) { return $_[0]->{"subrule"} }
sub isterminal { 0 }
sub sethashname {}

sub describ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021700	1021813	
==>n  Parrot_gmtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022542	1022655	
==>n  Parrot_gmtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	456	590	
==>age Parrot::Docs::Section::Parrot;

use strict;
use warnings;

use base qw( Parrot::Docs::Section );

use Parrot::Distribution;

use Pa <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	38329	38466	
==>raph as such because the containing =for ($fors[-1][1]{'target'}) is a resolver\n";
            }
          } else {
            DEBUG and <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44505	44767	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "popmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45146	45408	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "popmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "i <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9660	9789	
==>_command("$link $linkflags test$o $link_args ${cc_exe_out}test$exe $libs", 'test.ldo', 'test.ldo', $verbose)
        and confess " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738013	738242	
==>GS" => [
                              "n",
                              "s"
                            ],
                  "BODY" => "#line 149 \"src/ops/set.ops\"\n  {{\@1}} = string_to_num(interpreter, {{\@2}});\n  {{+=3}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10591	10719	
==>) ) 
    {
        $section =~ tr/ /_/;
        $section =~ tr/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
        $section = $self- <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3986	4096	
==>)) {
    $section =~ tr/ /_/;
    $section =~ tr/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
    $section = $self- <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	3111	3247	
==>]/) { # Punct
		append;
		emit("PUN");
		fetch;
		goto MAIN;
	}

	if ($cur eq "\n") {   # ;?
		append;
		emit("STMT");
		fetch;
		goto MA <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2398	2499	
==>y ($self, $where_str) = @_;
    return "return $where_str";
}

=item C<expr_pop()>

Addresses on the s <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	2593	2724	
==>$class; sub new { ";
# SEAN: this is bad.
# 		print OUT "my ";

		require Data::Dumper;
		print OUT Data::Dumper->Dump([$self], [qw( <==
2	/Users/nnunley/parrot/tools/util/pirtidy.pl	708	918	
==>$ofh;
}

__END__

=head1 NAME

tools/util/pirtidy.pl - a PIR script indenter and reformatter

=head1 SYNOPSIS

 perl pirtidy.pl [ options ] file1 file2 file3 ...
         (output goes to file1.tdy, file2.tdy, fi <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	6302	6411	
==>ename - kludgy.
	$desc = $_;
	$desc = ""  # it's only emacs variables at the end of the file
	    if(!$comment <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427924	428044	
==>69 \"src/ops/math.ops\"\n  mmd_dispatch_v_pn(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428811	428931	
==>69 \"src/ops/math.ops\"\n  mmd_dispatch_v_pn(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  " <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	47182	47290	
==>e {  # it's a filename
    $new->parse_file($source);
  }
  
  return $new;
}


#---------------------------- <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3239	3331	
==>Parrot::Test::PGE::_generate_glob_for($target, $pattern);

    goto &Parrot::Test::pir_output <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3664	3756	
==>Parrot::Test::PGE::_generate_glob_for($target, $pattern);

    goto &Parrot::Test::pir_output <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4574	4680	
==>bel = $self->{state}->genlabel("pass_charclass");
    my @ops = ("<rx_tmp> = ord(substr(<rx_input>, <rx_pos <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	21899	22014	
==>OC
    }
}
sub print_stack {
    for $_ (@stack) {
	print "# STACK $_->[0] $_->[1] $_->[2]\n";
    }
}


sub ret_val <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	25820	25935	
==>N' . ++$_[1]->{patcount} . '__'; }

sub issubrule { undef }
sub isterminal { 1 }
sub describe ($) { shift->{'descrip <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	36678	36796	
==>,
Test::Exception and Test::Differences all use Test::Builder.

=head1 SEE ALSO

Test::Simple, Test::More, Test::Harnes <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	7781	7953	
==>s' );

    $obj = new Myobj;               # constructor

                                    # scalar type accessor:
    $element_value = $obj->s;           # element value <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	9	102	
==>w
# Copyright (C) 2001-2006, The Perl Foundation.
# $Id: /parrot/tools/build/jit2c.pl 20350 20 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	8976	9166	
==>mat, @args) = @_;
  $self->ERROR('Parse', $format, @args);
}


#
# SYNTAX_ERROR()
#

sub SYNTAX_ERROR
{
  my ($self, $format, @args) = @_;
  $self->ERROR('Syntax', $format, @args);
}


#
# IN <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	12684	12805	
==>idx = hash_str(full ? info->full_name : info->name) % OP_HASH_SIZE;
    p->info = info;
    p->next = hop[hidx];
    hop[h <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2602	2740	
==>num/$_ - 1/ge;
	}

	# Return it.
	return $pir;
}

# Pre and post branch operation hooks.
sub pre_branch($) {
	my $self = shift;
	my $pops = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1050914	1051181	
==>"function",
                  "CODE" => 1174,
                  "ARGS" => [
                              "p",
                              "sc",
                              "s"
                            ],
                  "BODY" => "#line 172 \"src/ops/var.ops <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	30620	30730	
==>op_apply {
  my ($self, $node) = @_;
  my $return;

  my $func = $self->_generate(_get_arg ($node, 1));
  my @a <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4333	4449	
==>as a BUG: Cannot open $fname";
	while(<DRV>) {
                	/^\s*sub\s+_Parse\s*{\s*$/ .. /^\s*}\s*#\s*_Parse\s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4113	4227	
==>as a BUG: Cannot open $fname";
	while(<DRV>) {
                	/^\s*sub\s+_Parse\s*{\s*$/ .. /^\s*}\s*#\s*_Parse\s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	6	106	
==>le.pm
#
# Copyright (C) 2003-2005, The Perl Foundation.
# This program is free software. It is subjec <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	8	108	
==>le.pm
#
# Copyright (C) 2003-2005, The Perl Foundation.
# This program is free software. It is subjec <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	57222	57437	
==>tonly;
			}
			elsif ($grammar =~ m/(?=$MSGERRORMK)/gco
				and do { $commitonly = $1;
					 ($code) = extract_bracketed($grammar,'<');
					$code })
			{
				_parse("an error marker", $aftererror,$line,$code);
				$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567509	567627	
==>ject.ops\"\n  {{\@1}} = {{\@2}}->vtable->does(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568404	568522	
==>ject.ops\"\n  {{\@1}} = {{\@2}}->vtable->does(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1181	1274	
==>out_f);
        $pass =$self->{builder}->is_eq( Parrot::Test::slurp_file($out_f), $output, $de <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1222	1315	
==>out_f);
        $pass =$self->{builder}->is_eq( Parrot::Test::slurp_file($out_f), $output, $de <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11799	11926	
==>symbolname2...);>,
or you can do C<use Pod::Escapes qw(:ALL);> to get all
exportable symbols.

=head1 GOODIES

=over

=item e2ch <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1450	1559	
==>{value} = $tokens->[$count++];
  }
  
  return ($count,$temp);
}

sub _dataflow {
  my $node = shift;

  if(ex <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16051	16254	
==>ML> warning.

=cut

sub esc 
{
    if ( defined wantarray ) 
    {
        if ( wantarray ) 
        {
            @_ = splice @_; # break aliasing
        } 
        else 
        {
            my $x = s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1502	1649	
==>nce, $failLabel) = @_;
    die "invalid distance" if $distance =~ /[^\d\-]/;
    return () if $distance == 0;

    if ($distance == 1) {
        ret <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1749	1856	
==>nce, $failLabel) = @_;
    die "invalid distance" if $distance =~ /[^\d\-]/;
    return () if $distance == 0 <==
2	/Users/nnunley/parrot/Configure.pl	4532	4700	
==>Handle options
my %args;
for (@ARGV) {
  my($key, $value) = m/--([-\w]+)(?:=(.*))?/;
  $key   = 'help' unless defined $key;
  $value = 1      unless defined $value;

  f <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13028	13149	
==>t

' Deep-copy of structures, 34 (NOT 99)
type first
	foo as integer
	bar as string
end type
type second
	link as first
en <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53240	53327	
==>Parse::RecDescent::UncondReject($lookahead,$line,$code);
				$prod and $prod->additem($i <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54949	55036	
==>Parse::RecDescent::UncondReject($lookahead,$line,$code);
				$prod and $prod->additem($i <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	3652	3837	
==>d by C<$to> if
it's contents have changed.

=cut

sub move_if_diff
{
    my ($from, $to, $ignorePattern) = @_;
    copy_if_diff($from, $to, $ignorePattern);
    unlink $from;
}

=item C< <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4569	4664	
==>n
   $self->do_beginning && $self->do_middle && $self->do_end;
}


#~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3200	3294	
==>n
   $self->do_beginning && $self->do_middle && $self->do_end;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361661	361758	
==>{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, INTVAL_FMT, {{\@2}});\n    PIO_put <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362560	362657	
==>{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, INTVAL_FMT, {{\@2}});\n    PIO_put <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	51252	51346	
==>act_codeblock($text, '{}E<lt>E<gt>')> to extract the code
within the C<E<lt>defer:...E<gt>> dir <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19284	19434	
==>graphic text will appear in.

=item $parser->no_proofing_exemptions( I<true_or_false> );

Set this value to true if you don't want the formatter to try <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	17355	17471	
==>ed dynalt, advancing from dynalt[%<$counter>]/%<$N>\n"),
                 aop('add', [ $counter, 1 ]),
		 aop('ge', [ <==
2	/Users/nnunley/parrot/config/auto/msvc.pm	420	551	
==>o';

$description = 'Determining if your C compiler is actually Visual C++';

@args = qw(verbose);

sub runstep
{
    my ($self, $co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	4360	4531	
==>CUR_OPCODE;\n    DO_OP(pc, interpreter);\n    {{=pc}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1108966	1109254	
==>ASS,\n                \"Can only use a Key or String PMC with new\");\n    }\n    {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29229	29324	
==>self->{vtable}{methods}[$n]{mmd} =~ /MMD/ ? 0 : 1;
}

=back

=head1 SUBCLASSES

=head2 Parrot::P <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	29746	29927	
==>ure ? $name : undef, $lastback ]),
                          aop('goto' => [ $next ]),
                 $back => aop('call' => [ $name, 0, $uid ]),
                          aop('got <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	31540	31722	
==>_> is used.

In list context, C<extract_delimited> returns a array of three
elements, the extracted substring (I<including the surrounding
delimiters>), the remainder of the text, and <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	2973	3139	
==>ub b64digest {
	md5_base64(shift->{data})
}

sub md5(@) {
	my $message = padding(join'',@_);
	my ($a,$b,$c,$d) = (A,B,C,D);
	my $i;
	for $i (0 .. (length $message)/64- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87406	87493	
==>ine 1215 \"src/ops/core.ops\"\n  {{\@1}} = Parrot_make_cb(interpreter, {{\@2}}, {{\@3}}, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88408	88495	
==>ine 1215 \"src/ops/core.ops\"\n  {{\@1}} = Parrot_make_cb(interpreter, {{\@2}}, {{\@3}}, <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	3564	3677	
==>odule, :$todo, :$depends) is export {
    my $caller = caller().package;

    eval "package $caller; require $modu <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	1274	1380	
==>loring a location is more important than big-picture browsing.

=item * Is absense of "[...]"s in the indes <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	5397	5554	
==>es ];
    }
}

sub BuildTable {
    my ( $parser, $fields ) = @_;
    my @opcodes1 = ();
    my @opcodes2 = ();
    my $result   = new_tmp( $parser, ' <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19412	19524	
==>ction has the specified
		       			  \"auto-action\" automatically
					  appended.");
	}
	elsif ($parser->{_AUT <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	19001	19131	
==>> to the end of the op list.

=cut

sub push_op
{
    my ($self, $op) = @_;

    push @{$self->{OPS}}, $op;
}

=back

=head1 SEE AL <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	9837	10049	
==>h
div         stdlib.h
erf         math.h
erfc        math.h
erfcf       math.h
erfcl       math.h
erff        math.h
erfl        math.h
errno       errno.h
exit        stdlib.h
exp         math.h
exp2        math <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	1200	1326	
==>",
  '/head4' => "</a></h4>\n",

  'X'  => "<!--\n\tINDEX: ",
  '/X' => "\n-->",

  changes(qw(
    Para=p
    B=b I=i
    over <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3471	3663	
==>, 'set', [$return,$value]);
  }
  elsif ($value =~ /^[-+]?((\d+\.\d*)|(\.d+))([eE][-+]?\d+)?$/) {
    $return = $self->_save_1 ('N');
    $self->_add_inst ('', 'set', [$return,$value]);
  }
  e <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	4452	4559	
==>, 'set',[$return,$value]);
    }
    elsif ($value =~ /^[-+]?((\d+\.\d*)|(\.d+))([eE][-+]?\d+)?$/) {
      $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7617	7822	
==>rop>[=<value] ...] (<arg>, <arg>, ...) {
    #

    if ($token->is_sub) {
      my $block = $self->current_block;

      my $type_token = $self->skip_type;

      my $type;
      $type = Jako::Construct::Ty <==
2	/Users/nnunley/parrot/config/auto/bc.pm	1021	1199	
==>bc_does_not_hang{$osname}) {

        # This seems to work for GNU bc 1.06
        my $answer = capture_output('bc', '-v') || '';
        $has_gnu_bc =
            ($answer =~ m/^ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28091	28263	
==>parser,
        'arg1'   => $cond->[0],
        'result' => $l_break,
    );
    push @opcodes, new BranchOp( $parser,
        'result' => $l_continue,
    );
    pus <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8278	8384	
==>"ELSEBRANCH_$_:\n";
		}
		push @{$code{$seg}->{code}}, "\t# $syms[CURR]\n" if $type[CURR] eq "COMM";
		$els <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28869	28969	
==>ub issubrule { undef }
sub isterminal { 1 }
sub describe ($) { shift->{'description'} }

sub new ($$$ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30949	31049	
==>ub issubrule { undef }
sub isterminal { 1 }
sub describe ($) { shift->{'description'} }

sub new ($$$ <==
2	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	2	103	
==>Copyright (C) 2005, The Perl Foundation.
# $Id: /parrot/config/init/hints/dec_osf.pm 19593 2006-05-30T <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	1832	1935	
==>assembly code',
	'pbc' => 'Parrot bytecode',
	'pl' => 'Perl script',
	'pm' => 'Perl module',
	'pmc' => ' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8321	8511	
==>rk?";
    push @ops, "$reg = <rx_tmp>; # nope, set pos := popped index"
      unless $reg eq '$<rx_tmp>';
    return @ops;
}

sub output_peekindex {
    my $self = shift;
    my ($reg, $fallb <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	1986	2150	
==>0;
    GetOptions('plus-misses' => \$show_full)
	|| die ("Usage: $0 [--plus-misses] [files...]\n\n".
		"FILES defaults to a recursive \" find . \".\n\n".
		"--plus-m <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	4406	4555	
==>>set(verbose => 2);
            }

            # by description
            elsif ($description =~ /$verbose_step/) {
                $self->options-> <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2267	2407	
==>n compile
        $@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exis <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2184	2312	
==>n compile
        $@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exis <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	533160	533465	
==>"i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 616,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 890 \"src/ops/math.ops\"\n  {{\@ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	396	568	
==>, $text) = @_;

  return bless {
    FILE => $file,
    LINE => $line,
    KIND => $kind, # op, 
    TYPE => $type,
    TEXT => $text
  }, $class;
}

sub new_bof
{
  my $cla <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	4277	4389	
==>hide the details
 */

EOM
    for my $entry (@{$vtable}) {
    next if ($entry->[4] =~ /MMD_/);
    my @args = sp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667570	667793	
==>>push_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668344	668567	
==>>push_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	3221	3357	
==>if ($line =~ /\[(\w+)\]/) {
    $cur_section = $1;
    next;
  }

  # Everything else goes to the handler
  $dispatch{$cur_section}->($li <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2119	2230	
==>op', Attributes => { kind => $self->kind, name => $self->prefix } });
  }
  else {
    $handler->start_element({ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140673	140921	
==>GS" => [
                              "n",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 77 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	34646	34754	
==>,
                  "BODY" => "#line 632 \"src/ops/core.ops\"\n  {{\@1}}->vtable->set_pointer(interpreter, {{ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19469	19566	
==>omatically
					  appended.");
	}
	elsif ($parser->{_AUTOTREE} && defined($item) && !$item->isa("P <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	644	795	
==>y $is_intel = grep { $cc eq $_ } (qw(icl icl.exe));
    my $is_mingw = grep { $cc eq $_ } (qw(gcc gcc.exe));
    my $is_bcc   = grep { $cc eq $_ } (qw(b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	4327	4444	
==>s/core.ops\"\n    opcode_t *pc = CUR_OPCODE;\n    DO_OP(pc, interpreter);\n    {{=pc}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37892	38018	
==>>{"lookahead"}?'1':'$_noactions')
		. ($self->{argcode} ? ", sub { return $self->{argcode} }"
				   : ', undef')
		. '))) 
		{ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34424	34547	
==>>{"lookahead"}?'1':'$_noactions')
		. ($self->{argcode} ? ",sub { return $self->{argcode} }"
				   : ',undef')
		. ')))
		{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3002	3100	
==>o C<< PC' = <pop> >>. Pops the address off control stack.

=item C<expr OFFSET(X)>

Transforms to C <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	46909	47042	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@


sub _treelet_from_formatting_codes {
  # Given a paragrap <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	13321	13499	
==>PLVector'
    .return (result)
.end

.sub unicode:"monadic:\u2374" :multi (APLVector) # shape
    .param pmc op1
    .return op1.'get_shape'()
.end

.sub unicode:"dyadic:\u2374" : <==
2	/Users/nnunley/parrot/languages/APL/t/APL.pm	693	859	
==>the test.

# mark todo tests with TODO - but, unless an environment variable is set,
# skip the tests - speed things up for end users, give developers the ability
# to <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	810	1014	
==>my $ops = new Parrot::OpsFile (split(' ', $PConfig{ops}));


#
# dump_const_table()
#

sub dump_const_table {
    my ($pf) = @_;

    my $count = $pf->const_table->const_count;

    if ($count < 1) {
	warn <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11990	12107	
==>shift)->errors_seen" \
   thingy.pod


=head1 DESCRIPTION

This class is for TODO.
This is a subclass of L<Pod::Simple <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	2240	2357	
==>MData::Dumper -e
    "use base qw(Pod::Simple::Methody);
     sub start_L { print Dumper($_[1]{'section'} ) }
     __P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	531941	532169	
==>/ops/math.ops\"\n  {{\@1}} = cosh((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	9007	9283	
==>${slash}$ops\n";
            if ($new_perldoc == 1) {
                print MAKEFILE "\tperldoc -ud ops${slash}$pod ..${slash}src${slash}ops${slash}$ops\n";
                print MAKEFILE "\t\$(CHMOD) 0644 ops${slash}$pod\n\n";
            } else {
                print MAKEFI <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	1875	2004	
==>??
        # opt(|R|S) -> opt(R|S)??
        # opt(|||R|S) -> opt(R|S)??
        # opt(|||) -> ()
        if ($children[0]->{name} <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34977	35071	
==>::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = $Parse::RecDescent::las <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42087	42181	
==>::RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = $Parse::RecDescent::las <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16846	16990	
==>/eg;
        # Leave out "- so that "--" won't make it thru in X-generated comments
        #  with text in them.
        
        # Yes, stipula <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10290	10414	
==>/eg;
    # Leave out "- so that "--" won't make it thru in X-generated comments
    #  with text in them.

    # Yes, stipula <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	156	272	
==>arnings;

use Data::Dumper;
use File::Basename;

use Parrot::Test;

=head1 NAME

Parrot::Test::HQ9plus - Testing rout <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428605	428880	
==>92,
                  "ARGS" => [
                              "ic",
                              "p",
                              "nc"
                            ],
                  "BODY" => "#line 69 \"src/ops/math.ops\"\n  mmd_dispatch_v_pn(interpreter, {{\@2}}, {{\ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	37673	37849	
==>arser,
            'prolog' => 1,
            'arg1'   => $lbl,
        );
        $parser->YYData->{symbtab}->Insert($defn);
    }
    return [ $defn, \@opcodes1, \@opcod <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	487983	488270	
==>n  {{\@1}} = ceil({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	13005	13173	
==>($state == 2) {
      # seeking start of para (which must immediately follow)
      if($token->is_start and $content_containers{ $token->tagname }) {
        DEBUG and p <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	2934	3054	
==>he options can be used to limit the symbols:
--code|-c	code/text symbols (Tt)
--data|-d	data symbols (Dd, Bb)
--init|-i	i <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15437	15542	
==>0]\n";
  push @{ $self->{'token_buffer'} }, 
       $self->{'end_token_class'}->new(@_);
  return;
}

#@@@ <==
2	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1032	1138	
==>rv\"... ";
  my $ua = LWP::UserAgent->new;
  $ua->agent("pugs-smokeserv-client/" . VERSION);
  $ua->env_pro <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	3820	3947	
==>/>
          <RegExpr attribute="String" context="string" String="'" />
          <RegExpr attribute="String Interp" context="st <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	5263	5407	
==>line =~ /^#perl/ && $options{feature_file}) {
            # OUT was/is used at the output filehandle in eval'ed scripts
            # e.g. featur <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18907	19020	
==>ms[NEXT]=~/while|until/ ) ) {
		push @{$code{$seg}->{code}}, "\ngoto DO_$do->{jump}\t# Unconditional\n";
		push @{ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	1490	1615	
==>sub pos
{
  my $self = shift;
  my ($pos) = @_;

  if (defined $pos) {
    my $count = scalar(@{$self->{TOKENS}});

    $pos = <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2677	2882	
==>d $!) {
        Test::proclaim(undef, $desc, $todo, "eval was fatal: $!", $expected, $depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use eval_is()";
        &Test::is.go <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	35562	35722	
==>] {} parenthesized >:-)' string }"  );

because the embedded pairs of C<'(..)'>s and C<'[..]'>s are "cross-nested" and
the embedded C<'E<gt>'> is unbalanced. (In <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52639	52927	
==>L_TRACE_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gc_debug",
                  "FLAGS" => " <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	2425	2569	
==>te base class
header files are included.

If the C<noinit> flag was used, then no init function is generated.
Otherwise, one is generated which s <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	1566	1674	
==>te the C code for a C<return> statement, if the body is empty then
make a cast if needed.

This method is imp <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	5762	5881	
==>NDITIONED_LINE(var):..." are skipped if
            # the "var" condition is false.
            # Lines with "#INVERSE_C <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39069	39351	
==>l;";
        if ($type !~ /\*/) {
            $ret_type = "_ret" . lc substr $type, 0, 1;
            $ret_type = "_reti" if $ret_type eq '_retu';
        }
    }
    my $umeth = uc $meth;
    my $delegate_meth = "PARROT_VTABLE_${umeth}_METHNAME";
    # I think that these will be ou <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1941	2124	
==>b generate_pbc {
    my ($pir, $pbc) = @_;
    my $status = system($PARROT_EXE, '-o', $pbc, $pir);
    if (! defined($status) || $status) {
        die "assemble failed with status " . <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22752	22896	
==>eturn $return;
}

sub _op_even_p {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  my $temp_0 = $self->_generate($node- <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	3272	3398	
==>abel, code => $stmt };
	    $labels{$curlabel->{label}} = $output2[-1] if $curlabel;
	    undef $curlabel;
	}
    }

    # Seco <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	48	139	
==>onfigure::Step from config/gen/makefiles/dynclasses_pl.in

# Copyright: 2001-2005 The Perl F <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653449	653549	
==>|| !VTABLE_defined(interpreter, {{\@1}}))\n        real_exception(interpreter, resume, METH_NOT_FOUND <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654610	654710	
==>|| !VTABLE_defined(interpreter, {{\@1}}))\n        real_exception(interpreter, resume, METH_NOT_FOUND <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	31766	31896	
==>tack;
    my $cl = temp('P');
    my $name = $tos->[1];
    $n = $name;
    $n =~ s/["]//g;
    my $mangle = qq!"py::$n"!;
    $cla <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	46482	46609	
==>xtract_quotelike>
would correctly return the string "<<'EOMSG'\nThis is the message.\nEOMSG",
leaving the string " || die;\nexit <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64952	65176	
==>.$2) ");

						pos $grammar = $pos;
					}
					else
					{
						$item = new Parse::RecDescent::Repetition($name,"$1..$2",$1,$2,
										   $lookahead,$line,
										   $self,
										   $matchrule,
										   $argc <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3248	3361	
==>d -debug together.
        if ($conf->data->get('ld_debug') =~ /-debug/) {
            my $linkflags = $conf->data <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4752	4865	
==>d -debug together.
        if ($conf->data->get('ld_debug') =~ /-debug/) {
            my $linkflags = $conf->data <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	13380	13586	
==>rg2'   => undef,
                    'result' => $result,
                );
                return [ $result, \@opcodes, $assign ];
            }
        }
    }
}

sub BuildAssigns {
    my ( $pa <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11269	11395	
==>D, la la la...
  $text = e2char($e_node->label);
  unless(defined $text) {
    print "Unknown E sequence \"", $e_node->label, " <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	7710	7828	
==>t->accept_targets(@_)         } # alias
sub accept_target_as_text { shift->accept_targets_as_text(@_) } # alias


sub a <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	773	896	
==>x, \@asm);
}

sub output_footer {
}

package Regex::Driver::Perl5;
our @ISA = qw(Regex::Driver);

sub output_header {
    my <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	6640	6954	
==>ey = [ $num_key, \@opcodes3 ];
            }
            if (    scalar @{$fields} == 0
                and scalar @{ $val->[1] } != 0
                and $val->[1]->[-1]->isa('CallOp')
                and !exists $val->[1]->[-1]->{result}[0]->{pragma} )
            {
                my $callop = $val->[1]- <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	26582	26733	
==>ed by any of character(s) specified by $delim
 # (where the string $delim contains one or more of '(){}[]<>').

	($extracted, $remainder) = extract_code <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	21003	21096	
==>.\n\n";

  return;
}

#:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.: <==
2	/Users/nnunley/parrot/config/inter/make.pm	1998	2131	
==>ring assume that this is gmake.
    if ($stdout =~ /GNU \s+ Make \s+ (\d+) \. (\d+)/x) {
        $conf->data->set(gmake_version => "$1 <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	8010	8250	
==>.pc'
    );

    if ($conf->data->get('has_perldoc')) {

        # set up docs/Makefile, partly based on the .ops in the root dir

        opendir OPS, "src/ops" or die "opendir ops: $!";
        my @ops = sort grep { !/^\./ && /\.ops$/ } re <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1408	1518	
==>b compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $dest_ident = $self->dest;

  my $block = $self->b <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1288	1398	
==>b compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $dest_ident = $self->dest;

  my $block = $self->b <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20658	20762	
==>'__ACTION' . ++$_[1]->{actcount} .'__'; }

sub new
{
	my $class = ref($_[0]) || $_[0];
	bless 
	{
		"code <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567547	567803	
==>e->does(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568442	568698	
==>e->does(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	7249	7402	
==>ame__
    __name__ = new $DEFVAR
    __name__ = '__main__'
    global '__name__' = __name__
    .local pmc None
    None = new .None
EOC
    $globals{'__n <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	7723	7834	
==>OLDERR if $err;

    # Save the old filehandles; we must not let them get closed.
    open  OLDOUT, ">&STDOUT" o <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7774	7884	
==>OLDERR if $err;

    # Save the old filehandles; we must not let them get closed.
    open OLDOUT, ">&STDOUT" o <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1249	1377	
==>}
    else
    {
        return $self->{ARGS};
    }
}

=item C<arg($index)>

Returns the argument at index C<$index>.

=cut

sub <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	14259	14418	
==>=> aop('popindex', [ $self->{_labels}{'fail'} ]),
           $try_S => @S_ops,
                     aop('goto', [ $next ]),
            $back => aop('popindex', <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	5956	6446	
==>'extend'),
        ),
        $self->new_group(
            'JIT', 
            '',
            $self->c_item(
                'Parrot\'s JIT subsystem, with support for stabs files.', 
                'pairs' => ['jit'],
                'sources' => ['jit_debug', 'jit_debug_xcoff']
            ),
        ),
        $self->new_group(
            'Exec', 
            '',
            $self->c_item(
                'Parrot\'s native executable subsystem.', 
                'pairs' => ['exe <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	1850	1970	
==>ooter.

C<$navigation> is currently unused.

C<$resources> should be the relative path from the page to
F<docs/resources> <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10724	10828	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub linearize_tokens {  # self, tokens
  my $self = sh <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	33	132	
==>3-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	35	134	
==>3-2005, The Perl Foundation.
# This program is free software. It is subject to the same license
# as <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	216	329	
==>ct_quotelike extract_delimited );

use vars qw ( $skip );

sub linenum
{
	my ($thisline) = @_;
	my $tlc;
	tie $tlc <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12037	12147	
==>t list
     /"interpreter->vtables[$supertype].$method(" . full_arguments($1) . ')'/xeg;

    # Rewrite OtherCl <==
2	/Users/nnunley/parrot/config/inter/encoding.pm	712	816	
==>f->options->get('encoding')
        || join(' ', grep { defined $_ } @encoding);

    if ($conf->options- <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39351	39476	
==>ut by one - NWC
    my $l = $self->line_directive($line, "delegate.c");
    return <<EOC;
$l
${decl} {
    $ret_def
    STRING <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	38693	38922	
==>er,
            'prolog' => 1,
            'result' => $extra,
            'pragma' => ':slurpy',
        );
    }
    for my $param ( @{$params} ) {
        push @opcodes2, @{ $param->[2] };
    }
    push @opcodes2, @{$ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	13845	14033	
==>{IO}
  } elsif(ref(\$source) eq 'GLOB') { # stet
  } elsif(ref($source)           ) { # stet
  } elsif(!length $source
     or $source eq '-' or $source =~ m/^<&(STDIN|0)$/i
  ) { 
    $sou <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	1270	1387	
==><integrate($orig, $new)>

Integrates C<$new> into C<$orig>.  Returns C<$orig> if C<$new> is undefined.

=cut

sub inte <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	6014	6151	
==>len if (! defined $min) || ($min > $len);
    }
    return $min || 0;
}

sub maxlen {
    my $op = shift;
    my $max = 0;
    foreach (@{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341797	342243	
==>",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 400,
                  "ARGS" => [
                              "i",
                              "p",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 128 \"src/ops/io.ops\"\n  {{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10318	10465	
==>\n";
      if( ($tagname = $token->tagname) =~ m/^over-/s ) {
        DEBUG and print "Indenting back $indent_stack[-1] twips.\n";
        $self->{' <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	24007	24134	
==>}{maps}) {

      my $hll  = (keys %{$self->{flags}{hll}})[0];
      my $maps = (keys %{$self->{flags}{maps}})[0];
      $cout . <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	4644	4749	
==>} <=> $a->{revision} ||
      $b->{timestamp}[0]  <=> $a->{timestamp}[0]
    } @{ $cats{$_} })
    [0..MAX <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010914	1011409	
==>0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1128,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 39 \"src/ops/sys.ops\"\n  {{\@1}} = Parrot_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011678	1012130	
==>0,
                  "NAME" => "spawnw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1129,
                  "ARGS" => [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	25520	25702	
==>q $classname) {
            $cout .= <<"EOC";
        _temp_mmd_init[$entry->[0]].right = entry;
EOC
        }
        else {
            $cout .= <<"EOC";
        _temp_mmd_init[$ent <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	6677	6856	
==>c (@{$cur_blk}) {
	    $op = $opcodes{$pc}->{op};
	    $trans->pc($pc);
	    $trans->args(@{$opcodes{$pc}->{args}});
	    my $source = $op->source($trans);

	    $new_pc = $pc + $o <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23268	23381	
==>=> 126,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primar <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63202	63342	
==>/ops/core.ops\"\n  PARROT_ERRORS_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63848	63988	
==>/ops/core.ops\"\n  PARROT_ERRORS_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/config/gen/platform.pm	2812	2930	
==>}

    # finally append generated
    @headers = grep { /\.h$/ } split(',', $generated);
    for (@headers) {
        i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	2524	2783	
==>y $pos = $self->pos;

  $self->INTERNAL_ERROR("Position is not defined") unless defined $pos;
  
  return Jako::Token->BOF if $index < 0;
  return Jako::Token->EOF if $index >= @{$self->{TOKENS}};

  return $self->{TOKENS}[$index];
}


#
# get()
#
# Without an <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	2263	2374	
==>ot_config */

void
Parrot_set_config_hash(void)
{
    Parrot_set_config_hash_internal(parrot_config, sizeof(parr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23226	23758	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "invoke",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 31,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "B <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22368	22676	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "invokecc",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inl <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	17750	17898	
==>_is_newer($existing)) {
            if ($file =~ /default\.dump$/) {
                next; # don't overwite default.dump
            }
            el <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	1376	1476	
==>n.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new(
		'Configuration', 'config.html', <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1469	1653	
==>';
        $ccflags =~ s/-O1 // if $cc_output =~ m/Standard/ || $cc_output =~ m{/ZI};
        $ccflags =~ s/-Gf/-GF/ if $cc_output =~ m/Version (\d+)/ && $1 >= 13;

        $conf->data- <==
2	/Users/nnunley/parrot/config/inter/lex.pm	700	807	
==>y ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    # undef means we don't have f <==
2	/Users/nnunley/parrot/tools/dev/as2c.pl	1177	1298	
==>(\w+)\s*,\s*\@function/) {
	    $in_comment = 0;
	    $func = $1;
	    print " *\n */\n";
	    print "static const char ${ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	10181	10307	
==>d $max_content_length;

  Carp::croak( "Unknown " . ((1 == keys %options) ? "option: " : "options: ")
    . join " ", map "[$_] <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	50682	50856	
==>ted list (which may include
        # round- or curly-bracketed code blocks or quotelike operators)

                extract_codeblock $text, "(){}", '[^(]*';


The ability to <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	17853	17966	
==>less( $self->{Have_Plan} ) {
        require Carp;
        Carp::croak("You tried to run tests without a plan!  Go <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	18718	18831	
==>less( $self->{Have_Plan} ) {
        require Carp;
        Carp::croak("You tried to run tests without a plan!  Go <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033453	1033549	
==>\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    VTABLE_set_pmc_keyed_str(interpreter, lex_p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034551	1034647	
==>\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    VTABLE_set_pmc_keyed_str(interpreter, lex_p <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	10304	10417	
==>hich are
expected to run. This should be specified at the very top of your tests.

- `force_todo (*@todo_tests) re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122092	122204	
==>ivalent unsigned.\n   */\n  LVALUE_CAST(UINTVAL, {{\@1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123004	123116	
==>ivalent unsigned.\n   */\n  LVALUE_CAST(UINTVAL, {{\@1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511015	511296	
==>ops\"\n  {{\@1}} = - {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511753	512034	
==>ops\"\n  {{\@1}} = - {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  " <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8824	8933	
==>:num_of_tests_failed = 0;
    $Test::num_of_tests_badpass = 0;
    $Test::num_of_tests_planned = undef;
    $T <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715991	716389	
==>"print_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 803,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 87 \"src/ops/python.ops\"\n  PMC * co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443096	443588	
==>[
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 507,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	747851	748089	
==>",
                  "CODE" => 842,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 194 \"src/ops/set.ops\"\n  {{\@1}}->v <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4392	4500	
==>0}

# Increment dtypes index.
inc ${ITEMP0}
PIR
		$pir =~ s/\$push_num/$push_num/g;
		$push_num++;
	}

	# Ret <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2808	2916	
==>0}

# Increment dtypes index.
inc ${ITEMP0}
PIR
		$pir =~ s/\$push_num/$push_num/g;
		$push_num++;
	}

	# Ret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	316328	316520	
==>eption(1, \"Overflow exception for conv_u1_ovf\");\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19913	20129	
==>s};
    delete $call->{result};
    push @{$opcodes}, $call;
    return $opcodes;
}

sub BuildUnop {
    my ( $parser, $op, $expr ) = @_;
    my %type = (
        '-'   => 'number',
        '#'   => 'number' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429736	429992	
==>_v_ps(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430623	430879	
==>_v_ps(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	410205	410531	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "send",
                  "FLAGS" => ": <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411097	411423	
==>}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "send",
                  "FLAGS" => ": <==
2	/Users/nnunley/parrot/languages/urm/urm-old.pl	1234	1438	
==>{$pos = $3;} else {$pos++}
    }
    elsif ($line =~ /(r\d) *<- *(\d+)/) {
	$register{$1} = $2;
	$pos++;
    }
    elsif ($line =~ /(r\d) *<- *(r\d+) *([+-]) *1/) {
	if ($1 ne $2) {print "Syntax error: Reg <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130841	131367	
==>or",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 161,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 306 \"src/ops/bit.ops\"\n  { <==
2	/Users/nnunley/parrot/tools/dev/pbc_header.pl	1721	1854	
==>rint "$f\n";
	for my $i (0..5) {
	    my $c = substr $header, $i, 1;
	    $c = unpack 'c', $c;
	    printf "\t%-12s= %s\n", $fields[$i <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2179	2291	
==>EBUG}) {
		_DBLoad();
		$retval = eval '$self->_DBParse()';#Do not create stab entry on compile
        $@ and <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2098	2207	
==>EBUG}) {
		_DBLoad();
		$retval = eval '$self->_DBParse()';#Do not create stab entry on compile
        $@ and <==
2	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	1659	1798	
==>int checking is only enabled in development versions */

int
PackFile_check_fingerprint (void *cursor)
{
    return 1;
}

size_t
PackFile_wr <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2744	2856	
==>$value = $args[$i]->compile($compiler);
      $compiler->emit("  $temp = $value");
      $args[$i] = $temp;
    } <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2444	2556	
==>$value = $args[$i]->compile($compiler);
      $compiler->emit("  $temp = $value");
      $args[$i] = $temp;
    } <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	8600	8737	
==>}
    }
    close OP;
}
  
sub load_op_map_file {
  my $file = shift;

  if (!defined $file) {
    $file = "src/ops/ops.num";
  }

  my ($ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71483	71696	
==>GS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 1150 \"src/ops/core.ops\"\n\n  {{\@1}} = Parrot_load_lib(interpreter, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	47272	47465	
==>e) = @_;
  my $treelet = ['~Top', {'start_line' => $start_line},];
  
  $para =~ s/\s+/ /g; # collapse and trim all whitespace first.
  $para =~ s/ $//g;
  $para =~ s/^ //g;
  
  # Only apparent <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27003	27108	
==>onst}->methods($l, $out_name);
        $cout .= $self->{const}->init_func;
    }
    $cout .= $self->{post <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33686	33845	
==>tent into $over_type item\n";
              push @$para, splice @{shift @$paras},2;
            } else {
              DEBUG and print "Can't assimilate followi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35499	35658	
==>tent into $over_type item\n";
              push @$para, splice @{shift @$paras},2;
            } else {
              DEBUG and print "Can't assimilate followi <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	682	780	
==>s Win32 paths have \'s in, which qq[] treats as escape sequences.
# Config stuff
our $CC = qq[/usr/ <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	686	784	
==>s Win32 paths have \'s in, which qq[] treats as escape sequences.
# Config stuff
our $CC = qq[/usr/ <==
2	/Users/nnunley/parrot/config/init/hints.pm	20	220	
==>-2003, The Perl Foundation.
# $Id: /parrot/config/init/hints.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/init/hints.pm - Platform Hints

=head1 DESCRIPTION

Loads the platform and <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	40632	40783	
==>ate_identifier,
  'construct-identfier' => \&_op_construct_identifier,
);

#---------------------------------------------------------------------------- <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	5021	5162	
==>n:
EOC
}

sub New_func {
    my ($n, $arg, $cmt) = @_;
    my $nst = "";
    my $ns = $namespace{$arg};
    my $real_name = $arg;
    my $meth <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42302	42398	
==>line 727 \"src/ops/core.ops\"\n  do_exception(interpreter, EXCEPT_exit, {{\@1}});\n  {{=0,+=2}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42992	43088	
==>line 727 \"src/ops/core.ops\"\n  do_exception(interpreter, EXCEPT_exit, {{\@1}});\n  {{=0,+=2}};\ <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	1502	1660	
==>l_filename);
my %totals = (
    lines            => 0,
    covered_lines    => 0,
    branches         => 0,
    covered_branches => 0,              
    calls <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	16038	16153	
==>us directive.");
		return;
	}
	my $op = pop @{$self->{op}};
	my $span = @{$self->{items}} - $op->{offset};
	if ($op- <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3246	3342	
==>"
end sub
function foo$
	foo$="Right one"
	exit function
	foo$="Wrong one"
end function
call mysu <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17213	17309	
==>"
end sub
function foo$
	foo$="Right one"
	exit function
	foo$="Wrong one"
end function
call mysu <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	10383	10507	
==>e    => 'like',
        pasm_output_is     => 'is_eq',
        pasm_output_isnt   => 'isnt_eq',
        pasm_output_like   => <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	2096	2200	
==>t, given the possibilitiy of running off the end) are returned. If
# a count is not given, 1 is inferred. <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	5382	5491	
==>lue : 'CORE'; # TODO: We should make sure its a string, somewhere.
    my $op    = $props{op}    ? $props{op}- <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	61152	61279	
==>>{_G}          = undef;
    $parser->YYData->{self}        = undef;
    $parser->YYData->{idx_tmp}     = 0;
    $parser->YYDa <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8669	8822	
==>do {
#DBG>				print STDERR "**End of Error recovery.\n";
#DBG>				$dbgerror=0;
#DBG>			};

			    push(@$stack,
                     [ $$states[$$st <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8278	8425	
==>do {
#DBG>				print STDERR "**End of Error recovery.\n";
#DBG>				$dbgerror=0;
#DBG>			};

			    push(@$stack,
                     [ $$states[$$st <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	32462	32657	
==>s) 		# postponed LOAD_
EOC
	$obj = $o;
    }
    my $a = $c;
    if ($vtables{$c}) {
	$c = $vtables{$c};
    }
    my $cc;
    if ($c =~ /^\d+$/) {	# MMD
	$cc = "-$c";
    }
    else {
	$cc = qq!" <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	788	910	
==>pos) = @_;
	$@ = bless { error=>$message, pos=>$pos }, "Text::Balanced::ErrorMsg";
}

sub _fail
{
	my ($wantarray, $textref <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	33926	34063	
==>0] eq ''; # should never happen!
          DEBUG > 1 and print
           qq{Catching "$treelet->[$i][1]{'to'}" as a complex L<URL> link.\ <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	1664	1801	
==>ch my $obj (@ARGV) {
        my $src = $obj;
        $src =~ s/src\/pmc\/(.*)\.o/$1\.c/g;

	push @src, $src;
    }

    run_command("cd sr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439575	439787	
==>ispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440590	440802	
==>ispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0, <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	9652	9796	
==>_func${suffix}_t)0  /* NULL function pointer */
};


END_C
}

my (%names, $tot);
if ($suffix eq '') {
    $op_info = "${bs}op_info_table";
#
# Op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054427	1054529	
==>internal_exception(1, \"Tried to get null global.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055554	1055656	
==>internal_exception(1, \"Tried to get null global.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6686	6848	
==>~ s{(^")|("$)}{}g;
    $fnlib =~ s{(^")|("$)}{}g;
    $name =~ s/^.*:://;

    if ($type) {
      $handler->start_element({
        Name       => 'sub',
        At <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1410	1531	
==>DEBUG and print "== \"$_[1]\"\n";
  if(length $_[1]) {
    my $text = $_[1];
    _xml_escape($text);
    print {$_[0]{'out <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	27357	27615	
==>DE" => 36,
                  "ARGS" => [
                              "pc"
                            ],
                  "BODY" => "#line 491 \"src/ops/core.ops\"\n    opcode_t * const this = CUR_OPCODE;\n    PMC * const signature = {{\@1}};\n    INTVAL a <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	10950	11058	
==>s = pos($$textref) = pos($$textref)||0;
	unless ($$textref =~ m/\G($pre)/gc)
	{
		_failmsg "Did not find pref <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	12074	12238	
==>lastback ]),
                         aop('goto', [ $next ]),
                $back => aop('increment', [ -1, $lastback ]),
                         aop('goto', [ $l <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41636	41855	
==>closers;
  foreach my $still_open (@{  $self->{'curr_open'} || return  }) {
    my @copy = @$still_open;
    $copy[1] = {%{ $copy[1] }};
    #$copy[1]{'start_line'} = -1;
    if($copy[0] eq '=for') {
      $copy[0] = '=e <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4245	4348	
==>esult=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		return(<<CODE, $result);
	set $resu <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	61418	61581	
==>ub { return; },
#        yydebug => 0x17,
        #    Bit Value    Outputs
        #    0x01         Token reading (useful for Lexer debugging)
        #    0x <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1316	1588	
==>\n\ ]{0,50}     #  and finish any current word
        )
        \x20{1,10}(?!\n)   # capture some spaces not at line-end
       /$1"\n$indent . "/gx     # => line-break here
    ;
    
    print {$_[0]{'output_fh'}} $indent, '* "', $text, "\"\n";
  }
  return;
}

sub _han <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1260	1491	
==>\n\ ]{0,50}     #  and finish any current word
        )
        \x20{1,10}(?!\n)   # capture some spaces not at line-end
       /$1\n$indent/gx     # => line-break here
    ;
    
    print {$_[0]{'output_fh'}} $indent, $text, "\n" <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	587	739	
==>s()
                      1 $cuser + $csystem from times() (default)
                      2 Real time using POSIX::times()
   -n -nobench        skip be <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5901	6001	
==>don C<brent@brentdax.com>.

=head1 AUTHOR

Joshua Hoblitt C<jhoblitt@cpan.org>

=head1 SEE ALSO

F<do <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6750	6850	
==>don C<brent@brentdax.com>.

=head1 AUTHOR

Joshua Hoblitt C<jhoblitt@cpan.org>

=head1 SEE ALSO

F<do <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	139	248	
==>arrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm 19606 2006-05-30T15:08 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661958	662045	
==>ULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662874	662961	
==>ULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4 <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	6623	6751	
==>real_ops->{OPS}}) {
    my $opname = $_->full_name;
    my $n = $_->{CODE};
    my $comma = $n < @{$real_ops->{OPS}} -1 ? "," : " <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	997	1094	
==>for whatever other events you want to catch.

=head1 DESCRIPTION

This class is of
interest to peo <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6943	7060	
==>e "pmc2c code generation failed ($?)\n";
    }
}

sub compile {
    my ($src_stem, $dest_stem) = @_;

    $dest_stem | <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7154	7271	
==>e "pmc2c code generation failed ($?)\n";
    }
}

sub compile {
    my ($src_stem, $dest_stem) = @_;

    $dest_stem | <==
2	/Users/nnunley/parrot/languages/perms.pl	491	679	
==>bler);
    return $ret;
	};
}

=cut
00
10
20
30
40
50
60
01
11
21
31
=cut

my $it = deeper(5, \@things);

while (my $i = $it->()) {
  print $i."\n"
    if length($i) >= 2;
}

__END__
    fo <==
2	/Users/nnunley/parrot/tools/dev/gen_class.pl	1004	1116	
==>print <<EOF;
/* ${classname}.pmc
 *  Copyright (C) 2001-2003, The Perl Foundation.
 *  SVN Info
 *     \$Id\$ <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	4849	4987	
==>0     SS$_NORMAL        all tests successful
    4     SS$_ABORT         something went wrong

Unfortunately, I can't differentiate any fur <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	23116	23229	
==>content because in an ignored region\n";
        # And that may be because of this to-be-closed =for region, or so <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	17840	18095	
==>FTERDO_$docounter";
		} else {
			$_="@code ne $result, $false, AFTERDO_$docounter";
		}
		push @{$code{$seg}->{code}}, "\t$_\n";
		push(@dos, { jump => $docounter, needstmt => 0 });
	} else {
		push @{$code{$seg}->{code}}, "DO_$docounter:\n";
		push(@dos, <==
2	/Users/nnunley/parrot/config/auto/msvc.pm	1705	1832	
==>set(msvcversion => $msvcversion);

    # Add Visual C++ specifics here
    if ($msvcversion >= 14.00) {

        # Version 14 (a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367884	368171	
==>eter), (size_t){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368676	368963	
==>eter), (size_t){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "r <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37059	37212	
==>,
		"argcode"   => $argcode || undef,
		"matchrule" => $matchrule,
	}, $class;
}

sub code($$$$)
{
	my ($self, $namespace, $rule) = @_;
	
	my ($subrule, $ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6867	6962	
==>d$(t$, 2, 8)
print left$(t$, 5)
print right$(t$, 5)
' instr
s1$="The longer string"
found$="long <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18596	18691	
==>d$(t$, 2, 8)
print left$(t$, 5)
print right$(t$, 5)
' instr
s1$="The longer string"
found$="long <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	1988	2100	
==>t C<ENTER>.

=cut

sub prompt
{
    my ($message, $value) = @_;

    print("$message [$value] ");

    chomp(my $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809723	809985	
==>_string_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810628	810890	
==>_string_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	39050	39153	
==>losing
tag causes C<extract_tagged> to immediately fail.

However, if the string value associated with < <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	29357	29518	
==>ode{$t}->{args}}) {
			push @{$code{$t}->{code}}, "\t.return $_\t# Returning arg\n";
		}
	}
	push @{$code{$t}->{code}}, "\t.return $seg\n";
	$seg="_basicmain";
	$ <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	7246	7370	
==>n 0;
}


#
# compile_file()
#

sub compile_file {
    my ($file_name) = @_;

    my $pf = Parrot::PackFile->new;
    $pf->unp <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	9443	9573	
==>f (!defined($max) || $max < 0) { $guarantee = 0; }
        else { $guarantee /= $max; }
        $t->{args}->[3] = $self->add_checks <==
2	/Users/nnunley/parrot/lib/Test/More.pm	34562	34656	
==>jects

String overloaded objects are compared B<as strings>.  This prevents
Test::More from pie <==
2	/Users/nnunley/parrot/lib/Test/More.pm	29416	29672	
==>ined $e1 xor defined $e2 ) {
            $ok = 0;
        }
        elsif ( $e1 == $DNE xor $e2 == $DNE ) {
            $ok = 0;
        }
        elsif ( $same_ref and ($e1 eq $e2) ) {
            $ok = 1;
        }
	elsif ( $not_ref ) {
	    push @Data_St <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411086	411416	
==>\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "send",
                  "FLAGS <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	1408	1633	
==>ARROT_LUA_TEST_PROG} ${test_prog_args} languages/${lang_fn}",
            );
        }
        elsif ( $lua_test eq 'monkey' ) {
            @test_prog = (
                "monkey -o languages/${pir_fn} languages/${lang_f <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	16656	16752	
==>fine a C<run> method
that calls C<< $token = $parser->get_token >> to pull tokens.

See the sourc <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7031	7162	
==>E/;
}

=item C<title()>

Returns the title of the file.

=cut

sub title
{
	my $self = shift;

	return $self->name unless $self->con <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	40385	40485	
==>utermost tags),

=item [1]

the remainder of the input text,

=item [2]

the prefix substring (if any <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	4353	4495	
==>ting_file_with_name($module);
}

=item C<docs_directory()>

Returns the documentation directory.

=cut

sub docs_directory
{
    my $self = shi <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1133	1281	
==>use Parrot::Docs::Section::EditorPlugins;

=item C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shift;

    return $self->SUPER::ne <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1514	1650	
==>tions{module} ne 'Regex::CodeGen::IMCC') {
      eval "use $options{module}";
      die $@ if $@;
    }

    $cgen = $options{module}->ne <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9641	9761	
==>"**At eof: aborting.\n";
				return(undef);
			};

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Dicard invalid t <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9208	9323	
==>"**At eof: aborting.\n";
				return(undef);
			};

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Dicard invalid t <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	8629	8734	
==>preter, struct call_state *st, INTVAL val)
{
    Parrot_init_ret_nci(interpreter, st, "I");
    UVal_int(s <==
2	/Users/nnunley/parrot/config/auto/headers.pm	1870	2156	
==>l the
        # headers we found so far. This is somewhat a hack, but makes probing
        # work on *BSD where some headers are documented as relying on others
        # being included first.
        foreach my $use_headers ([$header], [@found_headers, $header]) {
            $conf->d <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	1211	1466	
==>ys
for C<%contents> are C<pairs>, C<sources>, C<headers> and C<contents>.

=cut

sub c_item
{
    my $self = shift;
    my $text = shift;
    my %contents = @_;
    my @contents = ();
    my $dist = Parrot::Distribution->new;
    
    if ( exists $contents <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	31968	32113	
==>unter'};
          
          if($item_type eq 'bullet') {
            # Hm, it's not numeric.  Correct for this.
            $para->[1]{'number'} <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	838	1004	
==>=1;
			while($syms[CURR] ne ")") {
				feedme;
			}
			feedme;
		}
		$var=~s/\$$/_string/;
		push @{$code{$seg}->{code}}, "\t# $var was declared COMMON\n"; 
		if (! $a <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10749	10896	
==>nder {
    die;
}

sub Regex::Ops::Tree::seq::needparen { 0 }
sub Regex::Ops::Tree::seq::render {
    my $op = shift;
    return join('', map { $_-> <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	28721	28907	
==>he input text was passed in a variable, that variable's
C<pos> value is updated to point at the first character after the
extracted text. That means that in a list context the various
sub <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	2804	2988	
==>my ($self, $step, @params) = @_;

    push @{$self->{steps}},
        Parrot::Configure::Task->new(step => $step, params => \@params);

    return $self;
}

=item * C<add_steps()>

Regi <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	20392	20521	
==>> 4 and print "  Enqueuing ", pretty($treelet->[$i]), " for traversal.\n";
        push @stack, $treelet->[$i];

        if($treel <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5520	5649	
==>ss)>.
Called by C<goto_address()>.

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360678	360855	
==>"ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 258 \"src/ops/io.ops\"\n  PMC * const p = {{\@1}};\n  STRING * con <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	2172	2298	
==>r->Dump([$m],["*MATCH_OBJECT"]);
my $mini = minimatch($m);
print Data::Dumper->Dump([$mini],["*CAPTURES"]);
END
}

package Rege <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2244	2338	
==>ncat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Decrement stack height.
dec stack_depth
PIR <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3496	3590	
==>ncat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Decrement stack height.
dec stack_depth
PIR <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	2449	2564	
==>d to facilitate the selection of
suitable ops for a Parrot safe mode, or for inclusion in miniparrot.

=head2 Op Bod <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	4720	4870	
==>t;
                next;
            }

            ($percent, $total_branches, $function) = /\s*([^%]+)% of (\d+) branches taken at least once in func <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	14341	14480	
==>diag)`

This will print each string with a '#' character appended to it, this is
ignored by the TAP protocol.

= FUTURE PLANS

This module i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89271	89510	
==>\"src/ops/bit.ops\"\n  {{\@1}} &= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90009	90248	
==>\"src/ops/bit.ops\"\n  {{\@1}} &= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	22886	23088	
==>kpos);
						if (defined $unkpos)
						{
							push @fields, substr($$textref, $unkpos, $lastpos-$unkpos).$pref;
							$firstpos = $unkpos unless defined $firstpos;
							undef $unkpos;
							last F <==
2	/Users/nnunley/parrot/lib/Test/More.pm	13327	13467	
==>l sometimes resets $!
        my $rslt = eval { $object->isa($class) };
        if( $@ ) {
            if( $@ =~ /^Can't call method "isa" on <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	10282	10397	
==>OT SURE THIS IS NEEDED
'.($::RD_NO_TRACE? '':'
		Parse::RecDescent::_trace(q{<<Didn\'t match rule>>},
					 Parse::R <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	144	251	
==>hard  $

=head1 NAME

Parrot::OpTrans::CPrederef - C Predereferenced Transform

=head1 DESCRIPTION

C<Parrot <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	48126	48252	
==>ua\lua51.yp"
{
            BuildForNum( $_[0], $_[10], $_[4], $_[6], $_[8], $_[11] );
        }
	],
	[#Rule 22
		 '@6-7', <==
2	/Users/nnunley/parrot/config/auto/snprintf.pm	818	931	
==>/) {
        $conf->data->set(HAS_C99_SNPRINTF => 1);
    } elsif ($res =~ /^old snprintf/) {
        $conf->data- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875643	876190	
==>S" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 993,
                  "ARGS" => [
                              "s",
                              "sc",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 23 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26531	26692	
==>> 136
		}
	},
	{#State 82
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29 <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35239	35356	
==>. q{]},
					  
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{"name"} .'})
						if defined $::RD <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42371	42480	
==>. q{]},
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{"name"} .'})
						if defined $::RD <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	15455	15560	
==>ef, $text)>

Returns an HTML anchor with the specified "href".

=cut

sub html_link
{
    my $self = shift <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	5947	6052	
==>5
a=0
do while a<5
	a=a+1
loop
print a
a=0
do until a>4
	a=a+1
loop
print a
a=0
do
	a=a+1
loop while a<5
p <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16492	16597	
==>5
a=0
do while a<5
	a=a+1
loop
print a
a=0
do until a>4
	a=a+1
loop
print a
a=0
do
	a=a+1
loop while a<5
p <==
2	/Users/nnunley/parrot/config/inter/make.pm	794	905	
==>. default to not having it
    $conf->data->set(gmake_version => undef);

    my $prog;

    # precedence of sou <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	5318	5415	
==>ing module.  He observed that the
main problem is not dealing with these edge cases but that peopl <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6343	6454	
==>ass through the array.
WHILE Exchange          ' Sort until no elements are exchanged.
   Exchange=FALSE
   ' Co <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15996	16107	
==>ass through the array.
WHILE Exchange          ' Sort until no elements are exchanged.
   Exchange=FALSE
   ' Co <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3922	4047	
==>group", "lib-$group")
          or die "compile $group.c failed ($?)\n";
    }
} 
elsif ($mode eq 'linklibs') {
    my ($group <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4026	4151	
==>group", "lib-$group")
          or die "compile $group.c failed ($?)\n";
    }
} 
elsif ($mode eq 'linklibs') {
    my ($group <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	1948	2219	
==>o translate " . scalar(@rules) . " out of 213 instructions.\n";


##############################################################################
# Subroutines.
##############################################################################

# Parse rules file and build a d <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22555	22724	
==>{ ' . $self->{"code"} . ' };'.($::RD_NO_TRACE?'':'
		if (defined($_tok))
		{
			Parse::RecDescent::_trace(q{>>Matched directive<< (return value: [}
						. $_tok . q{])}, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	813	981	
==>s.  For example, parsing
CZ<><foo> will return a C start-token, a text-token, and a C end-token.  And
if you want to get the "foo" out of the text-token, call C<< $token <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4392	4517	
==><$trigger>.  Multiple triggers can be set on a
given key.  When the key is set via C<set> or C<add> then all callbacks that
ar <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117922	118208	
==>\"\n  {{\@1}} >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118661	118947	
==>\"\n  {{\@1}} >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	12770	12885	
==>->{'RETTYPE'} = 'rettype';
    $mv->{'LABELNUM'} = 'label_num';
    $mv->{'EHANDLERS'} = 'ehs';

    # SRM pre trans <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	48806	48899	
==>-----------------------------------------------------------------------
1;
__END__

TODO:
A st <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37541	37643	
==>::lastexpected = ' . ($rule->hasleftmost($self) ? 'q{}'
				: 'q{'.$self->describe.'}' ) . ';
		$Parse: <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39944	40046	
==>::lastexpected = ' . ($rule->hasleftmost($self) ? 'q{}'
				: 'q{'.$self->describe.'}' ) . ';
		$Parse: <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	36	134	
==>Foundation.
# $Id: /parrot/lib/Parrot/Configure.pm 20321 2006-06-20T20:02:00.179448Z bernhard  $

= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818992	819270	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "entrytype",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819951	820229	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "entrytype",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6198	6317	
==>b require_semicolon     { return shift->require('semicolon');     }
sub require_type          { return shift->require('t <==
2	/Users/nnunley/parrot/config/auto/signal.pm	1846	2057	
==>y config/auto/signal.pm
#
# Any changes made here will be lost.
#
EOF
    use Config;
    my ($i, $name);
    $i = 0;
    foreach $name (split(' ', $Config{sig_name})) {
        print O ".constant SIG$name\t$i\n" <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5490	5668	
==>);
    return qq!<rx_match>{"$group"}->[0] = $value; # open group $group!;
}

sub output_setend {
    my ($self, $group, $value, $adj) = @_;
    $value = value($value);
    my @op <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	2291	2433	
==>ift;
        my ($symb) = @_;
        if ( exists $self->{table}{$symb} ) {
            my $defn = $self->{table}{$symb};
            retur <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	2671	2813	
==>ift;
        my ($symb) = @_;
        if ( exists $self->{table}{$symb} ) {
            my $defn = $self->{table}{$symb};
            retur <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2380	2483	
==>ain  (array=$array)
	P0= P10[0]
	P1= P0["$stype"]
	P0= P1["$var"]	# Pull the original
	P2= P10[I25]
	P3= <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2607	2710	
==>ain  (array=$array)
	P0= P10[0]
	P1= P0["$stype"]
	P0= P1["$var"]	# Pull the original
	P2= P10[I25]
	P3= <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	935	1055	
==>ntent($self);

  return $self;
}

sub left  { return shift->{LEFT};  }
sub right { return shift->{RIGHT}; }


#
# compile <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	943	1063	
==>ntent($self);

  return $self;
}

sub left  { return shift->{LEFT};  }
sub right { return shift->{RIGHT}; }


#
# compile <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	7136	7271	
==>t->{methods} }, {
		meth => "$meth",
		type => $entry->{type},
		parameters => $entry->{parameters},
                loc => $entry->{loc <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	17382	17478	
==>->{jump};
	push @{$code{$seg}->{code}}, <<LOOPUP;
	goto WHILE_$_
AFTERWHILE_$_:
LOOPUP
}
my $doco <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18091	18211	
==>g in MSWord, WordPad/write.exe, TextEdit, etc.

This is a subclass of L<Pod::Simple> and inherits all its methods.

=head <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	16363	16478	
==>to the general case:
  return $self->_get_item_type($para);
}



sub _get_item_type {       # mutates the item!!
  m <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2586	2684	
==>=> 'infix', name => $self->op } });
    $self->left->sax($handler);
    $self->right->sax($handler) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2463	2561	
==>=> 'infix', name => $self->op } });
    $self->left->sax($handler);
    $self->right->sax($handler) <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	2135	2257	
==>key)) {
            print "\tcalling trigger $trigger for $key\n" if $verbose;
            my $cb = $self->gettrigger($key, <==
2	/Users/nnunley/parrot/config/gen/platform.pm	4628	4769	
==>rm/$_";
        }

        if (-e $impl_file) {
            local $/ = undef;
            print("\t$impl_file\n") if defined $verbose && $verb <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	2132	2345	
==>hift->{PEER};  }
sub kind      { return shift->{KIND};  }
sub type      { return shift->{TYPE};   }

sub left      { return shift->{LEFT};  }
sub op        { return shift->{OP};    }
sub right     { return shift->{ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	823	919	
==>w_bof(undef, undef);
sub BOF { return $BOF }

my $EOF = Jako::Token->new_eof(undef, undef);
sub E <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137690	137987	
==>FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 169,
                  "ARGS <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1343	1495	
==>exit_code")
        if $exit_code and not $pass;
    }

    unless($ENV{POSTMORTEM}) {
        unlink $lang_f;
        unlink $out_f;
    }

    return $ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1384	1536	
==>exit_code")
        if $exit_code and not $pass;
    }

    unless($ENV{POSTMORTEM}) {
        unlink $lang_f;
        unlink $out_f;
    }

    return $ <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	858	954	
==>he Parrot subversion repository. (Needed for
# distributions or in general when svn is not availa <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3713	3809	
==>he Parrot subversion repository. (Needed for
# distributions or in general when svn is not availa <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2649	2761	
==>ister opcode_t *cur_opcode asm ("esi") = cur_op;
    register char *   _reg_base   asm ("edi");
#else
    opcode_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3218	3330	
==>ister opcode_t *cur_opcode asm ("esi") = cur_op;
    register char *   _reg_base   asm ("edi");
#else
    opcode_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19145	19308	
==>name' => 106
		}
	},
	{#State 55
		ACTIONS => {
			"(" => 8,
			'NAME' => 4
		},
		GOTOS => {
			'functioncall' => 107,
			'var' => 108
		}
	},
	{#Stat <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	3047	3469	
==>>new_item('', 'tools/dev/bench_op.pir'),
            $self->new_item('', 'tools/dev/parrotbench.pl'),
        ),
        $self->new_group('Utilities', '',
            $self->new_item('', 'tools/build/list_unjitted.pl'),
            $self->new_item('', 'tools/dev/gen_class.pl'),
            $self->new_item('', 'tools/dev/nm.pl'),
            $self->new_item('', 'tools/util/ncidef2pasm.pl'),
            $self->new_item('' <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	5	158	
==>yright (C) 2004-2005, The Perl Foundation.
# $Id: $

package Parrot::PIR::Formatter;

use strict;
use warnings;

sub new {
    my $class = shift;
    my $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1885	2027	
==>self->args;

  my $subname = $name;

  $subname =~ s/::/__/g;

  $compiler->emit(".sub _${subname}");

  foreach my $arg (@args) {
    my ($arg <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	26579	26825	
==>inline",
                  "CODE" => 35,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 452 \"src/ops/core.ops\"\n  {{\@1}} = par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028513	1028947	
==>",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1150,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 295 \"src/ops/sys.ops\"\n  opcode_t *next = {{^+2}};\n  if ({{\@1}} < 0) {\n      real_excep <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	9248	9343	
==>${seg}_debug($sourceline)
DEBUG
}

sub english_func {
	local $_=$_[0];
	s/\$$/dollar/;
	s/\%$/in <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3250	3372	
==>$out) = ($1, $2, $3, choose($4, unescape($5), $6));

        # make the test print the last line of output
        # XXX Th <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4657	4779	
==>$out) = ($1, $2, $3, choose($4, unescape($5), $6));

        # make the test print the last line of output
        # XXX Th <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	9398	9496	
==>func = "${bs}op_func_table";
    print SOURCE <<END_C;

INTVAL ${bs}numops${suffix} = $num_ops;

/* <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	11117	11224	
==>esc?, Bool :$todo, Str :$depends) returns Bool is export`
- `unlike (Str $got, Rule $expected, Str $desc?, B <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	1035	1203	
==>$self->{regs}->{$type}{$_}=1;
    $count--;
  }
  @temp;
}

sub _save_set {
  my $self = shift;
  my %regs = %{$self->{regs}};
  for my $type (keys %regs) {
    for my $ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	16769	16879	
==>post_load, { %$mv, LOADREG => 'loadreg' }, "post_load for typed exception handler");
	$pir .= "### end post_loa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210266	210361	
==>erpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) <= 0) {\n    {{+={{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211246	211341	
==>erpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) <= 0) {\n    {{+={{ <==
2	/Users/nnunley/parrot/config/auto/readline.pm	251	350	
==>s readline.

=cut

package auto::readline;

use strict;
use vars qw($description @args);

use base q <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14124	14227	
==>elf->_add_inst ('', 'branch', ["DONE_$label"]);
    $self->_add_inst ("FAIL_$label", 'set', [$return,0]) <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16392	16493	
==>elf->_add_inst ('', 'branch', ["DONE_$label"]);
  $self->_add_inst ("FAIL_$label", 'set', [$return,0]) <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6919	7011	
==>' instr
s1$="The longer string"
found$="longer"
bogus$="not"
print "Found  (5): ", instr(s1$, <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18648	18740	
==>' instr
s1$="The longer string"
found$="longer"
bogus$="not"
print "Found  (5): ", instr(s1$, <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	5207	5305	
==>s-%s",
      $_[0]->{DEVEL} eq "devel" ? "repository snapshot" : "release",
	  runcore2human($_[0]- <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	42403	42535	
==>my($it, $p) = @_;
  
  my $formatting;

  for(my $i = 2; $i < @$p; $i++) { # work backwards over the lines
    DEBUG and print "_verb <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9225	9333	
==>self->normal_halfpoint_size);
        DEBUG and print "Indenting over $indent_stack[-1] twips.\n";
        $s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79024	79129	
==>) ? NULL : PMC_data({{\@2}}), name);\n  string_cstring_free(name);\n  if (p == NULL) {\n      const char * <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80545	80650	
==>) ? NULL : PMC_data({{\@2}}), name);\n  string_cstring_free(name);\n  if (p == NULL) {\n      const char * <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	3266	3528	
==>my $include = "parrot/oplib/${base}_ops${suffix}.h";
my $header  = "include/$include";
# SOURCE is closed and reread, which confuses make -j
# create a temp file and rename it
my $source  = "src/ops/${base}_ops${suffix}.c.temp";

if ($base =~ m!^src/dynoplibs/! | <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	1938	2190	
==>pt(R|S)??
        # opt(|||) -> ()
        if ($children[0]->{name} eq 'nop') {
            pop(@children) while $children[0]->{name} eq 'nop';
            if (@children == 0) {
                return rop('nop', []);
            } elsif (@children == 1) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7571	7696	
==>g>$desc\n"),
               );
    }
    return $self->pushop . " <rx_stack>, $reg";
}

sub output_save {
    my ($self, $reg) <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	1212	1345	
==>rint;

=cut

    print "# Constants: $count entries\n";
    print "# ID  Flags    Encoding Type     Size     Data\n";

    my $constan <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	394770	395028	
==>E" => 458,
                  "ARGS" => [
                              "i",
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 495 \"src/ops/io.ops\"\n  if ({{\@3}}) {\n    PI <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	885	994	
==>is has the effect of causing all ops to be
considered manual.

=head2 Op Arguments

Note that argument 0 is co <==
2	/Users/nnunley/parrot/config/gen/platform.pm	1512	1660	
==>.h"
        or die "Can't open include/parrot/platform.h: $!";

    print PLATFORM_H <<"END_HERE";
#if !defined(PARROT_PLATFORM_H_GUARD)
#define PARR <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	30436	30556	
==>following code is typically used:

	($remainder = $text) =~ s/\A('(\\.|[^'])*')//s;
	$extracted = $1;

but with C<extract <==
2	/Users/nnunley/parrot/config/gen/cpu/i386/auto.pm	323	425	
==>latform.h
 i386_has_mmx   => 1

=cut

package gen::cpu::i386::auto;

use strict;
use warnings;

use Par <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	593	710	
==>_[1]\n";
  
  print $fh   '  ' x ($_[0]{'indent'} || 0),  "<", $_[1];

  foreach my $key (sort keys %{$_[2]}) {
    un <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	10517	10614	
==>eue.pmc parrotclass.pmc parrotobject.pmc os.pmc file.pmc addrregistry.pmc bound_nci.pmc deleg_pmc. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577669	578005	
==>> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIR <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	862	963	
==>def.  This will also trigger any hints-file
    # callbacks that depend on knowing whether or not we'r <==
2	/Users/nnunley/parrot/config/auto/msvc.pm	798	899	
==>def.  This will also trigger any hints-file
    # callbacks that depend on knowing whether or not we'r <==
2	/Users/nnunley/parrot/config/gen/platform.pm	2192	2348	
==>or die "Can't open $header_file: $!";
            print PLATFORM_H <<"END_HERE";
/*
** $header_file:
*/
#line 1 "$header_file"
END_HERE
            print PLA <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	7164	7377	
==>),
        ),
        $self->new_group(
            'Memory', 
            '',
            $self->c_pair_item('', 'memory'),
            $self->c_source_item('', 'malloc'),
            $self->c_source_item('', 'mal <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	490	601	
==>he arrayref we're reading from
);

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21091	21196	
==>$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0);

  $self->_ad <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	1612	1737	
==>ng address.
 5. Eliminate unused labels.

TODO:

 1. I would like to optimize

     B1: sub x, 1
         goto S0
     B2: sub <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5210	5349	
==>->{result} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $first = 1;
            foreach ( @{ $op->{re <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6242	6381	
==>->{result} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $first = 1;
            foreach ( @{ $op->{re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034872	1035158	
==>( {
                  "JUMP" => 0,
                  "NAME" => "find_lex",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036035	1036321	
==>( {
                  "JUMP" => 0,
                  "NAME" => "find_lex",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600014	600103	
==>3 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601090	601179	
==>3 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{\@2}});\n  o <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2508	2609	
==>'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $sel <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2385	2486	
==>'test' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $sel <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	1173	1356	
==>ype (keys %regs) {
    for my $count (0..31) {
      $self->_add_inst ('', 'save', ["$type$count"])
	if $regs{$type}->{$count};
    }
  }
}

sub _save_1 {
  my $self = shift;
  my $typ <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	394	514	
==>y ( $path_to_parrot, $path_to_language, $count ) = @_;
 
    
    my $test_prog_args = $ENV{TEST_PROG_ARGS} || q{};
    m <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	412	526	
==>y ( $path_to_parrot, $path_to_language, $count ) = @_;

    my $test_prog_args = $ENV{TEST_PROG_ARGS} || q{};
    m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048365	1048601	
==>= Parrot_get_global(interpreter, NULL, {{\@2}}, next);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049289	1049525	
==>= Parrot_get_global(interpreter, NULL, {{\@2}}, next);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2905	3031	
==>';
    undef;
}

sub YYSemval {
	my($self)=shift;
	my($index)= $_[0] - ${$$self{DOTPOS}} - 1;

		$index < 0
	and	-$ind <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2767	2884	
==>';
    undef;
}

sub YYSemval {
	my($self)=shift;
	my($index)= $_[0] - ${$$self{DOTPOS}} - 1;

		$index < 0
	and	-$ind <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	28239	28339	
==>art_line'};

  # A recursive algorithm implemented iteratively!  Whee!

  while($treelet = shift @sta <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	31740	31840	
==>art_line'};

  # A recursive algorithm implemented iteratively!  Whee!

  while($treelet = shift @sta <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	1137	1254	
==>ed

  if($NOT_ASCII) {
    # We're in bizarro world of not-ASCII!
    # Cope with US-ASCII codes, use fallbacks for La <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5841	5985	
==>libs;

        # There should be at most a single group
        my $group = $class->{flags}{group}
          or next;
        ($group) = keys %$g <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6052	6196	
==>libs;

        # There should be at most a single group
        my $group = $class->{flags}{group}
          or next;
        ($group) = keys %$g <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253833	254161	
==>{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "or",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254696	255024	
==>{\@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "or",
                  " <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4636	4752	
==>branch($) {
	my $self = shift;
	my $pops = shift;
	my $register_num = 0;
	my $pir = '';

	# Do code for each pop. Nee <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3052	3168	
==>branch($) {
	my $self = shift;
	my $pops = shift;
	my $register_num = 0;
	my $pir = '';

	# Do code for each pop. Nee <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	636716	636861	
==>c"
                            ],
                  "BODY" => "#line 107 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= inte <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	637835	637980	
==>c"
                            ],
                  "BODY" => "#line 107 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || {{\@2}} >= inte <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	6578	6731	
==>ept_directives'}{$d} = $type;
    DEBUG > 2 and print "Learning to accept \"=$d\" as directive of type $type\n";
  }
  DEBUG > 6 and print "$this\'s accep <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11595	11698	
==>= 2 goto NO_IN_TRACE
printerr "    PTYPES: "
i = elements ptypes
j = 0
PTYPES_LOOP:
if j == i goto PTYPE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89163	89360	
==>"i",
                              "i"
                            ],
                  "BODY" => "#line 38 \"src/ops/bit.ops\"\n  {{\@1}} &= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2236	2333	
==>P0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Decrement stack height.
dec stack_dept <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3488	3585	
==>P0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Decrement stack height.
dec stack_dept <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	11768	11910	
==>t of recently submitted <a
    href="http://www.parrotcode.org/">Parrot</a> smoke reports. These smokes are
    automatically generated and sho <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	2577	2703	
==>e errata section
  'complain_stderr',   # whether to complain to stderr

  'doc_has_started',   # whether we've fired the open- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	9	108	
==>ontrol.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947170	947399	
==>\"charset '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948072	948301	
==>\"charset '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15315	15416	
==>unc=55
end function
dim g(10)
g(5)=666
g(4)=12
a=g(5)+0
y=arrfunc(g())

' For loops, by two and backwa <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	2304	2650	
==>>\n";
    $ops{$op} = 1;
}

print <<END;
    </list>

    <list name="types">
END

my %types;
for my $type (@imcc_basic_types) {
    $type =~ s/\./\&046;/g;
    next if ($types{$type});
    print "      <item>$type</item>\n";
    $types{$type} = 1;
}

open TYPES, "<$parrot/$parrot_pmcsh_file" or
  die "Can't read $parrot/$parrot_pmcsh_file!";
wh <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959635	960062	
==>E" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1080,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958834	959103	
==>E" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 10 <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	13464	13799	
==>or (i = 0; i < ${bs}op_lib.op_count; i++)
        if (get_op(info[i].name, 0) == -1)
            store_op(info + i, 0);
}
static void hop_deinit(void)
{
    HOP *p, *next;
    if (hop) {
        size_t i;
        for (i = 0; i < OP_HASH_SIZE; i++)
            for (p = hop[i]; p; ) {
                next = p->next;
                free <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	7083	7240	
==>$self->c_pair_item('', 'exceptions'),
            $self->c_pair_item('', 'events'),
        ),
        $self->new_group(
            'Memory', 
            '' <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	4798	4915	
==>1];
	my $owner = $_[2];
	my $line  = $_[3];
	my $replace = $_[4];

	if (defined $owner->{"rules"}{$name})
	{
		my $sel <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	20	127	
==>-2006, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Configure/Step.pm 20340 2006-06-22T21:49:11.552283Z be <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7335	7467	
==>re}})
		    : defined($options{ignore})	       ? $options{ignore}
		    :					 ''
		    ;

	if (!defined $ldel) { $ldel = '<\w+(?:' . <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24337	24469	
==>re}})
		    : defined($options{ignore})	       ? $options{ignore}
		    :					 ''
		    ;

	if (!defined $ldel) { $ldel = '<\w+(?:' . <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12250	12410	
==>UTDATA;
				}
				if ($type[CURR] =~ /COMP|COMM|STMT/) {
					push @ld, { type => "STRING", value=> qq{"$s"}};
					last OUTDATA;
				}
				$s.=$syms[CURR];
			} <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	9945	10076	
==>est}-1] = $result;
    $out .= "\n";

    $self->_print($out);

    unless( $test ) {
        my $msg = $todo ? "Failed (TODO)" : "F <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600307	600570	
==>ame);\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601383	601646	
==>ame);\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1037	1142	
==>is a small simple module which simplifies the 
manipulation of `@*INC`.

It is typically used to add extra <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	249492	249747	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "not",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Examples.pm	891	1094	
==>utines',          '', 'examples/subs'),
            $self->new_group('IO',                   '', 'examples/io'),
            $self->new_group('Streams',              '', 'examples/streams'),
            $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	52440	52783	
==>BuildLocalVariable( $_[0], $_[3] ),
            ];
        }
	],
	[#Rule 52
		 'namelist', 1,
sub
#line 313 "Lua\lua51.yp"
{
            [
                BuildLocalVariable( $_[0], $_[1] ),
            ];
        }
	],
	[#Rule 53
		 'explist1', 3,
sub
#line 322 "Lua\lua51.yp"
{
            [ @{ $_[1] }, $_[3] ];
        } <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	9762	9874	
==>info = "${bs}op_info_table";
#
# Op Info Table:
#
    print SOURCE <<END_C;

/*
** Op Info Table:
*/

static op_i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	347	468	
==>ation::Variable;

use Carp;

use base qw(Jako::Construct::Declaration);

use Jako::Construct::Type;


#
# new()
#

sub new <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	6440	6590	
==>e program dies with
# 'Method not found.' or dispatches to the wrong method.

.sub unicode:"dyadic:\u2296" :multi(pmc, APLVector) # rotate
    .param i <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24065	24166	
==>";
			push @{$code{$seg}->{code}}, <<DIMARR;
	# Set aside storage for Array $var
	\$P0 = new .PerlHash <==
2	/Users/nnunley/parrot/tools/dev/pbc_header.pl	1040	1199	
==>b get_version {
    my $version_file = 'VERSION';
    open IN, $version_file or die "Can't read $version_file";
    my $v = <IN>;
    close IN;
    $v =~ /^(\d+ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1354	1476	
==>self->{relpath}, 
            STDOUT => $out_f, STDERR => $out_f, 
        );
        my $prog_output = Parrot::Test::slurp <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1270	1392	
==>self->{relpath}, 
            STDOUT => $out_f, STDERR => $out_f, 
        );
        my $prog_output = Parrot::Test::slurp <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	17386	17510	
==>t[%<$counter>]/%<$N>\n"),
                 aop('add', [ $counter, 1 ]),
		 aop('ge', [ $counter, $N, $lastback ]),
		 aop('go <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5133	5259	
==>l);

    while (@$incexc) {
        my $first = shift(@$incexc);
        my $last = shift(@$incexc);
        if (defined($last) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4808	4934	
==>l);

    while (@$incexc) {
        my $first = shift(@$incexc);
        my $last = shift(@$incexc);
        if (defined($last) <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	47876	48058	
==>f->_generate("$implicit : $code",$replace,1);
			my $pos = pos $grammar;
			substr($grammar,$pos,0,$implicit);
			pos $grammar = $pos;;
		}
		elsif ($grammar =~ m/$ENDDIRECTIVEMK/gco) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1006846	1007078	
==>,
                              "sc",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1007986	1008218	
==>,
                              "sc",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18530	18967	
==>GS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 25,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 314 \"src/ops/core.ops\"\n  if ({{\@1}}->vtable <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	9377	9509	
==>my $R = $t->{args}->[3];
        my $max = $t->maxlen();
        if (!defined($max) || $max < 0) { $guarantee = 0; }
        else { $ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	13110	13486	
==>ac$pir_args)";
				push @work, [ "result of $extern()", "RESULT",  "\$$optype$retcount"];
				$retcount++;
				# External functions return their arguments, 
				# except for PMC types.  Figure if you want to locally
				# modify those, go ahead.  This simulates pass-by-reference.
				foreach my $arg (@args) {
					next if $arg->[0] =~ /^\$P\d+$/;
					if ($arg->[2] eq "BARE" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1417	1517	
==>>>

=back

You're unlikely to ever need to construct an object of this class for
yourself, but if you <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	964	1069	
==>ight is not Value!" unless UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = ble <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	976	1081	
==>ight is not Value!" unless UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value');

  my $self = ble <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5346	5542	
==>ave_1 ('P');

      __quoted ($self, $_, $item, $special);

      my $pair = $self->_new_pair();

      $self->_add_inst ('', 'set', [$pair.'[0]',$item]);
      $self->_add_inst ('', 'set', [$pair. <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	43951	44129	
==>leless $_[0] at start of grammar.",$_[1]);
	my $desc = $_[2] ? "\"$_[2]\"" : "";
	_hint("You need to define a rule for the $_[0] $desc
	       to be part of.");
}

my $NEGLOOKAHEA <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	378	524	
==>e(n)" => "advance input <n> chars" ],
    [ "increment(var,[amount])" => "advance input <n> chars" ],
    [ "check(n)" => "require at least <n> cha <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	6875	6972	
==>ject files.\n", scalar(@internal_symbols), scalar(@files));
    printf("Found %d external symbols\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822099	822202	
==>"BODY" => "#line 120 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823167	823270	
==>"BODY" => "#line 120 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	7863	7985	
==>" if $out;
    open  OLDERR, ">&STDERR" or die "Can't save     stderr" if $err;

    open  STDOUT, ">$out"    or die "Can't <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7913	8030	
==>" if $out;
    open OLDERR, ">&STDERR" or die "Can't save     stderr" if $err;

    open STDOUT, ">$out" or die "Can't <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	3846	4076	
==>te',     'Title() get'    );
    ok( $btaste->Director   eq 'Peter Jackson', 'Director() get' );
    ok( $btaste->Rating     eq 'R',             'Rating() get'   );
    ok( $btaste->NumExplodingSheep == 1,        'NumExplodingSheep <==
2	/Users/nnunley/parrot/config/init/optimize.pm	676	813	
==>fig{optimize}.  If an argument
    # is given, however, use that instead. 
    my $optimize = $conf->options->get('optimize');
    if (def <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11734	11926	
==>all/ } );

    print OUT "</pre>";
    print OUT page_footer();

    close(OUT);
    close(IN);


    $outfile = "$outfile_base.calls.html";
    print "Writing $outfile..\n" if $DEBUG;
    open <==
2	/Users/nnunley/parrot/config/init/defaults.pm	2950	3086	
==>s => $Config{lddlflags},

        # Flags to tell ld to build a dynamically loadable module, e.g.
        # -shared for GNU ld.
        l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314048	314256	
==>ine 62 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (INTVAL)((signed char)({{\@1}}));\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7238	7353	
==>nt($reg);
}

sub output_pushint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);

    if ($self->{DEBU <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6880	6995	
==>nt($reg);
}

sub output_pushint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);

    if ($self->{DEBU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034683	1034974	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_lex",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035846	1036137	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_lex",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	1802	1939	
==>mp([$m],["*DEFAULT_RULE_MATCH"]);
  return reduce($m, $input);
}
sub minimatch {
  my ($m, $name) = @_;
  $name ||= 'ALL';
  my $res = [ " <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19493	19635	
==>ush @{$code{$seg}->{code}}, "AFTERDO_$do->{jump}:\n";
}

sub parse_type {
		my(@types);
		feedme;
		my $typename=$syms[CURR];
		feedme;
		$sour <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	459	568	
==>ads} && $INC{'threads.pm'}) {
        require threads::shared;

        # Hack around YET ANOTHER threads::sha <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920744	921018	
==>=> "inline",
                  "CODE" => 1036,
                  "ARGS" => [
                              "s",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 316 \"src/ops/string.ops\"\n <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28623	28849	
==>$pir .= "### end typeinfo\n";

		# Does the translator code actually load a value or just give back a
		# register name?
		my $need_dest;
		if ($rule->{'pir'} =~ /\$\{DEST0\}/ &&
		    $rule->{'pir'} =~ /\$\{LOADREG\}/) {
			di <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	3668	3772	
==>, $ctx, $instructions) = @_;
    print $fh join("\n", @$instructions), "\n";
}

sub output_footer {
    m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192986	193536	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 229,
                  "ARGS" => [
                              "p",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 320 \"src/ops/cmp.ops\"\n  if (string_compare(inter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163616	163884	
==>=> "inline",
                  "CODE" => 197,
                  "ARGS" => [
                              "n",
                              "nc",
                              "ic"
                            ],
                  "BODY" => "#line 183 \"src/ops/cmp.ops <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	7316	7550	
==>s subtree?
    if (($t->minlen() || 0) > $guarantee) {
        my $newtree = $self->add_checks($t, $t->minlen(), $follow_min);
        return rop('check', [ $t->minlen() + $follow_min, $newtree ]);
    }

    # Shortest possible subtre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	498249	498726	
==>S" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 572,
                  "ARGS" => [
                              "n",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 595 \"src/ops/math.ops\"\n  {{\@1}} = floatval_mo <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2656	2773	
==>r
  print i
next i

' Branch test, all OK in sequence
PRINT "1 in module-level code"
GOSUB Sub1
PRINT "ERR this line i <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32428	32559	
==>ext') {
            # Hm, it's not numeric.  Correct for this.
            $para->[1]{'number'} = $expected_value;
            $self <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	1661	1759	
==>->code->base.data;
    return interpreter->code->prederef.code + offset_in_ops;
}
#else
#  define p <==
2	/Users/nnunley/parrot/config/auto/headers.pm	1727	1869	
==>_headers;
    foreach my $header (@extra_headers) {
        my $pass = 0;

        # First try with just the header. If that fails, try with al <==
2	/Users/nnunley/parrot/examples/benchmarks/freeze.pl	621	739	
==>freeze(\@a);
$e = time();
printf "freeze time %.6f\n", $e-$s;

$s = time();
my @b = @{ thaw $image };
$e = time();
prin <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31123	31229	
==>rot::Pmc2c';
import Parrot::Pmc2c qw( gen_ret );

=item C<implements($method)>

Always true for vtables.

= <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39743	39849	
==>rot::Pmc2c';
import Parrot::Pmc2c qw( gen_ret );

=item C<implements($method)>

Always true for vtables.

= <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	8051	8316	
==>ame} = $number if ($fix);
    }
    close OP;
    open OP, "> $file" or die "Can't open $file, error $!";
    print OP @lines;
    my ($n);
    #
    # we can't use all autogenerated ops from oplib/core
    # there are unwanted permutations like 'add_i_ic_ic
    # w <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	13871	14072	
==>s = ss_propogate[pc]
    if ss == "" goto NO_SS_PROP
    stypes = ss
NO_SS_PROP:

	# Generate label.
PIRCODE

	# Emit label generation code.
	$pir .= "### gen_label\n";
    my $srm_label = $srm->gen_lab <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1250	1392	
==>=cut

sub new
{
    my $class = shift;

    my $self = {
        steps   => [],
        data    => Parrot::Configure::Data->new,
        option <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017966	1018063	
==>= (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_gmtime_r(&t, &tm);\n  Parrot_asctime_r(&tm <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018891	1018988	
==>= (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_gmtime_r(&t, &tm);\n  Parrot_asctime_r(&tm <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	26600	26799	
==>ub rewrite_seq {
    my $self = shift;
    my $op = shift;
    my $fallback = pop;

    my @ops;
    foreach (@_) {
        my ($back, @rewritten) = $self->rewrite($_, $fallback);
        push @ops, @ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	9465	9650	
==>e_numbers;

    if( defined $name ) {
        $name =~ s|#|\\#|g;     # # in a name can confuse Test::Harness.
        $out   .= " - $name";
        $result->{name} = $name;
    }
    el <==
2	/Users/nnunley/parrot/config/auto/headers.pm	372	528	
==>:Step ':auto';
use Config;

$description = 'Probing for C headers';

@args = qw(miniparrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($con <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7763	7864	
==>s true" else print "Oops (string)"
s$=""
if s$ then print "Should not happen (string)"
i%=0
if i% then <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14750	14851	
==>s true" else print "Oops (string)"
s$=""
if s$ then print "Should not happen (string)"
i%=0
if i% then <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	51195	51288	
==>::theVerb = $item{verb}} >

Parse::RecDescent uses C<extract_codeblock($text, '{}E<lt>E<gt>')> <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	23149	23354	
==>eedme();
				goto &parse_dim;
			}
		} elsif ($syms[NEXT] eq "(")  {
			my $var=$syms[CURR];
			while(1) {
				feedme;
				last if $syms[CURR] eq ")";
			}
			my $type;
			$type="FLO";
			my %th=( single => <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1189	1310	
==>rn @{shift->{ARGS}}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $dest_ident = $se <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	3690	3836	
==>'', 
                'pairs' => ['stacks'], 
                'sources' => ['stack_common']
            ),
            $self->c_header_item('', 'enu <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	20879	21031	
==>e value to tweak.\n";
            }
          }
        }
      }
    }
  }
  DEBUG > 2 and print "End of _wrap_up traversal.\n\n";

  return;
}

#:.:.:. <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	19233	19436	
==>process formatting codes
      $to_resolve = 1 if $content =~ s/^://s;
      
      my $dont_ignore; # whether this target matches us
      
      foreach my $target_name (
        split(',', $content, -1 <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9036	9288	
==>ies, $name) = File::Spec->splitpath($path);
    
    return File::Spec->catdir($self->path, $directories, $name);
}

=item C<path_for_file_with_relative_path($path)>

Returns the path for the file with the specified with the specified path
taken relativ <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3214	3383	
==>ly internal to Parrot, try using C<const> in function
prototypes as often as possible to catch inadvertent data modification
by callers.  For APIs that cross into the ope <==
2	/Users/nnunley/parrot/config/auto/gc.pm	413	542	
==>c/recources.c>.

=item C<libc>

Use the C library C<malloc>.

=item C<malloc>

Use the malloc in F<src/res_lea.c>.

=item C<malloc <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2479	2602	
==>+)$/s
     ? ( $1, => "\n<$2>", "/$1", => "</$2>\n" ) : die "Funky $_"
  } @_;
}
sub changes2 {
  return map {; m/^([-_:0-9a <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13058	13239	
==>e you almost certainly wanted
					  '<error?> <reject>' Parse::RecDescent
					  supplied it for you.");
		push @{$_[0]->{items}},
			Parse::RecDescent::UncondReject->new(0,0,'<reje <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	7727	7846	
==>RR if $err;

    # Save the old filehandles; we must not let them get closed.
    open  OLDOUT, ">&STDOUT" or die "Can't <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7778	7896	
==>RR if $err;

    # Save the old filehandles; we must not let them get closed.
    open OLDOUT, ">&STDOUT" or die "Can't <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	402	519	
==>) = @_;
    return () unless $self->{DEBUG};
    my $ctx = $self->{ctx};
    $what = "\%<<rx_pos>>: $what";

    my @o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826031	826464	
==>ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 935,
                  "ARGS" => [
                              "n",
                              "i"
                            ],
                  "BODY" => "#line 146 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_ent <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	13953	14096	
==>th $source
     or $source eq '-' or $source =~ m/^<&(STDIN|0)$/i
  ) { 
    $source = *STDIN{IO};
  }

  if(!defined $to) {             $self-> <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	2209	2328	
==>t_object.  To wit:


  % perl -MData::Dumper -e
    "use base qw(Pod::Simple::Methody);
     sub start_L { print Dumper( <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20664	20826	
==>ION' . ++$_[1]->{actcount} .'__'; }

sub new
{
	my $class = ref($_[0]) || $_[0];
	bless 
	{
		"code"      => $_[1],
		"lookahead" => $_[2],
		"line"      => $_[3], <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	394	502	
==>ruct::Block::Conditional);

#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $left, $op, $right) = @ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	406	514	
==>ruct::Block::Conditional);

#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $left, $op, $right) = @ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3031	3135	
==>$val1, $val2, $dest);
}

sub output_ne {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_test <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2727	2831	
==>$val1, $val2, $dest);
}

sub output_ne {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_test <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	2788	2993	
==>s

=over 4

=item 1.

A preamble, consisting of code to be copied directly to the .c file

=item 2.

The C<pmclass> declaration:

    pmclass PMCNAME [flags] {

where C<flags> are:

=over 4

=item C<extends <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	539	632	
==>::isa($block, 'Jako::Construct::Block');
  confess("Identifier (" . ref($ident) . ") is not!") <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	539	632	
==>::isa($block, 'Jako::Construct::Block');
  confess("Identifier (" . ref($ident) . ") is not!") <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	7753	7851	
==>my $path = $self->path_for_directory_with_name(shift) || return;
    
    return $self->directory_w <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761451	761557	
==>GISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_PMC({{\@1}}) = {{\@2}};\n    {{+=3}};\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762304	762410	
==>GISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_PMC({{\@1}}) = {{\@2}};\n    {{+=3}};\n <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10996	11101	
==>se $_[0] so that we can undef the instance in SUPER::delete().
    
    $_[0]->delete_contents;
    rmdir( <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	8771	8877	
==>h => "switch",
	  fast => "fast",
	  default => "default",
  );

  $runcore{$_[0]};
}

sub runcore_from_arg <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	13757	13919	
==>ps; }
EOC
}

print("jit2c: JITed $njit (+ $vjit vtable) of $core_numops ops\n");

sub make_subs {
    my ($ptr, $type, $index) = @_;

    return(($ptr eq '&' ? '&' <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	12182	12303	
==>filter(sub { /^branch/ } );

    print OUT "</pre>";
    print OUT page_footer();

    close(OUT);
    close(IN);


    re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558047	558140	
==>eter->current_object = object;\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559431	559524	
==>eter->current_object = object;\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_f <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4093	4332	
==>ll',
            ld_out               => '-out:',
            ldflags              => '-nologo -nodefaultlib',
            ar                   => 'xilib',
            ar_flags             => '',
            ar_out               => '-out:', <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	60392	60503	
==>ilable diagnostics are:

=over 4

=item  C<Did not find a suitable bracket: "%s">

The delimiter provided to C<e <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	2286	2471	
==>the next version becone
        # (2.8)

        # Don't use -ansi -pedantic.  It makes it much harder to compile using
        # the system headers, which may well be tuned to a non-str <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74936	75027	
==>>: ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$errorprefix,          $errortext <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11033	11144	
==>ble,
    $self->stylesheet,
    $self->color_table,
    $self->doc_info,
    $self->doc_start,
    "\n"
  ;
}

s <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	9275	9387	
==>balanced" if $balance;
}


=head2 my ($pre, $class_name, $flags) = parse_flags(\$code);

Extract a class signatur <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4753	4859	
==>rns the C code prior to the run core function.

=cut

sub run_core_func_start
{
    return <<END_C;
#if def <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3041	3147	
==>rns the C code prior to the run core function.

=cut

sub run_core_func_start
{
    return <<END_C;
#if def <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	7681	7828	
==>ource_scalar_ref'} = $_[0];
    DEBUG and print "$self 's source is scalar ref $_[0]\n";
    return;
  } elsif(ref( $_[0] ) eq 'ARRAY') {
    $self- <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	2769	2867	
==>ribution after configuration and installing.', 'MANIFEST.generated'),
            $self->new_item(' <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1673	1811	
==>No return type
    undef   # No prefix
  );

  return bless {
    DEBUG            => 1,
    ANON_BLOCK_COUNT => 0,
    BLOCK_COUNT      => <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	4586	4810	
==>l => "I",
       c => "I",
       s => "I",
       f => "N",
       d => "N",
       b => "S",
       t => "S",
       P => "P",
       O => "P",
       S => "S",
       I => "I",
       N => "N",
       B => "S",
       v => <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	2501	2621	
==>sub write_docs
{
    my $self = shift;
    my $silent = shift || 0;
    my $delete = shift || 0;
    my $dist = Parrot::D <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	1132	1220	
==>S_DIR)/core_ops_cg$(O): $(GENERAL_H_FILES) $(OPS_DIR)/core_ops_cg.c
$(OPS_DIR)/core_ops_c <==
2	/Users/nnunley/parrot/languages/lua/luac.pl	223	381	
==>RGV) != 1 ) {
    use Pod::Usage;
    pod2usage( -verbose => 1 );
}

my $parser = new Lua::parser();
$parser->YYData->{verbose_error}   = 1;    # 0, 1
$ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	61375	61479	
==>out of characters in the text before closing one or more levels of nested
brackets.

=item C<Unmatched em <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	5134	5272	
==>$self->{FILE} .= $file . ', ';

    my $orig = $file;

    open my $OPS, '<', $file or die "Can't open $file, $!/$^E";

    if ( ! ($file = <==
2	/Users/nnunley/parrot/config/gen/platform.pm	280	490	
==>tform;

use strict;
use warnings;

use base qw(Parrot::Configure::Step::Base);

use Config;
use English qw( -no_match_vars );

use Parrot::Configure::Step qw(copy_if_diff);

our $description = 'Moving platform f <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	21469	21594	
==>print <<EOC;
	$pres = new .Boolean
	$pres = $res # ugly
EOC
	push @stack, [-1, $pres, 'P'];
	return;

    }
    # XXX the labe <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	9014	9273	
==>d($kid->maxlen())) {
                $kid_guarantee -= $kid->maxlen();
            } else {
                $kid_guarantee = 0;
            }
        }
    } elsif ($type eq 'multi_match') {
        # R<min,max>: R is guaranteed to have 1/max as many available <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167078	167535	
==>> ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 201,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169899	170228	
==>> ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 204,
                  "ARGS" => [
                              " <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	3685	3832	
==>faces (the collection of methods
which the class implements).

The default is "scalar". Other currently used interfaces are:

    array    : contain <==
2	/Users/nnunley/parrot/config/auto/funcptr.pm	1129	1305	
==>t JIT support, please re-run this script
With the '--jitcapable=0' argument.
END
            exit(-1);
        }
        cc_clean();
        print " (yes) " if $conf->options->g <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89328	89619	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90066	90357	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_c <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1166	1274	
==>{
    my $pmc_type = $self->ident->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();
    $compiler->em <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1160	1268	
==>{
    my $pmc_type = $self->ident->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();
    $compiler->em <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	693	792	
==>ould be the relative path from the page to
F<docs/resources>, the image and CSS file directory.

=cu <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	1911	2010	
==>ould be the relative path from the page to
F<docs/resources>, the image and CSS file directory.

=cu <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	638	759	
==>n count
on an automatically generated next-op to be appended to the op body.

Note that F<tools/build/ops2c.pl> supplies e <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27811	27945	
==>85
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 2 <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32121	32260	
==>_tok and
		     do { substr($text,0,length($_tok)) = ""; 1; }
		)
		{
			'.($self->{"lookahead"} ? '$text = $_savetext;' : '').'
			if ($Par <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2390	2517	
==>s $right_sym;
    $right_type = $right_sym->type;
  }
  else {
    $right_type = $right->type;
  }

#  $self->DEBUG(0, "Arithmet <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	3895	4011	
==>ss = ";
        $cout .= <<"EOC";
    whoami = const_string(interpreter, "$class");
    ${lhs}pmc_register(interprete <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	9	145	
==>w
use strict;
use lib qw(lib);

my $static_dir  = "runtime/builtin";
my $dynamic_dir = "src/builtin";

print <<EOH;
# This file automatic <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	845953	846282	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	8832	8982	
==>sizeof(struct PackFile_Constant) + offsetof(struct PackFile_Constant, u))
#define RCONST(i) interpreter->code->const_table->constants[jit_info->cur_op[ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	8962	9099	
==>erpreter';
        $pmc = ' pmc';
    }
    return <<"EOC";
$export$extern$ret${newl}Parrot_${classname}_$meth(Interp*$interp, PMC*$pmc$ar <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	4742	4911	
==>with_name('html');
}

=item C<delete_html_docs()>

Deletes the HTML documentation directory.

=cut

sub delete_html_docs
{
    my $self = shift;
    
    return $self->ht <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	38778	38919	
==>n_name = \@section_name;
          last;
        }
      }

      # Turn L<"Foo Bar"> into L</Foo Bar>
      if(!$section_name and @ell_conten <==
2	/Users/nnunley/parrot/config/gen/platform.pm	2956	3127	
==>ocal $/ = undef;
            print("\t$_\n") if defined $verbose && $verbose == 2;
            open IN_H, "< $_" or die "Can't open $_: $!";
            print PLATFORM_H << <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	16786	16885	
==>, LOADREG => 'loadreg' }, "post_load for typed exception handler");
	$pir .= "### end post_load (typ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	169	290	
==>, %options) = @_;

    if ($language eq 'perl5') {
        $class = 'Regex::Driver::Perl5';
    } elsif ($language eq 'pir <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	29807	29978	
==>_op_string_le_p {
}

sub _op_string_ge_p {
}

sub _op_string_ci_eq_p {
}

sub _op_string_ci_lt_p {
}

sub _op_string_ci_gt_p {
}

sub _op_string_ci_le_p {
}

sub _op_string <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	1205	1311	
==>ot_> prefix (or prefix deemed
Parroty enough, like C<PDB_>, C<PF_>, C<PIO_>, and C<PackFile>).

If code: se <==
2	/Users/nnunley/parrot/config/init/manifest.pm	62	244	
==>/config/init/manifest.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/init/manifest.pm - MANIFEST Check

=head1 DESCRIPTION

Uses C<ExtUtils::Manifest> to check that <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	13599	13737	
==>en writing modules and you
find there is some language feature missing, or core bug that needs to
be sorted out before you can continue.

I <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	3116	3234	
==>"mod");
	return 40 if ($op eq '\\');
	return 50 if ($op eq "*");
	return 50 if ($op eq "/");
	return 60 if ($op eq "^") <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	525	628	
==>e estimated number of ops performed,

=item * the elapsed time, and 

=item * the number of M op/s.

=ba <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	528	630	
==>e estimated number of ops performed,

=item * the elapsed time, and

=item * the number of M op/s.

=ba <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	11600	11717	
==>($line_group) = 0;
    while($line_group =~
      m/([^\n\r]*)((?:\r?\n)?)/g
    ) {
      #print(">> $1\n"),
      $s <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2412	2536	
==>$self{USER})
	or	$$self{USER}={};

	$$self{USER};
	
}

sub YYErrok {
	my($self)=shift;

	${$$self{ERRST}}=0;
    u <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2317	2430	
==>$self{USER})
	or	$$self{USER}={};

	$$self{USER};
	
}

sub YYErrok {
	my($self)=shift;

	${$$self{ERRST}}=0;
    u <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	2669	2834	
==>"diff @diff\n" if $opt{d};
    @diff;
}

sub get_dis {
    my ($cmd, $f) = @_;
    @dis = qx($cmd $f);
    print @dis if $opt{d};
}

sub get_source {
    my ($f) = @_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4624	4721	
==>Note that for loading debugging version of the driver,
#this file will be parsed from 'sub _Parse <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4390	4486	
==>Note that for loading debugging version of the driver,
#this file will be parsed from 'sub _Parse <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7884	7994	
==>happen (int)"
i%=54
if i% then print "This is true" else print "Oops (int)"
i=0
if i then print "Should not hap <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14871	14981	
==>happen (int)"
i%=54
if i% then print "This is true" else print "Oops (int)"
i=0
if i then print "Should not hap <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	823	916	
==>DFLAGS = qq[-L/opt/local/lib -L/usr/local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS = qq[-bun <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	827	920	
==>DFLAGS = qq[-L/opt/local/lib -L/usr/local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS = qq[-bun <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	10563	10778	
==>my $title;
  my @to_unget;
  my $state = 0;
  my $depth = 0;

  Carp::croak "What kind of titlename is \"$titlename\"?!" unless
   defined $titlename and $titlename =~ m/^[A-Z ]{1,60}$/s; #sanity
  my $titlename_re = <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	17483	17594	
==>d1 NAME

tools/gen_operator_defs.pl - Generate the definitions for all the various
APL operators in all possible <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	4398	4501	
==>ntinue);
    }
}

# TODO: can_match_empty (so s/a*/x/g doesn't go into infinite loop)
# This is sometime <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	400	581	
==>bedding API as described in the public
headers F<include/parrot/embed.h> and F<include/parrot/extend.h> (the
API is detected using pattern C</^\w+\s+(Parrot_\w+)\(/>), then finds
out <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1554	1677	
==>oto &{"Test::More::$meth"};
        my $ok = &{"Test::More::$meth"}( @_ );
        # if( $ok ) { foreach my $meth ( $lang_f, <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1470	1593	
==>oto &{"Test::More::$meth"};
        my $ok = &{"Test::More::$meth"}( @_ );
        # if( $ok ) { foreach my $meth ( $lang_f, <==
2	/Users/nnunley/parrot/tools/dev/gen_class.pl	1620	1746	
==>($args) {\n";
	if($retval ne 'void') {
		print "        return ($retval)0;\n";
	}
	print "    }\n\n";
}

## emit file fo <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20743	20887	
==>e 61
		DEFAULT => -28,
		GOTOS => {
			'@9-2' => 116
		}
	},
	{#State 62
		DEFAULT => -52
	},
	{#State 63
		ACTIONS => {
			"," => 66, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1493	1593	
==>}
sub start_head3 {  $_[0]{'Thispara'} = '' }
sub start_head4 {  $_[0]{'Thispara'} = '' }

sub start_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1023	1123	
==>}
sub start_head3 {  $_[0]{'Thispara'} = '' }
sub start_head4 {  $_[0]{'Thispara'} = '' }

sub start_ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1656	1746	
==>erate_subrule_pir($target, $pattern)
        : Parrot::Test::PGE::_generate_pir_for($target <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2179	2269	
==>erate_subrule_pir($target, $pattern)
        : Parrot::Test::PGE::_generate_pir_for($target <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2852	2976	
==>rror {
	my($self)=shift;

	${$$self{CHECK}}='ERROR';
    undef;
}

sub YYSemval {
	my($self)=shift;
	my($index)= $_[ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2717	2832	
==>rror {
	my($self)=shift;

	${$$self{CHECK}}='ERROR';
    undef;
}

sub YYSemval {
	my($self)=shift;
	my($index)= $_[ <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	4802	4922	
==>y %delete = map { $_->{filename} => 1 } @smokes;
  for(map { @$_ } values %cats) {
    next unless $_;

    delete $delet <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	2593	2840	
==>nvironment.  An example is Solaris 8.

        my @opt_and_vers = (
            0 =>
                "-Wall -Wstrict-prototypes -Wmissing-prototypes -Winline -Wshadow -Wpointer-arith -Wcast-qual -Wwrite-strings -Waggregate-return -Winline -W -Wno-u <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	1897	2046	
==>),
		$self->new_group('Library', '',
		    $self->new_item('PASM/IMC access to Parrot configuration data.', 
		        'runtime/parrot/library/config. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113893	114170	
==>} <<= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114632	114909	
==>} <<= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	8198	8287	
==>CURIC}
goto post_call_NO_RETURN_${CURIC}
post_call_HAS_RETURN_${CURIC}:
${INS} = concat "p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2408	2512	
==>rmal argument (%s)!", $formal_arg_name) 
      unless defined $formal_arg_type;

    $self->INTERNAL_ERRO <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2108	2212	
==>rmal argument (%s)!", $formal_arg_name) 
      unless defined $formal_arg_type;

    $self->INTERNAL_ERRO <==
2	/Users/nnunley/parrot/languages/converter.pl	690	880	
==>ion	: terminal production
#		{[@item]}
		{ "$item[1] $item[2]" }
		| terminal(?) '(' production ')' mod(?) production(?)
#		{[@item]}
		{ $return = '';
		  $return .= $item[1][0] if defined $ <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	17167	17278	
==>s+ %%/$macros{$macro}/gx;
}

print $template;

# Given a code snippet, convert it to something usable in the gen <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	4763	5014	
==>f the file has been modified since it was checked. 

=cut

sub check_pod
{
	my $self = shift;
	
	return if ( $self->is_executable and $self->name ne 'parrotbug' ) 
	    or $self->suffix eq 'dump';
	
	if ( ! exists $self->{POD_ERRORS_TIME} or 
		$self-> <==
2	/Users/nnunley/parrot/editor/ops2vim.pl	384	605	
==>bop \s+ (\w+) \s* \(/x) {
        next if $seen{$1}++;
        if (length($1) + length($cline) > 72) {
            print "$cline\n";
            $cline = $prefix;
        }
        $cline .= " $1";
    }
}

###
print "$cli <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	2071	2247	
==>p {
    my $t = $_[0];
    return $type_map{$t} if $type_map{$t} ;
    return $t;
}
sub parse_dis
{
    my @d = @_;
    my ($dir1, $dir2);
    for (@d) {
	if (/^\[/) {
	    if ( <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	62808	62920	
==>ted codeblock at %s>

A nested code block was found that started with a delimiter that was specified
as being onl <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2454	2649	
==>h                => '\\',
            blib_dir             => 'blib\\lib',
            ccflags              => $ccflags,
            ccwarn               => '',
            has_dynamic_linking  => <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4350	4545	
==>h                => '\\',
            blib_dir             => 'blib\\lib',
            ccflags              => $ccflags,
            ccwarn               => '',
            has_dynamic_linking  => <==
2	/Users/nnunley/parrot/Configure.pl	9872	9977	
==>is a temporty hack
    no warnings qw(once);
    $Parrot::Configure::Step::conf = $conf;
}
$conf->add_step <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	32569	32699	
==>under
    # 5.004!
    my $in_eval = 0;
    for( my $stack = 1;  my $sub = (CORE::caller($stack))[3];  $stack++ ) {
        $in_eva <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3165	3261	
==>>SUPER::new(@_);
  $new->nix_X_codes(1);
  $new->nbsp_for_S(1);
  $new->accept_targets( 'rtf', 'R <==
2	/Users/nnunley/parrot/config/init/defaults.pm	44	134	
==>on.
# $Id: /parrot/config/init/defaults.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	2007	2147	
==>unless (/^(inline\s+)?op\s+([a-zA-Z]\w*)/);
        my $op = $2;
        $op =~ s/\.//g;
        next if ($ops{$op});
        print "      <i <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	4	103	
==>uire 5;
package Pod::Simple::DumpAsXML;
$VERSION = '2.02';
use Pod::Simple ();
BEGIN {@ISA = ('Pod:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5820	6078	
==>"i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 144 \"src/ops/core.ops <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1303	1392	
==>g(I<somestring>) or $token->is_tagname(I<somestring>)

These are shortcuts for C<< $token- <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1733	1822	
==>g(I<somestring>) or $token->is_tagname(I<somestring>)

These are shortcuts for C<< $token- <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	1672	1805	
==>'dyadic:>']       =  <<"END_PIR"            # greater than
    $I100 = isgt %1, %2
    %1 = $I100
END_PIR

    $P0['dyadic:=']       = <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	675	769	
==>em C<directory_class()>

Returns C<Parrot::Docs::Directory>.

=cut

sub directory_class
{
    r <==
2	/Users/nnunley/parrot/config/inter/make.pm	648	762	
==>e ask );

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    # undef <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117946	118241	
==>};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118685	118980	
==>};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	8415	8553	
==>$<rx_tmp>';
    return @ops;
}

sub output_peekindex {
    my $self = shift;
    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $f <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	12768	12919	
==>fo;
    p->next = hop[hidx];
    hop[hidx] = p;
}
static int get_op(const char * name, int full) {
    HOP * p;
    const size_t hidx = hash_str(name) % <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	12643	12885	
==>til) = $util =~ /(\S+)/;
        my $path = which($util);

        if ($verbose) {
            print "$path is executable\n" if $path;
        }

        return $prog if $path;
    }

    return;
}

=item C<_slurp($filename)>

Slurps C<$filena <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12785	12890	
==>_RESTORE(" . join(",",@args) . ")\n";
}


sub parse_exit {
	if ($syms[NEXT] eq "for") {
		feedme();
	  	$f <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	18083	18248	
==>tter subclasses might find these methods useful to
call on a parser object that you haven't started pulling tokens
from yet:

=over

=item my $title_string = $parser- <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2301	2395	
==>ment stack height.
dec stack_depth
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$register_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3553	3647	
==>ment stack height.
dec stack_depth
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$register_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	952	1262	
==>sa($value, qw(Jako::Construct::Expression::Value));

  my $self = bless {
    BLOCK  => $block,
    ACCESS => 'const',
    TYPE   => $type,
    NAME   => $ident->value,
    FILE   => $ident->file,
    LINE   => $ident->line,
    VALUE  => $value
  }, $class;

  #
  # Check for a few bad conditions.
  #
  # NOT <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	2666	2887	
==>ests needed, that check for vital classes

    # names of class files for src/pmc/Makefile
    (my $TEMP_pmc_o   = $pmc_list) =~ s/\.pmc/\$(O)/g;
    (my $TEMP_pmc_str = $pmc_list) =~ s/\.pmc/\.str/g;

    # calls to pmc2c <==
2	/Users/nnunley/parrot/config/auto/jit.pm	4548	4679	
==>capable => 0
            );
        }

        # test for executable malloced memory
        if (-e "config/auto/jit/test_exec_$osna <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	2131	2252	
==>_item('', 'tools/build/fingerprint_c.pl'),
            $self->new_item('', 'tools/build/ops2c.pl'),
            $self->new <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	27583	27713	
==>only works under Perl 5.005 or later.

	$extract_head = gen_extract_tagged('<HEAD>','</HEAD>');

	($extracted, $remainder) = $extra <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8809	8973	
==>SASCII = (
# mostly generated by
#  perl -e "printf qq{  \x25 3s, '\x25s',\n}, $_, chr($_) foreach (32 .. 126)"
   32, ' ',
   33, '!',
   34, '"',
   35, '#',
   36 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	865	968	
==>EBUG > 3 and print "Stack is now: ",
    join(">", map $_->[0], @{$_[0]{'_currpos'}}), "\n";
  return;
} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1098	1201	
==>EBUG > 3 and print "Stack is now: ",
    join(">", map $_->[0], @{$_[0]{'_currpos'}}), "\n";
  return;
} <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	7247	7412	
==>= @_;
        my $FH   = $self->{fh};
        if ( exists $op->{op} ) {
            print {$FH}
                "  if $op->{arg1}->{symbol} $op->{op} $op->{arg2}- <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	1187	1358	
==>rt keys %{$code{$seg}->{declarations}}) {
			if ($var=~/_string$/) {
				print CODE "\t.local string $var\n";
				push @init, qq{\t\t$var=""\n};
				push @debdecl, "\t\t\$P <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	1302	1433	
==>s);
    }
    
    return @groups;
}

=item C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SU <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4239	4351	
==>les) {
        partial_link($group, $group_libs->{$group}, [ "lib-$group", @$pmcs ] )
          or die "partial l <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4343	4455	
==>les) {
        partial_link($group, $group_libs->{$group}, [ "lib-$group", @$pmcs ] )
          or die "partial l <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	23575	23738	
==>[1]{'target'} because of =end $content\n";
      pop @$curr_open;

      next;
      
    } elsif($para_type eq '~end') { #///////////////////////////////////////// <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	4285	4426	
==>}


sub check_cuddled_else {
    my ($file, $source) = @_;

    my $line = 0;
    foreach (@$source) {
        $line++;
        next unless $_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	650590	650691	
==>src/ops/pmc.ops\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtable_max)\n        {{\@1}} = 1;\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651512	651613	
==>src/ops/pmc.ops\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtable_max)\n        {{\@1}} = 1;\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52019	52171	
==>Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "trace",
                  "FLA <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48173	48310	
==>~ m/\G[(]/gc)
			{
				pos($grammar)--;

				if ($grammar =~ m/$OPTIONAL/gco)
					{ ($minrep, $maxrep) = (0,1) }
				elsif ($grammar =~ m <==
2	/Users/nnunley/parrot/lib/Test/More.pm	11722	11959	
==>ocal($!, $@);  # don't interfere with caller's $@
                        # eval sometimes resets $!
        eval { $proto->can($method) } || push @nok, $method;
    }

    my $name;
    $name = @methods == 1 ? "$class->can('$methods[0]') <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	1	152	
==>! perl -w
# Copyright (C) 2001-2005, The Perl Foundation.
# $Id: /parrot/tools/build/ops2c.pl 20350 2006-06-25T03:57:27.771662Z petdance  $

=head1 NAME <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2304	2539	
==>ce_line) =~ tr/\n\r//d;
       # If we don't have two vars, we'll end up with that there
       # tr/// modding the (potentially read-only) original source line!
    
    } else {
      DEBUG > 2 and print "First line: [$source_line]\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	866427	866695	
==>@1}});\n   {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24846	25080	
==>en;
      }

      $self->require_semicolon;

      my $ctl = Jako::Construct::Statement::LoopControl->new($block, $kind, $target, $cond, $left, $op, $right);
      next;
    }

    #
    # Conditional Blocks:
    #
    #   if     (<va <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	771	878	
==>-----
# Set up some constants:

BEGIN {
  if(defined &ASCII)    { }
  elsif(chr(65) eq 'A') { *ASCII = sub ( <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	1002	1182	
==>lf->new_item('', 'tools/build/vtable_extend.pl'),
        ),
        $self->new_group('Bytecode', '',
            $self->new_item('', 'tools/build/pbc2c.pl'),
            $self->new <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1585	1714	
==>turn () if $distance == 0;

    if ($distance == 1) {
        return "<rx_pos>++;";
    } elsif ($distance == -1) {
        return <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20135	20251	
==>h
  1031  Germany German
  1036  France French
  3084  Canada French
  1035  Finnish
  1044  Norwegian (Bokmal)
  206 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	34171	34310	
==>tate 121
		ACTIONS => {
			"," => 151,
			'DO' => 168
		}
	},
	{#State 122
		DEFAULT => -96
	},
	{#State 123
		ACTIONS => {
			'N <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	60361	60470	
==>error = 0;
		}
		elsif ($grammar =~ m/$LITERAL/gco)
		{
			($code = $1) =~ s/\\\\/\\/g;
			_parse("a literal t <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17743	17886	
==>[1]{'start_line'},
          "=for without a target?"
        );
        next;
      }
      DEBUG > 1 and
       print "Faking out a =for $targ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	14837	15029	
==>ound in the buffer.
  #   ~Verbatim, ~Para, ~end, =head1..4, =for, =begin, =end,
  #   =over, =back, =item
  #   and the null =pod (to be complained about if over one line)
  #
  # "~data" para <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50105	50201	
==>00 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_PROFILE_FLAG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50898	50994	
==>00 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_PROFILE_FLAG <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	1482	1707	
==>\((\w+)\))?
		(\s+subst\((s/.*?/.*?/\w*)\))?
		!x
                ) {
                $inc = $2;
                print "$2 " if $conf->options->get('verbose');
                $prefix = ($4 || '');
                $subst  = ($ <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6706	6839	
==>mc.pmc")) {
        run("$PMC2C --dump $pmc.pmc")
          or die "pmc2c dump failed ($?)\n";
    }
}

sub generate_c {
    my ($pmc) <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6917	7050	
==>mc.pmc")) {
        run("$PMC2C --dump $pmc.pmc")
          or die "pmc2c dump failed ($?)\n";
    }
}

sub generate_c {
    my ($pmc) <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	28926	29035	
==>uilder doesn't know the result of the test, so
it's type is 'unkown'.  These details for these tests are fille <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576403	576502	
==>ne 276 \"src/ops/object.ops\"\n  PMC *name;\n  name = pmc_new(interpreter, enum_class_String);\n  VT <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577415	577514	
==>ne 276 \"src/ops/object.ops\"\n  PMC *name;\n  name = pmc_new(interpreter, enum_class_String);\n  VT <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	420513	420845	
==>ion",
                  "CODE" => 483,
                  "ARGS" => [
                              "i",
                              "p",
                              "ic",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\ <==
2	/Users/nnunley/parrot/tools/dev/gen_class.pl	1144	1276	
==>se are the vtable functions for the $classname base class
 *  Data Structure and Algorithms:
 *  History:
 *  Notes:
 *     Pleas <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218305	218634	
==>> ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 256,
                  "ARGS" => [
                              " <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2799	2910	
==>ddress
{
    my ($self, $addr) = @_;
    return "opcode_to_prederef(interpreter, $addr)";
}

=item C<expr_offset <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	3364	3529	
==>multiple occurrences of the same file
my %seen;

my @files;
my @installable_exe;
my %directories;
@ARGV = @manifests;
while(<>) {
    chomp;

    s/\#.*//; # Ignore c <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	1487	1656	
==>single => 'FLO', double => 'FLO', long => 'INT', integer => 'INT', string => 'STRING');
			if (exists $th{$stype}) {
				$stype=$th{$stype};
			} else {
				unless (exist <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15191	15309	
==>ing
like this:

  multi sub is_deeply (Array @got, Array @expected, Str $desc?) returns Bool;
  multi sub is_deeply (Li <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1664	1776	
==>result}->{symbol} = $op->{op} $op->{arg1}->{symbol}\n";
    }

    sub visitBinaryOp {
        my $self = shi <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	868	969	
==>This will also trigger any hints-file
    # callbacks that depend on knowing whether or not we're usin <==
2	/Users/nnunley/parrot/config/auto/msvc.pm	804	905	
==>This will also trigger any hints-file
    # callbacks that depend on knowing whether or not we're usin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	622827	622950	
==>ops/pic.ops\"\n    Parrot_MIC *mic;\n    Parrot_PIC_lru *lru;\n    PMC *sig, *ccont;\n    opcode_t *dest_pc;\n    void **des <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4272	4372	
==>th_name($name)>

Returns whether a file with the specified name exists in the directory.

=cut

sub f <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2128	2221	
==>}; # returns undef if unknown
  }
}

#-------------------------------------------------------- <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2593	2686	
==>}; # returns undef if unknown
  }
}

#-------------------------------------------------------- <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	1237	1338	
==>s "This is Parrot" in the directory.

Raises an exception if the distribution root is not found.

=cut <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	20490	20616	
==>"<", $file );
        while (<$fh>) {
            if (/^(?:extern\s+)?\w+\*?\s+\*?(\w+)\s*\([^)]+\)\s*;/) {
                pus <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	20823	20949	
==>"<", $file );
        while (<$fh>) {
            if (/^(?:extern\s+)?\w+\*?\s+\*?(\w+)\s*\([^)]+\)\s*;/) {
                pus <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28941	29213	
==>'} ne 'nci';
}


=item C<implements_vtable($method)>

True if this class generates code for VTABLE method C<$method>.

=cut

sub implements_vtable
{
    my ($self, $meth) = @_;
    return 1 if exists $self->{has_method}{$meth};
    my $n = $self->{vtable}{has_method}{$meth <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2713	2873	
==>rtToken>,
L<Pod::Simple::PullParserTextToken>, and
L<Pod::Simple::PullParserEndToken>.

L<Pod::Simple::PullParser> and L<Pod::Simple>

=head1 COPYRIGHT AND DISCL <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20652	20741	
==>rtToken>,
L<Pod::Simple::PullParserTextToken>, and
L<Pod::Simple::PullParserEndToken>.

L< <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066692	1066944	
==>DE" => 1191,
                  "ARGS" => [
                              "i",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 49 \"src/ops/experimental.ops\"\n\n  FLO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369472	369561	
==>c/ops/io.ops\"\n  {{\@1}} = PIO_reads(interpreter, {{\@2}}, (size_t){{\@3}});\n  {{+=4}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	370357	370446	
==>c/ops/io.ops\"\n  {{\@1}} = PIO_reads(interpreter, {{\@2}}, (size_t){{\@3}});\n  {{+=4}};\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6738	6889	
==>line_count'}\n"; 
      }
      
      $self->{'last_was_blank'} = 1;
      
    } elsif($self->{'last_was_blank'}) {  # A non-blank line starting a new <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	62640	62772	
==>oreach my $op ( @{$fct} ) {
            $op->visit($generator) unless ( exists $op->{prolog} );
        }
    }
    close $FH;
} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368875	369153	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369759	370037	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 " <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	8181	8294	
==>> 'libparrot.$(SOVERSION).dylib',
             'libparrot_shared_alias' => 'libparrot.dylib',
             'libpar <==
2	/Users/nnunley/parrot/lib/Test/More.pm	12430	12559	
==>sa_ok( $obj, 'Some::Module' );

where you'd otherwise have to write

    my $obj = Some::Module->new;
    ok( defined $obj && $obj <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	3034	3162	
==>e_count\n";

        # Otherwise, just append it to current method.
        } else {
            $cur_method->{'body'} .= "$line\ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7455	7651	
==>value($reg);
    return ("$reg = pop \@::STATESTACK;");
}

sub output_refresh {
    my ($self, $reg) = @_;
    $reg = value($reg);
    return ("$reg = \$::STATESTACK[-1]");
}

use vars qw($DEBUG_LA <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3696	3801	
==>turn "if $reg, " . $self->output_label_use($dest);
}

sub output_unless {
    my ($self, $reg, $dest) = @_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15536	15656	
==>ser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new As <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19289	19409	
==>ser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new As <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225923	226252	
==>> ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 264,
                  "ARGS" => [
                              " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	287151	287471	
==>,
                  "TYPE" => "inline",
                  "CODE" => 334,
                  "ARGS" => [
                              "i",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 918 \"src/ops/cmp.ops\"\n  {{\@1}} = (mmd_dispat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862462	862553	
==>"#line 138 \"src/ops/string.ops\"\n  {{\@1}} = string_length(interpreter, {{\@2}});\n  {{+=3 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863231	863322	
==>"#line 138 \"src/ops/string.ops\"\n  {{\@1}} = string_length(interpreter, {{\@2}});\n  {{+=3 <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	2817	2940	
==>(PMC metadata).

This function is exported.

=cut

sub dynext_load_code {
    my ($libname, %classes ) = @_;

    my $lc_lib <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15475	15594	
==>10 to 3 step -1
	print i
next i
print

' For loops.  3..6 nested in 1..3
function foo
	for y=3 to 6
	print y,
	next y
	f <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	1010	1132	
==>n C<files()>.

=cut

sub files_of_type
{
    my $self = shift;
    my $type = shift;
    
    return () unless defined $typ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	20635	20902	
==>ior level, just in case.
                $builder->level($level);
            }
        }
    }

    # XXX this is broken WRT todo tests
    my %example_test_map = (
        example_output_is   => 'language_output_is',
        example_output_like => 'language_output_l <==
2	/Users/nnunley/parrot/languages/urm/urm-old.pl	336	440	
==>\)/) {
	print "Werte für $1: ";
	my $input = readline(STDIN);
	my @register = split (",", $1);
	chomp $i <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	6628	6740	
==>yright 1995-1996 Neil Winton.
 Copyright 1991-1992 RSA Data Security, Inc.

The MD5 algorithm is defined in RFC 1 <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6979	7096	
==>\n";
    }
}

sub compile {
    my ($src_stem, $dest_stem) = @_;

    $dest_stem ||= $src_stem;
    if (needs_build("$ <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7190	7307	
==>\n";
    }
}

sub compile {
    my ($src_stem, $dest_stem) = @_;

    $dest_stem ||= $src_stem;
    if (needs_build("$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717919	718027	
==>rc/ops/python.ops\"\n  PMC * const io = {{\@1}};\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(inte <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718851	718959	
==>rc/ops/python.ops\"\n  PMC * const io = {{\@1}};\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(inte <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022610	1022884	
==>tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodelo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023459	1023733	
==>tm);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodelo <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5848	5961	
==>();
    
    if ( $source->relative_path_is_directory($rel_path) )
    {
        my $dir = $source->directory_with <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	487972	488206	
==>math.ops\"\n  {{\@1}} = ceil({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13014	13100	
==>loc;\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  ST <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13858	13944	
==>loc;\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2}},  ST <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	7147	7272	
==>=~ /switch/) {
	$definition = "case $index:";
	$comment    = "/* ". $op->full_name() ." */";
    }
    else {
        $definit <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	27439	27586	
==>r a specific pair of tags, and consequently
# much faster (i.e. 3 times faster). It uses qr// for better performance on
# repeated calls, so it only <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23348	23465	
==>nsym();

  $return = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp = $self->_ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23810	23927	
==>nsym();

  $return = $self->_generate($node->{children}[1]);
  for(2..$#{$node->{children}}) {
    my $temp = $self->_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	664	922	
==>ct::Expression::Value');
  confess("Right (" . ref($right) . ") is not Identifier") unless UNIVERSAL::isa($right, 'Jako::Construct::Expression::Value::Identifier');

  my $self = bless {
    BLOCK => $block,
    LEFT  => $left,
    RIGHT => $right
  }, $class <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	7329	7441	
==>ame from a C99 reference, so some 99isms
#  might have slipped in)
abort       stdlib.h
abs         stdlib.h
acos <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	611	717	
==>em C<prefix>

The install prefix. Defaults to '/usr'.

=item C<exec_prefix>

The exec prefix. Defaults to ' <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	840	946	
==>em C<prefix>

The install prefix. Defaults to '/usr'.

=item C<exec_prefix>

The exec prefix. Defaults to ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85632	85921	
==>terpreter, compreg_hash, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86539	86828	
==>terpreter, compreg_hash, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	47027	47168	
==>ule 13
		 '@2-1', 0,
sub
#line 104 "Lua\lua51.yp"
{
            PushScope( $_[0] );
        }
	],
	[#Rule 14
		 'stat', 6,
sub
#lin <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	5168	5260	
==>_output_like( $example_f, $expected, @todo )>

Determine the language from the extension of C <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	914	1056	
==>tor => 40,
	SArray => 41,
	ConstSArray => 42,
	FixedStringArray => 43,
	MultiArray => 44,
	Hash => 45,
	OrderedHash => 46,
	TQueue => 47,
	Parr <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37727	37902	
==>P_$name:
PIR

		# Finally, call post_call and append code it generates.
		my $post_call = $srm->post_call();
		$pir .= "### post_call\n";
		$pir .= sub_meta($post_call, $mv, "p <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8713	8844	
==>recovery.\n";
#DBG>				$dbgerror=0;
#DBG>			};

			    push(@$stack,
                     [ $$states[$$stack[-1][0]]{GOTOS}{$lh <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8321	8447	
==>recovery.\n";
#DBG>				$dbgerror=0;
#DBG>			};

			    push(@$stack,
                     [ $$states[$$stack[-1][0]]{GOTOS}{$lh <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	161888	162138	
==>ARGS" => [
                              "n",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 183 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}} <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4311	4424	
==>) or die "Report this as a BUG: Cannot open $fname";
	while(<DRV>) {
                	/^\s*sub\s+_Parse\s*{\s*$/ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4091	4202	
==>) or die "Report this as a BUG: Cannot open $fname";
	while(<DRV>) {
                	/^\s*sub\s+_Parse\s*{\s*$/ <==
2	/Users/nnunley/parrot/config/init/miniparrot.pm	248	468	
==>h miniparrot (ANSI C Parrot)'s needs.  This step
primarily  overwrites a lot of settings in the Configure database to disable
JIT and match ANSI  characteristics.

Centralizing these settings will (hopefully) allow for an <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	395909	396109	
==>,
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	396989	397189	
==>,
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@ <==
2	/Users/nnunley/parrot/config/inter/charset.pm	1426	1538	
==>/ascii.h src/charset/$charset.c \$(NONGEN_HEADERS)


END
    }

    # build list of libraries for link line in Ma <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	2945	3116	
==>nfess "No symbol name!"  unless defined $name;
  confess "No symbol value!" unless defined $sym;
  confess "Bad symbol value!" unless ref $sym and $sym->isa("Jako::Symbol") <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20664	20806	
==>count, $max, $rfail ]),
               @R_ops,
               aop('add', [ $matchcount, 1 ]),
     $check => aop('lt', [ $matchcount, $min, $lo <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1469	1605	
==>nt ? $ident->file : undef,  # TODO: YUCK!!!
    LINE  => $ident ? $ident->line : undef
  }, $class;

  $block->push_content($self);

  re <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	220	320	
==>/While.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako <==
2	/Users/nnunley/parrot/languages/regex/regex.pl	442	590	
==>_opt = ($opts =~ /l/i);
    } elsif (/--main/ || $_ eq '-m') {
        $main = 1;
    } elsif (/--debug/ || $_ eq '-d') {
        $debug = 1;
    } e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030918	1031217	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sizeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031786	1032085	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sizeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "i <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26019	26153	
==>urn,$temp]);
      $self->_restore($temp);
    }
  }
  return $return;
}

sub _op_times {
  my ($self,$node) = @_;
  my $return;
  my $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12288	12419	
==>=> {
			'exp' => 37,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54253	54376	
==>s thru
      )
    ) { $_;
    } else {
      if( chr(65) eq 'A' ) {
        s<([^\x20\x21\x23\x27-\x3F\x41-\x5B\x5D-\x7E])> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985258	985491	
==>",
                              "sc",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4363	4461	
==>elf, $code, $failLabel) = @_;
    my $comment = Regex::Ops::Tree::isplain($code) ? " # match '".chr <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4050	4148	
==>elf, $code, $failLabel) = @_;
    my $comment = Regex::Ops::Tree::isplain($code) ? " # match '".chr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	269534	269825	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isge",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o", <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32067	32194	
==>rect for this.
            $para->[1]{'number'} = $expected_value;
            $self->whine(
              $para->[1]{'start_lin <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32476	32603	
==>rect for this.
            $para->[1]{'number'} = $expected_value;
            $self->whine(
              $para->[1]{'start_lin <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33758	33910	
==>@$paras},2;
            } else {
              DEBUG and print "Can't assimilate following ", $paras->[0][0], "\n";
              push @$para, '';  # Jus <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35571	35723	
==>@$paras},2;
            } else {
              DEBUG and print "Can't assimilate following ", $paras->[0][0], "\n";
              push @$para, '';  # Jus <==
2	/Users/nnunley/parrot/config/auto/format.pm	872	1002	
==>($iv eq "long long") || ($iv eq "long long int")) {
        $ivformat = "%lld";
    } else {
        die "Configure.pl:  Can't find <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1258	1385	
==>->push_content($self);

  return $self;
}


#
# ACCESSORS:
#

sub value { return shift->{VALUE}; }
sub cond  { return shift->{CO <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	1758	2035	
==>ine;
  foreach my $source_line (@_) {
    if( $self->{'source_dead'} ) {
      DEBUG > 4 and print "# Source is dead.\n";
      last;
    }

    unless( defined $source_line ) {
      DEBUG > 4 and print "# Undef-line seen.\n";

      push @$paras, ['~end', {'start_line' => $se <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477092	477191	
==>er, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@1}} / de <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477988	478087	
==>er, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@1}} / de <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	14459	14647	
==>.

=cut

sub gen_super_meths {
    my ($self, $vt, $all) = @_;

    # look through all meths in class and locate the nearest parent
    foreach my $entry (@{ $vt->{methods} } ) {
        my <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	135	239	
==>=head1 NAME

config/gen/parrot_include.pm - Runtime Includes

=head1 DESCRIPTION

Generates the F<runtime <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	3429	3572	
==>ate_lookup {
    my @methods = @_;
    my $pir = "";

    # Group methods by class.
    my %classes = ();
    foreach (@methods) {
        if ($ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722184	722290	
==>c/ops/python.ops\"\n  STRING * const s = {{\@2}};\n  PMC * const io = {{\@1}}; /* TODO Can this be localize <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723213	723319	
==>c/ops/python.ops\"\n  STRING * const s = {{\@2}};\n  PMC * const io = {{\@1}}; /* TODO Can this be localize <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	19370	19475	
==>ing children of this $treelet->[0] node...\n";
    for($i = 2; $i < @$treelet; ++$i) { # iterate over chil <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	22013	22118	
==>ing children of this $treelet->[0] node...\n";
    for($i = 2; $i < @$treelet; ++$i) { # iterate over chil <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2672	2759	
==>"\n{\\pard\\li#rtfindent##rtfitemkeepn#\\sb60\\sa150\\fi-120\n",
 '/item-bullet' => "\n\ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	32217	32333	
==>k.  It
doesn't actually exit, that's your job.

=cut

sub _my_exit {
    $? = $_[0];

    return 1;
}


=back

=end _ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	8350	8563	
==>ything else.
	if ($has_typeinfo && $rule->{'class'} ne 'op' && $rule->{'class'} ne 'store' &&
	    $rule->{'class'} ne 'load' && $rule->{'class'} ne 'calling') {
		die "typeinfo only valid for rules of class op, ca <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714544	714645	
==>* const s = {{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (s && string_length(interprete <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715467	715568	
==>* const s = {{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (s && string_length(interprete <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	1961	2112	
==>regs{$type}->{$count};
    }
  }
}

sub _num_arg {
  my ($node, $expected, $name) = @_;

  my $args = scalar @{$node->{children}} - 1;

  confess "$name <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	848	937	
==>f->new_group('PMCs', '',
			$self->new_item('', 'lib/Parrot/Pmc2c.pm'),
			$self->new_item <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670650	670873	
==>}->vtable->push_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671423	671646	
==>}->vtable->push_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	46819	46979	
==>>[$i-1]} !?\n";
      }
      last; # we only want the next one
    }
  }

  return;
}


#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2009	2185	
==>k) {
    $self->SYNTAX_ERROR("Redeclaration of identifier '%s' in the same block. Previous declaration on line %d of file '%s'.",
      $self->name, $sym->line, $sym->file);
  } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429461	429745	
==>,
                  "CODE" => 493,
                  "ARGS" => [
                              "ic",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 74 \"src/ops/math.ops\"\n  mmd_dispatch_v_ps(inte <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	35783	36019	
==>ck off the 'L' and {} bits

      DEBUG > 3 and print " Ell content to start: ",
       pretty(@ell_content), "\n";


      # Look for the "|" -- only in CHILDREN (not all underlings!)
      # Like L<I like the strictness|strict>
      D <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1716	1822	
==>increment {
    my ($self, $distance, $failLabel) = @_;
    die "invalid distance" if $distance =~ /[^\d\-] <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1469	1575	
==>increment {
    my ($self, $distance, $failLabel) = @_;
    die "invalid distance" if $distance =~ /[^\d\-] <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	2161	2268	
==>TRING\s*\(\w+\s*,//;

	if ($lines_seen{$line}++) {
	    die "Seen line $line before in $infile - can't conti <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367292	367591	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368083	368382	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYP <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	3623	3793	
==>er than intval.
            $conf->data->set(%hugeintval);
            last;
        }
    }
    if (!defined($hugeintval{hugeintvalsize})
        || $hugeintval{hugeintva <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	4085	4427	
==>h my $opsfile ($file, @ARGV) {
        if ($opsfiles{$opsfile}) {
            print STDERR "$0: Ops file '$opsfile' mentioned more than once!\n";
            next;
        }

        $opsfiles{$opsfile} = 1;
        push @opsfiles, $opsfile;

        die "$0: Could not read ops file '$opsfile'!\n" unless -r $opsfile;
    }

    $ops = Parrot <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	408	511	
==>iver );
#Included Parse/Yapp/Driver.pm file----------------------------------------
{
#
# Module Par <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	398	497	
==>iver );
#Included Parse/Yapp/Driver.pm file----------------------------------------
{
#
# Module Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	4558	4699	
==>lf = bless { PREAMBLE => '' }, $class;

    $self->read_ops($_, $nolines) for @{$files};

    # FILE holds a space separated list of opsfile n <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	140	256	
==>it::hints::solaris;

use strict;

use Parrot::Configure::Step qw(cc_gen cc_run);

sub runstep
{
    my ($self, $conf) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11787	11960	
==>p> <value>;
    #

    if ($token->is_ident and $self->get(1)->is_concat_assign) {
      my $block = $self->current_block;

      my $ident = Jako::Construct::Expression::Val <==
2	/Users/nnunley/parrot/lib/Test/More.pm	3980	4081	
==>y, you can use the plan() function.  Useful for when you
have to calculate the number of tests.

  use <==
2	/Users/nnunley/parrot/lib/File/Which.pm	70	246	
==>A       = qw(Exporter);

@File::Which::EXPORT    = qw(which);
@File::Which::EXPORT_OK = qw(where);

$File::Which::VERSION = '0.05';

use File::Spec;

my $Is_VMS    = ($^O eq 'VM <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1014	1103	
==>ode_t*)interpreter->code->prederef.code))
#define CUR_OPCODE ((opcode_t*)cur_opcode + CONT <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1144	1233	
==>ode_t*)interpreter->code->prederef.code))
#define CUR_OPCODE ((opcode_t*)cur_opcode + CONT <==
2	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	61	159	
==>and to rebuild a set of files only if the inputs have
changed, as judged by their checksums.

=head <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45229	45333	
==>erl_variable>';
my $NOCHECKMK		= '\G\s*<nocheck>';
my $AUTOTREEMK		= '\G\s*<autotree>';
my $AUTOSTUBMK		= <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	18820	18970	
==>Returns the patch version number.

=cut

sub patch_version
{
    my $self = shift;

    $self->{VERSION} =~ m/^\d+\.\d+\.(\d+)/;

    return $1;
}

=it <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	53529	53663	
==>Lua\lua51.yp"
{
            BuildBinop( $_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 62
		 'exp', 3,
sub
#line 357 "Lua\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50244	50447	
==>interpreter, PARROT_PROFILE_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51037	51240	
==>interpreter, PARROT_PROFILE_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1665	1766	
==>n",
 '/Data' => "\n",

 'Verbatim'  => "\n{\\pard\\li#rtfindent##rtfkeep#\\plain\\s20\\sa180\\f1\\fs18 <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	257	355	
==>ON

C<Parrot::OpsFile> takes one or more files of op functions and
creates real C code for them.

T <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	201	296	
==>on section

=head1 SYNOPSIS

	use Parrot::Docs::Section::PMCs;

=head1 DESCRIPTION

A documentat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029327	1029716	
==>",
                  "NAME" => "sleep",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1151,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 305 \"src/o <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	1649	1737	
==>self->new_item('', 'lib/Parrot/BuildUtil.pm'),
			$self->new_item('', 'lib/Parrot/Configu <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	31404	31563	
==>38,
			"[" => 47,
			"." => 49,
			'STRING' => 44
		},
		GOTOS => {
			'tableconstructor' => 46,
			'args' => 43,
			'key' => 45
		}
	},
	{#State 108 <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	12210	12481	
==>tack types array.
	stypes = new ResizablePMCArray

    # Instantiate a bytecode escaper.
    escaper = find_global "Data::Escape", "String"

    # Source of generated label numbers set to zero.
    label_num = 0
TRANSPIR

    # Set up some more metavariables.
    $mv->{'A <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117914	118174	
==>/bit.ops\"\n  {{\@1}} >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118653	118913	
==>/bit.ops\"\n  {{\@1}} >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	6761	6892	
==>ge_error {
    confess "struct usage error";
}

sub _subclass_error {
    croak 'struct class cannot be a subclass (@ISA not allowed <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	7394	7490	
==>("$group$LOAD_EXT", @sources)) {
        run(partial_link_cmd("$group$LOAD_EXT", $libs, \@sources <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7605	7701	
==>("$group$LOAD_EXT", @sources)) {
        run(partial_link_cmd("$group$LOAD_EXT", $libs, \@sources <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	950	1145	
==>ned $value and not UNIVERSAL::isa($value, qw(Jako::Construct::Expression::Value));

  confess("Undefined identifier kind attribute.")
    unless defined $kind;
 
  confess("Unrecognized identifier <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	3943	4070	
==>onst_string(interpreter, "$class");
    ${lhs}pmc_register(interpreter, whoami);
EOC
    }
    $cout .= <<"EOC";

    /* do clas <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	1582	1682	
==>_load {
	die "post_load not implemented for current stack to register mapper\n";
}

# Pre and post st <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3235	3352	
==>e-endian UTF-16 BOM seen.  Aborting parsing.\n";
        $self->scream(
          $self->{'line_count'},
          "UT <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	372469	372836	
==>_STDIN(interpreter), s);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "peek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	157	279	
==>eter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Statement.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use stri <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91427	91709	
==>nline",
                  "CODE" => 113,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 43 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2 <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	22348	22568	
==>ULL,   /* class */
        NULL,   /* mro */
        $methlist
    };
EOC

    my $const = ($self->{flags}{dynpmc}) ? " " : " const ";
    if (scalar @mmds) {
        $cout .= <<"EOC";

   $const MMD_init _temp_mmd_init[] <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1120	1230	
==>%s'.\n", __PACKAGE__, $ident->value;

  return $self;
}


#
# ACCESSORS:
#

sub type      { return shift->{TYPE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022614	1022888	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodelocalt <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023463	1023737	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodelocalt <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	3922	4050	
==>ive'){
	    $enternative = pack_op($cur_op->code);
	    last FINDENTERN;
	}
    }
    die "Could not locate enternative op!\n" un <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	6629	6796	
==>refixed by a ".".
		my ($type, $name) = ($1, $2);
		# The following are assumed to work Everywhere.
		my $absolute = ($type =~ /^[Aa]$/  ) ? 1 : 0;
		my $uninit   = ($t <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	18622	18790	
==>') . '
		my $repcount = 0;

';
	$code .= 
'		my @itempos = ({});
'			if $parser->{_check}{itempos};

	my $item;
	my $i;

	for ($i = 0; $i < @{$self->{"items"}}; $i++)
	{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	49042	49187	
==>have the POD FORMATTING ERRORS section note the localtime, and the
version of Pod::Simple.

option to delete all E<shy>s?
option to scream if unde <==
2	/Users/nnunley/parrot/languages/converter.pl	2100	2202	
==>tem[2]) }

mod		: '*' | '+' | '?'

_EOF_

my $parser = Parse::RecDescent->new($grammargrammar);

my $fi <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	13002	13098	
==><td class="leftsep"><tmpl_var name=timestamp></td>
			<td class="leftsep"><tmpl_var name=harness_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841662	841935	
==>}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842426	842699	
==>}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord", <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	300	427	
==>ytecode to PIR.

use strict;
use Getopt::Std;

my ($DIS, @dis, @source, $file, %opt, $DEFVAR, $cur_func, $lambda_count,
   %main <==
2	/Users/nnunley/parrot/examples/benchmarks/overload.pl	11	117	
==>package Foo;
use strict;

use overload '*' => \&my_mul, 'fallback' => 1;

sub new {
    my ($class, $val) = <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	17325	17432	
==>es{$_[1]}) ? 0 : 1;
}

# XXX quick hack - to get MMD variants
sub get_super_mmds {
    my ($self, $meth, $ri <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	13267	13417	
==>nless($precompiled){
    print JITCPU "\nstatic $jit_fn_retn\n" .$core_opfunc[$i] . $func_end .
        $jit_fn_params . "\n{\n" .
        $body . "}\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548073	548177	
==>ps\"\n  /* Coercing a negative to a UINT can get pretty ugly\n   * in this situation. */\n  INTVAL i = {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548979	549083	
==>ps\"\n  /* Coercing a negative to a UINT can get pretty ugly\n   * in this situation. */\n  INTVAL i = {{ <==
2	/Users/nnunley/parrot/config/gen/config_pm.pm	411	572	
==>on @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step qw(genfile);
use Data::Dumper;
use Cwd qw(cwd);

$description = "Recording co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368895	369225	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369779	370109	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	5887	6039	
==>auto';

    return $body;
}

# Called from rewrite_body() to perform the actual substitutions.
sub _substitute
{
    my $self = shift;
    local $_ = shi <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Examples.pm	515	652	
==>Docs::Item;
use Parrot::Docs::Group;

=item C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shift;
    
    return $self- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6837	6979	
==>on;

      $self->SYNTAX_ERROR("Cannot declare constant without assigning a value.") # TODO: This can happen later.
        if ($access eq 'con <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3270	3374	
==>NST(%ld)->u.string",
    'kc' => "CONST(%ld)->u.key",
    'kic' => "cur_opcode[%ld]"
);

=item C<access_a <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2179	2280	
==>NST(%ld)->u.string",
  'kc'  => "CONST(%ld)->u.key",
  'kic' => "cur_opcode[%ld]"
);

=item C<access_a <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	6049	6193	
==>atch(b)
#  match(c)
#
# and something trickier like /ab|c[dxy]e/ compiles to
#
#          check(2)
#          match(a) or goto try_S
#          m <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	22589	22771	
==>,
        'op'     => $opcode{$op},
        'arg1'   => $expr1->[0],
        'arg2'   => $expr2->[0],
        'result' => $flag,
    );
    my $result = new_tmp( $parser, 'pmc', <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	770	912	
==>ation.

=head2 lib

The name of the library to be loaded. Should be as qualified as
necessary for your platform--generally the full filename is <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1054	1164	
==>::run_command( 
            "$PConfig{perl} languages/scheme/schemec languages/$lang_f",
            CD => '..' <==
2	/Users/nnunley/parrot/Configure.pl	6129	6231	
==>--linkflags=(flags)  Use the given linker flags
   --ld=(linker)        Use the given loader for shared <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	269	398	
==>f = shift;
    my ( $count ) = @_;

    return Parrot::Test::per_test( '.pir_out', $count );
}

sub get_test_prog {
    my $self = <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	8389	8481	
==><Parrot::OpTrans>

=item F<tools/build/ops2c.pl>

=item F<tools/build/ops2pm.pl>

=item F<too <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	19173	19265	
==><Parrot::OpTrans>

=item F<tools/build/ops2c.pl>

=item F<tools/build/ops2pm.pl>

=item F<too <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5089	5205	
==>y $_$LOAD_EXT failed ($?)\n";

        # Execute permissions on libraries is especially important on
        # some p <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5300	5416	
==>y $_$LOAD_EXT failed ($?)\n";

        # Execute permissions on libraries is especially important on
        # some p <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	7825	7949	
==>hings with and without maximum lengths
        my $havemax = 0;
        my @chunks = ([]);

        foreach my $kid (@{ $t->{ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	47793	47885	
==>roblem, when it encounters a here document whilst
extracting from a modifiable string, C<extr <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27910	28120	
==>{
				feedme();
				while($syms[CURR] ne ")") {
					feedme();
				}
				push(@params, "()$a");
			} else {
				push(@params, $a);  # Always here?
			}
		}
	}
	my $argcnt=@params;
	# The outer compiler will prov <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55919	56202	
==>terpinfo",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 72,
                  "ARGS" = <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	4811	5176	
==>\$Init,
		   'uninit|u!'    => \$Uninit,
		   'const|C!'     => \$Const,
		   'global|g!'    => \$Global,
		   'local|l!'     => \$Local,
		   'undef|U!'     => \$Undef,
		   'def|D!'       => \$Def,
		   'file|f!'      => \$File,
		   'objectname|o' => \$ObjectName,
		   't'            => \$Type,
		   'bsd|B'        => \$BSD,
		   'long|L'       => \$Long,
		   ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	933544	933838	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934318	934612	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	2595	2722	
==>arith');   }
sub is_infix_bit     { return shift->is('infix-bit');     }
sub is_infix_concat  { return shift->is('infix-concat') <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2391	2494	
==>_Para        { $_[0]->emit_par( 0) }
sub end_item_bullet { $_[0]->emit_par( 0) }
sub end_item_number { $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1959	2062	
==>_Para        { $_[0]->emit_par( 0) }
sub end_item_bullet { $_[0]->emit_par( 0) }
sub end_item_number { $ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16403	16545	
==>hods}} ) {
        my $meth = $method->{meth};
        next if $meth eq 'class_init';
        if ($self->implements($meth)) {
            my $r <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	48605	48874	
==>, 0,
sub
#line 152 "Lua\lua51.yp"
{
            PushScope( $_[0] );
            InsertList( $_[0], $_[2] );
        }
	],
	[#Rule 25
		 'stat', 8,
sub
#line 157 "Lua\lua51.yp"
{
            BuildForList( $_[0], $_[2], $_[4], $_[7] );
        }
	],
	[#Rul <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627275	627370	
==>we're creating a continuation, the continuation PMC\n   * needs to be in the destination registe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628419	628514	
==>we're creating a continuation, the continuation PMC\n   * needs to be in the destination registe <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	28642	28777	
==>IVERSAL::isa($op, "Regex::Ops::List")) {
        return ($lastback, $op);
    } else {
        $DB::single = 1;
        die "malformed o <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	2079	2207	
==>, the defines must not leak
to the outside world.

=head2 Public or Private

If the API is really meant to be public, prefix it w <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6644	6767	
==>mp {
    my ($pmc) = @_;

    if (needs_build("$pmc.dump", "$pmc.pmc")) {
        run("$PMC2C --dump $pmc.pmc")
          or <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6855	6978	
==>mp {
    my ($pmc) = @_;

    if (needs_build("$pmc.dump", "$pmc.pmc")) {
        run("$PMC2C --dump $pmc.pmc")
          or <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15687	15795	
==>c_codely {
  # Doesn't change "-" to hard-hyphen, nor apply computerese style-smarts.
  # We don't want to ch <==
2	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	1792	1901	
==>File_write_fingerprint (void *cursor)
{
    memset (cursor, 0, $len);
    return $len;
}
EOF

} # endif DEVELO <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	3440	3663	
==>is method will return true.

=cut

sub has_suffix
{
    my $self = shift;
    my $suffix = $self->suffix;
    
    if ( @_ > 0 )
    {
        return 0 unless defined $_[0];
        return $_[0] eq $suffix;
    }
    
    re <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	16797	16963	
==>$para, 2; # so it ends up just being ['=item', { attrhash } ]
    $para->[1]{'~orig_content'} = $content;
    return $para->[1]{'~type'} = 'bullet';

  } elsif($conten <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2483	2593	
==>es linked to is returned.

=cut

sub write_contents_html
{
	my $self = shift;
    my $source = shift || die "No <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358966	359297	
==>FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 420,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 250 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9465	9586	
==>$$errstatus == 3	#The next token is not valid: discard it
		and	do {
				$$token eq ''	# End of input: no hope
			and	d <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9037	9155	
==>$$errstatus == 3	#The next token is not valid: discard it
		and	do {
				$$token eq ''	# End of input: no hope
			and	d <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	22	149	
==>od::Simple::SimpleTree;
use strict;
use Carp ();
use Pod::Simple ();
use vars qw( $ATTR_PAD @ISA $VERSION $SORT_ATTRS);
$VERSION <==
2	/Users/nnunley/parrot/config/auto/headers.pm	2738	2921	
==>/g;
        $flag =~ s/\///g;
        print "$flag: $pass\n" if defined $conf->options->get('verbose');
        $conf->data->set($flag => $pass ? 'define' : undef);
    }

    return $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	336940	337361	
==>",
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 394,
                  "ARGS" => [
                              "i",
                              "p"
                            ],
                  "BODY" => "#l <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	8841	8944	
==>ingify.
    $self->_unoverload(\$name);

    $self->diag(<<ERR) if defined $name and $name =~ /^[\d\s]+$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819086	819506	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 928,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#l <==
2	/Users/nnunley/parrot/config/init/hints/msys.pm	434	572	
==>32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid -lws2_32 -lmpr -lwinmm -lversion -lodbc32 ',
        ncilib_link_extra => 'src/libnci_tes <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	6543	6654	
==>32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid -lws2_32 -lmpr -lwinmm -lversion -lodbc32 ',
                l <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6988	7187	
==>$target);
    $pattern = _parrot_stringify($pattern);
    return qq(
        .sub _PGE_Test
            .local pmc glob_compile
            load_bytecode "PGE.pbc"
            load_bytecode "PGE/Glob. <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	30785	30880	
==>cters)
and extracts the initial substring of the text that
is appropriately delimited. If the de <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	511	625	
==>_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBUG and print "++ $_[1]\n";
  
  print $fh   '  ' x <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	510	624	
==>_hash_r)
  my $fh = $_[0]{'output_fh'};
  my($key, $value);
  DEBUG and print "++ $_[1]\n";
  
  print $fh   '  ' x <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	6379	6502	
==>item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::CSw <==
2	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	1060	1165	
==>t_name > $out_name.pir`;
	if ($output) {
		print "translate failed:\n$output";
		return 0;
	}
	$output = ` <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	60999	61099	
==>[];
    $parser->YYData->{symbtab}     = new SymbTabVar($parser);
    $parser->YYData->{symbtab_cst <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	29541	29672	
==>n a void context the behaviour of the extraction subroutines is
exactly the same as in a scalar context, except (of course) that the <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862033	862462	
==>E" => "length",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 978,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862801	863170	
==>E" => "length",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 979,
                  "ARGS" => [
                              "i",
                              "sc" <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	18231	18375	
==>pen_file( ">", $file );
        print $fh $Dumper->Dump;
        close $fh;
    }
}

=head2 read_dump( [$dir1, $dir2], $file );

Read in the clas <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	14621	14720	
==>th_binmode;
    $self->output_fh($out_fh);
  }

  return $self->parse_file($source);
}

#----------- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576597	576903	
==>{{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577609	577915	
==>{{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630499	630616	
==>_type_p(interpreter, class);\n    if (type <= 0)\n        real_exception(interpreter, NULL, NO_CLASS,\n            \"C <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631489	631606	
==>_type_p(interpreter, class);\n    if (type <= 0)\n        real_exception(interpreter, NULL, NO_CLASS,\n            \"C <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	1898	1999	
==>gex::Ops::Tree::call::ISA         = qw(Regex::Ops::Tree);
@Regex::Ops::Tree::code::ISA         = qw(Re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	30616	30723	
==>t this = CUR_OPCODE;\n    parrot_context_t *ctx;\n    PMC *ccont;\n    PMC *signature = {{\@1}};\n    INTVAL <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10887	11000	
==>tance from
the cache, and undefines it.

Raises an exception if the delete fails.

=cut

sub delete
{
    # Use $_ <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4721	4834	
==>tance from the cache, and undefines it.

Raises an exception if the delete fails.

=cut

sub delete
{
    # Use $_ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	135	233	
==>head1 NAME

Parrot::Pmc2c::Library - PMC to C Code Generation

=head1 SYNOPSIS

    use Parrot::Pmc <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	322	448	
==>e;
$Lame = ' class="pad"' unless defined $Lame;

$Linearization_Limit = 90 unless defined $Linearization_Limit;
 # headings/ite <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327476	327856	
==>",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 384,
                  "ARGS" => [
                              "p",
                              "nc"
                            ],
                  "BODY" => "#line <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	25360	25496	
==>like \"$new_letter\""
      );
      return;
    }
    
    if(grep $new_letter eq $_, @Known_formatting_codes) {
      DEBUG > 2 and pri <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2433	2530	
==>st the Perl 6 pattern, passing the test
if the output produced by the test code matches the C<$exp <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3867	3964	
==>st the Perl 6 pattern, passing the test
if the output produced by the test code matches the C<$exp <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5008	5108	
==>preted relative to the source
directory.

=cut

sub contents_relative_to_source
{
    my $self = shif <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3000	3097	
==>preted relative to the source
directory.

=cut

sub contents_relative_to_source
{
	my $self = shif <==
2	/Users/nnunley/parrot/lib/Test/More.pm	36028	36137	
==>ere is to have a testing utility that's simple to learn,
quick to use and difficult to trip yourself up with w <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	2759	2860	
==>tten, so it's not
   like it's an onerous requirement.

*/

#include "parrot/parrot.h"
#include "parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5351	5513	
==>0) {
	union {
	    const void * __c_ptr;
	    void * __ptr;
	} __ptr_u;
        return (opcode_t *)const_cast(${bs}ops_addr);
    }
END_C
}

=item C<run_core_finis <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	2959	3056	
==>->{data})
}

sub b64digest {
	md5_base64(shift->{data})
}

sub md5(@) {
	my $message = padding(joi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43951	44280	
==>mark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 56,
                  "ARGS" => [
                              "ic"
                            ],
                  "B <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	274	393	
==>e  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statement::Decrement;

use Carp;

use base qw(Jako::C <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33923	34046	
==>$method->{type} ne 'void') {
        my $type = $method->{type};
        $ret_def = "$type ret_val;";
        $func_ret = $s <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38885	39008	
==>$method->{type} ne 'void') {
        my $type = $method->{type};
        $ret_def = "$type ret_val;";
        $func_ret = $s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	44829	44981	
==>t "Formatting <$formatting>    on <", $p->[$i-1], ">\n";


    my @new_line;
    while( $formatting =~ m{\G(( +)|(\^+)|(\/+)|(\%+))}g ) {
      #print "F <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819633	819730	
==>ack, {{\@2}});\n\n  if (!entry) {\n    internal_exception(99, \"Stack Depth wrong\");\n  }\n  {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820593	820690	
==>ack, {{\@2}});\n\n  if (!entry) {\n    internal_exception(99, \"Stack Depth wrong\");\n  }\n  {{\@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	28263	28365	
==>sive algorithm implemented iteratively!  Whee!

  while($treelet = shift @stack) {
    for($i = 2; $i < <==
2	/Users/nnunley/parrot/config/inter/progs.pm	92	199	
==>006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/inter/progs.pm - C Compiler and Linker

=head1 DESCR <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28536	28690	
==>st};
        $hout .= "\n/* Const */\n";
        $hout .= $self->hdecls();
    }
    $hout .= <<"EOH";

#endif

EOH
    $hout;
}

=item C<implements($metho <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24959	25097	
==>, $kind, $target, $cond, $left, $op, $right);
      next;
    }

    #
    # Conditional Blocks:
    #
    #   if     (<value> <op> <value> <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	37033	37215	
==>{'accept_directives'}} )
        ;
        $self->whine(
          $para->[1]{'start_line'},
          "Unknown directive: $para->[0]"
        );

        # And maybe treat it as text <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	232	377	
==>EF'],
  ['',             'print', '"()"'],
  ['',             'branch', 'write_RET'],
  ['write_N_UNDEF','ne', 'I0', '.Scratchpad', 'write_N_LAMBD <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4798	4906	
==>)) {
    my $pmc_type = $dest_ident->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();

    $compiler- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2861	2969	
==>)) {
    my $pmc_type = $dest_ident->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();

    $compiler- <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12719	12857	
==>e module, then we take its path relative to the 
    # distribution, then we append the HTML suffix and get the
    # docs file. Once we ha <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	24726	24927	
==>{libs}";
            $exit_code = run_command($cmd,
                                     'STDOUT' => $build_f,
                                     'STDERR' => $build_f);
            $builder->diag("'$c <==
2	/Users/nnunley/parrot/config/gen/config_h.pm	552	668	
==>se);

use Parrot::Configure::Step ':gen';

$description = 'Generating C headers';

@args = ('define');

sub runstep
{ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	11989	12098	
==>: "$class->can(...)";
    
    my $ok = $Test->ok( !@nok, $name );

    $Test->diag(map "    $class->can('$_') <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	7831	8020	
==>ware. It is subject to the same license
as the Parrot interpreter.

=head1 LICENSE

This program is free software. It is subject to the same license
as the Parrot interpreter.

=end ADDITION <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980735	980969	
==>"ic",
                              "sc",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_fin <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	5296	5408	
==>n, :$depends;
        }
    }
}

sub skip_rest (Str $reason?, :$depends) returns Bool is export {
    Test::skip( <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	19182	19281	
==>my (@meths, @mmds, @init_mmds, %init_mmds);
    foreach my $method (@{ $self->{vtable}{methods}} ) { <==
2	/Users/nnunley/parrot/config/init/hints/netbsd.pm	189	297	
==>f ($ccflags !~ /-pthread/) {
        $ccflags .= ' -pthread';
    }
    $conf->data->set(ccflags => $ccflags) <==
2	/Users/nnunley/parrot/config/init/hints/openbsd.pm	281	389	
==>f ($ccflags !~ /-pthread/) {
        $ccflags .= ' -pthread';
    }
    $conf->data->set(ccflags => $ccflags) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	640	729	
==>k');
  confess "Ident is not!" unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	528	617	
==>k');
  confess "Ident is not!" unless UNIVERSAL::isa($ident, 'Jako::Construct::Expression: <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2765	2871	
==>est(interpreter);\ngoto switch_label";
}

my %arg_maps = (
    'i'  => "IREG(%ld)",
    'n'  => "NREG(%ld)" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431195	431491	
==>],
                  "TYPE" => "inline",
                  "CODE" => 495,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 79 \"src/ops/math.ops\ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	31394	31489	
==>ow your tests ran without a plan!');
    _whoa($self->{Curr_Test} != @{ $self->{Test_Results} }, <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	187	333	
==>::Test::M4';
use Data::Dumper;

our $VERSION = 0.01;

sub get_out_fn {
    my $self = shift;
    my ( $count ) = @_;

    return Parrot::Test::per_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476994	477089	
==>8 \"src/ops/math.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interpr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477890	477985	
==>8 \"src/ops/math.ops\"\n  INTVAL den = {{\@2}};\n  if ({{\@2}} == 0)\n    real_exception(interpr <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	72474	72640	
==>artcode}

{
local \$SIG{__WARN__} = sub {0};
# PRETEND TO BE IN Parse::RecDescent NAMESPACE
*$self->{namespace}::AUTOLOAD	= sub
{
	no strict 'refs';
	\$AUTOLOAD =~ s/^ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	3920	4080	
==>name;";
        die $@ if $@;

        my $step = $step_name->new;

        # XXX This works. but is probably not a good design.
        # Using $step->descripti <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	1213	1323	
==>n $filename\n" if $opt{verbose};
    open my $fh, $direction, $filename or die "$action $filename: $!\n";
    r <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	22317	22427	
==>n $filename\n" if $opt{verbose};
    open my $fh, $direction, $filename or die "$action $filename: $!\n";
    r <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	13501	13608	
==>);
    $max = "INF" if ! defined $max;
    return "$str [$min..$max]";
}

# Defaults
sub Regex::Ops::Tree::r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565209	565570	
==>,
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 646,
                  "ARGS" => [
                              "i", <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21458	21595	
==>d print "Ogling '=end $content' directive\n";
      
      unless(length($content)) {
        $self->whine(
          $para->[1]{'start_li <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760701	760990	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setp_ind",
                  "FLAGS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761553	761842	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setp_ind",
                  "FLAGS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835707	835804	
==>ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, string_copy(int <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836460	836557	
==>ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, string_copy(int <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20376	20468	
==>t',[$temp_0,$temp_1,"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst('', <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	246	338	
==>DESCRIPTION

C<Parrot::Vtable> provides a collection of functions for manipulating
PMC vtable <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28427	28545	
==>$e_step, $block ) = @_;
    my @opcodes = ();
    unless ( defined $e_step ) {
        $e_step = BuildLiteral( $pars <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	5239	5350	
==>ND_POD") =~ s/^    //osmg;
    =head1 NAME

    Parrot::OpLib::$package - Parrot Op Info

    =head1 DESCRIPTION <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	2488	2586	
==>le ops for a Parrot safe mode, or for inclusion in miniparrot.

=head2 Op Body (Macro Substitutions <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	639163	639265	
==>->ctx)->constants[arg_op[1]]->u.key;\n  ASSERT_SIG_PMC(sig);\n  if (!SIG_ELEMS(sig)) {\n        real_ex <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	2230	2422	
==>ffset is determined from the op function's
signature.

=head2 Op Classification and Flags

The op classification and flags are optional hints which provide
information about the op.

The classi <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2798	2924	
==>reg_base;
#endif

    static void *const l_ops_addr[] = {
END_C
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::OpTrans>

= <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6645	6760	
==>${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}

# Emit move.
${INS} = concat ${STOREREG}
${INS} = concat " = " <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	6758	6979	
==>s {
    my $self = shift;
    my($max) = @_;

    if( @_ ) {
        die "Number of tests must be a postive integer.  You gave it '$max'.\n"
          unless $max =~ /^\+?\d+$/ and $max > 0;

        $self->{Expected_Tests <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	42551	42661	
==>ends a newline to $i: $p->[$i]\n";
    $p->[$i] .= "\n";
     # Unlike with simple Verbatim blocks, we don't en <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	5215	5409	
==>=> 'languages/pugs/Makefile',
        commentType                   => '#',
        replace_slashes               => 1,
        conditioned_lines             => 1
    );
    genfile(
        'lan <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16424	16570	
==>R I = 1 TO 4
   PRINT A$(I)
NEXT I
END

' Do/While/Loop stuff.  All 5
a=0
do while a<5
	a=a+1
loop
print a
a=0
do until a>4
	a=a+1
loop
print a
a=0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16962	17337	
==>S" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 23,
                  "ARGS" => [
                              "n",
                              "ic"
                            ],
                  "BODY <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	1333	1444	
==>conf) = @_;

    my $file = "src/core_pmcs.c";
    my @pmcs = split(/ /, $conf->data->get('pmc_names'));

    op <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7383	7555	
==>tpos=$len;

                unpack('A1',$lhs) eq '@'    #In line rule
            and do {
                    $lhs =~ /^\@[0-9]+\-([0-9]+)$/
                or  die "I <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7042	7209	
==>tpos=$len;

                unpack('A1',$lhs) eq '@'    #In line rule
            and do {
                    $lhs =~ /^\@[0-9]+\-([0-9]+)$/
                or  die "I <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	3837	4005	
==>cally from '$infile'
 * by $0.
 *
 * Any changes made here will be lost!
 *
 */

#define CONCAT(a,b) a##b
#define _S(name) (__PARROT_STATIC_STR(__LINE__))
#define __PARR <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	1548	1662	
==>cally from '$infile'
 * by $0.
 *
 * Any changes made here will be lost!
 *
 */

#define CONCAT(a,b) a##b
#define _ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	2395	2611	
==>)]);
            }
        }

        # opt(R|) -> opt(R)?
        # opt(R|S|) -> opt(R|S)?
        # opt(R|S||) -> opt(R|S)?
        if ($children[-1]->{name} eq 'nop') {
            pop(@children) while $children[-1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648155	648407	
==>" => [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 229 \"src/ops/pmc.ops\"\n    {{\@1}} = pmc_type(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11323	11456	
==>mably that won't work right
        #  under non-ASCII charsets.  Something should be done about that.
    }
    
    # Pod::Simple::H <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738198	738453	
==>ng_to_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738962	739217	
==>ng_to_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23795	23934	
==>rimary' => 28
		}
	},
	{#State 75
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206476	206568	
==>\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207418	207510	
==>\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864554	864950	
==>[
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 981,
                  "ARGS" => [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 143 \"src/ops/string.ops\"\n  UINTVAL n;\n  STRIN <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	10828	10933	
==>uct::Expression::Value::Identifier->new($block, $token);
      my $op    = $self->forth->text;

      $sel <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	2525	2640	
==>ed $return_type;

    my $arg_type = $value->type;
    my $ret_val = $value->compile($compiler);

    if ($arg_type- <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	4438	4571	
==>EXT] ne "STMT" and $type[NEXT] ne "COMM");
		#print "Single if!\n" if $singleif;
		$ifline++;
		if ($type[NEXT] eq "INT") {  # if x th <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14585	14717	
==>25
		DEFAULT => -78
	},
	{#State 26
		DEFAULT => -82
	},
	{#State 27
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' <==
2	/Users/nnunley/parrot/config/auto/gc.pm	1823	1922	
==>_DIR)/res_lea\$(O):	\$(GENERAL_H_FILES) \$(SRC_DIR)/res_lea.c
EOF
            TEMP_gc_o => "\$(SRC_D <==
2	/Users/nnunley/parrot/config/auto/gc.pm	2114	2213	
==>_DIR)/res_lea\$(O):	\$(GENERAL_H_FILES) \$(SRC_DIR)/res_lea.c
EOF
            TEMP_gc_o => "\$(SRC_D <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4842	4947	
==>assmatch {
    my ($self, $incexc, $failLabel) = @_;

    my $passLabel = $self->{state}->genlabel("pass_c <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4506	4611	
==>assmatch {
    my ($self, $incexc, $failLabel) = @_;

    my $passLabel = $self->{state}->genlabel("pass_c <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	10866	11024	
==>ranscoder'}->(@x);
    };
    $@ && die( $enc_error =
      "Really unexpected error setting up encoding $e: $@\nAborting"
    );

  } else {
    my @supported <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4721	4830	
==>e' up to '}#_Parse' inclusive.
#So, DO NOT remove comment at end of sub !!!
sub _Parse {
    my($self)=shif <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4486	4592	
==>e' up to '}#_Parse' inclusive.
#So, DO NOT remove comment at end of sub !!!
sub _Parse {
    my($self)=shif <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	4457	4568	
==>t_info->native_ptr/g;
            $asm =~ s/CUR_OPCODE/jit_info->cur_op/g;
            $asm =~ s/cur_opcode/jit_ <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	9201	9303	
==>.c' ) {
    print JITCPU "#define ECONST(i) (int *)(jit_info->cur_op[i] * sizeof(struct PackFile_Consta <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031477	1031588	
==>t_type || {{\@2}} >= enum_last_type)\n        {{\@1}} = -1;\n    else\n        {{\@1}} = data_types[{{\@2}} - en <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032346	1032457	
==>t_type || {{\@2}} >= enum_last_type)\n        {{\@1}} = -1;\n    else\n        {{\@1}} = data_types[{{\@2}} - en <==
2	/Users/nnunley/parrot/config/auto/memalign.pm	171	346	
==>mory Alignment

=head1 DESCRIPTION

Determines if the C library supports C<memalign()>.

=cut

package auto::memalign;

use strict;
use vars qw($description @args);

use base q <==
2	/Users/nnunley/parrot/lib/Test/More.pm	28714	28853	
==>_, vals => [$e1, $e2] };
        $ok = _deep_check($e1,$e2);
        pop @Data_Stack if $ok;

        last unless $ok;
    }

    return $ok <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	509	642	
==>te_c_include;
    exit;
};
$do_init and do {
    unlink $outfile;
    exit;
};

$file = shift @ARGV;
$file =~ s/\.c$//;
my $infile = $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	316237	316367	
==>255 ) {\n    {{\@1}} = (INTVAL)((unsigned char)({{\@1}}));\n  }\n  else {\n    internal_exception(1, \"Overflow exception for conv_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6886	7048	
==>G>				};
				};


                push(@$stack,[ $act, $$value ]);

					$$token ne ''	#Don't eat the eof
				and	$$token=$$value=undef;
                ne <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6567	6721	
==>G>				};
				};


                push(@$stack,[ $act, $$value ]);

					$$token ne ''	#Don't eat the eof
				and	$$token=$$value=undef;
                ne <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	31929	32034	
==>* const cc = CONTEXT(interpreter->ctx)->current_cont;\n    PMC *sig = NULL;\n    if (cc && PMC_cont(cc)->t <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	18435	18780	
==>name ne 'default') {
         $tree = $tree->{args}->[0];
     }
     my $op = op('rule' => [ $name, $tree, 1 + $::paren ]);
     $::paren = 0; # FIXME!
     return $op;
   }
	],
	[#Rule 4
		 'rule', 1,
sub
#line 89 "lib/Regex/Grammar.y"
{
     my $op = op('rule' => [ 'default', $_[1], 1 + $::paren ]);
     $::paren = 0; # FIXME!
     return $o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947707	947957	
==>YPE" => "function",
                  "CODE" => 1066,
                  "ARGS" => [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 526 \"src/ops/string.ops\"\n  I <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	965	1156	
==>onfiguration file.
That file may be placed as parrotbench.conf in the same directory
as parrotbench.pl or otherwise explicitly specified with the
-conf option. You may set any command line opt <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	213	446	
==>formancs of C source code to PDD 7

=head1 SYNOPSIS

    % perl tools/dev/check_source_standards.pl file1 [file2 ...]

    % perl tools/dev/check_source_standards.pl all_source

=head1 DESCRIPTION

This script checks that the C source <==
2	/Users/nnunley/parrot/config/init/defaults.pm	4378	4504	
==>w about static/dynamic linking?
        has_static_linking => 1,
        has_dynamic_linking => 0,

        # default behaviour <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784320	784421	
==>ps/set.ops\"\n    {{\@1}}->vtable->set_pmc_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785226	785327	
==>ps/set.ops\"\n    {{\@1}}->vtable->set_pmc_keyed_int(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	32361	32499	
==>d $treelet->[$i][2] eq '')
      ) {
        $self->whine( $start_line, "An empty L<>" );
        $treelet->[$i] = 'L<>';  # just make it a <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	50972	51112	
==>nt " It's just stuff.\n";
        push @{ $lineage[-1] }, $4;
      }

    } elsif(defined $5) {
      DEBUG > 3 and print "Found stuff \"$5\ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	1839	1937	
==>nerator->gen_h($h_name);
    print $hout if $opt->{debug};
    print "Writing $h_name\n" if $opt->{ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7507	7665	
==>^\@[0-9]+\-([0-9]+)$/
                or  die "In line rule name '$lhs' ill formed: ".
                        "report it as a BUG.\n";
                $$do <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7162	7317	
==>^\@[0-9]+\-([0-9]+)$/
                or  die "In line rule name '$lhs' ill formed: ".
                        "report it as a BUG.\n";
                $$do <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	8900	9051	
==>p || $has_push)) {
        die "pop and push not allowed for class calling in rule $rule->{'name'}\n";
    }
}


# Generate the translator initializatio <==
2	/Users/nnunley/parrot/lib/Test/More.pm	12566	12662	
==>'Some::Module') );

to safeguard against your test script blowing up.

It works on references, to <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	46062	46269	
==>---------------------------------------------------------------------------

sub _accessorize {  # A simple-minded method-maker
  no strict 'refs';
  foreach my $attrname (@_) {
    next if $attrname =~ m/::/ <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	12867	13083	
==>(\w+)/;
            $extern = vtable_num($1);
            #print "$jit_func $extern\n";
        }

        elsif ($op->jump =~ /JUMP_RESTART/ ) {
            $jit_func = $restart_op;
        }
        elsif ($op->jump <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	5852	6110	
==>t_fh'}} 
                $self->{'Tagmap'}{$tagname} . 
                $self->html_link(
                    $self->{DOCS_FILE}->parent->relative_path($file),
                    esc($text));
        }
        else
        {
            print {$self->{'outpu <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	10475	10723	
==>.h
floorl      math.h
fma         math.h
fmaf        math.h
fmal        math.h
fmax        math.h
fmaxf       math.h
fmaxl       math.h
fmin        math.h
fminf       math.h
fminl       math.h
fmod        math.h
fmodf       math.h
fmodl       math.h <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10595	10827	
==>ME" => "bsr",
                  "FLAGS" => ":base_core,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11383	11615	
==>ME" => "bsr",
                  "FLAGS" => ":base_core,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "COD <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	37239	37416	
==>g.
If the pattern string is omitted (or C<undef>) then a pattern
that matches any standard HTML/XML tag is used.

=item 3.

A string specifying a pattern to be matched at the clo <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2293	2544	
==>nc};
    
      {
        no strict 'refs';

        $pass = $self->{builder}->$builder_func( Parrot::Test::slurp_file($out_f), $output, $desc );
      }
      $self->{builder}->diag("'$cmd' failed with exit code $exit_code")
      if $exit_code and no <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761503	761742	
==>ss\");\n    REG_PMC({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762356	762595	
==>ss\");\n    REG_PMC({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	4572	4762	
==>> "P",
       l => "I",
       c => "I",
       s => "I",
       f => "N",
       d => "N",
       b => "S",
       t => "S",
       P => "P",
       O => "P",
       S => "S",
       I => "I <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368929	369253	
==>> 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369813	370137	
==>> 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826379	826471	
==>Y" => "#line 146 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(inte <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827449	827541	
==>Y" => "#line 146 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(inte <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	37589	37765	
==>ht be 0-length
          $ell_content[$j] =  $1;  # might be 0-length

          DEBUG > 3 and
           print "     FOUND a '/' in it.",
             "  Splitting to page [... <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3722	3824	
==>st the symbols.

=head1 TODO

=over 4

=item *

Write a pollution detector also for the C preprocessor: <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16173	16309	
==>q 'ARRAY' ) {
        $result = $idf->[0];
        push @opcodes, @{ $idf->[1] };
    }
    else {
        my $defn = $parser->YYDat <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	637	750	
==>:Block::Sub;
use Jako::Construct::Block::Loop::Continue;
use Jako::Construct::Block::Loop::Until;
use Jako::Constr <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	2991	3205	
==>ST_STRING_$line $n\n";
	print ALL qq!$len\t$hashval\t"$str"\n!;
    }
    close(IN);
}

sub create_c_include {
    open OUT, '>', $string_private_h or die "Can't write '$string_private_h': $!";
    print OUT <<"HEAD <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1315	1460	
==>ompiler->emit("  $pmc_reg = $ident");
    $compiler->emit("  global \"$ident_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1309	1454	
==>ompiler->emit("  $pmc_reg = $ident");
    $compiler->emit("  global \"$ident_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	906220	906390	
==>"ic",
                              "i"
                            ],
                  "BODY" => "#line 262 \"src/ops/string.ops\"\n  {{\@1}} = {{\@2}}->vtable->substr_s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436503	436596	
==>h.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437518	437611	
==>h.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	269326	269716	
==>/ops/cmp.ops\"\n  {{\@1}} = (mmd_dispatch_i_pp(interpreter, {{\@2}}, {{\@3}}, MMD_CMP) > 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	270216	270513	
==>/ops/cmp.ops\"\n  {{\@1}} = (mmd_dispatch_i_pp(interpreter, {{\@2}}, {{\@3}}, MMD_CMP) >= 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	618841	619005	
==>lru;\n    PMC *left, *right;\n    INTVAL lr_types, lt, rt;\n\n    left = {{\@2}};\n    mic = (Parrot_MIC *) cur_opcode[1];\n    lt = left->vtable->base_type;\n    ri <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18070	18193	
==>select
select case t*1+0
case 1 to 10, t*2, >100
	print "Wrong 1!"
case 49 to 49, t*2, g
	print "Wrong 2!"
case t
	print "Ok <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	5307	5424	
==>0]->{"prods"}} = ();
	@{$_[0]->{"calls"}} = ();
	$_[0]->{"changed"}  = 0;
	$_[0]->{"impcount"}  = 0;
	$_[0]->{"opcount <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	1051	1147	
==>may access.

There is a deliberate distancing from the internals here. Don't go
peeking inside -- <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	53179	53463	
==>_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 59
		 'exp', 3,
sub
#line 345 "Lua\lua51.yp"
{
            BuildBinop( $_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 60
		 'exp', 3,
sub
#line 349 "Lua\lua51.yp"
{
            BuildBinop( $_[0], $_[1], $_[2], $_[ <==
2	/Users/nnunley/parrot/languages/regex/regex.pl	273	407	
==>-?)optimize/) {
        $tree_opt = 0;
        $list_opt = 0;
    } elsif (/--optimize=(.*)/) {
        my $opts = $1;
        $tree_op <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2656	2760	
==>$code;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was fatal: $!", $expected, <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6683	6839	
==>o match_fail
          match_success:
            print "matched"
            goto match_end
          match_fail:
            print "failed"
          match <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7700	7856	
==>o match_fail
          match_success:
            print "matched"
            goto match_end
          match_fail:
            print "failed"
          match <==
2	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1359	1484	
==>ge KeyedGetOp;
use base qw(Lua::opcode);

package KeyedSetOp;
use base qw(Lua::opcode);

package IncrOp;
use base qw(Lu <==
2	/Users/nnunley/parrot/examples/benchmarks/oo4.pl	9	119	
==>w
use strict;

my $o = new Foo();
for my $i (1 .. 500000) {
	$o->[0] = $i;
	$o->[1] = $i;
}
print $o->[0], "\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943865	944086	
==>arrot_charset_number_of_str(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944654	944875	
==>arrot_charset_number_of_str(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	489	621	
==>$new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{IO};
  $new->accept_target_as_text(qw( text plaintext plain ));
  $ne <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79586	79966	
==>a({{\@1}}) = p;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlvar",
                  "FLAGS" => "",
                  "ARG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81107	81426	
==>a({{\@1}}) = p;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "co <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2094	2192	
==>S defaults to a recursive \" find . \".\n\n".
		"--plus-misses creates a second section, with the h <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	7456	7642	
==>ame}";
}


sub code
{
	my ($self, $namespace, $parser) = @_;

eval 'undef &' . $namespace . '::' . $self->{"name"} unless $parser->{saving};

	my $code =
'
# ARGS ARE: ($parser, $text; $r <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45118	45292	
==>$QUOTELIKEMK		= '\G\s*<perl_quotelike>';
my $CODEBLOCKMK		= '\G\s*<perl_codeblock>';
my $VARIABLEMK		= '\G\s*<perl_variable>';
my $NOCHECKMK		= '\G\s*<nocheck>';
my $AUTOTREEM <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28862	28982	
==>};
    my $n = $self->{has_method}{$meth};
    return $self->{methods}[$n]{'loc'} ne 'nci';
}


=item C<implements_vtable <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	10700	10896	
==>}->{$sym};
			}
			return $sym;
		} elsif ($type eq "STARTARG") {
			return;
		} else {
			die "Bad type for $sym? in expression '$currentexpr'";
		}
	} else {
		return $oldresult;
	}
}
sub pusharg <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	2622	2764	
==>RING_",
		    $this_file_seen{$str}, "\n";
	    }
	    else {
		print "#define _CONST_STRING_$line $n\n";
	    }
	    $this_file_seen{$str} = $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	9299	9513	
==>gma} ) {
            print {$FH}
                "  .param $dir->{result}->{type} $dir->{result}->{symbol} $dir->{pragma}\n";
        }
        else {
            print {$FH}
                "  .param $dir->{r <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	2721	2903	
==>s $self->{table}{$symb} ) {
            my $defn = $self->{table}{$symb};
            return $defn;
        }
        else {
            return undef;
        }
    }

    su <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	5424	5597	
==>ttr('start_line'));
  } elsif( $type eq 'pod') { return $self->do_pod_link($token);
  } elsif( $type eq 'url') { return $self->do_url_link($token);
  } elsif( $type eq 'man') <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828819	828914	
==>STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_pmc(entry->entry);\n  {{+=3}};\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829887	829982	
==>STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_pmc(entry->entry);\n  {{+=3}};\n <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	2006	2117	
==>is generated automatically from
# $f by config/gen/parrot_include.pm
#
# Any changes made here will be lost.
#
E <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3617	3728	
==>$?)\n";
        }
    }
} 
elsif ($mode eq 'compile') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3721	3832	
==>$?)\n";
        }
    }
} 
elsif ($mode eq 'compile') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	73601	73699	
==>0]->{namespace}/;
	no strict "refs";
	
	croak "Unknown starting rule ($AUTOLOAD) called\n"
		unless <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	26424	26524	
==>file code for the PMC. C<$out_name> is the name
of the output file we are generating.

=cut

sub gen_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	604095	604374	
==>nline",
                  "CODE" => 684,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 419 \"src/ops/object.ops\"\n    VTABLE_add_parent(interpreter, {{\@1}}, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2014	2139	
==>int $H $hout;
    close $H;
}

=item C<write_all_files()>

Writes C and header files for all the PMCs in the library,
I<or> E< <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	620392	620778	
==>ATIVE",
                  "NAME" => "pic_get_params__",
                  "FLAGS" => ":pic",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 700,
                  "ARGS" => [
                              "pc"
                            ],
                  "BODY <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	12900	13110	
==>$post,
               class        => $classname,
               has_method   => \%meth_hash
           };
}

=head2 gen_parent_list( [$dir1, $dir2], $class, $classes );

Generate an ordered list of parent class <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	52477	52604	
==><reject:$code>");
				$prod and $prod->additem($item)
				      or  _no_rule("<reject:$code>",$line);
			}
			elsif ($grammar =~ <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1598	1713	
==>'';
if ($^O eq 'MSWin32') {
    # Paths need quoting as they may contain spaces.
    $PATHQUOTE = '"';

    unless ( <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	1602	1717	
==>'';
if ($^O eq 'MSWin32') {
    # Paths need quoting as they may contain spaces.
    $PATHQUOTE = '"';

    unless ( <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	2573	2728	
==>c}->{op} = $op;
        $new_pc   = $pc + $op->size;

        @args = ();

        foreach (1 .. scalar($op->arg_types) - 1) {
            die "$0: Prematur <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43815	43962	
==>" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 205,
			'func <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43226	43361	
==>" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 20 <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	15906	16018	
==>h
    type_trans["type"] = ELEMENT_TYPE_CLASS
    type_trans["byref"] = 0
    annotate_reg_type(type_trans)
    s <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	12824	13064	
==>" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 50,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'pri <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9576	9691	
==>st.cco', $verbose)
        and confess "C compiler failed (see test.cco)";

    _run_command("$link $linkflags test$ <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	1217	1340	
==>l = File::Spec->join('languages','tcl');
    } elsif ($dir_count == 1) {
      $path_to_tcl = 'tcl';
    } elsif ($dir_count <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14801	14958	
==>" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 69,
			'functioncall' = <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14312	14447	
==>" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 68 <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5205	5347	
==>s $op->{result} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $first = 1;
            foreach ( @{ $op->{ <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6237	6379	
==>s $op->{result} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $first = 1;
            foreach ( @{ $op->{ <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8531	8635	
==>13,/* 7 */
FF,$b,$c,$d,$a,$_[11],22,0xfd469501,/* 8 */
FF,$a,$b,$c,$d,$_[12],7,0x698098d8,/* 9 */
FF,$d,$ <==
2	/Users/nnunley/parrot/config/init/hints.pm	1026	1163	
==>nts " if $verbose;
    eval "use $hints";
    unless ($@) {
        $hints->runstep($conf, @_) if $hints->can('runstep');
        $hints_u <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	1920	2026	
==>ISA         = qw(Regex::Ops::Tree);
@Regex::Ops::Tree::code::ISA         = qw(Regex::Ops::Tree);

# Constru <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	17740	17822	
==>---------------------------------------------------------------------

sub _make_tr <==
2	/Users/nnunley/parrot/lib/Test/More.pm	25605	25928	
==>nce
        $ok = $Test->is_eq($this, $that, $name);
    }
    elsif( !ref $this xor !ref $that ) {  	# one's a reference, one isn't
        $ok = $Test->ok(0, $name);
	$Test->diag( _format_stack({ vals => [ $this, $that ] }) );
    }
    else {			       		# both references
        local @Data_Stack = ();
        if( _deep <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	6968	7133	
==>ne:
nothing:
    .return(op2)
.end

.sub 'dyadic:!'           # binomial coefficient
    .param pmc op1
    .param pmc op2
    $I1 = op1
    $I2 = op2
    $I3 = $I2 - <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	21153	21333	
==>y ($example_f, $expected, @options) = @_;

            my %lang_for_extension 
                = ( pasm => 'PASM',
                    past => 'PAST',
                    pir  => 'P <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	5669	5781	
==>ENSION\n";
}
print HEADER <<END_C;
#include "parrot/parrot.h"
#include "parrot/oplib.h"

$sym_export extern op_li <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828699	828795	
==>_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_PMC) {\n    intern <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829767	829863	
==>_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_PMC) {\n    intern <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	63402	63496	
==>ix was removed).

=item C<Unable to construct closing tag to match: /%s/>

C<extract_tagged> ma <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100144	100386	
==>PE" => "inline",
                  "CODE" => 124,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 106 \"src/ops/bit.ops\"\n  { <==
2	/Users/nnunley/parrot/examples/benchmarks/primes2.pl	1	140	
==>! perl

my $i=0;
my $max=5000;
my $i6 = 0;
my $i7;

while (1) {
    if (&isprime1($i)) {
	$i7 = $i;
	$i6++;
    }
    $i++;
    if ($i==$max <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3654	3851	
==>recognized type '$type' for num '$num'" unless exists $arg_maps{$type};

    return sprintf($arg_maps{$type}, $num );
}

=item C<restart_address($address)>

Returns the C code for C<restart ADDRESS( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	684	801	
==>pression::Value::Identifier');

  my $self = bless {
    BLOCK => $block,
    IDENT => $ident
  }, $class;

  $block-> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	684	801	
==>pression::Value::Identifier');

  my $self = bless {
    BLOCK => $block,
    IDENT => $ident
  }, $class;

  $block-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698650	698923	
==>"ARGS" => [
                              "i",
                              "ic",
                              "ic",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	15882	16076	
==>> "#line 260 \"src/ops/core.ops\"\n  {{=run_native(interpreter, CUR_OPCODE, interpreter->code->base.data)}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826614	826711	
==>ntry_type != STACK_ENTRY_FLOAT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on st <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827684	827781	
==>ntry_type != STACK_ENTRY_FLOAT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on st <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824419	824508	
==>_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_STRING) {\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825490	825579	
==>_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_STRING) {\n <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	14704	14913	
==>or lastback
#                push 2
#                goto next
#          back: popint -> I0
#                eq I0, 0, R.back
#                eq I0, 1, S.back
#                goto T.back
#          next:
#
s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154519	154910	
==>i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 187,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == { <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	341	504	
==>) {
	my $invocant = shift;
	return bless {}, $invocant;
}

# Pre-translation hook.
sub pre_translation() {
	# We need a stack depth and a string for label gen and s <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	249	365	
==>) {
	my $invocant = shift;
	return bless {}, $invocant;
}

# Pre-translation hook.
sub pre_translation() {
	# We need <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509041	509285	
==>} = - {{\@1}};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509672	509916	
==>} = - {{\@1}};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216757	216954	
==>",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 462 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	532998	533331	
==>NAME" => "ln",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 616,
                  "ARGS" => [
                              "n" <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	6610	6705	
==>efined_in{$_}) } @symbols;
    my @internal_symbols = sort grep { defined($defined_in{$_}) } @sy <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	348	450	
==>vars qw ( @ISA );
use strict;

@ISA= qw ( Parse::Yapp::Driver );
#Included Parse/Yapp/Driver.pm fil <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	341	439	
==>vars qw ( @ISA );
use strict;

@ISA= qw ( Parse::Yapp::Driver );
#Included Parse/Yapp/Driver.pm fil <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151036	151127	
==>cmp.ops\"\n  if (0 == string_equal(interpreter,\n      {{\@1}}->vtable->get_string(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152014	152105	
==>cmp.ops\"\n  if (0 == string_equal(interpreter,\n      {{\@1}}->vtable->get_string(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253007	253311	
==>NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "or",
                  "FLAGS" => ": <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	21706	21828	
==>]} : @{$def_func};
		my $max  = defined $_[2] && $_[2]>0 ? $_[2] : 1_000_000_000;
		my $igunk = $_[3];

		pos $$textref ||= <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	187	319	
==>ibrary

=head1 DESCRIPTION

Determines whether the platform supports GMP.

=cut

package auto::gmp;

use strict;
use vars qw($descrip <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645808	645901	
==>->n_vtable_max)\n\t\t{{\@1}} = interpreter->vtables[{{\@2}}]->whoami;\n    else\n\t\t{{\@1}} = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646705	646798	
==>->n_vtable_max)\n\t\t{{\@1}} = interpreter->vtables[{{\@2}}]->whoami;\n    else\n\t\t{{\@1}} = <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20646	20864	
==>ion' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 61
		DEFAULT => -28,
		GOTOS => {
			'@9-2' => 116
		}
	},
	{#State 62
		DEFAULT => -52
	},
	{#State 63
		ACTI <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	5740	5898	
==>rn     => "-ansi -pedantic",
            gccversion => undef
        );

        return $self;
    }

    $conf->data->set(
        ccwarn              => "$wa <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	26932	27071	
==>) {
        no integer;
        $para->[1]{'indent'} = $1;
        if($1 == 0) {
          $self->whine(
            $para->[1]{'start_line' <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	5840	6019	
==>patterns = capture_output( "$svn_cmd propget svn:ignore $dir" );
       # TODO: escape chars that are special in regular expressions
       push @skip, qq{# generated from svn:igno <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	18416	18514	
==>00-11-08, v0.59.

    Added the ability for compile time class creation.

Modified by Damian Conway <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	1931	2066	
==>urs in regex code, due to sequence of
single-character matches (eg /a[bB]c/).

But perhaps this should be handled in the Tree -> List re <==
2	/Users/nnunley/parrot/config/init/hints/freebsd.pm	252	369	
==>bs');

    # get rid of old pthread-stuff, if any
    $libs =~ s/(-lpthreads|-lc_r)\b\s*//g;

    # The following test <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4865	4961	
==>block;

      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $self->requ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22660	22755	
==>block;
      my $ident = Jako::Construct::Expression::Value::Identifier->new($block, $self->requ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	28839	28933	
==>g any test output, for example, when current_test() is changed.
In these cases, Test::Builder d <==
2	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	377	515	
==>ch (1..10) {
	$arr[$_] = buildarray();
    }
}

sub buildarray {
    my @foo;
    foreach (1..10000) {
	$foo[$_] = $_;
    }
    return \@f <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	8191	8384	
==>end', [ $group, '<tmp>' ] ),
                        aop('popint', [ '<tmp>', 'group start' ]),
                        aop('setstart', [ $group, '<tmp>' ] ),
                        aop('goto', <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4224	4358	
==>my $src = $_ . "_ops$core_suffix$LOAD_EXT";
	        copy($src, $dest)
			    or die "Copy $src failed ($?)\n";
	
		    # Execute permi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	883489	883723	
==>,
                              "s",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\n  if (! <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	4175	4396	
==>thru (but still not start a pod block).
          #splice @_;
          #push @_, undef;
          
          next;
        } else {
          $self->{'in_pod'} = $self->{'start_of_pod_block'}
                            = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	9852	9970	
==>lf, $titlename, %options) = (@_);
  
  my $max_token            = delete $options{'max_token'};
  my $desperate_for_tit <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	29343	29483	
==>os = pop @stack;
    my $seq = $tos->[1];
    my ($p, $i);
    for ($i = $n-1; $i >= 0; $i--) {
	$p = temp('P');
	print <<EOC;
	$p = $seq\[$i <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	75333	75435	
==>ename, '|', $tracemsg
| ~~       |^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<|
	    $tracemsg
.

select TRAC <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	701	806	
==>y $linkflags = $conf->data->get('linkflags');
    my $ccflags   = $conf->data->get('ccflags');
    if ($^O <==
2	/Users/nnunley/parrot/config/auto/readline.pm	713	818	
==>y $linkflags = $conf->data->get('linkflags');
    my $ccflags   = $conf->data->get('ccflags');
    if ($^O <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	16453	16566	
==>ch vector, doing the ops.
    .local pmc iter1
    iter1 = new .Iterator, $vector
  loop:    
    unless iter1 got <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	8514	8723	
==>g, $rest, $src) = ($l->[2], $l->[3], $l->[4], $l->[5]);
	next unless $opcode;
	my $cmt = "";
	print "## $src" if  $src;

	if ($rest =~ /(<code> \w+)/) {
	    $rest = "$1 ..>";
	}
	$cmt = "\t\t# $opcode\t$arg $r <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	1361	1491	
==>b count
{
  my $self = shift;

  return scalar(@{$self->{TOKENS}});
}


#
# pos()
#
# Returns (or sets) the abolute position.
#

su <==
2	/Users/nnunley/parrot/config/auto/gdbm.pm	760	967	
==>y $linkflags = $conf->data->get('linkflags');
    my $ccflags   = $conf->data->get('ccflags');

    my $osname = $Config{osname};

    # On OS X check the presence of the gdbm header in the standard
    # Fin <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	829	984	
==>ource);
  $self->output_fh(*STDOUT{IO});

  $self->run; # define run() in a subclass if you want to use filter()!
  return $self;
}

# - - - - - - - - - - - <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2605	2755	
==>LL'],
  ['',            'set', 'P11', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['', <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	3899	3992	
==>$op) = @_; $op->{args}->[0]->minlen() }
sub maxlen { my ($op) = @_; $op->{args}->[0]->maxlen() <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	6826	6983	
==>p')
                and !exists $val->[1]->[-1]->{result}[0]->{pragma} )
            {
                my $callop = $val->[1]->[-1];
                $call <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	550	691	
==>Exporter::export_ok_tags('ALL');

# PROTOTYPES

sub _match_bracketed($$$$$$);
sub _match_variable($$);
sub _match_codeblock($$$$$$$);
sub _mat <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	8177	8290	
==>d'} = \%meth_hash;

    my $Dumper = Data::Dumper->new([\%vtable], ['class']);
    $Dumper->Indent(3);
    print $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623012	623116	
==>cont_t cc;\n    int n;\n\n    ctx = CONTEXT(interpreter->ctx);\n    mic = (Parrot_MIC *) cur_opcode[1];\n <==
2	/Users/nnunley/parrot/config/auto/pack.pm	1000	1130	
==>($size == $longsize) && ($size == $Config{longsize})) {
            $format = 'l!';
        } elsif ($size == 4) {
            $for <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	5580	5716	
==>rrotAPI;

my $ParrotPrefix = qr/^(Parrot|PDB|PF|PIO|PackFile)_/;

for my $api (@API) {
    unless ($api =~ $ParrotPrefix) {
	push @NoParr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095733	1095914	
==>ARGS" => [
                              "sc"
                            ],
                  "BODY" => "#line 223 \"src/ops/experimental.ops\"\n  Parrot_Exec_OS_Command(interpreter <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	2545	2632	
==>nteger_keyed_str(interp, registry, key, pmc_id);
}

void
Parrot_register_core_pmcs(Inter <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	11728	11854	
==>ype, $short_name,
            [ @fixedargs ], [ @$argdirs ], [ @$labels ], $flags);
        my $op_size = $op->size;
        my <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2464	2669	
==>s/^\\t//
                and $str .= "\t",      # horizontal tab
                last;
            s/^\\v//
                and $str .= "\x0b",    # vertical tab
                last;
            s/^\ <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3978	4183	
==>s/^\\t//
                and $str .= "\t",      # horizontal tab
                last;
            s/^\\v//
                and $str .= "\x0b",    # vertical tab
                last;
            s/^\ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1902	2045	
==>->{lex_num};
    $parser->YYData->{lex_num} = 0;
##    warn "PushScopeF\n";
}

sub PopScopeF {
    my ($parser) = @_;

    my $lex_num = <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	37776	37979	
==>, $type) = @_;

    #return "ret_val = *($1*) " if ($type =~ /((?:INT|FLOAT)VAL)/);
    return "ret_val = ($type) ";
}

=item C<body($method, $line, $out_name)>

Returns the C code for the method body. C< <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	22152	22322	
==>t $val{$_->[2]}
	#print "\\n"
	P3["$_->[0]"]= P2
NOTUSER
		} else {
				print CODE<<USER;
	new P2, .PerlHash
	P2["name"]= '$_->[0]'
	P2["type"]= "USER"
	P5= P6		# Remember <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	51	171	
==>Id: /parrot/config/gen/makefiles.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/gen/makefiles.pm - Bui <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6994	7091	
==>(5): ", instr(s1$, found$)
print "Bogus  (0): ", instr(s1$, bogus$)
print "Null   (1): ", instr(s1 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18723	18820	
==>(5): ", instr(s1$, found$)
print "Bogus  (0): ", instr(s1$, bogus$)
print "Null   (1): ", instr(s1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029855	1029970	
==>in time\");\n  }\n  next = Parrot_sleep_on_event(interpreter, {{\@1}}, next);\n  {{=next}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030697	1030812	
==>in time\");\n  }\n  next = Parrot_sleep_on_event(interpreter, {{\@1}}, next);\n  {{=next}};\n",
                  "L <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1930	2041	
==>= \"\"");

    while (1) {
      last unless defined $string and
        $string =~ m/(^|^.*?[^\\])\$((([A-Za-z] <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	26906	27069	
==>y ($self, $op, $extname, $extargs, $lastback) = @_;
    my $handler = "external_$extname";
    if ($self->{$handler}) {
        return $self->{$handler}->($op, $ext <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21162	21318	
==>'number',
        '/'  => 'number',
        '^'  => 'number',
        '%'  => 'number',
        '..' => 'string',
    );
    my %opcode = (
        '+ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	712	856	
==>b new
{
  my $class = shift;
  my ($block, $ident, $cond, $left, $op, $right) = @_;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jak <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30651	30832	
==>as, $para;
          next;

        } elsif($over_type eq 'text') {
          my $item_type = $self->_get_item_type($para);
            # That kills the content of the item if it's a <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4478	4595	
==>oup->{$_} } @pmcs;
    partial_link($_, $pmc_libs->{$_}, [ $_ ] ) foreach (@ungrouped_pmcs);
} 
elsif ($mode eq 'copy' <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4582	4699	
==>oup->{$_} } @pmcs;
    partial_link($_, $pmc_libs->{$_}, [ $_ ] ) foreach (@ungrouped_pmcs);
} 
elsif ($mode eq 'copy' <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	14853	15107	
==>n
                    # array of commands.
                    $cmd = [
                        qq{$parrot $args "$code_f"},
                        qq{$parrot "$pbc_f"},
                    ];
                } else {
                    $cmd = qq{$parro <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	112	236	
==>= bless \%options, (ref($proto) || $proto);
    $self->init();
    return $self;
}

sub init {
    my $self = shift;
    $sel <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	279	403	
==>= bless \%options, (ref($proto) || $proto);
    $self->init();
    return $self;
}

sub init {
    my $self = shift;
    $sel <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	95	194	
==>d  $

package Parrot::Test::M4::PIR;

use strict;
use warnings;
use 5.006;

use base 'Parrot::Test:: <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3542	3666	
==>stuff #
#################


sub _CheckParams {
	my($mandatory,$checklist,$inarray,$outhash)=@_;
	my($prm,$value);
	my( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3359	3476	
==>stuff #
#################


sub _CheckParams {
	my($mandatory,$checklist,$inarray,$outhash)=@_;
	my($prm,$value);
	my( <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	1136	1251	
==>'tools/build/pbc2c.pl'),
            $self->new_item('', 'tools/dev/pbc_header.pl'),
        ),
        $self->new_g <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	10526	10631	
==>output_rule_def {
    my ($self, $name, $L_trymatch, $L_backup, $num_groups, $startup) = @_;

    my $trym <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	4206	4326	
==>'|', map { quotemeta $_ } split('', $rdel));
	pos = $posbug;

	my $startpos = pos $$textref || 0;
	my @match = _match_bra <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947132	947229	
==>al_exception(interpreter, NULL, 1,\n\t\"charset '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948034	948131	
==>al_exception(interpreter, NULL, 1,\n\t\"charset '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{ <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	12856	12956	
==>.

With one or two arguments, the first argument is a key specifying
one element of the hash; the sec <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26141	26284	
==>hat we need to insert to handle enum fixups if this is
    # an instruction that needs it.
    my $pre_translate_code = "";
    if (grep { $rule <==
2	/Users/nnunley/parrot/examples/benchmarks/oo5.pl	292	408	
==>ft } else { $self->[0] }
}

sub j {
    my $self = shift;
    if (@_) { $self->[1] = shift } else { $self->[1] }
}

1 <==
2	/Users/nnunley/parrot/examples/benchmarks/oo6.pl	284	400	
==>ft } else { $self->[0] }
}

sub j {
    my $self = shift;
    if (@_) { $self->[1] = shift } else { $self->[1] }
}

1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	886	985	
==>cur_opcode
#define IREG(i) REG_INT(cur_opcode[i])
#define NREG(i) REG_NUM(cur_opcode[i])
#define PRE <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1002	1101	
==>cur_opcode
#define IREG(i) REG_INT(cur_opcode[i])
#define NREG(i) REG_NUM(cur_opcode[i])
#define PRE <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19025	19138	
==>CTION} && defined($item) && !$item->isa("Parse::RecDescent::Action"))
	{
		$code .= $parser->{_AUTOACTION}->code($ <==
2	/Users/nnunley/parrot/config/inter/charset.pm	428	659	
==>iption = 'Determining what charset files should be compiled in';

@args = qw(ask charset);

sub runstep
{
    my ($self, $conf) = @_;

    my @charset = (
        sort
            map { m{\./src/charset/(.*)} } glob "./src/charset/* <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147004	147278	
==>"TYPE" => "function",
                  "CODE" => 179,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 98 \"src/ops/cmp.op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	337441	337713	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getstdin", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109616	109719	
==>Y" => "#line 182 \"src/ops/bit.ops\"\n  string_bitwise_or(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110395	110498	
==>Y" => "#line 182 \"src/ops/bit.ops\"\n  string_bitwise_or(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  { <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	3401	3500	
==>d $smoke{build_dir}    = $1;
  $html =~ /summary="(\d+) test cases: (\d+) ok, (\d+) failed, (\d+) to <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	1386	1495	
==>ret |= 0x0008 if $chr =~ /^[[:digit:]]$/;  # CCLASS_NUMERIC        
    $ret |= 0x0010 if $chr =~ /^[[:xdigit: <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	677	778	
==>ces as Win32 paths have \'s in, which qq[] treats as escape sequences.
# Config stuff
our $CC = qq[/us <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	681	782	
==>ces as Win32 paths have \'s in, which qq[] treats as escape sequences.
# Config stuff
our $CC = qq[/us <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	6998	7122	
==>sses

=head1 SYNOPSIS

    use Class::Struct;
            # declare struct, based on array:
    struct( CLASS_NAME => [ ELEME <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1722	1822	
==>. . . . . . . . . . . . . . . . . . . .
#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	311525	311816	
==>nterpreter->pmc_reg, -1, NULL);\n#endif\n    }\n    {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "backtrace",
                  "FLAGS" => ":base_debug",
                  "ARGDIR <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20471	20561	
==>TF::Document>,
L<RTF::Generator>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7349	7465	
==>Jako::Construct::Declaration::Constant->new($block, $type, $ident, $value);
        }
        else {
          $self- <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	20406	20544	
==>->{'code'}\n";
                $byte2_todo{"$prefix$_->{'code'}"} = $_->{'group'};
            } else {
                # Not a group; jump <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	39646	39775	
==>y EIGHTH column.  For portability, it has to be
              # one setting everywhere, and 8th wins.
              s/^([^\t]*)(\t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937310	937595	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "titlecase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "COD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	695330	695894	
==>GS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 781,
                  "ARGS" => [
                              "ic",
                              "ic",
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  m <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22169	22429	
==>ms to match =head1 NAME pattern.\n";
      $title = '';
      foreach my $t (reverse @to_unget) {
        last if $t->type eq 'start' and $t->tagname eq 'Para';
        $title = $t->text . $title if $t->type eq 'text';
      }
      undef $title if $title =~ m< <==
2	/Users/nnunley/parrot/config/inter/libparrot.pm	1636	1771	
==>ata->get('rpath')
          .  $conf->data->get('build_dir')
          .  $conf->data->get('slash')
          .  $conf->data->get('bl <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	61192	61334	
==>deblock> encountered
a closing bracket where none was expected.

=item  C<Unmatched opening bracket(s): "%s">

C<extract_bracketed>, C<extract_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4891	4981	
==>', 'STATES', 'LEX', 'ERROR' };
	my($errstatus,$nberror,$token,$value,$stack,$check,$dotpos <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4650	4739	
==>', 'STATES', 'LEX', 'ERROR' };
	my($errstatus,$nberror,$token,$value,$stack,$check,$dotpos <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51832	52038	
==>e(interpreter, PARROT_ALL_TRACE_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52615	52821	
==>e(interpreter, PARROT_ALL_TRACE_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627450	627570	
==>init(interpreter, {{\@2}});\n  {{\@1}}->vtable->init(interpreter, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628594	628714	
==>init(interpreter, {{\@2}});\n  {{\@1}}->vtable->init(interpreter, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6219	6305	
==>(
prop_type_state[${ITEMP0}] = ${STYPES}
prop_stack_depth[${ITEMP0}] = stack_depth
goto <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4157	4243	
==>(
prop_type_state[${ITEMP0}] = ${STYPES}
prop_stack_depth[${ITEMP0}] = stack_depth
goto <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840504	840844	
==>FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 953,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 272 \"src/o <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9435	9668	
==>re say!
    ref($self), $self->VERSION(), $ISA[0], $ISA[0]->VERSION(),
    $], scalar(gmtime),
  ;  
}


sub do_end {
  my $self = $_[0];
  print {$self->{'output_fh'}} "\n<!-- end doc -->\n</body></html>\n";
   # TODO: allow for a fo <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	535	641	
==>d number of ops performed,

=item * the elapsed time, and 

=item * the number of M op/s.

=back

=cut

sub <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	538	643	
==>d number of ops performed,

=item * the elapsed time, and

=item * the number of M op/s.

=back

=cut

sub <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	7184	7323	
==>index:";
	$comment    = "/* ". $op->full_name() ." */";
    }
    else {
        $definition = "$prototype;\n$opsarraytype *\n$func_name ($a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	933618	934101	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1049,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 435 \"src/ops/string.ops\"\n  {{\@1}} = string_downcase(inte <==
2	/Users/nnunley/parrot/config/auto/aio.pm	1108	1336	
==>data->set(
                aio        => 'define',
                HAS_AIO    => 1,
                D_SIGRTMIN => $1,
                D_SIGRTMAX => $2,
            );
        }

    } else {
        $conf->data->set(libs => $libs <==
2	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	653	756	
==>return wantarray ? @parrot_version : $parrot_version;
    }

    # Obtain the official version number fr <==
2	/Users/nnunley/parrot/config/init/defaults.pm	4064	4233	
==>mportable symbol.
        sym_export => '',
        sym_import => '',

        # Library build directory
        blib_dir      => 'blib/lib',

        # libparrot library <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	761	866	
==>:Block));
  confess "Type (" . ref($type) . ") is not!"   if defined $type and not UNIVERSAL::isa($type, q <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	644	746	
==>:Block));
  confess "Type (". ref($type) . ") is not!" if defined $type and not UNIVERSAL::isa($type, q <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423357	423638	
==>,
                  "CODE" => 486,
                  "ARGS" => [
                              "i",
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 567 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)P <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	28861	28979	
==>t treated, not as what the element name
      #  should be.

      DEBUG > 1 and print "Pondering non-magical $para_typ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	32871	33030	
==>val = promote(pop @stack);
    if ($vtables{$c}) {
	$c = $vtables{$c};
    }
    my $cc;
    if ($c =~ /^\d+$/) {	# MMD
	$cc = "-$c";
    }
    else {
	$cc = qq <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20049	20362	
==>ELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 27,
                  "AR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19273	19562	
==>ELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 2 <==
2	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	361	482	
==>e_name = shift;
	my $cs_code = shift;
    my $opt = shift;
    $opt ||= '';
	
	# Write file.
	my $fh;
	open $fh, "> $file_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	370144	370394	
==>33,
                  "ARGS" => [
                              "s",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 341 \"src/ops/io.ops\"\n  {{\@1}} = PIO_reads( <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	24232	24385	
==>_id = Parrot_get_HLL_id(
                interp, const_string(interp, "$hll")
            );
            if (pmc_id > 0)
                Parrot_register_H <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	14030	14283	
==>atvalid = 0;
			next;
		}

		if ($$textref =~ m/\G\s*#.*/gc)
		{
			next;
		}

		if ($$textref =~ m/\G\s*($rdel_outer)/gc)
		{
			unless ($matched = ($closing && $1 eq $closing) )
			{
				next if $1 eq '>';	# MIGHT BE A "LESS THAN"
				_failmsg q{Mismat <==
2	/Users/nnunley/parrot/config/init/defaults.pm	3309	3431	
==>tension
        share_ext => ".$Config{so}",    # shared library extension

        # dynamically loadable module extension <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5768	5875	
==>ne, skipping...\n";
			} else {
				push @{$code{$seg}->{code}}, "IFBRANCH_$_:\n";
			}
			while($_=pop(@{$e <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8116	8219	
==>ne, skipping...\n";
		} else {
			push @{$code{$seg}->{code}}, "IFBRANCH_$_:\n";
		}
		while($_=pop(@{$e <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	72749	72847	
==>SA, 'Parse::RecDescent';";
	$self->{"startcode"} = '';

	my $rule;
	foreach $rule ( values %{$self- <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	7147	7271	
==>nced_in{$_}}) . ")\n" foreach (@non_ansi_external_symbols);
}

    
__END__
# The following symbols are available in a C89 Ho <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113867	114129	
==>rc/ops/bit.ops\"\n  {{\@1}} <<= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114606	114868	
==>rc/ops/bit.ops\"\n  {{\@1}} <<= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7231	7417	
==>pir"
            load_bytecode "PGE/Text.pir"
            glob_compile = compreg "PGE::Glob"

            .local string target
            .local string pattern
            .local pmc rul <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	26852	27009	
==>EOC
	}
	else {
	    if ($may_be_none{$c}) {
		delete $may_be_none{$c};
		print <<"EOC";
	    ne_addr $c, None, temp_$code_l
	    $c = new $DEFVAR
temp_$code_l <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	5618	5719	
==>herClass>.

=item C<SELF.method(a,b,c)>

Calls the vtable method 'method' using the static type of C<S <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1346	1459	
==>really-constant
    *Pod::Simple::DEBUG = sub () { $$variable } ;
    $$variable = $value;
    print "# Starting P <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39170	39338	
==>port'   => \&_op_current_output_port,
  'with-input-to-file'    => \&_op_with_input_to_file,
  'with-output-from-file' => \&_op_with_output_from_file,
  'open-input-file <==
2	/Users/nnunley/parrot/lib/Test/More.pm	27371	27486	
==>H REF SCALAR GLOB Regexp)) {
        return $type if UNIVERSAL::isa($thing, $type);
    }

    return '';
}


=head2 <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	14678	14853	
==>$nil->[0],
                );
                push @{$exprs}, [ $result, [] ];
                push @{ $callop->{result} }, $result;
            }
            push @{ $exp <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	2158	2275	
==>ettings might have changed for the test
        $conf->data->set('libs',      $libs);
        $conf->data->set('ccflag <==
2	/Users/nnunley/parrot/config/auto/readline.pm	1958	2075	
==>ettings might have changed for the test
        $conf->data->set('libs',      $libs);
        $conf->data->set('ccflag <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	4479	4700	
==>place_slashes              => 1,
        conditioned_lines            => 1
    );
    genfile(
        'config/gen/makefiles/jako.in' => 'languages/jako/Makefile',
        commentType                    => '#',
        rep <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	1955	2152	
==>esult('yes');

            $conf->data->set(
                gmp     => 'define',
                HAS_GMP => $has_gmp,
            );
        }
    }
    unless ($has_gmp) {

        # The Config::D <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	9723	9893	
==>:OpLib::core::ops->[$i];

    $precompiled = 0;
    if (!defined $body) {
        $precompiled = 1;
        $extern = 1;
        my $opbody = $op->body;
        # retransl <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1180	1278	
==>$compiler->emit(".namespace ${namespace}");
      $compiler->indent;
      $self->SUPER::compile($c <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	588	682	
==>$compiler->emit(".namespace ${namespace}");
    $compiler->indent;
    $self->SUPER::compile($c <==
2	/Users/nnunley/parrot/languages/regex/regex.pl	1063	1189	
==>o many args!";
    }
}

if (! defined $expr && ! defined $expr_file) {
    die "need expression!";
}

if (defined $expr_file) { <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	11532	11640	
==>'\{', '\}', '\{', '\}', 0)
		or $deref eq '$#' or $deref eq '$$' )
	    {
		_failmsg "Bad identifier after de <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	29216	29399	
==>:

############# Not used.  Expressed via the element children plus
#############  the value of the "content-implicit" flag.
# First:
# The link-text. If there is none, this must be un <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	35926	36045	
==>t'        => \&_op_imag_part,
  'magnitude'        => \&_op_magnitude,
  'angle'            => \&_op_angle,
  'exact->in <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1367	1527	
==>t) {
      $compiler->emit(".namespace ${namespace}_THEN");
      $compiler->indent;
      $self->SUPER::compile($compiler);
      $compiler->outdent;
      $com <==
2	/Users/nnunley/parrot/languages/regex/test.pl	621	716	
==>"\n" if $msg;

    print <<"END";
Usage: $0 [-c|--compile] [--language=LANGUAGE] [--optimize=PAS <==
2	/Users/nnunley/parrot/config/gen/platform.pm	2741	2893	
==>ect one from the above list in their $platform/ dir (e.g. misc.c).
    }

    # finally append generated
    @headers = grep { /\.h$/ } split(',', $gener <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	729930	730187	
==>t.ops\"\n   STRING * const temp = {{\@1}};\n   {{\@1}} = {{\@2}};\n   {{\@2}} = temp;\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6586	6717	
==>[CURR])\n";
		debug() if $debug;
		$currline="$labels{$syms[CURR]}";
		feedme;  # Get the :
		goto PARSE
	}
	
	# function assignment <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	29084	29269	
==>ctual_ok is left undef.

For example "not ok 23 - hole count # TODO insufficient donuts" would
result in this structure:

    $tests[22] =    # 23 - 1, since arrays start from 0.
      { <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	5719	5918	
==>IVED CLASS
  my($self, $element_name) = @_;
  return;
}

sub _handle_text          {     # OVERRIDE IN DERIVED CLASS
  my($self, $text) = @_;
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103285	103470	
==>/ops/bit.ops\"\n  {{\@1}}->vtable->i_bitwise_nots(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ] <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	1782	1888	
==>s";
}

sub parse_line {
  use Carp ();
  Carp::croak "Use set_source with ", __PACKAGE__,
    " and subclas <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015745	1015902	
==>"ic"
                            ],
                  "BODY" => "#line 77 \"src/ops/sys.ops\"\n  const char * const tmp = strerror({{\@2}});\n  {{\@1}} = stri <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53310	53407	
==>r,   PARROT_GC_DEBUG_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_GC_DEBUG_FL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54066	54163	
==>r,   PARROT_GC_DEBUG_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_GC_DEBUG_FL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243926	244017	
==>src/ops/cmp.ops\"\n  STRING* l = VTABLE_get_string(interpreter, {{\@2}});\n  {{\@1}} = strin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244858	244949	
==>src/ops/cmp.ops\"\n  STRING* l = VTABLE_get_string(interpreter, {{\@2}});\n  {{\@1}} = strin <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	15979	16208	
==>5, 2
CASE_${jump}_${incase}_STARTTO:
	eq I5, 1, CASE_${jump}_${incase}_NO_TO
	push P9, "or"
	push P9, "OP"
CASE_${jump}_${incase}_NO_TO:
	push P9, "and"
	push P9, "OP"
	push P9, ">="
	push P9, "OP"
	P0= P5
	bsr RUNTIME_PUSH
	pop P <==
2	/Users/nnunley/parrot/config/gen/config_pm.pm	58	196	
==>rrot/config/gen/config_pm.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/gen/config_pm.pm - Record configuration data

= <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	490	583	
==>cifiers>[<whitespace>][#<comment>]
    ...
Empty lines and lines containing only whitespace or <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22563	22678	
==>eq 'NAME' )
    ) {
      # Well, it fits a fallback pattern
      DEBUG and print "Seems to match NAMEless pattern. <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10706	10913	
==>nt

1;

}
#End of include--------------------------------------------------




sub new {
        my($class)=shift;
        ref($class)
    and $class=ref($class);

    my($self)=$class->SUPER: <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	12830	12941	
==>lastback) = @_;
    return aop($op->{name}, [ @{ $op->{args} }, $lastback ]);
}

# scan(R) ->   scan: R or advan <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	26653	26780	
==>im contains one or more of '(){}[]<>').

	($extracted, $remainder) = extract_codeblock($text,$delim);


 # Extract the initial s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033377	1033461	
==>_IS_NULL(lex_pad)) {\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexic <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034475	1034559	
==>_IS_NULL(lex_pad)) {\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexic <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	3284	3818	
==>'
                ], 
                'headers' => ['interp_guts']
            ),
            $self->c_pair_item('', 'exit'),
        ),
        $self->new_group(
            'Registers and Stacks', 
            '',
            $self->c_item(
                '', 
                'pairs' => ['register'], 
                'headers' => ['regfuncs']
            ),
            $self->c_item(
                '', 
                'pairs' => ['stacks'], 
                'sources' => ['stack_common']
            ),
            $self->c_he <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	61598	61756	
==>s information
        #    0x04         Driver actions (shifts, reduces, accept...)
        #    0x08         Parse Stack dump
        #    0x10         Err <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	49334	49454	
==>their compromised form? (applies
to E parsing too)

TODO: BOM/encoding things.

TODO: ascii-compat things in the XML clas <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	2078	2191	
==>ompiler);
    $right = $right->compile($compiler);

    if ($cond eq 'if') {
      $op = $compiler->invert_relop($ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	17539	17732	
==>'} += length($1);
		$itempos[$#itempos]{'line'}{'from'}   = $thisline;
		$itempos[$#itempos]{'column'}{'from'} = $thiscolumn;
	}
}

sub postitempos
{
	return q
	{
		$itempos[$#itempos]{'offset'} <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	3352	3480	
==>c?
        elsif (!$in_heredoc && $rule && /^\s*(\w+)\s*=\s*<<(\w+)\s*$/) {
            # Initialize heredoc.
            $in_her <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	153938	154028	
==>cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_NUMEQ)) {\n    {{+={{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1795	1893	
==>Pod::Simple::Debug (5);  # or some integer

Or:

 my $debuglevel;
 use Pod::Simple::Debug (\$debugl <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	19719	19957	
==>ixed since 21nov94 version:
    #  - Fixed examples.
    # changes/bugs fixed since 02sep94 version:
    #  - Moved to Class::Template.
    # changes/bugs fixed since 20feb94 version:
    #  - Updated to be a more proper module.
    #  - A <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5080	5195	
==>sub sax
{
  my $self = shift;
  my ($handler) = @_;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $le <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3143	3258	
==>sub sax
{
  my $self = shift;
  my ($handler) = @_;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $le <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17654	17789	
==>7
	},
	{#State 46
		DEFAULT => -93
	},
	{#State 47
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38, <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	144	289	
==>NAME

Parrot::Docs::Section::Perl - Perl documentation section

=head1 SYNOPSIS

	use Parrot::Docs::Section::Perl;

=head1 DESCRIPTION

A document <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5340	5490	
==>{ $op->{result} } ) {
                print {$FH} ", " unless ($first);
                print {$FH} "$_->{symbol}";
                if ( exists $_-> <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6372	6522	
==>{ $op->{result} } ) {
                print {$FH} ", " unless ($first);
                print {$FH} "$_->{symbol}";
                if ( exists $_-> <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11788	11978	
==>c j
goto PTYPES_LOOP
PTYPES_LOOP_END:
printerr "\\n"
printerr "    LTYPES: "
i = elements ltypes
j = 0
LTYPES_LOOP:
if j == i goto LTYPES_LOOP_END
type_trans = ltypes[j]
type = type_trans["ty <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	489693	490082	
==>FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 561,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2815	2954	
==>dent
             \s+ \{ ([^}]+) \}          # test description
             \s+ (?:\S+ \s+)? \{ \n     # optional test harness info (ignori <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4212	4351	
==>dent
             \s+ \{ ([^}]+) \}          # test description
             \s+ (?:\S+ \s+)? \{ \n     # optional test harness info (ignori <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	7356	7588	
==>None
    None = new .None
EOC
    $globals{'__name__'} = '__name__';
    $code_l = 0;
    my $in_info = 0;
    my $cur_f;
    for (@dis) {
	if (/Information of <?([\w:]+)>?/) {
	    $in_info = 1;
	    $cur_f = $1;
	}
	elsif ($in_info <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61365	61624	
==>LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorson",
                  "FLAGS" => "",
                  "ARGDI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62008	62267	
==>LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorson",
                  "FLAGS" => "",
                  "ARGDI <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11245	11419	
==>ld do it
}

###########################################################################

sub stylesheet {
  return sprintf <<'END',
{\stylesheet
{\snext0 Normal;}
{\*\cs10 \ad <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	1106	1211	
==>)
  # an undef means end-of-stream
  my $self = shift;

  my $code_handler = $self->{'code_handler'};
  my <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4960	5075	
==>mit("  $pmc_reg = $dest");
    $compiler->emit("  global \"$dest_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax() <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3023	3138	
==>mit("  $pmc_reg = $dest");
    $compiler->emit("  global \"$dest_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax() <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853367	853618	
==>\@1}} = string_append(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854149	854400	
==>\@1}} = string_append(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710800	710912	
==>ter, INTVAL_FMT, (INTVAL){{\@1}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711634	711746	
==>ter, INTVAL_FMT, (INTVAL){{\@1}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16668	16768	
==>hings very cautiously:
        $x =~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdef <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10116	10212	
==>hings very cautiously:
    $x =~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdef <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88773	89068	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89510	89805	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	18303	18413	
==>p off
    return $treelet;
  } else {
    $treelet = $self->_treelet_from_formatting_codes(@_);
  }
  
  if( $s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608332	608508	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 473 \"src/ops/object.ops\"\n    {{\@1}} = VTABLE_get_attr(interpreter, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431484	431764	
==>ath.ops\"\n  mmd_dispatch_v_pp(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2778	2882	
==>~~

sub new {
  my $new = shift->SUPER::new(@_);
  #$new->nix_X_codes(1);
  $new->nbsp_for_S(1);
  $new-> <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3134	3236	
==>~~
sub new {
  my $new = shift->SUPER::new(@_);
  $new->nix_X_codes(1);
  $new->nbsp_for_S(1);
  $new-> <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	2956	3064	
==>ush @{$opcodes{$pc}->{args}}, @args;

        $src = $op->full_body();

	# The regexes here correspond to the <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841591	841680	
==>ine 40 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},0);\n  {{+=3}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842355	842444	
==>ine 40 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},0);\n  {{+=3}};\ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7653	7755	
==>_END_${CURIC}
dec ${ITEMP0}
dec ${ITEMP2}

# Generate name of register to hold value we pop off the sta <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6611	6713	
==>_END_${CURIC}
dec ${ITEMP0}
dec ${ITEMP2}

# Generate name of register to hold value we pop off the sta <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	3964	4184	
==>.EnterpriseServices
            System.Management
            System.Messaging
            System.Runtime.Remoting
            System.Runtime.Serialization.Formatters.Soap
            System.Security
            Sys <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	399	574	
==>on);

use Jako::Symbol;
use Jako::Construct::Type;


#
# new()
#

sub new
{
  my $class = shift;

  my ($block, $type, $ident, $props, $args) = @_;

  confess "Block (". ref($b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	727896	728179	
==>",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "io"
                               ],
                  "TYPE" => "function",
                  "CODE" => 816,
                  "AR <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7255	7417	
==>ERR "Reduce using rule ".-$act." ($lhs,$len): ";

                $act
            or  $self->YYAccept();

            $$dotpos=$len;

                unpac <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6919	7074	
==>ERR "Reduce using rule ".-$act." ($lhs,$len): ";

                $act
            or  $self->YYAccept();

            $$dotpos=$len;

                unpac <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14594	14709	
==>rint "  Returing title <$title>\n" }
    else { print "Returning title <>\n" }
  }
  
  return '' unless defined $ti <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	23159	23274	
==>rint "  Returing title <$title>\n" }
    else { print "Returning title <>\n" }
  }
  
  return '' unless defined $ti <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12602	12770	
==>ple,
C<e2char('sol')>, C<e2char('47')>,
C<e2char('0x2F')>, and C<e2char('057')> all return 47,
because C<EE<lt>solE<gt>>, C<EE<lt>47E<gt>>, C<EE<lt>0x2fE<gt>>,
and C<EE< <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12078	12171	
==>ple, C<e2char('sol')>, C<e2char('47')>,
C<e2char('0x2F')>, and C<e2char('057')> all return "/" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931449	931908	
==>se_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1046,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 415 \"src/ops/string.ops\"\n  {{\@1}} = string_upcase(interpreter, {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943302	943511	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944090	944299	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	18306	18476	
==>ff
    return $treelet;
  } else {
    $treelet = $self->_treelet_from_formatting_codes(@_);
  }
  
  if( $self->_remap_sequences($treelet) ) {
    $self->_treat_Zs($treel <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	73315	73425	
==>]->{lastlinenum} += $_[2] if @_ > 2;
	$_[0]->{offsetlinenum} = $_[0]->{lastlinenum};
	$_[0]->{fulltext} = $text <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11271	11436	
==>),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE|PARROT_JUMP_ENEXT",
                  "NAME" => "bsr",
                  "FLAGS" => ":base_core <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	17637	17835	
==>,
                 $self->dbprint("backtracking into dynalt's index %<$counter> match\n"),
		 aop('goto', [ $R_back ]),
	$next => $self->op_save_rxlocals($op),
		 );

    return ($back, @ops);
}

# R <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8639	8737	
==>e[NEXT] eq "BARE" or $type[NEXT] eq "COMM")) {  # Line number!
		create_label();
		$currline="$labe <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54522	54670	
==>ode);
				$prod and $prod->additem($item)
				      or  _no_rule($code,$line);
			}
			elsif ($grammar =~ m/(?=$RULEVARPATMK)/gco
				and do { ($code <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	3287	3403	
==>stmt };
	    $labels{$curlabel->{label}} = $output2[-1] if $curlabel;
	    undef $curlabel;
	}
    }

    # Second, s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541269	541623	
==>,
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 626,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 1022 \"src <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1860	2060	
==>sult} == $op->{arg1} ) {
            print {$FH}
                "  $op->{op} $op->{result}->{symbol}, $op->{arg2}->{symbol}\n";
        }
        else {
            print {$FH}
                " <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1390	1519	
==>avert your eyes, kind souls.
sub _traverse_treelet_bit {
  DEBUG > 2 and print "Handling $_[1] paragraph event\n";
  my $self = sh <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	24378	24494	
==>y($self, $fh) = @_;

    if( defined $fh ) {
        $self->{Todo_FH} = _new_fh($fh);
    }
    return $self->{Todo_F <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	13325	13467	
==>all->{$this};

    while (@todo) {
        my $n   = shift @todo;
        my $sub = $all->{$n};
        next if $n eq 'default';

        my %p <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1644	1735	
==>t::PGE::_generate_subrule_pir($target, $pattern)
        : Parrot::Test::PGE::_generate_pir_ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2167	2258	
==>t::PGE::_generate_subrule_pir($target, $pattern)
        : Parrot::Test::PGE::_generate_pir_ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	32834	33010	
==>(
           [sort { ref $a ? -1 : ref $b ? 1 : $a cmp $b } @$a1],
           [sort { ref $a ? -1 : ref $b ? 1 : $a cmp $b } @$a2]
    );
}

=back


=head2 Extending and Embeddi <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	13973	14145	
==>force it though.  Honor system!  :)
}
sub parse_case {
	my @a;
	my $s=$selects[-1];
	my($jump, $incase)=($s->{jump}, $s->{incase});
	
	if ($syms[NEXT] eq "else") {
		feedme( <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	882	1057	
==>type and $type=~/^[INPS]$/;
  my @temp;
  for(0..31) {
    next if $self->{regs}->{$type}{$_} == 1;
    last if $count<=0;
    push @temp,"$type$_";
    $self->{regs}->{$type}{ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3344	3448	
==>s $props{fn} or exists $props{fnlib}) {
    my $fnlib;

    if (exists $props{fnlib} and $props{fnlib}) { <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6008	6112	
==>s $props{fn} or exists $props{fnlib}) {
    my $fnlib;

    if (exists $props{fnlib} and $props{fnlib}) { <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2588	2695	
==>sym);

  $block->push_content($self);

  return $self;
}

# block handled by superclass?

sub kind  { return <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2705	2811	
==>sym);

  $block->push_content($self);

  return $self;
}

# block handled by superclass?

sub kind { return <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59675	59778	
==>"<uncommit>",$line);
			$aftererror = 0;
		}
		elsif ($grammar =~ m/$ERRORPROD/gco)
		{
			pos($grammar) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	1943	2196	
==>:Ops::Tree);
@Regex::Ops::Tree::code::ISA         = qw(Regex::Ops::Tree);

# Construct a new op
sub op {
    my ($class, $name, $args, %opts) = @_;

    $class = ref($class) if ref $class;
    while (1) {
        last if UNIVERSAL::isa("${class}::$name", <==
2	/Users/nnunley/parrot/lib/Test/More.pm	11995	12104	
==>ass->can(...)";
    
    my $ok = $Test->ok( !@nok, $name );

    $Test->diag(map "    $class->can('$_') faile <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	334671	334962	
==>ODE" => 392,
                  "ARGS" => [
                              "p",
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 56 \"src/ops/io.ops\"\n  /* These char * need to go away soon */\n  const char <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	466	568	
==>This script is used for building
dynamic PMCs.

=cut

use strict;

use File::Copy qw(copy);

# qq[] isn <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	428	530	
==>This script is used for building
dynamic PMCs.

=cut

use strict;

use File::Copy qw(copy);

# qq[] isn <==
2	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	650	790	
==>.= ' -lpthread';
    }
    if ($libs !~ /-laio/) {
        $libs .= ' -laio';
    }
    $conf->data->set(libs => $libs);

    for my $ldflags <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	29811	29909	
==>_}, english_func($_), qq{\n};
			}
		}
		print FUNC<<FUNCEND;
	goto UF_DISPATCH_END
UF_DISPATCH_END <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	19579	19706	
==>x and ref $treelet->[$i] and $treelet->[$i][0] eq 'X') {
        DEBUG > 3 and print "   Nixing X node at $i\n";
        splice( <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	6501	6602	
==>e wrong method.

.sub unicode:"dyadic:\u2296" :multi(pmc, APLVector) # rotate
    .param int op1
    . <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15804	15919	
==>ttp://www.w3.org/TR/xhtml1/DTD/xhtml-lat1.ent
 http://www.w3.org/TR/xhtml1/DTD/xhtml-special.ent
 http://www.w3.org/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646207	646491	
==>ME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 722,
                  "ARG <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	263	378	
==>EADING;
Name & Done & Total & Percent \\\\
\\hline
HEADING
foreach (@results) {
	print "$_->{'name'} & $_->{'do <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1256	1364	
==>we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
dec ${ITEM <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2966	3074	
==>we're maintaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
dec ${ITEM <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	686	788	
==>pTrans::Compiled->new;

use Data::Dumper;
$Data::Dumper::Useqq  = 1;
$Data::Dumper::Terse  = 1;
$Data:: <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	16305	16512	
==>lf->get_token) {
     ...process each token...
   }
 }

=head1 DESCRIPTION

This class is for using Pod::Simple to build a Pod processor -- but
one that uses an interface based on a stream of token objects,
i <==
2	/Users/nnunley/parrot/tools/dev/mk_inno.pl	461	629	
==>ns

=over 4

=item C<prefix>

The install prefix.

=item C<version>

The parrot version.

=item C<icudir>

The directory to locate ICU.

=back

=head1 SEE ALSO

http://w <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	29611	29792	
==>r') {
          $self->whine(
            $para->[1]{'start_line'},
            "'=item' outside of any '=over'"
          );
          unshift @$paras,
            ['=over', {'start <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20825	21118	
==>_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21625	21918	
==>_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116736	117137	
==>,
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 145,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 209 \"src/ops/bit.o <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24089	24242	
==>->{code}}, <<DIMARR;
	# Set aside storage for Array $var
	\$P0 = new .PerlHash
	\$P2 = new .PerlArray
	\$P3 = new .PerlHash
	\$P3["index"]=\$P2
	\$P3["has <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	6154	6310	
==>e {
	next unless -e $src;
	copy($src, $dest) or die "copy $src to $dest: $!\n";
	print "$dest\n";
    }
    my $mode = (stat($src))[2];
    chmod $mode, $des <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	46067	46202	
==>.
  for( my $i = 2; $i > $#$p; $i++ ) { # work forwards over the tokens except for the last
    if( !ref($p->[$i]) and !ref($p->[$i + 1] <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10022	10139	
==>('slash');
    my $verbose = $conf->options->get('verbose');

    if (defined($_[0]) && length($_[0])) {
        local <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10603	10720	
==>('slash');
    my $verbose = $conf->options->get('verbose');

    if (defined($_[0]) && length($_[0])) {
        local <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	30887	31021	
==>/* else its from runops_fromc */\n\tparrot_context_t * const caller_ctx = PMC_cont(ccont)->to_ctx;\n\tif (! caller_ctx) {\n\t    real_e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6411	6806	
==>_file",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 9,
                  "ARGS" => [
                              "sc"
                            ],
                  "BODY" => "#line 144 \"src/ops/core.ops\"\n    Parrot_load_bytecode(interpreter, {{\@1}});\n    {{+=2 <==
2	/Users/nnunley/parrot/lib/Test/More.pm	5536	5658	
==>ier
to find the test in your script, simply search for "simple
exponential".

All test functions take a name argument.  It' <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	1170	1293	
==>sub struct {

    # Determine parameter list structure, one of:
    #   struct( class => [ element-list ])
    #   struct( c <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	34486	34594	
==>b STORE_SLICE_plus_1 {
    return Store_Slice(@_, 1);
}
sub STORE_SLICE_plus_2 {
    return Store_Slice(@_, 2 <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	8831	9043	
==>gen_pir {
    my ($opcode, $arg, $rest, $cmt) = @_;
    no strict "refs";
    &$opcode($arg, $rest, $cmt);
}

sub temp {
    my $t = $_[0];
    "\$$t" . ++$temp;
}

sub is_num {
    my $c = $_[0];
    my ($pointfl <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	33768	33880	
==>_plus_2 {
    return Slice(@_, 2);
}
sub SLICE_plus_3 {
    return Slice(@_, 3);
}

sub Store_Slice
{
    my ($n, <==
2	/Users/nnunley/parrot/lib/Test/More.pm	17529	17704	
==>+)?$/ ) {
        # probably a version check.  Perl needs to see the bare number
        # for it to work with non-Exporter based modules.
        eval <<USE;
package $pack;
us <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	3587	3688	
==>t attribute="Int" context="#stay" />
END

print <<END;
          <RegExpr attribute="Register" context <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	911	1020	
==>lass;

  $block->push_content($self);

  return $self;
}

sub left  { return shift->{LEFT};  }
sub right { ret <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	919	1028	
==>lass;

  $block->push_content($self);

  return $self;
}

sub left  { return shift->{LEFT};  }
sub right { ret <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	102	208	
==>ict;

my $fail_label = Regex::Ops::Tree::mark('FAIL');

sub init_context {
    my ($self, $ctx) = @_;
    $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	103	209	
==>ict;

my $fail_label = Regex::Ops::Tree::mark('FAIL');

sub init_context {
    my ($self, $ctx) = @_;
    $ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	1597	1712	
==>lative_path($dist->c_source_file_with_name($name)), 
                $dist->relative_path($dist->c_header_file_with_ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1171	1273	
==>my ($self, $label) = @_;
    return () unless $self->{DEBUG};
    return () unless $self->{DEBUG_SUPPOR <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	661	763	
==>my ($self, $label) = @_;
    return () unless $self->{DEBUG};
    return () unless $self->{DEBUG_SUPPOR <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	358	464	
==>my @data=();
sub parse_keys {
	feedme();
	my $targ=$syms[CURR];
	feedme();
	feedme() while($syms[CURR] =~ / <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017487	1017925	
==>ime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1137,
                  "ARGS" => [
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 182 \"src/ops/sys.o <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	930	1074	
==>se File::Basename;

my @files = @ARGV;

if (! @files) {
    die "Usage: $0 <source files>\n" .
        "       $0 all_source\n";
}

if ($files[0] <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	606	713	
==>ix) {
    $prefix = $self->prefix;
  }
  else {
    $prefix = $self->peer ? $peer->prefix : $compiler->block <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	586	693	
==>ix) {
    $prefix = $self->prefix;
  }
  else {
    $prefix = $self->peer ? $peer->prefix : $compiler->block <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	2693	2848	
==>lashes                      => 1,
        conditioned_lines                    => 1
    );
    genfile(
        'config/gen/makefiles/dynoplibs.in' => 'src/ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10401	10575	
==>$last) = @$_;
        } else {
            ($first, $last) = ($_, $_);
        }
        push @ranges, [ ord($first), ord($last) ];
    }

    return _ranges_to_incexc(\@range <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	900	1131	
==>el($arg);
    }
    return @indices;
}

=item method combineLabels(label1, label2, ...)

Creates a new label to represent a group of label objects. Also
remembers what the original names are so a comment giving them can be
generated <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5026	5124	
==>os]");
    my $fail = $self->output_label_use($failLabel);
    my $pass = $self->output_label_use($ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4701	4799	
==>os]");
    my $fail = $self->output_label_use($failLabel);
    my $pass = $self->output_label_use($ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826636	826733	
==>RY_FLOAT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827706	827803	
==>RY_FLOAT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\ <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	18424	18541	
==>, v0.59.

    Added the ability for compile time class creation.

Modified by Damian Conway, 1999-03-05, v0.58.

    A <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	205	346	
==>p6rule_is("   int argc ",
    [
        [ type    => 'int | double | float | char' ],
        [ ident   => '\w+' ],
        [ _MASTER => ':w<t <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	8867	8986	
==>_restore ($temp);
    $temp = $self->_generate($_);
  }

  $self->_add_inst('', 'set', ['P5', $temp]);

  $self->_add_in <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	1374	1473	
==>sizableFloatArray => 65,
	ResizableIntegerArray => 66,
	ResizablePMCArray => 67,
	ResizableStringArr <==
2	/Users/nnunley/parrot/config/init/defaults.pm	3413	3583	
==>le module extension
        load_ext => ".$Config{so}",
        a        => $Config{_a},        # library or archive extension
        exe      => $Config{_exe},      # ex <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	6187	6294	
==>or release"
        if index($Test::force_todo_test_junction, ' '~$Test::num_of_tests_run~' ') >= 0;

    if <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	385805	386338	
==>base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 450,
                  "ARGS" => [
                              "p",
                              "ic",
                              "i",
                              "i"
                            ],
                  "BODY" => "#li <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4817	4918	
==>pe = $dest_ident->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();

    $compiler->emit("  $pm <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2880	2981	
==>pe = $dest_ident->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();

    $compiler->emit("  $pm <==
2	/Users/nnunley/parrot/lib/Test/More.pm	31346	31514	
==>$a1, $a2 ) {
        warn "eq_hash passed a non-hash ref";
        return 0;
    }

    return 1 if $a1 eq $a2;

    my $ok = 1;
    my $bigger = keys %$a1 > keys %$a2 ? <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	14069	14201	
==>ng;
}

=item C<write_html($source, $target, $rel_path, $item)>

Writes an HTML version of the file specified by C<$rel_path> in
C<$so <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	2716	2832	
==>}
	my $pat = join '|', @pat;
	return "(?:$pat)";
}

*delimited_pat = \&gen_delimited_pat;


# THE EXTRACTION FUNCTION <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	22394	22553	
==>op('goto', [ $lastback ]),
          $next =>
                  );

        return ($back, @ops);
    } else {
        my $rfail = $self->genlabel('nongreedy_st <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	12117	12268	
==>goto', [ $next ]),
                $back => aop('increment', [ -1, $lastback ]),
                         aop('goto', [ $lastback ]),
                $n <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24104	24259	
==>(<value> <op> <value>);
    #

    if ($token->is_loop_control) {
      my $block = $self->current_block();
      my $kind = $token->text;

      my $target <==
2	/Users/nnunley/parrot/examples/benchmarks/freeze.pl	32	144	
==>2006, The Perl Foundation.
# $Id: /parrot/examples/benchmarks/freeze.pl 19601 2006-05-30T13:32:26.641316Z coke  $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4952	5103	
==>self->require_ident);
      my $name = $ident->value;

      #
      # Allow there to be Properties:
      #

      my %props;

      while ($self->skip <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7946	8097	
==>self->require_ident);
      my $name = $ident->value;

      #
      # Allow there to be Properties:
      #

      my %props;

      while ($self->skip <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	317783	318036	
==>internal_exception(1, \"Overflow exception for conv_i2_ovf\");\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	8387	8577	
==>ata->set(pod => $pod);

        genfile(
            'config/gen/makefiles/docs.in', 'docs/Makefile',
            commentType       => '#',
            replace_slashes   => 1,
            con <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	3182	3336	
==>extref, "Not a delimited pattern", 0)
		unless $$textref =~ m/\G($pre)($pat)/gc;
	my $prelen = length($1);
	my $matchpos = $startpos+$prelen;
	my $endpos = <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17849	18006	
==>$;d$;e$
next j,i

' Select-case (all positive)
t=50
select case t
case 10
	print "Wrong"
case 50
	select case g
	case 6
		print "Wrong again!"
	case 0
		print <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4362	4476	
==>);

    die "Unrecognized type '$type' for num '$num' in opcode @{[$op->full_name]}"
        unless exists $arg_map <==
2	/Users/nnunley/parrot/languages/urm/urm-old.pl	591	694	
==>ster{$1} = 0 unless defined $register{$1}}
    if ($line =~ /out\((r\d+)/) { $outreg = $1 }
    if ($lin <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19284	19421	
==>a$,t$,d$
print a,b,y.first
print a$,t$,d$
for i=1 to 5
	read h
	print h,
next i
print
restore 20
for i=1 to 5
	read h
	print h,
next i
pri <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1100029	1100281	
==>19,
                  "ARGS" => [
                              "n",
                              "nc",
                              "i"
                            ],
                  "BODY" => "#line 296 \"src/ops/experimental.ops\"\n    FLOATVAL n <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	495	597	
==>f;
use Jako::Construct::Block::Conditional::Unless;
use Jako::Construct::Block::File;
use Jako::Constru <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3281	3398	
==>har *   _reg_base   asm ("edi");
#else
    opcode_t *cur_opcode = cur_op;
    char * _reg_base;
#endif

SWITCH_RELOAD: <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	8090	8263	
==>h
cacosf      complex.h
cacosh      complex.h
cacoshf     complex.h
cacoshl     complex.h
cacosl      complex.h
calloc      stdlib.h
carg        complex.h
cargf       complex <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9001	9115	
==>_tmp>; # nope, set pos := popped index");
}

sub output_popint {
    my ($self, $reg, $db_desc) = @_;
    $reg = va <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9308	9421	
==>_tmp> # nope, set pos := popped index");
}

sub output_popint {
    my ($self, $reg, $db_desc) = @_;
    $reg = va <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	3034	3178	
==>1 is inferred.
#

sub get
{
  my $self = shift;
  my ($offset, $count) = @_;

  $offset = 0 unless defined $offset;

  my $pos = $self->pos;

  $ <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	15438	15610	
==>n order to provide
additional checking of values, etc.  Here, we want the C<count>
element always to be nonnegative, so we redefine the C<count>
accessor accordingly.

    p <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14238	14372	
==>ase, at least

  DEBUG and print "Title0: <$title>\n";
  $title = rtf_esc($title);
  DEBUG and print "Title1: <$title>\n";
  $title = ' <==
2	/Users/nnunley/parrot/lib/Test/More.pm	10075	10206	
==>ng any binary perl operator.

    # ok( $this eq $that );
    cmp_ok( $this, 'eq', $that, 'this eq that' );

    # ok( $this == $tha <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	35351	35468	
==>pcodes1, @{$block};
    push @opcodes1, new BranchOp( $parser,
        'result' => $lbl_loop,
    );
    push @opc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1073806	1074054	
==>",
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 65 \"src/ops/experimental.ops\"\n  /* r0 = q1*r1 + r2 */\n  INTVAL r0 = {{\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	8410	8503	
==>turn;
}

#--------------------------------------------------------------------------
sub unacc <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10227	10320	
==>turn;
}

#--------------------------------------------------------------------------
sub unacc <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	25213	25487	
==>il);

    my @ops = (
                        @R_ops,
                        aop('pushint', [ 1 ]),
                        aop('goto', [ $next ]),
               $back => aop('popint', [ '<tmp>', 'optional marker' ]),
                        aop('if', [ '<tmp>', $R_back ]) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840135	840220	
==>ine 272 \"src/ops/stack.ops\"\n  rotate_entries(interpreter, &CONTEXT(interpreter->ctx <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840830	840915	
==>ine 272 \"src/ops/stack.ops\"\n  rotate_entries(interpreter, &CONTEXT(interpreter->ctx <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	20159	20303	
==>true:

  ok 1
  ok 2
  ok 3

or this if false

  ok
  ok
  ok

Most useful when you can't depend on the test output order, such as
when threads o <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	5105	5242	
==>fe in perl 5.8.0 and up.

=head1 HISTORY

This module was conceived while talking with Tony Bowden in his
kitchen one night about the prob <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	806	1094	
==>00
                              #
print "Iterations:    $I4\n"; # print  "Iterations:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mu <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	806	1094	
==>00
                              #
print "Iterations:    $I4\n"; # print  "Iterations:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mu <==
2	/Users/nnunley/parrot/config/auto/isreg.pm	153	312	
==>sreg - S_ISREG

=head1 DESCRIPTION

Determines if the C library has a working C<S_ISREG>.

=cut

package auto::isreg;

use strict;
use vars qw($description @arg <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	731	831	
==>sa($block, qw(Jako::Construct::Block));
  confess "Type (" . ref($type) . ") is not!"   if defined $t <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	614	711	
==>sa($block, qw(Jako::Construct::Block));
  confess "Type (". ref($type) . ") is not!" if defined $t <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	14473	14565	
==>pped</span> and
		<span class="tests_unexpect"><tmpl_var name=unexpect> unexpectedly succeede <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	12403	12563	
==>1 >= 0 goto pos_loop
    iter = 4 # ITERATE_FROM_END

neg_loop:
    if op1 == 0 goto done
    unless iter goto done

    $P1 = pop op2  # have to pop when iterat <==
2	/Users/nnunley/parrot/lib/File/Which.pm	4153	4263	
==>hich> takes extra steps to assure that you
will find the correct file (so for example, you might be searching f <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	57690	57804	
==>g, otherwise extract anything up to a comma...">.
The undef third argument means:
I<"...as many times as possible.. <==
2	/Users/nnunley/parrot/examples/benchmarks/freeze.pl	492	720	
==>time();
for my $i (0..99999) {
    push @a, $i;
};
my $e = time();
printf "constr.time %.6f\n", $e-$s;

$s = time();
my $image = freeze(\@a);
$e = time();
printf "freeze time %.6f\n", $e-$s;

$s = time();
my @b = @{ thaw $image } <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	581	705	
==>ELSE' },
  'sub'      => { PREFIX => "_S", NEXT => 'TEST', REDO => 'THEN', LAST => 'ELSE' }, # TODO: fix these
);


#
# new() <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	602	726	
==>ELSE' },
  'sub'      => { PREFIX => "_S", NEXT => 'TEST', REDO => 'THEN', LAST => 'ELSE' }, # TODO: fix these
);


#
# new() <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10214	10353	
==>t_args ($node, 2) ] };
  }
  else {
    $symbol = _get_arg($node,1)->{value};
    $lambda = _get_arg($node,2);
  }

  if (exists $self->{sco <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	156	250	
==>sename;

=head1 NAME

Parrot::Test::Punie -- testing routines for languages/punie

This is larg <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39485	39607	
==>{symbol},
        'type'   => 'Sub',
    );
    push @opcodes1, new NewClosureOp( $parser,
        'result' => $result, <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7829	7925	
==>not happen (string)"
i%=0
if i% then print "Should not happen (int)"
i%=54
if i% then print "This <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14816	14912	
==>not happen (string)"
i%=0
if i% then print "Should not happen (int)"
i%=54
if i% then print "This <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11935	12028	
==>ntent)

Given a name or number that could appear in a
C<EE<lt>name_or_numE<gt>> sequence, this <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12432	12525	
==>ntent)

Given a name or number that could appear in a
C<EE<lt>name_or_numE<gt>> sequence, this <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	3065	3300	
==>ng type
            # ? -Wmissing-declarations
            #   Warn if a global function is defined without a previous
            #   declaration -Wmissing-noreturn
            # ? -Wredundant-decls
            #    Warn if anything is <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3389	3491	
==>pop s\n"
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$register_num++;
	}

	# Return generated cod <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761536	761839	
==>\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "setp_ind",
                  "FLA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599619	599997	
==>ject_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 679,
                  "ARGS" => [
                              "p",
                              "k"
                            ],
                  "BO <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12723	12886	
==>ise = Jako::Construct::Statement::Bitwise->new($block, $ident, $ident, $op, $value);
      next;
    }

    #
    # Block Termination:
    #
    #   }
    #   } con <==
2	/Users/nnunley/parrot/tools/dev/symlink.pl	2615	2734	
==>cfile $dstfile failed: $!\n";
		}
	    }
	}
    }
    warn "$self: could not find any files to symlink\n" unless @srcfil <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	2307	2431	
==>ath);
    }
    
    return -e $self->parent_path;
}

=item C<path()>

Returns the actual path.

=cut

sub path
{
    my $sel <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	1437	1564	
==>per\n";
}

# Pre and post load operation hooks.
sub pre_load {
	die "pre_load not implemented for current stack to register mapp <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	989	1073	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub handle_tex <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	773	857	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub handle_tex <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5121	5246	
==>ARSE;
	}
	if ($syms[CURR] eq "else") {   #  and $singleif) {
		my $c=pop @ifstack;
		push(@ifstack, -1);
		if (! $c) { 
			die <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28849	28948	
==>rcount} . '__'; }

sub issubrule { undef }
sub isterminal { 1 }
sub describe ($) { shift->{'descript <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30929	31028	
==>rcount} . '__'; }

sub issubrule { undef }
sub isterminal { 1 }
sub describe ($) { shift->{'descript <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	72828	72938	
==>le ( values %{$self->{"rules"}} )
	{
		if ($rule->{"changed"})
		{
			$code .= $rule->code($self->{"namespace"} <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21353	21510	
==>Descent::_trace(q{<<Didn\'t match action>> (return value: [undef])})
					if defined $::RD_TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent:: <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	3485	3632	
==>w = time;
    utime $now, $now, $to;

    return 1;
}

=item C<move_if_diff($from, $to, $ignorePattern)>

Moves the file specified by C<$from> to th <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2678	2810	
==>ation hooks.
sub pre_branch($) {
	my $self = shift;
	my $pops = shift;
	my $register_num = 0;
	
	# Emit initial code.
	my $pir = <<'P <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3205	3326	
==>d::Simple::ASCII) {
    $self->{'Thispara'} =~ tr{\xA0}{ };
    $self->{'Thispara'} =~ tr{\xAD}{}d;
  }

  my $i = ' ' x ( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2693	2814	
==>d::Simple::ASCII) {
    $self->{'Thispara'} =~ tr{\xA0}{ };
    $self->{'Thispara'} =~ tr{\xAD}{}d;
  }

  my $i = ' ' x ( <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	14441	14630	
==>th -r" );
            }

            my ( $exit_code, $cmd );
            unless ( $run_exec ) {
                if ( $args =~ s/--run-pbc// || $args =~ s/-r // ) {
                    my $p <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35623	35742	
==>"subrule"} }
sub isterminal { 0 }
sub sethashname { }

sub describe ($)
{
	my $desc = $_[0]->{"expected"} || $_[0]->{"su <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	858	976	
==>\x{%X}", ord($1))
    /eg;
  }
  return join ', ', @out;
}


__END__

=head1 NAME

Pod::Simple::PullParserToken -- toke <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	3079	3295	
==>= $self->read;
    # Break up the $Id to prevent svn messing with it.
    my ($id) = $content =~ /((?:\$)Id:[^\$]+\$)/so;
    
    return $id;
}

=item C<has_svn_id()>

Returns whether the file has a svn C<$Id> string <==
2	/Users/nnunley/parrot/lib/Test/More.pm	22514	22609	
==>re are,
and you'll know immediately when they're fixed.

Once a todo test starts succeeding, sim <==
2	/Users/nnunley/parrot/config/gen/platform.pm	1870	2091	
==>form/generic/$_";
        if (-e "config/gen/platform/$platform/$_") {
            $header_file = "config/gen/platform/$platform/$_";
        }

        if (-e $header_file) {
            local $/ = undef;
            prin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093190	1093616	
==>AME" => "morph",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1212,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#lin <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	345	539	
==>s/;.*$//;
    $text .= $_;
  }
  close SOURCE;

  for my $ch (split //,$text) {
    if($ch eq '(' or
       $ch eq ')') {
      push @$tokref,$token;
      $token = $ch;
    } elsif($ch eq '-' an <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	14537	14672	
==>e which may be used instead of the corresponding
regular expression, or undef if it's argument is not recognised.

For example, a versio <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	635	818	
==>ck 'VV', $l & MAX , ($l >> 16 >> 16);
}


sub rotate_left($$) {
	#$_[0] << $_[1] | $_[0] >> (32 - $_[1]);
	#my $right = $_[0] >> (32 - $_[1]);
	#my $rmask = (1 << $_[1]) - 1;
	($_[0] < <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660136	660242	
==>{\@2}}->vtable->exists_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661058	661164	
==>{\@2}}->vtable->exists_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4284	4423	
==>e)>

Returns whether a file with the specified name exists in the directory.

=cut

sub file_exists_with_name
{
    my $self = shift;
    my <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9018	9177	
==>EMP0} = concat ${STEMP1}
goto POST_STORE_${CURIC}_CONT

# Can do a lazy move.
POST_STORE_${CURIC}_LAZY_MOVE:
${STEMP0} = pop lazy_moves

# Emit move.
POST_STORE <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	2659	2762	
==>{
END_C

    print OUT "    register_pmc(interp, registry, enum_class_$_);\n" foreach (@pmcs);
    print <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189778	189927	
==>integer(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190719	190868	
==>integer(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215067	215250	
==>integer(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216008	216191	
==>integer(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104375	104736	
==>n_bnots",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 130,
                  "ARGS" => [
                              "p",
                              " <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	3434	3739	
==>val{hugeintval}) {
            $conf->data->set(int8_t => undef);
            next;
        }

        if ($hugeintval{hugeintvalsize} > $intvalsize) {
            # We found something bigger than intval.
            $conf->data->set(%hugeintval);
            last;
        }
    }
    if (!defined($hugein <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	537329	537829	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sinh",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	536578	536883	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sin",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	13660	13846	
==>signal      signal.h
signbit     math.h
sin         math.h
sinf        math.h
sinh        math.h
sinhf       math.h
sinhl       math.h
sinl        math.h
sprintf     stdio.h
sqrt        m <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	14879	15028	
==>";
            }
        }
        my $call_params = join(",", @$args);
        my @tempi = grep { defined $temp[$_] } 0..$#$args;
        my $temp_de <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	448	555	
==>sub new
{
  my $class = shift;

  confess "Expected 3 args!" unless @_ == 3;
  my ($block, $ident, $props) = <==
2	/Users/nnunley/parrot/tools/dev/manicheck.pl	1288	1533	
==>n",
  scalar( keys %{$file_list} );

printf "  %5d missing\n",  scalar @missing;
printf "  %5d extra\n",    scalar @extra;

# TODO: Use Data::Dumper
if (@missing) {
    print "\n";
    print "Missing files:\n";
    foreach (@missing) {
        pr <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	4312	4473	
==>AL::isa(\$init{'$name'}, '$type'))\n";
            $out .= "            { \$r->$elem = \$init{'$name'} } $cmt\n";
            $out .= "       else { croak 'Initia <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93438	93726	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94218	94506	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bands",
                  "FLAGS" => ":base_core",
                  "ARG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361688	361787	
==>st s = Parrot_sprintf_c(interpreter, INTVAL_FMT, {{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362587	362686	
==>st s = Parrot_sprintf_c(interpreter, INTVAL_FMT, {{\@2}});\n    PIO_putps(interpreter, {{\@1}}, s);\ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8447	8579	
==>elf->require_open_paren;

      my @formal_args;

      unless ($self->skip_close_paren) {
        while (1) {
          my $arg_type <==
2	/Users/nnunley/parrot/config/inter/encoding.pm	903	1046	
==>ding
END
        {
            $encoding_list = prompt('Which encodings would you like?', $encoding_list);
        }
    }

    # names of class <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5389	5505	
==>te, compile, linklibs, or copy\n";
}

sub run {
    print join(" ", @_), "\n";

    return system(@_) == 0;
}

# XXX: <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5600	5716	
==>te, compile, linklibs, or copy\n";
}

sub run {
    print join(" ", @_), "\n";

    return system(@_) == 0;
}

# XXX: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	631	727	
==>uct::Block');
  confess "Ident is not!" unless UNIVERSAL::isa($ident, 'Jako::Construct::Expressio <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	519	615	
==>uct::Block');
  confess "Ident is not!" unless UNIVERSAL::isa($ident, 'Jako::Construct::Expressio <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	2686	2838	
==>place_slashes                      => 1,
        conditioned_lines                    => 1
    );
    genfile(
        'config/gen/makefiles/dynoplibs.in <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1649	1784	
==>> \$dotpos,
				STACK => [],
				DEBUG => 0,
				CHECK => \$check };

	_CheckParams( [], \%params, \@_, $self );

		exists($$self <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1593	1721	
==>> \$dotpos,
				STACK => [],
				DEBUG => 0,
				CHECK => \$check };

	_CheckParams( [], \%params, \@_, $self );

		exists($$self <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	364	473	
==>= @_;

    Test::More->import( $plan, @args );

    __PACKAGE__->_export_to_level( 2, __PACKAGE__ );
}

my $co <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	281	390	
==>= @_;

    Test::More->import( $plan, @args );

    __PACKAGE__->_export_to_level( 2, __PACKAGE__ );
}

my $co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64601	64696	
==>ODY" => "#line 981 \"src/ops/core.ops\"\n  Interp * const new_interp = (Interp *)PMC_data({{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65552	65647	
==>ODY" => "#line 981 \"src/ops/core.ops\"\n  Interp * const new_interp = (Interp *)PMC_data({{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9049	9157	
==>e_offset = fe->offset;\n        Parrot_switch_to_cs(interpreter, fe->seg, 1);\n    }\n    string_cstring_free <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10165	10273	
==>e_offset = fe->offset;\n        Parrot_switch_to_cs(interpreter, fe->seg, 1);\n    }\n    string_cstring_free <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11232	11376	
==><rx_mode> goto $trymatch
  goto $backup
END

    return @ops;
}

sub output_rule_end {
    my ($self, $name) = @_;
    return ("end", ".end # End <==
2	/Users/nnunley/parrot/tools/dev/as2c.pl	1022	1162	
==>$bytes =~ m/../g);
	    print "    ". join '', map {"0x$_, "} @pairs;
	    print " " x (3*(8 - $len));
	    print "    /* $src */\n";
	}
	els <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	36469	36623	
==>and
           print "     FOUND a '|' in it.  Splitting into [$1] + [$2]\n";

          unshift @link_text, splice @ell_content, 0, $j;
            # leav <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	2459	2670	
==>store_lex
sub _find_lex {
  my ($self, $symbol) = @_;
  my $return = $self->_save_1 ('P');
  $self->_add_inst ('','find_lex',[$return,"\"$symbol\""]);

  return $return;
}

sub _store_lex {
  my ($self, $symbol,$ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	29439	29538	
==>";
		}
	}
	push @{$code{$t}->{code}}, "\t.return $seg\n";
	$seg="_basicmain";
	$funcname="";
	return <==
2	/Users/nnunley/parrot/tools/dev/as2c.pl	235	398	
==>src.s";

&print_header($src);
&create_s($cmd);
&parse_s("$src.s");
&add_glue("$src.c");

sub print_header {
    my $s = shift;
    print <<EOT;
/*
 * DO NOT EDIT TH <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	386	478	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub new {
  my $self = sh <==
2	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	277	439	
==>Create a parser that outputs an Array
$::RD_ERRORS = 1;
$::RD_WARN   = 1;
$::RD_HINT   = 1;
#$::RD_TRACE  = 1;
$::RD_TRACE  = undef;
my $frozen_parser = Parse::Rec <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22770	22936	
==>eq 'start' and $t->tagname =~ m/^head\d$/s;
        $title = $t->text . $title if $t->type eq 'text';
      }
      undef $title if $title =~ m<^\s*$>; # make sure it' <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	58542	58652	
==>ypical use of C<gen_delimited_pat> would be to build special purpose tags
for C<extract_tagged>. For example, t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553844	553950	
==>ct;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+4}};\n  int <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555241	555347	
==>ct;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+4}};\n  int <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3239	3341	
==>T(%ld)->u.key",
    'sc' => "CONST(%ld)->u.string",
    'kc' => "CONST(%ld)->u.key",
    'kic' => "cur_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2149	2247	
==>T(%ld)->u.key",
  'sc'  => "CONST(%ld)->u.string",
  'kc'  => "CONST(%ld)->u.key",
  'kic' => "cur_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	610979	611211	
==>=> [
                              "p",
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 491 \"src/ops/object.ops\"\n    VTABLE_set_attr(interprete <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	19212	19343	
==>mode on\n") : (),
   $nixx  ? (" Nix-X mode on\n") : (),
  ;    
  

  my($i, $treelet);
  while($treelet = shift @stack) {
    DEBU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	306742	307006	
==>AME" => "unless_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307535	307799	
==>AME" => "unless_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133874	134097	
==>_xor(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134655	134878	
==>_xor(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	7679	7949	
==>>{type} eq 'expr') {
                $code .= emit("temp = a_$name()");
                
                # if that's all there is, remove it
                $line =~ s/^\s*a_$name\s*$//m or $line =~ s/a_$name/temp/;
            }
        }
        
        # $R
        $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9582	9728	
==>$self->{'output_fh'}} "\n<!-- end doc -->\n</body></html>\n";
   # TODO: allow for a footer
  return 1;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	2382	2493	
==>c and .h files are generated. The appropriate base class
header files are included.

If the C<noinit> flag was u <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	53275	53479	
==>variable($_[0], '') },
                sub { extract_quotelike($_[0],'') },
                sub { extract_codeblock($_[0],'{}','') },
        ]

is used.


=item 3.

An number specifying the maximum number <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	21345	21449	
==>variable($_[0], '') },
	sub { extract_quotelike($_[0],'') },
	sub { extract_codeblock($_[0],'{}','') },
] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240169	240291	
==>BLE_get_integer(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241117	241239	
==>BLE_get_integer(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6243	6349	
==>ton"
A$(3) = "Chicago"
A$(4) = "Seattle"
Max = 4 'UBOUND(A$)
Exchange=TRUE           ' Force first pass thr <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15896	16002	
==>ton"
A$(3) = "Chicago"
A$(4) = "Seattle"
Max = 4 'UBOUND(A$)
Exchange=TRUE           ' Force first pass thr <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	2736	2925	
==>}{$symb} ) {
            my $defn = $self->{table}{$symb};
            return $defn;
        }
        else {
            return undef;
        }
    }

    sub Insert {
        my <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	587377	587872	
==>RGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 668,
                  "ARGS" => [
                              "p",
                              "sc",
                              "k"
                            ],
                  "BODY" => "#line 314 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup <==
2	/Users/nnunley/parrot/config/gen/platform.pm	841	995	
==>mingw/;
    $platform =~ s/^ms//;

    if ((split('-', $Config{archname}))[0] eq 'ia64') {
        $platform = 'ia64';
    }

    $platform = 'generic' unl <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12383	12504	
==>ative to the current
documentation page. Currently only F<lib/Parrot> modules are linkable.
Returns C<undef> if the curren <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3764	3858	
==>f->SYNTAX_ERROR("Sub declaration has no fnlib property, and parent module has no fnlib property <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6428	6522	
==>f->SYNTAX_ERROR("Sub declaration has no fnlib property, and parent module has no fnlib property <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21532	21643	
==>,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(1);
  my $temp = $self <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21917	22028	
==>,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(1);
  my $temp = $self <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21916	22144	
==>> 29,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 356 \"src/ops/core.ops\"\n  if (!{{\@1}}->vtable->get_boo <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1191	1524	
==>d ops: "
                              # print  I5
                              # print  "\n"
                              #
$N1 = time_hires();           # time N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1191	1524	
==>d ops: "
                              # print  I5
                              # print  "\n"
                              #
$N1 = time_hires();           # time N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO <==
2	/Users/nnunley/parrot/lib/Test/More.pm	23318	23535	
==>BLOCK> except the
tests will be marked as failing but todo.  Test::Harness will
interpret them as passing.

=cut

sub todo_skip {
    my($why, $how_many) = @_;

    unless( defined $how_many ) {
        # $how_many can <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	63173	63345	
==>ing bracket>

C<extract_codeblock> failed to find a closing bracket to match the outermost
opening bracket.

=item C<Did not find opening tag: /%s/>

C<extract_tagged> did n <==
2	/Users/nnunley/parrot/config/inter/progs.pm	607	744	
==>args = qw(ask cc cxx link ld ccflags ccwarn linkflags ldflags libs debugging
    lex yacc maintainer);

sub runstep
{
    my ($self, $conf <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367822	367908	
==>io.ops\"\n  {{\@1}} = PIO_reads(interpreter, PIO_STDIN(interpreter), (size_t){{\@2}});\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368614	368700	
==>io.ops\"\n  {{\@1}} = PIO_reads(interpreter, PIO_STDIN(interpreter), (size_t){{\@2}});\ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	13988	14340	
==>_f,
                                        CD     => $path_to_parrot,
                                        STDOUT => $out_f,
                                        STDERR => $out_f);
                        }
                    }
                }
            }

            if ( $func =~ /^pbc_output_/ && $args =~ /-r / ) {
                # nat <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	9137	9357	
==>FH} "\n";
    }

    sub visitParamDir {
        my $self  = shift;
        my ($dir) = @_;
        my $FH    = $self->{fh};
        if ( exists $dir->{pragma} ) {
            print {$FH}
                "  .para <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	5123	5310	
==>t

sub exported_to {
    my($self, $pack) = @_;

    if( defined $pack ) {
        $self->{Exported_To} = $pack;
    }
    return $self->{Exported_To};
}

=item B<plan>

  $Test->plan('no_ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	1597	1697	
==>ISA         = qw(Regex::Ops::Tree::_onearg);
@Regex::Ops::Tree::atend::ISA        = qw(Regex::Ops::Tr <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	62415	62542	
==>f
a variable, but didn't find any of them.

=item C<Bad identifier after dereferencer>

C<extract_variable> found a '$', '@', or <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	13833	14031	
==>0];
  my $title = $self->get_short_title();
  DEBUG and print "Short Title: <$title>\n";
  $title .= ' ' if length $title;
  
  $title =~ s/ *$/ /s;
  $title =~ s/^ //s;
  $title =~ s/ $/, /s;
   # m <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	3463	3599	
==>};
        $cout .= <<"EOC";
    Parrot_Int type${class};
EOC
    }
    $cout .= <<"EOC";
    int pass;

    /*
     * create a library P <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6174	6286	
==>$group}->{lib} = 1;
        }
    }

    return (\%group_files, \%group_libs, \%pmc_group, \%pmc_libs);
}

sub mo <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6385	6497	
==>$group}->{lib} = 1;
        }
    }

    return (\%group_files, \%group_libs, \%pmc_group, \%pmc_libs);
}

sub mo <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	12786	12907	
==>ng else
        my $test = defined $got || defined $dont_expect;

        $self->ok($test, $name);
        $self->_cmp_dia <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	13230	13351	
==>ng else
        my $test = defined $got || defined $dont_expect;

        $self->ok($test, $name);
        $self->_cmp_dia <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	12201	12331	
==>"FLOATVAL t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_N($reg_num);";
        return "t_$ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	2942	3032	
==>'' . $_[1]{'section'} ) }
     __PACKAGE__->new->parse_string_document('=head1 L<Foo/bI<ar> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351451	351658	
==>nline",
                  "CODE" => 409,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 190 \"src/ops/io.ops\"\n  PIO_printf <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	929	1034	
==>e::_onearg::ISA      = qw(Regex::Ops::Tree);

@Regex::Ops::Tree::match::ISA        = qw(Regex::Ops::Tree:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714575	714670	
==>onst io = PIO_STDOUT(interpreter);\n  if (s && string_length(interpreter, s)) {\n    if (PIO_sof <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715498	715593	
==>onst io = PIO_STDOUT(interpreter);\n  if (s && string_length(interpreter, s)) {\n    if (PIO_sof <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	3017	3137	
==>= ($self->{rxlocals} ||= []);
    return (aop(comment => [ "restore rxlocals" ]),
            map { aop('popint' => [ $_, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	21887	22067	
==>mmar.y"
{ return $_[1] * 10 + $_[2]; }
	],
	[#Rule 34
		 'number', 1,
sub
#line 161 "lib/Regex/Grammar.y"
{ return $_[1]; }
	],
	[#Rule 35
		 'charclass', 4,
sub
#line 164 "lib/Rege <==
2	/Users/nnunley/parrot/config/auto/gdbm.pm	998	1199	
==>generalized way for finding
    # where Fink lives.
    if ($osname =~ /darwin/) {
        if (-f "/sw/include/gdbm.h") {
            $conf->data->add(' ', linkflags => '-L/sw/lib');
            $conf-> <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	1197	1316	
==>generalized way for finding
    # where Fink lives.
    if ($osname =~ /darwin/) {
        if (-f "/sw/include/gmp.h") { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377338	377590	
==>=> 441,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 432 \"src/ops/io.ops\"\n  {{\@1}} = Parrot_fs <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	911	1036	
==>y $lang_fn        = Parrot::Test::per_test( '.HQ9plus', $count );
        my $out_fn         = Parrot::Test::per_test( '.out', <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	28367	28560	
==>re.ops\"\n    opcode_t * const this = CUR_OPCODE;\n    PMC * const signature = {{\@1}};\n    INTVAL argc;\n\n    CONTEXT(interpreter->ctx)->current_results = this;\n    argc = SIG_ELEMS(signatur <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	27515	27662	
==>re.ops\"\n    opcode_t * const this = CUR_OPCODE;\n    PMC * const signature = {{\@1}};\n    INTVAL argc;\n\n    /* for now just point to the opcode <==
2	/Users/nnunley/parrot/Configure.pl	633	762	
==>tput extra information about the configuration data it
is setting.

=item C<--verbose=2>

Tells Configure.pl to output information <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	3459	3557	
==>}, $self) if $cut_handler;
  
);

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	14159	14431	
==>u can use the rather blunt pass()
functions and its compliment the flunk() function.

- `flunk (Str $desc?, Bool :$todo) returns Bool`

This is the opposite of pass()

- `diag (Str $diag)`

This will print each string with a '#' character appended to it, this is
ignored by <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	993	1226	
==>ust> be on its own line.

=head2 Op Arguments

Op arguments are a comma-separated list of direction and type pairs.

Argument direction is one of:

    in            the argument passes a value into the op
    out           the argume <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	4799	4922	
==>X $branch...\n";
	feedme();
	$loop=0;
	@onlab=();
	while($type[CURR] !~ /COMP|COMM|STMT/) {
		die if $loop++>255;
		if ($sym <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7221	7359	
==>G>		and	$act
#DBG>		and	print STDERR "Reduce using rule ".-$act." ($lhs,$len): ";

                $act
            or  $self->YYAccept <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6886	7020	
==>G>		and	$act
#DBG>		and	print STDERR "Reduce using rule ".-$act." ($lhs,$len): ";

                $act
            or  $self->YYAccept <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	10888	11000	
==>e.pmc super.pmc undef.pmc',
             'pmc_names' => 'Null Env Key Random UnManagedStruct ManagedStruct delega <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	5343	5452	
==>printf "%s\t%s\tOK\n", $api, $API{$api} || "-";
    }
}

printf "=== $Obj: %d interfaces ===\n", scalar keys % <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	5096	5208	
==>ion file.

=cut

sub process_file_start_token
{
    my $self = shift;
    my $token = shift;
    my $tagname = $t <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	3690	4047	
==>or in template subst: $@\n";
                        }
                    }
                    $asm = $tbody;
                    # reset iterator for next run
                    keys(%templates);
                    last;
                }
            }

            # end of template definition?
            if (defined($template)) {
                $te <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1538	1651	
==>rn) = (shift, shift);

    unshift @_ => 'matched';
    unshift @_ => ( ref $pattern
        ? Parrot::Test::PGE:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363418	363528	
==>> "#line 292 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, \"%f\", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364321	364431	
==>> "#line 292 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, \"%f\", <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	9216	9400	
==>ix
    if $I1 == -7 goto neg_seven

# XXX this right?
%% DOMAIN_ERROR %%
zero:
    $N1 = op2 * op2
    $N1 = 1 - $N1
    $N1 = sqrt $N1
    .return ($N1)
one:
    $N1 = sin op2
    .ret <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	2658	2783	
==>reach (1 .. scalar($op->arg_types) - 1) {
            die "$0: Premature end of bytecode in argument.\n"
                if ($ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22745	22853	
==>1);
  return $return;
}

sub _op_even_p {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4376	4535	
==>>) {
                	/^\s*sub\s+_Parse\s*{\s*$/ .. /^\s*}\s*#\s*_Parse\s*$/
        	and     do {
                	s/^#DBG>//;
                	push(@drv,$ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4155	4310	
==>>) {
                	/^\s*sub\s+_Parse\s*{\s*$/ .. /^\s*}\s*#\s*_Parse\s*$/
        	and     do {
                	s/^#DBG>//;
                	push(@drv,$ <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	3859	4069	
==>_visible{"ALL"}{$1}++;
            }
            
            next;
        }
        
        # end of variable block
        if ($variable && /^\s*$/) {
            undef $variable;
            next;
        } <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	34444	34550	
==>us_0 {
    return Store_Slice(@_, 0);
}
sub STORE_SLICE_plus_1 {
    return Store_Slice(@_, 1);
}
sub STORE <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	1281	1389	
==>lob( File::Spec->catfile( $DIR, "*.test" ) );
    for my $file (@files) {
        my $test = substr $file, 0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	395514	396042	
==>ork",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 459,
                  "ARGS" => [
                              "p",
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#li <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	401995	402388	
==>ork",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 465,
                  "ARGS" => [
                              "p",
                              "i <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	5418	5631	
==>y POD formatted documentation in the file.
Executable files are assumed not to contain POD.

=cut

sub contains_pod
{
	my $self = shift;
	
	$self->check_pod;
	
	return $self->{CONTAINS_POD};
}

=item C<num_pod_erro <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2319	2468	
==>block stack. We fill in the
  # IDENT entry within the block.
  #

  $sym = Jako::Symbol->new(
    $self->block,
    ($self->is_global ? 'global' : 'l <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2340	2442	
==>rce, $target, $silent)>

Iterates over the group's contents and calls C<write_html()> on each one.

Som <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	4669	4839	
==>e, @code)=EXPRESSION;  # The switch...
	feedme();
	my $branch=$syms[CURR];  # goto or gosub
	push @{$code{$seg}->{code}}, "\t# On X $branch...\n";
	feedme();
	$loop=0;
	@o <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26274	26390	
==>FTER_NEXT_$ps->{num}: noop
NEXT
			if ($syms[NEXT] eq ",") {
				feedme();
				feedme();
				$ps=pop @{$fors[$scopes] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87879	88273	
==>> "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 109,
                  "ARGS" => [
                              "p",
                              "p" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103860	1103957	
==>NG *class = {{\@2}};\n\tINTVAL type = pmc_type(interpreter, class);\n\tif (!type) {\n\t\tParrot_au <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105075	1105172	
==>NG *class = {{\@2}};\n\tINTVAL type = pmc_type(interpreter, class);\n\tif (!type) {\n\t\tParrot_au <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	1357	1536	
==>on
of the output with the expected result it true.

=item C<language_output_like( $language, $code, $expected, $description)> 

Runs a langugage test and passes the test
if the  ou <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	52358	52490	
==>cessfully
extracted substring removed from it. In all contexts
C<extract_multiple> starts at the current C<pos> of the string, and
se <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61108	61208	
==>ead,$line);
			$prod and $prod->additem($item)
			      or  _no_rule("pattern terminal",$line,"/$1/") <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	21876	22008	
==>nr, $targ $cmt
$label
EOC
    }
}
sub print_stack {
    for $_ (@stack) {
	print "# STACK $_->[0] $_->[1] $_->[2]\n";
    }
}


sub r <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	36193	36355	
==>ple, if C<$text> is:

	$text = '<A HREF=">>>>">link</A>';

then

	@result = extract_bracketed( $text, '<">' );

returns:

	( '<A HREF=">>>>">', 'link</A>', "" )

a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020270	1020735	
==>me",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1140,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 192 \"src/ops/sys.ops\"\n  struct tm tm;\n  co <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	6694	6883	
==>e',
             'i_time' => undef,
             'i_unistd' => 'define',
             'i_ustat' => undef,
             'i_utime' => 'define',
             'i_values' => undef,
             ' <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9680	9787	
==>def);
			};

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Dicard invalid token ".&$ShowCurToken.".\n <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9246	9349	
==>def);
			};

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Dicard invalid token ".&$ShowCurToken.".\n <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	2563	2835	
==>eneral', 
            '',
            $self->c_source_item('This file is unused.', 'parrot'),
            $self->c_header_item('', 'parrot'),
            $self->c_pair_item('', 'warnings'),
            $self->c_pair_item('', 'longopt'),
        ),
        $self->new_group( <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	1981	2078	
==>ll = 0;
    GetOptions('plus-misses' => \$show_full)
	|| die ("Usage: $0 [--plus-misses] [files... <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1108217	1108355	
==>le->base_type)\n    {\n        case enum_class_String:\n\t        type = pmc_type(interpreter, PMC_str_val({{\@2}}));\n            if (type <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	8421	8521	
==>'line_count'}}, $line];
        DEBUG > 1 and print "Starting plain para at line ${$self}{'line_count <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	5163	5257	
==>n undef is always sent to signal end-of-stream

    } elsif(exists $self->{'source_scalar_ref'} <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	2564	2756	
==>.t' ) ),
                      glob( File::Spec->catfile( $dir, '*/*.t' ) )
                    );
        print join( "\n", @files );
        print "\n" if @files;
        exit;
    }
    elsi <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1293	1449	
==>ttern 3' ],
        [ _MASTER => '<name1> <name2> <name3>' ],
    ],

The last rule, labelled with _MASTER, is the rule that your target string
will be match <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	2958	3127	
==>ng from label names to destination tagged_op
    my $curlabel;
    my @output2; # ( { label => ?label, code => op } : tagged_op )
    my %labels; # { label string => tagg <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	918	1035	
==>h my $func ( keys %language_test_map ) {
    no strict 'refs';            ## no critic

    *{"Parrot::Test::M4::$func <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10561	10677	
==>tion and length($section .= '') ) 
    {
        $section =~ tr/ /_/;
        $section =~ tr/\x00-\x1F\x80-\x9F//d if <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3956	4058	
==>tion and length($section .= '')) {
    $section =~ tr/ /_/;
    $section =~ tr/\x00-\x1F\x80-\x9F//d if <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	35215	35420	
==>&_op_denominator,
  'floor'            => \&_op_floor,
  'ceiling'          => \&_op_ceiling,
  'truncate'         => \&_op_truncate,
  'round'            => \&_op_round,
  'rationalize'      => \&_op_ratio <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	19493	19862	
==>c = "${package}::${prefix}_${meth}";
                $test_func->( @remaining );
                $builder->level( $level );
            }
            else {
                # TODO: $language should be the name of the test Module
                #       that would open the door for Scheme::Test
                $language = ucfirst($language);

                # make sur <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	23485	23618	
==>', [ 0, 'plus matched marker' ]),
                        aop('goto', [ $loop ]),
              $rfail => aop('popindex', [ '<tmp>', $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640008	640349	
==>NULL;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	385	500	
==>w(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $ident) = @_;

  confess("Block (" . re <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	385	500	
==>w(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $ident) = @_;

  confess("Block (" . re <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9197	9345	
==>us # if 0, then YYErrok has been called
            or  next;       # so continue parsing

#DBG>			$debug & 0x10
#DBG>		and	do {
#DBG>			print S <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8782	8925	
==>us # if 0, then YYErrok has been called
            or  next;       # so continue parsing

#DBG>			$debug & 0x10
#DBG>		and	do {
#DBG>			print S <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6491	6659	
==>nd do {

                $act > 0
            and do {        #shift

#DBG>				$debug & 0x04
#DBG>			and	print STDERR "Shift and go to state $act.\n";

					$$er <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6190	6350	
==>nd do {

                $act > 0
            and do {        #shift

#DBG>				$debug & 0x04
#DBG>			and	print STDERR "Shift and go to state $act.\n";

					$$er <==
2	/Users/nnunley/parrot/config/gen/cpu/i386/auto.pm	979	1144	
==>set(
                    "i386_has_$suffix" => '1',
                    "HAS_i386_$suffix" => '1',
                );
                print " (\U$suffix) " if ($verbo <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	4935	5045	
==>t_value
    unless iter goto iter_end
    value_type = typeof value
    if value_type != 'String' goto print_sp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94700	94978	
==>",
                  "CODE" => 117,
                  "ARGS" => [
                              "s",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 63 \"src/ops/bit.ops\"\n  {{\@1}} = string_ <==
2	/Users/nnunley/parrot/config/auto/readline.pm	1318	1482	
==>ives.
    if ($osname =~ /darwin/) {
        if (-f "/sw/include/readline/readline.h") {
            $conf->data->add(' ', linkflags => '-L/sw/lib');
            $co <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13018	13119	
==>arf
print t

' Deep-copy of structures, 34 (NOT 99)
type first
	foo as integer
	bar as string
end type <==
2	/Users/nnunley/parrot/Configure.pl	7194	7525	
==>cu-config
                        Location of the script used for ICU autodetection.
                        You just need to specify this option if icu-config
                        is not in you PATH.

   --icu-config=none    can be used to disable the autodetection feature.
                        It will also be disabled if y <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393345	393804	
==>n    }\n  }\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "tell",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	3550	3667	
==>oat" context="#stay" />
          <Int attribute="Int" context="#stay" />
END

print <<END;
          <RegExpr attribu <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	3457	3644	
==>, @Rrest) = @{ $R->{args} };
        my @shrunken = ();
        while (@children) {
            last unless $children[0]->{name} eq 'seq';
            my ($S0, @Srest) = @{ $children[0]->{ <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	5361	5481	
==>ntf "Ignored signature '%s' on line %d (previously seen on line %d) of $ARGV",
              "$ret$args", $., $seen{"$ret <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2327	2438	
==>$self->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exists($$self{USER})
	or	$$self{US <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2240	2342	
==>$self->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=shift;

		exists($$self{USER})
	or	$$self{US <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	13733	13910	
==>"expander" onclick="toggle_visibility('<tmpl_var name=id>')" id="expander_<tmpl_var name=id>">&raquo;</span></td>
	    <td><a style="text-decoration: none" href="<tmpl_var name=l <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2504	2610	
==>die "Unrecognized type '$type' for num '$num' in opcode @{[$op->full_name]}"
        unless exists $arg_map <==
2	/Users/nnunley/parrot/lib/File/Which.pm	4369	4464	
==>d2 Windows NT

Windows NT has a special environment variable called C<PATHEXT>, which is used
by <==
2	/Users/nnunley/parrot/lib/File/Which.pm	5301	5665	
==>able with the name you specified, C<which()> will return
the absolute path leading to this executable (for example, C</usr/bin/perl> or
C<C:\Perl\Bin\perl.exe>).

If it does I<not> find the executable, it returns C<undef>.

If C<which()> is called in list context, it will return I<all> the
matches.

=head2 where($short_exe_name)

Not exported by default.

Same as <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3983	4134	
==>? $props{fn}->value : "\"$name\"";

    my $thunk = "_${name}_THUNK";
    $thunk =~ s/::/__/g;

    $compiler->emit(".sub $thunk");

    my $sig = defin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496477	496992	
==>_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 570,
                  "ARGS" => [
                              "n",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 595 \"src/ops/math.ops\"\n  {{\@1}} = floatval_mod({{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614342	614673	
==>bject_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 696,
                  "ARGS" => [
                              "i" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	8149	8278	
==>t[-2]->tagname =~ m/^item-/s
          ) {
            # Bail out here, after setting rtfitemkeepn yea or nay.
            $self-> <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	66418	66616	
==>::RecDescent::Repetition($name,"..$1",1,$1,
										   $lookahead,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->additem($item)
						      or  _ <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	4360	4460	
==>ops file '$opsfile'!\n" unless -r $opsfile;
    }

    $ops = Parrot::OpsFile->new( \@opsfiles, $noli <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8097	8241	
==>>file_with_path($path);
}

=item C<existing_directory_with_name($name)>

Returns a directory with the specified name in the directory.

=cut

sub <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2859	2978	
==>$dir->file_with_name($name)
            if $dir->file_exists_with_name($name);
    }
    
    print 'WARNING: ' . __FILE <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	250	339	
==>head1 DESCRIPTION

A Perl implementation of the F<examples/mops/mops.pasm> example program <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	246	335	
==>head1 DESCRIPTION

A Perl implementation of the F<examples/mops/mops.pasm> example program <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	154	304	
==>erpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expression.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings" <==
2	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	938	1057	
==>rlHash   # Numerics
	new P21, .PerlHash     # Alphabetics.
	new P22, .PerlHash     # ??
	new P23, .PerlHash     # ??
	ne <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2	101	
==>Copyright (C) 2002, The Perl Foundation.
# $Id: /parrot/lib/Parrot/OpTrans/CGoto.pm 20333 2006-06-21 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1126	1249	
==>tmp>';
    return $name;
}

sub dbgoto {
    my ($self, $label) = @_;
    return () unless $self->{DEBUG};
    return () unl <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	616	739	
==>tmp>';
    return $name;
}

sub dbgoto {
    my ($self, $label) = @_;
    return () unless $self->{DEBUG};
    return () unl <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62738	62946	
==>1)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr($grammar,$pos,0,
						       "<leftop: $name $2 $name>(s?) ");

						pos $grammar = $pos;
					}
					else
					{
						$item = new Parse: <==
2	/Users/nnunley/parrot/config/init/defaults.pm	3982	4194	
==>,

        # Way to decorate a function to mark it as an exportable or
        # importable symbol.
        sym_export => '',
        sym_import => '',

        # Library build directory
        blib_dir      => ' <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8654	8757	
==>URN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_END_${CURIC}

# Get type of <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7226	7329	
==>URN_${CURIC}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_END_${CURIC}

# Get type of <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	26441	26782	
==>n:
    #
    # a = new Foo;
    #

    if (m/^([A-Za-z][A-Za-z0-9_]*)\s*=\s*new\s+([A-Za-z][A-Za-z0-9_]*)$/) {
      new_pmc($1, $2);
      next;
    }

    #
    # Miscellany:
    #

    if (m/^end$/) {
      $self->emit_code('end');
      next;
    }

=cut


    #
    # TODO: Implement other stuff and put it before this.
    #

    $self- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	329612	329785	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_r8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	330277	330450	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_r8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIR <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	7499	7628	
==>nt {$FH}
                "  if $op->{arg1}->{symbol} goto $op->{result}->{symbol}\n";
        }
    }

    sub visitBranchUnl <==
2	/Users/nnunley/parrot/config/init/optimize.pm	716	816	
==>given, however, use that instead. 
    my $optimize = $conf->options->get('optimize');
    if (define <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33708	33809	
==>rates.
		my $post_store = $srm->post_store($dest_reg);
		$pir .= "### post_store\n";
		$pir .= sub_met <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	4519	4668	
==>ive;
	    push @blocks, [$instr_pc ];
	}
	else {
	    push @{$blocks[-1]}, $instr_pc;
	}
    }

    print<<END_C;
static opcode_t* run_compiled(Interp <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	10964	11079	
==>$Level = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # undef only matches undef and nothing e <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	11382	11497	
==>$Level = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # undef only matches undef and nothing e <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4947	5065	
==>rint "Setting trigger $trigger on configuration key $key\n",
        if $verbose;

    $self->{triggers}{$key}{$trigger <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	7420	7536	
==>ne, item_two
    .local int pos_one
    .local int not_found

    not_found = op1
    inc not_found

    .local pmc r <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	10616	10737	
==>ned $$textref;
	my $pre  = defined $_[1] ? $_[1] : '\s*';

	my @match = _match_variable($textref,$pre);

	return _fail wan <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	377046	377366	
==>E" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 441,
                  "AR <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	4359	4497	
==>_PIR

.end

.sub 'aplformat'
    .param pmc arg

    .local string result
    result = ''

    .local pmc value
    $I0 = does arg, 'array' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17864	18029	
==>Faking out a =for $target as a =begin $target / =end $target\n";
      
      $para->[0] = 'Data';
      
      unshift @$paras,
        ['=begin',
          {'start_ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24805	24899	
==>f) unless @match;
		return _succeed wantarray, $textref,
				$match[2], $match[3]+$match[5]+$ma <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7638	7730	
==>f) unless @match;
	return _succeed wantarray, $textref,
			$match[2], $match[3]+$match[5]+$ma <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	35313	35454	
==>runcate'         => \&_op_truncate,
  'round'            => \&_op_round,
  'rationalize'      => \&_op_rationalize,
  'exp'              => \& <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1378	1515	
==>age = $language;
        } elsif ($dir_count == 2) {
          $path_to_language = '.';
        } elsif ($dir_count >2) {
          $path_ <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1863	2000	
==>age = $language;
        } elsif ($dir_count == 2) {
          $path_to_language = '.';
        } elsif ($dir_count >2) {
          $path_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772371	772549	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 350 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	25706	25840	
==>$I0 = bc.read_int32()
    next_pc += 4
    \${P_ARG_$arg_num}[j] = \$I0
    inc j
    goto JT_LOOP_$name
JT_LOOP_END_$name:
PIR
			$arg <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	17200	17297	
==>t::OpTrans> subclass) is supplied then
substitutions are made.

=cut

sub preamble
{
    my($self, <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	2060	2171	
==>d

Conformant to a recent post on p6i, if called with a single argument of
C<--files>, return a list of files to <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	14932	15062	
==>me}{$meth};
                my $super_mmd = $all->{$pname}{methods}[$n]{mmds};
                if ($super_mmd && scalar @{ $super_m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	372007	372402	
==>E" => "peek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "function",
                  "CODE" => 435,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 387 \"src/ops/io.ops\"\n  STRING * <==
2	/Users/nnunley/parrot/config/auto/inline.pm	776	949	
==>ld(); };
        if (!$@) {
            $test = cc_run();
            chomp $test if $test;
        }
        cc_clean();
        if (!$test) {
            cc_gen('config/aut <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087765	1087938	
==>ic",
                              "ic"
                            ],
                  "BODY" => "#line 163 \"src/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interp <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	1390	1537	
==>teps someone should follow when they have to prepare a new version for release.', 'RELEASE_INSTRUCTIONS'),
        ),
        $self->new_group('Lega <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	981717	982048	
==>"TYPE" => "inline",
                  "CODE" => 1101,
                  "ARGS" => [
                              "i",
                              "i",
                              "s",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"s <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	11153	11257	
==>this->{'accept_codes'}{$new_code};

    DEBUG > 2 and print "OK, won't accept the code $new_code<...>.\n" <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8709	8800	
==>,/* 11 */
FF,$b,$c,$d,$a,$_[15],22,0x895cd7be,/* 12 */
FF,$a,$b,$c,$d,$_[16],7,0x6b901122,/* <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	2330	2419	
==>_[1]{'section'} ) }
     __PACKAGE__->new->parse_string_document('=head1 L<Foo/bI<ar>baz>> <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	2948	3037	
==>_[1]{'section'} ) }
     __PACKAGE__->new->parse_string_document('=head1 L<Foo/bI<ar>baz>> <==
2	/Users/nnunley/parrot/lib/Test/More.pm	19438	19546	
==>sed to fail
but will work in the future (a todo test).

For more details on the mechanics of skip and todo te <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	41900	42037	
==>oved;
      for (@_) {
	if ($_ eq "P$count") {
	  $moved = $_;
	  $_ = $empty;
	}
      }
      if ($moved) {
	$self->_add_inst ('', 'set' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64626	64722	
==>ops/core.ops\"\n  Interp * const new_interp = (Interp *)PMC_data({{\@1}});\n  Interp_flags_SET(ne <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65577	65673	
==>ops/core.ops\"\n  Interp * const new_interp = (Interp *)PMC_data({{\@1}});\n  Interp_flags_SET(ne <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42452	42562	
==>} .'})
						if defined $::RD_TRACE;').'

		push @item, '.($::RD_NO_HITEM ? ''
			       : '$item{'.$self->{has <==
2	/Users/nnunley/parrot/lib/Test/More.pm	30606	30762	
==>' ) {
                push @Data_Stack, { type => 'REF', vals => [$e1, $e2] };
                $ok = _deep_check($$e1, $$e2);
                pop @Data_Stack <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49714	49964	
==>UMP_RESTART",
                  "NAME" => "profile",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50506	50756	
==>UMP_RESTART",
                  "NAME" => "profile",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20098	20458	
==>'_if_then' => 14,
			'stat' => 7
		}
	},
	{#State 58
		DEFAULT => -35,
		GOTOS => {
			'_elseif_star' => 113
		}
	},
	{#State 59
		DEFAULT => -4,
		GOTOS => {
			'block' => 114,
			'chunk' => 57
		}
	},
	{#State 60
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	1089	1197	
==>arse_lines(@lines)
  # an undef means end-of-stream
  my $self = shift;

  my $code_handler = $self->{'code_h <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39988	40244	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40835	41091	
==>ELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	48568	48662	
==>nize and extract a balanced
bracket delimited substring that may contain unbalanced brackets
in <==
2	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	1386	1538	
==>'translit'
macro:              flag name_len ',' substitution_len name substitution 
                  { [ @item[5,1,6] ] }       

# TODO: What does thi <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4267	4376	
==>)=__FILE__;
	my(@drv);
	open(DRV,"<$fname") or die "Report this as a BUG: Cannot open $fname";
	while(<DRV> <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4049	4155	
==>)=__FILE__;
	my(@drv);
	open(DRV,"<$fname") or die "Report this as a BUG: Cannot open $fname";
	while(<DRV> <==
2	/Users/nnunley/parrot/languages/urm/urm-old.pl	1336	1450	
==>+;
    }
    elsif ($line =~ /(r\d) *<- *(r\d+) *([+-]) *1/) {
	if ($1 ne $2) {print "Syntax error: Registers don't <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	16014	16162	
==>~';
        $ok = $self->ok( $test, $name );
    }

    unless( $ok ) {
        $this = defined $this ? "'$this'" : 'undef';
        my $match = $cmp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52819	53098	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "gc_debug",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53574	53853	
==>less( {
                  "JUMP" => 0,
                  "NAME" => "gc_debug",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12747	12842	
==>e();
	push @{$code{$seg}->{code}}, "\t_RESTORE(" . join(",",@args) . ")\n";
}


sub parse_exit { <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	25413	25625	
==>s = ();
    my $cond = get_cond( $parser, $expr );
    push @opcodes, @{ $cond->[1] };
    my $l_end  = new_label($parser);
    my $l_next = new_label($parser);
    push @opcodes, new BranchUnlessOp( $parser, <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	29558	29714	
==>, $c, $cmt) = @_;
    my $tos = $stack[-1];
    print <<EOC;
	$cmt
EOC
    push @stack, $tos;
}

sub DUP_TOPX
{
    my ($n, $c, $cmt) = @_;
    foreach (1..$ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	39610	39715	
==>hift;
	my $mv = shift;

	# Loop over keys to look for automagicals and build up declaration list.
	my $dec <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	3270	3466	
==>file : $cfile;
        my $hfile = $cfile;
        $hfile =~ s/\.c$/.h/;

        my $fh = open_file( "<", $cfile );
        my $source = do { local $/; <$fh> };
        close $fh;

        print " <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	1176	1277	
==>tain items or paths.
	
	$self = $self->SUPER::new($text, @contents);
	$self->{NAME} = $name;
	
	return <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	7298	7446	
==>$prodcount = scalar @{$self->{"prods"}};
	my $impcount = ++$self->{"impcount"};
	return "_alternation_${impcount}_of_production_${prodcount}_of_rule_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488025	488315	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	489418	489708	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21566	21663	
==>label = $self->_gensym();

  $return = $self->_constant(1);
  my $temp = $self->_generate($node->{ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21951	22048	
==>label = $self->_gensym();

  $return = $self->_constant(1);
  my $temp = $self->_generate($node->{ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	29933	30110	
==>function, stack depth now "
	#print I25
	#print "\\n"
	ret
FUNCEND
	print FUNC<<SUBDISP;
SUB_DISPATCH:
	I1= -1
SUBDISP
	foreach (keys %subs) {
		print FUNC qq{\teq S0, "$_", SUB_ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	81	233	
==>FOR FULL DETAILS

use 5.005;
use strict;

package Parse::RecDescent;

use Text::Balanced qw ( extract_codeblock extract_bracketed extract_quotelike extra <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Transcode.pm	117	223	
==>EBUG ) { *DEBUG = \&Pod::Simple::DEBUG; }
  else { *DEBUG = sub () {0}; }
}

foreach my $class (
  'Pod::Si <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	5588	5722	
==>il:
            print "rule error"
          end:
        .end\n);
}

sub _generate_subrule_pir {
    my($target, $pattern) = @_;
    $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314728	314838	
==>s/dotgnu.ops\"\n  if({{\@1}} >= -128 && {{\@1}} <= 127) {\n    {{\@1}} = (INTVAL)((signed char)({{\@1}}));\n  } <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	2394	2570	
==>ata->{_G} = $g;
##    warn "PopScopeF\n";
    PopScope($parser);
}

sub PushScope {
    my ($parser) = @_;

    unshift @{ $parser->YYData->{scope} }, $parser->YYData->{ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	1786	1938	
==>ead1 NAME

Test::Builder - Backend for building test libraries

=head1 SYNOPSIS

  package My::Test::Module;
  use Test::Builder;
  require Exporter;
  @ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	146384	146646	
==>, {{\@1}}, {{\@2}}, MMD_EQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167610	167872	
==>, {{\@1}}, {{\@2}}, MMD_EQ)) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	4530	4680	
==>branches);
                $totals{branches} += $total_branches;
                $totals{covered_branches} += $covered_branches;
                $file_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	7460	7559	
==>'open-bracket');  }
sub skip_open_paren    { return shift->skip('open-paren');    }
sub skip_infix_r <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	13778	14042	
==>th_to_parrot,
                                    STDOUT => $out_f,
                                    STDERR => $out_f);
                        if ( -e $exe_f ) {
                            run_command($exe_f,
                                        CD     => $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7554	7690	
==>) = @_;
    $reg = value($reg);
    return ("$reg = \$::STATESTACK[-1]");
}

use vars qw($DEBUG_LABEL);
sub output_popindex {
    my $sel <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712335	712442	
==>o = PIO_STDOUT(interpreter);\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713442	713549	
==>o = PIO_STDOUT(interpreter);\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	994289	994559	
==>"i",
                              "ic",
                              "sc",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_ <==
2	/Users/nnunley/parrot/tools/dev/cc_flags.pl	877	1060	
==>homp;
    s/#.*//;
    next unless /\S/;

    my $regex;
    if (s/^\{(.*?)\}\s*//) {
	next unless $1;
	$regex = qr/$1/;
    }
    elsif (s/^(\S+)\s*//) {
	$regex = qr/^\Q$1\E$/;
    } <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	12361	12500	
==>do {
        push @{$temps_ref}, "char *t_$temp_num;";
        push @{$extra_preamble_ref},
        "t_$temp_num = string_to_cstring(interpr <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	12453	12584	
==>t = $self->genlabel('after_charclass');

    my @ops = (          aop('advance', [ $howfar, $lastback ]),
                         a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029692	1029795	
==>DY" => "#line 305 \"src/ops/sys.ops\"\n  opcode_t *next = {{^+2}};\n  if ({{\@1}} < 0.0) {\n      real_e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030534	1030637	
==>DY" => "#line 305 \"src/ops/sys.ops\"\n  opcode_t *next = {{^+2}};\n  if ({{\@1}} < 0.0) {\n      real_e <==
2	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	31	122	
==>guages/BASIC/interpreter/basic.pl 11512 2005-10-12T02:11:40.290517Z coke  $
# $Log: basic.pl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059544	1059832	
==>P_ENEXT",
                  "NAME" => "find_name",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060448	1060736	
==>P_ENEXT",
                  "NAME" => "find_name",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	2995	3095	
==>ns the PIR code and passes the test if a string comparison of output
with the expected result is true <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	3938	4113	
==>_desc;
            
            next if grep {$_ eq $short_desc} @short_desc;
            
            push @short_desc, $short_desc;
        }
        elsif ( $file->is_docs_l <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	1834	1949	
==>@@@

__PACKAGE__->_accessorize(
  'nbsp_for_S',        # Whether to map S<...>'s to \xA0 characters
  'source_filena <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	18421	18538	
==>eq 'scan' && $name ne 'default') {
         $tree = $tree->{args}->[0];
     }
     my $op = op('rule' => [ $name, $tr <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9080	9190	
==>, q{Parse::RecDescent::OffsetCounter}, \$text, $thisparser, 1;
	':'') . ($parser->{_check}{thiscolumn}?'
	my $t <==
2	/Users/nnunley/parrot/lib/Test/More.pm	29977	30184	
==>FERENT' unless _type($e2) eq $type;

            if( $type eq 'DIFFERENT' ) {
                push @Data_Stack, { type => $type, vals => [$e1, $e2] };
                $ok = 0;
            }
            elsif( <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	269	535	
==>), "\n====================== $tn\n" if @c;
	$tn++;
	open(OF, ">_testsuite.bas") || die;
	print OF $_;
	close(OF);
	if ( ! system("perl compile.pl _testsuite.bas")) {
		system("perl testrun.pl > _output2");
		open(O, "_output2") || die;
		print <O>;
		close(O);
		prin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43211	43480	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pushmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43854	44123	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pushmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => " <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32834	33025	
==>"typeinfo for rule $rule->{'name'}");
		    $pir .= "\n" if $pir !~ /\n$/;
		    $pir .= "### end typeinfo\n";
        }

		# Now call pre_store and append code that it generates.
		my $pre_st <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679179	679403	
==>t_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679958	680182	
==>t_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2665	2753	
==>LSO

My subclasses:
L<Pod::Simple::PullParserStartToken>,
L<Pod::Simple::PullParserTextTo <==
2	/Users/nnunley/parrot/config/inter/encoding.pm	1585	1690	
==>>data->get('slash');
    $TEMP_encoding_o =~ s/^| / src${slash}encodings${slash}/g;

    $conf->data->set( <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	6534	6642	
==>}/\n\n/sg; # excess blank lines
    s/^\s*//s; s/\s*$/\n/s; # trim (and ends with a newline)
    s/^ {0,1}(\S <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2409	2527	
==>});
  }

  if ($self->op) {
    $handler->start_element({ Name => 'block', Attributes => { kind => 'test' } });
    $ha <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2286	2404	
==>});
  }

  if ($self->op) {
    $handler->start_element({ Name => 'block', Attributes => { kind => 'test' } });
    $ha <==
2	/Users/nnunley/parrot/config/init/defaults.pm	891	1056	
==>r -- used to turn .c files into object files.
        # (Usually cc or cl, or something like that.)
        cc      => $Config{cc},
        ccflags => $Config{ccflags <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	292	411	
==>:Parser;

use Carp;

use base qw(Jako::Processor);

use Jako::Construct::Block;
use Jako::Construct::Block::Bare;
use Ja <==
2	/Users/nnunley/parrot/languages/converter.pl	196	306	
==>se::RecDescent;

sub modifier {
  my $modifier = shift;
  return '' unless defined $modifier->[0];
  return '(? <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669117	669344	
==>>push_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669889	670116	
==>>push_float(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	3483	3606	
==>bably want C<new>.

B<NOTE>: the implementation is not complete.  C<level>, for example, is
still shared amongst B<all> Test <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1396	1500	
==>($last_seen ne 'inline') {
        $compiler->emit(".sub __INLINE_" . $inline++);
        $compiler->inde <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1598	1694	
==>($last_seen ne 'inline') {
    $compiler->emit(".sub __INLINE_" . $inline++);
    $compiler->inde <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	1528	1633	
==>s generated automatically from '$infile'
 * by $0.
 *
 * Any changes made here will be lost!
 *
 */

#defi <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	3817	3922	
==>s generated automatically from '$infile'
 * by $0.
 *
 * Any changes made here will be lost!
 *
 */

#defi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	626846	627097	
==>YPE" => "function",
                  "CODE" => 703,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 53 \"src/ops/pmc.ops\"\n  if ({{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Ops.pm	592	685	
==>tml', '',
		$self->new_group('Tools', '',
			$self->new_item('', 'tools/build/ops2c.pl'),
			$ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11715	11983	
==>asedon0 \snext0 pod-codeblock;}
{\*\cs21 \additive \lang1024\noproof \sbasedon10 pod-computerese;}
{\*\cs22 \additive \i\lang1024\noproof\sbasedon10 pod-L-pod;}
{\*\cs23 \additive \i\lang1024\noproof\sbasedon10 pod-L-url;}
{\*\cs24 \additive \i\lang1024\noproof\sbasedo <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	7066	7173	
==>{
	my $self = shift;
	my $prodcount = scalar @{$self->{"prods"}};
	my $opcount = ++$self->{"opcount"};
	retu <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6477	6642	
==>ct)
        and do {

                $act > 0
            and do {        #shift

#DBG>				$debug & 0x04
#DBG>			and	print STDERR "Shift and go to state $act. <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6177	6335	
==>ct)
        and do {

                $act > 0
            and do {        #shift

#DBG>				$debug & 0x04
#DBG>			and	print STDERR "Shift and go to state $act. <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	6144	6247	
==>n"
    if defined $Type && $Type ne '' && !exists $Type{$Type};

my $TypeLong = defined $Type && $Type e <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1510	1613	
==>R("Undefined type!")
    unless defined $type;

  $self->INTERNAL_ERROR("Type is not a Jako::Construct:: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1358	1461	
==>R("Undefined type!")
    unless defined $type;

  $self->INTERNAL_ERROR("Type is not a Jako::Construct:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106171	1106277	
==>=> "#line 352 \"src/ops/experimental.ops\"\n    int typ = {{\@2}};\n    if (typ < 1 || typ >= interpreter-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107147	1107253	
==>=> "#line 352 \"src/ops/experimental.ops\"\n    int typ = {{\@2}};\n    if (typ < 1 || typ >= interpreter-> <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10049	10211	
==>ces) = @_;

    # Empty list
    return [] if @$pieces == 0;

    # Negated list
    if ($pieces->[0] eq 'neg') {
        return _negate_incexc(_translate_classpie <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154395	154728	
==>" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 187,
                  "ARGS" => [
                              "s <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1337	1466	
==>code $exit_code")
        if $exit_code and not $pass;
    }

    unless($ENV{POSTMORTEM}) {
        unlink $lang_f;
        unlin <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1378	1507	
==>code $exit_code")
        if $exit_code and not $pass;
    }

    unless($ENV{POSTMORTEM}) {
        unlink $lang_f;
        unlin <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8955	9049	
==>hod that uses find_symbol() to locate a matching
symbol, and then returns that symbol's scope ( <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5937	6040	
==>xt unless ($entry->[4] =~ /MMD_/);
    next if ($entry->[4] =~ /_INT$/);
    next if ($entry->[4] =~ /_S <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6355	6458	
==>xt unless ($entry->[4] =~ /MMD_/);
    next if ($entry->[4] =~ /_INT$/);
    next if ($entry->[4] =~ /_S <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490162	490452	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inc",
                  "FLAGS" => ":base_ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	23462	23649	
==>ndef, ' ', '');
    my $fh = $self->todo ? $self->todo_output : $self->failure_output;
    print $fh @_;
}    

=item B<output>

    $Test->output($fh);
    $Test->output($file);

Where no <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760181	760631	
==>eref",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 858,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 286 \"src/ops/set.ops\"\ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	10146	10268	
==>OUNT}++);

      $prefix = $namespace unless defined $prefix;

      if ($kind eq 'while') {
        $loop = Jako::Construc <==
2	/Users/nnunley/parrot/config/init/hints.pm	1113	1240	
==>nf, @_) if $hints->can('runstep');
        $hints_used++;
    }

    if ($hints_used == 0) {
        print "(no hints) " if $ver <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7803	7898	
==>($type[CURR] eq "STMT" or $type[CURR] eq "COMM" or $type[CURR] eq "STMT") and $singleif) {
		whi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1228	1357	
==>);

  foreach my $arg (@$args) {
    my ($arg_type, $arg_name, $arg_token) = @$arg;
    my $sym = Jako::Symbol->new($self, 'local' <==
2	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	470	593	
==>{
	$arr1[$_] = buildarray();
    }

    my @arr2;
    foreach (1..20) {
	$arr2[$_] = buildarray();
    }
}

sub buildarray { <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	378	475	
==>t::More->import( $plan, @args );

    __PACKAGE__->_export_to_level( 2, __PACKAGE__ );
}

my $coun <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	295	392	
==>t::More->import( $plan, @args );

    __PACKAGE__->_export_to_level( 2, __PACKAGE__ );
}

my $coun <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11891	12034	
==>r_table->{$method} . "_$method";

    # Rewrite DYNSUPER(args)
    s/DYNSUPER          # Macro: DYNSUPER
      \(\s*(.*?)\)      # capture argum <==
2	/Users/nnunley/parrot/config/init/optimize.pm	1192	1333	
==>y $opts = $Config{optimize};
	    $opts =~ s/-mcpu=\S+//;
            $conf->data->add(' ', ccflags => $opts);
            # record what optim <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	2400	2649	
==>ter) will put the stack anchor back to
   the way it was, and should always be the last statement before a
   return. (If you have multiple returns have it in multiple times)

   Not doing this is a good way to introduce bizarre heisenbugs, so
   jus <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1991	2091	
==>ts.

Yes, you could probably do the same thing with code like
$token->isa('Pod::Simple::PullParserEnd <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36578	36702	
==>ret($method);
    # I think that these will be out by one - NWC
    my $l = $self->line_directive($line, "null.c");
    retur <==
2	/Users/nnunley/parrot/config/inter/progs.pm	968	1310	
==>null command.
    # XXX need config support for a null command.
    my $null = 'echo';
    my $first_working = sub {
        foreach (@_) {
            `$_ -h 2>&1`;
            return $_ if not $?;
        }
        return $null;
    };

    my $ask = $conf->options->get('ask');
    if ($ask) {
        print <<'END';


    Okay, I'm going t <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	2928	3067	
==>turn 10 if ($op eq "<>");
	return 10 if ($op eq ">");
	return 10 if ($op eq "<");
	return 15 if ($op eq ",");
	return 20 if ($op eq "+");
	r <==
2	/Users/nnunley/parrot/examples/benchmarks/primes.pl	425	562	
==>i1 = 1;
my $i2 = 10000;
my $i3;
my $i4;
my $i5;
my $i6 = 0;
my $i7;
printf("N primes up to ");
printf("%d", $i2);
printf(" is: ");

 REDO: <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	7697	7897	
==>pies of any part of this
documentation and/or software.

=back

This copyright does not prohibit distribution of any version of Perl
containing this extension under the terms of the GNU or Artistic
lic <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3818	3926	
==>, and parent module has no fnlib property either!")
        unless $module_props{fnlib};

      $fnlib = $mod <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6482	6590	
==>, and parent module has no fnlib property either!")
        unless $module_props{fnlib};

      $fnlib = $mod <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	431	541	
==>integer arithmetic.

Prints out:

=over 4

=item * the number of look iterations, 

=item * the estimated numbe <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	435	544	
==>integer arithmetic.

Prints out:

=over 4

=item * the number of look iterations,

=item * the estimated numbe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069983	1070450	
==>LAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1194,
                  "ARGS" => [
                              "i",
                              "nc",
                              "nc"
                            ],
                  "BOD <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	4114	4311	
==>y %ignore;
my @ignore = split( /\n\n/, $svnignore );
foreach (@ignore) {
    my @cnt = m/( - )/g;
    if ($#cnt) {
        my @a = split /\n(?=(?:.*?) - )/, $_;
        foreach (@a) {
            m/ <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	9799	9942	
==>$fh or
    die "Couldn't serialize bucket to \"@{[ BUCKET ]}\": $!\n";

  exit if $exit;
}

__DATA__
<?xml version="1.0" encoding="UTF-8"?>
<!DO <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	726	864	
==>_[0]{'output_fh'};
  my($key, $value);
  DEBUG and print "++ $_[1]\n";
  print $fh "<", $_[1];
  if($SORT_ATTRS) {
    foreach my $key (sor <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	179542	179786	
==>ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 247 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={ <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	7765	7956	
==>rmal_op

#define Parrot_jit_vtable_ifp_op Parrot_jit_cpcf_op
#define Parrot_jit_vtable_unlessp_op Parrot_jit_cpcf_op
#define Parrot_jit_vtable_newp_ic_op Parrot_jit_normal_op

#define Parrot_j <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	14646	14822	
==>pend_html_suffix($rel_path);
        
    my $docs_file = $target->file_with_relative_path($rel_path);
    
    $self->{DOCS_FILE} = $docs_file;

    $rel_path = $self->href_pat <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19506	19712	
==>ue::Identifier->new($block, $self->require_ident);

      $self->require_open_paren;

      my @args = ();

      unless ($self->get(1)->is_close_paren) {
        while (1) {
          push @args, Jako::Cons <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13252	13386	
==>lay {
}

#---- Section 6 ----

sub _op_not {
  my ($self,$node) = @_;

  my $return = $self->_save_1 ('I');
  $self->_generate(_get_arg <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration.pm	152	322	
==>interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Declaration.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako: <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	7851	7967	
==>e     stdout" if $out;
    open  OLDERR, ">&STDERR" or die "Can't save     stderr" if $err;

    open  STDOUT, ">$out <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7901	8015	
==>e     stdout" if $out;
    open OLDERR, ">&STDERR" or die "Can't save     stderr" if $err;

    open STDOUT, ">$out <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28005	28127	
==><gen_h($out_name)>

Generates the C header file code for the PMC. C<$out_name> is the name
of the output file we are genera <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	746	838	
==>r');
  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Const <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	11759	11891	
==>r
  my $options  = shift; # Optional: Hashref

  confess "No block!"  unless defined $self and ref $self and $self->isa("Jako::Constr <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	3740	3885	
==>shes                         => 1
    );
    genfile(
        'config/gen/makefiles/befunge.in' => 'languages/befunge/Makefile',
        commentTy <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	5228	5493	
==>st = ")";
                $cmt = " # returns ref";
            }
            $out .= "  sub $name {$cmt\n    my \$r = shift;\n";
            if( $base_type eq 'ARRAY' ){
                $elem = "[$cnt]";
                ++$cnt;
            }
            elsif( $base <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19430	19546	
==>ified
		       			  \"auto-action\" automatically
					  appended.");
	}
	elsif ($parser->{_AUTOTREE} && defined($ite <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	338985	339247	
==>AME" => "getstderr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 397,
                  "ARGS" = <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	12903	13021	
==>t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_S($reg_num);";
        return "& <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11301	11416	
==>res, $righttype, @right)=EXPRESSION({lhs => 1});
	push @{$code{$seg}->{code}}, <<SWAP;
	\$${righttype}99 = $rightres <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	13050	13155	
==>riable
    push @ops, <<'END';
{
my %MATCH;
while (my ($key, $val) = each %rx_match) {
    if (UNIVERSAL:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558065	558165	
==>ct = object;\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_method(interpreter, o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559449	559549	
==>ct = object;\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_method(interpreter, o <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	29004	29173	
==>$P1["${_}$seg"]= array_$englishname
	store_global "BASICARR", \$P1
PUSHARR
			# push @{$code{$seg}->{args}}, $_;
		}
	}
	return;
}

sub parse_endfunc {
	feedme;
	my $t=$s <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	466	649	
==>a multiple of 64
sub padding($) {
    my $l = length (my $msg = shift() . chr(128));    
    $msg .= "\0" x (($l%64<=56?56:120)-$l%64);
    $l = ($l-1)*8;
    $msg .= pack 'VV', $l & M <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	3495	3608	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub any_errata_seen {  # good for us <==
2	/Users/nnunley/parrot/tools/dev/as2c.pl	821	946	
==>\d+\s[\da-fA-F]{4}\s([\dA-F]{2,8})\s+(.*)/) {
	    if ($in_comment) {
		print " */\n";
	    }
	    my ($bytes, $src) = ($1, $2 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	17171	17264	
==>ype eq "S");

	push @{$code{$seg}->{code}}, "WHILE_$whilecounter:\n";
	push @{$code{$seg}->{co <==
2	/Users/nnunley/parrot/languages/urm/urm-old.pl	736	887	
==>ome beautification!
	$code =~ s/ +/ /g;
	$code =~ s/\#.*//g;
	next unless $code;
	push @program, $code ;
	}
}
close PROGRAM;

#print Dumper @program;

m <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65906	66100	
==>"repetition",$line,"$code$argcode($1..)");

						!$matchrule and $rule and $rule->addcall($name);
						_check_insatiable($name,"$1..",$grammar,$line) if $::RD_CHECK;
					}
				}
				elsif ($gr <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11221	11332	
==>d::Escapes qw(e2char);
  ...la la la, parsing POD, la la la...
  $text = e2char($e_node->label);
  unless(define <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	868	977	
==>G > 3 and print "Stack is now: ",
    join(">", map $_->[0], @{$_[0]{'_currpos'}}), "\n";
  return;
}

sub _ha <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1101	1210	
==>G > 3 and print "Stack is now: ",
    join(">", map $_->[0], @{$_[0]{'_currpos'}}), "\n";
  return;
}

sub _ha <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031588	1031862	
==>num_first_type].size;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032457	1032731	
==>num_first_type].size;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12880	13007	
==>nsisting of a single
					  conditional <error?> directive would 
					  normally succeed (with the value zero) if the
					  ru <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1475	1580	
==>ned $block;

  $self->INTERNAL_ERROR("Undefined type!")
    unless defined $type;

  $self->INTERNAL_ERROR <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1323	1428	
==>ned $block;

  $self->INTERNAL_ERROR("Undefined type!")
    unless defined $type;

  $self->INTERNAL_ERROR <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	8125	8274	
==>and
            $to_unget[-2]->tagname =~ m/^item-/s
          ) {
            # Bail out here, after setting rtfitemkeepn yea or nay.
            $se <==
2	/Users/nnunley/parrot/Configure.pl	1048	1206	
==>d.

=item C<--ask>

This turns on the user prompts.

=back

Compile Options

=over

=item C<--debugging=0>

Debugging is turned on by default. Use this to disa <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	6749	6849	
==>ER::POSITION>" if $Test::ALWAYS_CALLER;
    # message like "test #1 # TODO" confuse the harness. Esca <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	5196	5485	
==>ange($op, $R, $min, $max, @rest);
        } else {
            return $self->rewrite_nongreedy_range($op, $R, $min, $max, @rest);
        }
    }
}

####### Old Stackless start #######

# Does nothing if DEBUG is not set (if you're using this through
# perl6, then you can turn this on with <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	3611	3825	
==>name = shift || return;
    
    $name .= '.h' unless $name =~ /\.[Hh]$/o;
    
    foreach my $dir ($self->c_header_file_directories)
    {
        return $dir->file_with_name($name)
            if $dir->file_exist <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5021	5125	
==>ve to the source
directory.

=cut

sub contents_relative_to_source
{
    my $self = shift;
    my $source <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3013	3111	
==>ve to the source
directory.

=cut

sub contents_relative_to_source
{
	my $self = shift;
	my $source <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	55274	55395	
==>rerror,$line,$code);
				$code =~ s/\A\s*<defer:(.*)>\Z/$1/s;
				if ($code =~ /\A\s*[^{]|[^}]\s*\Z/)
				{
					$code = " <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	2522	2620	
==>ch can
work together>.

=head2 Construction

=over 4

=item B<new>

  my $Test = Test::Builder->new <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	630	741	
==>}

sub output_onfail {
    my ($label) = @_;
    return "onfail $label->[1]";
}

sub output_match {
    my ($byt <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6203	6295	
==>t use ${ARG0} :-(
prop_type_state[${ITEMP0}] = ${STYPES}
prop_stack_depth[${ITEMP0}] = stack_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4141	4233	
==>t use ${ARG0} :-(
prop_type_state[${ITEMP0}] = ${STYPES}
prop_stack_depth[${ITEMP0}] = stack_ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	8276	8438	
==>);

Your basic test.  Pass if $test is true, fail if $test is false.  Just
like Test::Simple's ok().

=cut

sub ok {
    my($self, $test, $name) = @_;

    # $test <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2293	2407	
==>$CGI->param("smoke"));
}

sub require_compression_modules {
  no strict 'refs';
  eval { require Compress::Zlib } o <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17811	17911	
==>True  " else e$="False "
print a$;b$;c$;d$;e$
next j,i

' Select-case (all positive)
t=50
select case <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1108406	1108577	
==>, NULL, NO_CLASS,\n                    \"Class '%Ss' not found\", PMC_str_val({{\@2}}));\n            {{\@1}} = pmc_new(interpreter, type);\n            break;\n        cas <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	25791	25950	
==>g = "$t = ";
	}
	if ($builtins{$name}) {
	    print <<EOC;
	.local NCI the::internal
	the::internal = $func # avoid savetop
EOC
	    $func = 'the::internal';
	} <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	55093	55236	
==>($grammar =~ m/(?=$DEFERPATMK)/gco
				and do { ($code) = extract_codeblock($grammar,'{',undef,'<');
					 $code;
				       } )
			{
				_parse <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	233	324	
==>rot::Docs::Section::IMCC;

=head1 DESCRIPTION

A documentation section describing IMCC.

=he <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	249170	249381	
==>"i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 670 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@3}} : {{\@2}};\n  {{ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1441	1544	
==>al_state();
    $options{module} ||= "Regex::CodeGen::IMCC";

    if ($options{module} ne 'Regex::CodeGe <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18941	19095	
==>sh @{$code{$seg}->{code}}, "\ngoto DO_$do->{jump}\t# Unconditional\n";
		push @{$code{$seg}->{code}}, "AFTERDO_$do->{jump}:\n";
		return;
	}
	if ($do->{nee <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	13175	13390	
==>int "  Found start of Para.  Accumulating content...\n";
        $para_text_content = '';
        ++$state;
      } else {
        DEBUG and print
         "  Didn't see an immediately subsequent start-Para.  Reseeki <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6882	7043	
==>p('colon');         }
sub skip_comma         { return shift->skip('comma');         }
sub skip_close_brace   { return shift->skip('close-brace');   }
sub skip_clo <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	2007	2120	
==>textref,$_[4],$_[1]+$_[5])=$extra} ;	#CHOP OUT PREFIX & MATCH, IF POSSIBLE
		pos($$textref) = $_[4];				# RESET \G <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	7193	7336	
==>turn ( 'NUMBER', $1 . ( $3 || q{} ) );

            s/^\"//
                and return $parser->_DoubleQuoteStringLexer();

            s/^ <==
2	/Users/nnunley/parrot/config/gen/revision.pm	470	577	
==>tion = "Determining Parrot's revision";

sub runstep
{
    my ($self, $conf) = @_;

    my $revision = $Parr <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2763	2910	
==>L' => 'Installation documentation',
	'LICENSE' => 'Licence file',
	'MAINTAINER' => 'Maintainer info',
	'Makefile' => 'Makefile',
	'MANIFEST' => 'Man <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15611	15878	
==>@@@@@@

1;


__END__

=head1 NAME

Pod::Simple::PullParser -- a pull-parser interface to parsing Pod

=head1 SYNOPSIS

 my $parser = SomePodProcessor->new;
 $parser->set_source( "whatever.pod" );
 $parser->run;

Or:

 my $parser = SomePodProcessor->new;
 $parser->set_ <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	3929	4031	
==>=cut

sub file_paths()
{
    my $self = shift;

    return sort grep {-f} $self->file_and_directory_pat <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	541	680	
==>yped non_prototyped .class
    .endclass .param inc dec new defined addr global clone saveall
    restoreall);
my @imcc_spdirec = qw(.pcc_ca <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13872	13989	
==>loop control statements to function properly.
      #
      # Put on an empty continue block and then pop it back off. <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	7304	7453	
==>lashes                => 1,
        conditioned_lines              => 1
    );
    genfile(
        'languages/tcl/config/examples.in' => 'languages/t <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5034	5227	
==>bol}\n";
    }

    sub visitCallOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  ";
        if ( exists $op->{result} and sca <==
2	/Users/nnunley/parrot/config/inter/make.pm	10	104	
==>t (C) 2001-2005, The Perl Foundation.
# $Id: /parrot/config/inter/make.pm 19593 2006-05-30T02:2 <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	1429	1544	
==>');
}


FILE:
foreach my $file (@files) {
    $file =~ s/^\.\///g;
    if (!open(F, "<$file")) {
        error($file <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	39835	39930	
==>\nline 3\n"

Suppose instead, that if no matching "/endpara" tag is found, the "/para"
tag refer <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41537	41651	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _closers_for_all_curr_open {
  my $self = $_[0];
  my @closers;
  forea <==
2	/Users/nnunley/parrot/config/auto/gc.pm	2221	2416	
==>_lea\$(O)",
            gc_flag   => '-DGC_IS_MALLOC',
        );
    } else {
        $gc = 'gc';
        $conf->data->set(
            TEMP_gc_c => <<"EOF",
\$(SRC_DIR)/resources\$(O):	\$(GENERA <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2000	2209	
==>g             => '-debug',
            ld_share_flags       => '-dll',
            ld_load_flags        => '-dll',
            ld_out               => '-out:',
            ldflags              => '-nologo -node <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3983	4192	
==>g             => '-debug',
            ld_share_flags       => '-dll',
            ld_load_flags        => '-dll',
            ld_out               => '-out:',
            ldflags              => '-nologo -node <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24827	25065	
==>P_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "tailcall",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1098387	1098606	
==>,
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":base_core",
                  "ARGD <==
2	/Users/nnunley/parrot/lib/Test/More.pm	20419	20540	
==>ll output special ok's
which Test::Harness interprets as skipped, but passing, tests.

It's important that $how_many accur <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	5536	5648	
==>@@@@@@@@@@@@

sub _handle_element_start {     # OVERRIDE IN DERIVED CLASS
  my($self, $element_name, $attr_hash_r <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4402	4506	
==>for {
    my($target, $pattern, $captures) = @_;
    $target = _parrot_stringify($target);
    $pattern = <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6907	7011	
==>for {
    my($target, $pattern, $captures) = @_;
    $target = _parrot_stringify($target);
    $pattern = <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	1017	1135	
==>PE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"
    "http://www.w3.org/TR/REC-html40/loose.dtd">
<HTML>  
    <H <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26793	27012	
==>ldren}}) {
      my $temp = $self->_generate($node->{children}[$_]);
      $self->_add_inst('','mul',[$return,$return,$temp]);
      $self->_restore($temp);
    }
  }
  return $return;
}

sub _op_divide {
  my ($self,$no <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	3253	3438	
==>,$b,$c,$d;
}


sub md5_hex(@) {  
  unpack 'H*', &md5;
}

sub md5_base64(@) {
  encode_base64(&md5);
}


sub encode_base64 ($) {
    my $res;
    while ($_[0] =~ /(.{1,45})/gs) {
	$res . <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	3550	3731	
==>ie "OPS invalid for $file" unless ref $temp_ops->{OPS};

    my $experimental = $file =~ /experimental/;

    # mark experimental ops
    if ($experimental) {
	for $_ (@{$temp_ops->{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724277	724399	
==>= {{\@2}};\n  PMC * const io = {{\@1}}; /* TODO Can this be localized? */\n  STRING *s = (VTABLE_get_string(interpreter, p) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	970	1085	
==>ub left  { return shift->{LEFT};  }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	978	1093	
==>ub left  { return shift->{LEFT};  }
sub right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	12047	12238	
==>f possible, so we can
    # render things as (R) instead of ((?:R))
    if ($str =~ /^\(\?\:(.*)\)$/) {
        $str = $1;
    }
    return "($str)";
}

# FIXME: Should render the _absence_ of <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25396	25487	
==>op= $endexpr
@stepcode
	FORLOOP_STEP_$forloop= $stepexpr
FOR_$forloop:
	gt FORLOOP_STEP_$for <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	51481	51628	
==>!

      my $code         = (pop @lineage)->[0];
      my $ender_length =  pop @stack;
      if($ender_length) {
        --$ender_length;
        $x <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852816	853025	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "io" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853597	853806	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "io" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	225496	225619	
==>ble->get_number(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	226437	226560	
==>ble->get_number(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10120	10257	
==>ef3085,/* 43 */
HH,$b,$c,$d,$a,$_[10],23,0x4881d05,/* 44 */
HH,$a,$b,$c,$d,$_[13],4,0xd9d4d039,/* 45 */
HH,$d,$a,$b,$c,$_[16],11,0xe6db99e <==
2	/Users/nnunley/parrot/examples/benchmarks/stress.pl	385	554	
==>ay();
}

my @arr1;
foreach (1..20) {
    $arr1[$_] = buildarray();
}

my @arr2;
foreach (1..20) {
    $arr2[$_] = buildarray();
}

sub buildarray {
    my @foo;
    forea <==
2	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	423	580	
==>ay();
    }

    my @arr1;
    foreach (1..20) {
	$arr1[$_] = buildarray();
    }

    my @arr2;
    foreach (1..20) {
	$arr2[$_] = buildarray();
    }
}

sub <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	5170	5398	
==>(
                '', 
                'pairs' => ['string_primitives', 'string'],
                'headers' => ['string_funcs']
            ),
            $self->c_item(
                'String encodings', 
                'cont <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6541	6665	
==>=cut

sub is_docs_link
{
	my $self = shift;

	# TODO - This needs more thought. I'm trying to work out which files
	# it's se <==
2	/Users/nnunley/parrot/config/gen/platform.pm	5771	5875	
==>("config/gen/platform/platform_interface.h", "include/parrot/platform_interface.h");

    return $self;
} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	52145	52360	
==>($lol)
  my $string_form = '';
  _stringify_lol( $_[0] => \$string_form );
  return $string_form;
}

sub _stringify_lol {  # the real recursor
  my($lol, $to) = @_;
  use UNIVERSAL ();
  for(my $i = 2; $i < @$lol; ++ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17871	18058	
==>inst ("ERR_$label", 'print',['"Object is not a list\n"']);

  $self->_add_inst ("DONE_$label");

  return $return;
}

sub _op_append {
}

sub _op_reverse {
}

sub _op_list_ref {
}

sub _op <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	1877	1982	
==>acket'); }
sub is_close_paren   { return shift->is('close-paren');   }
sub is_colon         { return shift <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60606	60717	
==>ne 914 \"src/ops/core.ops\"\n  PARROT_WARNINGS_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61256	61367	
==>ne 914 \"src/ops/core.ops\"\n  PARROT_WARNINGS_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	5438	5532	
==>be lost!
 *
 */

END_C

my $mmp_v = "${major_version}_${minor_version}_${patch_version}";
my $i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322666	323083	
==>v_u4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 378,
                  "ARGS" => [
                              "i",
                              "nc"
                            ],
                  "BOD <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1340	1500	
==>e(I<somestring>)

These are shortcuts for C<< $token->tag() eq I<somestring> >>

=back

You're unlikely to ever need to construct an object of this class for
you <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3122	3227	
==>X.c and also create any lib-GROUP.c files

    generate_dump($_) foreach (@pmcs);
    generate_c($_) forea <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3226	3331	
==>X.c and also create any lib-GROUP.c files

    generate_dump($_) foreach (@pmcs);
    generate_c($_) forea <==
2	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1405	1506	
==>ackage KeyedSetOp;
use base qw(Lua::opcode);

package IncrOp;
use base qw(Lua::opcode);

package <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	11393	11525	
==>uilder->current_test() + 1;

            # Name of the file where output is written.
            # Switch to a different extension wh <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	75	182	
==>Pod::Simple ();
use vars qw( $ATTR_PAD @ISA $VERSION $SORT_ATTRS);
$VERSION = '2.02';
BEGIN {
  @ISA = ('Pod <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	76	183	
==>Pod::Simple ();
use vars qw( $ATTR_PAD @ISA $VERSION $SORT_ATTRS);
$VERSION = '2.02';
BEGIN {
  @ISA = ('Pod <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3635	3743	
==>sh)=@_;
	my($prm,$value);
	my($prmlst)={};

	while(($prm,$value)=splice(@$inarray,0,2)) {
        $prm=u <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3447	3550	
==>sh)=@_;
	my($prm,$value);
	my($prmlst)={};

	while(($prm,$value)=splice(@$inarray,0,2)) {
        $prm=u <==
2	/Users/nnunley/parrot/languages/converter.pl	207	325	
==>ent;

sub modifier {
  my $modifier = shift;
  return '' unless defined $modifier->[0];
  return '(?)'  if $modifier->[ <==
2	/Users/nnunley/parrot/examples/benchmarks/oo2.pl	41	165	
==>00000) {
	my $o = new Foo();
}
my $o = new Foo();
print $o->[0], "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? re <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	271	500	
==>ol,
  # '.='   => \&tack_on,  # grudgingly support
  
  'fallback' => 1,         # turn on cleverness
);

sub tack_on {
  $_[0] = ['', {}, "$_[0]" ];
  return $_[0][2] .= $_[1];
}

sub as_string {
  goto &Pod::Simple::BlackBox::st <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	5671	5841	
==>( $line );
    }

    if($line =~ m/^=cut/s) {
      # here ends the pod block, and therefore the previous pod para
      DEBUG > 1 and print "Noting =cut at line ${$self} <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Examples.pm	178	271	
==>xamples - Examples documentation section

=head1 SYNOPSIS

    use Parrot::Docs::Section::Exam <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	1783	1942	
==>ethrough=s
    ]  # no point in providing a way to get <q>...</q>, I think
  ),
  
  '/item-bullet' => "</li><p$Lame></p>\n",
  '/item-number' => "</li><p$Lame> <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	2472	2640	
==>$cmd > $devnull 2>$devnull");
    print "Running cxref (pass 2)\n";
    open(F, "$cmd 2>$devnull|")
      || die "Can't run $cmd.\n";

    my %external_calls;
    my %in <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7418	7573	
==>k('A1',$lhs) eq '@'    #In line rule
            and do {
                    $lhs =~ /^\@[0-9]+\-([0-9]+)$/
                or  die "In line rule name ' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7075	7227	
==>k('A1',$lhs) eq '@'    #In line rule
            and do {
                    $lhs =~ /^\@[0-9]+\-([0-9]+)$/
                or  die "In line rule name ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819066	819331	
==>NAME" => "entrytype",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820025	820290	
==>NAME" => "entrytype",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10096	10216	
==>with_relative_path(shift);
    
    return unless $path;
    
    return -f $path;
}

=item C<directory_with_relative_pat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443060	443485	
==>re",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 507,
                  "ARGS" => [
                              "ic",
                              "p",
                              " <==
2	/Users/nnunley/parrot/config/auto/aio.pm	14	122	
==>) 2001-2003, The Perl Foundation.
# $Id: /parrot/config/auto/aio.pm 19593 2006-05-30T02:28:15.110975Z coke  $ <==
2	/Users/nnunley/parrot/config/auto/jit.pm	1592	1710	
==>SWin32';
    } elsif ($osname =~ /cygwin/i || $cpuarch =~ /cygwin/i) {
        $cpuarch = 'i386';
        $osname  = 'c <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	13259	13406	
==>ace around the argument,
        # like so:
        #
        #    goto OFFSET(( (void*)interpreter->happy_place ))
        #
        # Later transf <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	1343	1487	
==>dler->start_element({ Name => 'new' }, { class => $self->right->value });
  $self->left->sax($handler);
  $handler->end_element({ Name => 'new' } <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	141	297	
==>os) = vtbl_embed( $vtable );

my $header = <<'EOH';
/* ex: set ro:
** !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
**
** This file is generated automatically fr <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	11721	11822	
==>t call to op_code() a hash
 * of short and full opcode names is created
 * hash functions are from imc <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	578	667	
==>tion;

use Parrot::Docs::Section::Info;
use Parrot::Docs::Section::Docs;
use Parrot::Docs: <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4854	4955	
==>um++;
		$ot1=false($ot1);
		return(<<CODE, $result);
	# FIXME
	eq $a1, $ot1, TRUE_${eqnum}
	set $resul <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14608	14786	
==>ng title <$title>\n" }
    else { print "Returning title <>\n" }
  }
  
  return '' unless defined $title;
  $title =~ s/^\s+//;
  return $title;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7624	7854	
==>ort it as a BUG.\n";
                $$dotpos = $1;
            };

            @sempar =       $$dotpos
                        ?   map { $$_[1] } @$stack[ -$$dotpos .. -1 ]
                        :   ();

            $se <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7277	7499	
==>ort it as a BUG.\n";
                $$dotpos = $1;
            };

            @sempar =       $$dotpos
                        ?   map { $$_[1] } @$stack[ -$$dotpos .. -1 ]
                        :   ();

            $se <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	37343	37450	
==>is used.

=item 3.

A string specifying a pattern to be matched at the closing tag. 
If the pattern string i <==
2	/Users/nnunley/parrot/lib/Test/More.pm	23537	23640	
==>only be avoided when no_plan is in use.
        _carp "todo_skip() needs to know \$how_many tests are in <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	18708	18861	
==>e $@ if $@;

    close $fh;
    $class;
}


=head2 print_tree( [$dir1, $dir2], 0, $file1, $file2, ... );

Print the inheritence tree for each of the files <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	6403	6530	
==>nfig/gen/makefiles/punie.in' => 'languages/punie/Makefile',
        commentType                     => '#',
        replace_slas <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	690507	690785	
==>{{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "thaw", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691263	691541	
==>{{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "thaw", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936327	936604	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "titlec <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937104	937381	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "titlec <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	624098	624379	
==>ELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS",
                  "NAME" => "pic_callr__",
                  "FLAGS" => ":pic",
                  "ARG <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	4514	4639	
==>se {
        DEBUG > 5 and print "# It's a code-line.\n";
        $code_handler->(map $_, $line, $self->{'line_count'}, $self) <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1525	1752	
==>sc?, :$todo, :$depends) returns Bool is export {
    my $test := not($got eq $expected);
    Test::proclaim($test, "Should not match: $desc", $todo, $got, $expected, $depends, :negate);
}

## like

sub like (Str $got, Rule $expe <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4523	4632	
==>eturn $pir;
}

sub post_op($$) {
	# Nothing to do.
	return "";
}

# Pre and post branch operation hooks.
sub p <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2939	3048	
==>eturn $pir;
}

sub post_op($$) {
	# Nothing to do.
	return "";
}

# Pre and post branch operation hooks.
sub p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572987	573076	
==>ing);\n  VTABLE_set_string_native(interpreter, name, {{\@2}});\n  {{\@1}} = pmc_new_init(i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573897	573986	
==>ing);\n  VTABLE_set_string_native(interpreter, name, {{\@2}});\n  {{\@1}} = pmc_new_init(i <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	14347	14473	
==>regular
expressions as arguments, but need to work before perl 5.005.

Takes a quoted regular expression produced by qr//, or a <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	254	341	
==>from C<Parrot::OpTrans::CPrederef> and
C<Parrot::OpTrans::CGoto> to provide predereferen <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34094	34237	
==>append code that it generates.
		my $pre_branch = $srm->pre_branch($rule->{'pop'});
		$pir .= "### pre_branch\n";
		$pir .= sub_meta($pre_branch <==
2	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	700	798	
==>les/benchmarks/stress.pasm>, 
F<examples/benchmarks/stress.pl>, 
F<examples/benchmarks/stress1.pasm <==
2	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	547	645	
==>les/benchmarks/stress.pasm>, 
F<examples/benchmarks/stress.pl>, 
F<examples/benchmarks/stress1.pasm <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeDumb.pm	947	1106	
==>itory, so we need to knock out
    #    # all the highbit things
    #    $x =
    #      pack 'C*',
    #      map {; ($_ < 128) ? $_ : 0x7e }
    #      unpac <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1498	1615	
==>ead1 METHOD CALLING

When Pod::Simple sees a "=head1 Hi there", for example, it basically does
this:

  $parser->_hand <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5420	5547	
==>n";
}

sub run {
    print join(" ", @_), "\n";

    return system(@_) == 0;
}

# XXX: ordering of libs might be crucial
sub gat <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5631	5758	
==>n";
}

sub run {
    print join(" ", @_), "\n";

    return system(@_) == 0;
}

# XXX: ordering of libs might be crucial
sub gat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367112	367405	
==>\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	16923	17083	
==>me of the file with test code.
            my $code_f = File::Spec->rel2abs( per_test('.pir', $test_no) );

            # output file
            my $out_f  = pe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477	580	
==>::OpLib::core;

use vars qw($VERSION $ops $preamble);

$VERSION = "0.4.5";

$preamble = "/*\n** core.ops <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	10136	10275	
==>TIVE};
        $self->diag("    $msg test ($file at line $line)\n");
    } 

    return $test ? 1 : 0;
}


sub _unoverload {
    my $self  = <==
2	/Users/nnunley/parrot/config/gen/icu.pm	4468	4586	
==>un() =~ /^$header OK/) {

        # Ok, we don't need anything more.
        print "Your compiler found the icu headers <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812776	813058	
==>clone",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 917,
                  "A <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	30014	30173	
==>ROT_TWO
{
    my ($n, $c, $cmt) = @_;
    print "\t\t$cmt\n";
    my $v = pop @stack;
    my $w = pop @stack;
    push @stack, $w;
    push @stack, $v;
}

sub S <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	27869	27984	
==>"=back doesn't take any parameters, but you said =back $content"
        );
      }

      if(@$curr_open and $curr_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23192	23305	
==>close_paren;
      }

      $self->require_semicolon;
      
      my $goto = Jako::Construct::Statement::Goto->ne <==
2	/Users/nnunley/parrot/config/inter/libparrot.pm	1842	2105	
==>('libparrot_ldflags'))) {
        $conf->data->set(
            libparrot_ldflags => ($parrot_is_shared)
            ? '-L' . $conf->data->get('build_dir')
                   . $conf->data->get('slash')
                   . $conf->data->get('blib_dir') . ' -l <==
2	/Users/nnunley/parrot/config/auto/gc.pm	2000	2158	
==>LLOC',
        );
    } elsif ($gc eq 'libc') {
        $conf->data->set(
            TEMP_gc_c => <<"EOF",
\$(SRC_DIR)/res_lea\$(O):	\$(GENERAL_H_FILES) \$(SR <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	61197	61526	
==>>{self}        = undef;
    $parser->YYData->{idx_tmp}     = 0;
    $parser->YYData->{idx_lbl}     = 0;
    $parser->YYData->{idx_fct}     = 0;
    $parser->YYParse(
        yylex   => \&_Lexer,
        yyerror => sub { return; },
#        yydebug => 0x17,
        #    Bit Value    Outputs
        #    0x01         Toke <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10617	10740	
==>k("Error in driver logic. Please, report it as a BUG");

}#_Parse
#DO NOT remove comment

1;

}
#End of include----- <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10140	10255	
==>k("Error in driver logic. Please, report it as a BUG");

}#_Parse
#DO NOT remove comment

1;

}
#End of include----- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23043	23232	
==>t *)p->vtable->invoke(interpreter, p, dest);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25482	25671	
==>t *)p->vtable->invoke(interpreter, p, dest);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11758	11902	
==>$+b$
print c$

' String function, whoa
function a$
	a$="Whoa"
end function
print a$

' String reference, no way
function a$(u$)
	u$="No way"
	a$= <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	2282	2392	
==>r the elements in the referenced
vtable array.

=cut

sub vtbl_defs {
    my $vtable = shift;

    my $defs = q <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847798	848061	
==>chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 962, <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76042	76148	
==>ty("ERRORS");
	$errortext   = $_[0];
	$errorprefix = "ERROR" .  ($_[1] ? " (line $_[1])" : "");
	$errortext <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3430	3596	
==>][0]]{ACTIONS}}
}

sub YYLexer {
    my($self)=shift;

	$$self{LEX};
}


#################
# Private stuff #
#################


sub _CheckParams {
	my <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3258	3408	
==>][0]]{ACTIONS}}
}

sub YYLexer {
    my($self)=shift;

	$$self{LEX};
}


#################
# Private stuff #
#################


sub _CheckParams {
	my <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	868674	869164	
==>> [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 986,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 232 \"src/ops/string.ops\"\n  INTVAL len;\n  len = string_length(int <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	15645	15760	
==>lf->{'paras'}};
  my $curr_open = ($self->{'curr_open'} ||= []);

  my $scratch;

  DEBUG > 10 and print "# Paragrap <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6575	6708	
==>my @ops;
    if ($self->{DEBUG}) {
	push @ops, (qq(print "PUSHED ).(@_>1?$_[1]:"mark").qq(\\n";));
    }
    push @ops, "push \@<rx_st <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6925	7044	
==>my @ops;
    if ($self->{DEBUG}) {
	push @ops, (qq(print "PUSHED ).(@_>1?$_[1]:"mark").qq(\\n"));
    }
    push @ops, $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009159	1009449	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compose",
                  "FLAG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009923	1010213	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compose",
                  "FLAG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640269	640644	
==>FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 715,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  " <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	147	307	
==>e warnings;
use 5.006;

use base 'Parrot::Test::M4';

our $VERSION = 0.01;

sub get_out_fn {
    my $self = shift;
    my ( $count ) = @_;

    return Parrot::Te <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5794	5994	
==>esult, 0.0
	branch EQ_${eqnum}_end
EQ_${eqnum}_ok: set $result, 1.0
EQ_${eqnum}_end: noop
CODE
	},
	'imp' => sub {
		my($a1,$a2,$result,$op,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804277	804390	
==>}}->vtable->set_pmc_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805178	805291	
==>}}->vtable->set_pmc_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	622	733	
==>x = $self->prefix;
  }
  else {
    $prefix = $self->peer ? $peer->prefix : $compiler->block_label($kind);
    $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	602	713	
==>x = $self->prefix;
  }
  else {
    $prefix = $self->peer ? $peer->prefix : $compiler->block_label($kind);
    $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	60	169	
==>what dimly on Array::Autojoin

use strict;
use Pod::Simple::BlackBox;

use overload( # So it'll stringify nice <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	4922	5058	
==>d result is false.

=item C<example_output_is( $example_f, $expected, @todo )>

Determine the language from the extension of C<$example_f <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	391	722	
==>rectory      path to benchmarks directory
   -h -? -help        display this help and exits
   -list              list available benchmarks and exits
   -m -method         method of time from times()
                      1 $cuser + $csystem from times() (default)
                      2 Real time using POSIX::times()
   -n -noben <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	23430	23544	
==>rp,
            "$does", @{[length($does)]}, "ascii",
            PObj_constant_FLAG|PObj_external_FLAG);
EOC
    } <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	403	515	
==>on operations per second) using
integer arithmetic.

Prints out:

=over 4

=item * the number of look iterations, <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	399	511	
==>on operations per second) using
integer arithmetic.

Prints out:

=over 4

=item * the number of look iterations, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	367808	367895	
==>336 \"src/ops/io.ops\"\n  {{\@1}} = PIO_reads(interpreter, PIO_STDIN(interpreter), (size <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368600	368687	
==>336 \"src/ops/io.ops\"\n  {{\@1}} = PIO_reads(interpreter, PIO_STDIN(interpreter), (size <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	4974	5220	
==>at's it for that source arrayref!  Killing.\n";
        $self->SUPER::parse_lines(undef);
        delete $self->{'source_arrayref'}; # so it can be GC'd
      }
       # to make sure that an undef is always sent to signal end-of-stream

    } elsi <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	7718	7830	
==>h_name
{
    my $self = shift;
    my $path = $self->path_for_directory_with_name(shift) || return;
    
    retu <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8265	8377	
==>h_name
{
    my $self = shift;
    my $path = $self->path_for_directory_with_name(shift) || return;
    
    retu <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	272	367	
==>file = 'all_cstring.str';
my $string_private_h = 'src/string_private_cstring.h';

my ($result, $ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	212	306	
==>gely a copy of Parrot::Test::Tcl, which looks like it's
largely a copy of Parrot::Test::Python. <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	250	344	
==>gely a copy of Parrot::Test::Tcl, which looks like it's
largely a copy of Parrot::Test::Python. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723805	724234	
==>item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 811,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 16 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9708	9912	
==>token
{
    my $self = shift;
    my $token = shift;
    my $text = $token->text;
    
    esc($text);
    $text =~ s/([\?\!\"\'\.\,]) /$1\n/g unless $self->{DONT_WRAP};
    
    # URLs not in L<>.
    $te <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	16586	16774	
==>[0] eq '=over' or $paras->[0][0] eq '~Verbatim'
        or $paras->[0][0] eq '=item' )
    ;
    # Those're the three kinds of paragraphs that require lookahead.
    #   Actually, an "=item <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	251	368	
==>8:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expression::Infix;

use base qw(Jak <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12810	12956	
==>gs) . ")\n";
}


sub parse_exit {
	if ($syms[NEXT] eq "for") {
		feedme();
	  	$foo=$fors[$scopes]->[-1];
		push @{$code{$seg}->{code}}, "\tgoto AF <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138585	139024	
==>FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 170,
                  "ARGS" => [
                              "ic",
                              "i",
                              "ic"
                            ] <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	774	926	
==>/\d/) {
			append;
			fetch;
			goto NUMCONST;
		}
		if ($cur eq '.' ) {
			append;
			fetch;
			$numtype="FLO";
			goto NUMCONST;
		}
		if ($cur =~ /[eE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	139481	139816	
==>FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 171,
                  "ARGS" => [
                              " <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	535	654	
==>_I", NEXT => 'TEST', REDO => 'THEN', LAST => 'ELSE' },
  'sub'      => { PREFIX => "_S", NEXT => 'TEST', REDO => 'THEN', <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	556	675	
==>_I", NEXT => 'TEST', REDO => 'THEN', LAST => 'ELSE' },
  'sub'      => { PREFIX => "_S", NEXT => 'TEST', REDO => 'THEN', <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319831	320040	
==>RGS" => [
                              "i",
                              "n"
                            ],
                  "BODY" => "#line 124 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (INTVAL)((Parrot_Int4)({{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	2790	2944	
==>if\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|P <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	4029	4150	
==>/
END_HEADER

find(\&wanted, '.');

my $svnignore = `svn propget svn:ignore @dirs`;
my %ignore;
my @ignore = split( /\n\n/ <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1871	1988	
==>est, $desc, $todo, $got, $expected, $depends);
}

## unlike

sub unlike (Str $got, Rule $expected, Str $desc?, :$todo, <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1886	2025	
==>ompile
{
  my $self = shift;
  my ($compiler) = @_;

  my $block = $self->block;
  my $kind  = $self->kind;
  my $name  = $self->ident ? $se <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	2605	2761	
==>tem C<name_without_suffix()>

This will give you the name minus any .xyz suffix.

=cut

sub name_without_suffix
{
    my $self = shift;
    my $name = $self- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565251	565704	
==>se",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 646,
                  "ARGS" => [
                              "i",
                              "p",
                              "s"
                            ],
                  "BODY" => "#lin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649046	649168	
==>" => "#line 234 \"src/ops/pmc.ops\"\n    {{\@1}} = pmc_type_p(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649809	649931	
==>" => "#line 234 \"src/ops/pmc.ops\"\n    {{\@1}} = pmc_type_p(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "L <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	4078	4236	
==>meta{split(/,/, $meta)} = ();
    $meta{$_} = 1 for (keys %meta); # Laziness

    if ($meta{lib}) {
        # don't allow libraries to be installed into subdir <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	2506	2655	
==>f;
        my $contents = <F>;
    
	foreach (keys %$typedefs) {
            delete $typedefs->{$_} unless ($contents =~ /\Q$_\E/);	    
	}
	
	foreach <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18212	18326	
==>}, "\tgoto $labels{$syms[CURR]}\t# Goto $syms[CURR]\n";
}
sub parse_gosub {
	feedme;
	create_label();

	push @{$cod <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	251	347	
==>8:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expression::Va <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	261	357	
==>8:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Expression::Va <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5203	5345	
==>e platforms
        if ($^O eq 'hpux' or $^O eq 'cygwin') {
            chmod 0755, "$dest/$_$LOAD_EXT";
        }

    }
}
else {
    die "inv <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5414	5556	
==>e platforms
        if ($^O eq 'hpux' or $^O eq 'cygwin') {
            chmod 0755, "$dest/$_$LOAD_EXT";
        }

    }
}
else {
    die "inv <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	81	193	
==>.535041Z fperrad  $

require Parrot::Test;

package Parrot::Test::Regex;

use strict;

use Data::Dumper;
use File <==
2	/Users/nnunley/parrot/config/init/optimize.pm	150	305	
==>init/optimize.pm - Optimization

=head1 DESCRIPTION

Enables optimization by adding the appropriate flags for the local platform to
the C<CCFLAGS>. Should t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556360	556610	
==>> 638,
                  "ARGS" => [
                              "p",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 115 \"src/ops/object.ops\"\n  opcode_t *dest <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	12427	12552	
==>h @{$extra_preamble_ref},
        "t_$temp_num = string_to_cstring(interpreter, GET_NCI_S($reg_num));";
        push @{$extra_ <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	13311	13491	
==>rename      stdio.h
rewind      stdio.h
rint        math.h
rintf       math.h
rintl       math.h
round       math.h
roundf      math.h
roundl      math.h
scalbln     math.h
scalblnf <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605352	605526	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606142	606316	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	24484	24681	
==>1]->isa('CallOp') ) {
        $defn->{pragma} = 'first';
    }
    return $expr;
}

sub BuildLocalVariable {
    my ( $parser, $idf ) = @_;
    my @opcodes = ();
    my $defn    = $parser-> <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3742	3902	
==>ad1 TODO

=over 4

=item *

Write a pollution detector also for the C preprocessor: also in that
namespace, Parrot should only present Parrot_ (and similar) symb <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9978	10084	
==>1][0]]{ACTIONS}{error})
					or	$$states[$$stack[-1][0]]{ACTIONS}{error} <= 0)) {

#DBG>			$debug & 0x10 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9531	9634	
==>1][0]]{ACTIONS}{error})
					or	$$states[$$stack[-1][0]]{ACTIONS}{error} <= 0)) {

#DBG>			$debug & 0x10 <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	8656	8770	
==>'} eq 'op' ||
	         $rule->{'class'} eq 'load' || $rule->{'class'} eq 'calling')) {
		die "typeinfo must be sup <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	2018	2154	
==>/$parrot_path/g;
    $makefile =~ s/\$\{trans_mono_lib_path\}/$mono_lib_path/g;
    $makefile =~ s/\$\{trans_class_library\}/$class_lib <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	35613	35736	
==>ur tests passed, Test::Builder will exit with zero (which is
normal).  If anything failed it will exit with how many failed. <==
2	/Users/nnunley/parrot/lib/Test/More.pm	33684	33807	
==>ur tests passed, Test::Builder will exit with zero (which is
normal).  If anything failed it will exit with how many failed. <==
2	/Users/nnunley/parrot/config/inter/progs.pm	961	1072	
==>set to null command.
    # XXX need config support for a null command.
    my $null = 'echo';
    my $first_work <==
2	/Users/nnunley/parrot/config/gen/cpu/i386/auto.pm	340	537	
==>as_mmx   => 1

=cut

package gen::cpu::i386::auto;

use strict;
use warnings;

use Parrot::Configure::Step qw(cc_gen cc_build cc_run cc_clean);

sub runstep
{
    my ($self, $conf) = @_;

    my $ve <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	9394	9528	
==>644 ..${slash}ops${slash}$pod\n\n";
            }
        }

    } else {
        print "\nNo Perldoc, not generating a docs makefile.\ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48510	48673	
==>rammar =~ m/$ATLEAST/gco)
					{ $minrep = $1 }
				elsif ($grammar =~ m/$ATMOST/gco)
					{ $maxrep = $1 }
				elsif ($grammar =~ m/$MANY/gco)
					{ }
				elsif ( <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	5733	5862	
==>parrot_stringify($target);

    # Beginning of the pir code
    my $pirCode = qq(
        .sub _PGE_Test
            .local pmc p6 <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	5859	5982	
==>e to redirect STDOUT to
    STDERR    filehandle to redirect STDERR to
    CD        directory to run the command in

For ex <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1684	1794	
==>0 start := pos');
}

sub output_increment {
    my ($self, $distance, $failLabel) = @_;
    die "invalid distan <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1437	1547	
==>0 start := pos');
}

sub output_increment {
    my ($self, $distance, $failLabel) = @_;
    die "invalid distan <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11005	11111	
==>doc_init,
    $self->font_table,
    $self->stylesheet,
    $self->color_table,
    $self->doc_info,
    $s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2908	3018	
==>e { return shift->{FILE}; }
sub line { return shift->{LINE}; }

sub is_global
{
  my $self = shift;

  return d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733713	733964	
==>o_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734477	734728	
==>o_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/tools/build/list_unjitted.pl	89	243	
==>ctory as an argument.\nPossible options are:";
    opendir DIR, 'jit' or die $!;
    while (my $dir = readdir DIR){
        next if $dir =~ /^\./ or $dir e <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16337	16439	
==>);
		$whole.=join(' ', map { $_->[0] } @expr);
		@expr=fixup(@expr);		# Repair unary -, functions, etc. <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9177	9392	
==>s   = '' unless defined $cc_args;
    $link_args = '' unless defined $link_args;

    my $verbose = $conf->options->get('verbose');

    my ($cc, $ccflags, $ldout, $o, $link, $linkflags, $cc_exe_out, $exe, $libs) = $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321594	321851	
==>get_integer(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323950	324207	
==>get_integer(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1144	1281	
==>sign;
use Jako::Construct::Statement::Bitwise;
use Jako::Construct::Statement::Call;
use Jako::Construct::Statement::Concat;
use Jako::Con <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	2223	2323	
==>& $sourcefile;

#		local $::RD_HINT = 1;
		$self = Parse::RecDescent->new($grammar,1)
			|| croak("Ca <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	879	970	
==>OPCODE cur_opcode
#define IREG(i) REG_INT(cur_opcode[i])
#define NREG(i) REG_NUM(cur_opcode[ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	995	1086	
==>OPCODE cur_opcode
#define IREG(i) REG_INT(cur_opcode[i])
#define NREG(i) REG_NUM(cur_opcode[ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8622	8773	
==>me2character{'apos'}   = "'";
  $Name2character{'sol' }   = '/';
  $Name2character{'verbar'} = '|';
}

#------------------------------------------------ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	923208	923490	
==>{
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 103 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	2811	3082	
==>le calling";
}

sub convert_sv_literal {
    use Data::Dumper;
    my ($self, $tree, $ctx) = @_;
    die Dumper($tree) unless $tree->type eq 'String';
    my $literal = $tree->lval;
    die Dumper($tree) unless $literal =~ s/^\"//;
    die Dumper($tree) unless $literal =~ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2687	2786	
==>dex_html = '';
	
	print "\n\n", $self->name unless $silent;
	
	foreach my $content ($self->contents_ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7330	7448	
==>);

    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        return ("set <rx_tmp>, <rx_stac <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9430	9547	
==>);
    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        return ("set <rx_tmp>, <rx_stac <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	13304	13502	
==>$parser,
                    'arg1'   => $key->[0],
                    'arg2'   => undef,
                    'result' => $result,
                );
                return [ $result, \@opcodes <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647535	647656	
==>e 229 \"src/ops/pmc.ops\"\n    {{\@1}} = pmc_type(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648296	648417	
==>e 229 \"src/ops/pmc.ops\"\n    {{\@1}} = pmc_type(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	2481	2631	
==>strict 'refs';

        *{ $package . '::' . $func } = sub ($$;$%) {
            my( $code, $expected, $desc, %extra ) = @_;

            Parrot::Test: <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	3333	3440	
==>s($file_line_coverage{$source_file})) {
            $source_file = "$source_file (from $da_file)";
        } <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	398	521	
==>t;
use warnings;

use base qw( Parrot::IO::Path );

use DirHandle;
use File::Path;
use File::Spec;
use Parrot::IO::File;

=i <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1230	1451	
==>f->output_label_use($failLabel);
    return ("<rx_pos> += $distance; # pos++",
            "goto $failLabel if <rx_pos> > <rx_len>; # past end of input?",
            '<rx_match>{0}->[0] = <rx_pos>; # group 0 start := pos' <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	2868	2968	
==>s all the code and data symbols
in the object or archive files.  The options can be used to limit the <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2212	2308	
==>P1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Decrement sta <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3464	3560	
==>P1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Decrement sta <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	525267	525746	
==>],
                  "TYPE" => "inline",
                  "CODE" => 606,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 787 \"src/ops/math.ops\"\n  {{\@1}} = acos((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	283	420	
==>::POD2HTML> subclasses C<Pod::Simple::HTML> to provide
various Parrot-specific formatting features, such as linking
C<CE<lt>Parrot::I<Modu <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	27645	27752	
==>h might be '0', or '1'.
      $self->{'accept_codes'}{$new_letter}
        = (@fallbacks == 1) ? $fallbacks[ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	23	133	
==>::Simple::LinkSection;
  # Based somewhat dimly on Array::Autojoin

use strict;
use Pod::Simple::BlackBox;

use <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/State.pm	197	405	
==>lf;
}

sub literal_label {
    my ($self, $label, $desc) = @_;
    $desc ||= '';
    return bless { name => 'LABEL',
                   label => $label,
                 }, 'Regex::Ops::Label';
}

sub genlabel <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567480	567577	
==>Y" => "#line 213 \"src/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->does(interpreter, {{\@2}}, { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568375	568472	
==>Y" => "#line 213 \"src/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->does(interpreter, {{\@2}}, { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	330922	331223	
==>n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "close",
                  "FLAGS" => ":b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732210	732464	
==>} = (INTVAL)({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732956	733210	
==>} = (INTVAL)({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	731	848	
==>::Yapp module itself.
#
# This notice should remain unchanged.
#
# (c) Copyright 1998-2001 Francois Desarmenien, a <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	711	824	
==>::Yapp module itself.
#
# This notice should remain unchanged.
#
# (c) Copyright 1998-2001 Francois Desarmenien, a <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	295	441	
==>c/foo.pmc ...

Create F<vtable.dump>:

    % perl tools/build/pmc2c.pl --vtable

Print a class tree for the specified PMCs:

    % perl tools/build <==
2	/Users/nnunley/parrot/config/auto/msvc.pm	961	1079	
==>s the program couldn't be run,
    # which should have been caught by the 'die' above.
    # Therefore, test if it's de <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934118	934425	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934893	935200	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":b <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	24403	24579	
==>_f;
                $builder->ok(0,$desc);
                return 0;
            }

        my $cfg = "src$PConfig{slash}parrot_config$PConfig{o}";
        $cmd =   "$PConfig{li <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	6680	6954	
==>ned($defined_in{$_}) } @symbols;
    my @non_ansi_external_symbols = grep { ! exists($ansi_c89_symbol{$_}) } @external_symbols;
    
    printf("Found %d symbols defined within the %d supplied object files.\n", scalar(@internal_symbols), scalar(@files));
    printf("Found %d <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	898	1037	
==>,
            'result' => $parser->YYData->{_G},
            'arg1'   => '_G',
        );
    }
    return [ $parser->YYData->{_G}, \@o <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4102	4327	
==>x::Ops::Tree::isplain($code) ? " # match '".chr($code)."'" : "";
    my $fail = $self->output_label_use($failLabel);
    my @ops = ("goto $fail if ord(substr(<rx_input>, <rx_pos>, 1)) != $code;" . $comment);
    if ($self->{DE <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2689	2786	
==>, all OK in sequence
PRINT "1 in module-level code"
GOSUB Sub1
PRINT "ERR this line in main routin <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16656	16753	
==>, all OK in sequence
PRINT "1 in module-level code"
GOSUB Sub1
PRINT "ERR this line in main routin <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1157	1280	
==>hift->{NAME};  }
sub args { return @{shift->{ARGS}}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	976	1099	
==>hift->{NAME};  }
sub args { return @{shift->{ARGS}}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5036	5173	
==>e
directory.

=cut

sub contents_relative_to_source
{
    my $self = shift;
    my $source = shift;
    my @contents = ();
    
    foreac <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3028	3150	
==>e
directory.

=cut

sub contents_relative_to_source
{
	my $self = shift;
	my $source = shift;
	my @contents = ();
	
	foreac <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6257	6346	
==>S}
prop_stack_depth[${ITEMP0}] = stack_depth
goto POST_BRANCH_NOT_switch_${CURIC}

POST_BR <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4195	4284	
==>S}
prop_stack_depth[${ITEMP0}] = stack_depth
goto POST_BRANCH_NOT_switch_${CURIC}

POST_BR <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8664	8761	
==>C}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_END_${CURIC}

# Get type of ret <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7236	7333	
==>C}:
${ITEMP0} = elements ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_END_${CURIC}

# Get type of ret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822403	822496	
==>_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_int(entry->entry);\n  {{+=3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823471	823564	
==>_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_int(entry->entry);\n  {{+=3}} <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	15842	15984	
==>plaint\n";
    push @{$self->{'errata'}{$line}}, $complaint
      # for a report to be generated later!
  }
  return 1;
}

#@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	16101	16408	
==>t(5) = ", $x->count(5), "\n";
                            # prints '$x->count(5) = 5'

    print "\$x->count = ", $x->count, "\n";
                            # prints '$x->count = 5'

    print "\$x->count(-5) = ", $x->count(-5), "\n";
                            # dies due to negative argument!

=item Exa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627246	627352	
==>@2}});\n  }\n\n  /* Why?? If we're creating a continuation, the continuation PMC\n   * needs to be in the d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628390	628496	
==>@2}});\n  }\n\n  /* Why?? If we're creating a continuation, the continuation PMC\n   * needs to be in the d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355502	355855	
==>rite",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 415,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	237898	238363	
==>e",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 277,
                  "ARGS" => [
                              "i",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 606 \"src/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	545277	545530	
==>=> [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 1056 \"src/ops/math.ops\"\n INTVAL gcd = 0;\n INTVAL p = 0;\n INTVAL a = {{\@2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818072	818164	
==>40 \"src/ops/stack.ops\"\n  Parrot_push_regs(interpreter);\n  /* these 2 opcodes change the r <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7143	7248	
==>elf, $reg) = @_;
    $reg = value(defined($reg) ? $reg : 'pos');
    return $self->output_pushint($reg);
} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6785	6890	
==>elf, $reg) = @_;
    $reg = value(defined($reg) ? $reg : 'pos');
    return $self->output_pushint($reg);
} <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	11496	11769	
==>ray FixedPMCArray LexInfo MultiSub NameSpace None Pair ResizableBooleanArray ResizableFloatArray ResizableIntegerArray ResizablePMCArray ResizableStringArray Slice Super Undef',
             'pod' => undef,
             'prefix' => '/opt/local',
             'ptr_alignment' <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37821	37977	
==>ctioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28,
			'field' => 177
		}
	},
	{#State 146
		DEF <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	8391	8548	
==>mplex.h
casinl      complex.h
catan       complex.h
catanf      complex.h
catanh      complex.h
catanhf     complex.h
catanhl     complex.h
catanl      comple <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6104	6326	
==>ode(interpreter, {{\@1}});\n    {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6770	6992	
==>ode(interpreter, {{\@1}});\n    {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25560	25678	
==>(0);
    $self->_add_inst('','sub',[$return,$temp,$return]);
    $self->_restore($temp);
  } else {
    $return = $self <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	2046	2215	
==>.c \
                    $(INC_DIR)/oplib/core_ops_cgp.h $(OPS_DIR)/core_ops_cgp.c',
            cg_flag => '-DHAVE_COMPUTED_GOTO'
        );
        print " (yes) " if $ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8548	8655	
==>do the store.
	# Otherwise, there's nothing to do here.
	if ($dest_reg) {
		$pir .= <<'PIR'
# Get type (so w <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6368	6475	
==>do the store.
	# Otherwise, there's nothing to do here.
	if ($dest_reg) {
		$pir .= <<'PIR'
# Get type (so w <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8516	8617	
==>1);tab$(22);c$(i+2);tab$(32);c$(i+3)
next
print
data "ABANDON","CHART","COMPUTER"
data "DAMAGES","DEST <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21380	21481	
==>1);tab$(22);c$(i+2);tab$(32);c$(i+3)
next
print
data "ABANDON","CHART","COMPUTER"
data "DAMAGES","DEST <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514193	514520	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515073	515400	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAGS" => ":b <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1953	2080	
==>e parser module.";

        ref($class)
    and $class=ref($class);

    bless($self,$class);
}

sub YYParse {
    my($ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1886	2004	
==>e parser module.";

        ref($class)
    and $class=ref($class);

    bless($self,$class);
}

sub YYParse {
    my($ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	60889	60986	
==>_no_rule("interpolated literal terminal",$line,"'$1'");
		}
		elsif ($grammar =~ m/$TOKEN/gco)
		{ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3247	3337	
==>Test::PGE::_generate_glob_for($target, $pattern);

    goto &Parrot::Test::pir_output_is;
} <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3672	3762	
==>Test::PGE::_generate_glob_for($target, $pattern);

    goto &Parrot::Test::pir_output_is;
} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	49234	49365	
==>needed only ">".  Back pos up.
        DEBUG > 4 and print " And that's more than we needed to close simple.\n";
        push @{ $li <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1012	1179	
==>count] eq ",") {
    $temp = { children => [{ value => 'unquote' }] };
    my $expr;
    $count++;
    ($count, $expr) = _build_tree ($tokens, $count);
    push @{$temp <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	11123	11233	
==>Failed to rmdir ' . $_[0]->path . ": $!";
    
    $_[0]->SUPER::delete;
}

=item C<delete_contents()>

Deletes <==
2	/Users/nnunley/parrot/config/inter/progs.pm	1503	1616	
==>the
    default will usually work--they've been intuited from your Perl 5
    configuration.

END
    }

    # Set <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840125	840217	
==>DY" => "#line 272 \"src/ops/stack.ops\"\n  rotate_entries(interpreter, &CONTEXT(interpreter-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840820	840912	
==>DY" => "#line 272 \"src/ops/stack.ops\"\n  rotate_entries(interpreter, &CONTEXT(interpreter-> <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11847	11969	
==>ring reference, no way
function a$(u$)
	u$="No way"
	a$="Hello"
end function
t$="Not me"
e$=a$(t$)
print t$

' references t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	427964	428222	
==>v_pn(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428851	429109	
==>v_pn(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	42222	42326	
==>valent to:

	sub extract_tagged
	{
		my $text = shift;
		$extractor = gen_extract_tagged(@_);
		return $e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	749553	749689	
==>"
                            ],
                  "BODY" => "#line 199 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_number_native(interpr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8231	8388	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9346	9503	
==>p' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLA <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3713	3836	
==>attern);

    goto &Parrot::Test::pir_output_is;
}

=item C<pgeglob_like($target, $pattern, $expected, $description, @todo)> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71720	72015	
==>=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlfunc",
                  "FLAGS" => "" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194934	195238	
==>E" => "lt_str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
2	/Users/nnunley/parrot/config/gen/config_pm.pm	1294	1457	
==>";

    my $template = "config/gen/config_pm/config_lib.in";
    open(IN,  $template)          or die "Can't open '$template': $!";
    open(OUT, ">config_lib.pasm" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	9229	9338	
==>, $line) = @_;
  
  # The point of this routine is to set $self->{'_transcoder'} as indicated.

  return $line <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109730	110023	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":base_cor <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110509	110802	
==>,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":base_cor <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2730	2882	
==>ubmitted!";
    exit;
  }

  my %smoke;
  $html =~ /revision: (\d+)/       and $smoke{revision}     = $1;
  $html =~ /duration: (\d+)/       and $smoke{d <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	1264	1527	
==>nley/parrot',
             'byteorder' => '4321',
             'cc' => '/usr/bin/gcc-4.0',
             'cc_debug' => '-g',
             'cc_exe_out' => '-o ',
             'cc_hasjit' => ' -DHAS_JIT -DPPC',
             'cc_inc' => '-I./include',
             'cc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640303	640683	
==>RGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 715,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 184 \"src/ops/pmc.ops\" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	617502	617670	
==>{+=4}};\n    }\n    if (mic->pic) {\n\tlru = mic->pic->lru;\n\tif (lru->u.type == lr_types)\n\t    goto runit_v_pp;\n\tif (++lru->u.type == lr_types)\n\t    goto runit_v <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11521	11674	
==>o and length $to;
    $out .= "#" . $section if defined $section and length $section;
    
    return unless length $out;
    
    return $out;  
}

=item <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	11050	11166	
==>ly matches undef and nothing else
        my $test = !defined $got && !defined $expect;

        $self->ok($test, $na <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	11468	11584	
==>ly matches undef and nothing else
        my $test = !defined $got && !defined $expect;

        $self->ok($test, $na <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	32	151	
==>:Text;
use strict;
use Carp ();
use Pod::Simple::Methody ();
use Pod::Simple ();
use vars qw( @ISA $VERSION $FREAKYMODE) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	15724	15849	
==>'branch marker' ]);

    for my $i (0..$#args-1) {
        push @ops, aop('eq', [ '<tmp>', $i, $ibacks[$i] ]);
    }

    push <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574814	575094	
==>Class, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575618	575898	
==>Class, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8641	8726	
==>PULSE","LRSCAN","NAVIGATE","PHASERS","QUIT"
data "SHIELDS","SOS","SRSCAN","STATUS","TO <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21505	21590	
==>PULSE","LRSCAN","NAVIGATE","PHASERS","QUIT"
data "SHIELDS","SOS","SRSCAN","STATUS","TO <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	404	535	
==>bs_pl.in>.  This script is used for building
dynamic op libraries.

=cut

use strict;

use File::Copy qw(copy);

# qq[] isn't guaran <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1343	1467	
==>$lang,
            stream => { name => $s, data => $streams->{$s}, },
            test   => { name => $t, data => $tests->{$t <==
2	/Users/nnunley/parrot/lib/Test/More.pm	28678	28819	
==>a_Stack, { type => 'ARRAY', idx => $_, vals => [$e1, $e2] };
        $ok = _deep_check($e1,$e2);
        pop @Data_Stack if $ok;

        last <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3461	3552	
==>STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}
goto PR <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5223	5314	
==>STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}
goto PR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571186	571478	
==>sa(interpreter, {{\@2}}, class);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572141	572433	
==>sa(interpreter, {{\@2}}, class);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	3758	3906	
==>le.
    foreach (keys %classes) {
        my $label = "CLASS_$_";
        $label =~ s/\./_/g;
        $pir .= "if class_name == \"$_\" goto $label\n" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	4629	4797	
==>h @tokens, Jako::Token->new(
        $file, $line, 'new', 'pmc', $1);
      $text = $2;
      next;
    }

    
    #
    # (Infix) Ops:
    #

    if ($text =~ m{^( \|= <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	331	484	
==>_on(\$somescalar)" unless @_;
  
  my $x = (defined($_[0]) and ref($_[0]))
    ? $_[0]
    : ( \( $_[0] ) )[0]
  ;
  $$x = '' unless defined $$x;
  
  #Po <==
2	/Users/nnunley/parrot/config/auto/m4.pm	538	672	
==>Determining whether GNU m4 is installed';

@args = qw();

sub runstep
{
    my ($self, $conf) = @_;

    my $archname = $Config{archnam <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	7438	7575	
==>e => $arg_type_name,
        name => $arg_name
      }
    });
    $handler->end_element({ Name => 'arg' });
  }

  $handler->end_element( <==
2	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	261	360	
==>pending the line

  /* CHECKSUM: <checksum> */

to the end of all generated output files, and checki <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22104	22260	
==>mp_curr_open() . ')'
        );
        DEBUG and print "Ignoring mistargetted =end $content\n";
        next;
      }
      
      unless(@$curr_open and $c <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22433	22571	
==>mp_curr_open() . ')'
        );
        DEBUG and print "Ignoring mistargetted =end $content\n";
        next;
      }
      
      unless( <==
2	/Users/nnunley/parrot/config/auto/pack.pm	2271	2480	
==>rsize) {
        $conf->data->set(ptrconst => "u");
    } elsif ($longsize == $ptrsize) {
        $conf->data->set(ptrconst => "ul");
    } else {
        warn <<"AARGH";
Configure.pl:  Unable to find an intege <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2890	3009	
==>be '.'.
    return (defined $rel_path and $rel_path eq '') ? '.' : $rel_path;
}

=item C<parent()>

Returns the director <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11306	11401	
==>pth
${DEST0} = concat ${STEMP0}
pre_call_NO_RETURN_${CURIC}:

# Finished.
goto PRE_CALL_END_${CU <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8492	8587	
==>pth
${DEST0} = concat ${STEMP0}
pre_call_NO_RETURN_${CURIC}:

# Finished.
goto PRE_CALL_END_${CU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422784	423123	
==>\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "listen",
                  "FLAGS" => ": <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423680	424019	
==>\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "listen",
                  "FLAGS" => ": <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	23121	23295	
==>s ];
}

sub BuildLogop {
    my ( $parser, $expr1, $op, $expr2 ) = @_;
    my @opcodes = ();
    my $result = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir <==
2	/Users/nnunley/parrot/config/inter/lex.pm	746	850	
==>f->options->get('verbose');

    # undef means we don't have flex... default to not having flex
    $conf <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065080	1065176	
==>ne 260 \"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065954	1066050	
==>ne 260 \"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root_namespace, *ns;\n    ns = VTABLE <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5608	5713	
==>${INS} = concat ${LOADREG}
${INS} = concat "\n"
PIR
	}

	return $pir;
}

# Pre and post store operation ho <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4450	4555	
==>${INS} = concat ${LOADREG}
${INS} = concat "\n"
PIR
	}

	return $pir;
}

# Pre and post store operation ho <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9663	9749	
==>,$_[9],4,0xfffa3942,/* 33 */
HH,$d,$a,$b,$c,$_[12],11,0x8771f681,/* 34 */
HH,$c,$d,$a,$ <==
2	/Users/nnunley/parrot/config/auto/signal.pm	1180	1310	
==>c_run() !~ /ok/) {
        $conf->data->set(has_sigaction => 'define');
        print " (sigaction)" if $verbose;
    }
    cc_clea <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15014	15138	
==>n)> may not always be the
same as C<chr(e2charnum($n))>, and ditto for
C<$Name2character{$name}> and
C<chr($Name2character_nu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550033	550132	
==>= {{\@1}};\n  meth = {{\@2}};\n  next = {{^+3}};\n  interpreter->current_object = object;\n  interpr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551334	551433	
==>= {{\@1}};\n  meth = {{\@2}};\n  next = {{^+3}};\n  interpreter->current_object = object;\n  interpr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105692	1105977	
==>( {
                  "JUMP" => 0,
                  "NAME" => "getclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functio <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106667	1106952	
==>( {
                  "JUMP" => 0,
                  "NAME" => "getclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "functio <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	9581	9834	
==>max_token => 10_000, @_) ||
  $this->_get_titled_section('AUTHORS', max_token => 10_000, @_);
}

#--------------------------------------------------------------------------

sub _get_titled_section {
  # Based on a get_title originally contributed by Gra <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1726	1824	
==>. . . . . . . . . . . . . . . . . .
#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621461	621655	
==>signature == sig) {\n\tif (sig) {\n\t    n = ((arg_pass_f)lru->f.real_function)(interpreter, sig,\n\t\t    (char*)caller_ctx->bp.regs_i, src_pred, \n\t\t    _reg_base, (void**)cur_opcode);\n\t}\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623630	623721	
==>signature == sig) {\n\tif (sig) {\n\t    n = ((arg_pass_f)lru->f.real_function)(interpreter, <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	4321	4467	
==>Plan}    = 0;
    $self->{No_Plan}      = 0;
    $self->{Original_Pid} = $$;

    share($self->{Curr_Test});
    $self->{Curr_Test}    = 0;
    $se <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10585	10705	
==>'O', 'O', 'x', 'O', 'U', 'U', 'U', 'U', 'U', 'Th', 'ss',
'a', 'a', 'a', 'a', 'a', 'a', 'ae', 'c', 'e', 'e', 'e', 'e', 'i' <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6806	6943	
==>DBG>					print STDERR "**End of Error recovery.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push(@$stack,[ $act, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6489	6620	
==>DBG>					print STDERR "**End of Error recovery.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push(@$stack,[ $act, <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	1865	1964	
==>fine opcode_to_prederef(i, op)   (op ? \\
     (void**) (op   - CONTEXT(i->ctx)->pred_offset) : NULL <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1276	1375	
==>fine opcode_to_prederef(i, op)   (op ? \\
     (void**) (op   - CONTEXT(i->ctx)->pred_offset) : NULL <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	36148	36263	
==>in) = ( $min, $max) if ($max<$min);

	my $desc;
	if ($subrule=~/\A_alternation_\d+_of_production_\d+_of_rule/)
		{ $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49226	49370	
==>ic"
                            ],
                  "BODY" => "#line 785 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1789	1892	
==>t;

    return $self->{ARGS}[shift];
}

=item C<goto_address($address)>

Transforms the C<goto ADDRESS($ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1404	1507	
==>t;

    return $self->{ARGS}[shift];
}

=item C<goto_address($address)>

Transforms the C<goto ADDRESS($ <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1783	1884	
==>rot/include/config.fpmc';
    open F, $image_file or die "Can't read '$image_file': $!";
    my $image <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3714	3827	
==>roup, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert X.c -> X.o for all X.c
    compile($_) f <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3818	3931	
==>roup, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert X.c -> X.o for all X.c
    compile($_) f <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	9243	9407	
==>h my $source_file (sort keys %file_line_coverage) {

        print OUT qq(
            <hr noshade>
            <a name="$source_file"></a>
            <b>File: $sou <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2635	2765	
==>AGE__->op(@_);
}

use vars qw(%MARKERS);
sub mark {
    my $name = shift || '';
    my $number = ++$MARKERS{$name};
    $number = ' <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	43268	43446	
==>lacer,2), # promote its content
          '>'
        );
        # Don't need to do --$i, as the 'E<' we just added isn't interesting.
        next;
      }

      DEBUG > 1 and p <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	34682	34817	
==>o'  } =
            Pod::Simple::LinkSection->new( $it ); # treelet!

          next;
        }
        if($it =~ m/^[^\/\|,\$\%\@\ \"\< <==
2	/Users/nnunley/parrot/lib/Test/More.pm	2084	2203	
==>module, @methods);
  isa_ok($object, $class);

  pass($test_name);
  fail($test_name);

  # UNIMPLEMENTED!!!
  my @statu <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3692	3905	
==>"<rx_len>";
    my $fail = $self->output_label_use($failLabel);
    if ($needed eq "1") {
        return "goto $fail if <rx_pos> >= $lenvar; # need $needed more chars";
    } elsif ($needed eq "0") {
        return <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	2510	2714	
==>t, $equivs[0];
		@equivs = ();
	    }
	    push @output, $stmt;
	}
    }
    die "The final 'terminate' is supposed to make this impossible!"
      if @equivs;

    # Jump threading: replace
    #
    #  g <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	3051	3246	
==>::Builder object different from the
singleton, use C<create>.

=cut

my $Test = Test::Builder->new;
sub new {
    my($class) = shift;
    $Test ||= $class->create;
    return $Test;
}


=item B<cr <==
2	/Users/nnunley/parrot/lib/Test/More.pm	17265	17399	
==>s on the use... }


=cut

sub use_ok ($;@) {
    my($module, @imports) = @_;
    @imports = () unless @imports;

    my($pack,$filename <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	54068	54248	
==>{
            BuildRelop( $_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 66
		 'exp', 3,
sub
#line 373 "Lua\lua51.yp"
{
            BuildRelop( $_[0], $_[1], $_[2], $_ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5057	5181	
==>ub contents_relative_to_source
{
    my $self = shift;
    my $source = shift;
    my @contents = ();
    
    foreach my $co <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3049	3158	
==>ub contents_relative_to_source
{
	my $self = shift;
	my $source = shift;
	my @contents = ();
	
	foreach my $co <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2334	2441	
==>-2) }
sub end_head4       { $_[0]->emit_par(-1) }
sub end_Para        { $_[0]->emit_par( 0) }
sub end_item_b <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1902	2009	
==>-2) }
sub end_head4       { $_[0]->emit_par(-1) }
sub end_Para        { $_[0]->emit_par( 0) }
sub end_item_b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	185647	186057	
==>i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 221,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 292 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter, {{\ <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1633	1748	
==>h } } # JMG
    }
}

1;

my $urmc = "$PConfig{perl} $FindBin::RealBin$PConfig{slash}..$PConfig{slash}urmc";
my $comp <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2264	2361	
==>CK$register_num} = ${STEMP0}

# Decrement stack height.
dec stack_depth
PIR
		$pir =~ s/\$register <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3516	3613	
==>CK$register_num} = ${STEMP0}

# Decrement stack height.
dec stack_depth
PIR
		$pir =~ s/\$register <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	821	924	
==>iles which had
familiar types, but from which descriptions were not obtained.

=back

=head1 TO DO

=ove <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126840	127198	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rot",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127975	128333	
==>0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rot",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561941	562042	
==>nterpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", {{\@3}});\n  }\n  {{=next}};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563025	563126	
==>nterpreter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", {{\@3}});\n  }\n  {{=next}};\n" <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	21734	21849	
==>nterfere
with test output.  A newline will be put on the end if there isn't one
already.

We encourage using this ra <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2459	2746	
==>:run_command(
            \@test_prog,
            CD     => $self->{relpath},
            STDOUT => $lua_out_fn,
            STDERR => $lua_out_fn,
        );

        my $builder_func = $language_test_map{$func};

        # That's the reason for:   no strict 'refs';
        m <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2294	2391	
==>lue, $op)>

Returns the C code for the specified op argument type (see
C<Parrot::OpTrans>) and val <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3185	3282	
==>lue, $op)>

Returns the C code for the specified op argument type (see
C<Parrot::OpTrans>) and val <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	41732	41841	
==>ributes.

  #my @ells_to_tweak;

  while($treelet = shift @stack) {
    for(my $i = 2; $i < @$treelet; ++$i) { <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	271	375	
==>ad1 DESCRIPTION

A documentation section describing all the C source code in Parrot.

=head2 Class Method <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	8523	8655	
==>show;
		want_show(\$show, $Global, $global) if $show;
		want_show(\$show, $Local,  $local ) if $show;
		want_show(\$show, $Undef,  $u <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	17001	17220	
==>ilecounter=0;
sub parse_while {
	$whilecounter++;
	push(@whiles, { jump => $whilecounter });
	my($result, $type, @code)=EXPRESSION();
	$false="0.0";
	$false=qq{""} if ($type eq "S");

	push @{$code{$seg}->{code}}, "WHILE <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	6497	6589	
==>self->{"prods"}}, $prod;
	$self->{"changed"} = 1;
	delete $self->{"expected"};
	$self->{"impc <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	2491	2640	
==>s used, then no init function is generated.
Otherwise, one is generated which sets up the vtable and enters it into
the C<vtables> array.

The .c file <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1130	1283	
==>ntaining subrules that refer to each
other. In this form:

    [
        [ name1 => 'pattern 1' ],
        [ name2 => 'pattern 2' ],
        [ name3 => '< <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2880	3009	
==>24,

 'lchevron' => 171, # legacy for laquo
 'rchevron' => 187, # legacy for raquo

 # Remember, grave looks like \ (as in virtu\) <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	2154	2254	
==>=back

=cut

use strict;
use lib 'lib';

use Data::Dumper;
$Data::Dumper::Useqq  = 1;
#$Data::Dumper: <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	2475	2594	
==>ashes containing the data.
    my @rules = ();
    my $rule;

    # Read through rules file line by line.
    my $line = <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4467	4574	
==>sts $pmc_group->{$_} } @pmcs;
    partial_link($_, $pmc_libs->{$_}, [ $_ ] ) foreach (@ungrouped_pmcs);
} 
e <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4571	4678	
==>sts $pmc_group->{$_} } @pmcs;
    partial_link($_, $pmc_libs->{$_}, [ $_ ] ) foreach (@ungrouped_pmcs);
} 
e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	534482	534797	
==>,
                  "NAME" => "log2",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 618,
                  "A <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	9762	10019	
==>K{} blocks
sub startset { undef }

########################################################################
# Rendering - only used for debugging for now
########################################################################

package Regex::Ops::Tree; # Wo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	772047	772481	
==>ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 872,
                  "ARGS" => [
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 350 \"s <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	8940	9060	
==>re && $$textref =~ m/\G(?:$ignore)/gc)
		{
			next;
		}
		elsif ($bad && $$textref =~ m/\G($bad)/gcs)
		{
			pos($$textre <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	4323	4419	
==>gExpr attribute="Comment" context="#pop" String="^\\=cut\\s*\$" />
      </context>

END

print < <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	180	298	
==>ages/jako/lib/Jako/Construct/Block/Conditional/Else.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "u <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21609	21711	
==>f->_constant(1);
  my $temp = $self->_generate($node->{children}[1]);
  $self->_add_inst(''           , <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21994	22096	
==>f->_constant(1);
  my $temp = $self->_generate($node->{children}[1]);
  $self->_add_inst(''           , <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	7144	7265	
==>table1_op Parrot_jit_normal_op
#define Parrot_jit_vtable1r_op Parrot_jit_normal_op
/*
 * the numbers corresspond to the re <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	96	189	
==>21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::File - Docs-Related File

=head1 S <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2270	2368	
==>ister_num} = ${STEMP0}

# Decrement stack height.
dec stack_depth
PIR
		$pir =~ s/\$register_num/$r <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3522	3620	
==>ister_num} = ${STEMP0}

# Decrement stack height.
dec stack_depth
PIR
		$pir =~ s/\$register_num/$r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954268	954355	
==>"src/ops/string.ops\"\n  {{\@1}} = Parrot_encoding_number_of_str(interpreter, {{\@2}});\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955059	955146	
==>"src/ops/string.ops\"\n  {{\@1}} = Parrot_encoding_number_of_str(interpreter, {{\@2}});\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134441	134678	
==>> 165,
                  "ARGS" => [
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 321 \"src/ops/bit.ops\"\n  string_bitwise_xor(interpreter, {{\@1} <==
2	/Users/nnunley/parrot/config/inter/charset.pm	717	832	
==>harset')
        || join(' ', grep { defined $_ } @charset);

    if ($conf->options->get('ask')) {
        print << <==
2	/Users/nnunley/parrot/config/inter/ops.pm	725	869	
==>ep {
            !/vtable\.ops/
            } glob "src/ops/*.ops"
    );

    my $ops = join ' ', grep { !/obscure\.ops/ } @ops;

    $ops = $co <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15569	15688	
==>$self->_add_inst ('', 'set', [$return.'[0]',$value]);
  $self->_restore ($value);

  return $return;
}

sub _op_set_cdr_ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2244	2383	
==>:_generate_pir_for($target, $pattern)
    );

    goto &Parrot::Test::pir_output_is;
}

=item C<p6rule_like($target, $pattern, $expected, $d <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1721	1845	
==>:_generate_pir_for($target, $pattern)
    );

    goto &Parrot::Test::pir_output_is;
}

=item C<p6rule_isnt($target, $pattern <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4811	4955	
==>ible from this block, including those
from the symbol tables of parent blocks.

=cut

sub dump_symbols
{
  my $self = shift; # Required: Jako::Co <==
2	/Users/nnunley/parrot/tools/build/list_unjitted.pl	717	927	
==>)\s*\{\s*$/){
        push @jitted, $jit;
    }
}
close JIT or die "Noo.. $!";

my @not_jitted;

OP : foreach my $op ( @ops){
    foreach my $jit (@jitted){
        next OP if $jit eq $op;
    }
    push @not_ji <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21043	21193	
==>en) {
        DEBUG > 1 and print "Ignoring ignorable =begin\n";
      } else {
        $self->{'content_seen'} ||= 1;
        $self->_handle_element_s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	9936	10179	
==>s children at the same
        # starting point in the string -- think of alternation, for
        # example.)
        foreach my $arg (@{ $t->{args} }) {
            if (UNIVERSAL::isa($arg, 'Regex::Ops::Tree')) {
                # $arg is a r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500566	500893	
==>=> "mul",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 575,
                  "ARGS" => [
                              " <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5033	5144	
==>urce
directory.

=cut

sub contents_relative_to_source
{
    my $self = shift;
    my $source = shift;
    my @c <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3025	3127	
==>urce
directory.

=cut

sub contents_relative_to_source
{
	my $self = shift;
	my $source = shift;
	my @c <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	280	392	
==>py of Parrot::Test::Python. Abstraction needed.

=cut

sub new {
    return bless {};
}

sub output_is() {
    my <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	318	430	
==>py of Parrot::Test::Python. Abstraction needed.

=cut

sub new {
    return bless {};
}

sub output_is() {
    my <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	1538	1662	
==>put matches the expected result.

=item C<language_output_isnt( $language, $code, $expected, $description)> 

Runs a langugag <==
2	/Users/nnunley/parrot/lib/Test/More.pm	2480	2618	
==>ic testing.

The purpose of this module is to provide a wide range of testing
utilities.  Various ways to say "ok" with better diagnostics, <==
2	/Users/nnunley/parrot/config/init/miniparrot.pm	158	284	
==>it/miniparrot.pm - Miniparrot configuration

=head1 DESCRIPTION

Modifies settings to match miniparrot (ANSI C Parrot)'s needs. <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	635	751	
==>elf->{parrot};

    my $args = $ENV{TEST_PROG_ARGS} || '';

    $lang_f = File::Spec->rel2abs($lang_f);
    $out_f  = <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	672	788	
==>elf->{parrot};

    my $args = $ENV{TEST_PROG_ARGS} || '';

    $lang_f = File::Spec->rel2abs($lang_f);
    $out_f  = <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	3539	3654	
==>nce.

    foreach my $stmt (@output2) {
        # $stmt : { label => ?label, code => op }
	my ($label, $actual) = @$ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4473	4579	
==>~~~~~~~~~
sub run {
  my $self = $_[0];
  return $self->do_middle if $self->bare_output;
  return
   $self- <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr3.pm	629	751	
==>parrot} languages/${pir_fn}" );
}
 

sub skip_why {
    my $self = shift;
    my ( $options ) = @_;

    if ( $options->{wi <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34995	35110	
==>expected;
				$Parse::RecDescent::unexpected
				   = $Parse::RecDescent::lastunexpected;
			}
			last;
		}'.($::RD_ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42105	42220	
==>expected;
				$Parse::RecDescent::unexpected
				   = $Parse::RecDescent::lastunexpected;
			}
			last;
		}'.($::RD_ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	681	800	
==>);
sub _match_quotelike($$$$);

# HANDLE RETURN VALUES IN VARIOUS CONTEXTS

sub _failmsg {
	my ($message, $pos) = @_;
	$ <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	4384	4500	
==>st::MD5->new;

 $ctx->add($data);
 $ctx->addfile(*FILE);

 $digest = $ctx->digest;
 $digest = $ctx->hexdigest;
 $dige <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	29945	30064	
==>ight package to look for $TODO in.  It
uses the exported_to() package to find it.  If that's not set, it's
pretty good a <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	60904	61064	
==>polated literal terminal",$line,"'$1'");
		}
		elsif ($grammar =~ m/$TOKEN/gco)
		{
			_parse("a /../ pattern terminal", $aftererror,$line);
			$item = new Parse <==
2	/Users/nnunley/parrot/config/inter/libparrot.pm	393	499	
==>nter::libparrot;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::B <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	920986	921075	
==>line 316 \"src/ops/string.ops\"\n    {{\@1}}=Parrot_psprintf(interpreter, {{\@2}}, {{\@3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	921879	921968	
==>line 316 \"src/ops/string.ops\"\n    {{\@1}}=Parrot_psprintf(interpreter, {{\@2}}, {{\@3}} <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	7429	7594	
==>mples.in' => 'languages/tcl/examples/Makefile',
        commentType                        => '#',
        replace_slashes                    => 1
    );
    genfile( <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2791	2893	
==>b expr_address
{
    my ($self, $addr) = @_;
    return "opcode_to_prederef(interpreter, $addr)";
}

=i <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	26533	26670	
==>$params{$c} = $c;
	$lexicals{$c} = $c;
	$names{$c} = $c;
	print <<EOC;
        \t $cmt
EOC
    }
    push @stack, [$n, $c, 'P'];
}

sub ST <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	45640	45903	
==>T => -21
	}
],
                                  yyrules  =>
[
	[#Rule 0
		 '$start', 2, undef
	],
	[#Rule 1
		 'program', 1,
sub
#line 46 "Lua\lua51.yp"
{
            BuildMain( $_[0], $_[1] );
        }
	],
	[#Rule 2
		 'program', 1,
sub
#line <==
2	/Users/nnunley/parrot/config/auto/m4.pm	819	933	
==>as_gnu_m4;

    # Calling 'm4 --version' hangs under FreeBSD
    my %m4_hangs = (freebsd => 1);

    if ($m4_hangs{ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17034	17243	
==>$parser, $idf, 'key' );
                push @opcodes, @{ $key->[1] };
                $result = new_tmp( $parser, 'pmc' );
                push @opcodes, new LocalDir( $parser,
                    'result' <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	18720	18895	
==>ter, iglobals,
            IGLOBALS_NCI_FUNCS);

    if (!HashPointer) {
        HashPointer = pmc_new(interpreter, enum_class_Hash);
        VTABLE_set_pmc_keyed_int(interpret <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	446	544	
==>tions]

=head1 DESCRIPTION

Use a detailed MANIFEST to install a set of files.

=head2 Options

=ov <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	46209	46359	
==>semicolon_opt', 1, undef
	],
	[#Rule 6
		 '_semicolon_opt', 0, undef
	],
	[#Rule 7
		 'block', 1,
sub
#line 75 "Lua\lua51.yp"
{
            P <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	57083	57407	
==>[3], $_[4] );
        }
	],
	[#Rule 89
		 'functioncall', 2,
sub
#line 469 "Lua\lua51.yp"
{
            BuildCallFunction( $_[0], $_[1], $_[2] );
        }
	],
	[#Rule 90
		 'functioncall', 4,
sub
#line 473 "Lua\lua51.yp"
{
            BuildCallMethod( $_[0], $_[1], $_[3], $_[4] );
        }
	],
	[#Rule 9 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	22604	22797	
==>P3
	popp
	restore P1
	ret
OUTOF_$typename: 

OUTOF

}

sub parse_dim {
		feedme;
ANOTHERDIM:
		if ($syms[NEXT] eq "as") {
			my $var=$syms[CURR];
			feedme;  # "as"
			feedme;  # type.
			die "U <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	15790	15966	
==>= <value> <op> <value>;
    #
    # TODO: Can't really support shift amount as arg until sh[lr]_i_i ops are implemented.
    # TODO: Should we really be allowing the shift const <==
2	/Users/nnunley/parrot/tools/docs/pod_errors.pl	633	783	
==>= $file->pod_errors;
	
	print "\n",
		$file->path, 
		' has ', 
		$file->num_pod_errors, 
		' error',
		$file->num_pod_errors != 1 ? 's' : '', 
		":\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029763	1029870	
==>f ({{\@1}} < 0.0) {\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030605	1030712	
==>f ({{\@1}} < 0.0) {\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553894	553996	
==>t = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+4}};\n  interpreter->current_object = object;\n  interpre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555291	555393	
==>t = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+4}};\n  interpreter->current_object = object;\n  interpre <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36056	36193	
==>umulate
the number of lines, C<$out_name> is the name of the output file we are
generating.

The C<Null> PMC throws an execption for all m <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38001	38099	
==>umulate
the number of lines, C<$out_name> is the name of the output file we are
generating.

The C< <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	141	236	
==>e Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Statement.pm 19606 2006 <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	3461	3687	
==>?:\$)Id:[^\$]+\$/so;
    
    return $has_id;
}

=item C<svn_version()>

Returns the svn version number of the file.

=cut

sub svn_version
{
    my $self = shift;
    my $id = $self->svn_id;
    my ($version) = $id =~ /,v\s+(\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	943	1044	
==>"=head1 ..." line will give you
a start-token with the tagname of "head1", token(s) for its
content, a <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1371	1472	
==>"=head1 ..." line will give you
a start-token with the tagname of "head1", token(s) for its
content, a <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	7802	8071	
==>, 'cpu_dep'),
        ),
        $self->new_group(
            'Debugging', 
            '',
            $self->c_item(
                '', 
                'pairs' => ['debug'], 
                'sources' => ['pdb']
            ),
            $self->c_source_item('', ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	980334	980773	
==>DIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1100,
                  "ARGS" => [
                              "i",
                              "ic",
                              "sc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632451	632547	
==>ODY" => "#line 91 \"src/ops/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633493	633589	
==>ODY" => "#line 91 \"src/ops/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interpreter->n_vtable_max <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	1990	2195	
==>/^\s*#\s*line\s+(\d+)/) {
	    # #line directive
	    $line = $1 - 1;
	    next;
	}
	$line++;
	next if m/^\s*#/; # otherwise ignore preprocessor
	next unless s/.*\bCONST_STRING\s*\(\w+\s*,//;

	if ($lines_s <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	31820	31924	
==>here the value would be stored in?
		my $dest_reg;
		if ($rule->{'pir'} =~ /\$\{STACK0\}/ &&
		    $rule- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1452	1568	
==>ler) = @_;

  my $dest_ident = $self->dest;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $se <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1332	1448	
==>ler) = @_;

  my $dest_ident = $self->dest;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $se <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	4723	4882	
==>UNTIMESHUTDOWN

close(CODE);

exit 0;

=pod

=cut

__END__

print "This is the default program.  Say 'compile filename.bas' to compile"
print "  a BASIC program <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90913	91237	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "AR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91767	92091	
==>=> [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "AR <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	68243	68428	
==>atable item encountered: \"$1\"",
			       $line);
			_hint("Did you misspell \"$1\"
			           or forget to comment it out?");
		}

		if ($lookaheadspec =~ tr /././ > 3)
		{
			$loo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206065	206466	
==>"i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 243,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 394 \"src/ops/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361665	361763	
==>}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, INTVAL_FMT, {{\@2}});\n    PIO_putps(in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362564	362662	
==>}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, INTVAL_FMT, {{\@2}});\n    PIO_putps(in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882285	882583	
==>,
                  "CODE" => 999,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	4082	4246	
==>d_global \$P1, "DEBUGGER"
FOO
	foreach(0..@main::basic-1) {
		my $line=$main::basic[$_];
		$line=~s/"/'/g;
		print CODE "\t\$P0[",$_+1,"]= \"$line\"\n";
	}
	print CO <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	18959	19089	
==>u have a document that starts out:

  =head1 NAME
  
  Hoo::Boy::Wowza -- Stuff B<wow> yeah!

then $parser->get_short_title on that <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26054	26191	
==>P_$ps->{num}
	goto FOR_$ps->{num}
AFTER_NEXT_$ps->{num}: noop
NEXT
	} else {    # next var
		while (1) {
			push @{$code{$seg}->{code}}, < <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4542	4677	
==>) foreach (@ungrouped_pmcs);
} 
elsif ($mode eq 'copy') {
    # Copy *.so -> destination, where destination is the first
    # argument, <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4646	4781	
==>) foreach (@ungrouped_pmcs);
} 
elsif ($mode eq 'copy') {
    # Copy *.so -> destination, where destination is the first
    # argument, <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4811	4915	
==>dest = $1;

    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@ <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4915	5019	
==>dest = $1;

    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1707	1796	
==>{\\pard\\li#rtfindent##rtfkeep#\\plain\\s20\\sa180\\f1\\fs18\\lang1024\\noproof\n",
 '/Ver <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1849	1938	
==>{\\pard\\li#rtfindent##rtfkeep#\\plain\\s20\\sa180\\f1\\fs18\\lang1024\\noproof\n",
 '/Ver <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	181	282	
==>r;
use File::Basename;

use Parrot::Test;

=head1 NAME

Parrot::Test::HQ9plus - Testing routines speci <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	98	211	
==>package Regex::Driver;
use strict;

sub new {
    my ($class, $language, %options) = @_;

    if ($language eq 'pe <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	9615	9720	
==>ly identify the name of the
class being created.  The third form assumes the current package
name as the c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539642	539930	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "A <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066184	1066472	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gcd",
                  "FLAGS" => ":advanced_math",
                  "A <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	31347	31512	
==>=> [ $R_back ]),
        $trymatch => $self->startup($num_groups),
                     @R_ops,
                     @save_rxlocals,
                     aop('getstar <==
2	/Users/nnunley/parrot/config/gen/icu.pm	1416	1608	
==>nt "icu-config found... good!\n" if $verbose;
            }
        }

        if (!$without && $autodetect && $icuconfig && $icuconfig ne "none") {
            my $slash = $conf->data->get('sl <==
2	/Users/nnunley/parrot/config/auto/snprintf.pm	257	380	
==>liant.

=cut

package auto::snprintf;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Ba <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	28637	28897	
==>he following:

    skip        see skip()
    todo        see todo()
    todo_skip   see todo_skip()
    unknown     see below

Sometimes the Test::Builder test counter is incremented without it
printing any test output, for example, when current_test() is chan <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	2929	3038	
==>dules share such global information as the test counter and
where test output is going.

If you want a complet <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	55771	55866	
==>xtractor), or returns an empty list or an undefined value (in the case of a subroutine extractor <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355469	355717	
==>0,
                  "NAME" => "write",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3877	3999	
==>oup (keys %$group_files) {
        compile("$group", "lib-$group")
          or die "compile $group.c failed ($?)\n";
    } <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3981	4103	
==>oup (keys %$group_files) {
        compile("$group", "lib-$group")
          or die "compile $group.c failed ($?)\n";
    } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499465	499585	
==>=> "#line 600 \"src/ops/math.ops\"\n  {{\@1}} = floatval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500228	500348	
==>=> "#line 600 \"src/ops/math.ops\"\n  {{\@1}} = floatval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2471	2700	
==>, $h, $c);
    } else {
        while (my @fc = each %{$self->{pmcs}}) {
            my ($file, $generator) = @fc;
            my $h;
            ($h = $file) =~ s/\.\w+$/.h/;
            $h =~ s/(\w+)\.h$/pmc_$1.h/;
            m <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1127	1235	
==>ypes array size.
${ITEMP0} = elements ${STYPES}
PIR

	# Do code for each pop. Need to set up mv's and pop stu <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2837	2945	
==>ypes array size.
${ITEMP0} = elements ${STYPES}
PIR

	# Do code for each pop. Need to set up mv's and pop stu <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	570	667	
==>lock');
  confess("Left (" . ref($left) . ") is not Value") unless UNIVERSAL::isa($left, 'Jako::Co <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	561	658	
==>lock');
  confess("Left (" . ref($left) . ") is not Value") unless UNIVERSAL::isa($left, 'Jako::Co <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	3258	3372	
==>{config_file} );

# Merge Configuration
if ( ! defined $cfg{bench_path} ) {
    $cfg{bench_path} = $ini->val( globa <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12299	12436	
==>se assigns:
    #
    #   <var> <op> <value>;
    #

    if ($token->is_ident and $self->get(1)->is_bit_assign) {
      my $block = $self- <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	7678	7767	
==>t_vtable_1r332_op Parrot_jit_normal_op
#define Parrot_jit_vtable_1r221_op Parrot_jit_norma <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	20634	20808	
==>lMethOp( $parser,
            'result' => [$result],
            'arg1'   => 'len',
            'arg2'   => [ $expr->[0] ],
        );
    }
    else {
        push @op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314573	314807	
==>CODE" => 367,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 67 \"src/ops/dotgnu.ops\"\n  if({{\@1}} >= -128 && {{\@1}} <= 127) {\n    {{\@1}} = (INTVAL <==
2	/Users/nnunley/parrot/lib/Parrot/Revision.pm	90	233	
==>6-05-30T13:40:58.862833Z coke  $

=head1 NAME

Parrot::Revision - SVN Revision

=head1 SYNOPSIS

    use Parrot::Revision;

    print $Parrot::R <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	512	668	
==>urns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new(
		'Documentation', 'docs.html', '',
		$self->new_group('General Document <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	36771	37058	
==>), @link_text  ];
          DEBUG > 3 and printf
           "  So link text is %s\n  and remaining ell content is %s\n",
            pretty($link_text), pretty(@ell_content);
          last;
        }
      }
      
      
      # Now look for the "/" -- only in CHILDREN (not all underli <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931319	931528	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932089	932298	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o", <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	24645	24964	
==>ack)
                   : $self->rewrite_nongreedy_optional($op, $R, $lastback);
}

# R? ->       R or rfail
#             push 1
#             goto next
#       back: popint -> tmp
#             if tmp, R.back
#             goto lastback
#      rfail: push 0
#       next:
#
sub rewrite_greedy_optional {
    my ($self, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670622	670713	
==>rc/ops/pmc.ops\"\n    {{\@1}}->vtable->push_string(interpreter, {{\@1}}, {{\@2}});\n    {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671395	671486	
==>rc/ops/pmc.ops\"\n    {{\@1}}->vtable->push_string(interpreter, {{\@1}}, {{\@2}});\n    {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4268	4445	
==>C<expr_I<X>> method (implemented in subclass).

=cut

sub gen_goto 
{
    my ($self, $where_str) = @_;

    return "return $where_str";
}

=item C<restart_address($address)>

Imp <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	462	553	
==>and outputs a
C<Parrot::OpLib::core> module containing information about the ops.

=head2 Op <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	6079	6193	
==>uotelike && _match_quotelike($textref,"",1,0))
		{
			next;
		}

		else { $$textref =~ m/\G(?:[a-zA-Z0-9]+|.)/gcs } <==
2	/Users/nnunley/parrot/Configure.pl	5266	5396	
==>tep=regex Set verbose for step matching description
   --nomanicheck        Don't check the MANIFEST
   --prefix             Set th <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357900	358039	
==>"
                            ],
                  "BODY" => "#line 245 \"src/ops/io.ops\"\n  PIO_eprintf(interpreter, \"%f\", (double){{\@1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	817690	817842	
==>> []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818468	818620	
==>> []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" = <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	5167	5325	
==>f the func or cpp directives.
            $f = undef if ($1 eq "}");
            next;
        }

        if (defined($f)) {
            # first line of a bloc <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6781	6939	
==>= 0
#DBG>				and	do {
#DBG>					print STDERR "**End of Error recovery.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push(@$stack,[ $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6466	6616	
==>= 0
#DBG>				and	do {
#DBG>					print STDERR "**End of Error recovery.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push(@$stack,[ $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931905	932184	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932676	932955	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase", <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3796	3899	
==>Unknow parameter '$prm'");
			ref($value) eq $$checklist{$prm}
		or	croak("Invalid value for parameter <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3601	3702	
==>Unknow parameter '$prm'");
			ref($value) eq $$checklist{$prm}
		or	croak("Invalid value for parameter <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13811	13939	
==>)
	a=12
	b=99
	c.foo=103
	mine=100
end function
dim z as first
z.foo=13
print mine(foo,20,z)
print foo
print z.foo

' Should prin <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4404	4523	
==>e (1);
    return NULL;
}
END_C

    $c .= " /* " . $self->core_prefix . "$base */\n\n";

    return $c;
}

=back

=head <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	11	253	
==>d::Simple::BlackBox;
#
# "What's in the box?"  "Pain."
#
###########################################################################
#
# This is where all the scary things happen: parsing lines into
#  paragraphs; and then into directives, ver <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59644	59771	
==>d($prod)
			      or  _no_rule("<uncommit>",$line);
			$aftererror = 0;
		}
		elsif ($grammar =~ m/$ERRORPROD/gco)
		{
			pos($g <==
2	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1056	1171	
==>P::UserAgent->new;
  $ua->agent("pugs-smokeserv-client/" . VERSION);
  $ua->env_proxy;

  my $resp = $ua->post($smok <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	138	277	
==>e Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

us <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3205	3335	
==>rint me"
	exit sub
	print "Don't print me"
end sub
function foo$
	foo$="Right one"
	exit function
	foo$="Wrong one"
end function
ca <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17172	17302	
==>rint me"
	exit sub
	print "Don't print me"
end sub
function foo$
	foo$="Right one"
	exit function
	foo$="Wrong one"
end function
ca <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3011	3117	
==>rt_address
{
    my ($self, $addr) = @_;

    return "interpreter->resume_offset = $addr; interpreter->resu <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3880	3986	
==>rt_address
{
    my ($self, $addr) = @_;

    return "interpreter->resume_offset = $addr; interpreter->resu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	466084	466420	
==>,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 348 \"src/ops/math.ops\"\n  {{\@1}}--;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3615	3707	
==>mple>, L<Pod::Simple::TextContent>, L<Pod::Text>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	12075	12470	
==>ons and ref $options eq 'HASH');
  confess "Extra arguments!" if @_;

  foreach my $construct ($self->content) {
    $construct->compile($compiler, $options);
  }
}


1;

__END__

###############################################################################
###############################################################################

=head1 VERSION

$Id: /parrot/languages/jako/lib/Jako/Co <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	3560	3672	
==>udes() {
    my $self = shift;
    my $cout = "";
    $cout .= <<"EOC";
#define PARROT_IN_EXTENSION
#include "par <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	14347	14497	
==>but can't create namespace yet
	    my $gn = "def_arg_" . ($n-$i-1);
	    print <<EOC;
	# $gn $g
	store_global "${f}_$gn", $g
EOC
	    unshift @{$def_a <==
2	/Users/nnunley/parrot/config/auto/headers.pm	101	194	
==>0T02:28:15.110975Z coke  $

=head1 NAME

config/auto/headers.pm - C headers

=head1 DESCRIPTIO <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	75716	75844	
==>$tracecontext
.


select TRACECONTEXT;
$| = 1;

select STDOUT;

sub _verbosity($)
{
	   defined $::RD_TRACE
	or defined $::RD_HIN <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2797	2894	
==>->{'Thispara'} =~ tr{\xAD}{}d if Pod::Simple::ASCII;
  my $out = Text::Wrap::wrap($indent, $indent <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2331	2428	
==>->{'Thispara'} =~ tr{\xAD}{}d if Pod::Simple::ASCII;
  my $out = Text::Wrap::wrap($indent, $indent <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848577	848840	
==>chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 963, <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	8943	9675	
==>/)
                {
                    push @labels, 1;
                    $use = "in$1";
                }
                else
                {
                    push @labels, 0;
                }

                if ($use eq 'in')
                {
                    push @temp, ($type eq 'p') ? 'p' : "$type|${type}c";
                    push @argdirs, 'i';
                }
                elsif ($use eq 'invar')
                {
                    push @temp, $type;
                    push @argdirs, 'i';
                }
                elsif ($use eq 'inconst')
                {
                    push @temp, "${type}c";
                    push @argdirs, 'i';
                }
                elsif ($use <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	19304	19441	
==>ne can come up
      with a neater way to do this.
     */
    ns = string_make(interpreter, " is an unknown signature type", 29, "ascii", <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	16923	17022	
==>$counter = $self->new_local("counter");
    my ($N, @N_ops) = $sizer->($self, $op);
    my ($R_back, <==
2	/Users/nnunley/parrot/examples/benchmarks/addit.pl	607	742	
==>sum
}
my $result = 0;
my @args;
$args[0] = 1000;
$args[1] = 7.100;
$args[2] = 87;
$args[3] = "3.87";
$args[4] = "21000000";
for (my $x = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	156209	156537	
==>base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 189,
                  "ARGS" => [
                              "s", <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	6534	6686	
==>oreach my $stmt (@output3) {
	if (ref $stmt->{code} && $stmt->{code}->{name} eq 'goto') {
	    if ($stmt->{next}->{label}
                && $stmt->{code <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	49165	49261	
==>ption to scream if under-0x20 literals are found in the input, or
under-E<32> E codes are found i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4042	4156	
==>d $self->isa("Jako::Construct::Block");
  confess "No symbol name!"  unless defined $name;
  confess "Extra argumen <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6210	6324	
==>d $self->isa("Jako::Construct::Block");
  confess "No symbol name!"  unless defined $name;
  confess "Extra argumen <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	19152	19315	
==>$include, $file);

        print "    " x $depth, $class->{class}, "\n";
        print_tree($include, $depth + 1, lc("$_.pmc"))
            for keys %{$class->{flag <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1104	1246	
==>))+X0+X4+X6$MSK,X5)+X1$MSK;",
#	GG => "X0=rotate_left(((X1&X3)|(X2&(~X3)))+X0+X4+X6$MSK,X5)+X1$MSK;",
  my %f = (
	FF => "X0=rotate_left((X3^(X <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	2913	3064	
==>ected result is false.

=item C<pir_output_is($code, $expected, $description)>

Runs the PIR code and passes the test if a string comparison of output
w <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	5905	6151	
==>or die "mkdir $_: $!\n";
	    }
	}
    }
}
print("Installing ...\n");
foreach (@files, @installable_exe) {
    my ($src, $dest) = @$_;
    $dest = $options{destdir}.$dest;
    if ($options{'dry-run'}) {
	print "$src -> $dest\n";
	next;
    }
    e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	4208	4363	
==>inline",
                  "CODE" => 5,
                  "ARGS" => [],
                  "BODY" => "#line 129 \"src/ops/core.ops\"\n    opcode_t *pc = CUR_ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	23630	23782	
==>ut($file);

Where normal "ok/not ok" test output should go.

Defaults to STDOUT.

=item B<failure_output>

    $Test->failure_output($fh);
    $Test->fai <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	11707	11811	
==>_code: at first call to op_code() a hash
 * of short and full opcode names is created
 * hash functions a <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5166	5288	
==>um++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		return(<<CODE, $result);
	# XOR $a1, $a2
	set $result, 0.0
	eq $a1, $ot1, E <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3639	3747	
==>}
} 
elsif ($mode eq 'compile') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3743	3851	
==>}
} 
elsif ($mode eq 'compile') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather <==
2	/Users/nnunley/parrot/config/inter/progs.pm	2115	2280	
==>$ld = integrate($conf->data->get('ld'), $conf->options->get('ld'));
    $ld = prompt("What program do you want to use to build shared libraries?", $ld) if $ask;
    $ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	370	453	
==>XPORT_OK);

#======================================================================= <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	408	516	
==>arrot::I<Module>E<gt>> and C<FE<lt>I<file>E<gt>>, and using the
Parrot house-style provided by C<Parrot::HTML <==
2	/Users/nnunley/parrot/lib/File/Which.pm	2542	2709	
==>m files.
                                # so we check -e. However, we don't want to pass -e on files
                                # that aren't in PATHEXT, like REA <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	8115	8260	
==>w = 1;
		sub want_show {
		    my ($show, $Got, $got) = @_;
		    if (defined $Got) {
			if ($Got == $got) {
			    $$show++;
			} else {
			    $ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	4933	5030	
==>r $self->suffix eq 'dump';
	
	if ( ! exists $self->{POD_ERRORS_TIME} or 
		$self->modified_since($ <==
2	/Users/nnunley/parrot/tools/dev/symlink.pl	1566	1685	
==>', $manifile);
	    my $dstfile = File::Spec->catfile(@manifile);
	    my $srcfile = File::Spec->catfile($topsrcdir, @ma <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987198	987720	
==>i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1106,
                  "ARGS" => [
                              "i",
                              "ic",
                              "s",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2281	2460	
==>)>

Transforms the C<OFFSET($offset)> macro in an ops file into the
relevant C code.

=cut

sub expr_offset
{
    my ($self, $offset) = @_;

    return "cur_opcode + $offset";
}

= <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	857	961	
==>qw(Jako::Construct::Expression::Value::Identifier));

  my $self = bless {
    BLOCK  => $block,

    KIN <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	821	925	
==>qw(Jako::Construct::Expression::Value::Identifier));

  my $self = bless {
    BLOCK  => $block,

    KIN <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154762	154936	
==>"s",
                              "ic"
                            ],
                  "BODY" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	155666	155840	
==>"s",
                              "ic"
                            ],
                  "BODY" => "#line 134 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}} <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44388	44538	
==>e 202
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			" <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	6907	7009	
==>------------------------------------------------
# TODO: document these:

sub unaccept_directive { shif <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9257	9365	
==>II) {
      # A good-enough check that it's good as an XML Name symbol:
      Carp::croak "\"$new_code\" isn' <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10521	10629	
==>II) {
      # A good-enough check that it's good as an XML Name symbol:
      Carp::croak "\"$new_code\" isn' <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	39939	40036	
==>o the immediately following paragraph:

	$text = "/para line 1\n\nline 3\n/para line 4";

	extract <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	15662	15819	
==>'qr'	=> '[imsx]*',
		'q'	=> '',
	     );

sub extract_quotelike (;$$)
{
	my $textref = $_[0] ? \$_[0] : \$_;
	my $wantarray = wantarray;
	my $pre  = defined $ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13037	13190	
==>in {
  my ($self, $node) = @_;
  my $temp = 'none';

  my @args = _get_args ($node);

  for (@args) {
    $self->_restore ($temp);
    $temp = $self->_gen <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762031	762332	
==>inline",
                  "CODE" => 860,
                  "ARGS" => [
                              "ic",
                              "p"
                            ],
                  "BODY" => "#line 305 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	33	125	
==>rl Foundation.
# $Id: /parrot/lib/Parrot/Docs/Section/PMCs.pm 20333 2006-06-21T18:44:31.11156 <==
2	/Users/nnunley/parrot/config/inter/charset.pm	1463	1582	
==>NGEN_HEADERS)


END
    }

    # build list of libraries for link line in Makefile
    my $slash = $conf->data->get('sla <==
2	/Users/nnunley/parrot/config/inter/encoding.pm	1480	1599	
==>NGEN_HEADERS)


END
    }

    # build list of libraries for link line in Makefile
    my $slash = $conf->data->get('sla <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2805	2930	
==>d"
Label1:
   PRINT "5 back in module-level code"
   END
Sub1:
   PRINT "2 in subroutine one"
   GOSUB Sub2
   PRINT "ERR this <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16772	16897	
==>d"
Label1:
   PRINT "5 back in module-level code"
   END
Sub1:
   PRINT "2 in subroutine one"
   GOSUB Sub2
   PRINT "ERR this <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6536	6693	
==>fier->new($block, $self->require_ident);
        push @identifiers, $ident;
        last unless $self->skip_comma;
      }

      my $value;

      if ($self- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240864	241146	
==>E" => 280,
                  "ARGS" => [
                              "i",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 616 \"src/ops/cmp.ops\"\n  INTVAL l = VTABLE_get_integer(interpreter, { <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	14227	14350	
==>$1 eq '>';	# MIGHT BE A "LESS THAN"
				_failmsg q{Mismatched closing bracket at "} .
					     substr($$textref,pos($$textr <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	289	434	
==>arnings";

package Jako::Construct::Block::Sub;

use Carp;

use base qw(Jako::Construct::Block);

sub kind { return 'sub'; }

sub new
{
  my $clas <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8648	8735	
==>"LRSCAN","NAVIGATE","PHASERS","QUIT"
data "SHIELDS","SOS","SRSCAN","STATUS","TORPEDO","T <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21512	21599	
==>"LRSCAN","NAVIGATE","PHASERS","QUIT"
data "SHIELDS","SOS","SRSCAN","STATUS","TORPEDO","T <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	836	999	
==>lobal_state();
    my $FAIL = $self->genlabel("FAIL");
    $self->{_labels}{'fail'} = $FAIL;
}


sub aop {
    Regex::Ops::List->op(@_);
}

sub genlabel {
    my ($ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630623	630714	
==>%Ss' not found\", readable_name(interpreter, class));\n    {{\@1}} = pmc_new(interpreter, ty <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631613	631704	
==>%Ss' not found\", readable_name(interpreter, class));\n    {{\@1}} = pmc_new(interpreter, ty <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	24567	24732	
==>_is_fh($file_or_fh) ) {
        $fh = $file_or_fh;
    }
    else {
        $fh = do { local *FH };
        open $fh, ">$file_or_fh" or 
            die "Can't open t <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5237	5338	
==>p;
  my $right = $self->right;

  $handler->start_element({ Name => 'assign' });
  $dest->sax($handler <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3300	3401	
==>p;
  my $right = $self->right;

  $handler->start_element({ Name => 'assign' });
  $dest->sax($handler <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	5365	5456	
==>.

=item C<example_output_isnt( $example_f, $expected, @todo )>

Determine the language from <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	36	146	
==>ation.
# $Id: /parrot/lib/Parrot/Docs/Section/Tools.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NA <==
2	/Users/nnunley/parrot/languages/regex/test.pl	3937	4282	
==>c("test_regex.pir", "test.pbc");
}

sub process {
    my ($input, $output, $testnum) = @_;
    open(TEST, "$PARROT_EXE test.pbc '$input' |");

    local $/;
    my $actual_output = <TEST>;
    if ($actual_output eq $output) {
        print "ok $testnum\n";
        return 1;
    } else {
        print "not ok $testnum\n";
        print " == Rece <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561891	561990	
==>{{\@3}});\n  if (!{{\@1}}) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Metho <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562975	563074	
==>{{\@3}});\n  if (!{{\@1}}) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Metho <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79653	79976	
==>[
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlvar",
                  "FLAGS" => "",
                  "ARGDIRS" => [ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	847	969	
==>BLOCK => $block,
    LEFT  => $left,
    RIGHT => $right
  }, $class;

  $block->push_content($self);

  return $self;
}

s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	855	977	
==>BLOCK => $block,
    LEFT  => $left,
    RIGHT => $right
  }, $class;

  $block->push_content($self);

  return $self;
}

s <==
2	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	610	756	
==>tputs) = @ARGV;
my $checksum;
{
    local $/;
    open(INPUT, $input) or die "open $input: $!";
    $checksum = unpack("%32C*", <INPUT>);
    close <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	1402	1526	
==>l name.

=item C<--t>

Append the short BSD-style type to the symbol name.

    B - uninitialised data symbol
    D - initial <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5451	5654	
==>bol}";
                if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                    print {$FH} " :slurpy";
                }
                $first = 0;
            }
            pr <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6483	6686	
==>bol}";
                if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                    print {$FH} " :slurpy";
                }
                $first = 0;
            }
            pr <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2794	2915	
==>piler->emit("  $temp = $value");
      $args[$i] = $temp;
    }
    else {
      $args[$i] = $args[$i]->compile($compiler) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2494	2615	
==>piler->emit("  $temp = $value");
      $args[$i] = $temp;
    }
    else {
      $args[$i] = $args[$i]->compile($compiler) <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	49835	50158	
==>] );
            BuildAssigns( $_[0], $_[2], [] );
        }
	],
	[#Rule 32
		 '_if_then', 3,
sub
#line 195 "Lua\lua51.yp"
{
            PushScope( $_[0] );
            $_[2];
        }
	],
	[#Rule 33
		 '@10-4', 0,
sub
#line 203 "Lua\lua51.yp"
{
            PushScope( $_[0] );
        }
	],
	[#Rule 34 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	712	984	
==>mon case: one bare string
      return bless ['', {}, $_[0] ], $class;
    } elsif( ref($_[0] || '') eq 'ARRAY') {
      $new = [ @{ $_[0] } ];
    } else {
      Carp::croak( "$class new() doesn't know to clone $new" );
    }
  } else { # misc stuff
    $new = [ '', {}, @ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1348	1449	
==>:Simple>, L<Pod::Simple::Text>, L<Pod::Spell>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Se <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2783	2889	
==>utine should be skipped"
Label1:
   PRINT "5 back in module-level code"
   END
Sub1:
   PRINT "2 in subrout <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16750	16856	
==>utine should be skipped"
Label1:
   PRINT "5 back in module-level code"
   END
Sub1:
   PRINT "2 in subrout <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30223	30341	
==>anslation\n";

		# Push load type onto the stack types array.
		$pir .= "    stypes = push loadtype\n";

        # Emit <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	4244	4388	
==><EXPR;
@code	eq $result, $false, IFBRANCH_$ifline
EXPR
		feedme();
		push(@ifstack, $ifline);
		die "No then at $sourceline --  $syms[CURR]" if ( <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6789	6905	
==>INT A$(I)
NEXT I
END

' mid/left/right  2-9, 1-5, 6-0
t$="1234567890"
print mid$(t$, 2, 8)
print left$(t$, 5)
print r <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	7178	7344	
==>O eq 'irix' || $^O eq 'dec_osf') &&
		    $type =~ /^[BbSs]$/) {
		    if ($type =~ /^[Ss]$/) {
			$small  = 1;
			$uninit = 1;
		    }
		    $zeroed = 1;
		}
		if ($^ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	5253	5379	
==>mbol_names) {
      next if exists $table{$symbol};
      $table{$symbol} = $level;
    }

    $block = $block->block; # Collec <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1961	2059	
==>ormal_args[$i]};
    my $actual_arg_type;

    if (UNIVERSAL::isa($args[$i], 'Jako::Construct::Expr <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1661	1759	
==>ormal_args[$i]};
    my $actual_arg_type;

    if (UNIVERSAL::isa($args[$i], 'Jako::Construct::Expr <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	23126	23285	
==>$make_f = 0;
	print <<EOC;
	# make_f \t$cmt
EOC
	# pop @stack;
	return;
    }
    my $func;
    my $nfix =  ($n & 0xff);
    my $nk =  2*($n >> 8);
    my $name <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	31646	31834	
==>NS]/) {
      $self->_add_inst('','print',[$temp]);
    }
    else {  
      $self->_call_function_sym('write',$temp);
    }
  }
  return $temp; # We need to return something
}

sub _op_dis <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3714	3811	
==>y %module_props = $self->block->props;

      $self->SYNTAX_ERROR("Sub declaration has no fnlib pr <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6378	6475	
==>y %module_props = $self->block->props;

      $self->SYNTAX_ERROR("Sub declaration has no fnlib pr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216470	216951	
==>=> [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 254,
                  "ARGS" => [
                              "p",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 462 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_numb <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020921	1021195	
==>ffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "de <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	372	516	
==>and variants

=head1 SYNOPSIS

    % perl tools/build/parrot_config_c.pl --mini > src/null_config.c
    % perl tools/build/parrot_config_c.pl --i <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	13921	14094	
==>truct> always creates a constructor called C<new>. That constructor
may take a list of initializers for the various elements of the new
struct. 

Each initializer is a pair o <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	15773	15931	
==>inter =  (func_t)D2FPTR(PMC_struct_val(self));
    $temp_in
    $return_assign ($ret_type)(*pointer)($call_params);
    $temp_out
    $final_assign
    $extra_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	5752	5921	
==>ol(NAME)

Search for a symbol, starting with this block, but also checking parent
blocks recursively until a matching symbol is found or the root block is
encountered wit <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	25256	25439	
==>c += 4\n";
			$arg_name = "I_ARG_$arg_num";
		}

        # tstring
		elsif (/^tstring$/) {
			$out =  "    \${I_ARG_$arg_num} = bc.read_tstring()\n    next_pc += 4\n";
			$arg_name = " <==
2	/Users/nnunley/parrot/config/init/defaults.pm	2925	3036	
==>ld.
        ld_share_flags => $Config{lddlflags},

        # Flags to tell ld to build a dynamically loadable mo <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15492	15607	
==>@{ $nil->[1] };
    $result = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'resul <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19245	19360	
==>@{ $nil->[1] };
    $result = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $parser,
        'resul <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431859	432422	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 496,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "i"
                            ],
                  "BODY" => " <==
2	/Users/nnunley/parrot/config/gen/PodText.pm	1127	1244	
==>se');

    my $parser = Pod::Text->new(width => 79);

    my $count = 0; # number of processed files
    foreach my $p <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	2313	2563	
==>r}->$meth(
                          Parrot::Test::slurp_file($out_fn),
                          $output,
                          $desc
                      );
           unless ( $pass ) {
               my $diag = '';
               my $test_pro <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	5030	5288	
==>e                   => '#',
        replace_slashes               => 1,
        conditioned_lines             => 1
    );
    genfile(
        'languages/pugs/config/makefiles/root.in' => 'languages/pugs/Makefile',
        commentType                   => '#' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	785008	785258	
==>886,
                  "ARGS" => [
                              "p",
                              "kic",
                              "p"
                            ],
                  "BODY" => "#line 392 \"src/ops/set.ops\"\n    {{\@1}}->vtable <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16902	17205	
==>",
                  "NAME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 23,
                  "ARG <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	7	179	
==>trict;

package pirVisitor;
{

    sub new {
        my $proto = shift;
        my $class = ref($proto) || $proto;
        my $self  = {};
        bless $self, $cla <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1062	1206	
==>ecode "languages/lua/lib/luacoroutine.pbc"
#  load_bytecode "languages/lua/lib/luapackage.pbc"
#  load_bytecode "languages/lua/lib/luastring.pb <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3697	3802	
==>module';

      my %module_props = $self->block->props;

      $self->SYNTAX_ERROR("Sub declaration has no <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6361	6466	
==>module';

      my %module_props = $self->block->props;

      $self->SYNTAX_ERROR("Sub declaration has no <==
2	/Users/nnunley/parrot/lib/Test/More.pm	11852	11999	
==>ethod) } || push @nok, $method;
    }

    my $name;
    $name = @methods == 1 ? "$class->can('$methods[0]')" 
                          : "$class-> <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28796	28894	
==>hname { $_[0]->{hashname} = '__STRING' . ++$_[1]->{strcount} . '__'; }

sub issubrule { undef }
sub <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30876	30974	
==>hname { $_[0]->{hashname} = '__STRING' . ++$_[1]->{strcount} . '__'; }

sub issubrule { undef }
sub <==
2	/Users/nnunley/parrot/config/gen/icu.pm	3482	3617	
==>";
            }
        }
    }

    die <<"HELP" unless $ok; # this text is also in Configure.PL!
Something is wrong with your ICU ins <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927080	927513	
==>=> [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1043,
                  "ARGS" => [
                              "i",
                              "sc",
                              "i"
                            ],
                  "BODY" => "#line 385 \"src <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	437	542	
==>s = shift;
  my ($block, $ident) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::is <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	437	542	
==>s = shift;
  my ($block, $ident) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::is <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	2658	2901	
==>er->temp_str();
        $compiler->emit("  $temp2 = $ident");
        $ident = $temp2;
      }

      $compiler->emit("  concat $temp, $ident");

      $string = $6;
    }

    $compiler->emit("  concat $temp, \"$string\"")
      if defined $st <==
2	/Users/nnunley/parrot/config/init/hints/msys.pm	91	290	
==>006-05-30T02:28:15.110975Z coke  $

package init::hints::msys;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    $conf->data->set(
        ld            => '$(PERL) /bin/perlld',
        ld <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	125	231	
==>ue warnings in older perls.
$^C ||= 0;

use strict;
use vars qw($VERSION);
$VERSION = '0.30';
$VERSION = ev <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860465	860609	
==>c"
                            ],
                  "BODY" => "#line 118 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(N <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861470	861614	
==>c"
                            ],
                  "BODY" => "#line 118 \"src/ops/string.ops\"\n  if ({{\@3}} < 0) {\n      internal_exception(N <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	630	838	
==>piled library) we
    # need to use the c++ compiler as a linker.  As soon as the user
    # selects a compiler, we will run the gccversion test.  (If we were to
    # wait till it's normally run, the linker q <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105662	1105960	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106637	1106935	
==>'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	2549	2728	
==>t(/\s*,\s*/, $entry->[2]));
        $defs .= "typedef $entry->[0] (*$entry->[1]_method_t)($args);\n";
    }

    return $defs;
}

=item C<vtbl_struct($vtable)>

Returns the C C<str <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7821	7919	
==>"Should not happen (string)"
i%=0
if i% then print "Should not happen (int)"
i%=54
if i% then print <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14808	14906	
==>"Should not happen (string)"
i%=0
if i% then print "Should not happen (int)"
i%=54
if i% then print <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	9096	9209	
==>?\d+/;
    $frac = qr/\.\d+/;
    $pointfloat = qr/(?:(?:\d+)?$frac)|\d+\./o;
    $expfloat = qr/(?:\d+|$pointfloa <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	965	1084	
==>,

    DEBUG  => 1,
    FILE   => $token->file,
    LINE   => $token->line
  }, $class;
}

sub kind  { return shift->{KI <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42862	42965	
==>sub new ($$)
{
	my $class = ref($_[0]) || $_[0];
	local $Parse::RecDescent::compiling = $_[2],
	my $self <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	4367	4727	
==>off visually.
 o could remove/add explicit declarations of string type
 o could convert double to single quotes when possible.
 o could convert strings with embedded newlines to heredocs.

Things that might ease deprecation, but probably won't get done until
after these items are already deprecated.

 o could fixup Pmc vs. .Pmc
 o could undo usage of '<reg> = <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	642	772	
==>builder}->current_test + 1;

    $desc = $language unless $desc;

    # Figure out how many levels we have to go back to get to par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1041787	1042057	
==>ODE" => 1164,
                  "ARGS" => [
                              "sc",
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line 120 \"src/ops/var.ops\"\n    Parrot_store_global(interp <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	3515	3637	
==>ype eq "N") {
		return "0.0";
	} else {
		return qq{""};
	}
}
my $eqnum=0;
my %opsubs=(
	'+' => sub { 
		my ($a1, $a2, $res <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	46308	46448	
==>using
here document might look like this:

        <<'EOMSG' || die;
        This is the message.
        EOMSG
	exit;

Given this as an inpu <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2017	2300	
==>"\a",      # bell
                last;
            s/^\\b//
                and $str .= "\b",      # backspace
                last;
            s/^\\f//
                and $str .= "\f",      # form feed
                last;
            s/^\\n//
                and $str . <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3531	3814	
==>"\a",      # bell
                last;
            s/^\\b//
                and $str .= "\b",      # backspace
                last;
            s/^\\f//
                and $str .= "\f",      # form feed
                last;
            s/^\\n//
                and $str . <==
2	/Users/nnunley/parrot/Configure.pl	9573	9857	
==>nprintf
    auto::perldoc
    auto::python
    auto::bc
    auto::m4
    gen::icu
    gen::revision
    gen::config_h
    gen::core_pmcs
    gen::parrot_include
    gen::makefiles
    gen::platform
    gen::config_pm
);

my $conf = Parrot::Configure->new;
{
    # XXX $Parrot::Configur <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	4197	4346	
==>t = m/( - )/g;
    if ($#cnt) {
        my @a = split /\n(?=(?:.*?) - )/, $_;
        foreach (@a) {
            m/^\s*(.*?) - (.+)/sm;
            $i <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1336	1485	
==>pc
{
    my $self = shift;

    if (@_)
    {
        $self->{PC} = shift;
    }
    else
    {
        return $self->{PC};
    }
}

=item C<args(@arg <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	945	1094	
==>pc
{
    my $self = shift;

    if (@_)
    {
        $self->{PC} = shift;
    }
    else
    {
        return $self->{PC};
    }
}

=item C<args(@arg <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814864	815159	
==>=> [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 920,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 567 \"src/ops/set.o <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3228	3323	
==>hift @_ => Parrot::Test::PGE::_generate_glob_for($target, $pattern);

    goto &Parrot::Test::pi <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3653	3748	
==>hift @_ => Parrot::Test::PGE::_generate_glob_for($target, $pattern);

    goto &Parrot::Test::pi <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	3080	3294	
==>omp $line;
  $line =~ s/#.*//;
  $line =~ s/\s*$//;
  next unless $line;

  # Is it a section line? If so, extract the section and set it.
  if ($line =~ /\[(\w+)\]/) {
    $cur_section = $1;
    next;
  }

  # Ever <==
2	/Users/nnunley/parrot/config/gen/icu.pm	3247	3448	
==>rs =~ s![\\/]$!!;
        foreach my $header (@icu_headers) {
            $header = "$icuheaders/unicode/$header";
            unless (-e $header) {
                $ok = 0;
                warn "error: <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	31081	31208	
==>ons, aop('declare' => [ $var, $type ]);
    }

    my @ops =
      ( $backup =>   aop('popint', [ '<tmp>', "restore rule $name s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4894	4985	
==>o::Construct::Expression::Value::Identifier->new($block, $self->require_ident);
      my $na <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7888	7979	
==>o::Construct::Expression::Value::Identifier->new($block, $self->require_ident);
      my $na <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19787	19966	
==>ck
#           back: if $matchcount >= max goto rfail
#                 R or rfail
#                 $matchcount++
#          check: if $matchcount < min goto back
#           next <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	7184	7390	
==>arrot_jit_vtable1r_op Parrot_jit_normal_op
/*
 * the numbers corresspond to the registers
 */
#define Parrot_jit_vtable_111_op Parrot_jit_normal_op
#define Parrot_jit_vtable_112_op Parrot_jit_normal_op
#defi <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	3395	3640	
==>my ($file, $source) = @_;

    my $line = 0;
    foreach (@$source) {
        $line++;
        next unless defined $_;

        # ignore the line if it looks like it's basically all string.
        next if /^\s*\".*\"(\);|,)?$/;

        if (leng <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	4491	4644	
==>= 0;
    for(@{$ops->{OPS}}) {
        $_->{CODE}=$cur_code++;
    }
}


my $version       = $ops->version;
my $major_version = $ops->major_version;
my $m <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	7320	7544	
==>($R_back, @R_ops) = $self->rewrite($R, $rfail);

    my @ops = (
                        aop('getstart', [ '<tmp>', $group ]),
                        $self->dbprint("pushing start[$group]: "),
                        aop('pu <==
2	/Users/nnunley/parrot/config/gen/platform.pm	3333	3531	
==>\n");
        }
    }

    print PLATFORM_H <<'END_HERE';
#endif
END_HERE

    close PLATFORM_H;

    # implementation files are merged into platform.c
    my @impls = qw/
        time.c
        env. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895814	896143	
==>DE" => 1011,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic",
                              "ic",
                              "sc"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = stri <==
2	/Users/nnunley/parrot/languages/lua/luac.pl	1024	1135	
==>Generate();
}

__END__

=head1 NAME

luac - Lua compiler

=head1 SYNOPSIS

 luac [options] I<source>. <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	6752	6929	
==>dir1, $dir2], $file, $die_unless_found_flag );

Return the full path to $file (search in the given directories).
Optionally, die with an error message if that file cannot be foun <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	706	837	
==>5', 'P6[0]'],
  ['',             'save', 'P6'],
  ['',             'save', 'P1'],
  ['',             '.include', '"interpinfo.pasm"' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020550	1020756	
==>> [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 192 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_ <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	5652	5813	
==>>directory_paths;
}

=item C<file_suffixes($recursive, $ignore)>

Use this to get an array of the file type suffixes used for files in the
directory.

C<$recursiv <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	47254	47339	
==>ew;
}


#----------------------------------------------------------------------------- <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	6469	6571	
==>vcrt -lmoldname -lkernel32 -luser32 -lgdi32 -lwinspool -lcomdlg32 -ladvapi32 -lshell32 -lole32 -loleaut <==
2	/Users/nnunley/parrot/config/init/hints/msys.pm	360	462	
==>vcrt -lmoldname -lkernel32 -luser32 -lgdi32 -lwinspool -lcomdlg32 -ladvapi32 -lshell32 -lole32 -loleaut <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	541340	541687	
==>,
                  "TYPE" => "inline",
                  "CODE" => 626,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 1022 \"src/ops/math.ops\"\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	13568	13861	
==>r Perl v%s at %s GMT}
{\author [see doc]}{\company [see doc]}{\operator [see doc]}
}

END

  # None of the following things should need escaping, I dare say!
    $tag, 
    $ISA[0], $ISA[0]->VERSION(),
    $], scalar(gmtime),
  ;
}

sub doc_start {
  my $self = $_[0];
  my $title = $self->get_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2784	2906	
==>ple::DumpAsXML inherits methods from
L<Pod::Simple>.


=head1 SEE ALSO

L<Pod::Simple::XMLOutStream> is rather like this cl <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2187	2287	
==>}::$name", 'Regex::Ops::Tree');
        $class =~ s/::\w+$// or confess "Called op on invalid class $ <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	4981	5193	
==>any further.


=head1 NOTES

Test::Simple is B<explicitly> tested all the way back to perl 5.004.

Test::Simple is thread-safe in perl 5.8.0 and up.

=head1 HISTORY

This module was conceived while talking with To <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18872	18999	
==>_2;
    }
    $self->_add_inst ('', 'ne', [$temp_0,$temp_1,"DONE_$label"]);
    $self->_restore($temp_1);
  }
  $self->_add_inst <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	5334	5540	
==>tr );
}

sub _Identifier {
    my $parser = shift;
    my ($idf) = @_;

    if ( exists $parser->YYData->{keyword}{$idf} ) {
        return ( $parser->YYData->{keyword}{$idf}, $idf );
    }
    ret <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	30305	30467	
==>ng a single-character-delimited substring from the start of
a string. For example, to extract a single-quote delimited string, the
following code is typically used <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21408	21553	
==>'           ,'set'   ,[$return,0]);
  $self->_add_inst("DONE_$label");
  return $return;
}

sub _op_positive_p {
  my ($self,$node) = @_;
  my $re <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3574	3677	
==>SION({ stuff => "\$X99", choose => 1 });
		push @{$code{$seg}->{code}}, "@code";
		feedme();
		if ($syms <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	272	420	
==>ines] [--dynamic] [--core | input.ops [input2.ops ...]]
       trans := C | CGoto | CGP | CSwitch | CPrederef

For example:

    % perl tools/build/o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605396	605660	
==>JUMP" => 0,
                  "NAME" => "addattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606186	606450	
==>JUMP" => 0,
                  "NAME" => "addattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  " <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	408	537	
==>o::Construct::Block);


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $kind        = $self->kind <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	388	517	
==>o::Construct::Block);


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $kind        = $self->kind <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	32062	32187	
==>xt has results */\n        opcode_t * const results = PMC_cont(cc)->to_ctx->current_results;\n        if (results) {\n\t    /* <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607296	607604	
==>",
                  "CODE" => 688,
                  "ARGS" => [
                              "p",
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 473 \"src/ops/object.ops\"\n    {{\@1}} = VTABLE_get_attr(interpreter, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852097	852589	
==>> [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 967,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 83 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@ <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	3706	3871	
==>t::MD5>) but a Perl implementation of MD5.
It is written in perl only and because of this it is slow but it works without C-Code.
You should use C<Digest::MD5> instea <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	2886	3038	
==>s('last');          }
sub is_literal       { return shift->is('literal');       }
sub is_module        { return shift->is('module');        }
sub is_next <==
2	/Users/nnunley/parrot/languages/m4/tools/scrutinize.pl	68	164	
==>ic

=head1 DESCRIPTION

This is not below 't', in order to not interfere with regression testing. <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	50651	50871	
==>$item)
				      or  _no_rule("<perl_variable>",$line);
			}
			elsif ($grammar =~ m/$NOCHECKMK/gco)
			{
				_parse("a disable checking marker", $aftererror,$line);
				if ($rule)
				{
					_error("<nocheck> directive n <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	4562	4779	
==>, $rule;
    }

    # Close file and return parsed rules.
    close $fh;
    return @rules;
}


# Rule validator.
# ###############
sub validate_rule($) {
    my $rule = shift;
    
    # Flags we'll set as we go throu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23037	23230	
==>pcode_t *)p->vtable->invoke(interpreter, p, dest);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25476	25669	
==>pcode_t *)p->vtable->invoke(interpreter, p, dest);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	8760	8910	
==>sub maxlen { 0 }

package Regex::Ops::Tree::check;
sub minlen { $_[0]->{args}->[1]->minlen(); }
sub maxlen { $_[0]->{args}->[1]->maxlen(); }

package R <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23355	23484	
==>e { $_[1] ? '' : $_[0]->{name} }
sub sethashname { $_[0]->{hashname} = '__DIRECTIVE' . ++$_[1]->{dircount} .  '__'; }

sub new ($$ <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2820	2928	
==>file_directories)
    {
        return $dir->file_with_name($name)
            if $dir->file_exists_with_name <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	3728	3836	
==>file_directories)
    {
        return $dir->file_with_name($name)
            if $dir->file_exists_with_name <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	339173	339451	
==>E" => "inline",
                  "CODE" => 397,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 113 \"src/ops/io.ops\"\n  {{\@1}} = PIO_STDERR(interpreter);\n  {{+=2}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	209	351	
==>n/;
}
sub append {
	$curtok.=$cur;
}
sub emit {
	unless ($_[0] eq "STRING" or $_[0] eq "COMM" or $_[0] eq "DIRECTIVE") {
		$curtok=~tr/A-Z/a-z/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357979	358176	
==>ps/io.ops\"\n  PIO_eprintf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358643	358840	
==>ps/io.ops\"\n  PIO_eprintf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	2645	2737	
==>generated by appending the functions after the various
directives have been replaced.

=head2 <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10852	10997	
==>my $temp = $self->_generate(_get_arg($node,2));
  if ($temp !~ /^P/) {
    my $pmc = $self->_save_1 ('P');
    $self->_morph ($pmc, $temp);
    $s <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	35375	35469	
==>.= <<'PIRCODE';
sp_dest = next_pc + I_arg_0
ss = clone stypes
ss_propogate[sp_dest] = ss
PIRCOD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	538068	538320	
==>inh((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	3177	3345	
==>ed string of the objects key/value pairs
suitable for being C<eval>ed.  The variable name of the structure is
C<PConfig>.

Accepts no arguments and returns a string.

=c <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19526	19698	
==>goto rfail
#               R or rfail
#               $matchcount++
#         next:
#

# R<min,max>? ->  $matchcount = 0
#                 goto check
#          rfail: if $m <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	53950	54045	
==>tched substrings (see below) within the
text should be skipped or returned as fields. If the val <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327138	327390	
==>@1}}, (INTVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327940	328192	
==>@1}}, (INTVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	9752	9871	
==>-

sub _get_titled_section {
  # Based on a get_title originally contributed by Graham Barr
  my($self, $titlename, %opt <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	31488	31798	
==>ult_info",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 40,
                  "ARGS" => [
                              "p"
                            ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846699	846936	
==>eter, (UINTVAL){{\@2}});\n  {{\@1}} = s;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847495	847732	
==>eter, (UINTVAL){{\@2}});\n  {{\@1}} = s;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/config/gen/config_h.pm	272	357	
==>figuration
values, F<include/parrot/has_header.h> with platform-specific header
inform <==
2	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1143	1275	
==>{icudir}\\bin\\icu*.dll"; DestDir: "{app}\\bin"; Flags:
};
}

open OUT, "> parrot.iss" or die "Can't open parrot.iss";

print OUT qq{ <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	932	1063	
==>_re('(?:(?:struct\s+)|(?:union\s+))?'.$ident_re.'\**');
my $param_re = make_re($type_re.'\s+'.$ident_re);
my $arglist_re = make_re(' <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	9090	9220	
==>age_header("Function Coverage Summary");
    print OUT qq(
            <i>You may click on a percentage to see line-by-line detail< <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	689924	690492	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "freeze",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 775,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 621 \"src/ops/pmc.ops\"\n   {{\@1}} = Parrot_freeze <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	28392	28648	
==>ate over children
      next unless ref $treelet->[$i];  # text nodes are uninteresting
      unless($treelet->[$i][0] eq 'Z') {
        unshift @stack, $treelet->[$i]; # recurse
        next;
      }
        
      DEBUG > 1 and print "Nixing Z node @{$tre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	625287	625538	
==>]) : NULL;\n    }\n    else\n        args[0] = NULL;\n    /* set_args */\n    n_args = 0;\n    sig = mic->m.sig;\n    ASSERT_SIG_PMC(sig);\n    n_args = SIG_ELEMS(sig);\n    sig_bits = SIG_ARRAY(sig);\n    for (i = 0; i < n_args; ++i) {\n        switch <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	12724	12872	
==>nan         math.h
nanf        math.h
nanl        math.h
nearbyint   math.h
nearbyintf  math.h
nearbyintl  math.h
nextafter   math.h
nextafterf  math <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	596	699	
==>lts to ''.

=item C<prefix>

The install prefix. Defaults to '/usr'.

=item C<exec_prefix>

The exec pre <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	825	928	
==>lts to ''.

=item C<prefix>

The install prefix. Defaults to '/usr'.

=item C<exec_prefix>

The exec pre <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	871	1028	
==>s will also trigger any hints-file
    # callbacks that depend on knowing whether or not we're using gcc.

    # This key should always exist unless the progr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72336	72613	
==>[
                              "p",
                              "p",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 1156 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(inte <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	3183	3344	
==>bel => $name } });
  $handler->end_element({ Name => 'goto' });

  if (defined $cond) {
    $handler->end_element({ Name => 'block' });
    $handler->end_element( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019803	1019900	
==>const time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_localtime_r(&t, &tm);\n  Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020734	1020831	
==>const time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_localtime_r(&t, &tm);\n  Pa <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	2597	2802	
==>lue->compile($compiler);

    if ($arg_type->name ne $return_type->name) { # TODO: Yuck! should be able to compare directly.
      my $temp = $compiler->temp_reg($return_type);
      $compiler->emit("  $tem <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	704	814	
==>use SVN
# generated by tools/dev/gen_manifest_skip.pl NOW
#
# This file should contain a transcript of the svn: <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6426	6537	
==>"At end: %<rx_pos> >= %<rx_len>?\n"),
            "goto $fail if <rx_pos> < <rx_len>; # at end?");
}

sub output <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	360	475	
==>prog {
    my $self = shift;
    my ( $path_to_parrot, $path_to_language, $count ) = @_;
 
    
    my $test_prog_ar <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	378	487	
==>prog {
    my $self = shift;
    my ( $path_to_parrot, $path_to_language, $count ) = @_;

    my $test_prog_ar <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	6801	7138	
==>->{'name'}\n";
            } else {
                my @args = split(/\s*,\s+/, $rule->{'arguments'});
                foreach (@args) {
                    die "Invalid argument type $_ in rule $rule->{'name'}\n"
                      unless /^((u?int(8|16|32|64))|float(32|64)|jumptable)$/ ||
                      /^t(string|standalone <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	5164	5326	
==>c_item(
                '', 
                'pairs' => ['string_primitives', 'string'],
                'headers' => ['string_funcs']
            ),
            $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	47216	47327	
==>arse_file($source);
  }
  
  return $new;
}


#----------------------------------------------------------------- <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5507	5613	
==>e_finish($base)>

Returns the C code following the run core function.

=cut

sub run_core_finish
{
    my ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3843	3949	
==>e_finish($base)>

Returns the C code following the run core function.

=cut

sub run_core_finish
{
    my ( <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	7681	7853	
==>r;
	@expr=();
	for my $t (0..@foo-1) {
		my($unary,$argthing)=(0,0);
		my($prev, $this, $next)=(
			(($t-1 >= 0)?$foo[$t-1]:undef),
			$foo[$t], 
			(($t+1 <= $#foo)?$foo[$t <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	2121	2253	
==>r << $3) | ((\$r >> (32 - $3))  & ((1 << $3) - 1))) + $4";
	$insert .= "\t$c\n";
  }
  
  my $dump = '
  sub round {
	my ($a,$b,$c,$d <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2877	2994	
==>me($name)
            if $dir->file_exists_with_name($name);
    }
    
    print 'WARNING: ' . __FILE__ . ':' . __LIN <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	20508	20651	
==>th_to_parrot;
                $obj->{parrot}  = $parrot;
                $obj->$meth(@remaining);

                # restore prior level, just i <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6986	7157	
==>eat the eof
				and	$$token=$$value=undef;
                next;
            };

            #reduce
            my($lhs,$len,$code,@sempar,$semval);
            ($l <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6661	6825	
==>eat the eof
				and	$$token=$$value=undef;
                next;
            };

            #reduce
            my($lhs,$len,$code,@sempar,$semval);
            ($l <==
2	/Users/nnunley/parrot/lib/Test/More.pm	28513	28762	
==>$#$a1 > $#$a2 ? $#$a1 : $#$a2;
    for (0..$max) {
        my $e1 = $_ > $#$a1 ? $DNE : $a1->[$_];
        my $e2 = $_ > $#$a2 ? $DNE : $a2->[$_];

        push @Data_Stack, { type => 'ARRAY', idx => $_, vals => [$e1, $e2] };
        $ok = _deep_chec <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	898	1062	
==>if ( @_ == 0 ) {
      $self->export_to_level( 1, $self, @EXPORT );
    } elsif ( @_ == 1 ) {
	# This is admittedly a little bit silly:
	# do we ever export anything <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953059	953390	
==>i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1072,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 540 \"src/ops/strin <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	12730	12836	
==>ra_preamble_ref},
            "t_$temp_num = GET_NCI_S($reg_num);";
        return "PObj_bufstart(t_$temp_n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822418	822533	
==>Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_int(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823486	823601	
==>Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_int(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	36082	36221	
==>...\n";
      for(my $j = 0; $j < @ell_content; ++$j) {
        next if ref $ell_content[$j];
        DEBUG > 3 and
         print "    Peer <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	37291	37430	
==>...\n";
      for(my $j = 0; $j < @ell_content; ++$j) {
        next if ref $ell_content[$j];
        DEBUG > 3 and
         print "    Peer <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	897960	898230	
==>"ARGS" => [
                              "s",
                              "ic",
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)string_replace(in <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	7281	7394	
==>artial_link {
    my ($group, $libs, $stems) = @_;

    my @sources = map { "$_$O" } @$stems;
    if (needs_build( <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7492	7605	
==>artial_link {
    my ($group, $libs, $stems) = @_;

    my @sources = map { "$_$O" } @$stems;
    if (needs_build( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11036	11123	
==>eter->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11825	11912	
==>eter->ctx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931435	931699	
==>FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1046,
                  "ARGS" => <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1694	1808	
==>= '"';

    unless ($CC =~ /gcc/i) {
        $LIBPARROT = '/Users/nnunley/parrot/libparrot.a';
    }
}

# OPS2C Con <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	27201	27315	
==>by any of the specified characters
# (in this case: any type of quote or a slash)

	$patstring = gen_delimited_pat( <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3327	3441	
==>elf{VALUE}};
}

sub YYExpect {
    my($self)=shift;

    keys %{$self->{STATES}[$self->{STACK}[-1][0]]{ACTION <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3161	3269	
==>elf{VALUE}};
}

sub YYExpect {
    my($self)=shift;

    keys %{$self->{STATES}[$self->{STACK}[-1][0]]{ACTION <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945786	946235	
==>e",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1064,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 521 \"src/ops/string. <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3857	3972	
==>OUP.c
    for my $group (keys %$group_files) {
        compile("$group", "lib-$group")
          or die "compile $gr <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3961	4076	
==>OUP.c
    for my $group (keys %$group_files) {
        compile("$group", "lib-$group")
          or die "compile $gr <==
2	/Users/nnunley/parrot/config/gen/icu.pm	282	377	
==>e vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

use Config;
use Cwd <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	5533	5676	
==>}
    my $self;
    if ($meth ne '') {
	$self = shift @params;
	#shift @{$def_args{$arg}};
	$arg_count{$arg}--;
    }

    $params = join("\n\t" <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	58899	59121	
==>t> may also be called with an optional second argument,
which specifies the "escape" character(s) to be used for each delimiter.
For example to match a Pascal-style string (where ' is the delimiter
and '' is a literal ' wit <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Compilers.pm	533	690	
==>new()>

Returns a new section.

=cut

sub new
{
    my $self = shift;
    
    return $self->SUPER::new(
        'Compilers', 'compilers.html', '', <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11917	12049	
==>thod";

    # Rewrite DYNSUPER(args)
    s/DYNSUPER          # Macro: DYNSUPER
      \(\s*(.*?)\)      # capture argument list
     / <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	9177	9355	
==>ut;
    my $result = &share({});

    unless( $test ) {
        $out .= "not ";
        @$result{ 'ok', 'actual_ok' } = ( ( $todo ? 1 : 0 ), 0 );
    }
    else {
        @$result <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	968328	968927	
==>class",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1089,
                  "ARGS" => [
                              "i",
                              "i",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\ <==
2	/Users/nnunley/parrot/languages/APL/t/APL.pm	991	1196	
==>tput;
    if (defined($block->out)) {
      $output = $block->out;
      if ($output)  {
        $output .= "\n"; # XXX a slight hack
      }
      else {
        $output = "0\n"; # XXX MAJOR hack - Test::B <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1033	1149	
==>RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $left  = $self->left->val <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	1041	1157	
==>RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $left  = $self->left->val <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	5892	5995	
==>qr/ *[A-Z][a-zA-Z ]+:/;
	($desc) = /(?:^|\n) *Overview: *\n(((?!$label) *[^\n]+\n)+)/s;
	$info->{warning <==
2	/Users/nnunley/parrot/config/gen/cpu.pm	44	166	
==>on.
# $Id: /parrot/config/gen/cpu.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/gen/cpu.pm - CPU specif <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	7236	7481	
==>ount_here = 0;
        $self->{'rtfitemkeepn'} = '';
        # Some heuristics to stop item-*'s functioning as subheadings
        #  from getting split from the things they're subheadings for.
        #
        # It's not terribly pretty, but it <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24986	25164	
==>ne "to");

	feedme();
	# The destination value
	($endexpr, $type, @code)=EXPRESSION();

	feedme();
	if ($syms[CURR] eq "step") {
		($stepexpr, $type, @stepcode)=EXPRESSION();
	} e <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	1368	1493	
==>constant value into the op
    invar         the argument passes a variable value into the op
    label         an in argument <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1802	2068	
==>me:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 = $N1 / $N2;              # div    N1, N1, N2
$N2 = 1000000.0;              # set    N2, 100 <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1802	2068	
==>me:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 = $N1 / $N2;              # div    N1, N1, N2
$N2 = 1000000.0;              # set    N2, 100 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	34651	34794	
==>9,
			"/" => 82
		},
		DEFAULT => -59
	},
	{#State 126
		ACTIONS => {
			"-" => 72,
			"%" => 76,
			"*" => 80,
			".." => 71,
			"+" <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	26355	26570	
==>/g;
	$desc =~ s/}/\\}/g;
	$desc =~ s/{/\\{/g;

	if (!eval "no strict;
		   local \$SIG{__WARN__} = sub {0};
		   '' =~ m$ldel$pattern$rdel" and $@)
	{
		Parse::RecDescent::_warn(3, "Token pattern \"m$ldel$pattern$rde <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	6405	6529	
==>>startset()} = ();
    }
    return Regex::Ops::Tree::order_startset(\%start);
}

# Returns true if at most one subexpression <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4526	4636	
==>rn $pir;
}

sub post_op($$) {
	# Nothing to do.
	return "";
}

# Pre and post branch operation hooks.
sub pre_b <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2942	3052	
==>rn $pir;
}

sub post_op($$) {
	# Nothing to do.
	return "";
}

# Pre and post branch operation hooks.
sub pre_b <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	4174	4287	
==>) {
        # don't allow libraries to be installed into subdirs of libdir
        $dest = File::Spec->catdir($opt <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	6519	6772	
==>);
    }

    return 1;
}

=item B<expected_tests>

    my $max = $Test->expected_tests;
    $Test->expected_tests($max);

Gets/sets the # of tests we expect this test to run and prints out
the appropriate headers.

=cut

sub expected_tests {
    my $sel <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	2152	2257	
==>TION

This is an internal module for controlling the debug level (a.k.a. trace
level) of Pod::Simple.  Thi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208326	208413	
==>=> "#line 401 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209267	209354	
==>=> "#line 401 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1} <==
2	/Users/nnunley/parrot/lib/Test/More.pm	18825	19079	
==>IAGNOSTIC

    }

    return $ok;
}


sub _is_module_name {
    my $module = shift;

    # Module names start with a letter.
    # End with an alphanumeric.
    # The rest is an alphanumeric or ::
    $module =~ s/\b::\b//g;
    $module =~ /^[a-zA-Z]\w*$/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51781	51911	
==>,   {{\@1}}); }\n  else         { Parrot_clear_trace(interpreter, PARROT_ALL_TRACE_FLAGS); }\n  {{=0,+=2}};\n",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52564	52694	
==>,   {{\@1}}); }\n  else         { Parrot_clear_trace(interpreter, PARROT_ALL_TRACE_FLAGS); }\n  {{=0,+=2}};\n",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1387	1523	
==>rot::Docs::Section::Info->new,
        Parrot::Docs::Section::Docs->new,
        Parrot::Docs::Section::Examples->new,
        Parrot::Do <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26913	27075	
==>emp]);
      $self->_restore($temp);
    }
  }
  return $return;
}

sub _op_divide {
  my ($self,$node) = @_;
  my $return;
  my $num_children = defined $node->{ch <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1832	2043	
==>turn () if $distance == 0;

    my $comment;
    if ($distance == 1) {
        $comment = "pos++";
    } elsif ($distance == -1) {
        $comment = "pos--";
    } elsif ($distance > 0) {
        $comment = "pos <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4388	4487	
==>TEMP0}

# Increment dtypes index.
inc ${ITEMP0}
PIR
		$pir =~ s/\$push_num/$push_num/g;
		$push_num+ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2804	2903	
==>TEMP0}

# Increment dtypes index.
inc ${ITEMP0}
PIR
		$pir =~ s/\$push_num/$push_num/g;
		$push_num+ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15666	15829	
==>' Swap
a$="Hello"
b$="Goodbye"
print a$,b$
swap a$,b$
print a$,b$


' Anti-crawling, gives 0
function foo
	print y
	foo=99
end function
y=66.66
u=foo()

' Bubble so <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	24195	24330	
==>0],
    );
    push @opcodes, new LabelOp( $parser,
        'arg1' => $lbl2,
    );
    return [ $result, \@opcodes ];
}

sub Bu <==
2	/Users/nnunley/parrot/lib/Test/More.pm	58	179	
==>lder;


# Can't use Carp because it might cause use_ok() to accidentally succeed
# even though the module being used forgo <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	617	832	
==>match {
    my ($self, $byte) = @_;
    my $comment = '';
    if ($byte =~ /^[\w ]$/) {
        $comment = " # '$byte'";
    }
    return "re_match P0, ".ord($byte).$comment;
}

sub output_classmatch {
    my ($self, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035675	1035765	
==>, lex_name);\n    if (!result) {\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036839	1036929	
==>, lex_name);\n    if (!result) {\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090212	1090553	
==>MP" => 0,
                  "NAME" => "slice",
                  "FLAGS" => ":python",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1091271	1091612	
==>MP" => 0,
                  "NAME" => "slice",
                  "FLAGS" => ":python",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	3034	3233	
==>OUT;



#
# create 'src/charset/tables.h'
#
###########################################################################
my $h_file= File::Spec->catfile($charset_dir, 'tables.h');
open STDOUT, '>', $h_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19307	19401	
==>k = $self->current_block();
      my $left = Jako::Construct::Expression::Value::Identifier->ne <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20389	20483	
==>k = $self->current_block();
      my $left = Jako::Construct::Expression::Value::Identifier->ne <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1737	1839	
==>$got, Rule $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := $got ~~ $ <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	4887	5000	
==>essful
    4     SS$_ABORT         something went wrong

Unfortunately, I can't differentiate any further.


=head <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	1541	1704	
==>int Data::Dumper->Dump([$generator]) if $opt->{debug} > 1;
    my $cout = $generator->gen_c($c_name);
    print $cout if $opt->{debug};
    print "Writing $c_name\n <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6809	6905	
==><jhoblitt@cpan.org>

=head1 SEE ALSO

F<docs/configuration.pod>, L<Parrot::Configure>, L<Parrot:: <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	2096	2192	
==><jhoblitt@cpan.org>

=head1 SEE ALSO

F<docs/configuration.pod>, L<Parrot::Configure>, L<Parrot:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623997	624191	
==>_set_returns_pc);\n    ((void**)cur_opcode)[1] = mic->m.sig;\n    {{+=0}};\n",
                  "LABELS" => [
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3591	3688	
==>{
	my($mandatory,$checklist,$inarray,$outhash)=@_;
	my($prm,$value);
	my($prmlst)={};

	while <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3404	3496	
==>{
	my($mandatory,$checklist,$inarray,$outhash)=@_;
	my($prm,$value);
	my($prmlst)={};

	while <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035476	1035579	
==>= {{\@2}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n    PMC *result = NU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036640	1036743	
==>= {{\@2}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n    PMC *result = NU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861858	862122	
==>0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "length",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2396	2505	
==>e type of formal argument (%s)!", $formal_arg_name) 
      unless defined $formal_arg_type;

    $self->INTERN <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2096	2205	
==>e type of formal argument (%s)!", $formal_arg_name) 
      unless defined $formal_arg_type;

    $self->INTERN <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16642	16757	
==>ess $x;
        # Escape things very cautiously:
        $x =~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642792	643170	
==>"i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 718,
                  "ARGS" => [
                              "i",
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 194 \"src/ops/pmc.ops\"\n  {{\@ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	7166	7393	
==>39,
 'oplus'    , 8853,
 'otimes'   , 8855,
 'perp'     , 8869,
 'sdot'     , 8901,
 'lceil'    , 8968,
 'rceil'    , 8969,
 'lfloor'   , 8970,
 'rfloor'   , 8971,
 'lang'     , 9001,
 'rang'     , 9002,
 'loz'      , 9674,
 'sp <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	9371	9533	
==>69, 'E',
   70, 'F',
   71, 'G',
   72, 'H',
   73, 'I',
   74, 'J',
   75, 'K',
   76, 'L',
   77, 'M',
   78, 'N',
   79, 'O',
   80, 'P',
   81, 'Q',
   82, 'R' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	13988	14126	
==>t_content) <= $max_content_length)
           : 1)
        ) {
          # Some minimal sanity constraints, I think.
          DEBUG and pr <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	97	214	
==>t of (\d+) from .+?([\.\w]+)\n$/) {
		push @results, {
			name	=> $3,
			total	=> $2,
			done	=> $1,
			percent	= <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	97	214	
==>t of (\d+) from .+?([\.\w]+)\n$/) {
		push @results, {
			name	=> $3,
			total	=> $2,
			done	=> $1,
			percent	= <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	1429	1513	
==>ES) $(BUILD_TOOLS_DIR)/ops2c.pl lib/Parrot/OpsFile.pm lib/Parrot/Op.pm lib/Parrot/OpT <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	1702	1786	
==>ES) $(BUILD_TOOLS_DIR)/ops2c.pl lib/Parrot/OpsFile.pm lib/Parrot/Op.pm lib/Parrot/OpT <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	1411	1508	
==>tegerArray => 66,
	ResizablePMCArray => 67,
	ResizableStringArray => 68,
	Slice => 69,
	Super => 7 <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	16908	17005	
==>assed files (which can be
found in the given directories). A '*.pmc' glob may also be passed
to em <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	722	873	
==>or die $!;

print OUT $header, <<'EOF';

/*
Copyright (C) 2001-2003, 2005, The Perl Foundation. 

=head1 NAME

src/extend.c - Parrot extension interface <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	222202	222686	
==>=> [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 260,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 509 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interprete <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3990	4105	
==>nt
EOD
}
if ($debug) {
	print CODE<<FOO;
.sub _DEBUG_INIT
	saveall
	\$P0=new .PerlArray
	find_global \$P1, "DEBUGGER <==
2	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	488	592	
==>f Parrot.

Note that this is only done for development versions of Parrot, i.e. the
file F<DEVELOPING> ex <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	322	437	
==>Supply the path to your Parrot directory as the only\n",
        "argument. The XML file will be written to the stan <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	1537	1717	
==>ur eq "\n");
			append;
			fetch;
		}
		append;
		$curtok=~s/^"|"$//g;    # Remove quote marks!
		emit("STRING");
		fetch;
		goto MAIN;
	}
	if ( ($cur eq "'") or 
	     ($cur=~/[Rr] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560524	560638	
==>ps\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next = {{^+3}};\n\n  object = {{\@1}};\n  method_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36300	36437	
==>$mv->{'ARG0'}) {
            $mv->{'ARG0'} = 'I_arg_0';
            push @localmv, 'ARG0';
        }

		# Insert typeinfo code (sets up dt <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	8101	8221	
==>nst($class) if $self->{flags}{const_too};

}

=item C<decl($classname, $method, $for_header)>

Returns the C code for the <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	15203	15316	
==>e { $@ = undef }

	unless ($matched)
	{
		_failmsg 'No match found for opening bracket', pos $$textref
			unless $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876674	877136	
==>core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 994,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic",
                              " <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	1188	1317	
==>t depend on the actual Bc implementation
        my $out_fn    = $self->get_out_fn( $count, \%options );
        my @test_prog = $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	2250	2363	
==>ount) = @_;

  $index = $self->pos unless defined $index;

  $count = 1 unless defined $count;

  $self->INTERNAL_ <==
2	/Users/nnunley/parrot/config/init/miniparrot.pm	1870	1999	
==>timer      => undef,

        # we can't guarantee anything about pointer alignment under ANSI C89.
        # so we will have to c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	486714	487007	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "ceil",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	487465	487758	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "ceil",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	110047	110409	
==>ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 137,
                  "ARGS" => [
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 18 <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	2512	2643	
==>kage . '::' . $func } = sub ($$;$%) {
            my( $code, $expected, $desc, %extra ) = @_;

            Parrot::Test::convert_lin <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	1964	2211	
==>cumentation',
	'prd' => 'Parse::RecDescent grammar file',
	'ps' => 'Postscript code',
	'py' => 'Python code',
	'rb' => 'Ryby code',
	's' => 'Some kind of configuration file',
	'scheme' => 'Scheme code',
	'sh' => 'Shell script',
	'spec' => 'RPM buil <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1087334	1087927	
==>S" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1206,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 163 \"src/ops/experimental.ops\"\n    {{\@1}}->vtable->sp <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25602	25704	
==>n,$temp,$return]);
    $self->_restore($temp);
  } else {
    $return = $self->_generate($node->{childr <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27500	27602	
==>n,$temp,$return]);
    $self->_restore($temp);
  } else {
    $return = $self->_generate($node->{childr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	867922	868202	
==>=> 985,
                  "ARGS" => [
                              "s",
                              "sc",
                              "i"
                            ],
                  "BODY" => "#line 232 \"src/ops/string.ops\"\n  INTVAL len;\n  len = string_length(interpr <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	474	616	
==>ss defined $sym;
        unshift(@type, $type);
        unshift(@syms,  $sym);
        $#type=3;
        $#syms=3;
}
sub barf {
	unshift(@tokds <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	5159	5269	
==>was conceived while talking with Tony Bowden in his
kitchen one night about the problems I was having writing s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	262145	262650	
==>"ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 305,
                  "ARGS" => [
                              "i",
                              "sc",
                              "sc"
                            ],
                  "BODY" => "#line 793 \"src/ops/cmp.ops\"\n    {{\@1}} = {{\@2}} == {{\@3}};\n    {{+=4}} <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	287	385	
==>I-Vektor
sub A() { 0x67_45_23_01 }
sub B() { 0xef_cd_ab_89 }
sub C() { 0x98_ba_dc_fe }
sub D() { 0x <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107195	107522	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108049	108376	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	171	301	
==>Configure::Step::Base - Configuration Step Base Class

=head1 SYNOPSIS
    
    use base qw(Parrot::Configure::Step::Base);

=head1 <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	44869	45017	
==>the translation list
of a translation),

=item [9]

the right delimiter of the second block of the operation (if any),

=item [10]

the trailing modi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	164259	164822	
==>"ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 198,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 190 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	165187	165485	
==>"ne",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 19 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804264	804359	
==>\"\n    {{\@1}}->vtable->set_pmc_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805165	805260	
==>\"\n    {{\@1}}->vtable->set_pmc_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n" <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3964	4059	
==>b

# debian/ should not go into release tarballs
^debian$
^debian/
END_HEADER

find(\&wanted, '. <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	2468	2600	
==>urn map { $self->at($index + $_) } (0..$count);
  }

  my $pos = $self->pos;

  $self->INTERNAL_ERROR("Position is not defined") unle <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	16410	16525	
==>ther the dump of a file is newer than the PMC file.
(If it's not, then the PMC file has changed and the dump has
not <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871660	872129	
==>"o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 989,
                  "ARGS" => [
                              "s",
                              "sc",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 239 \"src/o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600234	600348	
==>(interpreter, next, NO_CLASS, \n         \"Class '%Ss' doesn't exist\", name);\n  }\n  else\n    {{\@1}} = class;\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601310	601424	
==>(interpreter, next, NO_CLASS, \n         \"Class '%Ss' doesn't exist\", name);\n  }\n  else\n    {{\@1}} = class;\n <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	661	854	
==>d then cross-references the dubious API
symbols according to the below categories.  Each symbol is listed with
the object file it was found in.

Good things are listed with C<+++> (at the moment <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200496	200917	
==>S" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 237,
                  "ARGS" => [
                              "nc",
                              "n",
                              "ic"
                            ],
                  "BODY" => " <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53176	53279	
==>$1,$self)
				      or  _no_rule($code,$line);

				$item = new Parse::RecDescent::UncondReject($lookahe <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54885	54988	
==>$1,$self)
				      or  _no_rule($code,$line);

				$item = new Parse::RecDescent::UncondReject($lookahe <==
2	/Users/nnunley/parrot/config/gen/platform.pm	2825	2967	
==>lly append generated
    @headers = grep { /\.h$/ } split(',', $generated);
    for (@headers) {
        if (-e $_) {
            local $/ = un <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3149	3301	
==>lf)=shift;

        @_
    and ${$$self{TOKEN}}=$_[0];
    ${$$self{TOKEN}};
}

sub YYCurval {
	my($self)=shift;

        @_
    and ${$$self{ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2995	3136	
==>lf)=shift;

        @_
    and ${$$self{TOKEN}}=$_[0];
    ${$$self{TOKEN}};
}

sub YYCurval {
	my($self)=shift;

        @_
    and ${$$self{ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	7202	7388	
==>p('ident');         }
sub skip_literal       { return shift->skip('literal');       }
sub skip_new           { return shift->skip('new');           }
sub skip_open_brace    { return shift <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125661	125986	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rot",
                  "FLAG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033430	1033525	
==>ULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    VTABLE_set_pmc_keye <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034528	1034623	
==>ULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    VTABLE_set_pmc_keye <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22882	23024	
==>,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 73
		ACTIONS => {
			"-" => 24 <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21064	21178	
==>b _op_zero_p {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	979401	979838	
==>i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1099,
                  "ARGS" => [
                              "i",
                              "i",
                              "sc",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_fin <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	209	391	
==>%EXPORT_TAGS };

$VERSION = '1.89';
@ISA		= qw ( Exporter );
		     
%EXPORT_TAGS	= ( ALL => [ qw(
				&extract_delimited
				&extract_bracketed
				&extract_quotelike
				&extract_co <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	429	631	
==>truct);

use Carp;


###############################################################################

=head2 CLASS->new(BLOCK, KIND, TYPE, PREFIX)

If BLOCK is defined, it is the new Block's parent.

The <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1858	2104	
==>])//
                and $str .= $1,        # backslash, quotation mark, apostrophe
                last;
            s/^\\a//
                and $str .= "\a",      # bell
                last;
            s/^\\b//
                and $str <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3372	3618	
==>])//
                and $str .= $1,        # backslash, quotation mark, apostrophe
                last;
            s/^\\a//
                and $str .= "\a",      # bell
                last;
            s/^\\b//
                and $str <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	9902	10098	
==>113, 'q',
  114, 'r',
  115, 's',
  116, 't',
  117, 'u',
  118, 'v',
  119, 'w',
  120, 'x',
  121, 'y',
  122, 'z',
  123, '{',
  124, '|',
  125, '}',
  126, '~',
);

#-------------------------- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71410	71651	
==>"TYPE" => "inline",
                  "CODE" => 95,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 1150 \"src/ops/core.ops\ <==
2	/Users/nnunley/parrot/config/init/hints.pm	624	737	
==>'verbose');

    my $hints_used = 0;

    my $hints = "init::hints::" . lc($^O);

    print "[ $hints " if $verbos <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	4043	4258	
==>ine++;
        next unless $_;

        if (/\/\// && ! /http:\/\//) {
            error($file, $line, "Possible C++ comment detected.");
        }

        if (/XXX/) {
            info($file, $line, "To-Do (XXX) no <==
2	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	843	1041	
==>$output)) {
        print "$output does not exist; remaking\n" if $Verbose;
        $up_to_date = 0;
        last;
    }
    my $checksum_line = (<OUTPUT>)[-1];
    close OUTPUT;
    if ($checksum_li <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	23135	23246	
==>ush @fields, $class
						? bless (\$field, $class)
						: $field;
					$firstpos = $lastpos unless defined $fi <==
2	/Users/nnunley/parrot/examples/benchmarks/primes.pl	747	846	
==>f ($i1 <= $i2) {goto REDO;}
  print $i6, "\nlast is: $i7\n";

=head1 SEE ALSO

F<examples/benchmarks <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	29602	29728	
==>is
exactly the same as in a scalar context, except (of course) that the
extracted substring is not returned.

=head2 A note abo <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	4578	4709	
==>$total_branches;
                $totals{covered_branches} += $covered_branches;
                $file_branch_coverage{$source_file} <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	7626	7757	
==>$err and $out eq $err ) {
        $err = "&STDOUT";
    }

    local *OLDOUT if $out;
    local *OLDERR if $err;

    # Save the old <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7678	7808	
==>$err and $out eq $err) {
        $err = "&STDOUT";
    }

    local *OLDOUT if $out;
    local *OLDERR if $err;

    # Save the old <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	1947	2112	
==>!!
    } else {
        return $R;
    }
}

sub convert_rx_repeat {
    my ($self, $tree, $ctx) = @_;
    die "Huh?" if $tree->negated;
    return op('multi_match' => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642236	642325	
==>BODY" => "#line 194 \"src/ops/pmc.ops\"\n  {{\@1}} = {{\@2}}->vtable->type_keyed(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643124	643213	
==>BODY" => "#line 194 \"src/ops/pmc.ops\"\n  {{\@1}} = {{\@2}}->vtable->type_keyed(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	4043	4196	
==>em C<delete()>

Removes the instance from the cache, and undefines it.

=cut

sub delete
{
    # Use $_[0] so that we can undef the instance.

    delete( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	4419	4535	
==>ODO: can_match_empty (so s/a*/x/g doesn't go into infinite loop)
# This is sometimes a runtime property.
sub rewrite_ <==
2	/Users/nnunley/parrot/tools/dev/pbc_header.pl	1311	1426	
==>r my $f (@ARGV) {
	open F, "+<$f" or die "Can't open $f: $!";
	seek F, 2, 0;	# pos 2: major, minor
	print F pack "cc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011388	1011614	
==>"\n  {{\@1}} = Parrot_Run_OS_Command(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012153	1012379	
==>"\n  {{\@1}} = Parrot_Run_OS_Command(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	5916	6115	
==>nt, \@temps,
                                \@extra_preamble, \@extra_postamble);
            $sig .= $sig_char{$_};
            $_ eq 'J' && $reg_num--;
        }
    }

    print_function($sig, $re <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7576	7746	
==>"\n(should be \"#$indent$2\" because it is inside of " . (join ' > ', @stack) . ")\n")
            }

            pop @stack;

            next;
        }

        next un <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30827	30962	
==>it's a number or bullet.
          DEBUG and print " Item is of type ", $para->[0], " under $over_type\n";
          
          if($item <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34115	34250	
==>it's a number or bullet.
          DEBUG and print " Item is of type ", $para->[0], " under $over_type\n";
          
          if($item <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	311216	311313	
==>nt is disabled\\n\");\n#else\n\t/*\n\t * XXX adjust register layout\n\t */\n        PDB_print_int( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	20211	20438	
==>,
	[#Rule 18
		 'expr', 3,
sub
#line 127 "lib/Regex/Grammar.y"
{ return op('multi_match' => [ 0, 1, FALSE, $_[1] ]); }
	],
	[#Rule 19
		 'expr', 2,
sub
#line 129 "lib/Regex/Grammar.y"
{ return op('multi_match' => [ $_[2]->{min}, <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	592	694	
==>, $line) = @_;

  return $class->new($file, $line, 'bof', undef, '__BOF__');
}

sub new_eof
{
  my $cla <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621428	621532	
==>lru = &mic->lru;\n    if (lru->u.signature == sig) {\n\tif (sig) {\n\t    n = ((arg_pass_f)lru->f.real_fu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623597	623701	
==>lru = &mic->lru;\n    if (lru->u.signature == sig) {\n\tif (sig) {\n\t    n = ((arg_pass_f)lru->f.real_fu <==
2	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	816	987	
==>re_flags)) {
        my $f = $conf->data->get($ldflags);
        if ($f =~ s/ -s / /) {
            $conf->data->set($ldflags => $f);
        }
    }

    my $linkflags = $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948325	948616	
==>( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "functio <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949124	949415	
==>( {
                  "JUMP" => 0,
                  "NAME" => "trans_charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "functio <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253537	253838	
==>ne",
                  "CODE" => 295,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 726 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@2}} : {{\@3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	2191	2303	
==>C integer key

The size of the return offset is determined from the op function's
signature.

=head2 Op Classific <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362388	362608	
==>=> [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 281 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	24724	24908	
==>UPPLIED
	{
		#WAS: $action .= "Parse::RecDescent::_error(qq{$self->{msg}}" .  ',$thisline);'; 
		if ($check->{itempos}) {
			$action .= 'push @{$thisparser->{errors}}, [qq{'.$self->{msg <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8310	8395	
==>e8c7b756,/* 2 */
FF,$c,$d,$a,$b,$_[6],17,0x242070db,/* 3 */
FF,$b,$c,$d,$a,$_[7],22,0x <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27064	27156	
==>e}=$englishname;

	$f="_USERFUNC_$funcname";
	$f=changename($f);
	$f=~s/\$/_string/g; $f=~tr/ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27337	27429	
==>e}=$englishname;

	$f="_USERFUNC_$funcname";
	$f=changename($f);
	$f=~s/\$/_string/g; $f=~tr/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86746	86990	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new_callback",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87747	87991	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new_callback",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
2	/Users/nnunley/parrot/config/inter/charset.pm	369	520	
==>Step::Base);

use Parrot::Configure::Step ':inter';

$description = 'Determining what charset files should be compiled in';

@args = qw(ask charset);

s <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	35296	35426	
==>OOP_switch
SS_PROP_LOOP_EXIT_switch:
PIRCODE
        } else {
            $pir .= <<'PIRCODE';
sp_dest = next_pc + I_arg_0
ss = clo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825153	825405	
==>4,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 133 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpre <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	9853	10018	
==>eason} = '';
        $result->{type}   = '';
    }

    $self->{Test_Results}[$self->{Curr_Test}-1] = $result;
    $out .= "\n";

    $self->_print($out);

    unless <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	54	163	
==>18930 2006-04-24T19:32:28.634218Z bernhard  $

package Parrot::Test::M4::Gnu;

use strict;
use warnings;
use 5 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	879816	880333	
==>core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 997,
                  "ARGS" => [
                              "s",
                              "sc",
                              "i",
                              "i"
                            ],
                  "BO <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	232	335	
==>stract superclass for the Parrot op to C
transforms. Each transform contains various bits of information <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882024	882417	
==>core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 999,
                  "ARGS" => [
                              "s",
                              "sc <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	22685	22817	
==>r2->[0],
        'result' => $flag,
    );
    my $result = new_tmp( $parser, 'pmc', 'boolean' );
    push @opcodes, new LocalDir <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3139	3452	
==>UT} ) {

        for ( $parser->YYData->{INPUT} ) {

            s/^'//
                and return ( $type, $str );

            s/^([^'\\]+)//
                and $str .= $1,
                last;

            s/^\\([\\"'])//
                and $str .= $1,        # backslash, quotation mark, apostro <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1630	1732	
==>>props;

  my @args  = $self->args;

  my @formal_args = $sym->args;

  $self->SYNTAX_ERROR("Wrong numb <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1330	1432	
==>>props;

  my @args  = $self->args;

  my @formal_args = $sym->args;

  $self->SYNTAX_ERROR("Wrong numb <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	10655	10758	
==>order-bottom: 1px solid #313052; }
    .indent2 { padding-left: 40px; }
    .indent3 { padding-left: 80p <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8408	8529	
==>n",d
dim c$(1)
for i = 1 to 20 : read c$(i) : next
print
for i = 1 to 20 step 4
  print c$(i);tab$(12);c$(i+1);tab$(22);c$ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21272	21393	
==>n",d
dim c$(1)
for i = 1 to 20 : read c$(i) : next
print
for i = 1 to 20 step 4
  print c$(i);tab$(12);c$(i+1);tab$(22);c$ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1869	1966	
==>ion::BigNum->new,
        Parrot::Docs::Section::Compilers->new,
        Parrot::Docs::Section::La <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722271	722385	
==>Can this be localized? */\n  if (s && string_length(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723300	723414	
==>Can this be localized? */\n  if (s && string_length(interpreter, s)) {\n    if (PIO_softspace(interpreter, io, 0))\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	2022	2179	
==>STR       the argument is an string
    PMC       the argument is an PMC
    KEY       the argument is an aggregate PMC key
    INTKEY    the argument is an a <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	2381	2618	
==>, '', 'languages/regex'),
        $self->new_section('Scheme', 'scheme.html', '', 'languages/scheme'),
        $self->new_section('TCL', 'tcl.html', '', 'languages/tcl'),
        $self->new_section('unlambda', 'unlambda.html', '', 'langua <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193542	193636	
==>r,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) < 0) {\n    {{+={{\@3}}}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194521	194615	
==>r,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) < 0) {\n    {{+={{\@3}}}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1519	1669	
==>he transform's arguments.

=cut

sub args
{
    my $self = shift;

    if (@_)
    {
        $self->{ARGS} = [ @_ ];
    }
    else
    {
        retur <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1128	1278	
==>he transform's arguments.

=cut

sub args
{
    my $self = shift;

    if (@_)
    {
        $self->{ARGS} = [ @_ ];
    }
    else
    {
        retur <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	12235	12387	
==>ush @{$extra_preamble_ref},
            "t_$temp_num = GET_NCI_N($reg_num);";
        return "t_$temp_num";
    };
    /t/ && do {
        push @{$temps_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789820	790078	
==>string_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790730	790988	
==>string_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6543	6687	
==>ls{$syms[CURR]}:   # For user branch ($syms[CURR])\n";
		debug() if $debug;
		$currline="$labels{$syms[CURR]}";
		feedme;  # Get the :
		goto PAR <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1237	1383	
==>turn to the previous inline chunk.
        $compiler->outdent;
        $compiler->emit(".end");

        $last_seen = 'sub';
      }
    }
    else <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	25058	25215	
==>I_ARG_$arg_num} = bc.read_tmethod()\n    next_pc += 4\n";
			$arg_name = "I_ARG_$arg_num";
		}

        # ttype
		elsif (/^ttype$/) {
			$out =  "    \${I_ARG <==
2	/Users/nnunley/parrot/lib/Test/More.pm	2080	2181	
==>ok($module, @methods);
  isa_ok($object, $class);

  pass($test_name);
  fail($test_name);

  # UNIMPL <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	2025	2132	
==>irst instruction in bytecode must be the leader of a block
    $leaders{$new_pc} = 1;

    # This loop tries <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45400	45505	
==>TMK	= '\G\s*<reject:';
my $SCOREMK		= '\G\s*<score:';
my $AUTOSCOREMK		= '\G\s*<autoscore:';
my $SKIPMK		= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319986	320130	
==>ops/dotgnu.ops\"\n  {{\@1}} = (INTVAL)((Parrot_Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	320756	320900	
==>ops/dotgnu.ops\"\n  {{\@1}} = (INTVAL)((Parrot_Int4)({{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	444	546	
==>ft;
  my ($block, $ident) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($b <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	444	546	
==>ft;
  my ($block, $ident) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($b <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	11118	11264	
==>" x \$rx_pos) . "^\\n";);
    }

    push @ops, "my \$dbg_tmp;\n" if $self->{DEBUG};

    push @ops, split(/\n/, <<'END');
my %rx_match;
$rx_match{ <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	1629	1945	
==>es => 0,              
    calls            => 0,
    covered_calls    => 0
);

# We parse the output of the 'gcov' command, so we do not want german output
$ENV{LANG} = 'C';

foreach my $da_file (@dafiles) {
    my $dirname      = dirname($da_file) || '.';
    my $filename     = basename($da_file);
    my $src_file <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91491	91758	
==>" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 43 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  " <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	612	780	
==>y $self = bless \%options, (ref($proto) || $proto);
    $self->init();
    return $self;
}

sub init {
    my ($self, @args) = @_;
    $self->{_markers} = {};
    $self- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560785	560885	
==>ILCALL;\n  interpreter->current_object = object;\n  interpreter->current_method = VTABLE_get_string(i <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	54441	54798	
==>381 "Lua\lua51.yp"
{
            BuildRelop( $_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 69
		 'exp', 3,
sub
#line 385 "Lua\lua51.yp"
{
            BuildRelop( $_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 70
		 'exp', 3,
sub
#line 389 "Lua\lua51.yp"
{
            BuildRelop( $_[0], $_[1], $_[2], $_[3] );
        }
	],
	[ <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	6440	6565	
==>--\n", scalar keys %DataB;
    for my $api (sort keys %DataB) {
	printf "%s\t%s\tUMD\n", $api, $DataB{$api};
    }
}

if (keys <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	18	183	
==>right (C) 2001-2004, The Perl Foundation.
# $Id: /parrot/tools/build/ops2pm.pl 20350 2006-06-25T03:57:27.771662Z petdance  $

=head1 NAME

tools/build/ops2pm.pl - Gen <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	38981	39079	
==>r some
C<reject> pattern matches). By default, a failure to match a closing
tag causes C<extract_ta <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9983	10088	
==>exe');
    my $slash = $conf->data->get('slash');
    my $verbose = $conf->options->get('verbose');

    i <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10564	10669	
==>exe');
    my $slash = $conf->data->get('slash');
    my $verbose = $conf->options->get('verbose');

    i <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4308	4487	
==>)/\\\\/g;
    s/\n/\\n/g;
    s/\r/\\r/g;
    s/\"/\\"/g;
    return $_;
}

sub _generate_pir_for {
    my($target, $pattern, $captures) = @_;
    $target = _parrot_stringify($targ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54640	54760	
==>RPATMK)/gco
				and do { ($code) = extract_codeblock($grammar,'{',undef,'<');
					 $code;
				       } )
			{
				_parse <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	11442	11555	
==>ft )
	{
		next unless defined $rules->{$next}; # SKIP NON-EXISTENT RULES
		return 1 if $next eq $root;
		my $child <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14454	14550	
==>e_1('P');

  $self->_add_inst ('', 'new', [$return,'.Array']);
  $self->_add_inst ('', 'set', [$r <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	2963	3057	
==>e_1('P');

  $self->_add_inst('', 'new', [$return,'.Array']);
  $self->_add_inst('', 'set', [$r <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3508	3619	
==>e of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) = @_;

    #print STDERR "pbcc: map <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3307	3418	
==>e of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) = @_;

    #print STDERR "pbcc: map <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23733	23839	
==>sub _op_min {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_g <==
2	/Users/nnunley/parrot/config/auto/snprintf.pm	838	1003	
==>data->set(HAS_C99_SNPRINTF => 1);
    } elsif ($res =~ /^old snprintf/) {
        $conf->data->set(HAS_OLD_SNPRINTF => 1);
    }
    print " ($res) " if $conf->option <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6258	6420	
==>s{DEFAULT}
                        :   undef;
        }
        else {
            $act=$$actions{DEFAULT};
#DBG>			$debug & 0x01
#DBG>		and	print STDERR "Do <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5967	6123	
==>s{DEFAULT}
                        :   undef;
        }
        else {
            $act=$$actions{DEFAULT};
#DBG>			$debug & 0x01
#DBG>		and	print STDERR "Do <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2877	2972	
==>$handler) foreach $self->content;
  $handler->end_element({ Name => 'block' });

  $handler->end <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2759	2854	
==>$handler) foreach $self->content;
  $handler->end_element({ Name => 'block' });

  $handler->end <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	1113	1228	
==>$filename) = @_;

    local $/ = undef;
    open my $file, "<", $filename
        or die "can't open '$filename' for <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35074	35238	
==>"
            );
             # But doesn't need processing.  But it'll block assimilation
             #  of the next para.
          } else {
            die "Unha <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	38375	38531	
==>s[-1][1]{'target'}) is a resolver\n";
            }
          } else {
            DEBUG and print "Treating $para_type paragraph as Data because the contain <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	17379	17493	
==>nplace('-', $cmt);
}
sub JUMP_FORWARD()
{
    my ($n, $c, $cmt) = @_;
    my $targ = "pc_xxx";
    if ($c =~ /to (\ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4089	4209	
==>result); 
	set $result, 1.0
	$op $a2, $a1, EQ_$eqnum
	set $result, 0.0
EQ_$eqnum: noop
CODE
	},
	'and' => sub {
		my($a1, <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3409	3518	
==>". Which is harder.
        $body =~ s/^(\s*)([^\n]+)\s*\Z/$1puts [$2]/m;

        $tests{$name} = [$expl, $bo <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4816	4925	
==>". Which is harder.
        $body =~ s/^(\s*)([^\n]+)\s*\Z/$1puts [$2]/m;

        $tests{$name} = [$expl, $bo <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26432	26645	
==>arse_call {
	# Subroutines are disguised as user-defined functions,
	# except that there's no return value to deal with.
	feedme();
	if (! exists $subs{$syms[CURR]}) {
		die "Subroutine $syms[CURR] not found at lin <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2731	2843	
==>e);
      my $value = $args[$i]->compile($compiler);
      $compiler->emit("  $temp = $value");
      $args[$i] = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2431	2543	
==>e);
      my $value = $args[$i]->compile($compiler);
      $compiler->emit("  $temp = $value");
      $args[$i] = <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1940	2158	
==>if ($distance == -1) {
        $comment = "pos--";
    } elsif ($distance > 0) {
        $comment = "pos += $distance";
    } elsif ($distance < 0) {
        $comment = "pos -= ".(-$distance);
    }

    return ("add <r <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr3.pm	191	311	
==>:Dumper;

sub get_out_fn {
    my $self = shift;
    my ( $count, $options ) = @_;

    return Parrot::Test::per_test( '_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47075	47297	
==>DEBUG_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47858	48080	
==>DEBUG_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_J <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722503	722778	
==>n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_ite <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723532	723807	
==>n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_ite <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6036	6140	
==>{
			my $s=pop @selects;
			feedme;
			print CODE "CASE_$s->{jump}_$s->{incase}:\n";
			print CODE "CASE_ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	13729	13862	
==>ate 21
		ACTIONS => {
			"(" => 10,
			'CHAR' => 4,
			"<" => 3,
			"[" => 14,
			'CODE' => 6,
			"." => 15
		},
		GOTOS => {
			'expr <==
2	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	850	965	
==>!";
    $parrot_version = <$VERSION>;
    close $VERSION;

    chomp $parrot_version;
    $parrot_version =~ s/\s+// <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	61258	61455	
==>item  C<Unmatched opening bracket(s): "%s">

C<extract_bracketed>, C<extract_quotelike> or C<extract_codeblock> ran 
out of characters in the text before closing one or more levels of nested
bracket <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	6323	6503	
==>s are specific to a dir
               "^${dir}${_}/",              # SVN globs are specific to a dir
           } split( /\n/, $patterns );
    }

    return \@skip;
}

=back

=cut <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	46234	46428	
==>nt is rarely
a contiguous substring. For example, a typical piece of code using
here document might look like this:

        <<'EOMSG' || die;
        This is the message.
        EOMSG
	exit;

G <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15407	15552	
==>_ == 1) ? $_[0] : join '', @_)
    ) =~ s/([F\x00-\x1F\-\\\{\}\x7F-\xFF])/$Escape{$1}/g;  # ESCAPER
             # Escape \, {, }, -, control char <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	7818	7914	
==>ion of Perl
containing this extension under the terms of the GNU or Artistic
licenses.

=head1 AU <==
2	/Users/nnunley/parrot/lib/Test/More.pm	2258	2384	
==>UT($why);


=head1 DESCRIPTION

B<STOP!> If you're just getting started writing tests, have a look at
Test::Simple first.  This <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61920	62111	
==>ore.ops\"\n  PARROT_ERRORS_on(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62564	62755	
==>ore.ops\"\n  PARROT_ERRORS_on(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	1866	1978	
==>ite_docs.pl'),
        ),
        $self->new_group('Building', '',
            $self->new_item('', 'tools/build/c <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	250	345	
==>05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Declaration::Su <==
2	/Users/nnunley/parrot/lib/Test/More.pm	22941	23076	
==>it's best to have the tests actually run.  That way
you'll know when they start passing.  Sometimes this isn't possible.
Often a failing <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24573	24695	
==>);
      $self->_restore ($return);
      $return = $temp;
    }
  } else {
    $return = $self->_generate($node->{children <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26472	26594	
==>);
      $self->_restore ($return);
      $return = $temp;
    }
  } else {
    $return = $self->_generate($node->{children <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39705	39847	
==>$code = ''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying operator: [' . $self->describe . ']},
				  Parse::RecDescent::_tracefirst <==
2	/Users/nnunley/parrot/config/init/defaults.pm	2426	2534	
==>onfig{ccdlflags},    # e.g. -Wl,-E on HP-UX

        # ld: Tool used to build shared libraries and dynamicall <==
2	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	1430	1565	
==>or)
{
    return memcmp (cursor, fingerprint, $len) == 0;
}

size_t
PackFile_write_fingerprint (void *cursor)
{
    memcpy (cursor, fing <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	7341	7513	
==>p1
    .param pmc op2
 
    .local pmc iter_one, iter_two
    .local pmc item_one, item_two
    .local int pos_one
    .local int not_found

    not_found = op1
    inc not_ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	17566	17679	
==>,	0,			# NO 2ND STR
			$modpos,	0,			# NO 2ND RDEL
			$modpos,	$endpos-$modpos,	# MODIFIERS
			$endpos, 	$textlen- <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1414	1514	
==>...access $token->tagname...
    
    }
  }

(Also see L<Pod::Simple::PullParser>)

=head1 DESCRIPTIO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056894	1057210	
==>lobal",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1180,
                  "ARG <==
2	/Users/nnunley/parrot/config/init/optimize.pm	557	756	
==>rgs = qw(verbose optimize);

sub runstep
{
    my ($self, $conf) = @_;

    # A plain --optimize means use perl5's $Config{optimize}.  If an argument
    # is given, however, use that instead. 
    my <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	620904	621081	
==>_pc;\n    void **src_pred;\n    parrot_context_t *caller_ctx, *ctx;\n    int n;\n\n    /* avoid load dependencies - intermix derefs\n     * - yes, confusing but faster\n     */\n <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21496	21623	
==>ive\n";
      
      unless(length($content)) {
        $self->whine(
          $para->[1]{'start_line'},
          "'=end' with <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	7059	7179	
==>seg}->{code}},<<YNOTX;
@codey	noop			# Broke!
	_screen_locate($resulty)
YNOTX
	} elsif (@codex and not @codey) {
	push @{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	232508	233056	
==>> ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 271,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 592 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} > { <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7117	7207	
==>k_depth 
${DEST0} = "$"
${STEMP0} = ${LOADTYPE}["reg_type_short"]
${DEST0} = concat ${STEMP <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4939	5029	
==>k_depth 
${DEST0} = "$"
${STEMP0} = ${LOADTYPE}["reg_type_short"]
${DEST0} = concat ${STEMP <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	192	290	
==>mentation section

=head1 SYNOPSIS

	use Parrot::Docs::Libs;

=head1 DESCRIPTION

A documentation s <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	1280	1519	
==>_ARGS} || q{};
        my @test_prog;
        if ( $lua_test eq 'lua' ) {
            @test_prog = (
                "$ENV{PARROT_LUA_TEST_PROG} ${test_prog_args} languages/${lang_fn}",
            );
        }
        elsif ( $lua_t <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	441	534	
==>ot::IO::Directory;

=item C<tmp_file($path)>

Returns the file for C<$path> relative to the de <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8215	8319	
==>(@{$elsestack->{$elsetag}})) {
			push @{$code{$seg}->{code}}, "ELSEBRANCH_$_:\n";
		}
		push @{$code{$se <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	1216	1491	
==>m='enum'
        my ($inc, $prefix, $last_val, $subst, %values);
        my (%var, $match, $block);
        open F, "<$f" or die "Can't open $f\n";
        while (<F>) {
            if (
                m!
	        &gen_from_(enum|def|template)\((.*?)\)
		(\s+prefix\((\w+)\)) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106300	1106396	
==>exception(interpreter, NULL, E_ValueError,\n\t\t\"type number out of range\");\n    {{\@1}} = int <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107276	1107372	
==>exception(interpreter, NULL, E_ValueError,\n\t\t\"type number out of range\");\n    {{\@1}} = int <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	26154	26273	
==>st->current_test;
    $Test->current_test($num);

Gets/sets the current test number we're on.  You usually shouldn't
hav <==
2	/Users/nnunley/parrot/tools/docs/pod_errors.pl	14	159	
==>opyright (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/tools/docs/pod_errors.pl 19607 2006-05-30T15:23:20.183054Z coke  $

=head1 NAME

tools <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259521	260006	
==>AME" => "issame",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 302,
                  "ARGS" => [
                              "i",
                              "s",
                              "s"
                            ],
                  " <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	34483	34662	
==>return2,  $result;
        push @opcodes2, new AssignOp( $parser,
            'result' => $_->[0],
            'arg1'   => $result,
        );
    }
    push @opcodes1, new C <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7916	8122	
==>";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg = value($reg);

    my @ops = ("<rx_tmp> = pop \@<rx_stack>; # popindex");
    if ($self->{DEBUG}) {
        push @ops, 'print " <==
2	/Users/nnunley/parrot/config/init/optimize.pm	1117	1278	
==>e. it's deprecated
	    # XXX do we know compiler (version) already?
	    my $opts = $Config{optimize};
	    $opts =~ s/-mcpu=\S+//;
            $conf->data->add( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8925	9024	
==>);\n    if (!fe)\n\tinternal_exception(1, \"branch_cs: fixup for '%s' not found\", label);\n    else <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10041	10140	
==>);\n    if (!fe)\n\tinternal_exception(1, \"branch_cs: fixup for '%s' not found\", label);\n    else <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	22404	22583	
==>= $class[$i];
				$lastpos = pos $$textref;
				if (ref($func) eq 'CODE')
					{ ($field,undef,$pref) = @bits = $func->($$textref) }
				elsif (ref($func) eq 'Text::Balanced::Extra <==
2	/Users/nnunley/parrot/lib/Test/More.pm	35391	35538	
==>t::Harness features and fixes.  If
you're going to distribute tests that use no_plan or todo your
end-users will have to upgrade Test::Harness to th <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	30975	31156	
==>)->to_ctx;\n\tif (! caller_ctx) {\n\t    real_exception(interpreter, NULL, INVALID_OPERATION,\n\t\t\t   \"null caller_ctx for ccont %p\", ccont);\n\t}\n\tparrot_pass_args(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16949	17082	
==>t in them.
        
        # Yes, stipulate the list without a range, so that this can work right on
        #  all charsets that thi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10385	10502	
==>t in them.

    # Yes, stipulate the list without a range, so that this can work right on
    #  all charsets that thi <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27055	27147	
==>{$funcname}=$englishname;

	$f="_USERFUNC_$funcname";
	$f=changename($f);
	$f=~s/\$/_string/g <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27328	27420	
==>{$funcname}=$englishname;

	$f="_USERFUNC_$funcname";
	$f=changename($f);
	$f=~s/\$/_string/g <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	47025	47263	
==>rce || '') eq 'SCALAR') {
    $new->parse_string_document( $$source );
  } elsif(ref($source)) {  # it's a file handle
    $new->parse_file($source);
  } else {  # it's a filename
    $new->parse_file($source);
  }
  
  return $new;
}


#- <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	53585	53717	
==>$_[2], $_[3] );
        }
	],
	[#Rule 62
		 'exp', 3,
sub
#line 357 "Lua\lua51.yp"
{
            BuildBinop( $_[0], $_[1], $_ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	1032	1247	
==>ub files_of_type
{
    my $self = shift;
    my $type = shift;
    
    return () unless defined $type;
    
    my $recursive = shift;
    my $ignore = shift;
    my @files = ();
    
    foreach my $file ($self->fi <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6758	6849	
==>0} = "$"
${STEMP1} = ${PTEMP1}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${ITEMP1} = ${ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126766	127127	
==>=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rot",
                  "FLAGS" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127901	128262	
==>=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rot",
                  "FLAGS" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359155	359359	
==>" => 420,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 250 \"src/ops/io.ops\"\n  STRING * const s = {{\@1}};\n  if (s && <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	949	1057	
==>ailLabel) = @_;
    return "rx_oneof P0, $class, ".$self->output_label_use($failLabel);
}

sub output_start { <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2117	2226	
==>n the library,
I<or> E<lt>libnameE<gt>.c and pmc_E<lt>libnameE<gt>.h if his object
represents a named library. <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	11048	11199	
==>ointer; }  /* hack? */

    .tests_ok       { color: #050; }
    .tests_failed   { color: #500; }
    .tests_todo     { color: #030; }
    .tests_skippe <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3054	3174	
==>ARGV;

if ($mode eq 'generate') {
    # Convert X.pmc -> X.dump and X.c and also create any lib-GROUP.c files

    genera <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3158	3278	
==>ARGV;

if ($mode eq 'generate') {
    # Convert X.pmc -> X.dump and X.c and also create any lib-GROUP.c files

    genera <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2124	2227	
==>uration file',
	'scheme' => 'Scheme code',
	'sh' => 'Shell script',
	'spec' => 'RPM build specification' <==
2	/Users/nnunley/parrot/examples/benchmarks/freeze.pl	664	774	
==>me %.6f\n", $e-$s;

$s = time();
my @b = @{ thaw $image };
$e = time();
printf "  thaw time %.6f\n", $e-$s;

#$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	746354	746756	
==>CODE" => 840,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 189 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659568	660056	
==>AME" => "exists",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 737,
                  "ARGS" => [
                              "i",
                              "p",
                              "ki"
                            ],
                  "BO <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	24756	24962	
==><"EOC";
	$ar = new .FixedPMCArray
	$ar = $n
EOC
	$cmt .= "   $name";
	for (my $i = 0; $i < $n; $i++) {
	    print <<"EOC";
	$ar\[$i\] = $args[$i]
EOC
	}
	$args = $ar;
    }
    my $rett = 'P';
    if ($tos-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661411	661921	
==>AME" => "exists",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 739,
                  "ARGS" => [
                              "i",
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 339 \"src <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	40373	40466	
==>_ARG_\d+ and [INSP]TEMP\d+.
	while ($pir =~ /\$\{([INSP])_ARG_(\d+)\}/g) {
		my $key = "${1}_A <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	1396	1578	
==>turn scalar(@{$self->{TOKENS}});
}


#
# pos()
#
# Returns (or sets) the abolute position.
#

sub pos
{
  my $self = shift;
  my ($pos) = @_;

  if (defined $pos) {
    my $count = sc <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2348	2467	
==>t {
    my ($self, $what) = @_;
    $what = value($what);
    return ("print $what;");
}

sub output_test {
    my ($sel <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2665	2783	
==>t {
    my ($self, $what) = @_;
    $what = value($what);
    return ("print $what");
}

sub output_test {
    my ($sel <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	5604	5745	
==>\(jit_info->native_ptr, ISR([12]), &CONST\((\d)\)\);/load_nc(jit_info->native_ptr, ISR$1, ECONST($2));/g;
            }

            $asm =~ s <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31095	31220	
==>es, new LabelOp( $parser,
        'arg1' => $lbl_end,
    );
    return \@opcodes;
}

sub BuildForList {
    my ( $pars <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	26625	26852	
==>q '1';
      DEBUG > 2 and print "  Can't fall back on unknown code $f\n";
      $self->whine(
        $para->[1]{'start_line'},
        "Can't use unknown formatting code '$f' as a fallback for '$new_letter'"
      );
      ret <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22267	22404	
==>ren;
      }

      $self->require_semicolon;

      my $return = Jako::Construct::Statement::Return->new($block, $value, $cond, $left, $o <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	5837	6025	
==>nt = greeting
dim a$(1)
a$(2)="World"
a$="Hello"
A$ = A$ + "=" + A$(2)
print a$


' Do/While/Loop stuff.  All 5
a=0
do while a<5
	a=a+1
loop
print a
a=0
do until a>4
	a=a+1
loop
print a
a=0 <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6677	6797	
==>(needs_build("$pmc.dump", "$pmc.pmc")) {
        run("$PMC2C --dump $pmc.pmc")
          or die "pmc2c dump failed ($?)\n <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6888	7008	
==>(needs_build("$pmc.dump", "$pmc.pmc")) {
        run("$PMC2C --dump $pmc.pmc")
          or die "pmc2c dump failed ($?)\n <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30295	30500	
==>(
              $curr_open->[-1][1]{'start_line'},
              "You can't have =items (as at line "
              . $para->[1]{'start_line'}
              . ") unless the first thing after the =over is an <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2383	2467	
==>SO

F<examples/benchmarks/mops.pasm>,
F<examples/mops/mops.c>,
F<examples/mops/mops.c <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	2383	2467	
==>SO

F<examples/benchmarks/mops.pasm>,
F<examples/mops/mops.c>,
F<examples/mops/mops.c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1096771	1096917	
==>terpreter, {{\@2}}));\n    if (PMC_IS_NULL(ns) || VTABLE_elements(interpreter, ns) < 2)\n    {\n        real_exception(interpreter, NULL, NO_CLASS, <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	55904	56019	
==>\s*<token:(.*)>\Z/$1/s;

				my $types = eval 'no strict; local $SIG{__WARN__} = sub {0}; my @arr=('.$code.'); @arr' <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	3663	3782	
==>ersion) = $id =~ /,v\s+(\S+)/s;
    
    return $version;
}

=item C<is_hidden()>

Returns whether the file is "hidden", <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	17180	17349	
==>ks',
                        kittens  => ['Monica', 'Kenneth'],
                        markings => { socks=>1, blaze=>"white" },
                        breed    => Bree <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1098577	1098998	
==>core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1218,
                  "ARGS" => [
                              "n",
                              "n",
                              "i"
                            ] <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1251	1346	
==>ortcut for $token->tagname(...)

=item $token->is_tag(I<somestring>) or $token->is_tagname(I<som <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1681	1776	
==>ortcut for $token->tagname(...)

=item $token->is_tag(I<somestring>) or $token->is_tagname(I<som <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829531	829689	
==>"
                            ],
                  "BODY" => "#line 159 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(interpreter, CO <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	21804	21964	
==>> $_[2], max => -1 }; }
	],
	[#Rule 33
		 'number', 2,
sub
#line 160 "lib/Regex/Grammar.y"
{ return $_[1] * 10 + $_[2]; }
	],
	[#Rule 34
		 'number', 1,
sub
#lin <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	4530	4664	
==>);
        }
    }
}


# for now just try to catch glaring errors.  A real parser is probably
# overkill for this task.  For now we jus <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	12858	12994	
==>ONS => {
			"?" => 20
		},
		DEFAULT => -21,
		GOTOS => {
			'@1-1' => 21
		}
	},
	{#State 11
		ACTIONS => {
			"?" => 23,
			'CHAR' => 4 <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54580	54683	
==>o_rule($code,$line);
			}
			elsif ($grammar =~ m/(?=$RULEVARPATMK)/gco
				and do { ($code) = extract_c <==
2	/Users/nnunley/parrot/examples/benchmarks/fib.pl	203	305	
==>rk

=head1 SYNOPSIS

    % time perl examples/benchmarks/fib.pl n

=head1 DESCRIPTION

Calculates the F <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	2024	2167	
==>1]+$_[5])=$extra} ;	#CHOP OUT PREFIX & MATCH, IF POSSIBLE
		pos($$textref) = $_[4];				# RESET \G
		return $match;
	}
}

# BUILD A PATTERN MATCH <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	307	420	
==>est::More);

sub import {
    my( $class, $plan, @args ) = @_;

    Test::More->import( $plan, @args );

    __PAC <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	224	337	
==>est::More);

sub import {
    my( $class, $plan, @args ) = @_;

    Test::More->import( $plan, @args );

    __PAC <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025396	1025773	
==>GDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1146,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 275 \"src/ops/sys.o <==
2	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	89	195	
==>857Z svm  $

=head1 DESCRIPTION

=head1 SYNTAX

=cut

# pragmata
use strict;
use 5.005;

# standard perl mo <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16972	17097	
==>' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 41
		AC <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	593401	593832	
==>"o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 673,
                  "ARGS" => [
                              "p",
                              "k",
                              "kc"
                            ],
                  "BODY" => "#line 325 \"src/ops/object.ops\"\n  PMC *class = P <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	10273	10480	
==>.pmc eval.pmc nci.pmc float.pmc integer.pmc bigint.pmc complex.pmc string.pmc boolean.pmc ref.pmc sharedref.pmc array.pmc fixedintegerarray.pmc intlist.pmc iterator.pmc sarray.pmc fixedstringarray.pmc multiar <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	13273	13391	
==>p name=summary>
	      <td class="leftsep num tests_total"><tmpl_var name=total>:</td>
	      <td class="num tests_ok"> <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	339	571	
==>oter()> class methods for now, to
prevent code being duplicated in C<Parrot::Docs::POD2HTML> and
C<Parrot::Docs::Section>.

=head2 Class Methods

=over

=cut

package Parrot::Docs::HTMLPage;

use strict;
use warnings;

=item C<header <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4904	5009	
==>d function
dim t(7)
t(3)=5.6
a=mine(5)
print t(3)

' Unary minus goodness
Dim t7(1),w(10)
w=20
w(2)=5
t7(0 <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	149	267	
==>t::Test::PGE;

  p6rule_is('abc', '^abc', 'BOS abc');
  p6rule_is("   int argc ",
    [
        [ type    => 'int | dou <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	55528	55714	
==>1], 'nil' );
        }
	],
	[#Rule 77
		 'primary', 1,
sub
#line 420 "Lua\lua51.yp"
{
            BuildLiteral( $_[0], $_[1], 'boolean' );
        }
	],
	[#Rule 78
		 'primary <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	713	894	
==>rot::Docs::Directory>.

=cut

sub directory_class
{
    return 'Parrot::Docs::Directory';
}

=back

=head2 Instance Methods

=over 4

=item C<files_of_type($type, $recursive, $ignore <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	778	883	
==>se Jako::Construct::Declaration::Constant;
use Jako::Construct::Declaration::Sub;
use Jako::Construct::Dec <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9899	10005	
==>>text;
      my $right = Jako::Construct::Expression::Value->new($block, $self->require_value);

      $sel <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25435	25541	
==>>text;
      my $right = Jako::Construct::Expression::Value->new($block, $self->require_value);

      $sel <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	6977	7130	
==>copy and use this software is granted provided that it
is identified as the "RSA Data Security, Inc. MD5 Message-Digest
Algorithm" in all material mention <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	415	510	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_element_start {
  # ($self, $element_name, $attr <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	414	509	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub _handle_element_start {
  # ($self, $element_name, $attr <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	296	446	
==>e Jako::Token;


#
# CONSTRUCTOR:
#

sub new
{
  my $class = shift;
  my ($file, $line, $kind, $type, $text) = @_;

  return bless {
    FILE => $file, <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6587	6705	
==>e) > $target_mod;
    }

    return 0;
}

sub generate_dump {
    my ($pmc) = @_;

    if (needs_build("$pmc.dump", "$p <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6798	6916	
==>e) > $target_mod;
    }

    return 0;
}

sub generate_dump {
    my ($pmc) = @_;

    if (needs_build("$pmc.dump", "$p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018180	1018590	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gmtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2201	2300	
==><img alt="^" border=0 src="../resources/up.gif"></a></h2>\n\n) . $index_html;
	}
	
	return $index_ht <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62959	63119	
==>:Repetition($name,$1,0,$MAXREP,
										   $lookahead,$line,
										   $self,
										   $matchrule,
										   $argcode);
						$prod and $prod->addite <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208092	208377	
==>unction",
                  "CODE" => 245,
                  "ARGS" => [
                              "p",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 401 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vt <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	12195	12295	
==>binmode($source, ":raw");

  return;
}

#:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789581	789843	
==>S" => [
                              "s",
                              "p",
                              "ki"
                            ],
                  "BODY" => "#line 427 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_string_keyed_int(interpr <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	5769	5867	
==>used for files in the
directory.

C<$recursive> and C<$ignore> function as specified above for C<fi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1285	1437	
==>_;

  my $dest_ident = $self->dest;

  my $dest  = $self->dest->value;
  my $name  = $self->name->value;

#  $self->DEBUG(0, "Searching for symbol '$name <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	16036	16193	
==>@@@@@@@

sub _get_initial_item_type {
  # A hack-wrapper here for when you have like "=over\n\n=item 456\n\n"
  my($self, $para) = @_;
  return $para->[1]{'~t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946360	946632	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_charset",
                  "FLAGS" => ":b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947261	947533	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_charset",
                  "FLAGS" => ":b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945468	945692	
==>, Parrot_charset_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946278	946502	
==>, Parrot_charset_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50178	50280	
==>r,   PARROT_PROFILE_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_PROFILE_FLAG); }\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50971	51073	
==>r,   PARROT_PROFILE_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_PROFILE_FLAG); }\ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	15468	15581	
==>Returns an HTML anchor with the specified "href".

=cut

sub html_link
{
    my $self = shift;
    my $href = $sel <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	346	485	
==>s = $conf->options;
    my @steps = $conf->steps;
    $conf->add_steps(@steps);
    $conf->runsteps;

=head1 DESCRIPTION

This module provid <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465148	465358	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465769	465979	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io" <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3101	3200	
==>erated by config/gen/core_pmcs.pm

package Parrot::PMC;

use strict;
use warnings;

use vars qw(@ISA <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	45	144	
==>erated by config/gen/core_pmcs.pm

package Parrot::PMC;

use strict;
use warnings;

use vars qw(@ISA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028174	1028282	
==>xt = Parrot_sleep_on_event(interpreter, (FLOATVAL) {{\@1}}, next);\n  {{=next}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029025	1029133	
==>xt = Parrot_sleep_on_event(interpreter, (FLOATVAL) {{\@1}}, next);\n  {{=next}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5921	6038	
==>oup!;
}

sub output_setend {
    my ($self, $group, $value, $adj) = @_;
    $value = value($value);
    my @ops;
    i <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5559	5676	
==>oup!;
}

sub output_setend {
    my ($self, $group, $value, $adj) = @_;
    $value = value($value);
    my @ops;
    i <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	15656	15816	
==>pir = concat tmp
    gen_pir = concat "\nthrow $P1000000\nTYPED_EH_FOUND_"
    gen_pir = concat tmp
    gen_pir = concat ":\n"

    # Need to fix up stack type s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	2300	2451	
==>::Driver::PIR;
our @ISA = qw(Regex::Driver);

sub output_header {
    my ($self, $fh) = @_;
    $self->SUPER::output_header($fh);
    return 1 unless $s <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	7631	7890	
==>asinh       math.h
asinhf      math.h
asinhl      math.h
asinl       math.h
atan        math.h
atan2       math.h
atan2f      math.h
atan2l      math.h
atanf       math.h
atanh       math.h
atanhf      math.h
atanhl      math.h
atanl       math.h
atexit      s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1014350	1014772	
==>+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "err",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1013637	1013966	
==>+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "err",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o" <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	327	485	
==>_deps.pl - List libc dependencies

=head1 SYNOPSIS

    % perl tools/dev/lib_deps.pl [object | source] file1 [file2 ...]

=head1 DESCRIPTION

This script is in <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9438	9544	
==>2F\x39\x3B-\x40\x5B-\x5E\x60\x7B-\x7F]/
            # Characters under 0x80 that aren't legal in an XML Nam <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10702	10808	
==>2F\x39\x3B-\x40\x5B-\x5E\x60\x7B-\x7F]/
            # Characters under 0x80 that aren't legal in an XML Nam <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	71333	71478	
==>s
					       misspell \"$call\"? Otherwise
					       it will be treated as an 
					       immediate <reject>.");
					eval "sub $self->{namesp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152801	153061	
==>GS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 120 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, M <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621577	621696	
==>ller_ctx->bp.regs_i, src_pred, \n\t\t    _reg_base, (void**)cur_opcode);\n\t}\n        else\n            n = 2;\n\tccont <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	770	869	
==>leName fileSystem main misc 
  parse parseExpr parseOld regexpComp utf util
);

my %numtests;

forea <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7789	7902	
==>string)"
s$=""
if s$ then print "Should not happen (string)"
i%=0
if i% then print "Should not happen (int)"
i%=54 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14776	14889	
==>string)"
s$=""
if s$ then print "Should not happen (string)"
i%=0
if i% then print "Should not happen (int)"
i%=54 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9502	9731	
==>LAGS" => ":base_loop,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 13,
                  "AR <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5203	5320	
==>self->left;
  my $op    = $self->op;
  my $right = $self->right;

  $handler->start_element({ Name => 'assign' });
  $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3266	3383	
==>self->left;
  my $op    = $self->op;
  my $right = $self->right;

  $handler->start_element({ Name => 'assign' });
  $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	919	1066	
==>h_content($self);

  return $self;
}

sub name { return shift->{NAME};  }
sub args { return @{shift->{ARGS}}; }


#
# compile()
#

sub compile
{
  m <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	36275	36388	
==>ll be reported as 254.


=head1 THREADS

In perl 5.8.0 and later, Test::Builder is thread-safe.  The test
number i <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	5478	5578	
==>h @{ $branches{$_->{branch}}{$category->($_)} }, $_ for @smokes;

  foreach my $branch (keys %branche <==
2	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	638	773	
==>= `mcs -out:$file_name $kind $opt $file_name.cs`;
	if ($output) {
		print "compile_cs failed:\n$output";
		return 0;
	}
	
	# Clean up fi <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4642	4734	
==>rot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::Compiled> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869026	869168	
==>"ic"
                            ],
                  "BODY" => "#line 232 \"src/ops/string.ops\"\n  INTVAL len;\n  len = string_length(interpr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869993	870135	
==>"ic"
                            ],
                  "BODY" => "#line 232 \"src/ops/string.ops\"\n  INTVAL len;\n  len = string_length(interpr <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1144	1240	
==>my $file = Parrot::Test::slurp_file($out_f);
        $pass =$self->{builder}->is_eq( Parrot::Test <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1185	1281	
==>my $file = Parrot::Test::slurp_file($out_f);
        $pass =$self->{builder}->is_eq( Parrot::Test <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	929	1028	
==>t scalar!" if ref $op;
  confess "Right is not Value!" unless UNIVERSAL::isa($right, 'Jako::Construc <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	941	1040	
==>t scalar!" if ref $op;
  confess "Right is not Value!" unless UNIVERSAL::isa($right, 'Jako::Construc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712725	712820	
==>0) == -1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713832	713927	
==>0) == -1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720192	720293	
==>0) == -1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721392	721493	
==>0) == -1)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	4162	4394	
==>(
                'Parrot Packfile API and utilities.', 
                'contents' => ['src/packfile'],
            ),
            $self->c_source_item('', 'byteorder'),
        ),
        $self->new_group(
            'Data Types', <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9226	9362	
==>een called
            or  next;       # so continue parsing

#DBG>			$debug & 0x10
#DBG>		and	do {
#DBG>			print STDERR "**Entering <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8811	8942	
==>een called
            or  next;       # so continue parsing

#DBG>			$debug & 0x10
#DBG>		and	do {
#DBG>			print STDERR "**Entering <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8739	8921	
==>h @formal_args, [ $arg_type, $arg_name, $arg_token ];

          last if $self->skip_close_paren;

          $self->require_comma;
        }
      }

      my $decl = Jako::Construct: <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23549	23658	
==>inst('','gt', [$return,$temp,"NEXT_$label"]);
    $self->_add_inst('','set',[$return,$temp]);
    $self->_add_ <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2773	2881	
==>traLibs = '-lm -lgmp -lreadline -lpthread -lm -L/opt/local/lib  -licuuc -licudata -lpthread -lm';
        $ex <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	2568	2676	
==>traLibs = '-lm -lgmp -lreadline -lpthread -lm -L/opt/local/lib  -licuuc -licudata -lpthread -lm';
        $ex <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Number.pm	203	299	
==>nstruct/Type/Number.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warning <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1756	1926	
==>lib',
            o          => '.obj',
            cc_o_out   => '-Fo',
            cc_exe_out => '-out:',
            cc_ldflags => '/link',

            # ZI messes wit <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3635	3805	
==>lib',
            o          => '.obj',
            cc_o_out   => '-Fo',
            cc_exe_out => '-out:',
            cc_ldflags => '/link',

            # ZI messes wit <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2030	2132	
==>to see if we need to instate a stack type state
	# that was propogated to this instruction. If we do th <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	3234	3338	
==>!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically from '$outfile'
 * by $0. <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16470	16567	
==>rved.

This program is free software; you can redistribute it and/or modify it
under the same term <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1684	1781	
==>rved.

This program is free software; you can redistribute it and/or modify it
under the same term <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	17721	17865	
==>TIONS => {
			'NUM' => 57,
			">" => 72
		}
	},
	{#State 68
		DEFAULT => -41
	},
	{#State 69
		DEFAULT => -43
	},
	{#State 70
		ACTIONS => {
			' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61924	62135	
==>ops\"\n  PARROT_ERRORS_on(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62568	62779	
==>ops\"\n  PARROT_ERRORS_on(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	32250	32375	
==>n";
        
      # bitch if it's empty
      if(  @{$treelet->[$i]} == 2
       or (@{$treelet->[$i]} == 3 and $treelet->[$i <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	42660	42777	
==>n";

      # bitch if it's empty
      if(  @{$treelet->[$i]} == 2
       or (@{$treelet->[$i]} == 3 and $treelet->[$i <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	1380	1668	
==>>;
    $line =~ /^use Parrot::Test tests => (\d+)/;
    my $num_tests = $1;
    next READLINE unless $num_tests;
    $numtests{$file} = $num_tests;
    $total_skipped += $num_tests;
    if ($file eq 'clock') {
      $clock_skipped = $num_tests;
    } elsif ($file eq 'case') {
      $depre <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	652	979	
==>res { time() }

$I2 = 0;                      # set    I2, 0
$I3 = 1;                      # set    I3, 1
$I4 = 10000000;              # set    I4, 10000000
                              #
print "Iterations:    $I4\n"; # print  "Iterations:    "
                              # print  I4
                              # print  " <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3164	3260	
==>iddle if $self->bare_output;
  return
   $self->do_beginning && $self->do_middle && $self->do_end <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4533	4629	
==>iddle if $self->bare_output;
  return
   $self->do_beginning && $self->do_middle && $self->do_end <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	3463	3663	
==>$cout;
}

=item C<includes()>

Returns the set of C C<#include>s for the library.

=cut

sub includes() {
    my $self = shift;
    my $cout = "";
    $cout .= <<"EOC";
#define PARROT_IN_EXTENSION
#inc <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	8481	8680	
==>+',
             'link_debug' => '',
             'link_dynamic' => ' ',
             'linkflags' => '-L/opt/local/lib -L/usr/local/lib',
             'lns' => '/bin/ln -s',
             'load_ext' => <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	3550	3711	
==>?\d+$/){
		$forward_off = -$forward_off if $dir eq '-';

		if($forward_off != $op->size){
		    $leaders{$forward_off + $pc} = 1;
		    $is_branch = 1;
		}
	    } <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1430	1630	
==>\"$_[1]\"\n";
  if(length $_[1]) {
    my $text = $_[1];
    _xml_escape($text);
    print {$_[0]{'output_fh'}} $text;
  }
  return;
}

sub _handle_element_end {
  DEBUG and print "-- $_[1]\n";
  print <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1488	1770	
==>if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
print "Elapsed time <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1488	1770	
==>if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
print "Elapsed time <==
2	/Users/nnunley/parrot/editor/ops2vim.pl	54	184	
==>qw/basename/;


my $cline = my $prefix = 'syn keyword pirOp';

my %seen;

## make sure files have been globbed on non-globbing OSes <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	8956	9060	
==>jit";
  /\b-C\b/ and return "cgp";
  /\b-S\b/ and return "switch";
  /\b-f\b/ and return "fast";
  return <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219949	220527	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt_str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	220897	221298	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "gt_num",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194660	195099	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt_str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	195608	195965	
==>BELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "lt_num",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10128	10275	
==>ack[-1][0].\n";

			pop(@$stack);
		}

			@$stack
		or	do {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**No state left on stack: abort <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9677	9815	
==>ack[-1][0].\n";

			pop(@$stack);
		}

			@$stack
		or	do {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**No state left on stack: abort <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	12532	12628	
==>head1 AUTHOR

Gregor N. Purdy E<lt>gregor@focusresearch.comE<gt>

=head1 COPYRIGHT

Copyright (C) <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	7676	7772	
==>head1 AUTHOR

Gregor N. Purdy E<lt>gregor@focusresearch.comE<gt>

=head1 COPYRIGHT

Copyright (C) <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7887	8054	
==>elf = shift;

	return '' unless $self->contains_pod;
	
	my @lines = $self->read;
	
	while ( @lines )
	{
		my $line = shift @lines;
		
		if ( $line =~ /^=head1\s+ABSTRAC <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	52743	53071	
==>turn '[empty]' unless @$curr_open;
  return join '; ',
    map {;
           ($_->[0] eq '=for')
             ? ( ($_->[1]{'~really'} || '=over')
               . ' ' . $_->[1]{'target'})
             : $_->[0]
        }
    @$curr_open
  ;
}

###########################################################################
my %prett <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	6982	7079	
==>d;
    say "ok ", $Test::num_of_tests_run, $out, $context_out;

    Test::report_failure($context, <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	2763	2882	
==>ectively.
    # For Sun's compilers, fix this with the -xlibmieee flag.
    # I don't know of an equivalent flag for gcc <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18392	18507	
==>}

sub _op_eq {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant <==
2	/Users/nnunley/parrot/config/inter/progs.pm	3653	3775	
==>$libs);

    $cxx = integrate($conf->data->get('cxx'), $conf->options->get('cxx'));
    $cxx = prompt("What C++ compiler do <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	31720	31833	
==>ll die with the given $description and
a note to contact the author.

=cut

sub _whoa {
    my($check, $desc) = @_ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	55829	55928	
==>(in the case of a subroutine extractor), it is
assumed to have failed to extract.
If none of the ext <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	686	794	
==>REG(i) REG_INT(i)
#define NREG(i) REG_NUM(i)
#define PREG(i) REG_PMC(i)
#define SREG(i) REG_STR(i)
#define CO <==
2	/Users/nnunley/parrot/config/inter/lex.pm	1586	1711	
==>ck to default
        $self->set_result('no');
        return $self;
    }

    if ($conf->options->get('ask')) {
        $pro <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	1600	1725	
==>ck to default
        $self->set_result('no');
        return $self;
    }

    if ($conf->options->get('ask')) {
        $pro <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	43294	43431	
==>zing line $i: $$p[$i]\n";
    if($p->[$i]   =~ m{^#:([ \^\/\%]*)\n?$}s) {
      DEBUG > 5 and print "  It's a formatty line.  ",
       "P <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	5624	5772	
==>os]->{label}};
                    pop @Q if ! defined $Q[-1]; # External label
                }
                if ($stmt->{code}->{name} =~ /^(?:g <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	6925	7083	
==>$ignore))
    {
        next unless $file->has_suffix($suffix);
        push @files, $file;
    }
    
    return @files;
}

=item C<path_for_directory_with_na <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	4076	4231	
==>dest");

    my $dest_name = $dest_ident->value;
    $compiler->emit("  global \"$dest_name\" = $temp_pmc");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  m <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10124	10204	
==>file_base.branches.html#$function">@{[$function_branch_coverage{$source_file}{$fu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	595734	596225	
==>ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 675,
                  "ARGS" => [
                              "p",
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 337 \"src/ops/object.ops\"\n  {{\@1}} = VTABLE_subclass(inte <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6584	6702	
==>return]);
  $self->_add_inst('', 'set', [$return,$pair]);
  $self->_restore($item, $pair);

  return $return;
}

sub _q <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	7181	7297	
==>e $index:";
	$comment    = "/* ". $op->full_name() ." */";
    }
    else {
        $definition = "$prototype;\n$opsa <==
2	/Users/nnunley/parrot/config/init/miniparrot.pm	56	157	
==>parrot/config/init/miniparrot.pm 20320 2006-06-20T19:26:31.775154Z bernhard  $

=head1 NAME

config/in <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	30804	31061	
==>pcodes, @{$block};
    push @opcodes, new BinaryOp(
        $parser,
        'op'     => 'add',
        'arg1'   => $_var,
        'arg2'   => $_step,
        'result' => $_var,
    );
    push @opcodes, new BranchOp( $parser,
        'result' => $l <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6177	6290	
==>oup}->{lib} = 1;
        }
    }

    return (\%group_files, \%group_libs, \%pmc_group, \%pmc_libs);
}

sub modtim <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6388	6501	
==>oup}->{lib} = 1;
        }
    }

    return (\%group_files, \%group_libs, \%pmc_group, \%pmc_libs);
}

sub modtim <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5567	5772	
==>e declarations:
    #
    #   var <type> <ident>;
    #   var <type> <ident> = <value>;
    #   var <type> <ident>, <ident>, ...;
    #   var <type> <ident>, <ident>, ... = <value>;
    #
    #   const <typ <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	13820	13930	
==>e_numops ops\n");

sub make_subs {
    my ($ptr, $type, $index) = @_;

    return(($ptr eq '&' ? '&' : '') . sp <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	2228	2344	
==>t(interp, enum_class_${_}, pass);\n"
        foreach (@pmcs[0 .. $#pmcs - 1]);
    print OUT <<"END_C";
        if (! <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26587	26702	
==>} ||= 0;
	if ($rule->{'class'} eq 'op') {
		# Init destination types array.
		$pir .= "    dtypes = new ResizablePMC <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	43465	43610	
==>ent grammars not yet implemented\n";
}

sub DESTROY {}  # SO AUTOLOADER IGNORES IT

# BUILDING A GRAMMAR....

sub Replace ($$)
{
	# This splice hi <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	732	874	
==>ath>.

=cut

sub new
{
    my $self = shift;
    my $path = shift;
    
    return unless defined $path and ! -d $path;
    
    return $self-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947081	947182	
==>number(interpreter, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\"charset '%S <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947983	948084	
==>number(interpreter, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\"charset '%S <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	229631	229820	
==>t::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ge_num",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" = <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	3718	3892	
==>pkg . '::TODO' } = \$extra{todo}
                if defined $extra{todo};

            ## run Test::Builder's test on actual vs. expected output
            my $method = $test <==
2	/Users/nnunley/parrot/config/init/defaults.pm	2383	2519	
==>binary's symbols
        link_dynamic => $Config{ccdlflags},    # e.g. -Wl,-E on HP-UX

        # ld: Tool used to build shared libraries <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552548	552647	
==>t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n\n  object = {{\@1}};\n  method_pmc = {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556604	556703	
==>t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\n\n  object = {{\@1}};\n  method_pmc = {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122151	122455	
==>>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123063	123367	
==>>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lsr",
                  "FLAGS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	439527	439620	
==>line 104 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, N <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	440542	440635	
==>line 104 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, N <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	1331	1491	
==>unk .= $line;
            $verbatim_chunk .= "\n";

            # bracket the verbatim chunk with whitespace.
            push @output, [ 1, q{} ];
            p <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8811	8970	
==>$states[$$stack[-1][0]]{GOTOS}{$lhs}, $semval ]);
                $$check='';
                next;
            };

#DBG>			$debug & 0x04
#DBG>		and	print <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8414	8567	
==>$states[$$stack[-1][0]]{GOTOS}{$lhs}, $semval ]);
                $$check='';
                next;
            };

#DBG>			$debug & 0x04
#DBG>		and	print <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	291512	291797	
==>CODE" => 339,
                  "ARGS" => [
                              "i",
                              "nc",
                              "n"
                            ],
                  "BODY" => "#line 940 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} == {{\@3}};\n  {{+=4}};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3119	3220	
==>EG(%ld)",
    'ki' => "IREG(%ld)",

    'ic' => "cur_opcode[%ld]",
    'nc' => "CONST(%ld)->u.number", <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2033	2131	
==>EG(%ld)",
  'ki'  => "IREG(%ld)",

  'ic'  => "cur_opcode[%ld]",
  'nc'  => "CONST(%ld)->u.number", <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2506	2662	
==>tions.\n";
    if($show_full) {
	print "Their heads are included in a second section below, "
	    ."marked with \"#=#=#=\".\n";
    } else {
	print "Run thi <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	22315	22546	
==>nvert undef to 'undef' so its readable.
    my $msg = join '', map { defined($_) ? $_ : 'undef' } @msgs;

    # Escape each line with a #.
    $msg =~ s/^/# /gm;

    # Stick a newline on the end if it needs it.
    $msg .= "\n" unl <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	6372	6645	
==>= $_
                unless $seen_pod or $count; # Lines up to first op def.

            next;
        }

        die "No 'VERSION = ...;' line found before beginning of ops in file '$orig'!\n"
            unless defined $self->version;

        #
        # Handle start-of <==
2	/Users/nnunley/parrot/config/init/optimize.pm	140	231	
==>E

config/init/optimize.pm - Optimization

=head1 DESCRIPTION

Enables optimization by addin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	833589	833796	
==>rpreter->ctx)->user_stack, {{\@1}}, STACK_ENTRY_PMC, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	127	268	
==>$/) {
		push @results, {
			name	=> $3,
			total	=> $2,
			done	=> $1,
			percent	=> int(($1 / $2) * 100)
		};
	}
}

print <<HEADING <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	127	268	
==>$/) {
		push @results, {
			name	=> $3,
			total	=> $2,
			done	=> $1,
			percent	=> int(($1 / $2) * 100)
		};
	}
}

print <<HEADING <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117937	118211	
==>>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118676	118950	
==>>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	3549	3655	
==>o make sure we don't pop off the file scope block.
#

sub pop_block
{
  my $self = shift;

  $self->INTERNA <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23752	23944	
==>>);
    #
    #   last <label>;
    #   last <label> if     (<value> <op> <value>);
    #   last <label> unless (<value> <op> <value>);
    #
    #   redo;
    #   redo if     (<value> <op> <va <==
2	/Users/nnunley/parrot/tools/dev/symlink.pl	1482	1644	
==>if /^\#/;
	if (/^(.+?)\s+\[/) {
	    my $manifile = $1;
	    my @manifile = split('/', $manifile);
	    my $dstfile = File::Spec->catfile(@manifile);
	    my $srcf <==
2	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	599	710	
==>$input, @outputs) = @ARGV;
my $checksum;
{
    local $/;
    open(INPUT, $input) or die "open $input: $!";
    $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18834	18993	
==>=> 80,
			'THEN' => 102,
			"<=" => 85,
			'OR' => 84,
			">" => 86
		}
	},
	{#State 51
		ACTIONS => {
			'NAME' => 103
		}
	},
	{#State 52
		DEFAU <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2322	2445	
==>lemented in subclasses to return the C code for the run
core function declaration. C<$base> is the name of the main ops file <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2773	2888	
==>lemented in subclasses to return the C code for the run
core function declaration. C<$base> is the same as for
C<run <==
2	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	199	318	
==>lf, $conf) = @_;

    # Tru64
    my $ccflags = $conf->data->get('ccflags');
    if ($ccflags !~ /-pthread/) {
        $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5444	5618	
==>_->{symbol}";
                if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                    print {$FH} " :slurpy";
                }
                $first <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6476	6650	
==>_->{symbol}";
                if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                    print {$FH} " :slurpy";
                }
                $first <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	908	1106	
==>piler);
    $op    = $self->op;
    $right = $self->right->compile($compiler);
  }

  if ($kind eq 'if') {
    $op = $compiler->invert_relop($op); # Invert the test, since we jump *unless* the condit <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1415	1531	
==>se MSWord can't agree with the
   #  RTF spec on whether it's supposed to be \strikedl or \striked1 (!!!)
 ),

 # Bit <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490774	490997	
==>c/ops/math.ops\"\n  {{\@1}}++;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	491395	491618	
==>c/ops/math.ops\"\n  {{\@1}}++;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	16714	16827	
==>($self);
	    }
	}
}

sub prevwasreturn
{
	my ( $self, $line ) = @_;
	unless (@{$self->{items}})
	{
		Parse::RecDe <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	10463	10720	
==>r->{arg1}->{symbol}\", $dir->{arg1}->{symbol}\n";
    }

    sub visitConstDir {
        my $self  = shift;
        my ($dir) = @_;
        my $FH    = $self->{fh};
        print {$FH}
            "  .const .$dir->{type} $dir->{result}->{symbol} = \" <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7610	7800	
==>ll
            if $_ and $_ eq '/dev/null';
    }

    if ($out and $err and $out eq $err) {
        $err = "&STDOUT";
    }

    local *OLDOUT if $out;
    local *OLDERR if $err;

    # Save <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100421	100675	
==>not(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	252981	253235	
==>not(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	321	438	
==>tch a single codepoint
# charclass : Match a character class
# seq
# alternate : Match R or S at the same point?
# mul <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	8649	8782	
==>b startset { return () }
sub hasback { 0 }
sub dfa_safe { 1 }

package Regex::Ops::Tree::nop;
sub minlen { 0 }
sub maxlen { 0 }

packa <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4492	4582	
==>ference C<eval>-ed from a F<*.dump> file generated
by F<tools/build/pmc2c.pl> from a F<*.pm <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	7397	7500	
==>x_op_num;
	warn "$opname\t$n\tnot mentioned in ops.num\n" if -e "DEVELOPING";
	return $n;
    }
}

sub r <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5886	6007	
==>efined($$token)
            or	do {
				($$token,$$value)=&$lex($self);
#DBG>				$debug & 0x01
#DBG>			and	print STDER <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5605	5722	
==>efined($$token)
            or	do {
				($$token,$$value)=&$lex($self);
#DBG>				$debug & 0x01
#DBG>			and	print STDER <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927028	927488	
==>FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1043,
                  "ARGS" => [
                              "i",
                              "sc",
                              "i"
                            ],
                  " <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	21263	21386	
==>G and print "Skipping _remap_sequences: formatless treelet.\n";
    return 0;
  }
  
  my $map = ($self->{'accept_codes'} || <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811463	811553	
==>=> "#line 512 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812365	812455	
==>=> "#line 512 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed(interpreter <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	637	772	
==>', REDO => 'THEN', LAST => 'ELSE' }, # TODO: fix these
);


#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $ident, $cond, $le <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	658	776	
==>', REDO => 'THEN', LAST => 'ELSE' }, # TODO: fix these
);


#
# new()
#

sub new
{
  my $class = shift;
  my ($block, $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	19594	19787	
==>$self->{'accept_targets'}{$target_name};
        
        DEBUG > 2 and
         print "  It DOES match the acceptable target $target_name!\n";
        $to_resolve = 1
          if $self->{'acce <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6120	6213	
==>== 0x45 goto POST_BRANCH_switch_${CURIC}
${ITEMP0} = ${NEXTPC} + I_arg_0 # XXX Can't use ${ARG <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4058	4151	
==>== 0x45 goto POST_BRANCH_switch_${CURIC}
${ITEMP0} = ${NEXTPC} + I_arg_0 # XXX Can't use ${ARG <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	18232	18326	
==>g, $rest) = ($code[$code_l]->[2],
	$code[$code_l]->[3],$code[$code_l]->[4]);

    if ($opcode e <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2017	2139	
==>sax
{
  my $self = shift;
  my ($handler) = @_;

  if (not $self->prefix and $self->peer and $self->peer->prefix) {
    $se <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1894	2016	
==>sax
{
  my $self = shift;
  my ($handler) = @_;

  if (not $self->prefix and $self->peer and $self->peer->prefix) {
    $se <==
2	/Users/nnunley/parrot/config/inter/encoding.pm	1756	1867	
==>ding_o     => $TEMP_encoding_o,
        TEMP_encoding_build => $TEMP_encoding_build,
    );

    return $self;
} <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3064	3192	
==>urn $$self{STACK}[$index][1];

	undef;	#Invalid index
}

sub YYCurtok {
	my($self)=shift;

        @_
    and ${$$self{T <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2916	3035	
==>urn $$self{STACK}[$index][1];

	undef;	#Invalid index
}

sub YYCurtok {
	my($self)=shift;

        @_
    and ${$$self{T <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19116	19267	
==>nt, -1 ]),
               aop('goto', [ $R_back ]),
     $check => aop('lt', [ $matchcount, $min, $local_back ]),
      $next => $self->op_save_rxlocals <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	278	374	
==>forms. Each transform contains various bits of information needed
to generate the C code, and cre <==
2	/Users/nnunley/parrot/config/auto/socklen_t.pm	370	594	
==>Parrot::Configure::Step ':auto';

our $description = 'Asking Perl5 whether there is socklen_t';
our @args = qw();

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    my $d_sockle <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	60101	60235	
==>sing C<$@-E<gt>{pos}> returns the offset into the original string at
which the error was detected (although not necessarily where it oc <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43432	43634	
==>or' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 192
		ACTIONS => {
			'END' => 203
		}
	},
	{#State 193
		DEFAULT => -33,
		GOTOS => {
			'@10-4' => 204
		}
	},
	{#State 19 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	1953	2079	
==>tor tests
if 4<5 then print "Ok" else print "Wrong"
if 5<5 then print "Wrong" else print "Ok"
if 6<5 then print "Wrong" else pr <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11112	11229	
==>2X',ord($1))/eg;
        # Yes, stipulate the list without a range, so that this can work right on
        #  all char <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4461	4576	
==>2X',ord($1))/eg;
       # Yes, stipulate the list without a range, so that this can work right on
       #  all char <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	4655	4801	
==>BEGIN {
	  eval {
	    require Digest::MD5;
	    import Digest::MD5 'md5_hex'
	  };
	  if ($@) { # ups, no Digest::MD5
	    require Digest::Perl::M <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	554919	555202	
==>E" => "function",
                  "CODE" => 637,
                  "ARGS" => [
                              "p",
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line 94 \"src/ops/object.ops\"\n  opc <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	5741	5998	
==>nkflags => '',

            ar       => 'tlib',
            ar_flags => '',
            ar_out   => '',
            ar_extra => '/au',
            slash    => '\\',
            blib_dir => 'blib\\lib',
            make_and => "\n\t",
        );
    } elsif ( <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	55559	55818	
==>de>");
				$prod and $prod->additem($item)
				      or  _no_rule("<defer:$code>",$line);

				$self->{deferrable} = 1;
			}
			elsif ($grammar =~ m/(?=$TOKENPATMK)/gco
				and do { ($code) = extract_codeblock($grammar,'{',undef,'<');
					 $code;
				       } <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3064	3179	
==>> "PREG(%ld)",
    's'  => "SREG(%ld)",
    'k'  => "PREG(%ld)",
    'ki' => "IREG(%ld)",

    'ic' => "cur_opcode[% <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1980	2091	
==>> "PREG(%ld)",
  's'   => "SREG(%ld)",
  'k'   => "PREG(%ld)",
  'ki'  => "IREG(%ld)",

  'ic'  => "cur_opcode[% <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2790	2997	
==>d;
  }

  my $i = ' ' x ( 2 * $self->{'Indent'} + 4);
  #my $i = ' ' x (4 + $self->{'Indent'});
  
  $self->{'Thispara'} =~ s/^/$i/mg;
  
  print { $self->{'output_fh'} }   '', 
    $self->{'Thispara'},
    " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550150	550241	
==>t = NEED_CONTINUATION;\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_me <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551451	551542	
==>t = NEED_CONTINUATION;\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_me <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	1088	1193	
==>p.h',
            TEMP_cg_c => <<'EOF',
$(OPS_DIR)/core_ops_cg$(O): $(GENERAL_H_FILES) $(OPS_DIR)/core_ops <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647570	647806	
==>1}} = pmc_type(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	648331	648567	
==>1}} = pmc_type(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	3537	3708	
==>>suffix;
    
    if ( @_ > 0 )
    {
        return 0 unless defined $_[0];
        return $_[0] eq $suffix;
    }
    
    return $suffix ne '';
}

=item C<parent_path()> <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	6753	6871	
==>lude<parrot/parrot.h>
#if HAVE_COMPUTED_GOTO
#  include<parrot/oplib/core_ops_cgp.h>
#endif
#include"parrot/exec.h"
#in <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	54147	54312	
==>le 66
		 'exp', 3,
sub
#line 373 "Lua\lua51.yp"
{
            BuildRelop( $_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 67
		 'exp', 3,
sub
#line 377 <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	68386	68543	
==>$lookaheadspec =~ tr /././ > 3)
		{
			$lookaheadspec =~ s/\A\s+//;
			$lookahead = $lookahead<0
					? 'a negative lookahead ("...!")'
					: 'a positive loo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	268522	268745	
==>!VTABLE_get_bool(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	51	152	
==>r2.pm 16454 2006-02-01T20:44:27.448243Z bernhard  $

package Parrot::Test::Bc::Antlr2;

use strict;

u <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58691	59007	
==>{{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "warningson",
                  "FLAGS" => "", <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	26143	26328	
==>e
        $list_type = $self->_get_initial_item_type($paras->[0]);

      } elsif($paras->[0][0] eq '=back') {
        # Ignore empty lists.  TODO: make this an option?
        shift @$p <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26370	26512	
==>,
			"(" => 48,
			"{" => 38,
			"[" => 47,
			"." => 49,
			'STRING' => 44
		},
		GOTOS => {
			'tableconstructor' => 46,
			'args' = <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35986	36164	
==>ew ($$$$$$$$$$)
{
	my ($self, $subrule, $repspec, $min, $max, $lookahead, $line, $parser, $matchrule, $argcode) = @_;
	my $class = ref($self) || $self;
	($max, $min) = ( $min, $ma <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884386	884792	
==>,
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1001,
                  "ARGS" => [
                              "s",
                              "sc",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\ <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	3404	3708	
==>else {
            if ($seen_blank) {
              $result .= "\n";
              $seen_blank = 0;
            }
            # verbatim hunk.
            $result .= $code;
        }
    }

    return $result;
}

# vim: expandtab shiftwidth=4:
1;

__END__

=head1 NAME

Parrot::PIR::Formatter - Given ugly <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	14979	15118	
==>level sections
    # have their indexes in the root directory - but it works.
    
    $self->{NAV_BAR} = $item->html_navigation("$rel_path/ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	3437	3538	
==>$endpos,   length($$textref)-$endpos,	# REMAINDER
			$startpos, $prelen;			# PREFIX
}

sub extract_bra <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	884	988	
==><#define> macros required by the ops.

=cut

sub defines
{
    return <<END;
#define REL_PC ((size_t)((op <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1014	1118	
==><#define> macros required by the ops.

=cut

sub defines
{
    return <<END;
#define REL_PC ((size_t)((op <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	10930	11071	
==>r $N1
    $N1 = op1 * $I1
    $N2 = op2 - $N1
    .return($N2)
zero_LHS:
    if op2 < 0 goto neg_RHS
    .return(op2) 
neg_RHS:
    %% DOMAIN_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011396	1011645	
==>@1}} = Parrot_Run_OS_Command(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012161	1012410	
==>@1}} = Parrot_Run_OS_Command(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	1552	1800	
==>->data->set(link => $link);
        $conf->data->deltrigger("cc", "solaris_link");
    };
    $conf->data->settrigger("cc", "solaris_link", $solaris_link_cb);

    ################################################################
    # cc_shared:  Fl <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	5254	5432	
==>> \$Version,
		  )) {
    show_help();
    exit(1);
}

if ($Const && !$nm_ro) {
    warn "$ME: the native nm cannot tell apart const data sections\n";
}

if ($Version) {
    show_ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	11714	11864	
==>f, $name) = @_;
    return split(/\n/, <<'END');
$rx_match{'!POS'} = $rx_pos;
$rx_match{'!RESULT'} = 1;
$rx_match{'0'}->[1] = $rx_pos - 1;
$rx_match{'! <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	11947	12044	
==>f, $name) = @_;
  return split(/\n/, <<'END');
$rx_match{'!POS'} = $rx_pos;
$rx_match{'!RESULT'} = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59276	59395	
==>,
                  "BODY" => "#line 901 \"src/ops/core.ops\"\n  PARROT_WARNINGS_on(interpreter, {{\@1}});\n  {{+=2}};\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59924	60043	
==>,
                  "BODY" => "#line 901 \"src/ops/core.ops\"\n  PARROT_WARNINGS_on(interpreter, {{\@1}});\n  {{+=2}};\n <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	334	437	
==>ub new() {
	my $invocant = shift;
	return bless {}, $invocant;
}

# Pre-translation hook.
sub pre_transl <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	242	345	
==>ub new() {
	my $invocant = shift;
	return bless {}, $invocant;
}

# Pre-translation hook.
sub pre_transl <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	925	1054	
==>undef unless defined $in and length $in;
  
  # Convert to decimal:
  if($in =~ m/^(0[0-7]*)$/s ) {
    $in = oct $in;
  } elsif($ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2284	2413	
==>undef unless defined $in and length $in;
  
  # Convert to decimal:
  if($in =~ m/^(0[0-7]*)$/s ) {
    $in = oct $in;
  } elsif($ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244000	244258	
==>n  {{\@1}} = string_compare(interpreter, l, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244932	245190	
==>n  {{\@1}} = string_compare(interpreter, l, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	47971	48211	
==>odes
        |
        (               # $5: stuff containing no start-codes or end-codes
          (?:
            [^A-Z\ >]+
            |
            (?:
              [A-Z](?!<)
            )
            |
            (?:
              \ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	67466	67678	
==>hrule,
								       $argcode);
	 
				$prod and $prod->additem($item)
				      or  _no_rule("(sub)rule",$line,$name);

				!$matchrule and $rule and $rule->addcall($name);
			}
		}
		elsif ($grammar =~ m/$LONEC <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841420	841653	
==>" => 954,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 40 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpret <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26214	26380	
==>on that needs it.
    my $pre_translate_code = "";
    if (grep { $rule->{'code'} eq $_ } @need_enum_fix) {
        $pre_translate_code = <<'PIR'
(${STEMP0}, ${STACK0} <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	202	332	
==>NU m4'.

=cut

package Parrot::Test::M4;

use strict;
use warnings;
use 5.006;

use Data::Dumper;
use File::Basename;

use Parrot:: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	265	464	
==>oke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block::Loop::While;

use Carp;

use base qw(Jako::Construct::Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	32041	32173	
==>S => {
			"-" => 24,
			'TRUE' => 25,
			'NOT' => 27,
			'STRING' => 29,
			'NIL' => 30,
			'FALSE' => 33,
			'FUNCTION' => 34 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37507	37639	
==>S => {
			"-" => 24,
			'TRUE' => 25,
			'NOT' => 27,
			'STRING' => 29,
			'NIL' => 30,
			'FALSE' => 33,
			'FUNCTION' => 34 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	3378	3501	
==>lf->block->block;
}


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $type  = $self->type-> <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	5634	5854	
==>ckFile)_/;

for my $api (@API) {
    unless ($api =~ $ParrotPrefix) {
	push @NoParrotPrefix, $api;
    }
    unless (exists $ParrotAPI{$api} || $api =~ $ParrotPrefix) {
	push @UnParrotAPI, $api;
    }
}

if (@NoParrotAPI) <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	32251	32392	
==>erate_identifier {
}

sub _op_construct_identifier {
}

#------------------------------------------------------------------------------

my %g <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	2521	2723	
==>S" => "",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 2,
                  "ARGS" => [],
                  "BODY" => "#line 108 \"src/ops/core.ops <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	24113	24392	
==>f->{"lookahead"}<0?'if':'unless') . ' defined $_tok;
'
}

1;

package Parse::RecDescent::Error;

sub issubrule { undef }
sub isterminal { 0 }
sub describe { $_[1] ? '' : $_[0]->{commitonly} ? '<error?:...>' : '<error...>' }
sub sethashname { $_[0]->{hashname} = '__DIRECTIVE' . ++ <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	1816	1936	
==>} = 1;
}

print <<END;
    </list>
    
    <list name="ops">
END

for my $ops_file (@ops_files) {
    open OPS, "<$ops_f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172009	172309	
==>tion",
                  "CODE" => 206,
                  "ARGS" => [
                              "p",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 218 \"src/ops/cmp.ops\"\n  if (0 != string_equal(interpreter <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10316	10427	
==>node,2);
  }

  if (exists $self->{scope}->{$symbol}) {
    die "define: $symbol is already defined\n";
  }
  el <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	23766	23874	
==>);
    $Test->failure_output($file);

Where diagnostic output on test failures and diag() should go.

Default <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3732	3833	
==>$self->block->props;

      $self->SYNTAX_ERROR("Sub declaration has no fnlib property, and parent mod <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6396	6497	
==>$self->block->props;

      $self->SYNTAX_ERROR("Sub declaration has no fnlib property, and parent mod <==
2	/Users/nnunley/parrot/config/auto/m4.pm	1081	1221	
==>on') || '';
        $has_gnu_m4 = ($output =~ m/^GNU [mM]4 /) ? 1 : 0;
    }

    $conf->data->set(has_gnu_m4 => $has_gnu_m4);
    $self->set <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27642	27779	
==>,
		GOTOS => {
			'exp' => 139,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'prim <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	6491	6646	
==>'forall'   , 8704,
 'part'     , 8706,
 'exist'    , 8707,
 'empty'    , 8709,
 'nabla'    , 8711,
 'isin'     , 8712,
 'notin'    , 8713,
 'ni'       , 871 <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	53537	53673	
==>ndef>), split continues as long as possible.

If the third argument is I<N>, then extraction continues until I<N> fields
have been succes <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712756	712949	
==>eter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713863	714056	
==>eter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	34992	35090	
==>tring }" , "" , "" )

since both sets of C<'{..}'> brackets are properly nested and evenly balanced <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712733	712849	
==>)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713840	713956	
==>)\n    PIO_puts(interpreter, io, \".0\");\n  PIO_softspace(interpreter, io, 1);\n  {{+=2}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28389	28512	
==>NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
						. $& . q{])},
						  Parse::RecDes <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30465	30588	
==>NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
						. $& . q{])},
						  Parse::RecDes <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	5916	6024	
==>"});
	my @expected = ();

	my $prod;
	foreach $prod ( @{$self->{"prods"}} )
	{
		my $next = $prod->expected() <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	499	591	
==>ackage Parrot::Docs::HTMLPage;

use strict;
use warnings;

=item C<header($title, $navigation <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	5174	5401	
==>truct PackFile *          pf;
    INTVAL i;
    PMC *userargv;

    interpreter = Parrot_new(NULL);
    if (!interpreter) {
        return 1;
    }

    run_native = run_compiled;
    /* TODO make also a shared variant of PackFi <==
2	/Users/nnunley/parrot/config/auto/pack.pm	399	599	
==>scription = q{Figuring out how to pack() Parrot's types};

@args = ();

sub runstep
{
    my ($self, $conf) = @_;

    #
    # Alas perl5.7.2 doesn't have an INTVAL flag for pack().
    # The ! modifie <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28978	29154	
==>/\$\{DEST0\}/ &&
		         $rule->{'instruction'} =~ /\$\{LOADREG\}/) {
			die "pir must use one of \${DEST0} or \${LOADREG} in rule " .
				"$rule->{'name'}\n";
		} elsif ($ru <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	847	982	
==>ident  { return shift->{IDENT};  }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;
  
  my $ident_name = $se <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	847	980	
==>ident  { return shift->{IDENT};  }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $ident_name = $se <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1538	1670	
==>RRST => \$errst,
                NBERR => \$nberr,
				TOKEN => \$token,
				VALUE => \$value,
				DOTPOS => \$dotpos,
				STACK <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1486	1613	
==>RRST => \$errst,
                NBERR => \$nberr,
				TOKEN => \$token,
				VALUE => \$value,
				DOTPOS => \$dotpos,
				STACK <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959324	959546	
==>ng_trans_encoding(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960126	960348	
==>ng_trans_encoding(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4440	4570	
==>re_prefix .
        "$core(opcode_t *cur_op, Parrot_Interp interpreter)";
}

=item C<ops_addr_decl($base_suffix)>

Returns the C co <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	25968	26072	
==>text,$delim);


 # Extract the initial substring of $text that is bounded by
 # an HTML/XML tag.

	($extr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70372	70657	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "loadlib",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71140	71425	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "loadlib",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inlin <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	10733	10945	
==>func $extern\n";
        }
        # *) $1 = $2->vtable->{vtable}(interp, $2)
        elsif ($opbody =~ /
        ^(?:.*\.ops")\s+
        {{\@1}}\s*=\s*
        {{\@2}}->vtable->
        (\w+)
        \(interpret <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	2366	2559	
==>ys %$libs );
        if ($CC =~ /gcc/i) {
            $liblist =~ s/gdbm\.lib/-llibgdbm/i;
        }
        my $extraLibs = '-lm -lpthread -lm -L/opt/local/lib  -licuuc -licudata -lpthread -lm' <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3170	3274	
==>enerate_dump($_) foreach (@pmcs);
    generate_c($_) foreach (@pmcs);

    my ($group_files, $group_libs, <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3274	3378	
==>enerate_dump($_) foreach (@pmcs);
    generate_c($_) foreach (@pmcs);

    my ($group_files, $group_libs, <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25092	25376	
==>value>) {
    #   unless (<value> <op> <value>) {
    #

    if ($token->is_if or $token->is_unless) {
      my $block = $self->current_block();
      my $kind = $token->text;

      $self->require_open_paren;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->r <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	27619	27784	
==>he tests so far.  True for pass, false for fail.
This is a logical pass/fail, so todos are passes.

Of course, test #1 is $tests[0], etc...

=cut

sub summary {
    m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745394	745727	
==>"FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 839,
                  "ARGS" => [
                              "p",
                              " <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	25966	26065	
==>s.pod>

=item L<Test/More>

=item L<Test/Builder>

=back

=cut

sub report_odd_hash {
    my $warnin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065779	1066028	
==>E" => 1190,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 260 \"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root_namespace, <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	6650	6820	
==>options{replace_slashes}) {
            $line =~ s{(/+)}{
                my $len = length $1;
                my $slash = $conf->data->get('slash');
                '/' x <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634082	634511	
==>FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 710,
                  "ARGS" => [
                              "p",
                              "i",
                              "s"
                            ] <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	1630	1777	
==>arness;

sub set_flags
{
    my %options           = @_;
    $ENV{HARNESS_VERBOSE} = 1;
    $ENV{HARNESS_PERL}  ||= '../../parrot ./' . $options{com <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107747	1108221	
==>ect_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1226,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 361 \"src/ops/experimental.ops\"\n    INTVAL type;\n    switch ({{\@2}}->vtable->b <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7519	7638	
==>XT] eq "=") {
	#	# Assignment statement
	#	my $var=$syms[CURR];
	#	feedme;  # Get the =
	#	#print "Going to expression w <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	1777	1967	
==>xed sized types
    if ($results{shortsize} == 2) {
        $conf->data->set(int2_t => 'short');
    } else {
        $conf->data->set(int2_t => 'int');
        print <<'END';

Can't find a i <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	6903	7048	
==>print "Got a $sym...\n";
		if ($sym eq "(") {
			push @stack, $item;
			next;
		}
		if ($sym eq ")") {
			push @stream, pop @stack
				while(@stac <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4538	4635	
==>mpiler->temp_reg($calc_type);
    $compiler->emit("  $temp = $left $op $right");
    $compiler->em <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9509	9602	
==>eq 'Verbatim' or $tagname eq 'X';
}

=item C<process_text_token($token)>

Processes the specif <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404412	404665	
==>> 467,
                  "ARGS" => [
                              "s",
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 535 \"src/ops/io.ops\"\n    {{\@1}} = PIO_socka <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46991	47096	
==>rpreter,   {{\@1}}); }\n  else         { Interp_debug_CLEAR(interpreter, PARROT_ALL_DEBUG_FLAGS); }\n  {{= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47774	47879	
==>rpreter,   {{\@1}}); }\n  else         { Interp_debug_CLEAR(interpreter, PARROT_ALL_DEBUG_FLAGS); }\n  {{= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	537285	537508	
==>c/ops/math.ops\"\n  {{\@1}} = sin((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3992	4107	
==>";
    }
} 
elsif ($mode eq 'linklibs') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gathe <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4096	4211	
==>";
    }
} 
elsif ($mode eq 'linklibs') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gathe <==
2	/Users/nnunley/parrot/config/auto/va_ptr.pm	512	735	
==>w();

sub runstep
{
    my ($self, $conf) = @_;

    my $va_type;
    cc_gen('config/auto/va_ptr/test_c.in');
    eval { cc_build('-DVA_TYPE_X86'); };

    if ($@ || cc_run() !~ /^ok/) {
        eval { cc_build('-DVA_TYPE_PP <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13375	13469	
==>ate(_get_arg($node,1));
  $self->_add_inst('','not',[$return,$return]);

  $return;
}

sub _op_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	14746	14884	
==>pushmark "
    $I0 = i + 1
    tmp = $I0
    gen_pir = concat tmp
    gen_pir = concat "\n"
NOT_TRY_START:

    # If this is the start of a <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	25988	26181	
==>opt');
    my ($R_back, @R_ops) = $self->rewrite($R, $lastback);

    my @ops = (
                        aop('pushindex'),
                        aop('goto', [ $next ]),
               $back = <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1245	1355	
==>igure out how many levels we have to go back to get to parrot.
        # And, conversely, how many levels we ha <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	715	821	
==>igure out how many levels we have to go back to get to parrot.
    # And, conversely, how many levels we ha <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	32	119	
==>erl Foundation.
# $Id: /parrot/languages/lua/t/Parrot/Test/Lua.pm 19606 2006-05-30T15:0 <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	17686	17800	
==>return $para->[1]{'~type'} = 'text';

  }
}

#--------------------------------------------------------------------- <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	1181	1297	
==>he "DO NOT EDIT THIS FILE" warning text. C<$pmcfile> is the name
of the original source F<*.pmc> file.

=cut

sub don <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8537	8659	
==>tates[$$stack[-1][0]]{GOTOS}{$lhs}.\n";

#DBG>				$debug & 0x10
#DBG>			and	$dbgerror
#DBG>			and	$$errstatus == 0
#DB <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8151	8268	
==>tates[$$stack[-1][0]]{GOTOS}{$lhs}.\n";

#DBG>				$debug & 0x10
#DBG>			and	$dbgerror
#DBG>			and	$$errstatus == 0
#DB <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	1946	2195	
==>y
    type      = .rb

=head1 BUGS

While every effort was made to ensure this script is portable,
it is likely that it will break somewhere.

If a benchmark has multiple extensions associated with the same
executable, the last one will be used.  For <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	39434	39670	
==>urn $pir;
}


# Inserts auto-magically instantiated meta-variable locals.
# #########################################################
sub insert_automagicals($$) {
	my $pir = shift;
	my $mv = shift;

	# Loop over keys to look for automag <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8403	8531	
==>e a formal arguments list:
      #

      $self->require_open_paren;

      my @formal_args;

      unless ($self->skip_close_par <==
2	/Users/nnunley/parrot/config/init/defaults.pm	5550	5661	
==>ERL) -e \'chdir shift @ARGV; system q{$(MAKE)}, @ARGV; exit $$? >> 8;\'',

        # if platform has a .s file t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655541	655665	
==>"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined(interpreter, {{\@2}});\n  {{+=3}};\n",
                  " <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	1723	1841	
==>sn't start in the left column, it's not a func
    @funcs = grep /^\S/, @funcs;

    # Typedefs and structs are no good <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	46000	46220	
==>enerate($$$;$$)
{
	my ($self, $grammar, $replace, $isimplicit, $isleftop) = (@_, 0);

	my $aftererror = 0;
	my $lookahead = 0;
	my $lookaheadspec = "";
	$lines = _linecount($grammar) unless $lines;
	$self->{_check}{itempo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687665	687949	
==>P" => 0,
                  "NAME" => "delprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688436	688720	
==>P" => 0,
                  "NAME" => "delprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "COD <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	62666	62779	
==>opening bracket at %s>

C<extract_codeblock> failed to find any of the outermost opening brackets
that were specif <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2334	2444	
==>(exists $main::common{$var}) {
					push(@saves, $var);
				}
			}
			if (@saves) {
				$edit.=qq{\tfind_global <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2743	2853	
==>(exists $main::common{$var}) {
					push(@saves, $var);
				}
			}
			if (@saves) {
				$edit.=qq{\tfind_global <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2072	2227	
==>/luac.pl languages/${lang_fn}",
                "$self->{parrot} --no-gc languages/${pir_fn}",
            );
        }

        # This does not create <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	4138	4285	
==>or
    die "Couldn't write to \"$filename\": $!\n";
  close $fh or
    die "Couldn't close \"$filename\": $!\n";
}

sub clean_obsolete_smokes {
  my <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9431	9622	
==>_stack>; # popint");
    }
}

sub output_substr {
    my ($self, $dest, $src, $offset, $len) = @_;
    return ("$dest = substr($src, $offset, $len);");
}

sub output_length {
    my ($self, $d <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	9580	9702	
==>ocal $/ = undef;
    my $file = <SLURP> . '';
    $file =~ s/\cM\cJ/\n/g;
    close SLURP;

    return $file;
}

sub conver <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	17111	17260	
==>ounter, 0 ]),
                 @N_ops,
         $try => $self->dbprint("matching dynalt[%<$counter>]\n"),
                 @R_ops,
		 aop('pushint', [ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	676	783	
==>ruct::Expression::Value::Identifier');

  my $self = bless {
    BLOCK => $block,
    IDENT => $ident
  }, $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	676	783	
==>ruct::Expression::Value::Identifier');

  my $self = bless {
    BLOCK => $block,
    IDENT => $ident
  }, $ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	3931	4121	
==>ly useful for tests run in persistent environments where the same
test might be run multiple times in the same process.

=cut

use vars qw($Level);

sub reset {
    my ($self) = @_;

    # We <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	13194	13312	
==>ush @{$code{$seg}->{code}}, qq{\tgoto END_$seg\n};
		feedme();
		#print CODE "\tgoto SUB_EXIT_$subname\n";
	} elsif ($s <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13374	13481	
==>user-type first"
type first
	foo as integer
	bar as string
end type
type second
	other as first
	narf as int <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125369	125629	
==>"CODE" => 155,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 257 \"src/ops/bit.ops\"\n  {{\@1}} = (INTVAL) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1446	1546	
==>::Construct::Statement::New;
use Jako::Construct::Statement::Return;


#
# new()
#

sub new
{
  my $c <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	3	126	
==>opyright (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/config/gen/parrot_include.pm 19593 2006-05-30T02:28:15.110975Z c <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	7631	7763	
==>,
            "$func_name,", $index);
    }
    $one_op .= "$definition $comment {\n$src}\n\n";
    push @op_funcs, $one_op;
    $ind <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	14470	14654	
==>is module is still a work in progress. As Pugs grows, so will it's
testing needs. This module will be the code support for those needs. The
following is a list of future features planne <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	23357	23470	
==>current diagnostic filehandle.

=cut

sub _print_diag {
    my $self = shift;

    local($\, $", $,) = (undef, ' ' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	154	278	
==>');

sub init_context {
    my ($self, $ctx) = @_;
    $ctx->{rx_match} ||= '$rx_match';
    $ctx->{rx_stack} ||= '$rx_stack' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1850	1949	
==>sub start_over_number  { ++$_[0]{'Indent'} }
sub start_over_text    { ++$_[0]{'Indent'} }
sub start_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1418	1517	
==>sub start_over_number  { ++$_[0]{'Indent'} }
sub start_over_text    { ++$_[0]{'Indent'} }
sub start_ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6625	6720	
==>$return,$pair]);
  $self->_restore($item, $pair);

  return $return;
}

sub _qq_unquote_splicing <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	195854	196155	
==>IVE",
                  "NAME" => "lt_num",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "functi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	361	461	
==>nge the type of an object
sub dump { Pod::Simple::pretty( [ @{ $_[0] } ] ) }

sub is_start { $_[0][0] <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	29148	29262	
==>{has_method}{$meth};
    my $n = $self->{vtable}{has_method}{$meth};
    return $self->{vtable}{methods}[$n]{mmd} = <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	15008	15111	
==>is on.\n";
    return;
  }
  return $self->_complain_warn(@_) if $self->{'complain_stderr'};
  return $s <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24816	25051	
==>,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 130,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'prim <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193558	193651	
==>}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194537	194630	
==>}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18107	18284	
==>, t*2, >100
	print "Wrong 1!"
case 49 to 49, t*2, g
	print "Wrong 2!"
case t
	print "Ok!"
end select
select case h
case 99
	print "Wrong 3!"
case <5
	print "Ok!"
case <10   ' Fal <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	52406	52513	
==>ecDescent::Directive(
					      "($1) ? undef : 1", $lookahead,$line,"<reject:$code>");
				$prod and $prod <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6640	6786	
==>lesub(target)

            unless match goto match_fail
          match_success:
            print "matched"
            goto match_end
          m <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7658	7803	
==>lesub(target)
            unless match goto match_fail
          match_success:
            print "matched"
            goto match_end
          m <==
2	/Users/nnunley/parrot/config/auto/bc.pm	355	480	
==>rot
bc.

=cut

package auto::bc;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

u <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	27668	27801	
==></HEAD>');

	($extracted, $remainder) = $extract_head->($text);


=head1 DESCRIPTION

The various C<extract_...> subroutines may be us <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4004	4181	
==>estination=DIRECTORY
    shift(@oplibs) =~ /--destination=(.*)/
      or die "copy command requires destination";
    my $dest = $1;

	my $core_suffix;
    foreach $core_suffix ( <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	38	449	
==>{

    sub new {
        my $proto    = shift;
        my $class    = ref($proto) || $proto;
        my ($parser) = @_;
        my $self     = {};
        bless $self, $class;
        $self->{parser} = $parser;
        $self->{table}  = {};
        return $self;
    }

}

################################################################################

package SymbTabVar;
use base qw(Lua::sy <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	2360	2766	
==>KAGE__->new->parse_string_document('=head1 L<Foo/bI<ar>baz>>')
    "
Output:
  $VAR1 = bless( [
                   '',
                   {},
                   'b',
                   bless( [
                            'I',
                            {},
                            'ar'
                          ], 'Pod::Simple::LinkSection' ),
                   'baz'
                 ], 'Pod::Simpl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	617188	617314	
==>L lr_types;\n\n    mic = (Parrot_MIC *) cur_opcode[1];\n    left = {{\@2}};\n    right = {{\@3}};\n    lru = &mic->lru;\n    lr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824535	824633	
==>OR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_str(entry->entry);\n  {{+=3} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825606	825704	
==>OR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_str(entry->entry);\n  {{+=3} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19202	19396	
==>ount, $min, $local_back ]),
      $next => $self->op_save_rxlocals($op),
              );

    return ($back, @ops);
}

# R<0,max>? ->  $matchcount = 0
#               goto next
#        rfail: i <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20792	20941	
==>ount, $min, $local_back ]),
      $next => $self->op_save_rxlocals($op),
              );

    return ($back, @ops);
}

# ( [ [aaaaa|aaaaaaa]<2,3> ]<1 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	5848	5998	
==>iption of any POD errors in the file.

=cut

sub pod_errors
{
	my $self = shift;
	
	$self->check_pod;

	return $self->{POD_ERRORS};
}

=item C<pod_as_h <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31897	32232	
==>AssignOp( $parser,
            'result' => $iter,
            'arg1'   => $nil->[0],
        );
        push @return1, $iter;
    }
    else {
        push @opcodes2, @{ $expr->[1] };
        push @opcodes3, new AssignOp( $parser,
            'result' => $iter,
            'arg1'   => $expr->[0],
        );
        $expr = <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	29258	29536	
==>arg1'   => $fct,
        'arg2'   => [ $e_start->[0], $e_limit->[0], $e_step->[0] ],
    );
    my $lbl_loop = new_label($parser);
    push @opcodes, new LabelOp( $parser,
        'arg1' => $lbl_loop,
    );
    my $lbl_or = new_label($parser);
    my $zero = BuildLitera <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33508	33664	
==>ess 
	{
		"subrule"   => $_[1],
		"lookahead" => $_[2],
		"line"      => $_[3],
		"implicit"  => $_[4] || undef,
		"matchrule" => $_[5],
		"argcode"   => $_[ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1664	1806	
==>r however you want to alter the value...
  }

=back

You're unlikely to ever need to construct an object of this class for
yourself, but if you <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	46519	46613	
==>urn the string "<<'EOMSG'\nThis is the message.\nEOMSG",
leaving the string " || die;\nexit;" i <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	6111	6240	
==>newlines($output), $file);
}

=item C<get_vtable_section()>

Creates a hash of all the method names containing vtable section. Cal <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3409	3527	
==>ode{$seg};
	if (! $debug) {
		print CODE ".end\t# outer segment\n";
		next;
	}
	print CODE<<EOD;
	.sub ${seg}_debug
		s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7268	7388	
==>'Data') {
        my $next = $self->get_token;
        next unless defined $next;
        unless( $next->type eq 'text' ) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9513	9633	
==>'Data') {
        my $next = $self->get_token;
        next unless defined $next;
        unless( $next->type eq 'text' ) <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	1281	1386	
==>lower:]]$/;  # CCLASS_LOWERCASE
    $ret |= 0x0004 if $chr =~ /^[[:alpha:]]$/;  # CCLASS_ALPHABETIC
    $r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835660	835767	
==>,
                  "BODY" => "#line 215 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836413	836520	
==>,
                  "BODY" => "#line 215 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpret <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	2476	2651	
==>se Parse::RecDescent;\n\n";

		print OUT "{ my \$ERRORS;\n\n";

		print OUT $self->_code();

		print OUT "}\npackage $class; sub new { ";
# SEAN: this is bad.
# 		print OUT "my <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	42091	42196	
==>n takes a single argument (the text to
be extracted from).

In other words, the implementation of C<extrac <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6837	6931	
==>, 6-0
t$="1234567890"
print mid$(t$, 2, 8)
print left$(t$, 5)
print right$(t$, 5)
' instr
s1$=" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18566	18660	
==>, 6-0
t$="1234567890"
print mid$(t$, 2, 8)
print left$(t$, 5)
print right$(t$, 5)
' instr
s1$=" <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	54892	55234	
==>], $_[2], $_[3] );
        }
	],
	[#Rule 72
		 'exp', 3,
sub
#line 397 "Lua\lua51.yp"
{
            BuildLogop( $_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 73
		 'exp', 2,
sub
#line 401 "Lua\lua51.yp"
{
            BuildUnop( $_[0], $_[1], $_[2] );
        }
	],
	[#Rule 74
		 'exp', 2,
sub
#line 405 "Lua\lua51.y <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	8437	8559	
==>intf "    item-* before %s(%s) %s keepn'd.\n",
              $to_unget[-1]->type,
              $to_unget[-1]->can('tagname <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63184	63293	
==>ode($1)");

						!$matchrule and $rule and $rule->addcall($name);

						_check_insatiable($name,$1,$grammar, <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63905	64014	
==>ode($1)");

						!$matchrule and $rule and $rule->addcall($name);

						_check_insatiable($name,$1,$grammar, <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	855	961	
==>n to undef.  This will also trigger any hints-file
    # callbacks that depend on knowing whether or not we <==
2	/Users/nnunley/parrot/config/auto/msvc.pm	791	897	
==>n to undef.  This will also trigger any hints-file
    # callbacks that depend on knowing whether or not we <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423606	423727	
==>io.ops\"\n    {{\@1}} = (INTVAL)PIO_listen(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	424503	424624	
==>io.ops\"\n    {{\@1}} = (INTVAL)PIO_listen(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	21291	21411	
==>cur_ic = bc.read_uint8()\n    next_pc += 1\n";
            $pir .= binary_dispatch_table($_, @rules);
        }
    } els <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	272	365	
==>use strict;
use warnings;

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure: <==
2	/Users/nnunley/parrot/config/init/hints/cygwin.pm	1005	1161	
==>hare_flags      => '-shared',
        ld_load_flags       => '-shared',
        libs                => $libs,
        has_static_linking  => 0,
        has_d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53279	53402	
==>) { Interp_flags_SET(interpreter,   PARROT_GC_DEBUG_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_GC_DEB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54035	54158	
==>) { Interp_flags_SET(interpreter,   PARROT_GC_DEBUG_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_GC_DEB <==
2	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	244	347	
==>cript works by appending the line

  /* CHECKSUM: <checksum> */

to the end of all generated output file <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1671	1929	
==>N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
print "Elapsed time:  $N2\n"; # print  "Elapsed time:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1671	1929	
==>N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
print "Elapsed time:  $N2\n"; # print  "Elapsed time:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	13489	13601	
==>scent::_warn(1,"Optimizing away production: [". $_[0]->describe ."]");
		my $what = $items[0]->describe =~ /<rule <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035735	1035834	
==>er, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    {{\@1}} = result;\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036899	1036998	
==>er, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    {{\@1}} = result;\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565462	565731	
==>> "inline",
                  "CODE" => 646,
                  "ARGS" => [
                              "i",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 194 \"src/ops/object.ops\ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	11462	11576	
==>es ) {
    $transnode = { children => [ { value => 'if' },
				 _get_arg($clause,0),
				 { children => [ { value = <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27288	27557	
==>decls() {
    my $self = shift;

    my $hout;
    my $classname = $self->{class};
    # generat decls for all methods in this file
    foreach my $meth (@{ $self->{vtable}{methods} } ) {
        if ($self->implements($meth->{meth})) {
            $hout .= $self->decl($ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51238	51424	
==>ss( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "trace",
                  "FLAGS" => "",
                  "ARGDI <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	17389	17608	
==>b get_super_mmds {
    my ($self, $meth, $right, $func) = @_;
    ## use Data::Dumper;
    ## printf "******* $meth_name **********\n";
    ## print Dumper($self);
    ## exit 0;
    my (@mmds, $found);
    for my $super <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172112	172323	
==>,
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 218 \"src/ops/cmp.ops\"\n  if (0 != string_equal(interpreter,\n      {{\@1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722138	722264	
==>],
                  "BODY" => "#line 149 \"src/ops/python.ops\"\n  STRING * const s = {{\@2}};\n  PMC * const io = {{\@1}}; /* <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723167	723293	
==>],
                  "BODY" => "#line 149 \"src/ops/python.ops\"\n  STRING * const s = {{\@2}};\n  PMC * const io = {{\@1}}; /* <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	29603	29758	
==>o>

    my $todo_reason = $Test->todo;
    my $todo_reason = $Test->todo($pack);

todo() looks for a $TODO variable in your tests.  If set, all tests
will b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292368	292619	
==>40,
                  "ARGS" => [
                              "i",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 940 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} == <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	1720	1888	
==>mines the names of the .c and .h files from the
basename of the .pmc file (e.g. F<perlint.pmc> -> F<perlint.c> and F<perlint.h>).

Next, the file is searched for C</pmcl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107890	108084	
==>",
                              "i"
                            ],
                  "BODY" => "#line 167 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} | {{\@3}};\n  {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	2612	2760	
==>em C<dynext_load_code($library_name, %classes)>

C<$library_name> is the name of the dynamic library to be created.

C<%classes> is a map from the PM <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	31637	31803	
==>ed substring (I<including the surrounding
delimiters>), the remainder of the text, and the skipped prefix (if
any). If a suitable delimited substring is not found, the <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	21695	21846	
==>{does} }));
    my $n = exists $self->{has_method}{class_init} ?
                   $self->{has_method}{class_init} : -1;
    my $class_init_code = $n > <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19363	19537	
==>ruct::Expression::Value::Identifier->new($block, $token);

      $self->require_assign;

      my $func_name = Jako::Construct::Expression::Value::Identifier->new($block, $sel <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	1229	1443	
==>ister_num
  (register_num,pir_code) = inlined(0,argv)
  .get_from_HLL(pir_compiler, '_tcl', 'pir_compiler')
  invokable = pir_compiler(register_num,pir_code)
  .return invokable()
.end
END_PIR

}

sub pir_cmds_in_di <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12011	12108	
==>)\)      # capture argument list
     /"interpreter->vtables[$supertype].$method(" . full_argument <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	3012	3109	
==>nd passes the test if a string comparison of output
with the expected result is true.

=item C<pir <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	40351	40516	
==>(OP RIGHTARG)(s)
		  while ($repcount < ' . $self->{max} . ')
		  {
			$backtrack = 0;
			' . $op->code(@_[1..2]) . '
			' . ($op->isterminal() ? 'pop @item;' : '$bac <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16678	16782	
==>y $return = $self->_save_1 ('P');

  $self->_add_inst ('', 'new',[$return,'.Undef']);

  my @reverse = re <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39759	39900	
==>t} ) {
        my @opcodes = ();
        my $main = new defn( '_main', 'fct' );
        push @opcodes, new SubDir( $parser,
            'p <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2389	2515	
==>/pmc' . $PATHQUOTE . " " .
        $source;
};

sub partial_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $lib <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	2184	2310	
==>/pmc' . $PATHQUOTE . " " .
        $source;
};

sub partial_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    my $lib <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	44138	44319	
==>($_); } _get_args($node, 0);
      $return = $self->_call_function_obj(@args);
      $self->_restore(@args);
    }
  } else {
    my $value = $node->{value};
    if ($value =~ /^[a-z <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3346	3445	
==>ttributes => { kind => $kind } });
    $handler->start_element({ Name => 'block', Attributes => { ki <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	4675	4854	
==>R]}\t# Goto $syms[CURR]\n";
		}
		$elsetag++;
		goto PARSE;
	}
	if ($syms[CURR] eq "elseif") {
		my $c;
		$c=pop @ifstack;
		push(@{$elsestack->{$elsetag}}, $elseline);
		($result, <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	11424	11579	
==>s ($$textref =~ m/\G\s*(?:::|')?(?:[_a-z]\w*(?:::|'))*[_a-z]\w*/gci
	    	or _match_codeblock($textref, "", '\{', '\}', '\{', '\}', 0)
		or $deref eq '$#' o <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21375	21572	
==>ul',
        '/'  => 'div',
        '^'  => 'pow',
        '%'  => 'mod',
        '..' => 'concat',
    );
    my @opcodes = ();
    my $result = new_tmp( $parser, 'pmc', $type{$op} );
    p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113352	113646	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	114090	114384	
==>,
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	3358	3470	
==>parser->{lastlinenum} - $_[1];
	return undef;
}

sub resync       # ($linecounter)
{
        my $self = tied($_[0 <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63228	63335	
==>$rule->addcall($name);

						_check_insatiable($name,$1,$grammar,$line) if $::RD_CHECK;
					}
				}
				el <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63949	64056	
==>$rule->addcall($name);

						_check_insatiable($name,$1,$grammar,$line) if $::RD_CHECK;
					}
				}
				el <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	12838	12972	
==>m)";
    };
    /B/ && do {
        push @{$temps_ref}, "STRING *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$te <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	8490	8586	
==>_l++];
	my ($opcode, $arg, $rest, $src) = ($l->[2], $l->[3], $l->[4], $l->[5]);
	next unless $opc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054424	1054523	
==>n\tinternal_exception(1, \"Tried to get null global.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055551	1055650	
==>n\tinternal_exception(1, \"Tried to get null global.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parro <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	25912	26120	
==>> 3;
      # Content is always ignored.
      

    } elsif($para_type eq '=over') { #////////////////////////////////////////
      next unless @$paras;
      my $list_type;

      if($paras->[0][0] eq '=item <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	11898	12012	
==>ps::Tree::group::render {
    my $op = shift;
    my $R = $op->{args}->[0];
    my $str = $R->render();
    # Strip <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943814	943901	
==>=> "#line 516 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_charset_number_of_str(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944603	944690	
==>=> "#line 516 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_charset_number_of_str(interpret <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	47917	48135	
==>ges the string to an equivalent piece of Perl:

        <<'EOMSG'
        This is the message.
        EOMSG
        || die;
	exit;

in which the here document I<is> contiguous. It still leaves the
matching position aft <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2168	2280	
==>------------------------------------------------------------------------
sub e2charnum {
  my $in = $_[0];
  retu <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	812	894	
==>------------------------------------------------------------------------
sub e2char <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	8606	8779	
==>->c;           # object reference
    $obj->c->method(...);               # call method of object
    $obj->c(new My_Other_Class);        # assign a new object

=head1 DESCRI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	310507	310687	
==>er,command);\n        }\n        /* FIXME this is not ok */\n        exit(0);\n    }\n    interpreter->pdb->cur_opcode = (opcode_t *)cur_opcode + 1;\n    PDB_set_break(interpreter,N <==
2	/Users/nnunley/parrot/config/auto/signal.pm	563	682	
==>$conf->data->set(
        has___sighandler_t => undef,
        has_sigatomic_t    => undef,
        has_sigaction      = <==
2	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	230	487	
==>$self, $class;
        foreach ( keys %attr ) {
            unless ( defined $self->{$_} ) {
                delete $self->{$_};
            }
        }
        $self->{Lineno} = $parser->YYData->{lineno};
        return $self;
    }

    sub confi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104024	104284	
==>ops/bit.ops\"\n  {{\@1}} = {{\@2}}->vtable->bitwise_nots(interpreter, {{\@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	902	1016	
==>amount])
# O (assign, name, val)
# O (fail)
# O (nop)

sub compile {
    my ($self, $expr, $ctx) = @_;
    my ($val <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147156	147337	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 98 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1} <==
2	/Users/nnunley/parrot/tools/dev/manicheck.pl	632	879	
==>n any extra files are listed.

Files that match the patterns in MANIFEST.SKIP are not reported as extra
files. 

=cut

################################################################################

use strict;
use FindBin;
use lib "$FindBin::Bin <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	4801	4954	
==>function) = /\s*([^%]+)% of (\d+) branches taken at least once in function (.*)/;
            if ($total_branches) {
                $function_branch_cove <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14957	15085	
==>s $return =~ /^P/;
  $self->_add_inst ('', 'set', [$return,$return.'[0]']);

  return $return;
}

sub _op_cdr {
  my ($self, $nod <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	212	513	
==>ft;
    return "$var++";
}

sub output_assign {
    my ($var, $val) = @_;
    return "$var := $val";
}

sub output_atend {
    return "atend";
}

sub output_advance {
    my $distance = shift || 1;
    return "advance $distance";
}

#  sub output_fork {
#      my ($label) = @_;
#      return "fork $la <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	6501	6672	
==>ndpos-$ldelpos-2,		# CONTENTS
		$endpos-1,  1,				# CLOSING BRACKET
		$endpos,    length($$textref)-$endpos,	# REMAINDER
	       );
}

sub revbracket($)
{
	my $brack = reve <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	12114	12314	
==>,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(1);
  for(_get_args($node)) {
    my $temp = $self->_generate($_);
    $self->_add_inst(''         ,'eq' ,[$tem <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	5817	6018	
==>@{$fields} ) {
        my ( $val, $key );
        if ( scalar( @{$field} ) == 1 ) {
            $val = $field->[0];
            if ( defined $num_key ) {
                my $incr = new IncrOp( $par <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3033	3160	
==>d::Simple ();

And this:

  use Pod::Simple::Debug (\$debug_level,0);  # or some integer

is basically equivalent to this:

  my <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	8219	8332	
==>optional.

=over 4

=item B<ok>

  $Test->ok($test, $name);

Your basic test.  Pass if $test is true, fail if $tes <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	16499	16608	
==>($r->[2] eq 'I' && $l->[2] eq 'I') {
	$n = temp($t = 'N');
	print <<"EOC";
	$n = pow $l->[1], $r->[1] $cmt
EOC <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	1711	1818	
==>LD_TOOLS_DIR)/ops2c.pl lib/Parrot/OpsFile.pm lib/Parrot/Op.pm lib/Parrot/OpTrans/CGP.pm lib/Parrot/OpLib/cor <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	1438	1528	
==>LD_TOOLS_DIR)/ops2c.pl lib/Parrot/OpsFile.pm lib/Parrot/Op.pm lib/Parrot/OpTrans/CGoto.pm l <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	51069	51242	
==>ing a C<E<lt>defer:...E<gt>> directive. For example:

        sentence: subject verb object
                        <defer: {$::theVerb = $item{verb}} >

Parse::RecDescent us <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	2181	2274	
==>t to be public, prefix it with <Parrot_>,
or something else specific enough, preferably specif <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	6072	6174	
==>) {  # No arg version
		feedme();
		print CODE<<PROMPTRND;
	print "Random-number seed (-32768 to 32767) <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	9317	9418	
==>tic void
set_nci_P(Interp *interpreter, struct call_state *st, PMC* val)
{
    Parrot_init_ret_nci(int <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	4692	4877	
==>";
    }

    sub visitNoOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};

        #    print {$FH} "  noop\n";
    }

    sub visitToBool <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600258	600388	
==>LASS, \n         \"Class '%Ss' doesn't exist\", name);\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601334	601464	
==>LASS, \n         \"Class '%Ss' doesn't exist\", name);\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	7034	7146	
==>::Struct;
            # declare struct, based on array:
    struct( CLASS_NAME => [ ELEMENT_NAME => ELEMENT_TYPE, <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4750	4854	
==>eturns the C code prior to the run core function.

=cut

sub run_core_func_start
{
    return <<END_C;
#i <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3038	3142	
==>eturns the C code prior to the run core function.

=cut

sub run_core_func_start
{
    return <<END_C;
#i <==
2	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	1019	1125	
==>de_to_file( $code, $code_f );

  # STDERR is written into same output file
  my $diag = '';
  my $parrot_ex <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	461264	461807	
==>od",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 529,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 282 \"src/ops/math.ops\"\n  INTVAL den = {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	4	94	
==>pyright (C) 2004-2006, The Perl Foundation.
# $Id: /parrot/lib/Parrot/IO/Path.pm 19602 2006 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1761	1867	
==>lf );

		exists($$self{VERSION})
	and	$$self{VERSION} < $COMPATIBLE
	and	croak "Yapp driver version $VE <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1700	1802	
==>lf );

		exists($$self{VERSION})
	and	$$self{VERSION} < $COMPATIBLE
	and	croak "Yapp driver version $VE <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2706	2837	
==>score appended.

=item C<run_core_func_decl($base)>

Optionally implemented in subclasses to return the C code for the run
core func <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	9152	9282	
==>rload(\$todo);

    my $out;
    my $result = &share({});

    unless( $test ) {
        $out .= "not ";
        @$result{ 'ok', 'a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088857	1088948	
==>e 186 \"src/ops/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089805	1089896	
==>e 186 \"src/ops/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2} <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	4901	5026	
==>__result)");
    }
    else {
      $compiler->emit("  __func(" . join(", ", map({ $_->[1]} $self->args)) . ")");
      $compi <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	49429	49559	
==>ndicates that the
value of the second argument is to be used for the outermost delimiters.

Once the prefix an dthe outermost openi <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	22895	23016	
==>rsed with B::Deparse
    return if $^C;

    my $msg = join '', @msgs;

    local($\, $", $,) = (undef, ' ', '');
    my $ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	14918	15027	
==>t way.  So here we have ways for you to write your own diagnostic
messages which are safer than just C<print S <==
2	/Users/nnunley/parrot/config/inter/types.pm	1049	1250	
==>opcode type?",                 $opcode);
        print "\n";
    }

    $conf->data->set(
        iv       => $intval,
        nv       => $floatval,
        opcode_t => $opcode
    );

    return $self <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	689528	689731	
==>" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 590 \"src/ops/pmc.ops\"\n   {{\@1}} = {{\@2}}->vtable->getprop <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	626040	626242	
==>ult:\n                internal_exception(1, \"unhandled sig_bits\");\n        }\n    }\n    /* set_args (); set_p_pc; get_results (1), x; invokecc_p */\n    pc = CUR_OPCODE + 2 + n_args + 3 + 3 + 2;    \ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37287	37453	
==>pir .= "### end translation\n";

		# Emit code to fix up the stack type array.
		$pir .= <<PIR;
pop_count = elements c_params
goto INS_TRANS_CP_LOOP_CHK_$name
INS_TRAN <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7261	7381	
==>}
PIR
	}

	return $pir;
}

sub post_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If the regist <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5083	5203	
==>}
PIR
	}

	return $pir;
}

sub post_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If the regist <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826744	827019	
==>l_num(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827814	828089	
==>l_num(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	40308	40477	
==>nts are:

=over 4

=item [0]

the extracted tagged substring (including the outermost tags),

=item [1]

the remainder of the input text,

=item [2]

the prefix substring <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	403433	403674	
==>"p",
                              "ic",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 527 \"src/ops/io.ops\"\n  {{\@1}} = PIO_socket(interpreter, {{\@ <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	4842	4959	
==>ex'
	  }		
	}

If the C<Digest::MD5> module is available it is used and if not you take
C<Digest::Perl::MD5>.

You can <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	9110	9227	
==>ION',
    max_token => 400,
    accept_verbatim => 1,
    max_content_length => 3_000,
   @_,
  );
}
sub get_descripti <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173535	173736	
==>1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "ne_str",
                  "FLAGS" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18455	18551	
==>e_return {
	if ($type[NEXT] ne "BARE") {
		push @{$code{$seg}->{code}}, <<RETURN1;
	JUMPLABEL= "" <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	14021	14157	
==>$S_back, @S_ops) = $self->rewrite($S, $back);

    return $S_back, (
                     aop('pushmark'),
                     aop('push <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44040	44292	
==>' => 35,
			'primary' => 28
		}
	},
	{#State 196
		DEFAULT => -22,
		GOTOS => {
			'@6-7' => 206
		}
	},
	{#State 197
		ACTIONS => {
			'END' => 207
		}
	},
	{#State 198
		DEFAULT => -102
	},
	{#State 199
		DEFAULT => -99
	},
	{#Sta <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	1524	1739	
==>eq 'monkey' ) {
            @test_prog = (
                "monkey -o languages/${pir_fn} languages/${lang_fn}",
                "$self->{parrot} languages/${pir_fn}",
            );
        }
        elsif ( $ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	27763	27952	
==>n; $i++) {
	    push @rev, pop @stack;
	}
	push @stack, @rev;

	return;
    }
    my $ar = temp('P');
    print <<EOC;
	$ar = new $type $cmt
	$ar = $n
EOC
    for (my $i = $n-1; $i >= 0; $i- <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2788	2904	
==>=shift;

	${$$self{CHECK}}='ACCEPT';
    undef;
}

sub YYError {
	my($self)=shift;

	${$$self{CHECK}}='ERROR <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2659	2766	
==>=shift;

	${$$self{CHECK}}='ACCEPT';
    undef;
}

sub YYError {
	my($self)=shift;

	${$$self{CHECK}}='ERROR <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	2357	2470	
==>_build_tree($tokens,$count);
    #_dataflow($tree);
    #print Data::Dumper->Dump ([$count, $tree]);
    push @tre <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	2903	3025	
==>turned.

=cut

sub write_html
{
    my $self = shift;
    my $source = shift || die "No source\n";
    my $target = shift | <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	2351	2473	
==>turned.

=cut

sub write_html
{
    my $self = shift;
    my $source = shift || die "No source\n";
    my $target = shift | <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	23513	23638	
==>_info{$name} && $func_info{$name}{'ar'} ne 'None') {
	my $fix_args = $func_info{$name}{'args'};
	my @fargs = split /,/, $fix_a <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	4215	4407	
==>ine',
             'i_fp' => undef,
             'i_fp_class' => undef,
             'i_gdbm' => undef,
             'i_grp' => 'define',
             'i_ieeefp' => undef,
             'i_intty <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	10324	10500	
==>ode> = shift;
#     my (<rx_input>, <rx_pos>, <rx_stack>);
#     my \%rx_match;
#     if (<rx_mode>) {
#         (<rx_input>, <rx_pos>, <rx_stack>) = \@_;
#         \$rx_match{' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	839093	839487	
==>e",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 951,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 252 \"src/ops/stack.ops\"\n  (void)stack_pop(interpreter, &CONTEXT(interpreter->ctx)-> <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	21305	21424	
==>k for your test to change where STDOUT and STDERR point to,
Test::Builder's default output settings will not be affected <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	372749	373079	
==>AGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 436,
                  "ARGS" => [
                              "s",
                              " <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1394	1511	
==>ompile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $dest_ident = $self->dest;

  my $block = $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1274	1391	
==>ompile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $dest_ident = $self->dest;

  my $block = $ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	20096	20249	
==>) {
            my ($func, $left, $right);
            $func = $method->{mmd};
            # dynamic PMCs need the runtime type
            # which is pas <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444107	444618	
==>=> [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 508,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 114 \"src/ops/ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34308	34462	
==>_ret$body;
    UNLOCK_PMC(interpreter, pmc);
    $ret
}

EOC
}

=back

=head2 Parrot::Pmc2c::default Instance Methods

=over 4

=cut

package Parrot::Pmc2c <==
2	/Users/nnunley/parrot/config/init/headers.pm	331	420	
==>e base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step;
use ExtUtils::Mani <==
2	/Users/nnunley/parrot/config/init/manifest.pm	356	445	
==>e base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step;
use ExtUtils::Mani <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6035	6163	
==>push @{ $group_files{$group} }, $pmc;
        $group_libs{$group} ||= {};
        foreach my $lib ( keys %libs ) {
            $g <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6246	6374	
==>push @{ $group_files{$group} }, $pmc;
        $group_libs{$group} ||= {};
        foreach my $lib ( keys %libs ) {
            $g <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10670	10776	
==>);

}#_Parse
#DO NOT remove comment

1;

}
#End of include----------------------------------------- <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10193	10291	
==>);

}#_Parse
#DO NOT remove comment

1;

}
#End of include----------------------------------------- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1709	1806	
==>R "%s: About to copy symbol table to parent block.\n", __PACKAGE__;

  foreach my $symbol_name ($s <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	663	773	
==>Loading', '', 'src/dynpmc'),
		$self->new_group('Runtime', '', 'runtime/parrot/include'),
	);
}

=back

=cut

1 <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	1964	2263	
==>est_prog, 
                                CD     => $self->{relpath}, 
                                STDOUT => $out_fn,
                                STDERR => $out_fn 
                            );
  
           my $meth = $language_test_map{$func};
           # That's the reason for:   no st <==
2	/Users/nnunley/parrot/config/init/hints/os2.pm	204	313	
==>@_;

    # This hints file is very specific to a particular os/2 configuration.
    # A more general one would <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	54674	54841	
==>70
		 'exp', 3,
sub
#line 389 "Lua\lua51.yp"
{
            BuildRelop( $_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 71
		 'exp', 3,
sub
#line 393 "Lua <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26037	26167	
==>es, @{ $cond->[1] };
        push @opcodes, new BranchUnlessOp( $parser,
            'arg1'   => $cond->[0],
            'result <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26911	27029	
==>es, @{ $cond->[1] };
    push @opcodes, new BranchUnlessOp( $parser,
        'arg1'   => $cond->[0],
        'result <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79057	79168	
==>e);\n  string_cstring_free(name);\n  if (p == NULL) {\n      const char * const err = Parrot_dlerror();\n      P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80578	80689	
==>e);\n  string_cstring_free(name);\n  if (p == NULL) {\n      const char * const err = Parrot_dlerror();\n      P <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1117	1226	
==>nt stack types array size.
${ITEMP0} = elements ${STYPES}
PIR

	# Do code for each pop. Need to set up mv's an <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2827	2936	
==>nt stack types array size.
${ITEMP0} = elements ${STYPES}
PIR

	# Do code for each pop. Need to set up mv's an <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2423	2528	
==>type"]
	P0= P1["$var"]	# Pull the original
	P2= P10[I25]
	P3= P2["$stype"]
	P3["$var"]= P0	# Hack in the a <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2650	2755	
==>type"]
	P0= P1["$var"]	# Pull the original
	P2= P10[I25]
	P3= P2["$stype"]
	P3["$var"]= P0	# Hack in the a <==
2	/Users/nnunley/parrot/tools/dev/pbc_header.pl	1002	1140	
==>rn substr $fingerprint, 0, $len;
}

sub get_version {
    my $version_file = 'VERSION';
    open IN, $version_file or die "Can't read $vers <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	12883	13115	
==>,
		DEFAULT => -21,
		GOTOS => {
			'@1-1' => 21
		}
	},
	{#State 11
		ACTIONS => {
			"?" => 23,
			'CHAR' => 4,
			"<" => 22,
			"+" => 24,
			'CODE' => 6,
			"(" => 10,
			"|" => 26,
			"*" => 27,
			"\$" => 29,
			"[" => 14,
			" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	129	288	
==>se
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	769	865	
==>s file should contain a transcript of the svn:ignore properties
# of the directories in the Parro <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3624	3720	
==>s file should contain a transcript of the svn:ignore properties
# of the directories in the Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42291	42384	
==>BODY" => "#line 727 \"src/ops/core.ops\"\n  do_exception(interpreter, EXCEPT_exit, {{\@1}});\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42981	43074	
==>BODY" => "#line 727 \"src/ops/core.ops\"\n  do_exception(interpreter, EXCEPT_exit, {{\@1}});\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	524762	525014	
==>/ops/math.ops\"\n  {{\@1}} = sqrt((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	618	741	
==>se strict;
use warnings;

require Parrot::Test;

=head2 Functions

=over 4

=item C<p6rule_is($target, $pattern, $descriptio <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39015	39146	
==>ULT => -8
	},
	{#State 158
		ACTIONS => {
			"," => 151
		},
		DEFAULT => -36
	},
	{#State 159
		DEFAULT => -17,
		GOTOS = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1208	1323	
==>", b, "\n"
#
# to effect string interpolation.
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  confes <==
2	/Users/nnunley/parrot/lib/File/Which.pm	49	158	
==>er;

@File::Which::ISA       = qw(Exporter);

@File::Which::EXPORT    = qw(which);
@File::Which::EXPORT_OK = q <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	28621	28739	
==>oat" if $t eq "FLO";
			$_=changename($_);
			$_=~s/\$/_string/g; 
			push @{$code{$seg}->{code}}, qq{\t.param $t $_\n} <==
2	/Users/nnunley/parrot/config/gen/platform.pm	2176	2287	
==>< $header_file" or die "Can't open $header_file: $!";
            print PLATFORM_H <<"END_HERE";
/*
** $header_f <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2913	3072	
==>exists_with_name($name);
    }
    
    print 'WARNING: ' . __FILE__ . ':' . __LINE__ . ' File not found:' . $name ."\n";

    return;
}

=item C<c_header_file_ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33231	33327	
==>$desc = "<matchrule:$desc>" if $_[0]->{"matchrule"};
	return $desc;
}

sub callsyntax($$)
{
	if ( <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35753	35849	
==>$desc = "<matchrule:$desc>" if $_[0]->{"matchrule"};
	return $desc;
}

sub callsyntax($$)
{
	if ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106730	1107012	
==>"getclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1225,
                  "ARG <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	16172	16274	
==>ub _match_quotelike($$$$)	# ($textref, $prepat, $allow_raw_match)
{
	my ($textref, $pre, $rawmatch, $qm <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	532646	532968	
==>],
                  "BODY" => "#line 877 \"src/ops/math.ops\"\n  {{\@1}} = exp((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11901	12001	
==>ead1 SYNOPSIS

 TODO

  perl -MPod::Simple::HTML -e \
   "exit Pod::Simple::HTML->filter(shift)->erro <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	5316	5414	
==>d
ONOK_${ons}:
ON
	$i=1;
	for my $jumps (@onlab) {
		push @{$code{$seg}->{code}}, "\tne $result, $i <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22474	22607	
==>ast;

    } elsif ($pattern =~ m{<head(\d)>(.+)</head\d>$}
      and !( $1 eq '1' and $2 eq 'NAME' )
    ) {
      # Well, it fits a f <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	9550	9919	
==>ol} :optional\n";
        }
    }

    sub visitReturnDir {
        my $self  = shift;
        my ($dir) = @_;
        my $FH    = $self->{fh};
        print {$FH} "  .return (";
        my $first = 1;
        foreach ( @{ $dir->{result} } ) {
            print {$FH} ", " unless ($first);
            print {$FH} "$_->{symbol}";
            if ( exists $_- <==
2	/Users/nnunley/parrot/config/inter/progs.pm	2381	2514	
==>ms.
    $ccflags =~ s/-D((PERL|HAVE)_\w+\s*|USE_PERLIO)//g;
    $ccflags =~ s/-fno-strict-aliasing//g;
    $ccflags =~ s/-fnative-stru <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2639	2891	
==>ts $props{op}) {
    my $op = $props{op};

#    $self->DEBUG(0, "Calling %s%s...", $name, ($op ? ' (op $op)' : ' as op'));

    if (defined $op) {
      $name = $op->value;
      $name =~ s/(^"|"$)//g;
    }

    $name =~ s/^.*:://; # Strip namespaces o <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3102	3317	
==>ts $props{op}) {
    my $op = $props{op};

#    $self->DEBUG(0, "Calling %s%s...", $name, ($op ? ' (op $op)' : ' as op'));

    $name = $op->value if defined $op;
    $name =~ s/(^")|("$)//g; # Delete leading and tra <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	16180	16344	
==>c:/sgml/docbook/';
my %escapes;
foreach my $file (qw(
  xhtml-symbol.ent
  xhtml-lat1.ent
  xhtml-special.ent
)) {
  open(IN, "<$dir$file") or die "can't read-open $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	915	1281	
==>ut .= $_;
         }
         chomp($input);
         die "EOF during INPUT section" if ! defined($output);

         # Gather output
         while (<$spec_fh>) {
             last if /^INPUT:/;
             $output .= $_;
         }

         push @spec, { input => $input, output => $output };
    }
    
    Test::More::plan( tests => scalar(@spec) );

    genera <==
2	/Users/nnunley/parrot/languages/regex/test.pl	2801	2977	
==>ut .= $_;
    }
    chomp($input);
    die "EOF during INPUT section" if ! defined($output);

    # Gather output
    while (<SPEC>) {
        last if /^INPUT:/;
        $output <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	1804	1942	
==>examples/sdl/anim_image_dblbuf.pir              [devel]
    examples/sdl/blue_font.pir                      [devel]
    examples/sdl/blue_r <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	1363	1540	
==>e (<IN>) {
        next if (/^#/);
        if (/(\w+\.\w+)\s+(\d+)/) {
            $order{$1} = $2;
        }
    }
    close IN;

    return \%order;
}

sub sort_pmcs
{
    my @ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	13390	13609	
==>eces' => 30
		}
	},
	{#State 15
		DEFAULT => -38
	},
	{#State 16
		DEFAULT => -28,
		GOTOS => {
			'rulename' => 33
		}
	},
	{#State 17
		ACTIONS => {
			'CHAR' => 34,
			">" => 35
		}
	},
	{#State 18
		ACTIONS => {
			' <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	916	1020	
==>ess "Op is not scalar!" if ref $op;
  confess "Right is not Value!" unless UNIVERSAL::isa($right, 'Jako:: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	928	1032	
==>ess "Op is not scalar!" if ref $op;
  confess "Right is not Value!" unless UNIVERSAL::isa($right, 'Jako:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042894	1042996	
==>125 \"src/ops/var.ops\"\n    VTABLE_set_pmc_keyed_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043791	1043893	
==>125 \"src/ops/var.ops\"\n    VTABLE_set_pmc_keyed_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	19294	19430	
==>rr = concat str_ic
	err = concat ")"
    ex["_message"] = err 
    throw ex

PIRCODE

    # Restore original instruction codes, but remov <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	967	1123	
==>ath($path)>

Returns the directory with the specified path. 

The directory is an instance of the class returned by
C<directory_class>.


=cut

sub directory <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	13301	13413	
==>ntial stuff emitted.
    ehs = bc.get_eh()
    if null ehs goto NO_EH_HEADER
    i = elements ehs
    gen_pir = c <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	1312	1426	
==>x => $lexer,
			    yyerror => sub {
				my $parser = shift;
				die "Error: expected ".join(" ", $parser->YYExpect <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490319	490587	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inc",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490940	491208	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "inc",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4857	4954	
==>my ($self, $incexc, $failLabel) = @_;

    my $passLabel = $self->{state}->genlabel("pass_charclas <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4521	4618	
==>my ($self, $incexc, $failLabel) = @_;

    my $passLabel = $self->{state}->genlabel("pass_charclas <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1608	1709	
==>it pop code.
${INS} = concat ${STACK$register_num}
${INS} = concat " = pop s\n"
PIR
		$pir =~ s/\$regi <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3318	3419	
==>it pop code.
${INS} = concat ${STACK$register_num}
${INS} = concat " = pop s\n"
PIR
		$pir =~ s/\$regi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2880	2975	
==>ndler) foreach $self->content;
  $handler->end_element({ Name => 'block' });

  $handler->end_el <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2762	2857	
==>ndler) foreach $self->content;
  $handler->end_element({ Name => 'block' });

  $handler->end_el <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Ops.pm	41	270	
==>.
# $Id: /parrot/lib/Parrot/Docs/Section/Ops.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Section::Ops - Parrot ops documentation section

=head1 SYNOPSIS

	use Parrot::Docs::Section::Ops;

=head1 D <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	16609	16770	
==>case}_NO_OP
	push P9, "or"
	push P9, "OP"
CASE_${jump}_${incase}_NO_OP:
	pop P1, P14
	pop S0, P14
	push P9, S0
	push P9, "OP"
	P0= P1
	bsr RUNTIME_PUSH
	P0= P5
	b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924394	924515	
==>ops\"\n  {{\@1}} = string_make_empty(interpreter, enum_stringrep_one, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925185	925306	
==>ops\"\n  {{\@1}} = string_make_empty(interpreter, enum_stringrep_one, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/config/init/hints/msys.pm	258	435	
==>'$(PERL) /bin/perlld',
        ld_load_flags => '-shared ',
        libs          =>
            '-lmsvcrt -lmoldname -lkernel32 -luser32 -lgdi32 -lwinspool -lcomdlg32 -ladvapi32 <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	5774	5924	
==>e Parrot::OpLib::$package;

use vars qw(\$VERSION \$ops \$preamble);

\$VERSION = "$version";

END_C

print MODULE $preamble;
print MODULE Data::Dumper <==
2	/Users/nnunley/parrot/lib/Test/More.pm	23569	23715	
==>in use.
        _carp "todo_skip() needs to know \$how_many tests are in the block"
          unless $Test->has_plan eq 'no_plan';
        $how_man <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	805	901	
==>bdir>

The library directory. Defaults to '/usr/lib'.

=item C<includedir>

The header directory. <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	1034	1130	
==>bdir>

The library directory. Defaults to '/usr/lib'.

=item C<includedir>

The header directory. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86988	87449	
==>"i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 108,
                  "ARGS" => [
                              "p",
                              "p",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 1215 \"src/ops/core.ops\"\n  {{\@1}} = P <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	4800	4927	
==>catdir($options{docdir}, $dest);
    } elsif ($meta{pkgconfig}) {
        # For the time being this is hardcoded as being instal <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800163	800615	
==>:base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 903,
                  "ARGS" => [
                              "p",
                              "k",
                              "s"
                            ],
                  "BODY" <==
2	/Users/nnunley/parrot/lib/Test/More.pm	6500	6649	
==>( !grep !defined $_, @items,       'items populated' );

(Mnemonic:  "This is ok.")

$test_name is a very short description of the test that will be p <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	797	928	
==>various file creation methods. This default
implementation returns C<Parrot::IO::File>.

=cut

sub file_class
{
    return 'Parrot:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50097	50190	
==>"#line 800 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50890	50983	
==>"#line 800 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_P <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10287	10392	
==>ue};
    $lambda = _get_arg($node,2);
  }

  if (exists $self->{scope}->{$symbol}) {
    die "define: $sym <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28764	28888	
==>RecDescent::Literal;

sub sethashname { $_[0]->{hashname} = '__STRING' . ++$_[1]->{strcount} . '__'; }

sub issubrule { undef <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104038	1104124	
==>\n\tif (type <= 0)\n\t\treal_exception(interpreter, NULL, NO_CLASS,\n\t\t\t\t\"Class '% <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105253	1105339	
==>\n\tif (type <= 0)\n\t\treal_exception(interpreter, NULL, NO_CLASS,\n\t\t\t\t\"Class '% <==
2	/Users/nnunley/parrot/lib/Test/More.pm	9555	9653	
==>e end (C<'/that/i'>).

Its advantages over ok() are similar to that of is() and isnt().  Better
dia <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	134	274	
==>d1 NAME

config/gen/core_pmcs.pm - Core PMC List

=head1 DESCRIPTION

Generates the core PMC list F<include/parrot/core_pmcs.h>.

=cut

packa <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1375	1477	
==>tack depth and a string for label gen and some
	# storage for stack depths and stack type states that w <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	462	564	
==>tack depth and a string for label gen and some
	# storage for stack depths and stack type states that w <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	268	365	
==>:Base.\n";
}

# Pre and post translation hooks.
sub pre_translation {
	die "pre_translation not im <==
2	/Users/nnunley/parrot/config/gen/cpu.pm	342	589	
==>tion @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step qw(copy_if_diff);
use Carp;

$description = 'Running CPU specific stuff';

@args = qw(miniparrot verbose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($c <==
2	/Users/nnunley/parrot/config/auto/snprintf.pm	328	431	
==>tion @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step qw(cc_gen cc_buil <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786122	786209	
==>7 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed_int(interpreter, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787033	787120	
==>7 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed_int(interpreter, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3287	3466	
==>put_le {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_test('le', $val1, $val2, $dest);
}

sub output_gt {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output <==
2	/Users/nnunley/parrot/config/inter/lex.pm	1616	1741	
==>et_result('no');
        return $self;
    }

    if ($conf->options->get('ask')) {
        $prog = prompt($prompt, $prog ? $p <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	1630	1755	
==>et_result('no');
        return $self;
    }

    if ($conf->options->get('ask')) {
        $prog = prompt($prompt, $prog ? $p <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	9929	10009	
==>="$outfile_base.lines.html#$function">@{[$function_line_coverage{$source_file}{$f <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6446	6556	
==>ANCH_switch_${CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0[i]
    ${ITEMP0} = ${NEXTPC} + j
    prop_type_state[$ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4384	4494	
==>ANCH_switch_${CURIC}_LOOP_EXIT
    dec i
    j = P_arg_0[i]
    ${ITEMP0} = ${NEXTPC} + j
    prop_type_state[$ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6685	6779	
==>hold value we pop off the stack.
${PTEMP1} = ${STYPES}[${ITEMP2}]
${STEMP0} = "$"
${STEMP1} = $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539151	539541	
==>h",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 624,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 995 \"src <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	60912	61188	
==>er prefix: "%s">

C<extract_quotelike> didn't find one of the quotelike operators C<q>,
C<qq>, C<qw>, C<qx>, C<s>, C<tr> or C<y> at the start of the substring
it was extracting.

=item  C<Unmatched closing bracket: "%c">

C<extract_bracketed>, C<extract_quotelike> or C<extract <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	36853	37042	
==>$defn = new defn( $name, 'local', 'pmc', undef, $idf );
        push @opcodes1, new ParamDir( $parser,
            'prolog' => 1,
            'result' => $defn,
        );
        my $n <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3512	3620	
==>PMC2C --library $group --c " . join(" ",@pmcfiles))
              or die "pmc2c library creation failed ($?)\ <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3616	3724	
==>PMC2C --library $group --c " . join(" ",@pmcfiles))
              or die "pmc2c library creation failed ($?)\ <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	14127	14340	
==>ift;
    $file =~ s/\.\w+$/.pmc/;

    my $fh = open_file( "<", $file );
    my $contents = do { local $/; <$fh> };
    close $fh;
    return parse_pmc($contents);
}

=head2 gen_super_meths($class, $vtable)

Genera <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2317	2458	
==>t
{
    my ($self, $offset) = @_;
    return "{ cur_opcode += $offset; goto SWITCH_AGAIN; }";
}

=item C<goto_pop()>

Transforms the C<goto PO <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	3295	3454	
==>lly executes step in the order they were registered.  The invoking
L<Parrot::Configure> object is passed as the first argument to each steps
C<runstep()> method <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	174770	175170	
==>"i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 209,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 233 \"src/ops <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12079	12202	
==>truct::Expression::Value->new($block, $self->forth);

      $self->require_semicolon;

      my $concat = Jako::Construct::S <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7841	7943	
==>string)"
i%=0
if i% then print "Should not happen (int)"
i%=54
if i% then print "This is true" else pri <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14828	14930	
==>string)"
i%=0
if i% then print "Should not happen (int)"
i%=54
if i% then print "This is true" else pri <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	43704	43828	
==>INSENSITIVE
		[a-z_]		# LEADING ALPHABETIC/'

This behaviour is identical to that of the actual compiler.

C<extract_quotelik <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	620227	620442	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "pic_get_params <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	12813	12914	
==>map { quotemeta $_ } split('',$_)).')'
	}
	pos = $posbug;

	my @match = _match_codeblock($textref, $pr <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	156	288	
==>r.
#
# $Id: /parrot/languages/jako/lib/Jako/Lexer.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065679	1065969	
==>"i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1190,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 260 \"src/ops <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	431254	431523	
==>"CODE" => 495,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 79 \"src/ops/math.ops\"\n  mmd_dispatch_v_pp(interpret <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5341	5463	
==>te a move instruction.
	if (!$need_dest) {
		$pir .= <<'PIR'
inc stack_depth 
${STEMP0} = "$"
${STEMP1} = ${LOADTYPE}["reg_ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	1555	1710	
==>seg}->{code}}, <<SHUTDOWN;
	#
	# ###################
	# Program Termination
	# ###################

SHUTDOWN
}

use vars qw( %functions );
use vars qw( %use <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	14474	14648	
==>trtoull    stdlib.h
strxfrm     string.h
system      stdlib.h
tan         math.h
tanf        math.h
tanh        math.h
tanhf       math.h
tanhl       math.h
tanl        math.h <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	53041	53131	
==>tine references and/or qr// objects and/or
literal strings and/or hash references, specifyi <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	22573	22704	
==>);
    my $p = pop @stack;
    pop @stack;	# functions
    my $s = temp('S');
    print <<EOC;
	$s = $p->[1]
	$i = ord $s
EOC
    pu <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	48164	48264	
==>w the rest of the line
on which the here document starts is not skipped.

To prevent <extract_quoteli <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	12726	12852	
==>", "RESULT",  "\$$optype$retcount"];
			} elsif (isbuiltin($sym)) {
				$extern=~s/\$/_string/g; $extern=~tr/a-z/A-Z/;
				push <==
2	/Users/nnunley/parrot/config/gen/icu.pm	4177	4312	
==>->data->set(testheaders => "#include <$header>\n");
    $conf->data->set(testheader  => "$header");
    cc_gen('config/auto/headers/test <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	44833	45054	
==>'t be an S node.
  my($treelet, $in_s) = @_;
  
  my $is_s = ('S' eq $treelet->[0]);
  $in_s ||= $is_s; # So in_s is on either by this being an S element,
                   #  or by an ancestor being an S element.

  for( <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	46418	46591	
==>Rule 8
		 'block', 3,
sub
#line 80 "Lua\lua51.yp"
{
            PopScope( $_[0] );
            [ @{ $_[1] }, @{ $_[2] } ];
        }
	],
	[#Rule 9
		 'stat', 3,
su <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3974	4095	
==>>temp_pmc();

    $compiler->emit("  $temp_pmc = new $pmc_type");
    $compiler->emit("  $temp_pmc = $dest");

    my $des <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1376	1477	
==>>temp_pmc();

    $compiler->emit("  $temp_pmc = new $pmc_type");
    $compiler->emit("  $temp_pmc = $ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6997	7097	
==>: ", instr(s1$, found$)
print "Bogus  (0): ", instr(s1$, bogus$)
print "Null   (1): ", instr(s1$, "") <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18726	18826	
==>: ", instr(s1$, found$)
print "Bogus  (0): ", instr(s1$, bogus$)
print "Null   (1): ", instr(s1$, "") <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	458459	458949	
==>AGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 526,
                  "ARGS" => [
                              "n",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 240 \"src/ops/mat <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	10740	10933	
==>from the old APL/360 manual
.sub 'dyadic:|'               # logarithm
    .param num op1
    .param num op2
    if op1 == 0 goto zero_LHS
    op1 = abs op1
    $N1 = op2 / op1
    $I1 = floor $N <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	12555	12704	
==>el_outer = $ldel_outer;
	my $posbug = pos;
	for ($ldel_inner, $ldel_outer) { tr/[]()<>{}\0-\377/[[((<<{{/ds }
	for ($rdel_inner, $rdel_outer) { tr/[]( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	720	819	
==>to just a scalar ref
  my($class, $scalar_ref) = @_;
  $$scalar_ref = '' unless defined $$scalar_ref <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	2949	3240	
==>an
    # ieee-conformance test and then call back into a hints-file trigger
    # to set platform-specific flags.
    #	A. Dougherty  7 March 2005
    # We don't know which compiler we're using till after the gccversion test.
    my $solaris_ieee_cb = sub {
        my ($key, $gccversion) = @ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70903	71138	
==>rot_load_lib(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71672	71907	
==>rot_load_lib(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	16143	16249	
==>he 'default' methods
from the F<vtable.dump>.

=cut

sub add_defaulted {
    my ($class, $vt) = @_;

    fo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094278	1094494	
==>S" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 209 \"src/ops/experimental.ops\"\n  VTABLE_morph(interpreter, {{\@1}}, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614933	615046	
==>r, {{\@2}}, {{\@3}});\n    if (offset < 0) {\n        real_exception(interpreter, next, NO_CLASS,\n            \"C <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616084	616197	
==>r, {{\@2}}, {{\@3}});\n    if (offset < 0) {\n        real_exception(interpreter, next, NO_CLASS,\n            \"C <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627316	627434	
==>uation PMC\n   * needs to be in the destination register before its init method\n   * copies the registers. */\n  {{\@1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628460	628578	
==>uation PMC\n   * needs to be in the destination register before its init method\n   * copies the registers. */\n  {{\@1 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19429	19528	
==>a 56, -78, 12.3, "Foo", lol, +#^
20 data 10,20,30,40,50

' basic I/O  1..5
open "_testfile" for outp <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	1296	1558	
==>nt};
    }
  }
}

sub _save_1 {
  my $self = shift;
  my $type = shift || 'I';
  my @temp = $self->_save(1, $type);
  $temp[0];
}

sub _restore {
  my $self = shift;

  die "Nothing to restore"
    unless defined @_;
  foreach my $reg (@_) {
    next if grep { $_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	693331	693729	
==>S" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 779,
                  "ARGS" => [
                              "ic",
                              "i", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48650	48890	
==>preter, PARROT_BOUNDS_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49440	49680	
==>preter, PARROT_BOUNDS_FLAG); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	12784	12902	
==>hing else
        my $test = defined $got || defined $dont_expect;

        $self->ok($test, $name);
        $self->_cm <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	13228	13346	
==>hing else
        my $test = defined $got || defined $dont_expect;

        $self->ok($test, $name);
        $self->_cm <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	5278	5421	
==>if exists $table{$symbol};
      $table{$symbol} = $level;
    }

    $block = $block->block; # Collect symbols from the parent block next
    $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2362	2465	
==>$_[0]->emit_par(-1) }
sub end_Para        { $_[0]->emit_par( 0) }
sub end_item_bullet { $_[0]->emit_par( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1930	2033	
==>$_[0]->emit_par(-1) }
sub end_Para        { $_[0]->emit_par( 0) }
sub end_item_bullet { $_[0]->emit_par( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895922	896151	
==>"s",
                              "ic",
                              "ic",
                              "sc"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_repla <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349168	349263	
==>);\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, \"+<\");\n  /* string_cstring_free(path); */ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350170	350265	
==>);\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, \"+<\");\n  /* string_cstring_free(path); */ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357685	358014	
==>RS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 418,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 245 \"src/ops/io.ops\"\n  PIO_eprintf(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9645	9770	
==>tr"
EOC
    }
    "$cout\n";
}


=item C<full_arguments($args)>

Prepends C<INTERP, SELF> to C<$args>.

=cut

sub full_argumen <==
2	/Users/nnunley/parrot/languages/regex/test.pl	3360	3463	
==>PIR <<"END";
# Regular expression test
# Generated by $0
# Pattern >>$pattern<<

END

    $driver->outpu <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21706	21839	
==>n
		if bump = 0 then
			print "Second"
		else 
			print "Third"
		end if
	end if
	print "First, and every"
	bump=bump-1
	goto LOOPY
LA <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1674	1795	
==>> 1);

    print $PIR <<"END";
# Regular expression test
# Generated by $0
# Pattern >>$pattern<<

END

    $driver->outpu <==
2	/Users/nnunley/parrot/lib/Test/More.pm	15782	15987	
==>f you have diagnostics for personal testing but then wish to make
them silent for release without commenting out each individual
statement.

B<NOTE> The exact formatting of the diagnostic output is still
ch <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	48844	49047	
==>_[7] );
        }
	],
	[#Rule 26
		 '@8-1', 0,
sub
#line 161 "Lua\lua51.yp"
{
            PushScopeF( $_[0] );
            PushScope( $_[0] );
        }
	],
	[#Rule 27
		 'stat', 4,
sub
#li <==
2	/Users/nnunley/parrot/config/gen/platform.pm	5617	5777	
==>-e $asm_file) {
            copy_if_diff($asm_file, "src/platform_asm.s");
        }
    }

    # interface is the same for all platforms
    copy_if_diff("confi <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5789	5920	
==>->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There should be at most a single group
        my $group = $cla <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6000	6131	
==>->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There should be at most a single group
        my $group = $cla <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	57552	57671	
==>$prod and $prod->additem($item)
				      or  _no_rule("$code",$line);
				$aftererror = !$commitonly;
			}
			elsif (do <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	31894	32032	
==>@_;

    my $group;

    my @ops;
    foreach $group (0 .. $num_groups) {
        push @ops, aop('initgroup' => [ $group ]);
    }

    pus <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1997	2176	
==>ebug             => '-debug',
            ld_share_flags       => '-dll',
            ld_load_flags        => '-dll',
            ld_out               => '-out:',
            ldfla <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3980	4159	
==>ebug             => '-debug',
            ld_share_flags       => '-dll',
            ld_load_flags        => '-dll',
            ld_out               => '-out:',
            ldfla <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	841	1022	
==>turn bless {}, ref $class || $class;
}

=back

=head3 Object Methods

=over 4

=item * C<result()>

Accepts no arguments and returns the value of C<$result> from the inheriting
class <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	447	559	
==>(), $PConfig{test_prog} );

sub run_spec {
    my ( $spec_fh ) = @_;

    my $pattern = <$spec_fh>;
    chomp($pa <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	19602	19765	
==>eth_name = "Parrot_${class}_$meth";
        }
        else {
            $defaulted = 1;
            $meth_name = "Parrot_default_$meth";
        }
        # normal <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15488	15590	
==>ted, Str $desc?) returns Bool;

Because these functions will be mutually recursive, they will easily be <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1470	1580	
==>New;
use Jako::Construct::Statement::Return;


#
# new()
#

sub new
{
  my $class = shift;

  my $root = Jako:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022620	1022890	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodelocaltim <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023469	1023739	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodelocaltim <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78952	79049	
==>eter, ({{\@3}}));\n\n  void * const p = Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? NULL : PMC_data({{\@2} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80473	80570	
==>eter, ({{\@3}}));\n\n  void * const p = Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? NULL : PMC_data({{\@2} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	12221	12394	
==>my $content = join ' ', splice @x, 2;
  $content =~ s/^\s+//s;
  $content =~ s/\s+$//s;

  DEBUG > 2 and print "Ogling encoding directive: =encoding $content\n";
  
  if($con <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6366	6483	
==>WHILE Exchange          ' Sort until no elements are exchanged.
   Exchange=FALSE
   ' Compare the array elements by p <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16019	16136	
==>WHILE Exchange          ' Sort until no elements are exchanged.
   Exchange=FALSE
   ' Compare the array elements by p <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	26017	26232	
==>/////////////////////
      next unless @$paras;
      my $list_type;

      if($paras->[0][0] eq '=item') { # most common case
        $list_type = $self->_get_initial_item_type($paras->[0]);

      } elsif($paras-> <==
2	/Users/nnunley/parrot/lib/File/Which.pm	5881	6036	
==>hough there is platform specific code
for those. Anyone who haves a second would be very kind to send me a
report of how it went.

File::Spec adds the curre <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3279	3406	
==>$conf->data->get('ld_debug') =~ /-debug/) {
            my $linkflags = $conf->data->get('linkflags');
            $linkflags =~ <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4783	4910	
==>$conf->data->get('ld_debug') =~ /-debug/) {
            my $linkflags = $conf->data->get('linkflags');
            $linkflags =~ <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	4914	5023	
==>ame="Normal Text" defStyleNum="dsNormal" />
      <itemData name="Op" defStyleNum="dsNormal" color="#000080" s <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	354	525	
==>l - Rebuild a new miniparrot distribution

=head1 SYNOPSIS

    % perl tools/dev/rebuild_miniparrot.pl [option]

=head1 DESCRIPTION

This script is used to build a new mini <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	742747	742857	
==>s/set.ops\"\n  {{\@1}} = string_from_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743513	743623	
==>s/set.ops\"\n  {{\@1}} = string_from_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13792	13890	
==>dd_inst ('', 'set', [$return,0]);
  }
  else {
    $self->_add_inst ('', 'typeof', [$return,$item]) <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	12551	12651	
==>en_pir';
    $mv->{'PC'} = 'pc';
	$mv->{'NEXTPC'} = 'next_pc';
	$mv->{'PTYPES'} = 'ptypes';
	$mv->{'L <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3366	3494	
==>t('linkflags');
            $linkflags =~ s/-opt:\S+//;
            $conf->data->set(linkflags => $linkflags);
        }
    } el <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4870	4998	
==>t('linkflags');
            $linkflags =~ s/-opt:\S+//;
            $conf->data->set(linkflags => $linkflags);
        }
    } el <==
2	/Users/nnunley/parrot/examples/benchmarks/arriter.pl	115	250	
==>-05-30T13:32:26.641316Z coke  $

=head1 NAME

examples/benchmarks/arriter.pl - Iterator Benchmark

=head1 SYNOPSIS

    % time perl exam <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	5802	5918	
==>rivate' subs

sub proclaim (Bool $cond, Str $desc? is copy, $todo?, Str $got?, Str $expected?, $depends?, $negate?) r <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	1090	1260	
==>oto LABEL" ],
    [ "fail()" ],
    [ "nop()" ],

    [ "push_reg(r)" ],
    [ "pop_reg(r)" ],

    [ "pushmark()" ],
    [ "popmark()" ],
    [ "pushindex()" ],
    [ "po <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822408	822524	
==>K_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_int(entry->entry);\n  {{+=3}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823476	823592	
==>K_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_int(entry->entry);\n  {{+=3}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15870	16009	
==>Op( $parser,
        'result' => [$result],
        'arg1'   => $fct,
        'arg2'   => [$argv],
    );
    return [ $result, \@opcod <==
2	/Users/nnunley/parrot/config/auto/funcptr.pm	40	133	
==>dation.
# $Id: /parrot/config/auto/funcptr.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	11441	11591	
==>oreach my $dir ($self->directories)
    {
        $dir->delete;
    }
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::IO::File>

=item C<Parrot::IO <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45866	46020	
==>D.'\s*<uncommit';
my $ERRORPROD		= $PROD.'\s*<error';
my $LONECOLON		= '\G\s*:';
my $OTHER		= '\G\s*([^\s]+)';

my $lines = 0;

sub _generate($$$;$$)
{
	my <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	10579	10730	
==>calar $op->arg_dirs
            ? map { $arg_dir_mapping{$_} } $op->arg_dirs
            : 0
        ) . " }";
        my $labels     = "{ " . join(", " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822302	822394	
==>tack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_INT) {\n    internal_exception(E <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823370	823462	
==>tack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_INT) {\n    internal_exception(E <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	1351	1546	
==>point
             $token =~ /^\d/)) {  # Digits can follow other digits
      $token .= $ch;
    } elsif($ch =~ /[a-zA-Z]/ and
            $token =~ /^\w/) {    # Letters can follow other letters <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2784	2947	
==>.\n";
    }
    print "\n";
    my @no_descriptions;
    foreach (@files) {
	my $info = &describe_file($_);
	if($info->{desc}) {
	    print "\n* $info->{path}\n\n$i <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	72661	72833	
==>arse::RecDescent/;
	goto &{\$AUTOLOAD};
}
}

};
	$code .= "push \@$self->{namespace}\::ISA, 'Parse::RecDescent';";
	$self->{"startcode"} = '';

	my $rule;
	foreach $rule ( v <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1323	1525	
==>rrently this will only work during runtime since Pugs 
does not yet support `BEGIN{}` or `use`. Modules are 
loaded in a /first-come-first-served/ basis, so just be
sure (as with perl5 lib.pm) to use thi <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tests.pm	343	500	
==>ass Methods

=over

=cut

package Parrot::Docs::Section::Tests;

use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021608	1021711	
==>Y" => "#line 202 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_gm <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022450	1022553	
==>Y" => "#line 202 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_gm <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	8311	8398	
==>_op[x])
#define ROFFS_STR(x) REG_OFFS_STR(jit_info->cur_op[x])
#define ROFFS_PMC(x) REG_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	371737	372041	
==>er, pio, 0);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "peek",
                  "FL <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	86	187	
==>odeGen';
use strict;

my $fail_label = Regex::Ops::Tree::mark('FAIL');

sub init_context {
    my ($se <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	87	188	
==>odeGen';
use strict;

my $fail_label = Regex::Ops::Tree::mark('FAIL');

sub init_context {
    my ($se <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	270611	271115	
==>",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 315,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 871 \"src/ops/cmp. <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	7375	7498	
==>arg1}->{symbol} $op->{op} $op->{arg2}->{symbol} goto $op->{result}->{symbol}\n";
        }
        else {
            pri <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	7814	7937	
==>arg1}->{symbol} $op->{op} $op->{arg2}->{symbol} goto $op->{result}->{symbol}\n";
        }
        else {
            pri <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22478	22596	
==>2);
  $self->_add_inst(''           ,'mod'   ,[$temp_0,$temp_0,$temp_1]);
  $self->_add_inst(''           ,'eq'    ,[$t <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22979	23097	
==>2);
  $self->_add_inst(''           ,'mod'   ,[$temp_0,$temp_0,$temp_1]);
  $self->_add_inst(''           ,'eq'    ,[$t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717903	717999	
==>> "#line 124 \"src/ops/python.ops\"\n  PMC * const io = {{\@1}};\n  if (PIO_softspace(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718835	718931	
==>> "#line 124 \"src/ops/python.ops\"\n  PMC * const io = {{\@1}};\n  if (PIO_softspace(interpreter <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	5573	5789	
==>rt {     # OVERRIDE IN DERIVED CLASS
  my($self, $element_name, $attr_hash_r) = @_;
  return;
}

sub _handle_element_end {       # OVERRIDE IN DERIVED CLASS
  my($self, $element_name) = @_;
  return;
}

sub _handle_te <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691601	691990	
==>S" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 777,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 626 \"src/ops/pmc.ops\"\n   {{\@1} <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	14286	14404	
==>k->kind eq 'until') {
        my $parent_block = $peer_block->block;
        my $loop = Jako::Construct::Block::Loop::C <==
2	/Users/nnunley/parrot/config/gen/PodText.pm	403	520	
==>> to convert Pod documents into their plain text equivalents.

=head1 USAGE

=head2 Methods

=head3 Class Methods

=ov <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	245549	245837	
==>ne",
                  "CODE" => 285,
                  "ARGS" => [
                              "i",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 638 \"src/ops/cmp.ops\"\n  {{\@1}} = mmd_dispatch_i <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8227	8312	
==>=cut

__DATA__
FF,$a,$b,$c,$d,$_[4],7,0xd76aa478,/* 1 */
FF,$d,$a,$b,$c,$_[5],12,0xe8c <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	284	378	
==>strict;
eval "use warnings";

package Jako::Construct::Block::Conditional::Else;

use Carp;

us <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	79	250	
==>_OK = qw(expr_to_tree tree_to_list list_to_pasm compile);
};

use Regex::State;
use Regex::Parse;
use Regex::TreeOptimize;
use Regex::Optimize;

use Regex::Rewrite;
use Reg <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13069	13168	
==>tx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  loc = INTVAL2PTR(opco <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13913	14012	
==>tx)->control_stack, {{^+2}},  STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  loc = INTVAL2PTR(opco <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53275	53374	
==>!= 0) { Interp_flags_SET(interpreter,   PARROT_GC_DEBUG_FLAG); }\n  else         { Interp_flags_CLEA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54031	54130	
==>!= 0) { Interp_flags_SET(interpreter,   PARROT_GC_DEBUG_FLAG); }\n  else         { Interp_flags_CLEA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944871	945049	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "charsetname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945680	945858	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "charsetname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	37930	38031	
==>ll_content  = grep ref($_)||length($_), @ell_content  ;
          @section_name = grep ref($_)||length <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2797	2898	
==>eadline -lpthread -lm -L/opt/local/lib  -licuuc -licudata -lpthread -lm';
        $extraLibs =~ s/blib <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	2592	2693	
==>eadline -lpthread -lm -L/opt/local/lib  -licuuc -licudata -lpthread -lm';
        $extraLibs =~ s/blib <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	3706	4050	
==>c:\u230a"] =  <<"END_PIR"            # floor
    $N100 = %1
    $I100 = floor $N100
    %1 = $I100
END_PIR

    $P0[unicode:"monadic:\u235f"] =  "    %1 = ln %1"


    $P0[unicode:"monadic:\u25cb"] =  "    %1 *= 3.14159265358979323846"
                                      # PI

    $P0[unicode:"monadic:\u2373"]  =  <<"END_PIR"            # in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465604	465827	
==>/ops/math.ops\"\n  {{\@1}}--;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	466225	466448	
==>/ops/math.ops\"\n  {{\@1}}--;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369843	370312	
==>=> "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 433,
                  "ARGS" => [
                              "s",
                              "p",
                              "ic"
                            ], <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368959	369282	
==>=> "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 432,
                  " <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	25060	25188	
==>e
	$t = $func $args   $cmt
EOC
    }
    elsif ($name =~/^obj (\S+) attr (\w+)/) {  # convert to meth call syntax
	my ($obj, $att <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	1490	1594	
==>o_t _op_jit[$core_numops] = {\n";
    $func_end = '_jit';
    $normal_op = 'Parrot_jit_normal_op';
    $c <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	1779	1942	
==>t->{BLOCK};    }

sub scope  { return shift->{SCOPE}     }
sub kind   { return shift->{KIND};     }
sub type   { return shift->{TYPE};     }
sub name   { return shi <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4221	4326	
==>lready loaded ?
		and	return;
	}
	my($fname)=__FILE__;
	my(@drv);
	open(DRV,"<$fname") or die "Report <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4006	4106	
==>lready loaded ?
		and	return;
	}
	my($fname)=__FILE__;
	my(@drv);
	open(DRV,"<$fname") or die "Report <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654255	654525	
==>,
                  "ARGS" => [
                              "p",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 292 \"src/ops/pmc.ops\"\n    opcode_t * resume = {{^+4}};\n    {{\@1 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	48835	48980	
==>lsif(defined $3) {
      DEBUG > 3 and print "Found apparent complex end-text code \"$3\"\n";
      # This is where it gets messy...
      if(! @s <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	287	577	
==>Config;

use strict;
use Exporter;

use vars qw(@ISA @EXPORT %PConfig);

@ISA=qw(Exporter);

@EXPORT=qw(%PConfig);

%PConfig = (
             'DEVEL' => '-devel',
             'HAS_C99_SNPRINTF' => 1,
             'HAS_GMP' => 1,
             'HAS_READLINE' => 1,
             'HAS_SNPRINTF' <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	3999	4121	
==>eq "print") {
		&parse_print;
		goto PARSE_NOFEED;
	}
	#
	# Handle all of the IF-THEN logic
	#
	my $false="0.0";
	if ($syms <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3621	3743	
==>n";
        }
    }
} 
elsif ($mode eq 'compile') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        ga <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3725	3847	
==>n";
        }
    }
} 
elsif ($mode eq 'compile') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        ga <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	2411	2552	
==>\n";

  return $self;
}

# ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~

sub get_token {
  my $self = shift;
  DE <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	27577	27683	
==>f($para_type eq '=back') { #////////////////////////////////////////

      # TODO: fire off </item-number> <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10355	10600	
==>f = shift;
    my $path = $self->path_for_directory_with_relative_path(shift);
    
    return unless $path;
    
    return $self->directory_with_path($path);
}

=item C<file_with_relative_path($path)>

Returns a file with the specified relative <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9771	9961	
==>f = shift;
    my $path = $self->path_for_directory_with_relative_path(shift);
    
    return unless $path;
    
    return -d $path;
}

=item C<relative_path_is_file($path)>

Returns whethe <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	567	723	
==>$_[0]{'_currpos'}[0] }, $x; # insert in parent's child-list
    unshift @{ $_[0]{'_currpos'} },    $x; # prefix to stack
  } else {
    DEBUG and print " And <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1765	1922	
==>agname(I<somestring>)

These are shortcuts for C<< $token->tag() eq I<somestring> >>

=item $token->attr(I<attrname>)

This returns the value of the I<attrnam <==
2	/Users/nnunley/parrot/config/inter/shlibs.pm	984	1092	
==>ed =
        prompt("\nWhat flags instruct your compiler to compile code suitable for use in a shared library <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	2940	3052	
==>devel]
);

open my $MANI, '>', 'MANIFEST';
print $MANI '# $' . 'Id' . '$' . "\n";  # confuse SVN
print $MANI "#\n <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	6966	7076	
==>ymbols\n", scalar(@external_symbols));
    printf("Of these, %d are not defined by ANSI C89:\n", scalar(@non_an <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1884	2029	
==>string register

    $compiler->emit("  $temp = \"\"");

    while (1) {
      last unless defined $string and
        $string =~ m/(^|^.*?[^\\])\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11445	11617	
==>it;
  
  $out = $self->unicode_escape_url($out);
  $out = '_' unless length $out;
  
  return $out;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	24584	24687	
==>t_create_mro(interp, entry);
EOC
    # declare each nci method for this class
    foreach my $method (@{ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25411	25531	
==>>_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    m <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27311	27431	
==>>_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    m <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	43593	43811	
==>atty!  Skipping this one.\n";
        next;
      } else {
        DEBUG > 5 and print "  Previous line is non-formatty!  Yay!\n";
      }
    } else {
      DEBUG > 5 and print "  It's not a formatty line.  Ignoring\n" <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	6695	6788	
==>bles searching of installed libraries.
# (see Parrot_get_runtime_prefix in src/library.c).
$EN <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	24042	24182	
==>\n    next_pc += 2\n";
			$arg_name = "I_ARG_$arg_num";
		}

		# int16
		elsif (/^int16$/) {
			$out =  "    \${I_ARG_$arg_num} = bc.read_int <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2442	2573	
==>={};

	$$self{USER};
	
}

sub YYErrok {
	my($self)=shift;

	${$$self{ERRST}}=0;
    undef;
}

sub YYNberr {
	my($self) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2346	2463	
==>={};

	$$self{USER};
	
}

sub YYErrok {
	my($self)=shift;

	${$$self{ERRST}}=0;
    undef;
}

sub YYNberr {
	my($self) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	821491	821732	
==>ABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FLAGS" => ":base_core <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	3586	3773	
==>as for C<run_core_func_decl()>.

=item C<init_set_dispatch($base_suffix)>

Optionally implemented in subclasses to return the C code for
initializing the dispatch mechanism within the core <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936084	936331	
==>> 1052,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 455 \"src/ops/string.ops\"\n  {{\@1}} = string_titlecase(interpreter, {{\@2 <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	3590	3694	
==>g
C<PMC_data> will have C<need_ext>.

=item C<does interface>

The class 'does' the given interfaces (the <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	10722	10891	
==>his is the
string version.

=item B<is_num>

  $Test->is_num($got, $expected, $name);

Like Test::More's is().  Checks if $got == $expected.  This is the
numeric version. <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	792	901	
==>ed.
#
# (c) Copyright 1998-2001 Francois Desarmenien, all rights reserved.
# (see the pod text in Parse::Ya <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	770	876	
==>ed.
#
# (c) Copyright 1998-2001 Francois Desarmenien, all rights reserved.
# (see the pod text in Parse::Ya <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4662	4805	
==>{$1});
            }
        }
    }
    
    close(F);

    # filter out things that start with _.  Probably internal libc stuff.
    my @exter <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3893	4014	
==>p_files) {
        compile("$group", "lib-$group")
          or die "compile $group.c failed ($?)\n";
    }
} 
elsif ($mod <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3997	4118	
==>p_files) {
        compile("$group", "lib-$group")
          or die "compile $group.c failed ($?)\n";
    }
} 
elsif ($mod <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20398	20500	
==>.

=head1 SEE ALSO

L<Pod::Simple>, L<RTF::Writer>, L<RTF::Cookbook>, L<RTF::Document>,
L<RTF::Generato <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	442	564	
==>/extract_file_descriptions.pl [--plus-misses] [files ...]

=head1 DESCRIPTION

This script extracts descriptions from the P <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	24356	24480	
==>{
    my ( $parser, $expr )    = @_;
    my ( $defn,   $opcodes ) = @{$expr};
    if ( scalar( @{$opcodes} ) and $opcodes- <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34814	34926	
==>$rule->{'name'}");
		}
		$pir .= "### end translation\n";

		# Now emit code to fix up the stack type array and p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223532	223640	
==>],
                  "BODY" => "#line 516 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224474	224582	
==>],
                  "BODY" => "#line 516 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	559	882	
==>if ($cur =~ /[\d\.]/) {  # Numeric constants
		goto NOTNUM if ($cur eq "." and $next !~ /\d/);
		my $numtype="INT";
		if ($cur eq ".") {
			$numtype="FLO";
			$cur="0.";
		}
		append;
		fetch;
NUMCONST:	if ($cur =~ /\d/) {
			append;
			fetch;
			goto NUMCONST;
		}
		if ($cur eq '.' ) {
			append;
			fetch;
			$numtype="FL <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	11927	12061	
==>c HOP **hop;

static void hop_init(void);
static size_t hash_str(const char * str);
static void store_op(op_info_t *info, int full);

/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	753949	754280	
==>AGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 850,
                  "ARGS" => [
                              "p",
                              "i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10831	10929	
==>d $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "No content!"      unless <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	28147	28357	
==>t (if any)
              type       => type of test (if any, see below).
              reason     => reason for the above (if any)
            };

'ok' is true if Test::Harness will consider the test to be a pas <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86839	87172	
==>_callback",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 108 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87840	88172	
==>_callback",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 10 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009877	1010116	
==>} = string_compose(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010642	1010881	
==>} = string_compose(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	4953	5045	
==>en_manifest_skip>

Query the svn:ignore property and generate the lines for MANIFEST.SKIP.

= <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3346	3447	
==>sub YYExpect {
    my($self)=shift;

    keys %{$self->{STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3177	3274	
==>sub YYExpect {
    my($self)=shift;

    keys %{$self->{STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	11530	11637	
==>:Transcode::->encmodver;
    $enc_error = join '' =>
      "This document probably does not appear as it sho <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24522	24654	
==>>_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
  } else {
    $r <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26421	26553	
==>>_save_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
  } else {
    $r <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	23474	23696	
==>t = ;
          splice @$treelet, $i, 1, [pop(@dynasty), {}, $treelet->[$i]];
            # relace node with a new parent
        }
      } elsif($is eq '0') {
        splice(@$treelet, $i, 1); # just nix this node (and its <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733458	733697	
==>> "inline",
                  "CODE" => 823,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 134 \"src/ops/set.ops\"\n  {{\ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3894	4012	
==>ameter '$prm'");
        $prm=unpack('@2A*',$prm);
		$$outhash{$prm}=$value;
	}
	for (@$mandatory) {
			exists($$o <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3697	3810	
==>ameter '$prm'");
        $prm=unpack('@2A*',$prm);
		$$outhash{$prm}=$value;
	}
	for (@$mandatory) {
			exists($$o <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2421	2624	
==>return
                last;
            s/^\\t//
                and $str .= "\t",      # horizontal tab
                last;
            s/^\\v//
                and $str .= "\x0b",    # vertical <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3935	4138	
==>return
                last;
            s/^\\t//
                and $str .= "\t",      # horizontal tab
                last;
            s/^\\v//
                and $str .= "\x0b",    # vertical <==
2	/Users/nnunley/parrot/config/auto/msvc.pm	1605	1736	
==>or";
    print " (yep: $msvcversion )" if $verbose;
    $self->set_result('yes');

    $conf->data->set(msvcversion => $msvcversion) <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	956	1102	
==>'runtime/parrot/include';

@args = qw(verbose);

sub runstep
{
    my ($self, $conf) = @_;

    # need vtable.h now
    system($^X, "tools/build/vt <==
2	/Users/nnunley/parrot/lib/Test/More.pm	18581	18695	
==>s with $!
    eval <<REQUIRE;
package $pack;
require $module;
REQUIRE

    my $ok = $Test->ok( !$@, "require $modul <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196007	196412	
==>"i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 232,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 335 \"src/ops/cmp. <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	3160	3267	
==>file= File::Spec->catfile($charset_dir, 'tables.h');
open STDOUT, '>', $h_file
    or die "can not open '$h_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	220	323	
==>06 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Processor;

us <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	866475	866732	
==>S" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "substr",
                  "FLAGS" => ":base_core",
                  " <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	4582	4915	
==>g;
            $asm =~ s/MAP\[(\d)\]/MAP($1)/g;
            # set extern if the code calls a function
            $extern = -1 if $asm =~ /CALL_FUNCTION/;
            unless ($jit_cpu) {
                # no address of
                $asm =~ s/&([INSP])REG/$1REG/g;
                $asm =~ s/&CONST/CONST/g;
                # Use the <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	7729	7888	
==>hes               => 1
    );
    genfile(
        'config/gen/makefiles/Zcode.in' => 'languages/Zcode/Makefile',
        commentType                     => '#' <==
2	/Users/nnunley/parrot/config/init/hints/irix.pm	124	234	
==>$

package init::hinits::irix;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    my $ccflags = $conf <==
2	/Users/nnunley/parrot/lib/Test/More.pm	16750	16848	
==>use_ok('Some::Module', qw(foo bar)) }

is like doing this:

   use Some::Module qw(foo bar);

Versi <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	2929	3040	
==>l, %params, %lexicals, %names, %def_args, %arg_count,
    @code, %globals, %classes, @loops, %def_arg_names, %fu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	304501	305081	
==>"CODE" => 354,
                  "ARGS" => [
                              "i",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 985 \"src/ops/cmp.ops\"\n  if (&{{\@2}} == &{{\@3}})\n    {{\@1}} = 0;\n  else\n    {{\@1}} = !mmd_dispatch_i_pp(interpreter, {{\@2}}, {{\@3}}, MMD_EQ);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	23571	23727	
==>fix_args = $func_info{$name}{'args'};
	my @fargs = split /,/, $fix_args;
	my $nf = scalar @fargs;
	if ($func_info{$name}{'ar'} ne 'None') {
	    $nfix -= $nf <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6212	6403	
==>EFAULT})
                        ?   $$actions{DEFAULT}
                        :   undef;
        }
        else {
            $act=$$actions{DEFAULT};
#DBG>			$debug & 0x01
#DBG>		and <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5922	6106	
==>EFAULT})
                        ?   $$actions{DEFAULT}
                        :   undef;
        }
        else {
            $act=$$actions{DEFAULT};
#DBG>			$debug & 0x01
#DBG>		and <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	2344	2487	
==>me/parrot/dynext/README                    [devel]doc
    runtime/parrot/include/DWIM.pir                 [devel]doc
    runtime/parrot/include/ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3972	4069	
==>())
	print y(4)
end function
function arrfunc(x())
	u=aftwo(x())
	arrfunc=55
end function
dim g(10 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15245	15342	
==>())
	print y(4)
end function
function arrfunc(x())
	u=aftwo(x())
	arrfunc=55
end function
dim g(10 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	576	670	
==>');
  confess("Identifier (" . ref($ident) . ") is not!") unless UNIVERSAL::isa($ident, 'Jako:: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	576	670	
==>');
  confess("Identifier (" . ref($ident) . ") is not!") unless UNIVERSAL::isa($ident, 'Jako:: <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	19583	19729	
==>AN_BUILD_CALL_FRAMES is enabled, this should not happen", 58, "ascii", 0);
#else
    ns = string_make(interpreter, ".\\nCAN_BUILD_CALL_FRAMES is di <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5203	5379	
==>al { $ret->can('result'); };
        # if not, report the result and return
        if ($@) {
            my $result = $step->result || 'no result returned';
            carp "\ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6961	7133	
==>nlib,
          fn    => $fn
        }
      });
    }
    else {
      $handler->start_element({
        Name       => 'sub',
        Attributes => {
          name  => $na <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2870	2976	
==>bparrot.lib, otherwise
        # the static libparrot.lib.
        if ($conf->data->get('parrot_is_shared') <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17585	17745	
==>[$i] =~ s/^\s*(\S+)\s*//s) {
          $target = $1;
          last;
        }
      }
      unless(defined $target) {
        $self->whine(
          $para->[1] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118239	118699	
==>GS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 147,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 226 \"src/ops/bit.ops\"\n  {{\@1}} >>= {{\@2}};\n  {{+=3}};\ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5685	5786	
==>EMP0}, ${PTEMP1}, ${PTEMP2}) = method_info_from_token(${ASSEMBLY}, ${ARG0})

# If there is a return ty <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7905	8006	
==>EMP0}, ${PTEMP1}, ${PTEMP2}) = method_info_from_token(${ASSEMBLY}, ${ARG0})

# If there is a return ty <==
2	/Users/nnunley/parrot/Configure.pl	8124	8271	
==>ANSI C is available

EOT
      exit;
    };
    $args{$key} = $value;
  }
}

$args{debugging} = 1 unless ((exists $args{debugging}) && !$args{debugg <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	16950	17104	
==>D_PIR
        }

        $template .= <<"END_POSTAMBLE"
    .return (op1) # might be pre-empted
.end
END_POSTAMBLE
    }
}

# Substitute all macros
foreach <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2056	2306	
==>b create_path
{
    my $self = shift;
    
    return unless $self->SUPER::create_path;
    
    unless ( -e $self->path )
    {
        # This dies if it fails.
        mkpath($self->path);
    }
    
    return -d $self->path;
}

=item C<relative_pa <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4671	4787	
==>my $self = shift;
    my $name = shift;
    
    return -d File::Spec->catdir($self->path, $name);
}

=item C<files($ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2496	2609	
==>[0]->emit_par( 0) }
sub end_item_text   { $_[0]->emit_par(-2) }

sub emit_par {
  return unless $_[0]{'Errata_seen <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	1051	1222	
==>assify>( $chr )

Character classification

=cut

sub classify {
    my ($chr) = @_;
    my $ret = 0;
    
    $chr = chr($chr);
    $ret |= 0x0001 if $chr =~ /^[[:upper:]]$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033509	1033619	
==>ABLE_set_pmc_keyed_str(interpreter, lex_pad, lex_name, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034607	1034717	
==>ABLE_set_pmc_keyed_str(interpreter, lex_pad, lex_name, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	743	879	
==>ifier');
  confess "Props are not hash!" if defined $props and ref($props) ne "HASH";

  my $self = bless {
    BLOCK => $block,

    TYP <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	1935	2036	
==>= [ "$name=$m->{0}" ];
  while (my ($name, $match) = each %$m) {
    push @$res, minimatch($match, $na <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	805	933	
==>ut

sub core_prefix
{
    return "cgp_";
}

=item C<defines()>

Returns the C C<#define> macros required by the ops.

=cut

sub d <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5675	5820	
==>_a
	inc $result
EQ_${eqnum}_a:
	eq $a2, $ot2, EQ_$eqnum
	dec $result
EQ_$eqnum: eq $result, 0.0, EQ_${eqnum}_ok
	set $result, 0.0
	branch EQ_${eqn <==
2	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1442	1545	
==>1;
  }
}

sub usage { print STDERR <<USAGE; exit }
Usage: $0 [options] -- smoke1.html smoke2.html ...

A <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	12478	12650	
==>r_charclass');

    my @ops = (          aop('advance', [ $howfar, $lastback ]),
                         aop('goto', [ $next ]),
                $back => aop('increment', [ <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	7078	7249	
==>d on array:
    struct( CLASS_NAME => [ ELEMENT_NAME => ELEMENT_TYPE, ... ]);
            # declare struct, based on hash:
    struct( CLASS_NAME => { ELEMENT_NAME => ELEME <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	15216	15315	
==>or_file($file));
}

=item C<append_html_suffix($path)>

Returns C<$path> with and HTML file suffix a <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29500	29774	
==>} in rule " .
				"$rule->{'name'}\n";
		}

		# Now call pre_load and append code that it generates.
		my $pre_load = $srm->pre_load($need_dest);
		$pir .= "### pre_load\n";
		$pir .= sub_meta($pre_load, $mv, "pre_load for rule $rule->{'name'}");
		$pir .= "### end pre_load\ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12429	12580	
==>er);
                push @opcodes, @{ $global->[1] };
                my $key = BuildLiteral( $parser, $idf, 'key' );
                push @opcodes, <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16937	17088	
==>er);
                push @opcodes, @{ $global->[1] };
                my $key = BuildLiteral( $parser, $idf, 'key' );
                push @opcodes, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	160	280	
==>\&Pod::Simple::DEBUG unless defined &DEBUG }

sub new {
  my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	159	279	
==>\&Pod::Simple::DEBUG unless defined &DEBUG }

sub new {
  my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054386	1054481	
==>ull namespace.\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to get null global.\");\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055513	1055608	
==>ull namespace.\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to get null global.\");\n <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	320	408	
==>o::Construct::Expression::Value;

use base qw(Jako::Construct::Expression);

use Jako::To <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	10573	10780	
==>hm
    .param num op1
    .param num op2
    $N1 = ln op1
    $N2 = ln op2
    $N3 = $N1 / $N2
    .return($N3)
.end

# This somewhat convoluted based the description from the old APL/360 manual
.sub 'dyadic: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478383	478778	
==>GS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 548,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#l <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	15956	16210	
==>ine + count_newlines($cout),
				   $out_name);
    $cout .= $additional_bodies;
    $cout .= "\n\n";
}

=item C<methods($line, $out_name)>

Returns the C code for the vtable methods. C<$line> is used to accumulate
the number of lines, C<$out_name> is the <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	17618	17755	
==>1 LICENSE

Copyright (C) 2005-2006, The Perl Foundation.

This is free software; you may redistribute it and/or modify
it under the same t <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1906	2006	
==>ew($path);
}

=back

=head2 Instance Methods

=over 4

=item C<create_path()>

This is called from C< <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	883	983	
==>ew($path);
}

=back

=head2 Instance Methods

=over 4

=item C<create_path()>

This is called from C< <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	5219	5331	
==>FCDR
Dim c(10), a$(10), u(10)
510 FOR I = 0 TO 6
520 READ A$(I), U(I)
    print A$(I);
530 NEXT I
540 DATA ".",0, <==
2	/Users/nnunley/parrot/config/gen/PodText.pm	1879	2088	
==>the end of the file.
        seek $fh, 0, 0;
        print $fh $text;
        close($fh) or die "can not close file $plain: $!";
    }

    $self->set_result($count ? 'done' : 'no files to process');

    retur <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4665	4767	
==><CODE> ref and returns a
L<Parrot::Configure::Data> object.

=cut

sub settrigger
{
    my ($self, $key <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	384	509	
==>(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my $self     = shift; # Required:
  my $compiler = shift; # Requi <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4487	4576	
==>de for C<restart
ADDRESS($address)>.

=item C<restart_offset($offset)>

Implemented in sub <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664231	664491	
==>=> "inline",
                  "CODE" => 742,
                  "ARGS" => [
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 354 \"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delet <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	2514	2757	
==>s = ();
    my $rule;

    # Read through rules file line by line.
    my $line = 0;
    my $in_heredoc = 0;
    my ($heredoc_key, $heredoc_value, $heredoc_terminator);
    while (<$fh>) {
        chomp;
        $line++;

        # If it's a bl <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	39096	39189	
==>tely fail.

However, if the string value associated with <reject> is "MAX", then
C<extract_tag <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	8852	9014	
==>}
    else {
	    $export = "";
	    $extern = "";
	    $newl = "\n";
	    $semi = "";
        $interp = ' interpreter';
        $pmc = ' pmc';
    }
    return << <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	2148	2273	
==>lock.\n", __PACKAGE__;

  return 1 unless $self->content;

#  if ($options->{PACKAGE}) {
#    $options->{PACKAGE} .= "::" . $s <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	4316	4410	
==>ops from ops.num
# or from experimental

my $real_ops = Parrot::OpsFile->new( [ ], $nolines_fla <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054322	1054439	
==>IS_NULL({{\@2}}))\n\tinternal_exception(1, \"Tried to get from null namespace.\");\n    if (!{{\@3}})\n\tinternal_exce <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055449	1055566	
==>IS_NULL({{\@2}}))\n\tinternal_exception(1, \"Tried to get from null namespace.\");\n    if (!{{\@3}})\n\tinternal_exce <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1547	1693	
==>tr    = q{};
    my $type   = 'STRING';

    while ( $parser->YYData->{INPUT} ) {

        for ( $parser->YYData->{INPUT} ) {

            s <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3062	3208	
==>tr    = q{};
    my $type   = 'STRING';

    while ( $parser->YYData->{INPUT} ) {

        for ( $parser->YYData->{INPUT} ) {

            s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	26442	26587	
==>ite rules will declare a fallback point, and also jump back
# to the previous fallback point on failure. So this threads all the
# fallback points <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1845	1977	
==>> >>

=item $token->attr(I<attrname>)

This returns the value of the I<attrname> attribute for this start-token
object, or undef.

Fo <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	36714	36841	
==>ces all use Test::Builder.

=head1 SEE ALSO

Test::Simple, Test::More, Test::Harness

=head1 AUTHORS

Original code by chromatic <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1027455	1027616	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT|PARROT_J <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736681	736915	
==>et.ops\"\n  {{\@1}} = (FLOATVAL){{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737427	737661	
==>et.ops\"\n  {{\@1}} = (FLOATVAL){{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8494	8588	
==>t c$(i);tab$(12);c$(i+1);tab$(22);c$(i+2);tab$(32);c$(i+3)
next
print
data "ABANDON","CHART","C <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21358	21452	
==>t c$(i);tab$(12);c$(i+1);tab$(22);c$(i+2);tab$(32);c$(i+3)
next
print
data "ABANDON","CHART","C <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	10579	10710	
==>$L_backup, $num_groups, $startup) = @_;

    my $trymatch = $self->output_label_use($L_trymatch);
    my $backup = $self->output_lab <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10622	10751	
==>footer();

    close(OUT);
}


sub filter_gcov {
    my ($infile) = @_;
    
    my $source_file = $infile;
    $source_file =~ s/ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	5935	6058	
==>ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		($a1,$a2,$ot1,$ot2)=($a2,$a1,$ot2,$ot <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	28099	28194	
==>>_generate($node->{children}[1]);
  $self->_add_inst('',           'gt', [$return,0,"DONE_$label <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60165	60406	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "warningsoff",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60814	61055	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "warningsoff",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ] <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16617	16777	
==>},@stream);	# Generate PASM code stream
		#print STDERR "Left: @left \n";
		if ($opts{choose}) {
			$opts{stuff}=~s/X/$type/g;
		}
		# The rhs was passed in
		@s <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5625	5732	
==>{LOADREG}
${INS} = concat "\n"
PIR
	}

	return $pir;
}

# Pre and post store operation hooks.
sub pre_store( <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4467	4574	
==>{LOADREG}
${INS} = concat "\n"
PIR
	}

	return $pir;
}

# Pre and post store operation hooks.
sub pre_store( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243921	244014	
==>32 \"src/ops/cmp.ops\"\n  STRING* l = VTABLE_get_string(interpreter, {{\@2}});\n  {{\@1}} = st <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244853	244946	
==>32 \"src/ops/cmp.ops\"\n  STRING* l = VTABLE_get_string(interpreter, {{\@2}});\n  {{\@1}} = st <==
2	/Users/nnunley/parrot/lib/Test/More.pm	5237	5390	
==>r you.  However, it's often very useful to
assign a name to each test.  Which would you rather see:

  ok 4
  not ok 5
  ok 6

or

  ok 4 - basic multi-va <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	13935	14085	
==>d ($max_content_length
           ? (length($para_text_content) <= $max_content_length)
           : 1)
        ) {
          # Some minimal sanity con <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3724	3880	
==>arent blocks'
symbol tables.

TODO: We should generate real compiler errors and warnings instead of using
die() and warn().

=cut

sub get_symbol
{
  my $sel <==
2	/Users/nnunley/parrot/config/init/defaults.pm	5661	5830	
==>that needs to be assembled
        platform_asm => 0,
        as           => 'as',    # assembler

        cp    => '$(PERL) -MExtUtils::Command -e cp',
        lns   => <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1506	1604	
==>ERROR("Undefined type!")
    unless defined $type;

  $self->INTERNAL_ERROR("Type is not a Jako::Co <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1354	1452	
==>ERROR("Undefined type!")
    unless defined $type;

  $self->INTERNAL_ERROR("Type is not a Jako::Co <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17903	18067	
==>target / =end $target\n";
      
      $para->[0] = 'Data';
      
      unshift @$paras,
        ['=begin',
          {'start_line' => $para->[1]{'start_line'}, '~r <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27678	27811	
==>LabelOp( $parser,
        'arg1' => $l_continue,
    );
    foreach my $op ( @{$block} ) {
        if ( $op and $op->isa('BranchOp <==
2	/Users/nnunley/parrot/lib/Test/More.pm	13886	14087	
==>$@
WHOA
            }
        }
        elsif( !$rslt ) {
            my $ref = ref $object;
            $diag = "$obj_name isn't a '$class' it's a '$ref'";
        }
    }
            
      

    my $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	220348	220760	
==>"i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 258,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 477 \"src/ops/cmp.ops\"\n <==
2	/Users/nnunley/parrot/languages/APL/t/APL.pm	1337	1557	
==>r specifying an out.
                      # XXX also gives us a way to specify a blank output,
                      # Since we're converting an explicit blank output to 0
    }
    if ($output =~ m/\n\n$/smx) {
      ch <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	25796	26017	
==>es shouldn't be over one line long!  Ignoring all "
         . (@$para - 2) . " lines of content"
      ) if @$para > 3;
      # Content is always ignored.
      

    } elsif($para_type eq '=over') { #//////////////////// <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351555	351692	
==>"
                            ],
                  "BODY" => "#line 190 \"src/ops/io.ops\"\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL) <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1575	1691	
==>eth"};
        my $ok = &{"Test::More::$meth"}( @_ );
        # if( $ok ) { foreach my $meth ( $lang_f, $pasm_f, $by_ <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1491	1607	
==>eth"};
        my $ok = &{"Test::More::$meth"}( @_ );
        # if( $ok ) { foreach my $meth ( $lang_f, $pasm_f, $by_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8887	8980	
==>preter,\n\t    enum_fixup_label, label);\n    if (!fe)\n\tinternal_exception(1, \"branch_cs: f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10003	10096	
==>preter,\n\t    enum_fixup_label, label);\n    if (!fe)\n\tinternal_exception(1, \"branch_cs: f <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	24789	24914	
==>, $self->require_value);
        $self->require_close_paren;
      }

      $self->require_semicolon;

      my $ctl = Jako::C <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11884	12017	
==>(\@code, \$optype, \@work);
			$pir_args = join(",", map {$_->[0]} (reverse @args));
			$pir_args = ",$pir_args" if $pir_args;
			$ext <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	12294	12427	
==>(\@code, \$optype, \@work);
			$pir_args = join(",", map {$_->[0]} (reverse @args));
			$pir_args = ",$pir_args" if $pir_args;
			$ext <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	550	680	
==>rn "re_onfail P0, ".$self->output_label_use($label);
}

sub output_match {
    my ($self, $byte) = @_;
    my $comment = '';
    if <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18614	18782	
==>1
		}
	},
	{#State 50
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"%" => 76,
			"==" => 77,
			" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	179	322	
==>ot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

pac <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	25605	25798	
==>TMORTEM}) {
                unlink $out_f;
                unlink $build_f;
                unlink $exe_f;
                unlink $obj_f;
                unlink $pdb_f;
                unlink $i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	620	717	
==>ako::Construct::Block');
  confess "Ident is not!" unless UNIVERSAL::isa($ident, 'Jako::Construct: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	508	605	
==>ako::Construct::Block');
  confess "Ident is not!" unless UNIVERSAL::isa($ident, 'Jako::Construct: <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	5819	5953	
==>ase) = @_;
    my $cg_func = $self->core_prefix . $base;
    my $bs = $base . $self->suffix . '_';

    return <<END_C;
 	if (!${bs}op_ <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	3237	3350	
==>ds out whether the name has a .xyz suffix.

=item C<has_suffix($suffix)>

Finds out whether the name suffix is C<$ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20671	20754	
==>mple::PullParserTextToken>, and
L<Pod::Simple::PullParserEndToken>.

L<HTML::TokePar <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	2104	2243	
==>(OPS_DIR)/core_ops_cgp.c',
            cg_flag => '-DHAVE_COMPUTED_GOTO'
        );
        print " (yes) " if $verbose;
        $self->set_ <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	929	1094	
==>@args);
print arg_check(@args);
print   helpers(@args);
print arguments(@args);
print      body($file, @args);
print   badargs($cmd, @args);
print    footer();

sub o <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	4272	4446	
==>? 'UNIMPLEMENTED' : 
                        "BODY_$_->{'class'}___$_->{'method'}";
            $label =~ s/\./_/g;
            $pir .= "if method_name == \"$_->{'method'}\" g <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	18894	18998	
==>ction in something like O(log(n))
    # rather than O(n).
	my $pir = <<PIRCODE;
	# Translation code dispa <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	7116	7307	
==>conditioned_lines              => 1
    );
    genfile(
        'languages/tcl/config/root.in' => 'languages/tcl/Makefile',
        commentType                    => '#',
        replace_slash <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	850247	850737	
==>n",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 965,
                  "ARGS" => [
                              "s",
                              "sc",
                              "i"
                            ],
                  "BODY" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851134	851450	
==>n",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 966,
                  " <==
2	/Users/nnunley/parrot/languages/urm/urm-old.pl	910	1087	
==>{
    my $line = $program[$pos -1];
    if ($pos > @program) {last;}
    print "($pos";
    foreach my $reg (sort keys %register) {
	print ", " . $register{$reg} ;
    }
    prin <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	922	1018	
==>r example, parsing a "=head1 ..." line will give you
a start-token with the tagname of "head1", t <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1350	1446	
==>r example, parsing a "=head1 ..." line will give you
a start-token with the tagname of "head1", t <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	242	434	
==>.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Processor;

use Carp;


#
# new()
#

sub new
{
  confess "Subclass responsibility";
}


#
# debug()
#

sub debug
{
  my $self <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	12004	12170	
==>iler");
  confess "Bad options!" if defined $options and not (ref $options and ref $options eq 'HASH');
  confess "Extra arguments!" if @_;

  foreach my $construct ($ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953526	953859	
==>st);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "encoding",
                  "FL <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	14730	14834	
==>---------------------------------------------------------

sub whine {
  #my($self,$line,$complaint) = @_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019812	1019909	
==>e_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_localtime_r(&t, &tm);\n  Parrot_asct <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020743	1020840	
==>e_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_localtime_r(&t, &tm);\n  Parrot_asct <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060170	1060428	
==>ot_get_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061075	1061333	
==>ot_get_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89300	89604	
==>} &= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90038	90342	
==>} &= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLA <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	8663	8892	
==>);               # call method of object
    $obj->c(new My_Other_Class);        # assign a new object

=head1 DESCRIPTION

C<Class::Struct> exports a single function, C<struct>.
Given a list of element names and types, and option <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1091345	1091937	
==>> ":python",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1210,
                  "ARGS" => [
                              "p",
                              "p",
                              "kc",
                              "ic"
                            ],
                  "BODY" => "#line 191 \"src/ops/experimental.ops\"\n    {{\@1}} = {{\@2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1053770	1054303	
==>bal",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1177,
                  "ARGS" => [
                              "p",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 182 \"src/ops/var.ops\"\n    opcode_t * n <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	638	734	
==>parser->get_token on a L<Pod::Simple::PullParser>, you might
get an object of this class.

This i <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	544	640	
==>parser->get_token on a L<Pod::Simple::PullParser>, you might
get an object of this class.

This i <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	14083	14218	
==>op:
    if $I0 >= $I1 goto loop_end 
    $S1 = substr $S0, $I0, 1
    push result, $S1
    inc $I0
    goto loop
  loop_end:
    .return <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8818	8963	
==>b,$c,$_[17],12,0xfd987193,/* 14 */
FF,$c,$d,$a,$b,$_[18],17,0xa679438e,/* 15 */
FF,$b,$c,$d,$a,$_[19],22,0x49b40821,/* 16 */ 
GG,$a,$b,$c,$d,$_[5] <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	4689	4867	
==>}\n";
    }

    sub visitNoOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};

        #    print {$FH} "  noop\n";
    }

    sub v <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	196	298	
==>this class.
sub new() {
	die "Attempt to instantiate abstract class SRM::Base.\n";
}

# Pre and post tr <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9434	9532	
==>Tagmap'}{"/$tagname"} || return;
    
    --$self->{DONT_WRAP} if $tagname eq 'Verbatim' or $tagnam <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	265	367	
==>ION );
$VERSION = '2.02';
@ISA = ('Pod::Simple::Methody');
BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	935165	935520	
==>e",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1051,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 44 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	585	691	
==>t defined!" unless defined $left;
  confess "Op is not defined!" unless defined $op;
  confess "Right is no <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	597	703	
==>t defined!" unless defined $left;
  confess "Op is not defined!" unless defined $op;
  confess "Right is no <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600224	600336	
==>_exception(interpreter, next, NO_CLASS, \n         \"Class '%Ss' doesn't exist\", name);\n  }\n  else\n    {{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601300	601412	
==>_exception(interpreter, next, NO_CLASS, \n         \"Class '%Ss' doesn't exist\", name);\n  }\n  else\n    {{\@1} <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	6483	6634	
==>(sort keys %DataB) {
	printf "%s\t%s\tUMD\n", $api, $DataB{$api};
    }
}

if (keys %DataD) {
    printf "--- Initialized Modifiable Data: %d ---\n", sc <==
2	/Users/nnunley/parrot/config/auto/env.pm	1033	1224	
==>unsetenv => $unsetenv
    );

    if ($setenv && $unsetenv) {
        print " (both) " if $verbose;
        $self->set_result('both');
    } elsif ($setenv) {
        print " (setenv) " if $ve <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8646	8737	
==>[13],12,0x8b44f7af,/* 10 */
FF,$c,$d,$a,$b,$_[14],17,0xffff5bb1,/* 11 */
FF,$b,$c,$d,$a,$_[1 <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23086	23194	
==>'eq'    ,[$temp_0,0,"DONE_$label"]);
  $self->_add_inst(''           ,'set'   ,[$return,0]);
  $self->_add_in <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	7050	7197	
==>Test::report_failure($context, $got, $expected, $negate) unless $cond;

    return $cond;
}

sub report_failure (Str $todo?, Str $got?, Str $expecte <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	5537	5664	
==>you call plan(), don't call any of the other methods below.

=cut

sub plan {
    my($self, $cmd, $arg) = @_;

    return unless <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	1207	1424	
==>rpos = $_[2];
	if ($wantarray)
	{
		my @res;
		while (my ($from, $len) = splice @_, 0, 2)
		{
			push @res, substr($$textref,$from,$len);
		}
		if ($extralen) {	# CORRECT FILLET
			my $extra = substr($res[0], $extrapos <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	6059	6193	
==>s{destdir}.$dest;
    if ($options{'dry-run'}) {
	print "$src -> $dest\n";
	next;
    }
    else {
	next unless -e $src;
	copy($src, $d <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	31804	31928	
==>a {
    my($check, $desc) = @_;
    if( $check ) {
        die <<WHOA;
WHOA!  $desc
This should never happen!  Please contact <==
2	/Users/nnunley/parrot/lib/Test/More.pm	30888	31012	
==>a {
    my($check, $desc) = @_;
    if( $check ) {
        die <<WHOA;
WHOA!  $desc
This should never happen!  Please contact <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	971641	971985	
==>"inline",
                  "CODE" => 1092,
                  "ARGS" => [
                              "i",
                              "ic",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5601	5724	
==>t_initgroup {
    my ($self, $group) = @_;
    return ("new <rx_ptmp>, \"MatchRange\" # new group \"$group\"",
            " <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	16917	17053	
==>lt vector
    .return (result)
END_PIR
        }

        $template .= <<"END_POSTAMBLE"
    .return (op1) # might be pre-empted
.end
END <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3624	3781	
==>%props));

    $name =~ s/::/__/g;

    if (exists $props{fn} or exists $props{fnlib}) {
      $name .= "_THUNK";
    }

    $compiler->emit("  $dest = _${nam <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	3059	3200	
==>%props));

    $name =~ s/::/__/g;

    if (exists $props{fn} or exists $props{fnlib}) {
      $name .= "_THUNK";
    }

    $compiler->emit(" <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	50768	50879	
==>ke operators)

                extract_codeblock $text, "(){}", '[^(]*';


The ability to specify a different ou <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	40827	40925	
==>cluding the start and end
tags). C<undef> is returned on failure. In addition, the original input
t <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	13034	13147	
==>name: $!";
    my $text = do {local $/; <$fh>};
    close($fh) or die "Can't close $filename: $!";

    return $te <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	602	838	
==>e the CPAN
shell:

    perl -MCPAN -e shell 
    cpan> install C::Scan 
    ...

=cut

################################################################################

# the following #defined macros are really used as data types, and s <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	933	1067	
==>(32 - $_[1])) - 1);
}

sub gen_code {
  # Discard upper 32 bits on 64 bit archs.
  my $MSK = ((1 << 16) << 16) ? ' & ' . MAX : '';
#	FF <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	36443	36606	
==>1 = ();
    my @opcodes2 = ();
    my $defn;
    if ( $idf eq '...' ) {
        $defn = new defn( 'vararg', 'local', 'pmc' );
        push @opcodes1, new Param <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122129	122385	
==>ST(UINTVAL, {{\@1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123041	123297	
==>ST(UINTVAL, {{\@1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5512	5664	
==>KS}}, $module;

      next;

    }

    #
    # Variable declarations:
    #
    #   var <type> <ident>;
    #   var <type> <ident> = <value>;
    #   va <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34891	35053	
==>to fix up the stack type array and propogate it.
		for (1..$rule->{'pop'}) {
			$pir .= "    type_trans = pop stypes\n";
		}
        if ($rule->{'code'} eq '45') { <==
2	/Users/nnunley/parrot/config/init/headers.pm	428	596	
==>(maniread);

our $description = 'Determining nongenerated header files';
our @args;

sub runstep
{
    my ($self, $conf) = @_;

    my $inc = 'include/parrot';

    my @ <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	692	813	
==>($self, $conf) = @_;
    
    my $verbose = $conf->options->get('verbose');

    # undef means we don't have bison... defa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	799300	799721	
==>> [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 902,
                  "ARGS" => [
                              "p",
                              "kc",
                              "nc"
                            ],
                  "BODY" => "#lin <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20888	21012	
==>eturn ($back, @ops);
}

# ( [ [aaaaa|aaaaaaa]<2,3> ]<1,2> )
# 30,42,20,28,15,21,10,14

# R* ->         push 0
#         loop: <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	2430	2536	
==>write_buildscripts {
    my @compiled_files;
    foreach my $obj (@ARGV) {
	my $src = $obj;
	$src =~ s/\.o/ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37553	37656	
==>ed = ' . ($rule->hasleftmost($self) ? 'q{}'
				: 'q{'.$self->describe.'}' ) . ';
		$Parse::RecDescent:: <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39956	40059	
==>ed = ' . ($rule->hasleftmost($self) ? 'q{}'
				: 'q{'.$self->describe.'}' ) . ';
		$Parse::RecDescent:: <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10620	10734	
==>~ tr/ /_/;
        $section =~ tr/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
        $section = $self->unicode_escape <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4005	4111	
==>~ tr/ /_/;
    $section =~ tr/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
    $section = $self->unicode_escape <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	1385	1482	
==>ss Methods

=over 4

=item * C<description()>

Accepts no arguments and returns the value of C<$de <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	62105	62197	
==>found after quotelike "%s">

C<extract_quotelike> or C<extract_codeblock> found one of the
qu <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	5399	5511	
==>F<$0>.

    It contains Parrot version info, a preamble for inclusion in C code,
    and an array of C<Parrot::Op <==
2	/Users/nnunley/parrot/lib/Test/More.pm	7904	8150	
==>iled.  For example this
test:

    my $foo = 'waffle';  my $bar = 'yarblokos';
    is( $foo, $bar,   'Is foo the same as bar?' );

Will produce something like this:

    not ok 17 - Is foo the same as bar?
    #     Failed test (foo.t at line 139) <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	5869	6101	
==>END_C

print MODULE $preamble;
print MODULE Data::Dumper->Dump([ $real_ops->preamble, [$real_ops->ops ]],
          [ qw($preamble $ops) ]);

print MODULE <<END_C;

1;
END_C

close MODULE;

# finally create an include file with opcod <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	75	172	
==>O/File.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::IO::File - File

=he <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	24573	24695	
==>ck;
    my $args = join ', ', @args;
    my $t;
    $func = $tos->[1];
    # create argument tuple
    if ($builtins{$name} <==
2	/Users/nnunley/parrot/examples/benchmarks/oofib.pl	61	174	
==>y $n = shift;
    return $n if ($n < 2);
    return $self->fibA($n-1) + $self->fibB($n-2);
}
sub fibA {
    my $se <==
2	/Users/nnunley/parrot/Configure.pl	8753	8976	
==>have Perl 5--I'll be pulling
some defaults from its configuration.
END

# EDIT HERE TO ADD NEW TESTS
my @steps = qw(
    init::manifest
    init::defaults
    init::miniparrot
    init::hints
    init::headers
    inter::pro <==
2	/Users/nnunley/parrot/config/gen/icu.pm	32	132	
==>erl Foundation.
# $Id: /parrot/config/gen/icu.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NA <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4956	5055	
==>alue,$stack,$check,$dotpos)
     = @$self{ 'ERRST', 'NBERR', 'TOKEN', 'VALUE', 'STACK', 'CHECK', 'D <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4714	4812	
==>alue,$stack,$check,$dotpos)
     = @$self{ 'ERRST', 'NBERR', 'TOKEN', 'VALUE', 'STACK', 'CHECK', 'D <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2378	2494	
==>{
	my($self)=shift;

		exists($$self{USER})
	or	$$self{USER}={};

	$$self{USER};
	
}

sub YYErrok {
	my($s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2286	2391	
==>{
	my($self)=shift;

		exists($$self{USER})
	or	$$self{USER}={};

	$$self{USER};
	
}

sub YYErrok {
	my($s <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	4750	4860	
==>y $class = ref($_[0]) || $_[0];
	my $name  = $_[1];
	my $owner = $_[2];
	my $line  = $_[3];
	my $replace = $_[4 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	4285	4492	
==>next;
        } else {
          $self->{'in_pod'} = $self->{'start_of_pod_block'}
                            = $self->{'last_was_blank'}     = 1;
          # And fall thru to the pod-mode block further down <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	32715	32885	
==>~ /^\(eval\)/;
    }
    $Test->{Test_Died} = 1 unless $in_eval;
};

sub _ending {
    my $self = shift;

    $self->_sanity_check();

    # Don't bother with an ending if <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15651	15802	
==>ly (at least
that is what I hope).

= ENVIRONMENT

Setting the environment variable TEST_ALWAYS_CALLER to force Test.pm to always
append the caller info <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30428	30752	
==>rt_line'}
              . ") unless the first thing after the =over is an =item"
            );
          }
          # Just turn it into a paragraph and reconsider it
          $para->[0] = '~Para';
          unshift @$paras, $para;
          next;

        } elsif($over_type eq 'text') {
          my $item_type = $self->_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	32336	32454	
==>functioncall' => 31,
			'explist1' => 158,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553842	553945	
==>ject;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+4}};\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555239	555342	
==>ject;\n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+4}};\n <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	3184	3282	
==>e($charset_dir, 'tables.h');
open STDOUT, '>', $h_file
    or die "can not open '$h_file': $!\n";
p <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27701	27875	
==>pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end translation\n";

		# Emit code to fix up the stack type array.
		for (1..$rule->{'pop'}) {
			$pir .= "    type_trans = po <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37250	37393	
==>pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end translation\n";

		# Emit code to fix up the stack type array.
		$pir .= <<PIR;
pop_count = <==
2	/Users/nnunley/parrot/config/auto/msvc.pm	93	228	
==>0T02:28:15.110975Z coke  $

=head1 NAME

config/auto/msvc.pm - Microsoft Visual C++ Compiler

=head1 DESCRIPTION

Determines whether the <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	4025	4210	
==>e
{
	my $self = shift;
	my $type = $self->type_for_suffix($self->suffix);
	
	return $type unless $type eq $UNDEFINED;
	
	$type = $self->type_for_name($self->name);
	
	return $type unless <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1173	1391	
==>urrpos'}}), "\n";
  return;
}

sub _handle_text { # self, text
  DEBUG > 2 and print "Handling $_[1] text-event\n";
  push @{ $_[0]{'_currpos'}[0] }, $_[1];
  return;
}


# A bit of evil from the black box...  please av <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	56679	56838	
==>ields = extract_multiple($text,
                   [
                        { Delim => sub { extract_delimited($_[0],q{'"}) } },
                        { Brac <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	1738	1934	
==>include -I/opt/local/include -pipe -fno-common -Wno-long-double  -I /opt/local/include',
             'ccwarn' => '-Wall -Wstrict-prototypes -Wmissing-prototypes -Winline -Wpointer-arith -Wcast-qua <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	46406	46582	
==>: \$obj->$attrname() or \$obj->$attrname(\$new_value)"
      ) unless (@_ == 1 or @_ == 2) and ref $_[0];
      (@_ == 1) ?  $_[0]->{$attrname}
                : ($_[0]->{$attrn <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30058	30192	
==>ONS => {
			"(" => 48,
			"{" => 38,
			'STRING' => 44
		},
		GOTOS => {
			'tableconstructor' => 46,
			'args' => 149
		}
	}, <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10893	11115	
==>9
	.const int ELEMENT_TYPE_I8 = 0x0A
	.const int ELEMENT_TYPE_U8 = 0x0B
	.const int ELEMENT_TYPE_R4 = 0x0C
	.const int ELEMENT_TYPE_R8 = 0x0D
	.const int ELEMENT_TYPE_STRING = 0x0E
	.const int ELEMENT_TYPE_PTR = 0x0F
	.cons <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	4343	4471	
==>$value =~ /^[-+]?\d+$/) {
      $self->_add_inst ('', 'new',[$return,'.Integer']);
      $self->_add_inst ('', 'set',[$return,$va <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1263	1365	
==>ODE', YYVERSION => '',
			 YYRULES => 'ARRAY', YYSTATES => 'ARRAY', YYDEBUG => '');
#Mandatory parame <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1220	1320	
==>ODE', YYVERSION => '',
			 YYRULES => 'ARRAY', YYSTATES => 'ARRAY', YYDEBUG => '');
#Mandatory parame <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	40827	40990	
==>t;
  my @max_len=(0)x3;
  for my $row(@$colref) {
    for(0..$#{$row}) {
      $max_len[$_]=length($row->[$_]) if length $row->[$_] > $max_len[$_];
    }
  }
  @max <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11	117	
==>To PIR Translator
# This SRM algorithm keeps track of the current stack depth and assigns to
# virtual regi <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	11	117	
==>To PIR Translator
# This SRM algorithm keeps track of the current stack depth and assigns to
# virtual regi <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	17179	17328	
==>sh @opcodes, new LocalDir( $parser,
                    'result' => $result,
                );
                push @opcodes, new KeyedGetOp( $par <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18216	18329	
==>sh @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new KeyedGetOp( $par <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1126	1218	
==>include -I/opt/local/include -pipe -fno-common -Wno-long-double  -I /opt/local/include   -g - <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	1130	1222	
==>include -I/opt/local/include -pipe -fno-common -Wno-long-double  -I /opt/local/include   -g - <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	4179	4357	
==>0,$missing) =~ m/^(.*)\Z/m;
	return length($1);
}

sub STORE
{
	die "Can't set column number via \$thiscolumn\n";
}


package Parse::RecDescent::OffsetCounter;

sub TIESCALAR	# ($ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2103	2200	
==>all the PMCs in the library,
I<or> E<lt>libnameE<gt>.c and pmc_E<lt>libnameE<gt>.h if his object
r <==
2	/Users/nnunley/parrot/lib/Test/More.pm	7641	7755	
==>o ne '',     "Got some foo" );

(Mnemonic:  "This is that."  "This isn't that.")

So why use these?  They produce b <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	55680	55778	
==>sed into the appropriate class, 

If the extractor fails to match (in the case of a regex extractor <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18022	18155	
==>"
	end select
	print "Ongoing (right also)"
end select
select case t*1+0
case 1 to 10, t*2, >100
	print "Wrong 1!"
case 49 to 49, t*2, <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18447	18544	
==>my $sub_name = Jako::Construct::Expression::Value::Identifier->new($block, $token);

      $self-> <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	657	753	
==>ew($path)>

Returns the instance for C<$path> if it already exists, otherwise it is
created and c <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	9534	9676	
==>g->{type};
        $is_repeating = $arg->{repeating};
    }

    $max = undef if $is_repeating;
    
    return $min, $max;
}

=head1 TODO

Doe <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	6842	6986	
==>, 'exe') . " " . File::Spec->catdir( $cfg{bench_path}, $name . $bench{$name}{$prog})
            );
            my $stop = $Get_Time{ $cfg{method <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1096452	1096771	
==>ODE" => 1216,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 236 \"src/ops/experimental.ops\"\n    PMC *ns = Parrot_NameSpace_name(interpreter, \n                                    VTABLE_namespace(int <==
2	/Users/nnunley/parrot/config/auto/gdbm.pm	1792	2089	
==>nt " (yes) " if $verbose;
            $self->result('yes');
        }
    }
    unless ($has_gdbm) {

        # The Config::Data settings might have changed for the test
        $conf->data->set(libs      => $libs);
        $conf->data->set(ccflags   => $ccflags);
        $conf->data->set(linkflag <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10350	10445	
==>, pop_count, label_num, sp_dest
    .local int i, j, type, try_offset, try_length, try_end, hand <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	9327	9553	
==>\": $!\n";

  my $data   = eval { fd_retrieve $fh };
  $data    ||= [MAX_RATE, BURST];
  my $bucket = Algorithm::TokenBucket->new(@$data);

  my $exit;
  unless($bucket->conform(1)) {
    print "Rate limiting -- please wait a b <==
2	/Users/nnunley/parrot/config/auto/gc.pm	246	341	
==>s passed to F<Configure.pl>
and sets the memory allocator accordingly.

C<--gc> can take the val <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	44333	44434	
==>tor (if any),

=item [4]

the left delimiter of the first block of the operation,

=item [5]

the text <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	3762	4029	
==>"#line 123 \"src/ops/core.ops\"\n  opcode_t *this = CUR_OPCODE;\n  this = HANDLE_EVENTS(interpreter, this);\n  {{=this}};\t/* force this being a branch op */\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3622	3717	
==>narray,$outhash)=@_;
	my($prm,$value);
	my($prmlst)={};

	while(($prm,$value)=splice(@$inarr <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3434	3525	
==>narray,$outhash)=@_;
	my($prm,$value);
	my($prmlst)={};

	while(($prm,$value)=splice(@$inarr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1039123	1039390	
==>1,
                  "ARGS" => [
                              "s",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 120 \"src/ops/var.ops\"\n    Parrot_store_global(interpreter, {{\ <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	2666	2899	
==>&& (*jit_info->prev_op $1 $opcodes{$2})/g;
            $header .= $line;
            next;
        }
        # ignore comment and empty lines
        next if (($line =~ m/^;/) || ($line =~ m/^\s*$/));
        if (!defined($function) & <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9745	9862	
==>*Dicard invalid token ".&$ShowCurToken.".\n";

			$$token=$$value=undef;
		};

        $$errstatus=3;

		while( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9307	9417	
==>*Dicard invalid token ".&$ShowCurToken.".\n";

			$$token=$$value=undef;
		};

        $$errstatus=3;

		while( <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	395	518	
==>$plan, @args );

    __PACKAGE__->_export_to_level( 2, __PACKAGE__ );
}

my $count;

foreach my $meth ( qw(is isnt like) ) { <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	312	435	
==>$plan, @args );

    __PACKAGE__->_export_to_level( 2, __PACKAGE__ );
}

my $count;

foreach my $meth ( qw(is isnt like) ) { <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15305	15423	
==>ord($1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # return a single scalar
    ($x = ((@_ == 1) ? $_[0] : <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16486	16604	
==>ord($1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } else { # return a single scalar
    ($x = ((@_ == 1) ? $_[0] : <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117897	118126	
==>ine 226 \"src/ops/bit.ops\"\n  {{\@1}} >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118636	118865	
==>ine 226 \"src/ops/bit.ops\"\n  {{\@1}} >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2451	2538	
==>mples/mops/mops.cs>,
F<examples/mops/mops.il>,
F<examples/mops/mops.p6>,
F<examples/mops <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	2451	2538	
==>mples/mops/mops.cs>,
F<examples/mops/mops.il>,
F<examples/mops/mops.p6>,
F<examples/mops <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	482183	482697	
==>e_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 552,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 446 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  i <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48908	49032	
==>imum repetition of zero, nor can they have
					       negative components in their ranges.");
				}
			}
			
			$prod && $pr <==
2	/Users/nnunley/parrot/tools/dev/symlink.pl	253	371	
==>lso:
# 	- being called with a relative path
#	- being called through a symlink
#
# jhi@iki.fi
#

use strict;

use File: <==
2	/Users/nnunley/parrot/config/auto/jit.pm	2963	3183	
==>able) {
        my ($jitcpuarch, $jitosname) = split(/-/, $jitarchname);

        $conf->data->set(
            jitarchname => $jitarchname,
            jitcpuarch  => $jitcpuarch,
            jitcpu      => uc($jitcpuarc <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1332	1606	
==>es();           # time N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_ <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1332	1606	
==>es();           # time N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243981	244095	
==>rpreter, {{\@2}});\n  {{\@1}} = string_compare(interpreter, l, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244913	245027	
==>rpreter, {{\@2}});\n  {{\@1}} = string_compare(interpreter, l, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1045120	1045544	
==>> "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1168,
                  "ARGS" => [
                              "kc",
                              "s",
                              "p"
                            ], <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	2181	2291	
==>>SUPER::compile($compiler);
  $compiler->outdent;

  $compiler->emit("_${name}_LEAVE:");
  $compiler->emit("  . <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	5391	5494	
==>ons{buildprefix};

    $directories{dirname($dest)} = 1;
    push(@files, [ $src => $dest ]);
} continue <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5305	5463	
==>}
		push(@{$elsestack->{$elsetag}}, $elseline);
		push @{$code{$seg}->{code}}, <<CODE;
	branch ELSEBRANCH_$elseline
	# The expression was not true...
	IFBRANCH <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16230	16434	
==>en Duncan <perl@DarrenDuncan.net>

Nathan Gray <kolibrie@graystudios.org>

Max Maischein <corion@cpan.org>

Ingo Blechschmidt <iblech@web.de>

Gaal Yahas <gaal@forum2.org>

= COPYRIGHT

Copyright (c) 2005, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83721	83816	
==>eter,\n      interpreter->iglobals, IGLOBALS_COMPREG_HASH);\n  VTABLE_set_pmc_keyed_str(interpre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84627	84722	
==>eter,\n      interpreter->iglobals, IGLOBALS_COMPREG_HASH);\n  VTABLE_set_pmc_keyed_str(interpre <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	2302	2563	
==>cess to do it the first time.
    my $devnull = File::Spec->devnull;
    my $cmd = "cxref -raw -Iinclude -xref @files";
    print "Running cxref (pass 1)\n";
    system("$cmd > $devnull 2>$devnull");
    print "Running cxref (pass 2)\n";
    open(F, "$cmd 2>$dev <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	23928	24069	
==>del    = $_[1];
	my $pre     = defined $_[2] ? $_[2] : '\s*';
	my %options = defined $_[3] ? %{$_[3]} : ();
	my $omode   = defined $options{fa <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	473	575	
==>ss {}, $invocant;
}


# Internal routine to emit code to really do any moves we've done lazily.
sub _do <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5075	5200	
==>t) or die "Copy $_$LOAD_EXT failed ($?)\n";

        # Execute permissions on libraries is especially important on
        # s <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5286	5411	
==>t) or die "Copy $_$LOAD_EXT failed ($?)\n";

        # Execute permissions on libraries is especially important on
        # s <==
2	/Users/nnunley/parrot/lib/Test/More.pm	22522	22708	
==>and you'll know immediately when they're fixed.

Once a todo test starts succeeding, simply move it outside the block.
When the block is empty, delete it.

B<NOTE>: TODO tests require a T <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36881	37093	
==>ethods

=over 4

=cut

package Parrot::Pmc2c::delegate;
use base 'Parrot::Pmc2c';

=item C<implements($method)>

True for vtables.

=cut

sub implements
{
    my ($self, $meth) = @_;
    $self->implements_vtable($ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423598	423691	
==>src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_listen(interpreter, {{\@2}}, {{\@3}});\n    {{+=4} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	424495	424588	
==>src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_listen(interpreter, {{\@2}}, {{\@3}});\n    {{+=4} <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15737	15851	
==>nti-crawling, gives 0
function foo
	print y
	foo=99
end function
y=66.66
u=foo()

' Bubble sort cities
TRUE=1
FALSE <==
2	/Users/nnunley/parrot/config/inter/progs.pm	295	445	
==>yzer generator and parser generator to use. Also whether debugging
should be enabled.

=cut

package inter::progs;

use strict;
use vars qw($descriptio <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	30813	31069	
==>ial substring of the text that
is appropriately delimited. If the delimiter string has multiple
characters, the first one encountered in the text is taken to delimit
the substring.
The third argument specifies a prefix pattern that is to be skipped
(but mus <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4249	4349	
==>return
value of an C<expr_I<X>> method (implemented in subclass).

=cut

sub gen_goto 
{
    my ($sel <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	266	390	
==>s> to provide a
function-based (slow or fast core) run loop.

=head2 Instance Methods

=over 4

=cut

package Parrot::OpTrans <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	46005	46133	
==>er have nbsp_for_S off.
    }
  }

  return $is_s;
}

#-------------------------------------------------------------------------- <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	190	361	
==>oot documentation section

=head1 SYNOPSIS

    use Parrot::Docs::Section::Parrot;

    Parrot::Docs::Section::Parrot->new->write_html;

=head1 DESCRIPTION

This is the top <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2986	3146	
==>s/^/\t/gm;
		print CODE;
	}
	# Put back all of the globals we've used in this sub
	@saves=();
	foreach my $var (keys %{$code{$seg}->{declarations}}) {
		if (exis <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8310	8405	
==>"Foo";tab$(15);"Stuff"
print "I am the very model of a modern";tab$(15);"More"
print "Hello","Ag <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21174	21269	
==>"Foo";tab$(15);"Stuff"
print "I am the very model of a modern";tab$(15);"More"
print "Hello","Ag <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64795	65020	
==>ode;\n  runops(new_interp, REL_PC + {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65746	65971	
==>ode;\n  runops(new_interp, REL_PC + {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22215	22413	
==>)
{
	my ($self, $namespace, $rule) = @_;
	
'
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' )
		    .($::RD_NO_TRACE?'':'

		Parse::RecDescent::_trace(q{Trying directive: ['
					. $self->d <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	818	942	
==>n whether the C<inline> keyword is present
in the op definition. This has the effect of causing all ops to be
considered manu <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	8117	8224	
==>s defined $t and length $t;
    # TODO: enforce some limitations on what a target name can be?
    $this->{' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841601	841708	
==>rc/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842365	842472	
==>rc/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21570	21674	
==>l = $self->_gensym();

  $return = $self->_constant(1);
  my $temp = $self->_generate($node->{children}[1 <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21955	22059	
==>l = $self->_gensym();

  $return = $self->_constant(1);
  my $temp = $self->_generate($node->{children}[1 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	5818	5970	
==>require('ident');         }
sub require_literal       { return shift->require('literal');       }
sub require_open_brace    { return shift->require('open <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	462	579	
==>ess "Expected 5 args!" unless @_ == 5;

  my ($block, $prefix, $left, $op, $right) = @_;

  my $self = bless {
    BLO <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	462	579	
==>ess "Expected 5 args!" unless @_ == 5;

  my ($block, $prefix, $left, $op, $right) = @_;

  my $self = bless {
    BLO <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	6053	6178	
==>+ 1 again.
    return $self->line_directive(1 + 1 + count_newlines($output), $file);
}

=item C<get_vtable_section()>

Creates <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1343	1440	
==>ster type).
dec ${ITEMP0}
${PTEMP0} = ${STYPES}[${ITEMP0}]

# Assign register name.
${STEMP0} = "$ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3053	3150	
==>ster type).
dec ${ITEMP0}
${PTEMP0} = ${STYPES}[${ITEMP0}]

# Assign register name.
${STEMP0} = "$ <==
2	/Users/nnunley/parrot/config/inter/types.pm	415	588	
==>se Parrot::Configure::Step ':inter';

$description = 'Determining what types Parrot should use';

@args = qw(ask intval opcode floatval);

sub runstep
{
    my ($self, $conf) <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	13905	14009	
==>l_state st;';
    my $extra_preamble  = join("\n    ", @{$extra_preamble_ref});
    my $extra_postamble = <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	595	742	
==>label);
}

sub output_match {
    my ($self, $byte) = @_;
    my $comment = '';
    if ($byte =~ /^[\w ]$/) {
        $comment = " # '$byte'";
    } <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1033	1125	
==>s
content, and then an end-token with the tagname of "head1".

=item $token->tagname(I<somest <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1461	1553	
==>s
content, and then an end-token with the tagname of "head1".

=item $token->tagname(I<somest <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3963	4066	
==>ompile $group.c failed ($?)\n";
    }
} 
elsif ($mode eq 'linklibs') {
    my ($group_files, $group_libs <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4067	4170	
==>ompile $group.c failed ($?)\n";
    }
} 
elsif ($mode eq 'linklibs') {
    my ($group_files, $group_libs <==
2	/Users/nnunley/parrot/lib/Test/More.pm	15670	15816	
==>ilent by passing the "no_diag" option to
Test::More.  C<use Test::More tests => 1, 'no_diag'>.  This is useful
if you have diagnostics for personal <==
2	/Users/nnunley/parrot/config/init/hints/openbsd.pm	515	618	
==>et(libs => $libs);

	if ((split('-', $Config{archname}))[0] eq 'powerpc') {
		$conf->data->set(as => 'as <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	20512	20653	
==>LOAT$//);
            $right = 'enum_type_STRING'   if ($func =~ s/_STR$//);
            if (exists $self->{super}{$meth}) {
                p <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9686	9786	
==>G0})

# If it's a call to instantiate, need to knock off first arg.
if "${CURIC}" != "73" goto pre_ca <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7200	7300	
==>G0})

# If it's a call to instantiate, need to knock off first arg.
if "${CURIC}" != "73" goto pre_ca <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	4009	4108	
==>ie "Could not locate enternative op!\n" unless defined $enternative;

    # Copy original bytecode t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	331634	331876	
==>ELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdopen",
                  "FLAGS" => ":filesys_open", <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	6527	6692	
==>6,
 'exist'    , 8707,
 'empty'    , 8709,
 'nabla'    , 8711,
 'isin'     , 8712,
 'notin'    , 8713,
 'ni'       , 8715,
 'prod'     , 8719,
 'sum'      , 8721,
 'm <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	8645	8810	
==>$Undef,  $undef ) if $show;
		want_show(\$show, $File,   $file  ) if $show;
		if ($show) {
		    $show = $ObjectName ? "$o\t$name" : $name;
		    if (defined $Type) { <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	4670	4844	
==>ator.
# ###############
sub validate_rule($) {
    my $rule = shift;
    
    # Flags we'll set as we go through key/value pairs.
    my ($has_code, $has_class, $has_push, $ha <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	24839	24963	
==>C";
        enter_nci_method(interp, entry,
                F2DPTR(Parrot_${classname}_$method->{meth}),
                "$me <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9661	9814	
==>ame characters that 
            #  an XML Name still can't start with.
    }
    
    $this->{'accept_codes'}{$new_code} = $new_code;
    
    # Yes, map <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	324613	324755	
==>"
                            ],
                  "BODY" => "#line 144 \"src/ops/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	508560	508803	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509191	509434	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "neg",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105197	105578	
==>> ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 131,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BOD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	196443	196557	
==>(interpreter, {{\@1}}, {{\@2}}, MMD_NUMCMP) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121982	122115	
==>e casts are evil, but this one isn't evil enough to kill.\n   * it's just casting a signed integral to the equivalent unsigned.\n   */ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122894	123027	
==>e casts are evil, but this one isn't evil enough to kill.\n   * it's just casting a signed integral to the equivalent unsigned.\n   */ <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	6976	7080	
==>nly for *experimental* ops
# other opcodes are just skipped
sub find_op_number {
    my ($opname, $experi <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	3615	3708	
==><need_ext>.

=item C<does interface>

The class 'does' the given interfaces (the collection of <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6785	7007	
==>, {{\@1}});\n    {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63896	64116	
==>, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_R <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	5916	6100	
==>ame} ){
                $out .= "    my \$i;\n";
                $out .= "    \@_ ? (\$i = shift) : return \$r->$elem;\n";
                $out .= "    if (ref(\$i) eq 'HASH' && !\@_) { <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	5608	5786	
==>ame} ){
                $out .= "    my \$i;\n";
                $out .= "    \@_ ? (\$i = shift) : return \$r->$elem;\n"; 
                $out .= "    if (ref(\$i) eq 'ARRAY' && <==
2	/Users/nnunley/parrot/lib/Test/More.pm	31855	32021	
==>return $ok;
}

=item B<eq_set>

  my $is_eq = eq_set(\@this, \@that);

Similar to eq_array(), except the order of the elements is B<not>
important.  This is a deep che <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3360	3461	
==>item C<access_arg($type, $num, $op)>

Returns the C code for the specified op argument type (see
C<Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3504	3605	
==>item C<access_arg($type, $num, $op)>

Returns the C code for the specified op argument type (see
C<Par <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4063	4186	
==>er '".lc($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _DBLoad {
	{
		no strict 'refs';

			exist <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3860	3971	
==>er '".lc($_)."'");
	}
}

sub _Error {
	print "Parse error.\n";
}

sub _DBLoad {
	{
		no strict 'refs';

			exist <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11660	11774	
==>");
}

sub output_call_setup {
    my ($self, $name, $uid) = @_;
    return ".local pmc $uid";
}

sub output_call { <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4338	4485	
==>suffix =~ /^(?:dump|html|flag|o)$/o
        or $self->name =~ /^(?:perl6-config|libparrot.def|CFLAGS|myconfig|(?:core_pmcs|exec_(?:cpu|dep)|fingerpr <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35594	35698	
==>subrule ($) { return $_[0]->{"subrule"} }
sub isterminal { 0 }
sub sethashname { }

sub describe ($)
{
	m <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33073	33176	
==>subrule ($) { return $_[0]->{"subrule"} }
sub isterminal { 0 }
sub sethashname {}

sub describe ($)
{
	m <==
2	/Users/nnunley/parrot/lib/Test/More.pm	12855	12991	
==>Test customer').

=cut

sub isa_ok ($$;$) {
    my($object, $class, $obj_name) = @_;

    my $diag;
    $obj_name = 'The object' unless d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70374	70687	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "loadlib",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71142	71455	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "loadlib",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	900	1001	
==>leading/trailing pattern delimiters.

(Hint: if you try using qr// for the $pattern then you're misrea <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2998	3099	
==>leading/trailing pattern delimiters.

(Hint: if you try using qr// for the $pattern then you're misrea <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1987	2108	
==>$class)
    and $class=ref($class);

    bless($self,$class);
}

sub YYParse {
    my($self)=shift;
    my($retval <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1918	2031	
==>$class)
    and $class=ref($class);

    bless($self,$class);
}

sub YYParse {
    my($self)=shift;
    my($retval <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8030	8177	
==>o be Properties:
      #

      my %props;

      while ($self->skip_colon) {
        my $prop = $self->require_ident->text;
      
        my $valu <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5036	5177	
==>o be Properties:
      #

      my %props;

      while ($self->skip_colon) {
        my $prop = $self->require_ident->text;

        my $valu <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	4975	5101	
==>ns the contents of the item interpreted relative to the source
directory.

=cut

sub contents_relative_to_source
{
    my $self <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	12300	12435	
==>$reg_num);";
        return "t_$temp_num";
    };
    /t/ && do {
        push @{$temps_ref}, "char *t_$temp_num;";
        push @{$extr <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	21133	21265	
==>os,	$rd2pos-$str2pos,	# 2ND STR (MAYBE)
		$rd2pos,	$second_arg,		# 2ND RDEL (MAYBE)
		$modpos,	$endpos-$modpos,	# MODIFIERS
		$endpos <==
2	/Users/nnunley/parrot/lib/Test/More.pm	4383	4556	
==>ned_plan;
    while( $idx <= $#plan ) {
        my $item = $plan[$idx];

        if( $item eq 'no_diag' ) {
            $Show_Diag = 0;
        }
        else {
            p <==
2	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	1478	1649	
==>en) == 0;
}

size_t
PackFile_write_fingerprint (void *cursor)
{
    memcpy (cursor, fingerprint, $len);
    return $len;
}
EOF

} else { # !DEVELOPING

  print << "EOF";
/* <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3282	3391	
==>_OP_${CURIC}_LAZY_MOVE_$register_num

# No lazy move available - need to refer to register.
${STEMP0} = "$"
${ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	34606	34702	
==>orrectly nested within the substring, and any other kind of
("non-delimiter") bracket in the subs <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	47470	47628	
==>[5] );
        }
	],
	[#Rule 17
		 '@4-4', 0,
sub
#line 120 "Lua\lua51.yp"
{
            PushScope( $_[0] );
        }
	],
	[#Rule 18
		 'stat', 7, <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	6089	6220	
==>le with opcode number

my $inc_f = "include/parrot/oplib/ops.h";
my $inc_dir = "include/parrot/oplib";
if (! -d $inc_dir) {
    mkdi <==
2	/Users/nnunley/parrot/languages/lua/luac.pl	1016	1130	
==>parser->Generate();
}

__END__

=head1 NAME

luac - Lua compiler

=head1 SYNOPSIS

 luac [options] I<sou <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	953	1107	
==>L WHITESPACE
   $skip  = '\s*';		# UNIVERSAL SEPARATOR IS OPTIONAL WHITESPACE
my $MAXREP  = 100_000_000;	# REPETITIONS MATCH AT MOST 100,000,000 TIMES


su <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	7012	7127	
==>($_) || $_ !~ /^\d+$/ } @subop_startset;
        foreach (@subop_startset) {
            return 0 if exists($start{$ <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	4038	4142	
==>String="[a-zA-Z_][\\w_]*" />
      </context>

END

print <<END;
      <context name="pod" attribute="Com <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	3309	3460	
==>e more than one Test::Builder object and this is how
you get it.  You might use this instead of C<new()> if you're testing
a Test::Builder based module, <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4964	5059	
==>branch NOT_${eqnum}
TRUE_${eqnum}: set $result, 1.0
NOT_${eqnum}: noop
CODE
		die "$a1,$a2,$resu <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	2521	2638	
==>my $file, '<', $filename) or die "Can't open $filename: $!";
    my $sum = 0;
    while (<$file>) {
        next if de <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59154	59258	
==>");
			}
			$rule = new Parse::RecDescent::Rule($rulename,$self,$line,$replace);
			$prod->check_pending( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828798	828889	
==>_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_pmc(ent <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829866	829957	
==>_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_pmc(ent <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6676	6836	
==>tch goto match_fail
          match_success:
            print "matched"
            goto match_end
          match_fail:
            print "failed"
          ma <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7693	7853	
==>tch goto match_fail
          match_success:
            print "matched"
            goto match_end
          match_fail:
            print "failed"
          ma <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	14740	15023	
==>* initialize and return op_lib ptr */
    if (init == 1) {
$init1_code
    return &${bs}op_lib;
    }
    /* set op_lib to the passed ptr (in init) */
    else if (init) {
$init_set_dispatch
    }
    /* deinit - free resources */
    else {
    hop_deinit();
    }
    return NULL;
} <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	11025	11144	
==>$!\n";
    open (OUT, ">$outfile") or die "Can't write $outfile: $!\n";

    print OUT page_header("Line Coverage for $s <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	632	728	
==>for_path = ();

=item C<new($path)>

Returns the instance for C<$path> if it already exists, othe <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	37499	37620	
==>constructed by inserting a C</> after any leading bracket
characters in the actual opening tag that was matched (I<not> th <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	16674	16781	
==>n; 
	}
	$oppos = pos($$textref);

	my $initial = substr($$textref,$oppos,1);

	if ($initial && $initial =~ m <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	8571	8791	
==>s defined($use) and defined($type);

                if ($type =~ /^INTKEY$/i)
                {
                    $type = "ki";
                }
                else
                {
                    $type = lc su <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	1330	1446	
==>ore stderr.
    $exit_code = Parrot::Test::run_command($pycmd, STDOUT => $py_out_f);
    my $py_file = Parrot::Test:: <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	51612	51737	
==>se
				{
					undef $self->{_AUTOACTION};
					$self->{_AUTOTREE}{NODE}
						= new Parse::RecDescent::Action(q{{bless \%item, <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	23288	23409	
==>RR] eq ")";
			}
			my $type;
			$type="FLO";
			my %th=( single => 'FLO', double => 'FLO', long => 'INT', integer => 'INT <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	18212	18318	
==>er

=item my $title_string = $parser->get_title

This tries to get the title string out of $parser, by gett <==
2	/Users/nnunley/parrot/config/init/manifest.pm	430	522	
==>e ExtUtils::Manifest qw(manicheck);

$description = 'Checking MANIFEST';

@args = qw(nomanich <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87372	87491	
==>],
                  "BODY" => "#line 1215 \"src/ops/core.ops\"\n  {{\@1}} = Parrot_make_cb(interpreter, {{\@2}}, {{\@3} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88374	88493	
==>],
                  "BODY" => "#line 1215 \"src/ops/core.ops\"\n  {{\@1}} = Parrot_make_cb(interpreter, {{\@2}}, {{\@3} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946587	946852	
==>ind_charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947488	947753	
==>ind_charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	8597	8729	
==>ate a copy and remove strings and comments so that
    # unbalanced {} can be used in them in PMCs, being careful to
    # preserve s <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	7487	7757	
==>ate ?? "Unwanted" !! "Expected";

    # As PIL2JS doesn't support junctions yet, skip the junction part when
    # running under PIL2JS.
    if (index('&Test::is &Test::isnt &Test::cmp_ok &Test::eval_is &Test::isa_ok &Test::is_deeply &Test::todo_is &Test::todo_isnt &Test <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	3493	3593	
==>f->type->imcc;
  my $name  = $self->name;
  my $value = $self->value->value;

  if ($self->is_global) <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	35351	35489	
==>'round'            => \&_op_round,
  'rationalize'      => \&_op_rationalize,
  'exp'              => \&_op_exp,
  'log'              => \& <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	888	1094	
==>"$class new() doesn't know to clone $new" );
    }
  } else { # misc stuff
    $new = [ '', {}, @_ ];
  }

  # By now it's a treelet:  [ 'foo', {}, ... ]
  foreach my $x (@$new) {
    if(ref($x || '') eq 'AR <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7092	7200	
==>$, "")
print "Start (11): ", instr(6, s1$, " ")
print "Inval  (0): ", instr(4, bogus$, "t")
' instr() tests
s <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18821	18929	
==>$, "")
print "Start (11): ", instr(6, s1$, " ")
print "Inval  (0): ", instr(4, bogus$, "t")
' instr() tests
s <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	21842	21972	
==>nstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 68
		ACTIONS => {
			"^" => 79
		},
		DEFAULT => -73 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	1059	1171	
==>ift;
	my $name = shift || die "No name.\n";
	my $text = shift;
	my @contents = @_;
	
	# TODO - Groups should only <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217447	217841	
==>"i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 255,
                  "ARGS" => [
                              "p",
                              "nc",
                              "ic"
                            ],
                  "BODY" => "#line 462 \" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3463	3614	
==>, so you can change
C<$Text::Wrap::columns> as you like.

This is a subclass of L<Pod::Simple> and inherits all its methods.

=head1 SEE ALSO

L<Pod::Si <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2400	2510	
==>o)>

Runs the target string against the Perl 6 pattern, passing the test
if the output produced by the test cod <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3834	3944	
==>o)>

Runs the target string against the Perl 6 pattern, passing the test
if the output produced by the test cod <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	59540	59704	
==>for a given specified delimiter, '\' is used.

Note that 
C<gen_delimited_pat> was previously called
C<delimited_pat>. That name may still be used, but is now deprec <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39759	39862	
==>lay' => \&_op_display,
  'newline' => \&_op_newline,
  'write-char' => \&_op_write_char,

####
#### Syst <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	49359	49626	
==>'stat', 5,
sub
#line 176 "Lua\lua51.yp"
{
            my $var = BuildLocalVariable( $_[0], $_[4] );
            Insert( $_[0], $var );
            BuildAssigns( $_[0], [$var], [ $_[5] ] );
        }
	],
	[#Rule 30
		 'stat', 4,
sub
#line 182 "Lua\lua51.yp" <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	22469	22623	
==>h @localmv, 'CURIC';

	# Emit dispatch label.
	my $name = $rule->{'name'};
	$pir .= "    # Translation code for $name\n";
	$name =~ s/\./_/g;
	$pir .= "INS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	246098	246442	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp_num",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	1524	1700	
==>ift;
        @decls = %{shift()};
        _usage_error() if @_;
    }
    elsif ( $base_type eq 'ARRAY' ) {
        $class = shift;
        @decls = @{shift()};
        _usage_e <==
2	/Users/nnunley/parrot/examples/benchmarks/primes.pl	23	114	
==>(C) 2001-2003, The Perl Foundation.
# $Id: /parrot/examples/benchmarks/primes.pl 19601 2006- <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	42886	43023	
==>$max_len[0]-length($label)+2);
    if(defined $row->[1]) {
      $label = $row->[1];
      $self->{code} .= $label . ' ' x ($max_len[1]-le <==
2	/Users/nnunley/parrot/config/init/defaults.pm	171	292	
==>nfiguration Defaults

=head1 DESCRIPTION

Sets up the configuration system's default values and data structures.

=cut

pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	204339	204608	
==>tion",
                  "CODE" => 241,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 380 \"src/ops/cmp.ops\"\n  i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	882028	882552	
==>",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 999,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#l <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	3827	3926	
==>:
BEGIN {
  *pretty        = \&Pod::Simple::BlackBox::pretty;
  *stringify_lol = \&Pod::Simple::Blac <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037511	1037785	
==>"CODE" => 1159,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 115 \"src/ops/var.ops\"\n    Parrot_store_global(interpreter, NULL, {{\@1}}, {{\@2}});\n    {{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3200	3298	
==>if(Pod::Simple::ASCII) {
    $self->{'Thispara'} =~ tr{\xA0}{ };
    $self->{'Thispara'} =~ tr{\xAD <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2688	2786	
==>if(Pod::Simple::ASCII) {
    $self->{'Thispara'} =~ tr{\xA0}{ };
    $self->{'Thispara'} =~ tr{\xAD <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	2485	2598	
==>ode, $expected, $description)>

Runs the PAST code and passes the test if a string comparison of output
with the e <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1553	1660	
==>}[0] }, [@_];
  return;
}
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1;
__E <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2708	2841	
==>ed smoke was already submitted!";
    exit;
  }

  my %smoke;
  $html =~ /revision: (\d+)/       and $smoke{revision}     = $1;
  $htm <==
2	/Users/nnunley/parrot/lib/Test/More.pm	21141	21285	
==>is in use.
        _carp "skip() needs to know \$how_many tests are in the block"
          unless $Test->has_plan eq 'no_plan';
        $how_man <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	7675	7786	
==>)

sub accept_target         { shift->accept_targets(@_)         } # alias
sub accept_target_as_text { shift->ac <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	1843	1952	
==>t.h>).

Next, the file is searched for C</pmclass \w*/> which attempts to find the
class being declared.

Once <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	9586	9686	
==>e($true);

  $self->_add_inst("FALSE_$label");
  my $false = $self->_generate(_get_arg($node,3));
  $ <==
2	/Users/nnunley/parrot/config/auto/jit.pm	321	421	
==>t;

use strict;
use warnings;

use base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::C <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	277	441	
==>ke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statement::LoopControl;

use Carp;

use base qw(Jako::Construct::Statement);

my %block_types = ( <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8288	8451	
==>n(undef);

			};

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Back to state $$stack[-1][0], then ";

                $$check eq 'ERROR'
            or  d <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7913	8068	
==>n(undef);

			};

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Back to state $$stack[-1][0], then ";

                $$check eq 'ERROR'
            or  d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716840	717128	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_newline",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [],
                  "TYPE" => "function",
                  "CODE" => 804,
                  "ARGS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724746	724931	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "print_newline",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [ <==
2	/Users/nnunley/parrot/Configure.pl	7893	8021	
==>data file(s)

Other Options (may not be implemented):

   --maintainer         Create imcc's parser and lexer files. Needs a work <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	5326	5454	
==>}

sub skip_rest (Str $reason?, :$depends) returns Bool is export {
    Test::skip($Test::num_of_tests_planned - $Test::num_of_te <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	5002	5146	
==>: Cannot open header file '$header' for writing: $!!\n";

open SOURCE, ">$source"
    or die "ops2c.pl: Cannot open source file '$source' for wri <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	417	602	
==>ings;

use base qw( Parrot::OpTrans );

=item C<core_type()>

Returns C<PARROT_FUNCTION_CORE>.

=cut

sub core_type
{
    return 'PARROT_FUNCTION_CORE';
}

=item C<core_prefix()>

Return <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	9737	9851	
==>= @_;

    $text =~ s/\cM\cJ/\n/g;
}

sub path_to_parrot {

    my $path = $INC{'Parrot/Config.pm'};
    $path   =~ <==
2	/Users/nnunley/parrot/tools/docs/pod_errors.pl	123	225	
==>0.183054Z coke  $

=head1 NAME

tools/docs/pod_errors.pl - Reports POD errors

=head1 SYNOPSIS

    % p <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	522	633	
==>ugh input until R matches
# atend : At the end of the input?
# advance : Unconditionally advance 1 char
# code : <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	231	399	
==>%code %options @basic %common);
use vars qw( @syms @type );
use vars qw( %labels $runtime_jump $debug $sourceline);
use COMP_toker;
use COMP_parser;
use COMP_assignments <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	530	651	
==>{
        return "rx_advance P0, $failLabel";
    } elsif ($distance =~ /\D/) {
        die "Unimplemented: variable-lengt <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017475	1017760	
==>AME" => "gmtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1137,
                  " <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2193	2306	
==>=> '-nologo -nodefaultlib',
            libparrot_static     => 'libparrot'.$conf->data->get('a'),
            lib <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4574	4700	
==>nd value that was set
after it has been changed.

Accepts a key name, a trigger name, & a C<CODE> ref and returns a
L<Parrot::C <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757296	757536	
==>ne",
                  "CODE" => 854,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 271 \"src/ops/set.ops\"\n  {{\@1}}->v <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14540	14661	
==>to_unget);
  
  if(DEBUG) {
    if(defined $title) { print "  Returing title <$title>\n" }
    else { print "Returning tit <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	23105	23226	
==>to_unget);
  
  if(DEBUG) {
    if(defined $title) { print "  Returing title <$title>\n" }
    else { print "Returning tit <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	9	136	
==>ht (C) 2001-2005, The Perl Foundation.
# $Id: /parrot/tools/dev/parrot_coverage.pl 19607 2006-05-30T15:23:20.183054Z coke  $

=h <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39339	39460	
==>'       => \&_op_open_input_file,
  'open-output-file'      => \&_op_open_output_file,
  'close-input-port'      => \&_op_ <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6187	6310	
==>} = 1;
        }
    }

    return (\%group_files, \%group_libs, \%pmc_group, \%pmc_libs);
}

sub modtime {
    my $ago = (- <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6398	6521	
==>} = 1;
        }
    }

    return (\%group_files, \%group_libs, \%pmc_group, \%pmc_libs);
}

sub modtime {
    my $ago = (- <==
2	/Users/nnunley/parrot/config/auto/msvc.pm	1786	1991	
==>svcversion >= 14.00) {

        # Version 14 (aka Visual C++ 2005) warns about unsafe, deprecated
        # functions with the following message.
        #
        # This function or variable may be unsafe. <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	630	830	
==>en->text,

    DEBUG  => 1,
    FILE   => $token->file,
    LINE   => $token->line
  }, $class;
}


#
# compile()
#
# By default, compiling a literal does nothing, returning you
# the literal for you t <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	765	872	
==>otice should remain unchanged.
#
# (c) Copyright 1998-2001 Francois Desarmenien, all rights reserved.
# ( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	743	847	
==>otice should remain unchanged.
#
# (c) Copyright 1998-2001 Francois Desarmenien, all rights reserved.
# ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408732	409194	
==>GDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 472,
                  "ARGS" => [
                              "i",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 540 \"src/ops/io.ops\"\n    {{ <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	468	589	
==>= 0 goto power_ok
%% DOMAIN_ERROR %%
power_ok:
    $N1 = %1
    $N2 = %2
    $N1 = pow $N1, $N2
	%1 = $N1

END_PIR

    '\ <==
2	/Users/nnunley/parrot/config/auto/jit.pm	1775	1932	
==>ch = 'ppc';
    }

    $cpuarch =~ s/armv[34]l?/arm/i;
    $cpuarch =~ s/i[456]86/i386/i;

    $conf->data->set(
        archname => $archname,
        cpuarc <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	37528	37623	
==>/> after any leading bracket
characters in the actual opening tag that was matched (I<not> the p <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4577	4668	
==>lf->do_beginning && $self->do_middle && $self->do_end;
}


#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3208	3298	
==>lf->do_beginning && $self->do_middle && $self->do_end;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	304	400	
==>r_to_fallback
  e2char
  e2charnum
);
%EXPORT_TAGS = ('ALL' => \@EXPORT_OK);

#================== <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	2660	2844	
==>ys %bad_fdecls) {
	    my ($function_maybe) = ($bad_fdecls{$_} =~ /^\s*(\S+)\(/);
	    delete $bad_fdecls{$_} unless ($contents =~ /\Q$function_maybe\E/);
        }
	
    }
    close(F) <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25433	25552	
==>$self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    my $temp   = $self->_c <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27333	27450	
==>$self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    my $temp = $self->_c <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30512	30646	
==>atched terminal<< (return value: [}
						. $& . q{])},
						  Parse::RecDescent::_tracefirst($text))
							if defined $::RD_TRACE;') <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28436	28568	
==>atched terminal<< (return value: [}
						. $& . q{])},
						  Parse::RecDescent::_tracefirst($text))
					if defined $::RD_TRACE;') <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	395	492	
==>s (million operations per second) using
integer arithmetic.

Prints out:

=over 4

=item * the num <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	391	488	
==>s (million operations per second) using
integer arithmetic.

Prints out:

=over 4

=item * the num <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840155	840242	
==>ack.ops\"\n  rotate_entries(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840850	840937	
==>ack.ops\"\n  rotate_entries(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834309	834396	
==>terpreter->ctx)->user_stack, {{\@1}}, STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835035	835122	
==>terpreter->ctx)->user_stack, {{\@1}}, STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2} <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	16493	16597	
==>if ($ops) {
		print CODE<<OPS;
	I5= P14
	div I5, I5, 2
CASE_${jump}_${incase}_STARTOPS:
	eq I5, 1, CASE_$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106165	1106269	
==>BODY" => "#line 352 \"src/ops/experimental.ops\"\n    int typ = {{\@2}};\n    if (typ < 1 || typ >= inter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107141	1107245	
==>BODY" => "#line 352 \"src/ops/experimental.ops\"\n    int typ = {{\@2}};\n    if (typ < 1 || typ >= inter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59211	59379	
==>[
                              "i"
                            ],
                  "BODY" => "#line 901 \"src/ops/core.ops\"\n  PARROT_WARNINGS_on(interpreter, {{\@1}} <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	5787	5919	
==>Test::More.  Test::Simple is 100% forward compatible with Test::More
(i.e. you can just use Test::More instead of Test::Simple in you <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	33408	33505	
==>print("1..$self->{Curr_Test}\n") unless $self->no_header;
            $self->{Expected_Tests} = $s <==
2	/Users/nnunley/parrot/config/auto/jit.pm	5413	5591	
==>est_c.in');
            eval { cc_build(); };
            unless ($@ || cc_run() !~ /ok/) {
                $conf->data->set(jit_i386 => 'fcomip');
            }
            cc_cl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	238781	239288	
==>",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 278,
                  "ARGS" => [
                              "i",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 611 \"src/ops/cmp.ops\"\n  {{\@1}} = mmd_dispatch_i_pp <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	4151	4310	
==>('', 'set',[$to,$from]);
    }
  }
}

#---- Section 4 ----

sub __quoted {
  my ($self, $node, $return, $special) = @_;

  if (exists $node->{value}) {
    my $ <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	5806	5988	
==>f $ARGV"
                unless exists $sig_char{$_};
            push @arg, make_arg($_, $reg_num++, \$temp_cnt, \@temps,
                                \@extra_preamble, \@extra_po <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	775	892	
==>ata->get('ccflags');
    if ($^O =~ /mswin32/i) {
        if ($cc =~ /^gcc/i) {
            $conf->data->add(' ', libs <==
2	/Users/nnunley/parrot/config/auto/readline.pm	787	904	
==>ata->get('ccflags');
    if ($^O =~ /mswin32/i) {
        if ($cc =~ /^gcc/i) {
            $conf->data->add(' ', libs <==
2	/Users/nnunley/parrot/config/init/hints/vms.pm	126	242	
==>package init::hints::vms;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    $conf->data->set(
        ccfl <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	14940	15083	
==>ree::rule::reftree {
    my $op = shift;
    my ($rule, $tree) = @{ $op->{args} };
    return [ annotated($op, "rule($rule)"),
             $tre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219252	219549	
==>t",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 257 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54189	54364	
==>?$/s
         and $_ ne '-0' # the strange case that that RE lets thru
      )
    ) { $_;
    } else {
      if( chr(65) eq 'A' ) {
        s<([^\x20\x21\x23\x27-\x3F\x41-\x5B <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	5042	5148	
==>nd -e ".svn/text-base/$_.svn-base" and MANIFEST();
}

sub MANIFEST {
    my $loc = '[]';
    for ($File::Fi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759825	759957	
==>> "#line 281 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_pmc(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/Configure.pl	10256	10364	
==>r that, you can use `$make test' to run the test suite.

Happy Hacking,
        The Parrot Team

END

exit(0) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434473	434567	
==>th.ops\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435488	435582	
==>th.ops\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  { <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	30235	30404	
==>e sure, tell it explicitly
what $pack to use.

=cut

sub todo {
    my($self, $pack) = @_;

    $pack = $pack || $self->exported_to || $self->caller($Level);
    return 0 <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	51998	52151	
==>essions) to apply to that string.

In an array context C<extract_multiple> returns an array of substrings
of the original string, as extracted by the spec <==
2	/Users/nnunley/parrot/config/init/optimize.pm	277	443	
==>m to
the C<CCFLAGS>. Should this be part of config/inter/progs.pm ? XXX

=cut

package init::optimize;

use strict;
use vars qw($description @args);

use base qw(Parro <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	386	550	
==>s a file of function signatures of the form:

    <return-type-specifier><whitespace><parameter-type-specifiers>[<whitespace>][#<comment>]
    ...
Empty lines and li <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	36261	36415	
==>s here.
        $self->_handle_encoding_second_level($para);

        next;  # and skip
      } elsif($para_type eq '~Verbatim') {
        $para->[0] = 'Ve <==
2	/Users/nnunley/parrot/config/gen/platform.pm	2279	2423	
==>$header_file:
*/
#line 1 "$header_file"
END_HERE
            print PLATFORM_H <IN_H>, "\n\n";
            close IN_H;
        }

        # just f <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	10178	10388	
==>ntent="text/html; charset=utf-8" />

  <style type="text/css">
    body {
      background-color: white;
      margin:           0;

      font-family: sans-serif;
      line-height: 1.3em;
      font-size:   95 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714504	714614	
==>ine 75 \"src/ops/python.ops\"\n  STRING * const s = {{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  if <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715427	715537	
==>ine 75 \"src/ops/python.ops\"\n  STRING * const s = {{\@1}};\n  PMC * const io = PIO_STDOUT(interpreter);\n  if <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244008	244282	
==>}} = string_compare(interpreter, l, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244940	245214	
==>}} = string_compare(interpreter, l, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13167	13288	
==>e' a block, then we've got no business
      # seeing a close-brace.
      #

      $self->SYNTAX_ERROR("Closing brace wit <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3795	3898	
==>rors and warnings instead of using
die() and warn().

=cut

sub get_symbol
{
  my $self = shift; # Requi <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	7054	7285	
==>'       , 8805,
 'sub'      , 8834,
 'sup'      , 8835,
 'nsub'     , 8836,
 'sube'     , 8838,
 'supe'     , 8839,
 'oplus'    , 8853,
 'otimes'   , 8855,
 'perp'     , 8869,
 'sdot'     , 8901,
 'lceil'    , 8968,
 'rceil'    , 89 <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10392	10577	
==>/* 49 */
II,$d,$a,$b,$c,$_[11],10,0x432aff97,/* 50 */
II,$c,$d,$a,$b,$_[18],15,0xab9423a7,/* 51 */
II,$b,$c,$d,$a,$_[9],21,0xfc93a039,/* 52 */
II,$a,$b,$c,$d,$_[16],6,0x655b59c3,/* 53 */ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20430	20553	
==>e>, L<RTF::Writer>, L<RTF::Cookbook>, L<RTF::Document>,
L<RTF::Generator>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20693	20816	
==>"
		$usertypes{$typename}=[ @types ];
		print CODE <<TYPE;
	# Type definition for $typename
	new P0, .PerlArray
TYPE
		forea <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8352	8493	
==>DERR "Back to state $$stack[-1][0], then ";

                $$check eq 'ERROR'
            or  do {
#DBG>				$debug & 0x04
#DBG>			and	p <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7972	8108	
==>DERR "Back to state $$stack[-1][0], then ";

                $$check eq 'ERROR'
            or  do {
#DBG>				$debug & 0x04
#DBG>			and	p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059469	1059656	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_name",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060373	1060560	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_name",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	1446	1574	
==>1,
        conditioned_lines              => 1
    );
    genfile(
        'config/gen/makefiles/dynpmc_pl.in' => 'tools/build/dy <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	8232	8468	
==>0])	# This works, but damned if I know why. 
			#and $next->[0] ne ")"  
			){
#			print "Argthing $prev->[0]\n";
			$argthing=1;
		}
		if ($this->[0] eq 'not' and $this->[1] ne "STRING") {
			push(@expr, [ "0.0", "INT"],   # Cheating, m <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6215	6317	
==>return (\%group_files, \%group_libs, \%pmc_group, \%pmc_libs);
}

sub modtime {
    my $ago = (-M shift <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6426	6528	
==>return (\%group_files, \%group_libs, \%pmc_group, \%pmc_libs);
}

sub modtime {
    my $ago = (-M shift <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426967	427102	
==>"ic"
                            ],
                  "BODY" => "#line 64 \"src/ops/math.ops\"\n  mmd_dispatch_v_pi(interpreter, {{\@2}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	4974	5216	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "reserved",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ], <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18428	18634	
==>"one"
select case a$
case "zero"
	print "Bzzt"
case "two"
	print "not"
case "one"
	print "Correct!"
end select

' mid/left/right  2-9, 1-5, 6-0
t$="1234567890"
print mid$(t$, 2, 8)
print left$(t$, 5)
print r <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3737	3830	
==>$register_num:
dec stack_depth
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$register_num <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5511	5604	
==>$register_num:
dec stack_depth
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$register_num <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	1072	1218	
==>he argument list.  Valid reasons include C<bug>,
C<unimplemented>, and so on.

B<Note:> you I<must> use a C<$description> with TODO tests.

=over 4 <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	5905	6052	
==>+, \$temp_cnt, \@temps,
                                \@extra_preamble, \@extra_postamble);
            $sig .= $sig_char{$_};
            $_ eq ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828777	828873	
==>_PMC) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829845	829941	
==>_PMC) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	18999	19140	
==>ead1 NAME
  
  Hoo::Boy::Wowza -- Stuff B<wow> yeah!

then $parser->get_short_title on that document will return
"Hoo::Boy::Wowza".

But if th <==
2	/Users/nnunley/parrot/tools/dev/pbc_header.pl	1605	1743	
==>my $header;
	read F, $header, 16;
	my (@fields) = qw( wordsize byteorder major minor
	    intvalsize floattype );
	print "$f\n";
	for my $i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60027	60291	
==>});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "warningsoff",
                  "F <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60676	60940	
==>});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "warningsoff",
                  "F <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621773	621879	
==>t    PObj_get_FLAGS(ccont) &= ~SUB_FLAG_TAILCALL;\n\t    --ctx->recursion_depth;\n\t    ctx->caller_ctx = c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29613	29707	
==>tPObj_get_FLAGS(ccont) &= ~SUB_FLAG_TAILCALL;\n\t--ctx->recursion_depth;\n\tctx->caller_ctx = c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095179	1095311	
==>s\"\n  Parrot_Exec_OS_Command(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "experimental" => 1,
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095874	1096006	
==>s\"\n  Parrot_Exec_OS_Command(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "experimental" => 1,
                  "LABELS <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	1704	1911	
==>my %ops;
for my $dir (@imcc_spdirec) {
    $dir =~ s/\.//g;
    print "      <item>$dir</item>\n";
    $ops{$dir} = 1;
}

print <<END;
    </list>
    
    <list name="ops">
END

for my $ops_file (@ops_files) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	19961	20109	
==>ames
      }

      if($neg) {
        if( $dont_ignore ) {
          $dont_ignore = '';
          delete $para->[1]{'target_matching'};
          DE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	28774	29104	
==>OT_JUMP_ADDRESS",
                  "NAME" => "get_params",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 38,
                  "ARGS" => [
                              "p <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	3633	3769	
==>t_push_reg {
    my ($self, $reg) = @_;
    return "save $reg";
}

sub output_pop_reg {
    my ($self, $reg) = @_;
    return "restore $r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	317230	317462	
==>"JUMP" => 0,
                  "NAME" => "conv_i2_ovf",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	45615	45768	
==>f and the next line
    DEBUG > 10 and print "Nixed count: ", scalar(@nixed), "\n";
    
    DEBUG > 6 and print "New version of the above line is these t <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6623	6743	
==>, -2 # delete group $n!;
}

sub output_atend {
    my ($self, $failLabel) = @_;
    my $fail = $self->output_label_use($f <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	9464	9912	
==>'i';
                }
                elsif ($use eq 'inconst')
                {
                    push @temp, "${type}c";
                    push @argdirs, 'i';
                }
                elsif ($use eq 'inout')
                {
                    push @temp, $type;
                    push @argdirs, 'io';
                }
                else
                {
                    push @temp, $type;
                    push @argd <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	42018	42148	
==>ss( @copy > 2 ) {
      push @copy, $copy[1]{'target'};
      $copy[-1] = '' unless defined $copy[-1];
       # since =over's don't <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567927	568460	
==>t_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 649,
                  "ARGS" => [
                              "i",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 213 \"src/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->does(interpreter <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2062	2182	
==>WXYZ0123456789])/sprintf'\x%02X',ord($1)/eg;
  }
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/config/auto/byteorder.pm	124	220	
==>ke  $

=head1 NAME

config/auto/byteorder.pm - Native Byteorder

=head1 DESCRIPTION

Computes the <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3280	3406	
==>, unescape($5), $6));

        # make the test print the last line of output
        # XXX This should be "print the last comma <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4687	4813	
==>, unescape($5), $6));

        # make the test print the last line of output
        # XXX This should be "print the last comma <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443643	443933	
==>psp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444658	444948	
==>psp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	6088	6198	
==>Type = 'long' if $Long; 
die "$ME: --type=$Type unknown\n"
    if defined $Type && $Type ne '' && !exists $Type <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	437	602	
==>>code },
  "eq"  => sub { $_[0]->code eq $_[0]->code },
  "ne"  => sub { $_[0]->code ne $_[0]->code },
  q{""} => sub { $_[0]->name }
;

use Jako::Token;

use Jako::C <==
2	/Users/nnunley/parrot/config/auto/inline.pm	950	1132	
==>o/inline/test_2.in');
            eval { cc_build(); };
            if (!$@) {
                $test = cc_run();
                chomp $test if $test;
            }
            cc_cle <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1033	1141	
==>ib/luabasic.pbc"
#  load_bytecode "languages/lua/lib/luacoroutine.pbc"
#  load_bytecode "languages/lua/lib/ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	9449	9703	
==>',
   76, 'L',
   77, 'M',
   78, 'N',
   79, 'O',
   80, 'P',
   81, 'Q',
   82, 'R',
   83, 'S',
   84, 'T',
   85, 'U',
   86, 'V',
   87, 'W',
   88, 'X',
   89, 'Y',
   90, 'Z',
   91, '[',
   92, "\\", #!
   93, ']',
   94, '^',
   95, '_',
   96, ' <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	14650	14788	
==>>" title="Full smoke report">View full smoke report</a>
            </td>
          </tr>
        </tmpl_loop>
      </tmpl_loop>
    </tmp <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	46474	46832	
==>s (@_ == 1 or @_ == 2) and ref $_[0];
      (@_ == 1) ?  $_[0]->{$attrname}
                : ($_[0]->{$attrname} = $_[1]);
    };
  }
  # Ya know, they say accessories make the ensemble!
  return;
}

# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
#= <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11151	11413	
==>ident);
      }

      next;
    }

    #
    # Arithmetic assigns:
    #
    #   <var> <op> <value>;
    #

    if ($token->is_ident and $self->get(1)->is_arith_assign) {
      my $block = $self->current_block;

      my $ident = Jako::Construct::Expression::Val <==
2	/Users/nnunley/parrot/config/auto/m4.pm	59	150	
==>onfig/auto/m4.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/m4 - Ch <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3625	3714	
==>LAZY_MOVE_$register_num:
${STACK$register_num} = pop lazy_moves

# Decrement stack height. <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5395	5484	
==>LAZY_MOVE_$register_num:
${STACK$register_num} = pop lazy_moves

# Decrement stack height. <==
2	/Users/nnunley/parrot/lib/Test/More.pm	17094	17243	
==>ening at compile time...
   }

because the notion of "compile-time" is relative.  Instead, you want:

  BEGIN { use_ok('Some::Module') }
  BEGIN { ... <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	996	1095	
==>tifier');
  confess "Left is not Value!" if defined $left and not UNIVERSAL::isa($left, 'Jako::Const <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1024	1123	
==>tifier');
  confess "Left is not Value!" if defined $left and not UNIVERSAL::isa($left, 'Jako::Const <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	30051	30203	
==>anchOp( $parser,
        'result' => $lbl_blk,
    );
    push @opcodes, new LabelOp( $parser,
        'arg1' => $lbl_or,
    );
    push @opcodes, <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	2237	2405	
==>k of active blocks. We keep a block on the
##                          stack for the file scope.
##
## NOTE: Do NOT access the block stack directly. Access it via routin <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	3945	4049	
==>aths()
{
    my $self = shift;

    return sort grep {-f} $self->file_and_directory_paths;
}

=item C<dir <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17459	17552	
==>']);
  my $type = $self->_save_1 ('I');
  $self->_add_inst ("NEXT_$label", 'typeof',[$type,$li <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	1668	1782	
==>ur pointers.  Parrot
should still compile and run, but you may see a ton of warnings.
END
    }

    # set fixed si <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	3848	3973	
==>text;
    &clip_excess_lines($top,15);
    $top =~ s/^ {0,1}(\S)/  $1/mg; # minimum indent
    $info->{desc} = $top;
    retur <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846702	846938	
==>r, (UINTVAL){{\@2}});\n  {{\@1}} = s;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847498	847734	
==>r, (UINTVAL){{\@2}});\n  {{\@1}} = s;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5000	5098	
==>'ERRST', 'NBERR', 'TOKEN', 'VALUE', 'STACK', 'CHECK', 'DOTPOS' };

#DBG>	my($debug)=$$self{DEBUG} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4757	4853	
==>'ERRST', 'NBERR', 'TOKEN', 'VALUE', 'STACK', 'CHECK', 'DOTPOS' };

#DBG>	my($debug)=$$self{DEBUG} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	605	734	
==>shift;
  $class = ref($class) || $class;
  my $new;
  if(@_ == 1) {
    if (!ref($_[0] || '')) { # most common case: one bare stri <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10111	10237	
==>"**Pop state $$stack[-1][0].\n";

			pop(@$stack);
		}

			@$stack
		or	do {

#DBG>			$debug & 0x10
#DBG>		and	print S <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9660	9777	
==>"**Pop state $$stack[-1][0].\n";

			pop(@$stack);
		}

			@$stack
		or	do {

#DBG>			$debug & 0x10
#DBG>		and	print S <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	10938	11086	
==>\w+)           #method name
      \s*
        \( ([^\(]*) \)  #parameters
    }sx;

    my ($pre, $classname, $flags)   = parse_flags(\$code);
    my <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	609768	610284	
==>AGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 691,
                  "ARGS" => [
                              "p",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 478 \"src/ops/object.ops\"\n    {{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	24539	24636	
==>ode_t *dest = {{^+1}};\n  PMC * const p = CONTEXT(interpreter->ctx)->current_sub;\n  dest = (opcod <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	469297	469397	
==>Y" => "#line 385 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	470172	470272	
==>Y" => "#line 385 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276069	276239	
==>",
                              "s"
                            ],
                  "BODY" => "#line 881 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822336	822430	
==>>entry_type != STACK_ENTRY_INT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823404	823498	
==>>entry_type != STACK_ENTRY_INT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	1277	1406	
==>y $self = shift;

  print STDERR "{\n";
  foreach my $key (sort keys %$self) {
    printf STDERR "%10s => %s\n", $key, $self->{$ke <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945459	945687	
==>terpreter, Parrot_charset_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946269	946497	
==>terpreter, Parrot_charset_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/examples/benchmarks/arriter.pl	1009	1182	
==>'};
print $ha{'BBBBB'};
print $ha{'CCCCC'};
print $ha{'HHHHH'};
print $ha{'IIIII'};
print "\n";

=head1 SEE ALSO

F<examples/benchmarks/arriter.pir>,
F<examples/benchmarks/ar <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	8849	8990	
==>turn sort keys %{ $this->{'accept_targets'} } if wantarray;
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	5230	5373	
==>ow' => undef,
             'i_signal' => 'define',
             'i_socks' => undef,
             'i_stdarg' => 'define',
             'i_stddef' <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	175	363	
==>ot = $ARGV[0];

if ($parrot eq '-h') {
    print "kate_syntax.pl\n\n",
        "Create Kate syntax highlighting file for Parrot IMCC.\n",
        "Supply the path to your Parrot directory a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	256801	257267	
==>" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 299,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#l <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	21525	21661	
==>ength($content)) {
        $self->whine(
          $para->[1]{'start_line'},
          "'=end' without a target?" . (
            ( @$cur <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2572	2686	
==>ined $right_type;

  $left = $left->compile($compiler);
  $right = $right->compile($compiler);

  my $dest_name = $ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6609	6712	
==>re thought. I'm trying to work out which files
	# it's sensible to link directly to. Suffixes other than <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	1633	1833	
==>.pod                             [devel]doc
    docs/dev/pmc_freeze.pod                         [devel]doc
    examples/sdl/anim_image.pir                     [devel]
    examples/sdl/anim_image_dblbuf <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	4126	4248	
==>= pos;
	$ldel = join('|', map { quotemeta $_ } split('', $ldel));
	$rdel = join('|', map { quotemeta $_ } split('', $rdel)) <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1718	1824	
==>};

	_CheckParams( [], \%params, \@_, $self );

		exists($$self{VERSION})
	and	$$self{VERSION} < $COMP <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1659	1760	
==>};

	_CheckParams( [], \%params, \@_, $self );

		exists($$self{VERSION})
	and	$$self{VERSION} < $COMP <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33603	33735	
==>0][0] eq '~Para') {
              DEBUG and print "Assimilating following ~Para content into $over_type item\n";
              push @ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35416	35548	
==>0][0] eq '~Para') {
              DEBUG and print "Assimilating following ~Para content into $over_type item\n";
              push @ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11374	11477	
==>d if 'A' eq chr(65);
  return undef if length $out > $Linearization_Limit;
  
  $out = $self->unicode_es <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	905	1016	
==>";
  confess "Args are not hash!" if defined $args and ref($args) ne "ARRAY";

  my $self = bless {
    BLOCK => <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3715	3852	
==>mit PIR to generate one. Otherwise, we've
	# nothing to do here.
	if ($need_dest) {
		$pir .= <<'PIR'
# Just got it in the 0th register of <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	11586	11804	
==>.h
isprint     ctype.h
ispunct     ctype.h
isspace     ctype.h
isunordered math.h
isupper     ctype.h
isxdigit    ctype.h
labs        stdlib.h
ldexp       math.h
ldexpf      math.h
ldexpl      math.h
ldiv        stdlib. <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	817	921	
==>et_source($source);
  $self->output_fh(*STDOUT{IO});

  $self->run; # define run() in a subclass if you w <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1448	1547	
==>self->{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/gets the transform's arguments.

=c <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1057	1156	
==>self->{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/gets the transform's arguments.

=c <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	9476	9572	
==>ffix} = $num_ops;

/*
** Op Function Table:
*/

static op_func${suffix}_t ${op_func}\[$num_entrie <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	31756	31881	
==>s = pop @stack;
    my $cl = temp('P');
    my $name = $tos->[1];
    $n = $name;
    $n =~ s/["]//g;
    my $mangle = qq!"py: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054394	1054490	
==>space.\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to get null global.\");\n\n    nex <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055521	1055617	
==>space.\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to get null global.\");\n\n    nex <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	8918	9052	
==>ps::Tree::rule;
sub minlen { my ($op) = @_; $op->{args}->[1]->minlen() }
sub maxlen { my ($op) = @_; $op->{args}->[1]->maxlen() }
sub s <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	6515	6605	
==>winspool -lcomdlg32 -ladvapi32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid -lws2_32 -lmp <==
2	/Users/nnunley/parrot/config/init/hints/msys.pm	406	496	
==>winspool -lcomdlg32 -ladvapi32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid -lws2_32 -lmp <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	2065	2229	
==>eaders'}})
        {
            push @contents,
                $dist->relative_path($dist->c_header_file_with_name($name));
        }
    }
    
    if ( exists $c <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	384	505	
==>ompression_modules();

use constant {
  VERSION     => 0.4,
  MAX_SIZE    => 2**20 * 3.0,  # MiB limit
  BASEDIR     => "/ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8375	8493	
==>elf->popop . " <rx_tmp>, <rx_stack> # popindex");
    if ($self->{DEBUG}) {
        push @ops, 'print "POPPED: "', "pri <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	14369	14469	
==>[ "($op1->[0] $sym $op2->[0])", "RESULT", "\$$optype$retcount" ];
			$retcount++;
		}
	}

	if (@work) <==
2	/Users/nnunley/parrot/lib/File/Which.pm	2548	2852	
==>s.
                                # so we check -e. However, we don't want to pass -e on files
                                # that aren't in PATHEXT, like README.
                 and -e _)
                ) and !-d _)
            {                   # and finally, we don't want dirs to pass (as they <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	316653	317050	
==>otgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 370,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 92 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (INTVAL)((Parrot_Int2)({{\@1}}));\n  {{+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754076	754366	
==>i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 850,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 261 \"src/ops/set <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2063	2299	
==>2, 1000000.0
$N1 = $N1 / $N2;              # div    N1, N1, N2
                              #
print "M op/s:        $N1\n"; # print  "M op/s:        "
                              # print  N1
                              # print  "\n" <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	2063	2299	
==>2, 1000000.0
$N1 = $N1 / $N2;              # div    N1, N1, N2
                              #
print "M op/s:        $N1\n"; # print  "M op/s:        "
                              # print  N1
                              # print  "\n" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2496	2596	
==>lf->INTERNAL_ERROR("Can't determine type of actual argument (%s)!", ref $args[$i])
      unless defin <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2196	2296	
==>lf->INTERNAL_ERROR("Can't determine type of actual argument (%s)!", ref $args[$i])
      unless defin <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7238	7344	
==>pper"
print lcase$(s1$);" Lower"
a$="   Flush   "
print ">";ltrim$(a$)
print rtrim$(a$);"<"
' A's and -'s
p <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18967	19073	
==>pper"
print lcase$(s1$);" Lower"
a$="   Flush   "
print ">";ltrim$(a$)
print rtrim$(a$);"<"
' A's and -'s
p <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	5233	5356	
==>unt"  => 0,
				"vars"	   => "",
			}, $class;
	}
}

sub reset($)
{
	@{$_[0]->{"prods"}} = ();
	@{$_[0]->{"calls"}} = ();
	$ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	23393	23533	
==>[-1], $treelet->[0], $treelet->[$i][0], 
          ;
          
          #$nugget = ;
          splice @$treelet, $i, 1, [pop(@dynasty), {}, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1546	1656	
==>mple::DEBUG = eval " sub () { $value } ";
    print "# Starting Pod::Simple::DEBUG = $value\n";
  }
  
  requir <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	3037	3187	
==>ode $exit_code."
                if $exit_code;
            $self->{builder}->diag($diag) if $diag;
        }

        # The generated files are l <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2648	2779	
==>ode $exit_code." if $exit_code;
            $self->{builder}->diag( $diag ) if $diag;
        }

        # The generated files are l <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	14377	14512	
==>responding class,
or of one of it's subclasses, or a reference to a hash containing named 
arguments to be passed to the element's const <==
2	/Users/nnunley/parrot/lib/Test/More.pm	1461	1578	
==>$this, $that,    $test_name);
  isnt($this, $that,    $test_name);

  # Rather than print STDERR "# here's what went w <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	13477	13649	
==>$reg_num);";
        return "t_$temp_num";
    };
}

sub print_function {
    my ($sig, $return, $params, $args, $ret_type, $ret_type_decl,
        $return_assign, $other_de <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	16505	16651	
==>b cmp_ok {
    my($self, $got, $type, $expect, $name) = @_;

    my $test;
    {
        local $^W = 0;
        local($@,$!);   # don't interfere w <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102511	102653	
==>"
                            ],
                  "BODY" => "#line 130 \"src/ops/bit.ops\"\n  string_bitwise_not(interpreter, {{\@2}}, &{{\@1} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	10296	10406	
==>", map "[$_]", sort keys %options
  )
   if keys %options;

  my %content_containers;
  $content_containers{'Pa <==
2	/Users/nnunley/parrot/config/auto/format.pm	1347	1540	
==>le.";
        $nvsize   = $ldsize;
        $nvformat = "%Lf";
    } else {
        die "Configure.pl:  Can't find a printf-style format specifier for type \"$nv\"\n";
    }

    $conf->data->set <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681811	682237	
==>> "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 765,
                  "ARGS" => [
                              "n",
                              "p"
                            ],
                  "BODY" => "#line 512 \ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53249	53340	
==>core.ops\"\n  if ({{\@1}} != 0) { Interp_flags_SET(interpreter,   PARROT_GC_DEBUG_FLAG); }\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54005	54096	
==>core.ops\"\n  if ({{\@1}} != 0) { Interp_flags_SET(interpreter,   PARROT_GC_DEBUG_FLAG); }\n <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	579	713	
==>es.  Right
now it parameterizes the two parameters that at least three language
implementations need.

If you really want, you can pass <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	809	920	
==>yright 1998-2001 Francois Desarmenien, all rights reserved.
# (see the pod text in Parse::Yapp module for use a <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	785	895	
==>yright 1998-2001 Francois Desarmenien, all rights reserved.
# (see the pod text in Parse::Yapp module for use a <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5761	5877	
==>}

sub post_branch($) {
	my $self = shift;
	my $pops = shift;
	my $pir = '';

	# Branches mean we need to deal with b <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3699	3815	
==>}

sub post_branch($) {
	my $self = shift;
	my $pops = shift;
	my $pir = '';

	# Branches mean we need to deal with b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292083	292566	
==>eq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 340,
                  "ARGS" => [
                              "i",
                              "n",
                              "nc"
                            ],
                  "BODY" => " <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19434	19539	
==>sh @{$code{$seg}->{code}}, "\tgoto DO_$do->{jump}\n";
	}
	push @{$code{$seg}->{code}}, "AFTERDO_$do->{jump <==
2	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	1056	1222	
==>DERR is written into same output file
  my $diag = '';
  my $parrot_exit_code = Parrot::Test::run_command( $cmd, 
						    CD     => $self->{relpath},
						    STDOU <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	59502	59629	
==>iters.
If no escape char is specified for a given specified delimiter, '\' is used.

Note that 
C<gen_delimited_pat> was previou <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	6335	6468	
==>ine =~ s{ \@ (\w+) \@ }{
            if(defined(my $val=$conf->data->get($1))) {
                #use Data::Dumper;warn Dumper("val fo <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	34662	34838	
==>odd_p,
  'even?'            => \&_op_even_p,
  'max'              => \&_op_max,
  'min'              => \&_op_min,
  '+'                => \&_op_plus,
  '-'                => \& <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11397	11501	
==>ttype}99 = $rightres
	$rightres = $leftres
	$leftres = \$${righttype}99
SWAP
}

sub parse_stop {
	feedme( <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2371	2741	
==>s nor create byte code, but m4 code
        Parrot::Test::write_code_to_file( $code, $lang_fn );
        my $exit_code = Parrot::Test::run_command( 
                            \@test_prog, 
                            STDOUT => $lang_out_fn,
                            STDERR => $lang_out_fn 
                        );
  
        my $builder_func = $language_test_map{ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	12613	12714	
==>est script blowing up.

It works on references, too:

    isa_ok( $array_ref, 'ARRAY' );

The diagnost <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2256	2382	
==>' => 'Vtable file',
	'tcl' => 'TCL code',
	'txt' => 'Text file',
	'urm' => 'URM code',
	'vim' => 'Vim file',
	'xml' => 'XML fil <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	9970	10059	
==>anagedstruct.pmc managedstruct.pmc delegate.pmc csub.pmc compiler.pmc exception.pmc versio <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5919	6230	
==>} and $_->{pragma} eq 'multi' ) {
                print {$FH} " :flat";
            }
            $first = 0;
        }
        print {$FH} ")\n";
    }

    sub visitCallMethOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  ";
        if ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	37977	38242	
==>"inline",
                  "CODE" => 48,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 715 \"src/ops/core.ops\"\n  opcode_t * const dest = (opcode_t *)rethrow_exception(interpreter, <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	1579	1699	
==>run			# Always jump here.
		#${seg}_main()
		#ret
	#.end
#INIT
	my($edit,@saves);
	#print CODE "\t.sub ${seg}_main\n\t\ts <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26254	26410	
==>'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 81
		ACTIONS => {
			":" => 134,
			"(" => 48,
			"{" => 38,
			"[" = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	809	935	
==>p;
  my $right;

  if ($kind eq 'if' or $kind eq 'unless') {
    $left  = $self->left->compile($compiler);
    $op    = $self-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	371755	372129	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "peek",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630570	630668	
==>n(interpreter, NULL, NO_CLASS,\n            \"Class '%Ss' not found\", readable_name(interpreter, c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631560	631658	
==>n(interpreter, NULL, NO_CLASS,\n            \"Class '%Ss' not found\", readable_name(interpreter, c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	852935	853319	
==>AGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 968,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "B <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082438	1082579	
==>c"
                            ],
                  "BODY" => "#line 145 \"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1083504	1083645	
==>c"
                            ],
                  "BODY" => "#line 145 \"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	446688	447036	
==>> "abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 511,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" = <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	45116	45234	
==>e on success is
an empty string.
On failure, all of these values (except the remaining text) are C<undef>.


In a scala <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	195231	195482	
==>"CODE" => 231,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 328 \"src/ops/cmp.ops\"\n  if (mmd_d <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1985	2087	
==>ck->find_symbol($self->name);

  #
  # If the identifier is already defined at this lexical scope, we w <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1732	1834	
==>ck->find_symbol($self->name);

  #
  # If the identifier is already defined at this lexical scope, we w <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	1584	1678	
==>the translator code.
$pir = insert_automagicals($pir, $metavars);

# Append any custom subs tha <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10674	10796	
==>ameter register list.
PRE_CALL_${CURIC}_CONT:
${PARAMS}[${ITEMP0}] = ${STEMP0}

# Next parameter.
dec stack_depth
goto pre_ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	21895	21992	
==>lse.  Why?  Because diag() is often used in conjunction with
a failing test (C<ok() || diag()>) it <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873938	874217	
==>GS" => [
                              "s",
                              "sc",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interprete <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19655	19786	
==>arams,
    );
    return [ $result, \@opcodes ];
}

sub BuildVoidFunctionCall {
    my ( $parser, $expr )    = @_;
    my ( $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6055	6151	
==>$type       = Jako::Construct::Type->new($self->require_type);

      $self->INTERNAL_ERROR("Coul <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3207	3322	
==>BEGIN { sub Pod::Simple::DEBUG () { $debug_level }
  use Pod::Simple ();

=head1 SEE ALSO

L<Pod::Simple>

The artic <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2393	2495	
==>mine type of formal argument (%s)!", $formal_arg_name) 
      unless defined $formal_arg_type;

    $se <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2093	2195	
==>mine type of formal argument (%s)!", $formal_arg_name) 
      unless defined $formal_arg_type;

    $se <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	5015	5152	
==>okens, Jako::Token->new(
        $file, $line, 'infix-bit', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^( == | >= <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	8379	8555	
==>mmand);
    }

    my $orig_dir;
    if ( $chdir ) {
        $orig_dir = cwd;
        chdir $chdir;
    }

    # Execute all commands
    system( $_ ) for (@{$command});

    if <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497423	497810	
==>,
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 571,
                  "ARGS" => [
                              "n",
                              "nc",
                              "n"
                            ],
                  "BODY" => "#line 595 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	643	767	
==>sa($ident, 'Jako::Construct::Expression::Value::Identifier');

  my $name = $ident->value;

  my $self = bless {
    BLOCK => <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	1391	1518	
==>ir_count >2) {
      $path_to_tcl = File::Spec->join(File::Spec->updir() x ($dir_count - 2));
    }

    my $lang_f = Parrot::Te <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	73295	73393	
==>ecount($_[1]);
	$_[0]->{lastlinenum} += $_[2] if @_ > 2;
	$_[0]->{offsetlinenum} = $_[0]->{lastline <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	15315	15486	
==>,
		GOTOS => {
			'expr' => 11,
			'charclass' => 12,
			'regex' => 54,
			'regex1' => 7
		}
	},
	{#State 37
		ACTIONS => {
			"(" => 10,
			'CHAR' => 4,
			"<" => 3,
			"[ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117940	118236	
==>{{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "F <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118679	118975	
==>{{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "F <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	6377	6496	
==>he checks is *not* always optimal. But
# they should do a pretty decent job of making things fail early if
# you get too <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15025	15120	
==>FF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
    }
    return;
  } elsif(wa <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16208	16303	
==>FF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
    }
    return;
  } elsif(wa <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4683	4901	
==>w($block, $ident);
      next;
    }

    #
    # Modules:
    #
    #   module <ident> [:<prop>[=<value] ...] {
    #

    if ($token->is_module) {
      my $block = $self->current_block;

      my $ident = Jako::Const <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	3052	3152	
==>element({ Name => 'block', Attributes => { kind => 'then' } });
  }

  $handler->start_element({ Name <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3816	3916	
==>element({ Name => 'block', Attributes => { kind => 'then' } });
  }

  $handler->start_element({ Name <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	5171	5356	
==>y $token = shift;
    my $tagname = $token->tagname;
    my $next = $self->get_token;
    
    if ( $next->type eq 'text' )
    {
        my $text = $next->text;
        my $dist = Parro <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	1487	1623	
==>string register index.
    ic  The argument is an integer constant (in-line).
    nc  The argument is a number constant index.
    pc  Th <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1171	1284	
==>ES}
PIR

	# Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2881	2994	
==>ES}
PIR

	# Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we're maintaining.
	for (1..$ <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3253	3360	
==>up_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    while (my ($gro <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3357	3464	
==>up_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    while (my ($gro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1108708	1108820	
==>n(interpreter, NULL, NO_CLASS,\n                    \"Class '%Ss' not found\", readable_name(interpreter, {{\@2}} <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7863	8026	
==>code ? &$code( $self, @sempar )
                            : @sempar ? $sempar[0] : undef;

            splice(@$stack,-$len,$len);

                $$check e <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7508	7666	
==>code ? &$code( $self, @sempar )
                            : @sempar ? $sempar[0] : undef;

            splice(@$stack,-$len,$len);

                $$check e <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	2105	2227	
==>, 'I have some stuff' );

will do what you mean (fail if stuff is empty)

=cut

sub ok ($;$) {
    $Test->ok(@_);
}


=back <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	50098	50195	
==>ock marker", $aftererror,$line);
				$item = new Parse::RecDescent::Directive(
					'Text::Balance <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	2880	2987	
==>errors.  " if ($errors);
    print STDERR "Found " . scalar(keys %$typedefs) . " typedefs.\n";
    my $cmd = <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	35776	35870	
==>ring. In a void context, C<$text> would be unchanged.)

Note that the embedded single-quotes in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716472	716579	
==>= (VTABLE_get_string(interpreter, p));\n  if (s) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_pu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724364	724471	
==>= (VTABLE_get_string(interpreter, p));\n  if (s) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_pu <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11186	11305	
==>equences

=head1 SYNOPSIS

  use Pod::Escapes qw(e2char);
  ...la la la, parsing POD, la la la...
  $text = e2char($e_no <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2966	3108	
==>s = (
    'op' => "cur_opcode[%ld]",

    'i'  => "IREG(%ld)",
    'n'  => "NREG(%ld)",
    'p'  => "PREG(%ld)",
    's'  => "SREG(%ld)",
    ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1886	2021	
==>s = (
  'op'  => "cur_opcode[%ld]",

  'i'   => "IREG(%ld)",
  'n'   => "NREG(%ld)",
  'p'   => "PREG(%ld)",
  's'   => "SREG(%ld)",
  ' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	505	619	
==>->genlabel("L");
}

sub is_label {
    return UNIVERSAL::isa(shift(), 'Regex::Ops::Label');
}

=item method label_i <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2536	2645	
==>undef;
}

sub YYNberr {
	my($self)=shift;

	${$$self{NBERR}};
}

sub YYRecovering {
	my($self)=shift <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2430	2529	
==>undef;
}

sub YYNberr {
	my($self)=shift;

	${$$self{NBERR}};
}

sub YYRecovering {
	my($self)=shift <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	400	512	
==>uct::Declaration);

use Jako::Construct::Type;


#
# new()
#

sub new
{
  my $class = shift;

  my ($block, $type <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	400	512	
==>uct::Declaration);

use Jako::Construct::Type;


#
# new()
#

sub new
{
  my $class = shift;

  my ($block, $type <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600088	600192	
==>, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601164	601268	
==>, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n    STRING *name = readable_name(i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713086	713397	
==>se_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 800,
                  "ARGS" => [
                              "nc"
                            ],
                  "BODY" => "#lin <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	1512	1661	
==>arent_path = File::Spec->canonpath($parent_path);
    
    # If we are root then the above will make parent the same as path.
    undef $parent_path i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm	140	306	
==>Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Expression/Prefix.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61371	61723	
==>" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorson",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62014	62366	
==>" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorson",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	87449	87743	
==>Parrot_make_cb(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88451	88745	
==>Parrot_make_cb(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	22	184	
==>arnings;
use strict;

use Getopt::Long;
use LWP::UserAgent;

use constant VERSION => 0.4;
sub debug($);

our $compress = sub { return };

GetOptions(
  "smokeserv= <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	16315	16496	
==>ounter >= @R goto lastback
#                goto try
#          back: pop $counter
#                goto R[].back
#          next:
#
# The code below does not assume the alternatives <==
2	/Users/nnunley/parrot/lib/Test/More.pm	7599	7734	
==>2,        "Meaning of Life" );
    ok( $foo ne '',     "Got some foo" );

(Mnemonic:  "This is that."  "This isn't that.")

So why use t <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	32039	32220	
==>0] eq 'L') {
        unshift @stack, $treelet->[$i]; # recurse
        next;
      }
      
      
      # By here, $treelet->[$i] is definitely an L node
      DEBUG > 1 and print " <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	44816	44937	
==>\G\((\d+)\.\.'.$SIMPLEPAT.'\)';
my $ATMOST		= '\G\(\.\.([1-9]\d*)'.$SIMPLEPAT.'\)';
my $BADREP		= '\G\((-?\d+)?\.\.(-?\d+) <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	529	625	
==>ipt extracts descriptions from the Parrot source files. If no
files are specified on the command- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1270	1383	
==>unknown sub '%s'.", $name) unless $sym;

  my %props = $sym->props;

  my @args  = $self->args;

  my @formal_args <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	1213	1395	
==>nstruct::Expression::Value');

  my $self = bless {
    BLOCK => $block,

    IDENT => $ident,
    COND  => $cond,
    LEFT  => $left,
    OP    => $op,
    RIGHT => $right,

    DEBU <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	2794	2893	
==>nd so Pod::Simple (et al) won't compile with
constant-folding.


=head1 GUTS

Doing this:

  use Pod <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2599	2707	
==>MMARY, "$cmd |") or die "Error invoking '$cmd': $!";
    my $tmp;
    my %generated_files;
    while (<GCOVSU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453465	453886	
==>e",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 520,
                  "ARGS" => [
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 230 \"src/ops/math.ops\"\n  {{\@1}} += <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35762	35997	
==>}
          }

        } else {
          die "Unhandled =over type \"$over_type\"?";
          # Shouldn't happen!
        }

        $para_type = 'Plain';
        $para->[0] .= '-' . $over_type;
        # Whew.  Now fall thru and proc <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	6995	7321	
==>previous
    # basic block fell through to them.)
    my %AMDEST; # { label name => boolean }
    foreach (@output4) {
        my $code = $_->{code};
        foreach (map { $code->{args}->[$_] } $self->label_indices($code)) {
            $AMDEST{$_->{label}} = 1;
        }
    }
    foreach (@output4) {
        delete $_->{la <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	1231	1393	
==>was intended to be
a read-only representation of what was in a particular ops file. It was
not originally intended that it was a mechanism for building a bigger
vi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops.pm	107	217	
==>ERS{$name};
    $number = '' if ($number == 1) && ($name ne '');
    return bless([ 'label', "\@$name$number" ] <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2739	2849	
==>ERS{$name};
    $number = '' if ($number == 1) && ($name ne '');
    return bless([ 'label', "\@$name$number" ] <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	73059	73193	
==>$linenum, @args)
{
	croak "Could not find method: $AUTOLOAD\n" unless ref $_[0];
	my $class = ref($_[0]) || $_[0];
	my $text = ref($_[1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168518	168611	
==>{\@1}}->vtable->get_integer(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169460	169553	
==>{\@1}}->vtable->get_integer(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10874	11043	
==>test${exe}", './test.out', './test.out',
            $verbose);
    }

    my $output = _slurp('./test.out');

    return $output;
}

=item C<cc_clean()>

Cleans up all f <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10938	11042	
==>$fh = $self->{'output_fh'};
  return print $fh join '',
    $self->doc_init,
    $self->font_table,
    $ <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	4588	4687	
==>->version;
my $major_version = $ops->major_version;
my $minor_version = $ops->minor_version;
my $pat <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	2423	2563	
==>e used only
once by the root section, it is not passed to subsections.

=cut

sub write_docs
{
    my $self = shift;
    my $silent = shift | <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	33361	33540	
==>_car,
  'cdr'      => \&_op_cdr,
  'set-car!' => \&_op_set_car_bang,
  'set-cdr!' => \&_op_set_cdr_bang,
  # Not adding caar/cadr/cdar/whatever
  'null?'    => \&_op_null_p,
  'lis <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8990	9198	
==>or recovery.\n";

            $$check='';

        };

        #Error
            $$errstatus
        or   do {

            $$errstatus = 1;
            &$error($self);
                $$errstatus <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8587	8783	
==>or recovery.\n";

            $$check='';

        };

        #Error
            $$errstatus
        or   do {

            $$errstatus = 1;
            &$error($self);
                $$errstatus <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	1009	1121	
==>handle_text {
  DEBUG and print "== \"$_[1]\"\n";
  
  if(length $_[1]) {
    my $indent = '  ' x $_[0]{'indent'} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	958	1067	
==>handle_text {
  DEBUG and print "== \"$_[1]\"\n";
  if(length $_[1]) {
    my $indent = '  ' x $_[0]{'indent'} <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	3704	4198	
==>nstant $_\n";
                }
            } elsif ($in_def eq 'template') {
                if (/match{(.*)}/) {
                    $match = $1;
                    next;
                }
                if (/eval{{/) {
                    while (<F>) {
                        last if /}}/;
                        $block .= $_;
                    }
                    next;
                }
                if (/$match/) {
                    select INC;
                    eval $block <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	26111	26218	
==>em B<current_test>

    my $curr_test = $Test->current_test;
    $Test->current_test($num);

Gets/sets the c <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11149	11295	
==>();
	my($leftres, $lefttype, @left)=EXPRESSION({lhs => 1});
	feedme();
	die "Expected ',': $syms[CURR]" unless $syms[CURR] eq ",";
	feedme();
	my($ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	8573	8681	
==>follow_min);

    } elsif ($type eq 'seq' && $t->{add_check_visited}) {
        my ($kid_follow_min, $kid_gua <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017975	1018075	
==>) {{\@2}};\n  char resultbuffer[26];\n  Parrot_gmtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuff <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018900	1019000	
==>) {{\@2}};\n  char resultbuffer[26];\n  Parrot_gmtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuff <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	90	192	
==>en';
use strict;

my $fail_label = Regex::Ops::Tree::mark('FAIL');

sub init_context {
    my ($self, $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	91	193	
==>en';
use strict;

my $fail_label = Regex::Ops::Tree::mark('FAIL');

sub init_context {
    my ($self, $ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	284	377	
==>d1 DESCRIPTION

A documentation section describing all the dynamic PMCs.

=head2 Class Methods <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	3673	3786	
==>e');         }

sub is_loop_control  { return shift->is('next', 'last', 'redo'); }
sub is_value         { return s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303627	303901	
==>ODE" => 353,
                  "ARGS" => [
                              "i",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 980 \"src/ops/cmp.ops\"\n  {{\@1}} = string_equal(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16865	16992	
==>e out "- so that "--" won't make it thru in X-generated comments
        #  with text in them.
        
        # Yes, stipulate <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10305	10416	
==>e out "- so that "--" won't make it thru in X-generated comments
    #  with text in them.

    # Yes, stipulate <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23033	23224	
==>= (opcode_t *)p->vtable->invoke(interpreter, p, dest);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25472	25663	
==>= (opcode_t *)p->vtable->invoke(interpreter, p, dest);\n  {{=dest}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	243	356	
==>);

@ISA = 'Exporter';
$VERSION = '1.5';

# I-Vektor
sub A() { 0x67_45_23_01 }
sub B() { 0xef_cd_ab_89 }
sub C() { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	487275	487604	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ceil",
                  "FLAGS" => ":base_core",
                  "ARGDIR <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	816	916	
==>VN Entries file',   # probably obsolete
	'PL' => 'Perl script',
	'SKIP' => 'MANIFEST skip file',
	'ST <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94436	94759	
==>nds",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 117,
                  "ARGS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	95328	95648	
==>nds",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 118,
                  "AR <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	2813	2979	
==>te-return -Winline -W -Wno-unused",

            # others; ones we might like marked with ?
            # ? -Wundef for undefined idenfiers in #if
            # ? -Wba <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	20484	20620	
==>1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return $return;
}

sub _op_geq {
  my ($self,$node) = @_;
  my $ret <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19507	19620	
==>1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return $return;
}

sub _op_gt {
  my ($self, <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	1179	1330	
==>rch = shift @ARGV;
my $genfile = shift @ARGV;

my ($function, $body, $extern, $header, $asm, $precompiled);

my %templates;

my @jit_funcs;
my $func_end <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	6863	7187	
==>$t =~ m/$/mg ) {
            last if  ++$line_count  > 15; # no point in counting further
          }
          DEBUG > 3 and print "    verbatim line count: $line_count\n";
        }
        $self->unget_token($next);
        $self->{'rtfkeep'} = ($line_count > 15) ? '' : '\keepn' ;     

      } elsif( $tagname =~ m/^item <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	697	846	
==>rot::Test::Lua::$func"} = sub {
        my $self = shift;
        my ( $code, $output, $desc, %options ) = @_;

        my $count = $self->{builde <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4516	4605	
==>tory_exists_with_name($name)>

Returns whether a subdirectory with the specified name exis <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	5937	6124	
==>en) {

    # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    if( ($type = $token->type) eq 'start' ) {
      if(($tagname = $token->tagname) eq 'L') {
        esc <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19019	19222	
==>1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return $return;
}

sub _op_lt {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(0 <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19995	20092	
==>1]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0);
  return $return;
}

sub _op_l <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	27632	27787	
==>/////////////

      # TODO: fire off </item-number> or </item-bullet> or </item-text> ??

      my $content = join ' ', splice @$para, 2;
      if($content <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29245	29399	
==>ss;
}


sub code($$$$)
{
	my ($self, $namespace, $rule, $check) = @_;
	
my $code = ''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying terminal: [ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31343	31496	
==>ss;
}

sub code($$$$)
{
	my ($self, $namespace, $rule, $check) = @_;
	
my $code = ''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying terminal: [ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	9446	9622	
==>about File::Slurp?
sub slurp_file {
    my ($file_name) = @_;

    open( SLURP, "< $file_name" ) or die "open '$file_name': $!";
    local $/ = undef;
    my $file = <SLURP> . ' <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11236	11382	
==>$_ = $_[2];
    # Rewrite SELF -> pmc, INTERP -> interpreter
    s/SELF/pmc/g;
    s/\bINTERP\b/interpreter/g;

    return $_;
}

=item C<rewrite_v <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	13604	13738	
==>{'start_line' => $m, '~cooked' => 1},
        #['~Top', {'start_line' => $m},
        $_
        #]
        ],
        @{$self->{'errat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956217	956623	
==>> "encodingname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1076,
                  "ARGS" => [
                              "s",
                              "ic"
                            ], <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955406	955679	
==>> "encodingname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 107 <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	23215	23352	
==>dBin::Bin/../..", "$FindBin::Bin/../../src/pmc/";

    if ( 0 == grep { $action{$_} } keys %action ) {
        die "No action specified!\n <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3476	3618	
==>rtability issues.

Make your strings and arrays of strings (or similar inlined data)
C<const> -- for the latter, remember that you need two con <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126763	127119	
==>{{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rot",
                  "FLA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127898	128254	
==>{{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rot",
                  "FLA <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	8193	8344	
==>riables:
        * c-indentation-style: bsd
        * c-basic-offset: 4
        * indent-tabs-mode: nil
        * End:
        *
        * vim: expandta <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	3089	3198	
==>riables:
 * c-indentation-style: bsd
 * c-basic-offset: 4
 * indent-tabs-mode: nil
 * End:
 *
 * vim: expandta <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	838081	838340	
==>T);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "restore",
                  " <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3159	3266	
==>iles

    generate_dump($_) foreach (@pmcs);
    generate_c($_) foreach (@pmcs);

    my ($group_files, $gro <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3263	3370	
==>iles

    generate_dump($_) foreach (@pmcs);
    generate_c($_) foreach (@pmcs);

    my ($group_files, $gro <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	11257	11451	
==>oolean Ref SharedRef Array FixedIntegerArray IntList Iterator SArray ConstSArray FixedStringArray MultiArray Hash OrderedHash TQueue ParrotClass ParrotObject OS File AddrRegistry Bound_NCI deleg_ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	450	597	
==>cs>.

=head2 Class Methods

=over 4

=cut

package Parrot::Docs::File;

use strict;
use warnings;

use base qw( Parrot::IO::File );

use Pod::Simple <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1016123	1016429	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "time",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1016754	1017060	
==>, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "time",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	7723	7925	
==>match_success:
            print "matched"
            goto match_end
          match_fail:
            print "failed"
          match_end:
        .end\n);
}
=back

=head1 AUTHOR

Patrick R. Michaud, pm <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6706	6885	
==>match_success:
            print "matched"
            goto match_end
          match_fail:
            print "failed"
          match_end:
        .end\n);

    return $pirCode;
} <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	2796	2908	
==>rs, fix this with the -xlibmieee flag.
    # I don't know of an equivalent flag for gcc.
    # (Alternatively, an <==
2	/Users/nnunley/parrot/config/init/defaults.pm	2730	2901	
==>ting systems (e.g. Darwin) distinguish between shared
        # libraries and modules that can be dynamically loaded.  Flags to tell
        # ld to build a shared library, <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	552	669	
==>ons more declarative, this
lets us do this work B<once> instead of many times, which B<should> make it
easier to inlin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691528	691853	
==>ME" => "thaw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 777,
                  "ARGS" => [
                              "p" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1746	1845	
==>ts (expected %d, got %d) in call to '%s'.",
    scalar(@formal_args), scalar(@args), $name)
    unle <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1446	1545	
==>ts (expected %d, got %d) in call to '%s'.",
    scalar(@formal_args), scalar(@args), $name)
    unle <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	738	837	
==>equences.
# Config stuff
our $CC = qq[/usr/bin/gcc-4.0 -c];
our $LD = qq[c++];
our $LDFLAGS = qq[-L/ <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	742	841	
==>equences.
# Config stuff
our $CC = qq[/usr/bin/gcc-4.0 -c];
our $LD = qq[c++];
our $LDFLAGS = qq[-L/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811471	811584	
==>e 512 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	812373	812486	
==>e 512 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4 <==
2	/Users/nnunley/parrot/config/auto/gc.pm	1063	1232	
==>if ($gc eq 'libc') {

        # tests mallinfo after allocation of 128 bytes
        if ($conf->data->get('i_malloc')) {
            $conf->data->set(malloc_header => 'ma <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	68989	69127	
==>= "";

		$grammar =~ m/\G\s+/gc;
	}

	unless ($ERRORS or $isimplicit or !$::RD_CHECK)
	{
		$self->_check_grammar();
	}

	unless ($ERRORS or <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	2481	2582	
==>ch to write your own test libraries I<which can
work together>.

=head2 Construction

=over 4

=item B <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19152	19251	
==>r->normal_halfpoint_size( I<halfpoint_integer> );

This method sets the size (in half-points, like 2 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	311	443	
==>t we should
# jump to if matching $op fails; $back is the backtracking point that
# can be returned to within the processing of the c <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9939	10036	
==>::Expression::Value->new($block, $self->require_value);

      $self->require_close_paren;
      $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25475	25572	
==>::Expression::Value->new($block, $self->require_value);

      $self->require_close_paren;
      $ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	1126	1285	
==>opulate metafields.
my $pir = generate_initial_pir($srm, \@rules, $metavars);

# Emit translation dispatch table.
$pir .= generate_dispatch_table($srm, \@rules, <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	10322	10472	
==>? '':'
		Parse::RecDescent::_trace(q{<<Didn\'t match rule>>},
					 Parse::RecDescent::_tracefirst($_[1]),
					 q{' . $self->{"name"} .'})
					if def <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	14530	14636	
==>$cur_func =~ /Build::(\w+)/) {   ## XXX && $f ne '__new__'
	$namespace{$f} = $classes{$1};
	if ($vtables{$f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173659	173964	
==>UMP_RELATIVE",
                  "NAME" => "ne_str",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1126	1230	
==>d dumps just the text content.  It is
mainly meant for use by the Pod::Simple test suite, but you may fin <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	436	534	
==>,[amount])" => "advance input <n> chars" ],
    [ "check(n)" => "require at least <n> chars remaini <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3448	3550	
==>>{'Thispara'},
    "\n\n"
  ;
  $self->{'Thispara'} = '';
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2978	3080	
==>>{'Thispara'},
    "\n\n"
  ;
  $self->{'Thispara'} = '';
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	5568	5730	
==>irst_comment;

    return $info if !$first_comment;

    local $_ = $first_comment;

    s/^\/\*//; s/\*\/$//; # /*  */
    s/^ *\/\///mg;   # //
    s/^ ?\*\*//mg <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	355	470	
==>test_prog {
    my $self = shift;
    my ( $path_to_parrot, $path_to_language, $count ) = @_;
 
    
    my $test_pr <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	373	482	
==>test_prog {
    my $self = shift;
    my ( $path_to_parrot, $path_to_language, $count ) = @_;

    my $test_pr <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	11068	11189	
==>nd nothing else
        my $test = !defined $got && !defined $expect;

        $self->ok($test, $name);
        $self->_is <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	11486	11607	
==>nd nothing else
        my $test = !defined $got && !defined $expect;

        $self->ok($test, $name);
        $self->_is <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15594	15697	
==>nfix into RPN
		($assignto, $type, @left)=generate_code($opts{lhs},@stream);	# Generate PASM code stream <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029899	1030121	
==>vent(interpreter, {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030741	1030963	
==>vent(interpreter, {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76010	76142	
==>RRORS++;
	return 0 if ! _verbosity("ERRORS");
	$errortext   = $_[0];
	$errorprefix = "ERROR" .  ($_[1] ? " (line $_[1])" : "");
	$err <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210272	210367	
==>er,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) <= 0) {\n    {{+={{\@3}}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211252	211347	
==>er,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) <= 0) {\n    {{+={{\@3}}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	66058	66368	
==>nterp",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "function",
                  "CODE" => 86,
                  "ARGS" => [
                              "p"
                            ], <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	1685	1831	
==>UNT => 0,
    BLOCK_COUNT    => 0
  }, $class;
}


#
# indent()
#

sub indent
{
  my $self = shift;
  $self->{INDENT} += 4;
}


#
# outdent()
#

su <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732165	732277	
==>" => "#line 129 \"src/ops/set.ops\"\n  {{\@1}} = (INTVAL)({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732911	733023	
==>" => "#line 129 \"src/ops/set.ops\"\n  {{\@1}} = (INTVAL)({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1614	1717	
==>outdent;
      $compiler->emit(".endnamespace ${namespace}_CONT");
    }

    $compiler->emit("  goto ${ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	220524	220810	
==>E" => 258,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 477 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@ <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	14574	14747	
==>.

=head1 EXAMPLES

=over 4

=item Example 1

Giving a struct element a class type that is also a struct is how
structs are nested.  Here, C<timeval> represents a time (secon <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567529	567769	
==>} = {{\@2}}->vtable->does(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	568424	568664	
==>} = {{\@2}}->vtable->does(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	7713	7929	
==>ey're nicely
        # checkable.

        # Break the list of children up into contiguous chunks of
        # things with and without maximum lengths
        my $havemax = 0;
        my @chunks = ([]);

        forea <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	520207	520605	
==>,
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 600,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 739 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3} <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	2243	2350	
==>{' and '}'.

      my $sym = $self->block->find_symbol($ident);

      $ident = Jako::Construct::Expression: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517760	518134	
==>e_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 597,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BOD <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7115	7225	
==>utput_pushindex {
    my ($self, $reg) = @_;
    $reg = value(defined($reg) ? $reg : 'pos');
    return $self-> <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6757	6867	
==>utput_pushindex {
    my ($self, $reg) = @_;
    $reg = value(defined($reg) ? $reg : 'pos');
    return $self-> <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	3642	3756	
==>f->svn_id;
    my ($version) = $id =~ /,v\s+(\S+)/s;
    
    return $version;
}

=item C<is_hidden()>

Returns whe <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	1001	1100	
==>HEADER";
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"
    "http://www.w3.org/TR/REC <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6494	6608	
==>yms[CURR]);
		push @{$code{$seg}->{code}}, "$labels{$syms[CURR]}:   # For user branch ($syms[CURR])\n";
		debug() i <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8774	8888	
==>yms[CURR]);
		push @{$code{$seg}->{code}}, "$labels{$syms[CURR]}:   # For user branch ($syms[CURR])\n";
		debug() i <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4211	4323	
==>BParse})#Already loaded ?
		and	return;
	}
	my($fname)=__FILE__;
	my(@drv);
	open(DRV,"<$fname") or die "Rep <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3996	4103	
==>BParse})#Already loaded ?
		and	return;
	}
	my($fname)=__FILE__;
	my(@drv);
	open(DRV,"<$fname") or die "Rep <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884525	884821	
==>1001,
                  "ARGS" => [
                              "s",
                              "sc",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STRING *dest = {{\@1}};\ <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	4124	4303	
==>equently Used Variables
my %bench;
my @section = sort $ini->GroupMembers( 'benchmark' );
my @program = map { /^benchmark\s+(.*)$/ } @section;
my %suffix;
$suffix{ $_ } = [ map quot <==
2	/Users/nnunley/parrot/config/gen/platform.pm	2897	3031	
==>d);
    for (@headers) {
        if (-e $_) {
            local $/ = undef;
            print("\t$_\n") if defined $verbose && $verbose <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660742	661065	
==>E" => "inline",
                  "CODE" => 738,
                  "ARGS" => [
                              "i",
                              "p",
                              "kic"
                            ],
                  "BODY" => "#line 334 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}-> <==
2	/Users/nnunley/parrot/config/auto/perldoc.pm	772	1025	
==>ldoc') || '';
            $version = 1;
            $self->set_result('yes, old version');
        } else {
            if (open FH, "< c99da7c4.tmp") {
                local $/;
                $a = <FH>;
                close FH;
                $versi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	2634	2819	
==>t' => [ $_, "op rxlocal $_" ]) }
                    reverse @$rxlocals);
    }
}

sub rule_save_rxlocals {
    my ($self) = @_;

    my $rxlocals = ($self->{rxlocals} ||= []);
    retur <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	5629	5730	
==>DIT THIS FILE   !!!!!!!
#
# This file is generated automatically from '$file'.
# Any changes made here <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	3254	3344	
==>String');

  $self->SYNTAX_ERROR("Can't do arithmetic on PMCs") if UNIVERSAL::isa($dest_typ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	3	121	
==>opyright (C) 2004-2006, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Docs/Section/Info.pm 20333 2006-06-21T18:44:31.1 <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61747	61885	
==>mmar =~ m/$SUBRULE/gco
				and $code = $1)
		{
			my $name = $code;
			my $matchrule = 0;
			if (substr($name,0,1) eq '<')
			{
				$name = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22505	22841	
==>",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 30,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#li <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	230252	230575	
==>src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_NUMCMP) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	221690	221799	
==>src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD_NUMCMP) > 0) {\n    {{+={{\@3}}} <==
2	/Users/nnunley/parrot/config/auto/format.pm	1456	1601	
==>find a printf-style format specifier for type \"$nv\"\n";
    }

    $conf->data->set(
        intvalfmt   => $ivformat,
        floatvalfmt => $n <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	1117	1269	
==>lar $_[0] =~ tr/\n//;
}

=item C<dont_edit($pmcfile)>

Returns the "DO NOT EDIT THIS FILE" warning text. C<$pmcfile> is the name
of the original source F <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	598	726	
==>erator, like bison or yacc?";
@args        = qw( yacc ask maintainer );

sub runstep
{
    my ($self, $conf) = @_;
    
    my $v <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3393	3486	
==>s L<Pod::PXML>, L<Pod::XML>, L<Pod::SAX>


=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 200 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3045	3138	
==>s L<Pod::PXML>, L<Pod::XML>, L<Pod::SAX>


=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 200 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758286	758408	
==>ne 276 \"src/ops/set.ops\"\n  {{\@1}} = string_set(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759059	759181	
==>ne 276 \"src/ops/set.ops\"\n  {{\@1}} = string_set(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	534544	534840	
==>" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 618,
                  "ARGS" => [
                              "n" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5702	5821	
==>) {
			$_=pop @ifstack;
			if ($_ < 0 ) {
				# print "Else was done, skipping...\n";
			} else {
				push @{$code{$seg} <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1617	1718	
==>ttern
        ? Parrot::Test::PGE::_generate_subrule_pir($target, $pattern)
        : Parrot::Test::PG <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2140	2241	
==>ttern
        ? Parrot::Test::PGE::_generate_subrule_pir($target, $pattern)
        : Parrot::Test::PG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744280	744513	
==>set.ops\"\n  {{\@1}} = string_from_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745046	745279	
==>set.ops\"\n  {{\@1}} = string_from_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	57962	58097	
==>separate fields (i.e. like split
does if your split pattern has capturing parentheses), you would
just make the last parameter undefined <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368878	369155	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369762	370039	
==>Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3962	4056	
==>Simple::Text> that formats only the "Pod Errors" section
(if Pod::Simple even generates one for <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565198	565502	
==>E" => "can",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 6 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566090	566394	
==>E" => "can",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 6 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761458	761710	
==>)\n        PANIC(\"Out of bound register access\");\n    REG_PMC({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762311	762563	
==>)\n        PANIC(\"Out of bound register access\");\n    REG_PMC({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	1309	1457	
==>arameters section MMD_type ]

for each vtable method defined in C<$file>. If C<$file> is unspecified it
defaults to F<vtable.tbl>.  If it is not an M <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1578	1683	
==>ffset)>. Called by C<goto_offset()>.

=cut

sub expr_offset
{
    my ($self, $offset) = @_;

    return "c <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2205	2321	
==>dr[*(cur_opcode = (opcode_t *)$addr)]";
    }
}

=item C<expr_offset($offset)>

Transforms the C<OFFSET($offset)> mac <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	2983	3141	
==>die "No source\n";
    my $target = shift || die "No target\n";
    my $silent = shift || 0;
    my $index_html = '';
    my @rel_paths = $self->contents_relat <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2587	2720	
==>die "No source\n";
    my $target = shift || die "No target\n";
    my $silent = shift || 0;
	my $index_html = '';
	
	print "\n\n", $s <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	80	210	
==>.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Vtable - Functions for manipulating vtables

=head1 SYNOPSI <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	39628	39725	
==>another "/para" tag is
encountered:

	$text = "/para line 1\n\nline 3\n/para line 4";

	extract_ta <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557768	557891	
==>ode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next = {{^+3}};\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559152	559275	
==>ode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next = {{^+3}};\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\ <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	19271	19411	
==>_.pmc"))
            for keys %{$class->{flags}{extends}};
    }
}

=head2 gen_c( [$dir1, $dir2], $file1, $file2, ... )

Generate the C sourc <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	15485	15606	
==>@ops, $self->dbprint("Trying alternative $i of 0..$#args\n");
        push @ops, @{ $iops[$i] };
        push @ops, aop('p <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	974	1193	
==>int  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, I1
                              #
print "Estimated ops: $I5\n"; # print  "Estimated o <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	974	1193	
==>int  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, I1
                              #
print "Estimated ops: $I5\n"; # print  "Estimated o <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	314	434	
==>ata->{nb_error} = 1;
    }

    print STDOUT 'lua: ', $parser->YYData->{srcname}, ':',
        $parser->YYData->{line <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	3488	3609	
==>se {
	my($type)=@_;
	if ($type eq "N") {
		return "0.0";
	} else {
		return qq{""};
	}
}
my $eqnum=0;
my %opsubs=(
	'+' => <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	9714	9850	
==>'.' in a filename");
        }
        $filebase  = substr($filebase, 0, 8);
        $extension = substr($extension, 0, 3);
        my $f <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	1370	1485	
==>$text = shift;

    return if $text =~ /DO NOT EDIT THIS FILE/;

    # Strip blocks of comments
    $text =~ s[^/\*. <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6592	6711	
==>$target_mod;
    }

    return 0;
}

sub generate_dump {
    my ($pmc) = @_;

    if (needs_build("$pmc.dump", "$pmc.pmc <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6803	6922	
==>$target_mod;
    }

    return 0;
}

sub generate_dump {
    my ($pmc) = @_;

    if (needs_build("$pmc.dump", "$pmc.pmc <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	5059	5251	
==>> and runs
language_output_is().  This I<does> set a description for you, so don't pass
one.

=item C<example_output_like( $example_f, $expected, @todo )>

Determine the language from the exten <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1909	2014	
==>$path);
}

=back

=head2 Instance Methods

=over 4

=item C<create_path()>

This is called from C<new()> t <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	886	991	
==>$path);
}

=back

=head2 Instance Methods

=over 4

=item C<create_path()>

This is called from C<new()> t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223328	223623	
==>ction",
                  "CODE" => 261,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 516 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_in <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	222	413	
==>ss

=head1 SYNOPSIS
    
    use base qw(Parrot::Configure::Step::Base);

=head1 DESCRIPTION

The C<Parrot::Configure::Step::Base> module contains utility methods that
should be inherited by a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	581478	581864	
==>"o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 663,
                  "ARGS" => [
                              "p",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	4605	4847	
==>def,
             'i_malloc' => undef,
             'i_math' => 'define',
             'i_memory' => undef,
             'i_mntent' => undef,
             'i_ndbm' => 'define',
             'i_netdb' => 'define',
             'i_neterrno' => u <==
2	/Users/nnunley/parrot/config/gen/cpu/i386/auto.pm	437	563	
==>ure::Step qw(cc_gen cc_build cc_run cc_clean);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->ge <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826355	826469	
==>,
                  "BODY" => "#line 146 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827425	827539	
==>,
                  "BODY" => "#line 146 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_entry(in <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	2324	2457	
==>+$b ' . $MSK . 
        ', $_[2]+$c' . $MSK . ', $_[3]+$d' . $MSK . ';
  }';
  eval $dump;
  #print "$dump\n";
  #exit 0;
}

gen_code( <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38481	38606	
==>lf->{class}, $method, 0);
    my $parameters = $method->{parameters};
    my $n=0;
    my @args = grep {$n++ & 1 ? $_ : 0} spl <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	17659	17821	
==>item B<skip>

    $Test->skip;
    $Test->skip($why);

Skips the current test, reporting $why.

=cut

sub skip {
    my($self, $why) = @_;
    $why ||= '';
    $se <==
2	/Users/nnunley/parrot/config/auto/socklen_t.pm	613	794	
==>cklen_t};
    my $has_socklen_t = ( $d_socklen_t && $d_socklen_t ne 'undef' ) ? 1 : 0; 
    $self->set_result( $has_socklen_t ? 'yes' : 'no' );
    $conf->data->set(
        has_sock <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2210	2314	
==>------------------------------
sub e2charnum {
  my $in = $_[0];
  return undef unless defined $in and le <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	1621	1776	
==>ft->is('assign');        }
sub is_bit_assign    { return shift->is('bit-assign');    }
sub is_bof           { return shift->is('bof');           }
sub is_cl <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	6306	6501	
==>key = new_tmp( $parser, 'pmc' );
                push @opcodes3, new LocalDir( $parser,
                    'result' => $num_key,
                );
                push @opcodes3, new CloneOp <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39603	39707	
==>eth_fromc_args$ret_type(interpreter, sub,
        pmc, meth, "$sig"$arg);
    $ret
}

EOC
}

package Parr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218846	218947	
==>}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) > 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219825	219926	
==>}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) > 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n", <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	28620	28745	
==>tionalize {
}

sub _op_exp {
}

sub _op_log {
}

sub _op_sin {
}

sub _op_cos {
}

sub _op_tan {
}

sub _op_asin {
}

sub _op_ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7141	7242	
==>$self, $reg) = @_;
    $reg = value(defined($reg) ? $reg : 'pos');
    return $self->output_pushint($r <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6783	6884	
==>$self, $reg) = @_;
    $reg = value(defined($reg) ? $reg : 'pos');
    return $self->output_pushint($r <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2574	2680	
==>haracter_number{$in}; # returns undef if unknown
  }
}

#-------------------------------------------------- <==
2	/Users/nnunley/parrot/config/auto/funcptr.pm	64	232	
==>onfig/auto/funcptr.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/funcptr.pm - Function Pointer Casts

=head1 DESCRIPTION

Verifies that the comp <==
2	/Users/nnunley/parrot/config/auto/memalign.pm	122	216	
==>oke  $

=head1 NAME

config/auto/memalign.pm - Memory Alignment

=head1 DESCRIPTION

Determines <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	22201	22493	
==>{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" = <==
2	/Users/nnunley/parrot/config/init/defaults.pm	679	819	
==>conf->data->set(
        debugging => $conf->options->get('debugging') ? 1 : 0,
        optimize  => '',
        verbose   => $conf->options- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5003	5126	
==>mit("  global \"$dest_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3066	3189	
==>mit("  global \"$dest_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3287	3412	
==>$)//g; # Delete leading and trailing quotes;

    $name =~ s/^.*:://; # Delete namespaces from ops

    $compiler->emit("  $na <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	722	897	
==>:Test::per_test('.py',$count);
    my $py_out_f = "$lang_f.out";
    my $pirate_out_f = Parrot::Test::per_test('.pirate.out',$count);
    my $parrotdir = dirname $self->{parrot <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	11290	11426	
==>(\d)}}->vtable->
        (\w+)
        \(interpreter,
        \s*
        {{\@(\d)}},\s*{{\@(\d)}}
        \);
        \s+{{\+=\d}}/xm) { <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	11737	11873	
==>(\d)}}->vtable->
        (\w+)
        \(interpreter,
        \s*
        {{\@(\d)}},\s*{{\@(\d)}}
        \);
        \s+{{\+=\d}}/xm) { <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	4894	4992	
==>$text =~ /^=head1/m) { # try an embedded pod
	my($doc) = $text =~ /(?:^|\n)=head1(.+)/s;
	die "inte <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3932	4032	
==>>imcc_pmc();
    my $temp_pmc = $compiler->temp_pmc();

    $compiler->emit("  $temp_pmc = new $pmc_t <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1571	1671	
==>>imcc_pmc();
    my $temp_pmc = $compiler->temp_pmc();

    $compiler->emit("  $temp_pmc = new $pmc_t <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	1849	1967	
==>pe);
    push @{ $op->{rxlocals} }, $var;
    return $var;
}

sub op_save_rxlocals {
    my ($self, $op) = @_;
    if ( <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4444	4550	
==>ir =~ s/\$push_num/$push_num/g;
		$push_num++;
	}

	# Return generated code.
	return $pir;
}

sub post_op($ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2860	2966	
==>ir =~ s/\$push_num/$push_num/g;
		$push_num++;
	}

	# Return generated code.
	return $pir;
}

sub post_op($ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	582	849	
==>$self  = $class->SUPER::new( @_ );
	$self->{split_count} ||= 0;
	return $self;
}

=item C<core_type()>

The core type is C<PARROT_SWITCH_CORE>.

=cut

sub core_type
{
    return 'PARROT_SWITCH_CORE';
}

=item C<core_prefix()>

The prefix is C<'switch_'>.

=cut

sub co <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	16765	16868	
==>imple::RTF for an example of a formatter
that uses Pod::Simple::PullParser.

=head1 METHODS

=over

=ite <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2176	2292	
==>shortcuts:

=item $token->is_start

This is a shortcut for C<< $token->type() eq "start" >>

=item $token->is_text

T <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5039	5153	
==>E_BRANCH_${CURIC}_LAZY_MOVE_$register_num

# No lazy move available - need to refer to register.
${STEMP0} = "$"
${ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305140	305403	
==>T_JUMP_RELATIVE",
                  "NAME" => "if_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	305928	306191	
==>T_JUMP_RELATIVE",
                  "NAME" => "if_null",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "fun <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	10099	10208	
==>ead>
  <title>Parrot Smoke Reports</title>
  <meta http-equiv="Content-Type" content="text/html; charset=utf-8 <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	29911	30078	
==>'<=',
        'arg2'   => $_limit,
        'result' => $lbl_end,
    );
    my $lbl_blk = new_label($parser);
    push @opcodes, new BranchOp( $parser,
        'r <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9679	9789	
==>urn 1;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sub esc {
  if(defined wa <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10808	10896	
==>urn 1;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sub <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490376	490629	
==>=> 0,
                  "NAME" => "inc",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490997	491250	
==>=> 0,
                  "NAME" => "inc",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	69678	69790	
==>g "perl -s")
		       for hints on fixing these problems.');
	}
	if ($ERRORS) { $ERRORS=0; return }
	return $self <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	1631	1726	
==>d1 SEE ALSO

=over 4

=item F<tools/build/ops2pm.pl>

=item C<Parrot::OpsFile>

=item C<Parrot:: <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	43266	43404	
==>new_regs,
    frames => [],
    gensym   => 0,
    functions=> [],
    scope    => {},
  };
  bless $self,$class;
}

sub prettyprint {
  my <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27453	27544	
==>stant(1);
    $self->_add_inst('','div',[$return,$temp,$return]);
    $self->_restore($temp) <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29693	29831	
==>$pre_load, $mv, "pre_load for rule $rule->{'name'}");
		$pir .= "### end pre_load\n";

		# If we have PIR for the instruction, just take th <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	2797	2921	
==>at8_t => 'double');
        print <<'END';

Can't find a float type with size 8, conversion ops might fail!

END
    }

    m <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	915	1037	
==>alue,
    PROPS => $props,
    ARGS  => undef,

    DEBUG => 1,
    FILE  => $ident->file,
    LINE  => $ident->line
  }, $ <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	1775	1870	
==>root\n";
}

=back

=head2 Instance Methods

=over 4

=item C<c_source_file_directories()>

Retur <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	113	223	
==>3:20.183054Z coke  $

=head1 NAME

tools/dev/parrot_coverage.pl - Run coverage tests and report

=head1 SYNOPSI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685317	685592	
==>=> 769,
                  "ARGS" => [
                              "p",
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line 550 \"src/ops/pmc.ops\"\n      {{\@1}}->vtable->setprop(interpreter <==
2	/Users/nnunley/parrot/config/init/hints/freebsd.pm	943	1055	
==>t_shared        => 'libparrot$(SHARE_EXT).$(SOVERSION)',
        libparrot_shared_alias  => 'libparrot$(SHARE_EXT <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	1781	1893	
==>t_shared        => 'libparrot$(SHARE_EXT).$(SOVERSION)',
        libparrot_shared_alias  => 'libparrot$(SHARE_EXT <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33746	33871	
==>ice @{shift @$paras},2;
            } else {
              DEBUG and print "Can't assimilate following ", $paras->[0][0], "\n" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35559	35684	
==>ice @{shift @$paras},2;
            } else {
              DEBUG and print "Can't assimilate following ", $paras->[0][0], "\n" <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	4902	5030	
==>)
	{
		my $self = $owner->{"rules"}{$name};
		if ($replace && !$self->{"changed"})
		{
			$self->reset;
		}
		return $self;
	}
	e <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	15695	15838	
==>eys %extra );
            local *{ $call_pkg . '::TODO' } = \$extra{todo}
                if defined $extra{todo};

            my $pass = $buil <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	18246	18389	
==>eys %extra );
            local *{ $call_pkg . '::TODO' } = \$extra{todo}
                if defined $extra{todo};

            my $pass = $buil <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19179	19437	
==>5
		ACTIONS => {
			"(" => 8,
			'NAME' => 4
		},
		GOTOS => {
			'functioncall' => 107,
			'var' => 108
		}
	},
	{#State 56
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRI <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	3784	3897	
==>arent_headers

END
    }

    # src/pmc/$pmc\$(O): \$(NONGEN_HEADERS) $parent_headers src/pmc/pmc_$pmc.h

    # bu <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	20424	20538	
==>en to call these, internally
      $para->[1]{'~really'} ||= '=begin';
      $para->[1]{'~ignore'}   = (! $dont_ign <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41444	41562	
==>f $backtrack;

		  # MATCH RIGHTARG
		  ' . $rightarg->code(@_[1..2]) . '
		  $repcount++;
		  ';
	}

	$code .= 'unless <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	785	918	
==>f defined $props and ref($props) ne "HASH";

  my $self = bless {
    BLOCK => $block,

    TYPE  => undef,
    NAME  => $ident->value <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1010	1102	
==>i])
#define SREG(i) REG_STR(cur_opcode[i])
#define CONST(i) CONTEXT(interpreter->ctx)->consta <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1126	1218	
==>i])
#define SREG(i) REG_STR(cur_opcode[i])
#define CONST(i) CONTEXT(interpreter->ctx)->consta <==
2	/Users/nnunley/parrot/config/auto/byteorder.pm	879	1097	
==>self->set_result('little-endian');
    } elsif ($byteorder =~ /^(8765|4321)/) {
        $conf->data->set(
            byteorder => $byteorder,
            bigendian => 1
        );
        $self->set_result('big-endian' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	869960	870131	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 232 \"src/ops/string.ops\"\n  INTVAL len;\n  len = string_length(int <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3425	3543	
==>$self->_save_1 ('I');
    $self->_add_inst ('', 'set', [$return,$value]);
  }
  elsif ($value =~ /^[-+]?((\d+\.\d*)|(\. <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2674	2792	
==>e) {
      my $temp = $compiler->temp_reg($formal_arg_type);
      my $value = $args[$i]->compile($compiler);
      $co <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2374	2492	
==>e) {
      my $temp = $compiler->temp_reg($formal_arg_type);
      my $value = $args[$i]->compile($compiler);
      $co <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	12264	12434	
==>OPYRIGHT | LICENSE | NOTES? | FUNCTIONS? | METHODS?
             | CAVEATS? | BUGS? | SEE\ ALSO | SWITCHES | ENVIRONMENT
            )\)/sx
            # avoid accepting t <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	12406	12550	
==>READYDONE') {
    # It's already been handled.  Check for errors.
    if(! $self->{'encoding_command_statuses'} ) {
      DEBUG > 2 and print " C <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79568	79870	
==>t);\n      PMC_data({{\@1}}) = p;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81089	81391	
==>t);\n      PMC_data({{\@1}}) = p;\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	246	348	
==>19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

use Carp;

package Jako: <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	17181	17306	
==>ion serves a single purpose. It takes the function
   signature for a C function we want to call and returns a pointer
   to a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584703	584968	
==>class(interpreter, class, NULL);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585778	586043	
==>class(interpreter, class, NULL);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	3481	3575	
==>onally implemented in subclasses to return the C code for the core's
init function. C<$base> is <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356660	356802	
==>ps/io.ops\"\n  PIO_eprintf(interpreter, INTVAL_FMT, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357320	357462	
==>ps/io.ops\"\n  PIO_eprintf(interpreter, INTVAL_FMT, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/config/init/miniparrot.pm	1751	1873	
==>has___sighandler_t => undef,
        has_sigatomic_t    => undef,
        has_sigaction      => undef,
        has_setitime <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22363	22469	
==>$temp_0 = $self->_generate($node->{children}[1]);
  $return = $self->_constant(1);
  my $temp_1 = $self->_c <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22864	22970	
==>$temp_0 = $self->_generate($node->{children}[1]);
  $return = $self->_constant(1);
  my $temp_1 = $self->_c <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12301	12443	
==>T/) {
					push @ld, { type => "STRING", value=> qq{"$s"}};
					last OUTDATA;
				}
				$s.=$syms[CURR];
			}
		} else {
			die "Cannot use $t <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	2440	2624	
==>group('Contents', 'See the <code>ExtUtils::Manifest</code> documentation for more information about MANIFEST files.',
            $self->new_item('Lists all the files in the distributio <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	2423	2558	
==>f interest to people writing a Pod processor/formatter.

This class takes Pod and parses it, returning a parse tree made just
of arrayre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	538611	538832	
==>623,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 982 \"src/ops/math.ops\"\n  {{\@1}} = tan((FLOATVAL) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712434	712524	
==>interpreter, io, \" \");\n  s = Parrot_sprintf_c(interpreter, \"%.12g\", (double){{\@1}});\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713541	713631	
==>interpreter, io, \" \");\n  s = Parrot_sprintf_c(interpreter, \"%.12g\", (double){{\@1}});\ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	2434	2627	
==>return 1 unless $self->{emit_main};

    print $fh <<'END';
.sub main :main
    .param pmc args
    .local string input_string
    input_string = args[1]

    $P0 = loadlib "match_group"

    .l <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	335	454	
==>sub new {
    return bless {};
}

sub output_is() {
    my ($self, $code, $output, $desc) = @_;
  
    my $count = $self <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	373	492	
==>sub new {
    return bless {};
}

sub output_is() {
    my ($self, $code, $output, $desc) = @_;
  
    my $count = $self <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450748	450956	
==>,
                              "p"
                            ],
                  "BODY" => "#line 200 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}}->vtable->absolute(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n" <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	9944	10085	
==>{$filename_8dot3}) {
            error("MANIFEST", $line, "$_: 8.3 name collision with $files_in_dir_8dot3{$dirname}{$filename_8dot3} ($filena <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	19084	19343	
==>ype == enum_class_UnManagedStruct)
        return F2DPTR(PMC_data(b));

    /*
      These three lines have been added to aid debugging. I want to be able to
      see which signature has an unknown type. I am sure someone can come up
      with a neater way t <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	15110	15538	
==>er_mmd } **\n";
                    push @{ $self->{super_mmd} },
                        { $pname => $super_mmd,
                          'meth' => $meth};
                }
                last;
            }
        }
        unless (exists $self->{super}{$meth}) {
            # XXX this is a quick hack to get the inheritance
            # ParrotClass isa delegate
            #
            # delegate has everything autoge <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	8301	8519	
==>S} = concat ${DEST0}
${INS} = concat "\n"
post_call_NO_RETURN_${CURIC}:

POST_CALL_END_${CURIC}:
PIR
}

# Pop everything on the stack.
sub pop_all {
    return <<'PIR'
${INS} = concat "s = new ResizablePMCArray\n"
PIR
} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103826	1103915	
==>src/ops/experimental.ops\"\n\tSTRING *class = {{\@2}};\n\tINTVAL type = pmc_type(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105041	1105130	
==>src/ops/experimental.ops\"\n\tSTRING *class = {{\@2}};\n\tINTVAL type = pmc_type(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	11268	11363	
==>he command's output (both stdout and stderr), and
its return status is returned as a 3-tuple. B< <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	594	737	
==>ec new defined addr global clone saveall
    restoreall);
my @imcc_spdirec = qw(.pcc_call .result .return .local .const .globalconst
    end got <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	1135	1287	
==>Returns a new C source and/or header files documentation item. Recognized keys
for C<%contents> are C<pairs>, C<sources>, C<headers> and C<contents>.

=c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314406	314718	
==>re",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 367,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 67 <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	2379	2585	
==>',
             'cp' => 'perl -MExtUtils::Command -e cp',
             'cpuarch' => 'ppc',
             'cxx' => '',
             'darwin' => 1,
             'debugging' => 1,
             'doc_dir' => '/opt <==
2	/Users/nnunley/parrot/languages/regex/test.pl	2205	2311	
==>many args!";
    }
}

usage "not enough args: testfile required"
  if ! defined $testfile && ! defined $pat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	522158	522353	
==>",
                              "n"
                            ],
                  "BODY" => "#line 744 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	523013	523208	
==>",
                              "n"
                            ],
                  "BODY" => "#line 744 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} - {{\@3}};\n  {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	875	1115	
==>($value);
      printf $fh qq{%s \\ "%s" => "%s"\n},
        '  ' x ($_[0]{'indent'} || 0), $key, $value;
    }
  }
  return;
}

sub _handle_text {
  DEBUG and print "== \"$_[1]\"\n";
  
  if(length $_[1]) {
    my $indent = '  ' x $_[0]{'in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	231573	232090	
==>p",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 270,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 592 \"src/ops/cmp.o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234284	234807	
==>p",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 273,
                  "ARGS" => [
                              "i",
                              "nc",
                              "n"
                            ],
                  "BODY" => "#line 599 \"src/ops/cmp.ops\"\n <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1627	1728	
==>!")
    unless UNIVERSAL::isa($type, "Jako::Construct::Type");

  my $type_name = $type->name;

  $sel <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1475	1576	
==>!")
    unless UNIVERSAL::isa($type, "Jako::Construct::Type");

  my $type_name = $type->name;

  $sel <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	33588	33733	
==>ist,
  'length'   => \&_op_length,
  'append'   => \&_op_append,
  'reverse'  => \&_op_reverse,
  'list-ref' => \&_op_list_ref,
  'memq'     => \& <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243422	243852	
==>p",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 283,
                  "ARGS" => [
                              "i",
                              "p",
                              "s" <==
2	/Users/nnunley/parrot/config/init/defaults.pm	484	668	
==>scription = q{Setting up Configure's default values};

@args = qw(debugging optimize profile verbose prefix);

sub runstep
{
    my ($self, $conf) = @_;

    # We need a Glossary somewh <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10837	10944	
==>:render {
    my $op = shift;
    return join('', map { $_->render() } @{ $op->{args} });
}

sub Regex::Ops: <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	2897	3044	
==>f->c_pair_item('', 'embed'),
            $self->c_pair_item('', 'global_setup'),
            $self->c_item(
                'Parrot Interpreter: Cal <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	3282	3485	
==>e is
C<PConfig>.

Accepts no arguments and returns a string.

=cut

# Data::Dumper supports Sortkeys since 2.12
# older versions will work but obviously not sorted
{
    my $dd_version;
    if ($Data::Dum <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	9520	9720	
==>>Function</th>
                  <th>Line Coverage</th>
                  <th>Branch Coverage</th>
                  <th>Call Coverage</th>
    );

        my $outfile_base = $source_file; 
        $ou <==
2	/Users/nnunley/parrot/Configure.pl	354	449	
==>fic files before building Parrot.

=head2 Command-line Options

General Options

=over

=item C< <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	1773	1893	
==>p *interp, PMC* registry);
extern void Parrot_initialize_core_pmcs(Interp *interp);
void Parrot_initialize_core_pmcs(Inte <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6644	6752	
==>n!;
}

sub output_atend {
    my ($self, $failLabel) = @_;
    my $fail = $self->output_label_use($failLabel) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6288	6396	
==>n!;
}

sub output_atend {
    my ($self, $failLabel) = @_;
    my $fail = $self->output_label_use($failLabel) <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10479	10604	
==>error}.
#DBG>						 ".\n";

		push(@$stack, [ $$states[$$stack[-1][0]]{ACTIONS}{error}, undef ]);

    }

    #never re <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10010	10128	
==>error}.
#DBG>						 ".\n";

		push(@$stack, [ $$states[$$stack[-1][0]]{ACTIONS}{error}, undef ]);

    }

    #never re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488265	488671	
==>ME" => "floor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 559,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 507 \"src/ops/math.ops\"\n  {{\@1}} = floo <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	7655	7763	
==>gets (not directives)

sub accept_target         { shift->accept_targets(@_)         } # alias
sub accept_tar <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	11999	12233	
==>accessor returns a reference to the
element's whole array (whether or not the element was
specified as C<'@'> or C<'*@'>).

With one or two arguments, the first argument is an index
specifying one element of the array; the second argum <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	33109	33240	
==>an} && !$self->{Test_Died}) )
    {
	_my_exit($?);
	return;
    }

    # Figure out if we passed or failed and print helpful message <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	69971	70087	
==>iable($$$$)
{
	my ($subrule,$repspec,$grammar,$line) = @_;
	pos($grammar)=pos($_[2]);
	return if $grammar =~ m/$OPTIO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1084143	1084537	
==>"splice",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1203,
                  "ARGS" => [
                              "p <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	25006	25125	
==>},Parse::RecDescent::linenum($thisline)];'; 
		}
	}
	else	  # GENERATE ERROR MESSAGE DURING PARSE
	{
		$action .= '
		my <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	7848	8002	
==>tension under the terms of the GNU or Artistic
licenses.

=head1 AUTHORS

The original MD5 interface was written by Neil Winton
(C<N.Winton@axion.bt.co.uk> <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1964	2067	
==>L<Parrot::Configure::Data> object.

=cut

sub options
{
    my $self = shift;

    return $self->{option <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7852	8018	
==>$semval = $code ? &$code( $self, @sempar )
                            : @sempar ? $sempar[0] : undef;

            splice(@$stack,-$len,$len);

                $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7497	7658	
==>$semval = $code ? &$code( $self, @sempar )
                            : @sempar ? $sempar[0] : undef;

            splice(@$stack,-$len,$len);

                $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	5032	5144	
==>o_url_link { return $_[1]->attr('to') }

sub do_man_link { return undef }
 # But subclasses are welcome to overri <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	27166	27264	
==>d  = $self->{"mod"};

	$sdel =~ s/[[{(<]/{}/;
	
my $code = ''.($::RD_NO_TRACE?'':'
		Parse::RecDesc <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	12617	12729	
==>y($self, $got, $dont_expect, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $dont <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	13061	13173	
==>y($self, $got, $dont_expect, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $dont <==
2	/Users/nnunley/parrot/Configure.pl	308	422	
==>ld be run to create the necessary
system-specific files before building Parrot.

=head2 Command-line Options

Gener <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1868	1982	
==>compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $block = $self->block;
  my $kind  = $s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	875845	876212	
==>"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 993,
                  "ARGS" => [
                              "s",
                              "sc",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093674	1093937	
==>reter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094477	1094740	
==>reter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	28348	28467	
==>ne 502 \"src/ops/core.ops\"\n    opcode_t * const this = CUR_OPCODE;\n    PMC * const signature = {{\@1}};\n    INTVAL a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019776	1019877	
==>.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_loca <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020707	1020808	
==>.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_loca <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614382	614821	
==>RS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 696,
                  "ARGS" => [
                              "i",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 508 \"src/o <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6511	6633	
==>d,
   ' force another pass by setting Exchange to TRUE.
   FOR I = 2 TO Max
      IF A$(I-1) > A$(I) THEN
         Exchange <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16164	16286	
==>d,
   ' force another pass by setting Exchange to TRUE.
   FOR I = 2 TO Max
      IF A$(I-1) > A$(I) THEN
         Exchange <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	3510	3675	
==>b is_until         { return shift->is('until');         }
sub is_var           { return shift->is('var');           }
sub is_while         { return shift->is('while') <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11511	11624	
==>defined $to and length $to;
    $out .= "#" . $section if defined $section and length $section;
    
    return un <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4803	4907	
==>defined $to and length $to;
  $out .= "#" . $section if defined $section and length $section;
  return un <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	1763	1861	
==>se Data::Dumper;
print Data::Dumper->Dump([$m],["*DEFAULT_RULE_MATCH"]);
  return reduce($m, $input <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11862	11974	
==>~ /-/) {
			if ($type[NEXT] =~ /INT|FLO/) {
				feedme();
				$syms[CURR]="-$syms[CURR]";
			}
		}
		if ($type[CU <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64300	64475	
==>me>($1) ");

						pos $grammar = $pos;
					}
					else
					{
						$item = new Parse::RecDescent::Repetition($name,$1,$1,$1,
										   $lookahead,$line,
										   $sel <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	1929	2158	
==>$self->{PARENT} = shift;
}

sub parent
{
    my $self = shift;
    
    return $self->{PARENT};
}

=item C<html_navigation($path)>

Returns the HTML navigation bar.

=cut

sub html_navigation
{
    my $self = shift;
    my $path = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	214148	214423	
==>@2}}, MMD_CMP) > 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6482	6628	
==>$fail if <rx_pos> < <rx_len>; # at end?");
}

sub output_pushmark {
    my ($self) = @_;
    my @ops;
    if ($self->{DEBUG}) {
	push @ops, (qq(pri <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	1825	1961	
==>ed, $description)> or C<output_is($code, $expected, $description)>

Runs the Parrot Assembler code and passes the test if a string compar <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	1232	1352	
==>nt "# Constants: $count entries\n";
    print "# ID  Flags    Encoding Type     Size     Data\n";

    my $constant_num = <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2029	2129	
==>"<p>\n" . $index_html . "</p>\n\n";
		}
		
		$index_html = "<p>$self->{TEXT}</p>\n\n" . $index_html i <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	3159	3340	
==>ut_label_use {
    my ($self, $label) = @_;
    $DB::single = 1 if ! ref $label || ! $label->{label};
    ($label = $label->{label}) =~ s/^@//; # FIXME: local labels?
    return "$la <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	3432	3604	
==>L len;
    Parrot_UInt4 hash_val;
    const char *string;
} parrot_cstrings[] = {
	{ 0, 0, "" },
HEADER
    my @all;
    for my $s (@all_strings) {
	push @all, qq!\t{$s->[0] <==
2	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1235	1370	
==>w(Lua::opcode);

package RelationalOp;
use base qw(Lua::opcode);

package AssignOp;
use base qw(Lua::opcode);

package KeyedGetO <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	75186	75309	
==>cemsg;
my $tracecontext;
my $tracerulename;

open (TRACE, ">&STDERR");
format TRACE =
|@|||||||||@^<<<<<<<<<<<<<<<<<<<<<<<<< <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12642	12768	
==>alue->new($block, $self->forth);

      $self->require_semicolon;

      my $bitwise = Jako::Construct::Statement::Bitwise->new <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	243	363	
==>ted );

use vars qw ( $skip );

sub linenum
{
	my ($thisline) = @_;
	my $tlc;
	tie $tlc, q{Parse::RecDescent::LineCounter <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	8993	9192	
==>_block'} = 0;
    }
    
  } # ends the big while loop

  DEBUG > 1 and print(pretty(@$paras), "\n");
  return $self;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

su <==
2	/Users/nnunley/parrot/config/gen/revision.pm	695	850	
==>=> $revision,
        SVN_ENTRIES => $entries
    );

    if ($revision >= 1) {
        $self->set_result("r$revision");
    } else {
        $self->set_res <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	416828	417495	
==>e_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 480,
                  "ARGS" => [
                              "i",
                              "p",
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(i <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	7679	7824	
==>$one_op .= "$definition $comment {\n$src}\n\n";
    push @op_funcs, $one_op;
    $index++;
}

if ($suffix =~ /cg/) {
    print SOURCE @cg_jump_tab <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	144	374	
==>sults, {
			name	=> $3,
			total	=> $2,
			done	=> $1,
			percent	=> int(($1 / $2) * 100)
		};
	}
}

print <<HEADING;
NAME                                              DONE      TOTAL     PERCENT
HEADING
foreach (@resul <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2057	2155	
==>-$_[0]{'Indent'} }
sub   end_over_text    { --$_[0]{'Indent'} }
sub   end_over_block   { --$_[0]{'I <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1625	1723	
==>-$_[0]{'Indent'} }
sub   end_over_text    { --$_[0]{'Indent'} }
sub   end_over_block   { --$_[0]{'I <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	52727	52848	
==>core marker", $aftererror,$line);
				$code =~ /\A\s*<score:(.*)>\Z/s;
				$prod and $prod->addscore($1, $lookahead, $line <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8842	8992	
==>ed = 0;
    $Test::num_of_tests_badpass = 0;
    $Test::num_of_tests_planned = undef;
    $Test::force_todo_test_junction = undef;
    $Test::testing_s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	15283	15429	
==>shift(@fails));
        push @ibacks, $iback;
        push @iops, \@ops;
    }

    my @ops;
    for my $i (0..$#args) {
        push @ops, $tries[ <==
2	/Users/nnunley/parrot/config/gen/platform.pm	706	846	
==>defined($conf->options->get('miniparrot'));
    $platform = "win32" if $platform =~ /^msys/;
    $platform = "win32" if $platform =~ /^mingw/ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	457	580	
==>= shift;
  my ($block, $left, $op, $right) = @_;

  confess "Block is not defined!" unless defined $block;
  confess "Left i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	469	592	
==>= shift;
  my ($block, $left, $op, $right) = @_;

  confess "Block is not defined!" unless defined $block;
  confess "Left i <==
2	/Users/nnunley/parrot/lib/Test/More.pm	8674	8826	
==>.

  ok( exists $brooklyn{tree},    'A tree grows in Brooklyn' );

For those grammatical pedants out there, there's an C<isn't()>
function which is an al <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	1880	1986	
==>PMC *final_destination = pmc_new(interpreter, enum_class_UnManagedStruct);",
       t => "STRING *final_des <==
2	/Users/nnunley/parrot/config/init/headers.pm	7	100	
==>ight (C) 2001-2006, The Perl Foundation.
# $Id: /parrot/config/init/headers.pm 20700 2006-06-2 <==
2	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	356	527	
==>rnings;

=item C<parrot_version()>

Determine the current version number for Parrot from the VERSION file
and returns it.

=cut

# cache for repeated calls
# XXX this could <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	38441	38662	
==>se {
            DEBUG and print "Treating $para_type paragraph as Data because the containing =for ($fors[-1][1]{'target'}) is a non-resolver\n";
            $para->[0] = $para_type = 'Data';
          }
        }
      } <==
2	/Users/nnunley/parrot/config/inter/charset.pm	12	104	
==>(C) 2001-2003, The Perl Foundation.
# $Id: /parrot/config/inter/charset.pm 19593 2006-05-30T0 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	17599	17715	
==>, [ $counter, 'dynamic alt counter' ]),
                 $self->dbprint("backtracking into dynalt's index %<$counter> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1851	1965	
==>ormal_args == @args;

  for (my $i = 0; $i < @args; $i++) {
    my ($formal_arg_type, $formal_arg_name) = @{$formal <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1551	1665	
==>ormal_args == @args;

  for (my $i = 0; $i < @args; $i++) {
    my ($formal_arg_type, $formal_arg_name) = @{$formal <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7035	7187	
==>eed_dest) {
        $pir = _do_lazy_moves('_${CURIC}');
		$pir .= <<'PIR'
inc stack_depth 
${DEST0} = "$"
${STEMP0} = ${LOADTYPE}["reg_type_short"]
${DES <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	28941	29188	
==>t, $i, 1); # thereby just nix this node.
      --$i;
        
    }
  }
  
  return;
}

# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

# Quoting perlpodspec:

# In parsing an L<...> code, Pod parsers must distinguish <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	6965	7132	
==>s*/, $2;
            
            $locals{$_} = 1 for @vars;
            $code .= inline("  .local $1 ");
            $code .= emit(join(",", map {$_."_%0"} @vars), 'lo <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	3198	3419	
==>o;
    
    return $id;
}

=item C<has_svn_id()>

Returns whether the file has a svn C<$Id> string.

=cut

sub has_svn_id
{
    my $self = shift;
    my $content = $self->read;
    # Break up the $Id to prevent svn messing <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	600063	600158	
==>lass_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601139	601234	
==>lass_lookup_p(interpreter, {{\@2}});\n  opcode_t *next = {{^+3}};\n  if (PMC_IS_NULL(class)) {\n <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	14720	14962	
==>amp)$/) {
			my $ti="\$I" . ++$retcount;
			my $tn="\$N" . ++$retcount;
			@ass=(
				@$rightexpr,
				"\tset $ti, $right\t# Truncate",
				"\tset $tn, $ti",
				"\t$left = $tn",
			);
		} else {
			# Simple a=expr case.
			@ass=(
				@$righte <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596174	596290	
==>c/ops/object.ops\"\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597067	597183	
==>c/ops/object.ops\"\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LA <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	59	197	
==>ire 'Regex.pm';

sub new {
    my ($proto, %opts) = @_;
    my $self = bless \%opts, (ref($proto) || $proto);
    $self->init();
    return <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	30569	30682	
==>so note additional attributes including:
#

############# The "type" attribute.
# Fifth:
# A flag for whether item <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	9798	9951	
==>line_coverage{$source_file}}) {

            print OUT qq(
           <tr>
             <td>$function</td>
             <td><a href="$outfile_base.lines.h <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	23785	23892	
==>$$textref = $firstpos };
	return $fields[0];
}


sub gen_extract_tagged # ($opentag, $closetag, $pre, \%opti <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	631	851	
==>which B<should> make it
easier to inline more builtins accurately.

Currently supports the following types of arguments: 
variable name, integer, channel, list, string, script, and expressions.

=cut

my $file = open_tmt( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	26144	26296	
==>egin_block($label, 'bare', undef);

      next;
    }

    #
    # Conditional Continuations:
    #
    #   } elsif (<value> <op> <value>) {
    #

    i <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	974	1069	
==>EXT = qq[.bundle];
our $O = qq[.o];
our $CFLAGS = qq[-I/opt/local/include -fno-common -no-cpp-pr <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	978	1073	
==>EXT = qq[.bundle];
our $O = qq[.o];
our $CFLAGS = qq[-I/opt/local/include -fno-common -no-cpp-pr <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	2284	2373	
==>C<output_isnt($code, $unexpected, $description)>

Runs the Parrot Assembler code and passe <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7290	7395	
==>nore}) eq 'ARRAY' ? join('|', @{$options{ignore}})
		    : defined($options{ignore})	       ? $options{ign <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24292	24397	
==>nore}) eq 'ARRAY' ? join('|', @{$options{ignore}})
		    : defined($options{ignore})	       ? $options{ign <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Posix.pm	87	232	
==>3Z bernhard  $

package Parrot::Test::Bc::Posix;

use strict;

use base 'Parrot::Test::Bc';

sub get_out_fn {
    my $self = shift;
    my ( $coun <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924386	924473	
==>/string.ops\"\n  {{\@1}} = string_make_empty(interpreter, enum_stringrep_one, {{\@2}});\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925177	925264	
==>/string.ops\"\n  {{\@1}} = string_make_empty(interpreter, enum_stringrep_one, {{\@2}});\ <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	5669	5818	
==>th --$sa and --$sb used\n";
    }
}

warn_if_both($Code,   $Data,    'code',   'data' );
warn_if_both($Global, $Local,   'global', 'local');
warn_if_b <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	28666	28994	
==>::Ops::List")) {
        return ($lastback, $op);
    } else {
        $DB::single = 1;
        die "malformed op $op";
    }
}

sub run {
    my ($self, $tree, $ctx, $pass_label, $fail_label) = @_;
    die "Wrong #args" if @_ != 5;

    die "Expected rule!" unless ref($tree) eq 'Regex::Ops::Tree::rule';

    my (undef, @ops) = <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	7802	7942	
==>nci(interpreter, st);

    return UVal_num(st->val);
}

static STRING*
get_nci_S(Interp *interpreter, struct call_state *st, int n)
{
    ass <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645760	645862	
==>\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtable_max)\n\t\t{{\@1}} = interpreter->vtables[{{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646657	646759	
==>\"\n    if ({{\@2}} > 0 && {{\@2}} < interpreter->n_vtable_max)\n\t\t{{\@1}} = interpreter->vtables[{{\ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6655	6740	
==>CURIC}_LOOP
POST_BRANCH_switch_${CURIC}_LOOP_EXIT:

POST_BRANCH_NOT_switch_${CURIC}:
P <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4593	4678	
==>CURIC}_LOOP
POST_BRANCH_switch_${CURIC}_LOOP_EXIT:

POST_BRANCH_NOT_switch_${CURIC}:
P <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	8193	8446	
==>blen] repeated up to N times
    }
}

sub startset {
    my $op = shift;
    my @sub = $op->{args}->[3]->startset();
    if (@sub && $sub[0] ne '') {
        if ($op->minlen() == 0) {
            return ('', @sub);
        } else {
            return @su <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	1182	1287	
==>file (keys %pmcs) {
        $pmcs{$file}->{vtable} = $vtable_dump;
        $pmcs{$file} = Parrot::Pmc2c->n <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30837	30935	
==>rse::RecDescent::InterpLit;

sub sethashname { $_[0]->{hashname} = '__STRING' . ++$_[1]->{strcount} <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22659	22767	
==>'   ,[$return,0]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0,$temp_1);
  return $return;
} <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23160	23268	
==>'   ,[$return,0]);
  $self->_add_inst("DONE_$label");
  $self->_restore($temp_0,$temp_1);
  return $return;
} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	250113	250378	
==>ABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "not",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	251512	251777	
==>ABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "not",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	5303	5425	
==>oined with
C<|> (see F<include/parrot/op.h>). This indicates if and how an op
may jump.

=cut

sub jump
{
    my $self = sh <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	50054	50241	
==>ly just stuff, because we needed more.\n";
        push @{ $lineage[-1] }, $3;
        next;
      }
      #print "\nHOOBOY ", scalar(@{$lineage[-1]}), "!!!\n";
      
      push @{ $linea <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	23793	23917	
==>p @stack;
	    unshift @args, $t->[1];
	}
	for (my $i = 0; $i < $nf; $i++) {
	    my $arg = pop @stack;
	    unshift @args, p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	4181	4357	
==>next;
    }

    if ($text =~ m{^(while|until|for|continue)(?!\w)(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, $1, undef, $1);
      $text = $2;
      ne <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1494	1667	
==>t unsigned char* parrot_config,
                                 unsigned int parrot_config_size);


static const unsigned char parrot_config[] = {
EOF
;

if ($mini_parrot) { <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	483	655	
==>on
to all transforms.

The subclass hierarchy is as follows:

    OpTrans
       |_________________________
       |           |             |
       C         CGoto       C <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	17171	17277	
==>f->dbprint("matching dynalt[%<$counter>]\n"),
                 @R_ops,
		 aop('pushint', [ $counter, "dynam <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1454	1571	
==>ck!")
    unless defined $block;

  $self->INTERNAL_ERROR("Undefined type!")
    unless defined $type;

  $self->INTER <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1302	1419	
==>ck!")
    unless defined $block;

  $self->INTERNAL_ERROR("Undefined type!")
    unless defined $type;

  $self->INTER <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	18529	18681	
==>v0.58.

    Added handling of hash-like arg list to class ctor.

    Changed to two-argument blessing in ctor to support
    derivation from created clas <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	5801	5931	
==>$name = new .$type");
            $code .= emit("a_$name = $quote$default$quote");
            $code .= "done_$name: \n";
        } <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	3355	3566	
==>ct'     , 167,
 'uml'      , 168,
 'copy'     , 169,
 'ordf'     , 170,
 'laquo'    , 171,
 'not'      , 172,
 'shy'      , 173,
 'reg'      , 174,
 'macr'     , 175,
 'deg'      , 176,
 'plusmn'   , 177,
 'sup2' <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	16996	17199	
==>uence of at least one item. For example:
		        <return: list>");
		return;
	}
	push @{$self->{items}},
		Parse::RecDescent::Result->new();
}

sub additem
{
	my ( $self, $item ) = @_;
	$item->sethashna <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	5503	5760	
==>lose ARGV if eof; # Reset line numbering for each input file
}

unless ($options{'dry-run'}) {
    for my $dir (map { $options{destdir} . $_ } keys %directories) {
	unless (-d $dir) {
	    # Make full path to the directory $dir
	    my @dirs;
	    while (! - <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8746	8835	
==>[CURR]}";
		label_defined($syms[CURR]);
		push @{$code{$seg}->{code}}, "$labels{$syms[CURR <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	5912	6141	
==>:/;
	($desc) = /(?:^|\n) *Overview: *\n(((?!$label) *[^\n]+\n)+)/s;
	$info->{warning} .= "There was an Overview:, but it wasn't used.";
    }
    if($info->{path} =~ /\Wicu\Wsource/) {
	s/Copyright \(C\) [^\n]+\n *Corporation [^\n <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	3002	3211	
==>$1;
            if ($rule) {
                # Validate it.
                validate_rule($rule);

                # Save it.
                push @rules, $rule;
            }

            # Create new rule str <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3934	4036	
==>mcc_pmc();
    my $temp_pmc = $compiler->temp_pmc();

    $compiler->emit("  $temp_pmc = new $pmc_type" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1573	1675	
==>mcc_pmc();
    my $temp_pmc = $compiler->temp_pmc();

    $compiler->emit("  $temp_pmc = new $pmc_type" <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2381	2492	
==>g;
		$register_num++;
	}

	# Do code for each push.
	$pir .= "\${ITEMP0} = 0\n";
	for (1..$pushes) {
		$pir .= < <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1733	1844	
==>g;
		$register_num++;
	}

	# Do code for each push.
	$pir .= "\${ITEMP0} = 0\n";
	for (1..$pushes) {
		$pir .= < <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	62102	62208	
==>en $filename ($!).\n";

    my $generator = new pirVisitor($FH);
#    my $generator = new pirVisitor(\*S <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	58233	58331	
==>Friedl-style optimized regex that matches a string delimited
by any one of the characters in the si <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	2057	2284	
==>navigation = shift || '';
    my $resources = shift || '';
    
    <<"FOOTER";
        </DIV>
        <P>
        <TABLE BORDER="0" WIDTH="730" CELLSPACING="0" CELLPADDING="0">
            <TR ALIGN="RIGHT">
                <TD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488047	488344	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "AR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	489440	489737	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ":base_core",
                  "AR <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	6561	6702	
==>32 -loleaut32 -lnetapi32 -luuid -lws2_32 -lmpr -lwinmm -lversion -lodbc32 ',
                link              => 'gcc',
                linkf <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	7166	7380	
==>s $expr[$i+1]?$expr[$i+1]->[0]:"NOTARR")) {
			push @stream, $item;  # Operands, etc..
			next;
		}
		#print "It's an op!\n";
		$item->[2]="OP";
		if (! @stack) {
			push @stack, $item;
			next;
		}
		while(@stack a <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	7717	7840	
==>8206,
 'rlm'      , 8207,
 'ndash'    , 8211,
 'mdash'    , 8212,
 'lsquo'    , 8216,
 'rsquo'    , 8217,
 'sbquo'    , 8218 <==
2	/Users/nnunley/parrot/config/init/hints.pm	1133	1303	
==>an('runstep');
        $hints_used++;
    }

    if ($hints_used == 0) {
        print "(no hints) " if $verbose;
    }

    print "]" if $verbose;

    return $self;
}

1 <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	3219	3321	
==>TDOUT, '>', $h_file
    or die "can not open '$h_file': $!\n";
print <<"END";
$header
#if !defined(PARR <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	332	446	
==>::Bare;

use Carp;

use Jako::Compiler;

use base qw(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	29604	29706	
==>ub _op_make_string {
}

sub _op_string {
}

sub _op_string_length {
}

sub _op_string_ref {
}

sub _op_ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13555	13690	
==>_p {
  my ($self, $node) = @_;
  my $return;
  my $label = $self->_gensym();

  _num_arg ($node, 1, 'pair?');

  my $item = $self->_gene <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	849	942	
==>usr/lib'.

=item C<includedir>

The header directory. Defaults to '/usr/include'.

=back

=hea <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	1078	1171	
==>usr/lib'.

=item C<includedir>

The header directory. Defaults to '/usr/include'.

=back

=hea <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	2243	2529	
==>ata::Dumper::Terse  = 1;
#$Data::Dumper::Indent = 0;
use Getopt::Long;

use Parrot::OpsFile;

#
# Look at the command line options
#

# TODO: Use Pod::Usage
my ( $nolines_flag, $help_flag, $renum_flag );
GetOptions( "no-lines"      => \$nolines_flag,
            "help"          => \$hel <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38219	38320	
==>})
							if defined $::RD_TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21419	21518	
==>})
					if defined $::RD_TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088907	1089020	
==>{{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "experimental" => 1, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089855	1089968	
==>{{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "experimental" => 1, <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	1900	2097	
==>x_html )
	{
		# If none of the items are in a para then the whole group is.
	
		if ( $index_html !~ /<p>/ )
		{
			$index_html = "<p>\n" . $index_html . "</p>\n\n";
		}
		
		$index_html = "<p>$self- <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12357	12470	
==>erl module's HTML file relative to the current
documentation page. Currently only F<lib/Parrot> modules are linkab <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1585	1742	
==>/

#undef  CHECK_EVENTS
#define CHECK_EVENTS(i, n)   \\
	interpreter->task_queue->head ?  \\
		Parrot_do_check_events(i, n) : n
END
}

=item C<goto_address($a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712458	712547	
==>\n  s = Parrot_sprintf_c(interpreter, \"%.12g\", (double){{\@1}});\n  PIO_putps(interprete <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713565	713654	
==>\n  s = Parrot_sprintf_c(interpreter, \"%.12g\", (double){{\@1}});\n  PIO_putps(interprete <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41207	41311	
==>splice @_,0,2;

  my $scratch;
  $self->_handle_element_start(($scratch=$name), shift @_);
  
  foreach m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819549	819648	
==>y_t * const entry =\n    stack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820509	820608	
==>y_t * const entry =\n    stack_entry(interpreter, CONTEXT(interpreter->ctx)->user_stack, {{\@2}});\n <==
2	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	2	119	
==>/usr/bin/perl

use warnings;
use strict;

use Getopt::Long;
use LWP::UserAgent;

use constant VERSION => 0.4;
sub debu <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	2926	3066	
==>$PATHQUOTE$LIBPARROT$PATHQUOTE";
}

our $NOW = time();

################### MAIN PROGRAM ################

my ($mode, @pmcs) = @ARGV;

if ($m <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3030	3170	
==>$PATHQUOTE$LIBPARROT$PATHQUOTE";
}

our $NOW = time();

################### MAIN PROGRAM ################

my ($mode, @pmcs) = @ARGV;

if ($m <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	35980	36139	
==>efore treated as non-delimiter characters (and ignored).

However, if a particular species of quote character is included in the
delimiter specification, then t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	773997	774343	
==>i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 874,
                  "ARGS" => [
                              "p",
                              "kic",
                              "i"
                            ],
                  "BODY" => "#line 377 \"src/ops/set.ops\"\n    {{\@1}}- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1013484	1013822	
==>=> [
                              "i"
                            ],
                  "BODY" => "#line 66 \"src/ops/sys.ops\"\n  {{\@1}} = errno;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	897	984	
==>is not!" if defined $ident and not UNIVERSAL::isa($ident, 'Jako::Construct::Expression:: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	925	1012	
==>is not!" if defined $ident and not UNIVERSAL::isa($ident, 'Jako::Construct::Expression:: <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8460	8565	
==>rint
for i = 1 to 20 step 4
  print c$(i);tab$(12);c$(i+1);tab$(22);c$(i+2);tab$(32);c$(i+3)
next
print
da <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21324	21429	
==>rint
for i = 1 to 20 step 4
  print c$(i);tab$(12);c$(i+1);tab$(22);c$(i+2);tab$(32);c$(i+3)
next
print
da <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	19876	20030	
==>xed since 20feb94 version:
    #  - Updated to be a more proper module.
    #  - Added "use strict".
    #  - Bug in build_methods, was using @var when @$v <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	1958	2065	
==>ree the onions, tomatoes, tomatillos,
and ginger root.  You can even do it with a Braun hand "mixer", if you <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11686	11836	
==>Rewrite method body
    my $supertype = "enum_class_$super";
    die "$class defines unknown vtable method '$method'\n"
      unless defined $super_tab <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	58078	58212	
==>t functionality is not
					yet implemented. Or did you misspell
					\"$code\"?");
				}
				else
				{
					_error("Untranslatable it <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	31316	31520	
==>ts of an L<...> (i.e., in name, section, text, and url).

sub _treat_Ls {  # Process our dear dear friends, the L<...> sequences

  # L<name>
  # L<name/"sec"> or L<name/sec>
  # L</"sec"> or L</sec> or L< <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	57321	57637	
==>s = extract_multiple($csv_text,
                                  [
                                        sub { extract_delimited($_[0],q{'"}) },
                                        qr/([^,]+)(.*)/,
                                  ],
                                  undef,1);

The list in the second argumen <==
2	/Users/nnunley/parrot/config/inter/lex.pm	900	1008	
==>$conf->options->get('maintainer')) {
        $conf->data->set($util => 'echo');
        $self->set_result('sk <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	897	1005	
==>$conf->options->get('maintainer')) {
        $conf->data->set($util => 'echo');
        $self->set_result('sk <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18597	18711	
==>ess ($self->get(1)->is_close_paren) {
        while (1) {
          push @args, Jako::Construct::Expression::Value- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19623	19737	
==>ess ($self->get(1)->is_close_paren) {
        while (1) {
          push @args, Jako::Construct::Expression::Value- <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5895	6031	
==>token)
            or	do {
				($$token,$$value)=&$lex($self);
#DBG>				$debug & 0x01
#DBG>			and	print STDERR "Need token. Got ".&$S <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5614	5746	
==>token)
            or	do {
				($$token,$$value)=&$lex($self);
#DBG>				$debug & 0x01
#DBG>			and	print STDERR "Need token. Got ".&$S <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	30181	30278	
==>: '(?s).*?(?=<H1>)'


=head2 C<extract_delimited>

The C<extract_delimited> function formalizes th <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614247	614596	
==>PARROT_JUMP_ENEXT",
                  "NAME" => "classoffset",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615397	615746	
==>PARROT_JUMP_ENEXT",
                  "NAME" => "classoffset",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  " <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7462	7572	
==>o match\n"
FIN:
for i = 1 to 3
	on i gosub oats, peas, beans
next i
print
end
100 print "100!"
    goto FIN
200 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19745	19855	
==>o match\n"
FIN:
for i = 1 to 3
	on i gosub oats, peas, beans
next i
print
end
100 print "100!"
    goto FIN
200 <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	5681	5841	
==>}
        }

        filter_gcov($gcov_file);
    }
}

write_file_coverage_summary();
write_function_coverage_summary();
write_index();

exit(0);


sub write_ind <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	11797	11944	
==>ash functions are from imcc, thanks to Melvin.
 */


typedef struct hop {
    op_info_t * info;
    struct hop *next;
} HOP;
static HOP **hop;

stat <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	35790	35886	
==>he missing (or extras)
will be considered failures.  If no tests were ever run Test::Builder
will <==
2	/Users/nnunley/parrot/lib/Test/More.pm	33861	33957	
==>he missing (or extras)
will be considered failures.  If no tests were ever run Test::Builder
will <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557809	557918	
==>\n  opcode_t *next = {{^+3}};\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  interpreter->curre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559193	559302	
==>\n  opcode_t *next = {{^+3}};\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  interpreter->curre <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	9183	9341	
==>gth => 3_000,
   @_,
  );
}
sub get_description { shift->_get_titled_section(
   'DESCRIPTION',
    max_token => 400,
    max_content_length => 3_000,
   @_,
) <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2126	2230	
==>ms( \@params, \%params, \@_, $self );

	if($$self{DEBUG}) {
		_DBLoad();
		$retval = eval '$self->_DB <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2047	2147	
==>ms( \@params, \%params, \@_, $self );

	if($$self{DEBUG}) {
		_DBLoad();
		$retval = eval '$self->_DB <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4592	4731	
==>nop', [], %$self);
    } elsif (@{ $self->{args} } == 1 && 2 == keys %$self) {
        return $self->{args}->[0];
    } else {
        retur <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5729	5868	
==>nop', [], %$self);
    } elsif (@{ $self->{args} } == 1 && 2 == keys %$self) {
        return $self->{args}->[0];
    } else {
        retur <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13234	13375	
==>.
      #

      $self->SYNTAX_ERROR("Closing brace without open block.")
        unless $self->block_depth();

      #
      # Remember the b <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4625	4738	
==>s.
sub pre_branch($) {
	my $self = shift;
	my $pops = shift;
	my $register_num = 0;
	my $pir = '';

	# Do code for <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3041	3154	
==>s.
sub pre_branch($) {
	my $self = shift;
	my $pops = shift;
	my $register_num = 0;
	my $pir = '';

	# Do code for <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	22599	22810	
==>s to ",
           ref($is)
            ? ( "tags ", map("$_<", @$is), '...', map('>', @$is), "\n" )
            : "tag $is<...>.\n";
        }
      }
      
      if(!defined $is) {
        $self->whine($start_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189741	189831	
==>mp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190682	190772	
==>mp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3403	3533	
==>nt { $self->{'output_fh'} }   '', 
    $self->{'Thispara'},
    "\n\n"
  ;
  $self->{'Thispara'} = '';
  return;
}

#@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2933	3063	
==>nt { $self->{'output_fh'} }   '', 
    $self->{'Thispara'},
    "\n\n"
  ;
  $self->{'Thispara'} = '';
  return;
}

#@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	3144	3276	
==>e{osname}       = $1;
  $html =~ /cc: ([\w\d]+)/         and $smoke{cc}           = $1;
  $html =~ /DEVEL: -?(\w+)/        and $smoke <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12907	13138	
==>se {
    #
 
    if ($token->is_close_brace) {
      my $cont;
    
      if ($self->get(1)->is_continue or $self->get(1)->is_else) {
        $cont = $self->forth->text;
        $self->require_open_brace;
      }

      #
      # If <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215030	215121	
==>mp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215971	216062	
==>mp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\ <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	1271	1371	
==>gated with a "no", for example C<--noconst>.

=over 4

=item C<--objectname>

=item C<-o>

Prepend th <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5413	5503	
==>epth 
${STEMP0} = "$"
${STEMP1} = ${LOADTYPE}["reg_type_short"]
${STEMP0} = concat ${STEMP1 <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	3732	3942	
==>is_hidden()>

Returns whether the file is "hidden", i.e. it's name starts with a dot.

=cut

sub is_hidden
{
    my $self = shift;

    return $self->parent eq '.SVN' or $self->name =~ /^\./o;
}

=item C<is_gene <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1116	1238	
==>ame eq '<ptmp>';
    return $name;
}

sub dbgoto {
    my ($self, $label) = @_;
    return () unless $self->{DEBUG};
    re <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	606	728	
==>ame eq '<ptmp>';
    return $name;
}

sub dbgoto {
    my ($self, $label) = @_;
    return () unless $self->{DEBUG};
    re <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2825	2923	
==>d if Pod::Simple::ASCII;
  my $out = Text::Wrap::wrap($indent, $indent, $self->{'Thispara'} .= "\n" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2359	2457	
==>d if Pod::Simple::ASCII;
  my $out = Text::Wrap::wrap($indent, $indent, $self->{'Thispara'} .= "\n" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2405	2515	
==>name, $sym->line, $sym->file);
  }

  #
  # Now that we've decided to actually declare the constant, we will pl <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2152	2262	
==>name, $sym->line, $sym->file);
  }

  #
  # Now that we've decided to actually declare the constant, we will pl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088914	1089047	
==>->vtable->slice(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089862	1089995	
==>->vtable->slice(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	1890	2081	
==>n)/, @funcs;

    # Variables are of no use to us
    @funcs = grep !/=/, @funcs;

    # Get rid of any blocks at the end
    s/\s*{.*//s for @funcs;

    # Toast anything non-whitespace
    @ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	11	101	
==>rot/languages/regex/lib/Regex/Parse/P6C.pm 18978 2006-04-30T14:02:48.452322Z bernhard  $

p <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9288	9408	
==>ck that it's good as an XML Name symbol:
      Carp::croak "\"$new_code\" isn't a valid element name"
        if $new_cod <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10552	10672	
==>ck that it's good as an XML Name symbol:
      Carp::croak "\"$new_code\" isn't a valid element name"
        if $new_cod <==
2	/Users/nnunley/parrot/lib/Test/More.pm	14013	14257	
==>'t a '$class' it's a '$ref'";
        }
    }
            
      

    my $ok;
    if( $diag ) {
        $ok = $Test->ok( 0, $name );
        $Test->diag("    $diag\n");
    }
    else {
        $ok = $Test->ok( 1, $name );
    }

    return $ok <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	5758	5862	
==>$ParrotAPI{$api} || $api =~ $ParrotPrefix) {
	push @UnParrotAPI, $api;
    }
}

if (@NoParrotAPI) {
    p <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	5969	6229	
==>ster.
You can only encrypt Data up to one million bytes in an acceptable time. But it's very usefull
for encrypting small amounts of data like passwords.

=item *

You can only encrypt up to 2^32 bits = 512 MB on 32bit archs. You should use C<Digest::MD5>
for t <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	11775	11877	
==>POS'} = $rx_pos;
$rx_match{'!RESULT'} = 1;
$rx_match{'0'}->[1] = $rx_pos - 1;
$rx_match{'!STACK'} = $rx <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	545	689	
==>->can( 'end_' . $_[1] )
    || return
  )->(
    $_[0]
  );
}

1;


__END__

=head1 NAME

Pod::Simple::Methody -- turn Pod::Simple events into me <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	13343	13489	
==>e an immediately subsequent start-Para.  Reseeking H1\n";
        $state = 0;
      }
    }
    
    elsif($state == 3) {
      # accumulating text <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024994	1025109	
==>ine 275 \"src/ops/sys.ops\"\n   {{\@1}} = sysinfo_s(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025751	1025866	
==>ine 275 \"src/ops/sys.ops\"\n   {{\@1}} = sysinfo_s(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3116	3228	
==>prederef array. (see expr_pop(), above, for a description of why this
works.)

=cut

sub expr_offset
{
    my ($s <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	24	162	
==>e Perl Foundation.
# $Id: /parrot/lib/Parrot/Docs/HTMLPage.pm 20321 2006-06-20T20:02:00.179448Z bernhard  $

=head1 NAME

Parrot::Docs::HTM <==
2	/Users/nnunley/parrot/lib/Test/More.pm	10888	11026	
==>t can do these @methods
(works with functions, too).

    can_ok('Foo', qw(this that whatever));

is almost exactly like saying:

    ok( F <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7906	8004	
==>op(@ifstack)) {
			push @{$code{$seg}->{code}}, "IFBRANCH_$_:\n";
		}
=cut
UNK:	if (($type[CURR] eq <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	10892	11059	
==>Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
					  $return . q{])}, "",
					  q{' . $self->{"name"} .'});
		Parse::RecDescent::_trace(q{(consumed: <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	18490	18598	
==>[2]);
	print <<EOC;
	$n = not $tos->[1] $cmt
EOC
	push @stack, [-1, $n, $tos->[2]];

    }
}

sub UNARY_POSIT <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8117	8268	
==>.\n";

				return($semval);
			};

                $$check eq 'ABORT'
            and	do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Abor <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7753	7895	
==>.\n";

				return($semval);
			};

                $$check eq 'ABORT'
            and	do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Abor <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17747	17891	
==>'start_line'},
          "=for without a target?"
        );
        next;
      }
      DEBUG > 1 and
       print "Faking out a =for $target as <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	11305	11449	
==>re
represented by strings -- C<'$'>, C<'@'>, C<'%'>, and a class name --
optionally preceded by a C<'*'>.

The accessor method provided by C<stru <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	540	637	
==>s descriptions from the Parrot source files. If no
files are specified on the command-line then th <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	5297	5471	
==>onversions{ $arg->{type} };
        $code .= emit("a_$name = $convert(a_$name)")
            if $convert;
        
        # default value, if necessary
        if (defined $a <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21842	22005	
==>_inst("DONE_$label");
  return $return;
}

sub _op_negative_p {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	246	369	
==>>:

    % perl tools/build/pmc2c.pl --dump src/pmc/foo.pmc ...

Create F<vtable.dump>:

    % perl tools/build/pmc2c.pl --vt <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	51891	52006	
==>urn $treelet;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub text_content_of_tr <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	3857	3984	
==>ned, $ini->val( regexes => 'include');
    @{ $cfg{run_bench} } = @regexes ? @regexes : '[\d\D]';
}
if ( ! @{ $cfg{skip_bench} } <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24008	24162	
==>{var}${seg}"}=1;
			#print STDERR "Marking ${var}${seg}\n";
			push @{$code{$seg}->{code}}, <<DIMARR;
	# Set aside storage for Array $var
	\$P0 = new .Perl <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4481	4591	
==>~
sub run {
  my $self = $_[0];
  return $self->do_middle if $self->bare_output;
  return
   $self->do_beginnin <==
2	/Users/nnunley/parrot/config/init/hints/netbsd.pm	101	228	
==>step
{
    my ($self, $conf) = @_;

    my $ccflags = $conf->data->get('ccflags');
    if ($ccflags !~ /-pthread/) {
        $cc <==
2	/Users/nnunley/parrot/config/init/hints/openbsd.pm	193	320	
==>step
{
    my ($self, $conf) = @_;

    my $ccflags = $conf->data->get('ccflags');
    if ($ccflags !~ /-pthread/) {
        $cc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820908	821168	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "depth",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  " <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	11850	12029	
==>C;
	store_lex -1, $n, $p $cmt
EOC
	}
    }
    $names{$c} = $p;
    $lexicals{$c} = $p;
}

sub STORE_GLOBAL {
    my ($n, $c, $cmt) = @_;
    my $tos = pop @stack;
    my $p = $tos <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	2254	2408	
==>19607 $ =~ /(\d+)/g; # jhi@iki.fi;

my $ME = basename($0);
my $RCS_DATE = q$Date: 2006-05-30T15:23:20.183054Z $;

my $nm_cmd = 'nm';
my $nm_opt = '';
my $n <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3114	3240	
==>index
}

sub YYCurtok {
	my($self)=shift;

        @_
    and ${$$self{TOKEN}}=$_[0];
    ${$$self{TOKEN}};
}

sub Y <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2964	3079	
==>index
}

sub YYCurtok {
	my($self)=shift;

        @_
    and ${$$self{TOKEN}}=$_[0];
    ${$$self{TOKEN}};
}

sub Y <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	7581	7893	
==>ject'),
            $self->c_pair_item('', 'headers'),
        ),
        $self->new_group(
            'Garbage Collection', 
            '',
            $self->c_pair_item('', 'dod'),
            $self->c_source_item('', 'cpu_dep'),
        ),
        $self->new_group(
            'Debugging', 
            '', <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	537295	537534	
==>.ops\"\n  {{\@1}} = sin((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22297	22399	
==>,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  my $temp_0 = $self->_generate($node->{ch <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22798	22900	
==>,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  my $temp_0 = $self->_generate($node->{ch <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	3828	3953	
==>e      eq 'Bad Taste',     'Title() get'    );
    ok( $btaste->Director   eq 'Peter Jackson', 'Director() get' );
    ok( $bt <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9631	9766	
==>re not in link tags
are linked here for convenience.

=cut

sub process_text_token
{
    my $self = shift;
    my $token = shift;
    my <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	18135	18288	
==>$tos->[1] goto $targ $cmt
EOC
}

sub UNARY_NOT
{
    my ($n, $c, $cmt) = @_;
    my ($opcode, $arg, $rest) = ($code[$code_l]->[2],
	$code[$code_l]->[3],$c <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27381	27516	
==>store ($return);
      $return = $temp;
    }
    my $temp = $self->_constant(1);
    $self->_add_inst('','div',[$return,$temp,$return]) <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	62704	62830	
==>block> failed to find any of the outermost opening brackets
that were specified.

=item C<Improperly nested codeblock at %s>

A <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	1032	1146	
==>@args);
print   badargs($cmd, @args);
print    footer();

sub open_tmt {
    my ($filename) = @_;

    local $/ = u <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	4789	4900	
==>Output string set to $x ($$x)\n";
  $this->{'output_fh'} = Pod::Simple::TiedOutFH->handle_on($_[0]);
  return $t <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	3863	3967	
==>::Dumper->new([$self->{c}], ['*PConfig'])->Dump();
        };
    }
}

=item C<clean()>

Deletes keys mat <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	8388	8505	
==>ms[CURR] eq "input") {
		$mode="<";
	} elsif ($syms[CURR] eq "output") {
		$mode=">";
	} elsif ($syms[CURR] eq "random <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	2963	3106	
==>l = "<BR>\n" . $index_html;
    }

    my $index = $target->file_with_name($self->{INDEX_PATH});
    
    $index->write(
        Parrot::Docs::H <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	7132	7243	
==>}

    # Have enough for any possible match of this subtree?
    return $t if (defined($t->maxlen()) && $guarant <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	516	686	
==>t's C<import> method and exports no
I<symbols>.

=cut

package Parrot::Configure::Step::Base;

use strict;
use warnings;

=head2 Methods

=head3 Constructors

=over 4

=it <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009162	1009481	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compose",
                  "FLAGS" => "",
                  "ARG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009926	1010245	
==>3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compose",
                  "FLAGS" => "",
                  "ARG <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	124	217	
==>nse
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/Sub. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	6399	6709	
==>S" => ":load_file",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 9,
                  "ARGS" => [
                              "sc"
                            ],
                  "BOD <==
2	/Users/nnunley/parrot/Configure.pl	6295	6442	
==>or shared libraries
   --lex=(lexer)        Use the given lexical analyzer generator
   --yacc=(parser)      Use the given parser generator

   --de <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19395	19536	
==>Rule 11
		 'expr', 1,
sub
#line 113 "lib/Regex/Grammar.y"
{ return op('match' => [ ord($_[1]) ]); }
	],
	[#Rule 12
		 'expr', 1,
sub
#line 115 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104794	1105098	
==>ion",
                  "CODE" => 1223,
                  "ARGS" => [
                              "p",
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line 332 \"src/ops/experimental.ops\"\n\tSTRING *class = {{\@2}};\n\t <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	905	1148	
==>port this, a warning will be given if not. You can
try GNU C<nm> if you want this feature.

=item C<--undef>

=item C<-U>

List the undefined symbols.

=item C<--def>

=item C<-D>

List the defined symbols.

=item C<--file>

=item C<-f>

List t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710771	710865	
==>" \");\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  PIO_softspace(interpreter, i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711605	711699	
==>" \");\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  PIO_softspace(interpreter, i <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11388	11479	
==>_method($class, $method, $super, $super_table)>

Rewrites the method body performing the var <==
2	/Users/nnunley/parrot/config/init/hints/darwin.pm	1019	1199	
==>lags      => '-dynamiclib -undefined suppress',
        ld_load_flags       => '-bundle -undefined suppress',
        memalign            => 'some_memalign',
        has_dynamic_lin <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	46	134	
==>Id: /parrot/lib/Parrot/OpTrans.pm 20321 2006-06-20T20:02:00.179448Z bernhard  $

=head1 N <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	7449	7546	
==>nk_cmd("$group$LOAD_EXT", $libs, \@sources))
          or die "partial link $group$LOAD_EXT failed <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7660	7757	
==>nk_cmd("$group$LOAD_EXT", $libs, \@sources))
          or die "partial link $group$LOAD_EXT failed <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	22064	22263	
==>roups{$group}};
        close $fh;
    }
}

=cut

sub open_file {
    my $direction = shift;
    my $filename = shift;

    my $action =
        ($direction eq "<") ? "Reading" :
        ($direction e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009834	1009924	
==>"#line 659 \"src/ops/string.ops\"\n  {{\@1}} = string_compose(interpreter, {{\@2}});\n  {{+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010599	1010689	
==>"#line 659 \"src/ops/string.ops\"\n  {{\@1}} = string_compose(interpreter, {{\@2}});\n  {{+ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	19579	19796	
==>d2 Test style

=over 4

=item B<level>

    $Test->level($how_high);

How far up the call stack should $Test look when reporting where the
test failed.

Defaults to 1.

Setting $Test::Builder::Level overrides.  This is <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	620387	620615	
==>P_RELATIVE",
                  "NAME" => "pic_get_params__",
                  "FLAGS" => ":pic",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	2954	3052	
==>index_html = "<BR>\n" . $index_html;
    }

    my $index = $target->file_with_name($self->{INDEX_P <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2285	2385	
==>ns($file, $source);
    check_cuddled_else($file, $source);
    check_comments($file, $source);
    c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035463	1035558	
==>nst lex_name = {{\@2}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036627	1036722	
==>nst lex_name = {{\@2}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\ <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	1699	1826	
==>wercase indicates that
it is local.

=item C<--type=bsd>

=item C<-B>

The same as C<--t>.

=item C<--type=long>

=item C<-L>

A <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	31	199	
==>Perl Foundation.
# $Id: /parrot/lib/Parrot/Configure/Step/Base.pm 20321 2006-06-20T20:02:00.179448Z bernhard  $

=pod

=head1 NAME

Parrot::Configure::Step::Base - Confi <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11243	11338	
==>{DEST0} = concat ${STEMP0}
inc stack_depth
${STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
p <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8429	8524	
==>{DEST0} = concat ${STEMP0}
inc stack_depth
${STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
p <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	3162	3298	
==>adic:*']      =  "    %1 = exp %1"      # exp
    $P0[unicode:"monadic:\x{d7}"] =  <<"END_PIR"            # signum
    $N100 = %1
    $I1 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2456	2606	
==>ypes of files without suffix.

my %type_for_name = (
	'Artistic' => 'Licence file',
	'BUGS' => 'Project info',
	'CFLAGS' => 'CFLAGS file',
	'ChangeLog' <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8696	8796	
==>S}
if ${ITEMP0} == 0 goto PRE_CALL_END_${CURIC}

# Get type of return value and build code to pop it. <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7268	7368	
==>S}
if ${ITEMP0} == 0 goto PRE_CALL_END_${CURIC}

# Get type of return value and build code to pop it. <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10625	10735	
==>NT_TYPE_BOOLEAN = 0x02
	.const int ELEMENT_TYPE_CHAR = 0x03
	.const int ELEMENT_TYPE_I1 = 0x04
	.const int ELEM <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	2126	2228	
==>p tries to identify instructions that may be the target
    # of control flow changing opcodes includin <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1949	2070	
==>mpile parser module.";

        ref($class)
    and $class=ref($class);

    bless($self,$class);
}

sub YYParse { <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1882	1995	
==>mpile parser module.";

        ref($class)
    and $class=ref($class);

    bless($self,$class);
}

sub YYParse { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218882	219165	
==>{{\@1}}), {{\@2}}) > 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219861	220144	
==>{{\@1}}), {{\@2}}) > 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	59286	59431	
==>ildTable( $_[0], $_[2] );
        }
	],
	[#Rule 105
		 'tableconstructor', 2,
sub
#line 566 "Lua\lua51.yp"
{
            BuildTable( $_[0] <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2460	2563	
==>le we kinda find
	# basic blocks, we don't discover backward branches until late to do
	# otherwise. Als <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1038	1141	
==>le we kinda find
	# basic blocks, we don't discover backward branches until late to do
	# otherwise. Als <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347387	347728	
==>FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 405,
                  "ARGS" => [
                              "p", <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31219	31383	
==>rser, $vars, $exprs, $block ) = @_;
    my @opcodes1 = ();
    my @opcodes2 = ();
    my @opcodes3 = ();
    my @params1  = ();
    my @return1  = ();
    my $ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9195	9286	
==>olumn;
	tie $thiscolumn, q{Parse::RecDescent::ColCounter}, \$text, $thisparser;
	':'') . ($p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846618	846714	
==>BODY" => "#line 56 \"src/ops/string.ops\"\n  STRING *s;\n  s = string_chr(interpreter, (UINTVAL){ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847414	847510	
==>BODY" => "#line 56 \"src/ops/string.ops\"\n  STRING *s;\n  s = string_chr(interpreter, (UINTVAL){ <==
2	/Users/nnunley/parrot/config/init/defaults.pm	1392	1519	
==>.  ICU's configure
        # will try to find a suitable compiler, but it prefers GNU c++ over
        # a system c++, which mig <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	6168	6317	
==>amble($trans);
$text =~ s/\bops_addr\b/${bs}ops_addr/g;
print SOURCE $text;


if ($trans->can("ops_addr_decl")) {
    print SOURCE $trans->ops_addr_de <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	385	501	
==>ed $SORT_ATTRS;

sub new {
  my $self = shift;
  my $new = $self->SUPER::new(@_);
  $new->{'output_fh'} ||= *STDOUT{I <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517969	518232	
==>CODE" => 597,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 734 \"src/ops/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597531	597968	
==>classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 677,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 351 \"src/ops/object.ops\"\n  PMC *class = Parrot_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6848	7005	
==>o find the target blocks for loop control statements.

=cut

sub find_block
{
  my $self = shift;  # Required: Jako::Construct::Block
  my $kind = shift;  # R <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	642264	642363	
==>s/pmc.ops\"\n  {{\@1}} = {{\@2}}->vtable->type_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643152	643251	
==>s/pmc.ops\"\n  {{\@1}} = {{\@2}}->vtable->type_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n", <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	126	303	
==>n');
use strict;

sub new {  # Class->new(tagname);
  my $class = shift;
  return bless ['end', @_], ref($class) || $class;
}

# Purely accessors:

sub tagname { (@_ == 2) ? ($_[ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	12	117	
==>o PIR Translator
# Base class for implementing stack to register mapping algorithms.

package SRM::Base;
u <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	13567	13668	
==>sts_skipped"><tmpl_var name=skipped>,</td>
	      <td class="num tests_unexpect"><tmpl_var name=unexpe <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	1169	1262	
==>RESOURCES_URL} = '' unless $self->{RESOURCES_URL};
    $self->{NAV_BAR} = '' unless $self->{NA <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	19682	19857	
==>ted = 1;
            $meth_name = "Parrot_default_$meth";
        }
        # normal vtable method}
        unless ($method->{mmd} =~ /MMD_/) {
            push @meths, $meth_n <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10405	10500	
==>2}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP3}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7789	7884	
==>2}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP3}["reg_type_short"]
${STEMP0} = concat ${STEMP1}
${STEMP <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3961	4127	
==>OFFSET(( (void*)interpreter->happy_place ))

=head2 Class Methods

=over 4

=cut

package Parrot::OpsFile;

use strict;
use warnings;

use base qw( Exporter );

use Pa <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	12069	12199	
==>Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function currently on checks with ref() since we do not yet have
object <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	53887	54075	
==>H') {
      my $hr = $_;
      $x = "{" . join(", ",
        map(pretty($_) . '=>' . pretty($hr->{$_}),
            sort keys %$hr ) ) . "}" ;
      $x;
    } elsif(!length($_)) { q{''} # e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	257707	258242	
==>GS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 300,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 740 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} && ! {{\@3}}) ? { <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33942	34063	
==>'void') {
        my $type = $method->{type};
        $ret_def = "$type ret_val;";
        $func_ret = $self->gen_ret($met <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38904	39025	
==>'void') {
        my $type = $method->{type};
        $ret_def = "$type ret_val;";
        $func_ret = $self->gen_ret($met <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	1568	1704	
==>ko.html', '', 'languages/jako'),
        $self->new_section('lazy-k', 'lazy-k.html', '', 'languages/lazy-k'),
        $self->new_section( <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	16005	16181	
==>e_trans)
    stypes = push type_trans
    loadtype = type_trans

    # If the object is OK, we'll not have re-thrown and will need to put it on
    # the stack. Emit code to dea <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1129	1261	
==>therwise. Also, putting a label everywhere doesn't hurt the final
	# Parrot bytecode that is produced.
	my $pir = <<'PIR';
strPC = ${ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2551	2676	
==>therwise. Also, putting a label everywhere doesn't hurt the final
	# Parrot bytecode that is produced.
	$pir .= <<'PIR';
strPC <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	533	677	
==>, $class;
}

sub new_bof
{
  my $class = shift;
  my ($file, $line) = @_;

  return $class->new($file, $line, 'bof', undef, '__BOF__');
}

sub ne <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	817653	817810	
==>1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_REST <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818431	818588	
==>1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_REST <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38487	38595	
==>->{"name"} .'})
						if defined $::RD_TRACE;
		') . ($::RD_NO_HITEM ? ''
		     : '$item{q{' . $self->descri <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	6544	6646	
==>SOURCE fragments:
#

my @op_funcs;
my @op_func_table;
my @cg_jump_table;
my $index = 0;
my ($prev_sourc <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	1229	1332	
==>f $opt{verbose};
    open my $fh, $direction, $filename or die "$action $filename: $!\n";
    return $fh <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	22333	22436	
==>f $opt{verbose};
    open my $fh, $direction, $filename or die "$action $filename: $!\n";
    return $fh <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33514	33650	
==>) {
            # For the cases where we /didn't/ push to @$para
            if($paras->[0][0] eq '~Para') {
              DEBUG and prin <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35327	35463	
==>) {
            # For the cases where we /didn't/ push to @$para
            if($paras->[0][0] eq '~Para') {
              DEBUG and prin <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	1433	1518	
==>$(BUILD_TOOLS_DIR)/ops2c.pl lib/Parrot/OpsFile.pm lib/Parrot/Op.pm lib/Parrot/OpTrans/ <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	1706	1791	
==>$(BUILD_TOOLS_DIR)/ops2c.pl lib/Parrot/OpsFile.pm lib/Parrot/Op.pm lib/Parrot/OpTrans/ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	43878	43979	
==>@_, 2, 0, 0);
	return _generate(@_);
}

sub _no_rule ($$;$)
{
	_error("Ruleless $_[0] at start of gram <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4153	4341	
==>uments!" if @_;

  return $self->{SYMBOLS}{$name};
}


###############################################################################

=head2 BLOCK->symbol_names()

Returns the names of th <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	8638	8777	
==>se STDOUT             or die "Can't close    stdout" if $out;
    close STDERR             or die "Can't close    stderr" if $err;

    open <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8182	8297	
==>se STDOUT or die "Can't close    stdout" if $out;
    close STDERR or die "Can't close    stderr" if $err;

    open <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	3485	3734	
==>g-long
            # Ha. this is the default! with -pedantic.
            # -Wno-long-long for the nicest bit of C99
            #
            # -Wcast-align is now removed: it gives too many false positives
            #    e.g. when accessing regis <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607536	607631	
==>\"src/ops/object.ops\"\n    {{\@1}} = VTABLE_get_attr(interpreter, {{\@2}}, {{\@3}});\n    {{+=4 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608440	608535	
==>\"src/ops/object.ops\"\n    {{\@1}} = VTABLE_get_attr(interpreter, {{\@2}}, {{\@3}});\n    {{+=4 <==
2	/Users/nnunley/parrot/config/init/miniparrot.pm	635	724	
==>rrot::Configure::Step::Base);

use Parrot::Configure::Step;

$description = 'Tweaking sett <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7066	7220	
==>};

            #reduce
            my($lhs,$len,$code,@sempar,$semval);
            ($lhs,$len,$code)=@{$$rules[-$act]};

#DBG>			$debug & 0x04
#DB <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6738	6885	
==>};

            #reduce
            my($lhs,$len,$code,@sempar,$semval);
            ($lhs,$len,$code)=@{$$rules[-$act]};

#DBG>			$debug & 0x04
#DB <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	58455	58563	
==>ine) or next;
			my $rulename = $1;
			if ($rulename =~ /Replace|Extend|Precompile|Save/ )
			{	
				_warn(2, <==
2	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	1554	1723	
==>code;
	close $fh;

	# Run and get output.
	my $output = `$N2PConfig::parrot __temp__.pir`;

	# Clean up file and return output.
	unlink "__temp__.pir";
	return $output;
} <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	5768	5860	
==>package Parrot::OpLib::$package;

use vars qw(\$VERSION \$ops \$preamble);

\$VERSION = "$ver <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30059	30175	
==>mport Parrot::Pmc2c qw( gen_ret );

=item C<body($method, $line, $out_name)>

Returns the C code for the method body. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939867	940313	
==>ore",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1057,
                  "ARGS" => [
                              "p",
                              "s",
                              "s"
                            ],
                  "BOD <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	4371	4571	
==>ry { code() };
    if ($!) {
        &Test::ok.goto(1, $desc, :$todo);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
}

## lives ok

sub lives_ok <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	20842	21261	
==>s described below.

If this is true, none of that will be done.

=cut

sub no_header {
    my($self, $no_header) = @_;

    if( defined $no_header ) {
        $self->{No_Header} = $no_header;
    }
    return $self->{No_Header};
}

sub no_ending {
    my($self, $no_ending) = @_;

    if( defined $no_ending ) {
        $self->{No_Ending} = $no_ending;
    }
    return $self->{No_Ending};
}


=back

=head2 Output

Cont <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3615	3712	
==>: map_arg($type, $num)\n";

    die "Unrecognized type '$type' for num '$num'" unless exists $arg_ <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2360	2474	
==>== 0) ; # just care if it failed, not howm
}

##
## my $var = choose(@vars)
##
## Select the first defined variable <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	1316	1410	
==>ee::multi_match::ISA  = qw(Regex::Ops::Tree);
@Regex::Ops::Tree::group::ISA        = qw(Regex:: <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2341	2479	
==>,
	'vim' => 'Vim file',
	'xml' => 'XML file',
	'xs' => 'XS code',
	'y' => 'Yacc file'
);

# These are the various types of files without su <==
2	/Users/nnunley/parrot/lib/Test/More.pm	5964	6089	
==>e test
succeeded or failed.  They all also return true or false,
respectively.

=over 4

=item B<ok>

  ok($this eq $that, $te <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064980	1065154	
==>",
                              "s"
                            ],
                  "BODY" => "#line 260 \"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root_namespace, <==
2	/Users/nnunley/parrot/config/inter/encoding.pm	991	1142	
==>, $encoding_list);
        }
    }

    # names of class files for src/pmc/Makefile
    (my $TEMP_encoding_o = $encoding_list) =~ s/\.c/\$(O)/g;

    my <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9195	9340	
==>he PMC's
superclasses.

=cut

sub includes() {
    my $self = shift;

    my $cout = "";
    $cout .= <<"EOC";
#include "parrot/parrot.h"
#include <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	333	418	
==>ated by F<config/gen/makefiles.pm> from
F<config/gen/makefiles/dynopslibs_pl.in>.  Thi <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29915	30163	
==>OR' => 84,
			")" => 148,
			">" => 86
		}
	},
	{#State 95
		ACTIONS => {
			"^" => 79
		},
		DEFAULT => -74
	},
	{#State 96
		ACTIONS => {
			"(" => 48,
			"{" => 38,
			'STRING' => 44
		},
		GOTOS => {
			'tableconstructor' => 46 <==
2	/Users/nnunley/parrot/lib/Test/More.pm	29185	29354	
==>efs.
        local $^W = 0; 

        $Test->_unoverload(\$e1, \$e2);

        # Either they're both references or both not.
        my $same_ref = !(!ref $e1 xor !ref $e <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	1971	2074	
==>he output with the expected result it true.

=item C<pasm_output_like($code, $expected, $description)> o <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	476	599	
==>%s_%d", uc $kind, ++$self->{BLOCK_COUNT});
}


#
# temp_reg()
#

sub temp_reg
{
  my $self = shift;
  my ($type) = @_;

  $t <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	7465	7591	
==>OAD_EXT", $libs, \@sources))
          or die "partial link $group$LOAD_EXT failed ($?)\n";
    }
    else {
        1;
    }
} <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7676	7802	
==>OAD_EXT", $libs, \@sources))
          or die "partial link $group$LOAD_EXT failed ($?)\n";
    }
    else {
        1;
    }
} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	3750	3939	
==>$lines[-1] ) {
          DEBUG and print "That's it for that source fh!  Killing.\n";
          delete $self->{'source_fh'}; # so it can be GC'd
          last;
        }
         # but pass <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5769	5878	
==>e);
    }

    return $self;
}

=back

=head1 CREDITS

The L</runsteps()> method is largely based on code writ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32430	32538	
==>st_reg = 1;
			$mv->{'STOREREG'} = 'storereg';
			push @localmv, 'STOREREG';
		} else {
			die "pir or instru <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	45833	45950	
==>vexing
       # problem anyway, that most Pod renderers just don't render it
       # at all.  But if you do want to i <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	14967	15145	
==>i = grep { defined $temp[$_] } 0..$#$args;
        my $temp_decl = join("\n    ", map { "$temp[$_]->[0] arg$_;"} @tempi);
        ## shorts need to be properly cast
        my $te <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25449	25624	
==>var' => 35,
			'primary' => 28
		}
	},
	{#State 79
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'S <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19314	19404	
==>lf->current_block();
      my $left = Jako::Construct::Expression::Value::Identifier->new($ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20396	20486	
==>lf->current_block();
      my $left = Jako::Construct::Expression::Value::Identifier->new($ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561948	562075	
==>ter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", {{\@3}});\n  }\n  {{=next}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563032	563159	
==>ter, next, METH_NOT_FOUND,\n        \"Method '%Ss' not found\", {{\@3}});\n  }\n  {{=next}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	14282	14428	
==>');

Convenience method for building testing functions that take regular
expressions as arguments, but need to work before perl 5.005.

Takes a quo <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17347	17440	
==><Pod:Simple::HTLM> large sections of its code
have been copied here, and then refactored and a <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5881	5981	
==>c block-ish stuff. If the branch
	# did not pop anything it is unconditional, so next instruction nee <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3819	3919	
==>c block-ish stuff. If the branch
	# did not pop anything it is unconditional, so next instruction nee <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1512	1669	
==>$compiler->temp_reg($imcc_code);

    my $pmc_type = $type->imcc_pmc();
    my $temp_pmc = $compiler->temp_pmc();

    $compiler->emit("  $temp_pmc = new $pmc <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19385	19520	
==>ing in an
					  explicit action has the specified
		       			  \"auto-action\" automatically
					  appended.");
	}
	elsif ($parser->{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	11575	11709	
==>n '' =>
      "This document probably does not appear as it should, because its ",
      "\"=encoding $e\" line calls for an unsupporte <==
2	/Users/nnunley/parrot/lib/Test/More.pm	1764	1862	
==>_structure1, $complex_structure2, $test_name);

  SKIP: {
      skip $why, $how_many unless $have_s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1469	1643	
==>er it's supposed to be \strikedl or \striked1 (!!!)
 ),

 # Bit of a hack here:
 'L=pod' => '{\cs22\i'."\n",
 'L=url' => '{\cs23\i'."\n",
 'L=man' => '{\cs24\i'."\n",
 '/L' => <==
2	/Users/nnunley/parrot/config/auto/perldoc.pm	65	154	
==>nfig/auto/perldoc.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/p <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8820	8942	
==>max)
for i = 0 to 100
	b=rnd*max+1
	a(b)=a(b)+1
next i
for i = 1 to max
	print ,
	for j = 0 to a(i)
		print "*";
	next j
	p <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20061	20183	
==>max)
for i = 0 to 100
	b=rnd*max+1
	a(b)=a(b)+1
next i
for i = 1 to max
	print ,
	for j = 0 to a(i)
		print "*";
	next j
	p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647181	647541	
==>RS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 723,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 229 \ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22027	22136	
==>lf->_generate($node->{children}[1]);
  $self->_add_inst(''           ,'lt'    ,[$temp,0,"DONE_$label"]);
  $se <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19739	19941	
==>he value of the environment variable
C<RTFDEFLANG>, or if that's not set, then the value
1033 (for US English).

Setting this appropriately is useful if you want to use the RTF
to spellcheck, and/or if y <==
2	/Users/nnunley/parrot/languages/javascript/bootstrap.pm	72	217	
==>aScript::Runtime;
my $context = $runtime->create_context();

$context->bind_function(
	name =>	"snarf",
	func => sub { 
              my $file = s <==
2	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	630	745	
==>fingerprint.c.

=cut


use strict;
use lib 'lib';
use Digest::Perl::MD5 qw(md5_hex);

my $compat_file = 'PBC_COMPAT' <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	3150	3272	
==>elf = shift;

    return $self->{CODE};
}

=item C<type()>

The type of the op, either 'inline' or 'function'.

=cut

sub t <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2650	2754	
==>r);
    $self->right->sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_eleme <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2527	2631	
==>r);
    $self->right->sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_eleme <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	34105	34221	
==>ts} - @$test_results);

        if( $self->{Curr_Test} < $self->{Expected_Tests} ) {
            my $s = $self->{Expe <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	1239	1377	
==>{ print @_, "\n"; exit };

	my ($package, $file, $line) = caller;
	if (substr($file,0,1) eq '-' && $line == 0)
	{
		_die("Usage: perl -MLoc <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	14990	15124	
==>re) || \$thisscore>\$score)
					{ \$score=\$thisscore; \$score_return=\$item[-1]; }
			       undef;", $lookahead, $line,"<score: $cod <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	728	858	
==>er->emit(".endnamespace ${namespace}");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $h <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	4056	4240	
==>my $size = eval {
            open(TEST, ">test.c") or die "Can't open test.c: $!";
            print TEST <<'END';
#include <stdio.h>

int main() {
    long double foo;
    printf("%u" <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	1758	2016	
==>=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::Compiled>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CSwitch>

=item C<Parrot::OpTrans::CPrederef>

=back

=cut

use strict;
use lib 'lib';

use Pod::Usage;
u <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2924	3036	
==>=item C<Parrot::OpTrans::C>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1341	1543	
==>e_class>.

=cut

sub file_with_path
{
    my $self = shift;
    
    return $self->file_class->new(@_);
}

=item C<tmp_directory($path)>

Returns the directory for C<$path> relative to the default tempor <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17537	17627	
==>peof',[$type,$list]);
  $self->_add_inst ('', 'eq',[$type,'.Undef', "DONE_$label"]);
  $sel <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	19536	19706	
==>gin $content matches $target_name\n";
        next unless $self->{'accept_targets'}{$target_name};
        
        DEBUG > 2 and
         print "  It DOES match the accep <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18246	18435	
==>t;
    }

    #
    # Subroutine Calls:
    #
    #     <ident>(<arg>, <arg>, ...);
    #
 
    if ($token->is_ident and $self->get(1)->is_open_paren) {
      my $block = $self->current_bloc <==
2	/Users/nnunley/parrot/lib/Test/More.pm	29159	29292	
==>arnings when comparing undefs.
        local $^W = 0; 

        $Test->_unoverload(\$e1, \$e2);

        # Either they're both referen <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8199	8302	
==>Lackas <delta@clackas.de>.

=cut

__DATA__
FF,$a,$b,$c,$d,$_[4],7,0xd76aa478,/* 1 */
FF,$d,$a,$b,$c,$_[5 <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	23469	23589	
==>nugget = ;
          splice @$treelet, $i, 1, [pop(@dynasty), {}, $treelet->[$i]];
            # relace node with a new p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020931	1021203	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodetime <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021772	1022044	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "decodetime <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	9466	9575	
==>me, $dirname) = fileparse($_);

        my ($filebase, $extension) = ($filename =~ /^(.*)\.(.*)/);
        $fi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681517	681750	
==>t_integer(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
2	/Users/nnunley/parrot/config/auto/msvc.pm	10	167	
==>t (C) 2005, The Perl Foundation.
# $Id: /parrot/config/auto/msvc.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/msvc.pm - Microsoft Vi <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	2888	3025	
==>new_group('Testing', '',
            $self->new_item('', 'tools/dev/mk_native_pbc'),
        ),
        $self->new_group('Benchmarking', ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807841	807933	
==>DY" => "#line 502 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed(interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808746	808838	
==>DY" => "#line 502 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed(interp <==
2	/Users/nnunley/parrot/config/inter/make.pm	1332	1477	
==>ke', 'mingw32-make', 'nmake', 'make'],
            $verbose);

        unless ($prog) {

            # fall back to default
            $self->set <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	5179	5277	
==>talking with Tony Bowden in his
kitchen one night about the problems I was having writing some real <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	796579	796998	
==>ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 899,
                  "ARGS" => [
                              "p",
                              "k",
                              "n"
                            ],
                  "BODY <==
2	/Users/nnunley/parrot/lib/File/Which.pm	2351	2509	
==>executable so we check -e
                  ($Is_DOSish and grep { $file =~ /$_$/i } @path_ext[1..$#path_ext])
                                # DOSish systems <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364829	365252	
==>"FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 427,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 303 \"src/ops/io.ops\ <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	1881	2001	
==>foreach (@type_macros) {
        $typedefs->{$_}="#defined";
    }
    
    
    # post-process the file to find function <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	1139	1255	
==>y command line option in the file with
the exception of the configuration file name itself.  In the event
you have sp <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4211	4319	
==>return "sub <rx_tmp>, $lenvar, <rx_pos> # need $needed more chars",
               "lt <rx_tmp>, $needed, $fa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959270	959360	
==>ne 590 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, {{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960072	960162	
==>ne 590 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_encoding(interpreter, {{\@1} <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	856	967	
==>od names.
    class_name = class.get_fullname()
    method_name = meth
PIR_OUT

# Generate the lookup.
$output . <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15522	15623	
==>Escape \, {, }, -, control chars, and 7f-ff.
    $x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?or <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16701	16802	
==>Escape \, {, }, -, control chars, and 7f-ff.
    $x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?or <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	915	1008	
==>d $ident and not UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');
  c <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	943	1036	
==>d $ident and not UNIVERSAL::isa($ident, 'Jako::Construct::Expression::Value::Identifier');
  c <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	772	879	
==>ile should contain a transcript of the svn:ignore properties
# of the directories in the Parrot subversion r <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3627	3734	
==>ile should contain a transcript of the svn:ignore properties
# of the directories in the Parrot subversion r <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	8884	9037	
==>n't open $file, error $!";
  $prev = -1;

  while (<OP>) {
    chomp;
    s/#.*$//;
    s/\s*$//;
    s/^\s*//;
    next unless $_;
    ($name, $number) = <==
2	/Users/nnunley/parrot/lib/Test/More.pm	17320	17442	
==>dule, @imports) = @_;
    @imports = () unless @imports;

    my($pack,$filename,$line) = caller;

    local($@,$!);   # ev <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094739	1095015	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "exec",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 12 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095433	1095709	
==>s( {
                  "JUMP" => 0,
                  "NAME" => "exec",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 12 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1282	1407	
==>'%s'.", $name) unless $sym;

  my %props = $sym->props;

  my @args  = $self->args;

  my @formal_args = $sym->args;

  $self- <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	6294	6449	
==>_path;
    }
    else
    {
        warn "Failed to process $rel_path.\n";
    }

    return @rel_paths;
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot: <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14531	14644	
==>t_token(@to_unget);
  
  if(DEBUG) {
    if(defined $title) { print "  Returing title <$title>\n" }
    else { pri <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	23096	23209	
==>t_token(@to_unget);
  
  if(DEBUG) {
    if(defined $title) { print "  Returing title <$title>\n" }
    else { pri <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	38802	38927	
==>iving plain treatment...\n";
        unless( @$para == 2 or ( @$para == 3 and $para->[2] eq '' )
          or $para->[1]{'~coo <==
2	/Users/nnunley/parrot/config/auto/env.pm	1357	1483	
==>esult('unsetenv');
    } else {
        print " (no) " if $verbose;
        $self->set_result('no');
    }

    return $self;
} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2740	2843	
==>d formatters based on Pod::Simple.

Pod::Simple::DumpAsXML inherits methods from
L<Pod::Simple>.


=head <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898650	898981	
==>" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1014,
                  "ARG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805572	806064	
==>GS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 909,
                  "ARGS" => [
                              "i",
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 497 \"src/ops/set.ops <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	10580	10703	
==>PRINT;
@code	noop
	_BUILTIN_DISPLAY(1,$result)
PRINT
		}
		#print "After Expression have $type[CURR] $syms[CURR]\n";
		$eol= <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	4262	4384	
==>e of the op's argument at C<$index>.

=cut

sub arg_type
{
    my $self = shift;

    return $self->{ARGS}[shift];
}

=item <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28749	28896	
==>push @opcodes, new LocalDir( $parser,
        'result' => $_var,
    );
    my $_limit = new_tmp( $parser, 'pmc', 'number' );
    push @opcodes, <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	13741	13953	
==>p; ) {
                next = p->next;
                free(p);
                p = next;
        }
        free(hop);
    }
    hop = 0;
}

END_C

}
else {
    print SOURCE <<END_C;
static void hop_deinit(void) { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366508	366963	
==>"FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 429,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 313 \"src/ops/io.ops\"\n  if ({{\@2}} && {{\@1}}) {\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031437	1031544	
==>s/sys.ops\"\n    if ({{\@2}} < enum_first_type || {{\@2}} >= enum_last_type)\n        {{\@1}} = -1;\n    els <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032306	1032413	
==>s/sys.ops\"\n    if ({{\@2}} < enum_first_type || {{\@2}} >= enum_last_type)\n        {{\@1}} = -1;\n    els <==
2	/Users/nnunley/parrot/languages/lua/luac.pl	413	531	
==>g} = 1;    # 0, 1
$parser->YYData->{verbose_info}    = 1;    # 0, 1
$parser->Run(@ARGV);

if ( exists $parser->YYDa <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	6034	6154	
==>urn @ops;
}

sub need_group_setup {
    my ($self, $group) = @_;
    $self->{_setup_starts}{$group} = 1;
    $self->{_set <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	11148	11243	
==>osure Continuation RetContinuation Exception_Handler Coroutine Eval NCI Float Integer BigInt Com <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	1908	2032	
==>6))= 55
print B(Z(Z1,6))


' Comparison operator tests
if 4<5 then print "Ok" else print "Wrong"
if 5<5 then print "Wrong" el <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	9529	9649	
==>& $arg->{type};
        $is_repeating = $arg->{repeating};
    }

    $max = undef if $is_repeating;
    
    return $min <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	340	503	
==>sicmain";
}
sub feedme {
	my $type=shift @tokdsc;
	my $sym=shift @tokens;
        $type="" unless defined $type;
         $sym="" unless defined $sym;
        unshi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048190	1048301	
==>"BODY" => "#line 162 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tri <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049114	1049225	
==>"BODY" => "#line 162 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tri <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2751	2846	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub new {
  my $new = shift->SUPER::new(@_);
  #$new->nix_X_codes <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3107	3200	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sub new {
  my $new = shift->SUPER::new(@_);
  $new->nix_X_codes <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	1849	1959	
==>pos)->line);
  }

  return defined $self->{POS} ? $self->{POS} : -1;
}


#
# at()
#
# Without an argument, give <==
2	/Users/nnunley/parrot/tools/dev/pbc_header.pl	833	951	
==>ompat_file or die "Can't read $compat_file";
    my @lines = <IN>;
    close IN;

    my $len = 10;
    my $fingerprint <==
2	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	759	861	
==>ompat_file or die "Can't read $compat_file";
my @lines = <IN>;
close IN;

my $len = 10;
my $fingerprint <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2606	2740	
==>ENT entry within the block.
  #

  $sym = Jako::Symbol->new( # TODO: Just point at the Declaration?
    $self->block,
    ($self->is_gl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	311141	311269	
==>->pdb->state & PDB_BREAK)) {\n#if 1\n\tPIO_eprintf(interpreter, \"debug_print is disabled\\n\");\n#else\n\t/*\n\t * XXX adjust re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	935813	936086	
==>NAME" => "titlecase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936589	936862	
==>NAME" => "titlecase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1 <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9718	9839	
==>test$exe $libs", 'test.ldo', 'test.ldo', $verbose)
        and confess "Linker failed (see test.ldo)";
}

=item C<cc_run() <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5762	5870	
==>$verbose);
    }

    return $self;
}

=back

=head1 CREDITS

The L</runsteps()> method is largely based on c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548941	549037	
==>"BODY" => "#line 1107 \"src/ops/math.ops\"\n  /* Coercing a negative to a UINT can get pretty ugl <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	2562	2666	
==>me } });
  $_->sax($handler) foreach $self->content;
  $handler->end_element({ Name => 'module' });
}


1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59678	59998	
==>DIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 77,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 901 \"src/ops/core.ops\"\n  PARROT_WAR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667572	667797	
==>ush_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668346	668571	
==>ush_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11470	11785	
==>"ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 15,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 206 \"src/ops/core.ops\"\n  s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18368	18502	
==>self->get(1)->is_open_paren) {
      my $block = $self->current_block();
      my $sub_name = Jako::Construct::Expression::Value::Ident <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244989	245317	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "cmp_str",
                  "FLAGS" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	2896	3305	
==>}

  #
  # Go to the subroutine exit point:
  #
  # TODO: Isn't this really a no-op, after doing a .return(...)?
  #

  $compiler->emit("  goto _${sub_name}_LEAVE");

  if (defined $cond) {
    $compiler->emit("$anon:");
  }

  return;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  my $block = $self->block;
  my $value = $self->value;
  my $cond  = $self->cond;
  my $left  = $self-> <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	2549	2697	
==>files.',
            $self->new_item('Lists all the files in the distribution, with their metadata.', 'MANIFEST'),
            $self->new_item('Lists <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22092	22245	
==>23
		},
		GOTOS => {
			'funcbody' => 122
		}
	},
	{#State 71
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			' <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	4377	4515	
==>({ Name => 'call', Attributes => { name => $self->name->value } });
  $_->sax($handler) foreach $self->args;
  $handler->end_element({ Name <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9666	9751	
==>[9],4,0xfffa3942,/* 33 */
HH,$d,$a,$b,$c,$_[12],11,0x8771f681,/* 34 */
HH,$c,$d,$a,$b, <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	7146	7323	
==>rrot',
             'include_dir' => '/opt/local/include',
             'inline' => 'inline',
             'int2_t' => 'short',
             'int4_t' => 'int',
             'int8 <==
2	/Users/nnunley/parrot/config/gen/icu.pm	4519	4659	
==>ed anything more.
        print "Your compiler found the icu headers... good!\n" if $verbose;
    } else {
        print "Adding -I $icuheade <==
2	/Users/nnunley/parrot/tools/util/pirtidy.pl	23	119	
==>tools/util/pirtidy.pl 19235 2006-05-11T16:43:46.320675Z particle  $

use strict;
use warnings;
us <==
2	/Users/nnunley/parrot/languages/m4/tools/scrutinize.pl	29	159	
==>ze.pl - check Perl code with Perl::Critic

=head1 DESCRIPTION

This is not below 't', in order to not interfere with regression tes <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2344	2573	
==>st;
            s/^\\r//
                and $str .= "\r",      # carriage return
                last;
            s/^\\t//
                and $str .= "\t",      # horizontal tab
                last;
            s/^\\v// <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3858	4087	
==>st;
            s/^\\r//
                and $str .= "\r",      # carriage return
                last;
            s/^\\t//
                and $str .= "\t",      # horizontal tab
                last;
            s/^\\v// <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70914	71166	
==>b(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71683	71935	
==>b(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8032	8171	
==>ll out %Name2character...
{
  %Name2character = ();
  my($name, $number);
  while( ($name, $number) = each %Name2character_number) {
    if( <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26653	26777	
==>= @_;
    my @opcodes    = ();
    my $l_continue = new_label($parser);
    my $l_break    = new_label($parser);
    push <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27538	27662	
==>= @_;
    my @opcodes    = ();
    my $l_continue = new_label($parser);
    my $l_break    = new_label($parser);
    push <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2890	3017	
==>ps, $pushes) = @_;
	my $register_num = 0;
	my $push_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and po <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1812	1939	
==>ps, $pushes) = @_;
	my $register_num = 0;
	my $push_num = 0;
	my $pir = '';

	# Do code for each pop. Need to set up mv's and po <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	31846	31947	
==>ored in?
		my $dest_reg;
		if ($rule->{'pir'} =~ /\$\{STACK0\}/ &&
		    $rule->{'pir'} =~ /\$\{STORER <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89572	90033	
==>=> "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 111,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 38 \"src/ops/bit.ops\"\n  {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88835	89164	
==>=> "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 110,
                  "ARGS" => [
                              "i <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1971	2070	
==>]{'Indent'} }

sub   end_over_bullet  { --$_[0]{'Indent'} }
sub   end_over_number  { --$_[0]{'Indent <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1539	1638	
==>]{'Indent'} }

sub   end_over_bullet  { --$_[0]{'Indent'} }
sub   end_over_number  { --$_[0]{'Indent <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	10971	11096	
==>= $Level + 1;

    if( !defined $got || !defined $expect ) {
        # undef only matches undef and nothing else
        my $t <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	11389	11514	
==>= $Level + 1;

    if( !defined $got || !defined $expect ) {
        # undef only matches undef and nothing else
        my $t <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2992	3133	
==>st) = @_;
    $self->output_test('eq', $val1, $val2, $dest);
}

sub output_ne {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_te <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	9472	9648	
==>body>
                <tr>
                  <th>Function</th>
                  <th>Line Coverage</th>
                  <th>Branch Coverage</th>
                  <th>Call Cov <==
2	/Users/nnunley/parrot/config/auto/jit.pm	2191	2355	
==>rbose;

    # XXX disable all but i386, ppc
    my %jit_is_working = (
	i386 => 1,
	ppc  => 1,	
	# all others are seriously b0rked
    );

    if (-e "$jitbase/$cpua <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6156	6338	
==>Note: this may cause cuts to be processed out
      #  of order relative to pods, but in order relative to code.
      
    } elsif($line =~ m/^\s*$/s) {  # it's a blank line
      if <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3310	3419	
==>gather_groups_and_libs(@pmcs);

    while (my ($group, $pmcs) = each %$group_files) {
        my @pmcfiles = m <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3414	3523	
==>gather_groups_and_libs(@pmcs);

    while (my ($group, $pmcs) = each %$group_files) {
        my @pmcfiles = m <==
2	/Users/nnunley/parrot/lib/Test/More.pm	9466	9569	
==>d):

    like( $this, '/that/', 'this is like that' );

Regex options may be placed on the end (C<'/that <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	21865	22007	
==>hm implemented iteratively!  Whee!
  
  my($is, $was, $i, $treelet); # scratch
  while($treelet = shift @stack) {
    DEBUG > 3 and print " Con <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2389	2507	
==>",
      $self->name, $sym->line, $sym->file);
  }

  #
  # Now that we've decided to actually declare the constant, we <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2136	2254	
==>",
      $self->name, $sym->line, $sym->file);
  }

  #
  # Now that we've decided to actually declare the constant, we <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	11030	11200	
==>exc[-1] = $last+1;
            }
        } else {
            # Append
            push @incexc, $first, ($last+1);
        }
    }

    return \@incexc;
}

sub _negate_in <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	15868	16030	
==>es

- Test

- Test::More

Information about the TAP protocol can be found in the Test::Harness
distribution.

= AUTHORS

Audrey Tang <autrijus@autrijus.org>

Benja <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	31625	31722	
==>ode{_data}->{code}}, qq{\t\$P1["$line"]= $counter\n};
		}
		foreach (@{$ld->{data}}) {
			my($t,$v <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	15925	16036	
==>g(\$jumps, "PARROT_JUMP_GNEXT")      if (($jumps) && ($fixedargs[@fixedargs - 1]) && ($fixedargs[@fixedargs - 1] <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	47599	47827	
==>if ($grammar =~ m/(?=$IMPLICITSUBRULE)/gco
			and do { ($code) = extract_codeblock($grammar,'{([',undef,'(',1);
				$code })
		{
			$code =~ s/\A\s*\(|\)\Z//g;
			_parse("an implicit subrule", $aftererror, $line,
				"( $code )") <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101143	101383	
==>{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103349	103589	
==>{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	2110	2261	
==>ctory\n";

    foreach my $obj (@ARGV) {
        my $src = $obj;
        $src =~ s/\.o/\.c/g;
        copy_file($src, "miniparrot/$src");
    }
}

sub c <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15748	15876	
==>tion.

Currently (October 2001), that's these three:

 http://www.w3.org/TR/xhtml1/DTD/xhtml-lat1.ent
 http://www.w3.org/TR/xhtml <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24763	24860	
==>gnore);

		return _fail(wantarray, $textref) unless @match;
		return _succeed wantarray, $textref, <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7597	7692	
==>gnore);

	return _fail(wantarray, $textref) unless @match;
	return _succeed wantarray, $textref, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	700332	700894	
==>S" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 786,
                  "ARGS" => [
                              "p",
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	515	614	
==>h as just a call to some other
function and a C<return> statement), opcode functions are in the form <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847708	847918	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848487	848697	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io" <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37302	37398	
==>''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying repeated subrule: [' . $self->descri <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	782	883	
==>[ "end(n)" => "mark end of n-th paren match" ],
    [ "delete(n)" => "delete record of n-th paren matc <==
2	/Users/nnunley/parrot/Configure.pl	4601	4729	
==>]+)(?:=(.*))?/;
  $key   = 'help' unless defined $key;
  $value = 1      unless defined $value;

  for ($key) {
    m/version/ && <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947030	947135	
==>"src/ops/string.ops\"\n  INTVAL n = Parrot_charset_number(interpreter, {{\@2}});\n  if (n < 0)\n    real_e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947932	948037	
==>"src/ops/string.ops\"\n  INTVAL n = Parrot_charset_number(interpreter, {{\@2}});\n  if (n < 0)\n    real_e <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19356	19517	
==>result' => $result,
    );
    push @opcodes, new AssignOp( $parser,
        'result' => $result,
        'arg1'   => $nil->[0],
    );
    push @returns, $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15603	15761	
==>result' => $result,
    );
    push @opcodes, new AssignOp( $parser,
        'result' => $result,
        'arg1'   => $nil->[0],
    );
    my $argv = ne <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1803	1909	
==>ormal_args), scalar(@args), $name)
    unless @formal_args == @args;

  for (my $i = 0; $i < @args; $i++) { <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1503	1609	
==>ormal_args), scalar(@args), $name)
    unless @formal_args == @args;

  for (my $i = 0; $i < @args; $i++) { <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19362	19456	
==>-string
("").

=item $author_name   = $parser->get_author

This works like get_title except tha <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31138	31250	
==>my $desc = $pattern;
	$desc=~s/\\/\\\\/g;
	$desc=~s/}/\\}/g;
	$desc=~s/{/\\{/g;

	bless 
	{
		"pattern"   => $pat <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	12	108	
==>(C) 2001-2004, The Perl Foundation.
# $Id: /parrot/config/auto/gmp.pm 19593 2006-05-30T02:28:15.1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	2085	2386	
==>ref($self) . " doesn't have core_type()";
}

=item C<core_prefix()>

Implemented in subclasses to return a short prefix indicating the core
type used to individuate core function names.

=item C<run_core_func_decl($base)>

Optionally implemented in subclasses to return the C code for the run
core func <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Infix.pm	279	371	
==>strict;
eval "use warnings";

package Jako::Construct::Expression::Infix;

use base qw(Jako:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630668	630900	
==>class));\n    {{\@1}} = pmc_new(interpreter, type);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631658	631890	
==>class));\n    {{\@1}} = pmc_new(interpreter, type);\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2134	2239	
==>herwise, we assume the programmer wanted to shadow the
  # previous definition.
  #

  if (defined $sym an <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1881	1986	
==>herwise, we assume the programmer wanted to shadow the
  # previous definition.
  #

  if (defined $sym an <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	2581	2688	
==>e) {
    $handler->start_element({ Name => 'sub', Attributes => { name => $name, type => $type } });
  }
  e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093626	1093739	
==>rc/ops/experimental.ops\"\n  VTABLE_morph(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "exper <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094429	1094542	
==>rc/ops/experimental.ops\"\n  VTABLE_morph(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "exper <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102410	102632	
==>7,
                  "ARGS" => [
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 130 \"src/ops/bit.ops\"\n  string_bitwise_not(interpre <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	774	968	
==>die "Couldn't chdir into \"@{[ BASEDIR ]}\": $!\n";

$SIG{PIPE} = "IGNORE";

my $t = do { local $/; <DATA> };

my $CGI = new CGI;

#sub handle_request {
	#my ($self, $CGI) = @_;

	if ($CGI->url(- <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	577	689	
==>package

Declares the package that all subsequent sub PMCs will be put
into. The name is a simple concatenation o <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	979	1081	
==>e MANIFEST (currently MANIFEST and MANIFEST.generated
are used) is:

    source_path <whitespace> [pack <==
2	/Users/nnunley/parrot/config/init/hints/netbsd.pm	226	334	
==>$ccflags .= ' -pthread';
    }
    $conf->data->set(ccflags => $ccflags);

    my $libs = $conf->data->get('l <==
2	/Users/nnunley/parrot/config/init/hints/openbsd.pm	318	426	
==>$ccflags .= ' -pthread';
    }
    $conf->data->set(ccflags => $ccflags);

    my $libs = $conf->data->get('l <==
2	/Users/nnunley/parrot/Configure.pl	9269	9390	
==>rder
    auto::va_ptr
    auto::pack
    auto::format
    auto::isreg
    auto::jit
    gen::cpu
    auto::funcptr
    aut <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	17164	17273	
==>u the mail
  # without the slightest worry that paragraphs beginning with "From"
  # will get munged.

  # And <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	34463	34622	
==>" as manpage link.\n";
          $treelet->[$i][1]{'type'} = 'man';
          # This's the only place where man links can get made.
          $treelet->[$i][1]{ <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	290	408	
==>ektor
sub A() { 0x67_45_23_01 }
sub B() { 0xef_cd_ab_89 }
sub C() { 0x98_ba_dc_fe }
sub D() { 0x10_32_54_76 }

# for in <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13235	13345	
==>o {
}

sub _op_delay {
}

#---- Section 6 ----

sub _op_not {
  my ($self,$node) = @_;

  my $return = $self->_ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39288	39434	
==>T_VTABLE_${umeth}_METHNAME";
    # I think that these will be out by one - NWC
    my $l = $self->line_directive($line, "delegate.c");
    return < <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	19191	19340	
==>OR:
    ex = new Exception
	err = "Attempt to translate unknown instruction (code "
	str_ic = cur_ic
	err = concat str_ic
	err = concat ")"
    ex["_m <==
2	/Users/nnunley/parrot/languages/converter.pl	1160	1290	
==>1][0] if defined $item[1][0];
		  $return .= " ( $item[3] )(?) ";
		  $return .= $item[5][0] if defined $item[5][0];
		}
		| termin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1092076	1092807	
==>ELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "iter",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1211,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 196 \"src <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	834	1015	
==>and should
# be converted to typedefs.
my @type_macros = qw(CHARTYPE ENCODING STRING
                     Parrot_CharType Parrot_Encoding Parrot_String);

die "Usage: $0 <c source fi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	477108	477210	
==>DivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@1}} / den);\n  {{+=3}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478004	478106	
==>DivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = (INTVAL)floor({{\@1}} / den);\n  {{+=3}};\n", <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	4528	4674	
==>depends);
    }
}

## lives ok

sub lives_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) { <==
2	/Users/nnunley/parrot/config/gen/platform.pm	4974	5149	
==>_C <IN_C>, "\n\n";
            close IN_C;
        }
    }

    # append generated c files
    @impls = grep { /\.c$/ } split(',', $generated);
    for (@impls) {
        if (- <==
2	/Users/nnunley/parrot/tools/build/addopstags.pl	58	176	
==>d/addopstags.pl - add src/ops/*.ops to tags

=head1 SYNOPSIS

	perl tools/build/addopstags.pl src/ops/*.ops

=head1 DES <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	991	1097	
==>t->value;

  my $ident = $self->ident->compile($compiler);
  
  $compiler->emit("  dec $ident");
  
  if (( <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	11692	11888	
==>igit    ctype.h
labs        stdlib.h
ldexp       math.h
ldexpf      math.h
ldexpl      math.h
ldiv        stdlib.h
lgamma      math.h
lgammaf     math.h
lgammal     math.h
llabs       stdlib.h
llri <==
2	/Users/nnunley/parrot/Configure.pl	3466	3650	
==>--icushared=(linkeroption)>

Linker command to link against ICU library.

E.g.

   --icushared='-L /opt/openoffice/program -licudata -licuuc'

(The libs in openoffice are actually versi <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	1786	1890	
==>%type_map)) {
    $rev_type_map{$v} = $k;
};

get_dis($DIS, $file);
get_source($file);
exit if $opt{D};
g <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2734	2853	
==>='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHECK}}='ACCEPT';
    undef;
}

sub YYErr <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2610	2718	
==>='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHECK}}='ACCEPT';
    undef;
}

sub YYErr <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	1041	1162	
==>CH {
  return ${$_[0]};
}

sub PRINTF {
  my $it = shift;
  my $format = shift;
  $$$it .= sprintf $format, @_;
  return 1 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16895	17021	
==>ke it thru in X-generated comments
        #  with text in them.
        
        # Yes, stipulate the list without a range, so <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10335	10445	
==>ke it thru in X-generated comments
    #  with text in them.

    # Yes, stipulate the list without a range, so <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	30615	30756	
==>k} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $lbl_end <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	35162	35303	
==>k} ) {
        if ( $op and $op->isa('BranchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $lbl_end <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1817	1969	
==>my $name  = $self->name;
  my %props = $self->props;
  my @args  = $self->args;

  my $subname = $name;

  $subname =~ s/::/__/g;

  $compiler->emit(".su <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	9461	9624	
==>| $omode eq 'MAX';
				_failmsg "Found unbalanced nested tag: $tag",
					 pos $$textref;
				goto failed;
			}
		}
		else { $$textref =~ m/./gcs }
	}

short:
	$clo <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1723	1876	
==>igure::Data> object.

=cut

sub data
{
    my $self = shift;

    return $self->{data};
}

=item * C<options()>

Provides access to a L<Parrot::Configure: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2221	2339	
==>->value) unless $arg_sym;
      $actual_arg_type = $arg_sym->type; 
    }
    else {
      $actual_arg_type = $args[$i] <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1921	2039	
==>->value) unless $arg_sym;
      $actual_arg_type = $arg_sym->type; 
    }
    else {
      $actual_arg_type = $args[$i] <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1967	2130	
==>rot/tools/build/ops2c.pl] .
			 $PATHQUOTE;
our %cores = (
    C       => '',
   CGP     => '_cgp',
   CGoto   => '_cg',
    CSwitch => '_switch'
);

# Actual comma <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	3514	3617	
==>nt" : "";
    ($label = $label->{label}) =~ s/^@//; # FIXME: local labels?
    return "$label:\n$comment <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	14012	14180	
==>>{meth};
    my $body = $method->{body};
    $body =~ s/^\t/        /mg;
    $body =~ s/^[ ]{4}//mg;
    my $super = $self->{super}{$meth};

    my $total_body;
    if ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	1128	1270	
==>erpreter,
                                           void** prederef_addr)
{
    INTVAL offset_in_ops;
    if (prederef_addr == NULL) return NU <==
2	/Users/nnunley/parrot/languages/regex/test.pl	1898	2057	
==>.*)/) {
        $pattern = $1;
    } elsif (/--optimize=(.*)/) {
        my $opts = $1;
        $tree_opt = ($opts =~ /t/i);
        $list_opt = ($opts =~ /l/i) <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	8920	9026	
==>> creates a Perl 5 class that implements
a "struct-like" data structure.

The new class is given a construc <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1973	2086	
==>i]};
    my $actual_arg_type;

    if (UNIVERSAL::isa($args[$i], 'Jako::Construct::Expression::Value::Identifier') <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1673	1786	
==>i]};
    my $actual_arg_type;

    if (UNIVERSAL::isa($args[$i], 'Jako::Construct::Expression::Value::Identifier') <==
2	/Users/nnunley/parrot/languages/javascript/bootstrap.pm	146	435	
==>d_function(
	name =>	"snarf",
	func => sub { 
              my $file = shift;
	      warn "snarfing $file";
	      open my $fh, '<', $file; 
	      local $|;
	      my $val = join("\n", <$fh>); 
	      close $fh; 
	      return $val;
	});

$context->bind_function(
	name => "debug",
	func = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607515	607609	
==>"BODY" => "#line 473 \"src/ops/object.ops\"\n    {{\@1}} = VTABLE_get_attr(interpreter, {{\@2}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608419	608513	
==>"BODY" => "#line 473 \"src/ops/object.ops\"\n    {{\@1}} = VTABLE_get_attr(interpreter, {{\@2}} <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	64610	64821	
==>re most welcome.


=head1 COPYRIGHT

 Copyright (c) 1997-2001, Damian Conway. All Rights Reserved.
 This module is free software. It may be used, redistributed
     and/or modified under the same terms as Perl it <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028187	1028379	
==>leep_on_event(interpreter, (FLOATVAL) {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029038	1029230	
==>leep_on_event(interpreter, (FLOATVAL) {{\@1}}, next);\n  {{=next}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	4845	4998	
==>y $index ( 0 .. $#section ) {
        my ($name, $p, $ext) = fileparse($_, @{ $suffix{ $section[ $index ] } });
        next if ! $ext;
        $bench{ $n <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	9	111	
==>n/perl

use strict;
use warnings;

print <<"END_OF_HEADER";

# DO NOT EDIT.
# This file generated autom <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7697	7821	
==>$match[2], $match[3]+$match[5]+$match[7],	# MATCH
			@match[8..9,0..1,2..7];				# REM, PRE, BITS
}

sub _match_tagged	# ($$$$ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24866	24981	
==>$match[2], $match[3]+$match[5]+$match[7],	# MATCH
				@match[8..9,0..1,2..7];				# REM, PRE, BITS
	};

	bless $closu <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	5494	5716	
==>_type eq 'HASH' ){
                $elem = "{'${class}::$name'}";
            }
            if( defined $arrays{$name} ){
                $out .= "    my \$i;\n";
                $out .= "    \@_ ? (\$i = shift) : return \$ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	27972	28073	
==>eeply( \@this, \@that );

They may be deprecated in future versions.

=over

=item B<eq_array>

  my $ <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	1562	1704	
==>pen $file: $!\n");
        next;
    }

    my @lines = <F>;
    close(F);
    chomp @lines;

    for (@lines[0..10]) {
        next unless def <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15683	15782	
==>f_esc_codely {
  # Doesn't change "-" to hard-hyphen, nor apply computerese style-smarts.
  # We don <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5778	5880	
==>unless defined $self->{triggers}{$key}
        and defined $self->{triggers}{$key}{$trigger};

    my $ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6348	6450	
==>unless defined $self->{triggers}{$key}
        and defined $self->{triggers}{$key}{$trigger};

    my $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	417302	417504	
==>,
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interprete <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	418430	418632	
==>,
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interprete <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	34751	35032	
==>g2'   => \@params2,
    );
    push @opcodes1, @opcodes2;
    push @opcodes1, new AssignOp( $parser,
        'result' => $var,
        'arg1'   => $var1->[0],
    );
    my $lbl_end = new_label($parser);
    push @opcodes1, new BranchIfOp( $parser,
        'arg1'   => $nil <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	6160	6267	
==>e name|encoding|tab size|indentation|created (on|by)):.*//mg;
	$desc = $_;
    }
    if(!$desc) {
	s/^ *[a-z <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	1749	1863	
==>pe_map;

while (my ($k, $v) =  each (%type_map)) {
    $rev_type_map{$v} = $k;
};

get_dis($DIS, $file);
get_source <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5199	5306	
==>t('',$$token)) {
#DBG>			$tok.=		(ord($_) < 32 or ord($_) > 126)
#DBG>					?	sprintf('<%02X>',ord($_))
#D <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4949	5053	
==>t('',$$token)) {
#DBG>			$tok.=		(ord($_) < 32 or ord($_) > 126)
#DBG>					?	sprintf('<%02X>',ord($_))
#D <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2011	2132	
==>(cur_opcode += $offset))";
}

=item C<goto_pop()>

Transforms the C<goto POP()> macro in an ops file into the relevant C
c <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	2861	2978	
==>b modified_since
{
    my $self = shift;
    my $time = shift;
    
    return $self->stat->mtime > $time;
}

=item C< <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8553	8664	
==>e store.
	# Otherwise, there's nothing to do here.
	if ($dest_reg) {
		$pir .= <<'PIR'
# Get type (so we can fin <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6373	6484	
==>e store.
	# Otherwise, there's nothing to do here.
	if ($dest_reg) {
		$pir .= <<'PIR'
# Get type (so we can fin <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	40067	40224	
==>des) {
            if ( $op and $op->isa('BranchOp') ) {
                if ( $op->{result} eq 'break' ) {
                    $parser->Error("no loop to b <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6905	7015	
==>y ($self) = @_;
    my @ops;
    if ($self->{DEBUG}) {
	push @ops, (qq(print "PUSHED ).(@_>1?$_[1]:"mark").qq(\ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6555	6665	
==>y ($self) = @_;
    my @ops;
    if ($self->{DEBUG}) {
	push @ops, (qq(print "PUSHED ).(@_>1?$_[1]:"mark").qq(\ <==
2	/Users/nnunley/parrot/lib/File/Which.pm	3395	3511	
==>xports which()
  use File::Which qw(which where);  # exports which() and where()
  
  my $exe_path = which('perldoc') <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856247	856607	
==>ncat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 972,
                  "ARGS" => [
                              " <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	2128	2257	
==>turns a string assume that this is bison.
    # if this is bison pretending to be yacc '--version' doesn't work
    if ($stdout =~ <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	633	773	
==>();

my $header = '# $' . 'Id' . '$' . "\n" . << 'END_HEADER';   # confuse SVN
# generated by tools/dev/gen_manifest_skip.pl NOW
#
# This fil <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	302	437	
==>failed {
    return 'rx_fail P0';
}

############### SIMPLE OUTPUT ##############

sub output_advance {
    my ($self, $distance, $failL <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2159	2247	
==>rectory_with_name('compilers')->directory_with_name('imcc'),
        $self->directory_wit <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2871	3063	
==>hitespace {
    my ($file, $source) = @_;

    return unless @$source;
    shift @$source while (defined $source->[0] and $source->[0] !~ /\S/);
    pop @$source while (defined $source->[-1] an <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	5055	5178	
==>nk will be made to that file's
documentation file.

=cut

sub process_file_start_token
{
    my $self = shift;
    my $token <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/DynaPMCs.pm	118	209	
==>1.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Section::DynaPMCs - Dynamic PMCs documenta <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17247	17459	
==>(), ")\n";
    
    if($para_type eq '=for') { #//////////////////////////////////////////////
      # Fake it out as a begin/end
      my $target;

      if(grep $_->[1]{'~ignore'}, @$curr_open) {
        DEBUG > <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	239228	239540	
==>"#line 611 \"src/ops/cmp.ops\"\n  {{\@1}} = mmd_dispatch_i_pp(interpreter, {{\@2}}, {{\@3}}, MMD_CMP);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	3334	3599	
==>.c$/.h/;

        my $fh = open_file( "<", $cfile );
        my $source = do { local $/; <$fh> };
        close $fh;

        print "\n=== $cfile ===\n";
        my @funcs = extract_functions( $source );

        for my $func ( @funcs ) {
            push( @{$files{ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3793	3907	
==>eq ";") {
		feedme();		# Ignore this form for now.
	}
	if ($syms[CURR] eq "#") {
		feedme();
		$fd=$syms[CURR];
		f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572997	573097	
==>TABLE_set_string_native(interpreter, name, {{\@2}});\n  {{\@1}} = pmc_new_init(interpreter, enum_clas <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573907	574007	
==>TABLE_set_string_native(interpreter, name, {{\@2}});\n  {{\@1}} = pmc_new_init(interpreter, enum_clas <==
2	/Users/nnunley/parrot/tools/dev/as2c.pl	1248	1349	
==>print " *\n */\n";
	    print "static const char ${func}_code[] = {\n";
	}
	elsif (/^\s*\d+\s+(\w+):/) <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	4629	4771	
==>lank lines
	s/^\s*(\# *\n)+//s;         # remove leading
	s/\n(\# *\n)+\s*$/\n/s;     # remove trailing
	s/^\#//mg; # get rid of #
	#s/^( *\n)+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3906	4038	
==>nd add a space around the argument, like so:

    goto OFFSET(( (void*)interpreter->happy_place ))

=head2 Class Methods

=over 4

=c <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	13248	13373	
==>nd add a space around the argument,
        # like so:
        #
        #    goto OFFSET(( (void*)interpreter->happy_place )) <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9506	9631	
==>alid: discard it
		and	do {
				$$token eq ''	# End of input: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	prin <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9078	9198	
==>alid: discard it
		and	do {
				$$token eq ''	# End of input: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	prin <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	2919	3041	
==>data})
}

sub hexdigest {
	md5_hex(shift->{data})
}

sub b64digest {
	md5_base64(shift->{data})
}

sub md5(@) {
	my $messag <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2534	2649	
==>filename";
    print "Running $cmd\n" if $DEBUG;
    open (GCOVSUMMARY, "$cmd |") or die "Error invoking '$cmd': $!" <==
2	/Users/nnunley/parrot/languages/lua/luac.pl	615	805	
==>(s).\n";
}
if ( $parser->YYData->{verbose_warning}
    and exists $parser->YYData->{nb_warning} )
{
    my $nb = $parser->YYData->{nb_warning};
    print "$nb warning(s).\n";
}
if ( $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	998840	999100	
==>"i",
                              "ic",
                              "sc",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599604	599867	
==>"FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 679,
                  "AR <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	9291	9453	
==>x.h
cpowf       complex.h
cpowl       complex.h
cproj       complex.h
cprojf      complex.h
cprojl      complex.h
creal       complex.h
crealf      complex.h
creal <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	610	738	
==>,
    VALUE  => $token->text,

    DEBUG  => 1,
    FILE   => $token->file,
    LINE   => $token->line
  }, $class;
}


#
# compi <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	10808	10927	
==>arameters));
    # TODO
    # scan src/call_list.txt if the generated signature is available
    # TODO report errors fo <==
2	/Users/nnunley/parrot/languages/APL/t/APL.pm	1211	1394	
==>y converting the 0 into the empty string. Why?
      }
    }
    else {
      $output = "\n"; # this lets todo tests not bother specifying an out.
                      # XXX also give <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	970343	970896	
==>_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1091,
                  "ARGS" => [
                              "i",
                              "i",
                              "sc",
                              "ic"
                            ],
                  " <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	17308	17522	
==>",
  "\cj"  => "\n",
  "\n"   => "\n\\line ",

  "\t"   => "\\tab ",     # Tabs (altho theoretically raw \t's are okay)
  "\f"   => "\n\\page\n", # Formfeed
  "-"    => "\\_",        # Turn plaintext '-' into a non- <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	3991	4107	
==>y  : PMC that corresponds to a dynamic library
    ref      : PMC that references another PMC
    string   : PMC that <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30507	30673	
==>elf->{parentname};
    my $ret = gen_ret($method);
    my $cout = <<"EOC";
$decl {
EOC
    if ($meth eq 'morph') {
        $cout .= <<EOC;
    if (1 || Parrot_is_const <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7309	7456	
==>graph_buffer();
         # by now it's safe to consider the previous paragraph as done.
                
        push @$paras, $new; # the new incip <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1954	2078	
==>but which
  you don't want debug output from...

 $debug_level = 4;
 ...some stuff that uses Pod::Simple to do stuff, but whi <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11533	11730	
==>topped at source line "
	print I11
	print "\\n"
	_platform_shutdown()
	end
STOP
}
sub parse_data {
	my ($currline)=@_;
	$currline="" unless defined $currline;
	my @ld=();
	feedme();
OUTDATA:while($t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	728287	728416	
==>,
                  "BODY" => "#line 57 \"src/ops/set.ops\"\n   PMC * const temp = {{\@1}};\n   {{\@1}} = {{\@2}};\n   {{\@2}} = t <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	59854	59999	
==>[2], $_[5] ];
        }
	],
	[#Rule 111
		 'field', 3,
sub
#line 595 "Lua\lua51.yp"
{
            [ BuildLiteral( $_[0], $_[1], 'key' ), $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	18842	19146	
==>ount, $max, $next ]),
               @R_ops,
               aop('add', [ $matchcount, 1 ]),
               aop('goto', [ $loop ]),
      $back => $self->op_restore_rxlocals($op),
$local_back => aop('unless', [ $matchcount, $lastback ]),
               aop('add', [ $matchcount, -1 ]),
               aop(' <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	984	1096	
==>equire 5.004;

use strict;

use vars qw ( $VERSION $COMPATIBLE $FILENAME );

$VERSION = '1.05';
$COMPATIBL <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	954	1059	
==>equire 5.004;

use strict;

use vars qw ( $VERSION $COMPATIBLE $FILENAME );

$VERSION = '1.05';
$COMPATIBL <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	150	358	
==>rrot/tools/dev/rebuild_miniparrot.pl 19607 2006-05-30T15:23:20.183054Z coke  $
################################################################################

=head1 NAME

tools/dev/rebuild_miniparrot.pl - R <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	2830	2947	
==>onds since the
epoch.

=cut

sub modified_since
{
    my $self = shift;
    my $time = shift;
    
    return $self->s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1092587	1092849	
==>=> "inline",
                  "CODE" => 1211,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 196 \"src/ops/experimental.ops\"\n    {{\@1}} = {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3217	3418	
==>{
    my ($self, $offset) = @_;
    return "CUR_OPCODE + $offset";
}

sub goto_offset
{
    my ($self, $offset) = @_;
    return "return cur_opcode + $offset";
}

sub goto_address
{
    my ($self, $addr <==
2	/Users/nnunley/parrot/languages/regex/test.pl	9	185	
==>w
use strict;
use FindBin;
use lib "$FindBin::Bin/lib";
use Regex;
use Regex::Driver;
# use lib "$FindBin::Bin/../../lib";
# use Parrot::Config;
use strict;

# Running this with <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	6217	6346	
==>ype) {
          print $fh "<a href='$type'>";
        } else {
          print $fh "<a>"; # Yes, an 'a' element with no attribute <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	16740	16851	
==>mplate .= interpolate($code, @order);

     $template .= 'push result, ' . $order[0] . "\n";

          $templat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766104	766400	
==>AGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 865,
                  "ARGS" => [
                              "i" <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	31645	31763	
==>assert().  If the $check is true, something
has gone horribly wrong.  It will die with the given $description and
a not <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571077	571175	
==>ps/object.ops\"\n    PMC *class = Parrot_class_lookup_p(interpreter, {{\@3}});\n    {{\@1}} = Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572032	572130	
==>ps/object.ops\"\n    PMC *class = Parrot_class_lookup_p(interpreter, {{\@3}});\n    {{\@1}} = Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51771	51880	
==>nterpreter,   {{\@1}}); }\n  else         { Parrot_clear_trace(interpreter, PARROT_ALL_TRACE_FLAGS); }\n  {{=0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52554	52663	
==>nterpreter,   {{\@1}}); }\n  else         { Parrot_clear_trace(interpreter, PARROT_ALL_TRACE_FLAGS); }\n  {{=0 <==
2	/Users/nnunley/parrot/config/auto/signal.pm	996	1130	
==>ghandler_t => 'define');
        print " (__sighandler_t)" if $verbose;
    }
    cc_clean();

    cc_gen('config/auto/signal/test_2.in <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9911	10043	
==>}
}

=item C<proto($type,$parameters)>

Determines the prototype (argument signature) for a method body
(see F<src/call_list>).

=cut <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78052	78450	
==>n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlvar",
                  "FLAGS" => "",
                  "ARGDIRS <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	40953	41099	
==>>[$_] > $max_len[$_];
    }
  }
  @max_len;
}

sub _call_function_sym {
  my $self = shift;
  my $symbol = shift;
  my $func_obj = $self->_find_lex <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126276	126592	
==>" => 156,
                  "ARGS" => [
                              "i",
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 271 \"src/ops/bit.ops\"\n  const INTVAL r = {{\@2}};\n  INTVAL s = {{\@ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27834	27990	
==>edme();
				push(@params, $syms[CURR], $a);
			} elsif ($syms[NEXT] eq "(") {
				feedme();
				while($syms[CURR] ne ")") {
					feedme();
				}
				push(@pa <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	297	479	
==>they are just a stub, and skippable.

my (@keep,@skip);
foreach my $file (@commands) {
  open my $fh, '<', $file;
  my $line = <$fh>;
  if ($line =~ /XXX Stub/i) {
    $file =~ m{.*/( <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	59726	59935	
==>.yp"
{
            [ $_[1] ];
        }
	],
	[#Rule 110
		 'field', 5,
sub
#line 591 "Lua\lua51.yp"
{
            [ $_[2], $_[5] ];
        }
	],
	[#Rule 111
		 'field', 3,
sub
#line 595 "Lua\lu <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	4610	4729	
==>every basic block but the first begins with a
    # labelled statement. Next, do a reachability analysis to find
    # u <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	2142	2262	
==>e Config::Data settings might have changed for the test
        $conf->data->set('libs',      $libs);
        $conf->data <==
2	/Users/nnunley/parrot/config/auto/readline.pm	1942	2062	
==>e Config::Data settings might have changed for the test
        $conf->data->set('libs',      $libs);
        $conf->data <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2134	2239	
==>ode for the segment
	foreach(@{$code{$seg}->{code}}) {
		s/#RTJ// if $runtime_jump;
		if (/#SAVECOMMON/) { <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41572	41707	
==>@@@

sub _closers_for_all_curr_open {
  my $self = $_[0];
  my @closers;
  foreach my $still_open (@{  $self->{'curr_open'} || return  } <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45412	45522	
==><reject:';
my $SCOREMK		= '\G\s*<score:';
my $AUTOSCOREMK		= '\G\s*<autoscore:';
my $SKIPMK		= '\G\s*<skip:';
m <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	3187	3294	
==>s -r $cfg{config_file};

my $ini = Config::IniFiles->new( -file => $cfg{config_file} );

# Merge Configurati <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	690483	690743	
==>rot_freeze(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11926	12019	
==>EMP0} = concat ${STEMP1}
goto PRE_CALL_${CURIC}_LAZY_MOVE_RET_CONT

# Can do a lazy move.
PRE_ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	54700	54804	
==>e>. Note too that the value returned by an extractor
subroutine need not bear any relationship to the cor <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103807	1103910	
==>Y" => "#line 332 \"src/ops/experimental.ops\"\n\tSTRING *class = {{\@2}};\n\tINTVAL type = pmc_type(inte <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105022	1105125	
==>Y" => "#line 332 \"src/ops/experimental.ops\"\n\tSTRING *class = {{\@2}};\n\tINTVAL type = pmc_type(inte <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3986	4079	
==>mandatory) {
			exists($$outhash{$_})
		or	croak("Missing mandatory parameter '".lc($_)."'") <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3785	3876	
==>mandatory) {
			exists($$outhash{$_})
		or	croak("Missing mandatory parameter '".lc($_)."'") <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1079	1193	
==>$parser, $expr )    = @_;
    my ( $defn,   $opcodes ) = @{$expr};
    if ( scalar( @{$opcodes} ) and $opcodes->[ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	24368	24482	
==>$parser, $expr )    = @_;
    my ( $defn,   $opcodes ) = @{$expr};
    if ( scalar( @{$opcodes} ) and $opcodes->[ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	1981	2080	
==>With an argument, gives the
# token at that absolute position. If a count is given, then that many t <==
2	/Users/nnunley/parrot/lib/Test/More.pm	1541	1703	
==>han print STDERR "# here's what went wrong\n"
  diag("here's what went wrong");

  like  ($this, qr/that/, $test_name);
  unlike($this, qr/that/, $test_name);

  c <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	27968	28112	
==>op @stack;
	print <<EOC;
	$ar\[$i\] = $p->[1]
EOC
    }
    push @stack, [$n, $ar, 'P'];
}

sub BUILD_LIST
{
    BUILD_TUPLE(@_,"ResizablePMCArra <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	56005	56115	
==>of the text and the extraction
subroutines reapplied. Characters which are thus removed are accumulated and
eve <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	56780	56922	
==>_delimited($_[0],q{'"}) } },
                        { Brack => sub { extract_bracketed($_[0],'{}') } },
                   ]);

This call extr <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5784	5901	
==>return $self;
}

=back

=head1 CREDITS

The L</runsteps()> method is largely based on code written by Brent
Royal-Gord <==
2	/Users/nnunley/parrot/config/init/defaults.pm	4419	4530	
==>as_static_linking => 1,
        has_dynamic_linking => 0,

        # default behaviour for linking parrot to a s <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	2073	2215	
==>mmd ];
        } else {
            die "Syntax error at $file line ".$fh->input_line_number()."\n";
        }
    }

    return $vtable;
}

=i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	158904	159204	
==>FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 192,
                  "ARGS" = <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	818	1036	
==>2/i) {
        if ($cc =~ /^gcc/i) {
            $conf->data->add(' ', libs => '-lgmp');
        } else {
            $conf->data->add(' ', libs => 'gmp.lib');
        }
    } else {
        $conf->data->add(' ', libs = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	3117	3237	
==>fn} or exists $props{fnlib}) {
      $name .= "_THUNK";
    }

    $compiler->emit("  _${name}(" . join(", ", @args) . ") <==
2	/Users/nnunley/parrot/config/auto/socklen_t.pm	584	682	
==>y $d_socklen_t = $Config{d_socklen_t};
    my $has_socklen_t = ( $d_socklen_t && $d_socklen_t ne 'u <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10657	11036	
==>vent",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 14,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 206 \"src/ops/core.ops\"\n  stack_push(interpreter, &CONTEXT(interpre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	287817	288142	
==>" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 335,
                  "ARGS" => [ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7598	7709	
==>N
300 print "300!"
    goto FIN
oats:
	print "Oats",
	return
peas:
	print "Peas",
	return
beans:
	print "Beans", <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19881	19992	
==>N
300 print "300!"
    goto FIN
oats:
	print "Oats",
	return
peas:
	print "Peas",
	return
beans:
	print "Beans", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791579	791679	
==>432 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed_int(interpreter, {{\@2}}, {{\@3 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792486	792586	
==>432 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed_int(interpreter, {{\@2}}, {{\@3 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2729	2851	
==>ECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHECK}}='ACCEPT';
    undef;
}

sub YYE <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2605	2716	
==>ECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHECK}}='ACCEPT';
    undef;
}

sub YYE <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	904	1012	
==>ubs() {
	# No extra subs.
	return "";
}

# Label generation.
sub gen_label() {
	# We'll emit a label for ever <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	661	769	
==>ubs() {
	# No extra subs.
	return "";
}

# Label generation.
sub gen_label() {
	# We'll emit a label for ever <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	4224	4340	
==>h my $name (@path)
    {
        return unless $dir = $dir->existing_directory_with_name($name);
    }
    
    retur <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	5639	5790	
==>rst_comment;

    s/^\/\*//; s/\*\/$//; # /*  */
    s/^ *\/\///mg;   # //
    s/^ ?\*\*//mg;   # |**
    s/^ {0,2}\*//mg; # | *

    s/^ *(\$I[d]: .+)\ <==
2	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1814	1927	
==>base qw(Lua::opcode);

package ToBoolOp;
use base qw(Lua::opcode);

package CallOp;
use base qw(Lua::opcode) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	295548	296036	
==>" => "iseq",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 344,
                  "ARGS" => [
                              "i",
                              "p",
                              "p"
                            ],
                  "BODY" => <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	2814	2970	
==>instructions to translate class library.
# ##########################################################
sub generate_classlib_make($) {
    my $mono_class_l <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	12125	12491	
==>---
        #   goto OFFSET(X)     {{+=X}}  PC' = PC + X  Used for branches
        #   goto NEXT()        {{+=S}}  PC' = PC + S  Where S is op size
        #   goto ADDRESS(X)    {{=X}}   PC' = X       Used for absolute jumps
        #   goto POP()         {{=*}}   PC' = <pop>   Pop address off control stack
        #   expr OFFSET(X)     {{^+X}}  PC + X        Re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	771189	771695	
==>seti_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 871,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 350 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10764	10875	
==>nt ELEMENT_TYPE_I2 = 0x06
	.const int ELEMENT_TYPE_U2 = 0x07
	.const int ELEMENT_TYPE_I4 = 0x08
	.const int ELEM <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29411	29629	
==>112
	},
	{#State 91
		ACTIONS => {
			"=" => 143
		},
		DEFAULT => -45
	},
	{#State 92
		ACTIONS => {
			"}" => 144
		}
	},
	{#State 93
		ACTIONS => {
			";" => 146,
			"," => 147
		},
		DEFAULT => -10 <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2542	2728	
==>cflags              => $ccflags,
            ccwarn               => '',
            has_dynamic_linking  => 1,
            parrot_is_shared     => 1,

            sym_export => '__declsp <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	5701	5864	
==>iles) = @_ ? @_ : glob File::Spec->catfile( $DIR, '*.t' ) ;

    if (@files) {
        return runtests(@files);
    } else {  
        return;
    }
}

##
## my $st <==
2	/Users/nnunley/parrot/config/auto/m4.pm	7	97	
==>ight (C) 2005, The Perl Foundation.
# $Id: /parrot/config/auto/m4.pm 19593 2006-05-30T02:28 <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	38363	38515	
==>xt, '<A>', '</A>', undef, {reject => ['<A>']} );

=item C<ignore =E<gt> $listref>

The list reference contains one or more strings specifying patterns
th <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1613	1832	
==>::Simple::DEBUG = $value\n";
  }
  
  require Pod::Simple;
  return;
}

1;


__END__

=head1 NAME

Pod::Simple::Debug -- put Pod::Simple into trace/debug mode

=head1 SYNOPSIS

 use Pod::Simple::Debug (5);  # or some int <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9170	9275	
==>_stack>[-1\] # peekindex",
            "eq <rx_tmp>, -1, ".$self->output_label_use($fallback)." # was a ma <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	12680	12823	
==>string as a source for parse_file");
  } else {
    {
      local *PODSOURCE;
      open(PODSOURCE, "<$source") || Carp::croak("Can't open $sour <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2719	2868	
==>ncat strPC
${INS} = concat ": "
PIR

	# Return.
	return $pir;
}

# Pre and post stack operation (op class instructions) hooks.
sub pre_op($$) {
	my $s <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36625	36750	
==>einfo\n";

		# Now call pre_call and append code that it generates.
		my $pre_call = $srm->pre_call();
		$pir .= "### pre_call <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	28	219	
==>ex/lib/Regex/Parse/P6C.pm 18978 2006-04-30T14:02:48.452322Z bernhard  $

package Regex::Parse::P6C;

use strict;
use Carp qw(confess);
use Regex::Ops::Tree;
use P6C::Util qw(is_string);

sub o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369468	369558	
==>\"src/ops/io.ops\"\n  {{\@1}} = PIO_reads(interpreter, {{\@2}}, (size_t){{\@3}});\n  {{+=4} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	370353	370443	
==>\"src/ops/io.ops\"\n  {{\@1}} = PIO_reads(interpreter, {{\@2}}, (size_t){{\@3}});\n  {{+=4} <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	26194	26296	
==>cout .= <<"EOC";
    } /* pass */
} /* Parrot_${classname}_class_init */
EOC
    if ($self->{flags}{dyn <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243947	244038	
==>STRING* l = VTABLE_get_string(interpreter, {{\@2}});\n  {{\@1}} = string_compare(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244879	244970	
==>STRING* l = VTABLE_get_string(interpreter, {{\@2}});\n  {{\@1}} = string_compare(interpreter <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6660	6769	
==>rate name of register to hold value we pop off the stack.
${PTEMP1} = ${STYPES}[${ITEMP2}]
${STEMP0} = "$"
${S <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	658	790	
==>Spec;
use Parrot::Config;

require Exporter;
require Parrot::Test;
require Test::Builder;
require Test::More;

our @EXPORT = qw( plan <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	374399	374887	
==>=> "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 438,
                  "ARGS" => [
                              "i",
                              "sc",
                              "i"
                            ],
                  "BODY" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	813	903	
==>((size_t)(cur_opcode - interpreter->code->base.data))
#define CUR_OPCODE cur_opcode
#define <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	929	1019	
==>((size_t)(cur_opcode - interpreter->code->base.data))
#define CUR_OPCODE cur_opcode
#define <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	478	610	
==>atting_codes = map(($_=>1), @Known_formatting_codes);
@Known_directives       = qw(head1 head2 head3 head4 item over back); 
%Known_d <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	4302	4423	
==>eedme();
		push(@ifstack, $ifline);
		die "No then at $sourceline --  $syms[CURR]" if ($syms[CURR] ne "then");
		$singleif <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561808	561928	
==>n  opcode_t *next = {{^+4}};\n  {{\@1}} = VTABLE_find_method(interpreter, {{\@2}}, {{\@3}});\n  if (!{{\@1}}) {\n    real <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562892	563012	
==>n  opcode_t *next = {{^+4}};\n  {{\@1}} = VTABLE_find_method(interpreter, {{\@2}}, {{\@3}});\n  if (!{{\@1}}) {\n    real <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2535	2637	
==>e of actual argument (%s)!", ref $args[$i])
      unless defined $actual_arg_type;

    if ($formal_arg <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2235	2337	
==>e of actual argument (%s)!", ref $args[$i])
      unless defined $actual_arg_type;

    if ($formal_arg <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1373	1538	
==>e logo gets printed to STDERR; hence the redirection.
        my $cc_output = `$cc /? 2>&1` || '';
        $ccflags =~ s/-O1 // if $cc_output =~ m/Standard/ || $cc_ou <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	15516	15637	
==>);

        # Constants here are defined in include/parrot/op.h
        or_flag(\$jumps, "PARROT_JUMP_RELATIVE")   if ($br <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3696	3794	
==>s F<tools/dev/nm.pl> to list the symbols.

=head1 TODO

=over 4

=item *

Write a pollution detecto <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	6859	6948	
==>tarray;
  return;
}

#-------------------------------------------------------------------- <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	8398	8487	
==>tarray;
  return;
}

#-------------------------------------------------------------------- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5478	5740	
==>/\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "load_bytecode",
                  "FLAGS" => " <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	2045	2144	
==>f a count is given, then that many tokens
# (at most, given the possibilitiy of running off the end) <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	58153	58333	
==>de\"?");
				}
				else
				{
					_error("Untranslatable item encountered: \"$code\"",
					       $line);
					_hint("Did you misspell \"$code\"
						   or forget to comment it o <==
2	/Users/nnunley/parrot/lib/Test/More.pm	35453	35805	
==>tests that use no_plan or todo your
end-users will have to upgrade Test::Harness to the latest one on
CPAN.  If you avoid no_plan and TODO tests, the stock Test::Harness
will work fine.

Installing Test::More should also upgrade Test::Harness.

=back


=head1 HISTORY

This is a case of convergent evolution with Joshua Pritikin's Test
module.  I was la <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	3807	3922	
==>}

    # src/pmc/$pmc\$(O): \$(NONGEN_HEADERS) $parent_headers src/pmc/pmc_$pmc.h

    # build list of libraries for <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	6306	6401	
==>et_token about to return ",
   Pod::Simple::pretty( @{$self->{'token_buffer'}}
     ? $self->{'t <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	18	165	
==>05, The Perl Foundation.
# $Id: /parrot/config/init/hints/linux.pm 19593 2006-05-30T02:28:15.110975Z coke  $

package init::hints::linux;

use stric <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	2474	2702	
==>is_cc_shared_cb);

    ################################################################
    # Parrot usually aims for IEEE-754 compliance.
    # For Solaris 8/Sun Workshop Pro 4, both
    #    atan2( 0.0, -0.0) and atan2(-0.0, -0 <==
2	/Users/nnunley/parrot/config/inter/progs.pm	1789	1916	
==>c'), $conf->options->get('cc'));
    $cc = prompt("What C compiler do you want to use?", $cc)
        if $ask;
    $conf->data-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138627	139068	
==>"ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 170,
                  "ARGS" => [
                              "ic",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 70 \"sr <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	6133	6244	
==>fprintf(stderr, "\t" INTVAL_FMT ": %s\n", i, argv[i]);
        }

        userargv->vtable->push_string(interpre <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	32200	32421	
==>'NAME' => 4,
			"{" => 38,
			"..." => 39,
			"(" => 40,
			"#" => 41
		},
		DEFAULT => -37,
		GOTOS => {
			'exp' => 100,
			'functioncall' => 31,
			'explist1' => 158,
			'function' => 26,
			'tableconstructo <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	27722	27830	
==>course, test #1 is $tests[0], etc...

=cut

sub summary {
    my($self) = shift;

    return map { $_->{'ok'} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731791	732184	
==>_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 821,
                  "ARGS" => [
                              "i",
                              "n"
                            ],
                  "BODY" => "#line 129 \"sr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450195	450675	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_abs",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10683	10784	
==>e
#DO NOT remove comment

1;

}
#End of include------------------------------------------------- <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10204	10299	
==>e
#DO NOT remove comment

1;

}
#End of include------------------------------------------------- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	18159	18390	
==>tring_bool(interpreter, {{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21322	21553	
==>tring_bool(interpreter, {{\@1}})) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	41326	41421	
==>>{functions}};
  }

  my $return = $self->_call_function_obj($func_obj, @_);
  $self->_restore($ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57852	57945	
==>Y" => "#line 874 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo_s(interpreter, {{\@2}});\n  {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58614	58707	
==>Y" => "#line 874 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo_s(interpreter, {{\@2}});\n  {{+= <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	1963	2073	
==>le($trans);

    my $length = length($pf->byte_code);

    # First instruction in bytecode must be the leader o <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	16548	16673	
==>CASE_${jump}_${incase}_STARTOPS:
	eq I5, 1, CASE_${jump}_${incase}_NO_OP
	push P9, "or"
	push P9, "OP"
CASE_${jump}_${incase}_ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	561	670	
==>rn $self->SUPER::new(
		'Perl Modules', 'perl.html', '',
		$self->new_group('Operations', '',
			$self->new_it <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	1817	1956	
==>t_initialize_core_pmcs(Interp *interp);
void Parrot_initialize_core_pmcs(Interp *interp)
{
    int pass;
    for (pass = 0; pass <= 1; ++pas <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3782	3915	
==>e}(" . join(", ", @args) . ")");
  }

  if (($dest_ident->kind eq 'var') and ($dest_ident->scope eq 'global')) {
    my $pmc_type = $d <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2418	2536	
==>"print $what;");
}

sub output_test {
    my ($self, $test, $val1, $val2, $dest) = @_;
    $val1 = value($val1);
    $v <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2735	2852	
==>"print $what");
}

sub output_test {
    my ($self, $test, $val1, $val2, $dest) = @_;
    $val1 = value($val1);
    $v <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	5377	5467	
==>xample_output_isnt( $example_f, $expected, @todo )>

Determine the language from the extens <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	34481	34734	
==>ne",
                  "CODE" => 43,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 632 \"src/ops/core.ops\"\n  {{\@1}}->vtable->set_poi <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5105	5227	
==>G>	my($dbgerror)=0;

#DBG>	my($ShowCurToken) = sub {
#DBG>		my($tok)='>';
#DBG>		for (split('',$$token)) {
#DBG>			$to <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4859	4976	
==>G>	my($dbgerror)=0;

#DBG>	my($ShowCurToken) = sub {
#DBG>		my($tok)='>';
#DBG>		for (split('',$$token)) {
#DBG>			$to <==
2	/Users/nnunley/parrot/config/inter/progs.pm	1512	1692	
==>efault will usually work--they've been intuited from your Perl 5
    configuration.

END
    }

    # Set each variable individually so that hints files can use them as
    # trigge <==
2	/Users/nnunley/parrot/languages/perms.pl	127	318	
==>rn sub {
	  return if @prefix >= $stop && $prefix[-1] >= @{ $things } - 1;
    my $i = 0;
    while (++$prefix[$i] > $#$things ) {
      $prefix[$i] = 0;
      $i++;
      last if $i > @prefix <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934075	934297	
==>@1}} = string_downcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934850	935072	
==>@1}} = string_downcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/config/inter/lex.pm	428	558	
==>figure::Step qw( :inter capture_output check_progs );

$util        = 'lex';
$description = "Determining whether $util is installed <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	578	702	
==>age available on your
# nearest CPAN
#
# Any use of this module in a standalone parser make the included
# text under the <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	562	682	
==>age available on your
# nearest CPAN
#
# Any use of this module in a standalone parser make the included
# text under the <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	547551	547845	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "fact",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	548457	548751	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "fact",
                  "FLAGS" => ":advanced_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432446	432538	
==>.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433461	433553	
==>.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  { <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	13122	13228	
==>ATCH, REMAINDER, PREFIX
		       );

}

sub _match_codeblock($$$$$$$)
{
	my ($textref, $pre, $ldel_outer, $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6864	6978	
==>at end?");
}

sub output_pushmark {
    my ($self) = @_;
    my @ops;
    if ($self->{DEBUG}) {
	push @ops, (qq(pri <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	68	166	
==>/Docs/Section/Tools.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Se <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561744	561862	
==>,
                  "BODY" => "#line 167 \"src/ops/object.ops\"\n  opcode_t *next = {{^+4}};\n  {{\@1}} = VTABLE_find_m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562828	562946	
==>,
                  "BODY" => "#line 167 \"src/ops/object.ops\"\n  opcode_t *next = {{^+4}};\n  {{\@1}} = VTABLE_find_m <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	444	691	
==>t_eq'
                        );

foreach my $func ( keys %language_test_map ) {

  *{"Parrot::Test::Tcl::$func"} = sub ($$;$) {

    my ($self, $code, $output, $desc) = @_;
  
    $count = $self->{builder}->current_test + 1;

    $desc = $language <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2660	2780	
==>{ERRST}} != 0;
}

sub YYAbort {
	my($self)=shift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2542	2651	
==>{ERRST}} != 0;
}

sub YYAbort {
	my($self)=shift;

	${$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19966	20094	
==>right.

Here are some notable values:

  1033  US English
  2057  UK English
  3081  Australia English
  4105  Canada English
  1 <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3373	3473	
==>is should be "print the last command". Which is harder.
        $body =~ s/^(\s*)([^\n]+)\s*\Z/$1puts <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4780	4880	
==>is should be "print the last command". Which is harder.
        $body =~ s/^(\s*)([^\n]+)\s*\Z/$1puts <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	13879	14054	
==>=> -4,
		GOTOS => {
			'block' => 64,
			'chunk' => 57
		}
	},
	{#State 20
		ACTIONS => {
			"=" => 65
		},
		DEFAULT => -52
	},
	{#State 21
		ACTIONS => {
			"," <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10729	10860	
==>escape_url($section);
        # Turn char 1234 into "(1234)"
        $section = '_' unless length $section;
    }
    
    foreach m <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4106	4228	
==>escape_url($section);
     # Turn char 1234 into "(1234)"
    $section = '_' unless length $section;
  }
  
  

  foreach m <==
2	/Users/nnunley/parrot/config/inter/ops.pm	1007	1180	
==>ubset libs
    if (0 && $conf->options->get('ask')) {
        print <<"END";


The following opcode files are available:
  @ops
END
        {
            $ops = prompt('Which <==
2	/Users/nnunley/parrot/config/init/hints/cygwin.pm	409	610	
==>//g;

    my $build_dir = $conf->data->get('build_dir');
    $build_dir =~ s/ /\\ /g;

    # A note about building shared libraries:  Perl5 uses the 'ld2' tool, which
    # is installed as part of the p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717980	718081	
==>oftspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_fprintf(interpreter, io, I <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718912	719013	
==>oftspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_fprintf(interpreter, io, I <==
2	/Users/nnunley/parrot/Configure.pl	9782	9902	
==>nfig_pm
);

my $conf = Parrot::Configure->new;
{
    # XXX $Parrot::Configure::Step::conf is a temporty hack
    no warni <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	425000	425554	
==>",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 488,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 572 \"src/ops/io.ops\"\n    {{\@1}} = PIO_accept(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	8193	8297	
==>h;

    my $Dumper = Data::Dumper->new([\%vtable], ['class']);
    $Dumper->Indent(3);
    print $vtd $Du <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	23636	23750	
==>rgs) {
		my $out;
		my $arg_name;

		# uint8
		if (/^uint8$/) {
			$out =  "    \${I_ARG_$arg_num} = bc.read_uint8( <==
2	/Users/nnunley/parrot/config/auto/gc.pm	532	627	
==>em C<malloc-trace>

Use the malloc in F<src/res_lea.c> with tracing enabled.

=back

=cut

packa <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	4857	4980	
==>' . $index_html . "</p>\n";
    }
    
    return $index_html;
}

=item C<contents_relative_to_source($source)>

Returns the <==
2	/Users/nnunley/parrot/tools/dev/gen_class.pl	1501	1614	
==>hname eq 'name' || $methname =~ /prop/) {
		# default.pmc handles these
		next;
	}

	print "    $retval $meth <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11705	11851	
==>k, $token;
			next;
		}
		next if ($sym eq ",");  # Commas get ignored, args to stack
		my($ac, @args, $extern, $pir_args);
		if (isarray($sym) and <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	60093	60277	
==>m/$PROD/gco)
		{
			_parseunneg("a new production", 0,
				    $lookahead,$line) or next;
			$rule
			  and (!$prod || $prod->check_pending($line))
			  and $prod = $rule->addprod(new P <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	3880	4017	
==>0; $i < $n; $i++) {
		    my ($a, $def) = split(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a = qq!"$a"!;   # quote argument
		    $def_a <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	4379	4516	
==>0; $i < $n; $i++) {
		    my ($a, $def) = split(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a = qq!"$a"!;   # quote argument
		    $def_a <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1402	1527	
==>= shift;
    }
    else
    {
        return $self->{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/gets the transf <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1011	1136	
==>= shift;
    }
    else
    {
        return $self->{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/gets the transf <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756738	756888	
==>{\@1}}->vtable->assign_string_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757528	757678	
==>{\@1}}->vtable->assign_string_native(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/config/auto/byteorder.pm	32	193	
==>erl Foundation.
# $Id: /parrot/config/auto/byteorder.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/byteorder.pm - Native Byteorder

=head <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	1166	1307	
==>em.

=head1 TODO

The original design of the ops processing code was intended to be
a read-only representation of what was in a particular ops <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342933	343267	
==>=> "inline",
                  "CODE" => 401,
                  "ARGS" => [
                              "i",
                              "p",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 128 \"src/ops/io.ops\"\n  {{\@1}} = PIO_pioctl(inter <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	8306	8413	
==>as target of type $type\n";
  }    
  return sort keys %{ $this->{'accept_targets'} } if wantarray;
  return <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	13284	13434	
==>scan');

    my ($R_back, @R_body) = $self->rewrite($R, $advance);

    my @ops = (
                  $scan => @R_body,
                           aop( <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	61	173	
==>CC
# Language:	Parrot IMCC
# Maintainer:	Andy Bussey <andybussey@yahoo.co.uk>
# Last change:	2003 Aug 19

my $par <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9429	9538	
==>00-\x2C\x2F\x39\x3B-\x40\x5B-\x5E\x60\x7B-\x7F]/
            # Characters under 0x80 that aren't legal in an X <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10693	10802	
==>00-\x2C\x2F\x39\x3B-\x40\x5B-\x5E\x60\x7B-\x7F]/
            # Characters under 0x80 that aren't legal in an X <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	1491	1719	
==>1
    );
    genfile(
        'config/gen/makefiles/dynpmc_pl.in' => 'tools/build/dynpmc.pl',
        commentType                             => '#',
        replace_slashes                         => 0,
        conditioned_lines <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5681	5805	
==>RR "In state $stateno:\n";
#DBG>		$debug & 0x08
#DBG>	and	print STDERR "Stack:[".
#DBG>					 join(',',map { $$_[0] } @$sta <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5409	5530	
==>RR "In state $stateno:\n";
#DBG>		$debug & 0x08
#DBG>	and	print STDERR "Stack:[".
#DBG>					 join(',',map { $$_[0] } @$sta <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31138	31235	
==>port Parrot::Pmc2c qw( gen_ret );

=item C<implements($method)>

Always true for vtables.

=cut

s <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	39758	39855	
==>port Parrot::Pmc2c qw( gen_ret );

=item C<implements($method)>

Always true for vtables.

=cut

s <==
2	/Users/nnunley/parrot/config/init/defaults.pm	4426	4607	
==>ic_linking => 1,
        has_dynamic_linking => 0,

        # default behaviour for linking parrot to a static or shared libparrot
        parrot_is_shared => 0,

        #avoid a wa <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	13298	13440	
==>$$textref) = pos($$textref) || 0;
	unless ($$textref =~ m/\G($pre)/gc)
	{
		_failmsg qq{Did not match prefix /$pre/ at"} .
			    substr($$text <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	2895	3011	
==>$errors);
    print STDERR "Found " . scalar(keys %$typedefs) . " typedefs.\n";
    my $cmd = "indent -kr -nce -sc -c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661943	662032	
==>@1}} = PMC_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(interpreter, {{\@2}}, {{\@3 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662859	662948	
==>@1}} = PMC_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(interpreter, {{\@2}}, {{\@3 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017449	1017733	
==>=> 0,
                  "NAME" => "gmtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018373	1018657	
==>=> 0,
                  "NAME" => "gmtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
2	/Users/nnunley/parrot/config/auto/signal.pm	879	1008	
==>signal/test_1.in');
    eval { cc_build(); };
    unless ($@ || cc_run() !~ /ok/) {
        $conf->data->set(has___sighandler_t => <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2097	2342	
==>and $str .= "\b",      # backspace
                last;
            s/^\\f//
                and $str .= "\f",      # form feed
                last;
            s/^\\n//
                and $str .= "\n",      # new line
                l <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3611	3856	
==>and $str .= "\b",      # backspace
                last;
            s/^\\f//
                and $str .= "\f",      # form feed
                last;
            s/^\\n//
                and $str .= "\n",      # new line
                l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113715	113920	
==>RGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 204 \"src/ops/bit.ops\"\n  {{\@1}} <<= {{\@2}};\n  {{+=3}};\n <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9522	9640	
==>) = @_;
    return ("$dest = substr($src, $offset, $len);");
}

sub output_length {
    my ($self, $dest, $string) = @_ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	706	801	
==>version_tag_comment() happy.
our $VERSION = '1.0';

use Parrot::Docs::HTMLPage;

=item C<do_begi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	858	983	
==>lock,
    LEFT  => $left,
    RIGHT => $right
  }, $class;

  $block->push_content($self);

  return $self;
}

sub left  { ret <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	866	991	
==>lock,
    LEFT  => $left,
    RIGHT => $right
  }, $class;

  $block->push_content($self);

  return $self;
}

sub left  { ret <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5219	5342	
==>BG>			$tok.=		(ord($_) < 32 or ord($_) > 126)
#DBG>					?	sprintf('<%02X>',ord($_))
#DBG>					:	$_;
#DBG>		}
#DBG>		$tok <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4968	5087	
==>BG>			$tok.=		(ord($_) < 32 or ord($_) > 126)
#DBG>					?	sprintf('<%02X>',ord($_))
#DBG>					:	$_;
#DBG>		}
#DBG>		$tok <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	167161	167597	
==>i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 201,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 197 \"src/ops/cmp.ops\"\n  if (! mmd_dispatch_i_pp <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6569	6708	
==>G>				$debug & 0x04
#DBG>			and	print STDERR "Shift and go to state $act.\n";

					$$errstatus
				and	do {
					--$$errstatus;

#DB <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6263	6395	
==>G>				$debug & 0x04
#DBG>			and	print STDERR "Shift and go to state $act.\n";

					$$errstatus
				and	do {
					--$$errstatus;

#DB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943832	943928	
==>c/ops/string.ops\"\n  {{\@1}} = Parrot_charset_number_of_str(interpreter, {{\@2}});\n  {{+=3}};\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944621	944717	
==>c/ops/string.ops\"\n  {{\@1}} = Parrot_charset_number_of_str(interpreter, {{\@2}});\n  {{+=3}};\n <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	16047	16180	
==>package main;
    $x = new MyObj;
    print "\$x->count(5) = ", $x->count(5), "\n";
                            # prints '$x->count(5) <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	2672	2970	
==>URR] =~ /^(  screen | pset | preset | line | circle | draw |
			view | window | pmap | palette | paint |
			get | put | pcopy | beep | sound | view |
			width | resume | pos | poke | peek | rset |
			defint | const | declare | lprint | static	# Maybe these...
		)$/x) {
		print "WARNING: $syms[CURR] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938568	938751	
==>ops\"\n    {{\@1}} = string_join(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939458	939641	
==>ops\"\n    {{\@1}} = string_join(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	1172	1346	
==>"<", $filename
        or die "can't open '$filename' for reading";

    return $file;
}

sub extract_info {
    my ($file) = @_;
    
    my $spec = <$file>;
    die "Invalid <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	513	678	
==>{'total'} . (' ' x (10 - length($_->{'total'})));
	print $_->{'percent'} . "%\n"
}

my $done = 0;
my $total = 0;
map { $done += $_->{'done'}; $total += $_->{'to <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	8933	9117	
==>earerr    stdio.h
clock       time.h
clog        complex.h
clogf       complex.h
clogl       complex.h
conj        complex.h
conjf       complex.h
conjl       complex.h
copysign    math <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10347	10507	
==>t, $last);
        if (ref $_) {
            ($first, $last) = @$_;
        } else {
            ($first, $last) = ($_, $_);
        }
        push @ranges, [ or <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107189	107496	
==>@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108043	108350	
==>@3}};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor", <==
2	/Users/nnunley/parrot/Configure.pl	8520	8745	
==>igure out
how to build Parrot. The process is completely automated, unless you passed in
the `--ask' flag on the command line, in which case it'll prompt you for a few
pieces of info.

Since you're running this script, you obv <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029426	1029771	
==>" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1151,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 305 \"src/ops/sys.ops\"\n  opcode_t *next = {{^+2}};\n  if ({{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	38852	39024	
==>",
                              "i"
                            ],
                  "BODY" => "#line 720 \"src/ops/core.ops\"\n  if ({{\@1}} == EXCEPT_doomed)\n    _exit({ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	8	111	
==>ession.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subje <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	28372	28541	
==>eturn;
}

sub _op_quotient {
}

sub _op_remainder {
}

sub _op_modulo {
}

sub _op_gcd {
}

sub _op_lcm {
}

sub _op_numerator {
}

sub _op_denominator {
}

sub _op_floor <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33729	33827	
==>re = $srm->post_store($dest_reg);
		$pir .= "### post_store\n";
		$pir .= sub_meta($post_store, $mv <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12486	12677	
==>C<EE<lt>name_or_numE<gt>> sequence, this returns the number of
the Unicode character that this stands for.  For example,
C<e2char('sol')>, C<e2char('47')>,
C<e2char('0x2F')>, and C<e2char('057 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	15866	15959	
==>$parser->set_source( $some_filehandle_object );
 $parser->run;

Or:

 my $parser = SomePodProc <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	3732	3926	
==>tback) = @_;
    my $continue = $self->genlabel('after_test');
    my $rev_test = { "==" => "!=",
		     "!=" => "==",
		     "<" => ">=",
		     ">" => "<=",
		     "<=" => ">",
		     ">=" => " <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17402	17559	
==>'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 42
		ACTIONS => {
			'NAME' => 96
		}
	},
	{#Sta <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	10075	10179	
==>e = value($value);
    $DB::single = 1 unless length($value);
    return ".arg $value";
}

sub output_par <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	47600	47756	
==>],
	[#Rule 18
		 'stat', 7,
sub
#line 124 "Lua\lua51.yp"
{
            BuildIf( $_[0], $_[1], $_[2], $_[3], $_[6] );
        }
	],
	[#Rule 19
		 's <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8287	8433	
==>die "Too many arguments to popindex!";
    }

    $reg = value($reg);

    my @ops = ($self->popop . " <rx_tmp>, <rx_stack> # popindex");
    if ($ <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	13751	13864	
==>t_pointer_ref,
        $proto_type_ref) = @_;

    $other_decl ||= "";

    $other_decl .= join("\n    ", @{$temps <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10565	10683	
==>or}, undef ]);

    }

    #never reached
	croak("Error in driver logic. Please, report it as a BUG");

}#_Parse <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10093	10204	
==>or}, undef ]);

    }

    #never reached
	croak("Error in driver logic. Please, report it as a BUG");

}#_Parse <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	57291	57633	
==>b
#line 473 "Lua\lua51.yp"
{
            BuildCallMethod( $_[0], $_[1], $_[3], $_[4] );
        }
	],
	[#Rule 91
		 'args', 3,
sub
#line 480 "Lua\lua51.yp"
{
            $_[2];
        }
	],
	[#Rule 92
		 'args', 2,
sub
#line 484 "Lua\lua51.yp"
{
            [];
        }
	],
	[#Rule 93
		 'args', 1,
sub
#line 488 "L <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	14577	14848	
==>y ($min, $max, $greedy, $R) = @{ $op->{args} };
    my $ref = [ annotated($op, "multi_match($min .. $max)"), $R->reftree() ];
    $ref->[0] .= "?" unless $greedy;

    return $ref;
}

sub Regex::Ops::Tree::check::reftree {
    my $op = shift;
    return [ annotated($op, " <==
2	/Users/nnunley/parrot/config/auto/alignptrs.pm	1496	1617	
==>n't determine alignment!\n" unless defined $align;
        $conf->data->set(ptr_alignment => $align);
    }

    $self->se <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53179	53305	
==>$self)
				      or  _no_rule($code,$line);

				$item = new Parse::RecDescent::UncondReject($lookahead,$line,$code);
				$prod <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54888	55014	
==>$self)
				      or  _no_rule($code,$line);

				$item = new Parse::RecDescent::UncondReject($lookahead,$line,$code);
				$prod <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6589	6680	
==>tack_depth[${ITEMP0}] = stack_depth
    goto POST_BRANCH_switch_${CURIC}_LOOP
POST_BRANCH_sw <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4527	4618	
==>tack_depth[${ITEMP0}] = stack_depth
    goto POST_BRANCH_switch_${CURIC}_LOOP
POST_BRANCH_sw <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8900	9064	
==>foreach (32 .. 126)"
   32, ' ',
   33, '!',
   34, '"',
   35, '#',
   36, '$',
   37, '%',
   38, '&',
   39, "'", #!
   40, '(',
   41, ')',
   42, '*',
   43, '+ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	4684	5024	
==>q '"' ) {
                            $str .= '\"';
                        }
                        else {
                            $str .= $_;
                        }
                    }
                    $value = "\"$str\"";
                }
                elsif ( $type eq 'boolean' ) {
                    $value = <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	3623	3726	
==>t>.

=item C<does interface>

The class 'does' the given interfaces (the collection of methods
which the <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	1498	1727	
==>xit_code |= Parrot::Test::run_command($cmd, STDOUT => $pirate_out_f);
    $pirate_file = Parrot::Test::slurp_file($pirate_out_f);
    $pass = $self->{builder}->is_eq( $pirate_file, $py_file, $desc );
    $self->{builder}->diag("'$ <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	7671	7823	
==>hift iter_two 
    iter_one = new .Iterator, op1
    pos_one = 0 # parrot's 0 == APL's 1
loop_one:
    unless iter_one goto loop_one_end
    item_one = s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1422	1533	
==>file, $arg_token->line );
    $self->set_symbol($arg_name, $sym);
  }

  return $self;
}


#
# ACCESSORS:
#

sub <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	47994	48217	
==>(               # $5: stuff containing no start-codes or end-codes
          (?:
            [^A-Z\ >]+
            |
            (?:
              [A-Z](?!<)
            )
            |
            (?:
              \ (?!>) <==
2	/Users/nnunley/parrot/lib/Test/More.pm	3681	3777	
==>d
exit immediately with a zero (success).  See L<Test::Harness> for
details.

If you want to cont <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	12502	12830	
==>ress
        #   expr NEXT()        {{^+S}}  PC + S        Where S is op size
        #   expr ADDRESS(X)    {{^X}}   X             Absolute address
        #   OP_SIZE            {{^S}}   S             op size
        #
        #   HALT()             {{=0}}   PC' = 0       Halts run_ops loop, no resume
        #
        #   re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947160	947340	
==>LL, 1,\n\t\"charset '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948062	948242	
==>LL, 1,\n\t\"charset '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	34372	34511	
==>right or left) delimiter bracket I<at the same level of nesting>. Any
type of bracket not in the delimiter list is treated as an ordinary
ch <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39383	39482	
==>tput-file'      => \&_op_open_output_file,
  'close-input-port'      => \&_op_close_input_port,
  'c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517135	517431	
==>"i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 596,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 729 \"src/ops/math.ops <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	11570	11680	
==>y $restart = 0;

    foreach my $variant (expand_args(@$args))
    {
        my (@fixedargs)=split(/,/,$variant <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	21419	21605	
==>s);
    my $mmd_list = join(",\n        ", map {
        "{ $_->[0], $_->[1], $_->[2],
                    (funcptr_t) $_->[3] }" } @mmds);
    my $isa = join(" ", $classname, @{ $self->{ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	381	488	
==>More->import( $plan, @args );

    __PACKAGE__->_export_to_level( 2, __PACKAGE__ );
}

my $count;

foreach m <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	298	405	
==>More->import( $plan, @args );

    __PACKAGE__->_export_to_level( 2, __PACKAGE__ );
}

my $count;

foreach m <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	650	796	
==>ype . $self->{REG_COUNT}{$type}++;
}

sub temp_int { return shift->temp_reg('I'); }
sub temp_num { return shift->temp_reg('N'); }
sub temp_pmc { re <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1837	1962	
==>nfig{exe}
);

my $perl6 = File::Spec->catfile(
    $path_to_parrot, qw/ languages perl6 p6shell.pir /,
);


sub import {
    m <==
2	/Users/nnunley/parrot/lib/Test/More.pm	14613	14733	
==>d ok(0).

Use these very, very, very sparingly.

=cut

sub pass (;$) {
    $Test->ok(1, @_);
}

sub fail (;$) {
    $Test <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	7183	7339	
==>es
 * enable the define below
 * - the JITed function will be called first
 * - if it returns NULL, the hardcoded version will do the job
 */

#if defined(HA <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34037	34137	
==>($rule->{'class'} eq 'branch') {
		# Call pre_branch and append code that it generates.
		my $pre_bra <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7203	7301	
==>STEMP0}
${STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
PIR
	}

	return $pir;
}

sub post_load( <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5025	5123	
==>STEMP0}
${STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
PIR
	}

	return $pir;
}

sub post_load( <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	150	278	
==>te charset tables

=head1 SYNOPSIS

	perl tools/dev/gen_charset_tables.pl

=head1 DESCRIPTION

Generate character set tables.

=c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438993	439523	
==>":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 503,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "i"
                            ],
                  "BODY" => <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	24560	24745	
==>'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 77
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 3 <==
2	/Users/nnunley/parrot/lib/Test/More.pm	26192	26329	
==>my $var = '$FOO';
    my $did_arrow = 0;
    foreach my $entry (@Stack) {
        my $type = $entry->{type} || '';
        my $idx  = $ent <==
2	/Users/nnunley/parrot/config/inter/progs.pm	2885	2983	
==>s->get('linkflags'));
    $linkflags = prompt("And your linker?", $linkflags) if $ask;
    $conf->d <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	13067	13233	
==>ax: $content"
    );
  }
  
  return;
}

#~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`

{
my $m = -321;   # magic line number

sub _gen_e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64104	64266	
==>PARROT_JUMP_RELATIVE|PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT",
                  "NAME" => "runinterp",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684098	684449	
==>" => 0,
                  "NAME" => "setprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 768,
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684992	685343	
==>" => 0,
                  "NAME" => "setprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 769,
                  " <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	6140	6242	
==>own\n"
    if defined $Type && $Type ne '' && !exists $Type{$Type};

my $TypeLong = defined $Type && $T <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	12202	12296	
==>e
 * usage:
 *
 * interp->op_lib->op_code("set", 0)
 * interp->op_lib->op_code("set_i_i", 1)
 * <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1626	1911	
==>" => 0,
                  "NAME" => "end",
                  "FLAGS" => ":base_core,check_event",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 0,
                  "ARGS" => [],
                  "BODY" => "#line 50 \"src/ops/core <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26232	26351	
==>'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 81
		ACTIONS = <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	7619	7712	
==>ARE: ($parser, $text; $repeating, $_noactions, \@args)
sub ' . $namespace . '::' . $self->{"na <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19634	19744	
==>b
#line 117 "lib/Regex/Grammar.y"
{ return op('multi_match' => [ 0, -1, TRUE, $_[1] ]); }
	],
	[#Rule 14
		 'ex <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12023	12179	
==>ype => "STRING", value => qq{"$syms[CURR]"} };
		} elsif ($type[CURR] eq "PUN") {
			my $s=$syms[CURR];
			while(1) {
				feedme();
				if ($syms[CURR] eq ", <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	25744	25910	
==>e Parse::RecDescent::Token;

sub sethashname { $_[0]->{hashname} = '__PATTERN' . ++$_[1]->{patcount} . '__'; }

sub issubrule { undef }
sub isterminal { 1 }
sub descri <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	449	558	
==>ile----------------------------------------
{
#
# Module Parse::Yapp::Driver
#
# This module is part of t <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	438	542	
==>ile----------------------------------------
{
#
# Module Parse::Yapp::Driver
#
# This module is part of t <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	8349	8567	
==>.dylib',
             'libparrot_static' => 'libparrot.a',
             'libs' => '-lm -lgmp -lreadline',
             'link' => 'c++',
             'link_debug' => '',
             'link_dynamic' => ' ',
             ' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2034	2172	
==>eturn "$realvar += $arg1;";
}

sub output_sub {
    my ($self, $var, $amount) = @_;
    $amount = 1 if ! defined $amount;
    my $realvar = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	8268	8370	
==>bug >= $level;

  my $message = $format ? sprintf($format, @args) : '<no message>';

  printf STDERR "% <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	2190	2311	
==>he test
        $conf->data->set('libs',      $libs);
        $conf->data->set('ccflags',   $ccflags);
        $conf->data <==
2	/Users/nnunley/parrot/config/auto/readline.pm	1990	2111	
==>he test
        $conf->data->set('libs',      $libs);
        $conf->data->set('ccflags',   $ccflags);
        $conf->data <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	11252	11391	
==>le_ref},
            "t_$temp_num = (short)GET_NCI_I($reg_num);";
        return "t_$temp_num";
    };
    /c/ && do {
        push @{$temps <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7114	7222	
==>len,$code,@sempar,$semval);
            ($lhs,$len,$code)=@{$$rules[-$act]};

#DBG>			$debug & 0x04
#DBG> <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6783	6887	
==>len,$code,@sempar,$semval);
            ($lhs,$len,$code)=@{$$rules[-$act]};

#DBG>			$debug & 0x04
#DBG> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492755	492988	
==>/math.ops\"\n  {{\@1}} = intval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493516	493749	
==>/math.ops\"\n  {{\@1}} = intval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1295	1406	
==>$pir .= <<'PIR';
# Get type (so we can find register type).
dec ${ITEMP0}
${PTEMP0} = ${STYPES}[${ITEMP0}]

# As <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3005	3116	
==>$pir .= <<'PIR';
# Get type (so we can find register type).
dec ${ITEMP0}
${PTEMP0} = ${STYPES}[${ITEMP0}]

# As <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40103	40289	
==>he output file we are
generating.

Overrides the default implementation to direct all unknown methods to
the PMC in the first attribute slot.

=cut

sub body
{
    my ($self, $method, $li <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	31483	31601	
==>he output file we are
generating.

Overrides the default implementation to direct all unknown methods to
the thing refe <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	14338	14440	
==>a class element is an object of the corresponding class,
or of one of it's subclasses, or a reference t <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2262	2393	
==>try on compile
        $@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=sh <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2179	2300	
==>try on compile
        $@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $retval
}

sub YYData {
	my($self)=sh <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	270996	271189	
==>,
                              "i"
                            ],
                  "BODY" => "#line 871 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271842	272035	
==>,
                              "i"
                            ],
                  "BODY" => "#line 871 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@3}};\n  {{+=4}};\n",
                  " <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	47488	47670	
==>t(@_) if @_ and ref($_[0] || '') eq 'CODE';

  DEBUG and print "\n\n", '#' x 76,
   "\nAbout to parse source: {{\n$_[0]\n}}\n\n";
  
  
  my $parser = $class->new;
  $parser->hide_lin <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	38221	38358	
==>ame[ 0] =~ m/^\"/s
            and $section_name[-1] =~ m/\"$/s
            and !( # catch weird degenerate case of L<"> !
              @ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864138	864372	
==>rt(n == ENCODING_BYTES(interpreter, {{\@2}}));\n  }\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	865030	865264	
==>rt(n == ENCODING_BYTES(interpreter, {{\@2}}));\n  }\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	4372	4483	
==>o ?\n};
		} elsif ($syms[CURR] eq ";") {
			$promptcode.=qq{\tprint "?"\n};
		} else {
			die "Syntax error, exp <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3316	3451	
==>---

sub _constant {
  my ($self, $value) = @_;
  my $return;

  if ($value =~ /^[-+]?\d+$/) {
    $return = $self->_save_1 ('I');
    $ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	14942	15129	
==>rt
        }
        else {
            my $sub_meth_decl = $self->decl($classname, $method);
            my $sub_meth_decl_h = $self->decl($classname, $method, 1);
            $sub_meth_d <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	5113	5279	
==>rgv) {
    int dummy_var;
    Interp *     interpreter;
    struct PackFile *          pf;
    INTVAL i;
    PMC *userargv;

    interpreter = Parrot_new(NULL);
    if <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	11017	11117	
==>:croak "But you must accept \"$new_code\" codes -- it's a builtin!"
     if grep $new_code eq $_, @Kn <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2633	2749	
==>left->sax($handler);
    $self->right->sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2510	2626	
==>left->sax($handler);
    $self->right->sax($handler);
    $handler->end_element({ Name => 'op' });
    $handler->end_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	153	415	
==>R that can look up the built-in that's needed and return its PIR.

use strict;
use Getopt::Long;

# Grab parameters.
my ($input_file, $output_file);
GetOptions(
    "output=s"    => \$output_file
) or usage();
$input_file = shift @ARGV;
usage() if !$input_file || <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	35212	35430	
==>plicit'} = 'yes';
          $treelet->[$i][1]{'to'  } =
            Pod::Simple::LinkSection->new( $it ); # treelet!
          next;
        }
        # else fall thru...
      }
      
      

      # ...Uhoh, here's t <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	34634	34808	
==>plicit'} = 'yes';
          $treelet->[$i][1]{'to'  } =
            Pod::Simple::LinkSection->new( $it ); # treelet!

          next;
        }
        if($it =~ m/^[^\/\|,\$\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151012	151106	
==>=> "#line 112 \"src/ops/cmp.ops\"\n  if (0 == string_equal(interpreter,\n      {{\@1}}->vtable- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151990	152084	
==>=> "#line 112 \"src/ops/cmp.ops\"\n  if (0 == string_equal(interpreter,\n      {{\@1}}->vtable- <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	20174	20351	
==>$ret_type (*pointer)();
    $ret_type return_data;

    pointer = PMC_struct_val(self);
    return_data = ($ret_type)(*pointer)($params);
    $ret_reg  = return_data;
    REG_INT <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	312004	312180	
==>cktrace(interpreter);\n    {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeDumb.pm	923	1077	
==>re in horrible gimp territory, so we need to knock out
    #    # all the highbit things
    #    $x =
    #      pack 'C*',
    #      map {; ($_ < 128) ? <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12021	12113	
==>ce, this returns the string that
it stands for.  For example, C<e2char('sol')>, C<e2char('47' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	7425	7647	
==>\"src/ops/core.ops\"\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8061	8283	
==>\"src/ops/core.ops\"\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => " <==
2	/Users/nnunley/parrot/examples/benchmarks/addit.pl	732	858	
==>or (my $x = 500000; $x >= 0; --$x) {
    $result = varargs_adder(@args);
}
print "$result\n";

=head1 SEE ALSO

F<examples/benc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088032	1088388	
==>" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice",
                  "FLAGS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090986	1091342	
==>" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice",
                  "FLAGS" <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	3044	3166	
==>t valid_flag
    set num_groups, result["!GROUPS"]
    set match_num, 0
printLoop:
    ge match_num, num_groups, done
    b <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	4192	4423	
==>able} = 1;
                        last; # Stop tracing through jumps
                    } else {
                        die "untargeted label $dest->{label}";
                    }
                }
                last if $dest_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29164	29262	
==>'} =~ /\$\{DEST0\}/ || $rule->{'instruction'} =~ /\$\{DEST0\}/) {
			$need_dest = 1;
		} elsif ($ru <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1282	1406	
==>'',
			 YYRULES => 'ARRAY', YYSTATES => 'ARRAY', YYDEBUG => '');
#Mandatory parameters
my(@params)=('LEX','RULES','STATES' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1239	1360	
==>'',
			 YYRULES => 'ARRAY', YYSTATES => 'ARRAY', YYDEBUG => '');
#Mandatory parameters
my(@params)=('LEX','RULES','STATES' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93314	93430	
==>ops/bit.ops\"\n  string_bitwise_and(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94094	94210	
==>ops/bit.ops\"\n  string_bitwise_and(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	3027	3175	
==>ith exit code $exit_code."
                if $exit_code;
            $self->{builder}->diag($diag) if $diag;
        }

        # The generated <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2638	2767	
==>ith exit code $exit_code." if $exit_code;
            $self->{builder}->diag( $diag ) if $diag;
        }

        # The generated <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	3120	3212	
==>incompatible changes to Parrot that invalidate existing bytecode files. This is the new exper <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	3288	3404	
==>( $symb, $klass, $type, $subtype, $name ) = @_;
        $self->{symbol}  = $symb;
        $self->{class}   = $klass <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	18473	18585	
==>class creation.

Modified by Damian Conway, 1999-03-05, v0.58.

    Added handling of hash-like arg list to class <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	35926	36120	
==>w ResizablePMCArray\n";
        $pir .= "    c_params = new ResizableStringArray\n";
        $mv->{'PARAMS'} = 'c_params';
        push @localmv, 'PARAMS';

        # If we don't have an ARG0, we <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	21396	21539	
==>in(",\n        ", @meths);
    my $mmd_list = join(",\n        ", map {
        "{ $_->[0], $_->[1], $_->[2],
                    (funcptr_t) $_ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	44753	44883	
==>def;
  $self->{regs} = undef;

  return $self;
}

1;
__END__

=head1 NAME

Scheme::Generator - The Scheme code generator

=head1 SY <==
2	/Users/nnunley/parrot/config/gen/icu.pm	2533	2638	
==>ined $icuconfig;
        print "icushared='$icushared'\n" if defined $icushared;
        print "headers='$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1063937	1064235	
==>i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1188,
                  "ARGS" => [
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 253 \"src/ops/var.ops\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841167	841456	
==>"ord",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 954,
                  "ARGS" => <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	226	380	
==>110975Z coke  $

=head1 NAME

tools/build/dynpmc.pl - Build script for dynamic PMCs

=head1 DESCRIPTION

This file is generated by F<config/gen/makefiles.p <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	18	151	
==>e Pod::Simple::DumpAsXML;
$VERSION = '2.02';
use Pod::Simple ();
BEGIN {@ISA = ('Pod::Simple')}

use strict;

use Carp ();

BEGIN { *D <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	2715	2874	
==>iag( $diag ) if $diag;
           }
        }

        # The generated files are left in the t/* directories.
        # Let 'make clean' and 'svn:ignore' take c <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	1685	1792	
==>tions.pl'),
            $self->new_item('', 'tools/dev/lib_deps.pl'),
            $self->new_item('', 'tools <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	75	201	
==>lParserToken ();
@ISA = ('Pod::Simple::PullParserToken');
use strict;

sub new {  # Class->new(tagname, optional_attrhash);
  m <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	73	194	
==>lParserToken ();
@ISA = ('Pod::Simple::PullParserToken');
use strict;

sub new {  # Class->new(tagname);
  my $class = shi <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18375	18531	
==>arg1'   => $obj->[0],
        'arg2'   => $key->[0],
    );
    my $fct = [ $result, \@opcodes ];
    unshift @{$args}, $obj;
    return BuildCallFuncti <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632577	632677	
==>preter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633619	633719	
==>preter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n  {{\@1}} = pmc_n <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2240	2490	
==>['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P9', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            ' <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	2578	2760	
==>, key, pmc_id);
}

void
Parrot_register_core_pmcs(Interp *interp, PMC* registry)
{
END_C

    print OUT "    register_pmc(interp, registry, enum_class_$_);\n" foreach (@pmcs);
    pri <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Suffix.pm	363	518	
==>se qw(Jako::Construct::Expression);

sub new
{
  my $class = shift;
  my ($left, $op);

  return bless {
    LEFT  => $left,
    OP    => $op
  }, $class;
} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432433	432523	
==>"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	433448	433538	
==>"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pip(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629635	629739	
==>O_CLASS,\n            \"Class '%Ss' not found\", class);\n  {{\@1}} = pmc_new(interpreter, type);\n  {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438520	438658	
==>"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_ppp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LA <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	10685	10810	
==>->{declarations}->{$sym};
			}
			return $sym;
		} elsif ($type eq "STARTARG") {
			return;
		} else {
			die "Bad type for $s <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	20275	20400	
==>h code for that.
            if ($_->{'group'}) {
                $pir .= "    if cur_ic == 0x$_->{'code'} goto B2_BRANCH_$pre <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	22635	22747	
==>eturn 0;
}

=begin _private

=item B<_print>

    $Test->_print(@msgs);

Prints to the output() filehandle.

=end <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10355	10562	
==>ABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE|PARROT_JUMP_ENEXT|PARROT_JU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63944	64151	
==>ABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE|PARROT_JUMP_ENEXT|PARROT_JU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026557	1026810	
==>i(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1027314	1027567	
==>i(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10844	10983	
==>f($class)
    and $class=ref($class);

    my($self)=$class->SUPER::new( yyversion => '1.05',
                                  yystates <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11843	11978	
==>f($class)
    and $class=ref($class);

    my($self)=$class->SUPER::new( yyversion => '1.05',
                                  yystates <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32392	32536	
==>ction'}" =~ /\$\{STOREREG\}/) {
			$dest_reg = 1;
			$mv->{'STOREREG'} = 'storereg';
			push @localmv, 'STOREREG';
		} else {
			die "pir or inst <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296063	296166	
==>ops\"\n  if (&{{\@2}} == &{{\@3}})\n    {{\@1}} = 1;\n  else\n    {{\@1}} = mmd_dispatch_i_pp(interprete <==
2	/Users/nnunley/parrot/config/inter/progs.pm	3037	3146	
==>onf->data->get('ldflags');
    $ldflags =~ s/-libpath:\S+//g;   # XXX No idea why.
    $ldflags = integrate($l <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	7294	7425	
==>f->_ponder_paragraph_buffer();
         # by now it's safe to consider the previous paragraph as done.
                
        push <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	8260	8374	
==>f->_ponder_paragraph_buffer();
         # by now it's safe to consider the previous paragraph as done.
        push <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	10308	10415	
==>serted if arrays are empty to prevent msvc compiler errors
        my $arg_types  = "{ " . join(", ", scalar <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54126	54312	
==>mmon case
      or(
         m/^-?(?:[123456789]\d*|0)(?:\.\d+)?$/s
         and $_ ne '-0' # the strange case that that RE lets thru
      )
    ) { $_;
    } else {
      if( chr(65) eq <==
2	/Users/nnunley/parrot/config/init/hints.pm	398	517	
==>nfigure::Step::Base);

use Parrot::Configure::Step;

$description = 'Loading platform and local hints files';

@args = q <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1395	1524	
==>out_f, STDERR => $out_f, 
        );
        my $prog_output = Parrot::Test::slurp_file( "$out_f" );

        @_ = ( $prog_output, <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1311	1440	
==>out_f, STDERR => $out_f, 
        );
        my $prog_output = Parrot::Test::slurp_file( "$out_f" );

        @_ = ( $prog_output, <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	134	233	
==>(@EXPORT @ISA);

use Parrot::Config;

require Exporter;
require Parrot::Test;

@EXPORT = ( qw(output <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	51	150	
==>(@EXPORT @ISA);

use Parrot::Config;

require Exporter;
require Parrot::Test;

@EXPORT = ( qw(output <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	2588	2722	
==>(?:[^$del]*(?:(?:$del$del)[^$del]*)*)$del";
		}
		else
		{
			push @pat, "$del(?:[^$esc$del]*(?:$esc.[^$esc$del]*)*)$del";
		}
	}
	my $ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10068	10186	
==>id a bug in C<Pod::Simple::HTML>.

=cut

sub do_pod_link 
{
    my $self = shift;
    my $link = shift;
    my $to = $l <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	21501	21604	
==>About to start _remap_sequences on treelet from line %s.\n",
   $start_line || '[?]'
  ;
  DEBUG > 3 and <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	968	1138	
==>pe}{$_} == 1;
    last if $count<=0;
    push @temp,"$type$_";
    $self->{regs}->{$type}{$_}=1;
    $count--;
  }
  @temp;
}

sub _save_set {
  my $self = shift;
  my %re <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	11941	12038	
==>, initialized by default to C<()>.

With no argument, the accessor returns a reference to the
elem <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	13670	13891	
==>=> {
			'@2-1' => 60
		}
	},
	{#State 17
		ACTIONS => {
			'NAME' => 62,
			'FUNCTION' => 61
		},
		GOTOS => {
			'namelist' => 63
		}
	},
	{#State 18
		DEFAULT => 0
	},
	{#State 19
		DEFAULT => -4,
		GOT <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5298	5421	
==>($_))
#DBG>					:	$_;
#DBG>		}
#DBG>		$tok.='<';
#DBG>	};

	$$errstatus=0;
	$$nberror=0;
	($$token,$$value)=(undef,u <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5046	5161	
==>($_))
#DBG>					:	$_;
#DBG>		}
#DBG>		$tok.='<';
#DBG>	};

	$$errstatus=0;
	$$nberror=0;
	($$token,$$value)=(undef,u <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	5598	5875	
==>n-4 space indenting (contains tab(s))");
                } elsif (length($indent) != 4) {
                    error($file, $line, "apparent non-4 space indenting (" . length($indent) . " spaces)");
                }
            }
            $f = undef;
        }
    }
}


# ta <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	906	1013	
==>en.  And
if you want to get the "foo" out of the text-token, call C<< $token->text >>

=item $token->text(I< <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2744	2971	
==>l ? 'global' : 'local'),
    $self->access,
    $self->type,
    $self->name,
    $self->value,
    undef,           # No properties
    undef,           # No args
    $self->file,
    $self->line
  );

  $block->set_symbol($sel <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	2456	2605	
==>== 4) {
        $conf->data->set(float4_t => 'float');
    } else {
        $conf->data->set(float4_t => 'double');
        print <<'END';

Can't find <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	944	1054	
==>.pod'),
			$self->new_item('', 'docs/practical_notes.pod'),
			$self->new_item('', 'docs/parrot.pod'),
		),
		$ <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2794	2893	
==>-lreadline -lpthread -lm -L/opt/local/lib  -licuuc -licudata -lpthread -lm';
        $extraLibs =~ s <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	2589	2688	
==>-lreadline -lpthread -lm -L/opt/local/lib  -licuuc -licudata -lpthread -lm';
        $extraLibs =~ s <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	49196	49425	
==>],
	[#Rule 28
		 '@9-2', 0,
sub
#line 171 "Lua\lua51.yp"
{
            PushScopeF( $_[0] );
            PushScope( $_[0] );
        }
	],
	[#Rule 29
		 'stat', 5,
sub
#line 176 "Lua\lua51.yp"
{
            my $var = <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	43192	43304	
==>-Z]{1,8}\.[A-Z]{3})} /\L$1\E/; '

	extract_quotelike ' tr/\\\/\\\\/\\\//ds; '

the full Perl quotelike operations <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2512	2612	
==>t' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $self-> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2389	2489	
==>t' } });
    $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $self-> <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	47273	47416	
==>-------------------------------------------------------------------

sub _out {
  # For use in testing: Class->_out($source)
  #  returns the tr <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	3471	3748	
==>AR    enum_cclass_word
#define PUNCTUATION enum_cclass_punctuation
#define DIGIT       enum_cclass_numeric
END
foreach my $name ( sort keys %table ) {
    print "extern const PARROT_CCLASS_FLAGS ${table{$name}}[256];\n";
}
print "#endif /* PARROT_CHARSET_TABLES_H_GUARD */\n";
c <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7951	8115	
==>def;

            splice(@$stack,-$len,$len);

                $$check eq 'ACCEPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Accep <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7595	7751	
==>def;

            splice(@$stack,-$len,$len);

                $$check eq 'ACCEPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Accep <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1573	1665	
==>AL_ERROR("Type is not a Jako::Construct::Type instance!")
    unless UNIVERSAL::isa($type, "J <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1421	1513	
==>AL_ERROR("Type is not a Jako::Construct::Type instance!")
    unless UNIVERSAL::isa($type, "J <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	1828	1993	
==>',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P6', 'P16[0]'],
  ['',            'bsr', 'apply_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804241	804329	
==>e 472 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_pmc_keyed(interpreter, {{\@1}}, {{\@2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805142	805230	
==>e 472 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_pmc_keyed(interpreter, {{\@1}}, {{\@2 <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9374	9494	
==>ot/dynext.h"
EOC
    foreach my $parents ($self->{class}, @{ $self->{parents} } ) {
	my $name = lc $parents;
	$cout .= << <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83242	83617	
==>LAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 104,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "B <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8059	8160	
==>h result, not_found

    goto loop_two 
loop_two_end:

    .return (result)
.end

.sub unicode:"dyadic <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814156	814387	
==>ME" => "null",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 919, <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	5431	5611	
==>foreach (sort keys %{$external_calls{$_}}) {
            print "        $_\n";
        }
    }

    print "\nThe following non-ansi system includes are used:\n";
    foreach my $inc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	208368	208460	
==>{\@1}}->vtable->get_number(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	209309	209401	
==>{\@1}}->vtable->get_number(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{ <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	6083	6217	
==>ate_tests()
##
## Run CVS update.
##
sub update_tests {
    print "Updating tests from CVS\n";
    system "(cd $DIR && cvs -Q up *.test <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	43797	43918	
==>nknown E content in E<$content>" );
        $replacer = "E<$content>"; # better than nothing
      } elsif($charnum >= 255 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105718	1106011	
==>P" => 0,
                  "NAME" => "getclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 12 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106693	1106986	
==>P" => 0,
                  "NAME" => "getclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 12 <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	11708	11914	
==>tax:

  cmp_ok('test', &infix:<gt>, 'me', '... testing gt on two strings');

However the `&infix:<gt>` is currently not implemented, so you will have to wait
a little while. Until then, you can just write yo <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	23081	23214	
==>cmt) = @_;
    my @args;
    if ($make_f) {
	$make_f = 0;
	print <<EOC;
	# make_f \t$cmt
EOC
	# pop @stack;
	return;
    }
    my $fun <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	5263	5388	
==>aining one or more C<op_jump_t> values joined with
C<|> (see F<include/parrot/op.h>). This indicates if and how an op
may jump <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2425	2527	
==>ag is necessary to help gcov locate it's basic block (.bb) files.
    my $cmd = "gcov -f -b -o $dirname <==
2	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	94	228	
==>t VERSION => 0.4;
sub debug($);

our $compress = sub { return };

GetOptions(
  "smokeserv=s" =>
    \(my $smokeserv = "http://smoke.pa <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	812	906	
==>The library directory. Defaults to '/usr/lib'.

=item C<includedir>

The header directory. Defa <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	1041	1135	
==>The library directory. Defaults to '/usr/lib'.

=item C<includedir>

The header directory. Defa <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2030	2139	
==>rser->can('end_head1');

If Pod::Simple sends an event where the element name has a dash,
period, or colon, th <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	7645	7778	
==>rr ) {
        $err = "&STDOUT";
    }

    local *OLDOUT if $out;
    local *OLDERR if $err;

    # Save the old filehandles; we must <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7697	7829	
==>rr) {
        $err = "&STDOUT";
    }

    local *OLDOUT if $out;
    local *OLDERR if $err;

    # Save the old filehandles; we must <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451623	451850	
==>=> "#line 225 \"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	452362	452589	
==>=> "#line 225 \"src/ops/math.ops\"\n  {{\@1}} += {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517875	518182	
==>i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 597,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 734 \"src/ops/math.ops\"\n  {{\@1}} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	25487	25706	
==>),
                        aop('goto', [ $lastback ]),
              $rfail => aop('pushint', [ 0 ]),
               $next =>
              );

    return ($back, @ops);
}

# R?? ->       pushindex
#              goto ne <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8977	9192	
==>R "Forced Error recovery.\n";

            $$check='';

        };

        #Error
            $$errstatus
        or   do {

            $$errstatus = 1;
            &$error($self);
                $$err <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8574	8777	
==>R "Forced Error recovery.\n";

            $$check='';

        };

        #Error
            $$errstatus
        or   do {

            $$errstatus = 1;
            &$error($self);
                $$err <==
2	/Users/nnunley/parrot/examples/benchmarks/shared_ref.pl	1	143	
==>! perl -w
# Copyright (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/examples/benchmarks/shared_ref.pl 19601 2006-05-30T13:32:26.641316Z co <==
2	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	1	119	
==>! perl -w
# Copyright (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/examples/benchmarks/stress1.pl 19601 2006-05-3 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	5991	6221	
==>elative_path($file),
                    esc($text));
        }
        else
        {
            print {$self->{'output_fh'}} 
                $self->{'Tagmap'}{$tagname} . esc($text);
        }
    }
    else
    {
        $self <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7121	7258	
==>f->_new_pair;

  $self->_add_inst('', 'set', [$head, $copy]);

  # maybe ensure that $type is a pair here
  my $temp = $self->_save_1('P') <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	46180	46337	
==>r) unless $lines;
	$self->{_check}{itempos} = ($grammar =~ /\@itempos\b|\$itempos\s*\[/)
		unless $self->{_check}{itempos};
	for (qw(thisoffset thiscolumn pre <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	7994	8139	
==>chable};
                $str .= "$_->{label}->{label}: ";
            }
            $str .= $_->{code}{name} . " " . join(", ", map { ref($_) ? $ <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	2925	3033	
==>ndContext="#stay">
          <RegExpr attribute="Label" context="#stay" String="[_\\w]+\\:" />
          <key <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	1857	2246	
==>tType                             => '#',
        replace_slashes                         => 0,
        conditioned_lines                       => 1
    );
    genfile(
        'config/gen/makefiles/past.in' => 'compilers/past/Makefile',
        commentType                   => '#',
        replace_slashes               => 1
    );
    genfile(
        'config/gen/makefiles/pge.in' => 'c <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	1599	1894	
==>tType                             => '#',
        replace_slashes                         => 0,
        conditioned_lines                       => 1
    );
	genfile(
        'config/gen/makefiles/dynoplibs_pl.in' => 'tools/build/dynoplibs.pl',
        commentType                             => ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572920	573015	
==>ops/object.ops\"\n  PMC *name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_na <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573830	573925	
==>ops/object.ops\"\n  PMC *name = pmc_new(interpreter, enum_class_String);\n  VTABLE_set_string_na <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	171	290	
==>use Data::Dumper;

my $ind = 0;
sub _build_tree {
  my ($tokens,$count) = @_;
  my $temp   = {};

  die "EOF reached" if <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	21859	21968	
==>INT => 'I0', FLO => 'N0', STRING => 'S0' );
			if ($_->[2] ne "USER") {
				print CODE<<NOTUSER;
	new P2, .Per <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	1809	1912	
==>= qw(Regex::Ops::Tree);
@Regex::Ops::Tree::check::ISA        = qw(Regex::Ops::Tree);

@Regex::Ops::Tree: <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9259	9370	
==>) {
      # A good-enough check that it's good as an XML Name symbol:
      Carp::croak "\"$new_code\" isn't a v <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10523	10634	
==>) {
      # A good-enough check that it's good as an XML Name symbol:
      Carp::croak "\"$new_code\" isn't a v <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	12500	12648	
==>ray reference
as the sole argument, this causes an assignment of the whole array element.
The object reference is returned.

=item Hash (C<'%'> or C< <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599998	600091	
==>DY" => "#line 363 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601074	601167	
==>DY" => "#line 363 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(interpreter, {{ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	3027	3314	
==>) {
                # Validate it.
                validate_rule($rule);

                # Save it.
                push @rules, $rule;
            }

            # Create new rule structure.
            $rule = {
                name    => $name
            };
        }

        # Is i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824487	824596	
==>TACK_ENTRY_STRING) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825558	825667	
==>TACK_ENTRY_STRING) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1} <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	2155	2264	
==>written to. It will be applied before any
metadata tags.

Example: if this line is in the MANIFEST.generated f <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20385	20526	
==>st($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;'
					      unless $::RD_NO_TRACE;
	$code .=
'
		$_matched = 1;
		la <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4029	4276	
==>horizontal tab
                last;
            s/^\\v//
                and $str .= "\x0b",    # vertical tab
                last;
            s/^\\([0-9]{1,3})//
                and $str .= chr $1, 
                last;

            s <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2515	2761	
==>horizontal tab
                last;
            s/^\\v//
                and $str .= "\x0b",    # vertical tab
                last;
            s/^\\([0-9]{1,3})//
                and $str .= chr $1,
                last;

            s <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	5881	6002	
==>o
    STDERR    filehandle to redirect STDERR to
    CD        directory to run the command in

For example:

    # equiva <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	198	306	
==>: set ro:
** !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
**
** This file is generated automatically from 'vtabl <==
2	/Users/nnunley/parrot/tools/build/vtable_h.pl	578	686	
==>: set ro:
** !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
**
** This file is generated automatically from 'vtabl <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	3928	4130	
==>358979323846"
                                      # PI

    $P0[unicode:"monadic:\u2373"]  =  <<"END_PIR"            # index of
    #XXX hack all the _1's need the same, generated unique number.
    $P <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	47	147	
==>efore rendering it out
# as List ops. Most optimizations should go here, since the List form
# is rea <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5239	5365	
==>_) < 32 or ord($_) > 126)
#DBG>					?	sprintf('<%02X>',ord($_))
#DBG>					:	$_;
#DBG>		}
#DBG>		$tok.='<';
#DBG>	};

	$$ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4988	5107	
==>_) < 32 or ord($_) > 126)
#DBG>					?	sprintf('<%02X>',ord($_))
#DBG>					:	$_;
#DBG>		}
#DBG>		$tok.='<';
#DBG>	};

	$$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	503045	503274	
==>8,
                  "ARGS" => [
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 626 \"src/ops/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n <==
2	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	65	190	
==>b/Parrot/BuildUtil.pm 20321 2006-06-20T20:02:00.179448Z bernhard  $

=head1 NAME

lib/Parrot/BuildUtil.pm - Utilities for buil <==
2	/Users/nnunley/parrot/config/init/defaults.pm	1991	2208	
==>Perl5's Configure doesn't distinguish linking from loading, so
        # make a reasonable guess at defaults.
        link      => $Config{cc},
        linkflags => $Config{ldflags},

        # Linker Flags to have thi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19475	19564	
==>ako::Construct::Expression::Value::Identifier->new($block, $self->require_ident);

      $ <==
2	/Users/nnunley/parrot/languages/converter.pl	1559	1760	
==>.= $item[1][0] if defined $item[1][0];
		  $return .= " | $item[3]" . ::modifier($item[4])
		}
		| terminal '...' production# mod(?)
#		{[@item]}
		{ my $lhs = ::strip_quotes($item[1]);
		  my $rhs = :: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	905776	906288	
==>FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1021,
                  "ARGS" => [
                              "s",
                              "p",
                              "ic",
                              "i"
                            ] <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2396	2494	
==>@todo)>

Runs the target string against the Perl 6 pattern, passing the test
if the output produced <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3830	3928	
==>@todo)>

Runs the target string against the Perl 6 pattern, passing the test
if the output produced <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2000	2104	
==>_bullet  { --$_[0]{'Indent'} }
sub   end_over_number  { --$_[0]{'Indent'} }
sub   end_over_text    { --$_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1568	1672	
==>_bullet  { --$_[0]{'Indent'} }
sub   end_over_number  { --$_[0]{'Indent'} }
sub   end_over_text    { --$_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	793289	793457	
==>,
                              "i"
                            ],
                  "BODY" => "#line 457 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(int <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	794194	794362	
==>,
                              "i"
                            ],
                  "BODY" => "#line 457 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_integer_keyed(int <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	5777	5928	
==>>{revision} ||
          lc $a->{osname}     cmp lc $b->{osname}     ||
          $b->{timestamp}[0]  <=> $a->{timestamp}[0]
        } @{ $branches{$bra <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6641	6745	
==>p $n!;
}

sub output_atend {
    my ($self, $failLabel) = @_;
    my $fail = $self->output_label_use($fai <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6285	6389	
==>p $n!;
}

sub output_atend {
    my ($self, $failLabel) = @_;
    my $fail = $self->output_label_use($fai <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12338	12471	
==>G", value=> qq{"$s"}};
					last OUTDATA;
				}
				$s.=$syms[CURR];
			}
		} else {
			die "Cannot use $type[CURR]/$syms[CURR] in DAT <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1711	1921	
==>ext   => '.dll',
            a          => '.lib',
            o          => '.obj',
            cc_o_out   => '-Fo',
            cc_exe_out => '-out:',
            cc_ldflags => '/link',

            # ZI messe <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3590	3800	
==>ext   => '.dll',
            a          => '.lib',
            o          => '.obj',
            cc_o_out   => '-Fo',
            cc_exe_out => '-out:',
            cc_ldflags => '/link',

            # ZI messe <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	34148	34258	
==>ecified is not significant.

A "balanced-bracket-delimited substring" is a substring bounded by
matched bracket <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2296	2425	
==>,
	'txt' => 'Text file',
	'urm' => 'URM code',
	'vim' => 'Vim file',
	'xml' => 'XML file',
	'xs' => 'XS code',
	'y' => 'Yacc file' <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24771	24868	
==>al assignment.  Type of course will be a float.
	($result, $type, @code)=EXPRESSION({ lhs => 1, as <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2096	2229	
==>ated to this instruction. If we do then we should also
    # clear up any lazy moves.
	my $pir .= <<'PIR';
${PTEMP0} = prop_type_state <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64720	64811	
==>(new_interp, PARROT_EXTERN_CODE_FLAG);\n  new_interp->code = interpreter->code;\n  runops(ne <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65671	65762	
==>(new_interp, PARROT_EXTERN_CODE_FLAG);\n  new_interp->code = interpreter->code;\n  runops(ne <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	39298	39456	
==>s only the first paragraph
after the tag (up to the first line that is either empty or contains
only whitespace characters).
If the string is "", the the defau <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	245685	245885	
==>,
                              "p"
                            ],
                  "BODY" => "#line 638 \"src/ops/cmp.ops\"\n  {{\@1}} = mmd_dispatch_i_pp(interpreter, {{\@2}}, {{\@3}}, MMD_STRCMP);\ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2276	2401	
==>_sym->type; 
    }
    else {
      $actual_arg_type = $args[$i]->type;
    }

    $self->INTERNAL_ERROR("Can't determine type <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1976	2101	
==>_sym->type; 
    }
    else {
      $actual_arg_type = $args[$i]->type;
    }

    $self->INTERNAL_ERROR("Can't determine type <==
2	/Users/nnunley/parrot/tools/docs/write_docs.pl	516	605	
==>delete);

my $docs = Parrot::Docs::Section::Parrot->new;

$docs->write_docs($silent, $dele <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16663	16759	
==>ape things very cautiously:
        $x =~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10111	10203	
==>ape things very cautiously:
    $x =~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\ <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5180	5316	
==>ortant on
        # some platforms
        if ($^O eq 'hpux' or $^O eq 'cygwin') {
            chmod 0755, "$dest/$_$LOAD_EXT";
        } <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5391	5527	
==>ortant on
        # some platforms
        if ($^O eq 'hpux' or $^O eq 'cygwin') {
            chmod 0755, "$dest/$_$LOAD_EXT";
        } <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4475	4635	
==>{
                	s/^#DBG>//;
                	push(@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note that fo <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4252	4401	
==>{
                	s/^#DBG>//;
                	push(@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note that fo <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	101	221	
==>== 2) {
    $value = $_[1];
  } elsif(@_ == 3) {
    ($variable, $value) = @_[1,2];
    
    ($variable, $value) = ($valu <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1085	1272	
==>,

    DEBUG => 1,
    FILE  => defined $value ? $value->file : undef, # TODO: YUCK!
    LINE  => defined $value ? $value->line : undef, # TODO: YUCK!
  }, $class;

  $block->push_content( <==
2	/Users/nnunley/parrot/config/auto/jit.pm	554	705	
==>y';
our @args        = qw(jitcapable miniparrot execcapable verbose);

sub runstep
{
    my ($self, $conf) = @_;

    if ($conf->options->get('miniparro <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12188	12325	
==>SS and images somehow.
        
        return $href if defined $href;
    }
    
    return 'TODO';
}

=item C<href_for_perl_module($modu <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	4370	4508	
==>nd_gen' in $f\n";
        }
        close(F);
    }
    $conf->data->set(TEMP_gen_pasm_includes => join("\t\\\n\t", @generated));

    retu <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8633	8726	
==>d,$a,$b,$c,$_[13],12,0x8b44f7af,/* 10 */
FF,$c,$d,$a,$b,$_[14],17,0xffff5bb1,/* 11 */
FF,$b,$c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627403	627495	
==>opies the registers. */\n  {{\@1}} = pmc_new_noinit(interpreter, {{\@2}});\n  {{\@1}}->vtable <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628547	628639	
==>opies the registers. */\n  {{\@1}} = pmc_new_noinit(interpreter, {{\@2}});\n  {{\@1}}->vtable <==
2	/Users/nnunley/parrot/config/auto/funcptr.pm	489	599	
==>ion pointer casts';

@args = qw(verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $jitcapable = $con <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36088	36284	
==>=> 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -71
	},
	{#State 139
		ACTIONS => {
			"-" => 72,
			"<" => 74,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			"<=" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913842	914046	
==>c",
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_index(interpr <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	1312	1504	
==>have a plan.


=over 4

=item B<ok>

  ok( $foo eq $bar, $name );
  ok( $foo eq $bar );

ok() is given an expression (in this case C<$foo eq $bar>).  If it's
true, the test passed.  If it's fal <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	17	135	
==>ge Pod::Simple::Methody;
use strict;
use Pod::Simple ();
use vars qw(@ISA $VERSION);
$VERSION = '2.02';
@ISA = ('Pod::S <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	2048	2294	
==>t '    ';
    my $i;
    for (@c) {
        printf "0x%02x", ord($_);
        ++$i;
        print ', ', if ($i < scalar(@c));
        print "\n    " unless $i % 8;
    }
    print "\n";
}

print << "EOF";
}; /* parrot_config */

void
Parrot_set_co <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	31888	32029	
==>r'} =~ /\$\{STACK0\}/ &&
		    $rule->{'pir'} =~ /\$\{STOREREG\}/) {
			die "pir must use one of \${STACK0} or \${STOREREG} in rule " .
				"$ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	4803	4936	
==>'   , 243,
 'ocirc'    , 244,
 'otilde'   , 245,
 'ouml'     , 246,
 'divide'   , 247,
 'oslash'   , 248,
 'ugrave'   , 249,
 'uacute' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033308	1033407	
==>t lex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n    if (PMC_IS_NULL(lex_pad)) {\n\treal_ex <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034406	1034505	
==>t lex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n    if (PMC_IS_NULL(lex_pad)) {\n\treal_ex <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	6429	6520	
==>s::CGP>

=item C<Parrot::OpTrans::CPrederef>

=item C<Parrot::OpTrans::CSwitch>

=item C<Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818208	818345	
==>ds cached base pointers, and works with\n   * arbitrary branch opcodes too. While it's a bit of overkill,\n   * we don't have an opcode an <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	19128	19311	
==>', 'P'];   # simulate the DUP_TOP
    print <<EOC;
	# except compare '$l' <=> $r->[1]
	$cmp = iseq $l, $r->[1]
EOC
    push @stack, [-1, $cmp, 'P'];
}

sub COMPARE_OP
{
    my ($n, $c, <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	38241	38450	
==>n the tagged text.

For example, to extract
an HTML link (which should not contain nested links) use:

	extract_tagged($text, '<A>', '</A>', undef, {reject => ['<A>']} );

=item C<ignore =E<gt> $listref>

The l <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11820	11965	
==>$self = shift;
    my $to = shift;
    my $section = shift;
    
    if ( $to =~ /^Parrot::/o )
    {
        my $href = $self->href_for_perl_modu <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	76053	76186	
==>);
	$errortext   = $_[0];
	$errorprefix = "ERROR" .  ($_[1] ? " (line $_[1])" : "");
	$errortext =~ s/\s+/ /g;
	print ERROR "\n" if _v <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	12999	13093	
==>\n  opcode_t * loc;\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13843	13937	
==>\n  opcode_t * loc;\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->control_stack, {{^+2 <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	345	455	
==>IN {
    use Config;
    # Load threads::shared when threads are turned on
    if( $] >= 5.008 && $Config{useit <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1615	1713	
==>code.
${INS} = concat ${STACK$register_num}
${INS} = concat " = pop s\n"
PIR
		$pir =~ s/\$register <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3325	3423	
==>code.
${INS} = concat ${STACK$register_num}
${INS} = concat " = pop s\n"
PIR
		$pir =~ s/\$register <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	8760	8879	
==>_convert_arg(interpreter, st);
    Parrot_store_arg(interpreter, st);
}

static void
set_nci_N(Interp *interpreter, stru <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090244	1090686	
==>E" => "slice",
                  "FLAGS" => ":python",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1209,
                  "ARGS" => [
                              "p",
                              "p" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1091303	1091643	
==>E" => "slice",
                  "FLAGS" => ":python",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 12 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7282	7387	
==>h   "
print ">";ltrim$(a$)
print rtrim$(a$);"<"
' A's and -'s
print string$(10,75-10)
print string$(20, "- <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19011	19116	
==>h   "
print ">";ltrim$(a$)
print rtrim$(a$);"<"
' A's and -'s
print string$(10,75-10)
print string$(20, "- <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	3137	3295	
==>> '/usr/share/doc',
                'dry-run'   => 0,
              );

my @manifests;
foreach (@ARGV) {
    if (/^--([^=]+)=(.*)/) {
        $options{$1} = $2 <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	9241	9387	
==>_convert_arg(interpreter, st);
    Parrot_store_arg(interpreter, st);
}

static void
set_nci_P(Interp *interpreter, struct call_state *st, PMC* val <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	4214	4372	
==>a/Makefile',
        commentType                    => '#',
        replace_slashes                => 1
    );
    genfile(
        'languages/HQ9plus/config/m <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	5572	5821	
==>d utility functions.', 
                'pairs' => ['misc'],
                'sources' => ['spf_render', 'spf_vtable', 'utils']
            ),
        ),
        $self->new_group(
            'Multi-methods', 
            '',
            $self->c_pai <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	47484	47621	
==>ight
delimiter, or trailing modifiers).

=back

However, the matching position of the input variable would be set to
"exit;" (i.e. I<after <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	10524	10656	
==>dd_checks() to put the (hopefully fewer) checks back in.
sub disable_implicit_checks {
    my ($self, $t, $ctx) = @_;
    return $sel <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	7845	7949	
==>lf, $trans) = @_;

    if ($self->flags =~ /:pic/ &&
	!(ref($trans) eq 'Parrot::OpTrans::CGP' ||
	  ref($ <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5350	5513	
==>aces */
    "",     /* space-separated list of classes */
    "",     /* class */
    "",     /* mro */

    /* Vtable Functions */
EOM
    for my $entry (@{$vtable <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	292	393	
==>st tests => 8;

Write individual tests like this:

    pasm_output_is(<<'CODE', <<'OUTPUT', "descripti <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1113	1213	
==>urrent stack types array size.
${ITEMP0} = elements ${STYPES}
PIR

	# Do code for each pop. Need to s <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2823	2923	
==>urrent stack types array size.
${ITEMP0} = elements ${STYPES}
PIR

	# Do code for each pop. Need to s <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	36236	36334	
==>nt text bit \"$ell_content[$j]\" for a '|'.\n";

        if($ell_content[$j] =~ m/^([^\|]*)\|(.*)$/ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3213	3311	
==>s) {
		print CODE qq{\t\tfind_global _GLOBALS, "COMMON"\n};
		foreach(@saves) {
			print CODE qq{\t <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1122	1229	
==>F";
/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically b <==
2	/Users/nnunley/parrot/tools/build/revision_c.pl	496	603	
==>F";
/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically b <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8484	8582	
==>p 4
  print c$(i);tab$(12);c$(i+1);tab$(22);c$(i+2);tab$(32);c$(i+3)
next
print
data "ABANDON","CHA <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21348	21446	
==>p 4
  print c$(i);tab$(12);c$(i+1);tab$(22);c$(i+2);tab$(32);c$(i+3)
next
print
data "ABANDON","CHA <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	27154	27293	
==>a Friedl)
# that matches a substring delimited by any of the specified characters
# (in this case: any type of quote or a slash)

	$patstrin <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	327	470	
==>() { 0xef_cd_ab_89 }
sub C() { 0x98_ba_dc_fe }
sub D() { 0x10_32_54_76 }

# for internal use
sub MAX() { 0xFFFFFFFF }

# padd a message to a mul <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	3588	3743	
==>t;
    my $cout = "";
    $cout .= <<"EOC";
#define PARROT_IN_EXTENSION
#include "parrot/parrot.h"
#include "parrot/extend.h"
#include "parrot/dynext.h"
EOC <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019060	1019369	
==>ffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "localtime",
                  "FLAGS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019990	1020299	
==>ffer, 26);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "localtime",
                  "FLAGS" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	701	914	
==>');

  my $name = $ident->value;

  my $self = bless {
    BLOCK => $block,

    NAME  => $name,
    ARGS  => [ @args ],

    DEBUG => 1,
    LINE  => $ident->line,
    FILE  => $ident->file
  }, $class;

  $block- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2040	2143	
==>t;
  my ($handler) = @_;

  if (not $self->prefix and $self->peer and $self->peer->prefix) {
    $self-> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1917	2020	
==>t;
  my ($handler) = @_;

  if (not $self->prefix and $self->peer and $self->peer->prefix) {
    $self-> <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	13185	13344	
==>e0;\red0\green0\blue255;}
END
}


sub doc_info {
   my $self = $_[0];

   my $class = ref($self) || $self;

   my $tag = __PACKAGE__ . ' ' . $VERSION;
   
   un <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	32340	32455	
==>e

=cut

$SIG{__DIE__} = sub {
    # We don't want to muck with death in an eval, but $^S isn't
    # totally reliab <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	2284	2392	
==>l'),
            $self->new_item('', 'tools/build/parrot_config_c.pl'),
            $self->new_item('', 'tool <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	6034	6152	
==>e are files with no suffix then the empty string will
be included in this list.

=cut

sub file_suffixes
{
    my $self <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4057	4258	
==>xt;
        }
        
        if ($function) {
            if (/Calls (.*) : (.*)/) {                                
                # calling another function within parrot.
                $internal <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1268	1463	
==>:compile($compiler);
      $compiler->outdent;
      $compiler->emit(".endnamespace ${namespace}");
    }
  }
  elsif ($kind eq 'continue') {
    $compiler->emit("${prefix}_CONT:");

    if ($self <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	672	770	
==>:compile($compiler);
    $compiler->outdent;
    $compiler->emit(".endnamespace ${namespace}");
  } <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	12817	12931	
==>ned $got || defined $dont_expect;

        $self->ok($test, $name);
        $self->_cmp_diag($got, 'ne', $dont_expe <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1281	1367	
==>p*, INTVAL*, void **);\n\n\n\n/*\n** pmc.ops\n*/\n\n\n\n/*\n** python.ops\n*/\n\n/* XXX <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	2342	2483	
==>) {
	    push @equivs, $stmt;
	} else {
	    if (@equivs) {
		my $megalabel = $self->combineLabels(@equivs);
		$_->{label} = $megalabel foreac <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7495	7621	
==>n i gosub oats, peas, beans
next i
print
end
100 print "100!"
    goto FIN
200 print "200!"
    goto FIN
300 print "300!"
    g <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19778	19904	
==>n i gosub oats, peas, beans
next i
print
end
100 print "100!"
    goto FIN
200 print "200!"
    goto FIN
300 print "300!"
    g <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	21420	21563	
==>ected.

=over 4

=item B<diag>

    $Test->diag(@msgs);

Prints out the given @msgs.  Like C<print>, arguments are simply
appended together.

No <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	6795	6942	
==>[NEXT] eq "=" and exists $functions{$syms[CURR]}) {
	#	# Assignment statement
	#	my $var=$syms[CURR];
	#	feedme;  # Get the =
	#	#print "Going to ex <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	31225	31486	
==>lf = shift;

    _whoa($self->{Curr_Test} < 0,  'Says here you ran a negative number of tests!');
    _whoa(!$self->{Have_Plan} and $self->{Curr_Test}, 
          'Somehow your tests ran without a plan!');
    _whoa($self->{Curr_Test} != @{ $self->{Test_Results} <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	638	764	
==>:Config;
use Parrot::Key;

my $trans = Parrot::OpTrans::Compiled->new;

use Data::Dumper;
$Data::Dumper::Useqq  = 1;
$Data::Dum <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	1919	2198	
==>op = "Parrot_exec_cpcf_op";
    $restart_op = "Parrot_exec_restart_op";
    %argmaps = (
        op  => "cur_opcode[%ld]",

        i   => "IREG(%ld)",
        n   => "NREG(%ld)",
        p   => "PREG(%ld)",
        s   => "SREG(%ld)",
        k   => "PREG(%ld)",
        ki  => " <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	1238	1346	
==>he name
of the original source F<*.pmc> file.

=cut

sub dont_edit {
    my ($pmcfile) = @_;

    return <<"E <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	2535	2640	
==>head2 BLOCK->set_symbol(NAME, VALUE)

Set a symbol in this block's symbol table. If the symbol already exi <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	839	968	
==>get to
    # the tcl binary.

    # There are basically 3 choices: run in one of:
    #  languages
    #  languages/tcl
    #  lan <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	21633	21869	
==>_return) {
      my $block = $self->current_block();

      my $value_token = $self->skip_value;
      my $value = Jako::Construct::Expression::Value->new($block, $value_token) if defined $value_token;

      my ($cond, $left, $op, $righ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	40595	40711	
==>ering this a pod link (not man or url).\n";
      }

      if( defined $section_name ) {
        $ell->[1]{'section'} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	5634	5882	
==>l}};
                    pop @Q if ! defined $Q[-1]; # External label
                }
                if ($stmt->{code}->{name} =~ /^(?:goto|fail)$/) {
                    next BBLOCK;
                }
            }
	    $prev = $stmt;
	    $stmt <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	4829	4968	
==>ds);
    }
}

## misc. test utilities

multi sub skip (Str $reason?, :$depends) returns Bool is export {
    Test::proclaim(1, "", "skip $re <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	329	421	
==>r dynamic PMCs

=head1 DESCRIPTION

This file is generated by F<config/gen/makefiles.pl> from <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	295	387	
==>r dynamic PMCs

=head1 DESCRIPTION

This file is generated by F<config/gen/makefiles.pl> from <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	3416	3527	
==>s+)?   # optional line
	(\d+)\s+        # PC
	([\w+]+)\s+      # opcode e.g. SLICE+3
	(?:(\d+)(?:\s+\((.*)\))?)? <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	11356	11458	
==>uple. B<STDERR> is redirected to
F<test.err> during the execution, and deleted after the command's run. <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5953	6066	
==>y->[4] =~ /MMD_/);
    next if ($entry->[4] =~ /_INT$/);
    next if ($entry->[4] =~ /_STR$/);
    next if ($entry <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6371	6484	
==>y->[4] =~ /MMD_/);
    next if ($entry->[4] =~ /_INT$/);
    next if ($entry->[4] =~ /_STR$/);
    next if ($entry <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	532	638	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
#
#  And here is how we implement a <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	58923	59066	
==>d as a subrule of other rules).
                                       It can't be directly called because
				       Parse::RecDescent::$rulena <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121926	122026	
==>ODY" => "#line 248 \"src/ops/bit.ops\"\n  /*\n   * lvalue casts are evil, but this one isn't evil eno <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122838	122938	
==>ODY" => "#line 248 \"src/ops/bit.ops\"\n  /*\n   * lvalue casts are evil, but this one isn't evil eno <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3079	3197	
==>esume_offset = $addr; interpreter->resume_flag = 1";
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::OpTrans>

=ite <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4124	4255	
==>ur_opcode = CORE_OPS_wrapper__;
		continue;
	    }
	    internal_exception(1, "illegal opcode in switch core\\n");
	    break;
	} /* <==
2	/Users/nnunley/parrot/examples/benchmarks/freeze.pl	804	928	
==>@a;
#$e = time();
#printf " clone time %.6f\n", $e-$s;

print "Image len ", length($image), "\n";
print "array size ", scalar <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	203	302	
==>06 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Parser;

u <==
2	/Users/nnunley/parrot/config/auto/jit.pm	5313	5540	
==>est for some instructions
        if ($jitcpuarch eq 'i386') {
            cc_gen('config/auto/jit/test_c.in');
            eval { cc_build(); };
            unless ($@ || cc_run() !~ /ok/) {
                $conf->data->set(jit <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	6746	6861	
==>($type =~ /^[Aa]$/  ) ? 1 : 0;
		my $uninit   = ($type =~ /^[BbCc]$/) ? 1 : 0;
		my $init     = ($type =~ /^[DdGg]$/ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4562	4667	
==>e(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note that for loading debugging version of t <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4334	4433	
==>e(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Note that for loading debugging version of t <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	51145	51259	
==>ect verb object
                        <defer: {$::theVerb = $item{verb}} >

Parse::RecDescent uses C<extract_code <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	7085	7280	
==>c op2
    $I1 = op1
    $I2 = op2
    $I3 = $I2 - $I1   

    $N1 = fact $I1
    $N2 = fact $I2
    $N3 = fact $I3

    $N2 /= $N3 
    $N2 /= $N1 
    .return($N2)
.end

.sub unicode:"dyadic:\u23 <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	41253	41396	
==>{$self->{functions}}, $symbol
      unless grep { $_ eq $symbol} @{$self->{functions}};
  }

  my $return = $self->_call_function_obj($func_obj, <==
2	/Users/nnunley/parrot/lib/File/Which.pm	6314	6404	
==>rl-2.0/lib/Apache/Build.pm>. Changed for use in DocSet
(for the mod_perl site) and Win32-aw <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2445	2553	
==>nstruction. While we kinda find
	# basic blocks, we don't discover backward branches until late to do
	# othe <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1023	1131	
==>nstruction. While we kinda find
	# basic blocks, we don't discover backward branches until late to do
	# othe <==
2	/Users/nnunley/parrot/config/auto/alignptrs.pm	1304	1430	
==>ults = cc_run_capture($try_align);
            if ($results =~ /OK/ && $results !~ /align/i) {
                $align = $try_al <==
2	/Users/nnunley/parrot/languages/regex/test.pl	2912	3095	
==>ut
    while (<SPEC>) {
        last if /^INPUT:/;
        $output .= $_;
    }

    $status &&= process($input, $output, $testCount++);
}

exit ($status ? 0 : 1);

sub generate_regula <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2339	2460	
==>tput_print {
    my ($self, $what) = @_;
    $what = value($what);
    return ("print $what;");
}

sub output_test {
    m <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2656	2776	
==>tput_print {
    my ($self, $what) = @_;
    $what = value($what);
    return ("print $what");
}

sub output_test {
    m <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	13330	13555	
==>write($R, $advance);

    my @ops = (
                  $scan => @R_body,
                           aop('goto', [ $next ]),
               $advance => $self->dbprint("scan advancing\n"),
                           aop('advanc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126803	127160	
==>=> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rot",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127938	128295	
==>=> [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rot",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1442	1540	
==>ndefined block!")
    unless defined $block;

  $self->INTERNAL_ERROR("Undefined type!")
    unless <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1290	1388	
==>ndefined block!")
    unless defined $block;

  $self->INTERNAL_ERROR("Undefined type!")
    unless <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2860	2985	
==>d+)/       and $smoke{duration}     = $1;
  $html =~ /VERSION: ([\d\.]+)/    and $smoke{VERSION}      = $1;
  $html =~ /branch <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104172	1104450	
==>nit(interpreter, type, {{\@3}});\n\t{{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105387	1105665	
==>nit(interpreter, type, {{\@3}});\n\t{{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7711	7835	
==>$err = "&STDOUT";
    }

    local *OLDOUT if $out;
    local *OLDERR if $err;

    # Save the old filehandles; we must not l <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	7660	7784	
==>$err = "&STDOUT";
    }

    local *OLDOUT if $out;
    local *OLDERR if $err;

    # Save the old filehandles; we must not l <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7229	7347	
==>eject}
		    :					 ''
		    ;
	my $ignore  = ref($options{ignore}) eq 'ARRAY' ? join('|', @{$options{ignore}})
		    : <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24231	24349	
==>eject}
		    :					 ''
		    ;
	my $ignore  = ref($options{ignore}) eq 'ARRAY' ? join('|', @{$options{ignore}})
		    : <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3648	3762	
==>od_page_link($to, $section);
    return undef unless defined $to and length $to;
     # resolve_pod_page_link retur <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047721	1047965	
==>UMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048644	1048888	
==>UMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ] <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1277	1380	
==>N => '',
			 YYRULES => 'ARRAY', YYSTATES => 'ARRAY', YYDEBUG => '');
#Mandatory parameters
my(@param <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1234	1334	
==>N => '',
			 YYRULES => 'ARRAY', YYSTATES => 'ARRAY', YYDEBUG => '');
#Mandatory parameters
my(@param <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048457	1048712	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049381	1049636	
==>LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT",
                  "NAME" => "find_global <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4357	4506	
==>ed locally in this block.

=cut

sub symbol_names
{
  my $self = shift; # Required: Jako::Construct::Block

  confess "No block!"  unless defined $sel <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	327	488	
==>thread/) {
        $libs .= ' -lpthread';
    }
    if ($libs !~ /-lrt\b/) {
        $libs .= ' -lrt';    # Needed for sched_yield.
    }
    $conf->data->set(lib <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	418	538	
==>n
    if( $] >= 5.008 && $Config{useithreads} && $INC{'threads.pm'}) {
        require threads::shared;

        # Hack a <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	591	710	
==>if ($self->prefix) {
    $prefix = $self->prefix;
  }
  else {
    $prefix = $self->peer ? $peer->prefix : $compiler->bl <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	571	690	
==>if ($self->prefix) {
    $prefix = $self->prefix;
  }
  else {
    $prefix = $self->peer ? $peer->prefix : $compiler->bl <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	28867	28995	
==><<EOC;
	$it = iter $var $cmt
EOC
    push @stack, [$tos->[0], $it, 'P']
}
sub FOR_ITER
{
    my ($n, $c, $cmt) = @_;
    my $targ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	18913	19091	
==>{need_ext}) {
        $vtbl_flag .= '|VTABLE_PMC_NEEDS_EXT';
    }
    if (exists $self->{flags}{singleton}) {
        $vtbl_flag .= '|VTABLE_PMC_IS_SINGLETON';
    }
    if (exis <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	1540	1670	
==>abel .= $self->output_label_def($op);
        } else {
            foreach my $line ($self->render($op)) {
                $line =~ <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	5496	5634	
==>eNum="dsKeyword" />
      <itemData name="Register" defStyleNum="dsDecVal" />
      <itemData name="TempRegister" defStyleNum="dsDecVal" /> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	708688	708945	
==>" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "unregister",
                  "FLAGS" => "",
                  "ARGDIRS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088873	1088965	
==>experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3}}, 0);\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089821	1089913	
==>experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3}}, 0);\n <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29230	29344	
==>esc'",
	}, $class;
}


sub code($$$$)
{
	my ($self, $namespace, $rule, $check) = @_;
	
my $code = ''.($::RD_NO_TRAC <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31328	31441	
==>esc'",
	}, $class;
}

sub code($$$$)
{
	my ($self, $namespace, $rule, $check) = @_;
	
my $code = ''.($::RD_NO_TRAC <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	1844	2023	
==>ritten into same output file
            my $exit_code = Parrot::Test::run_command( 
                                \@test_prog, 
                                CD     => $self-> <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2392	2528	
==>ritten into same output file
        my $exit_code = Parrot::Test::run_command(
            \@test_prog,
            CD     => $self-> <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29080	29200	
==>sc=~s/}/\\}/g;
	$desc=~s/{/\\{/g;

	bless 
	{
		"pattern"     => $pattern,
		"lookahead"   => $_[2],
		"line"        => $ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31184	31298	
==>sc=~s/}/\\}/g;
	$desc=~s/{/\\{/g;

	bless 
	{
		"pattern"   => $pattern,
		"lookahead" => $_[2],
		"line"      => $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	730704	730929	
==>e 124 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731440	731665	
==>e 124 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	5934	6038	
==>html") or
      die "Can't open $HTMLDIR/index.html for writing: $!\n";

    $totals{line_coverage}   = s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054400	1054499	
==>\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to get null global.\");\n\n    next = {{^+4 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055527	1055626	
==>\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to get null global.\");\n\n    next = {{^+4 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	195	338	
==>e::BlackBox::stringify_lol,
  'bool' => \&Pod::Simple::BlackBox::stringify_lol,
  # '.='   => \&tack_on,  # grudgingly support
  
  'fallback' = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	872997	873199	
==>",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(interprete <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2334	2446	
==>ub output_print {
    my ($self, $what) = @_;
    $what = value($what);
    return ("print $what;");
}

sub outpu <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2651	2762	
==>ub output_print {
    my ($self, $what) = @_;
    $what = value($what);
    return ("print $what");
}

sub outpu <==
2	/Users/nnunley/parrot/config/inter/charset.pm	772	885	
==>set);

    if ($conf->options->get('ask')) {
        print <<"END";


The following charsets are available:
  @cha <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	2930	3202	
==>$/) {
            # If we have a current rule...
            my $name = $1;
            if ($rule) {
                # Validate it.
                validate_rule($rule);

                # Save it.
                push @rules, $rule;
            }

            # Create new <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44929	45044	
==>> "#line 737 \"src/ops/core.ops\"\n  Parrot_pop_mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45571	45686	
==>> "#line 737 \"src/ops/core.ops\"\n  Parrot_pop_mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	1549	1673	
==>not instantiated.', 
	        @abstract_items
	    ),
		$self->new_group(
	        'Concrete PMCs', 
	        'These PMCs are <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	38134	38280	
==>listref>

The list reference contains one or more strings specifying patterns
that must I<not> appear within the tagged text.

For example, to extr <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	581	693	
==>ruct::Type->new($token->type),
    VALUE  => $token->text,

    DEBUG  => 1,
    FILE   => $token->file,
    LINE <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1732	1927	
==>Docs::Section::Perl->new,
        Parrot::Docs::Section::Libs->new,
        Parrot::Docs::Section::Tools->new,
        Parrot::Docs::Section::BigNum->new,
        Parrot::Docs::Section::Compilers- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14070	14299	
==>ELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_GNEXT",
                  "NAME" => "jum <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	25818	25971	
==>_END_$name:
PIR
			$arg_name = "P_ARG_$arg_num";
		}

		# Unknown.
		else {
			die "Known argument type $_ not implemented yet.\n";
		}

		# Generate PIR. <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12285	12424	
==>O';
}

=item C<href_for_perl_module($module)>

Returns the path to the Perl module's HTML file relative to the current
documentation page. C <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17366	17489	
==>large sections of its code
have been copied here, and then refactored and adjusted to enable various
bits of Parrot-specific <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	11848	11982	
==>it's a zero-length "empty line" at the very
       #  end of "foo\nbar\n" (i.e., between the \n and the EOS).
    }
  }
  $self->parse_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	5904	6029	
==>it's a zero-length "empty line" at the very
         #  end of "foo\nbar\n" (i.e., between the \n and the EOS).
      } else { <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	6662	6880	
==>= ($program[$_], $section[$_]);
        if ( $bench{ $name }{ $prog } ) {
            my $start = $Get_Time{ $cfg{method} }->();
            system(
                $ini->val($sect, 'exe') . " " . File::Spec->catdir( $c <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	16937	17080	
==>?" => 23,
			'CHAR' => 4,
			"<" => 22,
			"+" => 24,
			'CODE' => 6,
			"(" => 10,
			"|" => 26,
			"*" => 27,
			"[" => 14,
			")" => 65,
			" <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	15620	15754	
==>?" => 23,
			'CHAR' => 4,
			"<" => 22,
			"+" => 24,
			'CODE' => 6,
			"(" => 10,
			"|" => 26,
			"*" => 27,
			"[" => 14,
			")" => <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6658	6792	
==>k").qq(\\n";));
    }
    push @ops, "push \@<rx_stack>, -1; # pushmark";
    return @ops;
}

sub output_pushindex {
    my ($self, $re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030914	1031210	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sizeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031782	1032078	
==>rot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sizeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE <==
2	/Users/nnunley/parrot/config/auto/va_ptr.pm	93	276	
==>06-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/va_ptr.pm - va_list to va_ptr conversion test

=head1 DESCRIPTION

Tests which kind of PARROT_VA_TO_VAPTR to use.

=cut

pac <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	3010	3126	
==>{
  my $self = shift;
  my ($handler) = @_;

  my $block = $self->block;
  my $kind  = $self->kind;
  my $name  = $se <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	1000	1102	
==>is admittedly a little bit silly:
	# do we ever export anything else than 'struct'...?
      $self->exp <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	5407	5541	
==>au'      , 932,
 'Upsilon'  , 933,
 'Phi'      , 934,
 'Chi'      , 935,
 'Psi'      , 936,
 'Omega'    , 937,
 'alpha'    , 945,
 'bet <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18338	18432	
==>hod) on it:

=over

=item $parser->head1_halfpoint_size( I<halfpoint_integer> );

=item $parser <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738154	738270	
==>ne 149 \"src/ops/set.ops\"\n  {{\@1}} = string_to_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	738918	739034	
==>ne 149 \"src/ops/set.ops\"\n  {{\@1}} = string_to_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	699	794	
==>urrent directory.

=head2 Options

=over 4

=item C<--plus-misses>

This creates a second sectio <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1169	1286	
==>th_to_parrot));
        my $path_to_language;
        if ($dir_count == 0) {
          $path_to_language = File::Spec- <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1654	1771	
==>th_to_parrot));
        my $path_to_language;
        if ($dir_count == 0) {
          $path_to_language = File::Spec- <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2384	2509	
==>t/src/pmc' . $PATHQUOTE . " " .
        $source;
};

sub partial_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    m <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	2179	2304	
==>t/src/pmc' . $PATHQUOTE . " " .
        $source;
};

sub partial_link_cmd {
    my ($target, $libs, $sources) = @_;
    
    m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832173	832408	
==>STACK_ENTRY_FLOAT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832901	833136	
==>STACK_ENTRY_FLOAT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	28942	29100	
==>ular expressions. For example:

	while ( $next = (extract_quotelike($text))[0] )
	{
		# process next quote-like (in $next)
	}


=head2 General behaviour in sca <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	10250	10443	
==>le_ref},
            "t_$temp_num = (int)GET_NCI_I($reg_num);";
        return "t_$temp_num";
    };
    /3/ && do {
        push @{$temps_ref}, "PMC *t_$temp_num;";
        push @{$extra_preamb <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1081	1200	
==>ot::Test::path_to_parrot();
        my $dir_count      = scalar(File::Spec->splitdir($path_to_parrot));
        my $path <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1571	1685	
==>ot::Test::path_to_parrot();
        my $dir_count = scalar(File::Spec->splitdir($path_to_parrot));
        my $path <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718074	718185	
==>r, io, INTVAL_FMT, (INTVAL){{\@2}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719006	719117	
==>r, io, INTVAL_FMT, (INTVAL){{\@2}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LA <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	3427	3593	
==>n also be negated with a "no", for example --noconst.
[1] Not all platforms support this, a warning will be given if not.
    You can try GNU nm if you want this featu <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	36589	36701	
==>Parse::RecDescent::_hint("Lookahead for negated optional
					   repetitions (such as
					   \"!$subrule($repspe <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	26904	27011	
==>ar expressions

	@extracted = extract_multiple($text,
				      [ \&extract_bracketed,
					\&extract_quotel <==
2	/Users/nnunley/parrot/config/init/defaults.pm	398	533	
==>:Base);

use Config;
use FindBin;    # see build_dir
use Parrot::Configure::Step;

$description = q{Setting up Configure's default value <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	7535	7745	
==>tover = $3;

#print STDERR "use $use_file;\n";

      $use_file =~ s{::}{/}g;
      $use_file .= ".jako";

      my @use_lines = $self->slurp_file($use_file);

      unshift @use_lines, "#line 1 \"$use_file\"\n" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1114	1279	
==>mpr   
       dotted-underline=uld          dash-underline=uldash
       dot-dash-underline=uldashd    dot-dot-dash-underline=uldashdd     
       double-underline=ul <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33805	33918	
==>DEBUG and print "Can't assimilate following ", $paras->[0][0], "\n";
              push @$para, '';  # Just so it' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35618	35731	
==>DEBUG and print "Can't assimilate following ", $paras->[0][0], "\n";
              push @$para, '';  # Just so it' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	248966	249341	
==>,
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 289,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 670 \"src/ops/cmp.ops\"\n  {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1890	2100	
==>an ops file into the
relevant C code.

=cut

sub goto_offset
{
    my ($self, $offset) = @_;

    return "goto *((void*)*(cur_opcode += $offset))";
}

=item C<goto_pop()>

Transforms the C<goto POP()> macro in a <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2539	2704	
==>an ops file into the
relevant C code.

=cut

sub goto_offset
{
    my ($self, $offset) = @_;

    return "goto *ops_addr[*(cur_opcode += $offset)]";
}

=item C<goto_p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6345	6510	
==>ym = $self->get_symbol($name); # Return the identifier if defined here.
  return $sym if defined $sym;

  return undef unless defined $self->block; # Terminate recurs <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	6706	6894	
==>22,
 'lowast'   , 8727,
 'radic'    , 8730,
 'prop'     , 8733,
 'infin'    , 8734,
 'ang'      , 8736,
 'and'      , 8743,
 'or'       , 8744,
 'cap'      , 8745,
 'cup'      , 8746,
 'int <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	136	343	
==>rrot interpreter.
#
# $Id: $
#

use strict;
eval "use warnings";

package Jako::Construct::Statement::Concat;

use Carp;

use base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8769	8865	
==>m number distribution
randomize timer
max=10
dim a(max)
for i = 0 to 100
	b=rnd*max+1
	a(b)=a(b)+ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20010	20106	
==>m number distribution
randomize timer
max=10
dim a(max)
for i = 0 to 100
	b=rnd*max+1
	a(b)=a(b)+ <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	11694	11827	
==>)\s+
        {{\@(\d)}}\s*=\s*
        {{\@(\d)}}->vtable->
        (\w+)
        \(interpreter,
        \s*
        {{\@(\d)}},\s*{{\ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7552	7647	
==>"0"
${PARAMS}[0] = ${STEMP0}
${INS} = concat ${STEMP0}
${INS} = concat " = pop s\n"

PRE_CALL_EN <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	15554	15671	
==>c. for all directives
  # 

  my $self = $_[0];
  my $paras;
  return unless @{$paras = $self->{'paras'}};
  my $curr_ <==
2	/Users/nnunley/parrot/config/auto/alignptrs.pm	648	793	
==>kipped');
        return $self;
    }

    $self->set_result('');
    my $align;
    if (defined($conf->data->get('ptr_alignment'))) {
        $al <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12679	12787	
==>q{"$labels{$syms[CURR]}"};
	} else {
		push @args, qq{""};
	}
	feedme();
	push @{$code{$seg}->{code}}, "\t_RE <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	4793	4888	
==>ack;
		push(@{$elsestack->{$elsetag}}, $elseline);
		($result, $type, @code)=EXPRESSION();
		$fa <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	38069	38192	
==>ions that can be specified are:

=over 4

=item C<reject =E<gt> $listref>

The list reference contains one or more strings s <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1103	1210	
==>';
# Get current stack types array size.
${ITEMP0} = elements ${STYPES}
PIR

	# Do code for each pop. Need t <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2813	2920	
==>';
# Get current stack types array size.
${ITEMP0} = elements ${STYPES}
PIR

	# Do code for each pop. Need t <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27908	28017	
==>_init(Parrot_Interp, int, int);
EOC
    $self->{hdecls} .= $hout;
    $self->{hdecls};
}

=item C<gen_h($out_n <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	5010	5514	
==>compile = compreg "PGE::P6Regex"

            .local string target
            .local string pattern
            .local pmc rulesub
            .local pmc match
            target = $unicode"$target"
            pattern = "$pattern"
            rulesub = p6rule_compile(pattern)
            if_null rulesub, rule_fail
            match = rulesub(target)
            unless match goto match_fail
          match_success:
            print "matched"
            $captures
            goto end
          matc <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21116	21235	
==>_TRACE;').'
		' . ($self->{"lookahead"} ? '$_savetext = $text;' : '' ) .'

		$_tok = ($_noactions) ? 0 : do ' . $self->{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352150	352342	
==>10,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 195 \"src/ops/io.ops\"\n  PIO_printf(interpreter, \"%f\", ( <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	47063	47456	
==>4 "Lua\lua51.yp"
{
            PushScope( $_[0] );
        }
	],
	[#Rule 14
		 'stat', 6,
sub
#line 108 "Lua\lua51.yp"
{
            BuildWhile( $_[0], $_[3], $_[5] );
        }
	],
	[#Rule 15
		 '@3-1', 0,
sub
#line 112 "Lua\lua51.yp"
{
            PushScope( $_[0] );
        }
	],
	[#Rule 16
		 'stat', 5,
sub
#line 116 "Lua\lua51.yp"
{
            BuildRepeat( $_[ <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	2027	2151	
==>$pbc, $pir);
    if (! defined($status) || $status) {
        die "assemble failed with status " . ($? >> 8);
    }
}

sub ge <==
2	/Users/nnunley/parrot/languages/regex/test.pl	3701	3825	
==>$pbc, $pir);
    if (! defined($status) || $status) {
        die "assemble failed with status " . ($? >> 8);
    }
}

sub ge <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1735	1835	
==>l table to parent block.\n", __PACKAGE__;

  foreach my $symbol_name ($self->symbol_names) {
    # TO <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	2190	2361	
==>_;

    generate_regular_pir('test_regex.pir', $pattern);
    generate_pbc('test_regex.pir', 'test_regex.pbc');
}

sub process {
    my ($input, $output) = @_;

    my $TES <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13412	13676	
==>UMP_ENEXT",
                  "NAME" => "jsr",
                  "FLAGS" => ":base_core,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1632	1756	
==>ue,
				DOTPOS => \$dotpos,
				STACK => [],
				DEBUG => 0,
				CHECK => \$check };

	_CheckParams( [], \%params, \@_, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1577	1695	
==>ue,
				DOTPOS => \$dotpos,
				STACK => [],
				DEBUG => 0,
				CHECK => \$check };

	_CheckParams( [], \%params, \@_, <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12313	12472	
==>ith a name of "qacute") or is
syntactally invalid (as with a name of "1/4"), this returns undef.

=item e2charnum($e_content)

Given a name or number that could <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12864	12982	
==>ith a name of "qacute") or is
syntactally invalid (as with a name of "1/4"), this returns undef.

=item $Name2character <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	2178	2275	
==>e => 'ident', Attributes => { name => $self->value } });
  $handler->end_element({ Name => 'ident' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9963	10175	
==>int $fh $scratch;
      
      if ($tagname eq 'item-number') {
        print $fh $token->attr('number'), ". \n";
      } elsif ($tagname eq 'item-bullet') {
        print $fh "\\'95 \n";
        #for funky testin <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	19124	19293	
==>r this is a negation-match
      $neg = 1        if $content =~ s/^!//s;
      my $to_resolve;  # whether to process formatting codes
      $to_resolve = 1 if $content =~ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382859	383145	
==>TYPE" => "function",
                  "CODE" => 447,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 455 \"src/ops/io.ops\"\n  if ({{ <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10537	10727	
==>T qq(
            </tbody>
            </table>
        );
    }

    print OUT page_footer();

    close(OUT);
}


sub filter_gcov {
    my ($infile) = @_;
    
    my $source_file = $infile <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946337	946628	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_charset",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947238	947529	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_charset",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	181	277	
==>- GC stress-testing

=head1 SYNOPSIS

    % time perl examples/benchmarks/stress2.pl

=head1 DESC <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	15117	15238	
==>fined $regex;

    my($re, $opts);

    # Check for qr/foo/
    if( ref $regex eq 'Regexp' ) {
        $usable_regex = $re <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2981	3073	
==>patibility file',
	'PLATFORMS' => 'Project info',
	'README' => 'README file',
	'RELEASE_INSTR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206481	206574	
==>f ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207423	207516	
==>f ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826739	826992	
==>= UVal_num(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827809	828062	
==>= UVal_num(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	5876	6302	
==>3,
 'tau'      , 964,
 'upsilon'  , 965,
 'phi'      , 966,
 'chi'      , 967,
 'psi'      , 968,
 'omega'    , 969,
 'thetasym' , 977,
 'upsih'    , 978,
 'piv'      , 982,
 'bull'     , 8226,
 'hellip'   , 8230,
 'prime'    , 8242,
 'Prime'    , 8243,
 'oline'    , 8254,
 'frasl'    , 8260,
 'weierp'   , 8472,
 'image'    , 8465,
 'real'     , 8476,
 'trade'    , 8482,
 'alefsym'  , 8501,
 'larr'     , 8592,
 'uarr'     , <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	7666	7785	
==>en, %fixed, $fix);
    local *OP;
    $fix = 1;
    open OP, "< $file" or die "Can't open $file, error $!";
    while (< <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	17312	17524	
==>tion that can call it. */
void *
build_call_func(Interp *interpreter, PMC *pmc_nci,
                STRING *signature)
{
    char       *c;
    STRING     *ns, *message;
    PMC        *b;
    PMC        *iglobals <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349317	349574	
==>, enum_class_Undef);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350319	350576	
==>, enum_class_Undef);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028064	1028169	
==>({{\@1}} < 0) {\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028915	1029020	
==>({{\@1}} < 0) {\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	9005	9127	
==>rrot_exec_add_text_rellocation_func(jit_info->objfile, jit_info->native_ptr, f); \
    emitm_calll(jit_info->native_ptr, EX <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10563	10674	
==>lf->_save_1 ('P');
    $self->_morph ($pmc, $value);
    $self->_restore ($value);
    $value = $pmc;
  }

  $se <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7819	7948	
==>->_add_inst("FINISH_$label", 'set', [$copy.'[1]',$return]);
  $self->_add_inst('', 'set', [$return,$head]);
  $self->_add_inst("DO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017219	1017666	
==>\n  {{\@1}} = Parrot_floatval_time();\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gmtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	52079	52184	
==>s an array of substrings
of the original string, as extracted by the specified extractors.
In a scalar con <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	843	940	
==>::isa($ident, qw(Jako::Construct::Expression::Value::Identifier));

  my $self = bless {
    BLOCK <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	807	904	
==>::isa($ident, qw(Jako::Construct::Expression::Value::Identifier));

  my $self = bless {
    BLOCK <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	5170	5317	
==>.dll',
            cc         => ${cc},
            ccflags    => '-O2 -w-8066 -DWIN32 -DNO_STRICT -DNDEBUG -D_CONSOLE',
            cc_o_out   => ' <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	16451	16583	
==>lements. For example:
		         <$op->{type}op:leftarg /op/ rightarg>");
	    }
	    else
	    {
		push @{$self->{items}},
			Parse: <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	598	714	
==>r
# nearest CPAN
#
# Any use of this module in a standalone parser make the included
# text under the same copyri <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	582	694	
==>r
# nearest CPAN
#
# Any use of this module in a standalone parser make the included
# text under the same copyri <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104200	1104510	
==>}});\n\t{{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105415	1105725	
==>}});\n\t{{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	41129	41294	
==>e: This subroutine is only available under Perl5.005)

C<gen_extract_tagged> generates a new anonymous subroutine which
extracts text between (balanced) specified tag <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	512599	512870	
==>ABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_neg",
                  "FLAGS" => ":base_co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51713	51818	
==>c/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_trace(interpreter,   {{\@1}}); }\n  else         { Parr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52496	52601	
==>c/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_trace(interpreter,   {{\@1}}); }\n  else         { Parr <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2357	2474	
==>y ($self, $what) = @_;
    $what = value($what);
    return ("print $what;");
}

sub output_test {
    my ($self, $tes <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2674	2790	
==>y ($self, $what) = @_;
    $what = value($what);
    return ("print $what");
}

sub output_test {
    my ($self, $tes <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	733675	733785	
==>rc/ops/set.ops\"\n  {{\@1}} = string_to_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	734439	734549	
==>rc/ops/set.ops\"\n  {{\@1}} = string_to_int(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	197	351	
==>ON

Determines whether the compiler supports computed C<goto>.

=cut

package auto::cgoto;

use strict;
use vars qw($description @args);

use base qw(Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090839	1090945	
==>experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1091899	1092005	
==>experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	530	678	
==>w section.

=cut

sub new
{
    my $self = shift;
    
    return $self->SUPER::new(
        'Tools', 'tools.html', '',
        $self->new_group('Con <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	1307	1452	
==>oconst>.

=over 4

=item C<--objectname>

=item C<-o>

Prepend the object name before the symbol name.

=item C<--t>

Append the short BSD-style t <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	942	1070	
==>arrot::Docs::Directory);

=item C<new()>

Searches up the file system tree from the current working directory
looking for the dis <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2242	2370	
==>te_all_files {
    my $self = shift;
    my $library = $self->{opt}{library};

    if ($library) {
        my $hout = $self->gen_ <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	3906	4003	
==>func P2, P1, '$name', '$signature'\n";
  print OUTPUT "store_global '${cur_package}::${name}', P2\ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	46521	46764	
==>@{ $_[1] }, @{ $_[2] } ];
        }
	],
	[#Rule 9
		 'stat', 3,
sub
#line 88 "Lua\lua51.yp"
{
            BuildAssigns( $_[0], $_[1], $_[3] );
        }
	],
	[#Rule 10
		 'stat', 1,
sub
#line 92 "Lua\lua51.yp"
{
            Buil <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841642	841893	
==>rd(interpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842406	842657	
==>rd(interpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	52016	52169	
==>e 288 "Lua\lua51.yp"
{
            [ @{ $_[1] }, $_[2] ];
        }
	],
	[#Rule 49
		 'key', 3,
sub
#line 295 "Lua\lua51.yp"
{
            $_[2] <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5311	5414	
==>n' });
  $dest->sax($handler);
  $handler->start_element({ Name => 'op', Attributes => { kind => 'infix' <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3374	3477	
==>n' });
  $dest->sax($handler);
  $handler->start_element({ Name => 'op', Attributes => { kind => 'infix' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	29200	29363	
==>) {
        DEBUG > 2 and print "'=$para_type' inside an '=over'!\n";
        $self->whine(
          $para->[1]{'start_line'},
          "You forgot a '=back' befo <==
2	/Users/nnunley/parrot/tools/dev/pbc_header.pl	923	1086	
==>len = 10;
    my $fingerprint = md5 join "\n", grep { ! /^#/ } @lines;
    return substr $fingerprint, 0, $len;
}

sub get_version {
    my $version_file = 'VERSION <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	431	631	
==>++ }
}

{
    package Class::Struct::Tie_ISA;

    sub TIEARRAY {
        my $class = shift;
        return bless [], $class;
    }

    sub STORE {
        my ($self, $index, $value) = @_;
        Cla <==
2	/Users/nnunley/parrot/config/auto/signal.pm	210	334	
==>signal stuff.

=cut

package auto::signal;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	626155	626271	
==>c; get_results (1), x; invokecc_p */\n    pc = CUR_OPCODE + 2 + n_args + 3 + 3 + 2;    \n    args[1 + n_args] = pc;\n <==
2	/Users/nnunley/parrot/lib/File/Which.pm	1437	1557	
==>ch says MPW-Perl cannot resolve `Alias $alias`,
            # let's just hope it's fixed
            if (lc($alias) eq lc <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	3129	3246	
==>private_h or die "Can't write '$string_private_h': $!";
    print OUT <<"HEADER";
/* ex: set ro:
 * !!!!!!!   DO NOT E <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11342	11445	
==>esheet {
  return sprintf <<'END',
{\stylesheet
{\snext0 Normal;}
{\*\cs10 \additive Default Paragraph F <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2546	2629	
==>s>,
F<examples/mops/mops.py>,
F<examples/mops/mops.rb>,
F<examples/mops/mops.scheme> <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	2546	2629	
==>s>,
F<examples/mops/mops.py>,
F<examples/mops/mops.rb>,
F<examples/mops/mops.scheme> <==
2	/Users/nnunley/parrot/tools/dev/manicheck.pl	1438	1591	
==>f (@missing) {
    print "\n";
    print "Missing files:\n";
    foreach (@missing) {
        print "  $_\n";
    }
}

if (@extra) {
    print "\n";
    p <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	35812	35936	
==>mplements($method)>

True for vtable methods.

=cut

sub implements
{

    my ($self, $meth) = @_;
    $self->implements_vtab <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670639	670751	
==>n    {{\@1}}->vtable->push_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671412	671524	
==>n    {{\@1}}->vtable->push_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3134	3247	
==>ki' => "IREG(%ld)",

    'ic' => "cur_opcode[%ld]",
    'nc' => "CONST(%ld)->u.number",
    'pc' => "CONST(%ld)->u <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2046	2157	
==>ki'  => "IREG(%ld)",

  'ic'  => "cur_opcode[%ld]",
  'nc'  => "CONST(%ld)->u.number",
  'pc'  => "CONST(%ld)->u <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5156	5279	
==>b {
#DBG>		my($tok)='>';
#DBG>		for (split('',$$token)) {
#DBG>			$tok.=		(ord($_) < 32 or ord($_) > 126)
#DBG>					?	sp <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4908	5027	
==>b {
#DBG>		my($tok)='>';
#DBG>		for (split('',$$token)) {
#DBG>			$tok.=		(ord($_) < 32 or ord($_) > 126)
#DBG>					?	sp <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	33658	33813	
==>nder 5.8.0
        # ithreads.  So we have to fill them in by hand. :(
        my $empty_result = &share({});
        for my $idx ( 0..$self->{Expected_Test <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1806	1910	
==>lf{VERSION} < $COMPATIBLE
	and	croak "Yapp driver version $VERSION ".
			  "incompatible with version $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1742	1844	
==>lf{VERSION} < $COMPATIBLE
	and	croak "Yapp driver version $VERSION ".
			  "incompatible with version $ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Base.pm	1658	1843	
==>\n";
}

# Pre and post store operation hooks.
sub pre_store {
	die "pre_store not implemented for current stack to register mapper\n";
}
sub post_store {
	die "post_store not implemented <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22382	22488	
==>ng directive: ['
					. $self->describe . ']},
					Parse::RecDescent::_tracefirst($text),
					  q{' . $ru <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9447	9560	
==>B-\x40\x5B-\x5E\x60\x7B-\x7F]/
            # Characters under 0x80 that aren't legal in an XML Name.
        or $n <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10711	10824	
==>B-\x40\x5B-\x5E\x60\x7B-\x7F]/
            # Characters under 0x80 that aren't legal in an XML Name.
        or $n <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	1148	1401	
==>g goes horribly wrong during the
test and your test program aborts, or skips a test or whatever.  You
do this like so:

    use Test::Simple tests => 23;

You must have a plan.


=over 4

=item B<ok>

  ok( $foo eq $bar, $name );
  ok( $foo eq $bar );

o <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2777	2868	
==>into XML.

Pod::Simple::XMLOutStream inherits methods from
L<Pod::Simple>.


=head1 SEE ALSO <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	1549	1751	
==>aders.

If code: see L</"Public or Private">.

If data: see L</"Data is not an API">.

=item Uninitialized Modifiable Data

Data symbol that is not initialized with any data.

See L</"Data is not an API" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47067	47293	
==>ROT_ALL_DEBUG_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47850	48076	
==>ROT_ALL_DEBUG_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARR <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9435	9524	
==>k}{prevline}?'
	my $prevline;
	tie $prevline, q{Parse::RecDescent::LineCounter}, \$text, $ <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	5949	6168	
==>escape {
    my ($string) = @_;
    return if not $string;

    $string =~ s/\\([^abfnrtvoxu])/$1/g;

    return $string;
}

##
## update_tests()
##
## Run CVS update.
##
sub update_tests {
    print "Updating tests from <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12926	13047	
==>ctory to the file and return that
    # as the link.
    
    my $dist = Parrot::Distribution->new;
    my $file = $dist-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488010	488311	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ": <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	489403	489704	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "floor",
                  "FLAGS" => ": <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23718	23920	
==>,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 75
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	78	175	
==>s/dev/check_source_standards.pl 19607 2006-05-30T15:23:20.183054Z coke  $

=head1 NAME

tools/dev/ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	12678	12806	
==>$Level + 1;

    if( !defined $got || !defined $dont_expect ) {
        # undef only matches undef and nothing else
        my $t <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	13122	13250	
==>$Level + 1;

    if( !defined $got || !defined $dont_expect ) {
        # undef only matches undef and nothing else
        my $t <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4487	4607	
==>++;
	}

	# Return generated code.
	return $pir;
}

sub post_op($$) {
	# Nothing to do.
	return "";
}

# Pre and post bran <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2903	3023	
==>++;
	}

	# Return generated code.
	return $pir;
}

sub post_op($$) {
	# Nothing to do.
	return "";
}

# Pre and post bran <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1476	1577	
==>elsif ($dir_count >2) {
          $path_to_language = File::Spec->join(File::Spec->updir() x ($dir_cou <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1961	2062	
==>elsif ($dir_count >2) {
          $path_to_language = File::Spec->join(File::Spec->updir() x ($dir_cou <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	14043	14158	
==>));
}

sub Regex::Ops::Tree::classpieces::reftree {
    my $op = shift;
    return annotated($op, "classpieces " . $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9468	9610	
==>7B-\x7F]/
            # Characters under 0x80 that aren't legal in an XML Name.
        or $new_code =~ m/^[-\.0-9]/s
        or $new_code =~ m <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10732	10874	
==>7B-\x7F]/
            # Characters under 0x80 that aren't legal in an XML Name.
        or $new_code =~ m/^[-\.0-9]/s
        or $new_code =~ m <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30421	30569	
==>85,
			'OR' => 84,
			"]" => 150,
			">" => 86
		}
	},
	{#State 98
		ACTIONS => {
			"," => 151,
			")" => 152
		}
	},
	{#State 99
		DEF <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30538	30684	
==>52
		}
	},
	{#State 99
		DEFAULT => -92
	},
	{#State 100
		ACTIONS => {
			"-" => 72,
			"<" => 74,
			"%" => 76,
			"==" => 77,
			">= <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17119	17234	
==>type = $para->[0];

    DEBUG > 1 and print "Pondering a $para_type paragraph, given the stack: (",
      $self->_du <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	743282	743528	
==>"TYPE" => "inline",
                  "CODE" => 836,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 174 \"src/ops/set.ops\"\n  { <==
2	/Users/nnunley/parrot/languages/regex/test.pl	2430	2600	
==>p($pattern);
}

generate_regular($pattern);
exit(0) if $compile;

my $status = 1;

my $testCount = 1;
$_ = <SPEC>;
while (1) {
    my ($input, $output);

    last if ! def <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	9608	9754	
==>ze' => '',
             'osname' => 'darwin',
             'packtype_b' => 'C',
             'packtype_i' => 'l!',
             'packtype_n' => 'd' <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	6169	6313	
==>/   $trans->access_arg($self->arg_type($1 - 1), $1, $self); /me;

    s/{{=0,=([^{]*?)}}/   $trans->restart_address($1) . "; {{=0}}"; /me;
    s/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	532286	532704	
==>S" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 615,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 877 \"src/ops/math.op <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	14467	14659	
==>rk) {
		$_=pop @work;
		$result=pushthing(\@code, \$optype, @$_);
	}

	return( $result, $optype, @code );
}
sub build_assignment {
	my($left, $leftexpr, $right, $rightexpr, $righttype)=@_;
	my( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6530	6791	
==>!")
        unless $module_props{fnlib};

      $fnlib = $module_props{fnlib}->value;
    }

    my $fn = $props{fn} ? $props{fn}->value : $name;

    $fn =~ s{(^")|("$)}{}g;
    $fnlib =~ s{(^")|("$)}{}g;
    $name =~ s/^.*:://;

    if ($type) {
      $handler <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3866	4050	
==>!")
        unless $module_props{fnlib};

      $fnlib = $module_props{fnlib}->value;
    }

    my $fn = $props{fn} ? $props{fn}->value : "\"$name\"";

    my $thunk = "_${name}_THUNK" <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	3039	3181	
==>ll is cast to a non-matching type
            # ? -Wmissing-declarations
            #   Warn if a global function is defined without a previou <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	7015	7188	
==>{$meth})) {
            # create methods if they write
            $const->{has_method}{$meth} = $i++;
	    push @{ $const->{methods} }, {
		meth => "$meth",
		type => $entry <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3358	3459	
==>store_global "COMMON", _GLOBALS\n\t};
	}
	delete $code{$seg};
	if (! $debug) {
		print CODE ".end\t# o <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	834	961	
==>nguages/${lang_fn}", 
             "$self->{parrot} languages/${pir_fn}" );
}
 
 

sub skip_why {
    my $self = shift;
    my ( <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	7078	7289	
==>r_func = 'test::main';
    print <<EOC;
.sub $cur_func :main
    .param pmc sys::argv
    new_pad 0
    \$P0 = getinterp
    \$P0."recursion_limit"(998)
    .local pmc __name__
    __name__ = new $DEFVAR
    __na <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	1125	1237	
==>MANY_LINES(), ")!\nAborting";
  }
  if(defined &UNICODE) { }
  elsif($] >= 5.008)   { *UNICODE = sub() {1}  }
  e <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	1276	1395	
==>nclude path where to find PMCs.

=item C<--library=libname>

Specifiy the library name. This will create E<lt>libnameE<g <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	18870	19069	
==>_version
{
    my $self = shift;

    $self->{VERSION} =~ m/^\d+\.\d+\.(\d+)/;

    return $1;
}

=item C<push_op($op)>

Adds C<$op> to the end of the op list.

=cut

sub push_op
{
    my ($self, $op) <==
2	/Users/nnunley/parrot/config/inter/types.pm	23	185	
==>03, The Perl Foundation.
# $Id: /parrot/config/inter/types.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/inter/types.pm - Sizes for Parrot Type <==
2	/Users/nnunley/parrot/config/auto/pack.pm	1803	1988	
==>a functional packtype for $_.
               Need a format for %d bytes, but '$format' gave %d bytes.
AARGH
            }
        } else {
            $format = '?';
        }

        $ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	36196	36293	
==>st.pm.  As such, the
names of the most common routines are kept tiny, special cases and
magic side <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	31691	31862	
==>$n, $c, $cmt) = @_;
    my $parent_tuple = pop @stack;
    my $tos = pop @stack;
    my $cl = temp('P');
    my $name = $tos->[1];
    $n = $name;
    $n =~ s/["]//g;
    m <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	8748	8843	
==>inlen { 0 }
sub maxlen { 0 }

package Regex::Ops::Tree::check;
sub minlen { $_[0]->{args}->[1]-> <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	372	464	
==>t lists the Parrot public embedding API as described in the public
headers F<include/parrot/e <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	13390	13576	
==>intl       math.h
round       math.h
roundf      math.h
roundl      math.h
scalbln     math.h
scalblnf    math.h
scalblnl    math.h
scalbn      math.h
scalbnf     math.h
scalbnl     math. <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2981	3087	
==>tter for sending to an XML processor (that is, it has
no ignoreable whitespace). But
Pod::Simple::DumpAsXML <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	9983	10158	
==>2] ne 'P') {
	if ($v->[2] eq 'c') {
	    if ($v->[1] =~ /<code> (lambda_\d+)/) {
		$n = $1;
		return $n;
	    }
	}
	$n = temp('P');
	print <<"EOC";
	$n = new $DEFVAR
	$n = $v-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	716506	716618	
==>p));\n  if (s) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_pu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	724398	724510	
==>p));\n  if (s) {\n    if (PIO_softspace(interpreter, io, 0))\n      PIO_puts(interpreter, io, \" \");\n    PIO_pu <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2711	2810	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub new {
  my $new = shift-> <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3067	3165	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sub new {
  my $new = shift-> <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	11194	11331	
==>able->{vtable}(interp, $Y, $Z)
        elsif ($opbody =~ /
        ^(?:.*\.ops")\s+
        {{\@(\d)}}->vtable->
        (\w+)
        \(i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9120	9244	
==>g, 1);\n    }\n    string_cstring_free(label);\n    interpreter->resume_flag = 2;\n    {{=0}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10236	10360	
==>g, 1);\n    }\n    string_cstring_free(label);\n    interpreter->resume_flag = 2;\n    {{=0}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11604	11692	
==>\additive \f1\lang1024\noproof\sbasedon10 pod-C;}
{\s20\ql \li0\ri0\sa180\widctlpar\f1\fs <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	254	387	
==>tually C<bison>.

=cut

package inter::yacc;

use strict;

use vars qw( $description @args $prompt $util );

use base qw(Parrot::Confi <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27300	27407	
==>func($funcname);
	$functions{$funcname}=$englishname;

	$f="_USERFUNC_$funcname";
	$f=changename($f);
	$f=~s <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	13223	13348	
==>ame=percentage>&nbsp;%&nbsp;ok</td>
	    <tmpl_loop name=summary>
	      <td class="leftsep num tests_total"><tmpl_var name=to <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	14238	14374	
==>=$1}}/mg;
        $pop      ||= $body =~ s/\bgoto\s+POP\(\)/{{=*}}/mg;
                      $body =~ s/\bexpr\s+OFFSET\((.*?)\)/{{^+$1}} <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	21303	21449	
==>read_uint8()\n    next_pc += 1\n";
            $pir .= binary_dispatch_table($_, @rules);
        }
    } else {
        # Otherwise, split the rul <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	640	735	
==>e","$targ")
KEYS
}
sub parse_common {
	feedme();
	while($type[CURR] !~ /COMP|COMM|STMT/) {
		$va <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106042	1106266	
==>> [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 352 \"src/ops/experimental.ops\"\n    int typ = {{\@2}};\n    if (typ < 1 || typ >= in <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	3929	4094	
==>{
	bless {
		text    => $_[1],
		parser  => $_[2],
		prev    => $_[3]?1:0,
	      }, $_[0];
}

sub FETCH    
{
	my $parser = $_[0]->{parser};
	my $missing = $parser-> <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	2933	3095	
==>{
	bless {
		text    => $_[1],
		parser  => $_[2],
		prev	=> $_[3]?1:0,
	      }, $_[0];
}

sub FETCH    
{
	my $parser = $_[0]->{parser};
	my $from = $parser->{fu <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61015	61110	
==>erminal", $aftererror,$line);
			$item = new Parse::RecDescent::Token($1,'/',$3?$3:'',$lookahead <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1092936	1093230	
==>erimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "morph",
                  "FLAGS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093738	1094032	
==>erimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "morph",
                  "FLAGS <==
2	/Users/nnunley/parrot/config/init/hints/freebsd.pm	283	403	
==>read-stuff, if any
    $libs =~ s/(-lpthreads|-lc_r)\b\s*//g;

    # The following test is from FreeBSD's /usr/ports/Mk/b <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3484	3584	
==>t match. The same pattern argument syntax above applies here.

=cut

sub pgeglob_isnt {
    my ($targ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	2612	2711	
==>d text in the item's files is converted to HTML and
written to a file in C<$target> and an HTML link <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3246	3352	
==>y ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    while ( <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3350	3456	
==>y ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    while ( <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28801	28938	
==>) = @_;

    return 0 unless exists $self->{has_method}{$meth};
    my $n = $self->{has_method}{$meth};
    return $self->{methods}[$n]{'l <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2543	2657	
==>'$num' in opcode @{[$op->full_name]}"
        unless exists $arg_maps{$type};

    return sprintf($arg_maps{$type}, <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4409	4523	
==>'$num' in opcode @{[$op->full_name]}"
        unless exists $arg_maps{$type};

    return sprintf($arg_maps{$type}, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20513	20810	
==>"src/ops/core.ops\"\n  if ({{\@1}} == 0.0) {\n    {{+={{\@2}}}};\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	13519	13765	
==>.:.:.:.:.:.:.:.:.

sub parse_from_file {
  # An emulation of Pod::Parser's interface, for the sake of Perldoc.
  # Basically just a wrapper around parse_file.

  my($self, $source, $to) = @_;
  $self = $self->new unless ref($self); # so we tolerat <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	9335	9426	
==>dd_inst('','eq',[$cond,0,"FALSE_$label"]);
  $self->_restore($cond);
  $return = $self->_sav <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	878970	879276	
==>ine",
                  "CODE" => 996,
                  "ARGS" => [
                              "s",
                              "s",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 244 \"src/ops/string.ops\"\n  STR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443641	443929	
==>p_psp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444656	444944	
==>p_psp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	30324	30557	
==>> 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			"<=" => 85,
			'OR' => 84,
			"]" => 150,
			">" => 86
		}
	},
	{#State 98
		ACTIONS => {
			"," => 151,
			")" => 152
		}
	},
	{#Sta <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7838	7936	
==>n (string)"
i%=0
if i% then print "Should not happen (int)"
i%=54
if i% then print "This is true" e <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14825	14923	
==>n (string)"
i%=0
if i% then print "Should not happen (int)"
i%=54
if i% then print "This is true" e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	51728	51834	
==>"\n  if ({{\@1}} != 0) { Parrot_set_trace(interpreter,   {{\@1}}); }\n  else         { Parrot_clear_trace(i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52511	52617	
==>"\n  if ({{\@1}} != 0) { Parrot_set_trace(interpreter,   {{\@1}}); }\n  else         { Parrot_clear_trace(i <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	754	848	
==>bles directory. Defaults to '/usr/bin'.

=item C<libdir>

The library directory. Defaults to '/ <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	983	1077	
==>bles directory. Defaults to '/usr/bin'.

=item C<libdir>

The library directory. Defaults to '/ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	2311	2423	
==>op_block) {
    if (defined $name) {
      $self->SYNTAX_ERROR("No loop '%s' in loop control.", $name);
    } els <==
2	/Users/nnunley/parrot/config/auto/inline.pm	1289	1434	
==>o " if $verbose;
            $self->set_result('no');
            $test   = '';
        }
    }

    $conf->data->set(inline => $test);

    retur <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	4231	4429	
==>vices
            System.Web
            System.Xml
        /;
#             System.Windows.Forms ### XXX Removed - bugz0r
        my $code = "";
        foreach (@libs) {
            $code .= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8253	8394	
==>{
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9368	9509	
==>{
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621706	621824	
==>urrent_cont;\n\tif (PObj_get_FLAGS(ccont) & SUB_FLAG_TAILCALL) {\n\t    PObj_get_FLAGS(ccont) &= ~SUB_FLAG_TAILCALL;\n\ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36793	36905	
==>ss in $meth()");
        $ret
}

EOC
}

=back

=head2 Parrot::Pmc2c::delegate Instance Methods

=over 4

=cut

pa <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6921	7035	
==>.pmc")
          or die "pmc2c code generation failed ($?)\n";
    }
}

sub compile {
    my ($src_stem, $dest_stem <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7132	7246	
==>.pmc")
          or die "pmc2c code generation failed ($?)\n";
    }
}

sub compile {
    my ($src_stem, $dest_stem <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	22752	22874	
==>tmp( $parser, 'pmc', 'boolean' );
    push @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    pus <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20713	20807	
==>ple::PullParserEndToken>.

L<HTML::TokeParser>, which inspired this.

=head1 COPYRIGHT AND DISC <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1759	1859	
==>self );

		exists($$self{VERSION})
	and	$$self{VERSION} < $COMPATIBLE
	and	croak "Yapp driver ver <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1698	1794	
==>self );

		exists($$self{VERSION})
	and	$$self{VERSION} < $COMPATIBLE
	and	croak "Yapp driver ver <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	17678	17801	
==>ite $n
        # argument accesses and other things that make no sense in the
        # preamble.
        $_ = Parrot::Op->r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93325	93539	
==>\"\n  string_bitwise_and(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94105	94319	
==>\"\n  string_bitwise_and(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840188	840377	
==>preter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840883	841072	
==>preter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1769	1889	
==>ext   { $_[0]{'Thispara'} = ''   }

sub start_over_bullet  { ++$_[0]{'Indent'} }
sub start_over_number  { ++$_[0]{'Indent <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1337	1457	
==>ext   { $_[0]{'Thispara'} = ''   }

sub start_over_bullet  { ++$_[0]{'Indent'} }
sub start_over_number  { ++$_[0]{'Indent <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	2433	2569	
==>s/([^(]+)\s*\((.+)\);?/$2/ or die "Couldn't handle $proto";
    my $funcname = $1;
    $parms = $2;
    my @parms = split( /\s*,\s*/, $pa <==
2	/Users/nnunley/parrot/config/init/optimize.pm	994	1118	
==>EBUG=1 -DNDEBUG");
        if ($optimize eq "1") {
            # use perl5's value
	    # gcc 4.1 doesn't like -mcpu=xx, i.e. <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	23005	23139	
==>children of this node, but something about that seems icky.
      }
      if(ref $is) {
        my @dynasty = @$is;
        DEBUG > 4 a <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	2383	2485	
==>{ $FILES{$package} }, $entry;
}

while (my ($package, $files) = each %FILES) {
    my $manifest = "MANI <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14984	15102	
==>cape{$1}/g;  # ESCAPER
      s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
    }
    re <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16167	16285	
==>cape{$1}/g;  # ESCAPER
      s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
    }
    re <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	2041	2164	
==>t
        $self->set_result('no');
        return $self;
    }

    # if '--version' returns a string assume that this is bi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	725339	725601	
==>\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clone",
                  "FLAGS" = <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	2954	3083	
==>) -> a opt(R|S|T)
        # opt(aR|aS|bT) -> (a opt(R|S) | opt(bT))
        # opt(R|...) -> (opt(R)|opt(...)) (when R is not a seq <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	2546	2812	
==>) {
            my( $code, $expected, $desc, %extra ) = @_;

            Parrot::Test::convert_line_endings( $code );

            ## set a default description
            $desc = sprintf '(%s line %s)' => (caller())[1,2]
                unless $desc;

            my <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	26393	26514	
==>Generates the C implementation file code for the PMC. C<$out_name> is the name
of the output file we are generating.

=cut <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2338	2448	
==>}
sub end_head4       { $_[0]->emit_par(-1) }
sub end_Para        { $_[0]->emit_par( 0) }
sub end_item_bullet { <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1906	2016	
==>}
sub end_head4       { $_[0]->emit_par(-1) }
sub end_Para        { $_[0]->emit_par( 0) }
sub end_item_bullet { <==
2	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	1602	1704	
==>OF

} else { # !DEVELOPING

  print << "EOF";
/* fingerprint checking is only enabled in development ve <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	12848	12998	
==>pbcexe' . $PConfig{exe}, $test_no);  # Make cleanup and svn:ignore more simple
                my $exec_f = per_test( '_pbcexe', $test_no);  # Make cle <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	32934	33042	
==>hould do the ending.
    # Exit if plan() was never called.  This is so "require Test::Simple" 
    # doesn't <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	270197	270286	
==>=> "#line 854 \"src/ops/cmp.ops\"\n  {{\@1}} = (mmd_dispatch_i_pp(interpreter, {{\@2}}, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	144009	144491	
==>ore",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 176,
                  "ARGS" => [
                              "sc",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 84 \"src/ops/cmp.ops\" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	462539	462825	
==>DE" => 530,
                  "ARGS" => [
                              "n",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 322 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\ <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9797	9895	
==>of being the very first module written for Pugs.

It provides a simple set of common test utility f <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	23587	23712	
==>t>

    $Test->output($fh);
    $Test->output($file);

Where normal "ok/not ok" test output should go.

Defaults to STDOUT.

= <==
2	/Users/nnunley/parrot/tools/docs/write_docs.pl	502	597	
==>'delete' => \$delete);

my $docs = Parrot::Docs::Section::Parrot->new;

$docs->write_docs($silen <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	42598	42727	
==>n $return;
}

sub _format_columns {
  my $self    = shift;
  my $colref  = $self->{instruction};
  my @max_len = __max_lengths($co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	985949	986620	
==>FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1105,
                  "ARGS" => [
                              "i",
                              "i",
                              "s",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find <==
2	/Users/nnunley/parrot/lib/Test/More.pm	30871	31000	
==>$ok;
}


sub _whoa {
    my($check, $desc) = @_;
    if( $check ) {
        die <<WHOA;
WHOA!  $desc
This should never happen!  Pl <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7944	8100	
==>0] : undef;

            splice(@$stack,-$len,$len);

                $$check eq 'ACCEPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		and	prin <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7588	7736	
==>0] : undef;

            splice(@$stack,-$len,$len);

                $$check eq 'ACCEPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		and	prin <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	16910	17111	
==>urn $para->[1]{'~type'} = 'bullet';

  } elsif($content =~ m/^\s*\*\s+(.+)/s) {  # tolerance
  
    # Like: "=item * Foo bar baz";
    $para->[1]{'~orig_content'}      = $content;
    $para->[1]{'~_frea <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	11341	11447	
==>hey are still a
somewhat experimental feature in Pugs, it is suggested you don't try anything
too funky.

- <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	5868	6006	
==>e);
  my @stack;
  my $dont_wrap = 0;
  while($token = $self->get_token) {

    # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	943	1061	
==>_clean();
    }

    if ($test) {
        $conf->data->set(
            TEMP_cg_h => '$(INC_DIR)/oplib/core_ops_cg.h $( <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	29368	29536	
==>_numeric_p {
}

sub _op_char_whitespace_p {
}

sub _op_char_upper_case_p {
}

sub _op_char_lower_case_p {
}

sub _op_char_integer {
}

sub _op_integer_char {
}

sub _op_ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7458	7567	
==>t "No match\n"
FIN:
for i = 1 to 3
	on i gosub oats, peas, beans
next i
print
end
100 print "100!"
    goto FI <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19741	19850	
==>t "No match\n"
FIN:
for i = 1 to 3
	on i gosub oats, peas, beans
next i
print
end
100 print "100!"
    goto FI <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1600	1706	
==>last_seen ne 'inline') {
    $compiler->emit(".sub __INLINE_" . $inline++);
    $compiler->indent;
  }

  $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1398	1502	
==>last_seen ne 'inline') {
        $compiler->emit(".sub __INLINE_" . $inline++);
        $compiler->indent <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1638	1766	
==>~~~~~~~~~~~~~~~~
1;
__END__

=head1 NAME

Pod::Simple::SimpleTree -- parse Pod into a simple parse tree 

=head1 SYNOPSIS

  % ca <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10997	11090	
==>int chr($k), ' => ', $v, "\n";
  }
}

#------------------------------------------------------- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862262	862527	
==>inline",
                  "CODE" => 978,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 138 \"src/ops/string.ops\"\n  {{\@1}} = string_length(inter <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	23993	24174	
==>ode = run_command($cmd,
                                     'STDOUT' => $build_f,
                                     'STDERR' => $build_f);
            $builder->diag("'$cmd' fail <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	24754	24935	
==>ode = run_command($cmd,
                                     'STDOUT' => $build_f,
                                     'STDERR' => $build_f);
            $builder->diag("'$cmd' fail <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	496835	497004	
==>",
                              "n"
                            ],
                  "BODY" => "#line 595 \"src/ops/math.ops\"\n  {{\@1}} = floatval_mod({{\@2}}, {{\@3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	497705	497874	
==>",
                              "n"
                            ],
                  "BODY" => "#line 595 \"src/ops/math.ops\"\n  {{\@1}} = floatval_mod({{\@2}}, {{\@3}} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	12377	12508	
==>" => 16
		},
		DEFAULT => -28,
		GOTOS => {
			'rulename' => 17
		}
	},
	{#State 4
		DEFAULT => -11
	},
	{#State 5
		DEFAULT => -28, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1997	2093	
==>ver_bullet  { --$_[0]{'Indent'} }
sub   end_over_number  { --$_[0]{'Indent'} }
sub   end_over_tex <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1565	1661	
==>ver_bullet  { --$_[0]{'Indent'} }
sub   end_over_number  { --$_[0]{'Indent'} }
sub   end_over_tex <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1092943	1093238	
==>al" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "morph",
                  "FLAGS" => "", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093745	1094040	
==>al" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "morph",
                  "FLAGS" => "", <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17169	17286	
==>ring a $para_type paragraph, given the stack: (",
      $self->_dump_curr_open(), ")\n";
    
    if($para_type eq '=f <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	3618	3725	
==>f ($text =~ m{^([\[\]])(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, $1 eq '[' ? 'op <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3840	3931	
==>ze(32);
  $new->head2_halfpoint_size(28);
  $new->head3_halfpoint_size(25);
  $new->head4_ha <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	15252	15355	
==>"
    gen_pir = concat "$P1000001 = cur_exception[\"obj\"]\n"
    class_type = eh.get_class_type()
    c <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	3731	4239	
==>self->blocks) == 1;

  return pop @{$self->{BLOCKS}};
}


###############################################################################
###############################################################################
##
## MAIN PROGRAM
##
###############################################################################
###############################################################################


#
# Tokenize the input, and possibly dump the tokens.
#

sub parse
{
  my $self = shift;

  my $root = $sel <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	2332	2440	
==>--bindir=/usr/parroty/bin, then the generated
parrot-<VERSION>-1.<arch>.rpm file will contain the file
/usr/p <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1231	1342	
==>_count == 0) {
          $path_to_language = File::Spec->join('languages', $language);
        } elsif ($dir_cou <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1716	1827	
==>_count == 0) {
          $path_to_language = File::Spec->join('languages', $language);
        } elsif ($dir_cou <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441592	441704	
==>@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442607	442719	
==>@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4}}, NULL, {{\@1}});\n  {{+=5}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	55	363	
==>/basic.pl 11512 2005-10-12T02:11:40.290517Z coke  $
# $Log: basic.pl,v 
# Revision 1.11  2002/06/16 21:23:28  clint
# Floating Point BASI
#
# Revision 1.10  2002/06/03 03:51:53  clintp
# Minor edits for compilation
#
# Revision 1.9  2002/06/01 18:23:01  clintp
# For new assembler
#
# Revision 1.8  2002/05/25 <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	9944	10065	
==>.lines.html#$function">@{[$function_line_coverage{$source_file}{$function} ? "$function_line_coverage{$source_file}{$funct <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	2821	2949	
==>=> \$cfg{bench_path},
    'list'         => \$cfg{list_only},
    'time'         => \$cfg{use_times},
    'help|?'       => \$cfg <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27332	27469	
==>r,
        'result' => $l_continue,
    );
    push @opcodes, new LabelOp( $parser,
        'arg1' => $l_break,
    );
    return \@ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28211	28348	
==>r,
        'result' => $l_continue,
    );
    push @opcodes, new LabelOp( $parser,
        'arg1' => $l_break,
    );
    return \@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327128	327382	
==>reter, {{\@1}}, (INTVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327930	328184	
==>reter, {{\@1}}, (INTVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	13242	13653	
==>=> $path_to_parrot,
                            STDOUT => $out_f,
                            STDERR => $out_f);
                if ( -e $pbc_f ) {
                    run_command(qq{$parrot $args -o $o_f "$pbc_f"},
                                CD     => $path_to_parrot,
                                STDOUT => $out_f,
                                STDERR => $out_f);
                    if ( -e $o_f ) { <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4877	4983	
==>bs) = 
        gather_groups_and_libs(@pmcs);
    my @ungrouped_pmcs = grep { ! exists $pmc_group->{$_} } @ <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4981	5087	
==>bs) = 
        gather_groups_and_libs(@pmcs);
    my @ungrouped_pmcs = grep { ! exists $pmc_group->{$_} } @ <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	826	922	
==>d by config/gen/core_pmcs.pm
 */

/* &gen_from_enum(pmctypes.pasm) subst(s/enum_class_(\\w+)/\$1/ <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	13433	13556	
==>_ref},
            "t_$temp_num = GET_NCI_S($reg_num);";
        return "t_$temp_num";
    };
}

sub print_function {
    my <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	12371	12568	
==>al variable
                my $global = get_global($parser);
                push @opcodes, @{ $global->[1] };
                my $key = BuildLiteral( $parser, $idf, 'key' );
                pu <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	3653	3769	
==>The class 'does' the given interfaces (the collection of methods
which the class implements).

The default is "scalar <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8087	8202	
==>y($name, $number);
  while( ($name, $number) = each %Name2character_number) {
    if($] < 5.007  and  $number > 255) <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_assignments.pm	358	478	
==><ASS_FUNC;
	new P0, .PerlArray
	set P0[.TYPE], "BARE"
	set P0[.VALUE], "$varname"
	bsr ASSIGNMENT	# Do this type manually <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78970	79066	
==>n\n  void * const p = Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? NULL : PMC_data({{\@2}}), name);\n  str <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80491	80587	
==>n\n  void * const p = Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? NULL : PMC_data({{\@2}}), name);\n  str <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	69148	69260	
==>se::RecDescent::compiling)
	{
		my $code = $self->_code();
		if (defined $::RD_TRACE)
		{
			print STDERR "printi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	147729	148191	
==>=> ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 180,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic"
                            ],
                  "BODY" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641269	641476	
==>ARGS" => [
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 189 \"src/ops/pmc.ops\"\n  {{\@1}} = {{\@2}}->vtable->type(int <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	157108	157611	
==>=> ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 190,
                  "ARGS" => [
                              "sc",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 134 \"src/ops/cmp.ops\"\n  if ( <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	57605	57923	
==>e("$code",$line);
				$aftererror = !$commitonly;
			}
			elsif (do { $commitonly = $1;
					 ($code) = extract_bracketed($grammar,'<');
					$code })
			{
				if ($code =~ /^<[A-Z_]+>$/)
				{
					_error("Token items are not yet
					supported: \"$code\"",
					       $line);
					_hint("Items like $code that consis <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	5334	5503	
==>^%]+)% of (\d+) calls executed in file/;
            if ($total_calls) {
                my $covered_calls = int(($percent/100) * $total_calls);
                $totals{c <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	3518	3646	
==>rn (@null, keys %$start);
}

# Defaults
sub minlen { confess "unimplemented" }
sub maxlen { confess "unimplemented" }
sub startse <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7137	7227	
==>"$"
${STEMP0} = ${LOADTYPE}["reg_type_short"]
${DEST0} = concat ${STEMP0}
${STEMP0} = stack <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4959	5049	
==>"$"
${STEMP0} = ${LOADTYPE}["reg_type_short"]
${DEST0} = concat ${STEMP0}
${STEMP0} = stack <==
2	/Users/nnunley/parrot/config/gen/icu.pm	4703	4815	
==>se;
        $conf->data->add(' ', ccflags => "-I $icuheaders");
    }
    cc_clean();

    $self->set_result("yes <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3325	3436	
==>props;

  if (exists $props{fn} or exists $props{fnlib}) {
    my $fnlib;

    if (exists $props{fnlib} and $pro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1098823	1099080	
==>DE" => 1218,
                  "ARGS" => [
                              "n",
                              "n",
                              "i"
                            ],
                  "BODY" => "#line 296 \"src/ops/experimental.ops\"\n    FLOATVA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	331224	331557	
==>ase_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 389,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 40 \"src/ops/io.ops\ <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	2487	2646	
==>catdir( $FindBin::Bin , 'parrotbench.conf' ),
    bench_path   => undef,
    list_only    => undef,
    use_times    => undef,
    display_help => undef,
    me <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683636	683851	
==>ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 522 \"src/ops/pmc.ops\"\n    {{\@1}} = {{\@2}}->vtable->shift_pmc(inte <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	933238	933517	
==>s"
                            ],
                  "BODY" => "#line 420 \"src/ops/string.ops\"\n  string_upcase_inplace(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Pa <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	3661	3833	
==>is: ",
          defined($lines[-1]) ? $lines[-1] : "<undef>\n";
        unless( defined $lines[-1] ) {
          DEBUG and print "That's it for that source fh!  Killing.\n" <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	720	817	
==>rd option to the C<use> line.
C<arguments> should be an array reference containing additional argu <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	8973	9274	
==>Push the top of the stack onto the function's call stack"
		# No-arg funcs are simply left alone.
		if ($argthing) {
			push(@expr, [ "STARTARG", "STARTARG" ] );
		}
	}
	return (@expr);
}
sub get_expression {
	my(%opts)=@_;
	my $parens;
	my @expr;

	goto PROCEXP_NOFEED if $opts{lhs};
	goto PROCEXP_NOF <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	13619	13793	
==>f $this matches the given $regex.

You'll want to avoid qr// if you want your tests to work before 5.005.

=item B<unlike>

  $Test->unlike($this, qr/$regex/, $name);
  $Test- <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	1208	1374	
==>eclarations file',
	'def' => 'Library definitions file',
	'dev' => 'Development documentation',
	'dump' => 'Dump file',
	'el' => 'eMacs Lisp code',
	'exp' => 'Perl6 ex <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	4362	4457	
==>sentation and generate Parrot Assembler Code.
Pass unless the generated PASM is $expected.

=ite <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	1336	1474	
==>elf;
    }

    cc_gen('config/auto/sizes/test_c.in');
    cc_build();
    my %results = eval cc_run();
    cc_clean();

    for (keys %res <==
2	/Users/nnunley/parrot/config/init/hints/netbsd.pm	204	322	
==>/-pthread/) {
        $ccflags .= ' -pthread';
    }
    $conf->data->set(ccflags => $ccflags);

    my $libs = $conf-> <==
2	/Users/nnunley/parrot/config/init/hints/openbsd.pm	296	414	
==>/-pthread/) {
        $ccflags .= ' -pthread';
    }
    $conf->data->set(ccflags => $ccflags);

    my $libs = $conf-> <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	204	379	
==>say 'hello, world!';
    CODE
    hello, world!
    OUTPUT

    perl6_stderr_like($code, qr/$expected/, $desc);

    perl6_stdout_isnt($code, qr/$expected/, $desc);

=head1 DES <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	699	798	
==>e \'s in, which qq[] treats as escape sequences.
# Config stuff
our $CC = qq[/usr/bin/gcc-4.0 -c];
o <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	703	802	
==>e \'s in, which qq[] treats as escape sequences.
# Config stuff
our $CC = qq[/usr/bin/gcc-4.0 -c];
o <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	47510	47698	
==>@4-4', 0,
sub
#line 120 "Lua\lua51.yp"
{
            PushScope( $_[0] );
        }
	],
	[#Rule 18
		 'stat', 7,
sub
#line 124 "Lua\lua51.yp"
{
            BuildIf( $_[0], $_[1], <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	617465	617561	
==>tion)(interpreter, left, right);\n\t{{+=4}};\n    }\n    if (mic->pic) {\n\tlru = mic->pic->lru;\ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3741	3899	
==>ister_num:
dec stack_depth
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$register_num++;
	}
    
    # If there are going to be any pushes, need to do any <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5515	5627	
==>ister_num:
dec stack_depth
PIR
		$pir =~ s/\$register_num/$register_num/g;
		$register_num++;
	}

    # Need to e <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1218	1313	
==>is.

=item $token->tag(...)

A shortcut for $token->tagname(...)

=item $token->is_tag(I<somestr <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1648	1743	
==>is.

=item $token->tag(...)

A shortcut for $token->tagname(...)

=item $token->is_tag(I<somestr <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	862	989	
==>s C<Parrot::IO::File>.

=cut

sub file_class
{
    return 'Parrot::IO::File';
}

=item C<directory_with_path($path)>

Returns th <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	2096	2289	
==>} elsif ($meta{lib}) {
        $entry = "$options{libdir}/$dest";
    } elsif ($meta{bin}) {
        $entry = "$options{bindir}/$dest";
    } elsif ($meta{include}) {
        $entry = "$options{ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	24066	24291	
==>0];
      my $maps = (keys %{$self->{flags}{maps}})[0];
      $cout .= <<"EOC";

        {
            /* Register this PMC as a HLL mapping */
            INTVAL pmc_id = Parrot_get_HLL_id(
                interp, const_strin <==
2	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	681	773	
==>1 SEE ALSO

F<examples/benchmarks/stress.pasm>, 
F<examples/benchmarks/stress.pl>, 
F<example <==
2	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	528	620	
==>1 SEE ALSO

F<examples/benchmarks/stress.pasm>, 
F<examples/benchmarks/stress.pl>, 
F<example <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	1533	1761	
==>ontain Pod -- it is just for Pod, plus possibly
#  some extensions.

# @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
#@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
#@@ <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	3975	4094	
==>R',             'Rating() get'   );
    ok( $btaste->NumExplodingSheep == 1,        'NumExplodingSheep() get' );

It wil <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5825	6132	
==>elf->{args}->[0];
    } else {
        return $self;
    }
}

sub minlen {
    my $op = shift;
    my $min;
    foreach (@{ $op->{args} }) {
        my $len = $_->minlen();
        $min = $len if (! defined $min) || ($min > $len);
    }
    return $min || 0;
}

sub maxlen {
    my $op = shift;
    my $max = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	42292	42396	
==>sers;
}

#--------------------------------------------------------------------------

sub _verbatim_forma <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088878	1088973	
==>imental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089826	1089921	
==>imental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interpreter, {{\@2}}, {{\@3}}, 0);\n    {{+= <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	60328	60434	
==>le("production",$line);
			$aftererror = 0;
		}
		elsif ($grammar =~ m/$LITERAL/gco)
		{
			($code = $1) =~ <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1183	1476	
==>Estimated ops: "
                              # print  I5
                              # print  "\n"
                              #
$N1 = time_hires();           # time N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, I4, I3 <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1183	1476	
==>Estimated ops: "
                              # print  I5
                              # print  "\n"
                              #
$N1 = time_hires();           # time N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, I4, I3 <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	43357	43455	
==>self, $class;
	shift;
	return $self->Replace(@_)
}

sub Compile($$$$) {

	die "Compilation of Parse <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	298481	298767	
==>"CODE" => 347,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 970 \"src/ops/cmp.ops\"\n  {{\@1}} = ({{\@2}} == {{\@3}}) ? 0 : 1;\n  { <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1709	1838	
==>en->output($list_regex->{code}, $ctx);
}

sub compile {
    my ($expr, $ctx, $pass_label, $fail_label, %options) = @_;

    $optio <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	33	134	
==>DumpAsText;
$VERSION = '2.02';
use Pod::Simple ();
BEGIN {@ISA = ('Pod::Simple')}

use strict;

use Ca <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	1413	1635	
==>)
			unless @ARGV == 2;

		my ($sourcefile, $class) = @ARGV;

		open IN, $sourcefile
			or _die("Can't open grammar file '$sourcefile'");

		my $grammar = join '', <IN>;

		Parse::RecDescent->Precompile($grammar, $class, $s <==
2	/Users/nnunley/parrot/config/inter/charset.pm	1636	1781	
==>t${slash}/g;

    $conf->data->set(
        charset            => $charset_list,
        TEMP_charset_o     => $TEMP_charset_o,
        TEMP_chars <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6311	6430	
==>uire('type');          }

sub require_value         { return shift->require('ident', 'literal'); }


#
# skip()
#
# Skip <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1214	1330	
==>space}");
      $compiler->indent;
      $self->SUPER::compile($compiler);
      $compiler->outdent;
      $compiler- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	622	730	
==>space}");
    $compiler->indent;
    $self->SUPER::compile($compiler);
    $compiler->outdent;
    $compiler- <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	746	865	
==>todo)>

Runs the target string against the Perl 6 pattern, passing the test
if they match.  Note that patterns should be <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2844	2963	
==>todo)>

Runs the target string against the Perl 6 pattern, passing the test
if they match.  Note that patterns should be <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21132	21231	
==>tness for a particular purpose.

=head1 AUTHOR

Sean M. Burke C<sburke@cpan.org>

=cut



JUNK:

sub <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	5336	5475	
==>served that the
main problem is not dealing with these edge cases but that people hate
to write tests B<at all>.  What was needed was a dead <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4055	4160	
==>{
    my ($target, $pattern) = (shift, shift);

    unshift @_ => Parrot::Test::PGE::_generate_glob_for($t <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	4000	4106	
==>e errors occurred.\nYou can generally ignore them:\n";
#    foreach (sort keys %all_errors) {
#        prin <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	6622	6746	
==>tring then this will return all
the files with no suffix.

=cut

sub files_with_suffix
{
    my $self = shift;
    my $suffix <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17446	17582	
==>32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 42
		ACTIONS => {
			'NAME' => 96
		}
	},
	{#State 43
		DEFAULT => -89 <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	113	239	
==>-30T13:32:26.641316Z coke  $

=head1 NAME

examples/mops/mops.c - Calculate M ops/s

=head1 SYNOPSIS

    % perl examples/mops/ <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	109	235	
==>-30T13:32:26.641316Z coke  $

=head1 NAME

examples/mops/mops.c - Calculate M ops/s

=head1 SYNOPSIS

    % perl examples/mops/ <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	6839	7011	
==>mproper indenting for \"$_\" (should be \"#$indent$2 $3\")\n");
            }
            push @stack, "#$2 $3";

            next;
        }
        if (/^\s*\#(\s*)(else|e <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	34667	34847	
==>"non-delimiter") bracket in the substring is ignored.

For example, given the string:

	$text = "{ an '[irregularly :-(] {} parenthesized >:-)' string }";

then a call to C<extract_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449332	449418	
==>0 \"src/ops/math.ops\"\n  {{\@1}}->vtable->i_absolute(interpreter, {{\@1}});\n  {{+=2}} <==
2	/Users/nnunley/parrot/config/auto/memalign.pm	1233	1446	
==>else {
        $conf->data->set(ptrcast => 'long');
    }

    cc_gen('config/auto/memalign/test_c.in');
    eval { cc_build(); };
    unless ($@ || cc_run_capture() !~ /ok/) {
        $test = 1;
    }
    cc_clean <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	3932	4104	
==>n
about the path.

=cut

sub stat
{
    my $self = shift;
    
    return File::stat::stat($self->path);
}

=item C<delete()>

Removes the instance from the cache, and undef <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	1932	2072	
==>p->{op} $op->{result}->{symbol}, $op->{arg2}->{symbol}\n";
        }
        else {
            print {$FH}
                "  $op->{resu <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	18456	18701	
==>or example, suppose you have a document that starts out:

  =head1 NAME
  
  Hoo::Boy::Wowza -- Stuff B<wow> yeah!

$parser->get_title on that document will return "Hoo::Boy::Wowza --
Stuff wow yeah!".

In cases where get_title can't find the tit <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	18937	19050	
==>or example, suppose you have a document that starts out:

  =head1 NAME
  
  Hoo::Boy::Wowza -- Stuff B<wow> yeah! <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	4034	4302	
==>ary
    ref      : PMC that references another PMC
    string   : PMC that behaves similarly to the base string type
    boolean  : PMC that does true/false only.
    integer  : PMC that behaves similarly to the base int type
    float    : PMC that behaves similarly t <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	3966	4126	
==>doc flag.
            $rule->{$heredoc_key} = $heredoc_value;
            $in_heredoc = 0;
        }

        # Is this heredoc content?
        elsif ($in_hered <==
2	/Users/nnunley/parrot/lib/Test/More.pm	8519	8623	
==>ot check if C<exists $brooklyn{tree}> is true, it checks if
it returns 1.  Very different.  Similar cavea <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20602	20750	
==>scribe { undef }

sub sethashname { $_[0]->{hashname} = '__ACTION' . ++$_[1]->{actcount} .'__'; }

sub new
{
	my $class = ref($_[0]) || $_[0];
	bless <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	8523	8713	
==>( $_ ) for (@{$command});

    if( $chdir ) {
        chdir $orig_dir;
    }

    my $exit_code = $? >> 8;

    close STDOUT             or die "Can't close    stdout" if $out;
    close STDE <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9297	9410	
==>rement stack height.
dec stack_depth
PIR
	}

	return $pir;
}

# Pre and post call hooks.
sub pre_call {
    my $se <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6815	6928	
==>rement stack height.
dec stack_depth
PIR
	}

	return $pir;
}

# Pre and post call hooks.
sub pre_call {
    my $se <==
2	/Users/nnunley/parrot/tools/dev/cc_flags.pl	1776	2127	
==>ct_point = $where;
} else {
  $inject_point = 1;
}

foreach my $option (@options) {
    if ($cfile =~ $option->[0]) {
        if ($option->[1] eq '+') {
            splice @ARGV, $inject_point, 0, $option->[2];
        }
        elsif ($option->[1] eq '-') {
            @ARGV = grep { $_ ne $option->[2] } @ARGV;
        }
        else {
            f <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	5923	6022	
==>(SVN|icu)$');

will give you all the suffixes used in Parrot ignoring all SVN and ICU
files.

Note t <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	13469	13593	
==>ect, $name);
}


=item B<like>

  $Test->like($this, qr/$regex/, $name);
  $Test->like($this, '/$regex/', $name);

Like Test: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1091	1218	
==>FILE   => $ident->file,
    LINE   => $ident->line,
  }, $class;

  #
  # Check for a few bad conditions.
  #
  # NOTE: These ar <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	994	1121	
==>FILE   => $ident->file,
    LINE   => $ident->line,
  }, $class;

  #
  # Check for a few bad conditions.
  #
  # NOTE: These ar <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2562	2726	
==>rn "{ opcode_t *dest = (opcode_t*)pop_dest(interpreter);
              cur_opcode = (opcode_t*)opcode_to_prederef(interpreter, dest);
	      goto SWITCH_AGAIN; }";
} <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	5212	5332	
==>ount" => 0,
				"opcount"  => 0,
				"vars"	   => "",
			}, $class;
	}
}

sub reset($)
{
	@{$_[0]->{"prods"}} = ();
	@{$_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178611	178889	
==>> 213,
                  "ARGS" => [
                              "sc",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 240 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}} <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9433	9564	
==>+$$nberror;

        };

			$$errstatus == 3	#The next token is not valid: discard it
		and	do {
				$$token eq ''	# End of in <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9009	9134	
==>+$$nberror;

        };

			$$errstatus == 3	#The next token is not valid: discard it
		and	do {
				$$token eq ''	# End of in <==
2	/Users/nnunley/parrot/lib/Test/More.pm	8475	8580	
==>, 'A tree grows in Brooklyn' );

This does not check if C<exists $brooklyn{tree}> is true, it checks if
it <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	15509	15682	
==>hat started near line
			 $next->{line}. Did you forget the closing '>'?");
	    }
	}
	return 1;
}

sub enddirective
{
	my ( $self, $line, $minrep, $maxrep ) = @_;
	unless ($ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	600	709	
==>ess defined $left;
  confess "Op is not defined!" unless defined $op;
  confess "Right is not defined!" unless <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	612	721	
==>ess defined $left;
  confess "Op is not defined!" unless defined $op;
  confess "Right is not defined!" unless <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	34660	34812	
==>" => 82
		},
		DEFAULT => -59
	},
	{#State 126
		ACTIONS => {
			"-" => 72,
			"%" => 76,
			"*" => 80,
			".." => 71,
			"+" => 75,
			"^" => <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	20733	20829	
==>g);

Normally, Test::Builder does some extra diagnostics when the test
ends.  It also changes the <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	314747	314850	
==>f({{\@1}} >= -128 && {{\@1}} <= 127) {\n    {{\@1}} = (INTVAL)((signed char)({{\@1}}));\n  }\n  else {\n <==
2	/Users/nnunley/parrot/languages/scheme/Scheme.pm	205	355	
==>r();
use Scheme::Builtins;

=head1 SUBROUTINES

=head2 new

A constructor

=cut

sub new {
  my ($class, $file) = @_;

  bless { file => $file },$class <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	8982	9066	
==>mismatch at \"$source->[$mismatch_at]\" (should be \"$end_boilerplate[$mismatch_at]\" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630576	630684	
==>rpreter, NULL, NO_CLASS,\n            \"Class '%Ss' not found\", readable_name(interpreter, class));\n    {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631566	631674	
==>rpreter, NULL, NO_CLASS,\n            \"Class '%Ss' not found\", readable_name(interpreter, class));\n    {{\ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33242	33407	
==>$var,
            'arg1'   => $nil->[0],
        );
        push @return1, $var;
    }
    else {
        push @opcodes2, @{ $expr->[1] };
        push @opcode <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2894	3039	
==>+ (?:\S+ \s+)? \{ \n     # optional test harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (? <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4291	4436	
==>+ (?:\S+ \s+)? \{ \n     # optional test harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (? <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	10744	10857	
==>r.pmc resizablebooleanarray.pmc resizablefloatarray.pmc resizableintegerarray.pmc resizablepmcarray.pmc resizables <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3390	3543	
==>es) {
        my @pmcfiles = map { "$_.pmc" } @$pmcs;
        if (needs_build("$group.c", @pmcfiles)) {
            run("$PMC2C --library $group --c " . j <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3494	3647	
==>es) {
        my @pmcfiles = map { "$_.pmc" } @$pmcs;
        if (needs_build("$group.c", @pmcfiles)) {
            run("$PMC2C --library $group --c " . j <==
2	/Users/nnunley/parrot/config/auto/headers.pm	172	271	
==>ders

=head1 DESCRIPTION

Probes for various C headers.

=cut

package auto::headers;

use strict;
u <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	840	928	
==>SAL::isa($ident, qw(Jako::Construct::Expression::Value::Identifier));

  my $self = bless <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	804	892	
==>SAL::isa($ident, qw(Jako::Construct::Expression::Value::Identifier));

  my $self = bless <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630486	630586	
==>AL type = pmc_type_p(interpreter, class);\n    if (type <= 0)\n        real_exception(interpreter, NU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631476	631576	
==>AL type = pmc_type_p(interpreter, class);\n    if (type <= 0)\n        real_exception(interpreter, NU <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2261	2360	
==>);

=item C<access_arg($type, $value, $op)>

Returns the C code for the specified op argument type ( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	10844	11142	
==>:Value::Identifier->new($block, $token);
      my $op    = $self->forth->text;

      $self->require_semicolon;

      if ($op eq '++') {
        my $inc = Jako::Construct::Statement::Increment->new($block, $ident);
      }
      else {
        my $dec = Jako::Construct::Statement::Decrement->new($ <==
2	/Users/nnunley/parrot/config/auto/jit.pm	2251	2377	
==>orking = (
	i386 => 1,
	ppc  => 1,	
	# all others are seriously b0rked
    );

    if (-e "$jitbase/$cpuarch/core.jit" && $jit_ <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	324	494	
==>]
 $ perl tools/build/ops2pm.pl [--renum]  input.ops [input2.ops ...]

=head1 DESCRIPTION

Reads the ops files listed on the command line and outputs a
C<Parrot::OpLib::co <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10579	10707	
==>ection .= '') ) 
    {
        $section =~ tr/ /_/;
        $section =~ tr/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
        $sect <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3974	4084	
==>ection .= '')) {
    $section =~ tr/ /_/;
    $section =~ tr/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
    $sect <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	979	1090	
==>s C<new()> method.

=cut

sub new_item
{
    my $self = shift;
    
    return Parrot::Docs::Item->new(@_);
}

= <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	10175	10335	
==>ackup, $num_groups, $startup) = @_;
    my @ops;
#    if ($name ne 'default') {
#     @ops = split(/\n/, <<"END");
# sub _rule_$name {
#     my <rx_mode> = shift <==
2	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	120	247	
==>ed, as judged by their checksums.

=head1 USAGE

  rebuild.pl [-v] <command> <input> <outputs>...

=head1 DISCUSSION

This scrip <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	360	465	
==>t;

use Carp;

use base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $ide <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	360	465	
==>t;

use Carp;

use base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $ide <==
2	/Users/nnunley/parrot/languages/pugs/t/pmc.pm	191	362	
==>'no_plan';
use Test::More;

sub import {
    my $class = shift;

    my (undef, $file, undef) = caller();
    $file =~ /(\w+)\.t$/ or die "malformed file: $file";
    my $t <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12593	12743	
==>my $self = shift;
    my $module = shift;
    
    # This is not very obvious, so let me explain. We get the file
    # for the module, then we take it <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	15813	16027	
==>("    '$regex' doesn't look much like a regex to me.");
        return $ok;
    }

    {
        local $^W = 0;
        my $test = $this =~ /$usable_regex/ ? 1 : 0;
        $test = !$test if $cmp eq '!~';
        $o <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	3823	3925	
==>ype->name) {
#    $self->DEBUG(0, "   ...converting left...");
    my $temp = $compiler->temp_reg($calc <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	2639	2798	
==>fined($ignorePattern) && /$ignorePattern/;
        $sum += unpack("%32C*", $_);
    }
    close($file) or die "Can't close $filename: $!";
    return $sum;
}

= <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	786	912	
==>on item.

=cut

sub c_source_item
{
    my $self = shift;

    return $self->c_item(shift, 'sources' => [@_]);
}

=item C<c_pai <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	695	809	
==>alue::Identifier');

  my $self = bless {
    BLOCK => $block,
    IDENT => $ident
  }, $class;

  $block->push_con <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	695	809	
==>alue::Identifier');

  my $self = bless {
    BLOCK => $block,
    IDENT => $ident
  }, $class;

  $block->push_con <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	969	1111	
==>t_name = $self->ident->value;

  my $ident = $self->ident->compile($compiler);

  $compiler->emit("  inc $ident");

  if (($self->ident->kind e <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	971	1071	
==>t_name = $self->ident->value;

  my $ident = $self->ident->compile($compiler);
  
  $compiler->emit(" <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	32131	32285	
==>tarts} || {} }) {
        push @ops, aop('setstart' => [ $group, -2 ]);
    }

    foreach $group (sort keys %{ $self->{_setup_ends} || {} }) {
        pus <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	5447	5556	
==>s"}  = "";
}

sub DESTROY {}

sub hasleftmost($$)
{
	my ($self, $ref) = @_;

	my $prod;
	foreach $prod ( @{$se <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	567	783	
==>=3;
        $#syms=3;
}
sub barf {
	unshift(@tokdsc, shift(@type));
	unshift(@tokens, shift(@syms));
	push(@type, "");
	push(@type, "");
}
sub dumps {
	print "$syms[PREV] $type[PREV] \tprevious\n";
	print "$syms[CURR] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614831	614933	
==>.ops\"\n    opcode_t *next = {{^+4}};\n    INTVAL offset;\n    offset = Parrot_class_offset(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615982	616084	
==>.ops\"\n    opcode_t *next = {{^+4}};\n    INTVAL offset;\n    offset = Parrot_class_offset(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	21261	21535	
==>PASM',
                    past => 'PAST',
                    pir  => 'PIR',
                    imc  => 'PIR', );

            my ( $extension ) = $example_f =~ m{ [.]                         # introducing extension
                                                 ( pasm | <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	7293	7402	
==>t_fh'}} "<a\n>";
    }
    
    $self->unget_token(@to_unget);
}

=item C<process_data_start_token($token)>

P <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	12435	12533	
==>urce for parse_file");
  } elsif(ref(\$source) eq 'GLOB') {
    $self->{'source_filename'} = '' . ( <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	810	909	
==>=head1 USAGE

=head2 Import Parameters

This module accepts no arguments to it's C<import> method an <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	439	538	
==>=head1 USAGE

=head2 Import Parameters

This module accepts no arguments to it's C<import> method an <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	1947	2151	
==>, $op) = @_;
    if ($op->{non_reentrant}) {
        # Mark this variable as needing to be preserved across rule calls
        push @{ $self->{rxlocals} }, @{ $op->{rxlocals} };
        return ();
    } el <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	12387	12534	
==>n = vtable_num($2);
            #print $op->full_name .": $jit_func $extern\n";
        }
        # some specials
        elsif ($op->full_name eq ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	590892	591371	
==>" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 671,
                  "ARGS" => [
                              "p",
                              "k",
                              "k"
                            ],
                  "BODY" => "#line 325 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813285	813584	
==>}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_cor <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12663	12885	
==>(\s*(.*?)\)      # capture argument list
     /"pmc->vtable->$1(" . full_arguments($2) . ')'/xeg;

    # Rewrite DYNSELF(args...). See comments above.
    s/DYNSELF           # Macro: DYNSELF
      \(\s*(.*?)\)      # captu <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	2611	2716	
==>r',   # whether to complain to stderr

  'doc_has_started',   # whether we've fired the open-Document even <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	811	937	
==>th paren match" ],
    [ "delete(n)" => "delete record of n-th paren match" ],

    [ "goto(label)" => "unconditional jump to l <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	2958	3099	
==>ed.

=cut

sub suffix
{
    my $self = shift;
    
    return $self->{SUFFIX} if exists $self->{SUFFIX};
    
    my ($suffix) = $self->name = <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	4565	4703	
==>gory->($_)} }, $_ for @smokes;

  $cats{$_} = [
    (sort {
      $b->{revision} <=> $a->{revision} ||
      $b->{timestamp}[0]  <=> $a->{t <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	4890	4991	
==>eason?, :$depends) returns Bool is export {
    Test::proclaim(1, "", "skip $reason", :$depends);
}

m <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10835	11021	
==>4,/* 59 */
II,$b,$c,$d,$a,$_[17],21,0x4e0811a1,/* 60 */
II,$a,$b,$c,$d,$_[8],6,0xf7537e82,/* 61 */
II,$d,$a,$b,$c,$_[15],10,0xbd3af235,/* 62 */
II,$c,$d,$a,$b,$_[6],15,0x2ad7d2bb,/* 63 */ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	33433	33717	
==>JUMP" => 0,
                  "NAME" => "set_addr",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	34221	34505	
==>JUMP" => 0,
                  "NAME" => "set_addr",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	50902	51039	
==>ket is useful
in some circumstances. For example, in the Parse::RecDescent module,
parser actions which are to be performed only on a succ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	23614	23786	
==>ared : $libparrot_static;

            my $iculibs = "";
            if ($PConfig{'has_icu'}) {
                $iculibs = $PConfig{icu_shared};
            }

            m <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	437	538	
==>/Driver.pm file----------------------------------------
{
#
# Module Parse::Yapp::Driver
#
# This <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	426	522	
==>/Driver.pm file----------------------------------------
{
#
# Module Parse::Yapp::Driver
#
# This <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	30112	30259	
==>push @opcodes, new LabelOp( $parser,
        'arg1' => $lbl_or,
    );
    push @opcodes, new BranchUnlessOp( $parser,
        'arg1'   => $_var <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612954	613052	
==>line 496 \"src/ops/object.ops\"\n    VTABLE_set_attr_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613861	613959	
==>line 496 \"src/ops/object.ops\"\n    VTABLE_set_attr_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9632	9748	
==>t STDERR "**At eof: aborting.\n";
				return(undef);
			};

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Dic <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9199	9310	
==>t STDERR "**At eof: aborting.\n";
				return(undef);
			};

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Dic <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	109	244	
==>ject to the same license
# as the Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Processor.pm 19606 2006-05-30T15:08:05.04 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	200	329	
==>Jako/Construct/Expression/Value/Identifier.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

use C <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800557	800694	
==>"s"
                            ],
                  "BODY" => "#line 467 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed(inter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	801461	801598	
==>"s"
                            ],
                  "BODY" => "#line 467 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed(inter <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33638	33746	
==>EBUG and print "Assimilating following ~Para content into $over_type item\n";
              push @$para, spli <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35451	35559	
==>EBUG and print "Assimilating following ~Para content into $over_type item\n";
              push @$para, spli <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	559	674	
==>@_;
    my @opcodes = ();
    unless ( $parser->YYData->{_G} ) {
        $parser->YYData->{_G} = new_tmp( $parser <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9750	9872	
==>$value = value($value);
    return "$value, ";
}

sub output_param {
    my ($self, $name, $type, $reg) = @_;
    $reg = va <==
2	/Users/nnunley/parrot/config/gen/config_pm.pm	5	101	
==>yright (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/config/gen/config_pm.pm 19593 2006-05-3 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_assignments.pm	233	326	
==>implicit conversions into/from STRING
sub ASSIGNMENT_FUNC {
	my($varname)=@_;	# P6 already has <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	2613	2698	
==>$line =~ s/PREV_OP\s(..?)\s(\w+)/(jit_info->prev_op) && (*jit_info->prev_op $1 $opcode <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	473	576	
==>-------------------
{
#
# Module Parse::Yapp::Driver
#
# This module is part of the Parse::Yapp pac <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	462	560	
==>-------------------
{
#
# Module Parse::Yapp::Driver
#
# This module is part of the Parse::Yapp pac <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	15797	15925	
==>d slash.

=cut

sub href_path
{
    my $self = shift;
    my $path = shift;

    $path =~ s|\\+|/|go;

    return $path;
}

=back <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23908	24000	
==>nt_cont = {{\@2}};\n  dest = (opcode_t *)p->vtable->invoke(interpreter, p, {{^+3}});\n  {{=de <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	319	440	
==>dereferenced register addressing and a
C<switch>ed run loop.

=head2 Instance Methods

=over 4

=cut

package Parrot::OpTr <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	3116	3238	
==>e return type on the same line.
        $cmd =~ s/-psl/-npsl/g;	
    }
    foreach (sort keys %$typedefs) {
        $cmd .= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	639001	639140	
==>s;\n  if (!arg_op) {\n        real_exception(interpreter, NULL, NULL_REG_ACCESS,\n            \"No set_args with instantiate\");\n  }\n  sig <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	15372	15507	
==>);
	my $nr = $r->[1];
#	$nr = promote($r) if $r->[2] eq 'S';
	$nr = promote($r);
	print <<"EOC";
	$n = new $DEFVAR $cmt
	$op $n, $nl, $n <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	3283	3380	
==>--def|-D	defined symbols (not Uu)
--file|-f	file(name) symbols (Ff)
If more than one of all the ab <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10009	10118	
==>r	$$states[$$stack[-1][0]]{ACTIONS}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Pop s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9561	9667	
==>r	$$states[$$stack[-1][0]]{ACTIONS}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Pop s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14509	14707	
==>ODE" => 19,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 247 \"src/ops/core.ops\"\n  opcode_t * const loc = INTVAL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78945	79040	
==>interpreter, ({{\@3}}));\n\n  void * const p = Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? NULL : PMC_da <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80466	80561	
==>interpreter, ({{\@3}}));\n\n  void * const p = Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? NULL : PMC_da <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	4309	4468	
==>c_string_${line} static_string_$known_strings{$text}

DATA
  }
  else {
    $known_strings{$text} = $line;
    my $h = hash_val($text);
    <<"DATA";
static /*c <==
2	/Users/nnunley/parrot/examples/benchmarks/overload.pl	25	141	
==>se strict;

use overload '*' => \&my_mul, 'fallback' => 1;

sub new {
    my ($class, $val) = @_;
    bless \$val, $c <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	337	551	
==>= 5.003_95);

my $print = 0;
sub printem {
    if (@_) { $print = shift }
    else    { $print++ }
}

{
    package Class::Struct::Tie_ISA;

    sub TIEARRAY {
        my $class = shift;
        return bless [], $cl <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10337	10458	
==>en

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Shift \$error token and go to state ".
#DBG>						 $$states[$$sta <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9872	9989	
==>en

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Shift \$error token and go to state ".
#DBG>						 $$states[$$sta <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28818	28946	
==>me} = '__STRING' . ++$_[1]->{strcount} . '__'; }

sub issubrule { undef }
sub isterminal { 1 }
sub describe ($) { shift->{'descri <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30898	31026	
==>me} = '__STRING' . ++$_[1]->{strcount} . '__'; }

sub issubrule { undef }
sub isterminal { 1 }
sub describe ($) { shift->{'descri <==
2	/Users/nnunley/parrot/config/init/hints/freebsd.pm	972	1073	
==>$(SHARE_EXT).$(SOVERSION)',
        libparrot_shared_alias  => 'libparrot$(SHARE_EXT)',
        libpar <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	1810	1911	
==>$(SHARE_EXT).$(SOVERSION)',
        libparrot_shared_alias  => 'libparrot$(SHARE_EXT)',
        libpar <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	181377	181584	
==>",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 278 \"src/ops/cmp.ops\"\n  if ({{\@1}} < {{\@2}}) {\n    {{+={{\@3}}} <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	19890	20046	
==>k($test);
    }

=cut

sub level {
    my($self, $level) = @_;

    if( defined $level ) {
        $Level = $level;
    }
    return $Level;
}


=item B<use_ <==
2	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	1019	1127	
==>T;
    if ($checksum_line !~ m!^/\* CHECKSUM: ([-\d+]+) \*/$!) {
        print "$output does not have a check <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1447	1563	
==>t = `$cc /? 2>&1` || '';
        $ccflags =~ s/-O1 // if $cc_output =~ m/Standard/ || $cc_output =~ m{/ZI};
        $ <==
2	/Users/nnunley/parrot/tools/util/pirtidy.pl	1154	1250	
==>t of
syntactic sugar.

Inspired by perltidy.

=head1 EXAMPLES

 perl pirtidy.pl somefile.pir

Thi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022840	1023106	
==>" => 0,
                  "NAME" => "decodelocaltime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023689	1023955	
==>" => 0,
                  "NAME" => "decodelocaltime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	532755	533079	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ln",
                  "FLAGS" => ":base_math",
                  "ARGDI <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	15652	15763	
==>, \%extra, $extra{todo}, $call_pkg ) if ( keys %extra );
            local *{ $call_pkg . '::TODO' } = \$extra{t <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	18203	18314	
==>, \%extra, $extra{todo}, $call_pkg ) if ( keys %extra );
            local *{ $call_pkg . '::TODO' } = \$extra{t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665206	665293	
==>> "#line 359 \"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delete_keyed_int(interpreter, {{\@1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665983	666070	
==>> "#line 359 \"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delete_keyed_int(interpreter, {{\@1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	14669	14853	
==>e =~ /runinterp/;
        $next   ||= $short_name =~ /runinterp/;

        if ($body =~ s/\brestart\s+OFFSET\((.*?)\)/{{=0,+=$1}}/mg)
        {
            $branch = 1;
            $res <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	261	357	
==>Parrot::Vtable> provides a collection of functions for manipulating
PMC vtables. It is used by F< <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265624	266072	
==>GS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 309,
                  "ARGS" => [
                              "i",
                              "s",
                              "sc"
                            ],
                  "BO <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	1597	1967	
==>hat case.  Don't
    # bother warning.  --AD, 12 Sep 2005
    # warn "String to be integrated in to '$orig' undefined";
    return $orig unless defined $new;

    if ($new =~ /\S/) {
        $orig = $new;
    }

    return $orig;
}

=item C<prompt($message, $value)>

Prints out "message [default] " and waits for the user's response. Returns the
response, or the default <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	7102	7250	
==>op->full_name() ." */";
    } elsif ($suffix =~ /switch/) {
	$definition = "case $index:";
	$comment    = "/* ". $op->full_name() ." */";
    }
    e <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3180	3404	
==>ef($node)> to see whather you have
an element node or just a text node.

The top node in the tree is C<[ 'Document', \%attributes,
I<...subnodes...> ]>


=head1 SEE ALSO

L<Pod::Simple>

L<perllol>

L<The "Tree" subsubsection <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	4547	4737	
==>icode = ($target =~ /\\u/) ? "unicode:" : "";
    if ($captures) { 
        $captures = qq(
            print "\\n"
            match."dump"("mob"," ","")\n); 
    }
    else {
        $captu <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	46440	46615	
==>ewline
  for( my $i = $#$p; $i >= 2; $i-- ) {
    # work backwards over the tokens, even the first
    if( !ref($p->[$i]) ) {
      if($p->[$i] =~ s/\n$//s) {
        DEBUG > 5 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1427	1528	
==>') and ($scope eq 'global')) {
    my $imcc_code = $type->code();
    my $temp_reg = $compiler->temp_r <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5237	5340	
==>ko::Construct::Expression::Value::Literal->new($block, $self->require_literal);
        }

        $prop <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8237	8340	
==>ko::Construct::Expression::Value::Literal->new($block, $self->require_literal);
        }

        $prop <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79442	79554	
==>ild\n         a PMC with it so we can get and set the value */\n      {{\@1}} = pmc_new(interpreter, enum_class_U <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80963	81075	
==>ild\n         a PMC with it so we can get and set the value */\n      {{\@1}} = pmc_new(interpreter, enum_class_U <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1415	1522	
==>] = <rx_pos>; # group 0 start := pos');
}

sub output_increment {
    my ($self, $distance, $failLabel) = @_ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	6802	6948	
==>}_$d"
EOC
	}
	print <<EOC;
arg_ok:
EOC
    }
    $cur_func = $arg;
    %params = ();
    %lexicals = ();
    %names = ();
}

sub ARG_count {
    my <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	3136	3264	
==>tch_num, num_groups, done
    bsr printGroup
    inc match_num
    goto printLoop
done:
    .return ()

printGroup:
    .local in <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	31860	31975	
==>$dest_reg;
		if ($rule->{'pir'} =~ /\$\{STACK0\}/ &&
		    $rule->{'pir'} =~ /\$\{STOREREG\}/) {
			die "pir must us <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	994	1217	
==>sh contains a
C<library> key its value will be used for the library name.

=cut

sub new {
    my ($class, $opt, $vtable_dump) = (shift, shift, shift);
    my %pmcs = @_;

    foreach my $file (keys %pmcs) {
        $pmcs{$f <==
2	/Users/nnunley/parrot/config/inter/charset.pm	645	755	
==>./src/charset/*.c"
    );

    my $charset_list = $conf->options->get('charset')
        || join(' ', grep { de <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6700	6820	
==>op off the stack.
${PTEMP1} = ${STYPES}[${ITEMP2}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP1}["reg_type_short"]
${STEMP0} = co <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	2548	2705	
==>e is generated which sets up the vtable and enters it into
the C<vtables> array.

The .c file is generated by appending the functions after the various
direct <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	2733	2873	
==>ag;
Usage() unless @ARGV;


#
# Read in the first ops file.
#

my $package = "core";
my $moddir  = "lib/Parrot/OpLib";
my $module  = "$moddir <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	760946	761479	
==>AME" => "setp_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 859,
                  "ARGS" => [
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 305 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761798	762068	
==>AME" => "setp_ind",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 8 <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	3477	3594	
==>less $linkflags =~ /-xlibmieee/;
        }
        $conf->data->deltrigger("gccversion", "solaris_ieee");
    };
    $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	395008	395248	
==>f ({{\@3}}) {\n    PIOOFF_T pos;\n    pos = PIO_tell(interpreter, {{\@3}});\n    {{\@1}} = (INTVAL)(pos >> 32);\n    {{\@2}} = (INTVAL)(pos & 0xffffffff);\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	284	390	
==>::Bc::Posix;

=head1 NAME

Test/Bc.pm - Testing routines specific to 'bc'.

=head1 DESCRIPTION

Call 'Parro <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	294	433	
==>rnings";

package Jako::Construct::Statement::New;

use Carp;

use base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65695	65834	
==>RecDescent::Repetition($name,"$1..",$1,$MAXREP,
										   $lookahead,$line,
										   $self,
										   $matchrule,
										   $ar <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	32339	32446	
==>treelet->[$i]} == 3 and $treelet->[$i][2] eq '')
      ) {
        $self->whine( $start_line, "An empty L<>" <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	68543	68655	
==>okahead ("...")' ;
			_warn(1,"Found two or more lookahead specifiers in a
			       row.",$line)
			and
			_hint <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710703	710795	
==>(PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_printf(inte <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711537	711629	
==>(PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_printf(inte <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	752578	752855	
==>line",
                  "CODE" => 848,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 256 \"src/ops/set.ops\"\n  {{\@1}}->vtable->assign_pmc(interpreter, {{\@1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	857	977	
==>e(Interp* interpreter, PMC* pmc);\n\n\n\n/*\n** io.ops\n*/\n\n#include \"../io/io_private.h\"\n\n\n\n/*\n** math.ops\n*/\ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	18075	18465	
==>m_type_PMC' :
                    "enum_class_$class";
                    my $super_name = "Parrot_${super}_$meth";
                    $super_name .= "_$class" if $class ne 'DEFAULT';
                    push @mmds, [ $func, 0, $r, $super_name ];
                }
            }
        }
        last if $found;
    }
    return $found ? @mmds : ();
}

=item C<init_func()>

Returns the C <==
2	/Users/nnunley/parrot/lib/Test/More.pm	12729	12828	
==>st normally just refer to 'the object'.  If
you'd like them to be more specific, you can supply an $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28728	28848	
==>c', 'number' );
    push @opcodes, new LocalDir( $parser,
        'result' => $_var,
    );
    my $_limit = new_tmp( <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	2208	2362	
==>nd build a data structure.
# ############################################
sub parse_rules($) {
    # Get filename and open the file.
    my $filename = shi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	6392	6501	
==>stmt (reverse @output3) {
	$stmt->{next} = $next;
	$next = $stmt;
    }

    # Eliminate gotos to the followin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660133	660238	
==>: {{\@2}}->vtable->exists_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661055	661160	
==>: {{\@2}}->vtable->exists_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	1503	1651	
==>running
the <i>Configure.pl</i> script. This is essentially just a wrapper around
<code>Parrot::Configure</code>. The steps are listed below in the o <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	11534	11631	
==>ar (C<'$'> or C<'*$'>)

The element is a scalar, and by default is initialized to C<undef>
(but se <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46979	47086	
==>bug_SET(interpreter,   {{\@1}}); }\n  else         { Interp_debug_CLEAR(interpreter, PARROT_ALL_DEBUG_FLAGS) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47762	47869	
==>bug_SET(interpreter,   {{\@1}}); }\n  else         { Interp_debug_CLEAR(interpreter, PARROT_ALL_DEBUG_FLAGS) <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr3.pm	4	97	
==>d: /parrot/languages/bc/lib/Parrot/Test/Bc/Antlr3.pm 16454 2006-02-01T20:44:27.448243Z bernhar <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3627	3774	
==>if {
    my ($self, $reg, $dest) = @_;
    $reg = value($reg);
    return "if $reg, " . $self->output_label_use($dest);
}

sub output_unless {
    m <==
2	/Users/nnunley/parrot/lib/Test/More.pm	1804	2026	
==>name);

  SKIP: {
      skip $why, $how_many unless $have_some_feature;

      ok( foo(),       $test_name );
      is( foo(42), 23, $test_name );
  };

  TODO: {
      local $TODO = $why;

      ok( foo(),       $test_name <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	2205	2355	
==>map {($_,1)}
    qw( Ref default Null delegate SharedRef deleg_pmc );

sub class_name {
    my ($self, $class) = @_;

    my $classname = $self->{class <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032462	1032772	
==>irst_type].size;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "store_lex",
                  "F <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031593	1031901	
==>irst_type].size;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sizeof",
                  "FL <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	35276	35410	
==>C
    #push @stack, [-1, $dest, 'P'];
}
sub DELETE_SLICE_plus_1 {
    return Del_Slice(@_, 1);
}
sub DELETE_SLICE_plus_2 {
    return D <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2847	2958	
==>l code"
   END
Sub1:
   PRINT "2 in subroutine one"
   GOSUB Sub2
   PRINT "ERR this line in subroutine one shou <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16814	16925	
==>l code"
   END
Sub1:
   PRINT "2 in subroutine one"
   GOSUB Sub2
   PRINT "ERR this line in subroutine one shou <==
2	/Users/nnunley/parrot/lib/Test/More.pm	12304	12513	
==>to make
sure the object was defined in the first place.  Handy for this sort
of thing:

    my $obj = Some::Module->new;
    isa_ok( $obj, 'Some::Module' );

where you'd otherwise have to write

    my $obj = S <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	9126	9315	
==>ignf   math.h
copysignl   math.h
cos         math.h
cosf        math.h
cosh        math.h
coshf       math.h
coshl       math.h
cosl        math.h
cpow        complex.h
cpowf       complex.h <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	28833	28992	
==>t STDERR "Marking ${_}${seg}\n";
			$arrays{"${_}${seg}"}=1;
			push @{$code{$seg}->{code}},<<PUSHARR;
	.param PerlHash array_$englishname
	find_global \$P1, "B <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	5299	5407	
==>e into the new Testing module.  He observed that the
main problem is not dealing with these edge cases but th <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	760	865	
==>ff
our $CC = qq[/usr/bin/gcc-4.0 -c];
our $LD = qq[c++];
our $LDFLAGS = qq[-L/opt/local/lib -L/usr/local/l <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	764	869	
==>ff
our $CC = qq[/usr/bin/gcc-4.0 -c];
our $LD = qq[c++];
our $LDFLAGS = qq[-L/opt/local/lib -L/usr/local/l <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	4000	4129	
==>rrot::OpLib::core::preamble;
}
else {
    my %opsfiles;
    my @opsfiles;

    foreach my $opsfile ($file, @ARGV) {
        if ($o <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34245	34373	
==>"pre_branch for rule $rule->{'name'}");
		$pir .= "### end pre_branch\n";

        # Add pre-translate code, if any.
        $pir <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	2931	3032	
==>tval;
    my $intval     = $conf->data->get('iv');
    my $intvalsize = $conf->data->get('intvalsize') <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601682	601915	
==>" => "singleton",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7350	7477	
==>efined($options{ignore})	       ? $options{ignore}
		    :					 ''
		    ;

	if (!defined $ldel) { $ldel = '<\w+(?:' . gen_delim <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24352	24479	
==>efined($options{ignore})	       ? $options{ignore}
		    :					 ''
		    ;

	if (!defined $ldel) { $ldel = '<\w+(?:' . gen_delim <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	798	916	
==>::write_code_to_file( $code, $lang_f );

    my $cmd;
    my $exit_code = 0;
    my $pass = 0;

    $cmd = "$self->{par <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	835	953	
==>::write_code_to_file( $code, $lang_f );

    my $cmd;
    my $exit_code = 0;
    my $pass = 0;

    $cmd = "$self->{par <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18458	18606	
==>ult, \@opcodes ];
    unshift @{$args}, $obj;
    return BuildCallFunction( $parser, $fct, $args );
}

sub BuildCallFunction {
    my ( $parser <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7187	7296	
==>t]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print STDERR "Reduce using rule ".-$act." ($lhs,$le <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6855	6960	
==>t]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print STDERR "Reduce using rule ".-$act." ($lhs,$le <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	1438	1571	
==>_flags => $ld_share_flags,
        ld_load_flags  => $ld_share_flags,
        i_lib_pthread  => 1,              # XXX fake a header en <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4509	4622	
==>o 1
for j = 0 to 1
print i; j;
if i and j then a$="True  " else a$="False "
if i or  j then b$="True  " else b$="F <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17580	17693	
==>o 1
for j = 0 to 1
print i; j;
if i and j then a$="True  " else a$="False "
if i or  j then b$="True  " else b$="F <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49830	49940	
==>ct_quotelike($text,$skip);
					  $match ? \@res : undef;
					', $lookahead,$line,"<perl_quotelike>");
				$pr <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34761	34873	
==>efirst($text),
						  q{' . $rule->{"name"} .'})
							if defined $::RD_TRACE;').'
			if ($Parse::RecDescent::l <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41871	41983	
==>efirst($text),
						  q{' . $rule->{"name"} .'})
							if defined $::RD_TRACE;').'
			if ($Parse::RecDescent::l <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	16195	16319	
==>n != 3)
	    {
		Parse::RecDescent::_error(
			"Incorrect <$op->{type}op:...> specification:
			 expected 3 args, but found $ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	22281	22456	
==>@stack;	# functions
    my $s = temp('S');
    my $b = temp('P');
    # TODO make op or function
    print <<EOC;
        $s = classname $cl->[1]
	$i = isa $ob, $s
	$b = new Bo <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	31330	31437	
==>xception_Handler, $targ $cmt
	set_eh $eh
EOC
}
sub POP_BLOCK
{
    my ($n, $c, $cmt) = @_;
    if (@loops) { <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19318	19417	
==>current_block();
      my $left = Jako::Construct::Expression::Value::Identifier->new($block, $token <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20400	20499	
==>current_block();
      my $left = Jako::Construct::Expression::Value::Identifier->new($block, $token <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	620795	620955	
==>\"src/ops/pic.ops\"\n    Parrot_MIC *mic;\n    Parrot_PIC_lru *lru;\n    PMC *sig, *ccont;\n    opcode_t *src_pc;\n    void **src_pred;\n    parrot_context_t *ca <==
2	/Users/nnunley/parrot/Configure.pl	253	354	
==>RIPTION

This is Parrot's configuration script. It should be run to create the necessary
system-specif <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	638	739	
==>t defined!" unless defined $op;
  confess "Right is not defined!" unless defined $right;

  confess "B <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	650	751	
==>t defined!" unless defined $op;
  confess "Right is not defined!" unless defined $right;

  confess "B <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349290	349518	
==>\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350292	350520	
==>\@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	27616	27796	
==>desc;
    }

    my $db_back = $self->genlabel($op->{name}."_back");
    my $db_start = $self->genlabel($op->{name}."_enter");
    return ( $db_back,
                       aop('got <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5876	6003	
==>{

				defined($$token)
            or	do {
				($$token,$$value)=&$lex($self);
#DBG>				$debug & 0x01
#DBG>			and	print S <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5597	5718	
==>{

				defined($$token)
            or	do {
				($$token,$$value)=&$lex($self);
#DBG>				$debug & 0x01
#DBG>			and	print S <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	3952	4079	
==>t = $labels{$dest->{label}}; # tagged_op
                if (! $dest_stmt) {
                    if ($ctx->{external_labels}{$de <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	20200	20585	
==>s need the runtime type
            # which is passed in entry to class_init
            $left = 0;  # set to 'entry' below in initialization loop.
            $right = 'enum_type_PMC';
            $right = 'enum_type_INTVAL'   if ($func =~ s/_INT$//);
            $right = 'enum_type_FLOATVAL' if ($func =~ s/_FLOAT$//);
            $right = 'enum_type_STRING'   if ($func =~ s/_STR$// <==
2	/Users/nnunley/parrot/config/gen/platform.pm	764	872	
==>= "win32" if $platform =~ /^msys/;
    $platform = "win32" if $platform =~ /^mingw/;
    $platform =~ s/^ms// <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14	109	
==>/languages/scheme/Scheme/Generator.pm 15849 2006-01-14T10:37:55.635677Z bernhard  $

package Sch <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	2207	2381	
==>nal}    = !!$1;
        $arg->{option}      = !!$2;
        $arg->{name}        = $3;
        $arg->{type}        = $4 || ( $arg->{option} ? undef: "string" );
        $arg->{ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2375	2487	
==>lock.
  #

  $sym = Jako::Symbol->new(
    $self->block,
    ($self->is_global ? 'global' : 'local'),
    $self-> <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	28164	28279	
==>self,@stack) = @_;

  my($i, $treelet);
  my $start_line = $stack[0][1]{'start_line'};

  # A recursive algorithm im <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	31665	31780	
==>self,@stack) = @_;

  my($i, $treelet);
  my $start_line = $stack[0][1]{'start_line'};

  # A recursive algorithm im <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809649	809739	
==>ODY" => "#line 507 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_string_keyed(int <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810554	810644	
==>ODY" => "#line 507 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_string_keyed(int <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	2325	2438	
==>nk($path);
}

=item C<write_html($source, $target, $silent)>

C<$source> is the directory in which the section's c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	115463	115788	
==>};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "F <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	116318	116643	
==>};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shl",
                  "F <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	952	1060	
==>qw(Regex::Ops::Tree);

@Regex::Ops::Tree::match::ISA        = qw(Regex::Ops::Tree::_atom);
@Regex::Ops::Tree: <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5763	5865	
==>return
        unless defined $self->{triggers}{$key}
        and defined $self->{triggers}{$key}{$trig <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6333	6435	
==>return
        unless defined $self->{triggers}{$key}
        and defined $self->{triggers}{$key}{$trig <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	728	944	
==>}) {
    unless($key =~ m/^~/s) {
      next if $key eq 'start_line' and $_[0]{'hide_line_numbers'};
      _perly_escape($key);
      _perly_escape($value);
      printf $fh qq{%s \\ "%s" => "%s"\n},
        '  ' x ($ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	1573	1755	
==>ode_addr == NULL) return NULL;
    offset_in_ops = opcode_addr - (opcode_t*) interpreter->code->base.data;
    return interpreter->code->prederef.code + offset_in_ops;
}
#else
#  defi <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	16593	16756	
==>ement, its default
initialization is performed instead. Initializers for non-existent
elements are silently ignored.

Note that the initializer for a nested class m <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	4226	4335	
==>xt, $line) = @_;

  if (exists $known_strings{$text}) {
    <<"DATA";
#define static_string_${line} static_str <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8795	8884	
==>t.
${ITEMP1} = elements ${STYPES}
dec ${ITEMP1}
${PTEMP0} = ${STYPES}[${ITEMP1}]
${STEMP0} <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7367	7456	
==>t.
${ITEMP1} = elements ${STYPES}
dec ${ITEMP1}
${PTEMP0} = ${STYPES}[${ITEMP1}]
${STEMP0} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	29551	29765	
==>_call');

    my @ops = (           aop('call_setup' => [ $name, $uid ]),
                          aop('call' => [ $name, 1, $uid ]),
               $handle => aop('call_result' => [ $uid, $capture ? $name : undef, <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	1066	1220	
==>ig/' . $group);
        my @files = $dir->files_with_suffix('pm', 1);    
        push @groups,
            $self->new_group(
                $titles{$grou <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327068	327155	
==>s/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, (INTVAL){{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	327870	327957	
==>s/dotgnu.ops\"\n  {{\@1}}->vtable->set_integer_native(interpreter, {{\@1}}, (INTVAL){{\@ <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	1271	1371	
==>on both in the configuration file and the
command line, the command line takes precedence.

Here is a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	120914	121182	
==>> "inline",
                  "CODE" => 150,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 231 \"src/ops/bit.ops\" <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	73473	73694	
==>>{deferred} = [];
	$_[0]->{errors} = [];
	my @args = @_[3..$#_];
	my $args = sub { [ @args ] };
				 
	$AUTOLOAD =~ s/$class/$_[0]->{namespace}/;
	no strict "refs";
	
	croak "Unknown starting rule ($AUTOLOAD) called\n"
		u <==
2	/Users/nnunley/parrot/config/auto/signal.pm	1375	1587	
==>{ cc_build(); };
    unless ($@ || cc_run() !~ /ok/) {
        $conf->data->set(
            has_setitimer    => 'define',
            has_sig_atomic_t => 'define'
        );
        print " (setitimer) " if $verb <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	7907	8067	
==>en
{
    my $self = shift;
    my $token = shift;
    my $tagname = $token->tagname;
    
    if ( $tagname =~ m/^over-(.+)$/s ) 
    {
        push @{$self->{ST <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	962802	962940	
==>ic"
                            ],
                  "BODY" => "#line 595 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	963765	963903	
==>ic"
                            ],
                  "BODY" => "#line 595 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interp <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23948	24090	
==>>);
    #   redo unless (<value> <op> <value>);
    #
    #   redo <label>;
    #   redo <label> if     (<value> <op> <value>);
    #   redo <l <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	388	505	
==>truct::Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected 5 args!" unless @_ == 5;

  my <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	388	505	
==>truct::Block::Loop);


#
# new()
#

sub new
{
  my $class = shift;

  confess "Expected 5 args!" unless @_ == 5;

  my <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021125	1021419	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "decodetime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021966	1022260	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "decodetime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721744	722039	
==>int_item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 809,
                  "ARGS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060107	1060212	
==>to get null name\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_name(interpreter, {{\@2}});\n    {{+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061012	1061117	
==>to get null name\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_name(interpreter, {{\@2}});\n    {{+ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34979	35074	
==>RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = $Parse::RecDescent::lastun <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42089	42184	
==>RecDescent::lastexpected;
				$Parse::RecDescent::unexpected
				   = $Parse::RecDescent::lastun <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088947	1089261	
==>2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089895	1090209	
==>2}}, {{\@3}}, 0);\n    {{+=4}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11080	11174	
==>t int ELEMENT_TYPE_PTR = 0x0F
	.const int ELEMENT_TYPE_BYREF = 0x10
	.const int ELEMENT_TYPE_VA <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	40823	40928	
==>shift;
  my @max_len=(0)x3;
  for my $row(@$colref) {
    for(0..$#{$row}) {
      $max_len[$_]=length($ro <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	883	1037	
==>if /^OUTPUT:/;
             $input .= $_;
         }
         chomp($input);
         die "EOF during INPUT section" if ! defined($output);

         # Gat <==
2	/Users/nnunley/parrot/languages/regex/test.pl	2774	2903	
==>if /^OUTPUT:/;
        $input .= $_;
    }
    chomp($input);
    die "EOF during INPUT section" if ! defined($output);

    # Gat <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	534	643	
==>ptions

=over 4

=item C<buildprefix>

The build prefix. Defaults to ''.

=item C<prefix>

The install prefix. <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	763	872	
==>ptions

=over 4

=item C<buildprefix>

The build prefix. Defaults to ''.

=item C<prefix>

The install prefix. <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1018	1153	
==>e vars qw ( $VERSION $COMPATIBLE $FILENAME );

$VERSION = '1.05';
$COMPATIBLE = '0.07';
$FILENAME=__FILE__;

use Carp;

#Known p <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	984	1111	
==>e vars qw ( $VERSION $COMPATIBLE $FILENAME );

$VERSION = '1.05';
$COMPATIBLE = '0.07';
$FILENAME=__FILE__;

use Carp;

#Known p <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tests.pm	692	912	
==>ts', '', 't/native_pbc'),
		$self->new_group('Ops Tests', '', 't/op'),
		$self->new_group('PMC Tests', '', 't/pmc'),
		$self->new_group('C Source Code Tests', '', 't/src'),
		$self->new_group('Stress Tests', '', 't/stress <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	50631	50864	
==>le 38
		 'laststat', 1,
sub
#line 226 "Lua\lua51.yp"
{
            BuildBreak( $_[0] );
        }
	],
	[#Rule 39
		 'funcname', 1, undef
	],
	[#Rule 40
		 'funcname', 3,
sub
#line 235 "Lua\lua51.yp"
{
            Prepa <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	6310	6464	
==>shift;

    #  make a hash of all method names containing vtable section
    my $vt = $self->{vtable};
    foreach my $entry (@{ $vt->{methods} } ) {
	$sel <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	4041	4145	
==>$trans->prefix . $self->full_name;
}

=item C<arg_types()>

Returns the types of the op's arguments.

=cu <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	5091	5264	
==>s) = @_;

    my $count = scalar keys %tests;
    die unless $count;

    my $string = <<"END";
#!/usr/bin/perl

use strict;
use lib qw(tcl/lib ./lib ../lib ../../lib ../../. <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19783	19977	
==>nParagraph...\n" section, assuming that that section
isn't terribly long.

=item $version_block = $parser->get_version

This works like get_title except that it returns the contents of
the "=head <==
2	/Users/nnunley/parrot/config/inter/progs.pm	12	101	
==>(C) 2001-2005, The Perl Foundation.
# $Id: /parrot/config/inter/progs.pm 19593 2006-05-30T <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7264	7363	
==>Lower"
a$="   Flush   "
print ">";ltrim$(a$)
print rtrim$(a$);"<"
' A's and -'s
print string$(10,75- <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18993	19092	
==>Lower"
a$="   Flush   "
print ">";ltrim$(a$)
print rtrim$(a$);"<"
' A's and -'s
print string$(10,75- <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	3	162	
==>quire 5;
#                        The documentation is at the end.
# Time-stamp: "2002-08-27 19:58:02 MDT"
package Pod::Escapes;
require Exporter;
@ISA = ('Expo <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	28693	28809	
==>S it's empty
      unless(  @{$treelet->[$i]} == 2
           or (@{$treelet->[$i]} == 3 and $treelet->[$i][2] eq '') <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41214	41314	
==>@_,0,2;

  my $scratch;
  $self->_handle_element_start(($scratch=$name), shift @_);
  
  foreach my $ <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2759	2925	
==>le, 0, ".dev file not found for $file.");
}

# ignore any leading or trailing whitespace on the file 
sub trim_whitespace {
    my ($file, $source) = @_;

    return u <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3793	3982	
==>r_num/$register_num/g;
		$register_num++;
	}
    
    # If there are going to be any pushes, need to do any lazy moves
    # beneath this point.
    $pir .= _do_lazy_moves('_${CURIC}') if $p <==
2	/Users/nnunley/parrot/config/auto/isreg.pm	593	723	
==>in');
    eval { cc_build(); };
    unless ($@ || cc_run() !~ /ok/) {
        $test = 1;
    }
    cc_clean();

    $conf->data->se <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4314	4436	
==>2
	mine=a*2
	print t(3)*2
end function
dim t(7)
z=55
t(3)=5.6
a=mine(5)
print t(3)

1740 print "Branched"
	end
' Logical Op <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	18302	18437	
==>, 1)) {
       Parrot_warn(interpreter, PARROT_WARNINGS_ALL_FLAG, "function signature argument character 'v' ignored");
       signature <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	2882	3105	
==>ight->compile($compiler);

    $compiler->emit("  $cond $left $op $right goto $label");
  }

  return;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  my $block = $self->block;
  my $kind  = $self->ki <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	4561	4694	
==>/GNU nm/) {
    $nm_opt = '';
    $nm_gnu = 1;
    $nm_ro  = 1;
} else {
    # Hope for BSD-style nm output.
}

Getopt::Long::Configur <==
2	/Users/nnunley/parrot/config/auto/pack.pm	1569	1792	
==>ctional packtype for $_.
               '$format' failed: $@
AARGH
        }
        if ($test) {
            unless (length $test == $size) {
                warn sprintf <<"AARGH", $size, length $test;
Configure.pl:  Unabl <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	30003	30133	
==>bstring {
}

sub _op_string_append {
}

sub _op_string_list {
}

sub _op_list_string {
}

sub _op_string_copy {
}

sub _op_string_f <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	32027	32294	
==>a void context, the extracted substring (and any prefix) are simply
removed from the beginning of the first argument.

Examples:

	# Remove a single-quoted substring from the very beginning of $text:

		$substring = extract_delimited($text, "'", '');

	# Remove a sing <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4381	4524	
==>e(5)
print t(3)

1740 print "Branched"
	end
' Logical Operators 
print "      AND   OR    XOR   EQV   IMP   a & ! b"
for i = 0 to 1
for j = 0 to <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28232	28322	
==>rse::RecDescent::_trace(q{<<Didn\'t match terminal>>},
						  Parse::RecDescent::_tracefir <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32507	32597	
==>rse::RecDescent::_trace(q{<<Didn\'t match terminal>>},
						  Parse::RecDescent::_tracefir <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1884	2005	
==>incompatible with version $$self{VERSION}:\n".
			  "Please recompile parser module.";

        ref($class)
    and $c <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1818	1935	
==>incompatible with version $$self{VERSION}:\n".
			  "Please recompile parser module.";

        ref($class)
    and $c <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	67622	67777	
==>e->addcall($name);
			}
		}
		elsif ($grammar =~ m/$LONECOLON/gco   )
		{
			_error("Unexpected colon encountered", $line);
			_hint("Did you mean \"|\" (to <==
2	/Users/nnunley/parrot/languages/APL/t/APL.pm	513	706	
==>exit 0;
  }
}

# Note - we don't just use the special SKIP entry in the DATA stream because
# it doesn't actually output the skipped test in the TAP output. It just
# fails to run the test.

# m <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	3899	4047	
==>=~ tr/[](){}<>\0-\377/[[(({{<</ds;
	my $rdel = $ldel;
	unless ($rdel =~ tr/[({</])}>/)
        {
		return _fail $wantarray, $textref,
			     "Did no <==
2	/Users/nnunley/parrot/config/gen/icu.pm	1917	2094	
==>\w*//; # "-licui18n32" too
                $without = 1 if length $icushared == 0;
            }

            # location of header files
            $icuheaders = capture_output( <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	11552	11671	
==>snan       math.h
isnormal    math.h
isprint     ctype.h
ispunct     ctype.h
isspace     ctype.h
isunordered math.h
isup <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30239	30380	
==>>[-1][1]{'~bitched_about'} = 1;
            $self->whine(
              $curr_open->[-1][1]{'start_line'},
              "You can't have =item <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	607525	607618	
==>"#line 473 \"src/ops/object.ops\"\n    {{\@1}} = VTABLE_get_attr(interpreter, {{\@2}}, {{\@3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	608429	608522	
==>"#line 473 \"src/ops/object.ops\"\n    {{\@1}} = VTABLE_get_attr(interpreter, {{\@2}}, {{\@3}} <==
2	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	1362	1502	
==>anslit'
# substitution: 'translit'
macro:              flag name_len ',' substitution_len name substitution 
                  { [ @item[5,1, <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	4197	4407	
==>tion
dim g(10)
g(4)=12
y=arrfunc(g())

' Function Array scopes, expect 4, 5.6
function mine(a)
	dim t(6)
	s=32
	t(3)=2
	mine=a*2
	print t(3)*2
end function
dim t(7)
z=55
t(3)=5.6
a=mine(5)
print t(3)

1740 print <==
2	/Users/nnunley/parrot/config/init/hints/darwin.pm	1480	1607	
==>d_alias  => 'libparrot$(SHARE_EXT)',
        # This variable needs renaming to be more general
        # XXX ugly hack for rpath <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	43723	43823	
==>(@_);
	# Apart from modifying @_, they are equivalent to the rather ungainly:
	return _generate($_[0] <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	741	850	
==>ences.
# Config stuff
our $CC = qq[/usr/bin/gcc-4.0 -c];
our $LD = qq[c++];
our $LDFLAGS = qq[-L/opt/local/lib <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	745	854	
==>ences.
# Config stuff
our $CC = qq[/usr/bin/gcc-4.0 -c];
our $LD = qq[c++];
our $LDFLAGS = qq[-L/opt/local/lib <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43672	43862	
==>ps\"\n  Parrot_push_mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44316	44506	
==>ps\"\n  Parrot_push_mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	17650	17793	
==>/;

        my $existing = find_file($include, $file);
        if ($existing && -e $existing && dump_is_newer($existing)) {
            if ($fil <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6313	6414	
==>it's a blank line
      if(!$self->{'start_of_pod_block'} and @$paras and $paras->[-1][0] eq '~Verbati <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	38145	38301	
==>-1][1]{'target'}) is a resolver\n";
              $para->[0] = 'Para';
              $para_type = 'Plain';
            } else {
              DEBUG and print <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	838	1052	
==>ct::Declaration::Sub;
use Jako::Construct::Declaration::Variable;

use Jako::Construct::Expression::Call;
use Jako::Construct::Expression::Value;
use Jako::Construct::Expression::Value::Identifier;

use Jako::Constr <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	5213	5377	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub do_link {
  my($self, $token) = @_;
  my $type = $token->attr('type');
  if(!defined $type <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	1891	2014	
==>type_macros) {
        $typedefs->{$_}="#defined";
    }
    
    
    # post-process the file to find function declarations <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59792	59934	
==>eunneg("a new (error) production", $aftererror,
				    $lookahead,$line) or next;
			$prod->check_pending($line) if $prod;
			$prod = new Pars <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	10	236	
==>rrot/lib/Parrot/Test/Python.pm 18020 2006-03-26T19:46:16.084129Z bernhard  $

package Parrot::Test::Python;

use strict;
use warnings;

use File::Basename;

=head1 Parrot::Test::Python

Provide language specific testing routine <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	14340	14441	
==>ented?";
			}
			push @work, [ "($op1->[0] $sym $op2->[0])", "RESULT", "\$$optype$retcount" ];
			$ret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1097666	1097947	
==>}\n    }    \n    {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	2686	2794	
==>e considered failures.  If no tests were ever run Test::Simple
will throw a warning and exit with 255.  If th <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	1066	1211	
==>y $name = shift || die "No name.\n";
	my $text = shift;
	my @contents = @_;
	
	# TODO - Groups should only contain items or paths.
	
	$self = $sel <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	8855	8997	
==>em F<tools/build/jit2c.pl>

=item F<tools/build/pmc2c.pl>

=item F<tools/build/vtable_h.pl>

=item F<tools/dev/gen_class.pl>

=item F<src/pmc/n <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	4724	4855	
==>exception was thrown : $!", :$depends);
    }
    else {
        &Test::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. test <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5563	5708	
==>NS} = concat ${STEMP0}
${INS} = concat " = "
${INS} = concat ${LOADREG}
${INS} = concat "\n"
PIR
	}

	return $pir;
}

# Pre and post store operati <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	2004	2160	
==>$path )
    {
        $path = join('/', $path, $self->{INDEX_PATH});
    }
    else
    {
        $path = $self->{INDEX_PATH};
    }
    
    return '<a href <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	10954	11051	
==>o, Str :$depends) returns Bool`

- `isnt (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2114	2206	
==>lf->block->find_symbol($args[$i]->value);
      $self->SYNTAX_ERROR("Undefined identifier '%s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1814	1906	
==>lf->block->find_symbol($args[$i]->value);
      $self->SYNTAX_ERROR("Undefined identifier '%s <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2	108	
==>.NET CLI To PIR Translator
# This SRM algorithm keeps track of the current stack depth and assigns to
# vir <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2	108	
==>.NET CLI To PIR Translator
# This SRM algorithm keeps track of the current stack depth and assigns to
# vir <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	314	436	
==>Jako::Construct::Statement::Call;

use Carp;

use base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1171	1271	
==>ply(Any $got, Any $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    # hack for n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024981	1025079	
==>"BODY" => "#line 275 \"src/ops/sys.ops\"\n   {{\@1}} = sysinfo_s(interpreter, {{\@2}});\n   {{+=3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025738	1025836	
==>"BODY" => "#line 275 \"src/ops/sys.ops\"\n   {{\@1}} = sysinfo_s(interpreter, {{\@2}});\n   {{+=3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4774	4884	
==>to the run core function.

=cut

sub run_core_func_start
{
    return <<END_C;
#if defined(__GNUC__) && defined <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3062	3172	
==>to the run core function.

=cut

sub run_core_func_start
{
    return <<END_C;
#if defined(__GNUC__) && defined <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16928	17075	
==>s
        #  with text in them.
        
        # Yes, stipulate the list without a range, so that this can work right on
        #  all charsets t <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10368	10495	
==>s
    #  with text in them.

    # Yes, stipulate the list without a range, so that this can work right on
    #  all charsets t <==
2	/Users/nnunley/parrot/lib/Test/More.pm	21983	22120	
==>ts inside are expected to fail.  Test::More
will run the tests normally, but print out special flags indicating
they are "todo".  Test::Ha <==
2	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	359	520	
==>TION

Calls 'parrot_compiler.pbc'.

=head1 METHODS

=head2 new

Yet another constructor.

=cut

sub new 
{
  return bless {};
}


=head2 gen_output

Called in out <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	46694	46860	
==>ument are successfully extracted and
concatenated.

In a list context, C<extract_quotelike> would return the list

=over 4

=item [0]

"<<'EOMSG'\nThis is the message. <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	11166	11356	
==>f = $_[0];
  my $fh = $self->{'output_fh'};
  return print $fh '}'; # that should do it
}

###########################################################################

sub stylesheet {
  retu <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	1776	1937	
==>s
		append;
		fetch;
		while($cur ne -1 and $cur ne "\n") {
			append;	
			fetch;
		}
		emit("COMM");
		fetch;
		goto MAIN;
	}
	if ($cur =~ /[A-Za-z]/) {		# Barew <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2873	3000	
==>= shift;
	my ($pops, $pushes) = @_;
	my $register_num = 0;
	my $push_num = 0;
	my $pir = '';

	# Do code for each pop. Need to s <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1795	1922	
==>= shift;
	my ($pops, $pushes) = @_;
	my $register_num = 0;
	my $push_num = 0;
	my $pir = '';

	# Do code for each pop. Need to s <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	34845	35076	
==>ct_bracketed> in a list context:

	@result = extract_bracketed( $text, '{}' );

would return:

	( "{ an '[irregularly :-(] {} parenthesized >:-)' string }" , "" , "" )

since both sets of C<'{..}'> brackets are properly nested and e <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7003	7115	
==>:"mark").qq(\\n"));
    }
    push @ops, $self->pushop . " <rx_stack>, -1 # pushmark";
    return @ops;
}

sub ou <==
2	/Users/nnunley/parrot/Configure.pl	7724	7828	
==>path)  Location of ICU headers without /unicode
   --icushared=(flags)  Full linker command to create sha <==
2	/Users/nnunley/parrot/config/gen/icu.pm	3802	3906	
==>path)  Location of ICU headers without /unicode
   --icushared=(flags)  Full linker command to create sha <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	163	312	
==>lanced qw ( extract_codeblock extract_bracketed extract_quotelike extract_delimited );

use vars qw ( $skip );

sub linenum
{
	my ($thisline) = @_;
	m <==
2	/Users/nnunley/parrot/config/auto/format.pm	50	156	
==>$Id: /parrot/config/auto/format.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/form <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3927	4052	
==>ER_DONE: noop
	.end	# End debug segment
.end 	# End outer segment
EOD
}
if ($debug) {
	print CODE<<FOO;
.sub _DEBUG_INIT
	save <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101155	101411	
==>{{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103361	103617	
==>{{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863309	863582	
==>2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bytele <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	7747	7860	
==>ave the old filehandles; we must not let them get closed.
    open  OLDOUT, ">&STDOUT" or die "Can't save     stdo <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7798	7910	
==>ave the old filehandles; we must not let them get closed.
    open OLDOUT, ">&STDOUT" or die "Can't save     stdo <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9607	9707	
==>0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method_info_from_token(${ASSEMBLY}, ${ARG0})

# If it's a call <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7121	7221	
==>0}, ${STEMP0}, ${PTEMP1}, ${PTEMP2}) = method_info_from_token(${ASSEMBLY}, ${ARG0})

# If it's a call <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48492	48586	
==>DY" => "#line 785 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49282	49376	
==>DY" => "#line 785 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81164	81487	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compile",
                  "FLAGS" => "",
                  "A <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82057	82380	
==>ABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compile",
                  "FLAGS" => "",
                  "A <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	7377	7536	
==>ning or referencing the derived work.

RSA Data Security, Inc. makes no representations concerning either
the merchantability of this software or the suitabilit <==
2	/Users/nnunley/parrot/Configure.pl	6371	6490	
==>enerator
   --yacc=(parser)      Use the given parser generator

   --define=inet_aton   Quick hack to use inet_aton ins <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	4057	4265	
==>target file.

=cut

sub genfile
{
    my ($source, $target, %options) = @_;

    open my $in, '<', $source or die "Can't open $source: $!";

    open my $out, '>', "$target.tmp" or die "Can't open $target.tmp: <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22124	22282	
==>ead" => $_[2],
		"line"      => $_[3],
		"name"      => $_[4],
	}, $class;
}

sub code($$$$)
{
	my ($self, $namespace, $rule) = @_;
	
'
		' . ($self->{"lookahe <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10917	11031	
==>can($t, 'is_text')) {
      $out .= $t;
    } elsif($t->is_text) {
      $out .= $t->text;
    } elsif($t->is_start <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	17047	17238	
==>'$',
        kittens  => '@',
        markings => '%',
        breed    => 'Breed',
    ];


    my $cat = Cat->new( name     => 'Socks',
                        kittens  => ['Monica', 'Kennet <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	5685	5800	
==>perations (eg matching single characters or character ranges) won't
# have to do their own checking.
#
# Without thi <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2896	3050	
==>n $index_html;
}

=item C<contents_relative_to_source($source)>

Returns the contents of the group interpreted relative to the source
directory.

=cut

sub <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	4905	5004	
==>n $index_html;
}

=item C<contents_relative_to_source($source)>

Returns the contents of the item in <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	16610	16713	
==>(
				$op->{type}, $minrep, $maxrep, splice(@{$self->{"items"}}, -3));
		$self->{items}[-1]->sethashname <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	166	328	
==>>init();
    return $self;
}

sub init {
    my $self = shift;
    $self->{state} ||= Regex->global_state();
}

sub init_context {
}

# Convert "x%<foo>y" to
#   p <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	333	452	
==>>init();
    return $self;
}

sub init {
    my $self = shift;
    $self->{state} ||= Regex->global_state();
}

sub mkla <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2979	3087	
==>}},<<INP1;
	\$S0 = _READLINE($filedesc)
	\$P99 = _SPLITLINE(\$S0,$sf)
	\$I0= \$P99
INP1

	# Bug here...FIXME. <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	44719	44825	
==>y more
  $self->{instruction} = undef;
  $self->{regs} = undef;

  return $self;
}

1;
__END__

=head1 NAME <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	43779	43925	
==>not a formatty line.  Ignoring\n";
      next;
    }

    # A formatty line has to have #: in the first two columns, and uses
    # "^" to mean bol <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	9498	9626	
==>elf->{'encoding_command_reqs'} }, "=encoding $orig";

  my $enc_error;

  # Cf.   perldoc Encode   and   perldoc Encode::Supporte <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	3922	4076	
==>159265358979323846"
                                      # PI

    $P0[unicode:"monadic:\u2373"]  =  <<"END_PIR"            # index of
    #XXX hack all t <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2171	2288	
==>t work right
    #  under non-ASCII charsets.  Something should be done about that.
  }
  return;
}

#@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2274	2391	
==>t work right
    #  under non-ASCII charsets.  Something should be done about that.
  }
  return;
}

#@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	57022	57297	
==>or marker", $aftererror,$line);
				$item = new Parse::RecDescent::Error('',$lookahead,$1,$line);
				$prod and $prod->additem($item)
				      or  _no_rule("<error>",$line);
				$aftererror = !$commitonly;
			}
			elsif ($grammar =~ m/(?=$MSGERRORMK)/gco
				and do { $commit <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	1071	1190	
==>";
			$common{$var}=1;
		}

	}
}

sub parse_shared {		# Keyword only
	feedme();
	$loop=0;
	while($type[CURR] !~ /COMP|CO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149625	150114	
==>,
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 182,
                  "ARGS" => [
                              "p",
                              "nc",
                              "ic"
                            ],
                  "BODY" => "#line 105 \"src/ops/cmp.ops\"\n  if ({{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048225	1048330	
==>ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null global.\");\n\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049149	1049254	
==>ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null global.\");\n\ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2138	2246	
==>ise, we assume the programmer wanted to shadow the
  # previous definition.
  #

  if (defined $sym and $sym- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1885	1993	
==>ise, we assume the programmer wanted to shadow the
  # previous definition.
  #

  if (defined $sym and $sym- <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4478	4600	
==>$push_num++;
	}

	# Return generated code.
	return $pir;
}

sub post_op($$) {
	# Nothing to do.
	return "";
}

# Pre and po <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2894	3016	
==>$push_num++;
	}

	# Return generated code.
	return $pir;
}

sub post_op($$) {
	# Nothing to do.
	return "";
}

# Pre and po <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	9170	9323	
==>: $!\n";

    my %files_in_dir_nocase;
    my %files_in_dir_8dot3;
    my $line = 0;
    while (<F>) {
        $line++;

        chomp;

        unless (/ <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4904	5148	
==>s{$name} = [$expl, $body, $out];
    }

    return %tests;
}

##
## $string = format_tests(%tests)
##
## Create the source for a .t file for the tests.
##
sub format_tests {
    my (%tests) = @_;

    my $count = scalar keys %tests;
    die unle <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	21	126	
==>nslator
# This SRM algorithm keeps track of the current stack depth and assigns to
# virtual registers num <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	21	126	
==>nslator
# This SRM algorithm keeps track of the current stack depth and assigns to
# virtual registers num <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	57456	57693	
==>0],q{'"}) },
                                        qr/([^,]+)(.*)/,
                                  ],
                                  undef,1);

The list in the second argument means:
I<"Try and extract a ' or " delimited string, o <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	37963	38091	
==>tate 146
		DEFAULT => -114
	},
	{#State 147
		DEFAULT => -113
	},
	{#State 148
		ACTIONS => {
			":" => 134,
			"[" => 4 <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	2098	2267	
==>mble failed with status " . ($? >> 8);
    }
}

sub generate_regular {
    my ($pattern) = @_;

    generate_regular_pir('test_regex.pir', $pattern);
    generate_pbc('te <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353238	353588	
==>E" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 412,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	537	634	
==>low';
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub any_errata_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	371	459	
==>low';
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub ne <==
2	/Users/nnunley/parrot/config/auto/readline.pm	1568	1729	
==>gs   => '-I/sw/include');
        }
    }

    cc_gen('config/auto/readline/readline.in');
    eval { cc_build(); };
    my $has_readline = 0;
    if (!$@) {
	$ha <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	140600	140870	
==>TYPE" => "inline",
                  "CODE" => 172,
                  "ARGS" => [
                              "n",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 77 \"src/ops/cmp.o <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	455	611	
==>x);
    } else {
        return op('scan' => [ $self->convert($tree, $ctx) ]);
    }
}

sub convert {
    my ($self, $tree, $ctx) = @_;

    my $type = ref($ <==
2	/Users/nnunley/parrot/tools/dev/as2c.pl	308	448	
==>lue("$src.c");

sub print_header {
    my $s = shift;
    print <<EOT;
/*
 * DO NOT EDIT THIS FILE
 *
 * Generated from $s.c via $s.s
 * by ' <==
2	/Users/nnunley/parrot/config/init/defaults.pm	4795	4944	
==>rf     => '$(PERL) -MExtUtils::Command -e rm_rf',
        mkdir     => '$(PERL) -MExtUtils::Command -e mkpath',
        touch     => '$(PERL) -MExtUti <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717954	718060	
==>io = {{\@1}};\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_fprin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718886	718992	
==>io = {{\@1}};\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_fprin <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2201	2425	
==>p/s:        "
                              # print  N1
                              # print  "\n"
                              #
exit(0);                      # end

=head1 SEE ALSO

F<examples/benchmarks/mops.pasm>,
F<exa <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	2201	2425	
==>p/s:        "
                              # print  N1
                              # print  "\n"
                              #
exit(0);                      # end

=head1 SEE ALSO

F<examples/benchmarks/mops.pasm>,
F<exa <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1437	1543	
==>)=shift;
	my($errst,$nberr,$token,$value,$check,$dotpos);
    my($self)={ ERROR => \&_Error,
				ERRST = <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1388	1491	
==>)=shift;
	my($errst,$nberr,$token,$value,$check,$dotpos);
    my($self)={ ERROR => \&_Error,
				ERRST = <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15478	15584	
==>ush @opcodes, @{ $nil->[1] };
    $result = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19231	19337	
==>ush @opcodes, @{ $nil->[1] };
    $result = new_tmp( $parser, 'pmc' );
    push @opcodes, new LocalDir( $ <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	6531	6637	
==>* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically by to <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5026	5120	
==>} > 0 goto PRE_BRANCH_${CURIC}_LAZY_MOVE_$register_num

# No lazy move available - need to refe <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	1241	1359	
==>ff move_if_diff)]
);

=item C<integrate($orig, $new)>

Integrates C<$new> into C<$orig>.  Returns C<$orig> if C<$new> i <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	6001	6209	
==>\$i = shift) : return \$r->$elem;\n";
                $out .= "    if (ref(\$i) eq 'HASH' && !\@_) { \$r->$elem = \$i; return \$r }\n";
                $sel = "->{\$i}";
            }
            elsif( define <==
2	/Users/nnunley/parrot/tools/dev/gen_class.pl	828	991	
==>lib";
use Parrot::Vtable;


my $vtbl = parse_vtable("$FindBin::Bin/../../vtable.tbl");

my $classname = shift
	or die "No classname given!\n";


## emit f <==
2	/Users/nnunley/parrot/config/auto/jit.pm	2376	2495	
==>t_is_working{$cpuarch}) {
        $jitcapable = 1;
    }

    if (-e "$jitbase/$cpuarch/$jitarchname.s") {
        copy_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	437	566	
==>ompile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $kind        = $self->kind;
  my $peer        = $self-> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	417	546	
==>ompile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $kind        = $self->kind;
  my $peer        = $self-> <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	1877	2030	
==>lass Methods

=over 4

=cut

package Parrot::Op;

use strict;
use warnings;


=item C<new($code, $type, $name, $args, $argdirs, $labels, $flags)>

Allocat <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2111	2217	
==>ndent'} }
sub   end_over_block   { --$_[0]{'Indent'} }


# . . . . . Now the actual formatters:

sub end_he <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1679	1785	
==>ndent'} }
sub   end_over_block   { --$_[0]{'Indent'} }


# . . . . . Now the actual formatters:

sub end_he <==
2	/Users/nnunley/parrot/Configure.pl	1494	1612	
==>Tell Configure that the compiler supports C<inline>.

=item C<--cc=(compiler)>

Specify which compiler to use.

=item C <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2065	2175	
==>ses] [files...]\n\n".
		"FILES defaults to a recursive \" find . \".\n\n".
		"--plus-misses creates a second se <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10388	10662	
==>nd length $to ) 
    {
        $to = $self->resolve_pod_page_link($to, $section);
        
        return unless defined $to and length $to;
    }
    
    if ( defined $section and length($section .= '') ) 
    {
        $section =~ tr/ /_/;
        $section =~ tr/\x00-\x1F <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712332	712428	
==>t io = PIO_STDOUT(interpreter);\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713439	713535	
==>t io = PIO_STDOUT(interpreter);\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	5179	5340	
==>ta'      , 919,
 'Theta'    , 920,
 'Iota'     , 921,
 'Kappa'    , 922,
 'Lambda'   , 923,
 'Mu'       , 924,
 'Nu'       , 925,
 'Xi'       , 926,
 'Omicron'  , <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30156	30275	
==>}");
		}
		$pir .= "\n" unless $pir =~ /\n$/;
		$pir .= "### end translation\n";

		# Push load type onto the stack type <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89091	89313	
==>DE" => 110,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 38 \"src/ops/bit.ops\"\n  {{\@1}} &= {{\@2}};\ <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	1450	1620	
==>e type to the symbol name.

    B - uninitialised data symbol
    D - initialised data symbol
    F - file name symbol
    R - read-only data symbol
    T - code/text symb <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29472	29591	
==>e of \${DEST0} or \${LOADREG} in rule " .
				"$rule->{'name'}\n";
		}

		# Now call pre_load and append code that it ge <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026521	1026756	
==>ops/sys.ops\"\n   {{\@1}} = sysinfo_i(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1027278	1027513	
==>ops/sys.ops\"\n   {{\@1}} = sysinfo_i(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025008	1025249	
==>ops/sys.ops\"\n   {{\@1}} = sysinfo_s(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025765	1026006	
==>ops/sys.ops\"\n   {{\@1}} = sysinfo_s(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	619	718	
==>d> for further details about the configuration
framework.

=head1 USAGE

=head2 Import Parameters

T <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	378811	379297	
==>AME" => "stat",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 443,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  " <==
2	/Users/nnunley/parrot/config/inter/lex.pm	2132	2264	
==>ume that this is flex.
    # flex calls it self by $0 so it will claim to be lex if invoked as `lex`
    if ($stdout =~ /f?lex .*? (\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719797	719898	
==>ps\"\n  PMC * const io = {{\@1}};\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_put <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720997	721098	
==>ps\"\n  PMC * const io = {{\@1}};\n  STRING *s;\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_put <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	2526	2763	
==>alar @dir1;
    @dir2{@dir2} = (1) x scalar @dir2;
    my @diff;
    foreach (keys(%dir2)) {
	push @diff, $_ unless $dir1{$_};
    }
    print "diff @diff\n" if $opt{d};
    @diff;
}

sub get_dis {
    my ($cmd, $f) = @_;
    @dis = qx($c <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	2025	2201	
==>et_symbol($new_name, $self->get_symbol($symbol_name));
  }

#  printf STDERR "%s: Finished copying symbol table to parent block.\n", __PACKAGE__;

  return 1 unless $self->conte <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	7234	7331	
==>$self->{name}";
}

sub nextimplicit($)
{
	my $self = shift;
	my $prodcount = scalar @{$self->{"pro <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	16846	17064	
==>rpreter, HashPointer, string_from_cstring(interpreter, "$key", 0), temp_pmc);
PUT_POINTER
#        qq|        parrot_hash_put( interpreter, known_frames, const_cast("$key"), $value );|;
}


sub print_tail {
    my ($put <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578422	578693	
==>eter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15024	15143	
==>'[0]']);

  return $return;
}

sub _op_cdr {
  my ($self, $node) = @_;

  _num_arg ($node, 1, 'cdr');

  my $return = $s <==
2	/Users/nnunley/parrot/lib/Test/More.pm	14173	14386	
==>diag\n");
    }
    else {
        $ok = $Test->ok( 1, $name );
    }

    return $ok;
}


=item B<pass>

=item B<fail>

  pass($test_name);
  fail($test_name);

Sometimes you just want to say that the tests have p <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	1804	1994	
==>e "Unable to open config/Makefile.in\n";
	my $makefile = join('', <$fh>);
	close $fh;
	
	# Sub in config data.
	for (keys %config) {
		$makefile =~ s/\${$_}/$config{$_}/g;
	}
	$makefi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	69116	69296	
==>ock_GC(interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	69558	69738	
==>ock_GC(interpreter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	29811	30040	
==>1]{'start_line'}}, ''],
            $para
          ;
          next;
        }
        
        
        my $over_type = $over->[1]{'~type'};
        
        if(!$over_type) {
          # Shouldn't happen1
          die "Typeles <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47054	47281	
==>erpreter, PARROT_ALL_DEBUG_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	47837	48064	
==>erpreter, PARROT_ALL_DEBUG_FLAGS); }\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Directory.pm	54	141	
==>rot/lib/Parrot/Docs/Directory.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 N <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1269	1375	
==>t, $desc );
        $self->{builder}->diag("'$cmd' failed with exit code $exit_code")
        if $exit_code <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1310	1416	
==>t, $desc );
        $self->{builder}->diag("'$cmd' failed with exit code $exit_code")
        if $exit_code <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4556	4830	
==>Block");
  confess "Extra arguments!" if @_;

  return keys %{$self->{SYMBOLS}};
}


###############################################################################

=head2 BLOCK->dump_symbols()

FOR DEBUGGING ONLY.

Dumps the complete list of symbols visible from this block <==
2	/Users/nnunley/parrot/tools/docs/pod_errors.pl	544	641	
==>))
{
	next unless $file->contains_pod;
	next unless $file->num_pod_errors;
	
	my $errors = $file-> <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	17804	17921	
==>hy ||= '';
    $self->_unoverload(\$why);

    unless( $self->{Have_Plan} ) {
        require Carp;
        Carp::croa <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11244	11398	
==>ENT_TYPE_ARRAY= 0x14
	.const int ELEMENT_TYPE_TYPEDBYREF = 0x16
	.const int ELEMENT_TYPE_I = 0x18
	.const int ELEMENT_TYPE_U = 0x19
	.const int ELEMENT_TYP <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	1077	1233	
==>t pre-declare how many tests you
plan to run.  This is in case something goes horribly wrong during the
test and your test program aborts, or skips a test or <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033381	1033466	
==>NULL(lex_pad)) {\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '% <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034479	1034564	
==>NULL(lex_pad)) {\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '% <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	509	735	
==>' => 1,
             'HAS_READLINE' => 1,
             'HAS_SNPRINTF' => 1,
             'HAS_aligned_funcptr' => 1,
             'MAJOR' => '0',
             'MINOR' => '4',
             'PATCH' => '5',
             'PQ' => '\ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20972	21084	
==>arse::RecDescent::_trace(q{Trying action},
					  Parse::RecDescent::_tracefirst($text),
					  q{' . $rule->{nam <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655670	655965	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	701570	701919	
==>YPE" => "inline",
                  "CODE" => 787,
                  "ARGS" => [
                              "p",
                              "ic",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfind(interpreter, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509019	509246	
==>s/math.ops\"\n  {{\@1}} = - {{\@1}};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509650	509877	
==>s/math.ops\"\n  {{\@1}} = - {{\@1}};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	915463	916059	
==>":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1031,
                  "ARGS" => [
                              "i",
                              "sc",
                              "sc",
                              "i"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_ind <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2551	2698	
==>tstore_global "COMMON", _GLOBALS\n};
			}
			s/#SAVECOMMON/$edit/;
		}		
		if (/#RESTORECOMMON/) {
			@saves=();
			$edit="";
			foreach my $var (ke <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2478	2659	
==>$self = shift;
    my $path = shift || return;
    
    $path = $path->path if ref $path;
    
    my $rel_path = File::Spec->abs2rel($path, $self->path);

    # some (all?) versions <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	663	782	
==>rter );

use Carp;
use File::Basename qw( basename );
use File::Copy ();
use File::Spec;
use File::Which;

# XXX $conf i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	3562	3694	
==>ax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'var', Attributes => { type => $self->type->name, <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	1672	1813	
==>type}) {
					die "User type $stype not found at source line $sourceline";
				}
				$user=1
			}
		}
		unless ($stype) {
			$stype=typeof($va <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	13980	14287	
==>and($exe_f,
                                        CD     => $path_to_parrot,
                                        STDOUT => $out_f,
                                        STDERR => $out_f);
                        }
                    }
                }
            }

            if ( $func =~ /^pbc <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	1026	1209	
==>numtype="FLO";
			goto NUMCONST;
		}
		# Falls through!
		if ($cur =~ /[#!&%]/) {
			append;
			fetch;
			if ($cur =~ /[!#]/) {
				$numtype="FLO";
			}
		}
		emit($numtype);
		goto MA <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	2929	3029	
==>LE_IS_CONST_FLAG = 0x01,
    VTABLE_HAS_CONST_TOO = 0x02,
    VTABLE_PMC_NEEDS_EXT = 0x04,
    VTABLE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1086601	1086884	
==>RGS" => [
                              "p",
                              "p",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 163 \"src/ops/experimental.ops\"\n    {{\@1}}->vtable->splice(interp <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	8895	9080	
==>[0],
            'arg2'   => undef,
            'result' => $result,
        );
        return [ $defn, \@opcodes, $assign ];
    }
    else {
        my $defn = $parser->YYData-> <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19870	20135	
==>=> 112,
			'IF' => 10,
			'FUNCTION' => 12,
			'DO' => 15,
			'LOCAL' => 17,
			'WHILE' => 16
		},
		DEFAULT => -7,
		GOTOS => {
			'functioncall' => 9,
			'var' => 11,
			'laststat' => 111,
			'varlist1' => 13,
			'_if_then' => 14,
			'stat' => 7
		} <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	82	254	
==>Tools.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Section::Tools - Tools documentation section

=head1 SYNOPSIS

    use Parrot::Docs::Secti <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	8517	8629	
==>fine GET_NCI_P(n) get_nci_P(interpreter, &st, n)

/*
 * set return value
 */
static void
set_nci_I(Interp *interp <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10528	10645	
==>{
    my $exe   = $conf->data->get('exe');
    my $slash = $conf->data->get('slash');
    my $verbose = $conf->options <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573510	573887	
==>,
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 655,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 242 \"src/ops/object.ops\"\n  PMC *name = pmc_new(interpreter, enum_ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	39623	39721	
==>ntil another "/para" tag is
encountered:

	$text = "/para line 1\n\nline 3\n/para line 4";

	extrac <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	13743	13865	
==>$self); # so we tolerate being a class method
  
  if(!defined $source)             { $source = *STDIN{IO}
  } elsif(ref(\$ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	767	934	
==>{};
    $self->{_temp_int_count} = 3;
    $self->{state} ||= Regex->global_state();
    my $FAIL = $self->genlabel("FAIL");
    $self->{_labels}{'fail'} = $FAIL;
}


su <==
2	/Users/nnunley/parrot/lib/File/Which.pm	2340	2454	
==>'t mark as executable so we check -e
                  ($Is_DOSish and grep { $file =~ /$_$/i } @path_ext[1..$#path <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	14261	14437	
==>5\u2190" # quad output
    .param pmc op1

    'aplprint'(op1)
    .return(op1)
.end


END_OF_TEMPLATE

# Generate all variants for scalar dyadic ops.
my @type_pairs = (
  [ 'Fl <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4974	5083	
==>->{$_} } @pmcs;

    foreach (@ungrouped_pmcs, keys %$group_files) {
        copy("$_$LOAD_EXT", $dest) or die <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	3537	3721	
==>en-paren' : 'close-paren', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^([\[\]])(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, $1 eq '[' ? <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035515	1035618	
==>arrot_find_pad(interpreter, lex_name, ctx);\n    PMC *result = NULL;\n\n    if (!PMC_IS_NULL(lex_pad))\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036679	1036782	
==>arrot_find_pad(interpreter, lex_name, ctx);\n    PMC *result = NULL;\n\n    if (!PMC_IS_NULL(lex_pad))\n <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	18335	18475	
==>+;
		}
		else {
			$label = "";
		}
		my $extrapos = pos($$textref);
		$$textref =~ m{.*\n}gc;
		$str1pos = pos($$textref);
		unless ($$textr <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15137	15226	
==>number{$name})>.

=head1 SEE ALSO

L<perlpod|perlpod>

L<perlpodspec|perlpodspec>

L<Text: <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	14363	14738	
==>shift;
    my $item = shift;
    my $file = $source->file_with_relative_path($rel_path);
    
    return unless $file->contains_pod;
    
    $self->{TARGET} = $target;
    
    # Use our own method for consistency.
    $self->{'Title'} = $file->title;
    
    $rel_path = $self->append_html_suffix($rel_path);
        
    my $docs_file = $target->file_with_relative_path($r <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	14972	15107	
==>Else->new($parent_block, $peer_block);
        $self->push_block($cond) if defined $cont;;
      }
      elsif ($peer_block->kind eq 'el <==
2	/Users/nnunley/parrot/lib/Test/More.pm	24849	24964	
==>y are equivalent.  If the two structures are different, it
will display the place where they start differing.

Test: <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	2845	3014	
==>e HTML-formatted text describing the files linked to is returned.

=cut

sub write_html
{
    my $self = shift;
    my $source = shift || die "No source\n";
    my $targe <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	1728	1841	
==>e HTML-formatted text describing the files linked to is returned.

=cut

sub write_html
{
	my $self = shift;
	my $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	777762	778002	
==>"ARGS" => [
                              "p",
                              "kic",
                              "n"
                            ],
                  "BODY" => "#line 382 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_number_ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	9093	9255	
==>on F<test.c>.

=cut

sub cc_build
{
    my ($cc_args, $link_args) = @_;

    $cc_args   = '' unless defined $cc_args;
    $link_args = '' unless defined $link_args <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53380	53506	
==>sif ($grammar =~ m/$RESYNCMK/gco)
			{
				_parse("a resync to newline marker", $aftererror,$line);
				$item = new Parse::RecD <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	3428	3549	
==>PACE  enum_cclass_whitespace
#define WORDCHAR    enum_cclass_word
#define PUNCTUATION enum_cclass_punctuation
#define DIGI <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeDumb.pm	726	854	
==>oder {
  my($e) = $_[1];
  die "WHAT ENCODING!?!?" unless $e;
  my $x;
  return sub {;
    #foreach $x (@_) {
    #  if(Pod::Simp <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	3097	3205	
==>f->new_item('Documents incompatible changes to Parrot that invalidate existing bytecode files. This is the ne <==
2	/Users/nnunley/parrot/languages/regex/test.pl	3872	3965	
==>generate_regular_pir("test_regex.pir", $pattern);
    generate_pbc("test_regex.pir", "test.pbc <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	87	188	
==>IN {@ISA = ('Pod::Simple')}

use strict;

use Carp ();

BEGIN { *DEBUG = \&Pod::Simple::DEBUG unless d <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	86	187	
==>IN {@ISA = ('Pod::Simple')}

use strict;

use Carp ();

BEGIN { *DEBUG = \&Pod::Simple::DEBUG unless d <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	1227	1401	
==>e::Find;
use File::Spec;


my %defined_in;
my %referenced_in;
my %ansi_c89_symbol;
my %ansi_c89_header;

my ($mode, @files) = @ARGV;

if ($mode !~ /^(source|object)$/ || ! @fi <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	852	957	
==>ion returns C<Parrot::IO::File>.

=cut

sub file_class
{
    return 'Parrot::IO::File';
}

=item C<directo <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	820	915	
==>emit .eom .sub .end .pcc_begin
    .pcc_end .pcc_sub .pcc_begin_return .pcc_end_return .pcc_begi <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	13229	13361	
==>osing parentheses and add a space around the argument,
        # like so:
        #
        #    goto OFFSET(( (void*)interpreter->ha <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3887	3991	
==>osing
parentheses and add a space around the argument, like so:

    goto OFFSET(( (void*)interpreter->ha <==
2	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1651	1765	
==>rsion
    Outputs the version of this program and exits.
  --help
    Show this help.

Options may be abbreviated t <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	62970	63059	
==>issing second block for quotelike "%s">

C<extract_codeblock> or C<extract_quotelike> foun <==
2	/Users/nnunley/parrot/config/gen/platform.pm	3073	3237	
==>ie "Can't open $_: $!";
            print PLATFORM_H <<"END_HERE";
/*
** $_
*/
#line 1 "$_"
END_HERE
            print PLATFORM_H <IN_H>, "\n\n";
            close I <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	4880	5067	
==>reter, op_lib.core_type);\n    {{+=0}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
2	/Users/nnunley/parrot/lib/Test/More.pm	25285	25402	
==>ns you passed an array or hash instead 
of a reference to it
WARNING
        chop $msg;   # clip off newline so carp() <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830224	830478	
==>ME" => "save",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 939,
                  "ARG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350977	351174	
==>.ops\"\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351639	351836	
==>.ops\"\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11074	11267	
==>TACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11863	12056	
==>TACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);\n  {{+={{\@1}}}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/config/auto/env.pm	233	332	
==><setenv()> and C<unsetenv()>.

=cut

package auto::env;

use strict;
use vars qw($description @args) <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	2004	2234	
==>ase + ((opcode_t*)cur_opcode)[o])

END
}

=item C<suffix()>

The suffix is C<'_prederef'>.

=cut

sub suffix
{
    return "_prederef";
}

=item C<opsarraytype()>

The ops array type is C<void *>.

=cut

sub opsarraytype
{
    retur <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	6444	6557	
==>zA-Z0-9]*$/s;
    Carp::croak "\"$d\" is already a reserved Pod directive name"
     if exists $Known_directives{$ <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	1164	1282	
==>nvalid direction '$direction'";
    print "$action $filename\n" if $opt{verbose};
    open my $fh, $direction, $filenam <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	12511	12638	
==>mv->{'BC'} = 'bc';
    $mv->{'INS'} = 'gen_pir';
    $mv->{'PC'} = 'pc';
	$mv->{'NEXTPC'} = 'next_pc';
	$mv->{'PTYPES'} = 'ptype <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	830715	830933	
==>TRY_INT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	831456	831674	
==>TRY_INT, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	3710	3845	
==>erbose-step ask));

    my $n = 0; # step number
    foreach my $task ($self->steps) {
        my $step_name   = $task->step;
        my <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	1211	1321	
==>ning text. C<$pmcfile> is the name
of the original source F<*.pmc> file.

=cut

sub dont_edit {
    my ($pmcfil <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	4028	4133	
==>pmc_type");
    $compiler->emit("  $temp_pmc = $dest");

    my $dest_name = $dest_ident->value;
    $comp <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7169	7335	
==>ead, $copy]);

  # maybe ensure that $type is a pair here
  my $temp = $self->_save_1('P');
  $self->_add_inst("ITER_$label", 'set', [$temp,$list.'[0]']);
  $self->_ad <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	12573	12833	
==>GNEXT",
                  "NAME" => "jsr",
                  "FLAGS" => ":base_core,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CO <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	5645	5744	
==>!!!!!!!
#
# This file is generated automatically from '$file'.
# Any changes made here will be lost! <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	3125	3255	
==>ag) if $diag;
        }

        # The generated files are left in the t/* directories.
        # Let 'make clean' and 'svn:ign <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2719	2846	
==>ag ) if $diag;
        }

        # The generated files are left in the t/* directories.
        # Let 'make clean' and 'svn:ign <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	3465	3601	
==>$arg (@args) {
        next unless $arg->{type};
        
        $types{ $arg->{type} } = 1;
    }
    
    # helper conversion subrouti <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	2675	2773	
==>rent state of the
test.

Since you only run one test per program C<new> always returns the same
Tes <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	21610	21760	
==>lastpos, $firstpos);
	my @fields = ();

	#for ($$textref)
	{
		my @func = defined $_[1] ? @{$_[1]} : @{$def_func};
		my $max  = defined $_[2] && $_[2]> <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	37565	37661	
==>rs in the actual opening tag that was matched (I<not> the pattern
that matched the tag). For exam <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215051	215178	
==>}}->vtable->get_integer(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	215992	216119	
==>}}->vtable->get_integer(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9187	9341	
==>RO,5)=0 THEN GOSUB 20: REM GOO
   end
20 print "Correct"
   return

' Expect Hello A World
print "Hello " + chr$(65);
print " World"

' Expect 21 and "Corr <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39538	39744	
==>sh @opcodes1, new NewClosureOp( $parser,
        'result' => $result,
        'arg1'   => $fct,
    );
    return [ $result, \@opcodes1 ];
}

sub BuildMain {
    my ( $parser, $stat ) = @_;
    if ( <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	1428	1548	
==>nerate final translator code.
$pir .= generate_final_pir($srm, $metavars);

# Finally, we need to insert auto-magically i <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6289	6406	
==>_mmd_func_names[] = {
EOM

    for my $entry (@{$vtable}) {
    next unless ($entry->[4] =~ /MMD_/);
    next if ($ent <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	17200	17442	
==>seg}->{code}}, "WHILE_$whilecounter:\n";
	push @{$code{$seg}->{code}}, <<BRANCH;
@code	eq $result, $false, AFTERWHILE_$whilecounter
BRANCH
}
sub parse_wend {
	$_=pop(@whiles);
	$_=$_->{jump};
	push @{$code{$seg}->{code}}, <<LOOPUP;
	goto WHILE <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4286	4403	
==>he C code for the run core function declaration.

=cut

sub run_core_func_decl
{
    my ($self, $core) = @_;

    retu <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2774	2891	
==>he C code for the run core function declaration.

=cut

sub run_core_func_decl
{
    my ($self, $core) = @_;

    retu <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	778	895	
==>ase beep binary bload bsave byval
			call calls absolute interrupt base chain circle clear
				close cls color com com <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	589	761	
==>ion, $resources)>

Returns the page header with the specified title and navigation bar.
C<$resources> should be the relative path from the page to
F<docs/resources>, the ima <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	237	365	
==>:Docs::Section::IMCC;

=head1 DESCRIPTION

A documentation section describing IMCC.

=head2 Class Methods

=over

=cut

package P <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13738	13856	
==>ave_1 ('I');

  if ($item =~ /^[INS]/) {
    $self->_add_inst ('', 'set', [$return,0]);
  }
  else {
    $self->_add_in <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	43931	44029	
==>($$;$)
{
	_error("Ruleless $_[0] at start of grammar.",$_[1]);
	my $desc = $_[2] ? "\"$_[2]\"" : "" <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1872	1973	
==>uns the target string against the Perl 6 pattern, passing the test if
they do not match. The same patt <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3404	3505	
==>uns the target string against the Perl 6 pattern, passing the test if
they do not match. The same patt <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	3281	3438	
==>e ground its
recommended you look at L<Test::More>.


=head1 EXAMPLE

Here's an example of a simple .t file for the fictional Film module.

    use Test::Simp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744304	744536	
==>tring_from_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745070	745302	
==>tring_from_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	7559	7823	
==>@to_unget, $self->get_token;
          pop(@to_unget), last unless defined $to_unget[-1];
           # Erroneously used to be "unshift" instead of pop!  Adds instead
           # of removes, and operates on the beginning instead of the end!
          
          if( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	8376	8557	
==>SOURCE{IO};
    }
    $self->{'source_filename'} = $_[0];
    DEBUG and print "  Its name is $_[0].\n";

    # TODO: file-discipline things here!
  }

  $self->{'source_fh'} = $handl <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	2532	2625	
==>ether each argument direction was prefixed by 'C<label>'.

C<$flags> is one or more (comma-sep <==
2	/Users/nnunley/parrot/tools/dev/as2c.pl	1628	1852	
==>) {
	    my $text = "";
	    while (<IN>) {
		last if (/INTERFACE\*\//);
		$text .= $_;
	    }
	    $text =~ s/\@FUNC\@/$func/g;
	    $text =~ s!\@\*!/*!g;
	    $text =~ s!\*\@!*/!g;
	    print $text;
	}
    }
    close IN;
} <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	31138	31246	
==>sub _op_current_output_port {
}

sub _op_with_input_to_file {
}

sub _op_with_output_from_file {
}

sub _op_o <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23122	23225	
==>HITEM ? ''
			       : '$item{'.$self->{hashname}.'}=').'$_tok;
		' . ($self->{"lookahead"} ? '$text = $ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32881	32981	
==>HITEM ? ''
				 : '$item{'.$self->{hashname}.'}=') . '$_tok;
		' . ($self->{"lookahead"} ? '$text = $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1163	1264	
==>e[i])
#define CONST(i) CONTEXT(interpreter->ctx)->constants[cur_opcode[i]]
END
}

=item C<pc($pc)>

=i <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1047	1136	
==>e[i])
#define CONST(i) CONTEXT(interpreter->ctx)->constants[cur_opcode[i]]
END
}

=item C< <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38442	38547	
==>scent::_tracefirst($text),
					  q{' . $rule->{"name"} .'})
						if defined $::RD_TRACE;
		') . ($::RD_N <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611196	611455	
==>_attr(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612099	612358	
==>_attr(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2818	2976	
==>t
             \s+ \{ ([^}]+) \}          # test description
             \s+ (?:\S+ \s+)? \{ \n     # optional test harness info (ignoring)
                 ( <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4215	4373	
==>t
             \s+ \{ ([^}]+) \}          # test description
             \s+ (?:\S+ \s+)? \{ \n     # optional test harness info (ignoring)
                 ( <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	15813	16040	
==>RTOR
ORS
	}
	if ($ors and $tos) {
		print CODE qq{\tunshift P9, "OP"\n};
		print CODE qq{\tunshift P9, "or"\n};
	}
	if ($tos) {
		print CODE<<TOS;
	I5= P13
	div I5, I5, 2
CASE_${jump}_${incase}_STARTTO:
	eq I5, 1, CASE_${jump}_$ <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	5223	5324	
==>night about the problems I was having writing some really
complicated feature into the new Testing mod <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809671	809779	
==>rc/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_string_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810576	810684	
==>rc/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_string_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4} <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9466	9580	
==>then print "Whoa"

' Count by .5's and True! after 3
for t=1 to 10 step 0.5
print t,
print sqr(t),
if t=3 then prin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676031	676122	
==>ops\"\n    {{\@1}}->vtable->unshift_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	676811	676902	
==>ops\"\n    {{\@1}}->vtable->unshift_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	849	957	
==>ush @tokens, Jako::Token->new(
      $file, $line, 'label', 'N', $2);
    $text = $3; # The "(?!:)" is non-ca <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103993	1104081	
==>\t\ttype = pmc_type(interpreter, class);\n\t}\n\tif (type <= 0)\n\t\treal_exception(inter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105208	1105296	
==>\t\ttype = pmc_type(interpreter, class);\n\t}\n\tif (type <= 0)\n\t\treal_exception(inter <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	13637	13747	
==>C<%Name2character>'s behavior under pre-5.7 Perls.

Note that this hash does not
include numerics (like "64" or <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596853	597103	
==>676,
                  "ARGS" => [
                              "p",
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 337 \"src/ops/object.ops\"\n  {{\@1}} = VTABL <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	3777	3882	
==>=> 'method', 1 );
}

if ( ! @{ $cfg{run_bench} } ) {
    my @regexes = grep defined, $ini->val( regexes => <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2124	2253	
==>ind . \".\n\n".
		"--plus-misses creates a second section, with the heads of any\n".
		"files which had familiar types, but from w <==
2	/Users/nnunley/parrot/config/gen/config_pm.pm	2207	2422	
==>>/cwd/e) {
            print OUT;
        } else {
            print OUT;
        }
    }

    close IN  or die "Can't close config_lib.in: $!";
    close OUT or die "Can't close config_lib.pasm: $!";

    return $se <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	3070	3294	
==>) . "\n";
    close(F);
}


############################################################################
sub run_command {
    my ($command) = @_;

    print "- $command\n";
    system($command);

    if ($? >> 8) {
        d <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	2616	2780	
==>stribution, with their metadata.', 'MANIFEST'),
            $self->new_item('Lists all the generated files, i.e. the files that will be added to the distribution aft <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	265704	266119	
==>,
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 309,
                  "ARGS" => [
                              "i",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 806 \"src/ops/cmp.ops\"\n    {{\@ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1632	1765	
==>rops;

  my @args  = $self->args;

  my @formal_args = $sym->args;

  $self->SYNTAX_ERROR("Wrong number of arguments (expected %d, got <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1332	1465	
==>rops;

  my @args  = $self->args;

  my @formal_args = $sym->args;

  $self->SYNTAX_ERROR("Wrong number of arguments (expected %d, got <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7133	7234	
==>q 'ARRAY' ? join('|', @{$options{reject}})
		    : defined($options{reject})	       ? $options{reject} <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24135	24236	
==>q 'ARRAY' ? join('|', @{$options{reject}})
		    : defined($options{reject})	       ? $options{reject} <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	1610	1759	
==>$|\W.*$)}x) {
      push @tokens, Jako::Token->new(
        $file, $line, 'literal', 'I', $1);
      $text = $2;
      next;
    }

    #
    # String <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	456794	457315	
==>DIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 524,
                  "ARGS" => [
                              "n",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 240 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} + {{\@3}};\n  {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	4642	4746	
==>s task.  For now we just check the first line of a function,
# and assume that more likely than not inden <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39505	39631	
==>type'   => 'Sub',
    );
    push @opcodes1, new NewClosureOp( $parser,
        'result' => $result,
        'arg1'   => $f <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4334	4429	
==>th
${STEMP0} = concat ${STEMP1}
${DEST$push_num} = ${STEMP0}

# Increment dtypes index.
inc ${IT <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2750	2845	
==>th
${STEMP0} = concat ${STEMP1}
${DEST$push_num} = ${STEMP0}

# Increment dtypes index.
inc ${IT <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407716	408014	
==>JUMP" => 0,
                  "NAME" => "connect",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408614	408912	
==>JUMP" => 0,
                  "NAME" => "connect",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYP <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	1214	1416	
==>anslation dispatch table.
$pir .= generate_dispatch_table($srm, \@rules, $metavars);

# Generate instruction translation code from rules.
foreach (@rules) {
	$pir .= generate_rule_code($srm, $_, $metavar <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	2907	3009	
==>object or archive files.  The options can be used to limit the symbols:
--code|-c	code/text symbols (Tt <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3297	3397	
==>ZY_MOVE_$register_num

# No lazy move available - need to refer to register.
${STEMP0} = "$"
${STEMP1 <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5059	5159	
==>ZY_MOVE_$register_num

# No lazy move available - need to refer to register.
${STEMP0} = "$"
${STEMP1 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	790	888	
==>. ref($type) . ") is not!"   if defined $type and not UNIVERSAL::isa($type, qw(Jako::Construct::Typ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	672	768	
==>. ref($type) . ") is not!" if defined $type and not UNIVERSAL::isa($type, qw(Jako::Construct::Typ <==
2	/Users/nnunley/parrot/tools/dev/symlink.pl	374	479	
==>asename;
use File::Spec;
use Cwd;

my $self = $0;
my $cwd  = getcwd();

$self = readlink($self) while -l $ <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	1276	1384	
==>self->path;
}

=item C<parent($path)>

Returns the file's parent directory.    

=cut

sub parent
{
    my $s <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	172	278	
==>Data::Dumper;
use File::Basename;
use File::Spec::Functions;
use Parrot::Config;


=head1 NAME

Test/Regex. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368988	369468	
==>"FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 432,
                  "ARGS" => [
                              "s",
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 341 \ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	33393	33696	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set_addr",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	34181	34484	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set_addr",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669493	669851	
==>=> [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 749,
                  "ARGS" => [
                              "p",
                              "nc"
                            ],
                  "BODY" => "#line 410 \"sr <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	2107	2303	
==>file`;
    if (!$ret) {
	print STDERR "TEST FAILED: $file didn't return a value, Parrot crashed?\n";
	return;
    }
    if ($ret != $expect) {
	print STDERR "TEST FAILED: $file (got $ret expected $ <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	4384	4543	
==>{ \$r->$elem = \$init{'$name'} } $cmt\n";
            $out .= "       else { croak 'Initializer for $name must be hash or $type reference' }\n";
            $ou <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	1409	1549	
==>ef($atom) eq 'ARRAY') {
        # Codeblock
        $R = op('external' => [ 'code', [ $atom, $ctx ] ]);
    } elsif (UNIVERSAL::can($atom, 't <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	1075	1233	
==>ompile
{
  my $self = shift;
  my ($compiler) = @_;

  my $left  = $self->left->value;
  my $right = $self->right->compile($compiler);

  $compiler->emit("  ne <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1067	1206	
==>ompile
{
  my $self = shift;
  my ($compiler) = @_;

  my $left  = $self->left->value;
  my $right = $self->right->compile($compiler);

  if <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1982	2206	
==>\\a//
                and $str .= "\a",      # bell
                last;
            s/^\\b//
                and $str .= "\b",      # backspace
                last;
            s/^\\f//
                and $str .= " <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3496	3720	
==>\\a//
                and $str .= "\a",      # bell
                last;
            s/^\\b//
                and $str .= "\b",      # backspace
                last;
            s/^\\f//
                and $str .= " <==
2	/Users/nnunley/parrot/examples/benchmarks/addit.pl	466	630	
==>7).

=cut

use strict;
sub varargs_adder {
    my $sum = 0;
    for (my $a = $#_; $a >= 0; --$a) {
        $sum += $_[$a];
    }
    return $sum
}
my $result = 0;
my <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5033	5136	
==>', 'STACK', 'CHECK', 'DOTPOS' };

#DBG>	my($debug)=$$self{DEBUG};
#DBG>	my($dbgerror)=0;

#DBG>	my( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4790	4888	
==>', 'STACK', 'CHECK', 'DOTPOS' };

#DBG>	my($debug)=$$self{DEBUG};
#DBG>	my($dbgerror)=0;

#DBG>	my( <==
2	/Users/nnunley/parrot/config/auto/bc.pm	496	584	
==>Parrot::Configure::Step ':auto', 'capture_output';

$description = 'Determining whether G <==
2	/Users/nnunley/parrot/config/auto/m4.pm	470	558	
==>Parrot::Configure::Step ':auto', 'capture_output';

$description = 'Determining whether G <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10341	10452	
==>o hold value we pop off the stack.
${PTEMP3} = ${STYPES}[${ITEMP2}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP3}["reg_t <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7725	7836	
==>o hold value we pop off the stack.
${PTEMP3} = ${STYPES}[${ITEMP2}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP3}["reg_t <==
2	/Users/nnunley/parrot/lib/Test/More.pm	17650	17842	
==>er based modules.
        eval <<USE;
package $pack;
use $module $imports[0];
USE
    }
    else {
        eval <<USE;
package $pack;
use $module \@imports;
USE
    }

    my $ok = $Test->ok( ! <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	389	494	
==>port( $plan, @args );

    __PACKAGE__->_export_to_level( 2, __PACKAGE__ );
}

my $count;

foreach my $met <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	306	411	
==>port( $plan, @args );

    __PACKAGE__->_export_to_level( 2, __PACKAGE__ );
}

my $count;

foreach my $met <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15238	15464	
==>es3, $assign;
    }
    push @opcodes1, @opcodes2, @opcodes3;
    return \@opcodes1;
}

sub BuildCallVararg {
    my ($parser) = @_;
    my $result;
    my @opcodes = ();
    my $nil = BuildLiteral( $parser, 'nil', 'n <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	33919	34045	
==>pop type off the stack types array.
		$pir .= "    type_trans = pop stypes\n";
	}

	# Branches (branch class).
	elsif ($rule->{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	371	562	
==>AP = 1 unless defined $WRAP;

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub _openclose {
 return map {;
   m/^([-A-Za-z]+)=(\w[^\=]*)$/s or die "what's <$_>? <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	18031	18170	
==>e hacks" */
    UNUSED(pmc_nci);
    signature_len = string_length(interpreter, signature);
    if (0 == signature_len) return F2DPTR(pcf_v_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6495	6620	
==>P_arg_0[i]
    ${ITEMP0} = ${NEXTPC} + j
    prop_type_state[${ITEMP0}] = ${STYPES}
    prop_stack_depth[${ITEMP0}] = stack_de <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4433	4558	
==>P_arg_0[i]
    ${ITEMP0} = ${NEXTPC} + j
    prop_type_state[${ITEMP0}] = ${STYPES}
    prop_stack_depth[${ITEMP0}] = stack_de <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033263	1033371	
==>G * const lex_name = {{\@1}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n    if <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034361	1034469	
==>G * const lex_name = {{\@1}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n    if <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	43324	43475	
==>ns=> [],
    scope    => {},
  };
  bless $self,$class;
}

sub prettyprint {
  my $node  = shift;
  my $depth = shift;

  print ' ' x $depth; print "($n <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	8508	8661	
==>ands
    system( $_ ) for (@{$command});

    if( $chdir ) {
        chdir $orig_dir;
    }

    my $exit_code = $? >> 8;

    close STDOUT             or <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3131	3229	
==>lso create any lib-GROUP.c files

    generate_dump($_) foreach (@pmcs);
    generate_c($_) foreach <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3235	3333	
==>lso create any lib-GROUP.c files

    generate_dump($_) foreach (@pmcs);
    generate_c($_) foreach <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10259	10349	
==>------------------------------------------


#line 1 "lib/Regex/Grammar.y"


use constant T <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23099	23203	
==>ush @item, '.($::RD_NO_HITEM ? ''
			       : '$item{'.$self->{hashname}.'}=').'$_tok;
		' . ($self->{"lo <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32856	32959	
==>ush @item, ' . ($::RD_NO_HITEM ? ''
				 : '$item{'.$self->{hashname}.'}=') . '$_tok;
		' . ($self->{"lo <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	5040	5177	
==>reate_label();
		push(@onlab, $syms[CURR]);
		feedme();
	}
	push @{$code{$seg}->{code}},<<ON;
@code	lt $result, 0.0, ONERR_${ons}
	gt $res <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	6556	6765	
==>,
                    'result' => $num_key,
                );
                $key = [ $num_key, \@opcodes3 ];
            }
            if (    scalar @{$fields} == 0
                and scalar @{ $val- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095159	1095267	
==>/ops/experimental.ops\"\n  Parrot_Exec_OS_Command(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095854	1095962	
==>/ops/experimental.ops\"\n  Parrot_Exec_OS_Command(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131396	131721	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132251	132576	
==>n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLA <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7810	7915	
==>then print "Should not happen (string)"
i%=0
if i% then print "Should not happen (int)"
i%=54
if i% then p <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14797	14902	
==>then print "Should not happen (string)"
i%=0
if i% then print "Should not happen (int)"
i%=54
if i% then p <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2066	2265	
==>de = (opcode_t *) opcode_to_prederef(interpreter, $addr);
	       goto SWITCH_RELOAD;
            }
EOC
    }
}

=item C<goto_offset($offset)>

Transforms the C<goto OFFSET($offset)> macro in an ops f <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_assignments.pm	19	223	
==>ict;


# Variable name may have a SIGIL and is in S1
#    % &   INT
#    ! #   FLO
#    $     STRING
#    
# Type must be one of INT FLO STRING
#    INT  is in   I0
#    FLO  is in   N0
#    STRING is in S <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1901	2002	
==>art_head1');
  $parser->handle_text( "Hi there" )   if $parser->can('handle_text');
  $parser->end_hea <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3364	3523	
==>dy...
	while($type[CURR] !~ /COMP|COMM|STMT/) {
		die if $loop++>20;
		push @{$code{$seg}->{code}}, "\tpop \$S99, \$P99\n";
		push @{$code{$seg}->{code}}, "\t\$ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22680	22772	
==>$self->_add_inst("DONE_$label");
  $self->_restore($temp_0,$temp_1);
  return $return;
}

sub <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23181	23273	
==>$self->_add_inst("DONE_$label");
  $self->_restore($temp_0,$temp_1);
  return $return;
}

sub <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	25763	25899	
==>ened_Testhandles;
    # We dup STDOUT and STDERR so people can change them in their
    # test suites while still getting normal test out <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56383	56638	
==>erpinfo_p(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57145	57400	
==>erpinfo_p(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57906	58159	
==>erpinfo_s(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58668	58921	
==>erpinfo_s(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	436492	436580	
==>src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, {{\@2}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437507	437595	
==>src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4}}, {{\@2}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	575149	575607	
==>es",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 657,
                  "ARGS" => [
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 249 \"src/ops/object.ops\"\n    {{\@1}} = pmc_new_init(interpreter, enum_cl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720907	721067	
==>"
                            ],
                  "BODY" => "#line 133 \"src/ops/python.ops\"\n  PMC * const io = {{\@1}};\n  STRING *s;\n  if (PIO_softspace(in <==
2	/Users/nnunley/parrot/lib/Test/More.pm	1155	1366	
==>for writing test scripts

=head1 SYNOPSIS

  use Test::More tests => $Num_Tests;
  # or
  use Test::More qw(no_plan);
  # or
  use Test::More skip_all => $reason;

  BEGIN { use_ok( 'Some::Module' ); }
  require_ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	15737	15859	
==>kg . '::TODO' } = \$extra{todo}
                if defined $extra{todo};

            my $pass = $builder->$meth( $real_out <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	18288	18410	
==>kg . '::TODO' } = \$extra{todo}
                if defined $extra{todo};

            my $pass = $builder->$meth( $real_out <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	1947	2054	
==>a string comparison
of the output with the expected result it true.

=item C<pasm_output_like($code, $expect <==
2	/Users/nnunley/parrot/tools/dev/as2c.pl	335	462	
==>eader {
    my $s = shift;
    print <<EOT;
/*
 * DO NOT EDIT THIS FILE
 *
 * Generated from $s.c via $s.s
 * by '$0 $s'
 */

EO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193525	193625	
==>ompare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) < 0) {\n    {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194504	194604	
==>ompare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) < 0) {\n    {{ <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	598	760	
==>bject>

In C<object> mode, it expects a list of all parrot's object files. It
runs C<nm> on each and determines what external functions are being
called. Note that <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5650	5755	
==>bug & 0x2
#DBG>	and	print STDERR "In state $stateno:\n";
#DBG>		$debug & 0x08
#DBG>	and	print STDERR "S <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5379	5481	
==>bug & 0x2
#DBG>	and	print STDERR "In state $stateno:\n";
#DBG>		$debug & 0x08
#DBG>	and	print STDERR "S <==
2	/Users/nnunley/parrot/lib/Test/More.pm	25004	25109	
==>e in-depth functionality
along these lines.

=back

=cut

use vars qw(@Data_Stack %Refs_Seen);
my $DNE = b <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	12850	12994	
==>ource_filename'} = $source;
      $source = *PODSOURCE{IO};
    }
    $self->_init_fh_source($source);
  }
  # By here, $source is a FH.

  $self <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16427	16528	
==>ghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
            return $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9970	10065	
==>ghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
      return $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	18204	18374	
==>,
sub
#line 75 "lib/Regex/Grammar.y"
{ return []; }
	],
	[#Rule 3
		 'rule', 4,
sub
#line 79 "lib/Regex/Grammar.y"
{ my ($name, $tree) = @_[2,4];
     # This is really not <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	1993	2093	
==>(o) (_reg_base + ((opcode_t*)cur_opcode)[o])

END
}

=item C<suffix()>

The suffix is C<'_prederef'>. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29167	29287	
==>"#line 512 \"src/ops/core.ops\"\n    opcode_t * const this = CUR_OPCODE;\n    parrot_context_t *caller_ctx, *ctx;\n    PM <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1038	1219	
==>ndent = '  ' x $_[0]{'indent'};
    my $text = $_[1];
    _xml_escape($text);
    $text =~  # A not-totally-brilliant wrapping algorithm:
      s/(
         [^\n]{55}         # Snare <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768139	768283	
==>sc"
                            ],
                  "BODY" => "#line 335 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	768993	769137	
==>sc"
                            ],
                  "BODY" => "#line 335 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015025	1015127	
==>har * const tmp = strerror({{\@2}});\n  {{\@1}} = string_make(interpreter, tmp, strlen(tmp), \"ascii\", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015849	1015951	
==>har * const tmp = strerror({{\@2}});\n  {{\@1}} = string_make(interpreter, tmp, strlen(tmp), \"ascii\", <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1934	2037	
==>b unlike (Str $got, Rule $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	976	1092	
==>vert to decimal:
  if($in =~ m/^(0[0-7]*)$/s ) {
    $in = oct $in;
  } elsif($in =~ m/^0x([0-9a-fA-F]+)$/s ) {
    $ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2335	2451	
==>vert to decimal:
  if($in =~ m/^(0[0-7]*)$/s ) {
    $in = oct $in;
  } elsif($in =~ m/^0x([0-9a-fA-F]+)$/s ) {
    $ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1114	1248	
==>ay of arrays. Containing subrules that refer to each
other. In this form:

    [
        [ name1 => 'pattern 1' ],
        [ name2 => ' <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	10851	10972	
==>} else {
		return $oldresult;
	}
}
sub pushargs {
	my($code,$optype,$work)=@_;

	return unless @$work;
	my @args=();

	whi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	5752	5931	
==>do_middle {      # the main work
  my $self = $_[0];
  my $fh = $self->{'output_fh'};
  
  my($token, $type, $tagname);
  my @stack;
  my $dont_wrap = 0;
  while($token = $self->ge <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4717	4852	
==>do_middle {      # the main work
  my $self = $_[0];
  my $fh = $self->{'output_fh'};
  
  my($token, $type, $tagname, $scratch);
  my @ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14176	14416	
==>$self->_add_inst ("FAIL_$label", 'set', [$return,0]);
    $self->_add_inst ("DONE_$label");
  }

  return $return;
}

sub _op_cons {
  my ($self, $node) = @_;
  my $return;

  _num_arg ($node, 2, 'cons');

  my $car = $self->_generate(_get_a <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16442	16565	
==>$self->_add_inst ("FAIL_$label", 'set', [$return,0]);
  $self->_add_inst ("DONE_$label");
  $self->_restore ($temp);

  retu <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	26290	26495	
==>=> 35,
			'primary' => 28
		}
	},
	{#State 81
		ACTIONS => {
			":" => 134,
			"(" => 48,
			"{" => 38,
			"[" => 47,
			"." => 49,
			'STRING' => 44
		},
		GOTOS => {
			'tableconstructor' => <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61453	61593	
==>nt::Token(@components[3,2,8],
							     $lookahead,$line);
			$prod and $prod->additem($item)
			      or  _no_rule("pattern terminal",$lin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	943393	943679	
==>rset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1061,
                  "AR <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	39048	39217	
==>bel.
    my $pir .= "COMPLETE:\n";

    # SRM post translation code
    $pir .= "### post_translation\n";
    my $srm_pt = $srm->post_translation();
    $pir .= sub_meta( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	429	566	
==>:Construct::Type;


#
# new()
#

sub new
{
  my $class = shift;

  my ($block, $type, $ident, $value) = @_;

  confess "Block (" . ref($bl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210256	210349	
==>ompare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) <= 0) { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211236	211329	
==>ompare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) <= 0) { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86180	86403	
==>107,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 1208 \"src/ops/core.ops\"\n  PMC * const compreg_hash <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6792	6949	
==>as_blank'} = 1;
      
    } elsif($self->{'last_was_blank'}) {  # A non-blank line starting a new para...
      
      if($line =~ m/^(=[a-zA-Z][a-zA-Z0-9]*) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10659	10751	
==>ub Regex::Ops::Tree::charclass::render {
    die;
}

sub Regex::Ops::Tree::classpieces::rende <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6315	6403	
==>NCH_NOT_switch_${CURIC}

POST_BRANCH_switch_${CURIC}:
i = elements P_arg_0
POST_BRANCH_sw <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4253	4341	
==>NCH_NOT_switch_${CURIC}

POST_BRANCH_switch_${CURIC}:
i = elements P_arg_0
POST_BRANCH_sw <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101862	102118	
==>ter, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102633	102889	
==>ter, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Re.pm	575	690	
==>->output_label_use($label);
}

sub output_match {
    my ($self, $byte) = @_;
    my $comment = '';
    if ($byte =~ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8750	8863	
==>AL","WARP"

' Random number distribution
randomize timer
max=10
dim a(max)
for i = 0 to 100
	b=rnd*max+1
	a(b)=a(b <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	24188	24402	
==>orks only for all or none named arguments
	#
	for ($i = 0; $i < $nk; $i+=2,) {
	    my $val = pop @stack;
	    my $arg = pop @stack;
	    my $arg_name = $arg->[1];
	    $j = $def_arg_names{$name}{$arg_name};
	    pr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719773	719879	
==>e 133 \"src/ops/python.ops\"\n  PMC * const io = {{\@1}};\n  STRING *s;\n  if (PIO_softspace(interpreter, i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720973	721079	
==>e 133 \"src/ops/python.ops\"\n  PMC * const io = {{\@1}};\n  STRING *s;\n  if (PIO_softspace(interpreter, i <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	42820	43107	
==>G > 4 ) {
    print "<<\n";
    for(my $i = $#$p; $i >= 2; $i--) { # work backwards over the lines
      print "_verbatim_format $i: $p->[$i]";
    }
    print ">>\n";
  }

  for(my $i = $#$p; $i > 2; $i--) {
    # work backwards over the lines, except the first (#2)
    
    #next unles <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	1955	2116	
==>{
        print "\t$key => ", defined($val) ? "'$val'" : 'undef', ",\n"
            if $verbose;
        $self->{c}{$key} = $val;

        foreach my $trigger ($s <==
2	/Users/nnunley/parrot/config/auto/jit.pm	5755	5966	
==>h,
            jitosname   => $osname,
            jitcapable  => 0,
            execcapable => 0,
            cc_hasjit   => '',
            TEMP_jit_o  => '',
            TEMP_exec_h => '',
            TEMP_exe <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	35399	35599	
==>e'      => \&_op_rationalize,
  'exp'              => \&_op_exp,
  'log'              => \&_op_log,
  'sin'              => \&_op_sin,
  'cos'              => \&_op_cos,
  'tan'              => \&_op_t <==
2	/Users/nnunley/parrot/config/init/defaults.pm	6809	6981	
==>=> $VERSION );
        }
    }
    $conf->data->set(
        prefix      => $prefix,
        exec_prefix => $prefix,
        bin_dir     => $prefix . "/bin",
        lib_dir <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	2270	2420	
==>g->{name}        = $3;
        $arg->{type}        = $4 || ( $arg->{option} ? undef: "string" );
        $arg->{default}     = $5;
        $arg->{repea <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3778	3885	
==>R("Sub declaration has no fnlib property, and parent module has no fnlib property either!")
        unless $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6442	6549	
==>R("Sub declaration has no fnlib property, and parent module has no fnlib property either!")
        unless $ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	12341	12501	
==>rint t.narf

' Variable-depth structure references
type first
	foo as integer
	bar as string
end type
type second
	other as first
	narf as integer
	pnext as firs <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	6119	6409	
==>1) if $1;
        $pir .= "  \$S0 = $args[$2] \n";
        $pir .= "  pir .= \$S0 \n";
    }
    
    # catch anything at the end
    $pir .= $code ? inline("$code\\n") : inline("\\n");
    
    return $pir;
}

sub body {
    my ($file, @args) = @_;
    
    my %args = map { $_->{name} => $ <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	7638	7773	
==>s a directory with the specified name in the directory.

=cut

sub directory_with_name
{
    my $self = shift;
    my $path = $self->pat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841650	841923	
==>preter,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842414	842687	
==>preter,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAM <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	36349	36463	
==>"" )

as expected. Without the specification of C<"> as an embedded quoter:

	@result = extract_bracketed( $text, ' <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	2562	2657	
==>was prefixed by 'C<label>'.

C<$flags> is one or more (comma-separated) I<hints>.

=cut

sub new <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20919	21051	
==>namespace, $rule) = @_;
	
''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Trying action},
					  Parse::RecDescent::_tracefirst <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	5484	5666	
==>, pf, (opcode_t *)program_code,
			    sizeof(program_code)) ) {
	printf( "Can't unpack.\n" );
	return 1;
    }
    Parrot_loadbc(interpreter, pf);

    /* setup P0, stolen from embed <==
2	/Users/nnunley/parrot/languages/converter.pl	1455	1627	
==>ined $item[3][0];
 		}
		| terminal(?) '|' production mod(?)
#		{[@item]}
		{ $return = '';
		  $return .= $item[1][0] if defined $item[1][0];
		  $return .= " | $item[3]" . <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45974	46088	
==>';

my $lines = 0;

sub _generate($$$;$$)
{
	my ($self, $grammar, $replace, $isimplicit, $isleftop) = (@_, 0);

	my <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	6246	6479	
==>ing bracket(s): "
				. join("..",@nesting)."..",
		         pos $$textref;
		pos $$textref = $startpos;
		return;
	}

	$endpos = pos $$textref;
	
	return (
		$startpos,  $ldelpos-$startpos,		# PREFIX
		$ldelpos,   1,				# OPENING BRA <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	5326	5421	
==>my $type = $token->attr('type');
  if(!defined $type) {
    $self->whine("Typeless L!?", $token- <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12513	12643	
==>ts($1) . ')'/xeg;

    # Rewrite DYNSELF.other_method(args...)
    s/DYNSELF           # Macro: DYNSELF
      \.(\w+)           # o <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	533	641	
==>Known_directives       = qw(head1 head2 head3 head4 item over back); 
%Known_directives       = map(($_=>'Pla <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6508	6630	
==>nged,
   ' force another pass by setting Exchange to TRUE.
   FOR I = 2 TO Max
      IF A$(I-1) > A$(I) THEN
         Excha <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16161	16283	
==>nged,
   ' force another pass by setting Exchange to TRUE.
   FOR I = 2 TO Max
      IF A$(I-1) > A$(I) THEN
         Excha <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	1164	1314	
==>rgument passes a value into the op
    out           the argument passes a value out of the op
    inout         the argument passes a value into and o <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	4019	4132	
==>g_names{$f}{$a} = $i;
		    # print STDERR "def $f($a = $i)\n";
		}
		push @code, [$line, $pc, "ARG_count", $n, $f <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	4518	4631	
==>g_names{$f}{$a} = $i;
		    # print STDERR "def $f($a = $i)\n";
		}
		push @code, [$line, $pc, "ARG_count", $n, $f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042936	1043199	
==>c_keyed_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043833	1044096	
==>c_keyed_str(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	592	789	
==>urn $self->SUPER::new(
        'Tools', 'tools.html', '',
        $self->new_group('Configuration', '',
            $self->new_item('', 'tools/dev/as2c.pl'),
            $self->new_item('', 'tools/d <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	6548	6666	
==>rectives{$d};
    $this->{'accept_directives'}{$d} = $type;
    DEBUG > 2 and print "Learning to accept \"=$d\" as dire <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3242	3340	
==>is a class method that converts a file suffix to a description of
the type of files which have this <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	4588	4814	
==>.pir"
.include "RT_builtins.pir"
.include "RT_debugger.pir"
.include "RT_io.pir"
.include "RT_platform.pir"
.include "RT_support.pir"
RUNTIMESHUTDOWN

close(CODE);

exit 0;

=pod

=cut

__END__

print "This is the default progr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860260	860550	
==>,
                  "TYPE" => "inline",
                  "CODE" => 976,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 118 \"src/ops/str <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	748	922	
==>to verbose));

    my $test;
    if (defined $cgoto) {
        $test = $cgoto;
    } else {
        cc_gen('config/auto/cgoto/test_c.in');
        $test = eval { cc_build(); 1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3101	3238	
==><PC + X>. This is used to give a relative address.

=item C<expr NEXT()>

Transforms to C<PC + S>, the position of the next op.

=item C<e <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	3146	3240	
==>self->SYNTAX_ERROR("Can't do arithmetic on strings") if UNIVERSAL::isa($right_type, 'Jako::Cons <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3098	3208	
==>ld)",
    'k'  => "PREG(%ld)",
    'ki' => "IREG(%ld)",

    'ic' => "cur_opcode[%ld]",
    'nc' => "CONST(%ld) <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2013	2119	
==>ld)",
  'k'   => "PREG(%ld)",
  'ki'  => "IREG(%ld)",

  'ic'  => "cur_opcode[%ld]",
  'nc'  => "CONST(%ld) <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	29386	29594	
==>iled
        name      => 'hole count',
        type      => 'todo',
        reason    => 'insufficient donuts'
      };

=cut

sub details {
    my $self = shift;
    return @{ $self->{Test_Results} };
}

=it <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	1515	1639	
==>iling
list.

=cut

package Parrot::Test::Harness;

use strict;
use warnings;

use Carp;
use File::Spec;
use Test::Harness;

s <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	4024	4118	
==><<FOO;
.sub _DEBUG_INIT
	saveall
	\$P0=new .PerlArray
	find_global \$P1, "DEBUGGER"
FOO
	foreac <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1170	1336	
==>t_test + 1;

        # This is taken from Parrot::Test::Tcl.pm

        # Figure out how many levels we have to go back to get to parrot.
        # And, conversely, ho <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1486	1589	
==>} = '' }
sub start_head3 {  $_[0]{'Thispara'} = '' }
sub start_head4 {  $_[0]{'Thispara'} = '' }

sub st <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1016	1119	
==>} = '' }
sub start_head3 {  $_[0]{'Thispara'} = '' }
sub start_head4 {  $_[0]{'Thispara'} = '' }

sub st <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	1247	1395	
==>f the original source F<*.pmc> file.

=cut

sub dont_edit {
    my ($pmcfile) = @_;

    return <<"EOC";
/*
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!! <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	15269	15397	
==>= pop @stack;
    my $l = pop @stack;
    my ($t, $n);
    {
	my $nl = promote($l);
	$n = temp($t = 'P');
	my $nr = $r->[1];
#	$n <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	14952	15079	
==>= pop @stack;
    my $l = pop @stack;
    my ($t, $n);
    {
	my $nl = promote($l);
	$n = temp($t = 'P');
	my $nr = $r->[1];
	$n <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	11208	11353	
==>(interp, $Y, $Z)
        elsif ($opbody =~ /
        ^(?:.*\.ops")\s+
        {{\@(\d)}}->vtable->
        (\w+)
        \(interpreter,
        \s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715256	715463	
==>function",
                  "CODE" => 802,
                  "ARGS" => [
                              "sc"
                            ],
                  "BODY" => "#line 75 \"src/ops/python.ops\"\n  STRI <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	8368	8474	
==>less ($rdelspec =~ s/\A([[(<{]+)($XMLNAME).*/ quotemeta "$1\/$2". revbracket($1) /oes)
		{
			_failmsg "Una <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49559	49666	
==>_rule("<uncommit>",$line);
			}
			elsif ($grammar =~ m/$QUOTELIKEMK/gco)
			{
				_parse("an perl quotelike <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	6676	7051	
==>gcc',
                linkflags         => '',
                o                 => '.o',
                slash             => '\\',
                blib_dir          => 'blib\\lib',
            );
            if ($conf->data->get(qw(optimize)) eq "1") {
                $conf->data->set(optimize => '-O2');
            }
        } elsif ($make =~ /dmake/i) {

            # m <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	40558	40700	
==>'    => \&_op_free_identifier_eq_p,
  'generate-identfier'  => \&_op_generate_identifier,
  'construct-identfier' => \&_op_construct_identifier <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7056	7182	
==>UNC($var);
	#	goto PARSE_NOFEED;
	#}

	if ($syms[CURR] eq "_startasm") {
		feedme;
		#$syms[CURR]=~s/^\n|\n$//gm;
		push @{$cod <==
2	/Users/nnunley/parrot/config/gen/platform.pm	3575	3734	
==>c
        memalign.c
        signal.c
        itimer.c
        memexec.c
        exec.c
        misc.c
        /;

    open PLATFORM_C, "> src/platform.c" or di <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	2146	2265	
==>hift->{LINE};     }

sub is_global   { return shift->scope eq 'global'; }
sub is_local    { return shift->scope eq 'loca <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	10209	10308	
==>on} ? "$function_branch_coverage{$source_file}{$function} %" : "n/a" ]}</a></td>
             <td><a <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3805	3903	
==>rameter '$prm'");
			ref($value) eq $$checklist{$prm}
		or	croak("Invalid value for parameter '$p <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3610	3706	
==>rameter '$prm'");
			ref($value) eq $$checklist{$prm}
		or	croak("Invalid value for parameter '$p <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	1088	1244	
==>COMMENT
    die "Cannot compile (differing opcode table)!"
        if $pf->const_table->constant(0)->data ne $opcode_fingerprint;

=cut

    print "# Constan <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	3081	3232	
==>lt["!GROUPS"]
    set match_num, 0
printLoop:
    ge match_num, num_groups, done
    bsr printGroup
    inc match_num
    goto printLoop
done:
    .retu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744313	744564	
==>m_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745079	745330	
==>m_num(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	619	712	
==>rn $self->new(File::Spec->catfile(File::Spec->tmpdir, @_));
}

=item C<new($path)>

Returns th <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	1523	1786	
==>amespace.

This method also works as an object method.

=cut

sub description
{
    my $class = shift;
    $class = ref $class || $class;
    {
        no strict 'refs';
        return ${$class . "::description"};
    }
}

=item * C<args()>

Accepts no arguments a <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15486	15603	
==>pe{$1}/g;  # ESCAPER
             # Escape \, {, }, -, control chars, and 7f-ff.
    $x =~ s/([^\x00-\xFF])/'\\uc1\\u' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16665	16782	
==>pe{$1}/g;  # ESCAPER
             # Escape \, {, }, -, control chars, and 7f-ff.
    $x =~ s/([^\x00-\xFF])/'\\uc1\\u' <==
2	/Users/nnunley/parrot/tools/util/pirtidy.pl	255	391	
==>oop over all the files specified on the command line
foreach my $file (@ARGV) {
    warn "Processing $file...\n" if $verbose;
    open my <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Posix.pm	440	679	
==>( '.bc', $count );
    my $test_prog_args = $ENV{TEST_PROG_ARGS} || '';

    my $posix_bc = ($^O =~ /MSWin32/) ? 
                     'bc'
                     :
                     'bc --standard --quiet';

    return ( "$posix_bc ${test <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	12142	12253	
==>RAMS}[0] = ${STEMP0}
dec stack_depth

PRE_CALL_END_${CURIC}:
PIR
    return $pir;
}

sub post_call {
    # Nothi <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	498	629	
==>to install a set of files.

=head2 Options

=over 4

=item C<buildprefix>

The build prefix. Defaults to ''.

=item C<prefix>

The i <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	16191	16331	
==>($$$$)	# ($textref, $prepat, $allow_raw_match)
{
	my ($textref, $pre, $rawmatch, $qmark) = @_;

	my ($textlen,$startpos,
	    $oppos,
	    $p <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	1085	1214	
==>'bigendian' => 1,
             'bin_dir' => '/opt/local/bin',
             'bison_version' => undef,
             'blib_dir' => 'b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627176	627285	
==>reter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n\n  /* Why?? If we're creat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628320	628429	
==>reter, 0, NO_CLASS,\n\t\t   \"Illegal PMC enum (%d) in new\", (int){{\@2}});\n  }\n\n  /* Why?? If we're creat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684655	684813	
==>n      {{\@1}}->vtable->setprop(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n      {{+=4}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685550	685708	
==>n      {{\@1}}->vtable->setprop(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n      {{+=4}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/config/gen/cpu.pm	144	253	
==>gen/cpu.pm - CPU specific Files

=head1 DESCRIPTION

Runs C<&run_cpu()> in F<config/gen/cpu/${cpuarch}/auto.pm <==
2	/Users/nnunley/parrot/tools/build/revision_c.pl	14	105	
==>) 2001-2003, The Perl Foundation.
# $Id: /parrot/tools/build/revision_c.pl 20350 2006-06-25T <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	21566	21701	
==>ally, it uses the failure_output() handle, but if this is for a
TODO test, the todo_output() handle is used.

Output will be indented an <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1081	1214	
==>t goto ${prefix}_LAST");

    $compiler->emit("${prefix}_REDO:");

    if ($self->content) {
      $compiler->emit(".namespace ${names <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89286	89572	
==>ps\"\n  {{\@1}} &= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90024	90310	
==>ps\"\n  {{\@1}} &= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	23926	24082	
==>f (exists $sigilmap{$_}) {
					$type=$th{$sigilmap{$_}};
				}
			}
			$arrays{"${var}${seg}"}=1;
			#print STDERR "Marking ${var}${seg}\n";
			push @{$code <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	8847	8952	
==>ec)/gc )
		{
			$closetagpos = pos($$textref)-length($1);
			goto matched;
		}
		elsif ($ignore && $$textr <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6178	6271	
==>USER_FIRST
} parrot_mmd_func_enum;

/* &end_gen */

#ifdef PARROT_IN_OBJECTS_C
static const ch <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4891	4996	
==>tion;
  return undef unless length $out;
  return $out;  
}


sub resolve_pod_page_link {
  my($self, $to) <==
2	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	1833	1931	
==>AINLOOP
	end

ENDMAINLOOP:
	branch MAINLOOPR 
ENDMAINLOOPNR:
	branch MAINLOOPNR

EOF

# Includes an <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	584	680	
==>t::Test::Perl6;

use strict;
use warnings;

use File::Basename;
use File::Spec;
use Parrot::Confi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93343	93570	
==>se_and(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94123	94350	
==>se_and(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3822	3931	
==>d parent module has no fnlib property either!")
        unless $module_props{fnlib};

      $fnlib = $module_p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6486	6595	
==>d parent module has no fnlib property either!")
        unless $module_props{fnlib};

      $fnlib = $module_p <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	6703	6916	
==>])}>/;
	return $brack;
}

my $XMLNAME = q{[a-zA-Z_:][a-zA-Z0-9_:.-]*};

sub extract_tagged (;$$$$$) # ($text, $opentag, $closetag, $pre, \%options)
{
	my $textref = defined $_[0] ? \$_[0] : \$_;
	my $ldel    = $_[1 <==
2	/Users/nnunley/parrot/config/gen/platform.pm	2031	2172	
==>header_file) {
            local $/ = undef;
            print("\t$header_file\n") if defined $verbose && $verbose == 2;
            open IN_H <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct.pm	295	446	
==>T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct;

use base qw(Jako::Processor);

sub block  { return shift->{BLOC <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168479	168569	
==>"#line 204 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) != <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169421	169511	
==>"#line 204 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) != <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22603	22776	
==>{'target'}) {
        $self->whine(
          $para->[1]{'start_line'},
          "=end $content doesn't match =begin " 
          . $curr_open->[-1][1]{'target'}
          . <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104855	105123	
==>ble->bitwise_nots(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79435	79549	
==>d to build\n         a PMC with it so we can get and set the value */\n      {{\@1}} = pmc_new(interpreter, enum_cl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80956	81070	
==>d to build\n         a PMC with it so we can get and set the value */\n      {{\@1}} = pmc_new(interpreter, enum_cl <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	11529	11645	
==>h
islower     ctype.h
isnan       math.h
isnormal    math.h
isprint     ctype.h
ispunct     ctype.h
isspace     ctype <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	125516	125654	
==>c"
                            ],
                  "BODY" => "#line 257 \"src/ops/bit.ops\"\n  {{\@1}} = (INTVAL)((UINTVAL){{\@2}} >> {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	4518	4631	
==>RS}};
}

=item C<labels()>

Returns the labels.

=cut

sub labels
{
    my $self = shift;

    return @{$self->{LA <==
2	/Users/nnunley/parrot/config/gen/config_h.pm	350	558	
==>r
information, and F<include/parrot/feature.h> with information on optional
features.

=cut

package gen::config_h;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

u <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	20012	20235	
==>using @var when @$var needed.
    #  - Now using my() rather than local().
    #
    # Uses perl5 classes to create nested data types.
    # This is offered as one implementation of Tom Christiansen's "structs.pl"
    # idea <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6166	6501	
==>, $special);
}

# helper functions for quasiquote

sub _qq_unquote {
  my ($self, $node, $return) = @_;

  my $item = $self->_generate($node);

  if ($item =~ /^[INS]/) {
    my $temp = $self->_save_1('P');
    $self->_morph($temp, $item);
    $self->_restore($item);
    $item = $temp;
  }
  my $pair = $self->_new_pair;
  $self->_add_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1042882	1042972	
==>" => "#line 125 \"src/ops/var.ops\"\n    VTABLE_set_pmc_keyed_str(interpreter, {{\@1}}, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1043779	1043869	
==>" => "#line 125 \"src/ops/var.ops\"\n    VTABLE_set_pmc_keyed_str(interpreter, {{\@1}}, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189719	189817	
==>"#line 306 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) < {{\@2}}) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190660	190758	
==>"#line 306 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) < {{\@2}}) <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	13705	13813	
==>nt(void);
    int jit_op_count() { return $core_numops; }
EOC
}

print("jit2c: JITed $njit (+ $vjit vtable) o <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	7691	7986	
==>);

      unshift @use_lines, "#line 1 \"$use_file\"\n";
      push @use_lines, "#line $line \"$file\"\n";
      push @use_lines, defined $leftover ? "$leftover\n" : "\n";

      unshift @lines, @use_lines;
    }
    elsif (m/^#line\s+(\d+)(\s+"(.*?)")?\s*$/) {
      $line = $1 - 1; # Will be in <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2313	2422	
==>);
}

sub require_compression_modules {
  no strict 'refs';
  eval { require Compress::Zlib } or
    *Compress <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223555	223664	
==>ODY" => "#line 516 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) >= {{\@2}}) { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224497	224606	
==>ODY" => "#line 516 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) >= {{\@2}}) { <==
2	/Users/nnunley/parrot/lib/Parrot/Revision.pm	6	97	
==>right (C) 2005, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Revision.pm 19602 2006-05-30T <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	775	873	
==>t("end");
  $compiler->outdent;
  $compiler->emit(".end");

  foreach my $construct ($self->content <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11920	12021	
==>O

  perl -MPod::Simple::HTML -e \
   "exit Pod::Simple::HTML->filter(shift)->errors_seen" \
   thingy <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	714	941	
==>urn $defn;
        }
        else {
            my $parser = $self->{parser};
            for my $symbtab ( @{ $parser->YYData->{scope} } ) {
                if ( $symbtab->isa('SymbTabVar') ) {
                    if ( ex <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	1041	1161	
==>ad3 Constructors

=over 4

=item C<new()>

Basic object constructor.

Accepts no arguments and returns a L<Parrot::Config <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16438	16557	
==>rstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
            return $x;
        }
    }

    forea <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9981	10085	
==>rstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
      return $x;
    }
  }
  forea <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	964032	964362	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "is_cclass",
                  "FLAGS" => "",
                  "ARGDIRS <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	4263	4410	
==>) = @_;

  $handler->start_element({ Name => 'assign' });
  $self->dest->sax($handler);

  $handler->start_element({ Name => 'call', Attributes => { <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4203	4302	
==>L<Pod::Checker>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights res <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	510265	510537	
==>ne 675 \"src/ops/math.ops\"\n  {{\@1}}->vtable->i_neg(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	2183	2306	
==>d for the test
        $conf->data->set('libs',      $libs);
        $conf->data->set('ccflags',   $ccflags);
        $conf- <==
2	/Users/nnunley/parrot/config/auto/readline.pm	1983	2106	
==>d for the test
        $conf->data->set('libs',      $libs);
        $conf->data->set('ccflags',   $ccflags);
        $conf- <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	489	616	
==>DOMAIN_ERROR %%
power_ok:
    $N1 = %1
    $N2 = %2
    $N1 = pow $N1, $N2
	%1 = $N1

END_PIR

    '\x{d7}' => [ 'Multiply', '%1 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3825	3932	
==>this form for now.
	}
	if ($syms[CURR] eq "#") {
		feedme();
		$fd=$syms[CURR];
		feedme();
		die "Expecting <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	3695	3836	
==>y" String="[INSP](\\d|[12]\\d|3[01])" />
          <RegExpr attribute="TempRegister" context="#stay" String="\\\$[INSP]\\d+" />
          <Reg <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	9281	9385	
==>EFILE "\tperldoc -u ..${slash}ops${slash}$ops > ops${slash}$pod\n";
                print MAKEFILE "\t\$( <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	11738	11841	
==>() a hash
 * of short and full opcode names is created
 * hash functions are from imcc, thanks to Melvin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1092784	1092881	
==>ODY" => "#line 196 \"src/ops/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_iter(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205010	205307	
==>e",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 242 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465669	465935	
==>LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	466290	466556	
==>LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	1565	1784	
==>ader entry
        linkflags      => $linkflags,
        link           => $link,
        rpath          => '-Wl,-rpath=',

        has_dynamic_linking     => 1,
        parrot_is_shared        => 1,
        libparrot_sh <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	3713	3835	
==>mns. (" . length($_) . ")");
        }
    }
}

sub check_function_definitions {
    # In function definitions, the name st <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	24083	24346	
==>ARG_$arg_num";
		}

		# int16
		elsif (/^int16$/) {
			$out =  "    \${I_ARG_$arg_num} = bc.read_int16()\n    next_pc += 2\n";
			$arg_name = "I_ARG_$arg_num";
		}

		# uint32
		elsif (/^uint32$/) {
			$out =  "    \${I_ARG_$arg_num} = bc.read_uint32()\n    next_p <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	1241	1334	
==>Regex::Ops::Tree::alternate::ISA    = qw(Regex::Ops::Tree);
@Regex::Ops::Tree::multi_match::IS <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	605	743	
==>s "Token is not!" unless UNIVERSAL::isa($token, 'Jako::Token');

  return bless {
    BLOCK  => $block,

    TOKEN  => $token,
    VALUE  = <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	57890	58038	
==>Rule 95
		 '@11-1', 0,
sub
#line 503 "Lua\lua51.yp"
{
            PushScopeF( $_[0] );
            PushScope( $_[0] );
        }
	],
	[#Rule <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6733	6894	
==>t;
    
    # Get all the contained tokens, including the end token.
    
    while ( 1 )
    {
        push @to_unget, $self->get_token;
        
        last if <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	736	856	
==>t package name component of a
subclass of C<Parrot::OpTrans>. These subclasses all have full names of
the form C<Parrot:: <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22361	22515	
==>=end $content without matching =begin.  (Stack: "
          . $self->_dump_curr_open() . ')'
        );
        DEBUG and print "Ignoring mistargetted =end <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6107	6217	
==>$name = shift; # Required: (TODO: domain)

  confess "No block!"  unless defined $self and ref $self and $self- <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9931	10053	
==>is_file($path)>

Returns whether the specified relative path is a file.

=cut

sub relative_path_is_file
{
    my $self = s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4598	4687	
==>self->do_middle && $self->do_end;
}


#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3229	3317	
==>self->do_middle && $self->do_end;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19251	19424	
==>q "while") {
			$_="@code ne $result, $false, DO_$do->{jump}";
		} else {
			$_="@code eq $result, $false, DO_$do->{jump}";
		}
		push @{$code{$seg}->{code}}, "\t$_\n";
	} el <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	10325	10438	
==>ions
  )
   if keys %options;

  my %content_containers;
  $content_containers{'Para'} = 1;
  if($accept_verbatim) <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	1383	1532	
==>aps;
my $jit_cpu;

if ($genfile =~ /jit_cpu.c/) {
    $jit_cpu = 1;
    push @jit_funcs, "Parrot_jit_fn_info_t _op_jit[$core_numops] = {\n";
    $func <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5332	5487	
==>each ( @{ $op->{result} } ) {
                print {$FH} ", " unless ($first);
                print {$FH} "$_->{symbol}";
                if ( exists $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6364	6519	
==>each ( @{ $op->{result} } ) {
                print {$FH} ", " unless ($first);
                print {$FH} "$_->{symbol}";
                if ( exists $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	927262	927575	
==>nline",
                  "CODE" => 1043,
                  "ARGS" => [
                              "i",
                              "sc",
                              "i"
                            ],
                  "BODY" => "#line 385 \"src/ops/string.ops\"\n  switch ({{\@3}}) {\n    case STRINGINFO_H <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	26788	26906	
==>push @ops, @rewritten;
        $fallback = $back;
    }

    return ($fallback, @ops);
}

sub rewrite_external {
    my <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957565	957657	
==>(n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\"encoding '%Ss' not found\", {{\@2}});\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958470	958562	
==>(n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\"encoding '%Ss' not found\", {{\@2}});\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776855	777087	
==>ARGS" => [
                              "p",
                              "ki",
                              "n"
                            ],
                  "BODY" => "#line 382 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_n <==
2	/Users/nnunley/parrot/tools/dev/pbc_header.pl	472	797	
==>ytecode,
but can of course not assure that it will run correctly, when incompatible
changes were done.

If no options are given a summary of the PBC header is printed to STDOUT.

=cut

use Getopt::Long;
use lib 'lib';
use Digest::Perl::MD5 qw(md5);
my %opt;
&main;

sub get_fp {
    # s. also fingerprint_c.pl
    my $compat_f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931321	931620	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932091	932390	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	35645	35774	
==>d C<'[..]'>s are "cross-nested" and
the embedded C<'E<gt>'> is unbalanced. (In a scalar context, this call would
return an empty s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1851	1974	
==>RROR("Constant definition involves undefined value!")
    unless defined $value;

  #
  # Lookup the identifier:
  #

  my $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	50557	50951	
==>,
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 65,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 800 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_ <==
2	/Users/nnunley/parrot/Configure.pl	2331	2458	
==>ntly
needed to use inet_aton for systems that lack inet_pton:

  --define=inet_aton

=back

Parrot Options

=over

=item C<--int <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	282640	283195	
==>LAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 329,
                  "ARGS" => [
                              "i",
                              "nc",
                              "n"
                            ],
                  "BODY" => "#line 908 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}};\n  {{+=4}};\n",
                  " <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	36819	36973	
==>known directive ${$para}[0] as $para_type\n";
      } else {
        # An unknown directive!
        DEBUG > 1 and printf "Unhandled directive %s (Handled: <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	709	815	
==>trings = ();
my @all_strings;

&read_all;
open ALL, '>>', $outfile or die "Can't write '$outfile': $!";
pro <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	2319	2479	
==>k("Can't compile bad grammar")
				if $grammar;

		foreach ( keys %{$self->{rules}} )
			{ $self->{rules}{$_}{changed} = 1 }

		print OUT "package $class;\nuse P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577916	578179	
==>" => "subclass",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
2	/Users/nnunley/parrot/config/auto/headers.pm	2579	2764	
==>h @found_headers, $header;
            }
            cc_clean();
            last if $pass;
        }

        my $flag = "i_$header";
        $flag =~ s/\.h$//g;
        $flag =~ s/\/// <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25243	25335	
==>P_END_$forloop"}=1;
	$main::code{$main::seg}->{declarations}->{"FORLOOP_STEP_$forloop"}=1;
	p <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	23913	24069	
==>n";
			$arg_name = "I_ARG_$arg_num";
		}

		# uint16
		elsif (/^uint16$/) {
			$out =  "    \${I_ARG_$arg_num} = bc.read_uint16()\n    next_pc += 2\n";
			$a <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	35062	35166	
==>ly nested and evenly balanced.
(In a scalar context just the first element of the array would be returned <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	70048	70160	
==>($_[2]);
	return if $grammar =~ m/$OPTIONAL/gco || $grammar =~ m/$ANY/gco;
	my $min = 1;
	if ( $grammar =~ m/$MAN <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	7548	7755	
==>opcodes1 ];
            }
        }
        else {
            $key = $field->[0];
            $val = $field->[1];
        }
        push @opcodes1, @{ $val->[1] };
        push @opcodes2, @{ $key->[1 <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9457	9542	
==>a14ed,/* 28 */
GG,$a,$b,$c,$d,$_[17],5,0xa9e3e905,/* 29 */
GG,$d,$a,$b,$c,$_[6],9,0xfc <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	3946	4047	
==>f->pos);

  my $token = $self->get;

  $self->file($token->file);
  $self->line($token->line);

  retu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319163	319287	
==><= 65535) {\n    {{\@1}} = (INTVAL)((Parrot_UInt2)({{\@1}}));\n  }\n  else\n  {\n    internal_exception(1, \"Overflow excepti <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	14606	14719	
==>RE CASES HERE!!!
		if ($$textref =~ m#\G\s*( [-+*x/%^&|.]=?
					| [!=]~
					| =(?!>)
					| (\*\*|&&|\|\||<<|>>) <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	9835	9973	
==>t the translator PIR.
    my $pir = <<TRANSPIR;
# THIS IS A GENERATED FILE! DO NOT EDIT!

.HLL '_dotnet', ''

.sub trans_instructions
    . <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	543	788	
==>_;

    my $verbose = $conf->options->get('verbose');

    my %gnuc;

    cc_gen("config/auto/gcc/test_c.in");
    cc_build();
    %gnuc = eval cc_run() or die "Can't run the test program: $!";
    cc_clean();

    my ($gccversion, $warns, $ccwar <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	607	695	
==>h_bracketed($$$$$$);
sub _match_variable($$);
sub _match_codeblock($$$$$$$);
sub _match_q <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	162	263	
==>- File

=head1 SYNOPSIS

    use Parrot::IO::File;

=head1 DESCRIPTION

Use this to query and manipula <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	19529	19666	
==>nates the
test.

=end _unimplemented

=back


=head2 Test style

=over 4

=item B<level>

    $Test->level($how_high);

How far up the cal <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	20713	20839	
==>};
		}
		$rd2pos = pos($$textref)-1;
	}
	else
	{
		$ld2pos = $str2pos = $rd2pos = $rd1pos;
	}

	$modpos = pos $$textref;

	$$te <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	398	498	
==>million operations per second) using
integer arithmetic.

Prints out:

=over 4

=item * the number of <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	394	494	
==>million operations per second) using
integer arithmetic.

Prints out:

=over 4

=item * the number of <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	966	1116	
==>->{children}}, $expr;
  }
  elsif ($tokens->[$count] eq ",") {
    $temp = { children => [{ value => 'unquote' }] };
    my $expr;
    $count++;
    ($ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	1368	1533	
==>nt "# We are under a Unicode-safe Perl.\n";
}

# Design note:
# This is a parser for Pod.  It is not a parser for the set of Pod-like
#  languages which happens to co <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26228	26360	
==>FORLOOP_STEP_$ps->{num}
	goto FOR_$ps->{num}
AFTER_NEXT_$ps->{num}: noop
NEXT
			if ($syms[NEXT] eq ",") {
				feedme();
				feedme() <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7734	7844	
==>er name now.
	if (!$dest_reg) {
		$pir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYP <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5852	5962	
==>er name now.
	if (!$dest_reg) {
		$pir .= <<'PIR'
# Get type (so we can find register type).
${PTEMP0} = ${STYP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819603	819698	
==>EXT(interpreter->ctx)->user_stack, {{\@2}});\n\n  if (!entry) {\n    internal_exception(99, \"St <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820563	820658	
==>EXT(interpreter->ctx)->user_stack, {{\@2}});\n\n  if (!entry) {\n    internal_exception(99, \"St <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	5050	5226	
==>t accessor method");
        }
        else {
            $pre = $pst = $cmt = $sel = '';
            if( defined $refs{$name} ){
                $pre = "\\(";
                $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017998	1018097	
==>ltbuffer[26];\n  Parrot_gmtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = stri <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018923	1019022	
==>ltbuffer[26];\n  Parrot_gmtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = stri <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	230	345	
==>here
  my $class = shift;
  $class = ref($class) || $class;
  
  Carp::croak "Usage: ${class}->handle_on(\$somescala <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	4053	4184	
==>_][\\w_]*" />
      </context>

END

print <<END;
      <context name="pod" attribute="Comment" lineEndContext="#stay">
          <L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	434511	434799	
==>np(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435526	435814	
==>np(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79520	79642	
==>= pmc_new(interpreter, enum_class_UnManagedStruct);\n      PMC_data({{\@1}}) = p;\n  }\n  {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81041	81163	
==>= pmc_new(interpreter, enum_class_UnManagedStruct);\n      PMC_data({{\@1}}) = p;\n  }\n  {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319586	319991	
==>tgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 374,
                  "ARGS" => [
                              "i",
                              "n"
                            ],
                  "BODY" => "#line 124 \"src/ops/do <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	3038	3157	
==>rget\n";
    my $silent = shift || 0;
    my $index_html = '';
    my @rel_paths = $self->contents_relative_to_source($s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	1669	1842	
==>{ return shift->is('bit-assign');    }
sub is_bof           { return shift->is('bof');           }
sub is_close_brace   { return shift->is('close-brace');   }
sub is_close_br <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9947	10053	
==>d var from 5 to 12
function myfunc(a)
	print a
	a=12
        myfunc=80
end function
z=5
T=myfunc(z)
print z <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11560	11666	
==>d var from 5 to 12
function myfunc(a)
	print a
	a=12
        myfunc=80
end function
z=5
T=myfunc(z)
print z <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492043	492277	
==>>vtable->increment(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189488	189779	
==>n",
                  "CODE" => 225,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 306 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_in <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	779	892	
==>annel, list, string, script, and expressions.

=cut

my $file = open_tmt(shift @ARGV);
my ($cmd, @args) = extract_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	535814	536236	
==>}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sech",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i <==
2	/Users/nnunley/parrot/lib/Test/More.pm	7575	7708	
==>( ultimate_answer() eq 42,        "Meaning of Life" );
    ok( $foo ne '',     "Got some foo" );

(Mnemonic:  "This is that."  "This i <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	738	874	
==>%type_for_suffix = (
	'BASIC' => 'README file',
	'C' => 'C code',
	'Log' => 'SVN Entries file',   # probably obsolete
	'PL' => 'Perl scri <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35277	35426	
==>nt::_tracefirst($text),
					  q{' . $rule->{"name"} .'})
						if defined $::RD_TRACE;').'
		' . ($::RD_NO_HITEM ? ''
		     : '$item{q{' . $self->{s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8934	9053	
==>f (!fe)\n\tinternal_exception(1, \"branch_cs: fixup for '%s' not found\", label);\n    else {\n\tinterpreter->resume_off <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10050	10169	
==>f (!fe)\n\tinternal_exception(1, \"branch_cs: fixup for '%s' not found\", label);\n    else {\n\tinterpreter->resume_off <==
2	/Users/nnunley/parrot/tools/build/fingerprint_c.pl	963	1154	
==>T THIS FILE   !!!!!!!
 *
 * This file is generated automatically from '$compat_file'
 * by $0.
 *
 * Any changes made here will be lost!
 *
 */

#include <string.h>
#include <parrot/packfile.h <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2436	2557	
==>{USER}={};

	$$self{USER};
	
}

sub YYErrok {
	my($self)=shift;

	${$$self{ERRST}}=0;
    undef;
}

sub YYNbe <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2340	2448	
==>{USER}={};

	$$self{USER};
	
}

sub YYErrok {
	my($self)=shift;

	${$$self{ERRST}}=0;
    undef;
}

sub YYNbe <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	73904	74040	
==>@$_); }
	}

	if (ref $_[1]) { ${$_[1]} = $text }

	$ERRORS = 0;
	return $retval;
}

sub _parserepeat($$$$$$$$$)	# RETURNS A REF TO AN ARR <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	29456	29674	
==>{$code{$t}->{code}}, "\t.return $seg\n";
	$seg="_basicmain";
	$funcname="";
	return;
}
sub parse_endsub {
	goto &parse_endfunc;
}

sub parse_function_dispatch {
	return;
			print FUNC<<FUNCDISP;
				
	#
	# User function <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	36417	36543	
==>> \&_op_char_gt_p,
  'char<=?'          => \&_op_char_le_p,
  'char>=?'          => \&_op_char_ge_p,
  'char-ci=?'        => \& <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710664	710757	
==>st io = PIO_STDOUT(interpreter);\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(inter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711498	711591	
==>st io = PIO_STDOUT(interpreter);\n  if (PIO_softspace(interpreter, io, 0))\n    PIO_puts(inter <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3339	3436	
==>Simple>, L<Pod::Simple::DumpAsXML>

The older libraries L<Pod::PXML>, L<Pod::XML>, L<Pod::SAX>


= <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2991	3088	
==>Simple>, L<Pod::Simple::DumpAsXML>

The older libraries L<Pod::PXML>, L<Pod::XML>, L<Pod::SAX>


= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	731016	731373	
==>t",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 820,
                  "ARGS" => [
                              "i",
                              "ic <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	3844	4024	
==>E} .= "\n" . $temp_ops->{PREAMBLE};
}


# Renumber ops/num based on old ops.num and *.ops
if ($renum_flag) {
    renum_op_map_file($ops);
    exit 0;
}    
# else check strictly aga <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	16419	16575	
==>_assign ($ret_type)(*pointer)();
    $final_assign
    $extra_postamble
}
HEADER
    }

    my ($key, $value) = (defined $params ?
        ( "$return$params" <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	10084	10214	
==>accumulated body of source code in the Parrot::Op, push the
        # Parrot::Op onto our op array, and forget the op so we can sta <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592101	592566	
==>" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 672,
                  "ARGS" => [
                              "p",
                              "kc",
                              "k"
                            ],
                  "BODY <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5825	5921	
==>code}}, "IFBRANCH_$_:\n";
			}
			while($_=pop(@{$elsestack->{$elsetag}})) {
				push @{$code{$se <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8171	8264	
==>code}}, "IFBRANCH_$_:\n";
		}
		while($_=pop(@{$elsestack->{$elsetag}})) {
			push @{$code{$se <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	680	808	
==>$;$) {
        my $self = shift;
        my ( $code, $output, $desc ) = @_;
  
        my $count = $self->{builder}->current_test <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1047	1175	
==>$;$) {
        my $self = shift;
        my ( $code, $output, $desc ) = @_;
  
        my $count = $self->{builder}->current_test <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	817370	817581	
==>p",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 925,
                  "ARGS" => [],
                  "BODY" => <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3140	3249	
==>e any lib-GROUP.c files

    generate_dump($_) foreach (@pmcs);
    generate_c($_) foreach (@pmcs);

    my ($ <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3244	3353	
==>e any lib-GROUP.c files

    generate_dump($_) foreach (@pmcs);
    generate_c($_) foreach (@pmcs);

    my ($ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	453449	453835	
==>S" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 520,
                  "ARGS" => [
                              "n",
                              "nc"
                            ],
                  "BOD <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	8208	8324	
==>not provided in rule " .
            "$rule->{'name'}\n";
    }

	# typeinfo must be supplied with op, load and calli <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	12496	12591	
==>n array reference
as the sole argument, this causes an assignment of the whole array element.
Th <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9558	9679	
==>d of input: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	print STDERR "**At eof: aborting.\n";
				return(un <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9128	9245	
==>d of input: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	print STDERR "**At eof: aborting.\n";
				return(un <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	2450	2586	
==>hift;
    my $token = shift;
    my $tagname = $token->tagname;

    if ( $tagname eq 'L' ) 
    {
        $self->process_link_start_toke <==
2	/Users/nnunley/parrot/lib/Test/More.pm	28848	28974	
==>rn $ok;
}

sub _deep_check {
    my($e1, $e2) = @_;
    my $ok = 0;

    # Effectively turn %Refs_Seen into a stack.  This avoi <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1692	1862	
==>e + $offset";
}

=item C<expr_pop()>

Returns the C code for C<POP()>. Called by C<goto_offset()>.

=cut

sub expr_pop
{
    my ($self) = @_;

    return "pop_dest(interpr <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	2257	2396	
==>erpreter,
	(opcode_t*)pop_dest(interpreter))))";
}

sub run_core_func_start
{
    return <<END_C;
    /* at least gcc 2.95.2 miscompiles set <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352290	352396	
==>src/ops/io.ops\"\n  PIO_printf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352948	353054	
==>src/ops/io.ops\"\n  PIO_printf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42313	42433	
==>src/ops/core.ops\"\n  do_exception(interpreter, EXCEPT_exit, {{\@1}});\n  {{=0,+=2}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43003	43123	
==>src/ops/core.ops\"\n  do_exception(interpreter, EXCEPT_exit, {{\@1}});\n  {{=0,+=2}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2793	2897	
==>lf, $offset) = @_;

    return "interpreter->resume_offset = REL_PC + $offset; interpreter->resume_flag = <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4128	4232	
==>lf, $offset) = @_;

    return "interpreter->resume_offset = REL_PC + $offset; interpreter->resume_flag = <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11610	11801	
==>rmatters.

By default, Pod::Escapes exports none of its symbols.  But
you can request any of them to be exported.
Either request them individually, as with
C<use Pod::Escapes qw(symbolname sym <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	16357	16485	
==>25
		}
	},
	{#State 46
		DEFAULT => -14
	},
	{#State 47
		ACTIONS => {
			"-" => 61
		},
		DEFAULT => -42
	},
	{#State 48
		DEFAU <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	8758	8866	
==>" if $err;

    open  STDOUT, ">&OLDOUT" or die "Can't restore  stdout" if $out;
    open  STDERR, ">&OLDERR" <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8278	8384	
==>" if $err;

    open STDOUT, ">&OLDOUT" or die "Can't restore  stdout" if $out;
    open STDERR, ">&OLDERR" <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	5056	5210	
==>ath};
die "No benchmarks found" if ! keys %bench;

# List Names Of Benchmarks With Pretty Output
if ( $cfg{list_only} ) {
    my @rows;
    push @rows, [ ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13201	13449	
==>",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	320	416	
==>cept_codes('VerbatimFormatted');
  return $new;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	319	415	
==>cept_codes('VerbatimFormatted');
  return $new;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6602	6745	
==>d;
    }

    return 0;
}

sub generate_dump {
    my ($pmc) = @_;

    if (needs_build("$pmc.dump", "$pmc.pmc")) {
        run("$PMC2C --dump $ <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6813	6956	
==>d;
    }

    return 0;
}

sub generate_dump {
    my ($pmc) = @_;

    if (needs_build("$pmc.dump", "$pmc.pmc")) {
        run("$PMC2C --dump $ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	17451	17552	
==>ing should terminate.  This includes running any additional test
scripts.

It will exit with 255.

=cu <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10430	10547	
==>.
#DBG>						 $$states[$$stack[-1][0]]{ACTIONS}{error}.
#DBG>						 ".\n";

		push(@$stack, [ $$states[$$stack[-1] <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9962	10075	
==>.
#DBG>						 $$states[$$stack[-1][0]]{ACTIONS}{error}.
#DBG>						 ".\n";

		push(@$stack, [ $$states[$$stack[-1] <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2896	2990	
==>self->content;
  $handler->end_element({ Name => 'block' });

  $handler->end_element({ Name => <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2778	2872	
==>self->content;
  $handler->end_element({ Name => 'block' });

  $handler->end_element({ Name => <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	15861	15983	
==>ut, $expected, $desc );
            $builder->diag("'$cmd' failed with exit code $exit_code")
                  if $exit_co <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	18412	18534	
==>ut, $expected, $desc );
            $builder->diag("'$cmd' failed with exit code $exit_code")
                  if $exit_co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419379	419708	
==>"function",
                  "CODE" => 482,
                  "ARGS" => [
                              "i",
                              "p",
                              "i",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 557 \"src/ops <==
2	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	1638	1813	
==>kens!

	bsr ISNUM
	restore I1
	dec I5
	save I5
	bsr CLEAR
	restore I0 # dummy

	eq I1, 0, DOLINE
	save S0
	bsr CSTORE
	branch ENDMAINLOOPNR

DOLINE:
	save S0
	bsr RUNLINE
	rest <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	3234	3345	
==>iles->new( -file => $cfg{config_file} );

# Merge Configuration
if ( ! defined $cfg{bench_path} ) {
    $cfg{ben <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7612	7734	
==>ATESTACK[-1]");
}

use vars qw($DEBUG_LABEL);
sub output_popindex {
    my $self = shift;

    my ($reg, $fallback);
    if <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	476	580	
==>C<new()>

Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new(
		'Libr <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1407	1516	
==>);

sub new {
    my($class)=shift;
	my($errst,$nberr,$token,$value,$check,$dotpos);
    my($self)={ ERRO <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1361	1465	
==>);

sub new {
    my($class)=shift;
	my($errst,$nberr,$token,$value,$check,$dotpos);
    my($self)={ ERRO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490345	490601	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "inc",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490966	491222	
==>ss( {
                  "JUMP" => 0,
                  "NAME" => "inc",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline", <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	75403	75637	
==><<|
	    $tracemsg
.

select TRACE;
$| = 1;

open (TRACECONTEXT, ">&STDERR");
format TRACECONTEXT =
|@|||||||||@                                      |^<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 $tracerulename, '|',				   $tracecontext
| ~~       | <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26372	26532	
==>r,
            'arg1' => $l_next,
        );
    }
    if ( defined $else ) {
        push @opcodes, @{$else};
    }
    push @opcodes, new LabelOp( $pars <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	12898	13007	
==>ttoward  math.h
nexttowardf math.h
nexttowardl math.h
perror      stdio.h
pow         math.h
printf      stdio <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	17684	17864	
==>(defined $target) {
        $self->whine(
          $para->[1]{'start_line'},
          "=for without a target?"
        );
        next;
      }
      DEBUG > 1 and
       print "F <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	928	1077	
==>> $block->kind_of_ident($token->text),

    DEBUG  => 1,
    FILE   => $token->file,
    LINE   => $token->line
  }, $class;
}

sub kind  { return shi <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8475	8599	
==>d
  $Name2character{'lt'  }   = '<';
  $Name2character{'gt'  }   = '>';
  $Name2character{'quot'}   = '"';
  $Name2character{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16541	16684	
==>} else { # return a single scalar
    ($x = ((@_ == 1) ? $_[0] : join '', @_)
    ) =~ s/([F\x00-\x1F\\\{\}\x7F-\xFF])/$Escape{$1}/g;  # ESCAPER <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	234	338	
==>up;

=head1 DESCRIPTION

A documentation I<group> is a number of items with some optional
descriptive tex <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7413	7528	
==>e {
    my ($self, $reg) = @_;
    $reg = value($reg);
    return ("$reg = pop \@::STATESTACK;");
}

sub output_refr <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	72822	72921	
==>ch $rule ( values %{$self->{"rules"}} )
	{
		if ($rule->{"changed"})
		{
			$code .= $rule->code($se <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	21835	21945	
==>(@types) {
			my %val=( INT => 'I0', FLO => 'N0', STRING => 'S0' );
			if ($_->[2] ne "USER") {
				print CODE< <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	34679	34787	
==>ine 632 \"src/ops/core.ops\"\n  {{\@1}}->vtable->set_pointer(interpreter, {{\@1}}, (void* ){{\@2}});\n  {{+=3 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	4700	4820	
==>++) {
    my $tok = $self->at($i);

    printf STDERR "%6d : %-30s : %5s : %-15s: %1s : %s\n",
      $i,
      $tok->file <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	701	846	
==>lf = shift;
        my ( $code, $output, $desc ) = @_;
  
        my $count = $self->{builder}->current_test + 1;

        my $language = 'HQ9plus <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19316	19447	
==>ine 111 "lib/Regex/Grammar.y"
{ return op('seq' => [ $_[1], $_[2] ]); }
	],
	[#Rule 11
		 'expr', 1,
sub
#line 113 "lib/Regex/Gramma <==
2	/Users/nnunley/parrot/tools/build/list_unjitted.pl	919	1064	
==>h @not_jitted, $op;
}

print foreach @not_jitted;

print 'Not jitted: ', scalar @not_jitted;
print 'Jitted: ', scalar @jitted;
print 'Total ops: ' <==
2	/Users/nnunley/parrot/tools/dev/pbc_header.pl	1796	1918	
==>c = unpack 'c', $c;
	    printf "\t%-12s= %s\n", $fields[$i],$c;
	}
    }
}

sub main {
    my ($result, $upd_fp);
    $res <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	5264	5425	
==>&& $Parrot::Revision::svn_entries =~ m/\.svn/) {
       $svn_cmd = 'svn';
   } else {
       $svn_cmd = 'svk';
   }

   # Find all directories in the Parrot distr <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7160	7260	
==>, instr(4, bogus$, "t")
' instr() tests
s1$="Mixed case"
print ucase$(s1$);" Upper"
print lcase$(s1$) <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18889	18989	
==>, instr(4, bogus$, "t")
' instr() tests
s1$="Mixed case"
print ucase$(s1$);" Upper"
print lcase$(s1$) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9216	9436	
==>",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_RESTAR <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	54	177	
==>ion.
# $Id: /parrot/examples/mops/mops.pl 19601 2006-05-30T13:32:26.641316Z coke  $

=head1 NAME

examples/mops/mops.c - Cal <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	8704	8837	
==>get_title_short {  shift->get_short_title(@_)  } # alias

sub get_short_title {
  my $title = shift->get_title(@_);
  $title = $1 if $ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	1094	1208	
==>wlines {
    return scalar $_[0] =~ tr/\n//;
}

=item C<dont_edit($pmcfile)>

Returns the "DO NOT EDIT THIS FILE" w <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	4124	4231	
==>int $fh $html or
    die "Couldn't write to \"$filename\": $!\n";
  close $fh or
    die "Couldn't close \"$ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1405	1655	
==>, $opcodes ];
}

sub PushScopeF {
    my ($parser) = @_;

    PushScope($parser);
    push @{ $parser->YYData->{scope} }, $parser->YYData->{_G};
    $parser->YYData->{_G} = undef;
    unshift @{ $parser->YYData->{scopef} }, $parser->YYData->{ <==
2	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	1294	1427	
==>n\nReady\n"
	bsr CLEAR  # This should keep the runtime stack clean

MAINLOOPNR:
	set I20, 0    # Interactive mode
	set S0, ""
	
	set S <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16235	16383	
==>27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			"[" => 88,
			' <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	5160	5289	
==>ext   => '.dll',
            cc         => ${cc},
            ccflags    => '-O2 -w-8066 -DWIN32 -DNO_STRICT -DNDEBUG -D_CONSOLE', <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670657	670883	
==>le->push_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671430	671656	
==>le->push_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	786	956	
==>.h
    include/parrot/stat.h
    include/parrot/string.h
    include/parrot/vtable.h
    include/parrot/warnings.h
    src/pmc/timer.pmc
    src/utils.c
);
my $destdir = ' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1295	1438	
==>l, as large as a paragraph or a verbatim block)
as calling $token->text would do.

Or, if you want to alter the value, you can even do things li <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	2210	2309	
==>ild specification',
	't' => 'Test file',
	'tbl' => 'Vtable file',
	'tcl' => 'TCL code',
	'txt' => 'T <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	4488	4756	
==>har =
     ( p => "P",
       i => "I",
       3 => "P",
       2 => "P",
       4 => "P",
       l => "I",
       c => "I",
       s => "I",
       f => "N",
       d => "N",
       b => "S",
       t => "S",
       P => "P",
       O => "P",
       S => "S",
       I <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	1658	1758	
==>class_init(Interp *, int, int);\n" foreach (@pmcs);

    print OUT <<"END_C";

void Parrot_register_c <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20013	20348	
==>eated as a statment with the assign.
      #

      my $call = Jako::Construct::Expression::Call->new($block, $left, $func_name, @args);
      next;
    }

    #
    # Variable Assignments:
    #
    #   <ident> = <value>;
    #   <ident> = <ident> = ... = <value>;
    #   <ident> = new <ident>;
    #
 
    if ($token->is_ident and $s <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41811	41931	
==>->describe
						  . ']>>},
						  Parse::RecDescent::_tracefirst($text),
						  q{' . $rule->{"name"} .'})
							if d <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38120	38232	
==>->describe . ']>>},
						  Parse::RecDescent::_tracefirst($text),
						  q{' . $rule->{"name"} .'})
							if d <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5775	5877	
==>pping...\n";
			} else {
				push @{$code{$seg}->{code}}, "IFBRANCH_$_:\n";
			}
			while($_=pop(@{$els <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8123	8221	
==>pping...\n";
		} else {
			push @{$code{$seg}->{code}}, "IFBRANCH_$_:\n";
		}
		while($_=pop(@{$els <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	512299	512758	
==>=> 590,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 690 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}}->vtable->neg(interpreter, {{\@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	13843	14089	
==>dy =~ s/\bexpr\s+OFFSET\(\( (.*?) \)\)/{{^+$1}}/mg;
                      $body =~ s/\bexpr\s+ADDRESS\(\( (.*?) \)\)/{{^$1}}/mg;
                      $body =~ s/\bOP_SIZE\b/{{^$op_size}}/mg;

        $branch   ||= $body =~ s/\bgoto\s+OFFSET\((.*? <==
2	/Users/nnunley/parrot/config/gen/config_h.pm	1217	1374	
==>";

    print HH <<EOF;
/*
** !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
**
** This file is generated automatically by Configure.pl
*/

/*
 * i_(\\w+) header i <==
2	/Users/nnunley/parrot/languages/regex/test.pl	2224	2327	
==>}

usage "not enough args: testfile required"
  if ! defined $testfile && ! defined $pattern;

if (defin <==
2	/Users/nnunley/parrot/Configure.pl	9411	9525	
==>nline
    auto::gc
    auto::memalign
    auto::signal
    auto::socklen_t
    auto::env
    auto::aio
    auto::gm <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	70358	70521	
==>m/$SUBRULE(?!\s*:)/gco
	   )
	{
		return unless $1 eq $subrule && $min > 0;
		_warn(3,"Subrule sequence \"$subrule($repspec) $&\" will
		       (almost certainly) f <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	8316	8680	
==>id*'    => 'void*',
        'INTVAL'   => 'Parrot_Int',
        'PMC*'     => 'Parrot_PMC',
        'FLOATVAL' => 'Parrot_Float',
        'void'     => 'void',
        'UINTVAL'  => 'Parrot_Int',
        'size_t'   => 'size_t',
    );

    die "Unknown type $type\n" unless exists $typemap{ $type };

    return $typemap{ $type };
}

sub parse_params
{
    my $para <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2785	2892	
==>al1, $val2, $dest) = @_;
    $self->output_test('!=', $val1, $val2, $dest);
}

sub output_lt {
    my ($self <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	9988	10196	
==>self->_print($out);

    unless( $test ) {
        my $msg = $todo ? "Failed (TODO)" : "Failed";
        $self->_print_diag("\n") if $ENV{HARNESS_ACTIVE};
        $self->diag("    $msg test ($file at line $lin <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3757	3947	
==>put_unless {
    my ($self, $reg, $dest) = @_;
    $reg = value($reg);
    return "unless $reg, " . $self->output_label_use($dest);
}

sub output_check {
    my ($self, $needed, $failLabel, $ <==
2	/Users/nnunley/parrot/tools/dev/cc_flags.pl	635	824	
==>SEE ALSO

F<config/gen/cflags/root.in>.

=cut

################################################################################

use strict;

my $cflags = shift;

open F, $cflags or die "ope <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	190	333	
==>Transform

=head1 DESCRIPTION

C<Parrot::OpTrans::CGP> inherits from C<Parrot::OpTrans::CPrederef> and
C<Parrot::OpTrans::CGoto> to provide pred <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	15025	15173	
==>enlabel('alt_back');
    my $next = $self->genlabel('alt_next');
    my @tries = map { $self->genlabel('alt_try') } 2..@args;
    my @fails = (@tries <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	249096	249349	
==>CODE" => 289,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 670 \"src/ops/cmp.ops\"\n  {{\@1}} = {{ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	9276	9418	
==>my $cond = $self->_generate(_get_arg($node,1));
  $self->_add_inst('','eq',[$cond,0,"FALSE_$label"]);
  $self->_restore($cond);
  $return = $se <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	15156	15269	
==>y @fails = (@tries, $lastback);

    my (@ibacks, @iops);
    foreach (@args) {
        my ($iback, @ops) = $self- <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	1139	1233	
==>ons{$direction} or die "Invalid direction '$direction'";
    print "$action $filename\n" if $op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629424	629517	
==>pmc_type(interpreter, class);\n    if (!type) {\n\tParrot_autoload_class(interpreter, class);\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095164	1095274	
==>experimental.ops\"\n  Parrot_Exec_OS_Command(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "experime <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095859	1095969	
==>experimental.ops\"\n  Parrot_Exec_OS_Command(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "experime <==
2	/Users/nnunley/parrot/config/init/optimize.pm	548	664	
==>ion';

@args = qw(verbose optimize);

sub runstep
{
    my ($self, $conf) = @_;

    # A plain --optimize means use p <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1908	2018	
==>n $$self{VERSION}:\n".
			  "Please recompile parser module.";

        ref($class)
    and $class=ref($cla <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1842	1948	
==>n $$self{VERSION}:\n".
			  "Please recompile parser module.";

        ref($class)
    and $class=ref($cla <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	23504	23794	
==>> <value>);
    #
    #   next <label>;
    #   next <label> if     (<value> <op> <value>);
    #   next <label> unless (<value> <op> <value>);
    #
    #   last;
    #   last if     (<value> <op> <value>);
    #   last unless (<value> <op> <value>);
    #
    #   last <label>;
    #   las <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	15276	15399	
==>=> 14,
			'CODE' => 6,
			"." => 15
		},
		GOTOS => {
			'expr' => 11,
			'charclass' => 12,
			'regex' => 54,
			'regex1' = <==
2	/Users/nnunley/parrot/tools/dev/cc_flags.pl	425	562	
==>piler flags

=head1 DESCRIPTION

This script is used in a F<Makefile> to process the flags to pass to the
compiler for each C file.

See F <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946047	946282	
==>,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 521 \"src/ops/string.ops\"\n  {{\@1}} = string_copy(interpreter, Par <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	3691	3808	
==>/s;
    
    return $version;
}

=item C<is_hidden()>

Returns whether the file is "hidden", i.e. it's name starts wit <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	25403	25552	
==>nt "Skipping $para_type paragraph because in ignore mode.\n";
      next;
    }
    #~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101160	101421	
==>}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103366	103627	
==>}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnots",
                  "FLAGS" => ":base <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169182	169485	
==>function",
                  "CODE" => 203,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 204 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_intege <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5174	5311	
==>{$FH} "  ";
        if ( exists $op->{result} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $first = <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6206	6343	
==>{$FH} "  ";
        if ( exists $op->{result} and scalar( @{ $op->{result} } ) ) {
            print {$FH} "(";
            my $first = <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	15226	15390	
==>to good
    %% DOMAIN_ERROR %%
  good:
    # Create a result vector
    .local pmc result 
    result = new 'APLVector'
    # Loop through each vector, doing the ops <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	276944	277117	
==>"sc",
                              "s"
                            ],
                  "BODY" => "#line 881 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653346	653445	
==>{{^+4}};\n    {{\@1}} = {{\@2}}->vtable->find_method(interpreter, {{\@2}}, {{\@3}});\n    if (!{{\@1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654507	654606	
==>{{^+4}};\n    {{\@1}} = {{\@2}}->vtable->find_method(interpreter, {{\@2}}, {{\@3}});\n    if (!{{\@1 <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	36522	36763	
==>uilder is only thread-aware if threads.pm is loaded I<before>
Test::Builder.

=head1 EXAMPLES

CPAN can provide the best examples.  Test::Simple, Test::More,
Test::Exception and Test::Differences all use Test::Builder.

=head1 SEE ALSO

Test: <==
2	/Users/nnunley/parrot/tools/dev/mk_inno.pl	992	1109	
==>icu_section = '';
if ($options{icudir}) {
	$icu_section = qq{
Source: "$options{icudir}\\license.html"; DestDir: "{app <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27480	27582	
==>nst('','div',[$return,$temp,$return]);
    $self->_restore($temp);
  } else {
    $return = $self->_gen <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5782	5883	
==>ss defined $self->{triggers}{$key}
        and defined $self->{triggers}{$key}{$trigger};

    my $ver <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6352	6453	
==>ss defined $self->{triggers}{$key}
        and defined $self->{triggers}{$key}{$trigger};

    my $ver <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3311	3405	
==>>

The article "Constants in Perl", in I<The Perl Journal> issue
21.  See L<http://www.sysadmin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	441556	441644	
==>line 109 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442571	442659	
==>line 109 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pnp(interpreter, {{\@3}}, {{\@4 <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	2331	2585	
==>if ( exists $self->{table}{$symb} ) {
            my $defn = $self->{table}{$symb};
            return $defn;
        }
        return undef;
    }

}

################################################################################

package Sy <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4319	4435	
==>tem C<settrigger($key, $trigger, $cb)>

Set a callback on C<$key> named C<$trigger>.  Multiple triggers can be set on <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	10449	10567	
==>t atom. This
# routine disables all of those checks. So you should call
# add_checks() to put the (hopefully fewer) che <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665847	666045	
==>S" => [
                              "p",
                              "kic"
                            ],
                  "BODY" => "#line 359 \"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delete_key <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	2227	2375	
==>nd
        # -Wfoo isn't recognised there, move it up into the next version becone
        # (2.8)

        # Don't use -ansi -pedantic.  It makes it <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	23666	23784	
==>s;
	if ($func_info{$name}{'ar'} ne 'None') {
	    $nfix -= $nf;
	    BUILD_TUPLE($nfix, '', "\t\t #call_args");
	    my <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59367	59504	
==>lsif ($grammar =~ m/$UNCOMMITPROD/gco)
		{
			pos($grammar)-=9;
			_parseunneg("a new (uncommitted) production",
				    0, $lookahead, $l <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1461	1566	
==>head2 {  $_[0]{'Thispara'} = '' }
sub start_head3 {  $_[0]{'Thispara'} = '' }
sub start_head4 {  $_[0]{'Th <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	991	1096	
==>head2 {  $_[0]{'Thispara'} = '' }
sub start_head3 {  $_[0]{'Thispara'} = '' }
sub start_head4 {  $_[0]{'Th <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	9064	9168	
==>c, $exp);
    $exp = qr/[eE][-+]?\d+/;
    $frac = qr/\.\d+/;
    $pointfloat = qr/(?:(?:\d+)?$frac)|\d+\ <==
2	/Users/nnunley/parrot/config/gen/config_h.pm	2031	2295	
==>OF
    for (sort($conf->data->keys())) {
        next unless /HAS_(\w+)/;
        if ($conf->data->get($_)) {
            print HH "#define PARROT_HAS_\U$1 1\n";
        }
    }
    print HH <<EOF;

/*
 * D_(\\w+) config entries
 */

EOF
    for (sort($conf->data-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	12467	12663	
==>{{^+X}}  PC + X        Relative address
        #   expr NEXT()        {{^+S}}  PC + S        Where S is op size
        #   expr ADDRESS(X)    {{^X}}   X             Absolute address
        #   O <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	5846	5986	
==>ne_count'}\n";
      $self->{'in_pod'} = 0;
      # ++$self->{'pod_para_count'};
      $self->_ponder_paragraph_buffer();
       # by now it' <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	10917	11030	
==>y($self, $got, $expect, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $expect ) { <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	11335	11448	
==>y($self, $got, $expect, $name) = @_;
    local $Level = $Level + 1;

    if( !defined $got || !defined $expect ) { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23600	23908	
==>" => 31,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 419 \"src/ops/core.ops\"\n  opcode_t *dest;\n  PMC * const p = {{\@1}};\n\n  interpreter->current_object = NULL;\n  interpreter->curren <==
2	/Users/nnunley/parrot/config/auto/perldoc.pm	6	122	
==>right (C) 2001-2005, The Perl Foundation.
# $Id: /parrot/config/auto/perldoc.pm 19593 2006-05-30T02:28:15.110975Z cok <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6890	6989	
==>$(t$, 5)
print right$(t$, 5)
' instr
s1$="The longer string"
found$="longer"
bogus$="not"
print "Fou <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18619	18718	
==>$(t$, 5)
print right$(t$, 5)
' instr
s1$="The longer string"
found$="longer"
bogus$="not"
print "Fou <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26571	26684	
==>exists $subs{$syms[CURR]}) {
		die "Subroutine $syms[CURR] not found at line $sourceline\n"
	}
	my $sub=$syms[CURR <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	7463	7680	
==>s concerning either
the merchantability of this software or the suitability of this
software for any particular purpose. It is provided "as is"
without express or implied warranty of any kind.

These notices must be re <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	5349	5565	
==>0]->{osname},
      $_[0]->{cc},
  };

  my @smokes  = map { unpack_smoke($_) } glob "parrot-smoke-*.html";
  my %branches;
  push @{ $branches{$_->{branch}}{$category->($_)} }, $_ for @smokes;

  foreach my $branch ( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1606	1790	
==>int "-- $_[1]\n";
  print {$_[0]{'output_fh'}} "</", $_[1], ">";
  return;
}

# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
#@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	23151	23361	
==>NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 126,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	12227	12377	
==>lass' => 12,
			'expr' => 11,
			'regex' => 13,
			'rule' => 8,
			'regex1' => 7
		}
	},
	{#State 2
		DEFAULT => 0
	},
	{#State 3
		ACTIONS => {
			"?" <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22127	22268	
==>y' => 122
		}
	},
	{#State 71
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." = <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21282	21374	
==>':'unless') . ' (defined $_tok)
		{'.($::RD_NO_TRACE?'':'
			Parse::RecDescent::_trace(q{<<Di <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645907	646146	
==>ot_get_datatype_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646804	647043	
==>ot_get_datatype_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8658	8742	
==>NAVIGATE","PHASERS","QUIT"
data "SHIELDS","SOS","SRSCAN","STATUS","TORPEDO","TRANSFER <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21522	21606	
==>NAVIGATE","PHASERS","QUIT"
data "SHIELDS","SOS","SRSCAN","STATUS","TORPEDO","TRANSFER <==
2	/Users/nnunley/parrot/languages/APL/t/APL.pm	1536	1656	
==>/\n\n$/smx) {
      chomp $output;  # XXX Keep hackin' it up!
    }

    my $todo   = $block->todo;
    if (defined($todo <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	27133	27270	
==>NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 138,
			'function <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	5801	5911	
==>nt a space if we're about to end a row
    if newline goto print_newline
    result .= ' '
    goto continue_2d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572977	573067	
==>_class_String);\n  VTABLE_set_string_native(interpreter, name, {{\@2}});\n  {{\@1}} = pmc_n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573887	573977	
==>_class_String);\n  VTABLE_set_string_native(interpreter, name, {{\@2}});\n  {{\@1}} = pmc_n <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	795	886	
==>define REL_PC     ((size_t)(cur_opcode - interpreter->code->base.data))
#define CUR_OPCODE c <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	911	1002	
==>define REL_PC     ((size_t)(cur_opcode - interpreter->code->base.data))
#define CUR_OPCODE c <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	158	263	
==>ict;

my ($svnid) = '$Id: /parrot/tools/build/parrot_config_c.pl 20350 2006-06-25T03:57:27.771662Z petdanc <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	14	116	
==>ODO: Resolve copyright. See ADDITIONAL section at end of file.
# $Id: /parrot/tools/build/pbc2c.pl 1960 <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	1193	1296	
==>'ccflags'} . " -DPARROT_IN_CORE";
while ($cc_inc  =~ s/-I(\S+)//g) { push @incdirs, $1; }
while ($ccflag <==
2	/Users/nnunley/parrot/tools/dev/cc_flags.pl	2132	2296	
==>ch my $arg (@ARGV) {
                $arg =~ s/$option->[2]/$option->[3]/;
            }
        }
    }
}

# print "@ARGV\n";
print "$cfile\n";
exit system(@ARGV)/2 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2991	3121	
==>utput_fh'}} $out,
    #"\n"
  ;
  $self->{'Thispara'} = '';
  
  return;
}

# . . . . . . . . . . And then off by its lonesome:

su <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2525	2647	
==>utput_fh'}} $out, "\n";
  $self->{'Thispara'} = '';
  
  return;
}

# . . . . . . . . . . And then off by its lonesome:

su <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28387	28519	
==>NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 141,
			'fun <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	3863	3974	
==>show version
All the options can be shortened to their unique prefixes,
and one leading dash ("-") can be used i <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	1348	1461	
==>hrow $P0
PIR

    # Return.
END:
    .return(body)
.end
PIR_OUT

# Write output.
open $fh, "> $output_file" or die <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2076	2188	
==>sub   end_over_text    { --$_[0]{'Indent'} }
sub   end_over_block   { --$_[0]{'Indent'} }


# . . . . . Now the a <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1644	1756	
==>sub   end_over_text    { --$_[0]{'Indent'} }
sub   end_over_block   { --$_[0]{'Indent'} }


# . . . . . Now the a <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1929	2059	
==>YYData->{lex_num} = 0;
##    warn "PushScopeF\n";
}

sub PopScopeF {
    my ($parser) = @_;

    my $lex_num = shift @{ $par <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	28025	28132	
==>G > 1 and print "=back happily closes matching =over\n";
        # Expected case: we're closing the most rec <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	4	102	
==>erl -w
#$Id: /parrot/lib/Digest/Perl/MD5.pm 4793 2005-05-31T14:22:35.671857Z svm  $

package Digest <==
2	/Users/nnunley/parrot/config/gen/platform.pm	5078	5284	
==>grep { /\.c$/ } split(',', $generated);
    for (@impls) {
        if (-e $_) {
            local $/ = undef;
            print("\t$_\n") if defined $verbose && $verbose == 2;
            open IN_C, "< $_" o <==
2	/Users/nnunley/parrot/Configure.pl	2540	2742	
==>he given type for C<FLOATVAL>.

=item C<--opcode=(type)>

Use the given type for opcodes.

=item C<--ops=(files)>

Use the given ops files.

=item C<--pmc=(files)>

Use the given PMC files.

=item C<--cg <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	688	917	
==>etable",
);

my $header = <<"HEADER";
/* $fileid
 * Copyright (C) 2005, The Perl Foundation.
 *
 * DO NOT EDIT THIS FILE DIRECTLY!
 * please update the $0 script instead.
 *
 * Created by $svnid
 *  Overview:
 *     This file cont <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	633	752	
==>TEST', REDO => 'THEN', LAST => 'ELSE' }, # TODO: fix these
);


#
# new()
#

sub new
{
  my $class = shift;
  my ($block <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	654	773	
==>TEST', REDO => 'THEN', LAST => 'ELSE' }, # TODO: fix these
);


#
# new()
#

sub new
{
  my $class = shift;
  my ($block <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946495	946750	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947396	947651	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_charset",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i" <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	18023	18157	
==>= pop @stack;
    my $targ = "pc_xxx";
    if ($c =~ /to (\d+)/) {
	$targ = "pc_$1";
    }
    print <<EOC;
	if $tos->[1] goto $targ $c <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	10967	11082	
==>vel = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # undef only matches undef and nothing else <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	11385	11500	
==>vel = $Level + 1;

    if( !defined $got || !defined $expect ) {
        # undef only matches undef and nothing else <==
2	/Users/nnunley/parrot/examples/benchmarks/primes.pl	76	219	
==>amples/benchmarks/primes.pl 19601 2006-05-30T13:32:26.641316Z coke  $

=head1 NAME

examples/benchmarks/primes.pl - Calculate prime numbers < 10 <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	1511	1899	
==>put;
close $fh;


##############################################################################
# Subroutines.
##############################################################################

# This parses the input file, extracting each method.
# ###################################################
sub parse($) {
    my $input = shift;
    my @methods = ();
    my $cur_method;
    my $l <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1053	1166	
==>ile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $left  = $self->left->value;
  my $right = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	1061	1174	
==>ile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $left  = $self->left->value;
  my $right = <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	549	660	
==>nt::expected;
	$Parse::RecDescent::expected =~ s/_/ /g;
	if (!$Parse::RecDescent::unexpected
	    || $Parse::Rec <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	39147	39403	
==>= 1 and $ell_content[0] eq '"'
         )
      ) {
        $section_name = [splice @ell_content];
        $section_name->[ 0] =~ s/^\"//s;
        $section_name->[-1] =~ s/\"$//s;
      }

      # Turn L<Foo Bar> into L</Foo Bar>.
      if(!$section_name a <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6816	6920	
==>self->require_semicolon;

      $self->SYNTAX_ERROR("Cannot declare constant without assigning a value.") <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27864	28037	
==>e_trans = pop stypes\n";
		}
		for (1..$rule->{'push'}) {
			$pir .= "    type_trans = pop dtypes\n";
			$pir .= "    stypes = push type_trans\n";
		}

		# Finally, call post <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	532827	533233	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ln",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43241	43448	
==>IL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 202,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'v <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	1542	1679	
==>ssign  { return shift->is('arith-assign');  }
sub is_assign        { return shift->is('assign');        }
sub is_bit_assign    { return sh <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	881	1017	
==>n LANG, "> $lang_f" or die "Unable to open '$lang_f'"; # JMG
        binmode LANG; # JMG
        print LANG $lang_code; # JMG
        clo <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	793	929	
==>n LANG, "> $lang_f" or die "Unable to open '$lang_f'"; # JMG
        binmode LANG; # JMG
        print LANG $lang_code; # JMG
        clo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824542	824820	
==>STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_str(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825613	825891	
==>STACK_TYPE, \"Wrong type on stack!\");\n  }\n\n  {{\@1}} = UVal_str(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1429	1529	
==>age for stack depths and stack type states that we are
	# propogating.
	return <<'PIR';
.local string <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	516	616	
==>age for stack depths and stack type states that we are
	# propogating.
	return <<'PIR';
.local string <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	2729	2901	
==>t[0][1] eq q{} ) {
        shift @output;
    }
    while ( $output[1][0] && $output[-1][1] eq q{} ) {
        pop @output;
    }

    # Compose the return string - skip any <==
2	/Users/nnunley/parrot/config/auto/pack.pm	1104	1250	
==>ze == 4) {
            $format = 'l';
        } elsif ($size == 8 || $Config{use64bitint} eq 'define') {

            # pp_pack is annoying, and th <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	18277	18448	
==>e', 4,
sub
#line 79 "lib/Regex/Grammar.y"
{ my ($name, $tree) = @_[2,4];
     # This is really not the place for this...
     if ($tree->{name} eq 'scan' && $name ne 'defau <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478879	478980	
==>nterpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({{\@1}} / den) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479771	479872	
==>nterpreter, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({{\@1}} / den) <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	46799	47005	
==>the list

=over 4

=item [0]

"<<'EOMSG'\nThis is the message.\nEOMSG\n" (i.e. the full extracted here document,
including fore and aft delimiters),

=item [1]

" || die;\nexit;" (i.e. the remainder of the i <==
2	/Users/nnunley/parrot/config/init/defaults.pm	1225	1482	
==>endent code suitable for dynamic loading.
        cc_shared => $Config{cccdlflags},    # e.g. -fpic for GNU cc.

        # C++ compiler -- used to compile parts of ICU.  ICU's configure
        # will try to find a suitable compiler, but it prefers GNU c++ o <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	3231	3400	
==>"^");
	return 70 if ($op eq ".");

	return 99 if ($op eq "UNARYMINUS");
	
	return 100 if (isbuiltin $op);
	return 100 if (isuserfunc $op);
	return 100 if (isarray $op and <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	11843	12012	
==>-content...\n";
          ++$state;
        } elsif(
          $desperate_for_title
           # if we're so desperate we'll take the first
           #  =head1's content <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3346	3455	
==>n item for sequences of files with the
			# same description.
			
			push @contents, 
				map {$self->new_item <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	58227	58321	
==>lds a Friedl-style optimized regex that matches a string delimited
by any one of the characters <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	5	102	
==>ire 5;
package Pod::Simple::Text;
use strict;
use Carp ();
use Pod::Simple::Methody ();
use Pod::S <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	993	1082	
==>G_PMC(cur_opcode[i])
#define SREG(i) REG_STR(cur_opcode[i])
#define CONST(i) CONTEXT(inter <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1109	1198	
==>G_PMC(cur_opcode[i])
#define SREG(i) REG_STR(cur_opcode[i])
#define CONST(i) CONTEXT(inter <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16018	16159	
==>s.org>

Benjamin Smith

Norman Nunley

Steve Peters

Stevan Little <stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vincent <j <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	7692	7839	
==>ocate a matching
symbol, and then returns that symbol's type.

=cut

sub type_of_ident
{
  my $self = shift; # Required: Jako::Construct::Block
  my <==
2	/Users/nnunley/parrot/config/init/optimize.pm	1445	1573	
==>s passed to --optimize on the CLI
            $conf->data->add(' ', ccflags => $optimize);
            # record what optimization <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300815	301237	
==>IRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 350,
                  "ARGS" => [
                              "i",
                              "n",
                              "nc"
                            ],
                  "BODY" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54836	55060	
==>/core.ops\"\n  {{\@1}} = interpinfo(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	55596	55820	
==>/core.ops\"\n  {{\@1}} = interpinfo(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	30954	31130	
==>step,
        'result' => $_var,
    );
    push @opcodes, new BranchOp( $parser,
        'result' => $lbl_loop,
    );
    push @opcodes, new LabelOp( $parser,
        ' <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	659	815	
==>fined';

# These are the Parrot file types excluding the ICU specifc ones.

my %type_for_suffix = (
	'BASIC' => 'README file',
	'C' => 'C code',
	'Log' => 'S <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	11315	11457	
==>> 0;
    return [ ] if @$incexc == 1;
    shift @$incexc;
    $incexc->[0]++;
    return $incexc;
}

sub rewrite_classpieces {
    my ($self, $ <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	3789	3934	
==>@params) = split ' ', $line;
  unshift @params, $return_type;
  my $signature = join("", @params);
  print OUTPUT "dlfunc P2, P1, '$name', '$signa <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	169	265	
==>rrot_api.pl - Verify Parrot API (symbols)

=head1 SYNOPSIS

    % perl tools/dev/parrot_api.pl [l <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6096	6240	
==>oup} ||= {};
        foreach my $lib ( keys %libs ) {
            $group_libs{$group}->{lib} = 1;
        }
    }

    return (\%group_files, \%g <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6307	6451	
==>oup} ||= {};
        foreach my $lib ( keys %libs ) {
            $group_libs{$group}->{lib} = 1;
        }
    }

    return (\%group_files, \%g <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2663	2798	
==>libs );
        if ($CC =~ /gcc/i) {
            $liblist =~ s/gdbm\.lib/-llibgdbm/i;
        }
        my $extraLibs = '-lm -lgmp -lrea <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	2458	2593	
==>libs );
        if ($CC =~ /gcc/i) {
            $liblist =~ s/gdbm\.lib/-llibgdbm/i;
        }
        my $extraLibs = '-lm -lgmp -lrea <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360752	360887	
==>],
                  "BODY" => "#line 258 \"src/ops/io.ops\"\n  PMC * const p = {{\@1}};\n  STRING * const s = (VTABLE_get_string(interp <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	925	1085	
==>gs languages/APL/APL.pbc $lang_f";

    $exit_code = Parrot::Test::run_command($cmd, CD => $self->{relpath},
                                           STDOUT => <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	28546	28663	
==>int <<EOC;
	# arg $p->[1]
EOC
	}
	my $x = (pop @stack)->[1];
	print <<EOC;
	$x\["_message"\] = "Foo"
EOC
	$throw = "th <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7847	7945	
==>)"
i%=0
if i% then print "Should not happen (int)"
i%=54
if i% then print "This is true" else print <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14834	14932	
==>)"
i%=0
if i% then print "Should not happen (int)"
i%=54
if i% then print "This is true" else print <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	352115	352322	
==>ine",
                  "CODE" => 410,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 195 \"src/ops/io.ops\"\n  PIO_printf(in <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64117	64230	
==>ly-$1-times subrule match", $aftererror,$line,"$code$argcode($1)");
					if ($2)
					{
						my $pos = pos $gramm <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	6725	6856	
==>$out;
    carp $@ if $@;
}

sub _usage_error {
    confess "struct usage error";
}

sub _subclass_error {
    croak 'struct class ca <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	882	1104	
==>ush(@concrete_items, 
	            $self->new_item('', $dist->relative_path($file)));
	    }
	    elsif ( $code =~ /^pmclass\s+[a-z]/smo )
	    {
	        push(@abstract_items, 
	            $self->new_item('', $dist->relat <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	4927	5195	
==>efine',
             'i_poll' => undef,
             'i_prot' => undef,
             'i_pthread' => 'define',
             'i_pwd' => 'define',
             'i_rpcsvcdbm' => undef,
             'i_setjmp' => 'define',
             'i_sfio' => undef,
             'i_sgt <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	13064	13177	
==>ucceed($wantarray, $textref,
			@match[2..3,4..5,0..1]	# MATCH, REMAINDER, PREFIX
		       );

}

sub _match_codeb <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4304	4440	
==>);
EOC
    }
    $cout .= <<"EOC";
    }
    return pmc;
}

EOC
}

=back

=head2 Class Methods

=over

=item C<new($self, $opt)>

Returns <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861976	862261	
==>( {
                  "JUMP" => 0,
                  "NAME" => "length",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862744	863029	
==>( {
                  "JUMP" => 0,
                  "NAME" => "length",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => " <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	7511	7633	
==>ream, reverse @stack;	
	#print STDERR "Outta RPN convert\n";
	return(@stream);
}

sub fixup {
	my(@expr)=@_;

	# Do the fix <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	3793	3958	
==>ent {
    my ($self, $string) = @_;
    return map { "# $_" } split(/\n/, $string);
}

sub output_literal {
    my ($self, @args) = @_;
    return join(" ", @args);
} <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2800	2908	
==>oto_pop
{
    my ($self) = @_;

    return "opcode_t* pop_addr = (opcode_t*)pop_dest(interpreter);\ncur_opcod <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621788	621889	
==>LAGS(ccont) &= ~SUB_FLAG_TAILCALL;\n\t    --ctx->recursion_depth;\n\t    ctx->caller_ctx = caller_ctx- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29624	29717	
==>LAGS(ccont) &= ~SUB_FLAG_TAILCALL;\n\t--ctx->recursion_depth;\n\tctx->caller_ctx = caller_ctx- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864150	864400	
==>DING_BYTES(interpreter, {{\@2}}));\n  }\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	865042	865292	
==>DING_BYTES(interpreter, {{\@2}}));\n  }\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957549	957650	
==>{{\@2}});\n  if (n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\"encoding '%Ss' not found\", {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958454	958555	
==>{{\@2}});\n  if (n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\"encoding '%Ss' not found\", {{\ <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	2596	2728	
==>%config) {
		$config_pm =~ s/\${$_}/$config{$_}/g;
	}
	
	# Write.
	open $fh, "> config/N2PConfig.pm" or die "Unable to open conf <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	32556	32756	
==>$text, optionally after some whitespace
	# (note the list context to protect $text from modification):

		($substring) = extract_delimited $text, q{"'};


	# Delete the substring delimited by the first <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2441	2538	
==>bullet { $_[0]->emit_par( 0) }
sub end_item_number { $_[0]->emit_par( 0) }
sub end_item_text   { $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2009	2106	
==>bullet { $_[0]->emit_par( 0) }
sub end_item_number { $_[0]->emit_par( 0) }
sub end_item_text   { $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1104150	1104282	
==>n\t{{\@1}} = pmc_new_init(interpreter, type, {{\@3}});\n\t{{+=4}};\n",
                  "experimental" => 1,
                  "LABE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105365	1105497	
==>n\t{{\@1}} = pmc_new_init(interpreter, type, {{\@3}});\n\t{{+=4}};\n",
                  "experimental" => 1,
                  "LABE <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3524	3648	
==>ary $group --c " . join(" ",@pmcfiles))
              or die "pmc2c library creation failed ($?)\n";
        }
    }
} 
elsif <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3628	3752	
==>ary $group --c " . join(" ",@pmcfiles))
              or die "pmc2c library creation failed ($?)\n";
        }
    }
} 
elsif <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	929	1056	
==>=> '$(PERL) -e "chdir shift @ARGV; system \'$(MAKE)\', @ARGV; exit $$? >> 8;"',
        ncilib_link_extra => '-def:src/libnci_te <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	25166	25326	
==>letter) {
      DEBUG > 2 and print " $new_letter isn't a valid thing to entend.\n";
      $self->whine(
        $para->[1]{'start_line'},
        "You can exten <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	14313	14727	
==>scalar( @{$vars} );
            while ( $n-- ) {
                $result = new_tmp( $parser, 'pmc' );
                push @{ $expr->[1] }, new LocalDir( $parser,
                    'result' => $result,
                );
                push @{ $expr->[1] }, new AssignOp( $parser,
                    'result' => $result,
                    'arg1'   => $nil->[0],
                );
                pu <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2587	2702	
==>convenience function
sub rop {
    return __PACKAGE__->op(@_);
}

use vars qw(%MARKERS);
sub mark {
    my $name = s <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6246	6356	
==>"
A$(3) = "Chicago"
A$(4) = "Seattle"
Max = 4 'UBOUND(A$)
Exchange=TRUE           ' Force first pass through th <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15899	16009	
==>"
A$(3) = "Chicago"
A$(4) = "Seattle"
Max = 4 'UBOUND(A$)
Exchange=TRUE           ' Force first pass through th <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	4108	4251	
==>it("  .get_from_HLL($help, '_tcl', '$help')");
    }
    
    return $code;
}

sub inline {
    my $line = shift;
    return "  pir .= \"$line\" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955899	956129	
==>(interpreter, Parrot_encoding_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956711	956941	
==>(interpreter, Parrot_encoding_name(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	25835	25982	
==>em in their
    # test suites while still getting normal test output.
    open(TESTOUT, ">&STDOUT") or die "Can't dup STDOUT:  $!";
    open(TESTERR <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	13522	13644	
==>ctor) # reshape
    .param pmc op1
    .param pmc op2

    # XXX is a clone needed here?
    op2.'set_shape'(op1)
    .retu <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22068	22189	
==>d.  (Stack: "
          . $self->_dump_curr_open() . ')'
        );
        DEBUG and print "Ignoring mistargetted =end $c <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35935	36055	
==>e
		{ return "\\&$_[1]$_[0]->{subrule}"; }
}

sub new ($$$$$$$$$$)
{
	my ($self, $subrule, $repspec, $min, $max, $lookahe <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	1085	1186	
==>*,\s*'.$param_re.')*)?');
my $method_re = make_re('^\s*('.$type_re.')\s+('.$ident_re.')\s*\(('.$arglis <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15211	15385	
==>=%{$_[0]} if @_;
	my(@expr, @stream, @left, $whole);
	my($assignto, $result);
	$whole="";
	$retcount=0;
	my $type="";

	if ($opts{assign}) {
		#print STDERR "Assign\n";
		$opt <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	7480	7615	
==>rgument n
 */
static INTVAL
get_nci_I(Interp *interpreter, struct call_state *st, int n)
{
    assert(n < st->src.n);
    Parrot_fetch_a <==
2	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	104	205	
==>02:28:15.110975Z coke  $

package init::hints::dec_osf;

use strict;

sub runstep
{
    my ($self, $co <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	5323	5465	
==>est->plan( skip_all => $reason );
  $Test->plan( tests => $num_tests );

A convenient way to set up your tests.  Call this and Test::Builder
wi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	194	319	
==>Jako/Construct/Expression/Call.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1691	1803	
==>->args;

  $self->SYNTAX_ERROR("Wrong number of arguments (expected %d, got %d) in call to '%s'.",
    scalar(@fo <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1391	1503	
==>->args;

  $self->SYNTAX_ERROR("Wrong number of arguments (expected %d, got %d) in call to '%s'.",
    scalar(@fo <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	7625	7767	
==>gnu) {
		    if ($type =~ /^[Rr]$/) {
			$const = 1;
			$init  = 1;
		    } elsif ($type =~ /^[Ss]$/) {
			$small  = 1;
			$uninit = 1;
		    } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822292	822386	
==>on(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_INT) {\n    internal_exc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823360	823454	
==>on(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_INT) {\n    internal_exc <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7305	7442	
==>{
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If the register name to load from was supplied, we put it on the lazy
	# m <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5127	5263	
==>{
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If the register name to load from was supplied, we need to generate
	# th <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	337188	337478	
==>ODE" => 394,
                  "ARGS" => [
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 81 \"src/ops/io.ops\"\n  {{\@1}} = (INTVAL)PIO_getfd(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LA <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	3199	3376	
==>East
            I18N.Other
            I18N.Rare
            I18N.West
            I18N
            ICSharpCode.SharpZipLib
            Microsoft.JScript
            Micr <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	117	243	
==>8Z bernhard  $

=head1 NAME

Parrot::Docs::HTMLPage - HTML Documentation Page

=head1 DESCRIPTION

C<Parrot::Docs::HTMLPage> gi <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	5109	5227	
==>not open source file '$source' for writing: $!!\n";


#
# Print the preamble for the HEADER and SOURCE files:
#

my $pr <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	9217	9436	
==>er of args required
for this builtin.

=cut

sub num_args {
    my @args = @_;

    my $min = my $max = @args;

    my $is_repeating; 

    foreach my $arg (@args) {
        $min-- if $arg->{optional};

        # XXX thi <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	2174	2297	
==>t4_t => 'int');
    } elsif ($results{longsize} == 4) {
        $conf->data->set(int4_t => 'long');
    } else {
        $co <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1138	1241	
==>scalar(File::Spec->splitdir($path_to_parrot));
        my $path_to_language;
        if ($dir_count == 0 <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1623	1726	
==>scalar(File::Spec->splitdir($path_to_parrot));
        my $path_to_language;
        if ($dir_count == 0 <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33922	34038	
==>} . '})
					if defined $::RD_TRACE;').'
		if (1) { no strict qw{refs};
		$Parse::RecDescent::lastexpected = ' . ($ru <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029777	1029872	
==>.0) {\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030619	1030714	
==>.0) {\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\"Cannot go back in time\");\n  }\n <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61234	61408	
==>~ m/(?=$MTOKEN)/gco
			and do { ($code, undef, @components)
					= extract_quotelike($grammar);
				 $code }
		      )

		{
			_parse("an m/../ pattern terminal", $aftererror, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	9079	9207	
==>op->{args}->[1]->startset() }
sub hasback { my ($op) = @_; $op->{args}->[1]->hasback() }
sub dfa_safe { my ($op) = @_; $op->{args <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12849	12957	
==>nce we have that all we need is the relative
    # path from the current directory to the file and return tha <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	1792	1949	
==>.

=cut

sub write_html
{
	my $self = shift;
	my $index_html = $self->write_contents_html(@_);
	
	if ( $index_html )
	{
		# If none of the items are in a para <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37629	37717	
==>0 goto INS_TRANS_PUSH_LOOP_$name
type_trans = dtypes[0]
push stypes, type_trans
INS_TRANS <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5024	5140	
==>to the source
directory.

=cut

sub contents_relative_to_source
{
    my $self = shift;
    my $source = shift;
    m <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3016	3123	
==>to the source
directory.

=cut

sub contents_relative_to_source
{
	my $self = shift;
	my $source = shift;
	m <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2598	2700	
==>block->push_content($self);

  return $self;
}

# block handled by superclass?

sub kind  { return shif <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2715	2816	
==>block->push_content($self);

  return $self;
}

# block handled by superclass?

sub kind { return shif <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944702	945018	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "charsetname",
                  "FLAGS" => ":base_co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945511	945827	
==>);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "charsetname",
                  "FLAGS" => ":base_co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564434	564821	
==>i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 645,
                  "ARGS" => [
                              "p",
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line 183 <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12547	12700	
==>YNSELF.other_method(args...)
    s/DYNSELF           # Macro: DYNSELF
      \.(\w+)           # other_method
      \(\s*(.*?)\)      # capture argument li <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5932	6062	
==>{group}
          or next;
        ($group) = keys %$group;
        $pmc_group{$pmc} = $group;
        push @{ $group_files{$group} <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6143	6273	
==>{group}
          or next;
        ($group) = keys %$group;
        $pmc_group{$pmc} = $group;
        push @{ $group_files{$group} <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11920	12019	
==>args = join(",", map {$_->[0]} (reverse @args));
			$pir_args = ",$pir_args" if $pir_args;
			$exter <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	12330	12429	
==>args = join(",", map {$_->[0]} (reverse @args));
			$pir_args = ",$pir_args" if $pir_args;
			$exter <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	6346	6494	
==>art_offset($1)  . "; {{=0}}"; /me;
    s/{{=0,-=([^{]*?)}}/  $trans->restart_offset(-$1) . "; {{=0}}"; /me;

    s/{{=\*}}/            $trans->goto_p <==
2	/Users/nnunley/parrot/languages/lua/luac.pl	1196	1308	
==>elp.

=item B<-v>

Display version.

=back

=head1 DESCRIPTION

=head1 AUTHOR

Francois Perrad

=cu <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	3020	3123	
==>eger
  use Pod::Simple ();

And this:

  use Pod::Simple::Debug (\$debug_level,0);  # or some integer

i <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10042	10183	
==>am pmc ptypes
    .param pmc ltypes
    .param pmc rettype
    .param int trace
    .local pmc bc, ex, stypes, dtypes, loadtype, type_trans, c <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	12860	12966	
==>$self->ok($test, $name);
        $self->_cmp_diag($got, 'ne', $dont_expect) unless $test;
        return $t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211971	212249	
==>=> 249,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 416 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	2799	2902	
==>plemented rule calling";
}

sub convert_sv_literal {
    use Data::Dumper;
    my ($self, $tree, $ctx) = <==
2	/Users/nnunley/parrot/config/init/hints/msys.pm	173	341	
==>unstep
{
    my ($self, $conf) = @_;

    $conf->data->set(
        ld            => '$(PERL) /bin/perlld',
        ld_load_flags => '-shared ',
        libs          => <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	927	1056	
==>src/utils.c
);
my $destdir = 'runtime/parrot/include';

@args = qw(verbose);

sub runstep
{
    my ($self, $conf) = @_;

    # nee <==
2	/Users/nnunley/parrot/config/auto/gc.pm	808	937	
==>cator to use';

# valid libc/malloc/malloc-trace/gc
@args = qw(gc verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $gc <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14164	14286	
==>.foo=12
print mine(foo,20,z.pointer)
print z.pointer.foo

' Array access, 132
type first
	foo as integer
	bar as string
end <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	15957	16047	
==>tem C<esc(@strings)>

=item C<esc($string)>

Reimplemented here to silence a C<Pod::Simple: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563229	563466	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addmethod",
                  "FLAGS" => ":object_classes <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564126	564363	
==>,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addmethod",
                  "FLAGS" => ":object_classes <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	25707	25823	
==>[0]].right = my_enum_class_$entry->[1];
EOC
        }
    }
    # just to be safe
    foreach my $dynpmc (keys %init_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4464	4626	
==>and     do {
                	s/^#DBG>//;
                	push(@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Not <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4241	4392	
==>and     do {
                	s/^#DBG>//;
                	push(@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#Not <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	43968	44186	
==>bold italic.
    # Example:
    #   What do you want?  i like pie. [or whatever]
    # #:^^^^^^^^^^^^^^^^^              /////////////         
    

    DEBUG > 4 and print "_verbatim_format considers:\n<$p->[$i-1]>\n<$ <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4563	4671	
==>a subdirectory with the specified name exists in the
directory.

=cut

sub directory_exists_with_name
{
    m <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	4114	4215	
==>h(${$_[0]->{text}})-$_[0]->{prev}+1;
	substr($parser->{fulltext},0,$missing) =~ m/^(.*)\Z/m;
	return l <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16539	16630	
==>modify it
under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.h <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1753	1844	
==>modify it
under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.h <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	556635	556736	
==>bject;\n  opcode_t *next;\n\n  object = {{\@1}};\n  method_pmc = {{\@2}};\n\n  next = {{^+4}};\n  inte <==
2	/Users/nnunley/parrot/config/inter/encoding.pm	1621	1757	
==>ing_o =~ s/^| / src${slash}encodings${slash}/g;

    $conf->data->set(
        encoding            => $encoding_list,
        TEMP_encodi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	603000	603212	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "classname",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1096106	1096318	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "classname",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o" <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10457	10613	
==>s;
    my $state = 0;
    my $depth = 0;
    for my $c (split(//, $data)) {
        if ($state == 0) {
            if ($c eq '\\') {
                $state = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	594543	595021	
==>,
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 674,
                  "ARGS" => [
                              "p",
                              "kc",
                              "kc"
                            ],
                  "BODY" => "#line 325 \"src/ops/object.o <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1339	1433	
==>xpr_address($address)>

Returns the C code for C<ADDRESS($address)>. Called by C<goto_address() <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19610	19738	
==>s[CURR];
		feedme;
		$sourceline++;
		feedme;
		while($syms[CURR] ne "end") {
			my($name,$type);
			die "Syntax error in type $t <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5732	5860	
==>enerated code.
	return $pir;
}

sub post_branch($) {
	my $self = shift;
	my $pops = shift;
	my $pir = '';

	# Branches mean we ne <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3670	3798	
==>enerated code.
	return $pir;
}

sub post_branch($) {
	my $self = shift;
	my $pops = shift;
	my $pir = '';

	# Branches mean we ne <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732194	732454	
==>.ops\"\n  {{\@1}} = (INTVAL)({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732940	733200	
==>.ops\"\n  {{\@1}} = (INTVAL)({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	883	998	
==>art
of the document.

=cut

sub do_beginning 
{
    my $self = shift;

    # We have to do this because it has the s <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	3970	4124	
==>sed instead of two ("--").
__EOF__
}

if ($^O eq 'solaris'      && $nm_try =~ /Solaris/) {
    $nm_opt = '-p';
} elsif ($^O eq 'hpux'    && $nm_try =~ /lin <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2797	2925	
==>->Error("Invalid escape sequence $_ .\n"),
                last;
        }
    }

    $parser->Error("Untermined string.\n") <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4312	4440	
==>->Error("Invalid escape sequence $_ .\n"),
                last;
        }
    }

    $parser->Error("Untermined string.\n") <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	39910	40107	
==>$decls .= "    .local $type $mv->{$_}\n";
		}
	}

	# Insert 'em.
	$pir =~ s/[ \t]*\$\{AUTO_MAGICALS\}/$decls/;
	return $pir;
}


# Substiture meta variables.
# ##########################
sub sub_met <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	2603	2715	
==>,
            $self->new_item('', 'tools/dev/mk_manifests.pl'),
            $self->new_item('', 'tools/dev/mk_man <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2971	3082	
==>d"
Label2:
   PRINT "4 back in subroutine one"
   RETURN Label1
Sub2:
   PRINT "3 in subroutine two"
   RETURN L <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16938	17049	
==>d"
Label2:
   PRINT "4 back in subroutine one"
   RETURN Label1
Sub2:
   PRINT "3 in subroutine two"
   RETURN L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206437	206528	
==>BODY" => "#line 394 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207379	207470	
==>BODY" => "#line 394 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	8489	8797	
==>ct closing tag to match: $rdel",
				 pos $$textref;
			goto failed;
		}
	}
	else
	{
		$rdelspec = eval "qq{$rdel}";
	}

	while (pos($$textref) < length($$textref))
	{
		next if $$textref =~ m/\G\\./gc;

		if ($$textref =~ m/\G(\n[ \t]*\n)/gc )
		{
			$parapos = pos($$textref) - length($1)
				unless defined <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	682251	682549	
==>ops\"\n    {{\@1}} = {{\@2}}->vtable->shift_float(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834330	834521	
==>_stack, {{\@1}}, STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835056	835247	
==>_stack, {{\@1}}, STACK_ENTRY_STRING, STACK_CLEANUP_NULL);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	2957	3092	
==>);       }
sub is_module        { return shift->is('module');        }
sub is_next          { return shift->is('next');          }
sub i <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	20886	21014	
==>==' => 'iseq',
	    '!=' => 'isne',
	    '>' => 'isgt',
	    '>=' => 'isge',
	    '<' => 'islt',
	    '<=' => 'isle',
	    'is' = <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	260	358	
==>.pl [libfile]

=head1 DESCRIPTION

Displays the API (the visible symbols, code or data) of the Parr <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6281	6416	
==>trigger
{
    my ($self, $key, $trigger) = @_;

    return
        unless defined $self->{triggers}{$key}
        and defined $self->{tr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93293	93385	
==>" => "#line 58 \"src/ops/bit.ops\"\n  string_bitwise_and(interpreter, {{\@1}}, {{\@2}}, &{{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94073	94165	
==>" => "#line 58 \"src/ops/bit.ops\"\n  string_bitwise_and(interpreter, {{\@1}}, {{\@2}}, &{{\@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1859	1949	
==>>new( I<text> )
>>

=head1 SEE ALSO

L<Pod::Simple::PullParserToken>, L<Pod::Simple>, L<Pod <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048345	1048459	
==>^+3}};\n    {{\@1}} = Parrot_get_global(interpreter, NULL, {{\@2}}, next);\n    {{+=3}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049269	1049383	
==>^+3}};\n    {{\@1}} = Parrot_get_global(interpreter, NULL, {{\@2}}, next);\n    {{+=3}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655643	655933	
==>n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "defined",
                  "FLAGS" => "" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_assignments.pm	69	235	
==>S1
#    % &   INT
#    ! #   FLO
#    $     STRING
#    
# Type must be one of INT FLO STRING
#    INT  is in   I0
#    FLO  is in   N0
#    STRING is in S0
#
# No imp <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2166	2282	
==>efix);
  }

  if ($self->prefix) {
    $handler->start_element({ Name => 'cond', Attributes => { kind => $self->kind, <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	7087	7226	
==>f ( defined $name ) 
    {
        $name =~ tr/ /_/;
        
        print {$self->{'output_fh'}} 
            qq(<a name="), esc($name), q <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1677	1859	
==>_ext  => '.dll',
            load_ext   => '.dll',
            a          => '.lib',
            o          => '.obj',
            cc_o_out   => '-Fo',
            cc_exe_out => '-out <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3556	3738	
==>_ext  => '.dll',
            load_ext   => '.dll',
            a          => '.lib',
            o          => '.obj',
            cc_o_out   => '-Fo',
            cc_exe_out => '-out <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319212	319450	
==>)({{\@1}}));\n  }\n  else\n  {\n    internal_exception(1, \"Overflow exception for conv_u2_ovf\");\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1771	1980	
==>+)//
                and $str .= $1,
                last;

            s/^\\([\\"'])//
                and $str .= $1,        # backslash, quotation mark, apostrophe
                last;
            s/ <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3285	3494	
==>+)//
                and $str .= $1,
                last;

            s/^\\([\\"'])//
                and $str .= $1,        # backslash, quotation mark, apostrophe
                last;
            s/ <==
2	/Users/nnunley/parrot/Configure.pl	3586	3763	
==>am -licudata -licuuc'

(The libs in openoffice are actually version 2.2 and do not work)

=item C<--icuheaders=(header_dir)>

Location of ICU header files without the /unicode su <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1842	1951	
==>sub _xml_escape {
  foreach my $x (@_) {
    # Escape things very cautiously:
    $x =~ s/([^-\n\t !\#\$\%\(\) <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	11384	11488	
==>ally preceded by a C<'*'>.

The accessor method provided by C<struct> for an element depends
on the decla <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	4098	4213	
==>code .= emit("  .get_from_HLL($help, '_tcl', '$help')");
    }
    
    return $code;
}

sub inline {
    my $line = <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	35995	36139	
==>=> 78,
			"*" => 80,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36253	36397	
==>=> 78,
			"*" => 80,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	13567	13725	
==>igns {
    my ( $parser, $vars, $exprs ) = @_;
    my @opcodes1 = ();
    my @opcodes2 = ();
    my @opcodes3 = ();
    while ( my $var = shift @{$vars} ) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11975	12085	
==>, $uid, $name, $fail) = @_;
    my $fail_label = $self->output_label_use($fail);
    my @ops;
    if (defined $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	12641	12751	
==>, $uid, $name, $fail) = @_;
    my $fail_label = $self->output_label_use($fail);
    my @ops;
    if (defined $ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2884	3004	
==>ubroutine one"
   GOSUB Sub2
   PRINT "ERR this line in subroutine one should be skipped"
Label2:
   PRINT "4 back in sub <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16851	16971	
==>ubroutine one"
   GOSUB Sub2
   PRINT "ERR this line in subroutine one should be skipped"
Label2:
   PRINT "4 back in sub <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	163651	163929	
==>E" => 197,
                  "ARGS" => [
                              "n",
                              "nc",
                              "ic"
                            ],
                  "BODY" => "#line 183 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@ <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	766	1017	
==>UTPUT:
         $input = q{};
         undef $output;
         while (<$spec_fh>) {
             $output = q{}, last if /^OUTPUT:/;
             $input .= $_;
         }
         chomp($input);
         die "EOF during INPUT section" if ! defined($outp <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	6182	6346	
==>b rewrite_try {
    my ($self, $op, $R, $lastback) = @_;
    return $self->rewrite($R, $lastback);
}

# Most general case:
#
# ( R ) ->
#                  push start <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	3540	3662	
==>.0";
	} else {
		return qq{""};
	}
}
my $eqnum=0;
my %opsubs=(
	'+' => sub { 
		my ($a1, $a2, $result)=@_;
		if ($result=~/ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	36149	36270	
==>t if ref $ell_content[$j];
        DEBUG > 3 and
         print "    Peering at L-content text bit \"$ell_content[$j]\" fo <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	37358	37479	
==>t if ref $ell_content[$j];
        DEBUG > 3 and
         print "    Peering at L-content text bit \"$ell_content[$j]\" fo <==
2	/Users/nnunley/parrot/config/inter/progs.pm	3140	3233	
==>rate($ldflags, $conf->options->get('ldflags'));
    $ldflags = prompt("And your $ld for buildi <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6809	6922	
==>d($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If we need a destination, we simply supply th <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4747	4860	
==>d($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If we need a destination, we simply supply th <==
2	/Users/nnunley/parrot/examples/benchmarks/addit.pl	211	321	
==>routines

=head1 SYNOPSIS

    % time perl examples/benchmarks/addit.pl

=head1 DESCRIPTION

Joe Wilson's origi <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	777	939	
==>e sequences.
# Config stuff
our $CC = qq[cc -c];
our $LD = qq[c++];
our $LDFLAGS = qq[-L/usr/local/lib -flat_namespace  ];
our $LD_LOAD_FLAGS = qq[-bundle -undefin <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	7373	7555	
==>t"};
	return "_alternation_${impcount}_of_production_${prodcount}_of_rule_$self->{name}";
}


sub code
{
	my ($self, $namespace, $parser) = @_;

eval 'undef &' . $namespace . '::' . $ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4459	4567	
==>num/$push_num/g;
		$push_num++;
	}

	# Return generated code.
	return $pir;
}

sub post_op($$) {
	# Nothing t <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2875	2983	
==>num/$push_num/g;
		$push_num++;
	}

	# Return generated code.
	return $pir;
}

sub post_op($$) {
	# Nothing t <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	2346	2497	
==>rntype = $parts[0];
    my $parms = $parts[1];

    $parms =~ s/\s+/ /g;
    $parms =~ s/([^(]+)\s*\((.+)\);?/$2/ or die "Couldn't handle $proto";
    m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	639764	639880	
==>ault:\n\t  internal_exception(UNIMPLEMENTED, \n\t\t  \"uninplement class argument in instantiate\");\n\t  class = NUL <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1325	1508	
==>oid**) (op   - CONTEXT(i->ctx)->pred_offset) : NULL)


#define OP_AS_OFFS(o) (_reg_base + ((opcode_t*)cur_opcode)[o])

/*
 * if we are using CHECK_EVENTS elsewhere this macro should (a <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11578	11678	
==>orth);

      $self->require_semicolon;

      my $arith = Jako::Construct::Statement::Arithmetic->ne <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16523	16623	
==>orth);

      $self->require_semicolon;

      my $arith = Jako::Construct::Statement::Arithmetic->ne <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1378	1494	
==>k depth and a string for label gen and some
	# storage for stack depths and stack type states that we are
	# propogat <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	465	581	
==>k depth and a string for label gen and some
	# storage for stack depths and stack type states that we are
	# propogat <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	551	662	
==>'Jako::Construct::Block');
  confess("Left (" . ref($left) . ") is not Value") unless UNIVERSAL::isa($left, 'Jak <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	542	653	
==>'Jako::Construct::Block');
  confess("Left (" . ref($left) . ") is not Value") unless UNIVERSAL::isa($left, 'Jak <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	246187	246484	
==>num",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 286 <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	167	324	
==>);

@ISA = qw( Exporter );
@EXPORT_OK = qw( %pmc_types);

%pmc_types = (
	Null => 1,
	Env => 2,
	Key => 3,
	Random => 4,
	UnManagedStruct => 5,
	ManagedStruct <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	21691	21882	
==>of where we'll stash the .def file.
        my $deffile = "$group.def";

        # Does the DEF file already exist?
        my $defexists = -e $deffile;

        # Open the file to append to i <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	5991	6095	
==>sub accept_directive_as_verbatim  { shift->_accept_directives('Verbatim', @_) }
sub accept_directive_as_d <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	3128	3283	
==>ible changes to Parrot that invalidate existing bytecode files. This is the new experimental alternative to the fingerprint produced by tools/build/fingerpr <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	6359	6496	
==>pod_block'} and @$paras and $paras->[-1][0] eq '~Verbatim') {
        DEBUG > 1 and print "Saving blank line at line ${$self}{'line_count' <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	21065	21184	
==>,			# RIGHT DEL
		$ld2pos,	$second_arg,		# 2ND LDEL (MAYBE)
		$str2pos,	$rd2pos-$str2pos,	# 2ND STR (MAYBE)
		$rd2pos,	$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	492749	492975	
==>rc/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	493510	493736	
==>rc/ops/math.ops\"\n  {{\@1}} = intval_mod({{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	48817	48904	
==>------------------------------------------------------------
1;
__END__

TODO:
A start_f <==
2	/Users/nnunley/parrot/config/auto/headers.pm	2103	2257	
==>er], [@found_headers, $header]) {
            $conf->data->set(testheaders => join('', map { "#include <$_>\n" } @$use_headers));
            $conf->data-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	435938	436508	
==>FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 500,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 94 \"src/ops/math.ops\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	437967	438298	
==>FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 502,
                  " <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4248	4366	
==>rn;
	}
	my($fname)=__FILE__;
	my(@drv);
	open(DRV,"<$fname") or die "Report this as a BUG: Cannot open $fname";
	w <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4032	4145	
==>rn;
	}
	my($fname)=__FILE__;
	my(@drv);
	open(DRV,"<$fname") or die "Report this as a BUG: Cannot open $fname";
	w <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14392	14506	
==>integer
	bar as string
end type
dim u(5) as first
u(2).foo=56
print u(2).foo

' Array assignment, 78
dim y(5)
y(1)= <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3643	3857	
==>\$((([A-Za-z][A-Za-z0-9_]*)\b)|({[A-Za-z][A-Za-z0-9_]*}))(.*)$/;

        if (defined $1 and $1 ne '') {
          $handler->start_element({ Name => 'literal', Attributes => { type => $type->name } });
          $ha <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1977	2091	
==>name . "::" . $symbol_name;

    $self->block->set_symbol($new_name, $self->get_symbol($symbol_name));
  }

#  prin <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	125	242	
==>and spit out a chunk of
# PIR that can look up the built-in that's needed and return its PIR.

use strict;
use Getopt: <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8558	8641	
==>print
data "ABANDON","CHART","COMPUTER"
data "DAMAGES","DESTRUCT","DOCK","IDLE","IMP <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21422	21505	
==>print
data "ABANDON","CHART","COMPUTER"
data "DAMAGES","DESTRUCT","DOCK","IDLE","IMP <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	54575	54691	
==>a pattern match). Note that this is designed
to facilitate the use of other Text::Balanced subroutines with
C<extract <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2389	2645	
==>'',
            ar_out               => '-out:',
            slash                => '\\',
            blib_dir             => 'blib\\lib',
            ccflags              => $ccflags,
            ccwarn               => '',
            has_dynamic_linking <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4285	4541	
==>'',
            ar_out               => '-out:',
            slash                => '\\',
            blib_dir             => 'blib\\lib',
            ccflags              => $ccflags,
            ccwarn               => '',
            has_dynamic_linking <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	10986	11225	
==>|0;
	unless ($$textref =~ m/\G($pre)/gc)
	{
		_failmsg "Did not find prefix: /$pre/", pos $$textref;
		return;
	}
	my $varpos = pos($$textref);
        unless ($$textref =~ m{\G\$\s*(\d+|[][&`'+*./|,";%=~:?!\@<>()-]|\^[a-z]?)}gci)
	{
	    u <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10659	10773	
==>t as a BUG");

}#_Parse
#DO NOT remove comment

1;

}
#End of include-------------------------------------- <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10182	10288	
==>t as a BUG");

}#_Parse
#DO NOT remove comment

1;

}
#End of include-------------------------------------- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	410090	410195	
==>RING *dest = {{\@3}};\n    {{\@1}} = (INTVAL)PIO_recv(interpreter, {{\@2}}, &dest);\n    {{\@3}} = dest;\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40563	40739	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 720 \"src/ops/core.ops\"\n  if ({{\@1}} == EXCEPT_doomed)\n    _exit({{\@ <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	3139	3333	
==>$diag .= "'$test_prog' failed with exit code $exit_code."
            }
            if ( $diag ) {
                $self->{builder}->diag( $diag )
            }
        }

        # The generated <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	210	336	
==>es the sizes of various types.

=cut

package auto::sizes;

use strict;
use vars qw($description @args);

use base qw(Parrot::C <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	15283	15409	
==>ult vector
    .local pmc result 
    result = new 'APLVector'
    # Loop through each vector, doing the ops.
    .local pmc it <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	16369	16495	
==>ult vector
    .local pmc result 
    result = new 'APLVector'
    # Loop through each vector, doing the ops.
    .local pmc it <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958755	959059	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959556	959860	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" = <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	13347	13582	
==>H{$key} = substr($rx_match{'!INPUT'}, $start, $end - $start);
        }
    } else {
        # Don't deal with parse tree yet
        $MATCH{$key} = $val;
    }
}
END

    push @ops, $code;

    push @ops, <<'END';
}
# END EMBEDDED CODE <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	12181	12900	
==>ethodname,
                    body        => $methodblock,
                    line        => $lineno,
                    type        => $type,
                    parameters  => $parameters,
                    loc         => $flag ? "nci" : "vtable",
                    mmds        => [ @mmds ],
                };
        }
        $classblock = $rema;
        $lineno += count_newlines($methodblock);
    }

    if ($class_init) {
        $meth_hash{'class_init'} = scalar @methods;
        push @methods, $class_init;
    }


    return $classname,
           {
               pre          => $pre,
               flags        => $flags,
               methods      => \@methods,
               post         => $ <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	11689	11982	
==>ethodname,
                body        => $methodblock,
                line        => $lineno,
                type        => $type,
                parameters  => $parameters,
                loc         => "vtable"
            };
        }
        else {
            # name => method idx map <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	17220	17405	
==>) is supplied then
substitutions are made.

=cut

sub preamble
{
    my($self, $trans) = @_;

    local $_ = $self->{PREAMBLE};

    if ($trans)
    {
        s/goto\s+OFFSET\((.*)\)/{{+ <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	453	561	
==>s]

=head1 DESCRIPTION

This file generates a set of F<MANIFEST.*> files that give the final
locations in the <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	13902	14221	
==>, 'POD ERRORS'],
    ['~Para', {'start_line' => $m, '~cooked' => 1, 'errata' => 1},
     "Hey! ",
     ['B', {},
      'The above document had some coding errors, which are explained below:'
     ]
    ],
    ['=over',  {'start_line' => $m, 'errata' => 1}, ''],
  ;

  push @out, 
    ['=back',  {'start_line' => $m, 'er <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	290	381	
==>g.str';
my $string_private_h = 'src/string_private_cstring.h';

my ($result, $do_all, $do_in <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4650	4776	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub do_middle {      # the main work
  my $self = $_[0];
  my $f <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	2715	2852	
==>d files, i.e. the files that will be added to the distribution after configuration and installing.', 'MANIFEST.generated'),
            $s <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	3581	3707	
==>y indent.  Some of these could even be in system header\n";
        print STDERR "files.  If so, ignore them.  C::Scan is imper <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	26645	26774	
==>, [$n, $c, 'P'];
}

sub STORE_FAST
{
    my ($n, $c, $cmt) = @_;
    my $tos = pop @stack;
    $fast[$n] = $tos;
    my $p;
    if <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	5908	6048	
==>bc"
            p6rule_compile = compreg "PGE::P6Regex"

            .local string target
            .local pmc rulesub
            .local p <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37485	37622	
==>op stypes
dec pop_count
INS_TRANS_CP_LOOP_CHK_$name:
if pop_count != 0 goto INS_TRANS_CP_LOOP_$name
pop_count = elements dtypes
if pop_cou <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	422	525	
==>AGE__->_export_to_level( 2, __PACKAGE__ );
}

my $count;

foreach my $meth ( qw(is isnt like) ) {
    no <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	339	442	
==>AGE__->_export_to_level( 2, __PACKAGE__ );
}

my $count;

foreach my $meth ( qw(is isnt like) ) {
    no <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	2279	2405	
==>ess.', 'RESPONSIBLE_PARTIES'),
            $self->new_item('A list of some of people who have contributed to Parrot.', 'CREDITS <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1944	2056	
==>start_over_block   { ++$_[0]{'Indent'} }

sub   end_over_bullet  { --$_[0]{'Indent'} }
sub   end_over_number  { - <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1512	1624	
==>start_over_block   { ++$_[0]{'Indent'} }

sub   end_over_bullet  { --$_[0]{'Indent'} }
sub   end_over_number  { - <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	5544	5690	
==>$prod ( @{$self->{"prods"}} )
	{
		return 1 if $prod->hasleftmost($ref);
	}

	return 0;
}

sub leftmostsubrules($)
{
	my $self = shift;
	my @subrul <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	12637	12775	
==>C<'%'> or C<'*%'>)

The element is a hash, initialized by default to C<()>.

With no argument, the accessor returns a reference to the
elem <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4282	4409	
==>libs->{$group}, [ "lib-$group", @$pmcs ] )
          or die "partial link of $group failed ($?)\n";
    }

    # Link non-groupe <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4386	4513	
==>libs->{$group}, [ "lib-$group", @$pmcs ] )
          or die "partial link of $group failed ($?)\n";
    }

    # Link non-groupe <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	2468	2675	
==>move_if_diff("$inc.tmp", "$destfile");
                push(@generated, "$destfile");
                $in_def = '';
                next;
            }
            if ($in_def eq 'def') {
                if ( <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	54609	54726	
==>s designed
to facilitate the use of other Text::Balanced subroutines with
C<extract_multiple>. Note too that the value <==
2	/Users/nnunley/parrot/config/auto/aio.pm	341	444	
==>::Step::Base);

use Parrot::Configure::Step ':auto';

$description = 'Determining if your platform suppo <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	17412	17585	
==>WARD()
{
    my ($n, $c, $cmt) = @_;
    my $targ = "pc_xxx";
    if ($c =~ /to (\d+)/) {
	$targ = "pc_$1";
    }
    print <<EOC;
	goto $targ $cmt
EOC
}

sub JUMP_ABSOLUTE() <==
2	/Users/nnunley/parrot/lib/Test/More.pm	36797	36898	
==><Test::Class> is like XUnit but more perlish.

L<Test::Deep> gives you more powerful complex data stru <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1737	1837	
==>'number'}. "  }
sub start_item_text   { $_[0]{'Thispara'} = ''   }

sub start_over_bullet  { ++$_[0]{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1305	1405	
==>'number'}. "  }
sub start_item_text   { $_[0]{'Thispara'} = ''   }

sub start_over_bullet  { ++$_[0]{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3023	3191	
==>ION doesn't implement UTF16 yet."
        );
        splice @_;
        push @_, undef;
        next;

        # TODO: implement somehow?

      } elsif( $line =~ s/^\xF <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3421	3581	
==>ION doesn't implement UTF16 yet."
        );
        splice @_;
        push @_, undef;
        next;

        # TODO: implement somehow?
        
      } else { <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	6738	6883	
==>my $indent = "  " x (@stack);
            if ($1 ne $indent) {
                error($file, $line, "Improper indenting for \"$_\" (should be \"#$i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	317283	317787	
==>",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 371,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 97 \"src/ops/dotgnu.ops\"\n  if({{\@1}} >= -32768 && {{\@1}} <= 32767 ) {\n    {{\@1}} = (INTVAL)((Parrot_Int2)({{\@1}}));\n  }\n  else\n  {\n    inter <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4495	4695	
==><restart
ADDRESS($address)>.

=item C<restart_offset($offset)>

Implemented in subclasses to return the C code for C<restart
OFFSET($offset)>.

=item C<goto_address($address)>

Transforms the C<goto AD <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	535	647	
==>ub file
{
  my $self = shift;

  if (@_) { $self->{FILE} = shift; }

  return defined $self->{FILE} ? $self->{FIL <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43338	43471	
==>TOS => {
			'exp' => 202,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4706	4825	
==>from 'sub _Parse' up to '}#_Parse' inclusive.
#So, DO NOT remove comment at end of sub !!!
sub _Parse {
    my($self) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4471	4587	
==>from 'sub _Parse' up to '}#_Parse' inclusive.
#So, DO NOT remove comment at end of sub !!!
sub _Parse {
    my($self) <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	26161	26308	
==>ments_one =~ m/^[^ ,]+(,[^ ,]+)*$/s) { # like "B", "M,I", etc.
      $self->whine(
        $para->[1]{'start_line'},
        "Format for third =exte <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25982	26075	
==>@{$code{$seg}->{code}}, <<NEXT;
	add $ps->{var}, $ps->{var}, FORLOOP_STEP_$ps->{num}
	goto FOR <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26167	26260	
==>@{$code{$seg}->{code}}, <<NEXT;
	add $ps->{var}, $ps->{var}, FORLOOP_STEP_$ps->{num}
	goto FOR <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20976	21105	
==>P1["types"]
	P2["$typename"]= P0
	goto OUTOF_$typename
DIM_$typename:
	#print "Dimensioning $typename\\n"
	pushp
	P2= .PerlHash
TY <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1097559	1097694	
==>erpreter, tmp);\n            key_append(interpreter, key_tail, key);\n            key_tail = key;\n        }\n    }    \n    {{+=3}};\n" <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	679	808	
==>s C<nm> on each and determines what external functions are being
called. Note that it assumes a gnu-ish C<nm>.

=item C<source>

I <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8844	8941	
==>Entry *fe = PackFile_find_fixup_entry(interpreter,\n\t    enum_fixup_label, label);\n    if (!fe)\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9960	10057	
==>Entry *fe = PackFile_find_fixup_entry(interpreter,\n\t    enum_fixup_label, label);\n    if (!fe)\ <==
2	/Users/nnunley/parrot/config/gen/platform.pm	2254	2392	
==>RM_H <<"END_HERE";
/*
** $header_file:
*/
#line 1 "$header_file"
END_HERE
            print PLATFORM_H <IN_H>, "\n\n";
            close IN <==
2	/Users/nnunley/parrot/lib/Test/More.pm	20732	20836	
==>y safe to nest SKIP blocks.  Each SKIP block must have
the label C<SKIP>, or Test::More can't work its ma <==
2	/Users/nnunley/parrot/config/inter/shlibs.pm	1015	1183	
==>gs instruct your compiler to compile code suitable for use in a shared library?",
        $cc_shared)
        if $conf->options->get('ask');
    $conf->data->set(cc_shar <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	268	358	
==>' =~ /^\$[iI][dD]:\s(.*)\$$/;

=head1 NAME

tools/build/parrot_config_c.pl - Create src/par <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11231	11323	
==>pe_short"]
${DEST0} = concat ${STEMP0}
inc stack_depth
${STEMP0} = stack_depth
${DEST0} = con <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8417	8509	
==>pe_short"]
${DEST0} = concat ${STEMP0}
inc stack_depth
${STEMP0} = stack_depth
${DEST0} = con <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035673	1035762	
==>ad, lex_name);\n    if (!result) {\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036837	1036926	
==>ad, lex_name);\n    if (!result) {\n\treal_exception(interpreter, NULL, LEX_NOT_FOUND,\n\t <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1710	1806	
==>YNTAX_ERROR("Wrong number of arguments (expected %d, got %d) in call to '%s'.",
    scalar(@forma <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1410	1506	
==>YNTAX_ERROR("Wrong number of arguments (expected %d, got %d) in call to '%s'.",
    scalar(@forma <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6728	6862	
==>n("$PMC2C --dump $pmc.pmc")
          or die "pmc2c dump failed ($?)\n";
    }
}

sub generate_c {
    my ($pmc) = @_;

    if (needs_b <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6939	7073	
==>n("$PMC2C --dump $pmc.pmc")
          or die "pmc2c dump failed ($?)\n";
    }
}

sub generate_c {
    my ($pmc) = @_;

    if (needs_b <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5580	5694	
==>cs = @_;

    my ( %group_files, %group_libs, %pmc_group, %pmc_libs );
    for my $pmc (@pmcs) {
        our $class <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5791	5905	
==>cs = @_;

    my ( %group_files, %group_libs, %pmc_group, %pmc_libs );
    for my $pmc (@pmcs) {
        our $class <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	4519	4716	
==>mes() )[0] / $ticks },
);

# Find And Build Benchmarks
find sub {
    my $pass;
    for my $regex ( @{ $cfg{run_bench} } ) {
        $pass++ and last if /$regex/;
    }
    return if ! $pass;
    my <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	815	902	
==>nfess "Left is not Value!" unless UNIVERSAL::isa($left, 'Jako::Construct::Expression::Va <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	827	914	
==>nfess "Left is not Value!" unless UNIVERSAL::isa($left, 'Jako::Construct::Expression::Va <==
2	/Users/nnunley/parrot/config/auto/pack.pm	292	401	
==>ription @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step;
use Config;

$descr <==
2	/Users/nnunley/parrot/config/init/manifest.pm	337	437	
==>ription @args);

use base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step;
use ExtUti <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7003	7167	
==>and	$$token=$$value=undef;
                next;
            };

            #reduce
            my($lhs,$len,$code,@sempar,$semval);
            ($lhs,$len,$c <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6677	6835	
==>and	$$token=$$value=undef;
                next;
            };

            #reduce
            my($lhs,$len,$code,@sempar,$semval);
            ($lhs,$len,$c <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	3933	4129	
==>ut pass thru the undef, which will set source_dead to true

        # TODO: look to see if $lines[-1] is =encoding, and if so,
        # do horribly magic things

      }
      
      if(DEBUG > 8) <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	5099	5222	
==>ndef }
 # But subclasses are welcome to override this if they have man
 #  pages somewhere URL-accessible.

#~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/config/auto/alignptrs.pm	349	441	
==>(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';
use Config;

$descript <==
2	/Users/nnunley/parrot/config/auto/headers.pm	316	408	
==>(Parrot::Configure::Step::Base);

use Parrot::Configure::Step ':auto';
use Config;

$descript <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	7347	7576	
==>erence, so some 99isms
#  might have slipped in)
abort       stdlib.h
abs         stdlib.h
acos        math.h
acosf       math.h
acosh       math.h
acoshf      math.h
acoshl      math.h
acosl       math.h
arg         complex.h
asc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	393598	393841	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "tell",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	394389	394632	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "tell",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
2	/Users/nnunley/parrot/config/auto/jit.pm	1687	1871	
==>';
        $osname  = 'cygwin';
    }

    if ($archname =~ m/powerpc/) {
        $cpuarch = 'ppc';
    }

    $cpuarch =~ s/armv[34]l?/arm/i;
    $cpuarch =~ s/i[456]86/i386/i;

    $c <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	273	369	
==>PTION

A documentation section describing IMCC.

=head2 Class Methods

=over

=cut

package Parro <==
2	/Users/nnunley/parrot/tools/build/vtable_h.pl	161	454	
==>ls/build/vtable_h.pl - Create the vtable header

=head1 SYNOPSIS

	% perl tools/build/vtable_h.pl

=head1 DESCRIPTION

This script creates F<include/parrot/vtable.h> from F<vtable.tbl>. It
uses C<Parrot::Vtable>.

=head1 SEE ALSO

=over 4

=item C<Parrot::Vtable>

=back

=cut

use lib 'lib';
u <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	19165	19378	
==>IERS
			$ld2pos,	$textlen-$ld2pos,	# REMAINDER
			$extrapos,      $str1pos-$extrapos,	# FILLETED BIT
		       );
	}

	$$textref =~ m/\G\s*/gc;
	$ld1pos = pos($$textref);
	$str1pos = $ld1pos+1;

	unless ($$textref = <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	12261	12412	
==>$name, $mode, $uid) = @_;
#    if ($mode) {
        return split(/\n/, <<"END");
\$$uid = _rule_$name($mode, \$rx_input, \$rx_pos, \$rx_stack);
\$rx_pos <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	1983	2098	
==>bug output from...

 $debug_level = 4;
 ...some stuff that uses Pod::Simple to do stuff, but which
  you DO want deb <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	839682	839863	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rotate_up",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840376	840557	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rotate_up",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => <==
2	/Users/nnunley/parrot/config/init/hints/cygwin.pm	236	369	
==>s compiled with -lutil, which for some reason is not
    # in the standard installation, so we get rid of it
    my $libs = $conf->dat <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	17516	17638	
==>1";
    }
    print <<EOC;
	goto $targ $cmt
EOC
}

sub JUMP_ABSOLUTE()
{
    my ($n, $c, $cmt) = @_;
    my $targ = "pc_$n" <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	2276	2367	
==>c to Parrot,
not some generic term.  Currently acceptable prefixes are
C</^(Parrot|PDB|PF|PI <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1472	1573	
==>em C<args(@args)>

=item C<args()>

Sets/gets the transform's arguments.

=cut

sub args
{
    my $sel <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1081	1182	
==>em C<args(@args)>

=item C<args()>

Sets/gets the transform's arguments.

=cut

sub args
{
    my $sel <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959339	959573	
==>ng(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	960141	960375	
==>ng(interpreter, {{\@1}}, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	158	263	
==>arrot::Docs::Section::BigNum - Big Number documentation section

=head1 SYNOPSIS

	use Parrot::Docs::Secti <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	815128	815380	
==>Y" => "#line 567 \"src/ops/set.ops\"\n  {{\@1}} = PMCNULL;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	7635	7836	
==>{
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        if ( exists $op->{op} ) {
            print {$FH}
                "  unless $op->{arg1}->{symbol} $op->{o <==
2	/Users/nnunley/parrot/config/auto/alignptrs.pm	724	823	
==>ign;
    if (defined($conf->data->get('ptr_alignment'))) {
        $align  = $conf->data->get('ptr_a <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	1189	1356	
==>eys %pmcs) {
        $pmcs{$file}->{vtable} = $vtable_dump;
        $pmcs{$file} = Parrot::Pmc2c->new($pmcs{$file}, $opt);
    }

    return bless { opt         => $opt <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	20184	20288	
==>3084  Canada French
  1035  Finnish
  1044  Norwegian (Bokmal)
  2068  Norwegian (Nynorsk)

=back

If you <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	256	454	
==>N @ISA
  @Known_formatting_codes  @Known_directives
  %Known_formatting_codes  %Known_directives
  $NL
);

@ISA = ('Pod::Simple::BlackBox');
$VERSION = '2.05';

@Known_formatting_codes = qw(I B C L E <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686479	686749	
==>rop(interpreter, {{\@3}}, {{\@2}});\n   {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687369	687639	
==>rop(interpreter, {{\@3}}, {{\@2}});\n   {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	3337	3530	
==>force this being a branch op */\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS",
                  "NA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	3888	4081	
==>force this being a branch op */\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS",
                  "NA <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	2429	2545	
==>aders, which may well be tuned to a non-strict
        # environment -- especially since we are using perl5 compilati <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655066	655482	
==>0,
                  "NAME" => "defined",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 732,
                  "ARGS" => [
                              "i",
                              "p"
                            ], <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160827	161238	
==>",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 194,
                  "ARGS" => [
                              "i",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 176 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81942	82065	
==>\"\n  internal_exception(1, \"don't use compile - just invoke the compiler\");\n  {{+=4}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	82836	82959	
==>\"\n  internal_exception(1, \"don't use compile - just invoke the compiler\");\n  {{+=4}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3194	3292	
==>qw(@ISA %pmc_types @EXPORT_OK);

@ISA = qw( Exporter );
@EXPORT_OK = qw( %pmc_types);

%pmc_types = <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	138	236	
==>qw(@ISA %pmc_types @EXPORT_OK);

@ISA = qw( Exporter );
@EXPORT_OK = qw( %pmc_types);

%pmc_types = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4518	4626	
==>{
    my $temp = $compiler->temp_reg($calc_type);
    $compiler->emit("  $temp = $left $op $right");
    $com <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	13008	13105	
==>lement.  If the element type is C<'%'>, the
accessor returns the hash element value.  If the eleme <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	61644	61799	
==>r actions (shifts, reduces, accept...)
        #    0x08         Parse Stack dump
        #    0x10         Error Recovery tracing
    );

    close $p <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	29528	29701	
==>>", there is no link text. Note
# that link text may contain formatting.)
# 

############# The element children
# Second:
# The possibly inferred link-text -- i.e., if there <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	3171	3301	
==>olute address goto
	while($src =~ /{{=(.*?)}}/g){
	    my $offset = $1;
	    $is_branch = 1;
	}
	# relative branch
	while($src =~ / <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	3072	3189	
==>k on the top of the block stack.
#

sub current_block
{
  my $self = shift;

  $self->INTERNAL_ERROR("Attempt to refer <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9875	9965	
==>self->require_infix_rel->text;
      my $right = Jako::Construct::Expression::Value->new($b <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25411	25501	
==>self->require_infix_rel->text;
      my $right = Jako::Construct::Expression::Value->new($b <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11938	12033	
==>at ${STEMP1}
goto PRE_CALL_${CURIC}_LAZY_MOVE_RET_CONT

# Can do a lazy move.
PRE_CALL_${CURIC}_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	287	384	
==>eval "use warnings";

package Jako::Construct::Block::Loop::Until;

use Carp;

use base qw(Jako::C <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	346	462	
==>s, $plan, @args ) = @_;

    Test::More->import( $plan, @args );

    __PACKAGE__->_export_to_level( 2, __PACKAGE__ ) <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	263	379	
==>s, $plan, @args ) = @_;

    Test::More->import( $plan, @args );

    __PACKAGE__->_export_to_level( 2, __PACKAGE__ ) <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10017	10118	
==>->get('slash');
    my $verbose = $conf->options->get('verbose');

    if (defined($_[0]) && length($_ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10598	10699	
==>->get('slash');
    my $verbose = $conf->options->get('verbose');

    if (defined($_[0]) && length($_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1655	1751	
==>s($addr)\n";

    return "cur_opcode = $addr;\ngoto switch_label";
}

=item C<expr_offset($offset <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687814	688158	
==>",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 772,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 576 \"src/ops/pmc.ops\"\n   {{\@1 <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	17759	17884	
==>--------------------------------------------------

sub _make_treelet {
  my $self = shift;  # and ($para, $start_line)
  my $ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35470	35666	
==>$_tok;
		' . ($self->{"lookahead"} ? '$text = $_savetext;' : '' ) .'
		}
'
}

package Parse::RecDescent::Repetition;

sub issubrule ($) { return $_[0]->{"subrule"} }
sub isterminal { 0 }
sub sethas <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	269743	270104	
==>LAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 314,
                  "ARGS" => [
                              "i",
                              "p" <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2476	2597	
==>b YYErrok {
	my($self)=shift;

	${$$self{ERRST}}=0;
    undef;
}

sub YYNberr {
	my($self)=shift;

	${$$self{NBE <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2374	2485	
==>b YYErrok {
	my($self)=shift;

	${$$self{ERRST}}=0;
    undef;
}

sub YYNberr {
	my($self)=shift;

	${$$self{NBE <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	1721	1854	
==>Spec->curdir()
    if $path_to_parrot eq '';

my $parrot = File::Spec->catfile(
    $path_to_parrot, 'parrot' . $PConfig{exe}
);

my $ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10333	10438	
==>f (exists $self->{scope}->{$symbol}) {
    die "define: $symbol is already defined\n";
  }
  else {
    $s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	2857	2998	
==>st          { return shift->is('last');          }
sub is_literal       { return shift->is('literal');       }
sub is_module        { return s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561220	561432	
==>UMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "fetchmethod",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562303	562515	
==>UMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "fetchmethod",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3071	3204	
==>(%ld)",
    's'  => "SREG(%ld)",
    'k'  => "PREG(%ld)",
    'ki' => "IREG(%ld)",

    'ic' => "cur_opcode[%ld]",
    'nc' => "CONST( <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1987	2115	
==>(%ld)",
  's'   => "SREG(%ld)",
  'k'   => "PREG(%ld)",
  'ki'  => "IREG(%ld)",

  'ic'  => "cur_opcode[%ld]",
  'nc'  => "CONST( <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7473	7584	
==>FIN:
for i = 1 to 3
	on i gosub oats, peas, beans
next i
print
end
100 print "100!"
    goto FIN
200 print "200! <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19756	19867	
==>FIN:
for i = 1 to 3
	on i gosub oats, peas, beans
next i
print
end
100 print "100!"
    goto FIN
200 print "200! <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	40450	40553	
==>em [2]

the prefix substring (if any),

=item [3]

the opening tag

=item [4]

the text between the open <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3126	3276	
==>> 'Project info',
	'TODO' => 'TODO file',
	'VERSION' => 'Project info',
);

=item C<type_for_suffix($suffix)>

This is a class method that converts a f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	645888	645996	
==>n\t\t{{\@1}} = Parrot_get_datatype_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	646785	646893	
==>n\t\t{{\@1}} = Parrot_get_datatype_name(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	54341	54459	
==>e extracted
text. It may optionally also return two further arguments: a string
representing the text left after extrac <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24018	24120	
==>,'lt', [$return,$temp,"NEXT_$label"]);
    $self->_add_inst('','set',[$return,$temp]);
    $self->_add_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36313	36511	
==>) {
            $mv->{'ARG0'} = 'I_arg_0';
            push @localmv, 'ARG0';
        }

		# Insert typeinfo code (sets up dtypes as needed).
		$pir .= "### typeinfo\n";
		$pir .= sub_meta($rule->{'t <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/IMCC.pm	669	761	
==>amples', '', 'examples/pir'),
		$self->new_group('Tests', '', 't/compilers/imcc'),
	);
}

=ba <==
2	/Users/nnunley/parrot/config/gen/config_h.pm	22	110	
==>006, The Perl Foundation.
# $Id: /parrot/config/gen/config_h.pm 19593 2006-05-30T02:28:15 <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33368	33467	
==>[1]'.qq{$_[0]->{subrule}}}";
	}
	else
	{
		return $_[1].$_[0]->{"subrule"};
	}
}

sub new ($$$$;$$$) <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4466	4624	
==>ts $arg_maps{$type};

    return sprintf($arg_maps{$type}, $num);
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::C>

=i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19316	19406	
==>->current_block();
      my $left = Jako::Construct::Expression::Value::Identifier->new($bl <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	20398	20488	
==>->current_block();
      my $left = Jako::Construct::Expression::Value::Identifier->new($bl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	317059	317397	
==>,
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_i2_ovf",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218814	218908	
==>ompare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) > 0) {\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219793	219887	
==>ompare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) > 0) {\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122076	122177	
==>egral to the equivalent unsigned.\n   */\n  LVALUE_CAST(UINTVAL, {{\@1}}) >>= {{\@2}};\n  {{+=3}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122988	123089	
==>egral to the equivalent unsigned.\n   */\n  LVALUE_CAST(UINTVAL, {{\@1}}) >>= {{\@2}};\n  {{+=3}};\n", <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33876	34027	
==>return1;
        push @opcodes2, $callop;
    }
    push @opcodes1, @opcodes2, @opcodes3;
    my $lbl_loop = new_label($parser);
    push @opcodes1 <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	17386	17550	
==>*pmc_nci,
                STRING *signature)
{
    char       *c;
    STRING     *ns, *message;
    PMC        *b;
    PMC        *iglobals;
    PMC        *temp_pmc <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32158	32273	
==>) {
			die "instruction must use one of \${STACK0} or \${STOREREG} in rule " .
				"$rule->{'name'}\n";
		} elsif (" <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	13454	13577	
==>_$temp_num = GET_NCI_S($reg_num);";
        return "t_$temp_num";
    };
}

sub print_function {
    my ($sig, $return, $par <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3613	3714	
==>R';
#
# This file should contain a transcript of the svn:ignore properties
# of the directories in the <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	2544	2713	
==>l_use($where);
    if ($cond eq '==') {
        return "eq $a, $b, $where";
    } elsif ($cond eq '!=') {
        return "ne $a, $b, $where";
    } elsif ($cond eq '<') { <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	15404	15508	
==>rn lib;
}
END_C

}

close SOURCE;
my $final = $source;
$final =~ s/\.temp//;
rename $source, $final;

exi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12620	12725	
==>nstruct::Expression::Value->new($block, $self->forth);

      $self->require_semicolon;

      my $bitwise <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34576	34712	
==>ue.

=cut

sub implements
{
    return 1;
}

=item C<body($method, $line, $out_name)>

Returns the C code for the method body. C<$line> i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931446	931800	
==>:base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1046,
                  "ARGS" => [
                              "s",
                              "s"
                            ] <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	14793	14904	
==>tree {
    my $op = shift;
    return [ annotated($op, "check($op->{args}->[0])"),
             $op->{args}->[1] <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	17972	18149	
==>{'code'} =~ /^(\w{2})/;
        $groups{$1} ||= [];
        push @{$groups{$1}}, $_;
    }

    # Go through groups, sorted by start code.
    my @rules_grouped = ();
    foreach <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4765	4889	
==>remove comment at end of sub !!!
sub _Parse {
    my($self)=shift;

	my($rules,$states,$lex,$error)
     = @$self{ 'RULE <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4529	4648	
==>remove comment at end of sub !!!
sub _Parse {
    my($self)=shift;

	my($rules,$states,$lex,$error)
     = @$self{ 'RULE <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	527	648	
==>configure with environment variables.

=cut

sub new {
    return $ENV{PARROT_M4_TEST_PROG} ?
        ( bless {}, 'Parrot: <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	9943	10040	
==>CTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
  "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<h <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	40499	40666	
==>nk.\n";
      } else {
        $ell->[1]{'type'}    = 'pod';
        DEBUG > 3 and print "Considering this a pod link (not man or url).\n";
      }

      if( defined $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966309	966640	
==>_cclass",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1087, <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39318	39429	
==>codes1, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes1, new ConstDir( $parser, <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2508	2595	
==>/mops/mops.p6>,
F<examples/mops/mops.ps>,
F<examples/mops/mops.py>,
F<examples/mops/mops <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	2508	2595	
==>/mops/mops.p6>,
F<examples/mops/mops.ps>,
F<examples/mops/mops.py>,
F<examples/mops/mops <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	4986	5143	
==>fStyleNum="dsNormal" color="#000080" selColor="#ffffff" bold="0" italic="0" />
      <itemData name="Special Directive" defStyleNum="dsKeyword" />
      <item <==
2	/Users/nnunley/parrot/lib/File/Which.pm	2149	2281	
==>for my $ext (@path_ext) {
            my $file = $base.$ext;
# print STDERR "$file\n";

            if ((-x $file or    # executable, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	2741	2930	
==>use exactly the same LoL format.

=head1 METHODS

At the end of the parse, call C<< $parser->root >> to get the
tree's top node.

=head1 Tree Contents

Every element node in the parse tree i <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	18018	18185	
==>';
                    my $r = $class eq 'DEFAULT' ? 'enum_type_PMC' :
                    "enum_class_$class";
                    my $super_name = "Parrot_${super}_$m <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	1811	1925	
==>shift(@args);
	    push @r, $curlabel . $outfunc->(@args);
	    $curlabel = "\t";
	} else {
	    die "Unable to out <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30468	30571	
==>$_
DISP
	}
	print CODE <<DISP2;
	print "Structure type of "
	print S0
	print " not found\\n"
	_platform_ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30801	30904	
==>$_
DISP
	}
	print CODE <<DISP2;
	print "Structure type of "
	print S0
	print " not found\\n"
	_platform_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573046	573160	
==>});\n  {{\@1}} = pmc_new_init(interpreter, enum_class_ParrotClass, name);\n  {{+=3}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573956	574070	
==>});\n  {{\@1}} = pmc_new_init(interpreter, enum_class_ParrotClass, name);\n  {{+=3}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	5129	5282	
==>ild($oplib . "_ops$cores{$_}.c", "$oplib.ops")) {
			run("$OPS2C $_ --dynamic $oplib.ops")
	          or die "ops2c code generation failed ($?)\n";
		}
	} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227373	227480	
==>ompare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) >= 0) {\n    {{+={{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228353	228460	
==>ompare(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) >= 0) {\n    {{+={{\@ <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	4095	4192	
==>@regexes : '[^\d\D]';
}

# Frequently Used Variables
my %bench;
my @section = sort $ini->GroupMemb <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1432	1557	
==>};

    bless $self, ref $class || $class;

    return $self;
}

=back

=head3 Object Methods

=over 4

=item * C<data()>

Pro <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	2907	3022	
==>cfg{use_times},
    'help|?'       => \$cfg{display_help},
    'method=s'     => \$cfg{method},
    'benchmarks=s' = <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	869	999	
==>fo', 'P0', '.INTERPINFO_CURRENT_SUB'],
  ['',             'invokecc'],
  ['',             'restore', 'P1'],
  ['',             'res <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33541	33660	
==>ases where we /didn't/ push to @$para
            if($paras->[0][0] eq '~Para') {
              DEBUG and print "Assimil <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35354	35473	
==>ases where we /didn't/ push to @$para
            if($paras->[0][0] eq '~Para') {
              DEBUG and print "Assimil <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63659	63913	
==>PE" => "inline",
                  "CODE" => 83,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#line 964 \"src/ops/core.ops\"\n  PARROT_ERRORS_off(interpreter, {{\@1}});\n  {{+ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2335	2438	
==>Text -e \
   "exit Pod::Simple::DumpAsText->filter(shift)->any_errata_seen" \
   thingy.pod

=head1 DESC <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	3471	3654	
==>+)\s*(?!=)/) {
                    $last_val++;
                    $values{$1} = $last_val;
                    local $_ = "$prefix$1\t$last_val";
                    eval $subst if ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	751653	752015	
==>> [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 847,
                  "ARGS" => [
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 214 \"src/ops/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677917	678182	
==>"NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 760, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	933521	933732	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934295	934506	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "downcase",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o", <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	7420	7517	
==>e CAN_BUILD_CALL_FRAMES*/
#endif

/*
 * helper funcs - get argument n
 */
static INTVAL
get_nci_I( <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	28224	28351	
==>, including the specified delimiters.
If the extraction fails an empty string is returned.

=item [1]

The remainder of the inpu <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30469	30584	
==>self->{class};
    my $parentname = $self->{parentname};
    my $ret = gen_ret($method);
    my $cout = <<"EOC";
$de <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42481	42705	
==>_TRACE;').'

		push @item, '.($::RD_NO_HITEM ? ''
			       : '$item{'.$self->{hashname}.'}=') . '$_tok||[];

';
	return $code;
}


package Parse::RecDescent;

use Carp;
use vars qw ( $AUTOLOAD $VERSION );

my $ERRORS = 0;

$ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32841	32949	
==>_TRACE;').'
		push @item, ' . ($::RD_NO_HITEM ? ''
				 : '$item{'.$self->{hashname}.'}=') . '$_tok;
		' . ($ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	592400	592646	
==>S" => [
                              "p",
                              "kc",
                              "k"
                            ],
                  "BODY" => "#line 325 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup_p(int <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5091	5200	
==>f{DEBUG};
#DBG>	my($dbgerror)=0;

#DBG>	my($ShowCurToken) = sub {
#DBG>		my($tok)='>';
#DBG>		for (split( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4846	4950	
==>f{DEBUG};
#DBG>	my($dbgerror)=0;

#DBG>	my($ShowCurToken) = sub {
#DBG>		my($tok)='>';
#DBG>		for (split( <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22930	23115	
==>> 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 73
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/State.pm	166	290	
==>lass) || $class;
    return $self;
}

sub literal_label {
    my ($self, $label, $desc) = @_;
    $desc ||= '';
    return bl <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	1627	1768	
==>ion
	# ###################

SHUTDOWN
}

use vars qw( %functions );
use vars qw( %usertypes );
use vars qw( $funcname );
use vars qw( $branchse <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	4135	4309	
==>= new 'APLVector'
    $I100 = 1
    $I101 = 0
    $I102 = %1
  loop_begin_1:
    if $I100 > $I102 goto loop_done_1 
    $P100[$I101] = $I100
    inc $I101
    inc $I100
    go <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848269	848509	
==>ring_chopn(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849049	849289	
==>ring_chopn(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	16372	16501	
==>TOS
	}
	if ($ops and ($tos or $ors)) {
		print CODE qq{\tunshift P9, "OP"\n};
		print CODE qq{\tunshift P9, "or"\n};
	}
	if ($ops) <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	14074	14194	
==>ref $opsubs{$sym}) {
					die "No op code yet for $sym\n";
				} else {
					my($code, $return)=&{$opsubs{$sym}}($a1, $a2 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10684	10785	
==>class::render {
    die;
}

sub Regex::Ops::Tree::classpieces::render {
    die;
}

sub Regex::Ops::Tr <==
2	/Users/nnunley/parrot/languages/m4/tools/scrutinize.pl	13	110	
==>1 NAME

scrutinize.pl - check Perl code with Perl::Critic

=head1 DESCRIPTION

This is not below ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103872	1103959	
==>{{\@2}};\n\tINTVAL type = pmc_type(interpreter, class);\n\tif (!type) {\n\t\tParrot_auto <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105087	1105174	
==>{{\@2}};\n\tINTVAL type = pmc_type(interpreter, class);\n\tif (!type) {\n\t\tParrot_auto <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806076	806358	
==>@1}} = {{\@2}}->vtable->get_integer_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806982	807264	
==>@1}} = {{\@2}}->vtable->get_integer_keyed(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	7533	7808	
==>= find_type( $return_type );

        $protos .= sprintf "extern %s Parrot_PMC_%s( %s );\n",
            $ret_type, $name, $signature;

        $funcs .= sprintf
"/*

=item C<%s
%s(%s)>

=cut

*/

%s Parrot_PMC_%s( %s )
{
", ($ret_type, $name, $signature) x 2;

        $funcs <==
2	/Users/nnunley/parrot/examples/benchmarks/shared_ref.pl	397	547	
==>ads::shared;

for my $i (0..99_999) {
    my $r :shared;
    my $j :shared;
    $r = \$j;
    $$r = $i;
}

=head1 SEE ALSO

F<examples/benchmarks/share <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1472	1602	
==>} ||= "Regex::CodeGen::IMCC";

    if ($options{module} ne 'Regex::CodeGen::IMCC') {
      eval "use $options{module}";
      die $ <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	1977	2132	
==>t your test is for.  It's highly recommended you use test names.

All tests are run in scalar context.  So this:

    ok( @stuff, 'I have some stuff' );

wi <==
2	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	1436	1623	
==>ubstitution_len name substitution 
                  { [ @item[5,1,6] ] }       

# TODO: What does this means???
flag:               'F' | 'T'

# We need the len of the macro name, 
# bec <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1577	1693	
==>h"};
        my $ok = &{"Test::More::$meth"}( @_ );
        # if( $ok ) { foreach my $meth ( $lang_f, $pasm_f, $by_f, <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1493	1609	
==>h"};
        my $ok = &{"Test::More::$meth"}( @_ );
        # if( $ok ) { foreach my $meth ( $lang_f, $pasm_f, $by_f, <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	3063	3231	
==>ad(Parrot_INTERP interpreter);
EOH

    return $hout;
}

=item C<gen_c>

Writes the C file for the library.

=cut

sub gen_c {
    my ($self) = @_;
    my $cout = dont_e <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	826	966	
==>r_test('.pirate.out',$count);
    my $parrotdir = dirname $self->{parrot};

    $TEST_PROG_ARGS = $ENV{TEST_PROG_ARGS} || '-j -Oc';
    my $a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	681783	682091	
==>,
                  "NAME" => "shift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 765,
                  "ARGS" <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	173	333	
==>phole optimization.

package Regex::TreeOptimize;
use Regex::Ops::Tree qw(rop);
use Carp qw(croak);
use strict;

sub new {
    my ($proto, %opts) = @_;
    my $s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828882	829155	
==>_pmc(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829950	830223	
==>_pmc(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	6042	6233	
==>to ignore.
        
        foreach my $file ($dir->files(1, '^\.'))
        {
            push @rel_paths, $source->relative_path($file->path);
        }
    }
    elsif ( $source->relative_p <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	8279	8396	
==>:RD_NO_HITEM ? '' :'
	my %item = ();') . '
	my $repeating =  defined($_[2]) && $_[2];
	my $_noactions = defined($_[3]) <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	6407	6535	
==>pl>, many useful code pieces got
reused.

=cut

use strict;
use warnings;

use FindBin;
use lib "$FindBin::Bin/../..";
use lib "$ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3602	3709	
==>s/\$register_num/$register_num/g;
		$register_num++;
	}

	# Return generated code.
	return $pir;
}

sub post <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3412	3519	
==>s/\$register_num/$register_num/g;
		$register_num++;
	}

	# Return generated code.
	return $pir;
}

sub post <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	426536	426855	
==>fix",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 490,
                  "A <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	255936	256382	
==>IRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 298,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 740 \"src/ops/cmp.o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028026	1028128	
==>\"\n  opcode_t *next = {{^+2}};\n  if ({{\@1}} < 0) {\n      real_exception(interpreter, next, NEG_SLEE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028877	1028979	
==>\"\n  opcode_t *next = {{^+2}};\n  if ({{\@1}} < 0) {\n      real_exception(interpreter, next, NEG_SLEE <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	7211	7344	
==>$src_stem.c failed ($?)\n";
    }
    else {
        1;
    }
}

sub partial_link {
    my ($group, $libs, $stems) = @_;

    my @sour <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7422	7555	
==>$src_stem.c failed ($?)\n";
    }
    else {
        1;
    }
}

sub partial_link {
    my ($group, $libs, $stems) = @_;

    my @sour <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	3232	3348	
==>incdir  = "include/parrot/oplib";
my $include = "parrot/oplib/${base}_ops${suffix}.h";
my $header  = "include/$includ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	17879	18078	
==>ith the same startcode into a group.
    my %groups = ();
    foreach (@rules) {
        $_->{'code'} =~ /^(\w{2})/;
        $groups{$1} ||= [];
        push @{$groups{$1}}, $_;
    }

    # Go throug <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2531	2613	
==>les/mops/mops.ps>,
F<examples/mops/mops.py>,
F<examples/mops/mops.rb>,
F<examples/m <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	2531	2613	
==>les/mops/mops.ps>,
F<examples/mops/mops.py>,
F<examples/mops/mops.rb>,
F<examples/m <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	6675	6775	
==>y ($self, $failLabel) = @_;
    my $fail = $self->output_label_use($failLabel);
    return ($self->db <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6319	6419	
==>y ($self, $failLabel) = @_;
    my $fail = $self->output_label_use($failLabel);
    return ($self->db <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	767	863	
==>ullParserToken> and inherits all its methods,
and adds these methods:

=over

=item $token->tagna <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1193	1289	
==>ullParserToken> and inherits all its methods,
and adds these methods:

=over

=item $token->tagna <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1188	1290	
==>self->ident->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();
    $compiler->emit("  $pmc_reg = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1182	1284	
==>self->ident->type->imcc_pmc;
    my $pmc_reg = $compiler->temp_pmc();
    $compiler->emit("  $pmc_reg = <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	811	988	
==>: mark end of n-th paren match
# O (goto, label)
# O (label, name)
# O (increment, name [, amount])
# O (assign, name, val)
# O (fail)
# O (nop)

sub compile {
    my ($self, $ex <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	52292	52438	
==>oth
scalar and void contexts the original string has the first successfully
extracted substring removed from it. In all contexts
C<extract_multiple <==
2	/Users/nnunley/parrot/lib/Test/More.pm	21523	21667	
==>}

Declares a block of tests you expect to fail and $why.  Perhaps it's
because you haven't fixed a bug or haven't finished a new feature:

    T <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33892	34047	
==>." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"," => 167,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			" <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1462	1571	
==>.';
        } elsif ($dir_count >2) {
          $path_to_language = File::Spec->join(File::Spec->updir() x ($d <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1947	2056	
==>.';
        } elsif ($dir_count >2) {
          $path_to_language = File::Spec->join(File::Spec->updir() x ($d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835723	835808	
==>n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, string_copy(interpr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836476	836561	
==>n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, string_copy(interpr <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	13415	13532	
==>info + i, 1);
    /* plus one short name */
    for (i = 0; i < ${bs}op_lib.op_count; i++)
        if (get_op(info[i]. <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	110	258	
==>1T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Section::PMCs - PMCs documentation section

=head1 SYNOPSIS

	use Parrot::Docs::Section::P <==
2	/Users/nnunley/parrot/config/init/hints/freebsd.pm	883	1010	
==>=> 1,
        parrot_is_shared        => 1,
        libparrot_shared        => 'libparrot$(SHARE_EXT).$(SOVERSION)',
        lib <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	1721	1848	
==>=> 1,
        parrot_is_shared        => 1,
        libparrot_shared        => 'libparrot$(SHARE_EXT).$(SOVERSION)',
        lib <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	3523	3642	
==>epends);
}

## use_ok

sub use_ok (Str $module, :$todo, :$depends) is export {
    my $caller = caller().package;

    e <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	1363	1534	
==>cflags        => $cflags,
        libs           => $libs,
        ld_share_flags => $ld_share_flags,
        ld_load_flags  => $ld_share_flags,
        i_lib_pthread  => 1 <==
2	/Users/nnunley/parrot/config/init/hints/hpux.pm	189	304	
==>($self, $conf) = @_;

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -l <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	243	358	
==>($self, $conf) = @_;

    my $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	443586	443673	
==>ine 114 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	444601	444688	
==>ine 114 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_psp(interpreter, {{\@3}}, {{\@4 <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	19871	20093	
==>and  # non-initial
         !ref $treelet->[$i] and !ref $treelet->[$i - 1]
      ) {
        DEBUG > 3 and print "   Merging ", $i-1,
         ":[$treelet->[$i-1]] and $i\:[$treelet->[$i]]\n";
        $treelet->[$i-1] .= ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	90745	90907	
==>"i"
                            ],
                  "BODY" => "#line 43 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	91599	91761	
==>"i"
                            ],
                  "BODY" => "#line 43 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} & {{\@3}};\n  {{+=4}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2552	2636	
==>examples/mops/mops.py>,
F<examples/mops/mops.rb>,
F<examples/mops/mops.scheme>.

=cut <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	2552	2636	
==>examples/mops/mops.py>,
F<examples/mops/mops.rb>,
F<examples/mops/mops.scheme>.

=cut <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3260	3451	
==>"COMMON"\n};
		foreach(@saves) {
			print CODE qq{\t_GLOBALS["$_"]=$_\n};
		}
		print CODE qq{\t\tstore_global "COMMON", _GLOBALS\n\t};
	}
	delete $code{$seg};
	if (! $debug) {
		print CODE ". <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	195	324	
==>lib/Jako/Construct/Statement/Decrement.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package J <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11028	11152	
==>>
  <rx_match>["!GROUPS"] = $num_groups
  length <rx_len>, <rx_input> # cache the length in <rx_len>

END

    push @ops, $se <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	741028	741267	
==>> "inline",
                  "CODE" => 833,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 164 \"src/ops/set.ops\"\n  {{\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	5229	5362	
==>ext;
      }

      DEBUG > 1 and print "  $type " , $token->text, "\n";
      
      $scratch = $token->text;
      $scratch =~ tr/\t <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9132	9295	
==>()>

Returns the C C<#include> for the header file of each of the PMC's
superclasses.

=cut

sub includes() {
    my $self = shift;

    my $cout = "";
    $cout .= <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	50426	50759	
==>18 "Lua\lua51.yp"
{
            BuildReturn( $_[0], $_[2] );
        }
	],
	[#Rule 37
		 'laststat', 1,
sub
#line 222 "Lua\lua51.yp"
{
            BuildReturn( $_[0], [] );
        }
	],
	[#Rule 38
		 'laststat', 1,
sub
#line 226 "Lua\lua51.yp"
{
            BuildBreak( $_[0] );
        }
	],
	[#Rule 39
		 'fun <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	34181	34293	
==>alanced-bracket-delimited substring" is a substring bounded by
matched brackets, such that any other (left or rig <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	4995	5136	
==>i sub skip (Int $count, Str $reason, :$depends) returns Bool is export {
    for (1 .. $count) {
        # Hack -- PIL2JS doesn't support mult <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605161	605437	
==>, {{\@1}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "a <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	24464	24582	
==>} ) and $opcodes->[-1]->isa('CallOp') ) {
        $defn->{pragma} = 'first';
    }
    return $expr;
}

sub Build <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	1255	1357	
==>age, $code, $expected, $description)> 

Runs a langugage test and passes the test if a string compariso <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	1608	1710	
==>age, $code, $expected, $description)> 

Runs a langugage test and passes the test if a string compariso <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	689568	689795	
==>,
                              "p"
                            ],
                  "BODY" => "#line 590 \"src/ops/pmc.ops\"\n   {{\@1}} = {{\@2}}->vtable->getprops(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	2276	2393	
==>uage_test_map{$func};
    
      {
        no strict 'refs';

        $pass = $self->{builder}->$builder_func( Parrot: <==
2	/Users/nnunley/parrot/examples/benchmarks/fib.pl	178	297	
==>ib.pl - Fibonacci Benchmark

=head1 SYNOPSIS

    % time perl examples/benchmarks/fib.pl n

=head1 DESCRIPTION

Calculat <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	25994	26092	
==>iers, $lookahead, $linenum
sub new ($$$$$$)
{
	my $class = ref($_[0]) || $_[0];
	my $pattern = $_[1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121958	122064	
==>.ops\"\n  /*\n   * lvalue casts are evil, but this one isn't evil enough to kill.\n   * it's just casting a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122870	122976	
==>.ops\"\n  /*\n   * lvalue casts are evil, but this one isn't evil enough to kill.\n   * it's just casting a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841615	841842	
==>ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842379	842606	
==>ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	97108	97360	
==>=> "bnot",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 120,
                  "ARGS <==
2	/Users/nnunley/parrot/config/gen/cpu/i386/auto.pm	277	415	
==>'files ...'   for inclusion in platform.c or platform.h
 i386_has_mmx   => 1

=cut

package gen::cpu::i386::auto;

use strict;
use warnings <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	5495	5615	
==>xit(0);
}

unless (@ARGV) {
    show_help();
    exit(1);
}

sub warn_if_both {
    my ($a, $b, $sa, $sb) = @_;
    if (d <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	857	1028	
==>ens, Jako::Token->new(
      $file, $line, 'label', 'N', $2);
    $text = $3; # The "(?!:)" is non-capturing!
  }

  while (defined $text and $text ne '') {
    next if $te <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	42637	42759	
==>ce is typically twice as good as the more general-purpose
C<extract_tagged>.


=head2 C<extract_quotelike>

C<extract_quote <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	6662	6781	
==>rent node (NOT for this node and everything following it)
#  follow_min - The minimum number of atoms in nodes following <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757141	757522	
==>RGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 854,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 271 \"src/ops/set.ops\" <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	2180	2277	
==>plied before any
metadata tags.

Example: if this line is in the MANIFEST.generated file

  langua <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	5237	5375	
==>mum indent
	&clip_excess_lines($desc);
    } if $desc;
    $info->{desc} = $desc;
    return $info;
}

sub describe_c_file {
    my($info,$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835737	835820	
==>interpreter, &CONTEXT(interpreter->ctx)->user_stack, string_copy(interpreter, {{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836490	836573	
==>interpreter, &CONTEXT(interpreter->ctx)->user_stack, string_copy(interpreter, {{\@1} <==
2	/Users/nnunley/parrot/config/auto/perldoc.pm	711	901	
==>ption:/) {
            $a       = capture_output('perldoc perldoc') || '';
            $version = 1;
            $self->set_result('yes, old version');
        } else {
            if (open F <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	154	304	
==>ot::Docs::Section::Docs - Docs documentation section

=head1 SYNOPSIS

	use Parrot::Docs::Section::Docs;

=head1 DESCRIPTION

A documentation section d <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	11233	11350	
==>'END');
my %rx_match;
$rx_match{'!INPUT'} = $rx_input;
$rx_match{'!GROUPS'} ||= [];
my $rx_len = length($rx_input);
my <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	60510	60767	
==>Data->{fh}, $srcname
        or die "can't open $srcname ($!).\n";

    $parser->YYData->{shebang} = 1;
    $parser->YYData->{srcname} = $srcname;
    my @st = stat( $parser->YYData->{srcname} );
    $parser->YYData->{srcname_size}  = $st[7];
    $par <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	6807	6963	
==>') {
          my $t = $next->text_r;
          while( $$t =~ m/$/mg ) {
            last if  ++$line_count  > 15; # no point in counting further
          } <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2328	2515	
==>e,
    $name,
    undef,            # No value
    $props,           # Parsed Properties
    $args,            # Parsed Properties
    $self->file,
    $self->line
  );

#  $self->DEBUG(0, <==
2	/Users/nnunley/parrot/lib/Test/More.pm	19496	19601	
==>r more details on the mechanics of skip and todo tests see
L<Test::Harness>.

The way Test::More handles t <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	20735	20968	
==>thing;
              DEBUG > 4 and print "  +Enqueuing ",
               pretty( $treelet->[$i][1]{$attrname} ),
               " as an attribute value to tweak.\n";
            }
          }
        }
      }
    }
  }
  DEBUG > 2 an <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572773	572973	
==>[
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 242 \"src/ops/object.ops\"\n  PMC *name = pmc_new(interpreter, e <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	18265	18372	
==>:_tracefirst($_[1]),
					  q{' . $rule ->{name}. '})
						if defined $::RD_TRACE;').'
		my $thisprod = $th <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	11584	11770	
==>t('.out', $test_no);

            # Name of the file with test code.
            # This depends on which kind of code we are testing.
            my $code_f;
            if ( $func =~ m/^ <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	5491	5614	
==>)/;
      ($first_comment) = $text =~ /(($RE{comment}{'C++'}\s*)+)/
	  if !$first_comment;

    return $info if !$first_comm <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936262	936373	
==>"src/ops/string.ops\"\n  {{\@1}} = string_titlecase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937039	937150	
==>"src/ops/string.ops\"\n  {{\@1}} = string_titlecase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LA <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6549	6780	
==>eq 'multi' ) {
                    print {$FH} " :slurpy";
                }
                $first = 0;
            }
            print {$FH} ") = ";
        }
        my @args = @{ $op->{arg2} };
        my $obj  = shift @ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	3820	3941	
==>gs);
		my $n = @args;
		$arg_count{$f} = $n;
		for (my $i = 0; $i < $n; $i++) {
		    my ($a, $def) = split(/=/, $args[$i] <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	4319	4440	
==>gs);
		my $n = @args;
		$arg_count{$f} = $n;
		for (my $i = 0; $i < $n; $i++) {
		    my ($a, $def) = split(/=/, $args[$i] <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	5270	5441	
==>type eq 'classmatch') {
	return $R->{args}[0] eq $S->{args}[0];
    } elsif ($type eq 'start' || $type eq 'end') {
	return 0;
    } else {
        my @Rargs = @{ $R->{args} <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	21369	21461	
==>sub { extract_quotelike($_[0],'') },
	sub { extract_codeblock($_[0],'{}','') },
];

sub extra <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1591	1690	
==>rt_Verbatim    { $_[0]{'Thispara'} = ''   }
sub start_item_bullet { $_[0]{'Thispara'} = '* ' }
sub s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	4868	4976	
==>begin with a label.
    $output2[0]->{label} ||= $self->{state}->genlabel("beginning");

    # Stick in a nex <==
2	/Users/nnunley/parrot/languages/regex/test.pl	3474	3608	
==>PIR);

    for my $tree (@$trees) {
        $driver->output_rule(*PIR, '_regex', $tree, $ctx, DEBUG => $DEBUG);
    }

    close PIR;
} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702505	702858	
==>"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 788,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 670 \"src/o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835699	835782	
==>5 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836452	836535	
==>5 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	2311	2432	
==>ter.)

Add the Garam Masala, chili powder, and cook, stirring occasionally, for
5 minutes.

Add the salt and chick peas an <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	21604	21766	
==>d print " Map: ",
    join('; ', map "$_=" . (
        ref($map->{$_}) ? join(",", @{$map->{$_}}) : $map->{$_}
      ),
      sort keys %$map ),
    ("B~C~E~F~I~L~ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576539	576651	
==>name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577551	577663	
==>name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/config/auto/pack.pm	941	1108	
==>>get($_);
        my $format;
        if (($] >= 5.006) && ($size == $longsize) && ($size == $Config{longsize})) {
            $format = 'l!';
        } elsif ($size == <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2130	2400	
==>e
                last;
            s/^\\f//
                and $str .= "\f",      # form feed
                last;
            s/^\\n//
                and $str .= "\n",      # new line
                last;
            s/^\\r//
                and $str .= "\ <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3644	3914	
==>e
                last;
            s/^\\f//
                and $str .= "\f",      # form feed
                last;
            s/^\\n//
                and $str .= "\n",      # new line
                last;
            s/^\\r//
                and $str .= "\ <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	1372	1501	
==>e object name before the symbol name.

=item C<--t>

Append the short BSD-style type to the symbol name.

    B - uninitialised da <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	45072	45181	
==>the
output.

=head1 AUTHOR

Jeffrey Goff, drforr@hargray.com

=head1 SEE ALSO

L<Scheme>, L<Scheme::Tokenizer> <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	268	374	
==>:Vtable> provides a collection of functions for manipulating
PMC vtables. It is used by F<tools/build/jit2c <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1031	1180	
==>ub Info {
    my $parser = shift;
    my ($msg) = @_;

    $msg ||= ".\n";

    if ( exists $parser->YYData->{nb_info} ) {
        $parser->YYD <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	4669	4822	
==>st say that we weren't configured with mono path, so no can do.
        return "\techo Oops, I was not configured with the path to Mono class library.\n" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19049	19207	
==>ck, $sub_name, @args);
      next;
    }

    #
    # Function Calls:
    #
    # a = foo(...);
    #

    if ($token->is_ident
      and $self->get(1)->is_ass <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4327	4450	
==>ration.

=cut

sub run_core_func_decl
{
    my ($self, $core) = @_;

    return "opcode_t * " .
        $self->core_prefix . <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2815	2938	
==>ration.

=cut

sub run_core_func_decl
{
    my ($self, $core) = @_;

    return "opcode_t * " .
        $self->core_prefix . <==
2	/Users/nnunley/parrot/languages/converter.pl	2471	2628	
==>{
      $rules[-1] .= "\n$_";
    }
  }
  else {
    if(/::=/) {
      push @rules,$_;
      $in_rule = 1;
    }
  }
}

for(@rules) {
  print$parser->rule($_) <==
2	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	1371	1491	
==>ast;
    }
    print "$output is up to date with respect to $input\n" if $Verbose;
}

exit 0 if $up_to_date;

print "$com <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5835	5944	
==>';

	# Branches mean we need to deal with basic block-ish stuff. If the branch
	# did not pop anything it is u <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3773	3882	
==>';

	# Branches mean we need to deal with basic block-ish stuff. If the branch
	# did not pop anything it is u <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	26106	26230	
==>_register_table(interp, entry,
            _temp_mmd_init, N_MMD_INIT);
EOC
    }

    $cout .= <<"EOC";
    } /* pass */
} / <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	13346	13561	
==>$key->[0],
                    'arg2'   => undef,
                    'result' => $result,
                );
                return [ $result, \@opcodes, $assign ];
            }
        }
    }
}

sub Bui <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807861	807955	
==>src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed(interpreter, {{\@2}}, {{\@3} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808766	808860	
==>src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed(interpreter, {{\@2}}, {{\@3} <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	13193	13316	
==>.h
remainderf  math.h
remainderl  math.h
remove      stdio.h
remquo      math.h
remquof     math.h
remquol     math.h
rename <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	655923	656373	
==>LAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 733,
                  "ARGS" => [
                              "i",
                              "p",
                              "ki"
                            ],
                  "BO <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	5912	6027	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
#
# And now directives (not targets)

sub accept_directive_as_verbatim  { s <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2517	2616	
==>ized type '$type' for num '$num' in opcode @{[$op->full_name]}"
        unless exists $arg_maps{$typ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	4383	4482	
==>ized type '$type' for num '$num' in opcode @{[$op->full_name]}"
        unless exists $arg_maps{$typ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	1044	1175	
==>parse_lines {             # Usage: $parser->parse_lines(@lines)
  # an undef means end-of-stream
  my $self = shift;

  my $code_han <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2964	3077	
==>te Encoding Mark found; but Pod::Simple v$Pod::Simple::VERSION doesn't implement UTF16 yet."
        );
        sp <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	3362	3475	
==>te Encoding Mark found; but Pod::Simple v$Pod::Simple::VERSION doesn't implement UTF16 yet."
        );
        sp <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	2891	3004	
==>::Task->new(step => $step, params => \@params);

    return $self;
}

=item * C<add_steps()>

Registers a new step <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	4555	4729	
==>a code-line.\n";
        $code_handler->(map $_, $line, $self->{'line_count'}, $self)
         if $code_handler;
        # Note: this may cause code to be processed out of ord <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1115	1215	
==>rent stack types array size.
${ITEMP0} = elements ${STYPES}
PIR

	# Do code for each pop. Need to set <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2825	2925	
==>rent stack types array size.
${ITEMP0} = elements ${STYPES}
PIR

	# Do code for each pop. Need to set <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7834	7961	
==>eturn ("restore $reg");
}

sub output_refresh {
    my ($self, $reg) = @_;
    $reg = value($reg);
    return ("restore $reg", " <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	23634	23750	
==>lassname");
        vt_clone->isa_str = CONST_STRING(interp, "$isa");
        vt_clone->does_str = CONST_STRING(inter <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	1741	1854	
==>left column, it's not a func
    @funcs = grep /^\S/, @funcs;

    # Typedefs and structs are no good
    @funcs = <==
2	/Users/nnunley/parrot/lib/Test/More.pm	37394	37486	
==>pyright 2001, 2002, 2004 by Michael G Schwern E<lt>schwern@pobox.comE<gt>.

This program is f <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	6354	6446	
==>pyright 2001, 2002, 2004 by Michael G Schwern E<lt>schwern@pobox.comE<gt>.

This program is f <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8686	8791	
==>ts ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_END_${CURIC}

# Get type of return value and build code to po <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	7258	7363	
==>ts ${DTYPES}
if ${ITEMP0} == 0 goto PRE_CALL_END_${CURIC}

# Get type of return value and build code to po <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7320	7446	
==>value($reg);

    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        return ("set <rx_tmp>, <rx_st <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9420	9545	
==>value($reg);
    if ($self->{DEBUG}) {
        my $desc = $db_desc ? " ($db_desc)" : "";
        return ("set <rx_tmp>, <rx_st <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	3058	3360	
==>xt;
            }
            else {
                $line =~ m/(extern\s*)?(\w+)\s*{/; #}
                $extern = (defined($1))? 1 : 0;
                $function = $2;
                $asm = q{};
                next;
            }
        }
        if ($line =~ m/^}/) { #{
            # 1. check te <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	16404	16514	
==>{
    if(m/<!ENTITY\s+(\S+)\s+"&#([^;]+);">/) {
      my($name, $value) = ($1,$2);
      next if $name eq 'quot <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18402	18501	
==>oint_integer> );

=item $parser->head2_halfpoint_size( I<halfpoint_integer> );

=item $parser->head3 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015057	1015170	
==>}});\n  {{\@1}} = string_make(interpreter, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=3}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015881	1015994	
==>}});\n  {{\@1}} = string_make(interpreter, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=3}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450644	450890	
==>nline",
                  "CODE" => 516,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 200 \"src/ops/math.ops\"\n  {{\@1}} = {{\ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4968	5223	
==>$fail if <rx_tmp> < $first;"
              unless $first == 0;
            push @ops, "goto $pass if <rx_tmp> < $last;";
        } else {
            push @ops, "goto $pass if <rx_tmp> >= $first;";
        }
    }
    push @ops, "goto $fail;";

    push @o <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	27824	28021	
==>ited string (possibly after skipping a specified prefix string).
The search for the string always begins at the current C<pos>
location of the string's variable (or at index zero, if no C<pos>
posit <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	998	1159	
==>critic

    *{"Parrot::Test::M4::$func"} = sub ($$;$) {
        my $self = shift;
        my ( $code, $output, $desc ) = @_;
  
        my $count = $self->{builde <==
2	/Users/nnunley/parrot/config/init/hints/irix.pm	245	366	
==>t('ccflags') || "";

    # 1185 An enumerated type is mixed with another type.
    if ($ccflags =~ /-woff /) {
        $cc <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	15004	15144	
==>1', 'op2');
        } elsif ($type1 eq "APLVector" && $type2 eq "APLVector") {
          # vector to vector
          $template .= << 'END_PI <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	10054	10311	
==>)//s
                or die "Parser error: no value for '$flag'";

            $flags{$flag}{$1} =
                $flag eq 'extends' ? ++$parent_nr : 1;
        }
        else {
            $flags{$flag} = 1;
        }
    }

    # setup some defaults
    i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576559	576816	
==>{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577571	577828	
==>{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29024	29211	
==>econstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 89
		DEFAULT => -109
	},
	{#State 90
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	426	534	
==>tion tools in F<tools/docs>.

=head2 Class Methods

=over 4

=cut

package Parrot::Docs::File;

use strict;
u <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	7236	7349	
==>elf->{name}";
}

sub nextimplicit($)
{
	my $self = shift;
	my $prodcount = scalar @{$self->{"prods"}};
	my $impcou <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430122	430584	
==>e_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 494,
                  "ARGS" => [
                              "ic",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 7 <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	11129	11255	
==>"|$value";
    }
}

=item C<make_op($code,
$type, $short_name, $body, $args, $argdirs, $line, $file, $labels, $flags, $nolines) <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	1460	1644	
==>]} = $$data;
            }
            else {
                die "Unknown type: ".$type;
            }

            return $_[0];
        };
    }
    # 5.8.0's threads::shared is bust <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	5827	5944	
==>ED CLASS
  my($self, $text) = @_;
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9856	9949	
==>ea44,/* 37 */
HH,$d,$a,$b,$c,$_[8],11,0x4bdecfa9,/* 38 */
HH,$c,$d,$a,$b,$_[11],16,0xf6bb4b60, <==
2	/Users/nnunley/parrot/lib/Test/More.pm	26219	26351	
==>id_arrow = 0;
    foreach my $entry (@Stack) {
        my $type = $entry->{type} || '';
        my $idx  = $entry->{'idx'};
        i <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	10994	11116	
==>TCH" : "BACKTRACK", "\\n";);
        push @ops, qq(print "INPUT:\$rx_input\\n";);
        push @ops, qq(print "      " . (" <==
2	/Users/nnunley/parrot/languages/regex/regex.pl	1956	2198	
==>} elsif ($operation eq 'dump') {
    print $_->dump_tree(), "\n" foreach (@$trees);
    exit;
}

local *OUTPUT;
if (! defined $output || $output eq '-') {
    open(OUTPUT, ">&STDOUT");
} else {
    open(OUTPUT, ">$output") or die "create $outp <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	2244	2416	
==>fn( $count );
        my @test_prog   = $self->get_test_prog( $path_to_parrot, $path_to_language, $count );

        # This does nor create byte code, but m4 code
        Pa <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16613	16768	
==>ount_newlines($ret);
            $cout .= $ret;
        }
    }

    # nci methods
    foreach my $method (@{ $self->{methods}} ) {
        next unless $met <==
2	/Users/nnunley/parrot/config/auto/jit.pm	186	299	
==>CRIPTION

Determines the CPU architecture, the operating system, and whether there is JIT
capability available.

= <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	569	698	
==>ing the grammar engine
and Perl 6 rules.

=cut

use strict;
use warnings;

require Parrot::Test;

=head2 Functions

=over 4

=item <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7214	7323	
==>ommand, $out, $err)>

Runs the specified command. Output is directed to the file specified by
C<$out>, warning <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19208	19374	
==>bers
type foo
	first as integer
end type
dim y as foo
read a,b,y.first
read a$,t$,d$
print a,b,y.first
print a$,t$,d$
for i=1 to 5
	read h
	print h,
next i
print
resto <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756712	756810	
==>1 \"src/ops/set.ops\"\n  {{\@1}}->vtable->assign_string_native(interpreter, {{\@1}}, {{\@2}});\n  { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757502	757600	
==>1 \"src/ops/set.ops\"\n  {{\@1}}->vtable->assign_string_native(interpreter, {{\@1}}, {{\@2}});\n  { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630489	630595	
==>type = pmc_type_p(interpreter, class);\n    if (type <= 0)\n        real_exception(interpreter, NULL, NO_CL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631479	631585	
==>type = pmc_type_p(interpreter, class);\n    if (type <= 0)\n        real_exception(interpreter, NULL, NO_CL <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	11074	11236	
==>s
            convert_line_endings( $expected );

            # set up default description
            unless ( $desc ) {
               (undef, my $file, my $line <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	16559	16721	
==>s
            convert_line_endings( $expected );

            # set up default description
            unless ( $desc ) {
               (undef, my $file, my $line <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	430	557	
==>should be compiled in';
our @args        = qw(ask pmc);

my %PMC_PARENTS;

# Return the (lowercased) name of the immediate paren <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	28849	29008	
==>ted text. That means that in a list context the various
subroutines can be used much like regular expressions. For example:

	while ( $next = (extract_quotelike <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584390	584486	
==>Y" => "#line 303 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}}) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585465	585561	
==>Y" => "#line 303 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup(interpreter, {{\@2}}) <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	8244	8395	
==>rrot_fetch_arg_nci(interpreter, st);
    else
        UVal_pmc(st->val) = NULL;

    return UVal_pmc(st->val);
}

#define GET_NCI_I(n) get_nci_I(interpr <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1190	1321	
==>il_label} = 1;

    my $opt2 = Regex::Optimize->new(%options);
    $code->{code} = [ $opt2->optimize($code->{code}, $ctx) ];
    ret <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	5259	5550	
==>./../../lib);
use Parrot::Test tests => $count;

END

    my $counter = 1;
    for my $name (sort keys %tests) {
        my ($expl, $body, $out) = @{ $tests{$name} };
        $string .= <<"END";
# TEST NUMBER: $counter
language_output_is('tcl', <<'TCL', <<'OUT', <<'DESC');
$body
TCL
$out
OUT <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	17136	17243	
==>$false="0.0";
	$false=qq{""} if ($type eq "S");

	push @{$code{$seg}->{code}}, "WHILE_$whilecounter:\n";
	pu <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	39636	39786	
==>ventually?)
        # Note that it deliberately won't work on L<...|Foo Bar>
      }


      # Now make up the link_text
      # L<Foo>     -> L<Foo|Fo <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20140	20258	
==>,
	for j = 0 to a(i)
		print "*";
	next j
	print 
next i

' Square roots and sgn
print 10,sqr(10)
print 32767,sqr(32767 <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	39659	39760	
==>red:

	$text = "/para line 1\n\nline 3\n/para line 4";

	extract_tagged($text, '/para', '/endpara', un <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	58934	59079	
==>ule of other rules).
                                       It can't be directly called because
				       Parse::RecDescent::$rulename is already <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	1288	1574	
==>ew($pmcs{$file}, $opt);
    }

    return bless { opt         => $opt,
                   pmcs        => \%pmcs,
                 }, $class;
}

sub _write_a_file($$$) {
    my ($generator, $h_name, $c_name) = @_;
    my $opt = $generator->{opt};

    print Data::Dumper->Dump([$generator <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	4608	4779	
==>acute'   , 233,
 'ecirc'    , 234,
 'euml'     , 235,
 'igrave'   , 236,
 'iacute'   , 237,
 'icirc'    , 238,
 'iuml'     , 239,
 'eth'      , 240,
 'ntilde'   , 241,
 'og <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	73637	74042	
==>"ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 97,
                  "ARGS" => [
                              "p",
                              "p",
                              "sc" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	262	398	
==>.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Declaration::Constant;

use Carp;

use base qw(Jako::Const <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712472	712559	
==>_sprintf_c(interpreter, \"%.12g\", (double){{\@1}});\n  PIO_putps(interpreter, io, s);\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713579	713666	
==>_sprintf_c(interpreter, \"%.12g\", (double){{\@1}});\n  PIO_putps(interpreter, io, s);\n <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16598	16747	
==>push @opcodes, new LocalDir( $parser,
                    'result' => $result,
                );
                push @opcodes, new FindLexOp( $pa <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10749	10889	
==>push @opcodes,
                        new LocalDir( $parser, 'result' => $result, );
                    push @opcodes, new FindLexOp( $pa <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	9631	9853	
==>os = pos($$textref);
	goto matched if $omode eq 'MAX';
	goto failed unless $omode eq 'PARA';

	if (defined $parapos) { pos($$textref) = $parapos }
	else		      { $parapos = pos($$textref) }

	return (
		$startpos,    $opent <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	11235	11367	
==>h @{$extra_preamble_ref},
            "t_$temp_num = (short)GET_NCI_I($reg_num);";
        return "t_$temp_num";
    };
    /c/ && do <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	800	895	
==>script, and expressions.

=cut

my $file = open_tmt(shift @ARGV);
my ($cmd, @args) = extract_inf <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	624	726	
==>le auto ops can count
on an automatically generated next-op to be appended to the op body.

Note that F <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	1279	1398	
==>self->{TOKENS}};
  }
}


#
# token_count()
#
# Returns the number of tokens.
#

sub count
{
  my $self = shift;

  retur <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	307162	307255	
==>"BODY" => "#line 1031 \"src/ops/cmp.ops\"\n  if (!PMC_IS_NULL({{\@1}})) {\n    {{+={{\@2}}}};\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30838	30970	
==>er or bullet.
          DEBUG and print " Item is of type ", $para->[0], " under $over_type\n";
          
          if($item_type eq <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	34126	34258	
==>er or bullet.
          DEBUG and print " Item is of type ", $para->[0], " under $over_type\n";
          
          if($item_type eq <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	1159	1271	
==>WS'),
            $self->new_item('A plan for Parrot.', 'docs/ROADMAP.pod'),
            $self->new_item('Where t <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	555	712	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
#
#  And here is how we implement a pull-parser on top of a push-parser...

sub filter {
  my($self, $source) <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	4206	4417	
==>comment;
	s/^\#\* /\# /mg;         # #*
	s/^\#(\#|\*)+\s*$/\#/mg; # line of "*"s or "#"s
	s/^\#\!.+//m;            # #!
	s/^\# *[a-z0-9]+\.(p[ml]|pasm)\s*\n//mi; # own file name - kludgy
	s/\#\s*Copyright[^\n]+\n <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1958	2130	
==>xpression::Value::Identifier->compile2($compiler, $self->block, $self->value, $self->kind, $self->scope, $self->type);
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($ <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1249	1364	
==>port {
    # hack for now
    my $got_perl = $got.perl;
    my $expected_perl = $expected.perl;
    my $test := ($go <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349150	349244	
==>terpreter, {{\@2}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, \"+<\");\n  /* string_cst <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350152	350246	
==>terpreter, {{\@2}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, \"+<\");\n  /* string_cst <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	539903	540293	
==>_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 625,
                  "ARGS" => [
                              "i",
                              "i",
                              "i <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	11929	12066	
==>c} = $p;
}

sub STORE_GLOBAL {
    my ($n, $c, $cmt) = @_;
    my $tos = pop @stack;
    my $p = $tos->[1];
    my $t;
    if ($t=$globals <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	19050	19163	
==>e {
    my ($include,$depth, @files) = @_;

    for my $file (@files) {
        my $class = read_dump($include, $f <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	1278	1425	
==>"# ID  Flags    Encoding Type     Size     Data\n";

    my $constant_num = 0;

    foreach ($pf->const_table->constants) {
        printf("%04x: %0 <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	4651	4800	
==>eady deprecated.

 o could fixup Pmc vs. .Pmc
 o could undo usage of '<reg> = opcode' syntax where that syntax will
   eventually be prohibited.

Or n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565765	566030	
==>an(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566658	566923	
==>an(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5264	5360	
==>ht;

  $handler->start_element({ Name => 'assign' });
  $dest->sax($handler);
  $handler->start_e <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3327	3423	
==>ht;

  $handler->start_element({ Name => 'assign' });
  $dest->sax($handler);
  $handler->start_e <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	54728	54872	
==>$1} || '\\x{'.sprintf("%x", ord($1)).'}'>eg;
      }
      qq{"$_"};
    }
  } @stuff;
  # $out =~ s/\n */ /g if length($out) < 75;
  return $out <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173052	173283	
==>> [
                              "p",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 218 \"src/ops/cmp.ops\"\n  if (0 != string_equal(interpr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623096	623276	
==>C *) cur_opcode[1];\n    ccont = ctx->current_cont;\n    cc = PMC_cont(ccont);\n    if (!cc->address) {\n\tinterpreter->current_returns = CUR_OPCODE;\n        n = PMC_int_val(mic->m <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8001	8108	
==>lo)"
i=55
if i then print "This is true" else print "Oops (flo)"

' Expect OK
if 2 > 1 then
	print "Ok"
else <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662960	663315	
==>=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delete",
                  "FLAGS" => "",
                  "ARGD <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2588	2745	
==>@_;
    $reg = value($reg);
    return "set $reg, $value";
}

sub output_print {
    my ($self, $what) = @_;
    $what = value($what);
    return ("print $wha <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	1833	2128	
==>_fn}",
                "l2p -o languages/${pir_fn} > nul",
                "$self->{parrot} languages/${pir_fn}",
            );
        }
        else {
            @test_prog = (
                "perl -Ilanguages/lua languages/lua/luac.pl languages/${lang_fn}",
                "$self-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	574516	574755	
==>" => "inline",
                  "CODE" => 656,
                  "ARGS" => [
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 249 \"src/ops/object.ops\"\ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7878	8052	
==>$self, @sempar )
                            : @sempar ? $sempar[0] : undef;

            splice(@$stack,-$len,$len);

                $$check eq 'ACCEPT'
            an <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7523	7691	
==>$self, @sempar )
                            : @sempar ? $sempar[0] : undef;

            splice(@$stack,-$len,$len);

                $$check eq 'ACCEPT'
            an <==
2	/Users/nnunley/parrot/examples/benchmarks/vpm.pl	2	101	
==>perl program by Thomas Klausner posted on Vienna-PM list
#
use strict;

my $big;
my $string="just an <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	3566	3682	
==>{""};
	}
}
my $eqnum=0;
my %opsubs=(
	'+' => sub { 
		my ($a1, $a2, $result)=@_;
		if ($result=~/S/) {
			return("\tc <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	1781	1932	
==>n/perl585-th
    type      = .pl

    [benchmark python]
    exe       = /usr/local/bin/python
    type      = .py

    [benchmark ruby]
    exe       = <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	36065	36212	
==>calmv, 'PARAMS';

        # If we don't have an ARG0, we'll fake it out. This is needed as ret will
        # never have a method to call, thus no a <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	8007	8145	
==>$textref)||0 );

	unless ($$textref =~ m/\G($pre)/gc)
	{
		_failmsg "Did not find prefix: /$pre/", pos $$textref;
		goto failed;
	}

	$open <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	811920	812371	
==>",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 916,
                  "ARGS" => [
                              "p",
                              "p",
                              "kc"
                            ],
                  "BODY" => "#li <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	62527	62702	
==>$op, "\n";
                die;
            }
        }
        print {$FH} "  # end of prolog\n";
        foreach my $op ( @{$fct} ) {
            $op->visit($generator) <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1129	1238	
==>t      = scalar(File::Spec->splitdir($path_to_parrot));
        my $path_to_language;
        if ($dir_count = <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1619	1723	
==>t = scalar(File::Spec->splitdir($path_to_parrot));
        my $path_to_language;
        if ($dir_count = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	775	868	
==>output_fh'} ||= *STDOUT{IO};
  $new->nix_X_codes(1);
  $new->nbsp_for_S(1);
  $new->{'Thispara <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	571	670	
==>use Parrot::OpTrans::Compiled;
use Parrot::OpLib::core;
use Parrot::Config;
use Parrot::Key;

my $tr <==
2	/Users/nnunley/parrot/tools/build/addopstags.pl	209	336	
==>ags file.

=cut


my %seen;
my @tags;

# Pull ops tags
while (<>) {
	if (/\bop \s+ (\w+) \s* \(/x) {
		next if $seen{$1}++;
	# t <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	19907	20074	
==>hich
                # package the .t file is in (one more than usual, due to the
                # extra layer of package indirection
                my $level = $buil <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1589	1729	
==>code_t>, but the prederef runops core uses an array of C<void*> to
do its clever tricks.

=cut

sub opsarraytype 
{ 
    return 'opcode_t' 
} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	3433	3847	
==>:Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS",
                  "NAME" => "check_events__",
                  "FLAGS" => ":internal",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 4,
                  "ARGS" => [],
                  "BODY" => "#line 123 \"src/ops/core.ops\"\n  opcode_t *this = CUR_OPCODE;\n  this = HANDLE_EVENT <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732177	732404	
==>129 \"src/ops/set.ops\"\n  {{\@1}} = (INTVAL)({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732923	733150	
==>129 \"src/ops/set.ops\"\n  {{\@1}} = (INTVAL)({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	594	729	
==>$l%64);
    $l = ($l-1)*8;
    $msg .= pack 'VV', $l & MAX , ($l >> 16 >> 16);
}


sub rotate_left($$) {
	#$_[0] << $_[1] | $_[0] >> (32 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	6296	6415	
==>eturn(<<CODE, $result);
	cmod $result, $a2, $a1
CODE
	},
	'^' => "POW",	
);
%opsubs=(%opsubs, 
	'<=' => sub { &{$opsubs{ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	410	517	
==>b new
{
  my $class = shift;
  my ($block, $left, $right) = @_;

  confess("Block (" . ref($block) . ") not! <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	401	508	
==>b new
{
  my $class = shift;
  my ($block, $left, $right) = @_;

  confess("Block (" . ref($block) . ") not! <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	31412	31517	
==>char {
}

sub _op_eof_object_p {
}

sub _op_char_ready_p {
}

sub _op_write {
  my ($self,$node) = @_;
  m <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24858	24976	
==>hs => 1, assign => 1});
	push @{$code{$seg}->{code}}, @code;

	die "TO expected at source line $sourceline" unless ($sy <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	8834	8941	
==>ntent_seen) {
    DEBUG and print "No content seen in search for title.\n";
    return;
  }
  $self->{'Title <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755138	755223	
==>66 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_number_native(interpreter, {{\@1}}, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755925	756010	
==>66 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_number_native(interpreter, {{\@1}}, {{\ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26093	26199	
==>sub _op_times {
  my ($self,$node) = @_;
  my $return;
  my $num_children = defined $node->{children} ? @{$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846665	846908	
==>RING *s;\n  s = string_chr(interpreter, (UINTVAL){{\@2}});\n  {{\@1}} = s;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847461	847704	
==>RING *s;\n  s = string_chr(interpreter, (UINTVAL){{\@2}});\n  {{\@1}} = s;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17414	17601	
==>l t>1

' Function test:  A, 3, 90
print chr$(65)
print int(3.1415)
print asc("Z")

' Logical Operators (not NOT)
print "      AND   OR    XOR   EQV   IMP"
for i = 0 to 1
for j = 0 to 1
pri <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	6201	6293	
==>rt_line_endings($text)>

Convert Win32 style line endins with Unix style line endings.

=item <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20280	20384	
==>t 0.5,sqr(0.5)
print 2,sqr(2)
for i = -1 to 1
	print "Sign of ";i;" is ",sgn(i)
next i


' "shared" Whoa, <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7180	7291	
==>es[-$act]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print STDERR "Reduce using rule ".-$act." ($lh <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6848	6955	
==>es[-$act]};

#DBG>			$debug & 0x04
#DBG>		and	$act
#DBG>		and	print STDERR "Reduce using rule ".-$act." ($lh <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8249	8391	
==>ss( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLAGS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9364	9506	
==>ss( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_RESTART",
                  "NAME" => "branch_cs",
                  "FLAGS" <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	2866	2971	
==>preter, &st, return_data);",
       l => "set_nci_I(interpreter, &st, return_data);",
       s => "set_nci <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2217	2332	
==>t', 'P8', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'], <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	784	902	
==>nctions that have more internal complexity the
format is:

    op opname (args) :class,flags {
        ... body of func <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	316	407	
==>->accept_codes('VerbatimFormatted');
  return $new;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	315	406	
==>->accept_codes('VerbatimFormatted');
  return $new;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58244	58624	
==>",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 75,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#lin <==
2	/Users/nnunley/parrot/config/init/defaults.pm	3108	3279	
==>Config{lddlflags},

        libs => $Config{libs},

        cc_inc     => "-I./include",
        cc_debug   => '-g',
        link_debug => '',

        o         => $Config <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	5578	5722	
==>$quote   = $arg->{type} eq 'int' ? ''       : "'";
            my $default = $arg->{default};
            
            $code .= "  goto done_$nam <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	652787	653086	
==>NAME" => "find_method",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653947	654246	
==>NAME" => "find_method",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	1322	1461	
==>symb   = $defn->{name};
##    warn "Insert $symb in $self\n";
        unless ( exists $self->{table}{$symb} ) {
            $self->{table <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	69368	69523	
==>ERRORS;\n$code"
			and close TRACE_FILE;
		}

		unless ( eval "$code 1" )
		{
			_error("Internal error in generated parser code!");
			$@ =~ s/at grammar/i <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	13725	13944	
==>) {
        push @opcodes1, @{ $var->[1] };
        my $expr = shift @{$exprs};
        unless ( defined $expr ) {
            $expr = BuildLiteral( $parser, 'nil', 'nil' );
        }
        if (    scalar( @{$exp <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	2496	2657	
==>= "    \$class = __PACKAGE__ unless \@_;\n";

    my $cnt = 0;
    my $idx = 0;
    my( $cmt, $name, $type, $elem );

    if( $base_type eq 'HASH' ){
        $out <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61033	61170	
==>ror,$line);
			$item = new Parse::RecDescent::Token($1,'/',$3?$3:'',$lookahead,$line);
			$prod and $prod->additem($item)
			      or  _no <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	14305	14477	
==>strstr      string.h
strtod      stdlib.h
strtof      stdlib.h
strtok      string.h
strtol      stdlib.h
strtold     stdlib.h
strtoll     stdlib.h
strtoul     stdlib.h
strto <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11736	11837	
==>lo,"
b$=" world!"
c$=a$+b$
print c$

' String function, whoa
function a$
	a$="Whoa"
end function
print <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	1825	1929	
==>->{declarations}}) {
		if (exists $main::common{$var}) {
			push(@saves, $var);
		}
	}
	if (@saves) {
		p <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3116	3220	
==>->{declarations}}) {
		if (exists $main::common{$var}) {
			push(@saves, $var);
		}
	}
	if (@saves) {
		p <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19036	19184	
==>-48
	},
	{#State 54
		ACTIONS => {
			'NAME' => 104
		},
		GOTOS => {
			'funcname' => 105,
			'_funcname' => 106
		}
	},
	{#State 55
		A <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	37607	37786	
==>=> $nil->[0],
        );
        push @opcodes2, new LabelOp( $parser,
            'prolog' => 1,
            'arg1'   => $lbl,
        );
        $parser->YYData->{symbtab}- <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	2685	2847	
==>urn rop('multi_match', [0,1,1,$children[0]]);
            } else {
                @{ $t->{args} } = @children;
                return rop('multi_match', [0,1,1,$s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	8425	8549	
==>G > 1 and printf "    item-* before %s(%s) %s keepn'd.\n",
              $to_unget[-1]->type,
              $to_unget[-1]->ca <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	10239	10357	
==>xtra_preamble_ref},
            "t_$temp_num = (int)GET_NCI_I($reg_num);";
        return "t_$temp_num";
    };
    /3/ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	8527	8658	
==>er{'gt'  }   = '>';
  $Name2character{'quot'}   = '"';
  $Name2character{'amp' }   = '&';
  $Name2character{'apos'}   = "'";
  $Name <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958799	959065	
==>"JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "fun <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959600	959866	
==>"JUMP" => 0,
                  "NAME" => "trans_encoding",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "fun <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	10593	10764	
==>,$_[7],10,0x8f0ccc92,/* 54 */
II,$c,$d,$a,$b,$_[14],15,0xffeff47d,/* 55 */
II,$b,$c,$d,$a,$_[5],21,0x85845dd1,/* 56 */
II,$a,$b,$c,$d,$_[12],6,0x6fa87e4f,/* 57 */
II,$d,$a, <==
2	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	695	781	
==>examples/benchmarks/stress.pasm>, 
F<examples/benchmarks/stress.pl>, 
F<examples/benchm <==
2	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	542	628	
==>examples/benchmarks/stress.pasm>, 
F<examples/benchmarks/stress.pl>, 
F<examples/benchm <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	1820	2027	
==>3812574028291115057151 0\n"
            ) {
            $has_gmp = 1;
            print " (yes) " if $verbose;
            $self->set_result('yes');

            $conf->data->set(
                gmp     => ' <==
2	/Users/nnunley/parrot/config/auto/m4.pm	70	168	
==>m4.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/m4 - Check whether GNU m4 <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	1414	1561	
==>place_slashes                => 1,
        conditioned_lines              => 1
    );
    genfile(
        'config/gen/makefiles/dynpmc_pl.in' => 't <==
2	/Users/nnunley/parrot/languages/APL/t/APL.pm	2004	2153	
==>L', $apl, $output, $block->name);
        }
      }
    } else {
      Parrot::Test::language_output_is('APL', $apl, $output, $block->name);
    }
  } <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	2413	2658	
==>}

while (my ($package, $files) = each %FILES) {
    my $manifest = "MANIFEST.$package";
    open(MANIFEST, ">$manifest") or die "create $manifest: $!";
    print MANIFEST "$_\n" foreach (@$files);
    close MANIFEST;
    print "Wrote $manifest\n <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	855	945	
==>SAL::isa($left, 'Jako::Construct::Expression::Value');
  confess "Op is not scalar!" if ref <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	867	957	
==>SAL::isa($left, 'Jako::Construct::Expression::Value');
  confess "Op is not scalar!" if ref <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	113	317	
==>ail_label = Regex::Ops::Tree::mark('FAIL');

sub init_context {
    my ($self, $ctx) = @_;
    $ctx->{rx_match} ||= 'rx_match';
    $ctx->{rx_stack} ||= 'rx_stack';
    $ctx->{rx_ptmp} ||= 'rx_ptmp';
    $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	114	230	
==>ail_label = Regex::Ops::Tree::mark('FAIL');

sub init_context {
    my ($self, $ctx) = @_;
    $ctx->{rx_match} ||= ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5409	5501	
==>ffset()>.

=item C<expr_address($address)>

Implemented in subclasses to return the C code fo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031493	1031601	
==>} >= enum_last_type)\n        {{\@1}} = -1;\n    else\n        {{\@1}} = data_types[{{\@2}} - enum_first_type <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032362	1032470	
==>} >= enum_last_type)\n        {{\@1}} = -1;\n    else\n        {{\@1}} = data_types[{{\@2}} - enum_first_type <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6504	6627	
==>truct::Expression::Value::Identifier->new($block, $self->require_ident);
        push @identifiers, $ident;
        last unl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	239060	239291	
==>=> [
                              "i",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 611 \"src/ops/cmp.ops\"\n  {{\@1}} = mmd_dispatch_i_pp(in <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	25438	25598	
==>ecause in ignore mode.\n";
      next;
    }
    #~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
    # ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ <==
2	/Users/nnunley/parrot/examples/benchmarks/oo5.pl	256	375	
==>hift;
    if (@_) { $self->[0] = shift } else { $self->[0] }
}

sub j {
    my $self = shift;
    if (@_) { $self->[1] = <==
2	/Users/nnunley/parrot/examples/benchmarks/oo6.pl	248	367	
==>hift;
    if (@_) { $self->[0] = shift } else { $self->[0] }
}

sub j {
    my $self = shift;
    if (@_) { $self->[1] = <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	14965	15111	
==>seconds
    });

    struct( timeval => [
        tv_secs  => '$',
        tv_usecs => '$',
    ]);

        # create an object:
    my $t = new ru <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	9096	9202	
==>rmat, @args) = @_;
  $self->ERROR('Syntax', $format, @args);
}


#
# INTERNAL_ERROR()
#

sub INTERNAL_ERROR <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	8167	8295	
==>len;              # [m..sublen] repeated up to N times
    }
}

sub startset {
    my $op = shift;
    my @sub = $op->{args}->[3] <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	370	473	
==>use Carp;

use base qw(Jako::Construct::Statement);

my %block_types = (
  'while'    => { PREFIX => "_W <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9020	9119	
==>t_fh'}} 
            " <a href='#_top'><img alt='^' border=0 src='$self->{RESOURCES_URL}/up.gif'></a <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	11836	12062	
==>st.err";

    return ($output, $out_err, $retval) if wantarray;
    return $output;
}

=item C<check_progs([$programs])>

Where C<$programs> may be either a scalar with the name of a single program or
an array ref of programs t <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1038	1211	
==>vert_relop($op); # Invert the test, since we jump *unless* the condition is true
  }
  elsif ($kind eq 'unless') {
    $kind = 'if';
  }

  if ($kind eq 'if') {
    $compiler <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1098727	1099047	
==>i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1218,
                  "ARGS" => [
                              "n",
                              "n",
                              "i"
                            ],
                  "BODY" => "#line 296 \"src/op <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	2894	3053	
==>dirs ],
        LABELS  => [ @$labels ],
        FLAGS   => $flags,
        BODY => '',
        JUMP => 0,
    };

    return bless $self, $class;
}

=back

=he <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5970	6161	
==>e_path($rel_path);
        
        # There may be editor scratch files to ignore.
        
        foreach my $file ($dir->files(1, '^\.'))
        {
            push @rel_paths, $source->rel <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	1157	1338	
==>:> you I<must> use a C<$description> with TODO tests.

=over 4

=item C<language_output_is( $language, $code, $expected, $description)> 

Runs a langugage test and passes the test if <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	8499	8603	
==>sc($type = $token->text);  # reuse $type, why not
      $type =~ s/([\?\!\"\'\.\,]) /$1\n/g unless $dont_ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	1794	1945	
==>p)) {
    $rev_type_map{$v} = $k;
};

get_dis($DIS, $file);
get_source($file);
exit if $opt{D};
gen_code();

sub nci_method {
    my $m = shift;
    ret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223580	223678	
==>ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224522	224620	
==>ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	39011	39143	
==>DEFAULT => -8
	},
	{#State 158
		ACTIONS => {
			"," => 151
		},
		DEFAULT => -36
	},
	{#State 159
		DEFAULT => -17,
		GOTO <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	2257	2412	
==>ge/Makefile',
        commentType                   => '#',
        replace_slashes               => 1
    );
    genfile(
        'config/gen/makefiles/tge <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20799	20985	
==>Array
TYPE
		foreach(@types) {
			print CODE<<ADDT;
	new P1, .PerlHash
	P1["name"]= '$_->[0]'
	P1["type"]= '$_->[1]'
	push P0, P1
ADDT
		}
		print CODE<<TYPEE;
	P1= P10[0]
	P2= P1["types" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3806	3918	
==>lib property, and parent module has no fnlib property either!")
        unless $module_props{fnlib};

      $fnli <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6470	6582	
==>lib property, and parent module has no fnlib property either!")
        unless $module_props{fnlib};

      $fnli <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789758	789861	
==>e 427 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_string_keyed_int(interpreter, {{\@2}}, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790668	790771	
==>e 427 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_string_keyed_int(interpreter, {{\@2}}, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1097121	1097377	
==>into a key. Note that we are not\n           including the first item in the array, since that is the HLL. */\n        tmp = VTABLE_get_string_keyed_int(interpreter, ns, 1);\n        {{\@1}} = key_tail = key_new_string(interpreter, tmp);\n        max = VTAB <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2154	2284	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__END__

=head1 NAME

Pod::Simple::DumpAsText -- dump Pod-parsing events as t <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2302	2397	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__END__

=head1 NAME

Pod::Simple::DumpAsXM <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	12710	12923	
==>>.

With no argument, the accessor returns a reference to the
element's whole hash (whether or not the element was
specified as C<'%'> or C<'*%'>).

With one or two arguments, the first argument is a key specifying <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20816	21079	
==>RROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	21616	21879	
==>RROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "f <==
2	/Users/nnunley/parrot/examples/benchmarks/primes.pl	462	707	
==>4;
my $i5;
my $i6 = 0;
my $i7;
printf("N primes up to ");
printf("%d", $i2);
printf(" is: ");

 REDO:
    $i3 = 2;
$i4 = $i1 / 2;
 LOOP:
    $i5 = $i1 % $i3;
  if ($i5) {goto OK;}
  goto NEXT;
 OK:
  $i3++;
  if ($i3 <= $i4) {goto LOOP;}
     $i6 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3579	3682	
==>ROR("Sub declaration has no fnlib property, and parent block is not a module!")
        unless $self->bl <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6243	6346	
==>ROR("Sub declaration has no fnlib property, and parent block is not a module!")
        unless $self->bl <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	4283	4419	
==>=> "return_data = ",
       P => "return_data = ",
       S => "return_data = ",
       I => "return_data = ",
       N => "return_data = <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6038	6197	
==>Token."\n";
			};

            $act=   exists($$actions{ACTIONS}{$$token})
                    ?   $$actions{ACTIONS}{$$token}
                    :   exis <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5753	5907	
==>Token."\n";
			};

            $act=   exists($$actions{ACTIONS}{$$token})
                    ?   $$actions{ACTIONS}{$$token}
                    :   exis <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	19262	19528	
==>RROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	20038	20304	
==>RROT_JUMP_RELATIVE",
                  "NAME" => "unless",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2439	2592	
==>opts }, $class;

    return $self->init();
}

# Default initialization, to be overridden in subclasses.
sub init { return shift(); };

# Exportable conven <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	11042	11179	
==>= defined $1 ? "u:" : "";
	    my $s = $2;
	    $c =~ s/.*/$u"$s"/;
	}
	print <<EOC;
	\t$cmt
EOC
    }
    else {
	print <<EOC;
	\t$cmt
EO <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	4031	4177	
==>odes, new NewOp( $parser,
                'prolog' => 1,
                'result' => $defn,
                'arg1'   => '.Lua' . ucfirst($type), <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	635	734	
==>'Language Implementations', 'languages.html', '',
        $self->new_item('', 'languages/LANGUAGES.S <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	322257	322393	
==>"
                            ],
                  "BODY" => "#line 134 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (UINTVAL)((Parrot_UInt4)({{\@ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	9088	9302	
==>>{regs} = pop @{$self->{frames}};
  $self->{scope} = $self->{scope}->{'*UP*'};

  return $return;
}

sub _op_if {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  my $cond = $self->_generate <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32154	32343	
==>hine(
              $para->[1]{'start_line'},
              "Expected '=item $expected_value'"
            );
            push @$para, $para->[1]{'~orig_content'};
              # restore th <==
2	/Users/nnunley/parrot/config/auto/funcptr.pm	476	591	
==>upports function pointer casts';

@args = qw(verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $jitcapabl <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	368	483	
==>Carp;

use base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $ident) = @_;

  confe <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	368	483	
==>Carp;

use base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $ident) = @_;

  confe <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3817	3924	
==>m'");
			ref($value) eq $$checklist{$prm}
		or	croak("Invalid value for parameter '$prm'");
        $prm= <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3622	3726	
==>m'");
			ref($value) eq $$checklist{$prm}
		or	croak("Invalid value for parameter '$prm'");
        $prm= <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2200	2310	
==>egex::Ops::Tree');
        $class =~ s/::\w+$// or confess "Called op on invalid class $_[0]";
    }
    $class <==
2	/Users/nnunley/parrot/lib/Test/More.pm	14738	14840	
==>(0, @_);
}

=back

=head2 Diagnostics

If you pick the right test function, you'll usually get a good i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054414	1054520	
==>!{{\@3}})\n\tinternal_exception(1, \"Tried to get null global.\");\n\n    next = {{^+4}};\n    {{\@1}} = Pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055541	1055647	
==>!{{\@3}})\n\tinternal_exception(1, \"Tried to get null global.\");\n\n    next = {{^+4}};\n    {{\@1}} = Pa <==
2	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1159	1260	
==>a->post($smokeserv => \%request);
  if($resp->is_success) {
    if($resp->content =~ /^ok/) {
      de <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	1101	1232	
==>'',             'eq', 'I0', '.Undef', 'write_KET'],
  ['',             'ne', 'I0', '.Array', 'write_DOT'],
  ['',             'print <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	14327	14536	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

##############################################################################
##
##  stop reading now stop reading now stop reading now s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319547	319829	
==>_i4",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 374,
                  " <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	794	999	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__END__

=head1 NAME

Pod::Simple::TextContent -- get the text content of Pod

=head1 SYNOPSIS

 TODO

  perl -MPod::Simple::TextContent -e \
   "exit P <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3079	3183	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;


__END__

=head1 NAME

Pod::Simple::Text -- format P <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	29712	29847	
==>'arg2'   => $zero->[0],
        'result' => $lbl_or,
    );
    my $lbl_end = new_label($parser);
    push @opcodes, new BranchUnles <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	15275	15448	
==>,$return.'[1]']);

  return $return;
}

sub _op_set_car_bang {
  my ($self, $node) = @_;

  _num_arg ($node, 2, 'set-car!');

  my $return = $self->_generate (_get_arg($node, <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	1474	1603	
==>sh @debdecl, "\t\t\$S0=$var\n\t\t\$P1[\"$var\"]= \$S0\n";
			}

		}
	}
	#print CODE<<INIT;
	#.sub ${seg}_run			# Always jump here. <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	992	1110	
==>ath_to_parrot = $INC{"Parrot/Config.pm"};
    $path_to_parrot =~ s:/lib/Parrot/Config.pm$::;
    my $dir_count = scalar <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	2436	2565	
==>No source\n";
    my $target = shift || die "No target\n";
    my $silent = shift || 0;
    my $index_html = $self->write_contents <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6544	6690	
==>do {        #shift

#DBG>				$debug & 0x04
#DBG>			and	print STDERR "Shift and go to state $act.\n";

					$$errstatus
				and	do {
					--$ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6240	6379	
==>do {        #shift

#DBG>				$debug & 0x04
#DBG>			and	print STDERR "Shift and go to state $act.\n";

					$$errstatus
				and	do {
					--$ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4897	4990	
==>ATES', 'LEX', 'ERROR' };
	my($errstatus,$nberror,$token,$value,$stack,$check,$dotpos)
     = <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4656	4747	
==>ATES', 'LEX', 'ERROR' };
	my($errstatus,$nberror,$token,$value,$stack,$check,$dotpos)
     = <==
2	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	718	835	
==>m = unpack("%32C*", <INPUT>);
    close INPUT;
}

my $up_to_date = 1;
foreach my $output (@outputs) {
    if (! open(O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	871835	872171	
==>" => "inline",
                  "CODE" => 989,
                  "ARGS" => [
                              "s",
                              "sc",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	876988	877262	
==>"ARGS" => [
                              "s",
                              "s",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 239 \"src/ops/string.ops\"\n  {{\@1}} = string_substr(in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	764694	764871	
==>,
                              "nc"
                            ],
                  "BODY" => "#line 320 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	765548	765725	
==>,
                              "nc"
                            ],
                  "BODY" => "#line 320 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	5311	5472	
==>self->get(1)->text)
    unless grep { $self->get(1)->kind eq $_ } @_;

  return $self->forth;
}


#
# REQUIRES:
#

sub require_assign        { return shift->requi <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	39745	39874	
==>e link_text
      # L<Foo>     -> L<Foo|Foo>
      # L</Bar>    -> L<"Bar"|Bar>
      # L<Foo/Bar> -> L<"Bar" in Foo/Foo>
      un <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686411	686502	
==>> "#line 563 \"src/ops/pmc.ops\"\n   {{\@1}} = {{\@3}}->vtable->getprop(interpreter, {{\@3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687301	687392	
==>> "#line 563 \"src/ops/pmc.ops\"\n   {{\@1}} = {{\@3}}->vtable->getprop(interpreter, {{\@3}} <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1351	1609	
==>ime N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hir <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1351	1609	
==>ime N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # sub    I4, I4, I3
goto REDO if $I4;             # if     I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hir <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	14891	15043	
==>/lambda/;
}

sub binary
{
    my ($op, $cmt) = @_;
    my $r = pop @stack;
    my $l = pop @stack;
    my ($t, $n);
    {
	my $nl = promote($l);
	$n = te <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	2286	2405	
==>lags);
        $conf->data->set('linkflags', $linkflags);
        print " (no) " if $verbose;
        $self->set_result( <==
2	/Users/nnunley/parrot/config/auto/readline.pm	2086	2205	
==>lags);
        $conf->data->set('linkflags', $linkflags);
        print " (no) " if $verbose;
        $self->set_result( <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	13604	13776	
==>JITCPU <<"EOC";
    PARROT_API Parrot_jit_fn_info_t *op_jit = &_op_jit[0];

    extern int jit_op_count(void);
    int jit_op_count() { return $core_numops; }
EOC
}

print(" <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	29503	29643	
==>92
		ACTIONS => {
			"}" => 144
		}
	},
	{#State 93
		ACTIONS => {
			";" => 146,
			"," => 147
		},
		DEFAULT => -107,
		GOTOS => <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30493	30712	
==>DISP2;
	print "Structure type of "
	print S0
	print " not found\\n"
	_platform_shutdown()
	end
DISP2

	print CODE <<SCOPYDIS;
	#
	# Structure create dispatch routine
	# Call with S0 set to the type
	# Dest returned in P0 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30826	30956	
==>DISP2;
	print "Structure type of "
	print S0
	print " not found\\n"
	_platform_shutdown()
	end
DISP2
RTJUMP:
	push @{$code{$seg}->{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3491	3604	
==>op> is an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) = @_;

    #print ST <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3290	3403	
==>op> is an instance of C<Parrot::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) = @_;

    #print ST <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2501	2600	
==>e test code matches the C<$expected>
parameter.  Note that C<$expected> is a I<Perl 5> pattern.

=cu <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3935	4034	
==>e test code matches the C<$expected>
parameter.  Note that C<$expected> is a I<Perl 5> pattern.

=cu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58559	58704	
==>"
                            ],
                  "BODY" => "#line 874 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo_s(interpreter, {{\@2}});\n  { <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	1195	1316	
==>00 } # just to produce SOME number

sub CLOSE { 1 }

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	1029	1269	
==>Label);
}

sub output_start {
    my ($self, $n) = @_;
    return "rx_startgroup P0, $n";
}

sub output_end {
    my ($self, $n) = @_;
    return "rx_endgroup P0, $n";
}

sub output_atend {
    my ($self, $failLabel) = @_;
    return ("rx_zw <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557872	557973	
==>\@1}};\n  meth = {{\@2}};\n  interpreter->current_cont = CONTEXT(interpreter->ctx)->current_cont;\n  P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559256	559357	
==>\@1}};\n  meth = {{\@2}};\n  interpreter->current_cont = CONTEXT(interpreter->ctx)->current_cont;\n  P <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2757	2855	
==>~~~~~~~~~~~~~~~~~~~~~~~

sub new {
  my $new = shift->SUPER::new(@_);
  #$new->nix_X_codes(1);
  $n <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3113	3209	
==>~~~~~~~~~~~~~~~~~~~~~~~
sub new {
  my $new = shift->SUPER::new(@_);
  $new->nix_X_codes(1);
  $n <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9769	9881	
==>ue);
    return "$value, ";
}

sub output_param {
    my ($self, $name, $type, $reg) = @_;
    $reg = value($reg) <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	12267	12363	
==>) {
			($ac,@args)=pushargs(\@code, \$optype, \@work);
			$pir_args = join(",", map {$_->[0]} (re <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	814	917	
==>x_X_codes(1);
  $new->nbsp_for_S(1);
  $new->{'Thispara'} = '';
  $new->{'Indent'} = 0;
  $new->{'Indent <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	627	730	
==>x_X_codes(1);
  $new->nbsp_for_S(1);
  $new->{'Thispara'} = '';
  $new->{'Indent'} = 0;
  $new->{'Indent <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1466	1570	
==>}

=item C<args(@args)>

=item C<args()>

Sets/gets the transform's arguments.

=cut

sub args
{
    my $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1075	1179	
==>}

=item C<args(@args)>

=item C<args()>

Sets/gets the transform's arguments.

=cut

sub args
{
    my $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	810	905	
==>olds.  For example, parsing
CZ<><foo> will return a C start-token, a text-token, and a C end-tok <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	14263	14436	
==>expr->[1] }, @{ $nil->[1] };
            my $n = scalar( @{$vars} );
            while ( $n-- ) {
                $result = new_tmp( $parser, 'pmc' );
                pus <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	4788	4957	
==>y and go to the end.
    my $pir = '';
    foreach (@_) {
        next if $_->{'unimplemented'};
        my $label = "BODY_$_->{'class'}___$_->{'method'}";
        $label <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	27212	27340	
==>ndef };
sub describe_check { undef };
sub describe_group { "group $_[3]" }
sub describe_rule { undef }

sub wrap {
    my ($self, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	17783	17989	
==>xlocals($op),
		 );

    return ($back, @ops);
}

# R<min,max> -> $matchcount = 0
#         loop: if $matchcount >= max goto next
#               R or check
#               $matchcount++
#               goto <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	471	575	
==>tions

For ops that have trivial bodies (such as just a call to some other
function and a C<return> state <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	6440	6572	
==>}
            $out .= "    croak 'Too many args to $name' if \@_ > 1;\n";
            $out .= "    \@_ ? ($pre\$r->$elem$sel = shift$ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	19813	19947	
==>mp_1 = $self->_generate($node->{children}[$_]);
    $self->_add_inst('','le',[$temp_0,$temp_1,"DONE_$label"]);
    $self->_restore($tem <==
2	/Users/nnunley/parrot/lib/Test/More.pm	19855	19957	
==>..
  }

This declares a block of tests that might be skipped, $how_many tests
there are, $why and under <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	2869	3004	
==>e_pm
{
    my ($self, $conf) = @_;

    my $file = "lib/Parrot/PMC.pm";
    my @pmcs = split(/ /, $conf->data->get('pmc_names'));

    o <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	1199	1467	
==>you can load PIR libraries from your
language, you can even use the existing PIR testing tools.

=head1 AUTHOR

written by chromatic with most of the intelligence stolen from the Punie
harness and most of that probably stolen from Test::Harness

Please send patches and <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	1127	1306	
==>e");

    # Now run the tests
    system("make fulltest");
}

# And generate the reports.

my @dafiles;
File::Find::find({wanted => sub {
                  /\.da$/ && push @dafiles <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16686	16782	
==>sly:
        $x =~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrst <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10134	10226	
==>sly:
    $x =~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrst <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2835	2951	
==>ef;
}

sub YYError {
	my($self)=shift;

	${$$self{CHECK}}='ERROR';
    undef;
}

sub YYSemval {
	my($self) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2703	2808	
==>ef;
}

sub YYError {
	my($self)=shift;

	${$$self{CHECK}}='ERROR';
    undef;
}

sub YYSemval {
	my($self) <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9936	10045	
==>hanged ref'd var from 5 to 12
function myfunc(a)
	print a
	a=12
        myfunc=80
end function
z=5
T=myfunc(z) <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11549	11658	
==>hanged ref'd var from 5 to 12
function myfunc(a)
	print a
	a=12
        myfunc=80
end function
z=5
T=myfunc(z) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	2027	2183	
==>lf->{INDENT});
  
  my $fh = $self->{FH};

  print $fh @_, "\n";
}


#
# compile()
#

sub compile
{
  my $self = shift;

  my ($root, $fh) = @_;

  $fh = Fil <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	1769	1892	
==>tions{compiler}
        if $options{compiler};

    # Per Leo on 18APR2005, run the test suite with --gc-debug
    if ( $ENV <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	851	976	
==>his module accepts no arguments to it's C<import> method and exports no
I<symbols>.

=cut

package Parrot::Configure::Data;

u <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	480	597	
==>his module accepts no arguments to it's C<import> method and exports no
I<symbols>.

=cut

package Parrot::Configure:: <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9832	9947	
==>splice @_; # break aliasing
    } else {
      my $x = shift;
      $x =~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	508680	508990	
==>GS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 585,
                  "ARGS" => [
                              "i"
                            ],
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421897	422219	
==>{{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bind",
                  "FLA <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	2900	3115	
==>{verbose},
    ) or exit(1);

    my $nfuncs = 0;
    my @ofiles = @ARGV;
    my %files;
    for my $ofile ( @ofiles ) {
        next if $ofile =~ m/^\Qsrc$PConfig{slash}ops\E/;

        my $cfile = $ofile;
        $ <==
2	/Users/nnunley/parrot/examples/benchmarks/primes.pl	214	312	
==>s < 10000

=head1 SYNOPSIS

    % time perl examples/benchmarks/primes.pl

=head1 DESCRIPTION

Calc <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	15894	16013	
==>are implemented.
    # TODO: Should we really be allowing the shift constant to be negative?
    #

    if ($token->is_i <==
2	/Users/nnunley/parrot/examples/benchmarks/fib.pl	15	119	
==>pyright (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/examples/benchmarks/fib.pl 19601 2006-05-30T13 <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	6082	6181	
==>");

=item C<slurp_file($file_name)>

Read the whole file $file_name and return the content as a str <==
2	/Users/nnunley/parrot/config/auto/readline.pm	959	1109	
==>cp60');
        } else {
            $conf->data->add(' ', libs => 'readline.lib');
        }
    } else {
        $conf->data->add(' ', libs => '-lrea <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25086	25187	
==>_op_minus {
  my ($self,$node) = @_;
  my $return;
  my $num_children = defined $node->{children} ? @{ <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	1648	1796	
==>:]]$/;  # CCLASS_PRINTING       
    $ret |= 0x0080 if $chr =~ /^[[:graph:]]$/;  # CCLASS_GRAPHICAL      
    $ret |= 0x0100 if $chr =~ /^[[:blank:]] <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	2453	2555	
==>(
    config_file  => File::Spec->catdir( $FindBin::Bin , 'parrotbench.conf' ),
    bench_path   => und <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75461	75791	
==>E" => "function",
                  "CODE" => 98,
                  "ARGS" => [
                              "p",
                              "p",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 1156 \"src/ops/core.ops\"\n  char * const nam <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5327	5439	
==>sax($handler);
  $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
  $le <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3390	3502	
==>sax($handler);
  $handler->start_element({ Name => 'op', Attributes => { kind => 'infix', name => $op } });
  $le <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9541	9665	
==>oken->is_while) {
      my $block = $self->current_block();
      my $kind = $token->text;

      my $prefix;

      if ($las <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	45159	45421	
==>, all of these values (except the remaining text) are C<undef>.


In a scalar context, C<extract_quotelike> returns just the complete substring
that matched a quotelike operation (or C<undef> on failure). In a scalar or
void context, the input text has the same s <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	40657	40792	
==>, all of these values (except the remaining text) are C<undef>.

In a scalar context, C<extract_tagged> returns just the complete
substr <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	110	219	
==>11564Z bernhard  $

=head1 NAME

Parrot::Docs::Group - Group of documentation items

=head1 SYNOPSIS

	use Par <==
2	/Users/nnunley/parrot/config/auto/jit.pm	1255	1444	
==>ecause archname is "darwin-thread-multi-2level".
    if ($cpuarch =~ /darwin/) {
        $osname  = 'darwin';
        if ($conf->data->get('byteorder') == 1234) {
            $cpuarch = 'i38 <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	5739	5862	
==>*
    s/^ {0,2}\*//mg; # | *

    s/^ *(\$I[d]: .+)\n//m; $info->{Id} = $1;

    my $desc;
    if(/Overview:/) { # normal pa <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	6707	6815	
==>{
    my $func_name  = $op->func_name($trans);
    my $arg_types  = "$opsarraytype *, Interp *";
    my $prot <==
2	/Users/nnunley/parrot/config/inter/charset.pm	1475	1596	
==>)


END
    }

    # build list of libraries for link line in Makefile
    my $slash = $conf->data->get('slash');
    $TEM <==
2	/Users/nnunley/parrot/config/inter/encoding.pm	1492	1613	
==>)


END
    }

    # build list of libraries for link line in Makefile
    my $slash = $conf->data->get('slash');
    $TEM <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	34310	34514	
==>9]+\([-a-zA-Z0-9]+\)$/s) { # man sections
          # Hopefully neither too broad nor too restrictive a RE
          DEBUG > 1 and print "Catching \"$it\" as manpage link.\n";
          $treelet->[$i][1]{' <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27805	27939	
==>eedme();  # Get the as
				feedme();
				push(@params, $syms[CURR], $a);
			} elsif ($syms[NEXT] eq "(") {
				feedme();
				while($sym <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710726	710823	
==>ter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711560	711657	
==>ter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_printf(interpreter, INTVAL_FMT, (INTVAL <==
2	/Users/nnunley/parrot/config/auto/byteorder.pm	387	496	
==>e qw(Parrot::Configure::Step::Base);

$description = q{Computing native byteorder for Parrot's wordsize};

@ar <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1019	1108	
==>ne SREG(i) REG_STR(cur_opcode[i])
#define CONST(i) CONTEXT(interpreter->ctx)->constants[cu <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1135	1224	
==>ne SREG(i) REG_STR(cur_opcode[i])
#define CONST(i) CONTEXT(interpreter->ctx)->constants[cu <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	20635	20739	
==>1-1', 0,
sub
#line 132 "lib/Regex/Grammar.y"
{ ++$::paren }
	],
	[#Rule 22
		 'expr', 4,
sub
#line 133 "l <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3095	3195	
==>ly generated by config/gen/core_pmcs.pm

package Parrot::PMC;

use strict;
use warnings;

use vars qw <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	39	139	
==>ly generated by config/gen/core_pmcs.pm

package Parrot::PMC;

use strict;
use warnings;

use vars qw <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7021	7340	
==>$db_desc ? " ($db_desc)" : "";
        return ("\$dbg_tmp = \@<rx_stack>;",
                "push \@<rx_stack>, $reg;",
                $self->dbprint("PUSHED[\$dbg_tmp] INT: \%<$reg>$desc\n"),
               );
    }
    return "push \@<rx_stack>, $reg;";
}

sub output_save {
    my ($self, $reg) = @_;
    $reg = valu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61800	61985	
==>=> [
                              "i"
                            ],
                  "BODY" => "#line 951 \"src/ops/core.ops\"\n  PARROT_ERRORS_on(interpreter, {{\@1}});\n  {{+=2}};\n <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5672	5789	
==>return;
}

sub _op_quote {
  my ($self, $node) = @_;
  my $return = $self->_save_1 ('P');

  _num_arg ($node, 1, 'quot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571155	571336	
==>\n    {{\@1}} = Parrot_object_isa(interpreter, {{\@2}}, class);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572110	572291	
==>\n    {{\@1}} = Parrot_object_isa(interpreter, {{\@2}}, class);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	1957	2061	
==>ood place (as we call gen_label before translating
	# every instruction) to see if we need to instate a s <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1356	1460	
==>ood place (as we call gen_label before translating
	# every instruction) to see if we need to instate a s <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59491	59596	
==>$lookahead, $line) or next;

			$prod->check_pending($line) if $prod;
			$prod = new Parse::RecDescent::Pr <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59848	59951	
==>$lookahead,$line) or next;
			$prod->check_pending($line) if $prod;
			$prod = new Parse::RecDescent::Pr <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	50792	50961	
==>0
		 'funcname', 3,
sub
#line 235 "Lua\lua51.yp"
{
            PrepareMethod( $_[0] );
            [
                @{ $_[1] },
                BuildLiteral( $_[ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4692	4827	
==>~~~~~~~~~~~~~~~~~~~

sub do_middle {      # the main work
  my $self = $_[0];
  my $fh = $self->{'output_fh'};
  
  my($token, $type, $t <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/State.pm	461	587	
==>->{_markers}->{$desc};
    $number = '' if ($number == 1) && ($desc ne '');
    return $self->literal_label("\@$desc$number", $ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	10238	10394	
==>pr=0;
			next;
		}
		if ($syms[CURR] eq ",") {
			fdprint($fd, "\\t");
			$eol=1;
			feedme();
			$expr=0;
			next;
		}
		last if $expr;
		($result, $type, @ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849624	849927	
==>,
                  "CODE" => 964,
                  "ARGS" => [
                              "s",
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 83 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11270	11386	
==>if($t->is_end   and $t->tag eq 'X') { --$x_open }
      }
    }
  }
  
  $out =~ tr/\x00-\x1F\x80-\x9F//d if 'A' eq c <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64056	64163	
==>lsif ($grammar =~ m/$EXACTLY/gco)
				{
					_parse("an exactly-$1-times subrule match", $aftererror,$line," <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	62160	62342	
==>or($FH);
#    my $generator = new pirVisitor(\*STDOUT);
    print {$FH} $generator->{prologue};
    foreach my $fct ( @{ $parser->YYData->{functs} } ) {
        foreach my $op ( @ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1934	2073	
==>~ s/::/__/g;

  $compiler->emit(".sub _${subname}");

  foreach my $arg (@args) {
    my ($arg_type, $arg_name) = @$arg;
    my $imcc_type = <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7284	7470	
==>t." ($lhs,$len): ";

                $act
            or  $self->YYAccept();

            $$dotpos=$len;

                unpack('A1',$lhs) eq '@'    #In line rule
            and <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6948	7126	
==>t." ($lhs,$len): ";

                $act
            or  $self->YYAccept();

            $$dotpos=$len;

                unpack('A1',$lhs) eq '@'    #In line rule
            and <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	6409	6565	
==>rtpos,  $ldelpos-$startpos,		# PREFIX
		$ldelpos,   1,				# OPENING BRACKET
		$ldelpos+1, $endpos-$ldelpos-2,		# CONTENTS
		$endpos-1,  1,				# CLOSING BRACK <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1806	1898	
==>elf->{ARGS}[shift];
}

=item C<goto_address($address)>

Transforms the C<goto ADDRESS($addres <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1421	1513	
==>elf->{ARGS}[shift];
}

=item C<goto_address($address)>

Transforms the C<goto ADDRESS($addres <==
2	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	167	326	
==>es/benchmarks/stress1.pl - GC stress-testing

=head1 SYNOPSIS

    % time perl examples/benchmarks/stress1.pl

=head1 DESCRIPTION

Creates 500 arrays with 20000 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	1057	1166	
==>ert_rx_seq {
    my ($self, $tree, $ctx) = @_;
    return op('seq' => [ map { $self->convert($_, $ctx) } @{ $t <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	2062	2241	
==>lls
        push @{ $self->{rxlocals} }, @{ $op->{rxlocals} };
        return ();
    } else {
        my $rxlocals = ($op->{rxlocals} ||= []);
        return (aop(comment => [ "sa <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3725	3825	
==>rops = $self->block->props;

      $self->SYNTAX_ERROR("Sub declaration has no fnlib property, and pa <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6389	6489	
==>rops = $self->block->props;

      $self->SYNTAX_ERROR("Sub declaration has no fnlib property, and pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	35554	35894	
==>@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "push_eh",
                  "FLAGS" => "",
                  "ARGDIRS" = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1312	1431	
==>ink-section specific --
# but it just so happens that link-sections are about the only treelets
# that are exposed to th <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	1225	1340	
==>right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK => $block,

    KIND  => $kind,
    ID <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3328	3451	
==>tput_is;
}

=item C<pgeglob_isnt($target, $pattern, $description, @todo)>

Runs the target string against the Perl 6 pattern <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	1690	1884	
==>=> "STRING *",
       I => "INTVAL",
       N => "FLOATVAL",
       b => "void *",
       B => "void **",
       L => "long *",
       T => "char **",
     );

my %other_decl =
     ( p => "PMC * <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	928	1039	
==>if $key eq 'start_line' and $_[0]{'hide_line_numbers'};
        _xml_escape($value = $_[2]{$key});
        print <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	745	852	
==>if $key eq 'start_line' and $_[0]{'hide_line_numbers'};
      _xml_escape($value = $_[2]{$key});
      print <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	38613	38724	
==>g;

	# Substitute in meta-variables. Yes, this really is the least evil way I
	# can think of to do it.
	$ins =~ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	30426	30646	
==>ack, { type => $type, vals => [$e1, $e2] };
                $ok = _deep_check($$e1, $$e2);
                pop @Data_Stack if $ok;
            }
            elsif( $type eq 'SCALAR' ) {
                push @Data_Stack, { <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	9403	9532	
==>n ($N1)
two:
    $N1 = cos op2
    .return ($N1)
three:
    $N1 = tan op2
    .return ($N1)
four:
    $N1 = op2 * op2
    $N1 += 1 <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	2242	2428	
==>sub function_components {
    my $proto = shift;

    my @parts = split( /\n/, $proto, 2 );
    my $returntype = $parts[0];
    my $parms = $parts[1];

    $parms =~ s/\s+/ /g;
    $parms <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	6235	6362	
==>g(interpreter, userargv, arg);
    }

    runops(interpreter, 0);
/*
    run_compiled(interpreter, (opcode_t *)program_code, (op <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10857	11019	
==>ch my $it ($to, $section) 
    {
        next unless defined $it;

        $it =~ s/([^\x00-\xFF])/join '', map sprintf('%%%02X',$_), unpack 'C*', $1/eg;
        $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5476	5578	
==>ndler);
  $handler->end_element({ Name => 'op' });
  $handler->end_element({ Name => 'assign' });
}


1 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3539	3641	
==>ndler);
  $handler->end_element({ Name => 'op' });
  $handler->end_element({ Name => 'assign' });
}


1 <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53819	54070	
==>mar,'<');
					  $code })
			{
				_parse("a resync with pattern marker", $aftererror,$line);
				$code =~ /\A\s*<resync:(.*)>\Z/s;
				$item = new Parse::RecDescent::Directive(
					      'if ($text =~ s/\A'.$1.'//) { $return = 0; $& } else { undef }' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736683	736918	
==>.ops\"\n  {{\@1}} = (FLOATVAL){{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737429	737664	
==>.ops\"\n  {{\@1}} = (FLOATVAL){{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	1681	1781	
==>ns chick peas or garbanzo beans, drained and rinsed
 * juice of one smallish lime
 * a dash of balsam <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679736	679977	
==>62,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 483 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_string(interpreter <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	103	220	
==>my $self = bless \%options, (ref($proto) || $proto);
    $self->init();
    return $self;
}

sub init {
    my $self = <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	270	387	
==>my $self = bless \%options, (ref($proto) || $proto);
    $self->init();
    return $self;
}

sub init {
    my $self = <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	40744	40892	
==>s = ", $parameters" if $parameters;
    my $body = "VTABLE_$meth(interpreter, attr$arg)";
    my $ret = gen_ret($method, $body);
    my $decl = $self <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	30714	30868	
==>ion(WRITE_TO_CONSTCLASS,
		"$meth() in $classname");
    else
        Parrot_${parentname}_$meth(interpreter, pmc, type);
EOC
    }
    else {
        $cou <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	47964	48067	
==>Class->_duo($source1, $source2)
  #  returns the parse trees of $source1 and $source2.
  # Good in thing <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	3171	3324	
==>'';
    
    return $self->{SUFFIX};
}

=item C<has_suffix()>

Finds out whether the name has a .xyz suffix.

=item C<has_suffix($suffix)>

Finds out whet <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809192	809647	
==>GS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 913,
                  "ARGS" => [
                              "s",
                              "p",
                              "k"
                            ],
                  " <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	1000	1112	
==>(@args);
print      body($file, @args);
print   badargs($cmd, @args);
print    footer();

sub open_tmt {
    my ( <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5102	5229	
==>ncat " = pop s\n"
PIR
	}

	return $pir;
}

sub post_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766401	766577	
==>,
                              "s"
                            ],
                  "BODY" => "#line 335 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	767254	767430	
==>,
                              "s"
                            ],
                  "BODY" => "#line 335 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49595	49690	
==>lsif ($grammar =~ m/$QUOTELIKEMK/gco)
			{
				_parse("an perl quotelike marker", $aftererror,$l <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	14603	14754	
==>78
	},
	{#State 26
		DEFAULT => -82
	},
	{#State 27
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 2 <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	6575	6719	
==>rgs{$arg}}; $i--) {
	    my $reg = 4 + $i;
	    my $d = pop @{$def_args{$arg}};
	    my $arg_name = pop @params;
	    $may_be_none{$arg_name} = 1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019781	1019885	
==>"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_localtime_r( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020712	1020816	
==>"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_localtime_r( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576510	576598	
==>t_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577522	577610	
==>t_string_native(interpreter, name, {{\@3}});\n  {{\@1}} = VTABLE_subclass(interpreter, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	707242	707853	
==>ind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 793,
                  "ARGS" => [
                              "p",
                              "ic",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc.ops\"\n  {{\@1}} = mmd_vtfin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056358	1056566	
==>"p",
                              "k",
                              "s"
                            ],
                  "BODY" => "#line 194 \"src/ops/var.ops\"\n    {{\@1}} = Parrot_get_global_p(interprete <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	4227	4413	
==>nto subdirs of libdir
        $dest = File::Spec->catdir($options{libdir}, basename($dest));
    } elsif ($meta{bin}) {
        my $copy = $dest;
        $dest =~ s/^installable_//; # par <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7276	7394	
==>rn $pir;
}

sub post_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If the register name to lo <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5098	5216	
==>rn $pir;
}

sub post_load($) {
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If the register name to lo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	92050	92538	
==>GS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 114,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 43 \"src/ops/bit <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	660	914	
==>},    $x; # prefix to stack
  } else {
    DEBUG and print " And oo, it gets to be root!\n";
    $_[0]{'_currpos'} = [   $_[0]{'root'} = $x   ];
      # first event!  set to stack, and set as root.
  }
  DEBUG > 3 and print "Stack is now: ",
    join(">", <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	611	914	
==>and
# to call the proper callbacks on the treelets.
#
# Every node in a treelet is a ['name', {attrhash}, ...children...]

use integer; # vroom!
use strict;
use Carp ();
BEGIN {
  require Pod::Simple;
  *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/Configure.pl	8734	8835	
==>ipt, you obviously have Perl 5--I'll be pulling
some defaults from its configuration.
END

# EDIT HERE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1040012	1040282	
==>162,
                  "ARGS" => [
                              "sc",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 120 \"src/ops/var.ops\"\n    Parrot_store_global(interpreter, {{\ <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	572	709	
==>he elapsed time, and 

=item * the number of M op/s.

=back

=cut

sub time_hires { time() }

$I2 = 0;                      # set    I2, 0 <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	575	711	
==>he elapsed time, and

=item * the number of M op/s.

=back

=cut

sub time_hires { time() }

$I2 = 0;                      # set    I2, 0 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	5833	5973	
==>int {$self->{'output_fh'}} 
                $self->{'Tagmap'}{$tagname} . 
                $self->html_link(
                    $self->{DOCS <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	8383	8474	
==>item C<Parrot::OpTrans>

=item F<tools/build/ops2c.pl>

=item F<tools/build/ops2pm.pl>

=ite <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	19167	19258	
==>item C<Parrot::OpTrans>

=item F<tools/build/ops2c.pl>

=item F<tools/build/ops2pm.pl>

=ite <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20628	20714	
==>d::Simple::PullParserStartToken>,
L<Pod::Simple::PullParserTextToken>, and
L<Pod::Simpl <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	2689	2775	
==>d::Simple::PullParserStartToken>,
L<Pod::Simple::PullParserTextToken>, and
L<Pod::Simpl <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	18834	19015	
==>, enum_class_Hash);
        VTABLE_set_pmc_keyed_int(interpreter, iglobals, IGLOBALS_NCI_FUNCS,
                HashPointer);

$put_pointer

    }

    b = VTABLE_get_pmc_keyed_str(i <==
2	/Users/nnunley/parrot/lib/Test/More.pm	13014	13178	
==>my $name = "$obj_name isa $class";
    if( !defined $object ) {
        $diag = "$obj_name isn't defined";
    }
    elsif( !ref $object ) {
        $diag = "$obj_na <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	8129	8275	
==>f $line =~ /\S/o;
			}
		
			my @abstract = $line;
			
			while ( @lines )
			{
				$line = shift @lines;
		
				last if $line !~ /\S/o;
				
				p <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6783	6898	
==>should
	# download the file.
	
	if ( $self->has_suffix )
	{
		return 0 if $self->suffix !~ m/[Tt][Xx][Tt]/o;
	}
	els <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3184	3294	
==>self = shift;
  if(Pod::Simple::ASCII) {
    $self->{'Thispara'} =~ tr{\xA0}{ };
    $self->{'Thispara'} =~ tr{ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2672	2782	
==>self = shift;
  if(Pod::Simple::ASCII) {
    $self->{'Thispara'} =~ tr{\xA0}{ };
    $self->{'Thispara'} =~ tr{ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10845	10966	
==>lback:
  %Latin1Char_to_fallback = ();
  my($k,$v);
  while( ($k,$v) = each %Latin1Code_to_fallback) {
    $Latin1Char_to_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2282	2376	
==>g($type, $value, $op)>

Returns the C code for the specified op argument type (see
C<Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3173	3267	
==>g($type, $value, $op)>

Returns the C code for the specified op argument type (see
C<Parrot::Op <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	172	254	
==>rot/languages/jako/lib/Jako/Construct/Label.pm 19606 2006-05-30T15:08:05.048089Z co <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3792	3898	
==>tion has no fnlib property, and parent module has no fnlib property either!")
        unless $module_props{ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6456	6562	
==>tion has no fnlib property, and parent module has no fnlib property either!")
        unless $module_props{ <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	8191	8569	
==>lement value
    $obj->a(2, 'new value');            # assign to array element

                                    # hash type accessor:
    $hash_ref = $obj->h;                # reference to whole hash
    $hash_element_value = $obj->h('x'); # hash element value
    $obj->h('x', 'new value');          # assign to hash element

                                    # class type <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10276	10380	
==>, storereg, err, str_ic, tmp
    .local int pc, next_pc, bc_length, cur_ic, pop_count, label_num, sp_dest <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	14280	14426	
==>item $Code2USASCII{I<integer>}

This maps from US-ASCII codes (like 32) to the corresponding
character (like space, for 32).  Only characters 32 to <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661936	662023	
==>\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(interpreter, {{\@2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662852	662939	
==>\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed(interpreter, {{\@2 <==
2	/Users/nnunley/parrot/config/auto/format.pm	647	863	
==>onf->data->get(
        qw(iv nv floatsize doublesize hugefloatvalsize)
    );

    if ($iv eq "int") {
        $ivformat = "%d";
    } elsif (($iv eq "long") || ($iv eq "long int")) {
        $ivformat = "%ld";
    } <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	55159	55309	
==>2] );
        }
	],
	[#Rule 74
		 'exp', 2,
sub
#line 405 "Lua\lua51.yp"
{
            BuildUnop( $_[0], $_[1], $_[2] );
        }
	],
	[#Ru <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	10239	10405	
==>}


sub _unoverload {
    my $self  = shift;

    local($@,$!);

    eval { require overload } || return;

    foreach my $thing (@_) {
        eval { 
            if( <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1290	1405	
==>the
        # standard edition compiler' warning each time we compile.
        # The logo gets printed to STDERR; he <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5611	5726	
==>NS} = concat ${LOADREG}
${INS} = concat "\n"
PIR
	}

	return $pir;
}

# Pre and post store operation hooks.
sub pre_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4453	4568	
==>NS} = concat ${LOADREG}
${INS} = concat "\n"
PIR
	}

	return $pir;
}

# Pre and post store operation hooks.
sub pre_ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	29734	29879	
==>stack[-$n];
	push @stack, $thing;
    print <<EOC;
	$cmt
EOC
    }
}

sub ROT_THREE
{
    my ($n, $c, $cmt) = @_;
    print "\t\t$cmt\n";
    my $ <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	535	670	
==>desc, @other ) = @_;

        ++$count;
        my( $lang_f, $pasm_f, $by_f, $out_f ) = map { # JMG
            my $t = $0; $t =~ s/\.t$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947069	947171	
==>rot_charset_number(interpreter, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947971	948073	
==>rot_charset_number(interpreter, {{\@2}});\n  if (n < 0)\n    real_exception(interpreter, NULL, 1,\n\t\" <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	22075	22269	
==>ary_dispatch_table($prefix, @r2);
    }

    # Return generated code.
    return $pir;
}


# Generate translation code relating to a rule.
# #############################################
sub gene <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	559	694	
==>est::output_$meth"} = sub ($$;$) {
        my( $lang_code, $output, $desc ) = @_;

        ++$count;
        my( $lang_f, $pasm_f, $by_f <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	583	688	
==>er non-verbatim paragraph), and
# to call the proper callbacks on the treelets.
#
# Every node in a treele <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	5947	6046	
==>c_decl($base);
    print HEADER "$run_core_func;\n";
}
my $bs = "${base}${suffix}_";

print SOURCE $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2897	3051	
==>,
    's'  => "SREG(%ld)",
    'k'  => "PREG(%ld)",
    'ki' => "IREG(%ld)",

    'ic' => "%ld",
    'nc' => "CONST(%ld)->u.number",
    'pc' => "CONST(%ld <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	4734	4892	
==>e (my ($vers, $opt) = splice @opt_and_vers, 0, 2) {
            last if $vers > $gccversion;
            next unless $opt; # Ignore blank lines

            if <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	198	284	
==>build/parrot_config_c.pl 20350 2006-06-25T03:57:27.771662Z petdance  $' =~ /^\$[iI][dD] <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	30019	30144	
==>ind it.  If that's not set, it's
pretty good at guessing the right package to look at based on $Level.

Sometimes there is som <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	5524	5703	
==>}, $_ for @smokes;

  foreach my $branch (keys %branches) {
    foreach my $cat   (keys %{ $branches{$branch} }) {
      $branches{$branch}{$cat} = [
        map  {{ %$_, timestamp <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	10501	10611	
==>YPE, ...

Each name-type pair declares one element of the struct. Each
element name will be defined as an acces <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	20918	21029	
==>pos,	$oppos-$startpos,	# PREFIX
		$oppos,		length($op),		# OPERATOR
		$ld1pos,	1,			# LEFT DEL
		$str1pos,	$rd1p <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	38918	39038	
==>ent
         and !ref($ell_content[0]) and !ref($ell_content[-1])
         and $ell_content[ 0] =~ m/^\"/s
         and $ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1313	1419	
==>NS} = concat ": "
PIR
	
	# This is also a good place (as we call gen_label before translating
	# every inst <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	191607	191738	
==>313 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	192547	192678	
==>313 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	20577	20686	
==>reach my $attrname ('section', 'to') {        
            if(defined($thing = $treelet->[$i][1]{$attrname}) a <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	42061	42168	
==>reach my $attrname ('section', 'to') {        
          if(defined($thing = $treelet->[$i][1]{$attrname}) a <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1054	1149	
==>)
#define CUR_OPCODE ((opcode_t*)cur_opcode + CONTEXT(interpreter->ctx)->pred_offset)

#  define <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1184	1279	
==>)
#define CUR_OPCODE ((opcode_t*)cur_opcode + CONTEXT(interpreter->ctx)->pred_offset)

#  define <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37818	37917	
==>srm->post_call();
		$pir .= "### post_call\n";
		$pir .= sub_meta($post_call, $mv, "post_call for ru <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	10977	11073	
==>textref)||0;
	unless ($$textref =~ m/\G($pre)/gc)
	{
		_failmsg "Did not find prefix: /$pre/", po <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924414	924555	
==>tring_make_empty(interpreter, enum_stringrep_one, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925205	925346	
==>tring_make_empty(interpreter, enum_stringrep_one, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	8215	8353	
==>ine = shift @lines;
		
				last if $line !~ /\S/o;
				
				push @abstract, $line;
			}
			
			my $desc = join ' ', @abstract;
			
			# Joi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	873732	874155	
==>"i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 991,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 23 <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	1585	1688	
==>p';
    $cpcf_op = 'Parrot_jit_cpcf_op';
    $restart_op = 'Parrot_jit_restart_op';
    %argmaps = %Parr <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	7842	7965	
==>Can't save     stdout" if $out;
    open  OLDERR, ">&STDERR" or die "Can't save     stderr" if $err;

    open  STDOUT, ">$o <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7892	8013	
==>Can't save     stdout" if $out;
    open OLDERR, ">&STDERR" or die "Can't save     stderr" if $err;

    open STDOUT, ">$o <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4782	4923	
==>if the delete fails.

=cut

sub delete
{
    # Use $_[0] so that we can undef the instance in SUPER::delete().
    
    unlink($_[0]->path) or <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10948	11075	
==>if the delete fails.

=cut

sub delete
{
    # Use $_[0] so that we can undef the instance in SUPER::delete().
    
    $_[0]->d <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	370	529	
==>file = shift @ARGV;
usage() if !$input_file || @ARGV;

# Parse the file to get the methods.
my $fh;
open $fh, "< $input_file" or die "Could not open $input_file <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2713	2833	
==>tartToken->new( I<tagname>, I<attrhash> )
>>

=head1 SEE ALSO

L<Pod::Simple::PullParserToken>, L<Pod::Simple>, L<Pod::Si <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	9172	9285	
==>@@@@@@@@@@@@@@@@@

sub _handle_encoding_line {
  my($self, $line) = @_;
  
  # The point of this routine is to set <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	327	430	
==>hash.
sub new() {
	my $invocant = shift;
	return bless {}, $invocant;
}

# Pre-translation hook.
sub pre <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	235	338	
==>hash.
sub new() {
	my $invocant = shift;
	return bless {}, $invocant;
}

# Pre-translation hook.
sub pre <==
2	/Users/nnunley/parrot/tools/dev/symlink.pl	934	1040	
==>-d $trydir) && (-f $tryfile && ! -l $tryfile);
} else {
    die "$0: I am very confused.\n";
}

my @toolsrc <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	584	689	
==>e_prefix()>

Returns an empty string.

=cut

sub core_prefix
{
    return "";
}

=item C<defines()>

Retur <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61913	62107	
==>c/ops/core.ops\"\n  PARROT_ERRORS_on(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62557	62751	
==>c/ops/core.ops\"\n  PARROT_ERRORS_on(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	6976	7105	
==>.\n";
        } else {
          print $fh "<a\n>";  # Yes, an 'a' element with no attributes!
          DEBUG and print "Lineariz <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	2215	2315	
==>e returned in the order in which
they were registered in.

Accepts no arguments and returns a list in <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	1730	2096	
==>{
        $base_type = 'ARRAY';
        $class = (caller())[0];
        @decls = @_;
    }

    _usage_error() if @decls % 2 == 1;

    # Ensure we are not, and will not be, a subclass.

    my $isa = do {
        no strict 'refs';
        \@{$class . '::ISA'};
    };
    _subclass_error() if @$isa;
    tie @$isa, 'Class::Struct::Tie_ISA';

    # Create constructor <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	15243	15501	
==>e to 5.0 sec.
    $t->ru_utime->tv_secs(100);
    $t->ru_utime->tv_usecs(0);
    $t->ru_stime->tv_secs(5);
    $t->ru_stime->tv_usecs(0);

=item Example 2

An accessor function can be redefined in order to provide
additional checking of values, etc.  Here, we <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3774	3880	
==>D_C;
    default:
    switch (*cur_opcode) {
END_C
}

=item C<run_core_finish($base)>

Returns the C code f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	919835	920106	
==>GS" => [
                              "i",
                              "sc",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\@1}} = string_str_in <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	4235	4390	
==>lf, $node, $return, $special) = @_;

  if (exists $node->{value}) {
    my $value = $node->{value};
    if ($value =~ /^[-+]?\d+$/) {
      $self->_add_inst <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1101084	1101505	
==>i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1220,
                  "ARGS" => [
                              "n",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 296 \"src/ops/experimental.ops\"\n    FLOATVAL n2 = {{\@2}};\n    FLOATVAL <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	8249	8352	
==>>

  $Test->ok($test, $name);

Your basic test.  Pass if $test is true, fail if $test is false.  Just
li <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	1047	1145	
==>IO'),
		$self->new_group('Documentation', '', 
            $self->new_item('', 'lib/Parrot/Docs/Ite <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	10445	10564	
==>truct>.

The I<ELEMENT_LIST> has the form

    NAME => TYPE, ...

Each name-type pair declares one element of the struct <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8682	8792	
==>h result, not_there
    .return (result)
.end

.sub unicode:"dyadic:\u25cb"          # circle
    .param num op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	987447	987751	
==>> [
                              "i",
                              "ic",
                              "s",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421812	421932	
==>rc/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_bind(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422705	422825	
==>rc/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_bind(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	21969	22076	
==>c} ? -1 : "enum_class_$classname";
    $cout .= <<"EOC";
void
Parrot_${classname}_class_init(Parrot_Interp i <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34037	34137	
==>rule->hasleftmost($self) ? 'q{}'
				# WAS : 'qq{'.$self->describe.'}' ) . ')->($text);
				: 'q{'.$s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	887	1045	
==>define run() in a subclass if you want to use filter()!
  return $self;
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

sub par <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3116	3218	
==>"PREG(%ld)",
    'ki' => "IREG(%ld)",

    'ic' => "cur_opcode[%ld]",
    'nc' => "CONST(%ld)->u.number <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2030	2129	
==>"PREG(%ld)",
  'ki'  => "IREG(%ld)",

  'ic'  => "cur_opcode[%ld]",
  'nc'  => "CONST(%ld)->u.number <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011365	1011462	
==>e 39 \"src/ops/sys.ops\"\n  {{\@1}} = Parrot_Run_OS_Command(interpreter, {{\@2}});\n  {{+=3}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012130	1012227	
==>e 39 \"src/ops/sys.ops\"\n  {{\@1}} = Parrot_Run_OS_Command(interpreter, {{\@2}});\n  {{+=3}};\n", <==
2	/Users/nnunley/parrot/lib/Test/More.pm	36214	36343	
==>he
names of the most common routines are kept tiny, special cases and
magic side-effects are kept to a minimum.  WYSIWYG.


=head1 <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	3087	3213	
==>function declarations, put the return type on the same line.
        $cmd =~ s/-psl/-npsl/g;	
    }
    foreach (sort keys %$ty <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	720548	720980	
==>item",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 808,
                  "ARGS" => [
                              "p",
                              "nc"
                            ],
                  "BODY" => "#line 133 \" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	2963	3110	
==>depth
{
  my $self = shift;

  return scalar($self->blocks) - 1;
}


#
# current_block()
#
# Returns the block on the top of the block stack.
#

sub <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572154	572526	
==>r, {{\@2}}, class);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclass",
                  "FLAGS" => ":object_class <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571199	571522	
==>r, {{\@2}}, class);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "isa", <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	4477	4620	
==>ock further down
        }
      } else {
        DEBUG > 5 and print "# It's a code-line.\n";
        $code_handler->(map $_, $line, $self->{'l <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	19775	19894	
==>el overrides.  This is typically useful
localized:

    {
        local $Test::Builder::Level = 2;
        $Test->ok($te <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	310096	310224	
==>DB_BREAK)) {\n        interpreter->pdb->state |= PDB_BREAK;\n        interpreter->pdb->state |= PDB_STOPPED;\n        interpreter <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	2997	3133	
==>st output is going.

If you want a completely new Test::Builder object different from the
singleton, use C<create>.

=cut

my $Test = Tes <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	542	680	
==>|= *STDOUT{IO};
  $new->accept_target_as_text(qw( text plaintext plain ));
  $new->nix_X_codes(1);
  $new->nbsp_for_S(1);
  $new->{'Thispar <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	342	441	
==>oject info.

=head2 Class Methods

=over

=cut

package Parrot::Docs::Section::Info;

use strict;
us <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	894858	895026	
==>ic",
                              "sc"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	895994	896162	
==>ic",
                              "sc"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpre <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	2318	2605	
==>return() in case the code in the sub doesn't return anything
  $compiler->emit(".end");

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  my $type  = $self->type;
  my $name  = $self->name;
  my @args  = $self->args;

  if ($type) {
    $handler->start_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822468	822740	
==>int(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823536	823808	
==>int(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	4207	4338	
==>rgs) {
      my ($arg_type, $arg_name) = @$arg;
      my $imcc_type = $arg_type->imcc;

      $compiler->emit("  .param $imcc_type $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	2009	2134	
==>rgs) {
    my ($arg_type, $arg_name) = @$arg;
    my $imcc_type = $arg_type->imcc;

    $compiler->emit("  .param $imcc_type $ <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	142	313	
==>hints::linux;

use strict;

use Config;

sub runstep
{
    my ($self, $conf) = @_;

    my $libs      = $conf->data->get('libs');
    my $cflags    = $conf->data->get('ccfl <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	5392	5495	
==>les). by $0.
 *
 * Any changes made here will be lost!
 *
 */

END_C

my $mmp_v = "${major_version}_${mi <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	580	673	
==>nt::expected =~ s/_/ /g;
	if (!$Parse::RecDescent::unexpected
	    || $Parse::RecDescent::unex <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	4377	4578	
==>DO_OP(pc, interpreter);\n    {{=pc}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAM <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	1449	1554	
==>.)

 1. Merge equivalent labels
 2. Jump threading: Replace goto X; ...; X: goto Y; with goto Y.
 3. Elimi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16296	16401	
==>elsif(wantarray) {  # return an array
    return map {; ($x = $_) =~
      s/([F\x00-\x1F\\\{\}\x7F-\xFF]) <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	5537	5717	
==>);
    exit(1);
}

sub warn_if_both {
    my ($a, $b, $sa, $sb) = @_;
    if (defined $a && defined $b && $a == $b) {
	warn "$ME: both --$sa and --$sb used\n";
    }
}

warn_if_both <==
2	/Users/nnunley/parrot/config/init/hints.pm	1080	1199	
==>$@) {
        $hints->runstep($conf, @_) if $hints->can('runstep');
        $hints_used++;
    }

    if ($hints_used == <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	1285	1383	
==>eturn_type method_name parameters section MMD_type ]

for each vtable method defined in C<$file>. I <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3684	3859	
==>y procedures defined in the test file outside of a test,
## as well as any catch commands.
##
sub extract_preamble {
    my ($source) = @_;
    my $preamble;

    my $regex = q <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7186	7295	
==>EST0} = concat ${STEMP0}
${STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
PIR
	}

	return $pir;
}

sub post <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5008	5117	
==>EST0} = concat ${STEMP0}
${STEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
PIR
	}

	return $pir;
}

sub post <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	24708	24895	
==>en_errata();
        if(@extras) {
          unshift @$paras, @extras;
          DEBUG and print "Generated errata... relooping...\n";
          next;  # I.e., loop around again to process <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30195	30320	
==>'~bitched_about'}) {
            $curr_open->[-1][1]{'~bitched_about'} = 1;
            $self->whine(
              $curr_open <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552644	552780	
==>{{\@2}};\n  /* XXX should we check if object.can(method) */\n\n  next = {{^+3}};\n  interpreter->current_object = object;\n  interpreter- <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1415	1523	
==>by C<goto_address()>.

=cut

sub expr_address
{
    my ($self, $addr) = @_;

    return $addr;
}

=item C<exp <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	6145	6253	
==>ring for a release.
    $context = "TODO for release"
        if index($Test::force_todo_test_junction, ' '~$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	578413	578665	
==>s(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3390	3596	
==>{$name} = $sym;
}


###############################################################################

=head2 BLOCK->get_symbol(NAME)

Attempt to get a symbol from this block's symbol table only. If there is n <==
2	/Users/nnunley/parrot/Configure.pl	9158	9349	
==>nter::types
    inter::ops
    inter::pmc
    auto::alignptrs
    auto::headers
    auto::sizes
    auto::byteorder
    auto::va_ptr
    auto::pack
    auto::format
    auto::isreg
    auto::j <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	6862	7007	
==>/);

  my $type = $self->_save_1('I');
  my $head = $self->_save_1('P');
  my $label = $self->_gensym;

  # check for empty list
  $self->_add_ins <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853350	853459	
==>tring.ops\"\n  {{\@1}} = string_append(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854132	854241	
==>tring.ops\"\n  {{\@1}} = string_append(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	1689	1832	
==>s';
        return ${$class . "::description"};
    }
}

=item * C<args()>

Accepts no arguments and returns the value of C<@args> from the inhe <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	5844	6039	
==>i < argc; i++) {
        /* Run through argv, adding everything to @ARGS. */
        STRING *arg = string_make(interpreter, argv[i], strlen(argv[i]),
                                  0, PObj_exte <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	455	562	
==>c op libraries.

=cut

use strict;

use File::Copy qw(copy);

# qq[] isn't guaranteed to work, but it's safe <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	12882	13052	
==>s at PC + X
        #   restart NEXT()     {{=0,+=S}}   PC' = 0       Restarts at PC + S
        #
        #   $X                 {{@X}}   Argument X    $0 is opcode, $1 i <==
2	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	796	884	
==>asm>, 
F<examples/benchmarks/stress2.pasm>, 
F<examples/benchmarks/stress2.pl>, 
F<exampl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	898663	899221	
==>ore",
                  "ARGDIRS" => [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1014,
                  "ARGS" => [
                              "s",
                              "i",
                              "ic",
                              "s"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\" <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	1932	2064	
==>} !~ /\b--gc-debug\b/ )
    {
        $ENV{TEST_PROG_ARGS} .= " --gc-debug";
    }
}

sub get_files
{
    my %options = @_;

=pod

Co <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	466	621	
==>new
{
  my $class = shift;

  my ($block, $type, $ident, $value) = @_;

  confess "Block (" . ref($block) . ") is not!" unless UNIVERSAL::isa($block, qw(Jak <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1766	1884	
==>mespace}_ELSE");
      $compiler->indent;
      $self->SUPER::compile($compiler);
      $compiler->outdent;
      $comp <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	65219	65394	
==>)
						      or  _no_rule("repetition",$line,"$code$argcode($1..$2)");

						!$matchrule and $rule and $rule->addcall($name);
					}
				}
				elsif ($grammar =~ m/$ATLEAST/g <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	1635	1733	
==>verbatim paragraphs.  We call _ponder_paragraph_buffer
   # to process this.
  
  $self->{'pod_para <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	1638	1773	
==>_op = 'Parrot_jit_restart_op';
    %argmaps = %Parrot::OpTrans::C::arg_maps;
}
else {
    $jit_cpu = ($cpuarch eq 'i386') ? 0 : 1;
    p <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2208	2331	
==>it fails.
        mkpath($self->path);
    }
    
    return -d $self->path;
}

=item C<relative_path($directory)>

=item C< <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	35425	35756	
==>],
                  "BODY" => "#line 637 \"src/ops/core.ops\"\n  {{\@1}} = (INTVAL){{\@2}}->vtable->get_pointer(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	7572	7675	
==>plan {
    my $self = shift;

    return($self->{Expected_Tests}) if $self->{Expected_Tests};
    return <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101103	101378	
==>ing_bitwise_not(interpreter, {{\@1}}, &{{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550991	551242	
==>"TYPE" => "function",
                  "CODE" => 634,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 56 \"src/ops/object.ops\"\n  op <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3139	3265	
==>{
	my($self)=shift;

        @_
    and ${$$self{TOKEN}}=$_[0];
    ${$$self{TOKEN}};
}

sub YYCurval {
	my($self)=shi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2986	3103	
==>{
	my($self)=shift;

        @_
    and ${$$self{TOKEN}}=$_[0];
    ${$$self{TOKEN}};
}

sub YYCurval {
	my($self)=shi <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	4721	4849	
==>il;
    for my $regex ( @{ $cfg{skip_bench} } ) {
        $fail++ and last if /$regex/;
    }
    return if $fail;
    for my $in <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	11818	11927	
==>);
  for(_get_args($node)) {
    my $temp = $self->_generate($_);
    $self->_add_inst(''         ,'eq' ,[$tem <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	8792	8899	
==>LDOUT" or die "Can't restore  stdout" if $out;
    open  STDERR, ">&OLDERR" or die "Can't restore  stderr" i <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8311	8417	
==>LDOUT" or die "Can't restore  stdout" if $out;
    open STDERR, ">&OLDERR" or die "Can't restore  stderr" i <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	12400	12538	
==>st
	foo as integer
	bar as string
end type
type second
	other as first
	narf as integer
	pnext as first
end type
type third
	number as inte <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	13399	13512	
==>st
	foo as integer
	bar as string
end type
type second
	other as first
	narf as integer
	pnext as first
end type
d <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4407	4566	
==>f = shift;
    my $name = shift;
    
    return -f File::Spec->catfile($self->path, $name);
}

=item C<directory_exists_with_name($name)>

Returns whether a su <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	7564	7972	
==>");
    print OUT qq(
            <i>You may click on a percentage to see line-by-line detail</i>
            <table border="1">
              <tbody>
                <tr>
                  <th>File</th>
                  <th>Line Coverage</th>
                  <th>Branch Coverage</th>
                  <th>Call Coverage</th>
                </tr>
    );
    
    foreach my $source_file (sort keys %file_l <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	6869	7044	
==>>[-1]->{result}[0]->{pragma} )
            {
                my $callop = $val->[1]->[-1];
                $callop->{result}[0]->{pragma} = 'multi';
                push @o <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	6375	6654	
==>do;
        }
        else {
            $context =  "TODO" ~ ($todo.isa('Str') ?? " $todo" !! '');
            if ( $cond ) {
                $Test::num_of_tests_badpass ++;
            }
        }
    }

    if ( $depends ) {
        $context ~= " (depends on $depends working)" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	1279	1461	
==>l string $var\n";
				push @init, qq{\t\t$var=""\n};
				push @debdecl, "\t\t\$P1[\"$var\"]=$var\n";
			} else {
				print CODE "\t.local float $var\n";
				push @init, qq{\t\t$var=0. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1093687	1093959	
==>}, {{\@2}});\n  {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1094490	1094762	
==>}, {{\@2}});\n  {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	19697	19852	
==>tr/[({</])}>/;
		_match_bracketed($textref,"",$ldel1,"","",$rdel1)
		|| do { pos $$textref = $startpos; return };
	}
	else
	{
		$$textref =~ /$ldel1[^\\$lde <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	4972	5154	
==>+)")?\s*$/ ) {
          # That RE is from perlsyn, section "Plain Old Comments (Not!)",
          #$fname = $2 if defined $2;
          #DEBUG > 1 and defined $2 and print "# Setting <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	11026	11154	
==>color: blue; cursor: pointer; }  /* hack? */

    .tests_ok       { color: #050; }
    .tests_failed   { color: #500; }
    .test <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	3271	3382	
==>', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P17', 'P16'],
  ['apply_COUNT', 'ne', 'I16', '.Unde <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	1422	1573	
==>pos-$startlen, $extralen, "\n");
			$res[1] = "$extra$res[1]";
			eval { substr($$textref,$remainderpos,0) = $extra;
			       substr($$textref,$extrapo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351920	352269	
==>NAME" => "print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 410,
                  "ARGS" => [
                              "n"
                            ],
                  "BO <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	18774	19127	
==>$$textref);
		return (
			$startpos,	$oppos-$startpos,	# PREFIX
			$oppos,		length($op),		# OPERATOR
			$ld1pos,	$extrapos-$ld1pos,	# LEFT DEL
			$str1pos,	$rd1pos-$str1pos,	# STR/PAT
			$rd1pos,	$ld2pos-$rd1pos,	# RIGHT DEL
			$ld2pos,	0,			# NO 2ND LDEL
			$ld2pos,	0,                	# NO 2ND STR
			$ld2pos,	0,	                # NO 2ND RDEL
			$ld2po <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	13051	13204	
==>puts        stdio.h
qsort       stdlib.h
raise       signal.h
rand        stdlib.h
real        complex.h
realloc     stdlib.h
remainder   math.h
remainder <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18585	18745	
==>ACTIONS => {
			'NAME' => 101
		}
	},
	{#State 50
		ACTIONS => {
			"-" => 72,
			".." => 71,
			"<" => 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82, <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	35570	35737	
==>IMPORT_NAME {
    my ($n, $c, $cmt) = @_;
    pop @stack;
    print <<EOC;
	\t $cmt XXX
EOC
}
sub IMPORT_FROM {
    my ($n, $c, $cmt) = @_;
    print <<EOC;
	\t $cmt XX <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	5955	6082	
==>ry_with_relative_path($rel_path);
        
        # There may be editor scratch files to ignore.
        
        foreach my $f <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	10553	10727	
==>);
                }
            }
        };
    }
}


=item B<is_eq>

  $Test->is_eq($got, $expected, $name);

Like Test::More's is().  Checks if $got eq $expected.  This is <==
2	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	379	497	
==>y $cs_code = shift;
    my $opt = shift;
    $opt ||= '';
	
	# Write file.
	my $fh;
	open $fh, "> $file_name.cs" or die <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100382	100626	
==>\n  {{\@1}} = {{\@2}}->vtable->bitwise_not(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	35918	36069	
==>the "|" -- only in CHILDREN (not all underlings!)
      # Like L<I like the strictness|strict>
      DEBUG > 3 and
         print "  Peering at L conten <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	31706	31844	
==>'class'} eq 'store') {
		# Does the translator code actually store a value or just give back a
		# register name where the value would be s <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	39669	39859	
==>agicals and build up declaration list.
	my $decls = "";
	for (keys %$mv) {
		if (/^([INSP])_ARG_(\d+)$/ || /^([INSP])TEMP(\d+)$/) {
			my $type = $1 eq 'I' ? 'int' :
			           $1 eq 'N' ? <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	44112	44237	
==>}

my $NEGLOOKAHEAD	= '\G(\s*\.\.\.\!)';
my $POSLOOKAHEAD	= '\G(\s*\.\.\.)';
my $RULE		= '\G\s*(\w+)[ \t]*:';
my $PROD		= '\G\ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11763	11861	
==>terr type
printerr " "
inc j
goto PTYPES_LOOP
PTYPES_LOOP_END:
printerr "\\n"
printerr "    LTYPES: <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22501	22695	
==>stargetted =end $content\n";
        next;
      }
      
      unless($content eq $curr_open->[-1][1]{'target'}) {
        $self->whine(
          $para->[1]{'start_line'},
          "=end $cont <==
2	/Users/nnunley/parrot/languages/regex/test.pl	360	455	
==>is is still probably unix-only, because the parrot binary
# will have different names
my $PARROT <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	533255	533476	
==>CODE" => 616,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 890 \"src/ops/math.ops\"\n  {{\@1}} = log(( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1103982	1104074	
==>, class);\n\t\ttype = pmc_type(interpreter, class);\n\t}\n\tif (type <= 0)\n\t\treal_exceptio <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1105197	1105289	
==>, class);\n\t\ttype = pmc_type(interpreter, class);\n\t}\n\tif (type <= 0)\n\t\treal_exceptio <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	4571	4693	
==>hen linenumber
			feedme;
			create_label();
			push @{$code{$seg}->{code}}, "\tbranch $labels{$syms[CURR]}\t# Goto $syms[C <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	2012	2134	
==>> to create the path if necessary.

=cut

sub create_path
{
    my $self = shift;
    
    return unless $self->SUPER::crea <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	989	1111	
==>> to create the path if necessary.

=cut

sub create_path
{
    my $self = shift;
    
    return unless $self->SUPER::crea <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	1740	1845	
==>GE__,
    " and subclasses, not parse_lines";
}

sub parse_line {
  use Carp ();
  Carp::croak "Use set_so <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	5721	6034	
==>new(
        $file, $line, 'arith-assign', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^( \+ | - | \* | / | % )(.*)$}x) {
      push @tokens, Jako::Token->new(
        $file, $line, 'infix-arith', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^( ~= )(.*)$}x) {
      p <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8033	8187	
==>EPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Accept.\n";

				return($semval);
			};

                $$check eq 'ABO <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7673	7818	
==>EPT'
            and do {

#DBG>			$debug & 0x04
#DBG>		and	print STDERR "Accept.\n";

				return($semval);
			};

                $$check eq 'ABO <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28900	29021	
==>th};
    return $self->{methods}[$n]{'loc'} ne 'nci';
}


=item C<implements_vtable($method)>

True if this class generate <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7410	7510	
==>->_add_inst('', 'set', [$list,$list.'[1]']);
  $self->_add_inst('', 'typeof', [$type,$list]);
  $self <==
2	/Users/nnunley/parrot/lib/Test/More.pm	1631	1732	
==>$this, qr/that/, $test_name);
  unlike($this, qr/that/, $test_name);

  cmp_ok($this, '==', $that, $te <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	1606	1726	
==>uld probably be subclasses that use something like
    # IMCC's facilities for creating local vars.
    return $self->all <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3667	3778	
==>$prmlst)={};

	while(($prm,$value)=splice(@$inarray,0,2)) {
        $prm=uc($prm);
			exists($$checklist{$pr <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3477	3584	
==>$prmlst)={};

	while(($prm,$value)=splice(@$inarray,0,2)) {
        $prm=uc($prm);
			exists($$checklist{$pr <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	8743	8937	
==>lash       = $conf->data->get('slash');
        my $new_perldoc = $conf->data->get('new_perldoc');

        foreach my $ops (@ops) {
            my $pod = $ops;
            $pod =~ s/\.ops$/.pod/ <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	100	249	
==>9606 2006-05-30T15:08:05.048089Z coke  $

package Parrot::Test::Lua;

use strict;

use Data::Dumper;
use File::Basename;

require Parrot::Tes <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	5029	5183	
==>its indent depth.
            $f=length($1);
            next;
        }

        if (/^\s*([\#\}])/) {
            # skip the last line of the func or cpp <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	2245	2387	
==>.pir would be selected over foo.pasm

=head1 AUTHOR

Joshua Gatcomb, C<Limbic_Region_2000@Yahoo.com>

Originally written by:

Sebastian Riedel, <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	4897	5040	
==>_/ } sort keys %internal_calls;
    my @non_ansi_external_calls = grep { ! exists($ansi_c89_symbol{$_}) } @external_calls;
    
    printf("Foun <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	1225	1394	
==>ards compatibility for as long as we possibly
can.

=head2 Functions

=over 4

=cut

*/

/* Some internal notes. Parrot will die a horrible and bizarre death
   if the st <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	905	1017	
==>compile
{
  my $self = shift;
  my ($compiler) = @_;
  
  my $ident_name = $self->ident->value;

  my $ident = $s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	905	1015	
==>compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $ident_name = $self->ident->value;

  my $ident = $s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	15107	15280	
==>open =over region

  # Events fired:  Begin and end for:
  #                   directivename (like head1 .. head4), item, extend,
  #                   for (from =begin...=en <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	720	814	
==>>rel2abs($lang_f);
    $out_f  = File::Spec->rel2abs($out_f);
    Parrot::Test::write_code_to_f <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	757	851	
==>>rel2abs($lang_f);
    $out_f  = File::Spec->rel2abs($out_f);
    Parrot::Test::write_code_to_f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756706	756791	
==>ine 271 \"src/ops/set.ops\"\n  {{\@1}}->vtable->assign_string_native(interpreter, {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757496	757581	
==>ine 271 \"src/ops/set.ops\"\n  {{\@1}}->vtable->assign_string_native(interpreter, {{\@ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11658	11786	
==>ement::Arithmetic->new($block, $ident, $ident, $op, $value);
      next;
    }

    #
    # Concat assign:
    #
    #   <var> <o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611181	611360	
==>n    VTABLE_set_attr(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	612084	612263	
==>n    VTABLE_set_attr(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	13467	13592	
==>N;
     $tag = $class . $tag;
   }

   return sprintf <<'END',
{\info{\doccomm
%s
 using %s v%s
 under Perl v%s at %s GMT}
{\a <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	8023	8152	
==>ext ]),
              $rfail => $self->dbprint("R in group failed\n"),
                        aop('popint', [ '<tmp>', 'group end <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	12979	13154	
==>$P1 = shift op2 # ignore p1, we're discarding it
    dec op1
    goto pos_loop

neg_loop:
    if op1 == 0 goto done
    $P1 = pop op2 # ignore p1, we're discarding it
    inc o <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	177	279	
==>@ISA = qw(Exporter);
@EXPORT = qw(struct);

$VERSION = '0.61';
}
## Tested on 5.002 and 5.003 without c <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	35700	35890	
==>me'}");
		$pir .= "### end post_branch\n";
	}

    # Calls/returns (calling class)
    elsif ($rule->{'class'} eq 'calling') {
		# Init destination types array and params array and set meta-v <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	3196	3528	
==>er',      # coderef to call when a code (non-pod) line is seen
 'cut_handler',       # coderef to call when a =cut line is seen
 #Called like:
 # $code_handler->($line, $self->{'line_count'}, $self) if $code_handler;
 #  $cut_handler->($line, $self->{'line_count'}, $self) if $cut_handler;
  
);

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	16438	16566	
==>actly three elements. For example:
		         <$op->{type}op:leftarg /op/ rightarg>");
	    }
	    else
	    {
		push @{$self->{i <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	11061	11184	
==>undef and nothing else
        my $test = !defined $got && !defined $expect;

        $self->ok($test, $name);
        $self <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	11479	11602	
==>undef and nothing else
        my $test = !defined $got && !defined $expect;

        $self->ok($test, $name);
        $self <==
2	/Users/nnunley/parrot/lib/Test/More.pm	4001	4478	
==>an() function.  Useful for when you
have to calculate the number of tests.

  use Test::More;
  plan tests => keys %Stuff * 3;

or for deciding between running the tests at all:

  use Test::More;
  if( $^O eq 'MacOS' ) {
      plan skip_all => 'Test irrelevant on MacOS';
  }
  else {
      plan tests => 42;
  }

=cut

sub plan {
    my(@plan) = @_;

    my $idx = 0;
    my @cleaned_plan;
    while( $idx <= $#plan ) {
        my $item = $plan[$idx];

        if( $item eq 'n <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	8517	8647	
==>ere!
  }

  $self->{'source_fh'} = $handle;
  DEBUG and print "  Its handle is $handle\n";
  return 1;
}

# ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478888	478989	
==>r, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({{\@1}} / den);\n  {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479780	479881	
==>r, NULL, E_ZeroDivisionError,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({{\@1}} / den);\n  {{+= <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	44404	44515	
==>\G\s*"((\\\\["\\\\]|[^"])*)"};
my $SUBRULE		= '\G\s*(\w+)';
my $MATCHRULE		= '\G(\s*<matchrule:)';
my $SIMPLEPAT <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827322	827534	
==>> [
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 146 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack_ent <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	27362	27487	
==>nonical_form ) {
      # We found a good N => elementname mapping
      $self->{'accept_codes'}{$new_letter} = $canonical_form <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	15517	15644	
==>ename'} || 'Pod input', $line, $complaint;
}

sub _complain_errata {
  my($self,$line,$complaint) = @_;
  if( $self->{'no_errata <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27280	27382	
==>ranslate for $rule->{'name'}");

		# If we have PIR for the instruction, just take that. If not, we nee <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34419	34521	
==>ranslate for $rule->{'name'}");

		# If we have PIR for the instruction, just take that. If not, we nee <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	4759	4921	
==>it_cpu) {
                # no address of
                $asm =~ s/&([INSP])REG/$1REG/g;
                $asm =~ s/&CONST/CONST/g;
                # Use the macro <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19836	19961	
==>[1] ]); }
	],
	[#Rule 15
		 'expr', 2,
sub
#line 121 "lib/Regex/Grammar.y"
{ return op('multi_match' => [ 1, -1, TRUE, $_[1] ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43157	43416	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pushmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43800	44059	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pushmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i" <==
2	/Users/nnunley/parrot/config/gen/platform.pm	4410	4598	
==>clude "parrot/parrot.h"

END_HERE

    for (@impls) {
        my $impl_file = "config/gen/platform/generic/$_";
        if (-e "config/gen/platform/$platform/$_") {
            $impl_file = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	5294	5406	
==>k {
  my($self, $token) = @_;
  my $type = $token->attr('type');
  if(!defined $type) {
    $self->whine("Typeles <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	9554	9681	
==>my $enc_error;

  # Cf.   perldoc Encode   and   perldoc Encode::Supported

  require Pod::Simple::Transcode;

  if( $self->{'en <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	2723	2830	
==>= shift;

  return $self->{BLOCKS}[shift];
}


#
# block_depth()
#
# Block depth zero is when the only block <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2739	2939	
==>\w+$/.c/;

            _write_a_file($generator, $h, $c);
        }
    }
}

=item C<gen_h>

Writes the header file for the library.

=cut

sub gen_h {
    my ($self) = @_;
    my $hout = dont_edit('va <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	342643	343217	
==>,
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 401,
                  "ARGS" => [
                              "i",
                              "p",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 12 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	341644	342204	
==>,
                  "FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 400,
                  "ARGS" => [
                              "i",
                              "p",
                              "i",
                              "ic"
                            ],
                  "BODY" <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	2645	2836	
==>q 'def') {
                if (/#define\s+(\w+)\s+(-?\w+|".*?")/) {
                    local $_ = "$prefix$1\t$2";
                    eval $subst if ($subst ne '');
                    print <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8654	8810	
==>0
#DBG>			and	do {
#DBG>				print STDERR "**End of Error recovery.\n";
#DBG>				$dbgerror=0;
#DBG>			};

			    push(@$stack,
                     [ $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8264	8413	
==>0
#DBG>			and	do {
#DBG>				print STDERR "**End of Error recovery.\n";
#DBG>				$dbgerror=0;
#DBG>			};

			    push(@$stack,
                     [ $ <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	8183	8332	
==>* Local variables:
        * c-indentation-style: bsd
        * c-basic-offset: 4
        * indent-tabs-mode: nil
        * End:
        *
        * v <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	3079	3186	
==>* Local variables:
 * c-indentation-style: bsd
 * c-basic-offset: 4
 * indent-tabs-mode: nil
 * End:
 *
 * v <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	3961	4074	
==>x_stack = new IntList
    rx_match = _default(1, rx_input, 0, rx_stack)
    .return (rx_match)
    end
.end
END

} <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	1825	1967	
==>T => "char **",
     );

my %other_decl =
     ( p => "PMC *final_destination = pmc_new(interpreter, enum_class_UnManagedStruct);",
       t => <==
2	/Users/nnunley/parrot/languages/javascript/bootstrap.pm	42	156	
==>Script;

my $runtime = new JavaScript::Runtime;
my $context = $runtime->create_context();

$context->bind_function( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	647120	647533	
==>e",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 723,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#li <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035408	1035522	
==>const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@2}};\n    PMC * const lex_pad = Parrot_fi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036572	1036686	
==>const ctx = CONTEXT(interpreter->ctx);\n    STRING * const lex_name = {{\@2}};\n    PMC * const lex_pad = Parrot_fi <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	4678	4833	
==>{timestamp}[0]  <=> $a->{timestamp}[0]
    } @{ $cats{$_} })
    [0..MAX_SMOKES_OF_SAME_CATEGORY-1]
  ] for keys %cats;

  my %delete = map { $_->{filename} <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	47643	47775	
==>24 "Lua\lua51.yp"
{
            BuildIf( $_[0], $_[1], $_[2], $_[3], $_[6] );
        }
	],
	[#Rule 19
		 'stat', 4,
sub
#lin <==
2	/Users/nnunley/parrot/config/auto/jit.pm	857	971	
==>t';        # base path for jit sources
    my $archname = $Config{archname};
    my ($cpuarch, $osname) = split(/-/ <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	319	416	
==>clarations in
the F<*.pmc> or F<*.c> files that correspond to the F<*.o> files passed
on the comma <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	7578	7785	
==>ert(n < st->src.n);
    Parrot_fetch_arg_nci(interpreter, st);

    return UVal_int(st->val);
}

static FLOATVAL
get_nci_N(Interp *interpreter, struct call_state *st, int n)
{
    assert(n < st->src.n);
    P <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	34428	34546	
==>f->{Expected_Tests} ) {
            my $num_extra = $self->{Curr_Test} - $self->{Expected_Tests};
            my $s = $ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	25988	26080	
==>e{$seg}->{code}}, <<NEXT;
	add $ps->{var}, $ps->{var}, FORLOOP_STEP_$ps->{num}
	goto FOR_$ps- <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	26173	26265	
==>e{$seg}->{code}}, <<NEXT;
	add $ps->{var}, $ps->{var}, FORLOOP_STEP_$ps->{num}
	goto FOR_$ps- <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16959	17067	
==>turns the C code for loading a library.

=cut

sub lib_load_code() {
    my $self = shift;

    my $classname <==
2	/Users/nnunley/parrot/config/auto/snprintf.pm	419	661	
==>c_gen cc_build cc_clean cc_run);

$description = 'Testing snprintf';

@args = qw(verbose);

sub runstep
{
    my ($self, $conf) = @_;

    cc_gen('config/auto/snprintf/test.in');
    cc_build();
    my $res = cc_run() or die "Can't run the snp <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	31818	31931	
==>eck, $desc) = @_;
    if( $check ) {
        die <<WHOA;
WHOA!  $desc
This should never happen!  Please contact th <==
2	/Users/nnunley/parrot/lib/Test/More.pm	30902	31015	
==>eck, $desc) = @_;
    if( $check ) {
        die <<WHOA;
WHOA!  $desc
This should never happen!  Please contact th <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1228	1327	
==>'* ' }
sub start_item_number { $_[0]{'Thispara'} = $FREAKYMODE ? '' : "$_[1]{'number'}. "  }
sub sta <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2499	2646	
==>print "Wrong"
if 5>=5 then print "Ok" else print "Wrong"
if 4>=5 then print "Wrong" else print "OK"

' Exit for, count 1-3
for i=1 to 5
  if i=4 the <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5023	5166	
==>rn undef if ! defined $kidmax;
        $maxlen += $kidmax;
    }
    return $maxlen;
}

sub startset {
    my $op = shift;
    my %start;
    fo <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	2802	2967	
==>s a list of tokens and turns it into a tree structure.

=head1 AUTHOR

Jeffrey Goff, drforr@hargray.com

=head1 SEE ALSO

L<Scheme>, L<Scheme::Tokenizer>, L<Scheme::G <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	83812	84051	
==>erpreter, compreg_hash, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84718	84957	
==>erpreter, compreg_hash, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bles <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	5317	5482	
==>here
	$stmt->{label}->{reachable} = 1;

	# Loop over the basic block starting at $stmt
	my $prev;
	do {
	    if (ref $stmt->{code}) {
                my @labels = $se <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Compilers.pm	957	1117	
==>'TGE', 'the Tree Grammar Engine',
            'compilers/tge' ),
        $self->new_group( 'PAST', 'the Parrot/Punie Abstract Syntax Tree',
            'compi <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	32217	32360	
==>nt "Ogling L node $treelet->[$i]\n";
        
      # bitch if it's empty
      if(  @{$treelet->[$i]} == 2
       or (@{$treelet->[$i]} == 3 an <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	956	1064	
==>le).
# See docs/submissions.pod on how to recreate this file after SVN
# has been told about new generated fi <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3811	3919	
==>le).
# See docs/submissions.pod on how to recreate this file after SVN
# has been told about new generated fi <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	5996	6131	
==>, "-";
    }
}

if (@NoParrotPrefix) {
    printf "--- No Parrot prefix: %d ---\n", scalar @NoParrotPrefix;
    for my $api (@NoParrotPr <==
2	/Users/nnunley/parrot/lib/Test/More.pm	23939	24118	
==>ncludes optional modules that aren't installed, running under
an OS that doesn't have some feature (like fork() or symlinks), or maybe
you need an Internet connection and one isn't <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4208	4342	
==>h a single input atom (eg a character or
# character class.)
package Regex::Ops::Tree::_atom;

sub minlen { 1 }
sub maxlen { 1 }
sub df <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	7845	8124	
==>ldquo'    , 8220,
 'rdquo'    , 8221,
 'bdquo'    , 8222,
 'dagger'   , 8224,
 'Dagger'   , 8225,
 'permil'   , 8240,
 'lsaquo'   , 8249,
 'rsaquo'   , 8250,
 'euro'     , 8364,
);


# Fill out %Name2character...
{
  %Name2character = ();
  my($name, $number);
  while( ($name, $n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	821442	821713	
==>user_stack);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "lookback",
                  "FL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584731	584985	
==>LL);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585806	586060	
==>LL);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449347	449539	
==>h.ops\"\n  {{\@1}}->vtable->i_absolute(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	328272	328597	
==>u_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 385,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 159 \"src/o <==
2	/Users/nnunley/parrot/languages/converter.pl	1135	1249	
==>'';
		  $return .= $item[1][0] if defined $item[1][0];
		  $return .= " ( $item[3] )(?) ";
		  $return .= $item[5][ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1447	1559	
==>compiler) = @_;

  my $dest_ident = $self->dest;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $le <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1327	1439	
==>compiler) = @_;

  my $dest_ident = $self->dest;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $le <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	1103	1218	
==>rammar file',
	'c' => 'C code',
	'cola' => 'Cola code',
	'cs' => 'C# code',
	'declarations' => 'Library declarations <==
2	/Users/nnunley/parrot/config/inter/lex.pm	883	999	
==>f);

    unless ($conf->options->get('maintainer')) {
        $conf->data->set($util => 'echo');
        $self->set_r <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	880	996	
==>f);

    unless ($conf->options->get('maintainer')) {
        $conf->data->set($util => 'echo');
        $self->set_r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	504625	504941	
==>"TYPE" => "inline",
                  "CODE" => 580,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 631 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@3}};\n  {{+ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	1544	1750	
==>(defined $pos) {
    my $count = scalar(@{$self->{TOKENS}});

    $pos = -1 if $pos < 0;          # Just before the beginning
    $pos = $count if $pos > $count; # Just past the end (in case we get more toke <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16458	16595	
==>LMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
            return $x;
        }
    }

    foreach my $x (@_) 
    {
        # Pod::Si <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4255	4364	
==>/N/;
		$eqnum++;
		$ot1=false($ot1);
		$ot2=false($ot2);
		return(<<CODE, $result);
	set $result, 0.0
	eq $a1, <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	38145	38277	
==>@{$params}, $parser->YYData->{self};
        $parser->YYData->{self} = undef;
    }
    my $fct = new_fct($parser);
    push @opc <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	5077	5264	
==>e = $2 if defined $2;
          #DEBUG > 1 and defined $2 and print "# Setting fname to \"$fname\"\n";
          DEBUG > 1 and print "# Setting nextline to $1\n";
          $self->{'line_c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597151	597436	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613965	614250	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARR <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	941	1081	
==>lf = shift;

    # We have to do this because it has the side effect of setting
    # content_seen.
    $self->get_short_title();
    
    re <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2191	2293	
==>under non-ASCII charsets.  Something should be done about that.
  }
  return;
}

#@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2294	2396	
==>under non-ASCII charsets.  Something should be done about that.
  }
  return;
}

#@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	16048	16225	
==>);
           if ($type1 eq 'APLVector') {
               $vector = "op1";
               $scalar = "op2";
			   @order = qw/ $P1 $P2 /;
           } else {
               $vecto <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679473	679894	
==>"NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 762,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122089	122201	
==>equivalent unsigned.\n   */\n  LVALUE_CAST(UINTVAL, {{\@1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	123001	123113	
==>equivalent unsigned.\n   */\n  LVALUE_CAST(UINTVAL, {{\@1}}) >>= {{\@2}};\n  {{+=3}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	16854	16953	
==>+;
	print CODE<<ENDCASE;
	bsr EVALEXPR
	bsr TRUTH
	ne I1, 1, CASE_${jump}_${incase}
ENDCASE
	$select <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	36979	37150	
==>=> 1,
            'result' => $defn,
        );
        my $nil = BuildLiteral( $parser, 'nil', 'nil' );
        push @opcodes2, @{ $nil->[1] };
        push @opcodes2 <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	10506	10694	
==>def;
	}
	if (!defined($return) && defined($score))
	{'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
					  q{' . $self->{"name"} .'})
						if def <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	567	663	
==>section's groups by studying the
contents of C<@Parrot::Configure::steps>.

=cut

sub config_grou <==
2	/Users/nnunley/parrot/lib/Test/More.pm	2914	3014	
==>is basically declares
how many tests your script is going to run to protect against premature
failure <==
2	/Users/nnunley/parrot/lib/Test/More.pm	32136	32286	
==>ten:

    is_deeply( [sort @this], [sort @that] );

B<NOTE> By historical accident, this is not a true set comparision.
While the order of elements doe <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10307	10433	
==>ne 1 "lib/Regex/Grammar.y"


use constant TRUE => "TRUE";
use constant FALSE => 0;

sub tokenize {
    my $data = shift;

    m <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	841	933	
==>ot UNIVERSAL::isa($type, qw(Jako::Construct::Type));
  confess "Value (" . ref($value) . ") i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761418	761529	
==>({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_PMC({{\@1}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762271	762382	
==>({{\@1}} < 0 || {{\@1}} >= NUM_REGISTERS)\n        PANIC(\"Out of bound register access\");\n    REG_PMC({{\@1}} <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	2782	2905	
==>e is to be generated,
to dump info (PMC metadata).

This function is exported.

=cut

sub dynext_load_code {
    my ($libnam <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596202	596458	
==>} = VTABLE_subclass(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597095	597351	
==>} = VTABLE_subclass(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	3860	4017	
==>n->tagname;

    # We make the code tags in items bold because they are almost
    # always part of function and arguments, or constants listings
    #and sh <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	12228	12364	
==>ub post_call {
    # Nothing to do.
    return "";
}

sub pop_all {
    return "stack_depth = -1\nlazy_moves = new ResizablePMCArray\n"
} <==
2	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	685	793	
==>`;
	if ($output) {
		print "compile_cs failed:\n$output";
		return 0;
	}
	
	# Clean up file.
	unlink "$file_n <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	5428	5663	
==>, @warns;
            }
            $warns = join ' ', @warns;
        }
    }

    if (defined $conf->options->get('miniparrot') && $gccversion) {

        # make the compiler act as ANSIish as possible, and avoid enabling
        # su <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression.pm	278	373	
==>strict;
eval "use warnings";

package Jako::Construct::Expression;

use base qw(Jako::Construct) <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	8341	8433	
==>($balanced, $remaining) = extract_balanced($code);

Remove a balanced {} construct from the b <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	779	942	
==>ns, $ccwarn);
    $ccwarn = $conf->data->get('ccwarn');

    # Set gccversion to undef.  This will also trigger any hints-file
    # callbacks that depend on knowin <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	348	455	
==>turn $self;
}

sub init {
    my $self = shift;
    $self->{state} ||= Regex->global_state();
}

sub mklabel <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791628	791890	
==>table->get_pmc_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792535	792797	
==>table->get_pmc_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	2459	2603	
==>ibly wrong.

If all your tests passed, Test::Simple will exit with zero (which is
normal).  If anything failed it will exit with how many failed. <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	3702	3858	
==>path()>

Returns the path of the containing directory.

=cut

sub parent_path
{
    my $self = shift;
    
    return $self->{PARENT_PATH};
}

=item C<stat() <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	3986	4096	
==>exit 0;
}    
# else check strictly against ops.num and renumber
else {
    load_op_map_file();

    my $cur_co <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	9293	9402	
==>h_func {
	local $_=$_[0];
	s/\$$/dollar/;
	s/\%$/int/;
	s/\&$/long/;
	s/\!$/single/;
	s/\#$/double/;
	return $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686774	687381	
==>MP" => 0,
                  "NAME" => "getprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 771,
                  "ARGS" => [
                              "p",
                              "sc",
                              "p"
                            ],
                  "BODY" => "#line 563 \"src/ops/pmc.ops\"\n   {{\@1}} = {{\@3}}->vtable->getprop(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685885	686351	
==>MP" => 0,
                  "NAME" => "getprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 770,
                  "ARGS" => [
                              "p",
                              "s",
                              "p <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	15975	16103	
==>)>

=item C<esc($string)>

Reimplemented here to silence a C<Pod::Simple::HTML> warning.

=cut

sub esc 
{
    if ( defined wanta <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	41164	41587	
==>=> [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 52,
                  "ARGS" => [
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 720 \"src/ops/core.ops\"\n  if ({{\@1}} == EXCEPT_doomed)\n    _exit({{\@ <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1517	1777	
==>I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
print "Elapsed time:  $N2\ <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1517	1777	
==>I4, REDO
                              #
DONE:                         # DONE:
$N5 = time_hires();           # time   N5
                              #
$N2 = $N5 - $N1;              # sub    N2, N5, N1
                              #
print "Elapsed time:  $N2\ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2342	2441	
==>SHARING;
	# Sharing $stype $var with main  (array=$array)
	P0= P10[0]
	P1= P0["$stype"]
	P0= P1["$va <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	2569	2668	
==>SHARING;
	# Sharing $stype $var with main  (array=$array)
	P0= P10[0]
	P1= P0["$stype"]
	P0= P1["$va <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653508	653611	
==>eption(interpreter, resume, METH_NOT_FOUND,\n            \"Method '%s' not found\", string_to_cstring(in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654669	654772	
==>eption(interpreter, resume, METH_NOT_FOUND,\n            \"Method '%s' not found\", string_to_cstring(in <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	2656	2868	
==>)) {
            # Do nothing.

        # Have we got a non-blank line when we've got no method specified yet?
        } elsif (!$cur_method) {
            die "Syntax error at line $line_count\n";

        # Have <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	42357	42455	
==>gh C<extract_tagged> is not currently implemented that way, in order
to preserve pre-5.005 compatib <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	24812	25029	
==>ex_num} . '_' . $idf;
        $defn = new defn( $name, 'local', 'pmc', undef, $idf );
        push @opcodes, new LocalDir( $parser,
            'prolog' => 1,
            'result' => $defn,
        );
        pus <==
2	/Users/nnunley/parrot/lib/Test/More.pm	51	150	
==>st::Builder;


# Can't use Carp because it might cause use_ok() to accidentally succeed
# even thoug <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	7609	7705	
==>d_inst('', 'set', [$copy.'[1]',$temp]);
  $self->_add_inst('', 'set', [$copy,$temp]);
  $self->_a <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2217	2344	
==>ph_buffer;
      next;
    }


    if( $self->{'line_count'}++ ) {
      ($line = $source_line) =~ tr/\n\r//d;
       # If we do <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7949	8054	
==>arameter register list.
${PARAMS}[${ITEMP0}] = ${STEMP0}

# Next parameter.
dec stack_depth
goto pre_call_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16130	16288	
==>TIONS => {
			"}" => 87,
			"-" => 24,
			'NAME' => 91,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING' => 29,
			"(" => 40 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11447	11597	
==>eturn a result register, or something.
	my($lhs,@stream)=@_;
	my(@code,@work);

	my $oneop=0;
	my $optype="N";
	my $result="";
	foreach my $token (@str <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	634	746	
==>his module in a standalone parser make the included
# text under the same copyright as the Parse::Yapp module it <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	615	726	
==>his module in a standalone parser make the included
# text under the same copyright as the Parse::Yapp module it <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6868	6979	
==>"$pmc.c", "$pmc.pmc")) {
        run("$PMC2C --c $pmc.pmc")
          or die "pmc2c code generation failed ($?)\ <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7079	7190	
==>"$pmc.c", "$pmc.pmc")) {
        run("$PMC2C --c $pmc.pmc")
          or die "pmc2c code generation failed ($?)\ <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	1716	1897	
==>ptions );
        if ( $skip_why ) {
            $self->{builder}->skip( $skip_why );
        } else {
            # STDERR is written into same output file
            my $exit_code <==
2	/Users/nnunley/parrot/languages/converter.pl	988	1097	
==>em[6][0];
		}
#		| terminal(?) '[' production ']' mod(?) production(?)
		| terminal(?) '[' production ']' prod <==
2	/Users/nnunley/parrot/config/inter/lex.pm	2254	2377	
==>?lex .*? (\d+) \. (\d+) \. (\d+)/x) {
        $conf->data->set(flex_version => "$1.$2.$3");
    }

    $conf->data->set($uti <==
2	/Users/nnunley/parrot/lib/Test/More.pm	5185	5325	
==>ber in order.  This is
largely done automatically for you.  However, it's often very useful to
assign a name to each test.  Which would you r <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	245	339	
==>lass for the Parrot op to C
transforms. Each transform contains various bits of information nee <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	9665	9809	
==>e_opfunc[$i]}[1];

    my $jit_func;
    my $op = $Parrot::OpLib::core::ops->[$i];

    $precompiled = 0;
    if (!defined $body) {
        $prec <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1899	2001	
==>start_over_text    { ++$_[0]{'Indent'} }
sub start_over_block   { ++$_[0]{'Indent'} }

sub   end_over_b <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1467	1569	
==>start_over_text    { ++$_[0]{'Indent'} }
sub start_over_block   { ++$_[0]{'Indent'} }

sub   end_over_b <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	4904	5033	
==>SS$_ABORT         something went wrong

Unfortunately, I can't differentiate any further.


=head1 NOTES

Test::Simple is B<explic <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	3233	3398	
==>('config/auto/sizes/test2_c.in');
            cc_build();
            %hugeintval = eval cc_run();
            cc_clean();
        };

        # clear int8_t on error <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3357	3516	
==>sequences of files with the
			# same description.
			
			push @contents, 
				map {$self->new_item('', $_)} 
					$self->file_paths_relative_to_source($source, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	218671	218851	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 469 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vt <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	219650	219830	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 469 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vt <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6272	6379	
==>= "Seattle"
Max = 4 'UBOUND(A$)
Exchange=TRUE           ' Force first pass through the array.
WHILE Exchange <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15925	16032	
==>= "Seattle"
Max = 4 'UBOUND(A$)
Exchange=TRUE           ' Force first pass through the array.
WHILE Exchange <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	21916	22044	
==>s, $i, $treelet); # scratch
  while($treelet = shift @stack) {
    DEBUG > 3 and print " Considering children of this $treelet->[ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	60929	61077	
==>er->YYData->{scope}       = [];
    $parser->YYData->{scopef}      = [];
    $parser->YYData->{symbtab}     = new SymbTabVar($parser);
    $parser <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	16516	16625	
==>E<<OPS;
	I5= P14
	div I5, I5, 2
CASE_${jump}_${incase}_STARTOPS:
	eq I5, 1, CASE_${jump}_${incase}_NO_OP
	push <==
2	/Users/nnunley/parrot/config/auto/env.pm	391	508	
==>::Configure::Step ':auto';

$description = 'Determining if your C library has setenv / unsetenv';
@args        = qw(ve <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	2064	2297	
==>%ld)",
        n   => "NREG(%ld)",
        p   => "PREG(%ld)",
        s   => "SREG(%ld)",
        k   => "PREG(%ld)",
        ki  => "IREG(%ld)",

        ic  => "cur_opcode[%ld]",
        nc  => "CONST(%ld)",
        pc  => "CONST(% <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	482	588	
==>eft, $op, $right) = @_;

  confess "Block is not defined!" unless defined $block;
  confess "Left is not de <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	494	600	
==>eft, $op, $right) = @_;

  confess "Block is not defined!" unless defined $block;
  confess "Left is not de <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3006	3134	
==>t,
    #"\n"
  ;
  $self->{'Thispara'} = '';
  
  return;
}

# . . . . . . . . . . And then off by its lonesome:

sub end_Verbati <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2540	2660	
==>t, "\n";
  $self->{'Thispara'} = '';
  
  return;
}

# . . . . . . . . . . And then off by its lonesome:

sub end_Verbati <==
2	/Users/nnunley/parrot/lib/Test/More.pm	18698	18927	
==>" );

    unless( $ok ) {
        chomp $@;
        $Test->diag(<<DIAGNOSTIC);
    Tried to require '$module'.
    Error:  $@
DIAGNOSTIC

    }

    return $ok;
}


sub _is_module_name {
    my $module = shift;

    # Module names <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105607	105905	
==>it.ops\"\n  {{\@1}} |= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	106345	106643	
==>it.ops\"\n  {{\@1}} |= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor", <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5013	5139	
==>bal \"$dest_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  my $b <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3076	3202	
==>bal \"$dest_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  my $b <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	826	933	
==>Francois Desarmenien, all rights reserved.
# (see the pod text in Parse::Yapp module for use and distributi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	802	908	
==>Francois Desarmenien, all rights reserved.
# (see the pod text in Parse::Yapp module for use and distributi <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	2216	2353	
==>ed library.

=cut

sub write_all_files {
    my $self = shift;
    my $library = $self->{opt}{library};

    if ($library) {
        my $h <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18870	19130	
==>> 85,
			'OR' => 84,
			">" => 86
		}
	},
	{#State 51
		ACTIONS => {
			'NAME' => 103
		}
	},
	{#State 52
		DEFAULT => -87
	},
	{#State 53
		DEFAULT => -48
	},
	{#State 54
		ACTIONS => {
			'NAME' => 104
		},
		GOTOS => {
			'funcname' => 1 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	52874	53025	
==>] ];
        }
	],
	[#Rule 55
		 'exp', 1, undef
	],
	[#Rule 56
		 'exp', 1,
sub
#line 335 "Lua\lua51.yp"
{
            BuildCallVariable( $_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	3793	3932	
==>= $2;
        }

        # Are we at the end of a heredoc?
        elsif ($in_heredoc && /^$heredoc_terminator\s*$/) {
            # Stash k <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	13679	13913	
==>r (i = 0; i < OP_HASH_SIZE; i++)
            for (p = hop[i]; p; ) {
                next = p->next;
                free(p);
                p = next;
        }
        free(hop);
    }
    hop = 0;
}

END_C

}
else {
    print SOURCE <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	1702	1812	
==>tem('', 'Configure.pl'),
		$self->config_groups,
        $self->new_group('Documentation', '',
		    $self->new <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	14755	14882	
==>{#State 29
		DEFAULT => -8
	},
	{#State 30
		ACTIONS => {
			'NUM' => 49,
			'CHAR' => 47,
			"]" => 50
		},
		GOTOS => {
			'cl <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5829	5935	
==>ir = '';

	# Branches mean we need to deal with basic block-ish stuff. If the branch
	# did not pop anythin <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3767	3873	
==>ir = '';

	# Branches mean we need to deal with basic block-ish stuff. If the branch
	# did not pop anythin <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	1465	1660	
==>char",
       s => "short",
       2 => "short *",
       f => "float",
       d => "double",
       t => "char *",
       v => "void",
       J => "Interp *",
       P => "PMC *",
       O => "PM <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6314	6451	
==>y($subpat);

        $pirCode .= qq(
            name = "$name"
            subpat = "$subpat"
            rulesub = p6rule_compile(subpat <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5973	6076	
==>n.org>

=head1 SEE ALSO

F<docs/configuration.pod>, L<Parrot::Configure::Data>,
L<Parrot::Configure::Ste <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031388	1031503	
==>,
                  "BODY" => "#line 323 \"src/ops/sys.ops\"\n    if ({{\@2}} < enum_first_type || {{\@2}} >= enum_l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032257	1032372	
==>,
                  "BODY" => "#line 323 \"src/ops/sys.ops\"\n    if ({{\@2}} < enum_first_type || {{\@2}} >= enum_l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78300	78628	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlvar",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79820	80148	
==>p' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlvar",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	639732	639829	
==>g_op[2]);\n\t  break;\n      default:\n\t  internal_exception(UNIMPLEMENTED, \n\t\t  \"uninplement <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	1475	1593	
==>e position.
#

sub pos
{
  my $self = shift;
  my ($pos) = @_;

  if (defined $pos) {
    my $count = scalar(@{$self->{ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	36362	36498	
==>?'           => \&_op_char_lt_p,
  'char>?'           => \&_op_char_gt_p,
  'char<=?'          => \&_op_char_le_p,
  'char>=?'          = <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	27764	27896	
==>backs;
      DEBUG > 2 and print
       "Extensor maps $new_letter => fallbacks @fallbacks.\n";
    }

  } else {
    DEBUG > 2 and p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2150	2254	
==>lue);
      $self->SYNTAX_ERROR("Undefined identifier '%s'.", $args[$i]->value) unless $arg_sym;
      $a <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1850	1954	
==>lue);
      $self->SYNTAX_ERROR("Undefined identifier '%s'.", $args[$i]->value) unless $arg_sym;
      $a <==
2	/Users/nnunley/parrot/config/auto/funcptr.pm	19	107	
==>1-2003, The Perl Foundation.
# $Id: /parrot/config/auto/funcptr.pm 19593 2006-05-30T02:28 <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21440	21532	
==>:RD_TRACE;').'
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Matched act <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	4986	5139	
==>ret = $step->runstep($self);
            }
        };
        if ($@) {
            carp "\nstep $step_name died during execution: $@\n";
            retu <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2594	2698	
==>fined $actual_arg_type;

    if ($formal_arg_type->name ne $actual_arg_type->name) {
      my $temp = $co <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2294	2398	
==>fined $actual_arg_type;

    if ($formal_arg_type->name ne $actual_arg_type->name) {
      my $temp = $co <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	506	609	
==>e qw( Parrot::Docs::Item );

=item C<new_group($name, $text, @items)>

Returns a new group.

Use this wh <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	4072	4248	
==>)
#
# Moves the current token position $offset tokens backward. Returns the new
# absolute position.
#

sub back
{
  my $self = shift;
  my ($offset) = @_;

  $offset = 1 unless <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	234643	234859	
==>i",
                              "nc",
                              "n"
                            ],
                  "BODY" => "#line 599 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} < {{\@3}} ? -1 :\n       {{\@2}} <==
2	/Users/nnunley/parrot/config/auto/pack.pm	2219	2341	
==>e
    # for pointers.
    #

    if ($intsize == $ptrsize) {
        $conf->data->set(ptrconst => "u");
    } elsif ($longs <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48881	49128	
==>ARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "bounds",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inlin <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	14962	15190	
==>rgs "$code_f"},
                        qq{$parrot "$pbc_f"},
                    ];
                } else {
                    $cmd = qq{$parrot $args "$code_f"};
                }
                $exit_code = run_command($cmd <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363437	363535	
==>ops/io.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, \"%f\", (doubl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	364340	364438	
==>ops/io.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, \"%f\", (doubl <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6102	6259	
==>Op {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH} "  ";
        if ( exists $op->{result} and sca <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	273	415	
==>rser
# ----------------------------
# match : Match a single codepoint
# charclass : Match a character class
# seq
# alternate : Match R or S a <==
2	/Users/nnunley/parrot/examples/benchmarks/arriter.pl	594	804	
==>65 + $i);
    push @k, $s;
}


# set up all 5 element permutations of qw( A B C D E F G H I J )
for my $e (0..3) {
    for ($i = 0; $i < 10; $i++) {
	for $s (@k) {
	    my $nk = $s . chr(65 + $i);
	    push @nk, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	514185	514511	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	515065	515391	
==>\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pow",
                  "FLAG <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	7147	7293	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

# $self->{'source_filename'} = $source;

sub set_source {
  my $self <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	3343	3436	
==>arrot::Docs::Section::Config>

=item C<Parrot::Docs::Section::Tests>

=item C<Parrot::Docs::Se <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	23622	23800	
==>s"
				feedme; # type...
				if (exists $th{$syms[CURR]}) {
					$type=$th{$syms[CURR]};
				} elsif (exists $usertypes{$syms[CURR]}) {
					$type="USER";
					$ut=qq{\tP2["userty <==
2	/Users/nnunley/parrot/lib/Test/More.pm	37409	37509	
==>002, 2004 by Michael G Schwern E<lt>schwern@pobox.comE<gt>.

This program is free software; you can r <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	6369	6469	
==>002, 2004 by Michael G Schwern E<lt>schwern@pobox.comE<gt>.

This program is free software; you can r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	287434	287534	
==>ops/cmp.ops\"\n  {{\@1}} = (mmd_dispatch_i_pp(interpreter, {{\@2}}, {{\@3}}, MMD_CMP) < 0);\n  {{+=4} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	43215	43316	
==>t a formatty line preceding a nonformatty one
    DEBUG > 5 and print "Scrutinizing line $i: $$p[$i]\n <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	32241	32372	
==>value'"
            );
            push @$para, $para->[1]{'~orig_content'};
              # restore the bullet, blocking the assimi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	14138	14310	
==>CTIONS => {
			"?" => 43
		},
		DEFAULT => -15
	},
	{#State 25
		ACTIONS => {
			"?" => 44
		},
		DEFAULT => -19
	},
	{#State 26
		ACTIONS => {
			"(" => 10,
			'CHAR' => 4, <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	1013	1137	
==>ogs);
our %EXPORT_TAGS = (
    inter => [ qw(prompt integrate) ],
    auto  => [ qw(cc_gen cc_build cc_run cc_clean cc_run_ca <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	12091	12290	
==>ouble)GET_NCI_N($reg_num);";
        return "t_$temp_num";
    };
    /N/ && do {
        push @{$temps_ref}, "FLOATVAL t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = G <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2557	2657	
==>%s)!", ref $args[$i])
      unless defined $actual_arg_type;

    if ($formal_arg_type->name ne $actu <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2257	2357	
==>%s)!", ref $args[$i])
      unless defined $actual_arg_type;

    if ($formal_arg_type->name ne $actu <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16622	16820	
==>Dir( $parser,
                    'result' => $result,
                );
                push @opcodes, new FindLexOp( $parser,
                    'result' => $result,
                    'arg <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10798	10970	
==>Dir( $parser, 'result' => $result, );
                    push @opcodes, new FindLexOp( $parser,
                        'result' => $result,
                        'arg <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	518781	518974	
==>"n",
                              "nc"
                            ],
                  "BODY" => "#line 734 \"src/ops/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	1059	1176	
==>path <whitespace> [package]meta1,meta2,...

or you may optionally specify a different destination path:

    source_pa <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10320	10415	
==>pc, next_pc, bc_length, cur_ic, pop_count, label_num, sp_dest
    .local int i, j, type, try_off <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2890	2988	
==>arser->Error("Untermined string.\n");
    $parser->YYData->{lineno}++;
    return ( $type, $str ) <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	4405	4503	
==>arser->Error("Untermined string.\n");
    $parser->YYData->{lineno}++;
    return ( $type, $str ) <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	7344	7454	
==>rces = map { "$_$O" } @$stems;
    if (needs_build("$group$LOAD_EXT", @sources)) {
        run(partial_link_cmd <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7555	7665	
==>rces = map { "$_$O" } @$stems;
    if (needs_build("$group$LOAD_EXT", @sources)) {
        run(partial_link_cmd <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8604	8747	
==>got_it:
    inc pos
    push result, pos
    .return (result)
no_gots:
    push result, not_there
    .return (result)
.end

.sub unicode:"dyadi <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	7637	7773	
==>ut eq $err ) {
        $err = "&STDOUT";
    }

    local *OLDOUT if $out;
    local *OLDERR if $err;

    # Save the old filehandles; we <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7689	7824	
==>ut eq $err) {
        $err = "&STDOUT";
    }

    local *OLDOUT if $out;
    local *OLDERR if $err;

    # Save the old filehandles; we <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644080	644335	
==>->type_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	644973	645228	
==>->type_keyed_int(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	1816	1910	
==>isa('Parrot::Docs::Section::Parrot');
}

=item C<html_link($path)>

Returns the HTML link for t <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1345	1446	
==>just so happens that link-sections are about the only treelets
# that are exposed to the user.

1;

__ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	6664	6822	
==>sensible to link directly to. Suffixes other than txt are a
	# problem (for me at least) because the browser thinks it should
	# download the file.
	
	if ( $se <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19991	20107	
==>ssion, but here its treated as a statment with the assign.
      #

      my $call = Jako::Construct::Expression::Cal <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	15943	16038	
==>r!
  }
  return 1;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5410	5533	
==>, or copy\n";
}

sub run {
    print join(" ", @_), "\n";

    return system(@_) == 0;
}

# XXX: ordering of libs might be c <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5621	5744	
==>, or copy\n";
}

sub run {
    print join(" ", @_), "\n";

    return system(@_) == 0;
}

# XXX: ordering of libs might be c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	317274	317503	
==>nv_i2_ovf",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 37 <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1022	1121	
==>K = ((1 << 16) << 16) ? ' & ' . MAX : '';
#	FF => "X0=rotate_left(((X1&X2)|(~X1&X3))+X0+X4+X6$MSK,X5 <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	21847	22221	
==>tarray)
		{
			use Carp;
			carp "extract_multiple reset maximal count to 1 in scalar context"
				if $^W && defined($_[2]) && $max > 1;
			$max = 1
		}

		my $unkpos;
		my $func;
		my $class;

		my @class;
		foreach $func ( @func )
		{
			if (ref($func) eq 'HASH')
			{
				push @class, (keys %$func)[0];
				$func = (values %$func)[0];
			}
			else
			{
				push @class, un <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563147	563454	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addmethod",
                  "FLAGS" => ":ob <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564044	564351	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "addmethod",
                  "FLAGS" => ":ob <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048299	1048406	
==>Tried to get null global.\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_global(interpreter, NULL, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049223	1049330	
==>Tried to get null global.\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_global(interpreter, NULL, {{\ <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3852	3967	
==>ib-GROUP.c
    for my $group (keys %$group_files) {
        compile("$group", "lib-$group")
          or die "compil <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3956	4071	
==>ib-GROUP.c
    for my $group (keys %$group_files) {
        compile("$group", "lib-$group")
          or die "compil <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	51905	52046	
==>routine takes a string to be processed and a 
list of extractors (subroutines or regular expressions) to apply to that string.

In an array co <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	33912	34037	
==>';
    if ($method->{type} ne 'void') {
        my $type = $method->{type};
        $ret_def = "$type ret_val;";
        $func <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	5329	5495	
==>/$ignore/;
            
            push @files, $dir->files(1, $ignore);
        }
    }
    
    return @files;
}

=item C<directories()>

This gives you an array of <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835682	835773	
==>ODY" => "#line 215 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ct <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	836435	836526	
==>ODY" => "#line 215 \"src/ops/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ct <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	5318	5545	
==>lar(@non_ansi_external_calls));
    
    foreach (@non_ansi_external_calls) {
        print "    $_:\n";
        foreach (sort keys %{$external_calls{$_}}) {
            print "        $_\n";
        }
    }

    print "\nThe fo <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	3644	3761	
==>)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, $1 eq '[' ? 'open-bracket' : 'close-bracket', undef <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	13733	13829	
==>nt() { return $core_numops; }
EOC
}

print("jit2c: JITed $njit (+ $vjit vtable) of $core_numops o <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	1274	1432	
==>ative to the
C<$target> argument in C<write_html()>. There should be at least one
path otherwise an exception is raised.

=cut

sub new
{
    my $self = ref $_ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24158	24265	
==>.PerlHash
	\$P2 = new .PerlArray
	\$P3 = new .PerlHash
	\$P3["index"]=\$P2
	\$P3["hash"]=\$P0
	find_global \ <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	5980	6145	
==>len(argv[i]),
                                  0, PObj_external_FLAG, 0);

        if (Interp_flags_TEST(interpreter, PARROT_DEBUG_FLAG)) {
            fprintf(stder <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	529062	529527	
==>IRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 611,
                  "ARGS" => [
                              "n",
                              "nc",
                              "n"
                            ],
                  "BODY" => "#line 838 \"src/ops/math.ops\"\n  {{\@1}} = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	50785	51055	
==>childless element
          push @{ $lineage[-1] }, ''; # keep it from being really childless
        }

        pop @stack;
        pop @lineage;
      } else {
        DEBUG > 4 and print " It's just stuff.\n";
        push @{ $lineage[-1] }, $4;
      }

    } elsif(d <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	7098	7258	
==>lpthread -lm',
             'inc' => 'include/parrot',
             'include_dir' => '/opt/local/include',
             'inline' => 'inline',
             'int2_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	11435	11586	
==>@@@

sub parse_string_document {
  my $self = shift;
  my @lines;
  foreach my $line_group (@_) {
    next unless defined $line_group and length $line_g <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	32332	32462	
==>ne in which
	# doubling the quote character escapes it) from the very
	# beginning of $text:

		$substring = extract_delimited($tex <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	44635	44769	
==>re($temp);
  $self->_add_inst('',"end");

  $self->_format_columns;

  # not need any more
  $self->{instruction} = undef;
  $self->{re <==
2	/Users/nnunley/parrot/Configure.pl	4998	5205	
==>al Options:

   --help               Show this text
   --version            Show version information
   --verbose            Output extra information
   --verbose=2          Output every setting change
   --v <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3012	3134	
==>ndex < 0
	and	-$index <= @{$$self{STACK}}
	and	return $$self{STACK}[$index][1];

	undef;	#Invalid index
}

sub YYCur <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2866	2981	
==>ndex < 0
	and	-$index <= @{$$self{STACK}}
	and	return $$self{STACK}[$index][1];

	undef;	#Invalid index
}

sub YYCur <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966337	966930	
==>"FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1087,
                  "ARGS" => [
                              "i",
                              "i",
                              "sc",
                              "i"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	117	272	
==>coke  $

=head1 NAME

config/inter/pmc.pm - PMC Files

=head1 DESCRIPTION

Asks the user to select which PMC files to include.

=cut

package inter::pmc;

u <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	856	963	
==>ce ['']

END_PIR

my %static_cmds = map { $_ => 1 } @static_cmds;
for my $cmd (@dynamic_cmds) {
    # skip i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	9569	9674	
==>ad2 BLOCK->access_of_ident(NAME)

This is a shortcut method that uses find_symbol() to locate a matching
s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10020	10154	
==>n't get used much

sub needparen { 0 }

# Nonportable
sub isplain {
    my $ord = shift;
    return 1 if $ord >= ord('a') && $ord <= or <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3471	3621	
==>my($self)=shift;

	$$self{LEX};
}


#################
# Private stuff #
#################


sub _CheckParams {
	my($mandatory,$checklist,$i <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3295	3433	
==>my($self)=shift;

	$$self{LEX};
}


#################
# Private stuff #
#################


sub _CheckParams {
	my($mandatory,$checklist,$i <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	1242	1408	
==>ref $_ && $_->{name} eq 'seq') {
		push @pieces, @{$_->{args}};
	    } else {
		push @pieces, $_;
	    }
	}
	return rop('seq', \@pieces);
    } elsif ($type eq 'altern <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33451	33559	
==>ub new ($$$$;$$$)
{
	my $class = ref($_[0]) || $_[0];
	bless 
	{
		"subrule"   => $_[1],
		"lookahead" => $_[ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	447	587	
==>__DIE__}=sub {
	print "At BASIC source line $main::sourceline:\n";
	$_=$_[0];
	s/^(.{1,50})(\S+)\s+(.*)/\t$1$2\n\t$3/;
	print;
	exit 1;
};

g <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	36104	36250	
==>j = 0; $j < @ell_content; ++$j) {
        next if ref $ell_content[$j];
        DEBUG > 3 and
         print "    Peering at L-content text bit \"$ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	37313	37459	
==>j = 0; $j < @ell_content; ++$j) {
        next if ref $ell_content[$j];
        DEBUG > 3 and
         print "    Peering at L-content text bit \"$ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7727	7880	
==>ck;

      my $type_token = $self->skip_type;

      my $type;
      $type = Jako::Construct::Type->new($type_token->type) if $type_token;

      my $iden <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	2504	2611	
==>", ", 'Interp* interpreter', 'PMC* pmc', split(/\s*,\s*/, $entry->[2]));
        $defs .= "typedef $entry->[ <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	1086	1395	
==>ab\n";
                        return $defn;
                    }
                }
            }
            return undef;
        }
    }

    sub Insert {
        my $self   = shift;
        my ($defn) = @_;
        my $symb   = $defn->{name};
##    warn "Insert $symb in $self\n";
        un <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4459	4587	
==>elf) = @_;

    if (@{ $self->{args} } == 0) {
        delete $self->{name};
        delete $self->{args};
        return $self-> <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5596	5724	
==>elf) = @_;

    if (@{ $self->{args} } == 0) {
        delete $self->{name};
        delete $self->{args};
        return $self-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	774871	775246	
==>,
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 875,
                  "ARGS" => [
                              "p",
                              "ki",
                              "ic"
                            ],
                  "BODY" => "#line 377 \"src/ops/set.ops\"\n    { <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31617	31830	
==>$iter = new_tmp( $parser, 'pmc' );
    push @opcodes1, new LocalDir( $parser,
        'result' => $iter,
    );
    if (    scalar( @{$exprs} ) == 0
        and scalar( @{ $expr->[1] } ) != 0
        and $exp <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	13518	13614	
==>tf <<'END',
{\info{\doccomm
%s
 using %s v%s
 under Perl v%s at %s GMT}
{\author [see doc]}{\comp <==
2	/Users/nnunley/parrot/config/auto/pack.pm	2090	2205	
==>acktype_n => ($conf->data->get('numvalsize') == 12 ? 'D' : 'd')
    );

    #
    # Find out what integer constant t <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	5774	5911	
==>unction_coverage_summary();
write_index();

exit(0);


sub write_index {
    print "Writing $HTMLDIR/index.html..\n" if $DEBUG;
    open ( <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	50300	50538	
==>seif_star', 0,
sub
#line 211 "Lua\lua51.yp"
{
            [];
        }
	],
	[#Rule 36
		 'laststat', 2,
sub
#line 218 "Lua\lua51.yp"
{
            BuildReturn( $_[0], $_[2] );
        }
	],
	[#Rule 37
		 'laststat', 1,
su <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9343	9480	
==>t STDERR "**Entering Error recovery.\n";
#DBG>			++$dbgerror;
#DBG>		};

            ++$$nberror;

        };

			$$errstatus == 3 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8923	9052	
==>t STDERR "**Entering Error recovery.\n";
#DBG>			++$dbgerror;
#DBG>		};

            ++$$nberror;

        };

			$$errstatus == 3 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	41739	41999	
==>">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -53
	},
	{#State 179
		DEFAULT => -40
	},
	{#State 180
		DEFAULT => -41
	},
	{#State 181
		DEFAULT => -4,
		GOTOS => {
			'block' => 192,
			' <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	5261	5515	
==>ignal' => 'define',
             'i_socks' => undef,
             'i_stdarg' => 'define',
             'i_stddef' => 'define',
             'i_stdlib' => 'define',
             'i_string' => 'define',
             'i_sunmath' => undef,
             'i_sys <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	626888	627114	
==>E" => 703,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 53 \"src/ops/pmc.ops\"\n  if ({{\@2}} <= 0 || {{\@2 <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	1791	1956	
==>bj',
            cc_o_out   => '-Fo',
            cc_exe_out => '-out:',
            cc_ldflags => '/link',

            # ZI messes with __LINE__
            cc_debu <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3670	3835	
==>bj',
            cc_o_out   => '-Fo',
            cc_exe_out => '-out:',
            cc_ldflags => '/link',

            # ZI messes with __LINE__
            cc_debu <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8656	8737	
==>,"NAVIGATE","PHASERS","QUIT"
data "SHIELDS","SOS","SRSCAN","STATUS","TORPEDO","TRA <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21520	21601	
==>,"NAVIGATE","PHASERS","QUIT"
data "SHIELDS","SOS","SRSCAN","STATUS","TORPEDO","TRA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	816841	817077	
==>),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clears",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 924 <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	4389	4532	
==>' => 'languages/HQ9plus/Makefile',
        commentType                  => '#',
        replace_slashes              => 1,
        conditioned_l <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1449	1572	
==>", ref $type);

  if (UNIVERSAL::isa($type, 'Jako::Construct::Type::String')) {
    my $string = $self->value;

#    $self-> <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	40140	40264	
==>= 0;
		  my  @item;
		  ';

	if ($self->{type} eq "leftop" )
	{
		$code .= '
		  # MATCH LEFTARG
		  ' . $leftarg->code(@_[1. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244019	244287	
==>_compare(interpreter, l, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244951	245219	
==>_compare(interpreter, l, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	1260	1376	
==>rn ("rx_zwa_atend P0, ".$self->output_label_use($failLabel));
}

sub output_pushmark {
    my ($self) = @_;
    retur <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1227	1321	
==>m $token->tag(...)

A shortcut for $token->tagname(...)

=item $token->is_tag(I<somestring>) or <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1657	1751	
==>m $token->tag(...)

A shortcut for $token->tagname(...)

=item $token->is_tag(I<somestring>) or <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	1168	1382	
==>elf->new_item('', 'lib/Parrot/Docs/Group.pm'),
            $self->new_item('', 'lib/Parrot/Docs/Section.pm'),
            $self->new_item('', 'lib/Parrot/Docs/POD2HTML.pm'),
            $self->new_item('', 'lib/Parr <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33624	33756	
==>>[1] } ) != 0
        and $expr->[1]->[-1]->isa('CallOp') )
    {
        push @opcodes2, @{ $expr->[1] };
        my $callop = p <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7740	7844	
==>f s$ then print "This is true" else print "Oops (string)"
s$=""
if s$ then print "Should not happen (stri <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14727	14831	
==>f s$ then print "This is true" else print "Oops (string)"
s$=""
if s$ then print "Should not happen (stri <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	29243	29422	
==>gs}->[1] = 0;
#        return $self->rewrite_group(rop('group', [ $op, $name ]), $op, $name, $lastback);
#    }

    my $uid = "_rule_${name}_" . ++$call_uid;

    my $handle = $se <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	3774	3867	
==>expression.
# By default, all calls are propagated to the subexpression.
package Regex::Ops::T <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791541	791652	
==>],
                  "BODY" => "#line 432 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed_int( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792448	792559	
==>],
                  "BODY" => "#line 432 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed_int( <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	1683	1902	
==>find tests...
        my $output;
        eval {
            $output = format_tests(%tests);
        };
        if ($@) {
            warn "Warning! Unable to extract tests for $file\n";
        } else {
            warn <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	23204	23453	
==>nt
	# type. Thus we assign to meta-variable I_ARG_0, I_ARG_1 etc, let sub_meta
	# do what it needs to, then set ARG0 in the meta-variables table to whatever
	# I_ARG_0 turns out to me. We also keep track of the fact that ARG0 should
	# only exist ins <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	6265	6526	
==>et},
                 \@temps,
                 \@extra_preamble, \@extra_postamble,
                 \@put_pointer,
                 \%proto_type);
}

print_tail( \@put_pointer );

close NCI;


sub print_head {
    my ($definitions) = @_;
    print NCI << "HEAD <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3450	3554	
==>'Thispara'},
    "\n\n"
  ;
  $self->{'Thispara'} = '';
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2980	3084	
==>'Thispara'},
    "\n\n"
  ;
  $self->{'Thispara'} = '';
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2931	3035	
==>}; }
sub line { return shift->{LINE}; }

sub is_global
{
  my $self = shift;

  return defined($self->blo <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19494	19602	
==>ression::Value::Identifier->new($block, $self->require_ident);

      $self->require_open_paren;

      my @a <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	8715	8843	
==>puted goto",
	  jit => "JIT",
	  cgp =>  "CGP",
	  switch => "switch",
	  fast => "fast",
	  default => "default",
  );

  $runco <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	39766	39979	
==><Foo>     -> L<Foo|Foo>
      # L</Bar>    -> L<"Bar"|Bar>
      # L<Foo/Bar> -> L<"Bar" in Foo/Foo>
      unless($link_text) {
        $ell->[1]{'content-implicit'} = 'yes';
        $link_text = [];
        push @ <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	2237	2352	
==>= $expect) {
	print STDERR "TEST FAILED: $file (got $ret expected $expect)\n";
	return;
    }
    print "OK: $file\n <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2454	2541	
==>imple::DumpAsXML -e \
   "exit Pod::Simple::DumpAsXML->filter(shift)->any_errata_seen" \ <==
2	/Users/nnunley/parrot/config/init/defaults.pm	6093	6275	
==>VEL   => (-e 'DEVELOPING' ? '-devel' : ''),

        configdate => scalar localtime,
        PQ         => "'",
        dquote     => "\\\"",

        # yacc = Automatic parser genera <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64726	64832	
==>nterp, PARROT_EXTERN_CODE_FLAG);\n  new_interp->code = interpreter->code;\n  runops(new_interp, REL_PC + {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65677	65783	
==>nterp, PARROT_EXTERN_CODE_FLAG);\n  new_interp->code = interpreter->code;\n  runops(new_interp, REL_PC + {{ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25638	25751	
==>re($temp);
  } else {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $t <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27536	27649	
==>re($temp);
  } else {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $t <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	43	144	
==>ion.
# $Id: /parrot/lib/Parrot/Docs/Section/PMCs.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=he <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3386	3482	
==>num, $op)>

Returns the C code for the specified op argument type (see
C<Parrot::OpTrans>) and va <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3530	3626	
==>num, $op)>

Returns the C code for the specified op argument type (see
C<Parrot::OpTrans>) and va <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	98	192	
==>l 19601 2006-05-30T13:32:26.641316Z coke  $

=head1 NAME

examples/mops/mops.c - Calculate M op <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	94	188	
==>l 19601 2006-05-30T13:32:26.641316Z coke  $

=head1 NAME

examples/mops/mops.c - Calculate M op <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4526	4644	
==>->{name};
        delete $self->{args};
        return $self->op('nop', [], %$self);
    } elsif (@{ $self->{args} } == <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5663	5781	
==>->{name};
        delete $self->{args};
        return $self->op('nop', [], %$self);
    } elsif (@{ $self->{args} } == <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	6724	6852	
==>, name and args.
        # We query the Parrot::Op for the op size, etc., which we use later.
        #
        # Either of these <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	9937	10130	
==>rff        math.h
erfl        math.h
errno       errno.h
exit        stdlib.h
exp         math.h
exp2        math.h
exp2f       math.h
exp2l       math.h
expf        math.h
expl        math.h
ex <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	18479	18588	
==>temp($tos->[2]);
	print <<EOC;
	$n = not $tos->[1] $cmt
EOC
	push @stack, [-1, $n, $tos->[2]];

    }
}

sub U <==
2	/Users/nnunley/parrot/config/auto/byteorder.pm	197	334	
==>ESCRIPTION

Computes the native byteorder for Parrot's wordsize.

=cut

package auto::byteorder;

use strict;
use vars qw($description @ar <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5024	5154	
==>_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  my $block = $self->b <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3087	3217	
==>_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  my $block = $self->b <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	3361	3601	
==>ser->{lastlinenum} - $_[1];
	return undef;
}

sub resync       # ($linecounter)
{
        my $self = tied($_[0]);
        die "Tried to alter something other than a LineCounter\n"
                unless $self =~ /Parse::RecDescent::LineCount <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1355	1492	
==>ppens that link-sections are about the only treelets
# that are exposed to the user.

1;

__END__

# TODO: let it be an option whether a g <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78885	78980	
==>src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  void * <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80406	80501	
==>src/ops/core.ops\"\n  char * const name = string_to_cstring(interpreter, ({{\@3}}));\n\n  void * <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	813317	813607	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "null",
                  "FLAGS" => ":base_core",
                  " <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	21137	21278	
==>,@stack) = @_;
  
  if(@stack == 1 and @{ $stack[0] } == 3 and !ref $stack[0][2]) {
    # VERY common case: abort it.
    DEBUG and print "Ski <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	18834	18949	
==>}
}
sub parse_loop {
	my $do=pop @dos;
	if ($do->{needstmt} and not ( $syms[NEXT]=~/while|until/ ) ) {
		push @{$cod <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	7983	8086	
==>ode}},<<FNOTB;
@codef	noop
	_screen_color($resultf)	# Broke!
FNOTB
	}
}
sub parse_cls {
	if (! $type[NEX <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956949	957195	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957853	958099	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1026501	1026620	
==>=> "#line 280 \"src/ops/sys.ops\"\n   {{\@1}} = sysinfo_i(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1027258	1027377	
==>=> "#line 280 \"src/ops/sys.ops\"\n   {{\@1}} = sysinfo_i(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	220731	220818	
==>line 477 \"src/ops/cmp.ops\"\n  if (mmd_dispatch_i_pp(interpreter, {{\@1}}, {{\@2}}, MMD <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	1828	1946	
==>PE}     }
sub kind   { return shift->{KIND};     }
sub type   { return shift->{TYPE};     }
sub name   { return shift-> <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	2977	3119	
==>->YYData->{symbtab}->Insert( $var->[0] );
    return $var;
}

sub InsertList {
    my ( $parser, $vars ) = @_;

    for my $var ( @{$var <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	6572	6685	
==>f="function_summary.html">Function Summary</a>
              <li>Overall Summary:<br>

            <table border=" <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	2887	3065	
==>ments} };
    }
    else
    {
        # I must be running out of languages/$language
        # You may want a deeper search than this.
        return ( glob( File::Spec->catfile( <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	269	413	
==>for dynamic op libraries

=head1 DESCRIPTION

This file is generated by F<config/gen/makefiles.pm> from
F<config/gen/makefiles/dynopslibs_pl.in>. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1035731	1035829	
==>preter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    {{\@1}} = res <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036895	1036993	
==>preter, NULL, LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    {{\@1}} = res <==
2	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1161	1266	
==>>post($smokeserv => \%request);
  if($resp->is_success) {
    if($resp->content =~ /^ok/) {
      debug "s <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6814	6930	
==>{
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If we need a destination, we simply supply the regist <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4752	4868	
==>{
	my $self = shift;
	my $need_dest = shift;
	my $pir = "";

	# If we need a destination, we simply supply the regist <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	2761	2938	
==>($cmd $f);
    print @dis if $opt{d};
}

sub get_source {
    my ($f) = @_;
    open IN, $f or die "can't read $f: $!";
    @source = <IN>;
    close(IN);
}

my ($code_l, %params <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	18087	18255	
==>f (@_ == 3)
    {
        $self->{VERSION} = join('.', @_);
    }
    elsif (@_ == 0)
    {
        if (wantarray)
        {
            return split(/\./, $self->{VERSI <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	15012	15136	
==>turn NULL;
}

END_C

if ($dynamic_flag) {
    my $load_func = "Parrot_lib_${base}_ops${suffix}_load";
    print SOURCE <<END_ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	5489	5613	
==>bel_indices($stmt->{code});
                foreach my $pos (@labels) {
                    push @Q, $labels{$stmt->{code}->{ <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	3996	4263	
==>t

sub is_generated
{
    my $self = shift;
    
    # CFLAGS
    # libparrot.def
    # Makefile
    # myconfig
    
    # include/parrot/config.h
    # include/parrot/core_pmcs.h
    # include/parrot/feature.h
    # include/parrot/platform.h
    
    # runtime/parrot <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1569	1699	
==>>emit("  $left = $right");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	182103	182426	
==>"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 217,
                  "ARGS" => [
                              "i",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 278 \"src/ops/c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669035	669166	
==>,
                  "BODY" => "#line 410 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->push_float(interpreter, {{\@1}}, {{\@2}});\n    { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	669807	669938	
==>,
                  "BODY" => "#line 410 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->push_float(interpreter, {{\@1}}, {{\@2}});\n    { <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	7104	7203	
==>xists $ParrotOps::optable{$opname}) {
	return $ParrotOps::optable{$opname};
    } elsif (!$experimen <==
2	/Users/nnunley/parrot/lib/Test/More.pm	34497	34625	
==>::More works with Perls as old as 5.004_05.


=item Overloaded objects

String overloaded objects are compared B<as strings>.  Th <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	2853	2994	
==>the test if a string comparison of the output
with the unexpected result is false.

=item C<pir_output_is($code, $expected, $description)>

Ru <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1192	1313	
==>e.
        $compiler->emit(".return()"); # Return to the previous inline chunk.
        $compiler->outdent;
        $compi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3930	4030	
==>ded, $failLabel, $lenvar) = @_;
    $lenvar ||= "<rx_len>";
    my $fail = $self->output_label_use($f <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3644	3744	
==>ded, $failLabel, $lenvar) = @_;
    $lenvar ||= "<rx_len>";
    my $fail = $self->output_label_use($f <==
2	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	1533	1644	
==>cut

sub output_is 
{
  my $self = shift;
  my ( $code, $expected, $desc ) = @_;
  
  my $test_no = $self->{buil <==
2	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	731	817	
==><examples/benchmarks/stress.pl>, 
F<examples/benchmarks/stress1.pasm>, 
F<examples/benc <==
2	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	578	664	
==><examples/benchmarks/stress.pl>, 
F<examples/benchmarks/stress1.pasm>, 
F<examples/benc <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	1250	1462	
==>'tcl');
    } elsif ($dir_count == 1) {
      $path_to_tcl = 'tcl';
    } elsif ($dir_count == 2) {
      $path_to_tcl = '.';
    } elsif ($dir_count >2) {
      $path_to_tcl = File::Spec->join(File::Spec->updir() <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	78471	78648	
==>";
	$errorprefix = "Parse::RecDescent";
	$errortext =~ s/\s+/ /g;
	write ERROR;
}

sub _linecount($)
{
	my ($pos,$count) = ((pos $_[0]||0)-1, 0);
	$count++ until ($pos=index($_[0 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	13102	13328	
==>[" => 14,
			"." => 15
		},
		DEFAULT => -7,
		GOTOS => {
			'expr' => 28,
			'charclass' => 12,
			'range' => 25
		}
	},
	{#State 12
		DEFAULT => -12
	},
	{#State 13
		DEFAULT => -4
	},
	{#State 14
		ACTIONS => {
			"-" => 31, <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	51672	51808	
==>TREE}{NODE}
						= new Parse::RecDescent::Action(q{{bless \%item, $item[0]}},0,-1);
					$self->{_AUTOTREE}{TERMINAL}
						= new Parse: <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	5712	5841	
==>$node) = @_;
  my $return = $self->_save_1 ('P');

  _num_arg ($node, 1, 'quote');

  my $item = _get_arg($node,1);

  return __qu <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	1659	1823	
==>h          => '-Wl,-rpath=',

        has_dynamic_linking     => 1,
        parrot_is_shared        => 1,
        libparrot_shared        => 'libparrot$(SHARE_EXT).$ <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	11303	11456	
==>e->
        (\w+)
        \(interpreter,
        \s*
        {{\@(\d)}},\s*{{\@(\d)}}
        \);
        \s+{{\+=\d}}/xm) {
            $jit_func = "Parr <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	11750	11903	
==>e->
        (\w+)
        \(interpreter,
        \s*
        {{\@(\d)}},\s*{{\@(\d)}}
        \);
        \s+{{\+=\d}}/xm) {
            $jit_func = "Parr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64659	64752	
==>new_interp = (Interp *)PMC_data({{\@1}});\n  Interp_flags_SET(new_interp, PARROT_EXTERN_CODE_F <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65610	65703	
==>new_interp = (Interp *)PMC_data({{\@1}});\n  Interp_flags_SET(new_interp, PARROT_EXTERN_CODE_F <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	3346	3496	
==>rness_args} = $1;
  $html =~ /build_dir: (.+)$/m     and $smoke{build_dir}    = $1;
  $html =~ /summary="(\d+) test cases: (\d+) ok, (\d+) failed, (\d+ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	339	460	
==>ement::Assign;

use Carp;

use base qw(Jako::Construct::Statement);

sub new
{
  my $class = shift;
  my ($block, $left, $ <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	539	648	
==>mber of ops performed,

=item * the elapsed time, and 

=item * the number of M op/s.

=back

=cut

sub time_h <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	542	650	
==>mber of ops performed,

=item * the elapsed time, and

=item * the number of M op/s.

=back

=cut

sub time_h <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29145	29265	
==>$pattern,
		"lookahead"   => $_[2],
		"line"        => $_[3],
		"description" => "'$desc'",
	}, $class;
}


sub code($$$$ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31247	31362	
==>$pattern,
		"lookahead" => $_[2],
		"line"      => $_[3],
		"description" => "'$desc'",
	}, $class;
}

sub code($$$$ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7497	7625	
==>and\n";
    }

    # Mostly copied from Parrot::Test.pm
    foreach ($out, $err) {
        $_ = File::Spec->devnull
            i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	84932	85227	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85838	86133	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "compreg",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "T <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	17277	17469	
==>enerated file

sub interpolate {
    my $code = shift;
    my $op1  = shift;
    my $op2  = shift;
    $code =~ s/%1/$op1/g;
    $code =~ s/%2/$op2/g;
    $code .= "\n";
    return($code);
}

_ <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	8	101	
==>-w
# Copyright (C) 2001-2005, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Op.pm 20321 2006- <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	11184	11348	
==>( $desc ) {
               (undef, my $file, my $line) = caller();
               $desc = "($file line $line)";
            }

            # $test_no will be part of <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	16669	16833	
==>( $desc ) {
               (undef, my $file, my $line) = caller();
               $desc = "($file line $line)";
            }

            # $test_no will be part of <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105078	105381	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	105815	106118	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" = <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	27400	27539	
==>eir funeral.
        elsif( $num < @$test_results ) {
            $#{$test_results} = $num - 1;
        }
    }
    return $self->{Curr_Test <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	2469	2715	
==>d to be optional.\n"
            if $arg->{option} and not $arg->{optional};
            
        push @results, $arg;
    }
    
    return @results;
}

sub header {
    my ($cmd, @args) = @_;
    
    my $code = <<"END_PIR";
.HLL '_Tcl', ''
.nam <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	18	129	
==>se strict;

my @results = ();
while (<>) {
	if (/^Translated (\d+) types out of (\d+) from .+?([\.\w]+)\n$/) <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	18	129	
==>se strict;

my @results = ();
while (<>) {
	if (/^Translated (\d+) types out of (\d+) from .+?([\.\w]+)\n$/) <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2489	2586	
==>tractable descriptions.\n";
    if($show_full) {
	print "Their heads are included in a second sect <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	343661	344133	
==>"FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 402,
                  "ARGS" => [
                              "p",
                              "s",
                              "s"
                            ],
                  "BODY" => " <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3010	3111	
==>$index < 0
	and	-$index <= @{$$self{STACK}}
	and	return $$self{STACK}[$index][1];

	undef;	#Invali <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2864	2961	
==>$index < 0
	and	-$index <= @{$$self{STACK}}
	and	return $$self{STACK}[$index][1];

	undef;	#Invali <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	3456	3579	
==>t opendir $self->{PATH}: $!";
    
    return sort grep {$_ ne '.' and $_ ne '..'} $dh->read();
}

=item C<file_and_director <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	5425	5590	
==>ault value, if necessary
        if (defined $arg->{default}) {
            my $type    = $arg->{type} eq 'int' ? 'TclInt' : 'TclString';
            my $quote   = $a <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	14954	15078	
==>ops++;
			next;
		}
		@a=EXPRESSION();   # CURR = "to", "," or EOL.
		feedme();
		if ($syms[CURR] eq "," or 
			$type[CURR] e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227446	227710	
==>}}), {{\@2}}) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228426	228690	
==>}}), {{\@2}}) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	35952	36106	
==>4,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 7 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36210	36364	
==>4,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			"*" => 80,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 7 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	885492	885879	
==>,
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1002,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 244 \" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	53176	53284	
==>" => '\t', # tab
  "\cm" => '\cm',
  "\cj" => '\cj',
  "\n" => '\n', # probably overrides one of either \cm o <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7927	8080	
==>sempar ? $sempar[0] : undef;

            splice(@$stack,-$len,$len);

                $$check eq 'ACCEPT'
            and do {

#DBG>			$debug & 0 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7571	7717	
==>sempar ? $sempar[0] : undef;

            splice(@$stack,-$len,$len);

                $$check eq 'ACCEPT'
            and do {

#DBG>			$debug & 0 <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	9443	9738	
==>ct.ops src/ops/pic.ops src/ops/pmc.ops src/ops/python.ops src/ops/set.ops src/ops/stack.ops src/ops/string.ops src/ops/sys.ops src/ops/var.ops',
             'optimize' => '',
             'osname' => 'darwin',
             'packtype_b' => 'C',
             'packtype_i' => 'l!',
             'pa <==
2	/Users/nnunley/parrot/lib/Test/More.pm	34723	34828	
==>if a function starts returning overloaded objects instead of
bare strings your tests won't notice the diff <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	25012	25145	
==>uctor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 78
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' = <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	6641	6803	
==>_args{$arg}};
	    my $arg_name = pop @params;
	    $may_be_none{$arg_name} = 1;
	    print <<EOC;
	if argcP >= $i goto arg_ok
	    find_global $arg_name, "${arg}_ <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	2888	3026	
==>= scalar @all_strings;
	$known_strings{$str} = $n;
	$this_file_seen{$str} = $line;
	print "#define _CONST_STRING_$line $n\n";
	print ALL qq <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1598	1704	
==>MP0}

# Emit pop code.
${INS} = concat ${STACK$register_num}
${INS} = concat " = pop s\n"
PIR
		$pir =~ s/\ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3308	3414	
==>MP0}

# Emit pop code.
${INS} = concat ${STACK$register_num}
${INS} = concat " = pop s\n"
PIR
		$pir =~ s/\ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	29668	29818	
==>t->todo($pack);

todo() looks for a $TODO variable in your tests.  If set, all tests
will be considered 'todo' (see Test::More and Test::Harness for
de <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	20281	20388	
==>de eq 'JUMP_IF_TRUE') {
	print "\t\t$cmt\n";
	$code_l++;
	$cmt ="\t\t# $opcode\t $rest";
	if ($rest =~ /to ( <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	31174	31297	
==>e used for each
delimiter.

All arguments are optional. If the escape characters are not specified,
every delimiter is escap <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	14568	14789	
==>or (keys %scalar) {
    my ($name,$code) = @ {$scalar{$operator}};
    foreach my $types (@type_pairs) {
        my ($type1, $type2) = @$types;

        $template .= <<"END_PREAMBLE";


# $name
.sub unicode:"dyadic:$operat <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	83	228	
==>depth and assigns to
# virtual registers numbered by depth. This eliminates the need for a stack.
# Inherits from SRM::Base.

package SRM::Registe <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	83	208	
==>depth and assigns to
# virtual registers numbered by depth. This eliminates the need for a stack.
# In addition, it does "lazy <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24396	24501	
==>to &parse_dim;			
			}
		} elsif ($syms[CURR] eq "shared") {
			print "WARNING: SHARED keyword currently i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3744	3853	
==>->props;

      $self->SYNTAX_ERROR("Sub declaration has no fnlib property, and parent module has no fnlib pro <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6408	6517	
==>->props;

      $self->SYNTAX_ERROR("Sub declaration has no fnlib property, and parent module has no fnlib pro <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	35513	35626	
==>and append code it generates.
		my $post_branch = $srm->post_branch($rule->{'pop'});
		$pir .= "### post_branch\n" <==
2	/Users/nnunley/parrot/config/auto/jit.pm	4168	4268	
==>/jit.h $(INC_DIR)/exec.h $(SRC_DIR)/exec_dep.h $(SRC_DIR)/exec_save.h',
                TEMP_exec_o = <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	355	455	
==>tring" ],
    [ "advance(n)" => "advance input <n> chars" ],
    [ "increment(var,[amount])" => "adva <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	216948	217131	
==>number(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	217888	218071	
==>number(interpreter, {{\@1}}) > {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193560	193684	
==>>vtable->get_string(interpreter, {{\@1}}), {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194539	194663	
==>>vtable->get_string(interpreter, {{\@1}}), {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	6323	6465	
==>Benchmark', keys %bench;
Longest( $max[ $_ + 1 ] , length $program[$_] ) for 0 .. $#program;
printf("%-$max[0]s  ", 'Benchmark');
printf("%-$ma <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	836	934	
==>tion($name, $text, @items)>

Returns a new section. 

Use this when creating subsections within a s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	11113	11280	
==>t::Statement::Decrement->new($block, $ident);
      }

      next;
    }

    #
    # Arithmetic assigns:
    #
    #   <var> <op> <value>;
    #

    if ($token->is_id <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	881	990	
==>ot::OpLib::core> module for a set of ops files that
you do not later turn into C code (see F<tools/build/ops2c <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	1316	1433	
==>{
            $conf->data->add(' ', linkflags => '-L/sw/lib');
            $conf->data->add(' ', ldflags   => '-L/sw/l <==
2	/Users/nnunley/parrot/config/auto/readline.pm	1405	1522	
==>{
            $conf->data->add(' ', linkflags => '-L/sw/lib');
            $conf->data->add(' ', ldflags   => '-L/sw/l <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	1193	1462	
==>lesheet" TYPE="text/css" 
            HREF="$resources/perl.css" 
            TITLE="Default CSS2" media="screen">
    </HEAD>
    <BODY> 
        <A NAME="_top"></A>
        <TABLE CELLSPACING="0" WIDTH="730">
            <TR>
                <TD WIDTH="100%" COLSPAN=" <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	4434	4529	
==>elf->_add_inst ('', 'set',[$return,$value]);
    }
    elsif ($value =~ /^[-+]?((\d+\.\d*)|(\.d+ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3453	3545	
==>elf->_add_inst ('', 'set', [$return,$value]);
  }
  elsif ($value =~ /^[-+]?((\d+\.\d*)|(\.d+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566700	567028	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "does",
                  "FLAGS" => ":o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567594	567922	
==>4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "does",
                  "FLAGS" => ":o <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	13733	13866	
==>21
		ACTIONS => {
			"(" => 10,
			'CHAR' => 4,
			"<" => 3,
			"[" => 14,
			'CODE' => 6,
			"." => 15
		},
		GOTOS => {
			'expr' => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	944300	944686	
==>,
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1062,
                  "ARGS" => [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 516 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_charset_number_of_str(inter <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9514	9662	
==>er 3
for t=1 to 10 step 0.5
print t,
print sqr(t),
if t=3 then print "True!"
next t


' Expect OK
if 2 > 1 then
	print "Ok"
else
	print "All is not r <==
2	/Users/nnunley/parrot/tools/dev/gen_class.pl	588	703	
==>dev/gen_class.pl Foo > src/pmc/foo.pmc
	% perl tools/build/pmc2c.pl -c src/pmc/foo.pmc

=head1 SEE ALSO

F<tool <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24620	24739	
==>rn = $temp;
    }
  } else {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	26519	26638	
==>rn = $temp;
    }
  } else {
    $return = $self->_generate($node->{children}[1]);
    if ($return =~ /^P/) {
      my $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4677	4816	
==>ic void *const* ${bs}ops_addr;\n\n";
}

=item C<run_core_func_start()>

Returns the C code prior to the run core function.

=cut

sub run_co <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	566	742	
==>] =~ tr/\xAD//d;
    $_[1] =~ tr/\xA0/ /;
  }
  print {$_[0]{'output_fh'}} $_[1];
  return;
}

sub _handle_element_end {
  print {$_[0]{'output_fh'}} "\n"  unless $_[1] =~ m/^[A <==
2	/Users/nnunley/parrot/config/inter/shlibs.pm	531	632	
==>on test.

=cut

package inter::shlibs;

use strict;
use vars qw($description @args);

use base qw(Parr <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14993	15121	
==>t ('', 'set', [$return,$return.'[0]']);

  return $return;
}

sub _op_cdr {
  my ($self, $node) = @_;

  _num_arg ($node, 1, 'cdr <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	12986	13083	
==>assigned to the hash element.  If the element type is C<'%'>, the
accessor returns the hash elemen <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8891	8997	
==>er,\n\t    enum_fixup_label, label);\n    if (!fe)\n\tinternal_exception(1, \"branch_cs: fixup for '%s' not <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10007	10113	
==>er,\n\t    enum_fixup_label, label);\n    if (!fe)\n\tinternal_exception(1, \"branch_cs: fixup for '%s' not <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8500	8622	
==>TDERR 
#DBG>				    "go to state $$states[$$stack[-1][0]]{GOTOS}{$lhs}.\n";

#DBG>				$debug & 0x10
#DBG>			and	$dbgerr <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8115	8233	
==>TDERR 
#DBG>				    "go to state $$states[$$stack[-1][0]]{GOTOS}{$lhs}.\n";

#DBG>				$debug & 0x10
#DBG>			and	$dbgerr <==
2	/Users/nnunley/parrot/config/inter/lex.pm	954	1079	
==>ta->set($util => 'echo');
        $self->set_result('skipped');
        return $self;
    }

    my $prog;

    # precedence o <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	951	1076	
==>ta->set($util => 'echo');
        $self->set_result('skipped');
        return $self;
    }

    my $prog;

    # precedence o <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6837	6960	
==>tch_end:
        .end\n);

    return $pirCode;
}

sub _generate_glob_for {
    my($target, $pattern, $captures) = @_;
    $ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3003	3108	
==>ubroutine one"
   RETURN Label1
Sub2:
   PRINT "3 in subroutine two"
   RETURN Label2   'Cannot return fro <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16970	17075	
==>ubroutine one"
   RETURN Label1
Sub2:
   PRINT "3 in subroutine two"
   RETURN Label2   'Cannot return fro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1058919	1059209	
==>YPE" => "function",
                  "CODE" => 1182,
                  "ARGS" => [
                              "p",
                              "kc",
                              "sc"
                            ],
                  "BODY" => "#line 194 \"src/ops/var.ops\"\n    {{\@1} <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28405	28603	
==>" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 141,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 3 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6427	6612	
==>ed token.\n";
        }

            defined($act)
        and do {

                $act > 0
            and do {        #shift

#DBG>				$debug & 0x04
#DBG>			and	print STDER <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6130	6305	
==>ed token.\n";
        }

            defined($act)
        and do {

                $act > 0
            and do {        #shift

#DBG>				$debug & 0x04
#DBG>			and	print STDER <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	2693	2847	
==>}
    elsif ( $tagname eq 'C' )
    {
        $self->process_code_start_token($token);
    }
    elsif ($tagname eq 'item-text' or $tagname =~ m/^head\d$/s <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2750	2858	
==>)>.

=cut

sub restart_offset
{
    my ($self, $offset) = @_;

    return "interpreter->resume_offset = REL_P <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4085	4193	
==>)>.

=cut

sub restart_offset
{
    my ($self, $offset) = @_;

    return "interpreter->resume_offset = REL_P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630471	630583	
==>@2}};\n    INTVAL type = pmc_type_p(interpreter, class);\n    if (type <= 0)\n        real_exception(interpreter, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631461	631573	
==>@2}};\n    INTVAL type = pmc_type_p(interpreter, class);\n    if (type <= 0)\n        real_exception(interpreter, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2818	2933	
==>new(@_);
  #$new->nix_X_codes(1);
  $new->nbsp_for_S(1);
  $new->accept_targets( 'html', 'HTML' );
  $new->accept_co <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14320	14532	
==>, $node) = @_;
  my $return;

  _num_arg ($node, 2, 'cons');

  my $car = $self->_generate(_get_arg($node,1));
  $return = $self->_save_1('P');

  $self->_add_inst ('', 'new', [$return,'.Array']);
  $self->_add_in <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	38236	38472	
==>"/s
            and $section_name[-1] =~ m/\"$/s
            and !( # catch weird degenerate case of L<"> !
              @section_name == 1 and $section_name[0] eq '"'
            )
          ) {
            $section_name[ 0] =~ s/^\"// <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	43202	43364	
==>= shift;
  my $self = {
    tree     => $tree,
    regs     => _new_regs,
    frames => [],
    gensym   => 0,
    functions=> [],
    scope    => {},
  };
  bless <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	14142	14291	
==>tin1Char_to_fallback{I<character>}

Just as above, but maps from characters (like "\xE9", 
lowercase e-acute) to characters (like "e").

=item $Code2U <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1065144	1065239	
==>_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed_str(interpreter, ns_root, {{\@2}});\n    {{\@1}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1066018	1066113	
==>_namespace, *ns;\n    ns = VTABLE_get_pmc_keyed_str(interpreter, ns_root, {{\@2}});\n    {{\@1}} <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	13142	13239	
==>um"><tmpl_var name=duration></td>
            <td class="leftsep num"><tmpl_var name=percentage>&n <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	12998	13131	
==>mp_ok($got, 'ne', $dont_expect, $name);
}

sub isnt_num {
    my($self, $got, $dont_expect, $name) = @_;
    local $Level = $Level + 1 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	27903	28075	
==>, but you said =back $content"
        );
      }

      if(@$curr_open and $curr_open->[-1][0] eq '=over') {
        DEBUG > 1 and print "=back happily closes matching =ove <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	2196	2435	
==>dir1, $dir2);
    for (@d) {
	if (/^\[/) {
	    if ($dir1) {
		$dir2 = $_;
	    }
	    else {
		$dir1 = $_;
	    }
	}
    }
    $dir1 =~ s/^\[//;
    $dir2 =~ s/^\[//;
    $dir1 =~ s/\[$//;
    $dir2 =~ s/\[$//;
    my @dir1 = split(/,/, $d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	550155	550246	
==>EED_CONTINUATION;\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_method( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551456	551547	
==>EED_CONTINUATION;\n  interpreter->current_method = meth;\n  method_pmc = VTABLE_find_method( <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	1186	1335	
==>em('', 'tools/dev/pbc_header.pl'),
        ),
        $self->new_group('QA', '',
            $self->new_item('', 'parrotbug'),
            $self->new_ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	473	941	
==>threads.pm'}) {
        require threads::shared;

        # Hack around YET ANOTHER threads::shared bug.  It would 
        # occassionally forget the contents of the variable when sharing it.
        # So we first copy the data, then share, then put our copy back.
        *share = sub (\[$@%]) {
            my $type = ref $_[0];
            my $data;

            if( $type eq 'HASH' ) {
                %$data = %{$_[0]};
            }
            elsif( $type eq ' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	25019	25130	
==>abel('greedy_optional_back');
    my $next = $self->genlabel('after_greedy_optional');
    my $rfail = $self->ge <==
2	/Users/nnunley/parrot/config/init/defaults.pm	1144	1247	
==>used to indicate this object file is to be compiled
        # with position-independent code suitable fo <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	20486	20629	
==>IL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 115,
			'functioncall' = <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	7758	7963	
==>($ret_type, $name, $signature) x 2;

        $funcs .= "    $ret_type retval;\n" unless $ret_type eq 'void';
	$funcs .= "    PARROT_CALLIN_START( interp );\n    ";
        $funcs .= "retval = " unless $ret_ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	13618	13813	
==>=> ++$selectcounter, incase => 0 });
	my @a=EXPRESSION();
	print CODE<<SELECTSTART;
	# Select case on
@a	bsr DEREF		       # De-reference variables and whatnot.
	P0= P10[I25]
	P1= P0["SELECTS"]
	P <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	31997	32110	
==>ted substring is returned. In
a void context, the extracted substring (and any prefix) are simply
removed from the <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955862	955954	
==>string.ops\"\n  {{\@1}} = string_copy(interpreter, Parrot_encoding_name(interpreter, {{\@2}}) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956674	956766	
==>string.ops\"\n  {{\@1}} = string_copy(interpreter, Parrot_encoding_name(interpreter, {{\@2}}) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	3677	3823	
==>return "save $reg";
}

sub output_pop_reg {
    my ($self, $reg) = @_;
    return "restore $reg";
}

sub output_comment {
    my ($self, $string) = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	23989	24103	
==>ack: ", pretty($curr_open), "\n";
        unshift @$paras, $self->_closers_for_all_curr_open;
        # Make sure t <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	1146	1338	
==>okup_var {
    my ($self, $var, $ctx) = @_;
    return $ctx->{$var} || $var;
}

sub output {
    my ($self, $ops, $ctx) = @_;

    if (ref($ops->[0]) eq 'LABEL_COMMENTS') {
        $self->{_lab <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43606	43794	
==>=> 204
		}
	},
	{#State 194
		DEFAULT => -14
	},
	{#State 195
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'S <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	690552	690886	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "thaw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691308	691642	
==>"LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "thaw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	7616	7759	
==>ps.num";
    }
    my ($name, $number, @lines, %seen, %fixed, $fix);
    local *OP;
    $fix = 1;
    open OP, "< $file" or die "Can't open $fil <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35050	35152	
==>Parse::RecDescent::lastunexpected;
			}
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace( <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	42160	42262	
==>Parse::RecDescent::lastunexpected;
			}
			last;
		}'.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4257	4384	
==>ter class.)
package Regex::Ops::Tree::_atom;

sub minlen { 1 }
sub maxlen { 1 }
sub dfa_safe { 1 }
sub hasback { 1 }

# Sequence <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3276	3498	
==>efinition of symbol '$name' shadows definition in parent block!" if $self->find_symbol($name);

  $self->{SYMBOLS}{$name} = $sym;
}


###############################################################################

=head2 B <==
2	/Users/nnunley/parrot/tools/dev/manicheck.pl	710	1041	
==>are not reported as extra
files. 

=cut

################################################################################

use strict;
use FindBin;
use lib "$FindBin::Bin/../../lib";

use Data::Dumper;
use ExtUtils::Manifest;

$ExtUtils::Manifest::Quiet = 1;
my $manifest  = ExtUtils::Manifest::maniread();
my $file_list = ExtUtils: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1059537	1059803	
==>ROT_JUMP_ENEXT",
                  "NAME" => "find_name",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "funct <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060441	1060707	
==>ROT_JUMP_ENEXT",
                  "NAME" => "find_name",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "funct <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349105	349197	
==>onst char * const path = string_to_cstring(interpreter, {{\@2}});\n\n  {{\@1}} = PIO_open(int <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350107	350199	
==>onst char * const path = string_to_cstring(interpreter, {{\@2}});\n\n  {{\@1}} = PIO_open(int <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	3999	4227	
==>XX This works. but is probably not a good design.
        # Using $step->description() would be nicer   
        my $description = $step->description();
        $description = "" unless defined $description;

        # set per st <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	7253	7384	
==>f ($tagname eq 'Data') {
        my $next = $self->get_token;
        next unless defined $next;
        unless( $next->type eq 'tex <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9498	9629	
==>f ($tagname eq 'Data') {
        my $next = $self->get_token;
        next unless defined $next;
        unless( $next->type eq 'tex <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	46040	46212	
==>{
            [ @{ $_[1] }, @{ $_[2] } ];
        }
	],
	[#Rule 4
		 'chunk', 0,
sub
#line 61 "Lua\lua51.yp"
{
            [];
        }
	],
	[#Rule 5
		 '_semi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10958	11044	
==>=> "#line 206 \"src/ops/core.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11747	11833	
==>=> "#line 206 \"src/ops/core.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7984	8116	
==>rs qw($DEBUG_LABEL);
sub output_popindex {
    my $self = shift;

    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallba <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7637	7769	
==>rs qw($DEBUG_LABEL);
sub output_popindex {
    my $self = shift;

    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallba <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	152	254	
==>le::Basename;

=head1 Parrot::Test::Python

Provide language specific testing routines here...

This is <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1158	1266	
==>ements ${STYPES}
PIR

	# Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we're maint <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2868	2976	
==>ements ${STYPES}
PIR

	# Do code for each pop. Need to set up mv's and pop stuff off the stack
	# we're maint <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	5041	5147	
==>_ERRORS_TIME}) )
	{
		my $checker = Pod::Simple::Checker->new;
	
		$self->{POD_ERRORS_TIME} = time;
		$self <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	3387	3481	
==>braries L<Pod::PXML>, L<Pod::XML>, L<Pod::SAX>


=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	3039	3133	
==>braries L<Pod::PXML>, L<Pod::XML>, L<Pod::SAX>


=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	1823	1940	
==><<
Pod::Simple::PullParserTextToken->new( I<text> )
>>

=head1 SEE ALSO

L<Pod::Simple::PullParserToken>, L<Pod::Simpl <==
2	/Users/nnunley/parrot/config/auto/gdbm.pm	271	382	
==>eded for the dynamic
GDBMHash PMC.

=cut

package auto::gdbm;

use strict;
use vars qw($description @args);

use <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357682	357976	
==>GDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 418,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 245 \"src <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10122	10250	
==>e $$stack[-1][0].\n";

			pop(@$stack);
		}

			@$stack
		or	do {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**No s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9671	9790	
==>e $$stack[-1][0].\n";

			pop(@$stack);
		}

			@$stack
		or	do {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**No s <==
2	/Users/nnunley/parrot/tools/dev/cc_flags.pl	1317	1461	
==>ption ];
	    }
	}
	elsif (s{s(.)(.*?)\1(.*?)\1([imsx]*)\s*}{}) {
	    my $mod = "";
	    $mod = "(?$4)" if $4;

	    push @options, [ $regex, 's <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	1609	1733	
==>"

END_C

    print OUT "extern void Parrot_${_}_class_init(Interp *, int, int);\n" foreach (@pmcs);

    print OUT <<"END_C" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351998	352298	
==>ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 410,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 195 \"src/ops/i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	202	305	
==>/Compiler.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945420	945518	
==>tring.ops\"\n  {{\@1}} = string_copy(interpreter, Parrot_charset_name(interpreter, {{\@2}}));\n  {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946230	946328	
==>tring.ops\"\n  {{\@1}} = string_copy(interpreter, Parrot_charset_name(interpreter, {{\@2}}));\n  {{ <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	7009	7112	
==>overed_branches} of $totals{branches} ($totals{branch_coverage} %)</td>
                 <td>$totals{cov <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826545	826639	
==>n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_F <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827615	827709	
==>n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_F <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	17107	17206	
==>ble($trans)>

Returns any lines found prior to first op definition.

If C<$trans> (an C<Parrot::OpTr <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2858	2958	
==>{
	my $info = &describe_file($_);
	if($info->{desc}) {
	    print "\n* $info->{path}\n\n$info->{desc} <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	28860	29072	
==>" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 142,
			'functioncall' => 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primar <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11340	11472	
==>s => 1});
	push @{$code{$seg}->{code}}, <<SWAP;
	\$${righttype}99 = $rightres
	$rightres = $leftres
	$leftres = \$${righttype}99
SWAP <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3145	3260	
==>d' the same.
        $conf->data->set(link => $conf->data->get('ld'));

        # We can't use -opt: and -debug toge <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4649	4764	
==>d' the same.
        $conf->data->set(link => $conf->data->get('ld'));

        # We can't use -opt: and -debug toge <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822269	822375	
==>n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_INT) {\n    i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823337	823443	
==>n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_INT) {\n    i <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	18470	18660	
==>nature, 1, 1);
       signature_len = string_length(interpreter, signature);
    }

    iglobals = interpreter->iglobals;

    if (PMC_IS_NULL(iglobals))
        PANIC("iglobals isnt created <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	10424	10533	
==>'HACKRAW'
  ) {
    DEBUG and print " Putting in HACKRAW (no-op) encoding mode.\n";

  } elsif( Pod::Simple::T <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7651	7756	
==>g = shift;
	my $pir = "";

	# If the destination isn't a register, determine register name now.
	if (!$des <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5769	5874	
==>g = shift;
	my $pir = "";

	# If the destination isn't a register, determine register name now.
	if (!$des <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	2056	2232	
==>2 - $3)) & (1 << $2) - 1)))"; 
	$c = "\$r = $2;
        $1 = ((\$r << $3) | ((\$r >> (32 - $3))  & ((1 << $3) - 1))) + $4";
	$insert .= "\t$c\n";
  }
  
  my $dump = '
  sub rou <==
2	/Users/nnunley/parrot/languages/urm/urm-old.pl	1523	1643	
==>($register{$1} < 0) { $register{$1} = 0 }
	$pos++;
    }
    elsif ($line =~ / *goto *(\d+)/) {
	$pos=$1 ;
    }
    else <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	3748	3853	
==>line = shift;
  my ($return_type, $name, @params) = split ' ', $line;
  unshift @params, $return_type;
  m <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	442	536	
==>s/build/headerizer.pl OBJFILES

=head1 DESCRIPTION

=head1 TODO

* Tell if there are funcs with <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	1374	1540	
==>reter->code->base.data + offset_in_ops;
}

static void** opcode_to_prederef(Interp* interpreter,
                                        opcode_t* opcode_addr)
{
    I <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	4317	4438	
==>9 \"src/ops/core.ops\"\n    opcode_t *pc = CUR_OPCODE;\n    DO_OP(pc, interpreter);\n    {{=pc}};\n",
                  "L <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	1443	1554	
==>EADER";
/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically f <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	3203	3314	
==>EADER";
/* ex: set ro:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically f <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	432	524	
==>/Yapp/Driver.pm file----------------------------------------
{
#
# Module Parse::Yapp::Dri <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	421	510	
==>/Yapp/Driver.pm file----------------------------------------
{
#
# Module Parse::Yapp::Dri <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4359	4458	
==>Set a callback on C<$key> named C<$trigger>.  Multiple triggers can be set on a
given key.  When the <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	22279	22377	
==>[0]'
	P2["type"]= "USER"
	P5= P6		# Remember where we were...
	P4= P6["storage"]
	P6= P4["$_->[0]"] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828684	828784	
==>n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_PMC) {\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829752	829852	
==>n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_PMC) {\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832079	832166	
==>ps/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832807	832894	
==>ps/stack.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	305	431	
==>t   => '\w+' ],
        [ _MASTER => ':w<type> <ident>' ],
    ],
    "simple subrules test");
  p6rule_isnt('abc', '^bc', 'BOS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	824404	824501	
==>n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_STRI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	825475	825572	
==>n      internal_exception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_STRI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131168	131430	
==>[
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 306 \"src/ops/bit.ops\"\n  {{\@1}} = {{\@2}} ^ {{\@3}};\n  {{+=4}};\n",
                  " <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	14065	14183	
==>l"]);
    $self->_add_inst ('', 'set', [$return,1]);
    $self->_add_inst ('', 'branch', ["DONE_$label"]);
    $self->_ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	16337	16449	
==>l"]);
  $self->_add_inst ('', 'set', [$return,1]);
  $self->_add_inst ('', 'branch', ["DONE_$label"]);
  $self->_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828731	828844	
==>ng\");\n  if (entry->entry_type != STACK_ENTRY_PMC) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829799	829912	
==>ng\");\n  if (entry->entry_type != STACK_ENTRY_PMC) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"Wrong type o <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	46838	46937	
==>=======================================================================

sub filter {
  my($class, $ <==
2	/Users/nnunley/parrot/languages/regex/regex.pl	119	328	
==>y $tree_opt = 1;
my $list_opt = 1;
my $debug = 0;
my $output;
my $subname;
my $language = "pir";
my $main;

while (@ARGV) {
    $_ = shift;
    if (/--no(-?)optimize/) {
        $tree_opt = 0;
        $list_opt <==
2	/Users/nnunley/parrot/lib/Test/More.pm	13390	13525	
==>lass) };
        if( $@ ) {
            if( $@ =~ /^Can't call method "isa" on unblessed reference/ ) {
                if( !UNIVERSAL:: <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4306	4419	
==>halfpoint_size',
 'header_halfpoint_size',
 'normal_halfpoint_size',
 'no_proofing_exemptions',
);


#~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	53230	53325	
==>tem = new Parse::RecDescent::UncondReject($lookahead,$line,$code);
				$prod and $prod->additem( <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54939	55034	
==>tem = new Parse::RecDescent::UncondReject($lookahead,$line,$code);
				$prod and $prod->additem( <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	192	293	
==>ndards.pl - Check conformancs of C source code to PDD 7

=head1 SYNOPSIS

    % perl tools/dev/check_s <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	2944	3048	
==>] {

where C<flags> are:

=over 4

=item C<extends PMCPARENT>

All methods not defined in PMCNAME are inh <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	26667	26793	
==>b STORE_FAST
{
    my ($n, $c, $cmt) = @_;
    my $tos = pop @stack;
    $fast[$n] = $tos;
    my $p;
    if ($p = $lexicals{$c <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	22972	23182	
==>CK_SEQUENCE($n, '', "\t\t #unpack");
    CALL_FUNCTION($n, $c, $cmt);
}
sub CALL_FUNCTION
{
    my ($n, $c, $cmt) = @_;
    my @args;
    if ($make_f) {
	$make_f = 0;
	print <<EOC;
	# make_f \t$cmt
EOC
	# pop @s <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8565	8668	
==>Otherwise, there's nothing to do here.
	if ($dest_reg) {
		$pir .= <<'PIR'
# Get type (so we can find re <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6385	6488	
==>Otherwise, there's nothing to do here.
	if ($dest_reg) {
		$pir .= <<'PIR'
# Get type (so we can find re <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4962	5078	
==>ve_pod_page_link {
  my($self, $to) = @_;
  
  return 'TODO';
}

sub do_url_link { return $_[1]->attr('to') }

sub do <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	3397	3509	
==>> is the same as for C<run_core_func_decl()>.

=item C<init_func_init1($base)>

Optionally implemented in subclas <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	468052	468425	
==>_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 537,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BO <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1047	1160	
==>$push_num = 0;
	
	# Emit initial code.
	my $pir = <<'PIR';
# Get current stack types array size.
${ITEMP0} = eleme <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	625	814	
==>we implement a pull-parser on top of a push-parser...

sub filter {
  my($self, $source) = @_;
  $self = $self->new unless ref $self;

  $source = *STDIN{IO} unless defined $source;
  $self- <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	17725	17840	
==>way, 2001-09-10, v0.62.

   Modified implicit construction of nested objects.
   Now will also take an object ref in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465173	465425	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "dec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	465794	466046	
==>ess( {
                  "JUMP" => 0,
                  "NAME" => "dec",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inl <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	16615	16827	
==>peof \$P1
    if \$S1 != 'String' goto got_args
    %% DOMAIN_ERROR %%
  got_args:
	\$P2 = clone $scalar
END_PIR
   
     $template .= interpolate($code, @order);

     $template .= 'push result, ' . $order[0] . " <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	1544	1655	
==>matically from '$infile'
 * by $0.
 *
 * Any changes made here will be lost!
 *
 */

#define CONCAT(a,b) a##b
#d <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	3833	3944	
==>matically from '$infile'
 * by $0.
 *
 * Any changes made here will be lost!
 *
 */

#define CONCAT(a,b) a##b
#d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822286	822383	
==>xception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_INT) {\n    internal_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823354	823451	
==>xception(99, \"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_INT) {\n    internal_ <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	3273	3493	
==>next;
            }
        }
        if ($line =~ m/^}/) { #{
            # 1. check templates
            while (my($t, $body) = each(%templates)) {
                if ($asm =~ /$t\s+/) {
                    my $tbody = <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	12470	12717	
==>=> -11
	},
	{#State 5
		DEFAULT => -28,
		GOTOS => {
			'rulename' => 18
		}
	},
	{#State 6
		DEFAULT => -26
	},
	{#State 7
		DEFAULT => -6
	},
	{#State 8
		DEFAULT => -1
	},
	{#State 9
		ACTIONS => {
			"(" => 10,
			'CHAR' => 4,
			"<" => 3,
			" <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	5081	5232	
==>___BUILTIN_CODE___\ngoto END\n";
    }
    return $pir;
}


# Usage message.
# ##############
sub usage() {
    print <<USAGE;
Usage:
  perl build/built <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	395	542	
==>e}, ':',
        $parser->YYData->{lineno}, ': ', $msg
        if ( exists $parser->YYData->{verbose_error}
        and $parser->YYData->{verbose <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	1929	2098	
==>before a "data" statement.
	my $singleif=0;
	my $elsetag=0;
	my $elsestack;
	my $ifline="1";
	my $elseline="a";
	my (@ifstack);
	my(@lhs, @rhs);
	my($result, $type, @code <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	25386	25492	
==>ent::linenum($thisline)').'];
		'; 
	}

	my $dir =
	      new Parse::RecDescent::Directive('if (' .
		($sel <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4782	5009	
==>_dest = shift;
	my $pir = "";

	# If we need a destination, we simply supply the register to load
	# into here.
	if ($need_dest) {
		$pir .= <<'PIR'
inc stack_depth 
${DEST0} = "$"
${STEMP0} = ${LOADTYPE}["reg_type_short"]
${DES <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6844	6954	
==>_dest = shift;
	my $pir = "";

	# If we need a destination, we simply supply the register to load
	# into here. <==
2	/Users/nnunley/parrot/Configure.pl	5258	5364	
==>erbose-step=regex Set verbose for step matching description
   --nomanicheck        Don't check the MANIFES <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31147	31290	
==>d,
    );
    return \@opcodes;
}

sub BuildForList {
    my ( $parser, $vars, $exprs, $block ) = @_;
    my @opcodes1 = ();
    my @opc <==
2	/Users/nnunley/parrot/languages/regex/regex.pl	263	389	
==>if (/--no(-?)optimize/) {
        $tree_opt = 0;
        $list_opt = 0;
    } elsif (/--optimize=(.*)/) {
        my $opts = $1 <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32069	32180	
==>le->{'instruction'} =~ /\$\{STACK0\}/ &&
		    $rule->{'instruction'} =~ /\$\{STOREREG\}/) {
			die "instruction <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	894690	895000	
==>,
                  "ARGS" => [
                              "s",
                              "s",
                              "i",
                              "ic",
                              "sc"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791364	791638	
==>CODE" => 893,
                  "ARGS" => [
                              "p",
                              "p",
                              "ki"
                            ],
                  "BODY" => "#line 432 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_ <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	3395	3543	
==>$parent_headers .= "src/pmc/pmc_$_.h " foreach (pmc_parents($pmc));
        $TEMP_pmc_build .= <<END
src/pmc/$pmc.c : src/pmc/$pmc.dump
	\$(PMC2CC) s <==
2	/Users/nnunley/parrot/config/auto/bc.pm	180	317	
==>=head1 DESCRIPTION

Determines whether GNU bc, the basic calculator, exists on the system. It is OK
when it doesn't exist. Currently GNU b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819658	819753	
==>entry) {\n    internal_exception(99, \"Stack Depth wrong\");\n  }\n  {{\@1}} = get_entry_type(in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820618	820713	
==>entry) {\n    internal_exception(99, \"Stack Depth wrong\");\n  }\n  {{\@1}} = get_entry_type(in <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8773	8895	
==>mber distribution
randomize timer
max=10
dim a(max)
for i = 0 to 100
	b=rnd*max+1
	a(b)=a(b)+1
next i
for i = 1 to max
	pri <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20014	20136	
==>mber distribution
randomize timer
max=10
dim a(max)
for i = 0 to 100
	b=rnd*max+1
	a(b)=a(b)+1
next i
for i = 1 to max
	pri <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	591	709	
==>ying the
contents of C<@Parrot::Configure::steps>.

=cut

sub config_groups
{
    my $self = shift;
    my $dist = Parr <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3256	3380	
==>= ($1, $2, $3, choose($4, unescape($5), $6));

        # make the test print the last line of output
        # XXX This shoul <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4663	4787	
==>= ($1, $2, $3, choose($4, unescape($5), $6));

        # make the test print the last line of output
        # XXX This shoul <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1625	1794	
==>tance == 1) {
        return "<rx_pos>++;";
    } elsif ($distance == -1) {
        return "<rx_pos>--;";
    } elsif ($distance > 0) {
        return "<rx_pos> += $dista <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846705	846961	
==>(UINTVAL){{\@2}});\n  {{\@1}} = s;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847501	847757	
==>(UINTVAL){{\@2}});\n  {{\@1}} = s;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	10135	10319	
==>urn unless $path;
    
    return -f $path;
}

=item C<directory_with_relative_path($path)>

Returns a directory with the specified relative path below the directory.

=cut

sub directo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193483	193576	
==>ne 320 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get_stri <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194462	194555	
==>ne 320 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter,\n      {{\@1}}->vtable->get_stri <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	5543	5722	
==>0 if $Rargs[$_] ne $Sargs[$_] };
	return 1;
    }
}

# sub add_checks
#
# Augments the tree with length checks, so that primitive matching
# operations (eg matching single characte <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	19993	20302	
==>de, $pmcs) = @_;

    my ($pmcfilename, $pmcname);
    my %groups;
    foreach $pmcfilename (keys %$pmcs) {
        # Skip for non-dynpmcs.
        next unless $pmcs->{$pmcfilename}->{flags}->{dynpmc};

        # Get copy of name without extension.
        $pmcname = $pmcfilename;
        $pmcname =~ s/\.pmc$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	286055	286538	
==>"islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 333,
                  "ARGS" => [
                              "i",
                              "s",
                              "sc"
                            ],
                  "BODY" = <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	18667	18777	
==>tref = $startpos;
			return;
		}
		$rd1pos = pos($$textref);
		$$textref =~ m{$label\n}gc;
		$ld2pos = pos($$te <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	12672	12801	
==>rdel_inner, $rdel_outer) { tr/[]()<>{}\0-\377/]]))>>}}/ds }
	for ($ldel_inner, $ldel_outer, $rdel_inner, $rdel_outer)
	{
		$_ = '( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	1050	1216	
==>sion::Value');

  my $self = bless {
    BLOCK     => $block,

    KIND      => 'unless',
    LEFT      => $left,
    OP        => $op,
    RIGHT     => $right,

    C <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	935	1035	
==>fy paths to executables in a configuration file.
That file may be placed as parrotbench.conf in the s <==
2	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1533	1638	
==>pcode);

package FindGlobalOp;
use base qw(Lua::opcode);

package FindLexOp;
use base qw(Lua::opcode <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	12878	13098	
==>ount = _BUILTIN_$extern($ac$pir_args)};
				push @work, [ "result of $extern()", "RESULT",  "\$$optype$retcount"];
			} else {
				$extern=~s/\$/_string/g; $extern=~tr/a-z/A-Z/;

				$calling_code = "(%s) = _USERFUNC_${ex <==
2	/Users/nnunley/parrot/config/auto/python.pm	242	371	
==>. Checks also whether we have Python 2.4.

=head1 TODO

Store version of Python.

=cut

package auto::python;

use strict;
use var <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	15607	15744	
==>ONS => {
			"?" => 23,
			'CHAR' => 4,
			"<" => 22,
			"+" => 24,
			'CODE' => 6,
			"(" => 10,
			"|" => 26,
			"*" => 27,
			"[" => 14, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	16924	17061	
==>ONS => {
			"?" => 23,
			'CHAR' => 4,
			"<" => 22,
			"+" => 24,
			'CODE' => 6,
			"(" => 10,
			"|" => 26,
			"*" => 27,
			"[" => 14, <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	558	651	
==>::Construct::Block');
  confess("Identifier (" . ref($ident) . ") is not!") unless UNIVERSAL:: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	558	651	
==>::Construct::Block');
  confess("Identifier (" . ref($ident) . ") is not!") unless UNIVERSAL:: <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	14048	14167	
==>ool`

Sometimes what you need to test does not fit into one of the standard
testing functions. In that case, you can use <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	893551	893889	
==>1009,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic",
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interp <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	56861	57037	
==>cketed($_[0],'{}') } },
                   ]);

This call extracts the next single substring that is a valid Perl quotelike
operator (and removes it from $text):

        $quote <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	2190	2347	
==>re any
metadata tags.

Example: if this line is in the MANIFEST.generated file

  languages/snorkfest/snork-compile        [main]bin

and the --bindir=/usr/pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	526	624	
==>e_type
{
    return 'PARROT_FUNCTION_CORE';
}

=item C<core_prefix()>

Returns an empty string.

=c <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9196	9298	
==>INS} = concat ${STOREREG}
${INS} = concat " = "
${INS} = concat ${STEMP0}
${INS} = concat "\n"

# Decre <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6714	6816	
==>INS} = concat ${STOREREG}
${INS} = concat " = "
${INS} = concat ${STEMP0}
${INS} = concat "\n"

# Decre <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	36110	36241	
==>of the output file we are
generating.

The C<Null> PMC throws an execption for all methods.

=cut

sub body
{
    my ($self, $method <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1030	1176	
==>ko::Construct::Declaration::Sub")
    ) {
      if ($last_seen ne 'sub') {
        $compiler->emit("__INLINE_" . $inline . "()"); # $inline is alre <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	11386	11499	
==>$temps_ref}, "char t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_num = (char)GET_NCI_I( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	1686	1901	
==>left;
  my $op    = $self->op;
  my $right = $self->right;

  #
  # Find the enclosing sub block:
  #

  my $sub_block = $block->find_block('sub');

  $self->SYNTAX_ERROR("Cannot use 'return' outside of subroutine.") <==
2	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	1173	1352	
==>fig::parrot -o $out_name $out_name.pir`;
	unlink "$out_name.pir";
	if ($output) {
		print "translate failed:\n$output";
		return 0;
	}
	return 1;
}

# This takes some PIR, saves it <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19361	19510	
==>$do->{jump}";
		}
		push @{$code{$seg}->{code}}, "\t$_\n";
	} else {
		push @{$code{$seg}->{code}}, "\tgoto DO_$do->{jump}\n";
	}
	push @{$code{$seg}- <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	11034	11237	
==>stdio.h
getc        stdio.h
getchar     stdio.h
getenv      stdlib.h
gets        stdio.h
gmtime      time.h
hypot       math.h
hypotf      math.h
hypotl      math.h
ilogb       math.h
ilogbf      math.h
i <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	19238	19372	
==>_tree($include, $depth + 1, lc("$_.pmc"))
            for keys %{$class->{flags}{extends}};
    }
}

=head2 gen_c( [$dir1, $dir2], $fil <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	6839	6972	
==>endif
#include"parrot/exec.h"
#include"jit.h"
#define JIT_EMIT $jit_emit_n

/* Disable "truncation from 'const int' to 'char'" warning <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	29106	29233	
==>/\\{/g;

	bless 
	{
		"pattern"     => $pattern,
		"lookahead"   => $_[2],
		"line"        => $_[3],
		"description" => "'$desc' <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	31210	31331	
==>/\\{/g;

	bless 
	{
		"pattern"   => $pattern,
		"lookahead" => $_[2],
		"line"      => $_[3],
		"description" => "'$desc' <==
2	/Users/nnunley/parrot/config/init/manifest.pm	416	516	
==>gure::Step;
use ExtUtils::Manifest qw(manicheck);

$description = 'Checking MANIFEST';

@args = qw(no <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	314	541	
==>Test::per_test( '_antlr2.out', $count )
               :
               Parrot::Test::per_test( '_antlr2_no_past.out', $count );
}

sub get_test_prog {
    my $self = shift;
    my ( $count, $options ) = @_;

    my $lang_fn = P <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	19613	19814	
==>Dean Roehrich
    #
    # changes/bugs fixed since 28nov94 version:
    #  - podified
    # changes/bugs fixed since 21nov94 version:
    #  - Fixed examples.
    # changes/bugs fixed since 02sep94 vers <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937807	938080	
==>{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "join",
                  "FLAGS" => ": <==
2	/Users/nnunley/parrot/lib/Test/More.pm	7238	7403	
==>compare their two arguments
with C<eq> and C<ne> respectively and use the result of that to
determine if the test succeeded or failed.  So these:

    # Is the ultima <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	7438	7607	
==>ink_extra    => 'src/libnci_test.def',
            sym_export           => '__declspec(dllexport)',
            sym_import           => '__declspec(dllimport)',
        ) <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	3372	3481	
==>atch_num;1]
    eq match_start, -2, skipPrint
    eq match_end, -2, skipPrint
    print match_num
    print ": <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	102	240	
==>::Server::Simple::Static;

use CGI;
use CGI::Carp   qw<fatalsToBrowser>;
use Fcntl       qw<:DEFAULT :flock>;
use Storable    qw<store_fd f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	736686	736947	
==>s\"\n  {{\@1}} = (FLOATVAL){{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	737432	737693	
==>s\"\n  {{\@1}} = (FLOATVAL){{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	40844	41003	
==>@item if $backtrack;

		  ';
	}
	else
	{
		$code .= '
		  my $savetext = $text;
		  my $backtrack;
		  # MATCH (LEFTARG OP)(s)
		  while ($repcount < ' . $self- <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	1313	1578	
==>ion should be overridden by the host language,
# because it's not a very good one.
sub new_local {
    my ($self, $name, $type) = @_;
    $type ||= 'int';
    die "cannot handle type '$type'" if $type ne 'int';

    # Bad implementation -- does not handle recursion. <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	4135	4303	
==>urce)? lines executed in function (.*)/;
            if ($total_lines) {
                $function_line_coverage{$source_file}{$function} = $percent;
                nex <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	15150	15402	
==>)>.

=head1 SEE ALSO

L<perlpod|perlpod>

L<perlpodspec|perlpodspec>

L<Text::Unidecode|Text::Unidecode>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2001 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605430	605674	
==>E" => "addattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606220	606464	
==>E" => "addattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inli <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	14	114	
==>arrot::Test::PGE - test functions for Perl 6 Grammar Engine

=head1 SYNOPSIS

In a .t file:

  use Pa <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	69629	69740	
==>hint('Set $::RD_HINT (or -RD_HINT if you\'re using "perl -s")
		       for hints on fixing these problems.');
	} <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3969	4063	
==>o(y())
	print y(4)
end function
function arrfunc(x())
	u=aftwo(x())
	arrfunc=55
end function
di <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15242	15336	
==>o(y())
	print y(4)
end function
function arrfunc(x())
	u=aftwo(x())
	arrfunc=55
end function
di <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	923908	924193	
==>P" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924698	924983	
==>P" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "C <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15016	15106	
==>[^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
    }
    return <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16199	16289	
==>[^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
    }
    return <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	3	93	
==>opyright (C) 2004, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Docs/File.pm 20333 2006-0 <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	4399	4508	
==>$nolines_flag );
$real_ops->{PREAMBLE} = $ops->{PREAMBLE};
$real_ops->version($ops->version);

# verify opcode <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	12024	12148	
==>(e.g. tcl),
    are also available.
  </p>

  <p>
    Submitting your own smoke is easy,
  </p>
    
  <pre class="indent2">$ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1183	1321	
==>h}, 
            STDOUT => $pasm_f, STDERR => $pasm_f,
        );
        Parrot::Test::run_command( 
            "./parrot languages/$pasm <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1092	1230	
==>h}, 
            STDOUT => $pasm_f, STDERR => $pasm_f,
        );
        Parrot::Test::run_command( 
            "./parrot languages/$pasm <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	1825	1949	
==>lf->new_local($name, $type);
    push @{ $op->{rxlocals} }, $var;
    return $var;
}

sub op_save_rxlocals {
    my ($self, $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887704	888158	
==>,
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1004,
                  "ARGS" => [
                              "s",
                              "s",
                              "i",
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 25 <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	12015	12206	
==>le.h
localtime   time.h
log         math.h
log10       math.h
log10f      math.h
log10l      math.h
log1p       math.h
log1pf      math.h
log1pl      math.h
log2        math.h
log2f       math <==
2	/Users/nnunley/parrot/tools/dev/cc_flags.pl	563	656	
==><config/gen/cflags/root.in> for the transformation file format.

=head1 SEE ALSO

F<config/gen <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	3578	3735	
==>lid_flag, 1
    ret
.end
END
}

sub output_rule_body {
    my ($self, $fh, $subname, $rule, $ctx, $instructions) = @_;
    print $fh join("\n", @$instructions <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	5338	5443	
==>namespace [""]

$nst
.sub $real_name prototyped$meth $cmt
EOC
    my (@params, $k, $v, $params);
    while <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	30964	31101	
==>type eq 'text') {
            # Nothing special needs doing for 'text'
          } elsif($item_type eq 'number' or $item_type eq 'bullet') <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3379	3638	
==>ndif

SWITCH_RELOAD:
    _reg_base = (char*)interpreter->ctx.bp.regs_i;
    do {
SWITCH_AGAIN:
    cur_opcode = CHECK_EVENTS(interpreter, cur_opcode);
    if (!cur_opcode)
        break;
    switch (*cur_opcode) {
END_C
}

=item C<run_core_split($base)>

If de <==
2	/Users/nnunley/parrot/lib/Test/More.pm	25023	25121	
==>ality
along these lines.

=back

=cut

use vars qw(@Data_Stack %Refs_Seen);
my $DNE = bless [], 'Do <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5489	5696	
==>->{pragma} and $_->{pragma} eq 'multi' ) {
                    print {$FH} " :slurpy";
                }
                $first = 0;
            }
            print {$FH} ") = ";
        }
        prin <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6521	6714	
==>->{pragma} and $_->{pragma} eq 'multi' ) {
                    print {$FH} " :slurpy";
                }
                $first = 0;
            }
            print {$FH} ") = ";
        } <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	5084	5193	
==>igest::Perl::MD5 if it
cannot load its object files.

For a detailed Documentation see the C<Digest::MD5> modu <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	16446	16590	
==>'contentless' => 1 ) : (),
      },
    );
  }

  my($para, $para_type);
  while(@$paras) {
    last if @$paras == 1 and
      ( $paras->[0][0] e <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	12728	12905	
==>\s*$/) {
                print OUT qq($atag<font color="green">$_</font>)
            } elsif ($_ =~ /branch \d+ taken = 0%/) {
                print OUT qq($atag<font color="red <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20441	20538	
==>an object of a subclass), then there's no reason to
bother subclassing to add a C<run> method.

=h <==
2	/Users/nnunley/parrot/examples/benchmarks/arriter.pl	24	150	
==>C) 2001-2006, The Perl Foundation.
# $Id: /parrot/examples/benchmarks/arriter.pl 19601 2006-05-30T13:32:26.641316Z coke  $

=he <==
2	/Users/nnunley/parrot/lib/Test/More.pm	8488	8595	
==>ws in Brooklyn' );

This does not check if C<exists $brooklyn{tree}> is true, it checks if
it returns 1.  Ve <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1778	1993	
==>o_offset()>.

=cut

sub expr_pop
{
    my ($self) = @_;

    return "pop_dest(interpreter)";
}

our %arg_maps = (
  'op'  => "cur_opcode[%ld]",

  'i'   => "IREG(%ld)",
  'n'   => "NREG(%ld)",
  'p'   => "PREG(%ld)", <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	8754	8869	
==>$opcode, $arg, $rest, $cmt);
    }
    print ".end\t\t# $cur_func\n";
}

sub gen_pir {
    my ($opcode, $arg, $rest, <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1477	1585	
==>"MODULE"; # TODO: Don't we need to do better than this?

#  printf STDERR "%s: Compiling module '%s'.\n", __P <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36046	36192	
==>,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -71
	},
	{#State 139
		ACTIONS => {
			"-" => <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	5115	5231	
==>s\n"
PIR
	}

	return $pir;
}

sub post_store($) {
	my $self = shift;
	my $dest_reg = shift;
	my $pir = "";

	# If des <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	787	902	
==>ss;

  $block->push_content($self);

  return $self;
}

sub ident  { return shift->{IDENT};  }


#
# compile()
#

su <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	787	902	
==>ss;

  $block->push_content($self);

  return $self;
}

sub ident  { return shift->{IDENT};  }


#
# compile()
#

su <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	1547	1649	
==>ly in a F<*_ops.c> file).

You can see evidence of this by the way this code reaches in to the
internal <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	23968	24075	
==>elsif (/^uint16$/) {
			$out =  "    \${I_ARG_$arg_num} = bc.read_uint16()\n    next_pc += 2\n";
			$arg_nam <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	823	956	
==>>

=item C<-C>

List the constant (read-only) data symbols.

Not all platforms support this, a warning will be given if not. You can
t <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	1378	1511	
==>LSPACING="0" WIDTH="730">
            <TR>
                <TD WIDTH="100%" COLSPAN="2" CLASS="BANNER">parrotcode: <SPAN CLASS="title" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	3090	3258	
==>f ($text =~ m{^([:])(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, 'colon', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117954	118249	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":ba <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118693	118988	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":ba <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1035	1162	
==>GHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $left  = $self->left->value;
  my $rig <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	1043	1170	
==>GHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $left  = $self->left->value;
  my $rig <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	35782	35879	
==>anned, the missing (or extras)
will be considered failures.  If no tests were ever run Test::Build <==
2	/Users/nnunley/parrot/lib/Test/More.pm	33853	33950	
==>anned, the missing (or extras)
will be considered failures.  If no tests were ever run Test::Build <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4190	4302	
==>{__PACKAGE__.'::'}{_DBParse})#Already loaded ?
		and	return;
	}
	my($fname)=__FILE__;
	my(@drv);
	open(DRV," <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3975	4082	
==>{__PACKAGE__.'::'}{_DBParse})#Already loaded ?
		and	return;
	}
	my($fname)=__FILE__;
	my(@drv);
	open(DRV," <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	552334	552604	
==>ODE" => 635,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 77 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t *next;\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	35098	35294	
==>o-hum L<Modulename> link.\n";
          $treelet->[$i][1]{'type'} = 'pod';
          $treelet->[$i][1]{'content-implicit'} = 'yes';
          $treelet->[$i][1]{'to'  } =
            Pod::Simple::Li <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	793	1094	
==>misc 
  parse parseExpr parseOld regexpComp utf util
);

my %numtests;

foreach my $test (@b) {
  next if grep {$test eq $_} @skip;
  if (grep {$_ eq $test } @keepers) {
    push @keep, $test
  } elsif (grep {$_ eq $test || "$_-old" eq $test } @a) {
    push @keep, $test
  } else {
    push @skip, $te <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	8145	8286	
==>s ($has_trans) {
        die "Translation (instruction or pir) not provided in rule " .
            "$rule->{'name'}\n";
    }

	# typeinfo mu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826598	826692	
==>\n  if (entry->entry_type != STACK_ENTRY_FLOAT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827668	827762	
==>\n  if (entry->entry_type != STACK_ENTRY_FLOAT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41814	41935	
==>escribe
						  . ']>>},
						  Parse::RecDescent::_tracefirst($text),
						  q{' . $rule->{"name"} .'})
							if defin <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	38123	38236	
==>escribe . ']>>},
						  Parse::RecDescent::_tracefirst($text),
						  q{' . $rule->{"name"} .'})
							if defin <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22077	22197	
==>k: "
          . $self->_dump_curr_open() . ')'
        );
        DEBUG and print "Ignoring mistargetted =end $content\n <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22406	22526	
==>k: "
          . $self->_dump_curr_open() . ')'
        );
        DEBUG and print "Ignoring mistargetted =end $content\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464605	464815	
==>n",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 322 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0 <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	41027	41185	
==>UG > 3 and print "L-to content: ", pretty($ell->[1]{'to'}), "\n";
      }
      
      # And update children to be the link-text:
      @$ell = (@$ell[0,1], de <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr3.pm	252	434	
==>unt, $options ) = @_;

    return Parrot::Test::per_test( '_antlr3.out', $count );
}

sub get_test_prog {
    my $self = shift;
    my ( $count, $options ) = @_;

    my $lang_fn = Pa <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	12308	12427	
==>back, @ops);
}

sub rewrite_advance {
    my ($self, $op, $howfar, $lastback) = @_;
    my $back = $self->genlabel('undo <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3576	3685	
==>b _CheckParams {
	my($mandatory,$checklist,$inarray,$outhash)=@_;
	my($prm,$value);
	my($prmlst)={};

	wh <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3389	3493	
==>b _CheckParams {
	my($mandatory,$checklist,$inarray,$outhash)=@_;
	my($prm,$value);
	my($prmlst)={};

	wh <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1056286	1056548	
==>E" => 1179,
                  "ARGS" => [
                              "p",
                              "k",
                              "s"
                            ],
                  "BODY" => "#line 194 \"src/ops/var.ops\"\n    {{\@1}} = Parrot_get_g <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955156	955493	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "encodingname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955967	956304	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "encodingname",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Examples.pm	878	1018	
==>_group('Subroutines',          '', 'examples/subs'),
            $self->new_group('IO',                   '', 'examples/io'),
            $se <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	31940	32060	
==>\{STOREREG\}/) {
			die "pir must use one of \${STACK0} or \${STOREREG} in rule " .
				"$rule->{'name'}\n";
        } el <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	12472	12586	
==>tdlib.h
mblen       stdlib.h
mbstowcs    stdlib.h
mbtowc      stdlib.h
memchr      string.h
memcmp      string.h
me <==
2	/Users/nnunley/parrot/Configure.pl	4872	4997	
==>sion Configure 2.0
$svnid
END
      exit;
    };

    m/help/    && do {
      print <<"EOT";
$0 - Parrot Configure 2.0

Gener <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1997	2112	
==>ed from C<new()> to create the path if necessary.

=cut

sub create_path
{
    my $self = shift;
    
    return unl <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	974	1089	
==>ed from C<new()> to create the path if necessary.

=cut

sub create_path
{
    my $self = shift;
    
    return unl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	690455	690700	
==>/pmc.ops\"\n   {{\@1}} = Parrot_freeze(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	4091	4209	
==>he same, generated unique number.
    $P100 = new 'APLVector'
    $I100 = 1
    $I101 = 0
    $I102 = %1
  loop_begin_1 <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	5756	5863	
==>& $self ne 'self') {
	print <<EOC;
	.local pmc $self
	$self = self
EOC
    }
    if ($func_info{$arg}{flags} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	611817	612115	
==>ine",
                  "CODE" => 693,
                  "ARGS" => [
                              "p",
                              "ic",
                              "p"
                            ],
                  "BODY" => "#line 491 \"src/ops/object.ops\"\n    VTABLE_set_attr(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782145	782558	
==>,
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 883,
                  "ARGS" => [
                              "p",
                              "ki",
                              "sc"
                            ],
                  "BODY" => "#line 387 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed_int(i <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	25198	25363	
==>t =  "    \${I_ARG_$arg_num} = bc.read_ttype()\n    next_pc += 4\n";
			$arg_name = "I_ARG_$arg_num";
		}

        # tstring
		elsif (/^tstring$/) {
			$out =  "    \ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	694372	694924	
==>[
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 780,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	382931	383167	
==>"ARGS" => [
                              "p",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 455 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	14883	14983	
==>of each such character, you get a "?".  Latin-1
characters (characters 160-255) are unaffected.

Unde <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	931955	932247	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_core",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932726	933018	
==>S" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "upcase",
                  "FLAGS" => ":base_core",
                  " <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3448	3596	
==>-1); # Without the surrounding double quotes.

      $handler->start_element({ Name => 'concat' });

      while (1) {
        last unless defined $s <==
2	/Users/nnunley/parrot/lib/Test/More.pm	24090	24264	
==>rnet connection and one isn't available.

B<If it's something the programmer hasn't done yet>, use TODO.  This
is for any code you haven't written yet, or bugs you have yet to <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	531925	532075	
==>"#line 864 \"src/ops/math.ops\"\n  {{\@1}} = cosh((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	16481	16600	
==>$self, $para) = @_;
  return $para->[1]{'~type'} if $para->[1]{'~type'};


  # Otherwise we haven't yet been to this nod <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	5563	5661	
==>->check_pod;
	
	return $self->{CONTAINS_POD};
}

=item C<num_pod_errors()>

Tells you the number of <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	13763	13869	
==>s, qr/$regex/, $name);
  $Test->unlike($this, '/$regex/', $name);

Like Test::More's unlike().  Checks if $ <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	8208	8293	
==>line_coverage{$source_file} ? "$file_line_coverage{$source_file} %" : "n/a" ]}</a></td <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	6486	6708	
==>es3, new CloneOp( $parser,
                    'arg1'   => $unit->[0],
                    'result' => $num_key,
                );
                $key = [ $num_key, \@opcodes3 ];
            }
            if (    sc <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1476	1617	
==><args(@args)>

=item C<args()>

Sets/gets the transform's arguments.

=cut

sub args
{
    my $self = shift;

    if (@_)
    {
        $self- <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1085	1226	
==><args(@args)>

=item C<args()>

Sets/gets the transform's arguments.

=cut

sub args
{
    my $self = shift;

    if (@_)
    {
        $self- <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	25322	25480	
==>extend only formatting codes A-Z, not like \"$new_letter\""
      );
      return;
    }
    
    if(grep $new_letter eq $_, @Known_formatting_codes) {
      D <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	2253	2387	
==>able declared in the block
   making the calls into the interpreter, as it declares a variable
   and has some code.

   PARROT_CALLIN_ <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	5140	5392	
==>/;
            if ($total_calls) {
                $function_call_coverage{$source_file}{$function} = $percent;
                next;
            }

            ($percent, $total_calls) = /\s*([^%]+)% of (\d+) calls executed in file/;
            if ($t <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	7852	7957	
==>able};
    # set parentname
    $const->{parentname} = $self->{class};

}

=item C<init($class)>

Initiali <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	319261	319453	
==>ption(1, \"Overflow exception for conv_u2_ovf\");\n  }\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	1250	1431	
==>class => [ element-list ])
    #   struct( class => { element-list })
    #   struct( element-list )
    # Latter form assumes current package name as struct name.

    my ($class, @ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	955	1114	
==>ere
	# I must not fear. Fear is the mind-killer. Fear is the little-death 
	#  that brings total obliteration. I will face my fear. I will permit
	#  it to pass <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	421792	421892	
==>Y" => "#line 562 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_bind(interpreter, {{\@2}}, {{\@3}});\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	422685	422785	
==>Y" => "#line 562 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_bind(interpreter, {{\@2}}, {{\@3}});\n <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	13778	13891	
==>ass method
  
  if(!defined $source)             { $source = *STDIN{IO}
  } elsif(ref(\$source) eq 'GLOB') { # ste <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	14107	14277	
==>type,	        /* core_type = PARROT_XX_CORE */
  0,			/* flags */
  $major_version,	/* major_version */
  $minor_version,	/* minor_version */
  $patch_version,	/* patch_ve <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	312588	312959	
==>_info info;\n  Parrot_Context_info(interpreter, CONTEXT(interpreter->ctx), &info);\n  {{\@1}} = info.line;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getfile",
                  "FLAGS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	313320	313416	
==>_info info;\n  Parrot_Context_info(interpreter, CONTEXT(interpreter->ctx), &info);\n  {{\@1}} = s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19884	20024	
==>f->require_close_paren;
      $self->require_semicolon;
     
      #
      # TODO: Call is really an expression, but here its treated as a s <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18253	18388	
==>' => 29,
			"(" => 40,
			'NIL' => 30,
			"#" => 41,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36,
			")" => 99
		}, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450500	450875	
==>=> [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 516,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 200 \"src/ops/math.ops\"\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106975	1107196	
==>"CODE" => 1225,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 352 \"src/ops/experimental.ops\"\n    in <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	13635	13887	
==>t;
    return $op->{name};
}

sub Regex::Ops::Tree::_onearg::reftree {
    my $op = shift;
    return [ annotated($op, $op->{name}), $op->{args}->[0]->reftree() ];
}

sub Regex::Ops::Tree::match::reftree {
    my $op = shift;
    return annotated($op, " <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	921	1062	
==>en '$lang_f'"; # JMG
        binmode LANG; # JMG
        print LANG $lang_code; # JMG
        close LANG; # JMG

        Parrot::Test::run_com <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	833	974	
==>en '$lang_f'"; # JMG
        binmode LANG; # JMG
        print LANG $lang_code; # JMG
        close LANG; # JMG

        Parrot::Test::run_com <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57862	57973	
==>ne 874 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo_s(interpreter, {{\@2}});\n  {{+=3}};\n",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58624	58735	
==>ne 874 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo_s(interpreter, {{\@2}});\n  {{+=3}};\n",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240180	240312	
==>eger(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241128	241260	
==>eger(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	717994	718087	
==>preter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_fprintf(interpreter, io, INTVAL_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718926	719019	
==>preter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_fprintf(interpreter, io, INTVAL_ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	11421	11552	
==>};
  }

  for my $clause ( reverse @clauses ) {
    $transnode = { children => [ { value => 'if' },
				 _get_arg($clause,0),
				 { <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	14851	15005	
==>:

    # If this is the start of a typed exception handler...
    handler_offset = eh.get_handler_offset()
    eh_flags = eh.get_flags()
    if eh_flags != <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	7711	7876	
==>";
            } else {
                $_->{name} . " " . join(", ", map { ref($_) ? $_->{label} : $_ } @{ $_->{args} || [] });
            }
        } @_;
    } els <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	10352	10491	
==>snt_eq',
        pbc_output_like    => 'like',
        pasm_output_is     => 'is_eq',
        pasm_output_isnt   => 'isnt_eq',
        pasm_ <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	4196	4353	
==>e {
    my $line = shift;
    return "  pir .= \"$line\"\n";
}

sub arguments {
    my (@args) = @_;
    
    my %conversions =
    (
        channel => '__ch <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031480	1031599	
==>ype || {{\@2}} >= enum_last_type)\n        {{\@1}} = -1;\n    else\n        {{\@1}} = data_types[{{\@2}} - enum_first_ty <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032349	1032468	
==>ype || {{\@2}} >= enum_last_type)\n        {{\@1}} = -1;\n    else\n        {{\@1}} = data_types[{{\@2}} - enum_first_ty <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2164	2270	
==>elf->SYNTAX_ERROR("Undefined identifier '%s'.", $args[$i]->value) unless $arg_sym;
      $actual_arg_type = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1864	1970	
==>elf->SYNTAX_ERROR("Undefined identifier '%s'.", $args[$i]->value) unless $arg_sym;
      $actual_arg_type = <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	7326	7493	
==>s)";
    }

    my $src = $op->source($trans);
    $src    =~ s/\bop_lib\b/${bs}op_lib/;
    $src    =~ s/\bops_addr\b/${bs}ops_addr/g;

    if ($suffix =~ /cg/) {
	pus <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	20946	21109	
==>FIX
		$oppos,		length($op),		# OPERATOR
		$ld1pos,	1,			# LEFT DEL
		$str1pos,	$rd1pos-$str1pos,	# STR/PAT
		$rd1pos,	1,			# RIGHT DEL
		$ld2pos,	$second_arg,		# 2N <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	8937	9124	
==>MExtUtils::Command -e mkpath',
             'msvcversion' => undef,
             'ncilib_link_extra' => '',
             'new_perldoc' => 1,
             'numvalsize' => 8,
             'n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684671	684933	
==>vtable->setprop(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n      {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685566	685828	
==>vtable->setprop(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n      {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79308	79410	
==>@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      /* At this point we have the symbo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80829	80931	
==>@1}} = pmc_new(interpreter, enum_class_Undef);\n  }\n  else {\n      /* At this point we have the symbo <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	554	661	
==>out_f     = Parrot::Test::per_test('.out',$count);
    my $parrotdir = dirname $self->{parrot};

    my $arg <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	591	698	
==>out_f     = Parrot::Test::per_test('.out',$count);
    my $parrotdir = dirname $self->{parrot};

    my $arg <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	149125	149213	
==>BODY" => "#line 105 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	150066	150154	
==>BODY" => "#line 105 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, { <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2651	2836	
==>o::Symbol->new( # TODO: Just point at the Declaration?
    $self->block,
    ($self->is_global ? 'global' : 'local'),
    $self->access,
    $self->type,
    $self->name,
    $self->valu <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30718	30819	
==>_load and append code it generates.
		my $post_load = $srm->post_load($need_dest);
		$pir .= "### post <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	839479	839683	
==>r->ctx)->user_stack, &({{\@1}}),\n                  STACK_ENTRY_STRING);\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	3557	3718	
==>header_file_with_name
{
    my $self = shift;
    my $name = shift || return;
    
    $name .= '.h' unless $name =~ /\.[Hh]$/o;
    
    foreach my $dir ($self-> <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	3236	3336	
==>le
    or die "can not open '$h_file': $!\n";
print <<"END";
$header
#if !defined(PARROT_CHARSET_TABL <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	189	290	
==>ode documentation section

=head1 SYNOPSIS

    use Parrot::Docs::Section::C;

=head1 DESCRIPTION

A d <==
2	/Users/nnunley/parrot/Configure.pl	6814	6929	
==>on't build cgoto core - recommended when short of mem
   --jitcapable         Use JIT
   --execcapable        Use JI <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6832	6984	
==>nd of Error recovery.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push(@$stack,[ $act, $$value ]);

					$$token ne ''	#Don't <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6515	6659	
==>nd of Error recovery.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push(@$stack,[ $act, $$value ]);

					$$token ne ''	#Don't <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	582962	583233	
==>=> 664,
                  "ARGS" => [
                              "p",
                              "sc",
                              "sc"
                            ],
                  "BODY" => "#line 289 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_lookup <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101837	102064	
==>ring_bitwise_not(interpreter, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102608	102835	
==>ring_bitwise_not(interpreter, {{\@2}}, &{{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33383	33523	
==>{subrule}}}";
	}
	else
	{
		return $_[1].$_[0]->{"subrule"};
	}
}

sub new ($$$$;$$$)
{
	my $class = ref($_[0]) || $_[0];
	bless 
	{
		"subru <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	3547	3680	
==>stback) = @_;
    return aop('goto', [ $R ]) if $R->{name} eq 'LABEL';
    return $self->rewrite($R, $lastback);
}

sub rewrite_test { <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	6037	6182	
==>cept_directives('Verbatim', @_) }
sub accept_directive_as_data      { shift->_accept_directives('Data',     @_) }
sub accept_directive_as_processe <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	3599	3746	
==>hift->is('var');           }
sub is_while         { return shift->is('while');         }

sub is_loop_control  { return shift->is('next', 'last', 'r <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	13751	13864	
==>('', $self->{RESOURCES_URL});
        
    return 1;
}

=item C<html_for_file($file)>

Returns the HTML for the sp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	42328	42517	
==>s\"\n  do_exception(interpreter, EXCEPT_exit, {{\@1}});\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43018	43207	
==>s\"\n  do_exception(interpreter, EXCEPT_exit, {{\@1}});\n  {{=0,+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	31821	32037	
==>, $desc) = @_;
    if( $check ) {
        die <<WHOA;
WHOA!  $desc
This should never happen!  Please contact the author immediately!
WHOA
    }
}

=item B<_my_exit>

  _my_exit($exit_num);

Perl seems to have some tro <==
2	/Users/nnunley/parrot/lib/Test/More.pm	30905	31088	
==>, $desc) = @_;
    if( $check ) {
        die <<WHOA;
WHOA!  $desc
This should never happen!  Please contact the author immediately!
WHOA
    }
}


=item B<eq_hash>

  my $is_eq = eq_h <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	4175	4286	
==>lf = shift;

    return sort grep {-d} $self->file_and_directory_paths;
}

=item C<file_exists_with_name($name)> <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	29430	29552	
==>ions|perlfunc>", the link-text is "Perl Functions". In
# "L<Time::HiRes>" and even "L<|Time::HiRes>", there is no link text <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2136	2238	
==>st'),
        $self->directory_with_name('compilers')->directory_with_name('imcc'),
        $self->dire <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862452	862543	
==>"BODY" => "#line 138 \"src/ops/string.ops\"\n  {{\@1}} = string_length(interpreter, {{\@2}}) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863221	863312	
==>"BODY" => "#line 138 \"src/ops/string.ops\"\n  {{\@1}} = string_length(interpreter, {{\@2}}) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	318127	318523	
==>ore",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 372,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 108 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (INTVAL)((Parrot_UInt2)({{\@1}}));\n  {{+=2}} <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	1490	1606	
==>C";
/*
 * DO NOT EDIT THIS FILE
 *
 * Automatically generated by config/gen/core_pmcs.pm
 */

#include "parrot/parrot <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	1350	1439	
==>e_line_coverage, %file_branch_coverage, %file_call_coverage);
my (%function_line_coverage, <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2206	2313	
==>nition.
  #

  if (defined $sym and $sym->block eq $block) {
    $self->SYNTAX_ERROR("Redeclaration of ident <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1953	2060	
==>nition.
  #

  if (defined $sym and $sym->block eq $block) {
    $self->SYNTAX_ERROR("Redeclaration of ident <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9512	9622	
==>0 that aren't legal in an XML Name.
        or $new_code =~ m/^[-\.0-9]/s
        or $new_code =~ m/:[-\.0-9]/s <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10776	10886	
==>0 that aren't legal in an XML Name.
        or $new_code =~ m/^[-\.0-9]/s
        or $new_code =~ m/:[-\.0-9]/s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653394	653487	
==>thod(interpreter, {{\@2}}, {{\@3}});\n    if (!{{\@1}} || !VTABLE_defined(interpreter, {{\@1}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654555	654648	
==>thod(interpreter, {{\@2}}, {{\@3}});\n    if (!{{\@1}} || !VTABLE_defined(interpreter, {{\@1}} <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	26606	26722	
==>uildWhile {
    my ( $parser, $expr, $block ) = @_;
    my @opcodes    = ();
    my $l_continue = new_label($parse <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	318794	319252	
==>ore",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 373,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 113 \"src/ops/dotgnu.ops\"\n  if({{\@1}} >= 0 && {{\@1}} <= 65535) {\n    {{\@1}} = (INTVAL)((Parrot_UInt2)({{\@1}}));\n  }\n  else\n  {\n    inter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	781151	781582	
==>DIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 882,
                  "ARGS" => [
                              "p",
                              "kic",
                              "s"
                            ],
                  "BODY" => "#line 3 <==
2	/Users/nnunley/parrot/lib/Test/More.pm	20533	20633	
==>ny accurately reflects the number of tests
in the SKIP block so the # of tests run will match up with <==
2	/Users/nnunley/parrot/config/init/hints.pm	179	274	
==>=head1 DESCRIPTION

Loads the platform and local hints files, modifying the defaults set up in
F <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	58887	59066	
==>ub
#line 546 "Lua\lua51.yp"
{
            [
                @{ $_[1] },
                BuildParam( $_[0], $_[3] ),
            ];
        }
	],
	[#Rule 103
		 'parlist', <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	443	560	
==>ss = shift;

  confess "Expected 5 args!" unless @_ == 5;

  my ($block, $prefix, $left, $op, $right) = @_;

  my $sel <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	443	560	
==>ss = shift;

  confess "Expected 5 args!" unless @_ == 5;

  my ($block, $prefix, $left, $op, $right) = @_;

  my $sel <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	28215	28392	
==>elf->{file});
    my $name = uc $self->{class};
    $hout .= <<"EOH";

#ifndef PARROT_PMC_${name}_H_GUARD
#define PARROT_PMC_${name}_H_GUARD

EOH

    if ($self->{flags}{dynpmc}) <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	1752	1897	
==>T = '/Users/nnunley/parrot/libparrot.a';
    }
}

# PMC2C Config
our $PMC2C = "$PERL $PATHQUOTE" . q[/Users/nnunley/parrot/tools/build/pmc2c.pl] . <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45575	45758	
==>MK	= '\G\s*>';
my $RESYNCMK		= '\G\s*<resync>';
my $RESYNCPATMK		= '\G\s*<resync:';
my $RULEVARPATMK	= '\G\s*<rulevar:';
my $DEFERPATMK		= '\G\s*<defer:';
my $TOKENPATMK		= '\G\s*<toke <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	1403	1536	
==>$_[0]) { # I'm not being subclassed!
    Carp::croak "You can call run() only on subclasses of "
     . __PACKAGE__;
  } else {
    Ca <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	24612	24719	
==>$$)
{
	my ($self, $namespace, $rule, $check) = @_;
	
	my $action = '';
	
	if ($self->{"msg"})  # ERROR MESSA <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	8289	8400	
==>to accept \"$t\" as target of type $type\n";
  }    
  return sort keys %{ $this->{'accept_targets'} } if wantar <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	486	634	
==>Returns a new section.

=cut

sub new
{
	my $self = shift;
	
	return $self->SUPER::new(
		'Libraries', 'libs.html', '',
		$self->new_group('Parrot Co <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54873	54976	
==>ule->addvar($1,$self)
				      or  _no_rule($code,$line);

				$item = new Parse::RecDescent::UncondRej <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	3138	3316	
==>e_map = {
  INTEGER  => [ 1, 'I' ],
  RATIONAL => [ 2, 'I' ],
  REAL     => [ 1, 'N' ],
  COMPLEX  => [ 2, 'I' ],
  STRING   => [ 1, 'S' ],
};

#---------------------------------- <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	10959	11088	
==>ass at compile time will make the order of events
similar to using any other class ( or Perl module ).

There is no significant sp <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	1575	1790	
==>\n");
        next;
    }

    my @lines = <F>;
    close(F);
    chomp @lines;

    for (@lines[0..10]) {
        next unless defined $_;

        if (/DO NOT EDIT/) {
            print "Skipping $file (automaticall <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	4827	4963	
==>ata,
  sizeof(static_string_${line}_data) - 1,
  1,
  $h
};

DATA
  }
}

open IN, $infile;

my $line = 0;
while (<IN>) {
  $line++;
  nex <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	51933	52130	
==>{
				_parse("an reject marker", $aftererror,$line);
				$item = new Parse::RecDescent::UncondReject($lookahead,$line,"<reject>");
				$prod and $prod->additem($item)
				      or  _no_rule("<reject <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621138	621262	
==>preter->current_args;\n    mic = (Parrot_MIC *) cur_opcode[1];\n    caller_ctx = ctx->caller_ctx;\n    if (src_pc) {\n\tsrc_p <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	7710	7838	
==>d up.
	#	ASSIGNMENT($var);
	#	goto PARSE_NOFEED;
	#}
	goto PARSE;

=begin wrongway

UNK:	if (($type[CURR] eq "STMT" or $type[CURR <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	30324	30485	
==>";

        # Emit code to clone value types for the need_dest set case.
        if ($need_dest) {
            my $label = "LD_VALTYPE_$name";
            $pir .= <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	7101	7194	
==>ke!
	_screen_locate($resulty)
YNOTX
	} elsif (@codex and not @codey) {
	push @{$code{$seg}->{c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614948	615063	
==>@3}});\n    if (offset < 0) {\n        real_exception(interpreter, next, NO_CLASS,\n            \"Class not parent o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616099	616214	
==>@3}});\n    if (offset < 0) {\n        real_exception(interpreter, next, NO_CLASS,\n            \"Class not parent o <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1185	1301	
==>iler->emit(".namespace ${namespace}");
      $compiler->indent;
      $self->SUPER::compile($compiler);
      $compil <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	593	703	
==>iler->emit(".namespace ${namespace}");
    $compiler->indent;
    $self->SUPER::compile($compiler);
    $compil <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787992	788253	
==>ble->get_number_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	788902	789163	
==>ble->get_number_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3948	4045	
==>ion of
L<Pod::Simple::Text> that formats only the "Pod Errors" section
(if Pod::Simple even genera <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1083	1173	
==>_t*)cur_opcode + CONTEXT(interpreter->ctx)->pred_offset)

#  define opcode_to_prederef(i, o <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1213	1303	
==>_t*)cur_opcode + CONTEXT(interpreter->ctx)->pred_offset)

#  define opcode_to_prederef(i, o <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	6029	6155	
==>$type = $token->type) eq 'start' ) {
      if(($tagname = $token->tagname) eq 'L') {
        esc($type = $self->do_link($token) <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	6219	6402	
==>',    @_) }

sub _accept_directives {
  my($this, $type) = splice @_,0,2;
  foreach my $d (@_) {
    next unless defined $d and length $d;
    Carp::croak "\"$d\" isn't a valid directi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	442337	442638	
==>,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "nc"
                            ],
                  "BODY" => "#line 109 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch_p_pnp(interp <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	2398	2686	
==>str = extract_delimited; # $_, '"';
	$str = substr $str, 1, -1;
	## print STDERR "** '$str' $line\n";
	my $n;
	if ($n = $known_strings{$str}) {
	    if ($this_file_seen{$str}) {
		print "#define _CONST_STRING_$line _CONST_STRING_",
		    $this_file_seen{$str}, "\n";
	    }
	    else {
		p <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	46863	46966	
==>==============================================

sub filter {
  my($class, $source) = @_;
  my $new = $cl <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	7960	8078	
==>s the instance. C<$class> is its class.

=cut

sub init() {
    my ($self, $class) = @_;

    $self->get_vtable_section <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	6590	6819	
==>getting ", scalar(@_), " tokens: ",
   @_ ? "@_\n" : "().\n";
  foreach my $t (@_) {
    Carp::croak "Can't unget that, because it's not a token -- it's undef!"
     unless defined $t;
    Carp::croak "Can't unget $t, because it's <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	30	143	
==>1-2004, The Perl Foundation.
# $Id: /parrot/lib/Parrot/OpTrans/CPrederef.pm 20333 2006-06-21T18:44:31.111564Z bern <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	36936	37069	
==>rrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "throw <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	294	434	
==>use warnings";

package Jako::Construct::Statement::Assign;

use Carp;

use base qw(Jako::Construct::Statement);

sub new
{
  my $class = shi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	10883	11110	
==>l pmc <rx_match>
  .local pmc <rx_ptmp>
  .local int <rx_tmp>
  .local int <rx_len>
  <rx_match> = new "Match"
  <rx_match>["!INPUT"] = <rx_input>
  <rx_match>["!GROUPS"] = $num_groups
  length <rx_len>, <rx_input> # cache the l <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4866	4968	
==>r)
     = @$self{ 'RULES', 'STATES', 'LEX', 'ERROR' };
	my($errstatus,$nberror,$token,$value,$stack,$ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4626	4726	
==>r)
     = @$self{ 'RULES', 'STATES', 'LEX', 'ERROR' };
	my($errstatus,$nberror,$token,$value,$stack,$ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34482	34596	
==>",sub { return $self->{argcode} }"
				   : ',undef')
		. ')))
		{
			'.($self->{"lookahead"} ? '$text = $_savetext <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	817198	817508	
==>er);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clearp",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [],
                  "TYPE" => "inline",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658279	658367	
==>ULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	659198	659286	
==>ULL({{\@2}}) ? 0 : {{\@2}}->vtable->defined_keyed(interpreter, {{\@2}}, {{\@3}});\n  {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	598185	598428	
==>} ));\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	599232	599475	
==>} ));\n  }\n  else\n    {{\@1}} = class;\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( { <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	5163	5363	
==>ion see the C<Digest::MD5> module.

=head1 EXAMPLES

The simplest way to use this library is to import the md5_hex()
function (or one of its cousins):

    use Digest::Perl::MD5 'md5_hex';
    print 'D <==
2	/Users/nnunley/parrot/config/init/manifest.pm	156	254	
==>anifest.pm - MANIFEST Check

=head1 DESCRIPTION

Uses C<ExtUtils::Manifest> to check that the distr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937981	938338	
==>{
                  "JUMP" => 0,
                  "NAME" => "join",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938870	939227	
==>{
                  "JUMP" => 0,
                  "NAME" => "join",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500991	501218	
==>"#line 621 \"src/ops/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	501730	501957	
==>"#line 621 \"src/ops/math.ops\"\n  {{\@1}} *= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	1463	1586	
==>b/Parrot/OpsFile.pm lib/Parrot/Op.pm lib/Parrot/OpTrans/CGoto.pm lib/Parrot/OpLib/core.pm
	$(PERL) $(BUILD_TOOLS_DIR)/ops2c. <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4576	4686	
==>turn $self->op('nop', [], %$self);
    } elsif (@{ $self->{args} } == 1 && 2 == keys %$self) {
        return $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5713	5823	
==>turn $self->op('nop', [], %$self);
    } elsif (@{ $self->{args} } == 1 && 2 == keys %$self) {
        return $ <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	7681	7778	
==>tained in any copies of any part of this
documentation and/or software.

=back

This copyright doe <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	2490	2589	
==>e
  );

#  $self->DEBUG(0, "Remembering symbol '$name' as sub...");

  $block->set_symbol($name, $sy <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	4324	4464	
==>data = ",
       S => "return_data = ",
       I => "return_data = ",
       N => "return_data = ",
#      B => "return_data = ",
       v => <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	17630	17746	
==>"True  " else a$="False "
if i or  j then b$="True  " else b$="False "
if i xor j then c$="True  " else c$="False "
i <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	16087	16445	
==>) {
               $vector = "op1";
               $scalar = "op2";
			   @order = qw/ $P1 $P2 /;
           } else {
               $vector = "op2";
               $scalar = "op1";
			   @order = qw/ $P2 $P1 /;
           }

           $template .= << "END_PIR";
    # Create a result vector
    .local pmc result 
    result = new 'APLVector'
    # Loop thr <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14690	14809	
==>' unless defined $title;
  $title =~ s/^\s+//;
  return $title;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1267	1396	
==>m C<pc()>

Sets/gets the current position in Parrot code.

=cut

sub pc
{
    my $self = shift;

    if (@_)
    {
        $self-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	876	1005	
==>m C<pc()>

Sets/gets the current position in Parrot code.

=cut

sub pc
{
    my $self = shift;

    if (@_)
    {
        $self-> <==
2	/Users/nnunley/parrot/lib/Test/More.pm	7655	7906	
==>Got some foo" );

(Mnemonic:  "This is that."  "This isn't that.")

So why use these?  They produce better diagnostics on failure.  ok()
cannot know what you are testing for (beyond the name), but is() and
isnt() know what the test was and why it faile <==
2	/Users/nnunley/parrot/config/auto/format.pm	189	284	
==>DESCRIPTION

Figures out what formats should be used for C<sprintf()>.

=cut

package auto::form <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	2978	3134	
==>@tokens, Jako::Token->new(
        $file, $line, 'comma', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^([:])(.*)$}) {
      push @tok <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	4255	4400	
==>'}}) } $cmt\n";
           $out .= "       elsif (UNIVERSAL::isa(\$init{'$name'}, '$type'))\n";
            $out .= "            { \$r->$elem = \$ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	525	648	
==>s = { } unless defined $props;
  $args  = [ ] unless defined $args;

  confess("Undefined identifier block.")
    unless def <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	3537	3736	
==>n";
        local $/ = $Pod::Simple::NL;
        push @lines, scalar(<$fh>); # readline
        DEBUG > 3 and print "  Line is: ",
          defined($lines[-1]) ? $lines[-1] : "<undef>\n";
        unl <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	12450	12547	
==>0\sa180\f2\fs%s\ul\sbasedon0 \snext0 pod-head3;}
{\s34\ql \keepn\sb90\sa180\f2\fs%s\ul\sbasedon0 \ <==
2	/Users/nnunley/parrot/Configure.pl	2676	2781	
==>es.

=item C<--pmc=(files)>

Use the given PMC files.

=item C<--cgoto=0>

Don't build cgoto core. This is <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	1799	1964	
==>plibs_pl.in' => 'tools/build/dynoplibs.pl',
        commentType                             => '#',
        replace_slashes                         => 0,
        cond <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10424	10692	
==>$defn, [], $assign ];
            }
        }
        else {
            my $defn = $parser->YYData->{symbtab}->LookupU($idf);
            if ( defined $defn ) {

                # upvariable
                if ( scalar( @{$var} ) ) {
                    my $r <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	1987	2109	
==>$chr =~ /^[[:alnum:]]$/;  # CCLASS_ALPHANUMERIC   
    $ret |= 0x1000 if $chr =~ /^[\n\r\f\x85]$/; # CCLASS_NEWLINE
    $re <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4033	4283	
==>ags       => '-dll',
            ld_load_flags        => '-dll',
            ld_out               => '-out:',
            ldflags              => '-nologo -nodefaultlib',
            ar                   => 'xilib',
            ar_flags             => <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2050	2286	
==>ags       => '-dll',
            ld_load_flags        => '-dll',
            ld_out               => '-out:',
            ldflags              => '-nologo -nodefaultlib',
            libparrot_static     => 'libparrot'.$conf->data->get(' <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	6090	6188	
==>->new($self->require_type);

      $self->INTERNAL_ERROR("Could not determine type.") unless define <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1805	1895	
==>cautiously:
    $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghij <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	1908	1998	
==>cautiously:
    $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghij <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	270	416	
==>tions->{with_past} ?
               Parrot::Test::per_test( '_antlr2.out', $count )
               :
               Parrot::Test::per_test( '_antlr <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	8512	8745	
==>>type,
              $to_unget[-1]->can('tagname') ? $to_unget[-1]->tagname : '',
              $self->{'rtfitemkeepn'} ? "gets" : "doesn't get";
            last;
          } elsif (@to_unget > 40) {
            DEBUG > 1 and print " <==
2	/Users/nnunley/parrot/tools/dev/manicheck.pl	402	550	
==>/manicheck.pl

=head1 DESCRIPTION

Check the contents of the F<MANIFEST> file against the files present in
this directory tree, accounting for .svn d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62804	63056	
==>UMP" => 0,
                  "NAME" => "errorsoff",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63449	63701	
==>UMP" => 0,
                  "NAME" => "errorsoff",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" = <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	29634	29784	
==>sOp( $parser,
        'arg1'   => $_step,
        'op'     => '>',
        'arg2'   => $zero->[0],
        'result' => $lbl_or,
    );
    my $lb <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	11293	11447	
==>)}}->vtable->
        (\w+)
        \(interpreter,
        \s*
        {{\@(\d)}},\s*{{\@(\d)}}
        \);
        \s+{{\+=\d}}/xm) {
            $jit_fun <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	11740	11894	
==>)}}->vtable->
        (\w+)
        \(interpreter,
        \s*
        {{\@(\d)}},\s*{{\@(\d)}}
        \);
        \s+{{\+=\d}}/xm) {
            $jit_fun <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029745	1029841	
==>xt = {{^+2}};\n  if ({{\@1}} < 0.0) {\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\"Ca <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030587	1030683	
==>xt = {{^+2}};\n  if ({{\@1}} < 0.0) {\n      real_exception(interpreter, next, NEG_SLEEP,\n\t\"Ca <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	2574	2712	
==>et to the next statement of some kind.
	# These are likely to *never* be implemented.
	if ($syms[CURR] =~ /^(  screen | pset | preset | lin <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	9208	9296	
==>thiscolumn, q{Parse::RecDescent::ColCounter}, \$text, $thisparser;
	':'') . ($parser->{_c <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	905	1002	
==>distributions or in general when svn is not available).
# See docs/submissions.pod on how to recre <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3760	3857	
==>distributions or in general when svn is not available).
# See docs/submissions.pod on how to recre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	267040	267371	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "istrue",
                  "FLAGS" => "",
                  "ARGDIRS" => <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	18113	18218	
==>]
    # We use this feechure in gen_errata and stuff.

    DEBUG and print "Applying precooked treelet hac <==
2	/Users/nnunley/parrot/config/gen/PodText.pm	843	959	
==>e strict;
use vars qw($description $result @args);

use base qw(Parrot::Configure::Step::Base);

use Pod::Text;

$des <==
2	/Users/nnunley/parrot/config/auto/alignptrs.pm	286	388	
==>e strict;
use vars qw($description $result @args);

use base qw(Parrot::Configure::Step::Base);

use Pa <==
2	/Users/nnunley/parrot/config/inter/shlibs.pm	411	505	
==>om config/inter/progs.pm because the answers depend
on which compiler is in use.  Thus it shoul <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4295	4411	
==>en(DRV,"<$fname") or die "Report this as a BUG: Cannot open $fname";
	while(<DRV>) {
                	/^\s*sub\s+_P <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4075	4189	
==>en(DRV,"<$fname") or die "Report this as a BUG: Cannot open $fname";
	while(<DRV>) {
                	/^\s*sub\s+_P <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2234	2371	
==>se()';#Do not create stab entry on compile
        $@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $retval
}

sub Y <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2151	2279	
==>se()';#Do not create stab entry on compile
        $@ and die $@;
	}
	else {
		$retval = $self->_Parse();
	}
    $retval
}

sub Y <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	5101	5207	
==>y $ignore = shift;
    my @files = map {$self->file_with_path($_)} $self->file_paths;
    
    if ( $recurs <==
2	/Users/nnunley/parrot/tools/build/revision_c.pl	385	497	
==>l>,
F<lib/Parrot/Revision.pm>,
F<include/parrot/config.h>

=cut

use strict;
use Parrot::Revision;

print <<"EOF" <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4239	4358	
==>${INS} = concat ${DEST0}
${INS} = concat "\n"
PIR
	} else {
		# Translator needs to emit an instruction to push the valu <==
2	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1590	1693	
==>to/smokeserv.pl
    Sets the path to the smoke server.
  --version
    Outputs the version of this progr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028140	1028237	
==>not go back in time\");\n  }\n  next = Parrot_sleep_on_event(interpreter, (FLOATVAL) {{\@1}}, next <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028991	1029088	
==>not go back in time\");\n  }\n  next = Parrot_sleep_on_event(interpreter, (FLOATVAL) {{\@1}}, next <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	33502	33645	
==>er
  'null?'    => \&_op_null_p,
  'list?'    => \&_op_list_p,
  'list'     => \&_op_list,
  'length'   => \&_op_length,
  'append'   => \&_op_a <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	2910	3096	
==>'enum') {
                if (/(\w+)\s+=\s+(-?\w+)/) {
                    local $_;
                    if (defined($values{$2})) {
                        $_        = "$prefix$1\t" . $v <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	923905	924171	
==>JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924695	924961	
==>JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7786	7882	
==>s (string)"
s$=""
if s$ then print "Should not happen (string)"
i%=0
if i% then print "Should not <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14773	14869	
==>s (string)"
s$=""
if s$ then print "Should not happen (string)"
i%=0
if i% then print "Should not <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/BigNum.pm	133	227	
==>rnhard  $

=head1 NAME

Parrot::Docs::Section::BigNum - Big Number documentation section

=head <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	884231	884665	
==>se_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1001,
                  "ARGS" => [
                              "s",
                              "sc",
                              "i", <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	337	446	
==>e;

use Carp;

use Jako::Compiler;

use base qw(Jako::Construct::Block);


#
# compile()
#

sub compile
{
  my <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	1802	1922	
==>re
        || $Latin1Code_to_fallback{$in} # Fallback.
        || $FAR_CHAR; # Fall further back
  }
  
  # Normal handli <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356636	356765	
==>Y" => "#line 240 \"src/ops/io.ops\"\n  PIO_eprintf(interpreter, INTVAL_FMT, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357296	357425	
==>Y" => "#line 240 \"src/ops/io.ops\"\n  PIO_eprintf(interpreter, INTVAL_FMT, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1071	1188	
==>my ($msg) = @_;

    $msg ||= ".\n";

    if ( exists $parser->YYData->{nb_info} ) {
        $parser->YYData->{nb <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	7837	7993	
==>line =~ s/^\s*a_$name\s*$//m or $line =~ s/a_$name/temp/;
            }
        }
        
        # $R
        $line =~ s/\$R\b/\$P%1/g;

        $code .= e <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	34248	34390	
==>ecl {
    $ret_def
    LOCK_PMC(interpreter, pmc);
    $func_ret$body;
    UNLOCK_PMC(interpreter, pmc);
    $ret
}

EOC
}

=back

=head2 Parro <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	545	676	
==>er than this?

  if ($self->content) {
    $compiler->emit(".namespace ${namespace}");
    $compiler->indent;
    $self->SUPER::comp <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2326	2437	
==>mit_par(-2) }
sub end_head4       { $_[0]->emit_par(-1) }
sub end_Para        { $_[0]->emit_par( 0) }
sub end_it <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1894	2005	
==>mit_par(-2) }
sub end_head4       { $_[0]->emit_par(-1) }
sub end_Para        { $_[0]->emit_par( 0) }
sub end_it <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	27727	27950	
==>(signature);\n    {{+=argc + 2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	28552	28775	
==>(signature);\n    {{+=argc + 2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	17177	17276	
==>f C<$trans> (an C<Parrot::OpTrans> subclass) is supplied then
substitutions are made.

=cut

sub pre <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	4400	4595	
==>mc arg

    .local string result
    result = ''

    .local pmc value
    $I0 = does arg, 'array'
    if $I0 goto print_vector
    value = arg
    bsr print_value
    .return (result)

  print_ve <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	2514	2671	
==>);
    }
}

## eval_is

sub eval_is (Str $code, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (d <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8702	8837	
==>d of Error recovery.\n";
#DBG>				$dbgerror=0;
#DBG>			};

			    push(@$stack,
                     [ $$states[$$stack[-1][0]]{GOT <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8310	8440	
==>d of Error recovery.\n";
#DBG>				$dbgerror=0;
#DBG>			};

			    push(@$stack,
                     [ $$states[$$stack[-1][0]]{GOT <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	2620	2743	
==>n the item's files is converted to HTML and
written to a file in C<$target> and an HTML link is created to it.

Alternativel <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	8961	9067	
==>y $self = shift;
    my $path = shift || return;
    my ($volume, $directories, $name) = File::Spec->splitp <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	9360	9466	
==>y $self = shift;
    my $path = shift || return;
    my ($volume, $directories, $name) = File::Spec->splitp <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	1951	2101	
==>0;
}


#
# emit()
#

sub emit
{
  my $self = shift;

  unshift(@_, " " x $self->{INDENT});
  
  my $fh = $self->{FH};

  print $fh @_, "\n";
}


#
# co <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	282	447	
==>TION

A documentation section describing all the C source code in Parrot.

=head2 Class Methods

=over

=cut

package Parrot::Docs::Section::C;

use strict;
use warni <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5113	5235	
==>y ($handler) = @_;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self-> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3176	3298	
==>y ($handler) = @_;

  my $block = $self->block;
  my $dest  = $self->dest;
  my $left  = $self->left;
  my $op    = $self-> <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	13151	13318	
==>me))
            return p->info - ${bs}op_lib.op_info_table;
    }
    return -1;
}
static void hop_init() {
    size_t i;
    op_info_t * info = ${bs}op_lib.op_info_ta <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	798	923	
==>t

sub new
{
    my $class = shift;

    return bless {}, ref $class || $class;
}

=back

=head3 Object Methods

=over 4

=ite <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718060	718156	
==>ntf(interpreter, io, INTVAL_FMT, (INTVAL){{\@2}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=3 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718992	719088	
==>ntf(interpreter, io, INTVAL_FMT, (INTVAL){{\@2}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=3 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	22790	23013	
==>"
          . $self->_dump_curr_open() . ')'
        );
        DEBUG and print "Ignoring mistargetted =end $content at line $para->[1]{'start_line'}\n";
        next;
      }

      # Else it's okay to close...
      if(gre <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	11480	11582	
==>a-z]\w*/gci
	    	or _match_codeblock($textref, "", '\{', '\}', '\{', '\}', 0)
		or $deref eq '$#' or $ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	28462	28602	
==>rn 1 if $a1 eq $a2;

    my $ok = 1;
    my $max = $#$a1 > $#$a2 ? $#$a1 : $#$a2;
    for (0..$max) {
        my $e1 = $_ > $#$a1 ? $DNE : $a <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	3817	4052	
==>var     => '__read',
    );
    
    # add code to get subs for needed conversions
    my $code = "  # get necessary conversion subs\n";
    for my $type (keys %types) {
        next unless my $help = $helpers{$type};
        
        $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9750	9843	
==>ire_open_paren;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->requ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25286	25379	
==>ire_open_paren;

      my $left  = Jako::Construct::Expression::Value->new($block, $self->requ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	7706	7824	
==>$out;
    local *OLDERR if $err;

    # Save the old filehandles; we must not let them get closed.
    open  OLDOUT, "> <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7757	7874	
==>$out;
    local *OLDERR if $err;

    # Save the old filehandles; we must not let them get closed.
    open OLDOUT, "> <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	40213	40372	
==>= '
		  # MATCH LEFTARG
		  ' . $leftarg->code(@_[1..2]) . '

		  $repcount++;

		  my $savetext = $text;
		  my $backtrack;

		  # MATCH (OP RIGHTARG)(s)
		  w <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	53394	53522	
==>0],'{}','') },
        ]

is used.


=item 3.

An number specifying the maximum number of fields to return. If this
argument is o <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	714	824	
==>EG(i) REG_NUM(i)
#define PREG(i) REG_PMC(i)
#define SREG(i) REG_STR(i)
#define CONST(i) interpreter->code->cons <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3380	3492	
==>t;

    keys %{$self->{STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
}

sub YYLexer {
    my($self)=shift;

	$ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3210	3314	
==>t;

    keys %{$self->{STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
}

sub YYLexer {
    my($self)=shift;

	$ <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	1599	1713	
==>mber (it
keeps track of that for you).

  # This produces "ok 1 - Hell not yet frozen over" (or not ok)
  ok( get_t <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	368	473	
==>c/nci.c>. It
parses a file of function signatures of the form:

    <return-type-specifier><whitespace><pa <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	1321	1418	
==>i=5
a$="Hello"
c$="WRONG"
call mysub()


' Expect 10
sub second(b() )
	b(5)=10
end sub
sub first(a <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	13445	13725	
==>f "$pbc_f"},
                                CD     => $path_to_parrot,
                                STDOUT => $out_f,
                                STDERR => $out_f);
                    if ( -e $o_f ) {
                        run_command(qq{$PConfig{make} EXEC=$exec_f exec <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	24850	25037	
==>.back
#             goto lastback
#      rfail: push 0
#       next:
#
sub rewrite_greedy_optional {
    my ($self, $op, $R, $lastback) = @_;

    my $back = $self->genlabel('greedy_option <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826724	826958	
==>}\n\n  {{\@1}} = UVal_num(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827794	828028	
==>}\n\n  {{\@1}} = UVal_num(entry->entry);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	825	1014	
==>".end");

  foreach my $construct ($self->content) {
    if (
         $construct->isa("Jako::Construct::Block::Sub")
      or $construct->isa("Jako::Construct::Block::Module")
      or $con <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	9162	9558	
==>e eq 'MAX');
			_failmsg "Found invalid nested tag: $1", pos $$textref;
			goto failed;
		}
		elsif ($$textref =~ m/\G($ldel)/gc)
		{
			my $tag = $1;
			pos($$textref) -= length($tag);	# REWIND TO NESTED TAG
			unless (_match_tagged(@_))	# MATCH NESTED TAG
			{
				goto short if $omode eq 'PARA' || $omode eq 'MAX';
				_failmsg "Found unbalanced nested tag: $tag",
					 pos $$textref;
				goto <==
2	/Users/nnunley/parrot/config/init/hints/cygwin.pm	306	422	
==>dard installation, so we get rid of it
    my $libs = $conf->data->get('libs');
    $libs =~ s/-lutil\b//g;

    my $ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	17745	17883	
==>?:m|s|qq|qx|qw|q|qr|tr|y)\b(?=\s*\S)|<<)}gc)
	{
		_failmsg q{No quotelike operator found after prefix at "} .
			     substr($$textref, pos <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	12471	12575	
==>(\$source) eq 'GLOB') {
    $self->{'source_filename'} = '' . ($source);
  } elsif(ref $source) {
    $se <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	390	524	
==>ackage Parrot::Docs::Section::Docs;

use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<new()>

Returns a new se <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	1034	1194	
==>_seen.
    $self->get_short_title();
    
    return unless $self->content_seen;

    # Suppress the warning in the tests.
    $self->{RESOURCES_URL} = '' unless <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	8642	8781	
==>TDOUT             or die "Can't close    stdout" if $out;
    close STDERR             or die "Can't close    stderr" if $err;

    open  ST <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8186	8300	
==>TDOUT or die "Can't close    stdout" if $out;
    close STDERR or die "Can't close    stderr" if $err;

    open ST <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	594	728	
==>ub'      => { PREFIX => "_S", NEXT => 'TEST', REDO => 'THEN', LAST => 'ELSE' }, # TODO: fix these
);


#
# new()
#

sub new
{
  my $cla <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	615	749	
==>ub'      => { PREFIX => "_S", NEXT => 'TEST', REDO => 'THEN', LAST => 'ELSE' }, # TODO: fix these
);


#
# new()
#

sub new
{
  my $cla <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	197	302	
==>) = @_;
    $ctx->{rx_match} ||= '$rx_match';
    $ctx->{rx_stack} ||= '$rx_stack';
    $ctx->{rx_tmp} ||= <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	2482	2604	
==>ith C<S_>, but still do have a prototype
for it).

=head2 Data is not an API

Consider making the data const(ant), or movin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561840	561955	
==>{{\@1}} = VTABLE_find_method(interpreter, {{\@2}}, {{\@3}});\n  if (!{{\@1}}) {\n    real_exception(interpreter, nex <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562924	563039	
==>{{\@1}} = VTABLE_find_method(interpreter, {{\@2}}, {{\@3}});\n  if (!{{\@1}}) {\n    real_exception(interpreter, nex <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	40156	40286	
==>nt;
        }
      }


      # And the E resolver will have to deal with all our treeletty things:

      if(@ell_content == 1 and <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	33354	33513	
==>ts: a string to extract from, a delimiter
specifier, and a prefix pattern. As before, a missing prefix defaults to
optional whitespace and a missing text defaul <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	5472	5594	
==>=> $dest ]);
} continue {
    close ARGV if eof; # Reset line numbering for each input file
}

unless ($options{'dry-run'}) <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	6838	6938	
==>directives'} } if wantarray;
  return;
}

#---------------------------------------------------------- <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	740	855	
==>0 goto SRM_LMKILL_EXIT$suffix
    dec ${ITEMP0}

    # Get register that we'll want to place stuff in to.
    ${PTEM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	338344	338728	
==>=> "getstdout",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 396,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 108 \"src/ops/io.ops\"\ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	6	114	
==>right (C) 2004-2006, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Docs/Section/C.pm 20333 2006-06-21T18:44: <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6841	6937	
==>0
t$="1234567890"
print mid$(t$, 2, 8)
print left$(t$, 5)
print right$(t$, 5)
' instr
s1$="The lo <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18570	18666	
==>0
t$="1234567890"
print mid$(t$, 2, 8)
print left$(t$, 5)
print right$(t$, 5)
' instr
s1$="The lo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170353	170445	
==>BODY" => "#line 211 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171294	171386	
==>BODY" => "#line 211 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	12373	12529	
==>TDATA;
				}
				$s.=$syms[CURR];
			}
		} else {
			die "Cannot use $type[CURR]/$syms[CURR] in DATA";
		}
		feedme();
	}
	push(@data, { line => $currline, d <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	840	938	
==>e directories in the Parrot subversion repository. (Needed for
# distributions or in general when s <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3695	3793	
==>e directories in the Parrot subversion repository. (Needed for
# distributions or in general when s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64744	64834	
==>RN_CODE_FLAG);\n  new_interp->code = interpreter->code;\n  runops(new_interp, REL_PC + {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65695	65785	
==>RN_CODE_FLAG);\n  new_interp->code = interpreter->code;\n  runops(new_interp, REL_PC + {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	361630	361728	
==>281 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, INTV <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	362529	362627	
==>281 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    STRING * const s = Parrot_sprintf_c(interpreter, INTV <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509026	509273	
==>ops\"\n  {{\@1}} = - {{\@1}};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509657	509904	
==>ops\"\n  {{\@1}} = - {{\@1}};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095145	1095236	
==>line 223 \"src/ops/experimental.ops\"\n  Parrot_Exec_OS_Command(interpreter, {{\@1}});\n  {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095840	1095931	
==>line 223 \"src/ops/experimental.ops\"\n  Parrot_Exec_OS_Command(interpreter, {{\@1}});\n  {{ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Bitwise.pm	2352	2486	
==>ight_sym;
    $right_type = $right_sym->type;
  }
  else {
    $right_type = $right->type;
  }

  $self->INTERNAL_ERROR("No type for de <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2274	2408	
==>ight_sym;
    $right_type = $right_sym->type;
  }
  else {
    $right_type = $right->type;
  }

  $self->INTERNAL_ERROR("No type for de <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	15052	15160	
==>eq "," or 
			$type[CURR] eq "STMT" or $type[CURR] eq "COMP") {
			print CODE<<EQ;
@a	bsr DEREF
	push P12, P6 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6278	6401	
==>type          { return shift->require('type');          }

sub require_value         { return shift->require('ident', 'liter <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2991	3104	
==>rpreter)";
}

=item C<run_core_func_start()>

Returns the C code prior to the run core function.

=cut

sub run_co <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18596	18735	
==>eger> );

These methods set the size (in half-points, like 52 for 26-point)
that these heading levels will appear as.

=item $parser->codebl <==
2	/Users/nnunley/parrot/config/init/hints.pm	985	1117	
==>ts = "init::hints::local";
    print "$hints " if $verbose;
    eval "use $hints";
    unless ($@) {
        $hints->runstep($conf, @ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	511631	511964	
==>",
                              "n"
                            ],
                  "BODY" => "#line 685 \"src/ops/math.ops\"\n  {{\@1}} = - {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	515	659	
==>nd $parser->YYData->{verbose_error} );
}

sub Warning {
    my $parser = shift;
    my ($msg) = @_;

    $msg ||= ".\n";

    if ( exist <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	43366	43517	
==>ass;
	shift;
	return $self->Replace(@_)
}

sub Compile($$$$) {

	die "Compilation of Parse::RecDescent grammars not yet implemented\n";
}

sub DESTROY { <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	660	766	
==>es NOT generate the F<MANIFEST> file that F<Configure.pl> checks
and the manifest checks use.

=head2 Optio <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21523	21628	
==>my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(1);
  m <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21908	22013	
==>my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_constant(1);
  m <==
2	/Users/nnunley/parrot/Configure.pl	1144	1351	
==>bugging=0>

Debugging is turned on by default. Use this to disable it.

=item C<--parrot_is_shared>

Link parrot dynamically.

=item C<--profile>

Turn on profiled compile (gcc only for now)

=item C<--optimi <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	287	392	
==>rot_include;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Base);

u <==
2	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	109	239	
==>DESCRIPTION

=head1 SYNTAX

=cut

# pragmata
use strict;
use 5.005;

# standard perl modules

# Modules from CPAN
use Parse::RecDes <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	14611	14735	
==>}
	return 0;
}

sub adddirective
{
	my ( $self, $whichop, $line ) = @_;
	push @{$self->{op}},
		{ type=>$whichop, line=>$line <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	316	440	
==>k
  e2char
  e2charnum
);
%EXPORT_TAGS = ('ALL' => \@EXPORT_OK);

#========================================================== <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	751730	752099	
==>"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 847,
                  "ARGS" => [
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 214 \"src/ops/set.ops\"\n  {{\@1}} = {{\@2}}->vtable->get_integer(interpreter, {{\@2}});\n  {{+=3} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028001	1028105	
==>ine 295 \"src/ops/sys.ops\"\n  opcode_t *next = {{^+2}};\n  if ({{\@1}} < 0) {\n      real_exception(inte <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028852	1028956	
==>ine 295 \"src/ops/sys.ops\"\n  opcode_t *next = {{^+2}};\n  if ({{\@1}} < 0) {\n      real_exception(inte <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11125	11259	
==>(see F<tools/build/pmc2c.pl>).

=cut

sub rewrite_nci_method ($$$) {
    my ($class, $method) = @_;

    local $_ = $_[2];
    # Rewrit <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	224	394	
==>F<Makefile>s and other files needed to build Parrot.

=cut

package gen::makefiles;

use strict;
use vars qw($description @args);

use base qw(Parrot::Configure::Step::Bas <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	874	1157	
==>rint  "Iterations:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, I1
                              #
print "Estimate <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	874	1157	
==>rint  "Iterations:    "
                              # print  I4
                              # print  "\n"
                              #
$I1 = 2;                      # set    I1, 2
$I5 = $I4 * $I1;              # mul    I5, I4, I1
                              #
print "Estimate <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	183	317	
==>N

C<Parrot::IO::Path> is an abstract superclass providing common path
logic for C<Parrot::IO::File> and C<Parrot::IO::Directory>.

Ins <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11722	11935	
==>ves the POD link. Perl modules are converted to paths.

=cut

sub resolve_pod_page_link 
{
    my $self = shift;
    my $to = shift;
    my $section = shift;
    
    if ( $to =~ /^Parrot::/o )
    {
        my $hr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	998739	999087	
==>line",
                  "CODE" => 1116,
                  "ARGS" => [
                              "i",
                              "ic",
                              "sc",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2607	2790	
==>) . " if $val1 $test $val2;";
}

sub output_eq {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_test('==', $val1, $val2, $dest);
}

sub output_ne {
    my ($self, $val1, $ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	40830	40962	
==>text;
		  pop @item if $backtrack;

		  ';
	}
	else
	{
		$code .= '
		  my $savetext = $text;
		  my $backtrack;
		  # MATCH (LEFTARG <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	22986	23102	
==>["USER"]
	bsr DIM_$type
	P1 = new .PerlHash
	P1["_type"]= '$type'
	P1["type"]= "USER"
	P1["storage"]= P0
	P2["$var"]= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1075591	1076183	
==>S" => [
                                 "o",
                                 "o",
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1197,
                  "ARGS" => [
                              "i",
                              "i",
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 65 \"src/ops/experi <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	1854	1972	
==>/ } @$tokref];
}

1;
__END__

=head1 NAME

Scheme::Tokenizer - The Scheme tokenizer

=head1 SYNOPSIS

  use Scheme:Toke <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	4619	4783	
==>push @{$code{$seg}->{code}}, "\tbranch $labels{$syms[CURR]}\t# Goto $syms[CURR]\n";
		}
		$elsetag++;
		goto PARSE;
	}
	if ($syms[CURR] eq "elseif") {
		my $c;
		$c= <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	4911	5378	
==>M

    }
    $macros .= <<"EOM";
/* &end_gen */

EOM

    # finally the name mapping
    $macros .= <<"EOM";
/*
 * vtable slot names
 */
#ifdef PARROT_IN_OBJECTS_C
static const char * const Parrot_vtable_slot_names[] = {
    "",     /* Pointer to namespace for this class */
    "",     /* 'type' value for MMD */
    "",     /* Name of class this vtable is for */
    "",     /* Flags. Duh */
    "",     /* space-separated list of interfaces */
    "",     /* space- <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	17780	17974	
==>re,
     * if yes, we are done
     */

     result = Parrot_jit_build_call_func(interpreter, pmc_nci, signature);

#endif
    if (result)
        return result;

    /* And in here is the platfo <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	191	296	
==>umentation section

=head1 SYNOPSIS

    use Parrot::Docs::Section::Tools;

=head1 DESCRIPTION

A document <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567021	567486	
==>" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 648,
                  "ARGS" => [
                              "i",
                              "p",
                              "s"
                            ],
                  "BODY" => " <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1091	1211	
==>ops,
    ARGS  => $args,

    DEBUG => 1,
    FILE  => $ident->file,
    LINE  => $ident->line
  }, $class;

  $block->pu <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	2819	3059	
==>$old) {
            $self->set($key, "$old$delim$val");
        } else {
            $self->set($key, $val);
        }
    }

    return $self;
}

=item C<keys()>

Provides a list of keys.

Accepts no arguments and returns a list.

=cut

sub <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	5278	5402	
==>. join(", ", @_) . ")" : $_[0], $self->get(1)->text)
    unless grep { $self->get(1)->kind eq $_ } @_;

  return $self->forth <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	4309	4436	
==>lue =~ s/^\s+//;
    $value =~ s/\s+$//;

    return $value;
}

=item C<new(@files)>

Returns a new instance initialized by call <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4431	4552	
==>et on a
given key.  When the key is set via C<set> or C<add> then all callbacks that
are defined will be called.  Triggers <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	20361	20490	
==>e::RecDescent::_tracefirst($text),
					  q{' . $rule->{name} . '})
						if defined $::RD_TRACE;'
					      unless $::RD_NO_TRAC <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13223	13332	
==>close-brace.
      #

      $self->SYNTAX_ERROR("Closing brace without open block.")
        unless $self->blo <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	10561	10773	
==>}}
        \);
        \s+{{\+=\d}}/xm) {
            $jit_func = 'Parrot_jit_vtable1_op';
            $extern = vtable_num($1);
            #print $op->full_name .": $jit_func $extern\n";
        }
        # *) $ <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	763	860	
==>ctory. Defaults to '/usr/bin'.

=item C<libdir>

The library directory. Defaults to '/usr/lib'.

= <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	992	1089	
==>ctory. Defaults to '/usr/bin'.

=item C<libdir>

The library directory. Defaults to '/usr/lib'.

= <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	2861	3027	
==>kefile',
        commentType                         => '#',
        replace_slashes                     => 1
    );
    genfile(
        'config/gen/makefiles/editor. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861949	862258	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "length",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	862717	863026	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "length",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" = <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	15823	15952	
==>my $pass = $builder->$meth( $real_output, $expected, $desc );
            $builder->diag("'$cmd' failed with exit code $exit_code" <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	18374	18503	
==>my $pass = $builder->$meth( $real_output, $expected, $desc );
            $builder->diag("'$cmd' failed with exit code $exit_code" <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	10476	10670	
==>p = '.Complex';
		$c = qq!"$c"!;
	    }
	    my $pmc = temp('P');
	    print <<EOC;
	$pmc = new $typ $cmt
	$pmc = $c
EOC
	    push @stack, [$n, $pmc, 'P'];
	    return;
	}
    }
    elsif ($typ e <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	2796	2903	
==>le::DumpAsXML>

L<Pod::Simple>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rig <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037751	1038008	
==>r, NULL, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1038532	1038789	
==>r, NULL, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19075	19188	
==>t_title on that document will return
"Hoo::Boy::Wowza".

But if the document starts out:

  =head1 NAME
  
  Hoobo <==
2	/Users/nnunley/parrot/lib/Test/More.pm	1708	1806	
==>k($this, '==', $that, $test_name);

  is_deeply($complex_structure1, $complex_structure2, $test_nam <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10424	10538	
==>ent_stack[-1] twips.\n";
        $self->{'rtfindent'} -= pop @indent_stack;
        pop @stack;
      } elsif( $tag <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	17716	17828	
==>ips the current test, reporting $why.

=cut

sub skip {
    my($self, $why) = @_;
    $why ||= '';
    $self->_un <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	740839	741234	
==>GS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 833,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#li <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	24057	24184	
==>}{hll}})[0];
      my $maps = (keys %{$self->{flags}{maps}})[0];
      $cout .= <<"EOC";

        {
            /* Register this <==
2	/Users/nnunley/parrot/config/init/defaults.pm	2296	2483	
==>ng.  On HP-UX, for example, we need to
        # allow dynamic libraries to access the binary's symbols
        link_dynamic => $Config{ccdlflags},    # e.g. -Wl,-E on HP-UX

        # ld: <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	676	896	
==>g_f, $pasm_f, $by_f, $out_f ) = map { # JMG
            my $t = $0; $t =~ s/\.t$/_$count\.$_/; $t
        } ( qw(scheme pasm pbc out) ); # JMG

        # STDERR is written into same output file
        open LANG, "> $lang <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59003	59115	
==>be directly called because
				       Parse::RecDescent::$rulename is already defined (it
				       is the stand <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	3748	3881	
==>shift;

    my $self = bless {}, $class;
    $self->reset;

    return $self;
}

=item B<reset>

  $Test->reset;

Reinitializes the Te <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	13690	13888	
==>ate = new .Hash
TRANS_LOOP:
    pc = bc.get_pos()
	next_pc = pc
    if pc >= bc_length goto COMPLETE
    
    # If we have a stack type state propogated here, put it in place.
    ss = ss_propogate[p <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34498	34613	
==>self->{argcode} }"
				   : ',undef')
		. ')))
		{
			'.($self->{"lookahead"} ? '$text = $_savetext;' : '')
			    . <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2538	2663	
==>def;
}

sub YYNberr {
	my($self)=shift;

	${$$self{NBERR}};
}

sub YYRecovering {
	my($self)=shift;

	${$$self{ERR <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2432	2545	
==>def;
}

sub YYNberr {
	my($self)=shift;

	${$$self{NBERR}};
}

sub YYRecovering {
	my($self)=shift;

	${$$self{ERR <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	3724	3839	
==>ass for ops like scan(R) that contain a single subexpression.
# By default, all calls are propagated to the subexpre <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4814	4938	
==>t = $1;

    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);
    my @ungroupe <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4918	5042	
==>t = $1;

    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);
    my @ungroupe <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4478	4594	
==>(@{ $self->{args} } == 0) {
        delete $self->{name};
        delete $self->{args};
        return $self->op('nop <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	5615	5731	
==>(@{ $self->{args} } == 0) {
        delete $self->{name};
        delete $self->{args};
        return $self->op('nop <==
2	/Users/nnunley/parrot/config/auto/perldoc.pm	392	652	
==>ot::Configure::Step ':auto', 'capture_output';

$description = 'Determining whether perldoc is installed';

@args = qw();

sub runstep
{
    my ($self, $conf) = @_;

    my $version = 0;
    my $a       = capture_output('perldoc -ud c99da7c4.tmp perldoc') || un <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	3952	4131	
==>Deletes keys matching C</^TEMP_/>.  Keys using this naming convention are
intended to be used only temporally, e.g.  as file lists for Makefile
generation.

Accepts no arguments an <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	25424	25574	
==>pe paragraph because in ignore mode.\n";
      next;
    }
    #~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
    # ~ ~ ~ ~ <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	1743	1947	
==>m an I register

=item f

Paramter is a float

Taken from an N register.

=item d

Parameter is a double.

Taken from an N register.

=item t

Paramter is a char *, presumably a C string

Taken from an S r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45656	46043	
==>};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "pushaction",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "T <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	1383	1532	
==>If C<$file> is unspecified it
defaults to F<vtable.tbl>.  If it is not an MMD method, C<MMD_type> is -1.

=cut

sub parse_vtable {

    my $file = def <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	373198	373427	
==>\@1}};\n\n  *s = NULL;\n  PIO_peek(interpreter, {{\@2}}, s);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/lib/Test/More.pm	32015	32127	
==>eep check, but the irrelevancy of order only
applies to the top level.

    ok( eq_set(\@this, \@that) );

Is bet <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2869	2982	
==>rap::wrap($indent, $indent, $self->{'Thispara'} .= "\n");
  $out =~ tr{\xA0}{ } if Pod::Simple::ASCII;
  print {$s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2403	2516	
==>rap::wrap($indent, $indent, $self->{'Thispara'} .= "\n");
  $out =~ tr{\xA0}{ } if Pod::Simple::ASCII;
  print {$s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1893	2007	
==>rns the value of the I<attrname> attribute for this start-token
object, or undef.

For example, parsing a LZ<><Foo/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	887539	888089	
==>" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1004,
                  "ARGS" => [
                              "s",
                              "s",
                              "i",
                              "i",
                              "s" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	187716	187913	
==>",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 292 \"src/ops/cmp.ops\"\n  if (string_compare(interpreter, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	33537	33927	
==>ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 42,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 627 \"src/ops/core.ops\"\n  {{\@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	38885	39170	
==>->[2] eq '' )
          or $para->[1]{'~cooked'}
        ) {
          push @$para,
          @{$self->_make_treelet(
            join("\n", splice(@$para, 2)),
            $para->[1]{'start_line'}
          )};
        }
        # Empty paragraphs don't need a treelet for any reason I <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	2051	2241	
==>rg;
    my $imcc_type = $arg_type->imcc;

    $compiler->emit("  .param $imcc_type $arg_name");
  }

  $compiler->indent;
  $self->SUPER::compile($compiler);
  $compiler->outdent;

  $compile <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9552	9673	
==>'	# End of input: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	print STDERR "**At eof: aborting.\n";
				ret <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9122	9239	
==>'	# End of input: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	print STDERR "**At eof: aborting.\n";
				ret <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement.pm	250	350	
==>05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Statement;

use base <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	23823	24051	
==>his node with its children!
          => splice @{ $treelet->[$i] },2
              # (not catching its first two (non-child) items)
        );
        --$i;  # back up for new stuff
      } else {
        # otherwise it's unrema <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10367	10520	
==>e constant FALSE => 0;

sub tokenize {
    my $data = shift;

    my @tokens;
    my @types;
    my $state = 0;
    my $depth = 0;
    for my $c (split(// <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15257	15360	
==>=~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	16438	16541	
==>=~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
      $x;
    } @_;
  } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	783296	783468	
==>c",
                              "sc"
                            ],
                  "BODY" => "#line 387 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed_int(i <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	10051	10263	
==>N" ]); # Make sure no-arg funcs have at
			push(@expr, [ ")", "PUN" ]); # least token parenthesis...
		}
		feedme();
	}
	barf();
	$currentexpr=join(' ', map { $_->[0] } @expr);
	return(@expr);
}
sub pushthing {
	m <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	12315	12402	
==>:Ops::Tree::scan::render { $_[0]->{args}->[0]->render() }

sub Regex::Ops::Tree::atend:: <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	3297	3445	
==>redim") {
		$syms[CURR]="dim";
		print "WARNING: REDIM interpreted as DIM\n";
	}
	# General purpose keyword dispatch.
	if ($syms[CURR] =~ /^(	
		whil <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	4966	5113	
==>s} }) {
        my $kidmax = $kid->maxlen();
        return undef if ! defined $kidmax;
        $maxlen += $kidmax;
    }
    return $maxlen;
}

sub <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	5163	5291	
==>fStyleNum="dsDataType" />
      <itemData name="Comment" defStyleNum="dsComment" />
      <itemData name="Octal" defStyleNum="dsB <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	46135	46271	
==>ens except for the last
    if( !ref($p->[$i]) and !ref($p->[$i + 1]) ) {
      DEBUG > 5 and print "_verbatim_format merges {$p->[$i]} a <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	29253	29458	
==>sh @stack, [-1, $var, 'P']
}


sub UNPACK_SEQUENCE
{
    my ($n, $c, $cmt) = @_;
    my $tos = pop @stack;
    my $seq = $tos->[1];
    my ($p, $i);
    for ($i = $n-1; $i >= 0; $i--) {
	$p = temp('P');
	pr <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1936	2051	
==>mbol($symbol_name);

    my $new_name = $name . "::" . $symbol_name;

    $self->block->set_symbol($new_name, $self- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8385	8709	
==>"FLAGS" => ":base_loop,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 12,
                  "ARGS" => [
                              "s"
                            ],
                  " <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39671	39769	
==>{ qw{leftarg op rightarg} };

	my $code = ''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{Try <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	50304	50494	
==>nt from being childless
      
      pop @stack;
      pop @lineage;
      
    } elsif(defined $4) {
      DEBUG > 3 and print "Found apparent simple end-text code \"$4\"\n";

      if(@stac <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104813	104911	
==>rc/ops/bit.ops\"\n  {{\@1}} = {{\@2}}->vtable->bitwise_nots(interpreter, {{\@2}}, NULL);\n  {{+=3}} <==
2	/Users/nnunley/parrot/config/init/hints.pm	265	393	
==>et up in
F<config/init/default.pm>.

=cut

package init::hints;

use strict;
use vars qw($description @args);

use base qw(Parrot <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	5313	5504	
==>defn,
                );
            }
        }
        return [ $defn, \@opcodes ];
    }
}

sub BuildTable {
    my ( $parser, $fields ) = @_;
    my @opcodes1 = ();
    my @opco <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	471062	471209	
==>i"
                            ],
                  "BODY" => "#line 394 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    rea <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	472049	472196	
==>i"
                            ],
                  "BODY" => "#line 394 \"src/ops/math.ops\"\n  INTVAL den = {{\@3}};\n  if ({{\@3}} == 0)\n    rea <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	11001	11123	
==>[0] so that we can undef the instance in SUPER::delete().
    
    $_[0]->delete_contents;
    rmdir($_[0]->path) or die 'F <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	107	216	
==>-06-25T03:57:27.771662Z petdance  $

=head1 NAME

tools/build/nativecall.pl - Build up the native call routine <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	18314	18483	
==>KeyedGetOp( $parser,
        'result' => $result,
        'arg1'   => $obj->[0],
        'arg2'   => $key->[0],
    );
    my $fct = [ $result, \@opcodes ];
    uns <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1302	1441	
==>rrot languages/$pasm_f",
            CD => '..', # $self->{relpath}, 
            STDOUT => $out_f, STDERR => $out_f, 
        );
        my <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117910	118146	
==>/ops/bit.ops\"\n  {{\@1}} >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118649	118885	
==>/ops/bit.ops\"\n  {{\@1}} >>= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	17507	17625	
==>me **********\n";
    ## print Dumper($self);
    ## exit 0;
    my (@mmds, $found);
    for my $super_mmd (@{ $self->{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	475601	476085	
==>S" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 545,
                  "ARGS" => [
                              "n",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 403 \"src/ops <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11069	11164	
==>0x0E
	.const int ELEMENT_TYPE_PTR = 0x0F
	.const int ELEMENT_TYPE_BYREF = 0x10
	.const int ELEME <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623522	623633	
==>ed[1]);\n    }\n    else {\n\tsig = NULL;\n\tdest_pred = NULL;\n    }\n    lru = &mic->lru;\n    if (lru->u.sign <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	19163	19366	
==>->{Curr_Test}" if $self->use_numbers;
    $out   .= " # TODO & SKIP $why\n";

    $self->_print($out);

    return 1;
}


=begin _unimplemented

=item B<skip_rest>

  $Test->skip_rest;
  $Test->skip_rest( <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	2208	2336	
==>> macro in an ops file into the
relevant C code.

=cut

sub goto_offset
{
    my ($self, $offset) = @_;

    if ($offset =~ /^-?\ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	664	766	
==>s defined $FAR_CHAR;
$FAR_CHAR_NUMBER = ord($FAR_CHAR) unless defined $FAR_CHAR_NUMBER;

$NOT_ASCII = ' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	6921	7025	
==>id previous value anyway; I think that'll only come in for
# situations like (R)*, which are silly anyway <==
2	/Users/nnunley/parrot/examples/benchmarks/fib.pl	121	267	
==>32:26.641316Z coke  $

=head1 NAME

examples/benchmarks/fib.pl - Fibonacci Benchmark

=head1 SYNOPSIS

    % time perl examples/benchmarks/fib.pl n <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	950	1123	
==>b;
  import('lib': @paths);
  
  # no load your other modules ...

= DESCRIPTION

This is a small simple module which simplifies the 
manipulation of `@*INC`.

It is typicall <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5758	5874	
==>tmp>";
    }
    push @ops, qq!<rx_match>{"$group"}->[1] = $value; # close group $group!;
    return @ops;
}

sub out <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	26718	26971	
==>hout a plan!");
        }

        $self->{Curr_Test} = $num;

        # If the test counter is being pushed forward fill in the details.
        my $test_results = $self->{Test_Results};
        if( $num > @$test_results ) {
            my $start = @$te <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	15337	15491	
==>pts{assign}) {
		#print STDERR "Assign\n";
		$opts{lhs}=1;
		@expr=get_expression(%opts);	# Get expression tokens
		$whole.=join(' ', map { $_->[0] } @expr <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7680	7793	
==>)>

Returns a short description of the file extracted from the C<NAME> section
of the POD documentation, if it exi <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	6766	6913	
==>rrot::Op for the op size, etc., which we use later.
        #
        # Either of these two forms work:
        #
        #   inline op  name (args) <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	21217	21510	
==>roups{$_}}, @exports;
            }
        }

        # Generate .def file for it.
        # XXX JW Needn't generate these for PMCs in a group?
        #        For now, simplifies sutff.
        $file =~ s/\.c$/.def/;
        $fh = open_file( ">", $file );
        print $fh "LIBRARY $pmcname <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832114	832201	
==>reter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}), STACK_ENTRY_FLOAT, STACK_CLEA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	832842	832929	
==>reter, &CONTEXT(interpreter->ctx)->user_stack, &({{\@1}}), STACK_ENTRY_FLOAT, STACK_CLEA <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	28025	28134	
==>h(@params, $a);  # Always here?
			}
		}
	}
	my $argcnt=@params;
	# The outer compiler will provide the framew <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	82	177	
==>tion/C.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Section::C - <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	1019	1126	
==>ic I/O  1..5
open "_testfile" for output as #3
for i=1 to 5
	print #3, i
next i
close #3
open "_testfile" fo <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19491	19598	
==>ic I/O  1..5
open "_testfile" for output as #3
for i=1 to 5
	print #3, i
next i
close #3
open "_testfile" fo <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	12110	12362	
==>th.h
log1p       math.h
log1pf      math.h
log1pl      math.h
log2        math.h
log2f       math.h
log2l       math.h
logb        math.h
logbf       math.h
logbl       math.h
logf        math.h
logl        math.h
longjmp     setjmp.h
lrint       math.h <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	478	569	
==>proper subclass of Parrot::Test::M4.
XXX: Do not configure with environment variables.

=cut <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	12194	12318	
==>= @_;
    return "my \$$uid;";
}

sub output_call {
    my ($self, $name, $mode, $uid) = @_;
#    if ($mode) {
        return <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1965	2061	
==>++$_[0]{'Indent'} }

sub   end_over_bullet  { --$_[0]{'Indent'} }
sub   end_over_number  { --$_[0 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1533	1629	
==>++$_[0]{'Indent'} }

sub   end_over_bullet  { --$_[0]{'Indent'} }
sub   end_over_number  { --$_[0 <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	54195	54327	
==>p"
{
            BuildRelop( $_[0], $_[1], $_[2], $_[3] );
        }
	],
	[#Rule 67
		 'exp', 3,
sub
#line 377 "Lua\lua51.yp" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060116	1060218	
==>ll name\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_name(interpreter, {{\@2}});\n    {{+=3}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061021	1061123	
==>ll name\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_name(interpreter, {{\@2}});\n    {{+=3}};\ <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	14174	14331	
==>inc $I0
    goto loop
  loop_end:
    .return(result)
.end

.sub unicode:"monadic:\u2395\u2190" # quad output
    .param pmc op1

    'aplprint'(op1)
    .ret <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	11635	11758	
==>ter dereferencer", pos $$textref;
		pos $$textref = $startpos;
		return;
	    }
	}

	while (1)
	{
		next if _match_codeblock <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1885	1997	
==>o in an ops file into the
relevant C code.

=cut

sub goto_offset
{
    my ($self, $offset) = @_;

    return "go <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2534	2646	
==>o in an ops file into the
relevant C code.

=cut

sub goto_offset
{
    my ($self, $offset) = @_;

    return "go <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	71940	72035	
==>RSION

		if ($rule->isleftrec($rules))
		{
			_error("Rule \"$rule->{name}\" is left-recursive." <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	5839	5963	
==>times} ) {
    my $type = $cfg{method} == 1 ? 'CPU' : 'wall-clock';
    print "Times are in $type seconds.  (lower is better) <==
2	/Users/nnunley/parrot/examples/benchmarks/oo5.pl	104	232	
==>rint $o->i, "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift;
    return bless [ 10, 20 ], $self;
}

s <==
2	/Users/nnunley/parrot/examples/benchmarks/oo6.pl	96	224	
==>rint $o->i, "\n";

package Foo;

sub new {
    my $self = ref $_[0] ? ref shift : shift;
    return bless [ 10, 20 ], $self;
}

s <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	3753	3900	
==>ll PMCs we want to register:
     */
EOC
    while (my ($class, $info) = each %classes) {
	my $lhs = $info->{flags}->{noinit} ? "" : "type$class = " <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21896	22069	
==>,
        'op'     => $opcode{$op},
        'arg1'   => $expr1->[0],
        'arg2'   => $expr2->[0],
        'result' => $result,
    );
    return [ $result, \@opcode <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	15785	15905	
==>if defined $extra{todo};

            my $pass = $builder->$meth( $real_output, $expected, $desc );
            $builder- <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	18336	18456	
==>if defined $extra{todo};

            my $pass = $builder->$meth( $real_output, $expected, $desc );
            $builder- <==
2	/Users/nnunley/parrot/languages/BASIC/interpreter/basic.pl	38	146	
==>BASIC/interpreter/basic.pl 11512 2005-10-12T02:11:40.290517Z coke  $
# $Log: basic.pl,v 
# Revision 1.11  200 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106402	1106650	
==>ter->vtables[typ]->class;\n    {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107378	1107626	
==>ter->vtables[typ]->class;\n    {{+=3}};\n",
                  "experimental" => 1,
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732204	732456	
==>{{\@1}} = (INTVAL)({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732950	733202	
==>{{\@1}} = (INTVAL)({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/Until.pm	472	588	
==>ted 5 args!" unless @_ == 5;

  my ($block, $prefix, $left, $op, $right) = @_;

  my $self = bless {
    BLOCK     => <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop/While.pm	472	588	
==>ted 5 args!" unless @_ == 5;

  my ($block, $prefix, $left, $op, $right) = @_;

  my $self = bless {
    BLOCK     => <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8554	8689	
==>$a,$_[11],22,0xfd469501,/* 8 */
FF,$a,$b,$c,$d,$_[12],7,0x698098d8,/* 9 */
FF,$d,$a,$b,$c,$_[13],12,0x8b44f7af,/* 10 */
FF,$c,$d,$a,$b,$ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	21621	21766	
==>is for a
TODO test, the todo_output() handle is used.

Output will be indented and marked with a # so as not to interfere
with test output.  A new <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	42912	43002	
==>iters, embedded balanced bracket
delimiters (for the quotelike operators), and trailing mod <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	3467	3675	
==>forth()
#
# Moves the current token position $offset tokens forward. Returns the
# token at the new absolute position.
#

sub forth
{
  my $self = shift;
  my ($offset) = @_;

  $offset = 1 unless defined $off <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	26	181	
==>egex/lib/Regex/Driver.pm 18978 2006-04-30T14:02:48.452322Z bernhard  $

package Regex::Driver;
use strict;

sub new {
    my ($class, $language, %options) = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44408	44758	
==>> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "popmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TY <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	45049	45399	
==>> [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "popmark",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TY <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	153143	153463	
==>=> [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "eq_num",
                  "FLAGS" => ":base_c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627253	627367	
==>n  }\n\n  /* Why?? If we're creating a continuation, the continuation PMC\n   * needs to be in the destination regi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628397	628511	
==>n  }\n\n  /* Why?? If we're creating a continuation, the continuation PMC\n   * needs to be in the destination regi <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	10976	11150	
==>}
        \);
        \s+{{\+=\d}}/xm) {
            $jit_func = 'Parrot_jit_vtable1r_op';
            $extern = vtable_num($1);
            #print $op->full_name .": $jit_fun <==
2	/Users/nnunley/parrot/config/init/optimize.pm	214	307	
==>imization by adding the appropriate flags for the local platform to
the C<CCFLAGS>. Should thi <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1800	1897	
==>)";
  }
}

=item C<goto_offset($offset)>

Transforms the C<goto OFFSET($offset)> macro in an ops f <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2253	2373	
==>o in an ops file into the
relevant C code.

=cut

sub goto_offset
{
    my ($self, $offset) = @_;
    return "{ cur_opcod <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	262	366	
==>.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Declaration::Variable;

us <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	4566	4875	
==>elf->c_pair_item('', 'list'),
        ),
        $self->new_group(
            'PMCs', 
            '',
            $self->c_pair_item('', 'pmc'),
            $self->c_header_item('', 'vtables'),
            $self->c_pair_item('', 'key'),
            $self->c_pair_item('', 'sub'),
            $self->c_header_ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	63285	63443	
==>em C<Did not find opening tag: /%s/>

C<extract_tagged> did not find a suitable opening tag (after any specified
prefix was removed).

=item C<Unable to constr <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	3127	3263	
==>) if $diag;
        }

        # The generated files are left in the t/* directories.
        # Let 'make clean' and 'svn:ignore' tak <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2722	2854	
==>) if $diag;
        }

        # The generated files are left in the t/* directories.
        # Let 'make clean' and 'svn:ignore' tak <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	22702	22803	
==>Expression::Value::Identifier->new($block, $self->require_ident);

      my ($cond, $left, $op, $right <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2622	2761	
==>=#=#=\".\n";
    } else {
	print "Run this script with --plus-misses, and a second section will be "
	    ."included,\nwith the heads of the <==
2	/Users/nnunley/parrot/config/inter/ops.pm	1095	1289	
==>wing opcode files are available:
  @ops
END
        {
            $ops = prompt('Which opcode files would you like?', $ops);

            if ($ops !~ m{\bcore\.ops}) {
                print "core <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75181	75531	
==>func",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 98,
                  "AR <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	16613	16847	
==>thmetic->new($block, $ident, $left, $op, $right);

      next;
    }

    #
    # Concat Operators:
    #
    #   <var> = <value> <op> <value>;
    #

    if ($token->is_ident
      and $self->get(1)->is_assign
      and $self->get(2)- <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	218	310	
==>OPSIS

	use Parrot::Docs::Section::Docs;

=head1 DESCRIPTION

A documentation section describ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627444	627531	
==>new_noinit(interpreter, {{\@2}});\n  {{\@1}}->vtable->init(interpreter, {{\@1}});\n  {{+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628588	628675	
==>new_noinit(interpreter, {{\@2}});\n  {{\@1}}->vtable->init(interpreter, {{\@1}});\n  {{+ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	461	605	
==>bel = $self->output_label_use($failLabel);
    if ($distance eq '1') {
        return "rx_advance P0, $failLabel";
    } elsif ($distance =~ /\D/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	505488	505785	
==>> "inline",
                  "CODE" => 581,
                  "ARGS" => [
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 631 \"src/ops/math.ops\"\n  {{\@1}} = {{\@2}} * {{\@ <==
2	/Users/nnunley/parrot/languages/lua/luac.pl	2	219	
==>/usr/bin/perl -w

use strict;

use Getopt::Std;

use Lua::parser;

my %opts;
getopts( 'hv', \%opts );
if ( $opts{v} ) {
    print "$0\n";
    print "Perl $] on $^O\n";
    exit;
}
if ( $opts{h} or scalar <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3520	3628	
==>t::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) = @_;

    #print STDERR "pbcc: map_arg($typ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3319	3427	
==>t::Op>.

=cut

sub access_arg
{
    my ($self, $type, $num, $op) = @_;

    #print STDERR "pbcc: map_arg($typ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	55927	56148	
==>], 'number' );
        }
	],
	[#Rule 80
		 'primary', 1,
sub
#line 432 "Lua\lua51.yp"
{
            BuildLiteral( $_[0], $_[1], 'string' );
        }
	],
	[#Rule 81
		 'primary', 1,
sub
#line 436 "Lua\lua51.y <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	39790	39985	
==>(\d+)$/) {
			my $type = $1 eq 'I' ? 'int' :
			           $1 eq 'N' ? 'num' :
					   $1 eq 'S' ? 'string' : 'pmc';
			$decls .= "    .local $type $mv->{$_}\n";
		}
	}

	# Insert 'em.
	$pir =~ s/ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5289	5444	
==>k, $self->require_literal);
        }

        $props{$prop} = $value;
      }

      $self->require_open_brace;

      my $module = Jako::Construct::Block: <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	3511	3639	
==>ce the original
    # reference.

    foreach my $stmt (@output2) {
        # $stmt : { label => ?label, code => op }
	my ($label <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	2172	2487	
==>m an I register.

=item 3

Pointer to int.

Taken from an I register

=item 4

Pointer to long

Taken from an I register

=back

=cut

my ($from_file, $to_file) = @ARGV;
# If there is no destination file, strip off the extension of the
# source file and add a .pasm to it
if (!defined $to_file) {
  $to_file = $from_ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	59898	60038	
==>se the input text is not modified in any way).

In addition, on failure in I<any> context, the C<$@> variable is set.
Accessing C<$@-E<gt>{er <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	331589	331829	
==>@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdopen" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	53983	54180	
==>>{$_}),
            sort keys %$hr ) ) . "}" ;
      $x;
    } elsif(!length($_)) { q{''} # empty string
    } elsif(
      $_ eq '0' # very common case
      or(
         m/^-?(?:[123456789]\d*|0)( <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	743	945	
==>{
    my $re = shift;

    my $comp_re = eval "qr/$re/";

    if ($@) { return "(?:$re)"; } else { return $comp_re; }
}

my $ident_re = make_re('[A-Za-z_][A-Za-z0-9_]*');
my $type_re = make_re('(?:(?:str <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	2060	2363	
==>[0]->{name} eq 'nop';
            if (@children == 0) {
                return rop('nop', []);
            } elsif (@children == 1) {
                return rop('multi_match', [0,1,0,$children[0]]);
            } else {
                @{ $t->{args} } = @children;
                return rop('multi_match <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	32232	32419	
==>= shift @{$exprs};
    }
    my $state = new_tmp( $parser, 'pmc' );
    push @opcodes1, new LocalDir( $parser,
        'result' => $state,
    );
    if (    scalar( @{$exprs} ) == 0 <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	5197	5346	
==>ything after the line starting with #perl is eval'ed
        if ($line =~ /^#perl/ && $options{feature_file}) {
            # OUT was/is used at the o <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	2398	2517	
==>$what);
    return ("print $what;");
}

sub output_test {
    my ($self, $test, $val1, $val2, $dest) = @_;
    $val1 = v <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	2715	2833	
==>$what);
    return ("print $what");
}

sub output_test {
    my ($self, $test, $val1, $val2, $dest) = @_;
    $val1 = v <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	9987	10091	
==>verage{$source_file}{$function} ? "$function_line_coverage{$source_file}{$function} %" : "n/a" ]}</a></td <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	15749	15916	
==>for my $i (0..$#args-1) {
        push @ops, aop('eq', [ '<tmp>', $i, $ibacks[$i] ]);
    }

    push @ops, aop('goto', [ $ibacks[-1] ]);
    push @ops, $next;

    ret <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2008	2176	
==>qq{\t\tfind_global _GLOBALS, "COMMON"\n};
		foreach(@saves) {
			print CODE qq{\t\t$_=_GLOBALS["$_"]\n};
		}
	}

	# Emit the code for the segment
	foreach(@{$code{$seg}- <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	35203	35434	
==>anchOp') ) {
            if ( $op->{result} eq 'break' ) {
                $op->{result} = $lbl_end;
            }
        }
    }
    push @opcodes1, @{$block};
    push @opcodes1, new BranchOp( $parser,
        'result' => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	103206	103353	
==>"p"
                            ],
                  "BODY" => "#line 135 \"src/ops/bit.ops\"\n  {{\@1}}->vtable->i_bitwise_nots(interpreter, {{\@1} <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23152	23305	
==>'.$self->{hashname}.'}=').'$_tok;
		' . ($self->{"lookahead"} ? '$text = $_savetext;' : '' ) .'
'
}

1;

package Parse::RecDescent::UncondReject;

sub iss <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32906	33035	
==>'.$self->{hashname}.'}=') . '$_tok;
		' . ($self->{"lookahead"} ? '$text = $_savetext;' : '' ) .'
';

	return $code;
}

1;

packag <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	1008	1115	
==>his file after SVN
# has been told about new generated files.
# 
# Ignore the SVN directories
\B\.svn\b

# d <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3863	3969	
==>his file after SVN
# has been told about new generated files.
#
# Ignore the SVN directories
\B\.svn\b

# d <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1443	1559	
==>$prog_output = Parrot::Test::slurp_file( "$out_f" );

        @_ = ( $prog_output, $output, $desc );
        #goto &{ <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1359	1475	
==>$prog_output = Parrot::Test::slurp_file( "$out_f" );

        @_ = ( $prog_output, $output, $desc );
        #goto &{ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	3594	3681	
==>o a lazy move.
PRE_OP_${CURIC}_LAZY_MOVE_$register_num:
${STACK$register_num} = pop lazy <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241591	242053	
==>ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 281,
                  "ARGS" => [
                              "i",
                              "p",
                              "n"
                            ],
                  "BODY" => "#line 624 \"src/ops/cmp.ops\"\n  FLOA <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5792	5931	
==>$$_[0] } @$stack).
#DBG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defined($$token)
            or	do {
				($$t <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5517	5648	
==>$$_[0] } @$stack).
#DBG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defined($$token)
            or	do {
				($$t <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	45781	45933	
==>part of 'bar baz'".  However, hyphenation is such a vexing
       # problem anyway, that most Pod renderers just don't render it
       # at all.  But if <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29246	29399	
==>1;
		} elsif ($rule->{'pir'} =~ /\$\{LOADREG\}/ || $rule->{'instruction'} =~ /\$\{LOADREG\}/) {
			$need_dest = 0;
			$mv->{'LOADREG'} = 'loadreg';
			pus <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	657	755	
==>'/usr'.

=item C<exec_prefix>

The exec prefix. Defaults to '/usr'.

=item C<bindir>

The executabl <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	886	984	
==>'/usr'.

=item C<exec_prefix>

The exec prefix. Defaults to '/usr'.

=item C<bindir>

The executabl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	800524	800691	
==>",
                              "s"
                            ],
                  "BODY" => "#line 467 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed(in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	424614	425274	
==>"LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "accept",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 488,
                  "ARGS" => [
                              "p",
                              "p"
                            ] <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	37534	37819	
==>1 and print "Containing fors: ",
            join(',', map $_->[1]{'target'}, @fors), "\n";
          
          if(! @fors) {
            DEBUG and print "Treating $para_type paragraph as such because stack has no =for's\n";
            
          #} elsif(grep $_->[1]{'~resolve'}, @f <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	2405	2509	
==>$entry;
}

while (my ($package, $files) = each %FILES) {
    my $manifest = "MANIFEST.$package";
    open <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	862	1001	
==>}

sub output_start {
    my ($n) = @_;
    return "start $n";
}

sub output_end {
    my ($n) = @_;
    return "end $n";
}

sub output_fail <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7891	7991	
==>tack_depth
${STEMP0} = concat ${STEMP1}

# Put it in the parameter register list.
${PARAMS}[${ITEMP0} <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45286	45391	
==>TOTREEMK		= '\G\s*<autotree>';
my $AUTOSTUBMK		= '\G\s*<autostub>';
my $REJECTMK		= '\G\s*<reject>';
my $C <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	549985	550089	
==>n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+3}};\n  inter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	551286	551390	
==>n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+3}};\n  inter <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	4731	4902	
==>lse {  # program output from import - really ugly
	push @code, [0,0, undef, 0, $l, ''];
	return;
    }
    push @code, [$line, $pc, $opcode, $arg, $rest, $source];
}

sub X <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	17030	17180	
==>thy things
       0x00 .. 0x1F, 0x5c, 0x7b, 0x7d, 0x7f .. 0xFF, 0x46),

  # We get to escape out 'F' so that we can send RTF files thru the mail
  # wi <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	50564	50778	
==>ode
        DEBUG > 4 and print " It's indeed an end-code.\n";

        if(length($4) == 2) { # There was a space there: " >"
          push @{ $lineage[-1] }, ' ';
        } elsif( 2 == @{ $lineage[-1] } ) { # Clos <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	1675	1804	
==>ead2 Compiling PMCs

First, the program determines the names of the .c and .h files from the
basename of the .pmc file (e.g. F<per <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	907983	908391	
==>,
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1023,
                  "ARGS" => [
                              "s",
                              "p",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line 262 \"src/ops/string.ops\"\ <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	2287	2412	
==>=> "CONST(%ld)",
        sc  => "CONST(%ld)",
        kc  => "CONST(%ld)",
        kic => "cur_opcode[%ld]"
    );
}

sub read <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	395	501	
==>use Parrot::Test::Harness language => 'perl6', compiler => 'perl6.pbc';

That's it.  Seriously.

=head1 DES <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	956	1100	
==>f;
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

sub parse_string_document {
  my $this = shift;
  $this->set_s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	14421	14568	
==>rent_block, $peer_block);
        $self->push_block($loop) if defined $cont;
      }
      elsif ($peer_block->kind eq 'continue') {
        if (def <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4527	4621	
==>s_addr_decl($base_suffix)>

Returns the C code for the ops address declaration.

=cut

sub ops_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685838	686172	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686727	687061	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" = <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	19530	19707	
==>sub gen_c {
    my ($include, @files) = @_;
    my %pmcs = map { $_, read_dump($include, $_) } @files;

    Parrot::Pmc2c::Library
        ->new( \%opt, read_dump($include, "vtab <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553848	553953	
==>n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+4}};\n  interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555245	555350	
==>n  opcode_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+4}};\n  interp <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	4517	4763	
==>e changed.
        
        my $href = $self->href_for_perl_module($text);
        
        esc($text);
    
        if ( $href )
        {
            $text = "<a href='$href'>$text</a>";
        }
    }
    else
    {
        # Tidy up the C ref <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3445	3548	
==>lf->{'Thispara'},
    "\n\n"
  ;
  $self->{'Thispara'} = '';
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2975	3078	
==>lf->{'Thispara'},
    "\n\n"
  ;
  $self->{'Thispara'} = '';
  return;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10627	10856	
==>"FLAGS" => ":base_core,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 14,
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	13477	13815	
==>"FLAGS" => ":base_core,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 18,
                  "ARGS" => [
                              "ic"
                            ],
                  "BODY" => "#li <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8978	9084	
==>: fixup for '%s' not found\", label);\n    else {\n\tinterpreter->resume_offset = fe->offset;\n        Parr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10094	10200	
==>: fixup for '%s' not found\", label);\n    else {\n\tinterpreter->resume_offset = fe->offset;\n        Parr <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	39404	39583	
==>Return generated code.
    return $pir;
}


# Inserts auto-magically instantiated meta-variable locals.
# #########################################################
sub insert_autom <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	22914	23037	
==>tupl->[1] n = $tupl->[0]
EOC
    $n = $tupl->[0];
    UNPACK_SEQUENCE($n, '', "\t\t #unpack");
    CALL_FUNCTION($n, $c, $cm <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	295	395	
==>he F<examples/mops/mops.pasm> example program,
for speed comparisons.

Calculates a value for M ops/s <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	291	391	
==>he F<examples/mops/mops.pasm> example program,
for speed comparisons.

Calculates a value for M ops/s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	40	216	
==>Tree;
use Regex::Ops::List;
require 'Regex.pm';
use strict;

*aop = *Regex::Rewrite::aop;
*rop = *Regex::Rewrite::rop;

# The basic method signature used here:
#
# rewrite_X : ( <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	4076	4226	
==>y { code() };
    if ($!) {
        &Test::ok.goto($! ~~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test::proclaim(undef, $desc, $todo <==
2	/Users/nnunley/parrot/config/init/defaults.pm	3857	4036	
==>t file.  Keep the trailing space.
        ld_out => '-o ',

        # include debug info in executable
        ld_debug => '',

        # Way to decorate a function to mark it as a <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10026	10129	
==>k[-1][0]]{ACTIONS}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Pop state $$stac <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9578	9678	
==>k[-1][0]]{ACTIONS}{error} <= 0)) {

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Pop state $$stac <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	212	330	
==>= 0;
$Test::num_of_tests_failed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of_tests_planned;

# a Junction to hol <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8809	8917	
==>= 0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_tests_badpass = 0;
    $Test::num_of_tests_planned <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	2523	2724	
==>y $self = shift;
    my $silent = shift || 0;
    my $delete = shift || 0;
    my $dist = Parrot::Distribution->new;

    $dist->delete_html_docs if $delete;

    $self->write_html($dist, $dist->html_do <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759732	759908	
==>,
                              "p"
                            ],
                  "BODY" => "#line 281 \"src/ops/set.ops\"\n  {{\@1}}->vtable->set_pmc(interpreter, {{\@1}}, { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	30128	30555	
==>less( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "set_returns",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 39,
                  "ARGS" => [
                              "pc"
                            ],
                  "B <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015052	1015147	
==>{{\@2}});\n  {{\@1}} = string_make(interpreter, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=3}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015876	1015971	
==>{{\@2}});\n  {{\@1}} = string_make(interpreter, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=3}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085491	1085797	
==>",
                  "CODE" => 1204,
                  "ARGS" => [
                              "p",
                              "p",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 163 \"src/ops/experimental.ops\"\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78447	78871	
==>DIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 100,
                  "ARGS" => [
                              "p",
                              "p",
                              "s"
                            ],
                  "BODY" => " <==
2	/Users/nnunley/parrot/languages/regex/regex.pl	2228	2425	
==>x::Driver->new($language, %options);

$driver->output_header(*OUTPUT);

for my $rule (@$trees) {
    $driver->output_rule(*OUTPUT, $subname, $rule, $ctx, %options);
}

$driver->output_footer(*OUTPUT <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	753	911	
==>MARY                                           ";
print $done . (' ' x (10 - length($done)));
print $total . (' ' x (10 - length($total)));
print "$percent% <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1036306	1036554	
==>PE" => "function",
                  "CODE" => 1158,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 64 \"src/ops/var.ops\"\n    pa <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	26476	26640	
==>C
	$c = $p;
    }
    else {
	my $p = 5 + keys %params;
	$params{$c} = $c;
	$lexicals{$c} = $c;
	$names{$c} = $c;
	print <<EOC;
        \t $cmt
EOC
    }
    push @s <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	10858	11043	
==>seg}->{code}}, <<EOASS;
	\$S99 = _READ()
	\$N99= \$S99
EOASS
	($result, $type, @code)=EXPRESSION({ stuff => '$X99', choose => 1 });
	feedme();
	push @{$code{$seg}->{code}}, <<EOASS;
@cod <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	22503	22637	
==>ructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 72
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' = <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	9528	9640	
==>ic op_func${suffix}_t ${op_func}\[$num_entries] = {
END_C

    print SOURCE @op_func_table;

    print SOURCE <<E <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	802231	802502	
==>5,
                  "ARGS" => [
                              "p",
                              "k",
                              "sc"
                            ],
                  "BODY" => "#line 467 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed(inter <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	4583	4743	
==>ve interesting, or even noisy.
            # -Wunreachable-code might be useful in a non debugging version
        );
        $warns = "";
        while (my ($ve <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2392	2598	
==>str .= "\r",      # carriage return
                last;
            s/^\\t//
                and $str .= "\t",      # horizontal tab
                last;
            s/^\\v//
                and $st <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3906	4112	
==>str .= "\r",      # carriage return
                last;
            s/^\\t//
                and $str .= "\t",      # horizontal tab
                last;
            s/^\\v//
                and $st <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	227449	227749	
==>, {{\@2}}) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	228429	228729	
==>, {{\@2}}) >= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1220	1316	
==>->is_eq( Parrot::Test::slurp_file($out_f), $output, $desc );
        $self->{builder}->diag("'$cm <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1261	1357	
==>->is_eq( Parrot::Test::slurp_file($out_f), $output, $desc );
        $self->{builder}->diag("'$cm <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	538	689	
==>rbose_error} );
}

sub Warning {
    my $parser = shift;
    my ($msg) = @_;

    $msg ||= ".\n";

    if ( exists $parser->YYData->{nb_warning <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	26769	26908	
==>BODY" => "#line 452 \"src/ops/core.ops\"\n  {{\@1}} = parrot_new_closure(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7118	7228	
==>ions{reject}) eq 'ARRAY' ? join('|', @{$options{reject}})
		    : defined($options{reject})	       ? $options{r <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24120	24230	
==>ions{reject}) eq 'ARRAY' ? join('|', @{$options{reject}})
		    : defined($options{reject})	       ? $options{r <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	30968	31112	
==>TB;
	# Several statements need to make branches
	# that are only discovered at runtime.
RUNTIME_JUMP:
RTB
	if ($runtime_jump) {
		foreach(sort ke <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353588	353688	
==>Y" => "#line 200 \"src/ops/io.ops\"\n  STRING * const s = {{\@1}};\n  if (s && string_length(interpre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354333	354433	
==>Y" => "#line 200 \"src/ops/io.ops\"\n  STRING * const s = {{\@1}};\n  if (s && string_length(interpre <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1274	1386	
==>= File::Spec->join('languages', $language);
        } elsif ($dir_count == 1) {
          $path_to_language = $la <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1759	1871	
==>= File::Spec->join('languages', $language);
        } elsif ($dir_count == 1) {
          $path_to_language = $la <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	28050	28136	
==>:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.

sub _treat_ <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	13901	14140	
==>count, Str $reason?) returns Bool`

If for some reason a test is to be skipped, you can use this
function to do so.

- `pass (Str $desc?) returns Bool`

Sometimes what you need to test does not fit into one of the standard
testing functions <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4927	5029	
==>new $pmc_type");
    $compiler->emit("  $pmc_reg = $dest");
    $compiler->emit("  global \"$dest_name\ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2990	3092	
==>new $pmc_type");
    $compiler->emit("  $pmc_reg = $dest");
    $compiler->emit("  global \"$dest_name\ <==
2	/Users/nnunley/parrot/config/inter/lex.pm	1381	1510	
==>prog) {
        $conf->data->set($util => $prog);
        $self->set_result('yes');
        return $self;
    }

    $prog = check <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	1378	1507	
==>prog) {
        $conf->data->set($util => $prog);
        $self->set_result('yes');
        return $self;
    }

    $prog = check <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	6385	6603	
==>r->YYData->{shebang} = undef;
                s/^#(.*)\n//    # Shebang
                    and $parser->YYData->{lineno}++,
                    last;
            }

            s/^[ \r\t\f\013]+//;    # Whitespac <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	19638	19797	
==>_code> )

This sets the language code to tag this document as being in. By
default, it is currently the value of the environment variable
C<RTFDEFLANG>, or if t <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	4964	5072	
==><itemData name="Op" defStyleNum="dsNormal" color="#000080" selColor="#ffffff" bold="0" italic="0" />
      <i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	814540	814785	
==>\"\n  {{\@1}} = 0;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	815790	816035	
==>\"\n  {{\@1}} = 0;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028163	1028279	
==>\n  }\n  next = Parrot_sleep_on_event(interpreter, (FLOATVAL) {{\@1}}, next);\n  {{=next}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029014	1029130	
==>\n  }\n  next = Parrot_sleep_on_event(interpreter, (FLOATVAL) {{\@1}}, next);\n  {{=next}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45246	45368	
==>y $NOCHECKMK		= '\G\s*<nocheck>';
my $AUTOTREEMK		= '\G\s*<autotree>';
my $AUTOSTUBMK		= '\G\s*<autostub>';
my $REJECTMK		= <==
2	/Users/nnunley/parrot/config/auto/jit.pm	885	991	
==>it sources
    my $archname = $Config{archname};
    my ($cpuarch, $osname) = split(/-/, $archname);

    i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	639633	639807	
==>s = interpreter->vtables[typ]->class;\n\t  break;\n      case PARROT_ARG_P:\n\t  class = REG_PMC(arg_op[2]);\n\t  break;\n      default:\n\t  internal_exception(UNIMPLEMENTED, <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	933	1085	
==>new
{ 
    return bless { }, shift; 
}

=back

=head2 Instance Methods

=over 4

=item C<prefix()>

Returns the default 'C<Parrot_>' prefix.

Used by C<P <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	7111	7236	
==>"    $_ (in " . (join ',', @{$referenced_in{$_}}) . ")\n" foreach (@non_ansi_external_symbols);
}

    
__END__
# The followin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807851	807939	
==>ine 502 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed(interpreter, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808756	808844	
==>ine 502 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed(interpreter, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054256	1054353	
==>"#line 182 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (PMC_IS_NULL({{\@2}}))\n\tinternal_ex <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055383	1055480	
==>"#line 182 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (PMC_IS_NULL({{\@2}}))\n\tinternal_ex <==
2	/Users/nnunley/parrot/lib/Test/More.pm	32390	32608	
==>sub eq_set  {
    my($a1, $a2) = @_;
    return 0 unless @$a1 == @$a2;

    # There's faster ways to do this, but this is easiest.
    local $^W = 0;

    # We must make sure that references are treated neutrally.  It r <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	55927	56021	
==>xtractor subroutines succeeds, then one
character is extracted from the start of the text and t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240152	240275	
==>n  INTVAL l = VTABLE_get_integer(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241100	241223	
==>n  INTVAL l = VTABLE_get_integer(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	1878	2023	
==>) {
			push(@saves, $var);
		}
	}
	if (@saves) {
		print CODE qq{\t\t# Grab "COMMON" variables from global stash\n};
		print CODE qq{\t\tfind_glob <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	12805	13004	
==>encoding_command_statuses'}[-1],
      );
    } else {
      DEBUG > 2 and print " (Yup, it was successfully handled already.)\n";
    }
    
  } else {
    # Otherwise it's a syntax error
    $self-> <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	2122	2249	
==>};
        return ();
    } else {
        my $rxlocals = ($op->{rxlocals} ||= []);
        return (aop(comment => [ "save rxloc <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59866	60004	
==>or next;
			$prod->check_pending($line) if $prod;
			$prod = new Parse::RecDescent::Production($line,0,1);
			$rule and $rule->addprod($pro <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	59510	59612	
==>or next;

			$prod->check_pending($line) if $prod;
			$prod = new Parse::RecDescent::Production($line,1 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	997	1152	
==>paths.

=cut

sub new
{
	my $self = ref $_[0] ? ref shift : shift;
	my $name = shift || die "No name.\n";
	my $text = shift;
	my @contents = @_;
	
	# TODO - <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	4715	4852	
==>to find
    # unreachable basic blocks. We'll store a 'reachable' flag in the
    # 3rd element of the labels.

    # But first, make *all <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	253	505	
==>t;
use warnings;
use 5.006;

use Data::Dumper;
use File::Basename;

use Parrot::Test;
use Parrot::Test::M4::Gnu;
use Parrot::Test::M4::PIR;

our $VERSION = 0.01;

=head1 METHODS

=head2 new

A kind of factory, that finds the proper subclass of Parrot::T <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	765	892	
==>);

    # undef means we don't have bison... default to not having bison
    $conf->data->set(bison_version => undef);

    unle <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	410166	410524	
==>&dest);\n    {{\@3}} = dest;\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "send",
                  "FLAGS <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25770	25949	
==>ss') {
        $cond = Jako::Construct::Block::Conditional::Unless->new($block, $left, $op, $right);
      }

      push @{$self->{BLOCKS}}, $cond;
      next;
    }

=begin commen <==
2	/Users/nnunley/parrot/config/gen/PodText.pm	1621	1768	
==>" . __PACKAGE__ . " from $pod\n"
              . "\n"
              . $text
        ;
        # the filehandle was opened for update so the files 'p <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	1140	1247	
==>cs/Item.pm'),
            $self->new_item('', 'lib/Parrot/Docs/Group.pm'),
            $self->new_item('', ' <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	1787	1883	
==>urned.

=cut

sub write_html
{
	my $self = shift;
	my $index_html = $self->write_contents_html(@_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	872	965	
==>ne CUR_OPCODE cur_opcode
#define IREG(i) REG_INT(cur_opcode[i])
#define NREG(i) REG_NUM(cur_op <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	988	1081	
==>ne CUR_OPCODE cur_opcode
#define IREG(i) REG_INT(cur_opcode[i])
#define NREG(i) REG_NUM(cur_op <==
2	/Users/nnunley/parrot/config/auto/pack.pm	570	683	
==>or pack().
    # The ! modifier only works for perl 5.6.x or greater.
    #

    my $intsize  = $conf->data->get(' <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9223	9357	
==>s been called
            or  next;       # so continue parsing

#DBG>			$debug & 0x10
#DBG>		and	do {
#DBG>			print STDERR "**Ent <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8808	8937	
==>s been called
            or  next;       # so continue parsing

#DBG>			$debug & 0x10
#DBG>		and	do {
#DBG>			print STDERR "**Ent <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	23390	23781	
==>=> "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 31,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 419 \"sr <==
2	/Users/nnunley/parrot/config/init/defaults.pm	6452	6605	
==>ibnci_test.so
        ncilib_link_extra => '',

    );

    my $prefix = $conf->options->get('prefix');
    unless (defined $prefix) {
        my $VERSION <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	32124	32318	
==>IL' => 30,
			'FALSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36,
			'NAME' => 4,
			"{" => 38,
			"..." => 39,
			"(" => 40,
			"#" => 41
		},
		DEFAULT => -37,
		GOTOS => {
			'e <==
2	/Users/nnunley/parrot/config/inter/make.pm	1239	1404	
==>l => $prog);
        $self->set_result('yes');
    } else {
        $prog = check_progs(['gmake', 'mingw32-make', 'nmake', 'make'],
            $verbose);

        un <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5464	5583	
==>$pass";
        }
    }
    push @ops, "branch $fail";

    push @ops, $self->output_label_def($passLabel);
    return @ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	126800	127156	
==>S" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rot",
                  "FLAGS" => "",
                  "ARGDIRS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	127935	128291	
==>S" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "rot",
                  "FLAGS" => "",
                  "ARGDIRS <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	15444	15591	
==>ub_meth;
            $additional_bodies .= "{$body_part\n}";
            push @{ $self->{mmd_variants}{$meth} },
                [ $right_type, $sub <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4981	5091	
==>s)
     = @$self{ 'ERRST', 'NBERR', 'TOKEN', 'VALUE', 'STACK', 'CHECK', 'DOTPOS' };

#DBG>	my($debug)=$$self <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4739	4846	
==>s)
     = @$self{ 'ERRST', 'NBERR', 'TOKEN', 'VALUE', 'STACK', 'CHECK', 'DOTPOS' };

#DBG>	my($debug)=$$self <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	17714	17901	
==>lt, $type, @code)=EXPRESSION();
		$false=qq{""} if $type eq "S";
		if ($which eq "while") {
			$_="@code eq $result, $false, AFTERDO_$docounter";
		} else {
			$_="@code ne $result, $false <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19172	19293	
==>lt, $type, @code)=EXPRESSION();
		$false=qq{""} if $type eq "S";
		if ($which eq "while") {
			$_="@code ne $result, $fals <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3087	3231	
==>sub output_gt {
    my ($self, $val1, $val2, $dest) = @_;
    $self->output_test('>', $val1, $val2, $dest);
}

sub output_ge {
    my ($self, $va <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	4043	4154	
==>}_THUNK";
    $thunk =~ s/::/__/g;

    $compiler->emit(".sub $thunk");

    my $sig = defined $self->type ? $se <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	1262	1432	
==>NICODE = sub() {''} }
}
if(DEBUG > 2) {
  print "# We are ", ASCII ? '' : 'not ', "in ASCII-land\n";
  print "# We are under a Unicode-safe Perl.\n";
}

# Design note:
# T <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	4794	5041	
==>e')) {
                # $arg is a reference variable, remember.
                $arg = $self->pass1($arg, $ctx);
            }
        }
        return $t;
    }
}

# Note: the following fails to rewrite
#   aR|[a]S
# to
#   a(R|S)
#
sub matchsame <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	801	960	
==>fix()>

The prefix is C<'switch_'>.

=cut

sub core_prefix
{
    return "switch_";
}

=item C<suffix()>

The suffix is C<'_switch'>.

=cut

sub suffix
{
    ret <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	2620	2725	
==>d) {
    $handler->start_element({ Name => 'cond', Attributes => { kind => $cond } });
    $handler->start <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3384	3489	
==>d) {
    $handler->start_element({ Name => 'cond', Attributes => { kind => $cond } });
    $handler->start <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	2442	2587	
==>nterp, PMC* registry, int pmc_id)
{
    STRING* key = interp->vtables[pmc_id]->whoami;
    VTABLE_set_integer_keyed_str(interp, registry, key, pmc <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	46113	46291	
==>an input
string, but with an important caveat in list contexts.

Unlike other types of quote-like literals, a here document is rarely
a contiguous substring. For example, a typica <==
2	/Users/nnunley/parrot/config/inter/encoding.pm	1603	1728	
==>);
    $TEMP_encoding_o =~ s/^| / src${slash}encodings${slash}/g;

    $conf->data->set(
        encoding            => $encod <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	2928	3069	
==>OT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "check_events",
                  "FLAGS" => ":base_core",
                  " <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	1505	1689	
==>. __PACKAGE__;
  } else {
    Carp::croak join '',
      "You can't call run() because ",
      ref($_[0]) || $_[0], " didn't define a run() method";
  }
}

sub parse_lines {
  use Carp <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	763	862	
==>IVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Left is not Value!" unless UNIVERSAL::isa <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	775	874	
==>IVERSAL::isa($block, 'Jako::Construct::Block');
  confess "Left is not Value!" unless UNIVERSAL::isa <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16499	16612	
==>,
			'functioncall' => 31,
			'tableconstructor' => 32,
			'var' => 35,
			'_field_plus' => 93,
			'field' => <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	10365	10455	
==>the stack.
${PTEMP3} = ${STYPES}[${ITEMP2}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP3}["reg_type <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	7749	7839	
==>the stack.
${PTEMP3} = ${STYPES}[${ITEMP2}]
${STEMP0} = "$"
${STEMP1} = ${PTEMP3}["reg_type <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	6035	6225	
==>ssecrt' => undef,
             'i_sysselct' => 'define',
             'i_syssocket' => 'define',
             'i_syssockio' => 'define',
             'i_sysstat' => 'define',
             'i_ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	3246	3344	
==>reate>

  my $Test = Test::Builder->create;

Ok, so there can be more than one Test::Builder object <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11751	11843	
==>"type"]
printerr type
printerr " "
inc j
goto PTYPES_LOOP
PTYPES_LOOP_END:
printerr "\\n"
pri <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	6390	6612	
==>e {
        require Carp;
        my @args = grep { defined } ($cmd, $arg);
        Carp::croak("plan() doesn't understand @args");
    }

    return 1;
}

=item B<expected_tests>

    my $max = $Test->expected_tests;
    $ <==
2	/Users/nnunley/parrot/config/auto/msvc.pm	643	779	
==>g/auto/msvc/test_c.in");
    cc_build();
    my %msvc = eval cc_run() or die "Can't run the test program: $!";
    cc_clean();

    # Set <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34562	34660	
==>{"lookahead"} ? '$text = $_savetext;' : '')
			    .($::RD_NO_TRACE?'':'
			Parse::RecDescent::_tra <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	59889	60026	
==>ule 111
		 'field', 3,
sub
#line 595 "Lua\lua51.yp"
{
            [ BuildLiteral( $_[0], $_[1], 'key' ), $_[3] ];
        }
	],
	[ <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	1365	1462	
==>pend the object name before the symbol name.

=item C<--t>

Append the short BSD-style type to the <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3197	3332	
==>@ISA %pmc_types @EXPORT_OK);

@ISA = qw( Exporter );
@EXPORT_OK = qw( %pmc_types);

%pmc_types = (
END_PM

    for my $num (0 .. $#pmcs) <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	1891	2003	
==>nted should be done -- but the problem is that the
   stack base pointer will be NULL. This is Very Bad.

   To d <==
2	/Users/nnunley/parrot/lib/Test/More.pm	9095	9206	
==>ke($this, qr/that/, 'this is like that');

is similar to:

    ok( $this =~ /that/, 'this is like that');

(Mnem <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	35666	35816	
==>b IMPORT_FROM {
    my ($n, $c, $cmt) = @_;
    print <<EOC;
	\t $cmt XXX
EOC
    # push @stack, [-1, 'time', 'P'];
    $code_l++;
}

# vim: sw=4 tw=70 <==
2	/Users/nnunley/parrot/languages/regex/test.pl	177	356	
==>this with perl5.005 produces:
# Can't locate object method "new" via package "Regex::CodeGen::IMCC"
use 5.006;

use File::Spec::Functions;	# In perl core only for >= 5.6.

# FIXME: <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2825	3005	
==>thods from
L<Pod::Simple>.


=head1 SEE ALSO

L<Pod::Simple::DumpAsXML> is rather like this class; see its
documentation for a discussion of the differences.

L<Pod::Simple>, L<Pod: <==
2	/Users/nnunley/parrot/config/gen/cpu/i386/auto.pm	540	710	
==>ose = $conf->options->get('verbose');

    my @files = qw( memcpy_mmx.c memcpy_sse.c );
    for my $f (@files) {
        print " $f " if $verbose;
        my ( $suffix ) = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	26911	27428	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "set_args",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 36,
                  "ARGS" => [
                              " <==
2	/Users/nnunley/parrot/tools/dev/symlink.pl	1556	1657	
==>= split('/', $manifile);
	    my $dstfile = File::Spec->catfile(@manifile);
	    my $srcfile = File::S <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17494	17586	
==>I');
  $self->_add_inst ("NEXT_$label", 'typeof',[$type,$list]);
  $self->_add_inst ('', 'eq' <==
2	/Users/nnunley/parrot/tools/build/revision_c.pl	100	340	
==>06-25T03:57:27.771662Z petdance  $

=head1 NAME

tools/build/revision_c.pl

=head1 DESCRIPTION

Creates F<src/revision.c> with current rev number taken from
F<.svn/entries> or F<.svk/entries> and config rev number of last
Parrot configure ru <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2703	2819	
==>dest = $dest->compile($compiler);

  $compiler->emit("  concat $dest, $left, $right");

  if (($dest_ident->kind eq ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853429	853724	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854211	854506	
==>+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "concat",
                  "FLAGS" => " <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10163	10283	
==>_fallback = ();
@Latin1Code_to_fallback{0xA0 .. 0xFF} = (
# Copied from Text/Unidecode/x00.pm:

' ', qq{!}, qq{C/}, 'PS', <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	13105	13222	
==>Can't close $filename: $!";

    return $text;
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::Configure::RunSteps <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	13024	13128	
==>ew;}
{\f2\fswiss Arial;}
}

END
}

sub doc_init {
   return <<'END';
{\rtf1\ansi\deff0

END
}

sub color_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5483	5668	
==>sts $_->{pragma} and $_->{pragma} eq 'multi' ) {
                    print {$FH} " :slurpy";
                }
                $first = 0;
            }
            print {$FH} ") = <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6515	6700	
==>sts $_->{pragma} and $_->{pragma} eq 'multi' ) {
                    print {$FH} " :slurpy";
                }
                $first = 0;
            }
            print {$FH} ") = <==
2	/Users/nnunley/parrot/config/init/manifest.pm	823	934	
==>ntinue running
without everything here.  Please try to find the above
files and then try running Configure again <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	558027	558120	
==>TAILCALL;\n  interpreter->current_object = object;\n  interpreter->current_method = meth;\n  m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559411	559504	
==>TAILCALL;\n  interpreter->current_object = object;\n  interpreter->current_method = meth;\n  m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	419115	419694	
==>RGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 482,
                  "ARGS" => [
                              "i",
                              "p",
                              "i",
                              "ic",
                              "ic"
                            ],
                  "BODY" => "#line <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686440	686562	
==>s\"\n   {{\@1}} = {{\@3}}->vtable->getprop(interpreter, {{\@3}}, {{\@2}});\n   {{+=4}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687330	687452	
==>s\"\n   {{\@1}} = {{\@3}}->vtable->getprop(interpreter, {{\@3}}, {{\@2}});\n   {{+=4}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40215	40499	
==>ART",
                  "NAME" => "die",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 51, <==
2	/Users/nnunley/parrot/config/init/hints/irix.pm	178	291	
==>ep
{
    my ($self, $conf) = @_;

    my $ccflags = $conf->data->get('ccflags') || "";

    # 1185 An enumerated t <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	7212	7348	
==>code)) {
            $AMDEST{$_->{label}} = 1;
        }
    }
    foreach (@output4) {
        delete $_->{label} if ($_->{label} && ! $ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	29861	30003	
==>\t$cmt\n";
    my $v = pop @stack;
    my $w = pop @stack;
    my $x = pop @stack;
    push @stack, $v;
    push @stack, $x;
    push @stack, $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	4299	4400	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@

#sub curr_open { # read-only list accessor
#  return @{ $_[0]{'curr_open <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	1146	1277	
==>L<Parrot::Configure::Data> object.

=cut

sub new
{
    my $class = shift;

    my $self = {
        c        => {},
        trigger <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	949	1059	
==>C<directory_with_path($path)>

Returns the directory with the specified path. 

The directory is an instance of <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8398	8494	
==>um_of_tests_planned tests, but ran $Test::num_of_tests_run");
    }

    if ($Test::num_of_tests_ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	5846	5938	
==>($qdel && $$textref =~ m/\G([$qdel])/gc)
		{
			$$textref =~ m/\G[^\\$1]*(?:\\.[^\\$1]*)*(\Q$ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	5	93	
==>yright (C) 2004, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Docs/Section/Languages.pm <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	5901	6116	
==>\\',
            blib_dir => 'blib\\lib',
            make_and => "\n\t",
        );
    } elsif ($is_mingw) {
        my $make = $conf->data->get(qw(make));
        if ($make =~ /nmake/i) {

            # ActiveStat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806045	806133	
==>97 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed(interpreter, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	806951	807039	
==>97 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed(interpreter, {{\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	45998	46110	
==>VerbatimFormatted';

  # Collapse adjacent text nodes, just for kicks.
  for( my $i = 2; $i > $#$p; $i++ ) { # wo <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	5230	5399	
==>./gcs;

		if ($$textref =~ m/\G($ldel)/gc)
		{
			push @nesting, $1;
		}
		elsif ($$textref =~ m/\G($rdel)/gc)
		{
			my ($found, $brackettype) = ($1, $1);
			if ($#nesti <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	31059	31346	
==>type eq 'number' or $item_type eq 'bullet') {
            die "Unknown item type $item_type"
             unless $item_type eq 'number' or $item_type eq 'bullet';
            # Undo our clobbering:
            push @$para, $para->[1]{'~orig_content'};
            delete $para->[1]{'numbe <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	39383	39530	
==>ace'} = 'preserve';
        for($i = 2; $i < @$para; $i++) {
          foreach my $line ($para->[$i]) { # just for aliasing
            while( $line <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	2081	2184	
==>okens
# (at most, given the possibilitiy of running off the end) are returned. If
# a count is not given <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828714	828812	
==>\"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_PMC) {\n    internal_exception(ERRO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829782	829880	
==>\"Stack depth wrong\");\n  if (entry->entry_type != STACK_ENTRY_PMC) {\n    internal_exception(ERRO <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	484	613	
==>keys;
    my $serialized = $data->dump;
    $data->clean;
    $data->settrigger($key, $trigger, $cb);
    $data->gettriggers($key) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1108267	1108421	
==>ing:\n\t        type = pmc_type(interpreter, PMC_str_val({{\@2}}));\n            if (type <= 0)\n                real_exception(interpreter, NULL, NO_CLASS <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	342	475	
==>l 19607 2006-05-30T15:23:20.183054Z coke  $' =~ /^\$[iI][dD]:\s(.*)\$$/;
my $fileid = '$'.'id $';
my $charset_dir = File::Spec->catdir <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Posix.pm	7	88	
==>/parrot/languages/bc/lib/Parrot/Test/Bc/Posix.pm 16454 2006-02-01T20:44:27.448243Z <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	4067	4256	
==>),
        $self->new_group(
            'Bytecode', 
            '',
            $self->c_item(
                'Parrot Packfile API and utilities.', 
                'contents' => ['src/pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351020	351264	
==>T, (INTVAL){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351682	351926	
==>T, (INTVAL){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" = <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2716	2860	
==>, 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P12', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16 <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	9283	9390	
==>at "\n"

# Decrement stack height.
dec stack_depth
PIR
	}

	return $pir;
}

# Pre and post call hooks.
sub p <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6801	6908	
==>at "\n"

# Decrement stack height.
dec stack_depth
PIR
	}

	return $pir;
}

# Pre and post call hooks.
sub p <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	6852	6960	
==>if (needs_build("$pmc.c", "$pmc.pmc")) {
        run("$PMC2C --c $pmc.pmc")
          or die "pmc2c code gene <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7063	7171	
==>if (needs_build("$pmc.c", "$pmc.pmc")) {
        run("$PMC2C --c $pmc.pmc")
          or die "pmc2c code gene <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6580	6730	
==>TO Max
      IF A$(I-1) > A$(I) THEN
         Exchange = TRUE
         B$=A$(I-1)
         A$(I-1)=A$(I)
         A$(I)=B$
         ' SWAP A$(I - 1), A <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16233	16383	
==>TO Max
      IF A$(I-1) > A$(I) THEN
         Exchange = TRUE
         B$=A$(I-1)
         A$(I-1)=A$(I)
         A$(I)=B$
         ' SWAP A$(I - 1), A <==
2	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1311	1509	
==>pl for the Inno Setup Script Compiler.

[Setup]
AppName=parrot
AppVerName=parrot $options{version}
AppPublisher=The Perl Foundation
AppPublisherURL=http://www.parrotcode.org/
AppSupportURL=http://www <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	4525	4622	
==>);
    $macros .= <<"EOM";
#define VTABLE_$entry->[1]($args) \\
    (pmc)->vtable->$entry->[1]($ar <==
2	/Users/nnunley/parrot/Configure.pl	724	941	
==>ells Configure.pl to output information about i<every> setting added or
changed.

=item C<--verbose-step={N|regex}>

Run C<--verbose=2> for step number C<N> or matching description.

=item C<--nomanicheck>

Tells Confi <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	1200	1297	
==>elf->new_item('', 'docs/mmd.pod'),
			$self->new_item('', 'docs/strings.pod'),
			$self->new_item( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Generate.pm	1296	1448	
==>: " (unreachable)");
}

##################################

use vars qw(%OUTPUT);
sub gather {
    foreach (keys %Regex::Generate::) {
	next unless /^out <==
2	/Users/nnunley/parrot/languages/urm/urm-old.pl	873	1016	
==>er @program;

my $pos = 1;
while (1) {
    my $line = $program[$pos -1];
    if ($pos > @program) {last;}
    print "($pos";
    foreach my $reg <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956811	957083	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_encoding",
                  "FLAGS" => ":base_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957715	957987	
==>" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "find_encoding",
                  "FLAGS" => ":base_ <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	3764	3897	
==>my $core_suffix;
	foreach $core_suffix (values %cores) {
		partial_link({}, $_ . "_ops$core_suffix") foreach (@oplibs);
	}
} 
elsif ($ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	1230	1396	
==>E};      }
sub name      { return shift->{NAME};      }
sub props     { return %{shift->{PROPS}};  }


#
# compile()
#

sub compile
{
  my $self     = shift;
  my $com <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10385	10500	
==>DERR "**Shift \$error token and go to state ".
#DBG>						 $$states[$$stack[-1][0]]{ACTIONS}{error}.
#DBG>						 " <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9917	10030	
==>DERR "**Shift \$error token and go to state ".
#DBG>						 $$states[$$stack[-1][0]]{ACTIONS}{error}.
#DBG>						 " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353673	353774	
==>_length(interpreter, s)) {\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354418	354519	
==>_length(interpreter, s)) {\n    PIO_putps(interpreter, PIO_STDOUT(interpreter), s);\n  }\n  {{+=2}};\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064035	1064274	
==>DE" => 1188,
                  "ARGS" => [
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 253 \"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	383010	383187	
==>",
                              "ic"
                            ],
                  "BODY" => "#line 455 \"src/ops/io.ops\"\n  if ({{\@1}}) {\n    if (PIO_seek(interpreter, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450091	450352	
==>{{\@1}} = {{\@2}}->vtable->absolute(interpreter, {{\@2}}, {{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         b <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	2550	2651	
==>=> $self->name } });
  $_->sax($handler) foreach $self->content;
  $handler->end_element({ Name => 'mo <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	6115	6239	
==>"$src -> $dest\n";
	next;
    }
    else {
	next unless -e $src;
	copy($src, $dest) or die "copy $src to $dest: $!\n";
	print <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2425	2527	
==>l for every single instruction. While we kinda find
	# basic blocks, we don't discover backward branche <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1003	1105	
==>l for every single instruction. While we kinda find
	# basic blocks, we don't discover backward branche <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	2535	2696	
==>)>

This tells you whether the file is executable.

=cut

sub is_executable
{
    my $self = shift;
    
    return $self->stat->mode & 0111;
}

=item C<modified_ <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	6391	6676	
==>tem C<files_with_suffix($suffix, $recursive, $ignore)>

Use this to get a list of the files with a particular suffix.

C<$recursive> and C<$ignore> function as specified above for C<files()>.

Note that if C<$suffix> is the empty string then this will return all
the files with no suffi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	690693	690992	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "thaw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691449	691748	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "thaw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "fu <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	7362	7581	
==>};
    delete $this->{'accept_directives'}{$d};
    DEBUG > 2 and print "OK, won't accept \"=$d\" as directive.\n";
  }
  return sort keys %{ $this->{'accept_directives'} } if wantarray;
  return
}

#@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/config/inter/make.pm	536	647	
==>$util is installed";
$prompt      = "Do you have a make utility like 'gmake' or 'make'?";
@args        = qw( mak <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	17337	17498	
==>ed    => Breed->new(name=>'short-hair', cross=>1),
                   or:  breed    => {name=>'short-hair', cross=>1},
                      );

    print "Once a <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1827	2049	
==>dren}[0]{type};
  } else {
    $node->{type} = 'INTEGER' if $node->{value} =~ /^[-]?\d+$/;
    $node->{type} = 'REAL'    if $node->{value} =~
                                 /^[-]?\d+\.(\d+([-+]?[eE]\d+)?)?/;
    $node->{t <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10932	11033	
==>$it =~ s/([^\x00-\xFF])/join '', map sprintf('%%%02X',$_), unpack 'C*', $1/eg;
        $it =~ s/([^\._ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	27651	27829	
==>o the opcode */\n    interpreter->current_args = this;\n    argc = SIG_ELEMS(signature);\n    {{+=argc + 2}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/languages/converter.pl	2209	2310	
==>ARGV[0];
my @lines;
my @rules;

open FILE,$file or die "Couldn't open '$file': $!";
@lines = <FILE>;
c <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	12894	13053	
==>n $c $cmt $o
EOC
	push @stack, [$c, $c, $o];
	return;
    }
    # params TODO
    if ($names{$c}) {
	$p = $names{$c};
	print <<"EOC";
	# lexical $n '$c' := $p $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	3694	3819	
==>const $type $name = $value");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handle <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11143	11247	
==>e, qq{\t.arg $_->[0]\t\t# $_->[0]};
	#}
	pop @$work;  # REmove startarg tag...
	return(scalar @args, @arg <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	8888	9050	
==>elf->diag(<<ERR) if defined $name and $name =~ /^[\d\s]+$/;
    You named your test '$name'.  You shouldn't use numbers for your test names.
    Very confusing.
ER <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	1672	1777	
==>r($target, $pattern)
        : Parrot::Test::PGE::_generate_pir_for($target, $pattern)
    );

    goto &P <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2195	2300	
==>r($target, $pattern)
        : Parrot::Test::PGE::_generate_pir_for($target, $pattern)
    );

    goto &P <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	4801	4938	
==>regex/;
    }
    return if $fail;
    for my $index ( 0 .. $#section ) {
        my ($name, $p, $ext) = fileparse($_, @{ $suffix{ $sectio <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	341	465	
==>your Parrot directory as the only\n",
        "argument. The XML file will be written to the standard\n",
        "output.\n\ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	19791	19932	
==>his is typically useful
localized:

    {
        local $Test::Builder::Level = 2;
        $Test->ok($test);
    }

=cut

sub level {
    my($ <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	3931	4061	
==>terp" context="string_interp" String="&quot;" />
          <RegExpr attribute="Identifier" context="#stay" String="[a-zA-Z_][\\w_]* <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9413	9521	
==>utput_fh'}} $self->{'Tagmap'}{"/$tagname"} || return;
    
    --$self->{DONT_WRAP} if $tagname eq 'Verbatim' <==
2	/Users/nnunley/parrot/config/init/hints/darwin.pm	1509	1623	
==>_EXT)',
        # This variable needs renaming to be more general
        # XXX ugly hack for rpath_lib in config/i <==
2	/Users/nnunley/parrot/config/inter/lex.pm	996	1122	
==>et_result('skipped');
        return $self;
    }

    my $prog;

    # precedence of sources for the program:
    # default -> <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	993	1119	
==>et_result('skipped');
        return $self;
    }

    my $prog;

    # precedence of sources for the program:
    # default -> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353292	353616	
==>,
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 412,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 200 \"src/ops/io <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	2392	2532	
==>arser object: $self\n";

  return $self;
}

# ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~

sub get_token {
  my <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20906	21112	
==>);
}

# ( [ [aaaaa|aaaaaaa]<2,3> ]<1,2> )
# 30,42,20,28,15,21,10,14

# R* ->         push 0
#         loop: R or next
#               push 1
#               goto loop
#         back: popint -> haveTries_flag <==
2	/Users/nnunley/parrot/tools/build/revision_c.pl	43	185	
==>ion.
# $Id: /parrot/tools/build/revision_c.pl 20350 2006-06-25T03:57:27.771662Z petdance  $

=head1 NAME

tools/build/revision_c.pl

=head1 DES <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	12895	13029	
==>PODSOURCE{IO};
    }
    $self->_init_fh_source($source);
  }
  # By here, $source is a FH.

  $self->{'source_fh'} = $source;
  
  my( <==
2	/Users/nnunley/parrot/config/init/defaults.pm	4868	5079	
==>(PERL) -MExtUtils::Command -e mkpath',
        touch     => '$(PERL) -MExtUtils::Command -e touch',
        chmod     => '$(PERL) -MExtUtils::Command -e ExtUtils::Command::chmod',
        ar        => $Config{ar} <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	2660	2797	
==>v_op) && (*jit_info->prev_op $1 $opcodes{$2})/g;
            $header .= $line;
            next;
        }
        # ignore comment and em <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3775	3888	
==>{$prm})
		or	croak("Unknow parameter '$prm'");
			ref($value) eq $$checklist{$prm}
		or	croak("Invalid value fo <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3581	3691	
==>{$prm})
		or	croak("Unknow parameter '$prm'");
			ref($value) eq $$checklist{$prm}
		or	croak("Invalid value fo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	37970	38180	
==>PE" => "inline",
                  "CODE" => 48,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 715 \"src/ops/core.ops\"\n  opco <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	2878	3060	
==>Therefore, we return one less than the number of blocks on
# the stack.
#

sub block_depth
{
  my $self = shift;

  return scalar($self->blocks) - 1;
}


#
# current_block()
#
# Retur <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	8376	8515	
==>urns that symbol's kind.

=cut

sub kind_of_ident
{
  my $self = shift; # Required: Jako::Construct::Block
  my $name = shift; # Required: s <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33233	33376	
==>esc = "<matchrule:$desc>" if $_[0]->{"matchrule"};
	return $desc;
}

sub callsyntax($$)
{
	if ($_[0]->{"matchrule"})
	{
		return "&{'$_[1]'.qq{$ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35755	35857	
==>esc = "<matchrule:$desc>" if $_[0]->{"matchrule"};
	return $desc;
}

sub callsyntax($$)
{
	if ($_[0]->{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849359	849876	
==>opn",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 964,
                  "ARGS" => [
                              "s",
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 83 \"src/ops/strin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714586	714678	
==>IO_STDOUT(interpreter);\n  if (s && string_length(interpreter, s)) {\n    if (PIO_softspace(i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	715509	715601	
==>IO_STDOUT(interpreter);\n  if (s && string_length(interpreter, s)) {\n    if (PIO_softspace(i <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Tokenizer.pm	143	306	
==>ter);
@EXPORT_OK = qw(tokenize);

use Data::Dumper;

sub tokenize {
  my $file = shift;
  my $text;
  my $tokref;
  my $token = '';

  open SOURCE,"<$file";
  while <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	8085	8188	
==>_, $file, $line);
    }
  }

  push @{$self->{TOKENS}}, Jako::Token->new_eof($file, $line);

#  $self->D <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365688	366111	
==>",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 428,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 303 \"src/ops/io.ops\"\n  if ({{\@2}} && <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	2545	2665	
==>my @args  = $self->args;

  if ($type) {
    $handler->start_element({ Name => 'sub', Attributes => { name => $name, type <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	702311	702834	
==>AGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 788,
                  "ARGS" => [
                              "p",
                              "i",
                              "ic",
                              "i"
                            ],
                  "BOD <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27267	27366	
==>, $mv, "pre-translate for $rule->{'name'}");

		# If we have PIR for the instruction, just take that <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34406	34505	
==>, $mv, "pre-translate for $rule->{'name'}");

		# If we have PIR for the instruction, just take that <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	47	145	
==>hm keeps track of the current stack depth and assigns to
# virtual registers numbered by depth. Thi <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	47	145	
==>hm keeps track of the current stack depth and assigns to
# virtual registers numbered by depth. Thi <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	1934	2080	
==>m C<write(@lines)>

Writes the specified lines to the file.

=cut

sub write
{
    my $self = shift;
    
    return unless @_;
    
    my $fh = F <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243952	244045	
==>G* l = VTABLE_get_string(interpreter, {{\@2}});\n  {{\@1}} = string_compare(interpreter, l, {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	244884	244977	
==>G* l = VTABLE_get_string(interpreter, {{\@2}});\n  {{\@1}} = string_compare(interpreter, l, {{ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	2637	2770	
==>rithmetic with right type $right_type...");

  $self->INTERNAL_ERROR("No type for dest!")  unless defined $dest_type;
  $self->INTERNA <==
2	/Users/nnunley/parrot/config/init/hints/vms.pm	302	489	
==>/NOANSI_ALIAS/include="./include"},
        perl    => "MCR $^X",
        exe     => "exe"
    );

    {
        local $^W;    # no warnings on redefinition

        *Parrot::Configure::St <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	1899	2116	
==>nterp)
{
    int pass;
    for (pass = 0; pass <= 1; ++pass) {
        /* first the PMC with the highest enum
         * this reduces MMD table resize action
         */
END_C

    print OUT "        Parrot_${_}_class_ <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	5480	5649	
==>c->splitpath( $_ ) )[1];
                         $dir =~ s!\.svn/$!!;
                         $dir => 1 
                       } keys %{ ExtUtils::Manifest::manifind() <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52066	52315	
==>P" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTART",
                  "NAME" => "trace",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => " <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25577	25789	
==>->require_open_brace;
 
      my $cond;

      if ($kind eq 'if') {
        $cond = Jako::Construct::Block::Conditional::If->new($block, $left, $op, $right);
      }
      elsif ($kind eq 'unless') {
        $cond <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	4289	4407	
==>ue = shift;

    $value =~ s/^\s+//;
    $value =~ s/\s+$//;

    return $value;
}

=item C<new(@files)>

Returns a new <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	459	547	
==>than that won't get an <a name="...">

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/lib/File/Which.pm	343	530	
==>^O eq 'dos')     or
                ($^O eq 'os2'));

# For Win32 systems, stores the extensions used for
# executable files
# For others, the empty string is used
# because 'perl' . '' eq <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	370	500	
==>ct::Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  return bless {
    TOKEN    => $token,
    CODE     => 'S',
    N <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	7315	7429	
==>a_safe();
    }

    return 1 if $dfa_safe_subexprs && $op->disjoint();

    # Insert better tests here

    return <==
2	/Users/nnunley/parrot/lib/Test/More.pm	27980	28181	
==>@this, \@that );

They may be deprecated in future versions.

=over

=item B<eq_array>

  my $is_eq = eq_array(\@this, \@that);

Checks if two arrays are equivalent.  This is a deep check, so
multi-leve <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	117404	117691	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	118142	118429	
==>bless( {
                  "JUMP" => 0,
                  "NAME" => "shr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64192	64632	
==>runinterp",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 84,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 981 \"src/ops/cor <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	89	180	
==>pm 20321 2006-06-20T20:02:00.179448Z bernhard  $

=pod

=head1 NAME

Parrot::Configure::Data <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	177	274	
==>y similar to the generated subs in Parrot::Test.
Perhaps someone can do a better job of delegation <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	275	372	
==>y similar to the generated subs in Parrot::Test.
Perhaps someone can do a better job of delegation <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	10566	10667	
==>hecks back in.
sub disable_implicit_checks {
    my ($self, $t, $ctx) = @_;
    return $self->maptree( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638746	638938	
==>> 714,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 128 \"src/ops/pmc.ops\"\n  opcode_t* arg_op;\n  PMC *sig <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	31864	31961	
==>is the complete
original text, and the prefix returned in the third element is an
empty string.

I <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	68171	68306	
==>on?");
		}
		elsif ($grammar =~ m/$OTHER/gco   )
		{
			_error("Untranslatable item encountered: \"$1\"",
			       $line);
			_hint("Di <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	1526	1660	
==>l-purpose parrot ops here
    $P0['dyadic:<']       =  <<"END_PIR"            # less than
    $I100 = islt %1, %2
    %1 = $I100
END_PI <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	853336	853431	
==>00 \"src/ops/string.ops\"\n  {{\@1}} = string_append(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	854118	854213	
==>00 \"src/ops/string.ops\"\n  {{\@1}} = string_append(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3 <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	10643	10743	
==>a', 'a', 'a', 'a', 'a', 'a', 'ae', 'c', 'e', 'e', 'e', 'e', 'i', 'i', 'i', 'i',
'd', 'n', 'o', 'o', ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1064110	1064284	
==>",
                              "kc"
                            ],
                  "BODY" => "#line 253 \"src/ops/var.ops\"\n    PMC *ns_root = interpreter->root_namespace <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	2872	2998	
==>h')
        
  .local int argc
  .local string pir
  pir = ''
  argc = elements argv
END_PIR
    
    return $code;
}

sub arg_ <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	1619	1825	
==>guages/${lang_fn}",
                "$self->{parrot} languages/${pir_fn}",
            );
        }
        elsif ( $lua_test eq 'lua2pir' ) {
            @test_prog = (
                "luac languages <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	7386	7567	
==>uction or pir is allowed in rule " .
                    "$rule->{'name'}\n";
            } else {
                $has_trans = 1;
            }
        }

		# typeinfo
        elsif <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	41849	42120	
==>ate over children
      next unless ref $treelet->[$i];  # text nodes are uninteresting
      if($treelet->[$i][0] eq 'L') {
        # SPECIAL STUFF for semi-processed L<>'s
        
        my $thing;
        foreach my $attrname ('section', 'to') {        
          if( <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	20464	20562	
==>ode eq 'UNARY_NOT' && $code[$code_l+1]->[2] eq 'JUMP_IF_FALSE') {
	$code_l++;
	print "\t\t\t# UNARY <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134966	135478	
==>ors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 166,
                  "ARGS" => [
                              "s",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 326 \"src/ops <==
2	/Users/nnunley/parrot/config/inter/charset.pm	551	705	
==>onf) = @_;

    my @charset = (
        sort
            map { m{\./src/charset/(.*)} } glob "./src/charset/*.c"
    );

    my $charset_list = $conf->opti <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	52954	53080	
==>ode) = extract_codeblock($grammar,'{',undef,'<');
					 $code;
				       } )
			{
				_parse("an autoscore specifier", $aftere <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	136753	137245	
==>ors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 168,
                  "ARGS" => [
                              "s",
                              "s",
                              "sc"
                            ],
                  "BODY" => <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	1479	1613	
==>ibname and will initialize all PMCs in the library.

=back

=head2 Internals

To see the internal data structures please run:

    % pe <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	44740	44853	
==>S_to_nbsp { #  a recursive function
  # Sanely assumes that the top node in the excursion won't be an S node.
  my <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	6207	6340	
==>ined $classes{$name} ){
                if ( $CHECK_CLASS_MEMBERSHIP ) {
                    $out .= "    croak '$name argument is wro <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	8885	8995	
==>d optionally
a class name, C<struct> creates a Perl 5 class that implements
a "struct-like" data structure.

Th <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	68227	68354	
==>_error("Untranslatable item encountered: \"$1\"",
			       $line);
			_hint("Did you misspell \"$1\"
			           or forget to <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	690564	690960	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "thaw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	691320	691716	
==>[
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "thaw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	38188	38432	
==>OTOS => {
			'tableconstructor' => 46,
			'args' => 135,
			'key' => 136
		}
	},
	{#State 149
		DEFAULT => -90
	},
	{#State 150
		DEFAULT => -49
	},
	{#State 151
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			" <==
2	/Users/nnunley/parrot/lib/Test/More.pm	21118	21233	
==>e avoided when no_plan is in use.
        _carp "skip() needs to know \$how_many tests are in the block"
          u <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	3815	3955	
==>input files:
#

my $ops;
if ($core_flag) {
    $ops = Parrot::OpsFile->new( [ "src/ops/$file" ], $nolines_flag );
    $ops->{OPS} = $Parrot:: <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	918	1049	
==>age, $pos) = @_;
	_failmsg $message, $pos if $message;
	return ("",$$textref,"") if $wantarray;
	return undef;
}

sub _succeed
{
	$@ <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	3768	3894	
==>btaste eq 'Film,     'new() works' );

    ok( $btaste->Title      eq 'Bad Taste',     'Title() get'    );
    ok( $btaste->Dir <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888672	889018	
==>" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1005, <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	702	818	
==>ako::Construct::Expression::Value::Identifier');
  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa( <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	6425	6678	
==>' => 'define',
             'i_sysuio' => 'define',
             'i_sysun' => 'define',
             'i_sysutsname' => 'define',
             'i_sysvfs' => undef,
             'i_syswait' => 'define',
             'i_termio' => undef,
             'i_ter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129275	129519	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130013	130257	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i" <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	20025	20143	
==>evel;
}


=item B<use_numbers>

    $Test->use_numbers($on_or_off);

Whether or not the test should output numbers.  Th <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	6415	6547	
==>i_systypes' => 'define',
             'i_sysuio' => 'define',
             'i_sysun' => 'define',
             'i_sysutsname' => 'def <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	324	449	
==>Test::per_test( '.pir_out', $count );
}

sub get_test_prog {
    my $self = shift;
    my ( $path_to_parrot, $path_to_language <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2424	2509	
==>xamples/mops/mops.c>,
F<examples/mops/mops.cs>,
F<examples/mops/mops.il>,
F<examples/m <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	2424	2509	
==>xamples/mops/mops.c>,
F<examples/mops/mops.cs>,
F<examples/mops/mops.il>,
F<examples/m <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	1834	1940	
==>ations}}) {
		if (exists $main::common{$var}) {
			push(@saves, $var);
		}
	}
	if (@saves) {
		print CODE q <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3125	3231	
==>ations}}) {
		if (exists $main::common{$var}) {
			push(@saves, $var);
		}
	}
	if (@saves) {
		print CODE q <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	775	891	
==>-
# Set up some constants:

BEGIN {
  if(defined &ASCII)    { }
  elsif(chr(65) eq 'A') { *ASCII = sub () {1}  }
  el <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019114	1019404	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "localtime",
                  "FLAGS" => "",
                  "ARGDIRS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020044	1020334	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "localtime",
                  "FLAGS" => "",
                  "ARGDIRS" <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	380	523	
==>ort() must be directory, not file");
        }
        # add to the @*INC, but do not allow duplicates
        @*INC.unshift($path) unless $path <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10315	10445	
==>e);
    }

    my $output = _slurp('./test.out');

    return $output;
}

=item C<cc_run_capture()>

Same as C<cc_run()> except tha <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	743	864	
==>file,
    LINE  => $ident->line
  }, $class;

  $block->push_content($self);

  return $self;
}


#
# ACCESSOR:
#

sub ide <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584647	584741	
==>g( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, NULL);\n  {{= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585722	585816	
==>g( interpreter, {{\@2}} ));\n  }\n  {{\@1}} = VTABLE_subclass(interpreter, class, NULL);\n  {{= <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	395	503	
==>);
    $data->add($delimiter, $key1 => $value1, $key2 => $value2);
    my @keys = $data->keys;
    my $serial <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	2790	2980	
==>) =~ s/\.pmc/\$(O)/g;
    (my $TEMP_pmc_str = $pmc_list) =~ s/\.pmc/\.str/g;

    # calls to pmc2c.pl for src/pmc/Makefile
    my $TEMP_pmc_build = <<"E_NOTE";

# the following part of the Ma <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	9545	9842	
==>rgs}->[3] = $self->add_checks($R, int($guarantee), $follow_min);
        return $t;
    } else {
        # If we're scanning, we'll eat up any possible guarantee.
        $guarantee = 0 if $type eq 'scan';

        # Default for everything else is to pass the same guarantee
        # and follow_mi <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	5626	5779	
==>m = 0;
    my $sig = '';

    if (defined $args and not $args =~ m/^\s*$/ ) {
        foreach (split //, $args) {
            die "Invalid argument signat <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	10357	10531	
==>ind eq 'until') {
        $loop = Jako::Construct::Block::Loop::Until->new($block, $prefix, $left, $op, $right);
      }
      else {
        $self->INTERNAL_ERROR("Unexpected <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	5259	5442	
==>= 0 TO 6
520 READ A$(I), U(I)
    print A$(I);
530 NEXT I
540 DATA ".",0,"P",100,"T",500,"F",350
550 DATA "C",325,"D",900,"R",20000

' Read/data  Hello World -
10 read a$
print a$
if a <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	873	977	
==>ied as strings
and without leading/trailing pattern delimiters.

(Hint: if you try using qr// for the $pa <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2971	3075	
==>ied as strings
and without leading/trailing pattern delimiters.

(Hint: if you try using qr// for the $pa <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3	105	
==>usr/bin/perl -w
# Copyright (C) 2004, The Perl Foundation.
# $Id: /parrot/tools/dev/parrot_api.pl 19607 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1354	1492	
==>right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $dest_ident = $self->des <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1234	1372	
==>right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $dest_ident = $self->des <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	616	777	
==>math.pir"
.include "languages/lua/lib/luaio.pir"
.include "languages/lua/lib/luaos.pir"
.include "languages/lua/lib/luadebug.pir"

.sub __start :main
#  pri <==
2	/Users/nnunley/parrot/config/init/hints/dec_osf.pm	568	720	
==>y $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }
    if ($libs !~ /-laio/) {
        $libs .= ' - <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	270	418	
==>y $libs = $conf->data->get('libs');
    if ($libs !~ /-lpthread/) {
        $libs .= ' -lpthread';
    }
    if ($libs !~ /-lrt\b/) {
        $libs . <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	95	185	
==>opyright (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/tools/dev/run_indent.pl 19607 2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	776801	777081	
==>,
                  "CODE" => 877,
                  "ARGS" => [
                              "p",
                              "ki",
                              "n"
                            ],
                  "BODY" => "#line 382 \"src/ops/set.ops\"\n    {{\@1}}->vtable- <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4049	4156	
==>files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert lib-GROU <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4153	4260	
==>files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    # Convert lib-GROU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	959972	960143	
==>,
                              "ic"
                            ],
                  "BODY" => "#line 590 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_encoding( <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	8644	8733	
==>_info->cur_op[i])
#define CONST(i) interpreter->code->const_table->constants[jit_info->cur <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1010	1142	
==>right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $left  = $self->le <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/New.pm	1018	1150	
==>right { return shift->{RIGHT}; }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $left  = $self->le <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	10193	10379	
==>'encoding'};
      DEBUG > 1 and print $enc_error;
    }
  } elsif (
    # OK, let's turn on the encoding
    do {
      DEBUG > 1 and print " Setting encoding to $e\n";
      $self->{'en <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	12165	12340	
==>)
    s/(\w+)             # capture OtherClass
      \.SUPER           # Macro: SUPER
      \(\s*(.*?)\)      # capture argument list
     /"Parrot_${1}_$method(" . full_argume <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	432119	432477	
==>],
                  "TYPE" => "inline",
                  "CODE" => 496,
                  "ARGS" => [
                              "ic",
                              "p",
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 84 \"src/ops/math.ops\"\n  {{\@2}} = mmd_dispatch <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	410997	411100	
==>ne 552 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_send(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411890	411993	
==>ne 552 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_send(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	59073	59285	
==>ub
#line 553 "Lua\lua51.yp"
{
            [
                BuildParam( $_[0], $_[1] ),
            ];
        }
	],
	[#Rule 104
		 'tableconstructor', 3,
sub
#line 562 "Lua\lua51.yp"
{
            Bu <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	353	468	
==>ident>' ],
    ],
    "simple subrules test");
  p6rule_isnt('abc', '^bc', 'BOS bc');
  p6rule_like('abcdef', 'bcd', <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	33911	34077	
==>> 74,
			"~=" => 73,
			"+" => 75,
			"/" => 82,
			"," => 167,
			"%" => 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			" <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	1084	1170	
==>ction::Config;
use Parrot::Docs::Section::Tests;
use Parrot::Docs::Section::EditorPlugi <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	2392	2555	
==>API is not meant to be public, considering making it private
(file static, and prefix it with C<S_>, but still do have a prototype
for it).

=head2 Data is not an A <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1103	1200	
==>ead2 Methods

=head3 Constructors

=over 4

=item * C<new()>

Basic constructor.

Accepts no argum <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	640	737	
==>ead2 Methods

=head3 Constructors

=over 4

=item * C<new()>

Basic constructor.

Accepts no argum <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	3661	3833	
==>elf->c_item(
                '', 
                'pairs' => ['stacks'], 
                'sources' => ['stack_common']
            ),
            $self->c_header_item('', ' <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	419	544	
==>this is ok\n"
    end
    CODE
    this is ok
    OUTPUT

=head1 DESCRIPTION

This module provides various Parrot-specific tes <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189734	189821	
==>c/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) < {{\@2}}) {\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190675	190762	
==>c/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_integer(interpreter, {{\@1}}) < {{\@2}}) {\n <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	7645	8094	
==>rn {
	  VERSION       => $1,
	  DEVEL         => $2,
      revision      => $3,
	  branch		=> $4,
	  cpuarch       => $5,
      osname        => $6,
      cc            => $7,
      runcore       => $8,
      timestamp     => [
        $9,
        do { 
          my $str = localtime($9)->strftime("%d %b %Y %H:%M %a");
          $str =~ s/ /&nbsp;/g;
          # hack, to make the timestamps not break so the smoke reports look
          # good even <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	7982	8176	
==>name
{
    my $self = shift;
    my $path = $self->path_for_file_with_name(shift) || return;
    
    return $self->file_with_path($path);
}

=item C<existing_directory_with_name($name)>

Returns <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	2594	2762	
==>";
    }

    sub visitKeyedGetOp {
        my $self = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{res <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	2974	3292	
==>{class}::$name'}";
        }
        elsif( $base_type eq 'ARRAY' ){
            $elem = "[$cnt]";
            ++$cnt;
            $cmt = " # $name";
        }
        if( $type =~ /^\*(.)/ ){
            $refs{$name}++;
            $type = $1;
        }
        my $init = "defined(\$init{'$name'}) ? \$init{'$name'} : <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	7142	7432	
==>my @args      = ( 'interp', 'pmc' );

        while (my ($type, $name) = splice( @params, 0, 2 ))
        {
           eval
           {
               push @sig, find_type( $type ) . ' ' . $name;
               push @args, $name;
            };
        }

        next if $@;

        my $s <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9380	9504	
==>ent name"
        if $new_code =~
          m/[\x00-\x2C\x2F\x39\x3B-\x40\x5B-\x5E\x60\x7B-\x7F]/
            # Characters un <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10644	10768	
==>ent name"
        if $new_code =~
          m/[\x00-\x2C\x2F\x39\x3B-\x40\x5B-\x5E\x60\x7B-\x7F]/
            # Characters un <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	971	1075	
==>/submissions.pod on how to recreate this file after SVN
# has been told about new generated files.
# 
# I <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3826	3929	
==>/submissions.pod on how to recreate this file after SVN
# has been told about new generated files.
#
# I <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	345	468	
==>all;

use Carp;

use base qw(Jako::Construct::Expression);

sub new
{
  my $class = shift;
  my ($block, $dest, $ident, @arg <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1037259	1037694	
==>=> "store_global",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1159,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 115 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953835	954121	
==>g",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1073,
                  "ARGS" <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	4344	4491	
==>w -falign-functions=16 ",

            # -Wsequence-point is part of -Wall
            # -Wfloat-equal may not be what we want
            # We shou <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	440	575	
==>ional::Else;
use Jako::Construct::Block::Conditional::If;
use Jako::Construct::Block::Conditional::Unless;
use Jako::Construct::Block::F <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561870	561964	
==>nterpreter, {{\@2}}, {{\@3}});\n  if (!{{\@1}}) {\n    real_exception(interpreter, next, METH_N <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562954	563048	
==>nterpreter, {{\@2}}, {{\@3}});\n  if (!{{\@1}}) {\n    real_exception(interpreter, next, METH_N <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	16126	16241	
==>"and"
	push P9, "OP"
	push P9, ">="
	push P9, "OP"
	P0= P5
	bsr RUNTIME_PUSH
	pop P0, P13
	bsr RUNTIME_PUSH
	push P9 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	2343	2456	
==>em($text, grep {defined} @contents);
}

=item C<new()>

Returns a new section.

=cut

sub new
{
    my $self = shi <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	55317	55414	
==>ular expression, or string).
The key of that element is the name of a class into which the success <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	7871	8046	
==>rentname
    $const->{parentname} = $self->{class};

}

=item C<init($class)>

Initializes the instance. C<$class> is its class.

=cut

sub init() {
    my ($self, $class) = @_ <==
2	/Users/nnunley/parrot/config/auto/pack.pm	579	690	
==>.
    # The ! modifier only works for perl 5.6.x or greater.
    #

    my $intsize  = $conf->data->get('intsize <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1747	1915	
==>IRS" => [],
                  "TYPE" => "inline",
                  "CODE" => 0,
                  "ARGS" => [],
                  "BODY" => "#line 50 \"src/ops/core.ops <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649068	649308	
==>ops/pmc.ops\"\n    {{\@1}} = pmc_type_p(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649831	650071	
==>ops/pmc.ops\"\n    {{\@1}} = pmc_type_p(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10567	10697	
==>}, undef ]);

    }

    #never reached
	croak("Error in driver logic. Please, report it as a BUG");

}#_Parse
#DO NOT remo <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10095	10217	
==>}, undef ]);

    }

    #never reached
	croak("Error in driver logic. Please, report it as a BUG");

}#_Parse
#DO NOT remo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78237	78623	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlvar",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79757	80143	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "dlvar",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  " <==
2	/Users/nnunley/parrot/config/auto/gc.pm	2439	2572	
==>/resources.c
EOF
            TEMP_gc_o => "\$(SRC_DIR)/resources\$(O)",
            gc_flag   => '',
        );
    }
    print(" ($gc <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	9737	10162	
==>, $type;
                    push @argdirs, 'io';
                }
                else
                {
                    push @temp, $type;
                    push @argdirs, 'o';
                }
            }

            @args = @temp;

            next;
        }

        #
        # Handle end-of-op:
        #
        # We stash the accumulated body of source code in the Parrot::Op, push the
        # Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	540123	540435	
==>ine",
                  "CODE" => 625,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 1022 \"src/ops/math.ops\"\n INTVAL p = 0;\n INTVAL a = {{\@2}} < 0 ? -{{\@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	1030	1149	
==>ead2' => "\n<h2>",  #  ''
  'head3' => "\n<h3>",  #  ''
  'head4' => "\n<h4>",  #  ''
  '/head1' => "</a></h1>\n",
  '/h <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	602	735	
==>]' }

# JUNK:

sub _esc {
  return '' unless @_;
  my @out;
  foreach my $in (@_) {
    push @out, '"' . $in . '"';
    $out[-1] =~ s/ <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	3022	3175	
==>flags => 'libparrot$(A)');
        }

        # 'link' needs to be link.exe, not cl.exe.
        # This makes 'link' and 'ld' the same.
        $conf->dat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	36345	36584	
==>on(interpreter, eh);\n  {{+=2}};\n",
                  "LABELS" => [
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	2676	2788	
==>use strict;

# When run from the makefile, which is probably the only time this
# script will ever be used, all o <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	4073	4216	
==>cur_opcode < (opcode_t)${bs}op_lib.op_count) {
		*cur_opcode = CORE_OPS_wrapper__;
		continue;
	    }
	    internal_exception(1, "illegal opcode <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	3485	3701	
==>le(<>) {
    chomp;

    s/\#.*//; # Ignore comments
    next if /^\s*$/; # Skip blank lines

    my ($src, $meta, $dest) = split(/\s+/, $_);
    $dest ||= $src;

    if ($seen{$src}++) {
        print STDERR "$ARGV:$ <==
2	/Users/nnunley/parrot/languages/regex/test.pl	544	660	
==>$msg, $status) = @_;
    $status = 1 if ! defined $status;

    print $msg . "\n" if $msg;

    print <<"END";
Usage: <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	493	601	
==>y ( $count, $options ) = @_;

    my $lang_fn = Parrot::Test::per_test( '.bc', $count );
    my $pir_fn  = $o <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Config.pm	39	221	
==>on.
# $Id: /parrot/lib/Parrot/Docs/Section/Config.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Section::Config - Configuration documentation section

= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	172268	172370	
==>ops\"\n  if (0 != string_equal(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	173246	173348	
==>ops\"\n  if (0 != string_equal(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	151040	151134	
==>ops\"\n  if (0 == string_equal(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	152018	152112	
==>ops\"\n  if (0 == string_equal(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8814	8929	
==>dim a(max)
for i = 0 to 100
	b=rnd*max+1
	a(b)=a(b)+1
next i
for i = 1 to max
	print ,
	for j = 0 to a(i)
		print "* <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	20055	20170	
==>dim a(max)
for i = 0 to 100
	b=rnd*max+1
	a(b)=a(b)+1
next i
for i = 1 to max
	print ,
	for j = 0 to a(i)
		print "* <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	619408	619581	
==>^~b) >= 0) {\n\t    if (lt == enum_class_Integer)\n\t\tPMC_int_val(left) = c;\n\t    else\n\t\tVTABLE_set_integer_native(interpreter, left, c);\n\t}\n\telse {\n\t    if (PARR <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	587	727	
==>OD of the stuff we're parsing.

=head1 COMMAND-LINE OPTIONS

=over 4

=item C<--verbose>

Verbose status along the way.

=back

=head1 COMMAN <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	6108	6217	
==>ng; 
die "$ME: --type=$Type unknown\n"
    if defined $Type && $Type ne '' && !exists $Type{$Type};

my $TypeL <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	29686	29782	
==>bstring is not returned.

=head2 A note about prefixes

Prefix patterns are matched without any t <==
2	/Users/nnunley/parrot/config/auto/jit.pm	2774	2943	
==>)');
    } else {
        $conf->data->set(asmfun_o => '');
    }

    $jitcapable = $conf->options->get('jitcapable')
        if defined $conf->options->get('jitcapable' <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	1983	2143	
==>ame, $args, $argdirs, $labels, $flags)>

Allocates a new bodyless op. A body must be provided eventually for the
op to be usable.

C<$code> is the integer identi <==
2	/Users/nnunley/parrot/config/auto/msvc.pm	1588	1694	
==>on = "$major.$minor";
    print " (yep: $msvcversion )" if $verbose;
    $self->set_result('yes');

    $co <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	5397	5528	
==>ons\n";
}

if ($Version) {
    show_version();
    exit(0);
}

if ($Help) {
    show_help();
    exit(0);
}

unless (@ARGV) {
    sh <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033275	1033374	
==>x_name = {{\@1}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n    if (P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034373	1034472	
==>x_name = {{\@1}};\n    PMC * const lex_pad = Parrot_find_pad(interpreter, lex_name, ctx);\n    if (P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	296115	296232	
==>\n  else\n    {{\@1}} = mmd_dispatch_i_pp(interpreter, {{\@2}}, {{\@3}}, MMD_EQ);\n  {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	1570	1736	
==><<SHUTDOWN;
	#
	# ###################
	# Program Termination
	# ###################

SHUTDOWN
}

use vars qw( %functions );
use vars qw( %usertypes );
use vars qw( $fu <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5054	5180	
==>eturn 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  my $block = $self->block;
  my $dest  = $self- <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3117	3243	
==>eturn 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  my $block = $self->block;
  my $dest  = $self- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1027379	1027608	
==>LS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT| <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	9	108	
==>al.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is subje <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	447777	447882	
==>\"\n  if ({{\@2}} < 0) {\n    {{\@1}} = - (INTVAL){{\@2}};\n  }\n  else {\n    {{\@1}} = (INTVAL){{\@2}};\ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	34289	34627	
==>xact_p,
  'inexact?'         => \&_op_inexact_p,
  '='                => \&_op_eq,
  '<'                => \&_op_lt,
  '>'                => \&_op_gt,
  '<='               => \&_op_leq,
  '>='               => \&_op_geq,
  'zero?'            => \&_op_zero_p,
  'positive?'        => \&_op_positive_p,
  'negative?'        => \&_op_negative <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19174	19270	
==>check => aop('lt', [ $matchcount, $min, $local_back ]),
      $next => $self->op_save_rxlocals($o <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20764	20860	
==>check => aop('lt', [ $matchcount, $min, $local_back ]),
      $next => $self->op_save_rxlocals($o <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	1811	1926	
==>$parser->YYData->{scope} = [];
    unshift @{ $parser->YYData->{scopef} }, $parser->YYData->{lex_num};
    $parser <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	35401	35556	
==>ONS => {
			"-" => 72,
			"%" => 76,
			"*" => 80,
			".." => 71,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -68
	},
	{#State 132 <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	44188	44291	
==>g modifiers),

=item [1]

the remainder of the input text,

=item [2]

the prefix substring (if any),

= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028127	1028218	
==>EEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_event(interpreter, (FLOA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028978	1029069	
==>EEP,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_event(interpreter, (FLOA <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	667	787	
==>rp;
    Carp::croak("Usage:\n use Pod::Simple::Debug (NUMVAL)\nor"
                    . "\n use Pod::Simple::Debug (\\\$ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	486	604	
==>rp;
      Carp::croak("Usage:\n use Pod::Simple::Debug (NUMVAL)\nor"
                . "\n use Pod::Simple::Debug (\\\$ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	20136	20273	
==>);
            $func = $method->{mmd};
            # dynamic PMCs need the runtime type
            # which is passed in entry to class_in <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	10862	10965	
==>->isa("Jako::Construct::Block");
  confess "No content!"      unless @_;
  confess "Illegal content!" if <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	35238	35387	
==>e stypes
    ss_propogate[sp_dest] = ss
    goto SS_PROP_LOOP_switch
SS_PROP_LOOP_EXIT_switch:
PIRCODE
        } else {
            $pir .= <<'PIRCODE <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	14072	14212	
==>ase)=($s->{jump}, $s->{incase});
	
	if ($syms[NEXT] eq "else") {
		feedme();
		print CODE "\t goto CASE_${jump}_FIN\n";
		print CODE "CASE_${ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22416	22547	
==>f $title =~ m<^\s*$>; # make sure it's contentful!
      last;

    } elsif ($pattern =~ m{<head(\d)>(.+)</head\d>$}
      and !( $1 <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	5965	6127	
==>ine (the #line directive) and we're
    # about to set the number for the next line. So + 1 again.
    return $self->line_directive(1 + 1 + count_newlines($output) <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	4079	4170	
==>sing = $parser->{fulltextlen}-length(${$_[0]->{text}})-$_[0]->{prev}+1;
	substr($parser->{fu <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	873	969	
==>don't pass a C<compiler> argument pair, the harness will run the tests
with C<perl>.  If you I<do <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2173	2315	
==>Undef', 'apply_CALL'],
  ['',            'set', 'P8', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7155	7281	
==>" x (@stack-1);
            if ($1 ne $indent) {
                error($file, $line, "Improper indenting for \"$_\"\n(should be <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7462	7588	
==>" x (@stack-1);
            if ($1 ne $indent) {
                error($file, $line, "Improper indenting for \"$_\"\n(should be <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1056	1170	
==>NAME );

$VERSION = '1.05';
$COMPATIBLE = '0.07';
$FILENAME=__FILE__;

use Carp;

#Known parameters, all st <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1022	1128	
==>NAME );

$VERSION = '1.05';
$COMPATIBLE = '0.07';
$FILENAME=__FILE__;

use Carp;

#Known parameters, all st <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	16070	16234	
==>e for each method found in the
vtable. This is used to determine all of the 'default' methods
from the F<vtable.dump>.

=cut

sub add_defaulted {
    my ($class, $vt <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4104	4187	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

__PACKAGE__->_accessorize(
 'doc_l <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	14128	14415	
==>m)>

Writes an HTML version of the file specified by C<$rel_path> in
C<$source> to the equivalent location in C<$target>.

=cut

sub write_html
{
    my $self = shift;
    my $source = shift;
    my $target = shift;
    my $rel_path = shift;
    my $item = shift;
    my $file = $source-> <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	3475	3648	
==>s) {
        next unless $arg->{type};
        
        $types{ $arg->{type} } = 1;
    }
    
    # helper conversion subroutines
    my %helpers = (
        # type     subr <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	33494	33606	
==>r/whatever
  'null?'    => \&_op_null_p,
  'list?'    => \&_op_list_p,
  'list'     => \&_op_list,
  'length'   = <==
2	/Users/nnunley/parrot/lib/Test/More.pm	34475	34582	
==>ds compatibility

Test::More works with Perls as old as 5.004_05.


=item Overloaded objects

String overloa <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	350	447	
==>ster addressing
and C C<goto> run loop.

=head2 Instance Methods

=over 4

=cut

package Parrot::O <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2791	2935	
==>,
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P13', 'P16[0]'],
  [' <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	4284	4457	
==>ta;
 $hash = md5_hex $data;
 $hash = md5_base64 $data;


 # OO style
 use Digest::MD5;

 $ctx = Digest::MD5->new;

 $ctx->add($data);
 $ctx->addfile(*FILE);

 $digest = $ctx- <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1421	1523	
==>{
    my($class)=shift;
	my($errst,$nberr,$token,$value,$check,$dotpos);
    my($self)={ ERROR => \& <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1373	1472	
==>{
    my($class)=shift;
	my($errst,$nberr,$token,$value,$check,$dotpos);
    my($self)={ ERROR => \& <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	531498	532009	
==>" => "cosh",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 614,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 864 \"src/ops/math.ops\"\n  {{\@1}} = cosh((FLOATVAL){{\@2}});\n  {{+=3}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133924	134223	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":ba <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134705	135004	
==>{{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":ba <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	3663	3817	
==>else {
    $compiler->emit("  .const $type $name = $value");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $hand <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	3060	3198	
==>bol value!" unless ref $sym and $sym->isa("Jako::Symbol");
  confess "Extra arguments!" if @_;

  die "Redefinition of symbol '$name', whic <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2995	3101	
==>ack in subroutine one"
   RETURN Label1
Sub2:
   PRINT "3 in subroutine two"
   RETURN Label2   'Cannot ret <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16962	17068	
==>ack in subroutine one"
   RETURN Label1
Sub2:
   PRINT "3 in subroutine two"
   RETURN Label2   'Cannot ret <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	3155	3384	
==>bly of <?([\w:]+)>?/) {
	push @code, [ 0, 0, "New_func", 0, $1, undef ];
	return;
    }
    if ($l =~ />>\s+(\d+)/) {
	push @code, [ 0, $1, "Label", $1, "", undef ];
	$l =~ s/>>//;
    }
    my $source = undef;
    if ($l =~ /^\s* <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	14466	14604	
==>extref,'\s*') ||
		    _match_quotelike($textref,'\s*',$patvalid,$patvalid) )
		{
			$patvalid = 0;
			next;
		}


		# NEED TO COVER MANY M <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	24599	24751	
==>$fh = $file_or_fh;
    }
    else {
        $fh = do { local *FH };
        open $fh, ">$file_or_fh" or 
            die "Can't open test output log $fil <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015062	1015248	
==>n  {{\@1}} = string_make(interpreter, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015886	1016072	
==>n  {{\@1}} = string_make(interpreter, tmp, strlen(tmp), \"ascii\", 0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	799	1010	
==>ta->{_G},
        );
        push @opcodes, new FindGlobalOp( $parser,
            'prolog' => 1,
            'result' => $parser->YYData->{_G},
            'arg1'   => '_G',
        );
    }
    return [ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	1122	1225	
==>= shift;
  my ($handler) = @_;
  
  $handler->start_element({ Name => 'label', Attributes => { name => $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	154432	154851	
==>"ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 187,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic"
                            ],
                  " <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	994	1106	
==>('cpuarch') =~ /sun4|sparc64/) {

        # CFLAGS entries must be left-aligned.
        print CFLAGS <<"EOF";
sr <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8031	8167	
==>"COMM") and $singleif) {

		$_=pop @ifstack;
		if ($_ < 0 ) {
			# print "Else was done, skipping...\n";
		} else {
			push @{$code{$seg} <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	16378	16517	
==>D2FPTR(PMC_struct_val(self));
    $return_assign ($ret_type)(*pointer)();
    $final_assign
    $extra_postamble
}
HEADER
    }

    my ($ke <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	20498	20783	
==>le );
        while (<$fh>) {
            if (/^(?:extern\s+)?\w+\*?\s+\*?(\w+)\s*\([^)]+\)\s*;/) {
                push @exports, $1;
            }
        }
        close $fh;

        # Locate .c file and add everything it exports to a list.
        $file = find_file($include, "$pmc <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	20831	21026	
==>le );
        while (<$fh>) {
            if (/^(?:extern\s+)?\w+\*?\s+\*?(\w+)\s*\([^)]+\)\s*;/) {
                push @exports, $1;
            }
        }
        close $fh;

        # If it's <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1348	1512	
==>'t include anything here, which
 * could pull in some globals
 */
void Parrot_set_config_hash(void);  

void
Parrot_set_config_hash_internal (const unsigned char* pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48499	48592	
==>"#line 785 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_B <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49289	49382	
==>"#line 785 \"src/ops/core.ops\"\n  if ({{\@1}} != 0) { Parrot_set_flag(interpreter,   PARROT_B <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2399	2614	
==>:Zlib } or
    *Compress::Zlib::memGunzip = sub { return };
  eval { require Compress::Bzip2 } or
    *Compress::Bzip2::memBunzip = sub { return };
}

sub add_smoke {
  my $CGI = shift;
  my $html = $CGI->param("smok <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9817	9920	
==>ue->new($block, $self->require_value);
      my $op    = $self->require_infix_rel->text;
      my $right <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25353	25456	
==>ue->new($block, $self->require_value);
      my $op    = $self->require_infix_rel->text;
      my $right <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	374	528	
==>~~~~~~~~~~~~~

sub _handle_element_start {
  print {$_[0]{'output_fh'}} "\n"  unless $_[1] =~ m/^[A-Z]$/s;
  return;
}

sub _handle_text {
  if( chr(65) eq <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63157	63261	
==>petition",$line,"$code$argcode($1)");

						!$matchrule and $rule and $rule->addcall($name);

						_che <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63878	63982	
==>petition",$line,"$code$argcode($1)");

						!$matchrule and $rule and $rule->addcall($name);

						_che <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	45	153	
==>ns for Perl 6 Grammar Engine

=head1 SYNOPSIS

In a .t file:

  use Parrot::Test tests => 2;
  use Parrot::Te <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	2152	2303	
==>is C<Parrot::Pmc2c>.

=cut

my %special_class_name = map {($_,1)}
    qw( Ref default Null delegate SharedRef deleg_pmc );

sub class_name {
    my ($se <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27157	27271	
==>.= "### end pre_op\n";

        # Add pre-translate code, if any.
        $pir .= sub_meta($pre_translate_code, $mv <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	819499	819604	
==>" => "#line 79 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n    stack_entry(interpreter, CONTEX <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820459	820564	
==>" => "#line 79 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n    stack_entry(interpreter, CONTEX <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	32732	32842	
==>eturn value: [}
						. $_tok . q{])},
						  Parse::RecDescent::_tracefirst($text))
							if defined $::RD_T <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	22687	22795	
==>eturn value: [}
						. $_tok . q{])},
						Parse::RecDescent::_tracefirst($text))
							if defined $::RD_T <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1481	1628	
==>ko::Construct::Statement::Return;


#
# new()
#

sub new
{
  my $class = shift;

  my $root = Jako::Construct::Block::File->new(
    undef,  # No pa <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	606	751	
==>um_of_tests_planned = $number_of_tests;
    say "1..$number_of_tests";
}

sub force_todo (*@todo_tests) returns Void is export {
     $Test::force <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	70864	70976	
==>"rules"};
	my $rule;
	foreach $rule ( values %$rules )
	{
		next if ! $rule->{"changed"};

	# CHECK FOR UNDEFINED <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	4694	4799	
==>$self->type) {
      $compiler->emit("  .local " . $self->type . " __result");
      $compiler->emit("  __ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	750	894	
==>en->text,
    SCOPE  => $block->scope_of_ident($token->text),
    ACCESS => $block->access_of_ident($token->text),
    TYPE   => $block->type_of_ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	64132	64272	
==>osing tag>

C<extract_tagged> reached the end of the text without finding a closing tag
to match the original opening tag (and the failure mo <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	10288	10387	
==>umber of tests which are
expected to run. This should be specified at the very top of your tests.

- <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	507	605	
==>e:\n";
	$_=$_[0];
	s/^(.{1,50})(\S+)\s+(.*)/\t$1$2\n\t$3/;
	print;
	exit 1;
};

getopts('d', \%opti <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	27835	28001	
==>( $op->{result} eq 'break' ) {
                $op->{result} = $l_break;
            }
        }
    }
    push @opcodes, @{$block};
    my $cond = get_cond( $pa <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	3142	3242	
==>f)
string scalar.  So you can test C<ref($node)> to see whather you have
an element node or just a te <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	944	1061	
==>r->YYData->{verbose_warning}
        and $parser->YYData->{verbose_warning} );
}

sub Info {
    my $parser = shi <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	3266	3383	
==>cs::Section::Compilers>

=item C<Parrot::Docs::Section::Languages>

=item C<Parrot::Docs::Section::Config>

=item C<Pa <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	1792	1899	
==>pile
{
		my ($self, $grammar, $class, $sourcefile) = @_;

		$class =~ /^(\w+::)*\w+$/ or croak("Bad class na <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	72108	72344	
==>That will probably mean you need to re-implement
			       repetitions using the '(s)' notation.
			       For example: \"$rule->{name}(s)\".");
			next;
		}
	}
}
	
# GENERATE ACTUAL PARSER CODE

sub _code($)
{
	my $self = shift;
	my $co <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	5696	5787	
==><END_C;
#include "parrot/parrot.h"
#include "parrot/oplib.h"

$sym_export extern op_lib_t *$ <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis.pl	83	211	
==>(\d+) types out of (\d+) from .+?([\.\w]+)\n$/) {
		push @results, {
			name	=> $3,
			total	=> $2,
			done	=> $1,
			percen <==
2	/Users/nnunley/parrot/languages/dotnet/tools/analysis_latex.pl	83	211	
==>(\d+) types out of (\d+) from .+?([\.\w]+)\n$/) {
		push @results, {
			name	=> $3,
			total	=> $2,
			done	=> $1,
			percen <==
2	/Users/nnunley/parrot/config/gen/config_pm.pm	1430	1543	
==>open(OUT, ">config_lib.pasm") or die "Can't open config_lib.pasm: $!";

    print OUT <<"END";
# Generated by conf <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10724	10833	
==>}

sub _op_set_bang {
  my ($self, $node) = @_;

  _num_arg ($node, 2, 'set!');

  my $symbol = _get_arg ($nod <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	1841	1945	
==>Ops::Tree::check::ISA        = qw(Regex::Ops::Tree);

@Regex::Ops::Tree::call::ISA         = qw(Regex::Op <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	5289	5394	
==>"
	_platform_shutdown()
	end
ONOK_${ons}:
ON
	$i=1;
	for my $jumps (@onlab) {
		push @{$code{$seg}->{code} <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	3448	3640	
==>name\" = $reg");
  }
  else {
    $compiler->emit("  .local $type $name");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Nam <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	1827	1933	
==>{declarations}}) {
		if (exists $main::common{$var}) {
			push(@saves, $var);
		}
	}
	if (@saves) {
		print <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3118	3224	
==>{declarations}}) {
		if (exists $main::common{$var}) {
			push(@saves, $var);
		}
	}
	if (@saves) {
		print <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	573	779	
==>$rule, $ctx, 'regex_done', 'regex_done',
                                   %options);

    my @asm = Regex::list_to_pasm($code, $ctx, %options);

    $self->output_rule_body($fh, $subname, $rule, $ctx, \@as <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	583971	584462	
==>s",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 665,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 303 \"src/ops/object.ops\"\n  PMC *class = Parrot_class_look <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585045	585530	
==>s",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 666,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 303 \"src/ops/object.ops\"\n  PMC *class = Parrot_cla <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	983984	984360	
==>> "inline",
                  "CODE" => 1103,
                  "ARGS" => [
                              "i",
                              "i",
                              "sc",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 622 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1397	1506	
==>','STATES');

sub new {
    my($class)=shift;
	my($errst,$nberr,$token,$value,$check,$dotpos);
    my($se <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1351	1455	
==>','STATES');

sub new {
    my($class)=shift;
	my($errst,$nberr,$token,$value,$check,$dotpos);
    my($se <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	19069	19207	
==>e,$depth, @files) = @_;

    for my $file (@files) {
        my $class = read_dump($include, $file);

        print "    " x $depth, $class <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61146	61252	
==>m($item)
			      or  _no_rule("pattern terminal",$line,"/$1/");
		}
		elsif ($grammar =~ m/(?=$MTOKEN)/gco <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	1790	1919	
==>@pc_list;
    my @blocks;
    my %opcodes;

    print <<END_C;
#include "parrot/parrot.h"
#include "parrot/string.h"
END_C

    pr <==
2	/Users/nnunley/parrot/config/auto/gdbm.pm	1684	1842	
==>link "gdbm_test_db";
        if ($test eq "gdbm is working.\n") {
            $has_gdbm = 1;
            print " (yes) " if $verbose;
            $self->result <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	22189	22536	
==>', [ $loop ]),
          $back => $self->dbprint("backtracking into *\n"),
                   aop('popint', [ '<tmp>', $lastback ]),
                   aop('if', [ '<tmp>', $R_back ]),
                   aop('goto', [ $lastback ]),
          $next =>
                  );

        return ($back, @ops);
    } else {
        my $rfail = $self->genla <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	17960	18082	
==>ject constructor without args
   Original over-helpfulness was fraught with problems:
       * the class's constructor migh <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1162	1297	
==>..', # $self->{relpath}, 
            STDOUT => $pasm_f, STDERR => $pasm_f,
        );
        Parrot::Test::run_command( 
            " <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1071	1206	
==>..', # $self->{relpath}, 
            STDOUT => $pasm_f, STDERR => $pasm_f,
        );
        Parrot::Test::run_command( 
            " <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	18997	19185	
==>put_isnt => 'output_isnt',
                            );

    foreach my $func ( keys %language_test_map ) {
        push @EXPORT, $func;
        no strict 'refs';

        *{$package.'::' <==
2	/Users/nnunley/parrot/config/gen/config_h.pm	1926	2116	
==>ROT_DEF_" . uc($_), " 1\n";
        }

    }

    print HH <<EOF;

/*
 * HAS_(\\w+) config entries
 */

EOF
    for (sort($conf->data->keys())) {
        next unless /HAS_(\w+)/;
        if ( <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	64594	64730	
==>petition",$line,"$code$argcode($1)");

						!$matchrule and $rule and $rule->addcall($name);
					}
				}
				elsif ($grammar =~ m/$BETW <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	62520	62643	
==>petition",$line,"$code$argcode($1)");

					!$matchrule and $rule and $rule->addcall($name);
				}
				elsif ($grammar =~ m/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9032	9143	
==>nterpreter->resume_offset = fe->offset;\n        Parrot_switch_to_cs(interpreter, fe->seg, 1);\n    }\n    strin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10148	10259	
==>nterpreter->resume_offset = fe->offset;\n        Parrot_switch_to_cs(interpreter, fe->seg, 1);\n    }\n    strin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934028	934118	
==>DY" => "#line 435 \"src/ops/string.ops\"\n  {{\@1}} = string_downcase(interpreter, {{\@2}}) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934803	934893	
==>DY" => "#line 435 \"src/ops/string.ops\"\n  {{\@1}} = string_downcase(interpreter, {{\@2}}) <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	66880	67027	
==>specification of a repeated subrule",
					       $line);
					_hint("Repeated subrules like \"$code$argcode$&\" cannot have
					       a maximum r <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11498	11620	
==>out = $to if defined $to and length $to;
    $out .= "#" . $section if defined $section and length $section;
    
    retur <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4790	4903	
==>out = $to if defined $to and length $to;
  $out .= "#" . $section if defined $section and length $section;
  retur <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	169	250	
==>arrot/languages/jako/lib/Jako/Construct/Statement/Call.pm 19606 2006-05-30T15:08:0 <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	612	730	
==>O

Make better use of CPAN modules.

=head1 HISTORY

Started by josh in 2002.

=head1 AUTHOR

josh

=head1 SEE ALSO

F< <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	15339	15587	
==>tableconstructor' => 46,
			'args' => 43,
			'key' => 45
		}
	},
	{#State 32
		DEFAULT => -83
	},
	{#State 33
		DEFAULT => -77
	},
	{#State 34
		DEFAULT => -95,
		GOTOS => {
			'@11-1' => 70
		}
	},
	{#State 35
		ACTIONS => {
			" <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	32802	33135	
==>'result' => $state,
            'arg1'   => $expr->[0],
        );
        $expr = shift @{$exprs};
    }
    my $var = new_tmp( $parser, 'pmc' );
    push @opcodes1, new LocalDir( $parser,
        'result' => $var,
    );
    if (    scalar( @{$exprs} ) == 0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	40519	40620	
==>item [4]

the text between the opening and closing tags

=item [5]

the closing tag (or "" if no closi <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	11666	11801	
==>e($transnode);
}

sub _op_case {
}

sub _op_and {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	14563	14667	
==>G) {
    if(defined $title) { print "  Returing title <$title>\n" }
    else { print "Returning title <>\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	23128	23232	
==>G) {
    if(defined $title) { print "  Returing title <$title>\n" }
    else { print "Returning title <>\ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5986	6100	
==>DBG>			and	print STDERR "Need token. Got ".&$ShowCurToken."\n";
			};

            $act=   exists($$actions{ACTI <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5701	5812	
==>DBG>			and	print STDERR "Need token. Got ".&$ShowCurToken."\n";
			};

            $act=   exists($$actions{ACTI <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	19002	19245	
==>$ld2pos,	0,			# NO 2ND LDEL
			$ld2pos,	0,                	# NO 2ND STR
			$ld2pos,	0,	                # NO 2ND RDEL
			$ld2pos,	0,                      # NO MODIFIERS
			$ld2pos,	$textlen-$ld2pos,	# REMAINDER
			$extrapos,      $str1pos-$extra <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	22	113	
==>es/bc/lib/Parrot/Test/Bc.pm 18020 2006-03-26T19:46:16.084129Z bernhard  $

package Parrot::T <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557839	557937	
==>n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  interpreter->current_cont = CONTEXT(i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559223	559321	
==>n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  interpreter->current_cont = CONTEXT(i <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	10866	10983	
==>defined $::RD_TRACE)
	{
		Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
					  $return . q{])}, "", <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	2466	2691	
==>urn undef;
    }

}

################################################################################

package SymbTabConst;
use base qw(Lua::symbtab);
{

    sub Lookup {
        my $self = shift;
        my ($sy <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	1556	1745	
==>eturn @$c{@_};
}

=item C<set($key => $val, ...)>

Modifies or creates a new value.

Accepts a list of C<key => value> pairs and returns a
L<Parrot::Configure::Data> object.

=cut

sub set
{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651122	651527	
==>",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 728,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 247 \"src/ops/pmc.ops\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	709260	709485	
==>register_pmc(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	8348	8479	
==>>';

  printf STDERR "%s [%s]: Debug message: %s\n", $self->file, $self->line, $message;
}


#
# WARNING()
#

sub WARNING
{
  my ($s <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10570	10703	
==>length($section .= '') ) 
    {
        $section =~ tr/ /_/;
        $section =~ tr/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
        $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3965	4080	
==>length($section .= '')) {
    $section =~ tr/ /_/;
    $section =~ tr/\x00-\x1F\x80-\x9F//d if 'A' eq chr(65);
    $ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4000	4112	
==>e for each push.
	$pir .= "\${ITEMP0} = 0\n";
	for (1..$pushes) {
		$pir .= <<'PIR';
# Increment stack depth.
inc <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2416	2528	
==>e for each push.
	$pir .= "\${ITEMP0} = 0\n";
	for (1..$pushes) {
		$pir .= <<'PIR';
# Increment stack depth.
inc <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	4604	4764	
==>ok->is_eof;
  }

=begin commented_out

  foreach (my $i = 0; $i < scalar(@{$self->{TOKENS}}); $i++) {
    my $tok = $self->at($i);

    printf STDERR "%6d : %-30 <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	3116	3275	
==>act $I100
    %1 = $I100
END_PIR

    $P0['monadic:*']      =  "    %1 = exp %1"      # exp
    $P0[unicode:"monadic:\x{d7}"] =  <<"END_PIR"            # signum <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	840	971	
==>{builder}->current_test + 1;

        # flatten filenames (don't use directories)
        my $lua_test = $ENV{PARROT_LUA_TEST_PRO <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	922	1021	
==>arrot::IO::File';
}

=item C<directory_with_path($path)>

Returns the directory with the specified p <==
2	/Users/nnunley/parrot/languages/converter.pl	1020	1129	
==>[' production ']' mod(?) production(?)
		| terminal(?) '[' production ']' production(?)
#		{[@item]}
		{ $retu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	617091	617248	
==>/ops/pic.ops\"\n    Parrot_MIC *mic;\n    Parrot_PIC_lru *lru;\n    PMC *left, *right;\n    INTVAL lr_types;\n\n    mic = (Parrot_MIC *) cur_opcode[1];\n    l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	618783	618896	
==>/ops/pic.ops\"\n    Parrot_MIC *mic;\n    Parrot_PIC_lru *lru;\n    PMC *left, *right;\n    INTVAL lr_types, lt, r <==
2	/Users/nnunley/parrot/Configure.pl	9006	9144	
==>:lex
    inter::yacc
    auto::gcc
    auto::msvc
    init::optimize
    inter::shlibs
    inter::libparrot
    inter::charset
    inter::e <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	28648	28751	
==>changename($_);
			$_=~s/\$/_string/g; 
			push @{$code{$seg}->{code}}, qq{\t.param $t $_\n};
			push @{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	487720	488047	
==>,
                  "TYPE" => "inline",
                  "CODE" => 558,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 488 \"src/ops/math.ops\"\n  {{\@1}} = ceil({{\@2}});\n  {{+=3}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10137	10256	
==>elf = shift;
    my $link = shift;
    my $to = $link->attr('to');
    my $section = $link->attr('section');
    
    re <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	10205	10608	
==>fabsf       math.h
fabsl       math.h
fclose      stdio.h
fdim        math.h
fdimf       math.h
fdiml       math.h
feof        stdio.h
ferror      stdio.h
fflush      stdio.h
fgetc       stdio.h
fgetpos     stdio.h
fgets       stdio.h
floor       math.h
floorf      math.h
floorl      math.h
fma         math.h
fmaf        math.h
fmal        math.h
fmax        math.h
fmaxf       math.h
fmaxl       math. <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	1801	1976	
==>type=long>

=item C<-L>

Append a long type (e.g. "global_const_init_data" versus "R") to the
symbol name.

=item C<--help>

Show the help.

=item C<--version>

Show the versio <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	10361	10528	
==>%content_containers;
  $content_containers{'Para'} = 1;
  if($accept_verbatim) {
    $content_containers{'Verbatim'} = 1;
    $content_containers{'VerbatimFormatted'} = <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	9112	9263	
==>|;
    $source_escaped =~ s|(\\)|$1$1|g; # escape backslashes
    print SOURCE qq{#line $line "$source_escaped"\n};
}


#
# write op_func_func
#

my ($o <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	3768	3926	
==>s, tolerate even more hex!
    : '1033'
  );

  $new->head1_halfpoint_size(32);
  $new->head2_halfpoint_size(28);
  $new->head3_halfpoint_size(25);
  $new->hea <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	56392	56511	
==>'no strict;
						       $return = { text => $item[-1] };
						       @{$return->{type}}{'.$code.'} = (1..'.$types.');' <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	4108	4270	
==>to edit it
    $byte_code = $pf->byte_code;

    # First block
    push @blocks, [shift @pc_list ];

    # change instructions at block leaders to enternative call <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	5778	5903	
==>h($) {
	my $self = shift;
	my $pops = shift;
	my $pir = '';

	# Branches mean we need to deal with basic block-ish stuff. If t <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3716	3841	
==>h($) {
	my $self = shift;
	my $pops = shift;
	my $pir = '';

	# Branches mean we need to deal with basic block-ish stuff. If t <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	5088	5250	
==>item C<goto_pop()>

Transforms the C<goto POP($address)> macro in an ops file into the
relevant C code.

=cut

sub goto_pop 
{
    my ($self) = @_;

    return $se <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	8997	9124	
==>source->[$mismatch_at]\" (should be \"$end_boilerplate[$mismatch_at]\")");
        }
    }

}


sub check_manifest {
    open(F, <==
2	/Users/nnunley/parrot/examples/benchmarks/freeze.pl	118	283	
==>30T13:32:26.641316Z coke  $

=head1 NAME

examples/benchmarks/freeze.pl - Freeze/Thaw Benchmarks

=head1 SYNOPSIS

    % time perl examples/benchmarks/freeze.pl

=hea <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1135	1246	
==>lf->ident->scope eq 'global')) {
    my $pmc_type = $self->ident->type->imcc_pmc;
    my $pmc_reg = $compiler->t <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1129	1240	
==>lf->ident->scope eq 'global')) {
    my $pmc_type = $self->ident->type->imcc_pmc;
    my $pmc_reg = $compiler->t <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	19297	19416	
==>::RecDescent::_hint("The \$::RD_AUTOACTION was defined,
					  so any production not ending in an
					  explicit action <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9682	9799	
==>f);
			};

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Dicard invalid token ".&$ShowCurToken.".\n";

			$$t <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9248	9359	
==>f);
			};

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Dicard invalid token ".&$ShowCurToken.".\n";

			$$t <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29737	29882	
==>name'}");
		$pir .= "### end pre_load\n";

		# If we have PIR for the instruction, just take that. If not, we need
		# to generate it from the "to <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	4522	4616	
==>>existing_directory_with_name('docs');
}

=item C<html_docs_directory()>

Returns the HTML docu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632678	632935	
==>ew_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633720	633977	
==>ew_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	1155	1280	
==>CD => '..', # $self->{relpath}, 
            STDOUT => $pasm_f, STDERR => $pasm_f,
        );
        Parrot::Test::run_comman <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	1064	1189	
==>CD => '..', # $self->{relpath}, 
            STDOUT => $pasm_f, STDERR => $pasm_f,
        );
        Parrot::Test::run_comman <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	12665	12800	
==>tial) = substr($_, 0, 16);
            if ($initial =~ /^\s*\d+\s*$/) {
                print OUT qq($atag<font color="green">$_</font>) <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	764	917	
==>age_test_map = (
    output_is         => 'is_eq',
    output_like       => 'like',
    output_isnt       => 'isnt_eq',
                        );

foreac <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	502	619	
==>age_test_map = (
    output_is   => 'is_eq',
    output_like => 'like',
    output_isnt => 'isnt_eq',
);

foreac <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1427	1547	
==>) {
          $path_to_language = '.';
        } elsif ($dir_count >2) {
          $path_to_language = File::Spec->join(F <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1912	2032	
==>) {
          $path_to_language = '.';
        } elsif ($dir_count >2) {
          $path_to_language = File::Spec->join(F <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	877675	878010	
==>FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 995,
                  "ARGS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649058	649179	
==>234 \"src/ops/pmc.ops\"\n    {{\@1}} = pmc_type_p(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649821	649942	
==>234 \"src/ops/pmc.ops\"\n    {{\@1}} = pmc_type_p(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7911	8065	
==>{ITEMP0} = elements lazy_moves
if ${ITEMP0} > 0 goto PRE_STORE_${CURIC}_LAZY_MOVE

# No lazy move available - need to refer to register.
${STEMP0} = "$"
${ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27516	27754	
==>e, $prefix)=@_;		
	my @params;
	while(feedme()) {
		last if ($type[CURR] eq "STMT");
		last if ($type[CURR] eq "PUN" and $syms[CURR] eq ")");
		next if ($type[CURR] eq "PUN");
		if ($type[CURR] eq "BARE") {   # Variable name parameter
			$ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	10136	10271	
==>(number)
	twice=2*number
end function
a=twice(5)
print a


' Expect -7
t%=-7
print t%

' Expect 9
print (2+3*5-(6+abs(0-3)))+1


' Expec <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	43763	43949	
==>r is identical to that of the actual compiler.

C<extract_quotelike> takes two arguments: the text to be processed and
a prefix to be matched at the very beginning of the text. If no pref <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	34523	34659	
==>re_Slice(@_, 1);
}
sub STORE_SLICE_plus_2 {
    return Store_Slice(@_, 2);
}
sub STORE_SLICE_plus_3 {
    return Store_Slice(@_, 3);
}

s <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	6333	6451	
==>fix} = 1;
    }
    
    return sort keys %suffixes;
}

=item C<files_with_suffix($suffix, $recursive, $ignore)>

Use t <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	40395	40608	
==>P\d+.
	while ($pir =~ /\$\{([INSP])_ARG_(\d+)\}/g) {
		my $key = "${1}_ARG_$2";
		my $value = "${1}_arg_$2";
		$mv->{$key} = $value;
		$pir =~ s/\$\{$key\}/$value/g;
	}
	while ($pir =~ /\$\{([INSP])TEMP(\d+)\}/g) { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	363939	364352	
==>base_io",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 426,
                  "ARGS" => [
                              "p",
                              "nc"
                            ],
                  "BODY" => "#line 292 \"src/ops/io.ops\"\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171096	171375	
==>DE" => 205,
                  "ARGS" => [
                              "p",
                              "nc",
                              "ic"
                            ],
                  "BODY" => "#line 211 \"src/ops/cmp.ops\"\n  if ({{\@1}}->vtable->get_number(interpr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	206509	206689	
==>ger(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	207451	207631	
==>ger(interpreter, {{\@1}}) <= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	26760	26883	
==>};
    $cout .= $self->line_directive_here($cout, $out_name)
	. $self->includes;
    my $l = count_newlines($cout);
    $cou <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569332	569590	
==>able->isa(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570225	570483	
==>able->isa(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	619	789	
==>a new smoke all 30s
  BURST       => 5,            # Set max burst to 5
  MAX_SMOKES_OF_SAME_CATEGORY => 5,
};
$CGI::POST_MAX = MAX_SIZE;
chdir BASEDIR or die "Couldn't ch <==
2	/Users/nnunley/parrot/lib/Test/More.pm	6760	6911	
==>r intentions.  $test_name is optional,
but we B<very> strongly encourage its use.

Should an ok() fail, it will produce some diagnostics:

    not ok 18 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	30008	30261	
==>LS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "set_returns",
                  "FLAGS" => "" <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	976	1089	
==>er;

require 5.004;

use strict;

use vars qw ( $VERSION $COMPATIBLE $FILENAME );

$VERSION = '1.05';
$CO <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	948	1052	
==>er;

require 5.004;

use strict;

use vars qw ( $VERSION $COMPATIBLE $FILENAME );

$VERSION = '1.05';
$CO <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	832	966	
==>ub .end .pcc_begin
    .pcc_end .pcc_sub .pcc_begin_return .pcc_end_return .pcc_begin_yield
    .pcc_end_yield .namespace .endnamespace <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	17127	17247	
==>e dumb 'shells' that are no shells
    @files = glob $files[0] if $files[0] eq '*.pmc';

    my %all;
    for my $file (@ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54163	54264	
==>rule($code,$line);
			}
			elsif ($grammar =~ m/(?=$SKIPMK)/gco
				and do { ($code) = extract_codeblo <==
2	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	1274	1450	
==>eresting later on.
# 
# Example:
# F8,8
# translittranslit
#
# Flag is 'F'
# Name is 'translit'
# substitution: 'translit'
macro:              flag name_len ',' substitution_len <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	536	720	
==>n        = Parrot::Test::per_test( '.m4', $count );

    return ( join( ' ',
                 File::Spec->join($path_to_parrot,$self->{parrot}), 
                 File::Spec->join($path <==
2	/Users/nnunley/parrot/languages/regex/test.pl	3728	3946	
==>ned($status) || $status) {
        die "assemble failed with status " . ($? >> 8);
    }
}

sub generate_regular {
    my $pattern = shift;
    generate_regular_pir("test_regex.pir", $pattern);
    generate_pbc("test_re <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	2054	2174	
==>ned($status) || $status) {
        die "assemble failed with status " . ($? >> 8);
    }
}

sub generate_regular {
    my <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	4265	4443	
==>$self->unget_token($next);
        return;
    }
    
    my $text = $next->text;
                    
    if ( $text =~ /^Parrot::/o )
    {
        # TODO - C<Perl::Module> shou <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	9675	9787	
==>("MANIFEST", $line, "$_: more than one '.' in a filename");
        }
        $filebase  = substr($filebase, 0, 8 <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	13062	13294	
==>rg
        #
        # For ease of parsing, if the argument to one of the above
        # notations in a .ops file contains parentheses, then double the
        # enclosing parentheses and add a space around the argument,
        # l <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11522	11648	
==>tch>)");
}

sub output_rule_fail {
    my ($self, $name) = @_;
    return ($self->output_match_failed(),
            ".return ( <==
2	/Users/nnunley/parrot/config/inter/progs.pm	3526	3628	
==>s->get('libs'));
    $libs = prompt("What libraries should your C compiler use?", $libs) if $ask;
    $ <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	505	611	
==>me2character
  %Name2character_number
  %Latin1Code_to_fallback
  %Latin1Char_to_fallback
  $FAR_CHAR
  $FA <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	228	321	
==>me2character
  %Name2character_number
  %Latin1Code_to_fallback
  %Latin1Char_to_fallback
  e2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947500	947934	
==>,
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1066,
                  "ARGS" => [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 526 \"sr <==
2	/Users/nnunley/parrot/lib/Test/More.pm	20942	21063	
==>t yet have code written.  For that you
use TODO.  Read on.

=cut

#'#
sub skip {
    my($why, $how_many) = @_;

    unless <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350988	351178	
==>IO_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	351650	351840	
==>IO_printf(interpreter, INTVAL_FMT, (INTVAL){{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	4283	4421	
==>"
PIR
	} else {
		# Translator needs to emit an instruction to push the value in the
		# load register onto to the stack.
		$pir .= <<'PIR' <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	5170	5313	
==>6-abs(-6)


' Some register confusion, expect .PTFCDR
Dim c(10), a$(10), u(10)
510 FOR I = 0 TO 6
520 READ A$(I), U(I)
    print A$(I);
530 NEXT <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	756726	756812	
==>t.ops\"\n  {{\@1}}->vtable->assign_string_native(interpreter, {{\@1}}, {{\@2}});\n  {{+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757516	757602	
==>t.ops\"\n  {{\@1}}->vtable->assign_string_native(interpreter, {{\@1}}, {{\@2}});\n  {{+ <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	2155	2299	
==>((1 << $3) - 1))) + $4";
	$insert .= "\t$c\n";
  }
  
  my $dump = '
  sub round {
	my ($a,$b,$c,$d) = @_[0 .. 3];
	my $r;

	' . $insert . '
	$_[ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	178577	178860	
==>ction",
                  "CODE" => 213,
                  "ARGS" => [
                              "sc",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 240 \"src/ops/cmp.ops\"\n  if ({{\@1}} ! <==
2	/Users/nnunley/parrot/lib/Test/More.pm	3280	3393	
==>no plan.  (Try to avoid using this as it weakens your test.)

  use Test::More qw(no_plan);

B<NOTE>: using no_pla <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	14772	14878	
==>d C<rusage> has two elements, each of which is of
type C<timeval>.

    use Class::Struct;

    struct( rus <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5498	5619	
==>my($actions,$act,$stateno);

        $stateno=$$stack[-1][0];
        $actions=$$states[$stateno];

#DBG>	print STDER <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5233	5349	
==>my($actions,$act,$stateno);

        $stateno=$$stack[-1][0];
        $actions=$$states[$stateno];

#DBG>	print STDER <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10935	11038	
==>egex::Ops::Tree::alternate::needparen { 1 }
sub Regex::Ops::Tree::alternate::render {
    my $op = shift <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16179	16367	
==>er of lines, C<$out_name> is the name of the output file we are
generating.

=cut

sub methods {
    my ($self, $line, $out_name) = @_;

    my $cout = "";

    # vtable methods
    foreach <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/State.pm	3	134	
==>kage Regex::State;

sub new {
    my ($class, %options) = @_;
    my $self = bless { _markers => {},
                       %options <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	2517	2645	
==>ress whining
  'no_errata_section', # whether to suppress the errata section
  'complain_stderr',   # whether to complain to stde <==
2	/Users/nnunley/parrot/config/gen/cpu/i386/auto.pm	5	152	
==>yright (C) 2001-2006, The Perl Foundation.
# $Id: /parrot/config/gen/cpu/i386/auto.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	274	378	
==>oke  $
#

use strict;
eval "use warnings";

package Jako::Construct::Block::Conditional::Unless;

use Car <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	24678	24878	
==>method (@{ $self->{methods} }) {
      next unless $method->{loc} eq 'nci';
      my $proto = proto($method->{type}, $method->{parameters});
      $cout .= <<"EOC";
        enter_nci_method(interp, ent <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1235	1345	
==>XT(interpreter->ctx)->pred_offset)

#  define opcode_to_prederef(i, op)   (op ? \\
     (void**) (op   - CONTEX <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	14645	14795	
==>." => 15
		},
		DEFAULT => -10,
		GOTOS => {
			'expr' => 28,
			'charclass' => 12,
			'range' => 25
		}
	},
	{#State 29
		DEFAULT => -8
	},
	{#State 3 <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	3366	3539	
==>cross into the operating system and/or
external libraries, you usually cannot go overly C<const> because of
portability issues.

Make your strings and arrays of strings (or s <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	4294	4422	
==>ok (Code &code, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934086	934343	
==>ng_downcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	934861	935118	
==>ng_downcase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JU <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	9785	10044	
==>> 'l!',
             'parrot_is_shared' => 0,
             'perl' => 'perl',
             'platform_asm' => 0,
             'pmc' => 'default.pmc null.pmc env.pmc key.pmc random.pmc unmanagedstruct.pmc managedstruct.pmc delegate.pmc csub.pmc compiler.pmc excep <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	6097	6322	
==>_} ? '$' : '/'; # ignore file or dir
               s/\./\\./g;                  # . is simply a dot
               s/\*/.*/g;                   # * is any amount of chars
               "^${dir}${_}\$",             # SVN glob <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3186	3298	
==>s, $var);
		}
	}
	if (@saves) {
		print CODE qq{\t\tfind_global _GLOBALS, "COMMON"\n};
		foreach(@saves) {
			pri <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	1094	1205	
==>est-coverage\"");
    system("make");

    # Now run the tests
    system("make fulltest");
}

# And generate th <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	29720	29831	
==>CDISP
		if (%functions) {
			foreach(keys %functions) {
				print FUNC qq{\teq S0, "$_", UF_}, english_func($_), <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	1649	1760	
==>cal equivalent for.
    }

    # It's numeric, whether by origin or by mutation from a known name
    return $Co <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	30221	30414	
==>p_vector_length {
}

sub _op_vector_ref {
}

sub _op_vector_set_bang {
}

sub _op_vector_list {
}

sub _op_list_vector {
}

sub _op_vector_fill_bang {
}

sub _op_procedure_p {
  my ($self, $node <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	2528	2642	
==>nt)
        unless $sym;

      if (not UNIVERSAL::isa($sym->type, 'Jako::Construct::Type::String')) {
        my $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	761455	761579	
==>ERS)\n        PANIC(\"Out of bound register access\");\n    REG_PMC({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	762308	762432	
==>ERS)\n        PANIC(\"Out of bound register access\");\n    REG_PMC({{\@1}}) = {{\@2}};\n    {{+=3}};\n",
                  " <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5799	5945	
==>} @$stack).
#DBG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defined($$token)
            or	do {
				($$token,$$value)= <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5524	5662	
==>} @$stack).
#DBG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defined($$token)
            or	do {
				($$token,$$value)= <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	1553	1671	
==>ntiated local variables
# into the translator code.
$pir = insert_automagicals($pir, $metavars);

# Append any custom s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	53195	53343	
==>"\cm" => '\cm',
  "\cj" => '\cj',
  "\n" => '\n', # probably overrides one of either \cm or \cj
  '"' => '\"',
  '\\' => '\\\\',
  '$' => '\\$',
  '@ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	32586	32723	
==>!
    my $in_eval = 0;
    for( my $stack = 1;  my $sub = (CORE::caller($stack))[3];  $stack++ ) {
        $in_eval = 1 if $sub =~ /^\(eva <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	5181	5485	
==>cpp directives.
            $f = undef if ($1 eq "}");
            next;
        }

        if (defined($f)) {
            # first line of a block
            if ($f == 0) {
                # first line of a top-level block (first line of a function,
                # in other words)
                my ( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	44129	44276	
==>4 and print "_verbatim_format considers:\n<$p->[$i-1]>\n<$p->[$i]>\n";
    
    $formatting = '  ' . $1;
    $formatting =~ s/\s+$//s; # nix trailin <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	21510	21646	
==>o_unget[-1]->dump, "\n";

    (DEBUG and print "Too much in the buffer.\n"),
     last if @to_unget > 25; # sanity
    
    my $pattern = <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	8682	8784	
==>he same
license as Parrot itself.

=head1 COPYRIGHT

Copyright (C) 2001-2005, The Perl Foundation.

=en <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	6356	6502	
==>text =~ m{^([a-zA-Z][a-zA-Z0-9_]*(::[a-zA-Z][a-zA-Z0-9_]*)*)(.*)$}) {
#printf STDERR "IDENT [%s:%d]: '%s'\n", $file, $line, $1;
      push @tokens, <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	1005	1165	
==>($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK     => $block,

    KIND      => 'if',
    LEFT      => $left,
    OP        => $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	1017	1136	
==>($right, 'Jako::Construct::Expression::Value');

  my $self = bless {
    BLOCK     => $block,

    KIND      => 'unless <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	154	286	
==>er.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "u <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14610	14722	
==>_size,
    $title,
    $self->normal_halfpoint_size,
  ;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	6056	6187	
==>P0} = ${PTEMP1}["reg_type_short"]
${DEST0} = concat ${STEMP0}
${DEST0} = concat "0"
pre_call_NO_RETURN_${CURIC}:

# If it's a call t <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Docs.pm	1852	1973	
==>self->new_group('PMC Documentation', '', 'docs/pmc'),
		$self->new_group('Parrot Design Documents (PDD)', '', 'docs/pdds') <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10684	10809	
==>q chr(65);
        $section = $self->unicode_escape_url($section);
        # Turn char 1234 into "(1234)"
        $section = ' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4065	4179	
==>q chr(65);
    $section = $self->unicode_escape_url($section);
     # Turn char 1234 into "(1234)"
    $section = ' <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	905	1004	
==>s
{
    return 'Parrot::IO::File';
}

=item C<directory_with_path($path)>

Returns the directory wit <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	4597	4767	
==>$_.pir\n";
        }
        return $code;
    } else {
        # Just say that we weren't configured with mono path, so no can do.
        return "\techo Oops, I was <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	603853	604318	
==>NAME" => "addparent",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 684,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 419 \"src/ops/obje <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	3954	4079	
==>=~ s/\s//g;
		    $a = qq!"$a"!;   # quote argument
		    $def_arg_names{$f}{$a} = $i;
		    # print STDERR "def $f($a = $i)\n <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	4453	4578	
==>=~ s/\s//g;
		    $a = qq!"$a"!;   # quote argument
		    $def_arg_names{$f}{$a} = $i;
		    # print STDERR "def $f($a = $i)\n <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5902	6006	
==>for my $entry (@{$vtable}) {
    next unless ($entry->[4] =~ /MMD_/);
    next if ($entry->[4] =~ /_INT$/ <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6320	6424	
==>for my $entry (@{$vtable}) {
    next unless ($entry->[4] =~ /MMD_/);
    next if ($entry->[4] =~ /_INT$/ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	12500	12822	
==>$c" $cmt
EOC
    }
    elsif ($main_names{$c}) {
	$p = temp('P');
	print <<EOC;
	$p = find_lex "$c" $cmt
EOC
    }
    else {
	$p = temp('P');
	$globals{$c} = $p;
	print <<"EOC";
	$p = global "$c" $cmt
EOC
    }
    push @stack, [$c, $p, 'P'];
    # print_stack();
}


sub LOAD_NAME() {
    my ($n, $c, $cmt) = @_;
    my ( <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1046	1156	
==>IBLE $FILENAME );

$VERSION = '1.05';
$COMPATIBLE = '0.07';
$FILENAME=__FILE__;

use Carp;

#Known para <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1012	1114	
==>IBLE $FILENAME );

$VERSION = '1.05';
$COMPATIBLE = '0.07';
$FILENAME=__FILE__;

use Carp;

#Known para <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	2603	2737	
==>cutable
{
    my $self = shift;
    
    return $self->stat->mode & 0111;
}

=item C<modified_since($time)>

Use this to find out wheth <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4765	4863	
==>d ($dest_ident->scope eq 'global')) {
    my $pmc_type = $dest_ident->type->imcc_pmc;
    my $pmc_r <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2828	2926	
==>d ($dest_ident->scope eq 'global')) {
    my $pmc_type = $dest_ident->type->imcc_pmc;
    my $pmc_r <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	11359	11469	
==>sdigit     ctype.h
isfinite    math.h
isgraph     ctype.h
isgreater   math.h
isgreatereq math.h
isinf       mat <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	5038	5181	
==>->new(scalarref => \$t, die_on_bad_params => 0);

  #print "HTTP/1.0 200 OK\n";
  print $CGI->header;

  my $category = sub {
    return sprintf <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	3064	3168	
==>,
       4 => "set_nci_I(interpreter, &st, *return_data);",
       3 => "set_nci_I(interpreter, &st, *ret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	938544	938642	
==>ne 481 \"src/ops/string.ops\"\n    {{\@1}} = string_join(interpreter, {{\@2}}, {{\@3}});\n    {{+=4 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	939434	939532	
==>ne 481 \"src/ops/string.ops\"\n    {{\@1}} = string_join(interpreter, {{\@2}}, {{\@3}});\n    {{+=4 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1054	1140	
==>ct::Label;

use Jako::Construct::Statement::Arithmetic;
use Jako::Construct::Statement: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	835	955	
==>elf;
}

sub ident  { return shift->{IDENT};  }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	835	955	
==>elf;
}

sub ident  { return shift->{IDENT};  }


#
# compile()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_ <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	1603	1721	
==>f ($^O eq 'MSWin32') {
    # Paths need quoting as they may contain spaces.
    $PATHQUOTE = '"';

    unless ($CC =~ / <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	1607	1725	
==>f ($^O eq 'MSWin32') {
    # Paths need quoting as they may contain spaces.
    $PATHQUOTE = '"';

    unless ($CC =~ / <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	74658	74989	
==>cted;
			$Parse::RecDescent::unexpected
			    = $_savetext || $Parse::RecDescent::lastunexpected;
		}
		return undef;
	}
	$_[1] = $text;
	return [@tokens];
}


# ERROR REPORTING....

my $errortext;
my $errorprefix;

open (ERROR, ">&STDERR");
format ERROR =
@>>>>>>>>>>>>>>>>>>>>: ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	1922	2093	
==>_file);
    my $src_filename = $da_file;
    $src_filename =~ s/\.da$/.c/;
    
    # gcov must be run from the directory that the compiler was invoked from.
    # Currentl <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	12903	13066	
==>ccessfully handled already.)\n";
    }
    
  } else {
    # Otherwise it's a syntax error
    $self->whine( $para->[1]{'start_line'},
      "Invalid =encoding synt <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2347	2465	
==>vious declaration on line %d of file '%s'.",
      $self->name, $sym->line, $sym->file);
  }

  #
  # Now that we've de <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2094	2212	
==>vious declaration on line %d of file '%s'.",
      $self->name, $sym->line, $sym->file);
  }

  #
  # Now that we've de <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3281	3403	
==>@_
    and ${$$self{VALUE}}=$_[0];
    ${$$self{VALUE}};
}

sub YYExpect {
    my($self)=shift;

    keys %{$self-> <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3117	3231	
==>@_
    and ${$$self{VALUE}}=$_[0];
    ${$$self{VALUE}};
}

sub YYExpect {
    my($self)=shift;

    keys %{$self-> <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1524	1628	
==>"$register_num"
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Emit pop code.
${INS} = <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3234	3338	
==>"$register_num"
${STEMP0} = concat ${STEMP1}
${STACK$register_num} = ${STEMP0}

# Emit pop code.
${INS} = <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/EditorPlugins.pm	443	540	
==>ction::EditorPlugins;

use strict;
use warnings;

use base qw( Parrot::Docs::Section );

=item C<n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744891	745103	
==>=> [
                              "s",
                              "nc"
                            ],
                  "BODY" => "#line 179 \"src/ops/set.ops\"\n  {{\@1}} = string_from_num(interpreter, {{\@2} <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	3203	3303	
==>bles.h');
open STDOUT, '>', $h_file
    or die "can not open '$h_file': $!\n";
print <<"END";
$header <==
2	/Users/nnunley/parrot/lib/File/Which.pm	5786	5927	
==>h names
matching C<$short_exe_name>.


=head1 Bugs and Caveats

Not tested on VMS or MacOS, although there is platform specific code
for those <==
2	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1206	1305	
==>pen OUT, "> parrot.iss" or die "Can't open parrot.iss";

print OUT qq{
; generated by tools/dev/mk_s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571767	572057	
==>"TYPE" => "inline",
                  "CODE" => 653,
                  "ARGS" => [
                              "i",
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 223 \"src/ops/object.ops\"\n    PMC * <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8317	8511	
==>$seg}->{code}}, "\t# $syms[CURR]\n" if $type[CURR] eq "COMM";
		$elsetag--;
		$singleif=0;
		goto PARSE
	}
	if ($type[CURR] eq "STMT"
		  or
	    $type[CURR] eq "COMP") { goto PARSE; }
	if ($type <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	4493	4616	
==>^\#\s*Author:.+//m;
	
	s/^\s*\n//mg; # truly blank lines, between the # comment lines
	s/\n(\# *\n){2,}/\n\#\n/sg; # crush d <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4206	4311	
==>'}{_DBParse})#Already loaded ?
		and	return;
	}
	my($fname)=__FILE__;
	my(@drv);
	open(DRV,"<$fname") <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3991	4091	
==>'}{_DBParse})#Already loaded ?
		and	return;
	}
	my($fname)=__FILE__;
	my(@drv);
	open(DRV,"<$fname") <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	820	923	
==>e properties
# of the directories in the Parrot subversion repository. (Needed for
# distributions or in <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3675	3778	
==>e properties
# of the directories in the Parrot subversion repository. (Needed for
# distributions or in <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	165	272	
==>n - Parrot Distribution Directory

=head1 SYNOPSIS

    use Parrot::Distribution;

    my $dist = Parrot::Di <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	368324	368615	
==>i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 431,
                  "ARGS" => [
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 336 \"src/ops/io <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	13729	13897	
==>tinue.

It is also possible to use the `force_todo()` function to do large scale
TODO-ing of tests.

== Misc. Functions

- `skip (Str $reason?) returns Bool`
- `skip (In <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	775013	775266	
==>,
                  "ARGS" => [
                              "p",
                              "ki",
                              "ic"
                            ],
                  "BODY" => "#line 377 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_ <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	2984	3240	
==>$trans->suffix();
# Used as ${defines}
my $defines = $trans->defines();
my $opsarraytype = $trans->opsarraytype();
my $core_type = $trans->core_type();

my $file = $core_flag ? 'core.ops' : shift @ARGV;

my $base = $file;
$base =~ s/\.ops$//;

my $incdir  = <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	258	359	
==>snt), @Test::More::EXPORT );
@ISA = qw(Exporter Test::More);

sub import {
    my( $class, $plan, @arg <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	175	276	
==>snt), @Test::More::EXPORT );
@ISA = qw(Exporter Test::More);

sub import {
    my( $class, $plan, @arg <==
2	/Users/nnunley/parrot/examples/benchmarks/overload.pl	51	301	
==>*' => \&my_mul, 'fallback' => 1;

sub new {
    my ($class, $val) = @_;
    bless \$val, $class;
}
sub my_mul {
    ${$_[0]} * ${$_[1]};
}

1;

package main;
my $a = Foo->new(7);
my $b = Foo->new(6);
my $r;
for my $i (1..500_000) { $r = $a * $b }
prin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428502	428822	
==>"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 492,
                  "ARGS" => [
                              "ic",
                              "p",
                              "nc"
                            ],
                  "BODY" => "#line 69 \"src/ops <==
2	/Users/nnunley/parrot/config/auto/jit.pm	3491	3689	
==>itcpuarch eq 'i386')
            || ($jitcpuarch eq 'ppc')
            || ($jitcpuarch eq 'arm')) {
            $execcapable = 1;
            unless (($osname eq 'openbsd')
                || ($osnam <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53307	53405	
==>eter,   PARROT_GC_DEBUG_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_GC_DEBUG_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54063	54161	
==>eter,   PARROT_GC_DEBUG_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_GC_DEBUG_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1052	1191	
==>my $x (@$new) {
    if(ref($x || '') eq 'ARRAY') {
      $x = $class->new($x); # recurse
    } elsif(ref($x || '') eq 'HASH') {
      $x = { <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1424	1539	
==>os>; # group 0 start := pos');
}

sub output_increment {
    my ($self, $distance, $failLabel) = @_;
    die "invali <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	1672	1786	
==>os> # group 0 start := pos');
}

sub output_increment {
    my ($self, $distance, $failLabel) = @_;
    die "invali <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	16314	16464	
==>_state
    $extra_preamble

    pointer =  ($ret_type (*)(void))D2FPTR(PMC_struct_val(self));
    $return_assign ($ret_type)(*pointer)();
    $final_as <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950953	951269	
==>charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1070,
                  "A <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	8155	8272	
==>r OPS, "src/ops" or die "opendir ops: $!";
        my @ops = sort grep { !/^\./ && /\.ops$/ } readdir OPS;
        clo <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	1709	1951	
==>ith_name($name));
        }
    }
    
    if ( exists $contents{'sources'} )
    {
        foreach my $name (@{$contents{'sources'}})
        {
            push @contents,
                $dist->relative_path($dist->c_source_file_with_name($n <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	44271	44403	
==>LT => -99
	},
	{#State 200
		DEFAULT => -98
	},
	{#State 201
		ACTIONS => {
			'END' => 208
		}
	},
	{#State 202
		ACTIONS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	951913	952415	
==>charset",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1071,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 540 \ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	61701	61804	
==>able to find a closing delimiter to match the
one that opened the quote-like operation.

=item  C<Mismat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048253	1048378	
==>n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null global.\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_g <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1049177	1049302	
==>n    if (!{{\@2}})\n\tinternal_exception(1, \"Tried to get null global.\");\n\n    next = {{^+3}};\n    {{\@1}} = Parrot_get_g <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	15279	15419	
==>ck;
    my $l = pop @stack;
    my ($t, $n);
    {
	my $nl = promote($l);
	$n = temp($t = 'P');
	my $nr = $r->[1];
#	$nr = promote($r) if $r- <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	14962	15101	
==>ck;
    my $l = pop @stack;
    my ($t, $n);
    {
	my $nl = promote($l);
	$n = temp($t = 'P');
	my $nr = $r->[1];
	$nr = promote($r) if $r- <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	9453	9611	
==>my $eol=0;
	my $expr=0;
	my $c=0;
	my $fd="";
	my ($result, $type, @CODE);
	feedme();
	if ($syms[CURR] eq "#" and $type[CURR] eq "PUN") { 
		feedme();
		$fd=$s <==
2	/Users/nnunley/parrot/languages/dotnet/Configure.pl	2416	2668	
==>fh;
	open $fh, "< config/N2PConfig.pm.in" or die "Unable to open config/N2PConfig.pm.in\n";
	my $config_pm = join('', <$fh>);
	close $fh;
	
	# Sub in config data.
	for (keys %config) {
		$config_pm =~ s/\${$_}/$config{$_}/g;
	}
	
	# Write.
	o <==
2	/Users/nnunley/parrot/config/gen/cpu.pm	7	102	
==>ight (C) 2001-2006, The Perl Foundation.
# $Id: /parrot/config/gen/cpu.pm 19593 2006-05-30T02:28 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253706	253849	
==>i"
                            ],
                  "BODY" => "#line 726 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@2}} : {{\@3}};\n  {{+=4} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	254569	254712	
==>i"
                            ],
                  "BODY" => "#line 726 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} ? {{\@2}} : {{\@3}};\n  {{+=4} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	121978	122079	
==>value casts are evil, but this one isn't evil enough to kill.\n   * it's just casting a signed integra <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	122890	122991	
==>value casts are evil, but this one isn't evil enough to kill.\n   * it's just casting a signed integra <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	1836	2036	
==>ces'}})
        {
            push @contents,
                $dist->relative_path($dist->c_source_file_with_name($name));
        }
    }
    
    if ( exists $contents{'headers'} )
    {
        fore <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	784790	785256	
==>=> [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 886,
                  "ARGS" => [
                              "p",
                              "kic",
                              "p"
                            ],
                  "BODY" => "#line 392 \"src/ops/set.ops\"\n    {{\@1}}->vtab <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	886	989	
==>t::Expression::Value');
  confess "Op is not scalar!" if ref $op;
  confess "Right is not Value!" unless <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	898	1001	
==>t::Expression::Value');
  confess "Op is not scalar!" if ref $op;
  confess "Right is not Value!" unless <==
2	/Users/nnunley/parrot/tools/dev/pbc_header.pl	1279	1402	
==>, $minor)  = get_version;
    for my $f (@ARGV) {
	open F, "+<$f" or die "Can't open $f: $!";
	seek F, 2, 0;	# pos 2: major, <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	1411	1542	
==>ompile
{
  my $self = shift;
  my ($compiler) = @_;

  my $dest_ident = $self->dest;

  my $block = $self->block;
  my $dest  = $sel <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	1291	1422	
==>ompile
{
  my $self = shift;
  my ($compiler) = @_;

  my $dest_ident = $self->dest;

  my $block = $self->block;
  my $dest  = $sel <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	9271	9395	
==>d print "Indenting over $indent_stack[-1] twips.\n";
        $self->{'rtfindent'} += $indent_stack[-1];
        
      } elsi <==
2	/Users/nnunley/parrot/config/auto/format.pm	340	429	
==>base qw(Parrot::Configure::Step::Base);

use Parrot::Configure::Step;

$description = 'Fig <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	645	758	
==>ot};

    my $args = $ENV{TEST_PROG_ARGS} || '';

    $lang_f = File::Spec->rel2abs($lang_f);
    $out_f  = File:: <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	682	795	
==>ot};

    my $args = $ENV{TEST_PROG_ARGS} || '';

    $lang_f = File::Spec->rel2abs($lang_f);
    $out_f  = File:: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct.pm	202	361	
==>he Parrot interpreter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

pack <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	219	327	
==>smOps =
  ( [ "scan(R)" => "scan for R at every position" ],
    [ "terminate()" ],
    [ "atend()" => "retur <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	2086	2380	
==>0 if $funcname and $funcname eq $_[0];  # We're processing this, don't count!
	if (grep /^\Q$_[0]\E$/i, keys %functions ) {
#		print "Yes\n";
		return 1;
	}
#	print "No\n";
	return 0
}
sub isarray {
	#print STDERR "Looking up $_[0]$seg...\n";
	$_ =(grep /^\Q$_[0]$seg\E$/i, keys %arrays );
	#pri <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	4749	5000	
==>= 0) && (!defined($max) || ($max == -1))) {
        return $self->rewrite_star($op, $R, $greedy, @rest);
    } elsif (($min == 1) && (!defined($max) || $max == -1) && $self->can('rewrite_plus')) {
        if ($greedy) {
            return $self->rewrit <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	3788	3895	
==>es) if @arg_types;

    $name = "deprecated_$name" if ($self->body =~ /DEPRECATED/);

    return $name;
}

= <==
2	/Users/nnunley/parrot/config/init/optimize.pm	6	96	
==>right (C) 2001-2005, The Perl Foundation.
# $Id: /parrot/config/init/optimize.pm 19593 2006 <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	3890	4045	
==>~ /^\[(.*?)\]/;
    $meta =~ s/^\[(.*?)\]//;
    next unless $package; # Skip if this file belongs to no package

    next unless $package =~ /main|library/ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	1309	1404	
==>Ops::Tree::multi_match::ISA  = qw(Regex::Ops::Tree);
@Regex::Ops::Tree::group::ISA        = qw(R <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	4037	4156	
==>);
    $compiler->emit("  $temp_pmc = $dest");

    my $dest_name = $dest_ident->value;
    $compiler->emit("  global \" <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	1955	2071	
==>NC <<"EOF";
# DO NOT EDIT THIS FILE.
#
# This file is generated automatically from
# $f by config/gen/parrot_include. <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	18378	18464	
==>_halfpoint_size( I<halfpoint_integer> );

=item $parser->head2_halfpoint_size( I<halfpo <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	16008	16287	
==>}
	},
	{#State 42
		DEFAULT => -18
	},
	{#State 43
		DEFAULT => -16
	},
	{#State 44
		DEFAULT => -20
	},
	{#State 45
		ACTIONS => {
			'CHAR' => 4,
			"<" => 22,
			"+" => 24,
			"*" => 27,
			"[" => 14,
			"?" => 23,
			'CODE' => 6,
			"(" => 10,
			"." => 15
		},
		DEFAULT => - <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	2223	2402	
==>= 4) {
        $conf->data->set(int4_t => 'long');
    } else {
        $conf->data->set(int4_t => 'int');
        print <<'END';

Can't find a int type with size 4, conversion ops <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1763	2017	
==>sed time:  $N2\n"; # print  "Elapsed time:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 = $N1 / $N2;              # div    N1, N1 <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1763	2017	
==>sed time:  $N2\n"; # print  "Elapsed time:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 = $N1 / $N2;              # div    N1, N1 <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	38803	38954	
==>);
    }
    for my $param ( @{$params} ) {
        push @opcodes2, @{ $param->[2] };
    }
    push @opcodes2, @{$block};
    push @opcodes2, new <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	2706	2971	
==>the registers, just in case
print OUTPUT "saveall\n";


my @libs;
my ($cur_package, $line, $cur_section);

# Our dispatch table
my (%dispatch) = (
		  package => \&package_line,
		  lib => \&lib_line,
		  defs => \&def_line,
		 );

while ($line = <INPUT>) {

  # Thr <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	7792	7977	
==>_) ? $_->{label} : $_ } @{ $_->{args} || [] });
            }
        } @_;
    } else {
        map {
            my $str;
            if ($_->{label}) {
                $str .= "**" if <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38428	38546	
==>ine, $out_name);
    }
    my $decl = $self->decl($self->{class}, $method, 0);
    my $parameters = $method->{parameter <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	17768	17890	
==>" => "}",
);
1;

__END__

=head1 NAME

Pod::Simple::RTF -- format Pod as RTF

=head1 SYNOPSIS

  perl -MPod::Simple::RTF -e <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8780	8888	
==>ements lazy_moves
if ${ITEMP0} > 0 goto POST_STORE_${CURIC}_LAZY_MOVE

# No lazy move available - need to ref <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	902772	903255	
==>> [
                                 "io",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1018,
                  "ARGS" => [
                              "s",
                              "i",
                              "ic",
                              "sc"
                            ],
                  "B <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9044	9148	
==>resume_offset = fe->offset;\n        Parrot_switch_to_cs(interpreter, fe->seg, 1);\n    }\n    string_cst <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10160	10264	
==>resume_offset = fe->offset;\n        Parrot_switch_to_cs(interpreter, fe->seg, 1);\n    }\n    string_cst <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	29091	29208	
==>our in scalar and void contexts

In a scalar context, the extracted string is returned, having first been
removed from <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015102	1015386	
==>p, strlen(tmp), \"ascii\", 0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1015926	1016210	
==>p, strlen(tmp), \"ascii\", 0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NA <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr2.pm	788	942	
==>);

    return ( "python languages/bc/bc.py languages/${lang_fn}", 
             "$self->{parrot} languages/${pir_fn}" );
}
 
 

sub skip_why {
    my $sel <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/Gnu.pm	439	557	
==>t ) = @_;
 
    
    my $test_prog_args = $ENV{TEST_PROG_ARGS} || q{};
    my $lang_fn        = Parrot::Test::per_test( <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4/PIR.pm	457	569	
==>t ) = @_;

    my $test_prog_args = $ENV{TEST_PROG_ARGS} || q{};
    my $lang_fn        = Parrot::Test::per_test( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	932222	932643	
==>core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1047,
                  "ARGS" => [
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 415 \"src/ops/string.ops\"\n  {{\@1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	807846	807935	
==>> "#line 502 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed(interpre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808751	808840	
==>> "#line 502 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed(interpre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	533790	534479	
==>" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 617,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 903 \"src/ops/math.ops\"\n  {{\@1}} = log10((FLOATVAL){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	267213	267783	
==>::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "istrue",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 311,
                  "ARGS" => [
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 811 \"src/ops/cmp.ops\"\n    {{\@1}} = VTABLE_get_bool(interpret <==
2	/Users/nnunley/parrot/languages/regex/test.pl	3681	3800	
==>$PARROT_EXE", "-o", $pbc, $pir);
    if (! defined($status) || $status) {
        die "assemble failed with status " . ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129324	129590	
==>P" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130062	130328	
==>P" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "TYPE" => "inline" <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	19885	20024	
==>elling Test::Builder which
                # package the .t file is in (one more than usual, due to the
                # extra layer of pac <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9026	9249	
==>e fallback defined!";
    } else {
        die "Too many arguments to popindex!";
    }

    $reg = value($reg);

    return ("set <rx_tmp>, <rx_stack>[-1\] # peekindex",
            "eq <rx_tmp>, -1, ".$self->output_label_u <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2912	3068	
==>\n     # optional test harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # t <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4309	4465	
==>\n     # optional test harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # t <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	4834	4968	
==>'otilde'   , 245,
 'ouml'     , 246,
 'divide'   , 247,
 'oslash'   , 248,
 'ugrave'   , 249,
 'uacute'   , 250,
 'ucirc'    , 251,
 'u <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	7011	7123	
==>if (File::Spec->file_name_is_absolute($file) && -e $file) {
        return $file;
    }

    foreach my $dir ( @$ <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	3521	3625	
==>libs/! || $dynamic_flag) {
    $source  =~ s!src/ops/!!;
    $header = "${base}_ops${suffix}.h";
    $bas <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	4983	5114	
==>(void\*\)\s*(.*)\)/CALL("$1")/g;
                # The ->u.(string|float) is unnecessary.
                $asm =~ s/\)->u\.(\w+)/)/g <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	828723	828817	
==>epth wrong\");\n  if (entry->entry_type != STACK_ENTRY_PMC) {\n    internal_exception(ERROR_BAD <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829791	829885	
==>epth wrong\");\n  if (entry->entry_type != STACK_ENTRY_PMC) {\n    internal_exception(ERROR_BAD <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3459	3560	
==>athmagic
dim m(1), ba(1)
fa=-1
m0=48100
m=48000
w=-19
t=3
m(t)=-100
ba(fa+1)=9
w=w+M(T)+INT(M(T) * BA( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	1025	1123	
==>) for its
content, and then an end-token with the tagname of "head1".

=item $token->tagname(I<some <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1453	1551	
==>) for its
content, and then an end-token with the tagname of "head1".

=item $token->tagname(I<some <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	316	502	
==>rm.so

  [defs]
  p new_field i i i i i i

  [lib]
  libncurses.so

  [defs]
  i is_term_resized i i

Note that the assembly file is generated in the order you specify, so
if there are li <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	9821	9955	
==>ributed by Graham Barr
  my($self, $titlename, %options) = (@_);
  
  my $max_token            = delete $options{'max_token'};
  my $de <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	9746	9900	
==>'.local string ';
		$dest_locals .= "dest$_";
		$mv->{"DEST$_"} = "dest$_";
	}

    # Emit the translator PIR.
    my $pir = <<TRANSPIR;
# THIS IS A GENERA <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	281	430	
==>BUG
          : sub() {0}
      }

use Text::Wrap 98.112902 ();
$Text::Wrap::wrap = 'overflow';
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/config/auto/perldoc.pm	1313	1495	
==>t('no');
    }
    unlink "c99da7c4.tmp";

    $conf->data->set(
        has_perldoc => $version != 0 ? 1 : 0,
        new_perldoc => $version == 2 ? 1 : 0
    );

    return $self;
} <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	1894	2064	
==>$self->{DONT_WRAP} = 0;
    
    while ( $token = $self->get_token )
    {
        $type = $token->type;
        
        if ( $type eq 'start' ) 
        {
            $s <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8952	9131	
==>4
#DBG>		and	print STDERR "Forced Error recovery.\n";

            $$check='';

        };

        #Error
            $$errstatus
        or   do {

            $$errst <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8550	8718	
==>4
#DBG>		and	print STDERR "Forced Error recovery.\n";

            $$check='';

        };

        #Error
            $$errstatus
        or   do {

            $$errst <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685833	686145	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	686722	687034	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ], <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621231	621459	
==>ctx;\n    if (src_pc) {\n\tsrc_pred = (void**) src_pc - caller_ctx->pred_offset;\n\tsig = (PMC*)(src_pred[1]);\n    }\n    else {\n\tsig = NULL;\n\tsrc_pred = NULL;\t/* just for gcc */\n    }\n    lru = &mic->lru;\n    if (lru->u <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	14283	14404	
==>tents);
}

=head2 gen_super_meths($class, $vtable)

Generate a list of inherited methods for I<$class> by searching the
in <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	25100	25402	
==>_end( $scratch = 'Document' );
      next; # Hasta la byebye
    }


    # ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
    #~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
    if(grep $_->[1]{'~ignore'}, @$curr_open) {
      DEBUG > 1 and
       pri <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2242	2354	
==>ub e2charnum {
  my $in = $_[0];
  return undef unless defined $in and length $in;
  
  # Convert to decimal:
  i <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	8551	8663	
==>ecks($t, $guarantee, $follow_min);

    } elsif ($type eq 'seq' && $t->{add_check_visited}) {
        my ($kid_fo <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserToken.pm	1709	1820	
==>se methods:

=over

=item $token->type

This returns the type of the token.  This will be either the string
"sta <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349154	349246	
==>reter, {{\@2}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, \"+<\");\n  /* string_cstri <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350156	350248	
==>reter, {{\@2}});\n\n  {{\@1}} = PIO_open(interpreter, NULL, path, \"+<\");\n  /* string_cstri <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954290	954522	
==>n  {{\@1}} = Parrot_encoding_number_of_str(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955081	955313	
==>n  {{\@1}} = Parrot_encoding_number_of_str(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4685	4823	
==>->emit("  $dest = $left $op $right");
  }

  if (($dest_ident->kind eq 'var') and ($dest_ident->scope eq 'global')) {
    my $pmc_type = $d <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	441	594	
==>le()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $kind        = $self->kind;
  my $peer        = $self->peer;

  my $prefix;

  if ( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	421	574	
==>le()
#

sub compile
{
  my $self = shift;
  my ($compiler) = @_;

  my $kind        = $self->kind;
  my $peer        = $self->peer;

  my $prefix;

  if ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712014	712341	
==>" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 799,
                  "ARGS" => [
                              "n"
                            ],
                  "BODY" => "#line 59 \"src/ops/python.ops\"\n  PMC * const io = PIO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	780470	780740	
==>,
                  "ARGS" => [
                              "p",
                              "ki",
                              "s"
                            ],
                  "BODY" => "#line 387 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_string_keyed_int(i <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	48779	48886	
==>correct specification of a repeated directive",
					       $line);
					_hint("Repeated directives cannot h <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	334	559	
==>EBUG = defined(&Pod::Simple::DEBUG)
          ? \&Pod::Simple::DEBUG
          : sub() {0}
      }

use Text::Wrap 98.112902 (); # was 2001.0131, but I don't think we need that
$Text::Wrap::wrap = 'overflow';
#~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	216	342	
==>EBUG = defined(&Pod::Simple::DEBUG)
          ? \&Pod::Simple::DEBUG
          : sub() {0}
      }

use Text::Wrap 98.112902 () <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	7536	7780	
==>//
                and return $parser->_Identifier($1);

            s/^(\.\.\.)//
                and return ( $1, $1 );
            s/^(\.\.)//
                and return ( $1, $1 );
            s/^(<=)//
                and return ( $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	924451	924729	
==>ringrep_one, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	925242	925520	
==>ringrep_one, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tests.pm	114	275	
==>31.111564Z bernhard  $

=head1 NAME

Parrot::Docs::Section::Tests - Tests documentation section

=head1 SYNOPSIS

	use Parrot::Docs::Section::Tests;

=head1 DESCR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957580	957709	
==>al_exception(interpreter, NULL, 1,\n\t\"encoding '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958485	958614	
==>al_exception(interpreter, NULL, 1,\n\t\"encoding '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "L <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21606	21697	
==>self->_constant(1);
  my $temp = $self->_generate($node->{children}[1]);
  $self->_add_inst( <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21991	22082	
==>self->_constant(1);
  my $temp = $self->_generate($node->{children}[1]);
  $self->_add_inst( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	651939	652285	
==>{
                  "JUMP" => 0,
                  "NAME" => "get_repr",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 729,
                  "ARGS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848216	848306	
==>" => "#line 78 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@1}}, {{\@2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848996	849086	
==>" => "#line 78 \"src/ops/string.ops\"\n  {{\@1}} = string_chopn(interpreter, {{\@1}}, {{\@2 <==
2	/Users/nnunley/parrot/languages/pugs/t/pmc.pm	181	289	
==>rot::Test 'no_plan';
use Test::More;

sub import {
    my $class = shift;

    my (undef, $file, undef) = cal <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	4837	5001	
==>} elsif ($meta{pkgconfig}) {
        # For the time being this is hardcoded as being installed under libdir
        # as it is typically donw with automake installed <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	19473	19583	
==>hildren
      DEBUG > 3 and print " Considering child at $i ", pretty($treelet->[$i]), "\n";
      if($nixx and <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	93309	93399	
==>"src/ops/bit.ops\"\n  string_bitwise_and(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	94089	94179	
==>"src/ops/bit.ops\"\n  string_bitwise_and(interpreter, {{\@1}}, {{\@2}}, &{{\@1}});\n  {{+=3 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	924	1036	
==>name, val)
# O (fail)
# O (nop)

sub compile {
    my ($self, $expr, $ctx) = @_;
    my ($vals, $types) = Regex:: <==
2	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1315	1464	
==>ug "error: " . $resp->content . "\n";
      exit 1;
    }
  } else {
    debug "error: " . $resp->status_line . "\n";
    exit 1;
  }
}

sub usage { p <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9892	9990	
==>xists($$states[$$stack[-1][0]]{ACTIONS})
			        or  not exists($$states[$$stack[-1][0]]{ACTION <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9446	9543	
==>xists($$states[$$stack[-1][0]]{ACTIONS})
			        or  not exists($$states[$$stack[-1][0]]{ACTION <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	5904	6089	
==>_all' ) {
        return $self->skip_all($arg);
    }
    elsif( $cmd eq 'tests' ) {
        if( $arg ) {
            return $self->expected_tests($arg);
        }
        elsif( !define <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	2324	2432	
==>elf->new_item('A list of some of people who have contributed to Parrot.', 'CREDITS'),
        ),
        $sel <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	21170	21304	
==>No_Ending} = $no_ending;
    }
    return $self->{No_Ending};
}


=back

=head2 Output

Controlling where the test output goes.

It's o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	310284	310399	
==>B_set_break(interpreter,NULL);\n        while (!(interpreter->pdb->state & PDB_EXIT)) {\n            PDB_get_command <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	1221	1383	
==>argument passes a value out of the op
    inout         the argument passes a value into and out of the op
    inconst       the argument passes a constant value i <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	1839	1987	
==>>$inc.tmp" or die "Can't write $inc.tmp";
                print INC "/*\n" if $inc =~ /\.h/;
                print INC <<"EOF";
# DO NOT EDIT THIS FI <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11895	12036	
==>ay"
	a$="Hello"
end function
t$="Not me"
e$=a$(t$)
print t$

' references to references, expect 99
function last(t)
	t=99
	last=0
end function <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	13876	13973	
==>$index) = @_;

    return(($ptr eq '&' ? '&' : '') . sprintf($argmaps{$type_to_arg{$type}}, $index <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	3313	3450	
==>svn_id
{
    my $self = shift;
    my $content = $self->read;
    # Break up the $Id to prevent svn messing with it.
    my $has_id = $con <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	592	697	
==>L;

use strict;
use warnings;

use base qw( Pod::Simple::HTML );

# This is just here to keep Pod::Simple: <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	54764	54896	
==>$_[2], $_[3] );
        }
	],
	[#Rule 71
		 'exp', 3,
sub
#line 393 "Lua\lua51.yp"
{
            BuildLogop( $_[0], $_[1], $_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6800	6941	
==>o {
#DBG>					print STDERR "**End of Error recovery.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push(@$stack,[ $ac <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6484	6618	
==>o {
#DBG>					print STDERR "**End of Error recovery.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push(@$stack,[ $ac <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	18640	18784	
==>sion()>

Returns the minor version number.

=cut

sub minor_version
{
    my $self = shift;

    $self->{VERSION} =~ m/^\d+\.(\d+)\./;

    retur <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	1721	1814	
==>o"
a=foo(99, fool$())

' String Arrays, expect "One"
dim g$()
g$(5)="One"
g$(6)="Two"
print g$ <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	10637	10745	
==>sting Functions

- `use_ok (Str $module, Bool :$todo, Str :$depends) returns Bool`

*NOTE:* This function cur <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	23174	23292	
==>g title <$title>\n" }
    else { print "Returning title <>\n" }
  }
  
  return '' unless defined $title;
  return $tit <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	35998	36179	
==>78,
			"*" => 80,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -71
	},
	{#State 139
		ACTIONS => <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	36256	36415	
==>78,
			"*" => 80,
			"<=" => 85,
			">" => 86,
			".." => 71,
			"~=" => 73,
			"+" => 75,
			"^" => 79,
			"/" => 82
		},
		DEFAULT => -72
	},
	{#S <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	948	1042	
==>(i) REG_NUM(cur_opcode[i])
#define PREG(i) REG_PMC(cur_opcode[i])
#define SREG(i) REG_STR(cur_o <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1064	1158	
==>(i) REG_NUM(cur_opcode[i])
#define PREG(i) REG_PMC(cur_opcode[i])
#define SREG(i) REG_STR(cur_o <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20646	20787	
==>aop('ge', [ $matchcount, $max, $rfail ]),
               @R_ops,
               aop('add', [ $matchcount, 1 ]),
     $check => aop('lt', [ $ma <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	9426	9600	
==>bol" : "local_$symbol";
			} else {
			    $show .= $global ?
				$symbol : lc $symbol;
			}
		    }
		    print $show, "\n";
		}
	    }
	}
	close(NM);
    } else {
	warn "$ME <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	261	360	
==>IPTION

A Perl implementation of the F<examples/mops/mops.pasm> example program,
for speed compariso <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	257	356	
==>IPTION

A Perl implementation of the F<examples/mops/mops.pasm> example program,
for speed compariso <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031434	1031536	
==>/ops/sys.ops\"\n    if ({{\@2}} < enum_first_type || {{\@2}} >= enum_last_type)\n        {{\@1}} = -1;\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032303	1032405	
==>/ops/sys.ops\"\n    if ({{\@2}} < enum_first_type || {{\@2}} >= enum_last_type)\n        {{\@1}} = -1;\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	476261	476567	
==>den;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fdiv" <==
2	/Users/nnunley/parrot/lib/Test/More.pm	4507	4676	
==>w_Diag = 0;
        }
        else {
            push @cleaned_plan, $item;
        }

        $idx++;
    }

    $Test->plan(@cleaned_plan);
}

sub import {
    my($clas <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	1505	1609	
==>!!!!!
 *
 * This file is generated automatically from '$infile'
 * by $0.
 *
 * Any changes made here wil <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	3794	3898	
==>!!!!!
 *
 * This file is generated automatically from '$infile'
 * by $0.
 *
 * Any changes made here wil <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10054	10167	
==>nf->options->get('verbose');

    if (defined($_[0]) && length($_[0])) {
        local $" = ' ';
        _run_comm <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	10635	10748	
==>nf->options->get('verbose');

    if (defined($_[0]) && length($_[0])) {
        local $" = ' ';
        _run_comm <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	47245	47351	
==>my($self, $para, $start_line) = @_;
  my $treelet = ['~Top', {'start_line' => $start_line},];
  
  $para =~ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	338	490	
==>guration step itself is NOT an instance of this
class, rather it is defined to be in the C<package> C<Configure::Step>. See
F<docs/configuration.pod> for <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	9873	10045	
==>endering - only used for debugging for now
########################################################################

package Regex::Ops::Tree; # Won't get used much

sub nee <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	438561	438857	
==>atch_p_ppp(interpreter, {{\@3}}, {{\@4}}, {{\@2}}, {{\@1}});\n  {{+=5}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	311	495	
==>sc);

    perl6_stdout_isnt($code, qr/$expected/, $desc);

=head1 DESCRIPTION

This module provides Perl6 test functions. It has been heavily refactored
from Parrot::Test. Hopefully,sim <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	7347	7436	
==>jit_vtable_112_op Parrot_jit_normal_op
#define Parrot_jit_vtable_221_op Parrot_jit_normal_ <==
2	/Users/nnunley/parrot/languages/lua/luac.pl	714	868	
==>)
{
    my $nb = $parser->YYData->{nb_warning};
    print "$nb warning(s).\n";
}
if ( $parser->YYData->{verbose_info}
    and exists $parser->YYData- <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	5439	5574	
==>H} "$_->{symbol}";
                if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                    print {$FH} " :slurpy" <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	6471	6606	
==>H} "$_->{symbol}";
                if ( exists $_->{pragma} and $_->{pragma} eq 'multi' ) {
                    print {$FH} " :slurpy" <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	60329	60445	
==>cess, the C<$@> variable is guaranteed to be C<undef>.

The available diagnostics are:

=over 4

=item  C<Did not fin <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	38838	38953	
==>=E<gt> $str>

The C<fail> option indicates the action to be taken if a matching end
tag is not encountered (i.e. bef <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33841	33986	
==>llowing ", $paras->[0][0], "\n";
              push @$para, '';  # Just so it's not contentless
            }
          }


        } elsif($over_ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	28470	28573	
==>e.
		$pir .= "### typeinfo\n";
		$pir .= sub_meta($rule->{'typeinfo'}, $mv, 
			"typeinfo for rule $rule <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	25285	25378	
==>* const p = {{\@1}};\n  dest = {{^+2}};\n  interpreter->current_cont = CONTEXT(interpreter->ct <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	6159	6313	
==>L_FMT ": %s\n", i, argv[i]);
        }

        userargv->vtable->push_string(interpreter, userargv, arg);
    }

    runops(interpreter, 0);
/*
    run_co <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2591	2700	
==>below, "
	    ."marked with \"#=#=#=\".\n";
    } else {
	print "Run this script with --plus-misses, and a sec <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	14954	15062	
==>t()
    eh_flags = eh.get_flags()
    if eh_flags != 0 goto NOT_TYPED_EH_START
    if handler_offset != pc go <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	25940	26081	
==>m_class_default);
EOC
    }
    if (scalar @mmds) {
        $cout .= <<"EOC";
#define N_MMD_INIT (sizeof(_temp_mmd_init)/sizeof(_temp_mmd_init <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	28646	28792	
==>treelet->[$i]}\n";
        
      # bitch UNLESS it's empty
      unless(  @{$treelet->[$i]} == 2
           or (@{$treelet->[$i]} == 3 and $treele <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	20892	21083	
==>eak.\n";
            }
          }
        }
      }
    }
  }
  DEBUG > 2 and print "End of _wrap_up traversal.\n\n";

  return;
}

#:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	804248	804343	
==>"src/ops/set.ops\"\n    {{\@1}}->vtable->set_pmc_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805149	805244	
==>"src/ops/set.ops\"\n    {{\@1}}->vtable->set_pmc_keyed(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\ <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	2080	2211	
==>y.
    my $fdecls = $c->get('fdecls');
    foreach my $fdecl (@$fdecls) {
        next unless ($fdecl =~ /\n/);
        my ($firstli <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	4	103	
==>Type.pm
#
# Copyright (C) 2002-2005, The Perl Foundation.
# This program is free software. It is sub <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	5500	5604	
==>provided that the implementation is working correctly.  The same
checksum can also be calculated in OO st <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	53615	53758	
==>hen extraction continues until I<N> fields
have been successfully extracted, or until the string has been completely 
processed.

Note that in s <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	2313	2435	
==>d
vtable array.

=cut

sub vtbl_defs {
    my $vtable = shift;

    my $defs = q{};
    my $entry;

    for $entry (@{$vtab <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	113792	114023	
==>"
                            ],
                  "BODY" => "#line 204 \"src/ops/bit.ops\"\n  {{\@1}} <<= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Rx.pm	561	706	
==>, $failLabel";
    } elsif ($distance =~ /\D/) {
        die "Unimplemented: variable-length advances with rx backend";
    } else {
        retur <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	335696	336024	
==>filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 393,
                  "ARGS" => [
                              "p" <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	10828	10982	
==>sizablepmcarray.pmc resizablestringarray.pmc scalar.pmc slice.pmc super.pmc undef.pmc',
             'pmc_names' => 'Null Env Key Random UnManagedStruct Ma <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	4094	4203	
==>turn aop('if', [ $op1, $test, $op2, $dest ]);
    } else {
        my $testop = rop('test', [ $op1, $rev_test, <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	41762	41974	
==>opy[1] }};
    #$copy[1]{'start_line'} = -1;
    if($copy[0] eq '=for') {
      $copy[0] = '=end';
    } elsif($copy[0] eq '=over') {
      $copy[0] = '=back';
    } else {
      die "I don't know how to auto-clos <==
2	/Users/nnunley/parrot/lib/Test/More.pm	20496	20628	
==>, tests.

It's important that $how_many accurately reflects the number of tests
in the SKIP block so the # of tests run will match up <==
2	/Users/nnunley/parrot/config/auto/jit.pm	9	99	
==>ht (C) 2001-2006, The Perl Foundation.
# $Id: /parrot/config/auto/jit.pm 20320 2006-06-20T1 <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27952	28091	
==>$temp);
    }
  }
  return $return;
}

sub _op_abs {
  my ($self,$node) = @_;
  my $return;
  my $label     = $self->_gensym();

  $return = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	1052	1168	
==>rn ${$_[0]};
}

sub PRINTF {
  my $it = shift;
  my $format = shift;
  $$$it .= sprintf $format, @_;
  return 1;
}

s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4965	5107	
==>_ident);
      my $name = $ident->value;

      #
      # Allow there to be Properties:
      #

      my %props;

      while ($self->skip_col <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	7959	8101	
==>_ident);
      my $name = $ident->value;

      #
      # Allow there to be Properties:
      #

      my %props;

      while ($self->skip_col <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2359	2478	
==>r}) {
					push(@saves, $var);
				}
			}
			if (@saves) {
				$edit.=qq{\tfind_global _GLOBALS, "COMMON"\n};
				foreac <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2768	2887	
==>r}) {
					push(@saves, $var);
				}
			}
			if (@saves) {
				$edit.=qq{\tfind_global _GLOBALS, "COMMON"\n};
				foreac <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	3981	4083	
==>lowing C::Scan parse errors occurred.\nYou can generally ignore them:\n";
#    foreach (sort keys %all_ <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	6052	6342	
==>mp;
            
            my ($type, $symbol) = /^........ (\S) (.*)/;
            
            if ($type eq 'U') {
                $defined_in{$symbol} ||= undef;
		push @{$referenced_in{$symbol}}, $obj;
            } else {
                $defined_in{$symbol} .= "$obj ";
            } <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39375	39548	
==>lt,
    );
    push @opcodes1, new ConstDir( $parser,
        'result' => $fct,
        'arg1'   => $fct->{symbol},
        'type'   => 'Sub',
    );
    push @opcodes <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	5035	5177	
==>new(
        $file, $line, 'infix-bit', undef, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^( == | >= | <= | != | < | > )(.*)$ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	19199	19315	
==>chcount, $min, $local_back ]),
      $next => $self->op_save_rxlocals($op),
              );

    return ($back, @ops <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	20789	20905	
==>chcount, $min, $local_back ]),
      $next => $self->op_save_rxlocals($op),
              );

    return ($back, @ops <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	2661	2855	
==>is is the only place they ought to have to be put
   in, and most of the functions are already written, so it's not
   like it's an onerous requirement.

*/

#include "parrot/parrot.h"
#include " <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	2470	2673	
==>//
                and $str .= "\t",      # horizontal tab
                last;
            s/^\\v//
                and $str .= "\x0b",    # vertical tab
                last;
            s/^\\([0 <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	3984	4187	
==>//
                and $str .= "\t",      # horizontal tab
                last;
            s/^\\v//
                and $str .= "\x0b",    # vertical tab
                last;
            s/^\\([0 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	3618	3800	
==>y now are all
		# the contents guaranteed to be instances.
		# Remember that this method is also used by section.
		
		$content->set_parent($self);
	}
	
	return @contents;
}

=back

= <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8354	8475	
==>model of a modern";tab$(15);"More"
print "Hello","Again",d
dim c$(1)
for i = 1 to 20 : read c$(i) : next
print
for i = 1 t <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21218	21339	
==>model of a modern";tab$(15);"More"
print "Hello","Again",d
dim c$(1)
for i = 1 to 20 : read c$(i) : next
print
for i = 1 t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1003428	1003657	
==>ic",
                              "sc",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string <==
2	/Users/nnunley/parrot/config/auto/jit.pm	3904	4063	
==>0;
            }
        }
        $execcapable = $conf->options->get('execcapable')
            if defined $conf->options->get('execcapable');
        if ($exe <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	1388	1562	
==>ess and most of that probably stolen from Test::Harness

Please send patches and bug reports via Parrot's RT queue or to the mailing
list.

=cut

package Parrot::Test::Harness <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4275	4396	
==>$group_libs->{$group}, [ "lib-$group", @$pmcs ] )
          or die "partial link of $group failed ($?)\n";
    }

    # Li <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4379	4500	
==>$group_libs->{$group}, [ "lib-$group", @$pmcs ] )
          or die "partial link of $group failed ($?)\n";
    }

    # Li <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9726	9869	
==>(rnd())
print str$(rnd(1))


' Expect Hello A World
print "Hello " + chr$(65);
print " World"

' Expect nothing
Dim A(10)
z=3
c=c+a(z)

' String <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	43113	43263	
==>abel;
    }
    $self->{code} .= "\n";
  }
}

sub new {
  my $class = shift;
  my $tree  = shift;
  my $self = {
    tree     => $tree,
    regs     => <==
2	/Users/nnunley/parrot/config/init/defaults.pm	1922	2043	
==>nix-ish systems.
        # VMS and Win32 might use "Link".
        # Perl5's Configure doesn't distinguish linking from lo <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	1440	1595	
==>e eq 'global')) {
    my $imcc_code = $type->code();
    my $temp_reg = $compiler->temp_reg($imcc_code);

    my $pmc_type = $type->imcc_pmc();
    my $temp <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7899	8022	
==>eg) = @_;
    $reg = value($reg);
    return ("restore $reg", "save $reg");
}

use vars qw($DEBUG_LABEL);
sub output_popinde <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	31358	31498	
==>sub _op_read {
}

sub _op_read_char {
}

sub _op_peek_char {
}

sub _op_eof_object_p {
}

sub _op_char_ready_p {
}

sub _op_write {
  my ($se <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	17501	17695	
==>et_source( \@document_lines )

=back

Or you can call these methods, which Pod::Simple::PullParser has defined
to work just like Pod::Simple's same-named methods:

=over

=item $parser->parse_fil <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1711	1975	
==>, N5, N1
                              #
print "Elapsed time:  $N2\n"; # print  "Elapsed time:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1711	1975	
==>, N5, N1
                              #
print "Elapsed time:  $N2\n"; # print  "Elapsed time:  "
                              # print  N2
                              # print  "\n"
                              #
$N1 = $I5;                    # iton   N1, I5
$N1 <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	29882	30066	
==>= pop @stack;
    my $w = pop @stack;
    my $x = pop @stack;
    push @stack, $v;
    push @stack, $x;
    push @stack, $w;
}

sub ROT_TWO
{
    my ($n, $c, $cmt) = @_;
    print "\t\t <==
2	/Users/nnunley/parrot/config/auto/format.pm	855	985	
==>d";
    } elsif (($iv eq "long long") || ($iv eq "long long int")) {
        $ivformat = "%lld";
    } else {
        die "Configur <==
2	/Users/nnunley/parrot/lib/File/Which.pm	4557	4667	
==>.BAT;.COM;.JS;.VBS> etc. If C<File::Which> finds such an
environment variable, it parses the list and uses it a <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	13335	13513	
==>arg1'   => $key->[0],
                    'arg2'   => undef,
                    'result' => $result,
                );
                return [ $result, \@opcodes, $assign ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846249	846637	
==>core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 960,
                  "ARGS" => [
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 56 \ <==
2	/Users/nnunley/parrot/config/init/headers.pm	120	223	
==>bernhard  $

=head1 NAME

config/init/headers.pm - Nongenerated Headers

=head1 DESCRIPTION

Uses C<ExtU <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2473	2556	
==><examples/mops/mops.il>,
F<examples/mops/mops.p6>,
F<examples/mops/mops.ps>,
F<examp <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	2473	2556	
==><examples/mops/mops.il>,
F<examples/mops/mops.p6>,
F<examples/mops/mops.ps>,
F<examp <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	15055	15175	
==>eturn=\$item[-1]; }
			       undef;", $lookahead, $line,"<score: $code>") )
		unless $self->{items}[-1]->describe =~ /<s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type.pm	411	530	
==>ub { $_[0]->code ne $_[0]->code },
  "eq"  => sub { $_[0]->code eq $_[0]->code },
  "ne"  => sub { $_[0]->code ne $_[0]- <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	4372	4507	
==>[^%]+)% of (\d+) branches taken at least once in file/;
            if ($total_branches) {
                my $covered_branches = int(($ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1767	1880	
==>t ptest.pod
  
  =head1 PIE
  
  I like B<pie>!
  
  % perl -MPod::Simple::SimpleTree -MData::Dumper -e \
     "pr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	229	400	
==>TION

This is an autogenerated file, created by F<tools/build/ops2pm.pl>.

It contains Parrot version info, a preamble for inclusion in C code,
and an array of C<Parrot::Op <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	39764	39905	
==>{
        my @opcodes = ();
        my $main = new defn( '_main', 'fct' );
        push @opcodes, new SubDir( $parser,
            'prolog <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	48513	48868	
==>h of the necessary complex end-code string
      } else {
        DEBUG > 3 and print "Found simple start-text code \"$1\"\n";
        push @stack, 0;  # signal that we're looking for simple
      }
      push @lineage, [ substr($1,0,1), {}, ];  # new node object
      push @{ $lineage[-2] }, $lineage[-1];
      
    } elsif(defined $3) {
      DEBUG > 3 <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	94	195	
==>5-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/gmp.pm - Test for GNU MP (GMP) Math library

= <==
2	/Users/nnunley/parrot/config/auto/pack.pm	45	148	
==>n.
# $Id: /parrot/config/auto/pack.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/aut <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223612	223732	
==>able->get_integer(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224554	224674	
==>able->get_integer(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	2586	2759	
==>ple::DumpAsXML is a subclass of L<Pod::Simple> that parses Pod
and turns it into indented and wrapped XML.  This class is of
interest to people writing Pod formatters based o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	488961	489357	
==>",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 560,
                  "ARGS" => [
                              "i",
                              "n"
                            ],
                  "BODY" => "#line 512 \"src/ops/ma <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	922312	922672	
==>base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1038,
                  "ARGS" => [
                              "p",
                              "p <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	1900	2002	
==>tem $cmd;

print "we are skipping $total_skipped total tests.\n";
print "(-clock ($clock_skipped) -depr <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	35808	35942	
==>eturn $desc;
}

sub callsyntax($$)
{
	if ($_[0]->{matchrule})
		{ return "sub { goto &{''.qq{$_[1]$_[0]->{subrule}}} }"; }
	else
		{ re <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24817	24948	
==>.
	($result, $type, @code)=EXPRESSION({ lhs => 1, assign => 1});
	push @{$code{$seg}->{code}}, @code;

	die "TO expected at source l <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	36059	36187	
==>lar species of quote character is included in the
delimiter specification, then that type of quote will be correctly handled.
for <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	4344	4478	
==>urns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto(1, $desc, :$todo);
    }
    else {
        Test::procla <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	10924	11044	
==>1,10)=1..9 with [4,x]=4..x and [10,x]=10..x
            if ($incexc[-1] <= $last+1) {
                $incexc[-1] = $last <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3601	3696	
==>ndatory,$checklist,$inarray,$outhash)=@_;
	my($prm,$value);
	my($prmlst)={};

	while(($prm,$ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3413	3504	
==>ndatory,$checklist,$inarray,$outhash)=@_;
	my($prm,$value);
	my($prmlst)={};

	while(($prm,$ <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4154	4270	
==>ROUP.so + A.so + B.so ... -> GROUP.so
    while (my ($group, $pmcs) = each %$group_files) {
        partial_link($gro <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4258	4374	
==>ROUP.so + A.so + B.so ... -> GROUP.so
    while (my ($group, $pmcs) = each %$group_files) {
        partial_link($gro <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	12664	12850	
==>P_SIZE            {{^S}}   S             op size
        #
        #   HALT()             {{=0}}   PC' = 0       Halts run_ops loop, no resume
        #
        #   restart OFFSET(X)  {{= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	78961	79060	
==>\@3}}));\n\n  void * const p = Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? NULL : PMC_data({{\@2}}), name);\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80482	80581	
==>\@3}}));\n\n  void * const p = Parrot_dlsym(PMC_IS_NULL({{\@2}}) ? NULL : PMC_data({{\@2}}), name);\ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	1049	1277	
==>p was labeled.

TODO: Do we really need KIND, since we have subclasses?

=cut

sub new
{
  my $class  = shift; # Required: string
  my $block  = shift; # Optional: Jako::Construct::Block
  my $kind   = shift; # Required: string ( <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	55839	55938	
==>se of a subroutine extractor), it is
assumed to have failed to extract.
If none of the extractor sub <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	665	795	
==>func"} = sub ($$;$) {
        my $self = shift;
        my ( $code, $output, $desc ) = @_;
  
        my $count = $self->{builder}- <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1032	1162	
==>func"} = sub ($$;$) {
        my $self = shift;
        my ( $code, $output, $desc ) = @_;
  
        my $count = $self->{builder}- <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	38014	38124	
==>umber of lines, C<$out_name> is the name of the output file we are
generating.

The C<delegate> PMC redirects a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	709437	709767	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_mro",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "C <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	961476	961978	
==>GDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1082,
                  "ARGS" => [
                              "s",
                              "sc",
                              "i"
                            ],
                  "BODY" => "#line 595 \"src/ops/string.ops\"\n  STRING *dest = new_string_header(interp <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	22002	22140	
==>through" the failure.

    return ok(...) || diag(...);

=for blame transfer
Mark Fowler <mark@twoshortplanks.com>

=cut

sub diag {
    my <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1265	1372	
==>ntaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
dec ${ITEMP0}
${PT <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	2975	3082	
==>ntaining.
	for (1..$pops) {
		$pir .= <<'PIR';
# Get type (so we can find register type).
dec ${ITEMP0}
${PT <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15418	15535	
==>ds
for i = 0 to 10 step 2
	print i,
next i
print
for i = 10 to 3 step -1
	print i
next i
print

' For loops.  3..6 nes <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	675581	676008	
==>"NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 757,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#l <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	28594	28706	
==>_NO_HITEM ? ''
			       : '$item{'.$self->{hashname}.'}=') . '$&;
		' . ($self->{"lookahead"} ? '$text = $_savet <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	30672	30784	
==>_NO_HITEM ? ''
			       : '$item{'.$self->{hashname}.'}=') . '$&;
		' . ($self->{"lookahead"} ? '$text = $_savet <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	2494	2604	
==>amed

  if($in =~ m/^\d+$/s) {
    return 0 + $in;
  } else {
    return $Name2character_number{$in}; # returns <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	4957	5056	
==>BUG and print "That's it for that source arrayref!  Killing.\n";
        $self->SUPER::parse_lines(u <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1895	2004	
==>ication of objects of this class;
they stringify to just the text content of the section,
such as "foo" for
C< <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9761	9909	
==>,0x6d9d6122,/* 35 */
HH,$b,$c,$d,$a,$_[18],23,0xfde5380c,/* 36 */
HH,$a,$b,$c,$d,$_[5],4,0xa4beea44,/* 37 */
HH,$d,$a,$b,$c,$_[8],11,0x4bdecfa9,/* 38 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29759	29866	
==>free the context immediately, but not if the\n\t   sub created a closure (or continuation, or . . .).  */\n\ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	30941	31050	
==>trymatch, $backup, $num_groups ]);

    my @declarations;
    while (my ($var, $type) = each %{ $self->{_temps <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	851203	851639	
==>DIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 966,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 83 \"sr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168522	168644	
==>}}->vtable->get_integer(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169464	169586	
==>}}->vtable->get_integer(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	168540	168722	
==>teger(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	169482	169664	
==>teger(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	1113	1217	
==>o small (", MANY_LINES(), ")!\nAborting";
  }
  if(defined &UNICODE) { }
  elsif($] >= 5.008)   { *UNICOD <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	52099	52217	
==>sub stringify_lol {  # function: stringify_lol($lol)
  my $string_form = '';
  _stringify_lol( $_[0] => \$string_form ) <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	960	1084	
==>Parrot interpreter.

=head1 COMMAND-LINE OPTIONS

=over 4

=item C<--debug>

Increase debug level

=item C<--verbose>

Increa <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	16845	16997	
==>ad1 METHODS

=over

=item my $token = $parser->get_token

This returns the next token object (which will be of a subclass of
L<Pod::Simple::PullParserTok <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	8020	8177	
==>lex.h
cabsf       complex.h
cabsl       complex.h
cacos       complex.h
cacosf      complex.h
cacosh      complex.h
cacoshf     complex.h
cacoshl     complex. <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	4458	4591	
==>'t go into infinite loop)
# This is sometimes a runtime property.
sub rewrite_multi_match {
    my ($self, $op, $min, $max, $greedy, $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	623020	623174	
==>c;\n    int n;\n\n    ctx = CONTEXT(interpreter->ctx);\n    mic = (Parrot_MIC *) cur_opcode[1];\n    ccont = ctx->current_cont;\n    cc = PMC_cont(ccont);\ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	2358	2466	
==>:Identifier->compile2($compiler, $self->block, $ident, $sym->kind, $sym->scope, $sym->type);

      $self->SY <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	284691	284862	
==>",
                              "s"
                            ],
                  "BODY" => "#line 913 \"src/ops/cmp.ops\"\n  {{\@1}} = string_compare(interpreter, {{\@ <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	2953	3240	
==>{desc}\n";
	} else {
	    print "( $info->{path} )\n";
	    push(@no_descriptions,$info);
	}
    }
    print "\n\n";
    if($show_full) {
	print "\n".("#="x35)
	    ."\n\nFiles from which descriptions were not obtained:\n\n";
	foreach (@no_descriptions) {
	    my $top = $_->{top};
	    $ <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	2429	2520	
==>es/mops/mops.c>,
F<examples/mops/mops.cs>,
F<examples/mops/mops.il>,
F<examples/mops/mops.p6 <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	2429	2520	
==>es/mops/mops.c>,
F<examples/mops/mops.cs>,
F<examples/mops/mops.il>,
F<examples/mops/mops.p6 <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	3091	3189	
==>ically generated by config/gen/core_pmcs.pm

package Parrot::PMC;

use strict;
use warnings;

use v <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	35	133	
==>ically generated by config/gen/core_pmcs.pm

package Parrot::PMC;

use strict;
use warnings;

use v <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9567	9700	
==>e =~ m/^[-\.0-9]/s
        or $new_code =~ m/:[-\.0-9]/s;
            # The legal under-0x80 Name characters that 
            #  an X <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10831	10964	
==>e =~ m/^[-\.0-9]/s
        or $new_code =~ m/:[-\.0-9]/s;
            # The legal under-0x80 Name characters that 
            #  an X <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34221	34428	
==>->{"lookahead"} ? '$_savetext = $text;' : '' )
		. ($self->{"lookahead"}<0?'if':'unless')
		. ' (defined ($_tok = '
		. $self->callsyntax($namespace.'::')
		. '($thisparser,$text,$repeating,'
		. ($self->{"lo <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8032	8138	
==>there was no match.
    push result, not_found

    goto loop_two 
loop_two_end:

    .return (result)
.end <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	2468	2568	
==>=~ /MMD_/);
        my $args = join(", ", 'Interp* interpreter', 'PMC* pmc', split(/\s*,\s*/, $entry- <==
2	/Users/nnunley/parrot/tools/dev/symlink.pl	606	707	
==>e($self);
my $toolsrcbase = basename($self);

use vars qw($v);

if ($toolsrcdir ne '' && -d $toolsrcdi <==
2	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1067	1240	
==>f $self, "' in '",
            ref $visitor, "'.\n";
        return undef;
    }

}

package UnaryOp;
use base qw(Lua::opcode);

package BinaryOp;
use base qw(Lua: <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	2099	2210	
==>tination)",
#      B => "Buffer *final_destination = new_buffer_header(interpreter);\nPObj_external_SET(final_de <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	656351	656467	
==>,
                  "BODY" => "#line 324 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	657275	657391	
==>,
                  "BODY" => "#line 324 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable- <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	14485	14642	
==>stop reading now stop reading now stop reading now stop reading now stop
##
##                         HERE IT BECOMES REALLY SCARY
##
##  stop reading now st <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	744852	745082	
==>CODE" => 838,
                  "ARGS" => [
                              "s",
                              "nc"
                            ],
                  "BODY" => "#line 179 \"src/ops/set.ops\"\n  {{\@1}} = string_from_nu <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	21823	21968	
==>{'code'}\n";

        # Recurse to make code for sub branches.
        $pir .= "INS_BRANCH_$prefix$r1[$#r1]->{'code'}:\n";
        $pir .= binary_ <==
2	/Users/nnunley/parrot/languages/tcl/lib/Parrot/Test/Tcl.pm	790	930	
==>onversely, how many levels we have to go down to get to
    # the tcl binary.

    # There are basically 3 choices: run in one of:
    #  lan <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3536	3655	
==>ivate stuff #
#################


sub _CheckParams {
	my($mandatory,$checklist,$inarray,$outhash)=@_;
	my($prm,$va <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3353	3466	
==>ivate stuff #
#################


sub _CheckParams {
	my($mandatory,$checklist,$inarray,$outhash)=@_;
	my($prm,$va <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	7301	7569	
==>w+)/$1 $2_%0/gx;

        # locals
        if (%locals) {
            my $locals = join "|", keys %locals;
            $line =~ s/\b($locals)\b/$1_%0/g;
        }

        # args
        while ($line =~ s/\$(?!(?:P|S|N|I)\d+|R\b)(\w+)/a_$1/)
        {
            my $n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	258279	258591	
==>\@3}} : 0;\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "issam <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	1655	1780	
==>}->is_eq( $pirate_file, $py_file, $desc );
    $self->{builder}->diag("'$cmd' failed with exit code $exit_code")
    if $exit_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46258	46480	
==>_push_action(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "J <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	1182	1364	
==>ift(@$vals) if (@$types);
        return ('', undef);
    };
    my $parser = new Regex::Grammar;
    return $parser->YYParse(yylex => $lexer,
			    yyerror => sub {
				my $parser = <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	1167	1310	
==>igns it to the inheriting classes C<$result>
variable.  Returns the inheriting classes name.

=cut

sub set_result
{
    my ($self, $result) = @ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	44826	44961	
==>t is, the replacement of a substitution or the translation list
of a translation),

=item [9]

the right delimiter of the second block o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478773	478878	
==>=> "#line 437 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exception(i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479665	479770	
==>=> "#line 437 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@2}};\n  if ({{\@2}} == 0.0)\n    real_exception(i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009855	1010087	
==>string.ops\"\n  {{\@1}} = string_compose(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010620	1010852	
==>string.ops\"\n  {{\@1}} = string_compose(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	1154	1252	
==>arameters, all starting with YY (leading YY will be discarded)
my(%params)=(YYLEX => 'CODE', 'YYER <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	1112	1209	
==>arameters, all starting with YY (leading YY will be discarded)
my(%params)=(YYLEX => 'CODE', 'YYER <==
2	/Users/nnunley/parrot/config/auto/jit.pm	5483	5639	
==>| cc_run() !~ /ok/) {
                $conf->data->set(jit_i386 => 'fcomip');
            }
            cc_clean();
        }
    } else {
        $conf->dat <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	3542	3738	
==>->YYData->{symbtab_cst}->Insert( $type . $value, $defn );
        if ( $type eq 'key' ) {
            push @opcodes, new ConstDir( $parser,
                'prolog' => 1,
                'resul <==
2	/Users/nnunley/parrot/config/auto/format.pm	1128	1252	
==>size   = $doublesize;
        $nvformat = "%f";
    } elsif ($nv eq "long double") {

        # Stay way from long double for <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	371605	371732	
==>mpty filehandle\");\n\n    if (!(io->flags & PIO_F_LINEBUF))\n\tPIO_setlinebuf(interpreter, pio);\n    {{\@1}} = PIO_reads(inter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	240115	240216	
==>Y" => "#line 616 \"src/ops/cmp.ops\"\n  INTVAL l = VTABLE_get_integer(interpreter, {{\@2}});\n  {{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	241063	241164	
==>Y" => "#line 616 \"src/ops/cmp.ops\"\n  INTVAL l = VTABLE_get_integer(interpreter, {{\@2}});\n  {{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054377	1054471	
==>et from null namespace.\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to get null glo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055504	1055598	
==>et from null namespace.\");\n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to get null glo <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	2720	2834	
==>$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHECK}}='ACCEPT';
    und <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2596	2702	
==>$$self{CHECK}}='ABORT';
    undef;
}

sub YYAccept {
	my($self)=shift;

	${$$self{CHECK}}='ACCEPT';
    und <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019869	1019961	
==>rrot_localtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = string_from_c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1020800	1020892	
==>rrot_localtime_r(&t, &tm);\n  Parrot_asctime_r(&tm, resultbuffer);\n  {{\@1}} = string_from_c <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	5480	5609	
==>$depends);
}

sub pass (Str $desc?) returns Bool is export {
    Test::proclaim(1, $desc);
}

sub flunk (Str $desc?, :$todo, :$dep <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630462	630573	
==>ass = {{\@2}};\n    INTVAL type = pmc_type_p(interpreter, class);\n    if (type <= 0)\n        real_exception(in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631452	631563	
==>ass = {{\@2}};\n    INTVAL type = pmc_type_p(interpreter, class);\n    if (type <= 0)\n        real_exception(in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	640517	640908	
==>GS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 184 \"src/ops/pmc.ops\"\n  {{\@1}} = VTABLE_name(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	59562	59727	
==>_field_plus', 3,
sub
#line 580 "Lua\lua51.yp"
{
            [ @{ $_[1] }, $_[3] ];
        }
	],
	[#Rule 109
		 '_field_plus', 1,
sub
#line 584 "Lua\lua51.y <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9321	9444	
==>t("POPPED[\$dbg_tmp] INT: \%<$reg>$desc\n"),
                );
    } else {
        return ("$reg = pop \@<rx_stack>; # pop <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	980	1074	
==>qq[.bundle];
our $O = qq[.o];
our $CFLAGS = qq[-I/opt/local/include -fno-common -no-cpp-precomp <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	984	1078	
==>qq[.bundle];
our $O = qq[.o];
our $CFLAGS = qq[-I/opt/local/include -fno-common -no-cpp-precomp <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	928	1025	
==>eral when svn is not available).
# See docs/submissions.pod on how to recreate this file after SVN <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3783	3880	
==>eral when svn is not available).
# See docs/submissions.pod on how to recreate this file after SVN <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7084	7180	
==>instr(s1$, "")
print "Start (11): ", instr(6, s1$, " ")
print "Inval  (0): ", instr(4, bogus$, "t <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18813	18909	
==>instr(s1$, "")
print "Start (11): ", instr(6, s1$, " ")
print "Inval  (0): ", instr(4, bogus$, "t <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	2214	2316	
==>pcodes including the possible targets of ret
    # opcodes
    while ($offset + sizeof('op') <= $length <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	27703	27817	
==>[CURR] eq "BARE") {   # Variable name parameter
			$a=$syms[CURR];
			if ($syms[NEXT] eq "as") {
				feedme();  # G <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11348	11445	
==>O_RETURN_${CURIC}:

# Finished.
goto PRE_CALL_END_${CURIC}

# It's a return. See if we have a retu <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8534	8631	
==>O_RETURN_${CURIC}:

# Finished.
goto PRE_CALL_END_${CURIC}

# It's a return. See if we have a retu <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	108	261	
==>Box's _gen_errata

require 5;
package Pod::Simple::Checker;
use strict;
use Carp ();
use Pod::Simple::Methody ();
use Pod::Simple ();
use vars qw( @ISA $V <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	406	575	
==>r $description = 'Generating core pmc list';
our @args = ();

sub runstep
{
    my ($self, $conf) = @_;

    $self->generate_h($conf);
    $self->generate_c($conf);
    $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	499459	499554	
==>BODY" => "#line 600 \"src/ops/math.ops\"\n  {{\@1}} = floatval_mod({{\@1}}, {{\@2}});\n  {{+=3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	500222	500317	
==>BODY" => "#line 600 \"src/ops/math.ops\"\n  {{\@1}} = floatval_mod({{\@1}}, {{\@2}});\n  {{+=3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719926	720020	
==>n  s = Parrot_sprintf_c(interpreter, \"%.12g\", (double){{\@2}});\n  PIO_putps(interpreter, io, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	721126	721220	
==>n  s = Parrot_sprintf_c(interpreter, \"%.12g\", (double){{\@2}});\n  PIO_putps(interpreter, io, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	176803	177063	
==>> 211,
                  "ARGS" => [
                              "sc",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 240 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) { <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	9861	10082	
==>ref, $extra_postamble_ref) = @_;

    local $_ = $argtype;
    my $temp_num = ${$temp_cnt_ref}++;
    /p/ && do {
        push @{$temps_ref}, "PMC *t_$temp_num;";
        push @{$extra_preamble_ref},
            "t_$temp_n <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	26157	26357	
==>abel, 'bare', undef);

      next;
    }

    #
    # Conditional Continuations:
    #
    #   } elsif (<value> <op> <value>) {
    #

    if (m/^}\s*(elsif)\s*\(\s*(.*)\s*\)\s*{$/) {
      $self->begi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19103	19239	
==>Function Calls:
    #
    # a = foo(...);
    #

    if ($token->is_ident
      and $self->get(1)->is_assign
      and $self->get(2)->is_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614575	614877	
==>",
                  "CODE" => 696,
                  "ARGS" => [
                              "i",
                              "p",
                              "s"
                            ],
                  "BODY" => "#line 508 \"src/ops/object.ops\"\n    opcode_t *next = {{^+4}};\n    INTV <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031033	1031421	
==>LAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1153,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#li <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300217	300468	
==>RGS" => [
                              "i",
                              "nc",
                              "n"
                            ],
                  "BODY" => "#line 975 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n" <==
2	/Users/nnunley/parrot/config/inter/libparrot.pm	826	931	
==>e($conf->data->get('parrot_is_shared'),
            $parrot_is_shared);

    $parrot_is_shared = 0 unle <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	7180	7433	
==>=> $entry->{type},
		parameters => $entry->{parameters},
                loc => $entry->{loc}
	    };
	}
        else {
            # if not - they are inherited from $self
            $const->{super}{$meth} = $self->{class};
        }
    }
    # copy p <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	58187	58434	
==>51.yp"
{
            PopScopeF( $_[0] );
            BuildFunctionBody( $_[0], $_[2], $_[4] );
        }
	],
	[#Rule 98
		 'funcbody', 4,
sub
#line 520 "Lua\lua51.yp"
{
            PopScopeF( $_[0] );
            BuildFunctionBody( $_[0 <==
2	/Users/nnunley/parrot/lib/Test/More.pm	3880	4069	
==>t everything
but 'fail', you'd do:

  use Test::More tests => 23, import => ['!fail'];

Alternatively, you can use the plan() function.  Useful for when you
have to calculate the number of t <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2663	2759	
==>ur_opcode += $offset)]";
}

=item C<goto_pop()>

Transforms the C<goto POP()> macro in an ops fil <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	4824	4966	
==>le, $source) = @_;

    my $f = undef;
    my $line = 0;
    foreach (@$source) {
        $line++;
        next unless $_;

        if (/^(\s*) <==
2	/Users/nnunley/parrot/lib/Test/More.pm	15198	15445	
==>ic_message is simply concatinated
together.

Handy for this sort of thing:

    ok( grep(/foo/, @users), "There's a foo user" ) or
        diag("Since there's no foo, check that /etc/bar is set up right");

which would produce:

    not ok 42 - The <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	407150	407424	
==>70,
                  "ARGS" => [
                              "s",
                              "ic",
                              "sc"
                            ],
                  "BODY" => "#line 535 \"src/ops/io.ops\"\n    {{\@1}} = PIO_sockaddr_in(interpreter, (u <==
2	/Users/nnunley/parrot/config/auto/signal.pm	1310	1441	
==>an();

    cc_gen('config/auto/signal/test_itimer.in');
    eval { cc_build(); };
    unless ($@ || cc_run() !~ /ok/) {
        $con <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	1727	1926	
==><$fh>) {

        chomp;

        next if /^\s*#/ or /^\s*$/;

    if (/^\[(\w+)\]/) {
        $section = $1;
    }
        elsif (m/^\s*
            ($type_re)\s+
            ($ident_re)\s*
        \ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	14457	14799	
==>nt u(2).foo

' Array assignment, 78
dim y(5)
y(1)=78
print y(1)

' Casting with arrays, 5.00000
dim y!(10)
j=2
i%=5.34
y!(i)=i%
print y!(i)

' Count from 9 to 0, print 5
dim y(10)
i=10
tloop:
	y(i)=i
	i=i-1
	print i
	if i then goto tloop
print y(5)

' Truth
s$="Hello"
if s$ then print "This is true" else print "Oops (string)"
s$=""
if s$ the <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	56072	56336	
==>);
        }
	],
	[#Rule 81
		 'primary', 1,
sub
#line 436 "Lua\lua51.yp"
{
            BuildCallVararg( $_[0] );
        }
	],
	[#Rule 82
		 'primary', 1, undef
	],
	[#Rule 83
		 'primary', 1, undef
	],
	[#Rule 84
		 'primary', 3,
sub
#line 444 <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	13268	13393	
==>th.h
remquof     math.h
remquol     math.h
rename      stdio.h
rewind      stdio.h
rint        math.h
rintf       math.h
rintl <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4760	4865	
==>r die "copy command requires destination";
    my $dest = $1;

    my ($group_files, $group_libs, $pmc_gro <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4864	4969	
==>r die "copy command requires destination";
    my $dest = $1;

    my ($group_files, $group_libs, $pmc_gro <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	23222	23393	
==>lf->genlabel('plus_loop');
    my $rfail = $self->genlabel('plus_rfail');
    my ($R_back, @R_ops) = $self->rewrite($R, $rfail);
    my @ops = (
                        aop <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	552	662	
==>ngs;

=item C<header($title, $navigation, $resources)>

Returns the page header with the specified title and na <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	11478	11605	
==>snode = { children => [ { value => 'if' },
				 _get_arg($clause,0),
				 { children => [ { value => 'begin' },
						 _get_args <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	22806	22924	
==>sure not that simple
    # we have a tuple argumen
    my $tupl = $stack[-1];
    print <<EOC;
    # tuple $tupl->[1] n <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	12674	12835	
==>="12" class="indent1"><tmpl_var name=catname></th></tr>
        <tmpl_loop name=smokes>
          <tr>
            <td class="indent2">Parrot&nbsp;<tmpl_var name= <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	580	678	
==>the tests in the harness.

my $teetcl = 't_tcl';

my @b= map {s/.*\/(.*)\.t/$1/; $_} (glob ("$teetc <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	11037	11323	
==>ft;
    my $str = '';
    foreach my $case (@{ $op->{args} }) {
        $str .= "|" unless length($str) == 0;
        my $R = $case->render();
        $str .= $case->needparen() ? "(?:$R)" : $R;
    }

    return $str;
}

sub Regex::Ops::Tree::multi_match::needparen { 1 }
sub Regex::Ops <==
2	/Users/nnunley/parrot/tools/build/vtable_extend.pl	2366	2466	
==>de.

   PARROT_CALLIN_END(interpreter) will put the stack anchor back to
   the way it was, and shoul <==
2	/Users/nnunley/parrot/config/auto/bc.pm	439	558	
==>base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Configure::Step ':auto', 'capture_output';

$descriptio <==
2	/Users/nnunley/parrot/config/auto/m4.pm	413	532	
==>base qw(Parrot::Configure::Step::Base);

use Config;
use Parrot::Configure::Step ':auto', 'capture_output';

$descriptio <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	30794	30900	
==>d extracts the initial substring of the text that
is appropriately delimited. If the delimiter string has m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193578	193844	
==>g(interpreter, {{\@1}}), {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194557	194823	
==>g(interpreter, {{\@1}}), {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                } <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	494	640	
==>-------

sub _new_regs {
     return
  {
    I => { map { $_ => 0 } (0..31) },
    N => { map { $_ => 0 } (0..31) },
    S => { map { $_ => 0 } (0. <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	15813	16001	
==>NEXT")      if ($next);
        # I'm assuming the op branches to the value in the last argument.
        or_flag(\$jumps, "PARROT_JUMP_GNEXT")      if (($jumps) && ($fixedargs[@fixedargs - <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	100788	101119	
==>GDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 125,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 125 \"src/ops/bit.ops\"\n  string_bitwise_not(i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	834282	834383	
==>sh(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}}, STACK_ENTRY_STRING, STACK_CLEANUP_NUL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	835008	835109	
==>sh(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}}, STACK_ENTRY_STRING, STACK_CLEANUP_NUL <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	5645	5887	
==>Test::proclaim(0, $desc, $todo, :$depends);
}

sub diag (Str $diag) is export {
    for (split("\n", $diag)) -> $line {
        say "# $line";
    }
}

## 'private' subs

sub proclaim (Bool $cond, Str $desc? is copy, $todo?, Str $got?, Str $ex <==
2	/Users/nnunley/parrot/config/init/hints/netbsd.pm	28	172	
==>rl Foundation.
# $Id$

package init::hints::netbsd;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    my $ccflags = $conf->data->get(' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	12132	12255	
==>^\(\?\:(.*)\)$/) {
        $str = $1;
    }
    return "($str)";
}

# FIXME: Should render the _absence_ of this op differen <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	21584	21735	
==>xt)
						if defined $::RD_TRACE;').'
		push @item, $_tok;
		' . (($self->{line}>=0 && !$::RD_NO_HITEM) ? '$item{'. $self->{hashname} .'}=$_tok;' : '' ) <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	11319	11433	
==>= concat ${STEMP0}
pre_call_NO_RETURN_${CURIC}:

# Finished.
goto PRE_CALL_END_${CURIC}

# It's a return. See if we <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8505	8619	
==>= concat ${STEMP0}
pre_call_NO_RETURN_${CURIC}:

# Finished.
goto PRE_CALL_END_${CURIC}

# It's a return. See if we <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571104	571193	
==>lass = Parrot_class_lookup_p(interpreter, {{\@3}});\n    {{\@1}} = Parrot_object_isa(inter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572059	572148	
==>lass = Parrot_class_lookup_p(interpreter, {{\@3}});\n    {{\@1}} = Parrot_object_isa(inter <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	710	966	
==>dumps {
	print "$syms[PREV] $type[PREV] \tprevious\n";
	print "$syms[CURR] $type[CURR] \tcurrent\n";
	print "$syms[NEXT] $type[NEXT] \tnext\n";
}
sub usersub { 0; }

sub runtime_init {
	push @{$code{$seg}->{code}}, <<INIT;
	#
	# Program Begins Here
	# I mus <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17782	17892	
==>elf->_add_inst ('', 'branch',["NEXT_$label"]);
  # XXX Use exceptions here
  $self->_add_inst ("ERR_$label", 'p <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	933	1052	
==>ys %language_test_map ) {
    no strict 'refs';            ## no critic

    *{"Parrot::Test::M4::$func"} = sub ($$;$) { <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	678	814	
==>ock,

    IDENT => $ident,

    DEBUG => 1,
    FILE  => $ident->file,
    LINE  => $ident->line
  }, $class;

  $block->push_content($se <==
2	/Users/nnunley/parrot/lib/Test/More.pm	25204	25382	
==>g = <<WARNING;
is_deeply() takes two or three args, you gave %d.
This usually means you passed an array or hash instead 
of a reference to it
WARNING
        chop $msg;   # clip o <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_assignments.pm	247	372	
==>rsions into/from STRING
sub ASSIGNMENT_FUNC {
	my($varname)=@_;	# P6 already has the RHS Loaded...
	print CODE<<ASS_FUNC;
	new <==
2	/Users/nnunley/parrot/lib/File/Which.pm	1411	1548	
==>ed!!
            # PPT which says MPW-Perl cannot resolve `Alias $alias`,
            # let's just hope it's fixed
            if (lc($ali <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	3471	3603	
==>}};
    $comment = $comment ? "\n\t# $comment" : "";
    ($label = $label->{label}) =~ s/^@//; # FIXME: local labels?
    return "$la <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	5789	5925	
==>th_relative_path($path);
    
            print {$self->{'output_fh'}} 
                $self->{'Tagmap'}{$tagname} . 
                $s <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3561	3657	
==>@code)=EXPRESSION({ stuff => "\$X99", choose => 1 });
		push @{$code{$seg}->{code}}, "@code";
		f <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	1013	1130	
==>ile after SVN
# has been told about new generated files.
# 
# Ignore the SVN directories
\B\.svn\b

# debian/ should n <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3868	3984	
==>ile after SVN
# has been told about new generated files.
#
# Ignore the SVN directories
\B\.svn\b

# debian/ should n <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	183	318	
==>@_;

    if ($language eq 'perl5') {
        $class = 'Regex::Driver::Perl5';
    } elsif ($language eq 'pir') {
        $class = 'Regex <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	11946	12041	
==>TML -e \
   "exit Pod::Simple::HTML->filter(shift)->errors_seen" \
   thingy.pod


=head1 DESCRI <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	11616	11757	
==>C<undef>
(but see L<Initializing with new>).

The accessor's argument, if any, is assigned to the element.

If the element type is C<'$'>, the <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	789824	790081	
==>ng_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	790734	790991	
==>ng_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	5069	5311	
==>ry.
                $asm =~ s/\)->u\.(\w+)/)/g;
                $asm =~ s/CONST\((\d)\)\s*([><=!]=?)\s*CONST\((\d)\)/RCONST($1)->u.number $2 RCONST($3)->u.number/ if ($asm =~ /CONST.*CONST/);
                $asm =~ s/(emitm_pushl_m[^\n]*CONST <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660034	660147	
==>,
                  "BODY" => "#line 334 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtab <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660956	661069	
==>,
                  "BODY" => "#line 334 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtab <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561894	561995	
==>@3}});\n  if (!{{\@1}}) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%S <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562978	563079	
==>@3}});\n  if (!{{\@1}}) {\n    real_exception(interpreter, next, METH_NOT_FOUND,\n        \"Method '%S <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	115	263	
==>eturns Void {
    my @paths = @_paths.reverse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say("Empty compile time value <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1443	1541	
==>urn $self->{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/gets the transform's argument <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	1052	1150	
==>urn $self->{PC};
    }
}

=item C<args(@args)>

=item C<args()>

Sets/gets the transform's argument <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	10593	10723	
==>x%02x", $atom); # Nonportable
    } else {
        die;
    }
}

sub Regex::Ops::Tree::charclass::render {
    die;
}

sub Regex::O <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	937	1048	
==>ion = shift || '';
    my $resources = shift || '';
    
    <<"HEADER";
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	3234	3326	
==>->append(Parrot::Docs::HTMLPage->footer('', '../resources'));
    
    return $self->html_lin <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserEndToken.pm	800	895	
==>its methods,
and adds these methods:

=over

=item $token->tagname

This returns the tagname for <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	1226	1321	
==>its methods,
and adds these methods:

=over

=item $token->tagname

This returns the tagname for <==
2	/Users/nnunley/parrot/config/auto/isreg.pm	649	831	
==>() !~ /ok/) {
        $test = 1;
    }
    cc_clean();

    $conf->data->set(isreg => $test);
    print($test ? " (Yep) " : " (no) ") if $conf->options->get('verbose');
    $self->set <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	15710	15837	
==>{
    my ($n, $c, $cmt) = @_;
    binary_word('xor', $cmt);
}

sub BINARY_LSHIFT
{
    my ($n, $c, $cmt) = @_;
    binary_word(' <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4759	4864	
==>O NOT remove comment at end of sub !!!
sub _Parse {
    my($self)=shift;

	my($rules,$states,$lex,$err <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4523	4624	
==>O NOT remove comment at end of sub !!!
sub _Parse {
    my($self)=shift;

	my($rules,$states,$lex,$err <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	291	410	
==>t;
eval "use warnings";

package Jako::Construct::Block::Conditional;

use Carp;
use Jako::Compiler;

use base qw(Jako:: <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	3293	3537	
==>";
        if( $type eq '@' ){
            $out .= "    croak 'Initializer for $name must be array reference'\n"; 
            $out .= "        if defined(\$init{'$name'}) && ref(\$init{'$name'}) ne 'ARRAY';\n";
            $out .= "    \$r->$el <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1060598	1060990	
==>"o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1184,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 208 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3127	3228	
==>y $self = $_[0];
  return $self->do_middle if $self->bare_output;
  return
   $self->do_beginning && $ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4496	4597	
==>y $self = $_[0];
  return $self->do_middle if $self->bare_output;
  return
   $self->do_beginning && $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955947	956233	
==>{{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "encodingname", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	603347	603598	
==>" => 683,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 404 \"src/ops/object.ops\"\n    {{\@1}} = VTABLE_name(interpreter, {{\@2}});\ <==
2	/Users/nnunley/parrot/tools/dev/symlink.pl	1625	1735	
==>file);
	    my $srcfile = File::Spec->catfile($topsrcdir, @manifile);
	    unless (-f $srcfile) {
		warn "$self <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	451322	451675	
==>o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 517,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 225 \"src/ops/math.ops\"\n  {{\@1}} += {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946313	946588	
==>{{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	956759	957034	
==>{{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "fin <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	2392	2497	
==>tors. Element I<x> is the direction of argument C<< $args->[I<x>]
>>.

C<$labels> is a reference to an arr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614939	615057	
==>@2}}, {{\@3}});\n    if (offset < 0) {\n        real_exception(interpreter, next, NO_CLASS,\n            \"Class not pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616090	616208	
==>@2}}, {{\@3}});\n    if (offset < 0) {\n        real_exception(interpreter, next, NO_CLASS,\n            \"Class not pa <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029604	1029792	
==>[
                              "n"
                            ],
                  "BODY" => "#line 305 \"src/ops/sys.ops\"\n  opcode_t *next = {{^+2}};\n  if ({{\@1}} < 0.0) {\n      rea <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	5009	5124	
==>___BUILTIN_CODE___\"\n";
        $pir .= $_->{'body'};
        $pir .= "___BUILTIN_CODE___\ngoto END\n";
    }
    r <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4165	4278	
==>Data> object.

=cut

sub clean
{
    my $self = shift;

    delete $self->{c}{$_} for grep { /^TEMP_/ } CORE::keys <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85592	85832	
==>n  {{\@1}} = VTABLE_get_pmc_keyed_str(interpreter, compreg_hash, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86499	86739	
==>n  {{\@1}} = VTABLE_get_pmc_keyed_str(interpreter, compreg_hash, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	72854	72988	
==>es"}} )
	{
		if ($rule->{"changed"})
		{
			$code .= $rule->code($self->{"namespace"},$self);
			$rule->{"changed"} = 0;
		}
	}

	retur <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	5495	5624	
==>dices($stmt->{code});
                foreach my $pos (@labels) {
                    push @Q, $labels{$stmt->{code}->{args}->[$po <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	48601	48721	
==>AG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_BOUNDS_FLAG); }\n  {{=0,+=2}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	49391	49511	
==>AG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_BOUNDS_FLAG); }\n  {{=0,+=2}};\n",
                  "LAB <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3860	4014	
==>RR] eq "#") {
		feedme();
		$fd=$syms[CURR];
		feedme();
		die "Expecting ," unless $syms[CURR] eq ",";
		feedme();
		input_read_assign($promptcode, $fd, ' <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	2670	2791	
==>}
	    else {
		print "#define _CONST_STRING_$line $n\n";
	    }
	    $this_file_seen{$str} = $line;
	    next;
	}
	my $le <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	11088	11282	
==>d1' ) {
        DEBUG and print "  Found head1.  Seeking content...\n";
        ++$state;
        $head1_text_content = '';
      }
    }

    elsif($state == 1) { # accumulating text until end o <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	1021	1126	
==>ody($file, @args);
print   badargs($cmd, @args);
print    footer();

sub open_tmt {
    my ($filename) = @ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16680	16775	
==>autiously:
        $x =~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklm <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	10128	10219	
==>autiously:
    $x =~ s/([^\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklm <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	1149	1248	
==>ile = Parrot::Test::slurp_file($out_f);
        $pass =$self->{builder}->is_eq( Parrot::Test::slurp_ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	1190	1289	
==>ile = Parrot::Test::slurp_file($out_f);
        $pass =$self->{builder}->is_eq( Parrot::Test::slurp_ <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	12781	12878	
==>nearbyint   math.h
nearbyintf  math.h
nearbyintl  math.h
nextafter   math.h
nextafterf  math.h
nex <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5923	6048	
==>p!;
}

sub output_setend {
    my ($self, $group, $value, $adj) = @_;
    $value = value($value);
    my @ops;
    if ($adj) { <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5561	5686	
==>p!;
}

sub output_setend {
    my ($self, $group, $value, $adj) = @_;
    $value = value($value);
    my @ops;
    if ($adj) { <==
2	/Users/nnunley/parrot/config/inter/libparrot.pm	948	1246	
==>get('has_dynamic_linking');

    if ($conf->options->get('ask') && $conf->data->get('has_dynamic_linking'))
    {
        $parrot_is_shared=
            prompt("\nShould parrot be built using a shared library?",
                $parrot_is_shared ? 'y' : 'n');

        $parrot_is_shared = lc <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	39573	39720	
==>ext::Tabs -- yes, it's hardwired in that
              # tabs are at every EIGHTH column.  For portability, it has to be
              # one setting <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	12717	12830	
==>="Hello"
print v.start.pnext.bar

' Member functions, give 0 and 3 (modified)
type first
	foo as integer
	bar as s <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	272	429	
==>CRIPTION

Recreates MANIFEST and MANIFEST.SKIP from the svn directories.  So far tested
with svn 1.2.0.

=cut

package main;

use strict;
use warnings;

use F <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	2397	2626	
==>$output,
                       $desc
                                                  );
        unless ( $pass ) {
            my $diag = '';
            my $test_prog = join ' && ', @test_prog;
            $diag .= "'$test_pro <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	2411	2627	
==>$output,
                          $desc
                      );
           unless ( $pass ) {
               my $diag = '';
               my $test_prog = join ' && ', @test_prog;
               $diag .= "'$test_pro <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	9835	10041	
==>C;

/*
** Op Info Table:
*/

static op_info_t $op_info\[$num_entries] = {
END_C

    $index = 0;

    foreach my $op ($ops->ops) {
        my $type       = sprintf("PARROT_%s_OP", uc $op->type);
        my $ <==
2	/Users/nnunley/parrot/examples/benchmarks/primes.pl	682	816	
==>$i4) {goto LOOP;}
     $i6++;
     $i7 = $i1;
 NEXT:
  $i1++;
  if ($i1 <= $i2) {goto REDO;}
  print $i6, "\nlast is: $i7\n";

=head1 S <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	751302	751600	
==>{{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set",
                  "F <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	1131	1268	
==>ng);
my $parrot_pmcsh_file = "include/parrot/core_pmcs.h";
my $date = localtime(time);


opendir PARROT, "$parrot" or die "Supply Parrot d <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054405	1054503	
==>n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to get null global.\");\n\n    next = {{^+4}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055532	1055630	
==>n    if (!{{\@3}})\n\tinternal_exception(1, \"Tried to get null global.\");\n\n    next = {{^+4}};\ <==
2	/Users/nnunley/parrot/examples/benchmarks/addit.pl	767	884	
==>{
    $result = varargs_adder(@args);
}
print "$result\n";

=head1 SEE ALSO

F<examples/benchmarks/addit.pasm>, F<exam <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	601875	602087	
==>" => "inline",
                  "CODE" => 681,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 383 \"src/ops/object.ops\"\n  {{+=2 <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3100	3198	
==>t X.pmc -> X.dump and X.c and also create any lib-GROUP.c files

    generate_dump($_) foreach (@pm <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3204	3302	
==>t X.pmc -> X.dump and X.c and also create any lib-GROUP.c files

    generate_dump($_) foreach (@pm <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	9847	9955	
==>_value);
      my $op    = $self->require_infix_rel->text;
      my $right = Jako::Construct::Expression::Val <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	25383	25491	
==>_value);
      my $op    = $self->require_infix_rel->text;
      my $right = Jako::Construct::Expression::Val <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16682	16794	
==>eft \n";
		if ($opts{choose}) {
			$opts{stuff}=~s/X/$type/g;
		}
		# The rhs was passed in
		@stream=build_assig <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	31913	32043	
==>urned in the third element is an
empty string.

In a scalar context, just the extracted substring is returned. In
a void context, t <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	424	571	
==>o restrictive. Need better tests
    if %1 >= 0 goto power_ok
%% DOMAIN_ERROR %%
power_ok:
    $N1 = %1
    $N2 = %2
    $N1 = pow $N1, $N2
	%1 = $N <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Driver.pm	3534	3659	
==>tch_end
    print "\n"
skipPrint:
    set valid_flag, 1
    ret
.end
END
}

sub output_rule_body {
    my ($self, $fh, $subnam <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	4166	4298	
==>a $_ } split('', $ldel));
	$rdel = join('|', map { quotemeta $_ } split('', $rdel));
	pos = $posbug;

	my $startpos = pos $$textref | <==
2	/Users/nnunley/parrot/lib/Test/More.pm	7853	7978	
==>s() and
isnt() know what the test was and why it failed.  For example this
test:

    my $foo = 'waffle';  my $bar = 'yarbloko <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	20869	21022	
==>n attribute value to tweak.\n";
            }
          }
        }
      }
    }
  }
  DEBUG > 2 and print "End of _wrap_up traversal.\n\n";

  return;
} <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	2874	3003	
==>$entry;

    $struct = <<"EOF";
typedef enum {
    VTABLE_IS_CONST_FLAG = 0x01,
    VTABLE_HAS_CONST_TOO = 0x02,
    VTABLE_PMC_NE <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	2761	2867	
==>on't
be a constant sub anymore, and so Pod::Simple (et al) won't compile with
constant-folding.


=head1 GU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	356704	356946	
==>AL_FMT, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357364	357606	
==>AL_FMT, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => <==
2	/Users/nnunley/parrot/lib/Test/More.pm	8994	9158	
==>$test_name );

Similar to ok(), like() matches $this against the regex C<qr/that/>.

So this:

    like($this, qr/that/, 'this is like that');

is similar to:

    o <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	9332	9538	
==>i_P(Interp *interpreter, struct call_state *st, PMC* val)
{
    Parrot_init_ret_nci(interpreter, st, "P");
    UVal_pmc(st->val) = val;
    Parrot_convert_arg(interpreter, st);
    Parrot_store_arg(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	792	990	
==>e.

=cut

sub new
{
    my $self = ref $_[0] ? ref shift : shift;
    my $path = shift;
    
    return unless defined $path;
    
    $path = File::Spec->rel2abs($path);
    
    # Clean up any /foo <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	3112	3212	
==>lf->{c}};
}

=item C<dump()>

Provides a L<Data::Dumper> serialized string of the objects key/value p <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	811	949	
==>q',
    output_like       => 'like',
    output_isnt       => 'isnt_eq',
                        );

foreach my $func ( keys %language_test <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	544	651	
==>q',
    output_like => 'like',
    output_isnt => 'isnt_eq',
);

foreach my $func ( keys %language_test <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14770	14866	
==>--------------------------------------------------

use integer;
sub rtf_esc {
  my $x; # scratch <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	1474	1619	
==>on('HQ9plus', 'hq9plus.html', '', 'languages/HQ9plus'),
        $self->new_section('Jako', 'jako.html', '', 'languages/jako'),
        $self->new_ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7232	7347	
==>_pushint($reg);
}

sub output_pushint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);

    if ($self- <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6874	6989	
==>_pushint($reg);
}

sub output_pushint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg);

    if ($self- <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	795	911	
==>found in.

Good things are listed with C<+++> (at the moment the only good thing
is Parrot APIs definitions their dec <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	360841	361009	
==>n  STRING * const s = (VTABLE_get_string(interpreter, p));\n  if (s) {\n    PIO_putps(interpreter, PIO_STDERR(interpreter), s);\n  }\n  {{+=2}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	355141	355251	
==>n  STRING * const s = (VTABLE_get_string(interpreter, p));\n  if (s) {\n    PIO_putps(interpreter, PIO_STDOUT(i <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4473	4683	
==>ult
              | " ((?:[^"\\]|\\.)+) "   #" (keep my editor happy)
              | (\w+) )
        )
    }sx;

    while ($source =~ m{$regex}go) {
        my ($name, $expl, $body, $out) = ($1, $2, $3, choose <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	1063	1168	
==>files.
# 
# Ignore the SVN directories
\B\.svn\b

# debian/ should not go into release tarballs
^debian$
^ <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3918	4022	
==>files.
#
# Ignore the SVN directories
\B\.svn\b

# debian/ should not go into release tarballs
^debian$
^ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	12513	12659	
==>rule();
		return $subrule if defined $subrule;
	}

	return ();
}

sub checkleftmost($)
{
	my @items = @{$_[0]->{"items"}};
	if (@items==1 && ref($i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687744	688124	
==>,
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 772,
                  "ARGS" => [
                              "p",
                              "s"
                            ],
                  "BODY" => "#line <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TiedOutFH.pm	878	1009	
==>sub PRINT {
  my $it = shift;
  foreach my $x (@_) { $$$it .= $x }

  #Pod::Simple::DEBUG > 10 and print " appended to $$it = \"$$$i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1733	1886	
==>);
  $compiler->outdent;
  $compiler->emit(".end");

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	653490	653596	
==>\n        real_exception(interpreter, resume, METH_NOT_FOUND,\n            \"Method '%s' not found\", strin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	654651	654757	
==>\n        real_exception(interpreter, resume, METH_NOT_FOUND,\n            \"Method '%s' not found\", strin <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	10315	10537	
==>visitLexDir {
        my $self  = shift;
        my ($dir) = @_;
        my $FH    = $self->{fh};
        print {$FH}
            "  .lex \"$dir->{arg1}->{symbol}\", $dir->{arg1}->{symbol}\n";
    }

    sub visitCo <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1974	2087	
==>parrot/interpreter.h> for a list of the core types.

=cut

sub core_type 
{
    my $self = shift;
    
    die ref <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	638	852	
==>n on a Unix box. It's not particularly
necessary to be portable, since it only has to be run when packaging a
release, or during development.

=head2 Options

=over 4

=item C<--action=sub>

Run the specified subrou <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	6698	6862	
==>($line =~ /^\s* (\w+) \s* : \s*$/mx) {
            $code .= emit($1."_%0:", 'loop_num');
            next;
        }
        
        # rename locals (during declara <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	1438	1574	
==>to_prederef(Interp* interpreter,
                                        opcode_t* opcode_addr)
{
    INTVAL offset_in_ops;
    if (opcod <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3322	3467	
==>' x ( 2 * $self->{'Indent'} + 4);
  
  $self->{'Thispara'} =~ s/^/$i/mg;
  
  print { $self->{'output_fh'} }   '', 
    $self->{'Thispara'},
    " <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	2656	2816	
==>100 = or $I100, $I101
    $I100 = not $I100
    %1 = $I100
END_PIR

    $P0[unicode:"dyadic:\u2372"]  =  <<"END_PIR"            # nand
    $I100 = %1
    $I101 = <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	9887	10026	
==>utility functions, and is
an implementation of the TAP protocol.

This module, like Pugs, is a work in progress. As new features are
added t <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4882	4970	
==>f{ 'RULES', 'STATES', 'LEX', 'ERROR' };
	my($errstatus,$nberror,$token,$value,$stack,$ch <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4641	4728	
==>f{ 'RULES', 'STATES', 'LEX', 'ERROR' };
	my($errstatus,$nberror,$token,$value,$stack,$ch <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1008676	1009349	
==>FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1125,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 654 \"src/ops/string.ops\"\n  {{\@1}} = string_escape_string(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bl <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	3792	4014	
==>s) {
        my $step_name   = $task->step;
        my @step_params = @{$task->params};

        $n++;

        eval "use $step_name;";
        die $@ if $@;

        my $step = $step_name->new;

        # XXX This works. b <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc.pm	1838	2008	
==>R is written into same output file
            my $exit_code = Parrot::Test::run_command( 
                                \@test_prog, 
                                CD <==
2	/Users/nnunley/parrot/languages/lua/t/Parrot/Test/Lua.pm	2386	2513	
==>R is written into same output file
        my $exit_code = Parrot::Test::run_command(
            \@test_prog,
            CD <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6312	6426	
==>=TRUE           ' Force first pass through the array.
WHILE Exchange          ' Sort until no elements are exchange <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15965	16079	
==>=TRUE           ' Force first pass through the array.
WHILE Exchange          ' Sort until no elements are exchange <==
2	/Users/nnunley/parrot/lib/Test/More.pm	6443	6593	
==>k( $p->tests == 4,                  'saw tests' );
    ok( !grep !defined $_, @items,       'items populated' );

(Mnemonic:  "This is ok.")

$test_nam <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34148	34247	
==>ibe.'}' ) . ';
		$Parse::RecDescent::lastunexpected = $text;
		' . ($self->{"lookahead"} ? '$_savete <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37620	37719	
==>ibe.'}' ) . ';
		$Parse::RecDescent::lastunexpected = $text;
		' . ($self->{"lookahead"} ? '$_savete <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4886	5018	
==>mc();

    $compiler->emit("  $pmc_reg = new $pmc_type");
    $compiler->emit("  $pmc_reg = $dest");
    $compiler->emit("  global \" <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	2949	3081	
==>mc();

    $compiler->emit("  $pmc_reg = new $pmc_type");
    $compiler->emit("  $pmc_reg = $dest");
    $compiler->emit("  global \" <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12070	12160	
==>For example, C<e2char('sol')>, C<e2char('47')>,
C<e2char('0x2F')>, and C<e2char('057')> all <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12594	12684	
==>For example,
C<e2char('sol')>, C<e2char('47')>,
C<e2char('0x2F')>, and C<e2char('057')> all <==
2	/Users/nnunley/parrot/examples/benchmarks/primes2.pl	165	323	
==>("N primes calculated to %d is %d\nlast is: %d\n",$max,$i6,$i7);

sub isprime1
{
    my($input)=@_;
    my $n;

    if ($input < 1) {
	return 0;
    }
    $n = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	596159	596248	
==>"#line 337 \"src/ops/object.ops\"\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, {{\@3 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	597052	597141	
==>"#line 337 \"src/ops/object.ops\"\n  {{\@1}} = VTABLE_subclass(interpreter, {{\@2}}, {{\@3 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	167	308	
==>$Id: /parrot/languages/jako/lib/Jako/Processor.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package Jako: <==
2	/Users/nnunley/parrot/lib/File/Which.pm	205	311	
==>e File::Spec;

my $Is_VMS    = ($^O eq 'VMS');
my $Is_MacOS  = ($^O eq 'MacOS');
my $Is_DOSish = (($^O eq ' <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	166	312	
==>ions for manipulating vtables

=head1 SYNOPSIS

    use Parrot::Vtable;

=head1 DESCRIPTION

C<Parrot::Vtable> provides a collection of functions f <==
2	/Users/nnunley/parrot/config/auto/msvc.pm	522	631	
==>b runstep
{
    my ($self, $conf) = (shift, shift);

    my $verbose = $conf->options->get('verbose');

    cc <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3564	3667	
==>self->SYNTAX_ERROR("Sub declaration has no fnlib property, and parent block is not a module!")
        u <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6228	6331	
==>self->SYNTAX_ERROR("Sub declaration has no fnlib property, and parent block is not a module!")
        u <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841525	841668	
==>"s"
                            ],
                  "BODY" => "#line 40 \"src/ops/string.ops\"\n  {{\@1}} = string_ord(interpreter,{{\@2}},0);\ <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	6221	6408	
==>{fh}
            or return ( q{}, undef );

        for ( $parser->YYData->{INPUT} ) {

            if ( $parser->YYData->{shebang} ) {
                $parser->YYData->{shebang} = u <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948114	948391	
==>{{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "tra <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958566	958843	
==>{{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "tra <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	7495	7770	
==>start[$group]: "),
                        aop('pushint', [ '<tmp>' ]),
                        aop('getend', [ '<tmp>', $group ]),
                        $self->dbprint("pushing end[$group]: "),
                        aop('pushint', [ '<tmp>' ]),
                        ao <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	14209	14389	
==>s an argument).
      #

      if ($peer_block->kind eq 'while' or $peer_block->kind eq 'until') {
        my $parent_block = $peer_block->block;
        my $loop = Jako::Construct: <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	45323	45475	
==>TOSTUBMK		= '\G\s*<autostub>';
my $REJECTMK		= '\G\s*<reject>';
my $CONDREJECTMK	= '\G\s*<reject:';
my $SCOREMK		= '\G\s*<score:';
my $AUTOSCOREMK		= '\G <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	352	605	
==>se warnings 'all';";

package Jako::Construct::Block;

use base qw(Jako::Construct);

use Carp;


###############################################################################

=head2 CLASS->new(BLOCK, KIND, TYPE, PREFIX)

If BLOCK is defined, it is th <==
2	/Users/nnunley/parrot/config/auto/gdbm.pm	561	689	
==>b runstep
{
    my ($self, $conf) = (shift, shift);

    my $verbose = $conf->options->get('verbose');

    my $cc        = $conf <==
2	/Users/nnunley/parrot/config/auto/env.pm	520	631	
==>b runstep
{
    my ($self, $conf) = (shift, shift);

    my $verbose = $conf->options->get('verbose');

    my ( <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	2536	2723	
==>'L' ) 
    {
        $self->process_link_start_token($token);
    }
    elsif ( $tagname eq 'F' )
    {
        $self->process_file_start_token($token);
    }
    elsif ( $tagname eq 'C' ) <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	26734	26837	
==>TIONED) CALAMITY
	$mod =~ s/[gc]//g;
	$pattern =~ s/(\A|[^\\])\\G/$1/g;

	bless 
	{
		"pattern"   => $pa <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1142	1297	
==>>file,
    LINE   => $ident->line,
    VALUE  => $value
  }, $class;

  #
  # Check for a few bad conditions.
  #
  # NOTE: These are compiler internal cons <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	299907	300292	
==>sne",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 349,
                  "ARGS" => [
                              "i",
                              " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	786184	786440	
==>ger_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	787095	787351	
==>ger_keyed_int(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	12702	12847	
==>l ? info->full_name : info->name) % OP_HASH_SIZE;
    p->info = info;
    p->next = hop[hidx];
    hop[hidx] = p;
}
static int get_op(const char * <==
2	/Users/nnunley/parrot/lib/Test/More.pm	35929	36086	
==>how to easily wedge test names into Test's interface (along
with a few other problems).

The goal here is to have a testing utility that's simple to learn,
qu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663722	663958	
==>keyed(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664494	664730	
==>keyed(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	759917	760390	
==>\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "deref",
                  "FLAGS" => ":base_ref",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6720	6836	
==>OT_switch_${CURIC}:
PIR
	return $pir;
}

# Pre and post load operation hooks.
sub pre_load($) {
	my $self = shift;
	m <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4658	4774	
==>OT_switch_${CURIC}:
PIR
	return $pir;
}

# Pre and post load operation hooks.
sub pre_load($) {
	my $self = shift;
	m <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6445	6565	
==>ry->[4] =~ /_STR$/);
    next if ($entry->[4] =~ /_FLOAT$/);
    $macros .= <<"EOM";
        \"__$entry->[1]\",
EOM
    } <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	5750	5903	
==>"-ansi -pedantic",
            gccversion => undef
        );

        return $self;
    }

    $conf->data->set(
        ccwarn              => "$warns $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	405052	405526	
==>AGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 468,
                  "ARGS" => [
                              "s",
                              "ic",
                              "s"
                            ],
                  "BODY" => "#l <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	11976	12072	
==>size_t hash_str(const char * str);
static void store_op(op_info_t *info, int full);

/* XXX on ch <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6009	6129	
==>k type state propogated to it if nothing has been
	# propogated there already.
	$pir .= <<'PIR';
if 0x${CURIC} == 0x45 go <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3947	4067	
==>k type state propogated to it if nothing has been
	# propogated there already.
	$pir .= <<'PIR';
if 0x${CURIC} == 0x45 go <==
2	/Users/nnunley/parrot/languages/regex/test.pl	3284	3390	
==>G);

    my $driver = Regex::Driver->new('pir', emit_main => 1);

    print PIR <<"END";
# Regular expressi <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	7248	7402	
==>/^\"//
                and return $parser->_DoubleQuoteStringLexer();

            s/^\'//
                and return $parser->_SingleQuoteStringLexer( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017452	1017738	
==>0,
                  "NAME" => "gmtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 113 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018376	1018662	
==>0,
                  "NAME" => "gmtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 113 <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2343	2453	
==>main::common{$var}) {
					push(@saves, $var);
				}
			}
			if (@saves) {
				$edit.=qq{\tfind_global _GLOBALS <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2752	2862	
==>main::common{$var}) {
					push(@saves, $var);
				}
			}
			if (@saves) {
				$edit.=qq{\tfind_global _GLOBALS <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	5139	5315	
==>lt .= ' '
    goto iter_loop
  iter_end:
    .return (result)

  print_2D:
    .local int row_size, pos, newline
    row_size = shape[1]
    pos = 1 
    iter = new .Iterator, a <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	2130	2238	
==>{
  	    return "if ((opcode_t *) $addr == 0)
	  return 0;
    goto *ops_addr[*(cur_opcode = (opcode_t *)$add <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10197	10356	
==>'to');
    my $section = $link->attr('section');
    
    return unless
        ( defined $to and length $to ) or
        ( defined $section and length $section <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	10550	10820	
==>:
        #

        if ($seen_op)
        {
            $body .= $_;
        }
        else
        {
            die "Parrot::OpsFile: Unrecognized line: '$_'!\n";
        }
    }

    if ($seen_op)
    {
        die "Parrot::OpsFile: File ended with incomplete op defi <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61966	62076	
==>ACT TRAILING ARG LIST (IF ANY)

			my ($argcode) = extract_codeblock($grammar, "[]",'') || '';

		# EXTRACT TRA <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	9023	9140	
==>atch();
		parse_struct_copy_dispatch();
		parse_data_setup();
		check_branches();
		return;
	}

PARSEERR:
	print "Pars <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	53	156	
==>: /parrot/config/inter/yacc.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/yacc. <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	2460	2660	
==>=> 'ppc',
             'cxx' => '',
             'darwin' => 1,
             'debugging' => 1,
             'doc_dir' => '/opt/local/share/doc/parrot',
             'doublesize' => 8,
             'dqu <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	7536	7660	
==>result
    result = new 'APLVector'

    iter_two = new .Iterator, op2
loop_two:
    unless iter_two goto loop_two_end
    it <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	7536	7637	
==>jit_normal_op
#define Parrot_jit_vtable_2231_op Parrot_jit_normal_op
#define Parrot_jit_vtable_1r223_o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	33255	33584	
==>=> [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set_addr",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	34043	34372	
==>=> [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "set_addr",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 " <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	1905	2011	
==>es : join '', @lines;
}

=item C<write(@lines)>

Writes the specified lines to the file.

=cut

sub write
{ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	1589	1799	
==>ompiler->emit("  goto ${prefix}_LAST");
  }
  elsif ($kind eq 'else') {
    $compiler->emit("${prefix}_ELSE:");

    if ($self->content) {
      $compiler->emit(".namespace ${namespace}_ELSE");
      $compiler-> <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	797	923	
==>ing class_name, method_name, body

    # Get class and method names.
    class_name = class.get_fullname()
    method_name = me <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	816309	816510	
==>reter);\n  {{+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "clearn",
                  "FLAG <==
2	/Users/nnunley/parrot/languages/regex/test.pl	1660	1882	
==>(0);
    } elsif (/^(-c|--compile)$/) {
        $compile = 1; # Compile only
    } elsif (/--no(-?)optimize/) {
        $tree_opt = 0;
        $list_opt = 0;
    } elsif (/--language=(.*)/) {
        $language = $1;
    } e <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TranscodeDumb.pm	831	1060	
==>_) {
    #  if(Pod::Simple::ASCII and !Pod::Simple::UNICODE and $] > 5.005) {
    #    # We're in horrible gimp territory, so we need to knock out
    #    # all the highbit things
    #    $x =
    #      pack 'C*',
    #      ma <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	1464	1587	
==>:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically from '$infile'
 * by $0.
 *
 * Any <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	1863	1986	
==>c";
    $normal_op = "Parrot_exec_normal_op";
    $cpcf_op = "Parrot_exec_cpcf_op";
    $restart_op = "Parrot_exec_restart_o <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	4699	4816	
==>name
    if ($self->{FILE}) {
	$self->{FILE}=~s/, $//;
	$self->{FILE}=~s/, $//;
    }

    return $self;
}

=back

=he <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	1440	1593	
==>d C<package> are literal. C<package> gives
the name of the RPM that the given file will be installed for, and is
only used by this script to skip files th <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	3509	3619	
==>ile'!\n" unless defined $temp_ops;

    die "OPS invalid for $file" unless ref $temp_ops->{OPS};

    my $exper <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	12252	12371	
==>pcode {
    my $f = shift;
    return $builtin_ops{$f};
}

sub LOAD_GLOBAL {
    my ($n, $c, $cmt) = @_;
    if (is_opco <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	13680	13844	
==>tate 20
		ACTIONS => {
			":" => 37
		}
	},
	{#State 21
		ACTIONS => {
			"(" => 10,
			'CHAR' => 4,
			"<" => 3,
			"[" => 14,
			'CODE' => 6,
			"." => 15
		},
		G <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22536	22663	
==>mp_0,$temp_1]);
  $self->_add_inst(''           ,'eq'    ,[$temp_0,1,"DONE_$label"]);
  $self->_add_inst(''           ,'set'   , <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349606	349897	
==>pen",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 407,
                  "ARGS" => <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	5562	5732	
==>)$/) {
                if ($has_class) {
                    die "Duplicate value for class in rule $rule->{'name'}\n";
                } else {
                    $has_c <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	490	677	
==>ASEDIR     => "/tmp/parrot_smokes/",
  BASEHTTPDIR => "/",
  BUCKET      => "bucket.dat",
  MAX_RATE    => 1 / 30,       # Allow a new smoke all 30s
  BURST       => 5,            # Set ma <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	2031	2167	
==>e Parrot
itself sees those shortened definitions, the defines must not leak
to the outside world.

=head2 Public or Private

If the API i <==
2	/Users/nnunley/parrot/Configure.pl	1910	2016	
==>=item C<--linkflags=(flags)>

Use the given linker flags

=item C<--ld=(linker)>

Specify which loader to u <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200460	200819	
==>ase_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 237,
                  "ARGS" => [
                              "nc",
                              "n <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	8597	8807	
==>);
    if ($for_header) {
        $export = $self->{flags}->{dynpmc} ? 'PARROT_DYNEXT_EXPORT ' :
                                             'PARROT_API ';
        $extern = "extern ";
	    $newl = " ";
	    $s <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	19007	19215	
==>actual_ok => 0,
        name      => '',
        type      => 'todo_skip',
        reason    => $why,
    });

    my $out = "not ok";
    $out   .= " $self->{Curr_Test}" if $self->use_numbers;
    $out   .= " <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3583	3693	
==>"Sub declaration has no fnlib property, and parent block is not a module!")
        unless $self->block->kind e <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6247	6357	
==>"Sub declaration has no fnlib property, and parent block is not a module!")
        unless $self->block->kind e <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	3602	3722	
==>\.][ch]\.in$/;
    return &describe_perl_file($info,$text)
	if $path =~ /\.(pl|pm|t|PL|pod|pasm)$|_pm\.in$/
	    or $text <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	841621	841844	
==>n  {{\@1}} = string_ord(interpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	842385	842608	
==>n  {{\@1}} = string_ord(interpreter,{{\@2}},0);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	5420	5709	
==>0 \"src/ops/core.ops\"\n  {{+=2}};  /* reserve 1 entries */\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "load_bytecode", <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	72464	72559	
==>$self->{startcode}

{
local \$SIG{__WARN__} = sub {0};
# PRETEND TO BE IN Parse::RecDescent NAME <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	5414	5563	
==>def, $1);
      $text = $2;
      next;
    }

    if ($text =~ m{^( \+\+ | -- )(.*)$}x) {
      push @tokens, Jako::Token->new(
        $file, $line, <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11085	11237	
==>args, [ $a1, @$item ];
	}
	#foreach(@args) {
		#push @$code, qq{\t.arg $_->[0]\t\t# $_->[0]};
	#}
	pop @$work;  # REmove startarg tag...
	return(scalar @ <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	1446	1569	
==>es..>\n" .
        "       $0 source <source files..>\n";
}

while (<DATA>) {
    next if /^\s*#/; chomp;
    my ($symbol, $ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7150	7273	
==>'|', @{$options{reject}})
		    : defined($options{reject})	       ? $options{reject}
		    :					 ''
		    ;
	my $ignore  = <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24152	24275	
==>'|', @{$options{reject}})
		    : defined($options{reject})	       ? $options{reject}
		    :					 ''
		    ;
	my $ignore  = <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	9615	9729	
==>ble;

    print SOURCE <<END_C;
  (op_func${suffix}_t)0  /* NULL function pointer */
};


END_C
}

my (%names, $tot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846165	846459	
==>"JUMP" => 0,
                  "NAME" => "chr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	846960	847254	
==>"JUMP" => 0,
                  "NAME" => "chr",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6124	6223	
==>x45 goto POST_BRANCH_switch_${CURIC}
${ITEMP0} = ${NEXTPC} + I_arg_0 # XXX Can't use ${ARG0} :-(
pro <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4062	4161	
==>x45 goto POST_BRANCH_switch_${CURIC}
${ITEMP0} = ${NEXTPC} + I_arg_0 # XXX Can't use ${ARG0} :-(
pro <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39461	39585	
==>"expected"  => "<${type}op: ".$leftarg->describe." ".$op->describe." ".$rightarg->describe.">",
	}, $class;
}

sub code($$$$) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2000	2118	
==>($self->name);

  #
  # If the identifier is already defined at this lexical scope, we want to complain
  # about the r <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1747	1865	
==>($self->name);

  #
  # If the identifier is already defined at this lexical scope, we want to complain
  # about the r <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	659	793	
==>1];

  foreach my $key (sort keys %{$_[2]}) {
    unless($key =~ m/^~/s) {
      next if $key eq 'start_line' and $_[0]{'hide_line_numb <==
2	/Users/nnunley/parrot/config/init/hints.pm	1007	1126	
==>al";
    print "$hints " if $verbose;
    eval "use $hints";
    unless ($@) {
        $hints->runstep($conf, @_) if $hi <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6375	6567	
==>>			$debug & 0x01
#DBG>		and	print STDERR "Don't need token.\n";
        }

            defined($act)
        and do {

                $act > 0
            and do {        #shift

#D <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6079	6261	
==>>			$debug & 0x01
#DBG>		and	print STDERR "Don't need token.\n";
        }

            defined($act)
        and do {

                $act > 0
            and do {        #shift

#D <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2981	3136	
==>\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # test result
              | " ((?:[^"\\]|\\.)+) "   #" (keep my edito <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4378	4533	
==>\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # test result
              | " ((?:[^"\\]|\\.)+) "   #" (keep my edito <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19027	19234	
==>ltrim$(a$)
print rtrim$(a$);"<"
' A's and -'s
print string$(10,75-10)
print string$(20, "-")

' Read, data, restore
' Numbers, symbols in two rows and then two rows of identical numbers
type foo
	first as int <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7298	7392	
==>ltrim$(a$)
print rtrim$(a$);"<"
' A's and -'s
print string$(10,75-10)
print string$(20, "-")

' <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2803	2907	
==>t) = @_;

    return "interpreter->resume_offset = REL_PC + $offset; interpreter->resume_flag = 1";
}

=i <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4138	4242	
==>t) = @_;

    return "interpreter->resume_offset = REL_PC + $offset; interpreter->resume_flag = 1";
}

=i <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	165	268	
==>ed for a stack.
# Inherits from SRM::Base.

package SRM::Register;
use strict;
use SRM::Base;
our @ISA = <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	6213	6361	
==>ngs($text)>

Convert Win32 style line endins with Unix style line endings.

=item C<path_to_parrot()>

Construct a relative path from the current dir <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	138	288	
==>S);
$VERSION = '2.02';
BEGIN {
  @ISA = ('Pod::Simple');
  *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG;
}

__PACKAGE__->_accessorize(
  'root', <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	139	266	
==>S);
$VERSION = '2.02';
BEGIN {
  @ISA = ('Pod::Simple');
  *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG;
}

$ATTR_PAD = " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	357961	358081	
==>"#line 245 \"src/ops/io.ops\"\n  PIO_eprintf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358625	358745	
==>"#line 245 \"src/ops/io.ops\"\n  PIO_eprintf(interpreter, \"%f\", (double){{\@1}});\n  {{+=2}};\n",
                  "LA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	85428	85530	
==>BODY" => "#line 1208 \"src/ops/core.ops\"\n  PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	86335	86437	
==>BODY" => "#line 1208 \"src/ops/core.ops\"\n  PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interp <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	19716	19991	
==>L_FRAMES is disabled, add the signature to src/call_list.txt", 75, "ascii", 0);
#endif
    message = string_concat(interpreter, message, ns, 0);

    /*
     * I think there may be memory issues with this but if we get to here we are
     * aborting.
     */
    c = string_to <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1057818	1058328	
==>" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1181,
                  "ARGS" => [
                              "p",
                              "k",
                              "sc"
                            ],
                  "BODY" => "#line 194 \"src/ops/var.ops\"\n    {{\@1}} = Parrot_g <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	13051	13192	
==>ont = $self->forth->text;
        $self->require_open_brace;
      }

      #
      # If we are not currently 'inside' a block, then we've got <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	6338	6444	
==>d $d and length $d;
    Carp::croak "\"$d\" isn't a valid directive name"
     unless $d =~ m/^[a-zA-Z][a-z <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	7132	7238	
==>d $d and length $d;
    Carp::croak "\"$d\" isn't a valid directive name"
     unless $d =~ m/^[a-zA-Z][a-z <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408925	409201	
==>ion",
                  "CODE" => 472,
                  "ARGS" => [
                              "i",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 540 \"src/ops/io.ops\"\n    {{\@1}} = <==
2	/Users/nnunley/parrot/config/init/hints/darwin.pm	147	342	
==>s::darwin;

use strict;

sub runstep
{
    my ($self, $conf) = @_;

    my ($ccflags, $ldflags, $libs) = $conf->data->get(qw(ccflags ldflags libs));

    my $OSVers = `uname -r`;
    chomp $OSVers <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	16117	16254	
==>tate 38
		ACTIONS => {
			"}" => 87,
			"-" => 24,
			'NAME' => 91,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39, <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	6235	6341	
==>No Parrot API: %d ---\n", scalar @UnParrotAPI;
    for my $api (@UnParrotAPI) {
	printf "%s\t%s\tNO_API\n", <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	43751	43861	
==>rg ($node, 0);
    if (exists $func->{value}) {
      my $symbol = $func->{value};
      if (exists $global_ops <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	14918	15083	
==>ame;
    
    # This is a cheat because we know that all top-level sections
    # have their indexes in the root directory - but it works.
    
    $self->{NAV_BAR} = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	10837	10983	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sub do_beginning {
  my $self = $_[0];
  my $fh = $self->{'output_fh'};
  return print $fh <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	1732	1857	
==>l.

=item C<--type=bsd>

=item C<-B>

The same as C<--t>.

=item C<--type=long>

=item C<-L>

Append a long type (e.g. "global <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	14500	14617	
==>elike($textref,'\s*',$patvalid,$patvalid) )
		{
			$patvalid = 0;
			next;
		}


		# NEED TO COVER MANY MORE CASES HER <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8098	8236	
==>_colon) {
        my $prop = $self->require_ident->text;
      
        my $value;

        if ($self->skip_assign) {
          $value = Ja <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5104	5236	
==>_colon) {
        my $prop = $self->require_ident->text;

        my $value;

        if ($self->skip_assign) {
          $value = Ja <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	673251	673710	
==>0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 754,
                  "ARGS" => [
                              "n",
                              "p"
                            ],
                  "BODY" => "#line 444 \"src/o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	643526	643825	
==>ME" => "typeof",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 719, <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	650	749	
==>lts to '/usr'.

=item C<exec_prefix>

The exec prefix. Defaults to '/usr'.

=item C<bindir>

The exe <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	879	978	
==>lts to '/usr'.

=item C<exec_prefix>

The exec prefix. Defaults to '/usr'.

=item C<bindir>

The exe <==
2	/Users/nnunley/parrot/lib/Test/More.pm	24522	24731	
==>::More provides a handful of useful functions.

B<NOTE> I'm not quite sure what will happen with filehandles.

=over 4

=item B<is_deeply>

  is_deeply( $this, $that, $test_name );

Similar to is(), except that <==
2	/Users/nnunley/parrot/examples/benchmarks/shared_ref.pl	193	331	
==>f.pl - Shared reference between threads

=head1 SYNOPSIS

    % time perl examples/benchmarks/shared_ref.pl

=head1 DESCRIPTION

Shares ref <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79121	79215	
==>st char * const err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_F <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80642	80736	
==>st char * const err = Parrot_dlerror();\n      Parrot_warn(interpreter, PARROT_WARNINGS_UNDEF_F <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	15592	15859	
==>func_t)($proto);
    func_t pointer;
    $call_state
    $return_data
    $temp_decl
    $other_decl
    Parrot_init_arg_nci(interpreter, &st, \"$sig\");
    $extra_preamble

    pointer =  (func_t)D2FPTR(PMC_struct_val(self));
    $temp_in
    $return_assign ($ret_ty <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	1088	1189	
==>splice @_, 0, 2;
	my ($extrapos, $extralen) = @_>18 ? splice(@_, -2, 2) : (0,0);
	my ($startlen) = $_[ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	40635	40761	
==>n";
      }

      if( defined $section_name ) {
        $ell->[1]{'section'} = Pod::Simple::LinkSection->new(
          ['', { <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1330	1439	
==>Compiler!" unless defined $compiler;

  my $type = $self->type;

#  $self->DEBUG(0, "Compiling literal of type <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	4015	4146	
==>_[0];
}

sub FETCH    
{
	my $parser = $_[0]->{parser};
	my $missing = $parser->{fulltextlen}-length(${$_[0]->{text}})-$_[0]->{prev} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10465	10600	
==>),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE|PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT",
                  "NAME" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64054	64189	
==>),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE|PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT",
                  "NAME" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1085202	1085591	
==>",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1204,
                  "ARGS" => [
                              "p", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	698301	698855	
==>gister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 784,
                  "ARGS" => [
                              "i",
                              "ic",
                              "ic",
                              "p"
                            ],
                  "BOD <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	1798	1910	
==>. F<perlint.pmc> -> F<perlint.c> and F<perlint.h>).

Next, the file is searched for C</pmclass \w*/> which attemp <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	6764	6944	
==>g_types  = "$opsarraytype *, Interp *";
    my $prototype  = "$sym_export $opsarraytype * $func_name ($arg_types)";
    my $args       = "$opsarraytype *cur_opcode, Interp * interpr <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	15033	15136	
==>}
  return $self->_complain_warn(@_) if $self->{'complain_stderr'};
  return $self->_complain_errata(@_) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	699302	699925	
==>gister",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 785,
                  "ARGS" => [
                              "ic",
                              "ic",
                              "ic",
                              "p"
                            ],
                  "BODY" => "#line 659 \"src/ops/pmc.ops\"\n  mmd_register_sub(interpreter <==
2	/Users/nnunley/parrot/lib/Test/More.pm	5458	5625	
==>eleration

The later gives you some idea of what failed.  It also makes it easier
to find the test in your script, simply search for "simple
exponential".

All test fun <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2276	2388	
==>he
relevant C code.

=cut

sub goto_offset
{
    my ($self, $offset) = @_;
    return "{ cur_opcode += $offset; g <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Perl.pm	1363	1457	
==>w_item('', 'lib/Parrot/Docs/HTMLPage.pm'),
            $self->new_item('', 'lib/Parrot/Docs/Fil <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	5453	5551	
==>e for inclusion in C code,
    and an array of C<Parrot::Op> instances representing the Parrot ops. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	346	440	
==>e for inclusion in C code,
and an array of C<Parrot::Op> instances representing the Parrot ops. <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	4191	4295	
==>B says that if no prompt, use " ?"
	if ($type[CURR] eq "STRING") {
		$promptcode.=qq{\tprint "$syms[CURR] <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	821	918	
==>ents the C<Pod::Simple::HTML> method to add a header to the start
of the document.

=cut

sub do_b <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	13476	13578	
==>ne of its subclasses. The element is not initialized
by default.

The accessor's argument, if any, is a <==
2	/Users/nnunley/parrot/config/init/hints/netbsd.pm	231	349	
==>ags .= ' -pthread';
    }
    $conf->data->set(ccflags => $ccflags);

    my $libs = $conf->data->get('libs');
    if ( <==
2	/Users/nnunley/parrot/config/init/hints/openbsd.pm	323	441	
==>ags .= ' -pthread';
    }
    $conf->data->set(ccflags => $ccflags);

    my $libs = $conf->data->get('libs');
    if ( <==
2	/Users/nnunley/parrot/Configure.pl	6218	6358	
==>der for shared libraries
   --ldflags=(flags)    Use the given loader flags for shared libraries
   --lex=(lexer)        Use the given lexica <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	7178	7313	
==>m.c"))
          or die "compile $src_stem.c failed ($?)\n";
    }
    else {
        1;
    }
}

sub partial_link {
    my ($group, $li <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7389	7524	
==>m.c"))
          or die "compile $src_stem.c failed ($?)\n";
    }
    else {
        1;
    }
}

sub partial_link {
    my ($group, $li <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	4952	5142	
==>~ m/\G($ldel)/gc)
	{
		_failmsg "Did not find opening bracket after prefix: \"$pre\"",
		         pos $$textref;
		pos $$textref = $startpos;
		return;
	}

	my @nesting = ( $1 );
	my $textlen <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	6368	6482	
==>two spaces.

    # there are two exceptions.  The outermost "GUARD" ifdef doesn't increase
    # the indenting leve <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	1032	1153	
==>:
	# do we ever export anything else than 'struct'...?
      $self->export_to_level( 1, $self, @_ );
    } else {
      &s <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5442	5559	
==>rint join(" ", @_), "\n";

    return system(@_) == 0;
}

# XXX: ordering of libs might be crucial
sub gather_groups_a <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5653	5770	
==>rint join(" ", @_), "\n";

    return system(@_) == 0;
}

# XXX: ordering of libs might be crucial
sub gather_groups_a <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	1830	1949	
==>t <<END;
    </list>
    
    <list name="ops">
END

for my $ops_file (@ops_files) {
    open OPS, "<$ops_file" or die " <==
2	/Users/nnunley/parrot/lib/Test/More.pm	3693	3801	
==>iately with a zero (success).  See L<Test::Harness> for
details.

If you want to control what functions Test: <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	19442	19536	
==>itle except that it returns the contents of the
"=head1 AUTHOR\n\nParagraph...\n" section, assu <==
2	/Users/nnunley/parrot/examples/benchmarks/freeze.pl	862	962	
==>int "Image len ", length($image), "\n";
print "array size ", scalar(@b), "\n";

=head1 SEE ALSO

F<ex <==
2	/Users/nnunley/parrot/config/auto/memalign.pm	2	214	
==>Copyright (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/config/auto/memalign.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/memalign.pm - Memory Alignment

=head1 DESCRIPTION

Determin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1061547	1061764	
==>YPE" => "function",
                  "CODE" => 1185,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 241 \"src/ops/var.ops\"\n    {{\@1 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	863060	863308	
==>DE" => 979,
                  "ARGS" => [
                              "i",
                              "sc"
                            ],
                  "BODY" => "#line 138 \"src/ops/string.ops\"\n  {{\@1}} = string_length(interpreter, {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031411	1031511	
==>DY" => "#line 323 \"src/ops/sys.ops\"\n    if ({{\@2}} < enum_first_type || {{\@2}} >= enum_last_type <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032280	1032380	
==>DY" => "#line 323 \"src/ops/sys.ops\"\n    if ({{\@2}} < enum_first_type || {{\@2}} >= enum_last_type <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	16596	16754	
==>cal $^W = 0;
        local($@,$!);   # don't interfere with $@
                        # eval() sometimes resets $!
        $test = eval "\$got $type \$expect" <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21654	21817	
==>e($node->{children}[1]);
  $self->_add_inst(''           ,'gt'    ,[$temp,0,"DONE_$label"]);
  $self->_restore($temp);
  $self->_add_inst(''           ,'set'   ,[$r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	159275	159448	
==>i",
                              "ic"
                            ],
                  "BODY" => "#line 176 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	160172	160345	
==>i",
                              "ic"
                            ],
                  "BODY" => "#line 176 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	2367	2464	
==>r_opcode += $offset; goto SWITCH_AGAIN; }";
}

=item C<goto_pop()>

Transforms the C<goto POP()> m <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18316	18623	
==>LSE' => 33,
			'FUNCTION' => 34,
			'NUMBER' => 36,
			")" => 99
		},
		GOTOS => {
			'exp' => 100,
			'functioncall' => 31,
			'explist1' => 98,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 49
		ACTIONS => {
			'NAME' => 101
		}
	} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210261	210356	
==>e(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) <= 0) {\n    { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211241	211336	
==>e(interpreter,\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) <= 0) {\n    { <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	27295	27402	
==>ule->{'name'}");

		# If we have PIR for the instruction, just take that. If not, we need
		# to generate it <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	34434	34541	
==>ule->{'name'}");

		# If we have PIR for the instruction, just take that. If not, we need
		# to generate it <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	410401	410614	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "send",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411293	411506	
==>Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "send",
                  "FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	2524	2811	
==>,
                   bless( [
                            'I',
                            {},
                            'ar'
                          ], 'Pod::Simple::LinkSection' ),
                   'baz'
                 ], 'Pod::Simple::LinkSection' );
  
But stringify it and yo <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	10681	10799	
==>' eq chr(65);
        $section = $self->unicode_escape_url($section);
        # Turn char 1234 into "(1234)"
        $s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4062	4169	
==>' eq chr(65);
    $section = $self->unicode_escape_url($section);
     # Turn char 1234 into "(1234)"
    $s <==
2	/Users/nnunley/parrot/lib/Pod/Simple/XMLOutStream.pm	2623	2738	
==>lter(shift)->any_errata_seen" \
   thingy.pod

=head1 DESCRIPTION

Pod::Simple::XMLOutStream is a subclass of L<Pod: <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	40357	40475	
==>+\([-a-zA-Z0-9]+\)$/s
      ) {
        $ell->[1]{'type'}    = 'man';
        DEBUG > 3 and print "Considering this ($e <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	8323	8561	
==>my $repeating =  defined($_[2]) && $_[2];
	my $_noactions = defined($_[3]) && $_[3];
 	my @arg =        defined $_[4] ? @{ &{$_[4]} } : ();
	my %arg =        ($#arg & 01) ? @arg : (@arg, undef);
	my $text;
	my $lastsep="";
	local ($Parse:: <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	7466	7610	
==>rser->_LongStringLexer($1);

            s/^([A-Z_a-z][0-9A-Z_a-z]*)//
                and return $parser->_Identifier($1);

            s/^ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	761	889	
==>mport> method and exports no
I<symbols>.

=cut

package Parrot::Configure;

use strict;
use warnings;

use lib qw(config);
use Ca <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	23534	23649	
==>kpos);
			$firstpos = $unkpos unless defined $firstpos;
			$lastpos = length $$textref;
		}
		last;
	}

	pos $$textr <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3741	3880	
==>t {
	feedme();
	my $promptcode="";
	if ($syms[CURR] eq ";") {
		feedme();		# Ignore this form for now.
	}
	if ($syms[CURR] eq "#") {
		feedm <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791195	791603	
==>",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 893,
                  "ARGS" => [
                              "p",
                              "p",
                              "ki"
                            ],
                  "BODY" => "#line 432 \"src/ops/set.ops\"\n <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2837	2980	
==>\{ ([^}]+) \}          # test description
             \s+ (?:\S+ \s+)? \{ \n     # optional test harness info (ignoring)
                 ( (?: <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4234	4377	
==>\{ ([^}]+) \}          # test description
             \s+ (?:\S+ \s+)? \{ \n     # optional test harness info (ignoring)
                 ( (?: <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	53117	53270	
==>ences, specifying the extractors
to be used to split the string. If this argument is omitted (or
C<undef>) the list:

        [
                sub { extr <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	440	622	
==>e2 ...]

=head1 DESCRIPTION

This script is intended to give us an idea of what C<libc> functions
this build depends upon.

=head2 Options

=over 4

=item C<object>

In C<object> mode <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	15481	15593	
==>= length $opts ? "(?$opts)$re" : $re;
    }

    return $usable_regex;
};

sub _regex_ok {
    my($self, $this, $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	34728	35047	
==>set_pointer(interpreter, {{\@1}}, (void* ){{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                1
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "get_ad <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	4602	4691	
==>->do_middle && $self->do_end;
}


#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	3233	3321	
==>->do_middle && $self->do_end;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7777	7972	
==>@$stack[ -$$dotpos .. -1 ]
                        :   ();

            $semval = $code ? &$code( $self, @sempar )
                            : @sempar ? $sempar[0] : undef;

            sp <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	7425	7614	
==>@$stack[ -$$dotpos .. -1 ]
                        :   ();

            $semval = $code ? &$code( $self, @sempar )
                            : @sempar ? $sempar[0] : undef;

            sp <==
2	/Users/nnunley/parrot/config/auto/headers.pm	558	818	
==>) {
        $self->set_result('skipped');
        return $self;
    }

    # perl5's Configure system doesn't call this by its full name, which may
    # confuse use later, particularly once we break free and start doing all
    # probing ourselves
    my %mapp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840935	841238	
==>1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "ord",
                  "FLAGS" => ":base_core",
                  "ARG <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	21484	21597	
==>age"]= P0
	P1["_type"], '$_->[1]'
	P2["$_->[0]"]= P1
USERTYPE
			}
		}
	
		print CODE<<FINDIM;
	save P2
	popp
	res <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	273983	274378	
==>" => "isle",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 319,
                  "ARGS" => [
                              "i",
                              "nc" <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	24071	24227	
==>d_f,
                                     'STDERR' => $build_f);
            $builder->diag("'$cmd' failed with exit code $exit_code")
                if $ex <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	24832	24980	
==>d_f,
                                     'STDERR' => $build_f);
            $builder->diag("'$cmd' failed with exit code $exit_code")
        if $ex <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	2837	3067	
==>s function is exported.

=cut

sub dynext_load_code {
    my ($libname, %classes ) = @_;

    my $lc_libname = lc $libname;
    my $cout;

    $cout .= <<"EOC";
/*
 * This load function will be called to do global (once) setup
 * w <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4582	4742	
==>sx;

    while ($source =~ m{$regex}go) {
        my ($name, $expl, $body, $out) = ($1, $2, $3, choose($4, unescape($5), $6));

        # make the test print the <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	560	692	
==>n.

=head2 Options

=over 4

=item C<object>

In C<object> mode, it expects a list of all parrot's object files. It
runs C<nm> on eac <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024988	1025084	
==>=> "#line 275 \"src/ops/sys.ops\"\n   {{\@1}} = sysinfo_s(interpreter, {{\@2}});\n   {{+=3}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025745	1025841	
==>=> "#line 275 \"src/ops/sys.ops\"\n   {{\@1}} = sysinfo_s(interpreter, {{\@2}});\n   {{+=3}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573080	573315	
==>rpreter, enum_class_ParrotClass, name);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	573990	574225	
==>rpreter, enum_class_ParrotClass, name);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         ble <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	2538	2670	
==>eturn };
}

sub add_smoke {
  my $CGI = shift;
  my $html = $CGI->param("smoke");

  my $id = md5_hex $html;
  if(glob "parrot-smoke- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	687556	687850	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	688327	688621	
==>0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "delprop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 " <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	7452	7622	
==>n";
        }
        else {
            print {$FH}
                "  if $op->{arg1}->{symbol} goto $op->{result}->{symbol}\n";
        }
    }

    sub visitBra <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	1777	2002	
==>1
         goto B2

 to

     B1: sub x, 1
         goto S0
     B2: sub x, 2
         goto S0
     B3: sub x, 3
         goto S0

since this commonly occurs in regex code, due to sequence of
single-character matches (eg /a[bB <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	158	260	
==>amples/mops/mops.c - Calculate M ops/s

=head1 SYNOPSIS

    % perl examples/mops/mops.pl

=head1 DESCR <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	154	256	
==>amples/mops/mops.c - Calculate M ops/s

=head1 SYNOPSIS

    % perl examples/mops/mops.pl

=head1 DESCR <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	11371	11466	
==>0x19
	.const int ELEMENT_TYPE_FNPTR = 0x1B
	.const int ELEMENT_TYPE_OBJECT = 0x1C
	.const int EL <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1520	1653	
==><expr_offset($offset)>

Returns the C code for C<OFFSET($offset)>. Called by C<goto_offset()>.

=cut

sub expr_offset
{
    my ($self, <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	3185	3369	
==>gen/makefiles/languages.in' => 'languages/Makefile',
        commentType                         => '#',
        replace_slashes                     => 1
    );
    genfile(
        'co <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	10198	10390	
==>ewp_ic_op";
            $opbody =~ /vtable->(\w+)/;
            $extern = 2;  # fake number
            #print "$jit_func $extern\n";
        }
        # jitable vtable funcs:
        # *) $1-> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	3555	3697	
==>);         }
sub is_var           { return shift->is('var');           }
sub is_while         { return shift->is('while');         }

sub is_lo <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1031	1169	
==>ons. This register value is
# returned to the caller.
#
# Converts a single string argument:
#
#     "Foo $a ${b}ar\n"
#
# to multiple argu <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	2128	2265	
==>t $file line ".$fh->input_line_number()."\n";
        }
    }

    return $vtable;
}

=item C<vtbl_defs($vtable)>

Returns the C C<typedef <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	12047	12143	
==>ef of programs to search the current C<PATH> for.  The first matching
program name is returned or <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017890	1017989	
==>"BODY" => "#line 182 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018815	1018914	
==>"BODY" => "#line 182 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  c <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24598	24702	
==>$sourceline";
		}
}
my $forloop=0;
sub parse_for {   # for var = start to finish [step increment]
	my($en <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	3770	3934	
==>es %{$self->{pmcs}}) {
        my $name = lc $pmc->{class};
        $cout .= <<"EOC";
#include "pmc_$name.h"
EOC
    }
    "$cout\n";
}

=back

=head1 SEE ALSO

=ove <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3654	3760	
==>de eq 'compile') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_l <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3758	3864	
==>de eq 'compile') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082258	1082537	
==>> "function",
                  "CODE" => 1201,
                  "ARGS" => [
                              "p",
                              "i",
                              "kc"
                            ],
                  "BODY" => "#line 145 \"src/ops/experimental.ops\ <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	505	688	
==>t;
        my ($symb) = @_;
##    warn "Lookup $symb\n";
        if ( exists $self->{table}{$symb} ) {
            my $defn = $self->{table}{$symb};
##        warn "\tfound 1 in $ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	706	855	
==>ir indices.

=cut

sub label_indices {
    my ($self, $op) = @_;
    my @indices;
    for my $i (0..$#{ $op->{args} }) {
        my $arg = $op->{args} <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	8935	9022	
==>thisoffset, q{Parse::RecDescent::OffsetCounter}, \$text, $thisparser;
	':'') . ($parser- <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1008	1095	
==>e[i])
#define SREG(i) REG_STR(cur_opcode[i])
#define CONST(i) CONTEXT(interpreter->ctx)- <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1124	1211	
==>e[i])
#define SREG(i) REG_STR(cur_opcode[i])
#define CONST(i) CONTEXT(interpreter->ctx)- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1023381	1023473	
==>\@2}};\n  Parrot_localtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1024231	1024323	
==>\@2}};\n  Parrot_localtime_r(&t, &tm);\n  {{\@1}} = tm_to_array(interpreter, &tm);\n  {{+=3}} <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	20529	20683	
==>ot a group; jump straight to instruction.
                my $name = $_->{'name'};
                $name =~ s/\./_/g;
                $pir .= "    if cur_i <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2768	2861	
==>y $extraLibs = '-lm -lgmp -lreadline -lpthread -lm -L/opt/local/lib  -licuuc -licudata -lpthre <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	2563	2656	
==>y $extraLibs = '-lm -lgmp -lreadline -lpthread -lm -L/opt/local/lib  -licuuc -licudata -lpthre <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	21992	22212	
==>classname";
    $cout .= <<"EOC";
void
Parrot_${classname}_class_init(Parrot_Interp interp, int entry, int pass)
{
    const struct _vtable temp_base_vtable = {
        NULL,	/* namespace */
        $enum_name,	/* base_ty <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	359190	359367	
==>=> [
                              "s"
                            ],
                  "BODY" => "#line 250 \"src/ops/io.ops\"\n  STRING * const s = {{\@1}};\n  if (s && string_ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	21295	21446	
==>, $meth_name];
            }
            $self->{mmds} = @mmds;
        }
    }
    my $methlist = join(",\n        ", @meths);
    my $mmd_list = join( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79515	79613	
==>@1}} = pmc_new(interpreter, enum_class_UnManagedStruct);\n      PMC_data({{\@1}}) = p;\n  }\n  {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	81036	81134	
==>@1}} = pmc_new(interpreter, enum_class_UnManagedStruct);\n      PMC_data({{\@1}}) = p;\n  }\n  {{+= <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569268	569359	
==>Y" => "#line 218 \"src/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->isa(interpreter, {{\@2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570161	570252	
==>Y" => "#line 218 \"src/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->isa(interpreter, {{\@2 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	394212	394595	
==>\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "tell",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8471	8650	
==>err) {
            if (   (defined($_))
                && ($_ ne File::Spec->devnull)
                && (!m/^&/)) {
                open(my $out, $_);
                print <$out <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	18793	18960	
==>) = @_;
    my $t = pop @stack;
    my $n = temp('P');
    my $p = $t->[1];
    print <<EOC;
	$n = new $DEFVAR
	neg $n, $p $cmt
EOC
    push @stack, [-1, $n, 'P'];
}

s <==
2	/Users/nnunley/parrot/languages/scheme/Scheme.pm	1155	1307	
==>ompile

This is called in schemec.

=cut

sub compile {
  my $self = shift;

  $self->{tokens} = Scheme::Tokenizer::tokenize($self->{file});
  $self->{tr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509038	509282	
==>@1}} = - {{\@1}};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	509669	509913	
==>@1}} = - {{\@1}};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => " <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	353	521	
==>c> files that correspond to the F<*.o> files passed
on the command line.

    % perl tools/build/headerizer.pl OBJFILES

=head1 DESCRIPTION

=head1 TODO

* Tell if there <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	13297	13412	
==>${bs}op_lib.op_info_table;
    /* store full names */
    for (i = 0; i < ${bs}op_lib.op_count; i++)
        store_o <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18127	18315	
==>_semicolon;

      my $arith = Jako::Construct::Statement::Bitwise->new($block, $ident, $left, $op, $right);

      next;
    }

    #
    # Subroutine Calls:
    #
    #     <ident>(<arg>, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	97497	97778	
==>@1}} = ~ {{\@1}};\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bnot",
                  "FLAGS" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029711	1029830	
==>"src/ops/sys.ops\"\n  opcode_t *next = {{^+2}};\n  if ({{\@1}} < 0.0) {\n      real_exception(interpreter, next, NEG_SLE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030553	1030672	
==>"src/ops/sys.ops\"\n  opcode_t *next = {{^+2}};\n  if ({{\@1}} < 0.0) {\n      real_exception(interpreter, next, NEG_SLE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	205577	205840	
==>1}}, {{\@2}}, MMD_CMP) <= 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                1
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614952	615083	
==>);\n    if (offset < 0) {\n        real_exception(interpreter, next, NO_CLASS,\n            \"Class not parent of object\");\n    }\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	616103	616234	
==>);\n    if (offset < 0) {\n        real_exception(interpreter, next, NO_CLASS,\n            \"Class not parent of object\");\n    }\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	623	759	
==>=cut

sub core_prefix
{
    return "";
}

=item C<defines()>

Returns the C C<#define> macros for register access etc.

=cut

sub defines <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	665252	665482	
==>table->delete_keyed_int(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	666029	666259	
==>table->delete_keyed_int(interpreter, {{\@1}}, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1031447	1031568	
==>"\n    if ({{\@2}} < enum_first_type || {{\@2}} >= enum_last_type)\n        {{\@1}} = -1;\n    else\n        {{\@1}} = dat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1032316	1032437	
==>"\n    if ({{\@2}} < enum_first_type || {{\@2}} >= enum_last_type)\n        {{\@1}} = -1;\n    else\n        {{\@1}} = dat <==
2	/Users/nnunley/parrot/lib/Test/More.pm	22449	22571	
==>w
how much work is left to be done, you're aware of what bugs there are,
and you'll know immediately when they're fixed.

O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	285173	285655	
==>" => "islt",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 332,
                  "ARGS" => [
                              "i",
                              "sc",
                              "s"
                            ],
                  "B <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1026	1122	
==>->compile($compiler);

  $compiler->emit("  inc $ident");

  if (($self->ident->kind eq 'var') an <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	888053	888220	
==>i",
                              "s"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	889187	889354	
==>i",
                              "s"
                            ],
                  "BODY" => "#line 252 \"src/ops/string.ops\"\n  {{\@1}} = string_replace(interpret <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	847	940	
==>uct::Expression::Value::Identifier));
  confess "Value (" . ref($value) . ") is not!" unless U <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1547	1699	
==>0')
    {
        return "return (0);"
    }
    else
    {
        return "if ((opcode_t *) $addr == 0)
	  return 0;
   _reg_base = (char*)interpreter-> <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	14016	14148	
==>s_<tmpl_var name=id>">
            <td colspan="12" class="indent3">
              <tmpl_loop name=summary>
                <span cla <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	6238	6567	
==>t $fh "<a href='$type'>";
        } else {
          print $fh "<a>"; # Yes, an 'a' element with no attributes!
        }

      } elsif ($tagname eq 'item-text' or $tagname =~ m/^head\d$/s) {
        print $fh $self->{'Tagmap'}{$tagname} || next;

        my @to_unget;
        while(1) {
          push @to_unget, $self->get_tok <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18250	18447	
==>se <5
	print "Ok!"
case <10   ' Fallthrough
	print "Ok (not!)"
end select
select case h
case 1
	print "Nothing!"
case 2
	print "Wrong-o!"
case else
	print "Right!"
end select
a$="one"
select case a$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829461	829667	
==>[
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 159 \"src/ops/stack.ops\"\n  Stack_Entry_t * const entry =\n  \tstack <==
2	/Users/nnunley/parrot/languages/lua/Lua/symbtab.pm	3484	3614	
==>ype} = $subtype if ( defined $subtype );
        $self->{name}    = $name if ( defined $name );
        return $self;
    }

} <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	3741	3868	
==>SYNOPSIS

 use Parrot::PIR::Formatter;

=head1 DESCRIPTION

Primarily intended to be used by C<pirtidy.pl>. Given some ugly PIR, <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	6559	6684	
==>i = $n; @{$def_args{$arg}}; $i--) {
	    my $reg = 4 + $i;
	    my $d = pop @{$def_args{$arg}};
	    my $arg_name = pop @param <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4630	4739	
==>hat for loading debugging version of the driver,
#this file will be parsed from 'sub _Parse' up to '}#_Parse' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4396	4504	
==>hat for loading debugging version of the driver,
#this file will be parsed from 'sub _Parse' up to '}#_Parse' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630593	630701	
==>_CLASS,\n            \"Class '%Ss' not found\", readable_name(interpreter, class));\n    {{\@1}} = pmc_new(in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631583	631691	
==>_CLASS,\n            \"Class '%Ss' not found\", readable_name(interpreter, class));\n    {{\@1}} = pmc_new(in <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	55938	56145	
==>ypes = eval 'no strict; local $SIG{__WARN__} = sub {0}; my @arr=('.$code.'); @arr' || (); 
				if (!$types)
				{
					_error("Incorrect token specification: \"$@\"", $line);
					_hint("The <token:...> direc <==
2	/Users/nnunley/parrot/config/auto/env.pm	134	246	
==>ME

config/auto/env.pm - System Environment

=head1 DESCRIPTION

Determining if the C library has C<setenv()> and <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	4289	4403	
==><$index>.

=cut

sub arg_type
{
    my $self = shift;

    return $self->{ARGS}[shift];
}

=item C<arg_dirs()>

Ret <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	100	239	
==>);
use vars qw( %arrays );
use vars qw( $funcname $subname );
use vars qw( %labels $branchseq @selects);
use vars qw( @data $sourceline %com <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	111080	111326	
==>S" => [
                              "s",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 187 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_or(interpreter, { <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	31	145	
==>Foundation.
# $Id: /parrot/lib/Parrot/Docs/Section.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

P <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	2754	2970	
==>w_lex {
  my ($self, $symbol, $value) = @_;
  $self->_add_inst ('','store_lex',[-1,"\"$symbol\"",$value]);
  $self->{scope}->{$symbol} = $value;
}

sub _new_pair {
  my ($self) = @_;
  my $return = $self->_save_1('P') <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	473886	474165	
==>543,
                  "ARGS" => [
                              "n",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 403 \"src/ops/math.ops\"\n  FLOATVAL den = {{\@3}};\n  if ({{\@3}} == 0.0)\ <==
2	/Users/nnunley/parrot/lib/File/Which.pm	3739	3841	
==>r which the `which' program wasn't implemented in the shell.

C<File::Which> searches the directories o <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	4730	4901	
==>$short_desc;
    }
    
    if ( $self->{TEXT} )
    {
        $index_html .= "$self->{TEXT}<br>\n";
        $index_html = '<p>' . $index_html . "</p>\n";
    }
    
    re <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9612	9772	
==>:[-\.0-9]/s;
            # The legal under-0x80 Name characters that 
            #  an XML Name still can't start with.
    }
    
    $this->{'accept_codes'}{$ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	21808	22022	
==>'   => ".Lua" . ucfirst( $type{$op} ),
    );
    push @opcodes, new BinaryOp( $parser,
        'op'     => $opcode{$op},
        'arg1'   => $expr1->[0],
        'arg2'   => $expr2->[0],
        'result' => $ <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	12507	12650	
==>cs    stdlib.h
mbtowc      stdlib.h
memchr      string.h
memcmp      string.h
memcpy      string.h
memmove     string.h
memset      string.h
mkt <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49083	49191	
==>if ($grammar =~ m/\G\s*<[^m]/gc)
		{
			pos($grammar)-=2;

			if ($grammar =~ m/$OPMK/gco)
			{
				_parse("a <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2354	2455	
==>_comments($file, $source);
    check_mandatory_boilerplate($file, $source);

    # The following SHOUL <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	935210	935531	
==>,
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1051,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 440 \"src/ops <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	318	426	
==>read-safe for ithreads.
BEGIN {
    use Config;
    # Load threads::shared when threads are turned on
    if( <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	3509	3647	
==>+)/) {
        $dd_version = $1;
    } else {
        $dd_version = $Data::Dumper::VERSION;
    }

    if ($dd_version >= 2.12) {
        * <==
2	/Users/nnunley/parrot/tools/dev/gen_manifest_skip.pl	945	1053	
==>not available).
# See docs/submissions.pod on how to recreate this file after SVN
# has been told about new g <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	3800	3908	
==>not available).
# See docs/submissions.pod on how to recreate this file after SVN
# has been told about new g <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	2115	2378	
==>t
            map { m{\./src/pmc/(.*)} } glob "./src/pmc/*.pmc"
    );

    @pmc = sort_pmcs(@pmc);

    my $pmc_list = $conf->options->get('pmc')
        || join(' ', grep { defined $_ } @pmc);

    if ($conf->options->get('ask')) {
        print <<"END";


The f <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	3013	3122	
==>nto several events

 'content_seen',      # whether we've seen any real Pod content
 'errors_seen',       # TO <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	13771	13875	
==>NS]/) {
    $self->_add_inst ('', 'set', [$return,0]);
  }
  else {
    $self->_add_inst ('', 'typeof', [ <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	956	1049	
==>p.
$output .= generate_lookup(@methods);

# Generate method code suppliers.
$output .= generat <==
2	/Users/nnunley/parrot/config/auto/jit.pm	208	334	
==>he CPU architecture, the operating system, and whether there is JIT
capability available.

=cut

package auto::jit;

use strict <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	680	823	
==>.$_/; $t
        } ( qw(urm pasm pbc out) ); # JMG

        # STDERR is written into same output file
        open LANG, "> $lang_f" or die "Una <==
2	/Users/nnunley/parrot/config/auto/gcc.pm	5566	5690	
==>ersion) {

        # make the compiler act as ANSIish as possible, and avoid enabling
        # support for GCC-specific feat <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	2668	2797	
==>\n";
        $self->_handle_encoding_line( "=encode utf8" );
        $line =~ tr/\n\r//d;
        
      } elsif( $line =~ s/^\xFE <==
2	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	647	764	
==>g "Reading smoke \"$file\" to upload... ";

  open my $fh, "<", $file or die "Couldn't open \"$file\" for reading: $!\ <==
2	/Users/nnunley/parrot/languages/converter.pl	1337	1476	
==>';
		  $return .= $item[1][0] if defined $item[1][0];
		  $return .= "# $item[2]\n";
		  $return .= $item[3][0] if defined $item[3][0];
 		} <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	268	452	
==>head1 DESCRIPTION

A documentation section describing Parrot tools.

=head2 Class Methods

=over

=cut

package Parrot::Docs::Section::Tools;

use strict;
use warnings;

use base qw( Pa <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	7123	7229	
==>rods"}};
	my $opcount = ++$self->{"opcount"};
	return "_operator_${opcount}_of_production_${prodcount}_of_r <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	2152	2253	
==>\bCONST_STRING\s*\(\w+\s*,//;

	if ($lines_seen{$line}++) {
	    die "Seen line $line before in $infil <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	12232	12407	
==>";
    print OUT page_footer();

    close(OUT);
    close(IN);


    return;

    sub do_filter {
        my ($skip_func) = @_;
        
        while (<IN>) {
            s/& <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	325	444	
==>n describing Parrot's client languages.

=head2 Class Methods

=over

=cut

package Parrot::Docs::Section::Languages;

u <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	2546	2708	
==>= { children => [ { value => 'begin' }, @tree ] };
  }
  return $tree;
}

1;
__END__

=head1 NAME

Scheme::Parser - The Scheme token parser

=head1 SYNOPSIS

  use <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33570	33694	
==>o @$para
            if($paras->[0][0] eq '~Para') {
              DEBUG and print "Assimilating following ~Para content into <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	35383	35507	
==>o @$para
            if($paras->[0][0] eq '~Para') {
              DEBUG and print "Assimilating following ~Para content into <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	13300	13447	
==>($R_back, @R_body) = $self->rewrite($R, $advance);

    my @ops = (
                  $scan => @R_body,
                           aop('goto', [ $ne <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630420	630520	
==>"#line 81 \"src/ops/pmc.ops\"\n    PMC *class = {{\@2}};\n    INTVAL type = pmc_type_p(interpreter, c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	631410	631510	
==>"#line 81 \"src/ops/pmc.ops\"\n    PMC *class = {{\@2}};\n    INTVAL type = pmc_type_p(interpreter, c <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5859	5958	
==>while($_=pop(@{$elsestack->{$elsetag}})) {
				push @{$code{$seg}->{code}}, "ELSEBRANCH_$_:\n";
			} <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8203	8300	
==>while($_=pop(@{$elsestack->{$elsetag}})) {
			push @{$code{$seg}->{code}}, "ELSEBRANCH_$_:\n";
		} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712511	712608	
==>ble){{\@1}});\n  PIO_putps(interpreter, io, s);\n  if (string_str_index(interpreter, s,\n\tconst_s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713618	713715	
==>ble){{\@1}});\n  PIO_putps(interpreter, io, s);\n  if (string_str_index(interpreter, s,\n\tconst_s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	316033	316264	
==>"CODE" => 369,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 82 \"src/ops/dotgnu.ops\"\n  if({{\@1}} >= 0 && {{\@1}} <= 255 ) {\n    {{\@1}} = (INTV <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1046369	1046539	
==>"sc",
                              "p"
                            ],
                  "BODY" => "#line 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interpreter, { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047264	1047434	
==>"sc",
                              "p"
                            ],
                  "BODY" => "#line 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(interpreter, { <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	39700	39802	
==>para line 4";

	extract_tagged($text, '/para', '/endpara', undef,
				{reject => '/para', fail => MAX ) <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	40014	40115	
==>para line 4";

	extract_tagged($text, '/para', '/endpara', undef,
			{reject => '/para', fail => MAX ) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	638878	639037	
==>line 128 \"src/ops/pmc.ops\"\n  opcode_t* arg_op;\n  PMC *sig, *class;\n  int typ;\n  \n  arg_op = interpreter->current_args;\n  if (!arg_op) {\n        real_ex <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	365	549	
==>o::Compiler;

use base qw(Jako::Construct::Block);

sub kind { return 'module'; }

sub new
{
  my $class = shift;

  confess "Expected 3 args!" unless @_ == 3;
  my ($block, $ident, $pr <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	2747	2935	
==>/) {
            my $path = "$dirname/$1";
            rename($1, "$dirname/$1") or die("Couldn't rename $1 to $dirname/$1.");
            $path =~ s/\Q$SRCDIR\E//g;
            $generated_ <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8983	9195	
==>:testing_started = 0;
}

END { Test::test_ends() }

=kwid

= NAME

Test - Test support module for perl6

= SYNOPSIS

  use v6;
  require Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('Some::Module');
  u <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	565	662	
==>refix>

The build prefix. Defaults to ''.

=item C<prefix>

The install prefix. Defaults to '/usr' <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	794	891	
==>refix>

The build prefix. Defaults to ''.

=item C<prefix>

The install prefix. Defaults to '/usr' <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	2444	2549	
==>l _GLOBALS, "COMMON"\n};
				foreach(@saves) {
					$edit.=qq{\t_GLOBALS["$_"]=$_\n};
				}
				$edit.=qq{ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	3669	3919	
==>tDir( $parser,
                'prolog' => 1,
                'result' => $defn,
                'arg1'   => $value,
                'type'   => 'LuaString',
            );
        }
        else {
            push @opcodes, new LocalDir( $par <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	413	538	
==>nstant {
  VERSION     => 0.4,
  MAX_SIZE    => 2**20 * 3.0,  # MiB limit
  BASEDIR     => "/tmp/parrot_smokes/",
  BASEHTTPDI <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	6540	6716	
==>t 2000 Christian Lackas, Imperia Software Solutions
 Copyright 1998-1999 Gisle Aas.
 Copyright 1995-1996 Neil Winton.
 Copyright 1991-1992 RSA Data Security, Inc.

The MD5 algor <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	20000	20109	
==>$i-1,
         ":[$treelet->[$i-1]] and $i\:[$treelet->[$i]]\n";
        $treelet->[$i-1] .= ( splice(@$treele <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5960	6070	
==>=~ /MMD_/);
    next if ($entry->[4] =~ /_INT$/);
    next if ($entry->[4] =~ /_STR$/);
    next if ($entry->[4 <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6378	6488	
==>=~ /MMD_/);
    next if ($entry->[4] =~ /_INT$/);
    next if ($entry->[4] =~ /_STR$/);
    next if ($entry->[4 <==
2	/Users/nnunley/parrot/config/gen/cpu/i386/auto.pm	723	936	
==>py_(\w+)/;
        $f = "config/gen/cpu/i386/$f";
        cc_gen($f);
        eval(cc_build("-DPARROT_CONFIG_TEST"));
        if ($@) {
            print " $@ " if $verbose;
        } else {
            if (cc_run( <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	521	612	
==>, executing, and
coordinating one or more Configuration steps.  Please see
F<docs/configurat <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	3545	3638	
==>$result, $type, @code)=EXPRESSION({ stuff => "\$X99", choose => 1 });
		push @{$code{$seg}->{c <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1405	1656	
==>g
	# every instruction) to see if we need to instate a stack type state
	# that was propogated to this instruction.
	$pir .= <<'PIR';
${PTEMP0} = prop_type_state[${PC}]
if ${PTEMP0} == "" goto NOWT_TO_PROPOGATE
stack_depth = prop_stack_depth[${PC}]
NOW <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2006	2120	
==>g
	# every instruction) to see if we need to instate a stack type state
	# that was propogated to this instruction. <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1041	1174	
==>$class;

  $block->push_content($self);

  return $self;
}


sub dest { return shift->{DEST};  }
sub name { return shift->{NAME};  }
s <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Sub.pm	1127	1270	
==>=> 1,
    FILE  => $ident->file,
    LINE  => $ident->line
  }, $class;

  $block->push_content($self);

  foreach my $arg (@$args) {
    my ($a <==
2	/Users/nnunley/parrot/lib/Test/More.pm	32651	32798	
==>m, as long as both arrays are sorted
    # with the same algorithm.
    # Have to inline the sort routine due to a threading/sort bug.
    # See [rt <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	27413	27563	
==>ntname mapping
      $self->{'accept_codes'}{$new_letter} = $canonical_form;
      DEBUG > 2 and print
       "Extensor maps $new_letter => known eleme <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	2284	2378	
==>$type, $value, $op)>

Returns the C code for the specified op argument type (see
C<Parrot::OpTr <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3175	3269	
==>$type, $value, $op)>

Returns the C code for the specified op argument type (see
C<Parrot::OpTr <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3532	3664	
==>up --c " . join(" ",@pmcfiles))
              or die "pmc2c library creation failed ($?)\n";
        }
    }
} 
elsif ($mode eq 'comp <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3636	3768	
==>up --c " . join(" ",@pmcfiles))
              or die "pmc2c library creation failed ($?)\n";
        }
    }
} 
elsif ($mode eq 'comp <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6572	6721	
==>R I = 2 TO Max
      IF A$(I-1) > A$(I) THEN
         Exchange = TRUE
         B$=A$(I-1)
         A$(I-1)=A$(I)
         A$(I)=B$
         ' SWAP A$( <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16225	16374	
==>R I = 2 TO Max
      IF A$(I-1) > A$(I) THEN
         Exchange = TRUE
         B$=A$(I-1)
         A$(I-1)=A$(I)
         A$(I)=B$
         ' SWAP A$( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6233	6368	
==>ift->require('semicolon');     }
sub require_type          { return shift->require('type');          }

sub require_value         { retu <==
2	/Users/nnunley/parrot/config/gen/platform.pm	3530	3709	
==>v.c
        dl.c
        stat.c
        math.c
        memalign.c
        signal.c
        itimer.c
        memexec.c
        exec.c
        misc.c
        /;

    open PLATFORM_C, <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	7501	7714	
==>::Bin/../../vtable.tbl";
    my $default = parse_vtable($file);
    my $dump    = $file;
    $dump =~ s/\.\w+$/\.dump/;

    my $vtd = open_file( ">", $dump );

    my %vtable = (
        flags   => {},
        pre <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	5407	5570	
==>usly seen on line %d) of $ARGV",
              "$ret$args", $., $seen{"$ret$args"}
        if $opt_warndups;
      next;
    }

    my @extra_preamble;
    my @extr <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	26678	26959	
==>T
{
    my ($n, $c, $cmt) = @_;
    my $tos = pop @stack;
    $fast[$n] = $tos;
    my $p;
    if ($p = $lexicals{$c}) {
	if ($p eq $tos->[1]) {
	    print <<"EOC";
	\t $cmt
EOC
	}
	else {
	    if ($may_be_none{$c}) {
		delete $may_be_none{$c};
		print <<"EOC";
	    ne_addr $c, Non <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	805907	806119	
==>,
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 497 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_integer_keyed(in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	270863	271138	
==>,
                  "CODE" => 315,
                  "ARGS" => [
                              "i",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 871 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@ <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	1396	1503	
==>g a ui
consistency violation?

=item * Fragment describe_file() - it shouldn't both `cat` and dispatch
on fi <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	10224	10330	
==>ilename)}) {
            error("MANIFEST", $line, "$_: case-insensitive collision with " . $files_in_dir_no <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	1540	1653	
==>elf->new_section('Jako', 'jako.html', '', 'languages/jako'),
        $self->new_section('lazy-k', 'lazy-k.html', ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	576593	576900	
==>er, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	577605	577912	
==>er, {{\@2}}, name);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
2	/Users/nnunley/parrot/config/auto/format.pm	20	119	
==>-2003, The Perl Foundation.
# $Id: /parrot/config/auto/format.pm 19593 2006-05-30T02:28:15.110975Z c <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	38653	38758	
==>, this really is the least evil way I
	# can think of to do it.
	$ins =~ s/(\$\{\w+\})/
		"\"\n\${INS} = c <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	58463	58570	
==>next;
			my $rulename = $1;
			if ($rulename =~ /Replace|Extend|Precompile|Save/ )
			{	
				_warn(2,"Rule \ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	260	370	
==>e magical enum fixup.
our @need_enum_fix = (
    qw/2E 2F 30 31 32 33 34 35 36 37 3B 3C 3D 3E 3F 40 41 42 43 44 <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	1022	1245	
==>uppliers.
$output .= generate_bodies(@methods);

# End of output.
$output .= <<'PIR_OUT';
    # Generic unimplemented internal method body (throws exception).
UNIMPLEMENTED:
    body = <<"PIR"
$P0 = new .Exception
$P0["_mess <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1106179	1106282	
==>e 352 \"src/ops/experimental.ops\"\n    int typ = {{\@2}};\n    if (typ < 1 || typ >= interpreter->n_vta <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1107155	1107258	
==>e 352 \"src/ops/experimental.ops\"\n    int typ = {{\@2}};\n    if (typ < 1 || typ >= interpreter->n_vta <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	19438	19543	
==>@$treelet; ++$i) { # iterate over children
      DEBUG > 3 and print " Considering child at $i ", pretty($ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	7104	7202	
==>scalar @{$self->{"prods"}};
	my $opcount = ++$self->{"opcount"};
	return "_operator_${opcount}_of_p <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1067913	1068152	
==>" => [
                              "i",
                              "nc",
                              "n"
                            ],
                  "BODY" => "#line 49 \"src/ops/experimental.ops\"\n\n  FLOATVAL q = 0;\n  FLOATV <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	3514	3660	
==>y = $1;
            $heredoc_value = "";
            $heredoc_terminator = $2;
        }

        # Or is it a value within a rule and not a herdoc <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	843	950	
==>a($block, 'Jako::Construct::Block');
  confess "Ident is not!" if defined $ident and not UNIVERSAL::isa($ide <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	871	978	
==>a($block, 'Jako::Construct::Block');
  confess "Ident is not!" if defined $ident and not UNIVERSAL::isa($ide <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	567	685	
==>peer;

  my $prefix;

  if ($self->prefix) {
    $prefix = $self->prefix;
  }
  else {
    $prefix = $self->peer ? $pee <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	547	665	
==>peer;

  my $prefix;

  if ($self->prefix) {
    $prefix = $self->prefix;
  }
  else {
    $prefix = $self->peer ? $pee <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	1195	1300	
==>ted, Str $desc?, :$todo, :$depends) returns Bool is export {
    # hack for now
    my $got_perl = $got.pe <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	4121	4312	
==>self->{'output_fh'}} $self->{'Tagmap'}{$tagname};
    
    my $next = $self->get_token;
    
    unless ( $next->type eq 'text' )
    {
        $self->unget_token($next);
        return;
    } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	318554	318930	
==>S" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_u2_ovf",
                  "FLAGS" => ":dotgnu_core",
                  "ARGDIRS" => [
                                 "io"
                               ],
                  "TYPE" = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2074	2168	
==>t $self->prefix and $self->peer and $self->peer->prefix) {
    $self->prefix($self->peer->prefi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	1951	2045	
==>t $self->prefix and $self->peer and $self->peer->prefix) {
    $self->prefix($self->peer->prefi <==
2	/Users/nnunley/parrot/languages/scheme/Scheme.pm	1256	1343	
==>me::Tokenizer::tokenize($self->{file});
  $self->{tree}   = Scheme::Parser::parse($self- <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29196	29409	
==>\"\n    opcode_t * const this = CUR_OPCODE;\n    parrot_context_t *caller_ctx, *ctx;\n    PMC *ccont;\n    opcode_t *pc;\n\n    interpreter->current_params = this;\n    ctx = CONTEXT(interpreter->ctx);\n    ccont = <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	1649	1744	
==>AL::isa($type, "Jako::Construct::Type");

  my $type_name = $type->name;

  $self->INTERNAL_ERRO <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	1497	1592	
==>AL::isa($type, "Jako::Construct::Type");

  my $type_name = $type->name;

  $self->INTERNAL_ERRO <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	58256	58404	
==>regex that matches a string delimited
by any one of the characters in the single argument. For example:

        gen_delimited_pat(q{'"})

returns th <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	170384	170479	
==>mp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	171325	171420	
==>mp.ops\"\n  if ({{\@1}}->vtable->get_number(interpreter, {{\@1}}) != {{\@2}}) {\n    {{+={{\@3}} <==
2	/Users/nnunley/parrot/languages/lua/Lua/lexer.pm	1177	1301	
==>>YYData->{nb_info}++;
    }
    else {
        $parser->YYData->{nb_info} = 1;
    }

    print STDOUT 'lua: ', $parser <==
2	/Users/nnunley/parrot/config/auto/memalign.pm	515	696	
==>e);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    if ($conf->options->get('miniparrot')) {
        $conf->data->set(memalign => ' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	7919	8074	
==>ext_r}) > 150 ){
              DEBUG > 1 and print "    item-* is too long to be keepn'd.\n";
              last;
            }
          } elsif (@to_unget <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	15955	16110	
==>=> 76,
			"==" => 77,
			">=" => 78,
			'AND' => 83,
			"^" => 79,
			"*" => 80,
			"<=" => 85,
			'OR' => 84,
			")" => 81,
			">" => 86
		}
	}, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	16688	16815	
==>($self, $op, $sizer, $chooser, $lastback) = @_;

    my $try = $self->genlabel('dalt_try');
    my $fail = $self->genlabel('dalt <==
2	/Users/nnunley/parrot/tools/dev/pbc_header.pl	243	333	
==>aintain Parrot bytecode
compatability. During release preparation (and other changes to
PBC <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	18041	18168	
==>t_ref {
}

sub _op_memq {
}

sub _op_memv {
}

sub _op_member {
}

sub _op_assq {
}

sub _op_assv {
}

sub _op_assoc {
}

sub _o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710722	710814	
==>rpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_printf(interpreter, INTVAL_FMT <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711556	711648	
==>rpreter, io, 0))\n    PIO_puts(interpreter, io, \" \");\n  PIO_printf(interpreter, INTVAL_FMT <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19640	19744	
==>ne++;
		feedme;
		while($syms[CURR] ne "end") {
			my($name,$type);
			die "Syntax error in type $type[CU <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1021621	1021723	
==>202 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_gmtime_r(&t, & <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1022463	1022565	
==>202 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  Parrot_gmtime_r(&t, & <==
2	/Users/nnunley/parrot/config/gen/icu.pm	3526	3744	
==>"HELP" unless $ok; # this text is also in Configure.PL!
Something is wrong with your ICU installation!
   
   If you do not have a full ICU installation:

   --without-icu        Build parrot without ICU support
   --ic <==
2	/Users/nnunley/parrot/config/gen/cpu.pm	673	883	
==>turn $self;
    }

    my $verbose = $conf->options->get('verbose');

    my $hints = "gen::cpu::" . $conf->data->get('cpuarch') . "::auto";

    print "\t(cpu hints = '$hints') " if $verbose;

    eval "use $hi <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	13547	13691	
==>funcs, "};\n";

if ($genfile =~ /jit_cpu.c/) {
    print JITCPU <<"EOC";
    PARROT_API Parrot_jit_fn_info_t *op_jit = &_op_jit[0];

    extern i <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	15040	15279	
==>\n    ", map { "$temp[$_]->[0] arg$_;"} @tempi);
        ## shorts need to be properly cast
        my $temp_in   = join("\n    ", map {
                                "arg$_ = "
                                . ( 'short' eq $temp[$_]->[0 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7778	7910	
==>ation, if it exists. If an C<ABSTRACT> is found then
that is preferred.

=cut

sub short_description
{
	my $self = shift;

	return '' <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	13126	13399	
==>we're discarding it
    inc op1
    goto neg_loop

done:
    .return (op2)
.end

.sub unicode:"monadic:\u2374" :multi (Float) # shape
    .param pmc op1

    .local pmc result
    result = new 'APLVector'
    .return (result)
.end

.sub unicode:"monadic:\u2374" :multi (APLV <==
2	/Users/nnunley/parrot/config/init/hints/os2.pm	274	468	
==>guration.
    # A more general one would be appreciated, should anyone actually be
    # using OS/2
    $conf->data->set(
        libs     => "-lm -lsocket -lcExt -lbsd",
        iv       => "lon <==
2	/Users/nnunley/parrot/lib/File/Which.pm	434	578	
==>sions used for
# executable files
# For others, the empty string is used
# because 'perl' . '' eq 'perl' => easier
my @path_ext = ('');
if ($Is_D <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	48	181	
==>ndation.
# $Id: /parrot/examples/benchmarks/mops.pl 19601 2006-05-30T13:32:26.641316Z coke  $

=head1 NAME

examples/mops/mops.c - Cal <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4721	4864	
==>Null>, C<Ref> or C<SharedRef>.

C<$opt> is a hash reference.

=cut

sub new {
    my $this = shift;
    my $self = shift;

    my $class = ref($ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6973	7131	
==>ne ''	#Don't eat the eof
				and	$$token=$$value=undef;
                next;
            };

            #reduce
            my($lhs,$len,$code,@sempar, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6648	6800	
==>ne ''	#Don't eat the eof
				and	$$token=$$value=undef;
                next;
            };

            #reduce
            my($lhs,$len,$code,@sempar, <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7403	7517	
==>s not text, just another POD command (=head2 probably).
	return '' if $text =~ /^=\w/o;
	
	return $text unless $tex <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	64290	64390	
==>or "PARA").




=back


=head1 AUTHOR

Damian Conway (damian@conway.org)


=head1 BUGS AND IRRITATION <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2069	2180	
==>alue::Identifier')) {
      my $arg_sym = $self->block->find_symbol($args[$i]->value);
      $self->SYNTAX_ERROR <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1769	1880	
==>alue::Identifier')) {
      my $arg_sym = $self->block->find_symbol($args[$i]->value);
      $self->SYNTAX_ERROR <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	1106	1288	
==>se {
                die "Unknown type: ".$type;
            }

            $_[0] = &threads::shared::share($_[0]);

            if( $type eq 'HASH' ) {
                %{$_[0]} = %$d <==
2	/Users/nnunley/parrot/Configure.pl	9062	9262	
==>it::optimize
    inter::shlibs
    inter::libparrot
    inter::charset
    inter::encoding
    inter::types
    inter::ops
    inter::pmc
    auto::alignptrs
    auto::headers
    auto::sizes
    auto: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	5032	5192	
==>d $self->isa("Jako::Construct::Block");
  confess "Extra arguments!" if @_;

  my $block = $self; # Start collecting symbols here

  my %table = ();

  my $level <==
2	/Users/nnunley/parrot/config/gen/icu.pm	1132	1285	
==>) = capture_output("icu-config", "--exists");

            if (($ret == -1) || (($ret >> 8) != 0)) {
                undef $icuconfig;
                $au <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	7456	7554	
==>"$group$LOAD_EXT", $libs, \@sources))
          or die "partial link $group$LOAD_EXT failed ($?)\n" <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	7667	7765	
==>"$group$LOAD_EXT", $libs, \@sources))
          or die "partial link $group$LOAD_EXT failed ($?)\n" <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	7301	7460	
==>ion will do the job
 */

#if defined(HAS_JIT) && defined(I386)
#  include "parrot/exec.h"
#  include "jit.h"
/*#  define CAN_BUILD_CALL_FRAMES*/
#endif

/*
 * h <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	6586	6852	
==>-luuid -lws2_32 -lmpr -lwinmm -lversion -lodbc32 ',
                link              => 'gcc',
                linkflags         => '',
                o                 => '.o',
                slash             => '\\',
                blib_dir          => 'blib\\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615484	615949	
==>" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 697,
                  "ARGS" => [
                              "i",
                              "p",
                              "sc"
                            ],
                  "BODY <==
2	/Users/nnunley/parrot/languages/bc/lib/Parrot/Test/Bc/Antlr3.pm	503	640	
==>t::per_test( '_antlr3.pir', $count );

    return ( "java Bc languages/${lang_fn} languages/${pir_fn}",
             "$self->{parrot} lang <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	253277	253705	
==>r",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 295,
                  "ARGS" => [
                              "i",
                              "i",
                              " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	370428	370924	
==>@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "readline",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ], <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369543	369918	
==>@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "read",
                  "FLAGS" => ":base_io",
                  "ARGDI <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	5192	5340	
==>ll> flag.

=back

=item 3.

A list of vtable method implementations

=item 4.

The final close C<}>

=back

=head2 Method Body Substitutions

The vta <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	3934	4062	
==>conversion subs\n";
    for my $type (keys %types) {
        next unless my $help = $helpers{$type};
        
        $code .= em <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Tools.pm	919	1045	
==>c.pl'),
            $self->new_item('', 'tools/build/vtable_h.pl'),
            $self->new_item('', 'tools/build/vtable_extend. <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	77245	77364	
==>my $lastrulename = '';

sub _trace($;$$)
{
	$tracemsg      = $_[0];
	$tracecontext  = $_[1]||$lastcontext;
	$tracerulena <==
2	/Users/nnunley/parrot/config/auto/bc.pm	489	579	
==>g;
use Parrot::Configure::Step ':auto', 'capture_output';

$description = 'Determining whet <==
2	/Users/nnunley/parrot/config/auto/m4.pm	463	553	
==>g;
use Parrot::Configure::Step ':auto', 'capture_output';

$description = 'Determining whet <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	14331	14450	
==>d print "Title1: <$title>\n";
  $title = '\lang1024\noproof ' . $title
   if $is_obviously_module_name;

  return sprint <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	4645	4746	
==>$code, $expected, $description)>

Compiles and runs the C code, passing the test if output matches the <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	545	708	
==>f) = @_;

    $self->makefiles($conf);
    $self->cflags($conf);

    return $self;
}

sub cflags
{
    my ($self, $conf) = @_;

    genfile(
        'config/gen/ma <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4203	4300	
==>my ($group, $pmcs) = each %$group_files) {
        partial_link($group, $group_libs->{$group}, [ " <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4307	4404	
==>my ($group, $pmcs) = each %$group_files) {
        partial_link($group, $group_libs->{$group}, [ " <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	5512	5640	
==>alue = shift iter
    bsr print_value
    unless iter goto loop_end_2d
    value_type = typeof value
    if newline goto print_ne <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	16661	16833	
==>ult' => $result,
                );
                push @opcodes, new FindLexOp( $parser,
                    'result' => $result,
                    'arg1'   => $defn <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10816	10983	
==>ult' => $result, );
                    push @opcodes, new FindLexOp( $parser,
                        'result' => $result,
                        'arg1'   => $defn <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	1377	1508	
==>";
    my @pmcs = split(/ /, $conf->data->get('pmc_names'));

    open(OUT, ">$file.tmp");

    print OUT <<"END_C";
/*
 * DO NOT ED <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	4193	4318	
==>eturn 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'assign' }) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Assign.pm	1604	1729	
==>eturn 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'assign' }) <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	8224	8345	
==>er->new([\%vtable], ['class']);
    $Dumper->Indent(3);
    print $vtd $Dumper->Dump();
    close $vtd;
}

=head2 my ($bal <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	16435	16553	
==>opqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
            return $x;
        }
    }

    f <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	9978	10081	
==>opqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
      return $x;
    }
  }
  f <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Bare.pm	776	906	
==>eturn 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'block', Attribu <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/File.pm	1789	1919	
==>eturn 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'block', Attribu <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_toker.pm	1342	1516	
==>constants
		append;
		fetch;
		while($cur ne '"') {
			if ($cur eq "\n") {
				$cur=q{"};  # EOL is also an end-quote
				last;
			}
			die "Unexpected EOF (missing quote?)" i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	3732	3933	
==>eturn 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'const', Attributes => { type => $self->type->name, name => $self->name } });
  $self-> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	3250	3366	
==>eturn 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'c <==
2	/Users/nnunley/parrot/config/init/optimize.pm	1213	1398	
==>imize};
	    $opts =~ s/-mcpu=\S+//;
            $conf->data->add(' ', ccflags => $opts);
            # record what optimization was enabled
            $conf->data->set(optimize => $opt <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	617758	617872	
==>+;\n\t/*\n\t * TODO if we got too often here just do a dynamic lookup\n\t */\n    }\n    parrot_pic_find_infix_v_pp <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	9184	9312	
==>) = @_;

    open my $CODE, '>', $code_f or die "Unable to open '$code_f'";
    binmode $CODE;
    print $CODE $code;
    close $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	571193	571486	
==>rpreter, {{\@2}}, class);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	572148	572441	
==>rpreter, {{\@2}}, class);\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0 <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	4641	4759	
==>tination is the first
    # argument, given as --destination=DIRECTORY
    shift(@pmcs) =~ /--destination=(.*)/
      o <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	4745	4863	
==>tination is the first
    # argument, given as --destination=DIRECTORY
    shift(@pmcs) =~ /--destination=(.*)/
      o <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	8313	8433	
==>t pos
    pos = 0
    .local float value_at
    .local int not_there
    not_there = op1
    inc not_there
    .local pmc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	193573	193724	
==>string(interpreter, {{\@1}}), {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	194552	194703	
==>string(interpreter, {{\@1}}), {{\@2}}) < 0) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	683	967	
==>... ";

  open my $fh, "<", $file or die "Couldn't open \"$file\" for reading: $!\n";
  local $/;
  my $smoke = <$fh>;

  unless($smoke =~ /^<!DOCTYPE html/) {
    debug "doesn't look like a smoke; aborting.\n";
    exit 1;
  }

  $request{smoke} = $compress->($smoke) || $smoke;
  deb <==
2	/Users/nnunley/parrot/config/gen/cpu/i386/auto.pm	804	1009	
==>l(cc_build("-DPARROT_CONFIG_TEST"));
        if ($@) {
            print " $@ " if $verbose;
        } else {
            if (cc_run() =~ /ok/) {
                $conf->data->set(
                    "i386_ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Perl6.pm	2123	2241	
==>1 + $b->current_test();
    my $f_out  = Parrot::Test::per_test( '.out', $next_test_num );
    my $f_code = Parrot::Tes <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	37370	37490	
==>ir .= <<PIR;
pop_count = elements c_params
goto INS_TRANS_CP_LOOP_CHK_$name
INS_TRANS_CP_LOOP_$name:
type_trans = pop sty <==
2	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	1649	1762	
==>">>$output") or die "open $output for append: $!";
    print OUTPUT "/* CHECKSUM: $checksum */\n";
    close OUTPU <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	7145	7244	
==>il = $self->genlabel("group_iback");
    my $back = $self->genlabel("group_back");
    my $next = $s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	269775	270219	
==>ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 314,
                  "ARGS" => [
                              "i",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 854 \"src/ops <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	251213	251425	
==>TYPE" => "inline",
                  "CODE" => 292,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 703 \"src/ops/cmp.ops\"\n  {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632711	633039	
==>@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633753	634081	
==>@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  " <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	14924	15140	
==>=over, =back, =item
  #   and the null =pod (to be complained about if over one line)
  #
  # "~data" paragraphs are something we generate at this level, depending on
  # a currently open =over region

  # Events fire <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	330085	330448	
==>nu.ops\"\n  {{\@1}} =  (FLOATVAL)(Parrot_Float8)({{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "conv_r8",
                  "FLAGS" => ":dotgnu_core",
                  "ARGD <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	3588	3769	
==>* (M0 - M) * .0001)
print w

' INT madness.  0, 0, 0, -1, -1, 3
print int(.8),
print int(.3),
print int(0),
print int(-.8),
print int(-.3),
print int(3.14)

' Simple subs, Made it he <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	107192	107517	
==>};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "F <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	108046	108371	
==>};\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bor",
                  "F <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	32508	32610	
==>uble- quoted substring from the
	# beginning of $text, optionally after some whitespace
	# (note the li <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1421	1537	
==>eturn 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'o <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1415	1531	
==>eturn 1;
}


#
# sax()
#

sub sax
{
  my $self = shift;
  my ($handler) = @_;

  $handler->start_element({ Name => 'o <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	756	850	
==>The PREFIX tells the prefix that will be used for block-related labels. For
example, B<while> l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64645	64736	
==>nterp * const new_interp = (Interp *)PMC_data({{\@1}});\n  Interp_flags_SET(new_interp, PARR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	65596	65687	
==>nterp * const new_interp = (Interp *)PMC_data({{\@1}});\n  Interp_flags_SET(new_interp, PARR <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	12660	12993	
==>l) = @_;
    my $fail_label = $self->output_label_use($fail);
    my @ops;
    if (defined $name) {
        push @ops, "\$rx_match{'$name'} = \$$uid;";
    }
    return (@ops, "goto $fail_label if ! \$$uid\->{'!RESULT'};");
}

sub output_code {
    my ($self, $code) = @_;
    # Assume, for now, that the code is Perl5 code
    my @op <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	11994	12113	
==>l) = @_;
    my $fail_label = $self->output_label_use($fail);
    my @ops;
    if (defined $name) {
        push @ops, " <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	23477	23611	
==>'long',
				       '!' => 'single',  '#' => 'double',
				       '$' => 'string'  );
			my $ut="";
			if ($syms[NEXT] eq "as") {
				fe <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9234	9435	
==><rx_stack>;",
                "$reg = pop \@<rx_stack>;",
                $self->dbprint("POPPED[\$dbg_tmp] INT: \%<$reg>$desc\n"),
                );
    } else {
        return ("$reg = pop \@<rx_stac <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	23569	23661	
==>rn,$temp,"NEXT_$label"]);
    $self->_add_inst('','set',[$return,$temp]);
    $self->_add_ins <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	24031	24123	
==>rn,$temp,"NEXT_$label"]);
    $self->_add_inst('','set',[$return,$temp]);
    $self->_add_ins <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	11095	11230	
==>nd complain
    DEBUG and print " Encoding [$e] is unsupported.",
      "\nSupporteds: @supported\n";
    my $suggestion = '';

    # Lo <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	3903	4025	
==>check {
    my ($self, $needed, $failLabel, $lenvar) = @_;
    $lenvar ||= "<rx_len>";
    my $fail = $self->output_label_u <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	3617	3739	
==>check {
    my ($self, $needed, $failLabel, $lenvar) = @_;
    $lenvar ||= "<rx_len>";
    my $fail = $self->output_label_u <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	1337	1450	
==>s C<$orig> if C<$new> is undefined.

=cut

sub integrate
{
    my ($orig, $new) = @_;

    # Rather than sprinklin <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	2865	3029	
==>=> \&package_line,
		  lib => \&lib_line,
		  defs => \&def_line,
		 );

while ($line = <INPUT>) {

  # Throw away trailing newlines, comments, and whitespace. If th <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	5675	5871	
==>gular expressions for files to skip
   foreach my $dir ( sort keys %dir_list ) {
       next if $dir =~ m/\.svn/;
       next if ( $dir && ! -d $dir ); 

       my $patterns = capture_output( "$svn <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	547	653	
==>}) {
    push    @{ $_[0]{'_currpos'}[0] }, $x; # insert in parent's child-list
    unshift @{ $_[0]{'_curr <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	11958	12108	
==>LT => -6,
		GOTOS => {
			'_semicolon_opt' => 23
		}
	},
	{#State 8
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 3 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	358935	359183	
==>"printerr",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 420,
                  " <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6727	6861	
==>"$)}{}g;
    $name =~ s/^.*:://;

    if ($type) {
      $handler->start_element({
        Name       => 'sub',
        Attributes => { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	604306	604421	
==>"src/ops/object.ops\"\n    VTABLE_add_parent(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LA <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	10675	10794	
==>') {   # bigint
	my $typ = $DEFVAR;
        my $pmc = temp('P');
	$c =~ s/[lL]$//;
	print <<EOC;
	$pmc = new .BigInt $cm <==
2	/Users/nnunley/parrot/languages/scheme/Scheme.pm	250	505	
==>S

=head2 new

A constructor

=cut

sub new {
  my ($class, $file) = @_;

  bless { file => $file },$class;
}


=head2 link_functions

Generate PASM.

=cut

sub link_functions {
  my ( $main ) = @_;

  my @function = ( $main );
  my @missing = @{$main->{fu <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	8503	8726	
==>n to hash element

                                    # class type accessor:
    $element_value = $obj->c;           # object reference
    $obj->c->method(...);               # call method of object
    $obj->c(new My_Othe <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	1834	1930	
==>t events.  Most applications
can just use the normal stringification of objects of this class;
th <==
2	/Users/nnunley/parrot/config/auto/pack.pm	8	108	
==>ght (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/config/auto/pack.pm 19593 2006-05-30T02:28:15. <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	5632	5830	
==>ymbol};
  }
}


###############################################################################

=head2 BLOCK->find_symbol(NAME)

Search for a symbol, starting with this block, but also checking pare <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	1183	1311	
==>ens
{
  my $self = shift;

  if (@_) {
    $self->{TOKENS} = [ @_ ];
  }
  else {
    return @{$self->{TOKENS}};
  }
}


#
# toke <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	1831	1936	
==>larations}}) {
		if (exists $main::common{$var}) {
			push(@saves, $var);
		}
	}
	if (@saves) {
		print CO <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	3122	3227	
==>larations}}) {
		if (exists $main::common{$var}) {
			push(@saves, $var);
		}
	}
	if (@saves) {
		print CO <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	33274	33417	
==>ts
###

  'pair?'    => \&_op_pair_p,
  'cons'     => \&_op_cons,
  'car'      => \&_op_car,
  'cdr'      => \&_op_cdr,
  'set-car!' => \&_op_se <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	1193	1290	
==>' => 'Library declarations file',
	'def' => 'Library definitions file',
	'dev' => 'Development doc <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	5520	5690	
==>r object.

=item C<OtherClass.SELF.method(a,b,c)>

Calls the static vtable method 'method' in C<OtherClass>.

=item C<SELF.method(a,b,c)>

Calls the vtable method 'method' <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	3587	3742	
==>ue, $defn );
        if ( $type eq 'key' ) {
            push @opcodes, new ConstDir( $parser,
                'prolog' => 1,
                'result' = <==
2	/Users/nnunley/parrot/config/init/headers.pm	162	289	
==>ers.pm - Nongenerated Headers

=head1 DESCRIPTION

Uses C<ExtUtils::Manifest> to determine which headers are nongenerated.

=cut <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	43626	43738	
==>nt ")\n";
}

sub _generate {
  my ($self,$node) = @_;

  my $return;

  if (exists $node->{children}) {
    my $f <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	4094	4198	
==>ame\" for writing: $!\n";
  print $fh $html or
    die "Couldn't write to \"$filename\": $!\n";
  close $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	809651	809745	
==>Y" => "#line 507 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_string_keyed(interpret <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	810556	810650	
==>Y" => "#line 507 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_string_keyed(interpret <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	34516	34716	
==>ype'} = 'man';
          # This's the only place where man links can get made.
          $treelet->[$i][1]{'content-implicit'} = 'yes';
          $treelet->[$i][1]{'to'  } =
            Pod::Simple::Li <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	1747	1882	
==>cific
formatting have to be inserted.

=cut

sub do_middle 
{
    my $self = shift;
    my $token;
    my $type;
    
    $self->{STACK} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	725641	726065	
==>RS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 813,
                  "ARGS" => [
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 29 \"src/ops/set.ops\"\n  {{\@1}} = string_copy(interpreter, {{\@2}});\ <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	1247	1349	
==>( $language, $code, $expected, $description)> 

Runs a langugage test and passes the test if a string c <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	1600	1702	
==>( $language, $code, $expected, $description)> 

Runs a langugage test and passes the test if a string c <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step/Base.pm	431	530	
==>steps.

=head1 USAGE

=head2 Import Parameters

This module accepts no arguments to it's C<import> m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	620470	620832	
==>GS" => ":pic",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 700,
                  "ARGS" => [
                              "pc"
                            ],
                  "BODY" => "#line 138 \"src/ops/pic.ops\"\n    Parrot_MIC *m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033435	1033533	
==>LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    VTABLE_set_pmc_keyed_str(in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034533	1034631	
==>LEX_NOT_FOUND,\n\t\t\"Lexical '%Ss' not found\", lex_name);\n    }\n    VTABLE_set_pmc_keyed_str(in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	722255	722354	
==>{\@1}}; /* TODO Can this be localized? */\n  if (s && string_length(interpreter, s)) {\n    if (PIO_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	723284	723383	
==>{\@1}}; /* TODO Can this be localized? */\n  if (s && string_length(interpreter, s)) {\n    if (PIO_ <==
2	/Users/nnunley/parrot/examples/benchmarks/mops.pl	1175	1461	
==>print  "Estimated ops: "
                              # print  I5
                              # print  "\n"
                              #
$N1 = time_hires();           # time N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # su <==
2	/Users/nnunley/parrot/examples/mops/mops.pl	1175	1461	
==>print  "Estimated ops: "
                              # print  I5
                              # print  "\n"
                              #
$N1 = time_hires();           # time N1
                              #
REDO:                         # REDO:
$I4 = $I4 - $I3;              # su <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	259591	260057	
==>ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 302,
                  "ARGS" => [
                              "i",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 793 \"src/ops/cmp.ops\"\n    {{\@1} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19904	20046	
==>mar.y"
{ return op('multi_match' => [ 1, -1, TRUE, $_[1] ]); }
	],
	[#Rule 16
		 'expr', 3,
sub
#line 123 "lib/Regex/Grammar.y"
{ return op('mu <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	9055	9164	
==>textref) -= length($1);	# CUT OFF WHATEVER CAUSED THE SHORTNESS
			goto short if ($omode eq 'PARA' || $omode e <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	5621	5818	
==>_sysfile' => 'define',
             'i_sysfilio' => 'define',
             'i_sysin' => undef,
             'i_sysioctl' => 'define',
             'i_syslog' => 'define',
             'i_sysmman' => <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	1501	1710	
==>{
        return $dist = $self if $self->file_exists_with_name('README') and 
                                $self->file_with_name('README')->read =~ /^This is Parrot/os;
        
        $path = $self->parent <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	223606	223703	
==>}}->vtable->get_integer(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	224548	224645	
==>}}->vtable->get_integer(interpreter, {{\@1}}) >= {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	26153	26483	
==>xt ]),
               $back => aop('popindex', [ $R_back ]),
                        @R_ops,
                        aop('pushmark', [ '?? - with R' ]),
               $next =>
              );

    return ($back, @ops);
}

###################### New stuff ###################

# Most rewrite rules will declare a fallback point, a <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	11270	11392	
==>mplex.h
isalnum     ctype.h
isalpha     ctype.h
isblank     ctype.h
iscntrl     ctype.h
isdigit     ctype.h
isfinite    mat <==
2	/Users/nnunley/parrot/languages/regex/test.pl	3367	3535	
==>END";
# Regular expression test
# Generated by $0
# Pattern >>$pattern<<

END

    $driver->output_header(*PIR);

    for my $tree (@$trees) {
        $driver->output_ru <==
2	/Users/nnunley/parrot/languages/regex/lib/Parrot/Test/Regex.pm	1699	1831	
==>END";
# Regular expression test
# Generated by $0
# Pattern >>$pattern<<

END

    $driver->output_header($PIR);

    for my $tree (@ <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	10639	10751	
==>e) = @_;

    print "$file:$line (WARNING) " . Text::Wrap::wrap("", "        ", $message) . "\n";
}


sub error { <==
2	/Users/nnunley/parrot/config/auto/gc.pm	836	1110	
==>/malloc/malloc-trace/gc
@args = qw(gc verbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $gc = $conf->options->get('gc');

    if (!defined($gc)) {

        # default is GC in resources.c
        $gc = 'gc';
    } elsif ($gc eq 'libc') {

        # tests mallinfo a <==
2	/Users/nnunley/parrot/config/gen/platform.pm	5584	5735	
==>rm/$platform/asm.s";
        if (-e $asm_file) {
            copy_if_diff($asm_file, "src/platform_asm.s");
        }
    }

    # interface is the same <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1524	1649	
==>type for the array of opcodes. By default here it's an array
C<opcode_t>, but the prederef runops core uses an array of C<void <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	50015	50151	
==>e> to eat it. If C<extract_quotelike> fails, return
the error it returned. Otherwise go back to step 1.

=item 3.

Try to match an openin <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9347	9484	
==>DERR "**Entering Error recovery.\n";
#DBG>			++$dbgerror;
#DBG>		};

            ++$$nberror;

        };

			$$errstatus == 3	#Th <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8927	9056	
==>DERR "**Entering Error recovery.\n";
#DBG>			++$dbgerror;
#DBG>		};

            ++$$nberror;

        };

			$$errstatus == 3	#Th <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	47916	48086	
==>2 "Lua\lua51.yp"
{
            PushScope( $_[0] );
            my $var = BuildLocalVariable( $_[0], $_[2] );
            Insert( $_[0], $var );
        }
	],
	[#Rul <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	21093	21264	
==>refs';

        *{$package.'::'.$func} = sub {
            my ($example_f, $expected, @options) = @_;

            my %lang_for_extension 
                = ( pasm => 'PASM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	516659	516891	
==>" => "#line 729 \"src/ops/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	517398	517630	
==>" => "#line 729 \"src/ops/math.ops\"\n  {{\@1}} -= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parr <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	868	1000	
==>e = 0;
    my $pass = 0;

    $cmd = "$self->{parrot} $args languages/APL/APL.pbc $lang_f";

    $exit_code = Parrot::Test::run_comma <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	2333	2431	
==>]{'section'} ) }
     __PACKAGE__->new->parse_string_document('=head1 L<Foo/bI<ar>baz>>')
    "
Out <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	2951	3049	
==>]{'section'} ) }
     __PACKAGE__->new->parse_string_document('=head1 L<Foo/bI<ar>baz>>')
    "
Out <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Debug.pm	2207	2351	
==>bug level (a.k.a. trace
level) of Pod::Simple.  This is of interest only to Pod::Simple
developers.


=head1 CAVEATS

Note that you should load t <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	5523	5665	
==>? "[$1]" :
        m[^lib/]          ? '[devel]' :
        m[^runtime/]      ? '[library]' :
        m[^tools/docs/]   ? '[devel]' :
        m[ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	6793	6930	
==>ens))
#    if @tokens;

  push @{$self->{TOKENS}}, @tokens;
}


#
# slurp_file()
#

sub slurp_file
{
  my $self = shift;
  my ($file) = @_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	18026	18170	
==>on' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 48
		ACTIONS => {
			"-" => 24,
			'NAME' => <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	15050	15249	
==>tor" && $type2 eq "APLVector") {
          # vector to vector
          $template .= << 'END_PIR';
    # Verify Shapes conform.
    $I1 = op1
    $I2 = op2
    if $I1 == $I2 goto good
    %% DOMAIN_ER <==
2	/Users/nnunley/parrot/config/auto/cgoto.pm	2144	2290	
==>g_flag => '-DHAVE_COMPUTED_GOTO'
        );
        print " (yes) " if $verbose;
        $self->set_result('yes');
    } else {
        $conf->data <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3831	3933	
==>$value) eq $$checklist{$prm}
		or	croak("Invalid value for parameter '$prm'");
        $prm=unpack('@ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	3635	3735	
==>$value) eq $$checklist{$prm}
		or	croak("Invalid value for parameter '$prm'");
        $prm=unpack('@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	292986	293422	
==>ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 341,
                  "ARGS" => [
                              "i",
                              "s",
                              "s"
                            ],
                  "BODY" => "#line 945 \ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4371	4469	
==>de, $failLabel) = @_;
    my $comment = Regex::Ops::Tree::isplain($code) ? " # match '".chr($code). <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4058	4156	
==>de, $failLabel) = @_;
    my $comment = Regex::Ops::Tree::isplain($code) ? " # match '".chr($code). <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	2692	2790	
==>ll OK in sequence
PRINT "1 in module-level code"
GOSUB Sub1
PRINT "ERR this line in main routine sh <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	16659	16757	
==>ll OK in sequence
PRINT "1 in module-level code"
GOSUB Sub1
PRINT "ERR this line in main routine sh <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	17927	18044	
==>u tried to run tests without a plan!  Gotta have a plan.");
    }

    lock($self->{Curr_Test});
    $self->{Curr_Test <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	18792	18909	
==>u tried to run tests without a plan!  Gotta have a plan.");
    }

    lock($self->{Curr_Test});
    $self->{Curr_Test <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1934	2039	
==>t'} }
sub start_over_block   { ++$_[0]{'Indent'} }

sub   end_over_bullet  { --$_[0]{'Indent'} }
sub   end <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1502	1607	
==>t'} }
sub start_over_block   { ++$_[0]{'Indent'} }

sub   end_over_bullet  { --$_[0]{'Indent'} }
sub   end <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	674790	675137	
==>> 0,
                  "NAME" => "pop",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 756,
                  "ARGS" => [
                              "p <==
2	/Users/nnunley/parrot/config/init/defaults.pm	2270	2377	
==>ble libraries we're building.  On HP-UX, for example, we need to
        # allow dynamic libraries to access <==
2	/Users/nnunley/parrot/config/init/defaults.pm	3694	3850	
==>ble output file (different on Win32)
        cc_exe_out => '-o ',

        # prefix for ldflags (necessary for Win32)
        cc_ldflags => '',

        # ld <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	670613	670710	
==>e 415 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->push_string(interpreter, {{\@1}}, {{\@2}});\n    { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	671386	671483	
==>e 415 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->push_string(interpreter, {{\@1}}, {{\@2}});\n    { <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1943	2043	
==>Methods

=over 4

=item C<create_path()>

This is called from C<new()> to create the path if necessar <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	920	1020	
==>Methods

=over 4

=item C<create_path()>

This is called from C<new()> to create the path if necessar <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	10175	10362	
==>urn [ $defn, \@opcodes, $assign ];
            }
            else {
                my $assign = new AssignOp( $parser,
                    'arg1'   => undef,
                    'res <==
2	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	1174	1330	
==>_to_date = 0;
        last;
    }
    if ($1 != $checksum) {
        print "$output was built from different version of $input; remaking\n"
          if $Ver <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	908846	909207	
==>ase_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1024,
                  "ARGS" => [
                              "i",
                              "s", <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	12658	12776	
==>very obvious, so let me explain. We get the file
    # for the module, then we take its path relative to the 
    # dis <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	44539	44651	
==>ew({});
  my $temp;

  $self->{scope} = {};

  $temp = $self->_generate($tree);

  $self->_restore($temp);
  $sel <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4109	4262	
==>Simple> and inherits all its methods.

=head1 SEE ALSO

L<Pod::Simple>, L<Pod::Simple::Text>, L<Pod::Checker>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1286	1418	
==>Simple> and inherits all its methods.

=head1 SEE ALSO

L<Pod::Simple>, L<Pod::Simple::Text>, L<Pod::Spell>

=head1 COPYRIGHT AND DIS <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	2973	3093	
==>ynaPMCs>

=item C<Parrot::Docs::Section::C>

=item C<Parrot::Docs::Section::Ops>

=item C<Parrot::Docs::Section::IMCC>

= <==
2	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	410	537	
==>_] = buildarray();
    }

    my @arr1;
    foreach (1..20) {
	$arr1[$_] = buildarray();
    }

    my @arr2;
    foreach (1..20 <==
2	/Users/nnunley/parrot/examples/benchmarks/stress.pl	372	478	
==>_] = buildarray();
}

my @arr1;
foreach (1..20) {
    $arr1[$_] = buildarray();
}

my @arr2;
foreach (1..20 <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	1036	1198	
==>=> '@',
        object  => 'Parrot::Configure::Step',
    },
);

=head2 Methods

=head3 Constructors

=over 4

=item * C<new()>

Basic constructor.

Accepts no arg <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	4075	4222	
==>EBUG
#  define GC_DEBUG_VERSION ,0
#else
#  define GC_DEBUG_VERSION
#endif

HEADER

# currently unused true const strings
sub output_string {
  my ( <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	42015	42151	
==>d L<>'s
        
        my $thing;
        foreach my $attrname ('section', 'to') {        
          if(defined($thing = $treelet->[$i] <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	60489	60582	
==>ror,$line,$1);
			$item = new Parse::RecDescent::Literal($code,$lookahead,$line);
			$prod and <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	18813	18960	
==>r',
                                  );

    my %language_test_map = (
        language_output_is   => 'output_is',
        language_output_like => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095660	1095898	
==>"TYPE" => "inline",
                  "CODE" => 1215,
                  "ARGS" => [
                              "sc"
                            ],
                  "BODY" => "#line 223 \"src/ops/experimental.ops\"\n  Parrot_Exec_OS_Com <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	305	397	
==>nings";

package Jako::Construct::Block::Conditional::Else;

use Carp;

use base qw(Jako::Con <==
2	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	2049	2222	
==>zip2; debug "Bzip2 compression on\n" } and
    return $compress = sub { Compress::Bzip2::memBzip(shift) };
  eval { require Compress::Zlib; debug "Gzip compression on\n" } an <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	766116	766556	
==>se_ref",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 865,
                  "ARGS" => [
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 335 \"src/ops/set.ops\"\n    if ({{\@1}} < 0 || {{\@1} <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	25178	25372	
==>rse::RecDescent::_error("Invalid $rule: " . $expectation->message() ,$thisline);
		push @{$thisparser->{errors}}, [Parse::RecDescent::expectation_message(),'.($check->{itempos} ? '$thisline' : 'P <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	1234	1355	
==>k
  my $kind   = shift; # Required: string (TODO: domain?)
  my $type   = shift; # Optional: TODO: type?
  my $prefix = sh <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	69464	69574	
==>l error in generated parser code!");
			$@ =~ s/at grammar/in grammar at/;
			_hint($@);
		}
	}

	if ($ERRORS a <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	12060	12196	
==>label");
  return $return;
}

sub _op_or {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_gensym();

  $return = $self->_co <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Label.pm	152	243	
==>reter.
#
# $Id: /parrot/languages/jako/lib/Jako/Construct/Label.pm 19606 2006-05-30T15:08:05 <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	9496	9764	
==>>conform(1)) {
    print "Rate limiting -- please wait a bit and try again, thanks.";
    $exit++;
  }
  $bucket->count(1);

  seek     $fh, 0, 0  or die "Couldn't rewind \"@{[ BUCKET ]}\": $!\n";
  truncate $fh, 0     or die "Couldn't truncate \"@{[ BUCKET ]}\": $!\n" <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Languages.pm	1259	1390	
==>, 'cola.html', '', 'languages/cola'),
        $self->new_section('Commun Lisp', 'lisp.html', '', 'languages/lisp'),
        $self->n <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	1150	1259	
==>eturn shift->{NAME};  }
sub args { return @{shift->{ARGS}}; }


#
# compile()
#

sub compile
{
  my $self = sh <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	969	1078	
==>eturn shift->{NAME};  }
sub args { return @{shift->{ARGS}}; }


#
# compile()
#

sub compile
{
  my $self = sh <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1108947	1109085	
==>preter, NULL, NO_CLASS,\n                \"Can only use a Key or String PMC with new\");\n    }\n    {{+=3}};\n",
                  "experi <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2951	3051	
==>rn shift->{LINE}; }

sub is_global
{
  my $self = shift;

  return defined($self->block) && not(defin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668714	669072	
==>RGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 748,
                  "ARGS" => [
                              "p",
                              "n"
                            ],
                  "BODY" => "#line 4 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677140	677567	
==>"NAME" => "unshift",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 759,
                  "ARGS" => [
                              "p",
                              "n"
                            ],
                  "BODY" => "#l <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	1803	2192	
==>T      => 0,
    BLOCKS           => [ $root ], # Block stack
    ROOT             => $root,
    TOKENS           => [ ]
  }, $class;
}


###############################################################################
###############################################################################
##
## The Block Stack
##
##   $block_count         The total number of blocks begun (used fo <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	749	1021	
==>~ /recompile/) {

    # clean up remnants of prior biulds
    File::Find::find({wanted => sub {
                          /\.(bb|bba|bbf|da|gcov)$/ &&
                            unlink($File::Find::name)
                        }}, $SRCDIR);

    # build parrot with cover <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	584716	584970	
==>eter, class, NULL);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	585791	586045	
==>eter, class, NULL);\n  {{=next}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PA <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	22200	22472	
==>e,	/* base_type */
        NULL,	/* whoami */
        $vtbl_flag, /* flags */
        NULL,   /* does_str */
        NULL,   /* isa_str */
        NULL,   /* class */
        NULL,   /* mro */
        $methlist
    };
EOC

    my $const = ($self->{flags}{dynpmc}) ? " " : " <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	8468	8642	
==>, $err) {
            if (   (defined($_))
                && ($_ ne File::Spec->devnull)
                && (!m/^&/)) {
                open(my $out, $_);
                pri <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	12772	12945	
==>lock, $ident, $ident, $op, $value);
      next;
    }

    #
    # Block Termination:
    #
    #   }
    #   } continue {
    #   } else {
    #
 
    if ($token->is_close_b <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	3998	4200	
==>op('if', [ $op1, $test, $op2, $dest->[1] ]);
    } elsif ($dest->{name} eq 'LABEL') {
        return aop('if', [ $op1, $test, $op2, $dest ]);
    } else {
        my $testop = rop('test', [ $op1, $rev_te <==
2	/Users/nnunley/parrot/languages/regex/regex.pl	588	773	
==>} elsif (/--output-file=(.*)/) {
        $output = $1;
    } elsif (/--file=(.*)/) {
        $expr_file = $1;
    } elsif (/--language=(.*)/) {
        $language = lc($1);
        $langu <==
2	/Users/nnunley/parrot/examples/benchmarks/addit.pl	667	781	
==>7.100;
$args[2] = 87;
$args[3] = "3.87";
$args[4] = "21000000";
for (my $x = 500000; $x >= 0; --$x) {
    $result = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	1328	1458	
==>rline=ulw            wave-underline=ulwave
   ]
   # But no double-strikethrough, because MSWord can't agree with the
   #  RTF spe <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	1345	1471	
==>dent");
    $compiler->emit("  global \"$ident_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = sh <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	1339	1465	
==>dent");
    $compiler->emit("  global \"$ident_name\" = $pmc_reg");
  }

  return 1;
}


#
# sax()
#

sub sax
{
  my $self = sh <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	25223	25439	
==>'arg1'   => undef,
        'result' => $defn,
    );
    return [ $defn, \@opcodes, $assign ];
}

sub BuildIf {
    my ( $parser, $expr, $then, $elseifs, $else ) = @_;
    my @opcodes = ();
    my $cond = get <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	4048	4305	
==>c;
    if($text =~ /^\#/) { # perl file (or sh)
	my($comment) = $text =~ /^(\#[^\n]*\n( *\n)?(\#[^\n]*\n)*)/s;
	die "internal bug" if !$comment;
	local $_ = $comment;
	s/^\#\* /\# /mg;         # #*
	s/^\#(\#|\*)+\s*$/\#/mg; # line of "*"s or "#"s
	s/^\#\!.+/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	271599	271995	
==>,
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 316,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 871 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} <= {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	141289	141753	
==>core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 173,
                  "ARGS" => [
                              "nc",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 77 \" <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	11365	11469	
==>lass name --
optionally preceded by a C<'*'>.

The accessor method provided by C<struct> for an element d <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	220	338	
==>VERSION = eval $VERSION;    # make the alpha version come out as a number

# Make Test::Builder thread-safe for ithread <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	449383	449602	
==>te(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048735	1049062	
==>FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1172,
                  "ARGS" => [
                              "p",
                              "sc <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	361	487	
==>the
specified CPU architecture type (F<src/jit/cpu-architecture-name/core.jit>).

=cut

use strict;
use warnings;
use lib 'lib' <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	3074	3198	
==>{STACK}[$index][1];

	undef;	#Invalid index
}

sub YYCurtok {
	my($self)=shift;

        @_
    and ${$$self{TOKEN}} <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	2926	3041	
==>{STACK}[$index][1];

	undef;	#Invalid index
}

sub YYCurtok {
	my($self)=shift;

        @_
    and ${$$self{TOKEN}} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1011420	1011671	
==>mand(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012185	1012436	
==>mand(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUM <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025028	1025290	
==>\@1}} = sysinfo_s(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1025785	1026047	
==>\@1}} = sysinfo_s(interpreter, {{\@2}});\n   {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	39963	40215	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	40810	41062	
==>",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_RESTA <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	277	375	
==>->{'output_fh'} ||= *STDOUT{IO};
  $new->accept_codes('VerbatimFormatted');
  return $new;
}

#@@@@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	276	374	
==>->{'output_fh'} ||= *STDOUT{IO};
  $new->accept_codes('VerbatimFormatted');
  return $new;
}

#@@@@ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	33785	33910	
==>urn Slice(@_, 2);
}
sub SLICE_plus_3 {
    return Slice(@_, 3);
}

sub Store_Slice
{
    my ($n, $c, $cmt, $sl_n) = @_;
    my <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	23327	23437	
==>"FLO";
			my %th=( single => 'FLO', double => 'FLO', long => 'INT', integer => 'INT', string => 'STRING');
			m <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	15226	15359	
==>ss ($matched)
	{
		_failmsg 'No match found for opening bracket', pos $$textref
			unless $@;
		return;
	}

	my $endpos = pos($$textre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864001	864115	
==>> "#line 143 \"src/ops/string.ops\"\n  UINTVAL n;\n  STRING *s = {{\@2}};\n  if (!s)\n    n = 0;\n  else {\n    n = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	864893	865007	
==>> "#line 143 \"src/ops/string.ops\"\n  UINTVAL n;\n  STRING *s = {{\@2}};\n  if (!s)\n    n = 0;\n  else {\n    n = <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1693	1846	
==>);
}

=item C<new($path)>

Returns the instance for specified path.

=cut

sub new
{
    my $self = shift;
    my $path = shift;
    
    return unless de <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	2781	2921	
==>$type</item>\n";
    $types{$type} = 1;
}

print <<END;
    </list>

    <contexts>

      <context name="default" attribute="Normal Text" li <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10694	10816	
==>remove comment

1;

}
#End of include--------------------------------------------------




sub new {
        my <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	12934	13062	
==>uter, $rdel_outer,
				     $ldel_inner, $rdel_inner,
				     $rd);
	return _fail($wantarray, $textref) unless @match;
	return _ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	590	708	
==>t_load_code);

our %writes;
{
  my @writes = qw(STORE PUSH POP SHIFT UNSHIFT DELETE);
  @writes{@writes} = (1) x @write <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3269	3384	
==>_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    while (my ($group, $pmcs) = each %$grou <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3373	3488	
==>_libs, $pmc_group, $pmc_libs) = 
        gather_groups_and_libs(@pmcs);

    while (my ($group, $pmcs) = each %$grou <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6250	6376	
==>ECTS_C
static const char * const Parrot_mmd_func_names[] = {
EOM

    for my $entry (@{$vtable}) {
    next unless ($entry->[4] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663493	663739	
==>ODE" => 741,
                  "ARGS" => [
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 354 \"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delete_keyed(interpreter, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70872	71092	
==>s/core.ops\"\n\n  {{\@1}} = Parrot_load_lib(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71641	71861	
==>s/core.ops\"\n\n  {{\@1}} = Parrot_load_lib(interpreter, {{\@2}}, NULL);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ] <==
2	/Users/nnunley/parrot/config/init/hints/solaris.pm	2703	2863	
==>.0)
    # return 0, when they should return +PI and -PI respectively.
    # For Sun's compilers, fix this with the -xlibmieee flag.
    # I don't know of an equi <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	10268	10601	
==>n = 2;  # fake number
            #print "$jit_func $extern\n";
        }
        # jitable vtable funcs:
        # *) $1->vtable->{vtable}(interp, $1)
        elsif ($opbody =~ /
        ^(?:.*\.ops")\s+
        {{\@1}}->vtable->
        (\w+)
        \(interpreter,
        \s*
        {{\@1}}
        \);
        \s+{{\+=\d}}/xm) { <==
2	/Users/nnunley/parrot/languages/regex/regex.pl	1097	1258	
==>ned $expr && ! defined $expr_file) {
    die "need expression!";
}

if (defined $expr_file) {
    local *IN;
    local $/;
    open(IN, "<$expr_file")
      or di <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936244	936336	
==>Y" => "#line 455 \"src/ops/string.ops\"\n  {{\@1}} = string_titlecase(interpreter, {{\@2}});\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937021	937113	
==>Y" => "#line 455 \"src/ops/string.ops\"\n  {{\@1}} = string_titlecase(interpreter, {{\@2}});\ <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	9181	9293	
==>nt SOURCE qq{#line $line "$source_escaped"\n};
}


#
# write op_func_func
#

my ($op_info, $op_func, $getop);
$op <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	2189	2308	
==>ut_nop {
    return "noop";
}

sub output_increment {
    my ($self, $var, $amount) = @_;
    $amount = 1 if ! defined($ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	47186	47313	
==>e. the left delimiter of the here document, including any quotes),

=item [5]

"This is the message.\n" (i.e. the text of the he <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	569277	569382	
==>ine 218 \"src/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->isa(interpreter, {{\@2}}, {{\@3}});\n  {{+=4} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	570170	570275	
==>ine 218 \"src/ops/object.ops\"\n  {{\@1}} = {{\@2}}->vtable->isa(interpreter, {{\@2}}, {{\@3}});\n  {{+=4} <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	935	1218	
==>pe eq 'ARRAY' ) {
                @$data = @{$_[0]};
            }
            elsif( $type eq 'SCALAR' ) {
                $$data = ${$_[0]};
            }
            else {
                die "Unknown type: ".$type;
            }

            $_[0] = &threads::shared::share($_[0] <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	15702	15841	
==>tra );
            local *{ $call_pkg . '::TODO' } = \$extra{todo}
                if defined $extra{todo};

            my $pass = $builder <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	18253	18392	
==>tra );
            local *{ $call_pkg . '::TODO' } = \$extra{todo}
                if defined $extra{todo};

            my $pass = $builder <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	50095	50211	
==>wise go back to step 1.

=item 3.

Try to match an opening delimiter bracket. If found, call
C<extract_codeblock> rec <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	619636	619723	
==>)) {\n\t\treal_exception(interpreter, NULL, ERR_OVERFLOW,\n\t\t\t\"Integer overflow\");\ <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	15439	15587	
==>ce
            # ParrotClass isa delegate
            #
            # delegate has everything autogenerated, so these
            # methods aren't se <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	1141	1243	
==>und_NCI => 53,
	deleg_pmc => 54,
	Enumerate => 55,
	FixedBooleanArray => 56,
	FixedFloatArray => 57,
	F <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	17024	17220	
==>o) );

            # output file
            my $out_f  = per_test('.pasm', $test_no);

            my $opt = $code_f =~ m!opt(.)! ? "-O$1" : "-O1";
            my $args = $ENV{TEST_PROG_ARGS} || ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	820742	821114	
==>};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "depth",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o" <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	2577	2677	
==>/$parrot_pmcsh_file" or
  die "Can't read $parrot/$parrot_pmcsh_file!";
while (<TYPES>) {
    next un <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserStartToken.pm	2242	2366	
==><attrname> attribute for this start-token object to
I<newvalue>.  You probably won't need to do this.

=item $token->attr_has <==
2	/Users/nnunley/parrot/config/gen/config_pm.pm	1231	1340	
==>fig_pm.in: $!";
    close OUT or die "Can't close Config.pm: $!";

    my $template = "config/gen/config_pm/co <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	914	1056	
==>e to open '$lang_f'"; # JMG
        binmode LANG; # JMG
        print LANG $lang_code; # JMG
        close LANG; # JMG

        Parrot::Test::r <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	826	968	
==>e to open '$lang_f'"; # JMG
        binmode LANG; # JMG
        print LANG $lang_code; # JMG
        close LANG; # JMG

        Parrot::Test::r <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	25206	25348	
==>mc (keys %init_mmds) {
        next if $dynpmc eq $classname;
        $cout .= <<"EOC";
        int my_enum_class_$dynpmc = pmc_type(interp, st <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	684678	684943	
==>>setprop(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n      {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	685573	685838	
==>>setprop(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n      {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	3191	3304	
==>($handler) = @_;

  my $type = $self->type;

  if (UNIVERSAL::isa($type, 'Jako::Construct::Type::String')) {
    m <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/If.pm	714	814	
==>ined $right;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  co <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Unless.pm	726	826	
==>ined $right;

  confess "Block is not!" unless UNIVERSAL::isa($block, 'Jako::Construct::Block');
  co <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	4434	4561	
==>$self->{Curr_Test}    = 0;
    $self->{Test_Results} = &share([]);

    $self->{Exported_To}    = undef;
    $self->{Expected_Te <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	4111	4263	
==>rn_data = ",
       c => "return_data = ",
       s => "return_data = ",
       f => "return_data = ",
       d => "return_data = ",
       b => "return_ <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	6717	6844	
==>$out = "$out <pos:$?CALLER::CALLER::POSITION>" if $Test::ALWAYS_CALLER;
    # message like "test #1 # TODO" confuse the harness. <==
2	/Users/nnunley/parrot/Configure.pl	1280	1406	
==>-profile>

Turn on profiled compile (gcc only for now)

=item C<--optimize>

Add perl5's $Config{optimize} to the compiler flag <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	9568	9698	
==>{
	    my $name = lc $self->{class};
	    $cout .= <<"EOC";
#include "$name.str"
EOC
    }
    "$cout\n";
}


=item C<full_argument <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054447	1054549	
==>, \"Tried to get null global.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global_p(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055574	1055676	
==>, \"Tried to get null global.\");\n\n    next = {{^+4}};\n    {{\@1}} = Parrot_get_global_p(interpreter <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10272	10366	
==>-----------------------------


#line 1 "lib/Regex/Grammar.y"


use constant TRUE => "TRUE";
us <==
2	/Users/nnunley/parrot/config/auto/jit.pm	1516	1701	
==>f ($cpuarch =~ /MSWin32/) {
        $cpuarch = 'i386';
        $osname  = 'MSWin32';
    } elsif ($osname =~ /cygwin/i || $cpuarch =~ /cygwin/i) {
        $cpuarch = 'i386';
        $osn <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	6294	6434	
==>F>.

=back

=head1 AUTHOR

Leopold Toetsch.

Cleaned up by Matt Diephouse.

Many thanks to the author of F<pmc2c.pl>, many useful code pieces <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3426	3530	
==>b} and $props{fnlib}) {
      $fnlib = $props{fnlib}->value; # TODO: We should make sure its a string, so <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6090	6194	
==>b} and $props{fnlib}) {
      $fnlib = $props{fnlib}->value; # TODO: We should make sure its a string, so <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Constant.pm	2551	2686	
==>ck at the top of the block stack. We fill in the
  # IDENT entry within the block.
  #

  $sym = Jako::Symbol->new( # TODO: Just point a <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2298	2423	
==>ck at the top of the block stack. We fill in the
  # IDENT entry within the block.
  #

  $sym = Jako::Symbol->new(
    $self- <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	8834	8927	
==>EE ALSO

=over 4

=item F<tools/build/jit2c.pl>

=item F<tools/build/pmc2c.pl>

=item F<tools/ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11961	12204	
==>erences to references, expect 99
function last(t)
	t=99
	last=0
end function
function middle(s)
	middle=last(s)
end function
function start(r)
	start=middle(r)
end function
h=12
y=start(h)
print h

' Basic structure  6, Hello and PI
type newtyp <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	6265	6441	
==>ars
               "^${dir}${_}\$",             # SVN globs are specific to a dir
               "^${dir}${_}/",              # SVN globs are specific to a dir
           } spli <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	977	1133	
==>se strict;
use warnings;

use Data::Dumper;

=head2 Methods

=head3 Constructors

=over 4

=item C<new()>

Basic object constructor.

Accepts no arguments an <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	745409	745819	
==>se_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 839,
                  "ARGS" => [
                              "p",
                              "pc"
                            ],
                  "BODY" => "#line 184 \"src/ops/set.ops\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	26972	27110	
==>1]{'indent'} = $1;
        if($1 == 0) {
          $self->whine(
            $para->[1]{'start_line'},
            "Can't have a 0 in =over <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	428347	428815	
==>ase_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 492,
                  "ARGS" => [
                              "ic",
                              "p",
                              "nc"
                            ],
                  "BODY" => "#line 69 \" <==
2	/Users/nnunley/parrot/examples/benchmarks/stress.pl	715	798	
==>s/benchmarks/stress1.pl>, 
F<examples/benchmarks/stress2.pasm>, 
F<examples/benchmar <==
2	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	659	742	
==>s/benchmarks/stress1.pl>, 
F<examples/benchmarks/stress2.pasm>, 
F<examples/benchmar <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	36260	36423	
==>result = extract_bracketed( $text, '<">' );

returns:

	( '<A HREF=">>>>">', 'link</A>', "" )

as expected. Without the specification of C<"> as an embedded quoter: <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	19524	19662	
==>TION' => 34,
			'NUMBER' => 36
		},
		GOTOS => {
			'exp' => 100,
			'functioncall' => 31,
			'explist1' => 109,
			'function' => 26 <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	11954	12193	
==>BAL {
    my ($n, $c, $cmt) = @_;
    my $tos = pop @stack;
    my $p = $tos->[1];
    my $t;
    if ($t=$globals{$c}) {
	if ($t ne $p) {
	    print <<EOC;
	assign $t, $p
EOC
	}
    }
    else {
	$p = promote($tos);
	print <<EOC;
	global "$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53327	53426	
==>BUG_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_GC_DEBUG_FLAG); }\n  {{+=2}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	54083	54182	
==>BUG_FLAG); }\n  else         { Interp_flags_CLEAR(interpreter, PARROT_GC_DEBUG_FLAG); }\n  {{+=2}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	28475	28608	
==>n    CONTEXT(interpreter->ctx)->current_results = this;\n    argc = SIG_ELEMS(signature);\n    {{+=argc + 2}};\n",
                  " <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	15747	15888	
==>= $_[0] ? \$_[0] : \$_;
	my $wantarray = wantarray;
	my $pre  = defined $_[1] ? $_[1] : '\s*';

	my @match = _match_quotelike($textref,$pre,1, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex.pm	1998	2106	
==>pass_label, $fail_label, %options);
        return list_to_pasm($code, $ctx, %options);
    }
    # Heh. Fixm <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	15806	15957	
==>'<tmp>', $i, $ibacks[$i] ]);
    }

    push @ops, aop('goto', [ $ibacks[-1] ]);
    push @ops, $next;

    return ($back, @ops);
}

# Dynamic alternati <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	667555	667733	
==>{\@1}}->vtable->push_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	668329	668507	
==>{\@1}}->vtable->push_integer(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0 <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34755	34866	
==>:_tracefirst($text),
						  q{' . $rule->{"name"} .'})
							if defined $::RD_TRACE;').'
			if ($Parse::RecDes <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	41865	41976	
==>:_tracefirst($text),
						  q{' . $rule->{"name"} .'})
							if defined $::RD_TRACE;').'
			if ($Parse::RecDes <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2201	2321	
==>er '%s'.", $args[$i]->value) unless $arg_sym;
      $actual_arg_type = $arg_sym->type; 
    }
    else {
      $actual_ar <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1901	2021	
==>er '%s'.", $args[$i]->value) unless $arg_sym;
      $actual_arg_type = $arg_sym->type; 
    }
    else {
      $actual_ar <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10823	10937	
==>s)=shift;
        ref($class)
    and $class=ref($class);

    my($self)=$class->SUPER::new( yyversion => '1.05 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	11823	11933	
==>s)=shift;
        ref($class)
    and $class=ref($class);

    my($self)=$class->SUPER::new( yyversion => '1.05 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	52695	52860	
==>tack
  my $curr_open = $_[0]{'curr_open'};

  return '[empty]' unless @$curr_open;
  return join '; ',
    map {;
           ($_->[0] eq '=for')
             ? ( ($_- <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	1464	1709	
==>t = shift;
    my @contents = @_;
    
    $self = $self->SUPER::new($name, $text, @contents);
    $self->{INDEX_PATH} = $index_path;
    
    return $self;
}

=back

=head2 Instance Methods

=over 4

=item C<is_root_section()>

Returns whether t <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	11945	12040	
==>itialized by default to C<()>.

With no argument, the accessor returns a reference to the
elemen <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	12682	12777	
==>itialized by default to C<()>.

With no argument, the accessor returns a reference to the
elemen <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39767	39994	
==>\&_op_display,
  'newline' => \&_op_newline,
  'write-char' => \&_op_write_char,

####
#### System Interface
####

  'load'           => \&_op_load,
  'transcript-on'  => \&_op_transcript_on,
  'transcript-off' => \&_op_transcri <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	52798	53061	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gc_debug",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	53553	53816	
==>ot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "gc_debug",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	5817	6035	
==>for class in rule $rule->{'name'}\n";
            }
        }

        # push
        elsif (/^push$/) {
            if ($rule->{$_} =~ /^\d+$/) {
                if ($has_push) {
                    die "Duplicate valu <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	7824	7973	
==>ng the given $reason.  Exits immediately with 0.

=cut

sub skip_all {
    my($self, $reason) = @_;

    my $out = "1..0";
    $out .= " # Skip $reaso <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	16891	17056	
==>AULT => -3
	},
	{#State 55
		ACTIONS => {
			"?" => 23,
			'CHAR' => 4,
			"<" => 22,
			"+" => 24,
			'CODE' => 6,
			"(" => 10,
			"|" => 26,
			"*" => 27,
			"[" = <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	9634	9791	
==>t that is just fine */

HEAD
}

sub make_arg {
    #
    # we have to fetch all to temps, so that the call code
    # can operate in sequence
    #
    my ($a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	913451	913969	
==>e",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1029,
                  "ARGS" => [
                              "i",
                              "sc",
                              "s",
                              "i"
                            ],
                  "BODY" <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	14959	15094	
==>More function is_deeply.
The plan currently is to implement this as a mutually recursive multi-
sub which will be able to handle structu <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61369	61626	
==>LS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorson",
                  "FLAGS" => "",
                  "ARGDIRS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	62012	62269	
==>LS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "errorson",
                  "FLAGS" => "",
                  "ARGDIRS <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633042	633501	
==>AGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 709,
                  "ARGS" => [
                              "p",
                              "ic",
                              "p"
                            ],
                  "BODY" => " <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	2453	2560	
==>K if ($type[CURR] ne 'BARE');
	goto BARE if (! iskeyword($syms[CURR]));

	# The "unimplementeds"
	# Eat toke <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	4041	4252	
==>rom]);
    } elsif ($from =~ /N/) {
      $self->_add_inst ('', 'new',[$to,'.Float']);
      $self->_add_inst ('', 'set',[$to,$from]);
    }
  }
}

#---- Section 4 ----

sub __quoted {
  my ($self, $node, $return <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	61524	61639	
==>nd $prod->additem($item)
			      or  _no_rule("pattern terminal",$line,$code);
		}
		elsif ($grammar =~ m/(?=$MATCH <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	2323	2437	
==>tting replaced by their appropriate values.

Finally, the .c and .h files are generated. The appropriate base class <==
2	/Users/nnunley/parrot/config/auto/python.pm	17	197	
==>005, The Perl Foundation.
# $Id: /parrot/config/auto/python.pm 19593 2006-05-30T02:28:15.110975Z coke  $

=head1 NAME

config/auto/python - Check whether python is there

=head1 DES <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	822329	822416	
==>(entry->entry_type != STACK_ENTRY_INT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	823397	823484	
==>(entry->entry_type != STACK_ENTRY_INT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \ <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	1717	1880	
==>$src =~ s/src\/pmc\/(.*)\.o/$1\.c/g;

	push @src, $src;
    }

    run_command("cd src/pmc && make @src");
}

sub clean {
    print "** $0: removing files in minipa <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	11091	11208	
==>lassblock, $post)         = extract_balanced($code);

    my $lineno  = 1 + count_newlines($pre);
    $classblock = su <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	513865	514139	
==>ine",
                  "CODE" => 592,
                  "ARGS" => [
                              "n",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 708 \"src/ops/math.ops\"\n   {{\@1}} <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7743	7847	
==>TCH
			@match[8..9,0..1,2..7];				# REM, PRE, BITS
}

sub _match_tagged	# ($$$$$$$)
{
	my ($textref, $pre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	455041	455536	
==>GS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 522,
                  "ARGS" => [
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 235 \"src/ops/math.ops\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	353988	354236	
==>"print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 413,
                  "ARG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	354733	355123	
==>"print",
                  "FLAGS" => ":base_io",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 414,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 208 \"src/ops/io.ops\"\n  PMC * co <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	818881	819034	
==>Parrot_pop_regs(interpreter);\n  {{=0,+=1}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  " <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	5801	5972	
==>o->{Id} = $1;

    my $desc;
    if(/Overview:/) { # normal parrot code files
	my $label = qr/ *[A-Z][a-zA-Z ]+:/;
	($desc) = /(?:^|\n) *Overview: *\n(((?!$label) *[^\n]+\n <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	2817	2960	
==>r->YYData->{symbtab} = $symbtab;
    $parser->YYData->{lex_num} ++;
##    warn "PopScope\n";
}

sub Insert {
    my ( $parser, $var ) = @_ <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	3371	3579	
==>his vtable is for */
    UINTVAL flags;           /* Flags. Duh */
    STRING* does_str;        /* space-separated list of interfaces */
    STRING* isa_str;         /* space-separated list of classes */
    P <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	16575	16771	
==>the
# alternative that corresponds to the (dynamic) $counter passed in.
#
sub rewrite_dynamic_alternate {
    my ($self, $op, $sizer, $chooser, $lastback) = @_;

    my $try = $self->genlabel('dalt <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1099732	1100218	
==>pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1219,
                  "ARGS" => [
                              "n",
                              "nc",
                              "i"
                            ],
                  "B <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1098535	1098861	
==>pow",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1218,
                  "ARGS" = <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7535	7668	
==>m Parrot::Test.pm
    foreach ($out, $err) {
        $_ = File::Spec->devnull
            if $_ and $_ eq '/dev/null';
    }

    if ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1033330	1033437	
==>d_pad(interpreter, lex_name, ctx);\n    if (PMC_IS_NULL(lex_pad)) {\n\treal_exception(interpreter, NULL, LEX <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1034428	1034535	
==>d_pad(interpreter, lex_name, ctx);\n    if (PMC_IS_NULL(lex_pad)) {\n\treal_exception(interpreter, NULL, LEX <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	27153	27283	
==>ame, $extargs, $lastback ]));
    }
}

sub describe_seq { undef };
sub describe_check { undef };
sub describe_group { "group $_[3]" <==
2	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	1233	1345	
==>bstitution and flag
# The length is uninteresting later on.
# 
# Example:
# F8,8
# translittranslit
#
# Flag is ' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/List.pm	235	393	
==>can(R)" => "scan for R at every position" ],
    [ "terminate()" ],
    [ "atend()" => "return whether at end of input string" ],
    [ "advance(n)" => "advanc <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	453	561	
==>($block, $ident) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Co <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Increment.pm	453	561	
==>($block, $ident) = @_;

  confess("Block (" . ref($block) . ") not!") unless UNIVERSAL::isa($block, 'Jako::Co <==
2	/Users/nnunley/parrot/config/init/headers.pm	483	620	
==>ed header files';
our @args;

sub runstep
{
    my ($self, $conf) = @_;

    my $inc = 'include/parrot';

    my @headers = (
        sort <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	11909	12142	
==>roup::render {
    my $op = shift;
    my $R = $op->{args}->[0];
    my $str = $R->render();
    # Strip off (?:) from the subexpression if possible, so we can
    # render things as (R) instead of ((?:R))
    if ($str =~ /^\(\?\:(.*) <==
2	/Users/nnunley/parrot/config/init/optimize.pm	933	1059	
==>'');
        $conf->data->add(' ', ccflags => "-DDISABLE_GC_DEBUG=1 -DNDEBUG");
        if ($optimize eq "1") {
            # u <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	298	403	
==>xporter Test::More);

sub import {
    my( $class, $plan, @args ) = @_;

    Test::More->import( $plan, @a <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	215	320	
==>xporter Test::More);

sub import {
    my( $class, $plan, @args ) = @_;

    Test::More->import( $plan, @a <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	250514	250752	
==>TYPE" => "inline",
                  "CODE" => 291,
                  "ARGS" => [
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 698 \"src/ops/cmp.ops\ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	43059	43182	
==>ike 'q # an octothorpe: \# (not the end of the q!) #'
	
	extract_quotelike '  "You said, \"Use sed\"."  '

	extract_quotelik <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/TreeOptimize.pm	10497	10593	
==>cks. So you should call
# add_checks() to put the (hopefully fewer) checks back in.
sub disable_i <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	4356	4450	
==>eturn $value;
}

=item C<new(@files)>

Returns a new instance initialized by calling C<read_ops <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	2315	2479	
==>0]$seg...\n";
	$_ =(grep /^\Q$_[0]$seg\E$/i, keys %arrays );
	#print "$_\n";
	return $_;
}

sub hasargs {
	return(isbuiltin($_[0]) or isuserfunc($_[0]) or isarray($_ <==
2	/Users/nnunley/parrot/tools/dev/mk_manifests.pl	627	739	
==>and F<MANIFEST.generated>.

It does NOT generate the F<MANIFEST> file that F<Configure.pl> checks
and the manifes <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Goto.pm	3018	3124	
==>> 'block' });
    $handler->start_element({ Name => 'block', Attributes => { kind => 'then' } });
  }

  $h <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3782	3888	
==>> 'block' });
    $handler->start_element({ Name => 'block', Attributes => { kind => 'then' } });
  }

  $h <==
2	/Users/nnunley/parrot/config/auto/msvc.pm	1163	1305	
==>d $msvc{_MSC_VER}) {
        $self->set_result('no');
        $conf->data->set(msvcversion => undef);
        return $self;
    }

    my $majo <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9005	9123	
==>>; # nope, set pos := popped index");
}

sub output_popint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	9312	9429	
==>> # nope, set pos := popped index");
}

sub output_popint {
    my ($self, $reg, $db_desc) = @_;
    $reg = value($reg <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	17908	18042	
==>bject attributes to undef, rather
   than calling object constructor without args
   Original over-helpfulness was fraught with problem <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	4492	4644	
==>scription =~ /$verbose_step/) {
                $self->options->set(verbose => 2);
            }
        }

        # XXX cc_build uses this verbose sett <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	5904	6100	
==>s?, $negate?) returns Bool {
    $Test::testing_started = 1;
    $Test::num_of_tests_run++;

    # $context is now the raw TODO, so we have to check it
    my $context;

    # Check if we have to f <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	43512	43680	
==>NS => {
			'END' => 203
		}
	},
	{#State 193
		DEFAULT => -33,
		GOTOS => {
			'@10-4' => 204
		}
	},
	{#State 194
		DEFAULT => -14
	},
	{#State 195
		ACTI <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	30174	30306	
==>ext, or a treelet)
# Fourth:
# The section (AKA "item" in older perlpods), or undef if none. E.g., in
# Getopt::Std/DESCRIPTION, "DES <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32315	32472	
==>/\$\{STACK0\}/) {
			$dest_reg = 0;
		} elsif ("$rule->{'pir'}$rule->{'instruction'}" =~ /\$\{STOREREG\}/) {
			$dest_reg = 1;
			$mv->{'STOREREG'} = 'storere <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	79474	79593	
==>e can get and set the value */\n      {{\@1}} = pmc_new(interpreter, enum_class_UnManagedStruct);\n      PMC_data({{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	80995	81114	
==>e can get and set the value */\n      {{\@1}} = pmc_new(interpreter, enum_class_UnManagedStruct);\n      PMC_data({{\@1} <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	25417	25545	
==>_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    my $temp   = $s <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	27317	27443	
==>_1 ('P');
      $self->_morph ($temp, $return);
      $self->_restore ($return);
      $return = $temp;
    }
    my $temp = $s <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	13937	14038	
==>mble  = join("\n    ", @{$extra_preamble_ref});
    my $extra_postamble = join("\n    ", @{$extra_post <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGP.pm	1087	1185	
==>cur_opcode + CONTEXT(interpreter->ctx)->pred_offset)

#  define opcode_to_prederef(i, op) \\
     ( <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	1217	1315	
==>cur_opcode + CONTEXT(interpreter->ctx)->pred_offset)

#  define opcode_to_prederef(i, op)   (op ? \ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	18076	18252	
==>> '=for'},
          $target,
        ],
        $para,
        ['=end',
          {'start_line' => $para->[1]{'start_line'}, '~really' => '=for'},
          $target,
        ], <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	791564	791654	
==>ODY" => "#line 432 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed_int(in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	792471	792561	
==>ODY" => "#line 432 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_pmc_keyed_int(in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	710626	710728	
==>50 \"src/ops/python.ops\"\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (PIO_softspace(interpreter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	711460	711562	
==>50 \"src/ops/python.ops\"\n  PMC * const io = PIO_STDOUT(interpreter);\n  if (PIO_softspace(interpreter <==
2	/Users/nnunley/parrot/config/auto/gc.pm	1737	1834	
==>MP_gc_c => <<"EOF",
\$(SRC_DIR)/$gc\$(O):	\$(GENERAL_H_FILES) \$(SRC_DIR)/$gc.c
\$(SRC_DIR)/res_le <==
2	/Users/nnunley/parrot/languages/APL/t/APL.pm	1073	1226	
==>ut)  {
        $output .= "\n"; # XXX a slight hack
      }
      else {
        $output = "0\n"; # XXX MAJOR hack - Test::Base is borkedly converting the <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	1531	1635	
==>enerated automatically from '$infile'
 * by $0.
 *
 * Any changes made here will be lost!
 *
 */

#define <==
2	/Users/nnunley/parrot/tools/build/c2str.pl	3820	3924	
==>enerated automatically from '$infile'
 * by $0.
 *
 * Any changes made here will be lost!
 *
 */

#define <==
2	/Users/nnunley/parrot/config/init/miniparrot.pm	673	766	
==>rot::Configure::Step;

$description = 'Tweaking settings for miniparrot';

@args = qw(miniparr <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	28498	28619	
==>_step ) {
        $e_step = BuildLiteral( $parser, 1, 'number' );
    }
    push @opcodes, @{ $e_start->[1] };
    pus <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3815	3928	
==>compile($_) foreach (@pmcs);

    # lib-GROUP.c
    for my $group (keys %$group_files) {
        compile("$group", <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3919	4032	
==>compile($_) foreach (@pmcs);

    # lib-GROUP.c
    for my $group (keys %$group_files) {
        compile("$group", <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	2852	3040	
==><[Hh]/o )
    {
        # If there is no heading or text then we have to bump it down a bit.
        $index_html = "<BR>\n" . $index_html;
    }

    my $index = $target->file_with_name($se <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	7379	7512	
==>rot/exec.h"
#  include "jit.h"
/*#  define CAN_BUILD_CALL_FRAMES*/
#endif

/*
 * helper funcs - get argument n
 */
static INTVAL
get_n <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29412	29533	
==>'LOADREG';
		} else {
			die "pir or instruction must use one of \${DEST0} or \${LOADREG} in rule " .
				"$rule->{'name'} <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	15391	15527	
==>shift;
    
    return $path . '.html';
}

=item C<html_link($href, $text)>

Returns an HTML anchor with the specified "href".

=cut

sub <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Symbol.pm	1057	1188	
==>entifier kind attribute.")
    unless defined $kind;
 
  confess("Unrecognized identifier scope attribute '" . $scope . "'.")
    un <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605910	606133	
==>Parrot_add_attribute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606701	606924	
==>Parrot_add_attribute(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88747	88994	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89484	89731	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	936271	936510	
==>string.ops\"\n  {{\@1}} = string_titlecase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	937048	937287	
==>string.ops\"\n  {{\@1}} = string_titlecase(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parro <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	14279	14372	
==>(\@out), "\n>>\n\n";

  return @out;
}

}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	10248	10412	
==>>jump || 0;
        my $arg_count  = $op->size;

    ## 0 inserted if arrays are empty to prevent msvc compiler errors
        my $arg_types  = "{ " . join(", ", sca <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	565166	565465	
==>MP" => 0,
                  "NAME" => "can",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566058	566357	
==>MP" => 0,
                  "NAME" => "can",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "i <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	37502	37595	
==>d $::RD_TRACE;').'
		$Parse::RecDescent::lastexpected = ' . ($rule->hasleftmost($self) ? 'q{}' <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	39905	39998	
==>d $::RD_TRACE;').'
		$Parse::RecDescent::lastexpected = ' . ($rule->hasleftmost($self) ? 'q{}' <==
2	/Users/nnunley/parrot/config/gen/config_h.pm	294	379	
==>nclude/parrot/has_header.h> with platform-specific header
information, and F<include/p <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	3474	3593	
==>ps${suffix}.c.temp";

if ($base =~ m!^src/dynoplibs/! || $dynamic_flag) {
    $source  =~ s!src/ops/!!;
    $header = "$ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	666	806	
==>str($part, 2, -1));
        } else {
            $part =~ s/(["'\\])/\\$1/g;
            $part =~ s/\n/\\n/g;
            push @ops, $self->o <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	3590	3680	
==>head1 SEE ALSO

L<Pod::Simple>, L<Pod::Simple::TextContent>, L<Pod::Text>

=head1 COPYRIGHT <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	30110	30233	
==>= pop @stack;
    push @stack, $w;
    push @stack, $v;
}

sub STORE_SUBSCR
{
    my ($n, $c, $cmt) = @_;
    my $x = pop @s <==
2	/Users/nnunley/parrot/tools/dev/nm.pl	9534	9705	
==>rint $show, "\n";
		}
	    }
	}
	close(NM);
    } else {
	warn "$ME: '$nm_cmd $nm_opt $f' failed: $!\n";
    }
}

exit(0);

=head1 HISTORY

Author: Jarkko Hietaniemi.

=cut <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183060	183341	
==>=> "inline",
                  "CODE" => 218,
                  "ARGS" => [
                              "n",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 285 \"src/ops/cmp.ops\"\n  if ({{\@ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	23978	24089	
==>int16$/) {
			$out =  "    \${I_ARG_$arg_num} = bc.read_uint16()\n    next_pc += 2\n";
			$arg_name = "I_ARG_$ar <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	14743	14864	
==>.h
tmpnam      stdio.h
tolower     ctype.h
toupper     ctype.h
trunc       math.h
truncf      math.h
truncl      math.h
un <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	7653	7767	
==>d
    item_two = shift iter_two 
    iter_one = new .Iterator, op1
    pos_one = 0 # parrot's 0 == APL's 1
loop_one <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4628	4746	
==>sub pre_branch($) {
	my $self = shift;
	my $pops = shift;
	my $register_num = 0;
	my $pir = '';

	# Do code for each po <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3044	3162	
==>sub pre_branch($) {
	my $self = shift;
	my $pops = shift;
	my $register_num = 0;
	my $pir = '';

	# Do code for each po <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	37412	37532	
==>e closing tag. 
If the pattern string is omitted (or C<undef>) then the closing
tag is constructed by inserting a C</> af <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	716	812	
==>pe_state = new Hash
prop_stack_depth = new Hash
PIR
}

# Post translation hook.
sub post_translat <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	8790	8886	
==>CE file.
#

close(SOURCE);
open(SOURCE, "<$source") || die "Error re-reading $source: $!\n";
my $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	680541	680751	
==>S" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 488 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_pmc(interprete <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	32191	32284	
==>t results PMC index and get PMC. */\n\t    sig = PF_CONST(PMC_cont(cc)->seg, results[1])->u.ke <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22404	22517	
==>en}[1]);
  $return = $self->_constant(1);
  my $temp_1 = $self->_constant(2);
  $self->_add_inst(''           ,'mo <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	22905	23018	
==>en}[1]);
  $return = $self->_constant(1);
  my $temp_1 = $self->_constant(2);
  $self->_add_inst(''           ,'mo <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	2534	2716	
==>bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P11', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	1497	1600	
==>_jit[$core_numops] = {\n";
    $func_end = '_jit';
    $normal_op = 'Parrot_jit_normal_op';
    $cpcf_op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1090883	1091014	
==>table->slice(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LA <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1091943	1092074	
==>table->slice(interpreter, {{\@2}}, {{\@3}}, {{\@4}});\n    {{+=5}};\n",
                  "experimental" => 1,
                  "LA <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	27306	27527	
==>ndef 
                });
            }
        }
        # If backward, wipe history.  Its their funeral.
        elsif( $num < @$test_results ) {
            $#{$test_results} = $num - 1;
        }
    }
    return $self <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops.pm	114	224	
==>me};
    $number = '' if ($number == 1) && ($name ne '');
    return bless([ 'label', "\@$name$number" ], 'asm_ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	2746	2856	
==>me};
    $number = '' if ($number == 1) && ($name ne '');
    return bless([ 'label', "\@$name$number" ], 'asm_ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	16551	16687	
==>push @{$self->{items}},
			Parse::RecDescent::Operator->new(
				$op->{type}, $minrep, $maxrep, splice(@{$self->{"items"}}, -3));
		$self <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953742	954042	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	954532	954832	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "encoding",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  " <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	10182	10300	
==>5)
print a


' Expect -7
t%=-7
print t%

' Expect 9
print (2+3*5-(6+abs(0-3)))+1


' Expect a Hello, World!
print "Hell <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1027575	1028064	
==>OT_JUMP_ADDRESS|PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT",
                  "NAME" => "sleep",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1149,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 295 \"src/ops/sys.ops\"\n  opcode_t *next = {{^+2}};\n  if ( <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6871	7008	
==>";

	# If we need a destination, we simply supply the register to load
	# into here. Note that we must clear up any lazy moves we have not <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	64193	64351	
==>hout finding a closing tag
to match the original opening tag (and the failure mode was not
"MAX" or "PARA").




=back


=head1 AUTHOR

Damian Conway (damian@c <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27043	27150	
==>cout .= $self->{const}->init_func;
    }
    $cout .= $self->{post};
    $cout;
}

=item C<hdecls()>

Return <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101801	101890	
==>"#line 130 \"src/ops/bit.ops\"\n  string_bitwise_not(interpreter, {{\@2}}, &{{\@1}});\n  { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	102572	102661	
==>"#line 130 \"src/ops/bit.ops\"\n  string_bitwise_not(interpreter, {{\@2}}, &{{\@1}});\n  { <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1044451	1044739	
==>,
                  "CODE" => 1167,
                  "ARGS" => [
                              "k",
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 130 \"src/ops/var.ops\"\n    Parrot_store_global_p(in <==
2	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	99	344	
==>lass  = ref($proto) || $proto;
        my $parser = shift;
        my %attr   = @_;
        my $self   = \%attr;
        bless $self, $class;
        foreach ( keys %attr ) {
            unless ( defined $self->{$_} ) {
                del <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	1014	1135	
==>n "Disassembling without opcode table fingerprint!";
	return;
    }

=for COMMENT
    die "Cannot compile (differing opcod <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8959	9161	
==>>		and	print STDERR "Forced Error recovery.\n";

            $$check='';

        };

        #Error
            $$errstatus
        or   do {

            $$errstatus = 1;
            &$error <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8556	8747	
==>>		and	print STDERR "Forced Error recovery.\n";

            $$check='';

        };

        #Error
            $$errstatus
        or   do {

            $$errstatus = 1;
            &$error <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	432	530	
==>es, %namespace, %may_be_none);
$DIS = 'python mydis.py';
$DEFVAR = 'PerlInt';

getopts('dnD', \%opt <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/PMCs.pm	1075	1177	
==>elf->new_item('', $dist->relative_path($file)));
	    }
	}
	
	return $self->SUPER::new(
		'PMCs', 'pmc. <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	5056	5269	
==>xt-base/$_.svn-base" and MANIFEST();
}

sub MANIFEST {
    my $loc = '[]';
    for ($File::Find::name) {
        $loc =
        exists($special{$_}) ? $special{$_} :
        !m[/]             ? '[]' :
        m[^LI <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	10630	10728	
==>arations}->{$sym}=1
					unless $main::code{$main::seg}->{declarations}->{$sym};
			}
			return $sy <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	8044	8255	
==>($has_class) {
        die "Mandatory entry class missing in rule $rule->{'name'}\n";
    }
    unless ($has_trans) {
        die "Translation (instruction or pir) not provided in rule " .
            "$rule->{'n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	757776	758079	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	758548	758851	
==>' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "assign",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	4446	4621	
==>=> []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_RELATIVE",
                  "NAME" => "prederef__",
                  "FLAG <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	101068	101282	
==>line 125 \"src/ops/bit.ops\"\n  string_bitwise_not(interpreter, {{\@1}}, &{{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                } <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	12780	13030	
==>> $pre,
               flags        => $flags,
               methods      => \@methods,
               post         => $post,
               class        => $classname,
               has_method   => \%meth_hash
           };
}

=head2 gen_parent_lis <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	2375	2485	
==>ley/parrot/src/pmc' . $PATHQUOTE . " " .
        $source;
};

sub partial_link_cmd {
    my ($target, $libs, $s <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	2170	2280	
==>ley/parrot/src/pmc' . $PATHQUOTE . " " .
        $source;
};

sub partial_link_cmd {
    my ($target, $libs, $s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1019329	1019830	
==>=> "localtime",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1139,
                  "ARGS" => [
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 192 \"src/ops/sys.ops\"\n  struct tm tm;\n  const time_t t = (time_t) {{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349386	349656	
==>=> [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	755614	755958	
==>,
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 852,
                  "ARGS" => [
                              "p",
                              "nc"
                            ],
                  "BODY" => "#line 266 \"src/ops/set.ops\"\n  {{\@1}}- <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2762	2854	
==>t::Test::pir_output_like;
}

=item C<pgeglob_is($target, $pattern, $description, @todo)>

Run <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional.pm	2551	2650	
==>Name => 'op', Attributes => { kind => 'infix', name => $self->op } });
    $self->left->sax($handler <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Loop.pm	2428	2527	
==>Name => 'op', Attributes => { kind => 'infix', name => $self->op } });
    $self->left->sax($handler <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section.pm	2038	2318	
==>('/', $path, $self->{INDEX_PATH});
    }
    else
    {
        $path = $self->{INDEX_PATH};
    }
    
    return '<a href="' . $path . '">' . $self->name . '</a>';
}

=item C<write_html($source, $target, $silent)>

Calls C<write_html()> on the contents of the section.

An HTML l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369476	369585	
==>s/io.ops\"\n  {{\@1}} = PIO_reads(interpreter, {{\@2}}, (size_t){{\@3}});\n  {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	370361	370470	
==>s/io.ops\"\n  {{\@1}} = PIO_reads(interpreter, {{\@2}}, (size_t){{\@3}});\n  {{+=4}};\n",
                  "L <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	5238	5369	
==>put_label_def($passLabel);
    return @ops;
}

sub output_initgroup {
    my ($self, $group) = @_;
    return ("<rx_match>{\"$group\ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	5545	5672	
==>put_label_def($passLabel);
    return @ops;
}

sub output_initgroup {
    my ($self, $group) = @_;
    return ("new <rx_ptmp>, \ <==
2	/Users/nnunley/parrot/config/auto/m4.pm	1125	1231	
==>~ m/^GNU [mM]4 /) ? 1 : 0;
    }

    $conf->data->set(has_gnu_m4 => $has_gnu_m4);
    $self->set_result($h <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2729	2839	
==>ype);
      my $value = $args[$i]->compile($compiler);
      $compiler->emit("  $temp = $value");
      $args[$ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2429	2539	
==>ype);
      my $value = $args[$i]->compile($compiler);
      $compiler->emit("  $temp = $value");
      $args[$ <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	362	470	
==>$dynamic_dir);

print <<"END_PIR";

.HLL 'tcl', 'tcl_group'
.namespace ['']

END_PIR

print "  .include 'lang <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	35639	35759	
==><EOC;
	\t $cmt XXX
EOC
}
sub IMPORT_FROM {
    my ($n, $c, $cmt) = @_;
    print <<EOC;
	\t $cmt XXX
EOC
    # push @stac <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/HTMLPage.pm	2619	2771	
==>$resources/parrot.small.png" 
                        ALT="parrot">
                </TD>
            </TR>
        </TABLE>
    </BODY>
</HTML>
FOOTER
} <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	62525	62692	
==>und a '$', '@', or '%' indicating a variable, but that
character was not followed by a legal Perl identifier.

=item C<Did not find expected opening bracket at %s>

C<e <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	12450	12600	
==>'perl -MExtUtils::Command -e touch',
             'unsetenv' => 1,
             'va_ptr_type' => 'x86',
             'verbose' => undef,
             ' <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	36421	36588	
==>his means if one thread sets
the test number using current_test() they will all be effected.

Test::Builder is only thread-aware if threads.pm is loaded I<before>
Test: <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	1323	1477	
==>.

=cut

sub pc
{
    my $self = shift;

    if (@_)
    {
        $self->{PC} = shift;
    }
    else
    {
        return $self->{PC};
    }
}

=item C<a <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	932	1086	
==>.

=cut

sub pc
{
    my $self = shift;

    if (@_)
    {
        $self->{PC} = shift;
    }
    else
    {
        return $self->{PC};
    }
}

=item C<a <==
2	/Users/nnunley/parrot/languages/regex/regex.pl	1289	1538	
==>expr = <IN>;
    close IN;
}

$operation ||= "compile";

my %options;
$options{'no-tree-optimize'} = 1 if ! $tree_opt;
$options{'no-list-optimize'} = 1 if ! $list_opt;
$options{'DEBUG'} = 1 if $debug;
$options{subname} = $subname if $subname;
$option <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	4167	4266	
==>.converting right...");
    my $temp = $compiler->temp_reg($calc_type);
    $right = $right->compile <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	406876	407319	
==>AGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 470,
                  "ARGS" => [
                              "s",
                              "ic",
                              "sc"
                            ], <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	2612	2912	
==>' is supposed to make this impossible!"
      if @equivs;

    # Jump threading: replace
    #
    #  goto @1
    #  ...
    #  @1: goto @2
    #
    # with
    #
    #  goto @2
    #  ...
    #  @1: goto @2
    #

    # First, convert all statements to the form
    #  { label => optional_label, code <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/LoopControl.pm	2542	2650	
==>fix = $loop_block->prefix;
  my $suffix = $block_types{'while'}{uc $kind};

  my $label = "${prefix}_${suffix <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	2109	2229	
==>die "Syntax error at $file line ".$fh->input_line_number()."\n";
        }
    }

    return $vtable;
}

=item C<vtbl_def <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1048743	1049208	
==>> "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1172,
                  "ARGS" => [
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 162 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (!{{\@2}})\n\tinternal_e <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	4501	4611	
==>urn generated code.
	return $pir;
}

sub post_op($$) {
	# Nothing to do.
	return "";
}

# Pre and post branch o <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	2917	3027	
==>urn generated code.
	return $pir;
}

sub post_op($$) {
	# Nothing to do.
	return "";
}

# Pre and post branch o <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	31801	31919	
==>whoa {
    my($check, $desc) = @_;
    if( $check ) {
        die <<WHOA;
WHOA!  $desc
This should never happen!  Pleas <==
2	/Users/nnunley/parrot/lib/Test/More.pm	30885	31003	
==>whoa {
    my($check, $desc) = @_;
    if( $check ) {
        die <<WHOA;
WHOA!  $desc
This should never happen!  Pleas <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	4218	4384	
==>h};
        if ( exists $op->{arg2} ) {
            print {$FH}
                "  new $op->{result}->{symbol}, $op->{arg1}, $op->{arg2}\n";
        }
        els <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9502	9628	
==>ot valid: discard it
		and	do {
				$$token eq ''	# End of input: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	p <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9074	9195	
==>ot valid: discard it
		and	do {
				$$token eq ''	# End of input: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	p <==
2	/Users/nnunley/parrot/lib/Parrot/Test/APL.pm	714	812	
==>:Spec->rel2abs($lang_f);
    $out_f  = File::Spec->rel2abs($out_f);
    Parrot::Test::write_code_to <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Punie.pm	751	849	
==>:Spec->rel2abs($lang_f);
    $out_f  = File::Spec->rel2abs($out_f);
    Parrot::Test::write_code_to <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	13170	13274	
==>d255\green0\blue0;\red0\green0\blue255;}
END
}


sub doc_info {
   my $self = $_[0];

   my $class = ref( <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	9762	9867	
==>\cJ/\n/g;
}

sub path_to_parrot {

    my $path = $INC{'Parrot/Config.pm'};
    $path   =~ s{ /lib/Parrot/ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	6933	7063	
==>ese
    # are the ones that were marked reachable because the previous
    # basic block fell through to them.)
    my %AMDEST; # { <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3550	3753	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1;

__END__

=head1 NAME

Pod::Simple::Checker -- check the Pod syntax of a document

=head1 SYNOPSIS

  perl -MPod::Simple::Checker -e \
   "exit Pod::Simp <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12688	12774	
==>turn 47,
because C<EE<lt>solE<gt>>, C<EE<lt>47E<gt>>, C<EE<lt>0x2fE<gt>>,
and C<EE<lt>0 <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	1607	1694	
==>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1;
__END__

=head1 NAME

Pod::Simple::Si <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	3504	3646	
==>lf = shift;
        my ($op) = @_;
        my $FH   = $self->{fh};
        print {$FH}
            "  $op->{result}->{symbol} = find_lex \" <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	683	909	
==>=cut

################################################################################

# the following #defined macros are really used as data types, and should
# be converted to typedefs.
my @type_macros = qw(CHARTYPE ENCODIN <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	411414	411899	
==>AGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 475,
                  "ARGS" => [
                              "i",
                              "p",
                              "sc"
                            ],
                  "BODY" => "#line 552 \"s <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33803	33985	
==>es2;
        my $decl   = pop @opcodes2;
        $callop->{result} = \@return1;
        push @opcodes2, $callop;
    }
    push @opcodes1, @opcodes2, @opcodes3;
    my $lbl_loop <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	2172	2281	
==>A SIMPLE DELIMITED STRING

sub gen_delimited_pat($;$)  # ($delimiters;$escapes)
{
	my ($dels, $escs) = @_;
	re <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	464277	464762	
==>> ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 532,
                  "ARGS" => [
                              "n",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 322 \"src/ops/math <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16724	16868	
==>self->{methods}} ) {
        next unless $method->{loc} eq 'nci';
        my $ret = $self->body($method, $line, $out_name);
        $line += coun <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	60621	60823	
==>s/core.ops\"\n  PARROT_WARNINGS_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	61271	61473	
==>s/core.ops\"\n  PARROT_WARNINGS_off(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	40181	40314	
==>type} eq "leftop" )
	{
		$code .= '
		  # MATCH LEFTARG
		  ' . $leftarg->code(@_[1..2]) . '

		  $repcount++;

		  my $savetext = $te <==
2	/Users/nnunley/parrot/tools/build/dynoplibs.pl	4971	5142	
==>{
        return 1 if modtime($source) > $target_mod;
    }

    return 0;
}

sub generate_c {
    my ($oplib) = @_;
	
	foreach (keys %cores) {
		if (needs_build($oplib . " <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	3603	3733	
==>te'    , 180,
 'micro'    , 181,
 'para'     , 182,
 'middot'   , 183,
 'cedil'    , 184,
 'sup1'     , 185,
 'ordm'     , 186,
 'r <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	6105	6307	
==>'i_syssocket' => 'define',
             'i_syssockio' => 'define',
             'i_sysstat' => 'define',
             'i_sysstatfs' => undef,
             'i_sysstatvfs' => 'define',
             'i_syst <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	27791	27944	
==>f) = shift;

    return map { $_->{'ok'} } @{ $self->{Test_Results} };
}

=item B<details>

    my @tests = $Test->details;

Like summary(), but with a lo <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	9977	10084	
==>truct.pmc managedstruct.pmc delegate.pmc csub.pmc compiler.pmc exception.pmc version.pmc vtablecache.pmc par <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	7536	7656	
==>end
100 print "100!"
    goto FIN
200 print "200!"
    goto FIN
300 print "300!"
    goto FIN
oats:
	print "Oats",
	retur <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	19819	19939	
==>end
100 print "100!"
    goto FIN
200 print "200!"
    goto FIN
300 print "300!"
    goto FIN
oats:
	print "Oats",
	retur <==
2	/Users/nnunley/parrot/lib/File/Which.pm	581	694	
==>ish) {
    if ($ENV{PATHEXT} and $Is_DOSish) {    # WinNT. PATHEXT might be set on Cygwin, but not used.
        p <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	5492	5774	
==>oto PARSE;
	}
	if ($syms[CURR] eq "end") {
		if ($syms[NEXT] eq "function") {
			parse_endfunc();
			goto PARSE;
		}
		if ($syms[NEXT] eq "sub") {
			parse_endsub();
			goto PARSE;
		}
		if ($syms[NEXT] eq "if") {
			$_=pop @ifstack;
			if ($_ < 0 ) {
				# print "Else was done, ski <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	1425	1582	
==>address()>.

=cut

sub expr_address
{
    my ($self, $addr) = @_;

    return $addr;
}

=item C<expr_offset($offset)>

Returns the C code for C<OFFSET($offset <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	43638	43763	
==>DY" => "#line 732 \"src/ops/core.ops\"\n  Parrot_push_mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	44282	44407	
==>DY" => "#line 732 \"src/ops/core.ops\"\n  Parrot_push_mark(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	957598	957754	
==>preter, NULL, 1,\n\t\"encoding '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	958503	958659	
==>preter, NULL, 1,\n\t\"encoding '%Ss' not found\", {{\@2}});\n  {{\@1}} = n;\n  {{+=3}};\n",
                  "LABELS" => [
                                0 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	1013	1121	
==>{
    my ($self, $where) = @_;
    return "goto ".$self->output_label_use($where).";";
}

sub output_terminat <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	553853	553974	
==>code_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+4}};\n  interpreter->current_object <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	555250	555371	
==>code_t *next;\n  STRING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  next = {{^+4}};\n  interpreter->current_object <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	52031	52207	
==>1.yp"
{
            [ @{ $_[1] }, $_[2] ];
        }
	],
	[#Rule 49
		 'key', 3,
sub
#line 295 "Lua\lua51.yp"
{
            $_[2];
        }
	],
	[#Rule 50
		 'key <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	15105	15215	
==>rn;
  } elsif(wantarray) {  # return an array
    return map {; ($x = $_) =~
      s/([F\x00-\x1F\-\\\{\}\x7F-\ <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	2331	2579	
==>the file.
    my $filename = shift;
    open my $fh, "< $filename" or die "Unable to open $filename: $!\n";
    
    # We'll store an array of hashes containing the data.
    my @rules = ();
    my $rule;

    # Read through rules file line by line. <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	6647	6892	
==>r:
    #

    $self->PARSE_ERROR("Unrecognized text '$text'.");
  }

#  $self->DEBUG(0, "Tokens: %s", join(", ", map { "'" . $_->text . "'" } @tokens))
#    if @tokens;

  push @{$self->{TOKENS}}, @tokens;
}


#
# slurp_file()
#

sub slurp_file
{ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	8106	8203	
==>STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK0} = ${STEM <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	6060	6157	
==>STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${STACK0} = ${STEM <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	1824	1944	
==>e_numops] = {\n";
    $func_end = "_exec";
    $normal_op = "Parrot_exec_normal_op";
    $cpcf_op = "Parrot_exec_cpcf_op" <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Libs.pm	663	758	
==>parrot/library'),
		$self->new_group('Dynamic Libraries', '', 'src/dynoplibs'),
	);
}

=back

=c <==
2	/Users/nnunley/parrot/config/init/hints/darwin.pm	1528	1711	
==>his variable needs renaming to be more general
        # XXX ugly hack for rpath_lib in config/inter/libparrot.pm
        rpath                   => "-L",
        libparrot_soname    = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	613937	614226	
==>}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1047440	1047729	
==>}, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => " <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parser.pm	8535	8648	
==>ush @{$code{$seg}->{code}}, "\t# $syms[CURR]\n";
		goto PARSE;
	}
	if ($type[CURR] eq "INT" and 
		($type[NEXT] eq <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	31773	31917	
==>> 53
		}
	},
	{#State 109
		ACTIONS => {
			"," => 151
		},
		DEFAULT => -9
	},
	{#State 110
		DEFAULT => -38
	},
	{#State 111
		ACT <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	424	530	
==>E__->_export_to_level( 2, __PACKAGE__ );
}

my $count;

foreach my $meth ( qw(is isnt like) ) {
    no stri <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	341	447	
==>E__->_export_to_level( 2, __PACKAGE__ );
}

my $count;

foreach my $meth ( qw(is isnt like) ) {
    no stri <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	408316	408575	
==>connect(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409215	409474	
==>connect(interpreter, {{\@2}}, {{\@3}});\n    {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ), <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	10961	11052	
==>"#line 206 \"src/ops/core.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->contr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	11750	11841	
==>"#line 206 \"src/ops/core.ops\"\n  stack_push(interpreter, &CONTEXT(interpreter->ctx)->contr <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	9220	9356	
==>f       math.h
coshl       math.h
cosl        math.h
cpow        complex.h
cpowf       complex.h
cpowl       complex.h
cproj       comple <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	26170	26610	
==>e(interpreter, p, {{^+1}});\n  {{=dest}};\n",
                  "LABELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "newclosure",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	489	681	
==>that on pie-thon.

=cut

sub new {
    return bless {};
}

sub output_is() {
    my ($self, $code, $output, $desc) = @_;

    $count = $self->{builder}->current_test + 1;

    $desc = $language <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	7641	7860	
==>> ', @stack) . ")\n")
            }

            pop @stack;

            next;
        }

        next unless @stack;

        if (/^\s*\#(\s*)(.*)/) {
            my $indent = "  " x (@stack);
            if ($1 ne $in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	620873	620977	
==>sig, *ccont;\n    opcode_t *src_pc;\n    void **src_pred;\n    parrot_context_t *caller_ctx, *ctx;\n    i <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2434	2533	
==>ry single instruction. While we kinda find
	# basic blocks, we don't discover backward branches unti <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1012	1111	
==>ry single instruction. While we kinda find
	# basic blocks, we don't discover backward branches unti <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	13918	14024	
==>itle="Full smoke report">&raquo;</a></td>
          </tr>
          <tr class="details" id="details_<tmpl_v <==
2	/Users/nnunley/parrot/languages/lua/Lua/opcode.pm	1509	1622	
==>oOp;
use base qw(Lua::opcode);

package FindGlobalOp;
use base qw(Lua::opcode);

package FindLexOp;
use bas <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Path.pm	1134	1294	
==>ath}) ne $self )
        {
            bless $instance_for_path{$path}, $self;
        }
        
        return $instance_for_path{$path};
    }
    
    my ($v <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	1026	1196	
==>ers #'d 100 or higher are used here for temporary conversions
# to other types required by the various opcodes. XXX This should go away
# Once PMI ports his lovely new per <==
2	/Users/nnunley/parrot/languages/urm/lib/URM/Test.pm	345	513	
==>>_export_to_level( 2, __PACKAGE__ );
}

my $count;

foreach my $meth ( qw(is isnt like) ) {
    no strict 'refs';

    *{"URM::Test::output_$meth"} = sub {
        my( $ <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Test.pm	428	563	
==>>_export_to_level( 2, __PACKAGE__ );
}

my $count;

foreach my $meth ( qw(is isnt like) ) {
    no strict 'refs';

    *{"Scheme::Test:: <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	263051	263481	
==>,
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 306,
                  "ARGS" => [
                              "i",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 798 \"src/ops/cmp.ops\"\n    if ({{\@2}} == {{\@3 <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	5942	6073	
==>() to perform the actual substitutions.
sub _substitute
{
    my $self = shift;
    local $_ = shift;
    my $trans = shift;

    s/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	138810	139130	
==>PE" => "inline",
                  "CODE" => 170,
                  "ARGS" => [
                              "ic",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 70 \"src/ops/cmp.ops\"\n  if ({{\@1}} == {{\@2}}) {\n    {{+={{\@3}}} <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	5948	6080	
==>lower is better)\n";
}
else {
    print "Numbers are relative to the first one. (lower is better)\n";
}
print "\n";

open (COPYOUT, " <==
2	/Users/nnunley/parrot/config/auto/memalign.pm	1688	1827	
==>$f =
          $test2 ? 'posix_memalign'
        : $test  ? 'memalign'
        : '';
    $conf->data->set(memalign => $f);
    print($test ? <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	32217	32366	
==>OREREG} in rule " .
				"$rule->{'name'}\n";
		} elsif ("$rule->{'pir'}$rule->{'instruction'}" =~ /\$\{STACK0\}/) {
			$dest_reg = 0;
		} elsif ("$rul <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	6682	6801	
==>c.defined ?? " - $desc" !! "";
    $out = "$out <pos:$?CALLER::CALLER::POSITION>" if $Test::ALWAYS_CALLER;
    # message <==
2	/Users/nnunley/parrot/tools/dev/symlink.pl	384	521	
==>se File::Spec;
use Cwd;

my $self = $0;
my $cwd  = getcwd();

$self = readlink($self) while -l $self;

$self = File::Spec->catfile($cwd, $ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	4297	4419	
==>s, pass);
EOC
    }
    $cout .= <<"EOC";
    }
    return pmc;
}

EOC
}

=back

=head2 Class Methods

=over

=item C<new($ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	808619	808834	
==>"n",
                              "p",
                              "kc"
                            ],
                  "BODY" => "#line 502 \"src/ops/set.ops\"\n    {{\@1}} = {{\@2}}->vtable->get_number_keyed(in <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	5493	5616	
==>e.\n";

      DEBUG > 3 and print " Fetching a line from source-string...\n";
      if( ${ $self->{'source_scalar_ref'} } =~ <==
2	/Users/nnunley/parrot/config/auto/alignptrs.pm	700	815	
==>t_result('');
    my $align;
    if (defined($conf->data->get('ptr_alignment'))) {
        $align  = $conf->data->ge <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	10064	10202	
==>lename_8dot3} ($filename_8dot3)");
        }
        $files_in_dir_8dot3{$dirname}{$filename_8dot3}=$_;

        if (exists $files_in_dir_n <==
2	/Users/nnunley/parrot/lib/Test/More.pm	2428	2528	
==>which you can switch to once you get the hang of basic testing.

The purpose of this module is to pro <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	387	594	
==>',             'print', '"lambda"'],
  ['',             'branch', 'write_RET'],
  ['write_N_LAMBDA','eq', 'I0', '.Array', 'write_ARRAY'],
  ['',             'print', 'P5'],
  ['',             'branch', 'write <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	658054	658285	
==>RGS" => [
                              "i",
                              "p",
                              "k"
                            ],
                  "BODY" => "#line 329 \"src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	22984	23150	
==>-$unkpos).$pref;
							$firstpos = $unkpos unless defined $firstpos;
							undef $unkpos;
							last FIELD if @fields == $max;
						}
					}
					push @fields, $cl <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	6949	7043	
==>und %d external symbols\n", scalar(@external_symbols));
    printf("Of these, %d are not define <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	423	594	
==>hods

=over

=cut

package Parrot::Docs::Group;

use strict;
use warnings;

use base qw( Parrot::Docs::Item );

=item C<new_group($name, $text, @items)>

Returns a new grou <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	186	306	
==>XPORT_TAGS);
use Carp;

$VERSION   = '0.01';
@ISA       = qw(Exporter);
@EXPORT_OK = qw(generate);

use Data::Dumper;
use <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	6275	6375	
==>h[${ITEMP0}] = stack_depth
goto POST_BRANCH_NOT_switch_${CURIC}

POST_BRANCH_switch_${CURIC}:
i = ele <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	4213	4313	
==>h[${ITEMP0}] = stack_depth
goto POST_BRANCH_NOT_switch_${CURIC}

POST_BRANCH_switch_${CURIC}:
i = ele <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	782933	783403	
==>":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 884,
                  "ARGS" => [
                              "p",
                              "kic",
                              "sc"
                            ],
                  "BODY" => "#line 387 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	2977	3119	
==>s_global
{
  my $self = shift;

  return defined($self->block) && not(defined($self->block->block));
}

#
# compile()
#

sub compile
{
  my $se <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	614801	614913	
==>=> "#line 508 \"src/ops/object.ops\"\n    opcode_t *next = {{^+4}};\n    INTVAL offset;\n    offset = Parrot_clas <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	615952	616064	
==>=> "#line 508 \"src/ops/object.ops\"\n    opcode_t *next = {{^+4}};\n    INTVAL offset;\n    offset = Parrot_clas <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4837	4940	
==>ut_classmatch {
    my ($self, $incexc, $failLabel) = @_;

    my $passLabel = $self->{state}->genlabel( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4501	4604	
==>ut_classmatch {
    my ($self, $incexc, $failLabel) = @_;

    my $passLabel = $self->{state}->genlabel( <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	12014	12165	
==>'set',[$return,1]);
  $self->_add_inst("DONE_$label");
  return $return;
}

sub _op_or {
  my ($self,$node) = @_;
  my $return;
  my $label = $self->_ge <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	4194	4404	
==>herwise, syntax eror.
        else {
            die "Syntax error on line $line (\"$_\")\n";
        }
    }

    # If we're still in a heredoc, we got an error.
    if ($in_heredoc) {
        die "Unterminated <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	1865	2111	
==>$file);
exit if $opt{D};
gen_code();

sub nci_method {
    my $m = shift;
    return 1 if $vtables{$m};
    return 1 if $nci_methods{$m};
    return 1 if $m =~ /^\d+$/;	# MMD nr
    return 0;
}

sub type_map {
    my $t = $_[0];
    return $type_m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	137015	137316	
==>ne",
                  "CODE" => 168,
                  "ARGS" => [
                              "s",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 326 \"src/ops/bit.ops\"\n  {{\@1}} = string_bitwise_xor(interpr <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3861	3981	
==>c
    for my $group (keys %$group_files) {
        compile("$group", "lib-$group")
          or die "compile $group.c fai <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3965	4085	
==>c
    for my $group (keys %$group_files) {
        compile("$group", "lib-$group")
          or die "compile $group.c fai <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	5445	5563	
==>ssage

    Digest is 6df23dc03f9b54cc38a0fc1483df6e21

provided that the implementation is working correctly.  The same <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557844	557941	
==>RING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  interpreter->current_cont = CONTEXT(inter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	559228	559325	
==>RING *meth;\n\n  object = {{\@1}};\n  meth = {{\@2}};\n  interpreter->current_cont = CONTEXT(inter <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	714331	714581	
==>> "function",
                  "CODE" => 801,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 75 \"src/ops/python.ops\"\n  STRING * const s = {{\@1}};\n  PMC * const io <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	5722	5844	
==>ory $dir
	    my @dirs;
	    while (! -d $dir) { # Scan up to nearest existing ancestor
		unshift @dirs, $dir;
		$dir = dir <==
2	/Users/nnunley/parrot/lib/Parrot/Revision.pm	491	651	
==>-e ".svn/entries");
    $svn_entries = ".svn/entries";

    # code taken from pugs/util/version_h.pl rev 859
    if (-r $svn_entries) {
        open my $FH, '<', <==
2	/Users/nnunley/parrot/lib/Parrot/BuildUtil.pm	877	1000	
==>$VERSION>;
    close $VERSION;

    chomp $parrot_version;
    $parrot_version =~ s/\s+//g;
    @parrot_version = split(/\./ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	329115	329483	
==>=> "inline",
                  "CODE" => 386,
                  "ARGS" => [
                              "n",
                              "p"
                            ],
                  "BODY" => "#line 164 \"src/ops/dotgnu.ops\"\n  {{\@1}} = (FLOATVAL)(Parrot_Float4)({{\@2}}->vtable->get_number(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABEL <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	385	483	
==>ols/build/pmc2c.pl>,
F<tools/build/vtable_h.pl>, F<tools/dev/gen_class.pl>, and
F<src/pmc/null.pl>. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	303457	303862	
==>",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 353,
                  "ARGS" => [
                              "i",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 980 \"src/ops/cmp.ops\ <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	886	1113	
==>.pasm) subst(s/enum_class_(\\w+)/\$1/e) */
enum {
END_H

    my @pmcs = split(/ /, $conf->data->get('pmc_names'));
    print OUT "    enum_class_default,\n";
    my $i = 1;
    foreach (@pmcs) {
        print OUT "    enum_class <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	478911	479152	
==>Error,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	479803	480044	
==>Error,\n\t\t    \"Divide by zero\");\n  {{\@1}} = floor({{\@1}} / den);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/config/init/defaults.pm	6380	6513	
==>ison -v -y',
        lex  => 'flex',

        # Extra flags needed for libnci_test.so
        ncilib_link_extra => '',

    );

    my <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Info.pm	2182	2349	
==>le', '',
            $self->new_item('A list of some of the Parrot developers with SVN commit access.', 'RESPONSIBLE_PARTIES'),
            $self->new_item('A list of s <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	24822	24945	
==>f ($check->{itempos}) {
			$action .= 'push @{$thisparser->{errors}}, [qq{'.$self->{msg}.'},$thisline];'; 
		} else {
			$ac <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	1038	1163	
==>< 16) ? ' & ' . MAX : '';
#	FF => "X0=rotate_left(((X1&X2)|(~X1&X3))+X0+X4+X6$MSK,X5)+X1$MSK;",
#	GG => "X0=rotate_left(((X1&X <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5514	5630	
==>,$stateno);

        $stateno=$$stack[-1][0];
        $actions=$$states[$stateno];

#DBG>	print STDERR ('-' x 40 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5249	5360	
==>,$stateno);

        $stateno=$$stack[-1][0];
        $actions=$$states[$stateno];

#DBG>	print STDERR ('-' x 40 <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	37227	37403	
==>und
      DEBUG > 3 and print "  Peering at L-content for a '/' ...\n";
      for(my $j = 0; $j < @ell_content; ++$j) {
        next if ref $ell_content[$j];
        DEBUG > 3 a <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse/P6C.pm	1691	1832	
==>literal') && is_string($atom->type)) {
        $R = $self->convert_sv_literal($atom, $ctx);
    } else {
        $R = op('external' => [ 'stri <==
2	/Users/nnunley/parrot/tools/util/smokeserv-client.pl	1809	1928	
==>t.
{
  my $fresh;
  sub debug($) {
    my $msg = shift;

    print STDERR "* " and $fresh++ unless $fresh;
    print STD <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	1789	1925	
==>ented_out

    if ($text =~ m{^((?:\'(?:\\\'|(?!\').)*\'))(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, 'literal' <==
2	/Users/nnunley/parrot/languages/regex/test.pl	2355	2462	
==>EC, $testfile) or die "open $testfile: $!";
    $pattern = <SPEC>;
    chomp($pattern);
}

generate_regular( <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	37069	37170	
==>uments:

=over 4

=item 1.

A string to be processed (C<$_> if the string is omitted or C<undef>)

=it <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	52901	53002	
==>uments:

=over 4

=item 1.

A string to be processed (C<$_> if the string is omitted or C<undef>)

=it <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Python.pm	1362	1467	
==>rot::Test::run_command($pycmd, STDOUT => $py_out_f);
    my $py_file = Parrot::Test::slurp_file($py_out_f) <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Builtins.pm	1678	1938	
==>', 'I1', 0],
  ['',            'set', 'I2', 0],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            'set', 'P5', 'P16[0]'],
  ['',            'bsr', 'apply_HELP'],
  ['',            'eq', 'I16', '.Undef', 'apply_CALL'],
  ['',            ' <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	5629	5817	
==>text;
            die $@ if $@;
            last;
        }
        if ($options{conditioned_lines}) {

            # Lines with "#CONDITIONED_LINE(var):..." are skipped if
            # th <==
2	/Users/nnunley/parrot/compilers/imcc/rebuild.pl	205	327	
==><outputs>...

=head1 DISCUSSION

This script works by appending the line

  /* CHECKSUM: <checksum> */

to the end of all g <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	14544	14649	
==>Build::(\w+)/) {   ## XXX && $f ne '__new__'
	$namespace{$f} = $classes{$1};
	if ($vtables{$f}) {
	    pri <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	8320	8415	
==>(15);"Stuff"
print "I am the very model of a modern";tab$(15);"More"
print "Hello","Again",d
dim <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	21184	21279	
==>(15);"Stuff"
print "I am the very model of a modern";tab$(15);"More"
print "Hello","Again",d
dim <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	18	111	
==>e Pod::Simple::DumpAsText;
$VERSION = '2.02';
use Pod::Simple ();
BEGIN {@ISA = ('Pod::Simple' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	50994	51137	
==>n";
        push @{ $lineage[-1] }, $4;
      }

    } elsif(defined $5) {
      DEBUG > 3 and print "Found stuff \"$5\"\n";
      push @{ $line <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	2899	2996	
==>DERR "creating table: '$table{$name}' (charset: $name)\n";
    setlocale(LC_CTYPE, $name);
    cre <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	129777	130007	
==>DY" => "#line 301 \"src/ops/bit.ops\"\n  {{\@1}} ^= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	130516	130746	
==>DY" => "#line 301 \"src/ops/bit.ops\"\n  {{\@1}} ^= {{\@2}};\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	183736	184242	
==>":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 219,
                  "ARGS" => [
                              "nc",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 285 \"src/ops/cmp.ops\"\n  if ({{\@1}} < <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1909	2009	
==>_text    { ++$_[0]{'Indent'} }
sub start_over_block   { ++$_[0]{'Indent'} }

sub   end_over_bullet  { <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1477	1577	
==>_text    { ++$_[0]{'Indent'} }
sub start_over_block   { ++$_[0]{'Indent'} }

sub   end_over_bullet  { <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	16538	16667	
==>.

This is a subclass of L<Pod::Simple> and inherits all its methods.

A subclass of Pod::Simple::PullParser should define a C<run <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	3261	3364	
==>el => $curlabel, code => $stmt };
	    $labels{$curlabel->{label}} = $output2[-1] if $curlabel;
	    und <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	9397	9486	
==>s src/ops/io.ops src/ops/math.ops src/ops/object.ops src/ops/pic.ops src/ops/pmc.ops src/o <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	13190	13331	
==>ntheses, then double the
        # enclosing parentheses and add a space around the argument,
        # like so:
        #
        #    goto O <==
2	/Users/nnunley/parrot/lib/Parrot/OpsFile.pm	3858	3961	
==>ntheses, then double the enclosing
parentheses and add a space around the argument, like so:

    goto O <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2268	2383	
==>e = $arg_sym->type; 
    }
    else {
      $actual_arg_type = $args[$i]->type;
    }

    $self->INTERNAL_ERROR("Ca <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	1968	2083	
==>e = $arg_sym->type; 
    }
    else {
      $actual_arg_type = $args[$i]->type;
    }

    $self->INTERNAL_ERROR("Ca <==
2	/Users/nnunley/parrot/config/auto/byteorder.pm	286	381	
==>eorder;

use strict;
use vars qw($description @args);

use Parrot::Configure::Step qw(:auto);
us <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	955490	955918	
==>IRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1075,
                  "ARGS" => [
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 576 \"src/ops/string.ops\"\n  {{\@1}} = string_copy(interpreter, Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	603321	603567	
==>",
                  "CODE" => 683,
                  "ARGS" => [
                              "s",
                              "p"
                            ],
                  "BODY" => "#line 404 \"src/ops/object.ops\"\n    {{\@1}} = VTAB <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	40533	40645	
==>r =~ s/\$\{$key\}/$value/g;
	}
	while ($pir =~ /\$\{([INSP])TEMP(\d+)\}/g) {
		my $key = "${1}TEMP$2";
		my $valu <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	11947	12043	
==>ialized by default to C<()>.

With no argument, the accessor returns a reference to the
element's <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	12684	12780	
==>ialized by default to C<()>.

With no argument, the accessor returns a reference to the
element's <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	4365	4529	
==>'}
                            = $self->{'last_was_blank'}     = 1;
          # And fall thru to the pod-mode block further down
        }
      } else {
        DEB <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	6044	6144	
==>ND_C
}

=item C<init_set_dispatch($base_suffix)>

Returns the C code to initialize the dispatch mecha <==
2	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1130	1223	
==>ce: "$options{icudir}\\bin\\icu*.dll"; DestDir: "{app}\\bin"; Flags:
};
}

open OUT, "> parrot <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	4855	5080	
==>ast once in function (.*)/;
            if ($total_branches) {
                $function_branch_coverage{$source_file}{$function} = $percent;
                next;
            }

            ($percent, my $total_calls, $functi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	950001	950552	
==>",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 1069,
                  "ARGS" => [
                              "s",
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 540 \"src/ops/string.ops\"\n  STRING *dest = new_string_header <==
2	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	2202	2301	
==>rozen = <>;
}
#print Dump( $frozen );

# Parse the freeze-state
my $symtab = $frozen_parser->frozen( <==
2	/Users/nnunley/parrot/config/init/miniparrot.pm	1458	1690	
==>> 'I386',
        jitosname          => 'nojit',
        jitcapable         => 0,
        execcapable        => 0,
        cc_hasjit          => '',
        TEMP_jit_o         => '',
        TEMP_exec_h        => '',
        TEMP_exe <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	33155	33256	
==><"extract_quotelike"> for a (partial) solution to this problem.


=head2 C<extract_bracketed>

Like C< <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	860033	860540	
==>peat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 976,
                  "ARGS" => [
                              "s",
                              "s",
                              "ic"
                            ],
                  "BODY" => "#line 118 \"s <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	595	797	
==>p.

Use this when creating groups within a C<Parrot::Docs::Section>
subclass's C<new()> method.

=cut

sub new_group
{
    my $self = shift;
    
    return Parrot::Docs::Group->new(@_);
}

=item C<new($ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	861037	861556	
==>peat",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 977,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 118 \"src/ops/stri <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	16468	16565	
==>served.

This program is free software; you can redistribute it and/or modify it
under the same te <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/lib.pm	1682	1779	
==>served.

This program is free software; you can redistribute it and/or modify it
under the same te <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17476	17645	
==>ary' => 28
		}
	},
	{#State 42
		ACTIONS => {
			'NAME' => 96
		}
	},
	{#State 43
		DEFAULT => -89
	},
	{#State 44
		DEFAULT => -94
	},
	{#State 45
		DEFAU <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3124	3245	
==>g = 1";
}

=back

=head1 SEE ALSO

=over 4

=item C<Parrot::OpTrans>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTra <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2121	2222	
==>he following MUST apply.
    check_tabs($file, $source);
    check_cpp_indents($file, $source);
    ch <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1082293	1082577	
==>DE" => 1201,
                  "ARGS" => [
                              "p",
                              "i",
                              "kc"
                            ],
                  "BODY" => "#line 145 \"src/ops/experimental.ops\"\n  if ({{\@2}} <= 0 || {{\@2}} >= inte <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	5834	5929	
==>ed $self->{triggers}{$key}{$trigger};

    my $verbose = defined $self->get('verbose') && $self- <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6404	6499	
==>ed $self->{triggers}{$key}{$trigger};

    my $verbose = defined $self->get('verbose') && $self- <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6856	6958	
==>0"
print mid$(t$, 2, 8)
print left$(t$, 5)
print right$(t$, 5)
' instr
s1$="The longer string"
found$=" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	18585	18687	
==>0"
print mid$(t$, 2, 8)
print left$(t$, 5)
print right$(t$, 5)
' instr
s1$="The longer string"
found$=" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	166143	166675	
==>AGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 200,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 190 \"src/ops/cmp.ops\"\n  if (string_equal(interpreter, <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_builtins.pl	746	853	
==>alls 
# the inline'd version, compiles the result and invokes it.

print <<"END_PIR";

.HLL 'Tcl', ''
.names <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5498	5651	
==>@{$self->{BLOCKS}}, $module;

      next;

    }

    #
    # Variable declarations:
    #
    #   var <type> <ident>;
    #   var <type> <ident> = <value <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	4092	4194	
==>than one million bytes). I use it to
hash passwords.

=item *

educational purposes

=back

=head1 SYNO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1069063	1069321	
==>DE" => 1193,
                  "ARGS" => [
                              "i",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 49 \"src/ops/experimental.ops\"\n\n  FLOATVAL <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	16489	16630	
==>expected, $desc, %extra ) = @_;

            # Strange Win line endings
            convert_line_endings( $expected );

            # set up d <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	11005	11145	
==>expected, $desc, %extra) = @_;

            # Strange Win line endings
            convert_line_endings( $expected );

            # set up d <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	7097	7204	
==>urn @ops;
}

sub output_pushindex {
    my ($self, $reg) = @_;
    $reg = value(defined($reg) ? $reg : 'pos' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	6739	6846	
==>urn @ops;
}

sub output_pushindex {
    my ($self, $reg) = @_;
    $reg = value(defined($reg) ? $reg : 'pos' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	707908	708409	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "register",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "func <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	858	1104	
==>oc
    README.win32.pod                                [devel]doc
    RESPONSIBLE_PARTIES                             [main]doc
    TODO                                            [main]doc
    parrot-config                                   [main <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	87	180	
==>0333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Parrot::OpTrans::CGoto - CGoto Tran <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	28274	28370	
==>rgc
	eq argc, $_, ${englishname}_ARGOK
	print "Function $englishname received "
	print argc
	prin <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2351	2587	
==>,
            ar_flags             => '',
            ar_out               => '-out:',
            slash                => '\\',
            blib_dir             => 'blib\\lib',
            ccflags              => $ccflags,
            c <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	4247	4483	
==>,
            ar_flags             => '',
            ar_out               => '-out:',
            slash                => '\\',
            blib_dir             => 'blib\\lib',
            ccflags              => $ccflags,
            c <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	15944	16105	
==>E_CLASS
    type_trans["byref"] = 0
    annotate_reg_type(type_trans)
    stypes = push type_trans
    loadtype = type_trans

    # If the object is OK, we'll not <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	63013	63267	
==>YPE" => "inline",
                  "CODE" => 82,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY" => "#line 964 \"src/ops/core.ops\"\n  PARROT_ERRORS_off(interpreter, {{\@1}});\n  {{+ <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	13850	13966	
==>ree(hop);
    }
    hop = 0;
}

END_C

}
else {
    print SOURCE <<END_C;
static void hop_deinit(void) {}
END_C
}

pr <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	4013	4126	
==>efined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "No symbol name!"  unless defined $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	6181	6294	
==>efined $self and ref $self and $self->isa("Jako::Construct::Block");
  confess "No symbol name!"  unless defined $ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/EditorPlugins.pm	146	305	
==>=head1 NAME

Parrot::Docs::Section::EditorPlugins - Editor Plugins documentation section

=head1 SYNOPSIS

	use Parrot::Docs::Section::EditorPlugins;

=head1 DE <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	1852	2060	
==>check_source($file, \@lines);
}

check_manifest();

exit 0;

###############################################################################

sub check_source {
    my ($file, $source) = @_;

    print "Checki <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	1769	1875	
==>$k, $v) =  each (%type_map)) {
    $rev_type_map{$v} = $k;
};

get_dis($DIS, $file);
get_source($file);
exi <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	9597	9721	
==>$new_code =~ m/:[-\.0-9]/s;
            # The legal under-0x80 Name characters that 
            #  an XML Name still can't s <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	10861	10985	
==>$new_code =~ m/:[-\.0-9]/s;
            # The legal under-0x80 Name characters that 
            #  an XML Name still can't s <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	32920	33063	
==>{
	$c = $vtables{$c};
    }
    my $cc;
    if ($c =~ /^\d+$/) {	# MMD
	$cc = "-$c";
    }
    else {
	$cc = qq!"$c"!;
    }
    print <<EOC;
	s <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	54831	54940	
==>\A\s*<rulevar:(.*)>\Z/s;

				$rule and $rule->addvar($1,$self)
				      or  _no_rule($code,$line);

				$ite <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	6271	6375	
==>e} = 'None';
    if ($def_args{$arg}) {
	my ($i, $n, $defs);
	$n = $arg_count{$arg};
	$defs = @{$def_args <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Module.pm	811	1002	
==>props) ne "HASH";

  my $self = bless {
    BLOCK => $block,

    TYPE  => undef,
    NAME  => $ident->value,
    PROPS => $props,
    ARGS  => undef,

    DEBUG => 1,
    FILE  => $ident->fil <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	13040	13156	
==>ump_tree {
    my ($op) = @_;
    my $ref = $op->reftree();
    return dump_ref($ref);
}

sub dump_ref {
    my ($ref <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	221	325	
==>DEBUG unless defined &DEBUG;
}

__PACKAGE__->_accessorize(
  'root',   # root of the tree
);

#~~~~~~~~~~ <==
2	/Users/nnunley/parrot/config/auto/gmp.pm	503	615	
==>rbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    my $cc <==
2	/Users/nnunley/parrot/config/auto/readline.pm	515	627	
==>rbose);

sub runstep
{
    my ($self, $conf) = @_;

    my $verbose = $conf->options->get('verbose');

    my $cc <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	826608	826696	
==>try->entry_type != STACK_ENTRY_FLOAT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"W <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827678	827766	
==>try->entry_type != STACK_ENTRY_FLOAT) {\n    internal_exception(ERROR_BAD_STACK_TYPE, \"W <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11101	11257	
==>hen
	print "Correct"
else 
	print "Wrong"
end if

' Factorial of 5 is 120
function factorial(a)
	if a then factorial=a*factorial(a-1) else factorial=1
end fu <==
2	/Users/nnunley/parrot/tools/dev/pbc_header.pl	1752	1895	
==>{
	    my $c = substr $header, $i, 1;
	    $c = unpack 'c', $c;
	    printf "\t%-12s= %s\n", $fields[$i],$c;
	}
    }
}

sub main {
    my ($res <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	16700	16803	
==>ts{choose}) {
			$opts{stuff}=~s/X/$type/g;
		}
		# The rhs was passed in
		@stream=build_assignment($as <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9636	9753	
==>DERR "**At eof: aborting.\n";
				return(undef);
			};

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Dicard i <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9203	9315	
==>DERR "**At eof: aborting.\n";
				return(undef);
			};

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Dicard i <==
2	/Users/nnunley/parrot/config/auto/memalign.pm	843	1023	
==>e it alone
        $self->set_result('already set');
        return $self;
    }
    my $test = 0;

    if ($conf->data->get('i_malloc')) {
        $conf->data->set(malloc_header => <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8429	8559	
==>ROR'
            or  do {
#DBG>				$debug & 0x04
#DBG>			and	print STDERR 
#DBG>				    "go to state $$states[$$stack[-1][0]]{G <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8047	8173	
==>ROR'
            or  do {
#DBG>				$debug & 0x04
#DBG>			and	print STDERR 
#DBG>				    "go to state $$states[$$stack[-1][0]]{G <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	11524	11638	
==>p (@_) {
    next unless defined $line_group and length $line_group;
    pos($line_group) = 0;
    while($line_grou <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6231	6338	
==>A$(2) = "Boston"
A$(3) = "Chicago"
A$(4) = "Seattle"
Max = 4 'UBOUND(A$)
Exchange=TRUE           ' Force fir <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15884	15991	
==>A$(2) = "Boston"
A$(3) = "Chicago"
A$(4) = "Seattle"
Max = 4 'UBOUND(A$)
Exchange=TRUE           ' Force fir <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	1871	1992	
==>elf->{STACK} = [];
    $self->{DONT_WRAP} = 0;
    
    while ( $token = $self->get_token )
    {
        $type = $token-> <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	13629	13814	
==>urn_assign, $other_decl, $final_assign,
        $temps_ref,
        $extra_preamble_ref, $extra_postamble_ref,
        $put_pointer_ref,
        $proto_type_ref) = @_;

    $other_decl | <==
2	/Users/nnunley/parrot/config/init/defaults.pm	1643	1862	
==>et.  Ultimately, it should be set to whatever ICU figures
        # out, or parrot should look for it and always tell ICU what to
        # use.
        cxx => '',

        # Linker, used to link object files (plus libra <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/Integer.pm	212	315	
==>Type/Integer.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#

use strict;
eval "use warnings";

package J <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	10148	10285	
==>pes, dtypes, loadtype, type_trans, c_params, escaper
    .local pmc ehs, eh, ss_propogate, ss
    .local string gen_pir, loadreg, storereg <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	24891	25018	
==>code{$seg}->{code}}, @code;

	die "TO expected at source line $sourceline" unless ($syms[CURR] ne "to");

	feedme();
	# The dest <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	162758	163035	
==>> 196,
                  "ARGS" => [
                              "nc",
                              "n",
                              "ic"
                            ],
                  "BODY" => "#line 183 \"src/ops/cmp.ops\"\n  if ({{\@1}} != {{\@2}}) {\n    {{+={{\@3}} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	27502	27656	
==>ent_start(($scratch = 'over-' . $list_type), $para->[1]);
      
    } elsif($para_type eq '=back') { #////////////////////////////////////////

      # TO <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	490779	491022	
==>/math.ops\"\n  {{\@1}}++;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	491400	491643	
==>/math.ops\"\n  {{\@1}}++;\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "N <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	7304	7435	
==>if I got this right- it came from a C99 reference, so some 99isms
#  might have slipped in)
abort       stdlib.h
abs         stdlib. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	617649	617748	
==>s)\n\t    goto runit_v_pp;\n\tif (++lru->u.type == lr_types)\n\t    goto runit_v_pp;\n\tmic->pic->mi <==
2	/Users/nnunley/parrot/config/gen/platform.pm	544	675	
==>rbose);

sub runstep {
    my ($self, $conf) = @_;

    my $verbose  = $conf->options->get('verbose');
    my $platform = lc $OSNAME <==
2	/Users/nnunley/parrot/lib/Parrot/Test/Harness.pm	1190	1288	
==>elf.  If you can load PIR libraries from your
language, you can even use the existing PIR testing t <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	713	912	
==>les/CFLAGS.in' => 'CFLAGS',
        commentType                      => '#'
    );

    open(CFLAGS, ">> CFLAGS") or die "open >> CFLAGS: $!";

    # Why is this here?  I'd think this information belo <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	926	1106	
==>ess {
    BLOCK  => $block,

    KIND   => 'sub',
    TYPE   => $type,
    NAME   => $ident->value,
    PROPS  => $props,
    ARGS   => $args,

    DEBUG  => 1,
    FILE   => $ident <==
2	/Users/nnunley/parrot/tools/dev/as2c.pl	385	498	
==>DO NOT EDIT THIS FILE
 *
 * Generated from $s.c via $s.s
 * by '$0 $s'
 */

EOT
}
sub create_s {
    my $cmd = shi <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	29599	29828	
==>.)
# 

############# The element children
# Second:
# The possibly inferred link-text -- i.e., if there was no real link text,
# then this is the text that we'll infer in its place. (E.g., for
# "L<Getopt::Std>", the inferred link <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	10781	10909	
==>rg ($node, 2, 'set!');

  my $symbol = _get_arg ($node, 1)->{value};
  my $temp = $self->_generate(_get_arg($node,2));
  if ($tem <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	17	152	
==>004-2006, The Perl Foundation.
# $Id: /parrot/lib/Parrot/Docs/POD2HTML.pm 20333 2006-06-21T18:44:31.111564Z bernhard  $

=head1 NAME

Pa <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	4945	5061	
==>:MD5>.

You can also install the Perl part of Digest::MD5 together with Digest::Perl::MD5
and use Digest::MD5 as norm <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	629994	630417	
==>"new",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 706,
                  "ARGS" => [
                              "p",
                              "k"
                            ],
                  "BODY" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	630983	631247	
==>"new",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 70 <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24846	24941	
==>rray, $textref,
				$match[2], $match[3]+$match[5]+$match[7],	# MATCH
				@match[8..9,0..1,2..7] <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7678	7771	
==>rray, $textref,
			$match[2], $match[3]+$match[5]+$match[7],	# MATCH
			@match[8..9,0..1,2..7] <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4977	5095	
==>eqnum}
TRUE_${eqnum}: set $result, 1.0
NOT_${eqnum}: noop
CODE
		die "$a1,$a2,$result,$op,$ot1,$ot2\n";
	},
	'xor' => s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089006	1089373	
==>rimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice",
                  "FLAGS" => ":base_core",
                  "A <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089954	1090320	
==>rimental" => 1,
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "slice",
                  "FLAGS" => ":python",
                  "ARG <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	33878	34002	
==>racefirst($text),
				  q{' . $rule->{"name"} . '})
					if defined $::RD_TRACE;').'
		if (1) { no strict qw{refs};
		$Parse: <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	1240	1466	
==>type eq 'HASH' ) {
                %{$_[0]} = %$data;
            }
            elsif( $type eq 'ARRAY' ) {
                @{$_[0]} = @$data;
            }
            elsif( $type eq 'SCALAR' ) {
                ${$_[0]} = $$ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	2163	2360	
==>umber of blocks begun (used for labels)
##   @block_stack         The stack of active blocks. We keep a block on the
##                          stack for the file scope.
##
## NOTE: Do NOT access t <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	696	875	
==>list.txt>.
F<docs/pdds/pdd16_native_call.pod>.

=cut


use strict;
use warnings;

my $opt_warndups = 0;

# This file will eventually be compiled
open NCI, ">", "src/nci.c" or die " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1095467	1095859	
==>,
                  "NAME" => "exec",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1215,
                  "ARGS" => [
                              "sc"
                            ],
                  "BODY" => "#line 223 \"src/ops/e <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	3406	3591	
==>($self, $addr) = @_;
    return "return opcode_to_prederef(interpreter,  (opcode_t *)$addr)";
}

=item C<access_arg($type, $num, $op)>

Returns the C code for the specified op argument t <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	50193	50347	
==>e 207 "Lua\lua51.yp"
{
            [ @{ $_[1] }, [ $_[3], $_[6] ] ];
        }
	],
	[#Rule 35
		 '_elseif_star', 0,
sub
#line 211 "Lua\lua51.yp"
{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	339667	340236	
==>"FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 398,
                  "ARGS" => [
                              "i",
                              "p",
                              "i",
                              "i"
                            ],
                  "BODY" => "#line 128 \"src/ops/io.op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	340665	341043	
==>"FLAGS" => ":advanced_io",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 399,
                  "ARGS" => [
                              "i" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	966772	966940	
==>"sc",
                              "i"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	967781	967949	
==>"sc",
                              "i"
                            ],
                  "BODY" => "#line 608 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_is_cclass <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	639386	639488	
==>g, 0)) {\n      case PARROT_ARG_IC:\n\t  typ = arg_op[2];\n\t  if (typ <= 1 || typ >= interpreter->n_vt <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	17772	17905	
==>onstruction of nested objects.
   Now will also take an object ref instead of requiring a hash ref.
   Also default initializes nested <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	34113	34230	
==>)->($text);
				: 'q{'.$self->describe.'}' ) . ';
		$Parse::RecDescent::lastunexpected = $text;
		' . ($self->{"lookah <==
2	/Users/nnunley/parrot/config/init/hints/freebsd.pm	1022	1122	
==>ed_alias  => 'libparrot$(SHARE_EXT)',
        libparrot_soname        => '-Wl,-soname=libparrot$(SHAR <==
2	/Users/nnunley/parrot/config/init/hints/linux.pm	1860	1960	
==>ed_alias  => 'libparrot$(SHARE_EXT)',
        libparrot_soname        => '-Wl,-soname=libparrot$(SHAR <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	17559	17687	
==>] eq "while") {
		my $false="0.0";
		feedme();  # At the while/until
		my $which=$syms[CURR];
		push @{$code{$seg}->{code}}, "DO_ <==
2	/Users/nnunley/parrot/lib/Parrot/PMC.pm	677	788	
==>er => 25,
	Coroutine => 26,
	Eval => 27,
	NCI => 28,
	Float => 29,
	Integer => 30,
	BigInt => 31,
	Complex => 32 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	242067	242188	
==>LE_get_number(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	243016	243137	
==>LE_get_number(interpreter, {{\@2}});\n  {{\@1}} = l < {{\@3}} ? -1 :\n       l > {{\@3}} ? +1 :\n       0;\n  {{+=4}};\n", <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	7214	7327	
==>TEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
PIR
	}

	return $pir;
}

sub post_load($) {
	my $self = shift;
	m <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	5036	5149	
==>TEMP0} = stack_depth
${DEST0} = concat ${STEMP0}
PIR
	}

	return $pir;
}

sub post_load($) {
	my $self = shift;
	m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	373207	373436	
==>n  *s = NULL;\n  PIO_peek(interpreter, {{\@2}}, s);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::O <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	641142	641431	
==>i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 716,
                  "ARGS" => [
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 189 \"src/ops/pmc <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	62886	63048	
==>ter that was specified
as being only to be used as an outermost bracket.

=item  C<Missing second block for quotelike "%s">

C<extract_codeblock> or C<extract_quot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	371450	371562	
==>t read line from empty filehandle\");\n    io = PMC_data(pio);\n    if (!io)\n\treal_exception(interpreter, NULL, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621411	621519	
==>c */\n    }\n    lru = &mic->lru;\n    if (lru->u.signature == sig) {\n\tif (sig) {\n\t    n = ((arg_pass_f)l <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	1502	1589	
==>${STEMP1}
${STEMP1} = "$register_num"
${STEMP0} = concat ${STEMP1}
${STACK$register_num} <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3212	3299	
==>${STEMP1}
${STEMP1} = "$register_num"
${STEMP0} = concat ${STEMP1}
${STACK$register_num} <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	34	277	
==>l" being setup correctly.
#
#
$tn=0;
while(1) {
	{
		local $/="";
		$_=<DATA>;
	}
	if (/type / or /select/) { # /function/
		print "Skipped\n";
		next;
	}
	last unless $_;
	last if /STOPPLEASE/;
	@c=m/^'\s*(.*)/gm;
	print join("\n", @c), "\n=== <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	6020	6159	
==>ULE <<END_C;

1;
END_C

close MODULE;

# finally create an include file with opcode number

my $inc_f = "include/parrot/oplib/ops.h";
my $in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56175	56415	
==>,
                  "ARGS" => [
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 869 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo_p(interpreter, {{\@2}});\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	31575	31765	
==>xt|name/sec>
  # L<text|/"sec"> or L<text|/sec> or L<text|"sec">
  # L<scheme:...>

  my($self,@stack) = @_;

  my($i, $treelet);
  my $start_line = $stack[0][1]{'start_line'};

  # A recursi <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	3769	3861	
==>);
}

=item C<restart_address($address)>

Returns the C code for C<restart ADDRESS($address)> <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/Compiled.pm	3499	3591	
==>);
}

=item C<restart_address($address)>

Returns the C code for C<restart ADDRESS($address)> <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	33532	33673	
==>shift @{$exprs};
    }
    if (    scalar( @{$exprs} ) == 0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa(' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	10043	10169	
==>'';
       # But that doesn't necessarily mean that the earlier one went okay
    } else {
      $enc_error = "Encoding is alre <==
2	/Users/nnunley/parrot/tools/build/pmc2c.pl	18531	18662	
==>e) = @_;

    $file =~ s/\.\w+$/.dump/;
    $file = find_file($include, $file, 1);

    my $fh = open_file( "<", $file );

    my $c <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Token.pm	197	300	
==>ko/Token.pm 19606 2006-05-30T15:08:05.048089Z coke  $
#
#

use strict;
eval "use warnings";

package Jak <==
2	/Users/nnunley/parrot/config/gen/config_h.pm	2184	2531	
==>$1 1\n";
        }
    }
    print HH <<EOF;

/*
 * D_(\\w+) config entries
 */

EOF
    for (sort($conf->data->keys())) {
        next unless /D_(\w+)/;
        my $val;
        if ($val = $conf->data->get($_)) {
            print HH "#define PARROT_\U$1 $val\n";
        }
    }

    close HH;

    move_if_diff("$hh.tmp", $hh);

    return $self <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Lexer.pm	4396	4515	
==>ast|redo|goto|return)(?!\w)(.*)$}) {
      push @tokens, Jako::Token->new(
        $file, $line, $1, undef, $1);
      $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	948822	948913	
==>5 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@1}}, {{\@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	949622	949713	
==>5 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_trans_charset(interpreter, {{\@1}}, {{\@ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	7475	7598	
==>f;
    for (@dis) {
	if (/Information of <?([\w:]+)>?/) {
	    $in_info = 1;
	    $cur_f = $1;
	}
	elsif ($in_info) {
	    i <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	10480	10614	
==>}
			if ($type=~/BARE/) {
				if ($sym=~s/\$$/_string/) {	
					$$optype="S";
				} else {
					$$optype="N";
				}
				$main::code{$ma <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	974	1134	
==>=> "\n<h1>",  # And also stick in an <a name="...">
  'head2' => "\n<h2>",  #  ''
  'head3' => "\n<h3>",  #  ''
  'head4' => "\n<h4>",  #  ''
  '/head1' => "</a> <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	2352	2456	
==>.

=head1 SEE ALSO

L<Pod::Simple>, L<Pod::Simple::Subclassing>

=head1 COPYRIGHT AND DISCLAIMERS

Copyri <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	3049	3173	
==>^\Qsrc$PConfig{slash}ops\E/;

        my $cfile = $ofile;
        $cfile =~ s/\Q$PConfig{o}\E$/.c/;

        my $pmcfile = $o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	308641	308851	
==>_allocate_zeroed(sizeof(PDB_t));\n\n        interpreter->pdb = pdb;\n        pdb->cur_opcode = interpreter->code->base.data;\n        pdb->state |= PDB_RUNNING;\n    }\n\n    {{+=1}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	31720	31850	
==>er,
    );
    if (    scalar( @{$exprs} ) == 0
        and scalar( @{ $expr->[1] } ) != 0
        and $expr->[1]->[-1]->isa('C <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	287448	287737	
==>n  {{\@1}} = (mmd_dispatch_i_pp(interpreter, {{\@2}}, {{\@3}}, MMD_CMP) < 0);\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot:: <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	6630	6771	
==>match = rulesub(target)

            unless match goto match_fail
          match_success:
            print "matched"
            goto match_ <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	825	920	
==>they match.  Note that patterns should be specified as strings
and without leading/trailing patt <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	2923	3018	
==>they match.  Note that patterns should be specified as strings
and without leading/trailing patt <==
2	/Users/nnunley/parrot/languages/scheme/Scheme.pm	1364	1453	
==>>{code}   = link_functions(Scheme::Generator::generate($self->{tree}));

  return $self->{ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	677990	678416	
==>ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 760,
                  "ARGS" => [
                              "p",
                              "nc"
                            ],
                  "BODY" => "#line 478 \"src/ops/pmc.ops\"\n    {{\@1}}->vtable->unshift_float(interpr <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	566774	567110	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "does",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	567668	568004	
==>,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "does",
                  "FLAGS" => ":object_base",
                  "ARGDIRS" => [
                                 "o" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	526322	526643	
==>OATVAL){{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "asin",
                  "FLAGS" => ":base <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	6624	6995	
==>e)
    s/^ {0,1}(\S)/  $1/mg; # minimum indent
    s/^\s*$//s;            # normalize emptiness
    &clip_excess_lines($_);
    $info->{desc} = $_;
    return $info;
}

sub files_worth_describing {
    use File::Find;
    my @files;
    find(sub {
	my $name = $File::Find::name;
	return if $name =~ /\.svn|core|\.[oa]|\.(so|brk|dsp|tmp)$/;
	return if $name =~ /locales\W[a <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	27126	27234	
==>, aop('external' => [ $extname, $extargs, $lastback ]));
    }
}

sub describe_seq { undef };
sub describe_ch <==
2	/Users/nnunley/parrot/tools/dev/parrotbench.pl	3801	3907	
==>( ! @{ $cfg{run_bench} } ) {
    my @regexes = grep defined, $ini->val( regexes => 'include');
    @{ $cfg{ <==
2	/Users/nnunley/parrot/languages/HQ9plus/lib/Parrot/Test/HQ9plus.pm	1385	1525	
==>language;
        } elsif ($dir_count == 2) {
          $path_to_language = '.';
        } elsif ($dir_count >2) {
          $path_to_languag <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	1870	2010	
==>language;
        } elsif ($dir_count == 2) {
          $path_to_language = '.';
        } elsif ($dir_count >2) {
          $path_to_languag <==
2	/Users/nnunley/parrot/lib/File/Which.pm	876	1031	
==>VMS) { 
    push @path_ext, qw(.exe .com);
}

sub which {
    my ($exec) = @_;

    return undef unless $exec;

    my $all = wantarray;
    my @results = ( <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	4599	4708	
==>t) = @_;

    if (($min == 0) && defined($max) && ($max == 1)) {
        return $self->rewrite_optional($op, $ <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	36364	36531	
==>pcodes;
}

sub BuildParam {
    my ( $parser, $idf ) = @_;
    my @opcodes1 = ();
    my @opcodes2 = ();
    my $defn;
    if ( $idf eq '...' ) {
        $defn <==
2	/Users/nnunley/parrot/lib/Class/Struct.pm	18347	18476	
==>mother => 'Person', father => 'Person'};


Modified by Casey West, 2000-11-08, v0.59.

    Added the ability for compile time clas <==
2	/Users/nnunley/parrot/config/inter/shlibs.pm	201	302	
==>CRIPTION

Asks the user which flags are needed for compiling position-independent code
for use in shar <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2013	2122	
==>$_[0]{'Indent'} }
sub   end_over_number  { --$_[0]{'Indent'} }
sub   end_over_text    { --$_[0]{'Indent'} }
su <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1581	1690	
==>$_[0]{'Indent'} }
sub   end_over_number  { --$_[0]{'Indent'} }
sub   end_over_text    { --$_[0]{'Indent'} }
su <==
2	/Users/nnunley/parrot/lib/Test/More.pm	4887	5069	
==>{
            push @imports, @{$_[$idx+1]};
            $idx++;
        }
        else {
            push @plan, $item;
        }

        $idx++;
    }

    plan(@plan);

    __PACKA <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	8002	8125	
==>);
sub output_popindex {
    my $self = shift;

    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('p <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	7655	7778	
==>);
sub output_popindex {
    my $self = shift;

    my ($reg, $fallback);
    if (@_ == 1) {
        ($reg, $fallback) = ('p <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	3478	3718	
==>line {
  my $line = shift;

  # Trim leading and trailing spaces
  $line =~ s/^\s*//;
  $line =~ s/\s*$//;

  # Set the global current package
  $cur_package = $line;

}

sub lib_line {
  my $line = shift;
  print OUTPUT "loadlib P1, '$line' <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	3616	3732	
==>n(", ", %props));

    $name =~ s/::/__/g;

    if (exists $props{fn} or exists $props{fnlib}) {
      $name .= "_THU <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	3051	3167	
==>n(", ", %props));

    $name =~ s/::/__/g;

    if (exists $props{fn} or exists $props{fnlib}) {
      $name .= "_THU <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3648	3752	
==>f ($mode eq 'compile') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_grou <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3752	3856	
==>f ($mode eq 'compile') {
    my ($group_files, $group_libs, $pmc_group, $pmc_libs) = 
        gather_grou <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5744	5871	
==>can be many libs
        my %libs = %{ $class->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There should b <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	5955	6082	
==>can be many libs
        my %libs = %{ $class->{flags}{lib} || {} };
        $pmc_libs{$pmc} = \%libs;

        # There should b <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	557667	557820	
==>"
                            ],
                  "BODY" => "#line 131 \"src/ops/object.ops\"\n  opcode_t *dest;\n  PMC *method_pmc, *object;\n  opcode_t <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3443	3556	
==>=~ s/^(\s*)([^\n]+)\s*\Z/$1puts [$2]/m;

        $tests{$name} = [$expl, $body, $out];
    }

    return %tests;
} <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4850	4963	
==>=~ s/^(\s*)([^\n]+)\s*\Z/$1puts [$2]/m;

        $tests{$name} = [$expl, $body, $out];
    }

    return %tests;
} <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15557	15672	
==>sh @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new AssignOp( $parser, <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19310	19425	
==>sh @opcodes, new LocalDir( $parser,
        'result' => $result,
    );
    push @opcodes, new AssignOp( $parser, <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	4517	4640	
==>perty.
sub rewrite_multi_match {
    my ($self, $op, $min, $max, $greedy, $R, @rest) = @_;

    if (($min == 0) && defined($ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	9809	9941	
==>'todo';
    }
    else {
        $result->{reason} = '';
        $result->{type}   = '';
    }

    $self->{Test_Results}[$self->{Cur <==
2	/Users/nnunley/parrot/lib/Parrot/Revision.pm	62	170	
==>Parrot/Revision.pm 19602 2006-05-30T13:40:58.862833Z coke  $

=head1 NAME

Parrot::Revision - SVN Revision

= <==
2	/Users/nnunley/parrot/Configure.pl	8893	9083	
==>init::defaults
    init::miniparrot
    init::hints
    init::headers
    inter::progs
    inter::make
    inter::lex
    inter::yacc
    auto::gcc
    auto::msvc
    init::optimize
    inter <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	4765	4866	
==>de prior to the run core function.

=cut

sub run_core_func_start
{
    return <<END_C;
#if defined(__ <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CSwitch.pm	3053	3154	
==>de prior to the run core function.

=cut

sub run_core_func_start
{
    return <<END_C;
#if defined(__ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	13175	13427	
==>ist
     /"Parrot_${1}_$2(" . full_arguments($3) . ')'/xeg;

    # Rewrite SELF.other_method(args...)
    s/SELF              # Macro SELF
      \.(\w+)           # other_method
      \(\s*(.*?)\)      # capture argument list
     /"Parrot_${class}_$1(" <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	13163	13281	
==>if ($syms[NEXT] eq "sub") {
		push @{$code{$seg}->{code}}, qq{\tgoto END_$seg\n};
		feedme();
		#print CODE "\tgoto SUB <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block/Conditional/Else.pm	629	769	
==>> $peer,

    KIND      => 'else',

    CONTENT   => [ ]
  }, $class;

  $block->push_content($self);

  return $self;
}

sub peer { return s <==
2	/Users/nnunley/parrot/languages/lua/Lua/pir.pm	3005	3120	
==>ymbol}\[$op->{arg1}->{symbol}\] = $op->{arg2}->{symbol}\n";
    }

    sub visitIncrOp {
        my $self = shif <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	30697	30817	
==>il');
    my ($R_back, @R_ops) = $self->rewrite($R, $back);

    # Set up the full preamble, including stuff gathered fro <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	11076	11177	
==>QRSTUVWXYZ0123456789])/sprintf('%%%02X',ord($1))/eg;
        # Yes, stipulate the list without a range <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	4425	4525	
==>QRSTUVWXYZ0123456789])/sprintf('%%%02X',ord($1))/eg;
       # Yes, stipulate the list without a range <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	112	306	
==>-2003, The Perl Foundation.
# $Id: /parrot/tools/dev/lib_deps.pl 19607 2006-05-30T15:23:20.183054Z coke  $
################################################################################

=head1 <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	3089	3272	
==>_html = '';
    my @rel_paths = $self->contents_relative_to_source($source);
    my @short_desc = ();
    
    foreach my $rel_path (@rel_paths)
    {
        my $file = $source->file_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	847529	847804	
==>} = s;\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "chopn", <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Processor.pm	6102	6273	
==>ire('open-paren');    }
sub require_infix_rel     { return shift->require('infix-rel');     }
sub require_semicolon     { return shift->require('semicolon');     }
sub requ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	49634	49760	
==>epping through the input text and
trying the following alternatives in sequence:

=over 4

=item 1.

Try and match a closing de <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	1513	1684	
==>k->find_symbol($name);

  #
  # If the identifier is already defined at ANY lexical scope, we want to complain
  # about the redefinition. Otherwise, we assume the programm <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	3191	3324	
==>ew_steps) {
        $self->add_step($step);
    }

    return $self;
}

=item * C<runsteps()>

Sequentially executes step in the order <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	33241	33415	
==>]{'start_line'},
              "You have '=item " . $para->[1]{'number'} .
              "' instead of the expected '=item $expected_value'"
            );
            $para-> <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	2734	2984	
==>mp = $compiler->temp_reg($return_type);
      $compiler->emit("  $temp = $ret_val");
      $ret_val = $temp;
    }

    $compiler->emit("  .return($ret_val)");
  }

  #
  # Go to the subroutine exit point:
  #
  # TODO: Isn't this really a no-op, afte <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	39489	39650	
==>just for aliasing
            while( $line =~
              # Sort of adapted from Text::Tabs -- yes, it's hardwired in that
              # tabs are at every EIG <==
2	/Users/nnunley/parrot/languages/m4/lib/Parrot/Test/M4.pm	132	244	
==>outines specific to 'm4'.

=head1 DESCRIPTION

Call 'Parrot m4' and 'GNU m4'.

=cut

package Parrot::Test::M4;

u <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	27507	27618	
==>mes faster). It uses qr// for better performance on
# repeated calls, so it only works under Perl 5.005 or later <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	1549	1662	
==>print "-- $_[1]\n";
  print {$_[0]{'output_fh'}}
   '  ' x --$_[0]{'indent'}, "</", $_[1], ">\n";
  return;
}

# . <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1029696	1029806	
==>=> "#line 305 \"src/ops/sys.ops\"\n  opcode_t *next = {{^+2}};\n  if ({{\@1}} < 0.0) {\n      real_exception(in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1030538	1030648	
==>=> "#line 305 \"src/ops/sys.ops\"\n  opcode_t *next = {{^+2}};\n  if ({{\@1}} < 0.0) {\n      real_exception(in <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	21238	21376	
==>ack

=head2 Output

Controlling where the test output goes.

It's ok for your test to change where STDOUT and STDERR point to,
Test::Builde <==
2	/Users/nnunley/parrot/languages/tcl/tools/gen_inline.pl	2094	2333	
==>age'\n"
            unless $usage =~ s/^$type//;
        
        my $arg = {};
            
        $arg->{optional}    = !!$1;
        $arg->{option}      = !!$2;
        $arg->{name}        = $3;
        $arg->{type}        = $4 || ( $ar <==
2	/Users/nnunley/parrot/config/gen/makefiles.pm	5350	5599	
==>oned_lines             => 1
    );
    genfile(
        'languages/m4/config/makefiles/root.in' => 'languages/m4/Makefile',
        commentType                  => '#',
        replace_slashes              => 1,
        conditioned_lines            = <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	2	119	
==>equire 5;
package Pod::Simple::RTF;

#sub DEBUG () {4};
#sub Pod::Simple::DEBUG () {4};
#sub Pod::Simple::PullParser:: <==
2	/Users/nnunley/parrot/config/inter/pmc.pm	3013	3160	
==>r/pmc.pm'

E_NOTE

    foreach my $pmc (split(/\s+/, $pmc_list)) {
        $pmc =~ s/\.pmc$//;
        next if ($pmc =~ /^const/);

        # make e <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	39263	39482	
==>$para_type eq 'Verbatim') {
        DEBUG and print " giving verbatim treatment...\n";
      
        $para->[1]{'xml:space'} = 'preserve';
        for($i = 2; $i < @$para; $i++) {
          foreach my $line ($para->[$i] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1013158	1013572	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "err",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 1131,
                  "ARGS" => [
                              "i"
                            ],
                  " <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	691	822	
==>odo (*@todo_tests) returns Void is export {
     $Test::force_todo_test_junction = join ' ', '', @todo_tests, '';
}

## ok

sub ok ( <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	29766	29886	
==>g_lt_p {
}

sub _op_string_gt_p {
}

sub _op_string_le_p {
}

sub _op_string_ge_p {
}

sub _op_string_ci_eq_p {
}

sub _o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	663662	663748	
==>> "#line 354 \"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delete_keyed(interpreter, {{\@1}}, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	664434	664520	
==>> "#line 354 \"src/ops/pmc.ops\"\n  {{\@1}}->vtable->delete_keyed(interpreter, {{\@1}}, <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	1720	1945	
==>scaped '$'.

    $string = substr($string, 1, -1); # Without the surrounding double quotes.

    my $temp = $compiler->temp_str(); # Allocate and clear a temporary string register

    $compiler->emit("  $temp = \"\"");

    w <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	46459	46580	
==>{
                  "JUMP" => "PARROT_JUMP_ENEXT|PARROT_JUMP_GNEXT|PARROT_JUMP_RESTART",
                  "NAME" => "debu <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	29353	29462	
==>st = 0;
			$mv->{'LOADREG'} = 'loadreg';
			push @localmv, 'LOADREG';
		} else {
			die "pir or instruction mu <==
2	/Users/nnunley/parrot/tools/build/pbc2c.pl	2336	2562	
==>branch);

        $pc       = $new_pc;
	$op_code  = unpack "x$offset l", $pf->byte_code;
        $op       = $ops->op($op_code) || die "Can't find an op for opcode $op_code\n";
	$offset  += sizeof('op');
	push @pc_list, $pc;
	$ <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	9620	9754	
==>ex.h
csqrtf      complex.h
csqrtl      complex.h
ctan        complex.h
ctanf       complex.h
ctanh       complex.h
ctanhf      complex. <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	60	196	
==>b/Parrot/OpTrans.pm 20321 2006-06-20T20:02:00.179448Z bernhard  $

=head1 NAME

Parrot::OpTrans - Transform Ops to C Code 

=head1 DESCRI <==
2	/Users/nnunley/parrot/examples/benchmarks/stress.pl	2	111	
==>Copyright (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/examples/benchmarks/stress.pl 19601 2006-05-30T13 <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4376	4467	
==>return "return $where_str";
}

=item C<restart_address($address)>

Implemented in subclasses <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	10282	10378	
==>-------------------


#line 1 "lib/Regex/Grammar.y"


use constant TRUE => "TRUE";
use constant F <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11983	12082	
==>STRING|BARE|INT|FLO/) {
			push @ld, { type => "STRING", value => qq{"$syms[CURR]"} };
		} elsif ($t <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Parse.pm	11	125	
==>ex::Parse;

use Regex::Grammar;
use strict;
require 'Regex.pm';

sub new {
    my ($proto, %opts) = @_;
    my $sel <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	712430	712520	
==>uts(interpreter, io, \" \");\n  s = Parrot_sprintf_c(interpreter, \"%.12g\", (double){{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	713537	713627	
==>uts(interpreter, io, \" \");\n  s = Parrot_sprintf_c(interpreter, \"%.12g\", (double){{\@1} <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	534629	535002	
==>"o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 618,
                  "ARGS" => [
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 916 \"src/ops/math.ops\"\n   FLOATVAL temp = log((FLOATVAL)2 <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	55189	55291	
==>e, it must contain exactly one element.
The value of that element is one of the
above extractor types ( <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	29762	29858	
==>onsidered 'todo' (see Test::More and Test::Harness for
details).  Returns the reason (ie. the val <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	605399	605672	
==>P" => 0,
                  "NAME" => "addattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	606189	606462	
==>P" => 0,
                  "NAME" => "addattribute",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "in <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	3795	4064	
==>',
             'hugeintval' => 'long long',
             'hugeintvalsize' => 8,
             'i_arpainet' => 'define',
             'i_bsdioctl' => '',
             'i_crypt' => undef,
             'i_db' => 'define',
             'i_dbm' => undef,
             'i_dire <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParserTextToken.pm	4	101	
==>uire 5;
package Pod::Simple::PullParserTextToken;
use Pod::Simple::PullParserToken ();
@ISA = ('Po <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	348567	348855	
==>" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349568	349856	
==>" => 0,
                  "NAME" => "open",
                  "FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  " <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	3032	3170	
==>put2; # ( { label => ?label, code => op } : tagged_op )
    my %labels; # { label string => tagged_op }
    foreach my $stmt (@output) {
	i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	561160	561319	
==>' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "fetchmethod",
                  "FLAGS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	562243	562402	
==>' ),
         bless( {
                  "JUMP" => "PARROT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "fetchmethod",
                  "FLAGS" <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	56333	56428	
==>> "#line 869 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo_p(interpreter, {{\@2}});\n  {{+=3}};\n <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57095	57190	
==>> "#line 869 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo_p(interpreter, {{\@2}});\n  {{+=3}};\n <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	1859	1974	
==>moving files in miniparrot directory\n";
    find(sub {
	     return if ($File::Find::dir =~ /\.svn/);
	     unlink( <==
2	/Users/nnunley/parrot/lib/Parrot/Test/PGE.pm	3151	3317	
==>y ($target, $pattern) = (shift, shift);

    unshift @_ => 'matched';
    unshift @_ => Parrot::Test::PGE::_generate_glob_for($target, $pattern);

    goto &Parrot::Te <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	984	1155	
==>@_ ];
  }

  # By now it's a treelet:  [ 'foo', {}, ... ]
  foreach my $x (@$new) {
    if(ref($x || '') eq 'ARRAY') {
      $x = $class->new($x); # recurse
    } elsif(ref <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	19073	19178	
==>turn;
	}
	if ($do->{needstmt}) {
		my $false="0.0";
		feedme();
		my $which=$syms[CURR];
		my($result, $ty <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2019	2228	
==>ories
{
    my $self = shift;
    
    return
        $self->directory_with_name('compilers')->directory_with_name('ast'),
        $self->directory_with_name('compilers')->directory_with_name('imcc'),
        $ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	23716	23851	
==>_;
	
''.($::RD_NO_TRACE?'':'
		Parse::RecDescent::_trace(q{>>Rejecting production<< (found '
					 . $self->describe . ')},
					 Parse: <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63658	63846	
==>Descent::Repetition($name,$1,1,$MAXREP,
										   $lookahead,$line,
										   $self,
										   $matchrule,
										   $argcode);
										   
						$prod and $prod->additem($ite <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	1921	2064	
==>utdent!" if $self->{INDENT} < 0;
}


#
# emit()
#

sub emit
{
  my $self = shift;

  unshift(@_, " " x $self->{INDENT});
  
  my $fh = $self->{F <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	207	340	
==>ation Steps

=head1 SYNOPSIS

    use Parrot::Configure;

    my $conf = Parrot::Configure->new;
    my $data = $conf->data;
    my $o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	133312	133521	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	134092	134301	
==>rrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "i <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	7009	7178	
==>token=$$value=undef;
                next;
            };

            #reduce
            my($lhs,$len,$code,@sempar,$semval);
            ($lhs,$len,$code)=@{$$ru <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6683	6846	
==>token=$$value=undef;
                next;
            };

            #reduce
            my($lhs,$len,$code,@sempar,$semval);
            ($lhs,$len,$code)=@{$$ru <==
2	/Users/nnunley/parrot/lib/Pod/Simple/LinkSection.pm	2278	2376	
==>:Simple::Methody);
     sub start_L { print Dumper($_[1]{'section'} ) }
     __PACKAGE__->new->pars <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2379	2581	
==>ever used!
  '/L' =>  "</a>",
);

sub changes {
  return map {; m/^([-_:0-9a-zA-Z]+)=([-_:0-9a-zA-Z]+)$/s
     ? ( $1, => "\n<$2>", "/$1", => "</$2>\n" ) : die "Funky $_"
  } @_;
}
sub changes2 {
  retur <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	27724	27948	
==>EMS(signature);\n    {{+=argc + 2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARR <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	28549	28773	
==>EMS(signature);\n    {{+=argc + 2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => "PARR <==
2	/Users/nnunley/parrot/tools/build/jit2c.pl	13829	13948	
==>ops\n");

sub make_subs {
    my ($ptr, $type, $index) = @_;

    return(($ptr eq '&' ? '&' : '') . sprintf($argmaps{$ty <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	20617	20731	
==>($no_header);

If set to true, no "1..N" header will be printed.

=item B<no_ending>

    $Test->no_ending($no_endi <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	2091	2211	
==>pace($file, $source);

    # The following MUST apply.
    check_tabs($file, $source);
    check_cpp_indents($file, $sour <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	3364	3503	
==>lf->{'Thispara'} =~ s/^/$i/mg;
  
  print { $self->{'output_fh'} }   '', 
    $self->{'Thispara'},
    "\n\n"
  ;
  $self->{'Thispara'} = '' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2894	3033	
==>lf->{'Thispara'} =~ s/^/$i/mg;
  
  print { $self->{'output_fh'} }   '', 
    $self->{'Thispara'},
    "\n\n"
  ;
  $self->{'Thispara'} = '' <==
2	/Users/nnunley/parrot/tools/dev/mk_manifest_and_skip.pl	5411	5570	
==>main]doc' :
        m[^include/]      ? '[main]include' :
        (m[^languages/(\w+)/] and $1 ne 'conversion') ? "[$1]" :
        m[^lib/]          ? '[devel]' <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	5976	6084	
==>next if ($entry->[4] =~ /_INT$/);
    next if ($entry->[4] =~ /_STR$/);
    next if ($entry->[4] =~ /_FLOAT$/ <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	6394	6502	
==>next if ($entry->[4] =~ /_INT$/);
    next if ($entry->[4] =~ /_STR$/);
    next if ($entry->[4] =~ /_FLOAT$/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	16154	16619	
==>ME" => "if",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 22,
                  "ARGS" => [
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 293 \"src/ops/core.ops\"\n  if ({{\@1}} != <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	18507	18635	
==>e first
    $self->_treat_Ls($treelet);  # L has to precede E and S
    $self->_treat_Es($treelet);
    $self->_treat_Ss($treelet <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	896850	897199	
==>],
                  "TYPE" => "inline",
                  "CODE" => 1012,
                  "ARGS" => [
                              "s",
                              "i",
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 257 \"src/ops/string.ops\"\n  (void)stri <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	550	734	
==>{ $_ => 0 } (0..31) },
    N => { map { $_ => 0 } (0..31) },
    S => { map { $_ => 0 } (0..31) },
    P => { map { $_ => 0 } (0..31) },
  };
};

sub _save {
  my $self  = shift;
  my $ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	57856	57950	
==>> "#line 874 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo_s(interpreter, {{\@2}});\n  {{+=3}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	58618	58712	
==>> "#line 874 \"src/ops/core.ops\"\n  {{\@1}} = interpinfo_s(interpreter, {{\@2}});\n  {{+=3}};\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	754784	755178	
==>S" => [
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 851,
                  "ARGS" => [
                              "p",
                              "n"
                            ],
                  "BODY" => "#line 266 \"src/ops/set.ops\"\n  {{\@1}}->vtable <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	7760	7926	
==>made by
C<$trans> (a subclass of C<Parrot::OpTrans>).

=cut

sub source
{
    my ($self, $trans) = @_;

    if ($self->flags =~ /:pic/ &&
	!(ref($trans) eq 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	3287	3479	
==>e;        /* 'type' value for MMD */
    STRING* whoami;          /* Name of class this vtable is for */
    UINTVAL flags;           /* Flags. Duh */
    STRING* does_str;        /* space-sepa <==
2	/Users/nnunley/parrot/tools/build/headerize.pl	1652	1766	
==>t on paragraphs
    my @funcs = split /\n{2,}/, $text;

    # If it doesn't start in the left column, it's not a fu <==
2	/Users/nnunley/parrot/lib/Test/More.pm	12934	13059	
==>= @_;

    my $diag;
    $obj_name = 'The object' unless defined $obj_name;
    my $name = "$obj_name isa $class";
    if( !de <==
2	/Users/nnunley/parrot/tools/dev/run_indent.pl	1406	1529	
==>oreach my $file (@ARGV) {    
    next unless ($file =~ /\.[ch]$/);
    my %bad_fdecls;
    
    print STDERR "Scanning $fil <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Compilers.pm	600	741	
==>f = shift;
    
    return $self->SUPER::new(
        'Compilers', 'compilers.html', '',
        $self->new_group( 'IMCC', 'the Intermedia <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	15698	15838	
==>>maybe_regex($regex);
    unless (defined $usable_regex) {
        $ok = $self->ok( 0, $name );
        $self->diag("    '$regex' doesn't loo <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	4216	4313	
==>r>

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2002 Sean M. Burke.  All rights reserved.

Thi <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	11057	11223	
==>($syms[CURR] eq ",") {
			#feedme();
			next;
		}
	}
}
sub parse_swap {
	my(@f, @s);
	feedme();
	my($leftres, $lefttype, @left)=EXPRESSION({lhs => 1});
	feedme();
	die <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	312065	312525	
==>BELS" => []
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "getline",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 364,
                  "ARGS" => [
                              "i"
                            ],
                  "BODY <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	800	971	
==>constructors
          $vtable_dump, # vtable.dump
          pmc1        => $pmc1_dump,
          pmc2        => $pmc2_dump,
          ... );

Creates a new library object. <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732183	732411	
==>src/ops/set.ops\"\n  {{\@1}} = (INTVAL)({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	732929	733157	
==>src/ops/set.ops\"\n  {{\@1}} = (INTVAL)({{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op <==
2	/Users/nnunley/parrot/config/inter/types.pm	813	991	
==>('ask')) {
        $intval   = prompt("\n\nHow big would you like your integers to be?", $intval);
        $floatval = prompt("And your floats?",                                $f <==
2	/Users/nnunley/parrot/tools/dev/rebuild_miniparrot.pl	436	685	
==>ebuild_miniparrot.pl [option]

=head1 DESCRIPTION

This script is used to build a new miniparrot distribution in the
F<miniparrot> directory, along with its build scripts.

It is assumed that it will run on a Unix box. It's not particularly
necessary <==
2	/Users/nnunley/parrot/tools/build/ops2c.pl	7850	7963	
==>D_C;
        NULL
    };
END_C
    print SOURCE $trans->run_core_after_addr_table($bs);
}

if ($suffix =~ /cgp/) { <==
2	/Users/nnunley/parrot/lib/Parrot/IO/Directory.pm	1939	2038	
==>nce Methods

=over 4

=item C<create_path()>

This is called from C<new()> to create the path if nec <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	916	1015	
==>nce Methods

=over 4

=item C<create_path()>

This is called from C<new()> to create the path if nec <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1465	1612	
==>ns->[$count++];
  }
  
  return ($count,$temp);
}

sub _dataflow {
  my $node = shift;

  if(exists $node->{children}) {
    for(@{$node->{children} <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	25124	25280	
==>name = "I_ARG_$arg_num";
		}

        # ttype
		elsif (/^ttype$/) {
			$out =  "    \${I_ARG_$arg_num} = bc.read_ttype()\n    next_pc += 4\n";
			$arg_name = <==
2	/Users/nnunley/parrot/config/auto/msvc.pm	1675	1781	
==>ult('yes');

    $conf->data->set(msvcversion => $msvcversion);

    # Add Visual C++ specifics here
    if <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1088845	1088935	
==>DY" => "#line 186 \"src/ops/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1089793	1089883	
==>DY" => "#line 186 \"src/ops/experimental.ops\"\n    {{\@1}} = {{\@2}}->vtable->slice(interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947042	947143	
==>ing.ops\"\n  INTVAL n = Parrot_charset_number(interpreter, {{\@2}});\n  if (n < 0)\n    real_exception <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	947944	948045	
==>ing.ops\"\n  INTVAL n = Parrot_charset_number(interpreter, {{\@2}});\n  if (n < 0)\n    real_exception <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12274	12377	
==>.  If
the name has no known value (as with a name of "qacute") or is
syntactally invalid (as with a name <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	12825	12928	
==>.  If
the name has no known value (as with a name of "qacute") or is
syntactally invalid (as with a name <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	162	279	
==>r;
use SelfLoader;
use vars qw { $VERSION @ISA %EXPORT_TAGS };

$VERSION = '1.89';
@ISA		= qw ( Exporter );
		     
%E <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	404138	404444	
==>"FLAGS" => ":base_network",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 467,
                  "ARGS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	287245	287504	
==>GS" => [
                              "i",
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 918 \"src/ops/cmp.ops\"\n  {{\@1}} = (mmd_dispatch_i_pp(interpreter, {{\@2}}, {{\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59329	59572	
==>re.ops\"\n  PARROT_WARNINGS_on(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	59977	60220	
==>re.ops\"\n  PARROT_WARNINGS_on(interpreter, {{\@1}});\n  {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679164	679393	
==>>vtable->unshift_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	679943	680172	
==>>vtable->unshift_string(interpreter, {{\@1}}, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Par <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/EditorPlugins.pm	254	384	
==>use Parrot::Docs::Section::EditorPlugins;

=head1 DESCRIPTION

A documentation section describing Parrot-related editor plugins.

= <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	670	791	
==>imple events into method calls

=head1 SYNOPSIS

 require 5;
 use strict;
 package SomePodFormatter;
 use base qw(Pod::Sim <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3336	3442	
==>f (exists $props{fn} or exists $props{fnlib}) {
    my $fnlib;

    if (exists $props{fnlib} and $props{fnl <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6000	6106	
==>f (exists $props{fn} or exists $props{fnlib}) {
    my $fnlib;

    if (exists $props{fnlib} and $props{fnl <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	11957	12082	
==>f->_restore($temp);
  }
  $self->_add_inst(''           ,'set',[$return,1]);
  $self->_add_inst("DONE_$label");
  return $retu <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	51955	52172	
==>@@@@@@@@@@@@@@@@@@@@@@@@@@@@

sub text_content_of_treelet {  # method: $parser->text_content_of_treelet($lol)
  return stringify_lol($_[1]);
}

sub stringify_lol {  # function: stringify_lol($lol)
  my $string_form = ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563371	563672	
==>MP" => 0,
                  "NAME" => "addmethod",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564268	564569	
==>MP" => 0,
                  "NAME" => "addmethod",
                  "FLAGS" => ":object_classes",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE <==
2	/Users/nnunley/parrot/examples/benchmarks/stress.pl	615	700	
==>head1 SEE ALSO

F<examples/benchmarks/stress.pasm>, 
F<examples/benchmarks/stress1.pas <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CPrederef.pm	237	351	
==>PTION

C<Parrot::OpTrans::CPrederef> inherits from C<Parrot::OpTrans::C>
to provide predereferenced register addres <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	6639	6750	
==>e if it is not sure.)
sub disjoint {
    my $op = shift;

    # For now, return true iff all subexpressions' sta <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	14529	14635	
==>CII platform (where chr(32) doesn't
get you a space -- but $Code2USASCII{32} will).  It's
documented here j <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	621798	621894	
==>) &= ~SUB_FLAG_TAILCALL;\n\t    --ctx->recursion_depth;\n\t    ctx->caller_ctx = caller_ctx->call <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29634	29722	
==>) &= ~SUB_FLAG_TAILCALL;\n\t--ctx->recursion_depth;\n\tctx->caller_ctx = caller_ctx->call <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	27850	28033	
==>r = temp('P');
    print <<EOC;
	$ar = new $type $cmt
	$ar = $n
EOC
    for (my $i = $n-1; $i >= 0; $i--) {
	my $p = pop @stack;
	print <<EOC;
	$ar\[$i\] = $p->[1]
EOC
    }
    push @ <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	20798	21003	
==>foreach my $variant (@{ $self->{mmd_variants}{$meth} }) {
                if ($self->pmc_is_dynpmc($variant->[0])) {
                    $right = 0;
                    push @init_mmds, [$#mmds + 1, $varian <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	7762	7879	
==>ehandles; we must not let them get closed.
    open  OLDOUT, ">&STDOUT" or die "Can't save     stdout" if $out;
    op <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7813	7929	
==>ehandles; we must not let them get closed.
    open OLDOUT, ">&STDOUT" or die "Can't save     stdout" if $out;
    op <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	4751	4854	
==>_false: noop
CODE
	},
	'not' => sub {
		my($a1,$a2,$result,$op,$ot1,$ot2)=@_;
		$result=~s/S/N/;
		$eqnu <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	22579	22725	
==>Level = $Level + 1;
    $self->_print_diag($msg);

    return 0;
}

=begin _private

=item B<_print>

    $Test->_print(@msgs);

Prints to the outp <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	32491	32629	
==>-1]->isa('CallOp') )
    {
        push @opcodes1, new AssignOp( $parser,
            'result' => $state,
            'arg1'   => $nil- <==
2	/Users/nnunley/parrot/tools/dev/mk_inno.pl	1027	1207	
==>ir}) {
	$icu_section = qq{
Source: "$options{icudir}\\license.html"; DestDir: "{app}\\icu"; Flags:
Source: "$options{icudir}\\bin\\icu*.dll"; DestDir: "{app}\\bin"; Flags:
};
}

ope <==
2	/Users/nnunley/parrot/examples/benchmarks/stress2.pl	4	161	
==>pyright (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/examples/benchmarks/stress2.pl 19601 2006-05-30T13:32:26.641316Z coke  $

=head1 NAME

examples/ben <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	7771	7926	
==>ush @opcodes2, new KeyedSetOp( $parser,
            'arg1'   => $key->[0],
            'arg2'   => $val->[0],
            'result' => $result,
        ) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1017930	1018032	
==>\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_gmtime_r(&t <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1018855	1018957	
==>\n  struct tm tm;\n  const time_t t = (time_t) {{\@2}};\n  char resultbuffer[26];\n  Parrot_gmtime_r(&t <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	6235	6345	
==>) = "Boston"
A$(3) = "Chicago"
A$(4) = "Seattle"
Max = 4 'UBOUND(A$)
Exchange=TRUE           ' Force first pass <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	15888	15998	
==>) = "Boston"
A$(3) = "Chicago"
A$(4) = "Seattle"
Max = 4 'UBOUND(A$)
Exchange=TRUE           ' Force first pass <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	38962	39110	
==>ref($ell_content[-1])
         and $ell_content[ 0] =~ m/^\"/s
         and $ell_content[-1] =~ m/\"$/s
         and !( # catch weird degenerate case <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	49673	49795	
==>g the following alternatives in sequence:

=over 4

=item 1.

Try and match a closing delimiter bracket. If the bracket was <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	15580	15701	
==>ir( $parser,
        'result' => $result,
    );
    push @opcodes, new AssignOp( $parser,
        'result' => $result <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	19333	19454	
==>ir( $parser,
        'result' => $result,
    );
    push @opcodes, new AssignOp( $parser,
        'result' => $result <==
2	/Users/nnunley/parrot/lib/File/Which.pm	606	803	
==>XT} and $Is_DOSish) {    # WinNT. PATHEXT might be set on Cygwin, but not used.
        push @path_ext, split ';', $ENV{PATHEXT};
    }
    else {
        push @path_ext, qw(.com .exe .bat); # Win9X <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	27887	28024	
==>e any parameters, but you said =back $content"
        );
      }

      if(@$curr_open and $curr_open->[-1][0] eq '=over') {
        DEBU <==
2	/Users/nnunley/parrot/tools/dev/gen_charset_tables.pl	873	1035	
==>by $svnid
 *  Overview:
 *     This file contains various charset tables.
 *  Data Structure and Algorithms:
 *  History:
 *  Notes:
 *  References:
 */
HEADER

=o <==
2	/Users/nnunley/parrot/tools/dev/as2c.pl	782	905	
==>APP/);	# APP, NO_APP
	chomp;
	if (/^\s*\d+\s[\da-fA-F]{4}\s([\dA-F]{2,8})\s+(.*)/) {
	    if ($in_comment) {
		print " */\n" <==
2	/Users/nnunley/parrot/examples/benchmarks/stress.pl	765	857	
==>tress2.pasm>, 
F<examples/benchmarks/stress2.pl>, 
F<examples/benchmarks/stress3.pasm>.

=cut <==
2	/Users/nnunley/parrot/examples/benchmarks/stress1.pl	826	918	
==>tress2.pasm>, 
F<examples/benchmarks/stress2.pl>, 
F<examples/benchmarks/stress3.pasm>.

=cut <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	1016	1121	
==>) function (see below).

The only other constraint is you must pre-declare how many tests you
plan to run. <==
2	/Users/nnunley/parrot/tools/dev/as2c.pl	475	694	
==>te_s {
    my $cmd = shift;
    my $r = system($cmd);
    if ($r) {
	die "$cmd failed: $r";
    }
}

sub parse_s {
    my $s = shift;
    open IN, "<$s" or die "Can't read '$s': $1";
    my ($in_comment);
    $in_comment <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	795855	796162	
==>PE" => "inline",
                  "CODE" => 898,
                  "ARGS" => [
                              "p",
                              "kc",
                              "ic"
                            ],
                  "BODY" => "#line 457 \"src/ops/set.ops\"\n    {{\@1}}->vtable->set_intege <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	349298	349524	
==>pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	350300	350526	
==>pmc_new(interpreter, enum_class_Undef);\n  }\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ) <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Compiler.pm	337	534	
==>Handle;

use base qw(Jako::Processor);


#
# block_label()
#

sub block_label
{
  my $self = shift;
  my ($kind) = @_;

  return sprintf("_%s_%d", uc $kind, ++$self->{BLOCK_COUNT});
}


#
# temp_reg <==
2	/Users/nnunley/parrot/tools/build/nativecall.pl	2586	2769	
==>"STRING *",
       I => "INTVAL",
       N => "FLOATVAL",
     );

my %ret_assign =
     ( p => "PMC_data(final_destination) = return_data;\n    set_nci_P(interpreter, &st, final_desti <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	560782	560871	
==>_TAILCALL;\n  interpreter->current_object = object;\n  interpreter->current_method = VTABL <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	13628	13736	
==>nt++;
					}
				}
				if (@return_params) {
					push @code, sprintf ($calling_code, join(",",@return_params <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	15630	15949	
==>_ADDRESS",
                  "NAME" => "enternative",
                  "FLAGS" => "",
                  "ARGDIRS" => [],
                  "TYPE" => "function",
                  "CODE" => 21,
                  "ARGS" => [],
                  "BODY" => "#line 260 \"src/ops/core.ops\"\n  {{=run_native(interpreter, CUR_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	2900	2998	
==>lf->{'Thispara'} .= "\n");
  $out =~ tr{\xA0}{ } if Pod::Simple::ASCII;
  print {$self->{'output_fh <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	2434	2532	
==>lf->{'Thispara'} .= "\n");
  $out =~ tr{\xA0}{ } if Pod::Simple::ASCII;
  print {$self->{'output_fh <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	683509	683817	
==>i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 767,
                  "ARGS" => [
                              "p",
                              "p"
                            ],
                  "BODY" => "#line 522 \"src/ops/pmc.ops\"\n    {{\@1}} <==
2	/Users/nnunley/parrot/lib/Parrot/Vtable.pm	2015	2195	
==>-1;
            push @{$vtable}, [ $1, $2, $3, $section, $mmd ];
        } else {
            die "Syntax error at $file line ".$fh->input_line_number()."\n";
        }
    }

    r <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	6915	7046	
==>es = ();
}

sub ARG_count {
    my ($n, $c, $cmt) = @_;
    print <<EOC;
	# $c($n) $cmt
EOC
}

my (@stack, $temp, $make_f, %pir_func <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	6115	6242	
==>f,"",1,0))
		{
			next;
		}

		else { $$textref =~ m/\G(?:[a-zA-Z0-9]+|.)/gcs }
	}
	if ($#nesting>=0)
	{
		_failmsg "Unmatched o <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value/Literal.pm	4855	4953	
==>ame => 'literal', Attributes => { type => $type->name } });
    $handler->characters({ Data => $sel <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	8366	8469	
==>_coverage{$source_file} ? "$file_branch_coverage{$source_file} %" : "n/a" ]}</a></td>
             <td>< <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Return.pm	3965	4066	
==>ned $value;
  $handler->end_element({ Name => 'return' });

  if (defined $cond) {
    $handler->end_e <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	922984	923344	
==>\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "new",
                  "FLAGS" => ":base_mem",
                  "ARGDIRS" <==
2	/Users/nnunley/parrot/lib/Parrot/IO/File.pm	4658	4801	
==>turn 0;
}

=item C<delete()>

Deletes the file, removes the instance from the cache, and undefines it.

Raises an exception if the delete fails. <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	22569	22805	
==>ME' )
    ) {
      # Well, it fits a fallback pattern
      DEBUG and print "Seems to match NAMEless pattern.\n";
      $title = '';
      foreach my $t (reverse @to_unget) {
        last if $t->type eq 'start' and $t->tagname =~ m/^hea <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	536753	537132	
==>}, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "sin",
                  "FLAGS" => ":base_math",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 621,
                  "AR <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	977	1098	
==>s because it has the side effect of setting
    # content_seen.
    $self->get_short_title();
    
    return unless $self <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	288	407	
==>Spec;
use Getopt::Std;
use Text::Balanced; # XXX temporarily limit ourselves to perl 5.8...
                    # XXX Th <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1054247	1054348	
==>BODY" => "#line 182 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (PMC_IS_NULL({{\@2}}))\n\tintern <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1055374	1055475	
==>BODY" => "#line 182 \"src/ops/var.ops\"\n    opcode_t * next;\n    if (PMC_IS_NULL({{\@2}}))\n\tintern <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Rewrite.pm	21016	21216	
==>or next
#               push 1
#               goto loop
#         back: popint -> haveTries_flag
#               if (haveTries_flag) goto R.back
#               goto lastback
#         next:
#
# R*? - <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8863	8953	
==>e_find_fixup_entry(interpreter,\n\t    enum_fixup_label, label);\n    if (!fe)\n\tinternal_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	9979	10069	
==>e_find_fixup_entry(interpreter,\n\t    enum_fixup_label, label);\n    if (!fe)\n\tinternal_ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	10302	10430	
==>f);
		};

		#shift the error token

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Shift \$error token and go to state ". <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9840	9962	
==>f);
		};

		#shift the error token

#DBG>			$debug & 0x10
#DBG>		and	print STDERR "**Shift \$error token and go to state ". <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	19801	19939	
==>nd we only dispatch one
    # byte at a time.
    foreach (@rules) {
        if ($_->{'code'} =~ /\w\s+\w/) {
            die "Currently un <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	9265	9428	
==>/b>' if $self->{IN_ITEM_TEXT};
    }
    elsif ( $tagname eq 'item-text' )
    {
        $self->{IN_ITEM_TEXT} = 0;
    }
    
    print {$self->{'output_fh'}} $sel <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	27653	27785	
==>next unless $method->{loc} eq 'nci';
        $hout .= $self->decl($classname, $method, 1);
    }
    # class init decl
    if ($self- <==
2	/Users/nnunley/parrot/lib/Test/More.pm	22410	22520	
==>ving a programmatic todo list.  You know
how much work is left to be done, you're aware of what bugs there are, <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	365270	365373	
==>&& {{\@1}}) {\n    PIO_putps(interpreter, {{\@1}}, {{\@2}});\n  }\n  else {\n    /* Handle error here */ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	366110	366213	
==>&& {{\@1}}) {\n    PIO_putps(interpreter, {{\@1}}, {{\@2}});\n  }\n  else {\n    /* Handle error here */ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Ops/Tree.pm	159	266	
==>es operators that can be used to construct a
# syntax tree for a regular expression.
#

# Core ops generated <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	72403	72554	
==>qw(\$skip \$AUTOLOAD $self->{localvars} );
\$skip = '$skip';
$self->{startcode}

{
local \$SIG{__WARN__} = sub {0};
# PRETEND TO BE IN Parse::RecDescent <==
2	/Users/nnunley/parrot/lib/Test/More.pm	28931	29044	
==>ely turn %Refs_Seen into a stack.  This avoids picking up
    # the same referenced used twice (such as [\$a, \$a] <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	2032	2208	
==>/Para_item'   => "</dd><p$Lame></p>\n",

  'B'      =>  "<b>",                  '/B'     =>  "</b>",
  'I'      =>  "<i>",                  '/I'     =>  "</i>",
  'F'      =>  " <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	17821	17965	
==>empos]{'column'}{'to'} = $prevcolumn;
	}
}

sub code($$$$)
{
	my ($self,$namespace,$rule,$parser) = @_;
	my $code =
'
	while (!$_matched'
	. (def <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1009378	1009667	
==>MP" => 0,
                  "NAME" => "compose",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1010142	1010431	
==>MP" => 0,
                  "NAME" => "compose",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" = <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_expressions.pm	11664	11799	
==>type $op\n";

		if (! $op) {
			push @work, $token;
			next;
		}
		next if ($sym eq ",");  # Commas get ignored, args to stack
		my($ac, <==
2	/Users/nnunley/parrot/config/inter/make.pm	1353	1550	
==>'nmake', 'make'],
            $verbose);

        unless ($prog) {

            # fall back to default
            $self->set_result('no');
            return $self;
        }
    }

    if ($conf-> <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	3369	3470	
==>X This should be "print the last command". Which is harder.
        $body =~ s/^(\s*)([^\n]+)\s*\Z/$1p <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4776	4877	
==>X This should be "print the last command". Which is harder.
        $body =~ s/^(\s*)([^\n]+)\s*\Z/$1p <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c/Library.pm	1124	1264	
==>shift, shift, shift);
    my %pmcs = @_;

    foreach my $file (keys %pmcs) {
        $pmcs{$file}->{vtable} = $vtable_dump;
        $pmcs{$f <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	1185	1296	
==>vely new perl6 code back into APL.

.sub "__load_pirtable" :load
    $P0 = new .Hash
    store_global "APL", "%p <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	25394	25668	
==>tring()\n    next_pc += 4\n";
			$arg_name = "I_ARG_$arg_num";
		}

        # jumptable
		elsif (/^jumptable$/) {
			$out = <<"PIR";
    \${P_ARG_$arg_num} = new FixedPMCArray
    i = bc.read_uint32()
    next_pc += 4
    \${P_ARG_$arg_num} = i
    j = 0
JT_LOOP_$name:
    i <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	17363	17456	
==>op(@whiles);
	$_=$_->{jump};
	push @{$code{$seg}->{code}}, <<LOOPUP;
	goto WHILE_$_
AFTERWHILE <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	3487	3617	
==>es)) {
            run("$PMC2C --library $group --c " . join(" ",@pmcfiles))
              or die "pmc2c library creation failed ($ <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	3591	3721	
==>es)) {
            run("$PMC2C --library $group --c " . join(" ",@pmcfiles))
              or die "pmc2c library creation failed ($ <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	20099	20233	
==>type (source line $sourceline)" unless ( exists $th{$type} or
							  exists $usertypes{$type});
			my $marker;
			if (exists $th{$typ <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	4800	4899	
==>rn unless defined $key and defined $trigger and defined $cb;

    my $verbose = defined $self->get(' <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	15596	15739	
==>e 38
		ACTIONS => {
			"?" => 23,
			'CHAR' => 4,
			"<" => 22,
			"+" => 24,
			'CODE' => 6,
			"(" => 10,
			"|" => 26,
			"*" => 27,
			"[" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	64129	64305	
==>OT_JUMP_ENEXT|PARROT_JUMP_GNEXT",
                  "NAME" => "runinterp",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i" <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	49711	49838	
==>ce:

=over 4

=item 1.

Try and match a closing delimiter bracket. If the bracket was the same
species as the last opening brack <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	9527	9656	
==>nd	do {
				$$token eq ''	# End of input: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	print STDERR "**At eof: abort <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	9098	9223	
==>nd	do {
				$$token eq ''	# End of input: no hope
			and	do {
#DBG>				$debug & 0x10
#DBG>			and	print STDERR "**At eof: abort <==
2	/Users/nnunley/parrot/config/init/optimize.pm	1518	1691	
==>gs => $optimize);
            # record what optimization was enabled
            $conf->data->set(optimize => $optimize);
        }
    } else {
        $self->set_result('no <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	8448	8578	
==>ests_run");
    }

    if ($Test::num_of_tests_failed) {
        $*ERR.say("# Looks like you failed $Test::num_of_tests_failed test <==
2	/Users/nnunley/parrot/config/auto/perldoc.pm	942	1167	
==>ocal $/;
                $a = <FH>;
                close FH;
                $version = 2;
                $self->set_result('yes');
            } else {
                $a = undef;
            }
        }
        unless (def <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	30403	30602	
==>[2] eq 'I') {
	    # ok ?
	}
    }
    print <<EOC
	$v->[1]\[$key\] = $w->[1] $cmt
EOC
}

sub BINARY_SUBSCR
{
    my ($n, $c, $cmt) = @_;
    my $w = pop @stack;
    my $v = pop @stack;
    my $x = te <==
2	/Users/nnunley/parrot/tools/dev/install_files.pl	379	494	
==>cations

=head1 SYNOPSIS

    % perl tools/dev/install_files.pl [options]

=head1 DESCRIPTION

Use a detailed MANIFE <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	22809	22925	
==>r_test($PConfig{exe}, $test_no);  
            $exe_f =~ s@[\\/:]@$PConfig{slash}@g;
            my $out_f = per_test <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	6875	7000	
==>Delete labels that are not the destination of any jump (these
    # are the ones that were marked reachable because the previo <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	912721	913004	
==>ODE" => 1028,
                  "ARGS" => [
                              "i",
                              "s",
                              "s",
                              "i"
                            ],
                  "BODY" => "#line 289 \"src/ops/string.ops\"\n    {{\ <==
2	/Users/nnunley/parrot/languages/m4/tools/frozen2yaml.pl	1529	1671	
==>t does this means???
flag:               'F' | 'T'

# We need the len of the macro name, 
# because we extract is as a substring in the next li <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	6552	6711	
==>, $self->get_token;
          last if $to_unget[-1]->is_end
              and $to_unget[-1]->tagname eq $tagname;
        }
        my $name = $self->linearize_ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	6851	6974	
==>, $self->get_token;
        
        last if $to_unget[-1]->is_end
            and $to_unget[-1]->tagname eq $tagname;
    } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	70351	70655	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "loadlib",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	71119	71423	
==>t::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "loadlib",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inl <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	6165	6278	
==>on()>

Creates a hash of all the method names containing vtable section. Called
from C<init()>.

=cut

sub get_vta <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	18195	18306	
==>ng precooked treelet hack to $_[0][0]\n";
    $treelet = $_[0][0];
    splice @$treelet, 0, 2;  # lop the top of <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	6237	6412	
==>hes{$_},
    }} sort {
		($a eq "trunk" ? -1 : 0) ||
		($b eq "trunk" ? 1 : 0) ||
		($a cmp $b)
	} keys %branches
  ]);
  print $tmpl->output;
}

sub pack_smoke {
  my %smoke = <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11637	11749	
==>nction
z=5
T=myfunc(z)
print z

' Basic Hello
a$="Hello"
print a$

' Concatenation greeting
a$="Hello,"
b$=" worl <==
2	/Users/nnunley/parrot/tools/dev/parrot_coverage.pl	1439	1625	
==>, %function_branch_coverage, %function_call_coverage);
my (%real_filename);
my %totals = (
    lines            => 0,
    covered_lines    => 0,
    branches         => 0,
    covered_bra <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	3544	3647	
==>}
    else {
      $self->SYNTAX_ERROR("Sub declaration has no fnlib property, and parent block is not a <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm	6208	6311	
==>}
    else {
      $self->SYNTAX_ERROR("Sub declaration has no fnlib property, and parent block is not a <==
2	/Users/nnunley/parrot/languages/regex/test.pl	3441	3566	
==>END

    $driver->output_header(*PIR);

    for my $tree (@$trees) {
        $driver->output_rule(*PIR, '_regex', $tree, $ctx, <==
2	/Users/nnunley/parrot/config/auto/env.pm	902	1093	
==>$@ || cc_run() !~ /ok/) {
        $unsetenv = 1;
    }
    cc_clean();

    $conf->data->set(
        setenv   => $setenv,
        unsetenv => $unsetenv
    );

    if ($setenv && $unsetenv) { <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	9563	9710	
==>c,$d,$a,$b,$_[11],14,0x676f02d9,/* 31 */
GG,$b,$c,$d,$a,$_[16],20,0x8d2a4c8a,/* 32 */
HH,$a,$b,$c,$d,$_[9],4,0xfffa3942,/* 33 */
HH,$d,$a,$b,$c,$_[1 <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	18703	18815	
==>n::Value->new($block, $self->require_value);
          last if $self->get(1)->is_close_paren;
          $self->re <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19729	19841	
==>n::Value->new($block, $self->require_value);
          last if $self->get(1)->is_close_paren;
          $self->re <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	23594	23728	
==>red} ? $libparrot_shared : $libparrot_static;

            my $iculibs = "";
            if ($PConfig{'has_icu'}) {
                $ic <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	17399	17612	
==>to'=>undef},
				'column' => {'from'=>$thiscolumn, 'to'=>undef} };
	}
}

sub incitempos
{
	return q
	{
		$itempos[$#itempos]{'offset'}{'from'} += length($1);
		$itempos[$#itempos]{'line'}{'from'}   = $thisline;
		$ <==
2	/Users/nnunley/parrot/editor/ops2vim.pl	152	259	
==>been globbed on non-globbing OSes
## and make sure at least one command-line parameter has been passed
@ARGV <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	19817	19969	
==>aren;
          $self->require_comma;
        }
      }

      $self->require_close_paren;
      $self->require_semicolon;
     
      #
      # TODO: Ca <==
2	/Users/nnunley/parrot/lib/Test/More.pm	27906	28008	
==><is_deeply()> can do that better and with diagnostics.  

    is_deeply( \@this, \@that );

They may be <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	1397	1517	
==>bracket the verbatim chunk with whitespace.
            push @output, [ 1, q{} ];
            push @output, [ 0, $verbati <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	632647	632762	
==>\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	633689	633804	
==>\@2}});\n  }\n  {{\@1}} = pmc_new_init(interpreter, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => <==
2	/Users/nnunley/parrot/lib/Pod/Simple/PullParser.pm	20410	20504	
==>od::PullParser
object (and not an object of a subclass), then there's no reason to
bother subcl <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1012880	1013157	
==>BODY" => "#line 44 \"src/ops/sys.ops\"\n  {{\@1}} = Parrot_Run_OS_Command_Argv(interpreter, {{\@2}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot: <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	1564	1665	
==>t here it's an array
C<opcode_t>, but the prederef runops core uses an array of C<void*> to
do its cle <==
2	/Users/nnunley/parrot/lib/Test/More.pm	30125	30420	
==>};
                $ok = 0;
            }
            elsif( $type eq 'ARRAY' ) {
                $ok = _eq_array($e1, $e2);
            }
            elsif( $type eq 'HASH' ) {
                $ok = _eq_hash($e1, $e2);
            }
            elsif( $type eq 'REF' ) {
                push @Da <==
2	/Users/nnunley/parrot/languages/parrot_compiler/lib/Parrot/Test/ParrotCompiler.pm	882	1018	
==>_PROG_ARGS} || '';
  my $cmd = "$self->{parrot} languages/parrot_compiler/$test_prog_args < languages/$code_f";

  Parrot::Test::write_co <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	24777	24877	
==>urn _fail(wantarray, $textref) unless @match;
		return _succeed wantarray, $textref,
				$match[2], $ <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	7610	7708	
==>urn _fail(wantarray, $textref) unless @match;
	return _succeed wantarray, $textref,
			$match[2], $ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	15703	15871	
==>nd);
      }

      next;
    }

    #
    # Arithmetic Operators:
    #
    #   <var> = <value> <op> <value>;
    #
    # TODO: Can't really support shift amount as arg <==
2	/Users/nnunley/parrot/config/auto/pack.pm	1080	1224	
==>!';
        } elsif ($size == 4) {
            $format = 'l';
        } elsif ($size == 8 || $Config{use64bitint} eq 'define') {

            # p <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Call.pm	2712	2837	
==>reg($formal_arg_type);
      my $value = $args[$i]->compile($compiler);
      $compiler->emit("  $temp = $value");
      $args <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Call.pm	2412	2537	
==>reg($formal_arg_type);
      my $value = $args[$i]->compile($compiler);
      $compiler->emit("  $temp = $value");
      $args <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	661919	662005	
==>src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	662835	662921	
==>src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0: {{\@2}}->vtable->exists_keyed( <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	1171	1310	
==>e_handler = $self->{'code_handler'};
  my $cut_handler  = $self->{'cut_handler'};
  $self->{'line_count'} ||= 0;
 
  my $scratch;

  DEBUG > <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	450150	450455	
==>{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_abs",
                  "FLAGS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	99658	100322	
==>{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_bnot",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 124,
                  "ARGS" => [
                              "p",
                              "p"
                            ], <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	104104	104380	
==>{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_bnot <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	3331	3457	
==>arser->{offsetlinenum} -= $parser->{lastlinenum} - $_[1];
	return undef;
}

sub resync       # ($linecounter)
{
        my $sel <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	945393	945495	
==>" => "#line 521 \"src/ops/string.ops\"\n  {{\@1}} = string_copy(interpreter, Parrot_charset_name(interp <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	946203	946305	
==>" => "#line 521 \"src/ops/string.ops\"\n  {{\@1}} = string_copy(interpreter, Parrot_charset_name(interp <==
2	/Users/nnunley/parrot/lib/Pod/Simple/SimpleTree.pm	506	639	
==>x = [$_[1], $_[2]];
  if($_[0]{'_currpos'}) {
    push    @{ $_[0]{'_currpos'}[0] }, $x; # insert in parent's child-list
    unshift @ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	3909	4031	
==>($a, $def) = split(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a = qq!"$a"!;   # quote argument
		    $def_arg_names{$f}{$ <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	4408	4530	
==>($a, $def) = split(/=/, $args[$i]);
		    $a =~ s/\s//g;
		    $a = qq!"$a"!;   # quote argument
		    $def_arg_names{$f}{$ <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	32825	33119	
==>" => 79,
			"*" => 80,
			'DO' => 163,
			"<=" => 85,
			'OR' => 84,
			">" => 86
		}
	},
	{#State 116
		ACTIONS => {
			'NAME' => 164
		}
	},
	{#State 117
		ACTIONS => {
			"-" => 24,
			'NAME' => 4,
			'TRUE' => 25,
			"{" => 38,
			'NOT' => 27,
			"..." => 39,
			'STRING <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	19658	19764	
==>rammar.y"
{ return op('multi_match' => [ 0, -1, TRUE, $_[1] ]); }
	],
	[#Rule 14
		 'expr', 3,
sub
#line 11 <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5001	5219	
==>nstep($self);
            }
        };
        if ($@) {
            carp "\nstep $step_name died during execution: $@\n";
            return;
        }

        # did the step return itself?
        eval { $ret->can('r <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	49917	50051	
==>rl_quotelike>");
				$prod and $prod->additem($item)
				      or  _no_rule("<perl_quotelike>",$line);
			}
			elsif ($grammar =~ m/$CO <==
2	/Users/nnunley/parrot/languages/dotnet/t/DotNetTesting.pm	1051	1152	
==>-s -p $net_name > $out_name.pir`;
	if ($output) {
		print "translate failed:\n$output";
		return 0;
	} <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	9972	10083	
==>on myfunc(a)
	print a
	a=12
        myfunc=80
end function
z=5
T=myfunc(z)
print z

' Basic Hello
a$="Hello"
pri <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/testsuite.pl	11585	11696	
==>on myfunc(a)
	print a
	a=12
        myfunc=80
end function
z=5
T=myfunc(z)
print z

' Basic Hello
a$="Hello"
pri <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8747	8833	
==>95cd7be,/* 12 */
FF,$a,$b,$c,$d,$_[16],7,0x6b901122,/* 13 */
FF,$d,$a,$b,$c,$_[17],12,0 <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	1759	1912	
==>>{type} eq 'REAL';
    }
    $node->{type} = $cur_type;#$node->{children}[0]{type};
  } else {
    $node->{type} = 'INTEGER' if $node->{value} =~ /^[-]?\d <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	26971	27104	
==>de that it generates.
		my $pre_op = $srm->pre_op($rule->{'pop'}, $rule->{'push'});
		$pir .= "### pre_op\n";
		$pir .= sub_meta($pre_ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	252219	252537	
==>{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_not",
                  "FLAGS" => ":base_core <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	512554	512859	
==>{\@1}});\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "n_neg",
                  "FLAGS" = <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	11988	12103	
==>YNSUPER
      \(\s*(.*?)\)      # capture argument list
     /"interpreter->vtables[$supertype].$method(" . full_arg <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	6539	6648	
==>n/sg; # excess blank lines
    s/^\s*//s; s/\s*$/\n/s; # trim (and ends with a newline)
    s/^ {0,1}(\S)/  $1 <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	39010	39132	
==>t?'           => \&_op_input_port_p,
  'output-port?'          => \&_op_output_port_p,
  'current-input-port'    => \&_op_c <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Transcode.pm	401	512	
==>al "require $class;";
  if($@) {
    DEBUG and print "Couldn't load $class: $@\n";
  } else {
    DEBUG and prin <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	9623	9782	
==>90, 'Z',
   91, '[',
   92, "\\", #!
   93, ']',
   94, '^',
   95, '_',
   96, '`',
   97, 'a',
   98, 'b',
   99, 'c',
  100, 'd',
  101, 'e',
  102, 'f',
  1 <==
2	/Users/nnunley/parrot/tools/build/revision_c.pl	557	740	
==>!!
 *
 * This file is generated automatically by $0.
 *
 * Any changes made here will be lost!
 *
 */

#include "parrot/config.h"

/* also in "parrot/embed.h" */
PARROT_API int Parrot_ <==
2	/Users/nnunley/parrot/tools/build/parrot_config_c.pl	1183	1302	
==>!!
 *
 * This file is generated automatically by $0.
 *
 * Any changes made here will be lost!
 *
 */

#include "parrot/ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/File.pm	7542	7676	
==>s to be some space each side of the dash.
	my ($path, $desc) = split /\s+--?\s+/, $text, 2;
	
	return $desc;
}

=item C<short_descripti <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	66032	66423	
==>me,"$1..",$grammar,$line) if $::RD_CHECK;
					}
				}
				elsif ($grammar =~ m/$ATMOST/gco)
				{
					_parse("a one-to-$1 subrule match", $aftererror,$line,"$code$argcode(..$1)");
					if ($2)
					{
						my $pos = pos $grammar;
						substr($grammar,$pos,0,
						       "<leftop: $name $2 $name>(..$1) ");

						pos $grammar = $pos;
					}
					else
					{
						$item = new Parse::RecD <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	66869	66976	
==>"Incorrect specification of a repeated subrule",
					       $line);
					_hint("Repeated subrules like \"$c <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	72123	72540	
==>i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 96,
                  "ARGS" => [
                              "p",
                              "p",
                              "s",
                              "s"
                            ],
                  "BODY" => "#lin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	634367	634611	
==>"ARGS" => [
                              "p",
                              "i",
                              "s"
                            ],
                  "BODY" => "#line 107 \"src/ops/pmc.ops\"\n  PMC *class;\n  if ({{\@2}} <= 0 || { <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/IMCC.pm	4863	4990	
==>elf, $incexc, $failLabel) = @_;

    my $passLabel = $self->{state}->genlabel("pass_charclass");
    my @ops = ("ord <rx_tmp>, < <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	4527	4642	
==>elf, $incexc, $failLabel) = @_;

    my $passLabel = $self->{state}->genlabel("pass_charclass");
    my @ops = ("<rx <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	3454	3662	
==>t="#stay" />
          <HlCHex attribute="Hex" context="#stay" />
          <Float attribute="Float" context="#stay" />
          <Int attribute="Int" context="#stay" />
END

print <<END;
          <RegExpr at <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	300858	301315	
==>"o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 350,
                  "ARGS" => [
                              "i",
                              "n",
                              "nc"
                            ],
                  "BODY" => "#line 975 \"src/ops/cmp.ops\"\n  {{\@1}} = {{\@2}} != {{\@3}};\n  {{+=4}};\n", <==
2	/Users/nnunley/parrot/lib/Parrot/Op.pm	5596	5727	
==>For auto ops
this method adds a final C<goto NEXT()> line to the code to represent
the auto-computed return value. See the note on o <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	999915	1000248	
==>17,
                  "ARGS" => [
                              "i",
                              "i",
                              "s",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 636 \"src/ops/string.ops\"\n  {{\@1}} = Parrot_string_find_ <==
2	/Users/nnunley/parrot/config/gen/cpu/x86_64/auto.pm	25	118	
==>cpu/x86_64/auto.pl

=head1 DESCRIPTION

Adds -fPIC to x86_64 (AMD64) ccflags, if necessary.

= <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	30334	30541	
==>Note that this
# is not the same as a manpage section like the "5" in "man 5 crontab".
# "Section Foo" in the Pod sense means the part of the text that's
# introduced by the heading or item whose text is "Foo <==
2	/Users/nnunley/parrot/config/inter/lex.pm	1387	1594	
==>{
        $conf->data->set($util => $prog);
        $self->set_result('yes');
        return $self;
    }

    $prog = check_progs(['flex', 'lex'], $verbose);

    unless ($prog) {

        # fall back to def <==
2	/Users/nnunley/parrot/config/inter/yacc.pm	1384	1516	
==>{
        $conf->data->set($util => $prog);
        $self->set_result('yes');
        return $self;
    }

    $prog = check_progs([' <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	4308	4576	
==>h);

for my $h (@H) {
    if (open(H, $h)) {
	while (<H>) {
	    if (/^\w+\s+(Parrot_\w+)\(/) {
		$ParrotAPI{$1}++;
	    }
	}
	close(H);
    } else {
	die "$0: Header '$h': $!\n";
    }
}

my @ParrotAPI = sort keys %ParrotAPI;

die "$0: No API found in @H\n" unless @Pa <==
2	/Users/nnunley/parrot/lib/Parrot/Config.pm	7199	7538	
==>ude',
             'inline' => 'inline',
             'int2_t' => 'short',
             'int4_t' => 'int',
             'int8_t' => 'long long',
             'intsize' => 4,
             'intvalfmt' => '%ld',
             'intvalsize' => 4,
             'isreg' => 1,
             'iv' => 'long',
             'jitarchname' => 'ppc-darwin', <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	394556	395014	
==>=> [
                                 "o",
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 458,
                  "ARGS" => [
                              "i",
                              "i",
                              "p"
                            ],
                  "BODY" => "#line 495 \"src/ops/io.ops\"\n  if ({{\@ <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3642	3811	
==>t;
	my $need_dest = shift;
	my $pir = "";

	# If we need a destination, emit PIR to generate one. Otherwise, we've
	# nothing to do here.
	if ($need_dest) {
		$pir .= <<' <==
2	/Users/nnunley/parrot/lib/Pod/Simple/TextContent.pm	1037	1134	
==>)->any_errata_seen" \
   thingy.pod

=head1 DESCRIPTION

This class is that parses Pod and dumps j <==
2	/Users/nnunley/parrot/config/inter/libparrot.pm	325	446	
==>es whether it should be build static or shared.

=cut

package inter::libparrot;

use strict;
use vars qw($descript <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	29446	29542	
==>x = ctx->caller_ctx;\n    pc = parrot_pass_args(interpreter, caller_ctx, ctx,\n\t    PARROT_OP_ge <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	56799	56951	
==>'"}) } },
                        { Brack => sub { extract_bracketed($_[0],'{}') } },
                   ]);

This call extracts the next single substrin <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	200464	200854	
==>core",
                  "ARGDIRS" => [
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 237,
                  "ARGS" => [
                              "nc",
                              "n",
                              "i <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	73680	73795	
==>) called\n"
		unless defined &$AUTOLOAD;
	my $retval = &{$AUTOLOAD}($_[0],$text,undef,undef,$args);

	if (defined $r <==
2	/Users/nnunley/parrot/tools/dev/extract_file_descriptions.pl	5537	5641	
==>omment}{'C++'}\s*)+)/
	  if !$first_comment;

    return $info if !$first_comment;

    local $_ = $first <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	12474	12585	
==>$mv->{'ASSEMBLY'} = 'assembly';
    $mv->{'BC'} = 'bc';
    $mv->{'INS'} = 'gen_pir';
    $mv->{'PC'} = 'pc';
	$ <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Block.pm	44	153	
==>ct superclass for Jako Blocks.

=head1 SYNOPSIS

TODO

=head1 DESCRIPTION

A subclass of Jako::Construct.

Mai <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	210275	210374	
==>\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  } <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	211255	211354	
==>\n      {{\@1}}->vtable->get_string(interpreter, {{\@1}}), {{\@2}}) <= 0) {\n    {{+={{\@3}}}};\n  } <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	3610	3738	
==>ster_num/$register_num/g;
		$register_num++;
	}

	# Return generated code.
	return $pir;
}

sub post_branch($) {
	my $self = shif <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Stack.pm	3420	3540	
==>ster_num/$register_num/g;
		$register_num++;
	}

	# Return generated code.
	return $pir;
}

sub post_branch($) {
	# Nothi <==
2	/Users/nnunley/parrot/languages/dotnet/build/translator.pl	39223	39466	
==>pt, $mv, 'post_translation');
    $pir .= "### end post_translation\n";

    # Emit the end of the translator PIR.
    $pir .= <<TRANSPIR;
    .return(gen_pir)
.end
TRANSPIR

    # Return generated code.
    return $pir;
}


# Inserts auto-magi <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	17710	17823	
==>nc',[$return]);
  $self->_add_inst ('', 'set',[$list,$list.'[1]']);
  $self->_add_inst ('', 'branch',["NEXT_$label <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Methody.pm	1652	1798	
==>tes );
  $parser->_handle_text( "Hi there" );
  $parser->_handle_element_end( "head1" );

But if you subclass Pod::Simple::Methody, it will instead <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	189773	189889	
==>>get_integer(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	190714	190830	
==>>get_integer(interpreter, {{\@1}}) < {{\@2}}) {\n    {{+={{\@3}}}};\n  }\n  {{+=4}};\n",
                  "LABELS" = <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	11277	11442	
==>d's output (both stdout and stderr), and
its return status is returned as a 3-tuple. B<STDERR> is redirected to
F<test.err> during the execution, and deleted after th <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Parser.pm	638	750	
==>'quote' }] };
    my $expr;
    $count++;
    ($count, $expr) = _build_tree ($tokens, $count);
    push @{$temp-> <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	3914	4084	
==>,
            $self->c_pair_item('', 'runops_cores'),
            $self->c_header_item('', 'op'),
            $self->c_header_item('', 'oplib'),
        ),
        $self-> <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5441	5582	
==>[ 0, undef ] );
	$$check='';

    while(1) {
        my($actions,$act,$stateno);

        $stateno=$$stack[-1][0];
        $actions=$$s <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5180	5314	
==>[ 0, undef ] );
	$$check='';

    while(1) {
        my($actions,$act,$stateno);

        $stateno=$$stack[-1][0];
        $actions=$$s <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	409261	409594	
==>{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "recv",
                  "FLAGS" => ":bas <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	5777	5896	
==>join(',',map { $$_[0] } @$stack).
#DBG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defined($$to <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	5502	5615	
==>join(',',map { $$_[0] } @$stack).
#DBG>					 "]\n";


        if  (exists($$actions{ACTIONS})) {

				defined($$to <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	131433	131761	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	132288	132616	
==>BELS" => [
                                0,
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bxor",
                  "FLAGS" => ":base_core",
                  " <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	323927	324155	
==>nt4) ({{\@2}}->vtable->get_integer(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	321572	321799	
==>nt4)({{\@2}}->vtable->get_integer(interpreter, {{\@2}}));\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'P <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	422	519	
==>uded Parse/Yapp/Driver.pm file----------------------------------------
{
#
# Module Parse::Yapp <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	411	505	
==>uded Parse/Yapp/Driver.pm file----------------------------------------
{
#
# Module Parse::Yapp <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	2930	3094	
==>test harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # test result
              | <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl-test.pl	4327	4491	
==>test harness info (ignoring)
                 ( (?:\s+ [^\n]+\n)+ )  # test body
        \} \s+
            (?: \{ ([^\n]+) \}          # test result
              | <==
2	/Users/nnunley/parrot/config/init/hints/mswin32.pm	2876	3041	
==>t.lib, otherwise
        # the static libparrot.lib.
        if ($conf->data->get('parrot_is_shared')) {
            $conf->data->set(libparrot_ldflags => 'libparrot$ <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	482	587	
==>e::RecDescent::defexpected->expected()
	    unless $Parse::RecDescent::expected;
	$Parse::RecDescent::expe <==
2	/Users/nnunley/parrot/lib/Pod/Escapes.pm	11069	11161	
==>-----------------------------------------
1;
__END__

=head1 NAME

Pod::Escapes -- for resolv <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Checker.pm	1906	2004	
==>ver_text    { ++$_[0]{'Indent'} }
sub start_over_block   { ++$_[0]{'Indent'} }

sub   end_over_bull <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Text.pm	1474	1572	
==>ver_text    { ++$_[0]{'Indent'} }
sub start_over_block   { ++$_[0]{'Indent'} }

sub   end_over_bull <==
2	/Users/nnunley/parrot/lib/Pod/Simple/Transcode.pm	195	452	
==>oreach my $class (
  'Pod::Simple::TranscodeSmart',
  'Pod::Simple::TranscodeDumb',
  '',
) {
  $class or die "Couldn't load any encoding classes";
  DEBUG and print "About to try loading $class...\n";
  eval "require $class;";
  if($@) {
    DEBUG and print <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	17636	17799	
==>umn'}{'from'} = $thiscolumn;
	}
}

sub postitempos
{
	return q
	{
		$itempos[$#itempos]{'offset'}{'to'} = $prevoffset;
		$itempos[$#itempos]{'line'}{'to'}   = $prev <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	3177	3276	
==>arrot::OpTrans>

=item C<Parrot::OpTrans::CGP>

=item C<Parrot::OpTrans::CGoto>

=item C<Parrot::OpT <==
2	/Users/nnunley/parrot/lib/Pod/Simple/HTML.pm	8009	8275	
==>- - - - - - - - - - - - - - -
    } elsif( $type eq 'end' ) {
      if( ($tagname = $token->tagname) =~ m/^over-/s ) {
        pop @stack;
      } elsif( $tagname eq 'Para' ) {
        $tagname = 'Para_item' if @stack and $stack[-1] eq 'text';
      }
      print $fh <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Expression/Value.pm	591	742	
==>ck undefined." unless defined $block;
  confess "Token undefined." unless defined $token;

  return Jako::Construct::Expression::Value::Identifier->new( <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	14671	14869	
==>ps\"\n  opcode_t * const loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	15358	15556	
==>ps\"\n  opcode_t * const loc = INTVAL2PTR(opcode_t *, {{\@1}});\n  {{=loc}};\n",
                  "LABELS" => [
                                1
                              ]
                }, ' <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	6321	6453	
==>evel of the hierarchy should be
    # indented two spaces.

    # there are two exceptions.  The outermost "GUARD" ifdef doesn't incr <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	13260	13393	
==>ined $lines[-1];
       # but pass thru the undef, which will set source_dead to true
    }
    $self->parse_lines(@lines);
  }
  dele <==
2	/Users/nnunley/parrot/lib/Pod/Simple.pm	13300	13403	
==>the undef, which will set source_dead to true
    }
    $self->parse_lines(@lines);
  }
  delete($self-> <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	625085	625193	
==>>pred_offset;\n        sig = (PMC*)(pred_pc[1]);\n        ASSERT_SIG_PMC(sig);\n        assert(SIG_ELEMS(sig) <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans.pm	4200	4310	
==>to_I<X>> methods below call this method with the return
value of an C<expr_I<X>> method (implemented in subclas <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660077	660170	
==>src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->exists_keyed_int(in <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	660999	661092	
==>src/ops/pmc.ops\"\n  {{\@1}} = PMC_IS_NULL({{\@2}}) ? 0 : {{\@2}}->vtable->exists_keyed_int(in <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	1103	1269	
==>e_set {
  my $self = shift;
  my %regs = %{$self->{regs}};
  for my $type (keys %regs) {
    for my $count (0..31) {
      $self->_add_inst ('', 'save', ["$type$count" <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	473	587	
==>_delimited_pat
				&gen_extract_tagged

				&delimited_pat
			       ) ] );

Exporter::export_ok_tags('ALL');

# PR <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	5251	5505	
==>,
                'headers' => ['string_funcs']
            ),
            $self->c_item(
                'String encodings', 
                'contents' => ['src/encodings']
            ),
            $self->c_header_item('', 'unicode'),
            $sel <==
2	/Users/nnunley/parrot/tools/build/dynclasses.pl	5919	6048	
==>lass->{flags}{group}
          or next;
        ($group) = keys %$group;
        $pmc_group{$pmc} = $group;
        push @{ $group <==
2	/Users/nnunley/parrot/tools/build/dynpmc.pl	6130	6259	
==>lass->{flags}{group}
          or next;
        ($group) = keys %$group;
        $pmc_group{$pmc} = $group;
        push @{ $group <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	17391	17515	
==>=> 31,
			'function' => 26,
			'tableconstructor' => 32,
			'var' => 35,
			'primary' => 28
		}
	},
	{#State 42
		ACT <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/COMP_parsefuncs.pm	1418	1578	
==>"as") {
			feedme;
			$stype=$syms[CURR];
			feedme; # N
			my %th=( single => 'FLO', double => 'FLO', long => 'INT', integer => 'INT', string => 'STRING');
			i <==
2	/Users/nnunley/parrot/languages/python/pie-thon.pl	23340	23598	
==>name\n";
    if ($builtin_ops{$name} && $builtin_ops{$name} eq 's') {
	no strict "refs";
	my $opcode = "OPC_$name";
	&$opcode($n, $name, $cmt);
	return;
    }

    if ($func_info{$name} && $func_info{$name}{'ar'} ne 'None') {
	my $fix_args = $func_info{$name} <==
2	/Users/nnunley/parrot/config/gen/parrot_include.pm	1039	1187	
==>) = @_;

    # need vtable.h now
    system($^X, "tools/build/vtable_h.pl");
    my @generated = ();
    for my $f (@files) {
        my $in_def = '' <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	11024	11140	
==>()>

Cleans up all files in the root folder that match the glob F<test.*>.

=cut

sub cc_clean
{
    unlink map "test <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	333128	333468	
==>FLAGS" => ":filesys_open",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 391,
                  "ARGS" => [
                              "p" <==
2	/Users/nnunley/parrot/config/auto/jit.pm	132	225	
==>ad1 NAME

config/auto/jit - JIT Capability

=head1 DESCRIPTION

Determines the CPU architectur <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	704261	704848	
==>mmdvtfind",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 790,
                  "ARGS" => [
                              "p",
                              "i",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 670 \"src/ops/pmc. <==
2	/Users/nnunley/parrot/languages/tcl/tools/tcl_harness.pl	553	667	
==>p\n";

# get a list of all the tests in the harness.

my $teetcl = 't_tcl';

my @b= map {s/.*\/(.*)\.t/$1/; $_} (gl <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	71988	72175	
==>rror("Rule \"$rule->{name}\" is left-recursive.");
			_hint("Redesign the grammar so it's not left-recursive.
			       That will probably mean you need to re-implement
			       repetitio <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Item.pm	2314	2410	
==>nt->html_link($path);
}

=item C<write_html($source, $target, $silent)>

C<$source> is the direct <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	423338	423607	
==>TYPE" => "function",
                  "CODE" => 486,
                  "ARGS" => [
                              "i",
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 567 \"src/ops/io <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	13528	13663	
==>gex/, $name);
  $Test->like($this, '/$regex/', $name);

Like Test::More's like().  Checks if $this matches the given $regex.

You'll wan <==
2	/Users/nnunley/parrot/config/gen/core_pmcs.pm	1862	1998	
==>Parrot_initialize_core_pmcs(Interp *interp)
{
    int pass;
    for (pass = 0; pass <= 1; ++pass) {
        /* first the PMC with the hig <==
2	/Users/nnunley/parrot/config/auto/sizes.pm	2	110	
==>Copyright (C) 2001-2003, The Perl Foundation.
# $Id: /parrot/config/auto/sizes.pm 20338 2006-06-22T16:18:58.7 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	37000	37447	
==>OT_JUMP_ADDRESS|PARROT_JUMP_ENEXT",
                  "NAME" => "throw",
                  "FLAGS" => "",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 47,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 709 \"src/ops/core.ops\"\n  opcode_t * <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	369261	369537	
==>2,
                  "ARGS" => [
                              "s",
                              "p",
                              "i"
                            ],
                  "BODY" => "#line 341 \"src/ops/io.ops\"\n  {{\@1}} = PIO_reads(interpreter, {{\@2}}, (size_ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsText.pm	329	421	
==>s('VerbatimFormatted');
  return $new;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/DumpAsXML.pm	328	420	
==>s('VerbatimFormatted');
  return $new;
}

#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	848263	848489	
==>} = string_chopn(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	849043	849269	
==>} = string_chopn(interpreter, {{\@1}}, {{\@2}}, 1);\n  {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	718078	718187	
==>o, INTVAL_FMT, (INTVAL){{\@2}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	719010	719119	
==>o, INTVAL_FMT, (INTVAL){{\@2}});\n  PIO_softspace(interpreter, io, 1);\n  {{+=3}};\n",
                  "LABE <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649097	649357	
==>pmc_type_p(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	649860	650120	
==>pmc_type_p(interpreter, {{\@2}});\n    {{+=3}};\n",
                  "LABELS" => [
                                0,
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21589	21687	
==>);

  $return = $self->_constant(1);
  my $temp = $self->_generate($node->{children}[1]);
  $self-> <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	21974	22072	
==>);

  $return = $self->_constant(1);
  my $temp = $self->_generate($node->{children}[1]);
  $self-> <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	52777	52899	
==>\s*<score:(.*)>\Z/s;
				$prod and $prod->addscore($1, $lookahead, $line)
				      or  _no_rule($code,$line);
			}
			elsi <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	371481	371581	
==>le\");\n    io = PMC_data(pio);\n    if (!io)\n\treal_exception(interpreter, NULL, PIO_ERROR,\n\t\t\" <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	37350	37475	
==>\&_op_string_ref,
  'string-set!'   => \&_op_string_set_bang,
  'string=?'      => \&_op_string_eq_p,
  'string<?'      => \&_ <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	1202	1424	
==>line =~ $verbatim_begin ) {
            $verbatim = 1;
        }
        if ( $line =~ $verbatim_end ) {
            $verbatim_chunk .= $line;
            $verbatim_chunk .= "\n";

            # bracket the verbatim chunk w <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	827030	827293	
==>kback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 936 <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/OptRegister.pm	2513	2611	
==>ackward branches until late to do
	# otherwise. Also, putting a label everywhere doesn't hurt the f <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	1091	1189	
==>ackward branches until late to do
	# otherwise. Also, putting a label everywhere doesn't hurt the f <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	856573	856811	
==>> [
                              "s",
                              "s",
                              "sc"
                            ],
                  "BODY" => "#line 105 \"src/ops/string.ops\"\n  {{\@1}} = string_concat(interprete <==
2	/Users/nnunley/parrot/languages/lua/Lua/build.pm	13077	13307	
==>->[0],
                    );
                    $result = $result2;
                    $key    = $key2;
                    push @opcodes, @{ $key->[1] };
                }
                my $assign = new KeyedSetOp( $par <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	751	859	
==>.
#
# This notice should remain unchanged.
#
# (c) Copyright 1998-2001 Francois Desarmenien, all rights r <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	731	835	
==>.
#
# This notice should remain unchanged.
#
# (c) Copyright 1998-2001 Francois Desarmenien, all rights r <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	829167	829648	
==>kback",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i"
                               ],
                  "TYPE" => "function",
                  "CODE" => 938,
                  "ARGS" => [
                              "p",
                              "ic"
                            ],
                  "BODY" => "#line 159 \"src/ops/stack.ops\"\n  Stack_Entry_t * const <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	414904	415246	
==>" => 478,
                  "ARGS" => [
                              "i",
                              "p",
                              "i",
                              "ic",
                              "i"
                            ],
                  "BODY" => "#line 557 \"src/ops/io.ops\"\n    {{\@1}} = (INTVAL)PIO_poll(interpr <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	42073	42179	
==>utine which in turn takes a single argument (the text to
be extracted from).

In other words, the implement <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	75676	75817	
==>"sc"
                            ],
                  "BODY" => "#line 1156 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(inte <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	77279	77420	
==>"sc"
                            ],
                  "BODY" => "#line 1156 \"src/ops/core.ops\"\n  char * const name = string_to_cstring(inte <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	4447	4624	
==>e\s*$/
        	and     do {
                	s/^#DBG>//;
                	push(@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#N <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	4225	4390	
==>e\s*$/
        	and     do {
                	s/^#DBG>//;
                	push(@drv,$_);
        	}
	}
	close(DRV);

	$drv[0]=~s/_P/_DBP/;
	eval join('',@drv);
}

#N <==
2	/Users/nnunley/parrot/tools/util/smokeserv-server.pl	8252	8480	
==>=> [{
        total       => $11,
        ok          => $12,
        failed      => $13,
        todo        => $14,
        skipped     => $15,
        unexpect    => $16,
      }],
      percentage    => sprintf("%.02f", $12 / <==
2	/Users/nnunley/parrot/languages/APL/t/APL.pm	215	382	
==>l => "APL tests require Test::Base.;";';
    exit 0;
  }
}

use Parrot::Config;
use Parrot::Test;

our @EXPORT = qw(run_apl_is);

BEGIN {
  # APL *really* needs unicode <==
2	/Users/nnunley/parrot/tools/dev/check_source_standards.pl	9219	9464	
==>les_in_dir_8dot3;
    my $line = 0;
    while (<F>) {
        $line++;

        chomp;

        unless (/[A-Za-z0-9\.\-_\/]+\s+\[\w*\]\w*/) {
            error("MANIFEST", $line, "malformed entry for filename ($_)");
        }

        my ($filen <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Group.pm	2329	2421	
==>s_html($source, $target, $silent)>

Iterates over the group's contents and calls C<write_html <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	9910	10016	
==>UG > 1 and print "The '=encoding $orig' line is ",
       "redundant.  ($norm_current eq $norm_e).  Ignorin <==
2	/Users/nnunley/parrot/lib/Parrot/Configure.pm	5883	5972	
==>by Brent
Royal-Gordon C<brent@brentdax.com>.

=head1 AUTHOR

Joshua Hoblitt C<jhoblitt@cpa <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Data.pm	6732	6821	
==>by Brent Royal-Gordon C<brent@brentdax.com>.

=head1 AUTHOR

Joshua Hoblitt C<jhoblitt@cpa <==
2	/Users/nnunley/parrot/editor/kate_syntax.pl	891	993	
==>.pcc_end_return .pcc_begin_yield
    .pcc_end_yield .namespace .endnamespace .macro .include);
my @pod_ <==
2	/Users/nnunley/parrot/lib/Test/More.pm	22987	23113	
==>t way
you'll know when they start passing.  Sometimes this isn't possible.
Often a failing test will cause the whole program to <==
2	/Users/nnunley/parrot/lib/Text/Balanced.pm	64025	64121	
==>a
corresponding nested closing tag (and the failure mode was not "MAX" or "PARA").

=item C<Did n <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	7759	7865	
==>filehandles; we must not let them get closed.
    open  OLDOUT, ">&STDOUT" or die "Can't save     stdout" i <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7810	7915	
==>filehandles; we must not let them get closed.
    open OLDOUT, ">&STDOUT" or die "Can't save     stdout" i <==
2	/Users/nnunley/parrot/tools/dev/lib_deps.pl	2553	2808	
==>$cmd 2>$devnull|")
      || die "Can't run $cmd.\n";

    my %external_calls;
    my %internal_calls;
    my %variable_visible;
    my %system_include;
    my ($file, $function, $variable);
    while (<F>) {
        
        if (/-------------------------- <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen/Perl5.pm	9923	10111	
==>urn {
    my ($self, $rettype, $retval) = @_;
    $retval = value($retval);
    return ("return $retval;");
}

sub output_declare {
    my ($self, $var) = @_;
    return ("my \$$var;\n");
} <==
2	/Users/nnunley/parrot/lib/Pod/Simple/BlackBox.pm	53086	53239	
==>\a" => '\a', # ding!
  "\b" => '\b', # BS
  "\e" => '\e', # ESC
  "\f" => '\f', # FF
  "\t" => '\t', # tab
  "\cm" => '\cm',
  "\cj" => '\cj',
  "\n" => ' <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	63990	64102	
==>tiable($name,$1,$grammar,$line) if $::RD_CHECK;
					}
				}
				elsif ($grammar =~ m/$EXACTLY/gco)
				{
					_p <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	67	227	
==>4T10:37:55.635677Z bernhard  $

package Scheme::Generator;

use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
use Carp;

$VERSION   = '0.01 <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	865721	865975	
==>"src/ops/string.ops\"\n   string_pin(interpreter, {{\@1}});\n   {{+=2}};\n",
                  "LABELS" => [
                                0
                              ]
                }, 'Parrot::Op' ),
         bless( {
                  "JUMP" => <==
2	/Users/nnunley/parrot/lib/Test/More.pm	8215	8361	
==>o you can figure out what went wrong without rerunning the test.

You are encouraged to use is() and isnt() over ok() where possible,
however do no <==
2	/Users/nnunley/parrot/languages/dotnet/build/builtins.pl	4546	4862	
==>R'
FAIL:
    $P0 = new .Exception
    $P0["_message"] = "No body supplied for built-in method"
    throw $P0
PIR
}


# Generate the bodies.
# ####################
sub generate_bodies {
    # Just loop over the methods and emit code to set body and go to the end.
    my $pir = '';
    foreach (@_) {
        next if $ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/POD2HTML.pm	8734	8878	
==>) 
    {
        $tagname = 'Para_item' 
            if @{$self->{STACK}} and $self->{STACK}->[-1] eq 'text';
    }
    elsif ( $tagname =~ /head <==
2	/Users/nnunley/parrot/tools/dev/parrot_api.pl	824	943	
==>sted with C<+++> (at the moment the only good thing
is Parrot APIs definitions their declarations), bad things are liste <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	4378	4595	
==>token = $self->get(-1);

    last if $token->is_eof;

    #
    # Labels:
    #
    #   <label>:
    #

    if ($token->is_label) {
      my $block = $self->current_block();
      my $ident = Jako::Construct::Expressio <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Type/String.pm	315	455	
==>ko::Construct::Type::String;

use base qw(Jako::Construct::Type);

sub new
{
  my $class = shift;
  my ($token) = @_;

  return bless {
    T <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	13817	13950	
==>g of tests.

== Misc. Functions

- `skip (Str $reason?) returns Bool`
- `skip (Int $count, Str $reason?) returns Bool`

If for some re <==
2	/Users/nnunley/parrot/lib/Parrot/Pmc2c.pm	16250	16501	
==>ing.

=cut

sub methods {
    my ($self, $line, $out_name) = @_;

    my $cout = "";

    # vtable methods
    foreach my $method (@{ $self->{vtable}{methods}} ) {
        my $meth = $method->{meth};
        next if $meth eq 'class_init';
        if ($ <==
2	/Users/nnunley/parrot/lib/Test/Builder.pm	17780	17916	
==>self, $why) = @_;
    $why ||= '';
    $self->_unoverload(\$why);

    unless( $self->{Have_Plan} ) {
        require Carp;
        Carp: <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	8644	8778	
==>status == 0
#DBG>			and	do {
#DBG>				print STDERR "**End of Error recovery.\n";
#DBG>				$dbgerror=0;
#DBG>			};

			    push(@$ <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	8254	8382	
==>status == 0
#DBG>			and	do {
#DBG>				print STDERR "**End of Error recovery.\n";
#DBG>				$dbgerror=0;
#DBG>			};

			    push(@$ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	337738	338081	
==>S" => ":base_io",
                  "ARGDIRS" => [
                                 "o"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 395,
                  "ARGS" => [
                              "p"
                            ],
                  "BODY" => "#line 103 \"src/ops/io.ops\ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840165	840251	
==>n  rotate_entries(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}});\n  {{+ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	840860	840946	
==>n  rotate_entries(interpreter, &CONTEXT(interpreter->ctx)->user_stack, {{\@1}});\n  {{+ <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/Parrot.pm	3019	3135	
==>item C<Parrot::Docs::Section::Ops>

=item C<Parrot::Docs::Section::IMCC>

=item C<Parrot::Docs::Section::Perl>

=item <==
2	/Users/nnunley/parrot/lib/Parrot/PIR/Formatter.pm	785	908	
==>{
  (
    ^\.end$
    |
    ^clear_eh$
  )
}smx;

my $blank_before = qr { : $}smx;    #labels

my $verbatim_begin = qr{ ^= } <==
2	/Users/nnunley/parrot/languages/BASIC/compiler/compile.pl	4168	4285	
==>];
		$line=~s/"/'/g;
		print CODE "\t\$P0[",$_+1,"]= \"$line\"\n";
	}
	print CODE<<FOO;
	\$P1["code"]= \$P0
	\$P1["ste <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	563955	564192	
==>LE_add_method(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	564853	565090	
==>LE_add_method(interpreter, {{\@1}}, {{\@2}}, {{\@3}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ] <==
2	/Users/nnunley/parrot/config/init/miniparrot.pm	1807	1940	
==>=> undef,
        has_sigaction      => undef,
        has_setitimer      => undef,

        # we can't guarantee anything about point <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109108	109412	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "T <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	109886	110190	
==>arrot::Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "bors",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ],
                  "T <==
2	/Users/nnunley/parrot/languages/APL/tools/gen_operator_defs.pl	15361	15481	
==>ugh each vector, doing the ops.
    .local pmc iter1, iter2
    iter1 = new .Iterator, op1
    iter2 = new .Iterator, op2 <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Optimize.pm	6177	6311	
==>y $stmt (@output2) {
	if ($stmt->{label}) {
	    $keeping = $stmt->{label}->{reachable}; # Keep if reachable
	}
	push @output3, $stmt i <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	5276	5367	
==>ler->start_element({ Name => 'assign' });
  $dest->sax($handler);
  $handler->start_element( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Construct/Statement/Concat.pm	3339	3430	
==>ler->start_element({ Name => 'assign' });
  $dest->sax($handler);
  $handler->start_element( <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	8102	8244	
==>on) {
        my $prop = $self->require_ident->text;
      
        my $value;

        if ($self->skip_assign) {
          $value = Jako::Cons <==
2	/Users/nnunley/parrot/languages/jako/lib/Jako/Parser.pm	5108	5244	
==>on) {
        my $prop = $self->require_ident->text;

        my $value;

        if ($self->skip_assign) {
          $value = Jako::Cons <==
2	/Users/nnunley/parrot/languages/lua/Lua/parser.pm	6773	6927	
==>status == 0
#DBG>				and	do {
#DBG>					print STDERR "**End of Error recovery.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/Grammar.pm	6458	6604	
==>status == 0
#DBG>				and	do {
#DBG>					print STDERR "**End of Error recovery.\n";
#DBG>					$dbgerror=0;
#DBG>				};
				};


                push <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	953131	953398	
==>on",
                  "CODE" => 1072,
                  "ARGS" => [
                              "s",
                              "sc",
                              "ic"
                            ],
                  "BODY" => "#line 540 \"src/ops/string.ops\"\ <==
2	/Users/nnunley/parrot/lib/Pod/Simple/RTF.pm	13761	13881	
==>RSION(),
    $], scalar(gmtime),
  ;
}

sub doc_start {
  my $self = $_[0];
  my $title = $self->get_short_title();
  DEB <==
2	/Users/nnunley/parrot/languages/scheme/Scheme/Generator.pm	30052	30227	
==>tring_list {
}

sub _op_list_string {
}

sub _op_string_copy {
}

sub _op_string_fill_bang {
}

sub _op_vector_p {
}

sub _op_make_vector {
}

sub _op_vector {
}

sub _op_vecto <==
2	/Users/nnunley/parrot/lib/Parse/RecDescent.pm	73963	74115	
==>= 0;
	return $retval;
}

sub _parserepeat($$$$$$$$$)	# RETURNS A REF TO AN ARRAY OF MATCHES
{
	my ($parser, $text, $prod, $min, $max, $_noactions, $argco <==
2	/Users/nnunley/parrot/config/gen/platform.pm	626	727	
==>ons->get('verbose');
    my $platform = lc $OSNAME;

    $platform = "ansi"  if defined($conf->options <==
2	/Users/nnunley/parrot/lib/Parrot/Distribution.pm	2431	2533	
==>o'),
        $self->directory_with_name('src/ops'),
        $self->directory_with_name('src/packfile'), <==
2	/Users/nnunley/parrot/tools/util/ncidef2pasm.pl	451	613	
==>nerated in the order you specify, so
if there are library dependencies, make sure you have them in the
correct order.

=head2 package

Declares the package that al <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	88753	89030	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ], <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	89490	89767	
==>:Op' ),
         bless( {
                  "JUMP" => 0,
                  "NAME" => "band",
                  "FLAGS" => ":base_core",
                  "ARGDIRS" => [
                                 "io",
                                 "i"
                               ], <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	347683	347926	
==>"ARGS" => [
                              "p",
                              "sc",
                              "sc"
                            ],
                  "BODY" => "#line 148 \"src/ops/io.ops\"\n  /* These char * need to go away so <==
2	/Users/nnunley/parrot/lib/Test/Simple.pm	5596	5697	
==>usly had this idea (unfortunately,
he wasn't in Tony's kitchen).  This is it.


=head1 SEE ALSO

=over <==
2	/Users/nnunley/parrot/languages/regex/test.pl	1283	1394	
==>aabb
OUTPUT:
Match found
0: 8..10
1: 8..9
INPUT:
aaaaaaaaaaaa
OUTPUT:
Match found
0: 0..11
INPUT:
xyz
OUTPUT:
Ma <==
2	/Users/nnunley/parrot/languages/dotnet/build/SRM/Register.pm	8927	9092	
==>rt"]
${STEMP0} = concat ${STEMP1}
${STEMP1} = stack_depth
${STEMP0} = concat ${STEMP1}
${PARAMS}[0] = ${STEMP0}
dec stack_depth

PRE_CALL_END_${CURIC}:
PIR
}

sub pos <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	429713	429986	
==>h.ops\"\n  mmd_dispatch_v_ps(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	430600	430873	
==>h.ops\"\n  mmd_dispatch_v_ps(interpreter, {{\@2}}, {{\@3}}, {{\@1}});\n  {{+=4}};\n",
                  "LABELS" => [
                                0,
                                0,
                                0
                              ]
                }, ' <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	8404	8739	
==>oop,check_event",
                  "ARGDIRS" => [
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 12,
                  "ARGS" => [
                              "s"
                            ],
                  "BODY" => "#line 182 \"src/ops/ <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	14782	14977	
==>error reporting needs of the cmp_ok() function.

- is_deeply

Once nested data structures are implemented, we will need an easy way
to test them. So we will implement the Test::More function is_de <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	521801	522274	
==>e_core",
                  "ARGDIRS" => [
                                 "o",
                                 "i",
                                 "i"
                               ],
                  "TYPE" => "inline",
                  "CODE" => 602,
                  "ARGS" => [
                              "n",
                              "n",
                              "n"
                            ],
                  "BODY" => "#line 744 \"src/ops/ <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028129	1028223	
==>P,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_event(interpreter, (FLOATVAL) <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	1028980	1029074	
==>P,\n\t\"Cannot go back in time\");\n  }\n  next = Parrot_sleep_on_event(interpreter, (FLOATVAL) <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/C.pm	857	959	
==>se.data))
#define CUR_OPCODE cur_opcode
#define IREG(i) REG_INT(cur_opcode[i])
#define NREG(i) REG_NUM( <==
2	/Users/nnunley/parrot/lib/Parrot/OpTrans/CGoto.pm	973	1075	
==>se.data))
#define CUR_OPCODE cur_opcode
#define IREG(i) REG_INT(cur_opcode[i])
#define NREG(i) REG_NUM( <==
2	/Users/nnunley/parrot/lib/Parrot/Docs/Section/C.pm	2793	2964	
==>opt'),
        ),
        $self->new_group(
            'Interpreter', 
            '',
            $self->c_pair_item('', 'embed'),
            $self->c_pair_item('', 'glo <==
2	/Users/nnunley/parrot/lib/Digest/Perl/MD5.pm	8274	8390	
==>8,/* 1 */
FF,$d,$a,$b,$c,$_[5],12,0xe8c7b756,/* 2 */
FF,$c,$d,$a,$b,$_[6],17,0x242070db,/* 3 */
FF,$b,$c,$d,$a,$_[7], <==
2	/Users/nnunley/parrot/lib/Parrot/Test.pm	7623	7755	
==>nd $err and $out eq $err ) {
        $err = "&STDOUT";
    }

    local *OLDOUT if $out;
    local *OLDERR if $err;

    # Save the o <==
2	/Users/nnunley/parrot/lib/Parrot/Configure/Step.pm	7675	7806	
==>nd $err and $out eq $err) {
        $err = "&STDOUT";
    }

    local *OLDOUT if $out;
    local *OLDERR if $err;

    # Save the o <==
2	/Users/nnunley/parrot/languages/perl6/t/01-sanity/Test.pm	14569	14666	
==>be the code support for those needs. The
following is a list of future features planned for this m <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	627400	627491	
==>* copies the registers. */\n  {{\@1}} = pmc_new_noinit(interpreter, {{\@2}});\n  {{\@1}}->vt <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	628544	628635	
==>* copies the registers. */\n  {{\@1}} = pmc_new_noinit(interpreter, {{\@2}});\n  {{\@1}}->vt <==
2	/Users/nnunley/parrot/tools/build/ops2pm.pl	3926	4075	
==>d *.ops
if ($renum_flag) {
    renum_op_map_file($ops);
    exit 0;
}    
# else check strictly against ops.num and renumber
else {
    load_op_map_fi <==
2	/Users/nnunley/parrot/languages/regex/lib/Regex/CodeGen.pm	1554	1689	
==>>output_label_def($op);
        } else {
            foreach my $line ($self->render($op)) {
                $line =~ s/<(\w+)>/$self->l <==
2	/Users/nnunley/parrot/lib/Parrot/OpLib/core.pm	197984	198253	
==>" => "inline",
                  "CODE" => 234,
                  "ARGS" => [
                              "ic",
                              "i",
                              "ic"
                            ],
                  "BODY" => "#line 366 \"src/ops/cmp.op <==
